chicken-4.12.0/0000755000175000017500000000000013052306551013010 5ustar sjamaansjamaanchicken-4.12.0/README0000644000175000017500000006157113052305462013702 0ustar sjamaansjamaan README file for the CHICKEN Scheme system ========================================= (c) 2008-2017, The CHICKEN Team (c) 2000-2007, Felix L. Winkelmann version 4.12.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://code.call-cc.org/legacy-eggs/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 If you have a recent version of CHICKEN installed, then pass "CHICKEN=" to the "make" invocation to override this setting. "CHICKEN" defaults to "chicken". If you do not have a "chicken" binary installed, you will have to build from the closest release tarball 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. You don't need to install the release tarball chicken; simply unpack and build it in its own directory with "make PLATFORM=", then use it to build your git chicken like so: LD_LIBRARY_PATH= make PLATFORM= \ CHICKEN=/chicken The LD_LIBRARY_PATH is needed on Linux to allow chicken to find libchicken; it may or may not be needed on your platform, but probably won't do any harm. 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. `chicken-install', `chicken-uninstall' and `chicken-status' will not be generated, as it is mostly useless unless compiled code can be loaded. SYMBOLGC=1 Always enable garbage collection for unused symbols in the symbol table by default. This will result in slightly slower garbage collection, but minimizes the amount of garbage retained at runtime (which might be important for long running server applications). If you don't specify this option you can still enable symbol GC at runtime by passing the `-:w' runtime option when running the program. 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-bug | |-- 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 | | `-- 8 | | |-- chicken.import.so | | |-- csi.import.so | | |-- data-structures.import.so | | |-- extras.import.so | | |-- files.import.so | | |-- foreign.import.so | | |-- irregex.import.so | | |-- lolevel.import.so | | |-- modules.db | | |-- ports.import.so | | |-- posix.import.so | | |-- setup-api.import.so | | |-- setup-api.so | | |-- setup-download.import.so | | |-- setup-download.so | | |-- srfi-1.import.so | | |-- srfi-13.import.so | | |-- srfi-14.import.so | | |-- srfi-18.import.so | | |-- srfi-4.import.so | | |-- srfi-69.import.so | | |-- tcp.import.so | | |-- types.db | | `-- utils.import.so | |-- libchicken.a | |-- libchicken.dll.a (Windows) | |-- libchicken.dylib (Macintosh) | |-- libchicken.so -> libchicken.so.8 (Unix) | `-- libchicken.so.8 (Unix) `-- share |-- chicken | |-- doc | | |-- LICENSE | | |-- README | | |-- mac.r (Macintosh) | | |-- CHICKEN.icns (Macintosh) | | |-- manual-html | | |-- chicken.png | | |-- feathers.tcl | | `-- *.html | `-- setup.defaults `-- man `-- man1 |-- chicken-bug.1 |-- 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). - 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 release 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. 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 consider using the "chicken-bug" tool to create 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-4.12.0/setup.defaults0000644000175000017500000000240613052302315015675 0ustar sjamaansjamaan;;;; setup.defaults - defaults for chicken-install -*- Scheme -*- ;; version-number of the defaults file - checked by "chicken-install" ; when defaults are loaded (version 1) ;; list of servers in the order in which they will be processed ; ; (server (location URL) (transport TRANSPORT)) ; ; URL may be an alias (see below) or a real URL (server (location "kitten-technologies") (transport http)) (server (location "call-cc") (transport http)) ;; extensions-mappings ; ; (map (EXTENSIONNAME ... -> OTHEREXTENSIONNAME ...)) (map (data-structures extras files foreign irregex lolevel ports tcp utils posix irregex setup-api setup-download srfi-1 srfi-4 srfi-13 srfi-14 srfi-18 srfi-69 ->) ) ;; aliases for locations ; ; (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-4.12.0/csi.import.scm0000644000175000017500000000322313052306173015603 0ustar sjamaansjamaan;;;; csi.import.scm - import library for "csi" module ; ; Copyright (c) 2008-2017, 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 'csi '(toplevel-command editor-command set-describer!)) chicken-4.12.0/srfi-69.c0000644000175000017500000116317713052306252014371 0ustar sjamaansjamaan/* Generated from srfi-69.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:16 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: srfi-69.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file srfi-69.c unit: srfi_2d69 */ #include "chicken.h" #define C_rnd_fix() (C_fix(rand())) static C_PTABLE_ENTRY *create_ptable(void); static C_TLS C_word lf[124]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,110,117,109,98,101,114,45,104,97,115,104,45,104,111,111,107,32,111,98,106,56,54,32,114,110,100,56,55,41,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,29),40,110,117,109,98,101,114,45,104,97,115,104,32,111,98,106,57,51,32,46,32,116,109,112,57,50,57,52,41,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,36),40,111,98,106,101,99,116,45,117,105,100,45,104,97,115,104,32,111,98,106,49,55,54,32,46,32,116,109,112,49,55,53,49,55,55,41,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,32),40,115,121,109,98,111,108,45,104,97,115,104,32,111,98,106,50,48,54,32,46,32,116,109,112,50,48,53,50,48,55,41}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,99,104,101,99,107,45,107,101,121,119,111,114,100,32,120,50,51,55,32,46,32,121,50,51,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,33),40,107,101,121,119,111,114,100,45,104,97,115,104,32,111,98,106,50,52,53,32,46,32,116,109,112,50,52,52,50,52,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,29),40,101,113,63,45,104,97,115,104,32,111,98,106,51,48,50,32,46,32,116,109,112,51,48,49,51,48,51,41,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,30),40,101,113,118,63,45,104,97,115,104,32,111,98,106,51,57,57,32,46,32,116,109,112,51,57,56,52,48,48,41,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,25),40,108,111,111,112,32,104,115,104,52,52,50,32,105,52,52,51,32,108,101,110,52,52,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,53),40,118,101,99,116,111,114,45,104,97,115,104,32,111,98,106,52,51,53,32,115,101,101,100,52,51,54,32,100,101,112,116,104,52,51,55,32,115,116,97,114,116,52,51,56,32,114,110,100,52,51,57,41,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,20),40,103,53,49,57,32,111,98,106,53,50,49,32,114,110,100,53,50,50,41,0,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,20),40,103,53,51,51,32,111,98,106,53,51,53,32,114,110,100,53,51,54,41,0,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,20),40,103,53,51,55,32,111,98,106,53,51,57,32,114,110,100,53,52,48,41,0,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,39),40,114,101,99,117,114,115,105,118,101,45,104,97,115,104,32,111,98,106,52,52,54,32,100,101,112,116,104,52,52,55,32,114,110,100,52,52,56,41,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,28),40,42,101,113,117,97,108,63,45,104,97,115,104,32,111,98,106,52,51,49,32,114,110,100,52,51,50,41,0,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,32),40,101,113,117,97,108,63,45,104,97,115,104,32,111,98,106,53,52,56,32,46,32,116,109,112,53,52,55,53,52,57,41}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,32),40,115,116,114,105,110,103,45,104,97,115,104,32,115,116,114,53,55,53,32,46,32,116,109,112,53,55,52,53,55,54,41}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,35),40,115,116,114,105,110,103,45,99,105,45,104,97,115,104,32,115,116,114,54,49,55,32,46,32,116,109,112,54,49,54,54,49,56,41,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,43),40,104,97,115,104,45,116,97,98,108,101,45,99,97,110,111,110,105,99,97,108,45,108,101,110,103,116,104,32,116,97,98,54,55,48,32,114,101,113,54,55,49,41,0,0,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,27),40,102,95,51,53,54,57,32,111,98,106,101,99,116,54,57,51,32,98,111,117,110,100,54,57,52,41,0,0,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,27),40,102,95,51,53,55,52,32,111,98,106,101,99,116,54,57,53,32,98,111,117,110,100,54,57,54,41,0,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,27),40,102,95,51,53,55,57,32,111,98,106,101,99,116,54,57,55,32,98,111,117,110,100,54,57,56,41,0,0,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,38),40,42,109,97,107,101,45,104,97,115,104,45,102,117,110,99,116,105,111,110,32,117,115,101,114,45,102,117,110,99,116,105,111,110,54,57,49,41,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,86),40,42,109,97,107,101,45,104,97,115,104,45,116,97,98,108,101,32,116,101,115,116,55,48,56,32,104,97,115,104,55,48,57,32,108,101,110,55,49,48,32,109,105,110,45,108,111,97,100,55,49,49,32,109,97,120,45,108,111,97,100,55,49,50,32,105,110,105,116,105,97,108,55,49,53,32,116,109,112,55,48,55,55,49,54,41,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,19),40,105,110,118,97,114,103,45,101,114,114,32,109,115,103,55,56,53,41,0,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,8),40,102,95,51,56,50,55,41}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,97,114,103,115,55,56,50,41,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,33),40,109,97,107,101,45,104,97,115,104,45,116,97,98,108,101,32,46,32,97,114,103,117,109,101,110,116,115,48,55,51,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,20),40,104,97,115,104,45,116,97,98,108,101,63,32,111,98,106,56,49,56,41,0,0,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,23),40,104,97,115,104,45,116,97,98,108,101,45,115,105,122,101,32,104,116,56,50,48,41,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,39),40,104,97,115,104,45,116,97,98,108,101,45,101,113,117,105,118,97,108,101,110,99,101,45,102,117,110,99,116,105,111,110,32,104,116,56,50,51,41,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,32),40,104,97,115,104,45,116,97,98,108,101,45,104,97,115,104,45,102,117,110,99,116,105,111,110,32,104,116,56,50,54,41}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,27),40,104,97,115,104,45,116,97,98,108,101,45,109,105,110,45,108,111,97,100,32,104,116,56,50,57,41,0,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,27),40,104,97,115,104,45,116,97,98,108,101,45,109,97,120,45,108,111,97,100,32,104,116,56,51,50,41,0,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,28),40,104,97,115,104,45,116,97,98,108,101,45,119,101,97,107,45,107,101,121,115,32,104,116,56,51,53,41,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,30),40,104,97,115,104,45,116,97,98,108,101,45,119,101,97,107,45,118,97,108,117,101,115,32,104,116,56,51,56,41,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,31),40,104,97,115,104,45,116,97,98,108,101,45,104,97,115,45,105,110,105,116,105,97,108,63,32,104,116,56,52,49,41,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,26),40,104,97,115,104,45,116,97,98,108,101,45,105,110,105,116,105,97,108,32,104,116,56,52,53,41,0,0,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,98,117,99,107,101,116,56,53,56,41}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,56,53,52,32,105,56,53,54,41}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,40),40,104,97,115,104,45,116,97,98,108,101,45,114,101,115,105,122,101,33,32,104,116,56,54,55,32,118,101,99,56,54,56,32,108,101,110,56,54,57,41}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,21),40,99,111,112,121,45,108,111,111,112,32,98,117,99,107,101,116,56,56,53,41,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,56,56,49,32,105,56,56,51,41}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,24),40,42,104,97,115,104,45,116,97,98,108,101,45,99,111,112,121,32,104,116,56,55,54,41}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,23),40,104,97,115,104,45,116,97,98,108,101,45,99,111,112,121,32,104,116,56,57,51,41,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,98,117,99,107,101,116,57,52,48,41}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,98,117,99,107,101,116,57,52,57,41}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,8),40,102,95,52,53,56,57,41}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,53),40,104,97,115,104,45,116,97,98,108,101,45,117,112,100,97,116,101,33,32,104,116,57,48,49,32,107,101,121,57,48,50,32,102,117,110,99,57,48,51,32,46,32,116,109,112,57,48,48,57,48,52,41,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,98,117,99,107,101,116,57,57,51,41}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,98,117,99,107,101,116,49,48,48,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,57),40,42,104,97,115,104,45,116,97,98,108,101,45,117,112,100,97,116,101,33,47,100,101,102,97,117,108,116,32,104,116,57,54,51,32,107,101,121,57,54,52,32,102,117,110,99,57,54,53,32,100,101,102,57,54,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,60),40,104,97,115,104,45,116,97,98,108,101,45,117,112,100,97,116,101,33,47,100,101,102,97,117,108,116,32,104,116,49,48,49,50,32,107,101,121,49,48,49,51,32,102,117,110,99,49,48,49,52,32,100,101,102,49,48,49,53,41,0,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,98,117,99,107,101,116,49,48,52,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,98,117,99,107,101,116,49,48,53,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,40),40,104,97,115,104,45,116,97,98,108,101,45,115,101,116,33,32,104,116,49,48,50,48,32,107,101,121,49,48,50,49,32,118,97,108,49,48,50,50,41}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,98,117,99,107,101,116,49,49,48,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,47),40,104,97,115,104,45,116,97,98,108,101,45,114,101,102,47,100,101,102,97,117,108,116,32,104,116,49,48,57,49,32,107,101,121,49,48,57,50,32,100,101,102,49,48,57,51,41,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,98,117,99,107,101,116,49,49,50,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,35),40,104,97,115,104,45,116,97,98,108,101,45,101,120,105,115,116,115,63,32,104,116,49,49,48,57,32,107,101,121,49,49,49,48,41,0,0,0,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,98,117,99,107,101,116,49,49,52,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,26),40,108,111,111,112,32,112,114,101,118,49,49,53,51,32,98,117,99,107,101,116,49,49,53,52,41,0,0,0,0,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,35),40,104,97,115,104,45,116,97,98,108,101,45,100,101,108,101,116,101,33,32,104,116,49,49,51,52,32,107,101,121,49,49,51,53,41,0,0,0,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,26),40,108,111,111,112,32,112,114,101,118,49,49,55,50,32,98,117,99,107,101,116,49,49,55,51,41,0,0,0,0,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,49,49,54,56,32,105,49,49,55,48,41,0,0,0,0,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,36),40,104,97,115,104,45,116,97,98,108,101,45,114,101,109,111,118,101,33,32,104,116,49,49,54,51,32,102,117,110,99,49,49,54,52,41,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,26),40,104,97,115,104,45,116,97,98,108,101,45,99,108,101,97,114,33,32,104,116,49,49,56,53,41,0,0,0,0,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,13),40,97,53,53,55,51,32,120,49,50,48,48,41,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,20),40,100,111,108,111,111,112,49,49,57,54,32,108,115,116,49,49,57,56,41,0,0,0,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,49,49,57,51,32,105,49,49,57,53,41,0,0,0,0,0,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,36),40,42,104,97,115,104,45,116,97,98,108,101,45,109,101,114,103,101,33,32,104,116,49,49,49,56,57,32,104,116,50,49,49,57,48,41,0,0,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,35),40,104,97,115,104,45,116,97,98,108,101,45,109,101,114,103,101,33,32,104,116,49,49,50,48,54,32,104,116,50,49,50,48,55,41,0,0,0,0,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,34),40,104,97,115,104,45,116,97,98,108,101,45,109,101,114,103,101,32,104,116,49,49,50,49,49,32,104,116,50,49,50,49,50,41,0,0,0,0,0,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,26),40,108,111,111,112,50,32,98,117,99,107,101,116,49,50,50,51,32,108,115,116,49,50,50,52,41,0,0,0,0,0,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,105,49,50,50,48,32,108,115,116,49,50,50,49,41,0,0,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,26),40,104,97,115,104,45,116,97,98,108,101,45,62,97,108,105,115,116,32,104,116,49,50,49,54,41,0,0,0,0,0,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,13),40,97,53,55,48,50,32,120,49,50,52,54,41,0,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,13),40,103,49,50,51,54,32,120,49,50,52,53,41,0,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,50,51,53,32,103,49,50,52,50,49,50,52,57,41,0,0,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,40),40,97,108,105,115,116,45,62,104,97,115,104,45,116,97,98,108,101,32,97,108,105,115,116,49,50,51,48,32,46,32,114,101,115,116,49,50,51,49,41}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,26),40,108,111,111,112,50,32,98,117,99,107,101,116,49,50,54,51,32,108,115,116,49,50,54,52,41,0,0,0,0,0,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,105,49,50,54,48,32,108,115,116,49,50,54,49,41,0,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,24),40,104,97,115,104,45,116,97,98,108,101,45,107,101,121,115,32,104,116,49,50,53,54,41}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,26),40,108,111,111,112,50,32,98,117,99,107,101,116,49,50,55,55,32,108,115,116,49,50,55,56,41,0,0,0,0,0,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,105,49,50,55,52,32,108,115,116,49,50,55,53,41,0,0,0,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,26),40,104,97,115,104,45,116,97,98,108,101,45,118,97,108,117,101,115,32,104,116,49,50,55,48,41,0,0,0,0,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,18),40,103,49,50,57,52,32,98,117,99,107,101,116,49,51,48,51,41,0,0,0,0,0,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,50,57,51,32,103,49,51,48,48,49,51,48,53,41,0,0,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,49,50,56,56,32,105,49,50,57,48,41,0,0,0,0,0,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,38),40,42,104,97,115,104,45,116,97,98,108,101,45,102,111,114,45,101,97,99,104,32,104,116,49,50,56,52,32,112,114,111,99,49,50,56,53,41,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,26),40,102,111,108,100,50,32,98,117,99,107,101,116,49,51,50,49,32,97,99,99,49,51,50,50,41,0,0,0,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,105,49,51,49,56,32,97,99,99,49,51,49,57,41,0,0,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,43),40,42,104,97,115,104,45,116,97,98,108,101,45,102,111,108,100,32,104,116,49,51,49,50,32,102,117,110,99,49,51,49,51,32,105,110,105,116,49,51,49,52,41,0,0,0,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,42),40,104,97,115,104,45,116,97,98,108,101,45,102,111,108,100,32,104,116,49,51,50,55,32,102,117,110,99,49,51,50,56,32,105,110,105,116,49,51,50,57,41,0,0,0,0,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,37),40,104,97,115,104,45,116,97,98,108,101,45,102,111,114,45,101,97,99,104,32,104,116,49,51,51,51,32,112,114,111,99,49,51,51,52,41,0,0,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,33),40,104,97,115,104,45,116,97,98,108,101,45,119,97,108,107,32,104,116,49,51,51,56,32,112,114,111,99,49,51,51,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,25),40,97,54,48,53,50,32,107,49,51,52,53,32,118,49,51,52,54,32,97,49,51,52,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,32),40,104,97,115,104,45,116,97,98,108,101,45,109,97,112,32,104,116,49,51,52,51,32,102,117,110,99,49,51,52,52,41}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,23),40,97,54,48,54,53,32,104,116,49,51,53,48,32,112,111,114,116,49,51,53,49,41,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,8),40,102,95,54,50,48,50,41}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,98,117,99,107,101,116,49,48,56,48,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,98,117,99,107,101,116,49,48,56,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,36),40,97,54,48,56,49,32,104,116,49,48,54,55,32,107,101,121,49,48,54,56,32,46,32,116,109,112,49,48,54,54,49,48,54,57,41,0,0,0,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,12),40,97,54,50,49,48,32,120,52,50,55,41,0,0,0,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,12),40,97,54,50,50,52,32,120,52,50,50,41,0,0,0,0}; static C_char C_TLS li108[] 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_4198) static void C_fcall f_4198(C_word t0,C_word t1) 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_5246) static void C_ccall f_5246(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_4289) static void C_fcall f_4289(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6092) static void C_ccall f_6092(C_word c,C_word *av) C_noret; C_noret_decl(f_5713) static void C_fcall f_5713(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_5711) static void C_ccall f_5711(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_5270) static void C_ccall f_5270(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_2120) static void C_ccall f_2120(C_word c,C_word *av) C_noret; C_noret_decl(f_5306) static C_word C_fcall f_5306(C_word t0,C_word t1,C_word t2); C_noret_decl(f_5723) static void C_ccall f_5723(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_1914) static void C_ccall f_1914(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_1946) static void C_ccall f_1946(C_word c,C_word *av) C_noret; C_noret_decl(f_5751) static void C_fcall f_5751(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4678) static void C_ccall f_4678(C_word c,C_word *av) C_noret; C_noret_decl(f_2691) static void C_ccall f_2691(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_4554) static void C_ccall f_4554(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_4693) static void C_ccall f_4693(C_word c,C_word *av) C_noret; C_noret_decl(f_5736) static void C_ccall f_5736(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_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_6082) static void C_ccall f_6082(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_5286) static void C_ccall f_5286(C_word c,C_word *av) C_noret; C_noret_decl(f_3311) static void C_ccall f_3311(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_4826) static void C_ccall f_4826(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_3617) static void C_ccall f_3617(C_word c,C_word *av) C_noret; C_noret_decl(f_2730) static void C_fcall f_2730(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_3628) static void C_ccall f_3628(C_word c,C_word *av) C_noret; C_noret_decl(f_4921) static void C_ccall f_4921(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_6161) static void C_fcall f_6161(C_word t0,C_word t1,C_word t2) 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_4906) static void C_ccall f_4906(C_word c,C_word *av) C_noret; C_noret_decl(f_3603) static void C_fcall f_3603(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_2727) static void C_fcall f_2727(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2725) static void C_ccall f_2725(C_word c,C_word *av) C_noret; C_noret_decl(f_2720) static void C_ccall f_2720(C_word c,C_word *av) C_noret; C_noret_decl(f_6119) static void C_fcall f_6119(C_word t0,C_word t1,C_word t2) 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_2331) static void C_ccall f_2331(C_word c,C_word *av) C_noret; C_noret_decl(f_3378) static void C_ccall f_3378(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_4953) static void C_fcall f_4953(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3630) static C_word C_fcall f_3630(C_word t0); C_noret_decl(f_4833) static void C_ccall f_4833(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_4517) static void C_fcall f_4517(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5967) static void C_fcall f_5967(C_word t0,C_word t1,C_word t2,C_word t3) 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_4936) static void C_ccall f_4936(C_word c,C_word *av) C_noret; C_noret_decl(f_2747) static void C_fcall f_2747(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_5233) static void C_fcall f_5233(C_word t0,C_word t1,C_word t2) 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_6180) static void C_ccall f_6180(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_3118) static void C_ccall f_3118(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_5142) static void C_ccall f_5142(C_word c,C_word *av) C_noret; C_noret_decl(f_3138) static void C_fcall f_3138(C_word t0,C_word t1,C_word t2,C_word t3) 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_4211) static void C_ccall f_4211(C_word c,C_word *av) C_noret; C_noret_decl(f_5193) static C_word C_fcall f_5193(C_word t0,C_word t1); C_noret_decl(f_4208) static void C_ccall f_4208(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_3210) static void C_ccall f_3210(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_5497) static void C_ccall f_5497(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_2803) static void C_fcall f_2803(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_4128) static void C_fcall f_4128(C_word t0,C_word t1,C_word t2) 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_3271) static void C_ccall f_3271(C_word c,C_word *av) C_noret; C_noret_decl(f_5640) static void C_fcall f_5640(C_word t0,C_word t1,C_word t2,C_word t3) 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_3071) static void C_ccall f_3071(C_word c,C_word *av) C_noret; C_noret_decl(f_5525) static void C_fcall f_5525(C_word t0,C_word t1,C_word t2) 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_5513) static void C_fcall f_5513(C_word t0,C_word t1,C_word t2) 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_3059) static void C_fcall f_3059(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4627) static void C_fcall f_4627(C_word t0,C_word t1) C_noret; C_noret_decl(f_4182) static void C_ccall f_4182(C_word c,C_word *av) C_noret; C_noret_decl(f_5624) static void C_fcall f_5624(C_word t0,C_word t1,C_word t2,C_word t3) 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_4179) static void C_ccall f_4179(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_3527) static C_word C_fcall f_3527(C_word t0,C_word t1); 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_4644) static void C_fcall f_4644(C_word t0,C_word t1) C_noret; C_noret_decl(f_5607) static void C_ccall f_5607(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_4227) static void C_fcall f_4227(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1741) static void C_ccall f_1741(C_word c,C_word *av) C_noret; C_noret_decl(f_4638) static void C_fcall f_4638(C_word t0,C_word t1) C_noret; C_noret_decl(f_4663) static void C_ccall f_4663(C_word c,C_word *av) C_noret; C_noret_decl(f_1725) static void C_ccall f_1725(C_word c,C_word *av) C_noret; C_noret_decl(f_4391) static void C_fcall f_4391(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_4385) static void C_fcall f_4385(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_5372) static void C_ccall f_5372(C_word c,C_word *av) C_noret; C_noret_decl(f_4105) static void C_fcall f_4105(C_word t0,C_word t1,C_word t2) 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_3586) static void C_ccall f_3586(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_1716) static void C_ccall f_1716(C_word c,C_word *av) C_noret; C_noret_decl(f_6232) static void C_fcall f_6232(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_word t2,C_word t3) C_noret; C_noret_decl(f_4717) static void C_ccall f_4717(C_word c,C_word *av) C_noret; C_noret_decl(f_6225) static void C_ccall f_6225(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_4707) static void C_fcall f_4707(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6218) static void C_fcall f_6218(C_word t0,C_word t1) C_noret; C_noret_decl(f_6211) static void C_ccall f_6211(C_word c,C_word *av) C_noret; C_noret_decl(f_4144) static void C_ccall f_4144(C_word c,C_word *av) C_noret; C_noret_decl(f_2155) static void C_ccall f_2155(C_word c,C_word *av) C_noret; C_noret_decl(f_4766) static void C_fcall f_4766(C_word t0,C_word t1,C_word t2) 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_5548) static void C_fcall f_5548(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4743) static void C_ccall f_4743(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_3987) static void C_ccall f_3987(C_word c,C_word *av) C_noret; C_noret_decl(f_3150) static void C_fcall f_3150(C_word t0,C_word t1,C_word t2,C_word t3) 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_3997) static void C_ccall f_3997(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_5126) static void C_fcall f_5126(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4494) static void C_ccall f_4494(C_word c,C_word *av) C_noret; C_noret_decl(f_5087) static C_word C_fcall f_5087(C_word t0,C_word t1); C_noret_decl(f_4482) static void C_ccall f_4482(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_5054) static void C_ccall f_5054(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_5056) static void C_ccall f_5056(C_word c,C_word *av) C_noret; C_noret_decl(f_4012) static void C_ccall f_4012(C_word c,C_word *av) C_noret; C_noret_decl(f_3455) static void C_ccall f_3455(C_word c,C_word *av) C_noret; C_noret_decl(f_3452) static void C_ccall f_3452(C_word c,C_word *av) 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_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_4039) static void C_ccall f_4039(C_word c,C_word *av) C_noret; C_noret_decl(f_4870) static void C_fcall f_4870(C_word t0,C_word t1) 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_4021) static void C_ccall f_4021(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_4057) static void C_ccall f_4057(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_5002) static void C_fcall f_5002(C_word t0,C_word t1,C_word t2) 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_4881) static void C_fcall f_4881(C_word t0,C_word t1) C_noret; C_noret_decl(f_4887) static void C_fcall f_4887(C_word t0,C_word t1) C_noret; C_noret_decl(f_5878) static void C_fcall f_5878(C_word t0,C_word t1,C_word t2) 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_5866) static void C_fcall f_5866(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6066) static void C_ccall f_6066(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_6061) static void C_ccall f_6061(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_word t2,C_word t3) 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_4425) static void C_ccall f_4425(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_4310) static void C_ccall f_4310(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_6048) static void C_ccall f_6048(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_6041) static void C_ccall f_6041(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_4454) static void C_fcall f_4454(C_word t0,C_word t1,C_word t2) 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_4003) static void C_ccall f_4003(C_word c,C_word *av) C_noret; C_noret_decl(f_3786) static void C_ccall f_3786(C_word c,C_word *av) C_noret; C_noret_decl(f_6073) static void C_ccall f_6073(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_5032) static void C_ccall f_5032(C_word c,C_word *av) 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_3796) static void C_ccall f_3796(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_noret; C_noret_decl(f_3809) static void C_ccall f_3809(C_word c,C_word *av) C_noret; C_noret_decl(f_4374) static void C_fcall f_4374(C_word t0,C_word t1) 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_3412) static void C_ccall f_3412(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_4418) static void C_ccall f_4418(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_4410) static void C_ccall f_4410(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_3837) static void C_ccall f_3837(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_2643) static void C_ccall f_2643(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_3840) static void C_ccall f_3840(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_6012) static void C_ccall f_6012(C_word c,C_word *av) C_noret; C_noret_decl(f_6017) static void C_ccall f_6017(C_word c,C_word *av) C_noret; C_noret_decl(f_5401) static void C_ccall f_5401(C_word c,C_word *av) C_noret; C_noret_decl(f_5408) static void C_ccall f_5408(C_word c,C_word *av) C_noret; C_noret_decl(f_5690) static void C_fcall f_5690(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5832) static void C_fcall f_5832(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3709) static void C_fcall f_3709(C_word t0,C_word t1) C_noret; C_noret_decl(f_3706) static void C_fcall f_3706(C_word t0,C_word t1) C_noret; C_noret_decl(f_6024) static void C_ccall f_6024(C_word c,C_word *av) C_noret; C_noret_decl(f_6029) static void C_ccall f_6029(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_3718) static void C_ccall f_3718(C_word c,C_word *av) C_noret; C_noret_decl(f_3712) static void C_fcall f_3712(C_word t0,C_word t1) C_noret; C_noret_decl(f_5816) static void C_fcall f_5816(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(C_srfi_2d69_toplevel) C_externexport void C_ccall C_srfi_2d69_toplevel(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_1999) static void C_ccall f_1999(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_2615) static void C_ccall f_2615(C_word c,C_word *av) C_noret; C_noret_decl(f_5448) static void C_fcall f_5448(C_word t0,C_word t1,C_word t2,C_word t3) 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_4464) static void C_ccall f_4464(C_word c,C_word *av) C_noret; C_noret_decl(f_6005) static void C_ccall f_6005(C_word c,C_word *av) 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_5435) static void C_ccall f_5435(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_5689) static void C_ccall f_5689(C_word c,C_word *av) C_noret; C_noret_decl(f_5767) static void C_fcall f_5767(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5682) static void C_ccall f_5682(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_2139) static void C_ccall f_2139(C_word c,C_word *av) C_noret; C_noret_decl(f_3747) static void C_fcall f_3747(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5422) static void C_fcall f_5422(C_word t0,C_word t1,C_word t2) 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_5574) static void C_ccall f_5574(C_word c,C_word *av) C_noret; C_noret_decl(f_3758) static void C_fcall f_3758(C_word t0,C_word t1,C_word t2) 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_3768) static void C_ccall f_3768(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_4337) static void C_fcall f_4337(C_word t0,C_word t1) C_noret; C_noret_decl(trf_4198) static void C_ccall trf_4198(C_word c,C_word *av) C_noret; static void C_ccall trf_4198(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4198(t0,t1);} C_noret_decl(trf_4289) static void C_ccall trf_4289(C_word c,C_word *av) C_noret; static void C_ccall trf_4289(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4289(t0,t1,t2);} C_noret_decl(trf_5713) static void C_ccall trf_5713(C_word c,C_word *av) C_noret; static void C_ccall trf_5713(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5713(t0,t1,t2);} C_noret_decl(trf_5751) static void C_ccall trf_5751(C_word c,C_word *av) C_noret; static void C_ccall trf_5751(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5751(t0,t1,t2,t3);} 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[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_4598(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_2730) static void C_ccall trf_2730(C_word c,C_word *av) C_noret; static void C_ccall trf_2730(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_2730(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_6161) static void C_ccall trf_6161(C_word c,C_word *av) C_noret; static void C_ccall trf_6161(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6161(t0,t1,t2);} C_noret_decl(trf_3603) static void C_ccall trf_3603(C_word c,C_word *av) C_noret; static void C_ccall trf_3603(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_3603(t0,t1,t2,t3,t4,t5,t6,t7);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_2727(t0,t1,t2);} C_noret_decl(trf_6119) static void C_ccall trf_6119(C_word c,C_word *av) C_noret; static void C_ccall trf_6119(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6119(t0,t1,t2);} C_noret_decl(trf_4953) static void C_ccall trf_4953(C_word c,C_word *av) C_noret; static void C_ccall trf_4953(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4953(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_5967) static void C_ccall trf_5967(C_word c,C_word *av) C_noret; static void C_ccall trf_5967(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5967(t0,t1,t2,t3);} C_noret_decl(trf_2747) static void C_ccall trf_2747(C_word c,C_word *av) C_noret; static void C_ccall trf_2747(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_2747(t0,t1,t2,t3,t4);} C_noret_decl(trf_5233) static void C_ccall trf_5233(C_word c,C_word *av) C_noret; static void C_ccall trf_5233(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5233(t0,t1,t2);} C_noret_decl(trf_3138) static void C_ccall trf_3138(C_word c,C_word *av) C_noret; static void C_ccall trf_3138(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3138(t0,t1,t2,t3);} C_noret_decl(trf_2803) static void C_ccall trf_2803(C_word c,C_word *av) C_noret; static void C_ccall trf_2803(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_2803(t0,t1,t2,t3,t4);} C_noret_decl(trf_4128) static void C_ccall trf_4128(C_word c,C_word *av) C_noret; static void C_ccall trf_4128(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4128(t0,t1,t2);} C_noret_decl(trf_5640) static void C_ccall trf_5640(C_word c,C_word *av) C_noret; static void C_ccall trf_5640(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5640(t0,t1,t2,t3);} C_noret_decl(trf_5525) static void C_ccall trf_5525(C_word c,C_word *av) C_noret; static void C_ccall trf_5525(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5525(t0,t1,t2);} C_noret_decl(trf_5513) static void C_ccall trf_5513(C_word c,C_word *av) C_noret; static void C_ccall trf_5513(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5513(t0,t1,t2);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3059(t0,t1,t2,t3);} C_noret_decl(trf_4627) static void C_ccall trf_4627(C_word c,C_word *av) C_noret; static void C_ccall trf_4627(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4627(t0,t1);} C_noret_decl(trf_5624) static void C_ccall trf_5624(C_word c,C_word *av) C_noret; static void C_ccall trf_5624(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5624(t0,t1,t2,t3);} 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_4644) static void C_ccall trf_4644(C_word c,C_word *av) C_noret; static void C_ccall trf_4644(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4644(t0,t1);} C_noret_decl(trf_4227) static void C_ccall trf_4227(C_word c,C_word *av) C_noret; static void C_ccall trf_4227(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4227(t0,t1,t2);} C_noret_decl(trf_4638) static void C_ccall trf_4638(C_word c,C_word *av) C_noret; static void C_ccall trf_4638(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4638(t0,t1);} C_noret_decl(trf_4391) static void C_ccall trf_4391(C_word c,C_word *av) C_noret; static void C_ccall trf_4391(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4391(t0,t1);} 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[1]; C_word t1=av[0]; f_4385(t0,t1);} C_noret_decl(trf_4105) static void C_ccall trf_4105(C_word c,C_word *av) C_noret; static void C_ccall trf_4105(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4105(t0,t1,t2);} C_noret_decl(trf_6232) static void C_ccall trf_6232(C_word c,C_word *av) C_noret; static void C_ccall trf_6232(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6232(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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5353(t0,t1,t2,t3);} C_noret_decl(trf_4707) static void C_ccall trf_4707(C_word c,C_word *av) C_noret; static void C_ccall trf_4707(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4707(t0,t1,t2);} C_noret_decl(trf_6218) static void C_ccall trf_6218(C_word c,C_word *av) C_noret; static void C_ccall trf_6218(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6218(t0,t1);} C_noret_decl(trf_4766) static void C_ccall trf_4766(C_word c,C_word *av) C_noret; static void C_ccall trf_4766(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4766(t0,t1,t2);} C_noret_decl(trf_5548) static void C_ccall trf_5548(C_word c,C_word *av) C_noret; static void C_ccall trf_5548(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5548(t0,t1,t2);} C_noret_decl(trf_3150) static void C_ccall trf_3150(C_word c,C_word *av) C_noret; static void C_ccall trf_3150(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3150(t0,t1,t2,t3);} C_noret_decl(trf_5126) static void C_ccall trf_5126(C_word c,C_word *av) C_noret; static void C_ccall trf_5126(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5126(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_4870) static void C_ccall trf_4870(C_word c,C_word *av) C_noret; static void C_ccall trf_4870(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4870(t0,t1);} 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_5002) static void C_ccall trf_5002(C_word c,C_word *av) C_noret; static void C_ccall trf_5002(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5002(t0,t1,t2);} C_noret_decl(trf_4881) static void C_ccall trf_4881(C_word c,C_word *av) C_noret; static void C_ccall trf_4881(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4881(t0,t1);} C_noret_decl(trf_4887) static void C_ccall trf_4887(C_word c,C_word *av) C_noret; static void C_ccall trf_4887(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4887(t0,t1);} C_noret_decl(trf_5878) static void C_ccall trf_5878(C_word c,C_word *av) C_noret; static void C_ccall trf_5878(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5878(t0,t1,t2);} C_noret_decl(trf_5866) static void C_ccall trf_5866(C_word c,C_word *av) C_noret; static void C_ccall trf_5866(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5866(t0,t1,t2);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5951(t0,t1,t2,t3);} C_noret_decl(trf_4454) static void C_ccall trf_4454(C_word c,C_word *av) C_noret; static void C_ccall trf_4454(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4454(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_5916(t0,t1,t2);} C_noret_decl(trf_4374) static void C_ccall trf_4374(C_word c,C_word *av) C_noret; static void C_ccall trf_4374(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4374(t0,t1);} C_noret_decl(trf_5690) static void C_ccall trf_5690(C_word c,C_word *av) C_noret; static void C_ccall trf_5690(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5690(t0,t1,t2);} C_noret_decl(trf_5832) static void C_ccall trf_5832(C_word c,C_word *av) C_noret; static void C_ccall trf_5832(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5832(t0,t1,t2,t3);} C_noret_decl(trf_3709) static void C_ccall trf_3709(C_word c,C_word *av) C_noret; static void C_ccall trf_3709(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3709(t0,t1);} C_noret_decl(trf_3706) static void C_ccall trf_3706(C_word c,C_word *av) C_noret; static void C_ccall trf_3706(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3706(t0,t1);} C_noret_decl(trf_3712) static void C_ccall trf_3712(C_word c,C_word *av) C_noret; static void C_ccall trf_3712(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3712(t0,t1);} C_noret_decl(trf_5816) static void C_ccall trf_5816(C_word c,C_word *av) C_noret; static void C_ccall trf_5816(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5816(t0,t1,t2,t3);} C_noret_decl(trf_5448) static void C_ccall trf_5448(C_word c,C_word *av) C_noret; static void C_ccall trf_5448(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5448(t0,t1,t2,t3);} C_noret_decl(trf_5767) static void C_ccall trf_5767(C_word c,C_word *av) C_noret; static void C_ccall trf_5767(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5767(t0,t1,t2,t3);} C_noret_decl(trf_3747) static void C_ccall trf_3747(C_word c,C_word *av) C_noret; static void C_ccall trf_3747(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3747(t0,t1,t2);} C_noret_decl(trf_5422) static void C_ccall trf_5422(C_word c,C_word *av) C_noret; static void C_ccall trf_5422(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5422(t0,t1,t2);} C_noret_decl(trf_3758) static void C_ccall trf_3758(C_word c,C_word *av) C_noret; static void C_ccall trf_3758(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3758(t0,t1,t2);} C_noret_decl(trf_4337) static void C_ccall trf_4337(C_word c,C_word *av) C_noret; static void C_ccall trf_4337(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4337(t0,t1);} /* *hash-table-copy in k2723 in k2718 in k1714 */ static void C_fcall f_4198(C_word t1,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_4198,2,t1,t2);} a=C_alloc(6); t3=C_slot(t2,C_fix(1)); t4=t3; t5=C_block_size(t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4208,a[2]=t2,a[3]=t1,a[4]=t6,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* srfi-69.scm:677: make-vector */ t8=*((C_word*)lf[38]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=t6; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* f_4589 in hash-table-update! in k2723 in k2718 in k1714 */ 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 *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_4589,2,av);} /* srfi-69.scm:716: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=t1; av2[2]=lf[87]; av2[3]=lf[85]; av2[4]=lf[88]; av2[5]=((C_word*)t0)[2]; av2[6]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k5244 in loop in k5176 in hash-table-exists? in k5052 in k2723 in k2718 in k1714 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5246,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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)); /* srfi-69.scm:919: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_5233(t3,((C_word*)t0)[2],t2);}} /* k4281 in doloop881 in k4206 in *hash-table-copy in k2723 in k2718 in k1714 */ 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 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_4283,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_4227(t4,((C_word*)t0)[5],t3);} /* copy-loop in doloop881 in k4206 in *hash-table-copy in k2723 in k2718 in k1714 */ static void C_fcall f_4289(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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(7,0,2)))){ C_save_and_reclaim_args((void *)trf_4289,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]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_slot(t2,C_fix(0)); t4=C_slot(t3,C_fix(0)); t5=C_slot(t3,C_fix(1)); t6=C_a_i_cons(&a,2,t4,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4310,a[2]=t1,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=C_slot(t2,C_fix(1)); /* srfi-69.scm:692: copy-loop */ t11=t8; t12=t9; t1=t11; t2=t12; goto loop;}} /* k6090 in a6081 in k2723 in k2718 in k1714 */ static void C_ccall f_6092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,3)))){ C_save_and_reclaim((void *)f_6092,2,av);} a=C_alloc(8); t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=t2; t4=C_slot(((C_word*)t0)[2],C_fix(3)); t5=t4; t6=C_slot(((C_word*)t0)[2],C_fix(10)); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6104,a[2]=((C_word*)t0)[3],a[3]=t5,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); t8=C_block_size(t3); /* srfi-69.scm:852: hash */ t9=t6;{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t7; av2[2]=((C_word*)t0)[5]; av2[3]=t8; ((C_proc)C_fast_retrieve_proc(t9))(4,av2);}} /* for-each-loop1235 in k5687 in alist->hash-table in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5713(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_5713,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_5723,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)); /* srfi-69.scm:1034: g1236 */ t5=((C_word*)t0)[3]; f_5690(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);}}} /* k1906 in k1739 in number-hash in k1714 */ 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,1)))){ C_save_and_reclaim((void *)f_1908,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5709 in k5687 in alist->hash-table in k5052 in k2723 in k2718 in k1714 */ 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,1)))){ C_save_and_reclaim((void *)f_5711,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#check-keyword in k1714 */ 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=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_2113,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_2120,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* srfi-69.scm:193: keyword? */ t5=*((C_word*)lf[12]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* hash-table-delete! in k5052 in k2723 in k2718 in k1714 */ 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=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(7,c,3)))){ C_save_and_reclaim((void *)f_5270,4,av);} a=C_alloc(7); t4=C_i_check_structure_2(t2,lf[37],lf[96]); t5=C_slot(t2,C_fix(1)); t6=t5; t7=C_block_size(t6); t8=C_slot(t2,C_fix(10)); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5286,a[2]=t2,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* srfi-69.scm:930: hash */ t10=t8;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=t3; av2[3]=t7; ((C_proc)C_fast_retrieve_proc(t10))(4,av2);}} /* k3019 in recursive-hash in *equal?-hash in k2723 in k2718 in k1714 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3021,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2118 in check-keyword in k1714 */ 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; 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_2120,2,av);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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)[3]))){ /* srfi-69.scm:194: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[10]; av2[3]=C_SCHEME_FALSE; av2[4]=lf[11]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ t2=C_i_car(((C_word*)t0)[3]); /* srfi-69.scm:194: ##sys#signal-hook */ t3=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[10]; av2[3]=t2; av2[4]=lf[11]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}}} /* loop in k5284 in hash-table-delete! in k5052 in k2723 in k2718 in k1714 */ static C_word C_fcall f_5306(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_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:{} if(C_truep(C_i_nullp(t2))){ return(C_SCHEME_FALSE);} else{ t3=C_slot(t2,C_fix(0)); t4=C_slot(t2,C_fix(1)); t5=C_slot(t3,C_fix(0)); t6=C_eqp(((C_word*)t0)[2],t5); if(C_truep(t6)){ t7=(C_truep(t1)?C_i_setslot(t1,C_fix(1),t4):C_i_setslot(((C_word*)t0)[3],((C_word*)t0)[4],t4)); t8=C_i_set_i_slot(((C_word*)t0)[5],C_fix(2),((C_word*)t0)[6]); return(C_SCHEME_TRUE);} else{ t10=t2; t11=t4; t1=t10; t2=t11; goto loop;}}} /* k5721 in for-each-loop1235 in k5687 in alist->hash-table in k5052 in k2723 in k2718 in k1714 */ static void C_ccall f_5723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5723,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5713(t3,((C_word*)t0)[4],t2);} /* k4525 in loop in k4438 in k4423 in k4344 in k4341 in k4335 in hash-table-update! in k2723 in k2718 in k1714 */ 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 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_4527,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]); t4=C_i_setslot(((C_word*)t0)[4],((C_word*)t0)[5],t3); t5=C_i_set_i_slot(((C_word*)t0)[6],C_fix(2),((C_word*)t0)[7]); t6=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k1912 in k1739 in number-hash in k1714 */ static void C_ccall f_1914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1914,2,av);} t2=((C_word*)t0)[2]; t3=C_fix((C_word)C_MOST_POSITIVE_32_BIT_FIXNUM); t4=C_fixnum_lessp(t1,C_fix(0)); t5=(C_truep(t4)?C_fixnum_negate(t1):t1); t6=C_fixnum_and(t3,t5); t7=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_fixnum_modulo(t6,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k4669 in *hash-table-update!/default in k2723 in k2718 in k1714 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4671,2,av);} if(C_truep(C_immp(t1))){ t2=((C_word*)t0)[2]; f_4627(t2,t1);} else{ t2=C_i_inexact_to_exact(t1); t3=((C_word*)t0)[2]; f_4627(t3,t2);}} /* object-uid-hash in k1714 */ 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=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_1946,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; C_word t12; C_word t13; C_word t14; C_word t15; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_fix(536870912):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)?lf[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_check_exact_2(t6,lf[7]); t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1999,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* srfi-69.scm:168: *equal?-hash */ f_2727(t14,t2,t10);} /* loop in hash-table-keys in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5751(C_word t0,C_word t1,C_word 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(8,0,4)))){ C_save_and_reclaim_args((void *)trf_5751,4,t0,t1,t2,t3);} a=C_alloc(8); 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_slot(((C_word*)t0)[3],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_5767,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t6,a[5]=((C_word)li83),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_5767(t8,t1,t4,t3);}} /* k4676 in *hash-table-update!/default in k2723 in k2718 in k1714 */ static void C_ccall f_4678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_4678,2,av);} a=C_alloc(11); t2=C_slot(((C_word*)t0)[2],C_fix(10)); t3=C_slot(((C_word*)t0)[2],C_fix(3)); t4=t3; t5=C_slot(((C_word*)t0)[2],C_fix(1)); t6=t5; t7=C_block_size(t6); t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4693,a[2]=t6,a[3]=((C_word*)t0)[3],a[4]=t4,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],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); /* srfi-69.scm:768: hash */ t9=t2;{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[4]; av2[3]=t7; ((C_proc)C_fast_retrieve_proc(t9))(4,av2);}} /* k2689 in eqv?-hash in k1714 */ static void C_ccall f_2691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2691,2,av);} t2=((C_word*)t0)[2]; t3=C_fix((C_word)C_MOST_POSITIVE_32_BIT_FIXNUM); t4=C_fixnum_lessp(t1,C_fix(0)); t5=(C_truep(t4)?C_fixnum_negate(t1):t1); t6=C_fixnum_and(t3,t5); t7=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_fixnum_modulo(t6,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k4555 in k4552 in loop in k4438 in k4423 in k4344 in k4341 in k4335 in hash-table-update! in k2723 in k2718 in k1714 */ 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 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_4557,2,av);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(1),t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4552 in loop in k4438 in k4423 in k4344 in k4341 in k4335 in hash-table-update! in k2723 in k2718 in k1714 */ 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; 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_4554,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4557,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)); /* srfi-69.scm:754: func */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_slot(((C_word*)t0)[5],C_fix(1)); /* srfi-69.scm:757: loop */ t3=((C_word*)((C_word*)t0)[6])[1]; f_4517(t3,((C_word*)t0)[3],t2);}} /* a5702 in g1236 in k5687 in alist->hash-table in k5052 in k2723 in k2718 in k1714 */ 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=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_5703,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4691 in k4676 in *hash-table-update!/default in k2723 in k2718 in k1714 */ 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 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_4693,2,av);} a=C_alloc(15); t2=t1; t3=C_slot(((C_word*)t0)[2],t2); t4=t3; t5=C_eqp(((C_word*)t0)[3],((C_word*)t0)[4]); if(C_truep(t5)){ 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|11,a[1]=(C_word)f_4707,a[2]=((C_word*)t0)[5],a[3]=t4,a[4]=((C_word*)t0)[2],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)[9],a[10]=t7,a[11]=((C_word)li50),tmp=(C_word)a,a+=12,tmp)); t9=((C_word*)t7)[1]; f_4707(t9,((C_word*)t0)[10],t4);} 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|12,a[1]=(C_word)f_4766,a[2]=((C_word*)t0)[5],a[3]=t4,a[4]=((C_word*)t0)[2],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)[9],a[10]=t7,a[11]=((C_word*)t0)[4],a[12]=((C_word)li51),tmp=(C_word)a,a+=13,tmp)); t9=((C_word*)t7)[1]; f_4766(t9,((C_word*)t0)[10],t4);}} /* hash-table-keys in k5052 in k2723 in k2718 in k1714 */ 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=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(8,c,4)))){ C_save_and_reclaim((void *)f_5736,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[37],lf[105]); t4=C_slot(t2,C_fix(1)); 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_5751,a[2]=t7,a[3]=t5,a[4]=t9,a[5]=((C_word)li84),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_5751(t11,t1,C_fix(0),C_SCHEME_END_OF_LIST);} /* *hash-table-update!/default in k2723 in k2718 in k1714 */ static void C_fcall f_4598(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(24,0,2)))){ C_save_and_reclaim_args((void *)trf_4598,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(24); t6=C_slot(t2,C_fix(2)); t7=C_fixnum_plus(t6,C_fix(1)); t8=t7; t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4678,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t8,a[6]=t4,a[7]=t5,a[8]=t1,tmp=(C_word)a,a+=9,tmp); t10=t9; t11=t2; t12=t8; t13=C_slot(t11,C_fix(1)); t14=t13; t15=C_slot(t11,C_fix(5)); t16=C_slot(t11,C_fix(6)); t17=t16; t18=C_block_size(t14); t19=t18; t20=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4627,a[2]=t10,a[3]=t11,a[4]=t14,a[5]=t19,a[6]=t12,a[7]=t17,tmp=(C_word)a,a+=8,tmp); t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4671,a[2]=t20,tmp=(C_word)a,a+=3,tmp); t22=C_a_i_times(&a,2,t19,t15); /* srfi-69.scm:664: floor */ t23=*((C_word*)lf[86]+1);{ C_word av2[3]; av2[0]=t23; av2[1]=t21; av2[2]=t22; ((C_proc)(void*)(*((C_word*)t23+1)))(3,av2);}} /* a6081 in k2723 in k2718 in k1714 */ static void C_ccall f_6082(C_word c,C_word *av){ C_word tmp; C_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_6082,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; t5=C_i_nullp(t4); t6=(C_truep(t5)?(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6202,a[2]=t3,a[3]=t2,a[4]=((C_word)li102),tmp=(C_word)a,a+=5,tmp):C_i_car(t4)); t7=t6; t8=C_i_check_structure_2(t2,lf[37],lf[93]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6092,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t7,a[5]=t3,a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* srfi-69.scm:848: ##sys#check-closure */ t10=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=t7; av2[3]=lf[93]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} /* k4800 in k4797 in loop in k4691 in k4676 in *hash-table-update!/default in k2723 in k2718 in k1714 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4802,2,av);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(1),t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5284 in hash-table-delete! in k5052 in k2723 in k2718 in k1714 */ 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 t4; C_word t5; C_word 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,c,4)))){ C_save_and_reclaim((void *)f_5286,2,av);} a=C_alloc(12); t2=t1; t3=C_slot(((C_word*)t0)[2],C_fix(3)); t4=t3; t5=C_slot(((C_word*)t0)[2],C_fix(2)); t6=C_fixnum_difference(t5,C_fix(1)); t7=t6; t8=C_slot(((C_word*)t0)[3],t2); t9=C_eqp(((C_word*)t0)[4],t4); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5306,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=t7,a[7]=((C_word)li63),tmp=(C_word)a,a+=8,tmp); t11=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=( f_5306(t10,C_SCHEME_FALSE,t8) ); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} 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|9,a[1]=(C_word)f_5353,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t7,a[6]=t11,a[7]=t4,a[8]=((C_word*)t0)[5],a[9]=((C_word)li64),tmp=(C_word)a,a+=10,tmp)); t13=((C_word*)t11)[1]; f_5353(t13,((C_word*)t0)[6],C_SCHEME_FALSE,t8);}} /* k3309 in string-hash in k2723 in k2718 in k1714 */ static void C_ccall f_3311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3311,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3314,a[2]=((C_word*)t0)[2],a[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]); /* srfi-69.scm:361: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[26]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(0); av2[4]=t3; av2[5]=lf[24]; tp(6,av2);}} /* k3312 in k3309 in string-hash in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3314,2,av);} /* srfi-69.scm:362: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[25]+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);}} /* hash-table-update!/default in k2723 in k2718 in k1714 */ 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=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(7,c,3)))){ C_save_and_reclaim((void *)f_4826,6,av);} a=C_alloc(7); t6=C_i_check_structure_2(t2,lf[37],lf[90]); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4833,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); /* srfi-69.scm:800: ##sys#check-closure */ t8=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=t4; av2[3]=lf[90]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k4543 in loop in k4438 in k4423 in k4344 in k4341 in k4335 in hash-table-update! in k2723 in k2718 in k1714 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4545,2,av);} /* srfi-69.scm:748: func */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3615 in k3605 in *make-hash-table in k2723 in k2718 in k1714 */ static void C_ccall f_3617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3617,2,av);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(10),t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* vector-hash in *equal?-hash in k2723 in k2718 in k1714 */ static void C_fcall f_2730(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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){ C_save_and_reclaim_args((void *)trf_2730,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(10); t7=C_block_size(t2); t8=C_fixnum_xor(t3,t6); t9=C_fixnum_plus(t7,t8); t10=C_i_fixnum_min(*((C_word*)lf[19]+1),t7); t11=C_i_fixnum_max(t5,t10); t12=C_fixnum_difference(t11,t5); 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_2747,a[2]=t14,a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=t6,a[7]=((C_word)li8),tmp=(C_word)a,a+=8,tmp)); t16=((C_word*)t14)[1]; f_2747(t16,t1,t9,t5,t12);} /* make-hash-table in k2723 in k2718 in k1714 */ static void C_ccall f_3628(C_word c,C_word *av){ C_word tmp; C_word t0=av[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 +48,c,2)))){ C_save_and_reclaim((void*)f_3628,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+48); 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; t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=*((C_word*)lf[41]+1); 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_fix(307); 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=lf[46]; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=lf[47]; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_3630,a[2]=((C_word*)t0)[2],a[3]=t6,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); t18=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_3706,a[2]=t10,a[3]=t8,a[4]=t1,a[5]=t6,a[6]=t14,a[7]=t16,a[8]=t12,a[9]=t17,a[10]=((C_word*)t0)[7],a[11]=t2,a[12]=t4,tmp=(C_word)a,a+=13,tmp); if(C_truep(C_i_nullp(((C_word*)t4)[1]))){ t19=t18; f_3706(t19,C_SCHEME_UNDEFINED);} else{ t19=C_i_car(((C_word*)t4)[1]); t20=t19; t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3987,a[2]=t18,a[3]=t6,a[4]=t20,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* srfi-69.scm:509: keyword? */ t22=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t22; av2[1]=t21; av2[2]=t20; ((C_proc)(void*)(*((C_word*)t22+1)))(3,av2);}}} /* k4919 in hash-table-set! in k2723 in k2718 in k1714 */ static void C_ccall f_4921(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_4921,2,av);} a=C_alloc(10); t2=C_slot(((C_word*)t0)[2],C_fix(10)); t3=C_slot(((C_word*)t0)[2],C_fix(3)); t4=t3; t5=C_slot(((C_word*)t0)[2],C_fix(1)); t6=t5; t7=C_block_size(t6); t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4936,a[2]=t6,a[3]=((C_word*)t0)[3],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)[2],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); /* srfi-69.scm:813: hash */ t9=t2;{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[5]; av2[3]=t7; ((C_proc)C_fast_retrieve_proc(t9))(4,av2);}} /* k4912 in hash-table-set! in k2723 in k2718 in k1714 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4914,2,av);} if(C_truep(C_immp(t1))){ t2=((C_word*)t0)[2]; f_4870(t2,t1);} else{ t2=C_i_inexact_to_exact(t1); t3=((C_word*)t0)[2]; f_4870(t3,t2);}} /* loop in k6102 in k6090 in a6081 in k2723 in k2718 in k1714 */ static void C_fcall f_6161(C_word t0,C_word 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_6161,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ /* srfi-69.scm:865: def */ t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} else{ t3=C_slot(t2,C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6180,a[2]=t1,a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t6=C_slot(t4,C_fix(0)); /* srfi-69.scm:867: test */ t7=((C_word*)t0)[4];{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=t6; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}} /* k3605 in *make-hash-table in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_3607,2,av);} a=C_alloc(16); t2=C_a_i_record(&a,11,lf[37],t1,C_fix(0),((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[6],C_SCHEME_FALSE); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3617,a[2]=t3,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); /* srfi-69.scm:454: *make-hash-function */ t5=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4904 in k4868 in hash-table-set! in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4906,2,av);} if(C_truep(C_immp(t1))){ t2=((C_word*)t0)[2]; f_4881(t2,t1);} else{ t2=C_i_inexact_to_exact(t1); t3=((C_word*)t0)[2]; f_4881(t3,t2);}} /* *make-hash-table in k2723 in k2718 in k1714 */ static void C_fcall f_3603(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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_3603,8,t1,t2,t3,t4,t5,t6,t7,t8);} a=C_alloc(8); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3607,a[2]=t2,a[3]=t3,a[4]=t5,a[5]=t6,a[6]=t7,a[7]=t1,tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_nullp(t8))){ /* srfi-69.scm:451: make-vector */ t10=*((C_word*)lf[38]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t9; av2[2]=t4; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t10=t9;{ C_word av2[2]; av2[0]=t10; av2[1]=C_i_car(t8); f_3607(2,av2);}}} /* *equal?-hash in k2723 in k2718 in k1714 */ static void C_fcall f_2727(C_word t1,C_word 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(13,0,7)))){ C_save_and_reclaim_args((void *)trf_2727,3,t1,t2,t3);} a=C_alloc(13); 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_2730,a[2]=t7,a[3]=((C_word)li9),tmp=(C_word)a,a+=4,tmp)); t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2803,a[2]=t7,a[3]=t5,a[4]=((C_word)li13),tmp=(C_word)a,a+=5,tmp)); /* srfi-69.scm:343: recursive-hash */ t10=((C_word*)t7)[1]; f_2803(t10,t1,t2,C_fix(0),t3);} /* k2723 in k2718 in k1714 */ 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 t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(107,c,9)))){ C_save_and_reclaim((void *)f_2725,2,av);} a=C_alloc(107); t2=C_mutate2((C_word*)lf[20]+1 /* (set! recursive-hash-max-length ...) */,t1); t3=C_mutate2(&lf[2] /* (set! *equal?-hash ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2727,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[22]+1 /* (set! equal?-hash ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3162,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[23]+1 /* (set! hash ...) */,*((C_word*)lf[22]+1)); t6=C_mutate2((C_word*)lf[24]+1 /* (set! string-hash ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3237,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[27]+1 /* (set! string-ci-hash ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3378,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[28]+1 /* (set! string-hash-ci ...) */,*((C_word*)lf[27]+1)); t9=C_mutate2(&lf[29] /* (set! constant667 ...) */,lf[30]); t10=C_mutate2(&lf[31] /* (set! hash-table-canonical-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3521,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t11=*((C_word*)lf[14]+1); t12=*((C_word*)lf[16]+1); t13=*((C_word*)lf[22]+1); t14=*((C_word*)lf[23]+1); t15=*((C_word*)lf[24]+1); t16=*((C_word*)lf[28]+1); t17=*((C_word*)lf[3]+1); t18=*((C_word*)lf[7]+1); t19=*((C_word*)lf[8]+1); t20=*((C_word*)lf[13]+1); t21=C_mutate2((C_word*)lf[32]+1 /* (set! *make-hash-function ...) */,(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_3551,a[2]=t11,a[3]=t12,a[4]=t13,a[5]=t14,a[6]=t15,a[7]=t16,a[8]=t17,a[9]=t18,a[10]=t19,a[11]=t20,a[12]=((C_word)li23),tmp=(C_word)a,a+=13,tmp)); t22=C_mutate2(&lf[36] /* (set! *make-hash-table ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3603,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); t23=*((C_word*)lf[39]+1); t24=*((C_word*)lf[40]+1); t25=*((C_word*)lf[41]+1); t26=*((C_word*)lf[42]+1); t27=*((C_word*)lf[43]+1); t28=*((C_word*)lf[44]+1); t29=*((C_word*)lf[14]+1); t30=*((C_word*)lf[16]+1); t31=*((C_word*)lf[22]+1); t32=*((C_word*)lf[23]+1); t33=*((C_word*)lf[24]+1); t34=*((C_word*)lf[28]+1); t35=*((C_word*)lf[3]+1); t36=C_mutate2((C_word*)lf[45]+1 /* (set! make-hash-table ...) */,(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_3628,a[2]=t23,a[3]=t29,a[4]=t24,a[5]=t30,a[6]=t25,a[7]=t31,a[8]=t26,a[9]=t33,a[10]=t27,a[11]=t34,a[12]=t28,a[13]=t35,a[14]=((C_word)li28),tmp=(C_word)a,a+=15,tmp)); t37=C_mutate2((C_word*)lf[72]+1 /* (set! hash-table? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3997,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate2((C_word*)lf[73]+1 /* (set! hash-table-size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4003,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate2((C_word*)lf[74]+1 /* (set! hash-table-equivalence-function ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4012,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate2((C_word*)lf[75]+1 /* (set! hash-table-hash-function ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4021,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp)); t41=C_mutate2((C_word*)lf[76]+1 /* (set! hash-table-min-load ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4030,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp)); t42=C_mutate2((C_word*)lf[77]+1 /* (set! hash-table-max-load ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4039,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); t43=C_mutate2((C_word*)lf[78]+1 /* (set! hash-table-weak-keys ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4048,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp)); t44=C_mutate2((C_word*)lf[79]+1 /* (set! hash-table-weak-values ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4057,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); t45=C_mutate2((C_word*)lf[80]+1 /* (set! hash-table-has-initial? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4066,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp)); t46=C_mutate2((C_word*)lf[81]+1 /* (set! hash-table-initial ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4078,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); t47=C_mutate2((C_word*)lf[82]+1 /* (set! hash-table-resize! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4172,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp)); t48=C_mutate2(&lf[83] /* (set! *hash-table-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4198,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); t49=C_mutate2((C_word*)lf[84]+1 /* (set! hash-table-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4324,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp)); t50=*((C_word*)lf[39]+1); t51=C_mutate2((C_word*)lf[85]+1 /* (set! hash-table-update! ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4333,a[2]=t50,a[3]=((C_word)li49),tmp=(C_word)a,a+=4,tmp)); t52=*((C_word*)lf[39]+1); t53=C_mutate2(&lf[89] /* (set! *hash-table-update!/default ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4598,a[2]=t52,a[3]=((C_word)li52),tmp=(C_word)a,a+=4,tmp)); t54=C_mutate2((C_word*)lf[90]+1 /* (set! hash-table-update!/default ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4826,a[2]=((C_word)li53),tmp=(C_word)a,a+=3,tmp)); t55=*((C_word*)lf[39]+1); t56=C_mutate2((C_word*)lf[91]+1 /* (set! hash-table-set! ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4838,a[2]=t55,a[3]=((C_word)li56),tmp=(C_word)a,a+=4,tmp)); t57=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5054,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t58=*((C_word*)lf[39]+1); t59=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6082,a[2]=t58,a[3]=((C_word)li105),tmp=(C_word)a,a+=4,tmp); /* srfi-69.scm:841: getter-with-setter */ t60=*((C_word*)lf[119]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t60; av2[1]=t57; av2[2]=t59; av2[3]=*((C_word*)lf[91]+1); av2[4]=lf[120]; ((C_proc)(void*)(*((C_word*)t60+1)))(5,av2);}} /* k2718 in k1714 */ static void C_ccall f_2720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2720,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[18]+1 /* (set! recursive-hash-max-depth ...) */,t1); t3=C_set_block_item(lf[19] /* *recursive-hash-max-length* */,0,C_fix(4)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2725,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6211,a[2]=((C_word)li106),tmp=(C_word)a,a+=3,tmp); /* srfi-69.scm:279: make-parameter */ t6=*((C_word*)lf[121]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=C_fix(4); av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* loop in k6102 in k6090 in a6081 in k2723 in k2718 in k1714 */ static void C_fcall f_6119(C_word t0,C_word t1,C_word t2){ C_word 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(0,0,2)))){ C_save_and_reclaim_args((void *)trf_6119,3,t0,t1,t2);} if(C_truep(C_i_nullp(t2))){ /* srfi-69.scm:857: def */ t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} else{ t3=C_slot(t2,C_fix(0)); t4=C_slot(t3,C_fix(0)); t5=C_eqp(((C_word*)t0)[3],t4); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(t3,C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_slot(t2,C_fix(1)); /* srfi-69.scm:861: loop */ t8=t1; t9=t6; t1=t8; t2=t9; goto loop;}}} /* k5993 in fold2 in loop in *hash-table-fold in k5052 in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5995,2,av);} /* srfi-69.scm:1101: fold2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_5967(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* eq?-hash in k1714 */ 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 *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_2331,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; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_fix(536870912):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)?lf[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_check_exact_2(t6,lf[14]); t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2379,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnump(t2))){ t15=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=C_fixnum_xor(t2,t10); f_2379(2,av2);}} else{ if(C_truep(C_charp(t2))){ t15=C_fix(C_character_code(t2)); t16=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=C_fixnum_xor(t15,t10); f_2379(2,av2);}} else{ switch(t2){ case C_SCHEME_TRUE: t15=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=C_fixnum_xor(C_fix(256),t10); f_2379(2,av2);} case C_SCHEME_FALSE: t15=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=C_fixnum_xor(C_fix(257),t10); f_2379(2,av2);} default: if(C_truep(C_i_nullp(t2))){ t15=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=C_fixnum_xor(C_fix(258),t10); f_2379(2,av2);}} else{ if(C_truep(C_eofp(t2))){ t15=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=C_fixnum_xor(C_fix(259),t10); f_2379(2,av2);}} else{ if(C_truep(C_i_symbolp(t2))){ t15=C_slot(t2,C_fix(1)); t16=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=C_u_i_string_hash(t15,t10); f_2379(2,av2);}} else{ if(C_truep(C_blockp(t2))){ /* srfi-69.scm:168: *equal?-hash */ f_2727(t14,t2,t10);} else{ t15=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=C_fixnum_xor(C_fix(262),t10); f_2379(2,av2);}}}}}}}}} /* string-ci-hash in k2723 in k2718 in k1714 */ static void C_ccall f_3378(C_word c,C_word *av){ C_word tmp; C_word 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,5)))){ C_save_and_reclaim((void*)f_3378,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; C_word 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_fix(536870912):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_FALSE:C_i_car(t13)); t16=C_i_nullp(t13); t17=(C_truep(t16)?C_SCHEME_END_OF_LIST:C_i_cdr(t13)); t18=C_i_nullp(t17); t19=(C_truep(t18)?lf[0]: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_string_2(t2,lf[27]); t24=C_i_check_exact_2(t6,lf[27]); t25=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3412,a[2]=t20,a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); if(C_truep(t11)){ t26=(C_truep(t15)?t15:C_block_size(t2)); t27=t26; t28=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3452,a[2]=t25,a[3]=t2,a[4]=t11,a[5]=t27,tmp=(C_word)a,a+=6,tmp); t29=C_block_size(t2); /* srfi-69.scm:372: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[26]+1); av2[1]=t28; av2[2]=t11; av2[3]=C_fix(0); av2[4]=t29; av2[5]=lf[24]; tp(6,av2);}} else{ t26=t25;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t26; av2[1]=t2; f_3412(2,av2);}}} /* k6102 in k6090 in a6081 in k2723 in k2718 in k1714 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_6104,2,av);} a=C_alloc(9); t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]); if(C_truep(t2)){ t3=C_slot(((C_word*)t0)[4],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_6119,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t5,a[5]=((C_word)li103),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_6119(t7,((C_word*)t0)[7],t3);} else{ t3=C_slot(((C_word*)t0)[4],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|6,a[1]=(C_word)f_6161,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word)li104),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_6161(t7,((C_word*)t0)[7],t3);}} /* loop in k4934 in k4919 in hash-table-set! in k2723 in k2718 in k1714 */ static void C_fcall f_4953(C_word t0,C_word t1,C_word t2){ C_word 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(6,0,2)))){ C_save_and_reclaim_args((void *)trf_4953,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[4]); t5=C_i_setslot(((C_word*)t0)[5],((C_word*)t0)[6],t4); t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_i_set_i_slot(((C_word*)t0)[7],C_fix(2),((C_word*)t0)[8]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t3=C_slot(t2,C_fix(0)); t4=C_slot(t3,C_fix(0)); t5=C_eqp(((C_word*)t0)[2],t4); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_i_setslot(t3,C_fix(1),((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_slot(t2,C_fix(1)); /* srfi-69.scm:825: loop */ t8=t1; t9=t6; t1=t8; t2=t9; goto loop;}}} /* hash-for-test in make-hash-table in k2723 in k2718 in k1714 */ static C_word C_fcall f_3630(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_word t11; C_word t12; C_word t13; C_stack_overflow_check;{} t1=C_eqp(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t2=(C_truep(t1)?t1:C_eqp(*((C_word*)lf[39]+1),((C_word*)((C_word*)t0)[3])[1])); if(C_truep(t2)){ return(((C_word*)t0)[4]);} else{ t3=C_eqp(((C_word*)t0)[5],((C_word*)((C_word*)t0)[3])[1]); t4=(C_truep(t3)?t3:C_eqp(*((C_word*)lf[40]+1),((C_word*)((C_word*)t0)[3])[1])); if(C_truep(t4)){ return(((C_word*)t0)[6]);} else{ t5=C_eqp(((C_word*)t0)[7],((C_word*)((C_word*)t0)[3])[1]); t6=(C_truep(t5)?t5:C_eqp(*((C_word*)lf[41]+1),((C_word*)((C_word*)t0)[3])[1])); if(C_truep(t6)){ return(((C_word*)t0)[8]);} else{ t7=C_eqp(((C_word*)t0)[9],((C_word*)((C_word*)t0)[3])[1]); t8=(C_truep(t7)?t7:C_eqp(*((C_word*)lf[42]+1),((C_word*)((C_word*)t0)[3])[1])); if(C_truep(t8)){ return(((C_word*)t0)[10]);} else{ t9=C_eqp(((C_word*)t0)[11],((C_word*)((C_word*)t0)[3])[1]); t10=(C_truep(t9)?t9:C_eqp(*((C_word*)lf[43]+1),((C_word*)((C_word*)t0)[3])[1])); if(C_truep(t10)){ return(((C_word*)t0)[12]);} else{ t11=C_eqp(((C_word*)t0)[13],((C_word*)((C_word*)t0)[3])[1]); if(C_truep(t11)){ return((C_truep(t11)?((C_word*)t0)[14]:C_SCHEME_FALSE));} else{ t12=C_eqp(*((C_word*)lf[44]+1),((C_word*)((C_word*)t0)[3])[1]); return((C_truep(t12)?((C_word*)t0)[14]:C_SCHEME_FALSE));}}}}}}} /* k4831 in hash-table-update!/default in k2723 in k2718 in k1714 */ static void C_ccall f_4833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4833,2,av);} /* srfi-69.scm:801: *hash-table-update!/default */ t2=lf[89]; f_4598(t2,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* hash-table-set! in k2723 in k2718 in k1714 */ 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=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 t22; C_word t23; 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(23,c,2)))){ C_save_and_reclaim((void *)f_4838,5,av);} a=C_alloc(23); t5=C_i_check_structure_2(t2,lf[37],lf[91]); t6=C_slot(t2,C_fix(2)); t7=C_fixnum_plus(t6,C_fix(1)); t8=t7; t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4921,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t4,a[7]=t8,tmp=(C_word)a,a+=8,tmp); t10=t9; t11=t2; t12=t8; t13=C_slot(t11,C_fix(1)); t14=t13; t15=C_slot(t11,C_fix(5)); t16=C_slot(t11,C_fix(6)); t17=t16; t18=C_block_size(t14); t19=t18; t20=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4870,a[2]=t10,a[3]=t11,a[4]=t14,a[5]=t19,a[6]=t12,a[7]=t17,tmp=(C_word)a,a+=8,tmp); t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4914,a[2]=t20,tmp=(C_word)a,a+=3,tmp); t22=C_a_i_times(&a,2,t19,t15); /* srfi-69.scm:664: floor */ t23=*((C_word*)lf[86]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t23; av2[1]=t21; av2[2]=t22; ((C_proc)(void*)(*((C_word*)t23+1)))(3,av2);}} /* loop in k4438 in k4423 in k4344 in k4341 in k4335 in hash-table-update! in k2723 in k2718 in k1714 */ 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 t7; 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_4517,3,t0,t1,t2);} a=C_alloc(13); if(C_truep(C_i_nullp(t2))){ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4527,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,tmp=(C_word)a,a+=9,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4545,a[2]=((C_word*)t0)[8],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-69.scm:748: thunk */ t5=((C_word*)t0)[9];{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)C_fast_retrieve_proc(t5))(2,av2);}} else{ t3=C_slot(t2,C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4554,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[8],a[5]=t2,a[6]=((C_word*)t0)[10],tmp=(C_word)a,a+=7,tmp); t6=C_slot(t4,C_fix(0)); /* srfi-69.scm:753: test */ t7=((C_word*)t0)[11];{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=t6; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}} /* fold2 in loop in *hash-table-fold in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5967(C_word t0,C_word t1,C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_5967,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t4=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-69.scm:1099: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_5951(t5,t1,t4,t3);} else{ t4=C_slot(t2,C_fix(0)); t5=C_slot(t2,C_fix(1)); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5995,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); t8=C_slot(t4,C_fix(0)); t9=C_slot(t4,C_fix(1)); /* srfi-69.scm:1102: func */ t10=((C_word*)t0)[5];{ C_word av2[5]; av2[0]=t10; av2[1]=t7; av2[2]=t8; av2[3]=t9; av2[4]=t3; ((C_proc)C_fast_retrieve_proc(t10))(5,av2);}}} /* k4940 in k4934 in k4919 in hash-table-set! in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4942,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[92]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4934 in k4919 in hash-table-set! in k2723 in k2718 in k1714 */ 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 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,c,3)))){ C_save_and_reclaim((void *)f_4936,2,av);} a=C_alloc(17); t2=t1; t3=C_slot(((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4942,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t6=C_eqp(((C_word*)t0)[4],((C_word*)t0)[5]); if(C_truep(t6)){ 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_4953,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=t2,a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=t8,a[10]=((C_word)li54),tmp=(C_word)a,a+=11,tmp)); t10=((C_word*)t8)[1]; f_4953(t10,t5,t4);} 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|11,a[1]=(C_word)f_5002,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=t2,a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=t8,a[10]=((C_word*)t0)[5],a[11]=((C_word)li55),tmp=(C_word)a,a+=12,tmp)); t10=((C_word*)t8)[1]; f_5002(t10,t5,t4);}} /* loop in vector-hash in *equal?-hash in k2723 in k2718 in k1714 */ static void C_fcall f_2747(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,4)))){ C_save_and_reclaim_args((void *)trf_2747,5,t0,t1,t2,t3,t4);} a=C_alloc(8); t5=C_eqp(t4,C_fix(0)); if(C_truep(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{ t6=C_fixnum_shift_left(t2,C_fix(4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2781,a[2]=t7,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=((C_word*)t0)[2],a[7]=t1,tmp=(C_word)a,a+=8,tmp); t9=C_slot(((C_word*)t0)[3],t3); t10=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); /* srfi-69.scm:317: recursive-hash */ t11=((C_word*)((C_word*)t0)[5])[1]; f_2803(t11,t8,t9,t10,((C_word*)t0)[6]);}} /* k4797 in loop in k4691 in k4676 in *hash-table-update!/default in k2723 in k2718 in k1714 */ 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 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_4799,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4802,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)); /* srfi-69.scm:793: func */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_slot(((C_word*)t0)[5],C_fix(1)); /* srfi-69.scm:796: loop */ t3=((C_word*)((C_word*)t0)[6])[1]; f_4766(t3,((C_word*)t0)[3],t2);}} /* loop in k5176 in hash-table-exists? in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5233(C_word 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_5233,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_slot(t2,C_fix(0)); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5246,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=C_slot(t3,C_fix(0)); /* srfi-69.scm:918: test */ t6=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t6; av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=t5; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}}} /* k4774 in loop in k4691 in k4676 in *hash-table-update!/default in k2723 in k2718 in k1714 */ 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 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_4776,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]); t4=C_i_setslot(((C_word*)t0)[4],((C_word*)t0)[5],t3); t5=C_i_set_i_slot(((C_word*)t0)[6],C_fix(2),((C_word*)t0)[7]); t6=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k6178 in loop in k6102 in k6090 in a6081 in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6180,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_slot(((C_word*)t0)[3],C_fix(1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_slot(((C_word*)t0)[4],C_fix(1)); /* srfi-69.scm:869: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_6161(t3,((C_word*)t0)[2],t2);}} /* f_6202 in a6081 in k2723 in k2718 in k1714 */ 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 *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_6202,2,av);} /* srfi-69.scm:844: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=t1; av2[2]=lf[87]; av2[3]=lf[93]; av2[4]=lf[118]; av2[5]=((C_word*)t0)[2]; av2[6]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k3116 in recursive-hash in *equal?-hash in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3118,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?C_fixnum_plus(((C_word*)t0)[3],C_fix(260)):C_fixnum_plus(((C_word*)t0)[3],C_fix(261))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2377 in eq?-hash in k1714 */ 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 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_2379,2,av);} t2=((C_word*)t0)[2]; t3=C_fix((C_word)C_MOST_POSITIVE_32_BIT_FIXNUM); t4=C_fixnum_lessp(t1,C_fix(0)); t5=(C_truep(t4)?C_fixnum_negate(t1):t1); t6=C_fixnum_and(t3,t5); t7=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_fixnum_modulo(t6,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k5140 in loop in k5070 in hash-table-ref/default in k5052 in k2723 in k2718 in k1714 */ static void C_ccall f_5142(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5142,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_slot(((C_word*)t0)[3],C_fix(1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_slot(((C_word*)t0)[4],C_fix(1)); /* srfi-69.scm:897: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_5126(t3,((C_word*)t0)[2],t2);}} /* g533 in recursive-hash in *equal?-hash in k2723 in k2718 in k1714 */ static void C_fcall f_3138(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(0,0,6)))){ C_save_and_reclaim_args((void *)trf_3138,4,t0,t1,t2,t3);} t4=C_peek_fixnum(t2,C_fix(0)); /* srfi-69.scm:300: vector-hash */ t5=((C_word*)((C_word*)t0)[2])[1]; f_2730(t5,t1,t2,t4,((C_word*)t0)[3],C_fix(1),t3);} /* k5465 in loop in doloop1168 in k5406 in hash-table-remove! in k5052 in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5467,2,av);} if(C_truep(t1)){ t2=(C_truep(((C_word*)t0)[2])?C_i_setslot(((C_word*)t0)[2],C_fix(1),((C_word*)t0)[3]):C_i_setslot(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[3])); t3=C_fixnum_difference(((C_word*)((C_word*)t0)[6])[1],C_fix(1)); t4=C_set_block_item(((C_word*)t0)[6],0,t3); t5=((C_word*)t0)[7];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* srfi-69.scm:983: loop */ t2=((C_word*)((C_word*)t0)[8])[1]; f_5448(t2,((C_word*)t0)[7],((C_word*)t0)[9],((C_word*)t0)[3]);}} /* k4209 in k4206 in *hash-table-copy in k2723 in k2718 in k1714 */ 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 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_4211,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_i_setslot(t1,C_fix(2),t2); t4=C_slot(((C_word*)t0)[2],C_fix(10)); t5=C_i_setslot(t1,C_fix(10),t4); t6=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* loop in k5176 in hash-table-exists? in k5052 in k2723 in k2718 in k1714 */ static C_word C_fcall f_5193(C_word t0,C_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_slot(t1,C_fix(0)); t3=C_slot(t2,C_fix(0)); t4=C_eqp(((C_word*)t0)[2],t3); if(C_truep(t4)){ return(t4);} else{ t5=C_slot(t1,C_fix(1)); t7=t5; t1=t7; goto loop;}}} /* k4206 in *hash-table-copy in k2723 in k2718 in k1714 */ 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 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_4208,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4211,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|7,a[1]=(C_word)f_4227,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t5,a[6]=((C_word*)t0)[5],a[7]=((C_word)li43),tmp=(C_word)a,a+=8,tmp)); t7=((C_word*)t5)[1]; f_4227(t7,t3,C_fix(0));} /* k2779 in loop in vector-hash in *equal?-hash in k2723 in k2718 in k1714 */ 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; C_word t3; 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,4)))){ C_save_and_reclaim((void *)f_2781,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],t1); t3=C_fixnum_plus(((C_word*)t0)[3],t2); t4=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); t5=C_fixnum_difference(((C_word*)t0)[5],C_fix(1)); /* srfi-69.scm:315: loop */ t6=((C_word*)((C_word*)t0)[6])[1]; f_2747(t6,((C_word*)t0)[7],t3,t4,t5);} /* k3208 in equal?-hash in k2723 in k2718 in k1714 */ 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 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_3210,2,av);} t2=((C_word*)t0)[2]; t3=C_fix((C_word)C_MOST_POSITIVE_32_BIT_FIXNUM); t4=C_fixnum_lessp(t1,C_fix(0)); t5=(C_truep(t4)?C_fixnum_negate(t1):t1); t6=C_fixnum_and(t3,t5); t7=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_fixnum_modulo(t6,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* hash-table-exists? in k5052 in k2723 in k2718 in k1714 */ 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=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(7,c,3)))){ C_save_and_reclaim((void *)f_5162,4,av);} a=C_alloc(7); t4=C_i_check_structure_2(t2,lf[37],lf[95]); t5=C_slot(t2,C_fix(1)); t6=t5; t7=C_slot(t2,C_fix(3)); t8=t7; t9=C_slot(t2,C_fix(10)); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5178,a[2]=((C_word*)t0)[2],a[3]=t8,a[4]=t6,a[5]=t3,a[6]=t1,tmp=(C_word)a,a+=7,tmp); t11=C_block_size(t6); /* srfi-69.scm:906: hash */ t12=t9;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t10; av2[2]=t3; av2[3]=t11; ((C_proc)C_fast_retrieve_proc(t12))(4,av2);}} /* hash-table-clear! in k5052 in k2723 in k2718 in k1714 */ 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=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_5497,3,av);} a=C_alloc(4); t3=C_i_check_structure_2(t2,lf[37],lf[98]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5504,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_slot(t2,C_fix(1)); /* srfi-69.scm:989: vector-fill! */ t6=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(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);}} /* k5176 in hash-table-exists? in k5052 in k2723 in k2718 in k1714 */ 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 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_5178,2,av);} a=C_alloc(8); t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]); if(C_truep(t2)){ t3=C_slot(((C_word*)t0)[4],t1); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5193,a[2]=((C_word*)t0)[5],a[3]=((C_word)li60),tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=( f_5193(t4,t3) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=C_slot(((C_word*)t0)[4],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_5233,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word)li61),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_5233(t7,((C_word*)t0)[6],t3);}} /* recursive-hash in *equal?-hash in k2723 in k2718 in k1714 */ static void C_fcall f_2803(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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_2803,5,t0,t1,t2,t3,t4);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(t3,*((C_word*)lf[17]+1)))){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_fixnum_xor(C_fix(99),t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_fixnump(t2))){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_fixnum_xor(t2,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_charp(t2))){ t5=C_fix(C_character_code(t2)); t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_fixnum_xor(t5,t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ switch(t2){ case C_SCHEME_TRUE: t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_fixnum_xor(C_fix(256),t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);} case C_SCHEME_FALSE: t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_fixnum_xor(C_fix(257),t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);} default: if(C_truep(C_i_nullp(t2))){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_fixnum_xor(C_fix(258),t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_eofp(t2))){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_fixnum_xor(C_fix(259),t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(t2))){ t5=t1; t6=t2; t7=t4; t8=C_slot(t6,C_fix(1)); t9=t5;{ C_word av2[2]; av2[0]=t9; av2[1]=C_u_i_string_hash(t8,t7); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ if(C_truep(C_i_numberp(t2))){ t5=t1; t6=t2; t7=t4; if(C_truep(C_i_flonump(t6))){ t8=C_subbyte(t6,C_fix(7)); t9=C_subbyte(t6,C_fix(6)); t10=C_subbyte(t6,C_fix(5)); t11=C_subbyte(t6,C_fix(4)); t12=C_subbyte(t6,C_fix(3)); t13=C_subbyte(t6,C_fix(2)); t14=C_subbyte(t6,C_fix(1)); t15=C_subbyte(t6,C_fix(0)); t16=C_fixnum_shift_left(t15,C_fix(1)); t17=C_fixnum_plus(t14,t16); t18=C_fixnum_shift_left(t17,C_fix(1)); t19=C_fixnum_plus(t13,t18); t20=C_fixnum_shift_left(t19,C_fix(1)); t21=C_fixnum_plus(t12,t20); t22=C_fixnum_shift_left(t21,C_fix(1)); t23=C_fixnum_plus(t11,t22); t24=C_fixnum_shift_left(t23,C_fix(1)); t25=C_fixnum_plus(t10,t24); t26=C_fixnum_shift_left(t25,C_fix(1)); t27=C_fixnum_plus(t9,t26); t28=C_fixnum_shift_left(t27,C_fix(1)); t29=C_fixnum_plus(t8,t28); t30=t5;{ C_word av2[2]; av2[0]=t30; av2[1]=C_fixnum_times(C_fix(331804471),t29); ((C_proc)(void*)(*((C_word*)t30+1)))(2,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3021,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* srfi-69.scm:148: ##sys#number-hash-hook */ t9=*((C_word*)lf[1]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t8; av2[2]=t6; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}} else{ t5=t2; if(C_truep(C_blockp(t5))){ t6=t2; if(C_truep(C_byteblockp(t6))){ t7=t1; t8=t2; t9=t4; t10=t7;{ C_word av2[2]; av2[0]=t10; av2[1]=C_u_i_string_hash(t8,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t2))){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3059,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li10),tmp=(C_word)a,a+=5,tmp); /* srfi-69.scm:337: g519 */ t8=t7; f_3059(t8,t1,t2,t4);} else{ t7=t2; if(C_truep(C_portp(t7))){ t8=t1; t9=t2; t10=t4; t11=C_peek_fixnum(t9,C_fix(0)); t12=C_fixnum_shift_left(t11,C_fix(4)); t13=C_fixnum_xor(t12,t10); t14=t13; t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3118,a[2]=t8,a[3]=t14,tmp=(C_word)a,a+=4,tmp); /* srfi-69.scm:295: input-port? */ t16=*((C_word*)lf[21]+1);{ C_word av2[3]; av2[0]=t16; av2[1]=t15; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}} else{ t8=t2; if(C_truep(C_specialp(t8))){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3138,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word)li11),tmp=(C_word)a,a+=5,tmp); /* srfi-69.scm:339: g533 */ t10=t9; f_3138(t10,t1,t2,t4);} else{ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3150,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word)li12),tmp=(C_word)a,a+=5,tmp); /* srfi-69.scm:340: g537 */ t10=t9; f_3150(t10,t1,t2,t4);}}}}} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_fixnum_xor(C_fix(262),t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}}}}}}} /* *make-hash-function in k2723 in k2718 in k1714 */ 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=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(41,c,4)))){ C_save_and_reclaim((void *)f_3551,3,av);} a=C_alloc(41); t3=t2; t4=C_a_i_list(&a,10,((C_word*)t0)[2],((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],((C_word*)t0)[11]); if(C_truep(C_u_i_memq(t3,t4))){ t5=C_rnd_fix(); t6=t2; t7=C_a_i_list2(&a,2,((C_word*)t0)[6],((C_word*)t0)[7]); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=(C_truep(C_u_i_memq(t6,t7))?(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3569,a[2]=t2,a[3]=t5,a[4]=((C_word)li20),tmp=(C_word)a,a+=5,tmp):(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3574,a[2]=t2,a[3]=t5,a[4]=((C_word)li21),tmp=(C_word)a,a+=5,tmp)); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3579,a[2]=t2,a[3]=((C_word)li22),tmp=(C_word)a,a+=4,tmp); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* loop in doloop854 in k4180 in k4177 in hash-table-resize! in k2723 in k2718 in k1714 */ static void C_fcall f_4128(C_word t0,C_word t1,C_word 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_4128,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_slot(t2,C_fix(0)); t4=t3; t5=C_slot(t4,C_fix(0)); t6=t5; t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4144,a[2]=t4,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=t1,tmp=(C_word)a,a+=8,tmp); /* srfi-69.scm:643: hash */ t8=((C_word*)t0)[4];{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=t6; av2[3]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t8))(4,av2);}}} /* f_3569 in *make-hash-function in k2723 in k2718 in k1714 */ 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=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,6)))){ C_save_and_reclaim((void *)f_3569,4,av);} /* srfi-69.scm:434: user-function */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=C_SCHEME_FALSE; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t4))(7,av2);}} /* k3269 in string-hash in k2723 in k2718 in k1714 */ static void C_ccall f_3271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3271,2,av);} t2=C_u_i_string_hash(t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3]; t4=C_fix((C_word)C_MOST_POSITIVE_32_BIT_FIXNUM); t5=C_fixnum_lessp(t2,C_fix(0)); t6=(C_truep(t5)?C_fixnum_negate(t2):t2); t7=C_fixnum_and(t4,t6); t8=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_fixnum_modulo(t7,((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* loop2 in loop in hash-table->alist in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5640(C_word t0,C_word t1,C_word 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(6,0,3)))){ C_save_and_reclaim_args((void *)trf_5640,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t4=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-69.scm:1026: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_5624(t5,t1,t4,t3);} else{ t4=C_slot(t2,C_fix(1)); t5=C_slot(t2,C_fix(0)); t6=C_slot(t5,C_fix(0)); t7=C_slot(t5,C_fix(1)); t8=C_a_i_cons(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t8,t3); /* srfi-69.scm:1027: loop2 */ t11=t1; t12=t4; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;}} /* k4113 in doloop854 in k4180 in k4177 in hash-table-resize! in k2723 in k2718 in k1714 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4115,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4105(t3,((C_word*)t0)[4],t2);} /* k3069 in k3081 in g519 in recursive-hash in *equal?-hash in k2723 in k2718 in k1714 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3071,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fixnum_plus(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* doloop1193 in *hash-table-merge! in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5525(C_word t0,C_word t1,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_5525,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ 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);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5535,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(((C_word*)t0)[5],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_5548,a[2]=t6,a[3]=((C_word*)t0)[3],a[4]=((C_word)li71),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_5548(t8,t3,t4);}} /* k3081 in g519 in recursive-hash in *equal?-hash in k2723 in k2718 in k1714 */ 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; 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,4)))){ C_save_and_reclaim((void *)f_3083,2,av);} a=C_alloc(4); t2=C_fixnum_shift_left(t1,C_fix(16)); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3071,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)); /* srfi-69.scm:291: recursive-hash */ t7=((C_word*)((C_word*)t0)[5])[1]; f_2803(t7,t4,t5,t6,((C_word*)t0)[6]);} /* *hash-table-merge! in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5513(C_word t1,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_5513,3,t1,t2,t3);} a=C_alloc(9); t4=C_slot(t3,C_fix(1)); 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|6,a[1]=(C_word)f_5525,a[2]=t7,a[3]=t2,a[4]=t9,a[5]=t5,a[6]=((C_word)li72),tmp=(C_word)a,a+=7,tmp)); t11=((C_word*)t9)[1]; f_5525(t11,t1,C_fix(0));} /* k4183 in k4180 in k4177 in hash-table-resize! in k2723 in k2718 in k1714 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4185,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_setslot(((C_word*)t0)[3],C_fix(1),((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* g519 in recursive-hash in *equal?-hash in k2723 in k2718 in k1714 */ static void C_fcall f_3059(C_word t0,C_word 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_3059,4,t0,t1,t2,t3);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3083,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t3,tmp=(C_word)a,a+=7,tmp); t5=C_slot(t2,C_fix(0)); t6=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-69.scm:290: recursive-hash */ t7=((C_word*)((C_word*)t0)[3])[1]; f_2803(t7,t4,t5,t6,t3);} /* k4625 in *hash-table-update!/default in k2723 in k2718 in k1714 */ static void C_fcall f_4627(C_word 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(15,0,2)))){ C_save_and_reclaim_args((void *)trf_4627,2,t0,t1);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,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],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_4663,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_a_i_times(&a,2,((C_word*)t0)[5],((C_word*)t0)[7]); /* srfi-69.scm:665: floor */ t6=*((C_word*)lf[86]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k4180 in k4177 in hash-table-resize! in k2723 in k2718 in k1714 */ static void C_ccall f_4182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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,c,3)))){ C_save_and_reclaim((void *)f_4182,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4185,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_slot(((C_word*)t0)[3],C_fix(10)); t5=((C_word*)t0)[4]; t6=t2; t7=t4; t8=C_block_size(t5); t9=t8; t10=C_block_size(t6); 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|8,a[1]=(C_word)f_4105,a[2]=t9,a[3]=t13,a[4]=t5,a[5]=t6,a[6]=t7,a[7]=t11,a[8]=((C_word)li40),tmp=(C_word)a,a+=9,tmp)); t15=((C_word*)t13)[1]; f_4105(t15,t3,C_fix(0));} /* loop in hash-table->alist in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5624(C_word t0,C_word t1,C_word 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(8,0,4)))){ C_save_and_reclaim_args((void *)trf_5624,4,t0,t1,t2,t3);} a=C_alloc(8); 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_slot(((C_word*)t0)[3],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_5640,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t6,a[5]=((C_word)li76),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_5640(t8,t1,t4,t3);}} /* k5502 in hash-table-clear! in k5052 in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5504,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_set_i_slot(((C_word*)t0)[3],C_fix(2),C_fix(0)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4177 in hash-table-resize! in k2723 in k2718 in k1714 */ 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 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_4179,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4182,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* srfi-69.scm:653: make-vector */ t3=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* hash-table-resize! in k2723 in k2718 in k1714 */ 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=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,3)))){ C_save_and_reclaim((void *)f_4172,5,av);} a=C_alloc(5); t5=C_fixnum_times(t4,C_fix(2)); t6=C_i_fixnum_min(C_fix(1073741823),t5); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4179,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* srfi-69.scm:652: hash-table-canonical-length */ f_3521(t7,lf[29],t6);} /* loop in hash-table-canonical-length in k2723 in k2718 in k1714 */ static C_word C_fcall f_3527(C_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_slot(t1,C_fix(0)); t3=C_slot(t1,C_fix(1)); t4=C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]); if(C_truep(t4)){ if(C_truep(t4)){ return(t2);} else{ t6=t3; t1=t6; goto loop;}} else{ if(C_truep(C_i_nullp(t3))){ return(t2);} else{ t6=t3; t1=t6; goto loop;}}} /* hash-table-canonical-length in k2723 in k2718 in k1714 */ static void C_fcall f_3521(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_3521,3,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3527,a[2]=t3,a[3]=((C_word)li18),tmp=(C_word)a,a+=4,tmp); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=( f_3527(t4,t2) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k4642 in k4636 in k4625 in *hash-table-update!/default in k2723 in k2718 in k1714 */ static void C_fcall f_4644(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_4644,2,t0,t1);} if(C_truep(t1)){ /* srfi-69.scm:668: hash-table-resize! */ t2=*((C_word*)lf[82]+1);{ C_word av2[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);}} 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);}}} /* k5605 in hash-table-merge in k5052 in k2723 in k2718 in k1714 */ static void C_ccall f_5607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5607,2,av);} /* srfi-69.scm:1012: *hash-table-merge! */ f_5513(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* hash-table->alist in k5052 in k2723 in k2718 in k1714 */ 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=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(8,c,4)))){ C_save_and_reclaim((void *)f_5609,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[37],lf[103]); t4=C_slot(t2,C_fix(1)); 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_5624,a[2]=t7,a[3]=t5,a[4]=t9,a[5]=((C_word)li77),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_5624(t11,t1,C_fix(0),C_SCHEME_END_OF_LIST);} /* doloop881 in k4206 in *hash-table-copy in k2723 in k2718 in k1714 */ static void C_fcall f_4227(C_word t0,C_word t1,C_word t2){ C_word 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,8)))){ C_save_and_reclaim_args((void *)trf_4227,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=C_slot(((C_word*)t0)[3],C_fix(3)); t4=C_slot(((C_word*)t0)[3],C_fix(4)); t5=C_slot(((C_word*)t0)[3],C_fix(2)); t6=C_slot(((C_word*)t0)[3],C_fix(5)); t7=C_slot(((C_word*)t0)[3],C_fix(6)); t8=C_slot(((C_word*)t0)[3],C_fix(9)); /* srfi-69.scm:680: *make-hash-table */ f_3603(t1,t3,t4,t5,t6,t7,t8,C_a_i_list(&a,1,((C_word*)t0)[4]));} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4283,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); t4=C_slot(((C_word*)t0)[6],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_4289,a[2]=t6,a[3]=((C_word)li42),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_4289(t8,t3,t4);}} /* k1739 in number-hash in k1714 */ static void C_ccall f_1741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(7,c,3)))){ C_save_and_reclaim((void *)f_1741,2,av);} a=C_alloc(7); t2=C_i_check_exact_2(((C_word*)t0)[2],lf[3]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1914,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[4]; if(C_truep(C_fixnump(t4))){ t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_fixnum_xor(t4,((C_word*)t0)[5]); f_1914(2,av2);}} else{ t5=t3; if(C_truep(C_i_flonump(t4))){ t6=C_subbyte(t4,C_fix(7)); t7=C_subbyte(t4,C_fix(6)); t8=C_subbyte(t4,C_fix(5)); t9=C_subbyte(t4,C_fix(4)); t10=C_subbyte(t4,C_fix(3)); t11=C_subbyte(t4,C_fix(2)); t12=C_subbyte(t4,C_fix(1)); t13=C_subbyte(t4,C_fix(0)); t14=C_fixnum_shift_left(t13,C_fix(1)); t15=C_fixnum_plus(t12,t14); t16=C_fixnum_shift_left(t15,C_fix(1)); t17=C_fixnum_plus(t11,t16); t18=C_fixnum_shift_left(t17,C_fix(1)); t19=C_fixnum_plus(t10,t18); t20=C_fixnum_shift_left(t19,C_fix(1)); t21=C_fixnum_plus(t9,t20); t22=C_fixnum_shift_left(t21,C_fix(1)); t23=C_fixnum_plus(t8,t22); t24=C_fixnum_shift_left(t23,C_fix(1)); t25=C_fixnum_plus(t7,t24); t26=C_fixnum_shift_left(t25,C_fix(1)); t27=C_fixnum_plus(t6,t26); t28=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t28; av2[1]=C_fixnum_times(C_fix(331804471),t27); ((C_proc)(void*)(*((C_word*)t28+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1908,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* srfi-69.scm:148: ##sys#number-hash-hook */ t7=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=t4; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}} /* k4636 in k4625 in *hash-table-update!/default in k2723 in k2718 in k1714 */ static void C_fcall f_4638(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_4638,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4644,a[2]=((C_word*)t0)[2],a[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(1073741823)))){ t3=C_fixnum_less_or_equal_p(((C_word*)t0)[6],((C_word*)t0)[7]); t4=t2; f_4644(t4,(C_truep(t3)?C_fixnum_less_or_equal_p(((C_word*)t0)[7],t1):C_SCHEME_FALSE));} else{ t3=t2; f_4644(t3,C_SCHEME_FALSE);}} /* k4661 in k4625 in *hash-table-update!/default in k2723 in k2718 in k1714 */ static void C_ccall f_4663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4663,2,av);} if(C_truep(C_immp(t1))){ t2=((C_word*)t0)[2]; f_4638(t2,t1);} else{ t2=C_i_inexact_to_exact(t1); t3=((C_word*)t0)[2]; f_4638(t3,t2);}} /* number-hash in k1714 */ static void C_ccall f_1725(C_word c,C_word *av){ C_word tmp; C_word 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,5)))){ C_save_and_reclaim((void*)f_1725,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(536870912):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)?lf[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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1741,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t11,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_numberp(t2))){ t15=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=C_SCHEME_UNDEFINED; f_1741(2,av2);}} else{ /* srfi-69.scm:157: ##sys#signal-hook */ t15=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t15; av2[1]=t14; av2[2]=lf[5]; av2[3]=lf[3]; av2[4]=lf[6]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t15+1)))(6,av2);}}} /* k4389 in k4383 in k4372 in k4344 in k4341 in k4335 in hash-table-update! in k2723 in k2718 in k1714 */ static void C_fcall f_4391(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_4391,2,t0,t1);} if(C_truep(t1)){ /* srfi-69.scm:668: hash-table-resize! */ t2=*((C_word*)lf[82]+1);{ C_word av2[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);}} 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);}}} /* f_3579 in *make-hash-function in k2723 in k2718 in k1714 */ 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=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_3579,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3583,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* srfi-69.scm:438: user-function */ t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} /* k4383 in k4372 in k4344 in k4341 in k4335 in hash-table-update! in k2723 in k2718 in k1714 */ static void C_fcall f_4385(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_4385,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4391,a[2]=((C_word*)t0)[2],a[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(1073741823)))){ t3=C_fixnum_less_or_equal_p(((C_word*)t0)[6],((C_word*)t0)[7]); t4=t2; f_4391(t4,(C_truep(t3)?C_fixnum_less_or_equal_p(((C_word*)t0)[7],t1):C_SCHEME_FALSE));} else{ t3=t2; f_4391(t3,C_SCHEME_FALSE);}} /* f_3574 in *make-hash-function in k2723 in k2718 in k1714 */ 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=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_3574,4,av);} /* srfi-69.scm:436: user-function */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k5370 in loop in k5284 in hash-table-delete! in k5052 in k2723 in k2718 in k1714 */ static void C_ccall f_5372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_5372,2,av);} if(C_truep(t1)){ t2=(C_truep(((C_word*)t0)[2])?C_i_setslot(((C_word*)t0)[2],C_fix(1),((C_word*)t0)[3]):C_i_setslot(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[3])); t3=C_i_set_i_slot(((C_word*)t0)[6],C_fix(2),((C_word*)t0)[7]); t4=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* srfi-69.scm:960: loop */ t2=((C_word*)((C_word*)t0)[9])[1]; f_5353(t2,((C_word*)t0)[8],((C_word*)t0)[10],((C_word*)t0)[3]);}} /* doloop854 in k4180 in k4177 in hash-table-resize! in k2723 in k2718 in k1714 */ static void C_fcall f_4105(C_word t0,C_word t1,C_word 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_4105,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|4,a[1]=(C_word)f_4115,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(((C_word*)t0)[4],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_4128,a[2]=((C_word*)t0)[5],a[3]=t6,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li39),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_4128(t8,t3,t4);}} /* k3581 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3583,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3586,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); /* srfi-69.scm:439: ##sys#check-exact */ t4=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[23]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3584 in k3581 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_3586,2,av);} t2=C_fixnum_lessp(((C_word*)t0)[2],((C_word*)t0)[3]); t3=(C_truep(t2)?C_fixnum_greater_or_equal_p(((C_word*)t0)[2],C_fix(0)):C_SCHEME_FALSE); if(C_truep(t3)){ t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* srfi-69.scm:442: ##sys#signal-hook */ t4=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=lf[33]; av2[3]=lf[23]; av2[4]=lf[34]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[2]; av2[7]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(8,av2);}}} /* ##sys#number-hash-hook in k1714 */ 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_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_1719,4,av);} /* srfi-69.scm:144: *equal?-hash */ f_2727(t1,t2,t3);} /* k1714 */ static void C_ccall f_1716(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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,c,4)))){ C_save_and_reclaim((void *)f_1716,2,av);} a=C_alloc(30); t2=C_mutate2(&lf[0] /* (set! hash-default-randomization ...) */,C_rnd_fix()); t3=C_mutate2((C_word*)lf[1]+1 /* (set! ##sys#number-hash-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1719,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[3]+1 /* (set! number-hash ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1725,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[7]+1 /* (set! object-uid-hash ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1946,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[8]+1 /* (set! symbol-hash ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2025,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[9]+1 /* (set! ##sys#check-keyword ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2113,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[13]+1 /* (set! keyword-hash ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2139,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[14]+1 /* (set! eq?-hash ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2331,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[15]+1 /* (set! hash-by-identity ...) */,*((C_word*)lf[14]+1)); t11=C_mutate2((C_word*)lf[16]+1 /* (set! eqv?-hash ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2643,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t12=C_set_block_item(lf[17] /* *recursive-hash-max-depth* */,0,C_fix(4)); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2720,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6225,a[2]=((C_word)li107),tmp=(C_word)a,a+=3,tmp); /* srfi-69.scm:270: make-parameter */ t15=*((C_word*)lf[121]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t15; av2[1]=t13; av2[2]=C_fix(4); av2[3]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} /* k6230 in a6224 in k1714 */ static void C_fcall f_6232(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_6232,2,t0,t1);} if(C_truep(t1)){ t2=C_mutate2((C_word*)lf[17]+1 /* (set! *recursive-hash-max-depth* ...) */,((C_word*)t0)[2]); 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{ t2=*((C_word*)lf[17]+1); t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=*((C_word*)lf[17]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop in k5284 in hash-table-delete! in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5353(C_word t0,C_word t1,C_word 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(11,0,3)))){ C_save_and_reclaim_args((void *)trf_5353,4,t0,t1,t2,t3);} a=C_alloc(11); 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_slot(t3,C_fix(0)); t5=C_slot(t3,C_fix(1)); t6=t5; t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5372,a[2]=t2,a[3]=t6,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]=t1,a[9]=((C_word*)t0)[6],a[10]=t3,tmp=(C_word)a,a+=11,tmp); t8=C_slot(t4,C_fix(0)); /* srfi-69.scm:953: test */ t9=((C_word*)t0)[7];{ C_word av2[4]; av2[0]=t9; av2[1]=t7; av2[2]=((C_word*)t0)[8]; av2[3]=t8; ((C_proc)C_fast_retrieve_proc(t9))(4,av2);}}} /* k4715 in loop in k4691 in k4676 in *hash-table-update!/default in k2723 in k2718 in k1714 */ static void C_ccall f_4717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_4717,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]); t4=C_i_setslot(((C_word*)t0)[4],((C_word*)t0)[5],t3); t5=C_i_set_i_slot(((C_word*)t0)[6],C_fix(2),((C_word*)t0)[7]); t6=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a6224 in k1714 */ static void C_ccall f_6225(C_word c,C_word *av){ C_word tmp; C_word 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_6225,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6232,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnump(t2))){ t4=t2; t5=t3; f_6232(t5,C_fixnum_greaterp(t4,C_fix(0)));} else{ t4=t3; f_6232(t4,C_SCHEME_FALSE);}} /* string-hash in k2723 in k2718 in k1714 */ 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=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,5)))){ C_save_and_reclaim((void*)f_3237,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; C_word 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_fix(536870912):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_FALSE:C_i_car(t13)); t16=C_i_nullp(t13); t17=(C_truep(t16)?C_SCHEME_END_OF_LIST:C_i_cdr(t13)); t18=C_i_nullp(t17); t19=(C_truep(t18)?lf[0]: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_string_2(t2,lf[24]); t24=C_i_check_exact_2(t6,lf[24]); t25=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3271,a[2]=t20,a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); if(C_truep(t11)){ t26=(C_truep(t15)?t15:C_block_size(t2)); t27=t26; t28=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3311,a[2]=t25,a[3]=t2,a[4]=t11,a[5]=t27,tmp=(C_word)a,a+=6,tmp); t29=C_block_size(t2); /* srfi-69.scm:360: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[26]+1); av2[1]=t28; av2[2]=t11; av2[3]=C_fix(0); av2[4]=t29; av2[5]=lf[24]; tp(6,av2);}} else{ t26=t25;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t26; av2[1]=t2; f_3271(2,av2);}}} /* loop in k4691 in k4676 in *hash-table-update!/default in k2723 in k2718 in k1714 */ static void C_fcall f_4707(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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(9,0,2)))){ C_save_and_reclaim_args((void *)trf_4707,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4717,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,tmp=(C_word)a,a+=9,tmp); /* srfi-69.scm:774: func */ t4=((C_word*)t0)[8];{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[9]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ t3=C_slot(t2,C_fix(0)); t4=t3; t5=C_slot(t4,C_fix(0)); t6=C_eqp(((C_word*)t0)[2],t5); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4743,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t8=C_slot(t4,C_fix(1)); /* srfi-69.scm:780: func */ t9=((C_word*)t0)[8];{ C_word av2[3]; av2[0]=t9; av2[1]=t7; av2[2]=t8; ((C_proc)C_fast_retrieve_proc(t9))(3,av2);}} else{ t7=C_slot(t2,C_fix(1)); /* srfi-69.scm:783: loop */ t10=t1; t11=t7; t1=t10; t2=t11; goto loop;}}} /* k6216 in a6210 in k2718 in k1714 */ static void C_fcall f_6218(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_6218,2,t0,t1);} if(C_truep(t1)){ t2=C_mutate2((C_word*)lf[19]+1 /* (set! *recursive-hash-max-length* ...) */,((C_word*)t0)[2]); 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{ t2=*((C_word*)lf[19]+1); t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=*((C_word*)lf[19]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a6210 in k2718 in k1714 */ static void C_ccall f_6211(C_word c,C_word *av){ C_word tmp; C_word 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_6211,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6218,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnump(t2))){ t4=t2; t5=t3; f_6218(t5,C_fixnum_greaterp(t4,C_fix(0)));} else{ t4=t3; f_6218(t4,C_SCHEME_FALSE);}} /* k4142 in loop in doloop854 in k4180 in k4177 in hash-table-resize! in k2723 in k2718 in k1714 */ static void C_ccall f_4144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,2)))){ C_save_and_reclaim((void *)f_4144,2,av);} a=C_alloc(6); t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=C_slot(((C_word*)t0)[4],t1); t5=C_a_i_cons(&a,2,t3,t4); t6=C_i_setslot(((C_word*)t0)[4],t1,t5); t7=C_slot(((C_word*)t0)[5],C_fix(1)); /* srfi-69.scm:646: loop */ t8=((C_word*)((C_word*)t0)[6])[1]; f_4128(t8,((C_word*)t0)[7],t7);} /* k2153 in keyword-hash in k1714 */ static void C_ccall f_2155(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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,1)))){ C_save_and_reclaim((void *)f_2155,2,av);} t2=C_i_check_exact_2(((C_word*)t0)[2],lf[13]); t3=((C_word*)t0)[3]; t4=C_slot(t3,C_fix(1)); t5=C_u_i_string_hash(t4,((C_word*)t0)[4]); t6=((C_word*)t0)[5]; t7=C_fix((C_word)C_MOST_POSITIVE_32_BIT_FIXNUM); t8=C_fixnum_lessp(t5,C_fix(0)); t9=(C_truep(t8)?C_fixnum_negate(t5):t5); t10=C_fixnum_and(t7,t9); t11=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_fixnum_modulo(t10,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} /* loop in k4691 in k4676 in *hash-table-update!/default in k2723 in k2718 in k1714 */ static void C_fcall f_4766(C_word t0,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_4766,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4776,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,tmp=(C_word)a,a+=9,tmp); /* srfi-69.scm:787: func */ t4=((C_word*)t0)[8];{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[9]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ t3=C_slot(t2,C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4799,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[8],a[5]=t2,a[6]=((C_word*)t0)[10],tmp=(C_word)a,a+=7,tmp); t6=C_slot(t4,C_fix(0)); /* srfi-69.scm:792: test */ t7=((C_word*)t0)[11];{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=t6; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}} /* k5533 in doloop1193 in *hash-table-merge! in k5052 in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5535,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5525(t3,((C_word*)t0)[4],t2);} /* doloop1196 in doloop1193 in *hash-table-merge! in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5548(C_word t0,C_word t1,C_word 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,5)))){ C_save_and_reclaim_args((void *)trf_5548,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_slot(t2,C_fix(0)); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5561,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=C_slot(t3,C_fix(0)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5574,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp); t7=C_slot(t3,C_fix(1)); /* srfi-69.scm:1002: *hash-table-update!/default */ t8=lf[89]; f_4598(t8,t4,((C_word*)t0)[3],t5,t6,t7);}} /* k4741 in loop in k4691 in k4676 in *hash-table-update!/default in k2723 in k2718 in k1714 */ static void C_ccall f_4743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4743,2,av);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(1),t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3968 in k3965 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ 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 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_3970,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]); t4=C_mutate2(((C_word *)((C_word*)t0)[4])+1,t3); t5=((C_word*)t0)[5]; f_3709(t5,t4);} /* k3985 in make-hash-table in k2723 in k2718 in k1714 */ static void C_ccall f_3987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_3987,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2]; f_3706(t3,t2);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3990,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); /* srfi-69.scm:510: ##sys#check-closure */ t3=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[45]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* g537 in recursive-hash in *equal?-hash in k2723 in k2718 in k1714 */ static void C_fcall f_3150(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,6)))){ C_save_and_reclaim_args((void *)trf_3150,4,t0,t1,t2,t3);} /* srfi-69.scm:303: vector-hash */ t4=((C_word*)((C_word*)t0)[2])[1]; f_2730(t4,t1,t2,C_fix(0),((C_word*)t0)[3],C_fix(0),t3);} /* k3988 in k3985 in make-hash-table in k2723 in k2718 in k1714 */ 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 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_3990,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]); t4=C_mutate2(((C_word *)((C_word*)t0)[4])+1,t3); t5=((C_word*)t0)[5]; f_3706(t5,t4);} /* hash-table? in k2723 in k2718 in k1714 */ static void C_ccall f_3997(C_word c,C_word *av){ C_word tmp; C_word 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_3997,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[37]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* equal?-hash in k2723 in k2718 in k1714 */ 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 *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_3162,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; C_word t12; C_word t13; C_word t14; C_word t15; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_fix(536870912):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)?lf[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_check_exact_2(t6,lf[23]); t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3210,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* srfi-69.scm:348: *equal?-hash */ f_2727(t14,t2,t10);} /* loop in k5070 in hash-table-ref/default in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5126(C_word t0,C_word 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_5126,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_slot(t2,C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5142,a[2]=t1,a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t6=C_slot(t4,C_fix(0)); /* srfi-69.scm:895: test */ t7=((C_word*)t0)[4];{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=t6; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}} /* k4492 in loop in k4438 in k4423 in k4344 in k4341 in k4335 in hash-table-update! in k2723 in k2718 in k1714 */ static void C_ccall f_4494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4494,2,av);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(1),t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in k5070 in hash-table-ref/default in k5052 in k2723 in k2718 in k1714 */ static C_word C_fcall f_5087(C_word t0,C_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))){ t2=((C_word*)t0)[2]; return(t2);} else{ t2=C_slot(t1,C_fix(0)); t3=C_slot(t2,C_fix(0)); t4=C_eqp(((C_word*)t0)[3],t3); if(C_truep(t4)){ return(C_slot(t2,C_fix(1)));} else{ t5=C_slot(t1,C_fix(1)); t7=t5; t1=t7; goto loop;}}} /* k4480 in loop in k4438 in k4423 in k4344 in k4341 in k4335 in hash-table-update! in k2723 in k2718 in k1714 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4482,2,av);} /* srfi-69.scm:735: func */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5070 in hash-table-ref/default in k5052 in k2723 in k2718 in k1714 */ 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 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_5072,2,av);} a=C_alloc(9); t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]); if(C_truep(t2)){ t3=C_slot(((C_word*)t0)[4],t1); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5087,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word)li57),tmp=(C_word)a,a+=5,tmp); t5=((C_word*)t0)[7];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=( f_5087(t4,t3) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=C_slot(((C_word*)t0)[4],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|6,a[1]=(C_word)f_5126,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word)li58),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_5126(t7,((C_word*)t0)[7],t3);}} /* k5052 in k2723 in k2718 in k1714 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(63,c,5)))){ C_save_and_reclaim((void *)f_5054,2,av);} a=C_alloc(63); t2=C_mutate2((C_word*)lf[93]+1 /* (set! hash-table-ref ...) */,t1); t3=*((C_word*)lf[39]+1); t4=C_mutate2((C_word*)lf[94]+1 /* (set! hash-table-ref/default ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5056,a[2]=t3,a[3]=((C_word)li59),tmp=(C_word)a,a+=4,tmp)); t5=*((C_word*)lf[39]+1); t6=C_mutate2((C_word*)lf[95]+1 /* (set! hash-table-exists? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5162,a[2]=t5,a[3]=((C_word)li62),tmp=(C_word)a,a+=4,tmp)); t7=*((C_word*)lf[39]+1); t8=C_mutate2((C_word*)lf[96]+1 /* (set! hash-table-delete! ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5270,a[2]=t7,a[3]=((C_word)li65),tmp=(C_word)a,a+=4,tmp)); t9=C_mutate2((C_word*)lf[97]+1 /* (set! hash-table-remove! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5401,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[98]+1 /* (set! hash-table-clear! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5497,a[2]=((C_word)li69),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2(&lf[100] /* (set! *hash-table-merge! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5513,a[2]=((C_word)li73),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[101]+1 /* (set! hash-table-merge! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5581,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[102]+1 /* (set! hash-table-merge ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5593,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[103]+1 /* (set! hash-table->alist ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5609,a[2]=((C_word)li78),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[104]+1 /* (set! alist->hash-table ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5682,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[105]+1 /* (set! hash-table-keys ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5736,a[2]=((C_word)li85),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[106]+1 /* (set! hash-table-values ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5801,a[2]=((C_word)li88),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2(&lf[107] /* (set! *hash-table-for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5866,a[2]=((C_word)li92),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2(&lf[109] /* (set! *hash-table-fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5939,a[2]=((C_word)li95),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2((C_word*)lf[110]+1 /* (set! hash-table-fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6005,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate2((C_word*)lf[111]+1 /* (set! hash-table-for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6017,a[2]=((C_word)li97),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate2((C_word*)lf[112]+1 /* (set! hash-table-walk ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6029,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate2((C_word*)lf[113]+1 /* (set! hash-table-map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6041,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp)); t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6064,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t25=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6066,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp); /* srfi-69.scm:1127: ##sys#register-record-printer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[117]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[117]+1); av2[1]=t24; av2[2]=lf[37]; av2[3]=t25; tp(4,av2);}} /* k3965 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ 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; 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_3967,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2]; f_3709(t3,t2);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3970,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); /* srfi-69.scm:516: ##sys#check-closure */ t3=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[45]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* hash-table-ref/default in k5052 in k2723 in k2718 in k1714 */ static void C_ccall f_5056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_5056,5,av);} a=C_alloc(8); t5=C_i_check_structure_2(t2,lf[37],lf[94]); t6=C_slot(t2,C_fix(1)); t7=t6; t8=C_slot(t2,C_fix(3)); t9=t8; t10=C_slot(t2,C_fix(10)); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5072,a[2]=((C_word*)t0)[2],a[3]=t9,a[4]=t7,a[5]=t4,a[6]=t3,a[7]=t1,tmp=(C_word)a,a+=8,tmp); t12=C_block_size(t7); /* srfi-69.scm:880: hash */ t13=t10;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t11; av2[2]=t3; av2[3]=t12; ((C_proc)C_fast_retrieve_proc(t13))(4,av2);}} /* hash-table-equivalence-function in k2723 in k2718 in k1714 */ static void C_ccall f_4012(C_word c,C_word *av){ C_word tmp; C_word 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_4012,3,av);} t3=C_i_check_structure_2(t2,lf[37],lf[74]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(3)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3453 in k3450 in string-ci-hash in k2723 in k2718 in k1714 */ static void C_ccall f_3455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3455,2,av);} /* srfi-69.scm:374: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[25]+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);}} /* k3450 in string-ci-hash in k2723 in k2718 in k1714 */ static void C_ccall f_3452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3452,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3455,a[2]=((C_word*)t0)[2],a[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]); /* srfi-69.scm:373: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[26]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(0); av2[4]=t3; av2[5]=lf[24]; tp(6,av2);}} /* k5924 in for-each-loop1293 in doloop1288 in *hash-table-for-each in k5052 in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5926,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5916(t3,((C_word*)t0)[4],t2);} /* *hash-table-fold in k5052 in k2723 in k2718 in k1714 */ 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 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,4)))){ C_save_and_reclaim_args((void *)trf_5939,4,t1,t2,t3,t4);} a=C_alloc(9); t5=C_slot(t2,C_fix(1)); t6=t5; t7=C_block_size(t6); 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_5951,a[2]=t8,a[3]=t6,a[4]=t10,a[5]=t3,a[6]=((C_word)li94),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_5951(t12,t1,C_fix(0),t4);} /* hash-table-max-load in k2723 in k2718 in k1714 */ 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=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_4039,3,av);} t3=C_i_check_structure_2(t2,lf[37],lf[77]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(6)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4868 in hash-table-set! in k2723 in k2718 in k1714 */ static void C_fcall f_4870(C_word 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(15,0,2)))){ C_save_and_reclaim_args((void *)trf_4870,2,t0,t1);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4881,a[2]=((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_4906,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_a_i_times(&a,2,((C_word*)t0)[5],((C_word*)t0)[7]); /* srfi-69.scm:665: floor */ t6=*((C_word*)lf[86]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* hash-table-min-load in k2723 in k2718 in k1714 */ 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=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_4030,3,av);} t3=C_i_check_structure_2(t2,lf[37],lf[76]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(5)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* hash-table-hash-function in k2723 in k2718 in k1714 */ 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=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_4021,3,av);} t3=C_i_check_structure_2(t2,lf[37],lf[75]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(4)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5905 in doloop1288 in *hash-table-for-each in k5052 in k2723 in k2718 in k1714 */ 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 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_5907,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5878(t3,((C_word*)t0)[4],t2);} /* hash-table-weak-values in k2723 in k2718 in k1714 */ 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=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_4057,3,av);} t3=C_i_check_structure_2(t2,lf[37],lf[79]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(8)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* g1294 in doloop1288 in *hash-table-for-each in k5052 in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_5886,3,t0,t1,t2);} t3=C_slot(t2,C_fix(0)); t4=C_slot(t2,C_fix(1)); /* srfi-69.scm:1087: proc */ 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);}} /* loop in k4934 in k4919 in hash-table-set! in k2723 in k2718 in k1714 */ static void C_fcall f_5002(C_word t0,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_5002,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_i_nullp(t2))){ t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[4]); t5=C_i_setslot(((C_word*)t0)[5],((C_word*)t0)[6],t4); t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_i_set_i_slot(((C_word*)t0)[7],C_fix(2),((C_word*)t0)[8]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t3=C_slot(t2,C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5032,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[9],tmp=(C_word)a,a+=7,tmp); t6=C_slot(t4,C_fix(0)); /* srfi-69.scm:833: test */ t7=((C_word*)t0)[10];{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=t6; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}} /* hash-table-weak-keys in k2723 in k2718 in k1714 */ 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=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_4048,3,av);} t3=C_i_check_structure_2(t2,lf[37],lf[78]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(7)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4879 in k4868 in hash-table-set! in k2723 in k2718 in k1714 */ static void C_fcall f_4881(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_4881,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4887,a[2]=((C_word*)t0)[2],a[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(1073741823)))){ t3=C_fixnum_less_or_equal_p(((C_word*)t0)[6],((C_word*)t0)[7]); t4=t2; f_4887(t4,(C_truep(t3)?C_fixnum_less_or_equal_p(((C_word*)t0)[7],t1):C_SCHEME_FALSE));} else{ t3=t2; f_4887(t3,C_SCHEME_FALSE);}} /* k4885 in k4879 in k4868 in hash-table-set! in k2723 in k2718 in k1714 */ static void C_fcall f_4887(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_4887,2,t0,t1);} if(C_truep(t1)){ /* srfi-69.scm:668: hash-table-resize! */ t2=*((C_word*)lf[82]+1);{ C_word av2[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);}} 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);}}} /* doloop1288 in *hash-table-for-each in k5052 in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){ C_save_and_reclaim_args((void *)trf_5878,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_5886,a[2]=((C_word*)t0)[3],a[3]=((C_word)li89),tmp=(C_word)a,a+=4,tmp); t4=C_slot(((C_word*)t0)[4],t2); t5=C_i_check_list_2(t4,lf[108]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5907,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_5916,a[2]=t8,a[3]=t3,a[4]=((C_word)li90),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_5916(t10,t6,t4);}} /* hash-table-initial in k2723 in k2718 in k1714 */ 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=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_4078,3,av);} t3=C_i_check_structure_2(t2,lf[37],lf[81]); t4=C_slot(t2,C_fix(9)); if(C_truep(t4)){ /* srfi-69.scm:630: thunk */ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t5))(2,av2);}} else{ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* *hash-table-for-each in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5866(C_word t1,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_5866,3,t1,t2,t3);} a=C_alloc(9); t4=C_slot(t2,C_fix(1)); 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|6,a[1]=(C_word)f_5878,a[2]=t7,a[3]=t3,a[4]=t5,a[5]=t9,a[6]=((C_word)li91),tmp=(C_word)a,a+=7,tmp)); t11=((C_word*)t9)[1]; f_5878(t11,t1,C_fix(0));} /* a6065 in k5052 in k2723 in k2718 in k1714 */ static void C_ccall f_6066(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_6066,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6070,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* srfi-69.scm:1130: ##sys#print */ t5=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=lf[116]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k6062 in k5052 in k2723 in k2718 in k1714 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6064,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6059 in a6052 in k6046 in hash-table-map in k5052 in k2723 in k2718 in k1714 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6061,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* loop in *hash-table-fold in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5951(C_word t0,C_word t1,C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_5951,4,t0,t1,t2,t3);} a=C_alloc(9); 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_slot(((C_word*)t0)[3],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_5967,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t6,a[5]=((C_word*)t0)[5],a[6]=((C_word)li93),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_5967(t8,t1,t4,t3);}} /* hash-table-has-initial? in k2723 in k2718 in k1714 */ 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=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_4066,3,av);} t3=C_i_check_structure_2(t2,lf[37],lf[80]); t4=C_slot(t2,C_fix(9)); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=(C_truep(t4)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k4423 in k4344 in k4341 in k4335 in hash-table-update! in k2723 in k2718 in k1714 */ static void C_ccall f_4425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_4425,2,av);} a=C_alloc(11); t2=C_slot(((C_word*)t0)[2],C_fix(10)); t3=C_slot(((C_word*)t0)[2],C_fix(3)); t4=t3; t5=C_slot(((C_word*)t0)[2],C_fix(1)); t6=t5; t7=C_block_size(t6); t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4440,a[2]=t6,a[3]=((C_word*)t0)[3],a[4]=t4,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],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); /* srfi-69.scm:729: hash */ t9=t2;{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[4]; av2[3]=t7; ((C_proc)C_fast_retrieve_proc(t9))(4,av2);}} /* symbol-hash in k1714 */ 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=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_2025,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; 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_fix(536870912):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)?lf[0]: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_symbol_2(t2,lf[8]); t13=C_i_check_exact_2(t5,lf[8]); t14=t2; t15=C_slot(t14,C_fix(1)); t16=C_u_i_string_hash(t15,t9); t17=C_fix((C_word)C_MOST_POSITIVE_32_BIT_FIXNUM); t18=C_fixnum_lessp(t16,C_fix(0)); t19=(C_truep(t18)?C_fixnum_negate(t16):t16); t20=C_fixnum_and(t17,t19); t21=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t21; av2[1]=C_fixnum_modulo(t20,t5); ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}} /* k4308 in copy-loop in doloop881 in k4206 in *hash-table-copy in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4310,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k3770 in k3766 in loop in k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ 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 t5; C_word 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,c,4)))){ C_save_and_reclaim((void *)f_3772,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3775,a[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)[5],lf[53]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3786,a[2]=((C_word*)t0)[6],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); /* srfi-69.scm:541: ##sys#check-closure */ t6=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=lf[45]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t5=C_eqp(((C_word*)t0)[5],lf[55]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3796,a[2]=((C_word*)t0)[7],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); /* srfi-69.scm:544: ##sys#check-closure */ t7=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=lf[45]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t6=C_eqp(((C_word*)t0)[5],lf[56]); if(C_truep(t6)){ t7=C_i_check_exact_2(t2,lf[45]); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3809,a[2]=t2,a[3]=((C_word*)t0)[8],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_fixnum_lessp(C_fix(0),t2))){ t9=t8;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_3809(2,av2);}} else{ /* srfi-69.scm:549: error */ t9=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t8; av2[2]=lf[45]; av2[3]=lf[57]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} else{ t7=C_eqp(((C_word*)t0)[5],lf[58]); if(C_truep(t7)){ t8=C_mutate2(((C_word *)((C_word*)t0)[9])+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3827,a[2]=t2,a[3]=((C_word)li26),tmp=(C_word)a,a+=4,tmp)); t9=C_u_i_cdr(((C_word*)t0)[2]); /* srfi-69.scm:569: loop */ t10=((C_word*)((C_word*)t0)[3])[1]; f_3747(t10,((C_word*)t0)[4],t9);} else{ t8=C_eqp(((C_word*)t0)[5],lf[59]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3837,a[2]=((C_word*)t0)[10],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); /* srfi-69.scm:554: ##sys#check-inexact */ t10=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t9; av2[2]=t2; av2[3]=lf[45]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t9=C_eqp(((C_word*)t0)[5],lf[64]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3860,a[2]=((C_word*)t0)[11],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); /* srfi-69.scm:559: ##sys#check-inexact */ t11=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t11; av2[1]=t10; av2[2]=t2; av2[3]=lf[45]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ t10=C_eqp(((C_word*)t0)[5],lf[66]); if(C_truep(t10)){ if(C_truep(t2)){ t11=C_u_i_cdr(((C_word*)t0)[2]); /* srfi-69.scm:569: loop */ t12=((C_word*)((C_word*)t0)[3])[1]; f_3747(t12,((C_word*)t0)[4],t11);} else{ t11=C_u_i_cdr(((C_word*)t0)[2]); /* srfi-69.scm:569: loop */ t12=((C_word*)((C_word*)t0)[3])[1]; f_3747(t12,((C_word*)t0)[4],t11);}} else{ t11=C_eqp(((C_word*)t0)[5],lf[67]); if(C_truep(t11)){ if(C_truep(t2)){ t12=C_u_i_cdr(((C_word*)t0)[2]); /* srfi-69.scm:569: loop */ t13=((C_word*)((C_word*)t0)[3])[1]; f_3747(t13,((C_word*)t0)[4],t12);} else{ t12=C_u_i_cdr(((C_word*)t0)[2]); /* srfi-69.scm:569: loop */ t13=((C_word*)((C_word*)t0)[3])[1]; f_3747(t13,((C_word*)t0)[4],t12);}} else{ /* srfi-69.scm:568: invarg-err */ t12=((C_word*)t0)[12]; f_3758(t12,t3,lf[68]);}}}}}}}}} /* k6046 in hash-table-map in k5052 in k2723 in k2718 in k1714 */ static void C_ccall f_6048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_6048,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6053,a[2]=((C_word*)t0)[2],a[3]=((C_word)li99),tmp=(C_word)a,a+=4,tmp); /* srfi-69.scm:1122: *hash-table-fold */ f_5939(((C_word*)t0)[3],((C_word*)t0)[4],t2,C_SCHEME_END_OF_LIST);} /* k3773 in k3770 in k3766 in loop in k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3775,2,av);} t2=C_u_i_cdr(((C_word*)t0)[2]); /* srfi-69.scm:569: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3747(t3,((C_word*)t0)[4],t2);} /* hash-table-map in k5052 in k2723 in k2718 in k1714 */ 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=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_6041,4,av);} a=C_alloc(5); t4=C_i_check_structure_2(t2,lf[37],lf[113]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6048,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* srfi-69.scm:1121: ##sys#check-closure */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t3; av2[3]=lf[113]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* f_3827 in k3770 in k3766 in loop in k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ 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!=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_3827,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k4438 in k4423 in k4344 in k4341 in k4335 in hash-table-update! in k2723 in k2718 in k1714 */ static void C_fcall f_4454(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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(13,0,2)))){ C_save_and_reclaim_args((void *)trf_4454,3,t0,t1,t2);} a=C_alloc(13); if(C_truep(C_i_nullp(t2))){ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4464,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,tmp=(C_word)a,a+=9,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4482,a[2]=((C_word*)t0)[8],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-69.scm:735: thunk */ t5=((C_word*)t0)[9];{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)C_fast_retrieve_proc(t5))(2,av2);}} else{ t3=C_slot(t2,C_fix(0)); t4=t3; t5=C_slot(t4,C_fix(0)); t6=C_eqp(((C_word*)t0)[2],t5); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4494,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t8=C_slot(t4,C_fix(1)); /* srfi-69.scm:741: func */ t9=((C_word*)t0)[8];{ C_word av2[3]; av2[0]=t9; av2[1]=t7; av2[2]=t8; ((C_proc)C_fast_retrieve_proc(t9))(3,av2);}} else{ t7=C_slot(t2,C_fix(1)); /* srfi-69.scm:744: loop */ t10=t1; t11=t7; t1=t10; t2=t11; goto loop;}}} /* hash-table-copy in k2723 in k2718 in k1714 */ 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=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_4324,3,av);} t3=C_i_check_structure_2(t2,lf[37],lf[84]); /* srfi-69.scm:701: *hash-table-copy */ f_4198(t1,t2);} /* hash-table-size in k2723 in k2718 in k1714 */ 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=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_4003,3,av);} t3=C_i_check_structure_2(t2,lf[37],lf[73]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3784 in k3770 in k3766 in loop in k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ static void C_ccall f_3786(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3786,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_u_i_cdr(((C_word*)t0)[4]); /* srfi-69.scm:569: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_3747(t4,((C_word*)t0)[6],t3);} /* k6071 in k6068 in a6065 in k5052 in k2723 in k2718 in k1714 */ static void C_ccall f_6073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6073,2,av);} /* srfi-69.scm:1132: ##sys#print */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[115]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6068 in a6065 in k5052 in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_6070,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6073,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(2)); /* srfi-69.scm:1131: ##sys#print */ t4=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5030 in loop in k4934 in k4919 in hash-table-set! in k2723 in k2718 in k1714 */ static void C_ccall f_5032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5032,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_setslot(((C_word*)t0)[3],C_fix(1),((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_slot(((C_word*)t0)[5],C_fix(1)); /* srfi-69.scm:835: loop */ t3=((C_word*)((C_word*)t0)[6])[1]; f_5002(t3,((C_word*)t0)[2],t2);}} /* k4438 in k4423 in k4344 in k4341 in k4335 in hash-table-update! in k2723 in k2718 in k1714 */ 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 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_4440,2,av);} a=C_alloc(15); t2=t1; t3=C_slot(((C_word*)t0)[2],t2); t4=t3; t5=C_eqp(((C_word*)t0)[3],((C_word*)t0)[4]); if(C_truep(t5)){ 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|11,a[1]=(C_word)f_4454,a[2]=((C_word*)t0)[5],a[3]=t4,a[4]=((C_word*)t0)[2],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)[9],a[10]=t7,a[11]=((C_word)li46),tmp=(C_word)a,a+=12,tmp)); t9=((C_word*)t7)[1]; f_4454(t9,((C_word*)t0)[10],t4);} 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|12,a[1]=(C_word)f_4517,a[2]=((C_word*)t0)[5],a[3]=t4,a[4]=((C_word*)t0)[2],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)[9],a[10]=t7,a[11]=((C_word*)t0)[4],a[12]=((C_word)li47),tmp=(C_word)a,a+=13,tmp)); t9=((C_word*)t7)[1]; f_4517(t9,((C_word*)t0)[10],t4);}} /* k3794 in k3770 in k3766 in loop in k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3796,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_u_i_cdr(((C_word*)t0)[4]); /* srfi-69.scm:569: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_3747(t4,((C_word*)t0)[6],t3);} /* for-each-loop1293 in doloop1288 in *hash-table-for-each in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5916(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_5916,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_5926,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)); /* srfi-69.scm:1081: g1294 */ t5=((C_word*)t0)[3]; f_5886(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);}}} /* k3807 in k3770 in k3766 in loop in k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ 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 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_3809,2,av);} t2=C_i_fixnum_min(C_fix(1073741823),((C_word*)t0)[2]); t3=C_set_block_item(((C_word*)t0)[3],0,t2); t4=C_u_i_cdr(((C_word*)t0)[4]); /* srfi-69.scm:569: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_3747(t5,((C_word*)t0)[6],t4);} /* k4372 in k4344 in k4341 in k4335 in hash-table-update! in k2723 in k2718 in k1714 */ static void C_fcall f_4374(C_word 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(15,0,2)))){ C_save_and_reclaim_args((void *)trf_4374,2,t0,t1);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4385,a[2]=((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_4410,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_a_i_times(&a,2,((C_word*)t0)[5],((C_word*)t0)[7]); /* srfi-69.scm:665: floor */ t6=*((C_word*)lf[86]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* hash-table-values in k5052 in k2723 in k2718 in k1714 */ 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=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(8,c,4)))){ C_save_and_reclaim((void *)f_5801,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[37],lf[106]); t4=C_slot(t2,C_fix(1)); 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_5816,a[2]=t7,a[3]=t5,a[4]=t9,a[5]=((C_word)li87),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_5816(t11,t1,C_fix(0),C_SCHEME_END_OF_LIST);} /* k3410 in string-ci-hash in k2723 in k2718 in k1714 */ 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 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_3412,2,av);} t2=C_u_i_string_ci_hash(t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3]; t4=C_fix((C_word)C_MOST_POSITIVE_32_BIT_FIXNUM); t5=C_fixnum_lessp(t2,C_fix(0)); t6=(C_truep(t5)?C_fixnum_negate(t2):t2); t7=C_fixnum_and(t4,t6); t8=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_fixnum_modulo(t7,((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k3858 in k3770 in k3766 in loop in k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ 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 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_3860,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3863,a[2]=((C_word*)t0)[2],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_truep(C_flonum_lessp(lf[60],((C_word*)t0)[3]))?C_flonum_lessp(((C_word*)t0)[3],lf[61]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t5=C_u_i_cdr(((C_word*)t0)[4]); /* srfi-69.scm:569: loop */ t6=((C_word*)((C_word*)t0)[5])[1]; f_3747(t6,((C_word*)t0)[6],t5);} else{ /* srfi-69.scm:561: error */ t4=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[45]; av2[3]=lf[65]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k4416 in k4344 in k4341 in k4335 in hash-table-update! in k2723 in k2718 in k1714 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4418,2,av);} if(C_truep(C_immp(t1))){ t2=((C_word*)t0)[2]; f_4374(t2,t1);} else{ t2=C_i_inexact_to_exact(t1); t3=((C_word*)t0)[2]; f_4374(t3,t2);}} /* k3861 in k3858 in k3770 in k3766 in loop in k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ 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 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_3863,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_u_i_cdr(((C_word*)t0)[4]); /* srfi-69.scm:569: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_3747(t4,((C_word*)t0)[6],t3);} /* k4408 in k4372 in k4344 in k4341 in k4335 in hash-table-update! in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4410,2,av);} if(C_truep(C_immp(t1))){ t2=((C_word*)t0)[2]; f_4385(t2,t1);} else{ t2=C_i_inexact_to_exact(t1); t3=((C_word*)t0)[2]; f_4385(t3,t2);}} /* k3933 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ 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 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_3935,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2]; f_3712(t3,t2);} else{ t2=C_i_check_exact_2(((C_word*)t0)[3],lf[45]); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3941,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); if(C_truep(C_fixnum_lessp(C_fix(0),((C_word*)t0)[3]))){ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_3941(2,av2);}} else{ /* srfi-69.scm:524: error */ t4=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[45]; av2[3]=lf[71]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}} /* k3835 in k3770 in k3766 in loop in k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ static void C_ccall f_3837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_3837,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3840,a[2]=((C_word*)t0)[2],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_truep(C_flonum_lessp(lf[60],((C_word*)t0)[3]))?C_flonum_lessp(((C_word*)t0)[3],lf[61]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t5=C_u_i_cdr(((C_word*)t0)[4]); /* srfi-69.scm:569: loop */ t6=((C_word*)((C_word*)t0)[5])[1]; f_3747(t6,((C_word*)t0)[6],t5);} else{ /* srfi-69.scm:556: error */ t4=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[45]; av2[3]=lf[62]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k3939 in k3933 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ 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 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_3941,2,av);} t2=C_i_fixnum_min(C_fix(1073741823),((C_word*)t0)[2]); t3=C_set_block_item(((C_word*)t0)[3],0,t2); t4=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]); t5=C_mutate2(((C_word *)((C_word*)t0)[4])+1,t4); t6=((C_word*)t0)[5]; f_3712(t6,t5);} /* eqv?-hash in k1714 */ static void C_ccall f_2643(C_word c,C_word *av){ C_word tmp; C_word 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,3)))){ C_save_and_reclaim((void*)f_2643,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; 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; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_fix(536870912):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)?lf[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_check_exact_2(t6,lf[16]); t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2691,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnump(t2))){ t15=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=C_fixnum_xor(t2,t10); f_2691(2,av2);}} else{ if(C_truep(C_charp(t2))){ t15=C_fix(C_character_code(t2)); t16=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=C_fixnum_xor(t15,t10); f_2691(2,av2);}} else{ switch(t2){ case C_SCHEME_TRUE: t15=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=C_fixnum_xor(C_fix(256),t10); f_2691(2,av2);} case C_SCHEME_FALSE: t15=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=C_fixnum_xor(C_fix(257),t10); f_2691(2,av2);} default: if(C_truep(C_i_nullp(t2))){ t15=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=C_fixnum_xor(C_fix(258),t10); f_2691(2,av2);}} else{ if(C_truep(C_eofp(t2))){ t15=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=C_fixnum_xor(C_fix(259),t10); f_2691(2,av2);}} else{ if(C_truep(C_i_symbolp(t2))){ t15=C_slot(t2,C_fix(1)); t16=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=C_u_i_string_hash(t15,t10); f_2691(2,av2);}} else{ if(C_truep(C_i_numberp(t2))){ t15=t14; if(C_truep(C_i_flonump(t2))){ t16=C_subbyte(t2,C_fix(7)); t17=C_subbyte(t2,C_fix(6)); t18=C_subbyte(t2,C_fix(5)); t19=C_subbyte(t2,C_fix(4)); t20=C_subbyte(t2,C_fix(3)); t21=C_subbyte(t2,C_fix(2)); t22=C_subbyte(t2,C_fix(1)); t23=C_subbyte(t2,C_fix(0)); t24=C_fixnum_shift_left(t23,C_fix(1)); t25=C_fixnum_plus(t22,t24); t26=C_fixnum_shift_left(t25,C_fix(1)); t27=C_fixnum_plus(t21,t26); t28=C_fixnum_shift_left(t27,C_fix(1)); t29=C_fixnum_plus(t20,t28); t30=C_fixnum_shift_left(t29,C_fix(1)); t31=C_fixnum_plus(t19,t30); t32=C_fixnum_shift_left(t31,C_fix(1)); t33=C_fixnum_plus(t18,t32); t34=C_fixnum_shift_left(t33,C_fix(1)); t35=C_fixnum_plus(t17,t34); t36=C_fixnum_shift_left(t35,C_fix(1)); t37=C_fixnum_plus(t16,t36); t38=t15;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t38; av2[1]=C_fixnum_times(C_fix(331804471),t37); ((C_proc)(void*)(*((C_word*)t38+1)))(2,av2);}} else{ t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2615,a[2]=t15,tmp=(C_word)a,a+=3,tmp); /* srfi-69.scm:148: ##sys#number-hash-hook */ t17=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t17; av2[1]=t16; av2[2]=t2; av2[3]=t10; ((C_proc)(void*)(*((C_word*)t17+1)))(4,av2);}}} else{ if(C_truep(C_blockp(t2))){ /* srfi-69.scm:168: *equal?-hash */ f_2727(t14,t2,t10);} else{ t15=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=C_fixnum_xor(C_fix(262),t10); f_2691(2,av2);}}}}}}}}}} /* k4344 in k4341 in k4335 in hash-table-update! in k2723 in k2718 in k1714 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(24,c,2)))){ C_save_and_reclaim((void *)f_4346,2,av);} a=C_alloc(24); t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_fixnum_plus(t2,C_fix(1)); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4425,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]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t6=t5; t7=((C_word*)t0)[2]; t8=t4; t9=C_slot(t7,C_fix(1)); t10=t9; t11=C_slot(t7,C_fix(5)); t12=C_slot(t7,C_fix(6)); t13=t12; t14=C_block_size(t10); t15=t14; t16=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4374,a[2]=t6,a[3]=t7,a[4]=t10,a[5]=t15,a[6]=t8,a[7]=t13,tmp=(C_word)a,a+=8,tmp); t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4418,a[2]=t16,tmp=(C_word)a,a+=3,tmp); t18=C_a_i_times(&a,2,t15,t11); /* srfi-69.scm:664: floor */ t19=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t19; av2[1]=t17; av2[2]=t18; ((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}} /* k3838 in k3835 in k3770 in k3766 in loop in k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3840,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_u_i_cdr(((C_word*)t0)[4]); /* srfi-69.scm:569: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_3747(t4,((C_word*)t0)[6],t3);} /* k4341 in k4335 in hash-table-update! in k2723 in k2718 in k1714 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_4343,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4346,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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); /* srfi-69.scm:722: ##sys#check-closure */ t3=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[85]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6010 in hash-table-fold in k5052 in k2723 in k2718 in k1714 */ static void C_ccall f_6012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6012,2,av);} /* srfi-69.scm:1107: *hash-table-fold */ f_5939(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* hash-table-for-each in k5052 in k2723 in k2718 in k1714 */ static void C_ccall f_6017(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_6017,4,av);} a=C_alloc(5); t4=C_i_check_structure_2(t2,lf[37],lf[111]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6024,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* srfi-69.scm:1111: ##sys#check-closure */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t3; av2[3]=lf[111]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* hash-table-remove! in k5052 in k2723 in k2718 in k1714 */ static void C_ccall f_5401(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_5401,4,av);} a=C_alloc(5); t4=C_i_check_structure_2(t2,lf[37],lf[97]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5408,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* srfi-69.scm:966: ##sys#check-closure */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t3; av2[3]=lf[97]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k5406 in hash-table-remove! in k5052 in k2723 in k2718 in k1714 */ static void C_ccall f_5408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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,3)))){ C_save_and_reclaim((void *)f_5408,2,av);} a=C_alloc(13); t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=t2; t4=C_block_size(t3); t5=t4; t6=C_slot(((C_word*)t0)[2],C_fix(2)); t7=t6; 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|8,a[1]=(C_word)f_5422,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t8,a[5]=t10,a[6]=t3,a[7]=((C_word*)t0)[3],a[8]=((C_word)li67),tmp=(C_word)a,a+=9,tmp)); t12=((C_word*)t10)[1]; f_5422(t12,((C_word*)t0)[4],C_fix(0));} /* g1236 in k5687 in alist->hash-table in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5690(C_word t0,C_word 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(3,0,5)))){ C_save_and_reclaim_args((void *)trf_5690,3,t0,t1,t2);} a=C_alloc(3); t3=C_i_check_pair_2(t2,lf[104]); t4=C_slot(t2,C_fix(0)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5703,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp); t6=C_slot(t2,C_fix(1)); /* srfi-69.scm:1038: *hash-table-update!/default */ t7=lf[89]; f_4598(t7,t1,((C_word*)t0)[2],t4,t5,t6);} /* loop2 in loop in hash-table-values in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5832(C_word t0,C_word t1,C_word 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(3,0,3)))){ C_save_and_reclaim_args((void *)trf_5832,4,t0,t1,t2,t3);} a=C_alloc(3); if(C_truep(C_i_nullp(t2))){ t4=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-69.scm:1069: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_5816(t5,t1,t4,t3);} else{ t4=C_slot(t2,C_fix(1)); t5=C_slot(t2,C_fix(0)); t6=C_slot(t5,C_fix(1)); t7=C_a_i_cons(&a,2,t6,t3); /* srfi-69.scm:1070: loop2 */ t9=t1; t10=t4; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;}} /* k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ static void C_fcall f_3709(C_word 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(19,0,2)))){ C_save_and_reclaim_args((void *)trf_3709,2,t0,t1);} a=C_alloc(19); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_3712,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_nullp(((C_word*)((C_word*)t0)[12])[1]))){ t3=t2; f_3712(t3,C_SCHEME_UNDEFINED);} else{ t3=C_i_car(((C_word*)((C_word*)t0)[12])[1]); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3935,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[12],tmp=(C_word)a,a+=6,tmp); /* srfi-69.scm:521: keyword? */ t6=*((C_word*)lf[12]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k3704 in make-hash-table in k2723 in k2718 in k1714 */ static void C_fcall f_3706(C_word 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(19,0,2)))){ C_save_and_reclaim_args((void *)trf_3706,2,t0,t1);} a=C_alloc(19); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_3709,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_nullp(((C_word*)((C_word*)t0)[12])[1]))){ t3=t2; f_3709(t3,C_SCHEME_UNDEFINED);} else{ t3=C_i_car(((C_word*)((C_word*)t0)[12])[1]); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3967,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=((C_word*)t0)[12],tmp=(C_word)a,a+=6,tmp); /* srfi-69.scm:515: keyword? */ t6=*((C_word*)lf[12]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k6022 in hash-table-for-each in k5052 in k2723 in k2718 in k1714 */ static void C_ccall f_6024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6024,2,av);} /* srfi-69.scm:1112: *hash-table-for-each */ f_5866(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]);} /* hash-table-walk in k5052 in k2723 in k2718 in k1714 */ static void C_ccall f_6029(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_6029,4,av);} a=C_alloc(5); t4=C_i_check_structure_2(t2,lf[37],lf[112]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6036,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* srfi-69.scm:1116: ##sys#check-closure */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t3; av2[3]=lf[112]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k3713 in k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ 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; 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_3715,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3718,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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_3742,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* srfi-69.scm:572: fp< */ t4=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[7])[1]; av2[3]=((C_word*)((C_word*)t0)[6])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3716 in k3713 in k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ static void C_ccall f_3718(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_3718,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3722,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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); /* srfi-69.scm:575: hash-table-canonical-length */ f_3521(t2,lf[29],((C_word*)((C_word*)t0)[2])[1]);} /* k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ static void C_fcall f_3712(C_word 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(24,0,3)))){ C_save_and_reclaim_args((void *)trf_3712,2,t0,t1);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3715,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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_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_3747,a[2]=((C_word*)t0)[11],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word)li27),tmp=(C_word)a,a+=11,tmp)); t6=((C_word*)t4)[1]; f_3747(t6,t2,((C_word*)((C_word*)t0)[12])[1]);} /* loop in hash-table-values in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5816(C_word t0,C_word t1,C_word 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(8,0,4)))){ C_save_and_reclaim_args((void *)trf_5816,4,t0,t1,t2,t3);} a=C_alloc(8); 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_slot(((C_word*)t0)[3],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_5832,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t6,a[5]=((C_word)li86),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_5832(t8,t1,t4,t3);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_srfi_2d69_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_2d69_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_srfi_2d69_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(729))){ C_save(t1); C_rereclaim2(729*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,124); lf[1]=C_h_intern(&lf[1],20,"\003sysnumber-hash-hook"); lf[3]=C_h_intern(&lf[3],11,"number-hash"); lf[4]=C_h_intern(&lf[4],15,"\003syssignal-hook"); lf[5]=C_h_intern(&lf[5],5,"\000type"); lf[6]=C_decode_literal(C_heaptop,"\376B\000\000\016invalid number"); lf[7]=C_h_intern(&lf[7],15,"object-uid-hash"); lf[8]=C_h_intern(&lf[8],11,"symbol-hash"); lf[9]=C_h_intern(&lf[9],17,"\003syscheck-keyword"); lf[10]=C_h_intern(&lf[10],11,"\000type-error"); lf[11]=C_decode_literal(C_heaptop,"\376B\000\000!bad argument type - not a keyword"); lf[12]=C_h_intern(&lf[12],8,"keyword\077"); lf[13]=C_h_intern(&lf[13],12,"keyword-hash"); lf[14]=C_h_intern(&lf[14],8,"eq\077-hash"); lf[15]=C_h_intern(&lf[15],16,"hash-by-identity"); lf[16]=C_h_intern(&lf[16],9,"eqv\077-hash"); lf[17]=C_h_intern(&lf[17],26,"\052recursive-hash-max-depth\052"); lf[18]=C_h_intern(&lf[18],24,"recursive-hash-max-depth"); lf[19]=C_h_intern(&lf[19],27,"\052recursive-hash-max-length\052"); lf[20]=C_h_intern(&lf[20],25,"recursive-hash-max-length"); lf[21]=C_h_intern(&lf[21],11,"input-port\077"); lf[22]=C_h_intern(&lf[22],11,"equal\077-hash"); lf[23]=C_h_intern(&lf[23],4,"hash"); lf[24]=C_h_intern(&lf[24],11,"string-hash"); lf[25]=C_h_intern(&lf[25],13,"\003syssubstring"); lf[26]=C_h_intern(&lf[26],15,"\003syscheck-range"); lf[27]=C_h_intern(&lf[27],14,"string-ci-hash"); lf[28]=C_h_intern(&lf[28],14,"string-hash-ci"); lf[30]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\001\000\000\0013\376\003\000\000\002\376\377\001\000\000\002i\376\003\000\000\002\376\377\001\000\000\004\325\376\003\000\000\002\376\377\001\000\000\011\255\376\003\000\000\002\376\377\001\000\000\023]\376\003\000\000\002\376\377\001\000\000&\303\376\003\000\000\002\376\377\001" "\000\000M\215\376\003\000\000\002\376\377\001\000\000\233\035\376\003\000\000\002\376\377\001\000\0016\077\376\003\000\000\002\376\377\001\000\002l\201\376\003\000\000\002\376\377\001\000\004\331\005\376\003\000\000\002\376\377\001\000\011\262\025\376\003\000\000\002\376\377\001\000\023dA\376\003\000\000" "\002\376\377\001\000&\310\205\376\003\000\000\002\376\377\001\000M\221\037\376\003\000\000\002\376\377\001\000\233\042I\376\003\000\000\002\376\377\001\0016D\277\376\003\000\000\002\376\377\001\002l\211\207\376\003\000\000\002\376\377\001\004\331\023\027\376\003\000\000\002\376\377\001\011\262&1" "\376\003\000\000\002\376\377\001\023dLq\376\003\000\000\002\376\377\001&\310\230\373\376\003\000\000\002\376\377\001\077\377\377\377\376\377\016"); lf[32]=C_h_intern(&lf[32],19,"\052make-hash-function"); lf[33]=C_h_intern(&lf[33],13,"\000bounds-error"); lf[34]=C_decode_literal(C_heaptop,"\376B\000\000\030Hash value out of bounds"); lf[35]=C_h_intern(&lf[35],15,"\003syscheck-exact"); lf[37]=C_h_intern(&lf[37],10,"hash-table"); lf[38]=C_h_intern(&lf[38],11,"make-vector"); lf[39]=C_h_intern(&lf[39],3,"eq\077"); lf[40]=C_h_intern(&lf[40],4,"eqv\077"); lf[41]=C_h_intern(&lf[41],6,"equal\077"); lf[42]=C_h_intern(&lf[42],8,"string=\077"); lf[43]=C_h_intern(&lf[43],11,"string-ci=\077"); lf[44]=C_h_intern(&lf[44],1,"="); lf[45]=C_h_intern(&lf[45],15,"make-hash-table"); lf[46]=C_decode_literal(C_heaptop,"\376U0.5\000"); lf[47]=C_decode_literal(C_heaptop,"\376U0.8000000000000000444089209850062616169452667236328125\000"); lf[48]=C_h_intern(&lf[48],7,"warning"); lf[49]=C_decode_literal(C_heaptop,"\376B\000\000\033user test without user hash"); lf[50]=C_h_intern(&lf[50],5,"error"); lf[51]=C_decode_literal(C_heaptop,"\376B\000\000\036min-load greater than max-load"); lf[52]=C_h_intern(&lf[52],3,"fp<"); lf[53]=C_h_intern(&lf[53],5,"\000test"); lf[54]=C_h_intern(&lf[54],17,"\003syscheck-closure"); lf[55]=C_h_intern(&lf[55],5,"\000hash"); lf[56]=C_h_intern(&lf[56],5,"\000size"); lf[57]=C_decode_literal(C_heaptop,"\376B\000\000\014invalid size"); lf[58]=C_h_intern(&lf[58],8,"\000initial"); lf[59]=C_h_intern(&lf[59],9,"\000min-load"); lf[60]=C_decode_literal(C_heaptop,"\376U0.0\000"); lf[61]=C_decode_literal(C_heaptop,"\376U1.0\000"); lf[62]=C_decode_literal(C_heaptop,"\376B\000\000\020invalid min-load"); lf[63]=C_h_intern(&lf[63],17,"\003syscheck-inexact"); lf[64]=C_h_intern(&lf[64],9,"\000max-load"); lf[65]=C_decode_literal(C_heaptop,"\376B\000\000\020invalid max-load"); lf[66]=C_h_intern(&lf[66],10,"\000weak-keys"); lf[67]=C_h_intern(&lf[67],12,"\000weak-values"); lf[68]=C_decode_literal(C_heaptop,"\376B\000\000\017unknown keyword"); lf[69]=C_decode_literal(C_heaptop,"\376B\000\000\025missing keyword value"); lf[70]=C_decode_literal(C_heaptop,"\376B\000\000\017missing keyword"); lf[71]=C_decode_literal(C_heaptop,"\376B\000\000\014invalid size"); lf[72]=C_h_intern(&lf[72],11,"hash-table\077"); lf[73]=C_h_intern(&lf[73],15,"hash-table-size"); lf[74]=C_h_intern(&lf[74],31,"hash-table-equivalence-function"); lf[75]=C_h_intern(&lf[75],24,"hash-table-hash-function"); lf[76]=C_h_intern(&lf[76],19,"hash-table-min-load"); lf[77]=C_h_intern(&lf[77],19,"hash-table-max-load"); lf[78]=C_h_intern(&lf[78],20,"hash-table-weak-keys"); lf[79]=C_h_intern(&lf[79],22,"hash-table-weak-values"); lf[80]=C_h_intern(&lf[80],23,"hash-table-has-initial\077"); lf[81]=C_h_intern(&lf[81],18,"hash-table-initial"); lf[82]=C_h_intern(&lf[82],18,"hash-table-resize!"); lf[84]=C_h_intern(&lf[84],15,"hash-table-copy"); lf[85]=C_h_intern(&lf[85],18,"hash-table-update!"); lf[86]=C_h_intern(&lf[86],5,"floor"); lf[87]=C_h_intern(&lf[87],13,"\000access-error"); lf[88]=C_decode_literal(C_heaptop,"\376B\000\000\037hash-table does not contain key"); lf[90]=C_h_intern(&lf[90],26,"hash-table-update!/default"); lf[91]=C_h_intern(&lf[91],15,"hash-table-set!"); lf[92]=C_h_intern(&lf[92],19,"\003sysundefined-value"); lf[93]=C_h_intern(&lf[93],14,"hash-table-ref"); lf[94]=C_h_intern(&lf[94],22,"hash-table-ref/default"); lf[95]=C_h_intern(&lf[95],18,"hash-table-exists\077"); lf[96]=C_h_intern(&lf[96],18,"hash-table-delete!"); lf[97]=C_h_intern(&lf[97],18,"hash-table-remove!"); lf[98]=C_h_intern(&lf[98],17,"hash-table-clear!"); lf[99]=C_h_intern(&lf[99],12,"vector-fill!"); lf[101]=C_h_intern(&lf[101],17,"hash-table-merge!"); lf[102]=C_h_intern(&lf[102],16,"hash-table-merge"); lf[103]=C_h_intern(&lf[103],17,"hash-table->alist"); lf[104]=C_h_intern(&lf[104],17,"alist->hash-table"); lf[105]=C_h_intern(&lf[105],15,"hash-table-keys"); lf[106]=C_h_intern(&lf[106],17,"hash-table-values"); lf[108]=C_h_intern(&lf[108],8,"for-each"); lf[110]=C_h_intern(&lf[110],15,"hash-table-fold"); lf[111]=C_h_intern(&lf[111],19,"hash-table-for-each"); lf[112]=C_h_intern(&lf[112],15,"hash-table-walk"); lf[113]=C_h_intern(&lf[113],14,"hash-table-map"); lf[114]=C_h_intern(&lf[114],9,"\003sysprint"); lf[115]=C_decode_literal(C_heaptop,"\376B\000\000\002)>"); lf[116]=C_decode_literal(C_heaptop,"\376B\000\000\016#= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[123]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a6052 in k6046 in hash-table-map in k5052 in k2723 in k2718 in k1714 */ 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=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,3)))){ C_save_and_reclaim((void *)f_6053,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6061,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* srfi-69.scm:1122: func */ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} /* k1997 in object-uid-hash in k1714 */ static void C_ccall f_1999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1999,2,av);} t2=((C_word*)t0)[2]; t3=C_fix((C_word)C_MOST_POSITIVE_32_BIT_FIXNUM); t4=C_fixnum_lessp(t1,C_fix(0)); t5=(C_truep(t4)?C_fixnum_negate(t1):t1); t6=C_fixnum_and(t3,t5); t7=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_fixnum_modulo(t6,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k3720 in k3716 in k3713 in k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ 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 t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,8)))){ C_save_and_reclaim((void *)f_3722,2,av);} a=C_alloc(10); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ /* srfi-69.scm:585: *make-hash-table */ f_3603(((C_word*)t0)[4],((C_word*)((C_word*)t0)[5])[1],((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[6])[1],((C_word*)((C_word*)t0)[7])[1],((C_word*)((C_word*)t0)[8])[1],C_SCHEME_END_OF_LIST);} else{ t3=( /* srfi-69.scm:578: hash-for-test */ f_3630(((C_word*)t0)[9]) ); if(C_truep(t3)){ t4=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t3); /* srfi-69.scm:585: *make-hash-table */ f_3603(((C_word*)t0)[4],((C_word*)((C_word*)t0)[5])[1],((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[6])[1],((C_word*)((C_word*)t0)[7])[1],((C_word*)((C_word*)t0)[8])[1],C_SCHEME_END_OF_LIST);} else{ t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3738,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[10],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],tmp=(C_word)a,a+=10,tmp); /* srfi-69.scm:582: warning */ t5=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[45]; av2[3]=lf[49]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* k2613 in eqv?-hash in k1714 */ static void C_ccall f_2615(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2615,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in doloop1168 in k5406 in hash-table-remove! in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5448(C_word t0,C_word t1,C_word 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_5448,4,t0,t1,t2,t3);} a=C_alloc(10); 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_slot(t3,C_fix(0)); t5=C_slot(t3,C_fix(1)); t6=t5; t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5467,a[2]=t2,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t1,a[8]=((C_word*)t0)[5],a[9]=t3,tmp=(C_word)a,a+=10,tmp); t8=C_slot(t4,C_fix(0)); t9=C_slot(t4,C_fix(1)); /* srfi-69.scm:976: func */ t10=((C_word*)t0)[6];{ C_word av2[4]; av2[0]=t10; av2[1]=t7; av2[2]=t8; av2[3]=t9; ((C_proc)C_fast_retrieve_proc(t10))(4,av2);}}} /* hash-table-merge in k5052 in k2723 in k2718 in k1714 */ 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=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,2)))){ C_save_and_reclaim((void *)f_5593,4,av);} a=C_alloc(4); t4=C_i_check_structure_2(t2,lf[37],lf[102]); t5=C_i_check_structure_2(t3,lf[37],lf[102]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5607,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-69.scm:1012: *hash-table-copy */ f_4198(t6,t2);} /* k4462 in loop in k4438 in k4423 in k4344 in k4341 in k4335 in hash-table-update! in k2723 in k2718 in k1714 */ 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 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_4464,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]); t4=C_i_setslot(((C_word*)t0)[4],((C_word*)t0)[5],t3); t5=C_i_set_i_slot(((C_word*)t0)[6],C_fix(2),((C_word*)t0)[7]); t6=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* hash-table-fold in k5052 in k2723 in k2718 in k1714 */ static void C_ccall f_6005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(6,c,3)))){ C_save_and_reclaim((void *)f_6005,5,av);} a=C_alloc(6); t5=C_i_check_structure_2(t2,lf[37],lf[110]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6012,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* srfi-69.scm:1106: ##sys#check-closure */ t7=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t3; av2[3]=lf[110]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k3736 in k3720 in k3716 in k3713 in k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_3738,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); /* srfi-69.scm:585: *make-hash-table */ f_3603(((C_word*)t0)[4],((C_word*)((C_word*)t0)[5])[1],((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[6])[1],((C_word*)((C_word*)t0)[7])[1],((C_word*)((C_word*)t0)[8])[1],((C_word*)((C_word*)t0)[9])[1],C_SCHEME_END_OF_LIST);} /* k5433 in doloop1168 in k5406 in hash-table-remove! in k5052 in k2723 in k2718 in k1714 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5435,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5422(t3,((C_word*)t0)[4],t2);} /* hash-table-merge! in k5052 in k2723 in k2718 in k1714 */ 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=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,3)))){ C_save_and_reclaim((void *)f_5581,4,av);} t4=C_i_check_structure_2(t2,lf[37],lf[101]); t5=C_i_check_structure_2(t3,lf[37],lf[101]); /* srfi-69.scm:1007: *hash-table-merge! */ f_5513(t1,t2,t3);} /* k5687 in alist->hash-table in k5052 in k2723 in k2718 in k1714 */ 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 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_5689,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5690,a[2]=t2,a[3]=((C_word)li80),tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[2]; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5711,a[2]=((C_word*)t0)[3],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|4,a[1]=(C_word)f_5713,a[2]=t7,a[3]=t3,a[4]=((C_word)li81),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_5713(t9,t5,t4);} /* loop2 in loop in hash-table-keys in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5767(C_word t0,C_word t1,C_word 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(3,0,3)))){ C_save_and_reclaim_args((void *)trf_5767,4,t0,t1,t2,t3);} a=C_alloc(3); if(C_truep(C_i_nullp(t2))){ t4=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-69.scm:1054: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_5751(t5,t1,t4,t3);} else{ t4=C_slot(t2,C_fix(1)); t5=C_slot(t2,C_fix(0)); t6=C_slot(t5,C_fix(0)); t7=C_a_i_cons(&a,2,t6,t3); /* srfi-69.scm:1055: loop2 */ t9=t1; t10=t4; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;}} /* alist->hash-table in k5052 in k2723 in k2718 in k1714 */ static void C_ccall f_5682(C_word c,C_word *av){ C_word tmp; C_word 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_5682,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_check_list_2(t2,lf[104]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5689,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[45]+1); av2[3]=t3; C_apply(4,av2);}} /* k6034 in hash-table-walk in k5052 in k2723 in k2718 in k1714 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6036,2,av);} /* srfi-69.scm:1117: *hash-table-for-each */ f_5866(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]);} /* keyword-hash in k1714 */ static void C_ccall f_2139(C_word c,C_word *av){ C_word tmp; C_word 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,3)))){ C_save_and_reclaim((void*)f_2139,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(536870912):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)?lf[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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2155,a[2]=t6,a[3]=t2,a[4]=t11,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* srfi-69.scm:207: ##sys#check-keyword */ t15=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t15; av2[1]=t14; av2[2]=t2; av2[3]=lf[13]; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} /* loop in k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ static void C_fcall f_3747(C_word t0,C_word 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(18,0,3)))){ C_save_and_reclaim_args((void *)trf_3747,3,t0,t1,t2);} a=C_alloc(18); 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=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3758,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word)li25),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_3768,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,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*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=t5,tmp=(C_word)a,a+=13,tmp); /* srfi-69.scm:534: keyword? */ 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);}}} /* doloop1168 in k5406 in hash-table-remove! in k5052 in k2723 in k2718 in k1714 */ static void C_fcall f_5422(C_word t0,C_word t1,C_word 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(15,0,4)))){ C_save_and_reclaim_args((void *)trf_5422,3,t0,t1,t2);} a=C_alloc(15); 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_i_set_i_slot(((C_word*)t0)[3],C_fix(2),((C_word*)((C_word*)t0)[4])[1]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5435,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(((C_word*)t0)[6],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|7,a[1]=(C_word)f_5448,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t6,a[6]=((C_word*)t0)[7],a[7]=((C_word)li66),tmp=(C_word)a,a+=8,tmp)); t8=((C_word*)t6)[1]; f_5448(t8,t3,C_SCHEME_FALSE,t4);}} /* k3740 in k3713 in k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3742,2,av);} if(C_truep(t1)){ /* srfi-69.scm:573: error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[45]; av2[3]=lf[51]; av2[4]=((C_word*)((C_word*)t0)[3])[1]; av2[5]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_3718(2,av2);}}} /* a5573 in doloop1196 in doloop1193 in *hash-table-merge! in k5052 in k2723 in k2718 in k1714 */ 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=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_5574,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* invarg-err in loop in k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ static void C_fcall f_3758(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_3758,3,t0,t1,t2);} /* srfi-69.scm:533: error */ t3=*((C_word*)lf[50]+1);{ C_word av2[6]; av2[0]=t3; av2[1]=t1; av2[2]=lf[45]; av2[3]=t2; av2[4]=((C_word*)t0)[2]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k5559 in doloop1196 in doloop1193 in *hash-table-merge! in k5052 in k2723 in k2718 in k1714 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5561,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5548(t3,((C_word*)t0)[4],t2);} /* k3766 in loop in k3710 in k3707 in k3704 in make-hash-table in k2723 in k2718 in k1714 */ 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 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_3768,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|12,a[1]=(C_word)f_3772,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],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_pairp(t3))){ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_u_i_car(t3); f_3772(2,av2);}} else{ /* srfi-69.scm:538: invarg-err */ t5=((C_word*)t0)[12]; f_3758(t5,t4,lf[69]);}} else{ /* srfi-69.scm:570: invarg-err */ t2=((C_word*)t0)[12]; f_3758(t2,((C_word*)t0)[4],lf[70]);}} /* hash-table-update! in k2723 in k2718 in k1714 */ 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=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 +12,c,2)))){ C_save_and_reclaim((void*)f_4333,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+12); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; C_word t8; C_word t9; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4337,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t4,a[6]=t1,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_nullp(t5))){ t7=C_slot(t2,C_fix(9)); if(C_truep(t7)){ t8=t6; f_4337(t8,t7);} else{ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4589,a[2]=t3,a[3]=t2,a[4]=((C_word)li48),tmp=(C_word)a,a+=5,tmp); t9=t6; f_4337(t9,t8);}} else{ t7=t6; f_4337(t7,C_i_car(t5));}} /* k4335 in hash-table-update! in k2723 in k2718 in k1714 */ static void C_fcall f_4337(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_4337,2,t0,t1);} a=C_alloc(8); t2=t1; t3=C_i_check_structure_2(((C_word*)t0)[2],lf[37],lf[85]); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4343,a[2]=((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); /* srfi-69.scm:721: ##sys#check-closure */ t5=*((C_word*)lf[54]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=lf[85]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[244] = { {"f_4198:srfi_2d69_2escm",(void*)f_4198}, {"f_4589:srfi_2d69_2escm",(void*)f_4589}, {"f_5246:srfi_2d69_2escm",(void*)f_5246}, {"f_4283:srfi_2d69_2escm",(void*)f_4283}, {"f_4289:srfi_2d69_2escm",(void*)f_4289}, {"f_6092:srfi_2d69_2escm",(void*)f_6092}, {"f_5713:srfi_2d69_2escm",(void*)f_5713}, {"f_1908:srfi_2d69_2escm",(void*)f_1908}, {"f_5711:srfi_2d69_2escm",(void*)f_5711}, {"f_2113:srfi_2d69_2escm",(void*)f_2113}, {"f_5270:srfi_2d69_2escm",(void*)f_5270}, {"f_3021:srfi_2d69_2escm",(void*)f_3021}, {"f_2120:srfi_2d69_2escm",(void*)f_2120}, {"f_5306:srfi_2d69_2escm",(void*)f_5306}, {"f_5723:srfi_2d69_2escm",(void*)f_5723}, {"f_4527:srfi_2d69_2escm",(void*)f_4527}, {"f_1914:srfi_2d69_2escm",(void*)f_1914}, {"f_4671:srfi_2d69_2escm",(void*)f_4671}, {"f_1946:srfi_2d69_2escm",(void*)f_1946}, {"f_5751:srfi_2d69_2escm",(void*)f_5751}, {"f_4678:srfi_2d69_2escm",(void*)f_4678}, {"f_2691:srfi_2d69_2escm",(void*)f_2691}, {"f_4557:srfi_2d69_2escm",(void*)f_4557}, {"f_4554:srfi_2d69_2escm",(void*)f_4554}, {"f_5703:srfi_2d69_2escm",(void*)f_5703}, {"f_4693:srfi_2d69_2escm",(void*)f_4693}, {"f_5736:srfi_2d69_2escm",(void*)f_5736}, {"f_4598:srfi_2d69_2escm",(void*)f_4598}, {"f_6082:srfi_2d69_2escm",(void*)f_6082}, {"f_4802:srfi_2d69_2escm",(void*)f_4802}, {"f_5286:srfi_2d69_2escm",(void*)f_5286}, {"f_3311:srfi_2d69_2escm",(void*)f_3311}, {"f_3314:srfi_2d69_2escm",(void*)f_3314}, {"f_4826:srfi_2d69_2escm",(void*)f_4826}, {"f_4545:srfi_2d69_2escm",(void*)f_4545}, {"f_3617:srfi_2d69_2escm",(void*)f_3617}, {"f_2730:srfi_2d69_2escm",(void*)f_2730}, {"f_3628:srfi_2d69_2escm",(void*)f_3628}, {"f_4921:srfi_2d69_2escm",(void*)f_4921}, {"f_4914:srfi_2d69_2escm",(void*)f_4914}, {"f_6161:srfi_2d69_2escm",(void*)f_6161}, {"f_3607:srfi_2d69_2escm",(void*)f_3607}, {"f_4906:srfi_2d69_2escm",(void*)f_4906}, {"f_3603:srfi_2d69_2escm",(void*)f_3603}, {"f_2727:srfi_2d69_2escm",(void*)f_2727}, {"f_2725:srfi_2d69_2escm",(void*)f_2725}, {"f_2720:srfi_2d69_2escm",(void*)f_2720}, {"f_6119:srfi_2d69_2escm",(void*)f_6119}, {"f_5995:srfi_2d69_2escm",(void*)f_5995}, {"f_2331:srfi_2d69_2escm",(void*)f_2331}, {"f_3378:srfi_2d69_2escm",(void*)f_3378}, {"f_6104:srfi_2d69_2escm",(void*)f_6104}, {"f_4953:srfi_2d69_2escm",(void*)f_4953}, {"f_3630:srfi_2d69_2escm",(void*)f_3630}, {"f_4833:srfi_2d69_2escm",(void*)f_4833}, {"f_4838:srfi_2d69_2escm",(void*)f_4838}, {"f_4517:srfi_2d69_2escm",(void*)f_4517}, {"f_5967:srfi_2d69_2escm",(void*)f_5967}, {"f_4942:srfi_2d69_2escm",(void*)f_4942}, {"f_4936:srfi_2d69_2escm",(void*)f_4936}, {"f_2747:srfi_2d69_2escm",(void*)f_2747}, {"f_4799:srfi_2d69_2escm",(void*)f_4799}, {"f_5233:srfi_2d69_2escm",(void*)f_5233}, {"f_4776:srfi_2d69_2escm",(void*)f_4776}, {"f_6180:srfi_2d69_2escm",(void*)f_6180}, {"f_6202:srfi_2d69_2escm",(void*)f_6202}, {"f_3118:srfi_2d69_2escm",(void*)f_3118}, {"f_2379:srfi_2d69_2escm",(void*)f_2379}, {"f_5142:srfi_2d69_2escm",(void*)f_5142}, {"f_3138:srfi_2d69_2escm",(void*)f_3138}, {"f_5467:srfi_2d69_2escm",(void*)f_5467}, {"f_4211:srfi_2d69_2escm",(void*)f_4211}, {"f_5193:srfi_2d69_2escm",(void*)f_5193}, {"f_4208:srfi_2d69_2escm",(void*)f_4208}, {"f_2781:srfi_2d69_2escm",(void*)f_2781}, {"f_3210:srfi_2d69_2escm",(void*)f_3210}, {"f_5162:srfi_2d69_2escm",(void*)f_5162}, {"f_5497:srfi_2d69_2escm",(void*)f_5497}, {"f_5178:srfi_2d69_2escm",(void*)f_5178}, {"f_2803:srfi_2d69_2escm",(void*)f_2803}, {"f_3551:srfi_2d69_2escm",(void*)f_3551}, {"f_4128:srfi_2d69_2escm",(void*)f_4128}, {"f_3569:srfi_2d69_2escm",(void*)f_3569}, {"f_3271:srfi_2d69_2escm",(void*)f_3271}, {"f_5640:srfi_2d69_2escm",(void*)f_5640}, {"f_4115:srfi_2d69_2escm",(void*)f_4115}, {"f_3071:srfi_2d69_2escm",(void*)f_3071}, {"f_5525:srfi_2d69_2escm",(void*)f_5525}, {"f_3083:srfi_2d69_2escm",(void*)f_3083}, {"f_5513:srfi_2d69_2escm",(void*)f_5513}, {"f_4185:srfi_2d69_2escm",(void*)f_4185}, {"f_3059:srfi_2d69_2escm",(void*)f_3059}, {"f_4627:srfi_2d69_2escm",(void*)f_4627}, {"f_4182:srfi_2d69_2escm",(void*)f_4182}, {"f_5624:srfi_2d69_2escm",(void*)f_5624}, {"f_5504:srfi_2d69_2escm",(void*)f_5504}, {"f_4179:srfi_2d69_2escm",(void*)f_4179}, {"f_4172:srfi_2d69_2escm",(void*)f_4172}, {"f_3527:srfi_2d69_2escm",(void*)f_3527}, {"f_3521:srfi_2d69_2escm",(void*)f_3521}, {"f_4644:srfi_2d69_2escm",(void*)f_4644}, {"f_5607:srfi_2d69_2escm",(void*)f_5607}, {"f_5609:srfi_2d69_2escm",(void*)f_5609}, {"f_4227:srfi_2d69_2escm",(void*)f_4227}, {"f_1741:srfi_2d69_2escm",(void*)f_1741}, {"f_4638:srfi_2d69_2escm",(void*)f_4638}, {"f_4663:srfi_2d69_2escm",(void*)f_4663}, {"f_1725:srfi_2d69_2escm",(void*)f_1725}, {"f_4391:srfi_2d69_2escm",(void*)f_4391}, {"f_3579:srfi_2d69_2escm",(void*)f_3579}, {"f_4385:srfi_2d69_2escm",(void*)f_4385}, {"f_3574:srfi_2d69_2escm",(void*)f_3574}, {"f_5372:srfi_2d69_2escm",(void*)f_5372}, {"f_4105:srfi_2d69_2escm",(void*)f_4105}, {"f_3583:srfi_2d69_2escm",(void*)f_3583}, {"f_3586:srfi_2d69_2escm",(void*)f_3586}, {"f_1719:srfi_2d69_2escm",(void*)f_1719}, {"f_1716:srfi_2d69_2escm",(void*)f_1716}, {"f_6232:srfi_2d69_2escm",(void*)f_6232}, {"f_5353:srfi_2d69_2escm",(void*)f_5353}, {"f_4717:srfi_2d69_2escm",(void*)f_4717}, {"f_6225:srfi_2d69_2escm",(void*)f_6225}, {"f_3237:srfi_2d69_2escm",(void*)f_3237}, {"f_4707:srfi_2d69_2escm",(void*)f_4707}, {"f_6218:srfi_2d69_2escm",(void*)f_6218}, {"f_6211:srfi_2d69_2escm",(void*)f_6211}, {"f_4144:srfi_2d69_2escm",(void*)f_4144}, {"f_2155:srfi_2d69_2escm",(void*)f_2155}, {"f_4766:srfi_2d69_2escm",(void*)f_4766}, {"f_5535:srfi_2d69_2escm",(void*)f_5535}, {"f_5548:srfi_2d69_2escm",(void*)f_5548}, {"f_4743:srfi_2d69_2escm",(void*)f_4743}, {"f_3970:srfi_2d69_2escm",(void*)f_3970}, {"f_3987:srfi_2d69_2escm",(void*)f_3987}, {"f_3150:srfi_2d69_2escm",(void*)f_3150}, {"f_3990:srfi_2d69_2escm",(void*)f_3990}, {"f_3997:srfi_2d69_2escm",(void*)f_3997}, {"f_3162:srfi_2d69_2escm",(void*)f_3162}, {"f_5126:srfi_2d69_2escm",(void*)f_5126}, {"f_4494:srfi_2d69_2escm",(void*)f_4494}, {"f_5087:srfi_2d69_2escm",(void*)f_5087}, {"f_4482:srfi_2d69_2escm",(void*)f_4482}, {"f_5072:srfi_2d69_2escm",(void*)f_5072}, {"f_5054:srfi_2d69_2escm",(void*)f_5054}, {"f_3967:srfi_2d69_2escm",(void*)f_3967}, {"f_5056:srfi_2d69_2escm",(void*)f_5056}, {"f_4012:srfi_2d69_2escm",(void*)f_4012}, {"f_3455:srfi_2d69_2escm",(void*)f_3455}, {"f_3452:srfi_2d69_2escm",(void*)f_3452}, {"f_5926:srfi_2d69_2escm",(void*)f_5926}, {"f_5939:srfi_2d69_2escm",(void*)f_5939}, {"f_4039:srfi_2d69_2escm",(void*)f_4039}, {"f_4870:srfi_2d69_2escm",(void*)f_4870}, {"f_4030:srfi_2d69_2escm",(void*)f_4030}, {"f_4021:srfi_2d69_2escm",(void*)f_4021}, {"f_5907:srfi_2d69_2escm",(void*)f_5907}, {"f_4057:srfi_2d69_2escm",(void*)f_4057}, {"f_5886:srfi_2d69_2escm",(void*)f_5886}, {"f_5002:srfi_2d69_2escm",(void*)f_5002}, {"f_4048:srfi_2d69_2escm",(void*)f_4048}, {"f_4881:srfi_2d69_2escm",(void*)f_4881}, {"f_4887:srfi_2d69_2escm",(void*)f_4887}, {"f_5878:srfi_2d69_2escm",(void*)f_5878}, {"f_4078:srfi_2d69_2escm",(void*)f_4078}, {"f_5866:srfi_2d69_2escm",(void*)f_5866}, {"f_6066:srfi_2d69_2escm",(void*)f_6066}, {"f_6064:srfi_2d69_2escm",(void*)f_6064}, {"f_6061:srfi_2d69_2escm",(void*)f_6061}, {"f_5951:srfi_2d69_2escm",(void*)f_5951}, {"f_4066:srfi_2d69_2escm",(void*)f_4066}, {"f_4425:srfi_2d69_2escm",(void*)f_4425}, {"f_2025:srfi_2d69_2escm",(void*)f_2025}, {"f_4310:srfi_2d69_2escm",(void*)f_4310}, {"f_3772:srfi_2d69_2escm",(void*)f_3772}, {"f_6048:srfi_2d69_2escm",(void*)f_6048}, {"f_3775:srfi_2d69_2escm",(void*)f_3775}, {"f_6041:srfi_2d69_2escm",(void*)f_6041}, {"f_3827:srfi_2d69_2escm",(void*)f_3827}, {"f_4454:srfi_2d69_2escm",(void*)f_4454}, {"f_4324:srfi_2d69_2escm",(void*)f_4324}, {"f_4003:srfi_2d69_2escm",(void*)f_4003}, {"f_3786:srfi_2d69_2escm",(void*)f_3786}, {"f_6073:srfi_2d69_2escm",(void*)f_6073}, {"f_6070:srfi_2d69_2escm",(void*)f_6070}, {"f_5032:srfi_2d69_2escm",(void*)f_5032}, {"f_4440:srfi_2d69_2escm",(void*)f_4440}, {"f_3796:srfi_2d69_2escm",(void*)f_3796}, {"f_5916:srfi_2d69_2escm",(void*)f_5916}, {"f_3809:srfi_2d69_2escm",(void*)f_3809}, {"f_4374:srfi_2d69_2escm",(void*)f_4374}, {"f_5801:srfi_2d69_2escm",(void*)f_5801}, {"f_3412:srfi_2d69_2escm",(void*)f_3412}, {"f_3860:srfi_2d69_2escm",(void*)f_3860}, {"f_4418:srfi_2d69_2escm",(void*)f_4418}, {"f_3863:srfi_2d69_2escm",(void*)f_3863}, {"f_4410:srfi_2d69_2escm",(void*)f_4410}, {"f_3935:srfi_2d69_2escm",(void*)f_3935}, {"f_3837:srfi_2d69_2escm",(void*)f_3837}, {"f_3941:srfi_2d69_2escm",(void*)f_3941}, {"f_2643:srfi_2d69_2escm",(void*)f_2643}, {"f_4346:srfi_2d69_2escm",(void*)f_4346}, {"f_3840:srfi_2d69_2escm",(void*)f_3840}, {"f_4343:srfi_2d69_2escm",(void*)f_4343}, {"f_6012:srfi_2d69_2escm",(void*)f_6012}, {"f_6017:srfi_2d69_2escm",(void*)f_6017}, {"f_5401:srfi_2d69_2escm",(void*)f_5401}, {"f_5408:srfi_2d69_2escm",(void*)f_5408}, {"f_5690:srfi_2d69_2escm",(void*)f_5690}, {"f_5832:srfi_2d69_2escm",(void*)f_5832}, {"f_3709:srfi_2d69_2escm",(void*)f_3709}, {"f_3706:srfi_2d69_2escm",(void*)f_3706}, {"f_6024:srfi_2d69_2escm",(void*)f_6024}, {"f_6029:srfi_2d69_2escm",(void*)f_6029}, {"f_3715:srfi_2d69_2escm",(void*)f_3715}, {"f_3718:srfi_2d69_2escm",(void*)f_3718}, {"f_3712:srfi_2d69_2escm",(void*)f_3712}, {"f_5816:srfi_2d69_2escm",(void*)f_5816}, {"toplevel:srfi_2d69_2escm",(void*)C_srfi_2d69_toplevel}, {"f_6053:srfi_2d69_2escm",(void*)f_6053}, {"f_1999:srfi_2d69_2escm",(void*)f_1999}, {"f_3722:srfi_2d69_2escm",(void*)f_3722}, {"f_2615:srfi_2d69_2escm",(void*)f_2615}, {"f_5448:srfi_2d69_2escm",(void*)f_5448}, {"f_5593:srfi_2d69_2escm",(void*)f_5593}, {"f_4464:srfi_2d69_2escm",(void*)f_4464}, {"f_6005:srfi_2d69_2escm",(void*)f_6005}, {"f_3738:srfi_2d69_2escm",(void*)f_3738}, {"f_5435:srfi_2d69_2escm",(void*)f_5435}, {"f_5581:srfi_2d69_2escm",(void*)f_5581}, {"f_5689:srfi_2d69_2escm",(void*)f_5689}, {"f_5767:srfi_2d69_2escm",(void*)f_5767}, {"f_5682:srfi_2d69_2escm",(void*)f_5682}, {"f_6036:srfi_2d69_2escm",(void*)f_6036}, {"f_2139:srfi_2d69_2escm",(void*)f_2139}, {"f_3747:srfi_2d69_2escm",(void*)f_3747}, {"f_5422:srfi_2d69_2escm",(void*)f_5422}, {"f_3742:srfi_2d69_2escm",(void*)f_3742}, {"f_5574:srfi_2d69_2escm",(void*)f_5574}, {"f_3758:srfi_2d69_2escm",(void*)f_3758}, {"f_5561:srfi_2d69_2escm",(void*)f_5561}, {"f_3768:srfi_2d69_2escm",(void*)f_3768}, {"f_4333:srfi_2d69_2escm",(void*)f_4333}, {"f_4337:srfi_2d69_2escm",(void*)f_4337}, {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| ##sys#for-each 1 S| for-each 1 o|eliminated procedure checks: 243 o|specializations: o| 1 (##sys#check-list (or pair list) *) o| 4 (fp< float float) o| 8 (eqv? * (not float)) o| 1 (car pair) o| 2 (cdr pair) o| 2 (memq * list) o| 2 (positive? fixnum) (o e)|safe calls: 632 (o e)|assignments to immediate values: 7 o|Removed `not' forms: 6 o|contracted procedure: "(srfi-69.scm:159) g105106" o|contracted procedure: "(srfi-69.scm:120) g110111" o|inlining procedure: k1758 o|inlining procedure: k1758 o|contracted procedure: "(srfi-69.scm:159) g113114" o|inlining procedure: k1776 o|inlining procedure: k1776 o|contracted procedure: "(srfi-69.scm:152) g121122" o|inlining procedure: k1787 o|contracted procedure: "(srfi-69.scm:147) g162163" o|contracted procedure: "(srfi-69.scm:147) g158159" o|contracted procedure: "(srfi-69.scm:147) g154155" o|contracted procedure: "(srfi-69.scm:147) g150151" o|contracted procedure: "(srfi-69.scm:147) g146147" o|contracted procedure: "(srfi-69.scm:147) g142143" o|contracted procedure: "(srfi-69.scm:147) g138139" o|contracted procedure: "(srfi-69.scm:147) g134135" o|inlining procedure: k1787 o|contracted procedure: "(srfi-69.scm:148) g166167" o|contracted procedure: "(srfi-69.scm:173) g188189" o|contracted procedure: "(srfi-69.scm:120) g193194" o|inlining procedure: k1976 o|inlining procedure: k1976 o|contracted procedure: "(srfi-69.scm:173) g196197" o|contracted procedure: "(srfi-69.scm:188) g218219" o|contracted procedure: "(srfi-69.scm:120) g223224" o|inlining procedure: k2058 o|inlining procedure: k2058 o|contracted procedure: "(srfi-69.scm:188) g226227" o|contracted procedure: "(srfi-69.scm:182) g230231" o|inlining procedure: k2115 o|inlining procedure: k2115 o|contracted procedure: k2128 o|inlining procedure: k2125 o|inlining procedure: k2125 o|contracted procedure: "(srfi-69.scm:209) g257258" o|contracted procedure: "(srfi-69.scm:120) g262263" o|inlining procedure: k2172 o|inlining procedure: k2172 o|contracted procedure: "(srfi-69.scm:209) g265266" o|contracted procedure: "(srfi-69.scm:203) g269270" o|contracted procedure: "(srfi-69.scm:235) g314315" o|contracted procedure: "(srfi-69.scm:120) g319320" o|inlining procedure: k2361 o|inlining procedure: k2361 o|contracted procedure: "(srfi-69.scm:235) *eq?-hash" o|inlining procedure: k2229 o|inlining procedure: k2229 o|inlining procedure: k2251 o|inlining procedure: k2251 o|inlining procedure: k2269 o|inlining procedure: k2269 o|inlining procedure: k2287 o|contracted procedure: "(srfi-69.scm:226) g282283" o|contracted procedure: "(srfi-69.scm:182) g286287" o|inlining procedure: k2287 o|contracted procedure: "(srfi-69.scm:230) g293294" o|contracted procedure: "(srfi-69.scm:229) g290291" o|contracted procedure: "(srfi-69.scm:262) g411412" o|contracted procedure: "(srfi-69.scm:120) g416417" o|inlining procedure: k2673 o|inlining procedure: k2673 o|contracted procedure: "(srfi-69.scm:262) *eqv?-hash" o|inlining procedure: k2408 o|inlining procedure: k2408 o|inlining procedure: k2430 o|inlining procedure: k2430 o|inlining procedure: k2448 o|inlining procedure: k2448 o|inlining procedure: k2466 o|contracted procedure: "(srfi-69.scm:252) g331332" o|contracted procedure: "(srfi-69.scm:182) g335336" o|inlining procedure: k2466 o|contracted procedure: "(srfi-69.scm:255) g339340" o|inlining procedure: k2494 o|contracted procedure: "(srfi-69.scm:147) g380381" o|contracted procedure: "(srfi-69.scm:147) g376377" o|contracted procedure: "(srfi-69.scm:147) g372373" o|contracted procedure: "(srfi-69.scm:147) g368369" o|contracted procedure: "(srfi-69.scm:147) g364365" o|contracted procedure: "(srfi-69.scm:147) g360361" o|contracted procedure: "(srfi-69.scm:147) g356357" o|contracted procedure: "(srfi-69.scm:147) g352353" o|inlining procedure: k2494 o|contracted procedure: "(srfi-69.scm:148) g384385" o|inlining procedure: k2619 o|inlining procedure: k2619 o|contracted procedure: "(srfi-69.scm:257) g390391" o|contracted procedure: "(srfi-69.scm:256) g387388" o|inlining procedure: k2749 o|inlining procedure: k2749 o|inlining procedure: k2805 o|inlining procedure: k2805 o|inlining procedure: k2823 o|inlining procedure: k2823 o|inlining procedure: k2845 o|inlining procedure: k2845 o|inlining procedure: k2863 o|inlining procedure: k2863 o|contracted procedure: "(srfi-69.scm:331) g453454" o|contracted procedure: "(srfi-69.scm:182) g457458" o|inlining procedure: k2892 o|contracted procedure: "(srfi-69.scm:334) g461462" o|inlining procedure: k2900 o|contracted procedure: "(srfi-69.scm:147) g502503" o|contracted procedure: "(srfi-69.scm:147) g498499" o|contracted procedure: "(srfi-69.scm:147) g494495" o|contracted procedure: "(srfi-69.scm:147) g490491" o|contracted procedure: "(srfi-69.scm:147) g486487" o|contracted procedure: "(srfi-69.scm:147) g482483" o|contracted procedure: "(srfi-69.scm:147) g478479" o|contracted procedure: "(srfi-69.scm:147) g474475" o|inlining procedure: k2900 o|contracted procedure: "(srfi-69.scm:148) g506507" o|inlining procedure: k2892 o|inlining procedure: k3040 o|contracted procedure: "(srfi-69.scm:336) g515516" o|inlining procedure: k3040 o|inlining procedure: k3095 o|contracted procedure: "(srfi-69.scm:338) g526527" o|inlining procedure: k3113 o|inlining procedure: k3113 o|inlining procedure: k3095 o|contracted procedure: "(srfi-69.scm:339) g530531" o|contracted procedure: "(srfi-69.scm:338) g523524" o|contracted procedure: "(srfi-69.scm:336) g512513" o|contracted procedure: "(srfi-69.scm:335) g509510" o|contracted procedure: "(srfi-69.scm:348) g560561" o|contracted procedure: "(srfi-69.scm:120) g565566" o|inlining procedure: k3192 o|inlining procedure: k3192 o|contracted procedure: "(srfi-69.scm:364) g598599" o|contracted procedure: "(srfi-69.scm:120) g603604" o|inlining procedure: k3285 o|inlining procedure: k3285 o|contracted procedure: "(srfi-69.scm:364) g606607" o|contracted procedure: "(srfi-69.scm:376) g640641" o|contracted procedure: "(srfi-69.scm:120) g645646" o|inlining procedure: k3426 o|inlining procedure: k3426 o|contracted procedure: "(srfi-69.scm:376) g648649" o|inlining procedure: k3535 o|inlining procedure: k3535 o|inlining procedure: k3553 o|inlining procedure: k3553 o|inlining procedure: k3587 o|inlining procedure: k3587 o|merged explicitly consed rest parameter: tmp707716 o|inlining procedure: k3632 o|inlining procedure: k3632 o|inlining procedure: k3650 o|inlining procedure: k3650 o|inlining procedure: k3668 o|inlining procedure: k3668 o|inlining procedure: k3683 o|inlining procedure: k3683 o|consed rest parameter at call site: "(srfi-69.scm:585) *make-hash-table" 9 o|inlining procedure: k3732 o|inlining procedure: k3732 o|inlining procedure: k3749 o|inlining procedure: k3749 o|inlining procedure: k3788 o|inlining procedure: k3788 o|inlining procedure: k3820 o|inlining procedure: k3820 o|inlining procedure: k3838 o|inlining procedure: k3838 o|substituted constant variable: a3848 o|substituted constant variable: a3851 o|inlining procedure: k3852 o|substituted constant variable: a3871 o|substituted constant variable: a3874 o|inlining procedure: k3852 o|inlining procedure: k3882 o|inlining procedure: k3882 o|inlining procedure: k3885 o|inlining procedure: k3885 o|substituted constant variable: a3899 o|substituted constant variable: a3901 o|substituted constant variable: a3903 o|substituted constant variable: a3905 o|substituted constant variable: a3907 o|substituted constant variable: a3909 o|substituted constant variable: a3911 o|substituted constant variable: a3913 o|inlining procedure: k3930 o|inlining procedure: k3930 o|inlining procedure: k3962 o|inlining procedure: k3962 o|inlining procedure: k3982 o|inlining procedure: k3982 o|inlining procedure: k4071 o|inlining procedure: k4071 o|inlining procedure: k4086 o|inlining procedure: k4086 o|contracted procedure: "(srfi-69.scm:654) hash-table-rehash!" o|inlining procedure: k4107 o|inlining procedure: k4107 o|inlining procedure: k4130 o|inlining procedure: k4130 o|inlining procedure: k4229 o|consed rest parameter at call site: "(srfi-69.scm:680) *make-hash-table" 9 o|inlining procedure: k4229 o|inlining procedure: k4291 o|inlining procedure: k4291 o|inlining procedure: k4444 o|inlining procedure: k4456 o|inlining procedure: k4456 o|inlining procedure: k4444 o|inlining procedure: k4519 o|inlining procedure: k4519 o|contracted procedure: "(srfi-69.scm:724) g915916" o|inlining procedure: k4386 o|inlining procedure: k4386 o|inlining procedure: k4398 o|inlining procedure: k4398 o|contracted procedure: "(srfi-69.scm:665) g928929" o|inlining procedure: k4377 o|inlining procedure: k4377 o|contracted procedure: "(srfi-69.scm:664) g925926" o|inlining procedure: k4366 o|inlining procedure: k4366 o|inlining procedure: k4586 o|inlining procedure: k4586 o|inlining procedure: k4697 o|inlining procedure: k4709 o|inlining procedure: k4709 o|inlining procedure: k4697 o|inlining procedure: k4768 o|inlining procedure: k4768 o|contracted procedure: "(srfi-69.scm:763) g968969" o|inlining procedure: k4639 o|inlining procedure: k4639 o|inlining procedure: k4651 o|inlining procedure: k4651 o|contracted procedure: "(srfi-69.scm:665) g981982" o|inlining procedure: k4630 o|inlining procedure: k4630 o|contracted procedure: "(srfi-69.scm:664) g978979" o|inlining procedure: k4619 o|inlining procedure: k4619 o|inlining procedure: k4940 o|inlining procedure: k4955 o|inlining procedure: k4955 o|inlining procedure: k4940 o|inlining procedure: k5004 o|inlining procedure: k5004 o|contracted procedure: "(srfi-69.scm:808) g10241025" o|inlining procedure: k4882 o|inlining procedure: k4882 o|inlining procedure: k4894 o|inlining procedure: k4894 o|contracted procedure: "(srfi-69.scm:665) g10371038" o|inlining procedure: k4873 o|inlining procedure: k4873 o|contracted procedure: "(srfi-69.scm:664) g10341035" o|inlining procedure: k4862 o|inlining procedure: k4862 o|inlining procedure: k5073 o|inlining procedure: k5089 o|inlining procedure: k5089 o|inlining procedure: k5073 o|inlining procedure: k5128 o|inlining procedure: k5128 o|inlining procedure: k5179 o|contracted procedure: k5198 o|inlining procedure: k5195 o|inlining procedure: k5195 o|inlining procedure: k5179 o|contracted procedure: k5238 o|inlining procedure: k5235 o|inlining procedure: k5235 o|inlining procedure: k5296 o|contracted procedure: k5311 o|inlining procedure: k5308 o|inlining procedure: k5308 o|inlining procedure: k5296 o|contracted procedure: k5358 o|inlining procedure: k5355 o|inlining procedure: k5355 o|inlining procedure: k5424 o|inlining procedure: k5424 o|contracted procedure: k5453 o|inlining procedure: k5450 o|inlining procedure: k5450 o|inlining procedure: k5527 o|inlining procedure: k5527 o|inlining procedure: k5550 o|inlining procedure: k5550 o|inlining procedure: k5626 o|inlining procedure: k5626 o|inlining procedure: k5642 o|inlining procedure: k5642 o|inlining procedure: k5715 o|inlining procedure: k5715 o|inlining procedure: k5753 o|inlining procedure: k5753 o|inlining procedure: k5769 o|inlining procedure: k5769 o|inlining procedure: k5818 o|inlining procedure: k5818 o|inlining procedure: k5834 o|inlining procedure: k5834 o|inlining procedure: k5880 o|inlining procedure: k5880 o|inlining procedure: k5918 o|inlining procedure: k5918 o|inlining procedure: k5953 o|inlining procedure: k5953 o|inlining procedure: k5969 o|inlining procedure: k5969 o|inlining procedure: k6105 o|inlining procedure: k6121 o|inlining procedure: k6121 o|inlining procedure: k6105 o|inlining procedure: k6163 o|inlining procedure: k6163 o|inlining procedure: k6213 o|inlining procedure: k6213 o|propagated global variable: r62146469 *recursive-hash-max-length* o|inlining procedure: k6227 o|inlining procedure: k6227 o|propagated global variable: r62286471 *recursive-hash-max-depth* o|replaced variables: 690 o|removed binding forms: 330 o|substituted constant variable: i165 o|substituted constant variable: i161 o|substituted constant variable: i157 o|substituted constant variable: i153 o|substituted constant variable: i149 o|substituted constant variable: i145 o|substituted constant variable: i141 o|substituted constant variable: i137 o|substituted constant variable: r21266250 o|substituted constant variable: r21266250 o|substituted constant variable: i383 o|substituted constant variable: i379 o|substituted constant variable: i375 o|substituted constant variable: i371 o|substituted constant variable: i367 o|substituted constant variable: i363 o|substituted constant variable: i359 o|substituted constant variable: i355 o|substituted constant variable: i505 o|substituted constant variable: i501 o|substituted constant variable: i497 o|substituted constant variable: i493 o|substituted constant variable: i489 o|substituted constant variable: i485 o|substituted constant variable: i481 o|substituted constant variable: i477 o|substituted constant variable: r31146297 o|substituted constant variable: r31146297 o|substituted constant variable: r31146299 o|substituted constant variable: r31146299 o|removed unused formal parameters: (weak-keys713 weak-values714) o|removed unused parameter to known procedure: weak-keys713 "(srfi-69.scm:585) *make-hash-table" o|removed unused parameter to known procedure: weak-values714 "(srfi-69.scm:585) *make-hash-table" o|inlining procedure: k3861 o|substituted constant variable: r38836338 o|substituted constant variable: r38836340 o|inlining procedure: k3892 o|inlining procedure: k3892 o|substituted constant variable: r40726350 o|substituted constant variable: r40726351 o|substituted constant variable: r40876353 o|removed unused parameter to known procedure: weak-keys713 "(srfi-69.scm:680) *make-hash-table" o|removed unused parameter to known procedure: weak-values714 "(srfi-69.scm:680) *make-hash-table" o|substituted constant variable: r42926360 o|substituted constant variable: r43996371 o|substituted constant variable: r46526387 o|substituted constant variable: r48956409 o|substituted constant variable: r51966421 o|substituted constant variable: r52366424 o|substituted constant variable: r53096427 o|substituted constant variable: r53566430 o|substituted constant variable: r54516434 o|replaced variables: 110 o|removed binding forms: 711 o|inlining procedure: k1897 o|inlining procedure: k2604 o|inlining procedure: k3010 o|inlining procedure: k3541 o|inlining procedure: k3723 o|inlining procedure: k3723 o|inlining procedure: k3723 o|inlining procedure: k3773 o|inlining procedure: k3773 o|inlining procedure: k3773 o|inlining procedure: k3773 o|inlining procedure: k3773 o|inlining procedure: k3773 o|inlining procedure: k3773 o|inlining procedure: k3773 o|removed side-effect free assignment to unused variable: weak-keys746 o|inlining procedure: k3773 o|removed side-effect free assignment to unused variable: weak-keys746 o|inlining procedure: k3773 o|removed side-effect free assignment to unused variable: weak-values747 o|inlining procedure: k3773 o|removed side-effect free assignment to unused variable: weak-values747 o|inlining procedure: k3773 o|replaced variables: 34 o|removed binding forms: 158 o|contracted procedure: k1803 o|contracted procedure: k1817 o|contracted procedure: k1831 o|contracted procedure: k1845 o|contracted procedure: k1859 o|contracted procedure: k1873 o|contracted procedure: k1887 o|contracted procedure: k2510 o|contracted procedure: k2524 o|contracted procedure: k2538 o|contracted procedure: k2552 o|contracted procedure: k2566 o|contracted procedure: k2580 o|contracted procedure: k2594 o|contracted procedure: k2916 o|contracted procedure: k2930 o|contracted procedure: k2944 o|contracted procedure: k2958 o|contracted procedure: k2972 o|contracted procedure: k2986 o|contracted procedure: k3000 o|contracted procedure: k3045 o|contracted procedure: k3100 o|contracted procedure: k3135 o|contracted procedure: k3303 o|contracted procedure: k3444 o|removed call to pure procedure with unused result: "(srfi-69.scm:684) slot" o|removed call to pure procedure with unused result: "(srfi-69.scm:684) slot" o|simplifications: ((let . 3)) o|removed binding forms: 84 o|Removed `not' forms: 3 o|contracted procedure: k2316 o|contracted procedure: k2628 o|contracted procedure: k3034 o|contracted procedure: k4259 o|contracted procedure: k4263 o|removed binding forms: 9 o|replaced variables: 3 o|removed binding forms: 2 o|removed binding forms: 3 o|simplifications: ((let . 3)) o|simplifications: ((if . 75) (##core#call . 698)) o| call simplifications: o| ##sys#check-list 2 o| apply o| ##sys#check-pair o| void o| * 6 o| ##sys#immediate? 6 o| fx<= 6 o| ##sys#setislot 10 o| cons 21 o| ##sys#check-structure 30 o| ##sys#structure? o| ##sys#make-structure o| ##sys#setslot 24 o| list 2 o| ##sys#check-string 2 o| fx>= 12 o| pair? 4 o| ##sys#peek-fixnum 2 o| ##sys#size 27 o| fxmin 4 o| fxmax o| fx= o| fx- 4 o| char? 3 o| eq? 40 o| eof-object? 3 o| symbol? 3 o| char->integer 3 o| ##sys#check-symbol o| ##sys#slot 182 o| car 30 o| null? 78 o| cdr 25 o| number? 3 o| ##sys#check-exact 11 o| fixnum? 6 o| flonum? 3 o| fxshl 24 o| fx+ 43 o| fx* 4 o| fxxor 25 o| fx< 15 o| fxneg 9 o| fxand 9 o| fxmod 9 o|contracted procedure: k1939 o|contracted procedure: k1727 o|contracted procedure: k1933 o|contracted procedure: k1730 o|contracted procedure: k1927 o|contracted procedure: k1733 o|contracted procedure: k1921 o|contracted procedure: k1736 o|contracted procedure: k1742 o|contracted procedure: k1751 o|contracted procedure: k1761 o|contracted procedure: k1779 o|contracted procedure: k1790 o|contracted procedure: k1891 o|contracted procedure: k1881 o|contracted procedure: k1877 o|contracted procedure: k1867 o|contracted procedure: k1863 o|contracted procedure: k1853 o|contracted procedure: k1849 o|contracted procedure: k1839 o|contracted procedure: k1835 o|contracted procedure: k1825 o|contracted procedure: k1821 o|contracted procedure: k1811 o|contracted procedure: k1807 o|contracted procedure: k1797 o|contracted procedure: k1915 o|contracted procedure: k2018 o|contracted procedure: k1948 o|contracted procedure: k2012 o|contracted procedure: k1951 o|contracted procedure: k2006 o|contracted procedure: k1954 o|contracted procedure: k2000 o|contracted procedure: k1957 o|contracted procedure: k1960 o|contracted procedure: k1969 o|contracted procedure: k1979 o|contracted procedure: k2106 o|contracted procedure: k2027 o|contracted procedure: k2100 o|contracted procedure: k2030 o|contracted procedure: k2094 o|contracted procedure: k2033 o|contracted procedure: k2088 o|contracted procedure: k2036 o|contracted procedure: k2039 o|contracted procedure: k2042 o|contracted procedure: k2051 o|contracted procedure: k2061 o|contracted procedure: k2082 o|contracted procedure: k2135 o|contracted procedure: k2125 o|contracted procedure: k2220 o|contracted procedure: k2141 o|contracted procedure: k2214 o|contracted procedure: k2144 o|contracted procedure: k2208 o|contracted procedure: k2147 o|contracted procedure: k2202 o|contracted procedure: k2150 o|contracted procedure: k2156 o|contracted procedure: k2165 o|contracted procedure: k2175 o|contracted procedure: k2196 o|contracted procedure: k2398 o|contracted procedure: k2333 o|contracted procedure: k2392 o|contracted procedure: k2336 o|contracted procedure: k2386 o|contracted procedure: k2339 o|contracted procedure: k2380 o|contracted procedure: k2342 o|contracted procedure: k2345 o|contracted procedure: k2354 o|contracted procedure: k2364 o|contracted procedure: k2232 o|contracted procedure: k2241 o|contracted procedure: k2248 o|contracted procedure: k2254 o|contracted procedure: k2263 o|contracted procedure: k2272 o|contracted procedure: k2281 o|contracted procedure: k2290 o|contracted procedure: k2301 o|contracted procedure: k2710 o|contracted procedure: k2645 o|contracted procedure: k2704 o|contracted procedure: k2648 o|contracted procedure: k2698 o|contracted procedure: k2651 o|contracted procedure: k2692 o|contracted procedure: k2654 o|contracted procedure: k2657 o|contracted procedure: k2666 o|contracted procedure: k2676 o|contracted procedure: k2411 o|contracted procedure: k2420 o|contracted procedure: k2427 o|contracted procedure: k2433 o|contracted procedure: k2442 o|contracted procedure: k2451 o|contracted procedure: k2460 o|contracted procedure: k2469 o|contracted procedure: k2480 o|contracted procedure: k2489 o|contracted procedure: k2497 o|contracted procedure: k2598 o|contracted procedure: k2588 o|contracted procedure: k2584 o|contracted procedure: k2574 o|contracted procedure: k2570 o|contracted procedure: k2560 o|contracted procedure: k2556 o|contracted procedure: k2546 o|contracted procedure: k2542 o|contracted procedure: k2532 o|contracted procedure: k2528 o|contracted procedure: k2518 o|contracted procedure: k2514 o|contracted procedure: k2504 o|contracted procedure: k2732 o|contracted procedure: k2799 o|contracted procedure: k2739 o|contracted procedure: k2795 o|contracted procedure: k2791 o|contracted procedure: k2743 o|contracted procedure: k2752 o|contracted procedure: k2775 o|contracted procedure: k2771 o|contracted procedure: k2759 o|contracted procedure: k2763 o|contracted procedure: k2767 o|contracted procedure: k2783 o|contracted procedure: k2787 o|contracted procedure: k2808 o|contracted procedure: k2817 o|contracted procedure: k2826 o|contracted procedure: k2833 o|contracted procedure: k2839 o|contracted procedure: k2848 o|contracted procedure: k2857 o|contracted procedure: k2866 o|contracted procedure: k2875 o|contracted procedure: k2886 o|contracted procedure: k2895 o|contracted procedure: k2903 o|contracted procedure: k3004 o|contracted procedure: k2994 o|contracted procedure: k2990 o|contracted procedure: k2980 o|contracted procedure: k2976 o|contracted procedure: k2966 o|contracted procedure: k2962 o|contracted procedure: k2952 o|contracted procedure: k2948 o|contracted procedure: k2938 o|contracted procedure: k2934 o|contracted procedure: k2924 o|contracted procedure: k2920 o|contracted procedure: k2910 o|contracted procedure: k3056 o|contracted procedure: k3065 o|contracted procedure: k3073 o|contracted procedure: k3077 o|contracted procedure: k3085 o|contracted procedure: k3089 o|contracted procedure: k3124 o|contracted procedure: k3120 o|contracted procedure: k3109 o|contracted procedure: k3144 o|contracted procedure: k3229 o|contracted procedure: k3164 o|contracted procedure: k3223 o|contracted procedure: k3167 o|contracted procedure: k3217 o|contracted procedure: k3170 o|contracted procedure: k3211 o|contracted procedure: k3173 o|contracted procedure: k3176 o|contracted procedure: k3185 o|contracted procedure: k3195 o|contracted procedure: k3371 o|contracted procedure: k3239 o|contracted procedure: k3365 o|contracted procedure: k3242 o|contracted procedure: k3359 o|contracted procedure: k3245 o|contracted procedure: k3353 o|contracted procedure: k3248 o|contracted procedure: k3347 o|contracted procedure: k3251 o|contracted procedure: k3341 o|contracted procedure: k3254 o|contracted procedure: k3335 o|contracted procedure: k3257 o|contracted procedure: k3329 o|contracted procedure: k3260 o|contracted procedure: k3263 o|contracted procedure: k3266 o|contracted procedure: k3278 o|contracted procedure: k3288 o|contracted procedure: k3306 o|contracted procedure: k3319 o|contracted procedure: k3323 o|contracted procedure: k3512 o|contracted procedure: k3380 o|contracted procedure: k3506 o|contracted procedure: k3383 o|contracted procedure: k3500 o|contracted procedure: k3386 o|contracted procedure: k3494 o|contracted procedure: k3389 o|contracted procedure: k3488 o|contracted procedure: k3392 o|contracted procedure: k3482 o|contracted procedure: k3395 o|contracted procedure: k3476 o|contracted procedure: k3398 o|contracted procedure: k3470 o|contracted procedure: k3401 o|contracted procedure: k3404 o|contracted procedure: k3407 o|contracted procedure: k3419 o|contracted procedure: k3429 o|contracted procedure: k3447 o|contracted procedure: k3460 o|contracted procedure: k3464 o|contracted procedure: k3529 o|contracted procedure: k3532 o|contracted procedure: k3538 o|contracted procedure: k3541 o|contracted procedure: k3558 o|contracted procedure: k3566 o|contracted procedure: k3596 o|contracted procedure: k3590 o|contracted procedure: k3608 o|contracted procedure: k3611 o|contracted procedure: k3618 o|contracted procedure: k3635 o|contracted procedure: k3638 o|contracted procedure: k3644 o|contracted procedure: k3647 o|contracted procedure: k3653 o|contracted procedure: k3656 o|contracted procedure: k3662 o|contracted procedure: k3665 o|contracted procedure: k3671 o|contracted procedure: k3674 o|contracted procedure: k3680 o|contracted procedure: k3683 o|contracted procedure: k3752 o|contracted procedure: k3755 o|contracted procedure: k3781 o|contracted procedure: k3791 o|contracted procedure: k3801 o|contracted procedure: k3804 o|contracted procedure: k3811 o|contracted procedure: k3814 o|contracted procedure: k3823 o|contracted procedure: k3832 o|contracted procedure: k3842 o|contracted procedure: k3855 o|contracted procedure: k3865 o|contracted procedure: k3878 o|contracted procedure: k3888 o|contracted procedure: k3914 o|contracted procedure: k3924 o|contracted procedure: k3927 o|contracted procedure: k3936 o|contracted procedure: k3943 o|contracted procedure: k3947 o|contracted procedure: k3950 o|contracted procedure: k3956 o|contracted procedure: k3959 o|contracted procedure: k3973 o|contracted procedure: k3976 o|contracted procedure: k3979 o|contracted procedure: k3993 o|contracted procedure: k4005 o|contracted procedure: k4014 o|contracted procedure: k4023 o|contracted procedure: k4032 o|contracted procedure: k4041 o|contracted procedure: k4050 o|contracted procedure: k4059 o|contracted procedure: k4068 o|contracted procedure: k4074 o|contracted procedure: k4080 o|contracted procedure: k4083 o|contracted procedure: k4194 o|contracted procedure: k4174 o|contracted procedure: k4190 o|contracted procedure: k4095 o|contracted procedure: k4098 o|contracted procedure: k4110 o|contracted procedure: k4120 o|contracted procedure: k4124 o|contracted procedure: k4133 o|contracted procedure: k4136 o|contracted procedure: k4139 o|contracted procedure: k4168 o|contracted procedure: k4160 o|contracted procedure: k4164 o|contracted procedure: k4156 o|contracted procedure: k4145 o|contracted procedure: k4152 o|contracted procedure: k4200 o|contracted procedure: k4203 o|contracted procedure: k4223 o|contracted procedure: k4212 o|contracted procedure: k4219 o|contracted procedure: k4215 o|contracted procedure: k4232 o|contracted procedure: k4239 o|contracted procedure: k4243 o|contracted procedure: k4247 o|contracted procedure: k4251 o|contracted procedure: k4255 o|contracted procedure: k4267 o|contracted procedure: k4270 o|contracted procedure: k4277 o|contracted procedure: k4285 o|contracted procedure: k4294 o|contracted procedure: k4297 o|contracted procedure: k4316 o|contracted procedure: k4320 o|contracted procedure: k4304 o|contracted procedure: k4312 o|contracted procedure: k4326 o|contracted procedure: k4338 o|contracted procedure: k4577 o|contracted procedure: k4347 o|contracted procedure: k4426 o|contracted procedure: k4429 o|contracted procedure: k4432 o|contracted procedure: k4435 o|contracted procedure: k4441 o|contracted procedure: k4447 o|contracted procedure: k4459 o|contracted procedure: k4476 o|contracted procedure: k4472 o|contracted procedure: k4465 o|contracted procedure: k4468 o|contracted procedure: k4483 o|contracted procedure: k4510 o|contracted procedure: k4489 o|contracted procedure: k4495 o|contracted procedure: k4499 o|contracted procedure: k4506 o|contracted procedure: k4522 o|contracted procedure: k4539 o|contracted procedure: k4535 o|contracted procedure: k4528 o|contracted procedure: k4531 o|contracted procedure: k4546 o|contracted procedure: k4558 o|contracted procedure: k4562 o|contracted procedure: k4569 o|contracted procedure: k4573 o|contracted procedure: k4352 o|contracted procedure: k4355 o|contracted procedure: k4358 o|contracted procedure: k4361 o|contracted procedure: k4395 o|contracted procedure: k4401 o|contracted procedure: k4380 o|contracted procedure: k4412 o|contracted procedure: k4369 o|contracted procedure: k4420 o|contracted procedure: k4580 o|contracted procedure: k4583 o|contracted procedure: k4822 o|contracted procedure: k4600 o|contracted procedure: k4679 o|contracted procedure: k4682 o|contracted procedure: k4685 o|contracted procedure: k4688 o|contracted procedure: k4694 o|contracted procedure: k4700 o|contracted procedure: k4712 o|contracted procedure: k4729 o|contracted procedure: k4725 o|contracted procedure: k4718 o|contracted procedure: k4721 o|contracted procedure: k4732 o|contracted procedure: k4759 o|contracted procedure: k4738 o|contracted procedure: k4744 o|contracted procedure: k4748 o|contracted procedure: k4755 o|contracted procedure: k4771 o|contracted procedure: k4788 o|contracted procedure: k4784 o|contracted procedure: k4777 o|contracted procedure: k4780 o|contracted procedure: k4791 o|contracted procedure: k4803 o|contracted procedure: k4807 o|contracted procedure: k4814 o|contracted procedure: k4818 o|contracted procedure: k4605 o|contracted procedure: k4608 o|contracted procedure: k4611 o|contracted procedure: k4614 o|contracted procedure: k4648 o|contracted procedure: k4654 o|contracted procedure: k4633 o|contracted procedure: k4665 o|contracted procedure: k4622 o|contracted procedure: k4673 o|contracted procedure: k4828 o|contracted procedure: k4840 o|contracted procedure: k5048 o|contracted procedure: k4843 o|contracted procedure: k4922 o|contracted procedure: k4925 o|contracted procedure: k4928 o|contracted procedure: k4931 o|contracted procedure: k4937 o|contracted procedure: k4946 o|contracted procedure: k4958 o|contracted procedure: k4972 o|contracted procedure: k4968 o|contracted procedure: k4961 o|contracted procedure: k4975 o|contracted procedure: k4995 o|contracted procedure: k4981 o|contracted procedure: k4991 o|contracted procedure: k5007 o|contracted procedure: k5021 o|contracted procedure: k5017 o|contracted procedure: k5010 o|contracted procedure: k5024 o|contracted procedure: k5040 o|contracted procedure: k5044 o|contracted procedure: k4848 o|contracted procedure: k4851 o|contracted procedure: k4854 o|contracted procedure: k4857 o|contracted procedure: k4891 o|contracted procedure: k4897 o|contracted procedure: k4876 o|contracted procedure: k4908 o|contracted procedure: k4865 o|contracted procedure: k4916 o|contracted procedure: k5058 o|contracted procedure: k5061 o|contracted procedure: k5064 o|contracted procedure: k5067 o|contracted procedure: k5076 o|contracted procedure: k5083 o|contracted procedure: k5092 o|contracted procedure: k5095 o|contracted procedure: k5115 o|contracted procedure: k5101 o|contracted procedure: k5111 o|contracted procedure: k5122 o|contracted procedure: k5131 o|contracted procedure: k5134 o|contracted procedure: k5150 o|contracted procedure: k5154 o|contracted procedure: k5158 o|contracted procedure: k5164 o|contracted procedure: k5167 o|contracted procedure: k5170 o|contracted procedure: k5173 o|contracted procedure: k5182 o|contracted procedure: k5189 o|contracted procedure: k5222 o|contracted procedure: k5201 o|contracted procedure: k5218 o|contracted procedure: k5204 o|contracted procedure: k5214 o|contracted procedure: k5229 o|contracted procedure: k5262 o|contracted procedure: k5241 o|contracted procedure: k5254 o|contracted procedure: k5258 o|contracted procedure: k5266 o|contracted procedure: k5272 o|contracted procedure: k5275 o|contracted procedure: k5278 o|contracted procedure: k5281 o|contracted procedure: k5287 o|contracted procedure: k5397 o|contracted procedure: k5290 o|contracted procedure: k5293 o|contracted procedure: k5299 o|contracted procedure: k5346 o|contracted procedure: k5314 o|contracted procedure: k5317 o|contracted procedure: k5342 o|contracted procedure: k5323 o|contracted procedure: k5326 o|contracted procedure: k5329 o|contracted procedure: k5393 o|contracted procedure: k5361 o|contracted procedure: k5364 o|contracted procedure: k5373 o|contracted procedure: k5376 o|contracted procedure: k5389 o|contracted procedure: k5403 o|contracted procedure: k5409 o|contracted procedure: k5412 o|contracted procedure: k5415 o|contracted procedure: k5427 o|contracted procedure: k5440 o|contracted procedure: k5444 o|contracted procedure: k5493 o|contracted procedure: k5456 o|contracted procedure: k5459 o|contracted procedure: k5468 o|contracted procedure: k5472 o|contracted procedure: k5485 o|contracted procedure: k5489 o|contracted procedure: k5499 o|contracted procedure: k5509 o|contracted procedure: k5515 o|contracted procedure: k5518 o|contracted procedure: k5530 o|contracted procedure: k5540 o|contracted procedure: k5544 o|contracted procedure: k5553 o|contracted procedure: k5556 o|contracted procedure: k5566 o|contracted procedure: k5570 o|contracted procedure: k5577 o|contracted procedure: k5583 o|contracted procedure: k5586 o|contracted procedure: k5595 o|contracted procedure: k5598 o|contracted procedure: k5611 o|contracted procedure: k5614 o|contracted procedure: k5617 o|contracted procedure: k5629 o|contracted procedure: k5636 o|contracted procedure: k5645 o|contracted procedure: k5652 o|contracted procedure: k5659 o|contracted procedure: k5663 o|contracted procedure: k5674 o|contracted procedure: k5678 o|contracted procedure: k5670 o|contracted procedure: k5666 o|contracted procedure: k5684 o|contracted procedure: k5692 o|contracted procedure: k5699 o|contracted procedure: k5706 o|contracted procedure: k5718 o|contracted procedure: k5728 o|contracted procedure: k5732 o|contracted procedure: k5738 o|contracted procedure: k5741 o|contracted procedure: k5744 o|contracted procedure: k5756 o|contracted procedure: k5763 o|contracted procedure: k5772 o|contracted procedure: k5779 o|contracted procedure: k5786 o|contracted procedure: k5790 o|contracted procedure: k5797 o|contracted procedure: k5793 o|contracted procedure: k5803 o|contracted procedure: k5806 o|contracted procedure: k5809 o|contracted procedure: k5821 o|contracted procedure: k5828 o|contracted procedure: k5837 o|contracted procedure: k5844 o|contracted procedure: k5851 o|contracted procedure: k5855 o|contracted procedure: k5862 o|contracted procedure: k5858 o|contracted procedure: k5868 o|contracted procedure: k5871 o|contracted procedure: k5883 o|contracted procedure: k5892 o|contracted procedure: k5896 o|contracted procedure: k5899 o|contracted procedure: k5902 o|contracted procedure: k5912 o|contracted procedure: k5921 o|contracted procedure: k5931 o|contracted procedure: k5935 o|contracted procedure: k5941 o|contracted procedure: k5944 o|contracted procedure: k5956 o|contracted procedure: k5963 o|contracted procedure: k5972 o|contracted procedure: k5979 o|contracted procedure: k5982 o|contracted procedure: k5989 o|contracted procedure: k5997 o|contracted procedure: k6001 o|contracted procedure: k6007 o|contracted procedure: k6019 o|contracted procedure: k6031 o|contracted procedure: k6043 o|contracted procedure: k6078 o|contracted procedure: k6199 o|contracted procedure: k6084 o|contracted procedure: k6087 o|contracted procedure: k6093 o|contracted procedure: k6096 o|contracted procedure: k6099 o|contracted procedure: k6108 o|contracted procedure: k6115 o|contracted procedure: k6124 o|contracted procedure: k6130 o|contracted procedure: k6150 o|contracted procedure: k6136 o|contracted procedure: k6146 o|contracted procedure: k6157 o|contracted procedure: k6166 o|contracted procedure: k6172 o|contracted procedure: k6188 o|contracted procedure: k6192 o|contracted procedure: k6196 o|contracted procedure: k6220 o|contracted procedure: k6234 o|simplifications: ((let . 82)) o|removed binding forms: 622 o|replaced variables: 394 o|inlining procedure: k1767 o|inlining procedure: k1985 o|inlining procedure: k2067 o|inlining procedure: k2181 o|inlining procedure: k2370 o|inlining procedure: k2682 o|inlining procedure: k3201 o|inlining procedure: k3294 o|inlining procedure: k3435 o|removed binding forms: 173 o|contracted procedure: k2085 o|contracted procedure: k2199 o|removed binding forms: 11 o|replaced variables: 12 o|removed binding forms: 11 o|direct leaf routine/allocation: loop672 0 o|direct leaf routine/allocation: hash-for-test748 0 o|direct leaf routine/allocation: loop1098 0 o|direct leaf routine/allocation: loop1115 0 o|direct leaf routine/allocation: loop1143 0 o|converted assignments to bindings: (loop672) o|contracted procedure: "(srfi-69.scm:578) k3729" o|converted assignments to bindings: (loop1098) o|converted assignments to bindings: (loop1115) o|converted assignments to bindings: (loop1143) o|simplifications: ((let . 4)) o|removed binding forms: 1 o|customizable procedures: (k6230 k6216 loop1083 loop1079 *hash-table-for-each *hash-table-fold fold21320 loop1317 g12941301 for-each-loop12931304 doloop12881289 loop21276 loop1273 loop21262 loop1259 g12361243 for-each-loop12351248 loop21222 loop1219 *hash-table-merge! doloop11961197 doloop11931194 loop1171 doloop11681169 loop1152 loop1123 loop1102 k4868 k4879 k4885 loop1053 loop1048 *hash-table-update!/default k4625 k4636 k4642 loop1001 loop992 k4335 k4372 k4383 k4389 loop948 loop939 *hash-table-copy copy-loop884 doloop881882 loop857 doloop854855 k3704 k3707 k3710 invarg-err784 loop781 hash-table-canonical-length *make-hash-table g537538 g533534 vector-hash433 g519520 recursive-hash434 loop441 *equal?-hash) o|calls to known targets: 171 o|identified direct recursive calls: f_3527 2 o|identified direct recursive calls: f_4289 1 o|identified direct recursive calls: f_4454 1 o|identified direct recursive calls: f_4707 1 o|identified direct recursive calls: f_4953 1 o|identified direct recursive calls: f_5087 1 o|identified direct recursive calls: f_5193 1 o|identified direct recursive calls: f_5306 1 o|identified direct recursive calls: f_5640 1 o|identified direct recursive calls: f_5767 1 o|identified direct recursive calls: f_5832 1 o|identified direct recursive calls: f_6119 1 o|fast box initializations: 34 o|fast global references: 33 o|fast global assignments: 10 o|dropping unused closure argument: f_4198 o|dropping unused closure argument: f_3603 o|dropping unused closure argument: f_2727 o|dropping unused closure argument: f_5513 o|dropping unused closure argument: f_3521 o|dropping unused closure argument: f_5939 o|dropping unused closure argument: f_5866 */ /* end of file */ chicken-4.12.0/srfi-18.c0000644000175000017500000042065613052306250014356 0ustar sjamaansjamaan/* Generated from srfi-18.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:16 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: srfi-18.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file srfi-18.c unit: srfi_2d18 */ #include "chicken.h" 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; static C_TLS C_word lf[113]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,31),40,99,111,109,112,117,116,101,45,116,105,109,101,45,108,105,109,105,116,32,116,109,57,49,32,108,111,99,57,50,41,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,14),40,99,117,114,114,101,110,116,45,116,105,109,101,41,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,20),40,116,105,109,101,45,62,115,101,99,111,110,100,115,32,116,109,57,57,41,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,20),40,115,101,99,111,110,100,115,45,62,116,105,109,101,32,110,49,48,50,41,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,12),40,116,105,109,101,63,32,120,49,48,53,41,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,30),40,106,111,105,110,45,116,105,109,101,111,117,116,45,101,120,99,101,112,116,105,111,110,63,32,120,49,48,56,41,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,33),40,97,98,97,110,100,111,110,101,100,45,109,117,116,101,120,45,101,120,99,101,112,116,105,111,110,63,32,120,49,49,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,35),40,116,101,114,109,105,110,97,116,101,100,45,116,104,114,101,97,100,45,101,120,99,101,112,116,105,111,110,63,32,120,49,49,52,41,0,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,26),40,117,110,99,97,117,103,104,116,45,101,120,99,101,112,116,105,111,110,63,32,120,49,49,55,41,0,0,0,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,19),40,97,56,54,49,32,46,32,114,101,115,117,108,116,115,49,50,52,41,0,0,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,6),40,97,56,53,53,41,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,32),40,109,97,107,101,45,116,104,114,101,97,100,32,116,104,117,110,107,49,50,49,32,46,32,110,97,109,101,49,50,50,41}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,14),40,116,104,114,101,97,100,63,32,120,49,50,57,41,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,16),40,99,117,114,114,101,110,116,45,116,104,114,101,97,100,41}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,24),40,116,104,114,101,97,100,45,115,116,97,116,101,32,116,104,114,101,97,100,49,51,50,41}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,37),40,116,104,114,101,97,100,45,115,112,101,99,105,102,105,99,45,115,101,116,33,32,116,104,114,101,97,100,49,51,53,32,120,49,51,54,41,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,26),40,116,104,114,101,97,100,45,113,117,97,110,116,117,109,32,116,104,114,101,97,100,49,52,50,41,0,0,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,36),40,116,104,114,101,97,100,45,113,117,97,110,116,117,109,45,115,101,116,33,32,116,104,114,101,97,100,49,52,53,32,113,49,52,54,41,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,18),40,116,104,114,101,97,100,45,110,97,109,101,32,120,49,53,48,41,0,0,0,0,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,25),40,116,104,114,101,97,100,45,115,116,97,114,116,33,32,116,104,114,101,97,100,49,53,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,7),40,97,49,48,50,55,41,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,17),40,97,49,48,49,50,32,114,101,116,117,114,110,49,55,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,37),40,116,104,114,101,97,100,45,106,111,105,110,33,32,116,104,114,101,97,100,49,54,48,32,46,32,116,105,109,101,111,117,116,49,54,49,41,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,29),40,116,104,114,101,97,100,45,116,101,114,109,105,110,97,116,101,33,32,116,104,114,101,97,100,49,57,49,41,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,7),40,97,49,50,51,52,41,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,17),40,97,49,50,50,53,32,114,101,116,117,114,110,50,48,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,27),40,116,104,114,101,97,100,45,115,117,115,112,101,110,100,33,32,116,104,114,101,97,100,50,48,48,41,0,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,26),40,116,104,114,101,97,100,45,114,101,115,117,109,101,33,32,116,104,114,101,97,100,50,48,54,41,0,0,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,7),40,97,49,50,56,51,41,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,17),40,97,49,50,55,49,32,114,101,116,117,114,110,50,49,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,21),40,116,104,114,101,97,100,45,115,108,101,101,112,33,32,116,109,50,49,48,41,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,13),40,109,117,116,101,120,63,32,120,50,50,48,41,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,24),40,109,97,107,101,45,109,117,116,101,120,32,46,32,116,109,112,50,50,53,50,50,54,41}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,17),40,109,117,116,101,120,45,110,97,109,101,32,120,50,51,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,25),40,109,117,116,101,120,45,115,112,101,99,105,102,105,99,32,109,117,116,101,120,50,51,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,35),40,109,117,116,101,120,45,115,112,101,99,105,102,105,99,45,115,101,116,33,32,109,117,116,101,120,50,51,57,32,120,50,52,48,41,0,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,22),40,109,117,116,101,120,45,115,116,97,116,101,32,109,117,116,101,120,50,52,51,41,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,8),40,115,119,105,116,99,104,41}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,7),40,99,104,101,99,107,41,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,8),40,97,115,115,105,103,110,41}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,7),40,97,49,53,53,52,41,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,17),40,97,49,52,48,49,32,114,101,116,117,114,110,50,54,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,36),40,109,117,116,101,120,45,108,111,99,107,33,32,109,117,116,101,120,50,53,51,32,46,32,109,115,45,97,110,100,45,116,50,53,52,41,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,7),40,97,49,55,51,52,41,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,7),40,97,49,55,55,50,41,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,17),40,97,49,54,51,50,32,114,101,116,117,114,110,51,49,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,41),40,109,117,116,101,120,45,117,110,108,111,99,107,33,32,109,117,116,101,120,51,48,52,32,46,32,99,118,97,114,45,97,110,100,45,116,111,51,48,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,35),40,109,97,107,101,45,99,111,110,100,105,116,105,111,110,45,118,97,114,105,97,98,108,101,32,46,32,110,97,109,101,51,52,57,41,0,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,26),40,99,111,110,100,105,116,105,111,110,45,118,97,114,105,97,98,108,101,63,32,120,51,53,49,41,0,0,0,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,31),40,99,111,110,100,105,116,105,111,110,45,118,97,114,105,97,98,108,101,45,110,97,109,101,32,99,118,51,53,51,41,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,35),40,99,111,110,100,105,116,105,111,110,45,118,97,114,105,97,98,108,101,45,115,112,101,99,105,102,105,99,32,99,118,51,53,54,41,0,0,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,45),40,99,111,110,100,105,116,105,111,110,45,118,97,114,105,97,98,108,101,45,115,112,101,99,105,102,105,99,45,115,101,116,33,32,99,118,51,53,57,32,120,51,54,48,41,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,36),40,99,111,110,100,105,116,105,111,110,45,118,97,114,105,97,98,108,101,45,115,105,103,110,97,108,33,32,99,118,97,114,51,54,51,41,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,55,54,32,103,51,56,51,51,57,50,41,0,0,0,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,39),40,99,111,110,100,105,116,105,111,110,45,118,97,114,105,97,98,108,101,45,98,114,111,97,100,99,97,115,116,33,32,99,118,97,114,51,55,51,41,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,7),40,97,50,48,48,57,41,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,33),40,116,104,114,101,97,100,45,115,105,103,110,97,108,33,32,116,104,114,101,97,100,51,57,57,32,101,120,110,52,48,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li57[] 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 li58[] C_aligned={C_lihdr(0,0,40),40,116,104,114,101,97,100,45,119,97,105,116,45,102,111,114,45,105,47,111,33,32,102,100,52,50,51,32,46,32,116,109,112,52,50,50,52,50,52,41}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,17),40,97,50,49,49,49,32,116,104,114,101,97,100,49,51,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li60[] 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_969) static void C_ccall f_969(C_word c,C_word *av) C_noret; C_noret_decl(f_827) static void C_ccall f_827(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_963) static void C_ccall f_963(C_word c,C_word *av) C_noret; C_noret_decl(f_960) static void C_fcall f_960(C_word t0,C_word t1) 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_723) static void C_ccall f_723(C_word c,C_word *av) C_noret; C_noret_decl(f_947) static void C_ccall f_947(C_word c,C_word *av) C_noret; C_noret_decl(f_692) static void C_ccall f_692(C_word c,C_word *av) C_noret; C_noret_decl(f_1575) static void C_ccall f_1575(C_word c,C_word *av) C_noret; C_noret_decl(f_694) static void C_fcall f_694(C_word t0,C_word t1,C_word t2) 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_1041) static void C_ccall f_1041(C_word c,C_word *av) C_noret; C_noret_decl(f_689) static void C_ccall f_689(C_word c,C_word *av) C_noret; C_noret_decl(f_1164) static void C_ccall f_1164(C_word c,C_word *av) C_noret; C_noret_decl(f_1555) static void C_ccall f_1555(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_920) static void C_ccall f_920(C_word c,C_word *av) C_noret; C_noret_decl(f_2014) static void C_ccall f_2014(C_word c,C_word *av) C_noret; C_noret_decl(f_922) static void C_ccall f_922(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_1017) static void C_ccall f_1017(C_word c,C_word *av) C_noret; C_noret_decl(f_1013) static void C_ccall f_1013(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_1544) static void C_ccall f_1544(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_1652) static void C_fcall f_1652(C_word t0,C_word t1) C_noret; C_noret_decl(f_2027) static void C_ccall f_2027(C_word c,C_word *av) C_noret; C_noret_decl(f_845) static void C_ccall f_845(C_word c,C_word *av) C_noret; C_noret_decl(f_909) static void C_ccall f_909(C_word c,C_word *av) C_noret; C_noret_decl(f_847) static void C_ccall f_847(C_word c,C_word *av) C_noret; C_noret_decl(f_1388) static void C_ccall f_1388(C_word c,C_word *av) C_noret; C_noret_decl(f_2077) static void C_ccall f_2077(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_900) static void C_ccall f_900(C_word c,C_word *av) C_noret; C_noret_decl(f_742) static void C_ccall f_742(C_word c,C_word *av) C_noret; C_noret_decl(f_740) static void C_ccall f_740(C_word c,C_word *av) C_noret; C_noret_decl(f_755) static void C_ccall f_755(C_word c,C_word *av) C_noret; C_noret_decl(f_1171) static void C_ccall f_1171(C_word c,C_word *av) C_noret; C_noret_decl(f_1028) static void C_ccall f_1028(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_1023) static void C_ccall f_1023(C_word c,C_word *av) C_noret; C_noret_decl(f_931) static void C_ccall f_931(C_word c,C_word *av) 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_732) static void C_ccall f_732(C_word c,C_word *av) C_noret; C_noret_decl(f_1208) static void C_ccall f_1208(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_1873) static void C_ccall f_1873(C_word c,C_word *av) C_noret; C_noret_decl(f_2091) static void C_ccall f_2091(C_word c,C_word *av) 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_1864) static void C_ccall f_1864(C_word c,C_word *av) C_noret; C_noret_decl(f_1226) static void C_ccall f_1226(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_1977) static void C_ccall f_1977(C_word c,C_word *av) C_noret; C_noret_decl(f_1088) static void C_fcall f_1088(C_word t0,C_word t1) 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_1241) static void C_ccall f_1241(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_1954) static void C_fcall f_1954(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1235) static void C_ccall f_1235(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_1180) static void C_ccall f_1180(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_1284) static void C_ccall f_1284(C_word c,C_word *av) C_noret; C_noret_decl(f_1272) static void C_ccall f_1272(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_1949) static void C_ccall f_1949(C_word c,C_word *av) C_noret; C_noret_decl(f_1999) static void C_fcall f_1999(C_word t0,C_word t1) C_noret; C_noret_decl(f_1846) static void C_ccall f_1846(C_word c,C_word *av) 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_795) static void C_ccall f_795(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_1298) static void C_ccall f_1298(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_772) static void C_ccall f_772(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_1457) static void C_ccall f_1457(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_1855) static void C_ccall f_1855(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_1467) static void C_ccall f_1467(C_word c,C_word *av) C_noret; C_noret_decl(f_1464) static void C_ccall f_1464(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_1303) static void C_ccall f_1303(C_word c,C_word *av) C_noret; C_noret_decl(f_1419) static void C_ccall f_1419(C_word c,C_word *av) C_noret; C_noret_decl(f_1309) static void C_ccall f_1309(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_999) static void C_ccall f_999(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_1762) static void C_ccall f_1762(C_word c,C_word *av) C_noret; C_noret_decl(f_1402) static void C_ccall f_1402(C_word c,C_word *av) C_noret; C_noret_decl(f_1405) static void C_fcall f_1405(C_word t0,C_word t1) 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_1336) static void C_ccall f_1336(C_word c,C_word *av) 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_2067) static void C_ccall f_2067(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_876) static void C_ccall f_876(C_word c,C_word *av) C_noret; C_noret_decl(f_2101) static void C_ccall f_2101(C_word c,C_word *av) C_noret; C_noret_decl(C_srfi_2d18_toplevel) C_externexport void C_ccall C_srfi_2d18_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(f_1633) static void C_ccall f_1633(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_1429) static void C_fcall f_1429(C_word t0,C_word t1) 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_862) static void C_ccall f_862(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_1622) static void C_fcall f_1622(C_word t0,C_word t1) C_noret; C_noret_decl(f_1345) static void C_ccall f_1345(C_word c,C_word *av) C_noret; C_noret_decl(f_856) static void C_ccall f_856(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_766) static void C_ccall f_766(C_word c,C_word *av) C_noret; C_noret_decl(f_779) static void C_ccall f_779(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_1378) static void C_ccall f_1378(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_1799) static void C_ccall f_1799(C_word c,C_word *av) C_noret; C_noret_decl(f_1640) static void C_ccall f_1640(C_word c,C_word *av) C_noret; C_noret_decl(f_1327) static void C_ccall f_1327(C_word c,C_word *av) C_noret; C_noret_decl(f_986) static void C_ccall f_986(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_1354) static void C_ccall f_1354(C_word c,C_word *av) C_noret; C_noret_decl(trf_960) static void C_ccall trf_960(C_word c,C_word *av) C_noret; static void C_ccall trf_960(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_960(t0,t1);} C_noret_decl(trf_694) static void C_ccall trf_694(C_word c,C_word *av) C_noret; static void C_ccall trf_694(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_694(t0,t1,t2);} 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_1088) static void C_ccall trf_1088(C_word c,C_word *av) C_noret; static void C_ccall trf_1088(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1088(t0,t1);} C_noret_decl(trf_1954) static void C_ccall trf_1954(C_word c,C_word *av) C_noret; static void C_ccall trf_1954(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1954(t0,t1,t2);} C_noret_decl(trf_1999) static void C_ccall trf_1999(C_word c,C_word *av) C_noret; static void C_ccall trf_1999(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1999(t0,t1);} C_noret_decl(trf_1405) static void C_ccall trf_1405(C_word c,C_word *av) C_noret; static void C_ccall trf_1405(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1405(t0,t1);} C_noret_decl(trf_1429) static void C_ccall trf_1429(C_word c,C_word *av) C_noret; static void C_ccall trf_1429(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1429(t0,t1);} 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);} /* k967 in k961 in k958 in thread-start! in k918 in k843 in k690 in k687 */ 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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_969,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* uncaught-exception? in k690 in k687 */ static void C_ccall f_827(C_word c,C_word *av){ C_word tmp; C_word 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_827,3,av);} if(C_truep(C_i_structurep(t2,lf[17]))){ t3=C_slot(t2,C_fix(1)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_memq(lf[24],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* terminated-thread-exception? in k690 in k687 */ 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 *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_811,3,av);} if(C_truep(C_i_structurep(t2,lf[17]))){ t3=C_slot(t2,C_fix(1)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_memq(lf[22],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k961 in k958 in thread-start! in k918 in k843 in k690 in k687 */ static void C_ccall f_963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_963,2,av);} a=C_alloc(4); t2=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(3),lf[44]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_969,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* srfi-18.scm:155: ##sys#add-to-ready-queue */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[45]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[45]+1); av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; tp(3,av2);}} /* k958 in thread-start! in k918 in k843 in k690 in k687 */ static void C_fcall f_960(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,4)))){ C_save_and_reclaim_args((void *)trf_960,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_963,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_slot(((C_word*)((C_word*)t0)[2])[1],C_fix(3)); t4=C_eqp(lf[32],t3); if(C_truep(t4)){ t5=t2;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_963(2,av2);}} else{ /* srfi-18.scm:153: ##sys#error */ t5=*((C_word*)lf[46]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t2; av2[2]=lf[43]; av2[3]=lf[47]; av2[4]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* mutex-unlock! in k918 in k843 in k690 in k687 */ 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_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_1615,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_check_structure_2(t2,lf[71],lf[85]); t5=*((C_word*)lf[30]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1622,a[2]=t3,a[3]=t2,a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t3))){ t7=t3; t8=t6; f_1622(t8,C_u_i_car(t7));} else{ t7=t6; f_1622(t7,C_SCHEME_FALSE);}} /* k721 in compute-time-limit in k690 in k687 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_723,2,av);} a=C_alloc(8); t2=C_a_i_times(&a,2,((C_word*)t0)[2],C_fix(1000)); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_plus(&a,2,t1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* thread-name in k918 in k843 in k690 in k687 */ static void C_ccall f_947(C_word c,C_word *av){ C_word tmp; C_word 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_947,3,av);} t3=C_i_check_structure_2(t2,lf[34],lf[42]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(6)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k690 in k687 */ static void C_ccall f_692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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(30,c,4)))){ C_save_and_reclaim((void *)f_692,2,av);} a=C_alloc(30); t2=C_mutate2(&lf[0] /* (set! compute-time-limit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_694,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[6]+1 /* (set! current-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_732,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[7]+1 /* (set! time->seconds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_742,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[10]+1 /* (set! seconds->time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_755,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[13]+1 /* (set! time? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_772,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[14]+1 /* (set! raise ...) */,*((C_word*)lf[15]+1)); t8=C_mutate2((C_word*)lf[16]+1 /* (set! join-timeout-exception? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_779,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[19]+1 /* (set! abandoned-mutex-exception? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_795,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[21]+1 /* (set! terminated-thread-exception? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_811,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[23]+1 /* (set! uncaught-exception? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_827,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_845,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-18.scm:92: condition-property-accessor */ t13=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t13; av2[1]=t12; av2[2]=lf[24]; av2[3]=lf[110]; ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}} /* k1573 in a1554 in k1542 in a1401 in k1386 in mutex-lock! in k918 in k843 in k690 in k687 */ static void C_ccall f_1575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1575,2,av);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(3),t1); t3=C_i_set_i_slot(((C_word*)t0)[3],C_fix(11),C_SCHEME_FALSE); /* srfi-18.scm:315: return */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* compute-time-limit in k690 in k687 */ static void C_fcall f_694(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,5)))){ C_save_and_reclaim_args((void *)trf_694,3,t1,t2,t3);} a=C_alloc(4); t4=t2; if(C_truep(t4)){ if(C_truep(C_i_structurep(t2,lf[1]))){ 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{ if(C_truep(C_i_numberp(t2))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_723,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-18.scm:51: current-milliseconds */ t6=*((C_word*)lf[2]+1);{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* srfi-18.scm:52: ##sys#signal-hook */ t5=*((C_word*)lf[3]+1);{ C_word av2[6]; av2[0]=t5; av2[1]=t1; av2[2]=lf[4]; av2[3]=t3; av2[4]=lf[5]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(6,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);}}} /* k1548 in k1542 in a1401 in k1386 in mutex-lock! in k918 in k843 in k690 in k687 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1550,2,av);} /* srfi-18.scm:320: switch */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1405(t2,((C_word*)t0)[3]);} /* k1039 in a1027 in k1015 in a1012 in k997 in thread-join! in k918 in k843 in k690 in k687 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1041,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(2));{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; C_apply(4,av2);}} /* k687 */ static void C_ccall f_689(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_689,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_692,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-18.scm:36: register-feature! */ t3=*((C_word*)lf[111]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[112]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* thread-terminate! in k918 in k843 in k690 in k687 */ static void C_ccall f_1164(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1164,3,av);} a=C_alloc(7); t3=C_i_check_structure_2(t2,lf[34],lf[61]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1171,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=C_eqp(t2,*((C_word*)lf[63]+1)); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1203,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* srfi-18.scm:206: ##sys#exit-handler */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[64]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[64]+1); av2[1]=t6; tp(2,av2);}} else{ t6=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_1171(2,av2);}}} /* a1554 in k1542 in a1401 in k1386 in mutex-lock! in k918 in k843 in k690 in k687 */ static void C_ccall f_1555(C_word c,C_word *av){ C_word tmp; 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_1555,2,av);} a=C_alloc(6); if(C_truep(C_slot(((C_word*)t0)[2],C_fix(13)))){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1575,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t3=C_slot(((C_word*)t0)[3],C_fix(3)); /* srfi-18.scm:313: ##sys#delq */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[84]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[84]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=t3; tp(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1582,a[2]=((C_word*)t0)[5],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-18.scm:317: ##sys#remove-from-timeout-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[51]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}}} /* k1065 in a1027 in k1015 in a1012 in k997 in thread-join! in k918 in k843 in k690 in k687 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1067,2,av);} /* srfi-18.scm:181: return */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k918 in k843 in k690 in k687 */ static void C_ccall f_920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(82,c,4)))){ C_save_and_reclaim((void *)f_920,2,av);} a=C_alloc(82); t2=C_mutate2((C_word*)lf[39]+1 /* (set! thread-specific ...) */,t1); t3=C_mutate2((C_word*)lf[40]+1 /* (set! thread-quantum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_922,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[41]+1 /* (set! thread-quantum-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_931,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[42]+1 /* (set! thread-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_947,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[43]+1 /* (set! thread-start! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_956,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[48]+1 /* (set! thread-yield! ...) */,*((C_word*)lf[49]+1)); t8=C_mutate2((C_word*)lf[50]+1 /* (set! thread-join! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_992,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[61]+1 /* (set! thread-terminate! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1164,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[65]+1 /* (set! thread-suspend! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1208,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[67]+1 /* (set! thread-resume! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1241,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[68]+1 /* (set! thread-sleep! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1263,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[70]+1 /* (set! mutex? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1303,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[72]+1 /* (set! make-mutex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1309,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[74]+1 /* (set! mutex-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1327,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[75]+1 /* (set! mutex-specific ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1336,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[76]+1 /* (set! mutex-specific-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1345,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2((C_word*)lf[77]+1 /* (set! mutex-state ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1354,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2((C_word*)lf[81]+1 /* (set! mutex-lock! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1378,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2((C_word*)lf[85]+1 /* (set! mutex-unlock! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1615,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate2((C_word*)lf[90]+1 /* (set! make-condition-variable ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1823,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate2((C_word*)lf[91]+1 /* (set! condition-variable? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1840,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate2((C_word*)lf[92]+1 /* (set! condition-variable-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1846,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate2((C_word*)lf[93]+1 /* (set! condition-variable-specific ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1855,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate2((C_word*)lf[94]+1 /* (set! condition-variable-specific-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1864,a[2]=((C_word)li51),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate2((C_word*)lf[95]+1 /* (set! condition-variable-signal! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1873,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate2((C_word*)lf[97]+1 /* (set! condition-variable-broadcast! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1916,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate2((C_word*)lf[99]+1 /* (set! thread-signal! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1977,a[2]=((C_word)li56),tmp=(C_word)a,a+=3,tmp)); t29=*((C_word*)lf[101]+1); t30=C_mutate2((C_word*)lf[101]+1 /* (set! ##sys#read-prompt-hook ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2067,a[2]=t29,a[3]=((C_word)li57),tmp=(C_word)a,a+=4,tmp)); t31=C_mutate2((C_word*)lf[106]+1 /* (set! thread-wait-for-i/o! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2091,a[2]=((C_word)li58),tmp=(C_word)a,a+=3,tmp)); t32=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t32; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t32+1)))(2,av2);}} /* k2012 in a2009 in k1997 in thread-signal! in k918 in k843 in k690 in k687 */ static void C_ccall f_2014(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2014,2,av);} /* srfi-18.scm:450: old */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* thread-quantum in k918 in k843 in k690 in k687 */ static void C_ccall f_922(C_word c,C_word *av){ C_word tmp; C_word 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_922,3,av);} t3=C_i_check_structure_2(t2,lf[34],lf[40]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(9)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a2009 in k1997 in thread-signal! in k918 in k843 in k690 in k687 */ 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 *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_2010,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2014,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-18.scm:449: ##sys#signal */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[15]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k1015 in a1012 in k997 in thread-join! in k918 in k843 in k690 in k687 */ static void C_ccall f_1017(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1017,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1028,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li20),tmp=(C_word)a,a+=9,tmp); t3=C_i_setslot(((C_word*)t0)[4],C_fix(1),t2); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1023,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp); /* srfi-18.scm:200: ##sys#thread-block-for-termination! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[57]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} /* a1012 in k997 in thread-join! in k918 in k843 in k690 in k687 */ static void C_ccall f_1013(C_word c,C_word *av){ C_word tmp; C_word 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_1013,3,av);} a=C_alloc(9); t3=*((C_word*)lf[30]+1); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1017,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]=t1,tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)t0)[3])){ /* srfi-18.scm:171: ##sys#thread-block-for-timeout! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[60]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[60]+1); av2[1]=t4; av2[2]=*((C_word*)lf[30]+1); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_1017(2,av2);}}} /* k1656 in k1653 in k1650 in k1638 in a1632 in k1620 in mutex-unlock! in k918 in k843 in k690 in k687 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_1658,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(3)); t3=C_eqp(t2,lf[87]); if(C_truep(t3)){ /* srfi-18.scm:377: return */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ /* srfi-18.scm:378: ##sys#schedule */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[27]+1); av2[1]=((C_word*)t0)[4]; tp(2,av2);}}} /* k1542 in a1401 in k1386 in mutex-lock! in k918 in k843 in k690 in k687 */ 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; 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_1544,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1555,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word)li40),tmp=(C_word)a,a+=7,tmp); t3=C_i_setslot(((C_word*)t0)[2],C_fix(1),t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1550,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); /* srfi-18.scm:319: ##sys#thread-block-for-timeout! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[60]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[60]+1); av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[8]; tp(4,av2);}} /* k1653 in k1650 in k1638 in a1632 in k1620 in mutex-unlock! in k918 in k843 in k690 in k687 */ 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 t4; 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,5)))){ C_save_and_reclaim((void *)f_1655,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1658,a[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(((C_word*)t0)[5]))){ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_1658(2,av2);}} else{ t3=C_slot(((C_word*)t0)[5],C_fix(0)); t4=C_slot(t3,C_fix(3)); t5=C_slot(((C_word*)t0)[5],C_fix(1)); t6=C_i_setslot(((C_word*)t0)[6],C_fix(3),t5); t7=C_i_set_i_slot(((C_word*)t0)[6],C_fix(5),C_SCHEME_TRUE); t8=C_eqp(t4,lf[55]); t9=(C_truep(t8)?t8:C_eqp(t4,lf[59])); if(C_truep(t9)){ t10=C_i_set_i_slot(t3,C_fix(11),C_SCHEME_FALSE); /* srfi-18.scm:372: ##sys#add-to-ready-queue */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[45]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[45]+1); av2[1]=t2; av2[2]=t3; tp(3,av2);}} else{ /* srfi-18.scm:374: ##sys#error */ t10=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t2; av2[2]=lf[88]; av2[3]=lf[89]; av2[4]=t3; av2[5]=t4; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}}} /* k1650 in k1638 in a1632 in k1620 in mutex-unlock! in k918 in k843 in k690 in k687 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,0,3)))){ C_save_and_reclaim_args((void *)trf_1652,2,t0,t1);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1655,a[2]=((C_word*)t0)[2],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_1781,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[3],a[6]=t2,tmp=(C_word)a,a+=7,tmp); t4=C_slot(((C_word*)t0)[7],C_fix(2)); t5=C_a_i_list(&a,1,((C_word*)t0)[2]); /* srfi-18.scm:346: ##sys#append */ t6=*((C_word*)lf[82]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_1655(2,av2);}}} /* k2025 in thread-signal! in k918 in k843 in k690 in k687 */ static void C_ccall f_2027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2027,2,av);} t2=((C_word*)t0)[2]; f_1999(t2,C_i_setslot(((C_word*)t0)[3],C_fix(2),t1));} /* k843 in k690 in k687 */ static void C_ccall f_845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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,4)))){ C_save_and_reclaim((void *)f_845,2,av);} a=C_alloc(21); t2=C_mutate2((C_word*)lf[25]+1 /* (set! uncaught-exception-reason ...) */,t1); t3=C_mutate2((C_word*)lf[26]+1 /* (set! make-thread ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_847,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[35]+1 /* (set! thread? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_891,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[36]+1 /* (set! current-thread ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_897,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[37]+1 /* (set! thread-state ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_900,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[38]+1 /* (set! thread-specific-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_909,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_920,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2112,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp); /* srfi-18.scm:128: getter-with-setter */ t10=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t8; av2[2]=t9; av2[3]=*((C_word*)lf[38]+1); ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} /* thread-specific-set! in k843 in k690 in k687 */ static void C_ccall f_909(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_909,4,av);} t4=C_i_check_structure_2(t2,lf[34],lf[38]); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_setslot(t2,C_fix(10),t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* make-thread in k843 in k690 in k687 */ static void C_ccall f_847(C_word c,C_word *av){ C_word tmp; C_word 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_847,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; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_851,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_876,a[2]=t4,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_pairp(t3))){ t6=C_slot(t3,C_fix(0)); t7=C_slot(*((C_word*)lf[30]+1),C_fix(9)); /* srfi-18.scm:100: ##sys#make-thread */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[31]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[31]+1); av2[1]=t4; av2[2]=C_SCHEME_FALSE; av2[3]=lf[32]; av2[4]=t6; av2[5]=t7; tp(6,av2);}} else{ /* srfi-18.scm:103: gensym */ t6=*((C_word*)lf[33]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[34]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k1386 in mutex-lock! in k918 in k843 in k690 in k687 */ static void C_ccall f_1388(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_1388,2,av);} a=C_alloc(7); t2=t1; t3=((C_word*)t0)[2]; t4=C_u_i_length(t3); t5=C_fixnum_greaterp(t4,C_fix(1)); t6=t5; t7=(C_truep(t6)?C_i_cadr(((C_word*)t0)[2]):C_SCHEME_FALSE); t8=t7; t9=(C_truep(t8)?C_i_check_structure_2(t8,lf[34],lf[81]):C_SCHEME_UNDEFINED); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1402,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=t8,a[5]=t2,a[6]=((C_word)li41),tmp=(C_word)a,a+=7,tmp); /* srfi-18.scm:272: ##sys#call-with-current-continuation */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t10; C_call_cc(3,av2);}} /* k2075 in read-prompt-hook in k918 in k843 in k690 in k687 */ static void C_ccall f_2077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2077,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2080,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-18.scm:461: old */ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2042 in thread-signal! in k918 in k843 in k690 in k687 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2044,2,av);} t2=((C_word*)t0)[2]; f_1999(t2,C_i_setslot(((C_word*)t0)[3],C_fix(3),t1));} /* thread-state in k843 in k690 in k687 */ static void C_ccall f_900(C_word c,C_word *av){ C_word tmp; C_word 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_900,3,av);} t3=C_i_check_structure_2(t2,lf[34],lf[37]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(3)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* time->seconds in k690 in k687 */ static void C_ccall f_742(C_word c,C_word *av){ C_word tmp; C_word 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_742,3,av);} t3=C_i_check_structure_2(t2,lf[1],lf[7]); t4=C_slot(t2,C_fix(1)); /* srfi-18.scm:62: fp/ */ t5=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=lf[9]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k738 in current-time in k690 in k687 */ static void C_ccall f_740(C_word c,C_word *av){ C_word tmp; 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_740,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_record2(&a,2,lf[1],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* seconds->time in k690 in k687 */ static void C_ccall f_755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,2)))){ C_save_and_reclaim((void *)f_755,3,av);} a=C_alloc(6); t3=C_i_check_number_2(t2,lf[10]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_766,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_770,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* srfi-18.scm:66: ##sys#exact->inexact */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[12]+1); av2[1]=t5; av2[2]=t2; tp(3,av2);}} /* k1169 in thread-terminate! in k918 in k843 in k690 in k687 */ static void C_ccall f_1171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_1171,2,av);} a=C_alloc(11); t2=C_a_i_list1(&a,1,C_SCHEME_UNDEFINED); t3=C_i_setslot(((C_word*)t0)[2],C_fix(2),t2); t4=C_a_i_record3(&a,3,lf[17],lf[62],C_SCHEME_END_OF_LIST); t5=C_i_setslot(((C_word*)t0)[2],C_fix(7),t4); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1180,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* srfi-18.scm:209: ##sys#thread-kill! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[28]+1); av2[1]=t6; av2[2]=((C_word*)t0)[2]; av2[3]=lf[52]; tp(4,av2);}} /* a1027 in k1015 in a1012 in k997 in thread-join! in k918 in k843 in k690 in k687 */ static void C_ccall f_1028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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(14,c,3)))){ C_save_and_reclaim((void *)f_1028,2,av);} a=C_alloc(14); t2=C_slot(((C_word*)t0)[2],C_fix(3)); t3=C_eqp(t2,lf[29]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1041,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_slot(((C_word*)t0)[4],C_fix(13)))){ t5=C_slot(((C_word*)t0)[2],C_fix(2));{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t5; C_apply(4,av2);}} else{ /* srfi-18.scm:178: ##sys#remove-from-timeout-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[51]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}} else{ t4=C_eqp(t2,lf[52]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1067,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t6=C_slot(((C_word*)t0)[2],C_fix(7)); t7=C_a_i_list2(&a,2,lf[53],t6); t8=C_a_i_record3(&a,3,lf[17],lf[54],t7); /* srfi-18.scm:182: ##sys#signal */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[15]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t5; av2[2]=t8; tp(3,av2);}} else{ t5=C_eqp(t2,lf[55]); t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1088,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); if(C_truep(t5)){ t7=t6; f_1088(t7,t5);} else{ t7=C_eqp(t2,lf[44]); t8=t6; f_1088(t8,(C_truep(t7)?t7:C_eqp(t2,lf[59])));}}}} /* k2081 in k2078 in k2075 in read-prompt-hook in k918 in k843 in k690 in k687 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2083,2,av);} /* srfi-18.scm:463: thread-yield! */ t2=*((C_word*)lf[48]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1021 in k1015 in a1012 in k997 in thread-join! in k918 in k843 in k690 in k687 */ 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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1023,2,av);} /* srfi-18.scm:201: ##sys#schedule */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[27]+1); av2[1]=((C_word*)t0)[2]; tp(2,av2);}} /* thread-quantum-set! in k918 in k843 in k690 in k687 */ static void C_ccall f_931(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,1)))){ C_save_and_reclaim((void *)f_931,4,av);} t4=C_i_check_structure_2(t2,lf[34],lf[41]); t5=C_i_check_exact_2(t3,lf[41]); t6=C_i_fixnum_max(t3,C_fix(10)); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_i_set_i_slot(t2,C_fix(9),t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k2078 in k2075 in read-prompt-hook in k918 in k843 in k690 in k687 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_2080,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2083,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-18.scm:462: ##sys#thread-block-for-i/o! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[102]+1); av2[1]=t2; av2[2]=*((C_word*)lf[30]+1); av2[3]=C_fix(0); av2[4]=lf[103]; tp(5,av2);}} /* current-time in k690 in k687 */ 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!=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_732,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_740,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-18.scm:58: current-milliseconds */ t3=*((C_word*)lf[2]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* thread-suspend! in k918 in k843 in k690 in k687 */ static void C_ccall f_1208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,3)))){ C_save_and_reclaim((void *)f_1208,3,av);} a=C_alloc(4); t3=C_i_check_structure_2(t2,lf[34],lf[65]); t4=C_i_setslot(t2,C_fix(3),lf[66]); t5=C_eqp(t2,*((C_word*)lf[30]+1)); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1226,a[2]=t2,a[3]=((C_word)li25),tmp=(C_word)a,a+=4,tmp); /* srfi-18.scm:216: ##sys#call-with-current-continuation */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; C_call_cc(3,av2);}} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k1201 in thread-terminate! in k918 in k843 in k690 in k687 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1203,2,av);} /* srfi-18.scm:205: g192 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* condition-variable-signal! in k918 in k843 in k690 in k687 */ 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 t4; 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(0,c,2)))){ C_save_and_reclaim((void *)f_1873,3,av);} t3=C_i_check_structure_2(t2,lf[86],lf[95]); t4=C_slot(t2,C_fix(2)); if(C_truep(C_i_nullp(t4))){ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_slot(t4,C_fix(0)); t6=C_slot(t5,C_fix(3)); t7=C_slot(t4,C_fix(1)); t8=C_i_setslot(t2,C_fix(2),t7); t9=C_eqp(t6,lf[55]); if(C_truep(t9)){ if(C_truep(t9)){ /* srfi-18.scm:416: ##sys#thread-basic-unblock! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[96]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[96]+1); av2[1]=t1; av2[2]=t5; tp(3,av2);}} else{ t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} else{ t10=C_eqp(t6,lf[59]); if(C_truep(t10)){ /* srfi-18.scm:416: ##sys#thread-basic-unblock! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[96]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[96]+1); av2[1]=t1; av2[2]=t5; tp(3,av2);}} else{ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}} /* thread-wait-for-i/o! in k918 in k843 in k690 in k687 */ static void C_ccall f_2091(C_word c,C_word *av){ C_word tmp; C_word 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,4)))){ C_save_and_reclaim((void*)f_2091,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; t4=C_i_nullp(t3); t5=(C_truep(t4)?lf[107]:C_i_car(t3)); t6=C_i_check_exact_2(t2,lf[106]); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2101,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-18.scm:470: ##sys#thread-block-for-i/o! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[102]+1); av2[1]=t7; av2[2]=*((C_word*)lf[30]+1); av2[3]=t2; av2[4]=t5; tp(5,av2);}} /* k1106 in k1086 in a1027 in k1015 in a1012 in k997 in thread-join! in k918 in k843 in k690 in k687 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1108,2,av);} /* srfi-18.scm:195: ##sys#schedule */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[27]+1); av2[1]=((C_word*)t0)[2]; tp(2,av2);}} /* condition-variable-specific-set! in k918 in k843 in k690 in k687 */ static void C_ccall f_1864(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1864,4,av);} t4=C_i_check_structure_2(t2,lf[86],lf[94]); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_setslot(t2,C_fix(3),t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a1225 in thread-suspend! in k918 in k843 in k690 in k687 */ static void C_ccall f_1226(C_word c,C_word *av){ C_word tmp; C_word 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_1226,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1235,a[2]=t2,a[3]=((C_word)li24),tmp=(C_word)a,a+=4,tmp); t4=C_i_setslot(((C_word*)t0)[2],C_fix(1),t3); /* srfi-18.scm:219: ##sys#schedule */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[27]+1); av2[1]=t1; tp(2,av2);}} /* k1096 in k1086 in a1027 in k1015 in a1012 in k997 in thread-join! in k918 in k843 in k690 in k687 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1098,2,av);} /* srfi-18.scm:188: return */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* thread-signal! in k918 in k843 in k690 in k687 */ static void C_ccall f_1977(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(10,c,3)))){ C_save_and_reclaim((void *)f_1977,4,av);} a=C_alloc(10); t4=C_i_check_structure_2(t2,lf[34],lf[99]); t5=C_eqp(t2,*((C_word*)lf[30]+1)); if(C_truep(t5)){ /* srfi-18.scm:436: ##sys#signal */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[15]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[15]+1); av2[1]=t1; av2[2]=t3; tp(3,av2);}} else{ t6=C_slot(t2,C_fix(1)); t7=t6; t8=C_slot(t2,C_fix(11)); t9=t8; t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1999,a[2]=t7,a[3]=t3,a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_structurep(t9,lf[86]))){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2027,a[2]=t10,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t12=C_slot(t9,C_fix(2)); /* srfi-18.scm:441: ##sys#delq */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[84]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[84]+1); av2[1]=t11; av2[2]=t2; av2[3]=t12; tp(4,av2);}} else{ if(C_truep(C_i_structurep(t9,lf[71]))){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2044,a[2]=t10,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t12=C_slot(t9,C_fix(3)); /* srfi-18.scm:443: ##sys#delq */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[84]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[84]+1); av2[1]=t11; av2[2]=t2; av2[3]=t12; tp(4,av2);}} else{ if(C_truep(C_i_structurep(t9,lf[34]))){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2061,a[2]=t10,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t12=C_slot(t9,C_fix(12)); /* srfi-18.scm:445: ##sys#delq */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[84]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[84]+1); av2[1]=t11; av2[2]=t2; av2[3]=t12; tp(4,av2);}} else{ t11=t10; f_1999(t11,C_SCHEME_UNDEFINED);}}}}} /* k1086 in a1027 in k1015 in a1012 in k997 in thread-join! in k918 in k843 in k690 in k687 */ static void C_fcall f_1088(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,5)))){ C_save_and_reclaim_args((void *)trf_1088,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1098,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[5])){ /* srfi-18.scm:188: return */ t3=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} else{ t3=C_a_i_record3(&a,3,lf[17],lf[56],C_SCHEME_END_OF_LIST); /* srfi-18.scm:191: ##sys#signal */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[15]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[15]+1); av2[1]=t2; av2[2]=t3; tp(3,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1108,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* srfi-18.scm:194: ##sys#thread-block-for-termination! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[57]+1); av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[8]; tp(4,av2);}}} else{ t2=C_slot(((C_word*)t0)[8],C_fix(3)); /* srfi-18.scm:197: ##sys#error */ t3=*((C_word*)lf[46]+1);{ C_word av2[6]; av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=lf[50]; av2[3]=lf[58]; av2[4]=((C_word*)t0)[7]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* k1962 in for-each-loop376 in condition-variable-broadcast! in k918 in k843 in k690 in k687 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1964,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1954(t3,((C_word*)t0)[4],t2);} /* thread-resume! in k918 in k843 in k690 in k687 */ static void C_ccall f_1241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,2)))){ C_save_and_reclaim((void *)f_1241,3,av);} t3=C_i_check_structure_2(t2,lf[34],lf[67]); t4=C_slot(t2,C_fix(3)); t5=C_eqp(t4,lf[66]); if(C_truep(t5)){ t6=C_i_setslot(t2,C_fix(3),lf[44]); /* srfi-18.scm:225: ##sys#add-to-ready-queue */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[45]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[45]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* a1734 in k1779 in k1650 in k1638 in a1632 in k1620 in mutex-unlock! in k918 in k843 in k690 in k687 */ 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 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,3)))){ C_save_and_reclaim((void *)f_1735,2,av);} a=C_alloc(5); t2=C_i_set_i_slot(((C_word*)t0)[2],C_fix(11),C_SCHEME_FALSE); if(C_truep(C_slot(((C_word*)t0)[2],C_fix(13)))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1755,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(((C_word*)t0)[3],C_fix(2)); /* srfi-18.scm:355: ##sys#delq */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[84]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[84]+1); av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=t4; tp(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1762,a[2]=((C_word*)t0)[4],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-18.scm:358: ##sys#remove-from-timeout-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[51]+1); av2[1]=t3; av2[2]=((C_word*)t0)[2]; tp(3,av2);}}} /* for-each-loop376 in condition-variable-broadcast! in k918 in k843 in k690 in k687 */ static void C_fcall f_1954(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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,2)))){ C_save_and_reclaim_args((void *)trf_1954,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_1964,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_slot(t4,C_fix(3)); t6=C_eqp(t5,lf[55]); if(C_truep(t6)){ if(C_truep(t6)){ /* srfi-18.scm:425: ##sys#thread-basic-unblock! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[96]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[96]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} else{ t7=C_slot(t2,C_fix(1)); t10=t1; t11=t7; t1=t10; t2=t11; goto loop;}} else{ t7=C_eqp(t5,lf[59]); if(C_truep(t7)){ /* srfi-18.scm:425: ##sys#thread-basic-unblock! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[96]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[96]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} else{ t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; 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);}}} /* a1234 in a1225 in thread-suspend! in k918 in k843 in k690 in k687 */ static void C_ccall f_1235(C_word c,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_1235,2,av);} /* srfi-18.scm:218: return */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1829 in make-condition-variable in k918 in k843 in k690 in k687 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_1831,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_record4(&a,4,lf[86],t1,C_SCHEME_END_OF_LIST,C_SCHEME_UNDEFINED); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1178 in k1169 in thread-terminate! in k918 in k843 in k690 in k687 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1180,2,av);} t2=C_eqp(((C_word*)t0)[2],*((C_word*)lf[30]+1)); if(C_truep(t2)){ /* srfi-18.scm:210: ##sys#schedule */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[27]+1); av2[1]=((C_word*)t0)[3]; tp(2,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* make-condition-variable in k918 in k843 in k690 in k687 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +8,c,2)))){ C_save_and_reclaim((void*)f_1823,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; C_word t6; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1831,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_car(t4); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[86],t5,C_SCHEME_END_OF_LIST,C_SCHEME_UNDEFINED); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* srfi-18.scm:388: gensym */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[86]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* a1283 in a1271 in k1296 in k1289 in thread-sleep! in k918 in k843 in k690 in k687 */ 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; 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_1284,2,av);} /* srfi-18.scm:232: return */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1271 in k1296 in k1289 in thread-sleep! in k918 in k843 in k690 in k687 */ static void C_ccall f_1272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1272,3,av);} a=C_alloc(7); t3=*((C_word*)lf[30]+1); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1284,a[2]=t2,a[3]=((C_word)li28),tmp=(C_word)a,a+=4,tmp); t5=C_i_setslot(*((C_word*)lf[30]+1),C_fix(1),t4); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1279,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-18.scm:233: ##sys#thread-block-for-timeout! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[60]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[60]+1); av2[1]=t6; av2[2]=*((C_word*)lf[30]+1); av2[3]=((C_word*)t0)[2]; tp(4,av2);}} /* k1277 in a1271 in k1296 in k1289 in thread-sleep! in k918 in k843 in k690 in k687 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1279,2,av);} /* srfi-18.scm:234: ##sys#schedule */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[27]+1); av2[1]=((C_word*)t0)[2]; tp(2,av2);}} /* k1947 in condition-variable-broadcast! in k918 in k843 in k690 in k687 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1949,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_set_i_slot(((C_word*)t0)[3],C_fix(2),C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1997 in thread-signal! in k918 in k843 in k690 in k687 */ static void C_fcall f_1999(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_1999,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2010,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li55),tmp=(C_word)a,a+=5,tmp); t3=C_i_setslot(((C_word*)t0)[4],C_fix(1),t2); t4=C_i_setslot(((C_word*)t0)[4],C_fix(3),lf[55]); /* srfi-18.scm:452: ##sys#thread-unblock! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[100]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[100]+1); av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* condition-variable-name in k918 in k843 in k690 in k687 */ static void C_ccall f_1846(C_word c,C_word *av){ C_word tmp; C_word 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_1846,3,av);} t3=C_i_check_structure_2(t2,lf[86],lf[92]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* condition-variable? in k918 in k843 in k690 in k687 */ 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=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_1840,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[86]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* abandoned-mutex-exception? in k690 in k687 */ static void C_ccall f_795(C_word c,C_word *av){ C_word tmp; C_word 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_795,3,av);} if(C_truep(C_i_structurep(t2,lf[17]))){ t3=C_slot(t2,C_fix(1)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_memq(lf[20],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k1289 in thread-sleep! in k918 in k843 in k690 in k687 */ 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(3,c,3)))){ C_save_and_reclaim((void *)f_1291,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1298,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-18.scm:236: compute-time-limit */ f_694(t2,((C_word*)t0)[3],lf[68]);} /* k1296 in k1289 in thread-sleep! in k918 in k843 in k690 in k687 */ static void C_ccall f_1298(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1298,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; t3=t1; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1272,a[2]=t3,a[3]=((C_word)li29),tmp=(C_word)a,a+=4,tmp); /* srfi-18.scm:229: ##sys#call-with-current-continuation */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t2; av2[2]=t4; C_call_cc(3,av2);}} /* condition-variable-broadcast! in k918 in k843 in k690 in k687 */ 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=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(10,c,3)))){ C_save_and_reclaim((void *)f_1916,3,av);} a=C_alloc(10); t3=C_i_check_structure_2(t2,lf[86],lf[97]); t4=C_slot(t2,C_fix(2)); t5=C_i_check_list_2(t4,lf[98]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1949,a[2]=t1,a[3]=t2,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_1954,a[2]=t8,a[3]=((C_word)li53),tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_1954(t10,t6,t4);} /* time? in k690 in k687 */ static void C_ccall f_772(C_word c,C_word *av){ C_word tmp; C_word 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_772,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[1]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k768 in seconds->time in k690 in k687 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_770,2,av);} /* srfi-18.scm:66: fp* */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[9]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* assign in a1401 in k1386 in mutex-lock! in k918 in k843 in k690 in k687 */ 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 t4; 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_1457,2,av);} a=C_alloc(9); t2=C_i_set_i_slot(((C_word*)t0)[2],C_fix(11),C_SCHEME_FALSE); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1464,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)[2],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* srfi-18.scm:285: check */ t4=((C_word*)((C_word*)t0)[7])[1]; f_1429(t4,t3);} /* k1441 in check in a1401 in k1386 in mutex-lock! in k918 in k843 in k690 in k687 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1443,2,av);} /* srfi-18.scm:282: return */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* condition-variable-specific in k918 in k843 in k690 in k687 */ 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=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_1855,3,av);} t3=C_i_check_structure_2(t2,lf[86],lf[93]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(3)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1779 in k1650 in k1638 in a1632 in k1620 in mutex-unlock! in k918 in k843 in k690 in k687 */ 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 t6; C_word *a; 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=C_i_setslot(((C_word*)t0)[2],C_fix(2),t1); t3=C_i_setslot(((C_word*)t0)[3],C_fix(11),((C_word*)t0)[2]); if(C_truep(((C_word*)t0)[4])){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1735,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word)li43),tmp=(C_word)a,a+=6,tmp); t5=C_i_setslot(((C_word*)t0)[3],C_fix(1),t4); /* srfi-18.scm:360: ##sys#thread-block-for-timeout! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[60]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[60]+1); av2[1]=((C_word*)t0)[6]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; tp(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1773,a[2]=((C_word*)t0)[5],a[3]=((C_word)li44),tmp=(C_word)a,a+=4,tmp); t5=C_i_setslot(((C_word*)t0)[3],C_fix(1),t4); t6=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_setslot(((C_word*)t0)[3],C_fix(3),lf[59]); f_1655(2,av2);}}} /* k1465 in k1462 in assign in a1401 in k1386 in mutex-lock! in k918 in k843 in k690 in k687 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1467,2,av);} /* srfi-18.scm:302: return */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* k1462 in assign in a1401 in k1386 in mutex-lock! in k918 in k843 in k690 in k687 */ static void C_ccall f_1464(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_1464,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1467,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(C_truep(((C_word*)t0)[4])?C_i_not(((C_word*)t0)[5]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=C_i_set_i_slot(((C_word*)t0)[6],C_fix(2),C_SCHEME_FALSE); t5=C_i_set_i_slot(((C_word*)t0)[6],C_fix(5),C_SCHEME_TRUE); /* srfi-18.scm:302: return */ t6=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} else{ t4=(C_truep(((C_word*)t0)[5])?((C_word*)t0)[5]:((C_word*)t0)[7]); t5=C_slot(t4,C_fix(3)); t6=C_eqp(lf[52],t5); t7=(C_truep(t6)?t6:C_eqp(lf[29],t5)); if(C_truep(t7)){ t8=C_i_set_i_slot(((C_word*)t0)[6],C_fix(2),C_SCHEME_FALSE); t9=C_i_set_i_slot(((C_word*)t0)[6],C_fix(5),C_SCHEME_FALSE); t10=C_i_set_i_slot(((C_word*)t0)[6],C_fix(4),C_SCHEME_TRUE); /* srfi-18.scm:297: check */ t11=((C_word*)((C_word*)t0)[8])[1]; f_1429(t11,t2);} else{ t8=C_i_setslot(((C_word*)t0)[6],C_fix(2),t4); t9=C_i_set_i_slot(((C_word*)t0)[6],C_fix(5),C_SCHEME_TRUE); t10=C_slot(t4,C_fix(8)); t11=C_a_i_cons(&a,2,((C_word*)t0)[6],t10); t12=C_i_setslot(t4,C_fix(8),t11); /* srfi-18.scm:302: return */ t13=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t13))(3,av2);}}}} /* a1772 in k1779 in k1650 in k1638 in a1632 in k1620 in mutex-unlock! in k918 in k843 in k690 in k687 */ 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; 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_1773,2,av);} /* srfi-18.scm:362: return */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* mutex? in k918 in k843 in k690 in k687 */ static void C_ccall f_1303(C_word c,C_word *av){ C_word tmp; C_word 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_1303,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[71]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1417 in switch in a1401 in k1386 in mutex-lock! in k918 in k843 in k690 in k687 */ static void C_ccall f_1419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1419,2,av);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(3),t1); /* srfi-18.scm:279: ##sys#schedule */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[27]+1); av2[1]=((C_word*)t0)[3]; tp(2,av2);}} /* make-mutex in k918 in k843 in k690 in k687 */ static void C_ccall f_1309(C_word c,C_word *av){ C_word tmp; 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_1309,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; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1313,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t2))){ /* srfi-18.scm:243: gensym */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[71]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=C_i_car(t2); /* srfi-18.scm:244: ##sys#make-mutex */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[73]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[73]+1); av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_FALSE; tp(4,av2);}}} /* thread? in k843 in k690 in k687 */ 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=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_891,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[34]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k997 in thread-join! in k918 in k843 in k690 in k687 */ static void C_ccall f_999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_999,2,av);} a=C_alloc(7); t2=t1; t3=C_i_pairp(((C_word*)t0)[2]); t4=(C_truep(t3)?C_slot(((C_word*)t0)[2],C_fix(1)):C_SCHEME_FALSE); t5=(C_truep(t4)?C_i_pairp(t4):C_SCHEME_FALSE); t6=t5; t7=(C_truep(t6)?C_slot(t4,C_fix(0)):C_SCHEME_FALSE); t8=t7; t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1013,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t6,a[5]=t8,a[6]=((C_word)li21),tmp=(C_word)a,a+=7,tmp); /* srfi-18.scm:168: ##sys#call-with-current-continuation */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t9; C_call_cc(3,av2);}} /* current-thread in k843 in k690 in k687 */ 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); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_897,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[30]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1760 in a1734 in k1779 in k1650 in k1638 in a1632 in k1620 in mutex-unlock! in k918 in k843 in k690 in k687 */ static void C_ccall f_1762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1762,2,av);} /* srfi-18.scm:359: return */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a1401 in k1386 in mutex-lock! in k918 in k843 in k690 in k687 */ static void C_ccall f_1402(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(34,c,2)))){ C_save_and_reclaim((void *)f_1402,3,av);} a=C_alloc(34); t3=*((C_word*)lf[30]+1); 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(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1405,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li37),tmp=(C_word)a,a+=5,tmp)); t11=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1429,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li38),tmp=(C_word)a,a+=5,tmp)); t12=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1457,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],a[7]=t7,a[8]=((C_word)li39),tmp=(C_word)a,a+=9,tmp)); if(C_truep(C_slot(((C_word*)t0)[2],C_fix(5)))){ if(C_truep(((C_word*)t0)[5])){ t13=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1544,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t9,a[6]=t5,a[7]=t1,a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); /* srfi-18.scm:307: check */ t14=((C_word*)t7)[1]; f_1429(t14,t13);} else{ t13=C_i_setslot(t3,C_fix(3),lf[59]); t14=C_i_setslot(t3,C_fix(1),((C_word*)t9)[1]); /* srfi-18.scm:324: switch */ t15=((C_word*)t5)[1]; f_1405(t15,t1);}} else{ /* srfi-18.scm:305: assign */ t13=((C_word*)t9)[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t1; f_1457(2,av2);}}} /* switch in a1401 in k1386 in mutex-lock! in k918 in k843 in k690 in k687 */ static void C_fcall f_1405(C_word 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_1405,2,t0,t1);} a=C_alloc(7); t2=C_i_setslot(((C_word*)t0)[2],C_fix(11),((C_word*)t0)[3]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1419,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=C_slot(((C_word*)t0)[3],C_fix(3)); t5=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* srfi-18.scm:278: ##sys#append */ t6=*((C_word*)lf[82]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k2059 in thread-signal! in k918 in k843 in k690 in k687 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2061,2,av);} t2=((C_word*)t0)[2]; f_1999(t2,C_i_setslot(((C_word*)t0)[3],C_fix(12),t1));} /* mutex-specific in k918 in k843 in k690 in k687 */ static void C_ccall f_1336(C_word c,C_word *av){ C_word tmp; C_word 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_1336,3,av);} t3=C_i_check_structure_2(t2,lf[71],lf[75]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(6)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* thread-join! in k918 in k843 in k690 in k687 */ 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=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_992,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_i_check_structure_2(t2,lf[34],lf[50]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_999,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t3))){ t6=C_slot(t3,C_fix(0)); /* srfi-18.scm:164: compute-time-limit */ f_694(t5,t6,lf[50]);} else{ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_999(2,av2);}}} /* ##sys#read-prompt-hook in k918 in k843 in k690 in k687 */ 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 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_2067,2,av);} a=C_alloc(4); t2=C_fudge(C_fix(12)); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2077,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; f_2077(2,av2);}} else{ /* srfi-18.scm:460: ##sys#tty-port? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[104]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[104]+1); av2[1]=t3; av2[2]=*((C_word*)lf[105]+1); tp(3,av2);}}} /* k1753 in a1734 in k1779 in k1650 in k1638 in a1632 in k1620 in mutex-unlock! in k918 in k843 in k690 in k687 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1755,2,av);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(2),t1); /* srfi-18.scm:356: return */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} /* k874 in make-thread in k843 in k690 in k687 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_876,2,av);} t2=C_slot(*((C_word*)lf[30]+1),C_fix(9)); /* srfi-18.scm:100: ##sys#make-thread */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[31]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[31]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=lf[32]; av2[4]=t1; av2[5]=t2; tp(6,av2);}} /* k2099 in thread-wait-for-i/o! in k918 in k843 in k690 in k687 */ static void C_ccall f_2101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2101,2,av);} /* srfi-18.scm:471: thread-yield! */ t2=*((C_word*)lf[48]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_srfi_2d18_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_2d18_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_srfi_2d18_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(768))){ C_save(t1); C_rereclaim2(768*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,113); lf[1]=C_h_intern(&lf[1],4,"time"); lf[2]=C_h_intern(&lf[2],20,"current-milliseconds"); lf[3]=C_h_intern(&lf[3],15,"\003syssignal-hook"); lf[4]=C_h_intern(&lf[4],11,"\000type-error"); lf[5]=C_decode_literal(C_heaptop,"\376B\000\000\030invalid timeout argument"); lf[6]=C_h_intern(&lf[6],12,"current-time"); lf[7]=C_h_intern(&lf[7],13,"time->seconds"); lf[8]=C_h_intern(&lf[8],3,"fp/"); lf[9]=C_decode_literal(C_heaptop,"\376U1000.0\000"); lf[10]=C_h_intern(&lf[10],13,"seconds->time"); lf[11]=C_h_intern(&lf[11],3,"fp\052"); lf[12]=C_h_intern(&lf[12],18,"\003sysexact->inexact"); lf[13]=C_h_intern(&lf[13],5,"time\077"); lf[14]=C_h_intern(&lf[14],5,"raise"); lf[15]=C_h_intern(&lf[15],10,"\003syssignal"); lf[16]=C_h_intern(&lf[16],23,"join-timeout-exception\077"); lf[17]=C_h_intern(&lf[17],9,"condition"); lf[18]=C_h_intern(&lf[18],22,"join-timeout-exception"); lf[19]=C_h_intern(&lf[19],26,"abandoned-mutex-exception\077"); lf[20]=C_h_intern(&lf[20],25,"abandoned-mutex-exception"); lf[21]=C_h_intern(&lf[21],28,"terminated-thread-exception\077"); lf[22]=C_h_intern(&lf[22],27,"terminated-thread-exception"); lf[23]=C_h_intern(&lf[23],19,"uncaught-exception\077"); lf[24]=C_h_intern(&lf[24],18,"uncaught-exception"); lf[25]=C_h_intern(&lf[25],25,"uncaught-exception-reason"); lf[26]=C_h_intern(&lf[26],11,"make-thread"); lf[27]=C_h_intern(&lf[27],12,"\003sysschedule"); lf[28]=C_h_intern(&lf[28],16,"\003systhread-kill!"); lf[29]=C_h_intern(&lf[29],4,"dead"); lf[30]=C_h_intern(&lf[30],18,"\003syscurrent-thread"); lf[31]=C_h_intern(&lf[31],15,"\003sysmake-thread"); lf[32]=C_h_intern(&lf[32],7,"created"); lf[33]=C_h_intern(&lf[33],6,"gensym"); lf[34]=C_h_intern(&lf[34],6,"thread"); lf[35]=C_h_intern(&lf[35],7,"thread\077"); lf[36]=C_h_intern(&lf[36],14,"current-thread"); lf[37]=C_h_intern(&lf[37],12,"thread-state"); lf[38]=C_h_intern(&lf[38],20,"thread-specific-set!"); lf[39]=C_h_intern(&lf[39],15,"thread-specific"); lf[40]=C_h_intern(&lf[40],14,"thread-quantum"); lf[41]=C_h_intern(&lf[41],19,"thread-quantum-set!"); lf[42]=C_h_intern(&lf[42],11,"thread-name"); lf[43]=C_h_intern(&lf[43],13,"thread-start!"); lf[44]=C_h_intern(&lf[44],5,"ready"); lf[45]=C_h_intern(&lf[45],22,"\003sysadd-to-ready-queue"); lf[46]=C_h_intern(&lf[46],9,"\003syserror"); lf[47]=C_decode_literal(C_heaptop,"\376B\000\000&thread cannot be started a second time"); lf[48]=C_h_intern(&lf[48],13,"thread-yield!"); lf[49]=C_h_intern(&lf[49],17,"\003systhread-yield!"); lf[50]=C_h_intern(&lf[50],12,"thread-join!"); lf[51]=C_h_intern(&lf[51],28,"\003sysremove-from-timeout-list"); lf[52]=C_h_intern(&lf[52],10,"terminated"); lf[53]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\022uncaught-exception\376\001\000\000\006reason"); lf[54]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\022uncaught-exception\376\377\016"); lf[55]=C_h_intern(&lf[55],7,"blocked"); lf[56]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\026join-timeout-exception\376\377\016"); lf[57]=C_h_intern(&lf[57],33,"\003systhread-block-for-termination!"); lf[58]=C_decode_literal(C_heaptop,"\376B\000\000.Internal scheduler error: unknown thread state"); lf[59]=C_h_intern(&lf[59],8,"sleeping"); lf[60]=C_h_intern(&lf[60],29,"\003systhread-block-for-timeout!"); lf[61]=C_h_intern(&lf[61],17,"thread-terminate!"); lf[62]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\033terminated-thread-exception\376\377\016"); lf[63]=C_h_intern(&lf[63],21,"\003sysprimordial-thread"); lf[64]=C_h_intern(&lf[64],16,"\003sysexit-handler"); lf[65]=C_h_intern(&lf[65],15,"thread-suspend!"); lf[66]=C_h_intern(&lf[66],9,"suspended"); lf[67]=C_h_intern(&lf[67],14,"thread-resume!"); lf[68]=C_h_intern(&lf[68],13,"thread-sleep!"); lf[69]=C_decode_literal(C_heaptop,"\376B\000\000\030invalid timeout argument"); lf[70]=C_h_intern(&lf[70],6,"mutex\077"); lf[71]=C_h_intern(&lf[71],5,"mutex"); lf[72]=C_h_intern(&lf[72],10,"make-mutex"); lf[73]=C_h_intern(&lf[73],14,"\003sysmake-mutex"); lf[74]=C_h_intern(&lf[74],10,"mutex-name"); lf[75]=C_h_intern(&lf[75],14,"mutex-specific"); lf[76]=C_h_intern(&lf[76],19,"mutex-specific-set!"); lf[77]=C_h_intern(&lf[77],11,"mutex-state"); lf[78]=C_h_intern(&lf[78],9,"not-owned"); lf[79]=C_h_intern(&lf[79],9,"abandoned"); lf[80]=C_h_intern(&lf[80],13,"not-abandoned"); lf[81]=C_h_intern(&lf[81],11,"mutex-lock!"); lf[82]=C_h_intern(&lf[82],10,"\003sysappend"); lf[83]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\031abandoned-mutex-exception\376\377\016"); lf[84]=C_h_intern(&lf[84],8,"\003sysdelq"); lf[85]=C_h_intern(&lf[85],13,"mutex-unlock!"); lf[86]=C_h_intern(&lf[86],18,"condition-variable"); lf[87]=C_h_intern(&lf[87],7,"running"); lf[88]=C_h_intern(&lf[88],12,"mutex-unlock"); lf[89]=C_decode_literal(C_heaptop,"\376B\000\000.Internal scheduler error: unknown thread state"); lf[90]=C_h_intern(&lf[90],23,"make-condition-variable"); lf[91]=C_h_intern(&lf[91],19,"condition-variable\077"); lf[92]=C_h_intern(&lf[92],23,"condition-variable-name"); lf[93]=C_h_intern(&lf[93],27,"condition-variable-specific"); lf[94]=C_h_intern(&lf[94],32,"condition-variable-specific-set!"); lf[95]=C_h_intern(&lf[95],26,"condition-variable-signal!"); lf[96]=C_h_intern(&lf[96],25,"\003systhread-basic-unblock!"); lf[97]=C_h_intern(&lf[97],29,"condition-variable-broadcast!"); lf[98]=C_h_intern(&lf[98],8,"for-each"); lf[99]=C_h_intern(&lf[99],14,"thread-signal!"); lf[100]=C_h_intern(&lf[100],19,"\003systhread-unblock!"); lf[101]=C_h_intern(&lf[101],20,"\003sysread-prompt-hook"); lf[102]=C_h_intern(&lf[102],25,"\003systhread-block-for-i/o!"); lf[103]=C_h_intern(&lf[103],6,"\000input"); lf[104]=C_h_intern(&lf[104],13,"\003systty-port\077"); lf[105]=C_h_intern(&lf[105],18,"\003sysstandard-input"); lf[106]=C_h_intern(&lf[106],20,"thread-wait-for-i/o!"); lf[107]=C_h_intern(&lf[107],4,"\000all"); lf[108]=C_h_intern(&lf[108],18,"getter-with-setter"); lf[109]=C_h_intern(&lf[109],27,"condition-property-accessor"); lf[110]=C_h_intern(&lf[110],6,"reason"); lf[111]=C_h_intern(&lf[111],17,"register-feature!"); lf[112]=C_h_intern(&lf[112],7,"srfi-18"); C_register_lf2(lf,113,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_689,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_scheduler_toplevel(2,av2);}} /* a1632 in k1620 in mutex-unlock! in k918 in k843 in k690 in k687 */ static void C_ccall f_1633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1633,3,av);} a=C_alloc(8); t3=C_slot(((C_word*)t0)[2],C_fix(3)); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1640,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t1,a[6]=t4,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[5])){ /* srfi-18.scm:338: compute-time-limit */ f_694(t5,((C_word*)t0)[5],lf[85]);} else{ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_1640(2,av2);}}} /* k1311 in make-mutex in k918 in k843 in k690 in k687 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1313,2,av);} /* srfi-18.scm:244: ##sys#make-mutex */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[73]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[73]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; tp(4,av2);}} /* check in a1401 in k1386 in mutex-lock! in k918 in k843 in k690 in k687 */ static void C_fcall f_1429(C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_1429,2,t0,t1);} a=C_alloc(11); if(C_truep(C_slot(((C_word*)t0)[2],C_fix(4)))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1443,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t3=C_slot(((C_word*)t0)[2],C_fix(1)); t4=C_a_i_list1(&a,1,t3); t5=C_a_i_record3(&a,3,lf[17],lf[83],t4); /* srfi-18.scm:282: ##sys#signal */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[15]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[15]+1); av2[1]=t2; av2[2]=t5; tp(3,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);}}} /* a2111 in k843 in k690 in k687 */ 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=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_2112,3,av);} t3=C_i_check_structure_2(t2,lf[34],lf[39]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(10)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a861 in a855 in k849 in make-thread in k843 in k690 in k687 */ static void C_ccall f_862(C_word c,C_word *av){ C_word tmp; 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_862,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; t3=C_i_setslot(((C_word*)t0)[2],C_fix(2),t2); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_869,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-18.scm:112: ##sys#thread-kill! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[28]+1); av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=lf[29]; tp(4,av2);}} /* k867 in a861 in a855 in k849 in make-thread in k843 in k690 in k687 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_869,2,av);} /* srfi-18.scm:113: ##sys#schedule */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[27]+1); av2[1]=((C_word*)t0)[2]; tp(2,av2);}} /* k1620 in mutex-unlock! in k918 in k843 in k690 in k687 */ static void C_fcall f_1622(C_word t0,C_word t1){ C_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(7,0,3)))){ C_save_and_reclaim_args((void *)trf_1622,2,t0,t1);} a=C_alloc(7); t2=t1; t3=((C_word*)t0)[2]; t4=C_u_i_length(t3); t5=C_fixnum_greaterp(t4,C_fix(1)); t6=(C_truep(t5)?C_i_cadr(((C_word*)t0)[2]):C_SCHEME_FALSE); t7=t6; t8=(C_truep(t2)?C_i_check_structure_2(t2,lf[86],lf[85]):C_SCHEME_UNDEFINED); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1633,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t7,a[6]=((C_word)li45),tmp=(C_word)a,a+=7,tmp); /* srfi-18.scm:335: ##sys#call-with-current-continuation */{ C_word av2[3]; av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=t9; C_call_cc(3,av2);}} /* mutex-specific-set! in k918 in k843 in k690 in k687 */ static void C_ccall f_1345(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1345,4,av);} t4=C_i_check_structure_2(t2,lf[71],lf[76]); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_setslot(t2,C_fix(6),t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a855 in k849 in make-thread in k843 in k690 in k687 */ static void C_ccall f_856(C_word c,C_word *av){ 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_856,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_862,a[2]=((C_word*)t0)[2],a[3]=((C_word)li9),tmp=(C_word)a,a+=4,tmp); /* srfi-18.scm:108: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k849 in make-thread in k843 in k690 in k687 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_851,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_856,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li10),tmp=(C_word)a,a+=5,tmp); t4=C_i_setslot(t2,C_fix(1),t3); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k764 in seconds->time in k690 in k687 */ static void C_ccall f_766(C_word c,C_word *av){ C_word tmp; 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_766,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_record2(&a,2,lf[1],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* join-timeout-exception? in k690 in k687 */ static void C_ccall f_779(C_word c,C_word *av){ C_word tmp; C_word 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_779,3,av);} if(C_truep(C_i_structurep(t2,lf[17]))){ t3=C_slot(t2,C_fix(1)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_memq(lf[18],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k1580 in a1554 in k1542 in a1401 in k1386 in mutex-lock! in k918 in k843 in k690 in k687 */ 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);} /* srfi-18.scm:318: assign */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_1457(2,av2);}} /* mutex-lock! in k918 in k843 in k690 in k687 */ static void C_ccall f_1378(C_word c,C_word *av){ C_word tmp; C_word 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_1378,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_check_structure_2(t2,lf[71],lf[81]); t5=C_i_pairp(t3); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1388,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ t7=C_i_car(t3); /* srfi-18.scm:268: compute-time-limit */ f_694(t6,t7,lf[81]);} else{ t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; f_1388(2,av2);}}} /* thread-start! in k918 in k843 in k690 in k687 */ 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=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_956,3,av);} a=C_alloc(10); 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_960,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_closurep(((C_word*)t3)[1]))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_986,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* srfi-18.scm:150: make-thread */ t6=*((C_word*)lf[26]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t3)[1]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=t4; f_960(t5,C_i_check_structure_2(((C_word*)t3)[1],lf[34],lf[43]));}} /* k1797 in k1638 in a1632 in k1620 in mutex-unlock! in k918 in k843 in k690 in k687 */ 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,1)))){ C_save_and_reclaim((void *)f_1799,2,av);} t2=((C_word*)t0)[2]; f_1652(t2,C_i_setslot(((C_word*)t0)[3],C_fix(8),t1));} /* k1638 in a1632 in k1620 in mutex-unlock! in k918 in k843 in k690 in k687 */ static void C_ccall f_1640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_1640,2,av);} a=C_alloc(13); t2=t1; 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(5),C_SCHEME_FALSE); t5=C_slot(((C_word*)t0)[2],C_fix(2)); t6=t5; t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1652,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]=t2,tmp=(C_word)a,a+=9,tmp); if(C_truep(t6)){ t8=C_i_set_i_slot(((C_word*)t0)[2],C_fix(2),C_SCHEME_FALSE); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1799,a[2]=t7,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t10=C_slot(t6,C_fix(8)); /* srfi-18.scm:344: ##sys#delq */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[84]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[84]+1); av2[1]=t9; av2[2]=((C_word*)t0)[2]; av2[3]=t10; tp(4,av2);}} else{ t8=t7; f_1652(t8,C_SCHEME_UNDEFINED);}} /* mutex-name in k918 in k843 in k690 in k687 */ static void C_ccall f_1327(C_word c,C_word *av){ C_word tmp; C_word 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_1327,3,av);} t3=C_i_check_structure_2(t2,lf[71],lf[74]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k984 in thread-start! in k918 in k843 in k690 in k687 */ static void C_ccall f_986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_986,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_960(t3,t2);} /* thread-sleep! in k918 in k843 in k690 in k687 */ 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; 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,5)))){ C_save_and_reclaim((void *)f_1263,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1291,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_1291(2,av2);}} else{ /* srfi-18.scm:235: ##sys#signal-hook */ t4=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[4]; av2[3]=lf[68]; av2[4]=lf[69]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} /* mutex-state in k918 in k843 in k690 in k687 */ 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=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_1354,3,av);} t3=C_i_check_structure_2(t2,lf[71],lf[77]); if(C_truep(C_slot(t2,C_fix(5)))){ t4=C_slot(t2,C_fix(2)); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=(C_truep(t4)?t4:lf[78]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_slot(t2,C_fix(4)); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=(C_truep(t4)?lf[79]:lf[80]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[122] = { {"f_969:srfi_2d18_2escm",(void*)f_969}, {"f_827:srfi_2d18_2escm",(void*)f_827}, {"f_811:srfi_2d18_2escm",(void*)f_811}, {"f_963:srfi_2d18_2escm",(void*)f_963}, {"f_960:srfi_2d18_2escm",(void*)f_960}, {"f_1615:srfi_2d18_2escm",(void*)f_1615}, {"f_723:srfi_2d18_2escm",(void*)f_723}, {"f_947:srfi_2d18_2escm",(void*)f_947}, {"f_692:srfi_2d18_2escm",(void*)f_692}, {"f_1575:srfi_2d18_2escm",(void*)f_1575}, {"f_694:srfi_2d18_2escm",(void*)f_694}, {"f_1550:srfi_2d18_2escm",(void*)f_1550}, {"f_1041:srfi_2d18_2escm",(void*)f_1041}, {"f_689:srfi_2d18_2escm",(void*)f_689}, {"f_1164:srfi_2d18_2escm",(void*)f_1164}, {"f_1555:srfi_2d18_2escm",(void*)f_1555}, {"f_1067:srfi_2d18_2escm",(void*)f_1067}, {"f_920:srfi_2d18_2escm",(void*)f_920}, {"f_2014:srfi_2d18_2escm",(void*)f_2014}, {"f_922:srfi_2d18_2escm",(void*)f_922}, {"f_2010:srfi_2d18_2escm",(void*)f_2010}, {"f_1017:srfi_2d18_2escm",(void*)f_1017}, {"f_1013:srfi_2d18_2escm",(void*)f_1013}, {"f_1658:srfi_2d18_2escm",(void*)f_1658}, {"f_1544:srfi_2d18_2escm",(void*)f_1544}, {"f_1655:srfi_2d18_2escm",(void*)f_1655}, {"f_1652:srfi_2d18_2escm",(void*)f_1652}, {"f_2027:srfi_2d18_2escm",(void*)f_2027}, {"f_845:srfi_2d18_2escm",(void*)f_845}, {"f_909:srfi_2d18_2escm",(void*)f_909}, {"f_847:srfi_2d18_2escm",(void*)f_847}, {"f_1388:srfi_2d18_2escm",(void*)f_1388}, {"f_2077:srfi_2d18_2escm",(void*)f_2077}, {"f_2044:srfi_2d18_2escm",(void*)f_2044}, {"f_900:srfi_2d18_2escm",(void*)f_900}, {"f_742:srfi_2d18_2escm",(void*)f_742}, {"f_740:srfi_2d18_2escm",(void*)f_740}, {"f_755:srfi_2d18_2escm",(void*)f_755}, {"f_1171:srfi_2d18_2escm",(void*)f_1171}, {"f_1028:srfi_2d18_2escm",(void*)f_1028}, {"f_2083:srfi_2d18_2escm",(void*)f_2083}, {"f_1023:srfi_2d18_2escm",(void*)f_1023}, {"f_931:srfi_2d18_2escm",(void*)f_931}, {"f_2080:srfi_2d18_2escm",(void*)f_2080}, {"f_732:srfi_2d18_2escm",(void*)f_732}, {"f_1208:srfi_2d18_2escm",(void*)f_1208}, {"f_1203:srfi_2d18_2escm",(void*)f_1203}, {"f_1873:srfi_2d18_2escm",(void*)f_1873}, {"f_2091:srfi_2d18_2escm",(void*)f_2091}, {"f_1108:srfi_2d18_2escm",(void*)f_1108}, {"f_1864:srfi_2d18_2escm",(void*)f_1864}, {"f_1226:srfi_2d18_2escm",(void*)f_1226}, {"f_1098:srfi_2d18_2escm",(void*)f_1098}, {"f_1977:srfi_2d18_2escm",(void*)f_1977}, {"f_1088:srfi_2d18_2escm",(void*)f_1088}, {"f_1964:srfi_2d18_2escm",(void*)f_1964}, {"f_1241:srfi_2d18_2escm",(void*)f_1241}, {"f_1735:srfi_2d18_2escm",(void*)f_1735}, {"f_1954:srfi_2d18_2escm",(void*)f_1954}, {"f_1235:srfi_2d18_2escm",(void*)f_1235}, {"f_1831:srfi_2d18_2escm",(void*)f_1831}, {"f_1180:srfi_2d18_2escm",(void*)f_1180}, {"f_1823:srfi_2d18_2escm",(void*)f_1823}, {"f_1284:srfi_2d18_2escm",(void*)f_1284}, {"f_1272:srfi_2d18_2escm",(void*)f_1272}, {"f_1279:srfi_2d18_2escm",(void*)f_1279}, {"f_1949:srfi_2d18_2escm",(void*)f_1949}, {"f_1999:srfi_2d18_2escm",(void*)f_1999}, {"f_1846:srfi_2d18_2escm",(void*)f_1846}, {"f_1840:srfi_2d18_2escm",(void*)f_1840}, {"f_795:srfi_2d18_2escm",(void*)f_795}, {"f_1291:srfi_2d18_2escm",(void*)f_1291}, {"f_1298:srfi_2d18_2escm",(void*)f_1298}, {"f_1916:srfi_2d18_2escm",(void*)f_1916}, {"f_772:srfi_2d18_2escm",(void*)f_772}, {"f_770:srfi_2d18_2escm",(void*)f_770}, {"f_1457:srfi_2d18_2escm",(void*)f_1457}, {"f_1443:srfi_2d18_2escm",(void*)f_1443}, {"f_1855:srfi_2d18_2escm",(void*)f_1855}, {"f_1781:srfi_2d18_2escm",(void*)f_1781}, {"f_1467:srfi_2d18_2escm",(void*)f_1467}, {"f_1464:srfi_2d18_2escm",(void*)f_1464}, {"f_1773:srfi_2d18_2escm",(void*)f_1773}, {"f_1303:srfi_2d18_2escm",(void*)f_1303}, {"f_1419:srfi_2d18_2escm",(void*)f_1419}, {"f_1309:srfi_2d18_2escm",(void*)f_1309}, {"f_891:srfi_2d18_2escm",(void*)f_891}, {"f_999:srfi_2d18_2escm",(void*)f_999}, {"f_897:srfi_2d18_2escm",(void*)f_897}, {"f_1762:srfi_2d18_2escm",(void*)f_1762}, {"f_1402:srfi_2d18_2escm",(void*)f_1402}, {"f_1405:srfi_2d18_2escm",(void*)f_1405}, {"f_2061:srfi_2d18_2escm",(void*)f_2061}, {"f_1336:srfi_2d18_2escm",(void*)f_1336}, {"f_992:srfi_2d18_2escm",(void*)f_992}, {"f_2067:srfi_2d18_2escm",(void*)f_2067}, {"f_1755:srfi_2d18_2escm",(void*)f_1755}, {"f_876:srfi_2d18_2escm",(void*)f_876}, {"f_2101:srfi_2d18_2escm",(void*)f_2101}, {"toplevel:srfi_2d18_2escm",(void*)C_srfi_2d18_toplevel}, {"f_1633:srfi_2d18_2escm",(void*)f_1633}, {"f_1313:srfi_2d18_2escm",(void*)f_1313}, {"f_1429:srfi_2d18_2escm",(void*)f_1429}, {"f_2112:srfi_2d18_2escm",(void*)f_2112}, {"f_862:srfi_2d18_2escm",(void*)f_862}, {"f_869:srfi_2d18_2escm",(void*)f_869}, {"f_1622:srfi_2d18_2escm",(void*)f_1622}, {"f_1345:srfi_2d18_2escm",(void*)f_1345}, {"f_856:srfi_2d18_2escm",(void*)f_856}, {"f_851:srfi_2d18_2escm",(void*)f_851}, {"f_766:srfi_2d18_2escm",(void*)f_766}, {"f_779:srfi_2d18_2escm",(void*)f_779}, {"f_1582:srfi_2d18_2escm",(void*)f_1582}, {"f_1378:srfi_2d18_2escm",(void*)f_1378}, {"f_956:srfi_2d18_2escm",(void*)f_956}, {"f_1799:srfi_2d18_2escm",(void*)f_1799}, {"f_1640:srfi_2d18_2escm",(void*)f_1640}, {"f_1327:srfi_2d18_2escm",(void*)f_1327}, {"f_986:srfi_2d18_2escm",(void*)f_986}, {"f_1263:srfi_2d18_2escm",(void*)f_1263}, {"f_1354:srfi_2d18_2escm",(void*)f_1354}, {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| ##sys#for-each 1 o|eliminated procedure checks: 127 o|specializations: o| 2 (car pair) o| 2 (length list) o| 7 (eqv? * (not float)) (o e)|safe calls: 127 o|Removed `not' forms: 2 o|contracted procedure: k699 o|inlining procedure: k696 o|inlining procedure: k711 o|inlining procedure: k711 o|inlining procedure: k696 o|inlining procedure: k781 o|inlining procedure: k781 o|inlining procedure: k797 o|inlining procedure: k797 o|inlining procedure: k813 o|inlining procedure: k813 o|inlining procedure: k829 o|inlining procedure: k829 o|inlining procedure: k1033 o|inlining procedure: k1033 o|inlining procedure: k1080 o|inlining procedure: k1096 o|inlining procedure: k1096 o|inlining procedure: k1080 o|inlining procedure: k1122 o|inlining procedure: k1122 o|substituted constant variable: a1129 o|substituted constant variable: a1131 o|substituted constant variable: a1133 o|substituted constant variable: a1135 o|substituted constant variable: a1137 o|propagated global variable: ct171 ##sys#current-thread o|inlining procedure: k1181 o|inlining procedure: k1181 o|inlining procedure: k1216 o|inlining procedure: k1216 o|inlining procedure: k1246 o|inlining procedure: k1246 o|contracted procedure: "(srfi-18.scm:236) sleep211" o|propagated global variable: ct214 ##sys#current-thread o|inlining procedure: k1311 o|inlining procedure: k1311 o|inlining procedure: k1359 o|inlining procedure: k1359 o|inlining procedure: k1431 o|inlining procedure: k1431 o|inlining procedure: k1465 o|inlining procedure: k1465 o|contracted procedure: k1533 o|inlining procedure: k1530 o|inlining procedure: k1557 o|inlining procedure: k1557 o|inlining procedure: k1530 o|inlining procedure: k1659 o|inlining procedure: k1659 o|inlining procedure: k1690 o|inlining procedure: k1690 o|substituted constant variable: a1712 o|substituted constant variable: a1714 o|inlining procedure: k1725 o|inlining procedure: k1740 o|inlining procedure: k1740 o|inlining procedure: k1725 o|inlining procedure: k1829 o|inlining procedure: k1829 o|inlining procedure: k1881 o|inlining procedure: k1881 o|inlining procedure: k1956 o|contracted procedure: "(srfi-18.scm:421) g377384" o|inlining procedure: k1926 o|inlining procedure: k1926 o|inlining procedure: k1956 o|inlining procedure: k1982 o|inlining procedure: k1982 o|inlining procedure: k2032 o|inlining procedure: k2032 o|inlining procedure: k2069 o|inlining procedure: k2069 o|replaced variables: 220 o|removed binding forms: 152 o|substituted constant variable: r6972123 o|substituted constant variable: r7822125 o|substituted constant variable: r7982127 o|substituted constant variable: r8142129 o|substituted constant variable: r8302131 o|replaced variables: 3 o|removed binding forms: 228 o|inlining procedure: k1902 o|inlining procedure: k1932 o|replaced variables: 1 o|removed binding forms: 8 o|removed binding forms: 1 o|simplifications: ((if . 14) (##core#call . 224)) o| call simplifications: o| ##sys#fudge o| ##sys#check-list o| ##sys#list o| fx> 2 o| cadr 2 o| not o| cons o| null? 4 o| car 3 o| ##sys#call-with-current-continuation 5 o| list 4 o| apply o| procedure? o| eq? 20 o| ##sys#check-exact 2 o| fxmax o| ##sys#setislot 15 o| pair? 8 o| ##sys#call-with-values o| ##sys#setslot 36 o| memq 4 o| ##sys#check-number o| ##sys#check-structure 26 o| ##sys#make-structure 8 o| ##sys#structure? 12 o| number? o| * o| + o| ##sys#slot 60 o|contracted procedure: k705 o|contracted procedure: k714 o|contracted procedure: k725 o|contracted procedure: k744 o|contracted procedure: k751 o|contracted procedure: k757 o|contracted procedure: k784 o|contracted procedure: k791 o|contracted procedure: k800 o|contracted procedure: k807 o|contracted procedure: k816 o|contracted procedure: k823 o|contracted procedure: k832 o|contracted procedure: k839 o|contracted procedure: k864 o|contracted procedure: k852 o|contracted procedure: k878 o|contracted procedure: k881 o|contracted procedure: k902 o|contracted procedure: k911 o|contracted procedure: k924 o|contracted procedure: k933 o|contracted procedure: k936 o|contracted procedure: k943 o|contracted procedure: k949 o|contracted procedure: k964 o|contracted procedure: k977 o|contracted procedure: k970 o|contracted procedure: k980 o|contracted procedure: k994 o|contracted procedure: k1147 o|contracted procedure: k1000 o|contracted procedure: k1003 o|contracted procedure: k1006 o|contracted procedure: k1030 o|contracted procedure: k1036 o|contracted procedure: k1046 o|contracted procedure: k1049 o|contracted procedure: k1058 o|contracted procedure: k1077 o|contracted procedure: k1073 o|contracted procedure: k1069 o|contracted procedure: k1083 o|contracted procedure: k1103 o|contracted procedure: k1116 o|contracted procedure: k1119 o|contracted procedure: k1018 o|contracted procedure: k1153 o|contracted procedure: k1160 o|contracted procedure: k1166 o|contracted procedure: k1195 o|contracted procedure: k1172 o|contracted procedure: k1191 o|contracted procedure: k1175 o|contracted procedure: k1184 o|contracted procedure: k1198 o|contracted procedure: k1210 o|contracted procedure: k1213 o|contracted procedure: k1219 o|contracted procedure: k1228 o|contracted procedure: k1243 o|contracted procedure: k1259 o|contracted procedure: k1249 o|contracted procedure: k1252 o|contracted procedure: k1274 o|propagated global variable: ct214 ##sys#current-thread o|contracted procedure: k1317 o|inlining procedure: k1311 o|contracted procedure: k1329 o|contracted procedure: k1338 o|contracted procedure: k1347 o|contracted procedure: k1356 o|contracted procedure: k1362 o|contracted procedure: k1365 o|contracted procedure: k1374 o|contracted procedure: k1380 o|contracted procedure: k1383 o|contracted procedure: k1389 o|contracted procedure: k1392 o|contracted procedure: k1395 o|contracted procedure: k1407 o|contracted procedure: k1410 o|contracted procedure: k1421 o|contracted procedure: k1425 o|contracted procedure: k1434 o|contracted procedure: k1453 o|contracted procedure: k1449 o|contracted procedure: k1445 o|contracted procedure: k1459 o|contracted procedure: k1471 o|contracted procedure: k1474 o|inlining procedure: k1465 o|contracted procedure: k1480 o|contracted procedure: k1483 o|contracted procedure: k1489 o|contracted procedure: k1492 o|contracted procedure: k1495 o|contracted procedure: k1498 o|contracted procedure: k1501 o|contracted procedure: k1507 o|contracted procedure: k1510 o|contracted procedure: k1521 o|contracted procedure: k1517 o|inlining procedure: k1465 o|contracted procedure: k1596 o|contracted procedure: k1560 o|contracted procedure: k1563 o|contracted procedure: k1566 o|contracted procedure: k1577 o|contracted procedure: k1545 o|contracted procedure: k1586 o|contracted procedure: k1589 o|contracted procedure: k1611 o|contracted procedure: k1617 o|contracted procedure: k1810 o|contracted procedure: k1623 o|contracted procedure: k1626 o|contracted procedure: k1635 o|contracted procedure: k1641 o|contracted procedure: k1644 o|contracted procedure: k1647 o|contracted procedure: k1672 o|contracted procedure: k1662 o|contracted procedure: k1675 o|contracted procedure: k1678 o|contracted procedure: k1681 o|contracted procedure: k1716 o|contracted procedure: k1684 o|contracted procedure: k1687 o|contracted procedure: k1693 o|contracted procedure: k1696 o|contracted procedure: k1699 o|contracted procedure: k1719 o|contracted procedure: k1722 o|contracted procedure: k1737 o|contracted procedure: k1743 o|contracted procedure: k1746 o|contracted procedure: k1757 o|contracted procedure: k1728 o|contracted procedure: k1766 o|contracted procedure: k1783 o|contracted procedure: k1787 o|contracted procedure: k1790 o|contracted procedure: k1801 o|contracted procedure: k1818 o|contracted procedure: k1832 o|contracted procedure: k1848 o|contracted procedure: k1857 o|contracted procedure: k1866 o|contracted procedure: k1875 o|contracted procedure: k1878 o|contracted procedure: k1884 o|contracted procedure: k1887 o|contracted procedure: k1890 o|contracted procedure: k1912 o|contracted procedure: k1893 o|contracted procedure: k1899 o|contracted procedure: k1902 o|contracted procedure: k1918 o|contracted procedure: k1941 o|contracted procedure: k1944 o|contracted procedure: k1959 o|contracted procedure: k1969 o|contracted procedure: k1973 o|contracted procedure: k1923 o|contracted procedure: k1929 o|contracted procedure: k1932 o|contracted procedure: k1979 o|contracted procedure: k1985 o|contracted procedure: k1991 o|contracted procedure: k1994 o|contracted procedure: k2000 o|contracted procedure: k2003 o|contracted procedure: k2018 o|contracted procedure: k2029 o|contracted procedure: k2035 o|contracted procedure: k2046 o|contracted procedure: k2052 o|contracted procedure: k2063 o|contracted procedure: k2072 o|contracted procedure: k2105 o|contracted procedure: k2093 o|contracted procedure: k2096 o|contracted procedure: k2114 o|simplifications: ((let . 24)) o|removed binding forms: 180 o|inlining procedure: k874 o|inlining procedure: k1039 o|replaced variables: 53 o|inlining procedure: k1962 o|inlining procedure: k1962 o|simplifications: ((if . 1)) o|replaced variables: 1 o|removed binding forms: 25 o|removed binding forms: 3 o|removed binding forms: 2 o|customizable procedures: (k1997 for-each-loop376391 k1620 k1650 switch263 check264 compute-time-limit k1086 k958) o|calls to known targets: 38 o|identified direct recursive calls: f_1954 2 o|fast box initializations: 4 o|fast global references: 4 o|fast global assignments: 1 o|dropping unused closure argument: f_694 */ /* end of file */ chicken-4.12.0/support.scm0000644000175000017500000016613113052306173015240 0ustar sjamaansjamaan;;;; support.scm - Miscellaneous support code for the CHICKEN compiler ; ; Copyright (c) 2008-2017, 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)) (include "compiler-namespace") (include "tweaks") (include "banner") (declare (not inline compiler-cleanup-hook ##sys#user-read-hook) ) ;;; Debugging and error-handling stuff: (define (compiler-cleanup-hook) #f) (define debugging-chicken '()) (define disabled-warnings '()) ; usage type load var const syntax redef use call ffi (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) (pair? (lset-intersection eq? mode enabled)))) (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 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) (define (emit-syntax-trace-info info cntr) (##core#inline "C_emit_syntax_trace_info" info cntr ##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)))] ) ) ) (define (check-signature var args llist) (define (err) (quit "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 (posq x lst) (let loop ([lst lst] [i 0]) (cond [(null? lst) #f] [(eq? x (car lst)) i] [else (loop (cdr lst) (add1 i))] ) ) ) (define (posv x lst) (let loop ([lst lst] [i 0]) (cond [(null? lst) #f] [(eqv? x (car lst)) i] [else (loop (cdr lst) (add1 i))] ) ) ) (define (stringify x) (cond ((string? x) x) ((symbol? x) (symbol->string x)) (else (sprintf "~a" x)) ) ) (define (symbolify x) (cond ((symbol? x) x) ((string? x) (string->symbol x)) (else (string->symbol (sprintf "~a" x))) ) ) (define (backslashify s) (string-translate* (->string s) '(("\\" . "\\\\")))) (define (uncommentify s) (string-translate* (->string s) '(("*/" . "*_/")))) (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)))) ) ) ) (define string->c-identifier ##sys#string->c-identifier) (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))) ) ) ) ) ) ) ) (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)) (any (lambda (c) (or (char-alphabetic? c) (char-numeric? c) (char=? #\_ c))) (cdr str) ) ) ) ) ) ) (eval-when (load) (define words (foreign-lambda int "C_bytestowords" int)) (define words->bytes (foreign-lambda int "C_wordstobytes" int)) ) (eval-when (eval) (define (words n) (let ([wordsize (##sys#fudge 7)]) (+ (quotient n wordsize) (if (zero? (modulo n wordsize)) 0 1)) ) ) (define (words->bytes n) (* n (##sys#fudge 7)) ) ) (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 "Can not open file ~s" fname)] [else (quit "(~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))))) ;;; 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))) ) ) ) ) (define string->expr (let ([exn? (condition-predicate 'exn)] [exn-msg (condition-property-accessor 'exn 'message)] ) (lambda (str) (handle-exceptions ex (quit "cannot parse expression: ~s [~a]~%" str (if (exn? ex) (exn-msg ex) (->string ex) ) ) (let ([xs (with-input-from-string str (lambda () (unfold eof-object? values (lambda (x) (read)) (read))))]) (cond [(null? xs) '(##core#undefined)] [(null? (cdr xs)) (car xs)] [else `(begin ,@xs)] ) ) ) ) ) ) (define decompose-lambda-list ##sys#decompose-lambda-list) (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 (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)) ) ) ) ) ;;; Database operations: ; ; - 'get' and 'put' shadow the routines in the extras-unit, we use low-level ; symbol-keyed hash-tables here. ; - does currently 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) (when (memq s foldable-bindings) (mark-variable s '##compiler#foldable #t))) standard-bindings) (for-each (lambda (s) (mark-variable s '##compiler#intrinsic 'extended) (when (memq s foldable-bindings) (mark-variable s '##compiler#foldable #t))) extended-bindings) (for-each (lambda (s) (mark-variable s '##compiler#intrinsic 'internal)) internal-bindings)) (set! initial #f)))) (define (get db key prop) (let ((plist (##sys#hash-table-ref db key))) (and plist (let ([a (assq prop plist)]) (and a (##sys#slot a 1)) ) ) ) ) (define (get-all db key . props) (let ((plist (##sys#hash-table-ref db key))) (if plist (filter-map (lambda (prop) (assq prop plist)) props) '() ) ) ) (define (put! db key prop val) (let ([plist (##sys#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 (##sys#hash-table-set! db key (list (cons prop val)))) ) ) ) (define (collect! db key prop val) (let ((plist (##sys#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)))] ) ) (##sys#hash-table-set! db key (list (list prop val)))) ) ) (define (count! db key prop . val) (let ([plist (##sys#hash-table-ref db key)] [n (if (pair? val) (car val) 1)] ) (if plist (let ([a (assq prop plist)]) (cond [a (##sys#setslot a 1 (+ (##sys#slot a 1) n))] [else (##sys#setslot plist 1 (alist-cons prop n (##sys#slot plist 1)))] ) ) (##sys#hash-table-set! db key (list (cons prop val)))) ) ) (define (get-list db key prop) ; returns '() if not set (let ((x (get db key prop))) (or x '()))) ;;; Line-number database management: (define (get-line exp) (get ##sys#line-number-database (car exp) exp) ) (define (get-line-2 exp) (let* ((name (car exp)) (lst (##sys#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) (##sys#hash-table-for-each (lambda (key val) (when val (printf "~S ~S~%" key (map cdr val))) ) ##sys#line-number-database) ) ;;; 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) ) ) (##sys#hash-table-for-each (lambda (sym plist) (let ([val #f] (lval #f) [pval #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-value) (set! pval (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)) ) ) ) (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))) ] [(and pval (not (eq? val 'unknown))) (printf "\tpval=~s" (cons (node-class pval) (node-parameters pval)))] ) (when (pair? refs) (printf "\trefs=~s" (length refs))) (when (pair? csites) (printf "\tcss=~s" (length csites))) (newline) ) ) ) db) ) ) ) ;;; 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 'node c p s) ) ; this kludge is for allowing the inlined `make-node' (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 (map (lambda (v) ;; for temporaries introduced by specialization (if (eq? '#:tmp v) (error "SHOULD NOT HAPPEN") v)) ; OBSOLETE (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#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 (sixth x))) ) ) ) ((##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->qualified-string name))) ) (##sys#symbol->qualified-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 ##core#let_unboxed) (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)) ) ) ) ) ) (define (inline-lambda-bindings llist args body copy? db cfk) (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) ] ) (fold-right (lambda (var val body) (make-node 'let (list var) (list val body)) ) (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) (take rlist argc) largs) ) ) ) ) ) (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 (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)) ) (put! db a 'inline-transient #t) (make-node 'let (list a) (list val1 (walk (second subs) rl2)))) ] [(##core#lambda) (decompose-lambda-list (third params) (lambda (vars argc rest) (let* ((as (map (lambda (v) (let ((a (gensym v))) (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) ) ) (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))))) (define (emit-global-inline-file filename db) (let ((lst '()) (out '())) (##sys#hash-table-for-each (lambda (sym plist) (when (variable-visible? sym) (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 (get db sym 'hidden-refs))) ((case (variable-mark sym '##compiler#inline) ((yes) #t) ((no) #f) (else (< (fourth lparams) inline-max-size) ) ) ) ) (set! lst (cons sym lst)) (set! out (cons (list sym (node->sexpr (cdr val))) out))))) db) (if (null? out) (delete-file* filename) (with-output-to-file filename (lambda () (print "; GENERATED BY CHICKEN " (chicken-version) " FROM " source-filename "\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))))) (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) (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) (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) (##sys#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) (##sys#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) (##sys#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 mod exp val) (when (and (not val) (not exp)) (debugging 'o "hiding nonexported module bindings" sym) (hide-variable sym)))) ;;; 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) ) (##sys#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) ) ) (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) ) ) ) ;;; Pretty-print expressions: (define (pprint-expressions-to-file exps filename) (let ([port (if filename (open-output-file filename) (current-output-port))]) (with-output-to-port port (lambda () (for-each (lambda (x) (pretty-print x) (newline) ) exps) ) ) (when filename (close-output-port port)) ) ) ;;; Create foreign type checking expression: (define foreign-type-check (let ((tmap '((nonnull-u8vector . u8vector) (nonnull-u16vector . u16vector) (nonnull-s8vector . s8vector) (nonnull-s16vector . s16vector) (nonnull-u32vector . u32vector) (nonnull-s32vector . s32vector) (nonnull-f32vector . f32vector) (nonnull-f64vector . f64vector)))) (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))] [(int unsigned-int short unsigned-short 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)]) `(let ([,tmp ,param]) (if ,tmp ,(if unsafe tmp `(##sys#foreign-block-argument ,tmp) ) '#f) ) ) ] [(nonnull-scheme-pointer nonnull-blob) (if unsafe param `(##sys#foreign-block-argument ,param) ) ] ((pointer-vector) (let ([tmp (gensym)]) `(let ([,tmp ,param]) (if ,tmp ,(if unsafe tmp `(##sys#foreign-struct-wrapper-argument 'pointer-vector ,tmp) ) '#f) ) ) ) ((nonnull-pointer-vector) (if unsafe param `(##sys#foreign-struct-wrapper-argument 'pointer-vector ,param) ) ) [(u8vector u16vector s8vector s16vector u32vector s32vector f32vector f64vector) (let ([tmp (gensym)]) `(let ([,tmp ,param]) (if ,tmp ,(if unsafe tmp `(##sys#foreign-struct-wrapper-argument ',t ,tmp) ) '#f) ) ) ] [(nonnull-u8vector nonnull-u16vector nonnull-s8vector nonnull-s16vector nonnull-u32vector nonnull-s32vector nonnull-f32vector nonnull-f64vector) (if unsafe param `(##sys#foreign-struct-wrapper-argument ',(##sys#slot (assq t tmap) 1) ,param) ) ] [(integer long size_t integer32) (if unsafe param `(##sys#foreign-integer-argument ,param))] [(integer64) (if unsafe param `(##sys#foreign-integer64-argument ,param))] [(unsigned-integer unsigned-integer32 unsigned-long) (if unsafe param `(##sys#foreign-unsigned-integer-argument ,param) ) ] [(unsigned-integer64) (if unsafe param `(##sys#foreign-unsigned-integer64-argument ,param) ) ] [(c-pointer c-string-list c-string-list*) (let ([tmp (gensym)]) `(let ([,tmp ,param]) (if ,tmp (##sys#foreign-pointer-argument ,tmp) '#f) ) ) ] [(nonnull-c-pointer) `(##sys#foreign-pointer-argument ,param) ] [(c-string c-string* unsigned-c-string unsigned-c-string*) (let ([tmp (gensym)]) `(let ([,tmp ,param]) (if ,tmp ,(if unsafe `(##sys#make-c-string ,tmp) `(##sys#make-c-string (##sys#foreign-string-argument ,tmp)) ) '#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) (##sys#hash-table-ref foreign-type-table t)) => (lambda (t) (next (if (vector? t) (vector-ref t 0) t)) ) ] [(pair? t) (case (car t) [(ref pointer function c-pointer) (let ([tmp (gensym)]) `(let ([,tmp ,param]) (if ,tmp (##sys#foreign-pointer-argument ,tmp) '#f) ) ) ] [(instance instance-ref) (let ([tmp (gensym)]) `(let ([,tmp ,param]) (if ,tmp (slot-ref ,param 'this) '#f) ) ) ] [(scheme-pointer) (let ([tmp (gensym)]) `(let ([,tmp ,param]) (if ,tmp ,(if unsafe tmp `(##sys#foreign-block-argument ,tmp) ) '#f) ) ) ] [(nonnull-scheme-pointer) (if unsafe param `(##sys#foreign-block-argument ,param) ) ] [(nonnull-instance) `(slot-ref ,param 'this) ] [(const) (repeat (cadr t))] [(enum) (if unsafe param `(##sys#foreign-integer-argument ,param))] [(nonnull-pointer nonnull-c-pointer) `(##sys#foreign-pointer-argument ,param) ] [else param] ) ] [else param] ) ] ) ) ) (lambda () (quit "foreign type `~S' refers to itself" type)) ) ) ) ) ;;; Compute foreign-type conversions: (define (foreign-type-convert-result r t) (or (and-let* ([(symbol? t)] [ft (##sys#hash-table-ref foreign-type-table t)] [(vector? ft)] ) (list (vector-ref ft 2) r) ) r) ) (define (foreign-type-convert-argument a t) (or (and-let* ([(symbol? t)] [ft (##sys#hash-table-ref foreign-type-table t)] [(vector? ft)] ) (list (vector-ref ft 1) a) ) a) ) (define (final-foreign-type t0) (follow-without-loop t0 (lambda (t next) (cond [(and (symbol? t) (##sys#hash-table-ref foreign-type-table t)) => (lambda (t2) (next (if (vector? t2) (vector-ref t2 0) t2)) ) ] [else t] ) ) (lambda () (quit "foreign type `~S' refers to itself" t0)) ) ) ;;; Compute foreign result size: (define (estimate-foreign-result-size 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 size_t unsigned-long integer32 unsigned-integer32) (words->bytes 4) ) ((float double number integer64 unsigned-integer64) (words->bytes 4) ) ; possibly 8-byte aligned 64-bit double (else (cond [(and (symbol? t) (##sys#hash-table-ref foreign-type-table t)) => (lambda (t2) (next (if (vector? t2) (vector-ref t2 0) t2)) ) ] [(pair? t) (case (car t) [(ref nonnull-pointer pointer c-pointer nonnull-c-pointer function instance instance-ref nonnull-instance) (words->bytes 3) ] [else 0] ) ] [else 0] ) ) ) ) (lambda () (quit "foreign type `~S' refers to itself" type)) ) ) (define (estimate-foreign-result-location-size type) (define (err t) (quit "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* size_t nonnull-c-string c-string* nonnull-c-string* c-string-list c-string-list*) (words->bytes 1) ) ((double number integer64 unsigned-integer64) (words->bytes 2) ) (else (cond [(and (symbol? t) (##sys#hash-table-ref foreign-type-table t)) => (lambda (t2) (next (if (vector? t2) (vector-ref t2 0) t2)) ) ] [(pair? t) (case (car t) [(ref nonnull-pointer pointer c-pointer nonnull-c-pointer function scheme-pointer nonnull-scheme-pointer) (words->bytes 1)] [else (err t)] ) ] [else (err t)] ) ) ) ) (lambda () (quit "foreign type `~S' refers to itself" type)) ) ) ;;; Convert result value, if a string: (define (finish-foreign-result type body) (let ((type (##sys#strip-syntax type))) (case type [(c-string unsigned-c-string) `(##sys#peek-c-string ,body '0)] [(nonnull-c-string) `(##sys#peek-nonnull-c-string ,body '0)] [(c-string* unsigned-c-string*) `(##sys#peek-and-free-c-string ,body '0)] [(nonnull-c-string* nonnull-unsigned-c-string*) `(##sys#peek-and-free-nonnull-c-string ,body '0)] [(symbol) `(##sys#intern-symbol (##sys#peek-c-string ,body '0))] [(c-string-list) `(##sys#peek-c-string-list ,body '#f)] [(c-string-list*) `(##sys#peek-and-free-c-string-list ,body '#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) 'this ,tmp) ) ) ) ) ((nonnull-instance) `(make ,(caddr type) 'this ,body) ) (else body)) body)) body)]))) ;;; Translate foreign-type into scrutinizer type: (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 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-f32vector) '(struct f32vector)) ((nonnull-f64vector) '(struct f64vector)) ((integer long size_t integer32 unsigned-integer32 integer64 unsigned-integer64 unsigned-long) 'number) ((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) 'number) ((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) (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) (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) (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) (let ([len (sub1 (string-length str))]) (if (and (> len 0) (memq (string-ref str len) '(#\\ #\/))) (substring str 0 len) str) ) ) (define (chop-extension str) (let ([len (sub1 (string-length str))]) (let loop ([i len]) (cond [(zero? i) str] [(char=? #\. (string-ref str i)) (substring str 0 i)] [else (loop (sub1 i))] ) ) ) ) ;;; 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: (define (make-random-name . prefix) (string->symbol (sprintf "~A-~A~A" (optional prefix (gensym)) (current-seconds) (random 1000) ) ) ) ;;; Register/lookup real names: ; ; - The real-name-table contains the following mappings: ; ; -> ; -> or (define (set-real-name! name rname) (##sys#hash-table-set! real-name-table name rname) ) ;; Arbitrary limit to prevent runoff into exponential behavior (define real-name-max-depth 20) (define (real-name var . db) (define (resolve n) (let ([n2 (##sys#hash-table-ref real-name-table n)]) (if n2 (or (##sys#hash-table-ref real-name-table n2) n2) n) ) ) (let ([rn (resolve var)]) (cond [(not rn) (##sys#symbol->qualified-string var)] [(pair? db) (let ([db (car db)]) (let loop ([nesting (list (##sys#symbol->qualified-string rn))] [depth 0] [container (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) (get db container 'contained-in) ) ) )) (else (string-intersperse (reverse nesting) " in "))) ) ) ] [else (##sys#symbol->qualified-string rn)] ) ) ) (define (real-name2 var db) (and-let* ([rn (##sys#hash-table-ref real-name-table var)]) (real-name rn db) ) ) (define (display-real-name-table) (##sys#hash-table-for-each (lambda (key val) (printf "~S\t~S~%" key val) ) real-name-table) ) (define (source-info->string info) (if (list? info) (let ((ln (car info)) (name (cadr info))) (conc ln ":" (make-string (max 0 (- 4 (string-length ln))) #\space) " " name) ) info)) (define (source-info->line info) (if (list? info) (car info) (and info (->string info)))) (define (call-info params var) (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) (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 (k #f form #f (get-condition-property ex 'exn 'message)) (receive (apply proc args))))) (cond ((node? results) ; TODO: This should not happen (k #f form #f #f)) ((and (= 1 (length results)) (encodeable-literal? (car results))) (debugging 'o "folded constant expression" form) (k #t form (car results) #f)) ((= 1 (length results)) ; not encodeable; don't fold (k #f form #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))))) ;; 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) (zero? (arithmetic-shift n -24))) (cond ((immediate? lit)) ((fixnum? lit)) ((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) (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) (when (and (eq? 'list-info class) (symbol? (car data))) (##sys#hash-table-set! ##sys#line-number-database (car data) (alist-cons data (conc ##sys#current-source-filename ":" val) (or (##sys#hash-table-ref ##sys#line-number-database (car data)) '() ) ) ) ) data) (define (read/source-info in) (##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 "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) (and (fixnum? x) (##sys#fudge 3) ; 64 bit? (or (fx> x 1073741823) (fx< x -1073741824) ) ) ) ;;; symbol visibility and other global variable properties (define (hide-variable sym) (mark-variable sym '##compiler#visibility 'hidden)) (define (export-variable sym) (mark-variable sym '##compiler#visibility 'exported)) (define (variable-hidden? sym) (eq? (##sys#get sym '##compiler#visibility) 'hidden)) (define (variable-visible? sym) (let ((p (##sys#get sym '##compiler#visibility))) (case p ((hidden) #f) ((exported) #t) (else (not block-compilation))))) (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)) (define foldable? (cut variable-mark <> '##compiler#foldable)) ;;; Load support files (define (load-identifier-database name) (and-let* ((rp (repository-path)) (dbfile (file-exists? (make-pathname rp name)))) (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))) ))) (read-file dbfile)))) ;;; Print version/usage information: (define (print-version #!optional b) (when b (print* +banner+)) (print (chicken-version #t)) ) (define (print-usage) (print-version) (newline) (display #<= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k206 in k203 in k200 in k197 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_208,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {"f_199:utils_2eimport_2escm",(void*)f_199}, {"toplevel:utils_2eimport_2escm",(void*)C_toplevel}, {"f_202:utils_2eimport_2escm",(void*)f_202}, {"f_205:utils_2eimport_2escm",(void*)f_205}, {"f_208:utils_2eimport_2escm",(void*)f_208}, {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-4.12.0/expand.c0000644000175000017500000313743113052306302014441 0ustar sjamaansjamaan/* Generated from expand.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:17 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: expand.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file expand.c unit: expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); static C_TLS C_word lf[358]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,14),40,108,111,111,107,117,112,32,115,101,50,52,55,41,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,26),40,109,97,99,114,111,45,97,108,105,97,115,32,118,97,114,50,54,50,32,115,101,50,54,51,41,0,0,0,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,51,51,49,32,105,51,51,51,41}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,11),40,119,97,108,107,32,120,51,48,50,41,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,21),40,115,116,114,105,112,45,115,121,110,116,97,120,32,101,120,112,50,57,57,41,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,29),40,109,97,112,45,108,111,111,112,52,49,55,32,103,52,50,57,52,51,57,32,103,52,51,48,52,52,48,41,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,34),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,56,48,32,103,51,56,55,52,48,56,32,103,51,56,56,52,48,57,41,0,0,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,51,53,52,32,103,51,54,54,51,55,50,41,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,101,120,116,101,110,100,45,115,101,32,115,101,51,52,52,32,118,97,114,115,51,52,53,32,46,32,116,109,112,51,52,51,51,52,54,41,0,0,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,11),40,103,52,54,52,32,97,52,54,54,41,0,0,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,115,101,52,54,56,41,0,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,49,32,115,121,109,52,53,51,41,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,103,108,111,98,97,108,105,122,101,32,115,121,109,52,53,48,32,115,101,52,53,49,41,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,101,110,115,117,114,101,45,116,114,97,110,115,102,111,114,109,101,114,32,116,52,56,52,32,46,32,116,109,112,52,56,51,52,56,53,41,0,0,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,6),40,103,53,48,55,41,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,61),40,35,35,115,121,115,35,101,120,116,101,110,100,45,109,97,99,114,111,45,101,110,118,105,114,111,110,109,101,110,116,32,110,97,109,101,52,57,54,32,115,101,52,57,55,32,116,114,97,110,115,102,111,114,109,101,114,52,57,56,41,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,99,111,112,121,45,109,97,99,114,111,32,111,108,100,53,49,53,32,110,101,119,53,49,54,41}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,109,97,99,114,111,63,32,115,121,109,53,50,51,32,46,32,116,109,112,53,50,50,53,50,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,109,101,53,51,56,41,0,0,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,117,110,114,101,103,105,115,116,101,114,45,109,97,99,114,111,32,110,97,109,101,53,51,54,41}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,117,110,100,101,102,105,110,101,45,109,97,99,114,111,33,32,110,97,109,101,53,52,54,41,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,12),40,99,111,112,121,32,112,115,53,55,50,41,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,7),40,97,52,51,53,57,41,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,13),40,97,52,51,53,51,32,101,120,53,54,57,41,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,17),40,102,95,52,52,56,56,32,105,110,112,117,116,53,56,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,7),40,97,52,52,57,51,41,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,7),40,97,52,52,57,56,41,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,7),40,97,52,53,48,52,41,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,10),40,116,109,112,49,51,48,56,52,41,0,0,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,7),40,97,52,53,49,55,41,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,21),40,116,109,112,50,51,48,56,53,32,97,114,103,115,53,54,51,53,57,53,41,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,7),40,97,52,52,53,52,41,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,15),40,97,52,51,52,55,32,107,53,54,50,53,54,56,41,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,52),40,99,97,108,108,45,104,97,110,100,108,101,114,32,110,97,109,101,53,53,51,32,104,97,110,100,108,101,114,53,53,52,32,101,120,112,53,53,53,32,115,101,53,53,54,32,99,115,53,53,55,41,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,31),40,101,120,112,97,110,100,32,104,101,97,100,53,57,56,32,101,120,112,53,57,57,32,109,100,101,102,54,48,48,41,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,54,54,50,32,103,54,55,52,54,56,48,41,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,54,51,53,32,103,54,52,55,54,53,52,41,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,12),40,103,54,57,53,32,99,115,54,57,55,41,0,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,101,120,112,54,48,57,41,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,101,120,112,97,110,100,45,48,32,101,120,112,53,52,56,32,100,115,101,53,52,57,32,99,115,63,53,53,48,41,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,7),40,97,52,56,53,48,41,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,32),40,97,52,56,53,54,32,101,120,112,50,55,50,57,55,51,48,55,51,51,32,109,55,51,49,55,51,50,55,51,52,41}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,101,120,112,55,50,56,41,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,27),40,101,120,112,97,110,100,32,101,120,112,55,49,53,32,46,32,116,109,112,55,49,52,55,49,54,41,0,0,0,0,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,108,108,105,115,116,55,52,50,41,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,101,120,116,101,110,100,101,100,45,108,97,109,98,100,97,45,108,105,115,116,63,32,108,108,105,115,116,55,52,48,41,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,12),40,101,114,114,32,109,115,103,55,54,53,41,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,11),40,103,55,57,54,32,107,56,48,55,41,0,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,55,57,48,32,103,56,48,50,56,49,57,41,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,44),40,108,111,111,112,32,109,111,100,101,55,55,53,32,114,101,113,55,55,54,32,111,112,116,55,55,55,32,107,101,121,55,55,56,32,108,108,105,115,116,55,55,57,41,0,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,67),40,35,35,115,121,115,35,101,120,112,97,110,100,45,101,120,116,101,110,100,101,100,45,108,97,109,98,100,97,45,108,105,115,116,32,108,108,105,115,116,48,55,53,57,32,98,111,100,121,55,54,48,32,101,114,114,104,55,54,49,32,115,101,55,54,50,41,0,0,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,100,101,102,106,97,109,45,101,114,114,111,114,32,102,111,114,109,56,56,55,41,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,29),40,109,97,112,45,108,111,111,112,57,50,55,32,103,57,51,57,57,53,50,32,103,57,52,48,57,53,51,41,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,56,57,56,32,103,57,49,48,57,49,54,41,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,31),40,97,53,53,53,53,32,118,97,114,115,56,57,49,32,97,114,103,99,56,57,50,32,114,101,115,116,56,57,51,41,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,60),40,35,35,115,121,115,35,101,120,112,97,110,100,45,109,117,108,116,105,112,108,101,45,118,97,108,117,101,115,45,97,115,115,105,103,110,109,101,110,116,32,102,111,114,109,97,108,115,56,56,57,32,101,120,112,114,56,57,48,41,0,0,0,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,12),40,99,111,109,112,32,105,100,57,57,51,41,0,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,25),40,108,111,111,112,32,98,111,100,121,50,49,48,49,48,32,101,120,112,115,49,48,49,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,44),40,109,97,112,45,108,111,111,112,49,48,55,52,32,103,49,48,56,54,49,49,48,50,32,103,49,48,56,55,49,49,48,51,32,103,49,48,56,56,49,49,48,52,41,0,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,48,50,54,32,103,49,48,51,56,49,48,54,54,41}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,25),40,97,54,48,56,49,32,97,49,48,54,48,32,95,49,48,54,49,32,95,49,48,54,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,31),40,102,111,108,100,108,49,48,52,57,32,103,49,48,53,48,49,48,53,52,32,103,49,48,52,56,49,48,53,53,41,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,43),40,102,105,110,105,32,118,97,114,115,49,48,48,52,32,118,97,108,115,49,48,48,53,32,109,118,97,114,115,49,48,48,54,32,98,111,100,121,49,48,48,55,41,0,0,0,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,49,51,52,32,103,49,49,52,54,49,49,53,50,41}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,33),40,108,111,111,112,32,98,111,100,121,49,49,50,50,32,100,101,102,115,49,49,50,51,32,100,111,110,101,49,49,50,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,50),40,102,105,110,105,47,115,121,110,116,97,120,32,118,97,114,115,49,49,49,55,32,118,97,108,115,49,49,49,56,32,109,118,97,114,115,49,49,49,57,32,98,111,100,121,49,49,50,48,41,0,0,0,0,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,50,32,120,49,49,56,56,41,0,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,43),40,108,111,111,112,32,98,111,100,121,49,49,55,50,32,118,97,114,115,49,49,55,51,32,118,97,108,115,49,49,55,52,32,109,118,97,114,115,49,49,55,53,41,0,0,0,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,17),40,101,120,112,97,110,100,32,98,111,100,121,49,49,55,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,45),40,35,35,115,121,115,35,99,97,110,111,110,105,99,97,108,105,122,101,45,98,111,100,121,32,98,111,100,121,57,55,54,32,46,32,116,109,112,57,55,53,57,55,55,41,0,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,7),40,103,49,50,51,48,41,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,19),40,109,119,97,108,107,32,120,49,50,49,56,32,112,49,50,49,57,41,0,0,0,0,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,43),40,109,97,116,99,104,45,101,120,112,114,101,115,115,105,111,110,32,101,120,112,49,50,49,50,32,112,97,116,49,50,49,51,32,118,97,114,115,49,50,49,52,41,0,0,0,0,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,24),40,108,111,111,112,32,104,101,97,100,49,50,52,50,32,98,111,100,121,49,50,52,51,41}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,54),40,35,35,115,121,115,35,101,120,112,97,110,100,45,99,117,114,114,105,101,100,45,100,101,102,105,110,101,32,104,101,97,100,49,50,51,55,32,98,111,100,121,49,50,51,56,32,115,101,49,50,51,57,41,0,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,25),40,115,121,110,116,97,120,45,101,114,114,111,114,32,46,32,97,114,103,115,49,50,53,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,16),40,111,117,116,115,116,114,32,115,116,114,49,50,55,54,41}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,108,115,116,49,50,57,53,41,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,100,101,102,115,49,50,54,53,41,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,99,120,49,50,55,56,41,0,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,44),40,35,35,115,121,115,35,115,121,110,116,97,120,45,101,114,114,111,114,47,99,111,110,116,101,120,116,32,109,115,103,49,50,54,48,32,97,114,103,49,50,54,49,41,0,0,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,39),40,35,35,115,121,115,35,115,121,110,116,97,120,45,114,117,108,101,115,45,109,105,115,109,97,116,99,104,32,105,110,112,117,116,49,51,48,56,41,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,7),40,103,49,51,50,49,41,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,26),40,103,101,116,45,108,105,110,101,45,110,117,109,98,101,114,32,115,101,120,112,49,51,49,48,41,0,0,0,0,0,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,29),40,116,101,115,116,32,120,49,51,52,57,32,112,114,101,100,49,51,53,48,32,109,115,103,49,51,53,49,41,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,13),40,101,114,114,32,109,115,103,49,51,53,50,41,0,0,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,120,49,51,54,48,41,0,0,0,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,20),40,108,97,109,98,100,97,45,108,105,115,116,63,32,120,49,51,53,53,41,0,0,0,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,20),40,112,114,111,112,101,114,45,108,105,115,116,63,32,120,49,51,55,50,41,0,0,0,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,24),40,100,111,108,111,111,112,49,51,57,56,32,120,49,52,48,48,32,110,49,52,48,49,41}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,13),40,97,55,51,54,49,32,121,49,52,49,52,41,0,0,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,18),40,119,97,108,107,32,120,49,51,56,52,32,112,49,51,56,53,41,0,0,0,0,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,57),40,35,35,115,121,115,35,99,104,101,99,107,45,115,121,110,116,97,120,32,105,100,49,51,51,49,32,101,120,112,49,51,51,50,32,112,97,116,49,51,51,51,32,46,32,116,109,112,49,51,51,48,49,51,51,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,13),40,103,49,52,53,50,32,97,49,52,53,52,41,0,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,16),40,114,101,110,97,109,101,32,115,121,109,49,52,51,56,41}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,24),40,100,111,108,111,111,112,49,53,48,53,32,105,49,53,48,55,32,102,49,53,48,56,41}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,7),40,103,49,53,54,48,41,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,7),40,103,49,53,54,57,41,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,23),40,99,111,109,112,97,114,101,32,115,49,49,52,57,51,32,115,50,49,52,57,52,41,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,20),40,97,115,115,113,45,114,101,118,101,114,115,101,32,108,49,53,56,51,41,0,0,0,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,23),40,109,105,114,114,111,114,45,114,101,110,97,109,101,32,115,121,109,49,53,56,56,41,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,31),40,97,55,52,55,55,32,102,111,114,109,49,52,50,55,32,115,101,49,52,50,56,32,100,115,101,49,52,50,57,41,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,59),40,109,97,107,101,45,101,114,47,105,114,45,116,114,97,110,115,102,111,114,109,101,114,32,104,97,110,100,108,101,114,49,52,50,53,32,101,120,112,108,105,99,105,116,45,114,101,110,97,109,105,110,103,63,49,52,50,54,41,0,0,0,0,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,34),40,101,114,45,109,97,99,114,111,45,116,114,97,110,115,102,111,114,109,101,114,32,104,97,110,100,108,101,114,49,54,51,52,41,0,0,0,0,0,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,34),40,105,114,45,109,97,99,114,111,45,116,114,97,110,115,102,111,114,109,101,114,32,104,97,110,100,108,101,114,49,54,51,54,41,0,0,0,0,0,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,33),40,108,111,111,112,32,98,115,49,55,56,52,32,115,101,101,110,49,55,56,53,32,119,97,114,110,101,100,49,55,56,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,59),40,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,49,55,56,48,32,102,111,114,109,49,55,56,49,32,108,111,99,49,55,56,50,41,0,0,0,0,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,14),40,102,95,56,51,50,54,32,120,50,52,53,55,41,0,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,52,54,52,32,103,50,52,55,54,50,52,56,50,41}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,18),40,102,95,56,51,51,50,32,114,117,108,101,115,50,52,53,56,41,0,0,0,0,0,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,13),40,97,56,52,54,51,32,120,50,52,57,54,41,0,0,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,17),40,102,95,56,52,50,54,32,114,117,108,101,50,52,56,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,48),40,102,95,56,52,57,50,32,105,110,112,117,116,50,52,57,55,32,112,97,116,116,101,114,110,50,52,57,56,32,115,101,101,110,45,115,101,103,109,101,110,116,63,50,52,57,57,41}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,30),40,102,95,56,54,55,51,32,105,110,112,117,116,50,53,51,55,32,112,97,116,116,101,114,110,50,53,51,56,41,0,0}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,13),40,97,56,56,53,56,32,120,50,53,53,57,41,0,0,0}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,57),40,102,95,56,56,48,48,32,112,97,116,116,101,114,110,50,53,52,54,32,112,97,116,104,50,53,52,55,32,109,97,112,105,116,50,53,52,56,32,115,101,101,110,45,115,101,103,109,101,110,116,63,50,53,52,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,26),40,100,111,108,111,111,112,50,53,57,56,32,100,50,54,48,48,32,103,101,110,50,54,48,49,41,0,0,0,0,0,0}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,37),40,102,95,56,57,52,48,32,116,101,109,112,108,97,116,101,50,53,55,53,32,100,105,109,50,53,55,54,32,101,110,118,50,53,55,55,41,0,0,0}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,55),40,102,95,57,49,51,50,32,112,97,116,116,101,114,110,50,54,49,56,32,100,105,109,50,54,49,57,32,118,97,114,115,50,54,50,48,32,115,101,101,110,45,115,101,103,109,101,110,116,63,50,54,50,49,41,0}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,46),40,102,95,57,50,48,57,32,116,101,109,112,108,97,116,101,50,54,50,54,32,100,105,109,50,54,50,55,32,101,110,118,50,54,50,56,32,102,114,101,101,50,54,50,57,41,0,0}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,32),40,102,95,57,50,57,56,32,112,50,54,51,55,32,115,101,101,110,45,115,101,103,109,101,110,116,63,50,54,51,56,41}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,20),40,102,95,57,51,50,54,32,112,97,116,116,101,114,110,50,54,52,52,41,0,0,0,0}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,20),40,102,95,57,51,53,48,32,112,97,116,116,101,114,110,50,54,52,55,41,0,0,0,0}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,32,112,97,116,116,101,114,110,50,54,53,48,41,0,0,0,0,0,0}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,20),40,102,95,57,51,55,48,32,112,97,116,116,101,114,110,50,54,52,56,41,0,0,0,0}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,79),40,35,35,115,121,115,35,112,114,111,99,101,115,115,45,115,121,110,116,97,120,45,114,117,108,101,115,32,101,108,108,105,112,115,105,115,50,52,48,48,32,114,117,108,101,115,50,52,48,49,32,115,117,98,107,101,121,119,111,114,100,115,50,52,48,50,32,114,50,52,48,51,32,99,50,52,48,52,41,0}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,109,101,50,55,50,48,41,0,0,0}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,109,97,99,114,111,45,115,117,98,115,101,116,32,109,101,48,50,55,49,49,32,46,32,116,109,112,50,55,49,48,50,55,49,50,41,0,0,0,0,0,0}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,16),40,103,50,55,52,49,32,115,100,101,102,50,55,53,48,41}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,55,52,48,32,103,50,55,52,55,50,55,53,50,41,0,0,0}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,52),40,35,35,115,121,115,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,50,55,51,48,32,46,32,116,109,112,50,55,50,57,50,55,51,49,41,0,0,0,0}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,27),40,97,57,53,53,55,32,101,120,112,50,51,56,56,32,114,50,51,56,57,32,99,50,51,57,48,41,0,0,0,0,0}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,25),40,97,57,53,57,51,32,120,50,51,56,50,32,114,50,51,56,51,32,99,50,51,56,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,25),40,97,57,54,50,48,32,120,50,51,55,49,32,114,50,51,55,50,32,99,50,51,55,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,25),40,97,57,54,53,48,32,120,50,51,51,51,32,114,50,51,51,52,32,99,50,51,51,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,25),40,97,57,56,51,48,32,120,50,51,50,55,32,114,50,51,50,56,32,99,50,51,50,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,25),40,97,57,56,53,54,32,120,50,51,50,48,32,114,50,51,50,49,32,99,50,51,50,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,25),40,97,57,56,54,57,32,120,50,51,49,51,32,114,50,51,49,52,32,99,50,51,49,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,11),40,101,114,114,32,120,50,50,51,55,41,0,0,0,0,0}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,13),40,116,101,115,116,32,102,120,50,50,51,56,41,0,0,0}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,50,55,49,32,103,50,50,56,51,50,50,57,48,41}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,16),40,101,120,112,97,110,100,32,99,108,115,50,50,54,52,41}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,28),40,97,57,56,56,50,32,102,111,114,109,50,50,50,55,32,114,50,50,50,56,32,99,50,50,50,57,41,0,0,0,0}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,29),40,97,49,48,49,55,52,32,102,111,114,109,50,50,50,48,32,114,50,50,50,49,32,99,50,50,50,50,41,0,0,0}; static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,29),40,97,49,48,49,57,53,32,102,111,114,109,50,50,49,51,32,114,50,50,49,52,32,99,50,50,49,53,41,0,0,0}; static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,18),40,119,97,108,107,32,120,50,49,51,56,32,110,50,49,51,57,41,0,0,0,0,0,0}; static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,19),40,119,97,108,107,49,32,120,50,49,52,48,32,110,50,49,52,49,41,0,0,0,0,0}; static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,15),40,103,50,49,57,49,32,101,110,118,50,49,57,51,41,0}; static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,15),40,103,50,49,57,56,32,101,110,118,50,50,48,48,41,0}; static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,16),40,115,105,109,112,108,105,102,121,32,120,50,49,56,52,41}; static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,29),40,97,49,48,50,50,56,32,102,111,114,109,50,49,50,57,32,114,50,49,51,48,32,99,50,49,51,49,41,0,0,0}; static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,49,48,51,32,103,50,49,49,53,50,49,50,50,41}; static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,48,54,57,32,103,50,48,56,49,50,48,56,56,41}; static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,29),40,97,49,48,53,49,57,32,102,111,114,109,50,48,53,55,32,114,50,48,53,56,32,99,50,48,53,57,41,0,0,0}; static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,15),40,101,120,112,97,110,100,32,98,115,50,48,52,56,41,0}; static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,29),40,97,49,48,55,49,53,32,102,111,114,109,50,48,52,50,32,114,50,48,52,51,32,99,50,48,52,52,41,0,0,0}; static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,7),40,103,50,48,49,48,41,0}; static C_char C_TLS li158[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,48,48,52,32,103,50,48,49,54,50,48,50,54,41}; static C_char C_TLS li159[] C_aligned={C_lihdr(0,0,30),40,101,120,112,97,110,100,32,99,108,97,117,115,101,115,49,57,56,49,32,101,108,115,101,63,49,57,56,50,41,0,0}; static C_char C_TLS li160[] C_aligned={C_lihdr(0,0,29),40,97,49,48,55,54,54,32,102,111,114,109,49,57,54,55,32,114,49,57,54,56,32,99,49,57,54,57,41,0,0,0}; static C_char C_TLS li161[] C_aligned={C_lihdr(0,0,30),40,101,120,112,97,110,100,32,99,108,97,117,115,101,115,49,56,56,54,32,101,108,115,101,63,49,56,56,55,41,0,0}; static C_char C_TLS li162[] C_aligned={C_lihdr(0,0,29),40,97,49,48,57,57,49,32,102,111,114,109,49,56,55,56,32,114,49,56,55,57,32,99,49,56,56,48,41,0,0,0}; static C_char C_TLS li163[] C_aligned={C_lihdr(0,0,29),40,97,49,49,51,54,51,32,102,111,114,109,49,56,54,56,32,114,49,56,54,57,32,99,49,56,55,48,41,0,0,0}; static C_char C_TLS li164[] C_aligned={C_lihdr(0,0,29),40,97,49,49,52,49,53,32,102,111,114,109,49,56,53,57,32,114,49,56,54,48,32,99,49,56,54,49,41,0,0,0}; static C_char C_TLS li165[] C_aligned={C_lihdr(0,0,26),40,97,49,49,52,53,50,32,120,49,56,52,51,32,114,49,56,52,52,32,99,49,56,52,53,41,0,0,0,0,0,0}; static C_char C_TLS li166[] C_aligned={C_lihdr(0,0,26),40,97,49,49,52,57,54,32,120,49,56,51,53,32,114,49,56,51,54,32,99,49,56,51,55,41,0,0,0,0,0,0}; static C_char C_TLS li167[] C_aligned={C_lihdr(0,0,26),40,97,49,49,53,49,56,32,120,49,56,50,55,32,114,49,56,50,56,32,99,49,56,50,57,41,0,0,0,0,0,0}; static C_char C_TLS li168[] C_aligned={C_lihdr(0,0,26),40,97,49,49,53,52,48,32,120,49,56,49,57,32,114,49,56,50,48,32,99,49,56,50,49,41,0,0,0,0,0,0}; static C_char C_TLS li169[] C_aligned={C_lihdr(0,0,26),40,97,49,49,53,54,50,32,120,49,56,49,49,32,114,49,56,49,50,32,99,49,56,49,51,41,0,0,0,0,0,0}; static C_char C_TLS li170[] C_aligned={C_lihdr(0,0,26),40,97,49,49,53,56,52,32,120,49,55,57,55,32,114,49,55,57,56,32,99,49,55,57,57,41,0,0,0,0,0,0}; static C_char C_TLS li171[] C_aligned={C_lihdr(0,0,29),40,97,49,49,54,51,54,32,102,111,114,109,49,55,52,57,32,114,49,55,53,48,32,99,49,55,53,49,41,0,0,0}; static C_char C_TLS li172[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,102,111,114,109,49,55,50,49,41,0}; static C_char C_TLS li173[] C_aligned={C_lihdr(0,0,26),40,97,49,49,55,51,57,32,120,49,55,49,55,32,114,49,55,49,56,32,99,49,55,49,57,41,0,0,0,0,0,0}; static C_char C_TLS li174[] C_aligned={C_lihdr(0,0,26),40,97,49,49,56,53,56,32,120,49,55,49,48,32,114,49,55,49,49,32,99,49,55,49,50,41,0,0,0,0,0,0}; static C_char C_TLS li175[] C_aligned={C_lihdr(0,0,26),40,97,49,49,56,55,53,32,120,49,55,48,51,32,114,49,55,48,52,32,99,49,55,48,53,41,0,0,0,0,0,0}; static C_char C_TLS li176[] C_aligned={C_lihdr(0,0,26),40,97,49,49,56,57,50,32,120,49,54,57,54,32,114,49,54,57,55,32,99,49,54,57,56,41,0,0,0,0,0,0}; static C_char C_TLS li177[] C_aligned={C_lihdr(0,0,26),40,97,49,49,57,48,57,32,120,49,54,56,57,32,114,49,54,57,48,32,99,49,54,57,49,41,0,0,0,0,0,0}; static C_char C_TLS li178[] C_aligned={C_lihdr(0,0,26),40,97,49,49,57,50,54,32,120,49,54,56,50,32,114,49,54,56,51,32,99,49,54,56,52,41,0,0,0,0,0,0}; static C_char C_TLS li179[] C_aligned={C_lihdr(0,0,50),40,97,49,49,57,52,51,32,103,49,54,55,48,49,54,55,49,49,54,55,54,32,103,49,54,55,50,49,54,55,51,49,54,55,55,32,103,49,54,55,52,49,54,55,53,49,54,55,56,41,0,0,0,0,0,0}; static C_char C_TLS li180[] C_aligned={C_lihdr(0,0,50),40,97,49,49,57,53,51,32,103,49,54,53,54,49,54,53,55,49,54,54,50,32,103,49,54,53,56,49,54,53,57,49,54,54,51,32,103,49,54,54,48,49,54,54,49,49,54,54,52,41,0,0,0,0,0,0}; static C_char C_TLS li181[] C_aligned={C_lihdr(0,0,50),40,97,49,49,57,54,51,32,103,49,54,52,50,49,54,52,51,49,54,52,56,32,103,49,54,52,52,49,54,52,53,49,54,52,57,32,103,49,54,52,54,49,54,52,55,49,54,53,48,41,0,0,0,0,0,0}; static C_char C_TLS li182[] 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_7069) static void C_ccall f_7069(C_word c,C_word *av) C_noret; C_noret_decl(f_6410) static void C_ccall f_6410(C_word c,C_word *av) C_noret; C_noret_decl(f_4919) static void C_fcall f_4919(C_word t0,C_word t1) 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_fcall f_9003(C_word t0,C_word t1) C_noret; C_noret_decl(f_6417) static void C_ccall f_6417(C_word c,C_word *av) C_noret; C_noret_decl(f_7055) static void C_ccall f_7055(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_11775) static void C_ccall f_11775(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_6288) static void C_fcall f_6288(C_word t0,C_word t1,C_word t2) 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_11914) static void C_ccall f_11914(C_word c,C_word *av) C_noret; C_noret_decl(f_9050) static void C_fcall f_9050(C_word t0,C_word t1) 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_4388) static void C_fcall f_4388(C_word t0,C_word t1,C_word t2) 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_11414) static void C_ccall f_11414(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_5852) static void C_ccall f_5852(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_noret; C_noret_decl(f_11447) static void C_ccall f_11447(C_word c,C_word *av) C_noret; C_noret_decl(f_10730) static void C_fcall f_10730(C_word t0,C_word t1,C_word t2) 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_10720) static void C_ccall f_10720(C_word c,C_word *av) C_noret; C_noret_decl(f_11954) static void C_ccall f_11954(C_word c,C_word *av) C_noret; C_noret_decl(f_4620) static void C_ccall f_4620(C_word c,C_word *av) C_noret; C_noret_decl(f_11942) static void C_ccall f_11942(C_word c,C_word *av) C_noret; C_noret_decl(f_9023) static void C_ccall f_9023(C_word c,C_word *av) C_noret; C_noret_decl(f_10714) static void C_ccall f_10714(C_word c,C_word *av) C_noret; C_noret_decl(f_11944) static void C_ccall f_11944(C_word c,C_word *av) C_noret; C_noret_decl(f_5810) static void C_fcall f_5810(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_9029) static void C_fcall f_9029(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10716) static void C_ccall f_10716(C_word c,C_word *av) C_noret; C_noret_decl(f_9027) static void C_ccall f_9027(C_word c,C_word *av) C_noret; C_noret_decl(f_5193) static void C_ccall f_5193(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_5195) static void C_fcall f_5195(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5187) static void C_ccall f_5187(C_word c,C_word *av) C_noret; C_noret_decl(f_11931) static void C_ccall f_11931(C_word c,C_word *av) C_noret; C_noret_decl(f_11406) static void C_ccall f_11406(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_5841) static void C_fcall f_5841(C_word t0,C_word t1) C_noret; C_noret_decl(f_5848) static void C_ccall f_5848(C_word c,C_word *av) C_noret; C_noret_decl(f_5183) static void C_ccall f_5183(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_11927) static void C_ccall f_11927(C_word c,C_word *av) C_noret; C_noret_decl(f_11925) static void C_ccall f_11925(C_word c,C_word *av) 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_9944) static void C_ccall f_9944(C_word c,C_word *av) C_noret; C_noret_decl(f_10765) static void C_ccall f_10765(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_10767) static void C_ccall f_10767(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_10755) static void C_ccall f_10755(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_11362) static void C_ccall f_11362(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_10489) static void C_ccall f_10489(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_9901) static void C_fcall f_9901(C_word t0,C_word t1,C_word t2) 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_7478) static void C_ccall f_7478(C_word c,C_word *av) C_noret; C_noret_decl(f_9019) static void C_ccall f_9019(C_word c,C_word *av) C_noret; C_noret_decl(f_9281) static void C_ccall f_9281(C_word c,C_word *av) C_noret; C_noret_decl(f_7921) static void C_ccall f_7921(C_word c,C_word *av) C_noret; C_noret_decl(f_11453) static void C_ccall f_11453(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_11451) static void C_ccall f_11451(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_10791) static void C_ccall f_10791(C_word c,C_word *av) C_noret; C_noret_decl(f_7917) static void C_ccall f_7917(C_word c,C_word *av) C_noret; C_noret_decl(f_11312) static void C_ccall f_11312(C_word c,C_word *av) C_noret; C_noret_decl(f_6135) static void C_fcall f_6135(C_word t0,C_word t1,C_word t2) 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_6133) static void C_ccall f_6133(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_7903) static void C_fcall f_7903(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11300) static void C_ccall f_11300(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_5692) static void C_fcall f_5692(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8462) static void C_ccall f_8462(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_8458) static void C_ccall f_8458(C_word c,C_word *av) C_noret; C_noret_decl(f_8433) static void C_fcall f_8433(C_word t0,C_word t1) 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_8464) static void C_ccall f_8464(C_word c,C_word *av) C_noret; C_noret_decl(f_8469) static void C_ccall f_8469(C_word c,C_word *av) C_noret; C_noret_decl(f_8165) static void C_ccall f_8165(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_10400) static void C_ccall f_10400(C_word c,C_word *av) C_noret; C_noret_decl(f_5993) static void C_ccall f_5993(C_word c,C_word *av) C_noret; C_noret_decl(f_9982) static void C_ccall f_9982(C_word c,C_word *av) C_noret; C_noret_decl(f_9911) static void C_fcall f_9911(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6108) static void C_fcall f_6108(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_6106) static void C_ccall f_6106(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_9925) static void C_ccall f_9925(C_word c,C_word *av) C_noret; C_noret_decl(f_10788) static void C_ccall f_10788(C_word c,C_word *av) C_noret; C_noret_decl(f_10785) static void C_ccall f_10785(C_word c,C_word *av) 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_10782) static void C_ccall f_10782(C_word c,C_word *av) C_noret; C_noret_decl(f_8129) static void C_ccall f_8129(C_word c,C_word *av) C_noret; C_noret_decl(f_10414) static void C_fcall f_10414(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9831) static void C_ccall f_9831(C_word c,C_word *av) 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_10779) static void C_ccall f_10779(C_word c,C_word *av) C_noret; C_noret_decl(f_10771) static void C_ccall f_10771(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_5626) static void C_fcall f_5626(C_word t0,C_word t1,C_word t2,C_word t3) 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_8302) static void C_ccall f_8302(C_word c,C_word *av) C_noret; C_noret_decl(f_8109) static void C_fcall f_8109(C_word t0,C_word t1) C_noret; C_noret_decl(f_11891) static void C_ccall f_11891(C_word c,C_word *av) 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_10422) static void C_fcall f_10422(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9821) static void C_ccall f_9821(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_9829) static void C_ccall f_9829(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_9298) static void C_ccall f_9298(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_4416) static void C_ccall f_4416(C_word c,C_word *av) C_noret; C_noret_decl(f_9870) static void C_ccall f_9870(C_word c,C_word *av) C_noret; C_noret_decl(f_11874) static void C_ccall f_11874(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_8859) static void C_ccall f_8859(C_word c,C_word *av) 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_4405) static void C_fcall f_4405(C_word t0,C_word t1) 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_11876) static void C_ccall f_11876(C_word c,C_word *av) C_noret; C_noret_decl(f_6022) static void C_fcall f_6022(C_word t0,C_word t1,C_word t2) 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_9594) static void C_ccall f_9594(C_word c,C_word *av) C_noret; C_noret_decl(f_9855) static void C_ccall f_9855(C_word c,C_word *av) C_noret; C_noret_decl(f_9857) static void C_ccall f_9857(C_word c,C_word *av) C_noret; C_noret_decl(f_6182) static void C_fcall f_6182(C_word t0,C_word t1) C_noret; C_noret_decl(f_9598) static void C_ccall f_9598(C_word c,C_word *av) C_noret; C_noret_decl(f_9868) static void C_ccall f_9868(C_word c,C_word *av) C_noret; C_noret_decl(f_6082) static void C_ccall f_6082(C_word c,C_word *av) C_noret; C_noret_decl(f_6080) static void C_ccall f_6080(C_word c,C_word *av) C_noret; C_noret_decl(f_6086) static void C_ccall f_6086(C_word c,C_word *av) C_noret; C_noret_decl(f_6791) static void C_ccall f_6791(C_word c,C_word *av) C_noret; C_noret_decl(f_9127) static void C_ccall f_9127(C_word c,C_word *av) C_noret; C_noret_decl(f_10448) static void C_fcall f_10448(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8370) static void C_ccall f_8370(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_9326) static void C_ccall f_9326(C_word c,C_word *av) C_noret; C_noret_decl(f_4944) static void C_fcall f_4944(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_8384) static void C_fcall f_8384(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9552) static void C_ccall f_9552(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_9548) static void C_ccall f_9548(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_8909) static void C_ccall f_8909(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_6056) static void C_fcall f_6056(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9558) static void C_ccall f_9558(C_word c,C_word *av) C_noret; C_noret_decl(f_7624) static void C_ccall f_7624(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_9173) static void C_ccall f_9173(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_9350) static void C_ccall f_9350(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_9579) static void C_ccall f_9579(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_10297) static void C_ccall f_10297(C_word c,C_word *av) 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_9192) static void C_ccall f_9192(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_10288) static void C_ccall f_10288(C_word c,C_word *av) C_noret; C_noret_decl(f_6098) static void C_fcall f_6098(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_9601) static void C_ccall f_9601(C_word c,C_word *av) C_noret; C_noret_decl(f_9604) static void C_ccall f_9604(C_word c,C_word *av) C_noret; C_noret_decl(f_9611) static void C_ccall f_9611(C_word c,C_word *av) C_noret; C_noret_decl(f_9619) static void C_ccall f_9619(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_8673) static void C_ccall f_8673(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_8640) static void C_fcall f_8640(C_word t0,C_word t1) C_noret; C_noret_decl(f_4645) static void C_ccall f_4645(C_word c,C_word *av) C_noret; C_noret_decl(f_4647) static void C_fcall f_4647(C_word t0,C_word t1,C_word t2) 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_ccall f_10229(C_word c,C_word *av) 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_6787) static void C_ccall f_6787(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_5002) static void C_fcall f_5002(C_word t0,C_word t1) C_noret; C_noret_decl(f_7208) static void C_ccall f_7208(C_word c,C_word *av) C_noret; C_noret_decl(f_9407) static void C_ccall f_9407(C_word c,C_word *av) C_noret; C_noret_decl(f_9651) static void C_ccall f_9651(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_5383) static void C_ccall f_5383(C_word c,C_word *av) C_noret; C_noret_decl(f_10207) static void C_ccall f_10207(C_word c,C_word *av) C_noret; C_noret_decl(f_9621) static void C_ccall f_9621(C_word c,C_word *av) C_noret; C_noret_decl(f_9625) static void C_ccall f_9625(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_10251) static void C_fcall f_10251(C_word t0,C_word t1,C_word t2,C_word t3) 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_10265) static void C_ccall f_10265(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_noret; C_noret_decl(f_6350) static void C_ccall f_6350(C_word c,C_word *av) C_noret; C_noret_decl(f_6353) static void C_ccall f_6353(C_word c,C_word *av) C_noret; C_noret_decl(f_10249) static void C_ccall f_10249(C_word c,C_word *av) C_noret; C_noret_decl(f_10925) static C_word C_fcall f_10925(C_word *a,C_word t0,C_word t1); C_noret_decl(f_7942) static void C_ccall f_7942(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_11183) static void C_ccall f_11183(C_word c,C_word *av) C_noret; C_noret_decl(f_11180) static void C_ccall f_11180(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_7938) static void C_ccall f_7938(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_6875) static void C_ccall f_6875(C_word c,C_word *av) C_noret; C_noret_decl(f_6872) static void C_ccall f_6872(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_11539) static void C_ccall f_11539(C_word c,C_word *av) C_noret; C_noret_decl(f_10233) static void C_ccall f_10233(C_word c,C_word *av) C_noret; C_noret_decl(f_11655) static void C_ccall f_11655(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_11857) static void C_ccall f_11857(C_word c,C_word *av) C_noret; C_noret_decl(f_11859) static void C_ccall f_11859(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_11523) static void C_ccall f_11523(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_10239) static void C_ccall f_10239(C_word c,C_word *av) C_noret; C_noret_decl(f_6820) static void C_fcall f_6820(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6827) static void C_ccall f_6827(C_word c,C_word *av) C_noret; C_noret_decl(f_5586) static void C_ccall f_5586(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_4324) static void C_ccall f_4324(C_word c,C_word *av) 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_4557) static void C_ccall f_4557(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_6818) static void C_ccall f_6818(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_11504) static void C_ccall f_11504(C_word c,C_word *av) C_noret; C_noret_decl(f_11501) static void C_ccall f_11501(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_11669) static void C_ccall f_11669(C_word c,C_word *av) C_noret; C_noret_decl(f_11666) static void C_ccall f_11666(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_4348) static void C_ccall f_4348(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_3694) static void C_ccall f_3694(C_word c,C_word *av) C_noret; C_noret_decl(f_3697) static void C_fcall f_3697(C_word t0,C_word t1) 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_11610) static void C_ccall f_11610(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_11819) static void C_ccall f_11819(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_11563) static void C_ccall f_11563(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_noret; C_noret_decl(f_11567) static void C_ccall f_11567(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_11561) static void C_ccall f_11561(C_word c,C_word *av) C_noret; C_noret_decl(f_11803) static void C_ccall f_11803(C_word c,C_word *av) 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_4845) static void C_fcall f_4845(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4333) static void C_fcall f_4333(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_5556) static void C_ccall f_5556(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_5550) static void C_ccall f_5550(C_word c,C_word *av) C_noret; C_noret_decl(f_4360) static void C_ccall f_4360(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_4599) static void C_fcall f_4599(C_word t0,C_word t1) C_noret; C_noret_decl(f_11545) static void C_ccall f_11545(C_word c,C_word *av) 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_4354) static void C_ccall f_4354(C_word c,C_word *av) C_noret; C_noret_decl(f_11541) static void C_ccall f_11541(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_3687) static void C_fcall f_3687(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10194) static void C_ccall f_10194(C_word c,C_word *av) 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_6978) static void C_ccall f_6978(C_word c,C_word *av) 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_4287) static void C_ccall f_4287(C_word c,C_word *av) C_noret; C_noret_decl(f_3700) static void C_ccall f_3700(C_word c,C_word *av) C_noret; C_noret_decl(f_3656) static void C_ccall f_3656(C_word c,C_word *av) C_noret; C_noret_decl(f_10942) static void C_fcall f_10942(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_5563) static void C_ccall f_5563(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_11495) static void C_ccall f_11495(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_3660) static void C_ccall f_3660(C_word c,C_word *av) 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_10173) static void C_ccall f_10173(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_6998) static void C_ccall f_6998(C_word c,C_word *av) C_noret; C_noret_decl(f_7419) static void C_ccall f_7419(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_10179) static void C_ccall f_10179(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_4084) static void C_fcall f_4084(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5960) static void C_fcall f_5960(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_6896) static void C_ccall f_6896(C_word c,C_word *av) C_noret; C_noret_decl(f_6893) static void C_ccall f_6893(C_word c,C_word *av) C_noret; C_noret_decl(f_5967) static void C_fcall f_5967(C_word t0,C_word t1) C_noret; C_noret_decl(f_6890) static void C_ccall f_6890(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_4062) static void C_ccall f_4062(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_4291) static void C_ccall f_4291(C_word c,C_word *av) C_noret; C_noret_decl(f_6899) static void C_ccall f_6899(C_word c,C_word *av) C_noret; C_noret_decl(f_10153) static void C_ccall f_10153(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_4050) static void C_ccall f_4050(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_10628) static void C_fcall f_10628(C_word t0,C_word t1,C_word t2) 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_4068) static void C_fcall f_4068(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5077) static void C_ccall f_5077(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_9209) static void C_ccall f_9209(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_9251) static void C_ccall f_9251(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_10137) static void C_ccall f_10137(C_word c,C_word *av) C_noret; C_noret_decl(f_11387) static void C_ccall f_11387(C_word c,C_word *av) C_noret; C_noret_decl(f_11635) static void C_ccall f_11635(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_3670) static C_word C_fcall f_3670(C_word t0,C_word t1); C_noret_decl(f_5923) static void C_ccall f_5923(C_word c,C_word *av) C_noret; C_noret_decl(f_9262) static void C_ccall f_9262(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_9544) static void C_ccall f_9544(C_word c,C_word *av) C_noret; C_noret_decl(f_9540) static void C_ccall f_9540(C_word c,C_word *av) C_noret; C_noret_decl(f_11822) static void C_ccall f_11822(C_word c,C_word *av) C_noret; C_noret_decl(f_10653) static void C_fcall f_10653(C_word t0,C_word t1) C_noret; C_noret_decl(f_5952) static void C_ccall f_5952(C_word c,C_word *av) 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_5949) static void C_ccall f_5949(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_4025) static void C_fcall f_4025(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_11052) static void C_ccall f_11052(C_word c,C_word *av) C_noret; C_noret_decl(f_11049) static void C_ccall f_11049(C_word c,C_word *av) C_noret; C_noret_decl(f_11046) static void C_ccall f_11046(C_word c,C_word *av) C_noret; C_noret_decl(f_11043) static void C_ccall f_11043(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_9504) static void C_ccall f_9504(C_word c,C_word *av) C_noret; C_noret_decl(f_9506) static void C_fcall f_9506(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8627) static void C_ccall f_8627(C_word c,C_word *av) C_noret; C_noret_decl(f_8332) static void C_ccall f_8332(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_10999) static void C_ccall f_10999(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_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_11062) static void C_ccall f_11062(C_word c,C_word *av) C_noret; C_noret_decl(f_11480) static void C_ccall f_11480(C_word c,C_word *av) C_noret; C_noret_decl(f_11010) static void C_fcall f_11010(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8319) static void C_ccall f_8319(C_word c,C_word *av) C_noret; C_noret_decl(f_8315) static void C_ccall f_8315(C_word c,C_word *av) C_noret; C_noret_decl(f_8311) static void C_ccall f_8311(C_word c,C_word *av) C_noret; C_noret_decl(f_7663) static void C_ccall f_7663(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_11002) static void C_ccall f_11002(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_8326) static void C_ccall f_8326(C_word c,C_word *av) C_noret; C_noret_decl(f_8619) static void C_ccall f_8619(C_word c,C_word *av) C_noret; C_noret_decl(f_11033) static void C_ccall f_11033(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_11030) static void C_ccall f_11030(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_11024) static void C_ccall f_11024(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_3926) static void C_ccall f_3926(C_word c,C_word *av) C_noret; C_noret_decl(f_3928) static void C_fcall f_3928(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8360) static void C_ccall f_8360(C_word c,C_word *av) C_noret; C_noret_decl(f_8830) static void C_ccall f_8830(C_word c,C_word *av) C_noret; C_noret_decl(f_8824) static void C_ccall f_8824(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_8228) static void C_ccall f_8228(C_word c,C_word *av) C_noret; C_noret_decl(f_8225) static void C_ccall f_8225(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_9132) static void C_ccall f_9132(C_word c,C_word *av) C_noret; C_noret_decl(f_8286) static void C_ccall f_8286(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_10678) static void C_fcall f_10678(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6740) static void C_ccall f_6740(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_5729) static void C_ccall f_5729(C_word c,C_word *av) C_noret; C_noret_decl(f_8295) static void C_ccall f_8295(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_6732) static void C_ccall f_6732(C_word c,C_word *av) C_noret; C_noret_decl(f_5717) static void C_ccall f_5717(C_word c,C_word *av) C_noret; C_noret_decl(f_6762) static void C_ccall f_6762(C_word c,C_word *av) C_noret; C_noret_decl(f_6767) static void C_fcall f_6767(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9158) static void C_ccall f_9158(C_word c,C_word *av) C_noret; C_noret_decl(f_8278) static void C_ccall f_8278(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_8270) static void C_ccall f_8270(C_word c,C_word *av) 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_6751) static void C_ccall f_6751(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_9106) static void C_ccall f_9106(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_7103) static void C_ccall f_7103(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_11962) static void C_ccall f_11962(C_word c,C_word *av) C_noret; C_noret_decl(f_9123) static void C_ccall f_9123(C_word c,C_word *av) C_noret; C_noret_decl(f_3850) static void C_fcall f_3850(C_word t0,C_word t1,C_word t2) 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_9414) static void C_ccall f_9414(C_word c,C_word *av) C_noret; C_noret_decl(f_7139) static C_word C_fcall f_7139(C_word t0); C_noret_decl(f_7131) static void C_ccall f_7131(C_word c,C_word *av) 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_7700) static void C_fcall f_7700(C_word t0,C_word t1,C_word t2,C_word t3) 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_9421) static void C_ccall f_9421(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_3823) static void C_ccall f_3823(C_word c,C_word *av) C_noret; C_noret_decl(f_5304) static void C_ccall f_5304(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_9464) static void C_ccall f_9464(C_word c,C_word *av) C_noret; C_noret_decl(f_9465) static void C_fcall f_9465(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6332) static void C_ccall f_6332(C_word c,C_word *av) C_noret; C_noret_decl(f_6337) static void C_fcall f_6337(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5322) static void C_fcall f_5322(C_word t0,C_word t1) C_noret; C_noret_decl(f_5325) static void C_fcall f_5325(C_word t0,C_word t1) 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_8562) static void C_ccall f_8562(C_word c,C_word *av) C_noret; C_noret_decl(f_8570) static void C_ccall f_8570(C_word c,C_word *av) C_noret; C_noret_decl(f_5364) static void C_fcall f_5364(C_word t0,C_word t1) C_noret; C_noret_decl(f_6314) static void C_fcall f_6314(C_word t0,C_word t1) C_noret; C_noret_decl(f_6806) static void C_ccall f_6806(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_6852) static void C_ccall f_6852(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_6858) static void C_ccall f_6858(C_word c,C_word *av) C_noret; C_noret_decl(f_6688) static void C_fcall f_6688(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6685) static void C_ccall f_6685(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_4505) static void C_ccall f_4505(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_6849) static void C_ccall f_6849(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_6836) static void C_fcall f_6836(C_word t0,C_word t1,C_word t2) 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_4531) static void C_fcall f_4531(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_10837) static void C_ccall f_10837(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_10831) static void C_ccall f_10831(C_word c,C_word *av) C_noret; C_noret_decl(f_10827) static void C_ccall f_10827(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_10818) static void C_ccall f_10818(C_word c,C_word *av) C_noret; C_noret_decl(f_7184) static void C_fcall f_7184(C_word t0,C_word t1) C_noret; C_noret_decl(f_7189) static void C_fcall f_7189(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6931) static void C_ccall f_6931(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_noret; C_noret_decl(f_4575) static void C_fcall f_4575(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3871) static void C_ccall f_3871(C_word c,C_word *av) C_noret; C_noret_decl(f_10802) static void C_ccall f_10802(C_word c,C_word *av) C_noret; C_noret_decl(f_10804) static void C_fcall f_10804(C_word t0,C_word t1,C_word t2,C_word t3) 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_3882) static void C_ccall f_3882(C_word c,C_word *av) C_noret; C_noret_decl(f_7165) static void C_fcall f_7165(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7160) static void C_fcall f_7160(C_word t0,C_word t1) 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_6951) static void C_ccall f_6951(C_word c,C_word *av) C_noret; C_noret_decl(f_3976) static void C_fcall f_3976(C_word t0,C_word t1,C_word t2,C_word t3) 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_11686) static void C_ccall f_11686(C_word c,C_word *av) C_noret; C_noret_decl(f_11699) static void C_ccall f_11699(C_word c,C_word *av) C_noret; C_noret_decl(f_6947) static void C_ccall f_6947(C_word c,C_word *av) C_noret; C_noret_decl(f_4512) static void C_fcall f_4512(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_11693) static void C_ccall f_11693(C_word c,C_word *av) C_noret; C_noret_decl(f_11690) static void C_ccall f_11690(C_word c,C_word *av) C_noret; C_noret_decl(f_4201) static C_word C_fcall f_4201(C_word t0,C_word t1); C_noret_decl(f_5733) static void C_ccall f_5733(C_word c,C_word *av) C_noret; C_noret_decl(f_6912) static void C_ccall f_6912(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_6916) static void C_ccall f_6916(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_4219) static void C_ccall f_4219(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_6481) static void C_ccall f_6481(C_word c,C_word *av) C_noret; C_noret_decl(f_4246) static void C_ccall f_4246(C_word c,C_word *av) C_noret; C_noret_decl(f_4240) static void C_ccall f_4240(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_4279) static void C_ccall f_4279(C_word c,C_word *av) 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_4229) static void C_ccall f_4229(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_4716) static void C_fcall f_4716(C_word t0,C_word t1,C_word t2) 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_7878) static C_word C_fcall f_7878(C_word t0,C_word t1); C_noret_decl(f_5744) static C_word C_fcall f_5744(C_word t0,C_word t1,C_word t2); C_noret_decl(f_8046) static void C_ccall f_8046(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_7505) static void C_ccall f_7505(C_word c,C_word *av) 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_10840) static void C_ccall f_10840(C_word c,C_word *av) C_noret; C_noret_decl(f_8055) static void C_ccall f_8055(C_word c,C_word *av) C_noret; C_noret_decl(f_8058) static void C_ccall f_8058(C_word c,C_word *av) C_noret; C_noret_decl(f_11597) static void C_fcall f_11597(C_word t0,C_word t1) C_noret; C_noret_decl(f_10074) static void C_fcall f_10074(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10072) static void C_ccall f_10072(C_word c,C_word *av) C_noret; C_noret_decl(f_8035) static void C_ccall f_8035(C_word c,C_word *av) C_noret; C_noret_decl(f_8031) static void C_ccall f_8031(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_8061) static void C_ccall f_8061(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_10047) static void C_fcall f_10047(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11744) static void C_ccall f_11744(C_word c,C_word *av) C_noret; C_noret_decl(f_11749) static void C_fcall f_11749(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7828) static C_word C_fcall f_7828(C_word t0,C_word t1); C_noret_decl(f_11740) static void C_ccall f_11740(C_word c,C_word *av) C_noret; C_noret_decl(f_8096) static void C_fcall f_8096(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_7574) static void C_fcall f_7574(C_word t0,C_word t1) 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_7577) static void C_ccall f_7577(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externexport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(f_7815) static void C_ccall f_7815(C_word c,C_word *av) C_noret; C_noret_decl(f_8065) static void C_ccall f_8065(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_8068) static void C_ccall f_8068(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_7522) static void C_ccall f_7522(C_word c,C_word *av) C_noret; C_noret_decl(f_6533) static void C_ccall f_6533(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_7800) static C_word C_fcall f_7800(C_word t0,C_word t1); C_noret_decl(f_8077) static void C_ccall f_8077(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_10024) static void C_ccall f_10024(C_word c,C_word *av) C_noret; C_noret_decl(f_7556) static void C_fcall f_7556(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10585) static void C_fcall f_10585(C_word t0,C_word t1) C_noret; C_noret_decl(f_10564) static void C_ccall f_10564(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_7760) static void C_fcall f_7760(C_word t0,C_word t1) 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_10892) static void C_ccall f_10892(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_8259) static void C_ccall f_8259(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_noret; C_noret_decl(f_11570) static void C_ccall f_11570(C_word c,C_word *av) C_noret; C_noret_decl(f_10885) static void C_fcall f_10885(C_word t0,C_word t1) 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_11585) static void C_ccall f_11585(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_11589) static void C_ccall f_11589(C_word c,C_word *av) C_noret; C_noret_decl(f_8492) static void C_ccall f_8492(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_8233) static void C_ccall f_8233(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_10524) static void C_ccall f_10524(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_10520) static void C_ccall f_10520(C_word c,C_word *av) C_noret; C_noret_decl(f_9732) static void C_ccall f_9732(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_7721) static void C_ccall f_7721(C_word c,C_word *av) C_noret; C_noret_decl(f_8219) static void C_ccall f_8219(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_8213) static void C_ccall f_8213(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_10518) static void C_ccall f_10518(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_8264) static void C_ccall f_8264(C_word c,C_word *av) C_noret; C_noret_decl(f_9729) static void C_ccall f_9729(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_9722) static void C_ccall f_9722(C_word c,C_word *av) C_noret; C_noret_decl(f_9726) static void C_ccall f_9726(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_9773) static void C_fcall f_9773(C_word t0,C_word t1) 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_8090) static void C_fcall f_8090(C_word t0,C_word t1,C_word t2,C_word t3) 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_5822) static void C_fcall f_5822(C_word t0,C_word t1,C_word t2,C_word t3) 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_4102) static void C_fcall f_4102(C_word t0,C_word t1,C_word t2) 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_10536) static void C_ccall f_10536(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_8171) static void C_ccall f_8171(C_word c,C_word *av) C_noret; C_noret_decl(f_8174) static void C_ccall f_8174(C_word c,C_word *av) C_noret; C_noret_decl(f_9847) static void C_ccall f_9847(C_word c,C_word *av) C_noret; C_noret_decl(f_4118) static void C_fcall f_4118(C_word t0,C_word t1) C_noret; C_noret_decl(f_9890) static void C_ccall f_9890(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_9893) static void C_ccall f_9893(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_8183) static void C_ccall f_8183(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_9899) static void C_ccall f_9899(C_word c,C_word *av) C_noret; C_noret_decl(f_9896) static void C_ccall f_9896(C_word c,C_word *av) C_noret; C_noret_decl(f_8756) static void C_ccall f_8756(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_9881) static void C_ccall f_9881(C_word c,C_word *av) C_noret; C_noret_decl(f_9883) static void C_ccall f_9883(C_word c,C_word *av) C_noret; C_noret_decl(f_7002) static C_word C_fcall f_7002(C_word t0,C_word t1); C_noret_decl(f_10396) static void C_ccall f_10396(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_8195) static void C_ccall f_8195(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_8940) static void C_ccall f_8940(C_word c,C_word *av) 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_7044) static void C_fcall f_7044(C_word t0,C_word t1,C_word t2) 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_7032) static void C_fcall f_7032(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_4762) static void C_ccall f_4762(C_word c,C_word *av) C_noret; C_noret_decl(f_4754) static void C_fcall f_4754(C_word t0,C_word t1) C_noret; C_noret_decl(f_4758) static void C_fcall f_4758(C_word t0,C_word t1,C_word t2) 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_5288) static void C_fcall f_5288(C_word t0,C_word t1) 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_5275) static void C_fcall f_5275(C_word t0,C_word t1) 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_8988) static void C_ccall f_8988(C_word c,C_word *av) C_noret; C_noret_decl(f_6620) static C_word C_fcall f_6620(C_word t0,C_word t1); C_noret_decl(f_10311) static void C_ccall f_10311(C_word c,C_word *av) C_noret; C_noret_decl(f_9305) static void C_ccall f_9305(C_word c,C_word *av) C_noret; C_noret_decl(f_8979) static void C_ccall f_8979(C_word c,C_word *av) C_noret; C_noret_decl(f_10342) static void C_ccall f_10342(C_word c,C_word *av) C_noret; C_noret_decl(f_9688) static void C_ccall f_9688(C_word c,C_word *av) C_noret; C_noret_decl(f_10373) static void C_ccall f_10373(C_word c,C_word *av) C_noret; C_noret_decl(f_6606) static void C_fcall f_6606(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6603) static void C_fcall f_6603(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9691) static void C_ccall f_9691(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_4146) static void C_ccall f_4146(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_6660) static void C_ccall f_6660(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_4481) static void C_ccall f_4481(C_word c,C_word *av) C_noret; C_noret_decl(f_4494) static void C_ccall f_4494(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_4167) static void C_ccall f_4167(C_word c,C_word *av) C_noret; C_noret_decl(f_7843) static void C_ccall f_7843(C_word c,C_word *av) C_noret; C_noret_decl(f_4488) static void C_ccall f_4488(C_word c,C_word *av) C_noret; C_noret_decl(f_4986) static void C_ccall f_4986(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_4150) static void C_ccall f_4150(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_9370) static void C_ccall f_9370(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_4972) static void C_fcall f_4972(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_9387) static void C_ccall f_9387(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_9380) static void C_fcall f_9380(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4457) static void C_fcall f_4457(C_word t0,C_word t1) 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_4990) static void C_fcall f_4990(C_word t0,C_word t1) 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_4191) static void C_ccall f_4191(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_11117) static void C_ccall f_11117(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_7017) static void C_ccall f_7017(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_6403) static void C_ccall f_6403(C_word c,C_word *av) C_noret; C_noret_decl(f_7083) static void C_fcall f_7083(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4900) static void C_fcall f_4900(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9997) static void C_ccall f_9997(C_word c,C_word *av) C_noret; C_noret_decl(f_5451) static void C_fcall f_5451(C_word t0,C_word t1) C_noret; C_noret_decl(f_7075) static void C_ccall f_7075(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_11792) static void C_ccall f_11792(C_word c,C_word *av) C_noret; C_noret_decl(f_11799) static void C_ccall f_11799(C_word c,C_word *av) C_noret; C_noret_decl(f_11143) static void C_ccall f_11143(C_word c,C_word *av) C_noret; C_noret_decl(f_11140) static void C_ccall f_11140(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_6294) static void C_fcall f_6294(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(trf_4919) static void C_ccall trf_4919(C_word c,C_word *av) C_noret; static void C_ccall trf_4919(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4919(t0,t1);} C_noret_decl(trf_9003) static void C_ccall trf_9003(C_word c,C_word *av) C_noret; static void C_ccall trf_9003(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9003(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_6288(t0,t1,t2);} C_noret_decl(trf_9050) static void C_ccall trf_9050(C_word c,C_word *av) C_noret; static void C_ccall trf_9050(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9050(t0,t1);} C_noret_decl(trf_4388) static void C_ccall trf_4388(C_word c,C_word *av) C_noret; static void C_ccall trf_4388(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4388(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[1]; C_word t1=av[0]; f_4371(t0,t1);} C_noret_decl(trf_10730) static void C_ccall trf_10730(C_word c,C_word *av) C_noret; static void C_ccall trf_10730(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10730(t0,t1,t2);} C_noret_decl(trf_5810) static void C_ccall trf_5810(C_word c,C_word *av) C_noret; static void C_ccall trf_5810(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_5810(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_9029) static void C_ccall trf_9029(C_word c,C_word *av) C_noret; static void C_ccall trf_9029(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9029(t0,t1,t2,t3);} C_noret_decl(trf_5195) static void C_ccall trf_5195(C_word c,C_word *av) C_noret; static void C_ccall trf_5195(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5195(t0,t1,t2);} C_noret_decl(trf_5841) static void C_ccall trf_5841(C_word c,C_word *av) C_noret; static void C_ccall trf_5841(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5841(t0,t1);} 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_9901) static void C_ccall trf_9901(C_word c,C_word *av) C_noret; static void C_ccall trf_9901(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9901(t0,t1,t2);} C_noret_decl(trf_6135) static void C_ccall trf_6135(C_word c,C_word *av) C_noret; static void C_ccall trf_6135(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6135(t0,t1,t2);} C_noret_decl(trf_7903) static void C_ccall trf_7903(C_word c,C_word *av) C_noret; static void C_ccall trf_7903(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7903(t0,t1,t2);} C_noret_decl(trf_5692) static void C_ccall trf_5692(C_word c,C_word *av) C_noret; static void C_ccall trf_5692(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5692(t0,t1,t2);} C_noret_decl(trf_8433) static void C_ccall trf_8433(C_word c,C_word *av) C_noret; static void C_ccall trf_8433(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8433(t0,t1);} C_noret_decl(trf_9911) static void C_ccall trf_9911(C_word c,C_word *av) C_noret; static void C_ccall trf_9911(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9911(t0,t1,t2);} C_noret_decl(trf_6108) static void C_ccall trf_6108(C_word c,C_word *av) C_noret; static void C_ccall trf_6108(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_6108(t0,t1,t2,t3,t4);} C_noret_decl(trf_10414) static void C_ccall trf_10414(C_word c,C_word *av) C_noret; static void C_ccall trf_10414(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10414(t0,t1,t2);} C_noret_decl(trf_5626) static void C_ccall trf_5626(C_word c,C_word *av) C_noret; static void C_ccall trf_5626(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5626(t0,t1,t2,t3);} C_noret_decl(trf_8109) static void C_ccall trf_8109(C_word c,C_word *av) C_noret; static void C_ccall trf_8109(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8109(t0,t1);} C_noret_decl(trf_10422) static void C_ccall trf_10422(C_word c,C_word *av) C_noret; static void C_ccall trf_10422(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10422(t0,t1,t2);} C_noret_decl(trf_4405) static void C_ccall trf_4405(C_word c,C_word *av) C_noret; static void C_ccall trf_4405(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4405(t0,t1);} C_noret_decl(trf_6022) static void C_ccall trf_6022(C_word c,C_word *av) C_noret; static void C_ccall trf_6022(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6022(t0,t1,t2);} C_noret_decl(trf_6182) static void C_ccall trf_6182(C_word c,C_word *av) C_noret; static void C_ccall trf_6182(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6182(t0,t1);} C_noret_decl(trf_10448) static void C_ccall trf_10448(C_word c,C_word *av) C_noret; static void C_ccall trf_10448(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10448(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_4944(t0,t1,t2);} C_noret_decl(trf_8384) static void C_ccall trf_8384(C_word c,C_word *av) C_noret; static void C_ccall trf_8384(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8384(t0,t1,t2);} C_noret_decl(trf_6056) static void C_ccall trf_6056(C_word c,C_word *av) C_noret; static void C_ccall trf_6056(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6056(t0,t1,t2,t3);} C_noret_decl(trf_6098) static void C_ccall trf_6098(C_word c,C_word *av) C_noret; static void C_ccall trf_6098(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_6098(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_8640) static void C_ccall trf_8640(C_word c,C_word *av) C_noret; static void C_ccall trf_8640(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8640(t0,t1);} C_noret_decl(trf_4647) static void C_ccall trf_4647(C_word c,C_word *av) C_noret; static void C_ccall trf_4647(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4647(t0,t1,t2);} C_noret_decl(trf_5002) static void C_ccall trf_5002(C_word c,C_word *av) C_noret; static void C_ccall trf_5002(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5002(t0,t1);} C_noret_decl(trf_10251) static void C_ccall trf_10251(C_word c,C_word *av) C_noret; static void C_ccall trf_10251(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10251(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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10241(t0,t1,t2,t3);} C_noret_decl(trf_6820) static void C_ccall trf_6820(C_word c,C_word *av) C_noret; static void C_ccall trf_6820(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6820(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_3697(t0,t1);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_3751(t0,t1,t2);} C_noret_decl(trf_4845) static void C_ccall trf_4845(C_word c,C_word *av) C_noret; static void C_ccall trf_4845(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4845(t0,t1,t2);} C_noret_decl(trf_4333) static void C_ccall trf_4333(C_word c,C_word *av) C_noret; static void C_ccall trf_4333(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_4333(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_4599) static void C_ccall trf_4599(C_word c,C_word *av) C_noret; static void C_ccall trf_4599(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4599(t0,t1);} C_noret_decl(trf_3687) static void C_ccall trf_3687(C_word c,C_word *av) C_noret; static void C_ccall trf_3687(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3687(t0,t1,t2);} C_noret_decl(trf_10942) static void C_ccall trf_10942(C_word c,C_word *av) C_noret; static void C_ccall trf_10942(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10942(t0,t1,t2);} C_noret_decl(trf_4084) static void C_ccall trf_4084(C_word c,C_word *av) C_noret; static void C_ccall trf_4084(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4084(t0,t1,t2);} C_noret_decl(trf_5960) static void C_ccall trf_5960(C_word c,C_word *av) C_noret; static void C_ccall trf_5960(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_5960(t0,t1,t2,t3,t4);} C_noret_decl(trf_5967) static void C_ccall trf_5967(C_word c,C_word *av) C_noret; static void C_ccall trf_5967(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5967(t0,t1);} 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_10628) static void C_ccall trf_10628(C_word c,C_word *av) C_noret; static void C_ccall trf_10628(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10628(t0,t1,t2);} C_noret_decl(trf_4068) static void C_ccall trf_4068(C_word c,C_word *av) C_noret; static void C_ccall trf_4068(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4068(t0,t1,t2);} C_noret_decl(trf_10653) static void C_ccall trf_10653(C_word c,C_word *av) C_noret; static void C_ccall trf_10653(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10653(t0,t1);} C_noret_decl(trf_4025) static void C_ccall trf_4025(C_word c,C_word *av) C_noret; static void C_ccall trf_4025(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4025(t0,t1,t2);} C_noret_decl(trf_9506) static void C_ccall trf_9506(C_word c,C_word *av) C_noret; static void C_ccall trf_9506(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9506(t0,t1,t2);} C_noret_decl(trf_11010) static void C_ccall trf_11010(C_word c,C_word *av) C_noret; static void C_ccall trf_11010(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11010(t0,t1,t2,t3);} C_noret_decl(trf_3928) static void C_ccall trf_3928(C_word c,C_word *av) C_noret; static void C_ccall trf_3928(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3928(t0,t1,t2,t3);} C_noret_decl(trf_10678) static void C_ccall trf_10678(C_word c,C_word *av) C_noret; static void C_ccall trf_10678(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10678(t0,t1,t2);} C_noret_decl(trf_6767) static void C_ccall trf_6767(C_word c,C_word *av) C_noret; static void C_ccall trf_6767(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6767(t0,t1,t2);} C_noret_decl(trf_3850) static void C_ccall trf_3850(C_word c,C_word *av) C_noret; static void C_ccall trf_3850(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3850(t0,t1,t2);} C_noret_decl(trf_7700) static void C_ccall trf_7700(C_word c,C_word *av) C_noret; static void C_ccall trf_7700(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7700(t0,t1,t2,t3);} 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_9465) static void C_ccall trf_9465(C_word c,C_word *av) C_noret; static void C_ccall trf_9465(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9465(t0,t1,t2);} C_noret_decl(trf_6337) static void C_ccall trf_6337(C_word c,C_word *av) C_noret; static void C_ccall trf_6337(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6337(t0,t1,t2);} C_noret_decl(trf_5322) static void C_ccall trf_5322(C_word c,C_word *av) C_noret; static void C_ccall trf_5322(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5322(t0,t1);} C_noret_decl(trf_5325) static void C_ccall trf_5325(C_word c,C_word *av) C_noret; static void C_ccall trf_5325(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5325(t0,t1);} C_noret_decl(trf_5364) static void C_ccall trf_5364(C_word c,C_word *av) C_noret; static void C_ccall trf_5364(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5364(t0,t1);} C_noret_decl(trf_6314) static void C_ccall trf_6314(C_word c,C_word *av) C_noret; static void C_ccall trf_6314(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6314(t0,t1);} C_noret_decl(trf_6688) static void C_ccall trf_6688(C_word c,C_word *av) C_noret; static void C_ccall trf_6688(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6688(t0,t1,t2,t3);} C_noret_decl(trf_6836) static void C_ccall trf_6836(C_word c,C_word *av) C_noret; static void C_ccall trf_6836(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6836(t0,t1,t2);} C_noret_decl(trf_4531) static void C_ccall trf_4531(C_word c,C_word *av) C_noret; static void C_ccall trf_4531(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_4531(t0,t1,t2,t3,t4);} C_noret_decl(trf_7184) static void C_ccall trf_7184(C_word c,C_word *av) C_noret; static void C_ccall trf_7184(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7184(t0,t1);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7189(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_6933(t0,t1,t2);} C_noret_decl(trf_4575) static void C_ccall trf_4575(C_word c,C_word *av) C_noret; static void C_ccall trf_4575(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4575(t0,t1,t2);} C_noret_decl(trf_10804) static void C_ccall trf_10804(C_word c,C_word *av) C_noret; static void C_ccall trf_10804(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10804(t0,t1,t2,t3);} C_noret_decl(trf_7165) static void C_ccall trf_7165(C_word c,C_word *av) C_noret; static void C_ccall trf_7165(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7165(t0,t1,t2,t3);} C_noret_decl(trf_7160) static void C_ccall trf_7160(C_word c,C_word *av) C_noret; static void C_ccall trf_7160(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7160(t0,t1);} C_noret_decl(trf_3976) static void C_ccall trf_3976(C_word c,C_word *av) C_noret; static void C_ccall trf_3976(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3976(t0,t1,t2,t3);} C_noret_decl(trf_4512) static void C_ccall trf_4512(C_word c,C_word *av) C_noret; static void C_ccall trf_4512(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4512(t0,t1,t2);} C_noret_decl(trf_4716) static void C_ccall trf_4716(C_word c,C_word *av) C_noret; static void C_ccall trf_4716(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4716(t0,t1,t2);} C_noret_decl(trf_11597) static void C_ccall trf_11597(C_word c,C_word *av) C_noret; static void C_ccall trf_11597(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11597(t0,t1);} C_noret_decl(trf_10074) static void C_ccall trf_10074(C_word c,C_word *av) C_noret; static void C_ccall trf_10074(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10074(t0,t1,t2);} C_noret_decl(trf_10047) static void C_ccall trf_10047(C_word c,C_word *av) C_noret; static void C_ccall trf_10047(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10047(t0,t1,t2);} C_noret_decl(trf_11749) static void C_ccall trf_11749(C_word c,C_word *av) C_noret; static void C_ccall trf_11749(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11749(t0,t1,t2);} C_noret_decl(trf_8096) static void C_ccall trf_8096(C_word c,C_word *av) C_noret; static void C_ccall trf_8096(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_8096(t0,t1,t2,t3,t4);} C_noret_decl(trf_7574) static void C_ccall trf_7574(C_word c,C_word *av) C_noret; static void C_ccall trf_7574(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7574(t0,t1);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_7556(t0,t1,t2);} C_noret_decl(trf_10585) static void C_ccall trf_10585(C_word c,C_word *av) C_noret; static void C_ccall trf_10585(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10585(t0,t1);} C_noret_decl(trf_7760) static void C_ccall trf_7760(C_word c,C_word *av) C_noret; static void C_ccall trf_7760(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7760(t0,t1);} 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[1]; C_word t1=av[0]; f_7752(t0,t1);} C_noret_decl(trf_10885) static void C_ccall trf_10885(C_word c,C_word *av) C_noret; static void C_ccall trf_10885(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10885(t0,t1);} 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[1]; C_word t1=av[0]; f_9773(t0,t1);} C_noret_decl(trf_8090) static void C_ccall trf_8090(C_word c,C_word *av) C_noret; static void C_ccall trf_8090(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8090(t0,t1,t2,t3);} C_noret_decl(trf_5822) static void C_ccall trf_5822(C_word c,C_word *av) C_noret; static void C_ccall trf_5822(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5822(t0,t1,t2,t3);} C_noret_decl(trf_4102) static void C_ccall trf_4102(C_word c,C_word *av) C_noret; static void C_ccall trf_4102(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4102(t0,t1,t2);} C_noret_decl(trf_4118) static void C_ccall trf_4118(C_word c,C_word *av) C_noret; static void C_ccall trf_4118(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4118(t0,t1);} C_noret_decl(trf_7044) static void C_ccall trf_7044(C_word c,C_word *av) C_noret; static void C_ccall trf_7044(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7044(t0,t1,t2);} C_noret_decl(trf_7032) static void C_ccall trf_7032(C_word c,C_word *av) C_noret; static void C_ccall trf_7032(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_7032(t0,t1,t2,t3,t4);} C_noret_decl(trf_4754) static void C_ccall trf_4754(C_word c,C_word *av) C_noret; static void C_ccall trf_4754(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4754(t0,t1);} C_noret_decl(trf_4758) static void C_ccall trf_4758(C_word c,C_word *av) C_noret; static void C_ccall trf_4758(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4758(t0,t1,t2);} C_noret_decl(trf_5288) static void C_ccall trf_5288(C_word c,C_word *av) C_noret; static void C_ccall trf_5288(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5288(t0,t1);} C_noret_decl(trf_5275) static void C_ccall trf_5275(C_word c,C_word *av) C_noret; static void C_ccall trf_5275(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5275(t0,t1);} C_noret_decl(trf_6606) static void C_ccall trf_6606(C_word c,C_word *av) C_noret; static void C_ccall trf_6606(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6606(t0,t1,t2,t3);} C_noret_decl(trf_6603) static void C_ccall trf_6603(C_word c,C_word *av) C_noret; static void C_ccall trf_6603(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6603(t0,t1,t2,t3);} C_noret_decl(trf_4972) static void C_ccall trf_4972(C_word c,C_word *av) C_noret; static void C_ccall trf_4972(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_4972(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_9380) static void C_ccall trf_9380(C_word c,C_word *av) C_noret; static void C_ccall trf_9380(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9380(t0,t1,t2);} C_noret_decl(trf_4457) static void C_ccall trf_4457(C_word c,C_word *av) C_noret; static void C_ccall trf_4457(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4457(t0,t1);} C_noret_decl(trf_4990) static void C_ccall trf_4990(C_word c,C_word *av) C_noret; static void C_ccall trf_4990(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4990(t0,t1);} C_noret_decl(trf_7083) static void C_ccall trf_7083(C_word c,C_word *av) C_noret; static void C_ccall trf_7083(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7083(t0,t1,t2);} C_noret_decl(trf_4900) static void C_ccall trf_4900(C_word c,C_word *av) C_noret; static void C_ccall trf_4900(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4900(t0,t1,t2);} C_noret_decl(trf_5451) static void C_ccall trf_5451(C_word c,C_word *av) C_noret; static void C_ccall trf_5451(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5451(t0,t1);} C_noret_decl(trf_6294) static void C_ccall trf_6294(C_word c,C_word *av) C_noret; static void C_ccall trf_6294(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_6294(t0,t1,t2,t3,t4,t5);} /* k7067 in k7046 in err in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_7069(C_word c,C_word *av){ C_word tmp; C_word 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_7069,2,av);} /* expand.scm:730: string-append */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[148]; av2[3]=t1; av2[4]=lf[149]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k6408 in k6401 in loop2 in k6330 in k6312 in loop in expand in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6410(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6410,2,av);} /* expand.scm:578: loop2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6337(t2,((C_word*)t0)[3],t1);} /* k4917 in loop in extended-lambda-list? in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4919(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_4919,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:336: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4900(t4,((C_word*)t0)[2],t3);}} /* k8998 in k8986 in k8980 in k8977 */ 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; C_word 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_9000,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9003,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_9050,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_9050(t7,C_eqp(t2,t6));} else{ t6=t4; f_9050(t6,C_SCHEME_FALSE);}} else{ t6=t4; f_9050(t6,C_SCHEME_FALSE);}} else{ t5=t4; f_9050(t5,C_SCHEME_FALSE);}} /* k9001 in k8998 in k8986 in k8980 in k8977 */ static void C_fcall f_9003(C_word 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_9003,2,t0,t1);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9006,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_9029,a[2]=t4,a[3]=((C_word)li117),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_9029(t6,t2,((C_word*)t0)[8],t1);} /* k6415 in loop2 in k6330 in k6312 in loop in expand in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_6417,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[72],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:584: loop */ t11=((C_word*)((C_word*)t0)[7])[1]; f_6294(t11,((C_word*)t0)[8],((C_word*)t0)[9],t4,t9,t10);} /* k7053 in k7046 in err in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_7055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7055,2,av);} /* expand.scm:727: ##sys#syntax-error-hook */ t2=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9004 in k9001 in k8998 in k8986 in k8980 in k8977 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_9006,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9027,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:231: segment-tail */ t4=((C_word*)((C_word*)t0)[6])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11773 in k11762 in loop in k11742 in a11739 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_11775,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11778,a[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_11792,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11799,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* expand.scm:1009: r */ t5=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[101]; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k11776 in k11773 in k11762 in loop in k11742 in a11739 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_11778,2,av);} a=C_alloc(9); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=C_u_i_car(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[95],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[95],((C_word*)t0)[4],lf[344]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* expand in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_6288(C_word 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_6288,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_6294,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)li67),tmp=(C_word)a,a+=9,tmp)); t6=((C_word*)t4)[1]; f_6294(t6,t1,t2,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* a11909 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_11910,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11914,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:968: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[210]; av2[3]=t2; av2[4]=lf[351]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11912 in a11909 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11914,2,av);} a=C_alloc(6); t2=C_i_cadr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,2,lf[71],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9048 in k8998 in k8986 in k8980 in k8977 */ static void C_fcall f_9050(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_9050,2,t0,t1);} a=C_alloc(15); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_9003(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_9003(t4,C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[6])[1],t3));}} /* k4380 in k4369 in a4359 in a4353 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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(4,c,2)))){ C_save_and_reclaim((void *)f_4382,2,av);} a=C_alloc(4); t2=C_a_i_record3(&a,3,lf[33],((C_word*)t0)[2],t1); /* expand.scm:210: ##sys#abort */ t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 k4369 in a4359 in a4353 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4388(C_word t0,C_word t1,C_word 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_4388,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_4405,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[39],t3))){ if(C_truep(C_i_pairp(t5))){ t7=C_u_i_car(t5); t8=t6; f_4405(t8,C_i_stringp(t7));} else{ t7=t6; f_4405(t7,C_SCHEME_FALSE);}} else{ t7=t6; f_4405(t7,C_SCHEME_FALSE);}}} /* a11415 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in ... */ 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=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_11416,5,av);} a=C_alloc(5); t5=C_i_cdr(t2); if(C_truep(C_i_nullp(t5))){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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_11447,a[2]=t7,a[3]=t1,a[4]=t8,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1134: r */ t10=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=lf[230]; ((C_proc)C_fast_retrieve_proc(t10))(3,av2);}}}} /* k11412 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11414,2,av);} /* expand.scm:1122: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11906 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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,4)))){ C_save_and_reclaim((void *)f_11908,2,av);} /* expand.scm:963: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[210]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5850 in k5839 in loop in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5852,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5860,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* expand.scm:496: expand */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6288(t4,t3,((C_word*)t0)[4]);} /* k4369 in a4359 in a4353 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4371(C_word t0,C_word t1){ C_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_4371,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_4382,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_4388,a[2]=((C_word*)t0)[4],a[3]=t7,a[4]=((C_word)li21),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_4388(t9,t4,t5);} else{ t2=((C_word*)t0)[2]; /* expand.scm:210: ##sys#abort */ t3=*((C_word*)lf[34]+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);}}} /* k11445 in a11415 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in ... */ 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(15,c,1)))){ C_save_and_reclaim((void *)f_11447,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,4,lf[293],((C_word*)t0)[4],t2,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* expand in k10718 in a10715 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in ... */ static void C_fcall f_10730(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_10730,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[50],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_10755,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=t2; t9=C_u_i_cdr(t8); /* expand.scm:1268: expand */ t11=t7; t12=t9; t1=t11; t2=t12; goto loop;}} /* k11950 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11952,2,av);} /* expand.scm:939: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[355]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k10718 in a10715 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in ... */ static void C_ccall f_10720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10720,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_10730,a[2]=t5,a[3]=t7,a[4]=((C_word)li155),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_10730(t9,((C_word*)t0)[3],t2);} /* a11953 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11954,5,av);} t5=*((C_word*)lf[354]+1); /* expand.scm:942: g1665 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[354]+1)); C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(10); } av2[0]=*((C_word*)lf[354]+1); av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=*((C_word*)lf[2]+1); av2[6]=*((C_word*)lf[233]+1); av2[7]=C_SCHEME_TRUE; av2[8]=C_SCHEME_FALSE; av2[9]=lf[355]; tp(10,av2);}} /* k4618 in k4606 in k4597 in loop in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_4620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_4620,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[16]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4710,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_4716,a[2]=t6,a[3]=t11,a[4]=t7,a[5]=((C_word)li36),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_4716(t13,t9,t3);} /* k11940 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11942,2,av);} /* expand.scm:946: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[353]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k9021 in k9025 in k9004 in k9001 in k8998 in k8986 in k8980 in k8977 */ static void C_ccall f_9023(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9023,2,av);} /* synrules.scm:233: process-template */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10712 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in ... */ static void C_ccall f_10714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10714,2,av);} /* expand.scm:1257: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[88]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11943 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11944,5,av);} t5=*((C_word*)lf[354]+1); /* expand.scm:949: g1679 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[354]+1)); C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(10); } av2[0]=*((C_word*)lf[354]+1); av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=*((C_word*)lf[1]+1); av2[6]=*((C_word*)lf[19]+1); av2[7]=C_SCHEME_FALSE; av2[8]=C_SCHEME_TRUE; av2[9]=lf[353]; tp(10,av2);}} /* fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_5810(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_5810,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|6,a[1]=(C_word)f_5822,a[2]=((C_word*)t0)[2],a[3]=t9,a[4]=((C_word*)t0)[3],a[5]=t5,a[6]=((C_word)li57),tmp=(C_word)a,a+=7,tmp)); t11=((C_word*)t9)[1]; f_5822(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_5914,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:507: reverse */ t13=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t13; av2[1]=t12; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}} /* doloop2598 in k9001 in k8998 in k8986 in k8980 in k8977 */ static void C_fcall f_9029(C_word t0,C_word t1,C_word 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_9029,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[215],lf[70],t3); t9=t1; t10=t6; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;}} /* a10715 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in ... */ static void C_ccall f_10716(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10716,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10720,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1262: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[88]; av2[3]=t2; av2[4]=lf[297]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9025 in k9004 in k9001 in k8998 in k8986 in k8980 in k8977 */ static void C_ccall f_9027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9027,2,av);} a=C_alloc(10); if(C_truep(C_i_nullp(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_9019,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_9023,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:233: segment-tail */ t4=((C_word*)((C_word*)t0)[7])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k5191 in k5188 in k4984 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_5193(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5193,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_4990(t4,C_a_i_list(&a,1,t3));} /* k5188 in k4984 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_5190,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5193,a[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_5195,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)li48),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_5195(t6,t2,t1);} /* map-loop790 in k5188 in k4984 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_5195(C_word t0,C_word t1,C_word 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_5195,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_5220,a[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:363: g796 */ t5=((C_word*)t0)[4]; f_5130(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);}}} /* k5185 in g796 in k4984 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_5187(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5187,2,av);} t2=C_slot(t1,C_fix(1)); /* expand.scm:342: string->keyword */ t3=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11929 in a11926 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11931(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11931,2,av);} a=C_alloc(3); t2=C_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[72],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11404 in k11385 in a11363 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in ... */ static void C_ccall f_11406(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11406,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[293],((C_word*)t0)[3],((C_word*)t0)[3],t2); t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[50],((C_word*)t0)[5],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4606 in k4597 in loop in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_4608,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_4620,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* expand.scm:278: ##sys#check-syntax */ t5=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t4; av2[2]=lf[55]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[56]; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} else{ /* expand.scm:289: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k5839 in loop in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_5841(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_5841,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5848,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5852,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* expand.scm:496: reverse */ t4=*((C_word*)lf[69]+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);}} else{ t2=((C_word*)t0)[4]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[6],((C_word*)t0)[5]); /* expand.scm:497: loop */ t5=((C_word*)((C_word*)t0)[7])[1]; f_5822(t5,((C_word*)t0)[2],t3,t4);}} /* k5846 in k5839 in loop in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_5848(C_word c,C_word *av){ C_word tmp; 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_5848,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[104],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5181 in g796 in k4984 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_5183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_5183,2,av);} a=C_alloc(30); t2=C_a_i_list(&a,2,lf[71],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[72],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[73],t13); t15=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ 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[73],t8); t10=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ 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);}}} /* k11132 in k11063 in k11060 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 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; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_11134,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* a11926 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_11927,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11931,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:960: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[223]; av2[3]=t2; av2[4]=lf[352]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11923 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11925(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11925,2,av);} /* expand.scm:955: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* g796 in k4984 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_5130,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_5183,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_5187,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* expand.scm:366: ##sys#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);}} /* k9942 in test in k9897 in k9894 in k9891 in k9888 in a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_9944,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=C_eqp(((C_word*)t0)[2],C_SCHEME_END_OF_LIST); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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)[2]))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9962,a[2]=((C_word*)t0)[2],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); t4=C_u_i_car(((C_word*)t0)[2]); /* expand.scm:1392: test */ t5=((C_word*)((C_word*)t0)[5])[1]; f_9911(t5,t3,t4);} else{ /* expand.scm:1394: err */ t3=((C_word*)((C_word*)t0)[6])[1]; f_9901(t3,((C_word*)t0)[3],((C_word*)t0)[7]);}}} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9982,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],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp); /* expand.scm:1395: c */ t3=((C_word*)t0)[9];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t0)[11]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} /* k10763 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in ... */ static void C_ccall f_10765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10765,2,av);} /* expand.scm:1215: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5858 in k5850 in k5839 in loop in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5860,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* expand.scm:496: ##sys#append */ t3=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 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=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_10767,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10771,a[2]=t2,a[3]=t1,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1220: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[298]; av2[3]=t2; av2[4]=lf[305]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* ##sys#extended-lambda-list? in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_4894,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_4900,a[2]=t4,a[3]=((C_word)li44),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_4900(t6,t1,t2);} /* k10753 in expand in k10718 in a10715 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in ... */ static void C_ccall f_10755(C_word c,C_word *av){ C_word tmp; 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_10755,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[50],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a11363 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 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=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_11364,5,av);} a=C_alloc(6); t5=C_i_cdr(t2); if(C_truep(C_i_nullp(t5))){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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_11387,a[2]=t8,a[3]=t7,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1148: r */ t10=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=lf[77]; ((C_proc)C_fast_retrieve_proc(t10))(3,av2);}}}} /* k11360 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11362,2,av);} /* expand.scm:1136: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[221]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* rename in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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,3)))){ av[0]=t0; av[1]=t1; av[2]=t2; C_save_and_reclaim((void *)f_7487,3,av);} a=C_alloc(7); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7501,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:808: 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_7522,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7526,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* expand.scm:810: vector->list */ t5=*((C_word*)lf[179]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ if(C_truep(C_i_symbolp(t2))){ t3=C_i_assq(t2,((C_word*)((C_word*)t0)[3])[1]); if(C_truep(t3)){ t4=t1; t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_cdr(t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=( /* expand.scm:816: lookup */ f_3670(t2,((C_word*)t0)[4]) ); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7556,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li94),tmp=(C_word)a,a+=6,tmp); /* expand.scm:803: g1452 */ t6=t5; f_7556(t6,t1,t4);} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7624,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* expand.scm:837: macro-alias */ f_3687(t5,t2,((C_word*)t0)[4]);}}} else{ t3=t2; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}} /* k10487 in k10442 in k10416 in simplify in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in ... */ static void C_ccall f_10489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10489,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=t1; t4=C_i_assq(lf[282],t3); t5=t2;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ 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; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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_7485,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_7487,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li95),tmp=(C_word)a,a+=6,tmp)); t11=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7641,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=((C_word)li99),tmp=(C_word)a,a+=5,tmp)); t12=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7878,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp)); t13=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7903,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)li101),tmp=(C_word)a,a+=8,tmp)); if(C_truep(((C_word*)t0)[5])){ /* expand.scm:916: handler */ t14=((C_word*)t0)[6];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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_8031,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_8035,a[2]=((C_word*)t0)[6],a[3]=t14,a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* expand.scm:922: rename */ t16=((C_word*)t3)[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t16; av2[1]=t15; av2[2]=((C_word*)t0)[8]; f_7487(3,av2);}}} /* err in k9897 in k9894 in k9891 in k9888 in a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in ... */ static void C_fcall f_9901(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_9901,3,t0,t1,t2);} a=C_alloc(3); t3=C_a_i_cons(&a,2,lf[265],((C_word*)t0)[2]); /* expand.scm:1380: ##sys#error */ t4=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=lf[266]; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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(8,c,5)))){ C_save_and_reclaim((void *)f_7472,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7478,a[2]=t3,a[3]=t2,a[4]=((C_word)li102),tmp=(C_word)a,a+=5,tmp); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_record2(&a,2,lf[24],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_7478,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_7485,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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t7; f_7485(2,av2);}} else{ /* expand.scm:803: ##sys#error */ t9=*((C_word*)lf[25]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; av2[2]=lf[182]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}} /* k9017 in k9025 in k9004 in k9001 in k8998 in k8986 in k8980 in k8977 */ static void C_ccall f_9019(C_word c,C_word *av){ C_word tmp; 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_9019,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[70],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9279 in k9249 */ static void C_ccall f_9281(C_word c,C_word *av){ C_word tmp; C_word 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_9281,2,av);} /* synrules.scm:276: free-meta-variables */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7919 in k7915 in mirror-rename in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_7921(C_word c,C_word *av){ C_word tmp; 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_7921,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* a11452 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 in ... */ static void C_ccall f_11453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11453,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11457,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1115: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[315]; av2[3]=t2; av2[4]=lf[317]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11455 in a11452 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in ... */ 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 t3; 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_11457,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[316],t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11480,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:1110: ##sys#append */ t10=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[95],t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11449 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 in ... */ static void C_ccall f_11451(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11451,2,av);} /* expand.scm:1110: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[315]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k11326 in k11310 in k11298 in k11060 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11328,2,av);} t2=C_i_caar(((C_word*)t0)[2]); /* expand.scm:1184: c */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10789 in k10786 in k10783 in k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in ... */ static void C_ccall f_10791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_10791,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_10802,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_10804,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)li159),tmp=(C_word)a,a+=10,tmp)); t10=((C_word*)t8)[1]; f_10804(t10,t6,((C_word*)t0)[9],C_SCHEME_FALSE);} /* k7915 in mirror-rename in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_7917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7917,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7921,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:891: mirror-rename */ t6=((C_word*)((C_word*)t0)[4])[1]; f_7903(t6,t3,t5);} /* k11310 in k11298 in k11060 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in ... */ static void C_ccall f_11312(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11312,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; f_11065(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_11328,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:1184: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[210]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_11065(2,av2);}}}} /* map-loop1134 in k6128 in loop in fini/syntax in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_6135(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_6135,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_mutate2(((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);}}} /* f_8426 in k8322 in k8317 in k8313 in k8309 in k8305 in k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in ... */ 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=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_8426,3,av);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8433,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_8433(t7,C_i_nullp(t6));} else{ t6=t3; f_8433(t6,C_SCHEME_FALSE);}} else{ t4=t3; f_8433(t4,C_SCHEME_FALSE);}} /* k6131 in k6128 in loop in fini/syntax in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6133,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[106],t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list(&a,1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6128 in loop in fini/syntax in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_6130,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6133,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_6135,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word)li63),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_6135(t6,t2,t1);} /* mirror-rename in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_7903(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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(7,0,2)))){ C_save_and_reclaim_args((void *)trf_7903,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7917,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:891: mirror-rename */ t9=t3; t10=t5; t1=t9; t2=t10; goto loop;} else{ if(C_truep(C_i_vectorp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7938,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7942,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* expand.scm:893: vector->list */ t5=*((C_word*)lf[179]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ if(C_truep(C_i_symbolp(t2))){ t3=( /* expand.scm:896: lookup */ f_3670(t2,((C_word*)t0)[3]) ); t4=( /* expand.scm:897: assq-reverse */ f_7878(t2,((C_word*)((C_word*)t0)[5])[1]) ); if(C_truep(t4)){ t5=t1; t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_i_car(t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ if(C_truep(t3)){ if(C_truep(C_i_pairp(t3))){ /* expand.scm:903: rename */ t5=((C_word*)((C_word*)t0)[6])[1];{ C_word av2[3]; av2[0]=t5; av2[1]=t1; av2[2]=t2; f_7487(3,av2);}} else{ t5=t2; t6=C_i_getprop(t5,lf[7],C_SCHEME_FALSE); if(C_truep(t6)){ t7=t1; t8=t7;{ C_word av2[2]; av2[0]=t8; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ /* expand.scm:910: rename */ t7=((C_word*)((C_word*)t0)[6])[1];{ C_word av2[3]; av2[0]=t7; av2[1]=t1; av2[2]=t2; f_7487(3,av2);}}}} else{ /* expand.scm:901: rename */ t5=((C_word*)((C_word*)t0)[6])[1];{ C_word av2[3]; av2[0]=t5; av2[1]=t1; av2[2]=t2; f_7487(3,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);}}}}} /* k11298 in k11060 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in ... */ static void C_ccall f_11300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_11300,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; f_11065(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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; f_11065(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11312,a[2]=((C_word*)t0)[2],a[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:1182: ##sys#srfi-4-vector? */ t6=*((C_word*)lf[311]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}} /* k4815 in loop in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4817,2,av);} t2=( /* expand.scm:273: lookup */ f_3670(((C_word*)((C_word*)t0)[2])[1],t1) ); if(C_truep(t2)){ t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3]; f_4599(t4,t3);} else{ t3=((C_word*)((C_word*)t0)[2])[1]; t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t3); t5=((C_word*)t0)[3]; f_4599(t5,t4);}} /* map-loop898 in a5555 in expand-multiple-values-assignment in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_5692(C_word t0,C_word t1,C_word 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_5692,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_5717,a[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:451: g904 */ 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);}}} /* k8460 in k8452 in k8467 in k8431 */ static void C_ccall f_8462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8462,2,av);} /* synrules.scm:124: process-template */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8452 in k8467 in k8431 */ 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; 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_8454,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8458,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_8462,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* synrules.scm:126: meta-variables */ t5=((C_word*)((C_word*)t0)[7])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8456 in k8452 in k8467 in k8431 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ C_save_and_reclaim((void *)f_8458,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; /* Re-use our own argvector */ 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);}} /* k8431 */ static void C_fcall f_8433(C_word t0,C_word 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_8433,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_8469,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:120: 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:127: ##sys#syntax-error-hook */ t2=*((C_word*)lf[41]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[208]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k9960 in k9942 in test in k9897 in k9894 in k9891 in k9888 in a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9962,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,((C_word*)t0)[3],t2); /* expand.scm:1393: test */ t4=((C_word*)((C_word*)t0)[4])[1]; f_9911(t4,((C_word*)t0)[5],t3);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a8463 in k8467 in k8431 */ static void C_ccall f_8464(C_word c,C_word *av){ C_word tmp; C_word 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_8464,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8467 in k8431 */ static void C_ccall f_8469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8469,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_8454,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_8464,a[2]=((C_word)li111),tmp=(C_word)a,a+=3,tmp); /* synrules.scm:121: process-pattern */ t6=((C_word*)((C_word*)t0)[9])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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(9,c,5)))){ C_save_and_reclaim((void *)f_8165,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8168,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11561,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11563,a[2]=((C_word)li169),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1077: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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(9,c,5)))){ C_save_and_reclaim((void *)f_8168,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8171,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11539,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11541,a[2]=((C_word)li168),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1086: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k10398 in k10394 in k10340 in k10319 in k10286 in walk1 in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_ccall f_10400(C_word c,C_word *av){ C_word tmp; 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_10400,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[201],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5991 in k5965 in map-loop1074 in k5953 in k5950 in k5947 in k5921 in k5915 in k5912 in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_5993(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_5993,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((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_5960(t8,((C_word*)t0)[7],t5,t6,t7);} /* k9980 in k9942 in test in k9897 in k9894 in k9891 in k9888 in a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_9982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9982,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_eqp(((C_word*)t0)[2],C_SCHEME_END_OF_LIST); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9997,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); t4=C_u_i_car(((C_word*)t0)[2]); /* expand.scm:1398: test */ t5=((C_word*)((C_word*)t0)[5])[1]; f_9911(t5,t3,t4);} else{ /* expand.scm:1400: err */ t3=((C_word*)((C_word*)t0)[6])[1]; f_9901(t3,((C_word*)t0)[3],((C_word*)t0)[7]);}}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10024,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* expand.scm:1401: c */ t3=((C_word*)t0)[8];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[10]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} /* test in k9897 in k9894 in k9891 in k9888 in a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in ... */ static void C_fcall f_9911(C_word t0,C_word t1,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_9911,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_symbolp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9925,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* expand.scm:1384: ##sys#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{ if(C_truep(C_i_pairp(t2))){ t3=C_i_car(t2); t4=t3; t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9944,a[2]=t6,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],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=t4,tmp=(C_word)a,a+=12,tmp); /* expand.scm:1389: c */ t8=((C_word*)t0)[6];{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[2]; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t8))(4,av2);}} else{ /* expand.scm:1385: err */ t3=((C_word*)((C_word*)t0)[4])[1]; f_9901(t3,t1,t2);}}} /* loop in fini/syntax in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_6108(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(11,0,4)))){ C_save_and_reclaim_args((void *)trf_6108,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_6130,a[2]=t2,a[3]=t1,a[4]=t7,a[5]=t8,tmp=(C_word)a,a+=6,tmp); /* expand.scm:526: reverse */ t10=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ if(C_truep(C_i_pairp(t2))){ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6182,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); if(C_truep(C_i_listp(t6))){ t7=t2; t8=C_u_i_car(t7); t9=C_i_length(t8); if(C_truep(C_fixnum_greater_or_equal_p(C_fix(3),t9))){ t10=C_i_caar(t2); if(C_truep(C_i_symbolp(t10))){ t11=t2; t12=C_u_i_car(t11); t13=C_u_i_car(t12); /* expand.scm:531: comp */ t14=t5; f_6182(t14,( /* expand.scm:531: comp */ f_5744(((C_word*)((C_word*)t0)[3])[1],lf[102],t13) ));} else{ t11=t5; f_6182(t11,C_SCHEME_FALSE);}} else{ t10=t5; f_6182(t10,C_SCHEME_FALSE);}} else{ t7=t5; f_6182(t7,C_SCHEME_FALSE);}} else{ /* expand.scm:527: loop */ t15=t1; t16=t2; t17=t3; t18=C_SCHEME_TRUE; t1=t15; t2=t16; t3=t17; t4=t18; goto loop;}}} /* k6104 in fini/syntax in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6106(C_word c,C_word *av){ C_word tmp; C_word 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_6106,2,av);} /* expand.scm:522: fini */ t2=((C_word*)((C_word*)t0)[2])[1]; f_5810(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);} /* k5602 in k5580 in k5561 in k5558 in a5555 in expand-multiple-values-assignment in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_5604,2,av);} a=C_alloc(12); if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ /* expand.scm:450: ##sys#append */ t2=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=lf[94]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ if(C_truep(C_i_nullp(((C_word*)t0)[4]))){ /* expand.scm:450: ##sys#append */ t2=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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[95],((C_word*)t0)[5],((C_word*)t0)[4]); t3=C_a_i_list(&a,1,t2); /* expand.scm:450: ##sys#append */ t4=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}}} /* k9923 in test in k9897 in k9894 in k9891 in k9888 in a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_ccall f_9925(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9925,2,av);} /* expand.scm:1384: ##sys#feature? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[267]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[267]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k10786 in k10783 in k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in ... */ static void C_ccall f_10788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10788,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10791,a[2]=((C_word*)t0)[2],a[3]=((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:1227: r */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[227]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k10783 in k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_10785,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10788,a[2]=((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:1226: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[303]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k10416 in simplify in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10418,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10422,a[2]=((C_word*)t0)[2],a[3]=((C_word)li148),tmp=(C_word)a,a+=4,tmp); /* expand.scm:1303: g2191 */ t3=t2; f_10422(t3,((C_word*)t0)[3],t1);} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10444,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:1338: match-expression */ f_6603(t2,((C_word*)t0)[4],lf[286],lf[287]);}} /* k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in ... */ static void C_ccall f_10782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10782,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10785,a[2]=((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:1225: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[304]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8127 in k8107 in loop in check-for-multiple-bindings in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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(0,c,4)))){ C_save_and_reclaim((void *)f_8129,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_u_i_car(t3); /* expand.scm:1054: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[188]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[188]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t4; av2[4]=((C_word*)t0)[4]; tp(5,av2);}} /* simplify in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in ... */ static void C_fcall f_10414(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_10414,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10418,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1336: match-expression */ f_6603(t3,t2,lf[288],lf[289]);} /* a9830 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in ... */ static void C_ccall f_9831(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,2)))){ C_save_and_reclaim((void *)f_9831,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9839,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1444: r */ t6=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[244]; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} /* k9837 in a9830 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in ... */ 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; 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_9839,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9847,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1444: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[262]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in ... */ static void C_ccall f_10779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10779,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10782,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:1224: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[221]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in ... */ static void C_ccall f_10771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_10771,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_10779,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:1223: r */ t8=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=lf[77]; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}} /* k11878 in a11875 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11880,2,av);} a=C_alloc(3); t2=C_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[293],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop927 in k5580 in k5561 in k5558 in a5555 in expand-multiple-values-assignment in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_5626(C_word t0,C_word t1,C_word 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_5626,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[95],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_mutate2(((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);}}} /* k8305 in k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(53,c,2)))){ C_save_and_reclaim((void *)f_8307,2,av);} a=C_alloc(53); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|52,a[1]=(C_word)f_8311,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)[2],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],tmp=(C_word)a,a+=53,tmp); /* synrules.scm:97: r */ t4=((C_word*)t0)[51];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[220]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in ... */ static void C_ccall f_8302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(53,c,2)))){ C_save_and_reclaim((void *)f_8302,2,av);} a=C_alloc(53); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,lf[207]); t3=(*a=C_CLOSURE_TYPE|52,a[1]=(C_word)f_8307,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)[2],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],tmp=(C_word)a,a+=53,tmp); /* synrules.scm:96: r */ t4=((C_word*)t0)[51];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[210]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8107 in loop in check-for-multiple-bindings in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_8109(C_word 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_8109,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8112,a[2]=((C_word*)t0)[2],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_8129,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* expand.scm:1055: string-append */ t4=*((C_word*)lf[36]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=lf[189]; av2[3]=((C_word*)t0)[8]; av2[4]=lf[190]; ((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]); /* expand.scm:1059: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_8096(t6,((C_word*)t0)[5],t3,t5,((C_word*)t0)[3]);}} /* k11889 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11891,2,av);} /* expand.scm:971: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[138]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11892 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_11893,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11897,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:976: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[138]; av2[3]=t2; av2[4]=lf[350]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* g2191 in k10416 in simplify in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in ... */ static void C_fcall f_10422(C_word 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_10422,3,t0,t1,t2);} a=C_alloc(6); t3=C_i_assq(lf[282],t2); t4=C_i_cdr(t3); t5=C_a_i_list(&a,2,lf[275],t4); /* expand.scm:1337: simplify */ t6=((C_word*)((C_word*)t0)[2])[1]; f_10414(t6,t1,t5);} /* k9819 in k9656 in a9650 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_ccall f_9821(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9821,2,av);} t2=C_i_caddr(((C_word*)t0)[2]); /* expand.scm:1453: c */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11861 in a11858 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11863,2,av);} a=C_alloc(3); t2=C_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[104],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9827 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in ... */ 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,4)))){ C_save_and_reclaim((void *)f_9829,2,av);} /* expand.scm:1439: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[261]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k11895 in a11892 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_11897,2,av);} a=C_alloc(6); t2=C_i_cadr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,2,lf[209],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_9298 in k8322 in k8317 in k8313 in k8309 in k8305 in k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 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=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_9298,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9305,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* synrules.scm:285: segment-template? */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k9294 in k9249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9296,2,av);} /* synrules.scm:281: free-meta-variables */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4414 in k4403 in copy in k4369 in a4359 in a4353 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_4416,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[35],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a9869 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in ... */ static void C_ccall f_9870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(9,c,1)))){ C_save_and_reclaim((void *)f_9870,5,av);} a=C_alloc(9); t5=C_i_cdr(t2); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_list(&a,3,lf[263],t5,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k11872 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11874,2,av);} /* expand.scm:979: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[310]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5915 in k5912 in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 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_5917,2,av);} a=C_alloc(15); t2=C_i_check_list_2(t1,lf[16]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5923,a[2]=((C_word*)t0)[2],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_6022,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=((C_word*)t0)[8],a[5]=((C_word)li59),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_6022(t7,t3,t1);} /* a8858 in k8828 */ static void C_ccall f_8859(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8859,3,av);} a=C_alloc(21); t3=C_eqp(((C_word*)((C_word*)t0)[2])[1],t2); if(C_truep(t3)){ /* synrules.scm:184: mapit */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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:184: mapit */ t7=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t1; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}} /* k9805 in k9662 in k9656 in a9650 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9807,2,av);} /* expand.scm:1493: ##sys#validate-exports */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[243]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[248]; tp(4,av2);}} /* k4403 in copy in k4369 in a4359 in a4353 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4405(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_4405,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4416,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:226: string-append */ t5=*((C_word*)lf[36]+1);{ C_word av2[6]; av2[0]=t5; av2[1]=t2; av2[2]=lf[37]; av2[3]=t3; av2[4]=lf[38]; av2[5]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ /* expand.scm:232: copy */ t2=((C_word*)((C_word*)t0)[5])[1]; f_4388(t2,((C_word*)t0)[3],((C_word*)t0)[2]);}} /* k5912 in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ 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(15,c,4)))){ C_save_and_reclaim((void *)f_5914,2,av);} a=C_alloc(15); t2=(*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]=((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_6056,a[2]=t4,a[3]=((C_word)li61),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_6056(t6,t2,t1,C_SCHEME_END_OF_LIST);} /* a11875 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_11876,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11880,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:984: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[310]; av2[3]=t2; av2[4]=lf[349]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* map-loop1026 in k5915 in k5912 in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_6022(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_6022,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[105]); 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_mutate2(((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);}}} /* k9590 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9592,2,av);} /* expand.scm:1516: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[239]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a9593 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 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=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_9594,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9598,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9611,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=C_i_cdr(t2); /* expand.scm:1523: ##sys#strip-syntax */ t8=*((C_word*)lf[12]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k9853 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in ... */ static void C_ccall f_9855(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9855,2,av);} /* expand.scm:1431: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[262]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a9856 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in ... */ static void C_ccall f_9857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(9,c,1)))){ C_save_and_reclaim((void *)f_9857,5,av);} a=C_alloc(9); t5=C_i_cdr(t2); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_list(&a,3,lf[263],t5,C_SCHEME_TRUE); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k6180 in loop in fini/syntax in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_6182(C_word t0,C_word t1){ C_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(13,0,4)))){ C_save_and_reclaim_args((void *)trf_6182,2,t0,t1);} a=C_alloc(13); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6196,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t5,tmp=(C_word)a,a+=6,tmp); t7=C_i_cadr(t3); if(C_truep(C_i_pairp(t7))){ t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6206,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t5,tmp=(C_word)a,a+=7,tmp); /* expand.scm:537: caadr */ t9=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t8=C_u_i_car(t3); t9=C_u_i_cdr(t3); t10=C_u_i_car(t9); t11=C_eqp(t8,t10); if(C_truep(t11)){ /* expand.scm:543: ##sys#defjam-error */ t12=*((C_word*)lf[90]+1);{ C_word av2[3]; av2[0]=t12; av2[1]=t6; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t12=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]); /* expand.scm:533: loop */ t13=((C_word*)((C_word*)t0)[4])[1]; f_6108(t13,((C_word*)t0)[5],t5,t12,C_SCHEME_FALSE);}}} else{ /* expand.scm:547: loop */ t2=((C_word*)((C_word*)t0)[4])[1]; f_6108(t2,((C_word*)t0)[5],((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_TRUE);}} /* k9596 in a9593 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_9598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9598,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9601,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1525: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[242]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[242]+1); av2[1]=t3; tp(2,av2);}} /* k9866 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in ... */ static void C_ccall f_9868(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9868,2,av);} /* expand.scm:1423: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[264]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6081 in foldl1049 in k5912 in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6082,5,av);} t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k6078 in foldl1049 in k5912 in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6080,2,av);} /* expand.scm:504: ##sys#append */ t2=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6084 in foldl1049 in k5912 in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6086(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6086,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_6056(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k6789 in k6785 in loop in k6760 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6791(C_word c,C_word *av){ C_word tmp; 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_6791,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k9125 in k8977 */ static void C_ccall f_9127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9127,2,av);} /* synrules.scm:240: process-template */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* g2198 in k10442 in k10416 in simplify in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in ... */ static void C_fcall f_10448(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_10448,3,t0,t1,t2);} a=C_alloc(6); t3=C_i_assq(lf[283],t2); t4=C_i_length(t3); if(C_truep(C_fixnum_lessp(t4,C_fix(32)))){ t5=C_i_assq(lf[282],t2); t6=C_i_cdr(t5); t7=C_u_i_cdr(t3); t8=C_a_i_cons(&a,2,t6,t7); t9=C_a_i_cons(&a,2,lf[275],t8); /* expand.scm:1342: simplify */ t10=((C_word*)((C_word*)t0)[2])[1]; f_10414(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);}}} /* k8368 */ static void C_ccall f_8370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8370,2,av);} a=C_alloc(15); t2=C_a_i_list(&a,2,lf[45],((C_word*)((C_word*)t0)[2])[1]); t3=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[3])[1],t2); t4=C_a_i_list(&a,1,t3); /* synrules.scm:61: ##sys#append */ t5=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10442 in k10416 in simplify in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 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; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10444,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10448,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li149),tmp=(C_word)a,a+=5,tmp); /* expand.scm:1303: g2198 */ t3=t2; f_10448(t3,((C_word*)t0)[4],t1);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10489,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* expand.scm:1345: match-expression */ f_6603(t2,((C_word*)t0)[3],lf[284],lf[285]);}} /* f_9326 in k8322 in k8317 in k8313 in k8309 in k8305 in k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in ... */ static void C_ccall f_9326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9326,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:296: ellipsis? */ t6=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* err in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4944(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_4944,3,t0,t1,t2);} /* expand.scm:341: 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);}} /* k9554 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9556,2,av);} /* synrules.scm:44: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop2464 */ static void C_fcall f_8384(C_word t0,C_word t1,C_word 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_8384,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_8409,a[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:110: g2470 */ 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);}}} /* k9550 in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in ... */ static void C_ccall f_9552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9552,2,av);} /* expand.scm:1559: ##sys#fixup-macro-environment */ t2=*((C_word*)lf[232]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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#expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_4941,6,av);} a=C_alloc(18); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4944,a[2]=t4,a[3]=t2,a[4]=((C_word)li46),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_4961,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:346: macro-alias */ f_3687(t11,lf[88],*((C_word*)lf[89]+1));} /* k9546 in k9538 in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in ... */ static void C_ccall f_9548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9548,2,av);} /* expand.scm:1561: make-parameter */ t2=*((C_word*)lf[234]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8903 in k8828 */ 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; C_word 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_8905,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8909,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:193: process-pattern */ t7=((C_word*)((C_word*)t0)[6])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8907 in k8903 in k8828 */ static void C_ccall f_8909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8909,2,av);} /* synrules.scm:192: append */ t2=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9560 in a9557 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 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 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,6)))){ C_save_and_reclaim((void *)f_9562,2,av);} a=C_alloc(14); 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[236]; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); if(C_truep(C_i_symbolp(((C_word*)t4)[1]))){ t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9579,a[2]=t10,a[3]=t4,a[4]=t8,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); /* synrules.scm:54: ##sys#check-syntax */ t12=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t12; av2[1]=t11; av2[2]=lf[235]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[237]; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} else{ /* synrules.scm:58: ##sys#process-syntax-rules */ t11=*((C_word*)lf[191]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t11; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t10)[1]; av2[3]=((C_word*)t8)[1]; av2[4]=((C_word*)t4)[1]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t11+1)))(7,av2);}}} /* foldl1049 in k5912 in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_6056(C_word t0,C_word t1,C_word 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_6056,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_6086,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_6080,a[2]=t8,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6082,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp); /* expand.scm:504: ##sys#decompose-lambda-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[96]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[96]+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);}}} /* a9557 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_9558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9558,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9562,a[2]=t2,a[3]=t1,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* synrules.scm:49: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[235]; av2[3]=t2; av2[4]=lf[238]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k7622 in rename in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_7624(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7624,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_mutate2(((C_word *)((C_word*)t0)[3])+1,t3); t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_4964,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4967,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:349: macro-alias */ f_3687(t3,lf[86],*((C_word*)lf[20]+1));} /* k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 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_4967,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_4972,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)li49),tmp=(C_word)a,a+=12,tmp)); t6=((C_word*)t4)[1]; f_4972(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]);} /* k9171 in k9156 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9173,2,av);} /* synrules.scm:252: meta-variables */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_4961,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4964,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:348: macro-alias */ f_3687(t3,lf[87],*((C_word*)lf[20]+1));} /* f_9350 in k8322 in k8317 in k8313 in k8309 in k8305 in k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in ... */ static void C_ccall f_9350(C_word c,C_word *av){ C_word tmp; C_word 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_9350,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9357,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* synrules.scm:301: segment-template? */ t4=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k9355 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9357,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9364,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cdr(((C_word*)t0)[3]); /* synrules.scm:302: segment-depth */ t4=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9577 in k9560 in a9557 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in ... */ static void C_ccall f_9579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_9579,2,av);} t2=C_mutate2(((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_mutate2(((C_word *)((C_word*)t0)[3])+1,t3); t5=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]); t6=C_mutate2(((C_word *)((C_word*)t0)[4])+1,t5); /* synrules.scm:58: ##sys#process-syntax-rules */ t7=*((C_word*)lf[191]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t7; av2[1]=((C_word*)t0)[5]; 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)[3])[1]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t7+1)))(7,av2);}} /* k7605 in g1452 in rename in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ 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(6,c,1)))){ C_save_and_reclaim((void *)f_7607,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_mutate2(((C_word *)((C_word*)t0)[3])+1,t3); t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k10295 in k10286 in walk1 in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in ... */ static void C_ccall f_10297(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10297,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_car(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9362 in k9355 */ 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,1)))){ C_save_and_reclaim((void *)f_9364,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fixnum_plus(C_fix(1),t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9190 in k9156 */ static void C_ccall f_9192(C_word c,C_word *av){ C_word tmp; C_word 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_9192,2,av);} /* synrules.scm:255: meta-variables */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6194 in k6180 in loop in fini/syntax in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ 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(3,c,4)))){ C_save_and_reclaim((void *)f_6196,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* expand.scm:533: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6108(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2,C_SCHEME_FALSE);} /* k10286 in walk1 in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in ... */ static void C_ccall f_10288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_10288,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_10297,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* expand.scm:1317: ##sys#check-syntax */ t4=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[278]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[279]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=C_a_i_list(&a,2,lf[71],((C_word*)t0)[6]); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10311,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:1320: walk */ t7=((C_word*)((C_word*)t0)[7])[1]; f_10241(t7,t5,((C_word*)t0)[4],t6);}} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10321,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:1321: c */ t3=((C_word*)t0)[11];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* fini/syntax in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_6098(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_6098,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(14); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6106,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_6108,a[2]=t8,a[3]=((C_word*)t0)[3],a[4]=((C_word)li64),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_6108(t10,t6,t5,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} /* k5218 in map-loop790 in k5188 in k4984 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5220,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5195(t6,((C_word*)t0)[5],t5);} /* k9599 in k9596 in a9593 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_9601,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9604,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ /* expand.scm:1527: ##sys#add-to-export-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[241]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[241]+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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[240]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9602 in k9599 in k9596 in a9593 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in ... */ static void C_ccall f_9604(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9604,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[240]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9609 in a9593 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_9611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9611,2,av);} /* expand.scm:1522: ##sys#validate-exports */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[243]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[239]; tp(4,av2);}} /* k9617 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in ... */ static void C_ccall f_9619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9619,2,av);} /* expand.scm:1507: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8675 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_8677,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_8756,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:162: process-match */ t27=((C_word*)((C_word*)t0)[18])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_8673 in k8322 in k8317 in k8313 in k8309 in k8305 in k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in ... */ static void C_ccall f_8673(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_8673,4,av);} a=C_alloc(25); t4=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_8677,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:154: process-match */ t7=((C_word*)((C_word*)t0)[15])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5232 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5234,2,av);} /* expand.scm:358: ##sys#append */ t2=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8638 in k8524 */ static void C_fcall f_8640(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_8640,2,t0,t1);} a=C_alloc(18); if(C_truep(t1)){ t2=C_a_i_list(&a,2,lf[210],((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[210],((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);}}} /* k4643 in k4708 in k4618 in k4606 in k4597 in loop in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_4645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4645,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[53],t2); /* expand.scm:280: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop662 in k4708 in k4618 in k4606 in k4597 in loop in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4647(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_4647,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_mutate2(((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);}}} /* k10225 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in ... */ 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,4)))){ C_save_and_reclaim((void *)f_10227,2,av);} /* expand.scm:1299: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[277]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 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=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_10229,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10233,a[2]=t4,a[3]=t2,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1304: r */ t6=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[277]; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} /* k10198 in a10195 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_10200,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10207,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* expand.scm:1357: r */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[271]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} /* k6785 in loop in k6760 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 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_6787,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6791,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:659: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_6767(t6,t3,t5);} /* k9647 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9649,2,av);} /* expand.scm:1446: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[248]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5000 in k4988 in k4984 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_5002(C_word 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_5002,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_5033,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:375: cadar */ t5=*((C_word*)lf[68]+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_word*)((C_word*)t0)[8])[1]; t3=(C_truep(t2)?C_SCHEME_FALSE:C_i_nullp(((C_word*)t0)[9])); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5058,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:379: reverse */ t5=*((C_word*)lf[69]+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_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); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5081,a[2]=((C_word*)t0)[8],a[3]=t4,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* expand.scm:382: reverse */ t6=*((C_word*)lf[69]+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);}}}} /* k7206 in doloop1398 in k7182 in walk in k7158 in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7208,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_7189(t4,((C_word*)t0)[5],t2,t3);} /* ##sys#macro-subset in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in ... */ static void C_ccall f_9407(C_word c,C_word *av){ C_word tmp; C_word 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_9407,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_9414,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9421,a[2]=t2,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1539: ##sys#macro-environment */ t9=*((C_word*)lf[19]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* a9650 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in ... */ static void C_ccall f_9651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9651,5,av);} a=C_alloc(7); t5=C_i_length(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9658,a[2]=t6,a[3]=t1,a[4]=t3,a[5]=t2,a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* expand.scm:1452: ##sys#check-syntax */ t8=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=lf[248]; av2[3]=t2; av2[4]=lf[260]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} /* k9656 in a9650 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_9658,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|5,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]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],C_fix(4)))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9821,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1453: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[250]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_9664(2,av2);}}} /* k5381 in k5273 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5383,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_5364(t3,t2);} /* k10205 in k10198 in a10195 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in ... */ static void C_ccall f_10207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10207,2,av);} a=C_alloc(30); t2=C_i_cadr(((C_word*)t0)[2]); t3=C_a_i_list(&a,3,lf[72],C_SCHEME_END_OF_LIST,t2); t4=C_a_i_list(&a,3,lf[93],t3,lf[275]); t5=C_a_i_list(&a,2,lf[272],t4); t6=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_list(&a,2,t1,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a9620 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in ... */ static void C_ccall f_9621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9621,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9625,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1512: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[244]; av2[3]=t2; av2[4]=lf[247]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9623 in a9620 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_ccall f_9625(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9625,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9628,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[104],t3); /* expand.scm:1513: ##sys#register-meta-expression */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[246]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[246]+1); av2[1]=t2; av2[2]=t4; tp(3,av2);}} /* k9626 in k9623 in a9620 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9628,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[104],t3); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_list(&a,2,lf[245],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* walk1 in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in ... */ static void C_fcall f_10251(C_word t0,C_word t1,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_10251,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_10265,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10269,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1310: vector->list */ t6=*((C_word*)lf[179]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ if(C_truep(C_i_pairp(t2))){ t4=C_i_car(t2); t5=t4; t6=t2; t7=C_u_i_cdr(t6); t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10288,a[2]=t3,a[3]=t1,a[4]=t7,a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[4],a[9]=t5,a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],tmp=(C_word)a,a+=12,tmp); /* expand.scm:1315: c */ t9=((C_word*)t0)[6];{ C_word av2[4]; av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[3]; av2[3]=t5; ((C_proc)C_fast_retrieve_proc(t9))(4,av2);}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_list(&a,2,lf[71],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k10267 in walk1 in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10269,2,av);} /* expand.scm:1310: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10241(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k10263 in walk1 in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_10265,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[197],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* walk in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in ... */ static void C_fcall f_10241(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_10241,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10249,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1307: walk1 */ t5=((C_word*)((C_word*)t0)[3])[1]; f_10251(t5,t4,t2,t3);} /* k6348 in loop2 in k6330 in k6312 in loop in expand in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 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_6350,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6353,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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)){ /* expand.scm:568: ##sys#defjam-error */ t6=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t6=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_6353(2,av2);}}} /* k6351 in k6348 in loop2 in k6330 in k6312 in loop in expand in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6353(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_6353,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:569: loop */ t8=((C_word*)((C_word*)t0)[7])[1]; f_6294(t8,((C_word*)t0)[8],((C_word*)t0)[9],t3,t6,t7);} else{ t5=C_a_i_cons(&a,2,lf[111],((C_word*)t0)[5]); t6=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)t0)[6]); /* expand.scm:569: loop */ t7=((C_word*)((C_word*)t0)[7])[1]; f_6294(t7,((C_word*)t0)[8],((C_word*)t0)[9],t3,t5,t6);}} /* k10247 in walk in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 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(0,c,2)))){ C_save_and_reclaim((void *)f_10249,2,av);} /* expand.scm:1307: simplify */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10414(t2,((C_word*)t0)[3],t1);} /* g2010 in k10835 in k10816 in expand in k10789 in k10786 in k10783 in k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in ... */ static C_word C_fcall f_10925(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[210],t1); return(C_a_i_list(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t2));} /* k7940 in mirror-rename in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_7942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7942,2,av);} /* expand.scm:893: mirror-rename */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7903(t2,((C_word*)t0)[3],t1);} /* k9479 in g2741 in k9462 in fixup-macro-environment in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 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; 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];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_set_car(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11181 in k11178 in k11138 in k11063 in k11060 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 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 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_11183,2,av);} a=C_alloc(34); t2=t1; t3=C_i_car(((C_word*)t0)[2]); t4=C_a_i_list(&a,3,lf[72],C_SCHEME_END_OF_LIST,t3); t5=t4; t6=C_i_cadr(((C_word*)t0)[2]); t7=C_a_i_list(&a,3,lf[215],t6,t2); t8=t7; t9=C_i_cadddr(((C_word*)t0)[2]); t10=C_a_i_list(&a,3,lf[215],t9,t2); t11=t10; t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11210,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:1210: expand */ t13=((C_word*)((C_word*)t0)[4])[1]; f_11010(t13,t12,((C_word*)t0)[5],C_SCHEME_FALSE);} /* k11178 in k11138 in k11063 in k11060 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in ... */ static void C_ccall f_11180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_11180,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11183,a[2]=((C_word*)t0)[2],a[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:1203: r */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[77]; ((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[104],t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11237,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1213: expand */ t8=((C_word*)((C_word*)t0)[4])[1]; f_11010(t8,t7,((C_word*)t0)[5],C_SCHEME_FALSE);}} /* k6885 in k6882 in k6873 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_6887,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6890,a[2]=((C_word*)t0)[2],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:680: ##sys#print */ t3=*((C_word*)lf[124]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7936 in mirror-rename in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_7938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7938,2,av);} /* expand.scm:893: list->vector */ t2=*((C_word*)lf[178]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6882 in k6873 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6884,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6887,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:679: outstr */ t3=((C_word*)t0)[3]; f_6820(t3,t2,lf[137]);} /* k6873 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6875,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_6884,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:678: outstr */ t4=((C_word*)t0)[2]; f_6820(t4,t3,((C_word*)t0)[7]);} else{ t3=((C_word*)t0)[8]; t4=C_u_i_cdr(t3); /* expand.scm:699: loop */ t5=((C_word*)((C_word*)t0)[9])[1]; f_6836(t5,((C_word*)t0)[3],t4);}} /* k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6872(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_6872,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6875,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_6762,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6806,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* expand.scm:656: ##sys#strip-syntax */ t7=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k6204 in k6180 in loop in fini/syntax in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t3; C_word t4; C_word 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_6206,2,av);} a=C_alloc(24); t2=C_u_i_cdr(((C_word*)t0)[2]); t3=C_u_i_car(t2); t4=C_u_i_cdr(t3); t5=C_u_i_cdr(((C_word*)t0)[2]); t6=C_u_i_cdr(t5); t7=C_a_i_cons(&a,2,t4,t6); t8=C_a_i_cons(&a,2,lf[72],t7); t9=C_a_i_list(&a,2,lf[23],t8); t10=C_a_i_list(&a,3,lf[102],t1,t9); t11=C_a_i_cons(&a,2,t10,((C_word*)t0)[3]); /* expand.scm:533: loop */ t12=((C_word*)((C_word*)t0)[4])[1]; f_6108(t12,((C_word*)t0)[5],((C_word*)t0)[6],t11,C_SCHEME_FALSE);} /* k11537 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11539,2,av);} /* expand.scm:1083: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[325]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in ... */ static void C_ccall f_10233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10233,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10236,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:1305: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[278]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k11653 in k11650 in a11636 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_11655,2,av);} a=C_alloc(12); t2=C_i_getprop(((C_word*)t0)[2],lf[5],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_11666,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); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11690,a[2]=t5,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1033: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[242]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[242]+1); av2[1]=t6; tp(2,av2);}} /* k11650 in a11636 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_11652,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11655,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:1031: ##sys#check-syntax */ t3=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[102]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[341]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11855 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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,4)))){ C_save_and_reclaim((void *)f_11857,2,av);} /* expand.scm:987: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[347]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11858 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11859(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11859,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11863,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:992: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[347]; av2[3]=t2; av2[4]=lf[348]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11524 in k11521 in a11518 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11526,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[322],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11521 in a11518 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11523,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11526,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:1098: check-for-multiple-bindings */ f_8090(t2,t3,((C_word*)t0)[2],lf[323]);} /* k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 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(7,c,2)))){ C_save_and_reclaim((void *)f_10236,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10239,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:1306: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[280]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 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 t3; C_word t4; C_word t5; C_word 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_10239,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_10241,a[2]=t8,a[3]=t6,a[4]=((C_word)li146),tmp=(C_word)a,a+=5,tmp)); t10=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10251,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)li147),tmp=(C_word)a,a+=8,tmp)); t11=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10414,a[2]=t8,a[3]=((C_word)li150),tmp=(C_word)a,a+=4,tmp)); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10507,a[2]=((C_word*)t0)[5],a[3]=t4,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* expand.scm:1348: ##sys#check-syntax */ t13=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t13; av2[1]=t12; av2[2]=lf[277]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[290]; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} /* outstr in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_6820(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_6820,3,t0,t1,t2);} /* expand.scm:665: ##sys#print */ t3=*((C_word*)lf[124]+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);}} /* k6825 in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6827,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6834,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:700: get-output-string */ t3=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5584 in k5580 in k5561 in k5558 in a5555 in expand-multiple-values-assignment in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_5586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5586,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[72],t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[93],((C_word*)t0)[4],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11515 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11517,2,av);} /* expand.scm:1092: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#undefine-macro! in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_4324,3,av);} /* expand.scm:198: ##sys#unregister-macro */ t3=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5580 in k5561 in k5558 in a5555 in expand-multiple-values-assignment in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t7; C_word 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_5582,2,av);} a=C_alloc(24); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5586,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[16]); t10=C_i_check_list_2(((C_word*)t0)[5],lf[16]); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5604,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_5626,a[2]=t6,a[3]=t13,a[4]=t7,a[5]=((C_word)li52),tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_5626(t15,t11,t8,((C_word*)t0)[5]);} /* k4555 in expand in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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,3)))){ C_save_and_reclaim((void *)f_4557,2,av);} /* expand.scm:261: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4850 in loop in k4829 in expand in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *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_4851,2,av);} /* expand.scm:311: ##sys#expand-0 */ t2=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_6818,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6820,a[2]=t2,a[3]=((C_word)li76),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6827,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_6836,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)li79),tmp=(C_word)a,a+=8,tmp)); t8=((C_word*)t6)[1]; f_6836(t8,t4,*((C_word*)lf[119]+1));} /* a11518 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_11519,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11523,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1097: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[321]; av2[3]=t2; av2[4]=lf[324]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11502 in k11499 in a11496 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11504,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[106],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11499 in a11496 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 in ... */ static void C_ccall f_11501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11501,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11504,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:1107: check-for-multiple-bindings */ f_8090(t2,t3,((C_word*)t0)[2],lf[319]);} /* k4314 in loop in k4289 in unregister-macro in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4316,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k11667 in k11664 in k11653 in k11650 in a11636 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_11669,2,av);} a=C_alloc(9); t2=C_i_car(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[336],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11664 in k11653 in k11650 in a11636 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_11666,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11669,a[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_11679,a[2]=t2,a[3]=((C_word*)t0)[5],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_11686,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* expand.scm:1034: r */ t5=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[102]; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* strip-syntax in k3666 in k3662 in k3658 in k3654 */ 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=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_3745,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_3751,a[2]=t4,a[3]=t6,a[4]=((C_word)li3),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_3751(t8,t1,t2);} /* a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_4348(C_word c,C_word *av){ C_word tmp; C_word 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_4348,3,av);} a=C_alloc(15); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4354,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li23),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4455,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)li31),tmp=(C_word)a,a+=10,tmp); /* expand.scm:207: with-exception-handler */ t5=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4341 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4343,2,av);} /* expand.scm:207: g566 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k3692 in macro-alias in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_3694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3694,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3697,a[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_3697(t3,t1);} else{ t3=C_slot(((C_word*)t0)[2],C_fix(1)); t4=C_block_size(t3); if(C_truep(C_fixnum_greaterp(t4,C_fix(0)))){ t5=C_subchar(t3,C_fix(0)); t6=t2; f_3697(t6,C_i_char_equalp(C_make_character(35),t5));} else{ t5=t2; f_3697(t5,C_SCHEME_FALSE);}}} /* k3695 in k3692 in macro-alias in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_3697(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_3697,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_3700,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:91: gensym */ t3=*((C_word*)lf[8]+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);}}} /* k11810 in loop in k11742 in a11739 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11812,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11819,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* expand.scm:1016: ##sys#expand-curried-define */ t3=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11608 in k11595 in a11584 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11610,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* expand.scm:1071: check-for-multiple-bindings */ f_8090(((C_word*)t0)[3],t2,((C_word*)t0)[2],lf[334]);} /* a4856 in loop in k4829 in expand in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_4857,4,av);} if(C_truep(t3)){ /* expand.scm:313: loop */ t4=((C_word*)((C_word*)t0)[2])[1]; f_4845(t4,t1,t2);} else{ t4=t2; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k11817 in k11810 in loop in k11742 in a11739 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11819,2,av);} /* expand.scm:1016: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11749(t2,((C_word*)t0)[3],t1);} /* k4829 in expand in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_4831,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_4845,a[2]=t2,a[3]=t7,a[4]=t11,a[5]=((C_word)li42),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_4845(t13,((C_word*)t0)[3],((C_word*)t0)[4]);} /* a11562 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11563,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11567,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1079: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[329]; av2[3]=t2; av2[4]=lf[331]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* walk in strip-syntax in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_3751(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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(16,0,2)))){ C_save_and_reclaim_args((void *)trf_3751,3,t0,t1,t2);} a=C_alloc(16); 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{ if(C_truep(C_i_symbolp(t2))){ t4=t2; t5=C_i_getprop(t4,lf[5],C_SCHEME_FALSE); t6=t2; t7=C_i_getprop(t6,lf[7],C_SCHEME_FALSE); 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{ if(C_truep(t5)){ if(C_truep(C_i_pairp(t5))){ t8=t2; t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} else{ if(C_truep(C_i_pairp(t2))){ t4=C_a_i_cons(&a,2,C_SCHEME_FALSE,C_SCHEME_FALSE); t5=t4; t6=C_a_i_cons(&a,2,t2,t5); t7=C_a_i_cons(&a,2,t6,((C_word*)((C_word*)t0)[2])[1]); t8=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t7); t9=t5; t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3823,a[2]=t9,a[3]=t5,a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); t11=t2; t12=C_u_i_car(t11); /* expand.scm:116: walk */ t14=t10; t15=t12; t1=t14; t2=t15; goto loop;} else{ if(C_truep(C_i_vectorp(t2))){ t4=C_block_size(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3841,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* expand.scm:121: make-vector */ t7=*((C_word*)lf[11]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}}} /* k11565 in a11562 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11567,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11570,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:1080: check-for-multiple-bindings */ f_8090(t2,t3,((C_word*)t0)[2],lf[330]);} /* k6925 in k6897 in k6894 in k6891 in k6888 in k6885 in k6882 in k6873 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6927,2,av);} /* expand.scm:690: outstr */ t2=((C_word*)t0)[2]; f_6820(t2,((C_word*)t0)[3],t1);} /* k11559 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11561,2,av);} /* expand.scm:1074: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[329]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k11801 in k11762 in loop in k11742 in a11739 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11803,2,av);} /* expand.scm:1008: ##sys#register-export */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[340]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[340]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k11598 in k11595 in a11584 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11600,2,av);} t2=C_i_caddr(((C_word*)t0)[2]); /* expand.scm:1068: check-for-multiple-bindings */ f_8090(((C_word*)t0)[3],t2,((C_word*)t0)[2],lf[332]);} /* loop in k4829 in expand in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4845(C_word t0,C_word t1,C_word 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_4845,3,t0,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4851,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li40),tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4857,a[2]=((C_word*)t0)[4],a[3]=((C_word)li41),tmp=(C_word)a,a+=4,tmp); /* expand.scm:309: ##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);}} /* call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4333(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_4333,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(12); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4343,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4348,a[2]=t2,a[3]=t6,a[4]=t4,a[5]=t3,a[6]=t5,a[7]=((C_word*)t0)[2],a[8]=((C_word)li32),tmp=(C_word)a,a+=9,tmp); /* expand.scm:207: call-with-current-continuation */ t9=*((C_word*)lf[48]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t7; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* a5555 in expand-multiple-values-assignment in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_5556(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(21,c,3)))){ C_save_and_reclaim((void *)f_5556,5,av);} a=C_alloc(21); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5560,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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_END_OF_LIST; f_5560(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*)lf[8]+1); t11=((C_word*)t0)[3]; t12=C_i_check_list_2(t11,lf[16]); 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_5692,a[2]=t8,a[3]=t14,a[4]=t10,a[5]=t9,a[6]=((C_word)li53),tmp=(C_word)a,a+=7,tmp)); t16=((C_word*)t14)[1]; f_5692(t16,t5,t11);}} /* ##sys#expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_4330,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_4333,a[2]=t3,a[3]=((C_word)li33),tmp=(C_word)a,a+=4,tmp)); t10=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4531,a[2]=t6,a[3]=((C_word)li34),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_4575,a[2]=t3,a[3]=t8,a[4]=t12,a[5]=t6,a[6]=t4,a[7]=((C_word)li38),tmp=(C_word)a,a+=8,tmp)); t14=((C_word*)t12)[1]; f_4575(t14,t1,t2);} /* ##sys#expand-multiple-values-assignment in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_5550,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5556,a[2]=t3,a[3]=t2,a[4]=((C_word)li54),tmp=(C_word)a,a+=5,tmp); /* expand.scm:448: ##sys#decompose-lambda-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[96]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[96]+1); av2[1]=t1; av2[2]=t2; av2[3]=t4; tp(4,av2);}} /* a4359 in a4353 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_4360(C_word c,C_word *av){ C_word tmp; 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_4360,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4371,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[33]))){ t3=C_slot(((C_word*)t0)[2],C_fix(1)); t4=t2; f_4371(t4,C_i_memq(lf[40],t3));} else{ t3=t2; f_4371(t3,C_SCHEME_FALSE);}} /* ##sys#defjam-error in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *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_5544,3,av);} /* expand.scm:438: ##sys#syntax-error-hook */ t3=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=lf[91]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4597 in loop in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4599(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_4599,2,t0,t1);} a=C_alloc(9); t2=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[50]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4608,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:275: ##sys#check-syntax */ t4=*((C_word*)lf[54]+1);{ C_word av2[7]; av2[0]=t4; av2[1]=t3; av2[2]=lf[55]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[57]; 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_4754,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_4754(t5,C_i_getprop(t4,lf[59],C_SCHEME_FALSE));} else{ t4=t3; f_4754(t4,C_SCHEME_FALSE);}} else{ t4=t3; f_4754(t4,C_SCHEME_FALSE);}}} /* k11543 in a11540 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11545,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11548,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:1089: check-for-multiple-bindings */ f_8090(t2,t3,((C_word*)t0)[2],lf[327]);} /* k11546 in k11543 in a11540 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11548,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[326],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4353 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 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_4354,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4360,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li22),tmp=(C_word)a,a+=5,tmp); /* expand.scm:207: k562 */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a11540 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_11541,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11545,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1088: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[325]; av2[3]=t2; av2[4]=lf[328]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* expand in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_4827,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_4831,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:309: ##sys#current-environment */ t6=*((C_word*)lf[1]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_car(t4); f_4831(2,av2);}}} /* macro-alias in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_3687(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_3687,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3694,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* expand.scm:85: ##sys#qualified-symbol? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[9]+1); av2[1]=t4; av2[2]=t2; tp(3,av2);}} /* k10192 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in ... */ static void C_ccall f_10194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10194,2,av);} /* expand.scm:1351: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[274]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10195 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in ... */ 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=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_10196,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10200,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1356: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[274]; av2[3]=t2; av2[4]=lf[276]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* get-line-number in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6978,3,av);} a=C_alloc(4); if(C_truep(*((C_word*)lf[117]+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_6998,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:710: ##sys#hash-table-ref */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[144]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[144]+1); av2[1]=t5; av2[2]=*((C_word*)lf[117]+1); av2[3]=t4; tp(4,av2);}} else{ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* ##sys#syntax-rules-mismatch in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_6972,3,av);} /* expand.scm:703: ##sys#syntax-error-hook */ t3=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=lf[142]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4285 in unregister-macro in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_4287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4287,2,av);} /* expand.scm:190: ##sys#macro-environment */ t2=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3698 in k3695 in k3692 in macro-alias in k3666 in k3662 in k3658 in k3654 */ 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 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_3700,2,av);} a=C_alloc(16); t2=( /* expand.scm:92: lookup */ f_3670(((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[7],C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_a_i_putprop(&a,3,t1,lf[5],t3); t7=C_a_i_putprop(&a,3,t1,lf[7],t5); t8=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ 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[5],t3); t8=C_a_i_putprop(&a,3,t1,lf[7],t6); t9=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k3654 */ static void C_ccall f_3656(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3656,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[0]+1 /* (set! ##sys#features ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3660,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:73: make-parameter */ t4=*((C_word*)lf[234]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop2004 in k10835 in k10816 in expand in k10789 in k10786 in k10783 in k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in ... */ static void C_fcall f_10942(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_10942,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:1248: g2010 */ f_10925(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_mutate2(((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 k10835 in k10816 in expand in k10789 in k10786 in k10783 in k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 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 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_10940,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_10885,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_10892,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:1252: c */ t9=((C_word*)t0)[8];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; f_10892(2,av2);}}} /* k5561 in k5558 in a5555 in expand-multiple-values-assignment in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_5563,2,av);} a=C_alloc(18); t2=t1; t3=C_a_i_list(&a,3,lf[72],C_SCHEME_END_OF_LIST,((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5582,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:456: append */ t6=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5558 in a5555 in expand-multiple-values-assignment in k4144 in k3666 in k3662 in k3658 in k3654 */ 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(8,c,2)))){ C_save_and_reclaim((void *)f_5560,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5563,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)[6]; if(C_truep(t4)){ /* expand.scm:452: gensym */ t5=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_END_OF_LIST; f_5563(2,av2);}}} /* k11493 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11495,2,av);} /* expand.scm:1101: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[318]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3662 in k3658 in k3654 */ 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 t3; C_word t4; 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); t2=C_mutate2((C_word*)lf[2]+1 /* (set! ##sys#current-meta-environment ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3668,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:77: make-parameter */ t4=*((C_word*)lf[234]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[1]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3658 in k3654 */ static void C_ccall f_3660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3660,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[1]+1 /* (set! ##sys#current-environment ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3664,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:74: make-parameter */ t4=*((C_word*)lf[234]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3666 in k3662 in k3658 in k3654 */ 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 t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_3668,2,av);} a=C_alloc(18); t2=C_mutate2((C_word*)lf[3]+1 /* (set! ##sys#active-eval-environment ...) */,t1); t3=C_mutate2(&lf[4] /* (set! lookup ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3670,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2(&lf[6] /* (set! macro-alias ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3687,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[10]+1 /* (set! strip-syntax ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3745,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[12]+1 /* (set! ##sys#strip-syntax ...) */,*((C_word*)lf[10]+1)); t7=C_mutate2((C_word*)lf[13]+1 /* (set! ##sys#extend-se ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3882,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[17]+1 /* (set! ##sys#globalize ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4062,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4146,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:156: make-parameter */ t10=*((C_word*)lf[234]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k10171 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10173,2,av);} /* expand.scm:1361: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[271]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4266 in k4244 in macro? in k4144 in k3666 in k3662 in k3658 in k3654 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_4268,2,av);} t2=( /* expand.scm:186: lookup */ f_3670(((C_word*)t0)[2],t1) ); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_i_pairp(t2):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6996 in get-line-number in k4144 in k3666 in k3662 in k3658 in k3654 */ 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(4,c,2)))){ C_save_and_reclaim((void *)f_6998,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7002,a[2]=((C_word*)t0)[2],a[3]=((C_word)li82),tmp=(C_word)a,a+=4,tmp); /* expand.scm:705: g1321 */ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( /* expand.scm:705: g1321 */ f_7002(t2,t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7417 in walk in k7158 in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_7419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7419,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:795: walk */ t6=((C_word*)((C_word*)t0)[4])[1]; f_7165(t6,((C_word*)t0)[5],t3,t5);} /* a11496 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_11497,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11501,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1106: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[318]; av2[3]=t2; av2[4]=lf[320]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10177 in a10174 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 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; 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_10179,2,av);} a=C_alloc(15); t2=C_i_cadr(((C_word*)t0)[2]); t3=C_a_i_list(&a,3,lf[72],C_SCHEME_END_OF_LIST,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list(&a,2,lf[272],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a10174 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in ... */ 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=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_10175,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10179,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1366: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[271]; av2[3]=t2; av2[4]=lf[273]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* g464 in loop1 in globalize in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4084(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_4084,3,t0,t1,t2);} if(C_truep(C_i_symbolp(t2))){ /* expand.scm:145: loop1 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4068(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);}}} /* map-loop1074 in k5953 in k5950 in k5947 in k5921 in k5915 in k5912 in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_5960(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_5960,5,t0,t1,t2,t3,t4);} a=C_alloc(9); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5967,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_5967(t7,(C_truep(t6)?C_i_pairp(t4):C_SCHEME_FALSE));} else{ t6=t5; f_5967(t6,C_SCHEME_FALSE);}} /* k6894 in k6891 in k6888 in k6885 in k6882 in k6873 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6896(C_word c,C_word *av){ C_word tmp; C_word t0=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_6896,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6899,a[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:683: outstr */ t3=((C_word*)t0)[3]; f_6820(t3,t2,lf[135]);} /* k6891 in k6888 in k6885 in k6882 in k6873 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6893(C_word c,C_word *av){ C_word tmp; C_word t0=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_6893,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6896,a[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:682: ##sys#print */ t3=*((C_word*)lf[124]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5965 in map-loop1074 in k5953 in k5950 in k5947 in k5921 in k5915 in k5912 in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_5967(C_word 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_5967,2,t0,t1);} a=C_alloc(17); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5993,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:513: ##sys#expand-multiple-values-assignment */ t5=*((C_word*)lf[92]+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[95],t5,t4); f_5993(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);}}} /* k6888 in k6885 in k6882 in k6873 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6890(C_word c,C_word *av){ C_word tmp; C_word t0=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_6890,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6893,a[2]=((C_word*)t0)[2],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:681: outstr */ t3=((C_word*)t0)[3]; f_6820(t3,t2,lf[136]);} /* k5056 in k5000 in k4988 in k4984 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_5058,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:357: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#globalize in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_4062(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_4062,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_4068,a[2]=t5,a[3]=t3,a[4]=((C_word)li11),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_4068(t7,t1,t2);} /* loop in k4289 in unregister-macro in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_4293,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_4316,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=t2; t9=C_u_i_cdr(t8); /* expand.scm:195: loop */ t11=t7; t12=t9; t1=t11; t2=t12; goto loop;}}} /* k4289 in unregister-macro in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4291,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_4293,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li18),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_4293(t5,((C_word*)t0)[3],t1);} /* k6897 in k6894 in k6891 in k6888 in k6885 in k6882 in k6873 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6899,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_6912,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_6916,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=C_i_car(((C_word*)t0)[2]); /* expand.scm:688: symbol->string */ t7=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_6927,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_6931,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_6933,a[2]=t7,a[3]=((C_word)li77),tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_6933(t9,t5,((C_word*)t0)[2]);}} /* k10151 in k10135 in expand in k9897 in k9894 in k9891 in k9888 in a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_10153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10153,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[104],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* expand.scm:1421: expand */ t2=((C_word*)((C_word*)t0)[4])[1]; f_10047(t2,((C_word*)t0)[3],((C_word*)t0)[5]);}} /* k5079 in k5000 in k4988 in k4984 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5081,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:382: ##sys#append */ t4=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:382: ##sys#append */ t5=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k4048 in map-loop354 in extend-se in k3666 in k3662 in k3658 in k3654 */ 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 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_4050,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4025(t6,((C_word*)t0)[5],t5);} /* k10624 in k10583 in k10562 in k10534 in k10522 in a10519 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 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 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_10626,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[53],t2); t4=C_a_i_list(&a,3,lf[104],((C_word*)t0)[3],t3); t5=C_a_i_list(&a,4,lf[293],((C_word*)t0)[4],((C_word*)t0)[5],t4); t6=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_list(&a,4,lf[50],((C_word*)t0)[2],((C_word*)t0)[7],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* map-loop2103 in k10583 in k10562 in k10534 in k10522 in a10519 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in ... */ static void C_fcall f_10628(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_10628,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_10653,a[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_10653(t9,t8);} else{ t8=C_u_i_cdr(t4); t9=C_i_cdr(t8); t10=t3; f_10653(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);}}} /* k9514 in for-each-loop2740 in k9462 in fixup-macro-environment in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9516,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9506(t3,((C_word*)t0)[4],t2);} /* loop1 in globalize in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4068(C_word t0,C_word t1,C_word 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_4068,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_i_symbolp(t2))){ t3=t2; t4=C_i_getprop(t3,lf[5],C_SCHEME_FALSE); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4084,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li9),tmp=(C_word)a,a+=5,tmp); /* expand.scm:141: g464 */ t6=t5; f_4084(t6,t1,t4);} 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_4102,a[2]=t2,a[3]=t6,a[4]=((C_word)li10),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_4102(t8,t1,((C_word*)t0)[3]);}} else{ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k5075 in k5000 in k4988 in k4984 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ 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:357: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9205 in k9156 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9207,2,av);} /* synrules.scm:258: meta-variables */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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_9209 in k8322 in k8317 in k8313 in k8309 in k8305 in k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 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 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(8,c,2)))){ C_save_and_reclaim((void *)f_9209,6,av);} a=C_alloc(8); if(C_truep(C_i_symbolp(t2))){ if(C_truep(C_i_memq(t2,t5))){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_i_assq(t2,t4); if(C_truep(t6)){ t7=C_i_cdr(t6); t8=t3; t9=C_fixnum_greater_or_equal_p(t7,t8); t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=(C_truep(t9)?C_a_i_cons(&a,2,t2,t5):t5); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_9251,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:270: segment-template? */ t7=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}} /* a7361 in walk in k7158 in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_7362,3,av);} t3=(C_truep(C_i_symbolp(t2))?( /* expand.scm:787: lookup */ f_3670(t2,((C_word*)t0)[2]) ):C_SCHEME_FALSE); if(C_truep(C_i_symbolp(t3))){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_eqp(t4,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k9249 */ static void C_ccall f_9251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_9251,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_9262,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:273: free-meta-variables */ t6=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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_9281,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:278: free-meta-variables */ t7=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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_9296,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:281: vector->list */ t3=*((C_word*)lf[179]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}} /* k5925 in k5921 in k5915 in k5912 in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ 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(6,c,1)))){ C_save_and_reclaim((void *)f_5927,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[50],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10135 in expand in k9897 in k9894 in k9891 in k9888 in a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 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(6,c,2)))){ C_save_and_reclaim((void *)f_10137,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_u_i_cdr(((C_word*)t0)[2]); t3=C_eqp(t2,C_SCHEME_END_OF_LIST); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep(t3)?lf[269]:C_a_i_cons(&a,2,lf[104],t2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10153,a[2]=((C_word*)t0)[2],a[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:1420: test */ t3=((C_word*)((C_word*)t0)[6])[1]; f_9911(t3,t2,((C_word*)t0)[7]);}} /* k11385 in a11363 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in ... */ static void C_ccall f_11387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_11387,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_11406,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:1150: r */ t7=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[221]; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} /* k11633 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11635(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11635,2,av);} /* expand.scm:1022: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[102]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11636 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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(8,c,4)))){ C_save_and_reclaim((void *)f_11637,5,av);} a=C_alloc(8); t5=C_i_cadr(t2); t6=t5; t7=t2; t8=C_u_i_cdr(t7); t9=C_u_i_cdr(t8); if(C_truep(C_i_pairp(t6))){ t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11693,a[2]=t6,a[3]=t9,a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1038: ##sys#check-syntax */ t11=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t10; av2[2]=lf[102]; av2[3]=t6; av2[4]=lf[339]; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11652,a[2]=t6,a[3]=t9,a[4]=t1,a[5]=t2,a[6]=t4,a[7]=t3,tmp=(C_word)a,a+=8,tmp); /* expand.scm:1030: ##sys#check-syntax */ t11=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t10; av2[2]=lf[102]; av2[3]=t6; av2[4]=lf[162]; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}} /* lookup in k3666 in k3662 in k3658 in k3654 */ static C_word C_fcall f_3670(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[5],C_SCHEME_FALSE); return((C_truep(t5)?t5:C_SCHEME_FALSE));}} /* k5921 in k5915 in k5912 in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_5923,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5927,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_5949,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:515: reverse */ t9=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9260 in k9249 */ static void C_ccall f_9262(C_word c,C_word *av){ C_word tmp; C_word 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_9262,2,av);} /* synrules.scm:271: free-meta-variables */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5956 in k5953 in k5950 in k5947 in k5921 in k5915 in k5912 in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ 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,3)))){ C_save_and_reclaim((void *)f_5958,2,av);} /* expand.scm:471: ##sys#append */ t2=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9542 in k9538 in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in ... */ static void C_ccall f_9544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9544,2,av);} t2=C_mutate2((C_word*)lf[233]+1 /* (set! ##sys#meta-macro-environment ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9538 in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in ... */ static void C_ccall f_9540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9540,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[89]+1 /* (set! ##sys#default-macro-environment ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9544,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9548,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* expand.scm:1561: ##sys#macro-environment */ t5=*((C_word*)lf[19]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k11820 in loop in k11742 in a11739 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_11822,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[72],t5); t7=C_a_i_list3(&a,3,t2,t3,t6); /* expand.scm:1019: loop */ t8=((C_word*)((C_word*)t0)[5])[1]; f_11749(t8,((C_word*)t0)[6],t7);} /* k10651 in map-loop2103 in k10583 in k10562 in k10534 in k10522 in a10519 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in ... */ static void C_fcall f_10653(C_word 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_10653,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_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10628(t6,((C_word*)t0)[5],t5);} /* k5950 in k5947 in k5921 in k5915 in k5912 in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_5952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5952,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5955,a[2]=((C_word*)t0)[2],a[3]=((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:517: reverse */ t4=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5953 in k5950 in k5947 in k5921 in k5915 in k5912 in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ C_save_and_reclaim((void *)f_5955,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5958,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_5960,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word)li58),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_5960(t6,t2,((C_word*)t0)[6],((C_word*)t0)[7],t1);} /* k5947 in k5921 in k5915 in k5912 in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_5949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5949,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5952,a[2]=((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:516: reverse */ t4=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5031 in k5000 in k4988 in k4984 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 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_5033,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[50],t5); t7=C_a_i_list(&a,1,t6); /* expand.scm:357: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop354 in extend-se in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4025(C_word t0,C_word t1,C_word 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_4025,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_4050,a[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:130: g360 */ 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);}}} /* k11054 in k11050 in k11047 in k11044 in k11041 in k11035 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11056,2,av);} /* expand.scm:1168: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[188]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[188]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k11050 in k11047 in k11044 in k11041 in k11035 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in ... */ static void C_ccall f_11052(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11052,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11056,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1170: ##sys#strip-syntax */ t4=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11047 in k11044 in k11041 in k11035 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in ... */ static void C_ccall f_11049(C_word c,C_word *av){ C_word tmp; C_word t0=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_11049,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11052,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* expand.scm:1169: get-output-string */ t3=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11044 in k11041 in k11035 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in ... */ static void C_ccall f_11046(C_word c,C_word *av){ C_word tmp; C_word t0=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_11046,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11049,a[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:1169: ##sys#print */ t3=*((C_word*)lf[124]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[308]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11041 in k11035 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in ... */ static void C_ccall f_11043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11043,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11046,a[2]=((C_word*)t0)[2],a[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:1169: ##sys#print */ t3=*((C_word*)lf[124]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11072 in k11066 in k11063 in k11060 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in ... */ 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; 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_11074,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; /* Re-use our own argvector */ 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_nullp(t2))){ t3=C_u_i_car(((C_word*)t0)[2]); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_u_i_cdr(((C_word*)t0)[2]); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[104],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k9502 in k9462 in fixup-macro-environment in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in ... */ static void C_ccall f_9504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9504,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop2740 in k9462 in fixup-macro-environment in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in ... */ static void C_fcall f_9506(C_word t0,C_word t1,C_word 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_9506,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_9516,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)); /* expand.scm:1545: g2741 */ t5=((C_word*)t0)[3]; f_9465(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);}}} /* k8625 in k8524 */ static void C_ccall f_8627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8627,2,av);} /* synrules.scm:146: process-match */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_8332 in k8322 in k8317 in k8313 in k8309 in k8305 in k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in ... */ static void C_ccall f_8332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(51,c,3)))){ C_save_and_reclaim((void *)f_8332,3,av);} a=C_alloc(51); 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_8360,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[16]); t16=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8370,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[11],a[4]=t9,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|6,a[1]=(C_word)f_8384,a[2]=t12,a[3]=t18,a[4]=t14,a[5]=t13,a[6]=((C_word)li109),tmp=(C_word)a,a+=7,tmp)); t20=((C_word*)t18)[1]; f_8384(t20,t16,t2);} /* a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 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=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_10992,5,av);} a=C_alloc(6); t5=C_i_cdr(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10999,a[2]=t4,a[3]=t3,a[4]=t1,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1158: r */ t8=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=lf[304]; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}} /* k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in ... */ static void C_ccall f_10999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10999,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11002,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:1159: r */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[221]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k10988 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10990,2,av);} /* expand.scm:1152: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11063 in k11060 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_11065,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11117,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); t4=C_u_i_car(((C_word*)t0)[2]); /* expand.scm:1185: strip-syntax */ t5=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_11134,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[8],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1193: expand */ t5=((C_word*)((C_word*)t0)[6])[1]; f_11010(t5,t4,((C_word*)t0)[7],C_SCHEME_FALSE);} else{ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11140,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],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:1195: c */ t7=((C_word*)t0)[4];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=t6; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}} else{ t6=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_11140(2,av2);}}}}} /* k11066 in k11063 in k11060 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_11068,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11074,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,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:1187: c */ t6=((C_word*)t0)[4];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=t5; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} else{ t5=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_11074(2,av2);}}} /* k11060 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 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 t5; C_word t6; C_word t7; C_word 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,c,2)))){ C_save_and_reclaim((void *)f_11062,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11065,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; f_11065(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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; f_11065(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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; f_11065(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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; f_11065(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; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t10; f_11065(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; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t12; f_11065(2,av2);}} else{ t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11300,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp); t14=C_u_i_car(((C_word*)t0)[2]); /* expand.scm:1180: blob? */ t15=*((C_word*)lf[312]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t15; av2[1]=t13; av2[2]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}}}}}}} /* k11478 in k11455 in a11452 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in ... */ static void C_ccall f_11480(C_word c,C_word *av){ C_word tmp; 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_11480,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in ... */ static void C_fcall f_11010(C_word t0,C_word t1,C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_11010,4,t0,t1,t2,t3);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t4=C_i_car(t2); t5=t4; t6=t2; t7=C_u_i_cdr(t6); t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11024,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t7,a[6]=t5,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:1166: ##sys#check-syntax */ t9=*((C_word*)lf[54]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t8; av2[2]=lf[228]; av2[3]=t5; av2[4]=lf[313]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=lf[314]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8317 in k8313 in k8309 in k8305 in k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in k8220 in k8217 in ... */ static void C_ccall f_8319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(51,c,2)))){ C_save_and_reclaim((void *)f_8319,2,av);} a=C_alloc(51); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|50,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)[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],tmp=(C_word)a,a+=51,tmp); /* synrules.scm:101: r */ t4=((C_word*)t0)[51];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[52]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8313 in k8309 in k8305 in k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in ... */ static void C_ccall f_8315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(53,c,2)))){ C_save_and_reclaim((void *)f_8315,2,av);} a=C_alloc(53); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|52,a[1]=(C_word)f_8319,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]=((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],tmp=(C_word)a,a+=53,tmp); /* synrules.scm:99: r */ t4=((C_word*)t0)[51];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[218]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8309 in k8305 in k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in ... */ static void C_ccall f_8311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(53,c,2)))){ C_save_and_reclaim((void *)f_8311,2,av);} a=C_alloc(53); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|52,a[1]=(C_word)f_8315,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],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],tmp=(C_word)a,a+=53,tmp); /* synrules.scm:98: r */ t4=((C_word*)t0)[51];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[219]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k7661 in compare in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_7663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7663,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:846: compare */ t6=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[5]; av2[2]=t3; av2[3]=t5; f_7641(4,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_11005,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_11010,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]=t2,a[8]=((C_word)li161),tmp=(C_word)a,a+=9,tmp)); t6=((C_word*)t4)[1]; f_11010(t6,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in ... */ static void C_ccall f_11002(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11002,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11005,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:1160: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[227]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8322 in k8317 in k8313 in k8309 in k8305 in k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in k8220 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 t6; C_word t7; C_word t8; C_word 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(119,c,6)))){ C_save_and_reclaim((void *)f_8324,2,av);} a=C_alloc(119); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8326,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word)li108),tmp=(C_word)a,a+=5,tmp)); t4=C_mutate2(((C_word *)((C_word*)t0)[5])+1,(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8332,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)li110),tmp=(C_word)a,a+=13,tmp)); t5=C_mutate2(((C_word *)((C_word*)t0)[14])+1,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8426,a[2]=((C_word*)t0)[16],a[3]=((C_word*)t0)[17],a[4]=((C_word*)t0)[18],a[5]=((C_word*)t0)[19],a[6]=((C_word*)t0)[20],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[21],a[9]=((C_word)li112),tmp=(C_word)a,a+=10,tmp)); t6=C_mutate2(((C_word *)((C_word*)t0)[21])+1,(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_8492,a[2]=((C_word*)t0)[22],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[23],a[6]=((C_word*)t0)[24],a[7]=((C_word*)t0)[25],a[8]=((C_word*)t0)[16],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[21],a[12]=((C_word*)t0)[26],a[13]=((C_word*)t0)[27],a[14]=((C_word*)t0)[28],a[15]=((C_word*)t0)[29],a[16]=((C_word*)t0)[30],a[17]=((C_word*)t0)[31],a[18]=((C_word)li113),tmp=(C_word)a,a+=19,tmp)); t7=C_mutate2(((C_word *)((C_word*)t0)[23])+1,(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_8673,a[2]=((C_word*)t0)[32],a[3]=((C_word*)t0)[33],a[4]=((C_word*)t0)[34],a[5]=((C_word*)t0)[35],a[6]=((C_word*)t0)[36],a[7]=((C_word*)t0)[37],a[8]=((C_word*)t0)[16],a[9]=((C_word*)t0)[15],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[38],a[13]=((C_word*)t0)[9],a[14]=((C_word*)t0)[39],a[15]=((C_word*)t0)[21],a[16]=((C_word*)t0)[26],a[17]=((C_word)li114),tmp=(C_word)a,a+=18,tmp)); t8=C_mutate2(((C_word *)((C_word*)t0)[20])+1,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8800,a[2]=((C_word*)t0)[22],a[3]=((C_word*)t0)[20],a[4]=((C_word*)t0)[24],a[5]=((C_word*)t0)[13],a[6]=((C_word*)t0)[40],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[26],a[9]=((C_word*)t0)[28],a[10]=((C_word*)t0)[31],a[11]=((C_word)li116),tmp=(C_word)a,a+=12,tmp)); t9=C_mutate2(((C_word *)((C_word*)t0)[18])+1,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8940,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[18],a[4]=((C_word*)t0)[41],a[5]=((C_word*)t0)[13],a[6]=((C_word*)t0)[42],a[7]=((C_word*)t0)[43],a[8]=((C_word*)t0)[44],a[9]=((C_word*)t0)[45],a[10]=((C_word*)t0)[46],a[11]=((C_word*)t0)[47],a[12]=((C_word*)t0)[48],a[13]=((C_word)li118),tmp=(C_word)a,a+=14,tmp)); t10=C_mutate2(((C_word *)((C_word*)t0)[19])+1,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9132,a[2]=((C_word*)t0)[22],a[3]=((C_word*)t0)[19],a[4]=((C_word*)t0)[31],a[5]=((C_word)li119),tmp=(C_word)a,a+=6,tmp)); t11=C_mutate2(((C_word *)((C_word*)t0)[43])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9209,a[2]=((C_word*)t0)[43],a[3]=((C_word*)t0)[48],a[4]=((C_word)li120),tmp=(C_word)a,a+=5,tmp)); t12=C_mutate2(((C_word *)((C_word*)t0)[31])+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9298,a[2]=((C_word*)t0)[48],a[3]=((C_word)li121),tmp=(C_word)a,a+=4,tmp)); t13=C_mutate2(((C_word *)((C_word*)t0)[48])+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9326,a[2]=((C_word*)t0)[3],a[3]=((C_word)li122),tmp=(C_word)a,a+=4,tmp)); t14=C_mutate2(((C_word *)((C_word*)t0)[44])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9350,a[2]=((C_word*)t0)[44],a[3]=((C_word*)t0)[48],a[4]=((C_word)li123),tmp=(C_word)a,a+=5,tmp)); t15=C_mutate2(((C_word *)((C_word*)t0)[41])+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9370,a[2]=((C_word*)t0)[3],a[3]=((C_word)li125),tmp=(C_word)a,a+=4,tmp)); /* synrules.scm:314: make-transformer */ t16=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t16; av2[1]=((C_word*)t0)[49]; av2[2]=((C_word*)t0)[50]; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}} /* f_8326 in k8322 in k8317 in k8313 in k8309 in k8305 in k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in ... */ static void C_ccall f_8326(C_word c,C_word *av){ C_word tmp; C_word 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_8326,3,av);} /* synrules.scm:104: c */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8617 in k8524 */ static void C_ccall f_8619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8619,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_list(&a,1,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k11031 in k11028 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11033,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[306]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11035 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_11037,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[307]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11043,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:1169: ##sys#print */ t6=*((C_word*)lf[124]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[309]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11028 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in ... */ static void C_ccall f_11030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11030,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11033,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:1171: expand */ t3=((C_word*)((C_word*)t0)[3])[1]; f_11010(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* compare in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_7641,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_7663,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:845: compare */ t14=t4; t15=t6; t16=t8; t1=t14; t2=t15; t3=t16; c=4; goto loop;} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_7700,a[2]=t6,a[3]=t11,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[2],a[7]=((C_word)li96),tmp=(C_word)a,a+=8,tmp)); t13=((C_word*)t11)[1]; f_7700(t13,t1,C_fix(0),C_SCHEME_TRUE);} else{ t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=C_i_symbolp(t2); t5=(C_truep(t4)?C_i_symbolp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=t2; t7=C_i_getprop(t6,lf[5],C_SCHEME_FALSE); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7752,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(t7)){ t9=t8; f_7752(t9,t7);} else{ t9=t2; t10=((C_word*)t0)[3]; t11=( /* expand.scm:877: lookup */ f_3670(t9,t10) ); if(C_truep(t11)){ t12=t8; f_7752(t12,t11);} else{ t12=t2; t13=t8; f_7752(t13,t12);}}} else{ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_eqp(t2,t3); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}} /* k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 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; 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_11024,2,av);} a=C_alloc(11); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11030,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_11037,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* expand.scm:1169: open-output-string */ t4=*((C_word*)lf[141]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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_11062,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)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); t3=C_i_car(((C_word*)t0)[6]); /* expand.scm:1173: c */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[11]; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}} /* k3909 in k3884 in extend-se in k3666 in k3662 in k3658 in k3654 */ 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 t4; 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_3911,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_3926,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_3928,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_3928(t11,t7,t6,((C_word*)t0)[5]);} /* k3924 in k3909 in k3884 in extend-se in k3666 in k3662 in k3658 in k3654 */ 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);} /* expand.scm:136: append */ t2=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop417 in k3909 in k3884 in extend-se in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_3928(C_word t0,C_word t1,C_word 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_3928,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_mutate2(((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);}}} /* k8358 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,1)))){ C_save_and_reclaim((void *)f_8360,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_list(&a,2,lf[23],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k8828 */ static void C_ccall f_8830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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,5)))){ C_save_and_reclaim((void *)f_8830,2,av);} a=C_alloc(25); 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,lf[211],((C_word*)t0)[3],t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8843,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t9=((C_word*)t0)[2]; t10=C_u_i_car(t9); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8859,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[6],a[4]=t7,a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word)li115),tmp=(C_word)a,a+=8,tmp); /* synrules.scm:181: process-pattern */ t12=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t12; av2[1]=t8; av2[2]=t10; av2[3]=((C_word*)((C_word*)t0)[7])[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_8905,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[10],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); t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[11])[1],((C_word*)t0)[3]); /* synrules.scm:192: process-pattern */ t6=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t2; av2[2]=t4; av2[3]=t5; av2[4]=((C_word*)t0)[6]; 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_8934,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* synrules.scm:195: vector->list */ t3=*((C_word*)lf[179]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}} /* k8822 */ static void C_ccall f_8824(C_word c,C_word *av){ C_word tmp; C_word t0=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_8824,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list1(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_8800 in k8322 in k8317 in k8313 in k8309 in k8305 in k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in ... */ 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=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(13,c,3)))){ C_save_and_reclaim((void *)f_8800,6,av);} a=C_alloc(13); if(C_truep(C_i_symbolp(t2))){ if(C_truep(C_i_memq(t2,((C_word*)t0)[2]))){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_8824,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* synrules.scm:174: mapit */ t7=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}} else{ t6=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8830,a[2]=t2,a[3]=t3,a[4]=t1,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],tmp=(C_word)a,a+=13,tmp); /* synrules.scm:175: segment-pattern? */ t7=((C_word*)((C_word*)t0)[10])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=t5; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}} /* k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in ... */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8228,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8231,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9556,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9558,a[2]=((C_word)li132),tmp=(C_word)a,a+=3,tmp); /* synrules.scm:47: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in ... */ static void C_ccall f_8225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8225,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8228,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_9594,a[2]=((C_word)li133),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1519: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8222,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8225,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9619,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9621,a[2]=((C_word)li134),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1510: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* f_9132 in k8322 in k8317 in k8313 in k8309 in k8305 in k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in ... */ 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; 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_9132,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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_9158,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:251: segment-pattern? */ t7=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=t5; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}} /* k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in ... */ static void C_ccall f_8286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(53,c,2)))){ C_save_and_reclaim((void *)f_8286,2,av);} a=C_alloc(53); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|52,a[1]=(C_word)f_8290,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)[2],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],tmp=(C_word)a,a+=53,tmp); /* synrules.scm:88: r */ t4=((C_word*)t0)[51];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[88]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(53,c,2)))){ C_save_and_reclaim((void *)f_8282,2,av);} a=C_alloc(53); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|52,a[1]=(C_word)f_8286,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)[2],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],tmp=(C_word)a,a+=53,tmp); /* synrules.scm:87: r */ t4=((C_word*)t0)[51];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[55]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* map-loop2069 in k10534 in k10522 in a10519 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in ... */ static void C_fcall f_10678(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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(9,0,2)))){ C_save_and_reclaim_args((void *)trf_10678,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_u_i_cdr(t3); t6=C_i_car(t5); t7=C_a_i_list2(&a,2,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_mutate2(((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);}}} /* syntax-error in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6740(C_word c,C_word *av){ C_word tmp; 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_6740,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_6748,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* expand.scm:649: ##sys#strip-syntax */ t4=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6746 in syntax-error in k4144 in k3666 in k3662 in k3658 in k3654 */ 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,4)))){ C_save_and_reclaim((void *)f_6748,2,av);}{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[121]+1); av2[3]=lf[122]; av2[4]=t1; C_apply(5,av2);}} /* ##sys#canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_5729,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_5733,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:472: ##sys#current-environment */ t6=*((C_word*)lf[1]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_car(t4); f_5733(2,av2);}}} /* k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in ... */ static void C_ccall f_8295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(53,c,2)))){ C_save_and_reclaim((void *)f_8295,2,av);} a=C_alloc(53); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,lf[205]); t4=C_mutate2(((C_word *)((C_word*)t0)[4])+1,lf[206]); t5=(*a=C_CLOSURE_TYPE|52,a[1]=(C_word)f_8302,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)[2],a[40]=((C_word*)t0)[42],a[41]=((C_word*)t0)[3],a[42]=((C_word*)t0)[43],a[43]=((C_word*)t0)[4],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],tmp=(C_word)a,a+=53,tmp); /* synrules.scm:94: r */ t6=((C_word*)t0)[51];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[221]; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} /* k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(53,c,2)))){ C_save_and_reclaim((void *)f_8290,2,av);} a=C_alloc(53); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,lf[204]); t4=(*a=C_CLOSURE_TYPE|52,a[1]=(C_word)f_8295,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)[2],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)[3],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],tmp=(C_word)a,a+=53,tmp); /* synrules.scm:90: r */ t5=((C_word*)t0)[51];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[222]; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k6730 in expand-curried-define in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6732(C_word c,C_word *av){ C_word tmp; 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_6732,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list3(&a,3,lf[101],((C_word*)((C_word*)t0)[3])[1],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5715 in map-loop898 in a5555 in expand-multiple-values-assignment in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_5717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_5717,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5692(t6,((C_word*)t0)[5],t5);} /* k6760 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6762,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_6767,a[2]=t4,a[3]=((C_word)li78),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_6767(t6,((C_word*)t0)[2],t2);} /* loop in k6760 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_6767(C_word t0,C_word t1,C_word t2){ C_word 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_6767,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[138],t3); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6787,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* expand.scm:659: cadar */ t6=*((C_word*)lf[68]+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:660: loop */ t8=t1; t9=t6; t1=t8; t2=t9; goto loop;}}} /* k9156 */ static void C_ccall f_9158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_9158,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_9173,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:253: meta-variables */ t8=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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_9192,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:256: meta-variables */ t7=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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_9207,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:258: vector->list */ t3=*((C_word*)lf[179]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}} /* k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in ... */ static void C_ccall f_8278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(53,c,2)))){ C_save_and_reclaim((void *)f_8278,2,av);} a=C_alloc(53); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|52,a[1]=(C_word)f_8282,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)[2],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],tmp=(C_word)a,a+=53,tmp); /* synrules.scm:86: r */ t4=((C_word*)t0)[51];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[223]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(53,c,2)))){ C_save_and_reclaim((void *)f_8274,2,av);} a=C_alloc(53); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|52,a[1]=(C_word)f_8278,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)[2],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],tmp=(C_word)a,a+=53,tmp); /* synrules.scm:85: r */ t4=((C_word*)t0)[51];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[224]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in ... */ static void C_ccall f_8270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(53,c,2)))){ C_save_and_reclaim((void *)f_8270,2,av);} a=C_alloc(53); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|52,a[1]=(C_word)f_8274,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)[2],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],tmp=(C_word)a,a+=53,tmp); /* synrules.scm:84: r */ t4=((C_word*)t0)[51];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[225]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8845 in k8841 in k8828 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8847,2,av);} /* synrules.scm:180: append */ t2=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_6751,4,av);} a=C_alloc(5); if(C_truep(C_i_nullp(*((C_word*)lf[119]+1)))){ /* expand.scm:662: ##sys#syntax-error-hook */ t4=*((C_word*)lf[41]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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_6818,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* expand.scm:663: open-output-string */ t5=*((C_word*)lf[141]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k8841 in k8828 */ 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 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_8843,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8847,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,lf[212],((C_word*)t0)[4],((C_word*)t0)[5]); /* synrules.scm:189: process-pattern */ t6=((C_word*)((C_word*)t0)[6])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=t5; av2[4]=((C_word*)t0)[7]; av2[5]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t6))(6,av2);}} /* k9104 in k9100 in k8977 */ static void C_ccall f_9106(C_word c,C_word *av){ C_word tmp; 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_9106,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k9100 in k8977 */ 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; 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_9102,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9106,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:237: process-template */ t6=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7101 in loop in k7073 in lambda-list? in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ 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,1)))){ C_save_and_reclaim((void *)f_7103,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a11963 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_11964,5,av);} t5=*((C_word*)lf[354]+1); /* expand.scm:936: g1651 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[354]+1)); C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(10); } av2[0]=*((C_word*)lf[354]+1); av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=*((C_word*)lf[1]+1); av2[6]=*((C_word*)lf[19]+1); av2[7]=C_SCHEME_FALSE; av2[8]=C_SCHEME_FALSE; av2[9]=lf[356]; tp(10,av2);}} /* k11960 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11962,2,av);} /* expand.scm:933: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[356]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k9121 in k8977 */ static void C_ccall f_9123(C_word c,C_word *av){ C_word tmp; 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_9123,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* doloop331 in k3839 in walk in strip-syntax in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_3850(C_word t0,C_word t1,C_word 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_3850,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_3871,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:125: walk */ t5=((C_word*)((C_word*)t0)[6])[1]; f_3751(t5,t3,t4);}} /* k9442 in loop in k9419 in macro-subset in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9444,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k9412 in macro-subset in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9414,2,av);} /* expand.scm:1543: ##sys#fixup-macro-environment */ t2=*((C_word*)lf[232]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in proper-list? in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ static C_word C_fcall f_7139(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);}}} /* k7129 in loop in k7073 in lambda-list? in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_7131(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7131,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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); /* expand.scm:741: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_7083(t4,((C_word*)t0)[2],t3);}} /* proper-list? in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_7133,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7139,a[2]=((C_word)li88),tmp=(C_word)a,a+=3,tmp); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_7139(t2) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* doloop1505 in compare in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_7700(C_word t0,C_word t1,C_word 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_7700,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_7721,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:852: 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_7641(4,av2);}}} /* loop in k9419 in macro-subset in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in ... */ 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 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_9423,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_9444,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=t2; t9=C_u_i_cdr(t8); /* expand.scm:1542: loop */ t11=t7; t12=t9; t1=t11; t2=t12; goto loop;}} /* k9419 in macro-subset in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in ... */ static void C_ccall f_9421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9421,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_9423,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li127),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_9423(t5,((C_word*)t0)[3],t1);} /* k3839 in walk in strip-syntax in k3666 in k3662 in k3658 in k3654 */ 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 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_3841,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_mutate2(((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_3850,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_3850(t9,((C_word*)t0)[6],C_fix(0));} /* k3821 in walk in strip-syntax in k3666 in k3662 in k3658 in k3654 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3823,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_3816,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:117: walk */ t7=((C_word*)((C_word*)t0)[6])[1]; f_3751(t7,t4,t6);} /* k5302 in k5273 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_5304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5304,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_5288(t3,t2);} /* ##sys#fixup-macro-environment in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in ... */ 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=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_9457,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_9464,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(t5)){ /* expand.scm:1546: ##sys#append */ t7=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t2; f_9464(2,av2);}}} /* k9462 in fixup-macro-environment in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in ... */ 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 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_9464,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9465,a[2]=t2,a[3]=((C_word)li129),tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[2]; t5=C_i_check_list_2(t4,lf[14]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9504,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_9506,a[2]=t8,a[3]=t3,a[4]=((C_word)li130),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_9506(t10,t6,t4);} /* g2741 in k9462 in fixup-macro-environment in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in ... */ static void C_fcall f_9465(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_9465,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_9481,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); /* expand.scm:1554: ##sys#append */ t11=*((C_word*)lf[70]+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);}}} /* k6330 in k6312 in loop in expand in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6332,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_6337,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)li66),tmp=(C_word)a,a+=10,tmp)); t5=((C_word*)t3)[1]; f_6337(t5,((C_word*)t0)[8],((C_word*)t0)[9]);} /* loop2 in k6330 in k6312 in loop in expand in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_6337(C_word t0,C_word 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,6)))){ C_save_and_reclaim_args((void *)trf_6337,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_cadr(t2); t4=t3; if(C_truep(C_i_pairp(t4))){ t5=C_i_car(t4); if(C_truep(C_i_pairp(t5))){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6403,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t4,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); /* expand.scm:576: ##sys#check-syntax */ t7=*((C_word*)lf[54]+1);{ C_word av2[7]; av2[0]=t7; av2[1]=t6; av2[2]=lf[101]; av2[3]=t2; av2[4]=lf[109]; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t7+1)))(7,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6417,a[2]=t4,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]=t1,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* expand.scm:581: ##sys#check-syntax */ t7=*((C_word*)lf[54]+1);{ C_word av2[7]; av2[0]=t7; av2[1]=t6; av2[2]=lf[101]; av2[3]=t2; av2[4]=lf[110]; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t7+1)))(7,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6350,a[2]=t4,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]=t1,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* expand.scm:566: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word av2[7]; av2[0]=t6; av2[1]=t5; av2[2]=lf[101]; av2[3]=t2; av2[4]=lf[112]; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(7,av2);}}} /* k5320 in k5273 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_5322(C_word 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_5322,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5325,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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(t3)){ t4=t2; f_5325(t4,C_SCHEME_UNDEFINED);} else{ t4=C_i_car(((C_word*)t0)[2]); t5=C_mutate2(((C_word *)((C_word*)t0)[8])+1,t4); t6=t2; f_5325(t6,t5);}} else{ /* expand.scm:410: err */ t2=((C_word*)t0)[9]; f_4944(t2,((C_word*)t0)[5],lf[78]);}} /* k5323 in k5320 in k5273 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_5325(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_5325,2,t0,t1);} t2=C_i_car(((C_word*)t0)[2]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); t4=C_u_i_cdr(((C_word*)t0)[2]); /* expand.scm:409: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_4972(t5,((C_word*)t0)[5],C_fix(2),((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_END_OF_LIST,t4);} /* k8564 in k8524 */ 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 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_8566,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8570,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:142: process-match */ t7=((C_word*)((C_word*)t0)[6])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8560 in k8524 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_8562,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_list(&a,1,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k8568 in k8564 in k8524 */ static void C_ccall f_8570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8570,2,av);} /* expand.scm:1533: ##sys#append */ t2=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5362 in k5273 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_5364(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_5364,2,t0,t1);} if(C_truep(C_fixnum_less_or_equal_p(((C_word*)t0)[2],C_fix(2)))){ /* expand.scm:415: loop */ t2=((C_word*)((C_word*)t0)[3])[1]; f_4972(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:416: err */ t2=((C_word*)t0)[8]; f_4944(t2,((C_word*)t0)[4],lf[80]);}} /* k6312 in loop in expand in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_6314(C_word t0,C_word t1){ C_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,6)))){ C_save_and_reclaim_args((void *)trf_6314,2,t0,t1);} a=C_alloc(14); if(C_truep(C_i_symbolp(t1))){ t2=( /* expand.scm:561: comp */ f_5744(((C_word*)((C_word*)t0)[2])[1],lf[101],t1) ); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6332,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); /* expand.scm:562: ##sys#check-syntax */ t4=*((C_word*)lf[54]+1);{ C_word av2[7]; av2[0]=t4; av2[1]=t3; av2[2]=lf[101]; av2[3]=((C_word*)t0)[10]; av2[4]=lf[113]; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} else{ t3=( /* expand.scm:588: comp */ f_5744(((C_word*)((C_word*)t0)[2])[1],lf[102],t1) ); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6469,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[12],tmp=(C_word)a,a+=8,tmp); /* expand.scm:589: ##sys#check-syntax */ t5=*((C_word*)lf[54]+1);{ C_word av2[6]; av2[0]=t5; av2[1]=t4; av2[2]=lf[102]; av2[3]=((C_word*)t0)[10]; av2[4]=lf[114]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ t4=( /* expand.scm:591: comp */ f_5744(((C_word*)((C_word*)t0)[2])[1],lf[103],t1) ); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6481,a[2]=((C_word*)t0)[10],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)[9],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* expand.scm:593: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word av2[7]; av2[0]=t6; av2[1]=t5; av2[2]=lf[103]; av2[3]=((C_word*)t0)[10]; av2[4]=lf[115]; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(7,av2);}} else{ t5=( /* expand.scm:595: comp */ f_5744(((C_word*)((C_word*)t0)[2])[1],lf[104],t1) ); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6517,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[9],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_i_cdr(((C_word*)t0)[10]); /* expand.scm:596: ##sys#append */ t8=*((C_word*)lf[70]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t6=C_a_i_list1(&a,1,t1); if(C_truep(C_i_member(t6,((C_word*)t0)[4]))){ /* expand.scm:599: fini */ t7=((C_word*)((C_word*)t0)[13])[1]; f_5810(t7,((C_word*)t0)[9],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[12]);} else{ t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6533,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[13],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)[12],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); /* expand.scm:600: ##sys#expand-0 */ t8=*((C_word*)lf[32]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[10]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[14]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}}}}}} else{ /* expand.scm:559: fini */ t2=((C_word*)((C_word*)t0)[13])[1]; f_5810(t2,((C_word*)t0)[9],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[12]);}} /* k6804 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6806,2,av);} /* expand.scm:656: ##sys#get */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[139]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[139]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[140]; tp(4,av2);}} /* k6863 in k6853 in k6850 in k6847 in k6844 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6865,2,av);} /* expand.scm:672: ##sys#print */ t2=*((C_word*)lf[124]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6850 in k6847 in k6844 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ 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(5,c,2)))){ C_save_and_reclaim((void *)f_6852,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6855,a[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:671: outstr */ t3=((C_word*)t0)[2]; f_6820(t3,t2,lf[127]);} /* k6853 in k6850 in k6847 in k6844 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 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_6855,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6858,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_6865,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=C_i_car(*((C_word*)lf[119]+1)); /* expand.scm:672: ##sys#strip-syntax */ t5=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6856 in k6853 in k6850 in k6847 in k6844 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6858,2,av);} /* expand.scm:673: outstr */ t2=((C_word*)t0)[2]; f_6820(t2,((C_word*)t0)[3],lf[126]);} /* loop in expand-curried-define in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_6688(C_word t0,C_word t1,C_word 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_6688,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_mutate2(((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[72],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[72],t9); t11=C_a_i_list(&a,1,t10); /* expand.scm:636: loop */ t13=t1; t14=t6; t15=t11; t1=t13; t2=t14; t3=t15; goto loop;}} /* ##sys#expand-curried-define in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_6685,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_6688,a[2]=t6,a[3]=t8,a[4]=((C_word)li73),tmp=(C_word)a,a+=5,tmp)); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6732,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* expand.scm:637: loop */ t11=((C_word*)t8)[1]; f_6688(t11,t10,t2,t3);} /* k6681 in match-expression in k4144 in k3666 in k3662 in k3658 in k3654 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_6683,2,av);} if(C_truep(t1)){ t2=((C_word*)((C_word*)t0)[2])[1]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a4504 in tmp13084 in a4454 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *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_4505,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[45]+1)); t3=C_mutate2((C_word*)lf[45]+1 /* (set! ##sys#syntax-rules-mismatch ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6844 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6846,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6849,a[2]=((C_word*)t0)[2],a[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:669: outstr */ t3=((C_word*)t0)[2]; f_6820(t3,t2,lf[128]);} /* k6847 in k6844 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6849(C_word c,C_word *av){ C_word tmp; C_word t0=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_6849,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6852,a[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:670: ##sys#print */ t3=*((C_word*)lf[124]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6832 in k6825 in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6834,2,av);} /* expand.scm:700: ##sys#syntax-error-hook */ t2=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_6836(C_word t0,C_word t1,C_word 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_6836,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_6846,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:668: outstr */ t4=((C_word*)t0)[2]; f_6820(t4,t3,((C_word*)t0)[5]);} else{ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6872,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:675: ##sys#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);}}} /* k11677 in k11664 in k11653 in k11650 in a11636 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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(9,c,2)))){ C_save_and_reclaim((void *)f_11679,2,av);} a=C_alloc(9); if(C_truep(t1)){ /* expand.scm:1035: ##sys#defjam-error */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_car(((C_word*)t0)[4]); t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[336],((C_word*)t0)[6],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* expand in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4531(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(3,0,6)))){ C_save_and_reclaim_args((void *)trf_4531,5,t0,t1,t2,t3,t4);} a=C_alloc(3); if(C_truep(C_i_listp(t3))){ if(C_truep(C_i_pairp(t4))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4557,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=C_i_cadr(t4); t7=t4; t8=C_u_i_car(t7); /* expand.scm:263: call-handler */ t9=((C_word*)((C_word*)t0)[2])[1]; f_4333(t9,t5,t2,t6,t3,t8,C_SCHEME_FALSE);} else{ /* expand.scm:265: values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}}} else{ /* expand.scm:259: ##sys#syntax-error-hook */ t5=*((C_word*)lf[41]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=lf[49]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k10835 in k10816 in expand in k10789 in k10786 in k10783 in k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in ... */ static void C_ccall f_10837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_10837,2,av);} a=C_alloc(29); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10840,a[2]=((C_word*)t0)[2],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:1242: expand */ t3=((C_word*)((C_word*)t0)[7])[1]; f_10804(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_10925,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[4],a[4]=((C_word)li157),tmp=(C_word)a,a+=5,tmp); t7=C_u_i_car(((C_word*)t0)[2]); t8=C_i_check_list_2(t7,lf[16]); t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10940,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_10942,a[2]=t6,a[3]=t4,a[4]=t11,a[5]=t5,a[6]=((C_word)li158),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_10942(t13,t9,t7);}} /* k4527 in a4454 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4529,2,av);} a=C_alloc(3); /* tmp23085 */ t2=((C_word*)t0)[2]; f_4512(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* k10829 in k10816 in expand in k10789 in k10786 in k10783 in k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10831,2,av);} /* expand.scm:1236: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[188]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[188]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[300]; av2[3]=t1; tp(4,av2);}} /* k10825 in k10822 in k10816 in expand in k10789 in k10786 in k10783 in k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in ... */ static void C_ccall f_10827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10827,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[299]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10822 in k10816 in expand in k10789 in k10786 in k10783 in k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_10824,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10827,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:1239: expand */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10804(t3,t2,((C_word*)t0)[4],C_SCHEME_TRUE);} /* k10816 in expand in k10789 in k10786 in k10783 in k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_10818,2,av);} a=C_alloc(11); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10824,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_10831,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* expand.scm:1238: ##sys#strip-syntax */ t4=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_10837,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:1241: c */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k7182 in walk in k7158 in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_7184(C_word 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_7184,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_7189,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)li90),tmp=(C_word)a,a+=9,tmp)); t6=((C_word*)t4)[1]; f_7189(t6,((C_word*)t0)[6],((C_word*)t0)[7],C_fix(0));} /* doloop1398 in k7182 in walk in k7158 in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_7189(C_word t0,C_word 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_7189,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:765: err */ t5=((C_word*)((C_word*)t0)[3])[1]; f_7044(t5,t1,lf[151]);} 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_7208,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:767: err */ t6=((C_word*)((C_word*)t0)[3])[1]; f_7044(t6,t5,lf[152]);} else{ if(C_truep(C_i_pairp(t2))){ t6=C_i_car(t2); /* expand.scm:770: walk */ t7=((C_word*)((C_word*)t0)[6])[1]; f_7165(t7,t5,t6,((C_word*)t0)[7]);} else{ /* expand.scm:769: err */ t6=((C_word*)((C_word*)t0)[3])[1]; f_7044(t6,t5,lf[153]);}}}} /* k6929 in k6897 in k6894 in k6891 in k6888 in k6885 in k6882 in k6873 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6931(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6931,2,av);} /* expand.scm:691: string-append */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[131]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* loop in k6897 in k6894 in k6891 in k6888 in k6885 in k6882 in k6873 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_6933(C_word t0,C_word t1,C_word 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_6933,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[132]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6947,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:697: symbol->string */ t5=*((C_word*)lf[44]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* loop in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4575(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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_4575,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:271: lookup */ f_3670(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_4599,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_4599(t12,C_SCHEME_UNDEFINED);} else{ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4817,a[2]=t10,a[3]=t11,tmp=(C_word)a,a+=4,tmp); /* expand.scm:273: ##sys#macro-environment */ t13=*((C_word*)lf[19]+1);{ C_word av2[2]; av2[0]=t13; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}} else{ /* expand.scm:299: 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:300: values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}}} /* k3869 in doloop331 in k3839 in walk in strip-syntax in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_3871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3871,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_3850(t4,((C_word*)t0)[5],t3);} /* k10800 in k10789 in k10786 in k10783 in k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in ... */ static void C_ccall f_10802(C_word c,C_word *av){ C_word tmp; 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_10802,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* expand in k10789 in k10786 in k10783 in k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in ... */ static void C_fcall f_10804(C_word t0,C_word t1,C_word 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(13,0,4)))){ C_save_and_reclaim_args((void *)trf_10804,4,t0,t1,t2,t3);} a=C_alloc(13); if(C_truep(C_i_pairp(t2))){ t4=C_i_car(t2); t5=t4; t6=t2; t7=C_u_i_cdr(t6); t8=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10818,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t7,a[6]=t5,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:1234: ##sys#check-syntax */ t9=*((C_word*)lf[54]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t8; av2[2]=lf[298]; av2[3]=t5; av2[4]=lf[301]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=lf[302]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4772 in k4760 in g695 in k4752 in k4597 in loop in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4774,2,av);} /* expand.scm:297: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4575(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* ##sys#extend-se in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_3882(C_word c,C_word *av){ C_word tmp; C_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 +19,c,3)))){ C_save_and_reclaim((void*)f_3882,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+19); 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_CLOSURE_TYPE|4,a[1]=(C_word)f_3886,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=*((C_word*)lf[8]+1); t11=t3; t12=C_i_check_list_2(t11,lf[16]); 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_4025,a[2]=t8,a[3]=t14,a[4]=t10,a[5]=t9,a[6]=((C_word)li7),tmp=(C_word)a,a+=7,tmp)); t16=((C_word*)t14)[1]; f_4025(t16,t5,t11);} else{ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_car(t4); f_3886(2,av2);}}} /* walk in k7158 in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_7165(C_word t0,C_word t1,C_word 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_7165,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_7184,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_7184(t12,C_fix(1));} else{ t12=C_fixnum_greaterp(t6,C_fix(2)); t13=t10; f_7184(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(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{ /* expand.scm:772: err */ t5=((C_word*)((C_word*)t0)[2])[1]; f_7044(t5,t1,lf[154]);}} else{ if(C_truep(C_i_symbolp(t3))){ t4=t3; t5=C_eqp(t4,lf[155]); 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[156]); if(C_truep(t6)){ /* expand.scm:776: test */ t7=((C_word*)((C_word*)t0)[4])[1]; f_7032(t7,t1,t2,*((C_word*)lf[157]+1),lf[158]);} else{ t7=C_eqp(t4,lf[159]); if(C_truep(t7)){ /* expand.scm:777: test */ t8=((C_word*)((C_word*)t0)[4])[1]; f_7032(t8,t1,t2,*((C_word*)lf[160]+1),lf[161]);} else{ t8=C_eqp(t4,lf[162]); if(C_truep(t8)){ /* expand.scm:778: test */ t9=((C_word*)((C_word*)t0)[4])[1]; f_7032(t9,t1,t2,*((C_word*)lf[160]+1),lf[163]);} else{ t9=C_eqp(t4,lf[164]); if(C_truep(t9)){ /* expand.scm:779: test */ t10=((C_word*)((C_word*)t0)[4])[1]; f_7032(t10,t1,t2,((C_word*)((C_word*)t0)[5])[1],lf[165]);} else{ t10=C_eqp(t4,lf[166]); if(C_truep(t10)){ /* expand.scm:780: test */ t11=((C_word*)((C_word*)t0)[4])[1]; f_7032(t11,t1,t2,*((C_word*)lf[167]+1),lf[168]);} else{ t11=C_eqp(t4,lf[169]); if(C_truep(t11)){ /* expand.scm:781: test */ t12=((C_word*)((C_word*)t0)[4])[1]; f_7032(t12,t1,t2,*((C_word*)lf[170]+1),lf[171]);} else{ t12=C_eqp(t4,lf[172]); if(C_truep(t12)){ /* expand.scm:782: test */ t13=((C_word*)((C_word*)t0)[4])[1]; f_7032(t13,t1,t2,((C_word*)((C_word*)t0)[6])[1],lf[173]);} else{ t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7362,a[2]=((C_word*)t0)[7],a[3]=t3,a[4]=((C_word)li91),tmp=(C_word)a,a+=5,tmp); /* expand.scm:784: test */ t14=((C_word*)((C_word*)t0)[4])[1]; f_7032(t14,t1,t2,t13,lf[174]);}}}}}}}}} else{ if(C_truep(C_i_pairp(t3))){ if(C_truep(C_i_pairp(t2))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7419,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); t6=C_i_car(t3); /* expand.scm:794: walk */ t15=t4; t16=t5; t17=t6; t1=t15; t2=t16; t3=t17; goto loop;} else{ /* expand.scm:792: err */ t4=((C_word*)((C_word*)t0)[2])[1]; f_7044(t4,t1,lf[175]);}} else{ /* expand.scm:791: err */ t4=((C_word*)((C_word*)t0)[2])[1]; f_7044(t4,t1,lf[176]);}}}}} /* k7158 in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_7160(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,4)))){ C_save_and_reclaim_args((void *)trf_7160,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_7165,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)li92),tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_7165(t5,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} /* k3884 in extend-se in k3666 in k3662 in k3658 in k3654 */ 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 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_3886,2,av);} a=C_alloc(12); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_check_list_2(t2,lf[14]); t5=C_i_check_list_2(t3,lf[14]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3911,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_3976,a[2]=t8,a[3]=((C_word)li6),tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_3976(t10,t6,t2,t3);} /* k6949 in k6945 in loop in k6897 in k6894 in k6891 in k6888 in k6885 in k6882 in k6873 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6951,2,av);} /* expand.scm:696: string-append */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[133]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[134]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* for-each-loop380 in k3884 in extend-se in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_3976(C_word t0,C_word t1,C_word 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_3976,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[7],C_SCHEME_FALSE); t9=(C_truep(t8)?C_a_i_putprop(&a,3,t6,lf[7],t8):C_a_i_putprop(&a,3,t6,lf[7],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);}}} /* a4517 in tmp23085 in a4454 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *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_4518,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k11684 in k11664 in k11653 in k11650 in a11636 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11686,2,av);} /* expand.scm:1034: c */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11697 in k11694 in k11691 in a11636 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,1)))){ C_save_and_reclaim((void *)f_11699,2,av);} a=C_alloc(21); t2=C_u_i_car(((C_word*)t0)[2]); t3=C_u_i_cdr(((C_word*)t0)[2]); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]); t5=C_a_i_cons(&a,2,lf[72],t4); t6=C_a_i_list(&a,2,lf[23],t5); t7=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[336],t2,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k6945 in loop in k6897 in k6894 in k6891 in k6888 in k6885 in k6882 in k6873 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6947,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6951,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:698: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_6933(t6,t3,t5);} /* tmp23085 in a4454 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4512(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_4512,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4518,a[2]=t2,a[3]=((C_word)li29),tmp=(C_word)a,a+=4,tmp); /* expand.scm:207: k562 */ 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);}} /* k11694 in k11691 in a11636 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 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_11696,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11699,a[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_car(t3); t5=C_i_car(((C_word*)t0)[2]); t6=C_eqp(t4,t5); if(C_truep(t6)){ /* expand.scm:1041: ##sys#syntax-error-hook */ t7=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t2; av2[2]=lf[337]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t7=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_11699(2,av2);}}} /* k11691 in a11636 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11693,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11696,a[2]=((C_word*)t0)[2],a[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:1039: ##sys#check-syntax */ t3=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[102]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[338]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11688 in k11653 in k11650 in a11636 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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:1033: ##sys#register-export */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[340]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[340]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* g507 in k4192 in k4189 in extend-macro-environment in k4144 in k3666 in k3662 in k3658 in k3654 */ static C_word C_fcall f_4201(C_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);} /* k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_5733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(30,c,6)))){ C_save_and_reclaim((void *)f_5733,2,av);} a=C_alloc(30); 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_5744,a[2]=t2,a[3]=((C_word)li56),tmp=(C_word)a,a+=4,tmp)); t19=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5810,a[2]=t17,a[3]=t11,a[4]=((C_word)li62),tmp=(C_word)a,a+=5,tmp)); t20=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6098,a[2]=t13,a[3]=t11,a[4]=((C_word)li65),tmp=(C_word)a,a+=5,tmp)); t21=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6288,a[2]=t11,a[3]=t2,a[4]=t15,a[5]=t13,a[6]=t7,a[7]=((C_word)li68),tmp=(C_word)a,a+=8,tmp)); /* expand.scm:605: expand */ t22=((C_word*)t17)[1]; f_6288(t22,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k6910 in k6897 in k6894 in k6891 in k6888 in k6885 in k6882 in k6873 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6912,2,av);} /* expand.scm:685: outstr */ t2=((C_word*)t0)[2]; f_6820(t2,((C_word*)t0)[3],t1);} /* k11736 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11738,2,av);} /* expand.scm:996: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[101]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6914 in k6897 in k6894 in k6891 in k6888 in k6885 in k6882 in k6873 in k6870 in loop in k6816 in syntax-error/context in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6916,2,av);} /* expand.scm:686: string-append */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3814 in k3821 in walk in strip-syntax in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3816,2,av);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(1),t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4217 in k4192 in k4189 in extend-macro-environment in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_4219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4219,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11762 in loop in k11742 in a11739 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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(12,c,2)))){ C_save_and_reclaim((void *)f_11764,2,av);} a=C_alloc(12); t2=C_i_getprop(((C_word*)t0)[2],lf[5],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_11775,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); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11803,a[2]=t5,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1008: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[242]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[242]+1); av2[1]=t6; tp(2,av2);}} /* k6479 in k6312 in loop in expand in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_6481,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:594: loop */ t7=((C_word*)((C_word*)t0)[6])[1]; f_6294(t7,((C_word*)t0)[7],((C_word*)t0)[8],t3,t5,t6);} /* k4244 in macro? in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_4246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4246,2,av);} a=C_alloc(4); t2=( /* expand.scm:184: lookup */ f_3670(((C_word*)t0)[2],t1) ); t3=C_i_pairp(t2); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_4268,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* expand.scm:186: ##sys#macro-environment */ t5=*((C_word*)lf[19]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k4238 in copy-macro in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_4240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_4240,2,av);} t2=( /* expand.scm:180: lookup */ f_3670(((C_word*)t0)[2],t1) );{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=*((C_word*)lf[27]+1); av2[3]=((C_word*)t0)[4]; av2[4]=t2; C_apply(5,av2);}} /* ##sys#macro? in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_4242,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_4246,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ /* expand.scm:183: ##sys#current-environment */ t5=*((C_word*)lf[1]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_car(t3); f_4246(2,av2);}}} /* ##sys#unregister-macro in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_4279(C_word c,C_word *av){ C_word tmp; C_word 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_4279,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4287,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4291,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* expand.scm:192: ##sys#macro-environment */ t5=*((C_word*)lf[19]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k6467 in k6312 in loop in expand in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6469,2,av);} /* expand.scm:590: fini/syntax */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6098(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* ##sys#copy-macro in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_4229,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4240,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* expand.scm:180: ##sys#macro-environment */ t5=*((C_word*)lf[19]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* er-macro-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_8040,3,av);} /* expand.scm:924: make-er/ir-transformer */ t3=*((C_word*)lf[177]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* map-loop635 in k4618 in k4606 in k4597 in loop in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4716(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_4716,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_mutate2(((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);}}} /* k4708 in k4618 in k4606 in k4597 in loop in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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_4710,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[51],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[52],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_4645,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_4647,a[2]=t11,a[3]=t15,a[4]=t12,a[5]=((C_word)li35),tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_4647(t17,t13,((C_word*)t0)[5]);} /* assq-reverse in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static C_word C_fcall f_7878(C_word t1,C_word t2){ C_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;}}} /* comp in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static C_word C_fcall f_5744(C_word t0,C_word t1,C_word t2){ C_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;{} t3=( /* expand.scm:474: lookup */ f_3670(t2,((C_word*)t0)[2]) ); t4=C_eqp(t1,t3); if(C_truep(t4)){ return(t4);} else{ t5=t1; t6=C_eqp(t5,lf[101]); if(C_truep(t6)){ return((C_truep(t3)?C_eqp(t3,*((C_word*)lf[97]+1)):C_eqp(t1,t2)));} else{ t7=C_eqp(t5,lf[102]); if(C_truep(t7)){ return((C_truep(t3)?C_eqp(t3,*((C_word*)lf[98]+1)):C_eqp(t1,t2)));} else{ t8=C_eqp(t5,lf[103]); return((C_truep(t8)?(C_truep(t3)?C_eqp(t3,*((C_word*)lf[99]+1)):C_eqp(t1,t2)):C_eqp(t1,t2)));}}}} /* ir-macro-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ 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; 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_8046,3,av);} /* expand.scm:925: make-er/ir-transformer */ t3=*((C_word*)lf[177]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k7499 in rename in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 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_7501,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7505,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:808: rename */ t6=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; f_7487(3,av2);}} /* k7503 in k7499 in rename in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_7505(C_word c,C_word *av){ C_word tmp; 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_7505,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k10844 in k10838 in k10835 in k10816 in expand in k10789 in k10786 in k10783 in k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 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(6,c,1)))){ C_save_and_reclaim((void *)f_10846,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[104],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10838 in k10835 in k10816 in expand in k10789 in k10786 in k10783 in k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in ... */ static void C_ccall f_10840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10840,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10846,a[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)[2]); t4=C_eqp(t3,C_fix(3)); if(C_truep(t4)){ t5=C_i_cadr(((C_word*)t0)[2]); /* expand.scm:1244: c */ t6=((C_word*)t0)[5];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_10846(2,av2);}}} /* k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_8055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8055,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8058,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11952,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11954,a[2]=((C_word)li180),tmp=(C_word)a,a+=3,tmp); /* expand.scm:941: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_8058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8058,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8061,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11942,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11944,a[2]=((C_word)li179),tmp=(C_word)a,a+=3,tmp); /* expand.scm:948: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11595 in a11584 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_11597(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_11597,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11600,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* expand.scm:1067: ##sys#check-syntax */ t3=*((C_word*)lf[54]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=lf[55]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[333]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11610,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* expand.scm:1070: ##sys#check-syntax */ t3=*((C_word*)lf[54]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=lf[55]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[335]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* map-loop2271 in expand in k9897 in k9894 in k9891 in k9888 in a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_fcall f_10074(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_10074,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_mutate2(((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);}}} /* k10070 in expand in k9897 in k9894 in k9891 in k9888 in a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_ccall f_10072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10072,2,av);}{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[25]+1); av2[3]=lf[268]; av2[4]=t1; C_apply(5,av2);}} /* k8033 in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_8035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8035,2,av);} /* expand.scm:922: handler */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8029 in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_8031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8031,2,av);} /* expand.scm:922: mirror-rename */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7903(t2,((C_word*)t0)[3],t1);} /* k11208 in k11181 in k11178 in k11138 in k11063 in k11060 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 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; if(C_unlikely(!C_demand(C_calculate_demand(30,c,1)))){ C_save_and_reclaim((void *)f_11210,2,av);} a=C_alloc(30); t2=C_a_i_list(&a,4,lf[310],((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=C_a_i_list(&a,3,lf[72],((C_word*)t0)[4],t2); t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[93],((C_word*)t0)[6],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8061,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8065,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:953: ##sys#macro-environment */ t3=*((C_word*)lf[19]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6515 in k6312 in loop in expand in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6517,2,av);} /* expand.scm:596: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6294(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* expand in k9897 in k9894 in k9891 in k9888 in a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in ... */ static void C_fcall f_10047(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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_10047,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[16]); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10072,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_10074,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_10074(t13,t9,((C_word*)t0)[2]);} else{ if(C_truep(C_i_pairp(t2))){ t4=C_i_car(t2); t5=t4; t6=t2; t7=C_u_i_cdr(t6); if(C_truep(C_i_pairp(t5))){ t8=C_i_car(t5); t9=t8; t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10137,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t7,a[6]=((C_word*)t0)[4],a[7]=t9,tmp=(C_word)a,a+=8,tmp); /* expand.scm:1415: c */ t11=((C_word*)t0)[5];{ C_word av2[4]; av2[0]=t11; av2[1]=t10; av2[2]=t9; av2[3]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t11))(4,av2);}} else{ /* expand.scm:1413: err */ t8=((C_word*)((C_word*)t0)[7])[1]; f_9901(t8,t1,t5);}} else{ /* expand.scm:1408: err */ t4=((C_word*)((C_word*)t0)[7])[1]; f_9901(t4,t1,t2);}}} /* k11742 in a11739 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_11744,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_11749,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)li172),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_11749(t5,((C_word*)t0)[5],((C_word*)t0)[2]);} /* loop in k11742 in a11739 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_11749(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_11749,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); if(C_truep(C_i_pairp(t4))){ t8=C_i_car(t4); if(C_truep(C_i_pairp(t8))){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11812,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,a[5]=t7,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1015: ##sys#check-syntax */ t10=*((C_word*)lf[54]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t9; av2[2]=lf[101]; av2[3]=t2; av2[4]=lf[342]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11822,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=t7,a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* expand.scm:1018: ##sys#check-syntax */ t10=*((C_word*)lf[54]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t9; av2[2]=lf[101]; av2[3]=t2; av2[4]=lf[343]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}} else{ t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11764,a[2]=t4,a[3]=t7,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); /* expand.scm:1006: ##sys#check-syntax */ t9=*((C_word*)lf[54]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t8; av2[2]=lf[101]; av2[3]=t2; av2[4]=lf[345]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} /* g1569 in k7841 in k7758 in k7750 in compare in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static C_word C_fcall f_7828(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));} /* a11739 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_11740,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11744,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1001: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[101]; av2[3]=t2; av2[4]=lf[346]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* loop in check-for-multiple-bindings in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_8096(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_8096,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_8109,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_8109(t12,C_i_not(t11));} else{ t8=t6; f_8109(t8,C_SCHEME_FALSE);}}} /* k7572 in g1452 in rename in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_7574(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_7574,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7577,a[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:824: macro-alias */ f_3687(t2,((C_word*)t0)[2],((C_word*)t0)[5]);} else{ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[6]); t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[3])[1]); t4=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t3); t5=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t5; av2[1]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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; 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_8071,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8074,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11891,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11893,a[2]=((C_word)li176),tmp=(C_word)a,a+=3,tmp); /* expand.scm:974: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7575 in k7572 in g1452 in rename in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_7577(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7577,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_mutate2(((C_word *)((C_word*)t0)[3])+1,t3); t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t5+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_toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,3)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void*)C_expand_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(3232))){ C_save(t1); C_rereclaim2(3232*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,358); lf[0]=C_h_intern(&lf[0],12,"\003sysfeatures"); lf[1]=C_h_intern(&lf[1],23,"\003syscurrent-environment"); lf[2]=C_h_intern(&lf[2],28,"\003syscurrent-meta-environment"); lf[3]=C_h_intern(&lf[3],27,"\003sysactive-eval-environment"); lf[5]=C_h_intern(&lf[5],16,"\004coremacro-alias"); lf[7]=C_h_intern(&lf[7],14,"\004corereal-name"); lf[8]=C_h_intern(&lf[8],6,"gensym"); lf[9]=C_h_intern(&lf[9],21,"\003sysqualified-symbol\077"); lf[10]=C_h_intern(&lf[10],12,"strip-syntax"); lf[11]=C_h_intern(&lf[11],11,"make-vector"); lf[12]=C_h_intern(&lf[12],16,"\003sysstrip-syntax"); lf[13]=C_h_intern(&lf[13],13,"\003sysextend-se"); lf[14]=C_h_intern(&lf[14],8,"for-each"); lf[15]=C_h_intern(&lf[15],6,"append"); lf[16]=C_h_intern(&lf[16],3,"map"); lf[17]=C_h_intern(&lf[17],13,"\003sysglobalize"); lf[18]=C_h_intern(&lf[18],21,"\003sysalias-global-hook"); lf[19]=C_h_intern(&lf[19],21,"\003sysmacro-environment"); lf[20]=C_h_intern(&lf[20],29,"\003syschicken-macro-environment"); lf[21]=C_h_intern(&lf[21],33,"\003syschicken-ffi-macro-environment"); lf[22]=C_h_intern(&lf[22],22,"\003sysensure-transformer"); lf[23]=C_h_intern(&lf[23],18,"\003syser-transformer"); lf[24]=C_h_intern(&lf[24],11,"transformer"); lf[25]=C_h_intern(&lf[25],9,"\003syserror"); lf[26]=C_decode_literal(C_heaptop,"\376B\000\000$expected syntax-transformer, but got"); lf[27]=C_h_intern(&lf[27],28,"\003sysextend-macro-environment"); lf[28]=C_h_intern(&lf[28],14,"\003syscopy-macro"); lf[29]=C_h_intern(&lf[29],10,"\003sysmacro\077"); lf[30]=C_h_intern(&lf[30],20,"\003sysunregister-macro"); lf[31]=C_h_intern(&lf[31],19,"\003sysundefine-macro!"); lf[32]=C_h_intern(&lf[32],12,"\003sysexpand-0"); lf[33]=C_h_intern(&lf[33],9,"condition"); lf[34]=C_h_intern(&lf[34],9,"\003sysabort"); lf[35]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\007message"); lf[36]=C_h_intern(&lf[36],13,"string-append"); lf[37]=C_decode_literal(C_heaptop,"\376B\000\000\025during expansion of ("); lf[38]=C_decode_literal(C_heaptop,"\376B\000\000\010 ...) - "); lf[39]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\007message"); lf[40]=C_h_intern(&lf[40],3,"exn"); lf[41]=C_h_intern(&lf[41],21,"\003syssyntax-error-hook"); lf[42]=C_decode_literal(C_heaptop,"\376B\000\000\030syntax transformer for `"); lf[43]=C_decode_literal(C_heaptop,"\376B\000\000@\047 returns original form, which would result in endless expansion"); lf[44]=C_h_intern(&lf[44],14,"symbol->string"); lf[45]=C_h_intern(&lf[45],25,"\003syssyntax-rules-mismatch"); lf[46]=C_h_intern(&lf[46],16,"\003sysdynamic-wind"); lf[47]=C_h_intern(&lf[47],22,"with-exception-handler"); lf[48]=C_h_intern(&lf[48],30,"call-with-current-continuation"); lf[49]=C_decode_literal(C_heaptop,"\376B\000\000\034invalid syntax in macro form"); lf[50]=C_h_intern(&lf[50],8,"\004corelet"); lf[51]=C_h_intern(&lf[51],16,"\004coreloop-lambda"); lf[52]=C_h_intern(&lf[52],12,"\004coreletrec\052"); lf[53]=C_h_intern(&lf[53],8,"\004coreapp"); lf[54]=C_h_intern(&lf[54],16,"\003syscheck-syntax"); lf[55]=C_h_intern(&lf[55],3,"let"); lf[56]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010variable\376\003\000\000\002\376\001\000\000\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[57]=C_decode_literal(C_heaptop,"\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\002"); lf[58]=C_h_intern(&lf[58],24,"\003syscompiler-syntax-hook"); lf[59]=C_h_intern(&lf[59],24,"\010compilercompiler-syntax"); lf[60]=C_h_intern(&lf[60],25,"\003sysenable-runtime-macros"); lf[61]=C_h_intern(&lf[61],6,"expand"); lf[62]=C_h_intern(&lf[62],10,"\003sysexpand"); lf[63]=C_h_intern(&lf[63],25,"\003sysextended-lambda-list\077"); lf[64]=C_h_intern(&lf[64],6,"#!rest"); lf[65]=C_h_intern(&lf[65],10,"#!optional"); lf[66]=C_h_intern(&lf[66],5,"#!key"); lf[67]=C_h_intern(&lf[67],31,"\003sysexpand-extended-lambda-list"); lf[68]=C_h_intern(&lf[68],5,"cadar"); lf[69]=C_h_intern(&lf[69],7,"reverse"); lf[70]=C_h_intern(&lf[70],10,"\003sysappend"); lf[71]=C_h_intern(&lf[71],10,"\004corequote"); lf[72]=C_h_intern(&lf[72],11,"\004corelambda"); lf[73]=C_h_intern(&lf[73],15,"\003sysget-keyword"); lf[74]=C_h_intern(&lf[74],15,"string->keyword"); lf[75]=C_decode_literal(C_heaptop,"\376B\000\000+rest argument list specified more than once"); lf[76]=C_decode_literal(C_heaptop,"\376B\000\000-`#!optional\047 argument marker in wrong context"); lf[77]=C_h_intern(&lf[77],3,"tmp"); lf[78]=C_decode_literal(C_heaptop,"\376B\000\000#invalid syntax of `#!rest\047 argument"); lf[79]=C_decode_literal(C_heaptop,"\376B\000\000)`#!rest\047 argument marker in wrong context"); lf[80]=C_decode_literal(C_heaptop,"\376B\000\000(`#!key\047 argument marker in wrong context"); lf[81]=C_decode_literal(C_heaptop,"\376B\000\0000invalid lambda list syntax after `#!rest\047 marker"); lf[82]=C_decode_literal(C_heaptop,"\376B\000\000 invalid required argument syntax"); lf[83]=C_decode_literal(C_heaptop,"\376B\000\0000invalid lambda list syntax after `#!rest\047 marker"); lf[84]=C_decode_literal(C_heaptop,"\376B\000\000\032invalid lambda list syntax"); lf[85]=C_decode_literal(C_heaptop,"\376B\000\000\032invalid lambda list syntax"); lf[86]=C_h_intern(&lf[86],14,"let-optionals\052"); lf[87]=C_h_intern(&lf[87],8,"optional"); lf[88]=C_h_intern(&lf[88],4,"let\052"); lf[89]=C_h_intern(&lf[89],29,"\003sysdefault-macro-environment"); lf[90]=C_h_intern(&lf[90],16,"\003sysdefjam-error"); lf[91]=C_decode_literal(C_heaptop,"\376B\000\000,redefinition of currently used defining form"); lf[92]=C_h_intern(&lf[92],37,"\003sysexpand-multiple-values-assignment"); lf[93]=C_h_intern(&lf[93],20,"\003syscall-with-values"); lf[94]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016\376\377\016"); lf[95]=C_h_intern(&lf[95],9,"\004coreset!"); lf[96]=C_h_intern(&lf[96],25,"\003sysdecompose-lambda-list"); lf[97]=C_h_intern(&lf[97],21,"\003sysdefine-definition"); lf[98]=C_h_intern(&lf[98],28,"\003sysdefine-syntax-definition"); lf[99]=C_h_intern(&lf[99],28,"\003sysdefine-values-definition"); lf[100]=C_h_intern(&lf[100],21,"\003syscanonicalize-body"); lf[101]=C_h_intern(&lf[101],6,"define"); lf[102]=C_h_intern(&lf[102],13,"define-syntax"); lf[103]=C_h_intern(&lf[103],13,"define-values"); lf[104]=C_h_intern(&lf[104],10,"\004corebegin"); lf[105]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[106]=C_h_intern(&lf[106],18,"\004coreletrec-syntax"); lf[107]=C_h_intern(&lf[107],5,"caadr"); lf[108]=C_h_intern(&lf[108],25,"\003sysexpand-curried-define"); lf[109]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001_\376\001\000\000\013lambda-list\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[110]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010variable\376\001\000\000\013lambda-list\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[111]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[112]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\010variable\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\000"); lf[113]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\000"); lf[114]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[115]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\013lambda-list\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[117]=C_h_intern(&lf[117],24,"\003sysline-number-database"); lf[118]=C_h_intern(&lf[118],24,"\003syssyntax-error-culprit"); lf[119]=C_h_intern(&lf[119],18,"\003syssyntax-context"); lf[120]=C_h_intern(&lf[120],12,"syntax-error"); lf[121]=C_h_intern(&lf[121],15,"\003syssignal-hook"); lf[122]=C_h_intern(&lf[122],13,"\000syntax-error"); lf[123]=C_h_intern(&lf[123],24,"\003syssyntax-error/context"); lf[124]=C_h_intern(&lf[124],9,"\003sysprint"); lf[125]=C_h_intern(&lf[125],17,"get-output-string"); lf[126]=C_decode_literal(C_heaptop,"\376B\000\000\006 ...)\047"); lf[127]=C_decode_literal(C_heaptop,"\376B\000\000\025\012inside expression `("); lf[128]=C_decode_literal(C_heaptop,"\376B\000\000\002: "); lf[129]=C_decode_literal(C_heaptop,"\376B\000\000\027 Suggesting: `(import "); lf[130]=C_decode_literal(C_heaptop,"\376B\000\000\002)\047"); lf[131]=C_decode_literal(C_heaptop,"\376B\000\000\025 Suggesting one of:\012"); lf[132]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[133]=C_decode_literal(C_heaptop,"\376B\000\000\017\012 (import "); lf[134]=C_decode_literal(C_heaptop,"\376B\000\000\002)\047"); lf[135]=C_decode_literal(C_heaptop,"\376B\000\000# ...)\047 without importing it first.\012"); lf[136]=C_decode_literal(C_heaptop,"\376B\000\000-\012\012 Perhaps you intended to use the syntax `("); lf[137]=C_decode_literal(C_heaptop,"\376B\000\000\002: "); lf[138]=C_h_intern(&lf[138],6,"syntax"); lf[139]=C_h_intern(&lf[139],7,"\003sysget"); lf[140]=C_h_intern(&lf[140],7,"\004coredb"); lf[141]=C_h_intern(&lf[141],18,"open-output-string"); lf[142]=C_decode_literal(C_heaptop,"\376B\000\000\024no rule matches form"); lf[143]=C_h_intern(&lf[143],15,"get-line-number"); lf[144]=C_h_intern(&lf[144],18,"\003syshash-table-ref"); lf[145]=C_decode_literal(C_heaptop,"\376B\000\000\001("); lf[146]=C_decode_literal(C_heaptop,"\376B\000\000\006) in `"); lf[147]=C_decode_literal(C_heaptop,"\376B\000\000\004\047 - "); lf[148]=C_decode_literal(C_heaptop,"\376B\000\000\004in `"); lf[149]=C_decode_literal(C_heaptop,"\376B\000\000\004\047 - "); lf[150]=C_h_intern(&lf[150],8,"keyword\077"); lf[151]=C_decode_literal(C_heaptop,"\376B\000\000\024not enough arguments"); lf[152]=C_decode_literal(C_heaptop,"\376B\000\000\022too many arguments"); lf[153]=C_decode_literal(C_heaptop,"\376B\000\000\021not a proper list"); lf[154]=C_decode_literal(C_heaptop,"\376B\000\000\021unexpected object"); lf[155]=C_h_intern(&lf[155],1,"_"); lf[156]=C_h_intern(&lf[156],4,"pair"); lf[157]=C_h_intern(&lf[157],5,"pair\077"); lf[158]=C_decode_literal(C_heaptop,"\376B\000\000\015pair expected"); lf[159]=C_h_intern(&lf[159],8,"variable"); lf[160]=C_h_intern(&lf[160],7,"symbol\077"); lf[161]=C_decode_literal(C_heaptop,"\376B\000\000\023identifier expected"); lf[162]=C_h_intern(&lf[162],6,"symbol"); lf[163]=C_decode_literal(C_heaptop,"\376B\000\000\017symbol expected"); lf[164]=C_h_intern(&lf[164],4,"list"); lf[165]=C_decode_literal(C_heaptop,"\376B\000\000\024proper list expected"); lf[166]=C_h_intern(&lf[166],6,"number"); lf[167]=C_h_intern(&lf[167],7,"number\077"); lf[168]=C_decode_literal(C_heaptop,"\376B\000\000\017number expected"); lf[169]=C_h_intern(&lf[169],6,"string"); lf[170]=C_h_intern(&lf[170],7,"string\077"); lf[171]=C_decode_literal(C_heaptop,"\376B\000\000\017string expected"); lf[172]=C_h_intern(&lf[172],11,"lambda-list"); lf[173]=C_decode_literal(C_heaptop,"\376B\000\000\024lambda-list expected"); lf[174]=C_decode_literal(C_heaptop,"\376B\000\000\017missing keyword"); lf[175]=C_decode_literal(C_heaptop,"\376B\000\000\015pair expected"); lf[176]=C_decode_literal(C_heaptop,"\376B\000\000\017incomplete form"); lf[177]=C_h_intern(&lf[177],22,"make-er/ir-transformer"); lf[178]=C_h_intern(&lf[178],12,"list->vector"); lf[179]=C_h_intern(&lf[179],12,"vector->list"); lf[180]=C_h_intern(&lf[180],12,"\004corealiased"); lf[181]=C_h_intern(&lf[181],14,"\004coreprimitive"); lf[182]=C_decode_literal(C_heaptop,"\376B\000\000\033(expand.scm:805) not a list"); lf[183]=C_h_intern(&lf[183],20,"er-macro-transformer"); lf[184]=C_h_intern(&lf[184],20,"ir-macro-transformer"); lf[185]=C_h_intern(&lf[185],18,"\003sysir-transformer"); lf[186]=C_h_intern(&lf[186],29,"\003sysinitial-macro-environment"); lf[188]=C_h_intern(&lf[188],8,"\003syswarn"); lf[189]=C_decode_literal(C_heaptop,"\376B\000\000!variable bound multiple times in "); lf[190]=C_decode_literal(C_heaptop,"\376B\000\000\012 construct"); lf[191]=C_h_intern(&lf[191],24,"\003sysprocess-syntax-rules"); lf[192]=C_h_intern(&lf[192],7,"\003syscar"); lf[193]=C_h_intern(&lf[193],7,"\003syscdr"); lf[194]=C_h_intern(&lf[194],10,"\003syslength"); lf[195]=C_h_intern(&lf[195],11,"\003sysvector\077"); lf[196]=C_h_intern(&lf[196],16,"\003sysvector->list"); lf[197]=C_h_intern(&lf[197],16,"\003syslist->vector"); lf[198]=C_h_intern(&lf[198],6,"\003sys>="); lf[199]=C_h_intern(&lf[199],5,"\003sys="); lf[200]=C_h_intern(&lf[200],5,"\003sys+"); lf[201]=C_h_intern(&lf[201],8,"\003syscons"); lf[202]=C_h_intern(&lf[202],7,"\003syseq\077"); lf[203]=C_h_intern(&lf[203],10,"\003sysequal\077"); lf[204]=C_h_intern(&lf[204],9,"\003syslist\077"); lf[205]=C_h_intern(&lf[205],7,"\003sysmap"); lf[206]=C_h_intern(&lf[206],9,"\003sysmap-n"); lf[207]=C_h_intern(&lf[207],9,"\003syspair\077"); lf[208]=C_decode_literal(C_heaptop,"\376B\000\000\026ill-formed syntax rule"); lf[209]=C_h_intern(&lf[209],11,"\004coresyntax"); lf[210]=C_h_intern(&lf[210],5,"quote"); lf[211]=C_h_intern(&lf[211],14,"\003sysdrop-right"); lf[212]=C_h_intern(&lf[212],14,"\003systake-right"); lf[213]=C_decode_literal(C_heaptop,"\376B\000\000,template dimension error (too few ellipses\077)"); lf[214]=C_decode_literal(C_heaptop,"\376B\000\000\021too many ellipses"); lf[215]=C_h_intern(&lf[215],9,"\003sysapply"); lf[216]=C_decode_literal(C_heaptop,"\376B\000\000%Only one segment per level is allowed"); lf[217]=C_decode_literal(C_heaptop,"\376B\000\000\047Cannot combine dotted tail and ellipsis"); lf[218]=C_h_intern(&lf[218],4,"temp"); lf[219]=C_h_intern(&lf[219],4,"tail"); lf[220]=C_h_intern(&lf[220],6,"rename"); lf[221]=C_h_intern(&lf[221],2,"or"); lf[222]=C_h_intern(&lf[222],4,"loop"); lf[223]=C_h_intern(&lf[223],6,"lambda"); lf[224]=C_h_intern(&lf[224],3,"len"); lf[225]=C_h_intern(&lf[225],1,"l"); lf[226]=C_h_intern(&lf[226],5,"input"); lf[227]=C_h_intern(&lf[227],4,"else"); lf[228]=C_h_intern(&lf[228],4,"cond"); lf[229]=C_h_intern(&lf[229],7,"compare"); lf[230]=C_h_intern(&lf[230],3,"and"); lf[231]=C_h_intern(&lf[231],16,"\003sysmacro-subset"); lf[232]=C_h_intern(&lf[232],27,"\003sysfixup-macro-environment"); lf[233]=C_h_intern(&lf[233],26,"\003sysmeta-macro-environment"); lf[234]=C_h_intern(&lf[234],14,"make-parameter"); lf[235]=C_h_intern(&lf[235],12,"syntax-rules"); lf[236]=C_h_intern(&lf[236],3,"..."); lf[237]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\004list\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\000"); lf[238]=C_decode_literal(C_heaptop,"\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\002"); lf[239]=C_h_intern(&lf[239],6,"export"); lf[240]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[241]=C_h_intern(&lf[241],22,"\003sysadd-to-export-list"); lf[242]=C_h_intern(&lf[242],18,"\003syscurrent-module"); lf[243]=C_h_intern(&lf[243],20,"\003sysvalidate-exports"); lf[244]=C_h_intern(&lf[244],16,"begin-for-syntax"); lf[245]=C_h_intern(&lf[245],24,"\004coreelaborationtimeonly"); lf[246]=C_h_intern(&lf[246],28,"\003sysregister-meta-expression"); lf[247]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\000"); lf[248]=C_h_intern(&lf[248],6,"module"); lf[249]=C_h_intern(&lf[249],1,"\052"); lf[250]=C_h_intern(&lf[250],1,"="); lf[251]=C_h_intern(&lf[251],14,"string->symbol"); lf[252]=C_h_intern(&lf[252],17,"\003sysstring-append"); lf[253]=C_decode_literal(C_heaptop,"\376B\000\000\001_"); lf[254]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[255]=C_h_intern(&lf[255],25,"\003sysregister-module-alias"); lf[256]=C_h_intern(&lf[256],23,"\003sysinstantiate-functor"); lf[257]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006symbol\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\000\376\377\016" ); lf[258]=C_h_intern(&lf[258],12,"\004coreinclude"); lf[259]=C_h_intern(&lf[259],11,"\004coremodule"); lf[260]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\000"); lf[261]=C_h_intern(&lf[261],28,"require-extension-for-syntax"); lf[262]=C_h_intern(&lf[262],17,"require-extension"); lf[263]=C_h_intern(&lf[263],22,"\004corerequire-extension"); lf[264]=C_h_intern(&lf[264],15,"require-library"); lf[265]=C_h_intern(&lf[265],11,"cond-expand"); lf[266]=C_decode_literal(C_heaptop,"\376B\000\000\042syntax error in `cond-expand\047 form"); lf[267]=C_h_intern(&lf[267],12,"\003sysfeature\077"); lf[268]=C_decode_literal(C_heaptop,"\376B\000\000(no matching clause in `cond-expand\047 form"); lf[269]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[270]=C_h_intern(&lf[270],3,"not"); lf[271]=C_h_intern(&lf[271],11,"delay-force"); lf[272]=C_h_intern(&lf[272],16,"\003sysmake-promise"); lf[273]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[274]=C_h_intern(&lf[274],5,"delay"); lf[275]=C_h_intern(&lf[275],8,"\003syslist"); lf[276]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[277]=C_h_intern(&lf[277],10,"quasiquote"); lf[278]=C_h_intern(&lf[278],7,"unquote"); lf[279]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[280]=C_h_intern(&lf[280],16,"unquote-splicing"); lf[281]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[282]=C_h_intern(&lf[282],1,"a"); lf[283]=C_h_intern(&lf[283],1,"b"); lf[284]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\012\003sysappend\376\003\000\000\002\376\001\000\000\001a\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\004corequote\376\003\000\000\002\376\377\016\376\377\016\376\377\016"); lf[285]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001a\376\377\016"); lf[286]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\010\003syscons\376\003\000\000\002\376\001\000\000\001a\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\003syslist\376\001\000\000\001b\376\377\016"); lf[287]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001a\376\003\000\000\002\376\001\000\000\001b\376\377\016"); lf[288]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\010\003syscons\376\003\000\000\002\376\001\000\000\001a\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\004corequote\376\003\000\000\002\376\377\016\376\377\016\376\377\016"); lf[289]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001a\376\377\016"); lf[290]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[291]=C_h_intern(&lf[291],2,"do"); lf[292]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[293]=C_h_intern(&lf[293],7,"\004coreif"); lf[294]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[295]=C_h_intern(&lf[295],6,"doloop"); lf[296]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\001\376\001\000\000\001_\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001_\376\377\001" "\000\000\000\001"); lf[297]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[298]=C_h_intern(&lf[298],4,"case"); lf[299]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\012\004corebegin\376\377\016"); lf[300]=C_decode_literal(C_heaptop,"\376B\000\000(clause following `else\047 clause in `case\047"); lf[301]=C_decode_literal(C_heaptop,"\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[302]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[303]=C_h_intern(&lf[303],4,"eqv\077"); lf[304]=C_h_intern(&lf[304],2,"=>"); lf[305]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\000"); lf[306]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\012\004corebegin\376\377\016"); lf[307]=C_h_intern(&lf[307],7,"sprintf"); lf[308]=C_decode_literal(C_heaptop,"\376B\000\000\022\047 clause in `cond\047"); lf[309]=C_decode_literal(C_heaptop,"\376B\000\000\022clause following `"); lf[310]=C_h_intern(&lf[310],2,"if"); lf[311]=C_h_intern(&lf[311],18,"\003syssrfi-4-vector\077"); lf[312]=C_h_intern(&lf[312],5,"blob\077"); lf[313]=C_decode_literal(C_heaptop,"\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[314]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[315]=C_h_intern(&lf[315],4,"set!"); lf[316]=C_h_intern(&lf[316],10,"\003syssetter"); lf[317]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[318]=C_h_intern(&lf[318],13,"letrec-syntax"); lf[319]=C_decode_literal(C_heaptop,"\376B\000\000\015letrec-syntax"); lf[320]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[321]=C_h_intern(&lf[321],10,"let-syntax"); lf[322]=C_h_intern(&lf[322],15,"\004corelet-syntax"); lf[323]=C_decode_literal(C_heaptop,"\376B\000\000\012let-syntax"); lf[324]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[325]=C_h_intern(&lf[325],6,"letrec"); lf[326]=C_h_intern(&lf[326],11,"\004coreletrec"); lf[327]=C_decode_literal(C_heaptop,"\376B\000\000\006letrec"); lf[328]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[329]=C_h_intern(&lf[329],7,"letrec\052"); lf[330]=C_decode_literal(C_heaptop,"\376B\000\000\007letrec\052"); lf[331]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[332]=C_decode_literal(C_heaptop,"\376B\000\000\003let"); lf[333]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376" "\001\000\000\001_\376\377\001\000\000\000\001"); lf[334]=C_decode_literal(C_heaptop,"\376B\000\000\003let"); lf[335]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[336]=C_h_intern(&lf[336],18,"\004coredefine-syntax"); lf[337]=C_decode_literal(C_heaptop,"\376B\000\000@redefinition of `define-syntax\047 not allowed in syntax-definition"); lf[338]=C_decode_literal(C_heaptop,"\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[339]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\001\000\000\013lambda-list"); lf[340]=C_h_intern(&lf[340],19,"\003sysregister-export"); lf[341]=C_decode_literal(C_heaptop,"\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[342]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001_\376\001\000\000\013lambda-list\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[343]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006symbol\376\001\000\000\013lambda-list\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[344]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[345]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\006symbol\376\000\000\000\003\376\001\000\000\001_\376\377\001\000\000\000\000\376\377\001\000\000\000\001"); lf[346]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[347]=C_h_intern(&lf[347],5,"begin"); lf[348]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\000"); lf[349]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\001\376\001\000\000\001_"); lf[350]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[351]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[352]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\013lambda-list\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[353]=C_h_intern(&lf[353],8,"reexport"); lf[354]=C_h_intern(&lf[354],17,"\003sysexpand-import"); lf[355]=C_h_intern(&lf[355],17,"import-for-syntax"); lf[356]=C_h_intern(&lf[356],6,"import"); lf[357]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\020\000hygienic-macros\376\003\000\000\002\376\001\000\000\015\000syntax-rules\376\003\000\000\002\376\001\000\000\007\000srfi-0\376\003\000\000\002\376\001\000\000\007\000srf" "i-2\376\003\000\000\002\376\001\000\000\007\000srfi-6\376\003\000\000\002\376\001\000\000\007\000srfi-9\376\003\000\000\002\376\001\000\000\010\000srfi-46\376\003\000\000\002\376\001\000\000\010\000srfi-55\376\003\000\000\002\376\001" "\000\000\010\000srfi-61\376\377\016"); C_register_lf2(lf,358,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3656,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* expand.scm:55: append */ t3=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[357]; av2[3]=*((C_word*)lf[0]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k7813 in k7758 in k7750 in compare in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_7815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7815,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_7800,a[2]=((C_word*)t0)[3],a[3]=((C_word)li97),tmp=(C_word)a,a+=4,tmp); /* expand.scm:862: g1560 */ t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( /* expand.scm:862: g1560 */ f_7800(t3,t2) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_8065(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8065,2,av);} a=C_alloc(9); t2=C_mutate2((C_word*)lf[186]+1 /* (set! ##sys#initial-macro-environment ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8068,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11925,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11927,a[2]=((C_word)li178),tmp=(C_word)a,a+=3,tmp); /* expand.scm:958: ##sys#er-transformer */ t6=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k11235 in k11178 in k11138 in k11063 in k11060 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_11237,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,4,lf[293],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_8068(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8068,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8071,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11908,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11910,a[2]=((C_word)li177),tmp=(C_word)a,a+=3,tmp); /* expand.scm:966: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k10029 in k10022 in k9980 in k9942 in test in k9897 in k9894 in k9891 in k9888 in a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10031,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7520 in rename in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_7522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7522,2,av);} /* expand.scm:810: list->vector */ t2=*((C_word*)lf[178]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6531 in k6312 in loop in expand in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6533,2,av);} a=C_alloc(3); t2=C_eqp(((C_word*)t0)[2],t1); if(C_truep(t2)){ /* expand.scm:602: fini */ t3=((C_word*)((C_word*)t0)[3])[1]; f_5810(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:603: loop */ t4=((C_word*)((C_word*)t0)[10])[1]; f_6294(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}} /* k7524 in rename in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ 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,2)))){ C_save_and_reclaim((void *)f_7526,2,av);} /* expand.scm:810: rename */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; f_7487(3,av2);}} /* g1560 in k7813 in k7758 in k7750 in compare in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static C_word C_fcall f_7800(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]));} /* k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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; 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_8077,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8080,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11857,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11859,a[2]=((C_word)li174),tmp=(C_word)a,a+=3,tmp); /* expand.scm:990: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8074,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8077,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11874,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11876,a[2]=((C_word)li175),tmp=(C_word)a,a+=3,tmp); /* expand.scm:982: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k10022 in k9980 in k9942 in test in k9897 in k9894 in k9891 in k9888 in a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10024,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10031,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* expand.scm:1401: test */ t4=((C_word*)((C_word*)t0)[4])[1]; f_9911(t4,t2,t3);} else{ /* expand.scm:1402: err */ t2=((C_word*)((C_word*)t0)[5])[1]; f_9901(t2,((C_word*)t0)[2],((C_word*)t0)[3]);}} /* g1452 in rename in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_7556(C_word t0,C_word 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_7556,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_i_symbolp(t2))){ t3=t2; t4=C_i_getprop(t3,lf[180],C_SCHEME_FALSE); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7574,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=t2,tmp=(C_word)a,a+=7,tmp); if(C_truep(t4)){ t6=t5; f_7574(t6,t4);} else{ t6=t2; t7=t5; f_7574(t7,C_i_getprop(t6,lf[181],C_SCHEME_FALSE));}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7607,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* expand.scm:832: macro-alias */ f_3687(t3,((C_word*)t0)[2],((C_word*)t0)[4]);}} /* k10583 in k10562 in k10534 in k10522 in a10519 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in ... */ static void C_fcall f_10585(C_word t0,C_word t1){ C_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_10585,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_10626,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_10628,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li152),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_10628(t11,t7,((C_word*)t0)[7]);} /* k10562 in k10534 in k10522 in a10519 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in ... */ static void C_ccall f_10564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_10564,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[292]:C_a_i_cons(&a,2,lf[104],t5)); t8=t7; t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10585,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_10585(t11,lf[294]);} else{ t11=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[6]); t12=t9; f_10585(t12,C_a_i_cons(&a,2,lf[50],t11));}} /* k8524 */ 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 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_8526,2,av);} a=C_alloc(35); if(C_truep(t1)){ /* synrules.scm:137: process-segment-match */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_8562,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_8566,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:141: process-match */ t12=((C_word*)((C_word*)t0)[11])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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_8619,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_8627,a[2]=((C_word*)t0)[11],a[3]=t7,a[4]=t9,tmp=(C_word)a,a+=5,tmp); /* synrules.scm:147: vector->list */ t11=*((C_word*)lf[179]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_8640,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_8640(t4,t2);} else{ t4=C_booleanp(((C_word*)t0)[5]); t5=t3; f_8640(t5,(C_truep(t4)?t4:C_charp(((C_word*)t0)[5])));}}}}} /* k7758 in k7750 in compare in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_7760(C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_7760,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_i_getprop(((C_word*)t0)[2],lf[181],C_SCHEME_FALSE); t4=(C_truep(t3)?t3:((C_word*)t0)[2]); t5=C_i_getprop(t2,lf[181],C_SCHEME_FALSE); t6=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t6; av2[1]=(C_truep(t5)?C_eqp(t4,t5):C_eqp(t4,t2)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7815,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* expand.scm:865: ##sys#macro-environment */ t4=*((C_word*)lf[19]+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_7843,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* expand.scm:869: ##sys#macro-environment */ t4=*((C_word*)lf[19]+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);}}}} /* k8238 in process-syntax-rules in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 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 t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(53,c,2)))){ C_save_and_reclaim((void *)f_8240,2,av);} a=C_alloc(53); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,lf[192]); t4=C_mutate2(((C_word *)((C_word*)t0)[4])+1,lf[193]); t5=C_mutate2(((C_word *)((C_word*)t0)[5])+1,lf[194]); t6=C_mutate2(((C_word *)((C_word*)t0)[6])+1,lf[195]); t7=C_mutate2(((C_word *)((C_word*)t0)[7])+1,lf[196]); t8=C_mutate2(((C_word *)((C_word*)t0)[8])+1,lf[197]); t9=C_mutate2(((C_word *)((C_word*)t0)[9])+1,lf[198]); t10=C_mutate2(((C_word *)((C_word*)t0)[10])+1,lf[199]); t11=C_mutate2(((C_word *)((C_word*)t0)[11])+1,lf[200]); t12=(*a=C_CLOSURE_TYPE|52,a[1]=(C_word)f_8255,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)[4],a[28]=((C_word*)t0)[37],a[29]=((C_word*)t0)[2],a[30]=((C_word*)t0)[38],a[31]=((C_word*)t0)[39],a[32]=((C_word*)t0)[40],a[33]=((C_word*)t0)[41],a[34]=((C_word*)t0)[42],a[35]=((C_word*)t0)[43],a[36]=((C_word*)t0)[3],a[37]=((C_word*)t0)[6],a[38]=((C_word*)t0)[7],a[39]=((C_word*)t0)[44],a[40]=((C_word*)t0)[5],a[41]=((C_word*)t0)[9],a[42]=((C_word*)t0)[10],a[43]=((C_word*)t0)[11],a[44]=((C_word*)t0)[45],a[45]=((C_word*)t0)[46],a[46]=((C_word*)t0)[47],a[47]=((C_word*)t0)[8],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],tmp=(C_word)a,a+=53,tmp); /* synrules.scm:77: r */ t13=((C_word*)t0)[51];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t12; av2[2]=lf[229]; ((C_proc)C_fast_retrieve_proc(t13))(3,av2);}} /* k10890 in k10938 in k10835 in k10816 in expand in k10789 in k10786 in k10783 in k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_10892,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); t3=((C_word*)t0)[3]; f_10885(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_10885(t3,C_a_i_cons(&a,2,lf[104],t2));}} /* k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(53,c,2)))){ C_save_and_reclaim((void *)f_8255,2,av);} a=C_alloc(53); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|52,a[1]=(C_word)f_8259,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)[2],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],tmp=(C_word)a,a+=53,tmp); /* synrules.scm:78: r */ t4=((C_word*)t0)[51];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[228]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(53,c,2)))){ C_save_and_reclaim((void *)f_8259,2,av);} a=C_alloc(53); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,lf[201]); t4=(*a=C_CLOSURE_TYPE|52,a[1]=(C_word)f_8264,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)[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)[3],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],tmp=(C_word)a,a+=53,tmp); /* synrules.scm:80: r */ t5=((C_word*)t0)[51];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[227]; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k7750 in compare in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_7752(C_word t0,C_word t1){ C_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_7752,2,t0,t1);} a=C_alloc(4); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_getprop(t3,lf[5],C_SCHEME_FALSE); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7760,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t4)){ t6=t5; f_7760(t6,t4);} else{ t6=((C_word*)t0)[2]; t7=((C_word*)t0)[4]; t8=( /* expand.scm:877: lookup */ f_3670(t6,t7) ); if(C_truep(t8)){ t9=t5; f_7760(t9,t8);} else{ t9=((C_word*)t0)[2]; t10=t5; f_7760(t10,t9);}}} /* k11568 in k11565 in a11562 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11570,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[52],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10883 in k10938 in k10835 in k10816 in expand in k10789 in k10786 in k10783 in k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in ... */ static void C_fcall f_10885(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_10885,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10889,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1255: expand */ t4=((C_word*)((C_word*)t0)[4])[1]; f_10804(t4,t3,((C_word*)t0)[5],C_SCHEME_FALSE);} /* k10887 in k10883 in k10938 in k10835 in k10816 in expand in k10789 in k10786 in k10783 in k10780 in k10777 in k10769 in a10766 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 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(12,c,1)))){ C_save_and_reclaim((void *)f_10889,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,4,lf[293],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a11584 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11585(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11585,5,av);} a=C_alloc(8); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11589,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11597,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_11597(t9,C_i_symbolp(t8));} else{ t8=t6; f_11597(t8,C_SCHEME_FALSE);}} /* k11581 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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,4)))){ C_save_and_reclaim((void *)f_11583,2,av);} /* expand.scm:1061: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[55]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k11587 in a11584 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11589,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[50],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_8492 in k8322 in k8317 in k8313 in k8309 in k8305 in k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in ... */ static void C_ccall f_8492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8492,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[209],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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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_8526,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:136: segment-pattern? */ t6=((C_word*)((C_word*)t0)[17])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t3; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}}} /* k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,7)))){ C_save_and_reclaim((void *)f_8231,2,av);} a=C_alloc(15); t2=C_mutate2((C_word*)lf[191]+1 /* (set! ##sys#process-syntax-rules ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8233,a[2]=((C_word)li126),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[231]+1 /* (set! ##sys#macro-subset ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9407,a[2]=((C_word)li128),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[232]+1 /* (set! ##sys#fixup-macro-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9457,a[2]=((C_word)li131),tmp=(C_word)a,a+=3,tmp)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9540,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9552,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* expand.scm:1559: ##sys#macro-environment */ t7=*((C_word*)lf[19]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* ##sys#process-syntax-rules in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in ... */ static void C_ccall f_8233(C_word c,C_word *av){ C_word tmp; C_word t0=av[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 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 *a; if(c!=7) C_bad_argc_2(c,7,t0); if(C_unlikely(!C_demand(C_calculate_demand(143,c,2)))){ C_save_and_reclaim((void *)f_8233,7,av);} a=C_alloc(143); 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_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_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_SCHEME_UNDEFINED; t46=(*a=C_VECTOR_TYPE|1,a[1]=t45,tmp=(C_word)a,a+=2,tmp); t47=C_SCHEME_UNDEFINED; t48=(*a=C_VECTOR_TYPE|1,a[1]=t47,tmp=(C_word)a,a+=2,tmp); t49=C_SCHEME_UNDEFINED; 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_SCHEME_UNDEFINED; t56=(*a=C_VECTOR_TYPE|1,a[1]=t55,tmp=(C_word)a,a+=2,tmp); t57=C_SCHEME_UNDEFINED; t58=(*a=C_VECTOR_TYPE|1,a[1]=t57,tmp=(C_word)a,a+=2,tmp); t59=C_SCHEME_UNDEFINED; t60=(*a=C_VECTOR_TYPE|1,a[1]=t59,tmp=(C_word)a,a+=2,tmp); t61=C_SCHEME_UNDEFINED; t62=(*a=C_VECTOR_TYPE|1,a[1]=t61,tmp=(C_word)a,a+=2,tmp); t63=C_SCHEME_UNDEFINED; t64=(*a=C_VECTOR_TYPE|1,a[1]=t63,tmp=(C_word)a,a+=2,tmp); t65=C_SCHEME_UNDEFINED; t66=(*a=C_VECTOR_TYPE|1,a[1]=t65,tmp=(C_word)a,a+=2,tmp); t67=C_SCHEME_UNDEFINED; t68=(*a=C_VECTOR_TYPE|1,a[1]=t67,tmp=(C_word)a,a+=2,tmp); t69=C_SCHEME_UNDEFINED; t70=(*a=C_VECTOR_TYPE|1,a[1]=t69,tmp=(C_word)a,a+=2,tmp); t71=C_SCHEME_UNDEFINED; t72=(*a=C_VECTOR_TYPE|1,a[1]=t71,tmp=(C_word)a,a+=2,tmp); t73=C_SCHEME_UNDEFINED; t74=(*a=C_VECTOR_TYPE|1,a[1]=t73,tmp=(C_word)a,a+=2,tmp); t75=C_SCHEME_UNDEFINED; t76=(*a=C_VECTOR_TYPE|1,a[1]=t75,tmp=(C_word)a,a+=2,tmp); t77=C_SCHEME_UNDEFINED; t78=(*a=C_VECTOR_TYPE|1,a[1]=t77,tmp=(C_word)a,a+=2,tmp); t79=C_SCHEME_UNDEFINED; t80=(*a=C_VECTOR_TYPE|1,a[1]=t79,tmp=(C_word)a,a+=2,tmp); t81=C_SCHEME_UNDEFINED; t82=(*a=C_VECTOR_TYPE|1,a[1]=t81,tmp=(C_word)a,a+=2,tmp); t83=C_SCHEME_UNDEFINED; t84=(*a=C_VECTOR_TYPE|1,a[1]=t83,tmp=(C_word)a,a+=2,tmp); t85=C_SCHEME_UNDEFINED; t86=(*a=C_VECTOR_TYPE|1,a[1]=t85,tmp=(C_word)a,a+=2,tmp); t87=C_SCHEME_UNDEFINED; t88=(*a=C_VECTOR_TYPE|1,a[1]=t87,tmp=(C_word)a,a+=2,tmp); t89=C_SCHEME_UNDEFINED; t90=(*a=C_VECTOR_TYPE|1,a[1]=t89,tmp=(C_word)a,a+=2,tmp); t91=C_SCHEME_UNDEFINED; t92=(*a=C_VECTOR_TYPE|1,a[1]=t91,tmp=(C_word)a,a+=2,tmp); t93=C_SCHEME_UNDEFINED; t94=(*a=C_VECTOR_TYPE|1,a[1]=t93,tmp=(C_word)a,a+=2,tmp); t95=C_SCHEME_UNDEFINED; t96=(*a=C_VECTOR_TYPE|1,a[1]=t95,tmp=(C_word)a,a+=2,tmp); t97=(*a=C_CLOSURE_TYPE|52,a[1]=(C_word)f_8240,a[2]=t8,a[3]=t10,a[4]=t12,a[5]=t14,a[6]=t16,a[7]=t18,a[8]=t20,a[9]=t22,a[10]=t24,a[11]=t26,a[12]=t28,a[13]=t30,a[14]=t32,a[15]=t34,a[16]=t36,a[17]=t38,a[18]=t40,a[19]=t42,a[20]=t44,a[21]=t46,a[22]=t48,a[23]=t50,a[24]=t52,a[25]=t54,a[26]=t56,a[27]=t58,a[28]=t60,a[29]=t62,a[30]=t64,a[31]=t66,a[32]=t68,a[33]=t70,a[34]=t72,a[35]=t6,a[36]=t74,a[37]=t76,a[38]=t84,a[39]=t86,a[40]=t82,a[41]=t78,a[42]=t4,a[43]=t80,a[44]=t90,a[45]=t96,a[46]=t88,a[47]=t94,a[48]=t92,a[49]=t1,a[50]=t3,a[51]=t5,a[52]=t2,tmp=(C_word)a,a+=53,tmp); /* synrules.scm:65: r */ t98=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t98; av2[1]=t97; av2[2]=lf[230]; ((C_proc)C_fast_retrieve_proc(t98))(3,av2);}} /* k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8207,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8210,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9881,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9883,a[2]=((C_word)li143),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1372: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k10522 in a10519 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10524,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_10536,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=t9,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1279: r */ t11=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=lf[295]; ((C_proc)C_fast_retrieve_proc(t11))(3,av2);}} /* k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 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; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8204,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8207,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10173,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10175,a[2]=((C_word)li144),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1364: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* a10519 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in ... */ static void C_ccall f_10520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10520,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10524,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1275: ##sys#check-syntax */ t6=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[291]; av2[3]=t2; av2[4]=lf[296]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9730 in k9665 in k9662 in k9656 in a9650 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in ... */ 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; 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_9732,2,av);} t2=C_i_car(((C_word*)t0)[2]); t3=C_u_i_cdr(((C_word*)t0)[2]); /* expand.scm:1486: ##sys#instantiate-functor */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[256]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[256]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; av2[4]=t3; tp(5,av2);}} /* k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8201,2,av);} a=C_alloc(9); 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); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10194,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10196,a[2]=((C_word)li145),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1354: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7719 in doloop1505 in compare in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_7721(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7721,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_7700(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in ... */ static void C_ccall f_8219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8219,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8222,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9649,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9651,a[2]=((C_word)li135),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1449: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 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; 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_8216,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8219,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9829,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9831,a[2]=((C_word)li136),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1442: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 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 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_8213,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8216,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9855,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9857,a[2]=((C_word)li137),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1434: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8210,2,av);} a=C_alloc(9); 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); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9868,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9870,a[2]=((C_word)li138),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1426: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k10516 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10518,2,av);} /* expand.scm:1270: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[291]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k8407 in map-loop2464 */ 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 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_8409,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8384(t6,((C_word*)t0)[5],t5);} /* k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in k8220 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in ... */ 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(53,c,2)))){ C_save_and_reclaim((void *)f_8264,2,av);} a=C_alloc(53); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,lf[202]); t4=C_mutate2(((C_word *)((C_word*)t0)[4])+1,lf[203]); t5=(*a=C_CLOSURE_TYPE|52,a[1]=(C_word)f_8270,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)[2],a[26]=((C_word*)t0)[28],a[27]=((C_word*)t0)[29],a[28]=((C_word*)t0)[30],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)[3],a[37]=((C_word*)t0)[4],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],tmp=(C_word)a,a+=53,tmp); /* synrules.scm:83: r */ t6=((C_word*)t0)[51];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[226]; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} /* k9727 in k9665 in k9662 in k9656 in a9650 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in ... */ static void C_ccall f_9729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9729,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[254]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10505 in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10507,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* expand.scm:1349: walk */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10241(t3,((C_word*)t0)[4],t2,C_fix(0));} /* k9720 in k9665 in k9662 in k9656 in a9650 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in ... */ static void C_ccall f_9722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9722,2,av);} /* expand.scm:1472: string->symbol */ t2=*((C_word*)lf[251]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9724 in k9665 in k9662 in k9656 in a9650 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in ... */ static void C_ccall f_9726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9726,2,av);} /* expand.scm:1473: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[252]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[252]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[253]; av2[3]=t1; tp(4,av2);}} /* k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8080,2,av);} a=C_alloc(9); 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_11738,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11740,a[2]=((C_word)li173),tmp=(C_word)a,a+=3,tmp); /* expand.scm:999: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k9771 in k9742 in k9662 in k9656 in a9650 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in ... */ static void C_fcall f_9773(C_word t0,C_word 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,1)))){ C_save_and_reclaim_args((void *)trf_9773,2,t0,t1);} a=C_alloc(18); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_a_i_list(&a,2,lf[258],t2); 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[259],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[259],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8730 in k8754 in k8675 */ 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; 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_8732,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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_a_i_list(&a,1,t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* check-for-multiple-bindings in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_8090(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,5)))){ C_save_and_reclaim_args((void *)trf_8090,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_8096,a[2]=t6,a[3]=t3,a[4]=t4,a[5]=((C_word)li106),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_8096(t8,t1,t2,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* k9742 in k9662 in k9656 in a9650 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 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 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_9744,2,av);} a=C_alloc(6); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=C_eqp(lf[249],t1); t5=(C_truep(t4)?C_SCHEME_TRUE:t1); t6=t5; t7=C_i_cdddr(((C_word*)t0)[2]); t8=t7; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9773,a[2]=t8,a[3]=t6,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t8))){ t10=C_u_i_cdr(t8); if(C_truep(C_i_nullp(t10))){ t11=C_u_i_car(t8); t12=t9; f_9773(t12,C_i_stringp(t11));} else{ t11=t9; f_9773(t11,C_SCHEME_FALSE);}} else{ t10=t9; f_9773(t10,C_SCHEME_FALSE);}} /* loop in fini in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_5822(C_word t0,C_word t1,C_word 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(8,0,2)))){ C_save_and_reclaim_args((void *)trf_5822,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5841,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,a[6]=t5,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(t5))){ t7=C_u_i_car(t5); if(C_truep(C_i_symbolp(t7))){ t8=( /* expand.scm:492: comp */ f_5744(((C_word*)((C_word*)t0)[4])[1],lf[101],t7) ); t9=t6; f_5841(t9,(C_truep(t8)?t8:( /* expand.scm:493: comp */ f_5744(((C_word*)((C_word*)t0)[4])[1],lf[103],t7) )));} else{ t8=t6; f_5841(t8,C_SCHEME_FALSE);}} else{ t7=t6; f_5841(t7,C_SCHEME_FALSE);}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[104],((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8084,2,av);} a=C_alloc(9); t2=C_mutate2((C_word*)lf[97]+1 /* (set! ##sys#define-definition ...) */,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); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11635,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11637,a[2]=((C_word)li171),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1025: ##sys#er-transformer */ t6=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 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_8088,2,av);} a=C_alloc(12); t2=C_mutate2((C_word*)lf[98]+1 /* (set! ##sys#define-syntax-definition ...) */,t1); t3=C_mutate2(&lf[187] /* (set! check-for-multiple-bindings ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8090,a[2]=((C_word)li107),tmp=(C_word)a,a+=3,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8165,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11583,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11585,a[2]=((C_word)li170),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1064: ##sys#er-transformer */ t7=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* loop in loop1 in globalize in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4102(C_word t0,C_word t1,C_word t2){ C_word 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_4102,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ /* expand.scm:149: ##sys#alias-global-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[18]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[18]+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_4118,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_4118(t9,C_i_symbolp(t8));} else{ t6=t3; f_4118(t6,C_SCHEME_FALSE);}}} /* k8110 in k8107 in loop in check-for-multiple-bindings in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_8112,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]); /* expand.scm:1058: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_8096(t6,((C_word*)t0)[5],t3,((C_word*)t0)[6],t5);} /* k10534 in k10522 in a10519 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in ... */ 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 t4; C_word 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_10536,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[16]); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10564,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_10678,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li153),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_10678(t12,t8,((C_word*)t0)[2]);} /* k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8177,2,av);} a=C_alloc(9); 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); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11451,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11453,a[2]=((C_word)li165),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1113: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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(9,c,5)))){ C_save_and_reclaim((void *)f_8171,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8174,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11517,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11519,a[2]=((C_word)li167),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1095: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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(9,c,5)))){ C_save_and_reclaim((void *)f_8174,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8177,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11495,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11497,a[2]=((C_word)li166),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1104: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k9845 in k9837 in a9830 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in ... */ static void C_ccall f_9847(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9847,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; /* Re-use our own argvector */ 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);}} /* k4116 in loop in loop1 in globalize in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4118(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_4118,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:151: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4102(t4,((C_word*)t0)[3],t3);}} /* k9888 in a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in ... */ static void C_ccall f_9890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9890,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9893,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:1376: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[270]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 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 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_8189,2,av);} a=C_alloc(9); 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); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10765,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10767,a[2]=((C_word)li160),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1218: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k9891 in k9888 in a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in ... */ static void C_ccall f_9893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9893,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9896,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); /* expand.scm:1377: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[227]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8186,2,av);} a=C_alloc(9); 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); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10990,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10992,a[2]=((C_word)li162),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1155: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8183,2,av);} a=C_alloc(9); 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); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11362,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11364,a[2]=((C_word)li163),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1139: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8180,2,av);} a=C_alloc(9); 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); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11414,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11416,a[2]=((C_word)li164),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1125: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k9897 in k9894 in k9891 in k9888 in a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in ... */ 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 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_9899,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_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9901,a[2]=((C_word*)t0)[2],a[3]=((C_word)li139),tmp=(C_word)a,a+=4,tmp)); t8=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9911,a[2]=t2,a[3]=t6,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)li140),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|8,a[1]=(C_word)f_10047,a[2]=((C_word*)t0)[2],a[3]=t10,a[4]=t6,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[6],a[7]=t4,a[8]=((C_word)li142),tmp=(C_word)a,a+=9,tmp)); t12=((C_word*)t10)[1]; f_10047(t12,((C_word*)t0)[7],((C_word*)t0)[2]);} /* k9894 in k9891 in k9888 in a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in ... */ static void C_ccall f_9896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9896,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,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]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* expand.scm:1378: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[230]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8754 in k8675 */ static void C_ccall f_8756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8756,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_8732,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:61: ##sys#append */ t9=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10379 in k10340 in k10319 in k10286 in walk1 in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in ... */ 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; 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_10381,2,av);} a=C_alloc(13); t2=C_a_i_list(&a,3,lf[201],((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10373,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1332: walk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_10241(t5,t4,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k9879 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in ... */ static void C_ccall f_9881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9881,2,av);} /* expand.scm:1369: ##sys#extend-macro-environment */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[265]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in ... */ static void C_ccall f_9883(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9883,5,av);} a=C_alloc(6); t5=C_i_cdr(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9890,a[2]=t6,a[3]=t4,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1375: r */ t8=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=lf[221]; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}} /* g1321 in k6996 in get-line-number in k4144 in k3666 in k3662 in k3658 in k3654 */ static C_word C_fcall f_7002(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));} /* k10394 in k10340 in k10319 in k10286 in walk1 in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_10396,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10400,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1334: walk */ t4=((C_word*)((C_word*)t0)[3])[1]; f_10241(t4,t3,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8198,2,av);} a=C_alloc(9); 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); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10227,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10229,a[2]=((C_word)li151),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1302: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in ... */ static void C_ccall f_8195(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8195,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8198,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10518,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10520,a[2]=((C_word)li154),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1273: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8192,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8195,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10714,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10716,a[2]=((C_word)li156),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1260: ##sys#er-transformer */ t5=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* f_8940 in k8322 in k8317 in k8313 in k8309 in k8305 in k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in ... */ static void C_ccall f_8940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8940,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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ /* synrules.scm:207: ##sys#syntax-error-hook */ t8=*((C_word*)lf[41]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t1; av2[2]=lf[213]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} else{ t6=C_a_i_list(&a,2,lf[209],t2); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_8979,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:210: segment-template? */ t6=((C_word*)((C_word*)t0)[12])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* k7046 in err in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7048,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7055,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_7062,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* expand.scm:729: symbol->string */ t5=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_7069,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* expand.scm:730: symbol->string */ t5=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* err in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_7044(C_word t0,C_word t1,C_word 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_7044,3,t0,t1,t2);} a=C_alloc(6); t3=*((C_word*)lf[118]+1); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7048,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:726: get-line-number */ t5=*((C_word*)lf[143]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[118]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7037 in test in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_7039,2,av);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* expand.scm:722: err */ t2=((C_word*)((C_word*)t0)[3])[1]; f_7044(t2,((C_word*)t0)[2],((C_word*)t0)[4]);}} /* test in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_7032(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_7032,5,t0,t1,t2,t3,t4);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7039,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* expand.scm:722: 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);}} /* k8932 in k8828 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_8934,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:195: process-pattern */ t3=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4760 in g695 in k4752 in k4597 in loop in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4762,2,av);} a=C_alloc(5); t2=t1; t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ /* expand.scm:293: expand */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4531(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_4774,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[58]+1))){ /* expand.scm:296: ##sys#compiler-syntax-hook */ t5=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* expand.scm:297: loop */ t5=((C_word*)((C_word*)t0)[7])[1]; f_4575(t5,((C_word*)t0)[4],t2);}}} /* k4752 in k4597 in loop in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4754(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_4754,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4758,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li37),tmp=(C_word)a,a+=9,tmp); /* expand.scm:274: g695 */ t3=t2; f_4758(t3,((C_word*)t0)[8],t1);} else{ /* expand.scm:298: expand */ t2=((C_word*)((C_word*)t0)[3])[1]; f_4531(t2,((C_word*)t0)[8],((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)((C_word*)t0)[5])[1]);}} /* g695 in k4752 in k4597 in loop in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4758(C_word t0,C_word 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_4758,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4762,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:292: call-handler */ t7=((C_word*)((C_word*)t0)[7])[1]; f_4333(t7,t3,((C_word*)t0)[4],t4,((C_word*)t0)[2],t6,C_SCHEME_TRUE);} /* k10330 in k10319 in k10286 in walk1 in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_10332,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list3(&a,3,lf[201],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5286 in k5273 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_5288(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_5288,2,t0,t1);} t2=C_eqp(((C_word*)t0)[2],C_fix(0)); if(C_truep(t2)){ /* expand.scm:401: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4972(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:402: err */ t3=((C_word*)t0)[7]; f_4944(t3,((C_word*)t0)[4],lf[76]);}} /* k10360 in k10349 in k10340 in k10319 in k10286 in walk1 in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_10362,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[70],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5273 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_5275(C_word t0,C_word t1){ C_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_5275,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[65]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5288,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_5288(t7,C_SCHEME_UNDEFINED);} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5304,a[2]=((C_word*)t0)[9],a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* expand.scm:399: macro-alias */ f_3687(t7,lf[77],((C_word*)t0)[10]);}} else{ t6=C_eqp(t2,lf[64]); 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_5322,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_5322(t9,C_i_symbolp(t8));} else{ t8=t7; f_5322(t8,C_SCHEME_FALSE);}} else{ /* expand.scm:411: err */ t7=((C_word*)t0)[8]; f_4944(t7,((C_word*)t0)[6],lf[79]);}} else{ t7=C_eqp(t2,lf[66]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5364,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); t9=((C_word*)((C_word*)t0)[9])[1]; if(C_truep(t9)){ t10=t8; f_5364(t10,C_SCHEME_UNDEFINED);} else{ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5383,a[2]=((C_word*)t0)[9],a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* expand.scm:413: macro-alias */ f_3687(t10,lf[77],((C_word*)t0)[10]);}} 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:420: loop */ t10=((C_word*)((C_word*)t0)[5])[1]; f_4972(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:421: loop */ t11=((C_word*)((C_word*)t0)[5])[1]; f_4972(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:422: err */ t9=((C_word*)t0)[8]; f_4944(t9,((C_word*)t0)[6],lf[81]); 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:423: loop */ t11=((C_word*)((C_word*)t0)[5])[1]; f_4972(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_5451,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_5451(t12,C_i_symbolp(t11));} else{ t11=t8; f_5451(t11,C_SCHEME_FALSE);}} else{ t9=t8; f_5451(t9,C_SCHEME_FALSE);}}}}}} /* k8980 in k8977 */ 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(12,c,5)))){ C_save_and_reclaim((void *)f_8982,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_8988,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:214: free-meta-variables */ t7=((C_word*)((C_word*)t0)[10])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8986 in k8980 in k8977 */ 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; 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_8988,2,av);} a=C_alloc(12); t2=t1; if(C_truep(C_i_nullp(t2))){ /* synrules.scm:216: ##sys#syntax-error-hook */ t3=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[214]; 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_9000,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:217: process-template */ t6=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* g1230 in mwalk in match-expression in k4144 in k3666 in k3662 in k3658 in k3654 */ static C_word C_fcall f_6620(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));} /* k10309 in k10286 in walk1 in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_10311,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list3(&a,3,lf[201],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9303 */ static void C_ccall f_9305(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9305,2,av);} if(C_truep(t1)){ if(C_truep(((C_word*)t0)[2])){ /* synrules.scm:288: ##sys#syntax-error-hook */ t2=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[216]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ if(C_truep(C_i_listp(((C_word*)t0)[4]))){ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* synrules.scm:290: ##sys#syntax-error-hook */ t2=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[217]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8977 */ static void C_ccall f_8979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8979,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8982,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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:211: segment-depth */ t3=((C_word*)((C_word*)t0)[11])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_9102,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:236: process-template */ t5=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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_9123,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_9127,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:240: vector->list */ t4=*((C_word*)lf[179]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ 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);}}}}} /* k10340 in k10319 in k10286 in walk1 in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in ... */ static void C_ccall f_10342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_10342,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_10351,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:1326: ##sys#check-syntax */ t4=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[280]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[281]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=C_a_i_list(&a,2,lf[71],((C_word*)t0)[7]); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10381,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:1331: walk */ t8=((C_word*)((C_word*)t0)[5])[1]; f_10241(t8,t5,t6,t7);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10396,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:1334: walk */ t3=((C_word*)((C_word*)t0)[5])[1]; f_10241(t3,t2,((C_word*)t0)[3],((C_word*)t0)[2]);}} /* k9686 in k9665 in k9662 in k9656 in a9650 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in ... */ static void C_ccall f_9688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9688,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9691,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:1476: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[248]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k10371 in k10379 in k10340 in k10319 in k10286 in walk1 in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_ccall f_10373(C_word c,C_word *av){ C_word tmp; 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_10373,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[201],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* mwalk in match-expression in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_6606(C_word t0,C_word t1,C_word 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(6,0,3)))){ C_save_and_reclaim_args((void *)trf_6606,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_pairp(t3))){ if(C_truep(C_i_pairp(t2))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6660,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=C_i_car(t3); /* expand.scm:621: mwalk */ t9=t4; t10=t6; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;} 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_assq(t3,((C_word*)((C_word*)t0)[3])[1]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6620,a[2]=t2,a[3]=((C_word)li70),tmp=(C_word)a,a+=4,tmp); /* expand.scm:615: g1230 */ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=( /* expand.scm:615: g1230 */ f_6620(t5,t4) ); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ if(C_truep(C_i_memq(t3,((C_word*)t0)[4]))){ t5=C_a_i_cons(&a,2,t3,t2); t6=C_a_i_cons(&a,2,t5,((C_word*)((C_word*)t0)[3])[1]); t7=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t6); t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t8+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);}}}}} /* match-expression in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_6603(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(14,0,4)))){ C_save_and_reclaim_args((void *)trf_6603,4,t1,t2,t3,t4);} 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_6606,a[2]=t8,a[3]=t6,a[4]=t4,a[5]=((C_word)li71),tmp=(C_word)a,a+=6,tmp)); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6683,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:624: mwalk */ t11=((C_word*)t8)[1]; f_6606(t11,t10,t2,t3);} /* k9689 in k9686 in k9665 in k9662 in k9656 in a9650 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in ... */ static void C_ccall f_9691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_9691,2,av);} a=C_alloc(36); t2=C_i_cddddr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,lf[249],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[250],t6); t8=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_a_i_list(&a,3,lf[104],t5,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k9662 in k9656 in a9650 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_9664,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9667,a[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:1454: ##sys#strip-syntax */ t3=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_9744,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9807,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_i_caddr(((C_word*)t0)[5]); /* expand.scm:1494: ##sys#strip-syntax */ t5=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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; if(C_unlikely(!C_demand(C_calculate_demand(78,c,6)))){ C_save_and_reclaim((void *)f_4146,2,av);} a=C_alloc(78); t2=C_mutate2((C_word*)lf[19]+1 /* (set! ##sys#macro-environment ...) */,t1); t3=C_set_block_item(lf[20] /* ##sys#chicken-macro-environment */,0,C_SCHEME_END_OF_LIST); t4=C_set_block_item(lf[21] /* ##sys#chicken-ffi-macro-environment */,0,C_SCHEME_END_OF_LIST); t5=C_mutate2((C_word*)lf[22]+1 /* (set! ##sys#ensure-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4150,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[27]+1 /* (set! ##sys#extend-macro-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4187,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[28]+1 /* (set! ##sys#copy-macro ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4229,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[29]+1 /* (set! ##sys#macro? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4242,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[30]+1 /* (set! ##sys#unregister-macro ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4279,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[31]+1 /* (set! ##sys#undefine-macro! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4324,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[32]+1 /* (set! ##sys#expand-0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4330,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp)); t12=C_set_block_item(lf[58] /* ##sys#compiler-syntax-hook */,0,C_SCHEME_FALSE); t13=C_set_block_item(lf[60] /* ##sys#enable-runtime-macros */,0,C_SCHEME_FALSE); t14=C_mutate2((C_word*)lf[61]+1 /* (set! expand ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4827,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[62]+1 /* (set! ##sys#expand ...) */,*((C_word*)lf[61]+1)); t16=C_mutate2((C_word*)lf[63]+1 /* (set! ##sys#extended-lambda-list? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4894,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[67]+1 /* (set! ##sys#expand-extended-lambda-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4941,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2((C_word*)lf[90]+1 /* (set! ##sys#defjam-error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5544,a[2]=((C_word)li51),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2((C_word*)lf[92]+1 /* (set! ##sys#expand-multiple-values-assignment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5550,a[2]=((C_word)li55),tmp=(C_word)a,a+=3,tmp)); t20=C_set_block_item(lf[97] /* ##sys#define-definition */,0,C_SCHEME_UNDEFINED); t21=C_set_block_item(lf[98] /* ##sys#define-syntax-definition */,0,C_SCHEME_UNDEFINED); t22=C_set_block_item(lf[99] /* ##sys#define-values-definition */,0,C_SCHEME_UNDEFINED); t23=C_mutate2((C_word*)lf[100]+1 /* (set! ##sys#canonicalize-body ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5729,a[2]=((C_word)li69),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate2(&lf[116] /* (set! match-expression ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6603,a[2]=((C_word)li72),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate2((C_word*)lf[108]+1 /* (set! ##sys#expand-curried-define ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6685,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp)); t26=C_set_block_item(lf[117] /* ##sys#line-number-database */,0,C_SCHEME_FALSE); t27=C_set_block_item(lf[118] /* ##sys#syntax-error-culprit */,0,C_SCHEME_FALSE); t28=C_set_block_item(lf[119] /* ##sys#syntax-context */,0,C_SCHEME_END_OF_LIST); t29=C_mutate2((C_word*)lf[120]+1 /* (set! syntax-error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6740,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate2((C_word*)lf[41]+1 /* (set! ##sys#syntax-error-hook ...) */,*((C_word*)lf[120]+1)); t31=C_mutate2((C_word*)lf[123]+1 /* (set! ##sys#syntax-error/context ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6751,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate2((C_word*)lf[45]+1 /* (set! ##sys#syntax-rules-mismatch ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6972,a[2]=((C_word)li81),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate2((C_word*)lf[143]+1 /* (set! get-line-number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6978,a[2]=((C_word)li83),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate2((C_word*)lf[54]+1 /* (set! ##sys#check-syntax ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7017,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate2((C_word*)lf[177]+1 /* (set! make-er/ir-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7472,a[2]=((C_word)li103),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate2((C_word*)lf[183]+1 /* (set! er-macro-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8040,a[2]=((C_word)li104),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate2((C_word*)lf[184]+1 /* (set! ir-macro-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8046,a[2]=((C_word)li105),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate2((C_word*)lf[23]+1 /* (set! ##sys#er-transformer ...) */,*((C_word*)lf[183]+1)); t39=C_mutate2((C_word*)lf[185]+1 /* (set! ##sys#ir-transformer ...) */,*((C_word*)lf[184]+1)); t40=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8055,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t41=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11962,a[2]=t40,tmp=(C_word)a,a+=3,tmp); t42=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11964,a[2]=((C_word)li181),tmp=(C_word)a,a+=3,tmp); /* expand.scm:935: ##sys#er-transformer */ t43=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t43; av2[1]=t41; av2[2]=t42; ((C_proc)(void*)(*((C_word*)t43+1)))(3,av2);}} /* k9665 in k9662 in k9656 in a9650 in k8217 in k8214 in k8211 in k8208 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 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 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,4)))){ C_save_and_reclaim((void *)f_9667,2,av);} a=C_alloc(13); t2=t1; t3=C_i_cadr(t2); t4=t3; t5=C_i_cadddr(t2); t6=t5; if(C_truep(C_i_symbolp(t6))){ if(C_truep(C_fixnum_greaterp(((C_word*)t0)[2],C_fix(4)))){ t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9688,a[2]=t2,a[3]=t6,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9722,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9726,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* expand.scm:1475: symbol->string */ t10=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9729,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* expand.scm:1481: ##sys#register-module-alias */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[255]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[255]+1); av2[1]=t7; av2[2]=t4; av2[3]=t6; tp(4,av2);}}} else{ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9732,a[2]=t6,a[3]=((C_word*)t0)[3],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1484: ##sys#check-syntax */ t8=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=lf[248]; av2[3]=t2; av2[4]=lf[257]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} /* k6658 in mwalk in match-expression in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 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_6660,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:622: mwalk */ t6=((C_word*)((C_word*)t0)[4])[1]; f_6606(t6,((C_word*)t0)[5],t3,t5);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k10349 in k10340 in k10319 in k10286 in walk1 in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in ... */ 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; 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_10351,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_10362,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1327: walk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_10241(t5,t4,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k4479 in k4459 in tmp13084 in a4454 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4481,2,av);} /* expand.scm:242: string-append */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4493 in tmp13084 in a4454 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_4494(C_word c,C_word *av){ C_word tmp; 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_4494,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[45]+1)); t3=C_mutate2((C_word*)lf[45]+1 /* (set! ##sys#syntax-rules-mismatch ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4498 in tmp13084 in a4454 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *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_4499,2,av);} /* expand.scm:238: handler */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4165 in ensure-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_4167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4167,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_slot(t1,C_fix(1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7841 in k7758 in k7750 in compare in k7483 in a7477 in make-er/ir-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_7843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7843,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_7828,a[2]=((C_word*)t0)[3],a[3]=((C_word)li98),tmp=(C_word)a,a+=4,tmp); /* expand.scm:869: g1569 */ t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( /* expand.scm:869: g1569 */ f_7828(t3,t2) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* f_4488 in tmp13084 in a4454 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_4488(C_word c,C_word *av){ C_word tmp; C_word 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_4488,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4984 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 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_4986,2,av);} a=C_alloc(28); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4990,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_4990(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_5130,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=((C_word)li47),tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5190,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:370: reverse */ t10=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k4459 in tmp13084 in a4454 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 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_4461,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4464,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=(C_truep(t4)?C_SCHEME_FALSE:C_eqp(((C_word*)t0)[4],t2)); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4477,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4481,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* expand.scm:243: symbol->string */ t8=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* ##sys#ensure-transformer in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_4150(C_word c,C_word *av){ C_word tmp; C_word 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,4)))){ C_save_and_reclaim((void*)f_4150,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)); if(C_truep(C_i_closurep(t2))){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4167,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* expand.scm:161: ##sys#er-transformer */ t7=*((C_word*)lf[23]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ if(C_truep(C_i_structurep(t2,lf[24]))){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* expand.scm:163: ##sys#error */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=t5; av2[3]=lf[26]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}} /* k4475 in k4459 in tmp13084 in a4454 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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);} /* expand.scm:241: ##sys#syntax-error-hook */ t2=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_9370 in k8322 in k8317 in k8313 in k8309 in k8305 in k8300 in k8293 in k8288 in k8284 in k8280 in k8276 in k8272 in k8268 in k8262 in k8257 in k8253 in k8238 in process-syntax-rules in k8229 in k8226 in k8223 in ... */ static void C_ccall f_9370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9370,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_9380,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word)li124),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_9380(t7,t1,t3);} /* ##sys#extend-macro-environment in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_4187,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4191,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* expand.scm:166: ##sys#macro-environment */ t6=*((C_word*)lf[19]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4972(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; loop: if(C_unlikely(!C_demand(C_calculate_demand(15,0,6)))){ C_save_and_reclaim_args((void *)trf_4972,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_4986,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_5234,a[2]=t7,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* expand.scm:358: reverse */ t9=*((C_word*)lf[69]+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:358: 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_symbolp(t6))){ if(C_truep(C_fixnum_greaterp(t2,C_fix(2)))){ /* expand.scm:386: err */ t7=((C_word*)t0)[8]; f_4944(t7,t1,lf[75]);} else{ if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ t7=C_mutate2(((C_word *)((C_word*)t0)[4])+1,t6); /* expand.scm:390: loop */ t12=t1; t13=C_fix(4); t14=t3; t15=t4; t16=C_SCHEME_END_OF_LIST; t17=C_SCHEME_END_OF_LIST; t1=t12; t2=t13; t3=t14; t4=t15; t5=t16; t6=t17; goto loop;} else{ t7=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t6); t8=C_mutate2(((C_word *)((C_word*)t0)[4])+1,t6); /* expand.scm:390: loop */ t12=t1; t13=C_fix(4); t14=t3; t15=t4; t16=C_SCHEME_END_OF_LIST; t17=C_SCHEME_END_OF_LIST; t1=t12; t2=t13; t3=t14; t4=t15; t5=t16; t6=t17; goto loop;}}} else{ if(C_truep(C_i_pairp(t6))){ t7=C_i_car(t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5275,a[2]=t8,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(t8))){ t10=C_eqp(C_fix(3),t2); t11=t9; f_5275(t11,(C_truep(t10)?C_SCHEME_FALSE:( /* expand.scm:395: lookup */ f_3670(t8,((C_word*)t0)[10]) )));} else{ t10=t9; f_5275(t10,C_SCHEME_FALSE);}} else{ /* expand.scm:392: err */ t7=((C_word*)t0)[8]; f_4944(t7,t1,lf[85]);}}}} /* k9385 in loop */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9387,2,av);} if(C_truep(t1)){ t2=C_i_cdr(((C_word*)t0)[2]); /* synrules.scm:311: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_9380(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4462 in k4459 in tmp13084 in a4454 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4464,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop */ static void C_fcall f_9380(C_word 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_9380,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9387,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:310: 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_9387(2,av2);}}} /* tmp13084 in a4454 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4457(C_word t0,C_word t1){ C_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(31,0,4)))){ C_save_and_reclaim_args((void *)trf_4457,2,t0,t1);} a=C_alloc(31); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4461,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)[2])){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4488,a[2]=((C_word*)t0)[3],a[3]=((C_word)li24),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_4494,a[2]=t6,a[3]=t4,a[4]=((C_word)li25),tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4499,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)li26),tmp=(C_word)a,a+=7,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4505,a[2]=t4,a[3]=t6,a[4]=((C_word)li27),tmp=(C_word)a,a+=5,tmp); /* expand.scm:237: ##sys#dynamic-wind */ t10=*((C_word*)lf[46]+1);{ C_word av2[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:239: handler */ t3=((C_word*)t0)[5];{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}} /* a4454 in a4347 in call-handler in expand-0 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_4455,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4457,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li28),tmp=(C_word)a,a+=9,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4512,a[2]=((C_word*)t0)[8],a[3]=((C_word)li30),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4529,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* tmp13084 */ t5=t2; f_4457(t5,t4);} /* k4988 in k4984 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4990(C_word 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_4990,2,t0,t1);} a=C_alloc(11); t2=t1; if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ /* expand.scm:357: 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_5002,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); t4=((C_word*)((C_word*)t0)[7])[1]; if(C_truep(t4)){ t5=t3; f_5002(t5,C_SCHEME_FALSE);} else{ if(C_truep(C_i_nullp(((C_word*)t0)[8]))){ t5=C_i_cdr(((C_word*)t0)[2]); t6=t3; f_5002(t6,C_i_nullp(t5));} else{ t5=t3; f_5002(t5,C_SCHEME_FALSE);}}}} /* k4192 in k4189 in extend-macro-environment in k4144 in k3666 in k3662 in k3658 in k3654 */ 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; 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_4194,2,av);} a=C_alloc(16); t2=t1; t3=( /* expand.scm:168: lookup */ f_3670(((C_word*)t0)[2],((C_word*)t0)[3]) ); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4201,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word)li14),tmp=(C_word)a,a+=5,tmp); /* expand.scm:165: g507 */ t5=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=( /* expand.scm:165: g507 */ f_4201(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_4219,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:175: ##sys#macro-environment */ t9=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t6; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} /* k4189 in extend-macro-environment in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4191,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4194,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:167: ##sys#ensure-transformer */ t4=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10319 in k10286 in walk1 in k10237 in k10234 in k10231 in a10228 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in ... */ 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 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_10321,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=C_a_i_list(&a,2,lf[71],((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10332,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:1323: walk */ t6=((C_word*)((C_word*)t0)[5])[1]; f_10241(t6,t4,((C_word*)t0)[6],t5);} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10342,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:1324: c */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_10342(2,av2);}}}} /* k11115 in k11063 in k11060 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in ... */ static void C_ccall f_11117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11117,2,av);} /* expand.scm:1185: expand */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11010(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(33,c,5)))){ C_save_and_reclaim((void *)f_7027,2,av);} a=C_alloc(33); 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_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7032,a[2]=t8,a[3]=((C_word)li84),tmp=(C_word)a,a+=4,tmp)); t14=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7044,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li85),tmp=(C_word)a,a+=5,tmp)); t15=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7071,a[2]=((C_word)li87),tmp=(C_word)a,a+=3,tmp)); t16=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7133,a[2]=((C_word)li89),tmp=(C_word)a,a+=3,tmp)); t17=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7160,a[2]=t8,a[3]=t6,a[4]=t12,a[5]=t10,a[6]=t2,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t0)[7])){ t18=C_mutate2((C_word*)lf[118]+1 /* (set! ##sys#syntax-error-culprit ...) */,((C_word*)t0)[7]); t19=t17; f_7160(t19,t18);} else{ t18=t17; f_7160(t18,C_SCHEME_UNDEFINED);}} /* ##sys#check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_7017,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_7027,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:719: ##sys#current-environment */ t13=*((C_word*)lf[1]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t13=t12;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=C_i_car(t11); f_7027(2,av2);}}} /* k11160 in k11141 in k11138 in k11063 in k11060 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ C_save_and_reclaim((void *)f_11162,2,av);} a=C_alloc(21); t2=C_a_i_list(&a,4,lf[293],((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[50],((C_word*)t0)[5],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6401 in loop2 in k6330 in k6312 in loop in expand in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_6403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6403,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6410,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:579: ##sys#expand-curried-define */ t4=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in k7073 in lambda-list? in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_7083(C_word t0,C_word 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_7083,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{ if(C_truep(C_i_symbolp(t2))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7103,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* expand.scm:737: keyword? */ t5=*((C_word*)lf[150]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_car(t4); if(C_truep(C_i_symbolp(t5))){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7131,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* expand.scm:740: keyword? */ t7=*((C_word*)lf[150]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} 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=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}} /* loop in extended-lambda-list? in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_4900(C_word t0,C_word 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_4900,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[64]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4919,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_4919(t6,t4);} else{ t6=C_eqp(t3,lf[65]); t7=t5; f_4919(t7,(C_truep(t6)?t6:C_eqp(t3,lf[66])));}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9995 in k9980 in k9942 in test in k9897 in k9894 in k9891 in k9888 in a9882 in k8205 in k8202 in k8199 in k8196 in k8193 in k8190 in k8187 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in ... */ static void C_ccall f_9997(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9997,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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,((C_word*)t0)[4],t2); /* expand.scm:1399: test */ t4=((C_word*)((C_word*)t0)[5])[1]; f_9911(t4,((C_word*)t0)[2],t3);}} /* k5449 in k5273 in loop in k4965 in k4962 in k4959 in expand-extended-lambda-list in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_5451(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_5451,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; switch(t2){ case C_fix(0): /* expand.scm:426: err */ t3=((C_word*)t0)[3]; f_4944(t3,((C_word*)t0)[4],lf[82]); case C_fix(1): t3=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[6]); /* expand.scm:427: loop */ t4=((C_word*)((C_word*)t0)[7])[1]; f_4972(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:428: err */ t3=((C_word*)t0)[3]; f_4944(t3,((C_word*)t0)[4],lf[83]); default: t3=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[10]); /* expand.scm:429: loop */ t4=((C_word*)((C_word*)t0)[7])[1]; f_4972(t4,((C_word*)t0)[4],C_fix(3),((C_word*)t0)[8],((C_word*)t0)[6],t3,((C_word*)t0)[9]);}} else{ /* expand.scm:430: err */ t2=((C_word*)t0)[3]; f_4944(t2,((C_word*)t0)[4],lf[84]);}} /* k7073 in lambda-list? in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_7075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7075,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7083,a[2]=t3,a[3]=((C_word)li86),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_7083(t5,((C_word*)t0)[2],((C_word*)t0)[3]);}} /* lambda-list? in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ 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=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_7071,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7075,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* expand.scm:734: ##sys#extended-lambda-list? */ t4=*((C_word*)lf[63]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11790 in k11773 in k11762 in loop in k11742 in a11739 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11792,2,av);} if(C_truep(t1)){ /* expand.scm:1010: ##sys#defjam-error */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_11778(2,av2);}}} /* k11797 in k11773 in k11762 in loop in k11742 in a11739 in k8078 in k8075 in k8072 in k8069 in k8066 in k8063 in k8059 in k8056 in k8053 in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_ccall f_11799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11799,2,av);} /* expand.scm:1009: c */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11141 in k11138 in k11063 in k11060 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in ... */ static void C_ccall f_11143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_11143,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_11162,a[2]=t2,a[3]=t9,a[4]=((C_word*)t0)[3],a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1200: expand */ t11=((C_word*)((C_word*)t0)[4])[1]; f_11010(t11,t10,((C_word*)t0)[5],C_SCHEME_FALSE);} /* k11138 in k11063 in k11060 in k11022 in expand in k11003 in k11000 in k10997 in a10991 in k8184 in k8181 in k8178 in k8175 in k8172 in k8169 in k8166 in k8163 in k8086 in k8082 in k8078 in k8075 in k8072 in ... */ static void C_ccall f_11140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_11140,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11143,a[2]=((C_word*)t0)[2],a[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:1196: r */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[77]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11180,a[2]=((C_word*)t0)[2],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:1202: c */ t6=((C_word*)t0)[7];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_11180(2,av2);}}}} /* k7060 in k7046 in err in k7025 in check-syntax in k4144 in k3666 in k3662 in k3658 in k3654 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_7062,2,av);} /* expand.scm:729: string-append */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[145]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[146]; av2[5]=t1; av2[6]=lf[147]; av2[7]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* loop in expand in k5731 in canonicalize-body in k4144 in k3666 in k3662 in k3658 in k3654 */ static void C_fcall f_6294(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; if(C_unlikely(!C_demand(C_calculate_demand(15,0,5)))){ C_save_and_reclaim_args((void *)trf_6294,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(15); if(C_truep(C_i_pairp(t2))){ t6=C_i_car(t2); t7=t6; t8=t2; t9=C_u_i_cdr(t8); t10=C_i_pairp(t7); t11=(C_truep(t10)?C_u_i_car(t7):C_SCHEME_FALSE); t12=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6314,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t4,a[6]=t5,a[7]=((C_word*)t0)[4],a[8]=t9,a[9]=t1,a[10]=t7,a[11]=((C_word*)t0)[5],a[12]=t2,a[13]=((C_word*)t0)[6],a[14]=((C_word*)t0)[7],tmp=(C_word)a,a+=15,tmp); if(C_truep(t11)){ t13=C_i_symbolp(t11); t14=t12; f_6314(t14,(C_truep(t13)?t11:C_SCHEME_FALSE));} else{ t13=t12; f_6314(t13,C_SCHEME_FALSE);}} else{ /* expand.scm:553: fini */ t6=((C_word*)((C_word*)t0)[6])[1]; f_5810(t6,t1,t3,t4,t5,t2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[670] = { {"f_7069:expand_2escm",(void*)f_7069}, {"f_6410:expand_2escm",(void*)f_6410}, {"f_4919:expand_2escm",(void*)f_4919}, {"f_9000:expand_2escm",(void*)f_9000}, {"f_9003:expand_2escm",(void*)f_9003}, {"f_6417:expand_2escm",(void*)f_6417}, {"f_7055:expand_2escm",(void*)f_7055}, {"f_9006:expand_2escm",(void*)f_9006}, {"f_11775:expand_2escm",(void*)f_11775}, {"f_11778:expand_2escm",(void*)f_11778}, {"f_6288:expand_2escm",(void*)f_6288}, {"f_11910:expand_2escm",(void*)f_11910}, {"f_11914:expand_2escm",(void*)f_11914}, {"f_9050:expand_2escm",(void*)f_9050}, {"f_4382:expand_2escm",(void*)f_4382}, {"f_4388:expand_2escm",(void*)f_4388}, {"f_11416:expand_2escm",(void*)f_11416}, {"f_11414:expand_2escm",(void*)f_11414}, {"f_11908:expand_2escm",(void*)f_11908}, {"f_5852:expand_2escm",(void*)f_5852}, {"f_4371:expand_2escm",(void*)f_4371}, {"f_11447:expand_2escm",(void*)f_11447}, {"f_10730:expand_2escm",(void*)f_10730}, {"f_11952:expand_2escm",(void*)f_11952}, {"f_10720:expand_2escm",(void*)f_10720}, {"f_11954:expand_2escm",(void*)f_11954}, {"f_4620:expand_2escm",(void*)f_4620}, {"f_11942:expand_2escm",(void*)f_11942}, {"f_9023:expand_2escm",(void*)f_9023}, {"f_10714:expand_2escm",(void*)f_10714}, {"f_11944:expand_2escm",(void*)f_11944}, {"f_5810:expand_2escm",(void*)f_5810}, {"f_9029:expand_2escm",(void*)f_9029}, {"f_10716:expand_2escm",(void*)f_10716}, {"f_9027:expand_2escm",(void*)f_9027}, {"f_5193:expand_2escm",(void*)f_5193}, {"f_5190:expand_2escm",(void*)f_5190}, {"f_5195:expand_2escm",(void*)f_5195}, {"f_5187:expand_2escm",(void*)f_5187}, {"f_11931:expand_2escm",(void*)f_11931}, {"f_11406:expand_2escm",(void*)f_11406}, {"f_4608:expand_2escm",(void*)f_4608}, {"f_5841:expand_2escm",(void*)f_5841}, {"f_5848:expand_2escm",(void*)f_5848}, {"f_5183:expand_2escm",(void*)f_5183}, {"f_11134:expand_2escm",(void*)f_11134}, {"f_11927:expand_2escm",(void*)f_11927}, {"f_11925:expand_2escm",(void*)f_11925}, {"f_5130:expand_2escm",(void*)f_5130}, {"f_9944:expand_2escm",(void*)f_9944}, {"f_10765:expand_2escm",(void*)f_10765}, {"f_5860:expand_2escm",(void*)f_5860}, {"f_10767:expand_2escm",(void*)f_10767}, {"f_4894:expand_2escm",(void*)f_4894}, {"f_10755:expand_2escm",(void*)f_10755}, {"f_11364:expand_2escm",(void*)f_11364}, {"f_11362:expand_2escm",(void*)f_11362}, {"f_7487:expand_2escm",(void*)f_7487}, {"f_10489:expand_2escm",(void*)f_10489}, {"f_7485:expand_2escm",(void*)f_7485}, {"f_9901:expand_2escm",(void*)f_9901}, {"f_7472:expand_2escm",(void*)f_7472}, {"f_7478:expand_2escm",(void*)f_7478}, {"f_9019:expand_2escm",(void*)f_9019}, {"f_9281:expand_2escm",(void*)f_9281}, {"f_7921:expand_2escm",(void*)f_7921}, {"f_11453:expand_2escm",(void*)f_11453}, {"f_11457:expand_2escm",(void*)f_11457}, {"f_11451:expand_2escm",(void*)f_11451}, {"f_11328:expand_2escm",(void*)f_11328}, {"f_10791:expand_2escm",(void*)f_10791}, {"f_7917:expand_2escm",(void*)f_7917}, {"f_11312:expand_2escm",(void*)f_11312}, {"f_6135:expand_2escm",(void*)f_6135}, {"f_8426:expand_2escm",(void*)f_8426}, {"f_6133:expand_2escm",(void*)f_6133}, {"f_6130:expand_2escm",(void*)f_6130}, {"f_7903:expand_2escm",(void*)f_7903}, {"f_11300:expand_2escm",(void*)f_11300}, {"f_4817:expand_2escm",(void*)f_4817}, {"f_5692:expand_2escm",(void*)f_5692}, {"f_8462:expand_2escm",(void*)f_8462}, {"f_8454:expand_2escm",(void*)f_8454}, {"f_8458:expand_2escm",(void*)f_8458}, {"f_8433:expand_2escm",(void*)f_8433}, {"f_9962:expand_2escm",(void*)f_9962}, {"f_8464:expand_2escm",(void*)f_8464}, {"f_8469:expand_2escm",(void*)f_8469}, {"f_8165:expand_2escm",(void*)f_8165}, {"f_8168:expand_2escm",(void*)f_8168}, {"f_10400:expand_2escm",(void*)f_10400}, {"f_5993:expand_2escm",(void*)f_5993}, {"f_9982:expand_2escm",(void*)f_9982}, {"f_9911:expand_2escm",(void*)f_9911}, {"f_6108:expand_2escm",(void*)f_6108}, {"f_6106:expand_2escm",(void*)f_6106}, {"f_5604:expand_2escm",(void*)f_5604}, {"f_9925:expand_2escm",(void*)f_9925}, {"f_10788:expand_2escm",(void*)f_10788}, {"f_10785:expand_2escm",(void*)f_10785}, {"f_10418:expand_2escm",(void*)f_10418}, {"f_10782:expand_2escm",(void*)f_10782}, {"f_8129:expand_2escm",(void*)f_8129}, {"f_10414:expand_2escm",(void*)f_10414}, {"f_9831:expand_2escm",(void*)f_9831}, {"f_9839:expand_2escm",(void*)f_9839}, {"f_10779:expand_2escm",(void*)f_10779}, {"f_10771:expand_2escm",(void*)f_10771}, {"f_11880:expand_2escm",(void*)f_11880}, {"f_5626:expand_2escm",(void*)f_5626}, {"f_8307:expand_2escm",(void*)f_8307}, {"f_8302:expand_2escm",(void*)f_8302}, {"f_8109:expand_2escm",(void*)f_8109}, {"f_11891:expand_2escm",(void*)f_11891}, {"f_11893:expand_2escm",(void*)f_11893}, {"f_10422:expand_2escm",(void*)f_10422}, {"f_9821:expand_2escm",(void*)f_9821}, {"f_11863:expand_2escm",(void*)f_11863}, {"f_9829:expand_2escm",(void*)f_9829}, {"f_11897:expand_2escm",(void*)f_11897}, {"f_9298:expand_2escm",(void*)f_9298}, {"f_9296:expand_2escm",(void*)f_9296}, {"f_4416:expand_2escm",(void*)f_4416}, {"f_9870:expand_2escm",(void*)f_9870}, {"f_11874:expand_2escm",(void*)f_11874}, {"f_5917:expand_2escm",(void*)f_5917}, {"f_8859:expand_2escm",(void*)f_8859}, {"f_9807:expand_2escm",(void*)f_9807}, {"f_4405:expand_2escm",(void*)f_4405}, {"f_5914:expand_2escm",(void*)f_5914}, {"f_11876:expand_2escm",(void*)f_11876}, {"f_6022:expand_2escm",(void*)f_6022}, {"f_9592:expand_2escm",(void*)f_9592}, {"f_9594:expand_2escm",(void*)f_9594}, {"f_9855:expand_2escm",(void*)f_9855}, {"f_9857:expand_2escm",(void*)f_9857}, {"f_6182:expand_2escm",(void*)f_6182}, {"f_9598:expand_2escm",(void*)f_9598}, {"f_9868:expand_2escm",(void*)f_9868}, {"f_6082:expand_2escm",(void*)f_6082}, {"f_6080:expand_2escm",(void*)f_6080}, {"f_6086:expand_2escm",(void*)f_6086}, {"f_6791:expand_2escm",(void*)f_6791}, {"f_9127:expand_2escm",(void*)f_9127}, {"f_10448:expand_2escm",(void*)f_10448}, {"f_8370:expand_2escm",(void*)f_8370}, {"f_10444:expand_2escm",(void*)f_10444}, {"f_9326:expand_2escm",(void*)f_9326}, {"f_4944:expand_2escm",(void*)f_4944}, {"f_9556:expand_2escm",(void*)f_9556}, {"f_8384:expand_2escm",(void*)f_8384}, {"f_9552:expand_2escm",(void*)f_9552}, {"f_4941:expand_2escm",(void*)f_4941}, {"f_9548:expand_2escm",(void*)f_9548}, {"f_8905:expand_2escm",(void*)f_8905}, {"f_8909:expand_2escm",(void*)f_8909}, {"f_9562:expand_2escm",(void*)f_9562}, {"f_6056:expand_2escm",(void*)f_6056}, {"f_9558:expand_2escm",(void*)f_9558}, {"f_7624:expand_2escm",(void*)f_7624}, {"f_4964:expand_2escm",(void*)f_4964}, {"f_4967:expand_2escm",(void*)f_4967}, {"f_9173:expand_2escm",(void*)f_9173}, {"f_4961:expand_2escm",(void*)f_4961}, {"f_9350:expand_2escm",(void*)f_9350}, {"f_9357:expand_2escm",(void*)f_9357}, {"f_9579:expand_2escm",(void*)f_9579}, {"f_7607:expand_2escm",(void*)f_7607}, {"f_10297:expand_2escm",(void*)f_10297}, {"f_9364:expand_2escm",(void*)f_9364}, {"f_9192:expand_2escm",(void*)f_9192}, {"f_6196:expand_2escm",(void*)f_6196}, {"f_10288:expand_2escm",(void*)f_10288}, {"f_6098:expand_2escm",(void*)f_6098}, {"f_5220:expand_2escm",(void*)f_5220}, {"f_9601:expand_2escm",(void*)f_9601}, {"f_9604:expand_2escm",(void*)f_9604}, {"f_9611:expand_2escm",(void*)f_9611}, {"f_9619:expand_2escm",(void*)f_9619}, {"f_8677:expand_2escm",(void*)f_8677}, {"f_8673:expand_2escm",(void*)f_8673}, {"f_5234:expand_2escm",(void*)f_5234}, {"f_8640:expand_2escm",(void*)f_8640}, {"f_4645:expand_2escm",(void*)f_4645}, {"f_4647:expand_2escm",(void*)f_4647}, {"f_10227:expand_2escm",(void*)f_10227}, {"f_10229:expand_2escm",(void*)f_10229}, {"f_10200:expand_2escm",(void*)f_10200}, {"f_6787:expand_2escm",(void*)f_6787}, {"f_9649:expand_2escm",(void*)f_9649}, {"f_5002:expand_2escm",(void*)f_5002}, {"f_7208:expand_2escm",(void*)f_7208}, {"f_9407:expand_2escm",(void*)f_9407}, {"f_9651:expand_2escm",(void*)f_9651}, {"f_9658:expand_2escm",(void*)f_9658}, {"f_5383:expand_2escm",(void*)f_5383}, {"f_10207:expand_2escm",(void*)f_10207}, {"f_9621:expand_2escm",(void*)f_9621}, {"f_9625:expand_2escm",(void*)f_9625}, {"f_9628:expand_2escm",(void*)f_9628}, {"f_10251:expand_2escm",(void*)f_10251}, {"f_10269:expand_2escm",(void*)f_10269}, {"f_10265:expand_2escm",(void*)f_10265}, {"f_10241:expand_2escm",(void*)f_10241}, {"f_6350:expand_2escm",(void*)f_6350}, {"f_6353:expand_2escm",(void*)f_6353}, {"f_10249:expand_2escm",(void*)f_10249}, {"f_10925:expand_2escm",(void*)f_10925}, {"f_7942:expand_2escm",(void*)f_7942}, {"f_9481:expand_2escm",(void*)f_9481}, {"f_11183:expand_2escm",(void*)f_11183}, {"f_11180:expand_2escm",(void*)f_11180}, {"f_6887:expand_2escm",(void*)f_6887}, {"f_7938:expand_2escm",(void*)f_7938}, {"f_6884:expand_2escm",(void*)f_6884}, {"f_6875:expand_2escm",(void*)f_6875}, {"f_6872:expand_2escm",(void*)f_6872}, {"f_6206:expand_2escm",(void*)f_6206}, {"f_11539:expand_2escm",(void*)f_11539}, {"f_10233:expand_2escm",(void*)f_10233}, {"f_11655:expand_2escm",(void*)f_11655}, {"f_11652:expand_2escm",(void*)f_11652}, {"f_11857:expand_2escm",(void*)f_11857}, {"f_11859:expand_2escm",(void*)f_11859}, {"f_11526:expand_2escm",(void*)f_11526}, {"f_11523:expand_2escm",(void*)f_11523}, {"f_10236:expand_2escm",(void*)f_10236}, {"f_10239:expand_2escm",(void*)f_10239}, {"f_6820:expand_2escm",(void*)f_6820}, {"f_6827:expand_2escm",(void*)f_6827}, {"f_5586:expand_2escm",(void*)f_5586}, {"f_11517:expand_2escm",(void*)f_11517}, {"f_4324:expand_2escm",(void*)f_4324}, {"f_5582:expand_2escm",(void*)f_5582}, {"f_4557:expand_2escm",(void*)f_4557}, {"f_4851:expand_2escm",(void*)f_4851}, {"f_6818:expand_2escm",(void*)f_6818}, {"f_11519:expand_2escm",(void*)f_11519}, {"f_11504:expand_2escm",(void*)f_11504}, {"f_11501:expand_2escm",(void*)f_11501}, {"f_4316:expand_2escm",(void*)f_4316}, {"f_11669:expand_2escm",(void*)f_11669}, {"f_11666:expand_2escm",(void*)f_11666}, {"f_3745:expand_2escm",(void*)f_3745}, {"f_4348:expand_2escm",(void*)f_4348}, {"f_4343:expand_2escm",(void*)f_4343}, {"f_3694:expand_2escm",(void*)f_3694}, {"f_3697:expand_2escm",(void*)f_3697}, {"f_11812:expand_2escm",(void*)f_11812}, {"f_11610:expand_2escm",(void*)f_11610}, {"f_4857:expand_2escm",(void*)f_4857}, {"f_11819:expand_2escm",(void*)f_11819}, {"f_4831:expand_2escm",(void*)f_4831}, {"f_11563:expand_2escm",(void*)f_11563}, {"f_3751:expand_2escm",(void*)f_3751}, {"f_11567:expand_2escm",(void*)f_11567}, {"f_6927:expand_2escm",(void*)f_6927}, {"f_11561:expand_2escm",(void*)f_11561}, {"f_11803:expand_2escm",(void*)f_11803}, {"f_11600:expand_2escm",(void*)f_11600}, {"f_4845:expand_2escm",(void*)f_4845}, {"f_4333:expand_2escm",(void*)f_4333}, {"f_5556:expand_2escm",(void*)f_5556}, {"f_4330:expand_2escm",(void*)f_4330}, {"f_5550:expand_2escm",(void*)f_5550}, {"f_4360:expand_2escm",(void*)f_4360}, {"f_5544:expand_2escm",(void*)f_5544}, {"f_4599:expand_2escm",(void*)f_4599}, {"f_11545:expand_2escm",(void*)f_11545}, {"f_11548:expand_2escm",(void*)f_11548}, {"f_4354:expand_2escm",(void*)f_4354}, {"f_11541:expand_2escm",(void*)f_11541}, {"f_4827:expand_2escm",(void*)f_4827}, {"f_3687:expand_2escm",(void*)f_3687}, {"f_10194:expand_2escm",(void*)f_10194}, {"f_10196:expand_2escm",(void*)f_10196}, {"f_6978:expand_2escm",(void*)f_6978}, {"f_6972:expand_2escm",(void*)f_6972}, {"f_4287:expand_2escm",(void*)f_4287}, {"f_3700:expand_2escm",(void*)f_3700}, {"f_3656:expand_2escm",(void*)f_3656}, {"f_10942:expand_2escm",(void*)f_10942}, {"f_10940:expand_2escm",(void*)f_10940}, {"f_5563:expand_2escm",(void*)f_5563}, {"f_5560:expand_2escm",(void*)f_5560}, {"f_11495:expand_2escm",(void*)f_11495}, {"f_3664:expand_2escm",(void*)f_3664}, {"f_3660:expand_2escm",(void*)f_3660}, {"f_3668:expand_2escm",(void*)f_3668}, {"f_10173:expand_2escm",(void*)f_10173}, {"f_4268:expand_2escm",(void*)f_4268}, {"f_6998:expand_2escm",(void*)f_6998}, {"f_7419:expand_2escm",(void*)f_7419}, {"f_11497:expand_2escm",(void*)f_11497}, {"f_10179:expand_2escm",(void*)f_10179}, {"f_10175:expand_2escm",(void*)f_10175}, {"f_4084:expand_2escm",(void*)f_4084}, {"f_5960:expand_2escm",(void*)f_5960}, {"f_6896:expand_2escm",(void*)f_6896}, {"f_6893:expand_2escm",(void*)f_6893}, {"f_5967:expand_2escm",(void*)f_5967}, {"f_6890:expand_2escm",(void*)f_6890}, {"f_5058:expand_2escm",(void*)f_5058}, {"f_4062:expand_2escm",(void*)f_4062}, {"f_4293:expand_2escm",(void*)f_4293}, {"f_4291:expand_2escm",(void*)f_4291}, {"f_6899:expand_2escm",(void*)f_6899}, {"f_10153:expand_2escm",(void*)f_10153}, {"f_5081:expand_2escm",(void*)f_5081}, {"f_4050:expand_2escm",(void*)f_4050}, {"f_10626:expand_2escm",(void*)f_10626}, {"f_10628:expand_2escm",(void*)f_10628}, {"f_9516:expand_2escm",(void*)f_9516}, {"f_4068:expand_2escm",(void*)f_4068}, {"f_5077:expand_2escm",(void*)f_5077}, {"f_9207:expand_2escm",(void*)f_9207}, {"f_9209:expand_2escm",(void*)f_9209}, {"f_7362:expand_2escm",(void*)f_7362}, {"f_9251:expand_2escm",(void*)f_9251}, {"f_5927:expand_2escm",(void*)f_5927}, {"f_10137:expand_2escm",(void*)f_10137}, {"f_11387:expand_2escm",(void*)f_11387}, {"f_11635:expand_2escm",(void*)f_11635}, {"f_11637:expand_2escm",(void*)f_11637}, {"f_3670:expand_2escm",(void*)f_3670}, {"f_5923:expand_2escm",(void*)f_5923}, {"f_9262:expand_2escm",(void*)f_9262}, {"f_5958:expand_2escm",(void*)f_5958}, {"f_9544:expand_2escm",(void*)f_9544}, {"f_9540:expand_2escm",(void*)f_9540}, {"f_11822:expand_2escm",(void*)f_11822}, {"f_10653:expand_2escm",(void*)f_10653}, {"f_5952:expand_2escm",(void*)f_5952}, {"f_5955:expand_2escm",(void*)f_5955}, {"f_5949:expand_2escm",(void*)f_5949}, {"f_5033:expand_2escm",(void*)f_5033}, {"f_4025:expand_2escm",(void*)f_4025}, {"f_11056:expand_2escm",(void*)f_11056}, {"f_11052:expand_2escm",(void*)f_11052}, {"f_11049:expand_2escm",(void*)f_11049}, {"f_11046:expand_2escm",(void*)f_11046}, {"f_11043:expand_2escm",(void*)f_11043}, {"f_11074:expand_2escm",(void*)f_11074}, {"f_9504:expand_2escm",(void*)f_9504}, {"f_9506:expand_2escm",(void*)f_9506}, {"f_8627:expand_2escm",(void*)f_8627}, {"f_8332:expand_2escm",(void*)f_8332}, {"f_10992:expand_2escm",(void*)f_10992}, {"f_10999:expand_2escm",(void*)f_10999}, {"f_10990:expand_2escm",(void*)f_10990}, {"f_11065:expand_2escm",(void*)f_11065}, {"f_11068:expand_2escm",(void*)f_11068}, {"f_11062:expand_2escm",(void*)f_11062}, {"f_11480:expand_2escm",(void*)f_11480}, {"f_11010:expand_2escm",(void*)f_11010}, {"f_8319:expand_2escm",(void*)f_8319}, {"f_8315:expand_2escm",(void*)f_8315}, {"f_8311:expand_2escm",(void*)f_8311}, {"f_7663:expand_2escm",(void*)f_7663}, {"f_11005:expand_2escm",(void*)f_11005}, {"f_11002:expand_2escm",(void*)f_11002}, {"f_8324:expand_2escm",(void*)f_8324}, {"f_8326:expand_2escm",(void*)f_8326}, {"f_8619:expand_2escm",(void*)f_8619}, {"f_11033:expand_2escm",(void*)f_11033}, {"f_11037:expand_2escm",(void*)f_11037}, {"f_11030:expand_2escm",(void*)f_11030}, {"f_7641:expand_2escm",(void*)f_7641}, {"f_11024:expand_2escm",(void*)f_11024}, {"f_3911:expand_2escm",(void*)f_3911}, {"f_3926:expand_2escm",(void*)f_3926}, {"f_3928:expand_2escm",(void*)f_3928}, {"f_8360:expand_2escm",(void*)f_8360}, {"f_8830:expand_2escm",(void*)f_8830}, {"f_8824:expand_2escm",(void*)f_8824}, {"f_8800:expand_2escm",(void*)f_8800}, {"f_8228:expand_2escm",(void*)f_8228}, {"f_8225:expand_2escm",(void*)f_8225}, {"f_8222:expand_2escm",(void*)f_8222}, {"f_9132:expand_2escm",(void*)f_9132}, {"f_8286:expand_2escm",(void*)f_8286}, {"f_8282:expand_2escm",(void*)f_8282}, {"f_10678:expand_2escm",(void*)f_10678}, {"f_6740:expand_2escm",(void*)f_6740}, {"f_6748:expand_2escm",(void*)f_6748}, {"f_5729:expand_2escm",(void*)f_5729}, {"f_8295:expand_2escm",(void*)f_8295}, {"f_8290:expand_2escm",(void*)f_8290}, {"f_6732:expand_2escm",(void*)f_6732}, {"f_5717:expand_2escm",(void*)f_5717}, {"f_6762:expand_2escm",(void*)f_6762}, {"f_6767:expand_2escm",(void*)f_6767}, {"f_9158:expand_2escm",(void*)f_9158}, {"f_8278:expand_2escm",(void*)f_8278}, {"f_8274:expand_2escm",(void*)f_8274}, {"f_8270:expand_2escm",(void*)f_8270}, {"f_8847:expand_2escm",(void*)f_8847}, {"f_6751:expand_2escm",(void*)f_6751}, {"f_8843:expand_2escm",(void*)f_8843}, {"f_9106:expand_2escm",(void*)f_9106}, {"f_9102:expand_2escm",(void*)f_9102}, {"f_7103:expand_2escm",(void*)f_7103}, {"f_11964:expand_2escm",(void*)f_11964}, {"f_11962:expand_2escm",(void*)f_11962}, {"f_9123:expand_2escm",(void*)f_9123}, {"f_3850:expand_2escm",(void*)f_3850}, {"f_9444:expand_2escm",(void*)f_9444}, {"f_9414:expand_2escm",(void*)f_9414}, {"f_7139:expand_2escm",(void*)f_7139}, {"f_7131:expand_2escm",(void*)f_7131}, {"f_7133:expand_2escm",(void*)f_7133}, {"f_7700:expand_2escm",(void*)f_7700}, {"f_9423:expand_2escm",(void*)f_9423}, {"f_9421:expand_2escm",(void*)f_9421}, {"f_3841:expand_2escm",(void*)f_3841}, {"f_3823:expand_2escm",(void*)f_3823}, {"f_5304:expand_2escm",(void*)f_5304}, {"f_9457:expand_2escm",(void*)f_9457}, {"f_9464:expand_2escm",(void*)f_9464}, {"f_9465:expand_2escm",(void*)f_9465}, {"f_6332:expand_2escm",(void*)f_6332}, {"f_6337:expand_2escm",(void*)f_6337}, {"f_5322:expand_2escm",(void*)f_5322}, {"f_5325:expand_2escm",(void*)f_5325}, {"f_8566:expand_2escm",(void*)f_8566}, {"f_8562:expand_2escm",(void*)f_8562}, {"f_8570:expand_2escm",(void*)f_8570}, {"f_5364:expand_2escm",(void*)f_5364}, {"f_6314:expand_2escm",(void*)f_6314}, {"f_6806:expand_2escm",(void*)f_6806}, {"f_6865:expand_2escm",(void*)f_6865}, {"f_6852:expand_2escm",(void*)f_6852}, {"f_6855:expand_2escm",(void*)f_6855}, {"f_6858:expand_2escm",(void*)f_6858}, {"f_6688:expand_2escm",(void*)f_6688}, {"f_6685:expand_2escm",(void*)f_6685}, {"f_6683:expand_2escm",(void*)f_6683}, {"f_4505:expand_2escm",(void*)f_4505}, {"f_6846:expand_2escm",(void*)f_6846}, {"f_6849:expand_2escm",(void*)f_6849}, {"f_6834:expand_2escm",(void*)f_6834}, {"f_6836:expand_2escm",(void*)f_6836}, {"f_11679:expand_2escm",(void*)f_11679}, {"f_4531:expand_2escm",(void*)f_4531}, {"f_10837:expand_2escm",(void*)f_10837}, {"f_4529:expand_2escm",(void*)f_4529}, {"f_10831:expand_2escm",(void*)f_10831}, {"f_10827:expand_2escm",(void*)f_10827}, {"f_10824:expand_2escm",(void*)f_10824}, {"f_10818:expand_2escm",(void*)f_10818}, {"f_7184:expand_2escm",(void*)f_7184}, {"f_7189:expand_2escm",(void*)f_7189}, {"f_6931:expand_2escm",(void*)f_6931}, {"f_6933:expand_2escm",(void*)f_6933}, {"f_4575:expand_2escm",(void*)f_4575}, {"f_3871:expand_2escm",(void*)f_3871}, {"f_10802:expand_2escm",(void*)f_10802}, {"f_10804:expand_2escm",(void*)f_10804}, {"f_4774:expand_2escm",(void*)f_4774}, {"f_3882:expand_2escm",(void*)f_3882}, {"f_7165:expand_2escm",(void*)f_7165}, {"f_7160:expand_2escm",(void*)f_7160}, {"f_3886:expand_2escm",(void*)f_3886}, {"f_6951:expand_2escm",(void*)f_6951}, {"f_3976:expand_2escm",(void*)f_3976}, {"f_4518:expand_2escm",(void*)f_4518}, {"f_11686:expand_2escm",(void*)f_11686}, {"f_11699:expand_2escm",(void*)f_11699}, {"f_6947:expand_2escm",(void*)f_6947}, {"f_4512:expand_2escm",(void*)f_4512}, {"f_11696:expand_2escm",(void*)f_11696}, {"f_11693:expand_2escm",(void*)f_11693}, {"f_11690:expand_2escm",(void*)f_11690}, {"f_4201:expand_2escm",(void*)f_4201}, {"f_5733:expand_2escm",(void*)f_5733}, {"f_6912:expand_2escm",(void*)f_6912}, {"f_11738:expand_2escm",(void*)f_11738}, {"f_6916:expand_2escm",(void*)f_6916}, {"f_3816:expand_2escm",(void*)f_3816}, {"f_4219:expand_2escm",(void*)f_4219}, {"f_11764:expand_2escm",(void*)f_11764}, {"f_6481:expand_2escm",(void*)f_6481}, {"f_4246:expand_2escm",(void*)f_4246}, {"f_4240:expand_2escm",(void*)f_4240}, {"f_4242:expand_2escm",(void*)f_4242}, {"f_4279:expand_2escm",(void*)f_4279}, {"f_6469:expand_2escm",(void*)f_6469}, {"f_4229:expand_2escm",(void*)f_4229}, {"f_8040:expand_2escm",(void*)f_8040}, {"f_4716:expand_2escm",(void*)f_4716}, {"f_4710:expand_2escm",(void*)f_4710}, {"f_7878:expand_2escm",(void*)f_7878}, {"f_5744:expand_2escm",(void*)f_5744}, {"f_8046:expand_2escm",(void*)f_8046}, {"f_7501:expand_2escm",(void*)f_7501}, {"f_7505:expand_2escm",(void*)f_7505}, {"f_10846:expand_2escm",(void*)f_10846}, {"f_10840:expand_2escm",(void*)f_10840}, {"f_8055:expand_2escm",(void*)f_8055}, {"f_8058:expand_2escm",(void*)f_8058}, {"f_11597:expand_2escm",(void*)f_11597}, {"f_10074:expand_2escm",(void*)f_10074}, {"f_10072:expand_2escm",(void*)f_10072}, {"f_8035:expand_2escm",(void*)f_8035}, {"f_8031:expand_2escm",(void*)f_8031}, {"f_11210:expand_2escm",(void*)f_11210}, {"f_8061:expand_2escm",(void*)f_8061}, {"f_6517:expand_2escm",(void*)f_6517}, {"f_10047:expand_2escm",(void*)f_10047}, {"f_11744:expand_2escm",(void*)f_11744}, {"f_11749:expand_2escm",(void*)f_11749}, {"f_7828:expand_2escm",(void*)f_7828}, {"f_11740:expand_2escm",(void*)f_11740}, {"f_8096:expand_2escm",(void*)f_8096}, {"f_7574:expand_2escm",(void*)f_7574}, {"f_8071:expand_2escm",(void*)f_8071}, {"f_7577:expand_2escm",(void*)f_7577}, {"toplevel:expand_2escm",(void*)C_expand_toplevel}, {"f_7815:expand_2escm",(void*)f_7815}, {"f_8065:expand_2escm",(void*)f_8065}, {"f_11237:expand_2escm",(void*)f_11237}, {"f_8068:expand_2escm",(void*)f_8068}, {"f_10031:expand_2escm",(void*)f_10031}, {"f_7522:expand_2escm",(void*)f_7522}, {"f_6533:expand_2escm",(void*)f_6533}, {"f_7526:expand_2escm",(void*)f_7526}, {"f_7800:expand_2escm",(void*)f_7800}, {"f_8077:expand_2escm",(void*)f_8077}, {"f_8074:expand_2escm",(void*)f_8074}, {"f_10024:expand_2escm",(void*)f_10024}, {"f_7556:expand_2escm",(void*)f_7556}, {"f_10585:expand_2escm",(void*)f_10585}, {"f_10564:expand_2escm",(void*)f_10564}, {"f_8526:expand_2escm",(void*)f_8526}, {"f_7760:expand_2escm",(void*)f_7760}, {"f_8240:expand_2escm",(void*)f_8240}, {"f_10892:expand_2escm",(void*)f_10892}, {"f_8255:expand_2escm",(void*)f_8255}, {"f_8259:expand_2escm",(void*)f_8259}, {"f_7752:expand_2escm",(void*)f_7752}, {"f_11570:expand_2escm",(void*)f_11570}, {"f_10885:expand_2escm",(void*)f_10885}, {"f_10889:expand_2escm",(void*)f_10889}, {"f_11585:expand_2escm",(void*)f_11585}, {"f_11583:expand_2escm",(void*)f_11583}, {"f_11589:expand_2escm",(void*)f_11589}, {"f_8492:expand_2escm",(void*)f_8492}, {"f_8231:expand_2escm",(void*)f_8231}, {"f_8233:expand_2escm",(void*)f_8233}, {"f_8207:expand_2escm",(void*)f_8207}, {"f_10524:expand_2escm",(void*)f_10524}, {"f_8204:expand_2escm",(void*)f_8204}, {"f_10520:expand_2escm",(void*)f_10520}, {"f_9732:expand_2escm",(void*)f_9732}, {"f_8201:expand_2escm",(void*)f_8201}, {"f_7721:expand_2escm",(void*)f_7721}, {"f_8219:expand_2escm",(void*)f_8219}, {"f_8216:expand_2escm",(void*)f_8216}, {"f_8213:expand_2escm",(void*)f_8213}, {"f_8210:expand_2escm",(void*)f_8210}, {"f_10518:expand_2escm",(void*)f_10518}, {"f_8409:expand_2escm",(void*)f_8409}, {"f_8264:expand_2escm",(void*)f_8264}, {"f_9729:expand_2escm",(void*)f_9729}, {"f_10507:expand_2escm",(void*)f_10507}, {"f_9722:expand_2escm",(void*)f_9722}, {"f_9726:expand_2escm",(void*)f_9726}, {"f_8080:expand_2escm",(void*)f_8080}, {"f_9773:expand_2escm",(void*)f_9773}, {"f_8732:expand_2escm",(void*)f_8732}, {"f_8090:expand_2escm",(void*)f_8090}, {"f_9744:expand_2escm",(void*)f_9744}, {"f_5822:expand_2escm",(void*)f_5822}, {"f_8084:expand_2escm",(void*)f_8084}, {"f_8088:expand_2escm",(void*)f_8088}, {"f_4102:expand_2escm",(void*)f_4102}, {"f_8112:expand_2escm",(void*)f_8112}, {"f_10536:expand_2escm",(void*)f_10536}, {"f_8177:expand_2escm",(void*)f_8177}, {"f_8171:expand_2escm",(void*)f_8171}, {"f_8174:expand_2escm",(void*)f_8174}, {"f_9847:expand_2escm",(void*)f_9847}, {"f_4118:expand_2escm",(void*)f_4118}, {"f_9890:expand_2escm",(void*)f_9890}, {"f_8189:expand_2escm",(void*)f_8189}, {"f_9893:expand_2escm",(void*)f_9893}, {"f_8186:expand_2escm",(void*)f_8186}, {"f_8183:expand_2escm",(void*)f_8183}, {"f_8180:expand_2escm",(void*)f_8180}, {"f_9899:expand_2escm",(void*)f_9899}, {"f_9896:expand_2escm",(void*)f_9896}, {"f_8756:expand_2escm",(void*)f_8756}, {"f_10381:expand_2escm",(void*)f_10381}, {"f_9881:expand_2escm",(void*)f_9881}, {"f_9883:expand_2escm",(void*)f_9883}, {"f_7002:expand_2escm",(void*)f_7002}, {"f_10396:expand_2escm",(void*)f_10396}, {"f_8198:expand_2escm",(void*)f_8198}, {"f_8195:expand_2escm",(void*)f_8195}, {"f_8192:expand_2escm",(void*)f_8192}, {"f_8940:expand_2escm",(void*)f_8940}, {"f_7048:expand_2escm",(void*)f_7048}, {"f_7044:expand_2escm",(void*)f_7044}, {"f_7039:expand_2escm",(void*)f_7039}, {"f_7032:expand_2escm",(void*)f_7032}, {"f_8934:expand_2escm",(void*)f_8934}, {"f_4762:expand_2escm",(void*)f_4762}, {"f_4754:expand_2escm",(void*)f_4754}, {"f_4758:expand_2escm",(void*)f_4758}, {"f_10332:expand_2escm",(void*)f_10332}, {"f_5288:expand_2escm",(void*)f_5288}, {"f_10362:expand_2escm",(void*)f_10362}, {"f_5275:expand_2escm",(void*)f_5275}, {"f_8982:expand_2escm",(void*)f_8982}, {"f_8988:expand_2escm",(void*)f_8988}, {"f_6620:expand_2escm",(void*)f_6620}, {"f_10311:expand_2escm",(void*)f_10311}, {"f_9305:expand_2escm",(void*)f_9305}, {"f_8979:expand_2escm",(void*)f_8979}, {"f_10342:expand_2escm",(void*)f_10342}, {"f_9688:expand_2escm",(void*)f_9688}, {"f_10373:expand_2escm",(void*)f_10373}, {"f_6606:expand_2escm",(void*)f_6606}, {"f_6603:expand_2escm",(void*)f_6603}, {"f_9691:expand_2escm",(void*)f_9691}, {"f_9664:expand_2escm",(void*)f_9664}, {"f_4146:expand_2escm",(void*)f_4146}, {"f_9667:expand_2escm",(void*)f_9667}, {"f_6660:expand_2escm",(void*)f_6660}, {"f_10351:expand_2escm",(void*)f_10351}, {"f_4481:expand_2escm",(void*)f_4481}, {"f_4494:expand_2escm",(void*)f_4494}, {"f_4499:expand_2escm",(void*)f_4499}, {"f_4167:expand_2escm",(void*)f_4167}, {"f_7843:expand_2escm",(void*)f_7843}, {"f_4488:expand_2escm",(void*)f_4488}, {"f_4986:expand_2escm",(void*)f_4986}, {"f_4461:expand_2escm",(void*)f_4461}, {"f_4150:expand_2escm",(void*)f_4150}, {"f_4477:expand_2escm",(void*)f_4477}, {"f_9370:expand_2escm",(void*)f_9370}, {"f_4187:expand_2escm",(void*)f_4187}, {"f_4972:expand_2escm",(void*)f_4972}, {"f_9387:expand_2escm",(void*)f_9387}, {"f_4464:expand_2escm",(void*)f_4464}, {"f_9380:expand_2escm",(void*)f_9380}, {"f_4457:expand_2escm",(void*)f_4457}, {"f_4455:expand_2escm",(void*)f_4455}, {"f_4990:expand_2escm",(void*)f_4990}, {"f_4194:expand_2escm",(void*)f_4194}, {"f_4191:expand_2escm",(void*)f_4191}, {"f_10321:expand_2escm",(void*)f_10321}, {"f_11117:expand_2escm",(void*)f_11117}, {"f_7027:expand_2escm",(void*)f_7027}, {"f_7017:expand_2escm",(void*)f_7017}, {"f_11162:expand_2escm",(void*)f_11162}, {"f_6403:expand_2escm",(void*)f_6403}, {"f_7083:expand_2escm",(void*)f_7083}, {"f_4900:expand_2escm",(void*)f_4900}, {"f_9997:expand_2escm",(void*)f_9997}, {"f_5451:expand_2escm",(void*)f_5451}, {"f_7075:expand_2escm",(void*)f_7075}, {"f_7071:expand_2escm",(void*)f_7071}, {"f_11792:expand_2escm",(void*)f_11792}, {"f_11799:expand_2escm",(void*)f_11799}, {"f_11143:expand_2escm",(void*)f_11143}, {"f_11140:expand_2escm",(void*)f_11140}, {"f_7062:expand_2escm",(void*)f_7062}, {"f_6294:expand_2escm",(void*)f_6294}, {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| sprintf 1 S| foldl 1 S| ##sys#map 5 S| for-each 2 S| map 10 o|eliminated procedure checks: 564 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|specializations: o| 1 (zero? fixnum) o| 1 (cdddr (pair * (pair * pair))) o| 1 (##sys#check-output-port * * *) o| 2 (vector-length vector) o| 8 (eqv? (not float) *) o| 2 (cadr (pair * pair)) o| 8 (cddr (pair * pair)) o| 1 (cdadr (pair * (pair pair *))) o| 3 (caar (pair pair *)) o| 1 (>= fixnum fixnum) o| 2 (length list) o| 15 (eqv? * (not float)) o| 1 (##sys#call-with-values (procedure () *) *) o| 2 (cdar (pair pair *)) o| 10 (##sys#check-list (or pair list) *) o| 1 (set-cdr! pair *) o| 75 (cdr pair) o| 1 (set-car! pair *) o| 58 (car pair) (o e)|safe calls: 1154 (o e)|assignments to immediate values: 3 o|Removed `not' forms: 36 o|inlining procedure: k3672 o|inlining procedure: k3672 o|contracted procedure: "(expand.scm:81) g257258" o|inlining procedure: k3689 o|inlining procedure: k3689 o|contracted procedure: "(expand.scm:95) g288289" o|contracted procedure: "(expand.scm:94) g283284" o|contracted procedure: "(expand.scm:93) g279280" o|inlining procedure: k3734 o|inlining procedure: k3734 o|inlining procedure: k3756 o|inlining procedure: k3756 o|inlining procedure: k3778 o|inlining procedure: k3778 o|contracted procedure: k3784 o|inlining procedure: k3787 o|inlining procedure: k3787 o|contracted procedure: "(expand.scm:109) g321322" o|contracted procedure: "(expand.scm:108) g310311" o|inlining procedure: k3793 o|inlining procedure: k3793 o|inlining procedure: k3852 o|inlining procedure: k3852 o|inlining procedure: k3930 o|contracted procedure: "(expand.scm:136) g423433" o|inlining procedure: k3930 o|inlining procedure: k3978 o|contracted procedure: "(expand.scm:130) g381389" o|contracted procedure: "(expand.scm:134) g399400" o|contracted procedure: "(expand.scm:133) g395396" o|inlining procedure: k3978 o|inlining procedure: k4027 o|inlining procedure: k4027 o|contracted procedure: k4073 o|inlining procedure: k4070 o|inlining procedure: k4086 o|inlining procedure: k4086 o|inlining procedure: k4104 o|inlining procedure: k4104 o|contracted procedure: "(expand.scm:144) g460461" o|inlining procedure: k4070 o|inlining procedure: k4155 o|inlining procedure: k4155 o|inlining procedure: k4198 o|inlining procedure: k4198 o|inlining procedure: k4253 o|inlining procedure: k4253 o|removed unused formal parameters: (me2539) o|inlining procedure: k4295 o|inlining procedure: k4295 o|removed unused parameter to known procedure: me2539 loop537 o|inlining procedure: k4366 o|inlining procedure: k4390 o|inlining procedure: k4390 o|inlining procedure: k4433 o|inlining procedure: k4433 o|inlining procedure: k4366 o|inlining procedure: k4462 o|inlining procedure: k4462 o|contracted procedure: k4482 o|merged explicitly consed rest parameter: args563595 o|consed rest parameter at call site: tmp23085 1 o|contracted procedure: k4539 o|inlining procedure: k4536 o|inlining procedure: k4536 o|inlining procedure: k4577 o|inlining procedure: k4600 o|inlining procedure: k4649 o|inlining procedure: k4649 o|inlining procedure: k4718 o|contracted procedure: "(expand.scm:285) g641650" o|inlining procedure: k4718 o|inlining procedure: k4600 o|inlining procedure: k4763 o|inlining procedure: k4763 o|inlining procedure: k4793 o|contracted procedure: "(expand.scm:290) g691692" o|inlining procedure: k4793 o|inlining procedure: k4811 o|inlining procedure: k4811 o|inlining procedure: k4577 o|inlining procedure: k4859 o|inlining procedure: k4859 o|inlining procedure: k4902 o|inlining procedure: k4928 o|inlining procedure: k4928 o|substituted constant variable: a4935 o|substituted constant variable: a4937 o|substituted constant variable: a4939 o|inlining procedure: k4902 o|inlining procedure: k4974 o|inlining procedure: k4991 o|inlining procedure: k4991 o|substituted constant variable: %let773 o|inlining procedure: k5034 o|inlining procedure: k5034 o|inlining procedure: k5087 o|inlining procedure: k5087 o|contracted procedure: k5090 o|contracted procedure: k5096 o|inlining procedure: k5099 o|inlining procedure: k5099 o|inlining procedure: k5159 o|substituted constant variable: %lambda770 o|inlining procedure: k5159 o|contracted procedure: "(expand.scm:366) ->keyword764" o|inlining procedure: k5197 o|inlining procedure: k5197 o|inlining procedure: k4974 o|inlining procedure: k5244 o|inlining procedure: k5244 o|contracted procedure: k5264 o|inlining procedure: k5261 o|inlining procedure: k5289 o|inlining procedure: k5289 o|inlining procedure: k5305 o|inlining procedure: k5317 o|contracted procedure: k5335 o|inlining procedure: k5317 o|inlining procedure: k5305 o|inlining procedure: k5365 o|inlining procedure: k5365 o|contracted procedure: k5377 o|inlining procedure: k5384 o|inlining procedure: k5403 o|inlining procedure: k5403 o|substituted constant variable: a5441 o|substituted constant variable: a5443 o|substituted constant variable: a5445 o|inlining procedure: k5384 o|inlining procedure: k5452 o|inlining procedure: k5452 o|inlining procedure: k5474 o|inlining procedure: k5474 o|substituted constant variable: a5491 o|substituted constant variable: a5493 o|substituted constant variable: a5495 o|inlining procedure: k5502 o|inlining procedure: k5502 o|substituted constant variable: a5518 o|substituted constant variable: a5520 o|substituted constant variable: a5522 o|contracted procedure: k5529 o|inlining procedure: k5526 o|inlining procedure: k5526 o|inlining procedure: k5261 o|inlining procedure: k5606 o|inlining procedure: k5606 o|inlining procedure: k5628 o|contracted procedure: "(expand.scm:457) g933943" o|inlining procedure: k5628 o|contracted procedure: k5673 o|inlining procedure: k5694 o|inlining procedure: k5694 o|inlining procedure: k5752 o|inlining procedure: k5752 o|inlining procedure: k5761 o|inlining procedure: k5761 o|inlining procedure: k5770 o|inlining procedure: k5770 o|inlining procedure: k5791 o|inlining procedure: k5791 o|substituted constant variable: a5804 o|substituted constant variable: a5806 o|substituted constant variable: a5808 o|inlining procedure: k5812 o|contracted procedure: k5827 o|inlining procedure: k5824 o|inlining procedure: k5874 o|inlining procedure: k5874 o|inlining procedure: k5824 o|inlining procedure: k5812 o|inlining procedure: k5962 o|contracted procedure: "(expand.scm:508) g10801091" o|inlining procedure: k5934 o|inlining procedure: k5934 o|inlining procedure: k5962 o|inlining procedure: k6012 o|inlining procedure: k6012 o|inlining procedure: k6024 o|contracted procedure: "(expand.scm:500) g10321041" o|inlining procedure: k6024 o|inlining procedure: k6058 o|contracted procedure: "(expand.scm:503) g10561057" o|inlining procedure: k6058 o|substituted constant variable: g10481051 o|inlining procedure: k6110 o|inlining procedure: k6137 o|inlining procedure: k6137 o|inlining procedure: k6110 o|contracted procedure: k6171 o|inlining procedure: k6177 o|inlining procedure: k6194 o|inlining procedure: k6194 o|inlining procedure: k6177 o|inlining procedure: k6250 o|inlining procedure: k6250 o|substituted constant variable: a6272 o|contracted procedure: k6299 o|inlining procedure: k6296 o|contracted procedure: k6318 o|inlining procedure: k6324 o|contracted procedure: k6345 o|inlining procedure: k6342 o|inlining procedure: k6342 o|inlining procedure: k6370 o|inlining procedure: k6370 o|inlining procedure: k6324 o|inlining procedure: k6473 o|inlining procedure: k6473 o|inlining procedure: k6522 o|inlining procedure: k6522 o|inlining procedure: k6558 o|inlining procedure: k6558 o|inlining procedure: k6296 o|contracted procedure: k6611 o|inlining procedure: k6608 o|inlining procedure: k6655 o|inlining procedure: k6655 o|inlining procedure: k6608 o|inlining procedure: k6632 o|inlining procedure: k6632 o|inlining procedure: k6678 o|inlining procedure: k6678 o|inlining procedure: k6690 o|inlining procedure: k6690 o|inlining procedure: k6807 o|inlining procedure: k6807 o|inlining procedure: k6838 o|inlining procedure: k6838 o|inlining procedure: k6900 o|inlining procedure: k6900 o|inlining procedure: k6935 o|inlining procedure: k6935 o|contracted procedure: "(expand.scm:676) syntax-imports1262" o|inlining procedure: k6769 o|inlining procedure: k6769 o|inlining procedure: k6980 o|inlining procedure: k6990 o|inlining procedure: k7007 o|inlining procedure: k7007 o|inlining procedure: k6990 o|inlining procedure: k6980 o|inlining procedure: k7034 o|inlining procedure: k7034 o|inlining procedure: k7053 o|inlining procedure: k7053 o|propagated global variable: sexp1353 ##sys#syntax-error-culprit o|inlining procedure: k7076 o|inlining procedure: k7076 o|inlining procedure: k7088 o|inlining procedure: k7088 o|inlining procedure: k7104 o|contracted procedure: k7120 o|inlining procedure: k7117 o|inlining procedure: k7117 o|inlining procedure: k7104 o|inlining procedure: k7144 o|inlining procedure: k7144 o|inlining procedure: k7167 o|inlining procedure: k7191 o|inlining procedure: k7191 o|contracted procedure: k7229 o|inlining procedure: k7226 o|inlining procedure: k7226 o|inlining procedure: k7249 o|inlining procedure: k7249 o|inlining procedure: k7167 o|contracted procedure: k7273 o|inlining procedure: k7270 o|inlining procedure: k7270 o|inlining procedure: k7283 o|inlining procedure: k7295 o|inlining procedure: k7295 o|inlining procedure: k7313 o|inlining procedure: k7313 o|inlining procedure: k7331 o|inlining procedure: k7331 o|inlining procedure: k7349 o|inlining procedure: k7349 o|inlining procedure: k7371 o|inlining procedure: k7371 o|substituted constant variable: a7384 o|substituted constant variable: a7386 o|substituted constant variable: a7388 o|substituted constant variable: a7390 o|substituted constant variable: a7392 o|substituted constant variable: a7394 o|substituted constant variable: a7396 o|substituted constant variable: a7398 o|inlining procedure: k7283 o|contracted procedure: k7402 o|contracted procedure: k7411 o|inlining procedure: k7408 o|inlining procedure: k7408 o|inlining procedure: k7489 o|inlining procedure: k7489 o|contracted procedure: k7530 o|inlining procedure: k7527 o|contracted procedure: "(expand.scm:803) g14451446" o|inlining procedure: k7558 o|contracted procedure: "(expand.scm:823) g14701471" o|contracted procedure: "(expand.scm:822) g14661467" o|inlining procedure: k7558 o|inlining procedure: k7553 o|inlining procedure: k7553 o|inlining procedure: k7527 o|inlining procedure: k7643 o|inlining procedure: k7658 o|inlining procedure: k7658 o|inlining procedure: k7643 o|inlining procedure: k7681 o|inlining procedure: k7702 o|inlining procedure: k7702 o|inlining procedure: k7681 o|inlining procedure: k7739 o|inlining procedure: k7767 o|inlining procedure: k7791 o|inlining procedure: k7791 o|contracted procedure: "(expand.scm:864) g15551556" o|contracted procedure: "(expand.scm:863) g15481549" o|inlining procedure: k7767 o|inlining procedure: k7816 o|inlining procedure: k7816 o|inlining procedure: k7850 o|inlining procedure: k7850 o|removed unused parameter to known procedure: n1575 "(expand.scm:859) lookup21435" o|contracted procedure: "(expand.scm:858) g15291530" o|inlining procedure: k7856 o|inlining procedure: k7856 o|removed unused parameter to known procedure: n1575 "(expand.scm:856) lookup21435" o|contracted procedure: "(expand.scm:855) g15191520" o|inlining procedure: k7739 o|removed unused formal parameters: (n1575) o|inlining procedure: k7880 o|inlining procedure: k7880 o|inlining procedure: k7905 o|inlining procedure: k7905 o|contracted procedure: k7946 o|inlining procedure: k7943 o|contracted procedure: "(expand.scm:896) g16001601" o|contracted procedure: k7972 o|inlining procedure: k7969 o|inlining procedure: k7998 o|contracted procedure: "(expand.scm:896) g16171618" o|inlining procedure: k7998 o|contracted procedure: "(expand.scm:904) g16131614" o|inlining procedure: k7969 o|inlining procedure: k7943 o|inlining procedure: k8019 o|inlining procedure: k8019 o|inlining procedure: k8101 o|inlining procedure: k8101 o|removed side-effect free assignment to unused variable: %vector-length2412 o|removed side-effect free assignment to unused variable: %vector-ref2413 o|removed side-effect free assignment to unused variable: %null?2435 o|removed side-effect free assignment to unused variable: %or2436 o|removed side-effect free assignment to unused variable: %syntax-error2442 o|inlining procedure: k8386 o|inlining procedure: k8386 o|inlining procedure: k8428 o|inlining procedure: k8428 o|inlining procedure: k8476 o|inlining procedure: k8476 o|inlining procedure: k8494 o|inlining procedure: k8494 o|inlining procedure: k8530 o|inlining procedure: k8530 o|inlining procedure: k8632 o|inlining procedure: k8632 o|inlining procedure: k8666 o|inlining procedure: k8666 o|inlining procedure: k8802 o|inlining procedure: k8802 o|inlining procedure: k8865 o|inlining procedure: k8865 o|inlining procedure: k8893 o|inlining procedure: k8893 o|inlining procedure: k8942 o|inlining procedure: k8954 o|inlining procedure: k8954 o|inlining procedure: k8942 o|inlining procedure: k8989 o|inlining procedure: k8989 o|substituted constant variable: %append2405 o|inlining procedure: k9031 o|inlining procedure: k9031 o|substituted constant variable: %apply2406 o|substituted constant variable: %append2405 o|inlining procedure: k9065 o|inlining procedure: k9065 o|inlining procedure: k9090 o|inlining procedure: k9090 o|inlining procedure: k9134 o|inlining procedure: k9134 o|inlining procedure: k9178 o|inlining procedure: k9178 o|inlining procedure: k9211 o|contracted procedure: k9226 o|inlining procedure: k9232 o|inlining procedure: k9232 o|inlining procedure: k9211 o|inlining procedure: k9267 o|inlining procedure: k9267 o|inlining procedure: k9300 o|contracted procedure: k9315 o|inlining procedure: k9312 o|inlining procedure: k9312 o|inlining procedure: k9300 o|inlining procedure: k9328 o|inlining procedure: k9328 o|inlining procedure: k9352 o|inlining procedure: k9352 o|inlining procedure: k9382 o|inlining procedure: k9382 o|inlining procedure: k9425 o|inlining procedure: k9425 o|inlining procedure: k9467 o|inlining procedure: k9479 o|inlining procedure: k9479 o|inlining procedure: k9467 o|inlining procedure: k9508 o|inlining procedure: k9508 o|inlining procedure: k9602 o|inlining procedure: k9602 o|inlining procedure: k9659 o|inlining procedure: k9680 o|inlining procedure: k9680 o|inlining procedure: k9659 o|inlining procedure: k9768 o|inlining procedure: k9768 o|inlining procedure: k9788 o|inlining procedure: k9788 o|inlining procedure: k9913 o|inlining procedure: k9913 o|contracted procedure: k9929 o|inlining procedure: k9939 o|inlining procedure: k9951 o|inlining procedure: k9951 o|inlining procedure: k9939 o|contracted procedure: k9986 o|inlining procedure: k9983 o|inlining procedure: k9983 o|inlining procedure: k9998 o|inlining procedure: k9998 o|inlining procedure: k10019 o|inlining procedure: k10019 o|inlining procedure: k10049 o|inlining procedure: k10076 o|contracted procedure: "(expand.scm:1407) g22772286" o|inlining procedure: k10076 o|inlining procedure: k10049 o|contracted procedure: k10110 o|contracted procedure: k10123 o|inlining procedure: k10120 o|inlining procedure: k10139 o|inlining procedure: k10139 o|inlining procedure: k10148 o|inlining procedure: k10148 o|inlining procedure: k10120 o|inlining procedure: k10253 o|inlining procedure: k10253 o|contracted procedure: k10273 o|inlining procedure: k10283 o|inlining procedure: k10283 o|inlining procedure: k10337 o|inlining procedure: k10337 o|inlining procedure: k10419 o|inlining procedure: k10419 o|inlining procedure: k10453 o|inlining procedure: k10453 o|inlining procedure: k10490 o|contracted procedure: "(expand.scm:1303) g22062207" o|inlining procedure: k10490 o|inlining procedure: k10630 o|contracted procedure: "(expand.scm:1293) g21092118" o|inlining procedure: k10600 o|inlining procedure: k10600 o|inlining procedure: k10630 o|inlining procedure: k10680 o|contracted procedure: "(expand.scm:1282) g20752084" o|inlining procedure: k10680 o|inlining procedure: k10732 o|inlining procedure: k10732 o|contracted procedure: k10809 o|inlining procedure: k10806 o|inlining procedure: k10832 o|inlining procedure: k10832 o|inlining procedure: k10944 o|inlining procedure: k10944 o|inlining procedure: k10806 o|contracted procedure: k11015 o|inlining procedure: k11012 o|substituted constant variable: a11039 o|substituted constant variable: a11040 o|inlining procedure: k11057 o|inlining procedure: k11084 o|inlining procedure: k11084 o|inlining procedure: k11057 o|inlining procedure: k11135 o|inlining procedure: k11135 o|inlining procedure: k11271 o|inlining procedure: k11271 o|inlining procedure: k11283 o|inlining procedure: k11283 o|inlining procedure: k11295 o|inlining procedure: k11295 o|inlining procedure: k11307 o|inlining procedure: k11307 o|inlining procedure: k11316 o|inlining procedure: k11316 o|inlining procedure: k11012 o|inlining procedure: k11369 o|inlining procedure: k11369 o|inlining procedure: k11421 o|inlining procedure: k11421 o|inlining procedure: k11464 o|inlining procedure: k11464 o|contracted procedure: k11647 o|inlining procedure: k11644 o|inlining procedure: k11644 o|contracted procedure: "(expand.scm:1032) g17621763" o|contracted procedure: k11759 o|inlining procedure: k11756 o|inlining procedure: k11756 o|inlining procedure: k11783 o|inlining procedure: k11783 o|contracted procedure: "(expand.scm:1007) g17321733" o|propagated global variable: g16791680 ##sys#expand-import o|propagated global variable: g16651666 ##sys#expand-import o|propagated global variable: g16511652 ##sys#expand-import o|replaced variables: 1623 o|removed binding forms: 489 o|substituted constant variable: prop260 o|removed call to pure procedure with unused result: "(expand.scm:96) void" o|substituted constant variable: prop291 o|substituted constant variable: prop286 o|substituted constant variable: prop282 o|substituted constant variable: r373511974 o|substituted constant variable: prop324 o|substituted constant variable: prop313 o|substituted constant variable: prop402 o|inlining procedure: k3900 o|inlining procedure: k3900 o|substituted constant variable: prop398 o|substituted constant variable: prop463 o|substituted constant variable: r429612003 o|substituted constant variable: r439112007 o|substituted constant variable: r443412010 o|removed call to pure procedure with unused result: "(expand.scm:246) void" o|removed call to pure procedure with unused result: "(expand.scm:206) void" o|removed call to pure procedure with unused result: "(expand.scm:203) void" o|removed call to pure procedure with unused result: "(expand.scm:203) void" o|inlining procedure: k4772 o|substituted constant variable: prop694 o|substituted constant variable: r479412037 o|substituted constant variable: r490312048 o|substituted constant variable: r510012061 o|substituted constant variable: r516012064 o|substituted constant variable: r516012064 o|substituted constant variable: r550312089 o|substituted constant variable: r552712090 o|converted assignments to bindings: (err763) o|substituted constant variable: r560712093 o|substituted constant variable: r560712093 o|inlining procedure: k5606 o|substituted constant variable: r587512112 o|removed call to pure procedure with unused result: "(expand.scm:498) void" o|substituted constant variable: r601312120 o|inlining procedure: k6194 o|substituted constant variable: r625112136 o|substituted constant variable: r637112143 o|substituted constant variable: r637112143 o|substituted constant variable: r655912151 o|substituted constant variable: r665612155 o|substituted constant variable: r663312157 o|substituted constant variable: r667912160 o|substituted constant variable: r693612169 o|substituted constant variable: r677012171 o|converted assignments to bindings: (outstr1275) o|substituted constant variable: r700812176 o|substituted constant variable: r699112177 o|substituted constant variable: r698112178 o|substituted constant variable: r711812190 o|substituted constant variable: r710512192 o|substituted constant variable: r725012201 o|removed call to pure procedure with unused result: "(expand.scm:813) void" o|removed call to pure procedure with unused result: "(expand.scm:824) void" o|removed call to pure procedure with unused result: "(expand.scm:828) void" o|substituted constant variable: prop1473 o|substituted constant variable: prop1469 o|removed call to pure procedure with unused result: "(expand.scm:832) void" o|removed call to pure procedure with unused result: "(expand.scm:837) void" o|removed call to pure procedure with unused result: "(expand.scm:803) void" o|inlining procedure: k7643 o|substituted constant variable: r765912236 o|inlining procedure: k7643 o|inlining procedure: k7643 o|inlining procedure: k7643 o|substituted constant variable: r768212246 o|substituted constant variable: prop1558 o|substituted constant variable: prop1551 o|inlining procedure: k7643 o|inlining procedure: k7643 o|substituted constant variable: prop1532 o|substituted constant variable: prop1522 o|removed call to pure procedure with unused result: "(expand.scm:803) void" o|substituted constant variable: r788112261 o|removed call to pure procedure with unused result: "(expand.scm:898) void" o|removed call to pure procedure with unused result: "(expand.scm:903) void" o|removed call to pure procedure with unused result: "(expand.scm:905) void" o|removed call to pure procedure with unused result: "(expand.scm:910) void" o|substituted constant variable: prop1616 o|removed call to pure procedure with unused result: "(expand.scm:901) void" o|removed side-effect free assignment to unused variable: %append2405 o|removed side-effect free assignment to unused variable: %apply2406 o|substituted constant variable: r847712280 o|substituted constant variable: r906612306 o|substituted constant variable: r923312315 o|substituted constant variable: r931312320 o|substituted constant variable: r930112322 o|substituted constant variable: r932912324 o|substituted constant variable: r935312326 o|substituted constant variable: r942612329 o|substituted constant variable: r968112345 o|substituted constant variable: r978912352 o|substituted constant variable: r998412359 o|substituted constant variable: r1014012370 o|substituted constant variable: r1080712400 o|substituted constant variable: r1131712417 o|substituted constant variable: r1101312418 o|substituted constant variable: r1137012419 o|substituted constant variable: r1142212421 o|substituted constant variable: prop1765 o|substituted constant variable: r1178412431 o|substituted constant variable: r1178412431 o|substituted constant variable: prop1735 o|simplifications: ((let . 2)) o|replaced variables: 68 o|removed binding forms: 1516 o|inlining procedure: k3680 o|contracted procedure: k3725 o|substituted constant variable: prop40212447 o|substituted constant variable: prop40212453 o|contracted procedure: k4335 o|contracted procedure: k4338 o|contracted procedure: k4465 o|removed call to pure procedure with unused result: "(expand.scm:246) void" o|contracted procedure: k4533 o|inlining procedure: k5253 o|inlining procedure: k5253 o|contracted procedure: k5896 o|contracted procedure: k7541 o|contracted procedure: k7578 o|contracted procedure: k7589 o|contracted procedure: k7608 o|contracted procedure: k7625 o|contracted procedure: k7646 o|substituted constant variable: r764412568 o|removed call to pure procedure with unused result: "(expand.scm:803) void" o|substituted constant variable: r764412573 o|removed call to pure procedure with unused result: "(expand.scm:803) void" o|substituted constant variable: r764412582 o|removed call to pure procedure with unused result: "(expand.scm:803) void" o|substituted constant variable: r764412587 o|removed call to pure procedure with unused result: "(expand.scm:803) void" o|substituted constant variable: r764412592 o|removed call to pure procedure with unused result: "(expand.scm:803) void" o|substituted constant variable: r764412597 o|removed call to pure procedure with unused result: "(expand.scm:803) void" o|contracted procedure: k7874 o|contracted procedure: k7960 o|contracted procedure: k7987 o|contracted procedure: k8003 o|contracted procedure: k8012 o|contracted procedure: k7975 o|inlining procedure: k9220 o|inlining procedure: k9220 o|inlining procedure: k9568 o|inlining procedure: k9568 o|replaced variables: 49 o|removed binding forms: 166 o|contracted procedure: k3709 o|contracted procedure: k3717 o|contracted procedure: k3722 o|contracted procedure: k3770 o|contracted procedure: k3775 o|contracted procedure: k3891 o|contracted procedure: k4078 o|contracted procedure: k446512024 o|substituted constant variable: r560712507 o|contracted procedure: k7569 o|contracted procedure: k764612572 o|substituted constant variable: result149512569 o|contracted procedure: k764612577 o|substituted constant variable: result149512574 o|contracted procedure: k764612586 o|substituted constant variable: result149512583 o|contracted procedure: k764612591 o|substituted constant variable: result149512588 o|contracted procedure: k7747 o|contracted procedure: k7755 o|contracted procedure: k7779 o|contracted procedure: k7788 o|contracted procedure: k764612596 o|substituted constant variable: result149512593 o|contracted procedure: k764612601 o|substituted constant variable: result149512598 o|inlining procedure: "(expand.scm:859) lookup21435" o|inlining procedure: "(expand.scm:856) lookup21435" o|contracted procedure: k7995 o|substituted constant variable: r922112729 o|substituted constant variable: r922112730 o|contracted procedure: k11658 o|contracted procedure: k11767 o|replaced variables: 4 o|removed binding forms: 104 o|removed conditional forms: 2 o|removed side-effect free assignment to unused variable: lookup21435 o|replaced variables: 15 o|removed binding forms: 21 o|replaced variables: 10 o|removed binding forms: 13 o|inlining procedure: k3712 o|inlining procedure: k3712 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 . 48) (##core#call . 1024)) o| call simplifications: o| number? o| eof-object? o| fx- 2 o| cdddr o| cadddr 2 o| cddddr o| >= o| + 3 o| = o| - o| <= o| boolean? o| char? 2 o| cdar 2 o| ##sys#immediate? o| vector-ref 5 o| fx< 2 o| not 4 o| fx= 7 o| memq 7 o| member o| caddr 12 o| length 11 o| fx<= 2 o| ##sys#call-with-values o| cddr 10 o| ##sys#list 163 o| ##sys#cons 87 o| list? 5 o| cadr 36 o| values 8 o| ##sys#apply 2 o| memv o| equal? 2 o| string? 3 o| ##sys#make-structure 2 o| apply 2 o| list 16 o| set-car! 4 o| procedure? o| ##sys#structure? 2 o| caar 9 o| eq? 74 o| null? 51 o| car 66 o| ##sys#check-list 13 o| assq 12 o| symbol? 42 o| vector? 13 o| fx>= 5 o| fx+ 4 o| cons 82 o| ##sys#setslot 18 o| pair? 87 o| ##sys#slot 71 o| ##sys#size 5 o| fx> 5 o| char=? o| cdr 49 o|contracted procedure: k3704 o|contracted procedure: k3728 o|contracted procedure: k3731 o|contracted procedure: k3737 o|contracted procedure: k3753 o|contracted procedure: k3765 o|contracted procedure: k3790 o|contracted procedure: k3796 o|contracted procedure: k3799 o|contracted procedure: k3827 o|contracted procedure: k3803 o|contracted procedure: k3806 o|contracted procedure: k3809 o|contracted procedure: k3833 o|contracted procedure: k3836 o|contracted procedure: k3877 o|contracted procedure: k3843 o|contracted procedure: k3855 o|contracted procedure: k3858 o|contracted procedure: k3865 o|contracted procedure: k3873 o|contracted procedure: k3903 o|contracted procedure: k3906 o|contracted procedure: k3916 o|contracted procedure: k3969 o|contracted procedure: k3933 o|contracted procedure: k3959 o|contracted procedure: k3963 o|contracted procedure: k3955 o|contracted procedure: k3936 o|contracted procedure: k3939 o|contracted procedure: k3947 o|contracted procedure: k3951 o|contracted procedure: k4006 o|contracted procedure: k3981 o|contracted procedure: k3999 o|contracted procedure: k4003 o|contracted procedure: k3984 o|contracted procedure: k3991 o|contracted procedure: k3995 o|contracted procedure: k4012 o|contracted procedure: k4015 o|contracted procedure: k4018 o|contracted procedure: k4030 o|contracted procedure: k4033 o|contracted procedure: k4036 o|contracted procedure: k4044 o|contracted procedure: k4052 o|contracted procedure: k4140 o|contracted procedure: k4089 o|contracted procedure: k4107 o|contracted procedure: k4136 o|contracted procedure: k4126 o|contracted procedure: k4180 o|contracted procedure: k4152 o|contracted procedure: k4158 o|contracted procedure: k4171 o|contracted procedure: k4203 o|contracted procedure: k4206 o|contracted procedure: k4214 o|contracted procedure: k4225 o|contracted procedure: k4221 o|contracted procedure: k4250 o|contracted procedure: k4269 o|contracted procedure: k4298 o|contracted procedure: k4320 o|contracted procedure: k4304 o|contracted procedure: k4376 o|contracted procedure: k4366 o|contracted procedure: k4384 o|contracted procedure: k4393 o|contracted procedure: k4396 o|contracted procedure: k4410 o|contracted procedure: k4420 o|contracted procedure: k4424 o|contracted procedure: k4430 o|contracted procedure: k4436 o|contracted procedure: k4444 o|contracted procedure: k4451 o|contracted procedure: k4468 o|contracted procedure: k4568 o|contracted procedure: k4548 o|contracted procedure: k4559 o|contracted procedure: k4580 o|contracted procedure: k4588 o|contracted procedure: k4594 o|contracted procedure: k4603 o|contracted procedure: k4609 o|contracted procedure: k4615 o|contracted procedure: k4621 o|contracted procedure: k4697 o|contracted procedure: k4705 o|contracted procedure: k4712 o|contracted procedure: k4693 o|contracted procedure: k4689 o|contracted procedure: k4685 o|contracted procedure: k4681 o|contracted procedure: k4636 o|contracted procedure: k4640 o|contracted procedure: k4632 o|contracted procedure: k4628 o|contracted procedure: k4652 o|contracted procedure: k4674 o|contracted procedure: k4670 o|contracted procedure: k4655 o|contracted procedure: k4658 o|contracted procedure: k4666 o|contracted procedure: k4721 o|contracted procedure: k4743 o|contracted procedure: k4739 o|contracted procedure: k4724 o|contracted procedure: k4727 o|contracted procedure: k4735 o|contracted procedure: k4766 o|contracted procedure: k4782 o|contracted procedure: k4796 o|contracted procedure: k4804 o|contracted procedure: k4877 o|contracted procedure: k4832 o|contracted procedure: k4871 o|contracted procedure: k4835 o|contracted procedure: k4865 o|contracted procedure: k4838 o|contracted procedure: k4883 o|contracted procedure: k4905 o|contracted procedure: k4908 o|contracted procedure: k4914 o|contracted procedure: k4925 o|contracted procedure: k4977 o|contracted procedure: k4994 o|contracted procedure: k5023 o|contracted procedure: k5027 o|contracted procedure: k5019 o|contracted procedure: k5015 o|contracted procedure: k5011 o|contracted procedure: k5007 o|inlining procedure: k4991 o|contracted procedure: k5037 o|contracted procedure: k5052 o|contracted procedure: k5048 o|contracted procedure: k5044 o|inlining procedure: k4991 o|contracted procedure: k5071 o|contracted procedure: k5067 o|contracted procedure: k5063 o|inlining procedure: k4991 o|inlining procedure: k5083 o|inlining procedure: k5083 o|contracted procedure: k5102 o|contracted procedure: k5109 o|contracted procedure: k5112 o|contracted procedure: k5127 o|contracted procedure: k5132 o|contracted procedure: k5147 o|contracted procedure: k5143 o|contracted procedure: k5139 o|contracted procedure: k5155 o|contracted procedure: k5162 o|contracted procedure: k5173 o|contracted procedure: k5169 o|contracted procedure: k5159 o|contracted procedure: k4956 o|contracted procedure: k5123 o|contracted procedure: k5119 o|contracted procedure: k5200 o|contracted procedure: k5203 o|contracted procedure: k5206 o|contracted procedure: k5214 o|contracted procedure: k5222 o|contracted procedure: k5241 o|contracted procedure: k5247 o|contracted procedure: k5540 o|contracted procedure: k5270 o|contracted procedure: k5276 o|contracted procedure: k5283 o|contracted procedure: k5292 o|contracted procedure: k5308 o|contracted procedure: k5314 o|contracted procedure: k5327 o|contracted procedure: k5339 o|contracted procedure: k5345 o|contracted procedure: k5359 o|contracted procedure: k5368 o|contracted procedure: k5387 o|contracted procedure: k5393 o|contracted procedure: k5400 o|contracted procedure: k5406 o|contracted procedure: k5417 o|contracted procedure: k5413 o|contracted procedure: k5423 o|contracted procedure: k5437 o|contracted procedure: k5433 o|contracted procedure: k5455 o|contracted procedure: k5464 o|contracted procedure: k5471 o|contracted procedure: k5477 o|contracted procedure: k5487 o|contracted procedure: k5499 o|contracted procedure: k5505 o|contracted procedure: k5512 o|contracted procedure: k5523 o|contracted procedure: k5536 o|contracted procedure: k5568 o|contracted procedure: k5576 o|contracted procedure: k5572 o|contracted procedure: k5588 o|contracted procedure: k5596 o|contracted procedure: k5599 o|contracted procedure: k5609 o|contracted procedure: k5615 o|contracted procedure: k5622 o|contracted procedure: k5606 o|contracted procedure: k5667 o|contracted procedure: k5631 o|contracted procedure: k5657 o|contracted procedure: k5661 o|contracted procedure: k5653 o|contracted procedure: k5634 o|contracted procedure: k5637 o|contracted procedure: k5645 o|contracted procedure: k5649 o|contracted procedure: k5679 o|contracted procedure: k5682 o|contracted procedure: k5685 o|contracted procedure: k5697 o|contracted procedure: k5700 o|contracted procedure: k5703 o|contracted procedure: k5711 o|contracted procedure: k5719 o|contracted procedure: k6587 o|contracted procedure: k5734 o|contracted procedure: k6581 o|contracted procedure: k5737 o|contracted procedure: k6575 o|contracted procedure: k5740 o|contracted procedure: k5749 o|contracted procedure: k5758 o|contracted procedure: k5773 o|contracted procedure: k5788 o|contracted procedure: k6091 o|contracted procedure: k5815 o|contracted procedure: k5890 o|contracted procedure: k5833 o|contracted procedure: k5854 o|contracted procedure: k5867 o|contracted procedure: k5870 o|contracted procedure: k5877 o|contracted procedure: k5904 o|contracted procedure: k5918 o|contracted procedure: k5900 o|contracted procedure: k5929 o|contracted procedure: k5968 o|contracted procedure: k5971 o|contracted procedure: k5979 o|contracted procedure: k5983 o|contracted procedure: k5987 o|contracted procedure: k5995 o|contracted procedure: k5999 o|contracted procedure: k6003 o|contracted procedure: k5944 o|contracted procedure: k6009 o|contracted procedure: k6015 o|contracted procedure: k6027 o|contracted procedure: k6049 o|contracted procedure: k6045 o|contracted procedure: k6030 o|contracted procedure: k6033 o|contracted procedure: k6041 o|contracted procedure: k6061 o|contracted procedure: k6068 o|contracted procedure: k6088 o|contracted procedure: k6125 o|contracted procedure: k6121 o|contracted procedure: k6117 o|contracted procedure: k6140 o|contracted procedure: k6162 o|contracted procedure: k6158 o|contracted procedure: k6143 o|contracted procedure: k6146 o|contracted procedure: k6154 o|contracted procedure: k6284 o|inlining procedure: k6190 o|contracted procedure: k6241 o|contracted procedure: k6197 o|contracted procedure: k6216 o|contracted procedure: k6212 o|contracted procedure: k6208 o|contracted procedure: k6229 o|inlining procedure: k6190 o|contracted procedure: k6280 o|contracted procedure: k6247 o|contracted procedure: k6274 o|contracted procedure: k6253 o|contracted procedure: k6269 o|contracted procedure: k6259 o|contracted procedure: k6569 o|contracted procedure: k6305 o|contracted procedure: k6564 o|contracted procedure: k6309 o|contracted procedure: k6555 o|contracted procedure: k6339 o|contracted procedure: k6458 o|contracted procedure: k6454 o|contracted procedure: k6398 o|contracted procedure: k6412 o|contracted procedure: k6448 o|contracted procedure: k6422 o|contracted procedure: k6444 o|contracted procedure: k6438 o|contracted procedure: k6434 o|contracted procedure: k6426 o|contracted procedure: k6430 o|contracted procedure: k6384 o|contracted procedure: k6358 o|contracted procedure: k6366 o|contracted procedure: k6380 o|contracted procedure: k6373 o|contracted procedure: k6370 o|contracted procedure: k6387 o|contracted procedure: k6502 o|contracted procedure: k6486 o|contracted procedure: k6498 o|contracted procedure: k6490 o|contracted procedure: k6494 o|contracted procedure: k6519 o|contracted procedure: k6551 o|contracted procedure: k6525 o|contracted procedure: k6537 o|contracted procedure: k6547 o|contracted procedure: k6561 o|contracted procedure: k6593 o|contracted procedure: k6675 o|contracted procedure: k6652 o|contracted procedure: k6671 o|contracted procedure: k6614 o|contracted procedure: k6626 o|contracted procedure: k6635 o|contracted procedure: k6643 o|contracted procedure: k6639 o|contracted procedure: k6727 o|contracted procedure: k6693 o|contracted procedure: k6702 o|contracted procedure: k6721 o|contracted procedure: k6717 o|contracted procedure: k6713 o|contracted procedure: k6810 o|contracted procedure: k6841 o|contracted procedure: k6867 o|contracted procedure: k6879 o|contracted procedure: k6959 o|contracted procedure: k6903 o|contracted procedure: k6918 o|contracted procedure: k6938 o|contracted procedure: k6955 o|contracted procedure: k6763 o|contracted procedure: k6772 o|contracted procedure: k6800 o|contracted procedure: k6778 o|contracted procedure: k6968 o|contracted procedure: k6986 o|contracted procedure: k6993 o|contracted procedure: k7004 o|contracted procedure: k7465 o|contracted procedure: k7019 o|contracted procedure: k7459 o|contracted procedure: k7022 o|contracted procedure: k7444 o|contracted procedure: k7028 o|contracted procedure: k7085 o|contracted procedure: k7094 o|contracted procedure: k7107 o|contracted procedure: k7114 o|contracted procedure: k7141 o|contracted procedure: k7150 o|contracted procedure: k7170 o|contracted procedure: k7173 o|contracted procedure: k7176 o|contracted procedure: k7258 o|contracted procedure: k7179 o|contracted procedure: k7194 o|contracted procedure: k7200 o|contracted procedure: k7213 o|contracted procedure: k7217 o|contracted procedure: k7220 o|contracted procedure: k7243 o|contracted procedure: k7239 o|contracted procedure: k7246 o|contracted procedure: k7252 o|contracted procedure: k7267 o|contracted procedure: k7280 o|contracted procedure: k7286 o|contracted procedure: k7292 o|contracted procedure: k7298 o|contracted procedure: k7307 o|contracted procedure: k7316 o|contracted procedure: k7325 o|contracted procedure: k7334 o|contracted procedure: k7343 o|contracted procedure: k7352 o|contracted procedure: k7374 o|contracted procedure: k7377 o|contracted procedure: k7440 o|contracted procedure: k7436 o|contracted procedure: k7428 o|contracted procedure: k7432 o|contracted procedure: k7450 o|contracted procedure: k7480 o|contracted procedure: k7492 o|contracted procedure: k7513 o|contracted procedure: k7637 o|contracted procedure: k7533 o|contracted procedure: k7561 o|contracted procedure: k7586 o|contracted procedure: k7582 o|contracted procedure: k7597 o|contracted procedure: k7593 o|contracted procedure: k7616 o|contracted procedure: k7612 o|contracted procedure: k7633 o|contracted procedure: k7629 o|contracted procedure: k7649 o|contracted procedure: k7655 o|contracted procedure: k7678 o|contracted procedure: k7684 o|contracted procedure: k7687 o|contracted procedure: k7734 o|contracted procedure: k7693 o|contracted procedure: k7705 o|contracted procedure: k7708 o|contracted procedure: k7715 o|contracted procedure: k7723 o|contracted procedure: k7727 o|contracted procedure: k7862 o|contracted procedure: k7742 o|contracted procedure: k7764 o|contracted procedure: k7770 o|contracted procedure: k7782 o|contracted procedure: k7794 o|contracted procedure: k7806 o|contracted procedure: k7819 o|contracted procedure: k7822 o|contracted procedure: k7834 o|contracted procedure: k7883 o|contracted procedure: k7899 o|contracted procedure: k7889 o|contracted procedure: k7908 o|contracted procedure: k7929 o|contracted procedure: k8016 o|contracted procedure: k7984 o|contracted procedure: k8098 o|contracted procedure: k8123 o|contracted procedure: k8119 o|contracted procedure: k8143 o|contracted procedure: k8139 o|contracted procedure: k8160 o|contracted procedure: k8146 o|contracted procedure: k8153 o|contracted procedure: k8342 o|contracted procedure: k8422 o|contracted procedure: k8418 o|contracted procedure: k8350 o|contracted procedure: k8354 o|contracted procedure: k8346 o|contracted procedure: k8338 o|contracted procedure: k8362 o|contracted procedure: k8365 o|contracted procedure: k8380 o|contracted procedure: k8376 o|contracted procedure: k8372 o|contracted procedure: k8389 o|contracted procedure: k8392 o|contracted procedure: k8395 o|contracted procedure: k8403 o|contracted procedure: k8411 o|contracted procedure: k8434 o|contracted procedure: k8437 o|contracted procedure: k8444 o|contracted procedure: k8448 o|contracted procedure: k8473 o|contracted procedure: k8479 o|contracted procedure: k8486 o|contracted procedure: k8497 o|contracted procedure: k8503 o|contracted procedure: k8518 o|contracted procedure: k8514 o|contracted procedure: k8510 o|contracted procedure: k8533 o|contracted procedure: k8584 o|contracted procedure: k8544 o|contracted procedure: k8556 o|contracted procedure: k8552 o|contracted procedure: k8548 o|contracted procedure: k8540 o|contracted procedure: k8572 o|contracted procedure: k8578 o|contracted procedure: k8590 o|contracted procedure: k8629 o|contracted procedure: k8601 o|contracted procedure: k8613 o|contracted procedure: k8609 o|contracted procedure: k8605 o|contracted procedure: k8597 o|contracted procedure: k8621 o|contracted procedure: k8635 o|contracted procedure: k8649 o|contracted procedure: k8645 o|contracted procedure: k8660 o|contracted procedure: k8656 o|contracted procedure: k8663 o|contracted procedure: k8686 o|contracted procedure: k8788 o|contracted procedure: k8784 o|contracted procedure: k8694 o|contracted procedure: k8780 o|contracted procedure: k8776 o|contracted procedure: k8702 o|contracted procedure: k8768 o|contracted procedure: k8772 o|contracted procedure: k8710 o|contracted procedure: k8761 o|contracted procedure: k8750 o|contracted procedure: k8718 o|contracted procedure: k8726 o|contracted procedure: k8722 o|contracted procedure: k8714 o|contracted procedure: k8706 o|contracted procedure: k8698 o|contracted procedure: k8690 o|contracted procedure: k8682 o|contracted procedure: k8742 o|contracted procedure: k8746 o|contracted procedure: k8738 o|contracted procedure: k8734 o|contracted procedure: k8792 o|contracted procedure: k8796 o|contracted procedure: k8805 o|contracted procedure: k8811 o|contracted procedure: k8818 o|contracted procedure: k8890 o|contracted procedure: k8831 o|contracted procedure: k8882 o|contracted procedure: k8834 o|contracted procedure: k8849 o|contracted procedure: k8853 o|contracted procedure: k8868 o|contracted procedure: k8879 o|contracted procedure: k8875 o|contracted procedure: k8865 o|contracted procedure: k8896 o|contracted procedure: k8913 o|contracted procedure: k8919 o|contracted procedure: k8925 o|contracted procedure: k8936 o|contracted procedure: k8945 o|contracted procedure: k8948 o|contracted procedure: k8964 o|contracted procedure: k8957 o|contracted procedure: k8971 o|contracted procedure: k8983 o|contracted procedure: k8992 o|contracted procedure: k9010 o|contracted procedure: k9034 o|substituted constant variable: g13674 o|contracted procedure: k9041 o|contracted procedure: k9045 o|contracted procedure: k9059 o|contracted procedure: k9055 o|contracted procedure: k9062 o|contracted procedure: k9068 o|contracted procedure: k9074 o|contracted procedure: k9087 o|contracted procedure: k9093 o|contracted procedure: k9114 o|contracted procedure: k9137 o|contracted procedure: k9143 o|contracted procedure: k9150 o|contracted procedure: k9163 o|contracted procedure: k9167 o|contracted procedure: k9175 o|contracted procedure: k9181 o|contracted procedure: k9198 o|contracted procedure: k9214 o|contracted procedure: k9243 o|contracted procedure: k9229 o|contracted procedure: k9239 o|contracted procedure: k9220 o|contracted procedure: k9256 o|contracted procedure: k9264 o|contracted procedure: k9270 o|contracted procedure: k9287 o|contracted procedure: k9322 o|contracted procedure: k9331 o|contracted procedure: k9337 o|contracted procedure: k9344 o|contracted procedure: k9366 o|contracted procedure: k9376 o|contracted procedure: k9392 o|contracted procedure: k9395 o|contracted procedure: k9450 o|contracted procedure: k9409 o|contracted procedure: k9428 o|contracted procedure: k9431 o|contracted procedure: k9438 o|contracted procedure: k9531 o|contracted procedure: k9459 o|contracted procedure: k9496 o|contracted procedure: k9470 o|contracted procedure: k9492 o|contracted procedure: k9482 o|contracted procedure: k9499 o|contracted procedure: k9511 o|contracted procedure: k9521 o|contracted procedure: k9525 o|contracted procedure: k9563 o|contracted procedure: k9574 o|contracted procedure: k9582 o|contracted procedure: k9586 o|contracted procedure: k9613 o|contracted procedure: k9633 o|contracted procedure: k9643 o|contracted procedure: k9639 o|contracted procedure: k9653 o|contracted procedure: k9668 o|contracted procedure: k9671 o|contracted procedure: k9677 o|contracted procedure: k9683 o|contracted procedure: k9716 o|contracted procedure: k9712 o|contracted procedure: k9708 o|contracted procedure: k9696 o|contracted procedure: k9704 o|contracted procedure: k9700 o|contracted procedure: k9737 o|contracted procedure: k9753 o|contracted procedure: k9749 o|contracted procedure: k9801 o|contracted procedure: k9761 o|contracted procedure: k9765 o|contracted procedure: k9782 o|contracted procedure: k9778 o|contracted procedure: k9768 o|contracted procedure: k9785 o|contracted procedure: k9791 o|contracted procedure: k9809 o|contracted procedure: k9812 o|contracted procedure: k9823 o|contracted procedure: k9849 o|contracted procedure: k9841 o|contracted procedure: k9859 o|contracted procedure: k9872 o|contracted procedure: k9885 o|contracted procedure: k9907 o|contracted procedure: k9916 o|contracted procedure: k10040 o|contracted procedure: k9935 o|contracted procedure: k9945 o|contracted procedure: k9954 o|contracted procedure: k9967 o|contracted procedure: k10016 o|contracted procedure: k9992 o|contracted procedure: k10005 o|contracted procedure: k10033 o|contracted procedure: k10052 o|contracted procedure: k10059 o|contracted procedure: k10067 o|contracted procedure: k10079 o|contracted procedure: k10101 o|contracted procedure: k10097 o|contracted procedure: k10082 o|contracted procedure: k10085 o|contracted procedure: k10093 o|contracted procedure: k10167 o|contracted procedure: k10116 o|contracted procedure: k10163 o|contracted procedure: k10129 o|contracted procedure: k10142 o|contracted procedure: k10188 o|contracted procedure: k10184 o|contracted procedure: k10221 o|contracted procedure: k10217 o|contracted procedure: k10213 o|contracted procedure: k10209 o|contracted procedure: k10256 o|contracted procedure: k10410 o|contracted procedure: k10279 o|contracted procedure: k10292 o|contracted procedure: k10305 o|contracted procedure: k10313 o|contracted procedure: k10326 o|contracted procedure: k10334 o|contracted procedure: k10346 o|contracted procedure: k10356 o|contracted procedure: k10375 o|contracted procedure: k10367 o|contracted procedure: k10383 o|contracted procedure: k10387 o|contracted procedure: k10401 o|contracted procedure: k10436 o|contracted procedure: k10432 o|contracted procedure: k10428 o|contracted procedure: k10450 o|contracted procedure: k10481 o|contracted procedure: k10456 o|contracted procedure: k10477 o|contracted procedure: k10471 o|contracted procedure: k10467 o|contracted procedure: k10463 o|contracted procedure: k10499 o|contracted procedure: k10512 o|contracted procedure: k10525 o|contracted procedure: k10528 o|contracted procedure: k10541 o|contracted procedure: k10559 o|contracted procedure: k10570 o|contracted procedure: k10671 o|contracted procedure: k10575 o|contracted procedure: k10595 o|contracted procedure: k10591 o|contracted procedure: k10587 o|contracted procedure: k10579 o|contracted procedure: k10566 o|contracted procedure: k10633 o|contracted procedure: k10636 o|contracted procedure: k10639 o|contracted procedure: k10647 o|contracted procedure: k10655 o|contracted procedure: k10621 o|contracted procedure: k10617 o|contracted procedure: k10603 o|contracted procedure: k10611 o|contracted procedure: k10661 o|contracted procedure: k10668 o|contracted procedure: k10683 o|contracted procedure: k10686 o|contracted procedure: k10689 o|contracted procedure: k10697 o|contracted procedure: k10705 o|contracted procedure: k10550 o|contracted procedure: k10554 o|contracted procedure: k10721 o|contracted procedure: k10735 o|contracted procedure: k10742 o|contracted procedure: k10759 o|contracted procedure: k10749 o|contracted procedure: k10772 o|contracted procedure: k10984 o|contracted procedure: k10796 o|contracted procedure: k10980 o|contracted procedure: k10812 o|contracted procedure: k10851 o|contracted procedure: k10858 o|contracted procedure: k10872 o|contracted procedure: k10861 o|contracted procedure: k10868 o|contracted procedure: k10922 o|contracted procedure: k10931 o|contracted procedure: k10935 o|contracted procedure: k10879 o|contracted procedure: k10897 o|contracted procedure: k10904 o|contracted procedure: k10918 o|contracted procedure: k10907 o|contracted procedure: k10914 o|contracted procedure: k10947 o|contracted procedure: k10950 o|contracted procedure: k10953 o|contracted procedure: k10961 o|contracted procedure: k10969 o|contracted procedure: k10976 o|contracted procedure: k10994 o|contracted procedure: k11356 o|contracted procedure: k11018 o|contracted procedure: k11079 o|contracted procedure: k11097 o|contracted procedure: k11087 o|contracted procedure: k11111 o|contracted procedure: k11100 o|contracted procedure: k11107 o|contracted procedure: k11123 o|contracted procedure: k11172 o|contracted procedure: k11168 o|contracted procedure: k11148 o|contracted procedure: k11164 o|contracted procedure: k11156 o|contracted procedure: k11152 o|contracted procedure: k11220 o|contracted procedure: k11188 o|contracted procedure: k11216 o|contracted procedure: k11200 o|contracted procedure: k11212 o|contracted procedure: k11204 o|contracted procedure: k11196 o|contracted procedure: k11192 o|contracted procedure: k11227 o|contracted procedure: k11231 o|contracted procedure: k11240 o|contracted procedure: k11247 o|contracted procedure: k11263 o|contracted procedure: k11252 o|contracted procedure: k11259 o|contracted procedure: k11268 o|contracted procedure: k11274 o|contracted procedure: k11280 o|contracted procedure: k11286 o|contracted procedure: k11292 o|contracted procedure: k11304 o|contracted procedure: k11319 o|contracted procedure: k11330 o|contracted procedure: k11352 o|contracted procedure: k11366 o|contracted procedure: k11372 o|contracted procedure: k11375 o|contracted procedure: k11382 o|contracted procedure: k11408 o|contracted procedure: k11392 o|contracted procedure: k11400 o|contracted procedure: k11396 o|contracted procedure: k11418 o|contracted procedure: k11424 o|contracted procedure: k11427 o|contracted procedure: k11434 o|contracted procedure: k11441 o|contracted procedure: k11458 o|contracted procedure: k11461 o|contracted procedure: k11467 o|contracted procedure: k11474 o|contracted procedure: k11484 o|contracted procedure: k11511 o|contracted procedure: k11533 o|contracted procedure: k11555 o|contracted procedure: k11577 o|contracted procedure: k11605 o|contracted procedure: k11615 o|contracted procedure: k11629 o|contracted procedure: k11618 o|contracted procedure: k11625 o|contracted procedure: k11639 o|contracted procedure: k11732 o|contracted procedure: k11714 o|contracted procedure: k11710 o|contracted procedure: k11706 o|contracted procedure: k11728 o|contracted procedure: k11719 o|contracted procedure: k11661 o|contracted procedure: k11674 o|contracted procedure: k11751 o|contracted procedure: k11851 o|contracted procedure: k11847 o|contracted procedure: k11807 o|contracted procedure: k11831 o|contracted procedure: k11841 o|contracted procedure: k11837 o|contracted procedure: k11827 o|contracted procedure: k11770 o|contracted procedure: k11786 o|contracted procedure: k11868 o|contracted procedure: k11885 o|contracted procedure: k11902 o|contracted procedure: k11919 o|contracted procedure: k11936 o|simplifications: ((let . 185)) o|replaced variables: 2 o|removed binding forms: 852 o|inlining procedure: k5151 o|inlining procedure: k5151 o|inlining procedure: k6194 o|inlining procedure: k6362 o|inlining procedure: k6362 o|inlining procedure: k9757 o|inlining procedure: k9757 o|inlining procedure: k11667 o|replaced variables: 187 o|removed binding forms: 6 o|simplifications: ((let . 1) (if . 2)) o|replaced variables: 4 o|removed binding forms: 110 o|contracted procedure: k10701 o|replaced variables: 4 o|removed binding forms: 4 o|removed binding forms: 2 o|direct leaf routine/allocation: lookup 0 o|direct leaf routine/allocation: g507508 0 o|direct leaf routine/allocation: g12301231 0 o|direct leaf routine/allocation: g13211322 0 o|direct leaf routine/allocation: loop1373 0 o|direct leaf routine/allocation: g15601561 0 o|direct leaf routine/allocation: g15691570 0 o|direct leaf routine/allocation: assq-reverse1436 0 o|direct leaf routine/allocation: g20102019 15 o|contracted procedure: "(expand.scm:92) k3701" o|contracted procedure: "(expand.scm:168) k4195" o|contracted procedure: "(expand.scm:180) k4231" o|contracted procedure: "(expand.scm:184) k4247" o|contracted procedure: "(expand.scm:186) k4256" o|contracted procedure: "(expand.scm:271) k4591" o|contracted procedure: "(expand.scm:273) k4808" o|contracted procedure: "(expand.scm:474) k5746" o|converted assignments to bindings: (loop1373) o|contracted procedure: "(expand.scm:816) k7550" o|contracted procedure: "(expand.scm:877) k7847" o|contracted procedure: "(expand.scm:877) k7853" o|contracted procedure: "(expand.scm:896) k7949" o|contracted procedure: "(expand.scm:897) k7952" o|contracted procedure: "(expand.scm:1248) k10965" o|simplifications: ((let . 1) (if . 2)) o|removed binding forms: 14 o|contracted procedure: "(expand.scm:787) k7364" o|replaced variables: 12 o|removed binding forms: 1 o|removed binding forms: 6 o|direct leaf routine/allocation: comp988 0 o|contracted procedure: "(expand.scm:492) k5880" o|contracted procedure: "(expand.scm:561) k6327" o|contracted procedure: "(expand.scm:588) k6464" o|contracted procedure: "(expand.scm:591) k6476" o|contracted procedure: "(expand.scm:595) k6508" o|simplifications: ((if . 1)) o|removed binding forms: 5 o|replaced variables: 6 o|removed binding forms: 1 o|customizable procedures: (loop1720 k11595 check-for-multiple-bindings expand1885 map-loop20042025 k10883 expand1980 expand2047 map-loop20692087 k10583 k10651 map-loop21032121 match-expression g21982199 g21912192 walk2135 walk12136 simplify2137 expand2263 map-loop22712289 err2235 test2236 k9771 g27412748 for-each-loop27402751 loop2719 loop2649 k9048 k9001 doloop25982599 k8638 k8431 map-loop24642481 k8107 loop1783 mirror-rename1437 k7750 k7758 doloop15051506 g14521453 k7572 k7158 test1345 k7182 walk1383 doloop13981399 loop1359 err1346 loop1264 loop1277 loop1294 outstr1275 loop1241 mwalk1217 k6312 fini/syntax990 loop1171 loop21187 k6180 loop1121 map-loop11341151 fini989 foldl10491053 map-loop10261065 k5965 map-loop10741101 k5839 loop1009 expand991 map-loop898915 map-loop927951 k5273 k5449 k5362 k5320 k5323 macro-alias k5286 loop774 err763 g796805 map-loop790818 k4988 k5000 k4917 loop741 loop727 k4597 k4752 g695696 loop608 expand552 map-loop635653 map-loop662679 call-handler551 tmp13084 tmp23085 k4369 k4403 copy571 loop537 k4116 loop467 g464465 loop1452 map-loop354371 for-each-loop380407 map-loop417438 doloop331332 walk301 k3695) o|calls to known targets: 360 o|identified direct recursive calls: f_3751 1 o|identified direct recursive calls: f_3928 1 o|identified direct recursive calls: f_3976 1 o|identified direct recursive calls: f_4293 1 o|identified direct recursive calls: f_4647 1 o|identified direct recursive calls: f_4716 1 o|identified direct recursive calls: f_4972 2 o|identified direct recursive calls: f_5626 1 o|identified direct recursive calls: f_6022 1 o|identified direct recursive calls: f_6135 1 o|identified direct recursive calls: f_6108 1 o|identified direct recursive calls: f_6606 1 o|identified direct recursive calls: f_6688 1 o|identified direct recursive calls: f_6767 1 o|identified direct recursive calls: f_7139 1 o|identified direct recursive calls: f_7165 1 o|identified direct recursive calls: f_7487 1 o|identified direct recursive calls: f_7641 1 o|identified direct recursive calls: f_7878 1 o|identified direct recursive calls: f_7903 1 o|identified direct recursive calls: f_9029 1 o|identified direct recursive calls: f_9423 1 o|identified direct recursive calls: f_10074 1 o|identified direct recursive calls: f_10678 1 o|identified direct recursive calls: f_10730 1 o|identified direct recursive calls: f_10942 1 o|fast box initializations: 69 o|fast global references: 31 o|fast global assignments: 4 o|dropping unused closure argument: f_3687 o|dropping unused closure argument: f_3670 o|dropping unused closure argument: f_7139 o|dropping unused closure argument: f_7878 o|dropping unused closure argument: f_8090 o|dropping unused closure argument: f_6603 */ /* end of file */ chicken-4.12.0/chicken-bug.scm0000644000175000017500000001301213052306173015670 0ustar sjamaansjamaan;;;; chicken-bug.scm - Bug report-generator ; ; Copyright (c) 2008-2017, 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. (require-extension srfi-13 posix tcp data-structures utils extras) (define-constant +bug-report-file+ "chicken-bug-report.~a-~a-~a") (define-foreign-variable +cc+ c-string "C_TARGET_CC") (define-foreign-variable +cxx+ c-string "C_TARGET_CXX") (define-foreign-variable +c-include-path+ c-string "C_INSTALL_INCLUDE_HOME") (define (user-id) (cond-expand (mingw32 "") (else (user-information (current-user-id))))) (define (collect-info) (print "\n--------------------------------------------------\n") (print "This is a bug report generated by chicken-bug(1).\n") (print "Date:\t" (seconds->string (current-seconds)) "\n\n") (printf "User information:\t~s~%~%" (user-id)) (print "Host information:\n") (print "\tmachine type:\t" (machine-type)) (print "\tsoftware type:\t" (software-type)) (print "\tsoftware version:\t" (software-version)) (print "\tbuild platform:\t" (build-platform) "\n") (print "CHICKEN version is:\n" (chicken-version #t) "\n") (print "Home directory:\t" (chicken-home) "\n") (printf "Include path:\t~s~%~%" ##sys#include-pathnames) (print "Features:") (for-each (lambda (lst) (display "\n ") (for-each (lambda (f) (printf "~a~a" f (make-string (fxmax 1 (fx- 16 (string-length f))) #\space)) ) lst) ) (chop (sort (map keyword->string ##sys#features) string&1" (lambda () (display (read-all))))) (newline) ) (define (usage code) (print #<string n))) (if (> (string-length s) 1) s (string-append "0" s)))) (define (main args) (let ((msg "") (files #f) (stdout #f)) (for-each (lambda (arg) (cond ((string=? "-" arg) (set! files #t) (set! msg (string-append msg "\n\nUser input:\n\n" (user-input))) ) ((member arg '("--help" "-h" "-help")) (usage 0) ) ((string=? "-to-stdout" arg) (set! stdout #t) ) (else (set! files #t) (set! msg (string-append msg "\n\nFile added: " arg "\n\n" (read-all arg) ) ) ) ) ) args) (unless files (set! msg (string-append msg "\n\n" (user-input)))) (newline) (let* ((lt (seconds->local-time (current-seconds))) (day (vector-ref lt 3)) (mon (vector-ref lt 4)) (yr (vector-ref lt 5)) ) (if stdout (begin (print msg) (collect-info)) (generate-report (sprintf +bug-report-file+ (+ 1900 yr) (justify mon) (justify day)) (with-output-to-string (lambda () (print msg) (collect-info)))))))) (define (generate-report fname msg) (with-output-to-file fname (lambda () (print msg))) (print "\nA bug report has been written to `" fname "'.")) (main (command-line-arguments)) chicken-4.12.0/extras.import.scm0000644000175000017500000000356613052306173016345 0ustar sjamaansjamaan;;;; extras.import.scm - import library for "extras" module ; ; Copyright (c) 2008-2017, 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 'extras '(format fprintf pp pretty-print pretty-print-width printf random randomize read-buffered read-byte read-file read-line read-lines read-string read-string! read-token sprintf write-byte write-line write-string)) chicken-4.12.0/c-backend.scm0000644000175000017500000014216213052306173015331 0ustar sjamaansjamaan;;; c-backend.scm - C-generating backend for the CHICKEN compiler ; ; Copyright (c) 2008-2017, 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 backend)) (include "compiler-namespace") (include "tweaks") ;;; 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) ) ) ;;; Unique id/prefix: (define unique-id (string->c-identifier (sprintf "C_~X_~A_" (random #x1000000) (current-seconds)) ) ) ;;; Generate target code: (define (generate-code literals lliterals lambda-table out source-file dynamic db dbg-info-table) (let ((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 (##sys#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) #\])) ) ) ((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_unboxed) (let ((name (first params))) (gen #t name #\=) (expr (first subs) i) (gen #\;) (expr (second subs) i))) ((##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_mutate2(((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_mutate2(((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 (iota n 1 1) ) (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-ify-string (##sys#symbol->qualified-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_mutate2(&lf[" index "]") (gen "C_mutate2((C_word*)lf[" index "]+1") ) (gen " /* (set! " (uncommentify (##sys#symbol->qualified-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->qualified-string var)) " */ =") (expr (car subs) i) (gen #\;) ] [else (gen "C_set_block_item(lf[" index "] /* " (uncommentify (##sys#symbol->qualified-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 (cond (emit-debug-info (when dbi (gen #t "C_debugger(&(C_debug_info[" dbi "])," (if non-av-proc "0,NULL" "c,av") ");"))) (emit-trace-info (gen #t "C_trace(\"" (backslashify name-str) "\");")) (else (gen #t "/* " (uncommentify name-str) " */") ) ) ) (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 (iota n (+ temps nf) 1)] ) (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 (iota n 1 1) ) (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-ify-string (##sys#symbol->qualified-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 (iota n (+ temps nf) 1)] ) (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 (iota n 1 1) ) (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 (cond (emit-debug-info (when dbi (gen #t " C_debugger(&(C_debug_info[" dbi "])," (if non-av-proc "0,NULL" "c,av") "),"))) (emit-trace-info (gen #t " C_trace(\"" (backslashify name-str) "\"),")) (else (gen #t " /* " (uncommentify name-str) " */")))) (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#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_" (first params) "_toplevel(" 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#unboxed_ref) (gen (first params))) ((##core#unboxed_set!) (gen "((" (first params) #\=) (expr (first subs) i) (gen "),C_SCHEME_UNDEFINED)")) ((##core#inline_unboxed) ;XXX is this needed? (gen (first params) "(") (expr-args subs i) (gen #\))) ((##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) (pair-for-each (lambda (xs) (if (not (eq? xs args)) (gen #\,)) (expr (car xs) i) ) args) ) (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) (define (pad0 n) (if (< n 10) (string-append "0" (number->string n)) n) ) (let* ((tm (##sys#decode-seconds (current-seconds) #f)) (min (vector-ref tm 1)) (hour (vector-ref tm 2)) (mday (vector-ref tm 3)) (mon (vector-ref tm 4)) (year (vector-ref tm 5)) ) (gen "/* Generated from " source-file " by the CHICKEN compiler" #t " http://www.call-cc.org" #t " " (+ 1900 year) #\- (pad0 (add1 mon)) #\- (pad0 mday) #\space (pad0 hour) #\: (pad0 min) #t (string-intersperse (map (cut string-append " " <> "\n") (string-split (chicken-version #t) "\n") ) "") " command line: ") (gen-list compiler-arguments) (gen #t) (cond [unit-name (gen " unit: " unit-name)] [else (gen " used units: ") (gen-list used-units) ] ) (gen #t "*/" #t #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 "_toplevel)" #t "C_externimport void C_ccall C_" uu "_toplevel(C_word c,C_word *av) C_noret;")) 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) (##sys#hash-table-for-each (lambda (id ll) (let* ((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 (if unit-name (string-append unit-name "_toplevel") "toplevel"))) (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 #\)) ;;(when customizable (gen " C_c_regparm")) (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 "];"))) (##sys#hash-table-for-each (lambda (id ll) (let* ([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] [(string? lit) 0] [(number? lit) words-per-flonum] [(symbol? lit) 7] ; size of symbol, and possibly a bucket [(pair? lit) (+ 3 (literal-size (car lit)) (literal-size (cdr lit)))] [(vector? lit) (+ 1 (vector-length lit) (reduce + 0 (map literal-size (vector->list lit))))] [(block-variable-literal? lit) 0] [(##sys#immediate? lit) (bad-literal lit)] [(##core#inline "C_lambdainfop" lit) 0] [(##sys#bytevector? lit) (+ 2 (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)))) ) ) ) ] [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) ");") ) ((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)] ) (gen #t to "=") (gen "C_h_intern(&" to #\, len #\, 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,") (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 (utype t) (case t ((fixnum) "int") ((flonum) "double") ((char) "char") ((pointer) "void *") ((int) "int") ((bool) "int") (else (bomb "invalid unboxed type" t)))) (define (procedures) (##sys#hash-table-for-each (lambda (id ll) (let* ((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)) (ubtemps (lambda-literal-unboxed-temporaries ll)) (topname (if unit-name (string-append unit-name "_toplevel") "toplevel") ) ) (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 (ubt) (gen #t (utype (cdr ubt)) #\space (car ubt) #\;)) ubtemps))) (cond ((eq? 'toplevel id) (let ([ldemand (fold (lambda (lit n) (+ 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(\"" 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) (gen "\"" (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 (##sys#hash-table-size lambda-table)) "] = {") (##sys#hash-table-for-each (lambda (id ll) (gen #t "{\"" id #\: (string->c-identifier sf) "\",(void*)") (if (eq? 'toplevel id) (if unit-name (gen "C_" unit-name "_toplevel},") (gen "C_toplevel},") ) (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 "}") ) ;;; 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 unsigned-integer unsigned-integer32 long integer integer32 unsigned-long size_t nonnull-c-pointer number unsigned-integer64 integer64 c-string-list c-string-list*) (string-append ns "+3") ] [(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) (##sys#hash-table-ref foreign-type-table type)) => (lambda (t) (compute-size (if (vector? t) (vector-ref t 0) t) 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 (fold compute-size "0" argtypes vlist)]) (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 #\() (pair-for-each (lambda (vs ts) (gen (foreign-type-declaration (car ts) (car vs))) (when (pair? (cdr vs)) (gen #\,)) ) vlist argtypes) (gen #\)) ) ) ;; Create type declarations (define (foreign-type-declaration type target) (let ([err (lambda () (quit "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")] [(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 *")] [(s16vector nonnull-s16vector) (str "short *")] [(s32vector nonnull-s32vector) (str "int *")] [(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) (##sys#hash-table-ref foreign-type-table type)) => (lambda (t) (foreign-type-declaration (if (vector? t) (vector-ref t 0) t) 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 "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_int(") ((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(") ((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(") ((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) (##sys#hash-table-ref foreign-type-table type)) => (lambda (t) (foreign-argument-conversion (if (vector? t) (vector-ref t 0) t)) ) ] [(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 "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 unsigned-integer64) (sprintf "C_a_double_to_num(&~a," dest)) ((size_t) (sprintf "C_int_to_num(&~a,(int)" 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) (##sys#hash-table-ref foreign-type-table type)) => (lambda (x) (foreign-result-conversion (if (vector? x) (vector-ref x 0) x) 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 (not (zero? (arithmetic-shift 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 "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") ((fixnum? lit) (if (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)) ) ) (string-append "\xff\x55" (number->string lit) "\x00") ) ) ((number? lit) (string-append "\x55" (number->string lit) "\x00") ) ((symbol? lit) (let ((str (##sys#slot lit 1))) (string-append "\x01" (encode-size (string-length str)) 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-4.12.0/compiler-syntax.scm0000644000175000017500000002347413052306173016664 0ustar sjamaansjamaan;;;; compiler-syntax.scm - compiler syntax used internally ; ; Copyright (c) 2009-2017, 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) ) (include "compiler-namespace") (include "tweaks.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 #!optional (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 . ,(##sys#primitive-alias 'se)) ...))))) (define-internal-compiler-syntax ((for-each ##sys#for-each #%for-each) x r c) (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 '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 ((map ##sys#map #%map) x r c) (pair? 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 '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 ((o #%o) x r c) () (if (and (fx> (length x) 1) (memq 'o extended-bindings) ) ; s.a. (let ((%tmp (r 'tmp))) `(,(r 'lambda) (,%tmp) ,(fold-right list %tmp (cdr x)))) ;XXX use foldr x)) (define-internal-compiler-syntax ((sprintf #%sprintf format #%format) x r c) (display write fprintf number->string write-char open-output-string get-output-string) (let* ((out (gensym 'out)) (code (compile-format-string (if (memq (car x) '(sprintf #%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 ((fprintf #%fprintf) x r c) (display write fprintf number->string write-char open-output-string 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 ((printf #%printf) x r c) (display write fprintf number->string write-char open-output-string 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 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)) (%fprintf (r 'fprintf)) (%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 ,(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 ,%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 ((foldr #%foldr) x r c) (pair?) (if (and (fx= (length x) 4) (memq '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 ((foldl #%foldl) x r c) (pair?) (if (and (fx= (length x) 4) (memq '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-4.12.0/csibatch.bat0000644000175000017500000000006313040667210015256 0ustar sjamaansjamaan@echo off csi -script %1 %2 %3 %4 %5 %6 %7 %8 %9 chicken-4.12.0/chicken-status.10000644000175000017500000000224113052302315016010 0ustar sjamaansjamaan.\" dummy line .TH CHICKEN-STATUS 1 "13 Aug 2008" .SH NAME chicken-status \- list installed extension libraries .SH SYNOPSIS chicken-status [OPTION | PATTERN] ... .SH DESCRIPTION .I chicken\-status lists installed extensions for the CHICKEN Scheme system matching the regular expression(s) .B PATTERN or all, if no pattern has been given. .SH OPTIONS Enter .B chicken-status\ \-help for a list of supported command-line options. .SH ENVIRONMENT\ VARIABLES .TP .B CHICKEN_PREFIX The installation prefix where CHICKEN Scheme and its support files and libraries are located. Defaults to the installation time prefix given when configuring the system. .TP .B CHICKEN_REPOSITORY The path where extension libraries are installed. Defaults to the package-library path selected during configuration (usually .B $prefix/lib/chicken/ ) .SH DOCUMENTATION More information can be found in the .I CHICKEN\ User's\ Manual .SH BUGS Submit bug reports by e-mail to .I chicken-janitors@nongnu.org , preferrably using the .B chicken\-bug tool. .SH AUTHORS The CHICKEN Team .SH SEE ALSO .BR chicken-install(1) .BR chicken-uninstall(1) .BR chicken(1) .BR chicken-bug(1) chicken-4.12.0/srfi-13.import.scm0000644000175000017500000000770213052306173016217 0ustar sjamaansjamaan;;;; srfi-13.import.scm - import library for "srfi-13" module ; ; Copyright (c) 2008-2017, 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 'srfi-13 '(check-substring-spec kmp-step make-kmp-restart-vector reverse-list->string string->list string-any string-append/shared string-ci< string-ci<= string-ci<> string-ci= string-ci> string-ci>= string-compare string-compare-ci string-concatenate string-concatenate-reverse string-concatenate-reverse/shared string-concatenate/shared string-contains string-contains-ci string-copy string-copy! string-count string-delete string-downcase string-downcase! string-drop string-drop-right string-every string-fill! string-filter string-fold string-fold-right string-for-each string-for-each-index string-index string-index-right string-join string-kmp-partial-search string-map string-map! string-null? string-pad string-pad-right string-parse-final-start+end string-parse-start+end string-prefix-ci? string-prefix-length string-prefix-length-ci string-prefix? string-replace string-reverse string-reverse! string-skip string-skip-right string-suffix-ci? string-suffix-length string-suffix-length-ci string-suffix? string-tabulate string-take string-take-right string-titlecase string-titlecase! string-tokenize string-trim string-trim-both string-trim-right string-unfold string-unfold-right string-upcase string-upcase! string-xcopy! string< string<= string<> string= string> string>= substring-spec-ok? substring/shared xsubstring) `((let-string-start+end () ,(##sys#ensure-transformer (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'let-string-start+end form '(_ _ _ _ _ . _)) (let ((s-e-r (cadr form)) (proc (caddr form)) (s-exp (cadddr form)) (args-exp (car (cddddr form))) (body (cdr (cddddr form))) (%receive (r 'receive)) (%string-parse-start+end (r 'string-parse-start+end)) (%string-parse-final-start+end (r 'string-parse-final-start+end))) (if (pair? (cddr s-e-r)) `(,%receive (,(caddr s-e-r) ,(car s-e-r) ,(cadr s-e-r)) (,%string-parse-start+end ,proc ,s-exp ,args-exp) ,@body) `(,%receive ,s-e-r (,%string-parse-final-start+end ,proc ,s-exp ,args-exp) ,@body) ) ))) 'let-string-start+end)))) chicken-4.12.0/chicken.ico0000644000175000017500000000137613040667210015116 0ustar sjamaansjamaan è( @€€€€€€€€€ÀÀÀ€€€ÿÿÿÿÿÿÿÿÿÿÿÿ»»°° »»° ° °»»» »»»»»»°»»»»»»»»»° »»»»»»»»»»° »»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» »»»»»»»»»»»»»»° »»»»»»»»»»»»»»°»»»»»»»»»»»»»»»°»»»»»»»»»»»»»»»°»»»»»»»»»»»»»»»°»»»»»»»»»»»»»»»°»»»»»»»»»»»»»»»° »»»»»»»»»»»»»»° »»»»»»»»»»»»»»°»»»»»»»»»»»»»»°»»»»»»»»»»»»»»° »»»»»»»»»°»»»»»»»»»»»° »»»»»»»»°°»»»° »»»° »»»° »»° »»°»» ÿÁÿÿøÿÿþÿÿþÿÿüÿÿ€ÿüøàÀÀ€€€€€Ààðàðùðÿÿàÿÿàÿÿøÿÿøÿÿü?ÿÿþ¿ÿÿchicken-4.12.0/stub.c0000644000175000017500000001734413052306301014133 0ustar sjamaansjamaan/* Generated from stub.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:17 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: stub.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file stub.c unit: default_5fstub */ #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_ports_toplevel) C_externimport void C_ccall C_ports_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[1]; 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_219) static void C_ccall f_219(C_word c,C_word *av) C_noret; C_noret_decl(f_216) static void C_ccall f_216(C_word c,C_word *av) C_noret; C_noret_decl(f_213) static void C_ccall f_213(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(f_221) static void C_fcall f_221(C_word t0,C_word t1) C_noret; C_noret_decl(f_225) static void C_ccall f_225(C_word c,C_word *av) C_noret; C_noret_decl(f_204) static void C_ccall f_204(C_word c,C_word *av) C_noret; C_noret_decl(f_207) static void C_ccall f_207(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(trf_221) static void C_ccall trf_221(C_word c,C_word *av) C_noret; static void C_ccall trf_221(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_221(t0,t1);} /* k217 in k214 in k211 in k208 in k205 in k202 */ static void C_ccall f_219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_219,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k214 in k211 in k208 in k205 in k202 */ static void C_ccall f_216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_216,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_219,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|3,a[1]=(C_word)f_221,a[2]=t4,a[3]=((C_word)li0),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_221(t6,t2);} /* k211 in k208 in k205 in k202 */ static void C_ccall f_213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_213,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_216,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* 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_5fstub_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_default_5fstub_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(3); C_initialize_lf(lf,1); lf[0]=C_h_intern(&lf[0],14,"return-to-host"); C_register_lf2(lf,1,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_204,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* loop in k214 in k211 in k208 in k205 in k202 */ static void C_fcall f_221(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_221,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_225,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* stub.scm:33: return-to-host */ t3=*((C_word*)lf[0]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k223 in loop in k214 in k211 in k208 in k205 in k202 */ static void C_ccall f_225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_225,2,av);} /* stub.scm:33: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_221(t2,((C_word*)t0)[3]);} /* k202 */ static void C_ccall f_204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_204,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_207,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k205 in k202 */ static void C_ccall f_207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_207,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_210,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k208 in k205 in k202 */ 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; 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_210,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_213,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_ports_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[10] = { {"f_219:stub_2escm",(void*)f_219}, {"f_216:stub_2escm",(void*)f_216}, {"f_213:stub_2escm",(void*)f_213}, {"toplevel:stub_2escm",(void*)C_default_5fstub_toplevel}, {"f_221:stub_2escm",(void*)f_221}, {"f_225:stub_2escm",(void*)f_225}, {"f_204:stub_2escm",(void*)f_204}, {"f_207:stub_2escm",(void*)f_207}, {"f_210:stub_2escm",(void*)f_210}, {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: (loop0) o|calls to known targets: 2 o|fast box initializations: 1 */ /* end of file */ chicken-4.12.0/srfi-14.import.c0000644000175000017500000002122413052306544015655 0ustar sjamaansjamaan/* Generated from srfi-14.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: srfi-14.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file srfi-14.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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_199) static void C_ccall f_199(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(f_205) static void C_ccall f_205(C_word c,C_word *av) C_noret; C_noret_decl(f_202) static void C_ccall f_202(C_word c,C_word *av) C_noret; C_noret_decl(f_208) static void C_ccall f_208(C_word c,C_word *av) C_noret; /* k197 */ static void C_ccall f_199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_199,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(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(674))){ C_save(t1); C_rereclaim2(674*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,3); lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module"); lf[1]=C_h_intern(&lf[1],7,"srfi-14"); lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\012->char-set\376\003\000\000\002\376\001\000\000\010char-set\376\003\000\000\002\376\001\000\000\016char-set->list\376\003\000\000\002\376\001\000\000\020char-set" "->string\376\003\000\000\002\376\001\000\000\017char-set-adjoin\376\003\000\000\002\376\001\000\000\020char-set-adjoin!\376\003\000\000\002\376\001\000\000\014char-set-an" "y\376\003\000\000\002\376\001\000\000\023char-set-complement\376\003\000\000\002\376\001\000\000\024char-set-complement!\376\003\000\000\002\376\001\000\000\022char-set-c" "ontains\077\376\003\000\000\002\376\001\000\000\015char-set-copy\376\003\000\000\002\376\001\000\000\016char-set-count\376\003\000\000\002\376\001\000\000\017char-set-cursor" "\376\003\000\000\002\376\001\000\000\024char-set-cursor-next\376\003\000\000\002\376\001\000\000\017char-set-delete\376\003\000\000\002\376\001\000\000\020char-set-delete" "!\376\003\000\000\002\376\001\000\000\032char-set-diff+intersection\376\003\000\000\002\376\001\000\000\033char-set-diff+intersection!\376\003\000\000\002\376" "\001\000\000\023char-set-difference\376\003\000\000\002\376\001\000\000\024char-set-difference!\376\003\000\000\002\376\001\000\000\016char-set-every\376\003\000" "\000\002\376\001\000\000\017char-set-filter\376\003\000\000\002\376\001\000\000\020char-set-filter!\376\003\000\000\002\376\001\000\000\015char-set-fold\376\003\000\000\002\376\001\000\000" "\021char-set-for-each\376\003\000\000\002\376\001\000\000\015char-set-hash\376\003\000\000\002\376\001\000\000\025char-set-intersection\376\003\000\000\002\376\001\000" "\000\026char-set-intersection!\376\003\000\000\002\376\001\000\000\014char-set-map\376\003\000\000\002\376\001\000\000\014char-set-ref\376\003\000\000\002\376\001\000\000\015ch" "ar-set-size\376\003\000\000\002\376\001\000\000\017char-set-unfold\376\003\000\000\002\376\001\000\000\020char-set-unfold!\376\003\000\000\002\376\001\000\000\016char-set" "-union\376\003\000\000\002\376\001\000\000\017char-set-union!\376\003\000\000\002\376\001\000\000\014char-set-xor\376\003\000\000\002\376\001\000\000\015char-set-xor!\376\003\000\000" "\002\376\001\000\000\016char-set:ascii\376\003\000\000\002\376\001\000\000\016char-set:blank\376\003\000\000\002\376\001\000\000\016char-set:digit\376\003\000\000\002\376\001\000\000\016ch" "ar-set:empty\376\003\000\000\002\376\001\000\000\015char-set:full\376\003\000\000\002\376\001\000\000\020char-set:graphic\376\003\000\000\002\376\001\000\000\022char-set:" "hex-digit\376\003\000\000\002\376\001\000\000\024char-set:iso-control\376\003\000\000\002\376\001\000\000\017char-set:letter\376\003\000\000\002\376\001\000\000\025char-s" "et:letter+digit\376\003\000\000\002\376\001\000\000\023char-set:lower-case\376\003\000\000\002\376\001\000\000\021char-set:printing\376\003\000\000\002\376\001\000\000" "\024char-set:punctuation\376\003\000\000\002\376\001\000\000\012char-set:s\376\003\000\000\002\376\001\000\000\017char-set:symbol\376\003\000\000\002\376\001\000\000\023char" "-set:title-case\376\003\000\000\002\376\001\000\000\023char-set:upper-case\376\003\000\000\002\376\001\000\000\023char-set:whitespace\376\003\000\000\002\376\001" "\000\000\012char-set<=\376\003\000\000\002\376\001\000\000\011char-set=\376\003\000\000\002\376\001\000\000\011char-set\077\376\003\000\000\002\376\001\000\000\020end-of-char-set\077\376\003\000" "\000\002\376\001\000\000\016list->char-set\376\003\000\000\002\376\001\000\000\017list->char-set!\376\003\000\000\002\376\001\000\000\015make-char-set\376\003\000\000\002\376\001\000\000\020s" "tring->char-set\376\003\000\000\002\376\001\000\000\021string->char-set!\376\003\000\000\002\376\001\000\000\023ucs-range->char-set\376\003\000\000\002\376\001\000\000" "\024ucs-range->char-set!\376\377\016"); C_register_lf2(lf,3,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_199,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k203 in k200 in k197 */ static void C_ccall f_205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_205,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.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; /* Re-use our own argvector */ } 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);}} /* k200 in k197 */ static void C_ccall f_202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k206 in k203 in k200 in k197 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_208,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {"f_199:srfi_2d14_2eimport_2escm",(void*)f_199}, {"toplevel:srfi_2d14_2eimport_2escm",(void*)C_toplevel}, {"f_205:srfi_2d14_2eimport_2escm",(void*)f_205}, {"f_202:srfi_2d14_2eimport_2escm",(void*)f_202}, {"f_208:srfi_2d14_2eimport_2escm",(void*)f_208}, {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-4.12.0/buildbranch0000644000175000017500000000000013052306321015171 0ustar sjamaansjamaanchicken-4.12.0/chicken-ffi-syntax.c0000644000175000017500000044660513052306320016657 0ustar sjamaansjamaan/* Generated from chicken-ffi-syntax.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:17 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: chicken-ffi-syntax.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file chicken-ffi-syntax.c unit: chicken_2dffi_2dsyntax */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); static C_TLS C_word lf[93]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,24),40,97,56,52,55,32,102,111,114,109,52,52,48,32,114,52,52,49,32,99,52,52,50,41}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,52,49,52,32,103,52,50,54,52,51,51,41,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,24),40,97,56,57,49,32,102,111,114,109,52,48,54,32,114,52,48,55,32,99,52,48,56,41}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,51,55,51,32,103,51,56,53,51,57,57,41,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,24),40,97,57,56,54,32,102,111,114,109,51,54,53,32,114,51,54,54,32,99,51,54,55,41}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,51,51,57,32,103,51,53,49,51,53,56,41,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,25),40,97,49,48,55,55,32,102,111,114,109,51,51,49,32,114,51,51,50,32,99,51,51,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,50,57,56,32,103,51,49,48,51,50,52,41,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,25),40,97,49,49,55,50,32,102,111,114,109,50,57,48,32,114,50,57,49,32,99,50,57,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,50,53,55,32,103,50,54,57,50,56,51,41,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,50,50,56,32,103,50,52,48,50,52,54,41,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,25),40,97,49,50,54,51,32,102,111,114,109,50,49,55,32,114,50,49,56,32,99,50,49,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,25),40,97,49,52,51,57,32,102,111,114,109,50,49,49,32,114,50,49,50,32,99,50,49,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,25),40,97,49,52,53,51,32,102,111,114,109,50,48,53,32,114,50,48,54,32,99,50,48,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,25),40,97,49,52,54,55,32,102,111,114,109,49,57,56,32,114,49,57,57,32,99,50,48,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,25),40,97,49,52,56,56,32,102,111,114,109,49,56,53,32,114,49,56,54,32,99,49,56,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,25),40,97,49,53,53,48,32,102,111,114,109,49,54,50,32,114,49,54,51,32,99,49,54,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,6),40,103,49,50,53,41,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,25),40,97,49,54,53,53,32,98,49,52,57,32,97,49,53,48,32,114,101,115,116,49,53,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,17),40,97,49,54,57,57,32,98,49,52,55,32,97,49,52,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,49,49,57,32,103,49,51,49,49,51,56,41,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,25),40,97,49,54,49,53,32,102,111,114,109,49,49,49,32,114,49,49,50,32,99,49,49,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,22),40,97,49,55,54,48,32,102,111,114,109,57,51,32,114,57,52,32,99,57,53,41,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,19),40,97,49,56,51,56,32,120,56,54,32,114,56,55,32,99,56,56,41,0,0,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,54,48,32,103,55,50,55,57,41,0,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,51,51,32,103,52,53,53,50,41,0,0,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,19),40,97,49,56,53,53,32,102,111,114,109,54,32,114,55,32,99,56,41,0,0,0,0,0}; static C_char C_TLS li27[] 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_1723) static void C_fcall f_1723(C_word t0,C_word t1,C_word t2) 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_1629) static void C_fcall f_1629(C_word t0,C_word t1) C_noret; C_noret_decl(f_1988) static void C_ccall f_1988(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_1332) static void C_ccall f_1332(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_1593) static void C_ccall f_1593(C_word c,C_word *av) C_noret; C_noret_decl(f_1334) static void C_fcall f_1334(C_word t0,C_word t1,C_word t2) 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_2000) static void C_fcall f_2000(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1606) static void C_ccall f_1606(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_1496) static void C_ccall f_1496(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_1650) static void C_ccall f_1650(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_1654) static void C_ccall f_1654(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_1942) static void C_ccall f_1942(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_1489) static void C_ccall f_1489(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_1643) static void C_ccall f_1643(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_892) static void C_ccall f_892(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_1247) static void C_ccall f_1247(C_word c,C_word *av) C_noret; C_noret_decl(f_1972) static void C_ccall f_1972(C_word c,C_word *av) C_noret; C_noret_decl(f_1882) static void C_ccall f_1882(C_word c,C_word *av) C_noret; C_noret_decl(f_1222) static void C_fcall f_1222(C_word t0,C_word t1,C_word t2) 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_1111) static void C_ccall f_1111(C_word c,C_word *av) C_noret; C_noret_decl(f_1271) static void C_fcall f_1271(C_word t0,C_word t1) C_noret; C_noret_decl(f_1277) static void C_ccall f_1277(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_858) static void C_ccall f_858(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_855) static void C_ccall f_855(C_word c,C_word *av) 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_1872) static void C_ccall f_1872(C_word c,C_word *av) C_noret; C_noret_decl(f_1286) static void C_ccall f_1286(C_word c,C_word *av) C_noret; C_noret_decl(f_1843) static void C_ccall f_1843(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_1262) static void C_ccall f_1262(C_word c,C_word *av) C_noret; C_noret_decl(f_1856) static void C_ccall f_1856(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_1268) static void C_ccall f_1268(C_word c,C_word *av) C_noret; C_noret_decl(f_1264) static void C_ccall f_1264(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_848) static void C_ccall f_848(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_987) static void C_ccall f_987(C_word c,C_word *av) C_noret; C_noret_decl(f_985) static void C_ccall f_985(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_815) static void C_ccall f_815(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_797) static void C_ccall f_797(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_790) static void C_ccall f_790(C_word c,C_word *av) C_noret; C_noret_decl(f_1837) static void C_ccall f_1837(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_991) static void C_ccall f_991(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_1549) static void C_ccall f_1549(C_word c,C_word *av) C_noret; C_noret_decl(f_839) static void C_ccall f_839(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_833) static void C_ccall f_833(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_970) static void C_ccall f_970(C_word c,C_word *av) 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_1036) static void C_fcall f_1036(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1863) static void C_fcall f_1863(C_word t0,C_word t1) C_noret; C_noret_decl(f_1866) static void C_fcall f_1866(C_word t0,C_word t1) C_noret; C_noret_decl(f_945) static void C_fcall f_945(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1082) static void C_ccall f_1082(C_word c,C_word *av) C_noret; C_noret_decl(f_1208) static void C_ccall f_1208(C_word c,C_word *av) C_noret; C_noret_decl(f_1530) static void C_ccall f_1530(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_925) static void C_ccall f_925(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_939) static void C_ccall f_939(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_931) static void C_ccall f_931(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_1827) static void C_ccall f_1827(C_word c,C_word *av) C_noret; C_noret_decl(f_1452) static void C_ccall f_1452(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_1506) static void C_fcall f_1506(C_word t0,C_word t1) 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_1468) static void C_ccall f_1468(C_word c,C_word *av) C_noret; C_noret_decl(f_1551) static void C_ccall f_1551(C_word c,C_word *av) C_noret; C_noret_decl(f_1555) static void C_ccall f_1555(C_word c,C_word *av) C_noret; C_noret_decl(f_1558) static void C_ccall f_1558(C_word c,C_word *av) C_noret; C_noret_decl(f_1216) static void C_ccall f_1216(C_word c,C_word *av) C_noret; C_noret_decl(f_1212) static void C_ccall f_1212(C_word c,C_word *av) C_noret; C_noret_decl(f_2049) static void C_fcall f_2049(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1156) static void C_ccall f_1156(C_word c,C_word *av) C_noret; C_noret_decl(f_1438) static void C_ccall f_1438(C_word c,C_word *av) 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_1780) static void C_ccall f_1780(C_word c,C_word *av) C_noret; C_noret_decl(f_1022) static void C_ccall f_1022(C_word c,C_word *av) C_noret; C_noret_decl(f_1026) static void C_ccall f_1026(C_word c,C_word *av) C_noret; C_noret_decl(f_2047) static void C_ccall f_2047(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_1171) static void C_ccall f_1171(C_word c,C_word *av) C_noret; C_noret_decl(f_1177) static void C_ccall f_1177(C_word c,C_word *av) C_noret; C_noret_decl(f_1173) static void C_ccall f_1173(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(f_1359) static void C_ccall f_1359(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_1514) static void C_ccall f_1514(C_word c,C_word *av) C_noret; C_noret_decl(f_1518) static void C_ccall f_1518(C_word c,C_word *av) C_noret; C_noret_decl(f_1368) static void C_fcall f_1368(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_800) static void C_ccall f_800(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_1748) static void C_ccall f_1748(C_word c,C_word *av) C_noret; C_noret_decl(f_806) static void C_ccall f_806(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_1121) static void C_ccall f_1121(C_word c,C_word *av) C_noret; C_noret_decl(f_1125) static void C_ccall f_1125(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_1078) static void C_ccall f_1078(C_word c,C_word *av) C_noret; C_noret_decl(f_1076) static void C_ccall f_1076(C_word c,C_word *av) C_noret; C_noret_decl(f_1131) static void C_fcall f_1131(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1765) static void C_ccall f_1765(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_1587) static void C_ccall f_1587(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_827) static void C_ccall f_827(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_821) static void C_ccall f_821(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_1303) static void C_fcall f_1303(C_word t0,C_word t1) 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_1318) static void C_ccall f_1318(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_1614) static void C_ccall f_1614(C_word c,C_word *av) C_noret; C_noret_decl(trf_1723) static void C_ccall trf_1723(C_word c,C_word *av) C_noret; static void C_ccall trf_1723(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1723(t0,t1,t2);} C_noret_decl(trf_1629) static void C_ccall trf_1629(C_word c,C_word *av) C_noret; static void C_ccall trf_1629(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1629(t0,t1);} C_noret_decl(trf_1334) static void C_ccall trf_1334(C_word c,C_word *av) C_noret; static void C_ccall trf_1334(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1334(t0,t1,t2);} C_noret_decl(trf_2000) static void C_ccall trf_2000(C_word c,C_word *av) C_noret; static void C_ccall trf_2000(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2000(t0,t1,t2);} C_noret_decl(trf_1222) static void C_ccall trf_1222(C_word c,C_word *av) C_noret; static void C_ccall trf_1222(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1222(t0,t1,t2);} C_noret_decl(trf_1271) static void C_ccall trf_1271(C_word c,C_word *av) C_noret; static void C_ccall trf_1271(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1271(t0,t1);} C_noret_decl(trf_1036) static void C_ccall trf_1036(C_word c,C_word *av) C_noret; static void C_ccall trf_1036(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1036(t0,t1,t2);} C_noret_decl(trf_1863) static void C_ccall trf_1863(C_word c,C_word *av) C_noret; static void C_ccall trf_1863(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1863(t0,t1);} C_noret_decl(trf_1866) static void C_ccall trf_1866(C_word c,C_word *av) C_noret; static void C_ccall trf_1866(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1866(t0,t1);} C_noret_decl(trf_945) static void C_ccall trf_945(C_word c,C_word *av) C_noret; static void C_ccall trf_945(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_945(t0,t1,t2);} C_noret_decl(trf_1506) static void C_ccall trf_1506(C_word c,C_word *av) C_noret; static void C_ccall trf_1506(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1506(t0,t1);} C_noret_decl(trf_2049) static void C_ccall trf_2049(C_word c,C_word *av) C_noret; static void C_ccall trf_2049(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2049(t0,t1,t2);} C_noret_decl(trf_1368) static void C_ccall trf_1368(C_word c,C_word *av) C_noret; static void C_ccall trf_1368(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1368(t0,t1,t2);} C_noret_decl(trf_1131) static void C_ccall trf_1131(C_word c,C_word *av) C_noret; static void C_ccall trf_1131(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1131(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_1303(t0,t1);} /* map-loop119 in k1618 in a1615 in k801 in k798 in k795 in k792 in k788 */ static void C_fcall f_1723(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_1723,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_1748,a[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:115: g125 */ t4=((C_word*)t0)[4]; f_1629(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);}}} /* k1618 in a1615 in k801 in k798 in k795 in k792 in k788 */ 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 t6; C_word t7; C_word t8; C_word t9; C_word 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_1620,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_1629,a[2]=((C_word*)t0)[3],a[3]=((C_word)li17),tmp=(C_word)a,a+=4,tmp); t12=C_i_check_list_2(t3,lf[21]); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1643,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_1723,a[2]=t9,a[3]=t15,a[4]=t11,a[5]=t10,a[6]=((C_word)li20),tmp=(C_word)a,a+=7,tmp)); t17=((C_word*)t15)[1]; f_1723(t17,t13,t3);} /* g125 in k1618 in a1615 in k801 in k798 in k795 in k792 in k788 */ static void C_fcall f_1629(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_1629,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1637,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:115: gensym */ t3=*((C_word*)lf[14]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1986 in k1970 in k2045 in k1940 in k1927 in k1864 in k1861 in a1855 in k792 in k788 */ static void C_ccall f_1988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1988,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[85],((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; /* Re-use our own argvector */ 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);}} /* k1597 in k1594 in k1591 in k1588 in k1585 in k1579 in k1571 in k1556 in k1553 in a1550 in k804 in k801 in k798 in k795 in k792 in k788 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1599,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1602,a[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:151: get-output-string */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1330 in k1316 in k1284 in k1275 in k1272 in k1269 in k1266 in a1263 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_1332,2,av);} a=C_alloc(6); t2=C_a_i_list1(&a,1,t1); t3=((C_word*)t0)[2]; f_1303(t3,C_a_i_cons(&a,2,((C_word*)t0)[3],t2));} /* k1594 in k1591 in k1588 in k1585 in k1579 in k1571 in k1556 in k1553 in a1550 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 *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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1599,a[2]=((C_word*)t0)[2],a[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:151: ##sys#print */ t3=*((C_word*)lf[57]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[58]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k1591 in k1588 in k1585 in k1579 in k1571 in k1556 in k1553 in a1550 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1593,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1596,a[2]=((C_word*)t0)[2],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_1606,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:153: string-intersperse */ t5=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=lf[60]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* map-loop257 in k1284 in k1275 in k1272 in k1269 in k1266 in a1263 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_fcall f_1334(C_word 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_1334,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_1359,a[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[24]+1); /* chicken-ffi-syntax.scm:218: g280 */ t6=*((C_word*)lf[24]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[26]; ((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);}}} /* k1588 in k1585 in k1579 in k1571 in k1556 in k1553 in a1550 in k804 in k801 in k798 in k795 in k792 in k788 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_1590,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1593,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:151: ##sys#print */ t3=*((C_word*)lf[57]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[61]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* map-loop60 in k1970 in k2045 in k1940 in k1927 in k1864 in k1861 in a1855 in k792 in k788 */ static void C_fcall f_2000(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_2000,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_mutate2(((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);}}} /* k1604 in k1591 in k1588 in k1585 in k1579 in k1571 in k1556 in k1553 in a1550 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1606,2,av);} /* chicken-ffi-syntax.scm:151: ##sys#print */ t2=*((C_word*)lf[57]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1600 in k1597 in k1594 in k1591 in k1588 in k1585 in k1579 in k1571 in k1556 in k1553 in a1550 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 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_1602,2,av);} a=C_alloc(27); t2=C_a_i_list(&a,2,lf[44],t1); t3=C_a_i_list(&a,2,((C_word*)t0)[2],t2); t4=C_a_i_list(&a,2,lf[55],((C_word*)t0)[3]); t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_list(&a,3,lf[8],t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k1494 in k1491 in a1488 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1496(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1496,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_1506,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_1530,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_1506(t8,C_a_i_list(&a,4,lf[4],t2,t6,t3));} else{ if(C_truep(C_i_symbolp(t3))){ /* chicken-ffi-syntax.scm:168: symbol->string */ t8=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:170: syntax-error */ t8=*((C_word*)lf[49]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=lf[47]; av2[3]=lf[50]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}}} /* k1491 in a1488 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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(4,c,2)))){ C_save_and_reclaim((void *)f_1493,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1496,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:162: gensym */ t3=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[51]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k1648 in k1641 in k1618 in a1615 in k801 in k798 in k795 in k792 in k788 */ 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 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_1650,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1654,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_1656,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp); t5=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[3]); t6=C_a_i_cons(&a,2,lf[68],t5); /* chicken-ffi-syntax.scm:123: fold-right */ t7=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=t6; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} /* a1655 in k1648 in k1641 in k1618 in a1615 in k801 in k798 in k795 in k792 in k788 */ 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=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,1)))){ C_save_and_reclaim((void *)f_1656,5,av);} a=C_alloc(15); t5=C_i_length(t2); t6=C_eqp(C_fix(3),t5); if(C_truep(t6)){ t7=C_i_car(t2); t8=C_i_cadr(t2); t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_a_i_list(&a,5,lf[69],t7,t8,t3,t4); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t7=C_i_car(t2); t8=C_i_cadr(t2); t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_a_i_list(&a,4,lf[69],t7,t8,t4); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k1652 in k1648 in k1641 in k1618 in a1615 in k801 in k798 in k795 in k792 in k788 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_1654,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[68],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1470 in a1467 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_1472,2,av);} a=C_alloc(9); t2=C_i_cdr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,lf[44],t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list(&a,2,lf[45],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1940 in k1927 in k1864 in k1861 in a1855 in k792 in k788 */ static void C_ccall f_1942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_1942,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[83],t4); t6=t5; t7=(C_truep(((C_word*)t0)[3])?C_i_car(((C_word*)t0)[4]):lf[84]); 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[83],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[21]); t17=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2047,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_2049,a[2]=t14,a[3]=t19,a[4]=t15,a[5]=((C_word)li25),tmp=(C_word)a,a+=6,tmp)); t21=((C_word*)t19)[1]; f_2049(t21,t17,((C_word*)t0)[5]);} /* k1635 in g125 in k1618 in a1615 in k801 in k798 in k795 in k792 in k788 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1637,2,av);} /* chicken-ffi-syntax.scm:115: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1488 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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=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_1489,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1493,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:161: ##sys#check-syntax */ t6=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[47]; av2[3]=t2; av2[4]=lf[52]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k1485 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1487,2,av);} /* chicken-ffi-syntax.scm:156: ##sys#extend-macro-environment */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1641 in k1618 in a1615 in k801 in k798 in k795 in k792 in k788 */ 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(9,c,4)))){ C_save_and_reclaim((void *)f_1643,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1650,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_1700,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:117: append-map */ t5=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k894 in a891 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 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_896,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_925,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:275: ##sys#strip-syntax */ t8=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* a891 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_892,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_896,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:272: ##sys#check-syntax */ t6=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[20]; av2[3]=t2; av2[4]=lf[27]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k888 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_890,2,av);} /* chicken-ffi-syntax.scm:267: ##sys#extend-macro-environment */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[20]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k1245 in map-loop298 in k1200 in k1175 in a1172 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1247,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_1222(t6,((C_word*)t0)[5],t5);} /* k1970 in k2045 in k1940 in k1927 in k1864 in k1861 in a1855 in k792 in k788 */ static void C_ccall f_1972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_1972,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_1988,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_2000,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li24),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_2000(t11,t7,((C_word*)t0)[11]);} /* k1880 in k1870 in k1864 in k1861 in a1855 in k792 in k788 */ static void C_ccall f_1882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_1882,2,av);} a=C_alloc(42); t2=C_i_cadr(((C_word*)t0)[2]); t3=C_a_i_list(&a,3,lf[4],((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[74],((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[75],((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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_a_i_cons(&a,2,t1,t10); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} /* map-loop298 in k1200 in k1175 in a1172 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_fcall f_1222(C_word 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_1222,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_1247,a[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[24]+1); /* chicken-ffi-syntax.scm:232: g321 */ t6=*((C_word*)lf[24]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[26]; ((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);}}} /* k1115 in k1109 in k1080 in a1077 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_1117,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1121,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_1125,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_cadr(((C_word*)t0)[2]); /* chicken-ffi-syntax.scm:249: ##sys#strip-syntax */ t6=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k1109 in k1080 in a1077 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_1111,2,av);} a=C_alloc(12); t2=C_i_check_list_2(t1,lf[21]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1117,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_1131,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_1131(t7,t3,t1);} /* k1269 in k1266 in a1263 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_fcall f_1271(C_word t0,C_word 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_1271,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*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]=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:214: ##sys#strip-syntax */ t7=*((C_word*)lf[16]+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_1274(2,av2);}}} /* k1275 in k1272 in k1269 in k1266 in a1263 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_1277,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[21]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1286,a[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_1368,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li10),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_1368(t11,t7,t1);} /* k1272 in k1269 in k1266 in a1263 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1274,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1277,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_word*)t0)[4])?C_i_caddr(((C_word*)t0)[2]):C_i_cadr(((C_word*)t0)[2])); /* chicken-ffi-syntax.scm:215: ##sys#strip-syntax */ t5=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k856 in k853 in k850 in a847 in k834 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_858,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_861,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)t0)[3]; f_861(2,av2);}} else{ /* chicken-ffi-syntax.scm:292: ##compiler#foreign-type-declaration */ t4=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[13]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k1927 in k1864 in k1861 in a1855 in k792 in k788 */ 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; C_word 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_1929,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_1942,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:68: r */ t7=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[87]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k853 in k850 in a847 in k834 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_855(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_855,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_858,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:288: gensym */ t4=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[15]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k850 in a847 in k834 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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; 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_852,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_855,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:287: ##sys#strip-syntax */ t4=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1870 in k1864 in k1861 in a1855 in k792 in k788 */ static void C_ccall f_1872(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1872,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_1882,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:56: r */ t5=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[76]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k1284 in k1275 in k1272 in k1269 in k1266 in a1263 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_1286,2,av);} a=C_alloc(21); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1303,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[21]); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1318,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_1334,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li9),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_1334(t12,t8,t1);} /* k1841 in a1838 in k795 in k792 in k788 */ static void C_ccall f_1843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1843,2,av);} a=C_alloc(6); t2=C_i_cadr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,2,lf[79],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k874 in k859 in k856 in k853 in k850 in a847 in k834 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){ C_save_and_reclaim((void *)f_876,2,av);} a=C_alloc(33); t2=C_a_i_list(&a,4,lf[4],((C_word*)t0)[2],lf[5],t1); t3=C_a_i_list(&a,4,lf[6],lf[7],C_SCHEME_FALSE,((C_word*)t0)[2]); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[8],t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1260 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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,4)))){ C_save_and_reclaim((void *)f_1262,2,av);} /* chicken-ffi-syntax.scm:207: ##sys#extend-macro-environment */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[37]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a1855 in k792 in k788 */ static void C_ccall f_1856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1856,5,av);} a=C_alloc(5); t5=C_i_cdr(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1863,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_1863(t9,C_i_stringp(t8));} else{ t8=t7; f_1863(t8,C_SCHEME_FALSE);}} /* k1852 in k792 in k788 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1854,2,av);} /* chicken-ffi-syntax.scm:45: ##sys#extend-macro-environment */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[81]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k1266 in a1263 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1268,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1271,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_1271(t6,C_i_not(t5));} else{ t4=t2; f_1271(t4,C_SCHEME_FALSE);}} /* a1263 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1264,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1268,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:212: ##sys#check-syntax */ t6=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[37]; av2[3]=t2; av2[4]=lf[40]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k844 in k834 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_846,2,av);} /* chicken-ffi-syntax.scm:281: ##sys#extend-macro-environment */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[3]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a847 in k834 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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=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_848,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_852,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:286: ##sys#check-syntax */ t6=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[3]; av2[3]=t2; av2[4]=lf[18]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k840 in k837 in k834 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_842,2,av);} t2=C_mutate2((C_word*)lf[0]+1 /* (set! ##sys#chicken-ffi-macro-environment ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a986 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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=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_987,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_991,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:258: ##sys#check-syntax */ t6=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[28]; av2[3]=t2; av2[4]=lf[30]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k983 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_985,2,av);} /* chicken-ffi-syntax.scm:253: ##sys#extend-macro-environment */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[28]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 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_818,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_821,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_1438,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1440,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:203: ##sys#er-transformer */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_815,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_818,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_1452,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1454,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:196: ##sys#er-transformer */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_812,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_815,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_1466,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1468,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:185: ##sys#er-transformer */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k795 in k792 in k788 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_797,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_800,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_1837,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1839,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:85: ##sys#er-transformer */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k792 in k788 */ 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 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_794,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_797,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_1854,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1856,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:48: ##sys#er-transformer */ t6=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k788 */ static void C_ccall f_790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_790,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_794,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:43: ##sys#macro-environment */ t3=*((C_word*)lf[90]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1835 in k795 in k792 in k788 */ static void C_ccall f_1837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1837,2,av);} /* chicken-ffi-syntax.scm:82: ##sys#extend-macro-environment */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[78]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a1838 in k795 in k792 in k788 */ 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=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_1839,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1843,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:87: ##sys#check-syntax */ t6=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[78]; av2[3]=t2; av2[4]=lf[80]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k989 in a986 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 t3; C_word 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_991,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_1016,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:261: ##sys#strip-syntax */ t8=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k859 in k856 in k853 in k850 in a847 in k834 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_861,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_876,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:294: string-append */ t3=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[10]; av2[3]=t1; av2[4]=lf[11]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k1547 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1549,2,av);} /* chicken-ffi-syntax.scm:141: ##sys#extend-macro-environment */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[53]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k837 in k834 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_839,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_842,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:298: ##sys#macro-subset */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k834 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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; 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_836,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_839,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_846,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_848,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:284: ##sys#er-transformer */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_833,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_836,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_890,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_892,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:270: ##sys#er-transformer */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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; 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_830,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_833,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_985,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_987,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:256: ##sys#er-transformer */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k968 in map-loop414 in k923 in k894 in a891 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 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_970,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_945(t6,((C_word*)t0)[5],t5);} /* k1028 in k1020 in k1014 in k989 in a986 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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(0,c,3)))){ C_save_and_reclaim((void *)f_1030,2,av);} /* chicken-ffi-syntax.scm:262: ##compiler#foreign-type->scrutiny-type */ t2=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[25]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop373 in k1014 in k989 in a986 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_fcall f_1036(C_word 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_1036,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_1061,a[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[24]+1); /* chicken-ffi-syntax.scm:260: g396 */ t6=*((C_word*)lf[24]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[26]; ((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);}}} /* k1861 in a1855 in k792 in k788 */ static void C_fcall f_1863(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_1863,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1866,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(t2)){ t4=t3; f_1866(t4,C_SCHEME_FALSE);} else{ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t4=C_u_i_car(((C_word*)t0)[2]); t5=t3; f_1866(t5,C_i_symbolp(t4));} else{ t4=t3; f_1866(t4,C_SCHEME_FALSE);}}} /* k1864 in k1861 in a1855 in k792 in k788 */ static void C_fcall f_1866(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_1866,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1872,a[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:54: ##sys#check-syntax */ t3=*((C_word*)lf[17]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=lf[81]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[82]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1929,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:64: ##sys#check-syntax */ t3=*((C_word*)lf[17]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=lf[81]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[88]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ /* chicken-ffi-syntax.scm:65: ##sys#check-syntax */ t3=*((C_word*)lf[17]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=lf[81]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[89]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}} /* map-loop414 in k923 in k894 in a891 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_fcall f_945(C_word 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_945,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_970,a[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:274: ##compiler#foreign-type->scrutiny-type */ t6=*((C_word*)lf[24]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[26]; ((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);}}} /* k1080 in a1077 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1082,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_1111,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:247: ##sys#strip-syntax */ t8=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k1206 in k1200 in k1175 in a1172 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1208,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1212,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_1216,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_cadr(((C_word*)t0)[2]); /* chicken-ffi-syntax.scm:235: ##sys#strip-syntax */ t6=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k1528 in k1494 in k1491 in a1488 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1530(C_word c,C_word *av){ C_word tmp; 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_1530,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2]; f_1506(t2,C_a_i_list(&a,4,lf[4],((C_word*)t0)[3],((C_word*)t0)[4],t1));} /* k1200 in k1175 in a1172 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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; C_word 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_1202,2,av);} a=C_alloc(12); t2=C_i_check_list_2(t1,lf[21]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1208,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_1222,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_1222(t7,t3,t1);} /* k923 in k894 in a891 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_925(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_925,2,av);} a=C_alloc(12); t2=C_i_check_list_2(t1,lf[21]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_931,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_945,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word)li1),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_945(t7,t3,t1);} /* k1059 in map-loop373 in k1014 in k989 in a986 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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; 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_1061,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_1036(t6,((C_word*)t0)[5],t5);} /* k937 in k929 in k923 in k894 in a891 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_939(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_939,2,av);} /* chicken-ffi-syntax.scm:276: ##compiler#foreign-type->scrutiny-type */ t2=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[25]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k933 in k929 in k923 in k894 in a891 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 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_935,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,3,lf[22],((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=C_a_i_cons(&a,2,lf[23],t4); t6=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_list(&a,4,lf[6],t2,C_SCHEME_FALSE,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k929 in k923 in k894 in a891 in k831 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_931(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_931,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_935,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_939,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_cadr(((C_word*)t0)[2]); /* chicken-ffi-syntax.scm:277: ##sys#strip-syntax */ t6=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k1821 in k1785 in k1778 in k1763 in a1760 in k798 in k795 in k792 in k788 */ 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; 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_1823,2,av);} a=C_alloc(48); t2=C_a_i_list(&a,4,lf[4],((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=C_a_i_list(&a,5,lf[74],((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[75],((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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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);}}} /* k1825 in k1763 in a1760 in k798 in k795 in k792 in k788 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1827,2,av);} /* chicken-ffi-syntax.scm:99: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1450 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1452,2,av);} /* chicken-ffi-syntax.scm:193: ##sys#extend-macro-environment */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1453 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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=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_1454,5,av);} a=C_alloc(3); t5=C_i_cdr(t2); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_cons(&a,2,lf[43],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k1504 in k1494 in k1491 in a1488 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_fcall f_1506(C_word 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_1506,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1514,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_1518,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_caddr(((C_word*)t0)[4]); /* chicken-ffi-syntax.scm:175: ##sys#strip-syntax */ t6=*((C_word*)lf[16]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k1464 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1466,2,av);} /* chicken-ffi-syntax.scm:182: ##sys#extend-macro-environment */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[44]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a1467 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1468,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1472,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:187: ##sys#check-syntax */ t6=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[44]; av2[3]=t2; av2[4]=lf[46]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* a1550 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1551,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1555,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-ffi-syntax.scm:146: ##sys#check-syntax */ t6=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[53]; av2[3]=t2; av2[4]=lf[66]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k1553 in a1550 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1555(C_word c,C_word *av){ C_word tmp; C_word t0=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_1555,2,av);} a=C_alloc(5); t2=(*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); /* chicken-ffi-syntax.scm:147: gensym */ t3=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[65]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k1556 in k1553 in a1550 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1558,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1573,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:149: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[64]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1214 in k1206 in k1200 in k1175 in a1172 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1216,2,av);} /* chicken-ffi-syntax.scm:234: ##compiler#foreign-type->scrutiny-type */ t2=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[25]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1210 in k1206 in k1200 in k1175 in a1172 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1212,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,3,lf[22],((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=C_a_i_cons(&a,2,lf[35],t4); t6=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_list(&a,4,lf[6],t2,C_SCHEME_FALSE,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* map-loop33 in k1940 in k1927 in k1864 in k1861 in a1855 in k792 in k788 */ static void C_fcall f_2049(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_2049,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_mutate2(((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);}}} /* k1154 in map-loop339 in k1109 in k1080 in a1077 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1156,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_1131(t6,((C_word*)t0)[5],t5);} /* k1436 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1438(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1438,2,av);} /* chicken-ffi-syntax.scm:200: ##sys#extend-macro-environment */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[41]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k1785 in k1778 in k1763 in a1760 in k798 in k795 in k792 in k788 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_1787,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1823,a[2]=((C_word*)t0)[2],a[3]=((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:101: symbol->string */ t4=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1778 in k1763 in a1760 in k798 in k795 in k792 in k788 */ static void C_ccall f_1780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1780,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1787,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:100: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[76]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1020 in k1014 in k989 in a986 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1022,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1026,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_1030,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_cadr(((C_word*)t0)[2]); /* chicken-ffi-syntax.scm:263: ##sys#strip-syntax */ t6=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k1024 in k1020 in k1014 in k989 in a986 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1026,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,3,lf[22],((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=C_a_i_cons(&a,2,lf[29],t4); t6=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_list(&a,4,lf[6],t2,C_SCHEME_FALSE,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k2045 in k1940 in k1927 in k1864 in k1861 in a1855 in k792 in k788 */ static void C_ccall f_2047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2047,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,2,lf[83],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_1972,a[2]=((C_word*)t0)[2],a[3]=((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:74: r */ t5=((C_word*)t0)[11];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[86]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* a1439 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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=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_1440,5,av);} a=C_alloc(3); t5=C_i_cdr(t2); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_cons(&a,2,lf[4],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k1169 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1171,2,av);} /* chicken-ffi-syntax.scm:225: ##sys#extend-macro-environment */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k1175 in a1172 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1177,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_1202,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:233: ##sys#strip-syntax */ t8=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* a1172 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1173,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1177,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:230: ##sys#check-syntax */ t6=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[34]; av2[3]=t2; av2[4]=lf[36]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,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_2dffi_2dsyntax_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_chicken_2dffi_2dsyntax_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(1022))){ C_save(t1); C_rereclaim2(1022*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,93); lf[0]=C_h_intern(&lf[0],33,"\003syschicken-ffi-macro-environment"); lf[1]=C_h_intern(&lf[1],16,"\003sysmacro-subset"); lf[2]=C_h_intern(&lf[2],28,"\003sysextend-macro-environment"); lf[3]=C_h_intern(&lf[3],17,"foreign-type-size"); lf[4]=C_h_intern(&lf[4],28,"\004coredefine-foreign-variable"); lf[5]=C_h_intern(&lf[5],6,"size_t"); lf[6]=C_h_intern(&lf[6],8,"\004corethe"); lf[7]=C_h_intern(&lf[7],6,"fixnum"); lf[8]=C_h_intern(&lf[8],10,"\004corebegin"); lf[9]=C_h_intern(&lf[9],13,"string-append"); lf[10]=C_decode_literal(C_heaptop,"\376B\000\000\007sizeof("); lf[11]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[12]=C_h_intern(&lf[12],33,"\010compilerforeign-type-declaration"); lf[13]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[14]=C_h_intern(&lf[14],6,"gensym"); lf[15]=C_decode_literal(C_heaptop,"\376B\000\000\005code_"); lf[16]=C_h_intern(&lf[16],16,"\003sysstrip-syntax"); lf[17]=C_h_intern(&lf[17],16,"\003syscheck-syntax"); lf[18]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[19]=C_h_intern(&lf[19],18,"\003syser-transformer"); lf[20]=C_h_intern(&lf[20],20,"foreign-safe-lambda\052"); lf[21]=C_h_intern(&lf[21],3,"map"); lf[22]=C_h_intern(&lf[22],9,"procedure"); lf[23]=C_h_intern(&lf[23],25,"\004coreforeign-safe-lambda\052"); lf[24]=C_h_intern(&lf[24],36,"\010compilerforeign-type->scrutiny-type"); lf[25]=C_h_intern(&lf[25],6,"result"); lf[26]=C_h_intern(&lf[26],3,"arg"); lf[27]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\001\000\000\001_"); lf[28]=C_h_intern(&lf[28],19,"foreign-safe-lambda"); lf[29]=C_h_intern(&lf[29],24,"\004coreforeign-safe-lambda"); lf[30]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\001\000\000\001_"); lf[31]=C_h_intern(&lf[31],15,"foreign-lambda\052"); lf[32]=C_h_intern(&lf[32],20,"\004coreforeign-lambda\052"); lf[33]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\001\000\000\001_"); lf[34]=C_h_intern(&lf[34],14,"foreign-lambda"); lf[35]=C_h_intern(&lf[35],19,"\004coreforeign-lambda"); lf[36]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\001\000\000\001_"); lf[37]=C_h_intern(&lf[37],17,"foreign-primitive"); lf[38]=C_h_intern(&lf[38],22,"\004coreforeign-primitive"); lf[39]=C_h_intern(&lf[39],1,"\052"); lf[40]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\001\000\000\001_"); lf[41]=C_h_intern(&lf[41],23,"define-foreign-variable"); lf[42]=C_h_intern(&lf[42],19,"define-foreign-type"); lf[43]=C_h_intern(&lf[43],24,"\004coredefine-foreign-type"); lf[44]=C_h_intern(&lf[44],15,"foreign-declare"); lf[45]=C_h_intern(&lf[45],12,"\004coredeclare"); lf[46]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\001\000\000\006string\376\377\001\000\000\000\000"); lf[47]=C_h_intern(&lf[47],13,"foreign-value"); lf[48]=C_h_intern(&lf[48],14,"symbol->string"); lf[49]=C_h_intern(&lf[49],12,"syntax-error"); lf[50]=C_decode_literal(C_heaptop,"\376B\000\000\052bad argument type - not a string or symbol"); lf[51]=C_decode_literal(C_heaptop,"\376B\000\000\005code_"); lf[52]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[53]=C_h_intern(&lf[53],12,"foreign-code"); lf[54]=C_h_intern(&lf[54],7,"sprintf"); lf[55]=C_h_intern(&lf[55],11,"\004coreinline"); lf[56]=C_h_intern(&lf[56],17,"get-output-string"); lf[57]=C_h_intern(&lf[57],9,"\003sysprint"); lf[58]=C_decode_literal(C_heaptop,"\376B\000\000 \012; return C_SCHEME_UNDEFINED; }\012"); lf[59]=C_h_intern(&lf[59],18,"string-intersperse"); lf[60]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[61]=C_decode_literal(C_heaptop,"\376B\000\000\005() { "); lf[62]=C_decode_literal(C_heaptop,"\376B\000\000\016static C_word "); lf[63]=C_h_intern(&lf[63],18,"open-output-string"); lf[64]=C_h_intern(&lf[64],7,"declare"); lf[65]=C_h_intern(&lf[65],5,"code_"); lf[66]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\001\000\000\006string\376\377\001\000\000\000\000"); lf[67]=C_h_intern(&lf[67],12,"let-location"); lf[68]=C_h_intern(&lf[68],8,"\004corelet"); lf[69]=C_h_intern(&lf[69],17,"\004corelet-location"); lf[70]=C_h_intern(&lf[70],10,"fold-right"); lf[71]=C_h_intern(&lf[71],10,"append-map"); lf[72]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010variable\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\003\376\001\000\000\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_"); lf[73]=C_h_intern(&lf[73],15,"define-location"); lf[74]=C_h_intern(&lf[74],29,"\004coredefine-external-variable"); lf[75]=C_h_intern(&lf[75],9,"\004coreset!"); lf[76]=C_h_intern(&lf[76],5,"begin"); lf[77]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\010variable\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\003\376\001\000\000\001_\376\377\001\000\000\000\000\376\377\001\000\000\000\001"); lf[78]=C_h_intern(&lf[78],8,"location"); lf[79]=C_h_intern(&lf[79],13,"\004corelocation"); lf[80]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\010location\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[81]=C_h_intern(&lf[81],15,"define-external"); lf[82]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\003\376\001\000\000\001_\376\377\001\000\000\000\000\376\377\001\000\000\000\001"); lf[83]=C_h_intern(&lf[83],5,"quote"); lf[84]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[85]=C_h_intern(&lf[85],29,"\004coreforeign-callback-wrapper"); lf[86]=C_h_intern(&lf[86],6,"lambda"); lf[87]=C_h_intern(&lf[87],6,"define"); lf[88]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006symbol\376\000\000\000\002\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\006symbol\376\377\016\376\377\001\000\000\000\000\376" "\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[89]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006symbol\376\000\000\000\002\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\006symbol\376\377\016\376\377\001\000\000\000\000\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376" "\001\000\000\001_\376\377\001\000\000\000\001"); lf[90]=C_h_intern(&lf[90],21,"\003sysmacro-environment"); lf[91]=C_h_intern(&lf[91],11,"\003sysprovide"); lf[92]=C_h_intern(&lf[92],18,"chicken-ffi-syntax"); C_register_lf2(lf,93,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_790,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:38: ##sys#provide */ t3=*((C_word*)lf[91]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[92]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k1357 in map-loop257 in k1284 in k1275 in k1272 in k1269 in k1266 in a1263 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1359,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_1334(t6,((C_word*)t0)[5],t5);} /* k1014 in k989 in a986 in k828 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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; C_word 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_1016,2,av);} a=C_alloc(12); t2=C_i_check_list_2(t1,lf[21]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1022,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_1036,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_1036(t7,t3,t1);} /* k1512 in k1504 in k1494 in k1491 in a1488 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ C_save_and_reclaim((void *)f_1514,2,av);} a=C_alloc(21); t2=C_a_i_list(&a,4,lf[6],t1,C_SCHEME_FALSE,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[8],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1516 in k1504 in k1494 in k1491 in a1488 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1518(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1518,2,av);} /* chicken-ffi-syntax.scm:174: ##compiler#foreign-type->scrutiny-type */ t2=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[25]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop228 in k1275 in k1272 in k1269 in k1266 in a1263 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_fcall f_1368(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_1368,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_mutate2(((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);}}} /* k798 in k795 in k792 in k788 */ static void C_ccall f_800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_800,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_803,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_1759,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1761,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:93: ##sys#er-transformer */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k801 in k798 in k795 in k792 in k788 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_803,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_806,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_1614,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1616,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:110: ##sys#er-transformer */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k1746 in map-loop119 in k1618 in a1615 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1748,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_1723(t6,((C_word*)t0)[5],t5);} /* k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_806,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_809,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_1549,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1551,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:144: ##sys#er-transformer */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_809,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_812,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_1487,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1489,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:159: ##sys#er-transformer */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k1119 in k1115 in k1109 in k1080 in a1077 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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; 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_1121,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,3,lf[22],((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=C_a_i_cons(&a,2,lf[32],t4); t6=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_list(&a,4,lf[6],t2,C_SCHEME_FALSE,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k1123 in k1115 in k1109 in k1080 in a1077 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1125,2,av);} /* chicken-ffi-syntax.scm:248: ##compiler#foreign-type->scrutiny-type */ t2=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[25]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1757 in k798 in k795 in k792 in k788 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1759,2,av);} /* chicken-ffi-syntax.scm:90: ##sys#extend-macro-environment */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[73]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a1077 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1078(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1078,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1082,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:244: ##sys#check-syntax */ t6=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[31]; av2[3]=t2; av2[4]=lf[33]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k1074 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1076,2,av);} /* chicken-ffi-syntax.scm:239: ##sys#extend-macro-environment */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[31]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop339 in k1109 in k1080 in a1077 in k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_fcall f_1131(C_word 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_1131,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_1156,a[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:246: ##compiler#foreign-type->scrutiny-type */ t6=*((C_word*)lf[24]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[26]; ((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);}}} /* k1763 in a1760 in k798 in k795 in k792 in k788 */ static void C_ccall f_1765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_1765,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_1780,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_1827,a[2]=((C_word*)t0)[4],a[3]=t13,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:99: gensym */ t15=*((C_word*)lf[14]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} /* a1760 in k798 in k795 in k792 in k788 */ 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=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_1761,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1765,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-ffi-syntax.scm:95: ##sys#check-syntax */ t6=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[73]; av2[3]=t2; av2[4]=lf[77]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k1585 in k1579 in k1571 in k1556 in k1553 in a1550 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1587(C_word c,C_word *av){ C_word tmp; C_word t0=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_1587,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1590,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:151: ##sys#print */ t3=*((C_word*)lf[57]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1579 in k1571 in k1556 in k1553 in a1550 in k804 in k801 in k798 in k795 in k792 in k788 */ 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; 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_1581,2,av);} a=C_alloc(8); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[54]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1587,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:151: ##sys#print */ t6=*((C_word*)lf[57]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[62]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k825 in k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_827,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_830,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_1076,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1078,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:242: ##sys#er-transformer */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k822 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 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_824,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_827,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_1171,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1173,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:228: ##sys#er-transformer */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_821,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_824,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_1262,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1264,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:210: ##sys#er-transformer */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* a1699 in k1641 in k1618 in a1615 in k801 in k798 in k795 in k792 in k788 */ 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=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_1700,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k1301 in k1284 in k1275 in k1272 in k1269 in k1266 in a1263 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_fcall f_1303(C_word 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_1303,2,t0,t1);} a=C_alloc(18); t2=C_a_i_cons(&a,2,lf[22],t1); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_a_i_cons(&a,2,lf[38],t4); t6=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t6; av2[1]=C_a_i_list(&a,4,lf[6],t2,C_SCHEME_FALSE,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k1571 in k1556 in k1553 in a1550 in k804 in k801 in k798 in k795 in k792 in k788 */ 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_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_1573,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1581,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:151: open-output-string */ t4=*((C_word*)lf[63]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1316 in k1284 in k1275 in k1272 in k1269 in k1266 in a1263 in k819 in k816 in k813 in k810 in k807 in k804 in k801 in k798 in k795 in k792 in k788 */ static void C_ccall f_1318(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1318,2,av);} a=C_alloc(4); t2=t1; if(C_truep(((C_word*)t0)[2])){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1332,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:221: ##compiler#foreign-type->scrutiny-type */ t4=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=lf[25]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=((C_word*)t0)[3]; f_1303(t3,C_a_i_cons(&a,2,t2,lf[39]));}} /* a1615 in k801 in k798 in k795 in k792 in k788 */ 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=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_1616,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1620,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* chicken-ffi-syntax.scm:112: ##sys#check-syntax */ t6=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[67]; av2[3]=t2; av2[4]=lf[72]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k1612 in k801 in k798 in k795 in k792 in k788 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1614,2,av);} /* chicken-ffi-syntax.scm:107: ##sys#extend-macro-environment */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[67]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[139] = { {"f_1723:chicken_2dffi_2dsyntax_2escm",(void*)f_1723}, {"f_1620:chicken_2dffi_2dsyntax_2escm",(void*)f_1620}, {"f_1629:chicken_2dffi_2dsyntax_2escm",(void*)f_1629}, {"f_1988:chicken_2dffi_2dsyntax_2escm",(void*)f_1988}, {"f_1599:chicken_2dffi_2dsyntax_2escm",(void*)f_1599}, {"f_1332:chicken_2dffi_2dsyntax_2escm",(void*)f_1332}, {"f_1596:chicken_2dffi_2dsyntax_2escm",(void*)f_1596}, {"f_1593:chicken_2dffi_2dsyntax_2escm",(void*)f_1593}, {"f_1334:chicken_2dffi_2dsyntax_2escm",(void*)f_1334}, {"f_1590:chicken_2dffi_2dsyntax_2escm",(void*)f_1590}, {"f_2000:chicken_2dffi_2dsyntax_2escm",(void*)f_2000}, {"f_1606:chicken_2dffi_2dsyntax_2escm",(void*)f_1606}, {"f_1602:chicken_2dffi_2dsyntax_2escm",(void*)f_1602}, {"f_1496:chicken_2dffi_2dsyntax_2escm",(void*)f_1496}, {"f_1493:chicken_2dffi_2dsyntax_2escm",(void*)f_1493}, {"f_1650:chicken_2dffi_2dsyntax_2escm",(void*)f_1650}, {"f_1656:chicken_2dffi_2dsyntax_2escm",(void*)f_1656}, {"f_1654:chicken_2dffi_2dsyntax_2escm",(void*)f_1654}, {"f_1472:chicken_2dffi_2dsyntax_2escm",(void*)f_1472}, {"f_1942:chicken_2dffi_2dsyntax_2escm",(void*)f_1942}, {"f_1637:chicken_2dffi_2dsyntax_2escm",(void*)f_1637}, {"f_1489:chicken_2dffi_2dsyntax_2escm",(void*)f_1489}, {"f_1487:chicken_2dffi_2dsyntax_2escm",(void*)f_1487}, {"f_1643:chicken_2dffi_2dsyntax_2escm",(void*)f_1643}, {"f_896:chicken_2dffi_2dsyntax_2escm",(void*)f_896}, {"f_892:chicken_2dffi_2dsyntax_2escm",(void*)f_892}, {"f_890:chicken_2dffi_2dsyntax_2escm",(void*)f_890}, {"f_1247:chicken_2dffi_2dsyntax_2escm",(void*)f_1247}, {"f_1972:chicken_2dffi_2dsyntax_2escm",(void*)f_1972}, {"f_1882:chicken_2dffi_2dsyntax_2escm",(void*)f_1882}, {"f_1222:chicken_2dffi_2dsyntax_2escm",(void*)f_1222}, {"f_1117:chicken_2dffi_2dsyntax_2escm",(void*)f_1117}, {"f_1111:chicken_2dffi_2dsyntax_2escm",(void*)f_1111}, {"f_1271:chicken_2dffi_2dsyntax_2escm",(void*)f_1271}, {"f_1277:chicken_2dffi_2dsyntax_2escm",(void*)f_1277}, {"f_1274:chicken_2dffi_2dsyntax_2escm",(void*)f_1274}, {"f_858:chicken_2dffi_2dsyntax_2escm",(void*)f_858}, {"f_1929:chicken_2dffi_2dsyntax_2escm",(void*)f_1929}, {"f_855:chicken_2dffi_2dsyntax_2escm",(void*)f_855}, {"f_852:chicken_2dffi_2dsyntax_2escm",(void*)f_852}, {"f_1872:chicken_2dffi_2dsyntax_2escm",(void*)f_1872}, {"f_1286:chicken_2dffi_2dsyntax_2escm",(void*)f_1286}, {"f_1843:chicken_2dffi_2dsyntax_2escm",(void*)f_1843}, {"f_876:chicken_2dffi_2dsyntax_2escm",(void*)f_876}, {"f_1262:chicken_2dffi_2dsyntax_2escm",(void*)f_1262}, {"f_1856:chicken_2dffi_2dsyntax_2escm",(void*)f_1856}, {"f_1854:chicken_2dffi_2dsyntax_2escm",(void*)f_1854}, {"f_1268:chicken_2dffi_2dsyntax_2escm",(void*)f_1268}, {"f_1264:chicken_2dffi_2dsyntax_2escm",(void*)f_1264}, {"f_846:chicken_2dffi_2dsyntax_2escm",(void*)f_846}, {"f_848:chicken_2dffi_2dsyntax_2escm",(void*)f_848}, {"f_842:chicken_2dffi_2dsyntax_2escm",(void*)f_842}, {"f_987:chicken_2dffi_2dsyntax_2escm",(void*)f_987}, {"f_985:chicken_2dffi_2dsyntax_2escm",(void*)f_985}, {"f_818:chicken_2dffi_2dsyntax_2escm",(void*)f_818}, {"f_815:chicken_2dffi_2dsyntax_2escm",(void*)f_815}, {"f_812:chicken_2dffi_2dsyntax_2escm",(void*)f_812}, {"f_797:chicken_2dffi_2dsyntax_2escm",(void*)f_797}, {"f_794:chicken_2dffi_2dsyntax_2escm",(void*)f_794}, {"f_790:chicken_2dffi_2dsyntax_2escm",(void*)f_790}, {"f_1837:chicken_2dffi_2dsyntax_2escm",(void*)f_1837}, {"f_1839:chicken_2dffi_2dsyntax_2escm",(void*)f_1839}, {"f_991:chicken_2dffi_2dsyntax_2escm",(void*)f_991}, {"f_861:chicken_2dffi_2dsyntax_2escm",(void*)f_861}, {"f_1549:chicken_2dffi_2dsyntax_2escm",(void*)f_1549}, {"f_839:chicken_2dffi_2dsyntax_2escm",(void*)f_839}, {"f_836:chicken_2dffi_2dsyntax_2escm",(void*)f_836}, {"f_833:chicken_2dffi_2dsyntax_2escm",(void*)f_833}, {"f_830:chicken_2dffi_2dsyntax_2escm",(void*)f_830}, {"f_970:chicken_2dffi_2dsyntax_2escm",(void*)f_970}, {"f_1030:chicken_2dffi_2dsyntax_2escm",(void*)f_1030}, {"f_1036:chicken_2dffi_2dsyntax_2escm",(void*)f_1036}, {"f_1863:chicken_2dffi_2dsyntax_2escm",(void*)f_1863}, {"f_1866:chicken_2dffi_2dsyntax_2escm",(void*)f_1866}, {"f_945:chicken_2dffi_2dsyntax_2escm",(void*)f_945}, {"f_1082:chicken_2dffi_2dsyntax_2escm",(void*)f_1082}, {"f_1208:chicken_2dffi_2dsyntax_2escm",(void*)f_1208}, {"f_1530:chicken_2dffi_2dsyntax_2escm",(void*)f_1530}, {"f_1202:chicken_2dffi_2dsyntax_2escm",(void*)f_1202}, {"f_925:chicken_2dffi_2dsyntax_2escm",(void*)f_925}, {"f_1061:chicken_2dffi_2dsyntax_2escm",(void*)f_1061}, {"f_939:chicken_2dffi_2dsyntax_2escm",(void*)f_939}, {"f_935:chicken_2dffi_2dsyntax_2escm",(void*)f_935}, {"f_931:chicken_2dffi_2dsyntax_2escm",(void*)f_931}, {"f_1823:chicken_2dffi_2dsyntax_2escm",(void*)f_1823}, {"f_1827:chicken_2dffi_2dsyntax_2escm",(void*)f_1827}, {"f_1452:chicken_2dffi_2dsyntax_2escm",(void*)f_1452}, {"f_1454:chicken_2dffi_2dsyntax_2escm",(void*)f_1454}, {"f_1506:chicken_2dffi_2dsyntax_2escm",(void*)f_1506}, {"f_1466:chicken_2dffi_2dsyntax_2escm",(void*)f_1466}, {"f_1468:chicken_2dffi_2dsyntax_2escm",(void*)f_1468}, {"f_1551:chicken_2dffi_2dsyntax_2escm",(void*)f_1551}, {"f_1555:chicken_2dffi_2dsyntax_2escm",(void*)f_1555}, {"f_1558:chicken_2dffi_2dsyntax_2escm",(void*)f_1558}, {"f_1216:chicken_2dffi_2dsyntax_2escm",(void*)f_1216}, {"f_1212:chicken_2dffi_2dsyntax_2escm",(void*)f_1212}, {"f_2049:chicken_2dffi_2dsyntax_2escm",(void*)f_2049}, {"f_1156:chicken_2dffi_2dsyntax_2escm",(void*)f_1156}, {"f_1438:chicken_2dffi_2dsyntax_2escm",(void*)f_1438}, {"f_1787:chicken_2dffi_2dsyntax_2escm",(void*)f_1787}, {"f_1780:chicken_2dffi_2dsyntax_2escm",(void*)f_1780}, {"f_1022:chicken_2dffi_2dsyntax_2escm",(void*)f_1022}, {"f_1026:chicken_2dffi_2dsyntax_2escm",(void*)f_1026}, {"f_2047:chicken_2dffi_2dsyntax_2escm",(void*)f_2047}, {"f_1440:chicken_2dffi_2dsyntax_2escm",(void*)f_1440}, {"f_1171:chicken_2dffi_2dsyntax_2escm",(void*)f_1171}, {"f_1177:chicken_2dffi_2dsyntax_2escm",(void*)f_1177}, {"f_1173:chicken_2dffi_2dsyntax_2escm",(void*)f_1173}, {"toplevel:chicken_2dffi_2dsyntax_2escm",(void*)C_chicken_2dffi_2dsyntax_toplevel}, {"f_1359:chicken_2dffi_2dsyntax_2escm",(void*)f_1359}, {"f_1016:chicken_2dffi_2dsyntax_2escm",(void*)f_1016}, {"f_1514:chicken_2dffi_2dsyntax_2escm",(void*)f_1514}, {"f_1518:chicken_2dffi_2dsyntax_2escm",(void*)f_1518}, {"f_1368:chicken_2dffi_2dsyntax_2escm",(void*)f_1368}, {"f_800:chicken_2dffi_2dsyntax_2escm",(void*)f_800}, {"f_803:chicken_2dffi_2dsyntax_2escm",(void*)f_803}, {"f_1748:chicken_2dffi_2dsyntax_2escm",(void*)f_1748}, {"f_806:chicken_2dffi_2dsyntax_2escm",(void*)f_806}, {"f_809:chicken_2dffi_2dsyntax_2escm",(void*)f_809}, {"f_1121:chicken_2dffi_2dsyntax_2escm",(void*)f_1121}, {"f_1125:chicken_2dffi_2dsyntax_2escm",(void*)f_1125}, {"f_1759:chicken_2dffi_2dsyntax_2escm",(void*)f_1759}, {"f_1078:chicken_2dffi_2dsyntax_2escm",(void*)f_1078}, {"f_1076:chicken_2dffi_2dsyntax_2escm",(void*)f_1076}, {"f_1131:chicken_2dffi_2dsyntax_2escm",(void*)f_1131}, {"f_1765:chicken_2dffi_2dsyntax_2escm",(void*)f_1765}, {"f_1761:chicken_2dffi_2dsyntax_2escm",(void*)f_1761}, {"f_1587:chicken_2dffi_2dsyntax_2escm",(void*)f_1587}, {"f_1581:chicken_2dffi_2dsyntax_2escm",(void*)f_1581}, {"f_827:chicken_2dffi_2dsyntax_2escm",(void*)f_827}, {"f_824:chicken_2dffi_2dsyntax_2escm",(void*)f_824}, {"f_821:chicken_2dffi_2dsyntax_2escm",(void*)f_821}, {"f_1700:chicken_2dffi_2dsyntax_2escm",(void*)f_1700}, {"f_1303:chicken_2dffi_2dsyntax_2escm",(void*)f_1303}, {"f_1573:chicken_2dffi_2dsyntax_2escm",(void*)f_1573}, {"f_1318:chicken_2dffi_2dsyntax_2escm",(void*)f_1318}, {"f_1616:chicken_2dffi_2dsyntax_2escm",(void*)f_1616}, {"f_1614:chicken_2dffi_2dsyntax_2escm",(void*)f_1614}, {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| sprintf 1 S| map 9 o|eliminated procedure checks: 98 o|specializations: o| 5 (cdr pair) o| 1 (##sys#check-output-port * * *) o| 1 (= fixnum fixnum) o| 1 (cdddr (pair * (pair * pair))) o| 1 (##sys#check-list (or pair list) *) o| 3 (cddr (pair * pair)) o| 2 (cadr (pair * pair)) o| 5 (car pair) (o e)|safe calls: 191 o|Removed `not' forms: 2 o|inlining procedure: k947 o|contracted procedure: "(chicken-ffi-syntax.scm:274) g420429" o|inlining procedure: k947 o|inlining procedure: k1038 o|contracted procedure: "(chicken-ffi-syntax.scm:260) g379388" o|propagated global variable: g396397 ##compiler#foreign-type->scrutiny-type o|inlining procedure: k1038 o|inlining procedure: k1133 o|contracted procedure: "(chicken-ffi-syntax.scm:246) g345354" o|inlining procedure: k1133 o|inlining procedure: k1224 o|contracted procedure: "(chicken-ffi-syntax.scm:232) g304313" o|propagated global variable: g321322 ##compiler#foreign-type->scrutiny-type o|inlining procedure: k1224 o|contracted procedure: k1323 o|inlining procedure: k1320 o|inlining procedure: k1320 o|inlining procedure: k1336 o|contracted procedure: "(chicken-ffi-syntax.scm:218) g263272" o|propagated global variable: g280281 ##compiler#foreign-type->scrutiny-type o|inlining procedure: k1336 o|inlining procedure: k1370 o|inlining procedure: k1370 o|inlining procedure: k1402 o|inlining procedure: k1402 o|inlining procedure: k1528 o|inlining procedure: k1528 o|substituted constant variable: a1583 o|substituted constant variable: a1584 o|removed unused formal parameters: (_136) o|inlining procedure: k1658 o|inlining procedure: k1658 o|substituted constant variable: a1686 o|inlining procedure: k1702 o|inlining procedure: k1702 o|inlining procedure: k1725 o|removed unused parameter to known procedure: _136 "(chicken-ffi-syntax.scm:115) g125134" o|inlining procedure: k1725 o|inlining procedure: k1805 o|inlining procedure: k1805 o|inlining procedure: k1867 o|inlining procedure: k1900 o|inlining procedure: k1900 o|inlining procedure: k1867 o|inlining procedure: k1990 o|inlining procedure: k1990 o|inlining procedure: k2002 o|contracted procedure: "(chicken-ffi-syntax.scm:75) g6675" o|inlining procedure: k2002 o|inlining procedure: k2051 o|contracted procedure: "(chicken-ffi-syntax.scm:73) g3948" o|inlining procedure: k2051 o|inlining procedure: k2083 o|inlining procedure: k2083 o|contracted procedure: k2109 o|inlining procedure: k2112 o|inlining procedure: k2112 o|replaced variables: 196 o|removed binding forms: 82 o|substituted constant variable: r13212141 o|substituted constant variable: r13212141 o|substituted constant variable: r17032158 o|substituted constant variable: r18062163 o|substituted constant variable: r18062163 o|substituted constant variable: r19012168 o|substituted constant variable: r19012168 o|substituted constant variable: r21132184 o|replaced variables: 4 o|removed binding forms: 213 o|removed call to pure procedure with unused result: "(chicken-ffi-syntax.scm:115) slot" o|replaced variables: 12 o|removed binding forms: 12 o|contracted procedure: k1750 o|removed binding forms: 13 o|removed binding forms: 1 o|simplifications: ((if . 6) (##core#call . 197)) o| call simplifications: o| null? o| length o| eq? o| symbol? 2 o| cdr 6 o| cddr 3 o| not o| list 2 o| cdddr 3 o| caddr 9 o| ##sys#check-list 8 o| pair? 15 o| car 10 o| cons 19 o| ##sys#setslot 9 o| ##sys#slot 26 o| ##sys#cons 23 o| cadr 16 o| string? 4 o| ##sys#list 38 o|contracted procedure: k866 o|contracted procedure: k870 o|contracted procedure: k877 o|contracted procedure: k884 o|contracted procedure: k911 o|contracted procedure: k926 o|contracted procedure: k901 o|contracted procedure: k905 o|contracted procedure: k941 o|contracted procedure: k950 o|contracted procedure: k953 o|contracted procedure: k956 o|contracted procedure: k964 o|contracted procedure: k972 o|contracted procedure: k920 o|contracted procedure: k979 o|contracted procedure: k1006 o|contracted procedure: k1017 o|contracted procedure: k996 o|contracted procedure: k1000 o|contracted procedure: k1032 o|contracted procedure: k1041 o|contracted procedure: k1044 o|contracted procedure: k1047 o|contracted procedure: k1055 o|contracted procedure: k1063 o|contracted procedure: k1070 o|contracted procedure: k1097 o|contracted procedure: k1112 o|contracted procedure: k1087 o|contracted procedure: k1091 o|contracted procedure: k1127 o|contracted procedure: k1136 o|contracted procedure: k1139 o|contracted procedure: k1142 o|contracted procedure: k1150 o|contracted procedure: k1158 o|contracted procedure: k1106 o|contracted procedure: k1165 o|contracted procedure: k1192 o|contracted procedure: k1203 o|contracted procedure: k1182 o|contracted procedure: k1186 o|contracted procedure: k1218 o|contracted procedure: k1227 o|contracted procedure: k1230 o|contracted procedure: k1233 o|contracted procedure: k1241 o|contracted procedure: k1249 o|contracted procedure: k1256 o|contracted procedure: k1278 o|contracted procedure: k1281 o|contracted procedure: k1291 o|contracted procedure: k1295 o|contracted procedure: k1305 o|contracted procedure: k1313 o|contracted procedure: k1320 o|contracted procedure: k1339 o|contracted procedure: k1342 o|contracted procedure: k1345 o|contracted procedure: k1353 o|contracted procedure: k1361 o|contracted procedure: k1373 o|contracted procedure: k1395 o|contracted procedure: k1391 o|contracted procedure: k1376 o|contracted procedure: k1379 o|contracted procedure: k1387 o|contracted procedure: k1402 o|contracted procedure: k1432 o|contracted procedure: k1417 o|contracted procedure: k1428 o|contracted procedure: k1424 o|contracted procedure: k1446 o|contracted procedure: k1460 o|contracted procedure: k1481 o|contracted procedure: k1477 o|contracted procedure: k1497 o|contracted procedure: k1508 o|contracted procedure: k1520 o|contracted procedure: k1524 o|contracted procedure: k1531 o|contracted procedure: k1537 o|contracted procedure: k1575 o|contracted procedure: k1563 o|contracted procedure: k1567 o|contracted procedure: k1608 o|contracted procedure: k1621 o|contracted procedure: k1626 o|contracted procedure: k1638 o|contracted procedure: k1688 o|contracted procedure: k1661 o|contracted procedure: k1668 o|contracted procedure: k1672 o|contracted procedure: k1679 o|contracted procedure: k1683 o|contracted procedure: k1696 o|contracted procedure: k1692 o|contracted procedure: k1719 o|contracted procedure: k1705 o|contracted procedure: k1712 o|contracted procedure: k1728 o|contracted procedure: k1731 o|contracted procedure: k1734 o|contracted procedure: k1742 o|contracted procedure: k1766 o|contracted procedure: k1769 o|contracted procedure: k1828 o|contracted procedure: k1775 o|contracted procedure: k1793 o|contracted procedure: k1789 o|contracted procedure: k1801 o|contracted procedure: k1808 o|contracted procedure: k1815 o|contracted procedure: k1805 o|contracted procedure: k1848 o|contracted procedure: k1858 o|contracted procedure: k1873 o|contracted procedure: k1924 o|contracted procedure: k1888 o|contracted procedure: k1884 o|contracted procedure: k1896 o|contracted procedure: k1903 o|contracted procedure: k1914 o|contracted procedure: k1910 o|contracted procedure: k1900 o|contracted procedure: k1930 o|contracted procedure: k1933 o|contracted procedure: k1950 o|contracted procedure: k1954 o|contracted procedure: k2083 o|contracted procedure: k1958 o|contracted procedure: k2034 o|contracted procedure: k2042 o|contracted procedure: k1962 o|contracted procedure: k1978 o|contracted procedure: k1990 o|contracted procedure: k1974 o|contracted procedure: k1966 o|contracted procedure: k1946 o|contracted procedure: k2005 o|contracted procedure: k2027 o|contracted procedure: k2023 o|contracted procedure: k2008 o|contracted procedure: k2011 o|contracted procedure: k2019 o|contracted procedure: k2054 o|contracted procedure: k2076 o|contracted procedure: k2072 o|contracted procedure: k2057 o|contracted procedure: k2060 o|contracted procedure: k2068 o|contracted procedure: k2115 o|contracted procedure: k2123 o|simplifications: ((let . 18)) o|removed binding forms: 154 o|inlining procedure: k1797 o|inlining procedure: k1797 o|inlining procedure: k1892 o|inlining procedure: k1892 o|replaced variables: 57 o|removed binding forms: 36 o|replaced variables: 6 o|removed binding forms: 3 o|customizable procedures: (k1861 k1864 map-loop3351 map-loop6078 g125134 map-loop119137 k1504 k1269 map-loop228245 map-loop257282 k1301 map-loop298323 map-loop339357 map-loop373398 map-loop414432) o|calls to known targets: 32 o|identified direct recursive calls: f_1368 1 o|identified direct recursive calls: f_2000 1 o|identified direct recursive calls: f_2049 1 o|fast box initializations: 9 */ /* end of file */ chicken-4.12.0/LICENSE0000644000175000017500000003235313052302367014024 0ustar sjamaansjamaan== Main license CHICKEN falls under the following main license: Copyright (c) 2007-2017, 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. srfi-1.scm: Copyright (c) 1998, 1999 by Olin Shivers. You may do as you please with this code as long as you do not remove this copyright notice or hold me liable for its use. Please send bug reports to shivers@ai.mit.edu. srfi-13.scm, srfi-14.scm: Copyright (c) 1988-1994 Massachusetts Institute of Technology. Copyright (c) 1988-1995 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and Computer Science. Permission to copy and modify this software, to redistribute either the original software or a modified version, and to use this software 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. Users of this software agree to make their best efforts (a) to return to the MIT Scheme project any improvements or extensions that they make, so that these may be included in future releases; and (b) to inform MIT of noteworthy uses of this software. 3. All materials developed as a consequence of the use of this software shall duly acknowledge such use, in accordance with the usual standards of acknowledging credit in academic research. 4. MIT has made no warrantee or representation that the operation of this software will be error-free, and MIT is under no obligation to provide any services, by way of maintenance, update, or otherwise. 5. In conjunction with products arising from the use of this material, there shall be no use of the name of the Massachusetts Institute of Technology nor of any adaptation thereof in any advertising, promotional, or sales literature without prior written consent from MIT in each case. srfi-13.scm: Copyright (c) 1998, 1999, 2000 Olin Shivers. All rights reserved. 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/srfi-13-tests.scm: Copyright (c) 2000-2003 Shiro Kawai, 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. 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-4.12.0/c-platform.scm0000644000175000017500000014533413052306173015572 0ustar sjamaansjamaan;;;; c-platform.scm - Platform specific parameters and definitions ; ; Copyright (c) 2008-2017, 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 platform)) (include "compiler-namespace") (include "tweaks") ;;; Parameters: (define 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#make-promise ##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#foreign-integer-argument ##sys#call-with-current-continuation) ) ) (define default-debugging-declarations '((##core#declare '(uses debugger) '(bound-to-procedure ##sys#push-debug-frame ##sys#pop-debug-frame ##sys#check-debug-entry ##sys#check-debug-assignment ##sys#register-debug-lambdas ##sys#register-debug-variables ##sys#debug-call) ) ) ) (define default-profiling-declarations '((##core#declare (uses profiler) (bound-to-procedure ##sys#profile-entry ##sys#profile-exit) ) ) ) (define units-used-by-default '(library eval chicken-syntax)) (define words-per-flonum 4) (define unlikely-variables '(unquote unquote-splicing)) (define eq-inline-operator "C_eqp") (define 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") ) ) (define 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 scrutinize ; OBSOLETE no-argc-checks no-procedure-checks no-procedure-checks-for-toplevel-bindings module 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 setup-mode no-module-registration) ) (define valid-compiler-options-with-argument '(debug output-file include-path heap-size stack-size unit uses keyword-style require-extension inline-limit profile-name parenthesis-synonyms prelude postlude prologue epilogue nursery extend feature no-feature types emit-import-library emit-inline-file static-extension consult-inline-file emit-type-file ffi-define ffi-include-path) ) ;;; Standard and extended bindings: (define default-standard-bindings '(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 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-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) ) (define default-extended-bindings '(bitwise-and alist-cons xcons bitwise-ior bitwise-xor bitwise-not add1 sub1 fx+ fx- fx* fx/ fx+? fx-? fx*? fx/? fxmod o fp/? fx= fx> fx< fx>= fx<= fixnum? fxneg fxmax fxmin identity fp+ fp- fp* fp/ fpmin fpmax fpneg fp> fp< fp= fp>= fp<= fxand fxnot fxior fxxor fxshr fxshl bit-set? fxodd? fxeven? fpfloor fpceiling fptruncate fpround fpsin fpcos fptan fpasin fpacos fpatan fpatan2 fpexp fpexpt fplog fpsqrt fpabs fpinteger? arithmetic-shift void flush-output thread-specific thread-specific-set! not-pair? atom? null-list? print print* error proper-list? call/cc blob-size u8vector->blob/shared s8vector->blob/shared u16vector->blob/shared s16vector->blob/shared u32vector->blob/shared s32vector->blob/shared f32vector->blob/shared f64vector->blob/shared blob->u8vector/shared blob->s8vector/shared blob->u16vector/shared blob->s16vector/shared blob->u32vector/shared blob->s32vector/shared blob->f32vector/shared blob->f64vector/shared block-ref block-set! number-of-slots substring-index substring-index-ci hash-table-ref any? read-string substring=? substring-ci=? first second third fourth make-record-instance foldl foldr u8vector-length s8vector-length u16vector-length s16vector-length u32vector-length s32vector-length f32vector-length f64vector-length setter u8vector-ref s8vector-ref u16vector-ref s16vector-ref u32vector-ref s32vector-ref f32vector-ref f64vector-ref f32vector-set! f64vector-set! u8vector-set! s8vector-set! u16vector-set! s16vector-set! u32vector-set! s32vector-set! locative-ref locative-set! locative->object locative? pointer->object flonum? finite? address->pointer pointer->address pointer+ pointer=? pointer-u8-ref pointer-s8-ref pointer-u16-ref pointer-s16-ref pointer-u32-ref pointer-s32-ref pointer-f32-ref pointer-f64-ref pointer-u8-set! pointer-s8-set! pointer-u16-set! pointer-s16-set! pointer-u32-set! pointer-s32-set! pointer-f32-set! pointer-f64-set! current-error-port current-thread printf sprintf format fprintf get-keyword) ) (define internal-bindings '(##sys#slot ##sys#setslot ##sys#block-ref ##sys#block-set! ##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#fits-in-int? ##sys#fits-in-unsigned-int? ##sys#flonum-in-fixnum-range? ##sys#fudge ##sys#immediate? ##sys#context-switch ##sys#make-structure ##sys#apply ##sys#apply-values ##sys#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-integer-argument ##sys#foreign-unsigned-integer-argument ##sys#peek-fixnum ##sys#setislot ##sys#poke-integer ##sys#permanent? ##sys#values ##sys#poke-double ##sys#intern-symbol ##sys#make-symbol ##sys#null-pointer? ##sys#peek-byte ##sys#file-exists?) ) (define non-foldable-bindings '(vector cons list string make-vector make-string string->symbol values current-input-port current-output-port read-char write-char printf fprintf format apply call-with-current-continuation set-car! set-cdr! write-char newline write display peek-char char-ready? read read-char for-each map string-set! vector-set! string-fill! vector-fill! open-input-file open-output-file close-input-port close-output-port call-with-input-port call-with-output-port call-with-values eval ##sys#slot ##sys#setslot ##sys#call-with-current-continuation ##sys#fudge flush-output print void u8vector->blob/shared s8vector->blob/shared u16vector->blob/shared s16vector->blob/shared u32vector->blob/shared f32vector->blob/shared f64vector->blob/shared s32vector->blob/shared read-string read-string! o address->pointer pointer->address ##sys#make-structure print* ##sys#make-vector ##sys#apply ##sys#setislot ##sys#block-ref ##sys#byte ##sys#setbyte ##sys#get-keyword get-keyword u8vector-length s8vector-length u16vector-length s16vector-length u32vector-length s32vector-length f32vector-length f64vector-length ##sys#apply-values ##sys#setter setter f32vector-set! f64vector-set! u8vector-ref s8vector-ref u16vector-ref s16vector-ref u32vector-ref s32vector-ref u8vector-set! s8vector-set! u16vector-set! s16vector-set! u32vector-set! s32vector-set! ##sys#intern-symbol ##sys#make-symbol make-record-instance error ##sys#block-set! current-error-port current-thread pointer-u8-ref pointer-u8-set! pointer-s8-ref pointer-s8-set! pointer-u16-ref pointer-u16-set! pointer-s16-ref pointer-s16-set! pointer-u32-ref pointer-u32-set! pointer-s32-ref pointer-s32-set! pointer-f32-ref pointer-f32-set! pointer-f64-ref pointer-f64-set!)) (define foldable-bindings (lset-difference eq? (lset-union eq? default-standard-bindings default-extended-bindings) non-foldable-bindings) ) (for-each (cut mark-variable <> '##compiler#pure '#t) '(##sys#slot ##sys#block-ref ##sys#size ##sys#byte ##sys#pointer? ##sys#generic-structure? ##sys#fits-in-int? ##sys#fits-in-unsigned-int? ##sys#flonum-in-fixnum-range? ##sys#fudge ##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: (rewrite '+ 19 0 "C_fixnum_plus" "C_u_fixnum_plus" #f) (rewrite '* 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 (remove (lambda (x) (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 '- 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 [(null? callargs) #f] [(and (null? (cdr callargs)) (eq? number-type 'fixnum)) (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) (remove (lambda (x) (and (eq? 'quote (node-class x)) (zero? (first (node-parameters x))) ) ) (cdr callargs) ) ) ] ) (and (eq? number-type 'fixnum) (>= (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) ) ) ) ) ] ) ) ) (rewrite '/ 8 (lambda (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 (>= (length callargs) 2) (let ([callargs (cons (car callargs) (remove (lambda (x) (and (eq? 'quote (node-class x)) (eq? 1 (first (node-parameters x))) ) ) (cdr callargs) ) ) ] ) (and (eq? number-type 'fixnum) (>= (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 '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] ;; (quotient ) -> ((##core#proc "C_quotient") ) (and (= (length callargs) 2) (if (eq? 'fixnum number-type) (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) ) ) ) ) (make-node '##core#call (list #t) (cons* (make-node '##core#proc '("C_quotient" #t) '()) cont callargs) ) ) ) ) ) (let () ;; (add1 ) -> (##core#inline "C_fixnum_increase" ) [fixnum-mode] ;; (add1 ) -> (##core#inline "C_u_fixnum_increase" ) [fixnum-mode + unsafe] ;; (add1 ) -> (##core#inline_allocate ("C_a_i_plus" 4) 1) ;; (sub1 ) -> (##core#inline "C_fixnum_decrease" ) [fixnum-mode] ;; (sub1 ) -> (##core#inline "C_u_fixnum_decrease" ) [fixnum-mode + unsafe] ;; (sub1 ) -> (##core#inline_allocate ("C_a_i_minus" 4) 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 4) (list (car callargs) (qnode 1)))))))) (rewrite 'add1 8 (op1 "C_fixnum_increase" "C_u_fixnum_increase" "C_a_i_plus")) (rewrite 'sub1 8 (op1 "C_fixnum_decrease" "C_u_fixnum_decrease" "C_a_i_minus"))) (let () (define (eqv?-id db classargs cont callargs) ;; (eqv? ) -> (quote #t) ;; (eqv? ...) -> (##core#inline "C_eqp" ...) [one argument is a constant and not a flonum] (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)) (not (flonum? (first (node-parameters arg1)))) ) (and (eq? 'quote (node-class arg2)) (not (flonum? (first (node-parameters arg2)))) ) ) (make-node '##core#call (list #t) (list cont (make-node '##core#inline '("C_eqp") callargs)) ) ) ) ) ) ) (rewrite 'eqv? 8 eqv?-id) (rewrite '##sys#eqv? 8 eqv?-id)) (rewrite '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 '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 '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 'cadr "C_i_cadr" "C_u_i_cadr") (rewrite-c..r 'caddr "C_i_caddr" "C_u_i_caddr") (rewrite-c..r 'cadddr "C_i_cadddr" "C_u_i_cadddr") (rewrite-c..r 'first "C_i_car" "C_u_i_car") (rewrite-c..r 'second "C_i_cadr" "C_u_i_cadr") (rewrite-c..r 'third "C_i_caddr" "C_u_i_caddr") (rewrite-c..r 'fourth "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 '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 (get db sym 'value)) ) (and (eq? '##core#lambda (node-class val)) (let ((llist (third (node-parameters val)))) (and (proper-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 'call-with-values 8 rewrite-c-w-v) (rewrite '##sys#call-with-values 8 rewrite-c-w-v) ) (rewrite 'values 13 #f "C_values" #t) (rewrite '##sys#values 13 #f "C_values" #t) (rewrite 'call-with-values 13 2 "C_u_call_with_values" #f) (rewrite '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 '##sys#continuation-graft 13 2 "C_continuation_graft" #t) (rewrite 'caar 2 1 "C_u_i_caar" #f) (rewrite 'cdar 2 1 "C_u_i_cdar" #f) (rewrite 'cddr 2 1 "C_u_i_cddr" #f) (rewrite 'caaar 2 1 "C_u_i_caaar" #f) (rewrite 'cadar 2 1 "C_u_i_cadar" #f) (rewrite 'caddr 2 1 "C_u_i_caddr" #f) (rewrite 'cdaar 2 1 "C_u_i_cdaar" #f) (rewrite 'cdadr 2 1 "C_u_i_cdadr" #f) (rewrite 'cddar 2 1 "C_u_i_cddar" #f) (rewrite 'cdddr 2 1 "C_u_i_cdddr" #f) (rewrite 'caaaar 2 1 "C_u_i_caaaar" #f) (rewrite 'caadar 2 1 "C_u_i_caadar" #f) (rewrite 'caaddr 2 1 "C_u_i_caaddr" #f) (rewrite 'cadaar 2 1 "C_u_i_cadaar" #f) (rewrite 'cadadr 2 1 "C_u_i_cadadr" #f) (rewrite 'caddar 2 1 "C_u_i_caddar" #f) (rewrite 'cadddr 2 1 "C_u_i_cadddr" #f) (rewrite 'cdaaar 2 1 "C_u_i_cdaaar" #f) (rewrite 'cdaadr 2 1 "C_u_i_cdaadr" #f) (rewrite 'cdadar 2 1 "C_u_i_cdadar" #f) (rewrite 'cdaddr 2 1 "C_u_i_cdaddr" #f) (rewrite 'cddaar 2 1 "C_u_i_cddaar" #f) (rewrite 'cddadr 2 1 "C_u_i_cddadr" #f) (rewrite 'cdddar 2 1 "C_u_i_cdddar" #f) (rewrite 'cddddr 2 1 "C_u_i_cddddr" #f) (rewrite 'caar 2 1 "C_i_caar" #t) (rewrite 'cdar 2 1 "C_i_cdar" #t) (rewrite 'cddr 2 1 "C_i_cddr" #t) (rewrite 'cdddr 2 1 "C_i_cdddr" #t) (rewrite 'cddddr 2 1 "C_i_cddddr" #t) (rewrite 'cdr 7 1 "C_slot" 1 #f) (rewrite 'cdr 2 1 "C_i_cdr" #t) (rewrite 'eq? 1 2 "C_eqp") (rewrite '##sys#eq? 1 2 "C_eqp") (rewrite 'eqv? 1 2 "C_i_eqvp") (rewrite '##sys#eqv? 1 2 "C_i_eqvp") (rewrite 'list-ref 2 2 "C_u_i_list_ref" #f) (rewrite 'list-ref 2 2 "C_i_list_ref" #t) (rewrite 'null? 2 1 "C_i_nullp" #t) (rewrite '##sys#null? 2 1 "C_i_nullp" #t) (rewrite 'length 2 1 "C_i_length" #t) (rewrite 'not 2 1 "C_i_not"#t ) (rewrite 'char? 2 1 "C_charp" #t) (rewrite 'string? 2 1 "C_i_stringp" #t) (rewrite 'locative? 2 1 "C_i_locativep" #t) (rewrite 'symbol? 2 1 "C_i_symbolp" #t) (rewrite 'vector? 2 1 "C_i_vectorp" #t) (rewrite '##sys#vector? 2 1 "C_i_vectorp" #t) (rewrite 'pair? 2 1 "C_i_pairp" #t) (rewrite '##sys#pair? 2 1 "C_i_pairp" #t) (rewrite 'procedure? 2 1 "C_i_closurep" #t) (rewrite 'port? 2 1 "C_i_portp" #t) (rewrite 'boolean? 2 1 "C_booleanp" #t) (rewrite 'number? 2 1 "C_i_numberp" #t) (rewrite 'complex? 2 1 "C_i_numberp" #t) (rewrite 'rational? 2 1 "C_i_rationalp" #t) (rewrite 'real? 2 1 "C_i_numberp" #t) (rewrite 'integer? 2 1 "C_i_integerp" #t) (rewrite 'flonum? 2 1 "C_i_flonump" #t) (rewrite 'fixnum? 2 1 "C_fixnump" #t) (rewrite 'finite? 2 1 "C_i_finitep" #f) (rewrite '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 'exact? 2 1 "C_fixnump" #f) (rewrite 'exact? 2 1 "C_i_exactp" #t) (rewrite 'exact? 2 1 "C_u_i_exactp" #f) (rewrite 'inexact? 2 1 "C_nfixnump" #f) (rewrite 'inexact? 2 1 "C_i_inexactp" #t) (rewrite 'inexact? 2 1 "C_u_i_inexactp" #f) (rewrite 'list? 2 1 "C_i_listp" #t) (rewrite 'proper-list? 2 1 "C_i_listp" #t) (rewrite 'eof-object? 2 1 "C_eofp" #t) (rewrite 'string-ref 2 2 "C_subchar" #f) (rewrite 'string-ref 2 2 "C_i_string_ref" #t) (rewrite 'string-set! 2 3 "C_setsubchar" #f) (rewrite 'string-set! 2 3 "C_i_string_set" #t) (rewrite 'vector-ref 2 2 "C_slot" #f) (rewrite 'vector-ref 2 2 "C_i_vector_ref" #t) (rewrite 'char=? 2 2 "C_u_i_char_equalp" #f) (rewrite 'char=? 2 2 "C_i_char_equalp" #t) (rewrite 'char>? 2 2 "C_u_i_char_greaterp" #f) (rewrite 'char>? 2 2 "C_i_char_greaterp" #t) (rewrite 'char=? 2 2 "C_u_i_char_greater_or_equal_p" #f) (rewrite 'char>=? 2 2 "C_i_char_greater_or_equal_p" #t) (rewrite 'char<=? 2 2 "C_u_i_char_less_or_equal_p" #f) (rewrite '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 'fxnot 2 1 "C_fixnum_not" #t) (rewrite 'fx* 2 2 "C_fixnum_times" #t) (rewrite 'fx+? 2 2 "C_i_o_fixnum_plus" #t) (rewrite 'fx-? 2 2 "C_i_o_fixnum_difference" #t) (rewrite 'fx*? 2 2 "C_i_o_fixnum_times" #t) (rewrite 'fx/? 2 2 "C_i_o_fixnum_quotient" #t) (rewrite 'fx= 2 2 "C_eqp" #t) (rewrite 'fx> 2 2 "C_fixnum_greaterp" #t) (rewrite 'fx< 2 2 "C_fixnum_lessp" #t) (rewrite 'fx>= 2 2 "C_fixnum_greater_or_equal_p" #t) (rewrite 'fx<= 2 2 "C_fixnum_less_or_equal_p" #t) (rewrite 'fp= 2 2 "C_flonum_equalp" #f) (rewrite 'fp> 2 2 "C_flonum_greaterp" #f) (rewrite 'fp< 2 2 "C_flonum_lessp" #f) (rewrite 'fp>= 2 2 "C_flonum_greater_or_equal_p" #f) (rewrite 'fp<= 2 2 "C_flonum_less_or_equal_p" #f) (rewrite 'fxmax 2 2 "C_i_fixnum_max" #t) (rewrite 'fxmin 2 2 "C_i_fixnum_min" #t) (rewrite 'fpmax 2 2 "C_i_flonum_max" #f) (rewrite 'fpmin 2 2 "C_i_flonum_min" #f) (rewrite 'char-numeric? 2 1 "C_u_i_char_numericp" #t) (rewrite 'char-alphabetic? 2 1 "C_u_i_char_alphabeticp" #t) (rewrite 'char-whitespace? 2 1 "C_u_i_char_whitespacep" #t) (rewrite 'char-upper-case? 2 1 "C_u_i_char_upper_casep" #t) (rewrite 'char-lower-case? 2 1 "C_u_i_char_lower_casep" #t) (rewrite 'char-upcase 2 1 "C_u_i_char_upcase" #t) (rewrite 'char-downcase 2 1 "C_u_i_char_downcase" #t) (rewrite '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 'block-ref 2 2 "C_slot" #f) ; ok to be unsafe, lolevel is anyway (rewrite 'number-of-slots 2 1 "C_block_size" #f) (rewrite 'assv 14 'fixnum 2 "C_i_assq" "C_u_i_assq") (rewrite 'assv 2 2 "C_i_assv" #t) (rewrite 'memv 14 'fixnum 2 "C_i_memq" "C_u_i_memq") (rewrite 'memv 2 2 "C_i_memv" #t) (rewrite 'assq 17 2 "C_i_assq" "C_u_i_assq") (rewrite 'memq 17 2 "C_i_memq" "C_u_i_memq") (rewrite 'assoc 2 2 "C_i_assoc" #t) (rewrite 'member 2 2 "C_i_member" #t) (rewrite 'set-car! 4 '##sys#setslot 0) (rewrite 'set-cdr! 4 '##sys#setslot 1) (rewrite 'set-car! 17 2 "C_i_set_car" "C_u_i_set_car") (rewrite 'set-cdr! 17 2 "C_i_set_cdr" "C_u_i_set_cdr") (rewrite 'abs 14 'fixnum 1 "C_fixnum_abs" "C_fixnum_abs") (rewrite 'abs 16 1 "C_a_i_abs" #t words-per-flonum) (rewrite 'bitwise-xor 21 0 "C_fixnum_xor" "C_fixnum_xor" "C_a_i_bitwise_xor" words-per-flonum) (rewrite 'bitwise-and 21 -1 "C_fixnum_and" "C_u_fixnum_and" "C_a_i_bitwise_and" words-per-flonum) (rewrite 'bitwise-ior 21 0 "C_fixnum_or" "C_u_fixnum_or" "C_a_i_bitwise_ior" words-per-flonum) (rewrite 'bitwise-not 22 1 "C_a_i_bitwise_not" #t words-per-flonum "C_fixnum_not") (rewrite 'fp+ 16 2 "C_a_i_flonum_plus" #f words-per-flonum) (rewrite 'fp- 16 2 "C_a_i_flonum_difference" #f words-per-flonum) (rewrite 'fp* 16 2 "C_a_i_flonum_times" #f words-per-flonum) (rewrite 'fp/ 16 2 "C_a_i_flonum_quotient" #f words-per-flonum) (rewrite 'fp/? 16 2 "C_a_i_flonum_quotient_checked" #f words-per-flonum) (rewrite 'fpneg 16 1 "C_a_i_flonum_negate" #f words-per-flonum) (rewrite 'exp 16 1 "C_a_i_exp" #t words-per-flonum) (rewrite 'sin 16 1 "C_a_i_sin" #t words-per-flonum) (rewrite 'cos 16 1 "C_a_i_cos" #t words-per-flonum) (rewrite 'tan 16 1 "C_a_i_tan" #t words-per-flonum) (rewrite 'log 16 1 "C_a_i_log" #t words-per-flonum) (rewrite 'asin 16 1 "C_a_i_asin" #t words-per-flonum) (rewrite 'acos 16 1 "C_a_i_acos" #t words-per-flonum) (rewrite 'atan 16 1 "C_a_i_atan" #t words-per-flonum) (rewrite 'sqrt 16 1 "C_a_i_sqrt" #t words-per-flonum) (rewrite 'atan 16 2 "C_a_i_atan2" #t words-per-flonum) (rewrite 'zero? 5 "C_eqp" 0 'fixnum) (rewrite 'zero? 2 1 "C_i_zerop" #t) (rewrite 'zero? 2 1 "C_u_i_zerop" #f) (rewrite 'positive? 5 "C_fixnum_greaterp" 0 'fixnum) (rewrite 'positive? 5 "C_flonum_greaterp" 0 'flonum) (rewrite 'positive? 2 1 "C_i_positivep" #t) (rewrite 'positive? 2 1 "C_u_i_positivep" #f) (rewrite 'negative? 5 "C_fixnum_lessp" 0 'fixnum) (rewrite 'negative? 5 "C_flonum_lessp" 0 'flonum) (rewrite 'negative? 2 1 "C_i_negativep" #t) (rewrite 'negative? 2 1 "C_u_i_negativep" #f) (rewrite 'vector-length 6 "C_fix" "C_header_size" #f) (rewrite 'string-length 6 "C_fix" "C_header_size" #f) (rewrite 'char->integer 6 "C_fix" "C_character_code" #t) (rewrite 'integer->char 6 "C_make_character" "C_unfix" #t) (rewrite 'vector-length 2 1 "C_i_vector_length" #t) (rewrite '##sys#vector-length 2 1 "C_i_vector_length" #t) (rewrite 'string-length 2 1 "C_i_string_length" #t) (rewrite 'inexact->exact 2 1 "C_i_inexact_to_exact" #t) (rewrite '##sys#check-exact 2 1 "C_i_check_exact" #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-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 '= 9 "C_eqp" "C_i_equalp" #t #t) (rewrite '> 9 "C_fixnum_greaterp" "C_flonum_greaterp" #t #f) (rewrite '< 9 "C_fixnum_lessp" "C_flonum_lessp" #t #f) (rewrite '>= 9 "C_fixnum_greater_or_equal_p" "C_flonum_greater_or_equal_p" #t #f) (rewrite '<= 9 "C_fixnum_less_or_equal_p" "C_flonum_less_or_equal_p" #t #f) (rewrite 'setter 11 1 '##sys#setter #t) (rewrite 'for-each 11 2 '##sys#for-each #t) (rewrite 'map 11 2 '##sys#map #t) (rewrite 'block-set! 11 3 '##sys#setslot #t) (rewrite '##sys#block-set! 11 3 '##sys#setslot #f) (rewrite 'make-record-instance 11 #f '##sys#make-structure #f) (rewrite 'substring 11 3 '##sys#substring #f) (rewrite 'string-append 11 2 '##sys#string-append #f) (rewrite 'string->list 11 1 '##sys#string->list #t) (rewrite 'list->string 11 1 '##sys#list->string #t) (rewrite 'vector-set! 11 3 '##sys#setslot #f) (rewrite 'vector-set! 2 3 "C_i_vector_set" #t) (rewrite 'gcd 12 '##sys#gcd #t 2) (rewrite 'lcm 12 '##sys#lcm #t 2) (rewrite 'identity 12 #f #t 1) (rewrite 'gcd 18 0) (rewrite 'lcm 18 1) (rewrite 'list 18 '()) (rewrite '* 16 2 "C_a_i_times" #t 4) ; words-per-flonum (rewrite '+ 16 2 "C_a_i_plus" #t 4) ; words-per-flonum (rewrite '- 16 2 "C_a_i_minus" #t 4) ; words-per-flonum (rewrite '/ 16 2 "C_a_i_divide" #t 4) ; words-per-flonum (rewrite 'exact->inexact 16 1 "C_a_i_exact_to_inexact" #t 4) ; words-per-flonum (rewrite '= 17 2 "C_i_nequalp") (rewrite '> 17 2 "C_i_greaterp") (rewrite '< 17 2 "C_i_lessp") (rewrite '>= 17 2 "C_i_greater_or_equalp") (rewrite '<= 17 2 "C_i_less_or_equalp") (rewrite '= 13 #f "C_nequalp" #t) (rewrite '> 13 #f "C_greaterp" #t) (rewrite '< 13 #f "C_lessp" #t) (rewrite '>= 13 #f "C_greater_or_equal_p" #t) (rewrite '<= 13 #f "C_less_or_equal_p" #t) (rewrite '* 13 #f "C_times" #t) (rewrite '+ 13 #f "C_plus" #t) (rewrite '/ 13 '(1 . #f) "C_divide" #t) (rewrite '- 13 '(1 . #f) "C_minus" #t) (rewrite '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 '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 'even? 14 'fixnum 1 "C_i_fixnumevenp" "C_i_fixnumevenp") (rewrite 'odd? 14 'fixnum 1 "C_i_fixnumoddp" "C_i_fixnumoddp") (rewrite 'remainder 14 'fixnum 2 "C_fixnum_modulo" "C_fixnum_modulo") (rewrite 'even? 17 1 "C_i_evenp" "C_u_i_evenp") (rewrite 'odd? 17 1 "C_i_oddp" "C_u_i_oddp") (rewrite 'fxodd? 2 1 "C_i_fixnumoddp" #t) (rewrite 'fxeven? 2 1 "C_i_fixnumevenp" #t) (rewrite 'floor 15 'flonum 'fixnum 'fpfloor #f) (rewrite 'ceiling 15 'flonum 'fixnum 'fpceiling #f) (rewrite 'truncate 15 'flonum 'fixnum 'fptruncate #f) (rewrite 'fpsin 16 1 "C_a_i_flonum_sin" #f words-per-flonum) (rewrite 'fpcos 16 1 "C_a_i_flonum_cos" #f words-per-flonum) (rewrite 'fptan 16 1 "C_a_i_flonum_tan" #f words-per-flonum) (rewrite 'fpasin 16 1 "C_a_i_flonum_asin" #f words-per-flonum) (rewrite 'fpacos 16 1 "C_a_i_flonum_acos" #f words-per-flonum) (rewrite 'fpatan 16 1 "C_a_i_flonum_atan" #f words-per-flonum) (rewrite 'fpatan2 16 2 "C_a_i_flonum_atan2" #f words-per-flonum) (rewrite 'fpexp 16 1 "C_a_i_flonum_exp" #f words-per-flonum) (rewrite 'fpexpt 16 2 "C_a_i_flonum_expt" #f words-per-flonum) (rewrite 'fplog 16 1 "C_a_i_flonum_log" #f words-per-flonum) (rewrite 'fpsqrt 16 1 "C_a_i_flonum_sqrt" #f words-per-flonum) (rewrite 'fpabs 16 1 "C_a_i_flonum_abs" #f words-per-flonum) (rewrite 'fptruncate 16 1 "C_a_i_flonum_truncate" #f words-per-flonum) (rewrite 'fpround 16 1 "C_a_i_flonum_round" #f words-per-flonum) (rewrite 'fpceiling 16 1 "C_a_i_flonum_ceiling" #f words-per-flonum) (rewrite 'fpround 16 1 "C_a_i_flonum_floor" #f words-per-flonum) (rewrite 'string->number 8 (lambda (db classargs cont callargs) ;; (string->number X) -> (##core#inline_allocate ("C_a_i_string_to_number" 4) X 10) ;; (string->number X Y) -> (##core#inline_allocate ("C_a_i_string_to_number" 4) X Y) (define (build x y) (make-node '##core#call (list #t) (list cont (make-node '##core#inline_allocate '("C_a_i_string_to_number" 4) ; words-per-flonum (list x y))))) (case (length callargs) ((1) (build (first callargs) (qnode 10))) ((2) (build (first callargs) (second callargs))) (else #f)))) (rewrite 'cons 16 2 "C_a_i_cons" #t 3) (rewrite '##sys#cons 16 2 "C_a_i_cons" #t 3) (rewrite 'list 16 #f "C_a_i_list" #t '(0 3) #t) (rewrite '##sys#list 16 #f "C_a_i_list" #t '(0 3)) (rewrite '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 'string 16 #f "C_a_i_string" #t #t) ; the last #t is actually too much, but we don't care (rewrite 'address->pointer 16 1 "C_a_i_address_to_pointer" #f 2) (rewrite 'pointer->address 16 1 "C_a_i_pointer_to_address" #f words-per-flonum) (rewrite 'pointer+ 16 2 "C_a_u_i_pointer_inc" #f 2) (rewrite 'locative-ref 16 1 "C_a_i_locative_ref" #t words-per-flonum) (rewrite 'pointer-u8-ref 2 1 "C_u_i_pointer_u8_ref" #f) (rewrite 'pointer-s8-ref 2 1 "C_u_i_pointer_s8_ref" #f) (rewrite 'pointer-u16-ref 2 1 "C_u_i_pointer_u16_ref" #f) (rewrite 'pointer-s16-ref 2 1 "C_u_i_pointer_s16_ref" #f) (rewrite 'pointer-u8-set! 2 2 "C_u_i_pointer_u8_set" #f) (rewrite 'pointer-s8-set! 2 2 "C_u_i_pointer_s8_set" #f) (rewrite 'pointer-u16-set! 2 2 "C_u_i_pointer_u16_set" #f) (rewrite 'pointer-s16-set! 2 2 "C_u_i_pointer_s16_set" #f) (rewrite 'pointer-u32-set! 2 2 "C_u_i_pointer_u32_set" #f) (rewrite 'pointer-s32-set! 2 2 "C_u_i_pointer_s32_set" #f) (rewrite 'pointer-f32-set! 2 2 "C_u_i_pointer_f32_set" #f) (rewrite 'pointer-f64-set! 2 2 "C_u_i_pointer_f64_set" #f) (rewrite 'pointer-u32-ref 16 1 "C_a_u_i_pointer_u32_ref" #f words-per-flonum) (rewrite 'pointer-s32-ref 16 1 "C_a_u_i_pointer_s32_ref" #f words-per-flonum) (rewrite 'pointer-f32-ref 16 1 "C_a_u_i_pointer_f32_ref" #f words-per-flonum) (rewrite '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 'fx+ 17 2 "C_fixnum_plus" "C_u_fixnum_plus") (rewrite 'fx- 17 2 "C_fixnum_difference" "C_u_fixnum_difference") (rewrite 'fxshl 17 2 "C_fixnum_shift_left") (rewrite 'fxshr 17 2 "C_fixnum_shift_right") (rewrite 'fxneg 17 1 "C_fixnum_negate" "C_u_fixnum_negate") (rewrite 'fxxor 17 2 "C_fixnum_xor" "C_fixnum_xor") (rewrite 'fxand 17 2 "C_fixnum_and" "C_u_fixnum_and") (rewrite 'fxior 17 2 "C_fixnum_or" "C_u_fixnum_or") (rewrite 'fx/ 17 2 "C_fixnum_divide" "C_u_fixnum_divide") (rewrite 'fxmod 17 2 "C_fixnum_modulo" "C_u_fixnum_modulo") (rewrite '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_a_i_arithmetic_shift" ) ;; not in fixnum-mode: _ -> (##core#inline_allocate ("C_a_i_arithmetic_shift" words-per-flonum) ) (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_a_i_arithmetic_shift" words-per-flonum) 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 '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 'string=? 17 2 "C_i_string_equal_p" "C_u_i_string_equal_p") (rewrite 'string-ci=? 17 2 "C_i_string_ci_equal_p") (rewrite '##sys#fudge 17 1 "C_fudge") (rewrite '##sys#fits-in-int? 17 1 "C_fits_in_int_p") (rewrite '##sys#fits-in-unsigned-int? 17 1 "C_fits_in_unsigned_int_p") (rewrite '##sys#flonum-in-fixnum-range? 17 1 "C_flonum_in_fixnum_range_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 'locative->object 17 1 "C_i_locative_to_object") (rewrite '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-integer-argument 17 1 "C_i_foreign_integer_argumentp") (rewrite '##sys#foreign-unsigned-integer-argument 17 1 "C_i_foreign_unsigned_integer_argumentp") (rewrite 'blob-size 2 1 "C_block_size" #f) (rewrite 'u8vector-ref 2 2 "C_u_i_u8vector_ref" #f) (rewrite 's8vector-ref 2 2 "C_u_i_s8vector_ref" #f) (rewrite 'u16vector-ref 2 2 "C_u_i_u16vector_ref" #f) (rewrite 's16vector-ref 2 2 "C_u_i_s16vector_ref" #f) (rewrite 'f32vector-ref 16 2 "C_a_u_i_f32vector_ref" #f words-per-flonum) (rewrite 'f64vector-ref 16 2 "C_a_u_i_f64vector_ref" #f words-per-flonum) (rewrite 'u32vector-ref 22 2 "C_a_u_i_u32vector_ref" #f words-per-flonum "C_u_i_u32vector_ref") (rewrite 's32vector-ref 22 2 "C_a_u_i_s32vector_ref" #f words-per-flonum "C_u_i_s32vector_ref") (rewrite 'u8vector-set! 2 3 "C_u_i_u8vector_set" #f) (rewrite 's8vector-set! 2 3 "C_u_i_s8vector_set" #f) (rewrite 'u16vector-set! 2 3 "C_u_i_u16vector_set" #f) (rewrite 's16vector-set! 2 3 "C_u_i_s16vector_set" #f) (rewrite 'u32vector-set! 2 3 "C_u_i_u32vector_set" #f) (rewrite 's32vector-set! 2 3 "C_u_i_s32vector_set" #f) (rewrite 'f32vector-set! 2 3 "C_u_i_f32vector_set" #f) (rewrite 'f64vector-set! 2 3 "C_u_i_f64vector_set" #f) (rewrite 'u8vector-length 2 1 "C_u_i_8vector_length" #f) (rewrite 's8vector-length 2 1 "C_u_i_8vector_length" #f) (rewrite 'u16vector-length 2 1 "C_u_i_16vector_length" #f) (rewrite 's16vector-length 2 1 "C_u_i_16vector_length" #f) (rewrite 'u32vector-length 2 1 "C_u_i_32vector_length" #f) (rewrite 's32vector-length 2 1 "C_u_i_32vector_length" #f) (rewrite 'f32vector-length 2 1 "C_u_i_32vector_length" #f) (rewrite 'f64vector-length 2 1 "C_u_i_64vector_length" #f) (rewrite 'not-pair? 17 1 "C_i_not_pair_p") (rewrite 'atom? 17 1 "C_i_not_pair_p") (rewrite 'null-list? 17 1 "C_i_null_list_p" "C_i_nullp") (rewrite 'u8vector->blob/shared 7 1 "C_slot" 1 #f) (rewrite 's8vector->blob/shared 7 1 "C_slot" 1 #f) (rewrite 'u16vector->blob/shared 7 1 "C_slot" 1 #f) (rewrite 's16vector->blob/shared 7 1 "C_slot" 1 #f) (rewrite 'u32vector->blob/shared 7 1 "C_slot" 1 #f) (rewrite 's32vector->blob/shared 7 1 "C_slot" 1 #f) (rewrite 'f32vector->blob/shared 7 1 "C_slot" 1 #f) (rewrite '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 'make-vector 8 rewrite-make-vector) (rewrite '##sys#make-vector 8 rewrite-make-vector) ) (rewrite 'thread-specific 7 1 "C_slot" 10 #f) (rewrite 'thread-specific-set! 20 2 "C_i_setslot" 10 #f) (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 (get db (first (node-parameters val)) 'value)] [(eq? '##core#lambda (node-class proc))] ) (let ([llist (third (node-parameters proc))]) (decompose-lambda-list llist (lambda (vars argc rest) (and (= argc 2) (let ([var (or rest (second llist))]) (and (not (get db var 'references)) (not (get db var 'assigned)) (not (get db var 'inline-transient)) (make-node '##core#call (list #t) (list val cont (qnode #f)) ) ) ) ) ) ) ) ) ) ) ) ) (rewrite 'call-with-current-continuation 8 rewrite-call/cc) (rewrite 'call/cc 8 rewrite-call/cc) ) (declare (hide setter-map)) (define setter-map '((car . set-car!) (cdr . set-cdr!) (hash-table-ref . hash-table-set!) (block-ref . block-set!) (locative-ref . locative-set!) (u8vector-ref . u8vector-set!) (s8vector-ref . s8vector-set!) (u16vector-ref . u16vector-set!) (s16vector-ref . s16vector-set!) (u32vector-ref . u32vector-set!) (s32vector-ref . s32vector-set!) (f32vector-ref . f32vector-set!) (f64vector-ref . f64vector-set!) (pointer-u8-ref . pointer-u8-set!) (pointer-s8-ref . pointer-s8-set!) (pointer-u16-ref . pointer-u16-set!) (pointer-s16-ref . pointer-s16-set!) (pointer-u32-ref . pointer-u32-set!) (pointer-s32-ref . pointer-s32-set!) (pointer-f32-ref . pointer-f32-set!) (pointer-f64-ref . pointer-f64-set!) (string-ref . string-set!) (vector-ref . vector-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 'void 3 '##sys#undefined-value 0) (rewrite '##sys#void 3 '##sys#undefined-value #f) (rewrite 'current-thread 3 '##sys#current-thread 0) (rewrite 'current-input-port 3 '##sys#standard-input 0) (rewrite 'current-output-port 3 '##sys#standard-output 0) (rewrite 'current-error-port 3 '##sys#standard-error 0) (rewrite 'any? 8 (lambda (db classargs cont callargs) (and (= 1 (length callargs)) (let ((arg (car callargs))) (make-node '##core#call (list #t) (list cont (if (and (eq? '##core#variable (node-class arg)) (not (get db (car (node-parameters arg)) 'global)) ) (qnode #t) (make-node '##core#inline '("C_anyp") (list arg)) ) ) ) ) ) ) ) (rewrite 'bit-set? 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_setp" "C_i_bit_setp")) callargs) ) ) ) ) ) (rewrite 'read-char 23 0 '##sys#read-char/port '##sys#standard-input) (rewrite 'write-char 23 1 '##sys#write-char/port '##sys#standard-output) (rewrite 'read-string 23 1 '##sys#read-string/port '##sys#standard-input) (rewrite 'substring=? 23 2 '##sys#substring=? 0 0 #f) (rewrite 'substring-ci=? 23 2 '##sys#substring-ci=? 0 0 #f) (rewrite 'substring-index 23 2 '##sys#substring-index 0) (rewrite 'substring-index-ci 23 2 '##sys#substring-index-ci 0) (rewrite 'get-keyword 7 2 "C_i_get_keyword" #f #t) (rewrite '##sys#get-keyword 7 2 "C_i_get_keyword" #f #t) (rewrite 'alist-cons 8 (lambda (db classargs cont callargs) (and (= 3 (length callargs)) (make-node '##core#call (list #t) (list cont (make-node '##core#inline_allocate '("C_a_i_cons" 3) (list (make-node '##core#inline_allocate '("C_a_i_cons" 3) (list (first callargs) (second callargs))) (third callargs)))))))) (rewrite 'xcons 8 (lambda (db classargs cont callargs) (and (= 2 (length callargs)) (let ((tmp (gensym))) (make-node 'let (list tmp) ; preserve order of argument evaluation (list (first callargs) (make-node '##core#call (list #t) (list cont (make-node '##core#inline_allocate '("C_a_i_cons" 3) (list (second callargs) (varnode tmp))))))))))) chicken-4.12.0/support.c0000644000175000017500000344400013052306472014677 0ustar sjamaansjamaan/* Generated from support.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: support.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -no-lambda-info -extend private-namespace.scm -no-trace -output-file support.c unit: 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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[569]; 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 stub3735(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 k5685 */ C_regparm static C_word C_fcall stub346(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 k5678 */ C_regparm static C_word C_fcall stub341(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(f_4985) static void C_ccall f_4985(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_11991) static void C_fcall f_11991(C_word t0,C_word t1) 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_11994) static void C_ccall f_11994(C_word c,C_word *av) C_noret; C_noret_decl(f_12059) static void C_fcall f_12059(C_word t0,C_word t1) 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_4890) static void C_ccall f_4890(C_word c,C_word *av) C_noret; C_noret_decl(f_4895) static void C_fcall f_4895(C_word t0,C_word t1) 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_4988) static void C_ccall f_4988(C_word c,C_word *av) 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_10482) static void C_ccall f_10482(C_word c,C_word *av) C_noret; C_noret_decl(f_11693) static void C_ccall f_11693(C_word c,C_word *av) C_noret; C_noret_decl(f_11690) static void C_ccall f_11690(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_8188) static void C_fcall f_8188(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12175) static void C_fcall f_12175(C_word t0,C_word t1) C_noret; C_noret_decl(f_9759) static void C_fcall f_9759(C_word t0,C_word t1) C_noret; C_noret_decl(f_9726) static void C_ccall f_9726(C_word c,C_word *av) C_noret; C_noret_decl(f_9720) static void C_ccall f_9720(C_word c,C_word *av) C_noret; C_noret_decl(f_15334) static void C_ccall f_15334(C_word c,C_word *av) C_noret; C_noret_decl(f_10238) static void C_ccall f_10238(C_word c,C_word *av) C_noret; C_noret_decl(f_4840) static void C_ccall f_4840(C_word c,C_word *av) C_noret; C_noret_decl(f_9738) static void C_ccall f_9738(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_9733) static void C_ccall f_9733(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_15428) static void C_ccall f_15428(C_word c,C_word *av) C_noret; C_noret_decl(f_12157) static void C_fcall f_12157(C_word t0,C_word t1) 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_15352) static void C_ccall f_15352(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_15359) static void C_ccall f_15359(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_12953) static void C_fcall f_12953(C_word t0,C_word t1) 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_4917) static void C_ccall f_4917(C_word c,C_word *av) C_noret; C_noret_decl(f_12965) static void C_fcall f_12965(C_word t0,C_word t1) 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_4873) static void C_ccall f_4873(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_15451) static void C_ccall f_15451(C_word c,C_word *av) C_noret; C_noret_decl(f_15454) static void C_ccall f_15454(C_word c,C_word *av) C_noret; C_noret_decl(f_12932) static void C_fcall f_12932(C_word t0,C_word t1) 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_11732) static void C_ccall f_11732(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_12941) static void C_fcall f_12941(C_word t0,C_word t1) 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_11726) static void C_ccall f_11726(C_word c,C_word *av) C_noret; C_noret_decl(f_11720) static void C_ccall f_11720(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_4905) static void C_ccall f_4905(C_word c,C_word *av) C_noret; C_noret_decl(f_4908) static void C_ccall f_4908(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_15324) static void C_ccall f_15324(C_word c,C_word *av) C_noret; C_noret_decl(f_11758) static void C_ccall f_11758(C_word c,C_word *av) C_noret; C_noret_decl(f_11750) static void C_ccall f_11750(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_14248) static void C_fcall f_14248(C_word t0,C_word t1) C_noret; C_noret_decl(f_11741) static void C_ccall f_11741(C_word c,C_word *av) C_noret; C_noret_decl(f_11744) static void C_ccall f_11744(C_word c,C_word *av) C_noret; C_noret_decl(f_12086) static void C_fcall f_12086(C_word t0,C_word t1) C_noret; C_noret_decl(f_14227) static void C_fcall f_14227(C_word t0,C_word t1) C_noret; C_noret_decl(f_11779) static void C_ccall f_11779(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_11773) static void C_ccall f_11773(C_word c,C_word *av) C_noret; C_noret_decl(f_5714) static void C_fcall f_5714(C_word t0,C_word t1) 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_7777) static void C_fcall f_7777(C_word t0,C_word t1,C_word t2) 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_11765) static void C_ccall f_11765(C_word c,C_word *av) C_noret; C_noret_decl(f_11762) static void C_ccall f_11762(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_12160) static void C_ccall f_12160(C_word c,C_word *av) C_noret; C_noret_decl(f_9714) static void C_ccall f_9714(C_word c,C_word *av) C_noret; C_noret_decl(f_11790) static void C_fcall f_11790(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5733) static void C_ccall f_5733(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_6551) static void C_ccall f_6551(C_word c,C_word *av) C_noret; C_noret_decl(f_6052) static void C_fcall f_6052(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9012) static void C_fcall f_9012(C_word t0,C_word t1,C_word t2,C_word t3) 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_12320) static void C_ccall f_12320(C_word c,C_word *av) C_noret; C_noret_decl(f_6547) static void C_ccall f_6547(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_6533) static void C_ccall f_6533(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_5745) static void C_ccall f_5745(C_word c,C_word *av) C_noret; C_noret_decl(f17649) static void C_ccall f17649(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_7149) static void C_fcall f_7149(C_word t0,C_word t1) C_noret; C_noret_decl(f_9002) static void C_ccall f_9002(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_6516) static void C_ccall f_6516(C_word c,C_word *av) C_noret; C_noret_decl(f_6506) static void C_fcall f_6506(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9060) static void C_fcall f_9060(C_word t0,C_word t1,C_word t2) 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_9783) static void C_ccall f_9783(C_word c,C_word *av) C_noret; C_noret_decl(f_7158) static void C_ccall f_7158(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_11714) static void C_ccall f_11714(C_word c,C_word *av) C_noret; C_noret_decl(f_11717) static void C_ccall f_11717(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_11702) static void C_ccall f_11702(C_word c,C_word *av) C_noret; C_noret_decl(f_11708) static void C_ccall f_11708(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_16156) static void C_ccall f_16156(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_16152) static void C_ccall f_16152(C_word c,C_word *av) C_noret; C_noret_decl(f_9085) static void C_ccall f_9085(C_word c,C_word *av) C_noret; C_noret_decl(f_10165) static void C_fcall f_10165(C_word t0,C_word t1,C_word t2,C_word t3) 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_16124) static void C_ccall f_16124(C_word c,C_word *av) C_noret; C_noret_decl(f_6092) static void C_ccall f_6092(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_16196) static void C_ccall f_16196(C_word c,C_word *av) C_noret; C_noret_decl(f_6076) static void C_fcall f_6076(C_word t0,C_word t1) C_noret; C_noret_decl(f_16141) static void C_ccall f_16141(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_6565) static void C_ccall f_6565(C_word c,C_word *av) 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_10444) static void C_ccall f_10444(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_16130) static void C_ccall f_16130(C_word c,C_word *av) C_noret; C_noret_decl(f_15389) static void C_ccall f_15389(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_14615) static void C_ccall f_14615(C_word c,C_word *av) C_noret; C_noret_decl(f_14671) static void C_ccall f_14671(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_6012) static void C_ccall f_6012(C_word c,C_word *av) C_noret; C_noret_decl(f_14661) static void C_fcall f_14661(C_word t0,C_word t1,C_word t2) 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_15493) static void C_ccall f_15493(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_5761) static void C_fcall f_5761(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15499) static void C_ccall f_15499(C_word c,C_word *av) C_noret; C_noret_decl(f_14653) static void C_fcall f_14653(C_word t0,C_word t1) C_noret; C_noret_decl(f_10723) static void C_fcall f_10723(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9580) static void C_ccall f_9580(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_15067) static void C_ccall f_15067(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_5787) static void C_ccall f_5787(C_word c,C_word *av) C_noret; C_noret_decl(f_9553) static void C_ccall f_9553(C_word c,C_word *av) C_noret; C_noret_decl(f_6955) static void C_fcall f_6955(C_word t0,C_word t1) C_noret; C_noret_decl(f_9555) static void C_fcall f_9555(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10700) static void C_ccall f_10700(C_word c,C_word *av) C_noret; C_noret_decl(f_6027) static void C_ccall f_6027(C_word c,C_word *av) C_noret; C_noret_decl(f_10709) static void C_ccall f_10709(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_15088) static void C_ccall f_15088(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_5269) static void C_fcall f_5269(C_word t0,C_word t1) 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_6924) static void C_ccall f_6924(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_16109) static void C_ccall f_16109(C_word c,C_word *av) C_noret; C_noret_decl(f_15027) static void C_ccall f_15027(C_word c,C_word *av) C_noret; C_noret_decl(f_6918) static void C_fcall f_6918(C_word t0,C_word t1) C_noret; C_noret_decl(f_8628) static void C_ccall f_8628(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_10748) static void C_ccall f_10748(C_word c,C_word *av) C_noret; C_noret_decl(f_15079) static void C_ccall f_15079(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_5231) static void C_fcall f_5231(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9504) static void C_fcall f_9504(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9502) static void C_ccall f_9502(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_14621) static void C_ccall f_14621(C_word c,C_word *av) C_noret; C_noret_decl(f_16168) static void C_ccall f_16168(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_10715) static void C_ccall f_10715(C_word c,C_word *av) C_noret; C_noret_decl(f_12285) static void C_ccall f_12285(C_word c,C_word *av) C_noret; C_noret_decl(f_12282) static void C_fcall f_12282(C_word t0,C_word t1) C_noret; C_noret_decl(f_16162) static void C_ccall f_16162(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_9543) static void C_ccall f_9543(C_word c,C_word *av) C_noret; C_noret_decl(f_16184) static void C_ccall f_16184(C_word c,C_word *av) C_noret; C_noret_decl(f_8431) static void C_ccall f_8431(C_word c,C_word *av) C_noret; C_noret_decl(f_8433) static void C_fcall f_8433(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16180) static void C_ccall f_16180(C_word c,C_word *av) C_noret; C_noret_decl(f_14077) static void C_fcall f_14077(C_word t0,C_word t1) C_noret; C_noret_decl(f_6908) static void C_ccall f_6908(C_word c,C_word *av) C_noret; C_noret_decl(f_8604) static void C_ccall f_8604(C_word c,C_word *av) C_noret; C_noret_decl(f_8600) static void C_fcall f_8600(C_word t0,C_word t1) C_noret; C_noret_decl(f_8496) static void C_fcall f_8496(C_word t0,C_word t1,C_word t2) 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_8607) static void C_ccall f_8607(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_14685) static void C_fcall f_14685(C_word t0,C_word t1) 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_8213) static void C_ccall f_8213(C_word c,C_word *av) C_noret; C_noret_decl(f_15010) static void C_fcall f_15010(C_word t0,C_word t1) C_noret; C_noret_decl(f_8405) static void C_fcall f_8405(C_word t0,C_word t1) C_noret; C_noret_decl(f_5290) static void C_fcall f_5290(C_word t0,C_word t1,C_word t2,C_word t3) 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_10781) static void C_fcall f_10781(C_word t0,C_word t1) C_noret; C_noret_decl(f_15036) static void C_fcall f_15036(C_word t0,C_word t1,C_word t2) 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_15000) static void C_ccall f_15000(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_noret; C_noret_decl(f_6992) static void C_fcall f_6992(C_word t0,C_word t1) C_noret; C_noret_decl(f_6998) static void C_ccall f_6998(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_10399) static void C_ccall f_10399(C_word c,C_word *av) C_noret; C_noret_decl(f_11200) static void C_fcall f_11200(C_word t0,C_word t1) 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_8297) static void C_ccall f_8297(C_word c,C_word *av) C_noret; C_noret_decl(f_8299) static void C_fcall f_8299(C_word t0,C_word t1,C_word t2) 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_5225) static void C_ccall f_5225(C_word c,C_word *av) C_noret; C_noret_decl(f_10375) static void C_fcall f_10375(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9664) static void C_fcall f_9664(C_word t0,C_word t1,C_word t2) 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_15505) static void C_ccall f_15505(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_5205) static void C_ccall f_5205(C_word c,C_word *av) C_noret; C_noret_decl(f_15513) static void C_ccall f_15513(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_14995) static void C_ccall f_14995(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_15521) static void C_ccall f_15521(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_14288) static void C_fcall f_14288(C_word t0,C_word t1) 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_14981) static void C_ccall f_14981(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_14266) static void C_fcall f_14266(C_word t0,C_word t1) 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_11411) static void C_fcall f_11411(C_word t0,C_word t1) 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_10321) static void C_fcall f_10321(C_word t0,C_word t1,C_word t2,C_word t3) 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_11445) static void C_ccall f_11445(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_11474) static void C_ccall f_11474(C_word c,C_word *av) C_noret; C_noret_decl(f_8755) static void C_ccall f_8755(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_11452) static void C_fcall f_11452(C_word t0,C_word t1) C_noret; C_noret_decl(f_11148) static void C_ccall f_11148(C_word c,C_word *av) C_noret; C_noret_decl(f_8730) static void C_fcall f_8730(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11142) static void C_ccall f_11142(C_word c,C_word *av) C_noret; C_noret_decl(f_14913) static void C_ccall f_14913(C_word c,C_word *av) C_noret; C_noret_decl(f_9234) static void C_ccall f_9234(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_14901) static void C_ccall f_14901(C_word c,C_word *av) C_noret; C_noret_decl(f_6167) static void C_fcall f_6167(C_word t0,C_word t1) C_noret; C_noret_decl(f_6165) static void C_ccall f_6165(C_word c,C_word *av) C_noret; C_noret_decl(f_5629) static void C_ccall f_5629(C_word c,C_word *av) C_noret; C_noret_decl(f_5625) static void C_ccall f_5625(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_8728) static void C_ccall f_8728(C_word c,C_word *av) C_noret; C_noret_decl(f_10299) static void C_ccall f_10299(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_6154) static void C_ccall f_6154(C_word c,C_word *av) C_noret; C_noret_decl(f_7960) static void C_ccall f_7960(C_word c,C_word *av) C_noret; C_noret_decl(f_10262) static void C_fcall f_10262(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6140) static void C_ccall f_6140(C_word c,C_word *av) C_noret; C_noret_decl(f_6146) static void C_ccall f_6146(C_word c,C_word *av) C_noret; C_noret_decl(f_15702) static void C_ccall f_15702(C_word c,C_word *av) C_noret; C_noret_decl(f_15704) static void C_ccall f_15704(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_8772) static void C_ccall f_8772(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_15806) static void C_ccall f_15806(C_word c,C_word *av) C_noret; C_noret_decl(f_15710) static void C_ccall f_15710(C_word c,C_word *av) C_noret; C_noret_decl(f_15714) static void C_ccall f_15714(C_word c,C_word *av) C_noret; C_noret_decl(f_15719) static void C_fcall f_15719(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_15827) static void C_ccall f_15827(C_word c,C_word *av) C_noret; C_noret_decl(f_15824) static void C_ccall f_15824(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_8769) static void C_ccall f_8769(C_word c,C_word *av) C_noret; C_noret_decl(f_7614) static void C_fcall f_7614(C_word t0,C_word t1,C_word t2) 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_5650) static void C_ccall f_5650(C_word c,C_word *av) C_noret; C_noret_decl(f_9259) static void C_fcall f_9259(C_word t0,C_word t1,C_word t2) 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_9222) static void C_ccall f_9222(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_10274) static void C_fcall f_10274(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10272) static void C_ccall f_10272(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_15811) static void C_fcall f_15811(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15539) static void C_ccall f_15539(C_word c,C_word *av) C_noret; C_noret_decl(f_15533) static void C_ccall f_15533(C_word c,C_word *av) C_noret; C_noret_decl(f_9284) static void C_ccall f_9284(C_word c,C_word *av) C_noret; C_noret_decl(f_7937) static void C_fcall f_7937(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_16054) static void C_ccall f_16054(C_word c,C_word *av) C_noret; C_noret_decl(f_15771) static void C_ccall f_15771(C_word c,C_word *av) C_noret; C_noret_decl(f_15772) static void C_fcall f_15772(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15788) static void C_ccall f_15788(C_word c,C_word *av) C_noret; C_noret_decl(f_15782) static void C_ccall f_15782(C_word c,C_word *av) C_noret; C_noret_decl(f_15889) static void C_ccall f_15889(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_14959) static void C_fcall f_14959(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14957) static void C_fcall f_14957(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_16074) static void C_ccall f_16074(C_word c,C_word *av) C_noret; C_noret_decl(f_15561) static void C_ccall f_15561(C_word c,C_word *av) C_noret; C_noret_decl(f_15563) static void C_fcall f_15563(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11277) static void C_ccall f_11277(C_word c,C_word *av) C_noret; C_noret_decl(f_7665) static void C_fcall f_7665(C_word t0,C_word t1) 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_10005) static void C_ccall f_10005(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_6193) static void C_ccall f_6193(C_word c,C_word *av) C_noret; C_noret_decl(f_16010) static void C_ccall f_16010(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_fcall f_15874(C_word t0,C_word t1) C_noret; C_noret_decl(f_10025) static void C_ccall f_10025(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_16088) static void C_ccall f_16088(C_word c,C_word *av) C_noret; C_noret_decl(f_15747) static void C_ccall f_15747(C_word c,C_word *av) C_noret; C_noret_decl(f_15597) static void C_fcall f_15597(C_word t0,C_word t1,C_word t2) 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_10369) static void C_ccall f_10369(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_15844) static void C_fcall f_15844(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15759) static void C_ccall f_15759(C_word c,C_word *av) 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_15756) static void C_ccall f_15756(C_word c,C_word *av) C_noret; C_noret_decl(f_15893) static void C_ccall f_15893(C_word c,C_word *av) C_noret; C_noret_decl(f_15768) static void C_ccall f_15768(C_word c,C_word *av) 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_15762) static void C_ccall f_15762(C_word c,C_word *av) C_noret; C_noret_decl(f_15867) static void C_ccall f_15867(C_word c,C_word *av) C_noret; C_noret_decl(f_10053) static void C_fcall f_10053(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10048) static void C_ccall f_10048(C_word c,C_word *av) C_noret; C_noret_decl(f_8780) static void C_ccall f_8780(C_word c,C_word *av) C_noret; C_noret_decl(f_8786) static void C_ccall f_8786(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_11495) static void C_ccall f_11495(C_word c,C_word *av) 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_7542) static void C_ccall f_7542(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_14882) static void C_ccall f_14882(C_word c,C_word *av) C_noret; C_noret_decl(f_5682) static void C_ccall f_5682(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_9469) static void C_ccall f_9469(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_9431) static void C_ccall f_9431(C_word c,C_word *av) C_noret; C_noret_decl(f_15854) static void C_ccall f_15854(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_6124) static void C_ccall f_6124(C_word c,C_word *av) 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_7527) static void C_ccall f_7527(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_15144) static void C_ccall f_15144(C_word c,C_word *av) C_noret; C_noret_decl(f_15147) static void C_fcall f_15147(C_word t0,C_word t1) 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_9444) static void C_fcall f_9444(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15096) static void C_ccall f_15096(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_12009) static void C_fcall f_12009(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_7504) static void C_ccall f_7504(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_7506) static void C_ccall f_7506(C_word c,C_word *av) 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_15137) static void C_ccall f_15137(C_word c,C_word *av) C_noret; C_noret_decl(f_14871) static void C_ccall f_14871(C_word c,C_word *av) C_noret; C_noret_decl(f_6231) static void C_ccall f_6231(C_word c,C_word *av) C_noret; C_noret_decl(f_6237) static C_word C_fcall f_6237(C_word t0,C_word t1); C_noret_decl(f_11886) static void C_ccall f_11886(C_word c,C_word *av) C_noret; C_noret_decl(f_12033) static void C_fcall f_12033(C_word t0,C_word t1) C_noret; C_noret_decl(f_6225) static void C_ccall f_6225(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_15151) static void C_ccall f_15151(C_word c,C_word *av) C_noret; C_noret_decl(f_15157) static void C_ccall f_15157(C_word c,C_word *av) C_noret; C_noret_decl(f_6214) static void C_ccall f_6214(C_word c,C_word *av) C_noret; C_noret_decl(f_6332) static void C_ccall f_6332(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_15122) static void C_ccall f_15122(C_word c,C_word *av) C_noret; C_noret_decl(f_15126) static void C_ccall f_15126(C_word c,C_word *av) C_noret; C_noret_decl(f_14807) static void C_fcall f_14807(C_word t0,C_word t1) 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_6208) static void C_fcall f_6208(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6279) static void C_ccall f_6279(C_word c,C_word *av) C_noret; C_noret_decl(f_6275) static void C_ccall f_6275(C_word c,C_word *av) C_noret; C_noret_decl(f_6385) static void C_ccall f_6385(C_word c,C_word *av) C_noret; C_noret_decl(f_9413) static void C_ccall f_9413(C_word c,C_word *av) C_noret; C_noret_decl(f_11822) static void C_ccall f_11822(C_word c,C_word *av) C_noret; C_noret_decl(f_11828) static void C_fcall f_11828(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14152) static void C_fcall f_14152(C_word t0,C_word t1) C_noret; C_noret_decl(f_9424) static void C_fcall f_9424(C_word t0,C_word t1) 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_11816) static void C_ccall f_11816(C_word c,C_word *av) C_noret; C_noret_decl(f_7070) static void C_fcall f_7070(C_word t0,C_word t1) C_noret; C_noret_decl(f_16034) static void C_ccall f_16034(C_word c,C_word *av) C_noret; C_noret_decl(f_11174) static void C_ccall f_11174(C_word c,C_word *av) C_noret; C_noret_decl(f_11800) static void C_ccall f_11800(C_word c,C_word *av) C_noret; C_noret_decl(f_11168) static void C_ccall f_11168(C_word c,C_word *av) C_noret; C_noret_decl(f_14826) static void C_ccall f_14826(C_word c,C_word *av) C_noret; C_noret_decl(f_13775) static void C_ccall f_13775(C_word c,C_word *av) C_noret; C_noret_decl(f_13370) static void C_fcall f_13370(C_word t0,C_word t1) C_noret; C_noret_decl(f_13382) static void C_fcall f_13382(C_word t0,C_word t1) C_noret; C_noret_decl(f_13388) static void C_ccall f_13388(C_word c,C_word *av) C_noret; C_noret_decl(f_15118) static void C_ccall f_15118(C_word c,C_word *av) C_noret; C_noret_decl(f_15111) static void C_ccall f_15111(C_word c,C_word *av) C_noret; C_noret_decl(f_15114) static void C_ccall f_15114(C_word c,C_word *av) C_noret; C_noret_decl(f_16005) static void C_ccall f_16005(C_word c,C_word *av) C_noret; C_noret_decl(f_13360) static void C_ccall f_13360(C_word c,C_word *av) C_noret; C_noret_decl(f_11027) static void C_fcall f_11027(C_word t0,C_word t1,C_word t2,C_word t3) 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_13392) static void C_fcall f_13392(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14836) static void C_ccall f_14836(C_word c,C_word *av) C_noret; C_noret_decl(f_14832) static void C_ccall f_14832(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_11049) static void C_ccall f_11049(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_15192) static void C_fcall f_15192(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_6356) static void C_ccall f_6356(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_15108) static void C_ccall f_15108(C_word c,C_word *av) C_noret; C_noret_decl(f_15102) static void C_ccall f_15102(C_word c,C_word *av) C_noret; C_noret_decl(f_10672) static void C_ccall f_10672(C_word c,C_word *av) C_noret; C_noret_decl(f_11868) static void C_fcall f_11868(C_word t0,C_word t1) C_noret; C_noret_decl(f_11853) static void C_fcall f_11853(C_word t0,C_word t1) C_noret; C_noret_decl(f_9933) static void C_ccall f_9933(C_word c,C_word *av) 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_9341) static void C_ccall f_9341(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_6778) static void C_ccall f_6778(C_word c,C_word *av) C_noret; C_noret_decl(f_5113) static void C_ccall f_5113(C_word c,C_word *av) C_noret; C_noret_decl(f_9314) static void C_ccall f_9314(C_word c,C_word *av) C_noret; C_noret_decl(f_5116) static void C_ccall f_5116(C_word c,C_word *av) C_noret; C_noret_decl(f_9316) static void C_fcall f_9316(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9996) static void C_ccall f_9996(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(f_5100) static void C_ccall f_5100(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_5109) static void C_ccall f_5109(C_word c,C_word *av) C_noret; C_noret_decl(f_5107) static void C_ccall f_5107(C_word c,C_word *av) C_noret; C_noret_decl(f_6615) static void C_ccall f_6615(C_word c,C_word *av) C_noret; C_noret_decl(f_5133) static void C_fcall f_5133(C_word t0,C_word t1,C_word t2) 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_13781) static void C_ccall f_13781(C_word c,C_word *av) C_noret; C_noret_decl(f_9372) static void C_fcall f_9372(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_9972) static void C_ccall f_9972(C_word c,C_word *av) C_noret; C_noret_decl(f_5129) static void C_fcall f_5129(C_word t0,C_word t1) 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_5125) static void C_ccall f_5125(C_word c,C_word *av) C_noret; C_noret_decl(f_9980) static void C_ccall f_9980(C_word c,C_word *av) C_noret; C_noret_decl(f_9386) static void C_ccall f_9386(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(f_13785) static void C_ccall f_13785(C_word c,C_word *av) C_noret; C_noret_decl(f_5059) static void C_ccall f_5059(C_word c,C_word *av) C_noret; C_noret_decl(f_5044) static void C_ccall f_5044(C_word c,C_word *av) C_noret; C_noret_decl(f_5049) static void C_fcall f_5049(C_word t0,C_word t1,C_word t2) 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_5030) static void C_ccall f_5030(C_word c,C_word *av) C_noret; C_noret_decl(f_6747) static void C_fcall f_6747(C_word t0,C_word t1) 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_6744) static void C_ccall f_6744(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_5190) static void C_ccall f_5190(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_6722) static void C_ccall f_6722(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_5199) static void C_ccall f_5199(C_word c,C_word *av) C_noret; C_noret_decl(f_5187) static void C_ccall f_5187(C_word c,C_word *av) C_noret; C_noret_decl(f_5184) static void C_ccall f_5184(C_word c,C_word *av) C_noret; C_noret_decl(f_5181) static void C_ccall f_5181(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_noret; C_noret_decl(f_6751) static void C_fcall f_6751(C_word t0,C_word t1,C_word t2) 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_16309) static void C_ccall f_16309(C_word c,C_word *av) C_noret; C_noret_decl(f_16306) static void C_ccall f_16306(C_word c,C_word *av) C_noret; C_noret_decl(f_16303) static void C_ccall f_16303(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_6737) static void C_ccall f_6737(C_word c,C_word *av) C_noret; C_noret_decl(f_12113) static void C_fcall f_12113(C_word t0,C_word t1) C_noret; C_noret_decl(f_12116) static void C_ccall f_12116(C_word c,C_word *av) C_noret; C_noret_decl(f_8833) static void C_ccall f_8833(C_word c,C_word *av) C_noret; C_noret_decl(f_8835) static void C_fcall f_8835(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8860) static void C_ccall f_8860(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_word t2) 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_8890) static void C_ccall f_8890(C_word c,C_word *av) C_noret; C_noret_decl(f_8892) static void C_fcall f_8892(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5575) static void C_fcall f_5575(C_word t0,C_word t1) 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_7836) static void C_ccall f_7836(C_word c,C_word *av) C_noret; C_noret_decl(f_5568) static void C_fcall f_5568(C_word t0,C_word t1) C_noret; C_noret_decl(f_15631) static void C_ccall f_15631(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_15645) static void C_ccall f_15645(C_word c,C_word *av) C_noret; C_noret_decl(f_15926) static void C_ccall f_15926(C_word c,C_word *av) C_noret; C_noret_decl(f_15929) static void C_ccall f_15929(C_word c,C_word *av) C_noret; C_noret_decl(f_11067) static void C_fcall f_11067(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_15971) static void C_ccall f_15971(C_word c,C_word *av) C_noret; C_noret_decl(f_5546) static void C_fcall f_5546(C_word t0,C_word t1,C_word t2) 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_5544) static void C_ccall f_5544(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_7802) static void C_ccall f_7802(C_word c,C_word *av) C_noret; C_noret_decl(f_15941) static void C_ccall f_15941(C_word c,C_word *av) C_noret; C_noret_decl(f_15945) static void C_ccall f_15945(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_15916) static void C_ccall f_15916(C_word c,C_word *av) C_noret; C_noret_decl(f_15910) static void C_ccall f_15910(C_word c,C_word *av) C_noret; C_noret_decl(f_10637) static void C_ccall f_10637(C_word c,C_word *av) C_noret; C_noret_decl(f_10633) static void C_ccall f_10633(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_9390) static void C_ccall f_9390(C_word c,C_word *av) C_noret; C_noret_decl(f_10646) static void C_ccall f_10646(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_10640) static void C_ccall f_10640(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_5079) static void C_ccall f_5079(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_10654) static void C_ccall f_10654(C_word c,C_word *av) C_noret; C_noret_decl(f_7458) static void C_ccall f_7458(C_word c,C_word *av) C_noret; C_noret_decl(f_15982) static void C_ccall f_15982(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_10662) static void C_fcall f_10662(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7449) static void C_ccall f_7449(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_6670) static void C_fcall f_6670(C_word t0,C_word t1) C_noret; C_noret_decl(f_15950) static void C_fcall f_15950(C_word t0,C_word t1) C_noret; C_noret_decl(f_15954) static void C_ccall f_15954(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_6667) static void C_ccall f_6667(C_word c,C_word *av) C_noret; C_noret_decl(f_5151) static void C_fcall f_5151(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10962) static C_word C_fcall f_10962(C_word t0,C_word t1); C_noret_decl(f_5143) static void C_ccall f_5143(C_word c,C_word *av) C_noret; C_noret_decl(f_5146) static void C_ccall f_5146(C_word c,C_word *av) C_noret; C_noret_decl(f_14735) static void C_ccall f_14735(C_word c,C_word *av) C_noret; C_noret_decl(f_6794) static void C_ccall f_6794(C_word c,C_word *av) C_noret; C_noret_decl(f_6797) static void C_ccall f_6797(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_15259) static void C_ccall f_15259(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_5024) static void C_ccall f_5024(C_word c,C_word *av) C_noret; C_noret_decl(f_10945) static void C_ccall f_10945(C_word c,C_word *av) C_noret; C_noret_decl(f_5161) static void C_ccall f_5161(C_word c,C_word *av) C_noret; C_noret_decl(f_14717) static void C_fcall f_14717(C_word t0,C_word t1) C_noret; C_noret_decl(f_15997) static void C_ccall f_15997(C_word c,C_word *av) C_noret; C_noret_decl(f_15994) static void C_ccall f_15994(C_word c,C_word *av) C_noret; C_noret_decl(f_5010) static void C_ccall f_5010(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_10142) static void C_ccall f_10142(C_word c,C_word *av) C_noret; C_noret_decl(f_5017) static void C_fcall f_5017(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5015) static void C_fcall f_5015(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10954) static void C_fcall f_10954(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7435) static void C_ccall f_7435(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_10951) static void C_ccall f_10951(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_10150) static void C_ccall f_10150(C_word c,C_word *av) C_noret; C_noret_decl(f_11557) static C_word C_fcall f_11557(C_word *a,C_word t0,C_word t1); C_noret_decl(f_5003) static void C_ccall f_5003(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_11555) static void C_ccall f_11555(C_word c,C_word *av) C_noret; C_noret_decl(f_14773) static void C_fcall f_14773(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_14770) static void C_ccall f_14770(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_5583) static void C_ccall f_5583(C_word c,C_word *av) C_noret; C_noret_decl(f_15295) static void C_ccall f_15295(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_15292) static void C_ccall f_15292(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_5476) static void C_ccall f_5476(C_word c,C_word *av) C_noret; C_noret_decl(f_5474) static void C_ccall f_5474(C_word c,C_word *av) C_noret; C_noret_decl(f_10901) static void C_ccall f_10901(C_word c,C_word *av) C_noret; C_noret_decl(f_10907) static void C_fcall f_10907(C_word t0,C_word t1) C_noret; C_noret_decl(f_15229) static void C_ccall f_15229(C_word c,C_word *av) C_noret; C_noret_decl(f_12840) static void C_ccall f_12840(C_word c,C_word *av) C_noret; C_noret_decl(f_10911) static void C_ccall f_10911(C_word c,C_word *av) C_noret; C_noret_decl(f_12853) static void C_ccall f_12853(C_word c,C_word *av) C_noret; C_noret_decl(f_15244) static void C_ccall f_15244(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_5402) static void C_ccall f_5402(C_word c,C_word *av) C_noret; C_noret_decl(f_6493) static void C_ccall f_6493(C_word c,C_word *av) C_noret; C_noret_decl(f_12877) static void C_ccall f_12877(C_word c,C_word *av) C_noret; C_noret_decl(f_12871) static void C_ccall f_12871(C_word c,C_word *av) C_noret; C_noret_decl(f_11535) static void C_ccall f_11535(C_word c,C_word *av) C_noret; C_noret_decl(f_6483) static void C_fcall f_6483(C_word t0,C_word t1,C_word t2) 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_11525) static void C_ccall f_11525(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_9113) static void C_ccall f_9113(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_10123) static void C_ccall f_10123(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_10134) static void C_ccall f_10134(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_5850) static void C_ccall f_5850(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_5421) static void C_ccall f_5421(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_6433) static void C_ccall f_6433(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_10060) static void C_ccall f_10060(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_14049) static void C_ccall f_14049(C_word c,C_word *av) C_noret; C_noret_decl(f_7467) static void C_ccall f_7467(C_word c,C_word *av) C_noret; C_noret_decl(f_5832) static void C_ccall f_5832(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_10066) static void C_ccall f_10066(C_word c,C_word *av) C_noret; C_noret_decl(f_10069) static void C_ccall f_10069(C_word c,C_word *av) C_noret; C_noret_decl(f_9137) static void C_ccall f_9137(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_6404) static void C_ccall f_6404(C_word c,C_word *av) C_noret; C_noret_decl(f_5898) static void C_ccall f_5898(C_word c,C_word *av) C_noret; C_noret_decl(f_5990) static void C_ccall f_5990(C_word c,C_word *av) C_noret; C_noret_decl(f_10086) static void C_fcall f_10086(C_word t0,C_word t1,C_word t2) 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_13425) static void C_fcall f_13425(C_word t0,C_word t1) 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_15206) static void C_ccall f_15206(C_word c,C_word *av) C_noret; C_noret_decl(f_10098) static void C_fcall f_10098(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10096) static void C_ccall f_10096(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_8990) static void C_ccall f_8990(C_word c,C_word *av) C_noret; C_noret_decl(f_9171) static void C_ccall f_9171(C_word c,C_word *av) C_noret; C_noret_decl(f_16244) static void C_ccall f_16244(C_word c,C_word *av) C_noret; C_noret_decl(f_16248) static void C_ccall f_16248(C_word c,C_word *av) C_noret; C_noret_decl(f_9175) static void C_ccall f_9175(C_word c,C_word *av) 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_9183) static void C_fcall f_9183(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5944) static void C_ccall f_5944(C_word c,C_word *av) C_noret; C_noret_decl(f_5948) static void C_fcall f_5948(C_word t0,C_word t1) C_noret; C_noret_decl(f_8023) static void C_ccall f_8023(C_word c,C_word *av) C_noret; C_noret_decl(f_16287) static void C_ccall f_16287(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_16282) static void C_ccall f_16282(C_word c,C_word *av) C_noret; C_noret_decl(f_15264) static void C_ccall f_15264(C_word c,C_word *av) 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_15268) static void C_ccall f_15268(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_12809) static void C_ccall f_12809(C_word c,C_word *av) C_noret; C_noret_decl(f_16238) static void C_ccall f_16238(C_word c,C_word *av) C_noret; C_noret_decl(f_12803) static void C_ccall f_12803(C_word c,C_word *av) C_noret; C_noret_decl(f_16232) static void C_ccall f_16232(C_word c,C_word *av) C_noret; C_noret_decl(f_6470) static void C_ccall f_6470(C_word c,C_word *av) 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_16226) static void C_ccall f_16226(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_5801) static void C_ccall f_5801(C_word c,C_word *av) C_noret; C_noret_decl(f_6460) static void C_fcall f_6460(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15282) static void C_ccall f_15282(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_15289) static void C_ccall f_15289(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_12822) static void C_ccall f_12822(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_15216) static void C_ccall f_15216(C_word c,C_word *av) C_noret; C_noret_decl(f_8011) static void C_ccall f_8011(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_9852) static void C_ccall f_9852(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_word t3) 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_8048) static void C_ccall f_8048(C_word c,C_word *av) C_noret; C_noret_decl(f_10568) static void C_ccall f_10568(C_word c,C_word *av) C_noret; C_noret_decl(f_10562) static void C_ccall f_10562(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_5484) static void C_ccall f_5484(C_word c,C_word *av) C_noret; C_noret_decl(f_5486) static void C_ccall f_5486(C_word c,C_word *av) C_noret; C_noret_decl(f_6853) static void C_fcall f_6853(C_word t0,C_word t1) C_noret; C_noret_decl(f_10553) static void C_ccall f_10553(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_12885) static void C_fcall f_12885(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8087) static void C_fcall f_8087(C_word t0,C_word t1) 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_12881) static void C_ccall f_12881(C_word c,C_word *av) C_noret; C_noret_decl(f_5461) static void C_ccall f_5461(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_5464) static void C_ccall f_5464(C_word c,C_word *av) C_noret; C_noret_decl(f_9827) static void C_fcall f_9827(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11951) static void C_fcall f_11951(C_word t0,C_word t1) 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_5492) static void C_fcall f_5492(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9874) static void C_ccall f_9874(C_word c,C_word *av) C_noret; C_noret_decl(f_9882) static void C_fcall f_9882(C_word t0,C_word t1,C_word t2,C_word t3) 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_8099) static void C_ccall f_8099(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_6813) static void C_ccall f_6813(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_6815) static void C_fcall f_6815(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11636) static void C_fcall f_11636(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6849) static void C_ccall f_6849(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_5368) static void C_ccall f_5368(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_6871) static void C_ccall f_6871(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_12971) static void C_ccall f_12971(C_word c,C_word *av) C_noret; C_noret_decl(f_10895) static void C_ccall f_10895(C_word c,C_word *av) C_noret; C_noret_decl(f_10893) static void C_ccall f_10893(C_word c,C_word *av) C_noret; C_noret_decl(f_16211) static void C_ccall f_16211(C_word c,C_word *av) C_noret; C_noret_decl(f_12245) static void C_ccall f_12245(C_word c,C_word *av) C_noret; C_noret_decl(f_12249) static void C_fcall f_12249(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8521) static void C_ccall f_8521(C_word c,C_word *av) 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_11687) static void C_ccall f_11687(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_9813) static void C_ccall f_9813(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_12975) static void C_fcall f_12975(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11678) static void C_ccall f_11678(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_6800) static void C_ccall f_6800(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_11659) static void C_ccall f_11659(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_8564) static void C_fcall f_8564(C_word t0,C_word t1,C_word t2) 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_8368) static void C_ccall f_8368(C_word c,C_word *av) C_noret; C_noret_decl(f_5340) static void C_fcall f_5340(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_16279) static void C_ccall f_16279(C_word c,C_word *av) C_noret; C_noret_decl(f_16275) static void C_ccall f_16275(C_word c,C_word *av) C_noret; C_noret_decl(f_12922) static void C_ccall f_12922(C_word c,C_word *av) C_noret; C_noret_decl(f_16264) static void C_ccall f_16264(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_12916) static void C_ccall f_12916(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_10818) static void C_fcall f_10818(C_word t0,C_word t1) C_noret; C_noret_decl(f_10815) static void C_ccall f_10815(C_word c,C_word *av) C_noret; C_noret_decl(f_16201) static void C_fcall f_16201(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8384) static void C_ccall f_8384(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_10526) static void C_ccall f_10526(C_word c,C_word *av) C_noret; C_noret_decl(f_10528) static void C_fcall f_10528(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_7750) static void C_fcall f_7750(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12202) static void C_fcall f_12202(C_word t0,C_word t1) C_noret; C_noret_decl(f_12910) static void C_ccall f_12910(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_7741) static void C_ccall f_7741(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_13901) static void C_fcall f_13901(C_word t0,C_word t1) 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_8533) static void C_ccall f_8533(C_word c,C_word *av) C_noret; C_noret_decl(f_10213) static void C_fcall f_10213(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4960) static void C_fcall f_4960(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_4833) static void C_ccall f_4833(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_8101) static void C_fcall f_8101(C_word t0,C_word t1,C_word t2) 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_4967) static void C_ccall f_4967(C_word c,C_word *av) C_noret; C_noret_decl(f_5374) static void C_fcall f_5374(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4937) static void C_fcall f_4937(C_word t0,C_word t1,C_word t2) 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_4947) static void C_ccall f_4947(C_word c,C_word *av) C_noret; C_noret_decl(f_13929) static void C_ccall f_13929(C_word c,C_word *av) C_noret; C_noret_decl(f_13342) static void C_ccall f_13342(C_word c,C_word *av) 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_4970) static void C_ccall f_4970(C_word c,C_word *av) C_noret; C_noret_decl(f_6892) static void C_ccall f_6892(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_10599) static void C_fcall f_10599(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(trf_11991) static void C_ccall trf_11991(C_word c,C_word *av) C_noret; static void C_ccall trf_11991(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11991(t0,t1);} C_noret_decl(trf_12059) static void C_ccall trf_12059(C_word c,C_word *av) C_noret; static void C_ccall trf_12059(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12059(t0,t1);} C_noret_decl(trf_4895) static void C_ccall trf_4895(C_word c,C_word *av) C_noret; static void C_ccall trf_4895(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4895(t0,t1);} C_noret_decl(trf_8188) static void C_ccall trf_8188(C_word c,C_word *av) C_noret; static void C_ccall trf_8188(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8188(t0,t1,t2);} C_noret_decl(trf_12175) static void C_ccall trf_12175(C_word c,C_word *av) C_noret; static void C_ccall trf_12175(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12175(t0,t1);} C_noret_decl(trf_9759) static void C_ccall trf_9759(C_word c,C_word *av) C_noret; static void C_ccall trf_9759(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9759(t0,t1);} C_noret_decl(trf_12157) static void C_ccall trf_12157(C_word c,C_word *av) C_noret; static void C_ccall trf_12157(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12157(t0,t1);} C_noret_decl(trf_12953) static void C_ccall trf_12953(C_word c,C_word *av) C_noret; static void C_ccall trf_12953(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12953(t0,t1);} C_noret_decl(trf_12965) static void C_ccall trf_12965(C_word c,C_word *av) C_noret; static void C_ccall trf_12965(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12965(t0,t1);} C_noret_decl(trf_12932) static void C_ccall trf_12932(C_word c,C_word *av) C_noret; static void C_ccall trf_12932(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12932(t0,t1);} C_noret_decl(trf_12941) static void C_ccall trf_12941(C_word c,C_word *av) C_noret; static void C_ccall trf_12941(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12941(t0,t1);} C_noret_decl(trf_14248) static void C_ccall trf_14248(C_word c,C_word *av) C_noret; static void C_ccall trf_14248(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14248(t0,t1);} C_noret_decl(trf_12086) static void C_ccall trf_12086(C_word c,C_word *av) C_noret; static void C_ccall trf_12086(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12086(t0,t1);} C_noret_decl(trf_14227) static void C_ccall trf_14227(C_word c,C_word *av) C_noret; static void C_ccall trf_14227(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14227(t0,t1);} C_noret_decl(trf_5714) static void C_ccall trf_5714(C_word c,C_word *av) C_noret; static void C_ccall trf_5714(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5714(t0,t1);} C_noret_decl(trf_7777) static void C_ccall trf_7777(C_word c,C_word *av) C_noret; static void C_ccall trf_7777(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7777(t0,t1,t2);} C_noret_decl(trf_11790) static void C_ccall trf_11790(C_word c,C_word *av) C_noret; static void C_ccall trf_11790(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11790(t0,t1,t2);} C_noret_decl(trf_6052) static void C_ccall trf_6052(C_word c,C_word *av) C_noret; static void C_ccall trf_6052(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6052(t0,t1,t2);} C_noret_decl(trf_9012) static void C_ccall trf_9012(C_word c,C_word *av) C_noret; static void C_ccall trf_9012(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9012(t0,t1,t2,t3);} C_noret_decl(trf_7149) static void C_ccall trf_7149(C_word c,C_word *av) C_noret; static void C_ccall trf_7149(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7149(t0,t1);} C_noret_decl(trf_6506) static void C_ccall trf_6506(C_word c,C_word *av) C_noret; static void C_ccall trf_6506(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6506(t0,t1,t2);} C_noret_decl(trf_9060) static void C_ccall trf_9060(C_word c,C_word *av) C_noret; static void C_ccall trf_9060(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9060(t0,t1,t2);} C_noret_decl(trf_10165) static void C_ccall trf_10165(C_word c,C_word *av) C_noret; static void C_ccall trf_10165(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10165(t0,t1,t2,t3);} C_noret_decl(trf_6076) static void C_ccall trf_6076(C_word c,C_word *av) C_noret; static void C_ccall trf_6076(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6076(t0,t1);} C_noret_decl(trf_14661) static void C_ccall trf_14661(C_word c,C_word *av) C_noret; static void C_ccall trf_14661(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14661(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_5761(t0,t1,t2);} C_noret_decl(trf_14653) static void C_ccall trf_14653(C_word c,C_word *av) C_noret; static void C_ccall trf_14653(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14653(t0,t1);} C_noret_decl(trf_10723) static void C_ccall trf_10723(C_word c,C_word *av) C_noret; static void C_ccall trf_10723(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10723(t0,t1,t2);} C_noret_decl(trf_6955) static void C_ccall trf_6955(C_word c,C_word *av) C_noret; static void C_ccall trf_6955(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6955(t0,t1);} C_noret_decl(trf_9555) static void C_ccall trf_9555(C_word c,C_word *av) C_noret; static void C_ccall trf_9555(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9555(t0,t1,t2);} 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_6918) static void C_ccall trf_6918(C_word c,C_word *av) C_noret; static void C_ccall trf_6918(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6918(t0,t1);} C_noret_decl(trf_5231) static void C_ccall trf_5231(C_word c,C_word *av) C_noret; static void C_ccall trf_5231(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5231(t0,t1,t2);} C_noret_decl(trf_9504) static void C_ccall trf_9504(C_word c,C_word *av) C_noret; static void C_ccall trf_9504(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9504(t0,t1,t2);} C_noret_decl(trf_12282) static void C_ccall trf_12282(C_word c,C_word *av) C_noret; static void C_ccall trf_12282(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12282(t0,t1);} C_noret_decl(trf_8433) static void C_ccall trf_8433(C_word c,C_word *av) C_noret; static void C_ccall trf_8433(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8433(t0,t1,t2);} C_noret_decl(trf_14077) static void C_ccall trf_14077(C_word c,C_word *av) C_noret; static void C_ccall trf_14077(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14077(t0,t1);} C_noret_decl(trf_8600) static void C_ccall trf_8600(C_word c,C_word *av) C_noret; static void C_ccall trf_8600(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8600(t0,t1);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_8496(t0,t1,t2);} C_noret_decl(trf_14685) static void C_ccall trf_14685(C_word c,C_word *av) C_noret; static void C_ccall trf_14685(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14685(t0,t1);} C_noret_decl(trf_15010) static void C_ccall trf_15010(C_word c,C_word *av) C_noret; static void C_ccall trf_15010(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15010(t0,t1);} C_noret_decl(trf_8405) static void C_ccall trf_8405(C_word c,C_word *av) C_noret; static void C_ccall trf_8405(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8405(t0,t1);} C_noret_decl(trf_5290) static void C_ccall trf_5290(C_word c,C_word *av) C_noret; static void C_ccall trf_5290(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5290(t0,t1,t2,t3);} C_noret_decl(trf_10781) static void C_ccall trf_10781(C_word c,C_word *av) C_noret; static void C_ccall trf_10781(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10781(t0,t1);} C_noret_decl(trf_15036) static void C_ccall trf_15036(C_word c,C_word *av) C_noret; static void C_ccall trf_15036(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15036(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_14971(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_6992(t0,t1);} C_noret_decl(trf_11200) static void C_ccall trf_11200(C_word c,C_word *av) C_noret; static void C_ccall trf_11200(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11200(t0,t1);} C_noret_decl(trf_8299) static void C_ccall trf_8299(C_word c,C_word *av) C_noret; static void C_ccall trf_8299(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8299(t0,t1,t2);} C_noret_decl(trf_10375) static void C_ccall trf_10375(C_word c,C_word *av) C_noret; static void C_ccall trf_10375(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10375(t0,t1,t2);} C_noret_decl(trf_9664) static void C_ccall trf_9664(C_word c,C_word *av) C_noret; static void C_ccall trf_9664(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9664(t0,t1,t2);} C_noret_decl(trf_14288) static void C_ccall trf_14288(C_word c,C_word *av) C_noret; static void C_ccall trf_14288(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14288(t0,t1);} C_noret_decl(trf_14266) static void C_ccall trf_14266(C_word c,C_word *av) C_noret; static void C_ccall trf_14266(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14266(t0,t1);} C_noret_decl(trf_11411) static void C_ccall trf_11411(C_word c,C_word *av) C_noret; static void C_ccall trf_11411(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11411(t0,t1);} C_noret_decl(trf_10321) static void C_ccall trf_10321(C_word c,C_word *av) C_noret; static void C_ccall trf_10321(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10321(t0,t1,t2,t3);} C_noret_decl(trf_11452) static void C_ccall trf_11452(C_word c,C_word *av) C_noret; static void C_ccall trf_11452(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11452(t0,t1);} C_noret_decl(trf_8730) static void C_ccall trf_8730(C_word c,C_word *av) C_noret; static void C_ccall trf_8730(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8730(t0,t1,t2);} C_noret_decl(trf_6167) static void C_ccall trf_6167(C_word c,C_word *av) C_noret; static void C_ccall trf_6167(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6167(t0,t1);} C_noret_decl(trf_10262) static void C_ccall trf_10262(C_word c,C_word *av) C_noret; static void C_ccall trf_10262(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10262(t0,t1,t2);} C_noret_decl(trf_15719) static void C_ccall trf_15719(C_word c,C_word *av) C_noret; static void C_ccall trf_15719(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_15719(t0,t1,t2,t3);} C_noret_decl(trf_7614) static void C_ccall trf_7614(C_word c,C_word *av) C_noret; static void C_ccall trf_7614(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7614(t0,t1,t2);} C_noret_decl(trf_9259) static void C_ccall trf_9259(C_word c,C_word *av) C_noret; static void C_ccall trf_9259(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9259(t0,t1,t2);} 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_10274) static void C_ccall trf_10274(C_word c,C_word *av) C_noret; static void C_ccall trf_10274(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10274(t0,t1,t2);} C_noret_decl(trf_15811) static void C_ccall trf_15811(C_word c,C_word *av) C_noret; static void C_ccall trf_15811(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15811(t0,t1,t2);} C_noret_decl(trf_7937) static void C_ccall trf_7937(C_word c,C_word *av) C_noret; static void C_ccall trf_7937(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_7937(t0,t1,t2,t3,t4);} C_noret_decl(trf_15772) static void C_ccall trf_15772(C_word c,C_word *av) C_noret; static void C_ccall trf_15772(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15772(t0,t1,t2);} C_noret_decl(trf_14959) static void C_ccall trf_14959(C_word c,C_word *av) C_noret; static void C_ccall trf_14959(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14959(t0,t1,t2);} C_noret_decl(trf_14957) static void C_ccall trf_14957(C_word c,C_word *av) C_noret; static void C_ccall trf_14957(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14957(t0,t1,t2,t3);} C_noret_decl(trf_15563) static void C_ccall trf_15563(C_word c,C_word *av) C_noret; static void C_ccall trf_15563(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15563(t0,t1,t2);} C_noret_decl(trf_7665) static void C_ccall trf_7665(C_word c,C_word *av) C_noret; static void C_ccall trf_7665(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7665(t0,t1);} C_noret_decl(trf_15874) static void C_ccall trf_15874(C_word c,C_word *av) C_noret; static void C_ccall trf_15874(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15874(t0,t1);} C_noret_decl(trf_15597) static void C_ccall trf_15597(C_word c,C_word *av) C_noret; static void C_ccall trf_15597(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15597(t0,t1,t2);} C_noret_decl(trf_15844) static void C_ccall trf_15844(C_word c,C_word *av) C_noret; static void C_ccall trf_15844(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15844(t0,t1,t2);} C_noret_decl(trf_10053) static void C_ccall trf_10053(C_word c,C_word *av) C_noret; static void C_ccall trf_10053(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10053(t0,t1,t2);} C_noret_decl(trf_15147) static void C_ccall trf_15147(C_word c,C_word *av) C_noret; static void C_ccall trf_15147(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15147(t0,t1);} C_noret_decl(trf_9444) static void C_ccall trf_9444(C_word c,C_word *av) C_noret; static void C_ccall trf_9444(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9444(t0,t1,t2);} C_noret_decl(trf_12009) static void C_ccall trf_12009(C_word c,C_word *av) C_noret; static void C_ccall trf_12009(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12009(t0,t1);} C_noret_decl(trf_12033) static void C_ccall trf_12033(C_word c,C_word *av) C_noret; static void C_ccall trf_12033(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12033(t0,t1);} C_noret_decl(trf_14807) static void C_ccall trf_14807(C_word c,C_word *av) C_noret; static void C_ccall trf_14807(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14807(t0,t1);} 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_11828) static void C_ccall trf_11828(C_word c,C_word *av) C_noret; static void C_ccall trf_11828(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11828(t0,t1,t2);} C_noret_decl(trf_14152) static void C_ccall trf_14152(C_word c,C_word *av) C_noret; static void C_ccall trf_14152(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14152(t0,t1);} C_noret_decl(trf_9424) static void C_ccall trf_9424(C_word c,C_word *av) C_noret; static void C_ccall trf_9424(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9424(t0,t1);} C_noret_decl(trf_7070) static void C_ccall trf_7070(C_word c,C_word *av) C_noret; static void C_ccall trf_7070(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7070(t0,t1);} C_noret_decl(trf_13370) static void C_ccall trf_13370(C_word c,C_word *av) C_noret; static void C_ccall trf_13370(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13370(t0,t1);} C_noret_decl(trf_13382) static void C_ccall trf_13382(C_word c,C_word *av) C_noret; static void C_ccall trf_13382(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13382(t0,t1);} C_noret_decl(trf_11027) static void C_ccall trf_11027(C_word c,C_word *av) C_noret; static void C_ccall trf_11027(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11027(t0,t1,t2,t3);} C_noret_decl(trf_13392) static void C_ccall trf_13392(C_word c,C_word *av) C_noret; static void C_ccall trf_13392(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13392(t0,t1,t2);} C_noret_decl(trf_15192) static void C_ccall trf_15192(C_word c,C_word *av) C_noret; static void C_ccall trf_15192(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_15192(t0,t1,t2,t3,t4);} C_noret_decl(trf_11868) static void C_ccall trf_11868(C_word c,C_word *av) C_noret; static void C_ccall trf_11868(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11868(t0,t1);} 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[1]; C_word t1=av[0]; f_11853(t0,t1);} C_noret_decl(trf_9316) static void C_ccall trf_9316(C_word c,C_word *av) C_noret; static void C_ccall trf_9316(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9316(t0,t1,t2);} C_noret_decl(trf_5133) static void C_ccall trf_5133(C_word c,C_word *av) C_noret; static void C_ccall trf_5133(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5133(t0,t1,t2);} C_noret_decl(trf_9372) static void C_ccall trf_9372(C_word c,C_word *av) C_noret; static void C_ccall trf_9372(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_9372(t0,t1,t2,t3,t4);} 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[1]; C_word t1=av[0]; f_5129(t0,t1);} C_noret_decl(trf_5049) static void C_ccall trf_5049(C_word c,C_word *av) C_noret; static void C_ccall trf_5049(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5049(t0,t1,t2);} C_noret_decl(trf_6747) static void C_ccall trf_6747(C_word c,C_word *av) C_noret; static void C_ccall trf_6747(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6747(t0,t1);} 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[1]; C_word t1=av[0]; f_8820(t0,t1);} C_noret_decl(trf_6751) static void C_ccall trf_6751(C_word c,C_word *av) C_noret; static void C_ccall trf_6751(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6751(t0,t1,t2);} C_noret_decl(trf_12113) static void C_ccall trf_12113(C_word c,C_word *av) C_noret; static void C_ccall trf_12113(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12113(t0,t1);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_8835(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_7811(t0,t1,t2);} C_noret_decl(trf_8892) static void C_ccall trf_8892(C_word c,C_word *av) C_noret; static void C_ccall trf_8892(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8892(t0,t1,t2);} C_noret_decl(trf_5575) static void C_ccall trf_5575(C_word c,C_word *av) C_noret; static void C_ccall trf_5575(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5575(t0,t1);} C_noret_decl(trf_5568) static void C_ccall trf_5568(C_word c,C_word *av) C_noret; static void C_ccall trf_5568(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5568(t0,t1);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11067(t0,t1,t2,t3);} C_noret_decl(trf_5546) static void C_ccall trf_5546(C_word c,C_word *av) C_noret; static void C_ccall trf_5546(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5546(t0,t1,t2);} C_noret_decl(trf_10662) static void C_ccall trf_10662(C_word c,C_word *av) C_noret; static void C_ccall trf_10662(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10662(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[1]; C_word t1=av[0]; f_6670(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[1]; C_word t1=av[0]; f_15950(t0,t1);} C_noret_decl(trf_5151) static void C_ccall trf_5151(C_word c,C_word *av) C_noret; static void C_ccall trf_5151(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5151(t0,t1,t2);} C_noret_decl(trf_14717) static void C_ccall trf_14717(C_word c,C_word *av) C_noret; static void C_ccall trf_14717(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14717(t0,t1);} C_noret_decl(trf_5017) static void C_ccall trf_5017(C_word c,C_word *av) C_noret; static void C_ccall trf_5017(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5017(t0,t1,t2);} C_noret_decl(trf_5015) static void C_ccall trf_5015(C_word c,C_word *av) C_noret; static void C_ccall trf_5015(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5015(t0,t1,t2);} C_noret_decl(trf_10954) static void C_ccall trf_10954(C_word c,C_word *av) C_noret; static void C_ccall trf_10954(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10954(t0,t1,t2,t3);} C_noret_decl(trf_14773) static void C_ccall trf_14773(C_word c,C_word *av) C_noret; static void C_ccall trf_14773(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14773(t0,t1,t2,t3);} C_noret_decl(trf_10907) static void C_ccall trf_10907(C_word c,C_word *av) C_noret; static void C_ccall trf_10907(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10907(t0,t1);} C_noret_decl(trf_6483) static void C_ccall trf_6483(C_word c,C_word *av) C_noret; static void C_ccall trf_6483(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6483(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_10086) static void C_ccall trf_10086(C_word c,C_word *av) C_noret; static void C_ccall trf_10086(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10086(t0,t1,t2);} C_noret_decl(trf_13425) static void C_ccall trf_13425(C_word c,C_word *av) C_noret; static void C_ccall trf_13425(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13425(t0,t1);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_10098(t0,t1,t2);} C_noret_decl(trf_9183) static void C_ccall trf_9183(C_word c,C_word *av) C_noret; static void C_ccall trf_9183(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9183(t0,t1,t2,t3);} C_noret_decl(trf_5948) static void C_ccall trf_5948(C_word c,C_word *av) C_noret; static void C_ccall trf_5948(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5948(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_6460) static void C_ccall trf_6460(C_word c,C_word *av) C_noret; static void C_ccall trf_6460(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6460(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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10988(t0,t1,t2,t3);} C_noret_decl(trf_6853) static void C_ccall trf_6853(C_word c,C_word *av) C_noret; static void C_ccall trf_6853(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6853(t0,t1);} C_noret_decl(trf_12885) static void C_ccall trf_12885(C_word c,C_word *av) C_noret; static void C_ccall trf_12885(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12885(t0,t1,t2);} C_noret_decl(trf_8087) static void C_ccall trf_8087(C_word c,C_word *av) C_noret; static void C_ccall trf_8087(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8087(t0,t1);} C_noret_decl(trf_9827) static void C_ccall trf_9827(C_word c,C_word *av) C_noret; static void C_ccall trf_9827(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9827(t0,t1,t2);} C_noret_decl(trf_11951) static void C_ccall trf_11951(C_word c,C_word *av) C_noret; static void C_ccall trf_11951(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11951(t0,t1);} C_noret_decl(trf_5492) static void C_ccall trf_5492(C_word c,C_word *av) C_noret; static void C_ccall trf_5492(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5492(t0,t1,t2,t3);} C_noret_decl(trf_9882) static void C_ccall trf_9882(C_word c,C_word *av) C_noret; static void C_ccall trf_9882(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9882(t0,t1,t2,t3);} C_noret_decl(trf_6815) static void C_ccall trf_6815(C_word c,C_word *av) C_noret; static void C_ccall trf_6815(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6815(t0,t1,t2);} C_noret_decl(trf_11636) static void C_ccall trf_11636(C_word c,C_word *av) C_noret; static void C_ccall trf_11636(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11636(t0,t1,t2);} C_noret_decl(trf_12249) static void C_ccall trf_12249(C_word c,C_word *av) C_noret; static void C_ccall trf_12249(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12249(t0,t1,t2);} C_noret_decl(trf_12975) static void C_ccall trf_12975(C_word c,C_word *av) C_noret; static void C_ccall trf_12975(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12975(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_8564(t0,t1,t2);} C_noret_decl(trf_5340) static void C_ccall trf_5340(C_word c,C_word *av) C_noret; static void C_ccall trf_5340(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5340(t0,t1,t2,t3);} C_noret_decl(trf_10818) static void C_ccall trf_10818(C_word c,C_word *av) C_noret; static void C_ccall trf_10818(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10818(t0,t1);} C_noret_decl(trf_16201) static void C_ccall trf_16201(C_word c,C_word *av) C_noret; static void C_ccall trf_16201(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16201(t0,t1,t2);} C_noret_decl(trf_10528) static void C_ccall trf_10528(C_word c,C_word *av) C_noret; static void C_ccall trf_10528(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10528(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_7750(t0,t1,t2);} C_noret_decl(trf_12202) static void C_ccall trf_12202(C_word c,C_word *av) C_noret; static void C_ccall trf_12202(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12202(t0,t1);} C_noret_decl(trf_13901) static void C_ccall trf_13901(C_word c,C_word *av) C_noret; static void C_ccall trf_13901(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13901(t0,t1);} C_noret_decl(trf_10213) static void C_ccall trf_10213(C_word c,C_word *av) C_noret; static void C_ccall trf_10213(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10213(t0,t1,t2);} C_noret_decl(trf_4960) static void C_ccall trf_4960(C_word c,C_word *av) C_noret; static void C_ccall trf_4960(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4960(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_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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5374(t0,t1,t2,t3);} C_noret_decl(trf_4937) static void C_ccall trf_4937(C_word c,C_word *av) C_noret; static void C_ccall trf_4937(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4937(t0,t1,t2);} C_noret_decl(trf_10599) static void C_ccall trf_10599(C_word c,C_word *av) C_noret; static void C_ccall trf_10599(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10599(t0,t1,t2);} /* k4983 in k4980 in k4977 in debugging in k4868 in k4834 in k4831 in k4828 */ 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(6,c,2)))){ C_save_and_reclaim((void *)f_4985,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4988,a[2]=((C_word*)t0)[2],a[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:78: flush-output */ t3=*((C_word*)lf[25]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4980 in k4977 in debugging in k4868 in k4834 in k4831 in k4828 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4982,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4985,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:77: display */ t4=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11989 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_11991(C_word t0,C_word t1){ C_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(8,0,2)))){ C_save_and_reclaim_args((void *)trf_11991,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11994,a[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:1056: gensym */ t3=*((C_word*)lf[110]+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[368]); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12033,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_12033(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[5],lf[411]); if(C_truep(t4)){ t5=t3; f_12033(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[5],lf[412]); if(C_truep(t5)){ t6=t3; f_12033(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[5],lf[413]); if(C_truep(t6)){ t7=t3; f_12033(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[5],lf[414]); if(C_truep(t7)){ t8=t3; f_12033(t8,t7);} else{ t8=C_eqp(((C_word*)t0)[5],lf[415]); if(C_truep(t8)){ t9=t3; f_12033(t9,t8);} else{ t9=C_eqp(((C_word*)t0)[5],lf[416]); t10=t3; f_12033(t10,(C_truep(t9)?t9:C_eqp(((C_word*)t0)[5],lf[417])));}}}}}}}} /* k4977 in debugging in k4868 in k4834 in k4831 in k4828 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_4979,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4982,a[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:76: text */ t3=((C_word*)((C_word*)t0)[5])[1]; f_4895(t3,t2);} else{ 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); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5003,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:83: test-debugging-mode */ t4=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k11992 in k11989 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_11994,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_12009,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[353]+1))){ t7=t6; f_12009(t7,t2);} else{ t7=C_a_i_list(&a,2,lf[97],((C_word*)t0)[4]); t8=t6; f_12009(t8,C_a_i_list(&a,3,lf[365],t7,t2));}} /* k12057 in k12031 in k11989 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_12059(C_word 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_12059,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ if(C_truep(*((C_word*)lf[353]+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[371],((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=C_eqp(((C_word*)t0)[4],lf[372]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=(C_truep(*((C_word*)lf[353]+1))?((C_word*)t0)[2]:C_a_i_list(&a,2,lf[373],((C_word*)t0)[2])); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_eqp(((C_word*)t0)[4],lf[374]); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12086,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_12086(t5,t3);} else{ t5=C_eqp(((C_word*)t0)[4],lf[406]); t6=t4; f_12086(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[4],lf[407])));}}}} /* ##compiler#debugging in k4868 in k4834 in k4831 in k4828 */ 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=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_4892,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_4895,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_4960,a[2]=t2,tmp=(C_word)a,a+=3,tmp)); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4979,a[2]=t1,a[3]=t8,a[4]=t2,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* support.scm:75: test-debugging-mode */ t12=*((C_word*)lf[11]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t11; av2[2]=t2; av2[3]=*((C_word*)lf[1]+1); ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} /* k4888 in test-debugging-mode in k4868 in k4834 in k4831 in k4828 */ 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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4890,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_pairp(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* text in debugging in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_4895(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_4895,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4901,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:64: with-output-to-string */ t3=*((C_word*)lf[23]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k8124 in map-loop1192 in k8085 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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(3,c,2)))){ C_save_and_reclaim((void *)f_8126,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8101(t6,((C_word*)t0)[5],t5);} /* k4986 in k4983 in k4980 in k4977 in debugging in k4868 in k4834 in k4831 in k4828 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_4988,2,av);} a=C_alloc(9); 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); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4994,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:79: test-debugging-mode */ t4=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k11694 in k11691 in k11688 in k11685 in k11682 in k11676 in a11670 in print-program-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_11696,2,av);} a=C_alloc(9); t2=*((C_word*)lf[16]+1); t3=*((C_word*)lf[16]+1); t4=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11702,a[2]=((C_word*)t0)[2],a[3]=((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); /* support.scm:993: ##sys#print */ t6=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[340]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[16]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* walk in node->sexpr in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_10482,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[161]); t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10526,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_10528,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_10528(t21,t17,t15);} /* k11691 in k11688 in k11685 in k11682 in k11676 in a11670 in print-program-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11693(C_word c,C_word *av){ C_word tmp; C_word t0=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_11693,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11696,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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); /* support.scm:992: ##sys#write-char-0 */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11688 in k11685 in k11682 in k11676 in a11670 in print-program-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_11690,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11693,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:992: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8184 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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(5,c,1)))){ C_save_and_reclaim((void *)f_8186,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[211],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop1226 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_8188(C_word t0,C_word t1,C_word 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_8188,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_8213,a[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: g1232 */ 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);}}} /* k12173 in k12158 in k12155 in k12111 in k12084 in k12057 in k12031 in k11989 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_12175(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_12175,2,t0,t1);} a=C_alloc(27); t2=C_a_i_list(&a,2,lf[97],C_SCHEME_FALSE); t3=C_a_i_list(&a,4,lf[225],((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[109],((C_word*)t0)[4],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9757 in k9731 in k9728 in a9725 in a9713 in inline-lambda-bindings in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_9759(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_9759,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9763,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:707: take */ t4=*((C_word*)lf[284]+1);{ C_word av2[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);}} /* a9725 in a9713 in inline-lambda-bindings in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9726(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(25,c,3)))){ C_save_and_reclaim((void *)f_9726,4,av);} a=C_alloc(25); t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9730,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],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],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*)lf[110]+1); t10=((C_word*)t0)[6]; t11=C_i_check_list_2(t10,lf[161]); 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_9827,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_9827(t15,t4,t10);} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=((C_word*)t0)[6]; f_9730(2,av2);}}} /* a9719 in a9713 in inline-lambda-bindings in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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(0,c,3)))){ C_save_and_reclaim((void *)f_9720,2,av);} /* support.scm:689: split-at */ t2=*((C_word*)lf[282]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#source-info->line in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15334(C_word c,C_word *av){ C_word 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_15334,3,av);} if(C_truep(C_i_listp(t2))){ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(t2)){ /* support.scm:1480: ->string */ t3=*((C_word*)lf[60]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* k10236 in map-loop1933 in a10047 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10238,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10213(t6,((C_word*)t0)[5],t5);} /* ##compiler#compiler-cleanup-hook in k4834 in k4831 in k4828 */ static void C_ccall f_4840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4840,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a9737 in k9731 in k9728 in a9725 in a9713 in inline-lambda-bindings in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(14,c,1)))){ C_save_and_reclaim((void *)f_9738,5,av);} a=C_alloc(14); t5=C_a_i_list1(&a,1,t2); t6=C_a_i_list2(&a,2,t3,t4); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[211],lf[109],t5,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* ##compiler#bomb in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,3)))){ C_save_and_reclaim((void*)f_4845,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_4859,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=t2; t5=C_u_i_car(t4); /* support.scm:49: string-append */ t6=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=lf[6]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ /* support.scm:50: error */ t3=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=lf[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k9731 in k9728 in a9725 in a9713 in inline-lambda-bindings in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,5)))){ C_save_and_reclaim((void *)f_9733,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9738,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9759,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); if(C_truep(((C_word*)t0)[6])){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9813,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* support.scm:698: last */ t6=*((C_word*)lf[265]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ t5=t4; f_9759(t5,t2);}} /* k9728 in a9725 in a9713 in inline-lambda-bindings in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,6)))){ C_save_and_reclaim((void *)f_9730,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9733,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])){ /* support.scm:692: copy-node-tree-and-rename */ t4=*((C_word*)lf[286]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t0)[9]; av2[4]=t2; av2[5]=((C_word*)t0)[10]; av2[6]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)t0)[8]; f_9733(2,av2);}}} /* k15426 in k15559 in k15411 in constant-form-eval in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_15428,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15431,a[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:1499: g3710 */ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k12155 in k12111 in k12084 in k12057 in k12031 in k11989 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_12157(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_12157,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12160,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:1091: gensym */ t3=*((C_word*)lf[110]+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[384]); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12202,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_12202(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[4],lf[399]); t5=t3; f_12202(t5,(C_truep(t4)?t4:C_eqp(((C_word*)t0)[4],lf[400])));}}} /* ##compiler#copy-node! in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_10437,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10441,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:769: node-class-set! */ t7=*((C_word*)lf[214]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t4; av2[2]=t3; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* ##compiler#call-info in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15352(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(4,c,5)))){ C_save_and_reclaim((void *)f_15352,4,av);} a=C_alloc(4); t4=C_i_cdr(t2); t5=C_i_pairp(t4); t6=(C_truep(t5)?C_i_cadr(t2):C_SCHEME_FALSE); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15359,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); if(C_truep(t6)){ if(C_truep(C_i_listp(t6))){ t8=C_i_car(t6); t9=C_i_cadr(t6); /* support.scm:1487: conc */ t10=*((C_word*)lf[507]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t7; av2[2]=lf[514]; av2[3]=t8; av2[4]=lf[515]; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}} else{ t8=t3; t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t8=t3; t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k4857 in bomb in k4834 in k4831 in k4828 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4859,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=*((C_word*)lf[4]+1); av2[3]=t1; av2[4]=t3; C_apply(5,av2);}} /* k15357 in call-info in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15359,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k15429 in k15426 in k15559 in k15411 in constant-form-eval in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_15431,2,av);} a=C_alloc(6); t2=t1; if(C_truep(C_i_structurep(t2,lf[211]))){ /* support.scm:1504: k */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_FALSE; av2[3]=((C_word*)t0)[4]; av2[4]=C_SCHEME_FALSE; av2[5]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15451,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_length(t2); t5=C_eqp(C_fix(1),t4); if(C_truep(t5)){ t6=C_i_car(t2); /* support.scm:1506: encodeable-literal? */ t7=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t3; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t6=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_15451(2,av2);}}}} /* k12951 in k12939 in k12930 in a12921 in estimate-foreign-result-size in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_12953(C_word t0,C_word 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_12953,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ /* support.scm:1190: words->bytes */ t2=*((C_word*)lf[79]+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[357]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12965,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_12965(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[3],lf[425]); if(C_truep(t4)){ t5=t3; f_12965(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[3],lf[426]); if(C_truep(t5)){ t6=t3; f_12965(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[3],lf[372]); t7=t3; f_12965(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[3],lf[376])));}}}}} /* k4923 in for-each-loop50 in k4915 in k4903 in a4900 in text in debugging in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4925,2,av);} /* support.scm:70: ##sys#write-char-0 */ t2=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4915 in k4903 in a4900 in text in debugging in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_4917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_4917,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_4937,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_4937(t6,((C_word*)t0)[3],t2);} /* k12963 in k12951 in k12939 in k12930 in a12921 in estimate-foreign-result-size in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_12965(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_12965,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ /* support.scm:1192: words->bytes */ t2=*((C_word*)lf[79]+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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12971,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:1194: ##sys#hash-table-ref */ t3=*((C_word*)lf[149]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[398]+1); av2[3]=((C_word*)t0)[4]; ((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_12971(2,av2);}}}} /* k9761 in k9757 in k9731 in k9728 in a9725 in a9713 in inline-lambda-bindings in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9763,2,av);} /* support.scm:694: fold-right */ t2=*((C_word*)lf[283]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* test-debugging-mode in k4868 in k4834 in k4831 in k4828 */ 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=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,4)))){ C_save_and_reclaim((void *)f_4873,4,av);} a=C_alloc(3); if(C_truep(C_i_symbolp(t2))){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_4890,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* support.scm:60: lset-intersection */ t5=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[13]+1); av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k4868 in k4834 in k4831 in k4828 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(61,c,5)))){ C_save_and_reclaim((void *)f_4870,2,av);} a=C_alloc(61); t2=C_mutate2((C_word*)lf[8]+1 /* (set! ##compiler#collected-debugging-output ...) */,t1); t3=C_mutate2((C_word*)lf[9]+1 /* (set! +logged-debugging-modes+ ...) */,lf[10]); t4=C_mutate2((C_word*)lf[11]+1 /* (set! test-debugging-mode ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4873,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate2((C_word*)lf[14]+1 /* (set! ##compiler#debugging ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4892,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate2((C_word*)lf[26]+1 /* (set! ##compiler#with-debugging-output ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5012,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate2((C_word*)lf[29]+1 /* (set! ##compiler#quit ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5109,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate2((C_word*)lf[33]+1 /* (set! ##sys#syntax-error-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5125,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate2((C_word*)lf[42]+1 /* (set! syntax-error ...) */,*((C_word*)lf[33]+1)); t10=C_mutate2((C_word*)lf[43]+1 /* (set! ##compiler#emit-syntax-trace-info ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5222,tmp=(C_word)a,a+=2,tmp)); t11=C_mutate2((C_word*)lf[44]+1 /* (set! map-llist ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5225,tmp=(C_word)a,a+=2,tmp)); t12=C_mutate2((C_word*)lf[45]+1 /* (set! ##compiler#check-signature ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5266,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate2((C_word*)lf[48]+1 /* (set! ##compiler#posq ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5334,tmp=(C_word)a,a+=2,tmp)); t14=C_mutate2((C_word*)lf[49]+1 /* (set! ##compiler#posv ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5368,tmp=(C_word)a,a+=2,tmp)); t15=C_mutate2((C_word*)lf[50]+1 /* (set! ##compiler#stringify ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5402,tmp=(C_word)a,a+=2,tmp)); t16=C_mutate2((C_word*)lf[55]+1 /* (set! ##compiler#symbolify ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5432,tmp=(C_word)a,a+=2,tmp)); t17=C_mutate2((C_word*)lf[57]+1 /* (set! ##compiler#backslashify ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5466,tmp=(C_word)a,a+=2,tmp)); t18=C_mutate2((C_word*)lf[61]+1 /* (set! ##compiler#uncommentify ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5476,tmp=(C_word)a,a+=2,tmp)); t19=C_mutate2((C_word*)lf[63]+1 /* (set! ##compiler#build-lambda-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5486,tmp=(C_word)a,a+=2,tmp)); t20=C_mutate2((C_word*)lf[64]+1 /* (set! ##compiler#string->c-identifier ...) */,*((C_word*)lf[65]+1)); t21=C_mutate2((C_word*)lf[66]+1 /* (set! ##compiler#c-ify-string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5528,tmp=(C_word)a,a+=2,tmp)); t22=C_mutate2((C_word*)lf[76]+1 /* (set! ##compiler#valid-c-identifier? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5625,tmp=(C_word)a,a+=2,tmp)); t23=C_mutate2((C_word*)lf[78]+1 /* (set! ##compiler#words ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5675,tmp=(C_word)a,a+=2,tmp)); t24=C_mutate2((C_word*)lf[79]+1 /* (set! ##compiler#words->bytes ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5682,tmp=(C_word)a,a+=2,tmp)); t25=C_mutate2((C_word*)lf[80]+1 /* (set! ##compiler#check-and-open-input-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5689,tmp=(C_word)a,a+=2,tmp)); t26=C_mutate2((C_word*)lf[87]+1 /* (set! ##compiler#close-checked-input-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5733,tmp=(C_word)a,a+=2,tmp)); t27=C_mutate2((C_word*)lf[90]+1 /* (set! ##compiler#fold-inner ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5745,tmp=(C_word)a,a+=2,tmp)); t28=C_mutate2((C_word*)lf[92]+1 /* (set! ##compiler#follow-without-loop ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5801,tmp=(C_word)a,a+=2,tmp)); t29=C_mutate2((C_word*)lf[93]+1 /* (set! ##compiler#sort-symbols ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5832,tmp=(C_word)a,a+=2,tmp)); t30=C_mutate2((C_word*)lf[96]+1 /* (set! ##compiler#constant? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5852,tmp=(C_word)a,a+=2,tmp)); t31=C_mutate2((C_word*)lf[100]+1 /* (set! ##compiler#collapsable-literal? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5914,tmp=(C_word)a,a+=2,tmp)); t32=C_mutate2((C_word*)lf[101]+1 /* (set! ##compiler#immediate? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5944,tmp=(C_word)a,a+=2,tmp)); t33=C_mutate2((C_word*)lf[103]+1 /* (set! ##compiler#basic-literal? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5990,tmp=(C_word)a,a+=2,tmp)); t34=C_mutate2((C_word*)lf[106]+1 /* (set! ##compiler#canonicalize-begin-body ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6046,tmp=(C_word)a,a+=2,tmp)); t35=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6121,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:302: condition-predicate */ t36=*((C_word*)lf[568]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t36; av2[1]=t35; av2[2]=lf[521]; ((C_proc)(void*)(*((C_word*)t36+1)))(3,av2);}} /* k15449 in k15429 in k15426 in k15559 in k15411 in constant-form-eval in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15451(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_15451,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15454,a[2]=((C_word*)t0)[2],a[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:1507: debugging */ t3=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[261]; av2[3]=lf[517]; 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:1510: k */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=C_SCHEME_FALSE; av2[3]=((C_word*)t0)[5]; av2[4]=C_SCHEME_FALSE; av2[5]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ /* support.scm:1512: bomb */ t4=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=lf[518]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}} /* k15452 in k15449 in k15429 in k15426 in k15559 in k15411 in constant-form-eval in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15454,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* support.scm:1508: k */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=C_SCHEME_TRUE; av2[3]=((C_word*)t0)[5]; av2[4]=t2; av2[5]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k12930 in a12921 in estimate-foreign-result-size in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_12932(C_word t0,C_word t1){ C_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(6,0,2)))){ C_save_and_reclaim_args((void *)trf_12932,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_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[381]); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12941,a[2]=((C_word*)t0)[2],a[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_12941(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[3],lf[384]); if(C_truep(t4)){ t5=t3; f_12941(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[3],lf[378]); if(C_truep(t5)){ t6=t3; f_12941(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[3],lf[380]); if(C_truep(t6)){ t7=t3; f_12941(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[3],lf[385]); if(C_truep(t7)){ t8=t3; f_12941(t8,t7);} else{ t8=C_eqp(((C_word*)t0)[3],lf[401]); if(C_truep(t8)){ t9=t3; f_12941(t9,t8);} else{ t9=C_eqp(((C_word*)t0)[3],lf[399]); if(C_truep(t9)){ t10=t3; f_12941(t10,t9);} else{ t10=C_eqp(((C_word*)t0)[3],lf[402]); if(C_truep(t10)){ t11=t3; f_12941(t11,t10);} else{ t11=C_eqp(((C_word*)t0)[3],lf[403]); if(C_truep(t11)){ t12=t3; f_12941(t12,t11);} else{ t12=C_eqp(((C_word*)t0)[3],lf[400]); if(C_truep(t12)){ t13=t3; f_12941(t13,t12);} else{ t13=C_eqp(((C_word*)t0)[3],lf[404]); t14=t3; f_12941(t14,(C_truep(t13)?t13:C_eqp(((C_word*)t0)[3],lf[405])));}}}}}}}}}}}} /* a4900 in text in debugging in k4868 in k4834 in k4831 in k4828 */ 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(4,c,2)))){ C_save_and_reclaim((void *)f_4901,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4905,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* support.scm:66: display */ t3=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11730 in k11727 in k11724 in k11718 in k11715 in k11712 in k11706 in k11703 in k11700 in k11694 in k11691 in k11688 in k11685 in k11682 in k11676 in a11670 in print-program-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in ... */ 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; 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_11732,2,av);} a=C_alloc(6); t2=*((C_word*)lf[16]+1); t3=*((C_word*)lf[16]+1); t4=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11738,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:996: ##sys#print */ t6=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[337]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[16]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11736 in k11730 in k11727 in k11724 in k11718 in k11715 in k11712 in k11706 in k11703 in k11700 in k11694 in k11691 in k11688 in k11685 in k11682 in k11676 in a11670 in print-program-statistics in k7502 in k6122 in k6119 in k4868 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11738,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11741,a[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:996: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12939 in k12930 in a12921 in estimate-foreign-result-size in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_12941(C_word t0,C_word t1){ C_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_12941,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ /* support.scm:1188: words->bytes */ t2=*((C_word*)lf[79]+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[374]); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12953,a[2]=((C_word*)t0)[2],a[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_12953(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[3],lf[408]); if(C_truep(t4)){ t5=t3; f_12953(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[3],lf[370]); if(C_truep(t5)){ t6=t3; f_12953(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[3],lf[409]); if(C_truep(t6)){ t7=t3; f_12953(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[3],lf[407]); if(C_truep(t7)){ t8=t3; f_12953(t8,t7);} else{ t8=C_eqp(((C_word*)t0)[3],lf[410]); t9=t3; f_12953(t9,(C_truep(t8)?t8:C_eqp(((C_word*)t0)[3],lf[406])));}}}}}}} /* ##compiler#node->sexpr in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_10476,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_10482,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=t2; f_10482(3,av2);}} /* k11724 in k11718 in k11715 in k11712 in k11706 in k11703 in k11700 in k11694 in k11691 in k11688 in k11685 in k11682 in k11676 in a11670 in print-program-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_11726,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11729,a[2]=((C_word*)t0)[2],a[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:995: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11718 in k11715 in k11712 in k11706 in k11703 in k11700 in k11694 in k11691 in k11688 in k11685 in k11682 in k11676 in a11670 in print-program-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_11720,2,av);} a=C_alloc(7); t2=*((C_word*)lf[16]+1); t3=*((C_word*)lf[16]+1); t4=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t5=(*a=C_CLOSURE_TYPE|6,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]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* support.scm:995: ##sys#print */ t6=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[338]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[16]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11727 in k11724 in k11718 in k11715 in k11712 in k11706 in k11703 in k11700 in k11694 in k11691 in k11688 in k11685 in k11682 in k11676 in a11670 in print-program-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11729,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11732,a[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:995: ##sys#write-char-0 */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4903 in a4900 in text in debugging in k4868 in k4834 in k4831 in k4828 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4905,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4908,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_4917,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:68: display */ t4=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[22]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ /* support.scm:72: newline */ t3=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4906 in k4903 in a4900 in text in debugging in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_4908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4908,2,av);} /* support.scm:72: newline */ t2=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15318 in source-info->string in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_15320,2,av);} /* support.scm:1474: conc */ t2=*((C_word*)lf[507]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[508]; av2[4]=t1; av2[5]=lf[509]; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k15322 in source-info->string in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15324,2,av);} /* support.scm:1474: make-string */ t2=*((C_word*)lf[510]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#pprint-expressions-to-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11758(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_11758,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11762,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t3)){ /* support.scm:1003: open-output-file */ t5=*((C_word*)lf[349]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=*((C_word*)lf[16]+1); f_11762(2,av2);}}} /* k11748 in k11742 in k11739 in k11736 in k11730 in k11727 in k11724 in k11718 in k11715 in k11712 in k11706 in k11703 in k11700 in k11694 in k11691 in k11688 in k11685 in k11682 in k11676 in a11670 in print-program-statistics in k7502 in ... */ static void C_ccall f_11750(C_word c,C_word *av){ C_word tmp; C_word t0=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_11750,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11753,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:997: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11751 in k11748 in k11742 in k11739 in k11736 in k11730 in k11727 in k11724 in k11718 in k11715 in k11712 in k11706 in k11703 in k11700 in k11694 in k11691 in k11688 in k11685 in k11682 in k11676 in a11670 in print-program-statistics in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11753,2,av);} /* support.scm:997: ##sys#write-char-0 */ t2=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14246 in k14225 in k14150 in k14075 in k14051 in foreign-type->scrutiny-type in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_14248(C_word t0,C_word 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_14248,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[477]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[404]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[3],lf[405])); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[478]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[3],lf[384]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14266,a[2]=((C_word*)t0)[2],a[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_14266(t6,t4);} else{ t6=C_eqp(((C_word*)t0)[3],lf[399]); t7=t5; f_14266(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[3],lf[400])));}}}} /* k11739 in k11736 in k11730 in k11727 in k11724 in k11718 in k11715 in k11712 in k11706 in k11703 in k11700 in k11694 in k11691 in k11688 in k11685 in k11682 in k11676 in a11670 in print-program-statistics in k7502 in k6122 in k6119 in ... */ static void C_ccall f_11741(C_word c,C_word *av){ C_word tmp; C_word t0=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_11741,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11744,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:996: ##sys#write-char-0 */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11742 in k11739 in k11736 in k11730 in k11727 in k11724 in k11718 in k11715 in k11712 in k11706 in k11703 in k11700 in k11694 in k11691 in k11688 in k11685 in k11682 in k11676 in a11670 in print-program-statistics in k7502 in k6122 in ... */ static void C_ccall f_11744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_11744,2,av);} a=C_alloc(5); t2=*((C_word*)lf[16]+1); t3=*((C_word*)lf[16]+1); t4=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11750,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* support.scm:997: ##sys#print */ t6=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[336]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[16]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12084 in k12057 in k12031 in k11989 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_12086(C_word 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_12086,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ if(C_truep(*((C_word*)lf[353]+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[375],((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=C_eqp(((C_word*)t0)[4],lf[376]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=(C_truep(*((C_word*)lf[353]+1))?((C_word*)t0)[2]:C_a_i_list(&a,2,lf[377],((C_word*)t0)[2])); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_eqp(((C_word*)t0)[4],lf[378]); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12113,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_12113(t5,t3);} else{ t5=C_eqp(((C_word*)t0)[4],lf[404]); t6=t4; f_12113(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[4],lf[405])));}}}} /* k14225 in k14150 in k14075 in k14051 in foreign-type->scrutiny-type in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_14227(C_word t0,C_word t1){ C_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_14227,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[426]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[378]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=lf[476]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_eqp(((C_word*)t0)[3],lf[380]); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[396]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[3],lf[381]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14248,a[2]=((C_word*)t0)[2],a[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_14248(t6,t4);} else{ t6=C_eqp(((C_word*)t0)[3],lf[401]); if(C_truep(t6)){ t7=t5; f_14248(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[3],lf[402]); t8=t5; f_14248(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[3],lf[403])));}}}}}} /* k11777 in for-each-loop2562 in a11772 in k11760 in pprint-expressions-to-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11779,2,av);} /* support.scm:1009: newline */ t2=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6042 in k6004 in basic-literal? in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6044,2,av);} /* support.scm:281: every */ t2=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[103]+1); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* ##compiler#canonicalize-begin-body in k4868 in k4834 in k4831 in k4828 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6046,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_6052,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_6052(t6,t1,t2);} /* a11772 in k11760 in pprint-expressions-to-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_11773,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_i_check_list_2(t2,lf[35]); 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_11790,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_11790(t7,t1,t2);} /* k5712 in k5700 in check-and-open-input-file in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_5714(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_5714,2,t0,t1);} if(C_truep(t1)){ /* support.scm:223: quit */ t2=*((C_word*)lf[29]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[84]; 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:224: quit */ t3=*((C_word*)lf[29]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[85]; av2[3]=t2; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* ##compiler#inline-lambda-bindings in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_9708,8,av);} a=C_alloc(7); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9714,a[2]=t3,a[3]=t5,a[4]=t4,a[5]=t6,a[6]=t7,tmp=(C_word)a,a+=7,tmp); /* support.scm:686: decompose-lambda-list */ t9=*((C_word*)lf[124]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t1; av2[2]=t2; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* map-loop1121 in k7739 in k7736 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_7777(C_word t0,C_word t1,C_word 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_7777,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_7802,a[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:551: g1127 */ t5=((C_word*)t0)[4]; f_7750(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);}}} /* k7773 in k7765 in k7739 in k7736 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7775,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* support.scm:551: append */ t3=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11763 in k11760 in pprint-expressions-to-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11765,2,av);} if(C_truep(((C_word*)t0)[2])){ /* support.scm:1011: close-output-port */ t2=*((C_word*)lf[346]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11760 in pprint-expressions-to-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_11762,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11765,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_11773,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* support.scm:1004: with-output-to-port */ t5=*((C_word*)lf[348]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5700 in check-and-open-input-file in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5702,2,av);} a=C_alloc(5); if(C_truep(t1)){ /* support.scm:222: open-input-file */ t2=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_5714,a[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_5714(t4,t2);} else{ t4=C_i_car(((C_word*)t0)[4]); t5=t3; f_5714(t5,C_i_not(t4));}}} /* k12158 in k12155 in k12111 in k12084 in k12057 in k12031 in k11989 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_12160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_12160,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_12175,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[353]+1))){ t7=t6; f_12175(t7,C_a_i_list(&a,2,lf[382],t2));} else{ t7=C_a_i_list(&a,2,lf[383],t2); t8=t6; f_12175(t8,C_a_i_list(&a,2,lf[382],t7));}} /* a9713 in inline-lambda-bindings in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9714,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9720,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_9726,a[2]=t3,a[3]=t4,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:688: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* for-each-loop2562 in a11772 in k11760 in pprint-expressions-to-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_11790(C_word t0,C_word 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_11790,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_11800,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_11779,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* support.scm:1008: pretty-print */ t7=*((C_word*)lf[347]+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);}}} /* ##compiler#close-checked-input-file in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5733(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_5733,4,av);} if(C_truep(C_i_string_equal_p(t3,lf[88]))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* support.scm:227: close-input-port */ t4=*((C_word*)lf[89]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* a6558 in k6549 in get-all in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_6559,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_assq(t2,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6549 in get-all in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6551,2,av);} a=C_alloc(3); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6559,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* support.scm:383: filter-map */ t4=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop in canonicalize-begin-body in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_6052(C_word t0,C_word t1,C_word t2){ C_word 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_6052,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[107]; ((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[108]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6076,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_6076(t8,t6);} else{ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6107,a[2]=t7,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* support.scm:295: constant? */ t9=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}}} /* map-loop1555 in k8991 in k8988 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_9012(C_word t0,C_word t1,C_word 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_9012,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_mutate2(((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);}}} /* k9008 in k9000 in k8991 in k8988 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9010,2,av);} /* support.scm:640: walk */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; f_8786(3,av2);}} /* k12318 in k12280 in k12243 in k12200 in k12155 in k12111 in k12084 in k12057 in k12031 in k11989 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 in ... */ 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 t3; C_word 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_12320,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[97],lf[390]); t5=C_a_i_list(&a,3,lf[391],((C_word*)t0)[2],t4); t6=C_a_i_list(&a,2,lf[97],C_SCHEME_FALSE); t7=C_a_i_list(&a,4,lf[225],t1,t5,t6); t8=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_a_i_list(&a,3,lf[109],t3,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* ##compiler#get-all in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6547(C_word c,C_word *av){ C_word tmp; C_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_6547,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_6551,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* support.scm:381: ##sys#hash-table-ref */ t6=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k6004 in basic-literal? in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6006,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_6012,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_6044,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* support.scm:281: vector->list */ t4=*((C_word*)lf[105]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_6012(2,av2);}}}} /* k6531 in get in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6533,2,av);} if(C_truep(t1)){ t2=C_i_assq(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k5757 in fold-inner in k4868 in k4834 in k4831 in k4828 */ 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; 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_5759,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_5761,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_5761(t5,((C_word*)t0)[3],t1);} /* ##compiler#fold-inner in k4868 in k4834 in k4831 in k4828 */ 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=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_5745,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; /* Re-use our own argvector */ 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_5759,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* support.scm:232: reverse */ t6=*((C_word*)lf[91]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* f17649 in print-version in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f17649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f17649,2,av);} /* support.scm:1667: print */ t2=*((C_word*)lf[296]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#get in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_6529,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6533,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* support.scm:375: ##sys#hash-table-ref */ t6=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k7147 in k7068 in loop in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_7149(C_word t0,C_word t1){ C_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_7149,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=*((C_word*)lf[16]+1); t3=*((C_word*)lf[16]+1); t4=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7155,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* support.scm:482: ##sys#write-char-0 */ t6=*((C_word*)lf[18]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(9); av2[3]=*((C_word*)lf[16]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[176]); if(C_truep(t2)){ t3=C_i_cdar(((C_word*)t0)[2]); t4=C_mutate2(((C_word *)((C_word*)t0)[5])+1,t3); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* support.scm:488: loop */ t7=((C_word*)((C_word*)t0)[6])[1]; f_7046(t7,((C_word*)t0)[7],t6);} else{ t3=C_eqp(((C_word*)t0)[4],lf[177]); if(C_truep(t3)){ t4=C_i_cdar(((C_word*)t0)[2]); t5=C_mutate2(((C_word *)((C_word*)t0)[8])+1,t4); t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); /* support.scm:488: loop */ t8=((C_word*)((C_word*)t0)[6])[1]; f_7046(t8,((C_word*)t0)[7],t7);} else{ t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); /* support.scm:487: bomb */ t6=*((C_word*)lf[3]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=lf[178]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}} /* k9000 in k8991 in k8988 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9002(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9002,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9006,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_9010,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* support.scm:640: last */ t5=*((C_word*)lf[265]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9004 in k9000 in k8991 in k8988 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9006,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[109],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6514 in for-each-loop534 in initialize-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6516,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6506(t3,((C_word*)t0)[4],t2);} /* for-each-loop534 in initialize-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_6506(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_6506,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_6516,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_6356,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t8=C_a_i_list(&a,1,lf[147]); if(C_truep(C_i_nullp(t8))){ /* tweaks.scm:54: ##sys#put! */ t9=*((C_word*)lf[142]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t7; av2[2]=t6; av2[3]=lf[143]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t9=C_i_car(t8); /* tweaks.scm:54: ##sys#put! */ t10=*((C_word*)lf[142]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t7; av2[2]=t6; av2[3]=lf[143]; 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);}}} /* map-loop1576 in k8988 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_9060(C_word t0,C_word t1,C_word 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_9060,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_9085,a[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: g1582 */ 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);}}} /* k7153 in k7147 in k7068 in loop in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_7155,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7158,a[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]); /* support.scm:482: ##sys#print */ t4=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9781 in k9811 in k9731 in k9728 in a9725 in a9713 in inline-lambda-bindings in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9783(C_word c,C_word *av){ C_word tmp; C_word t0=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,1)))){ C_save_and_reclaim((void *)f_9783,2,av);} a=C_alloc(11); t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3]; f_9759(t3,C_a_i_record4(&a,4,lf[211],lf[109],((C_word*)t0)[4],t2));} /* k7156 in k7153 in k7147 in k7068 in loop in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_7158(C_word c,C_word *av){ C_word tmp; C_word t0=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_7158,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7161,a[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:482: ##sys#write-char-0 */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4989 in k4986 in k4983 in k4980 in k4977 in debugging in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4991,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4992 in k4986 in k4983 in k4980 in k4977 in debugging in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4994,2,av);} if(C_truep(t1)){ /* support.scm:80: dump */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4960(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k11712 in k11706 in k11703 in k11700 in k11694 in k11691 in k11688 in k11685 in k11682 in k11676 in a11670 in print-program-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11714(C_word c,C_word *av){ C_word tmp; C_word t0=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_11714,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11717,a[2]=((C_word*)t0)[2],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:994: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11715 in k11712 in k11706 in k11703 in k11700 in k11694 in k11691 in k11688 in k11685 in k11682 in k11676 in a11670 in print-program-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11717,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11720,a[2]=((C_word*)t0)[2],a[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:994: ##sys#write-char-0 */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11703 in k11700 in k11694 in k11691 in k11688 in k11685 in k11682 in k11676 in a11670 in print-program-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_11705,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11708,a[2]=((C_word*)t0)[2],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:993: ##sys#write-char-0 */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11700 in k11694 in k11691 in k11688 in k11685 in k11682 in k11676 in a11670 in print-program-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11702(C_word c,C_word *av){ C_word tmp; C_word t0=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_11702,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11705,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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); /* support.scm:993: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11706 in k11703 in k11700 in k11694 in k11691 in k11688 in k11685 in k11682 in k11676 in a11670 in print-program-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_11708,2,av);} a=C_alloc(8); t2=*((C_word*)lf[16]+1); t3=*((C_word*)lf[16]+1); t4=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11714,a[2]=((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); /* support.scm:994: ##sys#print */ t6=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[339]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[16]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* ##compiler#source-info->string in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_15300,3,av);} a=C_alloc(12); 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_15320,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_15324,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t9=C_i_string_length(t4); t10=C_a_i_minus(&a,2,C_fix(4),t9); /* support.scm:1474: max */ t11=*((C_word*)lf[511]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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{ t3=t2; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k16154 in load-identifier-database in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16156,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16162,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16248,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* support.scm:1652: make-pathname */ t4=*((C_word*)lf[556]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7159 in k7156 in k7153 in k7147 in k7068 in loop in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7161,2,av);} t2=C_i_cdar(((C_word*)t0)[2]); /* support.scm:482: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#load-identifier-database in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16152(C_word c,C_word *av){ C_word tmp; C_word 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_16152,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16156,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:1651: repository-path */ t4=*((C_word*)lf[557]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9083 in map-loop1576 in k8988 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9085(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9085,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9060(t6,((C_word*)t0)[5],t5);} /* map-loop1963 in k10064 in a10047 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_10165(C_word t0,C_word t1,C_word 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_10165,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_mutate2(((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);}}} /* k10161 in k10064 in a10047 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10163,2,av);} /* support.scm:747: append */ t2=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#variable-mark in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16124(C_word c,C_word *av){ C_word tmp; C_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_16124,4,av);} /* support.scm:1642: ##sys#get */ t4=*((C_word*)lf[255]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k6090 in k6100 in k6074 in loop in canonicalize-begin-body in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6092(C_word c,C_word *av){ C_word tmp; 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_6092,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[109],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15411 in constant-form-eval in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t4; C_word 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_15413,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[161]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15561,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_15563,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_15563(t12,t8,t2);} /* k16194 in k16166 in k16160 in k16154 in load-identifier-database in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_16196,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_16201,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_16201(t5,((C_word*)t0)[2],t1);} /* k6074 in loop in canonicalize-begin-body in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_6076(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_6076,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* support.scm:297: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6052(t4,((C_word*)t0)[4],t3);} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6102,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:298: gensym */ t3=*((C_word*)lf[110]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[111]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* foldable? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16141(C_word c,C_word *av){ C_word 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_16141,3,av);} /* tweaks.scm:57: ##sys#get */ t3=*((C_word*)lf[255]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=lf[145]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k10445 in k10442 in k10439 in copy-node! in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10447,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##compiler#put! in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_6565,6,av);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6569,a[2]=t4,a[3]=t1,a[4]=t5,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* support.scm:387: ##sys#hash-table-ref */ t7=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k10439 in copy-node! in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_10441,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10444,a[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:770: node-parameters-set! */ t5=*((C_word*)lf[217]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10442 in k10439 in copy-node! in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_10444,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10447,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:771: node-subexpressions-set! */ t5=*((C_word*)lf[219]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6567 in put! in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6569,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; /* Re-use our own argvector */ 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_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[4]),t3); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_setslot(t1,C_fix(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; /* Re-use our own argvector */ 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:392: ##sys#hash-table-set! */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* ##compiler#intrinsic? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16130,3,av);} /* tweaks.scm:57: ##sys#get */ t3=*((C_word*)lf[255]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=lf[143]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* ##compiler#constant-form-eval in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_15389,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[161]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15413,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_15597,a[2]=t7,a[3]=t12,a[4]=t8,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_15597(t14,t10,t3);} /* k14617 in scan-used-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_14619,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##compiler#scan-used-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_14615(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_14615,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_14619,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_14621,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; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t6; av2[2]=t2; f_14621(3,av2);}} /* k14669 in for-each-loop3418 in k14651 in walk in scan-used-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_14671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14671,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_14661(t3,((C_word*)t0)[4],t2);} /* k9527 in map-loop1723 in k9422 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9529,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9504(t6,((C_word*)t0)[5],t5);} /* k6010 in k6004 in basic-literal? in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6012,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_6027,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:283: basic-literal? */ t5=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* for-each-loop3418 in k14651 in walk in scan-used-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_14661(C_word t0,C_word t1,C_word 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_14661,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_14671,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:1341: g3419 */ 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);}}} /* k10755 in a10749 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_10757,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_i_assq(lf[173],((C_word*)t0)[2]); t3=t2; if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10893,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],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_word*)t0)[4]; /* tweaks.scm:57: ##sys#get */ t6=*((C_word*)lf[255]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=lf[313]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a15492 in k15559 in k15411 in constant-form-eval in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15493(C_word c,C_word *av){ C_word tmp; C_word 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_15493,3,av);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15499,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|4,a[1]=(C_word)f_15515,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* support.scm:1499: with-exception-handler */ t5=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a10749 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=av[2]; C_word t3=av[3]; 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_10750,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10757,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],tmp=(C_word)a,a+=8,tmp); /* support.scm:789: variable-visible? */ t5=*((C_word*)lf[314]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* fold in k5757 in fold-inner in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_5761(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_5761,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_5787,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:237: fold */ t11=t4; t12=t6; t1=t11; t2=t12; goto loop;}} /* a15498 in a15492 in k15559 in k15411 in constant-form-eval in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15499(C_word c,C_word *av){ C_word tmp; C_word 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_15499,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15505,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* support.scm:1499: k3706 */ t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k14651 in walk in scan-used-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_14653(C_word t0,C_word 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_14653,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[35]); 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_14661,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_14661(t7,((C_word*)t0)[4],((C_word*)t0)[3]);} /* for-each-loop2224 in k10713 in k10702 in a10699 in k10635 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_10723(C_word t0,C_word 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_10723,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_10733,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_10709,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* support.scm:814: pp */ t7=*((C_word*)lf[302]+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);}}} /* k9578 in map-loop1749 in k9422 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9580,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9555(t6,((C_word*)t0)[5],t5);} /* k6959 in k6953 in k6916 in k6869 in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_6961,2,av);} a=C_alloc(3); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_slot(t2,C_fix(1)); t4=((C_word*)((C_word*)t0)[2])[1]; t5=C_slot(t4,C_fix(2)); t6=C_a_i_cons(&a,2,t3,t5); /* support.scm:492: ##sys#print */ t7=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=((C_word*)t0)[3]; av2[2]=t6; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* ##compiler#make-block-variable-literal in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_15067,3,av);} a=C_alloc(3); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record2(&a,2,lf[489],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10731 in for-each-loop2224 in k10713 in k10702 in a10699 in k10635 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10733,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10723(t3,((C_word*)t0)[4],t2);} /* k5785 in fold in k5757 in fold-inner in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5787,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; /* Re-use our own argvector */ } 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);}} /* k9551 in k9422 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9553,2,av);} /* support.scm:674: append */ t2=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6953 in k6916 in k6869 in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_6955(C_word 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_6955,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=*((C_word*)lf[16]+1); t3=*((C_word*)lf[16]+1); t4=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6961,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* support.scm:492: ##sys#print */ t6=*((C_word*)lf[19]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=lf[167]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[16]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6992,a[2]=((C_word*)t0)[4],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_eqp(((C_word*)((C_word*)t0)[5])[1],lf[169]); t4=t2; f_6992(t4,C_i_not(t3));} else{ t3=t2; f_6992(t3,C_SCHEME_FALSE);}}} /* map-loop1749 in k9422 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_9555(C_word t0,C_word t1,C_word 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_9555,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_9580,a[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:674: g1755 */ 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);}}} /* a10699 in k10635 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10700,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10704,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_10748,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* support.scm:810: chicken-version */ t4=*((C_word*)lf[307]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6025 in k6010 in k6004 in basic-literal? in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6027,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* support.scm:284: basic-literal? */ t4=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k10707 in for-each-loop2224 in k10713 in k10702 in a10699 in k10635 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10709,2,av);} /* support.scm:815: newline */ t2=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10702 in a10699 in k10635 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10704,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10715,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:816: reverse */ t3=*((C_word*)lf[91]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#make-random-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15088(C_word c,C_word *av){ C_word tmp; 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_15088,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_15096,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:1414: open-output-string */ t4=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##compiler#check-signature in k4868 in k4834 in k4831 in k4828 */ 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=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_5266,5,av);} a=C_alloc(10); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5269,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_5290,a[2]=t5,a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_5290(t9,t1,t3,t4);} /* err in check-signature in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_5269(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_5269,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5277,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* support.scm:139: real-name */ t3=*((C_word*)lf[47]+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);}} /* k5252 in loop in map-llist in k4868 in k4834 in k4831 in k4828 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5254,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5258,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:134: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_5231(t6,t3,t5);} /* k6922 in k6916 in k6869 in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_6924,2,av);} a=C_alloc(3); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_slot(t2,C_fix(1)); t4=((C_word*)((C_word*)t0)[2])[1]; t5=C_slot(t4,C_fix(2)); t6=C_a_i_cons(&a,2,t3,t5); /* support.scm:490: ##sys#print */ t7=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=((C_word*)t0)[3]; av2[2]=t6; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k5256 in k5252 in loop in map-llist in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_5258,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* ##compiler#mark-variable in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16109(C_word c,C_word *av){ C_word tmp; C_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_16109,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:1639: ##sys#put! */ t5=*((C_word*)lf[142]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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:1639: ##sys#put! */ t6=*((C_word*)lf[142]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* ##compiler#chop-extension in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15027,3,av);} a=C_alloc(10); t3=C_i_string_length(t2); t4=C_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_15036,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_15036(t8,t1,t4);} /* k6916 in k6869 in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_6918(C_word 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_6918,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=*((C_word*)lf[16]+1); t3=*((C_word*)lf[16]+1); t4=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6924,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* support.scm:490: ##sys#print */ t6=*((C_word*)lf[19]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=lf[166]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[16]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6955,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ t3=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[169]); t4=t2; f_6955(t4,C_i_not(t3));} else{ t3=t2; f_6955(t3,C_SCHEME_FALSE);}}} /* k8626 in a8538 in k8403 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_8628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,1)))){ C_save_and_reclaim((void *)f_8628,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(1)); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3]; f_8600(t4,C_SCHEME_TRUE);} else{ t2=((C_word*)t0)[3]; f_8600(t2,C_SCHEME_FALSE);}} /* ##compiler#block-variable-literal? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_15073,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[489]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10746 in a10699 in k10635 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_10748,2,av);} /* support.scm:810: print */ t2=*((C_word*)lf[296]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[303]; av2[3]=t1; av2[4]=lf[304]; av2[5]=*((C_word*)lf[305]+1); av2[6]=lf[306]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* ##compiler#block-variable-literal-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15079(C_word c,C_word *av){ C_word tmp; C_word 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_15079,3,av);} t3=C_i_check_structure_2(t2,lf[489],lf[492]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8612 in k8605 in k8598 in a8538 in k8403 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_8614,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t1); f_8604(2,av2);}} /* loop in map-llist in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_5231(C_word t0,C_word t1,C_word 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_5231,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:133: 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_5254,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:134: 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);}}}} /* map-loop1723 in k9422 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_9504(C_word t0,C_word t1,C_word 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_9504,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_9529,a[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:673: g1729 */ 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);}}} /* k9500 in k9422 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9502,2,av);} /* support.scm:673: cons* */ t2=*((C_word*)lf[270]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14051 in foreign-type->scrutiny-type in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_14053,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_eqp(t3,lf[441]); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=lf[195]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(t3,lf[351]); t6=(C_truep(t5)?t5:C_eqp(t3,lf[352])); if(C_truep(t6)){ t7=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=lf[351]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_eqp(t3,lf[355]); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14077,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_14077(t9,t7);} else{ t9=C_eqp(t3,lf[427]); if(C_truep(t9)){ t10=t8; f_14077(t10,t9);} else{ t10=C_eqp(t3,lf[428]); if(C_truep(t10)){ t11=t8; f_14077(t11,t10);} else{ t11=C_eqp(t3,lf[429]); if(C_truep(t11)){ t12=t8; f_14077(t12,t11);} else{ t12=C_eqp(t3,lf[430]); if(C_truep(t12)){ t13=t8; f_14077(t13,t12);} else{ t13=C_eqp(t3,lf[431]); if(C_truep(t13)){ t14=t8; f_14077(t14,t13);} else{ t14=C_eqp(t3,lf[432]); t15=t8; f_14077(t15,(C_truep(t14)?t14:C_eqp(t3,lf[433])));}}}}}}}}} /* walk in scan-used-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_14621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14621,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[221]); t9=(C_truep(t8)?t8:C_eqp(t7,lf[246])); 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_14653,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_14685,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_14685(t17,C_i_not(t16));} else{ t16=t15; f_14685(t16,C_SCHEME_FALSE);}} else{ t10=C_eqp(t7,lf[97]); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14717,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_14717(t12,t10);} else{ t12=C_eqp(t7,lf[226]); t13=t11; f_14717(t13,(C_truep(t12)?t12:C_eqp(t7,lf[241])));}}} /* k16166 in k16160 in k16154 in load-identifier-database in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16168,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16196,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1660: read-file */ t3=*((C_word*)lf[552]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10716 in k10713 in k10702 in a10699 in k10635 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10718,2,av);} /* support.scm:817: print */ t2=*((C_word*)lf[296]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[301]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k10713 in k10702 in a10699 in k10635 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10715,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10718,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_10723,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_10723(t6,t2,t1);} /* k12283 in k12280 in k12243 in k12200 in k12155 in k12111 in k12084 in k12057 in k12031 in k11989 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 in ... */ static void C_ccall f_12285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_12285,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[379],t1); t5=C_a_i_list(&a,2,lf[97],C_SCHEME_FALSE); t6=C_a_i_list(&a,4,lf[225],t1,t4,t5); t7=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[109],t3,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k12280 in k12243 in k12200 in k12155 in k12111 in k12084 in k12057 in k12031 in k11989 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_12282(C_word t0,C_word t1){ C_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,2)))){ C_save_and_reclaim_args((void *)trf_12282,2,t0,t1);} a=C_alloc(15); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12285,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:1113: gensym */ t3=*((C_word*)lf[110]+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[388]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[4],lf[389])); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12320,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:1119: gensym */ t5=*((C_word*)lf[110]+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[360]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12356,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:1125: gensym */ t6=*((C_word*)lf[110]+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[362]); if(C_truep(t5)){ if(C_truep(*((C_word*)lf[353]+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[361],((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t6=C_eqp(((C_word*)t0)[4],lf[392]); if(C_truep(t6)){ t7=C_a_i_list(&a,2,lf[97],lf[390]); t8=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t8; av2[1]=C_a_i_list(&a,3,lf[391],((C_word*)t0)[2],t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=C_eqp(((C_word*)t0)[4],lf[393]); if(C_truep(t7)){ t8=C_i_cadr(((C_word*)t0)[5]); /* support.scm:1138: repeat */ t9=((C_word*)((C_word*)t0)[6])[1]; f_11828(t9,((C_word*)t0)[3],t8);} else{ t8=C_eqp(((C_word*)t0)[4],lf[394]); if(C_truep(t8)){ t9=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t9; av2[1]=(C_truep(*((C_word*)lf[353]+1))?((C_word*)t0)[2]:C_a_i_list(&a,2,lf[371],((C_word*)t0)[2])); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_eqp(((C_word*)t0)[4],lf[395]); 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[379],((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[380]); t11=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t11; av2[1]=(C_truep(t10)?C_a_i_list(&a,2,lf[379],((C_word*)t0)[2]):((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}}}}}}} /* k16160 in k16154 in load-identifier-database in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_16162,2,av);} a=C_alloc(8); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16168,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_16226,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:1653: open-output-string */ t5=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8456 in map-loop1319 in k8403 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *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); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8433(t6,((C_word*)t0)[5],t5);} /* k9541 in k9422 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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(3,c,1)))){ C_save_and_reclaim((void *)f_9543,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k16182 in for-each-loop3976 in k16194 in k16166 in k16160 in k16154 in load-identifier-database in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16184(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_16184,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:1659: append */ t5=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8429 in k8403 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_8431(C_word c,C_word *av){ C_word tmp; C_word t0=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_8431,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[211],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop1319 in k8403 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_8433(C_word t0,C_word t1,C_word 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_8433,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_8458,a[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:600: g1325 */ 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);}}} /* k16178 in for-each-loop3976 in k16194 in k16166 in k16160 in k16154 in load-identifier-database in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_16180,2,av);} /* support.scm:1657: ##sys#put! */ t2=*((C_word*)lf[142]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[551]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k14075 in k14051 in foreign-type->scrutiny-type in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_14077(C_word t0,C_word t1){ C_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(7,0,2)))){ C_save_and_reclaim_args((void *)trf_14077,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[230]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[357]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[3],lf[425])); if(C_truep(t3)){ t4=((C_word*)t0)[4]; t5=C_eqp(t4,lf[462]); t6=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=(C_truep(t5)?lf[426]:lf[357]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[3],lf[360]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[3],lf[362])); if(C_truep(t5)){ t6=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=lf[240]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(((C_word*)t0)[3],lf[359]); if(C_truep(t6)){ t7=((C_word*)t0)[4]; t8=C_eqp(t7,lf[462]); t9=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t9; av2[1]=(C_truep(t8)?lf[463]:lf[359]); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t7=C_eqp(((C_word*)t0)[3],lf[363]); if(C_truep(t7)){ t8=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t8; av2[1]=lf[359]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(((C_word*)t0)[3],lf[364]); if(C_truep(t8)){ t9=((C_word*)t0)[4]; t10=C_eqp(t9,lf[462]); t11=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t11; av2[1]=(C_truep(t10)?lf[464]:lf[364]); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t9=C_eqp(((C_word*)t0)[3],lf[366]); if(C_truep(t9)){ t10=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t10; av2[1]=lf[364]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_eqp(((C_word*)t0)[3],lf[367]); t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14152,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_14152(t12,t10);} else{ t12=C_eqp(((C_word*)t0)[3],lf[418]); if(C_truep(t12)){ t13=t11; f_14152(t13,t12);} else{ t13=C_eqp(((C_word*)t0)[3],lf[419]); if(C_truep(t13)){ t14=t11; f_14152(t14,t13);} else{ t14=C_eqp(((C_word*)t0)[3],lf[420]); if(C_truep(t14)){ t15=t11; f_14152(t15,t14);} else{ t15=C_eqp(((C_word*)t0)[3],lf[421]); if(C_truep(t15)){ t16=t11; f_14152(t16,t15);} else{ t16=C_eqp(((C_word*)t0)[3],lf[422]); if(C_truep(t16)){ t17=t11; f_14152(t17,t16);} else{ t17=C_eqp(((C_word*)t0)[3],lf[423]); t18=t11; f_14152(t18,(C_truep(t17)?t17:C_eqp(((C_word*)t0)[3],lf[424])));}}}}}}}}}}}}}} /* k6906 in k6872 in k6869 in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6908,2,av);} t2=C_i_length(((C_word*)((C_word*)t0)[2])[1]); /* support.scm:495: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8602 in k8598 in a8538 in k8403 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_8604(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_8604,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[161]); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8562,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_8564,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_8564(t15,t11,t9);} /* k8598 in a8538 in k8403 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_8600(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_8600,2,t0,t1);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8604,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_8607,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* support.scm:612: real-name */ t5=*((C_word*)lf[47]+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:615: ##sys#symbol->qualified-string */ t4=*((C_word*)lf[254]+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);}}} /* map-loop1350 in k8403 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_8496(C_word t0,C_word t1,C_word 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_8496,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_8521,a[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:602: g1356 */ 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);}}} /* k8492 in k8403 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8494,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[211],lf[253],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8605 in k8598 in a8538 in k8403 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_8607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8607,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8614,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t3); f_8604(2,av2);}} else{ /* support.scm:614: ##sys#symbol->qualified-string */ t3=*((C_word*)lf[254]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k11220 in a11213 in k11198 in walk in expression-has-side-effects? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11222,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k14683 in walk in scan-used-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_14685(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_14685,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_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); t4=((C_word*)t0)[4]; f_14653(t4,t3);} else{ t2=((C_word*)t0)[4]; f_14653(t2,C_SCHEME_UNDEFINED);}} /* a11213 in k11198 in walk in expression-has-side-effects? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_11214,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11222,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* support.scm:883: foreign-callback-stub-id */ t4=*((C_word*)lf[321]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8211 in map-loop1226 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8213,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8188(t6,((C_word*)t0)[5],t5);} /* k15008 in chop-separator in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_15010(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_15010,2,t0,t1);} if(C_truep(t1)){ /* support.scm:1391: substring */ t2=*((C_word*)lf[485]+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);}}} /* k8403 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_8405(C_word t0,C_word t1){ C_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_8405,2,t0,t1);} a=C_alloc(20); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_i_cadr(((C_word*)t0)[2]); 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*)((C_word*)t0)[3])[1]; t11=((C_word*)t0)[2]; t12=C_u_i_cdr(t11); t13=C_u_i_cdr(t12); t14=C_i_check_list_2(t13,lf[161]); t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8431,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t5,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_8433,a[2]=t8,a[3]=t17,a[4]=t10,a[5]=t9,tmp=(C_word)a,a+=6,tmp)); t19=((C_word*)t17)[1]; f_8433(t19,t15,t13);} else{ t2=C_eqp(((C_word*)t0)[5],lf[252]); 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[161]); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8494,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_8496,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_8496(t17,t13,t11);} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8533,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8539,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:604: ##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);}}}} /* loop in check-signature in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_5290(C_word t0,C_word t1,C_word 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_5290,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:142: err */ t4=((C_word*)t0)[2]; f_5269(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:144: err */ t5=((C_word*)t0)[2]; f_5269(t5,t1);} else{ t5=C_i_cdr(t2); t6=C_i_cdr(t3); /* support.scm:145: loop */ t8=t1; t9=t5; t10=t6; t1=t8; t2=t9; t3=t10; goto loop;}}}} /* k5279 in k5275 in err in check-signature in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5281,2,av);} /* support.scm:138: quit */ t2=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[46]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k10779 in k10891 in k10755 in a10749 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_10781(C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_10781,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ if(C_truep(C_i_assq(lf[199],((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|7,a[1]=(C_word)f_10860,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,tmp=(C_word)a,a+=8,tmp); /* support.scm:797: get */ t6=*((C_word*)lf[148]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[206]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,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{ 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);}}} 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);}}} /* loop in chop-extension in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_15036(C_word t0,C_word 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(4,0,4)))){ C_save_and_reclaim_args((void *)trf_15036,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_zerop(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_i_string_ref(((C_word*)t0)[2],t2); if(C_truep(C_u_i_char_equalp(C_make_character(46),t3))){ /* support.scm:1398: substring */ t4=*((C_word*)lf[485]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(0); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_a_i_minus(&a,2,t2,C_fix(1)); /* support.scm:1399: loop */ t6=t1; t7=t4; t1=t6; t2=t7; goto loop;}}} /* k5275 in err in check-signature in k4868 in k4834 in k4831 in k4828 */ 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; 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_5277,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5281,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_cdr(((C_word*)t0)[3]); /* support.scm:140: map-llist */ t5=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[47]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* ##compiler#chop-separator in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,2)))){ C_save_and_reclaim((void *)f_15000,3,av);} a=C_alloc(9); t3=C_i_string_length(t2); t4=C_a_i_minus(&a,2,t3,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15010,a[2]=t1,a[3]=t2,a[4]=t5,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_greaterp(t5,C_fix(0)))){ t7=C_i_string_ref(t2,t5); t8=t6; f_15010(t8,C_u_i_memq(t7,lf[486]));} else{ t7=t6; f_15010(t7,C_SCHEME_FALSE);}} /* for-each-loop3508 in walkeach in scan-free-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_14971(C_word t0,C_word t1,C_word 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_14971,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_14981,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:1349: g3509 */ t5=((C_word*)t0)[3]; f_14959(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);}}} /* k6990 in k6953 in k6916 in k6869 in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_6992(C_word 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_6992,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=*((C_word*)lf[16]+1); t3=*((C_word*)lf[16]+1); t4=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6998,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* support.scm:494: ##sys#print */ t6=*((C_word*)lf[19]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=lf[168]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[16]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_6874(2,av2);}}} /* k6996 in k6990 in k6953 in k6916 in k6869 in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_6998,2,av);} a=C_alloc(3); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_slot(t2,C_fix(1)); t4=((C_word*)((C_word*)t0)[2])[1]; t5=C_slot(t4,C_fix(2)); t6=C_a_i_cons(&a,2,t3,t5); /* support.scm:494: ##sys#print */ t7=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=((C_word*)t0)[3]; av2[2]=t6; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k10391 in k10387 in rec in tree-copy in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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(3,c,1)))){ C_save_and_reclaim((void *)f_10393,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* copy-node in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; 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_10399,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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_a_i_record4(&a,4,lf[211],t4,t6,t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* k11198 in walk in expression-has-side-effects? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_11200(C_word t0,C_word t1){ C_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(3,0,3)))){ C_save_and_reclaim_args((void *)trf_11200,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_SCHEME_FALSE; ((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_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_11214,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* support.scm:882: find */ t8=*((C_word*)lf[322]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=((C_word*)t0)[2]; av2[2]=t7; av2[3]=*((C_word*)lf[323]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t3=C_eqp(((C_word*)t0)[3],lf[225]); if(C_truep(t3)){ if(C_truep(t3)){ /* support.scm:885: any */ t4=*((C_word*)lf[77]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[5])[1]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} 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[109]); if(C_truep(t4)){ /* support.scm:885: any */ t5=*((C_word*)lf[77]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[5])[1]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} 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);}}}}}} /* ##compiler#fold-boolean in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_9658,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_9664,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_9664(t7,t1,t3);} /* k8295 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8297,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[211],lf[246],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop1270 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_8299(C_word t0,C_word t1,C_word 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_8299,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_8324,a[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:591: g1276 */ 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);}}} /* ##compiler#emit-syntax-trace-info in k4868 in k4834 in k4831 in k4828 */ 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=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_5222,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_emit_syntax_trace_info(t2,t3,*((C_word*)lf[37]+1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-llist in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5225(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_5225,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_5231,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_5231(t7,t1,t3);} /* rec in tree-copy in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_10375(C_word t0,C_word t1,C_word 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_10375,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_10389,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:760: 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);}}} /* fold in fold-boolean in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_9664(C_word t0,C_word t1,C_word 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(5,0,3)))){ C_save_and_reclaim_args((void *)trf_9664,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_9690,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t5=t2; t6=C_u_i_car(t5); t7=C_i_cadr(t2); /* support.scm:682: proc */ t8=((C_word*)t0)[2];{ C_word av2[4]; av2[0]=t8; av2[1]=t4; av2[2]=t6; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} /* k10387 in rec in tree-copy in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_10389,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10393,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:760: rec */ t6=((C_word*)((C_word*)t0)[4])[1]; f_10375(t6,t3,t5);} /* a15504 in a15498 in a15492 in k15559 in k15411 in constant-form-eval in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15505(C_word c,C_word *av){ C_word tmp; C_word t0=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_15505,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15513,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* support.scm:1501: get-condition-property */ t3=*((C_word*)lf[520]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[521]; av2[4]=lf[522]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5200 in k5197 in k5127 in syntax-error-hook in k4868 in k4834 in k4831 in k4828 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_5202,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5205,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:120: ##sys#write-char-0 */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5203 in k5200 in k5197 in k5127 in syntax-error-hook in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5205,2,av);} /* support.scm:120: ##sys#write-char-0 */ t2=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15511 in a15504 in a15498 in a15492 in k15559 in k15411 in constant-form-eval in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15513(C_word c,C_word *av){ C_word tmp; C_word 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_15513,2,av);} /* support.scm:1500: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_FALSE; av2[3]=((C_word*)t0)[4]; av2[4]=C_SCHEME_FALSE; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* a15514 in a15492 in k15559 in k15411 in constant-form-eval in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_15515,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15521,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_15533,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* support.scm:1499: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* k14993 in scan-free-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_14995(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14995,2,av);} /* support.scm:1382: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a11403 in dump-undefined-globals in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_11404,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11411,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11437,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* support.scm:911: keyword? */ t6=*((C_word*)lf[326]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* a15520 in a15514 in a15492 in k15559 in k15411 in constant-form-eval in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_15521,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15527,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:1499: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=*((C_word*)lf[523]+1); C_call_with_values(4,av2);}} /* a15526 in a15520 in a15514 in a15492 in k15559 in k15411 in constant-form-eval in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15527,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14286 in k14264 in k14246 in k14225 in k14150 in k14075 in k14051 in foreign-type->scrutiny-type in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_14288(C_word 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_14288,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[480]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[393]); if(C_truep(t2)){ t3=C_i_cadr(((C_word*)t0)[4]); /* support.scm:1323: foreign-type->scrutiny-type */ t4=*((C_word*)lf[461]+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[394]); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[426]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[3],lf[395]); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t5; av2[1]=(C_truep(t4)?lf[396]:lf[240]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(((C_word*)t0)[3],lf[380]); t6=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=(C_truep(t5)?lf[396]:lf[240]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}} /* k11435 in a11403 in dump-undefined-globals in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11437,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_11411(t2,C_SCHEME_FALSE);} else{ if(C_truep(C_i_assq(lf[189],((C_word*)t0)[3]))){ t2=C_i_assq(lf[187],((C_word*)t0)[3]); t3=((C_word*)t0)[2]; f_11411(t3,C_i_not(t2));} else{ t2=((C_word*)t0)[2]; f_11411(t2,C_SCHEME_FALSE);}}} /* k14979 in for-each-loop3508 in walkeach in scan-free-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_14981(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14981,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_14971(t3,((C_word*)t0)[4],t2);} /* ##compiler#dump-defined-globals in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_11439,3,av);} a=C_alloc(2); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11445,tmp=(C_word)a,a+=2,tmp); /* support.scm:919: ##sys#hash-table-for-each */ t4=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14264 in k14246 in k14225 in k14150 in k14075 in k14051 in foreign-type->scrutiny-type in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_14266(C_word t0,C_word t1){ C_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_14266,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[479]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[385]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=lf[385]; ((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[387]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14288,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_14288(t7,t5);} else{ t7=C_eqp(t4,lf[396]); if(C_truep(t7)){ t8=t6; f_14288(t8,t7);} else{ t8=C_eqp(t4,lf[397]); t9=t6; f_14288(t9,(C_truep(t8)?t8:C_eqp(t4,lf[378])));}}} else{ t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=lf[240]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}} /* k11412 in k11409 in a11403 in dump-undefined-globals in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11414,2,av);} /* support.scm:915: newline */ t2=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11409 in a11403 in dump-undefined-globals in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_11411(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_11411,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11414,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:914: write */ t3=*((C_word*)lf[207]+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);}}} /* k5607 in k5566 in loop in k5542 in c-ify-string in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_5609,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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-loop1852 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_10321(C_word t0,C_word t1,C_word 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_10321,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_mutate2(((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);}}} /* a6133 in string->expr in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_6134,3,av);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6140,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_6165,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:302: with-exception-handler */ t5=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a11444 in dump-defined-globals in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11445(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_11445,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11452,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11474,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* support.scm:921: keyword? */ t6=*((C_word*)lf[326]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* ##compiler#dump-global-refs in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ C_save_and_reclaim((void *)f_11476,3,av);} a=C_alloc(2); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11482,tmp=(C_word)a,a+=2,tmp); /* support.scm:929: ##sys#hash-table-for-each */ t4=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11472 in a11444 in dump-defined-globals in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11474,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_11452(t2,C_SCHEME_FALSE);} else{ t2=C_i_assq(lf[189],((C_word*)t0)[3]); t3=((C_word*)t0)[2]; f_11452(t3,(C_truep(t2)?C_i_assq(lf[187],((C_word*)t0)[3]):C_SCHEME_FALSE));}} /* k8753 in map-loop1427 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_8755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8755,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8730(t6,((C_word*)t0)[5],t5);} /* k11453 in k11450 in a11444 in dump-defined-globals in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11455,2,av);} /* support.scm:925: newline */ t2=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11450 in a11444 in dump-defined-globals in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_11452(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_11452,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11455,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:924: write */ t3=*((C_word*)lf[207]+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);}}} /* k11146 in k11140 in match-node in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11148,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop1427 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_8730(C_word t0,C_word t1,C_word 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_8730,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_8755,a[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:617: g1433 */ 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);}}} /* k11140 in match-node in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11142(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_11142,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11148,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:869: debugging */ t7=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t7; av2[1]=t2; av2[2]=lf[318]; av2[3]=lf[319]; 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k14911 in a14900 in k14805 in walk in scan-free-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_14913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14913,2,av);} /* support.scm:1375: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_14773(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k9232 in loop in k9169 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9234,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_9222,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:660: loop */ t9=((C_word*)((C_word*)t0)[6])[1]; f_9183(t9,t4,t6,t8);} /* k7979 in loop in k8058 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_7981,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_7960,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_a_i_record4(&a,4,lf[211],lf[226],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[4]); /* support.scm:566: reverse */ t7=*((C_word*)lf[91]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t4; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* a14900 in k14805 in walk in scan-free-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_14901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14901,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_14913,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* support.scm:1375: append */ t8=*((C_word*)lf[69]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=t2; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* tmp14370 in a6164 in a6133 in string->expr in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_6167(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_6167,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6171,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6193,tmp=(C_word)a,a+=2,tmp); /* support.scm:311: with-input-from-string */ t4=*((C_word*)lf[121]+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);}} /* a6164 in a6133 in string->expr in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6165,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6167,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6208,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6225,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* tmp14370 */ t5=t2; f_6167(t5,t4);} /* k5627 in valid-c-identifier? in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5629(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_5629,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_5650,tmp=(C_word)a,a+=2,tmp); t6=C_u_i_cdr(t1); /* support.scm:206: any */ t7=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=((C_word*)t0)[2]; av2[2]=t5; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* ##compiler#valid-c-identifier? in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5625(C_word c,C_word *av){ C_word tmp; C_word 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_5625,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5629,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5673,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* support.scm:202: ->string */ t5=*((C_word*)lf[60]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k9205 in loop in k9169 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9207,2,av);} a=C_alloc(9); t2=C_a_i_list(&a,2,lf[238],t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8726 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8728,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[211],lf[253],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10297 in map-loop2039 in k10255 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10299,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10274(t6,((C_word*)t0)[5],t5);} /* k6155 in a6145 in a6139 in a6133 in string->expr in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6157,2,av);} if(C_truep(t1)){ /* support.scm:309: exn-msg */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:310: ->string */ t2=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k6152 in a6145 in a6139 in a6133 in string->expr in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6154,2,av);} /* support.scm:306: quit */ t2=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7958 in k7979 in loop in k8058 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_7960(C_word c,C_word *av){ C_word tmp; C_word t0=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_7960,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[211],lf[237],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* g2045 in k10255 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_10262(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_10262,3,t0,t1,t2);} /* support.scm:754: g2062 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_9882(t3,t1,t2,((C_word*)t0)[3]);} /* a6139 in a6133 in string->expr in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6140(C_word c,C_word *av){ C_word tmp; C_word 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_6140,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6146,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:302: k484 */ t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a6145 in a6139 in a6133 in string->expr in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6146,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6154,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_6157,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:308: exn? */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15700 in k15643 in encodeable-literal? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15702,2,av);} /* support.scm:1534: every */ t2=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[519]+1); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a15703 in k15643 in encodeable-literal? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15704(C_word c,C_word *av){ C_word 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_15704,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[2],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k15798 in k15780 in k15769 in k15766 in k15763 in k15760 in k15757 in k15754 in k15745 in loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_15800,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15803,a[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[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8770 in k8767 in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_8772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8772,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15801 in k15798 in k15780 in k15769 in k15766 in k15763 in k15760 in k15757 in k15754 in k15745 in loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_15803,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15806,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_15811,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_15811(t6,t2,C_fix(5));} /* k15804 in k15801 in k15798 in k15780 in k15769 in k15766 in k15763 in k15760 in k15757 in k15754 in k15745 in loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15806,2,av);} /* write-char/port */ t2=*((C_word*)lf[527]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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[16]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* ##compiler#dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15710,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15714,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_15719,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_15719(t7,t3,C_fix(0),t2);} /* k15712 in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15714,2,av);} /* support.scm:1559: newline */ t2=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_15719(C_word t0,C_word t1,C_word 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_15719,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_15747,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: make-string */ t14=*((C_word*)lf[510]+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);}} /* k15825 in k15822 in doloop3815 in k15801 in k15798 in k15780 in k15769 in k15766 in k15763 in k15760 in k15757 in k15754 in k15745 in loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 in ... */ static void C_ccall f_15827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15827,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_15811(t3,((C_word*)t0)[4],t2);} /* k15822 in doloop3815 in k15801 in k15798 in k15780 in k15769 in k15766 in k15763 in k15760 in k15757 in k15754 in k15745 in loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_15824,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15827,a[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:1554: ##sys#print */ t4=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7610 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_7612,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[211],((C_word*)t0)[3],C_SCHEME_END_OF_LIST,t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8767 in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_8769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8769,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8772,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_positivep(((C_word*)((C_word*)t0)[3])[1]))){ /* support.scm:620: debugging */ t4=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[261]; av2[3]=lf[262]; av2[4]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* map-loop1057 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_7614(C_word t0,C_word t1,C_word 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_7614,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_7639,a[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:529: g1063 */ 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);}}} /* k7057 in loop in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7059,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* support.scm:488: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_7046(t4,((C_word*)t0)[4],t3);} /* a5649 in k5627 in valid-c-identifier? in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5650(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5650,3,av);} t3=C_u_i_char_alphabeticp(t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t2; t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_u_i_char_equalp(C_make_character(95),t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} /* map-loop1625 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_9259(C_word t0,C_word t1,C_word 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_9259,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_9284,a[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:662: g1631 */ 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);}}} /* loop in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_7046,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_7059,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_eqp(t4,lf[170]); t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7070,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_7070(t8,t6);} else{ t8=C_eqp(t4,lf[187]); if(C_truep(t8)){ t9=t7; f_7070(t9,t8);} else{ t9=C_eqp(t4,lf[188]); if(C_truep(t9)){ t10=t7; f_7070(t10,t9);} else{ t10=C_eqp(t4,lf[189]); if(C_truep(t10)){ t11=t7; f_7070(t11,t10);} else{ t11=C_eqp(t4,lf[190]); if(C_truep(t11)){ t12=t7; f_7070(t12,t11);} else{ t12=C_eqp(t4,lf[191]); if(C_truep(t12)){ t13=t7; f_7070(t13,t12);} else{ t13=C_eqp(t4,lf[192]); if(C_truep(t13)){ t14=t7; f_7070(t14,t13);} else{ t14=C_eqp(t4,lf[193]); if(C_truep(t14)){ t15=t7; f_7070(t15,t14);} else{ t15=C_eqp(t4,lf[194]); if(C_truep(t15)){ t16=t7; f_7070(t16,t15);} else{ t16=C_eqp(t4,lf[195]); if(C_truep(t16)){ t17=t7; f_7070(t17,t16);} else{ t17=C_eqp(t4,lf[196]); if(C_truep(t17)){ t18=t7; f_7070(t18,t17);} else{ t18=C_eqp(t4,lf[197]); if(C_truep(t18)){ t19=t7; f_7070(t19,t18);} else{ t19=C_eqp(t4,lf[198]); if(C_truep(t19)){ t20=t7; f_7070(t20,t19);} else{ t20=C_eqp(t4,lf[199]); if(C_truep(t20)){ t21=t7; f_7070(t21,t20);} else{ t21=C_eqp(t4,lf[200]); if(C_truep(t21)){ t22=t7; f_7070(t22,t21);} else{ t22=C_eqp(t4,lf[201]); if(C_truep(t22)){ t23=t7; f_7070(t23,t22);} else{ t23=C_eqp(t4,lf[202]); if(C_truep(t23)){ t24=t7; f_7070(t24,t23);} else{ t24=C_eqp(t4,lf[203]); if(C_truep(t24)){ t25=t7; f_7070(t25,t24);} else{ t25=C_eqp(t4,lf[204]); if(C_truep(t25)){ t26=t7; f_7070(t26,t25);} else{ t26=C_eqp(t4,lf[205]); t27=t7; f_7070(t27,(C_truep(t26)?t26:C_eqp(t4,lf[206])));}}}}}}}}}}}}}}}}}}}} 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);}}} /* k9220 in k9232 in loop in k9169 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9222(C_word c,C_word *av){ C_word tmp; 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_9222,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k9688 in fold in fold-boolean in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_9690,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9694,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:683: fold */ t6=((C_word*)((C_word*)t0)[4])[1]; f_9664(t6,t3,t5);} /* k9692 in k9688 in fold in fold-boolean in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_9694,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[211],lf[242],lf[280],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop2039 in k10255 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_10274(C_word t0,C_word t1,C_word 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_10274,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_10299,a[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: g2045 */ t5=((C_word*)t0)[4]; f_10262(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);}}} /* k10270 in k10255 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10272(C_word c,C_word *av){ C_word tmp; C_word t0=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_10272,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[211],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7904 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_7906,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[211],lf[236],((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* doloop3815 in k15801 in k15798 in k15780 in k15769 in k15766 in k15763 in k15760 in k15757 in k15754 in k15745 in loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_15811(C_word t0,C_word 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_15811,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[16]+1); t4=*((C_word*)lf[16]+1); t5=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15824,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:1554: ##sys#write-char-0 */ t7=*((C_word*)lf[18]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=C_make_character(32); av2[3]=*((C_word*)lf[16]+1); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* a15538 in a15532 in a15514 in a15492 in k15559 in k15411 in constant-form-eval in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15539(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15539,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* a15532 in a15514 in a15492 in k15559 in k15411 in constant-form-eval in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15533(C_word c,C_word *av){ C_word tmp; 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_15533,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_15539,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* support.scm:1499: k3706 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k9282 in map-loop1625 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_9284,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9259(t6,((C_word*)t0)[5],t5);} /* loop in k8058 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_7937(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_7937,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_7981,a[2]=t6,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* support.scm:565: reverse */ t8=*((C_word*)lf[91]+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[238],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_8023,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[240],t3); /* support.scm:571: reverse */ t11=*((C_word*)lf[91]+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_8044,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_8048,a[2]=((C_word*)t0)[3],a[3]=t12,tmp=(C_word)a,a+=4,tmp); /* support.scm:575: cadar */ t14=*((C_word*)lf[239]+1);{ C_word av2[3]; av2[0]=t14; av2[1]=t13; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}}}} /* ##compiler#export-variable in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16054(C_word c,C_word *av){ C_word tmp; C_word 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_16054,3,av);} a=C_alloc(3); t3=C_a_i_list(&a,1,lf[543]); if(C_truep(C_i_nullp(t3))){ /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[142]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=lf[541]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_i_car(t3); /* tweaks.scm:54: ##sys#put! */ t5=*((C_word*)lf[142]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=lf[541]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k15769 in k15766 in k15763 in k15760 in k15757 in k15754 in k15745 in loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_15771,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15772,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[35]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15782,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_15844,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_15844(t8,t4,((C_word*)t0)[4]);} /* g3785 in k15769 in k15766 in k15763 in k15760 in k15757 in k15754 in k15745 in loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_15772(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_15772,3,t0,t1,t2);} /* support.scm:1550: g3800 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_15719(t3,t1,((C_word*)t0)[3],t2);} /* k15786 in k15780 in k15769 in k15766 in k15763 in k15760 in k15757 in k15754 in k15745 in loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15788,2,av);} /* write-char/port */ t2=*((C_word*)lf[527]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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[16]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k15780 in k15769 in k15766 in k15763 in k15760 in k15757 in k15754 in k15745 in loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_15782,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_15788,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[16]+1); t6=*((C_word*)lf[16]+1); t7=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15800,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[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t8; av2[2]=C_make_character(91); av2[3]=*((C_word*)lf[16]+1); ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ /* write-char/port */ t5=*((C_word*)lf[527]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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[16]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k15887 in k15872 in read-info-hook in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_15889,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15893,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: ##sys#hash-table-ref */ t6=*((C_word*)lf[149]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=*((C_word*)lf[158]+1); av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k7673 in k7666 in k7663 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7675,2,av);} t2=C_i_inexact_to_exact(t1); /* support.scm:532: qnode */ t3=*((C_word*)lf[222]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* g3509 in walkeach in scan-free-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_14959(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_14959,3,t0,t1,t2);} /* support.scm:1379: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_14773(t3,t1,t2,((C_word*)t0)[3]);} /* walkeach in scan-free-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_14957(C_word t0,C_word t1,C_word 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_14957,4,t0,t1,t2,t3);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14959,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_check_list_2(t2,lf[35]); 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_14971,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_14971(t9,t1,t2);} /* ##compiler#variable-hidden? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16074(C_word c,C_word *av){ C_word tmp; C_word 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_16074,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16082,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* support.scm:1629: ##sys#get */ t4=*((C_word*)lf[255]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[541]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k15559 in k15411 in constant-form-eval in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15561(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_15561,2,av);} a=C_alloc(14); 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_15428,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|5,a[1]=(C_word)f_15493,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=t5,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* support.scm:1499: call-with-current-continuation */ t8=*((C_word*)lf[123]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:1513: bomb */ t6=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[4]; av2[2]=lf[524]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* map-loop3676 in k15411 in constant-form-eval in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_15563(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_15563,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[97],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_mutate2(((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);}}} /* ##compiler#simple-lambda-node? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(6,c,3)))){ C_save_and_reclaim((void *)f_11277,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_u_i_car(t5):C_SCHEME_FALSE); t8=t7; if(C_truep(t8)){ t9=C_u_i_cdr(t4); if(C_truep(C_u_i_car(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|3,a[1]=(C_word)f_11305,a[2]=t8,a[3]=t11,tmp=(C_word)a,a+=4,tmp)); t13=((C_word*)t11)[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t1; av2[2]=t2; f_11305(3,av2);}} else{ t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} else{ t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k7663 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_7665(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_7665,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7668,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:536: warning */ t3=*((C_word*)lf[228]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=lf[229]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* support.scm:532: qnode */ t2=*((C_word*)lf[222]+1);{ C_word av2[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);}}} /* k7666 in k7663 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7668,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7675,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:538: truncate */ t3=*((C_word*)lf[227]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10003 in k9997 in k9994 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10005,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_10025,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:737: walk */ t6=((C_word*)((C_word*)t0)[6])[1]; f_9882(t6,t4,t5,((C_word*)t0)[7]);} /* a6198 in a6192 in tmp14370 in a6164 in a6133 in string->expr in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_6199,3,av);} /* support.scm:313: read */ t3=*((C_word*)lf[117]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a6192 in tmp14370 in a6164 in a6133 in string->expr in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6193,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6199,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6207,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:313: read */ t4=*((C_word*)lf[117]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##compiler#big-fixnum? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16010(C_word c,C_word *av){ C_word tmp; C_word 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_16010,3,av);} if(C_truep(C_fixnump(t2))){ if(C_truep(C_fudge(C_fix(3)))){ t3=C_fixnum_greaterp(t2,C_fix(1073741823)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep(t3)?t3:C_fixnum_lessp(t2,C_fix(-1073741824))); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k15869 in read-info-hook in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15871,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15872 in read-info-hook in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_15874(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_15874,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_15889,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: conc */ t5=*((C_word*)lf[507]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[529]+1); av2[3]=lf[530]; 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);}}} /* k10023 in k10003 in k9997 in k9994 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10025,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[211],lf[109],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##compiler#variable-visible? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_16084,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16088,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* support.scm:1632: ##sys#get */ t4=*((C_word*)lf[255]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[541]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k16086 in variable-visible? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16088,2,av);} t2=C_eqp(t1,lf[540]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_eqp(t1,lf[543]); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep(t3)?C_SCHEME_TRUE:C_i_not(*((C_word*)lf[545]+1))); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k15745 in loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,3)))){ C_save_and_reclaim((void *)f_15747,2,av);} a=C_alloc(15); t2=t1; t3=C_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(2)); t4=t3; t5=*((C_word*)lf[16]+1); t6=*((C_word*)lf[16]+1); t7=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_15756,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:1542: ##sys#write-char-0 */ t9=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t8; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[16]+1); ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* map-loop3645 in constant-form-eval in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_15597(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_15597,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_mutate2(((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);}}} /* k16080 in variable-hidden? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16082,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(t1,lf[540]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##compiler#tree-copy in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; 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_10369,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_10375,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_10375(t6,t1,t2);} /* k7637 in map-loop1057 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_7639,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7614(t6,((C_word*)t0)[5],t5);} /* for-each-loop3784 in k15769 in k15766 in k15763 in k15760 in k15757 in k15754 in k15745 in loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_15844(C_word t0,C_word t1,C_word 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_15844,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_15854,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: g3785 */ t5=((C_word*)t0)[3]; f_15772(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);}}} /* k15757 in k15754 in k15745 in loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15759(C_word c,C_word *av){ C_word tmp; C_word t0=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_15759,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_15762,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:1542: ##sys#write-char-0 */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a11481 in dump-global-refs in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_11482,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11523,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* support.scm:931: keyword? */ t5=*((C_word*)lf[326]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k15754 in k15745 in loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15756(C_word c,C_word *av){ C_word tmp; C_word t0=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_15756,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_15759,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:1542: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15891 in k15887 in k15872 in read-info-hook in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_15893,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=t1; t3=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]),t2); /* support.scm:1566: ##sys#hash-table-set! */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=*((C_word*)lf[158]+1); av2[3]=((C_word*)t0)[5]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t2=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]),C_SCHEME_END_OF_LIST); /* support.scm:1566: ##sys#hash-table-set! */ t3=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=*((C_word*)lf[158]+1); av2[3]=((C_word*)t0)[5]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k15766 in k15763 in k15760 in k15757 in k15754 in k15745 in loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15768(C_word c,C_word *av){ C_word tmp; C_word t0=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_15768,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15771,a[2]=((C_word*)t0)[2],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:1542: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15763 in k15760 in k15757 in k15754 in k15745 in loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_15765,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15768,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:1542: ##sys#write-char-0 */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15760 in k15757 in k15754 in k15745 in loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15762(C_word c,C_word *av){ C_word tmp; C_word t0=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_15762,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15765,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:1542: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#read-info-hook in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_15867,5,av);} a=C_alloc(10); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15871,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15874,a[2]=t3,a[3]=t5,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=C_eqp(lf[531],t2); if(C_truep(t7)){ t8=C_i_car(t3); t9=t6; f_15874(t9,C_i_symbolp(t8));} else{ t8=t6; f_15874(t8,C_SCHEME_FALSE);}} /* g1939 in a10047 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_10053(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_10053,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10057,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* support.scm:743: gensym */ t4=*((C_word*)lf[110]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a10047 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10048,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_10053,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t10=t2; t11=C_i_check_list_2(t10,lf[161]); t12=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10066,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_10213,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_10213(t16,t12,t10);} /* ##compiler#build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_8780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8780,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_8786,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=t2; f_8786(3,av2);}} /* walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_8786(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8786,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[225]); t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8820,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_8820(t15,t13);} else{ t15=C_eqp(t12,lf[277]); t16=t14; f_8820(t16,(C_truep(t15)?t15:C_eqp(t12,lf[278])));}} /* k12354 in k12280 in k12243 in k12200 in k12155 in k12111 in k12084 in k12057 in k12031 in k11989 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 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 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_12356,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[353]+1))?t1:C_a_i_list(&a,2,lf[361],t1)); t5=C_a_i_list(&a,2,lf[97],C_SCHEME_FALSE); t6=C_a_i_list(&a,4,lf[225],t1,t4,t5); t7=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[109],t3,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k11493 in k11521 in a11481 in dump-global-refs in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11495,2,av);} /* support.scm:934: newline */ t2=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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 t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ av[0]=t0; av[1]=t1; av[2]=t2; C_save_and_reclaim((void *)f_7545,3,av);} a=C_alloc(21); if(C_truep(C_i_symbolp(t2))){ /* support.scm:524: varnode */ t3=*((C_word*)lf[220]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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[211]))){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_not_pair_p(t2))){ /* support.scm:526: bomb */ t4=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=lf[224]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=C_i_car(t2); if(C_truep(C_i_symbolp(t4))){ t5=t2; t6=C_u_i_car(t5); t7=C_eqp(t6,lf[225]); t8=(C_truep(t7)?t7:C_eqp(t6,lf[226])); if(C_truep(t8)){ t9=t2; t10=C_u_i_car(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_word*)((C_word*)t0)[2])[1]; t16=t2; t17=C_u_i_cdr(t16); t18=C_i_check_list_2(t17,lf[161]); t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7612,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_7614,a[2]=t13,a[3]=t21,a[4]=t15,a[5]=t14,tmp=(C_word)a,a+=6,tmp)); t23=((C_word*)t21)[1]; f_7614(t23,t19,t17);} else{ t9=C_eqp(t6,lf[97]); if(C_truep(t9)){ t10=C_i_cadr(t2); t11=t10; t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7665,a[2]=t1,a[3]=t11,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_numberp(t11))){ t13=C_eqp(lf[230],*((C_word*)lf[231]+1)); if(C_truep(t13)){ t14=C_i_integerp(t11); t15=t12; f_7665(t15,C_i_not(t14));} else{ t14=t12; f_7665(t14,C_SCHEME_FALSE);}} else{ t13=t12; f_7665(t13,C_SCHEME_FALSE);}} else{ t10=C_eqp(t6,lf[109]); if(C_truep(t10)){ t11=C_i_cadr(t2); t12=C_i_caddr(t2); t13=t12; if(C_truep(C_i_nullp(t11))){ /* support.scm:544: walk */ t39=t1; t40=t13; t1=t39; t2=t40; c=3; goto loop;} 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=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7738,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t13,a[6]=t16,a[7]=t17,tmp=(C_word)a,a+=8,tmp); /* support.scm:550: unzip1 */ t19=*((C_word*)lf[234]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t19; av2[1]=t18; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}}} else{ t11=C_eqp(t6,lf[235]); t12=(C_truep(t11)?t11:C_eqp(t6,lf[133])); if(C_truep(t12)){ t13=C_i_cadr(t2); t14=C_a_i_list1(&a,1,t13); t15=t14; t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7872,a[2]=t1,a[3]=t15,tmp=(C_word)a,a+=4,tmp); t17=C_i_caddr(t2); /* support.scm:554: walk */ t39=t16; t40=t17; t1=t39; t2=t40; c=3; goto loop;} else{ t13=C_eqp(t6,lf[236]); if(C_truep(t13)){ t14=C_i_cadr(t2); t15=C_i_caddr(t2); t16=C_a_i_list2(&a,2,t14,t15); t17=t16; t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7906,a[2]=t1,a[3]=t17,tmp=(C_word)a,a+=4,tmp); t19=C_i_cadddr(t2); /* support.scm:558: walk */ t39=t18; t40=t19; t1=t39; t2=t40; c=3; goto loop;} else{ t14=C_eqp(t6,lf[237]); if(C_truep(t14)){ t15=C_i_cdddr(t2); t16=t15; t17=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8060,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t16,tmp=(C_word)a,a+=6,tmp); t18=t2; t19=C_u_i_cdr(t18); t20=C_u_i_cdr(t19); t21=C_u_i_car(t20); /* support.scm:561: walk */ t39=t17; t40=t21; t1=t39; t2=t40; c=3; goto loop;} else{ t15=C_eqp(t6,lf[241]); if(C_truep(t15)){ t16=C_i_cadr(t2); t17=t2; t18=C_u_i_car(t17); t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8087,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,a[5]=t18,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t16))){ t20=C_u_i_car(t16); t21=C_eqp(lf[97],t20); if(C_truep(t21)){ t22=C_i_cadr(t16); t23=t19; f_8087(t23,C_a_i_list1(&a,1,t22));} else{ t22=t19; f_8087(t22,C_a_i_list1(&a,1,t16));}} else{ t20=t19; f_8087(t20,C_a_i_list1(&a,1,t16));}} else{ t16=C_eqp(t6,lf[242]); t17=(C_truep(t16)?t16:C_eqp(t6,lf[243])); if(C_truep(t17)){ t18=t2; t19=C_u_i_car(t18); t20=C_i_cadr(t2); t21=C_a_i_list1(&a,1,t20); t22=t21; t23=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t24=t23; t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp); t26=((C_word*)t25)[1]; t27=((C_word*)((C_word*)t0)[2])[1]; t28=t2; t29=C_u_i_cdr(t28); t30=C_u_i_cdr(t29); t31=C_i_check_list_2(t30,lf[161]); t32=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8186,a[2]=t1,a[3]=t19,a[4]=t22,tmp=(C_word)a,a+=5,tmp); t33=C_SCHEME_UNDEFINED; t34=(*a=C_VECTOR_TYPE|1,a[1]=t33,tmp=(C_word)a,a+=2,tmp); t35=C_set_block_item(t34,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8188,a[2]=t25,a[3]=t34,a[4]=t27,a[5]=t26,tmp=(C_word)a,a+=6,tmp)); t36=((C_word*)t34)[1]; f_8188(t36,t32,t30);} else{ t18=C_eqp(t6,lf[244]); if(C_truep(t18)){ t19=t2; t20=C_u_i_car(t19); t21=t2; t22=C_u_i_cdr(t21); t23=t1; t24=t23;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t24; av2[1]=C_a_i_record4(&a,4,lf[211],t20,t22,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t24+1)))(2,av2);}} else{ t19=C_eqp(t6,lf[245]); if(C_truep(t19)){ t20=C_i_cadr(t2); t21=C_a_i_list2(&a,2,t20,C_SCHEME_TRUE); t22=t1; t23=t22;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t23; av2[1]=C_a_i_record4(&a,4,lf[211],lf[245],t21,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}} else{ t20=C_eqp(t6,lf[246]); t21=(C_truep(t20)?t20:C_eqp(t6,lf[247])); if(C_truep(t21)){ t22=C_i_cadr(t2); t23=C_a_i_list1(&a,1,t22); 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=((C_word*)((C_word*)t0)[2])[1]; t30=t2; t31=C_u_i_cdr(t30); t32=C_u_i_cdr(t31); t33=C_i_check_list_2(t32,lf[161]); t34=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8297,a[2]=t1,a[3]=t24,tmp=(C_word)a,a+=4,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_8299,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_8299(t38,t34,t32);} else{ t22=C_eqp(t6,lf[248]); if(C_truep(t22)){ t23=C_i_cadr(t2); t24=C_i_cadr(t23); t25=t24; t26=C_i_caddr(t2); t27=C_i_cadr(t26); t28=t27; t29=C_i_cadddr(t2); t30=C_i_cadr(t29); t31=t30; t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8384,a[2]=t25,a[3]=t28,a[4]=t31,a[5]=t1,a[6]=((C_word*)t0)[2],a[7]=t2,tmp=(C_word)a,a+=8,tmp); /* support.scm:596: fifth */ t33=*((C_word*)lf[250]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t33; av2[1]=t32; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t33+1)))(3,av2);}} else{ t23=C_eqp(t6,lf[251]); t24=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8405,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t6,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); if(C_truep(t23)){ t25=t24; f_8405(t25,t23);} else{ t25=C_eqp(t6,lf[257]); if(C_truep(t25)){ t26=t24; f_8405(t26,t25);} else{ t26=C_eqp(t6,lf[258]); if(C_truep(t26)){ t27=t24; f_8405(t27,t26);} else{ t27=C_eqp(t6,lf[259]); t28=t24; f_8405(t28,(C_truep(t27)?t27:C_eqp(t6,lf[260])));}}}}}}}}}}}}}}}} else{ t5=C_a_i_list1(&a,1,C_SCHEME_FALSE); 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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8728,a[2]=t1,a[3]=t6,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_8730,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_8730(t17,t13,t12);}}}}} /* ##compiler#build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_7542,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_7545,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8769,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* support.scm:618: walk */ t9=((C_word*)t6)[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; av2[2]=t2; f_7545(3,av2);}} /* k10055 in g1939 in a10047 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_10057,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10060,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:744: put! */ t4=*((C_word*)lf[152]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[288]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k14880 in k14869 in k14805 in walk in scan-free-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14882,2,av);} /* support.scm:1370: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_14773(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* ##compiler#words->bytes in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5682(C_word c,C_word *av){ C_word tmp; C_word 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_5682,3,av);} t3=C_i_foreign_fixnum_argumentp(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=stub346(C_SCHEME_UNDEFINED,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##compiler#check-and-open-input-file in k4868 in k4834 in k4831 in k4828 */ 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=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_5689,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[81]))){ t4=*((C_word*)lf[82]+1); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=*((C_word*)lf[82]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5702,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* support.scm:222: file-exists? */ t5=*((C_word*)lf[86]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k9467 in map-loop1694 in k9429 in k9422 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_9469,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9444(t6,((C_word*)t0)[5],t5);} /* k5671 in valid-c-identifier? in k4868 in k4834 in k4831 in k4828 */ 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,2)))){ C_save_and_reclaim((void *)f_5673,2,av);} /* string->list */ t2=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#words in k4868 in k4834 in k4831 in k4828 */ 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; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5675,3,av);} t3=C_i_foreign_fixnum_argumentp(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=stub341(C_SCHEME_UNDEFINED,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9429 in k9422 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9431(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_9431,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[161]); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9442,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_9444,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_9444(t14,t10,t8);} /* k15852 in for-each-loop3784 in k15769 in k15766 in k15763 in k15760 in k15757 in k15754 in k15745 in loop in dump-nodes in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15854,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_15844(t3,((C_word*)t0)[4],t2);} /* ##compiler#string->expr in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; 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_6125,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6129,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6134,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* support.scm:302: call-with-current-continuation */ t5=*((C_word*)lf[123]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t8; C_word t9; C_word t10; C_word t11; C_word 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(59,c,6)))){ C_save_and_reclaim((void *)f_6124,2,av);} a=C_alloc(59); t2=t1; t3=C_mutate2((C_word*)lf[113]+1 /* (set! ##compiler#string->expr ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6125,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t4=C_mutate2((C_word*)lf[124]+1 /* (set! ##compiler#decompose-lambda-list ...) */,*((C_word*)lf[125]+1)); t5=C_mutate2((C_word*)lf[126]+1 /* (set! ##compiler#llist-length ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6228,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate2((C_word*)lf[127]+1 /* (set! ##compiler#llist-match? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6231,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate2((C_word*)lf[128]+1 /* (set! ##compiler#expand-profile-lambda ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6275,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=C_mutate2((C_word*)lf[137]+1 /* (set! ##compiler#initialize-analysis-database ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6332,a[2]=t9,tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[148]+1 /* (set! ##compiler#get ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6529,tmp=(C_word)a,a+=2,tmp)); t12=C_mutate2((C_word*)lf[150]+1 /* (set! ##compiler#get-all ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6547,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate2((C_word*)lf[152]+1 /* (set! ##compiler#put! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6565,tmp=(C_word)a,a+=2,tmp)); t14=C_mutate2((C_word*)lf[154]+1 /* (set! ##compiler#collect! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6611,tmp=(C_word)a,a+=2,tmp)); t15=C_mutate2((C_word*)lf[155]+1 /* (set! ##compiler#count! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6663,tmp=(C_word)a,a+=2,tmp)); t16=C_mutate2((C_word*)lf[156]+1 /* (set! ##compiler#get-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6718,tmp=(C_word)a,a+=2,tmp)); t17=C_mutate2((C_word*)lf[157]+1 /* (set! ##compiler#get-line ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6727,tmp=(C_word)a,a+=2,tmp)); t18=C_mutate2((C_word*)lf[159]+1 /* (set! ##compiler#get-line-2 ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6737,tmp=(C_word)a,a+=2,tmp)); t19=C_mutate2((C_word*)lf[160]+1 /* (set! ##compiler#display-line-number-database ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6778,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_mutate2((C_word*)lf[163]+1 /* (set! ##compiler#display-analysis-database ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6849,a[2]=t21,tmp=(C_word)a,a+=3,tmp)); t23=C_mutate2((C_word*)lf[210]+1 /* (set! make-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7437,tmp=(C_word)a,a+=2,tmp)); t24=C_mutate2((C_word*)lf[212]+1 /* (set! node? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7443,tmp=(C_word)a,a+=2,tmp)); t25=C_mutate2((C_word*)lf[213]+1 /* (set! node-class ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7449,tmp=(C_word)a,a+=2,tmp)); t26=C_mutate2((C_word*)lf[214]+1 /* (set! node-class-set! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7458,tmp=(C_word)a,a+=2,tmp)); t27=C_mutate2((C_word*)lf[216]+1 /* (set! node-parameters ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7467,tmp=(C_word)a,a+=2,tmp)); t28=C_mutate2((C_word*)lf[217]+1 /* (set! node-parameters-set! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7476,tmp=(C_word)a,a+=2,tmp)); t29=C_mutate2((C_word*)lf[218]+1 /* (set! node-subexpressions ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7485,tmp=(C_word)a,a+=2,tmp)); t30=C_mutate2((C_word*)lf[219]+1 /* (set! node-subexpressions-set! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7494,tmp=(C_word)a,a+=2,tmp)); t31=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7504,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t32=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16293,tmp=(C_word)a,a+=2,tmp); /* support.scm:512: ##sys#register-record-printer */ t33=*((C_word*)lf[566]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t33; av2[1]=t31; av2[2]=lf[211]; av2[3]=t32; ((C_proc)(void*)(*((C_word*)t33+1)))(4,av2);}} /* k6119 in k4868 in k4834 in k4831 in k4828 */ 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(4,c,3)))){ C_save_and_reclaim((void *)f_6121,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6124,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* support.scm:303: condition-property-accessor */ t4=*((C_word*)lf[567]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[521]; av2[3]=lf[522]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* ##compiler#qnode in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_7527,3,av);} a=C_alloc(8); t3=C_a_i_list1(&a,1,t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[211],lf[97],t3,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6127 in string->expr in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6129,2,av);} /* support.scm:302: g488 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##compiler#real-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15144(C_word c,C_word *av){ C_word 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_15144,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_15147,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15163,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* support.scm:1440: resolve */ f_15147(t5,t2);} /* resolve in real-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_15147(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_15147,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15151,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:1435: ##sys#hash-table-ref */ t4=*((C_word*)lf[149]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[497]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k9440 in k9429 in k9422 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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(0,c,5)))){ C_save_and_reclaim((void *)f_9442,2,av);} /* support.scm:671: cons* */ t2=*((C_word*)lf[270]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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-loop1694 in k9429 in k9422 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_9444(C_word t0,C_word t1,C_word 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_9444,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_9469,a[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:671: g1700 */ 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);}}} /* k15094 in make-random-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15096(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_15096,2,av);} a=C_alloc(9); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[52]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15102,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_15126,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t6))){ /* support.scm:1415: gensym */ t8=*((C_word*)lf[110]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_i_car(t6); /* support.scm:1414: ##sys#print */ t9=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* ##compiler#varnode in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_7512,3,av);} a=C_alloc(8); t3=C_a_i_list1(&a,1,t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[211],lf[221],t3,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k12007 in k11992 in k11989 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_12009(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_12009,2,t0,t1);} a=C_alloc(27); t2=C_a_i_list(&a,2,lf[97],C_SCHEME_FALSE); t3=C_a_i_list(&a,4,lf[225],((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[109],((C_word*)t0)[4],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6100 in k6074 in loop in canonicalize-begin-body in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_6102,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_6092,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:299: loop */ t10=((C_word*)((C_word*)t0)[4])[1]; f_6052(t10,t7,t9);} /* k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(137,c,8)))){ C_save_and_reclaim((void *)f_7504,2,av);} a=C_alloc(137); t2=C_mutate2((C_word*)lf[210]+1 /* (set! make-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7506,tmp=(C_word)a,a+=2,tmp)); t3=C_mutate2((C_word*)lf[220]+1 /* (set! ##compiler#varnode ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7512,tmp=(C_word)a,a+=2,tmp)); t4=C_mutate2((C_word*)lf[222]+1 /* (set! ##compiler#qnode ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7527,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate2((C_word*)lf[223]+1 /* (set! ##compiler#build-node-graph ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7542,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate2((C_word*)lf[263]+1 /* (set! ##compiler#build-expression-tree ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8780,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate2((C_word*)lf[279]+1 /* (set! ##compiler#fold-boolean ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9658,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate2((C_word*)lf[281]+1 /* (set! ##compiler#inline-lambda-bindings ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9708,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate2((C_word*)lf[286]+1 /* (set! ##compiler#copy-node-tree-and-rename ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9861,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate2((C_word*)lf[290]+1 /* (set! ##compiler#tree-copy ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10369,tmp=(C_word)a,a+=2,tmp)); t11=C_mutate2((C_word*)lf[291]+1 /* (set! copy-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10399,tmp=(C_word)a,a+=2,tmp)); t12=C_mutate2((C_word*)lf[292]+1 /* (set! ##compiler#copy-node! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10437,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate2((C_word*)lf[293]+1 /* (set! ##compiler#node->sexpr ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10476,tmp=(C_word)a,a+=2,tmp)); t14=C_mutate2((C_word*)lf[294]+1 /* (set! ##compiler#sexpr->node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10562,tmp=(C_word)a,a+=2,tmp)); t15=C_mutate2((C_word*)lf[295]+1 /* (set! ##compiler#emit-global-inline-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10633,tmp=(C_word)a,a+=2,tmp)); t16=C_mutate2((C_word*)lf[315]+1 /* (set! ##compiler#load-inline-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10895,tmp=(C_word)a,a+=2,tmp)); t17=C_mutate2((C_word*)lf[317]+1 /* (set! ##compiler#match-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10951,tmp=(C_word)a,a+=2,tmp)); t18=C_mutate2((C_word*)lf[320]+1 /* (set! ##compiler#expression-has-side-effects? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11168,tmp=(C_word)a,a+=2,tmp)); t19=C_mutate2((C_word*)lf[324]+1 /* (set! ##compiler#simple-lambda-node? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11277,tmp=(C_word)a,a+=2,tmp)); t20=C_mutate2((C_word*)lf[325]+1 /* (set! ##compiler#dump-undefined-globals ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11398,tmp=(C_word)a,a+=2,tmp)); t21=C_mutate2((C_word*)lf[327]+1 /* (set! ##compiler#dump-defined-globals ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11439,tmp=(C_word)a,a+=2,tmp)); t22=C_mutate2((C_word*)lf[328]+1 /* (set! ##compiler#dump-global-refs ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11476,tmp=(C_word)a,a+=2,tmp)); t23=C_mutate2((C_word*)lf[329]+1 /* (set! ##sys#toplevel-definition-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11525,tmp=(C_word)a,a+=2,tmp)); t24=C_mutate2((C_word*)lf[332]+1 /* (set! ##compiler#compute-database-statistics ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11546,tmp=(C_word)a,a+=2,tmp)); t25=C_mutate2((C_word*)lf[335]+1 /* (set! ##compiler#print-program-statistics ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11659,tmp=(C_word)a,a+=2,tmp)); t26=C_mutate2((C_word*)lf[345]+1 /* (set! ##compiler#pprint-expressions-to-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11758,tmp=(C_word)a,a+=2,tmp)); t27=C_mutate2((C_word*)lf[350]+1 /* (set! ##compiler#foreign-type-check ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11816,tmp=(C_word)a,a+=2,tmp)); t28=C_mutate2((C_word*)lf[435]+1 /* (set! ##compiler#foreign-type-convert-result ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12809,tmp=(C_word)a,a+=2,tmp)); t29=C_mutate2((C_word*)lf[436]+1 /* (set! ##compiler#foreign-type-convert-argument ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12840,tmp=(C_word)a,a+=2,tmp)); t30=C_mutate2((C_word*)lf[437]+1 /* (set! ##compiler#final-foreign-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12871,tmp=(C_word)a,a+=2,tmp)); t31=C_mutate2((C_word*)lf[439]+1 /* (set! ##compiler#estimate-foreign-result-size ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12916,tmp=(C_word)a,a+=2,tmp)); t32=C_mutate2((C_word*)lf[444]+1 /* (set! ##compiler#estimate-foreign-result-location-size ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13348,tmp=(C_word)a,a+=2,tmp)); t33=C_mutate2((C_word*)lf[447]+1 /* (set! ##compiler#finish-foreign-result ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13781,tmp=(C_word)a,a+=2,tmp)); t34=C_mutate2((C_word*)lf[461]+1 /* (set! ##compiler#foreign-type->scrutiny-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14049,tmp=(C_word)a,a+=2,tmp)); t35=C_mutate2((C_word*)lf[481]+1 /* (set! ##compiler#scan-used-variables ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14615,tmp=(C_word)a,a+=2,tmp)); t36=C_mutate2((C_word*)lf[482]+1 /* (set! ##compiler#scan-free-variables ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14770,tmp=(C_word)a,a+=2,tmp)); t37=C_mutate2((C_word*)lf[484]+1 /* (set! ##compiler#chop-separator ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15000,tmp=(C_word)a,a+=2,tmp)); t38=C_mutate2((C_word*)lf[487]+1 /* (set! ##compiler#chop-extension ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15027,tmp=(C_word)a,a+=2,tmp)); t39=C_mutate2((C_word*)lf[488]+1 /* (set! ##compiler#make-block-variable-literal ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15067,tmp=(C_word)a,a+=2,tmp)); t40=C_mutate2((C_word*)lf[490]+1 /* (set! ##compiler#block-variable-literal? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15073,tmp=(C_word)a,a+=2,tmp)); t41=C_mutate2((C_word*)lf[491]+1 /* (set! ##compiler#block-variable-literal-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15079,tmp=(C_word)a,a+=2,tmp)); t42=C_mutate2((C_word*)lf[493]+1 /* (set! ##compiler#make-random-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15088,tmp=(C_word)a,a+=2,tmp)); t43=C_mutate2((C_word*)lf[496]+1 /* (set! ##compiler#set-real-name! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15137,tmp=(C_word)a,a+=2,tmp)); t44=C_set_block_item(lf[498] /* real-name-max-depth */,0,C_fix(20)); t45=C_mutate2((C_word*)lf[47]+1 /* (set! ##compiler#real-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15144,tmp=(C_word)a,a+=2,tmp)); t46=C_mutate2((C_word*)lf[504]+1 /* (set! ##compiler#real-name2 ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15264,tmp=(C_word)a,a+=2,tmp)); t47=C_mutate2((C_word*)lf[505]+1 /* (set! ##compiler#display-real-name-table ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15276,tmp=(C_word)a,a+=2,tmp)); t48=C_mutate2((C_word*)lf[506]+1 /* (set! ##compiler#source-info->string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15300,tmp=(C_word)a,a+=2,tmp)); t49=C_mutate2((C_word*)lf[512]+1 /* (set! ##compiler#source-info->line ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15334,tmp=(C_word)a,a+=2,tmp)); t50=C_mutate2((C_word*)lf[513]+1 /* (set! ##compiler#call-info ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15352,tmp=(C_word)a,a+=2,tmp)); t51=C_mutate2((C_word*)lf[516]+1 /* (set! ##compiler#constant-form-eval ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15389,tmp=(C_word)a,a+=2,tmp)); t52=C_mutate2((C_word*)lf[519]+1 /* (set! ##compiler#encodeable-literal? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15631,tmp=(C_word)a,a+=2,tmp)); t53=C_mutate2((C_word*)lf[526]+1 /* (set! ##compiler#dump-nodes ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15710,tmp=(C_word)a,a+=2,tmp)); t54=C_mutate2((C_word*)lf[528]+1 /* (set! ##compiler#read-info-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15867,tmp=(C_word)a,a+=2,tmp)); t55=C_mutate2((C_word*)lf[532]+1 /* (set! ##compiler#read/source-info ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15910,tmp=(C_word)a,a+=2,tmp)); t56=*((C_word*)lf[534]+1); t57=C_mutate2((C_word*)lf[534]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15916,a[2]=t56,tmp=(C_word)a,a+=3,tmp)); t58=C_mutate2((C_word*)lf[537]+1 /* (set! ##compiler#scan-sharp-greater-string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15941,tmp=(C_word)a,a+=2,tmp)); t59=C_mutate2((C_word*)lf[102]+1 /* (set! ##compiler#big-fixnum? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16010,tmp=(C_word)a,a+=2,tmp)); t60=C_mutate2((C_word*)lf[330]+1 /* (set! ##compiler#hide-variable ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16034,tmp=(C_word)a,a+=2,tmp)); t61=C_mutate2((C_word*)lf[542]+1 /* (set! ##compiler#export-variable ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16054,tmp=(C_word)a,a+=2,tmp)); t62=C_mutate2((C_word*)lf[544]+1 /* (set! ##compiler#variable-hidden? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16074,tmp=(C_word)a,a+=2,tmp)); t63=C_mutate2((C_word*)lf[314]+1 /* (set! ##compiler#variable-visible? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16084,tmp=(C_word)a,a+=2,tmp)); t64=C_mutate2((C_word*)lf[546]+1 /* (set! ##compiler#mark-variable ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16109,tmp=(C_word)a,a+=2,tmp)); t65=C_mutate2((C_word*)lf[547]+1 /* (set! ##compiler#variable-mark ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16124,tmp=(C_word)a,a+=2,tmp)); t66=C_mutate2((C_word*)lf[548]+1 /* (set! ##compiler#intrinsic? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16130,tmp=(C_word)a,a+=2,tmp)); t67=C_mutate2((C_word*)lf[549]+1 /* (set! foldable? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16141,tmp=(C_word)a,a+=2,tmp)); t68=C_mutate2((C_word*)lf[550]+1 /* (set! ##compiler#load-identifier-database ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16152,tmp=(C_word)a,a+=2,tmp)); t69=C_mutate2((C_word*)lf[558]+1 /* (set! ##compiler#print-version ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16250,tmp=(C_word)a,a+=2,tmp)); t70=C_mutate2((C_word*)lf[561]+1 /* (set! ##compiler#print-usage ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16275,tmp=(C_word)a,a+=2,tmp)); t71=C_mutate2((C_word*)lf[563]+1 /* (set! ##compiler#print-debug-options ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16287,tmp=(C_word)a,a+=2,tmp)); t72=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t72; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t72+1)))(2,av2);}} /* k6105 in loop in canonicalize-begin-body in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6107,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_6076(t3,t2);} else{ t2=((C_word*)t0)[2]; f_6076(t2,C_i_equalp(((C_word*)t0)[3],lf[112]));}} /* make-node in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_7506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7506,5,av);} a=C_alloc(5); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[211],t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k6169 in tmp14370 in a6164 in a6133 in string->expr in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6171,2,av);} a=C_alloc(3); if(C_truep(C_i_nullp(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[115]; ((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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep(t3)?C_u_i_car(t1):C_a_i_cons(&a,2,lf[116],t1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* ##compiler#set-real-name! in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15137(C_word c,C_word *av){ C_word tmp; C_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_15137,4,av);} /* support.scm:1428: ##sys#hash-table-set! */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=*((C_word*)lf[497]+1); av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k14869 in k14805 in walk in scan-free-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_14871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_14871,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_14882,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* support.scm:1370: append */ t5=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#llist-match? in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6231(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_6231,4,av);} a=C_alloc(2); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6237,tmp=(C_word)a,a+=2,tmp); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=( f_6237(t2,t3) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* loop in llist-match? in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static C_word C_fcall f_6237(C_word t1,C_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;}}}} /* k11884 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_11886,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[353]+1))?t1:C_a_i_list(&a,2,lf[361],t1)); t5=C_a_i_list(&a,2,lf[97],C_SCHEME_FALSE); t6=C_a_i_list(&a,4,lf[225],t1,t4,t5); t7=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[109],t3,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k12031 in k11989 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_12033(C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_12033,2,t0,t1);} a=C_alloc(15); if(C_truep(t1)){ if(C_truep(*((C_word*)lf[353]+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[369]); t4=C_slot(t3,C_fix(1)); t5=C_a_i_list(&a,2,lf[97],t4); t6=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=C_a_i_list(&a,3,lf[365],t5,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t2=C_eqp(((C_word*)t0)[5],lf[370]); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12059,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)[4],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(t2)){ t4=t3; f_12059(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[5],lf[408]); if(C_truep(t4)){ t5=t3; f_12059(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[5],lf[409]); t6=t3; f_12059(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[5],lf[410])));}}}} /* k6223 in a6164 in a6133 in string->expr in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6225(C_word c,C_word *av){ C_word tmp; 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_6225,2,av);} a=C_alloc(3); /* tmp24371 */ t2=((C_word*)t0)[2]; f_6208(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* ##compiler#llist-length in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_6228,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_u_i_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k15149 in resolve in real-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_15151,2,av);} a=C_alloc(4); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15157,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:1437: ##sys#hash-table-ref */ t4=*((C_word*)lf[149]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[497]+1); 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k15155 in k15149 in resolve in real-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15157,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?t1:((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a6213 in tmp24371 in a6164 in a6133 in string->expr in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6214,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* ##compiler#initialize-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6332,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6336,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[138]+1); t4=C_i_check_list_2(*((C_word*)lf[138]+1),lf[35]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6385,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_6506,a[2]=t7,tmp=(C_word)a,a+=3,tmp)); t9=((C_word*)t7)[1]; f_6506(t9,t5,*((C_word*)lf[138]+1));} else{ t3=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6334 in initialize-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6336,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k15120 in k15103 in k15100 in k15094 in make-random-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_15122,2,av);} /* support.scm:1414: ##sys#print */ t2=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15124 in k15094 in make-random-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_15126,2,av);} /* support.scm:1414: ##sys#print */ t2=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14805 in walk in scan-free-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_14807(C_word t0,C_word t1){ C_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,5)))){ C_save_and_reclaim_args((void *)trf_14807,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_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[221]); 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|5,a[1]=(C_word)f_14826,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[7],a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* support.scm:1361: lset-adjoin */ t6=*((C_word*)lf[483]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=*((C_word*)lf[13]+1); av2[3]=((C_word*)((C_word*)t0)[6])[1]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} else{ t3=C_eqp(((C_word*)t0)[3],lf[246]); 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)[8]); /* support.scm:1367: walk */ t6=((C_word*)((C_word*)t0)[9])[1]; f_14773(t6,((C_word*)t0)[2],t5,((C_word*)t0)[5]);} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14862,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* support.scm:1366: lset-adjoin */ t6=*((C_word*)lf[483]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=*((C_word*)lf[13]+1); av2[3]=((C_word*)((C_word*)t0)[6])[1]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} else{ t4=C_eqp(((C_word*)t0)[3],lf[109]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14871,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],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)[8]); /* support.scm:1369: walk */ t7=((C_word*)((C_word*)t0)[9])[1]; f_14773(t7,t5,t6,((C_word*)t0)[5]);} else{ t5=C_eqp(((C_word*)t0)[3],lf[133]); if(C_truep(t5)){ t6=C_i_caddr(((C_word*)t0)[4]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14901,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* support.scm:1372: decompose-lambda-list */ t8=*((C_word*)lf[124]+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:1376: walkeach */ t6=((C_word*)((C_word*)t0)[10])[1]; f_14957(t6,((C_word*)t0)[2],((C_word*)t0)[8],((C_word*)t0)[5]);}}}}}} /* k6205 in a6192 in tmp14370 in a6164 in a6133 in string->expr in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6207,2,av);} /* support.scm:313: unfold */ t2=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[119]+1); av2[3]=*((C_word*)lf[120]+1); av2[4]=((C_word*)t0)[3]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* tmp24371 in a6164 in a6133 in string->expr in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_6208,3,t0,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6214,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* support.scm:302: k484 */ 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);}} /* k6277 in expand-profile-lambda in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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(106,c,1)))){ C_save_and_reclaim((void *)f_6279,2,av);} a=C_alloc(106); t2=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]),*((C_word*)lf[130]+1)); t3=C_mutate2((C_word*)lf[130]+1 /* (set! ##compiler#profile-lambda-list ...) */,t2); t4=C_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); t5=C_mutate2((C_word*)lf[129]+1 /* (set! ##compiler#profile-lambda-index ...) */,t4); t6=C_a_i_list(&a,2,lf[97],((C_word*)t0)[2]); t7=C_a_i_list(&a,3,lf[131],t6,*((C_word*)lf[132]+1)); t8=C_a_i_list(&a,3,lf[133],C_SCHEME_END_OF_LIST,t7); t9=C_a_i_list(&a,3,lf[133],((C_word*)t0)[4],((C_word*)t0)[5]); t10=C_a_i_list(&a,3,lf[134],t9,t1); t11=C_a_i_list(&a,3,lf[133],C_SCHEME_END_OF_LIST,t10); t12=C_a_i_list(&a,2,lf[97],((C_word*)t0)[2]); t13=C_a_i_list(&a,3,lf[135],t12,*((C_word*)lf[132]+1)); t14=C_a_i_list(&a,3,lf[133],C_SCHEME_END_OF_LIST,t13); t15=C_a_i_list(&a,4,lf[136],t8,t11,t14); t16=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=C_a_i_list(&a,3,lf[133],t1,t15); ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} /* ##compiler#expand-profile-lambda in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6275,5,av);} a=C_alloc(7); t5=*((C_word*)lf[129]+1); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6279,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* support.scm:335: gensym */ t7=*((C_word*)lf[110]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k6383 in initialize-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_6385,2,av);} a=C_alloc(8); t2=*((C_word*)lf[139]+1); t3=C_i_check_list_2(*((C_word*)lf[139]+1),lf[35]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6433,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_6483,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_6483(t8,t4,*((C_word*)lf[139]+1));} /* k9411 in loop in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9413,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* support.scm:669: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_9372(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2);} /* a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11822(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(7,c,3)))){ C_save_and_reclaim((void *)f_11822,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_11828,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_11828(t7,t1,t2);} /* repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_11828(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_11828,3,t0,t1,t2);} a=C_alloc(8); t3=t2; t4=C_eqp(t3,lf[351]); t5=(C_truep(t4)?t4:C_eqp(t3,lf[352])); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=(C_truep(*((C_word*)lf[353]+1))?((C_word*)t0)[2]:C_a_i_list(&a,2,lf[354],((C_word*)t0)[2])); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(t3,lf[355]); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11853,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],tmp=(C_word)a,a+=8,tmp); if(C_truep(t6)){ t8=t7; f_11853(t8,t6);} else{ t8=C_eqp(t3,lf[427]); if(C_truep(t8)){ t9=t7; f_11853(t9,t8);} else{ t9=C_eqp(t3,lf[428]); if(C_truep(t9)){ t10=t7; f_11853(t10,t9);} else{ t10=C_eqp(t3,lf[429]); if(C_truep(t10)){ t11=t7; f_11853(t11,t10);} else{ t11=C_eqp(t3,lf[430]); if(C_truep(t11)){ t12=t7; f_11853(t12,t11);} else{ t12=C_eqp(t3,lf[431]); if(C_truep(t12)){ t13=t7; f_11853(t13,t12);} else{ t13=C_eqp(t3,lf[432]); t14=t7; f_11853(t14,(C_truep(t13)?t13:C_eqp(t3,lf[433])));}}}}}}}} /* k14150 in k14075 in k14051 in foreign-type->scrutiny-type in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_14152(C_word t0,C_word t1){ C_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_14152,2,t0,t1);} a=C_alloc(15); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_eqp(t2,lf[462]); if(C_truep(t3)){ t4=C_a_i_list(&a,2,lf[465],((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[466],lf[467],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[465],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=C_eqp(((C_word*)t0)[5],lf[368]); if(C_truep(t2)){ t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=lf[468]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_eqp(((C_word*)t0)[5],lf[412]); if(C_truep(t3)){ t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[469]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[5],lf[411]); if(C_truep(t4)){ t5=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t5; av2[1]=lf[470]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(((C_word*)t0)[5],lf[413]); if(C_truep(t5)){ t6=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t6; av2[1]=lf[471]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(((C_word*)t0)[5],lf[414]); if(C_truep(t6)){ t7=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t7; av2[1]=lf[472]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_eqp(((C_word*)t0)[5],lf[415]); if(C_truep(t7)){ t8=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t8; av2[1]=lf[473]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(((C_word*)t0)[5],lf[416]); if(C_truep(t8)){ t9=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t9; av2[1]=lf[474]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_eqp(((C_word*)t0)[5],lf[417]); if(C_truep(t9)){ t10=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t10; av2[1]=lf[475]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_eqp(((C_word*)t0)[5],lf[370]); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14227,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(t10)){ t12=t11; f_14227(t12,t10);} else{ t12=C_eqp(((C_word*)t0)[5],lf[408]); if(C_truep(t12)){ t13=t11; f_14227(t13,t12);} else{ t13=C_eqp(((C_word*)t0)[5],lf[409]); if(C_truep(t13)){ t14=t11; f_14227(t14,t13);} else{ t14=C_eqp(((C_word*)t0)[5],lf[410]); if(C_truep(t14)){ t15=t11; f_14227(t15,t14);} else{ t15=C_eqp(((C_word*)t0)[5],lf[406]); if(C_truep(t15)){ t16=t11; f_14227(t16,t15);} else{ t16=C_eqp(((C_word*)t0)[5],lf[372]); if(C_truep(t16)){ t17=t11; f_14227(t17,t16);} else{ t17=C_eqp(((C_word*)t0)[5],lf[376]); t18=t11; f_14227(t18,(C_truep(t17)?t17:C_eqp(((C_word*)t0)[5],lf[407])));}}}}}}}}}}}}}}}} /* k9422 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_9424(C_word t0,C_word t1){ C_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(21,0,3)))){ C_save_and_reclaim_args((void *)trf_9424,2,t0,t1);} a=C_alloc(21); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9431,a[2]=((C_word*)t0)[2],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:671: walk */ t4=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; f_8786(3,av2);}} else{ t2=C_eqp(((C_word*)t0)[7],lf[251]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[7],lf[273])); 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_word*)((C_word*)t0)[2])[1]; t9=C_i_check_list_2(((C_word*)t0)[3],lf[161]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9502,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); 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_9504,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_9504(t14,t10,((C_word*)t0)[3]);} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9543,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,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*)((C_word*)t0)[2])[1]; t10=C_i_check_list_2(((C_word*)t0)[3],lf[161]); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9553,a[2]=t4,a[3]=((C_word*)t0)[6],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_9555,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_9555(t15,t11,((C_word*)t0)[3]);}}} /* k7074 in k7068 in loop in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7076,2,av);} t2=C_i_caar(((C_word*)t0)[2]); t3=C_i_assq(t2,lf[171]); t4=C_i_cdr(t3); /* support.scm:471: ##sys#print */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_11816,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11822,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12803,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* support.scm:1022: follow-without-loop */ t6=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7068 in loop in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_7070(C_word t0,C_word t1){ C_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_7070,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=*((C_word*)lf[16]+1); t3=*((C_word*)lf[16]+1); t4=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7076,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* support.scm:471: ##sys#write-char-0 */ t6=*((C_word*)lf[18]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(9); av2[3]=*((C_word*)lf[16]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[169]); if(C_truep(t2)){ t3=C_mutate2(((C_word *)((C_word*)t0)[5])+1,lf[169]); t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); /* support.scm:488: loop */ t6=((C_word*)((C_word*)t0)[6])[1]; f_7046(t6,((C_word*)t0)[7],t5);} else{ t3=C_eqp(((C_word*)t0)[4],lf[172]); if(C_truep(t3)){ t4=C_eqp(((C_word*)((C_word*)t0)[5])[1],lf[169]); if(C_truep(t4)){ t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* support.scm:488: loop */ t7=((C_word*)((C_word*)t0)[6])[1]; f_7046(t7,((C_word*)t0)[7],t6);} else{ t5=C_i_cdar(((C_word*)t0)[2]); t6=C_mutate2(((C_word *)((C_word*)t0)[5])+1,t5); t7=((C_word*)t0)[2]; t8=C_u_i_cdr(t7); /* support.scm:488: loop */ t9=((C_word*)((C_word*)t0)[6])[1]; f_7046(t9,((C_word*)t0)[7],t8);}} else{ t4=C_eqp(((C_word*)t0)[4],lf[173]); if(C_truep(t4)){ t5=C_eqp(((C_word*)((C_word*)t0)[5])[1],lf[169]); if(C_truep(t5)){ t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); /* support.scm:488: loop */ t8=((C_word*)((C_word*)t0)[6])[1]; f_7046(t8,((C_word*)t0)[7],t7);} else{ t6=C_i_cdar(((C_word*)t0)[2]); t7=C_mutate2(((C_word *)((C_word*)t0)[8])+1,t6); t8=((C_word*)t0)[2]; t9=C_u_i_cdr(t8); /* support.scm:488: loop */ t10=((C_word*)((C_word*)t0)[6])[1]; f_7046(t10,((C_word*)t0)[7],t9);}} else{ t5=C_eqp(((C_word*)t0)[4],lf[174]); if(C_truep(t5)){ t6=C_i_cdar(((C_word*)t0)[2]); t7=C_mutate2(((C_word *)((C_word*)t0)[9])+1,t6); t8=((C_word*)t0)[2]; t9=C_u_i_cdr(t8); /* support.scm:488: loop */ t10=((C_word*)((C_word*)t0)[6])[1]; f_7046(t10,((C_word*)t0)[7],t9);} else{ t6=C_eqp(((C_word*)t0)[4],lf[175]); t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7149,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_7149(t8,t6);} else{ t8=C_eqp(((C_word*)t0)[4],lf[179]); if(C_truep(t8)){ t9=t7; f_7149(t9,t8);} else{ t9=C_eqp(((C_word*)t0)[4],lf[180]); if(C_truep(t9)){ t10=t7; f_7149(t10,t9);} else{ t10=C_eqp(((C_word*)t0)[4],lf[181]); if(C_truep(t10)){ t11=t7; f_7149(t11,t10);} else{ t11=C_eqp(((C_word*)t0)[4],lf[182]); if(C_truep(t11)){ t12=t7; f_7149(t12,t11);} else{ t12=C_eqp(((C_word*)t0)[4],lf[183]); if(C_truep(t12)){ t13=t7; f_7149(t13,t12);} else{ t13=C_eqp(((C_word*)t0)[4],lf[184]); if(C_truep(t13)){ t14=t7; f_7149(t14,t13);} else{ t14=C_eqp(((C_word*)t0)[4],lf[185]); t15=t7; f_7149(t15,(C_truep(t14)?t14:C_eqp(((C_word*)t0)[4],lf[186])));}}}}}}}}}}}}} /* ##compiler#hide-variable in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16034(C_word c,C_word *av){ C_word tmp; C_word 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_16034,3,av);} a=C_alloc(3); t3=C_a_i_list(&a,1,lf[540]); if(C_truep(C_i_nullp(t3))){ /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[142]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=lf[541]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_i_car(t3); /* tweaks.scm:54: ##sys#put! */ t5=*((C_word*)lf[142]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=lf[541]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* walk in expression-has-side-effects? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11174,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[221]); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11200,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_11200(t11,t9);} else{ t11=C_eqp(t8,lf[97]); if(C_truep(t11)){ t12=t10; f_11200(t12,t11);} else{ t12=C_eqp(t8,lf[226]); t13=t10; f_11200(t13,(C_truep(t12)?t12:C_eqp(t8,lf[245])));}}} /* k11798 in for-each-loop2562 in a11772 in k11760 in pprint-expressions-to-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11800,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_11790(t3,((C_word*)t0)[4],t2);} /* ##compiler#expression-has-side-effects? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11168(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_11168,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_11174,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t1; av2[2]=t2; f_11174(3,av2);}} /* k14824 in k14805 in walk in scan-free-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_14826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14826,2,av);} a=C_alloc(5); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14832,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:1362: variable-visible? */ t4=*((C_word*)lf[314]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a13774 in estimate-foreign-result-location-size in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_13775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13775,2,av);} /* support.scm:1231: quit */ t2=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=lf[446]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k13368 in a13359 in estimate-foreign-result-location-size in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_13370(C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_13370,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ /* support.scm:1217: words->bytes */ t2=*((C_word*)lf[79]+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[425]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13382,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_13382(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[3],lf[426]); if(C_truep(t4)){ t5=t3; f_13382(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[3],lf[372]); t6=t3; f_13382(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[3],lf[376])));}}}} /* k13380 in k13368 in a13359 in estimate-foreign-result-location-size in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_13382(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_13382,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ /* support.scm:1219: words->bytes */ t2=*((C_word*)lf[79]+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_13388,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:1221: ##sys#hash-table-ref */ t3=*((C_word*)lf[149]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[398]+1); av2[3]=((C_word*)t0)[4]; ((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_13388(2,av2);}}}} /* k13386 in k13380 in k13368 in a13359 in estimate-foreign-result-location-size in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_13388(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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,c,3)))){ C_save_and_reclaim((void *)f_13388,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13392,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1221: g3148 */ t3=t2; f_13392(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[387]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13425,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); if(C_truep(t4)){ t6=t5; f_13425(t6,t4);} else{ t6=C_eqp(t3,lf[395]); if(C_truep(t6)){ t7=t5; f_13425(t7,t6);} else{ t7=C_eqp(t3,lf[396]); if(C_truep(t7)){ t8=t5; f_13425(t8,t7);} else{ t8=C_eqp(t3,lf[378]); if(C_truep(t8)){ t9=t5; f_13425(t9,t8);} else{ t9=C_eqp(t3,lf[380]); if(C_truep(t9)){ t10=t5; f_13425(t10,t9);} else{ t10=C_eqp(t3,lf[397]); if(C_truep(t10)){ t11=t5; f_13425(t11,t10);} else{ t11=C_eqp(t3,lf[360]); t12=t5; f_13425(t12,(C_truep(t11)?t11:C_eqp(t3,lf[362])));}}}}}}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[4]; /* support.scm:1207: quit */ t4=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=lf[445]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}} /* k15116 in k15106 in k15103 in k15100 in k15094 in make-random-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_15118,2,av);} /* support.scm:1414: ##sys#print */ t2=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15109 in k15106 in k15103 in k15100 in k15094 in make-random-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15111,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15114,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1414: get-output-string */ t3=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15112 in k15109 in k15106 in k15103 in k15100 in k15094 in make-random-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15114,2,av);} /* support.scm:1413: string->symbol */ t2=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16003 in k15952 in loop in k15943 in scan-sharp-greater-string in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16005,2,av);} /* support.scm:1608: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_15950(t2,((C_word*)t0)[3]);} /* a13359 in estimate-foreign-result-location-size in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_13360(C_word c,C_word *av){ C_word tmp; C_word t0=av[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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_13360,4,av);} a=C_alloc(6); t4=t2; t5=C_eqp(t4,lf[351]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13370,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_13370(t7,t5);} else{ t7=C_eqp(t4,lf[355]); if(C_truep(t7)){ t8=t6; f_13370(t8,t7);} else{ t8=C_eqp(t4,lf[428]); if(C_truep(t8)){ t9=t6; f_13370(t9,t8);} else{ t9=C_eqp(t4,lf[440]); if(C_truep(t9)){ t10=t6; f_13370(t10,t9);} else{ t10=C_eqp(t4,lf[429]); if(C_truep(t10)){ t11=t6; f_13370(t11,t10);} else{ t11=C_eqp(t4,lf[352]); if(C_truep(t11)){ t12=t6; f_13370(t12,t11);} else{ t12=C_eqp(t4,lf[427]); if(C_truep(t12)){ t13=t6; f_13370(t13,t12);} else{ t13=C_eqp(t4,lf[408]); if(C_truep(t13)){ t14=t6; f_13370(t14,t13);} else{ t14=C_eqp(t4,lf[407]); if(C_truep(t14)){ t15=t6; f_13370(t15,t14);} else{ t15=C_eqp(t4,lf[430]); if(C_truep(t15)){ t16=t6; f_13370(t16,t15);} else{ t16=C_eqp(t4,lf[431]); if(C_truep(t16)){ t17=t6; f_13370(t17,t16);} else{ t17=C_eqp(t4,lf[378]); if(C_truep(t17)){ t18=t6; f_13370(t18,t17);} else{ t18=C_eqp(t4,lf[380]); if(C_truep(t18)){ t19=t6; f_13370(t19,t18);} else{ t19=C_eqp(t4,lf[374]); if(C_truep(t19)){ t20=t6; f_13370(t20,t19);} else{ t20=C_eqp(t4,lf[370]); if(C_truep(t20)){ t21=t6; f_13370(t21,t20);} else{ t21=C_eqp(t4,lf[357]); if(C_truep(t21)){ t22=t6; f_13370(t22,t21);} else{ t22=C_eqp(t4,lf[381]); if(C_truep(t22)){ t23=t6; f_13370(t23,t22);} else{ t23=C_eqp(t4,lf[385]); if(C_truep(t23)){ t24=t6; f_13370(t24,t23);} else{ t24=C_eqp(t4,lf[360]); if(C_truep(t24)){ t25=t6; f_13370(t25,t24);} else{ t25=C_eqp(t4,lf[362]); if(C_truep(t25)){ t26=t6; f_13370(t26,t25);} else{ t26=C_eqp(t4,lf[432]); if(C_truep(t26)){ t27=t6; f_13370(t27,t26);} else{ t27=C_eqp(t4,lf[433]); if(C_truep(t27)){ t28=t6; f_13370(t28,t27);} else{ t28=C_eqp(t4,lf[410]); if(C_truep(t28)){ t29=t6; f_13370(t29,t28);} else{ t29=C_eqp(t4,lf[406]); if(C_truep(t29)){ t30=t6; f_13370(t30,t29);} else{ t30=C_eqp(t4,lf[402]); if(C_truep(t30)){ t31=t6; f_13370(t31,t30);} else{ t31=C_eqp(t4,lf[403]); if(C_truep(t31)){ t32=t6; f_13370(t32,t31);} else{ t32=C_eqp(t4,lf[400]); if(C_truep(t32)){ t33=t6; f_13370(t33,t32);} else{ t33=C_eqp(t4,lf[409]); if(C_truep(t33)){ t34=t6; f_13370(t34,t33);} else{ t34=C_eqp(t4,lf[384]); if(C_truep(t34)){ t35=t6; f_13370(t35,t34);} else{ t35=C_eqp(t4,lf[401]); if(C_truep(t35)){ t36=t6; f_13370(t36,t35);} else{ t36=C_eqp(t4,lf[399]); if(C_truep(t36)){ t37=t6; f_13370(t37,t36);} else{ t37=C_eqp(t4,lf[404]); t38=t6; f_13370(t38,(C_truep(t37)?t37:C_eqp(t4,lf[405])));}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} /* matchn in match-node in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_11027(C_word t0,C_word t1,C_word 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(7,0,3)))){ C_save_and_reclaim_args((void *)trf_11027,4,t0,t1,t2,t3);} a=C_alloc(7); if(C_truep(C_i_not_pair_p(t3))){ /* support.scm:855: resolve */ t4=((C_word*)((C_word*)t0)[2])[1]; f_10954(t4,t1,t3,t2);} else{ t4=t2; t5=C_slot(t4,C_fix(1)); t6=C_i_car(t3); t7=C_eqp(t5,t6); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11049,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); t9=t2; t10=C_slot(t9,C_fix(2)); t11=C_i_cadr(t3); /* support.scm:857: match1 */ t12=((C_word*)((C_word*)t0)[4])[1]; f_10988(t12,t8,t10,t11);} else{ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} /* k11008 in match1 in match-node in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_11010,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:850: match1 */ t6=((C_word*)((C_word*)t0)[4])[1]; f_10988(t6,((C_word*)t0)[5],t3,t5);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g3148 in k13386 in k13380 in k13368 in a13359 in estimate-foreign-result-location-size in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_13392(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_13392,3,t0,t1,t2);} if(C_truep(C_i_vectorp(t2))){ t3=C_i_vector_ref(t2,C_fix(0)); /* support.scm:1223: 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);}} else{ t3=t2; /* support.scm:1223: 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);}}} /* k14834 in k14830 in k14824 in k14805 in walk in scan-free-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_14836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14836,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k14830 in k14824 in k14805 in walk in scan-free-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_14832(C_word c,C_word *av){ C_word tmp; C_word t0=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_14832,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_14836,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* support.scm:1363: lset-adjoin */ t3=*((C_word*)lf[483]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[13]+1); av2[3]=((C_word*)((C_word*)t0)[3])[1]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k14860 in k14805 in walk in scan-free-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14862,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_i_car(((C_word*)t0)[3]); /* support.scm:1367: walk */ t4=((C_word*)((C_word*)t0)[4])[1]; f_14773(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6]);} /* k11047 in matchn in match-node in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_11049,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_11067,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_11067(t8,((C_word*)t0)[6],t3,t4);} else{ t2=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k15188 in k15257 in k15161 in real-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_15190,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_15192,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_15192(t5,((C_word*)t0)[4],((C_word*)t0)[5],C_fix(0),t1);} /* loop in k15188 in k15257 in k15161 in real-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_15192(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_15192,5,t0,t1,t2,t3,t4);} a=C_alloc(8); if(C_truep(C_i_greaterp(t3,*((C_word*)lf[498]+1)))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15206,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=C_a_i_cons(&a,2,lf[501],t2); /* support.scm:1449: reverse */ t7=*((C_word*)lf[91]+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_15216,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:1451: resolve */ f_15147(t5,t4);} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15255,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* support.scm:1457: reverse */ t6=*((C_word*)lf[91]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}} /* k15161 in real-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_15163,2,av);} a=C_alloc(6); 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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15259,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); /* support.scm:1444: ##sys#symbol->qualified-string */ t5=*((C_word*)lf[254]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:1458: ##sys#symbol->qualified-string */ t2=*((C_word*)lf[254]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} else{ /* support.scm:1441: ##sys#symbol->qualified-string */ t2=*((C_word*)lf[254]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k6354 in for-each-loop534 in initialize-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6356,2,av);} a=C_alloc(3); if(C_truep(C_i_memq(((C_word*)t0)[2],*((C_word*)lf[144]+1)))){ t2=C_a_i_list(&a,1,C_SCHEME_TRUE); if(C_truep(C_i_nullp(t2))){ /* tweaks.scm:54: ##sys#put! */ t3=*((C_word*)lf[142]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=lf[145]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=C_i_car(t2); /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[142]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=lf[145]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k15103 in k15100 in k15094 in make-random-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_15105,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15108,a[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_15122,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* support.scm:1416: current-seconds */ t4=*((C_word*)lf[495]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k15106 in k15103 in k15100 in k15094 in make-random-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_15108,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15111,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_15118,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* support.scm:1417: random */ t4=*((C_word*)lf[494]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_fix(1000); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k15100 in k15094 in make-random-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15102(C_word c,C_word *av){ C_word tmp; C_word t0=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_15102,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15105,a[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:1414: ##sys#write-char-0 */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10670 in for-each-loop2246 in k10652 in k10644 in k10638 in k10635 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10672(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10672,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10662(t3,((C_word*)t0)[4],t2);} /* k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_11868(C_word t0,C_word t1){ C_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(15,0,2)))){ C_save_and_reclaim_args((void *)trf_11868,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[353]+1))?((C_word*)t0)[3]:C_a_i_list(&a,2,lf[358],((C_word*)t0)[3])); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[359]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[4],lf[360])); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11886,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* support.scm:1032: gensym */ t5=*((C_word*)lf[110]+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[362]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[4],lf[363])); if(C_truep(t5)){ t6=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=(C_truep(*((C_word*)lf[353]+1))?((C_word*)t0)[3]:C_a_i_list(&a,2,lf[361],((C_word*)t0)[3])); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(((C_word*)t0)[4],lf[364]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11936,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* support.scm:1044: gensym */ t8=*((C_word*)lf[110]+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[366]); if(C_truep(t7)){ if(C_truep(*((C_word*)lf[353]+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[97],lf[364]); t9=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t9; av2[1]=C_a_i_list(&a,3,lf[365],t8,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t8=C_eqp(((C_word*)t0)[4],lf[367]); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11991,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],tmp=(C_word)a,a+=8,tmp); if(C_truep(t8)){ t10=t9; f_11991(t10,t8);} else{ t10=C_eqp(((C_word*)t0)[4],lf[418]); if(C_truep(t10)){ t11=t9; f_11991(t11,t10);} else{ t11=C_eqp(((C_word*)t0)[4],lf[419]); if(C_truep(t11)){ t12=t9; f_11991(t12,t11);} else{ t12=C_eqp(((C_word*)t0)[4],lf[420]); if(C_truep(t12)){ t13=t9; f_11991(t13,t12);} else{ t13=C_eqp(((C_word*)t0)[4],lf[421]); if(C_truep(t13)){ t14=t9; f_11991(t14,t13);} else{ t14=C_eqp(((C_word*)t0)[4],lf[422]); if(C_truep(t14)){ t15=t9; f_11991(t15,t14);} else{ t15=C_eqp(((C_word*)t0)[4],lf[423]); t16=t9; f_11991(t16,(C_truep(t15)?t15:C_eqp(((C_word*)t0)[4],lf[424])));}}}}}}}}}}}} /* k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_11853(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_11853,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ if(C_truep(*((C_word*)lf[353]+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[356],((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=C_eqp(((C_word*)t0)[4],lf[357]); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11868,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_11868(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[4],lf[425]); t5=t3; f_11868(t5,(C_truep(t4)?t4:C_eqp(((C_word*)t0)[4],lf[426])));}}} /* k9931 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9933(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9933,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9940,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[3]; /* support.scm:712: alist-ref */ t4=*((C_word*)lf[287]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[13]+1); av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k9941 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9943,2,av);} if(C_truep(t1)){ /* support.scm:723: cfk */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_9933(2,av2);}}} /* k9339 in map-loop1651 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9341(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9341,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9316(t6,((C_word*)t0)[5],t5);} /* k9938 in k9931 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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,2)))){ C_save_and_reclaim((void *)f_9940,2,av);} /* support.scm:724: varnode */ t2=*((C_word*)lf[220]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#display-line-number-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ C_save_and_reclaim((void *)f_6778,2,av);} a=C_alloc(2); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6784,tmp=(C_word)a,a+=2,tmp); /* support.scm:429: ##sys#hash-table-for-each */ t3=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=*((C_word*)lf[158]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5111 in quit in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5113,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5116,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:107: newline */ t3=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9312 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9314,2,av);} /* support.scm:663: cons* */ t2=*((C_word*)lf[270]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[243]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5114 in k5111 in quit in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5116,2,av);} /* support.scm:108: exit */ t2=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop1651 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_9316(C_word t0,C_word t1,C_word 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_9316,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_9341,a[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:663: g1657 */ 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);}}} /* k9994 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; 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_9996,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9999,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:732: gensym */ t4=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9997 in k9994 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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(14,c,5)))){ C_save_and_reclaim((void *)f_9999,2,av);} a=C_alloc(14); t2=t1; t3=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[2],t2),((C_word*)t0)[3]); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10005,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]=t4,tmp=(C_word)a,a+=8,tmp); /* support.scm:734: put! */ t6=*((C_word*)lf[152]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[8]; av2[3]=t2; av2[4]=lf[288]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* k5098 in k5074 in with-debugging-output in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5100,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5107,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:102: with-output-to-string */ t3=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* ##compiler#collect! in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_6611,6,av);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6615,a[2]=t4,a[3]=t5,a[4]=t1,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* support.scm:395: ##sys#hash-table-ref */ t7=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* ##compiler#quit in k4868 in k4834 in k4831 in k4828 */ 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=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_5109,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[30]+1); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5113,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5123,a[2]=t5,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* support.scm:106: string-append */ t7=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=lf[32]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k5105 in k5098 in k5074 in with-debugging-output in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5107(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5107,2,av);} /* support.scm:102: collect */ t2=((C_word*)t0)[2]; f_5015(t2,((C_word*)t0)[3],t1);} /* k6613 in collect! in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6615(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6615,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; /* Re-use our own argvector */ 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_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[2],t3),t4); t6=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_setslot(t1,C_fix(1),t5); ((C_proc)(void*)(*((C_word*)t6+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:400: ##sys#hash-table-set! */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* g169 in k5130 in k5127 in syntax-error-hook in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_5133(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_5133,3,t0,t1,t2);} /* support.scm:121: g184 */ t3=*((C_word*)lf[24]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[34]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5130 in k5127 in syntax-error-hook in k4868 in k4834 in k4831 in k4828 */ 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 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_5132,2,av);} a=C_alloc(13); 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); t3=((C_word*)((C_word*)t0)[3])[1]; t4=C_i_check_list_2(t3,lf[35]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5143,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_5151,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_5151(t9,t5,t3);} /* ##compiler#finish-foreign-result in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_13781(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_13781,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13785,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* support.scm:1237: ##sys#strip-syntax */ t5=*((C_word*)lf[460]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* loop in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_9372(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,2)))){ C_save_and_reclaim_args((void *)trf_9372,5,t0,t1,t2,t3,t4);} a=C_alloc(11); if(C_truep(C_i_zerop(t2))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9386,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* support.scm:668: reverse */ t6=*((C_word*)lf[91]+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_a_i_minus(&a,2,t2,C_fix(1)); t6=t5; t7=C_i_cdr(t3); t8=t7; t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9413,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t6,a[6]=t8,tmp=(C_word)a,a+=7,tmp); t10=t3; t11=C_u_i_car(t10); /* support.scm:669: walk */ t12=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t12; av2[1]=t9; av2[2]=t11; f_8786(3,av2);}}} /* k9970 in k9978 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9972,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[211],lf[246],((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5127 in syntax-error-hook in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_5129(C_word t0,C_word 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_5129,2,t0,t1);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5132,a[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_SCHEME_FALSE,C_SCHEME_TRUE,lf[24]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5178,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* support.scm:119: ##sys#print */ t7=*((C_word*)lf[19]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=lf[40]; 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_SCHEME_FALSE,C_SCHEME_TRUE,lf[24]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5199,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* support.scm:120: ##sys#print */ t7=*((C_word*)lf[19]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=lf[41]; av2[3]=C_SCHEME_FALSE; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k5121 in quit in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5123,2,av);}{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[24]+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 k4868 in k4834 in k4831 in k4828 */ 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=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_5125,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[30]+1); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5129,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_5129(t13,t8);} else{ t8=t7; f_5129(t8,C_SCHEME_FALSE);}} /* k9978 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9980,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_9972,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:728: walk */ t6=((C_word*)((C_word*)t0)[4])[1]; f_9882(t6,t4,t5,((C_word*)t0)[5]);} /* k9384 in loop in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9386(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9386,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9390,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:668: walk */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; f_8786(3,av2);}} /* 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_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_support_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(4478))){ C_save(t1); C_rereclaim2(4478*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,569); lf[0]=C_h_intern(&lf[0],30,"\010compilercompiler-cleanup-hook"); lf[1]=C_h_intern(&lf[1],26,"\010compilerdebugging-chicken"); lf[2]=C_h_intern(&lf[2],26,"\010compilerdisabled-warnings"); lf[3]=C_h_intern(&lf[3],13,"\010compilerbomb"); lf[4]=C_h_intern(&lf[4],5,"error"); lf[5]=C_h_intern(&lf[5],13,"string-append"); lf[6]=C_decode_literal(C_heaptop,"\376B\000\000\032[internal compiler error] "); lf[7]=C_decode_literal(C_heaptop,"\376B\000\000\031[internal compiler error]"); lf[8]=C_h_intern(&lf[8],35,"\010compilercollected-debugging-output"); lf[9]=C_h_intern(&lf[9],24,"+logged-debugging-modes+"); lf[10]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001o\376\003\000\000\002\376\001\000\000\001x\376\003\000\000\002\376\001\000\000\001S\376\377\016"); lf[11]=C_h_intern(&lf[11],19,"test-debugging-mode"); lf[12]=C_h_intern(&lf[12],17,"lset-intersection"); lf[13]=C_h_intern(&lf[13],3,"eq\077"); lf[14]=C_h_intern(&lf[14],18,"\010compilerdebugging"); lf[15]=C_h_intern(&lf[15],7,"newline"); lf[16]=C_h_intern(&lf[16],19,"\003sysstandard-output"); lf[17]=C_h_intern(&lf[17],6,"printf"); lf[18]=C_h_intern(&lf[18],16,"\003syswrite-char-0"); lf[19]=C_h_intern(&lf[19],9,"\003sysprint"); lf[20]=C_h_intern(&lf[20],5,"force"); lf[21]=C_h_intern(&lf[21],7,"display"); lf[22]=C_decode_literal(C_heaptop,"\376B\000\000\002: "); lf[23]=C_h_intern(&lf[23],21,"with-output-to-string"); lf[24]=C_h_intern(&lf[24],7,"fprintf"); lf[25]=C_h_intern(&lf[25],12,"flush-output"); lf[26]=C_h_intern(&lf[26],30,"\010compilerwith-debugging-output"); lf[27]=C_h_intern(&lf[27],12,"string-split"); lf[28]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[29]=C_h_intern(&lf[29],13,"\010compilerquit"); lf[30]=C_h_intern(&lf[30],18,"\003sysstandard-error"); lf[31]=C_h_intern(&lf[31],4,"exit"); lf[32]=C_decode_literal(C_heaptop,"\376B\000\000\010\012Error: "); lf[33]=C_h_intern(&lf[33],21,"\003syssyntax-error-hook"); lf[34]=C_decode_literal(C_heaptop,"\376B\000\000\005\011~s~%"); lf[35]=C_h_intern(&lf[35],8,"for-each"); lf[36]=C_h_intern(&lf[36],16,"print-call-chain"); lf[37]=C_h_intern(&lf[37],18,"\003syscurrent-thread"); lf[38]=C_decode_literal(C_heaptop,"\376B\000\000\025\012\011Expansion history:\012"); lf[39]=C_decode_literal(C_heaptop,"\376B\000\000\003): "); lf[40]=C_decode_literal(C_heaptop,"\376B\000\000\017\012Syntax error ("); lf[41]=C_decode_literal(C_heaptop,"\376B\000\000\017\012Syntax error: "); lf[42]=C_h_intern(&lf[42],12,"syntax-error"); lf[43]=C_h_intern(&lf[43],31,"\010compileremit-syntax-trace-info"); lf[44]=C_h_intern(&lf[44],9,"map-llist"); lf[45]=C_h_intern(&lf[45],24,"\010compilercheck-signature"); lf[46]=C_decode_literal(C_heaptop,"\376B\000\000@Arguments to inlined call of `~A\047 do not match parameter-list ~A"); lf[47]=C_h_intern(&lf[47],18,"\010compilerreal-name"); lf[48]=C_h_intern(&lf[48],13,"\010compilerposq"); lf[49]=C_h_intern(&lf[49],13,"\010compilerposv"); lf[50]=C_h_intern(&lf[50],18,"\010compilerstringify"); lf[51]=C_h_intern(&lf[51],14,"symbol->string"); lf[52]=C_h_intern(&lf[52],7,"sprintf"); lf[53]=C_h_intern(&lf[53],17,"get-output-string"); lf[54]=C_h_intern(&lf[54],18,"open-output-string"); lf[55]=C_h_intern(&lf[55],18,"\010compilersymbolify"); lf[56]=C_h_intern(&lf[56],14,"string->symbol"); lf[57]=C_h_intern(&lf[57],21,"\010compilerbackslashify"); lf[58]=C_h_intern(&lf[58],17,"string-translate\052"); lf[59]=C_decode_literal(C_heaptop,"\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[60]=C_h_intern(&lf[60],8,"->string"); lf[61]=C_h_intern(&lf[61],21,"\010compileruncommentify"); lf[62]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376B\000\000\002\052/\376B\000\000\003\052_/\376\377\016"); lf[63]=C_h_intern(&lf[63],26,"\010compilerbuild-lambda-list"); lf[64]=C_h_intern(&lf[64],29,"\010compilerstring->c-identifier"); lf[65]=C_h_intern(&lf[65],24,"\003sysstring->c-identifier"); lf[66]=C_h_intern(&lf[66],21,"\010compilerc-ify-string"); lf[67]=C_h_intern(&lf[67],16,"\003syslist->string"); lf[68]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\012\000\000\042\376\377\016"); lf[69]=C_h_intern(&lf[69],6,"append"); lf[70]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\012\000\000\134\376\377\016"); lf[71]=C_h_intern(&lf[71],16,"\003sysstring->list"); lf[72]=C_h_intern(&lf[72],14,"number->string"); lf[73]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\012\000\0000\376\003\000\000\002\376\377\012\000\0000\376\377\016"); lf[74]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\012\000\0000\376\377\016"); lf[75]=C_decode_literal(C_heaptop,"\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[76]=C_h_intern(&lf[76],28,"\010compilervalid-c-identifier\077"); lf[77]=C_h_intern(&lf[77],3,"any"); lf[78]=C_h_intern(&lf[78],14,"\010compilerwords"); lf[79]=C_h_intern(&lf[79],21,"\010compilerwords->bytes"); lf[80]=C_h_intern(&lf[80],34,"\010compilercheck-and-open-input-file"); lf[81]=C_decode_literal(C_heaptop,"\376B\000\000\001-"); lf[82]=C_h_intern(&lf[82],18,"\003sysstandard-input"); lf[83]=C_h_intern(&lf[83],15,"open-input-file"); lf[84]=C_decode_literal(C_heaptop,"\376B\000\000\024Can not open file ~s"); lf[85]=C_decode_literal(C_heaptop,"\376B\000\000\031(~a) can not open file ~s"); lf[86]=C_h_intern(&lf[86],12,"file-exists\077"); lf[87]=C_h_intern(&lf[87],33,"\010compilerclose-checked-input-file"); lf[88]=C_decode_literal(C_heaptop,"\376B\000\000\001-"); lf[89]=C_h_intern(&lf[89],16,"close-input-port"); lf[90]=C_h_intern(&lf[90],19,"\010compilerfold-inner"); lf[91]=C_h_intern(&lf[91],7,"reverse"); lf[92]=C_h_intern(&lf[92],28,"\010compilerfollow-without-loop"); lf[93]=C_h_intern(&lf[93],21,"\010compilersort-symbols"); lf[94]=C_h_intern(&lf[94],8,"string<\077"); lf[95]=C_h_intern(&lf[95],4,"sort"); lf[96]=C_h_intern(&lf[96],18,"\010compilerconstant\077"); lf[97]=C_h_intern(&lf[97],5,"quote"); lf[98]=C_h_intern(&lf[98],18,"\003syssrfi-4-vector\077"); lf[99]=C_h_intern(&lf[99],5,"blob\077"); lf[100]=C_h_intern(&lf[100],29,"\010compilercollapsable-literal\077"); lf[101]=C_h_intern(&lf[101],19,"\010compilerimmediate\077"); lf[102]=C_h_intern(&lf[102],20,"\010compilerbig-fixnum\077"); lf[103]=C_h_intern(&lf[103],23,"\010compilerbasic-literal\077"); lf[104]=C_h_intern(&lf[104],5,"every"); lf[105]=C_h_intern(&lf[105],12,"vector->list"); lf[106]=C_h_intern(&lf[106],32,"\010compilercanonicalize-begin-body"); lf[107]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[108]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[109]=C_h_intern(&lf[109],3,"let"); lf[110]=C_h_intern(&lf[110],6,"gensym"); lf[111]=C_h_intern(&lf[111],1,"t"); lf[112]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\010\003sysvoid\376\377\016"); lf[113]=C_h_intern(&lf[113],21,"\010compilerstring->expr"); lf[114]=C_decode_literal(C_heaptop,"\376B\000\000\042cannot parse expression: ~s [~a]~%"); lf[115]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[116]=C_h_intern(&lf[116],5,"begin"); lf[117]=C_h_intern(&lf[117],4,"read"); lf[118]=C_h_intern(&lf[118],6,"unfold"); lf[119]=C_h_intern(&lf[119],11,"eof-object\077"); lf[120]=C_h_intern(&lf[120],6,"values"); lf[121]=C_h_intern(&lf[121],22,"with-input-from-string"); lf[122]=C_h_intern(&lf[122],22,"with-exception-handler"); lf[123]=C_h_intern(&lf[123],30,"call-with-current-continuation"); lf[124]=C_h_intern(&lf[124],30,"\010compilerdecompose-lambda-list"); lf[125]=C_h_intern(&lf[125],25,"\003sysdecompose-lambda-list"); lf[126]=C_h_intern(&lf[126],21,"\010compilerllist-length"); lf[127]=C_h_intern(&lf[127],21,"\010compilerllist-match\077"); lf[128]=C_h_intern(&lf[128],30,"\010compilerexpand-profile-lambda"); lf[129]=C_h_intern(&lf[129],29,"\010compilerprofile-lambda-index"); lf[130]=C_h_intern(&lf[130],28,"\010compilerprofile-lambda-list"); lf[131]=C_h_intern(&lf[131],17,"\003sysprofile-entry"); lf[132]=C_h_intern(&lf[132],33,"\010compilerprofile-info-vector-name"); lf[133]=C_h_intern(&lf[133],11,"\004corelambda"); lf[134]=C_h_intern(&lf[134],9,"\003sysapply"); lf[135]=C_h_intern(&lf[135],16,"\003sysprofile-exit"); lf[136]=C_h_intern(&lf[136],16,"\003sysdynamic-wind"); lf[137]=C_h_intern(&lf[137],37,"\010compilerinitialize-analysis-database"); lf[138]=C_h_intern(&lf[138],17,"standard-bindings"); lf[139]=C_h_intern(&lf[139],17,"extended-bindings"); lf[140]=C_h_intern(&lf[140],26,"\010compilerinternal-bindings"); lf[141]=C_h_intern(&lf[141],8,"internal"); lf[142]=C_h_intern(&lf[142],8,"\003sysput!"); lf[143]=C_h_intern(&lf[143],18,"\010compilerintrinsic"); lf[144]=C_h_intern(&lf[144],26,"\010compilerfoldable-bindings"); lf[145]=C_h_intern(&lf[145],17,"\010compilerfoldable"); lf[146]=C_h_intern(&lf[146],8,"extended"); lf[147]=C_h_intern(&lf[147],8,"standard"); lf[148]=C_h_intern(&lf[148],12,"\010compilerget"); lf[149]=C_h_intern(&lf[149],18,"\003syshash-table-ref"); lf[150]=C_h_intern(&lf[150],16,"\010compilerget-all"); lf[151]=C_h_intern(&lf[151],10,"filter-map"); lf[152]=C_h_intern(&lf[152],13,"\010compilerput!"); lf[153]=C_h_intern(&lf[153],19,"\003syshash-table-set!"); lf[154]=C_h_intern(&lf[154],17,"\010compilercollect!"); lf[155]=C_h_intern(&lf[155],15,"\010compilercount!"); lf[156]=C_h_intern(&lf[156],17,"\010compilerget-list"); lf[157]=C_h_intern(&lf[157],17,"\010compilerget-line"); lf[158]=C_h_intern(&lf[158],24,"\003sysline-number-database"); lf[159]=C_h_intern(&lf[159],19,"\010compilerget-line-2"); lf[160]=C_h_intern(&lf[160],37,"\010compilerdisplay-line-number-database"); lf[161]=C_h_intern(&lf[161],3,"map"); lf[162]=C_h_intern(&lf[162],23,"\003syshash-table-for-each"); lf[163]=C_h_intern(&lf[163],34,"\010compilerdisplay-analysis-database"); lf[164]=C_decode_literal(C_heaptop,"\376B\000\000\005\011css="); lf[165]=C_decode_literal(C_heaptop,"\376B\000\000\006\011refs="); lf[166]=C_decode_literal(C_heaptop,"\376B\000\000\005\011val="); lf[167]=C_decode_literal(C_heaptop,"\376B\000\000\006\011lval="); lf[168]=C_decode_literal(C_heaptop,"\376B\000\000\006\011pval="); lf[169]=C_h_intern(&lf[169],7,"unknown"); lf[170]=C_h_intern(&lf[170],8,"captured"); lf[171]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010captured\376\001\000\000\003cpt\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010assigned\376\001\000\000\003set\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005box" "ed\376\001\000\000\003box\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006global\376\001\000\000\003glo\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020assigned-locally\376\001\000\000\003stl\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\014contractable\376\001\000\000\003con\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020standard-binding\376\001\000\000\003stb\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\006simple\376\001\000\000\003sim\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011inlinable\376\001\000\000\003inl\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013collapsable\376" "\001\000\000\003col\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011removable\376\001\000\000\003rem\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010constant\376\001\000\000\003con\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\015inline-target\376\001\000\000\003ilt\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020inline-transient\376\001\000\000\003itr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011" "undefined\376\001\000\000\003und\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011replacing\376\001\000\000\003rpg\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006unused\376\001\000\000\003uud\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\020extended-binding\376\001\000\000\003xtb\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015inline-export\376\001\000\000\003ilx\376\003\000\000\002\376\003" "\000\000\002\376\001\000\000\013hidden-refs\376\001\000\000\003hrf\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011value-ref\376\001\000\000\003vvf\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014custom" "izable\376\001\000\000\003cst\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025has-unused-parameters\376\001\000\000\003hup\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012boxed-r" "est\376\001\000\000\003bxr\376\377\016"); lf[172]=C_h_intern(&lf[172],5,"value"); lf[173]=C_h_intern(&lf[173],11,"local-value"); lf[174]=C_h_intern(&lf[174],15,"potential-value"); lf[175]=C_h_intern(&lf[175],10,"replacable"); lf[176]=C_h_intern(&lf[176],10,"references"); lf[177]=C_h_intern(&lf[177],10,"call-sites"); lf[178]=C_decode_literal(C_heaptop,"\376B\000\000\020Illegal property"); lf[179]=C_h_intern(&lf[179],4,"home"); lf[180]=C_h_intern(&lf[180],8,"contains"); lf[181]=C_h_intern(&lf[181],12,"contained-in"); lf[182]=C_h_intern(&lf[182],8,"use-expr"); lf[183]=C_h_intern(&lf[183],12,"closure-size"); lf[184]=C_h_intern(&lf[184],14,"rest-parameter"); lf[185]=C_h_intern(&lf[185],18,"captured-variables"); lf[186]=C_h_intern(&lf[186],13,"explicit-rest"); lf[187]=C_h_intern(&lf[187],8,"assigned"); lf[188]=C_h_intern(&lf[188],5,"boxed"); lf[189]=C_h_intern(&lf[189],6,"global"); lf[190]=C_h_intern(&lf[190],12,"contractable"); lf[191]=C_h_intern(&lf[191],16,"standard-binding"); lf[192]=C_h_intern(&lf[192],16,"assigned-locally"); lf[193]=C_h_intern(&lf[193],11,"collapsable"); lf[194]=C_h_intern(&lf[194],9,"removable"); lf[195]=C_h_intern(&lf[195],9,"undefined"); lf[196]=C_h_intern(&lf[196],9,"replacing"); lf[197]=C_h_intern(&lf[197],6,"unused"); lf[198]=C_h_intern(&lf[198],6,"simple"); lf[199]=C_h_intern(&lf[199],9,"inlinable"); lf[200]=C_h_intern(&lf[200],13,"inline-export"); lf[201]=C_h_intern(&lf[201],21,"has-unused-parameters"); lf[202]=C_h_intern(&lf[202],16,"extended-binding"); lf[203]=C_h_intern(&lf[203],12,"customizable"); lf[204]=C_h_intern(&lf[204],8,"constant"); lf[205]=C_h_intern(&lf[205],10,"boxed-rest"); lf[206]=C_h_intern(&lf[206],11,"hidden-refs"); lf[207]=C_h_intern(&lf[207],5,"write"); lf[208]=C_h_intern(&lf[208],34,"\010compilerdefault-standard-bindings"); lf[209]=C_h_intern(&lf[209],34,"\010compilerdefault-extended-bindings"); lf[210]=C_h_intern(&lf[210],9,"make-node"); lf[211]=C_h_intern(&lf[211],4,"node"); lf[212]=C_h_intern(&lf[212],5,"node\077"); lf[213]=C_h_intern(&lf[213],10,"node-class"); lf[214]=C_h_intern(&lf[214],15,"node-class-set!"); lf[215]=C_h_intern(&lf[215],14,"\003sysblock-set!"); lf[216]=C_h_intern(&lf[216],15,"node-parameters"); lf[217]=C_h_intern(&lf[217],20,"node-parameters-set!"); lf[218]=C_h_intern(&lf[218],19,"node-subexpressions"); lf[219]=C_h_intern(&lf[219],24,"node-subexpressions-set!"); lf[220]=C_h_intern(&lf[220],16,"\010compilervarnode"); lf[221]=C_h_intern(&lf[221],13,"\004corevariable"); lf[222]=C_h_intern(&lf[222],14,"\010compilerqnode"); lf[223]=C_h_intern(&lf[223],25,"\010compilerbuild-node-graph"); lf[224]=C_decode_literal(C_heaptop,"\376B\000\000\016bad expression"); lf[225]=C_h_intern(&lf[225],2,"if"); lf[226]=C_h_intern(&lf[226],14,"\004coreundefined"); lf[227]=C_h_intern(&lf[227],8,"truncate"); lf[228]=C_h_intern(&lf[228],7,"warning"); lf[229]=C_decode_literal(C_heaptop,"\376B\000\0006literal is out of range - will be truncated to integer"); lf[230]=C_h_intern(&lf[230],6,"fixnum"); lf[231]=C_h_intern(&lf[231],11,"number-type"); lf[232]=C_h_intern(&lf[232],4,"\000tmp"); lf[233]=C_decode_literal(C_heaptop,"\376B\000\000\021SHOULD NOT HAPPEN"); lf[234]=C_h_intern(&lf[234],6,"unzip1"); lf[235]=C_h_intern(&lf[235],6,"lambda"); lf[236]=C_h_intern(&lf[236],8,"\004corethe"); lf[237]=C_h_intern(&lf[237],13,"\004coretypecase"); lf[238]=C_h_intern(&lf[238],4,"else"); lf[239]=C_h_intern(&lf[239],5,"cadar"); lf[240]=C_h_intern(&lf[240],1,"\052"); lf[241]=C_h_intern(&lf[241],14,"\004coreprimitive"); lf[242]=C_h_intern(&lf[242],11,"\004coreinline"); lf[243]=C_h_intern(&lf[243],13,"\004corecallunit"); lf[244]=C_h_intern(&lf[244],16,"\004coredebug-event"); lf[245]=C_h_intern(&lf[245],9,"\004coreproc"); lf[246]=C_h_intern(&lf[246],4,"set!"); lf[247]=C_h_intern(&lf[247],9,"\004coreset!"); lf[248]=C_h_intern(&lf[248],29,"\004coreforeign-callback-wrapper"); lf[249]=C_h_intern(&lf[249],5,"sixth"); lf[250]=C_h_intern(&lf[250],5,"fifth"); lf[251]=C_h_intern(&lf[251],20,"\004coreinline_allocate"); lf[252]=C_h_intern(&lf[252],8,"\004coreapp"); lf[253]=C_h_intern(&lf[253],9,"\004corecall"); lf[254]=C_h_intern(&lf[254],28,"\003syssymbol->qualified-string"); lf[255]=C_h_intern(&lf[255],7,"\003sysget"); lf[256]=C_h_intern(&lf[256],34,"\010compileralways-bound-to-procedure"); lf[257]=C_h_intern(&lf[257],15,"\004coreinline_ref"); lf[258]=C_h_intern(&lf[258],18,"\004coreinline_update"); lf[259]=C_h_intern(&lf[259],19,"\004coreinline_loc_ref"); lf[260]=C_h_intern(&lf[260],22,"\004coreinline_loc_update"); lf[261]=C_h_intern(&lf[261],1,"o"); lf[262]=C_decode_literal(C_heaptop,"\376B\000\000\033eliminated procedure checks"); lf[263]=C_h_intern(&lf[263],30,"\010compilerbuild-expression-tree"); lf[264]=C_h_intern(&lf[264],12,"\004coreclosure"); lf[265]=C_h_intern(&lf[265],4,"last"); lf[266]=C_h_intern(&lf[266],7,"butlast"); lf[267]=C_h_intern(&lf[267],3,"the"); lf[268]=C_h_intern(&lf[268],15,"\004corethe/result"); lf[269]=C_h_intern(&lf[269],17,"compiler-typecase"); lf[270]=C_h_intern(&lf[270],5,"cons\052"); lf[271]=C_h_intern(&lf[271],9,"\004corebind"); lf[272]=C_h_intern(&lf[272],10,"\004coreunbox"); lf[273]=C_h_intern(&lf[273],16,"\004corelet_unboxed"); lf[274]=C_h_intern(&lf[274],8,"\004coreref"); lf[275]=C_h_intern(&lf[275],11,"\004coreupdate"); lf[276]=C_h_intern(&lf[276],13,"\004coreupdate_i"); lf[277]=C_h_intern(&lf[277],8,"\004corebox"); lf[278]=C_h_intern(&lf[278],9,"\004corecond"); lf[279]=C_h_intern(&lf[279],21,"\010compilerfold-boolean"); lf[280]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\005C_and\376\377\016"); lf[281]=C_h_intern(&lf[281],31,"\010compilerinline-lambda-bindings"); lf[282]=C_h_intern(&lf[282],8,"split-at"); lf[283]=C_h_intern(&lf[283],10,"fold-right"); lf[284]=C_h_intern(&lf[284],4,"take"); lf[285]=C_decode_literal(C_heaptop,"\376B\000\000\012C_a_i_list"); lf[286]=C_h_intern(&lf[286],34,"\010compilercopy-node-tree-and-rename"); lf[287]=C_h_intern(&lf[287],9,"alist-ref"); lf[288]=C_h_intern(&lf[288],16,"inline-transient"); lf[289]=C_h_intern(&lf[289],1,"f"); lf[290]=C_h_intern(&lf[290],18,"\010compilertree-copy"); lf[291]=C_h_intern(&lf[291],9,"copy-node"); lf[292]=C_h_intern(&lf[292],19,"\010compilercopy-node!"); lf[293]=C_h_intern(&lf[293],20,"\010compilernode->sexpr"); lf[294]=C_h_intern(&lf[294],20,"\010compilersexpr->node"); lf[295]=C_h_intern(&lf[295],32,"\010compileremit-global-inline-file"); lf[296]=C_h_intern(&lf[296],5,"print"); lf[297]=C_decode_literal(C_heaptop,"\376B\000\000\002 "); lf[298]=C_h_intern(&lf[298],1,"i"); lf[299]=C_decode_literal(C_heaptop,"\376B\000\0001the following procedures can be globally inlined:"); lf[300]=C_h_intern(&lf[300],12,"delete-file\052"); lf[301]=C_decode_literal(C_heaptop,"\376B\000\000\015; END OF FILE"); lf[302]=C_h_intern(&lf[302],2,"pp"); lf[303]=C_decode_literal(C_heaptop,"\376B\000\000\027; GENERATED BY CHICKEN "); lf[304]=C_decode_literal(C_heaptop,"\376B\000\000\006 FROM "); lf[305]=C_h_intern(&lf[305],24,"\010compilersource-filename"); lf[306]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[307]=C_h_intern(&lf[307],15,"chicken-version"); lf[308]=C_h_intern(&lf[308],19,"with-output-to-file"); lf[309]=C_h_intern(&lf[309],3,"yes"); lf[310]=C_h_intern(&lf[310],2,"no"); lf[311]=C_h_intern(&lf[311],24,"\010compilerinline-max-size"); lf[312]=C_h_intern(&lf[312],15,"\010compilerinline"); lf[313]=C_h_intern(&lf[313],22,"\010compilerinline-global"); lf[314]=C_h_intern(&lf[314],26,"\010compilervariable-visible\077"); lf[315]=C_h_intern(&lf[315],25,"\010compilerload-inline-file"); lf[316]=C_h_intern(&lf[316],20,"with-input-from-file"); lf[317]=C_h_intern(&lf[317],19,"\010compilermatch-node"); lf[318]=C_h_intern(&lf[318],1,"a"); lf[319]=C_decode_literal(C_heaptop,"\376B\000\000\007matched"); lf[320]=C_h_intern(&lf[320],37,"\010compilerexpression-has-side-effects\077"); lf[321]=C_h_intern(&lf[321],24,"foreign-callback-stub-id"); lf[322]=C_h_intern(&lf[322],4,"find"); lf[323]=C_h_intern(&lf[323],22,"foreign-callback-stubs"); lf[324]=C_h_intern(&lf[324],28,"\010compilersimple-lambda-node\077"); lf[325]=C_h_intern(&lf[325],31,"\010compilerdump-undefined-globals"); lf[326]=C_h_intern(&lf[326],8,"keyword\077"); lf[327]=C_h_intern(&lf[327],29,"\010compilerdump-defined-globals"); lf[328]=C_h_intern(&lf[328],25,"\010compilerdump-global-refs"); lf[329]=C_h_intern(&lf[329],28,"\003systoplevel-definition-hook"); lf[330]=C_h_intern(&lf[330],22,"\010compilerhide-variable"); lf[331]=C_decode_literal(C_heaptop,"\376B\000\000\042hiding nonexported module bindings"); lf[332]=C_h_intern(&lf[332],36,"\010compilercompute-database-statistics"); lf[333]=C_h_intern(&lf[333],29,"\010compilercurrent-program-size"); lf[334]=C_h_intern(&lf[334],30,"\010compileroriginal-program-size"); lf[335]=C_h_intern(&lf[335],33,"\010compilerprint-program-statistics"); lf[336]=C_decode_literal(C_heaptop,"\376B\000\000\027; database entries: \011"); lf[337]=C_decode_literal(C_heaptop,"\376B\000\000\027; known call sites: \011"); lf[338]=C_decode_literal(C_heaptop,"\376B\000\000\027; global variables: \011"); lf[339]=C_decode_literal(C_heaptop,"\376B\000\000\027; known procedures: \011"); lf[340]=C_decode_literal(C_heaptop,"\376B\000\000\042; variables with known values: \011"); lf[341]=C_decode_literal(C_heaptop,"\376B\000\000\032 \011original program size: \011"); lf[342]=C_decode_literal(C_heaptop,"\376B\000\000\023; program size: \011"); lf[343]=C_h_intern(&lf[343],1,"s"); lf[344]=C_decode_literal(C_heaptop,"\376B\000\000\023program statistics:"); lf[345]=C_h_intern(&lf[345],35,"\010compilerpprint-expressions-to-file"); lf[346]=C_h_intern(&lf[346],17,"close-output-port"); lf[347]=C_h_intern(&lf[347],12,"pretty-print"); lf[348]=C_h_intern(&lf[348],19,"with-output-to-port"); lf[349]=C_h_intern(&lf[349],16,"open-output-file"); lf[350]=C_h_intern(&lf[350],27,"\010compilerforeign-type-check"); lf[351]=C_h_intern(&lf[351],4,"char"); lf[352]=C_h_intern(&lf[352],13,"unsigned-char"); lf[353]=C_h_intern(&lf[353],6,"unsafe"); lf[354]=C_h_intern(&lf[354],25,"\003sysforeign-char-argument"); lf[355]=C_h_intern(&lf[355],3,"int"); lf[356]=C_h_intern(&lf[356],27,"\003sysforeign-fixnum-argument"); lf[357]=C_h_intern(&lf[357],5,"float"); lf[358]=C_h_intern(&lf[358],27,"\003sysforeign-flonum-argument"); lf[359]=C_h_intern(&lf[359],4,"blob"); lf[360]=C_h_intern(&lf[360],14,"scheme-pointer"); lf[361]=C_h_intern(&lf[361],26,"\003sysforeign-block-argument"); lf[362]=C_h_intern(&lf[362],22,"nonnull-scheme-pointer"); lf[363]=C_h_intern(&lf[363],12,"nonnull-blob"); lf[364]=C_h_intern(&lf[364],14,"pointer-vector"); lf[365]=C_h_intern(&lf[365],35,"\003sysforeign-struct-wrapper-argument"); lf[366]=C_h_intern(&lf[366],22,"nonnull-pointer-vector"); lf[367]=C_h_intern(&lf[367],8,"u8vector"); lf[368]=C_h_intern(&lf[368],16,"nonnull-u8vector"); lf[369]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020nonnull-u8vector\376\001\000\000\010u8vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021nonnull-u16vector\376\001\000\000" "\011u16vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020nonnull-s8vector\376\001\000\000\010s8vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021nonnull-s16" "vector\376\001\000\000\011s16vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021nonnull-u32vector\376\001\000\000\011u32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\021nonnull-s32vector\376\001\000\000\011s32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021nonnull-f32vector\376\001\000\000\011f32vector\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\021nonnull-f64vector\376\001\000\000\011f64vector\376\377\016"); lf[370]=C_h_intern(&lf[370],7,"integer"); lf[371]=C_h_intern(&lf[371],28,"\003sysforeign-integer-argument"); lf[372]=C_h_intern(&lf[372],9,"integer64"); lf[373]=C_h_intern(&lf[373],30,"\003sysforeign-integer64-argument"); lf[374]=C_h_intern(&lf[374],16,"unsigned-integer"); lf[375]=C_h_intern(&lf[375],37,"\003sysforeign-unsigned-integer-argument"); lf[376]=C_h_intern(&lf[376],18,"unsigned-integer64"); lf[377]=C_h_intern(&lf[377],39,"\003sysforeign-unsigned-integer64-argument"); lf[378]=C_h_intern(&lf[378],9,"c-pointer"); lf[379]=C_h_intern(&lf[379],28,"\003sysforeign-pointer-argument"); lf[380]=C_h_intern(&lf[380],17,"nonnull-c-pointer"); lf[381]=C_h_intern(&lf[381],8,"c-string"); lf[382]=C_h_intern(&lf[382],17,"\003sysmake-c-string"); lf[383]=C_h_intern(&lf[383],27,"\003sysforeign-string-argument"); lf[384]=C_h_intern(&lf[384],16,"nonnull-c-string"); lf[385]=C_h_intern(&lf[385],6,"symbol"); lf[386]=C_h_intern(&lf[386],18,"\003syssymbol->string"); lf[387]=C_h_intern(&lf[387],3,"ref"); lf[388]=C_h_intern(&lf[388],8,"instance"); lf[389]=C_h_intern(&lf[389],12,"instance-ref"); lf[390]=C_h_intern(&lf[390],4,"this"); lf[391]=C_h_intern(&lf[391],8,"slot-ref"); lf[392]=C_h_intern(&lf[392],16,"nonnull-instance"); lf[393]=C_h_intern(&lf[393],5,"const"); lf[394]=C_h_intern(&lf[394],4,"enum"); lf[395]=C_h_intern(&lf[395],15,"nonnull-pointer"); lf[396]=C_h_intern(&lf[396],7,"pointer"); lf[397]=C_h_intern(&lf[397],8,"function"); lf[398]=C_h_intern(&lf[398],27,"\010compilerforeign-type-table"); lf[399]=C_h_intern(&lf[399],17,"nonnull-c-string\052"); lf[400]=C_h_intern(&lf[400],26,"nonnull-unsigned-c-string\052"); lf[401]=C_h_intern(&lf[401],9,"c-string\052"); lf[402]=C_h_intern(&lf[402],17,"unsigned-c-string"); lf[403]=C_h_intern(&lf[403],18,"unsigned-c-string\052"); lf[404]=C_h_intern(&lf[404],13,"c-string-list"); lf[405]=C_h_intern(&lf[405],14,"c-string-list\052"); lf[406]=C_h_intern(&lf[406],18,"unsigned-integer32"); lf[407]=C_h_intern(&lf[407],13,"unsigned-long"); lf[408]=C_h_intern(&lf[408],4,"long"); lf[409]=C_h_intern(&lf[409],6,"size_t"); lf[410]=C_h_intern(&lf[410],9,"integer32"); lf[411]=C_h_intern(&lf[411],17,"nonnull-u16vector"); lf[412]=C_h_intern(&lf[412],16,"nonnull-s8vector"); lf[413]=C_h_intern(&lf[413],17,"nonnull-s16vector"); lf[414]=C_h_intern(&lf[414],17,"nonnull-u32vector"); lf[415]=C_h_intern(&lf[415],17,"nonnull-s32vector"); lf[416]=C_h_intern(&lf[416],17,"nonnull-f32vector"); lf[417]=C_h_intern(&lf[417],17,"nonnull-f64vector"); lf[418]=C_h_intern(&lf[418],9,"u16vector"); lf[419]=C_h_intern(&lf[419],8,"s8vector"); lf[420]=C_h_intern(&lf[420],9,"s16vector"); lf[421]=C_h_intern(&lf[421],9,"u32vector"); lf[422]=C_h_intern(&lf[422],9,"s32vector"); lf[423]=C_h_intern(&lf[423],9,"f32vector"); lf[424]=C_h_intern(&lf[424],9,"f64vector"); lf[425]=C_h_intern(&lf[425],6,"double"); lf[426]=C_h_intern(&lf[426],6,"number"); lf[427]=C_h_intern(&lf[427],12,"unsigned-int"); lf[428]=C_h_intern(&lf[428],5,"short"); lf[429]=C_h_intern(&lf[429],14,"unsigned-short"); lf[430]=C_h_intern(&lf[430],4,"byte"); lf[431]=C_h_intern(&lf[431],13,"unsigned-byte"); lf[432]=C_h_intern(&lf[432],5,"int32"); lf[433]=C_h_intern(&lf[433],14,"unsigned-int32"); lf[434]=C_decode_literal(C_heaptop,"\376B\000\000\042foreign type `~S\047 refers to itself"); lf[435]=C_h_intern(&lf[435],36,"\010compilerforeign-type-convert-result"); lf[436]=C_h_intern(&lf[436],38,"\010compilerforeign-type-convert-argument"); lf[437]=C_h_intern(&lf[437],27,"\010compilerfinal-foreign-type"); lf[438]=C_decode_literal(C_heaptop,"\376B\000\000\042foreign type `~S\047 refers to itself"); lf[439]=C_h_intern(&lf[439],37,"\010compilerestimate-foreign-result-size"); lf[440]=C_h_intern(&lf[440],4,"bool"); lf[441]=C_h_intern(&lf[441],4,"void"); lf[442]=C_h_intern(&lf[442],13,"scheme-object"); lf[443]=C_decode_literal(C_heaptop,"\376B\000\000\042foreign type `~S\047 refers to itself"); lf[444]=C_h_intern(&lf[444],46,"\010compilerestimate-foreign-result-location-size"); lf[445]=C_decode_literal(C_heaptop,"\376B\000\0005cannot compute size of location for foreign type `~S\047"); lf[446]=C_decode_literal(C_heaptop,"\376B\000\000\042foreign type `~S\047 refers to itself"); lf[447]=C_h_intern(&lf[447],30,"\010compilerfinish-foreign-result"); lf[448]=C_h_intern(&lf[448],17,"\003syspeek-c-string"); lf[449]=C_h_intern(&lf[449],25,"\003syspeek-nonnull-c-string"); lf[450]=C_h_intern(&lf[450],26,"\003syspeek-and-free-c-string"); lf[451]=C_h_intern(&lf[451],34,"\003syspeek-and-free-nonnull-c-string"); lf[452]=C_h_intern(&lf[452],17,"\003sysintern-symbol"); lf[453]=C_h_intern(&lf[453],22,"\003syspeek-c-string-list"); lf[454]=C_h_intern(&lf[454],31,"\003syspeek-and-free-c-string-list"); lf[455]=C_h_intern(&lf[455],17,"\003sysnull-pointer\077"); lf[456]=C_h_intern(&lf[456],3,"not"); lf[457]=C_h_intern(&lf[457],4,"make"); lf[458]=C_h_intern(&lf[458],3,"and"); lf[459]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\010c-string\376\003\000\000\002\376\001\000\000\011c-string\052\376\003\000\000\002\376\001\000\000\021unsigned-c-string\376\003\000\000\002\376\001\000\000\022unsign" "ed-c-string\052\376\003\000\000\002\376\001\000\000\020nonnull-c-string\376\003\000\000\002\376\001\000\000\021nonnull-c-string\052\376\003\000\000\002\376\001\000\000\030nonnu" "ll-unsigned-string\052\376\377\016"); lf[460]=C_h_intern(&lf[460],16,"\003sysstrip-syntax"); lf[461]=C_h_intern(&lf[461],36,"\010compilerforeign-type->scrutiny-type"); lf[462]=C_h_intern(&lf[462],3,"arg"); lf[463]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\002or\376\003\000\000\002\376\001\000\000\007boolean\376\003\000\000\002\376\001\000\000\004blob\376\377\016"); lf[464]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\002or\376\003\000\000\002\376\001\000\000\007boolean\376\003\000\000\002\376\001\000\000\016pointer-vector\376\377\016"); lf[465]=C_h_intern(&lf[465],6,"struct"); lf[466]=C_h_intern(&lf[466],2,"or"); lf[467]=C_h_intern(&lf[467],7,"boolean"); lf[468]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006struct\376\003\000\000\002\376\001\000\000\010u8vector\376\377\016"); lf[469]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006struct\376\003\000\000\002\376\001\000\000\010s8vector\376\377\016"); lf[470]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006struct\376\003\000\000\002\376\001\000\000\011u16vector\376\377\016"); lf[471]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006struct\376\003\000\000\002\376\001\000\000\011s16vector\376\377\016"); lf[472]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006struct\376\003\000\000\002\376\001\000\000\011u32vector\376\377\016"); lf[473]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006struct\376\003\000\000\002\376\001\000\000\011s32vector\376\377\016"); lf[474]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006struct\376\003\000\000\002\376\001\000\000\011f32vector\376\377\016"); lf[475]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006struct\376\003\000\000\002\376\001\000\000\011f64vector\376\377\016"); lf[476]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\002or\376\003\000\000\002\376\001\000\000\007boolean\376\003\000\000\002\376\001\000\000\007pointer\376\003\000\000\002\376\001\000\000\010locative\376\377\016"); lf[477]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\002or\376\003\000\000\002\376\001\000\000\007boolean\376\003\000\000\002\376\001\000\000\006string\376\377\016"); lf[478]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\007list-of\376\003\000\000\002\376\001\000\000\006string\376\377\016"); lf[479]=C_h_intern(&lf[479],6,"string"); lf[480]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\002or\376\003\000\000\002\376\001\000\000\007boolean\376\003\000\000\002\376\001\000\000\007pointer\376\003\000\000\002\376\001\000\000\010locative\376\377\016"); lf[481]=C_h_intern(&lf[481],28,"\010compilerscan-used-variables"); lf[482]=C_h_intern(&lf[482],28,"\010compilerscan-free-variables"); lf[483]=C_h_intern(&lf[483],11,"lset-adjoin"); lf[484]=C_h_intern(&lf[484],23,"\010compilerchop-separator"); lf[485]=C_h_intern(&lf[485],9,"substring"); lf[486]=C_decode_literal(C_heaptop,"\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[487]=C_h_intern(&lf[487],23,"\010compilerchop-extension"); lf[488]=C_h_intern(&lf[488],36,"\010compilermake-block-variable-literal"); lf[489]=C_h_intern(&lf[489],22,"block-variable-literal"); lf[490]=C_h_intern(&lf[490],32,"\010compilerblock-variable-literal\077"); lf[491]=C_h_intern(&lf[491],36,"\010compilerblock-variable-literal-name"); lf[492]=C_h_intern(&lf[492],27,"block-variable-literal-name"); lf[493]=C_h_intern(&lf[493],25,"\010compilermake-random-name"); lf[494]=C_h_intern(&lf[494],6,"random"); lf[495]=C_h_intern(&lf[495],15,"current-seconds"); lf[496]=C_h_intern(&lf[496],23,"\010compilerset-real-name!"); lf[497]=C_h_intern(&lf[497],24,"\010compilerreal-name-table"); lf[498]=C_h_intern(&lf[498],19,"real-name-max-depth"); lf[499]=C_h_intern(&lf[499],18,"string-intersperse"); lf[500]=C_decode_literal(C_heaptop,"\376B\000\000\004 in "); lf[501]=C_decode_literal(C_heaptop,"\376B\000\000\003..."); lf[502]=C_decode_literal(C_heaptop,"\376B\000\000\004 in "); lf[503]=C_decode_literal(C_heaptop,"\376B\000\000\004 in "); lf[504]=C_h_intern(&lf[504],19,"\010compilerreal-name2"); lf[505]=C_h_intern(&lf[505],32,"\010compilerdisplay-real-name-table"); lf[506]=C_h_intern(&lf[506],28,"\010compilersource-info->string"); lf[507]=C_h_intern(&lf[507],4,"conc"); lf[508]=C_decode_literal(C_heaptop,"\376B\000\000\001:"); lf[509]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[510]=C_h_intern(&lf[510],11,"make-string"); lf[511]=C_h_intern(&lf[511],3,"max"); lf[512]=C_h_intern(&lf[512],26,"\010compilersource-info->line"); lf[513]=C_h_intern(&lf[513],18,"\010compilercall-info"); lf[514]=C_decode_literal(C_heaptop,"\376B\000\000\001("); lf[515]=C_decode_literal(C_heaptop,"\376B\000\000\002) "); lf[516]=C_h_intern(&lf[516],27,"\010compilerconstant-form-eval"); lf[517]=C_decode_literal(C_heaptop,"\376B\000\000\032folded constant expression"); lf[518]=C_decode_literal(C_heaptop,"\376B\000\000Dattempt to constant-fold call to procedure that has multiple results"); lf[519]=C_h_intern(&lf[519],28,"\010compilerencodeable-literal\077"); lf[520]=C_h_intern(&lf[520],22,"get-condition-property"); lf[521]=C_h_intern(&lf[521],3,"exn"); lf[522]=C_h_intern(&lf[522],7,"message"); lf[523]=C_h_intern(&lf[523],8,"\003syslist"); lf[524]=C_decode_literal(C_heaptop,"\376B\000\000.attempt to constant-fold call to non-procedure"); lf[525]=C_h_intern(&lf[525],13,"list-tabulate"); lf[526]=C_h_intern(&lf[526],19,"\010compilerdump-nodes"); lf[527]=C_h_intern(&lf[527],19,"\003syswrite-char/port"); lf[528]=C_h_intern(&lf[528],23,"\010compilerread-info-hook"); lf[529]=C_h_intern(&lf[529],27,"\003syscurrent-source-filename"); lf[530]=C_decode_literal(C_heaptop,"\376B\000\000\001:"); lf[531]=C_h_intern(&lf[531],9,"list-info"); lf[532]=C_h_intern(&lf[532],25,"\010compilerread/source-info"); lf[533]=C_h_intern(&lf[533],8,"\003sysread"); lf[534]=C_h_intern(&lf[534],18,"\003sysuser-read-hook"); lf[535]=C_h_intern(&lf[535],15,"foreign-declare"); lf[536]=C_h_intern(&lf[536],7,"declare"); lf[537]=C_h_intern(&lf[537],34,"\010compilerscan-sharp-greater-string"); lf[538]=C_h_intern(&lf[538],18,"\003sysread-char/port"); lf[539]=C_decode_literal(C_heaptop,"\376B\000\000&unexpected end of `#> ... <#\047 sequence"); lf[540]=C_h_intern(&lf[540],6,"hidden"); lf[541]=C_h_intern(&lf[541],19,"\010compilervisibility"); lf[542]=C_h_intern(&lf[542],24,"\010compilerexport-variable"); lf[543]=C_h_intern(&lf[543],8,"exported"); lf[544]=C_h_intern(&lf[544],25,"\010compilervariable-hidden\077"); lf[545]=C_h_intern(&lf[545],26,"\010compilerblock-compilation"); lf[546]=C_h_intern(&lf[546],22,"\010compilermark-variable"); lf[547]=C_h_intern(&lf[547],22,"\010compilervariable-mark"); lf[548]=C_h_intern(&lf[548],19,"\010compilerintrinsic\077"); lf[549]=C_h_intern(&lf[549],9,"foldable\077"); lf[550]=C_h_intern(&lf[550],33,"\010compilerload-identifier-database"); lf[551]=C_h_intern(&lf[551],7,"\004coredb"); lf[552]=C_h_intern(&lf[552],9,"read-file"); lf[553]=C_h_intern(&lf[553],1,"p"); lf[554]=C_decode_literal(C_heaptop,"\376B\000\000\004 ..."); lf[555]=C_decode_literal(C_heaptop,"\376B\000\000\034loading identifier database "); lf[556]=C_h_intern(&lf[556],13,"make-pathname"); lf[557]=C_h_intern(&lf[557],15,"repository-path"); lf[558]=C_h_intern(&lf[558],22,"\010compilerprint-version"); lf[559]=C_h_intern(&lf[559],6,"print\052"); lf[560]=C_decode_literal(C_heaptop,"\376B\000\000C(c) 2008-2017, The CHICKEN Team\012(c) 2000-2007, Felix L. Winkelmann\012"); lf[561]=C_h_intern(&lf[561],20,"\010compilerprint-usage"); lf[562]=C_decode_literal(C_heaptop,"\376B\000\030\252Usage: 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 s" "tandard input. OPTION may be one of the following:\012\012 General options:\012\012 -hel" "p display this text and exit\012 -version " " display compiler version and exit\012 -release print re" "lease number and exit\012 -verbose display information on co" "mpilation 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 -featur" "e SYMBOL register feature identifier\012 -no-feature SYMBOL " " disable built-in feature identifier\012\012 Syntax related options:\012\012 -case-ins" "ensitive don\047t preserve case of read symbols\012 -keyword-style STYLE" " allow alternative keyword syntax\012 (pre" "fix, suffix or none)\012 -no-parentheses-synonyms disables list delimiter sy" "nonyms\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 made " "available at run-time\012 -emit-import-library MODULE write compile-time module" " information into\012 separate file\012 -emit-all-" "import-libraries emit import-libraries for all defined modules\012 -no-module-" "registration do not generate module registration code\012 -no-compiler-synt" "ax disable expansion of compiler-macros\012 -module " " wrap compiled code into implicit 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 m" "acro-expansion\012 -analyze-only stop compilation after first ana" "lysis pass\012\012 Debugging options:\012\012 -no-warnings disable warni" "ngs\012 -debug-level NUMBER set level of available debugging informatio" "n\012 -no-trace disable tracing information\012 -debug-info " " enable debug-information in compiled code for use\012 " " with an external debugger\012 -profile e" "xecutable emits profiling information \012 -profile-name FILENAME name of " "the generated profile information file\012 -accumulate-profile executab" "le emits profiling information in\012 append mode\012" " -no-lambda-info omit additional procedure-information\012 -type" "s FILENAME load additional type database\012 -emit-type-file FILENA" "ME write type-declaration information into file\012\012 Optimization options:\012\012 " " -optimize-level NUMBER enable certain sets of optimization options\012 -" "optimize-leaf-routines enable leaf routine optimization\012 -no-usual-integ" "rations standard procedures may be redefined\012 -unsafe " " disable all safety checks\012 -local assume globals ar" "e only modified in current\012 file\012 -block " " enable block-compilation\012 -disable-interrupts dis" "able interrupts in compiled code\012 -fixnum-arithmetic assume all num" "bers are fixnums\012 -disable-stack-overflow-checks disables detection of stack" "-overflows\012 -inline enable inlining\012 -inline-limit LI" "MIT set inlining threshold\012 -inline-global enable cros" "s-module inlining\012 -specialize perform type-based specializa" "tion of primitive calls\012 -emit-inline-file FILENAME generate file with glob" "ally inlinable\012 procedures (implies -inline -lo" "cal)\012 -consult-inline-file FILENAME explicitly load inline file\012 -no-argc" "-checks disable argument count checks\012 -no-bound-checks " " disable bound variable checks\012 -no-procedure-checks disable proce" "dure 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 assume variab" "le do not change their type\012 -clustering combine groups of l" "ocal procedures into dispatch\012 loop\012 -lfa2 " " perform additional lightweight flow-analysis pass\012\012 Conf" "iguration options:\012\012 -unit NAME compile file as a library u" "nit\012 -uses NAME declare library unit as used.\012 -heap-siz" "e NUMBER specifies heap-size of compiled executable\012 -nursery NUMB" "ER -stack-size NUMBER\012 specifies nursery size o" "f compiled executable\012 -extend FILENAME load file before compilat" "ion commences\012 -prelude EXPRESSION add expression to front of source" " file\012 -postlude EXPRESSION add expression to end of source file\012 " "-prologue FILENAME include file before main source file\012 -epilogue " "FILENAME include file after main source file\012 -dynamic " " compile as dynamically loadable code\012 -require-extension NAME re" "quire and import extension NAME\012\012 Obscure options:\012\012 -debug MODES " " display debugging output for the given modes\012 -raw " " do not generate implicit init- and exit code \012 " "-emit-external-prototypes-first\012 emit prototypes" " for callbacks before foreign\012 declarations\012 " " -ignore-repository do not refer to repository for extensions\012 -set" "up-mode prefer the current directory when locating extensions\012"); lf[563]=C_h_intern(&lf[563],28,"\010compilerprint-debug-options"); lf[564]=C_decode_literal(C_heaptop,"\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[565]=C_decode_literal(C_heaptop,"\376B\000\000\007#= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6745 in k6742 in get-line-2 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_6747(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_6747,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ 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); /* support.scm:421: g727 */ t3=t2; f_6751(t3,((C_word*)t0)[3],t1);} else{ /* support.scm:426: 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);}}} /* k10622 in map-loop2163 in walk in sexpr->node in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10624,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10599(t6,((C_word*)t0)[5],t5);} /* k6742 in get-line-2 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_6744,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6747,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_6747(t5,C_i_assq(((C_word*)t0)[4],t4));} else{ t4=t3; f_6747(t4,C_SCHEME_FALSE);}} /* k16298 in a16292 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_16300,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16303,a[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:512: ##sys#print */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5188 in k5185 in k5182 in k5179 in k5176 in k5127 in syntax-error-hook in k4868 in k4834 in k4831 in k4828 */ 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,3)))){ C_save_and_reclaim((void *)f_5190,2,av);} /* support.scm:119: ##sys#write-char-0 */ t2=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#get-line in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_6727,3,av);} t3=C_i_car(t2); /* support.scm:419: get */ t4=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=*((C_word*)lf[158]+1); av2[3]=t3; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k6720 in get-list in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6722,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k5514 in loop in build-lambda-list in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_5516,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k5197 in k5127 in syntax-error-hook in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5199(C_word c,C_word *av){ C_word tmp; C_word t0=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_5199,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5202,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:120: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5185 in k5182 in k5179 in k5176 in k5127 in syntax-error-hook in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5187(C_word c,C_word *av){ C_word tmp; C_word t0=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_5187,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5190,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:119: ##sys#write-char-0 */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5182 in k5179 in k5176 in k5127 in syntax-error-hook in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5184(C_word c,C_word *av){ C_word tmp; C_word t0=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_5184,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5187,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:119: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5179 in k5176 in k5127 in syntax-error-hook in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5181(C_word c,C_word *av){ C_word tmp; C_word t0=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_5181,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5184,a[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:119: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[39]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_8820(C_word t0,C_word t1){ C_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_8820,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[161]); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8833,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_8835,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_8835(t12,t8,((C_word*)t0)[3]);} else{ t2=C_eqp(((C_word*)t0)[6],lf[264]); 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[161]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8890,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_8892,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_8892(t13,t9,((C_word*)t0)[3]);} else{ t3=C_eqp(((C_word*)t0)[6],lf[221]); 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[97]); 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[97],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[97],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[97],t10); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}} else{ t5=C_eqp(((C_word*)t0)[6],lf[109]); 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_8990,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:639: butlast */ t17=*((C_word*)lf[266]+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[133]); if(C_truep(t6)){ t7=C_i_cadr(((C_word*)t0)[7]); t8=(C_truep(t7)?lf[235]:lf[133]); t9=t8; t10=C_i_caddr(((C_word*)t0)[7]); t11=t10; t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9113,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:646: walk */ t14=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t14; av2[1]=t12; av2[2]=t13; f_8786(3,av2);}} else{ t7=C_eqp(((C_word*)t0)[6],lf[236]); 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_9137,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:648: walk */ t12=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t12; av2[1]=t10; av2[2]=t11; f_8786(3,av2);}} else{ t8=C_eqp(((C_word*)t0)[6],lf[268]); if(C_truep(t8)){ t9=C_i_car(((C_word*)t0)[3]); /* support.scm:650: 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_8786(3,av2);}} else{ t9=C_eqp(((C_word*)t0)[6],lf[237]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9171,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:653: walk */ t12=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t12; av2[1]=t10; av2[2]=t11; f_8786(3,av2);}} else{ t10=C_eqp(((C_word*)t0)[6],lf[253]); 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[161]); 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_9259,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_9259(t20,((C_word*)t0)[4],((C_word*)t0)[3]);} else{ t11=C_eqp(((C_word*)t0)[6],lf[243]); 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[161]); t20=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9314,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_9316,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_9316(t24,t20,((C_word*)t0)[3]);} else{ t12=C_eqp(((C_word*)t0)[6],lf[226]); 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[271]); 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_9372,a[2]=((C_word*)t0)[2],a[3]=t16,tmp=(C_word)a,a+=4,tmp)); t18=((C_word*)t16)[1]; f_9372(t18,((C_word*)t0)[4],t14,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} else{ t14=C_eqp(((C_word*)t0)[6],lf[272]); t15=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9424,a[2]=((C_word*)t0)[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_9424(t16,t14);} else{ t16=C_eqp(((C_word*)t0)[6],lf[274]); if(C_truep(t16)){ t17=t15; f_9424(t17,t16);} else{ t17=C_eqp(((C_word*)t0)[6],lf[275]); t18=t15; f_9424(t18,(C_truep(t17)?t17:C_eqp(((C_word*)t0)[6],lf[276])));}}}}}}}}}}}}}}}} /* g727 in k6745 in k6742 in get-line-2 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_6751(C_word t0,C_word t1,C_word 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_6751,3,t0,t1,t2);} t3=C_i_car(((C_word*)t0)[2]); t4=C_i_cdr(t2); /* support.scm:425: values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_values(4,av2);}} /* k11096 in loop in k11047 in matchn in match-node in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; 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_11098,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:864: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_11067(t6,((C_word*)t0)[5],t3,t5);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k16307 in k16304 in k16301 in k16298 in a16292 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16309,2,av);} /* support.scm:512: ##sys#write-char-0 */ t2=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16304 in k16301 in k16298 in a16292 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_16306,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16309,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:512: ##sys#print */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16301 in k16298 in a16292 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16303(C_word c,C_word *av){ C_word tmp; C_word t0=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_16303,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16306,a[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:512: ##sys#write-char-0 */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7870 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_7872,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[211],lf[235],((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##compiler#get-line-2 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6737,3,av);} a=C_alloc(5); t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6744,a[2]=t1,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* support.scm:423: ##sys#hash-table-ref */ t6=*((C_word*)lf[149]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=*((C_word*)lf[158]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k12111 in k12084 in k12057 in k12031 in k11989 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_12113(C_word t0,C_word 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_12113,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12116,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:1083: gensym */ t3=*((C_word*)lf[110]+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[380]); 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[379],((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_eqp(((C_word*)t0)[4],lf[381]); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12157,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_12157(t5,t3);} else{ t5=C_eqp(((C_word*)t0)[4],lf[401]); if(C_truep(t5)){ t6=t4; f_12157(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[4],lf[402]); t7=t4; f_12157(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[4],lf[403])));}}}}} /* k12114 in k12111 in k12084 in k12057 in k12031 in k11989 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_12116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_12116,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[379],t1); t5=C_a_i_list(&a,2,lf[97],C_SCHEME_FALSE); t6=C_a_i_list(&a,4,lf[225],t1,t4,t5); t7=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[109],t3,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k8831 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8833,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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-loop1484 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_8835(C_word t0,C_word t1,C_word 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_8835,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_8860,a[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: g1490 */ 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);}}} /* k8858 in map-loop1484 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_8860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8860,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8835(t6,((C_word*)t0)[5],t5);} /* map-loop1094 in k7736 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_7811(C_word 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_7811,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_7836,a[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[232],t4); if(C_truep(t5)){ /* support.scm:549: error */ t6=*((C_word*)lf[4]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t3; av2[2]=lf[233]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t6=t3;{ C_word av2[2]; av2[0]=t6; av2[1]=t4; f_7836(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);}}} /* k5176 in k5127 in syntax-error-hook in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_5178,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5181,a[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:119: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8888 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_8890,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[264],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop1513 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_8892(C_word t0,C_word t1,C_word 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_8892,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_8917,a[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:631: g1519 */ 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);}}} /* k5573 in k5566 in loop in k5542 in c-ify-string in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_5575(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_5575,2,t0,t1);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5579,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_5589,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* support.scm:197: number->string */ t5=*((C_word*)lf[72]+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);}} /* k5577 in k5573 in k5566 in loop in k5542 in c-ify-string in k4868 in k4834 in k4831 in k4828 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5579,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5583,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:198: loop */ t6=((C_word*)((C_word*)t0)[5])[1]; f_5546(t6,t3,t5);} /* k7834 in map-loop1094 in k7736 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_7836,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7811(t6,((C_word*)t0)[5],t5);} /* k5566 in loop in k5542 in c-ify-string in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_5568(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_5568,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnum_lessp(((C_word*)t0)[5],C_fix(8)))){ t3=t2; f_5575(t3,lf[73]);} else{ t3=C_fixnum_lessp(((C_word*)t0)[5],C_fix(64)); t4=t2; f_5575(t4,(C_truep(t3)?lf[74]:C_SCHEME_END_OF_LIST));}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5609,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:199: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_5546(t5,t2,t4);}} /* ##compiler#encodeable-literal? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15631(C_word c,C_word *av){ C_word tmp; C_word 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_15631,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15645,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:1523: immediate? */ t4=*((C_word*)lf[101]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* ##compiler#c-ify-string in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5528,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5540,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5544,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* string->list */ t5=*((C_word*)lf[71]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k15643 in encodeable-literal? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_15645,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_fixnump(((C_word*)t0)[3]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_flonump(((C_word*)t0)[3]); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_a_i_arithmetic_shift(&a,2,t5,C_fix(-24)); t8=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_u_i_zerop(t7); ((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=stub3735(C_SCHEME_UNDEFINED,t4); t6=((C_word*)t0)[2]; t7=C_a_i_arithmetic_shift(&a,2,t5,C_fix(-24)); t8=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_u_i_zerop(t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t4=((C_word*)t0)[3]; t5=stub3735(C_SCHEME_UNDEFINED,t4); t6=C_a_i_arithmetic_shift(&a,2,t5,C_fix(-24)); if(C_truep(C_u_i_zerop(t6))){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15702,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15704,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* support.scm:1536: list-tabulate */ t9=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t7; av2[2]=t5; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t7=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}}}}}} /* k15924 in user-read-hook in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15926,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15929,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1586: scan-sharp-greater-string */ t3=*((C_word*)lf[537]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15927 in k15924 in user-read-hook in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15929(C_word c,C_word *av){ C_word tmp; C_word t0=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_15929,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,2,lf[535],t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,2,lf[536],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in k11047 in matchn in match-node in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_11067(C_word t0,C_word 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_11067,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{ if(C_truep(C_i_not_pair_p(t3))){ /* support.scm:861: resolve */ t4=((C_word*)((C_word*)t0)[2])[1]; f_10954(t4,t1,t3,t2);} else{ if(C_truep(C_i_nullp(t2))){ 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_11098,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); t6=C_i_car(t3); /* support.scm:863: matchn */ t7=((C_word*)((C_word*)t0)[4])[1]; f_11027(t7,t4,t5,t6);}}}} /* k15969 in k15952 in loop in k15943 in scan-sharp-greater-string in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15971,2,av);} /* support.scm:1597: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_15950(t2,((C_word*)t0)[3]);} /* loop in k5542 in c-ify-string in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_5546(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_5546,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[68]; ((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_5568,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_5568(t9,t7);} else{ t9=C_fixnum_greater_or_equal_p(t6,C_fix(127)); if(C_truep(t9)){ t10=t8; f_5568(t10,t9);} else{ t10=C_u_i_memq(t4,lf[75]); t11=t8; f_5568(t11,t10);}}}} /* node-subexpressions-set! in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_7494,4,av);} t4=C_i_check_structure_2(t2,lf[211],C_SCHEME_FALSE); /* support.scm:505: ##sys#block-set! */ t5=*((C_word*)lf[215]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5542 in c-ify-string in k4868 in k4834 in k4831 in k4828 */ 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; 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_5544,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_5546,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_5546(t5,((C_word*)t0)[2],t1);} /* k5538 in c-ify-string in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5540,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_make_character(34),t1); /* list->string */ t3=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7800 in map-loop1121 in k7739 in k7736 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7802,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7777(t6,((C_word*)t0)[5],t5);} /* ##compiler#scan-sharp-greater-string in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15941(C_word c,C_word *av){ C_word tmp; C_word 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_15941,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15945,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* support.scm:1591: open-output-string */ t4=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k15943 in scan-sharp-greater-string in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_15945,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_15950,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_15950(t6,((C_word*)t0)[3]);} /* node-subexpressions in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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_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[211],lf[218]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(3)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#user-read-hook in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15916(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_15916,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_15926,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* read-char/port */ t5=*((C_word*)lf[538]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* ##compiler#read/source-info in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15910(C_word c,C_word *av){ C_word 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_15910,3,av);} /* support.scm:1576: ##sys#read */ t3=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=*((C_word*)lf[528]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k10635 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10637,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10640,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:807: delete-file* */ t3=*((C_word*)lf[300]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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|2,a[1]=(C_word)f_10700,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* support.scm:808: with-output-to-file */ t4=*((C_word*)lf[308]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* ##compiler#emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10633(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(15,c,4)))){ C_save_and_reclaim((void *)f_10633,4,av);} a=C_alloc(15); 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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10637,a[2]=t1,a[3]=t5,a[4]=t7,a[5]=t2,tmp=(C_word)a,a+=6,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10750,a[2]=t5,a[3]=t7,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* support.scm:787: ##sys#hash-table-for-each */ t10=*((C_word*)lf[162]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t8; av2[2]=t9; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} /* k5089 in k5083 in k5080 in k5077 in k5074 in with-debugging-output in k4868 in k4834 in k4831 in k4828 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5091,2,av);} if(C_truep(t1)){ /* support.scm:100: collect */ t2=((C_word*)t0)[2]; f_5015(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9388 in k9384 in loop in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9390(C_word c,C_word *av){ C_word tmp; 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_9390,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[271],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10644 in k10638 in k10635 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10646,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10654,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:820: sort-symbols */ t3=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5083 in k5080 in k5077 in k5074 in with-debugging-output in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_5085,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5091,a[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:99: test-debugging-mode */ t3=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k10638 in k10635 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_10640,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10646,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:819: debugging */ t3=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[298]; av2[3]=lf[299]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_10646(2,av2);}}} /* k5080 in k5077 in k5074 in with-debugging-output in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5082,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); /* support.scm:98: flush-output */ t3=*((C_word*)lf[25]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5077 in k5074 in with-debugging-output in k4868 in k4834 in k4831 in k4828 */ 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(6,c,2)))){ C_save_and_reclaim((void *)f_5079,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5082,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:97: display */ t4=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5074 in with-debugging-output in k4868 in k4834 in k4831 in k4828 */ 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(5,c,3)))){ C_save_and_reclaim((void *)f_5076,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5079,a[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:96: with-output-to-string */ t3=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_5100,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:101: test-debugging-mode */ t3=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k10652 in k10644 in k10638 in k10635 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10654(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10654,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[35]); 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_10662,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_10662(t6,((C_word*)t0)[2],t1);} /* node-class-set! in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_7458(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_7458,4,av);} t4=C_i_check_structure_2(t2,lf[211],C_SCHEME_FALSE); /* support.scm:505: ##sys#block-set! */ t5=*((C_word*)lf[215]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15980 in k15952 in loop in k15943 in scan-sharp-greater-string in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_15982,2,av);} a=C_alloc(6); t2=t1; t3=C_eqp(C_make_character(35),t2); if(C_truep(t3)){ /* support.scm:1601: get-output-string */ t4=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_15994,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); /* write-char/port */ t5=*((C_word*)lf[527]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* a6783 in display-line-number-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_6784,4,av);} a=C_alloc(5); if(C_truep(t3)){ t4=*((C_word*)lf[16]+1); t5=*((C_word*)lf[16]+1); t6=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6794,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* support.scm:431: ##sys#print */ t8=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=*((C_word*)lf[16]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* for-each-loop2246 in k10652 in k10644 in k10638 in k10635 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_10662(C_word t0,C_word t1,C_word 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_10662,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_10672,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:820: g2262 */ t5=*((C_word*)lf[296]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=lf[297]; 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);}}} /* node-class in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_7449(C_word c,C_word *av){ C_word tmp; C_word 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_7449,3,av);} t3=C_i_check_structure_2(t2,lf[211],lf[213]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* node? in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7443,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[211]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6668 in k6665 in count! in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_6670(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,4)))){ C_save_and_reclaim_args((void *)trf_6670,2,t0,t1);} a=C_alloc(6); if(C_truep(((C_word*)t0)[2])){ t2=C_i_assq(((C_word*)t0)[3],((C_word*)t0)[2]); if(C_truep(t2)){ t3=C_slot(t2,C_fix(1)); t4=C_a_i_plus(&a,2,t3,t1); t5=((C_word*)t0)[4];{ C_word av2[2]; 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_slot(((C_word*)t0)[2],C_fix(1)); t4=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[3],t1),t3); t5=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t5; av2[1]=C_i_setslot(((C_word*)t0)[2],C_fix(1),t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[5]); t3=C_a_i_list1(&a,1,t2); /* support.scm:409: ##sys#hash-table-set! */ t4=*((C_word*)lf[153]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* loop in k15943 in scan-sharp-greater-string in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_15950(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_15950,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15954,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); /* read-char/port */ t3=*((C_word*)lf[538]+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);}} /* k15952 in loop in k15943 in scan-sharp-greater-string in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15954(C_word c,C_word *av){ C_word tmp; C_word t0=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_15954,2,av);} a=C_alloc(5); if(C_truep(C_eofp(t1))){ /* support.scm:1594: quit */ t2=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[539]; ((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_15971,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* support.scm:1596: newline */ t3=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_15982,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); /* read-char/port */ t3=*((C_word*)lf[538]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_16005,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* write-char/port */ t3=*((C_word*)lf[527]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}}}} /* ##compiler#count! in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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((c-5)*C_SIZEOF_PAIR +7,c,3)))){ C_save_and_reclaim((void*)f_6663,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_6667,a[2]=t4,a[3]=t1,a[4]=t5,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* support.scm:403: ##sys#hash-table-ref */ t7=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k6665 in count! in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6667,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6670,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_pairp(((C_word*)t0)[4]))){ t4=((C_word*)t0)[4]; t5=t3; f_6670(t5,C_u_i_car(t4));} else{ t4=t3; f_6670(t4,C_fix(1));}} /* for-each-loop168 in k5130 in k5127 in syntax-error-hook in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_5151(C_word t0,C_word t1,C_word 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_5151,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_5161,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:121: g169 */ t5=((C_word*)t0)[3]; f_5133(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);}}} /* g2307 in resolve in match-node in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static C_word C_fcall f_10962(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));} /* k5141 in k5130 in k5127 in syntax-error-hook in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5143,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5146,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:122: print-call-chain */ t3=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[37]+1); av2[5]=lf[38]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k5144 in k5141 in k5130 in k5127 in syntax-error-hook in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5146,2,av);} /* support.scm:123: exit */ t2=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14733 in for-each-loop3442 in k14715 in walk in scan-used-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_14735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14735,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_14725(t3,((C_word*)t0)[4],t2);} /* k6792 in a6783 in display-line-number-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6794(C_word c,C_word *av){ C_word tmp; C_word t0=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_6794,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6797,a[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:431: ##sys#write-char-0 */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6795 in k6792 in a6783 in display-line-number-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6797(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_6797,2,av);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6800,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[161]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6813,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_6815,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_6815(t13,t9,t7);} /* k15253 in loop in k15188 in k15257 in k15161 in real-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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(0,c,3)))){ C_save_and_reclaim((void *)f_15255,2,av);} /* support.scm:1457: string-intersperse */ t2=*((C_word*)lf[499]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[503]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k15257 in k15161 in real-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15259(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_15259,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_15190,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:1446: get */ t5=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[181]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k5025 in k5022 in g104 in collect in with-debugging-output in k4868 in k4834 in k4831 in k4828 */ 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(4,c,4)))){ C_save_and_reclaim((void *)f_5027,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5030,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:90: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5022 in g104 in collect in with-debugging-output in k4868 in k4834 in k4831 in k4828 */ 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(5,c,3)))){ C_save_and_reclaim((void *)f_5024,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5027,a[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:90: ##sys#write-char-0 */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10943 in k10909 in loop in a10900 in load-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10945,2,av);} a=C_alloc(3); t2=C_a_i_list(&a,1,t1); if(C_truep(C_i_nullp(t2))){ /* tweaks.scm:54: ##sys#put! */ t3=*((C_word*)lf[142]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[313]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=C_i_car(t2); /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[142]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[313]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k5159 in for-each-loop168 in k5130 in k5127 in syntax-error-hook in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5161,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5151(t3,((C_word*)t0)[4],t2);} /* k14715 in walk in scan-used-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_14717(C_word t0,C_word 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_14717,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[35]); 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_14725,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_14725(t7,((C_word*)t0)[2],((C_word*)t0)[4]);}} /* k15995 in k15992 in k15980 in k15952 in loop in k15943 in scan-sharp-greater-string in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15997(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15997,2,av);} /* support.scm:1605: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_15950(t2,((C_word*)t0)[3]);} /* k15992 in k15980 in k15952 in loop in k15943 in scan-sharp-greater-string in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15994(C_word c,C_word *av){ C_word tmp; C_word t0=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_15994,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15997,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* write-char/port */ t3=*((C_word*)lf[527]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5008 in k5001 in k4977 in debugging in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5010,2,av);} /* support.scm:84: dump */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4960(t2,((C_word*)t0)[3],t1);} /* ##compiler#with-debugging-output in k4868 in k4834 in k4831 in k4828 */ 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=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_5012,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5015,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5076,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* support.scm:95: test-debugging-mode */ t6=*((C_word*)lf[11]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=*((C_word*)lf[1]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k10140 in k10132 in k10067 in k10064 in a10047 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word 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_10142,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_10086,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[161]); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10096,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_10098,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_10098(t15,t11,((C_word*)t0)[7]);} /* g104 in collect in with-debugging-output in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_5017(C_word t0,C_word t1,C_word t2){ C_word 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_5017,3,t0,t1,t2);} a=C_alloc(5); t3=*((C_word*)lf[8]+1); t4=*((C_word*)lf[8]+1); t5=C_i_check_port_2(*((C_word*)lf[8]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[24]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5024,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:90: ##sys#print */ t9=*((C_word*)lf[19]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t6; av2[2]=t8; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[8]+1); ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t7=((C_word*)t0)[2]; /* support.scm:90: ##sys#print */ t8=*((C_word*)lf[19]+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);}}} /* collect in with-debugging-output in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_5015(C_word t0,C_word t1,C_word 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_5015,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5017,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5044,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* support.scm:94: string-split */ t5=*((C_word*)lf[27]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[28]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* resolve in match-node in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_10954(C_word t0,C_word 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_10954,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_10962,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* support.scm:837: g2307 */ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=( /* support.scm:837: g2307 */ f_10962(t5,t4) ); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ if(C_truep(C_i_memq(t2,((C_word*)t0)[3]))){ t5=C_a_i_cons(&a,2,C_a_i_cons(&a,2,t2,t3),((C_word*)((C_word*)t0)[2])[1]); t6=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t5); t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t7+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);}}}} /* k7433 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_7435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_7435,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_6853(t3,t2);} /* f_7437 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_7437,5,av);} a=C_alloc(5); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[211],t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* ##compiler#match-node in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10951(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10951,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_10954,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_10988,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_11027,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_11142,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* support.scm:866: matchn */ t17=((C_word*)t12)[1]; f_11027(t17,t16,t2,t3);} /* k4998 in k4977 in debugging in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5000,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10148 in k10132 in k10067 in k10064 in a10047 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10150,2,av);} /* support.scm:751: build-lambda-list */ t2=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* g2465 in a11554 in compute-database-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static C_word C_fcall f_11557(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_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_stack_overflow_check;{} t2=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(1)); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t4=C_i_car(t1); t5=C_eqp(t4,lf[189]); if(C_truep(t5)){ t6=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[3])[1],C_fix(1)); t7=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t6); return(t7);} else{ t6=C_eqp(t4,lf[172]); if(C_truep(t6)){ t7=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[4])[1],C_fix(1)); t8=C_mutate2(((C_word *)((C_word*)t0)[4])+1,t7); t9=t1; t10=C_u_i_cdr(t9); t11=C_slot(t10,C_fix(1)); t12=C_eqp(lf[133],t11); if(C_truep(t12)){ t13=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[5])[1],C_fix(1)); t14=C_mutate2(((C_word *)((C_word*)t0)[5])+1,t13); return(t14);} else{ t13=C_SCHEME_UNDEFINED; return(t13);}} else{ t7=C_eqp(t4,lf[177]); if(C_truep(t7)){ t8=t1; t9=C_u_i_cdr(t8); t10=C_i_length(t9); t11=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[6])[1],t10); t12=C_mutate2(((C_word *)((C_word*)t0)[6])+1,t11); return(t12);} else{ t8=C_SCHEME_UNDEFINED; return(t8);}}}} /* k5001 in k4977 in debugging in k4868 in k4834 in k4831 in k4828 */ 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(4,c,2)))){ C_save_and_reclaim((void *)f_5003,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5010,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:84: text */ t3=((C_word*)((C_word*)t0)[4])[1]; f_4895(t3,t2);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k11548 in compute-database-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_11550,2,av);} /* support.scm:980: values */{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[333]+1); av2[3]=*((C_word*)lf[334]+1); 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);}} /* a11554 in compute-database-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11555(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_11555,4,av);} a=C_alloc(13); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11557,a[2]=((C_word*)t0)[2],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[35]); 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_11636,a[2]=t4,a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_11636(t9,t1,t3);} /* walk in scan-free-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_14773(C_word t0,C_word t1,C_word 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(11,0,2)))){ C_save_and_reclaim_args((void *)trf_14773,4,t0,t1,t2,t3);} a=C_alloc(11); 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[97]); t14=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_14807,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]=t6,a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],tmp=(C_word)a,a+=11,tmp); if(C_truep(t13)){ t15=t14; f_14807(t15,t13);} else{ t15=C_eqp(t12,lf[226]); if(C_truep(t15)){ t16=t14; f_14807(t16,t15);} else{ t16=C_eqp(t12,lf[241]); if(C_truep(t16)){ t17=t14; f_14807(t17,t16);} else{ t17=C_eqp(t12,lf[245]); t18=t14; f_14807(t18,(C_truep(t17)?t17:C_eqp(t12,lf[257])));}}}} /* ##compiler#scan-free-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_14770(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_14770,3,av);} a=C_alloc(22); 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_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|5,a[1]=(C_word)f_14773,a[2]=t4,a[3]=t6,a[4]=t8,a[5]=t10,tmp=(C_word)a,a+=6,tmp)); t12=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14957,a[2]=t8,tmp=(C_word)a,a+=3,tmp)); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14995,a[2]=t1,a[3]=t4,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* support.scm:1381: walk */ t14=((C_word*)t8)[1]; f_14773(t14,t13,t2,C_SCHEME_END_OF_LIST);} /* ##compiler#compute-database-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_11546,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_11550,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_11555,a[2]=t10,a[3]=t8,a[4]=t6,a[5]=t4,a[6]=t12,tmp=(C_word)a,a+=7,tmp); /* support.scm:966: ##sys#hash-table-for-each */ t15=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5581 in k5577 in k5573 in k5566 in loop in k5542 in c-ify-string in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5583,2,av);} /* support.scm:193: append */ t2=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[70]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k15293 in k15290 in k15287 in a15281 in display-real-name-table in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15295,2,av);} /* support.scm:1466: ##sys#write-char-0 */ t2=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5587 in k5573 in k5566 in loop in k5542 in c-ify-string in k4868 in k4834 in k4831 in k4828 */ 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);} /* string->list */ t2=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15290 in k15287 in a15281 in display-real-name-table in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15292(C_word c,C_word *av){ C_word tmp; C_word t0=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_15292,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15295,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:1466: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10932 in k10909 in loop in a10900 in load-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10934,2,av);} /* support.scm:832: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10907(t2,((C_word*)t0)[3]);} /* ##compiler#uncommentify in k4868 in k4834 in k4831 in k4828 */ 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=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_5476,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5484,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* support.scm:174: ->string */ t4=*((C_word*)lf[60]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5472 in backslashify in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5474,2,av);} /* support.scm:172: string-translate* */ t2=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[59]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a10900 in load-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10901,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_10907,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_10907(t5,t1);} /* loop in a10900 in load-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_10907(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_10907,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10911,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* support.scm:826: read */ t3=*((C_word*)lf[117]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k15227 in k15214 in loop in k15188 in k15257 in k15161 in real-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15229,2,av);} /* support.scm:1453: string-intersperse */ t2=*((C_word*)lf[499]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[502]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* ##compiler#foreign-type-convert-argument in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_12840(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_12840,4,av);} a=C_alloc(4); if(C_truep(C_i_symbolp(t3))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12853,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* support.scm:1159: ##sys#hash-table-ref */ t5=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[398]+1); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=t2; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k10909 in loop in a10900 in load-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_10911,2,av);} a=C_alloc(8); if(C_truep(C_eofp(t1))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_10934,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_10945,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_i_cadr(t1); /* support.scm:831: sexpr->node */ t7=*((C_word*)lf[294]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} /* k12851 in foreign-type-convert-argument in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_12853(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_12853,2,av);} a=C_alloc(6); if(C_truep(t1)){ if(C_truep(C_i_vectorp(t1))){ t2=C_i_vector_ref(t1,C_fix(1)); 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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k15242 in k15246 in k15214 in loop in k15188 in k15257 in k15161 in real-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15244(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_15244,2,av);} /* support.scm:1454: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_15192(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k15246 in k15214 in loop in k15188 in k15257 in k15161 in real-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_15248,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_15244,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:1456: get */ t7=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[181]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* ##compiler#stringify in k4868 in k4834 in k4831 in k4828 */ 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=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_5402,3,av);} a=C_alloc(4); if(C_truep(C_i_stringp(t2))){ t3=t2; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(t2))){ /* support.scm:164: symbol->string */ t3=*((C_word*)lf[51]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5421,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:165: open-output-string */ t4=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k6491 in for-each-loop581 in k6383 in initialize-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6493(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6493,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6483(t3,((C_word*)t0)[4],t2);} /* a12876 in final-foreign-type in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_12877(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,3)))){ C_save_and_reclaim((void *)f_12877,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12881,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:1168: ##sys#hash-table-ref */ t5=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[398]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_12881(2,av2);}}} /* ##compiler#final-foreign-type in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_12871(C_word c,C_word *av){ C_word tmp; C_word 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_12871,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12877,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12910,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* support.scm:1165: follow-without-loop */ t5=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11533 in toplevel-definition-hook in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11535,2,av);} /* support.scm:944: hide-variable */ t2=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop581 in k6383 in initialize-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_6483(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_6483,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_6493,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_6404,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t8=C_a_i_list(&a,1,lf[146]); if(C_truep(C_i_nullp(t8))){ /* tweaks.scm:54: ##sys#put! */ t9=*((C_word*)lf[142]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t7; av2[2]=t6; av2[3]=lf[143]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t9=C_i_car(t8); /* tweaks.scm:54: ##sys#put! */ t10=*((C_word*)lf[142]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t7; av2[2]=t6; av2[3]=lf[143]; 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);}}} /* k11521 in a11481 in dump-global-refs in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_11523,2,av);} a=C_alloc(9); t2=(C_truep(t1)?C_SCHEME_FALSE:C_i_assq(lf[189],((C_word*)t0)[2])); if(C_truep(t2)){ t3=C_i_assq(lf[176],((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11495,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); if(C_truep(t3)){ t5=C_i_cdr(t3); t6=C_i_length(t5); t7=C_a_i_list2(&a,2,((C_word*)t0)[4],t6); /* support.scm:933: write */ t8=*((C_word*)lf[207]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t4; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t5=C_a_i_list2(&a,2,((C_word*)t0)[4],C_fix(0)); /* support.scm:933: write */ t6=*((C_word*)lf[207]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* ##sys#toplevel-definition-hook in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11525(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(4,c,4)))){ C_save_and_reclaim((void *)f_11525,6,av);} a=C_alloc(4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_not(t4)); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11535,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:943: debugging */ t8=*((C_word*)lf[14]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=lf[261]; av2[3]=lf[331]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t7=C_SCHEME_UNDEFINED; t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* ##compiler#collapsable-literal? in k4868 in k4834 in k4831 in k4828 */ 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=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_5914,3,av);} t3=C_booleanp(t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=(C_truep(t6)?t6:C_i_symbolp(t2)); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}}} /* k9111 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9113(C_word c,C_word *av){ C_word tmp; 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_9113,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k8915 in map-loop1513 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; 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_8917,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8892(t6,((C_word*)t0)[5],t5);} /* k10121 in map-loop2000 in k10140 in k10132 in k10067 in k10064 in a10047 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10123,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10098(t6,((C_word*)t0)[5],t5);} /* for-each-loop3442 in k14715 in walk in scan-used-variables in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_14725,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_14735,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:1343: g3443 */ 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);}}} /* k10132 in k10067 in k10064 in a10047 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_10134,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_10142,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_10150,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:712: alist-ref */ t8=*((C_word*)lf[287]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[13]+1); av2[5]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}} else{ /* support.scm:751: build-lambda-list */ t7=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* ##compiler#constant? in k4868 in k4834 in k4831 in k4828 */ 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=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_5852,3,av);} a=C_alloc(4); t3=C_i_numberp(t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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_5886,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:257: blob? */ t9=*((C_word*)lf[99]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}}}}} /* k5848 in k5844 in a5837 in sort-symbols in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5850,2,av);} /* support.scm:246: string= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5425 in k5419 in stringify in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5427,2,av);} /* support.scm:165: get-output-string */ t2=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5419 in stringify in k4868 in k4834 in k4831 in k4828 */ 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(4,c,4)))){ C_save_and_reclaim((void *)f_5421,2,av);} a=C_alloc(4); t2=t1; t3=C_i_check_port_2(t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[52]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5427,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:165: ##sys#print */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* node-parameters-set! in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_7476,4,av);} t4=C_i_check_structure_2(t2,lf[211],C_SCHEME_FALSE); /* support.scm:505: ##sys#block-set! */ t5=*((C_word*)lf[215]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6431 in k6383 in initialize-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_6433,2,av);} a=C_alloc(5); t2=*((C_word*)lf[140]+1); t3=C_i_check_list_2(*((C_word*)lf[140]+1),lf[35]); 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_6460,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_6460(t7,((C_word*)t0)[2],*((C_word*)lf[140]+1));} /* k5844 in a5837 in sort-symbols in k4868 in k4834 in k4831 in k4828 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5846,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5850,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:246: symbol->string */ t4=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10058 in k10055 in g1939 in a10047 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10060(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10060,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5453 in symbolify in k4868 in k4834 in k4831 in k4828 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_5455,2,av);} a=C_alloc(4); t2=t1; t3=C_i_check_port_2(t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[52]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5461,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:170: ##sys#print */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* ##compiler#foreign-type->scrutiny-type in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_14049(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_14049,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14053,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* support.scm:1273: final-foreign-type */ t5=*((C_word*)lf[437]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* node-parameters in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_7467(C_word c,C_word *av){ C_word tmp; C_word 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_7467,3,av);} t3=C_i_check_structure_2(t2,lf[211],lf[216]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##compiler#sort-symbols in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5832(C_word c,C_word *av){ C_word tmp; C_word 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_5832,3,av);} a=C_alloc(2); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5838,tmp=(C_word)a,a+=2,tmp); /* support.scm:246: sort */ t4=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5837 in sort-symbols in k4868 in k4834 in k4831 in k4828 */ 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=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_5838,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5846,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* support.scm:246: symbol->string */ t5=*((C_word*)lf[51]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k10064 in a10047 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_10066,2,av);} a=C_alloc(25); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10069,a[2]=((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[161]); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10163,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_10165,a[2]=t6,a[3]=t12,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_10165(t14,t10,t8,t2);} /* k10067 in k10064 in a10047 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_10069,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10134,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:750: gensym */ t4=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[289]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k9135 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9137(C_word c,C_word *av){ C_word tmp; 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_9137,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[267],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##compiler#symbolify in k4868 in k4834 in k4831 in k4828 */ 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=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_5432,3,av);} a=C_alloc(4); if(C_truep(C_i_symbolp(t2))){ t3=t2; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_stringp(t2))){ /* support.scm:169: string->symbol */ t3=*((C_word*)lf[56]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5455,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:170: open-output-string */ t4=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k6402 in for-each-loop581 in k6383 in initialize-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6404,2,av);} a=C_alloc(3); if(C_truep(C_i_memq(((C_word*)t0)[2],*((C_word*)lf[144]+1)))){ t2=C_a_i_list(&a,1,C_SCHEME_TRUE); if(C_truep(C_i_nullp(t2))){ /* tweaks.scm:54: ##sys#put! */ t3=*((C_word*)lf[142]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=lf[145]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=C_i_car(t2); /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[142]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=lf[145]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5896 in k5884 in constant? in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5898,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_eqp(lf[97],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* ##compiler#basic-literal? in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5990,3,av);} a=C_alloc(4); t3=C_i_nullp(t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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_6006,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:280: constant? */ t6=*((C_word*)lf[96]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}} /* g2006 in k10140 in k10132 in k10067 in k10064 in a10047 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_10086(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_10086,3,t0,t1,t2);} /* support.scm:753: g2023 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_9882(t3,t1,t2,((C_word*)t0)[3]);} /* k5884 in constant? in k4868 in k4834 in k4831 in k4828 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5886,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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_5898,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:259: ##sys#srfi-4-vector? */ t4=*((C_word*)lf[98]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}}} /* k13423 in k13386 in k13380 in k13368 in a13359 in estimate-foreign-result-location-size in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_13425(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_13425,2,t0,t1);} if(C_truep(t1)){ /* support.scm:1228: words->bytes */ t2=*((C_word*)lf[79]+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_word*)t0)[2]; t3=((C_word*)t0)[3]; /* support.scm:1207: quit */ t4=*((C_word*)lf[29]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t2; av2[2]=lf[445]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k5986 in immediate? in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5988,2,av);} t2=((C_word*)t0)[2]; f_5948(t2,C_i_not(t1));} /* k15204 in loop in k15188 in k15257 in k15161 in real-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15206,2,av);} /* support.scm:1449: string-intersperse */ t2=*((C_word*)lf[499]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[500]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop2000 in k10140 in k10132 in k10067 in k10064 in a10047 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_10098(C_word t0,C_word t1,C_word 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_10098,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_10123,a[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:753: g2006 */ t5=((C_word*)t0)[4]; f_10086(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);}}} /* k10094 in k10140 in k10132 in k10067 in k10064 in a10047 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10096(C_word c,C_word *av){ C_word tmp; C_word t0=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_10096,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[211],lf[133],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8991 in k8988 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_8993,2,av);} a=C_alloc(12); t2=C_i_check_list_2(((C_word*)t0)[2],lf[161]); t3=C_i_check_list_2(t1,lf[161]); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9002,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_9012,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_9012(t8,t4,((C_word*)t0)[2],t1);} /* k8988 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_8990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8990,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8993,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_9060,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_9060(t6,t2,t1);} /* k9169 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9171,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9175,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_u_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_9183,a[2]=((C_word*)t0)[5],a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_9183(t9,t3,t4,t5);} /* k16242 in k16239 in k16236 in k16233 in k16230 in k16224 in k16160 in k16154 in load-identifier-database in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16244(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16244,2,av);} /* support.scm:1653: debugging */ t2=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[553]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k16246 in k16154 in load-identifier-database in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16248,2,av);} /* support.scm:1652: file-exists? */ t2=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9173 in k9169 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9175(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9175,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[269],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k16239 in k16236 in k16233 in k16230 in k16224 in k16160 in k16154 in load-identifier-database in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_16241,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16244,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1653: get-output-string */ t3=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in k9169 in k8818 in walk in build-expression-tree in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_9183(C_word t0,C_word t1,C_word 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_9183,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_9207,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=C_i_car(t3); /* support.scm:658: walk */ t6=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; f_8786(3,av2);}}} else{ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9234,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:659: walk */ t8=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t8; av2[1]=t6; av2[2]=t7; f_8786(3,av2);}}} /* ##compiler#immediate? in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5944(C_word c,C_word *av){ C_word tmp; C_word 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_5944,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5948,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_5988,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* support.scm:270: big-fixnum? */ t5=*((C_word*)lf[102]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t3; f_5948(t4,C_SCHEME_FALSE);}} /* k5946 in immediate? in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_5948(C_word 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_5948,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);}}}}}} /* k8021 in loop in k8058 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_8023(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_8023,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_8003,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_8011,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_8015,a[2]=((C_word*)t0)[5],a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* support.scm:572: cadar */ t7=*((C_word*)lf[239]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#print-debug-options in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16287,2,av);} /* support.scm:1799: display */ t2=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=lf[564]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a5821 in loop in follow-without-loop in k4868 in k4834 in k4831 in k4828 */ 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=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_5822,3,av);} a=C_alloc(3); t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* support.scm:243: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_5807(t4,t1,t2,t3);} /* k16280 in k16277 in print-usage in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16282(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16282,2,av);} /* support.scm:1672: display */ t2=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[562]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* ##compiler#real-name2 in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15264(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_15264,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15268,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* support.scm:1461: ##sys#hash-table-ref */ t5=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[497]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k8001 in k8021 in loop in k8058 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8003,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[211],lf[237],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k15266 in real-name2 in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15268,2,av);} if(C_truep(t1)){ /* support.scm:1462: real-name */ t2=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k16233 in k16230 in k16224 in k16160 in k16154 in load-identifier-database in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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(5,c,4)))){ C_save_and_reclaim((void *)f_16235,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16238,a[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:1653: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[554]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* ##compiler#foreign-type-convert-result in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_12809(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_12809,4,av);} a=C_alloc(4); if(C_truep(C_i_symbolp(t3))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12822,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* support.scm:1152: ##sys#hash-table-ref */ t5=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[398]+1); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=t2; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k16236 in k16233 in k16230 in k16224 in k16160 in k16154 in load-identifier-database in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16238(C_word c,C_word *av){ C_word tmp; C_word t0=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_16238,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16241,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:1653: ##sys#write-char-0 */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a12802 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_12803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12803,2,av);} /* support.scm:1145: quit */ t2=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=lf[434]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k16230 in k16224 in k16160 in k16154 in load-identifier-database in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16232(C_word c,C_word *av){ C_word tmp; C_word t0=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_16232,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16235,a[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:1653: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6468 in for-each-loop628 in k6431 in k6383 in initialize-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6470(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6470,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6460(t3,((C_word*)t0)[4],t2);} /* ##compiler#display-real-name-table in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ C_save_and_reclaim((void *)f_15276,2,av);} a=C_alloc(2); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15282,tmp=(C_word)a,a+=2,tmp); /* support.scm:1465: ##sys#hash-table-for-each */ t3=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=*((C_word*)lf[497]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k16224 in k16160 in k16154 in load-identifier-database in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_16226,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[52]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16232,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:1653: ##sys#print */ t6=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[555]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* loop in follow-without-loop in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_5807,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_member(t2,t3))){ /* support.scm:242: 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_5822,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* support.scm:243: 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);}}} /* ##compiler#follow-without-loop in k4868 in k4834 in k4831 in k4828 */ 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=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_5801,5,av);} 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_5807,a[2]=t4,a[3]=t6,a[4]=t3,tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_5807(t8,t1,t2,C_SCHEME_END_OF_LIST);} /* for-each-loop628 in k6431 in k6383 in initialize-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_6460(C_word t0,C_word 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_6460,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_6470,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_a_i_list(&a,1,lf[141]); if(C_truep(C_i_nullp(t5))){ /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[142]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[143]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_i_car(t5); /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[142]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=lf[143]; 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);}}} /* a15281 in display-real-name-table in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15282(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_15282,4,av);} a=C_alloc(5); t4=*((C_word*)lf[16]+1); t5=*((C_word*)lf[16]+1); t6=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15289,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* support.scm:1466: ##sys#print */ t8=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=*((C_word*)lf[16]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} /* k8058 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8060,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_7937,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_7937(t6,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_END_OF_LIST,t2);} /* k15287 in a15281 in display-real-name-table in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15289(C_word c,C_word *av){ C_word tmp; C_word t0=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_15289,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15292,a[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:1466: ##sys#write-char-0 */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16255 in print-version in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_16257,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16264,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1667: chicken-version */ t3=*((C_word*)lf[307]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12820 in foreign-type-convert-result in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_12822,2,av);} a=C_alloc(6); if(C_truep(t1)){ if(C_truep(C_i_vectorp(t1))){ t2=C_i_vector_ref(t1,C_fix(2)); 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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* ##compiler#print-version in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,2)))){ C_save_and_reclaim((void*)f_16250,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_16257,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(t4)){ /* support.scm:1666: print* */ t6=*((C_word*)lf[559]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[560]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f17649,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* support.scm:1667: chicken-version */ t7=*((C_word*)lf[307]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k15214 in loop in k15188 in k15257 in k15161 in real-name in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_15216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_15216,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_15229,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* support.scm:1453: reverse */ t4=*((C_word*)lf[91]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_15248,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:1454: symbol->string */ t4=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k8009 in k8021 in loop in k8058 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_8011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8011,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* support.scm:572: reverse */ t3=*((C_word*)lf[91]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8013 in k8021 in loop in k8058 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_8015,2,av);} /* support.scm:572: walk */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; f_7545(3,av2);}} /* k9850 in map-loop1800 in a9725 in a9713 in inline-lambda-bindings in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9852,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9827(t6,((C_word*)t0)[5],t5);} /* match1 in match-node in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_10988(C_word t0,C_word t1,C_word 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_10988,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_not_pair_p(t3))){ /* support.scm:848: resolve */ t4=((C_word*)((C_word*)t0)[2])[1]; f_10954(t4,t1,t3,t2);} else{ if(C_truep(C_i_not_pair_p(t2))){ 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_11010,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); t6=C_i_car(t3); /* support.scm:850: match1 */ t8=t4; t9=t5; t10=t6; t1=t8; t2=t9; t3=t10; goto loop;}}} /* k8042 in loop in k8058 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_8044,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* support.scm:573: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_7937(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2);} /* k8046 in loop in k8058 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8048,2,av);} /* support.scm:575: walk */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; f_7545(3,av2);}} /* walk in sexpr->node in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10568,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[161]); t16=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10597,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_10599,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_10599(t20,t16,t14);} /* ##compiler#sexpr->node in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10562,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_10568,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=t2; f_10568(3,av2);}} /* rec in simple-lambda-node? in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_11305,3,av);} t3=t2; t4=C_slot(t3,C_fix(1)); t5=C_eqp(t4,lf[253]); 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[221],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_u_i_cdr(t7); /* support.scm:901: every */ t15=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t15; av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} else{ t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} else{ t6=C_eqp(t4,lf[243]); if(C_truep(t6)){ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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:903: every */ t9=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}}} /* k5482 in uncommentify in k4868 in k4834 in k4831 in k4828 */ 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_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5484,2,av);} /* support.scm:174: string-translate* */ t2=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[62]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* ##compiler#build-lambda-list in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5486,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_5492,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_5492(t8,t1,t2,t3);} /* k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_6853(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_6853,2,t0,t1);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6858,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:455: ##sys#hash-table-for-each */ t3=*((C_word*)lf[162]+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);}} /* k10551 in map-loop2124 in walk in node->sexpr in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10553,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10528(t6,((C_word*)t0)[5],t5);} /* a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_6858,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; /* Re-use our own argvector */ 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_6868,a[2]=t1,a[3]=t11,a[4]=t13,a[5]=t5,a[6]=t7,a[7]=t9,a[8]=t3,tmp=(C_word)a,a+=9,tmp); /* support.scm:463: write */ t15=*((C_word*)lf[207]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}} /* g2872 in k12879 in a12876 in final-foreign-type in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_12885(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_12885,3,t0,t1,t2);} if(C_truep(C_i_vectorp(t2))){ t3=C_i_vector_ref(t2,C_fix(0)); /* support.scm:1170: 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);}} else{ t3=t2; /* support.scm:1170: 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);}}} /* k8085 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_8087(C_word t0,C_word t1){ C_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_8087,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[161]); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8099,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_8101,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_8101(t16,t12,t10);} /* k10832 in k10816 in k10813 in k10858 in k10779 in k10891 in k10755 in a10749 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_10834,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_mutate2(((C_word *)((C_word*)t0)[3])+1,t3); t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k12879 in a12876 in final-foreign-type in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_12881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12881,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12885,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1167: g2872 */ t3=t2; f_12885(t3,((C_word*)t0)[3],t1);} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5459 in k5453 in symbolify in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_5461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5461,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5464,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:170: get-output-string */ t3=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#backslashify in k4868 in k4834 in k4831 in k4828 */ 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=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_5466,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5474,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* support.scm:172: ->string */ t4=*((C_word*)lf[60]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5462 in k5459 in k5453 in symbolify in k4868 in k4834 in k4831 in k4828 */ 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,2)))){ C_save_and_reclaim((void *)f_5464,2,av);} /* support.scm:170: string->symbol */ t2=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop1800 in a9725 in a9713 in inline-lambda-bindings in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_9827(C_word t0,C_word t1,C_word 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_9827,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_9852,a[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:690: g1806 */ 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);}}} /* k11949 in k11934 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_11951(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_11951,2,t0,t1);} a=C_alloc(27); t2=C_a_i_list(&a,2,lf[97],C_SCHEME_FALSE); t3=C_a_i_list(&a,4,lf[225],((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[109],((C_word*)t0)[4],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6878 in k6875 in k6872 in k6869 in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6880,2,av);} /* support.scm:497: newline */ t2=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in build-lambda-list in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_5492(C_word t0,C_word t1,C_word 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_5492,4,t0,t1,t2,t3);} a=C_alloc(8); t4=C_i_zerop(t3); t5=(C_truep(t4)?t4:C_i_nullp(t2)); if(C_truep(t5)){ t6=((C_word*)t0)[2]; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=(C_truep(t6)?t6:C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_i_car(t2); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5516,a[2]=t1,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=t2; t10=C_u_i_cdr(t9); t11=C_a_i_minus(&a,2,t3,C_fix(1)); /* support.scm:179: loop */ t13=t8; t14=t10; t15=t11; t1=t13; t2=t14; t3=t15; goto loop;}} /* k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9874,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_9882,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp)); /* support.scm:755: walk */ t5=((C_word*)t3)[1]; f_9882(t5,((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_9882(C_word t0,C_word t1,C_word 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_9882,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[97]); if(C_truep(t13)){ t14=t1; t15=t14;{ C_word av2[2]; av2[0]=t15; av2[1]=C_a_i_record4(&a,4,lf[211],t12,t9,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t14=C_eqp(t12,lf[221]); if(C_truep(t14)){ t15=C_i_car(t9); t16=t15; t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9933,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_9943,a[2]=((C_word*)t0)[2],a[3]=t17,a[4]=t16,tmp=(C_word)a,a+=5,tmp); /* support.scm:722: get */ t19=*((C_word*)lf[148]+1);{ C_word av2[5]; av2[0]=t19; av2[1]=t18; av2[2]=((C_word*)t0)[3]; av2[3]=t16; av2[4]=lf[190]; ((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}} else{ t15=C_eqp(t12,lf[246]); if(C_truep(t15)){ t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9980,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:712: alist-ref */ t19=*((C_word*)lf[287]+1);{ C_word av2[6]; av2[0]=t19; av2[1]=t16; av2[2]=t17; av2[3]=t18; av2[4]=*((C_word*)lf[13]+1); av2[5]=t17; ((C_proc)(void*)(*((C_word*)t19+1)))(6,av2);}} else{ t16=C_eqp(t12,lf[109]); if(C_truep(t16)){ t17=C_i_car(t9); t18=t17; t19=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9996,a[2]=t18,a[3]=t3,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:731: walk */ t22=t19; t23=t20; t24=t3; t1=t22; t2=t23; t3=t24; goto loop;} else{ t17=C_eqp(t12,lf[133]); if(C_truep(t17)){ t18=C_i_caddr(t9); t19=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10048,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:739: decompose-lambda-list */ t20=*((C_word*)lf[124]+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_10257,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:754: tree-copy */ t19=*((C_word*)lf[290]+1);{ C_word av2[3]; av2[0]=t19; av2[1]=t18; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}}}}}}} /* k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_6868,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|7,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],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_7046,a[2]=t4,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_7046(t6,t2,((C_word*)t0)[8]);} /* k8097 in k8085 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8099,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[211],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10858 in k10779 in k10891 in k10755 in a10749 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_10860,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_10815,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); t3=((C_word*)t0)[3]; /* tweaks.scm:57: ##sys#get */ t4=*((C_word*)lf[255]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=lf[312]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k6811 in k6795 in k6792 in a6783 in display-line-number-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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,4)))){ C_save_and_reclaim((void *)f_6813,2,av);} /* support.scm:431: ##sys#print */ t2=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#posq in k4868 in k4834 in k4831 in k4828 */ 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=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,4)))){ C_save_and_reclaim((void *)f_5334,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_5340,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_5340(t7,t1,t3,C_fix(0));} /* map-loop740 in k6795 in k6792 in a6783 in display-line-number-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_6815(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_6815,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_mutate2(((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-loop2464 in a11554 in compute-database-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_11636(C_word t0,C_word t1,C_word 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(20,0,2)))){ C_save_and_reclaim_args((void *)trf_11636,3,t0,t1,t2);} a=C_alloc(20); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* support.scm:967: g2465 */ f_11557(C_a_i(&a,20),((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);}}} /* ##compiler#display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_6849(C_word c,C_word *av){ C_word tmp; C_word 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,4)))){ C_save_and_reclaim((void *)f_6849,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6853,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_6853(t4,C_SCHEME_UNDEFINED);} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7435,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* support.scm:452: append */ t5=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[208]+1); av2[3]=*((C_word*)lf[209]+1); av2[4]=*((C_word*)lf[140]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* ##compiler#copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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 t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_9861,7,av);} a=C_alloc(18); 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[161]); t12=C_i_check_list_2(t4,lf[161]); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9874,a[2]=t6,a[3]=t5,a[4]=t1,a[5]=t2,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_10321,a[2]=t9,a[3]=t15,a[4]=t10,tmp=(C_word)a,a+=5,tmp)); t17=((C_word*)t15)[1]; f_10321(t17,t13,t3,t4);} /* ##compiler#posv in k4868 in k4834 in k4831 in k4828 */ 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=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,4)))){ C_save_and_reclaim((void *)f_5368,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_5374,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_5374(t7,t1,t3,C_fix(0));} /* k6872 in k6869 in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_6874,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6877,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=*((C_word*)lf[16]+1); t4=*((C_word*)lf[16]+1); t5=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6908,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* support.scm:495: ##sys#print */ t7=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=lf[165]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[16]+1); ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6877(2,av2);}}} /* k6869 in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_6871,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6874,a[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_6918,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ t4=C_eqp(((C_word*)((C_word*)t0)[5])[1],lf[169]); t5=t3; f_6918(t5,C_i_not(t4));} else{ t4=t3; f_6918(t4,C_SCHEME_FALSE);}} /* k6875 in k6872 in k6869 in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_6877,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6880,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*)lf[16]+1); t4=*((C_word*)lf[16]+1); t5=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6892,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* support.scm:496: ##sys#print */ t7=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=lf[164]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[16]+1); ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ /* support.scm:497: newline */ t3=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12969 in k12963 in k12951 in k12939 in k12930 in a12921 in estimate-foreign-result-size in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_12971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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(3,c,3)))){ C_save_and_reclaim((void *)f_12971,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12975,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1194: g2991 */ t3=t2; f_12975(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[387]); if(C_truep(t4)){ if(C_truep(t4)){ /* support.scm:1200: words->bytes */ t5=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=C_fix(3); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t5=C_eqp(t3,lf[395]); if(C_truep(t5)){ if(C_truep(t5)){ /* support.scm:1200: words->bytes */ t6=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=C_fix(3); ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t6=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t6=C_eqp(t3,lf[396]); if(C_truep(t6)){ if(C_truep(t6)){ /* support.scm:1200: words->bytes */ t7=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=((C_word*)t0)[3]; av2[2]=C_fix(3); ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t7=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t7=C_eqp(t3,lf[378]); if(C_truep(t7)){ if(C_truep(t7)){ /* support.scm:1200: words->bytes */ t8=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=((C_word*)t0)[3]; av2[2]=C_fix(3); ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t8=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t8=C_eqp(t3,lf[380]); if(C_truep(t8)){ if(C_truep(t8)){ /* support.scm:1200: words->bytes */ t9=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=((C_word*)t0)[3]; av2[2]=C_fix(3); ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t9=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t9=C_eqp(t3,lf[397]); if(C_truep(t9)){ if(C_truep(t9)){ /* support.scm:1200: words->bytes */ t10=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=((C_word*)t0)[3]; av2[2]=C_fix(3); ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t10=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} else{ t10=C_eqp(t3,lf[388]); if(C_truep(t10)){ if(C_truep(t10)){ /* support.scm:1200: words->bytes */ t11=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=((C_word*)t0)[3]; av2[2]=C_fix(3); ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t11=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} else{ t11=C_eqp(t3,lf[389]); if(C_truep(t11)){ if(C_truep(t11)){ /* support.scm:1200: words->bytes */ t12=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=((C_word*)t0)[3]; av2[2]=C_fix(3); ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t12=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} else{ t12=C_eqp(t3,lf[392]); if(C_truep(t12)){ /* support.scm:1200: words->bytes */ t13=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=((C_word*)t0)[3]; av2[2]=C_fix(3); ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} else{ t13=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}}}}}}}}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* ##compiler#load-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10895(C_word c,C_word *av){ C_word tmp; C_word 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_10895,3,av);} a=C_alloc(2); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10901,tmp=(C_word)a,a+=2,tmp); /* support.scm:823: with-input-from-file */ t4=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10891 in k10755 in a10749 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_10893,2,av);} a=C_alloc(9); if(C_truep(C_i_structurep(t1,lf[211]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_assq(lf[172],((C_word*)t0)[3]); t3=C_i_not(t2); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10781,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(t3)){ t5=t4; f_10781(t5,t3);} else{ t5=C_i_cdr(t2); t6=C_eqp(lf[169],t5); t7=t4; f_10781(t7,C_i_not(t6));}}} /* k16209 in for-each-loop3976 in k16194 in k16166 in k16160 in k16154 in load-identifier-database in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16211,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_16201(t3,((C_word*)t0)[4],t2);} /* k12243 in k12200 in k12155 in k12111 in k12084 in k12057 in k12031 in k11989 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_12245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_12245,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12249,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1107: g2795 */ t3=t2; f_12249(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[387]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12282,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_12282(t6,t4);} else{ t6=C_eqp(t3,lf[396]); if(C_truep(t6)){ t7=t5; f_12282(t7,t6);} else{ t7=C_eqp(t3,lf[397]); t8=t5; f_12282(t8,(C_truep(t7)?t7:C_eqp(t3,lf[378])));}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* g2795 in k12243 in k12200 in k12155 in k12111 in k12084 in k12057 in k12031 in k11989 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_12249(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_12249,3,t0,t1,t2);} if(C_truep(C_i_vectorp(t2))){ t3=C_i_vector_ref(t2,C_fix(0)); /* support.scm:1109: 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);}} else{ t3=t2; /* support.scm:1109: 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);}}} /* k8519 in map-loop1350 in k8403 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_8521(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8521,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8496(t6,((C_word*)t0)[5],t5);} /* k11934 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_11936,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_11951,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[353]+1))){ t7=t6; f_11951(t7,t2);} else{ t7=C_a_i_list(&a,2,lf[97],lf[364]); t8=t6; f_11951(t8,C_a_i_list(&a,3,lf[365],t7,t2));}} /* k11685 in k11682 in k11676 in a11670 in print-program-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_11687,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11690,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:992: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[341]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11682 in k11676 in a11670 in print-program-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_11684,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11687,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:992: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9811 in k9731 in k9728 in a9725 in a9713 in inline-lambda-bindings in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_9813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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(34,c,2)))){ C_save_and_reclaim((void *)f_9813,2,av);} a=C_alloc(34); t2=C_a_i_list1(&a,1,t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9783,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:700: qnode */ t5=*((C_word*)lf[222]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_times(&a,2,C_fix(3),t5); t7=C_a_i_list2(&a,2,lf[285],t6); t8=((C_word*)t0)[4]; t9=C_a_i_record4(&a,4,lf[211],lf[251],t7,t8); t10=C_a_i_list2(&a,2,t9,((C_word*)t0)[2]); t11=((C_word*)t0)[3]; f_9759(t11,C_a_i_record4(&a,4,lf[211],lf[109],t3,t10));}} /* k8587 in map-loop1396 in k8602 in k8598 in a8538 in k8403 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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(3,c,2)))){ C_save_and_reclaim((void *)f_8589,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8564(t6,((C_word*)t0)[5],t5);} /* g2991 in k12969 in k12963 in k12951 in k12939 in k12930 in a12921 in estimate-foreign-result-size in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_12975(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_12975,3,t0,t1,t2);} if(C_truep(C_i_vectorp(t2))){ t3=C_i_vector_ref(t2,C_fix(0)); /* support.scm:1196: 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);}} else{ t3=t2; /* support.scm:1196: 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);}}} /* k11676 in a11670 in print-program-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_11678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_11678,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=*((C_word*)lf[16]+1); t3=*((C_word*)lf[16]+1); t4=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11684,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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); /* support.scm:992: ##sys#print */ t6=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[342]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[16]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a11670 in print-program-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_11671,9,av);} a=C_alloc(10); t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11678,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); /* support.scm:991: debugging */ t10=*((C_word*)lf[14]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=lf[343]; av2[3]=lf[344]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} /* k6798 in k6795 in k6792 in a6783 in display-line-number-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6800,2,av);} /* support.scm:431: ##sys#write-char-0 */ t2=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a11664 in print-program-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11665,2,av);} /* support.scm:990: compute-database-statistics */ t2=*((C_word*)lf[332]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#print-program-statistics in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){ C_save_and_reclaim((void *)f_11659,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11665,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11671,tmp=(C_word)a,a+=2,tmp); /* support.scm:988: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* k7765 in k7739 in k7736 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7767,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7775,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:552: walk */ t4=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; f_7545(3,av2);}} /* map-loop1396 in k8602 in k8598 in a8538 in k8403 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_8564(C_word t0,C_word t1,C_word 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_8564,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_8589,a[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:616: g1402 */ 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);}}} /* k8560 in k8602 in k8598 in a8538 in k8403 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8562,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[211],lf[253],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8366 in k8382 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_8368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8368,2,av);} /* support.scm:597: walk */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; f_7545(3,av2);}} /* loop in posq in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_5340(C_word t0,C_word t1,C_word 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(4,0,3)))){ C_save_and_reclaim_args((void *)trf_5340,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_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=C_eqp(((C_word*)t0)[2],t4); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=t2; t7=C_u_i_cdr(t6); t8=C_a_i_plus(&a,2,t3,C_fix(1)); /* support.scm:154: loop */ t10=t1; t11=t7; t12=t8; t1=t10; t2=t11; t3=t12; goto loop;}}} /* k16277 in print-usage in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16279,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16282,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1671: newline */ t3=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##compiler#print-usage in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16275,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16279,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* support.scm:1670: print-version */ t3=*((C_word*)lf[558]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a12921 in estimate-foreign-result-size in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_12922(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(6,c,2)))){ C_save_and_reclaim((void *)f_12922,4,av);} a=C_alloc(6); t4=t2; t5=C_eqp(t4,lf[351]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12932,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_12932(t7,t5);} else{ t7=C_eqp(t4,lf[355]); if(C_truep(t7)){ t8=t6; f_12932(t8,t7);} else{ t8=C_eqp(t4,lf[428]); if(C_truep(t8)){ t9=t6; f_12932(t9,t8);} else{ t9=C_eqp(t4,lf[440]); if(C_truep(t9)){ t10=t6; f_12932(t10,t9);} else{ t10=C_eqp(t4,lf[441]); if(C_truep(t10)){ t11=t6; f_12932(t11,t10);} else{ t11=C_eqp(t4,lf[429]); if(C_truep(t11)){ t12=t6; f_12932(t12,t11);} else{ t12=C_eqp(t4,lf[442]); if(C_truep(t12)){ t13=t6; f_12932(t13,t12);} else{ t13=C_eqp(t4,lf[352]); if(C_truep(t13)){ t14=t6; f_12932(t14,t13);} else{ t14=C_eqp(t4,lf[427]); if(C_truep(t14)){ t15=t6; f_12932(t15,t14);} else{ t15=C_eqp(t4,lf[430]); if(C_truep(t15)){ t16=t6; f_12932(t16,t15);} else{ t16=C_eqp(t4,lf[431]); if(C_truep(t16)){ t17=t6; f_12932(t17,t16);} else{ t17=C_eqp(t4,lf[432]); t18=t6; f_12932(t18,(C_truep(t17)?t17:C_eqp(t4,lf[433])));}}}}}}}}}}}} /* k16262 in k16255 in print-version in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_16264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16264,2,av);} /* support.scm:1667: print */ t2=*((C_word*)lf[296]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8322 in map-loop1270 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8324,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8299(t6,((C_word*)t0)[5],t5);} /* ##compiler#estimate-foreign-result-size in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_12916(C_word c,C_word *av){ C_word tmp; C_word 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_12916,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12922,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13342,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* support.scm:1178: follow-without-loop */ t5=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a16292 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_16293,4,av);} a=C_alloc(5); t4=t3; t5=C_i_check_port_2(t4,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[24]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16300,a[2]=t1,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* support.scm:512: ##sys#print */ t7=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=lf[565]; av2[3]=C_SCHEME_FALSE; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k10816 in k10813 in k10858 in k10779 in k10891 in k10755 in a10749 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_10818(C_word 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_10818,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10834,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]); /* support.scm:804: node->sexpr */ t6=*((C_word*)lf[293]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(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);}}} /* k10813 in k10858 in k10779 in k10891 in k10755 in a10749 in emit-global-inline-file in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_10815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10815,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10818,a[2]=((C_word*)t0)[2],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[309]); if(C_truep(t3)){ t4=t2; f_10818(t4,C_SCHEME_TRUE);} else{ t4=C_eqp(t1,lf[310]); if(C_truep(t4)){ t5=t2; f_10818(t5,C_SCHEME_FALSE);} else{ t5=C_i_cadddr(((C_word*)t0)[7]); t6=t2; f_10818(t6,C_i_lessp(t5,*((C_word*)lf[311]+1)));}}} /* for-each-loop3976 in k16194 in k16166 in k16160 in k16154 in load-identifier-database in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_16201(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_16201,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_16211,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_16180,a[2]=t5,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16184,a[2]=t6,a[3]=t9,tmp=(C_word)a,a+=4,tmp); /* support.scm:1659: ##sys#get */ t11=*((C_word*)lf[255]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=t10; av2[2]=t8; av2[3]=lf[551]; ((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);}}} /* k8382 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_8384,2,av);} a=C_alloc(20); t2=C_i_cadr(t1); t3=C_a_i_list4(&a,4,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8364,a[2]=((C_word*)t0)[5],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8368,a[2]=((C_word*)t0)[6],a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* support.scm:597: sixth */ t7=*((C_word*)lf[249]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#dump-undefined-globals in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_11398,3,av);} a=C_alloc(2); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11404,tmp=(C_word)a,a+=2,tmp); /* support.scm:909: ##sys#hash-table-for-each */ t4=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10524 in walk in node->sexpr in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_10526,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; /* Re-use our own argvector */ 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-loop2124 in walk in node->sexpr in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_10528(C_word t0,C_word t1,C_word 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_10528,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_10553,a[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:778: g2130 */ 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 k8382 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_8364,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[211],lf[248],((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* g1127 in k7739 in k7736 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_7750(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_7750,3,t0,t1,t2);} t3=C_i_cadr(t2); /* support.scm:551: walk */ t4=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; f_7545(3,av2);}} /* k12200 in k12155 in k12111 in k12084 in k12057 in k12031 in k11989 in k11866 in k11851 in repeat in a11821 in foreign-type-check in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_12202(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,3)))){ C_save_and_reclaim_args((void *)trf_12202,2,t0,t1);} a=C_alloc(18); if(C_truep(t1)){ if(C_truep(*((C_word*)lf[353]+1))){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[382],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_a_i_list(&a,2,lf[383],((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[382],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t2=C_eqp(((C_word*)t0)[4],lf[385]); if(C_truep(t2)){ if(C_truep(*((C_word*)lf[353]+1))){ t3=C_a_i_list(&a,2,lf[386],((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[382],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_a_i_list(&a,2,lf[386],((C_word*)t0)[3]); t4=C_a_i_list(&a,2,lf[383],t3); t5=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t5; av2[1]=C_a_i_list(&a,2,lf[382],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12245,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:1107: ##sys#hash-table-ref */ t4=*((C_word*)lf[149]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[398]+1); av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_12245(2,av2);}}}}} /* a12909 in final-foreign-type in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_12910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12910,2,av);} /* support.scm:1172: quit */ t2=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=lf[438]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7743 in k7739 in k7736 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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(5,c,1)))){ C_save_and_reclaim((void *)f_7745,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[211],lf[109],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7739 in k7736 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word 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_7741,2,av);} a=C_alloc(25); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7745,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_7750,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[161]); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7767,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_7777,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_7777(t15,t11,t9);} /* a8538 in k8403 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_8539,4,av);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8600,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_8628,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=t2; /* tweaks.scm:57: ##sys#get */ t7=*((C_word*)lf[255]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=lf[256]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k13899 in k13783 in finish-foreign-result in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_13901(C_word t0,C_word t1){ C_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_13901,2,t0,t1);} a=C_alloc(18); if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); /* support.scm:1254: finish-foreign-result */ t3=*((C_word*)lf[447]+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[388]); t6=(C_truep(t5)?t5:C_eqp(t4,lf[389])); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13929,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:1258: gensym */ t8=*((C_word*)lf[110]+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[392]); if(C_truep(t7)){ t8=C_i_caddr(((C_word*)t0)[2]); t9=C_a_i_list(&a,2,lf[97],lf[390]); t10=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t10; av2[1]=C_a_i_list(&a,4,lf[457],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);}}}} /* k7736 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 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_7738,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7741,a[2]=((C_word*)t0)[2],a[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|4,a[1]=(C_word)f_7811,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_7811(t6,t2,t1);} /* a8532 in k8403 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8533,2,av);} /* support.scm:604: get-line-2 */ t2=*((C_word*)lf[159]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop1933 in a10047 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_10213(C_word t0,C_word t1,C_word 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_10213,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_10238,a[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:742: g1939 */ t5=((C_word*)t0)[4]; f_10053(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);}}} /* dump in debugging in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_4960(C_word t0,C_word 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_4960,3,t0,t1,t2);} a=C_alloc(5); t3=*((C_word*)lf[8]+1); t4=*((C_word*)lf[8]+1); t5=C_i_check_port_2(*((C_word*)lf[8]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[24]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4967,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* support.scm:62: ##sys#print */ t7=*((C_word*)lf[19]+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[8]+1); ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k4828 */ 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(3,c,2)))){ C_save_and_reclaim((void *)f_4830,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4833,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k4831 in k4828 */ static void C_ccall f_4833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_4833,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4836,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k4834 in k4831 in k4828 */ 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 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_4836,2,av);} a=C_alloc(7); t2=C_mutate2((C_word*)lf[0]+1 /* (set! ##compiler#compiler-cleanup-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4840,tmp=(C_word)a,a+=2,tmp)); t3=C_set_block_item(lf[1] /* ##compiler#debugging-chicken */,0,C_SCHEME_END_OF_LIST); t4=C_set_block_item(lf[2] /* ##compiler#disabled-warnings */,0,C_SCHEME_END_OF_LIST); t5=C_mutate2((C_word*)lf[3]+1 /* (set! ##compiler#bomb ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4845,tmp=(C_word)a,a+=2,tmp)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4870,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:53: open-output-string */ t7=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* map-loop1192 in k8085 in walk in build-node-graph in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8101,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_8126,a[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:581: g1198 */ 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);}}} /* k4930 in for-each-loop50 in k4915 in k4903 in a4900 in text in debugging in k4868 in k4834 in k4831 in k4828 */ 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,4)))){ C_save_and_reclaim((void *)f_4932,2,av);} /* support.scm:70: ##sys#print */ t2=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4965 in dump in debugging in k4868 in k4834 in k4831 in k4828 */ 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(5,c,3)))){ C_save_and_reclaim((void *)f_4967,2,av);} a=C_alloc(5); 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); /* support.scm:62: ##sys#write-char-0 */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in posv in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_5374(C_word t0,C_word t1,C_word 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_5374,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_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); if(C_truep(C_i_eqvp(((C_word*)t0)[2],t4))){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t2; t6=C_u_i_cdr(t5); t7=C_a_i_plus(&a,2,t3,C_fix(1)); /* support.scm:160: loop */ t9=t1; t10=t6; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;}}} /* for-each-loop50 in k4915 in k4903 in a4900 in text in debugging in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_4937(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_4937,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_4947,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[16]+1); t7=*((C_word*)lf[16]+1); t8=C_i_check_port_2(*((C_word*)lf[16]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4925,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4932,a[2]=t9,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* support.scm:70: force */ t11=*((C_word*)lf[20]+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);}}} /* k10255 in walk in k9872 in copy-node-tree-and-rename in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t5; C_word 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_10257,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_10262,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[161]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10272,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_10274,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_10274(t13,t9,((C_word*)t0)[4]);} /* k4945 in for-each-loop50 in k4915 in k4903 in a4900 in text in debugging in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_4947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_4947,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4937(t3,((C_word*)t0)[4],t2);} /* k13927 in k13899 in k13783 in finish-foreign-result in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_13929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_13929,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[455],t1); t5=C_a_i_list(&a,2,lf[456],t4); t6=C_i_caddr(((C_word*)t0)[3]); t7=C_a_i_list(&a,2,lf[97],lf[390]); t8=C_a_i_list(&a,4,lf[457],t6,t7,t1); t9=C_a_i_list(&a,4,lf[458],t1,t5,t8); t10=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_a_i_list(&a,3,lf[109],t3,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* a13341 in estimate-foreign-result-size in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_ccall f_13342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13342,2,av);} /* support.scm:1203: quit */ t2=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=lf[443]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* ##compiler#estimate-foreign-result-location-size in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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=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_13348,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13360,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13775,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* support.scm:1208: follow-without-loop */ t5=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4968 in k4965 in dump in debugging in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4970,2,av);} /* support.scm:62: ##sys#print */ t2=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6890 in k6875 in k6872 in k6869 in k6866 in a6857 in k6851 in display-analysis-database in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6892,2,av);} t2=C_i_length(((C_word*)((C_word*)t0)[2])[1]); /* support.scm:496: ##sys#print */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10595 in walk in sexpr->node in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_10597,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[211],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop2163 in walk in sexpr->node in k7502 in k6122 in k6119 in k4868 in k4834 in k4831 in k4828 */ static void C_fcall f_10599(C_word t0,C_word t1,C_word 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_10599,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_10624,a[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:782: g2169 */ 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);}}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[761] = { {"f_4985:support_2escm",(void*)f_4985}, {"f_4982:support_2escm",(void*)f_4982}, {"f_11991:support_2escm",(void*)f_11991}, {"f_4979:support_2escm",(void*)f_4979}, {"f_11994:support_2escm",(void*)f_11994}, {"f_12059:support_2escm",(void*)f_12059}, {"f_4892:support_2escm",(void*)f_4892}, {"f_4890:support_2escm",(void*)f_4890}, {"f_4895:support_2escm",(void*)f_4895}, {"f_8126:support_2escm",(void*)f_8126}, {"f_4988:support_2escm",(void*)f_4988}, {"f_11696:support_2escm",(void*)f_11696}, {"f_10482:support_2escm",(void*)f_10482}, {"f_11693:support_2escm",(void*)f_11693}, {"f_11690:support_2escm",(void*)f_11690}, {"f_8186:support_2escm",(void*)f_8186}, {"f_8188:support_2escm",(void*)f_8188}, {"f_12175:support_2escm",(void*)f_12175}, {"f_9759:support_2escm",(void*)f_9759}, {"f_9726:support_2escm",(void*)f_9726}, {"f_9720:support_2escm",(void*)f_9720}, {"f_15334:support_2escm",(void*)f_15334}, {"f_10238:support_2escm",(void*)f_10238}, {"f_4840:support_2escm",(void*)f_4840}, {"f_9738:support_2escm",(void*)f_9738}, {"f_4845:support_2escm",(void*)f_4845}, {"f_9733:support_2escm",(void*)f_9733}, {"f_9730:support_2escm",(void*)f_9730}, {"f_15428:support_2escm",(void*)f_15428}, {"f_12157:support_2escm",(void*)f_12157}, {"f_10437:support_2escm",(void*)f_10437}, {"f_15352:support_2escm",(void*)f_15352}, {"f_4859:support_2escm",(void*)f_4859}, {"f_15359:support_2escm",(void*)f_15359}, {"f_15431:support_2escm",(void*)f_15431}, {"f_12953:support_2escm",(void*)f_12953}, {"f_4925:support_2escm",(void*)f_4925}, {"f_4917:support_2escm",(void*)f_4917}, {"f_12965:support_2escm",(void*)f_12965}, {"f_9763:support_2escm",(void*)f_9763}, {"f_4873:support_2escm",(void*)f_4873}, {"f_4870:support_2escm",(void*)f_4870}, {"f_15451:support_2escm",(void*)f_15451}, {"f_15454:support_2escm",(void*)f_15454}, {"f_12932:support_2escm",(void*)f_12932}, {"f_4901:support_2escm",(void*)f_4901}, {"f_11732:support_2escm",(void*)f_11732}, {"f_11738:support_2escm",(void*)f_11738}, {"f_12941:support_2escm",(void*)f_12941}, {"f_10476:support_2escm",(void*)f_10476}, {"f_11726:support_2escm",(void*)f_11726}, {"f_11720:support_2escm",(void*)f_11720}, {"f_11729:support_2escm",(void*)f_11729}, {"f_4905:support_2escm",(void*)f_4905}, {"f_4908:support_2escm",(void*)f_4908}, {"f_15320:support_2escm",(void*)f_15320}, {"f_15324:support_2escm",(void*)f_15324}, {"f_11758:support_2escm",(void*)f_11758}, {"f_11750:support_2escm",(void*)f_11750}, {"f_11753:support_2escm",(void*)f_11753}, {"f_14248:support_2escm",(void*)f_14248}, {"f_11741:support_2escm",(void*)f_11741}, {"f_11744:support_2escm",(void*)f_11744}, {"f_12086:support_2escm",(void*)f_12086}, {"f_14227:support_2escm",(void*)f_14227}, {"f_11779:support_2escm",(void*)f_11779}, {"f_6044:support_2escm",(void*)f_6044}, {"f_6046:support_2escm",(void*)f_6046}, {"f_11773:support_2escm",(void*)f_11773}, {"f_5714:support_2escm",(void*)f_5714}, {"f_9708:support_2escm",(void*)f_9708}, {"f_7777:support_2escm",(void*)f_7777}, {"f_7775:support_2escm",(void*)f_7775}, {"f_11765:support_2escm",(void*)f_11765}, {"f_11762:support_2escm",(void*)f_11762}, {"f_5702:support_2escm",(void*)f_5702}, {"f_12160:support_2escm",(void*)f_12160}, {"f_9714:support_2escm",(void*)f_9714}, {"f_11790:support_2escm",(void*)f_11790}, {"f_5733:support_2escm",(void*)f_5733}, {"f_6559:support_2escm",(void*)f_6559}, {"f_6551:support_2escm",(void*)f_6551}, {"f_6052:support_2escm",(void*)f_6052}, {"f_9012:support_2escm",(void*)f_9012}, {"f_9010:support_2escm",(void*)f_9010}, {"f_12320:support_2escm",(void*)f_12320}, {"f_6547:support_2escm",(void*)f_6547}, {"f_6006:support_2escm",(void*)f_6006}, {"f_6533:support_2escm",(void*)f_6533}, {"f_5759:support_2escm",(void*)f_5759}, {"f_5745:support_2escm",(void*)f_5745}, {"f17649:support_2escm",(void*)f17649}, {"f_6529:support_2escm",(void*)f_6529}, {"f_7149:support_2escm",(void*)f_7149}, {"f_9002:support_2escm",(void*)f_9002}, {"f_9006:support_2escm",(void*)f_9006}, {"f_6516:support_2escm",(void*)f_6516}, {"f_6506:support_2escm",(void*)f_6506}, {"f_9060:support_2escm",(void*)f_9060}, {"f_7155:support_2escm",(void*)f_7155}, {"f_9783:support_2escm",(void*)f_9783}, {"f_7158:support_2escm",(void*)f_7158}, {"f_4991:support_2escm",(void*)f_4991}, {"f_4994:support_2escm",(void*)f_4994}, {"f_11714:support_2escm",(void*)f_11714}, {"f_11717:support_2escm",(void*)f_11717}, {"f_11705:support_2escm",(void*)f_11705}, {"f_11702:support_2escm",(void*)f_11702}, {"f_11708:support_2escm",(void*)f_11708}, {"f_15300:support_2escm",(void*)f_15300}, {"f_16156:support_2escm",(void*)f_16156}, {"f_7161:support_2escm",(void*)f_7161}, {"f_16152:support_2escm",(void*)f_16152}, {"f_9085:support_2escm",(void*)f_9085}, {"f_10165:support_2escm",(void*)f_10165}, {"f_10163:support_2escm",(void*)f_10163}, {"f_16124:support_2escm",(void*)f_16124}, {"f_6092:support_2escm",(void*)f_6092}, {"f_15413:support_2escm",(void*)f_15413}, {"f_16196:support_2escm",(void*)f_16196}, {"f_6076:support_2escm",(void*)f_6076}, {"f_16141:support_2escm",(void*)f_16141}, {"f_10447:support_2escm",(void*)f_10447}, {"f_6565:support_2escm",(void*)f_6565}, {"f_10441:support_2escm",(void*)f_10441}, {"f_10444:support_2escm",(void*)f_10444}, {"f_6569:support_2escm",(void*)f_6569}, {"f_16130:support_2escm",(void*)f_16130}, {"f_15389:support_2escm",(void*)f_15389}, {"f_14619:support_2escm",(void*)f_14619}, {"f_14615:support_2escm",(void*)f_14615}, {"f_14671:support_2escm",(void*)f_14671}, {"f_9529:support_2escm",(void*)f_9529}, {"f_6012:support_2escm",(void*)f_6012}, {"f_14661:support_2escm",(void*)f_14661}, {"f_10757:support_2escm",(void*)f_10757}, {"f_15493:support_2escm",(void*)f_15493}, {"f_10750:support_2escm",(void*)f_10750}, {"f_5761:support_2escm",(void*)f_5761}, {"f_15499:support_2escm",(void*)f_15499}, {"f_14653:support_2escm",(void*)f_14653}, {"f_10723:support_2escm",(void*)f_10723}, {"f_9580:support_2escm",(void*)f_9580}, {"f_6961:support_2escm",(void*)f_6961}, {"f_15067:support_2escm",(void*)f_15067}, {"f_10733:support_2escm",(void*)f_10733}, {"f_5787:support_2escm",(void*)f_5787}, {"f_9553:support_2escm",(void*)f_9553}, {"f_6955:support_2escm",(void*)f_6955}, {"f_9555:support_2escm",(void*)f_9555}, {"f_10700:support_2escm",(void*)f_10700}, {"f_6027:support_2escm",(void*)f_6027}, {"f_10709:support_2escm",(void*)f_10709}, {"f_10704:support_2escm",(void*)f_10704}, {"f_15088:support_2escm",(void*)f_15088}, {"f_5266:support_2escm",(void*)f_5266}, {"f_5269:support_2escm",(void*)f_5269}, {"f_5254:support_2escm",(void*)f_5254}, {"f_6924:support_2escm",(void*)f_6924}, {"f_5258:support_2escm",(void*)f_5258}, {"f_16109:support_2escm",(void*)f_16109}, {"f_15027:support_2escm",(void*)f_15027}, {"f_6918:support_2escm",(void*)f_6918}, {"f_8628:support_2escm",(void*)f_8628}, {"f_15073:support_2escm",(void*)f_15073}, {"f_10748:support_2escm",(void*)f_10748}, {"f_15079:support_2escm",(void*)f_15079}, {"f_8614:support_2escm",(void*)f_8614}, {"f_5231:support_2escm",(void*)f_5231}, {"f_9504:support_2escm",(void*)f_9504}, {"f_9502:support_2escm",(void*)f_9502}, {"f_14053:support_2escm",(void*)f_14053}, {"f_14621:support_2escm",(void*)f_14621}, {"f_16168:support_2escm",(void*)f_16168}, {"f_10718:support_2escm",(void*)f_10718}, {"f_10715:support_2escm",(void*)f_10715}, {"f_12285:support_2escm",(void*)f_12285}, {"f_12282:support_2escm",(void*)f_12282}, {"f_16162:support_2escm",(void*)f_16162}, {"f_8458:support_2escm",(void*)f_8458}, {"f_9543:support_2escm",(void*)f_9543}, {"f_16184:support_2escm",(void*)f_16184}, {"f_8431:support_2escm",(void*)f_8431}, {"f_8433:support_2escm",(void*)f_8433}, {"f_16180:support_2escm",(void*)f_16180}, {"f_14077:support_2escm",(void*)f_14077}, {"f_6908:support_2escm",(void*)f_6908}, {"f_8604:support_2escm",(void*)f_8604}, {"f_8600:support_2escm",(void*)f_8600}, {"f_8496:support_2escm",(void*)f_8496}, {"f_8494:support_2escm",(void*)f_8494}, {"f_8607:support_2escm",(void*)f_8607}, {"f_11222:support_2escm",(void*)f_11222}, {"f_14685:support_2escm",(void*)f_14685}, {"f_11214:support_2escm",(void*)f_11214}, {"f_8213:support_2escm",(void*)f_8213}, {"f_15010:support_2escm",(void*)f_15010}, {"f_8405:support_2escm",(void*)f_8405}, {"f_5290:support_2escm",(void*)f_5290}, {"f_5281:support_2escm",(void*)f_5281}, {"f_10781:support_2escm",(void*)f_10781}, {"f_15036:support_2escm",(void*)f_15036}, {"f_5277:support_2escm",(void*)f_5277}, {"f_15000:support_2escm",(void*)f_15000}, {"f_14971:support_2escm",(void*)f_14971}, {"f_6992:support_2escm",(void*)f_6992}, {"f_6998:support_2escm",(void*)f_6998}, {"f_10393:support_2escm",(void*)f_10393}, {"f_10399:support_2escm",(void*)f_10399}, {"f_11200:support_2escm",(void*)f_11200}, {"f_9658:support_2escm",(void*)f_9658}, {"f_8297:support_2escm",(void*)f_8297}, {"f_8299:support_2escm",(void*)f_8299}, {"f_5222:support_2escm",(void*)f_5222}, {"f_5225:support_2escm",(void*)f_5225}, {"f_10375:support_2escm",(void*)f_10375}, {"f_9664:support_2escm",(void*)f_9664}, {"f_10389:support_2escm",(void*)f_10389}, {"f_15505:support_2escm",(void*)f_15505}, {"f_5202:support_2escm",(void*)f_5202}, {"f_5205:support_2escm",(void*)f_5205}, {"f_15513:support_2escm",(void*)f_15513}, {"f_15515:support_2escm",(void*)f_15515}, {"f_14995:support_2escm",(void*)f_14995}, {"f_11404:support_2escm",(void*)f_11404}, {"f_15521:support_2escm",(void*)f_15521}, {"f_15527:support_2escm",(void*)f_15527}, {"f_14288:support_2escm",(void*)f_14288}, {"f_11437:support_2escm",(void*)f_11437}, {"f_14981:support_2escm",(void*)f_14981}, {"f_11439:support_2escm",(void*)f_11439}, {"f_14266:support_2escm",(void*)f_14266}, {"f_11414:support_2escm",(void*)f_11414}, {"f_11411:support_2escm",(void*)f_11411}, {"f_5609:support_2escm",(void*)f_5609}, {"f_10321:support_2escm",(void*)f_10321}, {"f_6134:support_2escm",(void*)f_6134}, {"f_11445:support_2escm",(void*)f_11445}, {"f_11476:support_2escm",(void*)f_11476}, {"f_11474:support_2escm",(void*)f_11474}, {"f_8755:support_2escm",(void*)f_8755}, {"f_11455:support_2escm",(void*)f_11455}, {"f_11452:support_2escm",(void*)f_11452}, {"f_11148:support_2escm",(void*)f_11148}, {"f_8730:support_2escm",(void*)f_8730}, {"f_11142:support_2escm",(void*)f_11142}, {"f_14913:support_2escm",(void*)f_14913}, {"f_9234:support_2escm",(void*)f_9234}, {"f_7981:support_2escm",(void*)f_7981}, {"f_14901:support_2escm",(void*)f_14901}, {"f_6167:support_2escm",(void*)f_6167}, {"f_6165:support_2escm",(void*)f_6165}, {"f_5629:support_2escm",(void*)f_5629}, {"f_5625:support_2escm",(void*)f_5625}, {"f_9207:support_2escm",(void*)f_9207}, {"f_8728:support_2escm",(void*)f_8728}, {"f_10299:support_2escm",(void*)f_10299}, {"f_6157:support_2escm",(void*)f_6157}, {"f_6154:support_2escm",(void*)f_6154}, {"f_7960:support_2escm",(void*)f_7960}, {"f_10262:support_2escm",(void*)f_10262}, {"f_6140:support_2escm",(void*)f_6140}, {"f_6146:support_2escm",(void*)f_6146}, {"f_15702:support_2escm",(void*)f_15702}, {"f_15704:support_2escm",(void*)f_15704}, {"f_15800:support_2escm",(void*)f_15800}, {"f_8772:support_2escm",(void*)f_8772}, {"f_15803:support_2escm",(void*)f_15803}, {"f_15806:support_2escm",(void*)f_15806}, {"f_15710:support_2escm",(void*)f_15710}, {"f_15714:support_2escm",(void*)f_15714}, {"f_15719:support_2escm",(void*)f_15719}, {"f_15827:support_2escm",(void*)f_15827}, {"f_15824:support_2escm",(void*)f_15824}, {"f_7612:support_2escm",(void*)f_7612}, {"f_8769:support_2escm",(void*)f_8769}, {"f_7614:support_2escm",(void*)f_7614}, {"f_7059:support_2escm",(void*)f_7059}, {"f_5650:support_2escm",(void*)f_5650}, {"f_9259:support_2escm",(void*)f_9259}, {"f_7046:support_2escm",(void*)f_7046}, {"f_9222:support_2escm",(void*)f_9222}, {"f_9690:support_2escm",(void*)f_9690}, {"f_9694:support_2escm",(void*)f_9694}, {"f_10274:support_2escm",(void*)f_10274}, {"f_10272:support_2escm",(void*)f_10272}, {"f_7906:support_2escm",(void*)f_7906}, {"f_15811:support_2escm",(void*)f_15811}, {"f_15539:support_2escm",(void*)f_15539}, {"f_15533:support_2escm",(void*)f_15533}, {"f_9284:support_2escm",(void*)f_9284}, {"f_7937:support_2escm",(void*)f_7937}, {"f_16054:support_2escm",(void*)f_16054}, {"f_15771:support_2escm",(void*)f_15771}, {"f_15772:support_2escm",(void*)f_15772}, {"f_15788:support_2escm",(void*)f_15788}, {"f_15782:support_2escm",(void*)f_15782}, {"f_15889:support_2escm",(void*)f_15889}, {"f_7675:support_2escm",(void*)f_7675}, {"f_14959:support_2escm",(void*)f_14959}, {"f_14957:support_2escm",(void*)f_14957}, {"f_16074:support_2escm",(void*)f_16074}, {"f_15561:support_2escm",(void*)f_15561}, {"f_15563:support_2escm",(void*)f_15563}, {"f_11277:support_2escm",(void*)f_11277}, {"f_7665:support_2escm",(void*)f_7665}, {"f_7668:support_2escm",(void*)f_7668}, {"f_10005:support_2escm",(void*)f_10005}, {"f_6199:support_2escm",(void*)f_6199}, {"f_6193:support_2escm",(void*)f_6193}, {"f_16010:support_2escm",(void*)f_16010}, {"f_15871:support_2escm",(void*)f_15871}, {"f_15874:support_2escm",(void*)f_15874}, {"f_10025:support_2escm",(void*)f_10025}, {"f_16084:support_2escm",(void*)f_16084}, {"f_16088:support_2escm",(void*)f_16088}, {"f_15747:support_2escm",(void*)f_15747}, {"f_15597:support_2escm",(void*)f_15597}, {"f_16082:support_2escm",(void*)f_16082}, {"f_10369:support_2escm",(void*)f_10369}, {"f_7639:support_2escm",(void*)f_7639}, {"f_15844:support_2escm",(void*)f_15844}, {"f_15759:support_2escm",(void*)f_15759}, {"f_11482:support_2escm",(void*)f_11482}, {"f_15756:support_2escm",(void*)f_15756}, {"f_15893:support_2escm",(void*)f_15893}, {"f_15768:support_2escm",(void*)f_15768}, {"f_15765:support_2escm",(void*)f_15765}, {"f_15762:support_2escm",(void*)f_15762}, {"f_15867:support_2escm",(void*)f_15867}, {"f_10053:support_2escm",(void*)f_10053}, {"f_10048:support_2escm",(void*)f_10048}, {"f_8780:support_2escm",(void*)f_8780}, {"f_8786:support_2escm",(void*)f_8786}, {"f_12356:support_2escm",(void*)f_12356}, {"f_11495:support_2escm",(void*)f_11495}, {"f_7545:support_2escm",(void*)f_7545}, {"f_7542:support_2escm",(void*)f_7542}, {"f_10057:support_2escm",(void*)f_10057}, {"f_14882:support_2escm",(void*)f_14882}, {"f_5682:support_2escm",(void*)f_5682}, {"f_5689:support_2escm",(void*)f_5689}, {"f_9469:support_2escm",(void*)f_9469}, {"f_5673:support_2escm",(void*)f_5673}, {"f_5675:support_2escm",(void*)f_5675}, {"f_9431:support_2escm",(void*)f_9431}, {"f_15854:support_2escm",(void*)f_15854}, {"f_6125:support_2escm",(void*)f_6125}, {"f_6124:support_2escm",(void*)f_6124}, {"f_6121:support_2escm",(void*)f_6121}, {"f_7527:support_2escm",(void*)f_7527}, {"f_6129:support_2escm",(void*)f_6129}, {"f_15144:support_2escm",(void*)f_15144}, {"f_15147:support_2escm",(void*)f_15147}, {"f_9442:support_2escm",(void*)f_9442}, {"f_9444:support_2escm",(void*)f_9444}, {"f_15096:support_2escm",(void*)f_15096}, {"f_7512:support_2escm",(void*)f_7512}, {"f_12009:support_2escm",(void*)f_12009}, {"f_6102:support_2escm",(void*)f_6102}, {"f_7504:support_2escm",(void*)f_7504}, {"f_6107:support_2escm",(void*)f_6107}, {"f_7506:support_2escm",(void*)f_7506}, {"f_6171:support_2escm",(void*)f_6171}, {"f_15137:support_2escm",(void*)f_15137}, {"f_14871:support_2escm",(void*)f_14871}, {"f_6231:support_2escm",(void*)f_6231}, {"f_6237:support_2escm",(void*)f_6237}, {"f_11886:support_2escm",(void*)f_11886}, {"f_12033:support_2escm",(void*)f_12033}, {"f_6225:support_2escm",(void*)f_6225}, {"f_6228:support_2escm",(void*)f_6228}, {"f_15151:support_2escm",(void*)f_15151}, {"f_15157:support_2escm",(void*)f_15157}, {"f_6214:support_2escm",(void*)f_6214}, {"f_6332:support_2escm",(void*)f_6332}, {"f_6336:support_2escm",(void*)f_6336}, {"f_15122:support_2escm",(void*)f_15122}, {"f_15126:support_2escm",(void*)f_15126}, {"f_14807:support_2escm",(void*)f_14807}, {"f_6207:support_2escm",(void*)f_6207}, {"f_6208:support_2escm",(void*)f_6208}, {"f_6279:support_2escm",(void*)f_6279}, {"f_6275:support_2escm",(void*)f_6275}, {"f_6385:support_2escm",(void*)f_6385}, {"f_9413:support_2escm",(void*)f_9413}, {"f_11822:support_2escm",(void*)f_11822}, {"f_11828:support_2escm",(void*)f_11828}, {"f_14152:support_2escm",(void*)f_14152}, {"f_9424:support_2escm",(void*)f_9424}, {"f_7076:support_2escm",(void*)f_7076}, {"f_11816:support_2escm",(void*)f_11816}, {"f_7070:support_2escm",(void*)f_7070}, {"f_16034:support_2escm",(void*)f_16034}, {"f_11174:support_2escm",(void*)f_11174}, {"f_11800:support_2escm",(void*)f_11800}, {"f_11168:support_2escm",(void*)f_11168}, {"f_14826:support_2escm",(void*)f_14826}, {"f_13775:support_2escm",(void*)f_13775}, {"f_13370:support_2escm",(void*)f_13370}, {"f_13382:support_2escm",(void*)f_13382}, {"f_13388:support_2escm",(void*)f_13388}, {"f_15118:support_2escm",(void*)f_15118}, {"f_15111:support_2escm",(void*)f_15111}, {"f_15114:support_2escm",(void*)f_15114}, {"f_16005:support_2escm",(void*)f_16005}, {"f_13360:support_2escm",(void*)f_13360}, {"f_11027:support_2escm",(void*)f_11027}, {"f_11010:support_2escm",(void*)f_11010}, {"f_13392:support_2escm",(void*)f_13392}, {"f_14836:support_2escm",(void*)f_14836}, {"f_14832:support_2escm",(void*)f_14832}, {"f_14862:support_2escm",(void*)f_14862}, {"f_11049:support_2escm",(void*)f_11049}, {"f_15190:support_2escm",(void*)f_15190}, {"f_15192:support_2escm",(void*)f_15192}, {"f_15163:support_2escm",(void*)f_15163}, {"f_6356:support_2escm",(void*)f_6356}, {"f_15105:support_2escm",(void*)f_15105}, {"f_15108:support_2escm",(void*)f_15108}, {"f_15102:support_2escm",(void*)f_15102}, {"f_10672:support_2escm",(void*)f_10672}, {"f_11868:support_2escm",(void*)f_11868}, {"f_11853:support_2escm",(void*)f_11853}, {"f_9933:support_2escm",(void*)f_9933}, {"f_9943:support_2escm",(void*)f_9943}, {"f_9341:support_2escm",(void*)f_9341}, {"f_9940:support_2escm",(void*)f_9940}, {"f_6778:support_2escm",(void*)f_6778}, {"f_5113:support_2escm",(void*)f_5113}, {"f_9314:support_2escm",(void*)f_9314}, {"f_5116:support_2escm",(void*)f_5116}, {"f_9316:support_2escm",(void*)f_9316}, {"f_9996:support_2escm",(void*)f_9996}, {"f_9999:support_2escm",(void*)f_9999}, {"f_5100:support_2escm",(void*)f_5100}, {"f_6611:support_2escm",(void*)f_6611}, {"f_5109:support_2escm",(void*)f_5109}, {"f_5107:support_2escm",(void*)f_5107}, {"f_6615:support_2escm",(void*)f_6615}, {"f_5133:support_2escm",(void*)f_5133}, {"f_5132:support_2escm",(void*)f_5132}, {"f_13781:support_2escm",(void*)f_13781}, {"f_9372:support_2escm",(void*)f_9372}, {"f_9972:support_2escm",(void*)f_9972}, {"f_5129:support_2escm",(void*)f_5129}, {"f_5123:support_2escm",(void*)f_5123}, {"f_5125:support_2escm",(void*)f_5125}, {"f_9980:support_2escm",(void*)f_9980}, {"f_9386:support_2escm",(void*)f_9386}, {"toplevel:support_2escm",(void*)C_support_toplevel}, {"f_13785:support_2escm",(void*)f_13785}, {"f_5059:support_2escm",(void*)f_5059}, {"f_5044:support_2escm",(void*)f_5044}, {"f_5049:support_2escm",(void*)f_5049}, {"f_6718:support_2escm",(void*)f_6718}, {"f_5030:support_2escm",(void*)f_5030}, {"f_6747:support_2escm",(void*)f_6747}, {"f_10624:support_2escm",(void*)f_10624}, {"f_6744:support_2escm",(void*)f_6744}, {"f_16300:support_2escm",(void*)f_16300}, {"f_5190:support_2escm",(void*)f_5190}, {"f_6727:support_2escm",(void*)f_6727}, {"f_6722:support_2escm",(void*)f_6722}, {"f_5516:support_2escm",(void*)f_5516}, {"f_5199:support_2escm",(void*)f_5199}, {"f_5187:support_2escm",(void*)f_5187}, {"f_5184:support_2escm",(void*)f_5184}, {"f_5181:support_2escm",(void*)f_5181}, {"f_8820:support_2escm",(void*)f_8820}, {"f_6751:support_2escm",(void*)f_6751}, {"f_11098:support_2escm",(void*)f_11098}, {"f_16309:support_2escm",(void*)f_16309}, {"f_16306:support_2escm",(void*)f_16306}, {"f_16303:support_2escm",(void*)f_16303}, {"f_7872:support_2escm",(void*)f_7872}, {"f_6737:support_2escm",(void*)f_6737}, {"f_12113:support_2escm",(void*)f_12113}, {"f_12116:support_2escm",(void*)f_12116}, {"f_8833:support_2escm",(void*)f_8833}, {"f_8835:support_2escm",(void*)f_8835}, {"f_8860:support_2escm",(void*)f_8860}, {"f_7811:support_2escm",(void*)f_7811}, {"f_5178:support_2escm",(void*)f_5178}, {"f_8890:support_2escm",(void*)f_8890}, {"f_8892:support_2escm",(void*)f_8892}, {"f_5575:support_2escm",(void*)f_5575}, {"f_5579:support_2escm",(void*)f_5579}, {"f_7836:support_2escm",(void*)f_7836}, {"f_5568:support_2escm",(void*)f_5568}, {"f_15631:support_2escm",(void*)f_15631}, {"f_5528:support_2escm",(void*)f_5528}, {"f_15645:support_2escm",(void*)f_15645}, {"f_15926:support_2escm",(void*)f_15926}, {"f_15929:support_2escm",(void*)f_15929}, {"f_11067:support_2escm",(void*)f_11067}, {"f_15971:support_2escm",(void*)f_15971}, {"f_5546:support_2escm",(void*)f_5546}, {"f_7494:support_2escm",(void*)f_7494}, {"f_5544:support_2escm",(void*)f_5544}, {"f_5540:support_2escm",(void*)f_5540}, {"f_7802:support_2escm",(void*)f_7802}, {"f_15941:support_2escm",(void*)f_15941}, {"f_15945:support_2escm",(void*)f_15945}, {"f_7485:support_2escm",(void*)f_7485}, {"f_15916:support_2escm",(void*)f_15916}, {"f_15910:support_2escm",(void*)f_15910}, {"f_10637:support_2escm",(void*)f_10637}, {"f_10633:support_2escm",(void*)f_10633}, {"f_5091:support_2escm",(void*)f_5091}, {"f_9390:support_2escm",(void*)f_9390}, {"f_10646:support_2escm",(void*)f_10646}, {"f_5085:support_2escm",(void*)f_5085}, {"f_10640:support_2escm",(void*)f_10640}, {"f_5082:support_2escm",(void*)f_5082}, {"f_5079:support_2escm",(void*)f_5079}, {"f_5076:support_2escm",(void*)f_5076}, {"f_10654:support_2escm",(void*)f_10654}, {"f_7458:support_2escm",(void*)f_7458}, {"f_15982:support_2escm",(void*)f_15982}, {"f_6784:support_2escm",(void*)f_6784}, {"f_10662:support_2escm",(void*)f_10662}, {"f_7449:support_2escm",(void*)f_7449}, {"f_7443:support_2escm",(void*)f_7443}, {"f_6670:support_2escm",(void*)f_6670}, {"f_15950:support_2escm",(void*)f_15950}, {"f_15954:support_2escm",(void*)f_15954}, {"f_6663:support_2escm",(void*)f_6663}, {"f_6667:support_2escm",(void*)f_6667}, {"f_5151:support_2escm",(void*)f_5151}, {"f_10962:support_2escm",(void*)f_10962}, {"f_5143:support_2escm",(void*)f_5143}, {"f_5146:support_2escm",(void*)f_5146}, {"f_14735:support_2escm",(void*)f_14735}, {"f_6794:support_2escm",(void*)f_6794}, {"f_6797:support_2escm",(void*)f_6797}, {"f_15255:support_2escm",(void*)f_15255}, {"f_15259:support_2escm",(void*)f_15259}, {"f_5027:support_2escm",(void*)f_5027}, {"f_5024:support_2escm",(void*)f_5024}, {"f_10945:support_2escm",(void*)f_10945}, {"f_5161:support_2escm",(void*)f_5161}, {"f_14717:support_2escm",(void*)f_14717}, {"f_15997:support_2escm",(void*)f_15997}, {"f_15994:support_2escm",(void*)f_15994}, {"f_5010:support_2escm",(void*)f_5010}, {"f_5012:support_2escm",(void*)f_5012}, {"f_10142:support_2escm",(void*)f_10142}, {"f_5017:support_2escm",(void*)f_5017}, {"f_5015:support_2escm",(void*)f_5015}, {"f_10954:support_2escm",(void*)f_10954}, {"f_7435:support_2escm",(void*)f_7435}, {"f_7437:support_2escm",(void*)f_7437}, {"f_10951:support_2escm",(void*)f_10951}, {"f_5000:support_2escm",(void*)f_5000}, {"f_10150:support_2escm",(void*)f_10150}, {"f_11557:support_2escm",(void*)f_11557}, {"f_5003:support_2escm",(void*)f_5003}, {"f_11550:support_2escm",(void*)f_11550}, {"f_11555:support_2escm",(void*)f_11555}, {"f_14773:support_2escm",(void*)f_14773}, {"f_14770:support_2escm",(void*)f_14770}, {"f_11546:support_2escm",(void*)f_11546}, {"f_5583:support_2escm",(void*)f_5583}, {"f_15295:support_2escm",(void*)f_15295}, {"f_5589:support_2escm",(void*)f_5589}, {"f_15292:support_2escm",(void*)f_15292}, {"f_10934:support_2escm",(void*)f_10934}, {"f_5476:support_2escm",(void*)f_5476}, {"f_5474:support_2escm",(void*)f_5474}, {"f_10901:support_2escm",(void*)f_10901}, {"f_10907:support_2escm",(void*)f_10907}, {"f_15229:support_2escm",(void*)f_15229}, {"f_12840:support_2escm",(void*)f_12840}, {"f_10911:support_2escm",(void*)f_10911}, {"f_12853:support_2escm",(void*)f_12853}, {"f_15244:support_2escm",(void*)f_15244}, {"f_15248:support_2escm",(void*)f_15248}, {"f_5402:support_2escm",(void*)f_5402}, {"f_6493:support_2escm",(void*)f_6493}, {"f_12877:support_2escm",(void*)f_12877}, {"f_12871:support_2escm",(void*)f_12871}, {"f_11535:support_2escm",(void*)f_11535}, {"f_6483:support_2escm",(void*)f_6483}, {"f_11523:support_2escm",(void*)f_11523}, {"f_11525:support_2escm",(void*)f_11525}, {"f_5914:support_2escm",(void*)f_5914}, {"f_9113:support_2escm",(void*)f_9113}, {"f_8917:support_2escm",(void*)f_8917}, {"f_10123:support_2escm",(void*)f_10123}, {"f_14725:support_2escm",(void*)f_14725}, {"f_10134:support_2escm",(void*)f_10134}, {"f_5852:support_2escm",(void*)f_5852}, {"f_5850:support_2escm",(void*)f_5850}, {"f_5427:support_2escm",(void*)f_5427}, {"f_5421:support_2escm",(void*)f_5421}, {"f_7476:support_2escm",(void*)f_7476}, {"f_6433:support_2escm",(void*)f_6433}, {"f_5846:support_2escm",(void*)f_5846}, {"f_10060:support_2escm",(void*)f_10060}, {"f_5455:support_2escm",(void*)f_5455}, {"f_14049:support_2escm",(void*)f_14049}, {"f_7467:support_2escm",(void*)f_7467}, {"f_5832:support_2escm",(void*)f_5832}, {"f_5838:support_2escm",(void*)f_5838}, {"f_10066:support_2escm",(void*)f_10066}, {"f_10069:support_2escm",(void*)f_10069}, {"f_9137:support_2escm",(void*)f_9137}, {"f_5432:support_2escm",(void*)f_5432}, {"f_6404:support_2escm",(void*)f_6404}, {"f_5898:support_2escm",(void*)f_5898}, {"f_5990:support_2escm",(void*)f_5990}, {"f_10086:support_2escm",(void*)f_10086}, {"f_5886:support_2escm",(void*)f_5886}, {"f_13425:support_2escm",(void*)f_13425}, {"f_5988:support_2escm",(void*)f_5988}, {"f_15206:support_2escm",(void*)f_15206}, {"f_10098:support_2escm",(void*)f_10098}, {"f_10096:support_2escm",(void*)f_10096}, {"f_8993:support_2escm",(void*)f_8993}, {"f_8990:support_2escm",(void*)f_8990}, {"f_9171:support_2escm",(void*)f_9171}, {"f_16244:support_2escm",(void*)f_16244}, {"f_16248:support_2escm",(void*)f_16248}, {"f_9175:support_2escm",(void*)f_9175}, {"f_16241:support_2escm",(void*)f_16241}, {"f_9183:support_2escm",(void*)f_9183}, {"f_5944:support_2escm",(void*)f_5944}, {"f_5948:support_2escm",(void*)f_5948}, {"f_8023:support_2escm",(void*)f_8023}, {"f_16287:support_2escm",(void*)f_16287}, {"f_5822:support_2escm",(void*)f_5822}, {"f_16282:support_2escm",(void*)f_16282}, {"f_15264:support_2escm",(void*)f_15264}, {"f_8003:support_2escm",(void*)f_8003}, {"f_15268:support_2escm",(void*)f_15268}, {"f_16235:support_2escm",(void*)f_16235}, {"f_12809:support_2escm",(void*)f_12809}, {"f_16238:support_2escm",(void*)f_16238}, {"f_12803:support_2escm",(void*)f_12803}, {"f_16232:support_2escm",(void*)f_16232}, {"f_6470:support_2escm",(void*)f_6470}, {"f_15276:support_2escm",(void*)f_15276}, {"f_16226:support_2escm",(void*)f_16226}, {"f_5807:support_2escm",(void*)f_5807}, {"f_5801:support_2escm",(void*)f_5801}, {"f_6460:support_2escm",(void*)f_6460}, {"f_15282:support_2escm",(void*)f_15282}, {"f_8060:support_2escm",(void*)f_8060}, {"f_15289:support_2escm",(void*)f_15289}, {"f_16257:support_2escm",(void*)f_16257}, {"f_12822:support_2escm",(void*)f_12822}, {"f_16250:support_2escm",(void*)f_16250}, {"f_15216:support_2escm",(void*)f_15216}, {"f_8011:support_2escm",(void*)f_8011}, {"f_8015:support_2escm",(void*)f_8015}, {"f_9852:support_2escm",(void*)f_9852}, {"f_10988:support_2escm",(void*)f_10988}, {"f_8044:support_2escm",(void*)f_8044}, {"f_8048:support_2escm",(void*)f_8048}, {"f_10568:support_2escm",(void*)f_10568}, {"f_10562:support_2escm",(void*)f_10562}, {"f_11305:support_2escm",(void*)f_11305}, {"f_5484:support_2escm",(void*)f_5484}, {"f_5486:support_2escm",(void*)f_5486}, {"f_6853:support_2escm",(void*)f_6853}, {"f_10553:support_2escm",(void*)f_10553}, {"f_6858:support_2escm",(void*)f_6858}, {"f_12885:support_2escm",(void*)f_12885}, {"f_8087:support_2escm",(void*)f_8087}, {"f_10834:support_2escm",(void*)f_10834}, {"f_12881:support_2escm",(void*)f_12881}, {"f_5461:support_2escm",(void*)f_5461}, {"f_5466:support_2escm",(void*)f_5466}, {"f_5464:support_2escm",(void*)f_5464}, {"f_9827:support_2escm",(void*)f_9827}, {"f_11951:support_2escm",(void*)f_11951}, {"f_6880:support_2escm",(void*)f_6880}, {"f_5492:support_2escm",(void*)f_5492}, {"f_9874:support_2escm",(void*)f_9874}, {"f_9882:support_2escm",(void*)f_9882}, {"f_6868:support_2escm",(void*)f_6868}, {"f_8099:support_2escm",(void*)f_8099}, {"f_10860:support_2escm",(void*)f_10860}, {"f_6813:support_2escm",(void*)f_6813}, {"f_5334:support_2escm",(void*)f_5334}, {"f_6815:support_2escm",(void*)f_6815}, {"f_11636:support_2escm",(void*)f_11636}, {"f_6849:support_2escm",(void*)f_6849}, {"f_9861:support_2escm",(void*)f_9861}, {"f_5368:support_2escm",(void*)f_5368}, {"f_6874:support_2escm",(void*)f_6874}, {"f_6871:support_2escm",(void*)f_6871}, {"f_6877:support_2escm",(void*)f_6877}, {"f_12971:support_2escm",(void*)f_12971}, {"f_10895:support_2escm",(void*)f_10895}, {"f_10893:support_2escm",(void*)f_10893}, {"f_16211:support_2escm",(void*)f_16211}, {"f_12245:support_2escm",(void*)f_12245}, {"f_12249:support_2escm",(void*)f_12249}, {"f_8521:support_2escm",(void*)f_8521}, {"f_11936:support_2escm",(void*)f_11936}, {"f_11687:support_2escm",(void*)f_11687}, {"f_11684:support_2escm",(void*)f_11684}, {"f_9813:support_2escm",(void*)f_9813}, {"f_8589:support_2escm",(void*)f_8589}, {"f_12975:support_2escm",(void*)f_12975}, {"f_11678:support_2escm",(void*)f_11678}, {"f_11671:support_2escm",(void*)f_11671}, {"f_6800:support_2escm",(void*)f_6800}, {"f_11665:support_2escm",(void*)f_11665}, {"f_11659:support_2escm",(void*)f_11659}, {"f_7767:support_2escm",(void*)f_7767}, {"f_8564:support_2escm",(void*)f_8564}, {"f_8562:support_2escm",(void*)f_8562}, {"f_8368:support_2escm",(void*)f_8368}, {"f_5340:support_2escm",(void*)f_5340}, {"f_16279:support_2escm",(void*)f_16279}, {"f_16275:support_2escm",(void*)f_16275}, {"f_12922:support_2escm",(void*)f_12922}, {"f_16264:support_2escm",(void*)f_16264}, {"f_8324:support_2escm",(void*)f_8324}, {"f_12916:support_2escm",(void*)f_12916}, {"f_16293:support_2escm",(void*)f_16293}, {"f_10818:support_2escm",(void*)f_10818}, {"f_10815:support_2escm",(void*)f_10815}, {"f_16201:support_2escm",(void*)f_16201}, {"f_8384:support_2escm",(void*)f_8384}, {"f_11398:support_2escm",(void*)f_11398}, {"f_10526:support_2escm",(void*)f_10526}, {"f_10528:support_2escm",(void*)f_10528}, {"f_8364:support_2escm",(void*)f_8364}, {"f_7750:support_2escm",(void*)f_7750}, {"f_12202:support_2escm",(void*)f_12202}, {"f_12910:support_2escm",(void*)f_12910}, {"f_7745:support_2escm",(void*)f_7745}, {"f_7741:support_2escm",(void*)f_7741}, {"f_8539:support_2escm",(void*)f_8539}, {"f_13901:support_2escm",(void*)f_13901}, {"f_7738:support_2escm",(void*)f_7738}, {"f_8533:support_2escm",(void*)f_8533}, {"f_10213:support_2escm",(void*)f_10213}, {"f_4960:support_2escm",(void*)f_4960}, {"f_4830:support_2escm",(void*)f_4830}, {"f_4833:support_2escm",(void*)f_4833}, {"f_4836:support_2escm",(void*)f_4836}, {"f_8101:support_2escm",(void*)f_8101}, {"f_4932:support_2escm",(void*)f_4932}, {"f_4967:support_2escm",(void*)f_4967}, {"f_5374:support_2escm",(void*)f_5374}, {"f_4937:support_2escm",(void*)f_4937}, {"f_10257:support_2escm",(void*)f_10257}, {"f_4947:support_2escm",(void*)f_4947}, {"f_13929:support_2escm",(void*)f_13929}, {"f_13342:support_2escm",(void*)f_13342}, {"f_13348:support_2escm",(void*)f_13348}, {"f_4970:support_2escm",(void*)f_4970}, {"f_6892:support_2escm",(void*)f_6892}, {"f_10597:support_2escm",(void*)f_10597}, {"f_10599:support_2escm",(void*)f_10599}, {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| map 30 S| sprintf 4 S| fprintf 5 S| printf 19 S| for-each 15 o|eliminated procedure checks: 438 o|specializations: o| 1 (eqv? (not float) *) o| 1 (zero? number) o| 1 (length list) o| 4 (= fixnum fixnum) o| 1 (assq * (list-of pair)) o| 1 (current-output-port) o| 1 (second (pair * pair)) o| 3 (first pair) o| 5 (cddr (pair * pair)) o| 1 (caddr (pair * (pair * pair))) o| 354 (eqv? * (not float)) o| 1 (##sys#call-with-values (procedure () *) *) o| 1 (cadr (pair * pair)) o| 1 (current-input-port) o| 5 (char=? char char) o| 3 (memq * list) o| 1 (>= fixnum fixnum) o| 3 (< fixnum fixnum) o| 2 (current-error-port) o| 8 (##sys#check-list (or pair list) *) o| 28 (##sys#check-output-port * * *) o| 32 (cdr pair) o| 28 (car pair) (o e)|safe calls: 1528 (o e)|assignments to immediate values: 3 o|safe globals: (##compiler#bomb ##compiler#disabled-warnings ##compiler#debugging-chicken ##compiler#compiler-cleanup-hook constant25 constant22) o|Removed `not' forms: 7 o|removed side-effect free assignment to unused variable: constant22 o|inlining procedure: k4847 o|inlining procedure: k4847 o|inlining procedure: k4875 o|inlining procedure: k4875 o|inlining procedure: k4906 o|inlining procedure: k4939 o|contracted procedure: "(support.scm:69) g5158" o|propagated global variable: out6165 ##sys#standard-output o|substituted constant variable: a4921 o|substituted constant variable: a4922 o|inlining procedure: k4939 o|inlining procedure: k4906 o|propagated global variable: out7781 ##compiler#collected-debugging-output o|substituted constant variable: a4963 o|substituted constant variable: a4964 o|propagated global variable: out7781 ##compiler#collected-debugging-output o|inlining procedure: k4974 o|inlining procedure: k4974 o|propagated global variable: out114118 ##compiler#collected-debugging-output o|substituted constant variable: a5020 o|substituted constant variable: a5021 o|inlining procedure: k5035 o|inlining procedure: k5035 o|inlining procedure: k5051 o|inlining procedure: k5051 o|inlining procedure: k5071 o|inlining procedure: k5071 o|inlining procedure: k5153 o|inlining procedure: k5153 o|substituted constant variable: a5174 o|substituted constant variable: a5175 o|substituted constant variable: a5195 o|substituted constant variable: a5196 o|inlining procedure: k5233 o|inlining procedure: k5233 o|inlining procedure: k5292 o|inlining procedure: k5292 o|inlining procedure: k5313 o|inlining procedure: k5313 o|inlining procedure: k5342 o|inlining procedure: k5342 o|inlining procedure: k5376 o|inlining procedure: k5376 o|inlining procedure: k5404 o|inlining procedure: k5404 o|substituted constant variable: a5423 o|substituted constant variable: a5424 o|inlining procedure: k5434 o|inlining procedure: k5434 o|substituted constant variable: a5457 o|substituted constant variable: a5458 o|inlining procedure: k5494 o|inlining procedure: k5494 o|inlining procedure: k5548 o|inlining procedure: k5548 o|inlining procedure: k5593 o|inlining procedure: k5593 o|substituted constant variable: a5600 o|substituted constant variable: a5602 o|inlining procedure: k5615 o|inlining procedure: k5615 o|substituted constant variable: a5619 o|substituted constant variable: a5621 o|substituted constant variable: a5623 o|inlining procedure: k5630 o|inlining procedure: k5655 o|inlining procedure: k5655 o|substituted constant variable: a5664 o|substituted constant variable: a5668 o|inlining procedure: k5630 o|inlining procedure: k5691 o|propagated global variable: r569216385 ##sys#standard-input o|inlining procedure: k5691 o|inlining procedure: k5706 o|inlining procedure: k5706 o|inlining procedure: k5735 o|inlining procedure: k5735 o|inlining procedure: k5747 o|inlining procedure: k5747 o|inlining procedure: k5767 o|inlining procedure: k5767 o|inlining procedure: k5809 o|inlining procedure: k5809 o|inlining procedure: k5857 o|inlining procedure: k5857 o|inlining procedure: k5869 o|inlining procedure: k5869 o|inlining procedure: k5881 o|inlining procedure: k5881 o|inlining procedure: k5893 o|inlining procedure: k5893 o|inlining procedure: k5902 o|inlining procedure: k5902 o|inlining procedure: k5919 o|inlining procedure: k5919 o|inlining procedure: k5931 o|inlining procedure: k5931 o|inlining procedure: k5949 o|inlining procedure: k5949 o|inlining procedure: k5961 o|inlining procedure: k5961 o|inlining procedure: k5973 o|inlining procedure: k5973 o|inlining procedure: k5995 o|inlining procedure: k5995 o|inlining procedure: k6007 o|inlining procedure: k6007 o|inlining procedure: k6016 o|inlining procedure: k6016 o|inlining procedure: k6054 o|inlining procedure: k6054 o|inlining procedure: k6067 o|inlining procedure: k6067 o|inlining procedure: k6108 o|inlining procedure: k6108 o|inlining procedure: k6152 o|inlining procedure: k6152 o|inlining procedure: k6172 o|inlining procedure: k6172 o|merged explicitly consed rest parameter: args485501 o|consed rest parameter at call site: tmp24371 1 o|inlining procedure: k6239 o|inlining procedure: k6239 o|inlining procedure: k6254 o|inlining procedure: k6254 o|inlining procedure: k6334 o|inlining procedure: k6462 o|contracted procedure: "(support.scm:368) g629636" o|contracted procedure: "(support.scm:370) g639640" o|inlining procedure: k6462 o|propagated global variable: g635637 ##compiler#internal-bindings o|inlining procedure: k6485 o|contracted procedure: "(support.scm:362) g582589" o|inlining procedure: k6405 o|contracted procedure: "(support.scm:366) g606607" o|inlining procedure: k6405 o|contracted procedure: "(support.scm:364) g592593" o|inlining procedure: k6485 o|propagated global variable: g588590 extended-bindings o|inlining procedure: k6508 o|contracted procedure: "(support.scm:356) g535542" o|inlining procedure: k6357 o|contracted procedure: "(support.scm:360) g559560" o|inlining procedure: k6357 o|contracted procedure: "(support.scm:358) g545546" o|inlining procedure: k6508 o|propagated global variable: g541543 standard-bindings o|inlining procedure: k6334 o|inlining procedure: k6534 o|inlining procedure: k6534 o|inlining procedure: k6552 o|inlining procedure: k6552 o|inlining procedure: k6570 o|inlining procedure: k6582 o|inlining procedure: k6582 o|inlining procedure: k6570 o|inlining procedure: k6616 o|inlining procedure: k6616 o|inlining procedure: k6671 o|inlining procedure: k6671 o|inlining procedure: k6723 o|inlining procedure: k6723 o|inlining procedure: k6748 o|inlining procedure: k6748 o|propagated global variable: out733737 ##sys#standard-output o|substituted constant variable: a6790 o|substituted constant variable: a6791 o|inlining procedure: k6786 o|inlining procedure: k6817 o|inlining procedure: k6817 o|propagated global variable: out733737 ##sys#standard-output o|inlining procedure: k6786 o|inlining procedure: k6860 o|inlining procedure: k6860 o|propagated global variable: out942946 ##sys#standard-output o|substituted constant variable: a6888 o|substituted constant variable: a6889 o|propagated global variable: out942946 ##sys#standard-output o|propagated global variable: out935939 ##sys#standard-output o|substituted constant variable: a6904 o|substituted constant variable: a6905 o|propagated global variable: out935939 ##sys#standard-output o|propagated global variable: out894898 ##sys#standard-output o|substituted constant variable: a6920 o|substituted constant variable: a6921 o|contracted procedure: "(support.scm:490) g902903" o|contracted procedure: "(support.scm:490) g899900" o|propagated global variable: out894898 ##sys#standard-output o|propagated global variable: out908912 ##sys#standard-output o|substituted constant variable: a6957 o|substituted constant variable: a6958 o|inlining procedure: k6950 o|contracted procedure: "(support.scm:492) g916917" o|contracted procedure: "(support.scm:492) g913914" o|propagated global variable: out908912 ##sys#standard-output o|inlining procedure: k6950 o|propagated global variable: out922926 ##sys#standard-output o|substituted constant variable: a6994 o|substituted constant variable: a6995 o|contracted procedure: "(support.scm:494) g930931" o|contracted procedure: "(support.scm:494) g927928" o|propagated global variable: out922926 ##sys#standard-output o|inlining procedure: k7048 o|propagated global variable: out847851 ##sys#standard-output o|substituted constant variable: a7072 o|substituted constant variable: a7073 o|substituted constant variable: names769 o|propagated global variable: out847851 ##sys#standard-output o|inlining procedure: k7092 o|inlining procedure: k7092 o|inlining procedure: k7105 o|inlining procedure: k7105 o|inlining procedure: k7115 o|inlining procedure: k7115 o|propagated global variable: out878882 ##sys#standard-output o|substituted constant variable: a7151 o|substituted constant variable: a7152 o|inlining procedure: k7141 o|propagated global variable: out878882 ##sys#standard-output o|inlining procedure: k7141 o|inlining procedure: k7183 o|inlining procedure: k7183 o|substituted constant variable: a7199 o|substituted constant variable: a7201 o|inlining procedure: k7205 o|inlining procedure: k7205 o|inlining procedure: k7217 o|inlining procedure: k7217 o|inlining procedure: k7229 o|inlining procedure: k7229 o|inlining procedure: k7241 o|inlining procedure: k7241 o|substituted constant variable: a7248 o|substituted constant variable: a7250 o|substituted constant variable: a7252 o|substituted constant variable: a7254 o|substituted constant variable: a7256 o|substituted constant variable: a7258 o|substituted constant variable: a7260 o|substituted constant variable: a7262 o|substituted constant variable: a7264 o|substituted constant variable: a7266 o|substituted constant variable: a7268 o|substituted constant variable: a7270 o|substituted constant variable: a7272 o|inlining procedure: k7276 o|inlining procedure: k7276 o|inlining procedure: k7288 o|inlining procedure: k7288 o|inlining procedure: k7300 o|inlining procedure: k7300 o|inlining procedure: k7312 o|inlining procedure: k7312 o|inlining procedure: k7324 o|inlining procedure: k7324 o|inlining procedure: k7336 o|inlining procedure: k7336 o|inlining procedure: k7348 o|inlining procedure: k7348 o|inlining procedure: k7360 o|inlining procedure: k7360 o|inlining procedure: k7372 o|inlining procedure: k7372 o|inlining procedure: k7384 o|inlining procedure: k7384 o|substituted constant variable: a7391 o|substituted constant variable: a7393 o|substituted constant variable: a7395 o|substituted constant variable: a7397 o|substituted constant variable: a7399 o|substituted constant variable: a7401 o|substituted constant variable: a7403 o|substituted constant variable: a7405 o|substituted constant variable: a7407 o|substituted constant variable: a7409 o|substituted constant variable: a7411 o|substituted constant variable: a7413 o|substituted constant variable: a7415 o|substituted constant variable: a7417 o|substituted constant variable: a7419 o|substituted constant variable: a7421 o|substituted constant variable: a7423 o|substituted constant variable: a7425 o|substituted constant variable: a7427 o|substituted constant variable: a7429 o|substituted constant variable: a7431 o|inlining procedure: k7048 o|contracted procedure: "(support.scm:518) g10171018" o|contracted procedure: "(support.scm:519) g10241025" o|inlining procedure: k7547 o|inlining procedure: k7547 o|inlining procedure: k7567 o|inlining procedure: k7567 o|inlining procedure: k7583 o|contracted procedure: "(support.scm:529) g10501051" o|inlining procedure: k7616 o|inlining procedure: k7616 o|inlining procedure: k7583 o|inlining procedure: k7660 o|inlining procedure: k7660 o|inlining procedure: k7679 o|inlining procedure: k7679 o|inlining procedure: k7692 o|contracted procedure: "(support.scm:545) g10871088" o|inlining procedure: k7779 o|inlining procedure: k7779 o|inlining procedure: k7813 o|contracted procedure: "(support.scm:547) g11001109" o|inlining procedure: k7727 o|inlining procedure: k7727 o|inlining procedure: k7813 o|inlining procedure: k7692 o|contracted procedure: "(support.scm:554) g11491150" o|inlining procedure: k7881 o|contracted procedure: "(support.scm:556) g11541155" o|inlining procedure: k7881 o|inlining procedure: k7939 o|contracted procedure: "(support.scm:563) g11671168" o|contracted procedure: "(support.scm:567) g11721173" o|inlining procedure: k7939 o|contracted procedure: "(support.scm:569) g11771178" o|inlining procedure: k8065 o|contracted procedure: "(support.scm:578) g11841185" o|inlining procedure: k8103 o|inlining procedure: k8103 o|inlining procedure: k8135 o|inlining procedure: k8135 o|inlining procedure: k8065 o|contracted procedure: "(support.scm:583) g12191220" o|inlining procedure: k8190 o|inlining procedure: k8190 o|inlining procedure: k8225 o|contracted procedure: "(support.scm:585) g12501251" o|inlining procedure: k8225 o|contracted procedure: "(support.scm:587) g12551256" o|inlining procedure: k8265 o|contracted procedure: "(support.scm:589) g12631264" o|inlining procedure: k8301 o|inlining procedure: k8301 o|inlining procedure: k8265 o|contracted procedure: "(support.scm:594) g12951296" o|inlining procedure: k8397 o|contracted procedure: "(support.scm:600) g13121313" o|inlining procedure: k8435 o|inlining procedure: k8435 o|inlining procedure: k8397 o|contracted procedure: "(support.scm:602) g13431344" o|inlining procedure: k8498 o|inlining procedure: k8498 o|contracted procedure: "(support.scm:605) g13761377" o|inlining procedure: k8566 o|inlining procedure: k8566 o|inlining procedure: k8602 o|inlining procedure: k8612 o|inlining procedure: k8612 o|inlining procedure: k8602 o|contracted procedure: "(support.scm:607) g13851386" o|substituted constant variable: a8634 o|inlining procedure: k8638 o|inlining procedure: k8638 o|inlining procedure: k8650 o|inlining procedure: k8650 o|substituted constant variable: a8657 o|substituted constant variable: a8659 o|substituted constant variable: a8661 o|substituted constant variable: a8663 o|substituted constant variable: a8665 o|substituted constant variable: a8667 o|substituted constant variable: a8672 o|substituted constant variable: a8674 o|substituted constant variable: a8676 o|substituted constant variable: a8678 o|substituted constant variable: a8683 o|substituted constant variable: a8685 o|substituted constant variable: a8687 o|substituted constant variable: a8689 o|substituted constant variable: a8691 o|substituted constant variable: a8696 o|substituted constant variable: a8698 o|substituted constant variable: a8700 o|substituted constant variable: a8702 o|substituted constant variable: a8707 o|substituted constant variable: a8709 o|contracted procedure: "(support.scm:617) g14201421" o|inlining procedure: k8732 o|inlining procedure: k8732 o|contracted procedure: "(support.scm:525) g10381039" o|inlining procedure: k8770 o|inlining procedure: k8770 o|inlining procedure: k8812 o|inlining procedure: k8837 o|inlining procedure: k8837 o|inlining procedure: k8812 o|inlining procedure: k8894 o|inlining procedure: k8894 o|inlining procedure: k8925 o|inlining procedure: k8925 o|inlining procedure: k8943 o|inlining procedure: k8943 o|inlining procedure: k8960 o|inlining procedure: k8960 o|inlining procedure: k8972 o|inlining procedure: k9014 o|inlining procedure: k9014 o|inlining procedure: k9062 o|inlining procedure: k9062 o|inlining procedure: k8972 o|inlining procedure: k9121 o|inlining procedure: k9121 o|inlining procedure: k9155 o|inlining procedure: k9185 o|inlining procedure: k9185 o|inlining procedure: k9155 o|inlining procedure: k9261 o|inlining procedure: k9261 o|inlining procedure: k9292 o|inlining procedure: k9318 o|inlining procedure: k9318 o|inlining procedure: k9292 o|inlining procedure: k9358 o|inlining procedure: k9374 o|inlining procedure: k9374 o|inlining procedure: k9358 o|inlining procedure: k9446 o|inlining procedure: k9446 o|inlining procedure: k9481 o|inlining procedure: k9506 o|inlining procedure: k9506 o|inlining procedure: k9481 o|inlining procedure: k9557 o|inlining procedure: k9557 o|substituted constant variable: a9592 o|substituted constant variable: a9594 o|inlining procedure: k9598 o|inlining procedure: k9598 o|substituted constant variable: a9611 o|substituted constant variable: a9613 o|substituted constant variable: a9615 o|substituted constant variable: a9617 o|substituted constant variable: a9619 o|substituted constant variable: a9621 o|substituted constant variable: a9623 o|substituted constant variable: a9625 o|substituted constant variable: a9627 o|substituted constant variable: a9629 o|substituted constant variable: a9631 o|substituted constant variable: a9633 o|substituted constant variable: a9635 o|substituted constant variable: a9637 o|substituted constant variable: a9639 o|substituted constant variable: a9641 o|inlining procedure: k9645 o|inlining procedure: k9645 o|substituted constant variable: a9652 o|substituted constant variable: a9654 o|substituted constant variable: a9656 o|contracted procedure: "(support.scm:627) g14671468" o|contracted procedure: "(support.scm:626) g14641465" o|contracted procedure: "(support.scm:625) g14611462" o|inlining procedure: k9666 o|inlining procedure: k9666 o|contracted procedure: "(support.scm:680) g17791780" o|contracted procedure: "(support.scm:695) g18281829" o|contracted procedure: "(support.scm:697) g18331834" o|inlining procedure: k9781 o|inlining procedure: k9781 o|contracted procedure: "(support.scm:701) g18381839" o|inlining procedure: k9829 o|inlining procedure: k9829 o|inlining procedure: k9908 o|contracted procedure: "(support.scm:719) g19051906" o|inlining procedure: k9908 o|inlining procedure: "(support.scm:724) rename1881" o|inlining procedure: k9947 o|contracted procedure: "(support.scm:726) g19121913" o|inlining procedure: "(support.scm:727) rename1881" o|inlining procedure: k9947 o|contracted procedure: "(support.scm:735) g19211922" o|inlining procedure: k10034 o|contracted procedure: "(support.scm:748) g19921993" o|inlining procedure: k10100 o|inlining procedure: k10100 o|inlining procedure: k10148 o|inlining procedure: "(support.scm:751) rename1881" o|inlining procedure: k10148 o|inlining procedure: k10167 o|inlining procedure: k10167 o|inlining procedure: k10215 o|inlining procedure: k10215 o|inlining procedure: k10034 o|contracted procedure: "(support.scm:754) g20322033" o|inlining procedure: k10276 o|inlining procedure: k10276 o|substituted constant variable: a10308 o|substituted constant variable: a10310 o|substituted constant variable: a10312 o|substituted constant variable: a10314 o|substituted constant variable: a10316 o|contracted procedure: "(support.scm:716) g18961897" o|contracted procedure: "(support.scm:715) g18931894" o|contracted procedure: "(support.scm:714) g18901891" o|inlining procedure: k10323 o|inlining procedure: k10323 o|inlining procedure: k10377 o|inlining procedure: k10377 o|contracted procedure: "(support.scm:764) g20802081" o|contracted procedure: "(support.scm:766) g20912092" o|contracted procedure: "(support.scm:765) g20882089" o|contracted procedure: "(support.scm:764) g20852086" o|contracted procedure: "(support.scm:771) g21032104" o|contracted procedure: "(support.scm:770) g21002101" o|contracted procedure: "(support.scm:769) g20972098" o|inlining procedure: k10530 o|inlining procedure: k10530 o|contracted procedure: "(support.scm:778) g21412142" o|contracted procedure: "(support.scm:777) g21192120" o|contracted procedure: "(support.scm:776) g21162117" o|contracted procedure: "(support.scm:782) g21562157" o|inlining procedure: k10601 o|inlining procedure: k10601 o|inlining procedure: k10641 o|inlining procedure: k10664 o|contracted procedure: "(support.scm:820) g22472254" o|inlining procedure: k10664 o|inlining procedure: k10641 o|inlining procedure: k10725 o|contracted procedure: "(support.scm:812) g22252232" o|inlining procedure: k10725 o|inlining procedure: k10752 o|contracted procedure: k10767 o|inlining procedure: k10764 o|inlining procedure: k10764 o|inlining procedure: k10782 o|contracted procedure: k10802 o|inlining procedure: k10799 o|inlining procedure: k10799 o|inlining procedure: k10840 o|inlining procedure: k10840 o|substituted constant variable: a10854 o|substituted constant variable: a10856 o|contracted procedure: "(support.scm:798) g22172218" o|contracted procedure: "(support.scm:796) g22082209" o|inlining procedure: k10782 o|contracted procedure: "(support.scm:791) g21962197" o|contracted procedure: "(support.scm:791) g21992200" o|inlining procedure: k10752 o|inlining procedure: k10912 o|inlining procedure: k10912 o|contracted procedure: "(support.scm:828) g22752276" o|inlining procedure: k10959 o|inlining procedure: k10959 o|inlining procedure: k10990 o|inlining procedure: k10990 o|inlining procedure: k11005 o|inlining procedure: k11005 o|inlining procedure: k11029 o|inlining procedure: k11029 o|inlining procedure: k11044 o|inlining procedure: k11069 o|inlining procedure: k11069 o|inlining procedure: k11087 o|inlining procedure: k11087 o|contracted procedure: "(support.scm:858) g23362337" o|inlining procedure: k11044 o|contracted procedure: "(support.scm:857) g23242325" o|contracted procedure: "(support.scm:856) g23202321" o|inlining procedure: k11143 o|contracted procedure: "(support.scm:869) g23442345" o|contracted procedure: "(support.scm:869) g23412342" o|inlining procedure: k11143 o|inlining procedure: k11192 o|inlining procedure: k11192 o|contracted procedure: "(support.scm:881) g23792380" o|inlining procedure: k11232 o|inlining procedure: k11232 o|substituted constant variable: a11248 o|substituted constant variable: a11250 o|substituted constant variable: a11252 o|inlining procedure: k11256 o|inlining procedure: k11256 o|substituted constant variable: a11269 o|substituted constant variable: a11271 o|substituted constant variable: a11273 o|substituted constant variable: a11275 o|contracted procedure: "(support.scm:878) g23662367" o|contracted procedure: "(support.scm:877) g23572358" o|inlining procedure: k11293 o|inlining procedure: k11315 o|inlining procedure: k11338 o|inlining procedure: k11338 o|contracted procedure: "(support.scm:900) g24192420" o|contracted procedure: "(support.scm:899) g24152416" o|contracted procedure: "(support.scm:897) g24102411" o|inlining procedure: k11315 o|contracted procedure: "(support.scm:903) g24222423" o|substituted constant variable: a11390 o|substituted constant variable: a11392 o|contracted procedure: "(support.scm:895) g24062407" o|inlining procedure: k11293 o|contracted procedure: "(support.scm:889) g23902391" o|inlining procedure: k11406 o|inlining procedure: k11406 o|contracted procedure: k11418 o|inlining procedure: k11421 o|inlining procedure: k11421 o|inlining procedure: k11447 o|inlining procedure: k11447 o|contracted procedure: k11459 o|inlining procedure: k11462 o|inlining procedure: k11462 o|inlining procedure: k11484 o|inlining procedure: k11504 o|inlining procedure: k11504 o|inlining procedure: k11484 o|contracted procedure: k11514 o|inlining procedure: k11527 o|inlining procedure: k11527 o|contracted procedure: k11539 o|inlining procedure: k11566 o|inlining procedure: k11566 o|inlining procedure: k11586 o|inlining procedure: k11586 o|contracted procedure: "(support.scm:975) g24812482" o|inlining procedure: k11607 o|inlining procedure: k11607 o|substituted constant variable: a11624 o|substituted constant variable: a11626 o|substituted constant variable: a11628 o|inlining procedure: k11638 o|inlining procedure: k11638 o|propagated global variable: out25012505 ##sys#standard-output o|substituted constant variable: a11680 o|substituted constant variable: a11681 o|propagated global variable: out25112515 ##sys#standard-output o|substituted constant variable: a11698 o|substituted constant variable: a11699 o|propagated global variable: out25192523 ##sys#standard-output o|substituted constant variable: a11710 o|substituted constant variable: a11711 o|propagated global variable: out25272531 ##sys#standard-output o|substituted constant variable: a11722 o|substituted constant variable: a11723 o|propagated global variable: out25352539 ##sys#standard-output o|substituted constant variable: a11734 o|substituted constant variable: a11735 o|propagated global variable: out25432547 ##sys#standard-output o|substituted constant variable: a11746 o|substituted constant variable: a11747 o|inlining procedure: k11673 o|propagated global variable: out25432547 ##sys#standard-output o|propagated global variable: out25352539 ##sys#standard-output o|propagated global variable: out25272531 ##sys#standard-output o|propagated global variable: out25192523 ##sys#standard-output o|propagated global variable: out25112515 ##sys#standard-output o|propagated global variable: out25012505 ##sys#standard-output o|inlining procedure: k11673 o|inlining procedure: k11766 o|inlining procedure: k11766 o|inlining procedure: k11792 o|contracted procedure: "(support.scm:1005) g25632570" o|inlining procedure: k11792 o|inlining procedure: k11830 o|inlining procedure: k11830 o|inlining procedure: k11854 o|inlining procedure: k11854 o|inlining procedure: k11860 o|inlining procedure: k11860 o|inlining procedure: k11913 o|inlining procedure: k11913 o|inlining procedure: k11967 o|inlining procedure: k11967 o|inlining procedure: k12025 o|substituted constant variable: tmap2581 o|substituted constant variable: tmap2581 o|inlining procedure: k12025 o|inlining procedure: k12060 o|inlining procedure: k12060 o|inlining procedure: k12066 o|inlining procedure: k12066 o|inlining procedure: k12087 o|inlining procedure: k12087 o|inlining procedure: k12093 o|inlining procedure: k12093 o|inlining procedure: k12140 o|inlining procedure: k12140 o|inlining procedure: k12194 o|inlining procedure: k12194 o|inlining procedure: k12222 o|inlining procedure: k12222 o|inlining procedure: k12255 o|inlining procedure: k12255 o|inlining procedure: k12246 o|inlining procedure: k12246 o|inlining procedure: k12274 o|inlining procedure: k12274 o|inlining procedure: k12348 o|inlining procedure: k12348 o|inlining procedure: k12389 o|inlining procedure: k12389 o|inlining procedure: k12395 o|inlining procedure: k12395 o|inlining procedure: k12421 o|inlining procedure: k12421 o|substituted constant variable: a12449 o|substituted constant variable: a12451 o|substituted constant variable: a12453 o|substituted constant variable: a12455 o|substituted constant variable: a12457 o|substituted constant variable: a12459 o|substituted constant variable: a12461 o|substituted constant variable: a12466 o|substituted constant variable: a12468 o|inlining procedure: k12472 o|inlining procedure: k12472 o|substituted constant variable: a12485 o|substituted constant variable: a12487 o|substituted constant variable: a12489 o|substituted constant variable: a12491 o|substituted constant variable: a12499 o|inlining procedure: k12503 o|inlining procedure: k12503 o|substituted constant variable: a12510 o|substituted constant variable: a12512 o|substituted constant variable: a12514 o|inlining procedure: k12518 o|inlining procedure: k12518 o|substituted constant variable: a12531 o|substituted constant variable: a12533 o|substituted constant variable: a12535 o|substituted constant variable: a12537 o|substituted constant variable: a12539 o|inlining procedure: k12543 o|inlining procedure: k12543 o|substituted constant variable: a12550 o|substituted constant variable: a12552 o|substituted constant variable: a12554 o|substituted constant variable: a12556 o|inlining procedure: k12560 o|inlining procedure: k12560 o|substituted constant variable: a12567 o|substituted constant variable: a12569 o|substituted constant variable: a12571 o|substituted constant variable: a12573 o|inlining procedure: k12577 o|inlining procedure: k12577 o|substituted constant variable: a12590 o|substituted constant variable: a12592 o|substituted constant variable: a12594 o|substituted constant variable: a12596 o|inlining procedure: k12600 o|inlining procedure: k12600 o|inlining procedure: k12612 o|inlining procedure: k12612 o|inlining procedure: k12624 o|inlining procedure: k12624 o|substituted constant variable: a12637 o|substituted constant variable: a12639 o|substituted constant variable: a12641 o|substituted constant variable: a12643 o|substituted constant variable: a12645 o|substituted constant variable: a12647 o|substituted constant variable: a12649 o|substituted constant variable: a12651 o|inlining procedure: k12655 o|inlining procedure: k12655 o|inlining procedure: k12667 o|inlining procedure: k12667 o|inlining procedure: k12679 o|inlining procedure: k12679 o|substituted constant variable: a12692 o|substituted constant variable: a12694 o|substituted constant variable: a12696 o|substituted constant variable: a12698 o|substituted constant variable: a12700 o|substituted constant variable: a12702 o|substituted constant variable: a12704 o|substituted constant variable: a12706 o|substituted constant variable: a12708 o|substituted constant variable: a12710 o|substituted constant variable: a12715 o|substituted constant variable: a12717 o|substituted constant variable: a12722 o|substituted constant variable: a12724 o|inlining procedure: k12728 o|inlining procedure: k12728 o|substituted constant variable: a12735 o|substituted constant variable: a12737 o|substituted constant variable: a12739 o|inlining procedure: k12743 o|inlining procedure: k12743 o|inlining procedure: k12755 o|inlining procedure: k12755 o|inlining procedure: k12767 o|inlining procedure: k12767 o|substituted constant variable: a12780 o|substituted constant variable: a12782 o|substituted constant variable: a12784 o|substituted constant variable: a12786 o|substituted constant variable: a12788 o|substituted constant variable: a12790 o|substituted constant variable: a12792 o|substituted constant variable: a12794 o|substituted constant variable: a12799 o|substituted constant variable: a12801 o|inlining procedure: k12814 o|inlining procedure: k12814 o|inlining procedure: k12823 o|inlining procedure: k12823 o|inlining procedure: k12845 o|inlining procedure: k12845 o|inlining procedure: k12854 o|inlining procedure: k12854 o|inlining procedure: k12891 o|inlining procedure: k12891 o|inlining procedure: k12882 o|inlining procedure: k12882 o|inlining procedure: k12924 o|inlining procedure: k12924 o|inlining procedure: k12945 o|inlining procedure: k12945 o|inlining procedure: k12981 o|inlining procedure: k12981 o|inlining procedure: k12972 o|inlining procedure: k12972 o|inlining procedure: k13000 o|inlining procedure: k13000 o|inlining procedure: k13015 o|inlining procedure: k13015 o|inlining procedure: k13027 o|inlining procedure: k13027 o|inlining procedure: k13039 o|inlining procedure: k13039 o|inlining procedure: k13051 o|inlining procedure: k13051 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|inlining procedure: k13084 o|inlining procedure: k13084 o|inlining procedure: k13096 o|inlining procedure: k13096 o|substituted constant variable: a13103 o|substituted constant variable: a13105 o|substituted constant variable: a13107 o|substituted constant variable: a13109 o|substituted constant variable: a13111 o|inlining procedure: k13115 o|inlining procedure: k13115 o|inlining procedure: k13127 o|inlining procedure: k13127 o|inlining procedure: k13139 o|inlining procedure: k13139 o|substituted constant variable: a13146 o|substituted constant variable: a13148 o|substituted constant variable: a13150 o|substituted constant variable: a13152 o|substituted constant variable: a13154 o|substituted constant variable: a13156 o|substituted constant variable: a13158 o|inlining procedure: k13162 o|inlining procedure: k13162 o|inlining procedure: k13174 o|inlining procedure: k13174 o|inlining procedure: k13186 o|inlining procedure: k13186 o|inlining procedure: k13198 o|inlining procedure: k13198 o|inlining procedure: k13210 o|inlining procedure: k13210 o|substituted constant variable: a13223 o|substituted constant variable: a13225 o|substituted constant variable: a13227 o|substituted constant variable: a13229 o|substituted constant variable: a13231 o|substituted constant variable: a13233 o|substituted constant variable: a13235 o|substituted constant variable: a13237 o|substituted constant variable: a13239 o|substituted constant variable: a13241 o|substituted constant variable: a13243 o|substituted constant variable: a13245 o|inlining procedure: k13249 o|inlining procedure: k13249 o|inlining procedure: k13261 o|inlining procedure: k13261 o|inlining procedure: k13273 o|inlining procedure: k13273 o|inlining procedure: k13285 o|inlining procedure: k13285 o|inlining procedure: k13297 o|inlining procedure: k13297 o|inlining procedure: k13309 o|inlining procedure: k13309 o|substituted constant variable: a13316 o|substituted constant variable: a13318 o|substituted constant variable: a13320 o|substituted constant variable: a13322 o|substituted constant variable: a13324 o|substituted constant variable: a13326 o|substituted constant variable: a13328 o|substituted constant variable: a13330 o|substituted constant variable: a13332 o|substituted constant variable: a13334 o|substituted constant variable: a13336 o|substituted constant variable: a13338 o|substituted constant variable: a13340 o|inlining procedure: k13362 o|inlining procedure: k13362 o|inlining procedure: k13398 o|inlining procedure: k13398 o|inlining procedure: k13389 o|inlining procedure: k13389 o|inlining procedure: k13417 o|inlining procedure: k13417 o|inlining procedure: "(support.scm:1229) err3026" o|inlining procedure: k13435 o|inlining procedure: k13435 o|inlining procedure: k13447 o|inlining procedure: k13447 o|inlining procedure: k13459 o|inlining procedure: k13459 o|substituted constant variable: a13472 o|substituted constant variable: a13474 o|substituted constant variable: a13476 o|substituted constant variable: a13478 o|substituted constant variable: a13480 o|substituted constant variable: a13482 o|substituted constant variable: a13484 o|substituted constant variable: a13486 o|inlining procedure: "(support.scm:1230) err3026" o|inlining procedure: k13499 o|inlining procedure: k13499 o|substituted constant variable: a13512 o|substituted constant variable: a13514 o|substituted constant variable: a13516 o|substituted constant variable: a13518 o|inlining procedure: k13522 o|inlining procedure: k13522 o|inlining procedure: k13534 o|inlining procedure: k13534 o|inlining procedure: k13546 o|inlining procedure: k13546 o|inlining procedure: k13558 o|inlining procedure: k13558 o|inlining procedure: k13570 o|inlining procedure: k13570 o|inlining procedure: k13582 o|inlining procedure: k13582 o|inlining procedure: k13594 o|inlining procedure: k13594 o|inlining procedure: k13606 o|inlining procedure: k13606 o|inlining procedure: k13618 o|inlining procedure: k13618 o|inlining procedure: k13630 o|inlining procedure: k13630 o|inlining procedure: k13642 o|inlining procedure: k13642 o|inlining procedure: k13654 o|inlining procedure: k13654 o|inlining procedure: k13666 o|inlining procedure: k13666 o|inlining procedure: k13678 o|inlining procedure: k13678 o|inlining procedure: k13690 o|inlining procedure: k13690 o|inlining procedure: k13702 o|inlining procedure: k13702 o|substituted constant variable: a13709 o|substituted constant variable: a13711 o|substituted constant variable: a13713 o|substituted constant variable: a13715 o|substituted constant variable: a13717 o|substituted constant variable: a13719 o|substituted constant variable: a13721 o|substituted constant variable: a13723 o|substituted constant variable: a13725 o|substituted constant variable: a13727 o|substituted constant variable: a13729 o|substituted constant variable: a13731 o|substituted constant variable: a13733 o|substituted constant variable: a13735 o|substituted constant variable: a13737 o|substituted constant variable: a13739 o|substituted constant variable: a13741 o|substituted constant variable: a13743 o|substituted constant variable: a13745 o|substituted constant variable: a13747 o|substituted constant variable: a13749 o|substituted constant variable: a13751 o|substituted constant variable: a13753 o|substituted constant variable: a13755 o|substituted constant variable: a13757 o|substituted constant variable: a13759 o|substituted constant variable: a13761 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|inlining procedure: k13786 o|inlining procedure: k13786 o|inlining procedure: k13815 o|inlining procedure: k13815 o|inlining procedure: k13847 o|inlining procedure: k13847 o|inlining procedure: k13877 o|inlining procedure: k13877 o|inlining procedure: k13896 o|inlining procedure: k13896 o|inlining procedure: k13918 o|inlining procedure: k13918 o|substituted constant variable: a13983 o|substituted constant variable: a13988 o|substituted constant variable: a13990 o|substituted constant variable: a13991 o|inlining procedure: k13999 o|substituted constant variable: a14009 o|inlining procedure: k13999 o|substituted constant variable: a14010 o|substituted constant variable: a14020 o|substituted constant variable: a14022 o|substituted constant variable: a14024 o|substituted constant variable: a14029 o|substituted constant variable: a14031 o|substituted constant variable: a14036 o|substituted constant variable: a14038 o|substituted constant variable: a14040 o|substituted constant variable: a14045 o|substituted constant variable: a14047 o|inlining procedure: k14054 o|inlining procedure: k14054 o|inlining procedure: k14069 o|inlining procedure: k14069 o|inlining procedure: k14087 o|inlining procedure: k14087 o|substituted constant variable: a14094 o|inlining procedure: k14095 o|inlining procedure: k14095 o|inlining procedure: k14110 o|inlining procedure: k14110 o|substituted constant variable: a14117 o|inlining procedure: k14118 o|inlining procedure: k14118 o|inlining procedure: k14130 o|inlining procedure: k14130 o|substituted constant variable: a14137 o|inlining procedure: k14138 o|inlining procedure: k14138 o|inlining procedure: k14153 o|inlining procedure: k14153 o|substituted constant variable: a14170 o|inlining procedure: k14171 o|inlining procedure: k14171 o|inlining procedure: k14183 o|inlining procedure: k14183 o|inlining procedure: k14195 o|inlining procedure: k14195 o|inlining procedure: k14207 o|inlining procedure: k14207 o|inlining procedure: k14219 o|inlining procedure: k14219 o|inlining procedure: k14234 o|inlining procedure: k14234 o|inlining procedure: k14249 o|inlining procedure: k14249 o|inlining procedure: k14267 o|inlining procedure: k14267 o|inlining procedure: k14280 o|inlining procedure: k14280 o|inlining procedure: k14302 o|inlining procedure: k14302 o|inlining procedure: k14314 o|inlining procedure: k14314 o|substituted constant variable: a14321 o|substituted constant variable: a14323 o|substituted constant variable: a14325 o|substituted constant variable: a14327 o|inlining procedure: k14331 o|inlining procedure: k14331 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|inlining procedure: k14356 o|inlining procedure: k14356 o|substituted constant variable: a14363 o|substituted constant variable: a14365 o|substituted constant variable: a14367 o|substituted constant variable: a14372 o|substituted constant variable: a14374 o|inlining procedure: k14378 o|inlining procedure: k14378 o|substituted constant variable: a14391 o|substituted constant variable: a14393 o|substituted constant variable: a14395 o|substituted constant variable: a14397 o|substituted constant variable: a14399 o|substituted constant variable: a14401 o|inlining procedure: k14405 o|inlining procedure: k14405 o|inlining procedure: k14417 o|inlining procedure: k14417 o|inlining procedure: k14429 o|inlining procedure: k14429 o|substituted constant variable: a14442 o|substituted constant variable: a14444 o|substituted constant variable: a14446 o|substituted constant variable: a14448 o|substituted constant variable: a14450 o|substituted constant variable: a14452 o|substituted constant variable: a14454 o|substituted constant variable: a14456 o|substituted constant variable: a14458 o|substituted constant variable: a14460 o|substituted constant variable: a14462 o|substituted constant variable: a14464 o|substituted constant variable: a14466 o|substituted constant variable: a14468 o|substituted constant variable: a14470 o|substituted constant variable: a14472 o|inlining procedure: k14476 o|inlining procedure: k14476 o|inlining procedure: k14488 o|inlining procedure: k14488 o|inlining procedure: k14500 o|inlining procedure: k14500 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: a14540 o|substituted constant variable: a14542 o|substituted constant variable: a14547 o|substituted constant variable: a14549 o|inlining procedure: k14553 o|inlining procedure: k14553 o|inlining procedure: k14565 o|inlining procedure: k14565 o|inlining procedure: k14577 o|inlining procedure: k14577 o|substituted constant variable: a14590 o|substituted constant variable: a14592 o|substituted constant variable: a14594 o|substituted constant variable: a14596 o|substituted constant variable: a14598 o|substituted constant variable: a14600 o|substituted constant variable: a14602 o|substituted constant variable: a14604 o|substituted constant variable: a14609 o|substituted constant variable: a14611 o|substituted constant variable: a14613 o|inlining procedure: k14639 o|inlining procedure: k14663 o|inlining procedure: k14663 o|contracted procedure: "(support.scm:1338) g34123413" o|inlining procedure: k14639 o|inlining procedure: k14727 o|inlining procedure: k14727 o|inlining procedure: k14750 o|inlining procedure: k14750 o|substituted constant variable: a14757 o|substituted constant variable: a14759 o|substituted constant variable: a14761 o|substituted constant variable: a14766 o|substituted constant variable: a14768 o|contracted procedure: "(support.scm:1336) g34053406" o|contracted procedure: "(support.scm:1335) g33963397" o|inlining procedure: k14799 o|inlining procedure: k14799 o|inlining procedure: k14817 o|inlining procedure: k14817 o|inlining procedure: k14837 o|inlining procedure: k14837 o|inlining procedure: k14887 o|inlining procedure: k14887 o|substituted constant variable: a14918 o|substituted constant variable: a14920 o|substituted constant variable: a14922 o|substituted constant variable: a14924 o|inlining procedure: k14928 o|inlining procedure: k14928 o|inlining procedure: k14940 o|inlining procedure: k14940 o|substituted constant variable: a14947 o|substituted constant variable: a14949 o|substituted constant variable: a14951 o|substituted constant variable: a14953 o|substituted constant variable: a14955 o|contracted procedure: "(support.scm:1356) g34813482" o|contracted procedure: "(support.scm:1355) g34723473" o|contracted procedure: "(support.scm:1354) g34693470" o|inlining procedure: k14973 o|inlining procedure: k14973 o|inlining procedure: k15005 o|inlining procedure: k15005 o|substituted constant variable: a15021 o|inlining procedure: k15038 o|inlining procedure: k15038 o|substituted constant variable: a15047 o|substituted constant variable: a15098 o|substituted constant variable: a15099 o|inlining procedure: k15124 o|inlining procedure: k15124 o|inlining procedure: k15152 o|inlining procedure: k15152 o|contracted procedure: k15167 o|inlining procedure: k15164 o|inlining procedure: k15194 o|inlining procedure: k15194 o|inlining procedure: k15217 o|inlining procedure: k15217 o|inlining procedure: k15164 o|inlining procedure: k15269 o|inlining procedure: k15269 o|propagated global variable: out36113615 ##sys#standard-output o|substituted constant variable: a15285 o|substituted constant variable: a15286 o|propagated global variable: out36113615 ##sys#standard-output o|inlining procedure: k15302 o|inlining procedure: k15302 o|inlining procedure: k15336 o|inlining procedure: k15336 o|inlining procedure: k15360 o|inlining procedure: k15360 o|inlining procedure: k15363 o|inlining procedure: k15363 o|inlining procedure: k15420 o|inlining procedure: k15446 o|inlining procedure: k15446 o|substituted constant variable: a15474 o|substituted constant variable: a15487 o|contracted procedure: "(support.scm:1503) g37193720" o|inlining procedure: k15420 o|inlining procedure: k15565 o|contracted procedure: "(support.scm:1495) g36823691" o|inlining procedure: k15565 o|inlining procedure: k15599 o|contracted procedure: "(support.scm:1494) g36513660" o|contracted procedure: "(support.scm:1494) g36633664" o|inlining procedure: k15599 o|inlining procedure: k15646 o|inlining procedure: k15646 o|inlining procedure: k15658 o|inlining procedure: k15658 o|inlining procedure: "(support.scm:1528) fits?3733" o|inlining procedure: k15677 o|inlining procedure: "(support.scm:1530) fits?3733" o|inlining procedure: "(support.scm:1530) getsize3732" o|inlining procedure: k15677 o|inlining procedure: "(support.scm:1533) fits?3733" o|inlining procedure: "(support.scm:1532) getsize3732" o|propagated global variable: out37713775 ##sys#standard-output o|substituted constant variable: a15752 o|substituted constant variable: a15753 o|propagated global variable: out38083812 ##sys#standard-output o|substituted constant variable: a15796 o|substituted constant variable: a15797 o|inlining procedure: k15786 o|inlining procedure: k15813 o|propagated global variable: out38183822 ##sys#standard-output o|substituted constant variable: a15820 o|substituted constant variable: a15821 o|inlining procedure: k15813 o|propagated global variable: out38183822 ##sys#standard-output o|propagated global variable: out38083812 ##sys#standard-output o|inlining procedure: k15786 o|inlining procedure: k15846 o|inlining procedure: k15846 o|propagated global variable: out37713775 ##sys#standard-output o|contracted procedure: "(support.scm:1546) g37683769" o|contracted procedure: "(support.scm:1545) g37653766" o|contracted procedure: "(support.scm:1544) g37623763" o|inlining procedure: k15869 o|inlining procedure: k15894 o|inlining procedure: k15894 o|inlining procedure: k15869 o|inlining procedure: k15918 o|inlining procedure: k15918 o|inlining procedure: k15955 o|inlining procedure: k15955 o|substituted constant variable: a15968 o|substituted constant variable: a15979 o|inlining procedure: k15975 o|substituted constant variable: a16001 o|inlining procedure: k15975 o|inlining procedure: k16012 o|inlining procedure: k16027 o|inlining procedure: k16027 o|inlining procedure: k16012 o|contracted procedure: "(support.scm:1623) g38773878" o|contracted procedure: "(support.scm:1626) g38933894" o|inlining procedure: k16089 o|inlining procedure: k16089 o|substituted constant variable: a16105 o|substituted constant variable: a16107 o|contracted procedure: "(support.scm:1644) g39413942" o|contracted procedure: "(support.scm:1645) g39523953" o|inlining procedure: k16157 o|inlining procedure: k16203 o|contracted procedure: "(support.scm:1654) g39773984" o|inlining procedure: k16203 o|substituted constant variable: a16228 o|substituted constant variable: a16229 o|inlining procedure: k16157 o|substituted constant variable: constant25 o|substituted constant variable: a16296 o|substituted constant variable: a16297 o|contracted procedure: "(support.scm:513) g10031004" o|contracted procedure: "(support.scm:513) g10001001" o|replaced variables: 2937 o|removed binding forms: 629 o|removed side-effect free assignment to unused variable: constant25 o|propagated global variable: out6165 ##sys#standard-output o|propagated global variable: out7781 ##compiler#collected-debugging-output o|substituted constant variable: r497516347 o|inlining procedure: k4989 o|substituted constant variable: r497516348 o|inlining procedure: k4998 o|propagated global variable: out114118 ##compiler#collected-debugging-output o|converted assignments to bindings: (collect99) o|substituted constant variable: r523416359 o|converted assignments to bindings: (err211) o|substituted constant variable: r534316365 o|substituted constant variable: r537716367 o|substituted constant variable: r554916375 o|substituted constant variable: r559416377 o|substituted constant variable: r559416378 o|substituted constant variable: r563116384 o|substituted constant variable: r590316408 o|substituted constant variable: r601716424 o|substituted constant variable: r605516425 o|substituted constant variable: r617316435 o|substituted constant variable: mark646 o|substituted constant variable: mark613 o|substituted constant variable: mark599 o|substituted constant variable: mark566 o|substituted constant variable: mark552 o|substituted constant variable: r653516458 o|substituted constant variable: r655316460 o|substituted constant variable: r672416470 o|propagated global variable: out733737 ##sys#standard-output o|propagated global variable: out942946 ##sys#standard-output o|inlining procedure: k6878 o|propagated global variable: out935939 ##sys#standard-output o|propagated global variable: out894898 ##sys#standard-output o|propagated global variable: out908912 ##sys#standard-output o|propagated global variable: out922926 ##sys#standard-output o|propagated global variable: out847851 ##sys#standard-output o|propagated global variable: out878882 ##sys#standard-output o|substituted constant variable: c1019 o|substituted constant variable: s1021 o|substituted constant variable: c1026 o|substituted constant variable: s1028 o|substituted constant variable: p1053 o|substituted constant variable: r768016534 o|substituted constant variable: c1089 o|substituted constant variable: c1151 o|substituted constant variable: c1156 o|substituted constant variable: c1169 o|substituted constant variable: c1174 o|substituted constant variable: p1175 o|substituted constant variable: s1176 o|substituted constant variable: c1179 o|substituted constant variable: s1254 o|substituted constant variable: c1257 o|substituted constant variable: s1259 o|substituted constant variable: c1265 o|substituted constant variable: c1297 o|substituted constant variable: c1345 o|substituted constant variable: c1378 o|substituted constant variable: mark1388 o|substituted constant variable: c1422 o|substituted constant variable: c1781 o|substituted constant variable: p1782 o|substituted constant variable: c1830 o|substituted constant variable: c1835 o|substituted constant variable: c1840 o|removed side-effect free assignment to unused variable: rename1881 o|substituted constant variable: s1909 o|substituted constant variable: c1914 o|substituted constant variable: c1923 o|substituted constant variable: c1994 o|substituted constant variable: r1014916670 o|substituted constant variable: r1014916670 o|substituted constant variable: r1076516694 o|substituted constant variable: r1080016697 o|substituted constant variable: r1084116699 o|substituted constant variable: mark2220 o|substituted constant variable: r1078316701 o|substituted constant variable: mark2202 o|substituted constant variable: mark2282 o|substituted constant variable: r1100616710 o|substituted constant variable: r1108816716 o|substituted constant variable: r1104516718 o|substituted constant variable: r1114416720 o|substituted constant variable: r1119316721 o|substituted constant variable: r1123316724 o|substituted constant variable: r1133916730 o|substituted constant variable: r1129416732 o|substituted constant variable: r1142216736 o|substituted constant variable: r1146316740 o|substituted constant variable: r1150516744 o|substituted constant variable: r1150516744 o|propagated global variable: out25012505 ##sys#standard-output o|propagated global variable: out25112515 ##sys#standard-output o|propagated global variable: out25192523 ##sys#standard-output o|propagated global variable: out25272531 ##sys#standard-output o|propagated global variable: out25352539 ##sys#standard-output o|propagated global variable: out25432547 ##sys#standard-output o|substituted constant variable: r1282416840 o|substituted constant variable: r1285516844 o|substituted constant variable: r1292516851 o|substituted constant variable: r1300116862 o|removed side-effect free assignment to unused variable: err3026 o|substituted constant variable: r1400016976 o|substituted constant variable: r1405516977 o|substituted constant variable: r1407016979 o|substituted constant variable: r1408816981 o|substituted constant variable: r1408816982 o|substituted constant variable: r1409616983 o|substituted constant variable: r1411116985 o|substituted constant variable: r1411116986 o|substituted constant variable: r1411916987 o|substituted constant variable: r1413116989 o|substituted constant variable: r1413116990 o|substituted constant variable: r1413916991 o|substituted constant variable: r1417216995 o|substituted constant variable: r1418416997 o|substituted constant variable: r1419616999 o|substituted constant variable: r1420817001 o|substituted constant variable: r1422017003 o|substituted constant variable: r1423517005 o|substituted constant variable: r1425017007 o|substituted constant variable: r1426817009 o|substituted constant variable: r1428117011 o|substituted constant variable: r1430317013 o|substituted constant variable: r1480017049 o|converted assignments to bindings: (resolve3581) o|substituted constant variable: r1527017080 o|propagated global variable: out36113615 ##sys#standard-output o|substituted constant variable: r1536417088 o|removed side-effect free assignment to unused variable: getsize3732 o|removed side-effect free assignment to unused variable: fits?3733 o|propagated global variable: out37713775 ##sys#standard-output o|propagated global variable: out38083812 ##sys#standard-output o|propagated global variable: out38183822 ##sys#standard-output o|substituted constant variable: r1589517143 o|substituted constant variable: r1589517143 o|substituted constant variable: r1601317156 o|substituted constant variable: mark3884 o|substituted constant variable: mark3900 o|substituted constant variable: r1609017157 o|substituted constant variable: mark3944 o|substituted constant variable: mark3955 o|substituted constant variable: r1615817162 o|simplifications: ((let . 3)) o|replaced variables: 78 o|removed binding forms: 2861 o|substituted constant variable: r49751634717168 o|substituted constant variable: r49751634817170 o|inlining procedure: k6438 o|inlining procedure: k6413 o|inlining procedure: k6390 o|inlining procedure: k6365 o|inlining procedure: k6342 o|inlining procedure: k7057 o|inlining procedure: k7057 o|inlining procedure: k7057 o|inlining procedure: k7057 o|inlining procedure: k7057 o|inlining procedure: k7057 o|inlining procedure: k7057 o|inlining procedure: k7057 o|inlining procedure: k10920 o|inlining procedure: k11238 o|inlining procedure: k12439 o|inlining procedure: k12811 o|inlining procedure: k12811 o|inlining procedure: k12811 o|inlining procedure: k12842 o|inlining procedure: k12842 o|inlining procedure: k12842 o|inlining procedure: k13006 o|inlining procedure: k13006 o|inlining procedure: k13006 o|inlining procedure: k13006 o|inlining procedure: k13006 o|inlining procedure: k13006 o|inlining procedure: k13006 o|inlining procedure: k13006 o|inlining procedure: k14846 o|inlining procedure: k14846 o|inlining procedure: k15357 o|inlining procedure: k15357 o|inlining procedure: k16038 o|inlining procedure: k16058 o|inlining procedure: k16111 o|inlining procedure: k16255 o|replaced variables: 108 o|removed binding forms: 207 o|substituted constant variable: r643917433 o|substituted constant variable: r641417436 o|substituted constant variable: r639117437 o|substituted constant variable: r636617440 o|substituted constant variable: r634317441 o|inlining procedure: k8138 o|substituted constant variable: r1092117552 o|substituted constant variable: r1281217570 o|substituted constant variable: r1281217570 o|substituted constant variable: r1281217570 o|substituted constant variable: r1281217573 o|substituted constant variable: r1281217573 o|substituted constant variable: r1281217573 o|substituted constant variable: r1281217576 o|substituted constant variable: r1281217576 o|substituted constant variable: r1281217576 o|substituted constant variable: r1284317579 o|substituted constant variable: r1284317579 o|substituted constant variable: r1284317579 o|substituted constant variable: r1284317582 o|substituted constant variable: r1284317582 o|substituted constant variable: r1284317582 o|substituted constant variable: r1284317585 o|substituted constant variable: r1284317585 o|substituted constant variable: r1284317585 o|substituted constant variable: r1535817624 o|substituted constant variable: r1535817624 o|substituted constant variable: r1535817624 o|substituted constant variable: r1535817627 o|substituted constant variable: r1535817627 o|substituted constant variable: r1535817627 o|contracted procedure: k15684 o|contracted procedure: k15687 o|substituted constant variable: r1603917642 o|substituted constant variable: r1605917643 o|substituted constant variable: r1611217644 o|replaced variables: 7 o|removed binding forms: 132 o|removed conditional forms: 8 o|substituted constant variable: r813917697 o|removed binding forms: 25 o|removed conditional forms: 1 o|removed binding forms: 1 o|simplifications: ((if . 70) (##core#call . 1451)) o| call simplifications: o| ##sys#fudge o| char=? o| read-char 3 o| ##sys#size o| fx> 2 o| write-char 6 o| flonum? o| arithmetic-shift 3 o| procedure? o| fx+ 2 o| string-length 4 o| > 2 o| string-ref 2 o| list? 4 o| vector-ref 6 o| < o| * o| - 2 o| first 19 o| positive? o| not-pair? 5 o| ##sys#call-with-values 5 o| cdddr o| second 10 o| third 6 o| fourth 4 o| caddr 4 o| cadr 24 o| integer? o| inexact->exact o| ##sys#check-structure 7 o| ##sys#block-ref 4 o| ##sys#structure? 5 o| ##sys#make-structure 33 o| cdar 6 o| caar 5 o| length 8 o| values 4 o| + 7 o| ##sys#setslot 36 o| assq 17 o| alist-cons 8 o| atom? o| ##sys#apply 2 o| ##sys#cons 7 o| equal? 3 o| ##sys#list 131 o| fixnum? 3 o| number? 4 o| char? 4 o| boolean? 4 o| eof-object? 5 o| vector? 8 o| member o| cddr 3 o| list 50 o| string=? 2 o| not 12 o| ##sys#foreign-fixnum-argument 2 o| char-alphabetic? 2 o| char-numeric? o| char->integer o| fx>= 2 o| fx< 4 o| string->list 3 o| list->string o| zero? 3 o| sub1 4 o| string? 4 o| eqv? o| eq? 382 o| add1 4 o| null? 41 o| cons 91 o| car 52 o| cdr 20 o| ##sys#check-list 40 o| ##sys#slot 187 o| symbol? 19 o| memq 9 o| pair? 69 o| apply 5 o|contracted procedure: k4850 o|contracted procedure: k4878 o|contracted procedure: k4912 o|contracted procedure: k4942 o|contracted procedure: k4952 o|contracted procedure: k4956 o|contracted procedure: k5038 o|propagated global variable: out114118 ##compiler#collected-debugging-output o|contracted procedure: k5054 o|contracted procedure: k5064 o|contracted procedure: k5068 o|contracted procedure: k5138 o|contracted procedure: k5156 o|contracted procedure: k5166 o|contracted procedure: k5170 o|contracted procedure: k5209 o|contracted procedure: k5213 o|contracted procedure: k5217 o|contracted procedure: k5236 o|contracted procedure: k5242 o|contracted procedure: k5262 o|contracted procedure: k5283 o|contracted procedure: k5295 o|contracted procedure: k5301 o|contracted procedure: k5307 o|contracted procedure: k5316 o|contracted procedure: k5326 o|contracted procedure: k5330 o|contracted procedure: k5345 o|contracted procedure: k5364 o|contracted procedure: k5351 o|contracted procedure: k5360 o|contracted procedure: k5379 o|contracted procedure: k5398 o|contracted procedure: k5385 o|contracted procedure: k5394 o|contracted procedure: k5407 o|contracted procedure: k5413 o|contracted procedure: k5437 o|contracted procedure: k5443 o|contracted procedure: k5497 o|contracted procedure: k5500 o|contracted procedure: k5510 o|contracted procedure: k5520 o|contracted procedure: k5534 o|contracted procedure: k5551 o|contracted procedure: k5554 o|contracted procedure: k5557 o|contracted procedure: k5563 o|contracted procedure: k5590 o|contracted procedure: k5596 o|contracted procedure: k5612 o|contracted procedure: k5633 o|contracted procedure: k5640 o|contracted procedure: k5643 o|contracted procedure: k5652 o|contracted procedure: k5658 o|contracted procedure: k5678 o|contracted procedure: k5685 o|contracted procedure: k5694 o|contracted procedure: k5709 o|contracted procedure: k5722 o|contracted procedure: k5729 o|contracted procedure: k5738 o|contracted procedure: k5797 o|contracted procedure: k5750 o|contracted procedure: k5793 o|contracted procedure: k5770 o|inlining procedure: k5767 o|inlining procedure: k5767 o|contracted procedure: k5812 o|contracted procedure: k5828 o|contracted procedure: k5854 o|contracted procedure: k5860 o|contracted procedure: k5866 o|contracted procedure: k5872 o|contracted procedure: k5878 o|contracted procedure: k5890 o|contracted procedure: k5905 o|contracted procedure: k5916 o|contracted procedure: k5922 o|contracted procedure: k5928 o|contracted procedure: k5934 o|contracted procedure: k5952 o|contracted procedure: k5958 o|contracted procedure: k5964 o|contracted procedure: k5970 o|contracted procedure: k5979 o|contracted procedure: k5992 o|contracted procedure: k5998 o|contracted procedure: k6019 o|contracted procedure: k6035 o|contracted procedure: k6057 o|contracted procedure: k6115 o|contracted procedure: k6063 o|contracted procedure: k6071 o|contracted procedure: k6096 o|contracted procedure: k6086 o|contracted procedure: k6175 o|contracted procedure: k6189 o|contracted procedure: k6181 o|contracted procedure: k6242 o|contracted procedure: k6248 o|contracted procedure: k6257 o|contracted procedure: k6267 o|contracted procedure: k6271 o|contracted procedure: k6281 o|contracted procedure: k6285 o|contracted procedure: k6328 o|contracted procedure: k6324 o|contracted procedure: k6296 o|contracted procedure: k6320 o|contracted procedure: k6316 o|contracted procedure: k6300 o|contracted procedure: k6312 o|contracted procedure: k6308 o|contracted procedure: k6304 o|contracted procedure: k6292 o|contracted procedure: k6380 o|contracted procedure: k6428 o|contracted procedure: k6453 o|contracted procedure: k6465 o|contracted procedure: k6475 o|contracted procedure: k6479 o|contracted procedure: k6444 o|contracted procedure: k6438 o|propagated global variable: g635637 ##compiler#internal-bindings o|contracted procedure: k6488 o|contracted procedure: k6498 o|contracted procedure: k6502 o|contracted procedure: k6408 o|contracted procedure: k6419 o|contracted procedure: k6413 o|contracted procedure: k6396 o|contracted procedure: k6390 o|propagated global variable: g588590 extended-bindings o|contracted procedure: k6511 o|contracted procedure: k6521 o|contracted procedure: k6525 o|contracted procedure: k6360 o|contracted procedure: k6371 o|contracted procedure: k6365 o|contracted procedure: k6348 o|contracted procedure: k6342 o|propagated global variable: g541543 standard-bindings o|contracted procedure: k6537 o|contracted procedure: k6573 o|contracted procedure: k6593 o|contracted procedure: k6589 o|contracted procedure: k6607 o|contracted procedure: k6603 o|contracted procedure: k6619 o|contracted procedure: k6633 o|contracted procedure: k6629 o|contracted procedure: k6644 o|contracted procedure: k6648 o|contracted procedure: k6640 o|contracted procedure: k6659 o|contracted procedure: k6655 o|contracted procedure: k6674 o|contracted procedure: k6688 o|contracted procedure: k6684 o|contracted procedure: k6699 o|contracted procedure: k6695 o|contracted procedure: k6710 o|contracted procedure: k6706 o|contracted procedure: k6713 o|contracted procedure: k6733 o|contracted procedure: k6739 o|contracted procedure: k6757 o|contracted procedure: k6761 o|contracted procedure: k6774 o|contracted procedure: k6805 o|contracted procedure: k6808 o|contracted procedure: k6820 o|contracted procedure: k6842 o|contracted procedure: k6838 o|contracted procedure: k6823 o|contracted procedure: k6826 o|contracted procedure: k6834 o|contracted procedure: k6863 o|contracted procedure: k6884 o|contracted procedure: k6897 o|contracted procedure: k6900 o|contracted procedure: k6913 o|contracted procedure: k6938 o|contracted procedure: k6947 o|contracted procedure: k6929 o|contracted procedure: k6975 o|contracted procedure: k6984 o|contracted procedure: k6966 o|contracted procedure: k7012 o|contracted procedure: k7021 o|contracted procedure: k7003 o|contracted procedure: k7028 o|contracted procedure: k7035 o|contracted procedure: k7042 o|contracted procedure: k7051 o|contracted procedure: k7054 o|contracted procedure: k7065 o|contracted procedure: k7089 o|contracted procedure: k7085 o|contracted procedure: k7081 o|contracted procedure: k7095 o|contracted procedure: k7102 o|contracted procedure: k7108 o|contracted procedure: k7112 o|contracted procedure: k7118 o|contracted procedure: k7124 o|contracted procedure: k7128 o|contracted procedure: k7134 o|contracted procedure: k7138 o|contracted procedure: k7144 o|contracted procedure: k7166 o|contracted procedure: k7170 o|contracted procedure: k7176 o|contracted procedure: k7180 o|contracted procedure: k7186 o|contracted procedure: k7190 o|contracted procedure: k7202 o|contracted procedure: k7208 o|contracted procedure: k7214 o|contracted procedure: k7220 o|contracted procedure: k7226 o|contracted procedure: k7232 o|contracted procedure: k7238 o|contracted procedure: k7273 o|contracted procedure: k7279 o|contracted procedure: k7285 o|contracted procedure: k7291 o|contracted procedure: k7297 o|contracted procedure: k7303 o|contracted procedure: k7309 o|contracted procedure: k7315 o|contracted procedure: k7321 o|contracted procedure: k7327 o|contracted procedure: k7333 o|contracted procedure: k7339 o|contracted procedure: k7345 o|contracted procedure: k7351 o|contracted procedure: k7357 o|contracted procedure: k7363 o|contracted procedure: k7369 o|contracted procedure: k7375 o|contracted procedure: k7381 o|contracted procedure: k7451 o|contracted procedure: k7460 o|contracted procedure: k7469 o|contracted procedure: k7478 o|contracted procedure: k7487 o|contracted procedure: k7496 o|contracted procedure: k7523 o|contracted procedure: k7538 o|contracted procedure: k7550 o|contracted procedure: k7564 o|contracted procedure: k7570 o|contracted procedure: k8764 o|contracted procedure: k7579 o|contracted procedure: k7586 o|contracted procedure: k7589 o|contracted procedure: k7603 o|contracted procedure: k7607 o|contracted procedure: k7619 o|contracted procedure: k7622 o|contracted procedure: k7625 o|contracted procedure: k7633 o|contracted procedure: k7641 o|contracted procedure: k7650 o|contracted procedure: k7653 o|contracted procedure: k7660 o|contracted procedure: k7676 o|contracted procedure: k7682 o|contracted procedure: k7689 o|contracted procedure: k7695 o|contracted procedure: k7698 o|contracted procedure: k7701 o|contracted procedure: k7707 o|contracted procedure: k7722 o|contracted procedure: k7747 o|contracted procedure: k7756 o|contracted procedure: k7759 o|contracted procedure: k7762 o|contracted procedure: k7769 o|contracted procedure: k7782 o|contracted procedure: k7785 o|contracted procedure: k7788 o|contracted procedure: k7796 o|contracted procedure: k7804 o|contracted procedure: k7816 o|contracted procedure: k7819 o|contracted procedure: k7822 o|contracted procedure: k7830 o|contracted procedure: k7838 o|contracted procedure: k7730 o|contracted procedure: k7847 o|contracted procedure: k7850 o|contracted procedure: k7878 o|contracted procedure: k7862 o|contracted procedure: k7866 o|contracted procedure: k7874 o|contracted procedure: k7884 o|contracted procedure: k7912 o|contracted procedure: k7916 o|contracted procedure: k7896 o|contracted procedure: k7900 o|contracted procedure: k7908 o|contracted procedure: k7922 o|contracted procedure: k7929 o|contracted procedure: k7933 o|contracted procedure: k7942 o|contracted procedure: k7975 o|contracted procedure: k7954 o|contracted procedure: k7971 o|contracted procedure: k7962 o|contracted procedure: k8054 o|contracted procedure: k7985 o|contracted procedure: k8017 o|contracted procedure: k7997 o|contracted procedure: k8005 o|contracted procedure: k8025 o|contracted procedure: k8050 o|contracted procedure: k8034 o|contracted procedure: k8038 o|contracted procedure: k8068 o|contracted procedure: k8071 o|contracted procedure: k8089 o|contracted procedure: k8094 o|contracted procedure: k8106 o|contracted procedure: k8109 o|contracted procedure: k8112 o|contracted procedure: k8120 o|contracted procedure: k8128 o|contracted procedure: k8144 o|contracted procedure: k8138 o|contracted procedure: k8135 o|contracted procedure: k8155 o|contracted procedure: k8158 o|contracted procedure: k8222 o|contracted procedure: k8172 o|contracted procedure: k8176 o|contracted procedure: k8181 o|contracted procedure: k8193 o|contracted procedure: k8196 o|contracted procedure: k8199 o|contracted procedure: k8207 o|contracted procedure: k8215 o|contracted procedure: k8228 o|contracted procedure: k8246 o|contracted procedure: k8262 o|contracted procedure: k8258 o|contracted procedure: k8268 o|contracted procedure: k8271 o|contracted procedure: k8333 o|contracted procedure: k8283 o|contracted procedure: k8287 o|contracted procedure: k8292 o|contracted procedure: k8304 o|contracted procedure: k8307 o|contracted procedure: k8310 o|contracted procedure: k8318 o|contracted procedure: k8326 o|contracted procedure: k8339 o|contracted procedure: k8394 o|contracted procedure: k8342 o|contracted procedure: k8390 o|contracted procedure: k8370 o|contracted procedure: k8386 o|contracted procedure: k8374 o|contracted procedure: k8378 o|contracted procedure: k8354 o|contracted procedure: k8358 o|contracted procedure: k8400 o|contracted procedure: k8417 o|contracted procedure: k8421 o|contracted procedure: k8426 o|contracted procedure: k8438 o|contracted procedure: k8441 o|contracted procedure: k8444 o|contracted procedure: k8452 o|contracted procedure: k8460 o|contracted procedure: k8469 o|contracted procedure: k8481 o|contracted procedure: k8485 o|contracted procedure: k8489 o|contracted procedure: k8501 o|contracted procedure: k8504 o|contracted procedure: k8507 o|contracted procedure: k8515 o|contracted procedure: k8523 o|contracted procedure: k8550 o|contracted procedure: k8554 o|contracted procedure: k8557 o|contracted procedure: k8569 o|contracted procedure: k8572 o|contracted procedure: k8575 o|contracted procedure: k8583 o|contracted procedure: k8591 o|contracted procedure: k8630 o|contracted procedure: k8635 o|contracted procedure: k8641 o|contracted procedure: k8647 o|contracted procedure: k8719 o|contracted procedure: k8723 o|contracted procedure: k8735 o|contracted procedure: k8738 o|contracted procedure: k8741 o|contracted procedure: k8749 o|contracted procedure: k8757 o|contracted procedure: k8773 o|contracted procedure: k8793 o|contracted procedure: k8801 o|contracted procedure: k8809 o|contracted procedure: k8815 o|contracted procedure: k8825 o|contracted procedure: k8828 o|contracted procedure: k8840 o|contracted procedure: k8843 o|contracted procedure: k8846 o|contracted procedure: k8854 o|contracted procedure: k8862 o|contracted procedure: k8871 o|contracted procedure: k8882 o|contracted procedure: k8885 o|contracted procedure: k8878 o|contracted procedure: k8897 o|contracted procedure: k8900 o|contracted procedure: k8903 o|contracted procedure: k8911 o|contracted procedure: k8919 o|contracted procedure: k8928 o|contracted procedure: k8937 o|contracted procedure: k8940 o|contracted procedure: k8946 o|inlining procedure: k8949 o|contracted procedure: k8957 o|inlining procedure: k8949 o|contracted procedure: k8963 o|inlining procedure: k8949 o|contracted procedure: k8975 o|contracted procedure: k8982 o|contracted procedure: k8985 o|contracted procedure: k8994 o|contracted procedure: k8997 o|contracted procedure: k9053 o|contracted procedure: k9017 o|contracted procedure: k9043 o|contracted procedure: k9047 o|contracted procedure: k9039 o|contracted procedure: k9020 o|contracted procedure: k9023 o|contracted procedure: k9031 o|contracted procedure: k9035 o|contracted procedure: k9065 o|contracted procedure: k9068 o|contracted procedure: k9071 o|contracted procedure: k9079 o|contracted procedure: k9087 o|contracted procedure: k9096 o|contracted procedure: k9118 o|contracted procedure: k9103 o|contracted procedure: k9107 o|contracted procedure: k9115 o|contracted procedure: k9124 o|contracted procedure: k9131 o|contracted procedure: k9139 o|contracted procedure: k9145 o|contracted procedure: k9152 o|contracted procedure: k9158 o|contracted procedure: k9165 o|contracted procedure: k9177 o|contracted procedure: k9188 o|contracted procedure: k9194 o|contracted procedure: k9201 o|contracted procedure: k9209 o|contracted procedure: k9228 o|contracted procedure: k9216 o|contracted procedure: k9236 o|contracted procedure: k9240 o|contracted procedure: k9246 o|contracted procedure: k9249 o|contracted procedure: k9252 o|contracted procedure: k9264 o|contracted procedure: k9267 o|contracted procedure: k9270 o|contracted procedure: k9278 o|contracted procedure: k9286 o|contracted procedure: k9295 o|contracted procedure: k9302 o|contracted procedure: k9306 o|contracted procedure: k9309 o|contracted procedure: k9321 o|contracted procedure: k9324 o|contracted procedure: k9327 o|contracted procedure: k9335 o|contracted procedure: k9343 o|contracted procedure: k9352 o|contracted procedure: k9361 o|contracted procedure: k9368 o|contracted procedure: k9377 o|contracted procedure: k9392 o|contracted procedure: k9399 o|contracted procedure: k9403 o|contracted procedure: k9407 o|contracted procedure: k9419 o|contracted procedure: k9433 o|contracted procedure: k9437 o|contracted procedure: k9449 o|contracted procedure: k9452 o|contracted procedure: k9455 o|contracted procedure: k9463 o|contracted procedure: k9471 o|contracted procedure: k9478 o|contracted procedure: k9484 o|contracted procedure: k9487 o|contracted procedure: k9494 o|contracted procedure: k9497 o|contracted procedure: k9509 o|contracted procedure: k9512 o|contracted procedure: k9515 o|contracted procedure: k9523 o|contracted procedure: k9531 o|contracted procedure: k9545 o|contracted procedure: k9548 o|contracted procedure: k9560 o|contracted procedure: k9563 o|contracted procedure: k9566 o|contracted procedure: k9574 o|contracted procedure: k9582 o|contracted procedure: k9595 o|contracted procedure: k9601 o|contracted procedure: k9642 o|contracted procedure: k9704 o|contracted procedure: k9669 o|contracted procedure: k9684 o|contracted procedure: k9700 o|contracted procedure: k9749 o|contracted procedure: k9753 o|contracted procedure: k9773 o|contracted procedure: k9777 o|contracted procedure: k9784 o|contracted procedure: k9807 o|contracted procedure: k9803 o|contracted procedure: k9799 o|contracted procedure: k9817 o|contracted procedure: k9820 o|contracted procedure: k9832 o|contracted procedure: k9835 o|contracted procedure: k9838 o|contracted procedure: k9846 o|contracted procedure: k9854 o|contracted procedure: k9863 o|contracted procedure: k9866 o|contracted procedure: k9869 o|contracted procedure: k9889 o|contracted procedure: k9897 o|contracted procedure: k9905 o|contracted procedure: k9911 o|contracted procedure: k9925 o|contracted procedure: k9928 o|contracted procedure: k9950 o|contracted procedure: k9962 o|contracted procedure: k9966 o|contracted procedure: k9974 o|contracted procedure: k9982 o|contracted procedure: k9988 o|contracted procedure: k9991 o|contracted procedure: k10000 o|contracted procedure: k10015 o|contracted procedure: k10019 o|contracted procedure: k10027 o|contracted procedure: k10031 o|contracted procedure: k10037 o|contracted procedure: k10044 o|contracted procedure: k10050 o|contracted procedure: k10061 o|contracted procedure: k10136 o|contracted procedure: k10144 o|contracted procedure: k10079 o|contracted procedure: k10083 o|contracted procedure: k10091 o|contracted procedure: k10103 o|contracted procedure: k10106 o|contracted procedure: k10109 o|contracted procedure: k10117 o|contracted procedure: k10125 o|contracted procedure: k10155 o|contracted procedure: k10158 o|contracted procedure: k10206 o|contracted procedure: k10170 o|contracted procedure: k10196 o|contracted procedure: k10200 o|contracted procedure: k10192 o|contracted procedure: k10173 o|contracted procedure: k10176 o|contracted procedure: k10184 o|contracted procedure: k10188 o|contracted procedure: k10218 o|contracted procedure: k10221 o|contracted procedure: k10224 o|contracted procedure: k10232 o|contracted procedure: k10240 o|contracted procedure: k10259 o|contracted procedure: k10267 o|contracted procedure: k10279 o|contracted procedure: k10282 o|contracted procedure: k10285 o|contracted procedure: k10293 o|contracted procedure: k10301 o|contracted procedure: k10362 o|contracted procedure: k10326 o|contracted procedure: k10352 o|contracted procedure: k10356 o|contracted procedure: k10348 o|contracted procedure: k10329 o|contracted procedure: k10332 o|contracted procedure: k10340 o|contracted procedure: k10344 o|contracted procedure: k10380 o|contracted procedure: k10415 o|contracted procedure: k10424 o|contracted procedure: k10433 o|contracted procedure: k10454 o|contracted procedure: k10463 o|contracted procedure: k10472 o|contracted procedure: k10493 o|contracted procedure: k10506 o|contracted procedure: k10510 o|contracted procedure: k10518 o|contracted procedure: k10521 o|contracted procedure: k10497 o|contracted procedure: k10533 o|contracted procedure: k10536 o|contracted procedure: k10539 o|contracted procedure: k10547 o|contracted procedure: k10555 o|contracted procedure: k10579 o|contracted procedure: k10583 o|contracted procedure: k10587 o|contracted procedure: k10592 o|contracted procedure: k10604 o|contracted procedure: k10607 o|contracted procedure: k10610 o|contracted procedure: k10618 o|contracted procedure: k10626 o|contracted procedure: k10655 o|contracted procedure: k10667 o|contracted procedure: k10677 o|contracted procedure: k10681 o|contracted procedure: k10684 o|contracted procedure: k10690 o|contracted procedure: k10728 o|contracted procedure: k10738 o|contracted procedure: k10742 o|contracted procedure: k10758 o|contracted procedure: k10882 o|contracted procedure: k10773 o|contracted procedure: k10776 o|contracted procedure: k10785 o|contracted procedure: k10862 o|contracted procedure: k10793 o|contracted procedure: k10820 o|contracted procedure: k10828 o|contracted procedure: k10824 o|contracted procedure: k10837 o|contracted procedure: k10843 o|contracted procedure: k10850 o|contracted procedure: k10873 o|contracted procedure: k10869 o|contracted procedure: k10915 o|contracted procedure: k10939 o|contracted procedure: k10926 o|contracted procedure: k10920 o|contracted procedure: k10947 o|contracted procedure: k10956 o|contracted procedure: k10968 o|contracted procedure: k10977 o|contracted procedure: k10981 o|contracted procedure: k10993 o|contracted procedure: k11002 o|contracted procedure: k11019 o|contracted procedure: k11023 o|contracted procedure: k11032 o|contracted procedure: k11133 o|contracted procedure: k11137 o|contracted procedure: k11041 o|contracted procedure: k11059 o|contracted procedure: k11063 o|contracted procedure: k11072 o|contracted procedure: k11081 o|contracted procedure: k11090 o|contracted procedure: k11107 o|contracted procedure: k11111 o|contracted procedure: k11120 o|contracted procedure: k11124 o|contracted procedure: k11155 o|contracted procedure: k11164 o|contracted procedure: k11181 o|contracted procedure: k11189 o|contracted procedure: k11195 o|contracted procedure: k11204 o|contracted procedure: k11229 o|contracted procedure: k11207 o|contracted procedure: k11235 o|contracted procedure: k11238 o|contracted procedure: k11253 o|contracted procedure: k11259 o|contracted procedure: k11284 o|contracted procedure: k11287 o|contracted procedure: k11393 o|contracted procedure: k11290 o|contracted procedure: k11312 o|contracted procedure: k11318 o|contracted procedure: k11326 o|contracted procedure: k11329 o|contracted procedure: k11368 o|contracted procedure: k11335 o|contracted procedure: k11359 o|contracted procedure: k11350 o|contracted procedure: k11341 o|contracted procedure: k11374 o|contracted procedure: k11386 o|contracted procedure: k11424 o|contracted procedure: k11431 o|contracted procedure: k11465 o|contracted procedure: k11487 o|contracted procedure: k11490 o|contracted procedure: k11511 o|contracted procedure: k11504 o|inlining procedure: k11500 o|inlining procedure: k11500 o|contracted procedure: k11530 o|contracted procedure: k11560 o|contracted procedure: k11563 o|contracted procedure: k11569 o|contracted procedure: k11573 o|contracted procedure: k11579 o|contracted procedure: k11583 o|contracted procedure: k11602 o|contracted procedure: k11589 o|contracted procedure: k11593 o|contracted procedure: k11610 o|contracted procedure: k11618 o|contracted procedure: k11614 o|contracted procedure: k11629 o|contracted procedure: k11641 o|contracted procedure: k11651 o|contracted procedure: k11655 o|contracted procedure: k11783 o|contracted procedure: k11795 o|contracted procedure: k11805 o|contracted procedure: k11809 o|contracted procedure: k11833 o|contracted procedure: k11836 o|contracted procedure: k11848 o|contracted procedure: k11863 o|contracted procedure: k11878 o|contracted procedure: k11881 o|contracted procedure: k11910 o|contracted procedure: k11891 o|contracted procedure: k11899 o|contracted procedure: k11903 o|contracted procedure: k11895 o|contracted procedure: k11916 o|contracted procedure: k11919 o|contracted procedure: k11931 o|contracted procedure: k11964 o|contracted procedure: k11941 o|contracted procedure: k11953 o|contracted procedure: k11945 o|contracted procedure: k11960 o|contracted procedure: k11970 o|contracted procedure: k11980 o|contracted procedure: k11986 o|contracted procedure: k12022 o|contracted procedure: k11999 o|contracted procedure: k12011 o|contracted procedure: k12003 o|contracted procedure: k12018 o|contracted procedure: k12028 o|contracted procedure: k12045 o|contracted procedure: k12041 o|contracted procedure: k12054 o|contracted procedure: k12069 o|contracted procedure: k12081 o|contracted procedure: k12096 o|contracted procedure: k12108 o|contracted procedure: k12137 o|contracted procedure: k12121 o|contracted procedure: k12129 o|contracted procedure: k12133 o|contracted procedure: k12125 o|contracted procedure: k12143 o|contracted procedure: k12152 o|contracted procedure: k12191 o|contracted procedure: k12165 o|contracted procedure: k12177 o|contracted procedure: k12169 o|contracted procedure: k12187 o|contracted procedure: k12197 o|contracted procedure: k12213 o|contracted procedure: k12219 o|contracted procedure: k12229 o|contracted procedure: k12240 o|contracted procedure: k12236 o|contracted procedure: k12258 o|contracted procedure: k12255 o|contracted procedure: k12270 o|contracted procedure: k12277 o|contracted procedure: k12306 o|contracted procedure: k12290 o|contracted procedure: k12298 o|contracted procedure: k12302 o|contracted procedure: k12294 o|contracted procedure: k12312 o|contracted procedure: k12315 o|contracted procedure: k12345 o|contracted procedure: k12325 o|contracted procedure: k12341 o|contracted procedure: k12333 o|contracted procedure: k12337 o|contracted procedure: k12329 o|contracted procedure: k12351 o|contracted procedure: k12380 o|contracted procedure: k12361 o|contracted procedure: k12369 o|contracted procedure: k12373 o|contracted procedure: k12365 o|contracted procedure: k12386 o|contracted procedure: k12398 o|contracted procedure: k12405 o|contracted procedure: k12411 o|contracted procedure: k12418 o|contracted procedure: k12424 o|contracted procedure: k12436 o|contracted procedure: k12439 o|contracted procedure: k12469 o|contracted procedure: k12475 o|contracted procedure: k12492 o|contracted procedure: k12500 o|contracted procedure: k12515 o|contracted procedure: k12521 o|contracted procedure: k12540 o|contracted procedure: k12557 o|contracted procedure: k12574 o|contracted procedure: k12580 o|contracted procedure: k12597 o|contracted procedure: k12603 o|contracted procedure: k12609 o|contracted procedure: k12615 o|contracted procedure: k12621 o|contracted procedure: k12627 o|contracted procedure: k12652 o|contracted procedure: k12658 o|contracted procedure: k12664 o|contracted procedure: k12670 o|contracted procedure: k12676 o|contracted procedure: k12682 o|contracted procedure: k12725 o|contracted procedure: k12740 o|contracted procedure: k12746 o|contracted procedure: k12752 o|contracted procedure: k12758 o|contracted procedure: k12764 o|contracted procedure: k12770 o|contracted procedure: k12817 o|contracted procedure: k12829 o|contracted procedure: k12836 o|contracted procedure: k12811 o|contracted procedure: k12848 o|contracted procedure: k12860 o|contracted procedure: k12867 o|contracted procedure: k12842 o|contracted procedure: k12894 o|contracted procedure: k12891 o|contracted procedure: k12903 o|contracted procedure: k12927 o|contracted procedure: k12936 o|contracted procedure: k12948 o|contracted procedure: k12960 o|contracted procedure: k12984 o|contracted procedure: k12981 o|contracted procedure: k12996 o|contracted procedure: k13003 o|contracted procedure: k13012 o|contracted procedure: k13018 o|contracted procedure: k13024 o|contracted procedure: k13030 o|contracted procedure: k13036 o|contracted procedure: k13042 o|contracted procedure: k13048 o|contracted procedure: k13006 o|contracted procedure: k13075 o|contracted procedure: k13081 o|contracted procedure: k13087 o|contracted procedure: k13093 o|contracted procedure: k13112 o|contracted procedure: k13118 o|contracted procedure: k13124 o|contracted procedure: k13130 o|contracted procedure: k13136 o|contracted procedure: k13159 o|contracted procedure: k13165 o|contracted procedure: k13171 o|contracted procedure: k13177 o|contracted procedure: k13183 o|contracted procedure: k13189 o|contracted procedure: k13195 o|contracted procedure: k13201 o|contracted procedure: k13207 o|contracted procedure: k13213 o|contracted procedure: k13246 o|contracted procedure: k13252 o|contracted procedure: k13258 o|contracted procedure: k13264 o|contracted procedure: k13270 o|contracted procedure: k13276 o|contracted procedure: k13282 o|contracted procedure: k13288 o|contracted procedure: k13294 o|contracted procedure: k13300 o|contracted procedure: k13306 o|contracted procedure: k13365 o|contracted procedure: k13377 o|contracted procedure: k13401 o|contracted procedure: k13398 o|contracted procedure: k13413 o|contracted procedure: k13420 o|contracted procedure: k13432 o|contracted procedure: k13438 o|contracted procedure: k13444 o|contracted procedure: k13450 o|contracted procedure: k13456 o|contracted procedure: k13462 o|contracted procedure: k13490 o|contracted procedure: k13496 o|contracted procedure: k13502 o|contracted procedure: k13519 o|contracted procedure: k13525 o|contracted procedure: k13531 o|contracted procedure: k13537 o|contracted procedure: k13543 o|contracted procedure: k13549 o|contracted procedure: k13555 o|contracted procedure: k13561 o|contracted procedure: k13567 o|contracted procedure: k13573 o|contracted procedure: k13579 o|contracted procedure: k13585 o|contracted procedure: k13591 o|contracted procedure: k13597 o|contracted procedure: k13603 o|contracted procedure: k13609 o|contracted procedure: k13615 o|contracted procedure: k13621 o|contracted procedure: k13627 o|contracted procedure: k13633 o|contracted procedure: k13639 o|contracted procedure: k13645 o|contracted procedure: k13651 o|contracted procedure: k13657 o|contracted procedure: k13663 o|contracted procedure: k13669 o|contracted procedure: k13675 o|contracted procedure: k13681 o|contracted procedure: k13687 o|contracted procedure: k13693 o|contracted procedure: k13699 o|contracted procedure: k13789 o|contracted procedure: k13792 o|contracted procedure: k13799 o|contracted procedure: k13805 o|contracted procedure: k13812 o|contracted procedure: k13818 o|contracted procedure: k13821 o|contracted procedure: k13828 o|contracted procedure: k13834 o|contracted procedure: k13837 o|contracted procedure: k13844 o|contracted procedure: k13850 o|contracted procedure: k13861 o|contracted procedure: k13857 o|contracted procedure: k13867 o|contracted procedure: k13874 o|contracted procedure: k13880 o|contracted procedure: k13887 o|contracted procedure: k13893 o|contracted procedure: k13906 o|contracted procedure: k13993 o|contracted procedure: k13912 o|contracted procedure: k13915 o|contracted procedure: k13921 o|contracted procedure: k13924 o|contracted procedure: k13962 o|contracted procedure: k13934 o|contracted procedure: k13958 o|contracted procedure: k13942 o|contracted procedure: k13950 o|contracted procedure: k13954 o|contracted procedure: k13946 o|contracted procedure: k13938 o|contracted procedure: k13968 o|contracted procedure: k13975 o|contracted procedure: k13979 o|contracted procedure: k14016 o|contracted procedure: k13996 o|contracted procedure: k14012 o|contracted procedure: k14002 o|contracted procedure: k14006 o|contracted procedure: k14057 o|contracted procedure: k14063 o|contracted procedure: k14066 o|contracted procedure: k14072 o|contracted procedure: k14081 o|contracted procedure: k14084 o|contracted procedure: k14090 o|contracted procedure: k14098 o|contracted procedure: k14101 o|contracted procedure: k14107 o|contracted procedure: k14113 o|contracted procedure: k14121 o|contracted procedure: k14127 o|contracted procedure: k14133 o|contracted procedure: k14141 o|contracted procedure: k14147 o|contracted procedure: k14156 o|contracted procedure: k14163 o|contracted procedure: k14174 o|contracted procedure: k14180 o|contracted procedure: k14186 o|contracted procedure: k14192 o|contracted procedure: k14198 o|contracted procedure: k14204 o|contracted procedure: k14210 o|contracted procedure: k14216 o|contracted procedure: k14222 o|contracted procedure: k14231 o|contracted procedure: k14237 o|contracted procedure: k14243 o|contracted procedure: k14252 o|contracted procedure: k14255 o|contracted procedure: k14261 o|contracted procedure: k14270 o|contracted procedure: k14276 o|contracted procedure: k14283 o|contracted procedure: k14292 o|contracted procedure: k14299 o|contracted procedure: k14305 o|contracted procedure: k14311 o|contracted procedure: k14314 o|contracted procedure: k14328 o|contracted procedure: k14334 o|contracted procedure: k14353 o|contracted procedure: k14375 o|contracted procedure: k14381 o|contracted procedure: k14402 o|contracted procedure: k14408 o|contracted procedure: k14414 o|contracted procedure: k14420 o|contracted procedure: k14426 o|contracted procedure: k14432 o|contracted procedure: k14473 o|contracted procedure: k14479 o|contracted procedure: k14485 o|contracted procedure: k14491 o|contracted procedure: k14497 o|contracted procedure: k14503 o|contracted procedure: k14550 o|contracted procedure: k14556 o|contracted procedure: k14562 o|contracted procedure: k14568 o|contracted procedure: k14574 o|contracted procedure: k14580 o|contracted procedure: k14628 o|contracted procedure: k14636 o|contracted procedure: k14642 o|contracted procedure: k14645 o|contracted procedure: k14706 o|contracted procedure: k14648 o|contracted procedure: k14654 o|contracted procedure: k14666 o|contracted procedure: k14676 o|contracted procedure: k14680 o|contracted procedure: k14687 o|contracted procedure: k14690 o|contracted procedure: k14697 o|contracted procedure: k14712 o|contracted procedure: k14718 o|contracted procedure: k14730 o|contracted procedure: k14740 o|contracted procedure: k14744 o|contracted procedure: k14747 o|contracted procedure: k14780 o|contracted procedure: k14788 o|contracted procedure: k14796 o|contracted procedure: k14802 o|contracted procedure: k14811 o|contracted procedure: k14814 o|contracted procedure: k14820 o|contracted procedure: k14840 o|contracted procedure: k14843 o|contracted procedure: k14856 o|contracted procedure: k1485317613 o|contracted procedure: k1485317617 o|contracted procedure: k14866 o|contracted procedure: k14876 o|contracted procedure: k14884 o|contracted procedure: k14890 o|contracted procedure: k14897 o|contracted procedure: k14907 o|contracted procedure: k14925 o|contracted procedure: k14931 o|contracted procedure: k14937 o|contracted procedure: k14964 o|contracted procedure: k14976 o|contracted procedure: k14986 o|contracted procedure: k14990 o|contracted procedure: k15023 o|contracted procedure: k15002 o|contracted procedure: k15014 o|contracted procedure: k15018 o|contracted procedure: k15063 o|contracted procedure: k15029 o|contracted procedure: k15041 o|contracted procedure: k15049 o|contracted procedure: k15059 o|contracted procedure: k15081 o|contracted procedure: k15127 o|inlining procedure: k15124 o|contracted procedure: k15176 o|contracted procedure: k15184 o|contracted procedure: k15197 o|contracted procedure: k15208 o|contracted procedure: k15220 o|contracted procedure: k15234 o|contracted procedure: k15238 o|contracted procedure: k15305 o|contracted procedure: k15308 o|contracted procedure: k15311 o|contracted procedure: k15330 o|contracted procedure: k15326 o|contracted procedure: k15339 o|contracted procedure: k15385 o|contracted procedure: k15378 o|contracted procedure: k15354 o|contracted procedure: k15366 o|contracted procedure: k15369 o|contracted procedure: k15372 o|contracted procedure: k15391 o|contracted procedure: k15408 o|contracted procedure: k15548 o|contracted procedure: k15556 o|contracted procedure: k15414 o|contracted procedure: k15417 o|contracted procedure: k15423 o|contracted procedure: k15440 o|contracted procedure: k15459 o|contracted procedure: k15465 o|contracted procedure: k15489 o|contracted procedure: k15477 o|contracted procedure: k15484 o|contracted procedure: k15568 o|contracted procedure: k15590 o|contracted procedure: k15586 o|contracted procedure: k15571 o|contracted procedure: k15574 o|contracted procedure: k15582 o|contracted procedure: k15602 o|contracted procedure: k15605 o|contracted procedure: k15608 o|contracted procedure: k15616 o|contracted procedure: k15624 o|contracted procedure: k15405 o|contracted procedure: k15649 o|contracted procedure: k15655 o|contracted procedure: k15664 o|contracted procedure: k15667 o|contracted procedure: k15674 o|contracted procedure: k1564017106 o|contracted procedure: k1564017113 o|contracted procedure: k1564017122 o|contracted procedure: k15726 o|contracted procedure: k15734 o|contracted procedure: k15742 o|contracted procedure: k15748 o|contracted procedure: k15777 o|contracted procedure: k15783 o|contracted procedure: k15792 o|contracted procedure: k15816 o|contracted procedure: k15832 o|contracted procedure: k15836 o|contracted procedure: k15840 o|contracted procedure: k15849 o|contracted procedure: k15859 o|contracted procedure: k15863 o|contracted procedure: k15879 o|inlining procedure: k15883 o|inlining procedure: k15883 o|contracted procedure: k15899 o|contracted procedure: k15906 o|contracted procedure: k15921 o|contracted procedure: k15934 o|contracted procedure: k15958 o|contracted procedure: k15986 o|contracted procedure: k16015 o|contracted procedure: k16021 o|contracted procedure: k16024 o|contracted procedure: k16044 o|contracted procedure: k16038 o|contracted procedure: k16064 o|contracted procedure: k16058 o|contracted procedure: k16092 o|contracted procedure: k16098 o|contracted procedure: k16117 o|contracted procedure: k16111 o|contracted procedure: k16206 o|contracted procedure: k16216 o|contracted procedure: k16220 o|contracted procedure: k16171 o|contracted procedure: k16185 o|contracted procedure: k16189 o|contracted procedure: k16268 o|contracted procedure: k16252 o|contracted procedure: k16319 o|contracted procedure: k16328 o|simplifications: ((let . 157)) o|removed binding forms: 1210 o|inlining procedure: k9781 o|replaced variables: 444 o|removed binding forms: 4 o|simplifications: ((if . 17)) o|replaced variables: 7 o|removed binding forms: 283 o|contracted procedure: k15620 o|contracted procedure: k15693 o|simplifications: ((let . 1)) o|removed binding forms: 3 o|replaced variables: 2 o|removed binding forms: 1 o|direct leaf routine/allocation: loop508 0 o|direct leaf routine/allocation: g23072308 0 o|direct leaf routine/allocation: g24652472 20 o|converted assignments to bindings: (loop508) o|contracted procedure: "(support.scm:967) k11644" o|simplifications: ((let . 1)) o|removed binding forms: 1 o|customizable procedures: (for-each-loop39763991 loop3856 k15872 g37853792 for-each-loop37843802 doloop38153816 loop3754 map-loop36453666 map-loop36763697 resolve3581 loop3593 loop3534 k15008 g35093516 for-each-loop35083519 k14805 walkeach3464 walk3463 k14715 for-each-loop34423452 k14683 k14651 for-each-loop34183428 k14075 k14150 k14225 k14246 k14264 k14286 k13899 k13368 k13380 k13423 g31483149 k12930 k12939 k12951 k12963 g29912992 g28722873 k11851 k11866 k11989 k12031 k12057 k12084 k12111 k12155 k12200 k12280 repeat2586 g27952796 k12173 k12007 k11949 for-each-loop25622574 for-each-loop24642486 k11450 k11409 k11198 matchn2298 loop2327 match12297 resolve2296 loop2273 k10779 k10816 for-each-loop22242236 for-each-loop22462264 map-loop21632180 map-loop21242144 rec2075 map-loop18521871 g20452054 map-loop20392064 g19391948 map-loop19331953 map-loop19631982 g20062015 map-loop20002025 walk1882 map-loop18001817 k9757 fold1777 k8818 k9422 map-loop17491766 map-loop17231740 map-loop16941711 loop1675 map-loop16511668 map-loop16251642 loop1616 map-loop15761593 map-loop15551600 map-loop15131530 map-loop14841501 map-loop14271444 k8403 k8598 map-loop13961413 map-loop13501367 map-loop13191336 map-loop12701287 map-loop12261243 k8085 map-loop11921209 loop1159 map-loop10941112 g11271136 map-loop11211139 k7663 map-loop10571074 k6851 k7068 k7147 loop779 k6916 k6953 k6990 map-loop740757 k6745 g727728 k6668 for-each-loop534574 for-each-loop581621 for-each-loop628653 tmp14370 tmp24371 k6074 loop463 k5946 loop376 fold369 k5712 k5566 k5573 loop305 loop288 loop238 loop227 loop212 err211 loop200 k5127 g169176 for-each-loop168186 collect99 g104111 for-each-loop103123 text46 dump47 for-each-loop5068) o|calls to known targets: 490 o|identified direct recursive calls: f_5290 1 o|identified direct recursive calls: f_5340 1 o|identified direct recursive calls: f_5374 1 o|identified direct recursive calls: f_5492 1 o|identified direct recursive calls: f_5761 1 o|identified direct recursive calls: f_6237 1 o|identified direct recursive calls: f_6815 1 o|identified direct recursive calls: f_7545 4 o|identified direct recursive calls: f_9012 1 o|identified direct recursive calls: f_10165 1 o|identified direct recursive calls: f_9882 1 o|identified direct recursive calls: f_10321 1 o|identified direct recursive calls: f_10375 1 o|identified direct recursive calls: f_10988 1 o|identified direct recursive calls: f_11636 1 o|identified direct recursive calls: f_15036 1 o|identified direct recursive calls: f_15563 1 o|identified direct recursive calls: f_15597 1 o|fast box initializations: 85 o|dropping unused closure argument: f_15147 o|dropping unused closure argument: f_6237 */ /* end of file */ chicken-4.12.0/chicken-syntax.scm0000644000175000017500000012365213052306173016455 0ustar sjamaansjamaan;;;; chicken-syntax.scm - non-standard syntax extensions ; ; Copyright (c) 2008-2017, 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) (disable-interrupts) (fixnum) ) #+(not debugbuild) (declare (no-bound-checks) (no-procedure-checks)) (##sys#provide 'chicken-syntax) ;;; Non-standard macros: (define ##sys#chicken-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 '(_ symbol _)) `(##core#define-constant ,@(cdr form))))) (##sys#extend-macro-environment 'define-record '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'define-record x '(_ symbol . _)) (let* ((name (cadr x)) (slots (cddr x)) (prefix (symbol->string name)) (%define (r 'define)) (%setter (r 'setter)) (%getter-with-setter (r '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 ,(string->symbol (string-append "make-" prefix)) (##core#lambda ,slotnames (##sys#make-structure (##core#quote ,name) ,@slotnames))) (,%define ,(string->symbol (string-append prefix "?")) (##core#lambda (x) (##sys#structure? x ',name)) ) ,@(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 ,name))) (##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 ,name))) (##sys#block-ref x ,i) ) ,setrcode) `(##core#lambda (x) (##core#check (##sys#check-structure x (##core#quote ,name))) (##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 '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) ) ) ) ) ) ) ) (##sys#extend-macro-environment 'declare '() (##sys#er-transformer (lambda (form r c) `(##core#declare ,@(cdr form))))) (##sys#extend-macro-environment 'include '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'include form '(_ string)) `(##core#include ,(cadr form))))) (##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 ,(##sys#strip-syntax exp)))))))))))) (##sys#extend-macro-environment 'ensure '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'ensure form '#(_ 3)) (let ((pred (cadr form)) (exp (caddr form)) (args (cdddr form)) (tmp (r 'tmp))) `(##core#let ([,tmp ,exp]) (##core#if (##core#check (,pred ,tmp)) ,tmp (##sys#signal-hook #:type-error ,@(if (pair? args) args `((##core#immutable (##core#quote "argument has incorrect type")) ,tmp (##core#quote ,pred)) ) ) ) ) ) ) ) ) (##sys#extend-macro-environment 'fluid-let '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'fluid-let form '(_ #((symbol _) 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 'eval-when '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'eval-when form '#(_ 2)) (let* ((situations (cadr form)) (body `(##core#begin ,@(cddr form))) (%eval (r 'eval)) (%compile (r 'compile)) (%load (r 'load)) (e #f) (co #f) (l #f)) (let loop ([ss situations]) (if (pair? ss) (let ((s (car ss))) (cond ((c s %eval) (set! e #t)) ((c s %load) (set! l #t)) ((c s %compile) (set! co #t)) (else (##sys#error "invalid situation specifier" (car ss)) )) (loop (##sys#slot ss 1)) ) ) ) (if (memq '#:compiling ##sys#features) (cond [(and co l) `(##core#compiletimetoo ,body)] [co `(##core#compiletimeonly ,body)] [l body] [else '(##core#undefined)] ) (if e body '(##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)) (the (r 'the)) (boolean (r 'boolean)) (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? (,the ,boolean #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 '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! ##sys#define-values-definition (##sys#extend-macro-environment 'define-values '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'define-values form '(_ lambda-list _)) (##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))) `(,(r 'set!-values) ,@(cdr 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 'nth-value `((list-ref . ,(##sys#primitive-alias '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]) (if (null? bs) `(##core#begin ,@body) (let ([b (car bs)] [bs2 (cdr bs)] ) (cond [(not (pair? b)) `(##core#if ,b ,(fold bs2) #f)] [(null? (cdr b)) `(##core#if ,(car b) ,(fold bs2) #f)] [else (##sys#check-syntax 'and-let* b '(symbol _)) (let ((var (car b))) `(##core#let ((,var ,(cadr b))) (##core#if ,var ,(fold bs2) #f) ) ) ] ) ) ) ) ) ) ) ) (##sys#extend-macro-environment 'select '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'select form '(_ _ . _)) (let ((exp (cadr form)) (body (cddr form)) (tmp (r 'tmp)) (%else (r 'else)) (%or (r 'or))) `(##core#let ((,tmp ,exp)) ,(let expand ((clauses body) (else? #f)) (cond ((null? clauses) '(##core#undefined) ) ((not (pair? clauses)) (syntax-error 'select "invalid syntax" clauses)) (else (let ((clause (##sys#slot clauses 0)) (rclauses (##sys#slot clauses 1)) ) (##sys#check-syntax 'select clause '#(_ 1)) (cond ((c %else (car clause)) (expand rclauses #t) `(##core#begin ,@(cdr clause)) ) (else? (##sys#notice "non-`else' clause following `else' clause in `select'" (##sys#strip-syntax clause)) (expand rclauses #t) '(##core#begin)) (else `(##core#if (,%or ,@(map (lambda (x) `(##sys#eqv? ,tmp ,x)) (car clause) ) ) (##core#begin ,@(cdr clause)) ,(expand rclauses #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 `((car . ,(##sys#primitive-alias 'car)) (cdr . ,(##sys#primitive-alias '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 (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? . ,(##sys#primitive-alias 'null?)) (car . ,(##sys#primitive-alias 'car)) (cdr . ,(##sys#primitive-alias '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? . ,(##sys#primitive-alias 'null?)) (car . ,(##sys#primitive-alias 'car)) (cdr . ,(##sys#primitive-alias '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 `((>= . ,(##sys#primitive-alias '>=)) (car . ,(##sys#primitive-alias 'car)) (cdr . ,(##sys#primitive-alias 'cdr)) (eq? . ,(##sys#primitive-alias 'eq?)) (length . ,(##sys#primitive-alias '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))) ) ) ) (require 'srfi-1) ; ugh... (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))) ,(fold-right (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) '((symbol symbol symbol) . #(_ 1))) `(##sys#register-record-printer ',(##sys#slot head 0) (##core#lambda ,(##sys#slot head 1) ,@body)) ] [else (##sys#check-syntax 'define-record-printer (cons head body) '(symbol _)) `(##sys#register-record-printer ',head ,@body) ] ) )))) ;;; Exceptions: (##sys#extend-macro-environment 'handle-exceptions `((call-with-current-continuation . ,(##sys#primitive-alias 'call-with-current-continuation)) (with-exception-handler . ,(##sys#primitive-alias 'with-exception-handler))) (##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) (,(r '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 `((else . ,(##sys#primitive-alias 'else)) (memv . ,(##sys#primitive-alias '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 (##sys#signal ,exvar)))) )) ) ,(cadr form)))))) ;;; SRFI-9: (##sys#extend-macro-environment 'define-record-type `((getter-with-setter . ,(##sys#primitive-alias 'getter-with-setter))) (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'define-record-type form '(_ variable #(variable 1) variable . _)) (let* ((t (cadr form)) (conser (caddr form)) (pred (cadddr form)) (slots (cddddr form)) (%define (r 'define)) (%getter-with-setter (r 'getter-with-setter)) (vars (cdr conser)) (x (r 'x)) (y (r 'y)) (slotnames (map car slots))) `(##core#begin (,%define ,conser (##sys#make-structure (##core#quote ,t) ,@(map (lambda (sname) (if (memq sname vars) sname '(##core#undefined) ) ) slotnames) ) ) (,%define (,pred ,x) (##sys#structure? ,x (##core#quote ,t))) ,@(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 ,t) (##core#quote ,(cadr slot)))) (##sys#block-ref ,x ,i) ) ) (set (and settable `(##core#lambda (,x ,y) (##core#check (##sys#check-structure ,x (##core#quote ,t) (##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 . ,(##sys#primitive-alias '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 . ,(##sys#primitive-alias '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)))))) ;;; Definitions available at macroexpansion-time: (##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)))))) ;;; use (##sys#extend-macro-environment 'use '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'use x '(_ . #(_ 0))) `(##core#require-extension ,(cdr x) #t)))) (##sys#extend-macro-environment 'use-for-syntax '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'use-for-syntax x '(_ . #(_ 0))) `(,(r 'require-extension-for-syntax) ,@(cdr x))))) ;;; 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 ...)))) ;;; interface definition (##sys#extend-macro-environment 'define-interface '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'define-interface x '(_ variable _)) (let ((name (##sys#strip-syntax (cadr x))) (%quote (r 'quote))) (when (eq? '* name) (syntax-error-hook 'define-interface "`*' is not allowed as a name for an interface")) `(##core#elaborationtimeonly (##sys#put/restore! (,%quote ,name) (,%quote ##core#interface) (,%quote ,(let ((exps (##sys#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)))))))))))) ;;; functor definition (##sys#extend-macro-environment 'functor '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'functor x '(_ (symbol . #((_ _) 0)) _ . _)) (let* ((x (##sys#strip-syntax x)) (head (cadr x)) (name (car head)) (args (cdr head)) (exps (caddr x)) (body (cdddr x)) (registration `(##sys#register-functor ',name ',(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)) (symbol? (cadr argname)))) (##sys#syntax-error-hook "invalid functor argument" name arg)) (cons argname exps))) args) ',(##sys#validate-exports exps 'functor) ',body))) `(##core#module ,name #t (import scheme chicken) (begin-for-syntax ,registration)))))) ;;; type-related syntax (##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 (##sys#strip-syntax (caddr x))) (name1 (cadr x))) ;; we need pred/pure info, so not using "##compiler#check-and-validate-type" (let-values (((type pred pure) (##compiler#validate-type type1 (##sys#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 ,(##compiler#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)) (##sys#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 ##compiler#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 (##compiler#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 (##sys#strip-syntax (car clause)))) (list (if (eq? hd 'else) 'else (if val (##compiler#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 (##sys#strip-syntax (cadr x))) (%quote (r 'quote)) (t0 (##sys#strip-syntax (caddr x)))) `(##core#elaborationtimeonly (##sys#put/restore! (,%quote ,name) (,%quote ##compiler#type-abbreviation) (,%quote ,(##compiler#check-and-validate-type t0 'define-type name)))))))))) ;; capture current macro env (##sys#macro-subset me0 ##sys#default-macro-environment))) ;; register features (eval-when (compile load eval) (register-feature! 'srfi-8 'srfi-11 'srfi-15 'srfi-16 'srfi-26 'srfi-31) ) chicken-4.12.0/tweaks.scm0000644000175000017500000000467113052306173015022 0ustar sjamaansjamaan;;;; tweaks.scm - Some inline-routines and declarations for the compiler ; ; Copyright (c) 2008-2017, 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 'node)) (define-inline (make-node c p s) (##sys#make-structure '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 (mark-variable var mark #!optional (val #t)) (##sys#put! var mark val) ) (define-inline (variable-mark var mark) (##sys#get var mark) ) chicken-4.12.0/srfi-18.import.c0000644000175000017500000001663213052306545015671 0ustar sjamaansjamaan/* Generated from srfi-18.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: srfi-18.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file srfi-18.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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_199) static void C_ccall f_199(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(f_202) static void C_ccall f_202(C_word c,C_word *av) C_noret; C_noret_decl(f_205) static void C_ccall f_205(C_word c,C_word *av) C_noret; C_noret_decl(f_208) static void C_ccall f_208(C_word c,C_word *av) C_noret; /* k197 */ static void C_ccall f_199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_199,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(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(444))){ C_save(t1); C_rereclaim2(444*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,3); lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module"); lf[1]=C_h_intern(&lf[1],7,"srfi-18"); lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\032abandoned-mutex-exception\077\376\003\000\000\002\376\001\000\000\035condition-variable-broadcast!\376\003\000\000\002" "\376\001\000\000\032condition-variable-signal!\376\003\000\000\002\376\001\000\000\027condition-variable-name\376\003\000\000\002\376\001\000\000\033condit" "ion-variable-specific\376\003\000\000\002\376\001\000\000 condition-variable-specific-set!\376\003\000\000\002\376\001\000\000\023conditi" "on-variable\077\376\003\000\000\002\376\001\000\000\016current-thread\376\003\000\000\002\376\001\000\000\014current-time\376\003\000\000\002\376\001\000\000\027join-timeout" "-exception\077\376\003\000\000\002\376\001\000\000\027make-condition-variable\376\003\000\000\002\376\001\000\000\012make-mutex\376\003\000\000\002\376\001\000\000\013make-t" "hread\376\003\000\000\002\376\001\000\000\013mutex-lock!\376\003\000\000\002\376\001\000\000\012mutex-name\376\003\000\000\002\376\001\000\000\016mutex-specific\376\003\000\000\002\376\001\000\000\023" "mutex-specific-set!\376\003\000\000\002\376\001\000\000\013mutex-state\376\003\000\000\002\376\001\000\000\015mutex-unlock!\376\003\000\000\002\376\001\000\000\006mutex\077\376" "\003\000\000\002\376\001\000\000\005raise\376\003\000\000\002\376\001\000\000\015seconds->time\376\003\000\000\002\376\001\000\000\034terminated-thread-exception\077\376\003\000\000\002" "\376\001\000\000\014thread-join!\376\003\000\000\002\376\001\000\000\013thread-name\376\003\000\000\002\376\001\000\000\016thread-quantum\376\003\000\000\002\376\001\000\000\023thread-q" "uantum-set!\376\003\000\000\002\376\001\000\000\016thread-resume!\376\003\000\000\002\376\001\000\000\016thread-signal!\376\003\000\000\002\376\001\000\000\015thread-slee" "p!\376\003\000\000\002\376\001\000\000\017thread-specific\376\003\000\000\002\376\001\000\000\024thread-specific-set!\376\003\000\000\002\376\001\000\000\015thread-start!" "\376\003\000\000\002\376\001\000\000\014thread-state\376\003\000\000\002\376\001\000\000\017thread-suspend!\376\003\000\000\002\376\001\000\000\021thread-terminate!\376\003\000\000\002\376" "\001\000\000\024thread-wait-for-i/o!\376\003\000\000\002\376\001\000\000\015thread-yield!\376\003\000\000\002\376\001\000\000\007thread\077\376\003\000\000\002\376\001\000\000\015time->" "seconds\376\003\000\000\002\376\001\000\000\005time\077\376\003\000\000\002\376\001\000\000\031uncaught-exception-reason\376\003\000\000\002\376\001\000\000\023uncaught-exce" "ption\077\376\377\016"); C_register_lf2(lf,3,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_199,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k200 in k197 */ static void C_ccall f_202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k203 in k200 in k197 */ static void C_ccall f_205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_205,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-18.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; /* Re-use our own argvector */ } 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);}} /* k206 in k203 in k200 in k197 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_208,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {"f_199:srfi_2d18_2eimport_2escm",(void*)f_199}, {"toplevel:srfi_2d18_2eimport_2escm",(void*)C_toplevel}, {"f_202:srfi_2d18_2eimport_2escm",(void*)f_202}, {"f_205:srfi_2d18_2eimport_2escm",(void*)f_205}, {"f_208:srfi_2d18_2eimport_2escm",(void*)f_208}, {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-4.12.0/ports.scm0000644000175000017500000001670213052306173014671 0ustar sjamaansjamaan;;; ports.scm - Optional non-standard ports ; ; Copyright (c) 2008-2017, 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 ports) (uses extras)) (include "common-declarations.scm") (register-feature! 'ports) ;;;; 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) ) ) ) ;;; 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) ; close (close) (##sys#setislot p 8 #t) ) #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 #t 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) ; close (close) (##sys#setislot p 8 #t) ) (lambda (p) ; flush-output (when flush (flush)) ) #f ; char-ready? #f ; read-string! #f) ) ; read-line (data (vector #f)) (port (##sys#make-port #f class "(custom)" 'custom)) ) (##sys#set-port-data! port data) port) ) ) chicken-4.12.0/posixwin.c0000644000175000017500000214227513052306547015056 0ustar sjamaansjamaan/* Generated from posixwin.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: posixwin.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file posixwin.c unit: posix */ #include "chicken.h" #ifndef WIN32_LEAN_AND_MEAN # define WIN32_LEAN_AND_MEAN #endif #include #include #include #include #include #include #include #include #define PIPE_BUF 512 static C_TLS struct group *C_group; 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_hostname[256] = ""; static C_TLS char C_osver[16] = ""; static C_TLS char C_osrel[16] = ""; static C_TLS char C_processor[16] = ""; static C_TLS char C_shlcmd[256] = ""; /* Windows NT or better */ static int C_isNT = 0; /* Current user name */ static C_TLS TCHAR C_username[255 + 1] = ""; /* Directory Operations */ #define C_mkdir(str) C_fix(mkdir(C_c_string(str))) #define C_chdir(str) C_fix(chdir(C_c_string(str))) #define C_rmdir(str) C_fix(rmdir(C_c_string(str))) #ifndef __WATCOMC__ /* DIRENT stuff */ 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 /* ifndef __WATCOMC__ */ #ifdef __WATCOMC__ /* there is no P_DETACH in Watcom CRTL */ # define P_DETACH P_NOWAIT #endif #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_data_pointer(fn), C_unfix(m))) #define C_setvbuf(p, m, s) C_fix(setvbuf(C_port_file(p), NULL, C_unfix(m), C_unfix(s))) #define C_test_access(fn, m) C_fix(access((char *)C_data_pointer(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_getenventry(i) environ[ i ] #define C_lstat(fn) C_stat(fn) #define C_u_i_execvp(f,a) C_fix(execvp(C_data_pointer(f), (const char *const *)C_c_pointer_vector_or_null(a))) #define C_u_i_execve(f,a,e) C_fix(execve(C_data_pointer(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_data_pointer(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_data_pointer(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 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) #define C_sleep(t) (Sleep(C_unfix(t) * 1000), C_fix(0)) static int C_fcall get_hostname() { /* Do we already have hostname? */ if (strlen(C_hostname)) { return 1; } else { WSADATA wsa; if (WSAStartup(MAKEWORD(1, 1), &wsa) == 0) { int nok = gethostname(C_hostname, sizeof(C_hostname)); WSACleanup(); return !nok; } return 0; } } static int C_fcall sysinfo() { /* Do we need to build the sysinfo? */ if (!strlen(C_osrel)) { OSVERSIONINFO ovf; ZeroMemory(&ovf, sizeof(ovf)); ovf.dwOSVersionInfoSize = sizeof(ovf); if (get_hostname() && GetVersionEx(&ovf)) { SYSTEM_INFO si; _snprintf(C_osver, sizeof(C_osver) - 1, "%d.%d.%d", ovf.dwMajorVersion, ovf.dwMinorVersion, ovf.dwBuildNumber); strncpy(C_osrel, "Win", sizeof(C_osrel) - 1); switch (ovf.dwPlatformId) { case VER_PLATFORM_WIN32s: strncpy(C_osrel, "Win32s", sizeof(C_osrel) - 1); break; case VER_PLATFORM_WIN32_WINDOWS: if (ovf.dwMajorVersion == 4) { if (ovf.dwMinorVersion == 0) strncpy(C_osrel, "Win95", sizeof(C_osrel) - 1); else if (ovf.dwMinorVersion == 10) strncpy(C_osrel, "Win98", sizeof(C_osrel) - 1); else if (ovf.dwMinorVersion == 90) strncpy(C_osrel, "WinMe", sizeof(C_osrel) - 1); } break; case VER_PLATFORM_WIN32_NT: C_isNT = 1; if (ovf.dwMajorVersion == 6) strncpy(C_osrel, "WinVista", sizeof(C_osrel) - 1); else if (ovf.dwMajorVersion == 5) { if (ovf.dwMinorVersion == 2) strncpy(C_osrel, "WinServer2003", sizeof(C_osrel) - 1); else if (ovf.dwMinorVersion == 1) strncpy(C_osrel, "WinXP", sizeof(C_osrel) - 1); else if ( ovf.dwMinorVersion == 0) strncpy(C_osrel, "Win2000", sizeof(C_osrel) - 1); } else if (ovf.dwMajorVersion <= 4) strncpy(C_osrel, "WinNT", sizeof(C_osrel) - 1); break; } GetSystemInfo(&si); strncpy(C_processor, "Unknown", sizeof(C_processor) - 1); switch (si.wProcessorArchitecture) { case PROCESSOR_ARCHITECTURE_INTEL: strncpy(C_processor, "x86", sizeof(C_processor) - 1); break; # ifdef PROCESSOR_ARCHITECTURE_IA64 case PROCESSOR_ARCHITECTURE_IA64: strncpy(C_processor, "IA64", sizeof(C_processor) - 1); break; # endif # ifdef PROCESSOR_ARCHITECTURE_AMD64 case PROCESSOR_ARCHITECTURE_AMD64: strncpy(C_processor, "x64", sizeof(C_processor) - 1); break; # endif # ifdef PROCESSOR_ARCHITECTURE_IA32_ON_WIN64 case PROCESSOR_ARCHITECTURE_IA32_ON_WIN64: strncpy(C_processor, "WOW64", sizeof(C_processor) - 1); break; # endif } } else return set_last_errno(); } return 1; } static int C_fcall get_shlcmd() { /* Do we need to build the shell command pathname? */ if (!strlen(C_shlcmd)) { if (sysinfo()) /* for C_isNT */ { char *cmdnam = C_isNT ? "\\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(); } else return 0; } return 1; } #define C_get_hostname() (get_hostname() ? C_SCHEME_TRUE : C_SCHEME_FALSE) #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, C_word * 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 tm) { struct _utimbuf tb; tb.actime = tb.modtime = C_num_to_int(tm); return _utime(filename, &tb); } #include #include #include static int C_not_implemented(void); int C_not_implemented() { return -1; } #define C_curdir(buf) (getcwd(C_c_string(buf), 1024) ? C_fix(strlen(C_c_string(buf))) : C_SCHEME_FALSE) static C_TLS struct stat C_statbuf; #define C_stat_type (C_statbuf.st_mode & S_IFMT) #define C_stat(fn) C_fix(stat((char *)C_data_pointer(fn), &C_statbuf)) #define C_fstat(f) C_fix(fstat(C_unfix(f), &C_statbuf)) #ifndef S_IFSOCK # define S_IFSOCK 0140000 #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_flonum(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_C_fileno(p) C_fix(fileno(C_port_file(p))) #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) #define C_opendir(x,h) C_set_block_item(h, 0, (C_word) opendir(C_c_string(x))) #define C_closedir(h) (closedir((DIR *)C_block_item(h, 0)), C_SCHEME_UNDEFINED) #define C_readdir(h,e) C_set_block_item(e, 0, (C_word) readdir((DIR *)C_block_item(h, 0))) #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))) /* It is assumed that 'int' is-a 'long' */ #define C_ftell(p) C_fix(ftell(C_port_file(p))) #define C_fseek(p, n, w) C_mk_nbool(fseek(C_port_file(p), C_num_to_int(n), C_unfix(w))) #define C_lseek(fd, o, w) C_fix(lseek(C_unfix(fd), C_unfix(o), C_unfix(w))) #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 #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 #define PROT_NONE 0 #define PROT_READ 1 #define PROT_WRITE 2 #define PROT_EXEC 4 #define MAP_FILE 0 #define MAP_SHARED 1 #define MAP_PRIVATE 2 #define MAP_FIXED 0x10 #define MAP_ANONYMOUS 0x20 // This value is available starting with Windows XP with SP2 // and Windows Server 2003 with SP1. #ifndef FILE_MAP_EXECUTE #define FILE_MAP_EXECUTE 0x20 #endif//FILE_MAP_EXECUTE static int page_flags[] = { 0, PAGE_READONLY, PAGE_READWRITE, PAGE_READWRITE, PAGE_EXECUTE_READ, PAGE_EXECUTE_READ, PAGE_EXECUTE_READWRITE }; static int file_flags[] = { 0, FILE_MAP_READ, FILE_MAP_READ|FILE_MAP_WRITE, FILE_MAP_READ|FILE_MAP_WRITE, FILE_MAP_READ|FILE_MAP_EXECUTE, FILE_MAP_READ|FILE_MAP_EXECUTE, FILE_MAP_READ|FILE_MAP_WRITE|FILE_MAP_EXECUTE }; void* mmap(void* addr,int len,int prot,int flags,int fd,int off) { HANDLE hMap; HANDLE hFile; void* ptr; if ((flags & MAP_FIXED) || (flags & MAP_PRIVATE) || (flags & MAP_ANONYMOUS)) { errno = EINVAL; return (void*)-1; } /* * We must cast because _get_osfhandle returns intptr_t, but it must * be compared with INVALID_HANDLE_VALUE, which is a HANDLE type. * Who comes up with this shit? */ hFile = (HANDLE)_get_osfhandle(fd); if (hFile == INVALID_HANDLE_VALUE) { return (void*)-1; } hMap = CreateFileMapping( hFile, NULL, page_flags[prot & (PROT_READ|PROT_WRITE|PROT_EXEC)], 0, 0, NULL); if (hMap == INVALID_HANDLE_VALUE) { set_last_errno(); return (void*)-1; } ptr = MapViewOfFile( hMap, file_flags[prot & (PROT_READ|PROT_WRITE|PROT_EXEC)], 0, off, len); if (ptr == NULL) { set_last_errno(); ptr = (void*)-1; } CloseHandle(hMap); return ptr; } int munmap(void* addr,int len) { if (UnmapViewOfFile(addr)) { errno = 0; return 0; } set_last_errno(); return -1; } int is_bad_mmap(void* p) { void* bad_ptr; bad_ptr = (void*)-1; return p == bad_ptr; } 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_irregex_toplevel) C_externimport void C_ccall C_irregex_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_files_toplevel) C_externimport void C_ccall C_files_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_ports_toplevel) C_externimport void C_ccall C_ports_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; static C_TLS C_word lf[411]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,41),40,112,111,115,105,120,45,101,114,114,111,114,32,116,121,112,101,55,49,32,108,111,99,55,50,32,109,115,103,55,51,32,46,32,97,114,103,115,55,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,115,116,97,116,32,102,105,108,101,56,54,32,108,105,110,107,56,55,32,101,114,114,56,56,32,108,111,99,56,57,41,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,28),40,102,105,108,101,45,115,116,97,116,32,102,49,48,49,32,46,32,116,109,112,49,48,48,49,48,50,41,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,23),40,102,105,108,101,45,97,99,99,101,115,115,45,116,105,109,101,32,102,49,50,55,41,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,23),40,102,105,108,101,45,99,104,97,110,103,101,45,116,105,109,101,32,102,49,51,48,41,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,17),40,102,105,108,101,45,111,119,110,101,114,32,102,49,51,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,23),40,102,105,108,101,45,112,101,114,109,105,115,115,105,111,110,115,32,102,49,51,54,41,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,16),40,102,105,108,101,45,115,105,122,101,32,102,49,51,57,41}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,31),40,102,105,108,101,45,116,121,112,101,32,102,105,108,101,49,52,54,32,46,32,116,109,112,49,52,53,49,52,55,41,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,23),40,114,101,103,117,108,97,114,45,102,105,108,101,63,32,102,105,108,101,49,54,53,41,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,24),40,115,121,109,98,111,108,105,99,45,108,105,110,107,63,32,102,105,108,101,49,54,55,41}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,23),40,98,108,111,99,107,45,100,101,118,105,99,101,63,32,102,105,108,101,49,54,57,41,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,27),40,99,104,97,114,97,99,116,101,114,45,100,101,118,105,99,101,63,32,102,105,108,101,49,55,49,41,0,0,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,16),40,102,95,50,53,54,50,32,102,105,108,101,49,55,51,41}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,17),40,115,111,99,107,101,116,63,32,102,105,108,101,49,55,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,20),40,100,105,114,101,99,116,111,114,121,63,32,102,105,108,101,49,55,55,41,0,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,47),40,115,101,116,45,102,105,108,101,45,112,111,115,105,116,105,111,110,33,32,112,111,114,116,49,56,50,32,112,111,115,49,56,51,32,46,32,119,104,101,110,99,101,49,56,52,41,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,25),40,109,111,100,101,32,105,110,112,50,48,54,32,109,50,48,55,32,108,111,99,50,48,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,32),40,99,104,101,99,107,32,108,111,99,50,50,48,32,102,100,50,50,49,32,105,110,112,50,50,50,32,114,50,50,51,41}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,21),40,102,95,50,55,48,49,32,102,100,50,50,54,32,46,32,109,50,50,55,41,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,21),40,102,95,50,55,49,53,32,102,100,50,50,57,32,46,32,109,50,51,48,41,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,16),40,102,95,50,55,50,57,32,112,111,114,116,50,51,54,41}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,24),40,102,95,50,55,55,55,32,111,108,100,50,52,53,32,46,32,110,101,119,50,52,54,41}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,31),40,99,117,114,114,101,110,116,45,100,105,114,101,99,116,111,114,121,32,46,32,116,109,112,50,53,54,50,53,55,41,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,14),40,114,109,100,105,114,32,100,105,114,50,56,51,41,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,11),40,103,50,56,57,32,102,50,57,56,41,0,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,56,56,32,103,50,57,53,51,48,54,41,0,0,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,38),40,100,101,108,101,116,101,45,100,105,114,101,99,116,111,114,121,32,110,97,109,101,50,55,53,32,46,32,116,109,112,50,55,52,50,55,54,41,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,100,105,114,51,50,57,41,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,7),40,97,50,57,57,51,41,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,47),40,97,50,57,57,57,32,100,105,114,51,51,55,51,51,56,51,52,51,32,102,105,108,101,51,51,57,51,52,48,51,52,52,32,101,120,116,51,52,49,51,52,50,51,52,53,41,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,38),40,99,114,101,97,116,101,45,100,105,114,101,99,116,111,114,121,32,110,97,109,101,51,49,56,32,46,32,116,109,112,51,49,55,51,49,57,41,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,23),40,100,105,114,101,99,116,111,114,121,32,46,32,116,109,112,51,53,57,51,54,48,41,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,7),40,97,51,50,48,48,41,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,11),40,103,52,50,50,32,109,52,50,52,41,0,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,102,110,115,52,49,53,41,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,46),40,97,51,50,48,54,32,100,105,114,51,57,56,51,57,57,52,48,52,32,102,105,108,52,48,48,52,48,49,52,48,53,32,101,120,116,52,48,50,52,48,51,52,48,54,41,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,20),40,99,111,110,99,45,108,111,111,112,32,112,97,116,104,115,51,57,54,41,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,17),40,103,108,111,98,32,46,32,112,97,116,104,115,51,57,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,7),40,97,51,51,55,51,41,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,7),40,97,51,51,55,56,41,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,7),40,97,51,51,57,56,41,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,24),40,108,111,111,112,32,100,105,114,52,53,49,32,102,115,52,53,50,32,114,52,53,51,41}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,13),40,102,95,51,52,52,52,32,120,52,52,57,41,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,15),40,102,95,51,52,54,48,32,46,32,95,52,52,54,41,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,15),40,102,95,51,52,53,50,32,46,32,95,52,52,53,41,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,7),40,97,51,52,56,57,41,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,7),40,97,51,52,57,50,41,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,7),40,97,51,52,57,53,41,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,7),40,97,51,52,57,56,41,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,18),40,102,95,51,53,48,52,32,120,52,56,56,32,121,52,56,57,41,0,0,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,7),40,97,51,53,48,49,41,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,15),40,102,95,51,53,49,50,32,46,32,95,52,56,54,41,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,7),40,97,51,53,48,57,41,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,31),40,102,105,110,100,45,102,105,108,101,115,32,100,105,114,52,56,51,32,46,32,116,109,112,52,56,50,52,56,52,41,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,32),40,99,104,101,99,107,45,116,105,109,101,45,118,101,99,116,111,114,32,108,111,99,53,49,52,32,116,109,53,49,53,41}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,33),40,115,101,99,111,110,100,115,45,62,108,111,99,97,108,45,116,105,109,101,32,46,32,116,109,112,53,50,49,53,50,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,31),40,115,101,99,111,110,100,115,45,62,117,116,99,45,116,105,109,101,32,46,32,116,109,112,53,51,51,53,51,52,41,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,29),40,115,101,99,111,110,100,115,45,62,115,116,114,105,110,103,32,46,32,116,109,112,53,53,49,53,53,50,41,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,27),40,108,111,99,97,108,45,116,105,109,101,45,62,115,101,99,111,110,100,115,32,116,109,53,54,51,41,0,0,0,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,32),40,116,105,109,101,45,62,115,116,114,105,110,103,32,116,109,53,57,53,32,46,32,116,109,112,53,57,52,53,57,54,41}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,22),40,115,101,116,101,110,118,32,118,97,114,54,48,57,32,118,97,108,54,49,48,41,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,17),40,117,110,115,101,116,101,110,118,32,118,97,114,54,49,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,11),40,115,99,97,110,32,106,54,50,57,41,0,0,0,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,54,50,54,41,0,0,0,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,27),40,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 li67[] C_aligned={C_lihdr(0,0,36),40,115,101,116,45,115,105,103,110,97,108,45,104,97,110,100,108,101,114,33,32,115,105,103,54,51,51,32,112,114,111,99,54,51,52,41,0,0,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,20),40,99,117,114,114,101,110,116,45,112,114,111,99,101,115,115,45,105,100,41,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,7),40,97,51,56,56,52,41,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,33),40,97,51,56,57,48,32,101,112,105,100,54,53,56,32,101,110,111,114,109,54,53,57,32,101,99,111,100,101,54,54,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,24),40,112,114,111,99,101,115,115,45,119,97,105,116,32,46,32,97,114,103,115,54,52,51,41}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,7),40,97,51,57,53,57,41,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,14),40,97,51,57,53,51,32,101,120,110,54,56,49,41,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,22),40,100,111,108,111,111,112,54,56,51,32,115,108,54,56,53,32,105,54,56,54,41,0,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,10),40,116,109,112,49,50,50,52,52,41,0,0,0,0,0,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,7),40,97,52,48,51,51,41,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,21),40,116,109,112,50,50,50,52,53,32,97,114,103,115,54,55,53,54,57,55,41,0,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,7),40,97,51,57,54,56,41,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,15),40,97,51,57,52,55,32,107,54,55,52,54,56,48,41,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,56),40,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,54,54,57,32,99,111,110,118,101,114,116,54,55,48,32,108,111,99,54,55,49,41}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,55,48,50,32,105,55,48,52,41}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,38),40,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,55,48,48,41,0,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,10),40,110,111,112,32,120,55,49,49,41,0,0,0,0,0,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,7),40,97,52,49,49,54,41,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,14),40,97,52,49,49,48,32,101,120,110,55,50,57,41,0,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,7),40,97,52,49,51,55,41,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,7),40,97,52,49,54,48,41,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,20),40,97,52,49,53,52,32,46,32,97,114,103,115,55,50,51,55,51,51,41,0,0,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,7),40,97,52,49,51,49,41,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,15),40,97,52,49,48,52,32,107,55,50,50,55,50,56,41,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,81),40,99,97,108,108,45,119,105,116,104,45,101,120,101,99,45,97,114,103,115,32,108,111,99,55,49,50,32,102,105,108,101,110,97,109,101,55,49,51,32,97,114,103,99,111,110,118,55,49,52,32,97,114,103,108,105,115,116,55,49,53,32,101,110,118,108,105,115,116,55,49,54,32,112,114,111,99,55,49,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,42),40,102,105,108,101,45,111,112,101,110,32,102,105,108,101,110,97,109,101,56,49,51,32,102,108,97,103,115,56,49,52,32,46,32,109,111,100,101,56,49,53,41,0,0,0,0,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,18),40,102,105,108,101,45,99,108,111,115,101,32,102,100,56,50,52,41,0,0,0,0,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,37),40,102,105,108,101,45,114,101,97,100,32,102,100,56,51,51,32,115,105,122,101,56,51,52,32,46,32,98,117,102,102,101,114,56,51,53,41,0,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,38),40,102,105,108,101,45,119,114,105,116,101,32,102,100,56,52,53,32,98,117,102,102,101,114,56,52,54,32,46,32,115,105,122,101,56,52,55,41,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,22),40,115,117,102,102,105,120,45,108,111,111,112,32,105,110,100,101,120,56,55,56,41,0,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,99,111,117,110,116,56,55,54,41,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,56,54,53,41,0,0,0,0,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,26),40,102,105,108,101,45,109,107,115,116,101,109,112,32,116,101,109,112,108,97,116,101,56,53,55,41,0,0,0,0,0,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,26),40,99,104,97,110,103,101,45,100,105,114,101,99,116,111,114,121,32,110,97,109,101,56,56,55,41,0,0,0,0,0,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,26),40,99,104,101,99,107,32,99,109,100,56,57,55,32,105,110,112,56,57,56,32,114,56,57,57,41,0,0,0,0,0,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,31),40,111,112,101,110,45,105,110,112,117,116,45,112,105,112,101,32,99,109,100,57,48,51,32,46,32,109,57,48,52,41,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,32),40,111,112,101,110,45,111,117,116,112,117,116,45,112,105,112,101,32,99,109,100,57,49,51,32,46,32,109,57,49,52,41}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,26),40,99,108,111,115,101,45,105,110,112,117,116,45,112,105,112,101,32,112,111,114,116,57,50,51,41,0,0,0,0,0,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,27),40,99,108,111,115,101,45,111,117,116,112,117,116,45,112,105,112,101,32,112,111,114,116,57,50,56,41,0,0,0,0,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,7),40,97,52,54,56,55,41,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,20),40,97,52,54,57,51,32,46,32,114,101,115,117,108,116,115,57,52,52,41,0,0,0,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,47),40,99,97,108,108,45,119,105,116,104,45,105,110,112,117,116,45,112,105,112,101,32,99,109,100,57,52,48,32,112,114,111,99,57,52,49,32,46,32,109,111,100,101,57,52,50,41,0}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,7),40,97,52,55,49,49,41,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,20),40,97,52,55,49,55,32,46,32,114,101,115,117,108,116,115,57,53,49,41,0,0,0,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,48),40,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,57,52,55,32,112,114,111,99,57,52,56,32,46,32,109,111,100,101,57,52,57,41}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,7),40,97,52,55,51,53,41,0}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,20),40,97,52,55,52,54,32,46,32,114,101,115,117,108,116,115,57,54,54,41,0,0,0,0}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,7),40,97,52,55,52,48,41,0}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,7),40,97,52,55,53,53,41,0}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,48),40,119,105,116,104,45,105,110,112,117,116,45,102,114,111,109,45,112,105,112,101,32,99,109,100,57,53,52,32,116,104,117,110,107,57,53,53,32,46,32,109,111,100,101,57,53,54,41}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,7),40,97,52,55,54,57,41,0}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,20),40,97,52,55,56,48,32,46,32,114,101,115,117,108,116,115,57,56,51,41,0,0,0,0}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,7),40,97,52,55,55,52,41,0}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,7),40,97,52,55,56,57,41,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,47),40,119,105,116,104,45,111,117,116,112,117,116,45,116,111,45,112,105,112,101,32,99,109,100,57,55,49,32,116,104,117,110,107,57,55,50,32,46,32,109,111,100,101,57,55,51,41,0}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,25),40,99,114,101,97,116,101,45,112,105,112,101,32,46,32,116,109,112,57,57,49,57,57,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,34),40,99,104,97,110,103,101,45,102,105,108,101,45,109,111,100,101,32,102,110,97,109,101,49,48,54,54,32,109,49,48,54,55,41,0,0,0,0,0,0}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,36),40,99,104,101,99,107,32,102,105,108,101,110,97,109,101,49,48,55,50,32,97,99,99,49,48,55,51,32,108,111,99,49,48,55,52,41,0,0,0,0}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,32),40,102,105,108,101,45,114,101,97,100,45,97,99,99,101,115,115,63,32,102,105,108,101,110,97,109,101,49,48,55,56,41}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,33),40,102,105,108,101,45,119,114,105,116,101,45,97,99,99,101,115,115,63,32,102,105,108,101,110,97,109,101,49,48,55,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,35),40,102,105,108,101,45,101,120,101,99,117,116,101,45,97,99,99,101,115,115,63,32,102,105,108,101,110,97,109,101,49,48,56,48,41,0,0,0,0,0}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,28),40,109,111,100,101,32,105,110,112,49,48,56,57,32,109,49,48,57,48,32,108,111,99,49,48,57,49,41,0,0,0,0}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,28),40,99,104,101,99,107,32,102,100,49,49,48,51,32,105,110,112,49,49,48,52,32,114,49,49,48,53,41,0,0,0,0}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,33),40,111,112,101,110,45,105,110,112,117,116,45,102,105,108,101,42,32,102,100,49,49,48,57,32,46,32,109,49,49,49,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,34),40,111,112,101,110,45,111,117,116,112,117,116,45,102,105,108,101,42,32,102,100,49,49,49,50,32,46,32,109,49,49,49,51,41,0,0,0,0,0,0}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,23),40,112,111,114,116,45,62,102,105,108,101,110,111,32,112,111,114,116,49,49,49,57,41,0}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,36),40,100,117,112,108,105,99,97,116,101,45,102,105,108,101,110,111,32,111,108,100,49,49,50,53,32,46,32,110,101,119,49,49,50,54,41,0,0,0,0}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,29),40,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,0,0,0}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,18),40,95,101,120,105,116,32,46,32,99,111,100,101,49,49,52,51,41,0,0,0,0,0,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,25),40,116,101,114,109,105,110,97,108,45,112,111,114,116,63,32,112,111,114,116,49,49,52,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,24),40,116,101,114,109,105,110,97,108,45,115,105,122,101,32,112,111,114,116,49,49,53,48,41}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,50),40,115,101,116,45,98,117,102,102,101,114,105,110,103,45,109,111,100,101,33,32,112,111,114,116,49,49,53,50,32,109,111,100,101,49,49,53,51,32,46,32,115,105,122,101,49,49,53,52,41,0,0,0,0,0,0}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,26),40,113,117,111,116,101,45,97,114,103,45,115,116,114,105,110,103,32,115,116,114,49,49,56,49,41,0,0,0,0,0,0}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,14),40,102,95,53,51,50,50,32,120,49,50,48,50,41,0,0}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,37),40,97,53,51,48,55,32,112,114,103,49,50,48,51,32,97,114,103,98,117,102,49,50,48,52,32,101,110,118,98,117,102,49,50,48,53,41,0,0,0}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,44),40,112,114,111,99,101,115,115,45,101,120,101,99,117,116,101,32,102,105,108,101,110,97,109,101,49,49,56,55,32,46,32,116,109,112,49,49,56,54,49,49,56,56,41,0,0,0,0}; static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,14),40,102,95,53,52,48,53,32,120,49,50,50,57,41,0,0}; static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,37),40,97,53,51,57,48,32,112,114,103,49,50,51,48,32,97,114,103,98,117,102,49,50,51,49,32,101,110,118,98,117,102,49,50,51,50,41,0,0,0}; static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,51),40,112,114,111,99,101,115,115,45,115,112,97,119,110,32,109,111,100,101,49,50,49,51,32,102,105,108,101,110,97,109,101,49,50,49,52,32,46,32,116,109,112,49,50,49,50,49,50,49,53,41,0,0,0,0,0}; static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,115,104,101,108,108,45,99,111,109,109,97,110,100,41,0,0,0}; static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,115,104,101,108,108,45,99,111,109,109,97,110,100,45,97,114,103,117,109,101,110,116,115,32,99,109,100,108,105,110,49,50,52,51,41,0,0,0,0,0,0}; static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,30),40,112,114,111,99,101,115,115,45,114,117,110,32,102,49,50,52,53,32,46,32,97,114,103,115,49,50,52,54,41,0,0}; static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,51,48,51,32,103,49,51,49,53,49,51,50,49,41}; static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,97),40,35,35,115,121,115,35,112,114,111,99,101,115,115,32,108,111,99,49,50,56,54,32,99,109,100,49,50,56,55,32,97,114,103,115,49,50,56,56,32,101,110,118,49,50,56,57,32,115,116,100,111,117,116,102,49,50,57,48,32,115,116,100,105,110,102,49,50,57,49,32,115,116,100,101,114,114,102,49,50,57,50,32,46,32,116,109,112,49,50,56,53,49,50,57,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,7),40,103,49,51,56,50,41,0}; static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,51,56,49,41,0,0,0,0,0}; static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,19),40,99,104,107,115,116,114,108,115,116,32,108,115,116,49,51,55,56,41,0,0,0,0,0}; static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,7),40,97,53,55,52,52,41,0}; static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,38),40,97,53,55,53,48,32,105,110,49,52,48,55,32,111,117,116,49,52,48,56,32,112,105,100,49,52,48,57,32,101,114,114,49,52,49,48,41,0,0}; static C_char C_TLS li158[] C_aligned={C_lihdr(0,0,63),40,37,112,114,111,99,101,115,115,32,108,111,99,49,51,55,49,32,101,114,114,63,49,51,55,50,32,99,109,100,49,51,55,51,32,97,114,103,115,49,51,55,52,32,101,110,118,49,51,55,53,32,101,120,97,99,116,102,49,51,55,54,41,0}; static C_char C_TLS li159[] C_aligned={C_lihdr(0,0,31),40,112,114,111,99,101,115,115,32,99,109,100,49,52,49,56,32,46,32,116,109,112,49,52,49,55,49,52,49,57,41,0}; static C_char C_TLS li160[] C_aligned={C_lihdr(0,0,32),40,112,114,111,99,101,115,115,42,32,99,109,100,49,52,51,54,32,46,32,116,109,112,49,52,51,53,49,52,51,55,41}; static C_char C_TLS li161[] C_aligned={C_lihdr(0,0,39),40,35,35,115,121,115,35,112,114,111,99,101,115,115,45,119,97,105,116,32,112,105,100,49,52,53,50,32,110,111,104,97,110,103,49,52,53,51,41,0}; static C_char C_TLS li162[] C_aligned={C_lihdr(0,0,13),40,115,108,101,101,112,32,115,49,52,53,53,41,0,0,0}; static C_char C_TLS li163[] C_aligned={C_lihdr(0,0,15),40,103,101,116,45,104,111,115,116,45,110,97,109,101,41,0}; static C_char C_TLS li164[] C_aligned={C_lihdr(0,0,20),40,115,121,115,116,101,109,45,105,110,102,111,114,109,97,116,105,111,110,41,0,0,0,0}; static C_char C_TLS li165[] C_aligned={C_lihdr(0,0,19),40,99,117,114,114,101,110,116,45,117,115,101,114,45,110,97,109,101,41,0,0,0,0,0}; static C_char C_TLS li166[] C_aligned={C_lihdr(0,0,72),40,109,97,112,45,102,105,108,101,45,116,111,45,109,101,109,111,114,121,32,97,100,100,114,49,52,57,55,32,108,101,110,49,52,57,56,32,112,114,111,116,49,52,57,57,32,102,108,97,103,49,53,48,48,32,102,100,49,53,48,49,32,46,32,111,102,102,49,53,48,50,41}; static C_char C_TLS li167[] C_aligned={C_lihdr(0,0,43),40,117,110,109,97,112,45,102,105,108,101,45,102,114,111,109,45,109,101,109,111,114,121,32,109,109,97,112,49,53,49,57,32,46,32,108,101,110,49,53,50,48,41,0,0,0,0,0}; static C_char C_TLS li168[] C_aligned={C_lihdr(0,0,37),40,109,101,109,111,114,121,45,109,97,112,112,101,100,45,102,105,108,101,45,112,111,105,110,116,101,114,32,109,109,97,112,49,53,50,52,41,0,0,0}; static C_char C_TLS li169[] C_aligned={C_lihdr(0,0,27),40,109,101,109,111,114,121,45,109,97,112,112,101,100,45,102,105,108,101,63,32,120,49,53,50,55,41,0,0,0,0,0}; static C_char C_TLS li170[] C_aligned={C_lihdr(0,0,31),40,99,104,97,110,103,101,45,100,105,114,101,99,116,111,114,121,42,32,46,32,95,49,53,53,56,49,53,54,50,41,0}; static C_char C_TLS li171[] C_aligned={C_lihdr(0,0,31),40,99,104,97,110,103,101,45,102,105,108,101,45,111,119,110,101,114,32,46,32,95,49,53,54,53,49,53,54,57,41,0}; static C_char C_TLS li172[] C_aligned={C_lihdr(0,0,25),40,99,114,101,97,116,101,45,102,105,102,111,32,46,32,95,49,53,55,49,49,53,55,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li173[] C_aligned={C_lihdr(0,0,28),40,99,114,101,97,116,101,45,115,101,115,115,105,111,110,32,46,32,95,49,53,55,55,49,53,56,49,41,0,0,0,0}; static C_char C_TLS li174[] C_aligned={C_lihdr(0,0,34),40,99,114,101,97,116,101,45,115,121,109,98,111,108,105,99,45,108,105,110,107,32,46,32,95,49,53,56,51,49,53,56,55,41,0,0,0,0,0,0}; static C_char C_TLS li175[] C_aligned={C_lihdr(0,0,40),40,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,49,53,56,57,49,53,57,51,41}; static C_char C_TLS li176[] C_aligned={C_lihdr(0,0,39),40,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,49,53,57,53,49,53,57,57,41,0}; static C_char C_TLS li177[] C_aligned={C_lihdr(0,0,41),40,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,49,54,48,49,49,54,48,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li178[] C_aligned={C_lihdr(0,0,30),40,99,117,114,114,101,110,116,45,103,114,111,117,112,45,105,100,32,46,32,95,49,54,48,55,49,54,49,49,41,0,0}; static C_char C_TLS li179[] C_aligned={C_lihdr(0,0,29),40,99,117,114,114,101,110,116,45,117,115,101,114,45,105,100,32,46,32,95,49,54,49,51,49,54,49,55,41,0,0,0}; static C_char C_TLS li180[] C_aligned={C_lihdr(0,0,23),40,102,105,108,101,45,108,105,110,107,32,46,32,95,49,54,49,57,49,54,50,51,41,0}; static C_char C_TLS li181[] C_aligned={C_lihdr(0,0,23),40,102,105,108,101,45,108,111,99,107,32,46,32,95,49,54,50,53,49,54,50,57,41,0}; static C_char C_TLS li182[] C_aligned={C_lihdr(0,0,32),40,102,105,108,101,45,108,111,99,107,47,98,108,111,99,107,105,110,103,32,46,32,95,49,54,51,49,49,54,51,53,41}; static C_char C_TLS li183[] C_aligned={C_lihdr(0,0,25),40,102,105,108,101,45,115,101,108,101,99,116,32,46,32,95,49,54,51,55,49,54,52,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li184[] C_aligned={C_lihdr(0,0,28),40,102,105,108,101,45,116,101,115,116,45,108,111,99,107,32,46,32,95,49,54,52,51,49,54,52,55,41,0,0,0,0}; static C_char C_TLS li185[] C_aligned={C_lihdr(0,0,27),40,102,105,108,101,45,116,114,117,110,99,97,116,101,32,46,32,95,49,54,52,57,49,54,53,51,41,0,0,0,0,0}; static C_char C_TLS li186[] C_aligned={C_lihdr(0,0,25),40,102,105,108,101,45,117,110,108,111,99,107,32,46,32,95,49,54,53,53,49,54,53,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li187[] C_aligned={C_lihdr(0,0,24),40,103,101,116,45,103,114,111,117,112,115,32,46,32,95,49,54,54,49,49,54,54,53,41}; static C_char C_TLS li188[] C_aligned={C_lihdr(0,0,31),40,103,114,111,117,112,45,105,110,102,111,114,109,97,116,105,111,110,32,46,32,95,49,54,54,55,49,54,55,49,41,0}; static C_char C_TLS li189[] C_aligned={C_lihdr(0,0,31),40,105,110,105,116,105,97,108,105,122,101,45,103,114,111,117,112,115,32,46,32,95,49,54,55,51,49,54,55,55,41,0}; static C_char C_TLS li190[] C_aligned={C_lihdr(0,0,31),40,112,97,114,101,110,116,45,112,114,111,99,101,115,115,45,105,100,32,46,32,95,49,54,55,57,49,54,56,51,41,0}; static C_char C_TLS li191[] C_aligned={C_lihdr(0,0,26),40,112,114,111,99,101,115,115,45,102,111,114,107,32,46,32,95,49,54,56,53,49,54,56,57,41,0,0,0,0,0,0}; static C_char C_TLS li192[] C_aligned={C_lihdr(0,0,30),40,112,114,111,99,101,115,115,45,103,114,111,117,112,45,105,100,32,46,32,95,49,54,57,49,49,54,57,53,41,0,0}; static C_char C_TLS li193[] C_aligned={C_lihdr(0,0,28),40,112,114,111,99,101,115,115,45,115,105,103,110,97,108,32,46,32,95,49,54,57,55,49,55,48,49,41,0,0,0,0}; static C_char C_TLS li194[] C_aligned={C_lihdr(0,0,32),40,114,101,97,100,45,115,121,109,98,111,108,105,99,45,108,105,110,107,32,46,32,95,49,55,48,51,49,55,48,55,41}; static C_char C_TLS li195[] C_aligned={C_lihdr(0,0,24),40,115,101,116,45,97,108,97,114,109,33,32,46,32,95,49,55,48,57,49,55,49,51,41}; static C_char C_TLS li196[] C_aligned={C_lihdr(0,0,27),40,115,101,116,45,103,114,111,117,112,45,105,100,33,32,46,32,95,49,55,49,53,49,55,49,57,41,0,0,0,0,0}; static C_char C_TLS li197[] C_aligned={C_lihdr(0,0,25),40,115,101,116,45,103,114,111,117,112,115,33,32,46,32,95,49,55,50,49,49,55,50,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li198[] C_aligned={C_lihdr(0,0,35),40,115,101,116,45,112,114,111,99,101,115,115,45,103,114,111,117,112,45,105,100,33,32,46,32,95,49,55,50,55,49,55,51,49,41,0,0,0,0,0}; static C_char C_TLS li199[] C_aligned={C_lihdr(0,0,33),40,115,101,116,45,114,111,111,116,45,100,105,114,101,99,116,111,114,121,33,32,46,32,95,49,55,51,51,49,55,51,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li200[] C_aligned={C_lihdr(0,0,30),40,115,101,116,45,115,105,103,110,97,108,45,109,97,115,107,33,32,46,32,95,49,55,51,57,49,55,52,51,41,0,0}; static C_char C_TLS li201[] C_aligned={C_lihdr(0,0,26),40,115,101,116,45,117,115,101,114,45,105,100,33,32,46,32,95,49,55,52,53,49,55,52,57,41,0,0,0,0,0,0}; static C_char C_TLS li202[] C_aligned={C_lihdr(0,0,25),40,115,105,103,110,97,108,45,109,97,115,107,32,46,32,95,49,55,53,49,49,55,53,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li203[] C_aligned={C_lihdr(0,0,26),40,115,105,103,110,97,108,45,109,97,115,107,33,32,46,32,95,49,55,53,55,49,55,54,49,41,0,0,0,0,0,0}; static C_char C_TLS li204[] C_aligned={C_lihdr(0,0,28),40,115,105,103,110,97,108,45,109,97,115,107,101,100,63,32,46,32,95,49,55,54,51,49,55,54,55,41,0,0,0,0}; static C_char C_TLS li205[] C_aligned={C_lihdr(0,0,28),40,115,105,103,110,97,108,45,117,110,109,97,115,107,33,32,46,32,95,49,55,54,57,49,55,55,51,41,0,0,0,0}; static C_char C_TLS li206[] C_aligned={C_lihdr(0,0,27),40,116,101,114,109,105,110,97,108,45,110,97,109,101,32,46,32,95,49,55,55,53,49,55,55,57,41,0,0,0,0,0}; static C_char C_TLS li207[] C_aligned={C_lihdr(0,0,30),40,117,115,101,114,45,105,110,102,111,114,109,97,116,105,111,110,32,46,32,95,49,55,56,49,49,55,56,53,41,0,0}; static C_char C_TLS li208[] C_aligned={C_lihdr(0,0,31),40,117,116,99,45,116,105,109,101,45,62,115,101,99,111,110,100,115,32,46,32,95,49,55,56,55,49,55,57,49,41,0}; static C_char C_TLS li209[] C_aligned={C_lihdr(0,0,26),40,115,116,114,105,110,103,45,62,116,105,109,101,32,46,32,95,49,55,57,51,49,55,57,55,41,0,0,0,0,0,0}; static C_char C_TLS li210[] C_aligned={C_lihdr(0,0,13),40,102,105,102,111,63,32,95,49,56,48,48,41,0,0,0}; static C_char C_TLS li211[] C_aligned={C_lihdr(0,0,14),40,97,54,51,55,57,32,115,105,103,54,51,57,41,0,0}; static C_char C_TLS li212[] C_aligned={C_lihdr(0,0,19),40,97,54,51,56,56,32,46,32,116,109,112,52,57,56,52,57,57,41,0,0,0,0,0}; static C_char C_TLS li213[] C_aligned={C_lihdr(0,0,13),40,97,54,52,49,51,32,117,109,53,49,49,41,0,0,0}; static C_char C_TLS li214[] C_aligned={C_lihdr(0,0,15),40,97,54,52,49,57,32,112,111,114,116,49,57,52,41,0}; static C_char C_TLS li215[] C_aligned={C_lihdr(0,0,12),40,97,54,52,53,54,32,102,49,49,48,41,0,0,0,0}; static C_char C_TLS li216[] C_aligned={C_lihdr(0,0,17),40,97,54,52,54,50,32,102,49,49,50,32,116,49,49,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li217[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; /* from k6071 */ C_regparm static C_word C_fcall stub1513(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_num_to_int(C_a1); C_r=C_fix((C_word)munmap(t0,t1)); return C_r;} /* from k6015 */ C_regparm static C_word C_fcall stub1492(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_mk_bool(is_bad_mmap(t0)); return C_r;} /* from k6006 */ C_regparm static C_word C_fcall stub1480(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_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; void * t0=(void * )C_c_pointer_or_null(C_a0); int t1=(int )C_num_to_int(C_a1); int t2=(int )C_unfix(C_a2); int t3=(int )C_unfix(C_a3); int t4=(int )C_unfix(C_a4); int t5=(int )C_num_to_int(C_a5); C_r=C_mpointer_or_false(&C_a,(void*)mmap(t0,t1,t2,t3,t4,t5)); return C_r;} /* from k5529 */ C_regparm static C_word C_fcall stub1258(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;} /* from k5118 */ C_regparm static C_word C_fcall stub1140(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); _exit(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 stub1134(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 stub665(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 k3769 */ C_regparm static C_word C_fcall stub621(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 k3667 */ C_regparm static C_word C_fcall stub582(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 k3654 */ C_regparm static C_word C_fcall stub572(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 k3587 */ C_regparm static C_word C_fcall stub544(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 k6471 in a6462 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ C_regparm static C_word C_fcall stub119(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_string_or_null(C_a0); C_word t1=(C_word )(C_a1); C_r=C_fix((C_word)set_file_mtime(t0,t1)); return C_r;} /* from k2312 */ C_regparm static C_word C_fcall stub67(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_2940) static void C_ccall f_2940(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_3281) static void C_ccall f_3281(C_word c,C_word *av) C_noret; C_noret_decl(f_2952) static void C_fcall f_2952(C_word t0,C_word t1,C_word t2) 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_2959) static void C_fcall f_2959(C_word t0,C_word t1) 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_2326) static void C_ccall f_2326(C_word c,C_word *av) C_noret; C_noret_decl(f_2333) static void C_fcall f_2333(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_2330) static void C_ccall f_2330(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_2754) static void C_ccall f_2754(C_word c,C_word *av) C_noret; C_noret_decl(f_2532) static void C_ccall f_2532(C_word c,C_word *av) C_noret; C_noret_decl(f_2530) static void C_ccall f_2530(C_word c,C_word *av) C_noret; C_noret_decl(f_2727) static void C_ccall f_2727(C_word c,C_word *av) C_noret; C_noret_decl(f_2729) static void C_ccall f_2729(C_word c,C_word *av) C_noret; C_noret_decl(f_2358) static void C_ccall f_2358(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_2540) static void C_ccall f_2540(C_word c,C_word *av) C_noret; C_noret_decl(f_2924) static void C_ccall f_2924(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_2550) static void C_ccall f_2550(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_4811) static void C_ccall f_4811(C_word c,C_word *av) C_noret; C_noret_decl(f_3253) static void C_ccall f_3253(C_word c,C_word *av) 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_2560) static void C_ccall f_2560(C_word c,C_word *av) C_noret; C_noret_decl(f_2713) static void C_ccall f_2713(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_4802) static void C_ccall f_4802(C_word c,C_word *av) C_noret; C_noret_decl(f_2572) static void C_ccall f_2572(C_word c,C_word *av) C_noret; C_noret_decl(f_2570) static void C_ccall f_2570(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_2580) static void C_ccall f_2580(C_word c,C_word *av) 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_2595) static void C_ccall f_2595(C_word c,C_word *av) C_noret; C_noret_decl(f_2590) static void C_ccall f_2590(C_word c,C_word *av) C_noret; C_noret_decl(f_2701) static void C_ccall f_2701(C_word c,C_word *av) C_noret; C_noret_decl(f_2599) static void C_fcall f_2599(C_word t0,C_word t1) 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_3853) static void C_ccall f_3853(C_word c,C_word *av) 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_3861) static void C_ccall f_3861(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_5002) static void C_ccall f_5002(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_3885) static void C_ccall f_3885(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_5014) static void C_ccall f_5014(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(f_5898) static void C_ccall f_5898(C_word c,C_word *av) C_noret; C_noret_decl(f_2303) static void C_ccall f_2303(C_word c,C_word *av) C_noret; C_noret_decl(f_2300) static void C_ccall f_2300(C_word c,C_word *av) C_noret; C_noret_decl(f_2319) static void C_ccall f_2319(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_5694) static void C_fcall f_5694(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_5696) static void C_fcall f_5696(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4315) static void C_fcall f_4315(C_word t0,C_word t1) C_noret; C_noret_decl(f_4312) static void C_ccall f_4312(C_word c,C_word *av) C_noret; C_noret_decl(f_5085) static void C_fcall f_5085(C_word t0,C_word t1) 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_5094) static void C_ccall f_5094(C_word c,C_word *av) 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_5680) static void C_ccall f_5680(C_word c,C_word *av) C_noret; C_noret_decl(f_6209) static void C_ccall f_6209(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_5062) static void C_ccall f_5062(C_word c,C_word *av) C_noret; C_noret_decl(f_5655) static void C_fcall f_5655(C_word t0,C_word t1,C_word t2) 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_5078) static void C_ccall f_5078(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_5492) static void C_ccall f_5492(C_word c,C_word *av) 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_4563) static void C_ccall f_4563(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_4117) static void C_ccall f_4117(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_5460) static void C_ccall f_5460(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_5044) static void C_ccall f_5044(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_4305) static void C_ccall f_4305(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_4105) static void C_ccall f_4105(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_6473) static void C_ccall f_6473(C_word c,C_word *av) C_noret; C_noret_decl(f_5056) static void C_ccall f_5056(C_word c,C_word *av) C_noret; C_noret_decl(f_6245) static void C_ccall f_6245(C_word c,C_word *av) C_noret; C_noret_decl(f_5471) static void C_ccall f_5471(C_word c,C_word *av) C_noret; C_noret_decl(f_5475) static void C_fcall f_5475(C_word t0,C_word t1) 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_5647) static void C_ccall f_5647(C_word c,C_word *av) C_noret; C_noret_decl(f_5028) static void C_ccall f_5028(C_word c,C_word *av) C_noret; C_noret_decl(f_5448) static void C_ccall f_5448(C_word c,C_word *av) C_noret; C_noret_decl(f_6233) static void C_ccall f_6233(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_5444) static void C_ccall f_5444(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_4321) static void C_ccall f_4321(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_5619) static void C_ccall f_5619(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_4153) static void C_ccall f_4153(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_4594) static void C_ccall f_4594(C_word c,C_word *av) C_noret; C_noret_decl(f_3778) static void C_fcall f_3778(C_word t0,C_word t1,C_word t2) 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_3563) static void C_ccall f_3563(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_6269) static void C_ccall f_6269(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_6263) static void C_ccall f_6263(C_word c,C_word *av) C_noret; C_noret_decl(f_4770) static void C_ccall f_4770(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_4124) static void C_ccall f_4124(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_5623) static void C_ccall f_5623(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_4785) static void C_ccall f_4785(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_6257) static void C_ccall f_6257(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_3559) static void C_ccall f_3559(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_4703) static void C_ccall f_4703(C_word c,C_word *av) C_noret; C_noret_decl(f_4707) static void C_ccall f_4707(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_3790) static void C_fcall f_3790(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6436) static void C_ccall f_6436(C_word c,C_word *av) C_noret; C_noret_decl(f_4795) static void C_ccall f_4795(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_6281) static void C_ccall f_6281(C_word c,C_word *av) C_noret; C_noret_decl(f_5269) static void C_ccall f_5269(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_4142) static void C_fcall f_4142(C_word t0,C_word t1) C_noret; C_noret_decl(f_4149) static void C_ccall f_4149(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_4545) static void C_fcall f_4545(C_word t0,C_word t1,C_word t2,C_word t3) 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_5608) static void C_ccall f_5608(C_word c,C_word *av) C_noret; C_noret_decl(f_6461) static void C_ccall f_6461(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_4364) static void C_ccall f_4364(C_word c,C_word *av) C_noret; C_noret_decl(f_6275) static void C_ccall f_6275(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_4199) static void C_fcall f_4199(C_word t0,C_word t1) 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_5838) static void C_ccall f_5838(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_4372) static void C_fcall f_4372(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5244) static C_word C_fcall f_5244(C_word t0,C_word t1); C_noret_decl(f_4161) static void C_ccall f_4161(C_word c,C_word *av) C_noret; C_noret_decl(f_6084) static void C_fcall f_6084(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_3590) static void C_ccall f_3590(C_word c,C_word *av) C_noret; C_noret_decl(f_6299) static void C_ccall f_6299(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_4380) static void C_ccall f_4380(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_5631) static void C_ccall f_5631(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_4577) static void C_ccall f_4577(C_word c,C_word *av) C_noret; C_noret_decl(f_3542) static void C_ccall f_3542(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_3706) static void C_ccall f_3706(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_6028) static void C_fcall f_6028(C_word t0,C_word t1) C_noret; C_noret_decl(f_4584) static void C_ccall f_4584(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_3703) static void C_ccall f_3703(C_word c,C_word *av) C_noret; C_noret_decl(f_6427) static void C_ccall f_6427(C_word c,C_word *av) C_noret; C_noret_decl(f_6424) static void C_ccall f_6424(C_word c,C_word *av) C_noret; C_noret_decl(f_6420) static void C_ccall f_6420(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_3538) static void C_ccall f_3538(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_4512) static void C_ccall f_4512(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_6043) static void C_fcall f_6043(C_word t0,C_word t1) C_noret; C_noret_decl(f_4521) static void C_ccall f_4521(C_word c,C_word *av) C_noret; C_noret_decl(f_3727) static void C_ccall f_3727(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_2887) static void C_ccall f_2887(C_word c,C_word *av) C_noret; C_noret_decl(f_2884) static void C_ccall f_2884(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_3808) static void C_ccall f_3808(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_4712) static void C_ccall f_4712(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_4961) static void C_fcall f_4961(C_word t0,C_word t1,C_word t2,C_word t3) 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_2892) static void C_fcall f_2892(C_word t0,C_word t1,C_word t2) 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_3838) static void C_ccall f_3838(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_4722) static void C_ccall f_4722(C_word c,C_word *av) C_noret; C_noret_decl(f_4969) static void C_ccall f_4969(C_word c,C_word *av) C_noret; C_noret_decl(f_3735) static void C_ccall f_3735(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_4736) static void C_ccall f_4736(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_6227) static void C_ccall f_6227(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_3760) static void C_ccall f_3760(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_4998) static void C_fcall f_4998(C_word t0,C_word t1,C_word t2,C_word t3) 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_4747) static void C_ccall f_4747(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_3519) static void C_fcall f_3519(C_word t0,C_word t1,C_word t2) 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_3750) static void C_ccall f_3750(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_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_4756) static void C_ccall f_4756(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_4765) static void C_ccall f_4765(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_3304) static void C_ccall f_3304(C_word c,C_word *av) C_noret; C_noret_decl(f_3306) static void C_fcall f_3306(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_2878) static void C_ccall f_2878(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(f_3110) static void C_fcall f_3110(C_word t0,C_word t1) 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_3387) static void C_ccall f_3387(C_word c,C_word *av) C_noret; C_noret_decl(f_3328) static void C_ccall f_3328(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_3353) static void C_ccall f_3353(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_3186) static void C_fcall f_3186(C_word t0,C_word t1,C_word t2) 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_3372) static void C_ccall f_3372(C_word c,C_word *av) C_noret; C_noret_decl(f_3379) static void C_ccall f_3379(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_noret; C_noret_decl(f_3362) static void C_ccall f_3362(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_3391) static void C_ccall f_3391(C_word c,C_word *av) C_noret; C_noret_decl(f_3394) static void C_ccall f_3394(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_2867) static void C_ccall f_2867(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_noret; C_noret_decl(f_2423) static void C_ccall f_2423(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_2427) static void C_ccall f_2427(C_word c,C_word *av) C_noret; C_noret_decl(f_2421) static void C_ccall f_2421(C_word c,C_word *av) C_noret; C_noret_decl(f_2435) static void C_ccall f_2435(C_word c,C_word *av) C_noret; C_noret_decl(f_2433) static void C_ccall f_2433(C_word c,C_word *av) C_noret; C_noret_decl(f_2288) static void C_ccall f_2288(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_2657) static void C_ccall f_2657(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_2817) static void C_ccall f_2817(C_word c,C_word *av) C_noret; C_noret_decl(f_2297) static void C_ccall f_2297(C_word c,C_word *av) C_noret; C_noret_decl(f_2294) static void C_ccall f_2294(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_4910) static void C_ccall f_4910(C_word c,C_word *av) C_noret; C_noret_decl(f_2820) static void C_ccall f_2820(C_word c,C_word *av) C_noret; C_noret_decl(f_2838) static void C_ccall f_2838(C_word c,C_word *av) C_noret; C_noret_decl(f_4918) static void C_ccall f_4918(C_word c,C_word *av) C_noret; C_noret_decl(f_3120) static void C_ccall f_3120(C_word c,C_word *av) C_noret; C_noret_decl(f_2644) static void C_ccall f_2644(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_2649) static void C_fcall f_2649(C_word t0,C_word t1,C_word t2,C_word t3) 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_4920) static void C_fcall f_4920(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4938) static void C_ccall f_4938(C_word c,C_word *av) C_noret; C_noret_decl(f_2686) static void C_fcall f_2686(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3943) static void C_ccall f_3943(C_word c,C_word *av) C_noret; C_noret_decl(f_3940) static void C_ccall f_3940(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_3948) static void C_ccall f_3948(C_word c,C_word *av) C_noret; C_noret_decl(f_5943) static void C_ccall f_5943(C_word c,C_word *av) C_noret; C_noret_decl(f_3932) static void C_fcall f_3932(C_word t0,C_word t1,C_word t2,C_word t3) 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_5954) static void C_ccall f_5954(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_3964) static void C_ccall f_3964(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_3960) static void C_ccall f_3960(C_word c,C_word *av) C_noret; C_noret_decl(f_3969) static void C_ccall f_3969(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_2611) static void C_ccall f_2611(C_word c,C_word *av) C_noret; C_noret_decl(f_2617) static void C_ccall f_2617(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_3971) static void C_fcall f_3971(C_word t0,C_word t1) C_noret; C_noret_decl(f_3977) static void C_fcall f_3977(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5910) static void C_ccall f_5910(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_3409) static void C_ccall f_3409(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_3993) static void C_ccall f_3993(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_6317) static void C_ccall f_6317(C_word c,C_word *av) C_noret; C_noret_decl(f_6311) static void C_ccall f_6311(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_2405) static void C_ccall f_2405(C_word c,C_word *av) C_noret; C_noret_decl(f_2409) static void C_ccall f_2409(C_word c,C_word *av) C_noret; C_noret_decl(f_6305) static void C_ccall f_6305(C_word c,C_word *av) C_noret; C_noret_decl(f_2415) static void C_ccall f_2415(C_word c,C_word *av) C_noret; C_noret_decl(f_2411) static void C_ccall f_2411(C_word c,C_word *av) C_noret; C_noret_decl(f_2417) static void C_ccall f_2417(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_5592) static void C_ccall f_5592(C_word c,C_word *av) C_noret; C_noret_decl(f_5701) static C_word C_fcall f_5701(C_word t0,C_word t1); C_noret_decl(f_5308) static void C_ccall f_5308(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_4461) static void C_ccall f_4461(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_6110) static void C_ccall f_6110(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_5737) static void C_ccall f_5737(C_word c,C_word *av) C_noret; C_noret_decl(f_4215) static void C_ccall f_4215(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_6185) static void C_ccall f_6185(C_word c,C_word *av) C_noret; C_noret_decl(f_4018) static void C_ccall f_4018(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_5740) static void C_ccall f_5740(C_word c,C_word *av) 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_4002) static void C_ccall f_4002(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_3689) static void C_ccall f_3689(C_word c,C_word *av) 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_6380) static void C_ccall f_6380(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_5578) static void C_ccall f_5578(C_word c,C_word *av) C_noret; C_noret_decl(f_4239) static void C_ccall f_4239(C_word c,C_word *av) C_noret; C_noret_decl(f_6179) static void C_ccall f_6179(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_6167) static void C_ccall f_6167(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_6161) static void C_ccall f_6161(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_3452) static void C_ccall f_3452(C_word c,C_word *av) C_noret; C_noret_decl(f_6389) static void C_ccall f_6389(C_word c,C_word *av) C_noret; C_noret_decl(f_3466) static void C_ccall f_3466(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_4286) static void C_ccall f_4286(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_5778) static void C_ccall f_5778(C_word c,C_word *av) C_noret; C_noret_decl(f_3045) static void C_ccall f_3045(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_3485) static void C_ccall f_3485(C_word c,C_word *av) C_noret; C_noret_decl(f_3482) static void C_ccall f_3482(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_5772) static void C_ccall f_5772(C_word c,C_word *av) C_noret; C_noret_decl(f_6366) static void C_ccall f_6366(C_word c,C_word *av) C_noret; C_noret_decl(f_4051) static void C_fcall f_4051(C_word t0,C_word t1) 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_6143) static void C_ccall f_6143(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_4671) static void C_ccall f_4671(C_word c,C_word *av) C_noret; C_noret_decl(f_6149) static void C_ccall f_6149(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_4045) static void C_ccall f_4045(C_word c,C_word *av) C_noret; C_noret_decl(f_6353) static void C_ccall f_6353(C_word c,C_word *av) C_noret; C_noret_decl(f_4060) static void C_fcall f_4060(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6359) static void C_ccall f_6359(C_word c,C_word *av) 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_5928) static void C_ccall f_5928(C_word c,C_word *av) C_noret; C_noret_decl(f_5160) static void C_ccall f_5160(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_4688) static void C_ccall f_4688(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_4221) static void C_ccall f_4221(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_6131) static void C_ccall f_6131(C_word c,C_word *av) C_noret; C_noret_decl(f_3063) static void C_ccall f_3063(C_word c,C_word *av) 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_3060) static void C_ccall f_3060(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_4055) static void C_ccall f_4055(C_word c,C_word *av) C_noret; C_noret_decl(f_5710) static C_word C_fcall f_5710(C_word t0,C_word t1); C_noret_decl(f_4070) static void C_ccall f_4070(C_word c,C_word *av) C_noret; C_noret_decl(f_6347) static void C_ccall f_6347(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_5939) static void C_ccall f_5939(C_word c,C_word *av) C_noret; C_noret_decl(f_5174) static void C_fcall f_5174(C_word t0,C_word t1) 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_4698) static void C_ccall f_4698(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_4277) static void C_ccall f_4277(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_4271) static void C_ccall f_4271(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_3493) static void C_ccall f_3493(C_word c,C_word *av) C_noret; C_noret_decl(f_3496) static void C_ccall f_3496(C_word c,C_word *av) C_noret; C_noret_decl(f_3490) static void C_ccall f_3490(C_word c,C_word *av) C_noret; C_noret_decl(f_6335) static void C_ccall f_6335(C_word c,C_word *av) C_noret; C_noret_decl(f_5186) static void C_fcall f_5186(C_word t0,C_word t1) 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_4442) static void C_ccall f_4442(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_4603) static void C_ccall f_4603(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_6197) static void C_ccall f_6197(C_word c,C_word *av) C_noret; C_noret_decl(f_6191) static void C_ccall f_6191(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_noret; C_noret_decl(f_4073) static void C_ccall f_4073(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_6329) static void C_ccall f_6329(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_3098) static void C_ccall f_3098(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_4087) static void C_fcall f_4087(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_4085) static void C_ccall f_4085(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_4481) static void C_fcall f_4481(C_word t0,C_word t1) 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_4097) static void C_ccall f_4097(C_word c,C_word *av) C_noret; C_noret_decl(f_5751) static void C_ccall f_5751(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_4474) static void C_fcall f_4474(C_word t0,C_word t1,C_word t2) 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_5135) static void C_ccall f_5135(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_6155) static void C_ccall f_6155(C_word c,C_word *av) C_noret; C_noret_decl(f_3628) static void C_ccall f_3628(C_word c,C_word *av) C_noret; C_noret_decl(f_4419) static void C_fcall f_4419(C_word t0,C_word t1,C_word t2) 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_3470) static void C_ccall f_3470(C_word c,C_word *av) C_noret; C_noret_decl(f_3473) static void C_ccall f_3473(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_3476) static void C_ccall f_3476(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_4617) static void C_ccall f_4617(C_word c,C_word *av) C_noret; C_noret_decl(f_3636) static void C_ccall f_3636(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_3412) static void C_ccall f_3412(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_5322) static void C_ccall f_5322(C_word c,C_word *av) 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_3427) static void C_ccall f_3427(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_3443) static void C_ccall f_3443(C_word c,C_word *av) C_noret; C_noret_decl(f_3444) static void C_ccall f_3444(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_3418) static void C_ccall f_3418(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_4643) static void C_ccall f_4643(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_4653) static void C_ccall f_4653(C_word c,C_word *av) C_noret; C_noret_decl(f_4650) static void C_ccall f_4650(C_word c,C_word *av) C_noret; C_noret_decl(f_4028) static void C_fcall f_4028(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4668) static void C_ccall f_4668(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_2787) static void C_ccall f_2787(C_word c,C_word *av) C_noret; C_noret_decl(f_2784) static void C_fcall f_2784(C_word t0,C_word t1) 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_2978) static void C_ccall f_2978(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_2985) static void C_ccall f_2985(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_2992) static void C_ccall f_2992(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_3201) static void C_ccall f_3201(C_word c,C_word *av) 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_3297) static void C_fcall f_3297(C_word t0,C_word t1) C_noret; C_noret_decl(f_3294) static void C_fcall f_3294(C_word t0,C_word t1) C_noret; C_noret_decl(f_3249) static void C_ccall f_3249(C_word c,C_word *av) C_noret; C_noret_decl(f_3241) static void C_fcall f_3241(C_word t0,C_word t1,C_word t2) 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_2362) static void C_ccall f_2362(C_word c,C_word *av) C_noret; C_noret_decl(f_3261) static void C_ccall f_3261(C_word c,C_word *av) C_noret; C_noret_decl(f_2934) static void C_ccall f_2934(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_2371) static void C_ccall f_2371(C_word c,C_word *av) C_noret; C_noret_decl(trf_2952) static void C_ccall trf_2952(C_word c,C_word *av) C_noret; static void C_ccall trf_2952(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2952(t0,t1,t2);} C_noret_decl(trf_2959) static void C_ccall trf_2959(C_word c,C_word *av) C_noret; static void C_ccall trf_2959(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2959(t0,t1);} C_noret_decl(trf_2333) static void C_ccall trf_2333(C_word c,C_word *av) C_noret; static void C_ccall trf_2333(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_2333(t0,t1,t2,t3,t4);} C_noret_decl(trf_2599) static void C_ccall trf_2599(C_word c,C_word *av) C_noret; static void C_ccall trf_2599(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2599(t0,t1);} C_noret_decl(trf_5694) static void C_ccall trf_5694(C_word c,C_word *av) C_noret; static void C_ccall trf_5694(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_5694(t0,t1,t2,t3,t4,t5,t6);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_5696(t0,t1,t2);} C_noret_decl(trf_4315) static void C_ccall trf_4315(C_word c,C_word *av) C_noret; static void C_ccall trf_4315(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4315(t0,t1);} C_noret_decl(trf_5085) static void C_ccall trf_5085(C_word c,C_word *av) C_noret; static void C_ccall trf_5085(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5085(t0,t1);} C_noret_decl(trf_5655) static void C_ccall trf_5655(C_word c,C_word *av) C_noret; static void C_ccall trf_5655(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5655(t0,t1,t2);} C_noret_decl(trf_5475) static void C_ccall trf_5475(C_word c,C_word *av) C_noret; static void C_ccall trf_5475(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5475(t0,t1);} C_noret_decl(trf_3778) static void C_ccall trf_3778(C_word c,C_word *av) C_noret; static void C_ccall trf_3778(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3778(t0,t1,t2);} C_noret_decl(trf_3790) static void C_ccall trf_3790(C_word c,C_word *av) C_noret; static void C_ccall trf_3790(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3790(t0,t1,t2);} C_noret_decl(trf_4142) static void C_ccall trf_4142(C_word c,C_word *av) C_noret; static void C_ccall trf_4142(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4142(t0,t1);} C_noret_decl(trf_4545) static void C_ccall trf_4545(C_word c,C_word *av) C_noret; static void C_ccall trf_4545(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4545(t0,t1,t2,t3);} C_noret_decl(trf_4199) static void C_ccall trf_4199(C_word c,C_word *av) C_noret; static void C_ccall trf_4199(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4199(t0,t1);} C_noret_decl(trf_4372) static void C_ccall trf_4372(C_word c,C_word *av) C_noret; static void C_ccall trf_4372(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4372(t0,t1,t2);} C_noret_decl(trf_6084) static void C_ccall trf_6084(C_word c,C_word *av) C_noret; static void C_ccall trf_6084(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6084(t0,t1);} C_noret_decl(trf_6028) static void C_ccall trf_6028(C_word c,C_word *av) C_noret; static void C_ccall trf_6028(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6028(t0,t1);} C_noret_decl(trf_6043) static void C_ccall trf_6043(C_word c,C_word *av) C_noret; static void C_ccall trf_6043(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6043(t0,t1);} C_noret_decl(trf_4961) static void C_ccall trf_4961(C_word c,C_word *av) C_noret; static void C_ccall trf_4961(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4961(t0,t1,t2,t3);} C_noret_decl(trf_2892) static void C_ccall trf_2892(C_word c,C_word *av) C_noret; static void C_ccall trf_2892(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2892(t0,t1,t2);} C_noret_decl(trf_4998) static void C_ccall trf_4998(C_word c,C_word *av) C_noret; static void C_ccall trf_4998(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4998(t0,t1,t2,t3);} C_noret_decl(trf_3519) static void C_ccall trf_3519(C_word c,C_word *av) C_noret; static void C_ccall trf_3519(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3519(t0,t1,t2);} C_noret_decl(trf_3306) static void C_ccall trf_3306(C_word c,C_word *av) C_noret; static void C_ccall trf_3306(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_3306(t0,t1,t2,t3,t4);} C_noret_decl(trf_3110) static void C_ccall trf_3110(C_word c,C_word *av) C_noret; static void C_ccall trf_3110(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3110(t0,t1);} C_noret_decl(trf_3186) static void C_ccall trf_3186(C_word c,C_word *av) C_noret; static void C_ccall trf_3186(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3186(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_2844(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_2868(t0,t1,t2);} C_noret_decl(trf_2649) static void C_ccall trf_2649(C_word c,C_word *av) C_noret; static void C_ccall trf_2649(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2649(t0,t1,t2,t3);} C_noret_decl(trf_4920) static void C_ccall trf_4920(C_word c,C_word *av) C_noret; static void C_ccall trf_4920(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4920(t0,t1,t2,t3);} C_noret_decl(trf_2686) static void C_ccall trf_2686(C_word c,C_word *av) C_noret; static void C_ccall trf_2686(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_2686(t0,t1,t2,t3,t4);} C_noret_decl(trf_3932) static void C_ccall trf_3932(C_word c,C_word *av) C_noret; static void C_ccall trf_3932(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3932(t0,t1,t2,t3);} C_noret_decl(trf_3971) static void C_ccall trf_3971(C_word c,C_word *av) C_noret; static void C_ccall trf_3971(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3971(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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3977(t0,t1,t2,t3);} C_noret_decl(trf_4051) static void C_ccall trf_4051(C_word c,C_word *av) C_noret; static void C_ccall trf_4051(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4051(t0,t1);} C_noret_decl(trf_4060) static void C_ccall trf_4060(C_word c,C_word *av) C_noret; static void C_ccall trf_4060(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4060(t0,t1,t2);} C_noret_decl(trf_5174) static void C_ccall trf_5174(C_word c,C_word *av) C_noret; static void C_ccall trf_5174(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5174(t0,t1);} C_noret_decl(trf_5186) static void C_ccall trf_5186(C_word c,C_word *av) C_noret; static void C_ccall trf_5186(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5186(t0,t1);} 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[1]; C_word t1=av[0]; f_3084(t0,t1);} C_noret_decl(trf_4087) static void C_ccall trf_4087(C_word c,C_word *av) C_noret; static void C_ccall trf_4087(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_4087(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_4481) static void C_ccall trf_4481(C_word c,C_word *av) C_noret; static void C_ccall trf_4481(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4481(t0,t1);} C_noret_decl(trf_4474) static void C_ccall trf_4474(C_word c,C_word *av) C_noret; static void C_ccall trf_4474(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4474(t0,t1,t2);} C_noret_decl(trf_4419) static void C_ccall trf_4419(C_word c,C_word *av) C_noret; static void C_ccall trf_4419(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4419(t0,t1,t2);} C_noret_decl(trf_4028) static void C_ccall trf_4028(C_word c,C_word *av) C_noret; static void C_ccall trf_4028(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4028(t0,t1,t2);} C_noret_decl(trf_2784) static void C_ccall trf_2784(C_word c,C_word *av) C_noret; static void C_ccall trf_2784(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2784(t0,t1);} 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_3297) static void C_ccall trf_3297(C_word c,C_word *av) C_noret; static void C_ccall trf_3297(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3297(t0,t1);} C_noret_decl(trf_3294) static void C_ccall trf_3294(C_word c,C_word *av) C_noret; static void C_ccall trf_3294(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3294(t0,t1);} C_noret_decl(trf_3241) static void C_ccall trf_3241(C_word c,C_word *av) C_noret; static void C_ccall trf_3241(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3241(t0,t1,t2);} /* k2938 in create-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 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_2940,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_2950,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2994,a[2]=((C_word*)t0)[3],a[3]=((C_word)li29),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3000,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:459: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_3023,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:450: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[13]+1); av2[1]=t4; av2[2]=t3; av2[3]=lf[83]; tp(4,av2);}}}} /* file-stat in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_2383,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_2390,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:244: ##sys#stat */ f_2333(t6,t2,t5,C_SCHEME_TRUE,lf[18]);} /* k3279 in a3206 in conc-loop in glob in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3281,2,av);} /* posix-common.scm:504: ##sys#glob->regexp */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[95]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[95]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* loop in k2948 in k2938 in create-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_2952(C_word t0,C_word t1,C_word 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_2952,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2959,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_2992,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:461: directory? */ 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);}} else{ t4=t3; f_2959(t4,C_SCHEME_FALSE);}} /* k2948 in k2938 in create-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2950,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_2952,a[2]=t3,a[3]=((C_word)li28),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_2952(t5,((C_word*)t0)[2],t1);} /* k2957 in loop in k2948 in k2938 in create-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_2959(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_2959,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2962,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_2985,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:462: pathname-directory */ t4=*((C_word*)lf[85]+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);}}} /* k2388 in file-stat in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(30,c,1)))){ C_save_and_reclaim((void *)f_2390,2,av);} a=C_alloc(30); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_a_double_to_num(&a,C_statbuf.st_size),C_flonum(&a,C_statbuf.st_atime),C_flonum(&a,C_statbuf.st_ctime),C_flonum(&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*)lf[19]+1),*((C_word*)lf[20]+1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2324 in k2317 in posix-error in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_2326,2,av);}{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#stat in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_2333(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_2333,5,t1,t2,t3,t4,t5);} a=C_alloc(12); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2337,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_fstat(t2); f_2337(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2358,a[2]=t6,a[3]=t2,a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:225: port? */ t8=*((C_word*)lf[17]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* k2335 in stat in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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(0,c,5)))){ C_save_and_reclaim((void *)f_2337,2,av);} if(C_truep(C_fixnum_lessp(t1,C_fix(0)))){ if(C_truep(((C_word*)t0)[2])){ /* posix-common.scm:239: posix-error */ t2=lf[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[10]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[11]; av2[5]=((C_word*)t0)[5]; f_2315(6,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k2328 in k2317 in posix-error in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2330,2,av);} /* posix-common.scm:185: string-append */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* regular-file? in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_2522,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2530,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:284: file-type */ t4=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2752 in k2769 */ static void C_ccall f_2754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2754,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* symbolic-link? in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2532(C_word c,C_word *av){ C_word tmp; C_word 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_2532,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2540,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:287: file-type */ t4=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2528 in regular-file? in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2530,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(lf[28],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2725 */ static void C_ccall f_2727(C_word c,C_word *av){ C_word tmp; C_word t0=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_2727,2,av);} a=C_alloc(2); t2=C_fdopen(&a,2,((C_word*)t0)[2],t1); /* posix-common.scm:381: check */ f_2686(((C_word*)t0)[4],lf[65],((C_word*)t0)[2],C_SCHEME_FALSE,t2);} /* f_2729 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2729,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_fix(0),C_SCHEME_TRUE,lf[12]); t5=C_slot(t2,C_fix(7)); t6=C_eqp(lf[34],t5); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2745,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:391: ##sys#port-data */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[66]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[66]+1); av2[1]=t7; av2[2]=t2; tp(3,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2771,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:392: ##sys#peek-unsigned-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[69]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[69]+1); av2[1]=t7; av2[2]=t2; av2[3]=C_fix(0); tp(4,av2);}}} /* k2356 in stat in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2358,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2362,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:225: port->fileno */ t3=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_2371,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2378,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:228: ##sys#platform-fixup-pathname */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ /* posix-common.scm:235: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[15]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[16]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* block-device? in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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!=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_2542,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2550,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:290: file-type */ t4=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2538 in symbolic-link? in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2540,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(lf[29],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* create-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2924(C_word c,C_word *av){ C_word tmp; C_word 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_2924,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[83]); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2934,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_2940,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; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t10; f_2940(2,av2);}} else{ /* posix-common.scm:457: file-exists? */ t12=*((C_word*)lf[88]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t11; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}} /* character-device? in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; 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_2552,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2560,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:293: file-type */ t4=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2548 in block-device? in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2550(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2550,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(lf[32],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2743 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2745,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_slot(t1,C_fix(0)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4809 in create-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4811,2,av);} /* posixwin.scm:891: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[10]; av2[3]=lf[210]; av2[4]=lf[211]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3251 in k3247 in g422 in k3235 in loop in k3216 in k3209 in a3206 in conc-loop in glob in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3253(C_word c,C_word *av){ C_word tmp; 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_3253,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* f_2562 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_2562,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2570,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:296: file-type */ t4=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2558 in character-device? in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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,1)))){ C_save_and_reclaim((void *)f_2560,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(lf[31],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2711 */ static void C_ccall f_2713(C_word c,C_word *av){ C_word tmp; C_word t0=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_2713,2,av);} a=C_alloc(2); t2=C_fdopen(&a,2,((C_word*)t0)[2],t1); /* posix-common.scm:377: check */ f_2686(((C_word*)t0)[4],lf[64],((C_word*)t0)[2],C_SCHEME_TRUE,t2);} /* f_2715 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 +5,c,4)))){ C_save_and_reclaim((void*)f_2715,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=C_i_check_exact_2(t2,lf[65]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2727,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:381: mode */ f_2649(t5,C_SCHEME_FALSE,t3,lf[65]);} /* k4800 in create-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4802,2,av);} /* posixwin.scm:892: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* socket? in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2572(C_word c,C_word *av){ C_word tmp; C_word 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_2572,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2580,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:299: file-type */ t4=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2568 */ static void C_ccall f_2570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2570,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(lf[33],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* directory? in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 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_2582,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2590,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:302: file-type */ t4=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2578 in socket? in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2580,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(lf[34],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2960 in k2957 in loop in k2948 in k2938 in create-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2962,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_2978,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:450: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[13]+1); av2[1]=t4; av2[2]=t3; av2[3]=lf[83]; tp(4,av2);}} /* set-file-position! in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_2595,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_2599,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t4))){ t6=t4; t7=t5; f_2599(t7,C_u_i_car(t6));} else{ t6=t5; f_2599(t6,C_fix((C_word)SEEK_SET));}} /* k2588 in directory? in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2590,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(lf[30],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_2701 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2701(C_word c,C_word *av){ C_word tmp; C_word 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_2701,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=C_i_check_exact_2(t2,lf[64]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2713,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:377: mode */ f_2649(t5,C_SCHEME_TRUE,t3,lf[64]);} /* k2597 in set-file-position! in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_2599(C_word t0,C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_2599,2,t0,t1);} a=C_alloc(11); t2=t1; t3=C_i_check_exact_2(((C_word*)t0)[2],lf[45]); t4=C_i_check_exact_2(t2,lf[45]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2611,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); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2617,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:320: port? */ t7=*((C_word*)lf[17]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k2900 in for-each-loop288 in k2865 in delete-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2902,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2892(t3,((C_word*)t0)[4],t2);} /* k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t8; C_word t9; C_word t10; C_word t11; C_word 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(337,c,9)))){ C_save_and_reclaim((void *)f_3853,2,av);} a=C_alloc(337); t2=C_mutate2((C_word*)lf[127]+1 /* (set! signal-handler ...) */,t1); t3=C_mutate2((C_word*)lf[128]+1 /* (set! current-process-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3855,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[129]+1 /* (set! process-wait ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3861,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2(&lf[133] /* (set! list->c-string-buffer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3932,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2(&lf[135] /* (set! free-c-string-buffer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4051,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp)); t7=*((C_word*)lf[145]+1); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4085,a[2]=((C_word)li83),tmp=(C_word)a,a+=3,tmp); t9=C_mutate2(&lf[146] /* (set! call-with-exec-args ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4087,a[2]=t8,a[3]=t7,a[4]=((C_word)li91),tmp=(C_word)a,a+=5,tmp)); t10=C_mutate2((C_word*)lf[147]+1 /* (set! pipe/buf ...) */,C_fix((C_word)PIPE_BUF)); t11=C_mutate2((C_word*)lf[148]+1 /* (set! open/rdonly ...) */,C_fix((C_word)O_RDONLY)); t12=C_mutate2((C_word*)lf[149]+1 /* (set! open/wronly ...) */,C_fix((C_word)O_WRONLY)); t13=C_mutate2((C_word*)lf[150]+1 /* (set! open/rdwr ...) */,C_fix((C_word)O_RDWR)); t14=C_mutate2((C_word*)lf[151]+1 /* (set! open/read ...) */,C_fix((C_word)O_RDWR)); t15=C_mutate2((C_word*)lf[152]+1 /* (set! open/write ...) */,C_fix((C_word)O_WRONLY)); t16=C_mutate2((C_word*)lf[153]+1 /* (set! open/creat ...) */,C_fix((C_word)O_CREAT)); t17=C_mutate2((C_word*)lf[154]+1 /* (set! open/append ...) */,C_fix((C_word)O_APPEND)); t18=C_mutate2((C_word*)lf[155]+1 /* (set! open/excl ...) */,C_fix((C_word)O_EXCL)); t19=C_mutate2((C_word*)lf[156]+1 /* (set! open/trunc ...) */,C_fix((C_word)O_TRUNC)); t20=C_mutate2((C_word*)lf[157]+1 /* (set! open/binary ...) */,C_fix((C_word)O_BINARY)); t21=C_mutate2((C_word*)lf[158]+1 /* (set! open/text ...) */,C_fix((C_word)O_TEXT)); t22=C_mutate2((C_word*)lf[159]+1 /* (set! open/noinherit ...) */,C_fix((C_word)O_NOINHERIT)); t23=C_mutate2((C_word*)lf[160]+1 /* (set! perm/irusr ...) */,C_fix((C_word)S_IREAD)); t24=C_mutate2((C_word*)lf[161]+1 /* (set! perm/iwusr ...) */,C_fix((C_word)S_IWRITE)); t25=C_mutate2((C_word*)lf[162]+1 /* (set! perm/ixusr ...) */,C_fix((C_word)S_IEXEC)); t26=C_mutate2((C_word*)lf[163]+1 /* (set! perm/irgrp ...) */,C_fix((C_word)S_IREAD)); t27=C_mutate2((C_word*)lf[164]+1 /* (set! perm/iwgrp ...) */,C_fix((C_word)S_IWRITE)); t28=C_mutate2((C_word*)lf[165]+1 /* (set! perm/ixgrp ...) */,C_fix((C_word)S_IEXEC)); t29=C_mutate2((C_word*)lf[166]+1 /* (set! perm/iroth ...) */,C_fix((C_word)S_IREAD)); t30=C_mutate2((C_word*)lf[167]+1 /* (set! perm/iwoth ...) */,C_fix((C_word)S_IWRITE)); t31=C_mutate2((C_word*)lf[168]+1 /* (set! perm/ixoth ...) */,C_fix((C_word)S_IEXEC)); t32=C_mutate2((C_word*)lf[169]+1 /* (set! perm/irwxu ...) */,C_fix((C_word)S_IREAD | S_IWRITE | S_IEXEC)); t33=C_mutate2((C_word*)lf[170]+1 /* (set! perm/irwxg ...) */,C_fix((C_word)S_IREAD | S_IWRITE | S_IEXEC)); t34=C_mutate2((C_word*)lf[171]+1 /* (set! perm/irwxo ...) */,C_fix((C_word)S_IREAD | S_IWRITE | S_IEXEC)); t35=C_fixnum_or(C_fix((C_word)S_IREAD),C_fix((C_word)S_IREAD)); t36=C_a_i_bitwise_ior(&a,2,C_fix((C_word)S_IREAD | S_IWRITE | S_IEXEC),t35); t37=t36; t38=C_mutate2((C_word*)lf[172]+1 /* (set! file-open ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4195,a[2]=t37,a[3]=((C_word)li92),tmp=(C_word)a,a+=4,tmp)); t39=C_mutate2((C_word*)lf[174]+1 /* (set! file-close ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4230,a[2]=((C_word)li94),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate2((C_word*)lf[177]+1 /* (set! file-read ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4261,a[2]=((C_word)li95),tmp=(C_word)a,a+=3,tmp)); t41=C_mutate2((C_word*)lf[180]+1 /* (set! file-write ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4305,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp)); t42=C_mutate2((C_word*)lf[183]+1 /* (set! file-mkstemp ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4345,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp)); t43=C_mutate2((C_word*)lf[73]+1 /* (set! change-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4505,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp)); t44=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4545,a[2]=((C_word)li102),tmp=(C_word)a,a+=3,tmp); t45=C_mutate2((C_word*)lf[195]+1 /* (set! open-input-pipe ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4563,a[2]=t44,a[3]=((C_word)li103),tmp=(C_word)a,a+=4,tmp)); t46=C_mutate2((C_word*)lf[199]+1 /* (set! open-output-pipe ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4603,a[2]=t44,a[3]=((C_word)li104),tmp=(C_word)a,a+=4,tmp)); t47=C_mutate2((C_word*)lf[200]+1 /* (set! close-input-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4643,a[2]=((C_word)li105),tmp=(C_word)a,a+=3,tmp)); t48=C_mutate2((C_word*)lf[202]+1 /* (set! close-output-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4661,a[2]=((C_word)li106),tmp=(C_word)a,a+=3,tmp)); t49=C_mutate2((C_word*)lf[204]+1 /* (set! call-with-input-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4679,a[2]=((C_word)li109),tmp=(C_word)a,a+=3,tmp)); t50=C_mutate2((C_word*)lf[205]+1 /* (set! call-with-output-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4703,a[2]=((C_word)li112),tmp=(C_word)a,a+=3,tmp)); t51=C_mutate2((C_word*)lf[206]+1 /* (set! with-input-from-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4727,a[2]=((C_word)li117),tmp=(C_word)a,a+=3,tmp)); t52=C_mutate2((C_word*)lf[208]+1 /* (set! with-output-to-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4761,a[2]=((C_word)li122),tmp=(C_word)a,a+=3,tmp)); t53=C_mutate2((C_word*)lf[210]+1 /* (set! create-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4795,a[2]=((C_word)li123),tmp=(C_word)a,a+=3,tmp)); t54=C_mutate2((C_word*)lf[212]+1 /* (set! signal/term ...) */,C_fix((C_word)SIGTERM)); t55=C_mutate2((C_word*)lf[213]+1 /* (set! signal/int ...) */,C_fix((C_word)SIGINT)); t56=C_mutate2((C_word*)lf[214]+1 /* (set! signal/fpe ...) */,C_fix((C_word)SIGFPE)); t57=C_mutate2((C_word*)lf[215]+1 /* (set! signal/ill ...) */,C_fix((C_word)SIGILL)); t58=C_mutate2((C_word*)lf[216]+1 /* (set! signal/segv ...) */,C_fix((C_word)SIGSEGV)); t59=C_mutate2((C_word*)lf[217]+1 /* (set! signal/abrt ...) */,C_fix((C_word)SIGABRT)); t60=C_mutate2((C_word*)lf[218]+1 /* (set! signal/break ...) */,C_fix((C_word)SIGBREAK)); t61=C_set_block_item(lf[219] /* signal/alrm */,0,C_fix(0)); t62=C_set_block_item(lf[220] /* signal/chld */,0,C_fix(0)); t63=C_set_block_item(lf[221] /* signal/cont */,0,C_fix(0)); t64=C_set_block_item(lf[222] /* signal/hup */,0,C_fix(0)); t65=C_set_block_item(lf[223] /* signal/io */,0,C_fix(0)); t66=C_set_block_item(lf[224] /* signal/kill */,0,C_fix(0)); t67=C_set_block_item(lf[225] /* signal/pipe */,0,C_fix(0)); t68=C_set_block_item(lf[226] /* signal/prof */,0,C_fix(0)); t69=C_set_block_item(lf[227] /* signal/quit */,0,C_fix(0)); t70=C_set_block_item(lf[228] /* signal/stop */,0,C_fix(0)); t71=C_set_block_item(lf[229] /* signal/trap */,0,C_fix(0)); t72=C_set_block_item(lf[230] /* signal/tstp */,0,C_fix(0)); t73=C_set_block_item(lf[231] /* signal/urg */,0,C_fix(0)); t74=C_set_block_item(lf[232] /* signal/usr1 */,0,C_fix(0)); t75=C_set_block_item(lf[233] /* signal/usr2 */,0,C_fix(0)); t76=C_set_block_item(lf[234] /* signal/vtalrm */,0,C_fix(0)); t77=C_set_block_item(lf[235] /* signal/winch */,0,C_fix(0)); t78=C_set_block_item(lf[236] /* signal/xcpu */,0,C_fix(0)); t79=C_set_block_item(lf[237] /* signal/xfsz */,0,C_fix(0)); t80=C_a_i_list7(&a,7,*((C_word*)lf[212]+1),*((C_word*)lf[213]+1),*((C_word*)lf[214]+1),*((C_word*)lf[215]+1),*((C_word*)lf[216]+1),*((C_word*)lf[217]+1),*((C_word*)lf[218]+1)); t81=C_mutate2((C_word*)lf[238]+1 /* (set! signals-list ...) */,t80); t82=C_mutate2((C_word*)lf[239]+1 /* (set! errno/perm ...) */,C_fix((C_word)EPERM)); t83=C_mutate2((C_word*)lf[240]+1 /* (set! errno/noent ...) */,C_fix((C_word)ENOENT)); t84=C_mutate2((C_word*)lf[241]+1 /* (set! errno/srch ...) */,C_fix((C_word)ESRCH)); t85=C_mutate2((C_word*)lf[242]+1 /* (set! errno/intr ...) */,C_fix((C_word)EINTR)); t86=C_mutate2((C_word*)lf[243]+1 /* (set! errno/io ...) */,C_fix((C_word)EIO)); t87=C_mutate2((C_word*)lf[244]+1 /* (set! errno/noexec ...) */,C_fix((C_word)ENOEXEC)); t88=C_mutate2((C_word*)lf[245]+1 /* (set! errno/badf ...) */,C_fix((C_word)EBADF)); t89=C_mutate2((C_word*)lf[246]+1 /* (set! errno/child ...) */,C_fix((C_word)ECHILD)); t90=C_mutate2((C_word*)lf[247]+1 /* (set! errno/nomem ...) */,C_fix((C_word)ENOMEM)); t91=C_mutate2((C_word*)lf[248]+1 /* (set! errno/acces ...) */,C_fix((C_word)EACCES)); t92=C_mutate2((C_word*)lf[249]+1 /* (set! errno/fault ...) */,C_fix((C_word)EFAULT)); t93=C_mutate2((C_word*)lf[250]+1 /* (set! errno/busy ...) */,C_fix((C_word)EBUSY)); t94=C_mutate2((C_word*)lf[251]+1 /* (set! errno/exist ...) */,C_fix((C_word)EEXIST)); t95=C_mutate2((C_word*)lf[252]+1 /* (set! errno/notdir ...) */,C_fix((C_word)ENOTDIR)); t96=C_mutate2((C_word*)lf[253]+1 /* (set! errno/isdir ...) */,C_fix((C_word)EISDIR)); t97=C_mutate2((C_word*)lf[254]+1 /* (set! errno/inval ...) */,C_fix((C_word)EINVAL)); t98=C_mutate2((C_word*)lf[255]+1 /* (set! errno/mfile ...) */,C_fix((C_word)EMFILE)); t99=C_mutate2((C_word*)lf[256]+1 /* (set! errno/nospc ...) */,C_fix((C_word)ENOSPC)); t100=C_mutate2((C_word*)lf[257]+1 /* (set! errno/spipe ...) */,C_fix((C_word)ESPIPE)); t101=C_mutate2((C_word*)lf[258]+1 /* (set! errno/pipe ...) */,C_fix((C_word)EPIPE)); t102=C_mutate2((C_word*)lf[259]+1 /* (set! errno/again ...) */,C_fix((C_word)EAGAIN)); t103=C_mutate2((C_word*)lf[260]+1 /* (set! errno/rofs ...) */,C_fix((C_word)EROFS)); t104=C_mutate2((C_word*)lf[261]+1 /* (set! errno/nxio ...) */,C_fix((C_word)ENXIO)); t105=C_mutate2((C_word*)lf[262]+1 /* (set! errno/2big ...) */,C_fix((C_word)E2BIG)); t106=C_mutate2((C_word*)lf[263]+1 /* (set! errno/xdev ...) */,C_fix((C_word)EXDEV)); t107=C_mutate2((C_word*)lf[264]+1 /* (set! errno/nodev ...) */,C_fix((C_word)ENODEV)); t108=C_mutate2((C_word*)lf[265]+1 /* (set! errno/nfile ...) */,C_fix((C_word)ENFILE)); t109=C_mutate2((C_word*)lf[266]+1 /* (set! errno/notty ...) */,C_fix((C_word)ENOTTY)); t110=C_mutate2((C_word*)lf[267]+1 /* (set! errno/fbig ...) */,C_fix((C_word)EFBIG)); t111=C_mutate2((C_word*)lf[268]+1 /* (set! errno/mlink ...) */,C_fix((C_word)EMLINK)); t112=C_mutate2((C_word*)lf[269]+1 /* (set! errno/dom ...) */,C_fix((C_word)EDOM)); t113=C_mutate2((C_word*)lf[270]+1 /* (set! errno/range ...) */,C_fix((C_word)ERANGE)); t114=C_mutate2((C_word*)lf[271]+1 /* (set! errno/deadlk ...) */,C_fix((C_word)EDEADLK)); t115=C_mutate2((C_word*)lf[272]+1 /* (set! errno/nametoolong ...) */,C_fix((C_word)ENAMETOOLONG)); t116=C_mutate2((C_word*)lf[273]+1 /* (set! errno/nolck ...) */,C_fix((C_word)ENOLCK)); t117=C_mutate2((C_word*)lf[274]+1 /* (set! errno/nosys ...) */,C_fix((C_word)ENOSYS)); t118=C_mutate2((C_word*)lf[275]+1 /* (set! errno/notempty ...) */,C_fix((C_word)ENOTEMPTY)); t119=C_mutate2((C_word*)lf[276]+1 /* (set! errno/ilseq ...) */,C_fix((C_word)EILSEQ)); t120=C_mutate2((C_word*)lf[277]+1 /* (set! change-file-mode ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4894,a[2]=((C_word)li124),tmp=(C_word)a,a+=3,tmp)); t121=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4920,a[2]=((C_word)li125),tmp=(C_word)a,a+=3,tmp); t122=C_mutate2((C_word*)lf[279]+1 /* (set! file-read-access? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4940,a[2]=t121,a[3]=((C_word)li126),tmp=(C_word)a,a+=4,tmp)); t123=C_mutate2((C_word*)lf[280]+1 /* (set! file-write-access? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4946,a[2]=t121,a[3]=((C_word)li127),tmp=(C_word)a,a+=4,tmp)); t124=C_mutate2((C_word*)lf[281]+1 /* (set! file-execute-access? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4952,a[2]=t121,a[3]=((C_word)li128),tmp=(C_word)a,a+=4,tmp)); t125=C_mutate2((C_word*)lf[50]+1 /* (set! fileno/stdin ...) */,C_fix((C_word)0)); t126=C_mutate2((C_word*)lf[51]+1 /* (set! fileno/stdout ...) */,C_fix((C_word)1)); t127=C_mutate2((C_word*)lf[52]+1 /* (set! fileno/stderr ...) */,C_fix((C_word)2)); t128=C_SCHEME_UNDEFINED; t129=(*a=C_VECTOR_TYPE|1,a[1]=t128,tmp=(C_word)a,a+=2,tmp); t130=C_SCHEME_UNDEFINED; t131=(*a=C_VECTOR_TYPE|1,a[1]=t130,tmp=(C_word)a,a+=2,tmp); t132=C_set_block_item(t129,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4961,a[2]=((C_word)li129),tmp=(C_word)a,a+=3,tmp)); t133=C_set_block_item(t131,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4998,a[2]=((C_word)li130),tmp=(C_word)a,a+=3,tmp)); t134=C_mutate2((C_word*)lf[64]+1 /* (set! open-input-file* ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5016,a[2]=t131,a[3]=t129,a[4]=((C_word)li131),tmp=(C_word)a,a+=5,tmp)); t135=C_mutate2((C_word*)lf[65]+1 /* (set! open-output-file* ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5030,a[2]=t131,a[3]=t129,a[4]=((C_word)li132),tmp=(C_word)a,a+=5,tmp)); t136=C_mutate2((C_word*)lf[12]+1 /* (set! port->fileno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5044,a[2]=((C_word)li133),tmp=(C_word)a,a+=3,tmp)); t137=C_mutate2((C_word*)lf[70]+1 /* (set! duplicate-fileno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5078,a[2]=((C_word)li134),tmp=(C_word)a,a+=3,tmp)); t138=C_mutate2((C_word*)lf[292]+1 /* (set! local-timezone-abbreviation ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5108,a[2]=((C_word)li135),tmp=(C_word)a,a+=3,tmp)); t139=C_mutate2((C_word*)lf[293]+1 /* (set! _exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5121,a[2]=((C_word)li136),tmp=(C_word)a,a+=3,tmp)); t140=C_mutate2((C_word*)lf[294]+1 /* (set! terminal-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5135,a[2]=((C_word)li137),tmp=(C_word)a,a+=3,tmp)); t141=C_mutate2((C_word*)lf[295]+1 /* (set! terminal-size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5153,a[2]=((C_word)li138),tmp=(C_word)a,a+=3,tmp)); t142=C_mutate2((C_word*)lf[297]+1 /* (set! set-buffering-mode! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5168,a[2]=((C_word)li139),tmp=(C_word)a,a+=3,tmp)); t143=C_mutate2((C_word*)lf[303]+1 /* (set! spawn/overlay ...) */,C_fix((C_word)P_OVERLAY)); t144=C_mutate2((C_word*)lf[304]+1 /* (set! spawn/wait ...) */,C_fix((C_word)P_WAIT)); t145=C_mutate2((C_word*)lf[305]+1 /* (set! spawn/nowait ...) */,C_fix((C_word)P_NOWAIT)); t146=C_mutate2((C_word*)lf[306]+1 /* (set! spawn/nowaito ...) */,C_fix((C_word)P_NOWAITO)); t147=C_mutate2((C_word*)lf[307]+1 /* (set! spawn/detach ...) */,C_fix((C_word)P_DETACH)); t148=C_mutate2(&lf[308] /* (set! quote-arg-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5269,a[2]=((C_word)li141),tmp=(C_word)a,a+=3,tmp)); t149=C_mutate2((C_word*)lf[311]+1 /* (set! process-execute ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5281,a[2]=((C_word)li144),tmp=(C_word)a,a+=3,tmp)); t150=C_mutate2((C_word*)lf[313]+1 /* (set! process-spawn ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5361,a[2]=((C_word)li147),tmp=(C_word)a,a+=3,tmp)); t151=C_mutate2((C_word*)lf[315]+1 /* (set! ##sys#shell-command ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5444,a[2]=((C_word)li148),tmp=(C_word)a,a+=3,tmp)); t152=C_mutate2((C_word*)lf[319]+1 /* (set! ##sys#shell-command-arguments ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5465,a[2]=((C_word)li149),tmp=(C_word)a,a+=3,tmp)); t153=C_mutate2((C_word*)lf[321]+1 /* (set! process-run ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5471,a[2]=((C_word)li150),tmp=(C_word)a,a+=3,tmp)); t154=C_mutate2((C_word*)lf[322]+1 /* (set! ##sys#process ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5561,a[2]=((C_word)li152),tmp=(C_word)a,a+=3,tmp)); t155=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5694,a[2]=((C_word)li158),tmp=(C_word)a,a+=3,tmp); t156=C_mutate2((C_word*)lf[327]+1 /* (set! process ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5778,a[2]=t155,a[3]=((C_word)li159),tmp=(C_word)a,a+=4,tmp)); t157=C_mutate2((C_word*)lf[328]+1 /* (set! process* ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5838,a[2]=t155,a[3]=((C_word)li160),tmp=(C_word)a,a+=4,tmp)); t158=C_mutate2((C_word*)lf[130]+1 /* (set! ##sys#process-wait ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5898,a[2]=((C_word)li161),tmp=(C_word)a,a+=3,tmp)); t159=C_mutate2((C_word*)lf[329]+1 /* (set! sleep ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5910,a[2]=((C_word)li162),tmp=(C_word)a,a+=3,tmp)); t160=C_mutate2((C_word*)lf[330]+1 /* (set! get-host-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5916,a[2]=((C_word)li163),tmp=(C_word)a,a+=3,tmp)); t161=C_mutate2((C_word*)lf[332]+1 /* (set! system-information ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5928,a[2]=((C_word)li164),tmp=(C_word)a,a+=3,tmp)); t162=C_mutate2((C_word*)lf[335]+1 /* (set! current-user-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5959,a[2]=((C_word)li165),tmp=(C_word)a,a+=3,tmp)); t163=C_mutate2((C_word*)lf[337]+1 /* (set! prot/none ...) */,C_fix((C_word)PROT_NONE)); t164=C_mutate2((C_word*)lf[338]+1 /* (set! prot/read ...) */,C_fix((C_word)PROT_READ)); t165=C_mutate2((C_word*)lf[339]+1 /* (set! prot/write ...) */,C_fix((C_word)PROT_WRITE)); t166=C_mutate2((C_word*)lf[340]+1 /* (set! prot/exec ...) */,C_fix((C_word)PROT_EXEC)); t167=C_mutate2((C_word*)lf[341]+1 /* (set! map/file ...) */,C_fix((C_word)MAP_FILE)); t168=C_mutate2((C_word*)lf[342]+1 /* (set! map/shared ...) */,C_fix((C_word)MAP_SHARED)); t169=C_mutate2((C_word*)lf[343]+1 /* (set! map/private ...) */,C_fix((C_word)MAP_PRIVATE)); t170=C_mutate2((C_word*)lf[344]+1 /* (set! map/fixed ...) */,C_fix((C_word)MAP_FIXED)); t171=C_mutate2((C_word*)lf[345]+1 /* (set! map/anonymous ...) */,C_fix((C_word)MAP_ANONYMOUS)); t172=C_mutate2((C_word*)lf[346]+1 /* (set! map-file-to-memory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6021,a[2]=((C_word)li166),tmp=(C_word)a,a+=3,tmp)); t173=C_mutate2((C_word*)lf[351]+1 /* (set! unmap-file-from-memory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6077,a[2]=((C_word)li167),tmp=(C_word)a,a+=3,tmp)); t174=C_mutate2((C_word*)lf[353]+1 /* (set! memory-mapped-file-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6110,a[2]=((C_word)li168),tmp=(C_word)a,a+=3,tmp)); t175=C_mutate2((C_word*)lf[354]+1 /* (set! memory-mapped-file? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6119,a[2]=((C_word)li169),tmp=(C_word)a,a+=3,tmp)); t176=C_mutate2((C_word*)lf[355]+1 /* (set! change-directory* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6125,a[2]=((C_word)li170),tmp=(C_word)a,a+=3,tmp)); t177=C_mutate2((C_word*)lf[356]+1 /* (set! change-file-owner ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6131,a[2]=((C_word)li171),tmp=(C_word)a,a+=3,tmp)); t178=C_mutate2((C_word*)lf[357]+1 /* (set! create-fifo ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6137,a[2]=((C_word)li172),tmp=(C_word)a,a+=3,tmp)); t179=C_mutate2((C_word*)lf[358]+1 /* (set! create-session ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6143,a[2]=((C_word)li173),tmp=(C_word)a,a+=3,tmp)); t180=C_mutate2((C_word*)lf[359]+1 /* (set! create-symbolic-link ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6149,a[2]=((C_word)li174),tmp=(C_word)a,a+=3,tmp)); t181=C_mutate2((C_word*)lf[360]+1 /* (set! current-effective-group-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6155,a[2]=((C_word)li175),tmp=(C_word)a,a+=3,tmp)); t182=C_mutate2((C_word*)lf[361]+1 /* (set! current-effective-user-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6161,a[2]=((C_word)li176),tmp=(C_word)a,a+=3,tmp)); t183=C_mutate2((C_word*)lf[362]+1 /* (set! current-effective-user-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6167,a[2]=((C_word)li177),tmp=(C_word)a,a+=3,tmp)); t184=C_mutate2((C_word*)lf[363]+1 /* (set! current-group-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6173,a[2]=((C_word)li178),tmp=(C_word)a,a+=3,tmp)); t185=C_mutate2((C_word*)lf[364]+1 /* (set! current-user-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6179,a[2]=((C_word)li179),tmp=(C_word)a,a+=3,tmp)); t186=C_mutate2((C_word*)lf[365]+1 /* (set! file-link ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6185,a[2]=((C_word)li180),tmp=(C_word)a,a+=3,tmp)); t187=C_mutate2((C_word*)lf[366]+1 /* (set! file-lock ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6191,a[2]=((C_word)li181),tmp=(C_word)a,a+=3,tmp)); t188=C_mutate2((C_word*)lf[367]+1 /* (set! file-lock/blocking ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6197,a[2]=((C_word)li182),tmp=(C_word)a,a+=3,tmp)); t189=C_mutate2((C_word*)lf[368]+1 /* (set! file-select ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6203,a[2]=((C_word)li183),tmp=(C_word)a,a+=3,tmp)); t190=C_mutate2((C_word*)lf[369]+1 /* (set! file-test-lock ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6209,a[2]=((C_word)li184),tmp=(C_word)a,a+=3,tmp)); t191=C_mutate2((C_word*)lf[370]+1 /* (set! file-truncate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6215,a[2]=((C_word)li185),tmp=(C_word)a,a+=3,tmp)); t192=C_mutate2((C_word*)lf[371]+1 /* (set! file-unlock ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6221,a[2]=((C_word)li186),tmp=(C_word)a,a+=3,tmp)); t193=C_mutate2((C_word*)lf[372]+1 /* (set! get-groups ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6227,a[2]=((C_word)li187),tmp=(C_word)a,a+=3,tmp)); t194=C_mutate2((C_word*)lf[373]+1 /* (set! group-information ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6233,a[2]=((C_word)li188),tmp=(C_word)a,a+=3,tmp)); t195=C_mutate2((C_word*)lf[374]+1 /* (set! initialize-groups ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6239,a[2]=((C_word)li189),tmp=(C_word)a,a+=3,tmp)); t196=C_mutate2((C_word*)lf[375]+1 /* (set! parent-process-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6245,a[2]=((C_word)li190),tmp=(C_word)a,a+=3,tmp)); t197=C_mutate2((C_word*)lf[376]+1 /* (set! process-fork ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6251,a[2]=((C_word)li191),tmp=(C_word)a,a+=3,tmp)); t198=C_mutate2((C_word*)lf[377]+1 /* (set! process-group-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6257,a[2]=((C_word)li192),tmp=(C_word)a,a+=3,tmp)); t199=C_mutate2((C_word*)lf[378]+1 /* (set! process-signal ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6263,a[2]=((C_word)li193),tmp=(C_word)a,a+=3,tmp)); t200=C_mutate2((C_word*)lf[379]+1 /* (set! read-symbolic-link ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6269,a[2]=((C_word)li194),tmp=(C_word)a,a+=3,tmp)); t201=C_mutate2((C_word*)lf[380]+1 /* (set! set-alarm! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6275,a[2]=((C_word)li195),tmp=(C_word)a,a+=3,tmp)); t202=C_mutate2((C_word*)lf[381]+1 /* (set! set-group-id! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6281,a[2]=((C_word)li196),tmp=(C_word)a,a+=3,tmp)); t203=C_mutate2((C_word*)lf[382]+1 /* (set! set-groups! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6287,a[2]=((C_word)li197),tmp=(C_word)a,a+=3,tmp)); t204=C_mutate2((C_word*)lf[383]+1 /* (set! set-process-group-id! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6293,a[2]=((C_word)li198),tmp=(C_word)a,a+=3,tmp)); t205=C_mutate2((C_word*)lf[384]+1 /* (set! set-root-directory! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6299,a[2]=((C_word)li199),tmp=(C_word)a,a+=3,tmp)); t206=C_mutate2((C_word*)lf[385]+1 /* (set! set-signal-mask! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6305,a[2]=((C_word)li200),tmp=(C_word)a,a+=3,tmp)); t207=C_mutate2((C_word*)lf[386]+1 /* (set! set-user-id! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6311,a[2]=((C_word)li201),tmp=(C_word)a,a+=3,tmp)); t208=C_mutate2((C_word*)lf[387]+1 /* (set! signal-mask ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6317,a[2]=((C_word)li202),tmp=(C_word)a,a+=3,tmp)); t209=C_mutate2((C_word*)lf[388]+1 /* (set! signal-mask! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6323,a[2]=((C_word)li203),tmp=(C_word)a,a+=3,tmp)); t210=C_mutate2((C_word*)lf[389]+1 /* (set! signal-masked? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6329,a[2]=((C_word)li204),tmp=(C_word)a,a+=3,tmp)); t211=C_mutate2((C_word*)lf[390]+1 /* (set! signal-unmask! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6335,a[2]=((C_word)li205),tmp=(C_word)a,a+=3,tmp)); t212=C_mutate2((C_word*)lf[391]+1 /* (set! terminal-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6341,a[2]=((C_word)li206),tmp=(C_word)a,a+=3,tmp)); t213=C_mutate2((C_word*)lf[392]+1 /* (set! user-information ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6347,a[2]=((C_word)li207),tmp=(C_word)a,a+=3,tmp)); t214=C_mutate2((C_word*)lf[393]+1 /* (set! utc-time->seconds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6353,a[2]=((C_word)li208),tmp=(C_word)a,a+=3,tmp)); t215=C_mutate2((C_word*)lf[394]+1 /* (set! string->time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6359,a[2]=((C_word)li209),tmp=(C_word)a,a+=3,tmp)); t216=C_set_block_item(lf[395] /* errno/wouldblock */,0,C_fix(0)); t217=C_mutate2((C_word*)lf[39]+1 /* (set! fifo? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6366,a[2]=((C_word)li210),tmp=(C_word)a,a+=3,tmp)); t218=C_set_block_item(lf[396] /* open/fsync */,0,C_fix(0)); t219=C_set_block_item(lf[397] /* open/noctty */,0,C_fix(0)); t220=C_set_block_item(lf[398] /* open/nonblock */,0,C_fix(0)); t221=C_set_block_item(lf[399] /* open/sync */,0,C_fix(0)); t222=C_set_block_item(lf[400] /* perm/isgid */,0,C_fix(0)); t223=C_set_block_item(lf[401] /* perm/isuid */,0,C_fix(0)); t224=C_set_block_item(lf[402] /* perm/isvtx */,0,C_fix(0)); t225=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t225; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t225+1)))(2,av2);}} /* current-process-id in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *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_3855,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fudge(C_fix(33)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* process-wait in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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((c-2)*C_SIZEOF_PAIR +9,c,5)))){ C_save_and_reclaim((void*)f_3861,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; 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_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=C_i_check_exact_2(t13,lf[129]); t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3885,a[2]=t13,a[3]=t9,a[4]=((C_word)li69),tmp=(C_word)a,a+=5,tmp); t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3891,a[2]=t13,a[3]=((C_word)li70),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:679: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t15; av2[3]=t16; C_call_with_values(4,av2);}} /* a3890 in process-wait in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_3891,5,av);} t5=C_eqp(t2,C_fix(-1)); if(C_truep(t5)){ /* posix-common.scm:681: posix-error */ t6=lf[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=lf[131]; av2[3]=lf[129]; av2[4]=lf[132]; av2[5]=((C_word*)t0)[2]; f_2315(6,av2);}} else{ /* posix-common.scm:682: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; C_values(5,av2);}}} /* k5000 in check in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_5002,2,av);} a=C_alloc(4); if(C_truep(C_null_pointerp(((C_word*)t0)[2]))){ /* posixwin.scm:1030: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[10]; av2[3]=lf[287]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5014,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:1031: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[61]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[61]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=*((C_word*)lf[62]+1); av2[4]=lf[288]; av2[5]=lf[47]; tp(6,av2);}}} /* f_3504 in a3501 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_3504,4,av);} a=C_alloc(3); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a3884 in process-wait in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *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_3885,2,av);} /* posix-common.scm:679: ##sys#process-wait */ t2=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3501 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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!=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_3502,2,av);} a=C_alloc(3); t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3504,a[2]=((C_word)li51),tmp=(C_word)a,a+=3,tmp); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5012 in k5000 in check in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5014,2,av);} t2=C_set_file_ptr(t1,((C_word*)t0)[2]); t3=t1; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* open-input-file* in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_5016,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=C_i_check_exact_2(t2,lf[64]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5028,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:1037: mode */ f_4961(t5,C_SCHEME_TRUE,t3,lf[64]);} /* ##sys#process-wait in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_5898(C_word c,C_word *av){ C_word tmp; C_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_5898,4,av);} if(C_truep(C_process_wait(t2,t3))){ /* posixwin.scm:1273: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=C_fix((C_word)C_exstatus); C_values(5,av2);}} else{ /* posixwin.scm:1274: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,6)))){ C_save_and_reclaim((void *)f_2303,2,av);} a=C_alloc(18); t2=C_mutate2(&lf[2] /* (set! posix-error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2315,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[8]+1 /* (set! ##sys#posix-error ...) */,lf[2]); t4=C_mutate2(&lf[9] /* (set! ##sys#stat ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2333,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[18]+1 /* (set! file-stat ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2383,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2403,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6457,a[2]=((C_word)li215),tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6463,a[2]=((C_word)li216),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:252: getter-with-setter */ t9=*((C_word*)lf[403]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t6; av2[2]=t7; av2[3]=t8; av2[4]=lf[410]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2300,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2303,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_lolevel_toplevel(2,av2);}} /* k2317 in posix-error in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_2319,2,av);} a=C_alloc(15); 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*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2330,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=stub67(t4,t5); /* posix-common.scm:181: ##sys#peek-c-string */ t7=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* posix-error in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_2315,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_2319,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:184: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[7]+1); av2[1]=t6; tp(2,av2);}} /* %process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_5694(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 *a; if(C_unlikely(!C_demand(C_calculate_demand(25,0,3)))){ C_save_and_reclaim_args((void *)trf_5694,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(25); 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_5696,a[2]=t2,a[3]=((C_word)li155),tmp=(C_word)a,a+=4,tmp); t12=C_i_check_string_2(((C_word*)t8)[1],t2); t13=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5737,a[2]=t2,a[3]=t8,a[4]=t9,a[5]=t6,a[6]=t3,a[7]=t10,a[8]=t1,a[9]=t11,tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t9)[1])){ /* posixwin.scm:1252: chkstrlst */ t14=t11; f_5696(t14,t13,((C_word*)t9)[1]);} else{ t14=C_set_block_item(t10,0,C_SCHEME_TRUE); t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5772,a[2]=t9,a[3]=t8,a[4]=t13,tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:1255: ##sys#shell-command-arguments */ t16=*((C_word*)lf[319]+1);{ C_word av2[3]; av2[0]=t16; av2[1]=t15; av2[2]=((C_word*)t8)[1]; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}}} /* chkstrlst in %process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_5696(C_word t0,C_word 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_5696,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_5701,a[2]=((C_word*)t0)[2],a[3]=((C_word)li153),tmp=(C_word)a,a+=4,tmp); t5=t2; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5710,a[2]=t4,a[3]=((C_word)li154),tmp=(C_word)a,a+=4,tmp); t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=( f_5710(t6,t5) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k4313 in k4310 in file-write in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_4315(C_word t0,C_word t1){ C_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_4315,2,t0,t1);} a=C_alloc(9); t2=t1; t3=C_i_check_exact_2(t2,lf[180]); t4=C_write(((C_word*)t0)[2],((C_word*)t0)[3],t2); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4321,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_eqp(C_fix(-1),t4); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4327,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:742: ##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]=t7; tp(2,av2);}} else{ t7=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t7; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k4310 in file-write in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4312(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4312,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4315,a[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_4315(t4,C_u_i_car(t3));} else{ t3=t2; f_4315(t3,C_block_size(((C_word*)t0)[3]));}} /* k5083 in duplicate-fileno in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_5085(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_5085,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5088,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_5094,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:1063: ##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]=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);}}} /* k5086 in k5083 in duplicate-fileno in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5088,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5092 in k5083 in duplicate-fileno in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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,5)))){ C_save_and_reclaim((void *)f_5094,2,av);} /* posixwin.scm:1064: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[10]; av2[3]=lf[70]; av2[4]=lf[291]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* file-select in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6203,2,av);} /* posixwin.scm:1497: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[368]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5678 in map-loop1303 in process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_5680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_5680,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5655(t6,((C_word*)t0)[5],t5);} /* file-test-lock in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6209,2,av);} /* posixwin.scm:1498: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[369]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5486 in k5473 in process-run in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5488,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5492,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:1190: ##sys#shell-command-arguments */ t4=*((C_word*)lf[319]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5060 in k5074 in port->fileno in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5062,2,av);} /* posixwin.scm:1050: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[10]; av2[3]=lf[12]; av2[4]=lf[290]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* map-loop1303 in process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_5655(C_word t0,C_word t1,C_word 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_5655,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_5680,a[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:1223: g1309 */ 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);}}} /* a6456 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_6457,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6461,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:254: ##sys#stat */ f_2333(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[21]);} /* duplicate-fileno in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_5078,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_check_exact_2(t2,*((C_word*)lf[70]+1)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5085,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ t6=t5; f_5085(t6,C_dup(t2));} else{ t6=C_i_car(t3); t7=C_i_check_exact_2(t6,lf[70]); t8=t5; f_5085(t8,C_dup2(t2,t6));}} /* k5074 in port->fileno in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_5076,2,av);} a=C_alloc(8); if(C_truep(C_i_zerop(t1))){ /* posixwin.scm:1052: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[15]; av2[3]=lf[12]; av2[4]=lf[289]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ t2=C_C_fileno(((C_word*)t0)[3]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5056,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_5062,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:1049: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[7]+1); av2[1]=t4; tp(2,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k5490 in k5486 in k5473 in process-run in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_5492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5492,2,av);} /* posixwin.scm:1190: process-spawn */ t2=*((C_word*)lf[313]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[305]+1); av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a4110 in a4104 in k4095 in k4089 in call-with-exec-args in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_4111,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4117,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li84),tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:726: k722 */ t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* open-input-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_4563,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[195]); t5=C_i_pairp(t3); t6=(C_truep(t5)?C_slot(t3,C_fix(0)):lf[196]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4577,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t8=C_eqp(t6,lf[196]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4584,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:813: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[13]+1); av2[1]=t9; av2[2]=t2; av2[3]=lf[195]; tp(4,av2);}} else{ t9=C_eqp(t6,lf[197]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4594,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:814: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[13]+1); av2[1]=t10; av2[2]=t2; av2[3]=lf[195]; tp(4,av2);}} else{ /* posixwin.scm:798: ##sys#error */ t10=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t7; av2[2]=lf[198]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}} /* k6481 in a6462 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_6483,2,av);} if(C_truep(C_fixnum_lessp(t1,C_fix(0)))){ /* posix-common.scm:260: posix-error */ t2=lf[2];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[10]; av2[3]=lf[408]; av2[4]=lf[409]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; f_2315(7,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a4116 in a4110 in a4104 in k4095 in k4089 in call-with-exec-args in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4117(C_word c,C_word *av){ 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_4117,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4121,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:736: free-c-string-buffer */ f_4051(t2,((C_word*)t0)[4]);} /* k4559 in k4547 in check in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4561,2,av);} t2=C_set_file_ptr(t1,((C_word*)t0)[2]); t3=t1; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5458 in k5446 in shell-command in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5460,2,av);} /* posixwin.scm:1180: ##sys#error */ t2=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[315]; av2[3]=lf[316]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5040 in open-output-file* in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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(2,c,4)))){ C_save_and_reclaim((void *)f_5042,2,av);} a=C_alloc(2); t2=C_fdopen(&a,2,((C_word*)t0)[2],t1); /* posixwin.scm:1041: check */ f_4998(((C_word*)t0)[4],((C_word*)t0)[2],C_SCHEME_FALSE,t2);} /* port->fileno in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_5044(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5044,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_fix(0),C_SCHEME_TRUE,lf[12]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5076,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:1046: ##sys#peek-unsigned-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[69]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[69]+1); av2[1]=t5; av2[2]=t2; av2[3]=C_fix(0); tp(4,av2);}} /* ##sys#shell-command-arguments in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_5465,3,av);} a=C_alloc(6); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list2(&a,2,lf[320],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* file-write in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 +6,c,5)))){ C_save_and_reclaim((void*)f_4305,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_exact_2(t2,lf[180]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4312,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_blockp(t3))){ if(C_truep(C_byteblockp(t3))){ t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_4312(2,av2);}} else{ /* posixwin.scm:737: ##sys#signal-hook */ t7=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t6; av2[2]=lf[15]; av2[3]=lf[180]; av2[4]=lf[182]; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}} else{ /* posixwin.scm:737: ##sys#signal-hook */ t7=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t6; av2[2]=lf[15]; av2[3]=lf[180]; av2[4]=lf[182]; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}} /* file-truncate in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6215,2,av);} /* posixwin.scm:1499: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[370]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a4104 in k4095 in k4089 in call-with-exec-args in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_4105,3,av);} a=C_alloc(17); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4111,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li85),tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4132,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)li89),tmp=(C_word)a,a+=11,tmp); /* posix-common.scm:726: with-exception-handler */ t5=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4098 in k4095 in k4089 in call-with-exec-args in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4100,2,av);} /* posix-common.scm:726: g726 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k6471 in a6462 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6473(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6473,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=stub119(C_SCHEME_UNDEFINED,t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5054 in k5074 in port->fileno in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_5056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5056,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* parent-process-id in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6245,2,av);} /* posixwin.scm:1504: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[375]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* process-run in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_5471(C_word c,C_word *av){ C_word tmp; C_word 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_5471,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_5475,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_5475(t6,C_u_i_car(t5));} else{ t5=t4; f_5475(t5,C_SCHEME_FALSE);}} /* k5473 in process-run in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_5475(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_5475,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ /* posixwin.scm:1189: process-spawn */ t2=*((C_word*)lf[313]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[305]+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_5488,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:1190: ##sys#shell-command */ t3=*((C_word*)lf[315]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3780 in loop in get-environment-variables in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3782,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_3790,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=((C_word)li64),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_3790(t6,((C_word*)t0)[4],C_fix(0));} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5645 in process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_5647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5647,2,av);} /* posixwin.scm:1220: string-intersperse */ t2=*((C_word*)lf[326]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5026 in open-input-file* in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_5028(C_word c,C_word *av){ C_word tmp; C_word t0=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_5028,2,av);} a=C_alloc(2); t2=C_fdopen(&a,2,((C_word*)t0)[2],t1); /* posixwin.scm:1037: check */ f_4998(((C_word*)t0)[4],((C_word*)t0)[2],C_SCHEME_TRUE,t2);} /* k5446 in shell-command in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_5448(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5448,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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|2,a[1]=(C_word)f_5460,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* posixwin.scm:1179: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[7]+1); av2[1]=t2; tp(2,av2);}}}} /* group-information in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6233,2,av);} /* posixwin.scm:1502: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[373]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4325 in k4313 in k4310 in file-write in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_4327,2,av);} /* posixwin.scm:743: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[10]; av2[3]=lf[180]; av2[4]=lf[181]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* ##sys#shell-command in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_5444(C_word c,C_word *av){ 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_5444,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5448,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posixwin.scm:1175: get-environment-variable */ t3=*((C_word*)lf[317]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[318]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* initialize-groups in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6239,2,av);} /* posixwin.scm:1503: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[374]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4319 in k4313 in k4310 in file-write in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4321,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* get-environment-variables in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 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_3772,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_3778,a[2]=t3,a[3]=((C_word)li65),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_3778(t5,t1,C_fix(0));} /* k5617 in k5613 in k5569 in process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_5619,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5623,a[2]=((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); /* posixwin.scm:1229: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[324]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[324]+1); av2[1]=t3; av2[2]=((C_word*)t0)[10]; av2[3]=C_fix(0); av2[4]=C_SCHEME_FALSE; av2[5]=lf[325]; tp(6,av2);}} /* a4154 in a4131 in a4104 in k4095 in k4089 in call-with-exec-args in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_4155,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_4161,a[2]=t2,a[3]=((C_word)li87),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:726: k722 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k4151 in a4137 in a4131 in a4104 in k4095 in k4089 in call-with-exec-args in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4153,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_4142(t3,t2);} /* k5613 in k5569 in process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_5615,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,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]=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); /* posixwin.scm:1229: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[324]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[324]+1); av2[1]=t3; av2[2]=((C_word*)t0)[10]; av2[3]=C_fix(0); av2[4]=C_SCHEME_FALSE; av2[5]=lf[325]; tp(6,av2);}} /* k4592 in open-input-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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(2,c,4)))){ C_save_and_reclaim((void *)f_4594,2,av);} a=C_alloc(2); t2=open_binary_input_pipe(&a,1,t1); /* posixwin.scm:810: check */ f_4545(((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_TRUE,t2);} /* loop in get-environment-variables in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_3778(C_word t0,C_word t1,C_word 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_3778,3,t0,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3782,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=stub621(t5,t6); /* posix-common.scm:641: ##sys#peek-c-string */ t8=*((C_word*)lf[6]+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);}} /* a6413 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_6414,3,av);} t3=C_i_check_exact_2(t2,lf[106]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_umask(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3561 in seconds->utc-time in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3563,2,av);} t2=C_i_check_number_2(t1,lf[112]); /* posix-common.scm:589: ##sys#decode-seconds */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[110]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[110]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; tp(4,av2);}} /* a4774 in k4763 in with-output-to-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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!=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_4775,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)li119),tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:875: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* read-symbolic-link in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6269,2,av);} /* posixwin.scm:1508: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[379]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* open-output-file* in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_5030,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=C_i_check_exact_2(t2,lf[65]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5042,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:1041: mode */ f_4961(t5,C_SCHEME_FALSE,t3,lf[65]);} /* process-signal in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6263,2,av);} /* posixwin.scm:1507: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[378]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a4769 in k4763 in with-output-to-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4770(C_word c,C_word *av){ C_word tmp; 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_4770,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[209]+1)); t3=C_mutate2((C_word*)lf[209]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* process-execute in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_5281,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_5322,a[2]=((C_word)li142),tmp=(C_word)a,a+=3,tmp):lf[308]); t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5308,a[2]=t2,a[3]=((C_word)li143),tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:1147: call-with-exec-args */ t18=lf[146]; f_4087(t18,t1,lf[311],t2,t16,t5,t9,t17);} /* k4122 in k4119 in a4116 in a4110 in a4104 in k4095 in k4089 in call-with-exec-args in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4124,2,av);} /* posix-common.scm:738: signal */ t2=*((C_word*)lf[134]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5625 in k5621 in k5617 in k5613 in k5569 in process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_5627,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5631,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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_truep(((C_word*)t0)[8])?C_fix(0):C_fix(1)); t5=(C_truep(((C_word*)t0)[9])?C_fix(0):C_fix(2)); if(C_truep(((C_word*)t0)[10])){ /* posixwin.scm:1230: + */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t3; av2[2]=t4; av2[3]=t5; av2[4]=C_fix(0); C_plus(5,av2);}} else{ /* posixwin.scm:1230: + */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t3; av2[2]=t4; av2[3]=t5; av2[4]=C_fix(4); C_plus(5,av2);}}} /* k5621 in k5617 in k5613 in k5569 in process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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(11,c,5)))){ C_save_and_reclaim((void *)f_5623,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5627,a[2]=((C_word*)t0)[2],a[3]=((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); /* posixwin.scm:1229: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[324]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[324]+1); av2[1]=t3; av2[2]=((C_word*)t0)[10]; av2[3]=C_fix(0); av2[4]=C_SCHEME_FALSE; av2[5]=lf[325]; tp(6,av2);}} /* k4119 in a4116 in a4110 in a4104 in k4095 in k4089 in call-with-exec-args in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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(4,c,2)))){ C_save_and_reclaim((void *)f_4121,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4124,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:737: free-c-string-buffer */ f_4051(t2,((C_word*)((C_word*)t0)[4])[1]);} else{ /* posix-common.scm:738: signal */ t3=*((C_word*)lf[134]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k4783 in a4780 in a4774 in k4763 in with-output-to-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4785,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* file-mkstemp in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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,4)))){ C_save_and_reclaim((void *)f_4345,3,av);} a=C_alloc(6); t3=C_i_check_string_2(t2,lf[183]); t4=lf[184]; t5=C_block_size(t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4355,a[2]=t2,a[3]=t4,a[4]=t6,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* posixwin.scm:751: * */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t7; av2[2]=t6; av2[3]=t6; av2[4]=t6; C_times(5,av2);}} /* process-group-id in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6257,2,av);} /* posixwin.scm:1506: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[377]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a4780 in a4774 in k4763 in with-output-to-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_4781,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_4785,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:878: close-output-pipe */ t4=*((C_word*)lf[202]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* seconds->utc-time in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,3)))){ C_save_and_reclaim((void*)f_3559,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; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3563,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t2))){ /* posix-common.scm:587: current-seconds */ t4=*((C_word*)lf[111]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=C_i_check_number_2(t4,lf[112]); /* posix-common.scm:589: ##sys#decode-seconds */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[110]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[110]+1); av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_TRUE; tp(4,av2);}}} /* process-fork in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6251,2,av);} /* posixwin.scm:1505: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[376]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* call-with-output-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_4703,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_4707,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[199]+1); av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* k4705 in call-with-output-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4707(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4707,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4712,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li110),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4718,a[2]=t2,a[3]=((C_word)li111),tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:855: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* unmap-file-from-memory in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_6077,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_structure_2(t2,lf[347],lf[351]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6084,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t3))){ t6=t3; t7=t5; f_6084(t7,C_u_i_car(t6));} else{ t6=t5; f_6084(t6,C_slot(t2,C_fix(2)));}} /* scan in k3780 in loop in get-environment-variables in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_3790(C_word t0,C_word 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_3790,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_3816,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); /* posix-common.scm:648: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[74]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[74]+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)); /* posix-common.scm:651: scan */ t6=t1; t7=t4; t1=t6; t2=t7; goto loop;}} /* k6434 in a6419 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,5)))){ C_save_and_reclaim((void *)f_6436,2,av);} if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(7)); t3=C_eqp(t2,lf[47]); if(C_truep(t3)){ t4=C_ftell(((C_word*)t0)[2]); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; f_6424(2,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fix(-1); f_6424(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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_6424(2,av2);}} else{ /* posix-common.scm:339: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[15]; av2[3]=lf[49]; av2[4]=lf[406]; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* create-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4795(C_word c,C_word *av){ C_word tmp; 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_4795,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[157]+1),*((C_word*)lf[159]+1)):C_i_car(t2)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4802,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_4811,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* posixwin.scm:890: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[7]+1); av2[1]=t7; tp(2,av2);}} else{ /* posixwin.scm:892: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* set-groups! in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6287,2,av);} /* posixwin.scm:1511: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[382]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* set-group-id! in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6281,2,av);} /* posixwin.scm:1510: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[381]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* quote-arg-string in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_5269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5269,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_5244,a[2]=t5,a[3]=t3,a[4]=((C_word)li140),tmp=(C_word)a,a+=5,tmp); t7=( f_5244(t6,C_fix(0)) ); if(C_truep(t7)){ /* posixwin.scm:1143: string-append */ t8=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t1; av2[2]=lf[309]; av2[3]=t2; av2[4]=lf[310]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t8=t2; t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* a4789 in k4763 in with-output-to-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *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_4790,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[209]+1)); t3=C_mutate2((C_word*)lf[209]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4140 in a4137 in a4131 in a4104 in k4095 in k4089 in call-with-exec-args in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_4142(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_4142,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4149,a[2]=((C_word*)t0)[2],a[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:744: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[13]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; tp(4,av2);}} /* k4147 in k4140 in a4137 in a4131 in a4104 in k4095 in k4089 in call-with-exec-args in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4149,2,av);} /* posix-common.scm:744: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4547 in check in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_4549,2,av);} a=C_alloc(4); if(C_truep(C_null_pointerp(((C_word*)t0)[2]))){ /* posixwin.scm:802: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[10]; av2[3]=lf[193]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4561,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:803: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[61]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[61]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=*((C_word*)lf[62]+1); av2[4]=lf[194]; av2[5]=lf[47]; tp(6,av2);}}} /* check in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_4545(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_4545,4,t1,t2,t3,t4);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4549,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* posixwin.scm:800: ##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]=t5; tp(2,av2);}} /* a6462 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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(9,c,2)))){ C_save_and_reclaim((void *)f_6463,4,av);} a=C_alloc(9); t4=C_i_check_number_2(t3,lf[408]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6483,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t6=t5; t7=t2; t8=t3; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6473,a[2]=t6,a[3]=t8,tmp=(C_word)a,a+=4,tmp); if(C_truep(t7)){ t10=C_i_foreign_string_argumentp(t7); /* posix-common.scm:257: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[13]+1); av2[1]=t9; av2[2]=t10; tp(3,av2);}} else{ t10=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=stub119(C_SCHEME_UNDEFINED,C_SCHEME_FALSE,t8); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* k5606 in k5576 in k5569 in process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5608,2,av);} /* posixwin.scm:1239: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[131]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[323]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k6459 in a6456 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6461(C_word c,C_word *av){ C_word tmp; 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_6461,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_flonum(&a,C_statbuf.st_mtime); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4365 in k4362 in k4356 in k4353 in file-mkstemp in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_4367,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_4372,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)li98),tmp=(C_word)a,a+=11,tmp)); t5=((C_word*)t3)[1]; f_4372(t5,((C_word*)t0)[9],C_fix(1));} /* k4362 in k4356 in k4353 in file-mkstemp in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 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_4364,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4367,a[2]=((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|5,a[1]=(C_word)f_4461,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4465,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* posixwin.scm:759: pathname-directory */ t6=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* set-alarm! in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6275,2,av);} /* posixwin.scm:1509: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[380]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f_5405 in process-spawn in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_5405,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4197 in file-open in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_4199(C_word t0,C_word 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_4199,2,t0,t1);} a=C_alloc(6); t2=t1; t3=C_i_check_string_2(((C_word*)t0)[2],lf[172]); t4=C_i_check_exact_2(((C_word*)t0)[3],lf[172]); t5=C_i_check_exact_2(t2,lf[172]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4212,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:704: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[13]+1); av2[1]=t6; av2[2]=((C_word*)t0)[2]; av2[3]=lf[172]; tp(4,av2);}} /* file-open in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_4195,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_4199,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_4199(t7,C_u_i_car(t6));} else{ t6=t5; f_4199(t6,((C_word*)t0)[2]);}} /* process* in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_5838,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:1267: %process */ f_5694(t1,lf[328],C_SCHEME_TRUE,t2,t5,t9,t13);} else{ t14=C_i_cdr(t11); /* posixwin.scm:1267: %process */ f_5694(t1,lf[328],C_SCHEME_TRUE,t2,t5,t9,t13);}} /* k4374 in loop in k4365 in k4362 in k4356 in k4353 in file-mkstemp in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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(8,c,3)))){ C_save_and_reclaim((void *)f_4376,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4380,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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); /* posixwin.scm:772: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[13]+1); av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=lf[172]; tp(4,av2);}} /* loop in k4365 in k4362 in k4356 in k4353 in file-mkstemp in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_4372(C_word t0,C_word t1,C_word 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(18,0,3)))){ C_save_and_reclaim_args((void *)trf_4372,3,t0,t1,t2);} a=C_alloc(18); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4376,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); t4=C_fixnum_difference(((C_word*)t0)[6],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|7,a[1]=(C_word)f_4419,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[5],a[5]=t6,a[6]=((C_word*)t0)[9],a[7]=((C_word)li97),tmp=(C_word)a,a+=8,tmp)); t8=((C_word*)t6)[1]; f_4419(t8,t3,t4);} /* loop in quote-arg-string in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static C_word C_fcall f_5244(C_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;}}} /* a4160 in a4154 in a4131 in a4104 in k4095 in k4089 in call-with-exec-args in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *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_4161,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k6082 in unmap-file-from-memory in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_6084(C_word t0,C_word t1){ C_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(0,0,6)))){ C_save_and_reclaim_args((void *)trf_6084,2,t0,t1);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=(C_truep(t2)?C_i_foreign_pointer_argumentp(t2):C_SCHEME_FALSE); t4=C_i_foreign_integer_argumentp(t1); t5=stub1513(C_SCHEME_UNDEFINED,t3,t4); t6=C_eqp(C_fix(0),t5); if(C_truep(t6)){ t7=C_SCHEME_UNDEFINED; t8=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ /* posixwin.scm:1467: posix-error */ t7=lf[2];{ C_word av2[7]; av2[0]=t7; av2[1]=((C_word*)t0)[3]; av2[2]=lf[10]; av2[3]=lf[351]; av2[4]=lf[352]; av2[5]=((C_word*)t0)[2]; av2[6]=t1; f_2315(7,av2);}}} /* k3592 in seconds->string in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t3; C_word 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_3594,2,av);} a=C_alloc(9); t2=t1; t3=C_i_check_number_2(t2,lf[113]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3600,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_integer_argumentp(t2); t7=stub544(t5,t6); /* posix-common.scm:592: ##sys#peek-c-string */ t8=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t4; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* seconds->string in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3590(C_word c,C_word *av){ C_word tmp; 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_3590,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_3594,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t2))){ /* posix-common.scm:593: current-seconds */ t4=*((C_word*)lf[111]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_car(t2); f_3594(2,av2);}}} /* set-root-directory! in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6299,2,av);} /* posixwin.scm:1513: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[384]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* set-process-group-id! in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6293,2,av);} /* posixwin.scm:1512: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[383]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4378 in k4374 in loop in k4365 in k4362 in k4356 in k4353 in file-mkstemp in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 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,5)))){ C_save_and_reclaim((void *)f_4380,2,av);} a=C_alloc(8); t2=C_a_i_bitwise_ior(&a,2,C_a_i_bitwise_ior(&a,2,*((C_word*)lf[150]+1),*((C_word*)lf[153]+1)),*((C_word*)lf[155]+1)); t3=C_fixnum_or(C_fix((C_word)S_IREAD),C_fix((C_word)S_IWRITE)); t4=C_open(t1,t2,t3); t5=C_eqp(C_fix(-1),t4); if(C_truep(t5)){ if(C_truep(C_fixnum_lessp(((C_word*)t0)[2],((C_word*)t0)[3]))){ t6=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* posixwin.scm:777: loop */ t7=((C_word*)((C_word*)t0)[4])[1]; f_4372(t7,((C_word*)t0)[5],t6);} else{ /* posixwin.scm:778: posix-error */ t6=lf[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=((C_word*)t0)[5]; av2[2]=lf[10]; av2[3]=lf[183]; av2[4]=lf[185]; av2[5]=((C_word*)t0)[6]; f_2315(6,av2);}}} else{ /* posixwin.scm:779: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=t4; av2[3]=((C_word*)t0)[7]; C_values(4,av2);}}} /* k6035 in k6029 in k6026 in k6023 in map-file-to-memory in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_6037,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_record3(&a,3,lf[347],((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5629 in k5625 in k5621 in k5617 in k5613 in k5569 in process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; C_word t3; C_word t4; C_word 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_5631,2,av);} a=C_alloc(9); 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=((C_word*)t0)[8]; t9=t1; t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5503,a[2]=t5,a[3]=t6,a[4]=t7,a[5]=t8,a[6]=t9,a[7]=t2,a[8]=t4,tmp=(C_word)a,a+=9,tmp); if(C_truep(t3)){ t11=C_i_foreign_string_argumentp(t3); /* posixwin.scm:1213: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[13]+1); av2[1]=t10; av2[2]=t11; tp(3,av2);}} else{ t11=t10;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_SCHEME_FALSE; f_5503(2,av2);}}} /* k6029 in k6026 in k6023 in map-file-to-memory in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t8; C_word t9; C_word t10; C_word 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,2)))){ C_save_and_reclaim((void *)f_6031,2,av);} a=C_alloc(21); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=((C_word*)t0)[5]; t6=C_a_i_bytevector(&a,1,C_fix(3)); t7=(C_truep(((C_word*)t0)[6])?C_i_foreign_pointer_argumentp(((C_word*)t0)[6]):C_SCHEME_FALSE); t8=C_i_foreign_integer_argumentp(t2); t9=C_i_foreign_fixnum_argumentp(t3); t10=C_i_foreign_fixnum_argumentp(t4); t11=C_i_foreign_fixnum_argumentp(t5); t12=C_i_foreign_integer_argumentp(((C_word*)t0)[7]); t13=stub1480(t6,t7,t8,t9,t10,t11,t12); t14=t13; t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6037,a[2]=((C_word*)t0)[8],a[3]=t14,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t16=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6043,a[2]=t15,a[3]=((C_word*)t0)[6],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)[7],a[9]=((C_word*)t0)[8],a[10]=t14,tmp=(C_word)a,a+=11,tmp); if(C_truep(t14)){ t17=C_i_foreign_pointer_argumentp(t14); t18=t16; f_6043(t18,stub1492(C_SCHEME_UNDEFINED,t17));} else{ t17=t16; f_6043(t17,stub1492(C_SCHEME_UNDEFINED,C_SCHEME_FALSE));}} /* k4575 in open-input-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4577,2,av);} /* posixwin.scm:810: check */ f_4545(((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_TRUE,t1);} /* k3540 in seconds->local-time in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3542(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3542,2,av);} t2=C_i_check_number_2(t1,lf[109]); /* posix-common.scm:585: ##sys#decode-seconds */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[110]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[110]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; tp(4,av2);}} /* change-directory in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_4505,3,av);} a=C_alloc(4); t3=C_i_check_string_2(t2,lf[73]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4512,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:786: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[13]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[73]; tp(4,av2);}} /* k3704 in k3678 in time->string in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3706,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[74]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[74]+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[54]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[119]; av2[3]=lf[121]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k6023 in map-file-to-memory in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 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_6025,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6028,a[2]=((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(((C_word*)t0)[7]))){ t4=((C_word*)t0)[7]; t5=t3; f_6028(t5,C_u_i_car(t4));} else{ t4=t3; f_6028(t4,C_fix(0));}} /* k6026 in k6023 in map-file-to-memory in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_6028(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_6028,2,t0,t1);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6031,a[2]=((C_word*)t0)[2],a[3]=((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_blockp(((C_word*)t0)[6]))){ if(C_truep(C_specialp(((C_word*)t0)[6]))){ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_6031(2,av2);}} else{ /* posixwin.scm:1455: ##sys#signal-hook */ t4=*((C_word*)lf[3]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t3; av2[2]=lf[15]; av2[3]=lf[346]; av2[4]=lf[349]; av2[5]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} else{ /* posixwin.scm:1455: ##sys#signal-hook */ t4=*((C_word*)lf[3]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t3; av2[2]=lf[15]; av2[3]=lf[346]; av2[4]=lf[349]; av2[5]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} /* k4582 in open-input-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4584(C_word c,C_word *av){ C_word tmp; C_word t0=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_4584,2,av);} a=C_alloc(2); t2=open_text_input_pipe(&a,1,t1); /* posixwin.scm:810: check */ f_4545(((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_TRUE,t2);} /* map-file-to-memory in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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 +8,c,2)))){ C_save_and_reclaim((void*)f_6021,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; C_word t10; t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6025,a[2]=t3,a[3]=t4,a[4]=t5,a[5]=t6,a[6]=t1,a[7]=t7,tmp=(C_word)a,a+=8,tmp); t9=t2; if(C_truep(t9)){ t10=t8;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t2; f_6025(2,av2);}} else{ /* posixwin.scm:1452: ##sys#null-pointer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[350]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[350]+1); av2[1]=t8; tp(2,av2);}}} /* k3701 in k3697 in k3678 in time->string in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3703,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=stub582(t3,t2,((C_word*)t0)[3],t4); /* posix-common.scm:611: ##sys#peek-c-string */ t6=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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=stub582(t3,t2,((C_word*)t0)[3],C_SCHEME_FALSE); /* posix-common.scm:611: ##sys#peek-c-string */ t5=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k6425 in k6422 in a6419 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6427,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6422 in a6419 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6424,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6427,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:341: posix-error */ t4=lf[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[10]; av2[3]=lf[49]; av2[4]=lf[405]; av2[5]=((C_word*)t0)[3]; f_2315(6,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a6419 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6420(C_word c,C_word *av){ C_word tmp; C_word 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_6420,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6424,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6436,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:332: port? */ t5=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* file-execute-access? in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_4952,3,av);} /* posixwin.scm:1002: check */ f_4920(t1,t2,C_fix((C_word)2),lf[281]);} /* seconds->local-time in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,3)))){ C_save_and_reclaim((void*)f_3538,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; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3542,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t2))){ /* posix-common.scm:583: current-seconds */ t4=*((C_word*)lf[111]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=C_i_check_number_2(t4,lf[109]); /* posix-common.scm:585: ##sys#decode-seconds */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[110]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[110]+1); av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_FALSE; tp(4,av2);}}} /* k4513 in k4510 in change-directory in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4515,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4510 in change-directory in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_4512,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4515,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(C_fix(0),t3); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_4521,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:788: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[7]+1); av2[1]=t5; tp(2,av2);}}} /* file-read-access? in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_4940,3,av);} /* posixwin.scm:1000: check */ f_4920(t1,t2,C_fix((C_word)2),lf[279]);} /* k6041 in k6029 in k6026 in k6023 in map-file-to-memory in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_6043(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,10)))){ C_save_and_reclaim_args((void *)trf_6043,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ /* posixwin.scm:1458: posix-error */ t2=lf[2];{ C_word av2[11]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[10]; av2[3]=lf[346]; av2[4]=lf[348]; av2[5]=((C_word*)t0)[3]; 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)[8]; f_2315(11,av2);}} else{ t2=((C_word*)t0)[9];{ C_word av2[2]; av2[0]=t2; av2[1]=C_a_i_record3(&a,3,lf[347],((C_word*)t0)[10],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k4519 in k4510 in change-directory in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4521(C_word c,C_word *av){ C_word tmp; C_word 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_4521,2,av);} /* posixwin.scm:789: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[10]; av2[3]=lf[73]; av2[4]=lf[192]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k3725 in k3678 in time->string in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3727,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=stub572(t3,t2,t4); /* posix-common.scm:610: ##sys#peek-c-string */ t6=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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=stub572(t3,t2,C_SCHEME_FALSE); /* posix-common.scm:610: ##sys#peek-c-string */ t5=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k3814 in scan in k3780 in loop in get-environment-variables in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3816,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3820,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]); /* posix-common.scm:649: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[74]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[74]+1); av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=t4; av2[4]=t5; tp(5,av2);}} /* k2885 in k2865 in delete-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2887,2,av);} /* posix-common.scm:446: rmdir */ f_2844(((C_word*)t0)[3],((C_word*)t0)[4]);} /* k2882 in k2876 in g289 in k2865 in delete-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2884,2,av);} if(C_truep(t1)){ /* posix-common.scm:440: g299 */ f_2844(((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=*((C_word*)lf[79]+1); t3=*((C_word*)lf[79]+1); /* posix-common.scm:440: g299 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[79]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}} /* file-write-access? in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_4946,3,av);} /* posixwin.scm:1001: check */ f_4920(t1,t2,C_fix((C_word)4),lf[280]);} /* k3806 in k3818 in k3814 in scan in k3780 in loop in get-environment-variables in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3808,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* a4717 in k4705 in call-with-output-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_4718,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_4722,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:858: close-output-pipe */ t4=*((C_word*)lf[202]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4711 in k4705 in call-with-output-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *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_4712,2,av);} /* posixwin.scm:856: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4353 in file-mkstemp in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4355,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4358,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); /* posixwin.scm:752: string-copy */ t4=*((C_word*)lf[191]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* mode in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_4961(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(4,0,3)))){ C_save_and_reclaim_args((void *)trf_4961,4,t1,t2,t3,t4);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4969,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[53]); if(C_truep(t8)){ t9=t2; if(C_truep(t9)){ /* posixwin.scm:1022: ##sys#error */ t10=*((C_word*)lf[54]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t5; av2[2]=lf[282]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ /* posixwin.scm:1018: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[13]+1); av2[1]=t1; av2[2]=lf[283]; av2[3]=t4; tp(4,av2);}}} else{ /* posixwin.scm:1023: ##sys#error */ t9=*((C_word*)lf[54]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t5; av2[2]=lf[284]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}} else{ if(C_truep(t2)){ /* posixwin.scm:1018: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[13]+1); av2[1]=t1; av2[2]=lf[285]; av2[3]=t4; tp(4,av2);}} else{ /* posixwin.scm:1018: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[13]+1); av2[1]=t1; av2[2]=lf[286]; av2[3]=t4; tp(4,av2);}}}} /* k4356 in k4353 in file-mkstemp in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 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_4358,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_4364,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t4,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_4474,a[2]=t8,a[3]=t2,a[4]=((C_word)li99),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_4474(t10,t5,t6);} /* for-each-loop288 in k2865 in delete-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_2892(C_word t0,C_word t1,C_word 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_2892,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_2902,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)); /* posix-common.scm:435: g289 */ t5=((C_word*)t0)[3]; f_2868(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);}}} /* k3744 in setenv in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3746,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3750,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:632: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[13]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[122]; tp(4,av2);}} /* set-signal-handler! in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3838(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,1)))){ C_save_and_reclaim((void *)f_3838,4,av);} t4=C_i_check_exact_2(t2,lf[125]); if(C_truep(t3)){ t5=t2; t6=C_establish_signal_handler(t2,t5); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_i_vector_set(*((C_word*)lf[126]+1),t2,t3); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t5=C_establish_signal_handler(t2,C_SCHEME_FALSE); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_vector_set(*((C_word*)lf[126]+1),t2,t3); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* with-input-from-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; 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_4727,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_4731,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[195]+1); av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* k4720 in a4717 in k4705 in call-with-output-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4722,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4967 in mode in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4969(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4969,2,av);} /* posixwin.scm:1018: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[13]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* setenv in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3735(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_3735,4,av);} a=C_alloc(4); t4=C_i_check_string_2(t2,lf[122]); t5=C_i_check_string_2(t3,lf[122]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3746,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:632: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[13]+1); av2[1]=t6; av2[2]=t2; av2[3]=lf[122]; tp(4,av2);}} /* k3818 in k3814 in scan in k3780 in loop in get-environment-variables in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3820,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_3808,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)); /* posix-common.scm:650: loop */ t6=((C_word*)((C_word*)t0)[5])[1]; f_3778(t6,t4,t5);} /* a4735 in k4729 in with-input-from-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 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_4736,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[207]+1)); t3=C_mutate2((C_word*)lf[207]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4729 in with-input-from-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 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_4731,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_4736,a[2]=t6,a[3]=t4,a[4]=((C_word)li113),tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4741,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li115),tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4756,a[2]=t4,a[3]=t6,a[4]=((C_word)li116),tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:862: ##sys#dynamic-wind */ t10=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* get-groups in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6227,2,av);} /* posixwin.scm:1501: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[372]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* file-unlock in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6221,2,av);} /* posixwin.scm:1500: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[371]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3758 in unsetenv in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3760,2,av);} t2=C_unsetenv(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_3512 in a3509 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3512,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* check in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_4998(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_4998,4,t1,t2,t3,t4);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5002,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* posixwin.scm:1028: ##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]=t5; tp(2,av2);}} /* a3509 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; 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_3510,2,av);} a=C_alloc(3); t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3512,a[2]=((C_word)li53),tmp=(C_word)a,a+=3,tmp); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a4746 in a4740 in k4729 in with-input-from-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_4747,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_4751,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:868: close-input-pipe */ t4=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4740 in k4729 in with-input-from-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; 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_4741,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4747,a[2]=((C_word*)t0)[2],a[3]=((C_word)li114),tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:865: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* check-time-vector in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_3519(C_word 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_3519,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:581: ##sys#error */ t6=*((C_word*)lf[54]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=lf[108]; 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);}}} /* k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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(38,c,4)))){ C_save_and_reclaim((void *)f_3517,2,av);} a=C_alloc(38); t2=C_mutate2((C_word*)lf[106]+1 /* (set! file-creation-mode ...) */,t1); t3=C_mutate2(&lf[107] /* (set! check-time-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3519,a[2]=((C_word)li56),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[109]+1 /* (set! seconds->local-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3538,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[112]+1 /* (set! seconds->utc-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3559,a[2]=((C_word)li58),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[113]+1 /* (set! seconds->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3590,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp)); t7=C_fix((C_word)sizeof(struct tm)); t8=C_mutate2((C_word*)lf[115]+1 /* (set! local-time->seconds ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3628,a[2]=t7,a[3]=((C_word)li60),tmp=(C_word)a,a+=4,tmp)); t9=C_fix((C_word)sizeof(struct tm)); t10=C_mutate2((C_word*)lf[119]+1 /* (set! time->string ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3673,a[2]=t9,a[3]=((C_word)li61),tmp=(C_word)a,a+=4,tmp)); t11=C_mutate2((C_word*)lf[122]+1 /* (set! setenv ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3735,a[2]=((C_word)li62),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[123]+1 /* (set! unsetenv ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3752,a[2]=((C_word)li63),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[124]+1 /* (set! get-environment-variables ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3772,a[2]=((C_word)li66),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[125]+1 /* (set! set-signal-handler! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3838,a[2]=((C_word)li67),tmp=(C_word)a,a+=3,tmp)); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3853,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6380,a[2]=((C_word)li211),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:663: getter-with-setter */ t17=*((C_word*)lf[403]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t17; av2[1]=t15; av2[2]=t16; av2[3]=*((C_word*)lf[125]+1); ((C_proc)(void*)(*((C_word*)t17+1)))(4,av2);}} /* k3748 in k3744 in setenv in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3750(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3750,2,av);} t2=C_setenv(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* unsetenv in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; 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_3752,3,av);} a=C_alloc(3); t3=C_i_check_string_2(t2,lf[123]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3760,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:637: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[13]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[123]; tp(4,av2);}} /* a4131 in a4104 in k4095 in k4089 in call-with-exec-args in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; 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_4132,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4138,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word)li86),tmp=(C_word)a,a+=10,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4155,a[2]=((C_word*)t0)[9],a[3]=((C_word)li88),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:726: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a4137 in a4131 in a4104 in k4095 in k4089 in call-with-exec-args in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *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_4138,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4142,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|3,a[1]=(C_word)f_4153,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:742: list->c-string-buffer */ f_3932(t3,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[6]);} else{ t3=t2; f_4142(t3,C_SCHEME_UNDEFINED);}} /* a4755 in k4729 in with-input-from-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; 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_4756,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[207]+1)); t3=C_mutate2((C_word*)lf[207]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4749 in a4746 in a4740 in k4729 in with-input-from-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4751,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4763 in with-output-to-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_4765,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_4770,a[2]=t6,a[3]=t4,a[4]=((C_word)li118),tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4775,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li120),tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4790,a[2]=t4,a[3]=t6,a[4]=((C_word)li121),tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:872: ##sys#dynamic-wind */ t10=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* with-output-to-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_4761,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_4765,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[199]+1); av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ C_save_and_reclaim((void *)f_3304,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_3306,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)li43),tmp=(C_word)a,a+=10,tmp)); t5=((C_word*)t3)[1]; f_3306(t5,((C_word*)t0)[8],((C_word*)t0)[9],t1,((C_word*)t0)[10]);} /* loop in k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_3306(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_3306,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_3319,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); /* posix-common.scm:535: make-pathname */ t8=*((C_word*)lf[87]+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);}}} /* k2876 in g289 in k2865 in delete-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_2878,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=*((C_word*)lf[79]+1); t3=*((C_word*)lf[79]+1); /* posix-common.scm:440: g299 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[79]+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_2884,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); /* posix-common.scm:442: directory? */ t3=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* 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_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_posix_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(2230))){ C_save(t1); C_rereclaim2(2230*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,411); lf[1]=C_decode_literal(C_heaptop,"\376B\000\000/this function is not available on this platform"); lf[3]=C_h_intern(&lf[3],15,"\003syssignal-hook"); lf[4]=C_h_intern(&lf[4],13,"string-append"); lf[5]=C_decode_literal(C_heaptop,"\376B\000\000\003 - "); lf[6]=C_h_intern(&lf[6],17,"\003syspeek-c-string"); lf[7]=C_h_intern(&lf[7],16,"\003sysupdate-errno"); lf[8]=C_h_intern(&lf[8],15,"\003sysposix-error"); lf[10]=C_h_intern(&lf[10],11,"\000file-error"); lf[11]=C_decode_literal(C_heaptop,"\376B\000\000\022cannot access file"); lf[12]=C_h_intern(&lf[12],12,"port->fileno"); lf[13]=C_h_intern(&lf[13],17,"\003sysmake-c-string"); lf[14]=C_h_intern(&lf[14],27,"\003sysplatform-fixup-pathname"); lf[15]=C_h_intern(&lf[15],11,"\000type-error"); lf[16]=C_decode_literal(C_heaptop,"\376B\000\000\052bad argument type - not a fixnum or string"); lf[17]=C_h_intern(&lf[17],5,"port\077"); lf[18]=C_h_intern(&lf[18],9,"file-stat"); lf[19]=C_h_intern(&lf[19],16,"_stat_st_blksize"); lf[20]=C_h_intern(&lf[20],15,"_stat_st_blocks"); lf[21]=C_h_intern(&lf[21],22,"file-modification-time"); lf[22]=C_h_intern(&lf[22],16,"file-access-time"); lf[23]=C_h_intern(&lf[23],16,"file-change-time"); lf[24]=C_h_intern(&lf[24],10,"file-owner"); lf[25]=C_h_intern(&lf[25],16,"file-permissions"); lf[26]=C_h_intern(&lf[26],9,"file-size"); lf[27]=C_h_intern(&lf[27],9,"file-type"); lf[28]=C_h_intern(&lf[28],12,"regular-file"); lf[29]=C_h_intern(&lf[29],13,"symbolic-link"); lf[30]=C_h_intern(&lf[30],9,"directory"); lf[31]=C_h_intern(&lf[31],16,"character-device"); lf[32]=C_h_intern(&lf[32],12,"block-device"); lf[33]=C_h_intern(&lf[33],4,"fifo"); lf[34]=C_h_intern(&lf[34],6,"socket"); lf[35]=C_h_intern(&lf[35],13,"regular-file\077"); lf[36]=C_h_intern(&lf[36],14,"symbolic-link\077"); lf[37]=C_h_intern(&lf[37],13,"block-device\077"); lf[38]=C_h_intern(&lf[38],17,"character-device\077"); lf[39]=C_h_intern(&lf[39],5,"fifo\077"); lf[40]=C_h_intern(&lf[40],7,"socket\077"); lf[41]=C_h_intern(&lf[41],10,"directory\077"); lf[42]=C_h_intern(&lf[42],8,"seek/set"); lf[43]=C_h_intern(&lf[43],8,"seek/end"); lf[44]=C_h_intern(&lf[44],8,"seek/cur"); lf[45]=C_h_intern(&lf[45],18,"set-file-position!"); lf[46]=C_decode_literal(C_heaptop,"\376B\000\000\030cannot set file position"); lf[47]=C_h_intern(&lf[47],6,"stream"); lf[48]=C_decode_literal(C_heaptop,"\376B\000\000\014invalid file"); lf[49]=C_h_intern(&lf[49],13,"file-position"); lf[50]=C_h_intern(&lf[50],12,"fileno/stdin"); lf[51]=C_h_intern(&lf[51],13,"fileno/stdout"); lf[52]=C_h_intern(&lf[52],13,"fileno/stderr"); lf[53]=C_h_intern(&lf[53],7,"\000append"); lf[54]=C_h_intern(&lf[54],9,"\003syserror"); lf[55]=C_decode_literal(C_heaptop,"\376B\000\000\033invalid mode for input file"); lf[56]=C_decode_literal(C_heaptop,"\376B\000\000\001a"); lf[57]=C_decode_literal(C_heaptop,"\376B\000\000\025invalid mode argument"); lf[58]=C_decode_literal(C_heaptop,"\376B\000\000\001r"); lf[59]=C_decode_literal(C_heaptop,"\376B\000\000\001w"); lf[60]=C_decode_literal(C_heaptop,"\376B\000\000\020cannot open file"); lf[61]=C_h_intern(&lf[61],13,"\003sysmake-port"); lf[62]=C_h_intern(&lf[62],21,"\003sysstream-port-class"); lf[63]=C_decode_literal(C_heaptop,"\376B\000\000\010(fdport)"); lf[64]=C_h_intern(&lf[64],16,"open-input-file\052"); lf[65]=C_h_intern(&lf[65],17,"open-output-file\052"); lf[66]=C_h_intern(&lf[66],13,"\003sysport-data"); lf[67]=C_decode_literal(C_heaptop,"\376B\000\000\031port has no attached file"); lf[68]=C_decode_literal(C_heaptop,"\376B\000\000%cannot access file-descriptor of port"); lf[69]=C_h_intern(&lf[69],25,"\003syspeek-unsigned-integer"); lf[70]=C_h_intern(&lf[70],16,"duplicate-fileno"); lf[71]=C_decode_literal(C_heaptop,"\376B\000\000 cannot duplicate file-descriptor"); lf[72]=C_h_intern(&lf[72],17,"current-directory"); lf[73]=C_h_intern(&lf[73],16,"change-directory"); lf[74]=C_h_intern(&lf[74],13,"\003syssubstring"); lf[75]=C_decode_literal(C_heaptop,"\376B\000\000!cannot retrieve current directory"); lf[76]=C_h_intern(&lf[76],15,"\003sysmake-string"); lf[77]=C_h_intern(&lf[77],16,"delete-directory"); lf[78]=C_decode_literal(C_heaptop,"\376B\000\000\027cannot delete directory"); lf[79]=C_h_intern(&lf[79],11,"delete-file"); lf[80]=C_h_intern(&lf[80],10,"find-files"); lf[81]=C_h_intern(&lf[81],9,"\000dotfiles"); lf[82]=C_h_intern(&lf[82],16,"\000follow-symlinks"); lf[83]=C_h_intern(&lf[83],16,"create-directory"); lf[84]=C_decode_literal(C_heaptop,"\376B\000\000\027cannot create directory"); lf[85]=C_h_intern(&lf[85],18,"pathname-directory"); lf[86]=C_h_intern(&lf[86],18,"decompose-pathname"); lf[87]=C_h_intern(&lf[87],13,"make-pathname"); lf[88]=C_h_intern(&lf[88],12,"file-exists\077"); lf[89]=C_decode_literal(C_heaptop,"\376B\000\000\025cannot open directory"); lf[90]=C_h_intern(&lf[90],16,"\003sysmake-pointer"); lf[91]=C_h_intern(&lf[91],4,"glob"); lf[92]=C_h_intern(&lf[92],23,"irregex-match-substring"); lf[93]=C_h_intern(&lf[93],13,"irregex-match"); lf[94]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[95]=C_h_intern(&lf[95],16,"\003sysglob->regexp"); lf[96]=C_decode_literal(C_heaptop,"\376B\000\000\001\052"); lf[97]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[98]=C_decode_literal(C_heaptop,"\376B\000\000\002.."); lf[99]=C_h_intern(&lf[99],16,"\003sysdynamic-wind"); lf[100]=C_h_intern(&lf[100],7,"irregex"); lf[101]=C_h_intern(&lf[101],15,"\003sysget-keyword"); lf[102]=C_h_intern(&lf[102],6,"\000limit"); lf[103]=C_h_intern(&lf[103],5,"\000seed"); lf[104]=C_h_intern(&lf[104],7,"\000action"); lf[105]=C_h_intern(&lf[105],5,"\000test"); lf[106]=C_h_intern(&lf[106],18,"file-creation-mode"); lf[108]=C_decode_literal(C_heaptop,"\376B\000\000\025time vector too short"); lf[109]=C_h_intern(&lf[109],19,"seconds->local-time"); lf[110]=C_h_intern(&lf[110],18,"\003sysdecode-seconds"); lf[111]=C_h_intern(&lf[111],15,"current-seconds"); lf[112]=C_h_intern(&lf[112],17,"seconds->utc-time"); lf[113]=C_h_intern(&lf[113],15,"seconds->string"); lf[114]=C_decode_literal(C_heaptop,"\376B\000\000 cannot convert seconds to string"); lf[115]=C_h_intern(&lf[115],19,"local-time->seconds"); lf[116]=C_decode_literal(C_heaptop,"\376B\000\000%cannot convert time vector to seconds"); lf[117]=C_h_intern(&lf[117],3,"fp="); lf[118]=C_decode_literal(C_heaptop,"\376U-1.0\000"); lf[119]=C_h_intern(&lf[119],12,"time->string"); lf[120]=C_decode_literal(C_heaptop,"\376B\000\000 time formatting overflows buffer"); lf[121]=C_decode_literal(C_heaptop,"\376B\000\000$cannot convert time vector to string"); lf[122]=C_h_intern(&lf[122],6,"setenv"); lf[123]=C_h_intern(&lf[123],8,"unsetenv"); lf[124]=C_h_intern(&lf[124],25,"get-environment-variables"); lf[125]=C_h_intern(&lf[125],19,"set-signal-handler!"); lf[126]=C_h_intern(&lf[126],17,"\003syssignal-vector"); lf[127]=C_h_intern(&lf[127],14,"signal-handler"); lf[128]=C_h_intern(&lf[128],18,"current-process-id"); lf[129]=C_h_intern(&lf[129],12,"process-wait"); lf[130]=C_h_intern(&lf[130],16,"\003sysprocess-wait"); lf[131]=C_h_intern(&lf[131],14,"\000process-error"); lf[132]=C_decode_literal(C_heaptop,"\376B\000\000 waiting for child process failed"); lf[134]=C_h_intern(&lf[134],6,"signal"); lf[136]=C_h_intern(&lf[136],19,"pointer-vector-set!"); lf[137]=C_h_intern(&lf[137],5,"error"); lf[138]=C_decode_literal(C_heaptop,"\376B\000\000\015Out of memory"); lf[139]=C_h_intern(&lf[139],22,"with-exception-handler"); lf[140]=C_h_intern(&lf[140],30,"call-with-current-continuation"); lf[141]=C_h_intern(&lf[141],19,"make-pointer-vector"); lf[142]=C_h_intern(&lf[142],4,"free"); lf[143]=C_h_intern(&lf[143],18,"pointer-vector-ref"); lf[144]=C_h_intern(&lf[144],21,"pointer-vector-length"); lf[145]=C_h_intern(&lf[145],24,"pathname-strip-directory"); lf[147]=C_h_intern(&lf[147],8,"pipe/buf"); lf[148]=C_h_intern(&lf[148],11,"open/rdonly"); lf[149]=C_h_intern(&lf[149],11,"open/wronly"); lf[150]=C_h_intern(&lf[150],9,"open/rdwr"); lf[151]=C_h_intern(&lf[151],9,"open/read"); lf[152]=C_h_intern(&lf[152],10,"open/write"); lf[153]=C_h_intern(&lf[153],10,"open/creat"); lf[154]=C_h_intern(&lf[154],11,"open/append"); lf[155]=C_h_intern(&lf[155],9,"open/excl"); lf[156]=C_h_intern(&lf[156],10,"open/trunc"); lf[157]=C_h_intern(&lf[157],11,"open/binary"); lf[158]=C_h_intern(&lf[158],9,"open/text"); lf[159]=C_h_intern(&lf[159],14,"open/noinherit"); lf[160]=C_h_intern(&lf[160],10,"perm/irusr"); lf[161]=C_h_intern(&lf[161],10,"perm/iwusr"); lf[162]=C_h_intern(&lf[162],10,"perm/ixusr"); lf[163]=C_h_intern(&lf[163],10,"perm/irgrp"); lf[164]=C_h_intern(&lf[164],10,"perm/iwgrp"); lf[165]=C_h_intern(&lf[165],10,"perm/ixgrp"); lf[166]=C_h_intern(&lf[166],10,"perm/iroth"); lf[167]=C_h_intern(&lf[167],10,"perm/iwoth"); lf[168]=C_h_intern(&lf[168],10,"perm/ixoth"); lf[169]=C_h_intern(&lf[169],10,"perm/irwxu"); lf[170]=C_h_intern(&lf[170],10,"perm/irwxg"); lf[171]=C_h_intern(&lf[171],10,"perm/irwxo"); lf[172]=C_h_intern(&lf[172],9,"file-open"); lf[173]=C_decode_literal(C_heaptop,"\376B\000\000\020cannot open file"); lf[174]=C_h_intern(&lf[174],10,"file-close"); lf[175]=C_h_intern(&lf[175],22,"\003sysdispatch-interrupt"); lf[176]=C_decode_literal(C_heaptop,"\376B\000\000\021cannot close file"); lf[177]=C_h_intern(&lf[177],9,"file-read"); lf[178]=C_decode_literal(C_heaptop,"\376B\000\000\025cannot read from file"); lf[179]=C_decode_literal(C_heaptop,"\376B\000\000(bad argument type - not a string or blob"); lf[180]=C_h_intern(&lf[180],10,"file-write"); lf[181]=C_decode_literal(C_heaptop,"\376B\000\000\024cannot write to file"); lf[182]=C_decode_literal(C_heaptop,"\376B\000\000(bad argument type - not a string or blob"); lf[183]=C_h_intern(&lf[183],12,"file-mkstemp"); lf[184]=C_decode_literal(C_heaptop,"\376B\000\000$0123456789abcdefghijklmnopqrstuvwxyz"); lf[185]=C_decode_literal(C_heaptop,"\376B\000\000\034cannot create temporary file"); lf[186]=C_h_intern(&lf[186],6,"random"); lf[187]=C_decode_literal(C_heaptop,"\376B\000\000\020invalid template"); lf[188]=C_decode_literal(C_heaptop,"\376B\000\000\026non-existent directory"); lf[189]=C_h_intern(&lf[189],17,"directory-exists\077"); lf[190]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[191]=C_h_intern(&lf[191],11,"string-copy"); lf[192]=C_decode_literal(C_heaptop,"\376B\000\000\037cannot change current directory"); lf[193]=C_decode_literal(C_heaptop,"\376B\000\000\020cannot open pipe"); lf[194]=C_decode_literal(C_heaptop,"\376B\000\000\006(pipe)"); lf[195]=C_h_intern(&lf[195],15,"open-input-pipe"); lf[196]=C_h_intern(&lf[196],5,"\000text"); lf[197]=C_h_intern(&lf[197],7,"\000binary"); lf[198]=C_decode_literal(C_heaptop,"\376B\000\000#illegal input/output mode specifier"); lf[199]=C_h_intern(&lf[199],16,"open-output-pipe"); lf[200]=C_h_intern(&lf[200],16,"close-input-pipe"); lf[201]=C_decode_literal(C_heaptop,"\376B\000\000\030error while closing pipe"); lf[202]=C_h_intern(&lf[202],17,"close-output-pipe"); lf[203]=C_decode_literal(C_heaptop,"\376B\000\000\030error while closing pipe"); lf[204]=C_h_intern(&lf[204],20,"call-with-input-pipe"); lf[205]=C_h_intern(&lf[205],21,"call-with-output-pipe"); lf[206]=C_h_intern(&lf[206],20,"with-input-from-pipe"); lf[207]=C_h_intern(&lf[207],18,"\003sysstandard-input"); lf[208]=C_h_intern(&lf[208],19,"with-output-to-pipe"); lf[209]=C_h_intern(&lf[209],19,"\003sysstandard-output"); lf[210]=C_h_intern(&lf[210],11,"create-pipe"); lf[211]=C_decode_literal(C_heaptop,"\376B\000\000\022cannot create pipe"); lf[212]=C_h_intern(&lf[212],11,"signal/term"); lf[213]=C_h_intern(&lf[213],10,"signal/int"); lf[214]=C_h_intern(&lf[214],10,"signal/fpe"); lf[215]=C_h_intern(&lf[215],10,"signal/ill"); lf[216]=C_h_intern(&lf[216],11,"signal/segv"); lf[217]=C_h_intern(&lf[217],11,"signal/abrt"); lf[218]=C_h_intern(&lf[218],12,"signal/break"); lf[219]=C_h_intern(&lf[219],11,"signal/alrm"); lf[220]=C_h_intern(&lf[220],11,"signal/chld"); lf[221]=C_h_intern(&lf[221],11,"signal/cont"); lf[222]=C_h_intern(&lf[222],10,"signal/hup"); lf[223]=C_h_intern(&lf[223],9,"signal/io"); lf[224]=C_h_intern(&lf[224],11,"signal/kill"); lf[225]=C_h_intern(&lf[225],11,"signal/pipe"); lf[226]=C_h_intern(&lf[226],11,"signal/prof"); lf[227]=C_h_intern(&lf[227],11,"signal/quit"); lf[228]=C_h_intern(&lf[228],11,"signal/stop"); lf[229]=C_h_intern(&lf[229],11,"signal/trap"); lf[230]=C_h_intern(&lf[230],11,"signal/tstp"); lf[231]=C_h_intern(&lf[231],10,"signal/urg"); lf[232]=C_h_intern(&lf[232],11,"signal/usr1"); lf[233]=C_h_intern(&lf[233],11,"signal/usr2"); lf[234]=C_h_intern(&lf[234],13,"signal/vtalrm"); lf[235]=C_h_intern(&lf[235],12,"signal/winch"); lf[236]=C_h_intern(&lf[236],11,"signal/xcpu"); lf[237]=C_h_intern(&lf[237],11,"signal/xfsz"); lf[238]=C_h_intern(&lf[238],12,"signals-list"); lf[239]=C_h_intern(&lf[239],10,"errno/perm"); lf[240]=C_h_intern(&lf[240],11,"errno/noent"); lf[241]=C_h_intern(&lf[241],10,"errno/srch"); lf[242]=C_h_intern(&lf[242],10,"errno/intr"); lf[243]=C_h_intern(&lf[243],8,"errno/io"); lf[244]=C_h_intern(&lf[244],12,"errno/noexec"); lf[245]=C_h_intern(&lf[245],10,"errno/badf"); lf[246]=C_h_intern(&lf[246],11,"errno/child"); lf[247]=C_h_intern(&lf[247],11,"errno/nomem"); lf[248]=C_h_intern(&lf[248],11,"errno/acces"); lf[249]=C_h_intern(&lf[249],11,"errno/fault"); lf[250]=C_h_intern(&lf[250],10,"errno/busy"); lf[251]=C_h_intern(&lf[251],11,"errno/exist"); lf[252]=C_h_intern(&lf[252],12,"errno/notdir"); lf[253]=C_h_intern(&lf[253],11,"errno/isdir"); lf[254]=C_h_intern(&lf[254],11,"errno/inval"); lf[255]=C_h_intern(&lf[255],11,"errno/mfile"); lf[256]=C_h_intern(&lf[256],11,"errno/nospc"); lf[257]=C_h_intern(&lf[257],11,"errno/spipe"); lf[258]=C_h_intern(&lf[258],10,"errno/pipe"); lf[259]=C_h_intern(&lf[259],11,"errno/again"); lf[260]=C_h_intern(&lf[260],10,"errno/rofs"); lf[261]=C_h_intern(&lf[261],10,"errno/nxio"); lf[262]=C_h_intern(&lf[262],10,"errno/2big"); lf[263]=C_h_intern(&lf[263],10,"errno/xdev"); lf[264]=C_h_intern(&lf[264],11,"errno/nodev"); lf[265]=C_h_intern(&lf[265],11,"errno/nfile"); lf[266]=C_h_intern(&lf[266],11,"errno/notty"); lf[267]=C_h_intern(&lf[267],10,"errno/fbig"); lf[268]=C_h_intern(&lf[268],11,"errno/mlink"); lf[269]=C_h_intern(&lf[269],9,"errno/dom"); lf[270]=C_h_intern(&lf[270],11,"errno/range"); lf[271]=C_h_intern(&lf[271],12,"errno/deadlk"); lf[272]=C_h_intern(&lf[272],17,"errno/nametoolong"); lf[273]=C_h_intern(&lf[273],11,"errno/nolck"); lf[274]=C_h_intern(&lf[274],11,"errno/nosys"); lf[275]=C_h_intern(&lf[275],14,"errno/notempty"); lf[276]=C_h_intern(&lf[276],11,"errno/ilseq"); lf[277]=C_h_intern(&lf[277],16,"change-file-mode"); lf[278]=C_decode_literal(C_heaptop,"\376B\000\000\027cannot change file mode"); lf[279]=C_h_intern(&lf[279],17,"file-read-access\077"); lf[280]=C_h_intern(&lf[280],18,"file-write-access\077"); lf[281]=C_h_intern(&lf[281],20,"file-execute-access\077"); lf[282]=C_decode_literal(C_heaptop,"\376B\000\000\033invalid mode for input file"); lf[283]=C_decode_literal(C_heaptop,"\376B\000\000\001a"); lf[284]=C_decode_literal(C_heaptop,"\376B\000\000\025invalid mode argument"); lf[285]=C_decode_literal(C_heaptop,"\376B\000\000\001r"); lf[286]=C_decode_literal(C_heaptop,"\376B\000\000\001w"); lf[287]=C_decode_literal(C_heaptop,"\376B\000\000\020cannot open file"); lf[288]=C_decode_literal(C_heaptop,"\376B\000\000\010(fdport)"); lf[289]=C_decode_literal(C_heaptop,"\376B\000\000\031port has no attached file"); lf[290]=C_decode_literal(C_heaptop,"\376B\000\000%cannot access file-descriptor of port"); lf[291]=C_decode_literal(C_heaptop,"\376B\000\000 cannot duplicate file descriptor"); lf[292]=C_h_intern(&lf[292],27,"local-timezone-abbreviation"); lf[293]=C_h_intern(&lf[293],5,"_exit"); lf[294]=C_h_intern(&lf[294],14,"terminal-port\077"); lf[295]=C_h_intern(&lf[295],13,"terminal-size"); lf[296]=C_decode_literal(C_heaptop,"\376B\000\000#port is not connected to a terminal"); lf[297]=C_h_intern(&lf[297],19,"set-buffering-mode!"); lf[298]=C_decode_literal(C_heaptop,"\376B\000\000\031cannot set buffering mode"); lf[299]=C_h_intern(&lf[299],5,"\000full"); lf[300]=C_h_intern(&lf[300],5,"\000line"); lf[301]=C_h_intern(&lf[301],5,"\000none"); lf[302]=C_decode_literal(C_heaptop,"\376B\000\000\026invalid buffering-mode"); lf[303]=C_h_intern(&lf[303],13,"spawn/overlay"); lf[304]=C_h_intern(&lf[304],10,"spawn/wait"); lf[305]=C_h_intern(&lf[305],12,"spawn/nowait"); lf[306]=C_h_intern(&lf[306],13,"spawn/nowaito"); lf[307]=C_h_intern(&lf[307],12,"spawn/detach"); lf[309]=C_decode_literal(C_heaptop,"\376B\000\000\001\042"); lf[310]=C_decode_literal(C_heaptop,"\376B\000\000\001\042"); lf[311]=C_h_intern(&lf[311],15,"process-execute"); lf[312]=C_decode_literal(C_heaptop,"\376B\000\000\026cannot execute process"); lf[313]=C_h_intern(&lf[313],13,"process-spawn"); lf[314]=C_decode_literal(C_heaptop,"\376B\000\000\024cannot spawn process"); lf[315]=C_h_intern(&lf[315],17,"\003sysshell-command"); lf[316]=C_decode_literal(C_heaptop,"\376B\000\000 cannot retrieve system directory"); lf[317]=C_h_intern(&lf[317],24,"get-environment-variable"); lf[318]=C_decode_literal(C_heaptop,"\376B\000\000\007COMSPEC"); lf[319]=C_h_intern(&lf[319],27,"\003sysshell-command-arguments"); lf[320]=C_decode_literal(C_heaptop,"\376B\000\000\002/c"); lf[321]=C_h_intern(&lf[321],11,"process-run"); lf[322]=C_h_intern(&lf[322],11,"\003sysprocess"); lf[323]=C_decode_literal(C_heaptop,"\376B\000\000\026cannot execute process"); lf[324]=C_h_intern(&lf[324],17,"\003sysmake-locative"); lf[325]=C_h_intern(&lf[325],8,"location"); lf[326]=C_h_intern(&lf[326],18,"string-intersperse"); lf[327]=C_h_intern(&lf[327],7,"process"); lf[328]=C_h_intern(&lf[328],8,"process\052"); lf[329]=C_h_intern(&lf[329],5,"sleep"); lf[330]=C_h_intern(&lf[330],13,"get-host-name"); lf[331]=C_decode_literal(C_heaptop,"\376B\000\000\031cannot retrieve host-name"); lf[332]=C_h_intern(&lf[332],18,"system-information"); lf[333]=C_decode_literal(C_heaptop,"\376B\000\000\007windows"); lf[334]=C_decode_literal(C_heaptop,"\376B\000\000\042cannot retrieve system-information"); lf[335]=C_h_intern(&lf[335],17,"current-user-name"); lf[336]=C_decode_literal(C_heaptop,"\376B\000\000!cannot retrieve current user-name"); lf[337]=C_h_intern(&lf[337],9,"prot/none"); lf[338]=C_h_intern(&lf[338],9,"prot/read"); lf[339]=C_h_intern(&lf[339],10,"prot/write"); lf[340]=C_h_intern(&lf[340],9,"prot/exec"); lf[341]=C_h_intern(&lf[341],8,"map/file"); lf[342]=C_h_intern(&lf[342],10,"map/shared"); lf[343]=C_h_intern(&lf[343],11,"map/private"); lf[344]=C_h_intern(&lf[344],9,"map/fixed"); lf[345]=C_h_intern(&lf[345],13,"map/anonymous"); lf[346]=C_h_intern(&lf[346],18,"map-file-to-memory"); lf[347]=C_h_intern(&lf[347],4,"mmap"); lf[348]=C_decode_literal(C_heaptop,"\376B\000\000\031cannot map file to memory"); lf[349]=C_decode_literal(C_heaptop,"\376B\000\000)bad argument type - not a foreign pointer"); lf[350]=C_h_intern(&lf[350],16,"\003sysnull-pointer"); lf[351]=C_h_intern(&lf[351],22,"unmap-file-from-memory"); lf[352]=C_decode_literal(C_heaptop,"\376B\000\000\035cannot unmap file from memory"); lf[353]=C_h_intern(&lf[353],26,"memory-mapped-file-pointer"); lf[354]=C_h_intern(&lf[354],19,"memory-mapped-file\077"); lf[355]=C_h_intern(&lf[355],17,"change-directory\052"); lf[356]=C_h_intern(&lf[356],17,"change-file-owner"); lf[357]=C_h_intern(&lf[357],11,"create-fifo"); lf[358]=C_h_intern(&lf[358],14,"create-session"); lf[359]=C_h_intern(&lf[359],20,"create-symbolic-link"); lf[360]=C_h_intern(&lf[360],26,"current-effective-group-id"); lf[361]=C_h_intern(&lf[361],25,"current-effective-user-id"); lf[362]=C_h_intern(&lf[362],27,"current-effective-user-name"); lf[363]=C_h_intern(&lf[363],16,"current-group-id"); lf[364]=C_h_intern(&lf[364],15,"current-user-id"); lf[365]=C_h_intern(&lf[365],9,"file-link"); lf[366]=C_h_intern(&lf[366],9,"file-lock"); lf[367]=C_h_intern(&lf[367],18,"file-lock/blocking"); lf[368]=C_h_intern(&lf[368],11,"file-select"); lf[369]=C_h_intern(&lf[369],14,"file-test-lock"); lf[370]=C_h_intern(&lf[370],13,"file-truncate"); lf[371]=C_h_intern(&lf[371],11,"file-unlock"); lf[372]=C_h_intern(&lf[372],10,"get-groups"); lf[373]=C_h_intern(&lf[373],17,"group-information"); lf[374]=C_h_intern(&lf[374],17,"initialize-groups"); lf[375]=C_h_intern(&lf[375],17,"parent-process-id"); lf[376]=C_h_intern(&lf[376],12,"process-fork"); lf[377]=C_h_intern(&lf[377],16,"process-group-id"); lf[378]=C_h_intern(&lf[378],14,"process-signal"); lf[379]=C_h_intern(&lf[379],18,"read-symbolic-link"); lf[380]=C_h_intern(&lf[380],10,"set-alarm!"); lf[381]=C_h_intern(&lf[381],13,"set-group-id!"); lf[382]=C_h_intern(&lf[382],11,"set-groups!"); lf[383]=C_h_intern(&lf[383],21,"set-process-group-id!"); lf[384]=C_h_intern(&lf[384],19,"set-root-directory!"); lf[385]=C_h_intern(&lf[385],16,"set-signal-mask!"); lf[386]=C_h_intern(&lf[386],12,"set-user-id!"); lf[387]=C_h_intern(&lf[387],11,"signal-mask"); lf[388]=C_h_intern(&lf[388],12,"signal-mask!"); lf[389]=C_h_intern(&lf[389],14,"signal-masked\077"); lf[390]=C_h_intern(&lf[390],14,"signal-unmask!"); lf[391]=C_h_intern(&lf[391],13,"terminal-name"); lf[392]=C_h_intern(&lf[392],16,"user-information"); lf[393]=C_h_intern(&lf[393],17,"utc-time->seconds"); lf[394]=C_h_intern(&lf[394],12,"string->time"); lf[395]=C_h_intern(&lf[395],16,"errno/wouldblock"); lf[396]=C_h_intern(&lf[396],10,"open/fsync"); lf[397]=C_h_intern(&lf[397],11,"open/noctty"); lf[398]=C_h_intern(&lf[398],13,"open/nonblock"); lf[399]=C_h_intern(&lf[399],9,"open/sync"); lf[400]=C_h_intern(&lf[400],10,"perm/isgid"); lf[401]=C_h_intern(&lf[401],10,"perm/isuid"); lf[402]=C_h_intern(&lf[402],10,"perm/isvtx"); lf[403]=C_h_intern(&lf[403],18,"getter-with-setter"); lf[404]=C_decode_literal(C_heaptop,"\376B\000\000\031(file-creation-mode mode)"); lf[405]=C_decode_literal(C_heaptop,"\376B\000\000%cannot retrieve file position of port"); lf[406]=C_decode_literal(C_heaptop,"\376B\000\000\014invalid file"); lf[407]=C_decode_literal(C_heaptop,"\376B\000\000\024(file-position port)"); lf[408]=C_h_intern(&lf[408],26,"set-file-modification-time"); lf[409]=C_decode_literal(C_heaptop,"\376B\000\000!cannot set file modification-time"); lf[410]=C_decode_literal(C_heaptop,"\376B\000\000\032(file-modification-time f)"); C_register_lf2(lf,411,create_ptable());{} t2=C_mutate2(&lf[0] /* (set! c1563 ...) */,lf[1]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2288,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t3; C_scheduler_toplevel(2,av2);}} /* k3108 in k3096 in loop in k3068 in k3064 in k3061 in k3058 in k3043 in directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_3110(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_3110,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ /* posix-common.scm:492: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3084(t2,((C_word*)t0)[3]);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3120,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:493: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_3084(t3,t2);}} /* k3317 in loop in k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_3319,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_3328,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); /* posix-common.scm:537: directory? */ t6=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k3385 in a3378 in k3360 in k3416 in k3326 in k3317 in loop in k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in ... */ static void C_ccall f_3387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3387,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,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]=t2,tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3394,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); /* posix-common.scm:547: pproc */ t5=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3326 in k3317 in loop in k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3328(C_word c,C_word *av){ C_word tmp; C_word t0=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_3328,2,av);} a=C_alloc(14); if(C_truep(t1)){ if(C_truep((C_truep(C_i_equalp(((C_word*)t0)[2],lf[97]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[2],lf[98]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ /* posix-common.scm:538: loop */ t2=((C_word*)((C_word*)t0)[3])[1]; f_3306(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_3418,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); /* posix-common.scm:539: symbolic-link? */ t3=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3427,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); /* posix-common.scm:549: pproc */ t3=((C_word*)t0)[11];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k3348 in k3416 in k3326 in k3317 in loop in k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3350,2,av);} /* posix-common.scm:540: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3306(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k3351 in k3416 in k3326 in k3317 in loop in k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3353,2,av);} if(C_truep(t1)){ /* posix-common.scm:540: action */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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]; /* posix-common.scm:540: loop */ t3=((C_word*)((C_word*)t0)[6])[1]; f_3306(t3,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],t2);}} /* glob in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; 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_3180,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_3186,a[2]=t4,a[3]=((C_word)li38),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_3186(t6,t1,t2);} /* conc-loop in glob in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_3186(C_word t0,C_word 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_3186,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_3201,a[2]=t4,a[3]=((C_word)li34),tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3207,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li37),tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:502: ##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);}}} /* a3373 in k3360 in k3416 in k3326 in k3317 in loop in k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in ... */ 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 *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_3374,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3370 in k3360 in k3416 in k3326 in k3317 in loop in k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in ... */ static void C_ccall f_3372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3372,2,av);} /* posix-common.scm:542: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3306(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* a3378 in k3360 in k3416 in k3326 in k3317 in loop in k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in ... */ static void C_ccall f_3379(C_word c,C_word *av){ 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_3379,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3387,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); /* posix-common.scm:546: directory */ t3=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* rmdir in delete-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_2844(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_2844,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2848,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:430: ##sys#make-c-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]=t2; tp(3,av2);}} /* k3360 in k3416 in k3326 in k3317 in loop in k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in ... */ 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 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_3362,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_3372,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_3374,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word)li40),tmp=(C_word)a,a+=6,tmp); t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3379,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)li41),tmp=(C_word)a,a+=9,tmp); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3399,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word)li42),tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:544: ##sys#dynamic-wind */ t11=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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_3409,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_3412,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); /* posix-common.scm:548: pproc */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k2846 in rmdir in delete-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2848,2,av);} 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* posix-common.scm:432: posix-error */ t4=lf[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[10]; av2[3]=lf[77]; av2[4]=lf[78]; av2[5]=((C_word*)t0)[3]; f_2315(6,av2);}}} /* k3389 in k3385 in a3378 in k3360 in k3416 in k3326 in k3317 in loop in k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3391,2,av);} /* posix-common.scm:545: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3306(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k3392 in k3385 in a3378 in k3360 in k3416 in k3326 in k3317 in loop in k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in ... */ static void C_ccall f_3394(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3394,2,av);} if(C_truep(t1)){ /* posix-common.scm:547: action */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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]; /* posix-common.scm:545: loop */ t3=((C_word*)((C_word*)t0)[6])[1]; f_3306(t3,((C_word*)t0)[7],((C_word*)t0)[4],((C_word*)t0)[8],t2);}} /* a3398 in k3360 in k3416 in k3326 in k3317 in loop in k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in ... */ 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 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_3399,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2865 in delete-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 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_2867,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2868,a[2]=((C_word*)t0)[2],a[3]=((C_word)li25),tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2887,a[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_2892,a[2]=t5,a[3]=t2,a[4]=((C_word)li26),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_2892(t7,t3,t1);} /* g289 in k2865 in delete-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_2868(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_2868,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2878,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:441: symbolic-link? */ t4=*((C_word*)lf[36]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* file-permissions in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2423(C_word c,C_word *av){ C_word tmp; C_word 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_2423,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2427,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:268: ##sys#stat */ f_2333(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[25]);} /* file-size in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_2429,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2433,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:269: ##sys#stat */ f_2333(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[26]);} /* k2425 in file-permissions in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2427,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_mode); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2419 in file-owner in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2421,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* file-type in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2435(C_word c,C_word *av){ C_word tmp; C_word 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_2435,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_2454,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:272: ##sys#stat */ f_2333(t12,t2,t5,t9,lf[27]);} /* k2431 in file-size in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2433(C_word c,C_word *av){ C_word tmp; 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_2433,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_double_to_num(&a,C_statbuf.st_size); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2286 */ static void C_ccall f_2288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2288,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2291,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_irregex_toplevel(2,av2);}} /* current-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; 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_2804,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; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_car(t2)); if(C_truep(t4)){ /* posix-common.scm:416: change-directory */ t5=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(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|2,a[1]=(C_word)f_2817,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[76]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[76]+1); av2[1]=t5; av2[2]=C_fix(1024); av2[3]=C_make_character(32); tp(4,av2);}}} /* k2655 in mode in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2657,2,av);} /* posix-common.scm:359: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[13]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2291,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2294,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k2815 in current-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_2817,2,av);} a=C_alloc(5); t2=t1; t3=C_curdir(t2); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2820,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:420: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[7]+1); av2[1]=t4; tp(2,av2);}} /* k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2297(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2297,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2300,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_ports_toplevel(2,av2);}} /* k2292 in k2289 in k2286 */ static void C_ccall f_2294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2294,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2297,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_files_toplevel(2,av2);}} /* k2452 in file-type in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2454,2,av);} if(C_truep(t1)){ t2=C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_stat_type); if(C_truep(C_i_eqvp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFREG)))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[28]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_eqvp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFLNK)))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[29]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_eqvp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFDIR)))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[30]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_eqvp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFCHR)))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[31]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_eqvp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFBLK)))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[32]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_eqvp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFIFO)))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[33]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_eqvp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFSOCK)); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep(t3)?lf[34]:lf[28]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}}}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k4908 in k4916 in change-file-mode in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_4910,2,av);} /* posixwin.scm:988: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[10]; av2[3]=lf[277]; av2[4]=lf[278]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k2818 in k2815 in current-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2820,2,av);} if(C_truep(((C_word*)t0)[2])){ /* posix-common.scm:422: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[74]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[74]+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{ /* posix-common.scm:423: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[10]; av2[3]=lf[72]; av2[4]=lf[75]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* delete-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2838(C_word c,C_word *av){ C_word tmp; C_word 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_2838,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_2844,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp); t7=C_i_check_string_2(t2,lf[77]); if(C_truep(t5)){ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2867,a[2]=t6,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:435: find-files */ t9=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t9; av2[1]=t8; av2[2]=t2; av2[3]=lf[81]; av2[4]=C_SCHEME_TRUE; av2[5]=lf[82]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(7,av2);}} else{ /* posix-common.scm:447: rmdir */ f_2844(t1,t2);}} /* k4916 in change-file-mode in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4918(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4918,2,av);} a=C_alloc(5); t2=C_chmod(t1,((C_word*)t0)[2]); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4910,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); /* posixwin.scm:987: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[7]+1); av2[1]=t3; tp(2,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3118 in k3108 in k3096 in loop in k3068 in k3064 in k3061 in k3058 in k3043 in directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3120(C_word c,C_word *av){ C_word tmp; 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_3120,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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,c,6)))){ C_save_and_reclaim((void *)f_2644,2,av);} a=C_alloc(53); t2=C_mutate2((C_word*)lf[49]+1 /* (set! file-position ...) */,t1); t3=C_mutate2((C_word*)lf[50]+1 /* (set! fileno/stdin ...) */,C_fix((C_word)STDIN_FILENO)); t4=C_mutate2((C_word*)lf[51]+1 /* (set! fileno/stdout ...) */,C_fix((C_word)STDOUT_FILENO)); t5=C_mutate2((C_word*)lf[52]+1 /* (set! fileno/stderr ...) */,C_fix((C_word)STDERR_FILENO)); 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|2,a[1]=(C_word)f_2649,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t11=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2686,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[64]+1 /* (set! open-input-file* ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2701,a[2]=t9,a[3]=t7,a[4]=((C_word)li19),tmp=(C_word)a,a+=5,tmp)); t13=C_mutate2((C_word*)lf[65]+1 /* (set! open-output-file* ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2715,a[2]=t9,a[3]=t7,a[4]=((C_word)li20),tmp=(C_word)a,a+=5,tmp)); t14=C_mutate2((C_word*)lf[12]+1 /* (set! port->fileno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2729,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[70]+1 /* (set! duplicate-fileno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2777,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[72]+1 /* (set! current-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2804,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[77]+1 /* (set! delete-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2838,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2((C_word*)lf[83]+1 /* (set! create-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2924,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2((C_word*)lf[30]+1 /* (set! directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3041,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2((C_word*)lf[91]+1 /* (set! glob ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3180,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate2((C_word*)lf[80]+1 /* (set! find-files ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3466,a[2]=((C_word)li55),tmp=(C_word)a,a+=3,tmp)); t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3517,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6389,a[2]=((C_word)li212),tmp=(C_word)a,a+=3,tmp); t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6414,a[2]=((C_word)li213),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:564: getter-with-setter */ t25=*((C_word*)lf[403]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t25; av2[1]=t22; av2[2]=t23; av2[3]=t24; av2[4]=lf[404]; ((C_proc)(void*)(*((C_word*)t25+1)))(5,av2);}} /* k4928 in k4936 in check in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4930,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* mode in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_2649(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(4,0,3)))){ C_save_and_reclaim_args((void *)trf_2649,4,t1,t2,t3,t4);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2657,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[53]); if(C_truep(t8)){ t9=t2; if(C_truep(t9)){ /* posix-common.scm:363: ##sys#error */ t10=*((C_word*)lf[54]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t5; av2[2]=lf[55]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ /* posix-common.scm:359: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[13]+1); av2[1]=t1; av2[2]=lf[56]; av2[3]=t4; tp(4,av2);}}} else{ /* posix-common.scm:364: ##sys#error */ t9=*((C_word*)lf[54]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t5; av2[2]=lf[57]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}} else{ if(C_truep(t2)){ /* posix-common.scm:359: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[13]+1); av2[1]=t1; av2[2]=lf[58]; av2[3]=t4; tp(4,av2);}} else{ /* posix-common.scm:359: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[13]+1); av2[1]=t1; av2[2]=lf[59]; av2[3]=t4; tp(4,av2);}}}} /* k2697 in check in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2699,2,av);} t2=C_set_file_ptr(t1,((C_word*)t0)[2]); t3=t1; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* check in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_4920(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(4,0,3)))){ C_save_and_reclaim_args((void *)trf_4920,4,t1,t2,t3,t4);} a=C_alloc(4); t5=C_i_check_string_2(t2,t4); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4938,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:997: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[13]+1); av2[1]=t6; av2[2]=t2; av2[3]=t4; tp(4,av2);}} /* k4936 in check in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_4938,2,av);} a=C_alloc(4); t2=C_test_access(t1,((C_word*)t0)[2]); t3=C_eqp(C_fix(0),t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4930,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); if(C_truep(t4)){ t6=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* posixwin.scm:998: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[7]+1); av2[1]=t5; tp(2,av2);}}} /* check in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_2686(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_2686,5,t1,t2,t3,t4,t5);} a=C_alloc(4); if(C_truep(C_null_pointerp(t5))){ /* posix-common.scm:370: posix-error */ t6=lf[2];{ C_word av2[6]; av2[0]=t6; av2[1]=t1; av2[2]=lf[10]; av2[3]=t2; av2[4]=lf[60]; av2[5]=t3; f_2315(6,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2699,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:371: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[61]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[61]+1); av2[1]=t6; av2[2]=t4; av2[3]=*((C_word*)lf[62]+1); av2[4]=lf[63]; av2[5]=lf[47]; tp(6,av2);}}} /* k3941 in k3938 in list->c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3943,2,av);} /* posix-common.scm:696: g678 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k3938 in list->c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3940,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3943,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3948,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)li79),tmp=(C_word)a,a+=8,tmp); /* posix-common.scm:696: call-with-current-continuation */ t5=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5945 in k5941 in k5937 in system-information in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_5947,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5951,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-c-string */ t4=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_processor); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a3947 in k3938 in list->c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_3948,3,av);} a=C_alloc(14); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3954,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li73),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3969,a[2]=((C_word*)t0)[2],a[3]=((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)li78),tmp=(C_word)a,a+=9,tmp); /* posix-common.scm:696: with-exception-handler */ t5=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5941 in k5937 in system-information in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_5943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5943,2,av);} a=C_alloc(8); t2=t1; t3=(*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]=t2,tmp=(C_word)a,a+=5,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_osver); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* list->c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_3932(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(11,0,3)))){ C_save_and_reclaim_args((void *)trf_3932,4,t1,t2,t3,t4);} a=C_alloc(11); 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_3940,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_plus(&a,2,t7,C_fix(1)); /* posix-common.scm:698: make-pointer-vector */ t10=*((C_word*)lf[141]+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);}} /* current-user-name in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 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_5959,2,av);} a=C_alloc(3); if(C_truep(C_get_user_name())){ /* ##sys#peek-c-string */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_5969,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posixwin.scm:1308: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[7]+1); av2[1]=t2; tp(2,av2);}}} /* k5952 in system-information in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5954,2,av);} /* posixwin.scm:1300: ##sys#error */ t2=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[332]; av2[3]=lf[334]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5949 in k5945 in k5941 in k5937 in system-information in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ C_save_and_reclaim((void *)f_5951,2,av);} a=C_alloc(15); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list5(&a,5,lf[333],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3962 in a3959 in a3953 in a3947 in k3938 in list->c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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,2)))){ C_save_and_reclaim((void *)f_3964,2,av);} /* posix-common.scm:702: signal */ t2=*((C_word*)lf[134]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5967 in current-user-name in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5969,2,av);} /* posixwin.scm:1309: ##sys#error */ t2=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[335]; av2[3]=lf[336]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a3959 in a3953 in a3947 in k3938 in list->c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; 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_3960,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3964,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:702: free-c-string-buffer */ f_4051(t2,((C_word*)t0)[3]);} /* a3968 in a3947 in k3938 in list->c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3969(C_word c,C_word *av){ C_word tmp; C_word t0=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_3969,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3971,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li75),tmp=(C_word)a,a+=8,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4028,a[2]=((C_word*)t0)[7],a[3]=((C_word)li77),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4045,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* tmp12244 */ t5=t2; f_3971(t5,t4);} /* a3953 in a3947 in k3938 in list->c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *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_3954,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3960,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li72),tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:696: k674 */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k2609 in k2597 in set-file-position! in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2611,2,av);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* posix-common.scm:327: posix-error */ t2=lf[2];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[10]; av2[3]=lf[45]; av2[4]=lf[46]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; f_2315(7,av2);}}} /* k2615 in k2597 in set-file-position! in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2617,2,av);} if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(7)); t3=C_eqp(t2,lf[47]); if(C_truep(t3)){ t4=C_fseek(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t5=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; f_2611(2,av2);}} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_2611(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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_2611(2,av2);}} else{ /* posix-common.scm:326: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[15]; av2[3]=lf[45]; av2[4]=lf[48]; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* k3973 in tmp12244 in a3968 in a3947 in k3938 in list->c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3975,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* tmp12244 in a3968 in a3947 in k3938 in list->c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_3971(C_word 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_3971,2,t0,t1);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3975,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_3977,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)li74),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_3977(t6,t2,((C_word*)t0)[6],C_fix(0));} /* doloop683 in tmp12244 in a3968 in a3947 in k3938 in list->c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_3977(C_word t0,C_word t1,C_word 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_3977,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_3993,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_4018,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:711: 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);}}} /* sleep in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_5910(C_word c,C_word *av){ C_word tmp; C_word 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_5910,3,av);} t3=C_i_check_exact_2(t2,lf[329]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_sleep(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* get-host-name in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *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_5916,2,av);} a=C_alloc(3); if(C_truep(C_get_hostname())){ /* ##sys#peek-c-string */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=C_mpointer(&a,(void*)C_hostname); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ /* posixwin.scm:1289: ##sys#error */ t2=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=lf[330]; av2[3]=lf[331]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k3407 in k3360 in k3416 in k3326 in k3317 in loop in k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in ... */ static void C_ccall f_3409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3409,2,av);} /* posix-common.scm:548: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3306(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k3997 in k3991 in doloop683 in tmp12244 in a3968 in a3947 in k3938 in list->c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3999,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4002,a[2]=((C_word*)t0)[2],a[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:714: pointer-vector-set! */ t3=*((C_word*)lf[136]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3991 in doloop683 in tmp12244 in a3968 in a3947 in k3938 in list->c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_3993,2,av);} a=C_alloc(13); t2=C_a_i_bytevector(&a,1,C_fix(3)); t3=stub665(t2,t1); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3999,a[2]=((C_word*)t0)[2],a[3]=((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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_3999(2,av2);}} else{ /* posix-common.scm:713: error */ t6=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[7]; av2[3]=lf[138]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* memory-mapped-file? in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_6119,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[347]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* signal-mask in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6317,2,av);} /* posixwin.scm:1516: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[387]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* set-user-id! in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6311,2,av);} /* posixwin.scm:1515: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[386]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(48,c,4)))){ C_save_and_reclaim((void *)f_2403,2,av);} a=C_alloc(48); t2=C_mutate2((C_word*)lf[21]+1 /* (set! file-modification-time ...) */,t1); t3=C_mutate2((C_word*)lf[22]+1 /* (set! file-access-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2405,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[23]+1 /* (set! file-change-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2411,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[24]+1 /* (set! file-owner ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2417,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[25]+1 /* (set! file-permissions ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2423,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[26]+1 /* (set! file-size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2429,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[27]+1 /* (set! file-type ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2435,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[35]+1 /* (set! regular-file? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2522,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[36]+1 /* (set! symbolic-link? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2532,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[37]+1 /* (set! block-device? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2542,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[38]+1 /* (set! character-device? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2552,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[39]+1 /* (set! fifo? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2562,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[40]+1 /* (set! socket? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2572,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[41]+1 /* (set! directory? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2582,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[42]+1 /* (set! seek/set ...) */,C_fix((C_word)SEEK_SET)); t17=C_mutate2((C_word*)lf[43]+1 /* (set! seek/end ...) */,C_fix((C_word)SEEK_END)); t18=C_mutate2((C_word*)lf[44]+1 /* (set! seek/cur ...) */,C_fix((C_word)SEEK_CUR)); t19=C_mutate2((C_word*)lf[45]+1 /* (set! set-file-position! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2595,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t20=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2644,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6420,a[2]=((C_word)li214),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:330: getter-with-setter */ t22=*((C_word*)lf[403]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t22; av2[1]=t20; av2[2]=t21; av2[3]=*((C_word*)lf[45]+1); av2[4]=lf[407]; ((C_proc)(void*)(*((C_word*)t22+1)))(5,av2);}} /* file-access-time in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2405(C_word c,C_word *av){ C_word tmp; C_word 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_2405,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2409,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:265: ##sys#stat */ f_2333(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[22]);} /* k2407 in file-access-time in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2409(C_word c,C_word *av){ C_word tmp; 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_2409,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_flonum(&a,C_statbuf.st_atime); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* set-signal-mask! in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6305(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6305,2,av);} /* posixwin.scm:1514: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[385]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2413 in file-change-time in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2415(C_word c,C_word *av){ C_word tmp; 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_2415,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_flonum(&a,C_statbuf.st_ctime); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* file-change-time in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2411(C_word c,C_word *av){ C_word tmp; C_word 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_2411,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2415,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:266: ##sys#stat */ f_2333(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[23]);} /* file-owner in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2417(C_word c,C_word *av){ C_word tmp; C_word 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_2417,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2421,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:267: ##sys#stat */ f_2333(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[24]);} /* k5594 in k5590 in k5586 in k5576 in k5569 in process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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,5)))){ C_save_and_reclaim((void *)f_5596,2,av);} /* posixwin.scm:1232: values */{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5590 in k5586 in k5576 in k5569 in process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_5592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5592,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5596,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:1236: open-input-file* */ t4=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:1232: values */{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}}} /* g1382 in chkstrlst in %process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static C_word C_fcall f_5701(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]));} /* a5307 in process-execute in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_5308,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:1155: posix-error */ t8=lf[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t1; av2[2]=lf[131]; av2[3]=lf[311]; av2[4]=lf[312]; av2[5]=((C_word*)t0)[2]; f_2315(6,av2);}} else{ t8=C_SCHEME_UNDEFINED; t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* local-timezone-abbreviation in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *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_5108,2,av);} a=C_alloc(5); t2=C_a_i_bytevector(&a,1,C_fix(3)); t3=stub1134(t2); /* posixwin.scm:1071: ##sys#peek-c-string */ t4=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4459 in k4362 in k4356 in k4353 in file-mkstemp in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4461,2,av);} if(C_truep(t1)){ t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]); if(C_truep(t2)){ /* posixwin.scm:765: ##sys#signal-hook */ t3=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=lf[10]; av2[3]=lf[183]; av2[4]=lf[187]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; f_4367(2,av2);}}} else{ /* posixwin.scm:763: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[10]; av2[3]=lf[183]; av2[4]=lf[188]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k5586 in k5576 in k5569 in process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_5588,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5592,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])){ /* posixwin.scm:1234: open-output-file* */ t4=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_fix((C_word)*((int *)C_data_pointer(((C_word*)t0)[7]))); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_5592(2,av2);}}} /* memory-mapped-file-pointer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6110(C_word c,C_word *av){ C_word tmp; C_word 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_6110,3,av);} t3=C_i_check_structure_2(t2,lf[347],lf[353]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a2999 in k2938 in create-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_3000,5,av);} if(C_truep(t3)){ /* posix-common.scm:460: make-pathname */ t5=*((C_word*)lf[87]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k5735 in %process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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(9,c,2)))){ C_save_and_reclaim((void *)f_5737,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,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],tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)t0)[5])){ /* posixwin.scm:1257: chkstrlst */ t3=((C_word*)t0)[9]; f_5696(t3,t2,((C_word*)t0)[5]);} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5740(2,av2);}}} /* k4213 in k4210 in k4197 in file-open in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4215,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4210 in k4197 in file-open in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 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_4212,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_4215,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_4221,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:706: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[7]+1); av2[1]=t5; tp(2,av2);}} else{ t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* file-link in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6185,2,av);} /* posixwin.scm:1494: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[365]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4016 in doloop683 in tmp12244 in a3968 in a3947 in k3938 in list->c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4018,2,av);} /* posix-common.scm:711: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[13]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* a5744 in k5738 in k5735 in %process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_5745,2,av);} /* posixwin.scm:1258: ##sys#process */ t2=*((C_word*)lf[322]+1);{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)((C_word*)t0)[3])[1]; av2[4]=((C_word*)((C_word*)t0)[4])[1]; av2[5]=((C_word*)t0)[5]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_TRUE; av2[8]=((C_word*)t0)[6]; av2[9]=((C_word*)((C_word*)t0)[7])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} /* k5738 in k5735 in %process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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(13,c,6)))){ C_save_and_reclaim((void *)f_5740,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|8,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],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li156),tmp=(C_word)a,a+=9,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5751,a[2]=((C_word*)t0)[6],a[3]=((C_word)li157),tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:1258: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4463 in k4362 in k4356 in k4353 in file-mkstemp in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4465,2,av);} if(C_truep(t1)){ t2=t1; /* posixwin.scm:759: directory-exists? */ t3=*((C_word*)lf[189]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ /* posixwin.scm:759: directory-exists? */ t2=*((C_word*)lf[189]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[190]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k4000 in k3997 in k3991 in doloop683 in tmp12244 in a3968 in a3947 in k3938 in list->c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4002(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4002,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_3977(t5,((C_word*)t0)[5],t3,t4);} /* current-group-id in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6173,2,av);} /* posixwin.scm:1492: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[363]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3687 in k3678 in time->string in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3689,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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[54]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[119]; av2[3]=lf[120]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* f_3460 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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,1)))){ C_save_and_reclaim((void *)f_3460,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* a6379 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6380(C_word c,C_word *av){ C_word tmp; C_word 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_6380,3,av);} t3=C_i_check_exact_2(t2,lf[127]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(*((C_word*)lf[126]+1),t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3678 in time->string in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3680,2,av);} a=C_alloc(9); if(C_truep(((C_word*)t0)[2])){ t2=C_i_check_string_2(((C_word*)t0)[2],lf[119]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3689,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_3699,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[13]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[13]+1); av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=lf[119]; tp(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3706,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_3727,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[76]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[76]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=C_make_character(0); tp(4,av2);}}} /* k5576 in k5569 in process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5578,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5588,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:1233: open-input-file* */ t3=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_fix((C_word)*((int *)C_data_pointer(((C_word*)t0)[9]))); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_5588(2,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5608,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[11],tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:1238: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[7]+1); av2[1]=t2; tp(2,av2);}}} /* loop in file-close in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4239(C_word c,C_word *av){ C_word tmp; 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_4239,2,av);} t2=C_close(((C_word*)t0)[2]); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ t3=C_fix((C_word)errno); if(C_truep(C_i_eqvp(t3,C_fix((C_word)EINTR)))){ /* posixwin.scm:716: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[175]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[175]+1); av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[3])[1]; tp(3,av2);}} else{ /* posixwin.scm:718: posix-error */ t4=lf[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t1; av2[2]=lf[10]; av2[3]=lf[174]; av2[4]=lf[176]; av2[5]=((C_word*)t0)[2]; f_2315(6,av2);}}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* current-user-id in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6179,2,av);} /* posixwin.scm:1493: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[364]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5569 in process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t3; C_word t4; C_word t5; C_word 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(35,c,5)))){ C_save_and_reclaim((void *)f_5571,2,av);} a=C_alloc(35); 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|11,a[1]=(C_word)f_5578,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t9,a[6]=((C_word*)t0)[4],a[7]=t5,a[8]=((C_word*)t0)[5],a[9]=t7,a[10]=((C_word*)t0)[6],a[11]=t2,tmp=(C_word)a,a+=12,tmp); t12=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5615,a[2]=t11,a[3]=((C_word*)t0)[7],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[3],a[8]=t9,a[9]=t7,a[10]=t5,tmp=(C_word)a,a+=11,tmp); /* posixwin.scm:1228: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[324]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[324]+1); av2[1]=t12; av2[2]=t3; av2[3]=C_fix(0); av2[4]=C_SCHEME_FALSE; av2[5]=lf[325]; tp(6,av2);}} /* current-effective-user-name in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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,3)))){ C_save_and_reclaim((void *)f_6167,2,av);} /* posixwin.scm:1491: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[362]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* file-close in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_4230,3,av);} a=C_alloc(7); t3=C_i_check_exact_2(t2,lf[174]); 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_4239,a[2]=t2,a[3]=t5,a[4]=((C_word)li93),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t1; f_4239(2,av2);}} /* current-effective-user-id in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6161,2,av);} /* posixwin.scm:1490: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[361]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* process-spawn in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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,7)))){ C_save_and_reclaim((void*)f_5361,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; C_word t17; C_word t18; C_word t19; C_word t20; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_END_OF_LIST: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_i_nullp(t12); t14=(C_truep(t13)?C_SCHEME_FALSE:C_i_car(t12)); t15=C_i_nullp(t12); t16=(C_truep(t15)?C_SCHEME_END_OF_LIST:C_i_cdr(t12)); t17=(C_truep(t14)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5405,a[2]=((C_word)li145),tmp=(C_word)a,a+=3,tmp):lf[308]); t18=C_i_check_exact_2(t2,lf[313]); t19=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5391,a[2]=t2,a[3]=t3,a[4]=((C_word)li146),tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:1161: call-with-exec-args */ t20=lf[146]; f_4087(t20,t1,lf[313],t3,t17,t6,t10,t19);} /* f_3452 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3452,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a6388 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6389(C_word c,C_word *av){ C_word tmp; 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_6389,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_SCHEME_FALSE:C_i_car(t2)); t5=(C_truep(t4)?C_i_check_exact_2(t4,lf[106]):C_SCHEME_UNDEFINED); if(C_truep(t4)){ t6=C_umask(t4); if(C_truep(t4)){ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_umask(t6); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t6=C_umask(C_fix(0)); if(C_truep(t4)){ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_umask(t6); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} /* find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3466(C_word c,C_word *av){ C_word tmp; C_word 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_3466,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_3470,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_3510,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:552: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[101]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[101]+1); av2[1]=t4; av2[2]=lf[105]; av2[3]=t3; av2[4]=t5; tp(5,av2);}} /* time->string in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_3673,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_3680,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_3519(t7,lf[119],t2);} /* k4284 in k4272 in k4269 in file-read in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_4286,2,av);} /* posixwin.scm:730: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[10]; av2[3]=lf[177]; av2[4]=lf[178]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_3041,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_3045,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ /* posix-common.scm:468: current-directory */ t5=*((C_word*)lf[72]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_car(t3); f_3045(2,av2);}}} /* process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_5778,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:1264: %process */ f_5694(t1,lf[327],C_SCHEME_FALSE,t2,t5,t9,t13);} else{ t14=C_i_cdr(t11); /* posixwin.scm:1264: %process */ f_5694(t1,lf[327],C_SCHEME_FALSE,t2,t5,t9,t13);}} /* k3043 in directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3045(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_3045,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[30]); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3060,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[76]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[76]+1); av2[1]=t11; av2[2]=C_fix(256); av2[3]=C_make_character(32); tp(4,av2);}} /* k5774 in k5770 in %process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_5776,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_5737(2,av2);}} /* k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t5; C_word t6; C_word t7; C_word 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_3485,2,av);} a=C_alloc(17); 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=t1; t9=((C_word*)t0)[8]; t10=C_i_check_string_2(t3,lf[80]); 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|9,a[1]=(C_word)f_3294,a[2]=t8,a[3]=t5,a[4]=t12,a[5]=t9,a[6]=t2,a[7]=t3,a[8]=t6,a[9]=t4,tmp=(C_word)a,a+=10,tmp); if(C_truep(t7)){ if(C_truep(C_fixnump(t7))){ t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3460,a[2]=t12,a[3]=t7,a[4]=((C_word)li45),tmp=(C_word)a,a+=5,tmp); t15=t13; f_3294(t15,t14);} else{ t14=t13; f_3294(t14,t7);}} else{ t14=t13; f_3294(t14,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3452,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp));}} /* k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3482,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3485,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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|2,a[1]=(C_word)f_3490,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:552: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[101]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[101]+1); av2[1]=t3; av2[2]=lf[82]; av2[3]=((C_word*)t0)[8]; av2[4]=t4; tp(5,av2);}} /* a4033 in tmp22245 in a3968 in a3947 in k3938 in list->c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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!=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_4034,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k5770 in %process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5772,2,av);} a=C_alloc(4); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5776,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:1256: ##sys#shell-command */ t4=*((C_word*)lf[315]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* fifo? in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6366(C_word c,C_word *av){ C_word tmp; C_word 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_6366,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* free-c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_4051(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_4051,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4055,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:719: pointer-vector-length */ t4=*((C_word*)lf[144]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* call-with-input-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_4679,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_4683,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[195]+1); av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* create-session in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6143,2,av);} /* posixwin.scm:1487: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[358]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3697 in k3678 in time->string in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3699,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3703,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[76]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[76]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=C_make_character(0); tp(4,av2);}} /* k4669 in k4666 in close-output-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4671,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* create-symbolic-link in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6149,2,av);} /* posixwin.scm:1488: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[359]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3068 in k3064 in k3061 in k3058 in k3043 in directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 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_3070,2,av);} a=C_alloc(10); t2=C_opendir(t1,((C_word*)t0)[2]); if(C_truep(C_null_pointerp(((C_word*)t0)[2]))){ /* posix-common.scm:477: posix-error */ t3=lf[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[10]; av2[3]=lf[30]; av2[4]=lf[89]; av2[5]=((C_word*)t0)[4]; f_2315(6,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|7,a[1]=(C_word)f_3084,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)li32),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_3084(t6,((C_word*)t0)[3]);}} /* k4043 in a3968 in a3947 in k3938 in list->c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4045,2,av);} a=C_alloc(3); /* tmp22245 */ t2=((C_word*)t0)[2]; f_4028(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* utc-time->seconds in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6353(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6353,2,av);} /* posixwin.scm:1522: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[393]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* doloop702 in k4053 in free-c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_4060(C_word t0,C_word t1,C_word 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_4060,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_4070,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:722: pointer-vector-ref */ t5=*((C_word*)lf[143]+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);}}} /* string->time in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6359,2,av);} /* posixwin.scm:1523: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[394]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* set-buffering-mode! in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_5168,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; t5=t2; t6=C_i_check_port_2(t5,C_fix(0),C_SCHEME_TRUE,lf[297]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5174,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t4))){ t8=t4; t9=t7; f_5174(t9,C_u_i_car(t8));} else{ t8=t7; f_5174(t8,C_fix((C_word)BUFSIZ));}} /* system-information in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *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_5928,2,av);} a=C_alloc(6); if(C_truep(C_sysinfo())){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5939,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_hostname); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5954,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posixwin.scm:1299: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[7]+1); av2[1]=t2; tp(2,av2);}}} /* k5158 in terminal-size in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_5160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5160,2,av);} if(C_truep(t1)){ /* posixwin.scm:1090: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); av2[3]=C_fix(0); C_values(4,av2);}} else{ /* posixwin.scm:1091: ##sys#error */ t2=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[295]; av2[3]=lf[296]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k4681 in call-with-input-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_4683,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4688,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li107),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4694,a[2]=t2,a[3]=((C_word)li108),tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:846: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4687 in k4681 in call-with-input-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *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_4688,2,av);} /* posixwin.scm:847: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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 *a; if(c<9) C_bad_min_argc_2(c,9,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-9)*C_SIZEOF_PAIR +28,c,3)))){ C_save_and_reclaim((void*)f_5561,c,av);} a=C_alloc((c-9)*C_SIZEOF_PAIR+28); t9=C_build_rest(&a,c,9,av); C_word t10; C_word t11; C_word 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; t10=C_i_nullp(t9); t11=(C_truep(t10)?C_SCHEME_FALSE:C_i_car(t9)); t12=C_a_i_cons(&a,2,t3,t4); t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5571,a[2]=t1,a[3]=t8,a[4]=t7,a[5]=t6,a[6]=t2,a[7]=t3,tmp=(C_word)a,a+=8,tmp); t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5647,a[2]=t13,tmp=(C_word)a,a+=3,tmp); if(C_truep(t11)){ /* posixwin.scm:1220: string-intersperse */ t15=*((C_word*)lf[326]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t13; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} else{ 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=lf[308]; 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_5655,a[2]=t17,a[3]=t21,a[4]=t19,a[5]=t18,a[6]=((C_word)li151),tmp=(C_word)a,a+=7,tmp)); t23=((C_word*)t21)[1]; f_5655(t23,t14,t12);}} /* k4219 in k4210 in k4197 in file-open in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4221,2,av);} /* posixwin.scm:707: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[10]; av2[3]=lf[172]; av2[4]=lf[173]; 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);}} /* create-fifo in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6137,2,av);} /* posixwin.scm:1486: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[357]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* change-file-owner in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6131,2,av);} /* posixwin.scm:1485: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[356]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3061 in k3058 in k3043 in directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3063,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3066,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); /* posix-common.scm:472: ##sys#make-pointer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[90]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[90]+1); av2[1]=t3; tp(2,av2);}} /* k5396 in a5390 in process-spawn in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5398,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3058 in k3043 in directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3060,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3063,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); /* posix-common.scm:471: ##sys#make-pointer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[90]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[90]+1); av2[1]=t3; tp(2,av2);}} /* a5390 in process-spawn in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_5391,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_5398,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:1169: posix-error */ t10=lf[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t8; av2[2]=lf[131]; av2[3]=lf[313]; av2[4]=lf[314]; av2[5]=((C_word*)t0)[3]; f_2315(6,av2);}} else{ t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* k4053 in free-c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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(8,c,3)))){ C_save_and_reclaim((void *)f_4055,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_4060,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li81),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_4060(t6,((C_word*)t0)[3],C_fix(0));} /* for-each-loop1381 in chkstrlst in %process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static C_word C_fcall f_5710(C_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:1249: g1382 */ f_5701(((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);}} /* k4068 in doloop702 in k4053 in free-c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4070,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4073,a[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:723: free */ t3=*((C_word*)lf[142]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_4060(t4,((C_word*)t0)[4],t3);}} /* user-information in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6347,2,av);} /* posixwin.scm:1521: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[392]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5175 in k5172 in set-buffering-mode! in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t3; C_word 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_5177,2,av);} a=C_alloc(6); t2=t1; t3=C_i_check_exact_2(((C_word*)t0)[2],lf[297]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5186,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); t5=C_slot(((C_word*)t0)[4],C_fix(7)); t6=C_eqp(lf[47],t5); if(C_truep(t6)){ t7=C_setvbuf(((C_word*)t0)[4],t2,((C_word*)t0)[2]); t8=t4; f_5186(t8,C_fixnum_lessp(t7,C_fix(0)));} else{ t7=t4; f_5186(t7,C_SCHEME_TRUE);}} /* k5937 in system-information in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_5939,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5943,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_osrel); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5172 in set-buffering-mode! in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_5174(C_word t0,C_word t1){ C_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,5)))){ C_save_and_reclaim_args((void *)trf_5174,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_5177,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=C_eqp(t3,lf[299]); if(C_truep(t5)){ t6=t4;{ C_word av2[2]; av2[0]=t6; av2[1]=C_fix((C_word)_IOFBF); f_5177(2,av2);}} else{ t6=C_eqp(t3,lf[300]); if(C_truep(t6)){ t7=C_fix((C_word)_IOLBF); t8=t4;{ C_word av2[2]; av2[0]=t8; av2[1]=t7; f_5177(2,av2);}} else{ t7=C_eqp(t3,lf[301]); if(C_truep(t7)){ t8=t4;{ C_word av2[2]; av2[0]=t8; av2[1]=C_fix((C_word)_IONBF); f_5177(2,av2);}} else{ /* posixwin.scm:1106: ##sys#error */ t8=*((C_word*)lf[54]+1);{ C_word av2[6]; av2[0]=t8; av2[1]=t4; av2[2]=lf[297]; av2[3]=lf[302]; av2[4]=((C_word*)t0)[2]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}}}}} /* terminal-name in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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,3)))){ C_save_and_reclaim((void *)f_6341,2,av);} /* posixwin.scm:1520: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[391]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4696 in a4693 in k4681 in call-with-input-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4698,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4693 in k4681 in call-with-input-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_4694,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_4698,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:849: close-input-pipe */ t4=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4275 in k4272 in k4269 in file-read in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_4277,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k4272 in k4269 in file-read in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 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_4274,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_4277,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_4286,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:729: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[7]+1); av2[1]=t5; tp(2,av2);}} else{ t5=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ 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);}}} /* k4269 in file-read in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_4271,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4274,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_4274(2,av2);}} else{ /* posixwin.scm:726: ##sys#signal-hook */ t4=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[15]; av2[3]=lf[177]; av2[4]=lf[179]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} else{ /* posixwin.scm:726: ##sys#signal-hook */ t4=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[15]; av2[3]=lf[177]; av2[4]=lf[179]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} /* change-directory* in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6125,2,av);} /* posixwin.scm:1484: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[355]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a3492 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3493(C_word c,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_3493,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a3495 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3496(C_word c,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_3496,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a3489 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3490(C_word c,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_3490,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* signal-unmask! in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6335,2,av);} /* posixwin.scm:1519: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[390]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5184 in k5175 in k5172 in set-buffering-mode! in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_5186(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_5186,2,t0,t1);} if(C_truep(t1)){ /* posixwin.scm:1112: ##sys#error */ t2=*((C_word*)lf[54]+1);{ C_word av2[7]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[297]; av2[3]=lf[298]; 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);}}} /* k3064 in k3061 in k3058 in k3043 in directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3066,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3070,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); /* posix-common.scm:475: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[13]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[30]; tp(4,av2);}} /* k4440 in suffix-loop in loop in k4365 in k4362 in k4356 in k4353 in file-mkstemp in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4442,2,av);} t2=C_i_string_ref(((C_word*)t0)[2],t1); t3=C_i_string_set(((C_word*)t0)[3],((C_word*)t0)[4],t2); t4=C_fixnum_difference(((C_word*)t0)[4],C_fix(1)); /* posixwin.scm:770: suffix-loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_4419(t5,((C_word*)t0)[6],t4);} /* k5501 in k5629 in k5625 in k5621 in k5617 in k5613 in k5569 in process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5503,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5507,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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:1213: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[13]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_5507(2,av2);}}} /* open-output-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_4603,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[199]); t5=C_i_pairp(t3); t6=(C_truep(t5)?C_slot(t3,C_fix(0)):lf[196]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4617,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t8=C_eqp(t6,lf[196]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4624,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:823: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[13]+1); av2[1]=t9; av2[2]=t2; av2[3]=lf[199]; tp(4,av2);}} else{ t9=C_eqp(t6,lf[197]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4634,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:824: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[13]+1); av2[1]=t10; av2[2]=t2; av2[3]=lf[199]; tp(4,av2);}} else{ /* posixwin.scm:798: ##sys#error */ t10=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t7; av2[2]=lf[198]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}} /* k5505 in k5501 in k5629 in k5625 in k5621 in k5617 in k5613 in k5569 in process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5507,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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=stub1258(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);}} /* file-lock/blocking in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6197,2,av);} /* posixwin.scm:1496: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[367]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* file-lock in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6191,2,av);} /* posixwin.scm:1495: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[366]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* loop in k3068 in k3064 in k3061 in k3058 in k3043 in directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_3084(C_word 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_3084,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_3098,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); /* posix-common.scm:485: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[74]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[74]+1); av2[1]=t5; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(0); av2[4]=t4; tp(5,av2);}}} /* k4071 in k4068 in doloop702 in k4053 in free-c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_4073,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4060(t3,((C_word*)t0)[4],t2);} /* signal-mask! in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6323,2,av);} /* posixwin.scm:1517: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[388]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* signal-masked? in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6329,2,av);} /* posixwin.scm:1518: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[389]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a3498 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *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_3499,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3096 in loop in k3068 in k3064 in k3061 in k3058 in k3043 in directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 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_3098,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_3110,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_3110(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_3110(t11,(C_truep(t10)?t10:C_i_not(((C_word*)t0)[5])));} else{ t10=t6; f_3110(t10,C_i_not(((C_word*)t0)[5]));}}} else{ t8=t6; f_3110(t8,C_SCHEME_FALSE);}} /* k3432 in k3425 in k3326 in k3317 in loop in k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3434,2,av);} /* posix-common.scm:549: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3306(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* call-with-exec-args in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_4087(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_4087,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(10); t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4091,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:729: 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);}} /* nop in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_4085,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* _exit in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_5121,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; if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=t1; t6=C_i_foreign_fixnum_argumentp(t4); t7=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=stub1140(C_SCHEME_UNDEFINED,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t3=t1; t4=C_i_foreign_fixnum_argumentp(C_fix(0)); t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=stub1140(C_SCHEME_UNDEFINED,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k4479 in loop in k4356 in k4353 in file-mkstemp in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_4481(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_4481,2,t0,t1);} if(C_truep(t1)){ t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* posixwin.scm:757: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4474(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);}}} /* file-read in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *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,3)))){ C_save_and_reclaim((void*)f_4261,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; t5=C_i_check_exact_2(t2,lf[177]); t6=C_i_check_exact_2(t3,lf[177]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4271,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t4))){ t8=t4; t9=t7;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_u_i_car(t8); f_4271(2,av2);}} else{ t8=t3; /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[76]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[76]+1); av2[1]=t7; av2[2]=t8; av2[3]=C_make_character(32); tp(4,av2);}}} /* k4095 in k4089 in call-with-exec-args in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 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_4097,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_4100,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4105,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)li90),tmp=(C_word)a,a+=10,tmp); /* posix-common.scm:726: call-with-current-continuation */ t7=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* a5750 in k5738 in k5735 in %process in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_5751(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_5751,6,av);} if(C_truep(((C_word*)t0)[2])){ /* posixwin.scm:1260: values */{ C_word *av2=av; /* Re-use our own argvector */ 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:1261: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; C_values(5,av2);}}} /* k4089 in call-with-exec-args in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_4091,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_4097,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:731: list->c-string-buffer */ f_3932(t3,t2,((C_word*)t0)[9],((C_word*)t0)[6]);} /* loop in k4356 in k4353 in file-mkstemp in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_4474(C_word t0,C_word t1,C_word 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_4474,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4481,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_4481(t5,C_eqp(t4,C_make_character(88)));} else{ t4=t3; f_4481(t4,C_SCHEME_FALSE);}} /* k3598 in k3592 in seconds->string in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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(0,c,4)))){ C_save_and_reclaim((void *)f_3600,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[74]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[74]+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[54]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[113]; av2[3]=lf[114]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* terminal-port? in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_5135,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_fix(0),C_SCHEME_TRUE,lf[294]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5141,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:1085: ##sys#peek-unsigned-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[69]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[69]+1); av2[1]=t5; av2[2]=t2; av2[3]=C_fix(0); tp(4,av2);}} /* k5139 in terminal-port? in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5141,2,av);} t2=C_eqp(C_fix(0),t1); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_tty_portp(((C_word*)t0)[3]); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* current-effective-group-id in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_6155(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6155,2,av);} /* posixwin.scm:1489: error */ t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[360]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* local-time->seconds in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3628(C_word c,C_word *av){ C_word tmp; C_word 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_3628,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3632,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_3519(t3,lf[115],t2);} /* suffix-loop in loop in k4365 in k4362 in k4356 in k4353 in file-mkstemp in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_4419(C_word t0,C_word t1,C_word 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_4419,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4442,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* posixwin.scm:769: random */ t5=*((C_word*)lf[186]+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{ 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);}}} /* terminal-size in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_5153,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5160,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:1089: terminal-port? */ t4=*((C_word*)lf[294]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3470(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3470,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3473,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_3502,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:552: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[101]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[101]+1); av2[1]=t3; av2[2]=lf[104]; av2[3]=((C_word*)t0)[4]; av2[4]=t4; tp(5,av2);}} /* k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3473(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3473,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3476,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_3499,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:552: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[101]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[101]+1); av2[1]=t3; av2[2]=lf[103]; av2[3]=((C_word*)t0)[5]; av2[4]=t4; tp(5,av2);}} /* k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 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_3479,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3482,a[2]=((C_word*)t0)[2],a[3]=((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_3493,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:552: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[101]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[101]+1); av2[1]=t3; av2[2]=lf[81]; av2[3]=((C_word*)t0)[7]; av2[4]=t4; tp(5,av2);}} /* k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3476,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3479,a[2]=((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_3496,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:552: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[101]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[101]+1); av2[1]=t3; av2[2]=lf[102]; av2[3]=((C_word*)t0)[6]; av2[4]=t4; tp(5,av2);}} /* k3640 in k3634 in k3630 in local-time->seconds in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3642,2,av);} if(C_truep(t1)){ /* posix-common.scm:606: ##sys#error */ t2=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[115]; av2[3]=lf[116]; 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k4615 in open-output-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4617,2,av);} /* posixwin.scm:820: check */ f_4545(((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,t1);} /* k3634 in k3630 in local-time->seconds in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3636,2,av);} a=C_alloc(9); t2=C_a_mktime(&a,2,((C_word*)t0)[2],t1); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3642,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:605: fp= */ t4=*((C_word*)lf[117]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[118]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* f_2777 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_2777,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_check_exact_2(t2,*((C_word*)lf[70]+1)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2784,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ t6=t5; f_2784(t6,C_dup(t2));} else{ t6=C_i_car(t3); t7=C_i_check_exact_2(t6,lf[70]); t8=t5; f_2784(t8,C_dup2(t2,t6));}} /* k3410 in k3360 in k3416 in k3326 in k3317 in loop in k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3412,2,av);} if(C_truep(t1)){ /* posix-common.scm:548: action */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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]; /* posix-common.scm:548: loop */ t3=((C_word*)((C_word*)t0)[6])[1]; f_3306(t3,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],t2);}} /* k2769 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_2771,2,av);} a=C_alloc(4); if(C_truep(C_i_zerop(t1))){ /* posix-common.scm:397: posix-error */ t2=lf[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[15]; av2[3]=lf[12]; av2[4]=lf[67]; av2[5]=((C_word*)t0)[3]; f_2315(6,av2);}} else{ t2=C_C_fileno(((C_word*)t0)[3]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2754,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:395: posix-error */ t4=lf[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[10]; av2[3]=lf[12]; av2[4]=lf[68]; av2[5]=((C_word*)t0)[3]; f_2315(6,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* f_5322 in process-execute in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_5322(C_word c,C_word *av){ C_word tmp; C_word 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_5322,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3630 in local-time->seconds in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3632,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3636,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[76]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[76]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_make_character(0); tp(4,av2);}} /* k3425 in k3326 in k3317 in loop in k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3427,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3434,a[2]=((C_word*)t0)[2],a[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:549: action */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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{ /* posix-common.scm:550: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3306(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[8]);}} /* k4622 in open-output-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ C_save_and_reclaim((void *)f_4624,2,av);} a=C_alloc(2); t2=open_text_output_pipe(&a,1,t1); /* posixwin.scm:820: check */ f_4545(((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,t2);} /* k3441 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3443,2,av);} a=C_alloc(4); t2=t1; t3=((C_word*)t0)[2]; f_3297(t3,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3444,a[2]=t2,a[3]=((C_word)li44),tmp=(C_word)a,a+=4,tmp));} /* f_3444 in k3441 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3444(C_word c,C_word *av){ C_word tmp; C_word 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_3444,3,av);} /* posix-common.scm:528: irregex-match */ t3=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* change-file-mode in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_4894,4,av);} a=C_alloc(5); t4=C_i_check_string_2(t2,lf[277]); t5=C_i_check_exact_2(t3,lf[277]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4918,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:986: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[13]+1); av2[1]=t6; av2[2]=t2; av2[3]=lf[277]; tp(4,av2);}} /* k3416 in k3326 in k3317 in loop in k3302 in k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in ... */ static void C_ccall f_3418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3418,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_3350,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_3353,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); /* posix-common.scm:540: pproc */ t5=((C_word*)t0)[10];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_3362,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); /* posix-common.scm:541: lproc */ t4=((C_word*)t0)[13];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k4632 in open-output-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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(2,c,4)))){ C_save_and_reclaim((void *)f_4634,2,av);} a=C_alloc(2); t2=open_binary_output_pipe(&a,1,t1); /* posixwin.scm:820: check */ f_4545(((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,t2);} /* close-input-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_4643,3,av);} a=C_alloc(5); t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_TRUE,C_SCHEME_TRUE,lf[200]); t5=close_pipe(t2); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4650,a[2]=t1,a[3]=t5,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:830: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[7]+1); av2[1]=t6; tp(2,av2);}} /* k3021 in k2938 in create-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3023,2,av);} 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* posix-common.scm:451: posix-error */ t4=lf[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[10]; av2[3]=lf[83]; av2[4]=lf[84]; av2[5]=((C_word*)t0)[3]; f_2315(6,av2);}}} /* k4651 in k4648 in close-input-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4653,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4648 in close-input-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4650(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4650,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4653,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_eqp(C_fix(-1),((C_word*)t0)[3]); if(C_truep(t3)){ /* posixwin.scm:832: ##sys#signal-hook */ t4=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t2; av2[2]=lf[10]; av2[3]=lf[200]; av2[4]=lf[201]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* tmp22245 in a3968 in a3947 in k3938 in list->c-string-buffer in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_4028(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_4028,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4034,a[2]=t2,a[3]=((C_word)li76),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:696: k674 */ 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);}} /* k4666 in close-output-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_4668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4668,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4671,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_eqp(C_fix(-1),((C_word*)t0)[3]); if(C_truep(t3)){ /* posixwin.scm:840: ##sys#signal-hook */ t4=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t2; av2[2]=lf[10]; av2[3]=lf[202]; av2[4]=lf[203]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* close-output-pipe in k3851 in k3515 in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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_4661,3,av);} a=C_alloc(5); t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[202]); t5=close_pipe(t2); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4668,a[2]=t1,a[3]=t5,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:838: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[7]+1); av2[1]=t6; tp(2,av2);}} /* k2785 in k2782 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2787,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2782 */ static void C_fcall f_2784(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_2784,2,t0,t1);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2787,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:408: posix-error */ t4=lf[2];{ C_word av2[6]; av2[0]=t4; av2[1]=t3; av2[2]=lf[10]; av2[3]=lf[70]; av2[4]=lf[71]; av2[5]=((C_word*)t0)[3]; f_2315(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);}}} /* k3216 in k3209 in a3206 in conc-loop in glob in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 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_3218,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_3220,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)li36),tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_3220(t5,((C_word*)t0)[6],t1);} /* k2976 in k2960 in k2957 in loop in k2948 in k2938 in create-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2978,2,av);} 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* posix-common.scm:451: posix-error */ t4=lf[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[10]; av2[3]=lf[83]; av2[4]=lf[84]; av2[5]=((C_word*)t0)[3]; f_2315(6,av2);}}} /* k3209 in a3206 in conc-loop in glob in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_3211,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3218,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)[4])){ /* posix-common.scm:505: directory */ t4=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* posix-common.scm:505: directory */ t4=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[94]; av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k2983 in k2957 in loop in k2948 in k2938 in create-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2985,2,av);} /* posix-common.scm:462: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2952(t2,((C_word*)t0)[3],t1);} /* a2993 in k2938 in create-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *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_2994,2,av);} /* posix-common.scm:459: decompose-pathname */ t2=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2990 in loop in k2948 in k2938 in create-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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,1)))){ C_save_and_reclaim((void *)f_2992,2,av);} t2=((C_word*)t0)[2]; f_2959(t2,C_i_not(t1));} /* a3206 in conc-loop in glob in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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=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(9,c,4)))){ C_save_and_reclaim((void *)f_3207,5,av);} a=C_alloc(9); t5=t2; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3211,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3281,a[2]=t6,tmp=(C_word)a,a+=3,tmp); if(C_truep(t3)){ t8=t3; /* posix-common.scm:504: make-pathname */ t9=*((C_word*)lf[87]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t7; av2[2]=C_SCHEME_FALSE; av2[3]=t8; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ /* posix-common.scm:504: make-pathname */ t8=*((C_word*)lf[87]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=C_SCHEME_FALSE; av2[3]=lf[96]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} /* a3200 in conc-loop in glob in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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!=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_3201,2,av);} /* posix-common.scm:503: decompose-pathname */ t2=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in k3216 in k3209 in a3206 in conc-loop in glob in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_3220(C_word t0,C_word t1,C_word 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_3220,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t3=C_i_cdr(((C_word*)t0)[2]); /* posix-common.scm:506: conc-loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_3186(t4,t1,t3);} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3237,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); t4=C_i_car(t2); /* posix-common.scm:507: irregex-match */ t5=*((C_word*)lf[93]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k3295 in k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_3297(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_3297,2,t0,t1);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3304,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); /* posix-common.scm:530: directory */ t4=*((C_word*)lf[30]+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);}} /* k3292 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in find-files in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_3294(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_3294,2,t0,t1);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3297,a[2]=((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_3297(t4,((C_word*)t0)[9]);} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3443,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:527: irregex */ t5=*((C_word*)lf[100]+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);}}} /* k3247 in g422 in k3235 in loop in k3216 in k3209 in a3206 in conc-loop in glob in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3249,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3253,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_cdr(((C_word*)t0)[3]); /* posix-common.scm:511: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_3220(t5,t3,t4);} /* g422 in k3235 in loop in k3216 in k3209 in a3206 in conc-loop in glob in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_fcall f_3241(C_word t0,C_word t1,C_word 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_3241,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3249,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_3261,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:510: irregex-match-substring */ t5=*((C_word*)lf[92]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3235 in loop in k3216 in k3209 in a3206 in conc-loop in glob in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3237,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3241,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); /* posix-common.scm:502: g422 */ t3=t2; f_3241(t3,((C_word*)t0)[5],t1);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* posix-common.scm:512: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_3220(t4,((C_word*)t0)[5],t3);}} /* k2360 in k2356 in stat in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2362,2,av);} t2=C_fstat(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_2337(2,av2);}} /* k3259 in g422 in k3235 in loop in k3216 in k3209 in a3206 in conc-loop in glob in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_3261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3261,2,av);} /* posix-common.scm:510: make-pathname */ t2=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2932 in create-directory in k2642 in k2401 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ static void C_ccall f_2934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2934,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2376 in k2356 in stat in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2378,2,av);} /* posix-common.scm:227: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[13]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k2369 in k2356 in stat in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2371,2,av);} if(C_truep(((C_word*)t0)[2])){ t2=C_lstat(t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_2337(2,av2);}} else{ t2=C_stat(t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_2337(2,av2);}}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[469] = { {"f_2940:posixwin_2escm",(void*)f_2940}, {"f_2383:posixwin_2escm",(void*)f_2383}, {"f_3281:posixwin_2escm",(void*)f_3281}, {"f_2952:posixwin_2escm",(void*)f_2952}, {"f_2950:posixwin_2escm",(void*)f_2950}, {"f_2959:posixwin_2escm",(void*)f_2959}, {"f_2390:posixwin_2escm",(void*)f_2390}, {"f_2326:posixwin_2escm",(void*)f_2326}, {"f_2333:posixwin_2escm",(void*)f_2333}, {"f_2337:posixwin_2escm",(void*)f_2337}, {"f_2330:posixwin_2escm",(void*)f_2330}, {"f_2522:posixwin_2escm",(void*)f_2522}, {"f_2754:posixwin_2escm",(void*)f_2754}, {"f_2532:posixwin_2escm",(void*)f_2532}, {"f_2530:posixwin_2escm",(void*)f_2530}, {"f_2727:posixwin_2escm",(void*)f_2727}, {"f_2729:posixwin_2escm",(void*)f_2729}, {"f_2358:posixwin_2escm",(void*)f_2358}, {"f_2542:posixwin_2escm",(void*)f_2542}, {"f_2540:posixwin_2escm",(void*)f_2540}, {"f_2924:posixwin_2escm",(void*)f_2924}, {"f_2552:posixwin_2escm",(void*)f_2552}, {"f_2550:posixwin_2escm",(void*)f_2550}, {"f_2745:posixwin_2escm",(void*)f_2745}, {"f_4811:posixwin_2escm",(void*)f_4811}, {"f_3253:posixwin_2escm",(void*)f_3253}, {"f_2562:posixwin_2escm",(void*)f_2562}, {"f_2560:posixwin_2escm",(void*)f_2560}, {"f_2713:posixwin_2escm",(void*)f_2713}, {"f_2715:posixwin_2escm",(void*)f_2715}, {"f_4802:posixwin_2escm",(void*)f_4802}, {"f_2572:posixwin_2escm",(void*)f_2572}, {"f_2570:posixwin_2escm",(void*)f_2570}, {"f_2582:posixwin_2escm",(void*)f_2582}, {"f_2580:posixwin_2escm",(void*)f_2580}, {"f_2962:posixwin_2escm",(void*)f_2962}, {"f_2595:posixwin_2escm",(void*)f_2595}, {"f_2590:posixwin_2escm",(void*)f_2590}, {"f_2701:posixwin_2escm",(void*)f_2701}, {"f_2599:posixwin_2escm",(void*)f_2599}, {"f_2902:posixwin_2escm",(void*)f_2902}, {"f_3853:posixwin_2escm",(void*)f_3853}, {"f_3855:posixwin_2escm",(void*)f_3855}, {"f_3861:posixwin_2escm",(void*)f_3861}, {"f_3891:posixwin_2escm",(void*)f_3891}, {"f_5002:posixwin_2escm",(void*)f_5002}, {"f_3504:posixwin_2escm",(void*)f_3504}, {"f_3885:posixwin_2escm",(void*)f_3885}, {"f_3502:posixwin_2escm",(void*)f_3502}, {"f_5014:posixwin_2escm",(void*)f_5014}, {"f_5016:posixwin_2escm",(void*)f_5016}, {"f_5898:posixwin_2escm",(void*)f_5898}, {"f_2303:posixwin_2escm",(void*)f_2303}, {"f_2300:posixwin_2escm",(void*)f_2300}, {"f_2319:posixwin_2escm",(void*)f_2319}, {"f_2315:posixwin_2escm",(void*)f_2315}, {"f_5694:posixwin_2escm",(void*)f_5694}, {"f_5696:posixwin_2escm",(void*)f_5696}, {"f_4315:posixwin_2escm",(void*)f_4315}, {"f_4312:posixwin_2escm",(void*)f_4312}, {"f_5085:posixwin_2escm",(void*)f_5085}, {"f_5088:posixwin_2escm",(void*)f_5088}, {"f_5094:posixwin_2escm",(void*)f_5094}, {"f_6203:posixwin_2escm",(void*)f_6203}, {"f_5680:posixwin_2escm",(void*)f_5680}, {"f_6209:posixwin_2escm",(void*)f_6209}, {"f_5488:posixwin_2escm",(void*)f_5488}, {"f_5062:posixwin_2escm",(void*)f_5062}, {"f_5655:posixwin_2escm",(void*)f_5655}, {"f_6457:posixwin_2escm",(void*)f_6457}, {"f_5078:posixwin_2escm",(void*)f_5078}, {"f_5076:posixwin_2escm",(void*)f_5076}, {"f_5492:posixwin_2escm",(void*)f_5492}, {"f_4111:posixwin_2escm",(void*)f_4111}, {"f_4563:posixwin_2escm",(void*)f_4563}, {"f_6483:posixwin_2escm",(void*)f_6483}, {"f_4117:posixwin_2escm",(void*)f_4117}, {"f_4561:posixwin_2escm",(void*)f_4561}, {"f_5460:posixwin_2escm",(void*)f_5460}, {"f_5042:posixwin_2escm",(void*)f_5042}, {"f_5044:posixwin_2escm",(void*)f_5044}, {"f_5465:posixwin_2escm",(void*)f_5465}, {"f_4305:posixwin_2escm",(void*)f_4305}, {"f_6215:posixwin_2escm",(void*)f_6215}, {"f_4105:posixwin_2escm",(void*)f_4105}, {"f_4100:posixwin_2escm",(void*)f_4100}, {"f_6473:posixwin_2escm",(void*)f_6473}, {"f_5056:posixwin_2escm",(void*)f_5056}, {"f_6245:posixwin_2escm",(void*)f_6245}, {"f_5471:posixwin_2escm",(void*)f_5471}, {"f_5475:posixwin_2escm",(void*)f_5475}, {"f_3782:posixwin_2escm",(void*)f_3782}, {"f_5647:posixwin_2escm",(void*)f_5647}, {"f_5028:posixwin_2escm",(void*)f_5028}, {"f_5448:posixwin_2escm",(void*)f_5448}, {"f_6233:posixwin_2escm",(void*)f_6233}, {"f_4327:posixwin_2escm",(void*)f_4327}, {"f_5444:posixwin_2escm",(void*)f_5444}, {"f_6239:posixwin_2escm",(void*)f_6239}, {"f_4321:posixwin_2escm",(void*)f_4321}, {"f_3772:posixwin_2escm",(void*)f_3772}, {"f_5619:posixwin_2escm",(void*)f_5619}, {"f_4155:posixwin_2escm",(void*)f_4155}, {"f_4153:posixwin_2escm",(void*)f_4153}, {"f_5615:posixwin_2escm",(void*)f_5615}, {"f_4594:posixwin_2escm",(void*)f_4594}, {"f_3778:posixwin_2escm",(void*)f_3778}, {"f_6414:posixwin_2escm",(void*)f_6414}, {"f_3563:posixwin_2escm",(void*)f_3563}, {"f_4775:posixwin_2escm",(void*)f_4775}, {"f_6269:posixwin_2escm",(void*)f_6269}, {"f_5030:posixwin_2escm",(void*)f_5030}, {"f_6263:posixwin_2escm",(void*)f_6263}, {"f_4770:posixwin_2escm",(void*)f_4770}, {"f_5281:posixwin_2escm",(void*)f_5281}, {"f_4124:posixwin_2escm",(void*)f_4124}, {"f_5627:posixwin_2escm",(void*)f_5627}, {"f_5623:posixwin_2escm",(void*)f_5623}, {"f_4121:posixwin_2escm",(void*)f_4121}, {"f_4785:posixwin_2escm",(void*)f_4785}, {"f_4345:posixwin_2escm",(void*)f_4345}, {"f_6257:posixwin_2escm",(void*)f_6257}, {"f_4781:posixwin_2escm",(void*)f_4781}, {"f_3559:posixwin_2escm",(void*)f_3559}, {"f_6251:posixwin_2escm",(void*)f_6251}, {"f_4703:posixwin_2escm",(void*)f_4703}, {"f_4707:posixwin_2escm",(void*)f_4707}, {"f_6077:posixwin_2escm",(void*)f_6077}, {"f_3790:posixwin_2escm",(void*)f_3790}, {"f_6436:posixwin_2escm",(void*)f_6436}, {"f_4795:posixwin_2escm",(void*)f_4795}, {"f_6287:posixwin_2escm",(void*)f_6287}, {"f_6281:posixwin_2escm",(void*)f_6281}, {"f_5269:posixwin_2escm",(void*)f_5269}, {"f_4790:posixwin_2escm",(void*)f_4790}, {"f_4142:posixwin_2escm",(void*)f_4142}, {"f_4149:posixwin_2escm",(void*)f_4149}, {"f_4549:posixwin_2escm",(void*)f_4549}, {"f_4545:posixwin_2escm",(void*)f_4545}, {"f_6463:posixwin_2escm",(void*)f_6463}, {"f_5608:posixwin_2escm",(void*)f_5608}, {"f_6461:posixwin_2escm",(void*)f_6461}, {"f_4367:posixwin_2escm",(void*)f_4367}, {"f_4364:posixwin_2escm",(void*)f_4364}, {"f_6275:posixwin_2escm",(void*)f_6275}, {"f_5405:posixwin_2escm",(void*)f_5405}, {"f_4199:posixwin_2escm",(void*)f_4199}, {"f_4195:posixwin_2escm",(void*)f_4195}, {"f_5838:posixwin_2escm",(void*)f_5838}, {"f_4376:posixwin_2escm",(void*)f_4376}, {"f_4372:posixwin_2escm",(void*)f_4372}, {"f_5244:posixwin_2escm",(void*)f_5244}, {"f_4161:posixwin_2escm",(void*)f_4161}, {"f_6084:posixwin_2escm",(void*)f_6084}, {"f_3594:posixwin_2escm",(void*)f_3594}, {"f_3590:posixwin_2escm",(void*)f_3590}, {"f_6299:posixwin_2escm",(void*)f_6299}, {"f_6293:posixwin_2escm",(void*)f_6293}, {"f_4380:posixwin_2escm",(void*)f_4380}, {"f_6037:posixwin_2escm",(void*)f_6037}, {"f_5631:posixwin_2escm",(void*)f_5631}, {"f_6031:posixwin_2escm",(void*)f_6031}, {"f_4577:posixwin_2escm",(void*)f_4577}, {"f_3542:posixwin_2escm",(void*)f_3542}, {"f_4505:posixwin_2escm",(void*)f_4505}, {"f_3706:posixwin_2escm",(void*)f_3706}, {"f_6025:posixwin_2escm",(void*)f_6025}, {"f_6028:posixwin_2escm",(void*)f_6028}, {"f_4584:posixwin_2escm",(void*)f_4584}, {"f_6021:posixwin_2escm",(void*)f_6021}, {"f_3703:posixwin_2escm",(void*)f_3703}, {"f_6427:posixwin_2escm",(void*)f_6427}, {"f_6424:posixwin_2escm",(void*)f_6424}, {"f_6420:posixwin_2escm",(void*)f_6420}, {"f_4952:posixwin_2escm",(void*)f_4952}, {"f_3538:posixwin_2escm",(void*)f_3538}, {"f_4515:posixwin_2escm",(void*)f_4515}, {"f_4512:posixwin_2escm",(void*)f_4512}, {"f_4940:posixwin_2escm",(void*)f_4940}, {"f_6043:posixwin_2escm",(void*)f_6043}, {"f_4521:posixwin_2escm",(void*)f_4521}, {"f_3727:posixwin_2escm",(void*)f_3727}, {"f_3816:posixwin_2escm",(void*)f_3816}, {"f_2887:posixwin_2escm",(void*)f_2887}, {"f_2884:posixwin_2escm",(void*)f_2884}, {"f_4946:posixwin_2escm",(void*)f_4946}, {"f_3808:posixwin_2escm",(void*)f_3808}, {"f_4718:posixwin_2escm",(void*)f_4718}, {"f_4712:posixwin_2escm",(void*)f_4712}, {"f_4355:posixwin_2escm",(void*)f_4355}, {"f_4961:posixwin_2escm",(void*)f_4961}, {"f_4358:posixwin_2escm",(void*)f_4358}, {"f_2892:posixwin_2escm",(void*)f_2892}, {"f_3746:posixwin_2escm",(void*)f_3746}, {"f_3838:posixwin_2escm",(void*)f_3838}, {"f_4727:posixwin_2escm",(void*)f_4727}, {"f_4722:posixwin_2escm",(void*)f_4722}, {"f_4969:posixwin_2escm",(void*)f_4969}, {"f_3735:posixwin_2escm",(void*)f_3735}, {"f_3820:posixwin_2escm",(void*)f_3820}, {"f_4736:posixwin_2escm",(void*)f_4736}, {"f_4731:posixwin_2escm",(void*)f_4731}, {"f_6227:posixwin_2escm",(void*)f_6227}, {"f_6221:posixwin_2escm",(void*)f_6221}, {"f_3760:posixwin_2escm",(void*)f_3760}, {"f_3512:posixwin_2escm",(void*)f_3512}, {"f_4998:posixwin_2escm",(void*)f_4998}, {"f_3510:posixwin_2escm",(void*)f_3510}, {"f_4747:posixwin_2escm",(void*)f_4747}, {"f_4741:posixwin_2escm",(void*)f_4741}, {"f_3519:posixwin_2escm",(void*)f_3519}, {"f_3517:posixwin_2escm",(void*)f_3517}, {"f_3750:posixwin_2escm",(void*)f_3750}, {"f_3752:posixwin_2escm",(void*)f_3752}, {"f_4132:posixwin_2escm",(void*)f_4132}, {"f_4138:posixwin_2escm",(void*)f_4138}, {"f_4756:posixwin_2escm",(void*)f_4756}, {"f_4751:posixwin_2escm",(void*)f_4751}, {"f_4765:posixwin_2escm",(void*)f_4765}, {"f_4761:posixwin_2escm",(void*)f_4761}, {"f_3304:posixwin_2escm",(void*)f_3304}, {"f_3306:posixwin_2escm",(void*)f_3306}, {"f_2878:posixwin_2escm",(void*)f_2878}, {"toplevel:posixwin_2escm",(void*)C_posix_toplevel}, {"f_3110:posixwin_2escm",(void*)f_3110}, {"f_3319:posixwin_2escm",(void*)f_3319}, {"f_3387:posixwin_2escm",(void*)f_3387}, {"f_3328:posixwin_2escm",(void*)f_3328}, {"f_3350:posixwin_2escm",(void*)f_3350}, {"f_3353:posixwin_2escm",(void*)f_3353}, {"f_3180:posixwin_2escm",(void*)f_3180}, {"f_3186:posixwin_2escm",(void*)f_3186}, {"f_3374:posixwin_2escm",(void*)f_3374}, {"f_3372:posixwin_2escm",(void*)f_3372}, {"f_3379:posixwin_2escm",(void*)f_3379}, {"f_2844:posixwin_2escm",(void*)f_2844}, {"f_3362:posixwin_2escm",(void*)f_3362}, {"f_2848:posixwin_2escm",(void*)f_2848}, {"f_3391:posixwin_2escm",(void*)f_3391}, {"f_3394:posixwin_2escm",(void*)f_3394}, {"f_3399:posixwin_2escm",(void*)f_3399}, {"f_2867:posixwin_2escm",(void*)f_2867}, {"f_2868:posixwin_2escm",(void*)f_2868}, {"f_2423:posixwin_2escm",(void*)f_2423}, {"f_2429:posixwin_2escm",(void*)f_2429}, {"f_2427:posixwin_2escm",(void*)f_2427}, {"f_2421:posixwin_2escm",(void*)f_2421}, {"f_2435:posixwin_2escm",(void*)f_2435}, {"f_2433:posixwin_2escm",(void*)f_2433}, {"f_2288:posixwin_2escm",(void*)f_2288}, {"f_2804:posixwin_2escm",(void*)f_2804}, {"f_2657:posixwin_2escm",(void*)f_2657}, {"f_2291:posixwin_2escm",(void*)f_2291}, {"f_2817:posixwin_2escm",(void*)f_2817}, {"f_2297:posixwin_2escm",(void*)f_2297}, {"f_2294:posixwin_2escm",(void*)f_2294}, {"f_2454:posixwin_2escm",(void*)f_2454}, {"f_4910:posixwin_2escm",(void*)f_4910}, {"f_2820:posixwin_2escm",(void*)f_2820}, {"f_2838:posixwin_2escm",(void*)f_2838}, {"f_4918:posixwin_2escm",(void*)f_4918}, {"f_3120:posixwin_2escm",(void*)f_3120}, {"f_2644:posixwin_2escm",(void*)f_2644}, {"f_4930:posixwin_2escm",(void*)f_4930}, {"f_2649:posixwin_2escm",(void*)f_2649}, {"f_2699:posixwin_2escm",(void*)f_2699}, {"f_4920:posixwin_2escm",(void*)f_4920}, {"f_4938:posixwin_2escm",(void*)f_4938}, {"f_2686:posixwin_2escm",(void*)f_2686}, {"f_3943:posixwin_2escm",(void*)f_3943}, {"f_3940:posixwin_2escm",(void*)f_3940}, {"f_5947:posixwin_2escm",(void*)f_5947}, {"f_3948:posixwin_2escm",(void*)f_3948}, {"f_5943:posixwin_2escm",(void*)f_5943}, {"f_3932:posixwin_2escm",(void*)f_3932}, {"f_5959:posixwin_2escm",(void*)f_5959}, {"f_5954:posixwin_2escm",(void*)f_5954}, {"f_5951:posixwin_2escm",(void*)f_5951}, {"f_3964:posixwin_2escm",(void*)f_3964}, {"f_5969:posixwin_2escm",(void*)f_5969}, {"f_3960:posixwin_2escm",(void*)f_3960}, {"f_3969:posixwin_2escm",(void*)f_3969}, {"f_3954:posixwin_2escm",(void*)f_3954}, {"f_2611:posixwin_2escm",(void*)f_2611}, {"f_2617:posixwin_2escm",(void*)f_2617}, {"f_3975:posixwin_2escm",(void*)f_3975}, {"f_3971:posixwin_2escm",(void*)f_3971}, {"f_3977:posixwin_2escm",(void*)f_3977}, {"f_5910:posixwin_2escm",(void*)f_5910}, {"f_5916:posixwin_2escm",(void*)f_5916}, {"f_3409:posixwin_2escm",(void*)f_3409}, {"f_3999:posixwin_2escm",(void*)f_3999}, {"f_3993:posixwin_2escm",(void*)f_3993}, {"f_6119:posixwin_2escm",(void*)f_6119}, {"f_6317:posixwin_2escm",(void*)f_6317}, {"f_6311:posixwin_2escm",(void*)f_6311}, {"f_2403:posixwin_2escm",(void*)f_2403}, {"f_2405:posixwin_2escm",(void*)f_2405}, {"f_2409:posixwin_2escm",(void*)f_2409}, {"f_6305:posixwin_2escm",(void*)f_6305}, {"f_2415:posixwin_2escm",(void*)f_2415}, {"f_2411:posixwin_2escm",(void*)f_2411}, {"f_2417:posixwin_2escm",(void*)f_2417}, {"f_5596:posixwin_2escm",(void*)f_5596}, {"f_5592:posixwin_2escm",(void*)f_5592}, {"f_5701:posixwin_2escm",(void*)f_5701}, {"f_5308:posixwin_2escm",(void*)f_5308}, {"f_5108:posixwin_2escm",(void*)f_5108}, {"f_4461:posixwin_2escm",(void*)f_4461}, {"f_5588:posixwin_2escm",(void*)f_5588}, {"f_6110:posixwin_2escm",(void*)f_6110}, {"f_3000:posixwin_2escm",(void*)f_3000}, {"f_5737:posixwin_2escm",(void*)f_5737}, {"f_4215:posixwin_2escm",(void*)f_4215}, {"f_4212:posixwin_2escm",(void*)f_4212}, {"f_6185:posixwin_2escm",(void*)f_6185}, {"f_4018:posixwin_2escm",(void*)f_4018}, {"f_5745:posixwin_2escm",(void*)f_5745}, {"f_5740:posixwin_2escm",(void*)f_5740}, {"f_4465:posixwin_2escm",(void*)f_4465}, {"f_4002:posixwin_2escm",(void*)f_4002}, {"f_6173:posixwin_2escm",(void*)f_6173}, {"f_3689:posixwin_2escm",(void*)f_3689}, {"f_3460:posixwin_2escm",(void*)f_3460}, {"f_6380:posixwin_2escm",(void*)f_6380}, {"f_3680:posixwin_2escm",(void*)f_3680}, {"f_5578:posixwin_2escm",(void*)f_5578}, {"f_4239:posixwin_2escm",(void*)f_4239}, {"f_6179:posixwin_2escm",(void*)f_6179}, {"f_5571:posixwin_2escm",(void*)f_5571}, {"f_6167:posixwin_2escm",(void*)f_6167}, {"f_4230:posixwin_2escm",(void*)f_4230}, {"f_6161:posixwin_2escm",(void*)f_6161}, {"f_5361:posixwin_2escm",(void*)f_5361}, {"f_3452:posixwin_2escm",(void*)f_3452}, {"f_6389:posixwin_2escm",(void*)f_6389}, {"f_3466:posixwin_2escm",(void*)f_3466}, {"f_3673:posixwin_2escm",(void*)f_3673}, {"f_4286:posixwin_2escm",(void*)f_4286}, {"f_3041:posixwin_2escm",(void*)f_3041}, {"f_5778:posixwin_2escm",(void*)f_5778}, {"f_3045:posixwin_2escm",(void*)f_3045}, {"f_5776:posixwin_2escm",(void*)f_5776}, {"f_3485:posixwin_2escm",(void*)f_3485}, {"f_3482:posixwin_2escm",(void*)f_3482}, {"f_4034:posixwin_2escm",(void*)f_4034}, {"f_5772:posixwin_2escm",(void*)f_5772}, {"f_6366:posixwin_2escm",(void*)f_6366}, {"f_4051:posixwin_2escm",(void*)f_4051}, {"f_4679:posixwin_2escm",(void*)f_4679}, {"f_6143:posixwin_2escm",(void*)f_6143}, {"f_3699:posixwin_2escm",(void*)f_3699}, {"f_4671:posixwin_2escm",(void*)f_4671}, {"f_6149:posixwin_2escm",(void*)f_6149}, {"f_3070:posixwin_2escm",(void*)f_3070}, {"f_4045:posixwin_2escm",(void*)f_4045}, {"f_6353:posixwin_2escm",(void*)f_6353}, {"f_4060:posixwin_2escm",(void*)f_4060}, {"f_6359:posixwin_2escm",(void*)f_6359}, {"f_5168:posixwin_2escm",(void*)f_5168}, {"f_5928:posixwin_2escm",(void*)f_5928}, {"f_5160:posixwin_2escm",(void*)f_5160}, {"f_4683:posixwin_2escm",(void*)f_4683}, {"f_4688:posixwin_2escm",(void*)f_4688}, {"f_5561:posixwin_2escm",(void*)f_5561}, {"f_4221:posixwin_2escm",(void*)f_4221}, {"f_6137:posixwin_2escm",(void*)f_6137}, {"f_6131:posixwin_2escm",(void*)f_6131}, {"f_3063:posixwin_2escm",(void*)f_3063}, {"f_5398:posixwin_2escm",(void*)f_5398}, {"f_3060:posixwin_2escm",(void*)f_3060}, {"f_5391:posixwin_2escm",(void*)f_5391}, {"f_4055:posixwin_2escm",(void*)f_4055}, {"f_5710:posixwin_2escm",(void*)f_5710}, {"f_4070:posixwin_2escm",(void*)f_4070}, {"f_6347:posixwin_2escm",(void*)f_6347}, {"f_5177:posixwin_2escm",(void*)f_5177}, {"f_5939:posixwin_2escm",(void*)f_5939}, {"f_5174:posixwin_2escm",(void*)f_5174}, {"f_6341:posixwin_2escm",(void*)f_6341}, {"f_4698:posixwin_2escm",(void*)f_4698}, {"f_4694:posixwin_2escm",(void*)f_4694}, {"f_4277:posixwin_2escm",(void*)f_4277}, {"f_4274:posixwin_2escm",(void*)f_4274}, {"f_4271:posixwin_2escm",(void*)f_4271}, {"f_6125:posixwin_2escm",(void*)f_6125}, {"f_3493:posixwin_2escm",(void*)f_3493}, {"f_3496:posixwin_2escm",(void*)f_3496}, {"f_3490:posixwin_2escm",(void*)f_3490}, {"f_6335:posixwin_2escm",(void*)f_6335}, {"f_5186:posixwin_2escm",(void*)f_5186}, {"f_3066:posixwin_2escm",(void*)f_3066}, {"f_4442:posixwin_2escm",(void*)f_4442}, {"f_5503:posixwin_2escm",(void*)f_5503}, {"f_4603:posixwin_2escm",(void*)f_4603}, {"f_5507:posixwin_2escm",(void*)f_5507}, {"f_6197:posixwin_2escm",(void*)f_6197}, {"f_6191:posixwin_2escm",(void*)f_6191}, {"f_3084:posixwin_2escm",(void*)f_3084}, {"f_4073:posixwin_2escm",(void*)f_4073}, {"f_6323:posixwin_2escm",(void*)f_6323}, {"f_6329:posixwin_2escm",(void*)f_6329}, {"f_3499:posixwin_2escm",(void*)f_3499}, {"f_3098:posixwin_2escm",(void*)f_3098}, {"f_3434:posixwin_2escm",(void*)f_3434}, {"f_4087:posixwin_2escm",(void*)f_4087}, {"f_4085:posixwin_2escm",(void*)f_4085}, {"f_5121:posixwin_2escm",(void*)f_5121}, {"f_4481:posixwin_2escm",(void*)f_4481}, {"f_4261:posixwin_2escm",(void*)f_4261}, {"f_4097:posixwin_2escm",(void*)f_4097}, {"f_5751:posixwin_2escm",(void*)f_5751}, {"f_4091:posixwin_2escm",(void*)f_4091}, {"f_4474:posixwin_2escm",(void*)f_4474}, {"f_3600:posixwin_2escm",(void*)f_3600}, {"f_5135:posixwin_2escm",(void*)f_5135}, {"f_5141:posixwin_2escm",(void*)f_5141}, {"f_6155:posixwin_2escm",(void*)f_6155}, {"f_3628:posixwin_2escm",(void*)f_3628}, {"f_4419:posixwin_2escm",(void*)f_4419}, {"f_5153:posixwin_2escm",(void*)f_5153}, {"f_3470:posixwin_2escm",(void*)f_3470}, {"f_3473:posixwin_2escm",(void*)f_3473}, {"f_3479:posixwin_2escm",(void*)f_3479}, {"f_3476:posixwin_2escm",(void*)f_3476}, {"f_3642:posixwin_2escm",(void*)f_3642}, {"f_4617:posixwin_2escm",(void*)f_4617}, {"f_3636:posixwin_2escm",(void*)f_3636}, {"f_2777:posixwin_2escm",(void*)f_2777}, {"f_3412:posixwin_2escm",(void*)f_3412}, {"f_2771:posixwin_2escm",(void*)f_2771}, {"f_5322:posixwin_2escm",(void*)f_5322}, {"f_3632:posixwin_2escm",(void*)f_3632}, {"f_3427:posixwin_2escm",(void*)f_3427}, {"f_4624:posixwin_2escm",(void*)f_4624}, {"f_3443:posixwin_2escm",(void*)f_3443}, {"f_3444:posixwin_2escm",(void*)f_3444}, {"f_4894:posixwin_2escm",(void*)f_4894}, {"f_3418:posixwin_2escm",(void*)f_3418}, {"f_4634:posixwin_2escm",(void*)f_4634}, {"f_4643:posixwin_2escm",(void*)f_4643}, {"f_3023:posixwin_2escm",(void*)f_3023}, {"f_4653:posixwin_2escm",(void*)f_4653}, {"f_4650:posixwin_2escm",(void*)f_4650}, {"f_4028:posixwin_2escm",(void*)f_4028}, {"f_4668:posixwin_2escm",(void*)f_4668}, {"f_4661:posixwin_2escm",(void*)f_4661}, {"f_2787:posixwin_2escm",(void*)f_2787}, {"f_2784:posixwin_2escm",(void*)f_2784}, {"f_3218:posixwin_2escm",(void*)f_3218}, {"f_2978:posixwin_2escm",(void*)f_2978}, {"f_3211:posixwin_2escm",(void*)f_3211}, {"f_2985:posixwin_2escm",(void*)f_2985}, {"f_2994:posixwin_2escm",(void*)f_2994}, {"f_2992:posixwin_2escm",(void*)f_2992}, {"f_3207:posixwin_2escm",(void*)f_3207}, {"f_3201:posixwin_2escm",(void*)f_3201}, {"f_3220:posixwin_2escm",(void*)f_3220}, {"f_3297:posixwin_2escm",(void*)f_3297}, {"f_3294:posixwin_2escm",(void*)f_3294}, {"f_3249:posixwin_2escm",(void*)f_3249}, {"f_3241:posixwin_2escm",(void*)f_3241}, {"f_3237:posixwin_2escm",(void*)f_3237}, {"f_2362:posixwin_2escm",(void*)f_2362}, {"f_3261:posixwin_2escm",(void*)f_3261}, {"f_2934:posixwin_2escm",(void*)f_2934}, {"f_2378:posixwin_2escm",(void*)f_2378}, {"f_2371:posixwin_2escm",(void*)f_2371}, {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| map 1 S| for-each 2 o|eliminated procedure checks: 164 o|specializations: o| 4 (##sys#foreign-fixnum-argument fixnum) o| 1 (##sys#check-output-port * * *) o| 1 (##sys#check-input-port * * *) o| 1 (##sys#call-with-values (procedure () *) *) o| 1 (##sys#length list) o| 2 (cdr pair) o| 2 (string-ref string fixnum) o| 3 (string-length string) o| 3 (##sys#check-list (or pair list) *) o| 3 (make-string fixnum) o| 4 (##sys#check-open-port * *) o| 9 (eqv? * (not float)) o| 12 (car pair) (o e)|safe calls: 574 (o e)|assignments to immediate values: 27 o|dropping redundant toplevel assignment: process o|dropping redundant toplevel assignment: process* o|safe globals: (file-stat ##sys#stat ##sys#posix-error posix-error c1563) o|Removed `not' forms: 8 o|contracted procedure: "(posix-common.scm:185) strerror64" o|inlining procedure: k2338 o|inlining procedure: k2338 o|inlining procedure: k2353 o|inlining procedure: k2353 o|inlining procedure: k2372 o|inlining procedure: k2372 o|inlining procedure: k2449 o|inlining procedure: k2461 o|inlining procedure: k2461 o|inlining procedure: k2473 o|inlining procedure: k2473 o|inlining procedure: k2485 o|inlining procedure: k2485 o|inlining procedure: k2449 o|inlining procedure: k2606 o|inlining procedure: k2606 o|inlining procedure: k2618 o|inlining procedure: k2618 o|inlining procedure: k2628 o|inlining procedure: k2628 o|inlining procedure: k2655 o|contracted procedure: k2671 o|inlining procedure: k2668 o|inlining procedure: k2668 o|substituted constant variable: a2681 o|inlining procedure: k2655 o|inlining procedure: k2688 o|inlining procedure: k2688 o|substituted constant variable: a2732 o|inlining procedure: k2733 o|inlining procedure: k2733 o|contracted procedure: k2749 o|inlining procedure: k2752 o|inlining procedure: k2752 o|inlining procedure: k2785 o|inlining procedure: k2785 o|inlining procedure: k2809 o|inlining procedure: k2809 o|substituted constant variable: a2830 o|inlining procedure: k2849 o|inlining procedure: k2849 o|inlining procedure: k2870 o|propagated global variable: r28716535 delete-file o|inlining procedure: k2870 o|inlining procedure: k2862 o|inlining procedure: k2894 o|inlining procedure: k2894 o|inlining procedure: k2862 o|inlining procedure: k2932 o|inlining procedure: k2932 o|inlining procedure: k2954 o|contracted procedure: "(posix-common.scm:463) g331332" o|inlining procedure: k2965 o|inlining procedure: k2965 o|inlining procedure: k2954 o|inlining procedure: k3002 o|inlining procedure: k3002 o|contracted procedure: "(posix-common.scm:464) g349350" o|inlining procedure: k3010 o|inlining procedure: k3010 o|inlining procedure: k3071 o|inlining procedure: k3071 o|inlining procedure: k3086 o|inlining procedure: k3086 o|inlining procedure: k3127 o|inlining procedure: k3127 o|substituted constant variable: a3149 o|substituted constant variable: a3151 o|inlining procedure: k3188 o|inlining procedure: k3188 o|inlining procedure: k3222 o|inlining procedure: k3222 o|inlining procedure: k3275 o|inlining procedure: k3275 o|inlining procedure: k3283 o|inlining procedure: k3283 o|contracted procedure: "(posix-common.scm:558) find-files" o|inlining procedure: k3308 o|inlining procedure: k3308 o|inlining procedure: k3329 o|inlining procedure: k3329 o|inlining procedure: k3348 o|inlining procedure: k3348 o|inlining procedure: k3357 o|inlining procedure: k3389 o|inlining procedure: k3389 o|inlining procedure: k3357 o|inlining procedure: k3407 o|inlining procedure: k3407 o|inlining procedure: k3422 o|inlining procedure: k3422 o|contracted procedure: k3449 o|inlining procedure: k3454 o|inlining procedure: k3454 o|inlining procedure: k3524 o|inlining procedure: k3524 o|inlining procedure: k3601 o|inlining procedure: k3601 o|contracted procedure: "(posix-common.scm:595) ctime542" o|inlining procedure: k3637 o|inlining procedure: k3637 o|inlining procedure: k3681 o|contracted procedure: "(posix-common.scm:618) strftime568" o|inlining procedure: k3667 o|inlining procedure: k3667 o|inlining procedure: k3681 o|contracted procedure: "(posix-common.scm:620) asctime567" o|inlining procedure: k3654 o|inlining procedure: k3654 o|inlining procedure: k3783 o|inlining procedure: k3792 o|inlining procedure: k3792 o|inlining procedure: k3783 o|contracted procedure: "(posix-common.scm:644) get619" o|inlining procedure: k3893 o|inlining procedure: k3893 o|inlining procedure: k3979 o|inlining procedure: k3979 o|contracted procedure: "(posix-common.scm:712) c-string->allocated-pointer663" o|merged explicitly consed rest parameter: args675697 o|consed rest parameter at call site: tmp22245 1 o|inlining procedure: k4062 o|inlining procedure: k4062 o|inlining procedure: k4122 o|inlining procedure: k4122 o|inlining procedure: k4213 o|inlining procedure: k4213 o|inlining procedure: k4241 o|inlining procedure: k4241 o|inlining procedure: k4275 o|inlining procedure: k4275 o|inlining procedure: k4319 o|inlining procedure: k4319 o|inlining procedure: k4389 o|inlining procedure: k4389 o|inlining procedure: k4421 o|inlining procedure: k4421 o|contracted procedure: k4443 o|inlining procedure: k4449 o|inlining procedure: k4449 o|inlining procedure: k4466 o|inlining procedure: k4466 o|inlining procedure: k4476 o|inlining procedure: k4476 o|inlining procedure: k4513 o|inlining procedure: k4513 o|inlining procedure: k4529 o|inlining procedure: k4529 o|inlining procedure: k4550 o|inlining procedure: k4550 o|inlining procedure: k4575 o|inlining procedure: k4575 o|inlining procedure: "(posixwin.scm:815) badmode893" o|substituted constant variable: a4599 o|substituted constant variable: a4601 o|inlining procedure: k4615 o|inlining procedure: k4615 o|inlining procedure: "(posixwin.scm:825) badmode893" o|substituted constant variable: a4639 o|substituted constant variable: a4641 o|substituted constant variable: a4646 o|substituted constant variable: a4647 o|inlining procedure: k4651 o|inlining procedure: k4651 o|substituted constant variable: a4664 o|substituted constant variable: a4665 o|inlining procedure: k4669 o|inlining procedure: k4669 o|inlining procedure: k4800 o|inlining procedure: k4800 o|inlining procedure: k4902 o|inlining procedure: k4902 o|inlining procedure: k4928 o|inlining procedure: k4928 o|inlining procedure: k4967 o|contracted procedure: k4983 o|inlining procedure: k4980 o|inlining procedure: k4980 o|substituted constant variable: a4993 o|inlining procedure: k4967 o|inlining procedure: k5003 o|inlining procedure: k5003 o|substituted constant variable: a5047 o|contracted procedure: k5051 o|inlining procedure: k5048 o|inlining procedure: k5048 o|inlining procedure: k5086 o|inlining procedure: k5086 o|contracted procedure: "(posixwin.scm:1081) ex01138" o|substituted constant variable: a5138 o|contracted procedure: k5145 o|inlining procedure: k5142 o|inlining procedure: k5142 o|inlining procedure: k5155 o|inlining procedure: k5155 o|substituted constant variable: a5171 o|inlining procedure: k5181 o|inlining procedure: k5181 o|inlining procedure: k5191 o|inlining procedure: k5191 o|inlining procedure: k5204 o|inlining procedure: k5204 o|substituted constant variable: a5220 o|substituted constant variable: a5222 o|substituted constant variable: a5224 o|inlining procedure: k5271 o|inlining procedure: k5271 o|contracted procedure: "(posixwin.scm:1143) needs-quoting?1171" o|inlining procedure: k5246 o|inlining procedure: k5246 o|inlining procedure: k5313 o|inlining procedure: k5313 o|inlining procedure: k5396 o|inlining procedure: k5396 o|inlining procedure: k5449 o|inlining procedure: k5449 o|inlining procedure: k5476 o|inlining procedure: k5476 o|substituted constant variable: g132713281335 o|substituted constant variable: g132713281335 o|substituted constant variable: g132713281335 o|substituted constant variable: g132913301336 o|substituted constant variable: g132913301336 o|substituted constant variable: g132913301336 o|substituted constant variable: g133113321337 o|substituted constant variable: g133113321337 o|substituted constant variable: g133113321337 o|substituted constant variable: g133313341338 o|substituted constant variable: g133313341338 o|substituted constant variable: g133313341338 o|inlining procedure: k5579 o|inlining procedure: k5594 o|inlining procedure: k5594 o|inlining procedure: k5579 o|contracted procedure: "(posixwin.scm:1227) c-process1249" o|inlining procedure: k5641 o|inlining procedure: k5641 o|inlining procedure: k5645 o|inlining procedure: k5645 o|inlining procedure: k5657 o|inlining procedure: k5657 o|inlining procedure: k5712 o|inlining procedure: k5712 o|inlining procedure: k5753 o|inlining procedure: k5753 o|inlining procedure: k5900 o|inlining procedure: k5900 o|inlining procedure: k5918 o|inlining procedure: k5918 o|inlining procedure: k5930 o|inlining procedure: k5930 o|inlining procedure: k5961 o|inlining procedure: k5961 o|contracted procedure: "(posixwin.scm:1457) bad-mmap?1473" o|inlining procedure: k6015 o|inlining procedure: k6015 o|contracted procedure: "(posixwin.scm:1456) mmap1472" o|contracted procedure: k6057 o|inlining procedure: k6085 o|inlining procedure: k6085 o|contracted procedure: "(posixwin.scm:1466) munmap1510" o|inlining procedure: k6401 o|inlining procedure: k6401 o|inlining procedure: k6425 o|inlining procedure: k6425 o|inlining procedure: k6437 o|inlining procedure: k6437 o|inlining procedure: k6447 o|inlining procedure: k6447 o|inlining procedure: k6484 o|inlining procedure: k6484 o|contracted procedure: "(posix-common.scm:257) g115116" o|inlining procedure: k6471 o|inlining procedure: k6471 o|replaced variables: 656 o|removed binding forms: 462 o|substituted constant variable: r23396494 o|substituted constant variable: r24626500 o|substituted constant variable: r24746502 o|substituted constant variable: r24866504 o|substituted constant variable: r24506506 o|substituted constant variable: r26196510 o|inlining procedure: k2655 o|substituted constant variable: r26696516 o|inlining procedure: k2655 o|inlining procedure: k2655 o|propagated global variable: g2993006536 delete-file o|inlining procedure: k2870 o|inlining procedure: k2870 o|propagated global variable: r28716826 delete-file o|propagated global variable: r28716826 delete-file o|converted assignments to bindings: (rmdir282) o|substituted constant variable: loc333 o|substituted constant variable: loc333 o|substituted constant variable: loc351 o|substituted constant variable: loc351 o|substituted constant variable: r30876563 o|substituted constant variable: r31896567 o|substituted constant variable: r32766573 o|substituted constant variable: r32766573 o|substituted constant variable: r32846577 o|substituted constant variable: r32846577 o|substituted constant variable: loc438 o|substituted constant variable: r36686611 o|substituted constant variable: r36686611 o|substituted constant variable: r36556618 o|substituted constant variable: r36556618 o|substituted constant variable: r37846624 o|substituted constant variable: r44676669 o|substituted constant variable: r44676669 o|substituted constant variable: r45306678 o|removed side-effect free assignment to unused variable: badmode893 o|inlining procedure: k4575 o|inlining procedure: k4615 o|inlining procedure: k4967 o|substituted constant variable: r49816726 o|inlining procedure: k4967 o|inlining procedure: k4967 o|inlining procedure: k5054 o|substituted constant variable: r51436737 o|substituted constant variable: r51926745 o|substituted constant variable: r51926745 o|folded constant expression: (fx< (quote -1) (quote 0)) o|substituted constant variable: r52476751 o|substituted constant variable: r55956766 o|substituted constant variable: r55956766 o|substituted constant variable: c-pointer12521269 o|substituted constant variable: c-pointer12521269 o|substituted constant variable: c-pointer12521269 o|substituted constant variable: r56426769 o|substituted constant variable: r56426769 o|substituted constant variable: r56426771 o|substituted constant variable: r56426771 o|inlining procedure: k6035 o|substituted constant variable: r60166793 o|substituted constant variable: r60166793 o|converted assignments to bindings: (check1071) o|substituted constant variable: r64386806 o|substituted constant variable: r64726813 o|substituted constant variable: r64726813 o|simplifications: ((let . 2)) o|replaced variables: 40 o|removed binding forms: 684 o|removed conditional forms: 1 o|inlining procedure: k3130 o|inlining procedure: k3844 o|inlining procedure: k3844 o|inlining procedure: k4071 o|inlining procedure: k4290 o|inlining procedure: k4290 o|inlining procedure: k4338 o|inlining procedure: k4338 o|contracted procedure: k5509 o|inlining procedure: k5795 o|inlining procedure: k5855 o|inlining procedure: k6047 o|inlining procedure: k6047 o|replaced variables: 19 o|removed binding forms: 109 o|substituted constant variable: r26566815 o|substituted constant variable: r26566817 o|substituted constant variable: r26566819 o|substituted constant variable: r31316919 o|substituted constant variable: r31316919 o|substituted constant variable: r38456934 o|contracted procedure: k3994 o|substituted constant variable: r42916947 o|substituted constant variable: r43396949 o|substituted constant variable: r49686888 o|substituted constant variable: r49686890 o|substituted constant variable: r49686892 o|substituted constant variable: r5510 o|substituted constant variable: r60486965 o|inlining procedure: k6398 o|inlining procedure: k6398 o|simplifications: ((let . 3)) o|replaced variables: 2 o|removed binding forms: 22 o|removed conditional forms: 4 o|inlining procedure: k5127 o|inlining procedure: k5127 o|substituted constant variable: a5508 o|substituted constant variable: r63997003 o|replaced variables: 1 o|removed binding forms: 15 o|substituted constant variable: r51287039 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((if . 61) (##core#call . 401)) o| call simplifications: o| < o| ##sys#structure? o| ##sys#check-structure 2 o| ##sys#make-structure 2 o| ##sys#setslot o| + 2 o| ##sys#foreign-string-argument 3 o| ##sys#foreign-pointer-argument 7 o| string-length o| char-whitespace? o| * o| fx>= 2 o| string-set! o| bitwise-ior 2 o| fxior 3 o| list 5 o| ##sys#check-list 2 o| add1 o| ##sys#apply 2 o| values 11 o| ##sys#fudge o| vector-set! 2 o| char=? o| ##sys#foreign-block-argument 2 o| ##sys#foreign-integer-argument 4 o| fx- 6 o| ##sys#check-number 4 o| ##sys#check-vector o| procedure? o| member o| fx+ 10 o| string-ref 3 o| fx> o| cons 9 o| ##sys#size 9 o| ##sys#call-with-values 9 o| not 5 o| ##sys#check-string 18 o| fx= 13 o| zero? 2 o| ##sys#null-pointer? 5 o| pair? 15 o| ##sys#check-exact 26 o| ##sys#slot 19 o| eq? 32 o| cdr 20 o| ##sys#eqv? 8 o| null? 53 o| car 34 o| vector o| fixnum? 4 o| string? o| fx< 13 o| ##sys#foreign-fixnum-argument 8 o| apply 9 o|contracted procedure: k2312 o|contracted procedure: k2341 o|contracted procedure: k2350 o|contracted procedure: k2366 o|contracted procedure: k2394 o|contracted procedure: k2385 o|contracted procedure: k2515 o|contracted procedure: k2437 o|contracted procedure: k2509 o|contracted procedure: k2440 o|contracted procedure: k2503 o|contracted procedure: k2443 o|contracted procedure: k2497 o|contracted procedure: k2446 o|contracted procedure: k2458 o|contracted procedure: k2464 o|contracted procedure: k2470 o|contracted procedure: k2476 o|contracted procedure: k2482 o|contracted procedure: k2488 o|contracted procedure: k2494 o|contracted procedure: k2600 o|contracted procedure: k2603 o|contracted procedure: k2625 o|contracted procedure: k2621 o|contracted procedure: k2631 o|contracted procedure: k2637 o|contracted procedure: k2658 o|contracted procedure: k2665 o|contracted procedure: k2691 o|contracted procedure: k2703 o|contracted procedure: k2717 o|contracted procedure: k2773 o|contracted procedure: k2736 o|contracted procedure: k2765 o|contracted procedure: k2755 o|contracted procedure: k2779 o|contracted procedure: k2788 o|contracted procedure: k2794 o|contracted procedure: k2797 o|contracted procedure: k2800 o|contracted procedure: k2831 o|contracted procedure: k2806 o|contracted procedure: k2917 o|contracted procedure: k2840 o|contracted procedure: k2852 o|contracted procedure: k2859 o|contracted procedure: k2897 o|contracted procedure: k2907 o|contracted procedure: k2911 o|contracted procedure: k3034 o|contracted procedure: k2926 o|contracted procedure: k2929 o|contracted procedure: k3031 o|contracted procedure: k2935 o|contracted procedure: k2968 o|contracted procedure: k3013 o|contracted procedure: k3164 o|contracted procedure: k3046 o|contracted procedure: k3158 o|contracted procedure: k3049 o|contracted procedure: k3152 o|contracted procedure: k3052 o|contracted procedure: k3055 o|contracted procedure: k3074 o|contracted procedure: k3089 o|contracted procedure: k3093 o|contracted procedure: k3099 o|contracted procedure: k3145 o|contracted procedure: k3102 o|contracted procedure: k3121 o|contracted procedure: k3124 o|contracted procedure: k3139 o|contracted procedure: k3130 o|contracted procedure: k3170 o|contracted procedure: k3191 o|contracted procedure: k3194 o|contracted procedure: k3225 o|contracted procedure: k3232 o|contracted procedure: k3255 o|contracted procedure: k3271 o|contracted procedure: k3289 o|contracted procedure: k3311 o|contracted procedure: k3314 o|contracted procedure: k3320 o|contracted procedure: k3332 o|contracted procedure: k3341 o|contracted procedure: k3367 o|contracted procedure: k3438 o|contracted procedure: k3457 o|contracted procedure: k3521 o|contracted procedure: k3534 o|contracted procedure: k3527 o|contracted procedure: k3543 o|contracted procedure: k3549 o|contracted procedure: k3564 o|contracted procedure: k3570 o|contracted procedure: k3595 o|contracted procedure: k3612 o|contracted procedure: k3608 o|contracted procedure: k3587 o|contracted procedure: k3618 o|contracted procedure: k3728 o|contracted procedure: k3675 o|contracted procedure: k3684 o|contracted procedure: k3667 o|contracted procedure: k3718 o|contracted procedure: k3714 o|contracted procedure: k3654 o|contracted procedure: k3737 o|contracted procedure: k3740 o|contracted procedure: k3754 o|contracted procedure: k3795 o|contracted procedure: k3802 o|contracted procedure: k3810 o|contracted procedure: k3822 o|contracted procedure: k3826 o|contracted procedure: k3833 o|contracted procedure: k3769 o|contracted procedure: k3840 o|contracted procedure: k3923 o|contracted procedure: k3863 o|contracted procedure: k3917 o|contracted procedure: k3866 o|contracted procedure: k3911 o|contracted procedure: k3869 o|contracted procedure: k3905 o|contracted procedure: k3872 o|contracted procedure: k3875 o|contracted procedure: k3878 o|contracted procedure: k3896 o|contracted procedure: k3934 o|contracted procedure: k3982 o|contracted procedure: k3985 o|contracted procedure: k4022 o|contracted procedure: k3988 o|contracted procedure: k4009 o|contracted procedure: k4047 o|contracted procedure: k4065 o|contracted procedure: k4078 o|contracted procedure: k40786941 o|contracted procedure: k4092 o|contracted procedure: k6376 o|contracted procedure: k4192 o|contracted procedure: k4200 o|contracted procedure: k4203 o|contracted procedure: k4206 o|contracted procedure: k4216 o|contracted procedure: k4225 o|contracted procedure: k4232 o|contracted procedure: k4244 o|contracted procedure: k4250 o|contracted procedure: k4263 o|contracted procedure: k4266 o|contracted procedure: k4281 o|contracted procedure: k4296 o|contracted procedure: k4307 o|contracted procedure: k4316 o|contracted procedure: k4322 o|contracted procedure: k4331 o|contracted procedure: k4347 o|contracted procedure: k4350 o|contracted procedure: k4359 o|contracted procedure: k4382 o|contracted procedure: k4386 o|contracted procedure: k4392 o|contracted procedure: k4398 o|contracted procedure: k4405 o|contracted procedure: k4415 o|contracted procedure: k4424 o|contracted procedure: k4427 o|contracted procedure: k4434 o|contracted procedure: k4452 o|contracted procedure: k4470 o|contracted procedure: k4486 o|contracted procedure: k4492 o|contracted procedure: k4499 o|contracted procedure: k4507 o|contracted procedure: k4516 o|contracted procedure: k4532 o|contracted procedure: k4553 o|contracted procedure: k4565 o|contracted procedure: k4578 o|contracted procedure: k4588 o|contracted procedure: k4605 o|contracted procedure: k4618 o|contracted procedure: k4628 o|contracted procedure: k4654 o|contracted procedure: k4672 o|contracted procedure: k4816 o|contracted procedure: k4797 o|contracted procedure: k4806 o|contracted procedure: k4852 o|contracted procedure: k4896 o|contracted procedure: k4899 o|contracted procedure: k4905 o|contracted procedure: k4922 o|contracted procedure: k4925 o|contracted procedure: k4970 o|contracted procedure: k4977 o|contracted procedure: k5006 o|contracted procedure: k5018 o|contracted procedure: k5032 o|contracted procedure: k5070 o|contracted procedure: k5057 o|contracted procedure: k5080 o|contracted procedure: k5089 o|contracted procedure: k5098 o|contracted procedure: k5101 o|contracted procedure: k5104 o|contracted procedure: k5130 o|contracted procedure: k51187038 o|contracted procedure: k51187043 o|contracted procedure: k5149 o|contracted procedure: k5178 o|contracted procedure: k5198 o|contracted procedure: k5194 o|contracted procedure: k5201 o|contracted procedure: k5207 o|contracted procedure: k5213 o|contracted procedure: k5225 o|contracted procedure: k5237 o|contracted procedure: k5249 o|contracted procedure: k5266 o|contracted procedure: k5255 o|contracted procedure: k5262 o|contracted procedure: k5354 o|contracted procedure: k5283 o|contracted procedure: k5348 o|contracted procedure: k5286 o|contracted procedure: k5342 o|contracted procedure: k5289 o|contracted procedure: k5336 o|contracted procedure: k5292 o|contracted procedure: k5330 o|contracted procedure: k5295 o|contracted procedure: k5324 o|contracted procedure: k5298 o|contracted procedure: k5301 o|contracted procedure: k5310 o|contracted procedure: k5316 o|contracted procedure: k5437 o|contracted procedure: k5363 o|contracted procedure: k5431 o|contracted procedure: k5366 o|contracted procedure: k5425 o|contracted procedure: k5369 o|contracted procedure: k5419 o|contracted procedure: k5372 o|contracted procedure: k5413 o|contracted procedure: k5375 o|contracted procedure: k5407 o|contracted procedure: k5378 o|contracted procedure: k5381 o|contracted procedure: k5384 o|contracted procedure: k5393 o|contracted procedure: k5399 o|contracted procedure: k5493 o|contracted procedure: k5688 o|contracted procedure: k5563 o|contracted procedure: k5566 o|contracted procedure: k5513 o|contracted procedure: k5517 o|contracted procedure: k5521 o|contracted procedure: k5525 o|contracted procedure: k5529 o|contracted procedure: k5551 o|contracted procedure: k5558 o|contracted procedure: k5633 o|contracted procedure: k5637 o|contracted procedure: k5648 o|contracted procedure: k5660 o|contracted procedure: k5663 o|contracted procedure: k5666 o|contracted procedure: k5674 o|contracted procedure: k5682 o|contracted procedure: k5698 o|contracted procedure: k5715 o|contracted procedure: k5725 o|contracted procedure: k5729 o|contracted procedure: k5732 o|contracted procedure: k5831 o|contracted procedure: k5780 o|contracted procedure: k5825 o|contracted procedure: k5783 o|contracted procedure: k5819 o|contracted procedure: k5786 o|contracted procedure: k5813 o|contracted procedure: k5789 o|contracted procedure: k5807 o|contracted procedure: k5792 o|contracted procedure: k5801 o|contracted procedure: k5795 o|contracted procedure: k5891 o|contracted procedure: k5840 o|contracted procedure: k5885 o|contracted procedure: k5843 o|contracted procedure: k5879 o|contracted procedure: k5846 o|contracted procedure: k5873 o|contracted procedure: k5849 o|contracted procedure: k5867 o|contracted procedure: k5852 o|contracted procedure: k5861 o|contracted procedure: k5855 o|contracted procedure: k5912 o|contracted procedure: k6015 o|contracted procedure: k5986 o|contracted procedure: k5990 o|contracted procedure: k5994 o|contracted procedure: k5998 o|contracted procedure: k6002 o|contracted procedure: k6006 o|contracted procedure: k6053 o|contracted procedure: k6079 o|contracted procedure: k6088 o|contracted procedure: k6099 o|contracted procedure: k6067 o|contracted procedure: k6071 o|contracted procedure: k6102 o|contracted procedure: k6112 o|contracted procedure: k6382 o|contracted procedure: k6407 o|contracted procedure: k6391 o|contracted procedure: k6394 o|contracted procedure: k6416 o|contracted procedure: k6428 o|contracted procedure: k6444 o|contracted procedure: k6440 o|contracted procedure: k6450 o|contracted procedure: k6465 o|contracted procedure: k6487 o|contracted procedure: k6478 o|simplifications: ((if . 1) (let . 62)) o|removed binding forms: 333 o|inlining procedure: k3540 o|inlining procedure: k3561 o|inlining procedure: "(posixwin.scm:809) mode892" o|inlining procedure: "(posixwin.scm:819) mode892" o|replaced variables: 185 o|removed side-effect free assignment to unused variable: mode892 o|replaced variables: 10 o|removed binding forms: 90 o|contracted procedure: k6032 o|contracted procedure: k6095 o|converted assignments to bindings: (check894) o|simplifications: ((let . 1)) o|removed binding forms: 10 o|contracted procedure: k4568 o|contracted procedure: k4608 o|replaced variables: 2 o|removed binding forms: 2 o|removed binding forms: 1 o|direct leaf routine/allocation: loop1174 0 o|direct leaf routine/allocation: g13821389 0 o|contracted procedure: k5274 o|converted assignments to bindings: (loop1174) o|contracted procedure: "(posixwin.scm:1249) k5718" o|simplifications: ((let . 1)) o|removed binding forms: 2 o|direct leaf routine/allocation: for-each-loop13811399 0 o|converted assignments to bindings: (for-each-loop13811399) o|simplifications: ((let . 1)) o|customizable procedures: (k6082 k6026 k6041 %process1370 chkstrlst1377 map-loop13031320 k5473 call-with-exec-args k5172 k5184 k5083 mode1087 check1088 check1071 check894 k4479 loop864 suffix-loop877 loop875 k4313 k4197 list->c-string-buffer k4140 doloop702703 tmp12244 tmp22245 doloop683684 free-c-string-buffer scan628 loop625 check-time-vector k3292 k3295 loop450 g422423 loop414 conc-loop395 k3108 loop374 k2957 loop328 g289296 for-each-loop288305 rmdir282 k2782 mode204 check205 k2597 ##sys#stat) o|calls to known targets: 173 o|unused rest argument: _446 f_3460 o|unused rest argument: _445 f_3452 o|unused rest argument: _486 f_3512 o|identified direct recursive calls: f_3790 1 o|identified direct recursive calls: f_5244 1 o|identified direct recursive calls: f_5710 1 o|unused rest argument: _15581562 f_6125 o|unused rest argument: _15651569 f_6131 o|unused rest argument: _15711575 f_6137 o|unused rest argument: _15771581 f_6143 o|unused rest argument: _15831587 f_6149 o|unused rest argument: _15891593 f_6155 o|unused rest argument: _15951599 f_6161 o|unused rest argument: _16011605 f_6167 o|unused rest argument: _16071611 f_6173 o|unused rest argument: _16131617 f_6179 o|unused rest argument: _16191623 f_6185 o|unused rest argument: _16251629 f_6191 o|unused rest argument: _16311635 f_6197 o|unused rest argument: _16371641 f_6203 o|unused rest argument: _16431647 f_6209 o|unused rest argument: _16491653 f_6215 o|unused rest argument: _16551659 f_6221 o|unused rest argument: _16611665 f_6227 o|unused rest argument: _16671671 f_6233 o|unused rest argument: _16731677 f_6239 o|unused rest argument: _16791683 f_6245 o|unused rest argument: _16851689 f_6251 o|unused rest argument: _16911695 f_6257 o|unused rest argument: _16971701 f_6263 o|unused rest argument: _17031707 f_6269 o|unused rest argument: _17091713 f_6275 o|unused rest argument: _17151719 f_6281 o|unused rest argument: _17211725 f_6287 o|unused rest argument: _17271731 f_6293 o|unused rest argument: _17331737 f_6299 o|unused rest argument: _17391743 f_6305 o|unused rest argument: _17451749 f_6311 o|unused rest argument: _17511755 f_6317 o|unused rest argument: _17571761 f_6323 o|unused rest argument: _17631767 f_6329 o|unused rest argument: _17691773 f_6335 o|unused rest argument: _17751779 f_6341 o|unused rest argument: _17811785 f_6347 o|unused rest argument: _17871791 f_6353 o|unused rest argument: _17931797 f_6359 o|fast box initializations: 19 o|fast global references: 80 o|fast global assignments: 8 o|dropping unused closure argument: f_2333 o|dropping unused closure argument: f_5694 o|dropping unused closure argument: f_4545 o|dropping unused closure argument: f_4961 o|dropping unused closure argument: f_4998 o|dropping unused closure argument: f_3519 o|dropping unused closure argument: f_2844 o|dropping unused closure argument: f_2649 o|dropping unused closure argument: f_4920 o|dropping unused closure argument: f_2686 o|dropping unused closure argument: f_3932 o|dropping unused closure argument: f_4051 */ /* end of file */ chicken-4.12.0/posixunix.scm0000644000175000017500000017307513052306173015577 0ustar sjamaansjamaan;;;; posixunix.scm - Miscellaneous file- and process-handling routines ; ; Copyright (c) 2008-2017, 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 irregex extras files ports lolevel) (disable-interrupts) (hide group-member _get-groups _ensure-groups posix-error ##sys#terminal-check) (not inline ##sys#interrupt-hook ##sys#user-interrupt-hook)) ;; 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") ;;; common code (include "posix-common.scm") (declare (foreign-declare #< #include #include #include #include #include #include #include #if defined(__sun) && defined(__SVR4) # include # include #endif #ifdef HAVE_GRP_H #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 #if defined(HAVE_CRT_EXTERNS_H) # include # define C_getenventry(i) ((*_NSGetEnviron())[ i ]) #elif defined(C_MACOSX) # define C_getenventry(i) NULL #else extern char **environ; # define C_getenventry(i) (environ[ i ]) #endif #ifndef FILENAME_MAX # define FILENAME_MAX 1024 #endif static C_TLS struct utsname C_utsname; static C_TLS struct flock C_flock; static C_TLS DIR *temphandle; static C_TLS struct passwd *C_user; #ifdef HAVE_GRP_H static C_TLS struct group *C_group; #else static C_TLS struct { char *gr_name, gr_passwd; int gr_gid; char *gr_mem[ 1 ]; } C_group = { "", "", 0, { "" } }; #endif /* 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 char C_hostbuf[ 256 ]; static C_TLS struct stat C_statbuf; #define C_mkdir(str) C_fix(mkdir(C_c_string(str), S_IRWXU | S_IRWXG | S_IRWXO)) #define C_fchdir(fd) C_fix(fchdir(C_unfix(fd))) #define C_chdir(str) C_fix(chdir(C_c_string(str))) #define C_rmdir(str) C_fix(rmdir(C_c_string(str))) #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_data_pointer(fn), C_unfix(u), C_unfix(g))) #define C_chmod(fn, m) C_fix(chmod(C_data_pointer(fn), 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_data_pointer(o), C_data_pointer(n))) #define C_do_readlink(f, b) C_fix(readlink(C_data_pointer(f), C_data_pointer(b), FILENAME_MAX)) #define C_getpwnam(n) C_mk_bool((C_user = getpwnam((char *)C_data_pointer(n))) != NULL) #define C_getpwuid(u) C_mk_bool((C_user = getpwuid(C_unfix(u))) != NULL) #if !defined(__ANDROID__) && defined(HAVE_GRP_H) #define C_getgrnam(n) C_mk_bool((C_group = getgrnam((char *)C_data_pointer(n))) != NULL) #define C_getgrgid(u) C_mk_bool((C_group = getgrgid(C_unfix(u))) != NULL) #else #define C_getgrnam(n) C_SCHEME_FALSE #define C_getgrgid(n) C_SCHEME_FALSE #endif #define C_pipe(d) C_fix(pipe(C_pipefds)) #define C_truncate(f, n) C_fix(truncate((char *)C_data_pointer(f), C_num_to_int(n))) #define C_ftruncate(f, n) C_fix(ftruncate(C_unfix(f), C_num_to_int(n))) #define C_uname C_fix(uname(&C_utsname)) #define C_alarm alarm #define C_setvbuf(p, m, s) C_fix(setvbuf(C_port_file(p), NULL, C_unfix(m), C_unfix(s))) #define C_test_access(fn, m) C_fix(access((char *)C_data_pointer(fn), C_unfix(m))) #define C_close(fd) C_fix(close(C_unfix(fd))) #define C_sleep sleep #define C_umask(m) C_fix(umask(C_unfix(m))) #define C_lstat(fn) C_fix(lstat((char *)C_data_pointer(fn), &C_statbuf)) #define C_u_i_execvp(f,a) C_fix(execvp(C_data_pointer(f), (char *const *)C_c_pointer_vector_or_null(a))) #define C_u_i_execve(f,a,e) C_fix(execve(C_data_pointer(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((char *)C_data_pointer(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_flonum(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 gid_t *C_groups = NULL; #define C_get_gid(n) C_fix(C_groups[ C_unfix(n) ]) #define C_set_gid(n, id) (C_groups[ C_unfix(n) ] = C_unfix(id), C_SCHEME_UNDEFINED) #define C_set_groups(n) C_fix(setgroups(C_unfix(n), C_groups)) #if !defined(__ANDROID__) && defined(TIOCGWINSZ) static int get_tty_size(int p, int *rows, int *cols) { struct winsize tty_size; int r; memset(&tty_size, 0, sizeof tty_size); r = ioctl(p, 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 p, int *rows, int *cols) { *rows = *cols = 0; return -1; } #endif static int set_file_mtime(char *filename, C_word tm) { struct utimbuf tb; tb.actime = tb.modtime = C_num_to_int(tm); return utime(filename, &tb); } static C_word C_i_fifo_p(C_word name) { struct stat buf; int res; res = stat(C_c_string(name), &buf); if(res != 0) { #ifdef __CYGWIN__ return C_SCHEME_FALSE; #else if(errno == ENOENT) return C_fix(0); else return C_fix(res); #endif } if((buf.st_mode & S_IFMT) == S_IFIFO) return C_SCHEME_TRUE; else return C_SCHEME_FALSE; } EOF ) ) ;; 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 _pipe_buf int "PIPE_BUF") (define pipe/buf _pipe_buf) (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") (define fcntl/dupfd _f_dupfd) (define fcntl/getfd _f_getfd) (define fcntl/setfd _f_setfd) (define fcntl/getfl _f_getfl) (define fcntl/setfl _f_setfl) (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_noctty int "O_NOCTTY") (define-foreign-variable _o_nonblock int "O_NONBLOCK") (define-foreign-variable _o_trunc int "O_TRUNC") (define-foreign-variable _o_fsync int "O_FSYNC") (define-foreign-variable _o_binary int "O_BINARY") (define-foreign-variable _o_text int "O_TEXT") (define open/rdonly _o_rdonly) (define open/wronly _o_wronly) (define open/rdwr _o_rdwr) (define open/read _o_rdonly) (define open/write _o_wronly) (define open/creat _o_creat) (define open/append _o_append) (define open/excl _o_excl) (define open/noctty _o_noctty) (define open/nonblock _o_nonblock) (define open/trunc _o_trunc) (define open/sync _o_fsync) (define open/fsync _o_fsync) (define open/binary _o_binary) (define open/text _o_text) (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_IRWXU") (define-foreign-variable _s_irwxg int "S_IRWXG") (define-foreign-variable _s_irwxo int "S_IRWXO") (define-foreign-variable _s_isuid int "S_ISUID") (define-foreign-variable _s_isgid int "S_ISGID") (define-foreign-variable _s_isvtx int "S_ISVTX") (define perm/irusr _s_irusr) (define perm/iwusr _s_iwusr) (define perm/ixusr _s_ixusr) (define perm/irgrp _s_irgrp) (define perm/iwgrp _s_iwgrp) (define perm/ixgrp _s_ixgrp) (define perm/iroth _s_iroth) (define perm/iwoth _s_iwoth) (define perm/ixoth _s_ixoth) (define perm/irwxu _s_irwxu) (define perm/irwxg _s_irwxg) (define perm/irwxo _s_irwxo) (define perm/isvtx _s_isvtx) (define perm/isuid _s_isuid) (define perm/isgid _s_isgid) (define file-control (let ([fcntl (foreign-lambda int fcntl int int long)]) (lambda (fd cmd #!optional (arg 0)) (##sys#check-exact fd 'file-control) (##sys#check-exact 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 ) ) ) ) ) (define 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-exact flags 'file-open) (##sys#check-exact 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) ) ) ) ) (define file-close (lambda (fd) (##sys#check-exact fd 'file-close) (let loop () (when (fx< (##core#inline "C_close" fd) 0) (select _errno ((_eintr) (##sys#dispatch-interrupt loop)) (else (posix-error #:file-error 'file-close "cannot close file" fd))))))) (define file-read (lambda (fd size . buffer) (##sys#check-exact fd 'file-read) (##sys#check-exact 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) ) ) ) ) (define file-write (lambda (fd buffer . size) (##sys#check-exact 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-exact 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) ) ) ) (define 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: (define (file-select 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-number 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 (inexact->exact (* (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))))))))) ;;; Directory stuff: (define change-directory (lambda (name) (##sys#check-string name 'change-directory) (let ((sname (##sys#make-c-string name 'change-directory))) (unless (fx= 0 (##core#inline "C_chdir" sname)) (posix-error #:file-error 'change-directory "cannot change current directory" name) ) name))) (define (change-directory* fd) (##sys#check-exact fd 'change-directory*) (unless (fx= 0 (##core#inline "C_fchdir" fd)) (posix-error #:file-error 'change-directory* "cannot change current directory" fd) ) fd) ;;; Pipes: (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 inp ##sys#stream-port-class "(pipe)" 'stream)]) (##core#inline "C_set_file_ptr" port r) port) ) ) (set! 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! 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! 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! 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) ) )) (define call-with-input-pipe (lambda (cmd proc . mode) (let ([p (apply open-input-pipe cmd mode)]) (##sys#call-with-values (lambda () (proc p)) (lambda results (close-input-pipe p) (apply values results) ) ) ) ) ) (define call-with-output-pipe (lambda (cmd proc . mode) (let ([p (apply open-output-pipe cmd mode)]) (##sys#call-with-values (lambda () (proc p)) (lambda results (close-output-pipe p) (apply values results) ) ) ) ) ) (define with-input-from-pipe (lambda (cmd thunk . mode) (let ([p (apply open-input-pipe cmd mode)]) (fluid-let ((##sys#standard-input p)) (##sys#call-with-values thunk (lambda results (close-input-pipe p) (apply values results) ) ) ) ) ) ) (define with-output-to-pipe (lambda (cmd thunk . mode) (let ([p (apply open-output-pipe cmd mode)]) (fluid-let ((##sys#standard-output p)) (##sys#call-with-values thunk (lambda results (close-output-pipe p) (apply values results) ) ) ) ) ) ) (define-foreign-variable _pipefd0 int "C_pipefds[ 0 ]") (define-foreign-variable _pipefd1 int "C_pipefds[ 1 ]") (define create-pipe (lambda () (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") (define signal/term _sigterm) (define signal/kill _sigkill) (define signal/int _sigint) (define signal/hup _sighup) (define signal/fpe _sigfpe) (define signal/ill _sigill) (define signal/segv _sigsegv) (define signal/abrt _sigabrt) (define signal/trap _sigtrap) (define signal/quit _sigquit) (define signal/alrm _sigalrm) (define signal/vtalrm _sigvtalrm) (define signal/prof _sigprof) (define signal/io _sigio) (define signal/urg _sigurg) (define signal/chld _sigchld) (define signal/cont _sigcont) (define signal/stop _sigstop) (define signal/tstp _sigtstp) (define signal/pipe _sigpipe) (define signal/xcpu _sigxcpu) (define signal/xfsz _sigxfsz) (define signal/usr1 _sigusr1) (define signal/usr2 _sigusr2) (define signal/winch _sigwinch) (define signal/bus _sigbus) (define signal/break 0) (define signals-list (list signal/term signal/kill signal/int signal/hup signal/fpe signal/ill signal/segv signal/abrt signal/trap signal/quit signal/alrm signal/vtalrm signal/prof signal/io signal/urg signal/chld signal/cont signal/stop signal/tstp signal/pipe signal/xcpu signal/xfsz signal/usr1 signal/usr2 signal/winch signal/bus)) (define set-signal-mask! (lambda (sigs) (##sys#check-list sigs 'set-signal-mask!) (##core#inline "C_sigemptyset" 0) (for-each (lambda (s) (##sys#check-exact 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 signal-mask (getter-with-setter (lambda () (##core#inline "C_sigprocmask_get" 0) (let loop ([sigs signals-list] [mask '()]) (if (null? sigs) mask (let ([sig (car sigs)]) (loop (cdr sigs) (if (##core#inline "C_sigismember" sig) (cons sig mask) mask)) ) ) ) ) set-signal-mask!)) (define (signal-masked? sig) (##sys#check-exact sig 'signal-masked?) (##core#inline "C_sigprocmask_get" 0) (##core#inline "C_sigismember" sig) ) (define (signal-mask! sig) (##sys#check-exact 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") )) (define (signal-unmask! sig) (##sys#check-exact 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 system-, group- and user-information: (define-foreign-variable _uname int "C_uname") (define-foreign-variable _uname-sysname nonnull-c-string "C_utsname.sysname") (define-foreign-variable _uname-nodename nonnull-c-string "C_utsname.nodename") (define-foreign-variable _uname-release nonnull-c-string "C_utsname.release") (define-foreign-variable _uname-version nonnull-c-string "C_utsname.version") (define-foreign-variable _uname-machine nonnull-c-string "C_utsname.machine") (define system-information (lambda () (when (fx< _uname 0) (##sys#update-errno) (##sys#error 'system-information "cannot retrieve system information") ) (list _uname-sysname _uname-nodename _uname-release _uname-version _uname-machine) ) ) (define 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 'set-user-id! "cannot set user ID" id) ) ) "(current-user-id)")) (define 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) ) ) "(current-effective-used-id)")) (define 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 'set-user-id! "cannot set group ID" id) ) ) "(current-group-id)") ) (define 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) ) ) "(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") (define (user-information 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) ) ) ) (define (current-user-name) (car (user-information (current-user-id))) ) (define (current-effective-user-name) (car (user-information (current-effective-user-id))) ) (define-foreign-variable _group-name nonnull-c-string "C_group->gr_name") (define-foreign-variable _group-passwd nonnull-c-string "C_group->gr_passwd") (define-foreign-variable _group-gid int "C_group->gr_gid") (define group-member (foreign-lambda* c-string ([int i]) "C_return(C_group->gr_mem[ i ]);") ) (define (group-information group #!optional as-vector) (let ([r (if (fixnum? group) (##core#inline "C_getgrgid" group) (begin (##sys#check-string group 'group-information) (##core#inline "C_getgrnam" (##sys#make-c-string group 'group-information)) ) ) ] ) (and r ((if as-vector vector list) _group-name _group-passwd _group-gid (let loop ([i 0]) (let ([n (group-member i)]) (if n (cons n (loop (fx+ i 1))) '() ) ) ) ) ) ) ) (define _get-groups (foreign-lambda* int ([int n]) "C_return(getgroups(n, C_groups));") ) (define _ensure-groups (foreign-lambda* bool ([int n]) "if(C_groups != NULL) C_free(C_groups);" "C_groups = (gid_t *)C_malloc(sizeof(gid_t) * n);" "if(C_groups == NULL) C_return(0);" "else C_return(1);") ) (define (get-groups) (let ([n (foreign-value "getgroups(0, C_groups)" int)]) (when (fx< n 0) (##sys#update-errno) (##sys#error 'get-groups "cannot retrieve supplementary group ids") ) (unless (_ensure-groups n) (##sys#error 'get-groups "out of memory") ) (when (fx< (_get-groups n) 0) (##sys#update-errno) (##sys#error 'get-groups "cannot retrieve supplementary group ids") ) (let loop ([i 0]) (if (fx>= i n) '() (cons (##core#inline "C_get_gid" i) (loop (fx+ i 1))) ) ) ) ) (define (set-groups! lst0) (unless (_ensure-groups (length lst0)) (##sys#error 'set-groups! "out of memory") ) (do ([lst lst0 (##sys#slot lst 1)] [i 0 (fx+ i 1)] ) ((null? lst) (when (fx< (##core#inline "C_set_groups" i) 0) (##sys#update-errno) (##sys#error 'set-groups! "cannot set supplementary group ids" lst0) ) ) (let ([n (##sys#slot lst 0)]) (##sys#check-exact n 'set-groups!) (##core#inline "C_set_gid" i n) ) ) ) (define initialize-groups (let ([init (foreign-lambda int "initgroups" c-string int)]) (lambda (user id) (##sys#check-string user 'initialize-groups) (##sys#check-exact id 'initialize-groups) (when (fx< (init user id) 0) (##sys#update-errno) (##sys#error 'initialize-groups "cannot initialize supplementary group ids" user id) ) ) ) ) ;;; More errno codes: (define errno/perm _eperm) (define errno/noent _enoent) (define errno/srch _esrch) (define errno/intr _eintr) (define errno/io _eio) (define errno/noexec _enoexec) (define errno/badf _ebadf) (define errno/child _echild) (define errno/nomem _enomem) (define errno/acces _eacces) (define errno/fault _efault) (define errno/busy _ebusy) (define errno/notdir _enotdir) (define errno/isdir _eisdir) (define errno/inval _einval) (define errno/mfile _emfile) (define errno/nospc _enospc) (define errno/spipe _espipe) (define errno/pipe _epipe) (define errno/again _eagain) (define errno/rofs _erofs) (define errno/exist _eexist) (define errno/wouldblock _ewouldblock) (define errno/2big 0) (define errno/deadlk 0) (define errno/dom 0) (define errno/fbig 0) (define errno/ilseq 0) (define errno/mlink 0) (define errno/nametoolong 0) (define errno/nfile 0) (define errno/nodev 0) (define errno/nolck 0) (define errno/nosys 0) (define errno/notempty 0) (define errno/notty 0) (define errno/nxio 0) (define errno/range 0) (define errno/xdev 0) ;;; Permissions and owners: (define change-file-mode (lambda (fname m) (##sys#check-string fname 'change-file-mode) (##sys#check-exact m 'change-file-mode) (when (fx< (##core#inline "C_chmod" (##sys#make-c-string fname 'change-file-mode) m) 0) (posix-error #:file-error 'change-file-mode "cannot change file mode" fname m) ) ) ) (define change-file-owner (lambda (fn uid gid) (##sys#check-string fn 'change-file-owner) (##sys#check-exact uid 'change-file-owner) (##sys#check-exact gid 'change-file-owner) (when (fx< (##core#inline "C_chown" (##sys#make-c-string fn 'change-file-owner) uid gid) 0) (posix-error #:file-error 'change-file-owner "cannot change file owner" fn uid gid) ) ) ) (define-foreign-variable _r_ok int "R_OK") (define-foreign-variable _w_ok int "W_OK") (define-foreign-variable _x_ok int "X_OK") (let () (define (check filename acc loc) (##sys#check-string filename loc) (let ([r (fx= 0 (##core#inline "C_test_access" (##sys#make-c-string filename loc) acc))]) (unless r (##sys#update-errno)) r) ) (set! file-read-access? (lambda (filename) (check filename _r_ok 'file-read-access?))) (set! file-write-access? (lambda (filename) (check filename _w_ok 'file-write-access?))) (set! file-execute-access? (lambda (filename) (check filename _x_ok 'file-execute-access?))) ) (define (create-session) (let ([a (##core#inline "C_setsid" #f)]) (when (fx< a 0) (##sys#update-errno) (##sys#error 'create-session "cannot create session") ) a) ) (define process-group-id (getter-with-setter (lambda (pid) (##sys#check-exact 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-exact pid 'set-process-group-id!) (##sys#check-exact pgid 'set-process-group-id!) (when (fx< (##core#inline "C_setpgid" pid pgid) 0) (##sys#update-errno) (##sys#error 'set-process-group-id! "cannot set process group ID" pid pgid) ) ) "(process-group-id pid)")) ;;; Hard and symbolic links: (define 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)))))) (define (read-symbolic-link 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 (file-exists? pathname) (loop (cdr components) (if (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))) (define file-link (let ([link (foreign-lambda int "link" c-string 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) (select _errno ((_ewouldblock _eagain) (##sys#thread-block-for-i/o! ##sys#current-thread fd #:input) (##sys#thread-yield!) (loop) ) ((_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 ; Do nothing when closed already (unless (##sys#slot this-port 8) (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- (##sys#fudge 21) 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))) ) ] ) (set-port-name! this-port 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) (select _errno ((_ewouldblock _eagain) (##sys#thread-yield!) (poke str len) ) ((_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 - do nothing when closed already (unless (##sys#slot this-port 8) (when (fx< (##core#inline "C_close" fd) 0) (posix-error #:file-error loc "cannot close" fd nam) ) (on-close) ) ) (lambda () ; flush (store #f) ) )] ) (set-port-name! this-port nam) this-port ) ) ) ) ;;; Other file operations: (define file-truncate (lambda (fname off) (##sys#check-number off 'file-truncate) (when (fx< (cond [(string? fname) (##core#inline "C_truncate" (##sys#make-c-string fname 'file-truncate) 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-number start loc) (if (eq? #t len) (set! len 0) (##sys#check-number len loc) ) (##core#inline "C_flock_setup" (if (##sys#slot port 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! file-lock (lambda (port . args) (let ([lock (setup port args 'file-lock)]) (if (fx< (##core#inline "C_flock_lock" port) 0) (err "cannot lock file" lock 'file-lock) lock) ) ) ) (set! file-lock/blocking (lambda (port . args) (let ([lock (setup port args 'file-lock/blocking)]) (if (fx< (##core#inline "C_flock_lockw" port) 0) (err "cannot lock file" lock 'file-lock/blocking) lock) ) ) ) (set! 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)] ) ) ) ) ) (define 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) (posix-error #:file-error 'file-unlock "cannot unlock file" lock) ) ) ) ;;; FIFOs: (define 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-exact 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) ) ) ) ) (define fifo? (lambda (filename) (##sys#check-string filename 'fifo?) (case (##core#inline "C_i_fifo_p" (##sys#make-c-string filename 'fifo?)) ((#t) #t) ((#f) #f) ((0) (##sys#signal-hook #:file-error 'fifo? "file does not exist" filename) ) (else (posix-error #:file-error 'fifo? "system error while trying to access file" filename) ) ) ) ) ;;; Memory mapped I/O: (define-foreign-variable _prot_read int "PROT_READ") (define-foreign-variable _prot_write int "PROT_WRITE") (define-foreign-variable _prot_exec int "PROT_EXEC") (define-foreign-variable _prot_none int "PROT_NONE") (define prot/read _prot_read) (define prot/write _prot_write) (define prot/exec _prot_exec) (define prot/none _prot_none) (define-foreign-variable _map_fixed int "MAP_FIXED") (define-foreign-variable _map_shared int "MAP_SHARED") (define-foreign-variable _map_private int "MAP_PRIVATE") (define-foreign-variable _map_anonymous int "MAP_ANON") (define-foreign-variable _map_file int "MAP_FILE") (define map/fixed _map_fixed) (define map/shared _map_shared) (define map/private _map_private) (define map/anonymous _map_anonymous) (define map/file _map_file) (define map-file-to-memory (let ([mmap (foreign-lambda c-pointer "mmap" c-pointer integer int int int integer)] ) (lambda (addr len prot flag fd . off) (let ([addr (if (not addr) (##sys#null-pointer) addr)] [off (if (pair? off) (car off) 0)] ) (unless (and (##core#inline "C_blockp" addr) (##core#inline "C_specialp" addr)) (##sys#signal-hook #:type-error 'map-file-to-memory "bad argument type - not a foreign pointer" addr) ) (let ([addr2 (mmap addr len prot flag fd off)]) (when (eq? -1 (##sys#pointer->address addr2)) (posix-error #:file-error 'map-file-to-memory "cannot map file to memory" addr len prot flag fd off) ) (##sys#make-structure 'mmap addr2 len) ) ) ) ) ) (define unmap-file-from-memory (let ([munmap (foreign-lambda int "munmap" c-pointer integer)] ) (lambda (mmap . len) (##sys#check-structure mmap 'mmap 'unmap-file-from-memory) (let ([len (if (pair? len) (car len) (##sys#slot mmap 2))]) (unless (eq? 0 (munmap (##sys#slot mmap 1) len)) (posix-error #:file-error 'unmap-file-from-memory "cannot unmap file from memory" mmap len) ) ) ) ) ) (define (memory-mapped-file-pointer mmap) (##sys#check-structure mmap 'mmap 'memory-mapped-file-pointer) (##sys#slot mmap 1) ) (define (memory-mapped-file? x) (##sys#structure? x 'mmap) ) ;;; Time related things: (define 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)) ) ) ) (define 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" 4) tm (##sys#make-string tm-size #\nul)))) (if (fp= -1.0 t) (##sys#error 'utc-time->seconds "cannot convert time vector to seconds" tm) t))))) (define 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: (define _exit (let ([ex0 (foreign-lambda void "_exit" int)]) (lambda code (ex0 (if (pair? code) (car code) 0)) ) ) ) (define set-alarm! (foreign-lambda int "C_alarm" int)) (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 set-buffering-mode! (lambda (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-exact size 'set-buffering-mode!) (when (fx< (if (eq? 'stream (##sys#slot port 7)) (##core#inline "C_setvbuf" port mode size) -1) 0) (##sys#error 'set-buffering-mode! "cannot set buffering mode" port mode size) ) ) ) ) (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 (##sys#terminal-check 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 nonnull-c-string "ttyname" int)] ) (lambda (port) (##sys#terminal-check 'terminal-name port) (ttyname (##core#inline "C_C_fileno" port) ) ) ) ) (define terminal-size (let ((ttysize (foreign-lambda int "get_tty_size" int (nonnull-c-pointer int) (nonnull-c-pointer int)))) (lambda (port) (##sys#terminal-check 'terminal-size port) (let-location ((columns int) (rows int)) (if (fx= 0 (ttysize (##core#inline "C_C_fileno" port) (location columns) (location rows))) (values columns rows) (posix-error #:error 'terminal-size "Unable to get size of terminal" port)))))) (define get-host-name (let ([getit (foreign-lambda* c-string () "if(gethostname(C_hostbuf, 256) == -1) C_return(NULL);" "else C_return(C_hostbuf);") ] ) (lambda () (let ([host (getit)]) (unless host (posix-error #:error 'get-host-name "cannot retrieve host-name") ) host) ) ) ) ;;; Process handling: (define 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 () (thunk) (exit 0))) pid))))) (define (process-execute filename #!optional (arglist '()) envlist) (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 (##sys#process-wait 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 () (##sys#process-wait 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)] ) )) ) ) (define parent-process-id (foreign-lambda int "C_getppid")) (define sleep (foreign-lambda int "C_sleep" int)) (define process-signal (lambda (id . sig) (let ([sig (if (pair? sig) (car sig) _sigterm)]) (##sys#check-exact id 'process-signal) (##sys#check-exact 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 (##sys#shell-command) (or (get-environment-variable "SHELL") "/bin/sh") ) (define (##sys#shell-command-arguments cmdlin) (list "-c" cmdlin) ) (define process-run (lambda (f . args) (let ([args (if (pair? args) (car args) #f)] [pid (process-fork)] ) (cond [(not (eq? 0 pid)) pid] [args (process-execute f args)] [else (process-execute (##sys#shell-command) (##sys#shell-command-arguments f)) ] ) ) ) ) ;;; Run subprocess connected with pipes: ;; ##sys#process ; 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 ##sys#process (let ( [replace-fd (lambda (loc fd stdfd) (unless (fx= stdfd fd) (duplicate-fileno fd stdfd) (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] (##sys#process-wait 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] (create-pipe) (cons i o))) )] [connect-parent (lambda (loc pipe port fd) (and port (let ([usefd (car pipe)] [clsfd (cdr pipe)]) (file-close clsfd) usefd) ) )] [connect-child (lambda (loc pipe port stdfd) (when port (let ([usefd (car pipe)] [clsfd (cdr pipe)]) (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 (process-fork (lambda () (connect-child loc opipe stdinf fileno/stdin) (connect-child loc (swapped-ends ipipe) stdoutf fileno/stdout) (connect-child loc (swapped-ends epipe) stderrf fileno/stderr) (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 fileno/stdin (make-on-close loc pid clsvec 0 1 2)) (output-port loc pid cmd outpipe stdoutf fileno/stdout (make-on-close loc pid clsvec 1 0 2)) pid (input-port loc pid cmd errpipe stderrf fileno/stderr (make-on-close loc pid clsvec 2 0 1)) ) ) ) ) ) ) ) ) ;;; Run subprocess connected with pipes: (define process) (define process*) (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 (##sys#shell-command-arguments cmd)) (set! cmd (##sys#shell-command)) ) ) (when env (chkstrlst env)) (##sys#call-with-values (lambda () (##sys#process loc cmd args env #t #t err?)) k))))) (set! process (lambda (cmd #!optional args env) (%process 'process #f cmd args env (lambda (i o p e) (values i o p))))) (set! process* (lambda (cmd #!optional args env) (%process 'process* #t cmd args env values)))) ;;; chroot: (define set-root-directory! (let ([chroot (foreign-lambda int "chroot" 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) ) ) ) ) chicken-4.12.0/scrutinizer.scm0000644000175000017500000023750613052306173016112 0ustar sjamaansjamaan;;;; scrutinizer.scm - The CHICKEN Scheme compiler (local flow analysis) ; ; Copyright (c) 2009-2017, 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) (hide specialize-node! specialization-statistics mutate-node! node-mutations procedure-type? named? procedure-result-types procedure-argument-types noreturn-type? rest-type procedure-name d-depth source-node source-node-tree node-line-number node-debug-info noreturn-procedure-type? trail trail-restore walked-result multiples procedure-arguments procedure-results typeset-min smash-component-types! generate-type-checks! over-all-instantiations compatible-types? type<=? match-types resolve match-argument-types)) (include "compiler-namespace") (include "tweaks") (define d-depth 0) (define scrutiny-debug #t) (define (d fstr . args) (when (and scrutiny-debug (##sys#fudge 13)) (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 = * | (VAL1 ...) ; VAL = (or VAL1 ...) ; | (not VAL) ; | (struct NAME) ; | (procedure [NAME] (VAL1 ... [#!optional VALOPT1 ...] [#!rest [VAL | values]]) . RESULTS) ; | BASIC ; | COMPLEX ; | (forall (TVAR1 ...) VAL) ; | deprecated ; | (deprecated NAME) ; BASIC = * | string | symbol | char | number | boolean | true | false | list | pair | ; procedure | vector | null | eof | undefined | input-port | output-port | ; blob | noreturn | pointer | locative | fixnum | float | ; pointer-vector ; COMPLEX = (pair VAL VAL) ; | (vector-of VAL) ; | (list-of VAL) ; | (vector VAL1 ...) ; | (list VAL1 ...) ; RESULTS = * ; | (VAL1 ...) ; 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 ; ; specialization specifiers: ; ; SPECIALIZATION = ((VAL ... [#!rest VAL]) [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-inline (unrename-type x) (strip-syntax x)) (define specialization-statistics '()) (define trail '()) (define (multiples n) (if (= n 1) "" "s")) (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 (node-source-prefix n) (let ((line (node-line-number n))) (if (not line) "" (sprintf "(~a) " line)))) (define (location-name loc) (define (lname loc1) (if loc1 (sprintf "procedure `~a'" (real-name loc1)) "unknown procedure")) (cond ((null? loc) "at toplevel:\n ") ((null? (cdr loc)) (sprintf "in toplevel ~a:\n " (lname (car loc)))) (else (let rec ((loc loc)) (if (null? (cdr loc)) (location-name loc) (sprintf "in local ~a,\n ~a" (lname (car loc)) (rec (cdr loc)))))))) (define (scrutinize node db complain specialize) (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) ((symbol? lit) 'symbol) ((fixnum? lit) 'fixnum) ((flonum? lit) 'float) ((number? lit) (case number-type ((fixnum) 'fixnum) ((flonum) 'flonum) (else 'number))) ; in case... ((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) (cond ((variable-mark id '##compiler#type) => (lambda (a) (cond ((eq? a 'deprecated) (report loc "use of deprecated `~a'" id) '(*)) ((and (pair? a) (eq? (car a) 'deprecated)) (report loc "use of deprecated `~a' - consider `~a'" 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 flow) (cond ((blist-type id flow) => list) ((and (not strict-variable-types) (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)))) (define (always-true1 t) (cond ((pair? t) (case (car t) ((or) (every always-true1 (cdr 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))) (report-notice loc "~aexpected a value of type boolean in conditional, but \ was given a value of type `~a' which is always true:~%~%~a" (node-source-prefix test-node) t (pp-fragment if-node)) #t)) (define (always-false if-node test-node t loc) (and-let* ((_ (eq? t 'false))) (report-notice loc "~ain conditional, test expression will always return false:~%~%~a" (node-source-prefix test-node) (pp-fragment if-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 node what tv loc) (if (eq? '* tv) '* (let ((n (length tv))) (cond ((= 1 n) (car tv)) ((zero? n) (report loc "~aexpected a single result ~a, but received zero results" (node-source-prefix node) what) 'undefined) (else (report loc "~aexpected a single result ~a, but received ~a result~a" (node-source-prefix node) what n (multiples n)) (first tv)))))) (define (report-notice loc msg . args) (when complain (##sys#notice (conc (location-name loc) (sprintf "~?" msg (map unrename-type args)))))) (define (report loc msg . args) (when complain (warning (conc (location-name loc) (sprintf "~?" msg (map unrename-type args)))))) (define (report-error loc msg . args) (set! errors #t) (apply report loc msg args)) (define add-loc cons) (define (fragment x) (let ((x (build-expression-tree (source-node-tree x)))) (let walk ((x x) (d 0)) (cond ((atom? x) (##sys#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 (##sys#strip-syntax x)))))) (define (pp-fragment x) (string-chomp (with-output-to-string (lambda () (pp (fragment x)))))) (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) (define (pname) (sprintf "~ain procedure call to `~s', " (node-source-prefix node) (fragment (first (node-subexpressions node))))) (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))) (report loc "~aexpected a value of type `~a' but was given a value of type `~a'" (pname) (resolve xptype typeenv) (resolve ptype typeenv)) (values '* #f)) (else (let-values (((atypes values-rest ok alen) (procedure-argument-types ptype nargs typeenv))) (unless ok (report loc "~aexpected ~a argument~a but was given ~a argument~a" (pname) alen (multiples alen) nargs (multiples nargs))) (do ((actualtypes (cdr actualtypes) (cdr actualtypes)) (atypes atypes (cdr atypes)) (i 1 (add1 i))) ((or (null? actualtypes) (null? atypes))) (unless (match-types (car atypes) (car actualtypes) typeenv) (report loc "~aexpected argument #~a of type `~a' but was given an argument of type `~a'" (pname) i (resolve (car atypes) typeenv) (resolve (car actualtypes) typeenv)))) (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) (report-notice loc "~athe predicate is called with an argument of type `~a' \ and will always return true" (pname) (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)) (report-notice loc "~athe predicate is called with an argument of type `~a' \ and will always return false" (pname) (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))))) ((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)) (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-cons (cons var flow) type blist)) (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-types (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 (reduce-typeset t pt typeenv) (and-let* ((tnew (let rec ((t t)) (and (pair? t) (case (car t) ((forall) (and-let* ((t2 (rec (third t)))) `(forall ,(second t) ,t2))) ((or) (let ((ts (filter (cut match-types <> pt typeenv) (cdr t)))) (and (pair? ts) `(or ,@ts)))) (else #f)))))) (simplify-type tnew))) (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#global-ref) (global-result (first params) loc)) ((##core#variable) (variable-result (first params) e loc flow)) ((if) (let ((tags (cons (tag) (tag))) (tst (first subs)) (nor-1 noreturn)) (set! noreturn #f) (let* ((rt (single n "in conditional" (walk tst e loc #f #f flow tags) loc)) (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)))) (report loc "branches in conditional expression differ in the number of results:~%~%~a" (pp-fragment n)) '*) (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 n (sprintf "in `let' binding of `~a'" (real-name var)) (walk val e loc var #f flow #f) loc))) (when (and (eq? (node-class val) '##core#variable) (not (get db var 'assigned))) (let ((var2 (first (node-parameters val)))) (unless (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) (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 (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 n (sprintf "in assignment to `~a'" var) (walk (first subs) e loc var #f flow #f) loc)) (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))) ((if strict-variable-types report-error report) loc "assignment of value of type `~a' to toplevel variable `~a' \ does not match declared type `~a'" rt var type)) (when (and (not type) ;XXX global declaration could allow this (not b) (not (eq? '* rt)) (not (get db var 'unknown))) (and-let* ((val (or (get db var 'value) (get db var 'local-value)))) (when (and (eq? val (first subs)) (or (not (variable-visible? var)) (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-variable-types (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-variable-types (not (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#inline_ref) '*) ((##core#call) (let* ((f (fragment n)) (len (length subs)) (args (map (lambda (n i) (make-node '##core#the/result (list (single n (sprintf "in ~a of procedure call `~s'" (if (zero? i) "operator position" (sprintf "argument #~a" i)) f) (walk n e loc #f #f flow #f) loc)) (list n))) 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-variable-types) (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))) (else (for-each (lambda (arg argr) (when (eq? '##core#variable (node-class arg)) (let* ((var (first (node-parameters arg))) (a (assq var e)) (argr (resolve argr typeenv)) (oparg? (eq? arg (first subs))) (pred (and pt ctags (not (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) (cond ((not a) pt) ((typeset-min pt (cdr a))) ((reduce-typeset (cdr a) pt (type-typeenv `(or ,(cdr a) ,pt)))) (else 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* ((tenv2 (type-typeenv `(or ,(cdr a) ,pt))) (at (reduce-typeset (cdr a) `(not ,pt) tenv2))) (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 (cond ((blist-type var flow) => (lambda (t) (if (type<=? t argr) t argr))) ((get db var 'assigned) '*) ((typeset-min (cdr a) argr)) ((reduce-typeset (cdr a) argr (type-typeenv `(or ,(cdr a) ,argr)))) (else 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) (report loc "expression returns zero values but is declared to have \ a single result of type `~a'" t)) (else (when (> (length rt) 1) (report loc "expression returns ~a values but is declared to have \ a single result" (length rt))) (when (and (second params) (not (compatible-types? t (first rt)))) ((if strict-variable-types report-error report-notice) loc "expression returns a result of type `~a' but is \ declared to return `~a', which is not compatible" (first rt) t)))) (list t))) ((##core#typecase) (let* ((ts (walk (first subs) e loc #f #f flow ctags)) (trail0 trail) (typeenv (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))) (cond ((null? types) (quit "~a~ano clause applies in `compiler-typecase' for expression of type `~s':~a" (location-name loc) (node-source-prefix n) (car ts) (string-concatenate (map (lambda (t) (sprintf "\n ~a" t)) (cdr params))))) ((match-types (car types) (car ts) (append (type-typeenv (car types)) typeenv) #t) ;; drops exp (mutate-node! n (car subs)) (walk n e loc dest tail flow ctags)) (else (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 "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 typeenv #!optional 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) (break (cut eq? '#!rest <>) 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 (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) ((and (pair? t1) (eq? 'not (car t1))) (let* ((trail0 trail) (m (rawmatch1 (cadr t1) t2))) (trail-restore trail0 typeenv) (not m))) ((and (pair? t2) (eq? 'not (car t2))) (and (not all) (let* ((trail0 trail) (m (match1 t1 (cadr t2)))) (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? t1 'noreturn)) ((eq? t2 'noreturn)) ((eq? t1 'boolean) (match1 '(or true false) t2)) ((eq? t2 'boolean) (match1 t1 '(or true false))) ((eq? t1 'number) (match1 '(or fixnum float) t2)) ((eq? t2 'number) (match1 t1 '(or fixnum float))) ((eq? t1 'pair) (match1 '(pair * *) t2)) ((eq? t2 'pair) (match1 t1 '(pair * *))) ((eq? t1 'list) (match1 '(list-of *) t2)) ((eq? t2 'list) (match1 t1 '(list-of *))) ((eq? t1 'vector) (match1 '(vector-of *) t2)) ((eq? t2 'vector) (match1 t1 '(vector-of *))) ((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)))) (else #f) ) ) ((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))) (let ((m (match1 t1 t2))) (dd " match~a ~a <-> ~a -> ~a te: ~s" (if all " (all)" "") t1 t2 m typeenv) 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 (subst x) (cond ((symbol? x) (cond ((assq x typeenv) => cdr) (else x))) ((pair? x) (cons (subst (car x)) (subst (cdr x)))) (else x))) (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)))) (let ((v* (gensym v))) (mark-variable v* '##core#real-name v) (cons v v*)))) typevars) typeenv)) (set! constraints (append (filter-map (lambda (v) (and (pair? v) v)) typevars) constraints)) (simplify (third t)))) ((or) (let* ((ts (map simplify (cdr t))) (tslen (length ts))) (cond ((= 1 tslen) (car ts)) ((null? ts) '*) ((> tslen +maximal-union-type-length+) (d "union-type cutoff! (~a): ~s" tslen ts) '*) ((every procedure-type? ts) (if (any (cut eq? 'procedure <>) ts) 'procedure (reduce (lambda (t pt) (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)))) #f ts))) ((lset= eq? '(true false) ts) 'boolean) ((lset= eq? '(fixnum float) 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) '()) (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))))))) (cond ((equal? ts2 (cdr t)) t) (else (dd " or-simplify: ~a" ts2) (simplify `(or ,@(if (any (cut eq? <> '*) ts2) '(*) ts2)))))))) )) ((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)))) ((vector-of 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) ,(subst t2)))) (dd "simplify: ~a -> ~a" t t2) t2))) (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 ((null? ts1) '()) ((null? ts2) '()) ((or (atom? ts1) (atom? ts2)) (return '*)) ((eq? 'noreturn (car ts1)) (loop (cdr ts1) ts2)) ((eq? 'noreturn (car ts2)) (loop ts1 (cdr ts2))) (else (cons (simplify-type `(or ,(car ts1) ,(car ts2))) (loop (cdr ts1) (cdr ts2))))))))) (define (compatible-types? t1 t2) (or (type<=? t1 t2) (type<=? t2 t1))) (define (typeset-min t1 t2) (cond ((type<=? t1 t2) t1) ((type<=? t2 t1) t2) (else #f))) (define (type<=? t1 t2) ;; NOTE various corner cases require t1 and t2 to have been simplified. (let* ((typeenv (append-map type-typeenv (list t1 t2))) (trail0 trail) (r (let test ((t1 t1) (t2 t2)) (cond ((eq? t1 t2)) ((and (symbol? t1) (assq t1 typeenv)) => (lambda (e) (cond ((second e) (test (second e) t2)) (else (set-car! (cdr e) t2) (or (not (third e)) (test (third e) t2)))))) ((and (symbol? t2) (assq t2 typeenv)) => (lambda (e) (cond ((second e) (test t1 (second e))) (else (set-car! (cdr e) t1) (or (not (third e)) (test t1 (third e))))))) ((memq t2 '(* undefined)) #t) ((memq t1 '(* undefined)) #f) ((eq? 'pair t1) (test '(pair * *) t2)) ((eq? 'vector t1) (test '(vector-of *) t2)) ((eq? 'list t1) (test '(list-of *) t2)) ((eq? 'boolean t1) (test '(or true false) t2)) ((eq? 'number t1) (test '(or fixnum float) t2)) ((and (eq? 'null t1) (pair? t2) (eq? (car t2) 'list-of))) ((and (pair? t1) (eq? 'forall (car t1))) (test (third t1) t2)) ((and (pair? t2) (eq? 'forall (car t2))) (test t1 (third t2))) ((and (pair? t1) (eq? 'or (first t1))) (over-all-instantiations (cdr t1) typeenv #t (lambda (t) (test t t2)))) ((and (pair? t2) (eq? 'or (first t2))) (over-all-instantiations (cdr t2) typeenv #f (lambda (t) (test t1 t)))) ((and (pair? t1) (eq? 'not (first t1))) (and (pair? t2) (eq? 'not (first t2)) (test (second t2) (second t1)))) ((and (pair? t2) (eq? 'not (first t2))) (not (test t1 (second t2)))) ; sic (else (case t2 ((procedure) (and (pair? t1) (eq? 'procedure (car t1)))) ((boolean) (memq t1 '(true false))) ((number) (memq t1 '(fixnum float))) ((vector) (test t1 '(vector-of *))) ((list) (test t1 '(list-of *))) ((pair) (test t1 '(pair * *))) (else (cond ((not (pair? t1)) #f) ((not (pair? t2)) #f) ((and (eq? 'vector (car t1)) (eq? 'vector-of (car t2))) (every (cute test <> (second t2)) (cdr t1))) ((and (eq? 'vector-of (car t1)) (eq? 'vector (car t2))) (every (cute test (second t1) <>) (cdr t2))) ((and (eq? 'list (car t1)) (eq? 'list-of (car t2))) (every (cute test <> (second t2)) (cdr t1))) ((and (eq? 'list (car t1)) (eq? 'pair (car t2))) (and (not (null? (cdr t1))) (test (second t1) (second t2)) (test t1 (third t2)))) ((and (eq? 'pair (car t1)) (eq? 'list (car t2))) (and (not (null? (cdr t2))) (test (second t1) (second t2)) (test (third t1) t2))) ((and (eq? 'pair (car t1)) (eq? 'list-of (car t2))) (and (test (second t1) (second t2)) (test (third t1) t2))) ((not (eq? (car t1) (car t2))) #f) (else (case (car t1) ((vector-of list-of) (test (second t1) (second t2))) ((pair) (every test (cdr t1) (cdr t2))) ((list vector) (and (= (length t1) (length t2)) (every test (cdr t1) (cdr t2)))) ((struct) (eq? (cadr t1) (cadr t2))) ((procedure) (let ((args1 (if (named? t1) (caddr t1) (cadr t1))) (args2 (if (named? t2) (caddr t2) (cadr t2))) (res1 (if (named? t1) (cdddr t1) (cddr t1))) (res2 (if (named? t2) (cdddr t2) (cddr t2))) ) (let loop1 ((args1 args1) (args2 args2) (rtype1 #f) (rtype2 #f) (m1 0) (m2 0)) (cond ((null? args1) (and (cond ((null? args2) (if rtype1 (if rtype2 (test rtype1 rtype2) #f) #t)) ((eq? '#!optional (car args2)) (not rtype1)) ((eq? '#!rest (car args2)) (or (null? (cdr args2)) rtype1 (test rtype1 (cadr args2)))) (else (>= m2 m1))) (let loop2 ((res1 res1) (res2 res2)) (cond ((eq? '* res2) #t) ((null? res2) (null? res1)) ((eq? '* res1) #f) ((test (car res1) (car res2)) (loop2 (cdr res1) (cdr res2))) (else #f))))) ((eq? (car args1) '#!optional) (loop1 (cdr args1) args2 #f rtype2 1 m2)) ((eq? (car args1) '#!rest) (if (null? (cdr args1)) (loop1 '() args2 '* rtype2 2 m2) (loop1 '() args2 (cadr args1) rtype2 2 m2))) ((null? args2) (and rtype2 (test (car args1) rtype2) (loop1 (cdr args1) '() rtype1 rtype2 m1 m2))) ((eq? (car args2) '#!optional) (loop1 args1 (cdr args2) rtype1 #f m1 1)) ((eq? (car args2) '#!rest) (if (null? (cdr args2)) (loop1 args1 '() rtype1 '* m1 2) (loop1 args1 '() rtype1 (cadr args2) m1 2))) ((test (or rtype1 (car args1)) (or rtype2 (car args2))) (loop1 (cdr args1) (cdr args2) rtype1 rtype2 m1 m2)) (else #f))))) (else #f))))))))))) (set! trail trail0) ;;(dd "type<=?: ~s <-> ~s -> ~s" t1 t2 r) r)) ;;; 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))))) ;;; Type-environments and -variables (define (type-typeenv t) (let ((te '())) (let loop ((t t)) (when (pair? t) (case (car 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 and) (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 (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 (memq t '(* fixnum eof char string symbol float number list vector pair undefined blob input-port output-port pointer locative boolean true false pointer-vector null procedure noreturn)) 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) `(forall ,(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 #!optional (path (repository-path))) (define (clean! name) (when enable-specialization (mark-variable name '##compiler#clean #t))) (define (pure! name) (when enable-specialization (mark-variable name '##compiler#pure #t))) (and-let* ((dbfile (file-exists? (make-pathname path name)))) (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))) ((#: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 (unrename-type new)))) (when (and old (not (compatible-types? old t))) (warning (sprintf "type definition for toplevel binding `~a' \ conflicts with previously loaded type:\ ~n New type: ~a\ ~n Original type: ~a" name (unrename-type old) (unrename-type new)))) (mark-variable name '##compiler#type t) ;; We only allow db-loaded types to affect core code ;; because core isn't properly namespaced. User code may ;; unwittingly redefine core procedures, causing issues. (when (feature? #:chicken-bootstrap) (mark-variable name '##compiler#type-source 'db)) (when specs (install-specializations name specs))))) (read-file dbfile)) #t))) (define (emit-type-file filename db) (with-output-to-file filename (lambda () (print "; GENERATED BY CHICKEN " (chicken-version) " FROM " source-filename "\n") (##sys#hash-table-for-each (lambda (sym plist) (when (and (variable-visible? sym) (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))) (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) '())) ,@(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 (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 '(* string symbol char number boolean true false list pair procedure vector null eof undefined input-port output-port blob pointer locative fixnum float pointer-vector deprecated noreturn values)) t) ((memq t '(u8vector s8vector u16vector s16vector u32vector s32vector f32vector f64vector thread queue environment time continuation lock mmap condition hash-table tcp-listener)) `(struct ,t)) ((eq? t 'immediate) '(or eof null fixnum char boolean)) ((eq? t 'port) '(or input-port output-port)) ((eq? t 'any) '*) ((eq? t 'void) 'undefined) ((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))))) ((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? (cadr t)) t)) ((eq? 'deprecated (car t)) (and (= 2 (length t)) (symbol? (second t)) t)) ((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) (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 (##sys#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))) ;;; 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 ,val)))) rtypes))) (let () ;; TODO: Complain argument not available here, so we can't use the ;; standard "report" defined above. However, ##sys#enable-warnings ;; and "complain" (do-scrutinize) are always true together, except ;; that "complain" will be false while ##sys#enable-warnings is true ;; on "no-usual-integrations", so perhaps get rid of "complain"? (define (report loc msg . args) (warning (conc (location-name loc) (sprintf "~?" msg (map unrename-type args))))) (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 (report loc "~ain procedure call to `~s', index ~a out of range \ for vector of length ~a" (node-source-prefix node) ;; TODO: It might make more sense to use "pname" here (first (node-parameters (first subs))) val vector-length) #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 vector-ref vector-ref-result-type) (define-special-case ##sys#vector-ref vector-ref-result-type) (define-special-case 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, drop, take (let () ;; See comment in vector (let) just above this (define (report loc msg . args) (warning (conc (location-name loc) (sprintf "~?" msg (map unrename-type args))))) (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 ;; TODO: It might make sense to use "pname" when reporting (cond ((negative? val) ;; Negative indices should always generate a warning (report loc "~ain procedure call to `~s', index ~a is \ negative, which is never valid" (node-source-prefix node) (first (node-parameters (first subs))) val) #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) (report loc "~ain procedure call to `~s', index ~a out of \ range for proper list of length ~a" (node-source-prefix node) (first (node-parameters (first subs))) val length) #f)) (else #f))) rtypes))) (define-special-case list-ref (list+index-call-result-type-special-case (lambda (_ result-type) (and (pair? result-type) (list (cadr result-type)))))) (define-special-case list-tail (list+index-call-result-type-special-case (lambda (_ result-type) (list result-type)))) (define-special-case take (list+index-call-result-type-special-case (lambda (result-type _) (list result-type)))) (define-special-case drop (list+index-call-result-type-special-case (lambda (_ result-type) (list result-type))))) (define-special-case 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 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 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 () ;; See comment in vector (let) (define (report loc msg . args) (warning (conc (location-name loc) (sprintf "~?" msg (map unrename-type args))))) (define (append-special-case node args loc rtypes) (define (potentially-proper-list? l) (match-types l 'list '())) (define (derive-result-type) (let lp ((arg-types (cdr args)) (index 1)) (if (null? arg-types) 'null (let ((arg1 (walked-result (car arg-types)))) (cond ((and (pair? arg1) (eq? (car arg1) 'list)) (and-let* ((rest-t (lp (cdr arg-types) (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)))))) ((and (pair? arg1) (eq? (car arg1) 'list-of)) (and-let* ((rest-t (lp (cdr arg-types) (add1 index)))) ;; list-of's length unsurety is "contagious" (simplify-type `(or ,arg1 ,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 arg-types)) (potentially-proper-list? arg1)) (report loc "~ain procedure call to `~s', argument #~a is \ of type ~a but expected a proper list" (node-source-prefix node) (first (node-parameters (first (node-subexpressions node)))) index arg1)) #f)))))) (cond ((derive-result-type) => list) (else rtypes))) (define-special-case 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 make-list (complex-object-constructor-result-type-special-case 'list)) (define-special-case make-vector (complex-object-constructor-result-type-special-case 'vector))) ;;; perform check over all typevar instantiations (define (over-all-instantiations tlist typeenv exact 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? (exact '*) (else #f))) insts))) vars))) (ddd " collected: ~s" all) all)) (ddd " over-all-instantiations: ~s exact=~a" tlist exact) ;; process all tlist elements (let loop ((ts (delete-duplicates tlist equal?)) (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)) (exact (restore) #f) (else (restore) (loop (cdr ts) ok)))))) chicken-4.12.0/chicken-status.c0000644000175000017500000044322213052306532016107 0ustar sjamaansjamaan/* Generated from chicken-status.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: chicken-status.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -no-lambda-info -local -no-trace -output-file chicken-status.c used units: library eval chicken_2dsyntax srfi_2d1 posix data_2dstructures utils ports irregex files */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_srfi_2d1_toplevel) C_externimport void C_ccall C_srfi_2d1_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; C_noret_decl(C_utils_toplevel) C_externimport void C_ccall C_utils_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_ports_toplevel) C_externimport void C_ccall C_ports_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_files_toplevel) C_externimport void C_ccall C_files_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[103]; static double C_possibly_force_alignment; C_noret_decl(f_1918) static void C_ccall f_1918(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(f_1453) static void C_ccall f_1453(C_word c,C_word *av) C_noret; C_noret_decl(f_1844) static void C_fcall f_1844(C_word t0,C_word t1) C_noret; C_noret_decl(f_1324) static void C_ccall f_1324(C_word c,C_word *av) C_noret; C_noret_decl(f_1426) static void C_fcall f_1426(C_word t0,C_word t1,C_word t2) 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_890) static void C_ccall f_890(C_word c,C_word *av) C_noret; C_noret_decl(f_1436) static void C_ccall f_1436(C_word c,C_word *av) C_noret; C_noret_decl(f_1286) static void C_ccall f_1286(C_word c,C_word *av) C_noret; C_noret_decl(f_1280) static void C_ccall f_1280(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_908) static void C_ccall f_908(C_word c,C_word *av) C_noret; C_noret_decl(f_905) static void C_ccall f_905(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(f_1139) static void C_fcall f_1139(C_word t0) C_noret; C_noret_decl(f_1559) static void C_fcall f_1559(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1146) static void C_ccall f_1146(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(f_1071) static void C_ccall f_1071(C_word c,C_word *av) C_noret; C_noret_decl(f_920) static void C_ccall f_920(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_1520) static void C_fcall f_1520(C_word t0,C_word t1,C_word t2) 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_1111) static void C_ccall f_1111(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_1610) static void C_ccall f_1610(C_word c,C_word *av) C_noret; C_noret_decl(f_911) static void C_ccall f_911(C_word c,C_word *av) C_noret; C_noret_decl(f_917) static void C_ccall f_917(C_word c,C_word *av) C_noret; C_noret_decl(f_914) static void C_ccall f_914(C_word c,C_word *av) C_noret; C_noret_decl(f_1123) static void C_fcall f_1123(C_word t0,C_word t1) 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_1319) static void C_ccall f_1319(C_word c,C_word *av) C_noret; C_noret_decl(f_1622) static void C_ccall f_1622(C_word c,C_word *av) C_noret; C_noret_decl(f_1311) static void C_ccall f_1311(C_word c,C_word *av) C_noret; C_noret_decl(f_947) static void C_ccall f_947(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_2080) static void C_ccall f_2080(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_930) static void C_fcall f_930(C_word t0) C_noret; C_noret_decl(f_1891) static void C_ccall f_1891(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_2072) static void C_ccall f_2072(C_word c,C_word *av) C_noret; C_noret_decl(f_1603) static void C_fcall f_1603(C_word t0,C_word t1) C_noret; C_noret_decl(f_1803) static void C_ccall f_1803(C_word c,C_word *av) C_noret; C_noret_decl(f_1020) static void C_ccall f_1020(C_word c,C_word *av) C_noret; C_noret_decl(f_1572) static void C_fcall f_1572(C_word t0,C_word t1) C_noret; C_noret_decl(f_963) static void C_ccall f_963(C_word c,C_word *av) C_noret; C_noret_decl(f_1575) static void C_ccall f_1575(C_word c,C_word *av) 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_960) static void C_ccall f_960(C_word c,C_word *av) 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_1354) static void C_fcall f_1354(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1099) static void C_ccall f_1099(C_word c,C_word *av) C_noret; C_noret_decl(f_957) static void C_ccall f_957(C_word c,C_word *av) C_noret; C_noret_decl(f_1092) static void C_ccall f_1092(C_word c,C_word *av) C_noret; C_noret_decl(f_1417) static void C_ccall f_1417(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_1025) static void C_fcall f_1025(C_word t0,C_word t1,C_word t2) 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_1451) static void C_ccall f_1451(C_word c,C_word *av) C_noret; C_noret_decl(f_1009) static void C_ccall f_1009(C_word c,C_word *av) C_noret; C_noret_decl(f_1003) static void C_ccall f_1003(C_word c,C_word *av) C_noret; C_noret_decl(f_1530) static void C_ccall f_1530(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_1991) static void C_ccall f_1991(C_word c,C_word *av) C_noret; C_noret_decl(f_1505) static void C_ccall f_1505(C_word c,C_word *av) C_noret; C_noret_decl(f_1997) static void C_fcall f_1997(C_word t0,C_word t1) 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_1580) static void C_ccall f_1580(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_2133) static void C_ccall f_2133(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_1062) static void C_ccall f_1062(C_word c,C_word *av) C_noret; C_noret_decl(f_1593) static void C_ccall f_1593(C_word c,C_word *av) 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_1512) static void C_ccall f_1512(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_1037) static void C_fcall f_1037(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1394) static void C_fcall f_1394(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1101) static void C_fcall f_1101(C_word t0,C_word t1,C_word t2,C_word t3) 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_1013) static void C_ccall f_1013(C_word c,C_word *av) C_noret; C_noret_decl(f_2123) static void C_ccall f_2123(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_2129) static void C_ccall f_2129(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_1151) static void C_fcall f_1151(C_word t0,C_word t1,C_word t2) 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_1383) static void C_ccall f_1383(C_word c,C_word *av) C_noret; C_noret_decl(f_1385) static void C_ccall f_1385(C_word c,C_word *av) C_noret; C_noret_decl(f2297) static void C_ccall f2297(C_word c,C_word *av) C_noret; C_noret_decl(f_1269) static void C_ccall f_1269(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_1490) static void C_ccall f_1490(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_1191) static void C_ccall f_1191(C_word c,C_word *av) C_noret; C_noret_decl(f_1193) static void C_fcall f_1193(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1364) static void C_ccall f_1364(C_word c,C_word *av) 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_2031) static void C_ccall f_2031(C_word c,C_word *av) C_noret; C_noret_decl(f_2035) static void C_fcall f_2035(C_word t0,C_word t1,C_word t2) 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_1296) static void C_ccall f_1296(C_word c,C_word *av) C_noret; C_noret_decl(f_1297) static void C_fcall f_1297(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1292) static void C_ccall f_1292(C_word c,C_word *av) C_noret; C_noret_decl(f2314) static void C_ccall f2314(C_word c,C_word *av) C_noret; C_noret_decl(f_1725) static void C_ccall f_1725(C_word c,C_word *av) C_noret; C_noret_decl(f_1768) static void C_ccall f_1768(C_word c,C_word *av) C_noret; C_noret_decl(f_985) static void C_ccall f_985(C_word c,C_word *av) C_noret; C_noret_decl(f_982) static void C_ccall f_982(C_word c,C_word *av) C_noret; C_noret_decl(f2309) static void C_ccall f2309(C_word c,C_word *av) C_noret; C_noret_decl(f2302) static void C_ccall f2302(C_word c,C_word *av) C_noret; C_noret_decl(f_1700) static void C_fcall f_1700(C_word t0,C_word t1,C_word t2) 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_979) static void C_ccall f_979(C_word c,C_word *av) C_noret; C_noret_decl(f_1642) static void C_fcall f_1642(C_word t0,C_word t1,C_word t2) 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_973) static void C_ccall f_973(C_word c,C_word *av) C_noret; C_noret_decl(f_1743) static void C_fcall f_1743(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1212) static void C_ccall f_1212(C_word c,C_word *av) C_noret; C_noret_decl(f_1343) static void C_ccall f_1343(C_word c,C_word *av) C_noret; C_noret_decl(f_1346) static void C_ccall f_1346(C_word c,C_word *av) C_noret; C_noret_decl(f_1176) static void C_ccall f_1176(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_1793) static void C_ccall f_1793(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_1421) static void C_ccall f_1421(C_word c,C_word *av) C_noret; C_noret_decl(f_1914) static void C_ccall f_1914(C_word c,C_word *av) C_noret; C_noret_decl(f_1187) static void C_ccall f_1187(C_word c,C_word *av) C_noret; C_noret_decl(trf_1844) static void C_ccall trf_1844(C_word c,C_word *av) C_noret; static void C_ccall trf_1844(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1844(t0,t1);} C_noret_decl(trf_1426) static void C_ccall trf_1426(C_word c,C_word *av) C_noret; static void C_ccall trf_1426(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1426(t0,t1,t2);} C_noret_decl(trf_1139) static void C_ccall trf_1139(C_word c,C_word *av) C_noret; static void C_ccall trf_1139(C_word c,C_word *av){ C_word t0=av[0]; f_1139(t0);} C_noret_decl(trf_1559) static void C_ccall trf_1559(C_word c,C_word *av) C_noret; static void C_ccall trf_1559(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1559(t0,t1,t2,t3);} C_noret_decl(trf_1520) static void C_ccall trf_1520(C_word c,C_word *av) C_noret; static void C_ccall trf_1520(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1520(t0,t1,t2);} C_noret_decl(trf_1123) static void C_ccall trf_1123(C_word c,C_word *av) C_noret; static void C_ccall trf_1123(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1123(t0,t1);} C_noret_decl(trf_930) static void C_ccall trf_930(C_word c,C_word *av) C_noret; static void C_ccall trf_930(C_word c,C_word *av){ C_word t0=av[0]; f_930(t0);} C_noret_decl(trf_1603) static void C_ccall trf_1603(C_word c,C_word *av) C_noret; static void C_ccall trf_1603(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1603(t0,t1);} C_noret_decl(trf_1572) static void C_ccall trf_1572(C_word c,C_word *av) C_noret; static void C_ccall trf_1572(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1572(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_1354(t0,t1,t2);} C_noret_decl(trf_1025) static void C_ccall trf_1025(C_word c,C_word *av) C_noret; static void C_ccall trf_1025(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1025(t0,t1,t2);} C_noret_decl(trf_1997) static void C_ccall trf_1997(C_word c,C_word *av) C_noret; static void C_ccall trf_1997(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1997(t0,t1);} C_noret_decl(trf_1037) static void C_ccall trf_1037(C_word c,C_word *av) C_noret; static void C_ccall trf_1037(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1037(t0,t1,t2);} C_noret_decl(trf_1394) static void C_ccall trf_1394(C_word c,C_word *av) C_noret; static void C_ccall trf_1394(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1394(t0,t1,t2);} C_noret_decl(trf_1101) static void C_ccall trf_1101(C_word c,C_word *av) C_noret; static void C_ccall trf_1101(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1101(t0,t1,t2,t3);} C_noret_decl(trf_1151) static void C_ccall trf_1151(C_word c,C_word *av) C_noret; static void C_ccall trf_1151(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1151(t0,t1,t2);} C_noret_decl(trf_1193) static void C_ccall trf_1193(C_word c,C_word *av) C_noret; static void C_ccall trf_1193(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1193(t0,t1,t2,t3);} C_noret_decl(trf_2035) static void C_ccall trf_2035(C_word c,C_word *av) C_noret; static void C_ccall trf_2035(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2035(t0,t1,t2);} C_noret_decl(trf_1297) static void C_ccall trf_1297(C_word c,C_word *av) C_noret; static void C_ccall trf_1297(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1297(t0,t1,t2);} C_noret_decl(trf_1700) static void C_ccall trf_1700(C_word c,C_word *av) C_noret; static void C_ccall trf_1700(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1700(t0,t1,t2);} C_noret_decl(trf_1642) static void C_ccall trf_1642(C_word c,C_word *av) C_noret; static void C_ccall trf_1642(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1642(t0,t1,t2);} C_noret_decl(trf_1743) static void C_ccall trf_1743(C_word c,C_word *av) C_noret; static void C_ccall trf_1743(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1743(t0,t1,t2);} /* k1916 in k1905 in k1889 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1918(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1918,2,av);} /* chicken-status.scm:221: make-pathname */ t2=C_fast_retrieve(lf[7]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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#grep in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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=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,3)))){ C_save_and_reclaim((void *)f_997,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1003,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:58: filter */ t5=C_fast_retrieve(lf[17]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a1452 in main#list-installed-files in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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=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_1453,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1467,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1471,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:124: repo-path */ f_930(t4);} /* k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1844(C_word t0,C_word t1){ C_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(9,0,3)))){ C_save_and_reclaim_args((void *)trf_1844,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f2297,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:139: print */ t4=*((C_word*)lf[36]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[74]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ if(C_truep(C_u_i_string_equal_p(((C_word*)t0)[3],lf[75]))){ t2=lf[2] /* main#*target-extensions* */ =C_SCHEME_FALSE;; t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); /* chicken-status.scm:207: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_1559(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[76]))){ t2=lf[1] /* main#*host-extensions* */ =C_SCHEME_FALSE;; t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); /* chicken-status.scm:210: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_1559(t5,((C_word*)t0)[2],t4,((C_word*)t0)[6]);} else{ if(C_truep(C_u_i_string_equal_p(lf[77],((C_word*)t0)[3]))){ t2=lf[4] /* main#*deploy* */ =C_SCHEME_TRUE;; t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); /* chicken-status.scm:213: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_1559(t5,((C_word*)t0)[2],t4,((C_word*)t0)[6]);} else{ t2=C_u_i_string_equal_p(((C_word*)t0)[3],lf[78]); t3=(C_truep(t2)?t2:C_u_i_string_equal_p(((C_word*)t0)[3],lf[79])); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1891,a[2]=((C_word*)t0)[4],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); t5=((C_word*)t0)[4]; t6=C_u_i_cdr(t5); if(C_truep(C_i_pairp(t6))){ t7=t4;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_1891(2,av2);}} else{ t7=t4; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f2302,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:139: print */ t9=*((C_word*)lf[36]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=lf[74]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} else{ if(C_truep(C_u_i_string_equal_p(((C_word*)t0)[3],lf[83]))){ t4=C_set_block_item(((C_word*)t0)[7],0,C_SCHEME_TRUE); t5=((C_word*)t0)[4]; t6=C_u_i_cdr(t5); /* chicken-status.scm:225: loop */ t7=((C_word*)((C_word*)t0)[5])[1]; f_1559(t7,((C_word*)t0)[2],t6,((C_word*)t0)[6]);} else{ if(C_truep(C_u_i_string_equal_p(((C_word*)t0)[3],lf[84]))){ t4=C_set_block_item(((C_word*)t0)[8],0,C_SCHEME_TRUE); t5=((C_word*)t0)[4]; t6=C_u_i_cdr(t5); /* chicken-status.scm:228: loop */ t7=((C_word*)((C_word*)t0)[5])[1]; f_1559(t7,((C_word*)t0)[2],t6,((C_word*)t0)[6]);} else{ t4=C_u_i_string_equal_p(((C_word*)t0)[3],lf[85]); t5=(C_truep(t4)?t4:C_u_i_string_equal_p(((C_word*)t0)[3],lf[86])); if(C_truep(t5)){ t6=C_set_block_item(((C_word*)t0)[9],0,C_SCHEME_TRUE); t7=((C_word*)t0)[4]; t8=C_u_i_cdr(t7); /* chicken-status.scm:231: loop */ t9=((C_word*)((C_word*)t0)[5])[1]; f_1559(t9,((C_word*)t0)[2],t8,((C_word*)t0)[6]);} else{ t6=C_u_i_string_equal_p(((C_word*)t0)[3],lf[87]); t7=(C_truep(t6)?t6:C_u_i_string_equal_p(((C_word*)t0)[3],lf[88])); if(C_truep(t7)){ t8=C_set_block_item(((C_word*)t0)[10],0,C_SCHEME_TRUE); t9=((C_word*)t0)[4]; t10=C_u_i_cdr(t9); /* chicken-status.scm:234: loop */ t11=((C_word*)((C_word*)t0)[5])[1]; f_1559(t11,((C_word*)t0)[2],t10,((C_word*)t0)[6]);} else{ if(C_truep(C_u_i_string_equal_p(((C_word*)t0)[3],lf[89]))){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1984,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1991,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:236: chicken-version */ t10=C_fast_retrieve(lf[90]);{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1997,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); t9=C_block_size(((C_word*)t0)[3]); if(C_truep(C_fixnum_greaterp(t9,C_fix(0)))){ t10=C_i_string_ref(((C_word*)t0)[3],C_fix(0)); t11=t8; f_1997(t11,C_u_i_char_equalp(C_make_character(45),t10));} else{ t10=t8; f_1997(t10,C_SCHEME_FALSE);}}}}}}}}}}}} /* k1322 in k1309 in k1337 in g297 in k1294 in main#list-installed-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1324,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[32]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[32]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[37]; av2[3]=t1; tp(4,av2);}} /* for-each-loop336 in k1419 in main#list-installed-files in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1426(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_1426,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_1436,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:118: g337 */ t5=*((C_word*)lf[36]+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);}}} /* k891 in k888 */ 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; C_check_for_interrupt; 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; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k894 in k891 in k888 */ 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; C_check_for_interrupt; 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; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d1_toplevel(2,av2);}} /* k897 in k894 in k891 in k888 */ 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; C_check_for_interrupt; 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; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_posix_toplevel(2,av2);}} /* k888 */ 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; C_check_for_interrupt; 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; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k1434 in for-each-loop336 in k1419 in main#list-installed-files in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1436,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1426(t3,((C_word*)t0)[4],t2);} /* a1285 in k1264 in main#list-installed-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1286(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1286,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_list_ref(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a1279 in k1264 in main#list-installed-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1280(C_word c,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_1280,2,av);} /* chicken-status.scm:95: terminal-size */ t2=C_fast_retrieve(lf[46]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1905 in k1889 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_1907,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_1898(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1914,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1918,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:221: current-directory */ t4=C_fast_retrieve(lf[81]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_908,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_911,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_ports_toplevel(2,av2);}} /* k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_905(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_905,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_908,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_utils_toplevel(2,av2);}} /* k900 in k897 in k894 in k891 in k888 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_902,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_905,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* main#gather-all-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1139(C_word t1){ C_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,2)))){ C_save_and_reclaim_args((void *)trf_1139,1,t1);} 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_fast_retrieve(lf[27]); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1146,a[2]=t4,a[3]=t6,a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1187,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1191,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:81: repo-path */ f_930(t9);} /* loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1559(C_word t0,C_word t1,C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_1559,4,t0,t1,t2,t3);} a=C_alloc(11); if(C_truep(C_i_nullp(t2))){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1572,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],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(((C_word*)((C_word*)t0)[2])[1])){ t5=((C_word*)((C_word*)t0)[5])[1]; if(C_truep(t5)){ t6=t4; f_1572(t6,t5);} else{ t6=((C_word*)((C_word*)t0)[3])[1]; t7=t4; f_1572(t7,t6);}} else{ t5=t4; f_1572(t5,C_SCHEME_FALSE);}} else{ t4=C_i_car(t2); t5=t4; t6=C_i_string_equal_p(t5,lf[73]); t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_1844,a[2]=t1,a[3]=t5,a[4]=t2,a[5]=((C_word*)t0)[6],a[6]=t3,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[2],tmp=(C_word)a,a+=11,tmp); if(C_truep(t6)){ t8=t7; f_1844(t8,t6);} else{ t8=C_u_i_string_equal_p(t5,lf[96]); if(C_truep(t8)){ t9=t7; f_1844(t9,t8);} else{ t9=C_u_i_string_equal_p(t5,lf[97]); t10=t7; f_1844(t10,t9);}}}} /* k1144 in main#gather-all-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_1146,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_1151,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_1151(t5,((C_word*)t0)[5],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(404))){ C_save(t1); C_rereclaim2(404*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,103); lf[6]=C_h_intern(&lf[6],7,"sprintf"); lf[7]=C_h_intern(&lf[7],13,"make-pathname"); lf[8]=C_h_intern(&lf[8],17,"get-output-string"); lf[9]=C_h_intern(&lf[9],9,"\003sysprint"); lf[10]=C_decode_literal(C_heaptop,"\376B\000\000\010chicken/"); lf[11]=C_h_intern(&lf[11],18,"open-output-string"); lf[12]=C_h_intern(&lf[12],17,"\003syspeek-c-string"); lf[13]=C_decode_literal(C_heaptop,"\376B\000\000\014lib/chicken/"); lf[14]=C_h_intern(&lf[14],15,"repository-path"); lf[16]=C_h_intern(&lf[16],14,"irregex-search"); lf[17]=C_h_intern(&lf[17],6,"filter"); lf[19]=C_h_intern(&lf[19],17,"delete-duplicates"); lf[20]=C_h_intern(&lf[20],8,"string=\077"); lf[21]=C_h_intern(&lf[21],3,"map"); lf[22]=C_h_intern(&lf[22],11,"concatenate"); lf[25]=C_h_intern(&lf[25],8,"egg-name"); lf[26]=C_h_intern(&lf[26],19,"setup-api#read-info"); lf[27]=C_h_intern(&lf[27],13,"pathname-file"); lf[28]=C_h_intern(&lf[28],4,"glob"); lf[29]=C_decode_literal(C_heaptop,"\376B\000\000\001\052"); lf[30]=C_decode_literal(C_heaptop,"\376B\000\000\012setup-info"); lf[32]=C_h_intern(&lf[32],17,"\003sysstring-append"); lf[33]=C_h_intern(&lf[33],11,"make-string"); lf[35]=C_h_intern(&lf[35],7,"version"); lf[36]=C_h_intern(&lf[36],5,"print"); lf[37]=C_decode_literal(C_heaptop,"\376B\000\000\012 version: "); lf[38]=C_h_intern(&lf[38],8,"->string"); lf[39]=C_h_intern(&lf[39],13,"string-append"); lf[40]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[41]=C_h_intern(&lf[41],8,"for-each"); lf[42]=C_h_intern(&lf[42],4,"sort"); lf[43]=C_h_intern(&lf[43],8,"string<\077"); lf[44]=C_h_intern(&lf[44],19,"\003sysstandard-output"); lf[45]=C_h_intern(&lf[45],3,"min"); lf[46]=C_h_intern(&lf[46],13,"terminal-size"); lf[47]=C_h_intern(&lf[47],14,"terminal-port\077"); lf[50]=C_h_intern(&lf[50],5,"files"); lf[51]=C_h_intern(&lf[51],10,"append-map"); lf[52]=C_h_intern(&lf[52],25,"\003sysimplicit-exit-handler"); lf[53]=C_h_intern(&lf[53],4,"exit"); lf[54]=C_decode_literal(C_heaptop,"\376B\000\000 -eggs cannot be used with -list."); lf[55]=C_h_intern(&lf[55],19,"with-output-to-port"); lf[56]=C_h_intern(&lf[56],18,"\003sysstandard-error"); lf[57]=C_decode_literal(C_heaptop,"\376B\000\000B`-deploy\047 only makes sense in combination with `-prefix DIRECTORY`"); lf[58]=C_h_intern(&lf[58],7,"irregex"); lf[59]=C_h_intern(&lf[59],7,"display"); lf[60]=C_decode_literal(C_heaptop,"\376B\000\000\007(none)\012"); lf[61]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\002.\052\376\377\016"); lf[62]=C_decode_literal(C_heaptop,"\376B\000\000\001^"); lf[63]=C_decode_literal(C_heaptop,"\376B\000\000\001$"); lf[64]=C_h_intern(&lf[64],13,"irregex-quote"); lf[65]=C_h_intern(&lf[65],16,"\003sysglob->regexp"); lf[66]=C_h_intern(&lf[66],2,"pp"); lf[67]=C_h_intern(&lf[67],14,"string->symbol"); lf[68]=C_decode_literal(C_heaptop,"\376B\000\000\013\012target at "); lf[69]=C_decode_literal(C_heaptop,"\376B\000\000\002:\012"); lf[70]=C_h_intern(&lf[70],16,"\003sysdynamic-wind"); lf[71]=C_decode_literal(C_heaptop,"\376B\000\000\010host at "); lf[72]=C_decode_literal(C_heaptop,"\376B\000\000\002:\012"); lf[73]=C_decode_literal(C_heaptop,"\376B\000\000\005-help"); lf[74]=C_decode_literal(C_heaptop,"\376B\000\002\351usage: chicken-status [OPTION | PATTERN] ...\012\012 -h -help " " show this message\012 -version show version and exit\012 -f " " -files list installed files\012 -exact " "treat PATTERN as exact match (not a pattern)\012 -host whe" "n cross-compiling, show status of host extensions only\012 -target " " when cross-compiling, show status of target extensions only\012 -p -prefi" "x PREFIX change installation prefix to PREFIX\012 -deploy " " prefix is a deployment directory\012 -list dump in" "stalled extensions and their versions in \042override\042 format\012 -e -eggs " " list installed eggs"); lf[75]=C_decode_literal(C_heaptop,"\376B\000\000\005-host"); lf[76]=C_decode_literal(C_heaptop,"\376B\000\000\007-target"); lf[77]=C_decode_literal(C_heaptop,"\376B\000\000\007-deploy"); lf[78]=C_decode_literal(C_heaptop,"\376B\000\000\002-p"); lf[79]=C_decode_literal(C_heaptop,"\376B\000\000\007-prefix"); lf[80]=C_h_intern(&lf[80],18,"normalize-pathname"); lf[81]=C_h_intern(&lf[81],17,"current-directory"); lf[82]=C_h_intern(&lf[82],18,"absolute-pathname\077"); lf[83]=C_decode_literal(C_heaptop,"\376B\000\000\006-exact"); lf[84]=C_decode_literal(C_heaptop,"\376B\000\000\005-list"); lf[85]=C_decode_literal(C_heaptop,"\376B\000\000\002-f"); lf[86]=C_decode_literal(C_heaptop,"\376B\000\000\006-files"); lf[87]=C_decode_literal(C_heaptop,"\376B\000\000\002-e"); lf[88]=C_decode_literal(C_heaptop,"\376B\000\000\005-eggs"); lf[89]=C_decode_literal(C_heaptop,"\376B\000\000\010-version"); lf[90]=C_h_intern(&lf[90],15,"chicken-version"); lf[91]=C_h_intern(&lf[91],6,"append"); lf[92]=C_decode_literal(C_heaptop,"\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\000p\376\377\016"); lf[93]=C_h_intern(&lf[93],5,"every"); lf[94]=C_h_intern(&lf[94],16,"\003sysstring->list"); lf[95]=C_h_intern(&lf[95],9,"substring"); lf[96]=C_decode_literal(C_heaptop,"\376B\000\000\002-h"); lf[97]=C_decode_literal(C_heaptop,"\376B\000\000\006--help"); lf[98]=C_h_intern(&lf[98],22,"command-line-arguments"); lf[99]=C_h_intern(&lf[99],8,"feature\077"); lf[100]=C_h_intern(&lf[100],14,"\000cross-chicken"); lf[101]=C_h_intern(&lf[101],11,"\003sysrequire"); lf[102]=C_h_intern(&lf[102],9,"setup-api"); C_register_lf2(lf,103,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_890,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* main#gather-eggs in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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; 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_1071,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1099,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:71: gather-extensions */ t4=C_retrieve2(lf[18],"main#gather-extensions");{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; f_1009(3,av2);}} /* k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_920,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_924,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:40: feature? */ t3=C_fast_retrieve(lf[99]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[100]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word 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(24,c,5)))){ C_save_and_reclaim((void *)f_924,2,av);} a=C_alloc(24); t2=lf[0] /* main#*cross-chicken* */ =t1;; t3=lf[1] /* main#*host-extensions* */ =C_retrieve2(lf[0],"main#\052cross-chicken\052");; t4=lf[2] /* main#*target-extensions* */ =C_retrieve2(lf[0],"main#\052cross-chicken\052");; t5=lf[3] /* main#*prefix* */ =C_SCHEME_FALSE;; t6=lf[4] /* main#*deploy* */ =C_SCHEME_FALSE;; t7=C_mutate2(&lf[5] /* (set! main#repo-path ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_930,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate2(&lf[15] /* (set! main#grep ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_997,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate2(&lf[18] /* (set! main#gather-extensions ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1009,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate2(&lf[24] /* (set! main#gather-eggs ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1071,tmp=(C_word)a,a+=2,tmp)); t11=C_mutate2(&lf[23] /* (set! main#gather-all-extensions ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1139,tmp=(C_word)a,a+=2,tmp)); t12=C_mutate2(&lf[31] /* (set! main#format-string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1193,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate2(&lf[34] /* (set! main#list-installed-extensions ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1292,tmp=(C_word)a,a+=2,tmp)); t14=C_mutate2(&lf[48] /* (set! main#list-installed-eggs ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1385,tmp=(C_word)a,a+=2,tmp)); t15=C_mutate2(&lf[49] /* (set! main#list-installed-files ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1417,tmp=(C_word)a,a+=2,tmp)); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2133,a[2]=t16,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:248: command-line-arguments */ t18=C_fast_retrieve(lf[98]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=t17; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} /* for-each-loop356 in k1510 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1520(C_word t0,C_word t1,C_word t2){ C_word 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_1520,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_1530,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_1505,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1509,a[2]=t7,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:134: repo-path */ f_930(t8);} 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);}}} /* k1614 in k1608 in status in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1616,2,av);} a=C_alloc(5); t2=(C_truep(((C_word*)((C_word*)t0)[2])[1])?C_retrieve2(lf[24],"main#gather-eggs"):C_retrieve2(lf[18],"main#gather-extensions")); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1622,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); /* chicken-status.scm:176: g494 */ t4=t2;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1109 in loop in k1097 in main#gather-eggs in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_1111,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1123,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=C_i_member(t2,((C_word*)t0)[2]); t5=t3; f_1123(t5,C_i_not(t4));} else{ t4=t3; f_1123(t4,C_SCHEME_FALSE);}} /* k1086 in loop in k1097 in main#gather-eggs in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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_i_assq(lf[25],t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_i_cadr(t2):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1608 in status in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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,3)))){ C_save_and_reclaim((void *)f_1610,2,av);} a=C_alloc(13); t2=C_i_check_list_2(t1,lf[21]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1616,a[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_1642,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_1642(t7,t3,t1);} /* k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_911,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_914,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_irregex_toplevel(2,av2);}} /* k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_917,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_920,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:27: ##sys#require */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[101]+1); av2[1]=t2; av2[2]=lf[102]; tp(3,av2);}} /* k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_914,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_917,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_files_toplevel(2,av2);}} /* k1121 in k1109 in loop in k1097 in main#gather-eggs in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1123(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_1123,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); /* chicken-status.scm:75: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_1101(t5,((C_word*)t0)[6],t2,t4);} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); /* chicken-status.scm:75: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_1101(t5,((C_word*)t0)[6],t2,t4);}} /* k1313 in k1309 in k1337 in g297 in k1294 in main#list-installed-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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);} /* chicken-status.scm:107: print */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1317 in k1309 in k1337 in g297 in k1294 in main#list-installed-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1319(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1319,2,av);} a=C_alloc(6); /* chicken-status.scm:109: format-string */ f_1193(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,2,C_SCHEME_TRUE,C_make_character(46)));} /* k1620 in k1614 in k1608 in status in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_1622,2,av);} if(C_truep(C_i_nullp(t1))){ /* chicken-status.scm:187: display */ t2=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[60]; av2[3]=*((C_word*)lf[56]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ t2=C_retrieve2(lf[48],"main#list-installed-eggs"); t3=C_retrieve2(lf[48],"main#list-installed-eggs"); /* chicken-status.scm:176: g496 */ t4=C_retrieve2(lf[48],"main#list-installed-eggs");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_1385(3,av2);}} else{ if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ t2=C_retrieve2(lf[49],"main#list-installed-files"); t3=C_retrieve2(lf[49],"main#list-installed-files"); t4=C_retrieve2(lf[49],"main#list-installed-files"); /* chicken-status.scm:176: g496 */ t5=C_retrieve2(lf[49],"main#list-installed-files");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_1417(3,av2);}} else{ t2=C_retrieve2(lf[34],"main#list-installed-extensions"); t3=C_retrieve2(lf[34],"main#list-installed-extensions"); t4=C_retrieve2(lf[34],"main#list-installed-extensions"); /* chicken-status.scm:176: g496 */ t5=C_retrieve2(lf[34],"main#list-installed-extensions");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_1292(3,av2);}}}}} /* k1309 in k1337 in g297 in k1294 in main#list-installed-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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,2)))){ C_save_and_reclaim((void *)f_1311,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1315,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_1319,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_1324,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=C_i_cadr(((C_word*)t0)[4]); /* chicken-status.scm:110: ->string */ t7=C_fast_retrieve(lf[38]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k945 in main#repo-path in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_947,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_951,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:50: open-output-string */ t4=C_fast_retrieve(lf[11]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1821 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1823,2,av);} /* chicken-status.scm:194: print */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[71]; av2[3]=t1; av2[4]=lf[72]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k2078 in k1995 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2080,2,av);} /* string->list */ t2=C_fast_retrieve(lf[94]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1815 in k1791 in k1788 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 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_1816,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_retrieve2(lf[1],"main#\052host-extensions\052")); t3=C_mutate2(&lf[1] /* (set! main#*host-extensions* ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* main#repo-path in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_930(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_930,1,t1);} a=C_alloc(6); if(C_truep(C_retrieve2(lf[4],"main#\052deploy\052"))){ t2=C_retrieve2(lf[3],"main#\052prefix\052"); t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_retrieve2(lf[3],"main#\052prefix\052"); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(C_truep(C_retrieve2(lf[0],"main#\052cross-chicken\052"))?C_i_not(C_retrieve2(lf[1],"main#\052host-extensions\052")):C_SCHEME_FALSE); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_947,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[12]+1);{ C_word av2[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);}} else{ if(C_truep(C_retrieve2(lf[3],"main#\052prefix\052"))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_973,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:54: open-output-string */ t4=C_fast_retrieve(lf[11]);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* chicken-status.scm:55: repository-path */ t3=C_fast_retrieve(lf[14]);{ C_word av2[2]; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}} /* k1889 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1891,2,av);} a=C_alloc(10); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1907,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:218: absolute-pathname? */ t6=C_fast_retrieve(lf[82]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k1896 in k1889 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 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_1898,2,av);} t2=C_mutate2(&lf[3] /* (set! main#*prefix* ...) */,t1); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_u_i_cdr(t4); /* chicken-status.scm:222: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_1559(t6,((C_word*)t0)[4],t5,((C_word*)t0)[5]);} /* a2071 in k2004 in k1995 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_2072(C_word c,C_word *av){ C_word tmp; C_word 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_2072,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_memq(t2,lf[92]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* status in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1603(C_word t0,C_word t1){ C_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(26,0,3)))){ C_save_and_reclaim_args((void *)trf_1603,2,t0,t1);} 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=C_fast_retrieve(lf[58]); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1610,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=t6,a[7]=t5,tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_nullp(((C_word*)t0)[4]))){ t8=t7;{ C_word av2[2]; av2[0]=t8; av2[1]=lf[61]; f_1610(2,av2);}} else{ if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ 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)[4]; t13=C_i_check_list_2(t12,lf[21]); 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_1700,a[2]=t10,a[3]=t15,a[4]=t11,tmp=(C_word)a,a+=5,tmp)); t17=((C_word*)t15)[1]; f_1700(t17,t7,t12);} 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_fast_retrieve(lf[65]); t13=((C_word*)t0)[4]; t14=C_i_check_list_2(t13,lf[21]); 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_1743,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_1743(t18,t7,t13);}}} /* a1802 in k1791 in k1788 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1803(C_word c,C_word *av){ C_word tmp; 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,2)))){ C_save_and_reclaim((void *)f_1803,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1807,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1814,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:197: repo-path */ f_930(t3);} /* k1018 in k1011 in main#gather-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1020(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1020,2,av);} /* chicken-status.scm:62: delete-duplicates */ t2=C_fast_retrieve(lf[19]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[20]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1572(C_word t0,C_word 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(13,0,3)))){ C_save_and_reclaim_args((void *)trf_1572,2,t0,t1);} a=C_alloc(13); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1575,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1580,tmp=(C_word)a,a+=2,tmp); /* chicken-status.scm:167: with-output-to-port */ t4=C_fast_retrieve(lf[55]);{ C_word av2[4]; av2[0]=t4; av2[1]=t2; av2[2]=*((C_word*)lf[56]+1); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t2=(C_truep(C_retrieve2(lf[4],"main#\052deploy\052"))?C_i_not(C_retrieve2(lf[3],"main#\052prefix\052")):C_SCHEME_FALSE); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1593,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1598,tmp=(C_word)a,a+=2,tmp); /* chicken-status.scm:171: with-output-to-port */ t5=C_fast_retrieve(lf[55]);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[56]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1603,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_word*)((C_word*)t0)[7])[1])){ t4=((C_word*)t0)[2]; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1512,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:136: gather-all-extensions */ f_1139(t5);} else{ t4=(C_truep(C_retrieve2(lf[1],"main#\052host-extensions\052"))?C_retrieve2(lf[2],"main#\052target-extensions\052"):C_SCHEME_FALSE); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1790,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1823,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:194: repo-path */ f_930(t6);} else{ /* chicken-status.scm:199: status */ t5=t3; f_1603(t5,((C_word*)t0)[2]);}}}}} /* k961 in k958 in k955 in k949 in k945 in main#repo-path in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_963,2,av);} /* chicken-status.scm:50: make-pathname */ t2=C_fast_retrieve(lf[7]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1573 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1575,2,av);} /* chicken-status.scm:169: exit */ t2=C_fast_retrieve(lf[53]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1402 in for-each-loop317 in main#list-installed-eggs in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1404,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1394(t3,((C_word*)t0)[4],t2);} /* k958 in k955 in k949 in k945 in main#repo-path in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_960,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_963,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:50: get-output-string */ t3=C_fast_retrieve(lf[8]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1805 in a1802 in k1791 in k1788 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1807,2,av);} /* chicken-status.scm:198: status */ t2=((C_word*)t0)[2]; f_1603(t2,((C_word*)t0)[3]);} /* for-each-loop296 in k1344 in k1294 in main#list-installed-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1354(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_1354,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_1364,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:101: g297 */ t5=((C_word*)t0)[3]; f_1297(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);}}} /* k1097 in main#gather-eggs in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_1099,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_1101,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_1101(t5,((C_word*)t0)[2],C_SCHEME_END_OF_LIST,t1);} /* k955 in k949 in k945 in main#repo-path in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_957(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_957,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_960,a[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-status.scm:50: ##sys#print */ t3=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_fix((C_word)C_BINARY_VERSION); av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k1090 in loop in k1097 in main#gather-eggs in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1092,2,av);} /* chicken-status.scm:68: setup-api#read-info */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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]=t1; tp(4,av2);}} /* main#list-installed-files in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,3)))){ C_save_and_reclaim((void *)f_1417,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1421,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1451,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1453,tmp=(C_word)a,a+=2,tmp); /* chicken-status.scm:122: append-map */ t6=C_fast_retrieve(lf[51]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k949 in k945 in main#repo-path in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 t3; 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_951,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[6]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_957,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-status.scm:50: ##sys#print */ t6=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[10]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* g199 in k1011 in main#gather-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1025(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_1025,3,t0,t1,t2);} t3=C_retrieve2(lf[15],"main#grep"); /* chicken-status.scm:63: g216 */ t4=C_retrieve2(lf[15],"main#grep");{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; f_997(4,av2);}} /* k1665 in map-loop412 in k1608 in status in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 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_1667,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_1642(t6,((C_word*)t0)[5],t5);} /* k1449 in main#list-installed-files in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1451,2,av);} /* chicken-status.scm:121: sort */ t2=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[43]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* main#gather-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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=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_1009,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1013,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:61: gather-all-extensions */ f_1139(t3);} /* a1002 in main#grep in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1003(C_word c,C_word *av){ C_word tmp; C_word 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_1003,3,av);} t3=C_fast_retrieve(lf[16]); /* chicken-status.scm:58: g186 */ t4=C_fast_retrieve(lf[16]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1528 in for-each-loop356 in k1510 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1530,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1520(t3,((C_word*)t0)[4],t2);} /* k1812 in a1802 in k1791 in k1788 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1814,2,av);} /* chicken-status.scm:197: print */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[68]; av2[3]=t1; av2[4]=lf[69]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k1989 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1991,2,av);} /* chicken-status.scm:236: print */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1503 in for-each-loop356 in k1510 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_1505,2,av);} a=C_alloc(4); t2=C_i_assq(lf[35],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1490,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:135: string->symbol */ t5=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1995 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1997(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_1997,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_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); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2080,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:241: substring */ t5=*((C_word*)lf[95]+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)f2314,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:139: print */ t5=*((C_word*)lf[36]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=lf[74]; ((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:246: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_1559(t5,((C_word*)t0)[4],t3,t4);}} /* k1507 in for-each-loop356 in k1510 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1509,2,av);} /* chicken-status.scm:134: setup-api#read-info */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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]=t1; tp(4,av2);}} /* a1579 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 *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_1580,2,av);} /* chicken-status.scm:168: g398 */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=lf[54]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a1597 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 *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_1598,2,av);} /* chicken-status.scm:172: g405 */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=lf[57]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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; C_word t3; C_word t4; C_word t5; C_word 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_2133,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=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_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_1559,a[2]=t5,a[3]=t3,a[4]=t9,a[5]=t7,a[6]=t11,tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_1559(t13,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* k2010 in k2004 in k1995 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 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_2012,2,av);} a=C_alloc(21); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2019,a[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_2031,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_2035,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_2035(t11,t7,((C_word*)t0)[6]);} else{ t2=((C_word*)t0)[3]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f2309,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:139: print */ t4=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[74]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k1060 in map-loop193 in k1011 in main#gather-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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; C_word t3; 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_1062,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_1037(t6,((C_word*)t0)[5],t5);} /* k1591 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1593,2,av);} /* chicken-status.scm:173: exit */ t2=C_fast_retrieve(lf[53]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2017 in k2010 in k2004 in k1995 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2019,2,av);} /* chicken-status.scm:243: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1559(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k1510 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_1512,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[41]); 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_1520,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_1520(t6,((C_word*)t0)[2],t1);} /* k1033 in k1011 in main#gather-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1035,2,av);} /* chicken-status.scm:63: concatenate */ t2=C_fast_retrieve(lf[22]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop193 in k1011 in main#gather-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1037(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_1037,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_1062,a[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:63: g199 */ t5=((C_word*)t0)[4]; f_1025(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);}}} /* for-each-loop317 in main#list-installed-eggs in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1394(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_1394,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_1404,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:115: g318 */ t5=*((C_word*)lf[36]+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);}}} /* loop in k1097 in main#gather-eggs in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1101(C_word t0,C_word t1,C_word 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(13,0,2)))){ C_save_and_reclaim_args((void *)trf_1101,4,t0,t1,t2,t3);} a=C_alloc(13); 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|5,a[1]=(C_word)f_1111,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=t4; t7=t5; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1088,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1092,a[2]=t8,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:68: repo-path */ f_930(t9);}} /* k1690 in map-loop435 in status in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1692,2,av);} /* chicken-status.scm:182: string-append */ t2=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[62]; av2[3]=t1; av2[4]=lf[63]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k1011 in main#gather-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1013(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_1013,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1020,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_1025,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t9=((C_word*)t0)[3]; t10=C_i_check_list_2(t9,lf[21]); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1035,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_1037,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_1037(t15,t11,t9);} /* k2121 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_2123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2123,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2129,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#implicit-exit-handler */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[52]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[52]+1); av2[1]=t3; tp(2,av2);}} /* k2124 in k2121 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2127 in k2121 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_2129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2129,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k2004 in k1995 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 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_2006,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2012,a[2]=((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_2072,tmp=(C_word)a,a+=2,tmp); /* chicken-status.scm:242: every */ t5=C_fast_retrieve(lf[93]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* map-loop240 in k1144 in main#gather-all-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1151(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_1151,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_1176,a[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: g246 */ 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);}}} /* k1982 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1984,2,av);} /* chicken-status.scm:237: exit */ t2=C_fast_retrieve(lf[53]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1381 in main#list-installed-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1383,2,av);} a=C_alloc(4); t2=C_a_i_minus(&a,2,t1,C_fix(2));{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=C_fix(2); C_quotient(4,av2);}} /* main#list-installed-eggs in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1385,3,av);} a=C_alloc(5); t3=C_i_check_list_2(t2,lf[41]); 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_1394,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_1394(t7,t1,t2);} /* f2297 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f2297(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f2297,2,av);} /* chicken-status.scm:154: exit */ t2=C_fast_retrieve(lf[53]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1267 in k1264 in main#list-installed-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1269,2,av);} if(C_truep(C_i_zerop(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(80); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* chicken-status.scm:98: min */ t2=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(80); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k1264 in main#list-installed-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 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_1266,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1269,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1280,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1286,tmp=(C_word)a,a+=2,tmp); /* chicken-status.scm:95: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(80); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k1488 in k1503 in for-each-loop356 in k1510 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 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_1490,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1494,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[3])){ t4=C_i_cadr(((C_word*)t0)[3]); /* chicken-status.scm:135: ->string */ t5=C_fast_retrieve(lf[38]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* chicken-status.scm:135: ->string */ t4=C_fast_retrieve(lf[38]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k1492 in k1488 in k1503 in for-each-loop356 in k1510 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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(6,c,2)))){ C_save_and_reclaim((void *)f_1494,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* chicken-status.scm:135: pp */ t3=C_fast_retrieve(lf[66]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1189 in main#gather-all-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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(0,c,4)))){ C_save_and_reclaim((void *)f_1191,2,av);} /* chicken-status.scm:81: make-pathname */ t2=C_fast_retrieve(lf[7]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[29]; av2[4]=lf[30]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* main#format-string in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1193(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_1193,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_1212,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:85: make-string */ t18=*((C_word*)lf[33]+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);}} /* k1362 in for-each-loop296 in k1344 in k1294 in main#list-installed-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1364,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1354(t3,((C_word*)t0)[4],t2);} /* k1465 in a1452 in main#list-installed-files in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 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_1467,2,av);} t2=C_i_assq(lf[50],t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_i_cdr(t2):C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2029 in k2010 in k2004 in k1995 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_2031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2031,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* chicken-status.scm:243: append */ t4=*((C_word*)lf[91]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop562 in k2010 in k2004 in k1995 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_2035(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_2035,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_mutate2(((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);}}} /* k1469 in a1452 in main#list-installed-files in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1471,2,av);} /* chicken-status.scm:124: setup-api#read-info */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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]=t1; tp(4,av2);}} /* k1294 in main#list-installed-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_1296,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1297,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1346,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:113: sort */ t5=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[43]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* g297 in k1294 in main#list-installed-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1297(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_1297,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1339,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1343,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:105: repo-path */ f_930(t4);} /* main#list-installed-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,2)))){ C_save_and_reclaim((void *)f_1292,3,av);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1296,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1383,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=*((C_word*)lf[44]+1); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1266,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:94: terminal-port? */ t8=C_fast_retrieve(lf[47]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=*((C_word*)lf[44]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* f2314 in k1995 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f2314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f2314,2,av);} /* chicken-status.scm:154: exit */ t2=C_fast_retrieve(lf[53]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1723 in map-loop435 in status in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1725,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_1700(t6,((C_word*)t0)[5],t5);} /* k1766 in map-loop462 in status in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1768,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_1743(t6,((C_word*)t0)[5],t5);} /* k983 in k980 in k977 in k971 in main#repo-path in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_985,2,av);} /* chicken-status.scm:52: make-pathname */ t2=C_fast_retrieve(lf[7]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[3],"main#\052prefix\052"); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k980 in k977 in k971 in main#repo-path in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_982,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_985,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:54: get-output-string */ t3=C_fast_retrieve(lf[8]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f2309 in k2010 in k2004 in k1995 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f2309(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f2309,2,av);} /* chicken-status.scm:154: exit */ t2=C_fast_retrieve(lf[53]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f2302 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f2302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f2302,2,av);} /* chicken-status.scm:154: exit */ t2=C_fast_retrieve(lf[53]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop435 in status in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1700(C_word t0,C_word 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_1700,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_1725,a[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_1692,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:182: irregex-quote */ 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);}}} /* k1337 in g297 in k1294 in main#list-installed-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 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_1339,2,av);} a=C_alloc(9); t2=C_i_assq(lf[35],t1); t3=t2; if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1311,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|3,a[1]=(C_word)f_1332,a[2]=t4,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:108: string-append */ t6=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; av2[3]=lf[40]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ /* chicken-status.scm:112: print */ t4=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k977 in k971 in main#repo-path in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_979,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_982,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_fudge(C_fix(42)); /* chicken-status.scm:54: ##sys#print */ t4=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop412 in k1608 in status in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1642(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_1642,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_1667,a[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:178: g418 */ 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);}}} /* k1330 in k1337 in g297 in k1294 in main#list-installed-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1332,2,av);} a=C_alloc(6); /* chicken-status.scm:108: format-string */ f_1193(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,2,C_SCHEME_FALSE,C_make_character(46)));} /* k971 in main#repo-path in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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(5,c,4)))){ C_save_and_reclaim((void *)f_973,2,av);} a=C_alloc(5); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[6]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_979,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-status.scm:54: ##sys#print */ t6=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[13]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* map-loop462 in status in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_fcall f_1743(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_1743,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_1768,a[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:184: g468 */ 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);}}} /* k1210 in main#format-string in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1212,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[32]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[32]+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[32]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[32]+1); av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=t1; tp(4,av2);}}} /* k1341 in g297 in k1294 in main#list-installed-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1343,2,av);} /* chicken-status.scm:105: setup-api#read-info */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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]=t1; tp(4,av2);}} /* k1344 in k1294 in main#list-installed-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1346(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1346,2,av);} a=C_alloc(6); t2=C_i_check_list_2(t1,lf[41]); 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_1354,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_1354(t6,((C_word*)t0)[3],t1);} /* k1174 in map-loop240 in k1144 in main#gather-all-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1176,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_1151(t6,((C_word*)t0)[5],t5);} /* k1788 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1790,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1793,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:195: status */ t3=((C_word*)t0)[2]; f_1603(t3,t2);} /* k1791 in k1788 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 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_1793,2,av);} a=C_alloc(15); 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_1798,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1803,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1816,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:196: ##sys#dynamic-wind */ t9=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1797 in k1791 in k1788 in k1570 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 *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_1798,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_retrieve2(lf[1],"main#\052host-extensions\052")); t3=C_mutate2(&lf[1] /* (set! main#*host-extensions* ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1419 in main#list-installed-files in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ 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 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_1421,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_1426,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_1426(t5,((C_word*)t0)[2],t1);} /* k1912 in k1905 in k1889 in k1842 in loop in k2131 in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1914,2,av);} /* chicken-status.scm:220: normalize-pathname */ t2=C_fast_retrieve(lf[80]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1185 in main#gather-all-extensions in k922 in k918 in k915 in k912 in k909 in k906 in k903 in k900 in k897 in k894 in k891 in k888 */ static void C_ccall f_1187(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1187,2,av);} /* chicken-status.scm:81: glob */ t2=C_fast_retrieve(lf[28]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[133] = { {"f_1918:chicken_2dstatus_2escm",(void*)f_1918}, {"f_997:chicken_2dstatus_2escm",(void*)f_997}, {"f_1453:chicken_2dstatus_2escm",(void*)f_1453}, {"f_1844:chicken_2dstatus_2escm",(void*)f_1844}, {"f_1324:chicken_2dstatus_2escm",(void*)f_1324}, {"f_1426:chicken_2dstatus_2escm",(void*)f_1426}, {"f_893:chicken_2dstatus_2escm",(void*)f_893}, {"f_896:chicken_2dstatus_2escm",(void*)f_896}, {"f_899:chicken_2dstatus_2escm",(void*)f_899}, {"f_890:chicken_2dstatus_2escm",(void*)f_890}, {"f_1436:chicken_2dstatus_2escm",(void*)f_1436}, {"f_1286:chicken_2dstatus_2escm",(void*)f_1286}, {"f_1280:chicken_2dstatus_2escm",(void*)f_1280}, {"f_1907:chicken_2dstatus_2escm",(void*)f_1907}, {"f_908:chicken_2dstatus_2escm",(void*)f_908}, {"f_905:chicken_2dstatus_2escm",(void*)f_905}, {"f_902:chicken_2dstatus_2escm",(void*)f_902}, {"f_1139:chicken_2dstatus_2escm",(void*)f_1139}, {"f_1559:chicken_2dstatus_2escm",(void*)f_1559}, {"f_1146:chicken_2dstatus_2escm",(void*)f_1146}, {"toplevel:chicken_2dstatus_2escm",(void*)C_toplevel}, {"f_1071:chicken_2dstatus_2escm",(void*)f_1071}, {"f_920:chicken_2dstatus_2escm",(void*)f_920}, {"f_924:chicken_2dstatus_2escm",(void*)f_924}, {"f_1520:chicken_2dstatus_2escm",(void*)f_1520}, {"f_1616:chicken_2dstatus_2escm",(void*)f_1616}, {"f_1111:chicken_2dstatus_2escm",(void*)f_1111}, {"f_1088:chicken_2dstatus_2escm",(void*)f_1088}, {"f_1610:chicken_2dstatus_2escm",(void*)f_1610}, {"f_911:chicken_2dstatus_2escm",(void*)f_911}, {"f_917:chicken_2dstatus_2escm",(void*)f_917}, {"f_914:chicken_2dstatus_2escm",(void*)f_914}, {"f_1123:chicken_2dstatus_2escm",(void*)f_1123}, {"f_1315:chicken_2dstatus_2escm",(void*)f_1315}, {"f_1319:chicken_2dstatus_2escm",(void*)f_1319}, {"f_1622:chicken_2dstatus_2escm",(void*)f_1622}, {"f_1311:chicken_2dstatus_2escm",(void*)f_1311}, {"f_947:chicken_2dstatus_2escm",(void*)f_947}, {"f_1823:chicken_2dstatus_2escm",(void*)f_1823}, {"f_2080:chicken_2dstatus_2escm",(void*)f_2080}, {"f_1816:chicken_2dstatus_2escm",(void*)f_1816}, {"f_930:chicken_2dstatus_2escm",(void*)f_930}, {"f_1891:chicken_2dstatus_2escm",(void*)f_1891}, {"f_1898:chicken_2dstatus_2escm",(void*)f_1898}, {"f_2072:chicken_2dstatus_2escm",(void*)f_2072}, {"f_1603:chicken_2dstatus_2escm",(void*)f_1603}, {"f_1803:chicken_2dstatus_2escm",(void*)f_1803}, {"f_1020:chicken_2dstatus_2escm",(void*)f_1020}, {"f_1572:chicken_2dstatus_2escm",(void*)f_1572}, {"f_963:chicken_2dstatus_2escm",(void*)f_963}, {"f_1575:chicken_2dstatus_2escm",(void*)f_1575}, {"f_1404:chicken_2dstatus_2escm",(void*)f_1404}, {"f_960:chicken_2dstatus_2escm",(void*)f_960}, {"f_1807:chicken_2dstatus_2escm",(void*)f_1807}, {"f_1354:chicken_2dstatus_2escm",(void*)f_1354}, {"f_1099:chicken_2dstatus_2escm",(void*)f_1099}, {"f_957:chicken_2dstatus_2escm",(void*)f_957}, {"f_1092:chicken_2dstatus_2escm",(void*)f_1092}, {"f_1417:chicken_2dstatus_2escm",(void*)f_1417}, {"f_951:chicken_2dstatus_2escm",(void*)f_951}, {"f_1025:chicken_2dstatus_2escm",(void*)f_1025}, {"f_1667:chicken_2dstatus_2escm",(void*)f_1667}, {"f_1451:chicken_2dstatus_2escm",(void*)f_1451}, {"f_1009:chicken_2dstatus_2escm",(void*)f_1009}, {"f_1003:chicken_2dstatus_2escm",(void*)f_1003}, {"f_1530:chicken_2dstatus_2escm",(void*)f_1530}, {"f_1814:chicken_2dstatus_2escm",(void*)f_1814}, {"f_1991:chicken_2dstatus_2escm",(void*)f_1991}, {"f_1505:chicken_2dstatus_2escm",(void*)f_1505}, {"f_1997:chicken_2dstatus_2escm",(void*)f_1997}, {"f_1509:chicken_2dstatus_2escm",(void*)f_1509}, {"f_1580:chicken_2dstatus_2escm",(void*)f_1580}, {"f_1598:chicken_2dstatus_2escm",(void*)f_1598}, {"f_2133:chicken_2dstatus_2escm",(void*)f_2133}, {"f_2012:chicken_2dstatus_2escm",(void*)f_2012}, {"f_1062:chicken_2dstatus_2escm",(void*)f_1062}, {"f_1593:chicken_2dstatus_2escm",(void*)f_1593}, {"f_2019:chicken_2dstatus_2escm",(void*)f_2019}, {"f_1512:chicken_2dstatus_2escm",(void*)f_1512}, {"f_1035:chicken_2dstatus_2escm",(void*)f_1035}, {"f_1037:chicken_2dstatus_2escm",(void*)f_1037}, {"f_1394:chicken_2dstatus_2escm",(void*)f_1394}, {"f_1101:chicken_2dstatus_2escm",(void*)f_1101}, {"f_1692:chicken_2dstatus_2escm",(void*)f_1692}, {"f_1013:chicken_2dstatus_2escm",(void*)f_1013}, {"f_2123:chicken_2dstatus_2escm",(void*)f_2123}, {"f_2126:chicken_2dstatus_2escm",(void*)f_2126}, {"f_2129:chicken_2dstatus_2escm",(void*)f_2129}, {"f_2006:chicken_2dstatus_2escm",(void*)f_2006}, {"f_1151:chicken_2dstatus_2escm",(void*)f_1151}, {"f_1984:chicken_2dstatus_2escm",(void*)f_1984}, {"f_1383:chicken_2dstatus_2escm",(void*)f_1383}, {"f_1385:chicken_2dstatus_2escm",(void*)f_1385}, {"f2297:chicken_2dstatus_2escm",(void*)f2297}, {"f_1269:chicken_2dstatus_2escm",(void*)f_1269}, {"f_1266:chicken_2dstatus_2escm",(void*)f_1266}, {"f_1490:chicken_2dstatus_2escm",(void*)f_1490}, {"f_1494:chicken_2dstatus_2escm",(void*)f_1494}, {"f_1191:chicken_2dstatus_2escm",(void*)f_1191}, {"f_1193:chicken_2dstatus_2escm",(void*)f_1193}, {"f_1364:chicken_2dstatus_2escm",(void*)f_1364}, {"f_1467:chicken_2dstatus_2escm",(void*)f_1467}, {"f_2031:chicken_2dstatus_2escm",(void*)f_2031}, {"f_2035:chicken_2dstatus_2escm",(void*)f_2035}, {"f_1471:chicken_2dstatus_2escm",(void*)f_1471}, {"f_1296:chicken_2dstatus_2escm",(void*)f_1296}, {"f_1297:chicken_2dstatus_2escm",(void*)f_1297}, {"f_1292:chicken_2dstatus_2escm",(void*)f_1292}, {"f2314:chicken_2dstatus_2escm",(void*)f2314}, {"f_1725:chicken_2dstatus_2escm",(void*)f_1725}, {"f_1768:chicken_2dstatus_2escm",(void*)f_1768}, {"f_985:chicken_2dstatus_2escm",(void*)f_985}, {"f_982:chicken_2dstatus_2escm",(void*)f_982}, {"f2309:chicken_2dstatus_2escm",(void*)f2309}, {"f2302:chicken_2dstatus_2escm",(void*)f2302}, {"f_1700:chicken_2dstatus_2escm",(void*)f_1700}, {"f_1339:chicken_2dstatus_2escm",(void*)f_1339}, {"f_979:chicken_2dstatus_2escm",(void*)f_979}, {"f_1642:chicken_2dstatus_2escm",(void*)f_1642}, {"f_1332:chicken_2dstatus_2escm",(void*)f_1332}, {"f_973:chicken_2dstatus_2escm",(void*)f_973}, {"f_1743:chicken_2dstatus_2escm",(void*)f_1743}, {"f_1212:chicken_2dstatus_2escm",(void*)f_1212}, {"f_1343:chicken_2dstatus_2escm",(void*)f_1343}, {"f_1346:chicken_2dstatus_2escm",(void*)f_1346}, {"f_1176:chicken_2dstatus_2escm",(void*)f_1176}, {"f_1790:chicken_2dstatus_2escm",(void*)f_1790}, {"f_1793:chicken_2dstatus_2escm",(void*)f_1793}, {"f_1798:chicken_2dstatus_2escm",(void*)f_1798}, {"f_1421:chicken_2dstatus_2escm",(void*)f_1421}, {"f_1914:chicken_2dstatus_2escm",(void*)f_1914}, {"f_1187:chicken_2dstatus_2escm",(void*)f_1187}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding nonexported module bindings: main#*cross-chicken* o|hiding nonexported module bindings: main#*host-extensions* o|hiding nonexported module bindings: main#*target-extensions* o|hiding nonexported module bindings: main#*prefix* o|hiding nonexported module bindings: main#*deploy* o|hiding nonexported module bindings: main#repo-path o|hiding nonexported module bindings: main#grep o|hiding nonexported module bindings: main#gather-extensions o|hiding nonexported module bindings: main#gather-eggs o|hiding nonexported module bindings: main#gather-all-extensions o|hiding nonexported module bindings: main#format-string o|hiding nonexported module bindings: main#get-terminal-width o|hiding nonexported module bindings: main#list-installed-extensions o|hiding nonexported module bindings: main#list-installed-eggs o|hiding nonexported module bindings: main#list-installed-files o|hiding nonexported module bindings: main#dump-installed-versions o|hiding nonexported module bindings: main#usage o|hiding nonexported module bindings: main#*short-options* o|hiding nonexported module bindings: main#main S|applied compiler syntax: S| for-each 4 S| map 6 S| sprintf 2 o|eliminated procedure checks: 39 o|specializations: o| 1 (> fixnum fixnum) o| 1 (char=? char char) o| 1 (string-ref string fixnum) o| 1 (positive? fixnum) o| 2 (string-length string) o| 1 (cddr (pair * pair)) o| 14 (string=? string string) o| 3 (current-error-port) o| 1 (current-output-port) o| 3 (string-append string string) o| 3 (##sys#check-list (or pair list) *) o| 11 (cdr pair) o| 2 (##sys#check-output-port * * *) (o e)|safe calls: 166 (o e)|assignments to immediate values: 3 o|inlining procedure: k932 o|propagated global variable: r9332134 main#*prefix* o|inlining procedure: k932 o|substituted constant variable: a953 o|substituted constant variable: a954 o|inlining procedure: k964 o|substituted constant variable: a975 o|substituted constant variable: a976 o|inlining procedure: k964 o|propagated global variable: g186187 irregex-search o|inlining procedure: k1039 o|inlining procedure: k1039 o|inlining procedure: k1103 o|inlining procedure: k1103 o|inlining procedure: k1116 o|inlining procedure: k1116 o|contracted procedure: "(chicken-status.scm:74) egg-name227" o|inlining procedure: k1079 o|inlining procedure: k1079 o|inlining procedure: k1153 o|inlining procedure: k1153 o|merged explicitly consed rest parameter: tmp268271 o|inlining procedure: k1213 o|inlining procedure: k1213 o|inlining procedure: k1261 o|substituted constant variable: default-width285 o|substituted constant variable: default-width285 o|inlining procedure: k1261 o|substituted constant variable: default-width285 o|propagated global variable: cop286 ##sys#standard-output o|inlining procedure: k1302 o|consed rest parameter at call site: "(chicken-status.scm:109) main#format-string" 3 o|substituted constant variable: a1320 o|consed rest parameter at call site: "(chicken-status.scm:108) main#format-string" 3 o|inlining procedure: k1302 o|inlining procedure: k1356 o|inlining procedure: k1356 o|inlining procedure: k1396 o|inlining procedure: k1396 o|inlining procedure: k1428 o|inlining procedure: k1428 o|inlining procedure: k1458 o|inlining procedure: k1458 o|contracted procedure: "(chicken-status.scm:248) main#main" o|inlining procedure: k1561 o|inlining procedure: k1585 o|inlining procedure: k1623 o|inlining procedure: k1623 o|inlining procedure: k1638 o|propagated global variable: r16392172 main#list-installed-files o|inlining procedure: k1638 o|propagated global variable: r16392173 main#list-installed-extensions o|inlining procedure: k1644 o|inlining procedure: k1644 o|inlining procedure: k1678 o|inlining procedure: k1702 o|contracted procedure: "(chicken-status.scm:181) g441450" o|inlining procedure: k1702 o|inlining procedure: k1678 o|inlining procedure: k1745 o|inlining procedure: k1745 o|inlining procedure: k1585 o|contracted procedure: "(chicken-status.scm:192) main#dump-installed-versions" o|inlining procedure: k1522 o|contracted procedure: "(chicken-status.scm:131) g357364" o|inlining procedure: k1496 o|inlining procedure: k1496 o|inlining procedure: k1522 o|inlining procedure: k1782 o|inlining procedure: k1782 o|inlining procedure: k1830 o|inlining procedure: k1830 o|inlining procedure: k1561 o|substituted constant variable: a1852 o|inlining procedure: k1848 o|inlining procedure: k1848 o|substituted constant variable: a1863 o|substituted constant variable: a1873 o|inlining procedure: k1870 o|inlining procedure: k1870 o|substituted constant variable: a1885 o|substituted constant variable: a1931 o|inlining procedure: k1927 o|inlining procedure: k1927 o|substituted constant variable: a1942 o|substituted constant variable: a1953 o|inlining procedure: k1949 o|inlining procedure: k1949 o|substituted constant variable: a1967 o|substituted constant variable: a1981 o|inlining procedure: k1977 o|inlining procedure: k1977 o|inlining procedure: k1998 o|inlining procedure: k2037 o|contracted procedure: "(chicken-status.scm:243) g568577" o|inlining procedure: k2037 o|substituted constant variable: main#*short-options* o|inlining procedure: k1998 o|substituted constant variable: a2088 o|substituted constant variable: a2106 o|substituted constant variable: a2103 o|substituted constant variable: a2109 o|substituted constant variable: a2111 o|substituted constant variable: a2113 o|substituted constant variable: a2115 o|inlining procedure: k2116 o|inlining procedure: k2116 o|substituted constant variable: a2120 o|replaced variables: 231 o|removed binding forms: 104 o|substituted constant variable: r10802151 o|contracted procedure: "(chicken-status.scm:102) main#get-terminal-width" o|substituted constant variable: r12622157 o|substituted constant variable: r14592167 o|removed side-effect free assignment to unused variable: main#*short-options* o|inlining procedure: k1632 o|propagated global variable: r16332236 main#list-installed-eggs o|propagated global variable: r16332236 main#list-installed-eggs o|inlining procedure: k1632 o|propagated global variable: r16332242 main#list-installed-files o|propagated global variable: r16332242 main#list-installed-files o|inlining procedure: k1632 o|propagated global variable: r16332248 main#list-installed-extensions o|propagated global variable: r16332248 main#list-installed-extensions o|substituted constant variable: r14972186 o|substituted constant variable: r14972186 o|replaced variables: 3 o|removed binding forms: 259 o|inlining procedure: "(chicken-status.scm:204) main#usage" o|inlining procedure: "(chicken-status.scm:215) main#usage" o|inlining procedure: "(chicken-status.scm:244) main#usage" o|inlining procedure: "(chicken-status.scm:245) main#usage" o|replaced variables: 5 o|removed binding forms: 14 o|removed side-effect free assignment to unused variable: main#usage o|substituted constant variable: code3752295 o|substituted constant variable: code3752300 o|substituted constant variable: code3752307 o|substituted constant variable: code3752312 o|removed binding forms: 5 o|removed binding forms: 5 o|simplifications: ((if . 13) (##core#call . 108)) o| call simplifications: o| string=? o| ##sys#size 2 o| fx> o| string->list o| memq o| string o| list o| ##sys#call-with-values o| list-ref o| zero? o| - o| quotient o| cdr 3 o| string-length o| fx- o| fxmax o| null? 8 o| car 4 o| assq 4 o| cadr 4 o| member o| ##sys#check-list 7 o| pair? 11 o| cons 14 o| ##sys#setslot 6 o| ##sys#slot 26 o| not 3 o| ##sys#fudge o|contracted procedure: k938 o|contracted procedure: k987 o|contracted procedure: k1022 o|contracted procedure: k1030 o|contracted procedure: k1042 o|contracted procedure: k1045 o|contracted procedure: k1048 o|contracted procedure: k1056 o|contracted procedure: k1064 o|contracted procedure: k1106 o|contracted procedure: k1116 o|contracted procedure: k1131 o|contracted procedure: k1135 o|contracted procedure: k1076 o|contracted procedure: k1141 o|contracted procedure: k1156 o|contracted procedure: k1159 o|contracted procedure: k1162 o|contracted procedure: k1170 o|contracted procedure: k1178 o|contracted procedure: k1252 o|contracted procedure: k1195 o|contracted procedure: k1246 o|contracted procedure: k1198 o|contracted procedure: k1240 o|contracted procedure: k1201 o|contracted procedure: k1234 o|contracted procedure: k1204 o|contracted procedure: k1207 o|contracted procedure: k1231 o|contracted procedure: k1227 o|contracted procedure: k1299 o|contracted procedure: k1326 o|contracted procedure: k1347 o|contracted procedure: k1359 o|contracted procedure: k1369 o|contracted procedure: k1373 o|contracted procedure: k1377 o|contracted procedure: k1273 o|contracted procedure: k1387 o|contracted procedure: k1399 o|contracted procedure: k1409 o|contracted procedure: k1413 o|contracted procedure: k1431 o|contracted procedure: k1441 o|contracted procedure: k1445 o|contracted procedure: k1455 o|contracted procedure: k1564 o|contracted procedure: k1588 o|contracted procedure: k1605 o|contracted procedure: k1611 o|contracted procedure: k1617 o|contracted procedure: k1626 o|contracted procedure: k1647 o|contracted procedure: k1650 o|contracted procedure: k1653 o|contracted procedure: k1661 o|contracted procedure: k1669 o|contracted procedure: k1675 o|contracted procedure: k1681 o|contracted procedure: k1693 o|contracted procedure: k1705 o|contracted procedure: k1708 o|contracted procedure: k1711 o|contracted procedure: k1719 o|contracted procedure: k1727 o|contracted procedure: k1733 o|contracted procedure: k1736 o|contracted procedure: k1748 o|contracted procedure: k1751 o|contracted procedure: k1754 o|contracted procedure: k1762 o|contracted procedure: k1770 o|contracted procedure: k1513 o|contracted procedure: k1525 o|contracted procedure: k1535 o|contracted procedure: k1539 o|contracted procedure: k1477 o|contracted procedure: k1484 o|contracted procedure: k1496 o|contracted procedure: k1785 o|contracted procedure: k1833 o|contracted procedure: k1839 o|contracted procedure: k1886 o|contracted procedure: k1893 o|contracted procedure: k1919 o|contracted procedure: k1954 o|contracted procedure: k1968 o|contracted procedure: k2085 o|contracted procedure: k2001 o|contracted procedure: k2021 o|contracted procedure: k2040 o|contracted procedure: k2062 o|contracted procedure: k2058 o|contracted procedure: k2043 o|contracted procedure: k2046 o|contracted procedure: k2054 o|contracted procedure: k2096 o|contracted procedure: k2100 o|simplifications: ((let . 17)) o|removed binding forms: 99 o|replaced variables: 36 o|removed binding forms: 16 o|customizable procedures: (k1842 k1995 map-loop562587 loop384 k1570 status408 for-each-loop356369 map-loop462479 map-loop435453 map-loop412486 for-each-loop336348 for-each-loop317327 g297304 for-each-loop296308 main#format-string map-loop240257 main#repo-path k1121 loop230 main#gather-all-extensions g199208 map-loop193218) o|calls to known targets: 68 o|identified direct recursive calls: f_2035 1 o|fast box initializations: 12 o|fast global references: 42 o|fast global assignments: 20 o|dropping unused closure argument: f_1139 o|dropping unused closure argument: f_930 o|dropping unused closure argument: f_1193 */ /* end of file */ chicken-4.12.0/utils.c0000644000175000017500000034666413052306232014333 0ustar sjamaansjamaan/* Generated from utils.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:16 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: utils.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file utils.c unit: utils */ #include "chicken.h" #if defined(_WIN32) && !defined(__CYGWIN__) # include # define C_HAS_MESSAGE_BOX 1 static int C_confirmation_dialog(char *msg, char *caption, int def, int abort) { int d = 0, r; int t = abort ? MB_YESNOCANCEL : MB_YESNO; switch(def) { case 0: d = MB_DEFBUTTON1; break; case 1: d = MB_DEFBUTTON2; break; case 2: d = MB_DEFBUTTON3; } r = MessageBox(NULL, msg, caption, t | MB_ICONQUESTION | d); switch(r) { case IDYES: return 1; case IDNO: return 0; default: return -1; } } #else # define C_HAS_MESSAGE_BOX 0 static int C_confirmation_dialog(char *msg, char *caption, int def, int abort) { return -1; } #endif 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_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_srfi_2d13_toplevel) C_externimport void C_ccall C_srfi_2d13_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_files_toplevel) C_externimport void C_ccall C_files_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; static C_TLS C_word lf[89]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,25),40,115,121,115,116,101,109,42,32,102,115,116,114,54,52,32,46,32,97,114,103,115,54,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,6),40,97,54,49,48,41,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,19),40,114,101,97,100,45,97,108,108,32,46,32,102,105,108,101,54,57,41,0,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,11),40,103,49,48,50,32,99,49,49,51,41,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,57,54,32,103,49,48,56,49,49,57,41,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,20),40,113,115,32,115,116,114,56,53,32,46,32,116,109,112,56,52,56,54,41,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,6),40,97,56,51,57,41,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,12),40,97,56,51,51,32,101,120,50,48,48,41,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,9),40,116,109,112,49,53,52,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,6),40,97,56,54,49,41,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,20),40,116,109,112,50,53,52,56,32,97,114,103,115,49,57,52,50,48,51,41,0,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,6),40,97,56,52,56,41,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,14),40,97,56,50,55,32,107,49,57,51,49,57,57,41,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,6),40,97,56,57,56,41,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,12),40,97,56,57,50,32,101,120,49,56,55,41,0,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,9),40,116,109,112,49,53,52,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,6),40,97,57,49,52,41,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,20),40,116,109,112,50,53,52,54,32,97,114,103,115,49,56,49,49,56,56,41,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,6),40,97,57,48,49,41,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,14),40,97,56,56,54,32,107,49,56,48,49,56,54,41,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,6),40,97,56,55,55,41,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,6),40,97,57,56,48,41,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,38),40,99,111,109,112,105,108,101,45,102,105,108,101,32,102,105,108,101,110,97,109,101,49,51,54,32,46,32,116,109,112,49,51,53,49,51,55,41,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,19),40,102,95,49,48,50,54,32,103,50,50,54,50,50,55,50,51,48,41,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,36),40,115,99,97,110,45,105,110,112,117,116,45,108,105,110,101,115,32,114,120,50,49,49,32,46,32,116,109,112,50,49,48,50,49,50,41,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,11),40,103,101,116,45,105,110,112,117,116,41,0,0,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,7),40,97,49,50,54,53,41,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,31),40,121,101,115,45,111,114,45,110,111,63,32,115,116,114,50,53,56,32,46,32,116,109,112,50,53,55,50,53,57,41,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}; /* from k1049 */ C_regparm static C_word C_fcall stub244(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; char * t0=(char * )C_string_or_null(C_a0); char * t1=(char * )C_string_or_null(C_a1); int t2=(int )C_unfix(C_a2); int t3=(int )C_truep(C_a3); C_r=C_fix((C_word)C_confirmation_dialog(t0,t1,t2,t3)); return C_r;} C_noret_decl(f_904) static void C_fcall f_904(C_word t0,C_word t1) C_noret; C_noret_decl(f_902) static void C_ccall f_902(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_1223) static void C_ccall f_1223(C_word c,C_word *av) C_noret; C_noret_decl(f_1226) static void C_ccall f_1226(C_word c,C_word *av) C_noret; C_noret_decl(f_1229) static void C_ccall f_1229(C_word c,C_word *av) C_noret; C_noret_decl(f_1009) static void C_ccall f_1009(C_word c,C_word *av) C_noret; C_noret_decl(f_1000) static void C_ccall f_1000(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_893) static void C_ccall f_893(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_996) static void C_fcall f_996(C_word t0,C_word t1) C_noret; C_noret_decl(f_991) static void C_fcall f_991(C_word t0,C_word t1) 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_882) static void C_ccall f_882(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_814) static void C_ccall f_814(C_word c,C_word *av) C_noret; C_noret_decl(f_961) static void C_ccall f_961(C_word c,C_word *av) C_noret; C_noret_decl(f_1235) static void C_ccall f_1235(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_915) static void C_ccall f_915(C_word c,C_word *av) C_noret; C_noret_decl(f_805) static void C_ccall f_805(C_word c,C_word *av) 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_1238) static void C_ccall f_1238(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_834) static void C_ccall f_834(C_word c,C_word *av) 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_799) static void C_ccall f_799(C_word c,C_word *av) C_noret; C_noret_decl(f_796) static void C_ccall f_796(C_word c,C_word *av) C_noret; C_noret_decl(f_793) static void C_ccall f_793(C_word c,C_word *av) C_noret; C_noret_decl(f_790) static void C_ccall f_790(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_823) static void C_ccall f_823(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_787) static void C_ccall f_787(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_784) static void C_ccall f_784(C_word c,C_word *av) C_noret; C_noret_decl(f_1143) static void C_ccall f_1143(C_word c,C_word *av) C_noret; C_noret_decl(f_1146) static void C_ccall f_1146(C_word c,C_word *av) C_noret; C_noret_decl(f_1149) static void C_fcall f_1149(C_word t0,C_word t1) C_noret; C_noret_decl(f_856) static void C_fcall f_856(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_851) static void C_fcall f_851(C_word t0,C_word t1) C_noret; C_noret_decl(f_855) static void C_ccall f_855(C_word c,C_word *av) C_noret; C_noret_decl(f_778) static void C_ccall f_778(C_word c,C_word *av) C_noret; C_noret_decl(f_775) static void C_ccall f_775(C_word c,C_word *av) C_noret; C_noret_decl(f_772) static void C_ccall f_772(C_word c,C_word *av) C_noret; C_noret_decl(f_849) static void C_ccall f_849(C_word c,C_word *av) C_noret; C_noret_decl(f_704) static void C_ccall f_704(C_word c,C_word *av) C_noret; C_noret_decl(f_840) static void C_ccall f_840(C_word c,C_word *av) C_noret; C_noret_decl(f_1173) static void C_ccall f_1173(C_word c,C_word *av) C_noret; C_noret_decl(f_844) static void C_ccall f_844(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_1185) static void C_ccall f_1185(C_word c,C_word *av) C_noret; C_noret_decl(f_873) static void C_ccall f_873(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_623) static void C_ccall f_623(C_word c,C_word *av) C_noret; C_noret_decl(f_627) static void C_ccall f_627(C_word c,C_word *av) C_noret; C_noret_decl(f_766) static void C_ccall f_766(C_word c,C_word *av) C_noret; C_noret_decl(f_1194) static void C_ccall f_1194(C_word c,C_word *av) C_noret; C_noret_decl(f_760) static void C_ccall f_760(C_word c,C_word *av) C_noret; C_noret_decl(f_862) static void C_ccall f_862(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_581) static void C_ccall f_581(C_word c,C_word *av) C_noret; C_noret_decl(C_utils_toplevel) C_externexport void C_ccall C_utils_toplevel(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_679) static void C_fcall f_679(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_677) static void C_ccall f_677(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_578) static void C_ccall f_578(C_word c,C_word *av) C_noret; C_noret_decl(f_674) static void C_ccall f_674(C_word c,C_word *av) C_noret; C_noret_decl(f_574) static void C_ccall f_574(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_1139) static void C_fcall f_1139(C_word t0,C_word t1) C_noret; C_noret_decl(f_1134) static void C_ccall f_1134(C_word c,C_word *av) C_noret; C_noret_decl(f_748) static void C_ccall f_748(C_word c,C_word *av) C_noret; C_noret_decl(f_569) static void C_ccall f_569(C_word c,C_word *av) C_noret; C_noret_decl(f_566) static void C_ccall f_566(C_word c,C_word *av) 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_560) static void C_ccall f_560(C_word c,C_word *av) C_noret; C_noret_decl(f_734) static void C_ccall f_734(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_738) static void C_ccall f_738(C_word c,C_word *av) C_noret; C_noret_decl(f_737) static void C_ccall f_737(C_word c,C_word *av) C_noret; C_noret_decl(f_557) static void C_ccall f_557(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_1079) static void C_fcall f_1079(C_word t0,C_word t1) C_noret; C_noret_decl(f_1076) static void C_ccall f_1076(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_1081) static void C_fcall f_1081(C_word t0,C_word t1) 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_653) static void C_fcall f_653(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1112) static void C_fcall f_1112(C_word t0,C_word t1) 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_644) static void C_ccall f_644(C_word c,C_word *av) C_noret; C_noret_decl(f_1066) static void C_ccall f_1066(C_word c,C_word *av) C_noret; C_noret_decl(f_950) static void C_ccall f_950(C_word c,C_word *av) C_noret; C_noret_decl(f_954) static void C_ccall f_954(C_word c,C_word *av) C_noret; C_noret_decl(f_611) static void C_ccall f_611(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_1025) static void C_ccall f_1025(C_word c,C_word *av) C_noret; C_noret_decl(f_1026) static void C_ccall f_1026(C_word c,C_word *av) C_noret; C_noret_decl(f_984) static void C_ccall f_984(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_1043) static void C_ccall f_1043(C_word c,C_word *av) C_noret; C_noret_decl(f_1047) static void C_ccall f_1047(C_word c,C_word *av) C_noret; C_noret_decl(f_603) static void C_ccall f_603(C_word c,C_word *av) C_noret; C_noret_decl(trf_904) static void C_ccall trf_904(C_word c,C_word *av) C_noret; static void C_ccall trf_904(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_904(t0,t1);} 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_996) static void C_ccall trf_996(C_word c,C_word *av) C_noret; static void C_ccall trf_996(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_996(t0,t1);} C_noret_decl(trf_991) static void C_ccall trf_991(C_word c,C_word *av) C_noret; static void C_ccall trf_991(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_991(t0,t1);} C_noret_decl(trf_1149) static void C_ccall trf_1149(C_word c,C_word *av) C_noret; static void C_ccall trf_1149(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1149(t0,t1);} C_noret_decl(trf_856) static void C_ccall trf_856(C_word c,C_word *av) C_noret; static void C_ccall trf_856(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_856(t0,t1,t2);} C_noret_decl(trf_851) static void C_ccall trf_851(C_word c,C_word *av) C_noret; static void C_ccall trf_851(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_851(t0,t1);} C_noret_decl(trf_679) static void C_ccall trf_679(C_word c,C_word *av) C_noret; static void C_ccall trf_679(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_679(t0,t1,t2);} C_noret_decl(trf_1139) static void C_ccall trf_1139(C_word c,C_word *av) C_noret; static void C_ccall trf_1139(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1139(t0,t1);} C_noret_decl(trf_1079) static void C_ccall trf_1079(C_word c,C_word *av) C_noret; static void C_ccall trf_1079(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1079(t0,t1);} C_noret_decl(trf_1081) static void C_ccall trf_1081(C_word c,C_word *av) C_noret; static void C_ccall trf_1081(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1081(t0,t1);} C_noret_decl(trf_653) static void C_ccall trf_653(C_word c,C_word *av) C_noret; static void C_ccall trf_653(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_653(t0,t1,t2);} C_noret_decl(trf_1112) static void C_ccall trf_1112(C_word c,C_word *av) C_noret; static void C_ccall trf_1112(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1112(t0,t1);} /* tmp1545 in a901 in a886 in a877 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in ... */ static void C_fcall f_904(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_904,2,t0,t1);} /* utils.scm:102: delete-file* */ t2=*((C_word*)lf[29]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a901 in a886 in a877 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in ... */ 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 *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_902,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_904,a[2]=((C_word*)t0)[2],a[3]=((C_word)li15),tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_909,a[2]=((C_word*)t0)[3],a[3]=((C_word)li17),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_926,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* tmp1545 */ t5=t2; f_904(t5,t4);} /* tmp2546 in a901 in a886 in a877 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in ... */ static void C_fcall f_909(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_909,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_915,a[2]=t2,a[3]=((C_word)li16),tmp=(C_word)a,a+=4,tmp); /* utils.scm:101: k180 */ 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);}} /* k1221 in loop in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_1223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1223,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1226,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* utils.scm:188: ##sys#print */ t3=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1224 in k1221 in loop in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_1226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1226,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1229,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* utils.scm:188: ##sys#print */ t3=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[81]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k1227 in k1224 in k1221 in loop in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_1229(C_word c,C_word *av){ C_word tmp; C_word t0=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_1229,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1232,a[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])){ /* utils.scm:188: ##sys#print */ t3=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[79]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ /* utils.scm:188: ##sys#print */ t3=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[80]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k1007 in k998 in loop in k989 in scan-input-lines in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1009,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* utils.scm:125: loop */ t2=((C_word*)((C_word*)t0)[3])[1]; f_996(t2,((C_word*)t0)[2]);}} /* k998 in loop in k989 in scan-input-lines in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_1000(C_word c,C_word *av){ C_word tmp; C_word t0=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_1000,2,av);} a=C_alloc(4); if(C_truep(C_eofp(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1009,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* utils.scm:124: rx */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* a898 in a892 in a886 in a877 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in ... */ 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 *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_899,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a892 in a886 in a877 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in ... */ 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=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_893,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_899,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp); /* utils.scm:101: k180 */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k936 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_938,2,av);} /* utils.scm:87: ##sys#print */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in k989 in scan-input-lines in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_fcall f_996(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_996,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1000,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* utils.scm:122: read-line */ t3=*((C_word*)lf[53]+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);}} /* k989 in scan-input-lines in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_fcall f_991(C_word 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_991,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_996,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word)li23),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_996(t6,((C_word*)t0)[3]);} /* a886 in a877 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in ... */ 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=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_887,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_893,a[2]=t2,a[3]=((C_word)li14),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_902,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li18),tmp=(C_word)a,a+=5,tmp); /* utils.scm:101: with-exception-handler */ t5=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k880 in a877 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_882,2,av);} /* utils.scm:101: g184 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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 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_969,2,av);} a=C_alloc(12); t2=C_eqp(t1,lf[12]); t3=t2; t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_766,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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); /* utils.scm:87: open-output-string */ t5=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k812 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in ... */ static void C_ccall f_814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_814,2,av);} a=C_alloc(8); if(C_truep(((C_word*)t0)[2])){ t2=(C_truep(((C_word*)t0)[3])?((C_word*)t0)[3]:((C_word*)t0)[4]); t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_823,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_828,a[2]=t3,a[3]=((C_word*)t0)[6],a[4]=((C_word)li12),tmp=(C_word)a,a+=5,tmp); /* utils.scm:104: call-with-current-continuation */ t6=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k959 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_961,2,av);} /* utils.scm:87: ##sys#print */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1233 in k1230 in k1227 in k1224 in k1221 in loop in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_1235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_1235,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1238,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ t3=*((C_word*)lf[70]+1); t4=*((C_word*)lf[70]+1); t5=C_i_check_port_2(*((C_word*)lf[70]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[71]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1247,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* utils.scm:189: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[40]+1); av2[1]=t6; av2[2]=C_make_character(91); av2[3]=*((C_word*)lf[70]+1); tp(4,av2);}} else{ /* utils.scm:190: flush-output */ t3=*((C_word*)lf[76]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k1230 in k1227 in k1224 in k1221 in loop in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_1232,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1235,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* utils.scm:188: ##sys#print */ t3=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[78]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a914 in tmp2546 in a901 in a886 in a877 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in ... */ 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); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_915,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in ... */ static void C_ccall f_805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_805,2,av);} a=C_alloc(11); t2=C_eqp(t1,C_fix(0)); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_814,a[2]=((C_word*)t0)[2],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)[3])){ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_814(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_878,a[2]=((C_word*)t0)[4],a[3]=((C_word)li20),tmp=(C_word)a,a+=4,tmp); /* utils.scm:100: on-exit */ t5=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_802,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_805,a[2]=((C_word*)t0)[2],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); /* utils.scm:97: system */ t3=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1236 in k1233 in k1230 in k1227 in k1224 in k1221 in loop in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_1238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1238,2,av);} /* utils.scm:190: flush-output */ t2=*((C_word*)lf[76]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k944 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_946,2,av);} /* utils.scm:87: ##sys#print */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a833 in a827 in k812 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in ... */ static void C_ccall f_834(C_word c,C_word *av){ C_word tmp; C_word 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_834,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_840,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li6),tmp=(C_word)a,a+=5,tmp); /* utils.scm:104: k193 */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k1245 in k1233 in k1230 in k1227 in k1224 in k1221 in loop in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_1247,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1250,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* utils.scm:189: ##sys#print */ t3=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in ... */ static void C_ccall f_799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_799,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_802,a[2]=((C_word*)t0)[2],a[3]=((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); if(C_truep(((C_word*)t0)[7])){ /* utils.scm:96: print */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[34]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_802(2,av2);}}} /* k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in ... */ static void C_ccall f_796(C_word c,C_word *av){ C_word tmp; C_word t0=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_796,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_799,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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); /* utils.scm:87: get-output-string */ t3=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in ... */ static void C_ccall f_793(C_word c,C_word *av){ C_word tmp; C_word t0=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_793,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_796,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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])){ /* utils.scm:87: ##sys#print */ t3=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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)[10]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ /* utils.scm:87: ##sys#print */ t3=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[38]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in ... */ static void C_ccall f_790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_790,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_793,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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|3,a[1]=(C_word)f_938,a[2]=t2,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[3])){ /* utils.scm:94: qs */ t4=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ /* utils.scm:94: qs */ t4=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k977 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_979,2,av);} /* utils.scm:84: file-exists? */ t2=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k821 in k812 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in ... */ static void C_ccall f_823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_823,2,av);} /* utils.scm:104: g197 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a827 in k812 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in ... */ 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=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(11,c,3)))){ C_save_and_reclaim((void *)f_828,3,av);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_834,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li7),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_849,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li11),tmp=(C_word)a,a+=6,tmp); /* utils.scm:104: with-exception-handler */ t5=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_787,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_790,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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); /* utils.scm:87: ##sys#print */ t3=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[39]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_781,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_784,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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); /* utils.scm:87: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[40]+1); av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[10]; tp(4,av2);}} /* k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_784,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|10,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]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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|3,a[1]=(C_word)f_946,a[2]=t2,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp); /* utils.scm:93: qs */ t4=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1141 in loop in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_1143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1143,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1146,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* utils.scm:191: get-input */ t3=((C_word*)t0)[6]; f_1081(t3,t2);} /* k1144 in k1141 in loop in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_1146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1146,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_1149,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_eofp(((C_word*)t3)[1]))){ t5=C_set_block_item(t3,0,lf[74]); t6=t4; f_1149(t6,t5);} else{ if(C_truep(((C_word*)t0)[5])){ if(C_truep(C_i_string_equal_p(lf[75],((C_word*)t3)[1]))){ t5=C_set_block_item(t3,0,((C_word*)t0)[5]); t6=t4; f_1149(t6,t5);} else{ t5=C_SCHEME_UNDEFINED; t6=t4; f_1149(t6,t5);}} else{ t5=C_SCHEME_UNDEFINED; t6=t4; f_1149(t6,t5);}}} /* k1147 in k1144 in k1141 in loop in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_fcall f_1149(C_word t0,C_word t1){ C_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,3)))){ C_save_and_reclaim_args((void *)trf_1149,2,t0,t1);} a=C_alloc(8); if(C_truep(C_i_string_ci_equal_p(lf[67],((C_word*)((C_word*)t0)[2])[1]))){ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_string_ci_equal_p(lf[68],((C_word*)((C_word*)t0)[2])[1]))){ 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);}} else{ t2=(C_truep(((C_word*)t0)[4])?C_i_string_ci_equal_p(lf[69],((C_word*)((C_word*)t0)[2])[1]):C_SCHEME_FALSE); if(C_truep(t2)){ /* utils.scm:196: abort */ t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1173,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ t4=*((C_word*)lf[70]+1); t5=*((C_word*)lf[70]+1); t6=C_i_check_port_2(*((C_word*)lf[70]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[71]); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1182,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* utils.scm:199: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[40]+1); av2[1]=t7; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[70]+1); tp(4,av2);}} else{ t4=*((C_word*)lf[70]+1); t5=*((C_word*)lf[70]+1); t6=C_i_check_port_2(*((C_word*)lf[70]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[71]); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1194,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* utils.scm:200: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[40]+1); av2[1]=t7; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[70]+1); tp(4,av2);}}}}}} /* tmp2548 in a848 in a827 in k812 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in ... */ static void C_fcall f_856(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_856,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_862,a[2]=t2,a[3]=((C_word)li9),tmp=(C_word)a,a+=4,tmp); /* utils.scm:104: k193 */ 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);}} /* tmp1547 in a848 in a827 in k812 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in ... */ static void C_fcall f_851(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_851,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_855,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* utils.scm:109: load-file */ t3=((C_word*)t0)[3];{ 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);}} /* k853 in tmp1547 in a848 in a827 in k812 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in ... */ static void C_ccall f_855(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_855,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_778,2,av);} a=C_alloc(19); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_781,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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_950,a[2]=t2,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_954,a[2]=t3,tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[12])){ /* utils.scm:90: string-intersperse */ t5=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* utils.scm:92: compile-file-options */ t5=*((C_word*)lf[21]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_775(C_word c,C_word *av){ C_word tmp; C_word t0=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_775,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_778,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* utils.scm:87: ##sys#print */ t3=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[42]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_772,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_775,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_961,a[2]=t2,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp); /* utils.scm:89: qs */ t4=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a848 in a827 in k812 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in ... */ static void C_ccall f_849(C_word c,C_word *av){ C_word tmp; C_word t0=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(13,c,3)))){ C_save_and_reclaim((void *)f_849,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_851,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li8),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_856,a[2]=((C_word*)t0)[4],a[3]=((C_word)li10),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_873,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* tmp1547 */ t5=t2; f_851(t5,t4);} /* k702 in map-loop96 in k672 in k625 in qs in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_704,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_679(t6,((C_word*)t0)[5],t5);} /* a839 in a833 in a827 in k812 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in ... */ static void C_ccall f_840(C_word c,C_word *av){ 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_840,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_844,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* utils.scm:107: delete-file* */ t3=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1171 in k1147 in k1144 in k1141 in loop in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_1173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1173,2,av);} /* utils.scm:201: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1139(t2,((C_word*)t0)[3]);} /* k842 in a839 in a833 in a827 in k812 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in ... */ static void C_ccall f_844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_844,2,av);} /* utils.scm:108: abort */ t2=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a877 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in ... */ 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 t4; 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_878,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_882,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_887,a[2]=((C_word*)t0)[2],a[3]=((C_word)li19),tmp=(C_word)a,a+=4,tmp); /* utils.scm:101: call-with-current-continuation */ t4=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1183 in k1180 in k1147 in k1144 in k1141 in loop in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_1185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1185,2,av);} /* utils.scm:199: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[40]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k871 in a848 in a827 in k812 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in ... */ static void C_ccall f_873(C_word c,C_word *av){ C_word tmp; 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_873,2,av);} a=C_alloc(3); /* tmp2548 */ t2=((C_word*)t0)[2]; f_856(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* k1180 in k1147 in k1144 in k1141 in loop in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_1182,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1185,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* utils.scm:199: ##sys#print */ t3=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[72]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* qs in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_623(C_word c,C_word *av){ C_word tmp; C_word 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_623,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_627,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ /* utils.scm:60: build-platform */ t5=*((C_word*)lf[20]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_car(t3); f_627(2,av2);}}} /* k625 in qs in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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(24,c,3)))){ C_save_and_reclaim((void *)f_627,2,av);} a=C_alloc(24); t2=C_eqp(t1,lf[12]); t3=(C_truep(t2)?C_make_character(34):C_make_character(39)); t4=t3; t5=C_eqp(t1,lf[12]); t6=(C_truep(t5)?lf[13]:lf[14]); t7=t6; t8=C_a_i_string(&a,1,t4); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_644,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t9,tmp=(C_word)a,a+=5,tmp); 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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_653,a[2]=t4,a[3]=t7,a[4]=((C_word*)t0)[3],a[5]=((C_word)li3),tmp=(C_word)a,a+=6,tmp); t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_674,a[2]=t10,a[3]=t13,a[4]=t15,a[5]=t14,tmp=(C_word)a,a+=6,tmp); /* string->list */ t17=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t17; av2[1]=t16; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t17+1)))(3,av2);}} /* k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_766,2,av);} a=C_alloc(14); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[4]); t5=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_772,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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]=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_word*)t0)[8])){ /* utils.scm:87: ##sys#print */ t6=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[43]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ /* utils.scm:87: ##sys#print */ t6=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[44]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k1192 in k1147 in k1144 in k1141 in loop in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_1194(C_word c,C_word *av){ C_word tmp; C_word t0=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_1194,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1197,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* utils.scm:200: ##sys#print */ t3=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[73]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_760,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_969,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); /* utils.scm:86: build-platform */ t4=*((C_word*)lf[20]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a861 in tmp2548 in a848 in a827 in k812 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in ... */ static void C_ccall f_862(C_word c,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_862,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k1195 in k1192 in k1147 in k1144 in k1141 in loop in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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,3)))){ C_save_and_reclaim((void *)f_1197,2,av);} /* utils.scm:200: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[40]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k579 in k576 in system* in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_581(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_581,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* utils.scm:46: ##sys#error */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[2]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_utils_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("utils_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_utils_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(405))){ C_save(t1); C_rereclaim2(405*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,89); lf[0]=C_h_intern(&lf[0],7,"system\052"); lf[1]=C_h_intern(&lf[1],9,"\003syserror"); lf[2]=C_decode_literal(C_heaptop,"\376B\000\0003shell invocation failed with non-zero return status"); lf[3]=C_h_intern(&lf[3],6,"system"); lf[4]=C_h_intern(&lf[4],7,"sprintf"); lf[5]=C_h_intern(&lf[5],8,"read-all"); lf[6]=C_h_intern(&lf[6],18,"\003sysstandard-input"); lf[7]=C_h_intern(&lf[7],20,"\003sysread-string/port"); lf[8]=C_h_intern(&lf[8],20,"with-input-from-file"); lf[9]=C_h_intern(&lf[9],7,"\000binary"); lf[10]=C_h_intern(&lf[10],5,"port\077"); lf[11]=C_h_intern(&lf[11],2,"qs"); lf[12]=C_h_intern(&lf[12],7,"mingw32"); lf[13]=C_decode_literal(C_heaptop,"\376B\000\000\002\042\042"); lf[14]=C_decode_literal(C_heaptop,"\376B\000\000\004\047\134\047\047"); lf[15]=C_h_intern(&lf[15],13,"string-append"); lf[16]=C_h_intern(&lf[16],5,"error"); lf[17]=C_decode_literal(C_heaptop,"\376B\000\0004NUL character can not be represented in shell string"); lf[18]=C_h_intern(&lf[18],18,"string-concatenate"); lf[19]=C_h_intern(&lf[19],16,"\003sysstring->list"); lf[20]=C_h_intern(&lf[20],14,"build-platform"); lf[21]=C_h_intern(&lf[21],20,"compile-file-options"); lf[22]=C_h_intern(&lf[22],4,"load"); lf[23]=C_h_intern(&lf[23],12,"compile-file"); lf[24]=C_h_intern(&lf[24],8,"\000options"); lf[25]=C_h_intern(&lf[25],12,"\000output-file"); lf[26]=C_h_intern(&lf[26],8,"\000verbose"); lf[27]=C_decode_literal(C_heaptop,"\376B\000\000\003csc"); lf[28]=C_h_intern(&lf[28],5,"abort"); lf[29]=C_h_intern(&lf[29],12,"delete-file\052"); lf[30]=C_h_intern(&lf[30],22,"with-exception-handler"); lf[31]=C_h_intern(&lf[31],30,"call-with-current-continuation"); lf[32]=C_h_intern(&lf[32],7,"on-exit"); lf[33]=C_h_intern(&lf[33],5,"print"); lf[34]=C_decode_literal(C_heaptop,"\376B\000\000\002 "); lf[35]=C_h_intern(&lf[35],17,"get-output-string"); lf[36]=C_h_intern(&lf[36],9,"\003sysprint"); lf[37]=C_decode_literal(C_heaptop,"\376B\000\000\001\042"); lf[38]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[39]=C_decode_literal(C_heaptop,"\376B\000\000\004 -o "); lf[40]=C_h_intern(&lf[40],16,"\003syswrite-char-0"); lf[41]=C_h_intern(&lf[41],18,"string-intersperse"); lf[42]=C_decode_literal(C_heaptop,"\376B\000\000\004 -s "); lf[43]=C_decode_literal(C_heaptop,"\376B\000\000\001\042"); lf[44]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[45]=C_h_intern(&lf[45],18,"open-output-string"); lf[46]=C_h_intern(&lf[46],21,"create-temporary-file"); lf[47]=C_decode_literal(C_heaptop,"\376B\000\000\002so"); lf[48]=C_h_intern(&lf[48],12,"file-exists\077"); lf[49]=C_h_intern(&lf[49],13,"make-pathname"); lf[50]=C_h_intern(&lf[50],15,"\003sysget-keyword"); lf[51]=C_h_intern(&lf[51],5,"\000load"); lf[52]=C_h_intern(&lf[52],16,"scan-input-lines"); lf[53]=C_h_intern(&lf[53],9,"read-line"); lf[54]=C_h_intern(&lf[54],14,"irregex-search"); lf[55]=C_h_intern(&lf[55],7,"irregex"); lf[56]=C_h_intern(&lf[56],10,"yes-or-no\077"); lf[57]=C_h_intern(&lf[57],8,"\000default"); lf[58]=C_h_intern(&lf[58],6,"\000title"); lf[59]=C_decode_literal(C_heaptop,"\376B\000\000\002no"); lf[60]=C_decode_literal(C_heaptop,"\376B\000\000\003yes"); lf[61]=C_decode_literal(C_heaptop,"\376B\000\000\005abort"); lf[62]=C_decode_literal(C_heaptop,"\376B\000\000\017CHICKEN Runtime"); lf[63]=C_h_intern(&lf[63],17,"\003sysmake-c-string"); lf[64]=C_decode_literal(C_heaptop,"\376B\000\000\003yes"); lf[65]=C_decode_literal(C_heaptop,"\376B\000\000\002no"); lf[66]=C_h_intern(&lf[66],16,"string-trim-both"); lf[67]=C_decode_literal(C_heaptop,"\376B\000\000\003yes"); lf[68]=C_decode_literal(C_heaptop,"\376B\000\000\002no"); lf[69]=C_decode_literal(C_heaptop,"\376B\000\000\005abort"); lf[70]=C_h_intern(&lf[70],19,"\003sysstandard-output"); lf[71]=C_h_intern(&lf[71],6,"printf"); lf[72]=C_decode_literal(C_heaptop,"\376B\000\000$Please enter \042yes\042, \042no\042 or \042abort\042."); lf[73]=C_decode_literal(C_heaptop,"\376B\000\000\033Please enter \042yes\042 or \042no\042."); lf[74]=C_decode_literal(C_heaptop,"\376B\000\000\005abort"); lf[75]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[76]=C_h_intern(&lf[76],12,"flush-output"); lf[77]=C_decode_literal(C_heaptop,"\376B\000\000\002] "); lf[78]=C_decode_literal(C_heaptop,"\376B\000\000\002) "); lf[79]=C_decode_literal(C_heaptop,"\376B\000\000\006/abort"); lf[80]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[81]=C_decode_literal(C_heaptop,"\376B\000\000\010 (yes/no"); lf[82]=C_h_intern(&lf[82],5,"reset"); lf[83]=C_h_intern(&lf[83],6,"\000abort"); lf[84]=C_h_intern(&lf[84],17,"\003syspeek-c-string"); lf[85]=C_h_intern(&lf[85],14,"make-parameter"); lf[86]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\003-O2\376\003\000\000\002\376B\000\000\003-d2\376\377\016"); lf[87]=C_h_intern(&lf[87],17,"register-feature!"); lf[88]=C_h_intern(&lf[88],5,"utils"); C_register_lf2(lf,89,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_554,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* read-all in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_593,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[6]+1):C_i_car(t2)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_603,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* utils.scm:53: port? */ t7=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* map-loop96 in k672 in k625 in qs in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_fcall f_679(C_word t0,C_word t1,C_word 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_679,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_704,a[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)); /* utils.scm:66: g102 */ t5=((C_word*)t0)[4]; f_653(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);}}} /* k675 in k672 in k625 in qs in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_677,2,av);} /* utils.scm:65: string-concatenate */ t2=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_754,2,av);} a=C_alloc(10); t2=(C_truep(t1)?t1:lf[27]); t3=t2; t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_760,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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,tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t0)[3])){ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_760(2,av2);}} else{ /* utils.scm:85: create-temporary-file */ t5=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[47]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k576 in system* in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_578,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_581,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* utils.scm:44: system */ t4=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k672 in k625 in qs in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_674(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_674,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_677,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_679,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)li4),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_679(t6,t2,t1);} /* system* in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_574(C_word c,C_word *av){ C_word tmp; C_word 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,4)))){ C_save_and_reclaim((void*)f_574,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; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_578,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t4; av2[2]=*((C_word*)lf[4]+1); av2[3]=t2; av2[4]=t3; C_apply(5,av2);}} /* k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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 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_572,2,av);} a=C_alloc(12); t2=C_mutate2((C_word*)lf[0]+1 /* (set! system* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_574,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[5]+1 /* (set! read-all ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_593,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[11]+1 /* (set! qs ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_623,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_730,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* utils.scm:77: make-parameter */ t6=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[86]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* loop in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_fcall f_1139(C_word t0,C_word 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_1139,2,t0,t1);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1143,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); if(C_truep(((C_word*)t0)[6])){ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_1143(2,av2);}} else{ t3=*((C_word*)lf[70]+1); t4=*((C_word*)lf[70]+1); t5=C_i_check_port_2(*((C_word*)lf[70]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[71]); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1223,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); /* utils.scm:188: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[40]+1); av2[1]=t6; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[70]+1); tp(4,av2);}}} /* k1132 in get-input in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_1134(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1134,2,av);} /* utils.scm:185: string-trim-both */ t2=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_748,2,av);} a=C_alloc(12); t2=t1; t3=C_i_get_keyword(lf[26],((C_word*)t0)[2],C_SCHEME_FALSE); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_754,a[2]=t2,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],tmp=(C_word)a,a+=9,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_979,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* utils.scm:84: make-pathname */ t7=*((C_word*)lf[49]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_569,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_572,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* utils.scm:36: register-feature! */ t3=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[88]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_566,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_569,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_irregex_toplevel(2,av2);}} /* k561 in k558 in k555 in k552 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_563,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_566,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_files_toplevel(2,av2);}} /* k558 in k555 in k552 */ static void C_ccall f_560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_560,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_563,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_posix_toplevel(2,av2);}} /* k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_734,2,av);} a=C_alloc(8); t2=t1; t3=*((C_word*)lf[22]+1); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_737,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* ##sys#peek-c-string */ t5=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_INSTALL_BIN_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_730,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[21]+1 /* (set! compile-file-options ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_734,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_CSC_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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=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,4)))){ C_save_and_reclaim((void*)f_738,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; t4=C_i_get_keyword(lf[24],t3,C_SCHEME_FALSE); t5=t4; t6=C_i_get_keyword(lf[25],t3,C_SCHEME_FALSE); t7=t6; t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_748,a[2]=t3,a[3]=t7,a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=t2,a[7]=t5,a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[4],tmp=(C_word)a,a+=10,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_981,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp); /* utils.scm:80: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[50]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[50]+1); av2[1]=t8; av2[2]=lf[51]; av2[3]=t3; av2[4]=t9; tp(5,av2);}} /* k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_737,2,av);} a=C_alloc(12); t2=t1; t3=C_mutate2((C_word*)lf[23]+1 /* (set! compile-file ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_738,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word)li22),tmp=(C_word)a,a+=6,tmp)); t4=C_mutate2((C_word*)lf[52]+1 /* (set! scan-input-lines ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_984,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[56]+1 /* (set! yes-or-no? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1066,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k555 in k552 */ static void C_ccall f_557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_557,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_560,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d13_toplevel(2,av2);}} /* k552 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_554,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_557,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_fcall f_1079(C_word t0,C_word 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(19,0,2)))){ C_save_and_reclaim_args((void *)trf_1079,2,t0,t1);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1081,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)li26),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|8,a[1]=(C_word)f_1139,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=t3,a[6]=t2,a[7]=((C_word*)t0)[3],a[8]=((C_word)li27),tmp=(C_word)a,a+=9,tmp)); t7=((C_word*)t5)[1]; f_1139(t7,((C_word*)t0)[6]);} /* k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_1076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1076,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1079,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_mk_bool(C_HAS_MESSAGE_BOX))){ t4=C_fudge(C_fix(4)); t5=t3; f_1079(t5,C_i_not(t4));} else{ t4=t3; f_1079(t4,C_SCHEME_FALSE);}} /* k1086 in get-input in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1088,2,av);} t2=C_eqp(t1,C_fix(0)); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[59]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_eqp(t1,C_fix(1)); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep(t3)?lf[60]:lf[61]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* get-input in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_fcall f_1081(C_word t0,C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_1081,2,t0,t1);} a=C_alloc(9); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1088,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(C_truep(((C_word*)t0)[3])?((C_word*)t0)[3]:lf[62]); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1112,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[6])){ if(C_truep(C_i_string_ci_equal_p(((C_word*)t0)[6],lf[64]))){ t6=t5; f_1112(t6,C_fix(0));} else{ t6=C_i_string_ci_equal_p(((C_word*)t0)[6],lf[65]); t7=t5; f_1112(t7,(C_truep(t6)?C_fix(1):C_fix(2)));}} else{ t6=t5; f_1112(t6,C_fix(3));}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1134,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* utils.scm:185: read-line */ t3=*((C_word*)lf[53]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k1248 in k1245 in k1233 in k1230 in k1227 in k1224 in k1221 in loop in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1250,2,av);} /* utils.scm:189: ##sys#print */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[77]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* g102 in k625 in qs in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_fcall f_653(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_653,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)))){ /* utils.scm:69: error */ t4=*((C_word*)lf[16]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=lf[11]; av2[3]=lf[17]; 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);}}}} /* k1110 in get-input in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_fcall f_1112(C_word t0,C_word t1){ C_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_1112,2,t0,t1);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=t1; t6=((C_word*)t0)[5]; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1043,a[2]=t5,a[3]=t2,a[4]=t6,a[5]=t4,tmp=(C_word)a,a+=6,tmp); if(C_truep(t3)){ t8=C_i_foreign_string_argumentp(t3); /* utils.scm:168: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[63]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[63]+1); av2[1]=t7; av2[2]=t8; tp(3,av2);}} else{ t8=t7;{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_FALSE; f_1043(2,av2);}}} /* a1265 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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!=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_1266,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[82]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k642 in k625 in qs in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_644(C_word c,C_word *av){ C_word tmp; C_word t0=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_644,2,av);} a=C_alloc(2); t2=C_a_i_string(&a,1,((C_word*)t0)[2]); /* utils.scm:63: string-append */ t3=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_1066(C_word c,C_word *av){ C_word tmp; C_word 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,4)))){ C_save_and_reclaim((void*)f_1066,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[57],t3,C_SCHEME_FALSE); t5=t4; t6=C_i_get_keyword(lf[58],t3,C_SCHEME_FALSE); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1076,a[2]=t7,a[3]=t2,a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1266,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp); /* utils.scm:168: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[50]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[50]+1); av2[1]=t8; av2[2]=lf[83]; av2[3]=t3; av2[4]=t9; tp(5,av2);}} /* k948 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_950(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_950,2,av);} /* utils.scm:87: ##sys#print */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k952 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_954,2,av);} /* utils.scm:90: string-intersperse */ t2=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a610 in k601 in read-all in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_611(C_word c,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_611,2,av);} /* read-string/port */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=C_SCHEME_FALSE; av2[3]=*((C_word*)lf[6]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k924 in a901 in a886 in a877 in k803 in k800 in k797 in k794 in k791 in k788 in k785 in k782 in k779 in k776 in k773 in k770 in k764 in k967 in k758 in k752 in k746 in compile-file in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_926,2,av);} a=C_alloc(3); /* tmp2546 */ t2=((C_word*)t0)[2]; f_909(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* k1023 in scan-input-lines in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_1025,2,av);} a=C_alloc(5); t2=t1; t3=*((C_word*)lf[54]+1); t4=((C_word*)t0)[2]; f_991(t4,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1026,a[2]=t3,a[3]=t2,a[4]=((C_word)li24),tmp=(C_word)a,a+=5,tmp));} /* f_1026 in k1023 in scan-input-lines in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_1026(C_word c,C_word *av){ C_word tmp; C_word 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_1026,3,av);} /* utils.scm:120: g222223 */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* scan-input-lines in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_984(C_word c,C_word *av){ C_word tmp; C_word 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_984,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_word*)lf[6]+1):C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_991,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_closurep(t2))){ t8=t7; f_991(t8,t2);} else{ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1025,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* utils.scm:120: irregex */ t9=*((C_word*)lf[55]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} /* a980 in compile-file in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ 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; 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_981,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1041 in k1110 in get-input in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_1043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1043,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1047,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=C_i_foreign_string_argumentp(((C_word*)t0)[5]); /* utils.scm:168: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[63]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[63]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} else{ t4=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=stub244(C_SCHEME_UNDEFINED,t2,C_SCHEME_FALSE,t4,((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k1045 in k1041 in k1110 in get-input in k1077 in k1074 in yes-or-no? in k735 in k732 in k728 in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_1047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1047,2,av);} t2=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=stub244(C_SCHEME_UNDEFINED,((C_word*)t0)[4],t1,t2,((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k601 in read-all in k570 in k567 in k564 in k561 in k558 in k555 in k552 */ static void C_ccall f_603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_603,2,av);} a=C_alloc(3); if(C_truep(t1)){ /* read-string/port */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_611,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp); /* utils.scm:55: with-input-from-file */ t3=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[9]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[107] = { {"f_904:utils_2escm",(void*)f_904}, {"f_902:utils_2escm",(void*)f_902}, {"f_909:utils_2escm",(void*)f_909}, {"f_1223:utils_2escm",(void*)f_1223}, {"f_1226:utils_2escm",(void*)f_1226}, {"f_1229:utils_2escm",(void*)f_1229}, {"f_1009:utils_2escm",(void*)f_1009}, {"f_1000:utils_2escm",(void*)f_1000}, {"f_899:utils_2escm",(void*)f_899}, {"f_893:utils_2escm",(void*)f_893}, {"f_938:utils_2escm",(void*)f_938}, {"f_996:utils_2escm",(void*)f_996}, {"f_991:utils_2escm",(void*)f_991}, {"f_887:utils_2escm",(void*)f_887}, {"f_882:utils_2escm",(void*)f_882}, {"f_969:utils_2escm",(void*)f_969}, {"f_814:utils_2escm",(void*)f_814}, {"f_961:utils_2escm",(void*)f_961}, {"f_1235:utils_2escm",(void*)f_1235}, {"f_1232:utils_2escm",(void*)f_1232}, {"f_915:utils_2escm",(void*)f_915}, {"f_805:utils_2escm",(void*)f_805}, {"f_802:utils_2escm",(void*)f_802}, {"f_1238:utils_2escm",(void*)f_1238}, {"f_946:utils_2escm",(void*)f_946}, {"f_834:utils_2escm",(void*)f_834}, {"f_1247:utils_2escm",(void*)f_1247}, {"f_799:utils_2escm",(void*)f_799}, {"f_796:utils_2escm",(void*)f_796}, {"f_793:utils_2escm",(void*)f_793}, {"f_790:utils_2escm",(void*)f_790}, {"f_979:utils_2escm",(void*)f_979}, {"f_823:utils_2escm",(void*)f_823}, {"f_828:utils_2escm",(void*)f_828}, {"f_787:utils_2escm",(void*)f_787}, {"f_781:utils_2escm",(void*)f_781}, {"f_784:utils_2escm",(void*)f_784}, {"f_1143:utils_2escm",(void*)f_1143}, {"f_1146:utils_2escm",(void*)f_1146}, {"f_1149:utils_2escm",(void*)f_1149}, {"f_856:utils_2escm",(void*)f_856}, {"f_851:utils_2escm",(void*)f_851}, {"f_855:utils_2escm",(void*)f_855}, {"f_778:utils_2escm",(void*)f_778}, {"f_775:utils_2escm",(void*)f_775}, {"f_772:utils_2escm",(void*)f_772}, {"f_849:utils_2escm",(void*)f_849}, {"f_704:utils_2escm",(void*)f_704}, {"f_840:utils_2escm",(void*)f_840}, {"f_1173:utils_2escm",(void*)f_1173}, {"f_844:utils_2escm",(void*)f_844}, {"f_878:utils_2escm",(void*)f_878}, {"f_1185:utils_2escm",(void*)f_1185}, {"f_873:utils_2escm",(void*)f_873}, {"f_1182:utils_2escm",(void*)f_1182}, {"f_623:utils_2escm",(void*)f_623}, {"f_627:utils_2escm",(void*)f_627}, {"f_766:utils_2escm",(void*)f_766}, {"f_1194:utils_2escm",(void*)f_1194}, {"f_760:utils_2escm",(void*)f_760}, {"f_862:utils_2escm",(void*)f_862}, {"f_1197:utils_2escm",(void*)f_1197}, {"f_581:utils_2escm",(void*)f_581}, {"toplevel:utils_2escm",(void*)C_utils_toplevel}, {"f_593:utils_2escm",(void*)f_593}, {"f_679:utils_2escm",(void*)f_679}, {"f_677:utils_2escm",(void*)f_677}, {"f_754:utils_2escm",(void*)f_754}, {"f_578:utils_2escm",(void*)f_578}, {"f_674:utils_2escm",(void*)f_674}, {"f_574:utils_2escm",(void*)f_574}, {"f_572:utils_2escm",(void*)f_572}, {"f_1139:utils_2escm",(void*)f_1139}, {"f_1134:utils_2escm",(void*)f_1134}, {"f_748:utils_2escm",(void*)f_748}, {"f_569:utils_2escm",(void*)f_569}, {"f_566:utils_2escm",(void*)f_566}, {"f_563:utils_2escm",(void*)f_563}, {"f_560:utils_2escm",(void*)f_560}, {"f_734:utils_2escm",(void*)f_734}, {"f_730:utils_2escm",(void*)f_730}, {"f_738:utils_2escm",(void*)f_738}, {"f_737:utils_2escm",(void*)f_737}, {"f_557:utils_2escm",(void*)f_557}, {"f_554:utils_2escm",(void*)f_554}, {"f_1079:utils_2escm",(void*)f_1079}, {"f_1076:utils_2escm",(void*)f_1076}, {"f_1088:utils_2escm",(void*)f_1088}, {"f_1081:utils_2escm",(void*)f_1081}, {"f_1250:utils_2escm",(void*)f_1250}, {"f_653:utils_2escm",(void*)f_653}, {"f_1112:utils_2escm",(void*)f_1112}, {"f_1266:utils_2escm",(void*)f_1266}, {"f_644:utils_2escm",(void*)f_644}, {"f_1066:utils_2escm",(void*)f_1066}, {"f_950:utils_2escm",(void*)f_950}, {"f_954:utils_2escm",(void*)f_954}, {"f_611:utils_2escm",(void*)f_611}, {"f_926:utils_2escm",(void*)f_926}, {"f_1025:utils_2escm",(void*)f_1025}, {"f_1026:utils_2escm",(void*)f_1026}, {"f_984:utils_2escm",(void*)f_984}, {"f_981:utils_2escm",(void*)f_981}, {"f_1043:utils_2escm",(void*)f_1043}, {"f_1047:utils_2escm",(void*)f_1047}, {"f_603:utils_2escm",(void*)f_603}, {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| printf 4 S| sprintf 1 S| map 1 o|eliminated procedure checks: 32 o|specializations: o| 2 (eqv? (not float) *) o| 2 (##sys#call-with-values (procedure () *) *) o| 5 (##sys#check-output-port * * *) o| 1 (##sys#check-list (or pair list) *) o| 1 (char=? char char) o| 2 (zero? fixnum) (o e)|safe calls: 88 o|Removed `not' forms: 3 o|inlining procedure: k582 o|inlining procedure: k582 o|inlining procedure: k598 o|inlining procedure: k598 o|inlining procedure: k655 o|inlining procedure: k655 o|substituted constant variable: a665 o|inlining procedure: k681 o|inlining procedure: k681 o|substituted constant variable: a768 o|substituted constant variable: a769 o|inlining procedure: k806 o|merged explicitly consed rest parameter: args194203 o|consed rest parameter at call site: tmp2548 1 o|merged explicitly consed rest parameter: args181188 o|consed rest parameter at call site: tmp2546 1 o|inlining procedure: k806 o|inlining procedure: k932 o|inlining procedure: k932 o|inlining procedure: k940 o|inlining procedure: k940 o|inlining procedure: k952 o|inlining procedure: k952 o|inlining procedure: k963 o|inlining procedure: k963 o|contracted procedure: k970 o|contracted procedure: k1004 o|inlining procedure: k1001 o|inlining procedure: k1001 o|inlining procedure: k1083 o|inlining procedure: k1095 o|inlining procedure: k1095 o|substituted constant variable: a1102 o|substituted constant variable: a1104 o|contracted procedure: "(utils.scm:173) dialog239" o|contracted procedure: k1113 o|inlining procedure: k1116 o|inlining procedure: k1116 o|inlining procedure: k1083 o|inlining procedure: k1150 o|inlining procedure: k1150 o|inlining procedure: k1162 o|inlining procedure: k1162 o|propagated global variable: out312316 ##sys#standard-output o|substituted constant variable: a1178 o|substituted constant variable: a1179 o|propagated global variable: out312316 ##sys#standard-output o|propagated global variable: out320324 ##sys#standard-output o|substituted constant variable: a1190 o|substituted constant variable: a1191 o|propagated global variable: out320324 ##sys#standard-output o|inlining procedure: k1208 o|inlining procedure: k1208 o|propagated global variable: out281285 ##sys#standard-output o|substituted constant variable: a1219 o|substituted constant variable: a1220 o|propagated global variable: out291295 ##sys#standard-output o|substituted constant variable: a1243 o|substituted constant variable: a1244 o|inlining procedure: k1236 o|propagated global variable: out291295 ##sys#standard-output o|inlining procedure: k1236 o|inlining procedure: k1255 o|inlining procedure: k1255 o|propagated global variable: out281285 ##sys#standard-output o|replaced variables: 116 o|removed binding forms: 54 o|substituted constant variable: r8071277 o|substituted constant variable: r9331278 o|substituted constant variable: r9331278 o|substituted constant variable: r9331280 o|substituted constant variable: r9331280 o|substituted constant variable: r9641290 o|substituted constant variable: r9641290 o|substituted constant variable: r9641292 o|substituted constant variable: r9641292 o|substituted constant variable: r10021294 o|substituted constant variable: r10961297 o|substituted constant variable: r10961298 o|substituted constant variable: r11171299 o|substituted constant variable: r11511302 o|propagated global variable: out312316 ##sys#standard-output o|propagated global variable: out320324 ##sys#standard-output o|propagated global variable: out281285 ##sys#standard-output o|propagated global variable: out291295 ##sys#standard-output o|substituted constant variable: r12561318 o|substituted constant variable: r12561318 o|substituted constant variable: r12561320 o|substituted constant variable: r12561320 o|converted assignments to bindings: (get-input265) o|simplifications: ((let . 1)) o|replaced variables: 13 o|removed binding forms: 122 o|replaced variables: 1 o|removed binding forms: 31 o|inlining procedure: k1211 o|removed binding forms: 1 o|substituted constant variable: r12121343 o|removed conditional forms: 1 o|removed binding forms: 1 o|simplifications: ((if . 10) (##core#call . 49)) o| call simplifications: o| ##sys#fudge o| not o| string=? o| string-ci=? 5 o| ##sys#foreign-string-argument 2 o| ##sys#foreign-fixnum-argument o| procedure? o| eof-object? 2 o| ##sys#get-keyword 5 o| ##sys#apply 2 o| string->list o| pair? o| cons 2 o| ##sys#setslot o| ##sys#slot 3 o| char=? o| string 3 o| null? 3 o| car 3 o| read-string 2 o| apply o| eq? 7 o|contracted procedure: k585 o|contracted procedure: k616 o|contracted procedure: k595 o|contracted procedure: k715 o|contracted procedure: k628 o|contracted procedure: k712 o|contracted procedure: k631 o|contracted procedure: k638 o|contracted procedure: k646 o|contracted procedure: k650 o|contracted procedure: k658 o|contracted procedure: k684 o|contracted procedure: k687 o|contracted procedure: k690 o|contracted procedure: k698 o|contracted procedure: k706 o|contracted procedure: k718 o|contracted procedure: k740 o|contracted procedure: k743 o|contracted procedure: k749 o|contracted procedure: k755 o|contracted procedure: k761 o|contracted procedure: k809 o|contracted procedure: k818 o|contracted procedure: k1031 o|contracted procedure: k986 o|contracted procedure: k1017 o|contracted procedure: k1020 o|contracted procedure: k1068 o|contracted procedure: k1071 o|contracted procedure: k1092 o|contracted procedure: k1098 o|contracted procedure: k1106 o|contracted procedure: k1049 o|contracted procedure: k1056 o|contracted procedure: k1063 o|contracted procedure: k1119 o|contracted procedure: k1125 o|contracted procedure: k1153 o|contracted procedure: k1159 o|contracted procedure: k1165 o|contracted procedure: k1204 o|contracted procedure: k1211 o|contracted procedure: k1262 o|simplifications: ((let . 10)) o|removed binding forms: 44 o|inlining procedure: k1045 o|replaced variables: 18 o|substituted constant variable: r10461382 o|substituted constant variable: r10461382 o|removed binding forms: 10 o|removed binding forms: 2 o|customizable procedures: (k1077 get-input265 k1147 loop280 k1110 k989 loop231 tmp1545 tmp2546 tmp1547 tmp2548 g102111 map-loop96118) o|calls to known targets: 29 o|fast box initializations: 5 */ /* end of file */ chicken-4.12.0/c-backend.c0000644000175000017500000342744113052306505015001 0ustar sjamaansjamaan/* Generated from c-backend.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: c-backend.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -no-lambda-info -extend private-namespace.scm -no-trace -output-file c-backend.c unit: backend */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[858]; 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 stub2111(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 stub2107(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(f_7032) static void C_ccall f_7032(C_word c,C_word *av) C_noret; C_noret_decl(f_7084) static void C_ccall f_7084(C_word c,C_word *av) C_noret; C_noret_decl(f_5294) static void C_ccall f_5294(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_5291) static void C_ccall f_5291(C_word c,C_word *av) C_noret; C_noret_decl(f_7056) static void C_ccall f_7056(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_3308) static void C_ccall f_3308(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_6777) static void C_ccall f_6777(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_4939) static void C_fcall f_4939(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_6755) static void C_ccall f_6755(C_word c,C_word *av) C_noret; C_noret_decl(f_6758) static void C_ccall f_6758(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_7048) static void C_ccall f_7048(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_7042) static void C_ccall f_7042(C_word c,C_word *av) C_noret; C_noret_decl(f_7040) static void C_ccall f_7040(C_word c,C_word *av) C_noret; C_noret_decl(f_4908) static void C_ccall f_4908(C_word c,C_word *av) C_noret; C_noret_decl(f_4802) static void C_fcall f_4802(C_word t0,C_word t1) 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_4817) static void C_ccall f_4817(C_word c,C_word *av) C_noret; C_noret_decl(f_6734) static void C_ccall f_6734(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_6737) static void C_ccall f_6737(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_6202) static void C_fcall f_6202(C_word t0,C_word t1,C_word t2,C_word t3) 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_3874) static void C_ccall f_3874(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_6727) static void C_ccall f_6727(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_3360) static void C_ccall f_3360(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_4949) static void C_ccall f_4949(C_word c,C_word *av) C_noret; C_noret_decl(f_3117) static void C_ccall f_3117(C_word c,C_word *av) C_noret; C_noret_decl(f_3114) static void C_ccall f_3114(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_3110) static void C_fcall f_3110(C_word t0,C_word t1,C_word t2,C_word t3) 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_5907) static void C_ccall f_5907(C_word c,C_word *av) C_noret; C_noret_decl(f_5909) static void C_fcall f_5909(C_word t0,C_word t1,C_word t2) 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_10741) static void C_ccall f_10741(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_4992) static void C_ccall f_4992(C_word c,C_word *av) C_noret; C_noret_decl(f_4969) static void C_ccall f_4969(C_word c,C_word *av) C_noret; C_noret_decl(f_5924) static void C_fcall f_5924(C_word t0,C_word t1,C_word t2,C_word t3) 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_3312) static void C_ccall f_3312(C_word c,C_word *av) C_noret; C_noret_decl(f_5940) static void C_fcall f_5940(C_word t0,C_word t1) 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_6746) static void C_ccall f_6746(C_word c,C_word *av) 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_6740) static void C_ccall f_6740(C_word c,C_word *av) C_noret; C_noret_decl(f_6749) static void C_ccall f_6749(C_word c,C_word *av) C_noret; C_noret_decl(f_3342) static void C_ccall f_3342(C_word c,C_word *av) C_noret; C_noret_decl(f_8722) static void C_fcall f_8722(C_word t0,C_word t1) C_noret; C_noret_decl(f_6554) static void C_fcall f_6554(C_word t0,C_word t1) C_noret; C_noret_decl(f_8729) static void C_ccall f_8729(C_word c,C_word *av) C_noret; C_noret_decl(f_6556) static void C_fcall f_6556(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10192) static void C_fcall f_10192(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8712) static void C_ccall f_8712(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_3692) static void C_ccall f_3692(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_8695) static void C_ccall f_8695(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_3686) static void C_ccall f_3686(C_word c,C_word *av) 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_8688) static void C_fcall f_8688(C_word t0,C_word t1) 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_4592) static void C_ccall f_4592(C_word c,C_word *av) C_noret; C_noret_decl(f_6592) static void C_fcall f_6592(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8678) static void C_ccall f_8678(C_word c,C_word *av) C_noret; C_noret_decl(f_8671) static void C_fcall f_8671(C_word t0,C_word t1) 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_7026) static void C_ccall f_7026(C_word c,C_word *av) C_noret; C_noret_decl(f_3378) static void C_ccall f_3378(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_10188) static void C_ccall f_10188(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_8705) static void C_fcall f_8705(C_word t0,C_word t1) C_noret; C_noret_decl(f_8654) static void C_ccall f_8654(C_word c,C_word *av) C_noret; C_noret_decl(f_7567) static void C_ccall f_7567(C_word c,C_word *av) C_noret; C_noret_decl(f_7561) static void C_fcall f_7561(C_word t0,C_word t1) 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_3644) static void C_ccall f_3644(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_5067) static void C_ccall f_5067(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_5780) static void C_ccall f_5780(C_word c,C_word *av) C_noret; C_noret_decl(f_7571) static void C_fcall f_7571(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5057) static void C_ccall f_5057(C_word c,C_word *av) C_noret; C_noret_decl(f11817) static void C_ccall f11817(C_word c,C_word *av) C_noret; C_noret_decl(f11813) static void C_ccall f11813(C_word c,C_word *av) 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_2601) static void C_fcall f_2601(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4749) static void C_ccall f_4749(C_word c,C_word *av) C_noret; C_noret_decl(f_4746) static void C_ccall f_4746(C_word c,C_word *av) C_noret; C_noret_decl(f_7549) static void C_fcall f_7549(C_word t0,C_word t1) C_noret; C_noret_decl(f_4743) static void C_fcall f_4743(C_word t0,C_word t1) 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_5774) static void C_fcall f_5774(C_word t0,C_word t1) C_noret; C_noret_decl(f_10113) static void C_ccall f_10113(C_word c,C_word *av) C_noret; C_noret_decl(f_10116) static void C_ccall f_10116(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_4823) static void C_ccall f_4823(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_4829) static void C_ccall f_4829(C_word c,C_word *av) 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_6506) static void C_ccall f_6506(C_word c,C_word *av) C_noret; C_noret_decl(f_8629) static void C_fcall f_8629(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8627) static void C_ccall f_8627(C_word c,C_word *av) C_noret; C_noret_decl(f_4755) static void C_ccall f_4755(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_3129) static void C_ccall f_3129(C_word c,C_word *av) C_noret; C_noret_decl(f_10287) static void C_ccall f_10287(C_word c,C_word *av) C_noret; C_noret_decl(f_10284) static void C_ccall f_10284(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_8147) static void C_ccall f_8147(C_word c,C_word *av) C_noret; C_noret_decl(f_8143) static void C_ccall f_8143(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_7528) static void C_fcall f_7528(C_word t0,C_word t1) 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_4848) static void C_ccall f_4848(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(f11805) static void C_ccall f11805(C_word c,C_word *av) C_noret; C_noret_decl(f_2634) static void C_fcall f_2634(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8605) static void C_ccall f_8605(C_word c,C_word *av) C_noret; C_noret_decl(f_8135) static void C_ccall f_8135(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_8601) static void C_ccall f_8601(C_word c,C_word *av) C_noret; C_noret_decl(f_8138) static void C_ccall f_8138(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_8609) static void C_ccall f_8609(C_word c,C_word *av) C_noret; C_noret_decl(f_2646) static void C_fcall f_2646(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_9497) static void C_ccall f_9497(C_word c,C_word *av) C_noret; C_noret_decl(f_7537) static void C_fcall f_7537(C_word t0,C_word t1) C_noret; C_noret_decl(f_2649) static void C_fcall f_2649(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6566) static void C_ccall f_6566(C_word c,C_word *av) C_noret; C_noret_decl(f_10164) static void C_ccall f_10164(C_word c,C_word *av) C_noret; C_noret_decl(f_10167) static void C_ccall f_10167(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_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_10161) static void C_ccall f_10161(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_6515) static void C_ccall f_6515(C_word c,C_word *av) C_noret; C_noret_decl(f_8162) static void C_ccall f_8162(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_7504) static void C_ccall f_7504(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_3138) static void C_fcall f_3138(C_word t0,C_word t1,C_word t2,C_word t3) 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_4860) static void C_fcall f_4860(C_word t0,C_word t1) 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_4863) static void C_fcall f_4863(C_word t0,C_word t1) C_noret; C_noret_decl(f_10254) static void C_ccall f_10254(C_word c,C_word *av) C_noret; C_noret_decl(f_2611) static void C_ccall f_2611(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_7518) static void C_ccall f_7518(C_word c,C_word *av) C_noret; C_noret_decl(f_7239) static void C_ccall f_7239(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_7233) static void C_ccall f_7233(C_word c,C_word *av) C_noret; C_noret_decl(f_5767) static void C_fcall f_5767(C_word t0,C_word t1,C_word t2,C_word t3) 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_4878) static void C_ccall f_4878(C_word c,C_word *av) C_noret; C_noret_decl(f_5038) static void C_ccall f_5038(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_10242) static void C_ccall f_10242(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_2626) static void C_ccall f_2626(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_7245) static void C_ccall f_7245(C_word c,C_word *av) C_noret; C_noret_decl(f_7248) static void C_ccall f_7248(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_4881) static void C_ccall f_4881(C_word c,C_word *av) C_noret; C_noret_decl(f_10278) static void C_ccall f_10278(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_8178) static void C_fcall f_8178(C_word t0,C_word t1) C_noret; C_noret_decl(f_8174) static void C_ccall f_8174(C_word c,C_word *av) C_noret; C_noret_decl(f_7092) static void C_fcall f_7092(C_word t0,C_word t1,C_word t2) 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_3185) static void C_ccall f_3185(C_word c,C_word *av) C_noret; C_noret_decl(f_4899) static void C_ccall f_4899(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_3182) static void C_ccall f_3182(C_word c,C_word *av) C_noret; C_noret_decl(f_10266) static void C_ccall f_10266(C_word c,C_word *av) C_noret; C_noret_decl(f_10260) static void C_ccall f_10260(C_word c,C_word *av) C_noret; C_noret_decl(f_7266) static void C_ccall f_7266(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_10215) static void C_fcall f_10215(C_word t0,C_word t1) 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_10239) static void C_ccall f_10239(C_word c,C_word *av) C_noret; C_noret_decl(f_10038) static void C_ccall f_10038(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_10236) static void C_ccall f_10236(C_word c,C_word *av) C_noret; C_noret_decl(f_10230) static void C_ccall f_10230(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_2981) static void C_ccall f_2981(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_7299) static void C_ccall f_7299(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_2987) static void C_ccall f_2987(C_word c,C_word *av) 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_8100) static void C_ccall f_8100(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_8123) static void C_ccall f_8123(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_8126) static void C_ccall f_8126(C_word c,C_word *av) C_noret; C_noret_decl(f_2959) static void C_ccall f_2959(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_noret; C_noret_decl(f_7200) static void C_ccall f_7200(C_word c,C_word *av) C_noret; C_noret_decl(f_7203) static void C_ccall f_7203(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_5008) static void C_ccall f_5008(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_3617) static void C_ccall f_3617(C_word c,C_word *av) 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_7212) static void C_ccall f_7212(C_word c,C_word *av) C_noret; C_noret_decl(f_3611) static void C_ccall f_3611(C_word c,C_word *av) 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_7209) static void C_ccall f_7209(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_6885) static void C_ccall f_6885(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_2932) static void C_ccall f_2932(C_word c,C_word *av) C_noret; C_noret_decl(f_4764) static void C_fcall f_4764(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3608) static void C_ccall f_3608(C_word c,C_word *av) C_noret; C_noret_decl(f_7221) static void C_ccall f_7221(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_6871) static void C_ccall f_6871(C_word c,C_word *av) C_noret; C_noret_decl(f_2906) static void C_ccall f_2906(C_word c,C_word *av) C_noret; C_noret_decl(f_6889) static void C_ccall f_6889(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_3638) static void C_ccall f_3638(C_word c,C_word *av) C_noret; C_noret_decl(f_2909) static void C_ccall f_2909(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_4704) static void C_fcall f_4704(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7229) static void C_ccall f_7229(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_3627) static void C_ccall f_3627(C_word c,C_word *av) C_noret; C_noret_decl(f_9479) static void C_fcall f_9479(C_word t0,C_word t1) 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_4710) static void C_ccall f_4710(C_word c,C_word *av) C_noret; C_noret_decl(f_9488) static void C_fcall f_9488(C_word t0,C_word t1) C_noret; C_noret_decl(f_4733) static void C_fcall f_4733(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_5707) static void C_ccall f_5707(C_word c,C_word *av) C_noret; C_noret_decl(f_6051) static void C_fcall f_6051(C_word t0,C_word t1) C_noret; C_noret_decl(f_6067) static void C_ccall f_6067(C_word c,C_word *av) C_noret; C_noret_decl(f_5080) static void C_ccall f_5080(C_word c,C_word *av) C_noret; C_noret_decl(f_5863) static void C_fcall f_5863(C_word t0,C_word t1) C_noret; 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_6057) static void C_ccall f_6057(C_word c,C_word *av) C_noret; C_noret_decl(f_5073) static void C_fcall f_5073(C_word t0,C_word t1) C_noret; C_noret_decl(f_5071) static void C_ccall f_5071(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_5013) static void C_fcall f_5013(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5011) static void C_ccall f_5011(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_6091) static void C_ccall f_6091(C_word c,C_word *av) C_noret; C_noret_decl(f_6094) static void C_ccall f_6094(C_word c,C_word *av) C_noret; C_noret_decl(f_6795) static void C_ccall f_6795(C_word c,C_word *av) C_noret; C_noret_decl(f_3508) static void C_fcall f_3508(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6791) static void C_ccall f_6791(C_word c,C_word *av) C_noret; C_noret_decl(f_3500) static void C_ccall f_3500(C_word c,C_word *av) C_noret; C_noret_decl(f_5736) static void C_fcall f_5736(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6097) static void C_ccall f_6097(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_3518) static void C_ccall f_3518(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_3545) static void C_fcall f_3545(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9951) static void C_ccall f_9951(C_word c,C_word *av) C_noret; C_noret_decl(f_9957) static void C_ccall f_9957(C_word c,C_word *av) C_noret; C_noret_decl(f_9960) static void C_ccall f_9960(C_word c,C_word *av) C_noret; C_noret_decl(f_9963) static void C_ccall f_9963(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_9975) static void C_fcall f_9975(C_word t0,C_word t1) 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_5564) static void C_ccall f_5564(C_word c,C_word *av) C_noret; C_noret_decl(f_5567) static void C_ccall f_5567(C_word c,C_word *av) C_noret; C_noret_decl(f_9987) static void C_ccall f_9987(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_9984) static void C_ccall f_9984(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_5552) static void C_ccall f_5552(C_word c,C_word *av) C_noret; C_noret_decl(f_5558) static void C_ccall f_5558(C_word c,C_word *av) 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_6388) static void C_fcall f_6388(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_6373) static void C_ccall f_6373(C_word c,C_word *av) C_noret; C_noret_decl(f_6379) static void C_ccall f_6379(C_word c,C_word *av) C_noret; C_noret_decl(f_6376) static void C_ccall f_6376(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_3593) static void C_ccall f_3593(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_3599) static void C_ccall f_3599(C_word c,C_word *av) C_noret; C_noret_decl(f_3596) static void C_ccall f_3596(C_word c,C_word *av) C_noret; C_noret_decl(f_6359) static void C_ccall f_6359(C_word c,C_word *av) C_noret; C_noret_decl(f_6342) static void C_ccall f_6342(C_word c,C_word *av) C_noret; C_noret_decl(f_6331) static void C_ccall f_6331(C_word c,C_word *av) C_noret; C_noret_decl(f_9284) static void C_fcall f_9284(C_word t0,C_word t1) 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_5535) static void C_ccall f_5535(C_word c,C_word *av) C_noret; C_noret_decl(f_6328) static void C_ccall f_6328(C_word c,C_word *av) C_noret; C_noret_decl(f_6809) static void C_fcall f_6809(C_word t0,C_word t1,C_word t2) 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_6316) static void C_ccall f_6316(C_word c,C_word *av) C_noret; C_noret_decl(f_6310) static void C_ccall f_6310(C_word c,C_word *av) C_noret; C_noret_decl(f_6319) static void C_ccall f_6319(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_6300) static void C_ccall f_6300(C_word c,C_word *av) C_noret; C_noret_decl(f_6307) static void C_ccall f_6307(C_word c,C_word *av) C_noret; C_noret_decl(f_8844) static void C_ccall f_8844(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_9927) static void C_ccall f_9927(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_6819) static void C_ccall f_6819(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_9933) static void C_ccall f_9933(C_word c,C_word *av) C_noret; C_noret_decl(f_9936) static void C_ccall f_9936(C_word c,C_word *av) C_noret; C_noret_decl(f_9939) static void C_ccall f_9939(C_word c,C_word *av) C_noret; C_noret_decl(f_9257) static void C_fcall f_9257(C_word t0,C_word t1) C_noret; C_noret_decl(f_10719) static void C_ccall f_10719(C_word c,C_word *av) C_noret; C_noret_decl(f_6848) static void C_fcall f_6848(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5525) static void C_fcall f_5525(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10838) static void C_ccall f_10838(C_word c,C_word *av) C_noret; C_noret_decl(f_10833) static void C_ccall f_10833(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_3256) static void C_ccall f_3256(C_word c,C_word *av) C_noret; C_noret_decl(f_5519) static void C_fcall f_5519(C_word t0,C_word t1) C_noret; C_noret_decl(f_5517) static void C_ccall f_5517(C_word c,C_word *av) C_noret; C_noret_decl(f_8043) static void C_ccall f_8043(C_word c,C_word *av) C_noret; C_noret_decl(f_10867) static void C_ccall f_10867(C_word c,C_word *av) 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_3014) static void C_ccall f_3014(C_word c,C_word *av) 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_6085) static void C_ccall f_6085(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_4115) static void C_ccall f_4115(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_8033) static void C_fcall f_8033(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8031) static void C_ccall f_8031(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_6070) static void C_ccall f_6070(C_word c,C_word *av) C_noret; C_noret_decl(f_6073) static void C_ccall f_6073(C_word c,C_word *av) C_noret; C_noret_decl(C_backend_toplevel) C_externexport void C_ccall C_backend_toplevel(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_6076) static void C_ccall f_6076(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_noret; C_noret_decl(f_3260) static void C_ccall f_3260(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_4351) static void C_ccall f_4351(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_4109) static void C_ccall f_4109(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_4367) static void C_ccall f_4367(C_word c,C_word *av) C_noret; C_noret_decl(f_10898) static void C_ccall f_10898(C_word c,C_word *av) C_noret; C_noret_decl(f_5650) static void C_fcall f_5650(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4371) static void C_ccall f_4371(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_2796) static void C_ccall f_2796(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_4309) static void C_ccall f_4309(C_word c,C_word *av) C_noret; C_noret_decl(f_4300) static void C_ccall f_4300(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_6656) static void C_ccall f_6656(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_5830) static void C_ccall f_5830(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_6653) static void C_ccall f_6653(C_word c,C_word *av) C_noret; C_noret_decl(f_8382) static void C_fcall f_8382(C_word t0,C_word t1) 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_5689) static void C_ccall f_5689(C_word c,C_word *av) C_noret; C_noret_decl(f_7482) static void C_ccall f_7482(C_word c,C_word *av) C_noret; C_noret_decl(f_7497) static void C_fcall f_7497(C_word t0,C_word t1,C_word t2) 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_6692) static void C_ccall f_6692(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_3294) static void C_ccall f_3294(C_word c,C_word *av) C_noret; C_noret_decl(f_3291) static void C_ccall f_3291(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_4383) static void C_ccall f_4383(C_word c,C_word *av) C_noret; C_noret_decl(f_4386) static void C_ccall f_4386(C_word c,C_word *av) C_noret; C_noret_decl(f_8361) static void C_fcall f_8361(C_word t0,C_word t1) C_noret; C_noret_decl(f_6142) static void C_ccall f_6142(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_6148) static void C_ccall f_6148(C_word c,C_word *av) C_noret; C_noret_decl(f_6145) static void C_fcall f_6145(C_word t0,C_word t1) C_noret; C_noret_decl(f_6133) static void C_ccall f_6133(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_10399) static void C_ccall f_10399(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_8819) static void C_fcall f_8819(C_word t0,C_word t1,C_word t2) 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_10390) static void C_ccall f_10390(C_word c,C_word *av) C_noret; C_noret_decl(f_7461) static void C_ccall f_7461(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_6136) static void C_ccall f_6136(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_6678) static void C_ccall f_6678(C_word c,C_word *av) C_noret; C_noret_decl(f_7472) static void C_fcall f_7472(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5617) static void C_ccall f_5617(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_4297) static void C_ccall f_4297(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_6675) static void C_ccall f_6675(C_word c,C_word *av) C_noret; C_noret_decl(f_7409) static void C_fcall f_7409(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6628) static void C_ccall f_6628(C_word c,C_word *av) C_noret; C_noret_decl(f_7404) static void C_ccall f_7404(C_word c,C_word *av) C_noret; C_noret_decl(f_3051) static void C_ccall f_3051(C_word c,C_word *av) C_noret; C_noret_decl(f_6625) static void C_fcall f_6625(C_word t0,C_word t1) C_noret; C_noret_decl(f_7419) static void C_ccall f_7419(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_8012) static void C_ccall f_8012(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_5638) static void C_ccall f_5638(C_word c,C_word *av) 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_8003) static void C_ccall f_8003(C_word c,C_word *av) C_noret; C_noret_decl(f_8000) static void C_ccall f_8000(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_8009) static void C_ccall f_8009(C_word c,C_word *av) C_noret; C_noret_decl(f_3057) static void C_ccall f_3057(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_6164) static void C_ccall f_6164(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_7433) static void C_ccall f_7433(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_6160) static void C_ccall f_6160(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_3048) static void C_ccall f_3048(C_word c,C_word *av) C_noret; C_noret_decl(f_4011) static void C_fcall f_4011(C_word t0,C_word t1,C_word t2,C_word t3) 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_4121) static void C_ccall f_4121(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_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_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_3077) static void C_ccall f_3077(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_5374) static void C_ccall f_5374(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_10366) static void C_ccall f_10366(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_9227) static void C_ccall f_9227(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_10314) static void C_ccall f_10314(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_5394) static void C_ccall f_5394(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_10308) static void C_ccall f_10308(C_word c,C_word *av) C_noret; C_noret_decl(f_10143) static void C_ccall f_10143(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_3083) static void C_ccall f_3083(C_word c,C_word *av) 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_10140) static void C_ccall f_10140(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_10338) static void C_ccall f_10338(C_word c,C_word *av) C_noret; C_noret_decl(f_10137) static void C_ccall f_10137(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_10131) static void C_ccall f_10131(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_10326) static void C_ccall f_10326(C_word c,C_word *av) C_noret; C_noret_decl(f_8090) static void C_fcall f_8090(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_8082) static void C_ccall f_8082(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_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_6127) static void C_ccall f_6127(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_5300) static void C_ccall f_5300(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_6112) static void C_ccall f_6112(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_6118) static void C_ccall f_6118(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_7979) static void C_ccall f_7979(C_word c,C_word *av) C_noret; C_noret_decl(f_7973) static void C_ccall f_7973(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_5321) static void C_fcall f_5321(C_word t0,C_word t1) C_noret; C_noret_decl(f_5324) static void C_ccall f_5324(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_7982) static void C_ccall f_7982(C_word c,C_word *av) C_noret; C_noret_decl(f_5352) static void C_ccall f_5352(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_5358) static void C_ccall f_5358(C_word c,C_word *av) C_noret; C_noret_decl(f_7167) static void C_ccall f_7167(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_7160) static void C_fcall f_7160(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5349) static void C_ccall f_5349(C_word c,C_word *av) C_noret; C_noret_decl(f_7135) static void C_fcall f_7135(C_word t0,C_word t1,C_word t2) 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_7145) static void C_ccall f_7145(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_7197) static void C_ccall f_7197(C_word c,C_word *av) 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_8253) static void C_fcall f_8253(C_word t0,C_word t1) 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_4056) static void C_ccall f_4056(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_4059) static void C_ccall f_4059(C_word c,C_word *av) C_noret; C_noret_decl(f_6446) static void C_fcall f_6446(C_word t0,C_word t1) 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_3944) static void C_ccall f_3944(C_word c,C_word *av) C_noret; C_noret_decl(f_3945) static void C_fcall f_3945(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6979) static void C_fcall f_6979(C_word t0,C_word t1) 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_4069) static void C_ccall f_4069(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_6103) static void C_ccall f_6103(C_word c,C_word *av) C_noret; C_noret_decl(f_6100) static void C_ccall f_6100(C_word c,C_word *av) C_noret; C_noret_decl(f_6106) static void C_ccall f_6106(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_7158) static void C_ccall f_7158(C_word c,C_word *av) C_noret; C_noret_decl(f_6951) static void C_fcall f_6951(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3969) static void C_ccall f_3969(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_8560) static void C_fcall f_8560(C_word t0,C_word t1) C_noret; C_noret_decl(f_6895) static void C_ccall f_6895(C_word c,C_word *av) C_noret; C_noret_decl(f_6898) static void C_ccall f_6898(C_word c,C_word *av) C_noret; C_noret_decl(f_6892) static void C_ccall f_6892(C_word c,C_word *av) C_noret; C_noret_decl(f_4093) static void C_ccall f_4093(C_word c,C_word *av) C_noret; C_noret_decl(f_3952) static void C_ccall f_3952(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_4099) static void C_ccall f_4099(C_word c,C_word *av) 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_fcall f_3426(C_word t0,C_word t1) 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_8588) static void C_ccall f_8588(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_4508) static void C_ccall f_4508(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_3417) static void C_ccall f_3417(C_word c,C_word *av) 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_3974) static void C_fcall f_3974(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8577) static void C_fcall f_8577(C_word t0,C_word t1) 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_4511) static void C_ccall f_4511(C_word c,C_word *av) C_noret; C_noret_decl(f_4522) static void C_fcall f_4522(C_word t0,C_word t1,C_word t2,C_word t3) 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_5465) static void C_fcall f_5465(C_word t0,C_word t1) C_noret; C_noret_decl(f_5462) static void C_ccall f_5462(C_word c,C_word *av) C_noret; C_noret_decl(f_5468) static void C_fcall f_5468(C_word t0,C_word t1) C_noret; C_noret_decl(f_10652) static void C_fcall f_10652(C_word t0,C_word t1) C_noret; C_noret_decl(f_9858) static void C_ccall f_9858(C_word c,C_word *av) C_noret; C_noret_decl(f_8594) static void C_fcall f_8594(C_word t0,C_word t1) 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_4532) static void C_ccall f_4532(C_word c,C_word *av) C_noret; C_noret_decl(f_3466) static void C_ccall f_3466(C_word c,C_word *av) C_noret; C_noret_decl(f_3469) static void C_ccall f_3469(C_word c,C_word *av) C_noret; C_noret_decl(f_5453) static void C_ccall f_5453(C_word c,C_word *av) C_noret; C_noret_decl(f_5456) static void C_ccall f_5456(C_word c,C_word *av) C_noret; C_noret_decl(f_5459) static void C_ccall f_5459(C_word c,C_word *av) C_noret; C_noret_decl(f_10643) static void C_ccall f_10643(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_4545) static void C_ccall f_4545(C_word c,C_word *av) C_noret; C_noret_decl(f_4548) static void C_ccall f_4548(C_word c,C_word *av) C_noret; C_noret_decl(f_5489) static void C_ccall f_5489(C_word c,C_word *av) C_noret; C_noret_decl(f_5486) static void C_ccall f_5486(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_5480) static void C_ccall f_5480(C_word c,C_word *av) C_noret; C_noret_decl(f_3473) static void C_fcall f_3473(C_word t0,C_word t1,C_word t2,C_word t3) 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_6415) static void C_ccall f_6415(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_4551) static void C_ccall f_4551(C_word c,C_word *av) 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_3486) static void C_ccall f_3486(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_5477) static void C_ccall f_5477(C_word c,C_word *av) C_noret; C_noret_decl(f_3420) static void C_fcall f_3420(C_word t0,C_word t1) 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_3477) static void C_ccall f_3477(C_word c,C_word *av) C_noret; C_noret_decl(f_3494) static void C_ccall f_3494(C_word c,C_word *av) C_noret; C_noret_decl(f_6430) static void C_ccall f_6430(C_word c,C_word *av) C_noret; C_noret_decl(f_5499) static void C_ccall f_5499(C_word c,C_word *av) C_noret; C_noret_decl(f_9860) static void C_fcall f_9860(C_word t0,C_word t1) C_noret; C_noret_decl(f_5492) static void C_ccall f_5492(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_noret; C_noret_decl(f_3791) static void C_ccall f_3791(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_noret; C_noret_decl(f_6421) static void C_ccall f_6421(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_3497) static void C_ccall f_3497(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_3785) static void C_ccall f_3785(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_8521) static void C_fcall f_8521(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7124) static void C_ccall f_7124(C_word c,C_word *av) 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_8517) static void C_ccall f_8517(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_10086) static void C_ccall f_10086(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_10089) static void C_ccall f_10089(C_word c,C_word *av) C_noret; C_noret_decl(f_5408) static void C_ccall f_5408(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_7102) static void C_ccall f_7102(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_10011) static void C_ccall f_10011(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_10041) static void C_ccall f_10041(C_word c,C_word *av) C_noret; C_noret_decl(f_5423) static void C_fcall f_5423(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5142) static void C_fcall f_5142(C_word t0,C_word t1,C_word t2) 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_5410) static void C_fcall f_5410(C_word t0,C_word t1) C_noret; C_noret_decl(f_10932) static void C_ccall f_10932(C_word c,C_word *av) C_noret; C_noret_decl(f_10062) static void C_ccall f_10062(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_5449) static void C_ccall f_5449(C_word c,C_word *av) C_noret; C_noret_decl(f_2587) static void C_ccall f_2587(C_word c,C_word *av) C_noret; C_noret_decl(f_7115) static void C_ccall f_7115(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_10964) static void C_ccall f_10964(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_5169) static void C_fcall f_5169(C_word t0,C_word t1,C_word t2) 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_5152) static void C_ccall f_5152(C_word c,C_word *av) C_noret; C_noret_decl(f_10065) static void C_ccall f_10065(C_word c,C_word *av) C_noret; C_noret_decl(f_10068) static void C_ccall f_10068(C_word c,C_word *av) C_noret; C_noret_decl(f_8490) static void C_fcall f_8490(C_word t0,C_word t1) 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_4200) static void C_ccall f_4200(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_10080) static void C_ccall f_10080(C_word c,C_word *av) C_noret; C_noret_decl(f_4204) static void C_ccall f_4204(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_6901) static void C_ccall f_6901(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_2564) static void C_fcall f_2564(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_10983) static void C_ccall f_10983(C_word c,C_word *av) C_noret; C_noret_decl(f_10987) static void C_ccall f_10987(C_word c,C_word *av) C_noret; C_noret_decl(f_7176) static void C_ccall f_7176(C_word c,C_word *av) C_noret; C_noret_decl(f_7179) static void C_ccall f_7179(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_10420) static void C_ccall f_10420(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_2574) static void C_ccall f_2574(C_word c,C_word *av) 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_10973) static void C_ccall f_10973(C_word c,C_word *av) C_noret; C_noret_decl(f_4422) static void C_ccall f_4422(C_word c,C_word *av) C_noret; C_noret_decl(f_7185) static void C_ccall f_7185(C_word c,C_word *av) C_noret; C_noret_decl(f_10976) static void C_ccall f_10976(C_word c,C_word *av) C_noret; C_noret_decl(f_7188) static void C_ccall f_7188(C_word c,C_word *av) C_noret; C_noret_decl(f_10979) static void C_ccall f_10979(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_2544) static void C_ccall f_2544(C_word c,C_word *av) C_noret; C_noret_decl(f_2541) static void C_ccall f_2541(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_10426) static void C_ccall f_10426(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_4441) static void C_ccall f_4441(C_word c,C_word *av) C_noret; C_noret_decl(f_10991) static void C_ccall f_10991(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_6942) static void C_ccall f_6942(C_word c,C_word *av) C_noret; C_noret_decl(f_6932) static void C_ccall f_6932(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_4463) static void C_ccall f_4463(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_4466) static void C_ccall f_4466(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_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_2870) static void C_ccall f_2870(C_word c,C_word *av) C_noret; C_noret_decl(f_4413) static void C_ccall f_4413(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_4419) static void C_ccall f_4419(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_4226) static void C_ccall f_4226(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_4223) static void C_ccall f_4223(C_word c,C_word *av) C_noret; C_noret_decl(f_8792) static void C_ccall f_8792(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_2854) static void C_fcall f_2854(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_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_10920) static void C_ccall f_10920(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_5118) static void C_ccall f_5118(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_4242) static void C_ccall f_4242(C_word c,C_word *av) C_noret; C_noret_decl(f_3762) static void C_ccall f_3762(C_word c,C_word *av) C_noret; C_noret_decl(f_3766) static void C_ccall f_3766(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_7362) static void C_ccall f_7362(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_2802) static void C_ccall f_2802(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_4397) static void C_ccall f_4397(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_2808) static void C_ccall f_2808(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_5249) static void C_ccall f_5249(C_word c,C_word *av) C_noret; C_noret_decl(f_5245) static void C_fcall f_5245(C_word t0,C_word t1) C_noret; C_noret_decl(f_2864) static void C_ccall f_2864(C_word c,C_word *av) C_noret; C_noret_decl(f_3723) static void C_ccall f_3723(C_word c,C_word *av) C_noret; C_noret_decl(f_6244) static void C_ccall f_6244(C_word c,C_word *av) 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_7352) static void C_fcall f_7352(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_7359) static void C_fcall f_7359(C_word t0,C_word t1) 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_5267) static void C_ccall f_5267(C_word c,C_word *av) C_noret; C_noret_decl(f_5261) static void C_ccall f_5261(C_word c,C_word *av) C_noret; C_noret_decl(f_5264) static void C_fcall f_5264(C_word t0,C_word t1) C_noret; C_noret_decl(f_6261) static void C_fcall f_6261(C_word t0,C_word t1,C_word t2) 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_7330) static void C_ccall f_7330(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_5254) static void C_ccall f_5254(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_7302) static void C_ccall f_7302(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_5282) static void C_ccall f_5282(C_word c,C_word *av) C_noret; C_noret_decl(f_5288) static void C_ccall f_5288(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_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_3810) static void C_ccall f_3810(C_word c,C_word *av) C_noret; C_noret_decl(f_5276) static void C_ccall f_5276(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_9524) static void C_fcall f_9524(C_word t0,C_word t1) C_noret; C_noret_decl(f_6271) static void C_ccall f_6271(C_word c,C_word *av) C_noret; C_noret_decl(f_2535) static void C_ccall f_2535(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_5951) static void C_ccall f_5951(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_5985) static void C_fcall f_5985(C_word t0,C_word t1,C_word t2,C_word t3) 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_4911) static void C_ccall f_4911(C_word c,C_word *av) C_noret; C_noret_decl(f_4917) static void C_ccall f_4917(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_5979) static void C_ccall f_5979(C_word c,C_word *av) C_noret; C_noret_decl(f_5102) static void C_fcall f_5102(C_word t0,C_word t1,C_word t2,C_word t3) 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_5992) static void C_ccall f_5992(C_word c,C_word *av) C_noret; C_noret_decl(f_8773) static void C_fcall f_8773(C_word t0,C_word t1) 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_5222) static void C_fcall f_5222(C_word t0,C_word t1,C_word t2) 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_8739) static void C_fcall f_8739(C_word t0,C_word t1) 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_3888) static void C_ccall f_3888(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_8763) static void C_ccall f_8763(C_word c,C_word *av) C_noret; C_noret_decl(f_8756) static void C_fcall f_8756(C_word t0,C_word t1) 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_4984) static void C_ccall f_4984(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_7062) static void C_ccall f_7062(C_word c,C_word *av) C_noret; C_noret_decl(trf_4939) static void C_ccall trf_4939(C_word c,C_word *av) C_noret; static void C_ccall trf_4939(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4939(t0,t1,t2);} C_noret_decl(trf_4802) static void C_ccall trf_4802(C_word c,C_word *av) C_noret; static void C_ccall trf_4802(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4802(t0,t1);} C_noret_decl(trf_6202) static void C_ccall trf_6202(C_word c,C_word *av) C_noret; static void C_ccall trf_6202(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6202(t0,t1,t2,t3);} C_noret_decl(trf_3110) static void C_ccall trf_3110(C_word c,C_word *av) C_noret; static void C_ccall trf_3110(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3110(t0,t1,t2,t3);} C_noret_decl(trf_5909) static void C_ccall trf_5909(C_word c,C_word *av) C_noret; static void C_ccall trf_5909(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5909(t0,t1,t2);} C_noret_decl(trf_5924) static void C_ccall trf_5924(C_word c,C_word *av) C_noret; static void C_ccall trf_5924(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5924(t0,t1,t2,t3);} C_noret_decl(trf_5940) static void C_ccall trf_5940(C_word c,C_word *av) C_noret; static void C_ccall trf_5940(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5940(t0,t1);} C_noret_decl(trf_8722) static void C_ccall trf_8722(C_word c,C_word *av) C_noret; static void C_ccall trf_8722(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8722(t0,t1);} C_noret_decl(trf_6554) static void C_ccall trf_6554(C_word c,C_word *av) C_noret; static void C_ccall trf_6554(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6554(t0,t1);} C_noret_decl(trf_6556) static void C_ccall trf_6556(C_word c,C_word *av) C_noret; static void C_ccall trf_6556(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6556(t0,t1,t2,t3);} C_noret_decl(trf_10192) static void C_ccall trf_10192(C_word c,C_word *av) C_noret; static void C_ccall trf_10192(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10192(t0,t1,t2);} C_noret_decl(trf_8688) static void C_ccall trf_8688(C_word c,C_word *av) C_noret; static void C_ccall trf_8688(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8688(t0,t1);} C_noret_decl(trf_6592) static void C_ccall trf_6592(C_word c,C_word *av) C_noret; static void C_ccall trf_6592(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6592(t0,t1,t2);} C_noret_decl(trf_8671) static void C_ccall trf_8671(C_word c,C_word *av) C_noret; static void C_ccall trf_8671(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8671(t0,t1);} C_noret_decl(trf_8705) static void C_ccall trf_8705(C_word c,C_word *av) C_noret; static void C_ccall trf_8705(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8705(t0,t1);} C_noret_decl(trf_7561) static void C_ccall trf_7561(C_word c,C_word *av) C_noret; static void C_ccall trf_7561(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7561(t0,t1);} 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_7571) static void C_ccall trf_7571(C_word c,C_word *av) C_noret; static void C_ccall trf_7571(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7571(t0,t1,t2);} C_noret_decl(trf_2601) static void C_ccall trf_2601(C_word c,C_word *av) C_noret; static void C_ccall trf_2601(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2601(t0,t1,t2);} C_noret_decl(trf_7549) static void C_ccall trf_7549(C_word c,C_word *av) C_noret; static void C_ccall trf_7549(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7549(t0,t1);} C_noret_decl(trf_4743) static void C_ccall trf_4743(C_word c,C_word *av) C_noret; static void C_ccall trf_4743(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4743(t0,t1);} C_noret_decl(trf_5774) static void C_ccall trf_5774(C_word c,C_word *av) C_noret; static void C_ccall trf_5774(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5774(t0,t1);} C_noret_decl(trf_8629) static void C_ccall trf_8629(C_word c,C_word *av) C_noret; static void C_ccall trf_8629(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8629(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[1]; C_word t1=av[0]; f_7528(t0,t1);} C_noret_decl(trf_2634) static void C_ccall trf_2634(C_word c,C_word *av) C_noret; static void C_ccall trf_2634(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2634(t0,t1,t2);} C_noret_decl(trf_2646) static void C_ccall trf_2646(C_word c,C_word *av) C_noret; static void C_ccall trf_2646(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_2646(t0,t1,t2,t3,t4);} C_noret_decl(trf_7537) static void C_ccall trf_7537(C_word c,C_word *av) C_noret; static void C_ccall trf_7537(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7537(t0,t1);} C_noret_decl(trf_2649) static void C_ccall trf_2649(C_word c,C_word *av) C_noret; static void C_ccall trf_2649(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2649(t0,t1,t2,t3);} C_noret_decl(trf_3138) static void C_ccall trf_3138(C_word c,C_word *av) C_noret; static void C_ccall trf_3138(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3138(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[1]; C_word t1=av[0]; f_4860(t0,t1);} C_noret_decl(trf_4863) static void C_ccall trf_4863(C_word c,C_word *av) C_noret; static void C_ccall trf_4863(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4863(t0,t1);} C_noret_decl(trf_5767) static void C_ccall trf_5767(C_word c,C_word *av) C_noret; static void C_ccall trf_5767(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5767(t0,t1,t2,t3);} 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_8178) static void C_ccall trf_8178(C_word c,C_word *av) C_noret; static void C_ccall trf_8178(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8178(t0,t1);} C_noret_decl(trf_7092) static void C_ccall trf_7092(C_word c,C_word *av) C_noret; static void C_ccall trf_7092(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7092(t0,t1,t2);} C_noret_decl(trf_10215) static void C_ccall trf_10215(C_word c,C_word *av) C_noret; static void C_ccall trf_10215(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10215(t0,t1);} 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[1]; C_word t1=av[0]; f_3663(t0,t1);} C_noret_decl(trf_4764) static void C_ccall trf_4764(C_word c,C_word *av) C_noret; static void C_ccall trf_4764(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4764(t0,t1,t2,t3);} C_noret_decl(trf_4704) static void C_ccall trf_4704(C_word c,C_word *av) C_noret; static void C_ccall trf_4704(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4704(t0,t1,t2,t3);} C_noret_decl(trf_9479) static void C_ccall trf_9479(C_word c,C_word *av) C_noret; static void C_ccall trf_9479(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9479(t0,t1);} C_noret_decl(trf_9488) static void C_ccall trf_9488(C_word c,C_word *av) C_noret; static void C_ccall trf_9488(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9488(t0,t1);} C_noret_decl(trf_4733) static void C_ccall trf_4733(C_word c,C_word *av) C_noret; static void C_ccall trf_4733(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_4733(t0,t1,t2,t3,t4);} C_noret_decl(trf_6051) static void C_ccall trf_6051(C_word c,C_word *av) C_noret; static void C_ccall trf_6051(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6051(t0,t1);} C_noret_decl(trf_5863) static void C_ccall trf_5863(C_word c,C_word *av) C_noret; static void C_ccall trf_5863(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5863(t0,t1);} C_noret_decl(trf_5073) static void C_ccall trf_5073(C_word c,C_word *av) C_noret; static void C_ccall trf_5073(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5073(t0,t1);} C_noret_decl(trf_5013) static void C_ccall trf_5013(C_word c,C_word *av) C_noret; static void C_ccall trf_5013(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5013(t0,t1,t2);} C_noret_decl(trf_3508) static void C_ccall trf_3508(C_word c,C_word *av) C_noret; static void C_ccall trf_3508(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3508(t0,t1,t2,t3);} C_noret_decl(trf_5736) static void C_ccall trf_5736(C_word c,C_word *av) C_noret; static void C_ccall trf_5736(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5736(t0,t1,t2,t3);} C_noret_decl(trf_3545) static void C_ccall trf_3545(C_word c,C_word *av) C_noret; static void C_ccall trf_3545(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3545(t0,t1,t2,t3);} C_noret_decl(trf_9975) static void C_ccall trf_9975(C_word c,C_word *av) C_noret; static void C_ccall trf_9975(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9975(t0,t1);} C_noret_decl(trf_6388) static void C_ccall trf_6388(C_word c,C_word *av) C_noret; static void C_ccall trf_6388(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6388(t0,t1);} C_noret_decl(trf_9284) static void C_ccall trf_9284(C_word c,C_word *av) C_noret; static void C_ccall trf_9284(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9284(t0,t1);} C_noret_decl(trf_6809) static void C_ccall trf_6809(C_word c,C_word *av) C_noret; static void C_ccall trf_6809(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6809(t0,t1,t2);} C_noret_decl(trf_9257) static void C_ccall trf_9257(C_word c,C_word *av) C_noret; static void C_ccall trf_9257(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9257(t0,t1);} C_noret_decl(trf_6848) static void C_ccall trf_6848(C_word c,C_word *av) C_noret; static void C_ccall trf_6848(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6848(t0,t1,t2);} C_noret_decl(trf_5525) static void C_ccall trf_5525(C_word c,C_word *av) C_noret; static void C_ccall trf_5525(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5525(t0,t1,t2,t3);} C_noret_decl(trf_5519) static void C_ccall trf_5519(C_word c,C_word *av) C_noret; static void C_ccall trf_5519(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5519(t0,t1);} C_noret_decl(trf_8033) static void C_ccall trf_8033(C_word c,C_word *av) C_noret; static void C_ccall trf_8033(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8033(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[1]; C_word t1=av[0]; f_6079(t0,t1);} C_noret_decl(trf_5650) static void C_ccall trf_5650(C_word c,C_word *av) C_noret; static void C_ccall trf_5650(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5650(t0,t1,t2);} C_noret_decl(trf_8382) static void C_ccall trf_8382(C_word c,C_word *av) C_noret; static void C_ccall trf_8382(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8382(t0,t1);} C_noret_decl(trf_7497) static void C_ccall trf_7497(C_word c,C_word *av) C_noret; static void C_ccall trf_7497(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7497(t0,t1,t2);} C_noret_decl(trf_8361) static void C_ccall trf_8361(C_word c,C_word *av) C_noret; static void C_ccall trf_8361(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8361(t0,t1);} C_noret_decl(trf_6145) static void C_ccall trf_6145(C_word c,C_word *av) C_noret; static void C_ccall trf_6145(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6145(t0,t1);} C_noret_decl(trf_8819) static void C_ccall trf_8819(C_word c,C_word *av) C_noret; static void C_ccall trf_8819(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8819(t0,t1,t2);} C_noret_decl(trf_7472) static void C_ccall trf_7472(C_word c,C_word *av) C_noret; static void C_ccall trf_7472(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7472(t0,t1,t2);} C_noret_decl(trf_7409) static void C_ccall trf_7409(C_word c,C_word *av) C_noret; static void C_ccall trf_7409(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7409(t0,t1,t2);} C_noret_decl(trf_6625) static void C_ccall trf_6625(C_word c,C_word *av) C_noret; static void C_ccall trf_6625(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6625(t0,t1);} C_noret_decl(trf_4011) static void C_ccall trf_4011(C_word c,C_word *av) C_noret; static void C_ccall trf_4011(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4011(t0,t1,t2,t3);} 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_8090) static void C_ccall trf_8090(C_word c,C_word *av) C_noret; static void C_ccall trf_8090(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8090(t0,t1,t2);} C_noret_decl(trf_5321) static void C_ccall trf_5321(C_word c,C_word *av) C_noret; static void C_ccall trf_5321(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5321(t0,t1);} C_noret_decl(trf_7160) static void C_ccall trf_7160(C_word c,C_word *av) C_noret; static void C_ccall trf_7160(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7160(t0,t1,t2);} C_noret_decl(trf_7135) static void C_ccall trf_7135(C_word c,C_word *av) C_noret; static void C_ccall trf_7135(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7135(t0,t1,t2);} C_noret_decl(trf_8253) static void C_ccall trf_8253(C_word c,C_word *av) C_noret; static void C_ccall trf_8253(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8253(t0,t1);} C_noret_decl(trf_6446) static void C_ccall trf_6446(C_word c,C_word *av) C_noret; static void C_ccall trf_6446(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6446(t0,t1);} C_noret_decl(trf_3945) static void C_ccall trf_3945(C_word c,C_word *av) C_noret; static void C_ccall trf_3945(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3945(t0,t1,t2,t3);} 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[1]; C_word t1=av[0]; f_6979(t0,t1);} C_noret_decl(trf_6951) static void C_ccall trf_6951(C_word c,C_word *av) C_noret; static void C_ccall trf_6951(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6951(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_8560(t0,t1);} C_noret_decl(trf_3426) static void C_ccall trf_3426(C_word c,C_word *av) C_noret; static void C_ccall trf_3426(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3426(t0,t1);} C_noret_decl(trf_3974) static void C_ccall trf_3974(C_word c,C_word *av) C_noret; static void C_ccall trf_3974(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3974(t0,t1,t2,t3);} C_noret_decl(trf_8577) static void C_ccall trf_8577(C_word c,C_word *av) C_noret; static void C_ccall trf_8577(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8577(t0,t1);} C_noret_decl(trf_4522) static void C_ccall trf_4522(C_word c,C_word *av) C_noret; static void C_ccall trf_4522(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4522(t0,t1,t2,t3);} C_noret_decl(trf_5465) static void C_ccall trf_5465(C_word c,C_word *av) C_noret; static void C_ccall trf_5465(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5465(t0,t1);} C_noret_decl(trf_5468) static void C_ccall trf_5468(C_word c,C_word *av) C_noret; static void C_ccall trf_5468(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5468(t0,t1);} C_noret_decl(trf_10652) static void C_ccall trf_10652(C_word c,C_word *av) C_noret; static void C_ccall trf_10652(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10652(t0,t1);} C_noret_decl(trf_8594) static void C_ccall trf_8594(C_word c,C_word *av) C_noret; static void C_ccall trf_8594(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8594(t0,t1);} C_noret_decl(trf_3473) static void C_ccall trf_3473(C_word c,C_word *av) C_noret; static void C_ccall trf_3473(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3473(t0,t1,t2,t3);} C_noret_decl(trf_3420) static void C_ccall trf_3420(C_word c,C_word *av) C_noret; static void C_ccall trf_3420(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3420(t0,t1);} C_noret_decl(trf_9860) static void C_ccall trf_9860(C_word c,C_word *av) C_noret; static void C_ccall trf_9860(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9860(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[1]; C_word t1=av[0]; f_3797(t0,t1);} 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[1]; C_word t1=av[0]; f_8502(t0,t1);} C_noret_decl(trf_8521) static void C_ccall trf_8521(C_word c,C_word *av) C_noret; static void C_ccall trf_8521(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8521(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_5423) static void C_ccall trf_5423(C_word c,C_word *av) C_noret; static void C_ccall trf_5423(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5423(t0,t1,t2,t3);} C_noret_decl(trf_5142) static void C_ccall trf_5142(C_word c,C_word *av) C_noret; static void C_ccall trf_5142(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5142(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_5410(t0,t1);} C_noret_decl(trf_5169) static void C_ccall trf_5169(C_word c,C_word *av) C_noret; static void C_ccall trf_5169(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5169(t0,t1,t2);} C_noret_decl(trf_8490) static void C_ccall trf_8490(C_word c,C_word *av) C_noret; static void C_ccall trf_8490(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8490(t0,t1);} C_noret_decl(trf_2564) static void C_ccall trf_2564(C_word c,C_word *av) C_noret; static void C_ccall trf_2564(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2564(t0,t1,t2);} C_noret_decl(trf_2854) static void C_ccall trf_2854(C_word c,C_word *av) C_noret; static void C_ccall trf_2854(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_2854(t0,t1,t2,t3,t4);} C_noret_decl(trf_5245) static void C_ccall trf_5245(C_word c,C_word *av) C_noret; static void C_ccall trf_5245(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5245(t0,t1);} C_noret_decl(trf_7352) static void C_ccall trf_7352(C_word c,C_word *av) C_noret; static void C_ccall trf_7352(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_7352(t0,t1,t2,t3,t4);} 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[1]; C_word t1=av[0]; f_7359(t0,t1);} C_noret_decl(trf_5264) static void C_ccall trf_5264(C_word c,C_word *av) C_noret; static void C_ccall trf_5264(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5264(t0,t1);} C_noret_decl(trf_6261) static void C_ccall trf_6261(C_word c,C_word *av) C_noret; static void C_ccall trf_6261(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6261(t0,t1,t2);} C_noret_decl(trf_9524) static void C_ccall trf_9524(C_word c,C_word *av) C_noret; static void C_ccall trf_9524(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9524(t0,t1);} C_noret_decl(trf_5985) static void C_ccall trf_5985(C_word c,C_word *av) C_noret; static void C_ccall trf_5985(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5985(t0,t1,t2,t3);} C_noret_decl(trf_5102) static void C_ccall trf_5102(C_word c,C_word *av) C_noret; static void C_ccall trf_5102(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5102(t0,t1,t2,t3);} C_noret_decl(trf_8773) static void C_ccall trf_8773(C_word c,C_word *av) C_noret; static void C_ccall trf_8773(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8773(t0,t1);} C_noret_decl(trf_5222) static void C_ccall trf_5222(C_word c,C_word *av) C_noret; static void C_ccall trf_5222(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5222(t0,t1,t2);} C_noret_decl(trf_8739) static void C_ccall trf_8739(C_word c,C_word *av) C_noret; static void C_ccall trf_8739(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8739(t0,t1);} C_noret_decl(trf_8756) static void C_ccall trf_8756(C_word c,C_word *av) C_noret; static void C_ccall trf_8756(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8756(t0,t1);} /* a7031 in make-variable-list in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7032,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7040,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:984: number->string */ t4=*((C_word*)lf[106]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7082 in for-each-loop1119 in k7060 in generate-external-variables in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7084(C_word c,C_word *av){ C_word tmp; C_word 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_7084,2,av);} /* c-backend.scm:1001: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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); ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k5292 in k5289 in k5286 in k5283 in k5280 in k5277 in k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 in ... */ static void C_ccall f_5294(C_word c,C_word *av){ C_word tmp; C_word t0=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_5294,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5297,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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=*((C_word*)lf[1]+1); av2[3]=((C_word*)t0)[5]; C_apply(4,av2);}} else{ /* c-backend.scm:629: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[293]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} else{ if(C_truep(((C_word*)t0)[3])){{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=*((C_word*)lf[1]+1); av2[3]=((C_word*)t0)[5]; C_apply(4,av2);}} else{ /* c-backend.scm:629: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[293]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} /* k5295 in k5292 in k5289 in k5286 in k5283 in k5280 in k5277 in k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5297,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5300,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:630: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5289 in k5286 in k5283 in k5280 in k5277 in k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 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_5291,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5294,a[2]=((C_word*)t0)[2],a[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_5321,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_5321(t5,C_i_not(t4));} else{ t4=t3; f_5321(t4,C_SCHEME_FALSE);}} /* k7054 in a7047 in make-argument-list in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7056,2,av);} /* c-backend.scm:989: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#generate-external-variables in k2624 in k2539 in k2536 in k2533 */ 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=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_7058,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7062,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:995: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3306 in k3289 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3308,2,av);} /* c-backend.scm:206: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[79]; av2[3]=t1; av2[4]=lf[80]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* emit-debug-table in k2624 in k2539 in k2536 in k2533 */ 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=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_6773,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6777,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:922: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=C_SCHEME_TRUE; av2[4]=lf[508]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k6775 in emit-debug-table in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6777(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6777,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6837,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6871,tmp=(C_word)a,a+=2,tmp); /* c-backend.scm:931: sort */ t4=*((C_word*)lf[507]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6759 in k6756 in k6753 in k6750 in k6747 in k6744 in k6741 in k6738 in k6735 in k6732 in k6728 in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6761,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5067,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5071,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:562: get-output-string */ t5=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[488]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* for-each-loop611 in k4927 in k4912 in k4909 in k4906 in k4903 in k4900 in k4897 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_4939(C_word t0,C_word t1,C_word 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_4939,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_4949,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:555: gen */ t5=*((C_word*)lf[1]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=C_SCHEME_TRUE; 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);}}} /* k6750 in k6747 in k6744 in k6741 in k6738 in k6735 in k6732 in k6728 in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6752,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6755,a[2]=((C_word*)t0)[2],a[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*)lf[145]+1))){ /* c-backend.scm:913: emit-debug-table */ t3=*((C_word*)lf[490]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6755(2,av2);}}} /* k6753 in k6750 in k6747 in k6744 in k6741 in k6738 in k6735 in k6732 in k6728 in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(5,c,2)))){ C_save_and_reclaim((void *)f_6755,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6758,a[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:914: procedures */ t3=((C_word*)((C_word*)t0)[5])[1]; f_6051(t3,t2);} /* k6756 in k6753 in k6750 in k6747 in k6744 in k6741 in k6738 in k6735 in k6732 in k6728 in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6758(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6758,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6761,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:915: emit-procedure-table */ t3=*((C_word*)lf[489]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4903 in k4900 in k4897 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4905,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4908,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[260]+1))){ /* c-backend.scm:546: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[261]; av2[3]=*((C_word*)lf[260]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4969,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:548: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[263]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* a7047 in make-argument-list in k2624 in k2539 in k2536 in k2533 */ 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=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_7048,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7056,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:989: number->string */ t4=*((C_word*)lf[106]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4900 in k4897 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4902,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4905,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:545: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#make-argument-list in k2624 in k2539 in k2536 in k2533 */ 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=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,3)))){ C_save_and_reclaim((void *)f_7042,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7048,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:987: list-tabulate */ t5=*((C_word*)lf[532]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7038 in a7031 in make-variable-list in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7040,2,av);} /* c-backend.scm:984: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[531]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4906 in k4903 in k4900 in k4897 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_4908,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4911,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:550: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[256]; av2[4]=C_SCHEME_TRUE; av2[5]=C_SCHEME_TRUE; av2[6]=lf[257]; av2[7]=*((C_word*)lf[258]+1); av2[8]=lf[259]; ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k4800 in k4747 in k4744 in k4741 in push-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_4802(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_4802,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ /* c-backend.scm:505: gen */ t2=*((C_word*)lf[1]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[235]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[236]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ if(C_truep(C_i_greater_or_equalp(((C_word*)t0)[4],((C_word*)t0)[3]))){ /* c-backend.scm:507: gen */ t2=*((C_word*)lf[1]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[237]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4817,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:509: gen */ t3=*((C_word*)lf[1]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[245]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}} /* k3107 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_3109,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3110,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_3123,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:172: iota */ t5=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(1); av2[4]=C_fix(1); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k4815 in k4800 in k4747 in k4744 in k4741 in push-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(4,c,5)))){ C_save_and_reclaim((void *)f_4817,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4820,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:510: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[243]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[244]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k6732 in k6728 in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6734(C_word c,C_word *av){ C_word tmp; C_word t0=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_6734,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6737,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:906: declarations */ t3=((C_word*)((C_word*)t0)[10])[1]; f_5073(t3,t2);} /* k6728 in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_6730,2,av);} a=C_alloc(11); t2=C_mutate2((C_word*)lf[0]+1 /* (set! ##compiler#output ...) */,((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6734,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:905: header */ t4=((C_word*)((C_word*)t0)[12])[1]; f_4860(t4,t3);} /* k6735 in k6732 in k6728 in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6737(C_word c,C_word *av){ C_word tmp; C_word t0=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_6737,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6740,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:907: generate-external-variables */ t3=*((C_word*)lf[494]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[495]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3337 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3339,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3342,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:217: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* doloop969 in k6191 in k6188 in k6182 in k6155 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in ... */ static void C_fcall f_6202(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,5)))){ C_save_and_reclaim_args((void *)trf_6202,4,t0,t1,t2,t3);} a=C_alloc(6); 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|5,a[1]=(C_word)f_6212,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:882: gen */ t5=*((C_word*)lf[1]+1);{ C_word av2[6]; av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=lf[362]; av2[4]=t2; av2[5]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}} /* k4927 in k4912 in k4909 in k4906 in k4903 in k4900 in k4897 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 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_4929,2,av);} a=C_alloc(5); t2=*((C_word*)lf[255]+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_4939,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_4939(t6,((C_word*)t0)[2],*((C_word*)lf[255]+1));} /* k3872 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3874,2,av);} /* c-backend.scm:247: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[152]; av2[4]=t1; av2[5]=lf[153]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k6721 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in a6056 in procedures in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6723,2,av);} t2=((C_word*)t0)[2]; f_6079(t2,C_i_zerop(t1));} /* k6725 in k6065 in k6062 in k6059 in a6056 in procedures in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6727,2,av);}{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[482]+1); av2[3]=C_fix(0); av2[4]=t1; C_apply(5,av2);}} /* k3361 in k3358 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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,2)))){ C_save_and_reclaim((void *)f_3363,2,av);} /* c-backend.scm:223: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3358 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3360,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3363,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:222: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k3355 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_3357,2,av);} /* c-backend.scm:216: uncommentify */ t2=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4947 in for-each-loop611 in k4927 in k4912 in k4909 in k4906 in k4903 in k4900 in k4897 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_4949,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4939(t3,((C_word*)t0)[4],t2);} /* k3115 in k3112 in g186 in k3107 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3117,2,av);} /* c-backend.scm:171: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3112 in g186 in k3107 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3114,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3117,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:170: expr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2649(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k3351 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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,6)))){ C_save_and_reclaim((void *)f_3353,2,av);} /* c-backend.scm:215: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[87]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[88]; av2[5]=t1; av2[6]=lf[89]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* g186 in k3107 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_3110(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_3110,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3114,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:169: gen */ t5=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=lf[55]; av2[3]=t3; av2[4]=lf[56]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k3890 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3892,2,av);} /* c-backend.scm:239: lambda-literal-closure-size */ t2=*((C_word*)lf[157]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5905 in gen-lit in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5907,2,av);} t2=((C_word*)t0)[2]; f_5774(t2,C_i_not(t1));} /* gen-string-constant in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5909(C_word t0,C_word t1,C_word 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_5909,3,t0,t1,t2);} a=C_alloc(7); t3=C_block_size(t2); t4=t3; t5=C_fixnum_divide(t4,C_fix(80)); t6=t5; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5919,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t1,a[6]=t6,tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:724: modulo */ t8=*((C_word*)lf[358]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=t4; av2[3]=C_fix(80); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k6780 in for-each-loop1035 in k6835 in k6775 in emit-debug-table in k2624 in k2539 in k2536 in k2533 */ 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 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_6782,2,av);} a=C_alloc(8); t2=C_i_cddr(((C_word*)t0)[2]); t3=C_i_check_list_2(t2,lf[57]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6804,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_6809,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_6809(t8,t4,t2);} /* k10739 in encode-literal in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10741,2,av);} /* c-backend.scm:1406: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[842]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4994 in k4990 in k4986 in k4982 in k4978 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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,20)))){ C_save_and_reclaim((void *)f_4996,2,av);} /* c-backend.scm:536: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 21) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(21); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[265]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[266]; av2[5]=C_SCHEME_TRUE; av2[6]=lf[267]; av2[7]=C_SCHEME_TRUE; av2[8]=lf[268]; av2[9]=((C_word*)t0)[4]; av2[10]=C_make_character(45); av2[11]=((C_word*)t0)[5]; av2[12]=C_make_character(45); av2[13]=((C_word*)t0)[6]; av2[14]=C_make_character(32); av2[15]=((C_word*)t0)[7]; av2[16]=C_make_character(58); av2[17]=((C_word*)t0)[8]; av2[18]=C_SCHEME_TRUE; av2[19]=t1; av2[20]=lf[269]; ((C_proc)(void*)(*((C_word*)t2+1)))(21,av2);}} /* k4990 in k4986 in k4982 in k4978 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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,2)))){ C_save_and_reclaim((void *)f_4992,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4996,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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_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_5008,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_5049,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:541: chicken-version */ t10=*((C_word*)lf[276]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4967 in k4903 in k4900 in k4897 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4969(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4969,2,av);} /* c-backend.scm:549: gen-list */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[262]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* doloop827 in k5917 in gen-string-constant in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5924(C_word t0,C_word t1,C_word 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(16,0,4)))){ C_save_and_reclaim_args((void *)trf_5924,4,t0,t1,t2,t3);} a=C_alloc(16); if(C_truep(C_i_zerop(t2))){ t4=C_eqp(((C_word*)t0)[2],C_fix(0)); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5940,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(t4)){ t6=t5; f_5940(t6,t4);} else{ t6=C_u_i_zerop(((C_word*)t0)[5]); t7=t5; f_5940(t7,C_i_not(t6));}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5960,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[6],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5975,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5979,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=C_a_i_plus(&a,2,t3,C_fix(80)); /* c-backend.scm:730: string-like-substring */ f_5985(t6,((C_word*)t0)[4],t3,t7);}} /* k5917 in gen-string-constant in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_5919,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_5924,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t4,tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_5924(t6,((C_word*)t0)[5],((C_word*)t0)[6],C_fix(0));} /* k3310 in k3289 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_3312,2,av);} /* c-backend.scm:206: uncommentify */ t2=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5938 in doloop827 in k5917 in gen-string-constant in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(6,0,4)))){ C_save_and_reclaim_args((void *)trf_5940,2,t0,t1);} a=C_alloc(6); 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|2,a[1]=(C_word)f_5951,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:729: string-like-substring */ f_5985(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);}}} /* k5945 in k5938 in doloop827 in k5917 in gen-string-constant in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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,2)))){ C_save_and_reclaim((void *)f_5947,2,av);} /* c-backend.scm:729: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6744 in k6741 in k6738 in k6735 in k6732 in k6728 in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6746(C_word c,C_word *av){ C_word tmp; C_word t0=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_6746,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6749,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:910: generate-foreign-callback-stubs */ t3=*((C_word*)lf[491]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[254]+1); av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6741 in k6738 in k6735 in k6732 in k6728 in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(9,c,2)))){ C_save_and_reclaim((void *)f_6743,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6746,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:909: prototypes */ t3=((C_word*)((C_word*)t0)[9])[1]; f_5245(t3,t2);} /* k6738 in k6735 in k6732 in k6728 in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6740(C_word c,C_word *av){ C_word tmp; C_word t0=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_6740,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6743,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:908: generate-foreign-stubs */ t3=*((C_word*)lf[492]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[493]+1); av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6747 in k6744 in k6741 in k6738 in k6735 in k6732 in k6728 in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6749(C_word c,C_word *av){ C_word tmp; C_word t0=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_6749,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6752,a[2]=((C_word*)t0)[2],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:911: trampolines */ t3=((C_word*)((C_word*)t0)[7])[1]; f_5410(t3,t2);} /* k3340 in k3337 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3342,2,av);} /* c-backend.scm:218: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8720 in k8703 in k8686 in k8669 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8722(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_8722,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8729,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:1227: ->string */ t4=*((C_word*)lf[504]+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=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8739,a[2]=((C_word*)t0)[2],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_8739(t5,C_u_i_memq(t4,lf[736]));} else{ t4=t2; f_8739(t4,C_SCHEME_FALSE);}}} /* k6552 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in ... */ static void C_fcall f_6554(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_6554,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_6556,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_6556(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1);} /* k8727 in k8720 in k8703 in k8686 in k8669 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_8729(C_word c,C_word *av){ C_word tmp; C_word 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_8729,2,av);} /* c-backend.scm:1227: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* doloop893 in k6552 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in ... */ static void C_fcall f_6556(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,5)))){ C_save_and_reclaim_args((void *)trf_6556,4,t0,t1,t2,t3);} a=C_alloc(6); 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|5,a[1]=(C_word)f_6566,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:808: gen */ t5=*((C_word*)lf[1]+1);{ C_word av2[6]; av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=lf[453]; av2[4]=t2; av2[5]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}} /* g1980 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_10192(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_10192,3,t0,t1,t2);} if(C_truep(C_i_vectorp(t2))){ t3=C_i_vector_ref(t2,C_fix(0)); /* c-backend.scm:1352: foreign-result-conversion */ t4=*((C_word*)lf[194]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=t2; /* c-backend.scm:1352: foreign-result-conversion */ t4=*((C_word*)lf[194]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k8710 in k8703 in k8686 in k8669 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_8712(C_word c,C_word *av){ C_word tmp; C_word 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_8712,2,av);} /* c-backend.scm:1225: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3697 in k3681 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3699,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); /* c-backend.scm:302: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[112]; av2[3]=((C_word*)((C_word*)t0)[2])[1]; av2[4]=lf[113]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3690 in k3687 in k3684 in k3681 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3692,2,av);} /* c-backend.scm:319: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[109]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[110]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k8744 in k8737 in k8720 in k8703 in k8686 in k8669 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8746,2,av);} /* c-backend.scm:1229: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[725]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k8693 in k8686 in k8669 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ 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(0,c,5)))){ C_save_and_reclaim((void *)f_8695,2,av);} /* c-backend.scm:1223: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[719]; av2[3]=t1; av2[4]=lf[720]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k3687 in k3684 in k3681 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_3689,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3692,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:318: push-args */ t3=((C_word*)((C_word*)t0)[4])[1]; f_4733(t3,t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)((C_word*)t0)[7])[1]);} /* k3684 in k3681 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3686(C_word c,C_word *av){ C_word tmp; C_word t0=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_3686,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3689,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:317: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3681 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 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_3683,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3686,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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[111]+1))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3699,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_3709,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:300: number->string */ t5=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3716,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:301: number->string */ t5=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ if(C_truep(((C_word*)t0)[8])){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3723,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_3748,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:304: number->string */ t5=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ if(C_truep(((C_word*)t0)[10])){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3755,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_3762,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:311: number->string */ t5=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3766,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_3773,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:315: number->string */ t5=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}}}} /* k8686 in k8669 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8688(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_8688,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8695,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:1223: ->string */ t4=*((C_word*)lf[504]+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=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8705,a[2]=((C_word*)t0)[2],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_8705(t5,C_eqp(lf[738],t4));} else{ t4=t2; f_8705(t4,C_SCHEME_FALSE);}}} /* k4593 in k4590 in k4587 in k4584 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(6,c,2)))){ C_save_and_reclaim((void *)f_4595,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4598,a[2]=((C_word*)t0)[2],a[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:477: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(58); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4596 in k4593 in k4590 in k4587 in k4584 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ 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); t3=C_i_caddr(((C_word*)t0)[3]); /* c-backend.scm:478: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k4590 in k4587 in k4584 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4592,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4595,a[2]=((C_word*)t0)[2],a[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:476: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* doloop888 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in ... */ static void C_fcall f_6592(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,7)))){ C_save_and_reclaim_args((void *)trf_6592,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_6602,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:801: gen */ t4=*((C_word*)lf[1]+1);{ C_word av2[8]; av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=lf[454]; av2[4]=t2; av2[5]=lf[455]; av2[6]=t2; av2[7]=lf[456]; ((C_proc)(void*)(*((C_word*)t4+1)))(8,av2);}}} /* k8676 in k8669 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_8678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8678,2,av);} /* c-backend.scm:1221: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[718]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k8669 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8671(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_8671,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8678,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* c-backend.scm:1221: foreign-type-declaration */ t4=*((C_word*)lf[200]+1);{ C_word av2[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=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8688,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_8688(t5,C_eqp(lf[739],t4));} else{ t4=t2; f_8688(t4,C_SCHEME_FALSE);}}} /* k3372 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_3374,2,av);} /* c-backend.scm:220: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[90]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[91]; av2[5]=t1; av2[6]=lf[92]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* ##compiler#make-variable-list in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7026(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,3)))){ C_save_and_reclaim((void *)f_7026,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7032,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:982: list-tabulate */ t5=*((C_word*)lf[532]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k3376 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3378,2,av);} /* c-backend.scm:221: uncommentify */ t2=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4778 in k4775 in k4772 in doloop550 in k4753 in k4750 in k4747 in k4744 in k4741 in push-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 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_4780,2,av);} a=C_alloc(4); t2=C_a_i_plus(&a,2,((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_4764(t5,((C_word*)t0)[5],t2,t4);} /* k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 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_10188,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10192,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1350: g1980 */ t3=t2; f_10192(t3,((C_word*)t0)[3],t1);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10215,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_10215(t5,C_fixnum_greater_or_equal_p(t4,C_fix(2)));} else{ t3=t2; f_10215(t3,C_SCHEME_FALSE);}}} /* k3655 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3657,2,av);} t2=C_eqp(((C_word*)t0)[2],t1); if(C_truep(t2)){ /* c-backend.scm:257: lambda-literal-looping */ t3=*((C_word*)lf[107]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_3466(2,av2);}}} /* k8703 in k8686 in k8669 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8705(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_8705,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8712,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:1225: ->string */ t4=*((C_word*)lf[504]+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=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8722,a[2]=((C_word*)t0)[2],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_8722(t5,C_eqp(lf[737],t4));} else{ t4=t2; f_8722(t4,C_SCHEME_FALSE);}}} /* k8652 in map-loop1626 in k8603 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_8654(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8654,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8629(t6,((C_word*)t0)[5],t5);} /* k7565 in k7559 in k7547 in k7535 in k7526 in compute-size in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_7567,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7571,a[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:1107: g1417 */ t3=t2; f_7571(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[594]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7604,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_7604(t6,t4);} else{ t6=C_eqp(t3,lf[447]); if(C_truep(t6)){ t7=t5; f_7604(t7,t6);} else{ t7=C_eqp(t3,lf[597]); if(C_truep(t7)){ t8=t5; f_7604(t8,t7);} else{ t8=C_eqp(t3,lf[598]); if(C_truep(t8)){ t9=t5; f_7604(t9,t8);} else{ t9=C_eqp(t3,lf[599]); if(C_truep(t9)){ t10=t5; f_7604(t10,t9);} else{ t10=C_eqp(t3,lf[600]); if(C_truep(t10)){ t11=t5; f_7604(t11,t10);} else{ t11=C_eqp(t3,lf[601]); if(C_truep(t11)){ t12=t5; f_7604(t12,t11);} else{ t12=C_eqp(t3,lf[602]); t13=t5; f_7604(t13,(C_truep(t12)?t12:C_eqp(t3,lf[603])));}}}}}}}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* k7559 in k7547 in k7535 in k7526 in compute-size in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_7561(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_7561,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ /* c-backend.scm:1105: string-append */ t2=*((C_word*)lf[114]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[592]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[593]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7567,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:1107: ##sys#hash-table-ref */ t3=*((C_word*)lf[10]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[604]+1); av2[3]=((C_word*)t0)[6]; ((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_7567(2,av2);}}}} /* k5756 in loop in k5705 in k5687 in k5580 in literal-size in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_5758,2,av);} a=C_alloc(4); t2=C_a_i_plus(&a,2,((C_word*)t0)[2],t1); /* c-backend.scm:691: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_5736(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k3642 in k3639 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3644,2,av);} /* c-backend.scm:275: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3639 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3641,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3644,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:274: expr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2649(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k5065 in k6759 in k6756 in k6753 in k6750 in k6747 in k6744 in k6741 in k6738 in k6735 in k6732 in k6728 in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5067(C_word c,C_word *av){ C_word tmp; C_word 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_5067,2,av);} /* c-backend.scm:560: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 11) { av2=av; /* Re-use our own argvector */ } 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[485]; av2[5]=C_SCHEME_TRUE; av2[6]=t1; av2[7]=lf[486]; av2[8]=C_SCHEME_TRUE; av2[9]=lf[487]; av2[10]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(11,av2);}} /* for-each-loop901 in k6504 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 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 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,6)))){ C_save_and_reclaim_args((void *)trf_6529,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_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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6515,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t8=C_i_cdr(t6); t9=C_eqp(t8,lf[442]); if(C_truep(t9)){ t10=C_u_i_car(t6); /* c-backend.scm:811: gen */ t11=*((C_word*)lf[1]+1);{ C_word av2[7]; av2[0]=t11; av2[1]=t5; av2[2]=C_SCHEME_TRUE; av2[3]=lf[443]; av2[4]=C_make_character(32); av2[5]=t10; av2[6]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t11+1)))(7,av2);}} else{ t10=C_eqp(t8,lf[444]); if(C_truep(t10)){ t11=C_u_i_car(t6); /* c-backend.scm:811: gen */ t12=*((C_word*)lf[1]+1);{ C_word av2[7]; av2[0]=t12; av2[1]=t5; av2[2]=C_SCHEME_TRUE; av2[3]=lf[445]; av2[4]=C_make_character(32); av2[5]=t11; av2[6]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t12+1)))(7,av2);}} else{ t11=C_eqp(t8,lf[15]); if(C_truep(t11)){ t12=C_u_i_car(t6); /* c-backend.scm:811: gen */ t13=*((C_word*)lf[1]+1);{ C_word av2[7]; av2[0]=t13; av2[1]=t5; av2[2]=C_SCHEME_TRUE; av2[3]=lf[446]; av2[4]=C_make_character(32); av2[5]=t12; av2[6]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t13+1)))(7,av2);}} else{ t12=C_eqp(t8,lf[447]); if(C_truep(t12)){ t13=C_u_i_car(t6); /* c-backend.scm:811: gen */ t14=*((C_word*)lf[1]+1);{ C_word av2[7]; av2[0]=t14; av2[1]=t5; av2[2]=C_SCHEME_TRUE; av2[3]=lf[448]; av2[4]=C_make_character(32); av2[5]=t13; av2[6]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t14+1)))(7,av2);}} else{ t13=C_eqp(t8,lf[449]); if(C_truep(t13)){ t14=C_u_i_car(t6); /* c-backend.scm:811: gen */ t15=*((C_word*)lf[1]+1);{ C_word av2[7]; av2[0]=t15; av2[1]=t5; av2[2]=C_SCHEME_TRUE; av2[3]=lf[450]; av2[4]=C_make_character(32); av2[5]=t14; av2[6]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t15+1)))(7,av2);}} else{ t14=C_eqp(t8,lf[12]); if(C_truep(t14)){ t15=C_u_i_car(t6); /* c-backend.scm:811: gen */ t16=*((C_word*)lf[1]+1);{ C_word av2[7]; av2[0]=t16; av2[1]=t5; av2[2]=C_SCHEME_TRUE; av2[3]=lf[451]; av2[4]=C_make_character(32); av2[5]=t15; av2[6]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t16+1)))(7,av2);}} else{ /* c-backend.scm:746: bomb */ t15=*((C_word*)lf[8]+1);{ C_word av2[4]; av2[0]=t15; av2[1]=t7; av2[2]=lf[452]; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t15+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);}}} /* k5778 in k5772 in gen-lit in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 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_5780,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=*((C_word*)lf[344]+1); t3=C_eqp(((C_word*)t0)[3],*((C_word*)lf[344]+1)); if(C_truep(t3)){ /* c-backend.scm:700: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[345]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ if(C_truep(C_booleanp(((C_word*)t0)[3]))){ if(C_truep(((C_word*)t0)[3])){ /* c-backend.scm:702: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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[346]; av2[6]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} else{ /* c-backend.scm:702: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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[347]; av2[6]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t4+1)))(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:704: gen */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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[348]; av2[5]=t4; av2[6]=lf[349]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} else{ if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){ t4=C_slot(((C_word*)t0)[3],C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5830,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:707: c-ify-string */ t7=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ if(C_truep(C_i_nullp(((C_word*)t0)[3]))){ /* c-backend.scm:712: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[353]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_immp(((C_word*)t0)[3]); t5=(C_truep(t4)?C_SCHEME_FALSE:C_lambdainfop(((C_word*)t0)[3])); if(C_truep(t5)){ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_fixnump(((C_word*)t0)[3]); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5863,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); if(C_truep(t6)){ t8=t7; f_5863(t8,t6);} else{ t8=C_immp(((C_word*)t0)[3]); t9=t7; f_5863(t9,C_i_not(t8));}}}}}}}}} /* g1417 in k7565 in k7559 in k7547 in k7535 in k7526 in compute-size in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_7571(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_7571,3,t0,t1,t2);} if(C_truep(C_i_vectorp(t2))){ t3=C_i_vector_ref(t2,C_fix(0)); /* c-backend.scm:1109: compute-size */ t4=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; f_7518(5,av2);}} else{ t3=t2; /* c-backend.scm:1109: compute-size */ t4=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; f_7518(5,av2);}}} /* k5055 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5057,2,av);} /* c-backend.scm:530: ##sys#decode-seconds */ t2=*((C_word*)lf[277]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f11817 in k4119 in k4116 in k4113 in k4110 in k4107 in k4198 in k4097 in k4091 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f11817(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f11817,2,av);} /* c-backend.scm:388: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f11813 in k4051 in k4067 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f11813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f11813,2,av);} /* c-backend.scm:354: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k2594 in gen-list in k2539 in k2536 in k2533 */ 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(5,c,3)))){ C_save_and_reclaim((void *)f_2596,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_2601,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_2601(t5,((C_word*)t0)[2],t1);} /* for-each-loop47 in k2594 in gen-list in k2539 in k2536 in k2533 */ static void C_fcall f_2601(C_word t0,C_word t1,C_word 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_2601,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_2611,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:49: display */ t5=*((C_word*)lf[3]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[0]+1); ((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);}}} /* k4747 in k4744 in k4741 in push-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_4749,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4752,a[2]=((C_word*)t0)[2],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_4802,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_4802(t5,t3);} else{ t5=C_i_lessp(((C_word*)t0)[9],((C_word*)t0)[8]); t6=t4; f_4802(t6,(C_truep(t5)?C_eqp(t1,lf[246]):C_SCHEME_FALSE));}} /* k4744 in k4741 in push-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4746(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4746,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4749,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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:496: lambda-literal-rest-argument-mode */ t4=*((C_word*)lf[247]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7547 in k7535 in k7526 in compute-size in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_7549(C_word t0,C_word 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,7)))){ C_save_and_reclaim_args((void *)trf_7549,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ /* c-backend.scm:1103: string-append */ t2=*((C_word*)lf[114]+1);{ C_word av2[8]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[588]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[589]; av2[6]=((C_word*)t0)[4]; av2[7]=lf[590]; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} else{ t2=C_eqp(((C_word*)t0)[5],lf[591]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7561,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_7561(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[5],lf[605]); if(C_truep(t4)){ t5=t3; f_7561(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[5],lf[606]); if(C_truep(t5)){ t6=t3; f_7561(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[5],lf[607]); t7=t3; f_7561(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[5],lf[608])));}}}}} /* k4741 in push-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_4743(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_4743,2,t0,t1);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4746,a[2]=((C_word*)t0)[2],a[3]=((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:495: lambda-literal-argument-count */ t4=*((C_word*)lf[248]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10117 in k10114 in k10111 in k10105 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10119,2,av);} /* c-backend.scm:1344: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5772 in gen-lit in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5774(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,6)))){ C_save_and_reclaim_args((void *)trf_5774,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ /* c-backend.scm:697: gen */ t2=*((C_word*)lf[1]+1);{ 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[342]; av2[5]=((C_word*)t0)[4]; av2[6]=lf[343]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5780,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:698: block-variable-literal? */ t3=*((C_word*)lf[340]+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);}}} /* k10111 in k10105 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10113(C_word c,C_word *av){ C_word tmp; C_word t0=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_10113,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10116,a[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:1344: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10114 in k10111 in k10105 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_10116,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10119,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1344: ##sys#write-char-0 */ t3=*((C_word*)lf[329]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(44); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4824 in k4821 in k4818 in k4815 in k4800 in k4747 in k4744 in k4741 in push-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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,5)))){ 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-backend.scm:513: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[239]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[240]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4821 in k4818 in k4815 in k4800 in k4747 in k4744 in k4741 in push-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(4,c,3)))){ C_save_and_reclaim((void *)f_4823,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4826,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:512: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[241]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4818 in k4815 in k4800 in k4747 in k4744 in k4741 in push-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(4,c,3)))){ C_save_and_reclaim((void *)f_4820,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4823,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:511: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[242]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4827 in k4824 in k4821 in k4818 in k4815 in k4800 in k4747 in k4744 in k4741 in push-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4829,2,av);} /* c-backend.scm:514: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[238]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k10288 in k10285 in k10282 in k10276 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10290,2,av);} /* c-backend.scm:1360: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6504 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 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 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_6506,2,av);} a=C_alloc(5); t2=C_i_check_list_2(((C_word*)t0)[2],lf[57]); 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_6529,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_6529(t6,((C_word*)t0)[3],((C_word*)t0)[2]);} /* map-loop1626 in k8603 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8629(C_word 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_8629,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_8654,a[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[200]+1); /* c-backend.scm:1217: g1649 */ t6=*((C_word*)lf[200]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[716]; ((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);}}} /* k8625 in k8603 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_8627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8627,2,av);} /* c-backend.scm:1216: string-intersperse */ t2=*((C_word*)lf[270]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[715]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4753 in k4750 in k4747 in k4744 in k4741 in push-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_4755,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_4764,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_4764(t6,((C_word*)t0)[5],t2,((C_word*)t0)[6]);} /* k4750 in k4747 in k4744 in k4741 in push-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_4752,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4755,a[2]=((C_word*)t0)[2],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:515: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[233]; av2[4]=((C_word*)t0)[2]; av2[5]=lf[234]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_4755(2,av2);}}} /* k3127 in k3121 in k3107 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_3129,2,av);} a=C_alloc(4); t2=C_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); /* c-backend.scm:173: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[58]; av2[3]=t2; av2[4]=lf[59]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10285 in k10282 in k10276 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10287(C_word c,C_word *av){ C_word tmp; C_word t0=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_10287,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10290,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1360: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[828]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10282 in k10276 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10284(C_word c,C_word *av){ C_word tmp; C_word t0=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_10284,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10287,a[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:1360: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3121 in k3107 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 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_3123,2,av);} a=C_alloc(10); t2=C_i_check_list_2(((C_word*)t0)[2],lf[57]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3129,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|3,a[1]=(C_word)f_3138,a[2]=t5,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_3138(t7,t3,((C_word*)t0)[2],t1);} /* k8145 in a8142 in k8133 in k8130 in k8124 in k8121 in k8118 in k8115 in generate-foreign-callback-header in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_8147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8147,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); if(C_truep(C_i_pairp(t3))){ /* c-backend.scm:1151: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a8142 in k8133 in k8130 in k8124 in k8121 in k8118 in k8115 in generate-foreign-callback-header in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_8143(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(7,c,3)))){ C_save_and_reclaim((void *)f_8143,4,av);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8147,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8162,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=C_i_car(t3); t7=C_i_car(t2); /* c-backend.scm:1150: foreign-type-declaration */ t8=*((C_word*)lf[200]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t5; av2[2]=t6; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k2636 in find-lambda in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2638,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* c-backend.scm:73: bomb */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[9]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k7526 in compute-size in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_7528(C_word t0,C_word t1){ C_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(8,0,2)))){ C_save_and_reclaim_args((void *)trf_7528,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[585]); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7537,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_7537(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[4],lf[612]); if(C_truep(t4)){ t5=t3; f_7537(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[4],lf[597]); if(C_truep(t5)){ t6=t3; f_7537(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[4],lf[613]); if(C_truep(t6)){ t7=t3; f_7537(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[4],lf[614]); if(C_truep(t7)){ t8=t3; f_7537(t8,t7);} else{ t8=C_eqp(((C_word*)t0)[4],lf[615]); if(C_truep(t8)){ t9=t3; f_7537(t9,t8);} else{ t9=C_eqp(((C_word*)t0)[4],lf[616]); if(C_truep(t9)){ t10=t3; f_7537(t10,t9);} else{ t10=C_eqp(((C_word*)t0)[4],lf[617]); if(C_truep(t10)){ t11=t3; f_7537(t11,t10);} else{ t11=C_eqp(((C_word*)t0)[4],lf[618]); if(C_truep(t11)){ t12=t3; f_7537(t12,t11);} else{ t12=C_eqp(((C_word*)t0)[4],lf[619]); if(C_truep(t12)){ t13=t3; f_7537(t13,t12);} else{ t13=C_eqp(((C_word*)t0)[4],lf[599]); if(C_truep(t13)){ t14=t3; f_7537(t14,t13);} else{ t14=C_eqp(((C_word*)t0)[4],lf[620]); if(C_truep(t14)){ t15=t3; f_7537(t15,t14);} else{ t15=C_eqp(((C_word*)t0)[4],lf[621]); if(C_truep(t15)){ t16=t3; f_7537(t16,t15);} else{ t16=C_eqp(((C_word*)t0)[4],lf[622]); if(C_truep(t16)){ t17=t3; f_7537(t17,t16);} else{ t17=C_eqp(((C_word*)t0)[4],lf[623]); t18=t3; f_7537(t18,(C_truep(t17)?t17:C_eqp(((C_word*)t0)[4],lf[624])));}}}}}}}}}}}}}}}} /* k6537 in for-each-loop901 in k6504 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 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);} /* k4846 in k4843 in push-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4848,2,av);} t2=((C_word*)t0)[2]; f_4743(t2,C_i_not(t1));} /* k4843 in push-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4845,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4848,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_4743(t4,C_i_not(t3));} else{ /* c-backend.scm:494: lambda-literal-direct */ t3=*((C_word*)lf[249]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* f11805 in k3591 in k3585 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f11805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f11805,2,av);} /* c-backend.scm:280: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[102]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* find-lambda in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_2634(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_2634,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2638,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:72: ##sys#hash-table-ref */ t4=*((C_word*)lf[10]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8603 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_8605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_8605,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8609,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[714]); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8627,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_8629,a[2]=t6,a[3]=t12,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_8629(t14,t10,t8);} /* k8133 in k8130 in k8124 in k8121 in k8118 in k8115 in generate-foreign-callback-header in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_8135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8135,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8138,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8143,tmp=(C_word)a,a+=2,tmp); /* c-backend.scm:1148: pair-for-each */ t4=*((C_word*)lf[229]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(81,c,5)))){ C_save_and_reclaim((void *)f_2632,2,av);} a=C_alloc(81); 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_2634,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_2646,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|2,a[1]=(C_word)f_4860,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp)); t29=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5073,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp)); t30=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5245,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp)); t31=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5410,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp)); t32=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5519,a[2]=t19,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp)); t33=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5575,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_5767,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_5909,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_5985,tmp=(C_word)a,a+=2,tmp)); t37=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6051,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=t15,a[6]=t17,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp)); t38=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6730,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=t25,a[7]=((C_word*)t0)[10],a[8]=t13,a[9]=((C_word*)t0)[7],a[10]=t11,a[11]=t9,a[12]=t7,tmp=(C_word)a,a+=13,tmp); /* c-backend.scm:903: debugging */ t39=*((C_word*)lf[473]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t39; av2[1]=t38; av2[2]=lf[496]; av2[3]=lf[497]; ((C_proc)(void*)(*((C_word*)t39+1)))(4,av2);}} /* k8599 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ 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,2)))){ C_save_and_reclaim((void *)f_8601,2,av);} /* c-backend.scm:1212: str */ t2=((C_word*)t0)[2]; f_8183(t2,((C_word*)t0)[3],t1);} /* k8136 in k8133 in k8130 in k8124 in k8121 in k8118 in k8115 in generate-foreign-callback-header in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_8138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8138,2,av);} /* c-backend.scm:1153: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8130 in k8124 in k8121 in k8118 in k8115 in generate-foreign-callback-header in k2624 in k2539 in k2536 in k2533 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_8132,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8135,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_8174,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:1147: foreign-type-declaration */ t5=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=lf[656]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k8607 in k8603 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_8609(C_word c,C_word *av){ C_word tmp; C_word 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_8609,2,av);} /* c-backend.scm:1213: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[712]; av2[4]=t1; av2[5]=lf[713]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_2646(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(21,0,5)))){ C_save_and_reclaim_args((void *)trf_2646,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_2649,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_4704,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_4733,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); /* c-backend.scm:523: expr */ t14=((C_word*)t6)[1]; f_2649(t14,t1,t2,t3);} /* k9495 in k9486 in k9477 in k9282 in k9255 in foreign-argument-conversion in k2624 in k2539 in k2536 in k2533 */ 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 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_9497,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=t1; if(C_truep(C_i_vectorp(t3))){ t4=C_i_vector_ref(t3,C_fix(0)); /* c-backend.scm:1301: foreign-argument-conversion */ t5=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* c-backend.scm:1301: foreign-argument-conversion */ t4=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9524,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_9524(t5,C_fixnum_greater_or_equal_p(t4,C_fix(2)));} else{ t3=t2; f_9524(t3,C_SCHEME_FALSE);}}} /* k7535 in k7526 in compute-size in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_7537(C_word t0,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_7537,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ /* c-backend.scm:1101: string-append */ t2=*((C_word*)lf[114]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[586]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[587]); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7549,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_7549(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[4],lf[609]); if(C_truep(t4)){ t5=t3; f_7549(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[4],lf[610]); if(C_truep(t5)){ t6=t3; f_7549(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[4],lf[610]); t7=t3; f_7549(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[4],lf[611])));}}}}} /* expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_2649(C_word t0,C_word t1,C_word 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(24,0,6)))){ C_save_and_reclaim_args((void *)trf_2649,4,t0,t1,t2,t3);} a=C_alloc(24); 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=C_eqp(t11,lf[11]); if(C_truep(t12)){ t13=C_i_car(t9); t14=C_eqp(t13,lf[12]); if(C_truep(t14)){ if(C_truep(C_i_cadr(t9))){ /* c-backend.scm:85: gen */ t15=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t15; av2[1]=t1; av2[2]=lf[13]; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} else{ /* c-backend.scm:85: gen */ t15=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t15; av2[1]=t1; av2[2]=lf[14]; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}} else{ t15=C_eqp(t13,lf[15]); if(C_truep(t15)){ t16=C_i_cadr(t9); t17=C_fix(C_character_code(t16)); /* c-backend.scm:86: gen */ t18=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t18; av2[1]=t1; av2[2]=lf[16]; av2[3]=t17; av2[4]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t18+1)))(5,av2);}} else{ t16=C_eqp(t13,lf[17]); if(C_truep(t16)){ /* c-backend.scm:87: gen */ t17=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t17; av2[1]=t1; av2[2]=lf[18]; ((C_proc)(void*)(*((C_word*)t17+1)))(3,av2);}} else{ t17=C_eqp(t13,lf[19]); if(C_truep(t17)){ t18=C_i_cadr(t9); /* c-backend.scm:88: gen */ t19=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t19; av2[1]=t1; av2[2]=lf[20]; av2[3]=t18; av2[4]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}} else{ t18=C_eqp(t13,lf[21]); if(C_truep(t18)){ /* c-backend.scm:89: gen */ t19=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t19; av2[1]=t1; av2[2]=lf[22]; ((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}} else{ /* c-backend.scm:90: bomb */ t19=*((C_word*)lf[8]+1);{ C_word av2[3]; av2[0]=t19; av2[1]=t1; av2[2]=lf[23]; ((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}}}}}}} else{ t13=C_eqp(t11,lf[24]); if(C_truep(t13)){ t14=C_i_car(t9); if(C_truep(C_i_vectorp(t14))){ t15=C_i_vector_ref(t14,C_fix(0)); /* c-backend.scm:95: gen */ t16=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t16; av2[1]=t1; av2[2]=lf[25]; av2[3]=t15; av2[4]=lf[26]; ((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}} else{ t15=C_u_i_car(t9); /* c-backend.scm:96: gen */ t16=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t16; av2[1]=t1; av2[2]=lf[27]; av2[3]=t15; av2[4]=C_make_character(93); ((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}}} else{ t14=C_eqp(t11,lf[28]); if(C_truep(t14)){ t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2796,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:99: gen */ t16=*((C_word*)lf[1]+1);{ C_word av2[4]; av2[0]=t16; av2[1]=t15; av2[2]=C_SCHEME_TRUE; av2[3]=lf[31]; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}} else{ t15=C_eqp(t11,lf[32]); if(C_truep(t15)){ t16=C_i_car(t9); /* c-backend.scm:108: gen */ t17=*((C_word*)lf[1]+1);{ C_word av2[4]; av2[0]=t17; av2[1]=t1; av2[2]=lf[33]; av2[3]=t16; ((C_proc)(void*)(*((C_word*)t17+1)))(4,av2);}} else{ t16=C_eqp(t11,lf[34]); if(C_truep(t16)){ t17=C_i_car(t9); 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|3,a[1]=(C_word)f_2854,a[2]=t19,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t21=((C_word*)t19)[1]; f_2854(t21,t1,t6,t3,t17);} else{ t17=C_eqp(t11,lf[35]); if(C_truep(t17)){ t18=C_i_car(t9); t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2906,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:121: gen */ t20=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t20; av2[1]=t19; av2[2]=C_SCHEME_TRUE; av2[3]=t18; av2[4]=C_make_character(61); ((C_proc)(void*)(*((C_word*)t20+1)))(5,av2);}} else{ t18=C_eqp(t11,lf[36]); if(C_truep(t18)){ t19=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2932,a[2]=t9,a[3]=t1,a[4]=t6,a[5]=((C_word*)t0)[2],a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:127: gen */ t20=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t20; av2[1]=t19; av2[2]=lf[38]; ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}} else{ t19=C_eqp(t11,lf[39]); if(C_truep(t19)){ t20=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2959,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:132: gen */ t21=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t21; av2[1]=t20; av2[2]=lf[41]; ((C_proc)(void*)(*((C_word*)t21+1)))(3,av2);}} else{ t20=C_eqp(t11,lf[42]); if(C_truep(t20)){ t21=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2978,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t9,tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:137: gen */ t22=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t22; av2[1]=t21; av2[2]=lf[43]; ((C_proc)(void*)(*((C_word*)t22+1)))(3,av2);}} else{ t21=C_eqp(t11,lf[44]); if(C_truep(t21)){ t22=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3011,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t9,tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:144: gen */ t23=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t23; av2[1]=t22; av2[2]=lf[47]; ((C_proc)(void*)(*((C_word*)t23+1)))(3,av2);}} else{ t22=C_eqp(t11,lf[48]); if(C_truep(t22)){ t23=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3048,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:151: gen */ t24=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t24; av2[1]=t23; av2[2]=lf[50]; ((C_proc)(void*)(*((C_word*)t24+1)))(3,av2);}} else{ t23=C_eqp(t11,lf[51]); if(C_truep(t23)){ t24=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3077,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:158: gen */ t25=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t25; av2[1]=t24; av2[2]=lf[53]; ((C_proc)(void*)(*((C_word*)t25+1)))(3,av2);}} else{ t24=C_eqp(t11,lf[54]); if(C_truep(t24)){ t25=C_i_car(t9); t26=t25; t27=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3109,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t6,a[5]=t26,a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:166: gen */ t28=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t28; av2[1]=t27; av2[2]=lf[61]; av2[3]=t26; av2[4]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t28+1)))(5,av2);}} else{ t25=C_eqp(t11,lf[62]); if(C_truep(t25)){ t26=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3182,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:176: gen */ t27=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t27; av2[1]=t26; av2[2]=lf[64]; ((C_proc)(void*)(*((C_word*)t27+1)))(3,av2);}} else{ t26=C_eqp(t11,lf[65]); if(C_truep(t26)){ t27=C_i_car(t9); /* c-backend.scm:180: gen */ t28=*((C_word*)lf[1]+1);{ C_word av2[4]; av2[0]=t28; av2[1]=t1; av2[2]=C_make_character(116); av2[3]=t27; ((C_proc)(void*)(*((C_word*)t28+1)))(4,av2);}} else{ t27=C_eqp(t11,lf[66]); if(C_truep(t27)){ t28=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3214,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t29=C_i_car(t9); /* c-backend.scm:183: gen */ t30=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t30; av2[1]=t28; av2[2]=C_make_character(116); av2[3]=t29; av2[4]=C_make_character(61); ((C_proc)(void*)(*((C_word*)t30+1)))(5,av2);}} else{ t28=C_eqp(t11,lf[67]); if(C_truep(t28)){ t29=C_i_car(t9); t30=t29; t31=C_i_cadr(t9); if(C_truep(C_i_caddr(t9))){ if(C_truep(t31)){ /* c-backend.scm:192: gen */ t32=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t32; av2[1]=t1; av2[2]=lf[68]; av2[3]=t30; av2[4]=lf[69]; ((C_proc)(void*)(*((C_word*)t32+1)))(5,av2);}} else{ t32=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3256,a[2]=t1,a[3]=t30,tmp=(C_word)a,a+=4,tmp); t33=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3260,a[2]=t32,tmp=(C_word)a,a+=3,tmp); t34=C_i_cadddr(t9); /* c-backend.scm:194: ##sys#symbol->qualified-string */ t35=*((C_word*)lf[73]+1);{ C_word av2[3]; av2[0]=t35; av2[1]=t33; av2[2]=t34; ((C_proc)(void*)(*((C_word*)t35+1)))(3,av2);}}} else{ if(C_truep(t31)){ /* c-backend.scm:196: gen */ t32=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t32; av2[1]=t1; av2[2]=lf[74]; av2[3]=t30; av2[4]=lf[75]; ((C_proc)(void*)(*((C_word*)t32+1)))(5,av2);}} else{ /* c-backend.scm:197: gen */ t32=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t32; av2[1]=t1; av2[2]=lf[76]; av2[3]=t30; av2[4]=lf[77]; ((C_proc)(void*)(*((C_word*)t32+1)))(5,av2);}}}} else{ t29=C_eqp(t11,lf[78]); if(C_truep(t29)){ t30=C_i_car(t9); t31=C_i_cadr(t9); t32=C_i_caddr(t9); t33=t32; t34=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3291,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t33,tmp=(C_word)a,a+=7,tmp); if(C_truep(t31)){ /* c-backend.scm:204: gen */ t35=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t35; av2[1]=t34; av2[2]=lf[82]; av2[3]=t30; av2[4]=lf[83]; ((C_proc)(void*)(*((C_word*)t35+1)))(5,av2);}} else{ /* c-backend.scm:205: gen */ t35=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t35; av2[1]=t34; av2[2]=lf[84]; av2[3]=t30; av2[4]=lf[85]; ((C_proc)(void*)(*((C_word*)t35+1)))(5,av2);}}} else{ t30=C_eqp(t11,lf[86]); if(C_truep(t30)){ t31=C_i_car(t9); t32=t31; t33=C_i_cadr(t9); t34=C_i_caddr(t9); if(C_truep(t33)){ t35=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3339,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); t36=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3353,a[2]=t35,a[3]=t32,tmp=(C_word)a,a+=4,tmp); t37=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3357,a[2]=t36,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:216: ##sys#symbol->qualified-string */ t38=*((C_word*)lf[73]+1);{ C_word av2[3]; av2[0]=t38; av2[1]=t37; av2[2]=t34; ((C_proc)(void*)(*((C_word*)t38+1)))(3,av2);}} else{ t35=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3360,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); t36=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3374,a[2]=t35,a[3]=t32,tmp=(C_word)a,a+=4,tmp); t37=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3378,a[2]=t36,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:221: ##sys#symbol->qualified-string */ t38=*((C_word*)lf[73]+1);{ C_word av2[3]; av2[0]=t38; av2[1]=t37; av2[2]=t34; ((C_proc)(void*)(*((C_word*)t38+1)))(3,av2);}}} else{ t31=C_eqp(t11,lf[93]); if(C_truep(t31)){ /* c-backend.scm:225: gen */ t32=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t32; av2[1]=t1; av2[2]=lf[94]; ((C_proc)(void*)(*((C_word*)t32+1)))(3,av2);}} else{ t32=C_eqp(t11,lf[95]); if(C_truep(t32)){ t33=C_i_cdr(t6); t34=t33; t35=C_i_length(t34); t36=t35; t37=t3; t38=C_a_i_plus(&a,2,t36,C_fix(1)); t39=t38; t40=C_i_car(t9); t41=t40; t42=C_i_cadr(t9); t43=t42; t44=C_u_i_cdr(t9); t45=C_u_i_cdr(t44); t46=C_i_pairp(t45); t47=t46; t48=(C_truep(t47)?C_i_caddr(t9):C_SCHEME_FALSE); t49=t48; t50=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_3417,a[2]=t6,a[3]=t1,a[4]=t39,a[5]=((C_word*)t0)[3],a[6]=t34,a[7]=t3,a[8]=((C_word*)t0)[2],a[9]=t36,a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[5],a[12]=t37,a[13]=t43,a[14]=t49,a[15]=t41,a[16]=((C_word*)t0)[6],a[17]=((C_word*)t0)[7],a[18]=t9,a[19]=t47,tmp=(C_word)a,a+=20,tmp); /* c-backend.scm:236: source-info->string */ t51=*((C_word*)lf[159]+1);{ C_word av2[3]; av2[0]=t51; av2[1]=t50; av2[2]=t49; ((C_proc)(void*)(*((C_word*)t51+1)))(3,av2);}} else{ t33=C_eqp(t11,lf[160]); if(C_truep(t33)){ t34=C_i_length(t6); t35=t34; t36=C_a_i_plus(&a,2,t35,C_fix(1)); t37=t36; t38=C_i_car(t9); t39=t38; t40=C_i_cadr(t9); t41=t40; t42=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4069,a[2]=t39,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t1,a[6]=t35,a[7]=t6,a[8]=t37,a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],a[11]=t41,tmp=(C_word)a,a+=12,tmp); /* c-backend.scm:336: lambda-literal-closure-size */ t43=*((C_word*)lf[157]+1);{ C_word av2[3]; av2[0]=t43; av2[1]=t42; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t43+1)))(3,av2);}} else{ t34=C_eqp(t11,lf[164]); if(C_truep(t34)){ t35=C_i_cdr(t6); t36=t35; t37=C_i_length(t36); t38=C_a_i_plus(&a,2,t37,C_fix(1)); t39=C_i_car(t9); t40=t39; t41=C_i_caddr(t9); t42=t41; t43=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4093,a[2]=t9,a[3]=t6,a[4]=t1,a[5]=t36,a[6]=((C_word*)t0)[5],a[7]=t3,a[8]=((C_word*)t0)[2],a[9]=t42,a[10]=t40,a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[7],tmp=(C_word)a,a+=13,tmp); /* c-backend.scm:363: source-info->string */ t44=*((C_word*)lf[159]+1);{ C_word av2[3]; av2[0]=t44; av2[1]=t43; av2[2]=t42; ((C_proc)(void*)(*((C_word*)t44+1)))(3,av2);}} else{ t35=C_eqp(t11,lf[176]); if(C_truep(t35)){ t36=C_i_length(t6); t37=C_a_i_plus(&a,2,t36,C_fix(1)); t38=t37; t39=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4223,a[2]=t9,a[3]=t1,a[4]=t38,a[5]=((C_word*)t0)[3],a[6]=t6,a[7]=t3,tmp=(C_word)a,a+=8,tmp); /* c-backend.scm:395: gen */ t40=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t40; av2[1]=t39; av2[2]=C_make_character(123); ((C_proc)(void*)(*((C_word*)t40+1)))(3,av2);}} else{ t36=C_eqp(t11,lf[181]); if(C_truep(t36)){ t37=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4242,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:400: gen */ t38=*((C_word*)lf[1]+1);{ C_word av2[4]; av2[0]=t38; av2[1]=t37; av2[2]=C_SCHEME_TRUE; av2[3]=lf[183]; ((C_proc)(void*)(*((C_word*)t38+1)))(4,av2);}} else{ t37=C_eqp(t11,lf[184]); if(C_truep(t37)){ t38=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4261,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=t6,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t39=C_i_car(t9); /* c-backend.scm:405: gen */ t40=*((C_word*)lf[1]+1);{ C_word av2[4]; av2[0]=t40; av2[1]=t38; av2[2]=t39; av2[3]=C_make_character(40); ((C_proc)(void*)(*((C_word*)t40+1)))(4,av2);}} else{ t38=C_eqp(t11,lf[185]); if(C_truep(t38)){ t39=C_i_car(t9); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ /* c-backend.scm:410: gen */ t40=*((C_word*)lf[1]+1);{ C_word av2[7]; av2[0]=t40; av2[1]=t1; av2[2]=lf[186]; av2[3]=t39; av2[4]=lf[187]; av2[5]=lf[188]; av2[6]=lf[189]; ((C_proc)(void*)(*((C_word*)t40+1)))(7,av2);}} else{ /* c-backend.scm:410: gen */ t40=*((C_word*)lf[1]+1);{ C_word av2[7]; av2[0]=t40; av2[1]=t1; av2[2]=lf[186]; av2[3]=t39; av2[4]=lf[187]; av2[5]=lf[190]; av2[6]=lf[189]; ((C_proc)(void*)(*((C_word*)t40+1)))(7,av2);}}} else{ t39=C_eqp(t11,lf[191]); if(C_truep(t39)){ t40=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4297,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[5],a[5]=t3,tmp=(C_word)a,a+=6,tmp); t41=C_i_car(t9); t42=C_i_length(t6); /* c-backend.scm:414: gen */ t43=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t43; av2[1]=t40; av2[2]=t41; av2[3]=lf[192]; av2[4]=t42; ((C_proc)(void*)(*((C_word*)t43+1)))(5,av2);}} else{ t40=C_eqp(t11,lf[193]); if(C_truep(t40)){ t41=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4333,a[2]=t9,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t42=C_i_cadr(t9); /* c-backend.scm:422: foreign-result-conversion */ t43=*((C_word*)lf[194]+1);{ C_word av2[4]; av2[0]=t43; av2[1]=t41; av2[2]=t42; av2[3]=lf[195]; ((C_proc)(void*)(*((C_word*)t43+1)))(4,av2);}} else{ t41=C_eqp(t11,lf[196]); if(C_truep(t41)){ t42=C_i_cadr(t9); t43=t42; t44=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4351,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); t45=C_u_i_car(t9); t46=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4367,a[2]=t44,a[3]=t45,a[4]=t43,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:426: foreign-type-declaration */ t47=*((C_word*)lf[200]+1);{ C_word av2[4]; av2[0]=t47; av2[1]=t46; av2[2]=t43; av2[3]=lf[201]; ((C_proc)(void*)(*((C_word*)t47+1)))(4,av2);}} else{ t42=C_eqp(t11,lf[202]); if(C_truep(t42)){ t43=C_i_car(t9); t44=t43; t45=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4383,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); t46=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4397,a[2]=t45,a[3]=t44,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:432: foreign-result-conversion */ t47=*((C_word*)lf[194]+1);{ C_word av2[4]; av2[0]=t47; av2[1]=t46; av2[2]=t44; av2[3]=lf[207]; ((C_proc)(void*)(*((C_word*)t47+1)))(4,av2);}} else{ t43=C_eqp(t11,lf[208]); if(C_truep(t43)){ t44=C_i_car(t9); t45=t44; t46=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4413,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t45,tmp=(C_word)a,a+=7,tmp); t47=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4441,a[2]=t46,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:438: foreign-type-declaration */ t48=*((C_word*)lf[200]+1);{ C_word av2[4]; av2[0]=t48; av2[1]=t47; av2[2]=t45; av2[3]=lf[213]; ((C_proc)(void*)(*((C_word*)t48+1)))(4,av2);}} else{ t44=C_eqp(t11,lf[214]); if(C_truep(t44)){ t45=C_i_car(t9); /* c-backend.scm:445: gen */ t46=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t46; av2[1]=t1; av2[2]=t45; ((C_proc)(void*)(*((C_word*)t46+1)))(3,av2);}} else{ t45=C_eqp(t11,lf[215]); if(C_truep(t45)){ t46=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4463,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); t47=C_i_car(t9); /* c-backend.scm:448: gen */ t48=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t48; av2[1]=t46; av2[2]=lf[217]; av2[3]=t47; av2[4]=C_make_character(61); ((C_proc)(void*)(*((C_word*)t48+1)))(5,av2);}} else{ t46=C_eqp(t11,lf[218]); if(C_truep(t46)){ t47=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4486,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=t6,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t48=C_i_car(t9); /* c-backend.scm:453: gen */ t49=*((C_word*)lf[1]+1);{ C_word av2[4]; av2[0]=t49; av2[1]=t47; av2[2]=t48; av2[3]=lf[219]; ((C_proc)(void*)(*((C_word*)t49+1)))(4,av2);}} else{ t47=C_eqp(t11,lf[220]); if(C_truep(t47)){ t48=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4505,a[2]=t9,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:458: gen */ t49=*((C_word*)lf[1]+1);{ C_word av2[4]; av2[0]=t49; av2[1]=t48; av2[2]=C_SCHEME_TRUE; av2[3]=lf[224]; ((C_proc)(void*)(*((C_word*)t49+1)))(4,av2);}} else{ t48=C_eqp(t11,lf[225]); if(C_truep(t48)){ t49=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4586,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:473: gen */ t50=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t50; av2[1]=t49; av2[2]=lf[227]; ((C_proc)(void*)(*((C_word*)t50+1)))(3,av2);}} else{ t49=t2; t50=C_slot(t49,C_fix(1)); /* c-backend.scm:481: bomb */ t51=*((C_word*)lf[8]+1);{ C_word av2[4]; av2[0]=t51; av2[1]=t1; av2[2]=lf[228]; av2[3]=t50; ((C_proc)(void*)(*((C_word*)t51+1)))(4,av2);}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} /* k6564 in doloop893 in k6552 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in ... */ static void C_ccall f_6566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6566,2,av);} a=C_alloc(8); t2=C_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); t3=C_a_i_minus(&a,2,((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_6556(t4,((C_word*)t0)[5],t2,t3);} /* k10162 in k10159 in k10153 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10164(C_word c,C_word *av){ C_word tmp; C_word t0=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_10164,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10167,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1346: ##sys#write-char-0 */ t3=*((C_word*)lf[329]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(44); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k10165 in k10162 in k10159 in k10153 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10167,2,av);} /* c-backend.scm:1346: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3146 in for-each-loop185 in k3121 in k3107 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3148,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_3138(t4,((C_word*)t0)[5],t2,t3);} /* k5092 in k5089 in k5078 in declarations in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_5094,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5097,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:577: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[284]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5095 in k5092 in k5089 in k5078 in declarations in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_5097,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_5102,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_5102(t5,((C_word*)t0)[2],C_fix(0),((C_word*)t0)[3]);} /* k10159 in k10153 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10161,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10164,a[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:1346: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5089 in k5078 in declarations in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(4,c,6)))){ C_save_and_reclaim((void *)f_5091,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5094,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5094(2,av2);}} else{ /* c-backend.scm:576: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=C_SCHEME_TRUE; av2[4]=lf[285]; av2[5]=((C_word*)t0)[4]; av2[6]=lf[286]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}}} /* k6513 in for-each-loop901 in k6504 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_6515,2,av);} t2=C_u_i_car(((C_word*)t0)[2]); /* c-backend.scm:811: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=t1; av2[4]=C_make_character(32); av2[5]=t2; av2[6]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k8160 in a8142 in k8133 in k8130 in k8124 in k8121 in k8118 in k8115 in generate-foreign-callback-header in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8162,2,av);} /* c-backend.scm:1150: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7507,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7510,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:1088: foreign-callback-stub-argument-types */ t4=*((C_word*)lf[653]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7504,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7507,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:1087: foreign-callback-stub-return-type */ t4=*((C_word*)lf[654]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10153 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_10155,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10161,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:1346: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop185 in k3121 in k3107 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_3138(C_word t0,C_word t1,C_word 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_3138,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_3148,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:167: g186 */ t9=((C_word*)t0)[3]; f_3110(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);}}} /* k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_7501,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7504,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:1086: real-name2 */ t4=*((C_word*)lf[583]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_4860(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_4860,2,t0,t1);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4863,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4881,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5057,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:530: current-seconds */ t5=*((C_word*)lf[278]+1);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k5047 in k4990 in k4986 in k4982 in k4978 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5049,2,av);} /* c-backend.scm:541: string-split */ t2=*((C_word*)lf[274]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[275]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* pad0 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_4863(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_4863,2,t1,t2);} a=C_alloc(3); if(C_truep(C_i_lessp(t2,C_fix(10)))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4878,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:528: number->string */ 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);}} else{ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10252 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10254,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10260,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:1358: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2609 in for-each-loop47 in k2594 in gen-list in k2539 in k2536 in k2533 */ static void C_ccall f_2611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2611,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2601(t3,((C_word*)t0)[4],t2);} /* ##compiler#generate-code in k2624 in k2539 in k2536 in k2533 */ 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=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_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_2628,10,av);} a=C_alloc(17); t10=C_SCHEME_FALSE; 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_2632,a[2]=t4,a[3]=t11,a[4]=t6,a[5]=t2,a[6]=t3,a[7]=t8,a[8]=t5,a[9]=t1,a[10]=t9,tmp=(C_word)a,a+=11,tmp); t13=C_a_i_plus(&a,2,*((C_word*)lf[498]+1),C_fix(1)); /* c-backend.scm:67: flonum-print-precision */ t14=*((C_word*)lf[499]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t12; av2[2]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} /* compute-size in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ 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=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_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7518,5,av);} a=C_alloc(8); t5=t2; t6=C_eqp(t5,lf[15]); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7528,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_7528(t8,t6);} else{ t8=C_eqp(t5,lf[449]); if(C_truep(t8)){ t9=t7; f_7528(t9,t8);} else{ t9=C_eqp(t5,lf[625]); if(C_truep(t9)){ t10=t7; f_7528(t10,t9);} else{ t10=C_eqp(t5,lf[626]); if(C_truep(t10)){ t11=t7; f_7528(t11,t10);} else{ t11=C_eqp(t5,lf[12]); if(C_truep(t11)){ t12=t7; f_7528(t12,t11);} else{ t12=C_eqp(t5,lf[548]); if(C_truep(t12)){ t13=t7; f_7528(t13,t12);} else{ t13=C_eqp(t5,lf[627]); if(C_truep(t13)){ t14=t7; f_7528(t14,t13);} else{ t14=C_eqp(t5,lf[628]); if(C_truep(t14)){ t15=t7; f_7528(t15,t14);} else{ t15=C_eqp(t5,lf[629]); if(C_truep(t15)){ t16=t7; f_7528(t16,t15);} else{ t16=C_eqp(t5,lf[630]); if(C_truep(t16)){ t17=t7; f_7528(t17,t16);} else{ t17=C_eqp(t5,lf[631]); if(C_truep(t17)){ t18=t7; f_7528(t18,t17);} else{ t18=C_eqp(t5,lf[632]); t19=t7; f_7528(t19,(C_truep(t18)?t18:C_eqp(t5,lf[633])));}}}}}}}}}}}} /* k7237 in k7357 in for-each-loop1204 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in ... */ static void C_ccall f_7239(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7239,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7245,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:1052: ##sys#write-char-0 */ t6=*((C_word*)lf[329]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(116); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ 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 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_7516,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|2,a[1]=(C_word)f_7518,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7970,a[2]=((C_word*)t0)[2],a[3]=((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:1119: fold */ t7=*((C_word*)lf[415]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t4)[1]; av2[3]=lf[651]; av2[4]=((C_word*)t0)[6]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} /* k7231 in k7357 in for-each-loop1204 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in ... */ static void C_ccall f_7233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7233,2,av);} /* c-backend.scm:1050: foreign-type-declaration */ t2=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* gen-lit in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5767(C_word 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_5767,4,t0,t1,t2,t3);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5774,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_5907,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:696: big-fixnum? */ t6=*((C_word*)lf[357]+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=t4; f_5774(t5,C_SCHEME_FALSE);}} /* k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ 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 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_7510,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_7516,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:1090: make-argument-list */ t6=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=lf[652]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k4876 in pad0 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4878,2,av);} /* ##sys#string-append */ t2=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[251]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5036 in map-loop573 in k5006 in k4990 in k4986 in k4982 in k4978 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_5038,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5013(t6,((C_word*)t0)[5],t5);} /* k10000 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 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_10002,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10008,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:1340: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[814]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10240 in k10237 in k10234 in k10228 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10242,2,av);} /* c-backend.scm:1356: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10006 in k10000 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10008,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10011,a[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:1340: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word 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(30,c,10)))){ C_save_and_reclaim((void *)f_2626,2,av);} a=C_alloc(30); t2=C_mutate2((C_word*)lf[6]+1 /* (set! ##compiler#unique-id ...) */,t1); t3=C_mutate2((C_word*)lf[7]+1 /* (set! ##compiler#generate-code ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2628,tmp=(C_word)a,a+=2,tmp)); t4=C_mutate2((C_word*)lf[490]+1 /* (set! emit-debug-table ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6773,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate2((C_word*)lf[489]+1 /* (set! emit-procedure-table ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6885,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate2((C_word*)lf[472]+1 /* (set! ##compiler#cleanup ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6942,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate2((C_word*)lf[312]+1 /* (set! ##compiler#make-variable-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7026,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate2((C_word*)lf[316]+1 /* (set! ##compiler#make-argument-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7042,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate2((C_word*)lf[494]+1 /* (set! ##compiler#generate-external-variables ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7058,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate2((C_word*)lf[253]+1 /* (set! ##compiler#generate-foreign-callback-stub-prototypes ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7115,tmp=(C_word)a,a+=2,tmp)); t11=C_mutate2((C_word*)lf[492]+1 /* (set! ##compiler#generate-foreign-stubs ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7158,tmp=(C_word)a,a+=2,tmp)); t12=C_mutate2((C_word*)lf[491]+1 /* (set! generate-foreign-callback-stubs ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7495,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate2((C_word*)lf[535]+1 /* (set! ##compiler#generate-foreign-callback-header ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8113,tmp=(C_word)a,a+=2,tmp)); t14=C_mutate2((C_word*)lf[200]+1 /* (set! ##compiler#foreign-type-declaration ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8176,tmp=(C_word)a,a+=2,tmp)); t15=C_mutate2((C_word*)lf[199]+1 /* (set! ##compiler#foreign-argument-conversion ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9227,tmp=(C_word)a,a+=2,tmp)); t16=C_mutate2((C_word*)lf[194]+1 /* (set! ##compiler#foreign-result-conversion ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9858,tmp=(C_word)a,a+=2,tmp)); t17=C_mutate2((C_word*)lf[355]+1 /* (set! ##compiler#encode-literal ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10643,tmp=(C_word)a,a+=2,tmp)); t18=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} /* str in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8183(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_8183,3,t0,t1,t2);} /* c-backend.scm:1160: string-append */ t3=*((C_word*)lf[114]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=lf[662]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7243 in k7237 in k7357 in for-each-loop1204 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_7245,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7248,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1052: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7246 in k7243 in k7237 in k7357 in for-each-loop1204 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in ... */ static void C_ccall f_7248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7248,2,av);} /* c-backend.scm:1052: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7258 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_7260,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,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]=((C_word*)t0)[5],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:1056: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[551]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_7263(2,av2);}}} /* k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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(20,c,2)))){ C_save_and_reclaim((void *)f_4881,2,av);} a=C_alloc(20); t2=C_i_vector_ref(t1,C_fix(1)); t3=t2; t4=C_i_vector_ref(t1,C_fix(2)); t5=t4; t6=C_i_vector_ref(t1,C_fix(3)); t7=t6; t8=C_i_vector_ref(t1,C_fix(4)); t9=C_i_vector_ref(t1,C_fix(5)); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4899,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t11=C_a_i_plus(&a,2,C_fix(1900),t9); t12=t11; t13=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4980,a[2]=t10,a[3]=((C_word*)t0)[3],a[4]=t12,a[5]=((C_word*)t0)[4],a[6]=t3,a[7]=t5,a[8]=t7,tmp=(C_word)a,a+=9,tmp); t14=C_a_i_plus(&a,2,t8,C_fix(1)); /* c-backend.scm:538: pad0 */ f_4863(t13,t14);} /* k10276 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10278,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10284,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:1360: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[829]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* ##compiler#foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ 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=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_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_8176,4,av);} a=C_alloc(14); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8178,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8183,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t6=t2; t7=C_eqp(t6,lf[628]); if(C_truep(t7)){ /* c-backend.scm:1162: str */ t8=t5; f_8183(t8,t1,lf[663]);} else{ t8=C_eqp(t6,lf[15]); t9=(C_truep(t8)?t8:C_eqp(t6,lf[632])); if(C_truep(t9)){ /* c-backend.scm:1163: str */ t10=t5; f_8183(t10,t1,lf[664]);} else{ t10=C_eqp(t6,lf[629]); t11=(C_truep(t10)?t10:C_eqp(t6,lf[633])); if(C_truep(t11)){ /* c-backend.scm:1164: str */ t12=t5; f_8183(t12,t1,lf[665]);} else{ t12=C_eqp(t6,lf[630]); t13=(C_truep(t12)?t12:C_eqp(t6,lf[613])); if(C_truep(t13)){ /* c-backend.scm:1165: str */ t14=t5; f_8183(t14,t1,lf[666]);} else{ t14=C_eqp(t6,lf[631]); t15=(C_truep(t14)?t14:C_eqp(t6,lf[614])); if(C_truep(t15)){ /* c-backend.scm:1166: str */ t16=t5; f_8183(t16,t1,lf[667]);} else{ t16=C_eqp(t6,lf[449]); t17=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8253,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_8253(t18,t16);} else{ t18=C_eqp(t6,lf[616]); t19=t17; f_8253(t19,(C_truep(t18)?t18:C_eqp(t6,lf[12])));}}}}}}} /* err in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8178(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_8178,2,t0,t1);} /* c-backend.scm:1159: quit */ t2=*((C_word*)lf[660]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[661]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k8172 in k8130 in k8124 in k8121 in k8118 in k8115 in generate-foreign-callback-header in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_8174,2,av);} /* c-backend.scm:1147: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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); ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} /* for-each-loop1119 in k7060 in generate-external-variables in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_7092(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_7092,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_7102,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[533]:lf[534]); t10=t9; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7084,a[2]=t5,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1001: foreign-type-declaration */ t12=*((C_word*)lf[200]+1);{ C_word av2[4]; av2[0]=t12; av2[1]=t11; av2[2]=t7; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t12+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);}}} /* k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 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 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_7254,2,av);} a=C_alloc(15); t2=C_i_check_list_2(((C_word*)t0)[2],lf[57]); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7260,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); 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_7352,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_7352(t7,t3,((C_word*)t0)[11],t1,((C_word*)t0)[2]);} /* k3183 in k3180 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3185,2,av);} /* c-backend.scm:178: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[63]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4897 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_4899,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4902,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:544: gen-list */ t3=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[264]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k10261 in k10258 in k10252 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10263,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10266,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1358: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3180 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3182,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3185,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:177: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k10264 in k10261 in k10258 in k10252 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10266,2,av);} /* c-backend.scm:1358: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10258 in k10252 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10260(C_word c,C_word *av){ C_word tmp; C_word t0=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_10260,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10263,a[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:1358: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7264 in k7261 in k7258 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in ... */ static void C_ccall f_7266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7266,2,av);} /* c-backend.scm:1079: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(125); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7261 in k7258 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_7263,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7266,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_7272,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:1058: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[542]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7293,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[548]); if(C_truep(t4)){ /* c-backend.scm:1069: gen */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* c-backend.scm:1068: gen */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=lf[550]; av2[4]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}} /* k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_10215(C_word t0,C_word t1){ C_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(4,0,3)))){ C_save_and_reclaim_args((void *)trf_10215,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_eqp(t2,lf[598]); t4=(C_truep(t3)?t3:C_eqp(t2,lf[599])); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10230,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1356: open-output-string */ t6=*((C_word*)lf[332]+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[594]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10254,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1358: open-output-string */ t7=*((C_word*)lf[332]+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[601]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10278,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1360: open-output-string */ t8=*((C_word*)lf[332]+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[602]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10302,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1362: open-output-string */ t9=*((C_word*)lf[332]+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[603]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10326,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1364: open-output-string */ t10=*((C_word*)lf[332]+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[596]); if(C_truep(t9)){ t10=C_i_cadr(((C_word*)t0)[2]); /* c-backend.scm:1365: foreign-result-conversion */ t11=*((C_word*)lf[194]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=((C_word*)t0)[3]; av2[2]=t10; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ t10=C_eqp(t2,lf[447]); t11=(C_truep(t10)?t10:C_eqp(t2,lf[597])); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10366,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1367: open-output-string */ t13=*((C_word*)lf[332]+1);{ 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[600]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10390,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1368: open-output-string */ t14=*((C_word*)lf[332]+1);{ 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[737]); if(C_truep(t13)){ t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10414,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1369: open-output-string */ t15=*((C_word*)lf[332]+1);{ C_word av2[2]; av2[0]=t15; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ /* c-backend.scm:1370: err */ t14=((C_word*)t0)[5]; f_9860(t14,((C_word*)t0)[3]);}}}}}}}}}} else{ /* c-backend.scm:1371: err */ t2=((C_word*)t0)[5]; f_9860(t2,((C_word*)t0)[3]);}} /* k7270 in k7261 in k7258 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_7272,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7275,a[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:1060: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[541]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7273 in k7270 in k7261 in k7258 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_7275,2,av);} if(C_truep(((C_word*)t0)[2])){ /* c-backend.scm:1062: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[537]; av2[4]=C_SCHEME_TRUE; av2[5]=lf[538]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ if(C_truep(((C_word*)t0)[4])){ /* c-backend.scm:1064: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[539]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ /* c-backend.scm:1065: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[540]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}} /* k10237 in k10234 in k10228 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10239,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]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1356: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[824]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10036 in k10033 in k10027 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10038(C_word c,C_word *av){ C_word tmp; C_word t0=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_10038,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10041,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1341: ##sys#write-char-0 */ t3=*((C_word*)lf[329]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(44); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k10033 in k10027 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10035,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10038,a[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:1341: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10234 in k10228 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10236,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10239,a[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:1356: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10228 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10230(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10230,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10236,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:1356: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2982 in k2979 in k2976 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_2984,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2987,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* c-backend.scm:140: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k2979 in k2976 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_2981,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2984,a[2]=((C_word*)t0)[2],a[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:139: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k7291 in k7261 in k7258 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_7293,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,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],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:1070: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_make_character(40); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k7297 in k7294 in k7291 in k7261 in k7258 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7299,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7302,a[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[548]); if(C_truep(t3)){ t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_7302(2,av2);}} else{ /* c-backend.scm:1072: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k7294 in k7291 in k7261 in k7258 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_7296,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7299,a[2]=((C_word*)t0)[2],a[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_7330,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7334,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1071: make-argument-list */ t5=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; av2[3]=lf[549]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k2985 in k2982 in k2979 in k2976 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2987,2,av);} /* c-backend.scm:141: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k2960 in k2957 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2962,2,av);} /* c-backend.scm:134: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[40]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8098 in for-each-loop1278 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8100,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_8090(t3,((C_word*)t0)[4],t2);} /* k2976 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_2978,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2981,a[2]=((C_word*)t0)[2],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:138: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k8121 in k8118 in k8115 in generate-foreign-callback-header in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_8123,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8126,a[2]=((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:1144: foreign-callback-stub-argument-types */ t4=*((C_word*)lf[653]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8118 in k8115 in generate-foreign-callback-header in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_8120,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8123,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:1143: foreign-callback-stub-return-type */ t4=*((C_word*)lf[654]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8124 in k8121 in k8118 in k8115 in generate-foreign-callback-header in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_8126,2,av);} a=C_alloc(8); t2=t1; t3=C_i_length(t2); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8132,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:1146: make-argument-list */ t5=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=lf[657]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k2957 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_2959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2959,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2962,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:133: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_3663(C_word t0,C_word t1){ C_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,5)))){ C_save_and_reclaim_args((void *)trf_3663,2,t0,t1);} a=C_alloc(14); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=t2; t4=C_i_car(t3); t5=t4; t6=C_i_cadr(t3); t7=t6; t8=C_i_caddr(t3); t9=t8; t10=C_SCHEME_FALSE; 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_3683,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]=t11,a[8]=t9,a[9]=t5,a[10]=t7,a[11]=t3,tmp=(C_word)a,a+=12,tmp); /* c-backend.scm:296: gen */ t13=*((C_word*)lf[1]+1);{ C_word av2[4]; av2[0]=t13; av2[1]=t12; av2[2]=C_SCHEME_TRUE; av2[3]=lf[133]; ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3776,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],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)[2],tmp=(C_word)a,a+=11,tmp); /* c-backend.scm:321: gen */ t3=*((C_word*)lf[1]+1);{ 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); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_7200,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7203,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_7461,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1031: cleanup */ t4=*((C_word*)lf[472]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_7203(2,av2);}}} /* k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7203(C_word c,C_word *av){ C_word tmp; C_word t0=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_7203,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7206,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:1033: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[570]; av2[4]=((C_word*)t0)[11]; av2[5]=lf[571]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_7206(2,av2);}}} /* ##compiler#generate-foreign-callback-header in k2624 in k2539 in k2536 in k2533 */ 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=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_8113,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8117,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1141: foreign-callback-stub-name */ t5=*((C_word*)lf[659]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5006 in k4990 in k4986 in k4982 in k4978 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_5008,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5011,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_5013,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_5013(t6,t2,t1);} /* k8115 in generate-foreign-callback-header in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_8117,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8120,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:1142: foreign-callback-stub-qualifiers */ t4=*((C_word*)lf[658]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3615 in k3612 in k3609 in k3606 in k3585 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3617,2,av);} /* c-backend.scm:286: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3612 in k3609 in k3606 in k3585 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3614,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3617,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ /* c-backend.scm:286: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* c-backend.scm:285: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_7212,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7254,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); /* c-backend.scm:1055: iota */ t4=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3609 in k3606 in k3585 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3611(C_word c,C_word *av){ C_word tmp; C_word t0=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_3611,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3614,a[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:284: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ 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(16,c,11)))){ C_save_and_reclaim((void *)f_7206,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7209,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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_7404,a[2]=((C_word*)t0)[9],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1036: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 12) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(12); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=lf[561]; av2[4]=((C_word*)t0)[12]; av2[5]=lf[562]; av2[6]=C_SCHEME_TRUE; av2[7]=lf[563]; av2[8]=((C_word*)t0)[12]; av2[9]=lf[564]; av2[10]=C_SCHEME_TRUE; av2[11]=lf[565]; ((C_proc)(void*)(*((C_word*)t4+1)))(12,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7433,a[2]=t2,a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1043: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=lf[569]; av2[4]=((C_word*)t0)[12]; av2[5]=C_make_character(40); ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} /* k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_7209,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7212,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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:1046: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[557]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2933 in k2930 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2935,2,av);} a=C_alloc(4); t2=C_i_car(((C_word*)t0)[2]); t3=C_a_i_plus(&a,2,t2,C_fix(1)); /* c-backend.scm:129: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[37]; av2[3]=t3; av2[4]=C_make_character(93); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* emit-procedure-table in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6885(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_6885,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6889,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_6940,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:939: ##sys#hash-table-size */ t6=*((C_word*)lf[529]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k6856 in for-each-loop1035 in k6835 in k6775 in emit-debug-table in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6858,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6848(t3,((C_word*)t0)[4],t2);} /* k2930 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; 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_2932,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2935,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:128: expr */ t4=((C_word*)((C_word*)t0)[5])[1]; f_2649(t4,t2,t3,((C_word*)t0)[6]);} /* doloop550 in k4753 in k4750 in k4747 in k4744 in k4741 in push-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_4764(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,5)))){ C_save_and_reclaim_args((void *)trf_4764,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_4774,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:519: gen */ t5=*((C_word*)lf[1]+1);{ C_word av2[6]; av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=lf[231]; av2[4]=t2; av2[5]=lf[232]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}} /* k3606 in k3585 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3608,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3611,a[2]=((C_word*)t0)[2],a[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_3627,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_word*)t0)[9])){ /* c-backend.scm:283: push-args */ t4=((C_word*)((C_word*)t0)[6])[1]; f_4733(t4,t2,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3638,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:283: number->string */ t5=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k7219 in k7357 in for-each-loop1204 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7221,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7225,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:1053: foreign-type-declaration */ t4=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[555]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k4775 in k4772 in doloop550 in k4753 in k4750 in k4747 in k4744 in k4741 in push-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4777,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4780,a[2]=((C_word*)t0)[2],a[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:521: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[230]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a6870 in k6775 in emit-debug-table in k2624 in k2539 in k2536 in k2533 */ 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=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_6871,4,av);} t4=C_i_car(t2); t5=C_i_car(t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_lessp(t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k2904 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_2906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2906,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2909,a[2]=((C_word*)t0)[2],a[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:122: expr */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k6887 in emit-procedure-table in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6889,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6892,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6906,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:940: ##sys#hash-table-for-each */ t4=*((C_word*)lf[314]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4772 in doloop550 in k4753 in k4750 in k4747 in k4744 in k4741 in push-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(6,c,3)))){ C_save_and_reclaim((void *)f_4774,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4777,a[2]=((C_word*)t0)[2],a[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:520: expr */ t4=((C_word*)((C_word*)t0)[6])[1]; f_2649(t4,t2,t3,((C_word*)t0)[7]);} /* k3636 in k3606 in k3585 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3638,2,av);} /* ##sys#string-append */ t2=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[105]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2907 in k2904 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_2909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2909,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2912,a[2]=((C_word*)t0)[2],a[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:123: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k7223 in k7219 in k7357 in for-each-loop1204 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7225,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7229,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:1054: foreign-argument-conversion */ t4=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* expr-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_4704(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_4704,4,t0,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4710,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:484: pair-for-each */ t5=*((C_word*)lf[229]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7227 in k7223 in k7219 in k7357 in for-each-loop1204 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in ... */ static void C_ccall f_7229(C_word c,C_word *av){ C_word tmp; C_word 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_7229,2,av);} /* c-backend.scm:1049: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 11) { av2=av; /* Re-use our own argvector */ } 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[552]; av2[5]=((C_word*)t0)[4]; av2[6]=C_make_character(41); av2[7]=t1; av2[8]=lf[553]; av2[9]=((C_word*)t0)[5]; av2[10]=lf[554]; ((C_proc)(void*)(*((C_word*)t2+1)))(11,av2);}} /* k2910 in k2907 in k2904 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2912,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* c-backend.scm:124: expr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2649(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5]);} /* k3625 in k3606 in k3585 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(0,c,4)))){ C_save_and_reclaim((void *)f_3627,2,av);} /* c-backend.scm:283: push-args */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4733(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k9477 in k9282 in k9255 in foreign-argument-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_9479(C_word t0,C_word 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_9479,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[785]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[591]); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9488,a[2]=((C_word*)t0)[2],a[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_9488(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[3],lf[605]); if(C_truep(t4)){ t5=t3; f_9488(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[3],lf[606]); if(C_truep(t5)){ t6=t3; f_9488(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[3],lf[607]); t7=t3; f_9488(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[3],lf[608])));}}}}} /* k4712 in a4709 in expr-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4714,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* c-backend.scm:487: expr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2649(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5]);} /* a4709 in expr-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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=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,3)))){ C_save_and_reclaim((void *)f_4710,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4714,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_eqp(t2,((C_word*)t0)[4]); if(C_truep(t4)){ t5=C_i_car(t2); /* c-backend.scm:487: expr */ t6=((C_word*)((C_word*)t0)[2])[1]; f_2649(t6,t1,t5,((C_word*)t0)[3]);} else{ /* c-backend.scm:486: gen */ t5=*((C_word*)lf[1]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t3; av2[2]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k9486 in k9477 in k9282 in k9255 in foreign-argument-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_9488(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_9488,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[786]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[12]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=lf[787]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9497,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:1299: ##sys#hash-table-ref */ t4=*((C_word*)lf[10]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[604]+1); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_9497(2,av2);}}}}} /* push-args in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_4733(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(17,0,2)))){ C_save_and_reclaim_args((void *)trf_4733,5,t0,t1,t2,t3,t4);} a=C_alloc(17); t5=C_i_length(t2); t6=(C_truep(t4)?C_a_i_plus(&a,2,t5,C_fix(1)):t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4743,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_4845,a[2]=t8,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:493: lambda-literal-customizable */ t10=*((C_word*)lf[250]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k5705 in k5687 in k5580 in literal-size in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5707(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_5707,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5714,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_block_size(((C_word*)t0)[3]); /* c-backend.scm:685: words */ t4=*((C_word*)lf[338]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(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_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_5736,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_5736(t8,((C_word*)t0)[2],C_fix(0),t4);} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; /* c-backend.scm:673: bomb */ t4=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=lf[337]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}} /* procedures in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_6051(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_6051,2,t0,t1);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6057,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:749: ##sys#hash-table-for-each */ t3=*((C_word*)lf[314]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6065 in k6062 in k6059 in a6056 in procedures in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6067,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,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],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_6727,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:754: lambda-literal-callee-signatures */ t5=*((C_word*)lf[483]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5078 in declarations in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_5080,2,av);} a=C_alloc(10); t2=*((C_word*)lf[262]+1); t3=C_i_check_list_2(*((C_word*)lf[262]+1),lf[57]); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5091,a[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|2,a[1]=(C_word)f_5222,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_5222(t8,t4,*((C_word*)lf[262]+1));} /* k5861 in k5778 in k5772 in gen-lit in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5863(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,4)))){ C_save_and_reclaim_args((void *)trf_5863,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5866,a[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: gen */ t3=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=((C_word*)t0)[5]; av2[4]=lf[356]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[4]; /* c-backend.scm:673: bomb */ t4=*((C_word*)lf[8]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t2; av2[2]=lf[337]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k5864 in k5861 in k5778 in k5772 in gen-lit in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_5866,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5869,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5876,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:717: encode-literal */ t4=*((C_word*)lf[355]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5867 in k5864 in k5861 in k5778 in k5772 in gen-lit in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5869,2,av);} /* c-backend.scm:718: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[354]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a6056 in procedures in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_6057,4,av);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6061,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],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],tmp=(C_word)a,a+=11,tmp); /* c-backend.scm:751: lambda-literal-argument-count */ t5=*((C_word*)lf[248]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* declarations in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5073(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_5073,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_5080,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:569: gen */ t5=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=C_SCHEME_TRUE; av2[4]=lf[291]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k5069 in k6759 in k6756 in k6753 in k6750 in k6747 in k6744 in k6741 in k6738 in k6735 in k6732 in k6728 in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5071,2,av);} /* c-backend.scm:561: uncommentify */ t2=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5712 in k5705 in k5687 in k5580 in literal-size in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_5714,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_plus(&a,2,C_fix(2),t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop573 in k5006 in k4990 in k4986 in k4982 in k4978 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5013(C_word t0,C_word t1,C_word 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_5013,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_5038,a[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:540: g596 */ t5=*((C_word*)lf[114]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t3; av2[2]=lf[272]; av2[3]=t4; av2[4]=lf[273]; ((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);}}} /* k5009 in k5006 in k4990 in k4986 in k4982 in k4978 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5011,2,av);} /* c-backend.scm:539: string-intersperse */ t2=*((C_word*)lf[270]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[271]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5874 in k5864 in k5861 in k5778 in k5772 in gen-lit in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5876,2,av);} /* c-backend.scm:717: gen-string-constant */ t2=((C_word*)((C_word*)t0)[2])[1]; f_5909(t2,((C_word*)t0)[3],t1);} /* k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in a6056 in procedures in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; 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_6091,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_6094,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:762: intersperse */ t5=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:762: intersperse */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in a6056 in procedures in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6094(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6094,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_6097,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((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:763: lambda-literal-external */ t4=*((C_word*)lf[479]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6793 in for-each-loop1048 in k6780 in for-each-loop1035 in k6835 in k6775 in emit-debug-table in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6795,2,av);} /* c-backend.scm:928: backslashify */ t2=*((C_word*)lf[154]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop305 in k3492 in k3484 in k3470 in k3467 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_3508(C_word t0,C_word t1,C_word 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,7)))){ C_save_and_reclaim_args((void *)trf_3508,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_3518,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:267: gen */ t9=*((C_word*)lf[1]+1);{ 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[100]; av2[6]=t7; av2[7]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t9+1)))(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);}}} /* k6789 in for-each-loop1048 in k6780 in for-each-loop1035 in k6835 in k6775 in emit-debug-table in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6791,2,av);} /* c-backend.scm:928: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[502]; av2[3]=t1; av2[4]=lf[503]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3498 in k3495 in k3492 in k3484 in k3470 in k3467 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3500,2,av);} /* c-backend.scm:270: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[98]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* loop in k5705 in k5687 in k5580 in literal-size in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5736(C_word t0,C_word t1,C_word 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(10,0,2)))){ C_save_and_reclaim_args((void *)trf_5736,4,t0,t1,t2,t3);} a=C_alloc(10); 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=C_a_i_plus(&a,2,t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5758,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:691: literal-size */ t8=((C_word*)((C_word*)t0)[5])[1];{ C_word av2[3]; av2[0]=t8; av2[1]=t6; av2[2]=t7; f_5575(3,av2);}}} /* k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in a6056 in procedures in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6097,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_6100,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:764: lambda-literal-looping */ t4=*((C_word*)lf[107]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6062 in k6059 in a6056 in procedures in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_6064,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6067,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((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:753: lambda-literal-allocated */ t4=*((C_word*)lf[310]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3516 in for-each-loop305 in k3492 in k3484 in k3470 in k3467 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3518,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_3508(t4,((C_word*)t0)[5],t2,t3);} /* k6059 in a6056 in procedures in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_6061,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6064,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:752: real-name */ t4=*((C_word*)lf[484]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* for-each-loop279 in k3470 in k3467 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_3545(C_word t0,C_word t1,C_word 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_3545,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_3555,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:258: g280 */ t9=((C_word*)t0)[3]; f_3473(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);}}} /* k9949 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_9951(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9951,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9957,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:1335: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[810]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9955 in k9949 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_9957(C_word c,C_word *av){ C_word tmp; C_word t0=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_9957,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9960,a[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:1335: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9958 in k9955 in k9949 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_9960(C_word c,C_word *av){ C_word tmp; C_word t0=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_9960,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9963,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1335: ##sys#write-char-0 */ t3=*((C_word*)lf[329]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(44); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k9961 in k9958 in k9955 in k9949 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_9963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9963,2,av);} /* c-backend.scm:1335: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9976 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_9978,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9984,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:1339: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[812]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_9975(C_word t0,C_word t1){ C_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(6,0,3)))){ C_save_and_reclaim_args((void *)trf_9975,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ 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); /* c-backend.scm:1339: open-output-string */ t3=*((C_word*)lf[332]+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[597]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10002,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1340: open-output-string */ t4=*((C_word*)lf[332]+1);{ 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[616]); t4=(C_truep(t3)?t3:C_eqp(((C_word*)t0)[4],lf[617])); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10029,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1341: open-output-string */ t6=*((C_word*)lf[332]+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[622]); t6=(C_truep(t5)?t5:C_eqp(((C_word*)t0)[4],lf[621])); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10056,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1342: open-output-string */ t8=*((C_word*)lf[332]+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[619]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10080,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1343: open-output-string */ t9=*((C_word*)lf[332]+1);{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t8=C_eqp(((C_word*)t0)[4],lf[613]); t9=(C_truep(t8)?t8:C_eqp(((C_word*)t0)[4],lf[614])); if(C_truep(t9)){ t10=(*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); /* c-backend.scm:1344: open-output-string */ t11=*((C_word*)lf[332]+1);{ C_word av2[2]; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t10=C_eqp(((C_word*)t0)[4],lf[615]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10131,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1345: open-output-string */ t12=*((C_word*)lf[332]+1);{ 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[618]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10155,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1346: open-output-string */ t13=*((C_word*)lf[332]+1);{ 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[12]); if(C_truep(t12)){ t13=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t13; av2[1]=lf[822]; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t13=C_eqp(((C_word*)t0)[4],lf[548]); t14=(C_truep(t13)?t13:C_eqp(((C_word*)t0)[4],lf[628])); if(C_truep(t14)){ t15=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t15; av2[1]=lf[823]; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10188,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:1350: ##sys#hash-table-ref */ t16=*((C_word*)lf[10]+1);{ C_word av2[4]; av2[0]=t16; av2[1]=t15; av2[2]=*((C_word*)lf[604]+1); av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}} else{ t16=t15;{ C_word av2[2]; av2[0]=t16; av2[1]=C_SCHEME_FALSE; f_10188(2,av2);}}}}}}}}}}}}} /* k3553 in for-each-loop279 in k3470 in k3467 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3555,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_3545(t4,((C_word*)t0)[5],t2,t3);} /* k5562 in k5559 in k5556 in k5550 in doloop744 in literal-frame in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5564(C_word c,C_word *av){ C_word tmp; C_word t0=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_5564,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5567,a[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:670: get-output-string */ t3=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5565 in k5562 in k5559 in k5556 in k5550 in doloop744 in literal-frame in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5567,2,av);} /* c-backend.scm:670: gen-lit */ t2=((C_word*)((C_word*)t0)[2])[1]; f_5767(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k9985 in k9982 in k9976 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_9987(C_word c,C_word *av){ C_word tmp; C_word t0=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_9987,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9990,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1339: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[811]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5559 in k5556 in k5550 in doloop744 in literal-frame in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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,3)))){ C_save_and_reclaim((void *)f_5561,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5564,a[2]=((C_word*)t0)[2],a[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:670: ##sys#write-char-0 */ t3=*((C_word*)lf[329]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(93); av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k9982 in k9976 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_9984(C_word c,C_word *av){ C_word tmp; C_word t0=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_9984,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9987,a[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:1339: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3585 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_3587,2,av);} a=C_alloc(11); if(C_truep(((C_word*)t0)[2])){ t2=(*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); /* c-backend.scm:277: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3608,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:282: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(123); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k5550 in doloop744 in literal-frame in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_5552,2,av);} a=C_alloc(8); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5558,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:670: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[331]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5556 in k5550 in doloop744 in literal-frame in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5558(C_word c,C_word *av){ C_word tmp; C_word t0=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_5558,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5561,a[2]=((C_word*)t0)[2],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:670: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9988 in k9985 in k9982 in k9976 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9990,2,av);} /* c-backend.scm:1339: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6386 in k6371 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in ... */ static void C_fcall f_6388(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,7)))){ C_save_and_reclaim_args((void *)trf_6388,2,t0,t1);} if(C_truep(t1)){ /* c-backend.scm:846: gen */ t2=*((C_word*)lf[1]+1);{ C_word av2[8]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[422]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[423]; av2[6]=((C_word*)t0)[3]; av2[7]=lf[424]; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_6376(2,av2);}}} /* k5580 in literal-size in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 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,2)))){ C_save_and_reclaim((void *)f_5582,2,av);} a=C_alloc(15); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(0); ((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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_numberp(((C_word*)t0)[3]))){ t2=*((C_word*)lf[333]+1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=*((C_word*)lf[333]+1); ((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; /* Re-use our own argvector */ 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_5613,a[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:680: literal-size */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; f_5575(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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5638,a[2]=((C_word*)t0)[2],a[3]=t4,tmp=(C_word)a,a+=4,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*)((C_word*)t0)[4])[1]; t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5645,a[2]=t5,a[3]=t8,a[4]=t10,a[5]=t9,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:681: vector->list */ t12=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t11; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5689,a[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:682: block-variable-literal? */ t3=*((C_word*)lf[340]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}}}}}}} /* k6371 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in ... */ static void C_ccall f_6373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_6373,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6376,a[2]=((C_word*)t0)[2],a[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_6388,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=*((C_word*)lf[136]+1); if(C_truep(*((C_word*)lf[136]+1))){ t5=t3; f_6388(t5,C_SCHEME_FALSE);} else{ t5=*((C_word*)lf[425]+1); if(C_truep(*((C_word*)lf[425]+1))){ t6=t3; f_6388(t6,C_SCHEME_FALSE);} else{ t6=C_i_greaterp(((C_word*)t0)[3],C_fix(2)); t7=t3; f_6388(t7,(C_truep(t6)?C_i_not(((C_word*)t0)[6]):C_SCHEME_FALSE));}}} /* k6377 in k6374 in k6371 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in ... */ static void C_ccall f_6379(C_word c,C_word *av){ C_word tmp; C_word 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_6379,2,av);} /* c-backend.scm:848: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[416]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[417]; av2[6]=((C_word*)t0)[4]; av2[7]=lf[418]; av2[8]=((C_word*)t0)[5]; av2[9]=lf[419]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} /* k6374 in k6371 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in ... */ static void C_ccall f_6376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,9)))){ C_save_and_reclaim((void *)f_6376,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6379,a[2]=((C_word*)t0)[2],a[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*)lf[420]+1))){ /* c-backend.scm:847: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[421]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* c-backend.scm:848: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(10); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[416]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[417]; av2[6]=((C_word*)t0)[4]; av2[7]=lf[418]; av2[8]=((C_word*)t0)[5]; av2[9]=lf[419]; ((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}}} /* k4599 in k4596 in k4593 in k4590 in k4587 in k4584 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4601,2,av);} /* c-backend.scm:479: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3591 in k3585 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_3593,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3596,a[2]=((C_word*)t0)[2],a[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)f11805,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:279: expr-args */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4704(t4,t3,((C_word*)t0)[4],((C_word*)t0)[5]);} else{ /* c-backend.scm:278: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k6365 in a6358 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 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(4,c,1)))){ C_save_and_reclaim((void *)f_6367,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_plus(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3597 in k3594 in k3591 in k3585 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3599,2,av);} /* c-backend.scm:280: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[102]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3594 in k3591 in k3585 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3596,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3599,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:279: expr-args */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4704(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* a6358 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in ... */ static void C_ccall f_6359(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_6359,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6367,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:814: literal-size */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; f_5575(3,av2);}} /* k6340 in k6308 in k6305 in k6302 in k6298 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in ... */ static void C_ccall f_6342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6342,2,av);} if(C_truep(*((C_word*)lf[401]+1))){ /* c-backend.scm:828: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[402]; av2[4]=*((C_word*)lf[401]+1); av2[5]=lf[403]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_6313(2,av2);}}} /* k6329 in k6326 in k6314 in k6311 in k6308 in k6305 in k6302 in k6298 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in ... */ static void C_ccall f_6331(C_word c,C_word *av){ C_word tmp; C_word 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_6331,2,av);} /* c-backend.scm:841: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[380]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[381]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k9282 in k9255 in foreign-argument-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_9284(C_word t0,C_word t1){ C_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; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9284,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[754]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[616]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[3],lf[617])); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[755]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[3],lf[622]); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t5; av2[1]=lf[756]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(((C_word*)t0)[3],lf[619]); if(C_truep(t5)){ t6=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=lf[757]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(((C_word*)t0)[3],lf[621]); if(C_truep(t6)){ t7=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t7; av2[1]=lf[758]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_eqp(((C_word*)t0)[3],lf[615]); if(C_truep(t7)){ t8=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t8; av2[1]=lf[759]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(((C_word*)t0)[3],lf[613]); t9=(C_truep(t8)?t8:C_eqp(((C_word*)t0)[3],lf[614])); if(C_truep(t9)){ t10=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t10; av2[1]=lf[760]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_eqp(((C_word*)t0)[3],lf[745]); if(C_truep(t10)){ t11=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t11; av2[1]=lf[761]; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=C_eqp(((C_word*)t0)[3],lf[746]); if(C_truep(t11)){ t12=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t12; av2[1]=lf[762]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t12=C_eqp(((C_word*)t0)[3],lf[597]); if(C_truep(t12)){ t13=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t13; av2[1]=lf[763]; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t13=C_eqp(((C_word*)t0)[3],lf[599]); if(C_truep(t13)){ t14=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t14; av2[1]=lf[764]; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t14=C_eqp(((C_word*)t0)[3],lf[681]); if(C_truep(t14)){ t15=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t15; av2[1]=lf[765]; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t15=C_eqp(((C_word*)t0)[3],lf[742]); if(C_truep(t15)){ t16=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t16; av2[1]=lf[766]; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ t16=C_eqp(((C_word*)t0)[3],lf[743]); if(C_truep(t16)){ t17=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t17; av2[1]=lf[767]; ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}} else{ t17=C_eqp(((C_word*)t0)[3],lf[744]); if(C_truep(t17)){ t18=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t18; av2[1]=lf[768]; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} else{ t18=C_eqp(((C_word*)t0)[3],lf[683]); if(C_truep(t18)){ t19=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t19; av2[1]=lf[769]; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ t19=C_eqp(((C_word*)t0)[3],lf[684]); if(C_truep(t19)){ t20=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t20; av2[1]=lf[770]; ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} else{ t20=C_eqp(((C_word*)t0)[3],lf[689]); if(C_truep(t20)){ t21=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t21; av2[1]=lf[771]; ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}} else{ t21=C_eqp(((C_word*)t0)[3],lf[690]); if(C_truep(t21)){ t22=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t22; av2[1]=lf[772]; ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}} else{ t22=C_eqp(((C_word*)t0)[3],lf[686]); if(C_truep(t22)){ t23=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t23; av2[1]=lf[773]; ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}} else{ t23=C_eqp(((C_word*)t0)[3],lf[687]); if(C_truep(t23)){ t24=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t24; av2[1]=lf[774]; ((C_proc)(void*)(*((C_word*)t24+1)))(2,av2);}} else{ t24=C_eqp(((C_word*)t0)[3],lf[692]); if(C_truep(t24)){ t25=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t25; av2[1]=lf[775]; ((C_proc)(void*)(*((C_word*)t25+1)))(2,av2);}} else{ t25=C_eqp(((C_word*)t0)[3],lf[693]); if(C_truep(t25)){ t26=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t26; av2[1]=lf[776]; ((C_proc)(void*)(*((C_word*)t26+1)))(2,av2);}} else{ t26=C_eqp(((C_word*)t0)[3],lf[695]); if(C_truep(t26)){ t27=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t27; av2[1]=lf[777]; ((C_proc)(void*)(*((C_word*)t27+1)))(2,av2);}} else{ t27=C_eqp(((C_word*)t0)[3],lf[696]); if(C_truep(t27)){ t28=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t28; av2[1]=lf[778]; ((C_proc)(void*)(*((C_word*)t28+1)))(2,av2);}} else{ t28=C_eqp(((C_word*)t0)[3],lf[698]); if(C_truep(t28)){ t29=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t29; av2[1]=lf[779]; ((C_proc)(void*)(*((C_word*)t29+1)))(2,av2);}} else{ t29=C_eqp(((C_word*)t0)[3],lf[699]); if(C_truep(t29)){ t30=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t30; av2[1]=lf[780]; ((C_proc)(void*)(*((C_word*)t30+1)))(2,av2);}} else{ t30=C_eqp(((C_word*)t0)[3],lf[701]); if(C_truep(t30)){ t31=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t31; av2[1]=lf[781]; ((C_proc)(void*)(*((C_word*)t31+1)))(2,av2);}} else{ t31=C_eqp(((C_word*)t0)[3],lf[702]); if(C_truep(t31)){ t32=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t32; av2[1]=lf[782]; ((C_proc)(void*)(*((C_word*)t32+1)))(2,av2);}} else{ t32=C_eqp(((C_word*)t0)[3],lf[704]); if(C_truep(t32)){ t33=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t33; av2[1]=lf[783]; ((C_proc)(void*)(*((C_word*)t33+1)))(2,av2);}} else{ t33=C_eqp(((C_word*)t0)[3],lf[705]); if(C_truep(t33)){ t34=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t34; av2[1]=lf[784]; ((C_proc)(void*)(*((C_word*)t34+1)))(2,av2);}} else{ t34=C_eqp(((C_word*)t0)[3],lf[587]); t35=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9479,a[2]=((C_word*)t0)[2],a[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(t34)){ t36=t35; f_9479(t36,t34);} else{ t36=C_eqp(((C_word*)t0)[3],lf[609]); if(C_truep(t36)){ t37=t35; f_9479(t37,t36);} else{ t37=C_eqp(((C_word*)t0)[3],lf[610]); t38=t35; f_9479(t38,(C_truep(t37)?t37:C_eqp(((C_word*)t0)[3],lf[611])));}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} /* k6802 in k6780 in for-each-loop1035 in k6835 in k6775 in emit-debug-table in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6804,2,av);} /* c-backend.scm:930: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[501]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k5533 in doloop744 in literal-frame in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(4,c,3)))){ C_save_and_reclaim((void *)f_5535,2,av);} a=C_alloc(4); t2=C_a_i_plus(&a,2,((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_5525(t5,((C_word*)t0)[5],t2,t4);} /* k6326 in k6314 in k6311 in k6308 in k6305 in k6302 in k6298 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in ... */ static void C_ccall f_6328(C_word c,C_word *av){ C_word tmp; C_word t0=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_6328,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6331,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:840: literal-frame */ t3=((C_word*)((C_word*)t0)[4])[1]; f_5519(t3,t2);} /* for-each-loop1048 in k6780 in for-each-loop1035 in k6835 in k6775 in emit-debug-table in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_6809(C_word t0,C_word t1,C_word 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_6809,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_6819,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_6791,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6795,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:928: ->string */ t8=*((C_word*)lf[504]+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);}}} /* k6311 in k6308 in k6305 in k6302 in k6298 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,35)))){ C_save_and_reclaim((void *)f_6313,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6316,a[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:829: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 36) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(36); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[384]; av2[4]=((C_word*)t0)[5]; av2[5]=lf[385]; av2[6]=((C_word*)t0)[6]; av2[7]=lf[386]; av2[8]=C_SCHEME_TRUE; av2[9]=lf[387]; av2[10]=((C_word*)t0)[5]; av2[11]=lf[388]; av2[12]=((C_word*)t0)[6]; av2[13]=lf[389]; av2[14]=C_SCHEME_TRUE; av2[15]=lf[390]; av2[16]=((C_word*)t0)[7]; av2[17]=lf[391]; av2[18]=C_SCHEME_TRUE; av2[19]=lf[392]; av2[20]=C_SCHEME_TRUE; av2[21]=lf[393]; av2[22]=((C_word*)t0)[8]; av2[23]=lf[394]; av2[24]=C_SCHEME_TRUE; av2[25]=lf[395]; av2[26]=C_SCHEME_TRUE; av2[27]=lf[396]; av2[28]=((C_word*)t0)[8]; av2[29]=lf[397]; av2[30]=C_SCHEME_TRUE; av2[31]=lf[398]; av2[32]=C_SCHEME_TRUE; av2[33]=lf[399]; av2[34]=((C_word*)t0)[5]; av2[35]=lf[400]; ((C_proc)(void*)(*((C_word*)t3+1)))(36,av2);}} /* k6314 in k6311 in k6308 in k6305 in k6302 in k6298 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_6316,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6319,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(t3)){ /* c-backend.scm:842: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(123); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6328,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:839: gen */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=lf[382]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[383]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}} /* k6308 in k6305 in k6302 in k6298 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in ... */ static void C_ccall f_6310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,7)))){ C_save_and_reclaim((void *)f_6310,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6313,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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*)lf[260]+1))){ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6313(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6342,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[404]+1))){ /* c-backend.scm:825: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=lf[405]; av2[4]=*((C_word*)lf[404]+1); av2[5]=lf[406]; av2[6]=C_SCHEME_TRUE; av2[7]=lf[407]; ((C_proc)(void*)(*((C_word*)t4+1)))(8,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_6342(2,av2);}}}} /* k6317 in k6314 in k6311 in k6308 in k6305 in k6302 in k6298 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6319,2,av);} /* c-backend.scm:842: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(123); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6302 in k6298 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_6304,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6307,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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*)lf[145]+1))){ /* c-backend.scm:820: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[410]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6307(2,av2);}}} /* k6298 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,9)))){ C_save_and_reclaim((void *)f_6300,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_6304,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); /* c-backend.scm:816: gen */ t6=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(10); } av2[0]=t6; av2[1]=t5; av2[2]=C_SCHEME_TRUE; av2[3]=lf[411]; av2[4]=C_SCHEME_TRUE; av2[5]=lf[412]; av2[6]=C_SCHEME_TRUE; av2[7]=lf[413]; av2[8]=((C_word*)t0)[7]; av2[9]=lf[414]; ((C_proc)(void*)(*((C_word*)t6+1)))(10,av2);}} /* k6305 in k6302 in k6298 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in ... */ static void C_ccall f_6307(C_word c,C_word *av){ C_word tmp; C_word t0=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_6307,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6310,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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*)lf[408]+1))){ /* c-backend.scm:822: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[409]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6310(2,av2);}}} /* k8842 in map-loop1674 in k8790 in k8771 in k8754 in k8737 in k8720 in k8703 in k8686 in k8669 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in ... */ static void C_ccall f_8844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8844,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8819(t6,((C_word*)t0)[5],t5);} /* k5504 in k5466 in k5463 in k5460 in k5457 in k5454 in k5451 in a5448 in trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ C_save_and_reclaim((void *)f_5506,2,av);} a=C_alloc(5); t2=(C_truep(t1)?C_SCHEME_FALSE:((C_word*)t0)[2]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5477,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:656: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 11) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(11); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=C_SCHEME_TRUE; av2[4]=lf[323]; av2[5]=((C_word*)t0)[5]; av2[6]=lf[324]; av2[7]=C_SCHEME_TRUE; av2[8]=lf[325]; av2[9]=((C_word*)t0)[5]; av2[10]=lf[326]; ((C_proc)(void*)(*((C_word*)t4+1)))(11,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9925 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_9927,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9933,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:1334: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[809]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k6841 in k6835 in k6775 in emit-debug-table in k2624 in k2539 in k2536 in k2533 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6843,2,av);} /* c-backend.scm:932: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[500]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k6817 in for-each-loop1048 in k6780 in for-each-loop1035 in k6835 in k6775 in emit-debug-table in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6819,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6809(t3,((C_word*)t0)[4],t2);} /* literal-size in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5575,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5582,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:676: immediate? */ t4=*((C_word*)lf[341]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k9931 in k9925 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_9933(C_word c,C_word *av){ C_word tmp; C_word t0=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_9933,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9936,a[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:1334: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9934 in k9931 in k9925 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_9936(C_word c,C_word *av){ C_word tmp; C_word t0=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_9936,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9939,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1334: ##sys#write-char-0 */ t3=*((C_word*)lf[329]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(44); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k9937 in k9934 in k9931 in k9925 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_9939(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9939,2,av);} /* c-backend.scm:1334: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9255 in foreign-argument-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_9257(C_word t0,C_word t1){ C_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_9257,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[750]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[626]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=lf[751]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_eqp(((C_word*)t0)[3],lf[627]); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[752]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[3],lf[618]); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t5; av2[1]=lf[753]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(((C_word*)t0)[3],lf[612]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9284,a[2]=((C_word*)t0)[2],a[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_9284(t7,t5);} else{ t7=C_eqp(((C_word*)t0)[3],lf[620]); t8=t6; f_9284(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[3],lf[585])));}}}}}} /* k10717 in encode-literal in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,3)))){ C_save_and_reclaim((void *)f_10719,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:1402: string-append */ t4=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop1035 in k6835 in k6775 in emit-debug-table in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_6848(C_word t0,C_word t1,C_word t2){ C_word 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,5)))){ C_save_and_reclaim_args((void *)trf_6848,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_6858,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_6782,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t8=C_i_cadr(t6); /* c-backend.scm:925: gen */ t9=*((C_word*)lf[1]+1);{ C_word av2[6]; av2[0]=t9; av2[1]=t7; av2[2]=C_SCHEME_TRUE; av2[3]=lf[505]; av2[4]=t8; av2[5]=lf[506]; ((C_proc)(void*)(*((C_word*)t9+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);}}} /* doloop744 in literal-frame in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5525(C_word t0,C_word t1,C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_5525,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_5535,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_5552,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:670: open-output-string */ t8=*((C_word*)lf[332]+1);{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k10836 in encode-literal in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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(29,c,3)))){ C_save_and_reclaim((void *)f_10838,2,av);} a=C_alloc(29); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10833,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[3]; /* ##sys#fixnum->string */ t4=*((C_word*)lf[848]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_a_i_arithmetic_shift(&a,2,((C_word*)t0)[3],C_fix(-24)); t3=C_a_i_bitwise_and(&a,2,C_fix(255),t2); t4=C_make_character(C_unfix(t3)); t5=C_a_i_arithmetic_shift(&a,2,((C_word*)t0)[3],C_fix(-16)); t6=C_a_i_bitwise_and(&a,2,C_fix(255),t5); t7=C_make_character(C_unfix(t6)); t8=C_a_i_arithmetic_shift(&a,2,((C_word*)t0)[3],C_fix(-8)); t9=C_a_i_bitwise_and(&a,2,C_fix(255),t8); t10=C_make_character(C_unfix(t9)); t11=((C_word*)t0)[3]; t12=C_fixnum_and(C_fix(255),t11); t13=C_make_character(C_unfix(t12)); t14=C_a_i_string(&a,4,t4,t7,t10,t13); /* ##sys#string-append */ t15=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t15; av2[1]=((C_word*)t0)[2]; av2[2]=lf[849]; av2[3]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}}} /* k10831 in k10836 in encode-literal in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10833,2,av);} /* c-backend.scm:1418: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[846]; av2[3]=t1; av2[4]=lf[847]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6835 in k6775 in emit-debug-table in k2624 in k2539 in k2536 in k2533 */ 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 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_6837,2,av);} a=C_alloc(8); t2=C_i_check_list_2(t1,lf[57]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6843,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_6848,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_6848(t7,t3,t1);} /* k3254 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_3256,2,av);} /* c-backend.scm:193: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[70]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[71]; av2[5]=t1; av2[6]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* literal-frame in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5519(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,4)))){ C_save_and_reclaim_args((void *)trf_5519,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_5525,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_5525(t5,t1,C_fix(0),((C_word*)t0)[3]);} /* k5515 in k5460 in k5457 in k5454 in k5451 in a5448 in trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5517,2,av);} t2=((C_word*)t0)[2]; f_5465(t2,C_i_zerop(t1));} /* k8041 in for-each-loop1453 in k7998 in k7995 in k7983 in k7980 in k7977 in k7974 in k7971 in k7968 in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_8043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8043,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_8033(t4,((C_word*)t0)[5],t2,t3);} /* k10865 in encode-literal in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10867,2,av);} /* c-backend.scm:1423: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[852]; av2[3]=t1; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3015 in k3012 in k3009 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3017,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3020,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* c-backend.scm:147: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k3012 in k3009 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_3014,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3017,a[2]=((C_word*)t0)[2],a[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_a_i_plus(&a,2,t3,C_fix(1)); /* c-backend.scm:146: gen */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=lf[45]; av2[3]=t4; av2[4]=lf[46]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k3009 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_3011,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3014,a[2]=((C_word*)t0)[2],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:145: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in a6056 in procedures in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_6085,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_6088,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:760: make-argument-list */ t4=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=lf[480]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k4116 in k4113 in k4110 in k4107 in k4198 in k4097 in k4091 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(10,c,3)))){ C_save_and_reclaim((void *)f_4118,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4121,a[2]=((C_word*)t0)[2],a[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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_4121(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4139,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:384: expr */ t4=((C_word*)((C_word*)t0)[7])[1]; f_2649(t4,t3,((C_word*)t0)[8],((C_word*)t0)[5]);}} /* k4113 in k4110 in k4107 in k4198 in k4097 in k4091 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_4115,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4118,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_4151,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:381: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[165]; av2[3]=((C_word*)t0)[10]; av2[4]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_4118(2,av2);}}} /* k4110 in k4107 in k4198 in k4097 in k4091 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(11,c,5)))){ C_save_and_reclaim((void *)f_4112,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4115,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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:379: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[166]; av2[4]=((C_word*)t0)[11]; av2[5]=C_make_character(40); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* for-each-loop1453 in k7998 in k7995 in k7983 in k7980 in k7977 in k7974 in k7971 in k7968 in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8033(C_word t0,C_word t1,C_word 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_8033,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_8043,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_7994,a[2]=t9,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1129: foreign-result-conversion */ t12=*((C_word*)lf[194]+1);{ C_word av2[4]; av2[0]=t12; av2[1]=t11; av2[2]=t8; av2[3]=lf[640]; ((C_proc)(void*)(*((C_word*)t12+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);}}} /* k8029 in k8001 in k7998 in k7995 in k7983 in k7980 in k7977 in k7974 in k7971 in k7968 in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_8031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8031,2,av);} /* c-backend.scm:1134: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[636]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k10849 in encode-literal in k2624 in k2539 in k2536 in k2533 */ 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(0,c,4)))){ C_save_and_reclaim((void *)f_10851,2,av);} /* c-backend.scm:1420: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[850]; av2[3]=t1; av2[4]=lf[851]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6068 in k6065 in k6062 in k6059 in a6056 in procedures in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_6070,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6073,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((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:755: lambda-literal-rest-argument */ t4=*((C_word*)lf[311]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6071 in k6068 in k6065 in k6062 in k6059 in a6056 in procedures in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6073,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_6076,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:756: lambda-literal-customizable */ t5=*((C_word*)lf[250]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_backend_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("backend_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_backend_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(1823))){ C_save(t1); C_rereclaim2(1823*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,858); lf[0]=C_h_intern(&lf[0],15,"\010compileroutput"); lf[1]=C_h_intern(&lf[1],12,"\010compilergen"); lf[2]=C_h_intern(&lf[2],7,"newline"); lf[3]=C_h_intern(&lf[3],7,"display"); lf[4]=C_h_intern(&lf[4],17,"\010compilergen-list"); lf[5]=C_h_intern(&lf[5],11,"intersperse"); lf[6]=C_h_intern(&lf[6],18,"\010compilerunique-id"); lf[7]=C_h_intern(&lf[7],22,"\010compilergenerate-code"); lf[8]=C_h_intern(&lf[8],13,"\010compilerbomb"); lf[9]=C_decode_literal(C_heaptop,"\376B\000\000\021can\047t find lambda"); lf[10]=C_h_intern(&lf[10],18,"\003syshash-table-ref"); lf[11]=C_h_intern(&lf[11],14,"\004coreimmediate"); lf[12]=C_h_intern(&lf[12],4,"bool"); lf[13]=C_decode_literal(C_heaptop,"\376B\000\000\015C_SCHEME_TRUE"); lf[14]=C_decode_literal(C_heaptop,"\376B\000\000\016C_SCHEME_FALSE"); lf[15]=C_h_intern(&lf[15],4,"char"); lf[16]=C_decode_literal(C_heaptop,"\376B\000\000\021C_make_character("); lf[17]=C_h_intern(&lf[17],3,"nil"); lf[18]=C_decode_literal(C_heaptop,"\376B\000\000\024C_SCHEME_END_OF_LIST"); lf[19]=C_h_intern(&lf[19],3,"fix"); lf[20]=C_decode_literal(C_heaptop,"\376B\000\000\006C_fix("); lf[21]=C_h_intern(&lf[21],3,"eof"); lf[22]=C_decode_literal(C_heaptop,"\376B\000\000\024C_SCHEME_END_OF_FILE"); lf[23]=C_decode_literal(C_heaptop,"\376B\000\000\015bad immediate"); lf[24]=C_h_intern(&lf[24],12,"\004coreliteral"); lf[25]=C_decode_literal(C_heaptop,"\376B\000\000\013((C_word)li"); lf[26]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[27]=C_decode_literal(C_heaptop,"\376B\000\000\003lf["); lf[28]=C_h_intern(&lf[28],2,"if"); lf[29]=C_decode_literal(C_heaptop,"\376B\000\000\005else{"); lf[30]=C_decode_literal(C_heaptop,"\376B\000\000\003)){"); lf[31]=C_decode_literal(C_heaptop,"\376B\000\000\013if(C_truep("); lf[32]=C_h_intern(&lf[32],9,"\004coreproc"); lf[33]=C_decode_literal(C_heaptop,"\376B\000\000\010(C_word)"); lf[34]=C_h_intern(&lf[34],9,"\004corebind"); lf[35]=C_h_intern(&lf[35],16,"\004corelet_unboxed"); lf[36]=C_h_intern(&lf[36],8,"\004coreref"); lf[37]=C_decode_literal(C_heaptop,"\376B\000\000\002)["); lf[38]=C_decode_literal(C_heaptop,"\376B\000\000\012((C_word\052)"); lf[39]=C_h_intern(&lf[39],10,"\004coreunbox"); lf[40]=C_decode_literal(C_heaptop,"\376B\000\000\004)[1]"); lf[41]=C_decode_literal(C_heaptop,"\376B\000\000\012((C_word\052)"); lf[42]=C_h_intern(&lf[42],13,"\004coreupdate_i"); lf[43]=C_decode_literal(C_heaptop,"\376B\000\000\021C_set_block_item("); lf[44]=C_h_intern(&lf[44],11,"\004coreupdate"); lf[45]=C_decode_literal(C_heaptop,"\376B\000\000\002)+"); lf[46]=C_decode_literal(C_heaptop,"\376B\000\000\001,"); lf[47]=C_decode_literal(C_heaptop,"\376B\000\000\025C_mutate2(((C_word \052)"); lf[48]=C_h_intern(&lf[48],16,"\004coreupdatebox_i"); lf[49]=C_decode_literal(C_heaptop,"\376B\000\000\003,0,"); lf[50]=C_decode_literal(C_heaptop,"\376B\000\000\021C_set_block_item("); lf[51]=C_h_intern(&lf[51],14,"\004coreupdatebox"); lf[52]=C_decode_literal(C_heaptop,"\376B\000\000\004)+1,"); lf[53]=C_decode_literal(C_heaptop,"\376B\000\000\025C_mutate2(((C_word \052)"); lf[54]=C_h_intern(&lf[54],12,"\004coreclosure"); lf[55]=C_decode_literal(C_heaptop,"\376B\000\000\002a["); lf[56]=C_decode_literal(C_heaptop,"\376B\000\000\002]="); lf[57]=C_h_intern(&lf[57],8,"for-each"); lf[58]=C_decode_literal(C_heaptop,"\376B\000\000\021tmp=(C_word)a,a+="); lf[59]=C_decode_literal(C_heaptop,"\376B\000\000\005,tmp)"); lf[60]=C_h_intern(&lf[60],4,"iota"); lf[61]=C_decode_literal(C_heaptop,"\376B\000\000\023(\052a=C_CLOSURE_TYPE|"); lf[62]=C_h_intern(&lf[62],8,"\004corebox"); lf[63]=C_decode_literal(C_heaptop,"\376B\000\000\030,tmp=(C_word)a,a+=2,tmp)"); lf[64]=C_decode_literal(C_heaptop,"\376B\000\000\031(\052a=C_VECTOR_TYPE|1,a[1]="); lf[65]=C_h_intern(&lf[65],10,"\004corelocal"); lf[66]=C_h_intern(&lf[66],13,"\004coresetlocal"); lf[67]=C_h_intern(&lf[67],11,"\004coreglobal"); lf[68]=C_decode_literal(C_heaptop,"\376B\000\000\003lf["); lf[69]=C_decode_literal(C_heaptop,"\376B\000\000\001]"); lf[70]=C_decode_literal(C_heaptop,"\376B\000\000\017C_retrieve2(lf["); lf[71]=C_decode_literal(C_heaptop,"\376B\000\000\002],"); lf[72]=C_h_intern(&lf[72],21,"\010compilerc-ify-string"); lf[73]=C_h_intern(&lf[73],28,"\003syssymbol->qualified-string"); lf[74]=C_decode_literal(C_heaptop,"\376B\000\000\016\052((C_word\052)lf["); lf[75]=C_decode_literal(C_heaptop,"\376B\000\000\004]+1)"); lf[76]=C_decode_literal(C_heaptop,"\376B\000\000\023C_fast_retrieve(lf["); lf[77]=C_decode_literal(C_heaptop,"\376B\000\000\002])"); lf[78]=C_h_intern(&lf[78],14,"\004coresetglobal"); lf[79]=C_decode_literal(C_heaptop,"\376B\000\000\012 /\052 (set! "); lf[80]=C_decode_literal(C_heaptop,"\376B\000\000\011 ...) \052/,"); lf[81]=C_h_intern(&lf[81],21,"\010compileruncommentify"); lf[82]=C_decode_literal(C_heaptop,"\376B\000\000\016C_mutate2(&lf["); lf[83]=C_decode_literal(C_heaptop,"\376B\000\000\001]"); lf[84]=C_decode_literal(C_heaptop,"\376B\000\000\026C_mutate2((C_word\052)lf["); lf[85]=C_decode_literal(C_heaptop,"\376B\000\000\003]+1"); lf[86]=C_h_intern(&lf[86],16,"\004coresetglobal_i"); lf[87]=C_decode_literal(C_heaptop,"\376B\000\000\003lf["); lf[88]=C_decode_literal(C_heaptop,"\376B\000\000\005] /\052 "); lf[89]=C_decode_literal(C_heaptop,"\376B\000\000\005 \052/ ="); lf[90]=C_decode_literal(C_heaptop,"\376B\000\000\024C_set_block_item(lf["); lf[91]=C_decode_literal(C_heaptop,"\376B\000\000\005] /\052 "); lf[92]=C_decode_literal(C_heaptop,"\376B\000\000\006 \052/,0,"); lf[93]=C_h_intern(&lf[93],14,"\004coreundefined"); lf[94]=C_decode_literal(C_heaptop,"\376B\000\000\022C_SCHEME_UNDEFINED"); lf[95]=C_h_intern(&lf[95],9,"\004corecall"); lf[96]=C_decode_literal(C_heaptop,"\376B\000\000\007,av2);}"); lf[97]=C_decode_literal(C_heaptop,"\376B\000\000\0010"); lf[98]=C_decode_literal(C_heaptop,"\376B\000\000\012goto loop;"); lf[99]=C_decode_literal(C_heaptop,"\376B\000\000\002c="); lf[100]=C_decode_literal(C_heaptop,"\376B\000\000\002=t"); lf[101]=C_h_intern(&lf[101],26,"lambda-literal-temporaries"); lf[102]=C_decode_literal(C_heaptop,"\376B\000\000\002);"); lf[103]=C_decode_literal(C_heaptop,"\376B\000\000\006av2);}"); lf[104]=C_h_intern(&lf[104],17,"\003sysstring-append"); lf[105]=C_decode_literal(C_heaptop,"\376B\000\000\001t"); lf[106]=C_h_intern(&lf[106],14,"number->string"); lf[107]=C_h_intern(&lf[107],22,"lambda-literal-looping"); lf[108]=C_h_intern(&lf[108],17,"lambda-literal-id"); lf[109]=C_decode_literal(C_heaptop,"\376B\000\000\003tp("); lf[110]=C_decode_literal(C_heaptop,"\376B\000\000\007,av2);}"); lf[111]=C_h_intern(&lf[111],35,"\010compilerno-global-procedure-checks"); lf[112]=C_decode_literal(C_heaptop,"\376B\000\000\024(void\052)(\052((C_word\052)("); lf[113]=C_decode_literal(C_heaptop,"\376B\000\000\005)+1))"); lf[114]=C_h_intern(&lf[114],13,"string-append"); lf[115]=C_decode_literal(C_heaptop,"\376B\000\000\003lf["); lf[116]=C_decode_literal(C_heaptop,"\376B\000\000\001]"); lf[117]=C_decode_literal(C_heaptop,"\376B\000\000\016\052((C_word\052)lf["); lf[118]=C_decode_literal(C_heaptop,"\376B\000\000\004]+1)"); lf[119]=C_decode_literal(C_heaptop,"\376B\000\000\025C_fast_retrieve_proc("); lf[120]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[121]=C_decode_literal(C_heaptop,"\376B\000\000\030C_retrieve2_symbol_proc("); lf[122]=C_decode_literal(C_heaptop,"\376B\000\000\001,"); lf[123]=C_decode_literal(C_heaptop,"\376B\000\000\003lf["); lf[124]=C_decode_literal(C_heaptop,"\376B\000\000\001]"); lf[125]=C_decode_literal(C_heaptop,"\376B\000\000\025C_fast_retrieve_proc("); lf[126]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[127]=C_decode_literal(C_heaptop,"\376B\000\000\016\052((C_word\052)lf["); lf[128]=C_decode_literal(C_heaptop,"\376B\000\000\004]+1)"); lf[129]=C_decode_literal(C_heaptop,"\376B\000\000\037C_fast_retrieve_symbol_proc(lf["); lf[130]=C_decode_literal(C_heaptop,"\376B\000\000\002])"); lf[131]=C_decode_literal(C_heaptop,"\376B\000\000\016\052((C_word\052)lf["); lf[132]=C_decode_literal(C_heaptop,"\376B\000\000\004]+1)"); lf[133]=C_decode_literal(C_heaptop,"\376B\000\000\023{C_proc tp=(C_proc)"); lf[134]=C_decode_literal(C_heaptop,"\376B\000\000\002)("); lf[135]=C_decode_literal(C_heaptop,"\376B\000\000\007,av2);}"); lf[136]=C_h_intern(&lf[136],6,"unsafe"); lf[137]=C_decode_literal(C_heaptop,"\376B\000\000\024(void\052)(\052((C_word\052)t"); lf[138]=C_decode_literal(C_heaptop,"\376B\000\000\004+1))"); lf[139]=C_decode_literal(C_heaptop,"\376B\000\000\026C_fast_retrieve_proc(t"); lf[140]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[141]=C_h_intern(&lf[141],28,"\010compilerno-procedure-checks"); lf[142]=C_decode_literal(C_heaptop,"\376B\000\000\011((C_proc)"); lf[143]=C_decode_literal(C_heaptop,"\376B\000\000\001t"); lf[144]=C_decode_literal(C_heaptop,"\376B\000\000\002;{"); lf[145]=C_h_intern(&lf[145],15,"emit-debug-info"); lf[146]=C_decode_literal(C_heaptop,"\376B\000\000\032C_debugger(&(C_debug_info["); lf[147]=C_decode_literal(C_heaptop,"\376B\000\000\003]),"); lf[148]=C_decode_literal(C_heaptop,"\376B\000\000\0060,NULL"); lf[149]=C_decode_literal(C_heaptop,"\376B\000\000\002);"); lf[150]=C_decode_literal(C_heaptop,"\376B\000\000\004c,av"); lf[151]=C_h_intern(&lf[151],24,"\010compileremit-trace-info"); lf[152]=C_decode_literal(C_heaptop,"\376B\000\000\011C_trace(\042"); lf[153]=C_decode_literal(C_heaptop,"\376B\000\000\003\042);"); lf[154]=C_h_intern(&lf[154],21,"\010compilerbackslashify"); lf[155]=C_decode_literal(C_heaptop,"\376B\000\000\003/\052 "); lf[156]=C_decode_literal(C_heaptop,"\376B\000\000\003 \052/"); lf[157]=C_h_intern(&lf[157],27,"lambda-literal-closure-size"); lf[158]=C_h_intern(&lf[158],5,"fifth"); lf[159]=C_h_intern(&lf[159],28,"\010compilersource-info->string"); lf[160]=C_h_intern(&lf[160],12,"\004corerecurse"); lf[161]=C_decode_literal(C_heaptop,"\376B\000\000\012goto loop;"); lf[162]=C_decode_literal(C_heaptop,"\376B\000\000\002=t"); lf[163]=C_decode_literal(C_heaptop,"\376B\000\000\003t0,"); lf[164]=C_h_intern(&lf[164],16,"\004coredirect_call"); lf[165]=C_decode_literal(C_heaptop,"\376B\000\000\011C_a_i(&a,"); lf[166]=C_decode_literal(C_heaptop,"\376B\000\000\002 "); lf[167]=C_decode_literal(C_heaptop,"\376B\000\000\034 C_debugger(&(C_debug_info["); lf[168]=C_decode_literal(C_heaptop,"\376B\000\000\003]),"); lf[169]=C_decode_literal(C_heaptop,"\376B\000\000\0060,NULL"); lf[170]=C_decode_literal(C_heaptop,"\376B\000\000\002),"); lf[171]=C_decode_literal(C_heaptop,"\376B\000\000\004c,av"); lf[172]=C_decode_literal(C_heaptop,"\376B\000\000\013 C_trace(\042"); lf[173]=C_decode_literal(C_heaptop,"\376B\000\000\003\042),"); lf[174]=C_decode_literal(C_heaptop,"\376B\000\000\005 /\052 "); lf[175]=C_decode_literal(C_heaptop,"\376B\000\000\003 \052/"); lf[176]=C_h_intern(&lf[176],13,"\004corecallunit"); lf[177]=C_decode_literal(C_heaptop,"\376B\000\000\002C_"); lf[178]=C_decode_literal(C_heaptop,"\376B\000\000\012_toplevel("); lf[179]=C_decode_literal(C_heaptop,"\376B\000\000\007,av2);}"); lf[180]=C_decode_literal(C_heaptop,"\376B\000\000\022C_SCHEME_UNDEFINED"); lf[181]=C_h_intern(&lf[181],11,"\004corereturn"); lf[182]=C_decode_literal(C_heaptop,"\376B\000\000\002);"); lf[183]=C_decode_literal(C_heaptop,"\376B\000\000\007return("); lf[184]=C_h_intern(&lf[184],11,"\004coreinline"); lf[185]=C_h_intern(&lf[185],16,"\004coredebug-event"); lf[186]=C_decode_literal(C_heaptop,"\376B\000\000\032C_debugger(&(C_debug_info["); lf[187]=C_decode_literal(C_heaptop,"\376B\000\000\003]),"); lf[188]=C_decode_literal(C_heaptop,"\376B\000\000\0060,NULL"); lf[189]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[190]=C_decode_literal(C_heaptop,"\376B\000\000\004c,av"); lf[191]=C_h_intern(&lf[191],20,"\004coreinline_allocate"); lf[192]=C_decode_literal(C_heaptop,"\376B\000\000\004(&a,"); lf[193]=C_h_intern(&lf[193],15,"\004coreinline_ref"); lf[194]=C_h_intern(&lf[194],34,"\010compilerforeign-result-conversion"); lf[195]=C_decode_literal(C_heaptop,"\376B\000\000\001a"); lf[196]=C_h_intern(&lf[196],18,"\004coreinline_update"); lf[197]=C_decode_literal(C_heaptop,"\376B\000\000\025),C_SCHEME_UNDEFINED)"); lf[198]=C_decode_literal(C_heaptop,"\376B\000\000\002=("); lf[199]=C_h_intern(&lf[199],36,"\010compilerforeign-argument-conversion"); lf[200]=C_h_intern(&lf[200],33,"\010compilerforeign-type-declaration"); lf[201]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[202]=C_h_intern(&lf[202],19,"\004coreinline_loc_ref"); lf[203]=C_decode_literal(C_heaptop,"\376B\000\000\003)))"); lf[204]=C_decode_literal(C_heaptop,"\376B\000\000\003\052(("); lf[205]=C_decode_literal(C_heaptop,"\376B\000\000\021\052)C_data_pointer("); lf[206]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[207]=C_decode_literal(C_heaptop,"\376B\000\000\001a"); lf[208]=C_h_intern(&lf[208],22,"\004coreinline_loc_update"); lf[209]=C_decode_literal(C_heaptop,"\376B\000\000\025),C_SCHEME_UNDEFINED)"); lf[210]=C_decode_literal(C_heaptop,"\376B\000\000\003))="); lf[211]=C_decode_literal(C_heaptop,"\376B\000\000\004((\052("); lf[212]=C_decode_literal(C_heaptop,"\376B\000\000\021\052)C_data_pointer("); lf[213]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[214]=C_h_intern(&lf[214],16,"\004coreunboxed_ref"); lf[215]=C_h_intern(&lf[215],17,"\004coreunboxed_set!"); lf[216]=C_decode_literal(C_heaptop,"\376B\000\000\025),C_SCHEME_UNDEFINED)"); lf[217]=C_decode_literal(C_heaptop,"\376B\000\000\002(("); lf[218]=C_h_intern(&lf[218],19,"\004coreinline_unboxed"); lf[219]=C_decode_literal(C_heaptop,"\376B\000\000\001("); lf[220]=C_h_intern(&lf[220],11,"\004coreswitch"); lf[221]=C_decode_literal(C_heaptop,"\376B\000\000\010default:"); lf[222]=C_decode_literal(C_heaptop,"\376B\000\000\005case "); lf[223]=C_decode_literal(C_heaptop,"\376B\000\000\002){"); lf[224]=C_decode_literal(C_heaptop,"\376B\000\000\007switch("); lf[225]=C_h_intern(&lf[225],9,"\004corecond"); lf[226]=C_decode_literal(C_heaptop,"\376B\000\000\002)\077"); lf[227]=C_decode_literal(C_heaptop,"\376B\000\000\011(C_truep("); lf[228]=C_decode_literal(C_heaptop,"\376B\000\000\010bad form"); lf[229]=C_h_intern(&lf[229],13,"pair-for-each"); lf[230]=C_decode_literal(C_heaptop,"\376B\000\000\001;"); lf[231]=C_decode_literal(C_heaptop,"\376B\000\000\004av2["); lf[232]=C_decode_literal(C_heaptop,"\376B\000\000\002]="); lf[233]=C_decode_literal(C_heaptop,"\376B\000\000\007av2[0]="); lf[234]=C_decode_literal(C_heaptop,"\376B\000\000\001;"); lf[235]=C_decode_literal(C_heaptop,"\376B\000\000\013C_word av2["); lf[236]=C_decode_literal(C_heaptop,"\376B\000\000\002];"); lf[237]=C_decode_literal(C_heaptop,"\376B\000\000.C_word \052av2=av; /\052 Re-use our own argvector \052/"); lf[238]=C_decode_literal(C_heaptop,"\376B\000\000\001}"); lf[239]=C_decode_literal(C_heaptop,"\376B\000\000\016 av2=C_alloc("); lf[240]=C_decode_literal(C_heaptop,"\376B\000\000\002);"); lf[241]=C_decode_literal(C_heaptop,"\376B\000\000\010} else {"); lf[242]=C_decode_literal(C_heaptop,"\376B\000\000( av2=av; /\052 Re-use our own argvector \052/"); lf[243]=C_decode_literal(C_heaptop,"\376B\000\000\010if(c >= "); lf[244]=C_decode_literal(C_heaptop,"\376B\000\000\003) {"); lf[245]=C_decode_literal(C_heaptop,"\376B\000\000\014C_word \052av2;"); lf[246]=C_h_intern(&lf[246],4,"none"); lf[247]=C_h_intern(&lf[247],33,"lambda-literal-rest-argument-mode"); lf[248]=C_h_intern(&lf[248],29,"lambda-literal-argument-count"); lf[249]=C_h_intern(&lf[249],21,"lambda-literal-direct"); lf[250]=C_h_intern(&lf[250],27,"lambda-literal-customizable"); lf[251]=C_decode_literal(C_heaptop,"\376B\000\000\0010"); lf[252]=C_h_intern(&lf[252],30,"\010compilerexternal-protos-first"); lf[253]=C_h_intern(&lf[253],50,"\010compilergenerate-foreign-callback-stub-prototypes"); lf[254]=C_h_intern(&lf[254],22,"foreign-callback-stubs"); lf[255]=C_h_intern(&lf[255],29,"\010compilerforeign-declarations"); lf[256]=C_decode_literal(C_heaptop,"\376B\000\000\002\052/"); lf[257]=C_decode_literal(C_heaptop,"\376B\000\000\012#include \042"); lf[258]=C_h_intern(&lf[258],28,"\010compilertarget-include-file"); lf[259]=C_decode_literal(C_heaptop,"\376B\000\000\001\042"); lf[260]=C_h_intern(&lf[260],18,"\010compilerunit-name"); lf[261]=C_decode_literal(C_heaptop,"\376B\000\000\011 unit: "); lf[262]=C_h_intern(&lf[262],19,"\010compilerused-units"); lf[263]=C_decode_literal(C_heaptop,"\376B\000\000\017 used units: "); lf[264]=C_h_intern(&lf[264],27,"\010compilercompiler-arguments"); lf[265]=C_decode_literal(C_heaptop,"\376B\000\000\022/\052 Generated from "); lf[266]=C_decode_literal(C_heaptop,"\376B\000\000\030 by the CHICKEN compiler"); lf[267]=C_decode_literal(C_heaptop,"\376B\000\000\031 http://www.call-cc.org"); lf[268]=C_decode_literal(C_heaptop,"\376B\000\000\003 "); lf[269]=C_decode_literal(C_heaptop,"\376B\000\000\021 command line: "); lf[270]=C_h_intern(&lf[270],18,"string-intersperse"); lf[271]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[272]=C_decode_literal(C_heaptop,"\376B\000\000\003 "); lf[273]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[274]=C_h_intern(&lf[274],12,"string-split"); lf[275]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[276]=C_h_intern(&lf[276],15,"chicken-version"); lf[277]=C_h_intern(&lf[277],18,"\003sysdecode-seconds"); lf[278]=C_h_intern(&lf[278],15,"current-seconds"); lf[279]=C_decode_literal(C_heaptop,"\376B\000\000\002};"); lf[280]=C_decode_literal(C_heaptop,"\376B\000\000\002,0"); lf[281]=C_decode_literal(C_heaptop,"\376B\000\000\026static C_char C_TLS li"); lf[282]=C_decode_literal(C_heaptop,"\376B\000\000\026[] C_aligned={C_lihdr("); lf[283]=C_h_intern(&lf[283],23,"\003syslambda-info->string"); lf[284]=C_decode_literal(C_heaptop,"\376B\000\000)static double C_possibly_force_alignment;"); lf[285]=C_decode_literal(C_heaptop,"\376B\000\000\027static C_TLS C_word lf["); lf[286]=C_decode_literal(C_heaptop,"\376B\000\000\002];"); lf[287]=C_decode_literal(C_heaptop,"\376B\000\000\017C_noret_decl(C_"); lf[288]=C_decode_literal(C_heaptop,"\376B\000\000\012_toplevel)"); lf[289]=C_decode_literal(C_heaptop,"\376B\000\000\036C_externimport void C_ccall C_"); lf[290]=C_decode_literal(C_heaptop,"\376B\000\000\047_toplevel(C_word c,C_word \052av) C_noret;"); lf[291]=C_decode_literal(C_heaptop,"\376B\000\000+static C_PTABLE_ENTRY \052create_ptable(void);"); lf[292]=C_decode_literal(C_heaptop,"\376B\000\000\010 C_noret"); lf[293]=C_decode_literal(C_heaptop,"\376B\000\000\012C_word \052av"); lf[294]=C_decode_literal(C_heaptop,"\376B\000\000\011C_word \052a"); lf[295]=C_decode_literal(C_heaptop,"\376B\000\000\011C_word c,"); lf[296]=C_h_intern(&lf[296],8,"toplevel"); lf[297]=C_decode_literal(C_heaptop,"\376B\000\000\002C_"); lf[298]=C_decode_literal(C_heaptop,"\376B\000\000\034C_externexport void C_ccall "); lf[299]=C_decode_literal(C_heaptop,"\376B\000\000\017C_noret_decl(C_"); lf[300]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[301]=C_decode_literal(C_heaptop,"\376B\000\000\011_toplevel"); lf[302]=C_decode_literal(C_heaptop,"\376B\000\000\010toplevel"); lf[303]=C_decode_literal(C_heaptop,"\376B\000\000\010C_fcall "); lf[304]=C_decode_literal(C_heaptop,"\376B\000\000\010C_ccall "); lf[305]=C_decode_literal(C_heaptop,"\376B\000\000\007C_word "); lf[306]=C_decode_literal(C_heaptop,"\376B\000\000\005void "); lf[307]=C_decode_literal(C_heaptop,"\376B\000\000\007static "); lf[308]=C_decode_literal(C_heaptop,"\376B\000\000\015C_noret_decl("); lf[309]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[310]=C_h_intern(&lf[310],24,"lambda-literal-allocated"); lf[311]=C_h_intern(&lf[311],28,"lambda-literal-rest-argument"); lf[312]=C_h_intern(&lf[312],27,"\010compilermake-variable-list"); lf[313]=C_decode_literal(C_heaptop,"\376B\000\000\001t"); lf[314]=C_h_intern(&lf[314],23,"\003syshash-table-for-each"); lf[315]=C_decode_literal(C_heaptop,"\376B\000\000\003);}"); lf[316]=C_h_intern(&lf[316],27,"\010compilermake-argument-list"); lf[317]=C_decode_literal(C_heaptop,"\376B\000\000\001t"); lf[318]=C_decode_literal(C_heaptop,"\376B\000\000\010C_word t"); lf[319]=C_decode_literal(C_heaptop,"\376B\000\000\004=av["); lf[320]=C_decode_literal(C_heaptop,"\376B\000\000\002];"); lf[321]=C_decode_literal(C_heaptop,"\376B\000\000\026static void C_ccall tr"); lf[322]=C_decode_literal(C_heaptop,"\376B\000\000\026(C_word c,C_word \052av){"); lf[323]=C_decode_literal(C_heaptop,"\376B\000\000\017C_noret_decl(tr"); lf[324]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[325]=C_decode_literal(C_heaptop,"\376B\000\000\026static void C_ccall tr"); lf[326]=C_decode_literal(C_heaptop,"\376B\000\000\036(C_word c,C_word \052av) C_noret;"); lf[327]=C_h_intern(&lf[327],7,"sprintf"); lf[328]=C_h_intern(&lf[328],17,"get-output-string"); lf[329]=C_h_intern(&lf[329],16,"\003syswrite-char-0"); lf[330]=C_h_intern(&lf[330],9,"\003sysprint"); lf[331]=C_decode_literal(C_heaptop,"\376B\000\000\003lf["); lf[332]=C_h_intern(&lf[332],18,"open-output-string"); lf[333]=C_h_intern(&lf[333],25,"\010compilerwords-per-flonum"); lf[334]=C_h_intern(&lf[334],6,"reduce"); lf[335]=C_h_intern(&lf[335],1,"+"); lf[336]=C_h_intern(&lf[336],12,"vector->list"); lf[337]=C_decode_literal(C_heaptop,"\376B\000\000\035type of literal not supported"); lf[338]=C_h_intern(&lf[338],14,"\010compilerwords"); lf[339]=C_h_intern(&lf[339],15,"\003sysbytevector\077"); lf[340]=C_h_intern(&lf[340],32,"\010compilerblock-variable-literal\077"); lf[341]=C_h_intern(&lf[341],19,"\010compilerimmediate\077"); lf[342]=C_decode_literal(C_heaptop,"\376B\000\000\007=C_fix("); lf[343]=C_decode_literal(C_heaptop,"\376B\000\000\002);"); lf[344]=C_h_intern(&lf[344],19,"\003sysundefined-value"); lf[345]=C_decode_literal(C_heaptop,"\376B\000\000\024=C_SCHEME_UNDEFINED;"); lf[346]=C_decode_literal(C_heaptop,"\376B\000\000\015C_SCHEME_TRUE"); lf[347]=C_decode_literal(C_heaptop,"\376B\000\000\016C_SCHEME_FALSE"); lf[348]=C_decode_literal(C_heaptop,"\376B\000\000\022=C_make_character("); lf[349]=C_decode_literal(C_heaptop,"\376B\000\000\002);"); lf[350]=C_decode_literal(C_heaptop,"\376B\000\000\014C_h_intern(&"); lf[351]=C_decode_literal(C_heaptop,"\376B\000\000\002);"); lf[352]=C_decode_literal(C_heaptop,"\376B\000\000\001="); lf[353]=C_decode_literal(C_heaptop,"\376B\000\000\026=C_SCHEME_END_OF_LIST;"); lf[354]=C_decode_literal(C_heaptop,"\376B\000\000\002);"); lf[355]=C_h_intern(&lf[355],23,"\010compilerencode-literal"); lf[356]=C_decode_literal(C_heaptop,"\376B\000\000\034=C_decode_literal(C_heaptop,"); lf[357]=C_h_intern(&lf[357],20,"\010compilerbig-fixnum\077"); lf[358]=C_h_intern(&lf[358],6,"modulo"); lf[359]=C_h_intern(&lf[359],14,"\003syscopy-bytes"); lf[360]=C_h_intern(&lf[360],11,"make-string"); lf[361]=C_h_intern(&lf[361],19,"lambda-literal-body"); lf[362]=C_decode_literal(C_heaptop,"\376B\000\000\010C_word t"); lf[363]=C_decode_literal(C_heaptop,"\376B\000\000\001t"); lf[364]=C_decode_literal(C_heaptop,"\376B\000\000\023=C_build_rest(&a,c,"); lf[365]=C_decode_literal(C_heaptop,"\376B\000\000\005,av);"); lf[366]=C_decode_literal(C_heaptop,"\376B\000\000\032C_save_and_reclaim((void\052)"); lf[367]=C_decode_literal(C_heaptop,"\376B\000\000\010,c,av);}"); lf[368]=C_decode_literal(C_heaptop,"\376B\000\000\015a=C_alloc((c-"); lf[369]=C_decode_literal(C_heaptop,"\376B\000\000\020)\052C_SIZEOF_PAIR+"); lf[370]=C_decode_literal(C_heaptop,"\376B\000\000\002);"); lf[371]=C_decode_literal(C_heaptop,"\376B\000\000\012a=C_alloc("); lf[372]=C_decode_literal(C_heaptop,"\376B\000\000\002);"); lf[373]=C_decode_literal(C_heaptop,"\376B\000\000\003);}"); lf[374]=C_decode_literal(C_heaptop,"\376B\000\000\042C_save_and_reclaim_args((void \052)tr"); lf[375]=C_decode_literal(C_heaptop,"\376B\000\000\033C_save_and_reclaim((void \052)"); lf[376]=C_decode_literal(C_heaptop,"\376B\000\000\006,av);}"); lf[377]=C_decode_literal(C_heaptop,"\376B\000\000\003av["); lf[378]=C_decode_literal(C_heaptop,"\376B\000\000\003]=t"); lf[379]=C_decode_literal(C_heaptop,"\376B\000\000\001;"); lf[380]=C_decode_literal(C_heaptop,"\376B\000\000\022C_register_lf2(lf,"); lf[381]=C_decode_literal(C_heaptop,"\376B\000\000\022,create_ptable());"); lf[382]=C_decode_literal(C_heaptop,"\376B\000\000\023C_initialize_lf(lf,"); lf[383]=C_decode_literal(C_heaptop,"\376B\000\000\002);"); lf[384]=C_decode_literal(C_heaptop,"\376B\000\000+C_check_nursery_minimum(C_calculate_demand("); lf[385]=C_decode_literal(C_heaptop,"\376B\000\000\003,c,"); lf[386]=C_decode_literal(C_heaptop,"\376B\000\000\003));"); lf[387]=C_decode_literal(C_heaptop,"\376B\000\000+if(C_unlikely(!C_demand(C_calculate_demand("); lf[388]=C_decode_literal(C_heaptop,"\376B\000\000\003,c,"); lf[389]=C_decode_literal(C_heaptop,"\376B\000\000\005)))){"); lf[390]=C_decode_literal(C_heaptop,"\376B\000\000\034C_save_and_reclaim((void\052)C_"); lf[391]=C_decode_literal(C_heaptop,"\376B\000\000\010,c,av);}"); lf[392]=C_decode_literal(C_heaptop,"\376B\000\000\027toplevel_initialized=1;"); lf[393]=C_decode_literal(C_heaptop,"\376B\000\000\032if(C_unlikely(!C_demand_2("); lf[394]=C_decode_literal(C_heaptop,"\376B\000\000\004))){"); lf[395]=C_decode_literal(C_heaptop,"\376B\000\000\013C_save(t1);"); lf[396]=C_decode_literal(C_heaptop,"\376B\000\000\015C_rereclaim2("); lf[397]=C_decode_literal(C_heaptop,"\376B\000\000\023\052sizeof(C_word),1);"); lf[398]=C_decode_literal(C_heaptop,"\376B\000\000\016t1=C_restore;}"); lf[399]=C_decode_literal(C_heaptop,"\376B\000\000\012a=C_alloc("); lf[400]=C_decode_literal(C_heaptop,"\376B\000\000\002);"); lf[401]=C_h_intern(&lf[401],26,"\010compilertarget-stack-size"); lf[402]=C_decode_literal(C_heaptop,"\376B\000\000\017C_resize_stack("); lf[403]=C_decode_literal(C_heaptop,"\376B\000\000\002);"); lf[404]=C_h_intern(&lf[404],25,"\010compilertarget-heap-size"); lf[405]=C_decode_literal(C_heaptop,"\376B\000\000\032C_set_or_change_heap_size("); lf[406]=C_decode_literal(C_heaptop,"\376B\000\000\004,1);"); lf[407]=C_decode_literal(C_heaptop,"\376B\000\000\027C_heap_size_is_fixed=1;"); lf[408]=C_h_intern(&lf[408],40,"\010compilerdisable-stack-overflow-checking"); lf[409]=C_decode_literal(C_heaptop,"\376B\000\000\033C_disable_overflow_check=1;"); lf[410]=C_decode_literal(C_heaptop,"\376B\000\000$C_register_debug_info(C_debug_info);"); lf[411]=C_decode_literal(C_heaptop,"\376B\000\000\012C_word \052a;"); lf[412]=C_decode_literal(C_heaptop,"\376B\000\000=if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);}"); lf[413]=C_decode_literal(C_heaptop,"\376B\000\000\036else C_toplevel_entry(C_text(\042"); lf[414]=C_decode_literal(C_heaptop,"\376B\000\000\004\042));"); lf[415]=C_h_intern(&lf[415],4,"fold"); lf[416]=C_decode_literal(C_heaptop,"\376B\000\000.if(C_unlikely(!C_demand(C_calculate_demand((c-"); lf[417]=C_decode_literal(C_heaptop,"\376B\000\000\021)\052C_SIZEOF_PAIR +"); lf[418]=C_decode_literal(C_heaptop,"\376B\000\000\003,c,"); lf[419]=C_decode_literal(C_heaptop,"\376B\000\000\005)))){"); lf[420]=C_h_intern(&lf[420],28,"\010compilerinsert-timer-checks"); lf[421]=C_decode_literal(C_heaptop,"\376B\000\000\026C_check_for_interrupt;"); lf[422]=C_decode_literal(C_heaptop,"\376B\000\000\005if(c<"); lf[423]=C_decode_literal(C_heaptop,"\376B\000\000\025) C_bad_min_argc_2(c,"); lf[424]=C_decode_literal(C_heaptop,"\376B\000\000\005,t0);"); lf[425]=C_h_intern(&lf[425],23,"\010compilerno-argc-checks"); lf[426]=C_decode_literal(C_heaptop,"\376B\000\000\012C_word \052a;"); lf[427]=C_decode_literal(C_heaptop,"\376B\000\000+if(C_unlikely(!C_demand(C_calculate_demand("); lf[428]=C_decode_literal(C_heaptop,"\376B\000\000\003,0,"); lf[429]=C_decode_literal(C_heaptop,"\376B\000\000\005)))){"); lf[430]=C_decode_literal(C_heaptop,"\376B\000\000\003,c,"); lf[431]=C_decode_literal(C_heaptop,"\376B\000\000\026C_check_for_interrupt;"); lf[432]=C_decode_literal(C_heaptop,"\376B\000\000\005if(c<"); lf[433]=C_decode_literal(C_heaptop,"\376B\000\000\025) C_bad_min_argc_2(c,"); lf[434]=C_decode_literal(C_heaptop,"\376B\000\000\005,t0);"); lf[435]=C_decode_literal(C_heaptop,"\376B\000\000\006if(c!="); lf[436]=C_decode_literal(C_heaptop,"\376B\000\000\021) C_bad_argc_2(c,"); lf[437]=C_decode_literal(C_heaptop,"\376B\000\000\005,t0);"); lf[438]=C_decode_literal(C_heaptop,"\376B\000\000\005loop:"); lf[439]=C_decode_literal(C_heaptop,"\376B\000\000\027C_stack_overflow_check;"); lf[440]=C_decode_literal(C_heaptop,"\376B\000\000\012C_word \052a;"); lf[441]=C_decode_literal(C_heaptop,"\376B\000\000\010C_word t"); lf[442]=C_h_intern(&lf[442],6,"fixnum"); lf[443]=C_decode_literal(C_heaptop,"\376B\000\000\003int"); lf[444]=C_h_intern(&lf[444],6,"flonum"); lf[445]=C_decode_literal(C_heaptop,"\376B\000\000\006double"); lf[446]=C_decode_literal(C_heaptop,"\376B\000\000\004char"); lf[447]=C_h_intern(&lf[447],7,"pointer"); lf[448]=C_decode_literal(C_heaptop,"\376B\000\000\006void \052"); lf[449]=C_h_intern(&lf[449],3,"int"); lf[450]=C_decode_literal(C_heaptop,"\376B\000\000\003int"); lf[451]=C_decode_literal(C_heaptop,"\376B\000\000\003int"); lf[452]=C_decode_literal(C_heaptop,"\376B\000\000\024invalid unboxed type"); lf[453]=C_decode_literal(C_heaptop,"\376B\000\000\010C_word t"); lf[454]=C_decode_literal(C_heaptop,"\376B\000\000\010C_word t"); lf[455]=C_decode_literal(C_heaptop,"\376B\000\000\004=av["); lf[456]=C_decode_literal(C_heaptop,"\376B\000\000\002];"); lf[457]=C_decode_literal(C_heaptop,"\376B\000\000\013C_word tmp;"); lf[458]=C_decode_literal(C_heaptop,"\376B\000\000\002){"); lf[459]=C_decode_literal(C_heaptop,"\376B\000\000\012C_word \052av"); lf[460]=C_decode_literal(C_heaptop,"\376B\000\000\011C_word \052a"); lf[461]=C_decode_literal(C_heaptop,"\376B\000\000\011C_word c,"); lf[462]=C_decode_literal(C_heaptop,"\376B\000\000\017void C_ccall C_"); lf[463]=C_decode_literal(C_heaptop,"\376B\000\000\022C_main_entry_point"); lf[464]=C_decode_literal(C_heaptop,"\376B\000\000(static C_TLS int toplevel_initialized=0;"); lf[465]=C_decode_literal(C_heaptop,"\376B\000\000\010C_fcall "); lf[466]=C_decode_literal(C_heaptop,"\376B\000\000\010C_ccall "); lf[467]=C_decode_literal(C_heaptop,"\376B\000\000\007C_word "); lf[468]=C_decode_literal(C_heaptop,"\376B\000\000\005void "); lf[469]=C_decode_literal(C_heaptop,"\376B\000\000\007static "); lf[470]=C_decode_literal(C_heaptop,"\376B\000\000\003/\052 "); lf[471]=C_decode_literal(C_heaptop,"\376B\000\000\003 \052/"); lf[472]=C_h_intern(&lf[472],16,"\010compilercleanup"); lf[473]=C_h_intern(&lf[473],18,"\010compilerdebugging"); lf[474]=C_h_intern(&lf[474],1,"o"); lf[475]=C_decode_literal(C_heaptop,"\376B\000\000 dropping unused closure argument"); lf[476]=C_decode_literal(C_heaptop,"\376B\000\000\011_toplevel"); lf[477]=C_decode_literal(C_heaptop,"\376B\000\000\010toplevel"); lf[478]=C_h_intern(&lf[478],34,"lambda-literal-unboxed-temporaries"); lf[479]=C_h_intern(&lf[479],23,"lambda-literal-external"); lf[480]=C_decode_literal(C_heaptop,"\376B\000\000\001t"); lf[481]=C_decode_literal(C_heaptop,"\376B\000\000\001t"); lf[482]=C_h_intern(&lf[482],3,"max"); lf[483]=C_h_intern(&lf[483],32,"lambda-literal-callee-signatures"); lf[484]=C_h_intern(&lf[484],18,"\010compilerreal-name"); lf[485]=C_decode_literal(C_heaptop,"\376B\000\000\002/\052"); lf[486]=C_decode_literal(C_heaptop,"\376B\000\000\002\052/"); lf[487]=C_decode_literal(C_heaptop,"\376B\000\000\021/\052 end of file \052/"); lf[488]=C_h_intern(&lf[488],35,"\010compilercollected-debugging-output"); lf[489]=C_h_intern(&lf[489],20,"emit-procedure-table"); lf[490]=C_h_intern(&lf[490],16,"emit-debug-table"); lf[491]=C_h_intern(&lf[491],31,"generate-foreign-callback-stubs"); lf[492]=C_h_intern(&lf[492],31,"\010compilergenerate-foreign-stubs"); lf[493]=C_h_intern(&lf[493],29,"\010compilerforeign-lambda-stubs"); lf[494]=C_h_intern(&lf[494],36,"\010compilergenerate-external-variables"); lf[495]=C_h_intern(&lf[495],27,"\010compilerexternal-variables"); lf[496]=C_h_intern(&lf[496],1,"p"); lf[497]=C_decode_literal(C_heaptop,"\376B\000\000\030code generation phase..."); lf[498]=C_h_intern(&lf[498],31,"flonum-maximum-decimal-exponent"); lf[499]=C_h_intern(&lf[499],22,"flonum-print-precision"); lf[500]=C_decode_literal(C_heaptop,"\376B\000\000\022{0,0,NULL,NULL}};\012"); lf[501]=C_decode_literal(C_heaptop,"\376B\000\000\002},"); lf[502]=C_decode_literal(C_heaptop,"\376B\000\000\001\042"); lf[503]=C_decode_literal(C_heaptop,"\376B\000\000\002\042,"); lf[504]=C_h_intern(&lf[504],8,"->string"); lf[505]=C_decode_literal(C_heaptop,"\376B\000\000\001{"); lf[506]=C_decode_literal(C_heaptop,"\376B\000\000\003,0,"); lf[507]=C_h_intern(&lf[507],4,"sort"); lf[508]=C_decode_literal(C_heaptop,"\376B\000\000$static C_DEBUG_INFO C_debug_info[]={"); lf[509]=C_decode_literal(C_heaptop,"\376B\000\000\001{"); lf[510]=C_decode_literal(C_heaptop,"\376B\000\000\027#ifdef C_ENABLE_PTABLES"); lf[511]=C_decode_literal(C_heaptop,"\376B\000\000\016return ptable;"); lf[512]=C_decode_literal(C_heaptop,"\376B\000\000\005#else"); lf[513]=C_decode_literal(C_heaptop,"\376B\000\000\014return NULL;"); lf[514]=C_decode_literal(C_heaptop,"\376B\000\000\006#endif"); lf[515]=C_decode_literal(C_heaptop,"\376B\000\000\001}"); lf[516]=C_decode_literal(C_heaptop,"\376B\000\000\052static C_PTABLE_ENTRY \052create_ptable(void)"); lf[517]=C_decode_literal(C_heaptop,"\376B\000\000\006#endif"); lf[518]=C_decode_literal(C_heaptop,"\376B\000\000\015{NULL,NULL}};"); lf[519]=C_decode_literal(C_heaptop,"\376B\000\000\002C_"); lf[520]=C_decode_literal(C_heaptop,"\376B\000\000\013_toplevel},"); lf[521]=C_decode_literal(C_heaptop,"\376B\000\000\014C_toplevel},"); lf[522]=C_decode_literal(C_heaptop,"\376B\000\000\002},"); lf[523]=C_decode_literal(C_heaptop,"\376B\000\000\002{\042"); lf[524]=C_decode_literal(C_heaptop,"\376B\000\000\011\042,(void\052)"); lf[525]=C_h_intern(&lf[525],29,"\010compilerstring->c-identifier"); lf[526]=C_decode_literal(C_heaptop,"\376B\000\000\027#ifdef C_ENABLE_PTABLES"); lf[527]=C_decode_literal(C_heaptop,"\376B\000\000\035static C_PTABLE_ENTRY ptable["); lf[528]=C_decode_literal(C_heaptop,"\376B\000\000\005] = {"); lf[529]=C_h_intern(&lf[529],19,"\003syshash-table-size"); lf[530]=C_h_intern(&lf[530],11,"string-copy"); lf[531]=C_decode_literal(C_heaptop,"\376B\000\000\007C_word "); lf[532]=C_h_intern(&lf[532],13,"list-tabulate"); lf[533]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[534]=C_decode_literal(C_heaptop,"\376B\000\000\007static "); lf[535]=C_h_intern(&lf[535],41,"\010compilergenerate-foreign-callback-header"); lf[536]=C_decode_literal(C_heaptop,"\376B\000\000\017C_externexport "); lf[537]=C_decode_literal(C_heaptop,"\376B\000\000.C_k=C_restore_callback_continuation2(C_level);"); lf[538]=C_decode_literal(C_heaptop,"\376B\000\000\024C_kontinue(C_k,C_r);"); lf[539]=C_decode_literal(C_heaptop,"\376B\000\000\024C_kontinue(C_k,C_r);"); lf[540]=C_decode_literal(C_heaptop,"\376B\000\000\013return C_r;"); lf[541]=C_decode_literal(C_heaptop,"\376B\000\000\015#undef return"); lf[542]=C_decode_literal(C_heaptop,"\376B\000\000\006C_ret:"); lf[543]=C_decode_literal(C_heaptop,"\376B\000\000.C_k=C_restore_callback_continuation2(C_level);"); lf[544]=C_decode_literal(C_heaptop,"\376B\000\000\024C_kontinue(C_k,C_r);"); lf[545]=C_decode_literal(C_heaptop,"\376B\000\000\024C_kontinue(C_k,C_r);"); lf[546]=C_decode_literal(C_heaptop,"\376B\000\000\013return C_r;"); lf[547]=C_decode_literal(C_heaptop,"\376B\000\000\002);"); lf[548]=C_h_intern(&lf[548],4,"void"); lf[549]=C_decode_literal(C_heaptop,"\376B\000\000\001t"); lf[550]=C_decode_literal(C_heaptop,"\376B\000\000\004C_r="); lf[551]=C_decode_literal(C_heaptop,"\376B\000\0003int C_level=C_save_callback_continuation(&C_a,C_k);"); lf[552]=C_decode_literal(C_heaptop,"\376B\000\000\002=("); lf[553]=C_decode_literal(C_heaptop,"\376B\000\000\003C_a"); lf[554]=C_decode_literal(C_heaptop,"\376B\000\000\002);"); lf[555]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[556]=C_h_intern(&lf[556],14,"symbol->string"); lf[557]=C_decode_literal(C_heaptop,"\376B\000\0002C_word C_r=C_SCHEME_UNDEFINED,\052C_a=(C_word\052)C_buf;"); lf[558]=C_decode_literal(C_heaptop,"\376B\000\000\012C_word C_a"); lf[559]=C_decode_literal(C_heaptop,"\376B\000\000\006=C_av["); lf[560]=C_decode_literal(C_heaptop,"\376B\000\000\002];"); lf[561]=C_decode_literal(C_heaptop,"\376B\000\000\015C_noret_decl("); lf[562]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[563]=C_decode_literal(C_heaptop,"\376B\000\000\024static void C_ccall "); lf[564]=C_decode_literal(C_heaptop,"\376B\000\000\032(C_word C_c,C_word \052C_av){"); lf[565]=C_decode_literal(C_heaptop,"\376B\000\000!C_word C_k=C_av[1],C_buf=C_av[2];"); lf[566]=C_decode_literal(C_heaptop,"\376B\000\000\002){"); lf[567]=C_decode_literal(C_heaptop,"\376B\000\000\014C_word C_buf"); lf[568]=C_decode_literal(C_heaptop,"\376B\000\000\003C_a"); lf[569]=C_decode_literal(C_heaptop,"\376B\000\000 C_regparm static C_word C_fcall "); lf[570]=C_decode_literal(C_heaptop,"\376B\000\000\042#define return(x) C_cblock C_r = ("); lf[571]=C_decode_literal(C_heaptop,"\376B\000\000\036(x))); goto C_ret; C_cblockend"); lf[572]=C_decode_literal(C_heaptop,"\376B\000\000\010/\052 from "); lf[573]=C_decode_literal(C_heaptop,"\376B\000\000\003 \052/"); lf[574]=C_h_intern(&lf[574],21,"foreign-stub-callback"); lf[575]=C_h_intern(&lf[575],16,"foreign-stub-cps"); lf[576]=C_decode_literal(C_heaptop,"\376B\000\000\003C_a"); lf[577]=C_h_intern(&lf[577],9,"make-list"); lf[578]=C_h_intern(&lf[578],27,"foreign-stub-argument-names"); lf[579]=C_h_intern(&lf[579],17,"foreign-stub-body"); lf[580]=C_h_intern(&lf[580],17,"foreign-stub-name"); lf[581]=C_h_intern(&lf[581],24,"foreign-stub-return-type"); lf[582]=C_h_intern(&lf[582],27,"foreign-stub-argument-types"); lf[583]=C_h_intern(&lf[583],19,"\010compilerreal-name2"); lf[584]=C_h_intern(&lf[584],15,"foreign-stub-id"); lf[585]=C_h_intern(&lf[585],5,"float"); lf[586]=C_decode_literal(C_heaptop,"\376B\000\000\002+3"); lf[587]=C_h_intern(&lf[587],8,"c-string"); lf[588]=C_decode_literal(C_heaptop,"\376B\000\000\004+2+("); lf[589]=C_decode_literal(C_heaptop,"\376B\000\000!==NULL\0771:C_bytestowords(C_strlen("); lf[590]=C_decode_literal(C_heaptop,"\376B\000\000\003)))"); lf[591]=C_h_intern(&lf[591],16,"nonnull-c-string"); lf[592]=C_decode_literal(C_heaptop,"\376B\000\000\033+2+C_bytestowords(C_strlen("); lf[593]=C_decode_literal(C_heaptop,"\376B\000\000\002))"); lf[594]=C_h_intern(&lf[594],3,"ref"); lf[595]=C_decode_literal(C_heaptop,"\376B\000\000\002+3"); lf[596]=C_h_intern(&lf[596],5,"const"); lf[597]=C_h_intern(&lf[597],9,"c-pointer"); lf[598]=C_h_intern(&lf[598],15,"nonnull-pointer"); lf[599]=C_h_intern(&lf[599],17,"nonnull-c-pointer"); lf[600]=C_h_intern(&lf[600],8,"function"); lf[601]=C_h_intern(&lf[601],8,"instance"); lf[602]=C_h_intern(&lf[602],16,"nonnull-instance"); lf[603]=C_h_intern(&lf[603],12,"instance-ref"); lf[604]=C_h_intern(&lf[604],27,"\010compilerforeign-type-table"); lf[605]=C_h_intern(&lf[605],17,"nonnull-c-string\052"); lf[606]=C_h_intern(&lf[606],25,"nonnull-unsigned-c-string"); lf[607]=C_h_intern(&lf[607],26,"nonnull-unsigned-c-string\052"); lf[608]=C_h_intern(&lf[608],6,"symbol"); lf[609]=C_h_intern(&lf[609],9,"c-string\052"); lf[610]=C_h_intern(&lf[610],17,"unsigned-c-string"); lf[611]=C_h_intern(&lf[611],18,"unsigned-c-string\052"); lf[612]=C_h_intern(&lf[612],6,"double"); lf[613]=C_h_intern(&lf[613],16,"unsigned-integer"); lf[614]=C_h_intern(&lf[614],18,"unsigned-integer32"); lf[615]=C_h_intern(&lf[615],4,"long"); lf[616]=C_h_intern(&lf[616],7,"integer"); lf[617]=C_h_intern(&lf[617],9,"integer32"); lf[618]=C_h_intern(&lf[618],13,"unsigned-long"); lf[619]=C_h_intern(&lf[619],6,"size_t"); lf[620]=C_h_intern(&lf[620],6,"number"); lf[621]=C_h_intern(&lf[621],18,"unsigned-integer64"); lf[622]=C_h_intern(&lf[622],9,"integer64"); lf[623]=C_h_intern(&lf[623],13,"c-string-list"); lf[624]=C_h_intern(&lf[624],14,"c-string-list\052"); lf[625]=C_h_intern(&lf[625],5,"int32"); lf[626]=C_h_intern(&lf[626],5,"short"); lf[627]=C_h_intern(&lf[627],14,"unsigned-short"); lf[628]=C_h_intern(&lf[628],13,"scheme-object"); lf[629]=C_h_intern(&lf[629],13,"unsigned-char"); lf[630]=C_h_intern(&lf[630],12,"unsigned-int"); lf[631]=C_h_intern(&lf[631],14,"unsigned-int32"); lf[632]=C_h_intern(&lf[632],4,"byte"); lf[633]=C_h_intern(&lf[633],13,"unsigned-byte"); lf[634]=C_decode_literal(C_heaptop,"\376B\000\000\002;}"); lf[635]=C_decode_literal(C_heaptop,"\376B\000\000\033C_callback_wrapper((void \052)"); lf[636]=C_decode_literal(C_heaptop,"\376B\000\000\007return "); lf[637]=C_decode_literal(C_heaptop,"\376B\000\000\002x="); lf[638]=C_decode_literal(C_heaptop,"\376B\000\000\002);"); lf[639]=C_decode_literal(C_heaptop,"\376B\000\000\012C_save(x);"); lf[640]=C_decode_literal(C_heaptop,"\376B\000\000\001a"); lf[641]=C_h_intern(&lf[641],7,"reverse"); lf[642]=C_decode_literal(C_heaptop,"\376B\000\000\035C_callback_adjust_stack(a,s);"); lf[643]=C_decode_literal(C_heaptop,"\376B\000\000\0010"); lf[644]=C_decode_literal(C_heaptop,"\376B\000\000\013C_word x,s="); lf[645]=C_decode_literal(C_heaptop,"\376B\000\000\004,\052a="); lf[646]=C_decode_literal(C_heaptop,"\376B\000\000\020C_stack_pointer;"); lf[647]=C_decode_literal(C_heaptop,"\376B\000\000\013C_alloc(s);"); lf[648]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[649]=C_decode_literal(C_heaptop,"\376B\000\000\010/\052 from "); lf[650]=C_decode_literal(C_heaptop,"\376B\000\000\003 \052/"); lf[651]=C_decode_literal(C_heaptop,"\376B\000\000\0010"); lf[652]=C_decode_literal(C_heaptop,"\376B\000\000\001t"); lf[653]=C_h_intern(&lf[653],36,"foreign-callback-stub-argument-types"); lf[654]=C_h_intern(&lf[654],33,"foreign-callback-stub-return-type"); lf[655]=C_h_intern(&lf[655],24,"foreign-callback-stub-id"); lf[656]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[657]=C_decode_literal(C_heaptop,"\376B\000\000\001t"); lf[658]=C_h_intern(&lf[658],32,"foreign-callback-stub-qualifiers"); lf[659]=C_h_intern(&lf[659],26,"foreign-callback-stub-name"); lf[660]=C_h_intern(&lf[660],13,"\010compilerquit"); lf[661]=C_decode_literal(C_heaptop,"\376B\000\000\031illegal foreign type `~A\047"); lf[662]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[663]=C_decode_literal(C_heaptop,"\376B\000\000\006C_word"); lf[664]=C_decode_literal(C_heaptop,"\376B\000\000\006C_char"); lf[665]=C_decode_literal(C_heaptop,"\376B\000\000\017unsigned C_char"); lf[666]=C_decode_literal(C_heaptop,"\376B\000\000\014unsigned int"); lf[667]=C_decode_literal(C_heaptop,"\376B\000\000\005C_u32"); lf[668]=C_decode_literal(C_heaptop,"\376B\000\000\003int"); lf[669]=C_decode_literal(C_heaptop,"\376B\000\000\006size_t"); lf[670]=C_decode_literal(C_heaptop,"\376B\000\000\005C_s32"); lf[671]=C_decode_literal(C_heaptop,"\376B\000\000\005C_s64"); lf[672]=C_decode_literal(C_heaptop,"\376B\000\000\005C_u64"); lf[673]=C_decode_literal(C_heaptop,"\376B\000\000\005short"); lf[674]=C_decode_literal(C_heaptop,"\376B\000\000\004long"); lf[675]=C_decode_literal(C_heaptop,"\376B\000\000\016unsigned short"); lf[676]=C_decode_literal(C_heaptop,"\376B\000\000\015unsigned long"); lf[677]=C_decode_literal(C_heaptop,"\376B\000\000\005float"); lf[678]=C_decode_literal(C_heaptop,"\376B\000\000\006double"); lf[679]=C_decode_literal(C_heaptop,"\376B\000\000\006void \052"); lf[680]=C_decode_literal(C_heaptop,"\376B\000\000\011C_char \052\052"); lf[681]=C_h_intern(&lf[681],4,"blob"); lf[682]=C_decode_literal(C_heaptop,"\376B\000\000\017unsigned char \052"); lf[683]=C_h_intern(&lf[683],9,"u16vector"); lf[684]=C_h_intern(&lf[684],17,"nonnull-u16vector"); lf[685]=C_decode_literal(C_heaptop,"\376B\000\000\020unsigned short \052"); lf[686]=C_h_intern(&lf[686],8,"s8vector"); lf[687]=C_h_intern(&lf[687],16,"nonnull-s8vector"); lf[688]=C_decode_literal(C_heaptop,"\376B\000\000\015signed char \052"); lf[689]=C_h_intern(&lf[689],9,"u32vector"); lf[690]=C_h_intern(&lf[690],17,"nonnull-u32vector"); lf[691]=C_decode_literal(C_heaptop,"\376B\000\000\016unsigned int \052"); lf[692]=C_h_intern(&lf[692],9,"s16vector"); lf[693]=C_h_intern(&lf[693],17,"nonnull-s16vector"); lf[694]=C_decode_literal(C_heaptop,"\376B\000\000\007short \052"); lf[695]=C_h_intern(&lf[695],9,"s32vector"); lf[696]=C_h_intern(&lf[696],17,"nonnull-s32vector"); lf[697]=C_decode_literal(C_heaptop,"\376B\000\000\005int \052"); lf[698]=C_h_intern(&lf[698],9,"f32vector"); lf[699]=C_h_intern(&lf[699],17,"nonnull-f32vector"); lf[700]=C_decode_literal(C_heaptop,"\376B\000\000\007float \052"); lf[701]=C_h_intern(&lf[701],9,"f64vector"); lf[702]=C_h_intern(&lf[702],17,"nonnull-f64vector"); lf[703]=C_decode_literal(C_heaptop,"\376B\000\000\010double \052"); lf[704]=C_h_intern(&lf[704],14,"pointer-vector"); lf[705]=C_h_intern(&lf[705],22,"nonnull-pointer-vector"); lf[706]=C_decode_literal(C_heaptop,"\376B\000\000\007void \052\052"); lf[707]=C_decode_literal(C_heaptop,"\376B\000\000\006char \052"); lf[708]=C_decode_literal(C_heaptop,"\376B\000\000\017unsigned char \052"); lf[709]=C_decode_literal(C_heaptop,"\376B\000\000\004void"); lf[710]=C_decode_literal(C_heaptop,"\376B\000\000\001\052"); lf[711]=C_decode_literal(C_heaptop,"\376B\000\000\001&"); lf[712]=C_decode_literal(C_heaptop,"\376B\000\000\001<"); lf[713]=C_decode_literal(C_heaptop,"\376B\000\000\002> "); lf[714]=C_h_intern(&lf[714],3,"map"); lf[715]=C_decode_literal(C_heaptop,"\376B\000\000\001,"); lf[716]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[717]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[718]=C_decode_literal(C_heaptop,"\376B\000\000\006const "); lf[719]=C_decode_literal(C_heaptop,"\376B\000\000\007struct "); lf[720]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[721]=C_decode_literal(C_heaptop,"\376B\000\000\006union "); lf[722]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[723]=C_decode_literal(C_heaptop,"\376B\000\000\005enum "); lf[724]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[725]=C_decode_literal(C_heaptop,"\376B\000\000\001\052"); lf[726]=C_decode_literal(C_heaptop,"\376B\000\000\001&"); lf[727]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[728]=C_decode_literal(C_heaptop,"\376B\000\000\003 (\052"); lf[729]=C_decode_literal(C_heaptop,"\376B\000\000\002)("); lf[730]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[731]=C_decode_literal(C_heaptop,"\376B\000\000\001,"); lf[732]=C_h_intern(&lf[732],3,"..."); lf[733]=C_decode_literal(C_heaptop,"\376B\000\000\003..."); lf[734]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[735]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[736]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\010instance\376\003\000\000\002\376\001\000\000\020nonnull-instance\376\377\016"); lf[737]=C_h_intern(&lf[737],4,"enum"); lf[738]=C_h_intern(&lf[738],5,"union"); lf[739]=C_h_intern(&lf[739],6,"struct"); lf[740]=C_h_intern(&lf[740],8,"template"); lf[741]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\007pointer\376\003\000\000\002\376\001\000\000\017nonnull-pointer\376\003\000\000\002\376\001\000\000\011c-pointer\376\003\000\000\002\376\001\000\000\016scheme-po" "inter\376\003\000\000\002\376\001\000\000\026nonnull-scheme-pointer\376\003\000\000\002\376\001\000\000\021nonnull-c-pointer\376\377\016"); lf[742]=C_h_intern(&lf[742],12,"nonnull-blob"); lf[743]=C_h_intern(&lf[743],8,"u8vector"); lf[744]=C_h_intern(&lf[744],16,"nonnull-u8vector"); lf[745]=C_h_intern(&lf[745],14,"scheme-pointer"); lf[746]=C_h_intern(&lf[746],22,"nonnull-scheme-pointer"); lf[747]=C_decode_literal(C_heaptop,"\376B\000\000\042illegal foreign argument type `~A\047"); lf[748]=C_decode_literal(C_heaptop,"\376B\000\000\001("); lf[749]=C_decode_literal(C_heaptop,"\376B\000\000\031C_character_code((C_word)"); lf[750]=C_decode_literal(C_heaptop,"\376B\000\000\010C_unfix("); lf[751]=C_decode_literal(C_heaptop,"\376B\000\000\010C_unfix("); lf[752]=C_decode_literal(C_heaptop,"\376B\000\000\030(unsigned short)C_unfix("); lf[753]=C_decode_literal(C_heaptop,"\376B\000\000\027C_num_to_unsigned_long("); lf[754]=C_decode_literal(C_heaptop,"\376B\000\000\013C_c_double("); lf[755]=C_decode_literal(C_heaptop,"\376B\000\000\015C_num_to_int("); lf[756]=C_decode_literal(C_heaptop,"\376B\000\000\017C_num_to_int64("); lf[757]=C_decode_literal(C_heaptop,"\376B\000\000\025(size_t)C_num_to_int("); lf[758]=C_decode_literal(C_heaptop,"\376B\000\000\020C_num_to_uint64("); lf[759]=C_decode_literal(C_heaptop,"\376B\000\000\016C_num_to_long("); lf[760]=C_decode_literal(C_heaptop,"\376B\000\000\026C_num_to_unsigned_int("); lf[761]=C_decode_literal(C_heaptop,"\376B\000\000\027C_data_pointer_or_null("); lf[762]=C_decode_literal(C_heaptop,"\376B\000\000\017C_data_pointer("); lf[763]=C_decode_literal(C_heaptop,"\376B\000\000\024C_c_pointer_or_null("); lf[764]=C_decode_literal(C_heaptop,"\376B\000\000\017C_c_pointer_nn("); lf[765]=C_decode_literal(C_heaptop,"\376B\000\000\027C_c_bytevector_or_null("); lf[766]=C_decode_literal(C_heaptop,"\376B\000\000\017C_c_bytevector("); lf[767]=C_decode_literal(C_heaptop,"\376B\000\000\025C_c_u8vector_or_null("); lf[768]=C_decode_literal(C_heaptop,"\376B\000\000\015C_c_u8vector("); lf[769]=C_decode_literal(C_heaptop,"\376B\000\000\026C_c_u16vector_or_null("); lf[770]=C_decode_literal(C_heaptop,"\376B\000\000\016C_c_u16vector("); lf[771]=C_decode_literal(C_heaptop,"\376B\000\000\026C_c_u32vector_or_null("); lf[772]=C_decode_literal(C_heaptop,"\376B\000\000\016C_c_u32vector("); lf[773]=C_decode_literal(C_heaptop,"\376B\000\000\025C_c_s8vector_or_null("); lf[774]=C_decode_literal(C_heaptop,"\376B\000\000\015C_c_s8vector("); lf[775]=C_decode_literal(C_heaptop,"\376B\000\000\026C_c_s16vector_or_null("); lf[776]=C_decode_literal(C_heaptop,"\376B\000\000\016C_c_s16vector("); lf[777]=C_decode_literal(C_heaptop,"\376B\000\000\026C_c_s32vector_or_null("); lf[778]=C_decode_literal(C_heaptop,"\376B\000\000\016C_c_s32vector("); lf[779]=C_decode_literal(C_heaptop,"\376B\000\000\026C_c_f32vector_or_null("); lf[780]=C_decode_literal(C_heaptop,"\376B\000\000\016C_c_f32vector("); lf[781]=C_decode_literal(C_heaptop,"\376B\000\000\026C_c_f64vector_or_null("); lf[782]=C_decode_literal(C_heaptop,"\376B\000\000\016C_c_f64vector("); lf[783]=C_decode_literal(C_heaptop,"\376B\000\000\033C_c_pointer_vector_or_null("); lf[784]=C_decode_literal(C_heaptop,"\376B\000\000\023C_c_pointer_vector("); lf[785]=C_decode_literal(C_heaptop,"\376B\000\000\021C_string_or_null("); lf[786]=C_decode_literal(C_heaptop,"\376B\000\000\013C_c_string("); lf[787]=C_decode_literal(C_heaptop,"\376B\000\000\010C_truep("); lf[788]=C_decode_literal(C_heaptop,"\376B\000\000\024C_c_pointer_or_null("); lf[789]=C_decode_literal(C_heaptop,"\376B\000\000\017C_c_pointer_nn("); lf[790]=C_decode_literal(C_heaptop,"\376B\000\000\024C_c_pointer_or_null("); lf[791]=C_decode_literal(C_heaptop,"\376B\000\000\017C_c_pointer_nn("); lf[792]=C_decode_literal(C_heaptop,"\376B\000\000\027C_data_pointer_or_null("); lf[793]=C_decode_literal(C_heaptop,"\376B\000\000\017C_data_pointer("); lf[794]=C_decode_literal(C_heaptop,"\376B\000\000\024C_c_pointer_or_null("); lf[795]=C_decode_literal(C_heaptop,"\376B\000\000\015C_num_to_int("); lf[796]=C_decode_literal(C_heaptop,"\376B\000\000\002\052("); lf[797]=C_decode_literal(C_heaptop,"\376B\000\000\020)C_c_pointer_nn("); lf[798]=C_decode_literal(C_heaptop,"\376B\000\000\001\052"); lf[799]=C_decode_literal(C_heaptop,"\376B\000\000\002\052("); lf[800]=C_decode_literal(C_heaptop,"\376B\000\000\021\052)C_c_pointer_nn("); lf[801]=C_decode_literal(C_heaptop,"\376B\000\000 illegal foreign return type `~A\047"); lf[802]=C_decode_literal(C_heaptop,"\376B\000\000\031C_make_character((C_word)"); lf[803]=C_decode_literal(C_heaptop,"\376B\000\000\016C_fix((C_word)"); lf[804]=C_decode_literal(C_heaptop,"\376B\000\000%C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)"); lf[805]=C_decode_literal(C_heaptop,"\376B\000\000\015C_fix((short)"); lf[806]=C_decode_literal(C_heaptop,"\376B\000\000\025C_fix(0xffff&(C_word)"); lf[807]=C_decode_literal(C_heaptop,"\376B\000\000\014C_fix((char)"); lf[808]=C_decode_literal(C_heaptop,"\376B\000\000\023C_fix(0xff&(C_word)"); lf[809]=C_decode_literal(C_heaptop,"\376B\000\000\012C_flonum(&"); lf[810]=C_decode_literal(C_heaptop,"\376B\000\000\012C_number(&"); lf[811]=C_decode_literal(C_heaptop,"\376B\000\000\010,(void\052)"); lf[812]=C_decode_literal(C_heaptop,"\376B\000\000\014C_mpointer(&"); lf[813]=C_decode_literal(C_heaptop,"\376B\000\000\010,(void\052)"); lf[814]=C_decode_literal(C_heaptop,"\376B\000\000\025C_mpointer_or_false(&"); lf[815]=C_decode_literal(C_heaptop,"\376B\000\000\016C_int_to_num(&"); lf[816]=C_decode_literal(C_heaptop,"\376B\000\000\023C_a_double_to_num(&"); lf[817]=C_decode_literal(C_heaptop,"\376B\000\000\006,(int)"); lf[818]=C_decode_literal(C_heaptop,"\376B\000\000\016C_int_to_num(&"); lf[819]=C_decode_literal(C_heaptop,"\376B\000\000\027C_unsigned_int_to_num(&"); lf[820]=C_decode_literal(C_heaptop,"\376B\000\000\017C_long_to_num(&"); lf[821]=C_decode_literal(C_heaptop,"\376B\000\000\030C_unsigned_long_to_num(&"); lf[822]=C_decode_literal(C_heaptop,"\376B\000\000\012C_mk_bool("); lf[823]=C_decode_literal(C_heaptop,"\376B\000\000\011((C_word)"); lf[824]=C_decode_literal(C_heaptop,"\376B\000\000\010,(void\052)"); lf[825]=C_decode_literal(C_heaptop,"\376B\000\000\014C_mpointer(&"); lf[826]=C_decode_literal(C_heaptop,"\376B\000\000\011,(void\052)&"); lf[827]=C_decode_literal(C_heaptop,"\376B\000\000\014C_mpointer(&"); lf[828]=C_decode_literal(C_heaptop,"\376B\000\000\010,(void\052)"); lf[829]=C_decode_literal(C_heaptop,"\376B\000\000\025C_mpointer_or_false(&"); lf[830]=C_decode_literal(C_heaptop,"\376B\000\000\010,(void\052)"); lf[831]=C_decode_literal(C_heaptop,"\376B\000\000\014C_mpointer(&"); lf[832]=C_decode_literal(C_heaptop,"\376B\000\000\011,(void\052)&"); lf[833]=C_decode_literal(C_heaptop,"\376B\000\000\014C_mpointer(&"); lf[834]=C_decode_literal(C_heaptop,"\376B\000\000\010,(void\052)"); lf[835]=C_decode_literal(C_heaptop,"\376B\000\000\025C_mpointer_or_false(&"); lf[836]=C_decode_literal(C_heaptop,"\376B\000\000\010,(void\052)"); lf[837]=C_decode_literal(C_heaptop,"\376B\000\000\014C_mpointer(&"); lf[838]=C_decode_literal(C_heaptop,"\376B\000\000\016C_int_to_num(&"); lf[839]=C_decode_literal(C_heaptop,"\376B\000\000=Encoded literal size of ~S is too large (must fit in 24 bits)"); lf[840]=C_decode_literal(C_heaptop,"\376B\000\000\003\377\006\001"); lf[841]=C_decode_literal(C_heaptop,"\376B\000\000\003\377\006\000"); lf[842]=C_decode_literal(C_heaptop,"\376B\000\000\002\377\012"); lf[843]=C_decode_literal(C_heaptop,"\376B\000\000\002\377\016"); lf[844]=C_decode_literal(C_heaptop,"\376B\000\000\002\377>"); lf[845]=C_decode_literal(C_heaptop,"\376B\000\000\002\377\036"); lf[846]=C_decode_literal(C_heaptop,"\376B\000\000\002\377U"); lf[847]=C_decode_literal(C_heaptop,"\376B\000\000\001\000"); lf[848]=C_h_intern(&lf[848],18,"\003sysfixnum->string"); lf[849]=C_decode_literal(C_heaptop,"\376B\000\000\002\377\001"); lf[850]=C_decode_literal(C_heaptop,"\376B\000\000\001U"); lf[851]=C_decode_literal(C_heaptop,"\376B\000\000\001\000"); lf[852]=C_decode_literal(C_heaptop,"\376B\000\000\001\001"); lf[853]=C_decode_literal(C_heaptop,"\376B\000\000\037invalid literal - cannot encode"); lf[854]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[855]=C_h_intern(&lf[855],5,"cons\052"); lf[856]=C_h_intern(&lf[856],6,"random"); lf[857]=C_decode_literal(C_heaptop,"\376B\000\000\002C_"); C_register_lf2(lf,858,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2535,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in a6056 in procedures in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_6088,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_6091,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:761: intersperse */ t5=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:761: intersperse */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in a6056 in procedures in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 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_6076,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_6079,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_6723,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:757: lambda-literal-closure-size */ t5=*((C_word*)lf[157]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=t3; f_6079(t4,C_SCHEME_FALSE);}} /* k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in a6056 in procedures in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_6079(C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_6079,2,t0,t1);} a=C_alloc(22); t2=t1; t3=(C_truep(t2)?C_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1)):C_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_6085,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:759: make-variable-list */ t6=*((C_word*)lf[312]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=lf[481]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k3258 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3260,2,av);} /* c-backend.scm:194: c-ify-string */ t2=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10888 in encode-literal in k2624 in k2539 in k2536 in k2533 */ 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,3)))){ C_save_and_reclaim((void *)f_10890,2,av);} /* c-backend.scm:1430: ##sys#string-append */ t2=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4349 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4351,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4354,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:427: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k4352 in k4349 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4354,2,av);} /* c-backend.scm:428: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[197]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4107 in k4198 in k4097 in k4091 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,7)))){ C_save_and_reclaim((void *)f_4109,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4112,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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(*((C_word*)lf[145]+1))){ if(C_truep(((C_word*)t0)[13])){ if(C_truep(((C_word*)((C_word*)t0)[14])[1])){ /* c-backend.scm:373: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[167]; av2[4]=((C_word*)t0)[13]; av2[5]=lf[168]; av2[6]=lf[169]; av2[7]=lf[170]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} else{ /* c-backend.scm:373: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[167]; av2[4]=((C_word*)t0)[13]; av2[5]=lf[168]; av2[6]=lf[171]; av2[7]=lf[170]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_4112(2,av2);}}} else{ if(C_truep(*((C_word*)lf[151]+1))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4189,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:376: backslashify */ t4=*((C_word*)lf[154]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[15]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4196,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:378: uncommentify */ t4=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(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;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_4112(2,av2);}}} /* k3212 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3214,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* c-backend.scm:184: expr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2649(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5]);} /* k4365 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4367,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4371,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:426: foreign-argument-conversion */ t4=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10896 in encode-literal in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10898,2,av);} /* c-backend.scm:1431: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop771 in k5643 in k5580 in literal-size in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5650(C_word t0,C_word t1,C_word 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_5650,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_5675,a[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:681: g777 */ 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);}}} /* k4369 in k4365 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4371(C_word c,C_word *av){ C_word tmp; C_word 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_4371,2,av);} /* c-backend.scm:426: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } 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[198]; av2[5]=((C_word*)t0)[4]; av2[6]=C_make_character(41); av2[7]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* k2797 in k2794 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2799,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2802,a[2]=((C_word*)t0)[2],a[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:101: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[30]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2794 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2796,2,av);} 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*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:100: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k5643 in k5580 in literal-size in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_5645,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5648,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_5650,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_5650(t6,t2,t1);} /* k5646 in k5643 in k5580 in literal-size in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5648,2,av);} /* c-backend.scm:681: reduce */ t2=*((C_word*)lf[334]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[335]+1); av2[3]=C_fix(0); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4307 in k4295 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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,3)))){ C_save_and_reclaim((void *)f_4309,2,av);} /* c-backend.scm:418: expr-args */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4704(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* k4298 in k4295 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4300,2,av);} /* c-backend.scm:419: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6657 in k6654 in k6651 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6659,2,av);} /* c-backend.scm:781: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6654 in k6651 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6656,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6659,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:779: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[465]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* c-backend.scm:780: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[466]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k5673 in map-loop771 in k5643 in k5580 in literal-size in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; 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_5675,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5650(t6,((C_word*)t0)[5],t5);} /* k5828 in k5778 in k5772 in gen-lit in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; 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_5830,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_5836,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:709: gen */ t6=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=C_SCHEME_TRUE; av2[3]=((C_word*)t0)[4]; av2[4]=lf[352]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5834 in k5828 in k5778 in k5772 in gen-lit in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_5836,2,av);} /* c-backend.scm:710: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[350]; av2[3]=((C_word*)t0)[3]; av2[4]=C_make_character(44); av2[5]=((C_word*)t0)[4]; av2[6]=C_make_character(44); av2[7]=((C_word*)t0)[5]; av2[8]=lf[351]; ((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} /* k6651 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 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; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_6653,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6656,a[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:777: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[467]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* c-backend.scm:777: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[468]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8382(C_word t0,C_word t1){ C_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(8,0,2)))){ C_save_and_reclaim_args((void *)trf_8382,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ /* c-backend.scm:1180: str */ t2=((C_word*)t0)[2]; f_8183(t2,((C_word*)t0)[3],lf[682]);} else{ t2=C_eqp(((C_word*)t0)[4],lf[683]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[4],lf[684])); if(C_truep(t3)){ /* c-backend.scm:1181: str */ t4=((C_word*)t0)[2]; f_8183(t4,((C_word*)t0)[3],lf[685]);} else{ t4=C_eqp(((C_word*)t0)[4],lf[686]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[4],lf[687])); if(C_truep(t5)){ /* c-backend.scm:1182: str */ t6=((C_word*)t0)[2]; f_8183(t6,((C_word*)t0)[3],lf[688]);} else{ t6=C_eqp(((C_word*)t0)[4],lf[689]); t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[4],lf[690])); if(C_truep(t7)){ /* c-backend.scm:1183: str */ t8=((C_word*)t0)[2]; f_8183(t8,((C_word*)t0)[3],lf[691]);} else{ t8=C_eqp(((C_word*)t0)[4],lf[692]); t9=(C_truep(t8)?t8:C_eqp(((C_word*)t0)[4],lf[693])); if(C_truep(t9)){ /* c-backend.scm:1184: str */ t10=((C_word*)t0)[2]; f_8183(t10,((C_word*)t0)[3],lf[694]);} else{ t10=C_eqp(((C_word*)t0)[4],lf[695]); t11=(C_truep(t10)?t10:C_eqp(((C_word*)t0)[4],lf[696])); if(C_truep(t11)){ /* c-backend.scm:1185: str */ t12=((C_word*)t0)[2]; f_8183(t12,((C_word*)t0)[3],lf[697]);} else{ t12=C_eqp(((C_word*)t0)[4],lf[698]); t13=(C_truep(t12)?t12:C_eqp(((C_word*)t0)[4],lf[699])); if(C_truep(t13)){ /* c-backend.scm:1186: str */ t14=((C_word*)t0)[2]; f_8183(t14,((C_word*)t0)[3],lf[700]);} else{ t14=C_eqp(((C_word*)t0)[4],lf[701]); t15=(C_truep(t14)?t14:C_eqp(((C_word*)t0)[4],lf[702])); if(C_truep(t15)){ /* c-backend.scm:1187: str */ t16=((C_word*)t0)[2]; f_8183(t16,((C_word*)t0)[3],lf[703]);} else{ t16=C_eqp(((C_word*)t0)[4],lf[704]); t17=(C_truep(t16)?t16:C_eqp(((C_word*)t0)[4],lf[705])); if(C_truep(t17)){ /* c-backend.scm:1188: str */ t18=((C_word*)t0)[2]; f_8183(t18,((C_word*)t0)[3],lf[706]);} else{ t18=C_eqp(((C_word*)t0)[4],lf[591]); t19=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8490,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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(t18)){ t20=t19; f_8490(t20,t18);} else{ t20=C_eqp(((C_word*)t0)[4],lf[587]); if(C_truep(t20)){ t21=t19; f_8490(t21,t20);} else{ t21=C_eqp(((C_word*)t0)[4],lf[605]); if(C_truep(t21)){ t22=t19; f_8490(t22,t21);} else{ t22=C_eqp(((C_word*)t0)[4],lf[609]); t23=t19; f_8490(t23,(C_truep(t22)?t22:C_eqp(((C_word*)t0)[4],lf[608])));}}}}}}}}}}}}} /* k4331 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4333,2,av);} t2=C_u_i_car(((C_word*)t0)[2]); /* c-backend.scm:422: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5687 in k5580 in literal-size in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_5689,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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:673: bomb */ t4=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=lf[337]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ if(C_truep(C_lambdainfop(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_5707,a[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:685: ##sys#bytevector? */ t3=*((C_word*)lf[339]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}}}} /* k7480 in for-each-loop1166 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_7482,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7472(t3,((C_word*)t0)[4],t2);} /* g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_7497(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_7497,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7501,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1085: foreign-callback-stub-id */ t4=*((C_word*)lf[655]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ 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=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(9,c,3)))){ C_save_and_reclaim((void *)f_7495,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7497,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_check_list_2(t2,lf[57]); 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_8090,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_8090(t9,t1,t2);} /* k6690 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in a6056 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6692,2,av);} /* c-backend.scm:774: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[470]; av2[3]=t1; av2[4]=lf[471]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k3295 in k3292 in k3289 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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,2)))){ C_save_and_reclaim((void *)f_3297,2,av);} /* c-backend.scm:208: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3292 in k3289 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3294,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3297,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:207: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k3289 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3291,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3294,a[2]=((C_word*)t0)[2],a[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_3308,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3312,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:206: ##sys#symbol->qualified-string */ t5=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7441 in k7431 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7443,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[1]+1); av2[3]=t1; C_apply(4,av2);}} /* k4381 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4383,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4386,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:433: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k4384 in k4381 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4386(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4386,2,av);} /* c-backend.scm:434: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[203]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8361(C_word t0,C_word t1){ C_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,2)))){ C_save_and_reclaim_args((void *)trf_8361,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ /* c-backend.scm:1178: str */ t2=((C_word*)t0)[2]; f_8183(t2,((C_word*)t0)[3],lf[679]);} else{ t2=C_eqp(((C_word*)t0)[4],lf[623]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[4],lf[624])); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[680]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[4],lf[681]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8382,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_8382(t6,t4);} else{ t6=C_eqp(((C_word*)t0)[4],lf[742]); if(C_truep(t6)){ t7=t5; f_8382(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[4],lf[743]); t8=t5; f_8382(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[4],lf[744])));}}}}} /* k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in ... */ static void C_ccall f_6142(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,2)))){ C_save_and_reclaim((void *)f_6142,2,av);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_6145,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[246]); if(C_truep(t3)){ t4=C_set_block_item(((C_word*)t0)[5],0,C_SCHEME_FALSE); t5=t2; f_6145(t5,t4);} else{ t4=t2; f_6145(t4,C_SCHEME_UNDEFINED);}} /* k7449 in k7431 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7451,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[567],t1); /* c-backend.scm:1044: intersperse */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 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(31,c,3)))){ C_save_and_reclaim((void *)f_6148,2,av);} a=C_alloc(31); t2=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_6151,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_6151(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_6592,a[2]=((C_word*)t0)[6],a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_6592(t7,t2,C_fix(0));}} /* k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in ... */ static void C_fcall f_6145(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(25,0,3)))){ C_save_and_reclaim_args((void *)trf_6145,2,t0,t1);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|24,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],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:797: gen */ t3=*((C_word*)lf[1]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[457]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in ... */ static void C_ccall f_6133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6133,2,av);} a=C_alloc(30); t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_6136,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_6625,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_6625(t5,C_i_not(t4));} else{ t4=t3; f_6625(t4,C_SCHEME_FALSE);}} /* k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,2)))){ C_save_and_reclaim((void *)f_6130,2,av);} a=C_alloc(26); t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_6133,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6133(2,av2);}} else{ /* c-backend.scm:788: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[461]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k10397 in k10394 in k10388 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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(4,c,4)))){ C_save_and_reclaim((void *)f_10399,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10402,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1368: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10394 in k10388 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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(5,c,4)))){ C_save_and_reclaim((void *)f_10396,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10399,a[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:1368: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop1674 in k8790 in k8771 in k8754 in k8737 in k8720 in k8703 in k8686 in k8669 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in ... */ static void C_fcall f_8819(C_word 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_8819,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_8844,a[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[732],t4); if(C_truep(t5)){ t6=t3;{ C_word av2[2]; av2[0]=t6; av2[1]=lf[733]; f_8844(2,av2);}} else{ /* c-backend.scm:1244: foreign-type-declaration */ t6=*((C_word*)lf[200]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[734]; ((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);}}} /* k8815 in k8790 in k8771 in k8754 in k8737 in k8720 in k8703 in k8686 in k8669 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8817,2,av);} /* c-backend.scm:1240: string-intersperse */ t2=*((C_word*)lf[270]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[731]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k10388 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 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_10390,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10396,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:1368: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7459 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7461(C_word c,C_word *av){ C_word tmp; C_word 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_7461,2,av);} /* c-backend.scm:1031: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[572]; av2[4]=t1; av2[5]=lf[573]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 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(25,c,2)))){ C_save_and_reclaim((void *)f_6139,2,av);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_6142,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:795: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[458]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_6136,2,av);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_6139,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=*((C_word*)lf[1]+1); av2[3]=((C_word*)t0)[25]; C_apply(4,av2);}} else{ /* c-backend.scm:794: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[459]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} else{ if(C_truep(((C_word*)t0)[10])){{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=*((C_word*)lf[1]+1); av2[3]=((C_word*)t0)[25]; C_apply(4,av2);}} else{ /* c-backend.scm:794: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[459]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} /* k6600 in doloop888 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6602,2,av);} a=C_alloc(4); t2=C_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6592(t3,((C_word*)t0)[4],t2);} /* k6676 in k6673 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in ... */ static void C_ccall f_6678(C_word c,C_word *av){ C_word tmp; C_word 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_6678,2,av);} /* c-backend.scm:786: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[462]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* for-each-loop1166 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_7472(C_word t0,C_word t1,C_word 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_7472,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_7482,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:1015: g1167 */ t5=((C_word*)t0)[3]; f_7160(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);}}} /* k5615 in k5611 in k5580 in literal-size in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5617,2,av);} /* c-backend.scm:680: + */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(3); av2[3]=((C_word*)t0)[3]; av2[4]=t1; C_plus(5,av2);}} /* k5611 in k5580 in literal-size in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 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_5613,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5617,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:680: literal-size */ t6=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; f_5575(3,av2);}} /* k4295 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; 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_4297,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4300,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_4309,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:417: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ /* c-backend.scm:419: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k3018 in k3015 in k3012 in k3009 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3020,2,av);} /* c-backend.scm:148: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6673 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in ... */ static void C_ccall f_6675(C_word c,C_word *av){ C_word tmp; C_word t0=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_6675,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6678,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(*((C_word*)lf[260]+1))){ /* c-backend.scm:786: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[462]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ /* c-backend.scm:785: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[463]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* doloop1194 in k7402 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 in ... */ static void C_fcall f_7409(C_word t0,C_word t1,C_word 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,7)))){ C_save_and_reclaim_args((void *)trf_7409,3,t0,t1,t2);} a=C_alloc(9); 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_7419,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_a_i_plus(&a,2,t2,C_fix(3)); /* c-backend.scm:1041: gen */ t5=*((C_word*)lf[1]+1);{ C_word av2[8]; av2[0]=t5; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=lf[558]; av2[4]=t2; av2[5]=lf[559]; av2[6]=t4; av2[7]=lf[560]; ((C_proc)(void*)(*((C_word*)t5+1)))(8,av2);}}} /* k6626 in k6623 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in ... */ static void C_ccall f_6628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6628,2,av);} if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ /* c-backend.scm:791: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_6136(2,av2);}}} /* k7402 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7404,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_7409,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_7409(t5,((C_word*)t0)[3],C_fix(0));} /* k3049 in k3046 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3051,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3054,a[2]=((C_word*)t0)[2],a[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:153: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[49]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6623 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in ... */ static void C_fcall f_6625(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_6625,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6628,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:790: gen */ t3=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[460]; ((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_6136(2,av2);}}} /* k7417 in doloop1194 in k7402 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in ... */ static void C_ccall f_7419(C_word c,C_word *av){ C_word tmp; C_word t0=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_7419,2,av);} a=C_alloc(4); t2=C_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7409(t3,((C_word*)t0)[4],t2);} /* k6182 in k6155 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,11)))){ C_save_and_reclaim((void *)f_6184,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_6190,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:876: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 12) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(12); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[366]; av2[4]=((C_word*)t0)[6]; av2[5]=lf[367]; av2[6]=C_SCHEME_TRUE; av2[7]=lf[368]; av2[8]=((C_word*)t0)[3]; av2[9]=lf[369]; av2[10]=((C_word*)t0)[7]; av2[11]=lf[370]; ((C_proc)(void*)(*((C_word*)t3+1)))(12,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6226,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_6241,a[2]=t2,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:885: gen */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=lf[374]; av2[4]=((C_word*)t0)[6]; av2[5]=C_make_character(44); av2[6]=((C_word*)t0)[9]; av2[7]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t5+1)))(8,av2);}} else{ /* c-backend.scm:889: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t4; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[375]; av2[4]=((C_word*)t0)[6]; av2[5]=C_make_character(44); av2[6]=((C_word*)t0)[3]; av2[7]=lf[376]; ((C_proc)(void*)(*((C_word*)t4+1)))(8,av2);}}}} /* k8010 in k8007 in k8004 in k8001 in k7998 in k7995 in k7983 in k7980 in k7977 in k7974 in k7971 in k7968 in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8012,2,av);} /* c-backend.scm:1137: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[634]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4137 in k4116 in k4113 in k4110 in k4107 in k4198 in k4097 in k4091 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_4139,2,av);} if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ /* c-backend.scm:385: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_4121(2,av2);}}} /* k5636 in k5580 in literal-size in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5638(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5638,2,av);} /* c-backend.scm:681: + */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); av2[3]=((C_word*)t0)[3]; av2[4]=t1; C_plus(5,av2);}} /* k6169 in k6158 in k6155 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 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(4,c,4)))){ C_save_and_reclaim((void *)f_6171,2,av);} a=C_alloc(4); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=C_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)); /* c-backend.scm:894: expression */ t3=((C_word*)((C_word*)t0)[4])[1]; f_2646(t3,((C_word*)t0)[5],t1,t2,((C_word*)t0)[6]);} else{ /* c-backend.scm:894: expression */ t2=((C_word*)((C_word*)t0)[4])[1]; f_2646(t2,((C_word*)t0)[5],t1,((C_word*)t0)[3],((C_word*)t0)[6]);}} /* k8001 in k7998 in k7995 in k7983 in k7980 in k7977 in k7974 in k7971 in k7968 in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_8003,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8006,a[2]=((C_word*)t0)[2],a[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[548],((C_word*)t0)[3]); if(C_truep(t3)){ t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_8006(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8031,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1134: foreign-argument-conversion */ t5=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k7998 in k7995 in k7983 in k7980 in k7977 in k7974 in k7971 in k7968 in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_8000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8000,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8003,a[2]=((C_word*)t0)[2],a[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_8033,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_8033(t6,t2,((C_word*)t0)[6],t1);} /* k8004 in k8001 in k7998 in k7995 in k7983 in k7980 in k7977 in k7974 in k7971 in k7968 in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){ C_save_and_reclaim((void *)f_8006,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8009,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1135: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[635]; av2[3]=((C_word*)t0)[4]; av2[4]=C_make_character(44); av2[5]=((C_word*)t0)[5]; av2[6]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k8007 in k8004 in k8001 in k7998 in k7995 in k7983 in k7980 in k7977 in k7974 in k7971 in k7968 in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 in ... */ static void C_ccall f_8009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8009,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8012,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_eqp(lf[548],((C_word*)t0)[3]); if(C_truep(t3)){ /* c-backend.scm:1137: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[634]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ /* c-backend.scm:1136: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k3055 in k3052 in k3049 in k3046 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3057,2,av);} /* c-backend.scm:155: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3052 in k3049 in k3046 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3054,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3057,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* c-backend.scm:154: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k6162 in k6158 in k6155 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6164,2,av);} /* c-backend.scm:900: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(125); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4149 in k4113 in k4110 in k4107 in k4198 in k4097 in k4091 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4151,2,av);} t2=C_i_not(((C_word*)t0)[2]); if(C_truep(t2)){ if(C_truep(t2)){ /* c-backend.scm:382: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; f_4118(2,av2);}}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[4]))){ /* c-backend.scm:382: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; f_4118(2,av2);}}}} /* k7431 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7433,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7436,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7443,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7451,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1044: make-variable-list */ t5=*((C_word*)lf[312]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=lf[568]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7434 in k7431 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7436,2,av);} /* c-backend.scm:1045: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[566]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6158 in k6155 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in ... */ 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 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_6160,2,av);} a=C_alloc(10); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6164,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6171,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:895: lambda-literal-body */ t5=*((C_word*)lf[361]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10105 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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(6,c,4)))){ C_save_and_reclaim((void *)f_10107,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10113,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:1344: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3046 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3048,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3051,a[2]=((C_word*)t0)[2],a[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:152: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* for-each-loop394 in k3942 in k3939 in k4067 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_4011(C_word t0,C_word t1,C_word 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_4011,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_4021,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:338: g395 */ t9=((C_word*)t0)[3]; f_3945(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);}}} /* k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 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 t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(40,c,5)))){ C_save_and_reclaim((void *)f_6151,2,av);} a=C_alloc(40); t2=(*a=C_CLOSURE_TYPE|23,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],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:803: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[441]; av2[4]=((C_word*)t0)[6]; av2[5]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6506,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_6554,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_a_i_minus(&a,2,((C_word*)t0)[6],C_fix(1)); t6=t4; f_6554(t6,C_a_i_plus(&a,2,((C_word*)t0)[11],t5));} else{ t5=t4; f_6554(t5,((C_word*)t0)[11]);}}} /* k4119 in k4116 in k4113 in k4110 in k4107 in k4198 in k4097 in k4091 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4121,2,av);} a=C_alloc(6); 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); if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ /* c-backend.scm:386: expr-args */ t3=((C_word*)((C_word*)t0)[4])[1]; f_4704(t3,t2,((C_word*)t0)[3],((C_word*)t0)[5]);} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f11817,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:387: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_6154,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_6157,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[296],((C_word*)t0)[9]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6300,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); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6359,a[2]=((C_word*)t0)[20],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:814: fold */ t6=*((C_word*)lf[415]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[16]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6373,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:844: gen */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=lf[426]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6412,a[2]=((C_word*)t0)[10],a[3]=t2,a[4]=((C_word*)t0)[3],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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_6412(2,av2);}} else{ /* c-backend.scm:850: gen */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=lf[440]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}}} /* k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in k4198 in k4097 in k4091 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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,2)))){ 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-backend.scm:387: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4125 in k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in k4198 in k4097 in k4091 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4127,2,av);} /* c-backend.scm:388: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k10370 in k10364 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10372,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10375,a[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:1367: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10373 in k10370 in k10364 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10375,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10378,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1367: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10376 in k10373 in k10370 in k10364 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10378,2,av);} /* c-backend.scm:1367: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3075 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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,3)))){ C_save_and_reclaim((void *)f_3077,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3080,a[2]=((C_word*)t0)[2],a[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:159: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k6155 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_6157,2,av);} a=C_alloc(26); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6160,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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[296],((C_word*)t0)[9]); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_not(((C_word*)t0)[10])); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6184,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); t6=(C_truep(((C_word*)t0)[15])?C_i_not(((C_word*)t0)[3]):C_SCHEME_FALSE); if(C_truep(t6)){ 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_6261,a[2]=((C_word*)t0)[6],a[3]=t8,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_6261(t10,t5,C_fix(0));} else{ t7=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_6184(2,av2);}}} else{ /* c-backend.scm:892: gen */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=C_make_character(125); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k5372 in k5280 in k5277 in k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5374,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5377,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:619: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[299]; av2[3]=t2; av2[4]=lf[300]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k5375 in k5372 in k5280 in k5277 in k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5377,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5380,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:620: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[298]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k10364 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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; 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_10366,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10372,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:1367: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3078 in k3075 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3080,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3083,a[2]=((C_word*)t0)[2],a[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:160: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[52]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* ##compiler#foreign-argument-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_9227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_9227,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9229,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=t2; t5=C_eqp(t4,lf[628]); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=lf[748]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(t4,lf[15]); t7=(C_truep(t6)?t6:C_eqp(t4,lf[629])); if(C_truep(t7)){ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=lf[749]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(t4,lf[632]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9257,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_9257(t10,t8);} else{ t10=C_eqp(t4,lf[449]); if(C_truep(t10)){ t11=t9; f_9257(t11,t10);} else{ t11=C_eqp(t4,lf[625]); if(C_truep(t11)){ t12=t9; f_9257(t12,t11);} else{ t12=C_eqp(t4,lf[630]); if(C_truep(t12)){ t13=t9; f_9257(t13,t12);} else{ t13=C_eqp(t4,lf[631]); t14=t9; f_9257(t14,(C_truep(t13)?t13:C_eqp(t4,lf[633])));}}}}}}} /* err in foreign-argument-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_9229(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_9229,2,t0,t1);} /* c-backend.scm:1255: quit */ t2=*((C_word*)lf[660]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[747]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k10312 in k10309 in k10306 in k10300 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10314,2,av);} /* c-backend.scm:1362: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10309 in k10306 in k10300 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10311,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10314,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1362: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5392 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5394,2,av);} /* c-backend.scm:603: intersperse */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4194 in k4107 in k4198 in k4097 in k4091 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4196,2,av);} /* c-backend.scm:378: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[174]; av2[4]=t1; av2[5]=lf[175]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k10306 in k10300 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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(5,c,4)))){ C_save_and_reclaim((void *)f_10308,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10311,a[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:1362: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10141 in k10138 in k10135 in k10129 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10143,2,av);} /* c-backend.scm:1345: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3084 in k3081 in k3078 in k3075 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3086,2,av);} /* c-backend.scm:162: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3081 in k3078 in k3075 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; 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_3083,2,av);} a=C_alloc(3); 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); t3=C_i_cadr(((C_word*)t0)[3]); /* c-backend.scm:161: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k10300 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_10302,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10308,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:1362: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10138 in k10135 in k10129 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_10140,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10143,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1345: ##sys#write-char-0 */ t3=*((C_word*)lf[329]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(44); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5378 in k5375 in k5372 in k5280 in k5277 in k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5380,2,av);} /* c-backend.scm:621: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[297]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k10336 in k10333 in k10330 in k10324 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10338,2,av);} /* c-backend.scm:1364: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10135 in k10129 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10137,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10140,a[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:1345: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10333 in k10330 in k10324 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10335,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10338,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1364: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10129 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_10131,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10137,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:1345: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[820]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10330 in k10324 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10332,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10335,a[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:1364: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10324 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_10326,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10332,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:1364: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop1278 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8090(C_word t0,C_word t1,C_word 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_8090,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_8100,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:1082: g1279 */ t5=((C_word*)t0)[3]; f_7497(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);}}} /* k4187 in k4107 in k4198 in k4097 in k4091 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4189,2,av);} /* c-backend.scm:376: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[172]; av2[4]=t1; av2[5]=lf[173]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k8080 in k7971 in k7968 in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_8082(C_word c,C_word *av){ C_word tmp; C_word 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_8082,2,av);} /* c-backend.scm:1122: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[649]; av2[4]=t1; av2[5]=lf[650]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k7992 in for-each-loop1453 in k7998 in k7995 in k7983 in k7980 in k7977 in k7974 in k7971 in k7968 in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ 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);} /* c-backend.scm:1129: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[637]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; av2[6]=lf[638]; av2[7]=C_SCHEME_TRUE; av2[8]=lf[639]; ((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} /* k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in a6056 in procedures 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(29,c,2)))){ C_save_and_reclaim((void *)f_6121,2,av);} a=C_alloc(29); t2=(*a=C_CLOSURE_TYPE|25,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]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_6692,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:774: cleanup */ t4=*((C_word*)lf[472]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[26]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in a6056 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,2)))){ C_save_and_reclaim((void *)f_6124,2,av);} a=C_alloc(32); t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_6127,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[296],((C_word*)t0)[9]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6675,a[2]=t2,a[3]=((C_word*)t0)[19],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:783: gen */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[464]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6653,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:776: gen */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[469]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in ... */ 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_unlikely(!C_demand(C_calculate_demand(26,c,2)))){ C_save_and_reclaim((void *)f_6127,2,av);} a=C_alloc(26); t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_6130,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:787: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(40); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k7995 in k7983 in k7980 in k7977 in k7974 in k7971 in k7968 in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ 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(7,c,2)))){ C_save_and_reclaim((void *)f_7997,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8000,a[2]=((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:1132: reverse */ t4=*((C_word*)lf[641]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5298 in k5295 in k5292 in k5289 in k5286 in k5283 in k5280 in k5277 in k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in ... */ static void C_ccall f_5300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5300,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5303,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ /* c-backend.scm:633: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* c-backend.scm:632: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[292]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k5301 in k5298 in k5295 in k5292 in k5289 in k5286 in k5283 in k5280 in k5277 in k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 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(0,c,2)))){ C_save_and_reclaim((void *)f_5303,2,av);} /* c-backend.scm:633: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in a6056 in procedures in k2630 in generate-code in k2624 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_6112,2,av);} a=C_alloc(26); t2=t1; t3=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_6115,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); if(C_truep(*((C_word*)lf[260]+1))){ /* c-backend.scm:770: string-append */ t4=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[260]+1); av2[3]=lf[476]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[477]; f_6115(2,av2);}}} /* k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in a6056 in procedures in k2630 in generate-code in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_6115,2,av);} a=C_alloc(27); t2=t1; t3=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_6118,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:772: debugging */ t4=*((C_word*)lf[473]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[474]; av2[3]=lf[475]; av2[4]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_6118(2,av2);}}} /* k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in a6056 in procedures in k2630 in ... */ static void C_ccall f_6118(C_word c,C_word *av){ C_word tmp; C_word t0=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,3)))){ C_save_and_reclaim((void *)f_6118,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_6121,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:773: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k7974 in k7971 in k7968 in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_7976,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7979,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:1123: generate-foreign-callback-header */ t3=*((C_word*)lf[535]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[648]; av2[3]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k7977 in k7974 in k7971 in k7968 in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7979(C_word c,C_word *av){ C_word tmp; C_word t0=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,7)))){ C_save_and_reclaim((void *)f_7979,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7982,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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[643],((C_word*)t0)[8]))){ /* c-backend.scm:1124: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } 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[644]; av2[5]=((C_word*)t0)[8]; av2[6]=lf[645]; av2[7]=lf[646]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} else{ /* c-backend.scm:1124: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } 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[644]; av2[5]=((C_word*)t0)[8]; av2[6]=lf[645]; av2[7]=lf[647]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}}} /* k7971 in k7968 in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7973(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7973,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7976,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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_8082,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1122: cleanup */ t4=*((C_word*)lf[472]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_7976(2,av2);}}} /* k7968 in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_7970,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7973,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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:1120: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5319 in k5289 in k5286 in k5283 in k5280 in k5277 in k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 in ... */ static void C_fcall f_5321(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_5321,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5324,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:625: gen */ t3=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[294]; ((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_5294(2,av2);}}} /* k5322 in k5319 in k5289 in k5286 in k5283 in k5280 in k5277 in k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in ... */ static void C_ccall f_5324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5324,2,av);} if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ /* c-backend.scm:626: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_5294(2,av2);}}} /* k7983 in k7980 in k7977 in k7974 in k7971 in k7968 in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7985,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7997,a[2]=((C_word*)t0)[2],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:1131: reverse */ t3=*((C_word*)lf[641]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7980 in k7977 in k7974 in k7971 in k7968 in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7982(C_word c,C_word *av){ C_word tmp; C_word t0=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_7982,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7985,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:1126: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[642]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5350 in k5347 in k5280 in k5277 in k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5352(C_word c,C_word *av){ C_word tmp; C_word t0=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_5352,2,av);} a=C_alloc(5); t2=(*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]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[5])){ /* c-backend.scm:612: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[305]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* c-backend.scm:612: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[306]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k5353 in k5350 in k5347 in k5280 in k5277 in k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5355,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5358,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:614: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[303]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* c-backend.scm:615: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[304]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k5356 in k5353 in k5350 in k5347 in k5280 in k5277 in k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 in ... */ static void C_ccall f_5358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5358,2,av);} /* c-backend.scm:616: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7167,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7170,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:1020: foreign-stub-argument-types */ t4=*((C_word*)lf[582]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_7164,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7167,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:1019: real-name2 */ t4=*((C_word*)lf[583]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_7160(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_7160,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7164,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1018: foreign-stub-id */ t4=*((C_word*)lf[584]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5347 in k5280 in k5277 in k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5349(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5349,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5352,a[2]=((C_word*)t0)[2],a[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:611: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[307]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* for-each-loop1143 in generate-foreign-callback-stub-prototypes in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_7135(C_word t0,C_word t1,C_word 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_7135,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_7145,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_7121,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1010: gen */ t8=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=C_SCHEME_TRUE; ((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);}}} /* k4019 in for-each-loop394 in k3942 in k3939 in k4067 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4021,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_4011(t4,((C_word*)t0)[5],t2,t3);} /* k7143 in for-each-loop1143 in generate-foreign-callback-stub-prototypes in k2624 in k2539 in k2536 in k2533 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7145,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7135(t3,((C_word*)t0)[4],t2);} /* k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_7194,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7197,a[2]=((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:1028: foreign-stub-callback */ t4=*((C_word*)lf[574]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_7197,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_7200,a[2]=((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:1029: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_7191,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7194,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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:1027: foreign-stub-cps */ t4=*((C_word*)lf[575]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8253(C_word t0,C_word t1){ C_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(8,0,2)))){ C_save_and_reclaim_args((void *)trf_8253,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ /* c-backend.scm:1167: str */ t2=((C_word*)t0)[2]; f_8183(t2,((C_word*)t0)[3],lf[668]);} else{ t2=C_eqp(((C_word*)t0)[4],lf[619]); if(C_truep(t2)){ /* c-backend.scm:1168: str */ t3=((C_word*)t0)[2]; f_8183(t3,((C_word*)t0)[3],lf[669]);} else{ t3=C_eqp(((C_word*)t0)[4],lf[625]); t4=(C_truep(t3)?t3:C_eqp(((C_word*)t0)[4],lf[617])); if(C_truep(t4)){ /* c-backend.scm:1169: str */ t5=((C_word*)t0)[2]; f_8183(t5,((C_word*)t0)[3],lf[670]);} else{ t5=C_eqp(((C_word*)t0)[4],lf[622]); if(C_truep(t5)){ /* c-backend.scm:1170: str */ t6=((C_word*)t0)[2]; f_8183(t6,((C_word*)t0)[3],lf[671]);} else{ t6=C_eqp(((C_word*)t0)[4],lf[621]); if(C_truep(t6)){ /* c-backend.scm:1171: str */ t7=((C_word*)t0)[2]; f_8183(t7,((C_word*)t0)[3],lf[672]);} else{ t7=C_eqp(((C_word*)t0)[4],lf[626]); if(C_truep(t7)){ /* c-backend.scm:1172: str */ t8=((C_word*)t0)[2]; f_8183(t8,((C_word*)t0)[3],lf[673]);} else{ t8=C_eqp(((C_word*)t0)[4],lf[615]); if(C_truep(t8)){ /* c-backend.scm:1173: str */ t9=((C_word*)t0)[2]; f_8183(t9,((C_word*)t0)[3],lf[674]);} else{ t9=C_eqp(((C_word*)t0)[4],lf[627]); if(C_truep(t9)){ /* c-backend.scm:1174: str */ t10=((C_word*)t0)[2]; f_8183(t10,((C_word*)t0)[3],lf[675]);} else{ t10=C_eqp(((C_word*)t0)[4],lf[618]); if(C_truep(t10)){ /* c-backend.scm:1175: str */ t11=((C_word*)t0)[2]; f_8183(t11,((C_word*)t0)[3],lf[676]);} else{ t11=C_eqp(((C_word*)t0)[4],lf[585]); if(C_truep(t11)){ /* c-backend.scm:1176: str */ t12=((C_word*)t0)[2]; f_8183(t12,((C_word*)t0)[3],lf[677]);} else{ t12=C_eqp(((C_word*)t0)[4],lf[612]); t13=(C_truep(t12)?t12:C_eqp(((C_word*)t0)[4],lf[620])); if(C_truep(t13)){ /* c-backend.scm:1177: str */ t14=((C_word*)t0)[2]; f_8183(t14,((C_word*)t0)[3],lf[678]);} else{ t14=C_eqp(((C_word*)t0)[4],lf[597]); t15=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8361,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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(t14)){ t16=t15; f_8361(t16,t14);} else{ t16=C_eqp(((C_word*)t0)[4],lf[599]); if(C_truep(t16)){ t17=t15; f_8361(t17,t16);} else{ t17=C_eqp(((C_word*)t0)[4],lf[745]); t18=t15; f_8361(t18,(C_truep(t17)?t17:C_eqp(((C_word*)t0)[4],lf[746])));}}}}}}}}}}}}}} /* k4051 in k4067 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_4053,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4056,a[2]=((C_word*)t0)[2],a[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)f11813,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:353: expr-args */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4704(t4,t3,((C_word*)t0)[4],((C_word*)t0)[5]);} else{ /* c-backend.scm:352: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[163]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k4054 in k4051 in k4067 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4056,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4059,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:353: expr-args */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4704(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k6987 in k6977 in loop in cleanup in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6989,2,av);} a=C_alloc(4); t2=C_mutate2(((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_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)); /* c-backend.scm:976: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_6951(t5,((C_word*)t0)[5],t4);} /* k4057 in k4054 in k4051 in k4067 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4059,2,av);} /* c-backend.scm:354: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6444 in k6416 in k6413 in k6410 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in ... */ static void C_fcall f_6446(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,7)))){ C_save_and_reclaim_args((void *)trf_6446,2,t0,t1);} if(C_truep(t1)){ t2=C_eqp(((C_word*)t0)[2],lf[246]); if(C_truep(t2)){ if(C_truep(C_i_greaterp(((C_word*)t0)[3],C_fix(2)))){ /* c-backend.scm:857: gen */ t3=*((C_word*)lf[1]+1);{ C_word av2[8]; av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[432]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[433]; av2[6]=((C_word*)t0)[3]; av2[7]=lf[434]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} else{ t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6421(2,av2);}}} else{ /* c-backend.scm:858: gen */ t3=*((C_word*)lf[1]+1);{ C_word av2[8]; av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[435]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[436]; av2[6]=((C_word*)t0)[3]; av2[7]=lf[437]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}}} else{ t2=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_6421(2,av2);}}} /* k6188 in k6182 in k6155 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 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(5,c,7)))){ C_save_and_reclaim((void *)f_6190,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6193,a[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:878: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[363]; av2[4]=((C_word*)t0)[2]; av2[5]=lf[364]; av2[6]=((C_word*)t0)[2]; av2[7]=lf[365]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k6191 in k6188 in k6182 in k6155 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 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 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_6193,2,av);} a=C_alloc(9); t2=C_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_6202,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_6202(t6,((C_word*)t0)[3],t2,((C_word*)t0)[4]);} /* k3942 in k3939 in k4067 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 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_3944,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3945,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3958,a[2]=t2,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|3,a[1]=(C_word)f_4011,a[2]=t6,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_4011(t8,t4,((C_word*)t0)[6],t2);} /* g395 in k3942 in k3939 in k4067 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_3945(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,5)))){ C_save_and_reclaim_args((void *)trf_3945,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3949,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:342: gen */ t5=*((C_word*)lf[1]+1);{ 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); ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k6977 in loop in cleanup in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_6979(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_6979,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_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)); /* c-backend.scm:976: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_6951(t4,((C_word*)t0)[5],t3);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6989,a[2]=((C_word*)t0)[2],a[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:973: string-copy */ t3=*((C_word*)lf[530]+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{ 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_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)); /* c-backend.scm:976: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_6951(t4,((C_word*)t0)[5],t3);} else{ t2=C_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)); /* c-backend.scm:976: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6951(t3,((C_word*)t0)[5],t2);}}} /* k3947 in g395 in k3942 in k3939 in k4067 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3949,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3952,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:343: expr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2649(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k4067 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_4069,2,av);} a=C_alloc(8); t2=C_i_zerop(t1); t3=t2; if(C_truep(((C_word*)t0)[2])){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3941,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:338: lambda-literal-temporaries */ t5=*((C_word*)lf[101]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4053,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]=t3,tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:351: gen */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[11]; av2[3]=C_make_character(40); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k3939 in k4067 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_3941,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3944,a[2]=((C_word*)t0)[2],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_a_i_plus(&a,2,t1,((C_word*)t0)[7]); /* c-backend.scm:339: iota */ t4=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=t3; av2[4]=C_fix(1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in a6056 in procedures in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_6103,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_6106,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((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:766: lambda-literal-rest-argument-mode */ t4=*((C_word*)lf[247]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in a6056 in procedures in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){ C_save_and_reclaim((void *)f_6100,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|21,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],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:765: lambda-literal-direct */ t4=*((C_word*)lf[249]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in a6056 in procedures in k2630 in generate-code in k2624 in k2539 in k2536 in ... */ static void C_ccall f_6106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6106,2,av);} a=C_alloc(24); t2=t1; t3=(*a=C_CLOSURE_TYPE|23,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],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:767: lambda-literal-temporaries */ t4=*((C_word*)lf[101]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6107 in k6104 in k6101 in k6098 in k6095 in k6092 in k6089 in k6086 in k6083 in k6077 in k6074 in k6071 in k6068 in k6065 in k6062 in k6059 in a6056 in procedures in k2630 in generate-code in k2624 in k2539 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,2)))){ C_save_and_reclaim((void *)f_6109,2,av);} a=C_alloc(25); t2=t1; t3=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_6112,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((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:768: lambda-literal-unboxed-temporaries */ t4=*((C_word*)lf[478]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7158(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(9,c,3)))){ C_save_and_reclaim((void *)f_7158,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7160,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_check_list_2(t2,lf[57]); 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_7472,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_7472(t9,t1,t2);} /* loop in cleanup in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_6951(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_6951,3,t0,t1,t2);} a=C_alloc(16); 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_6979,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_6979(t7,t5);} else{ t7=C_u_i_char_greaterp(t4,C_make_character(126)); if(C_truep(t7)){ t8=t6; f_6979(t8,t7);} else{ if(C_truep(C_u_i_char_equalp(t4,C_make_character(42)))){ t8=C_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1)); if(C_truep(C_i_lessp(t2,t8))){ t9=C_a_i_plus(&a,2,t2,C_fix(1)); t10=C_i_string_ref(((C_word*)t0)[4],t9); t11=C_u_i_char_equalp(C_make_character(47),t10); t12=t6; f_6979(t12,t11);} else{ t9=t6; f_6979(t9,C_SCHEME_FALSE);}} else{ t8=t6; f_6979(t8,C_SCHEME_FALSE);}}}}} /* k3967 in k3964 in k3956 in k3942 in k3939 in k4067 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3969(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3969,2,av);} /* c-backend.scm:349: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[161]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3964 in k3956 in k3942 in k3939 in k4067 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 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_3966,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3969,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_3974,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_3974(t6,t2,((C_word*)t0)[3],t1);} /* k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8560(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_8560,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_8571,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1206: string-append */ t5=*((C_word*)lf[114]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=lf[710]; 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_8577,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_8577(t5,C_eqp(lf[594],t4));} else{ t4=t2; f_8577(t4,C_SCHEME_FALSE);}}} /* k6893 in k6890 in k6887 in emit-procedure-table in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6895,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6898,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:950: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[517]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6896 in k6893 in k6890 in k6887 in emit-procedure-table in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6898,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6901,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:951: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=C_SCHEME_TRUE; av2[4]=lf[516]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6890 in k6887 in emit-procedure-table in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6892,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6895,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:949: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[518]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4091 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4093(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_4093,2,av);} a=C_alloc(14); t2=t1; t3=C_i_cadddr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_4099,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],a[11]=((C_word*)t0)[11],a[12]=t2,a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* c-backend.scm:365: fifth */ t6=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3950 in k3947 in g395 in k3942 in k3939 in k4067 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3952,2,av);} /* c-backend.scm:344: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3956 in k3942 in k3939 in k4067 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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,4)))){ C_save_and_reclaim((void *)f_3958,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3966,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:348: iota */ t4=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(1); av2[4]=C_fix(1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4097 in k4091 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 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_4099,2,av);} a=C_alloc(18); t2=t1; t3=C_i_zerop(t2); t4=C_i_not(t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|14,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],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t5,a[9]=t2,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); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4204,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:367: find-lambda */ t8=((C_word*)((C_word*)t0)[13])[1]; f_2634(t8,t7,((C_word*)t0)[8]);} /* k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,2)))){ C_save_and_reclaim((void *)f_3423,2,av);} a=C_alloc(26); t2=t1; t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_3426,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((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_3888,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3892,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:239: find-lambda */ t6=((C_word*)((C_word*)t0)[19])[1]; f_2634(t6,t5,((C_word*)t0)[8]);} else{ t4=t3; f_3426(t4,C_SCHEME_FALSE);}} /* k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_3426(C_word 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(20,0,7)))){ C_save_and_reclaim_args((void *)trf_3426,2,t0,t1);} a=C_alloc(20); t2=t1; t3=C_u_i_car(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_3430,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],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])){ if(C_truep(*((C_word*)lf[145]+1))){ if(C_truep(((C_word*)t0)[17])){ if(C_truep(((C_word*)((C_word*)t0)[18])[1])){ /* c-backend.scm:244: gen */ t5=*((C_word*)lf[1]+1);{ C_word av2[8]; av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=lf[146]; av2[4]=((C_word*)t0)[17]; av2[5]=lf[147]; av2[6]=lf[148]; av2[7]=lf[149]; ((C_proc)(void*)(*((C_word*)t5+1)))(8,av2);}} else{ /* c-backend.scm:244: gen */ t5=*((C_word*)lf[1]+1);{ C_word av2[8]; av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=lf[146]; av2[4]=((C_word*)t0)[17]; av2[5]=lf[147]; av2[6]=lf[150]; av2[7]=lf[149]; ((C_proc)(void*)(*((C_word*)t5+1)))(8,av2);}}} else{ t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_3430(2,av2);}}} else{ if(C_truep(*((C_word*)lf[151]+1))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3874,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:247: backslashify */ t6=*((C_word*)lf[154]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[19]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3881,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:249: uncommentify */ t6=*((C_word*)lf[81]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[19]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}} else{ t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_3430(2,av2);}}} /* k3440 in k3437 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_3442,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_i_car(t2); /* c-backend.scm:254: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=t3; av2[4]=C_make_character(40); av2[5]=((C_word*)t0)[4]; av2[6]=lf[96]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} /* k8586 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_8588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8588,2,av);} /* c-backend.scm:1209: foreign-type-declaration */ t2=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3982 in for-each-loop420 in k3964 in k3956 in k3942 in k3939 in k4067 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3984,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_3974(t4,((C_word*)t0)[5],t2,t3);} /* k4506 in k4503 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(7,c,2)))){ C_save_and_reclaim((void *)f_4508,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4511,a[2]=((C_word*)t0)[2],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:460: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[223]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4503 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4505,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4508,a[2]=((C_word*)t0)[2],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:459: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3417,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_3420,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_3420(t6,(C_truep(t5)?C_i_cadddr(((C_word*)t0)[18]):C_SCHEME_FALSE));} else{ t4=t3; f_3420(t4,C_SCHEME_FALSE);}} /* k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; 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,2)))){ C_save_and_reclaim((void *)f_3430,2,av);} a=C_alloc(21); t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_eqp(lf[32],t2); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|7,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],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* c-backend.scm:251: gen */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_make_character(123); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ if(C_truep(((C_word*)t0)[8])){ t4=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_3466,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[4],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)[2],tmp=(C_word)a,a+=16,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3657,a[2]=((C_word*)t0)[8],a[3]=t4,a[4]=((C_word*)t0)[12],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:256: lambda-literal-id */ t6=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3663,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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); t5=C_slot(((C_word*)t0)[2],C_fix(1)); t6=C_eqp(lf[67],t5); if(C_truep(t6)){ t7=*((C_word*)lf[136]+1); if(C_truep(*((C_word*)lf[136]+1))){ t8=t4; f_3663(t8,C_SCHEME_FALSE);} else{ t8=*((C_word*)lf[141]+1); t9=t4; f_3663(t9,(C_truep(*((C_word*)lf[141]+1))?C_SCHEME_FALSE:C_i_not(((C_word*)t0)[16])));}} else{ t7=t4; f_3663(t7,C_SCHEME_FALSE);}}}} /* for-each-loop420 in k3964 in k3956 in k3942 in k3939 in k4067 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_3974(C_word t0,C_word t1,C_word 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,7)))){ C_save_and_reclaim_args((void *)trf_3974,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_3984,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:347: gen */ t9=*((C_word*)lf[1]+1);{ 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[162]; av2[6]=t7; av2[7]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t9+1)))(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);}}} /* k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8577(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_8577,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_8588,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1209: string-append */ t5=*((C_word*)lf[114]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=lf[711]; 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_8594,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_8594(t4,C_eqp(lf[740],t3));} else{ t3=t2; f_8594(t3,C_SCHEME_FALSE);}}} /* k8569 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ 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,3)))){ C_save_and_reclaim((void *)f_8571,2,av);} /* c-backend.scm:1206: foreign-type-declaration */ t2=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4509 in k4506 in k4503 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_4511,2,av);} a=C_alloc(7); t2=C_i_car(((C_word*)t0)[2]); t3=C_u_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_4522,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_4522(t7,((C_word*)t0)[6],t2,t3);} /* doloop499 in k4509 in k4506 in k4503 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_4522(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,3)))){ C_save_and_reclaim_args((void *)trf_4522,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_zerop(t2))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4532,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:464: gen */ t5=*((C_word*)lf[1]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=lf[221]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4545,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:467: gen */ t5=*((C_word*)lf[1]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=lf[222]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k3437 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_3439,2,av);} a=C_alloc(5); t2=(*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]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:252: push-args */ t3=((C_word*)((C_word*)t0)[5])[1]; f_4733(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],lf[97]);} /* k5463 in k5460 in k5457 in k5454 in k5451 in a5448 in trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5465(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_5465,2,t0,t1);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5468,a[2]=((C_word*)t0)[2],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_a_i_minus(&a,2,((C_word*)((C_word*)t0)[4])[1],C_fix(1)); t4=C_mutate2(((C_word *)((C_word*)t0)[4])+1,t3); t5=t2; f_5468(t5,t4);} else{ t3=t2; f_5468(t3,C_SCHEME_UNDEFINED);}} /* k5460 in k5457 in k5454 in k5451 in a5448 in trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5462,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5465,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_5517,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:653: lambda-literal-closure-size */ t5=*((C_word*)lf[157]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=t3; f_5465(t4,C_SCHEME_FALSE);}} /* k5466 in k5463 in k5460 in k5457 in k5454 in k5451 in a5448 in trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5468(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_5468,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:655: lambda-literal-direct */ t3=*((C_word*)lf[249]+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);}} /* encode-size in encode-literal in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_10652(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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,0,3)))){ C_save_and_reclaim_args((void *)trf_10652,2,t1,t2);} a=C_alloc(28); t3=C_a_i_arithmetic_shift(&a,2,t2,C_fix(-24)); if(C_truep(C_u_i_zerop(t3))){ t4=C_a_i_arithmetic_shift(&a,2,t2,C_fix(-16)); t5=C_a_i_bitwise_and(&a,2,C_fix(255),t4); t6=C_make_character(C_unfix(t5)); t7=C_a_i_arithmetic_shift(&a,2,t2,C_fix(-8)); t8=C_a_i_bitwise_and(&a,2,C_fix(255),t7); t9=C_make_character(C_unfix(t8)); t10=C_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);}} else{ /* c-backend.scm:1396: quit */ t4=*((C_word*)lf[660]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=lf[839]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* ##compiler#foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_9858(C_word c,C_word *av){ C_word tmp; C_word t0=av[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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_9858,4,av);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9860,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t2; t6=C_eqp(t5,lf[15]); t7=(C_truep(t6)?t6:C_eqp(t5,lf[629])); if(C_truep(t7)){ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=lf[802]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(t5,lf[449]); t9=(C_truep(t8)?t8:C_eqp(t5,lf[625])); if(C_truep(t9)){ t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=lf[803]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_eqp(t5,lf[630]); t11=(C_truep(t10)?t10:C_eqp(t5,lf[631])); if(C_truep(t11)){ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=lf[804]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t12=C_eqp(t5,lf[626]); if(C_truep(t12)){ t13=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=lf[805]; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t13=C_eqp(t5,lf[627]); if(C_truep(t13)){ t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=lf[806]; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t14=C_eqp(t5,lf[632]); if(C_truep(t14)){ t15=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=lf[807]; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t15=C_eqp(t5,lf[633]); if(C_truep(t15)){ t16=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=lf[808]; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ t16=C_eqp(t5,lf[585]); t17=(C_truep(t16)?t16:C_eqp(t5,lf[612])); if(C_truep(t17)){ t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9927,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1334: open-output-string */ t19=*((C_word*)lf[332]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t19; av2[1]=t18; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ t18=C_eqp(t5,lf[620]); if(C_truep(t18)){ t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9951,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1335: open-output-string */ t20=*((C_word*)lf[332]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t20; av2[1]=t19; ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} else{ t19=C_eqp(t5,lf[591]); t20=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9975,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_9975(t21,t19);} else{ t21=C_eqp(t5,lf[587]); if(C_truep(t21)){ t22=t20; f_9975(t22,t21);} else{ t22=C_eqp(t5,lf[599]); if(C_truep(t22)){ t23=t20; f_9975(t23,t22);} else{ t23=C_eqp(t5,lf[609]); if(C_truep(t23)){ t24=t20; f_9975(t24,t23);} else{ t24=C_eqp(t5,lf[605]); if(C_truep(t24)){ t25=t20; f_9975(t25,t24);} else{ t25=C_eqp(t5,lf[610]); if(C_truep(t25)){ t26=t20; f_9975(t26,t25);} else{ t26=C_eqp(t5,lf[611]); if(C_truep(t26)){ t27=t20; f_9975(t27,t26);} else{ t27=C_eqp(t5,lf[606]); if(C_truep(t27)){ t28=t20; f_9975(t28,t27);} else{ t28=C_eqp(t5,lf[607]); if(C_truep(t28)){ t29=t20; f_9975(t29,t28);} else{ t29=C_eqp(t5,lf[608]); if(C_truep(t29)){ t30=t20; f_9975(t30,t29);} else{ t30=C_eqp(t5,lf[623]); t31=t20; f_9975(t31,(C_truep(t30)?t30:C_eqp(t5,lf[624])));}}}}}}}}}}}}}}}}}}}} /* k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8594(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_8594,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8601,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_8605,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:1214: foreign-type-declaration */ t5=*((C_word*)lf[200]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=lf[717]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8671,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_8671(t5,C_eqp(lf[596],t4));} else{ t4=t2; f_8671(t4,C_SCHEME_FALSE);}}} /* k4533 in k4530 in doloop499 in k4509 in k4506 in k4503 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4535,2,av);} /* c-backend.scm:466: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(125); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4530 in doloop499 in k4509 in k4506 in k4503 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4532,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4535,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:465: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,5)))){ C_save_and_reclaim((void *)f_3466,2,av);} a=C_alloc(18); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3469,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:258: lambda-literal-temporaries */ t3=*((C_word*)lf[101]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(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|11,a[1]=(C_word)f_3587,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_3587(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3641,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:273: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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); ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}}} /* k3467 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3469,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3472,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_plus(&a,2,t1,((C_word*)t0)[6]); /* c-backend.scm:259: iota */ t4=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=t3; av2[4]=C_fix(1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k5451 in a5448 in trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5453,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_5456,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:650: lambda-literal-rest-argument */ t5=*((C_word*)lf[311]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5454 in k5451 in a5448 in trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5456,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5459,a[2]=((C_word*)t0)[2],a[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:651: lambda-literal-rest-argument-mode */ t3=*((C_word*)lf[247]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5457 in k5454 in k5451 in a5448 in trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5459,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5462,a[2]=((C_word*)t0)[2],a[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:652: lambda-literal-customizable */ t3=*((C_word*)lf[250]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#encode-literal in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(16,c,3)))){ C_save_and_reclaim((void *)f_10643,3,av);} a=C_alloc(16); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10652,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10719,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:1402: string-append */ t8=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=lf[840]; ((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:1402: string-append */ t9=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t7; av2[2]=t8; av2[3]=lf[841]; ((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_10741,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t8=C_fix(C_character_code(t2)); /* c-backend.scm:1406: encode-size */ f_10652(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:1402: string-append */ t9=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t7; av2[2]=t8; av2[3]=lf[843]; ((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:1402: string-append */ t9=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t7; av2[2]=t8; av2[3]=lf[844]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t7=*((C_word*)lf[344]+1); t8=C_eqp(*((C_word*)lf[344]+1),t2); if(C_truep(t8)){ t9=t1; t10=C_a_i_string(&a,1,C_make_character(254)); /* c-backend.scm:1402: string-append */ t11=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t11; av2[1]=t9; av2[2]=t10; av2[3]=lf[845]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ if(C_truep(C_fixnump(t2))){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10838,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1411: big-fixnum? */ t10=*((C_word*)lf[357]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ if(C_truep(C_i_numberp(t2))){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10851,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1420: number->string */ t10=*((C_word*)lf[106]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ if(C_truep(C_i_symbolp(t2))){ t9=C_slot(t2,C_fix(1)); t10=t9; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10867,a[2]=t4,a[3]=t10,tmp=(C_word)a,a+=4,tmp); t12=C_i_string_length(t10); /* c-backend.scm:1425: encode-size */ f_10652(t11,t12);} else{ if(C_truep(C_immp(t2))){ /* c-backend.scm:1428: bomb */ t9=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t4; av2[2]=lf[853]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ if(C_truep(C_byteblockp(t2))){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10890,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t10=t2; t11=stub2107(C_SCHEME_UNDEFINED,t10); t12=C_make_character(C_unfix(t11)); t13=C_a_i_string(&a,1,t12); t14=t13; t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10898,a[2]=t9,a[3]=t14,tmp=(C_word)a,a+=4,tmp); t16=t2; t17=stub2111(C_SCHEME_UNDEFINED,t16); /* c-backend.scm:1433: encode-size */ f_10652(t15,t17);} else{ t9=t2; t10=stub2111(C_SCHEME_UNDEFINED,t9); t11=t10; t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10920,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t13=t2; t14=stub2107(C_SCHEME_UNDEFINED,t13); t15=C_make_character(C_unfix(t14)); t16=C_a_i_string(&a,1,t15); t17=t16; t18=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10928,a[2]=t12,a[3]=t17,a[4]=t2,a[5]=t11,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1440: encode-size */ f_10652(t18,t11);}}}}}}}}}}}} /* k3478 in k3475 in g280 in k3470 in k3467 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_3480,2,av);} /* c-backend.scm:264: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4543 in doloop499 in k4509 in k4506 in k4503 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_4545,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4548,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:468: expr */ t4=((C_word*)((C_word*)t0)[6])[1]; f_2649(t4,t2,t3,((C_word*)t0)[7]);} /* k4546 in k4543 in doloop499 in k4509 in k4506 in k4503 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4548(C_word c,C_word *av){ C_word tmp; C_word t0=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_4548,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4551,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:469: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(58); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5487 in k5484 in k5481 in k5478 in k5475 in k5504 in k5466 in k5463 in k5460 in k5457 in k5454 in k5451 in a5448 in trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5489,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5492,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5499,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:662: intersperse */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5484 in k5481 in k5478 in k5475 in k5504 in k5466 in k5463 in k5460 in k5457 in k5454 in k5451 in a5448 in trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5486,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5489,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:661: make-argument-list */ t3=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=lf[317]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5481 in k5478 in k5475 in k5504 in k5466 in k5463 in k5460 in k5457 in k5454 in k5451 in a5448 in trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_5483,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5486,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:660: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5478 in k5475 in k5504 in k5466 in k5463 in k5460 in k5457 in k5454 in k5451 in a5448 in trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_5480,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5483,a[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_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_5423,a[2]=t3,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_5423(t8,t2,C_fix(0),t4);} /* g280 in k3470 in k3467 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_3473(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,5)))){ C_save_and_reclaim_args((void *)trf_3473,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3477,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:262: gen */ t5=*((C_word*)lf[1]+1);{ 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); ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k3470 in k3467 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_3472,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3473,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3486,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); 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_3545,a[2]=t6,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_3545(t8,t4,((C_word*)t0)[8],t2);} /* k6413 in k6410 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_6415,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6418,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:853: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[438]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6418(2,av2);}}} /* k6410 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in k6092 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 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_6412,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6415,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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])){ t3=*((C_word*)lf[136]+1); if(C_truep(*((C_word*)lf[136]+1))){ t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_6415(2,av2);}} else{ t4=*((C_word*)lf[408]+1); if(C_truep(*((C_word*)lf[408]+1))){ t5=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_6415(2,av2);}} else{ /* c-backend.scm:852: gen */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[439]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6415(2,av2);}}} /* k4549 in k4546 in k4543 in doloop499 in k4509 in k4506 in k4503 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4551,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4554,a[2]=((C_word*)t0)[2],a[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:470: expr */ t4=((C_word*)((C_word*)t0)[6])[1]; f_2649(t4,t2,t3,((C_word*)t0)[7]);} /* k4552 in k4549 in k4546 in k4543 in doloop499 in k4509 in k4506 in k4503 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; 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_4554,2,av);} a=C_alloc(4); t2=C_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1)); t3=C_i_cddr(((C_word*)t0)[3]); t4=((C_word*)((C_word*)t0)[4])[1]; f_4522(t4,((C_word*)t0)[5],t2,t3);} /* k3484 in k3470 in k3467 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3486,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3494,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:268: iota */ t4=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=C_fix(1); av2[4]=C_fix(1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k10090 in k10087 in k10084 in k10078 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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,2)))){ C_save_and_reclaim((void *)f_10092,2,av);} /* c-backend.scm:1343: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5475 in k5504 in k5466 in k5463 in k5460 in k5457 in k5454 in k5451 in a5448 in trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_5477,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5480,a[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:658: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[321]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[322]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_3420(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(20,0,2)))){ C_save_and_reclaim_args((void *)trf_3420,2,t0,t1);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|19,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],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)){ /* c-backend.scm:238: fifth */ t4=*((C_word*)lf[158]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[19]; ((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_3423(2,av2);}}} /* k6416 in k6413 in k6410 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_6418,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6421,a[2]=((C_word*)t0)[2],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_6446,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])){ t4=*((C_word*)lf[136]+1); if(C_truep(*((C_word*)lf[136]+1))){ t5=t3; f_6446(t5,C_SCHEME_FALSE);} else{ t5=*((C_word*)lf[425]+1); t6=t3; f_6446(t6,(C_truep(*((C_word*)lf[425]+1))?C_SCHEME_FALSE:C_i_not(((C_word*)t0)[4])));}} else{ t4=t3; f_6446(t4,C_SCHEME_FALSE);}} /* k3475 in g280 in k3470 in k3467 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3477,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3480,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:263: expr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2649(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k3492 in k3484 in k3470 in k3467 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3494,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3497,a[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|2,a[1]=(C_word)f_3508,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_3508(t6,t2,((C_word*)t0)[5],t1);} /* k6428 in k6419 in k6416 in k6413 in k6410 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in ... */ static void C_ccall f_6430(C_word c,C_word *av){ C_word tmp; C_word 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_6430,2,av);} if(C_truep(((C_word*)t0)[2])){ /* c-backend.scm:863: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[427]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[428]; av2[6]=((C_word*)t0)[5]; av2[7]=lf[429]; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} else{ /* c-backend.scm:863: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[427]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[430]; av2[6]=((C_word*)t0)[5]; av2[7]=lf[429]; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}}} /* k5497 in k5487 in k5484 in k5481 in k5478 in k5475 in k5504 in k5466 in k5463 in k5460 in k5457 in k5454 in k5451 in a5448 in trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5499(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5499,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[1]+1); av2[3]=t1; C_apply(4,av2);}} /* err in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_9860(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_9860,2,t0,t1);} /* c-backend.scm:1325: quit */ t2=*((C_word*)lf[660]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[801]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5490 in k5487 in k5484 in k5481 in k5478 in k5475 in k5504 in k5466 in k5463 in k5460 in k5457 in k5454 in k5451 in a5448 in trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5492,2,av);} /* c-backend.scm:663: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[315]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3795 in k3786 in k3783 in k3780 in k3777 in k3774 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_3797(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_3797,2,t0,t1);} if(C_truep(t1)){ /* c-backend.scm:327: gen */ t2=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[137]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[138]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ /* c-backend.scm:328: gen */ t2=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[139]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[140]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k3789 in k3786 in k3783 in k3780 in k3777 in k3774 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3791,2,av);} /* c-backend.scm:329: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[134]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[135]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8502(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_8502,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ /* c-backend.scm:1192: str */ t2=((C_word*)t0)[2]; f_8183(t2,((C_word*)t0)[3],lf[708]);} else{ t2=C_eqp(((C_word*)t0)[4],lf[548]); if(C_truep(t2)){ /* c-backend.scm:1193: str */ t3=((C_word*)t0)[2]; f_8183(t3,((C_word*)t0)[3],lf[709]);} else{ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8517,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:1195: ##sys#hash-table-ref */ t4=*((C_word*)lf[10]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[604]+1); av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_8517(2,av2);}}}}} /* k6419 in k6416 in k6413 in k6410 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6421,2,av);} a=C_alloc(6); if(C_truep(((C_word*)t0)[2])){ /* c-backend.scm:868: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_make_character(123); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6430,a[2]=((C_word*)t0)[4],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*)lf[420]+1))){ /* c-backend.scm:862: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[431]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6430(2,av2);}}}} /* k4584 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(6,c,3)))){ C_save_and_reclaim((void *)f_4586,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:474: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k4587 in k4584 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(6,c,2)))){ C_save_and_reclaim((void *)f_4589,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4592,a[2]=((C_word*)t0)[2],a[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:475: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3495 in k3492 in k3484 in k3470 in k3467 in k3464 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3497,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3500,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ /* c-backend.scm:270: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[98]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* c-backend.scm:269: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[99]; av2[4]=((C_word*)t0)[4]; av2[5]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* k3786 in k3783 in k3780 in k3777 in k3774 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 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_3788,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3791,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=*((C_word*)lf[136]+1); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3797,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); if(C_truep(*((C_word*)lf[136]+1))){ t5=t4; f_3797(t5,*((C_word*)lf[136]+1));} else{ t5=*((C_word*)lf[141]+1); if(C_truep(*((C_word*)lf[141]+1))){ t6=*((C_word*)lf[141]+1); t7=t4; f_3797(t7,*((C_word*)lf[141]+1));} else{ t6=t4; f_3797(t6,((C_word*)t0)[5]);}}} /* k3783 in k3780 in k3777 in k3774 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(6,c,3)))){ C_save_and_reclaim((void *)f_3785,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3788,a[2]=((C_word*)t0)[2],a[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:325: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[142]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3780 in k3777 in k3774 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_3782,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3785,a[2]=((C_word*)t0)[2],a[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_3810,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_3815,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:324: number->string */ t5=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* g1613 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8521(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_8521,3,t0,t1,t2);} if(C_truep(C_i_vectorp(t2))){ t3=C_i_vector_ref(t2,C_fix(0)); /* c-backend.scm:1197: foreign-type-declaration */ t4=*((C_word*)lf[200]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=t2; /* c-backend.scm:1197: foreign-type-declaration */ t4=*((C_word*)lf[200]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k7122 in k7119 in for-each-loop1143 in generate-foreign-callback-stub-prototypes in k2624 in k2539 in k2536 in k2533 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7124,2,av);} /* c-backend.scm:1012: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7119 in for-each-loop1143 in generate-foreign-callback-stub-prototypes in k2624 in k2539 in k2536 in k2533 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7121,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7124,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1011: generate-foreign-callback-header */ t3=*((C_word*)lf[535]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[536]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ 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; C_word 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_8517,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8521,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1195: g1613 */ t3=t2; f_8521(t3,((C_word*)t0)[3],t1);} else{ if(C_truep(C_i_stringp(((C_word*)t0)[4]))){ /* c-backend.scm:1198: str */ t2=((C_word*)t0)[5]; f_8183(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_8560,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_8560(t7,C_u_i_memq(t6,lf[741]));} else{ t6=t4; f_8560(t6,C_SCHEME_FALSE);}} else{ /* c-backend.scm:1249: err */ t2=((C_word*)t0)[6]; f_8178(t2,((C_word*)t0)[3]);}}}} /* k3753 in k3681 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(0,c,4)))){ C_save_and_reclaim((void *)f_3755,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); /* c-backend.scm:312: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[125]; av2[3]=((C_word*)((C_word*)t0)[2])[1]; av2[4]=lf[126]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10084 in k10078 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10086(C_word c,C_word *av){ C_word tmp; C_word t0=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_10086,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10089,a[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:1343: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7602 in k7565 in k7559 in k7547 in k7535 in k7526 in compute-size in k7514 in k7508 in k7505 in k7502 in k7499 in g1279 in generate-foreign-callback-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_7604(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,4)))){ C_save_and_reclaim_args((void *)trf_7604,2,t0,t1);} if(C_truep(t1)){ /* c-backend.scm:1114: string-append */ t2=*((C_word*)lf[114]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[595]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[596]); if(C_truep(t2)){ t3=C_i_cadr(((C_word*)t0)[5]); /* c-backend.scm:1115: compute-size */ t4=((C_word*)((C_word*)t0)[6])[1];{ C_word av2[5]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t3; av2[3]=((C_word*)t0)[7]; av2[4]=((C_word*)t0)[3]; f_7518(5,av2);}} 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);}}}} /* k10087 in k10084 in k10078 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10089(C_word c,C_word *av){ C_word tmp; C_word t0=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_10089,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10092,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1343: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[817]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5406 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5408,2,av);} t2=((C_word*)t0)[2]; f_5264(t2,C_i_zerop(t1));} /* k3746 in k3681 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3748,2,av);} /* c-backend.scm:304: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[123]; av2[3]=t1; av2[4]=lf[124]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7100 in for-each-loop1119 in k7060 in generate-external-variables in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7102,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7092(t3,((C_word*)t0)[4],t2);} /* k3738 in k3721 in k3681 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3740,2,av);} /* c-backend.scm:308: c-ify-string */ t2=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10009 in k10006 in k10000 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10011(C_word c,C_word *av){ C_word tmp; C_word t0=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_10011,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10014,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1340: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[813]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10027 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 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_10029,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10035,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:1341: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[815]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10039 in k10036 in k10033 in k10027 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10041,2,av);} /* c-backend.scm:1341: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* doloop721 in k5478 in k5475 in k5504 in k5466 in k5463 in k5460 in k5457 in k5454 in k5451 in a5448 in trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5423(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,7)))){ C_save_and_reclaim_args((void *)trf_5423,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_5433,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:645: gen */ t5=*((C_word*)lf[1]+1);{ C_word av2[8]; av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=lf[318]; av2[4]=t2; av2[5]=lf[319]; av2[6]=t3; av2[7]=lf[320]; ((C_proc)(void*)(*((C_word*)t5+1)))(8,av2);}}} /* doloop666 in k5119 in k5116 in k5110 in doloop655 in k5095 in k5092 in k5089 in k5078 in declarations in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5142(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_5142,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_zerop(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_5152,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:593: gen */ t4=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[280]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k10012 in k10009 in k10006 in k10000 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10014,2,av);} /* c-backend.scm:1340: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5410(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,4)))){ C_save_and_reclaim_args((void *)trf_5410,2,t0,t1);} a=C_alloc(2); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5449,tmp=(C_word)a,a+=2,tmp); /* c-backend.scm:647: ##sys#hash-table-for-each */ t3=*((C_word*)lf[314]+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);}} /* k10930 in k10926 in encode-literal in k2624 in k2539 in k2536 in k2533 */ 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);} /* c-backend.scm:1438: cons* */ t2=*((C_word*)lf[855]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10060 in k10054 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10062(C_word c,C_word *av){ C_word tmp; C_word t0=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_10062,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10065,a[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:1342: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a10933 in k10926 in encode-literal in k2624 in k2539 in k2536 in k2533 */ 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; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10934,3,av);} t3=C_slot(((C_word*)t0)[2],t2); /* c-backend.scm:1441: encode-literal */ t4=*((C_word*)lf[355]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a5448 in trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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=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_5449,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5453,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:649: lambda-literal-argument-count */ t5=*((C_word*)lf[248]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* ##compiler#gen-list in k2539 in k2536 in k2533 */ static void C_ccall f_2587(C_word c,C_word *av){ C_word tmp; C_word 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_2587,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2596,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:50: intersperse */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(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);}} /* ##compiler#generate-foreign-callback-stub-prototypes in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,3)))){ C_save_and_reclaim((void *)f_7115,3,av);} a=C_alloc(5); t3=C_i_check_list_2(t2,lf[57]); 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_7135,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_7135(t7,t1,t2);} /* k10965 in k10962 in k10956 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_10967,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10970,a[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:57: ##sys#write-char-0 */ t3=*((C_word*)lf[329]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(95); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k10962 in k10956 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_10964,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10967,a[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_10987,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_10991,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:57: random */ t5=*((C_word*)lf[856]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_fix(16777216); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5431 in doloop721 in k5478 in k5475 in k5504 in k5466 in k5463 in k5460 in k5457 in k5454 in k5451 in a5448 in trampolines in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_5433,2,av);} a=C_alloc(8); t2=C_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); t3=C_a_i_minus(&a,2,((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_5423(t4,((C_word*)t0)[5],t2,t3);} /* doloop661 in k5116 in k5110 in doloop655 in k5095 in k5092 in k5089 in k5078 in declarations in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5169(C_word 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_5169,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_5179,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:590: gen */ t6=*((C_word*)lf[1]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=C_make_character(44); av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k10400 in k10397 in k10394 in k10388 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10402,2,av);} /* c-backend.scm:1368: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5150 in doloop666 in k5119 in k5116 in k5110 in doloop655 in k5095 in k5092 in k5089 in k5078 in declarations in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5152,2,av);} a=C_alloc(4); t2=C_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5142(t3,((C_word*)t0)[4],t2);} /* k10063 in k10060 in k10054 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_10065,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10068,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1342: ##sys#write-char-0 */ t3=*((C_word*)lf[329]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(44); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k10066 in k10063 in k10060 in k10054 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10068(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10068,2,av);} /* c-backend.scm:1342: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8490(C_word 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_8490,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ /* c-backend.scm:1190: str */ t2=((C_word*)t0)[2]; f_8183(t2,((C_word*)t0)[3],lf[707]);} else{ t2=C_eqp(((C_word*)t0)[4],lf[606]); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8502,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_8502(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[4],lf[607]); if(C_truep(t4)){ t5=t3; f_8502(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[4],lf[610]); t6=t3; f_8502(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[4],lf[611])));}}}} /* k10956 in k2539 in k2536 in k2533 */ 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 t5; C_word t6; 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=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10964,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:57: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[857]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k4198 in k4097 in k4091 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 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_4200,2,av);} a=C_alloc(16); t2=C_i_zerop(t1); t3=t2; t4=C_u_i_car(((C_word*)t0)[2]); t5=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_4109,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]=t4,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:369: gen */ t6=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(40); ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k4399 in k4395 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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,5)))){ C_save_and_reclaim((void *)f_4401,2,av);} /* c-backend.scm:432: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[204]; av2[4]=t1; av2[5]=lf[205]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k10078 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 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_10080,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10086,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:1343: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[818]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k4202 in k4097 in k4091 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4204,2,av);} /* c-backend.scm:367: lambda-literal-closure-size */ t2=*((C_word*)lf[157]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10412 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 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_10414,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10420,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:1369: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[838]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k6899 in k6896 in k6893 in k6890 in k6887 in emit-procedure-table in k2624 in k2539 in k2536 in k2533 */ 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(0,c,14)))){ C_save_and_reclaim((void *)f_6901,2,av);} /* c-backend.scm:952: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 15) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(15); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[509]; av2[3]=C_SCHEME_TRUE; av2[4]=lf[510]; av2[5]=C_SCHEME_TRUE; av2[6]=lf[511]; av2[7]=C_SCHEME_TRUE; av2[8]=lf[512]; av2[9]=C_SCHEME_TRUE; av2[10]=lf[513]; av2[11]=C_SCHEME_TRUE; av2[12]=lf[514]; av2[13]=C_SCHEME_TRUE; av2[14]=lf[515]; ((C_proc)(void*)(*((C_word*)t2+1)))(15,av2);}} /* a6905 in k6887 in emit-procedure-table in k2624 in k2539 in k2536 in k2533 */ 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=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_6906,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6910,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6932,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:942: string->c-identifier */ t6=*((C_word*)lf[525]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* for-each-loop27 in gen in k2539 in k2536 in k2533 */ static void C_fcall f_2564(C_word 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_2564,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_2574,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:43: newline */ t6=*((C_word*)lf[2]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t3; av2[2]=*((C_word*)lf[0]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* c-backend.scm:44: display */ t6=*((C_word*)lf[3]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[0]+1); ((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);}}} /* k10054 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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(6,c,4)))){ C_save_and_reclaim((void *)f_10056,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10062,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:1342: ##sys#print */ t6=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10981 in k10968 in k10965 in k10962 in k10956 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10983,2,av);} /* c-backend.scm:57: ##sys#print */ t2=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10985 in k10962 in k10956 in k2539 in k2536 in k2533 */ static void C_ccall f_10987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10987,2,av);} /* c-backend.scm:57: ##sys#print */ t2=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7176,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7179,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:1023: foreign-stub-name */ t4=*((C_word*)lf[580]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7179,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7182,a[2]=((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:1024: foreign-stub-body */ t4=*((C_word*)lf[579]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7170,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_7176,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:1022: foreign-stub-return-type */ t6=*((C_word*)lf[581]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10418 in k10412 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10420,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10423,a[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:1369: ##sys#print */ t3=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5177 in doloop661 in k5116 in k5110 in doloop655 in k5095 in k5092 in k5089 in k5078 in declarations in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5179,2,av);} a=C_alloc(4); t2=C_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5169(t3,((C_word*)t0)[4],t2);} /* k2572 in for-each-loop27 in gen in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2574,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2564(t3,((C_word*)t0)[4],t2);} /* k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_7182,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7185,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:1025: foreign-stub-argument-names */ t4=*((C_word*)lf[578]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10971 in k10968 in k10965 in k10962 in k10956 in k2539 in k2536 in k2533 */ static void C_ccall f_10973(C_word c,C_word *av){ C_word tmp; C_word t0=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_10973,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10976,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:57: ##sys#write-char-0 */ t3=*((C_word*)lf[329]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(95); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4420 in k4417 in k4414 in k4411 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4422,2,av);} /* c-backend.scm:442: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[209]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ 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(11,c,3)))){ C_save_and_reclaim((void *)f_7185,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7188,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; f_7188(2,av2);}} else{ /* c-backend.scm:1025: make-list */ t3=*((C_word*)lf[577]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k10974 in k10971 in k10968 in k10965 in k10962 in k10956 in k2539 in k2536 in k2533 */ static void C_ccall f_10976(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10976,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10979,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:57: get-output-string */ t3=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_7188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7188,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7191,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:1026: foreign-result-conversion */ t4=*((C_word*)lf[194]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=lf[576]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k10977 in k10974 in k10971 in k10968 in k10965 in k10962 in k10956 in k2539 in k2536 in k2533 */ static void C_ccall f_10979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10979,2,av);} /* c-backend.scm:56: string->c-identifier */ t2=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10968 in k10965 in k10962 in k10956 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_10970,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10973,a[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_10983,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:57: current-seconds */ t4=*((C_word*)lf[278]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##compiler#gen in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_2544,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_2564,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_2564(t6,t1,t2);} /* k2539 in k2536 in k2533 */ static void C_ccall f_2541(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_2541,2,av);} a=C_alloc(10); t2=C_set_block_item(lf[0] /* ##compiler#output */,0,C_SCHEME_FALSE); t3=C_mutate2((C_word*)lf[1]+1 /* (set! ##compiler#gen ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2544,tmp=(C_word)a,a+=2,tmp)); t4=C_mutate2((C_word*)lf[4]+1 /* (set! ##compiler#gen-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2587,tmp=(C_word)a,a+=2,tmp)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2626,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10958,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:57: open-output-string */ t7=*((C_word*)lf[332]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k4431 in k4414 in k4411 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4433,2,av);} /* c-backend.scm:440: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[210]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k10424 in k10421 in k10418 in k10412 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_10426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10426,2,av);} /* c-backend.scm:1369: get-output-string */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10421 in k10418 in k10412 in k10213 in k10186 in k9973 in foreign-result-conversion in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_10423,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10426,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1369: ##sys#write-char-0 */ t3=*((C_word*)lf[329]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(44); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4439 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4441,2,av);} /* c-backend.scm:438: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[211]; av2[3]=t1; av2[4]=lf[212]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k10989 in k10962 in k10956 in k2539 in k2536 in k2533 */ static void C_ccall f_10991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10991,2,av);} /* c-backend.scm:57: number->string */ t2=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6938 in emit-procedure-table in k2624 in k2539 in k2536 in k2533 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,8)))){ C_save_and_reclaim((void *)f_6940,2,av);} a=C_alloc(4); t2=C_a_i_plus(&a,2,t1,C_fix(1)); /* c-backend.scm:938: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=C_SCHEME_TRUE; av2[4]=lf[526]; av2[5]=C_SCHEME_TRUE; av2[6]=lf[527]; av2[7]=t2; av2[8]=lf[528]; ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* ##compiler#cleanup in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,3)))){ C_save_and_reclaim((void *)f_6942,3,av);} 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_6951,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_6951(t10,t1,C_fix(0));} /* k6930 in a6905 in k6887 in emit-procedure-table in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_6932(C_word c,C_word *av){ C_word tmp; C_word 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_6932,2,av);} /* c-backend.scm:942: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[523]; av2[4]=((C_word*)t0)[3]; av2[5]=C_make_character(58); av2[6]=t1; av2[7]=lf[524]; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* k4259 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4261,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4264,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:406: expr-args */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4704(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k4461 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; 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_4463,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4466,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:449: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k4262 in k4259 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_4264,2,av);} /* c-backend.scm:407: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4464 in k4461 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4466,2,av);} /* c-backend.scm:450: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[216]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6908 in a6905 in k6887 in emit-procedure-table in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6910,2,av);} t2=C_eqp(lf[296],((C_word*)t0)[2]); if(C_truep(t2)){ if(C_truep(*((C_word*)lf[260]+1))){ /* c-backend.scm:945: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[519]; av2[3]=*((C_word*)lf[260]+1); av2[4]=lf[520]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ /* c-backend.scm:946: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[521]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} else{ /* c-backend.scm:947: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=lf[522]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k4484 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4486,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4489,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:454: expr-args */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4704(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k4487 in k4484 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4489,2,av);} /* c-backend.scm:455: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k2868 in k2865 in k2862 in loop in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_2870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_2870,2,av);} a=C_alloc(8); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)); t5=C_a_i_minus(&a,2,((C_word*)t0)[4],C_fix(1)); /* c-backend.scm:116: loop */ t6=((C_word*)((C_word*)t0)[5])[1]; f_2854(t6,((C_word*)t0)[6],t3,t4,t5);} /* k4411 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4413,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4416,a[2]=((C_word*)t0)[2],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:439: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k4414 in k4411 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4416,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4419,a[2]=((C_word*)t0)[2],a[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_4433,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:440: foreign-argument-conversion */ t4=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4417 in k4414 in k4411 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4419,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4422,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* c-backend.scm:441: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k2865 in k2862 in loop in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_2867,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2870,a[2]=((C_word*)t0)[2],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:115: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(59); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4224 in k4221 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(0,c,7)))){ C_save_and_reclaim((void *)f_4226,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* c-backend.scm:397: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[177]; av2[4]=t2; av2[5]=lf[178]; av2[6]=((C_word*)t0)[4]; av2[7]=lf[179]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k8794 in k8790 in k8771 in k8754 in k8737 in k8720 in k8703 in k8686 in k8669 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_8796,2,av);} /* c-backend.scm:1236: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } 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[728]; av2[5]=((C_word*)t0)[5]; av2[6]=lf[729]; av2[7]=t1; av2[8]=lf[730]; ((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} /* k4221 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(5,c,4)))){ C_save_and_reclaim((void *)f_4223,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4226,a[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:396: push-args */ t3=((C_word*)((C_word*)t0)[5])[1]; f_4733(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],lf[180]);} /* k8790 in k8771 in k8754 in k8737 in k8720 in k8703 in k8686 in k8669 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 in ... */ static void C_ccall f_8792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_8792,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8796,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[714]); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8817,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_8819,a[2]=t6,a[3]=t11,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_8819(t13,t9,((C_word*)t0)[5]);} /* k5119 in k5116 in k5110 in doloop655 in k5095 in k5092 in k5089 in k5078 in declarations in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 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_5121,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5124,a[2]=((C_word*)t0)[2],a[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_plus(&a,2,((C_word*)t0)[6],C_fix(7)); t4=C_a_i_bitwise_and(&a,2,C_fix(16777208),t3); t5=C_a_i_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_5142,a[2]=t7,tmp=(C_word)a,a+=3,tmp)); t9=((C_word*)t7)[1]; f_5142(t9,t2,t5);} /* k5122 in k5119 in k5116 in k5110 in doloop655 in k5095 in k5092 in k5089 in k5078 in declarations in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(6,c,2)))){ C_save_and_reclaim((void *)f_5124,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5127,a[2]=((C_word*)t0)[2],a[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:594: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[279]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5125 in k5122 in k5119 in k5116 in k5110 in doloop655 in k5095 in k5092 in k5089 in k5078 in declarations in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_5127,2,av);} a=C_alloc(4); t2=C_a_i_plus(&a,2,((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_5102(t5,((C_word*)t0)[5],t2,t4);} /* loop in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_2854(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(8,0,5)))){ C_save_and_reclaim_args((void *)trf_2854,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_2864,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:113: gen */ t6=*((C_word*)lf[1]+1);{ 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); ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} else{ t5=C_i_car(t2); /* c-backend.scm:117: expr */ t6=((C_word*)((C_word*)t0)[3])[1]; f_2649(t6,t1,t5,t3);}} /* k10926 in encode-literal in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_10928,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10932,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_10934,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1441: list-tabulate */ t5=*((C_word*)lf[532]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3771 in k3681 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3773,2,av);} /* c-backend.scm:315: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3774 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(9,c,3)))){ C_save_and_reclaim((void *)f_3776,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3779,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:322: expr */ t3=((C_word*)((C_word*)t0)[9])[1]; f_2649(t3,t2,((C_word*)t0)[10],((C_word*)t0)[8]);} /* k3777 in k3774 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(9,c,2)))){ C_save_and_reclaim((void *)f_3779,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3782,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:323: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[144]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k10918 in encode-literal in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10920,2,av);} /* c-backend.scm:1437: string-intersperse */ t2=*((C_word*)lf[270]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[854]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5110 in doloop655 in k5095 in k5092 in k5089 in k5078 in declarations in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 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,11)))){ C_save_and_reclaim((void *)f_5112,2,av);} a=C_alloc(20); t2=t1; t3=C_i_string_length(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5118,a[2]=((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_a_i_arithmetic_shift(&a,2,t4,C_fix(-16)); t7=C_a_i_arithmetic_shift(&a,2,t4,C_fix(-8)); t8=C_a_i_bitwise_and(&a,2,C_fix(255),t7); t9=C_fixnum_and(C_fix(255),t4); /* c-backend.scm:583: gen */ t10=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 12) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(12); } av2[0]=t10; av2[1]=t5; av2[2]=C_SCHEME_TRUE; av2[3]=lf[281]; av2[4]=((C_word*)t0)[2]; av2[5]=lf[282]; 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); ((C_proc)(void*)(*((C_word*)t10+1)))(12,av2);}} /* k5116 in k5110 in doloop655 in k5095 in k5092 in k5089 in k5078 in declarations in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 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_5118,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5121,a[2]=((C_word*)t0)[2],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_5169,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_5169(t6,t2,C_fix(0));} /* k4243 in k4240 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4245,2,av);} /* c-backend.scm:402: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[182]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4240 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4242,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4245,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:401: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k3760 in k3681 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3762,2,av);} /* c-backend.scm:311: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[127]; av2[3]=t1; av2[4]=lf[128]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3764 in k3681 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3766,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); /* c-backend.scm:316: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[129]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[130]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3714 in k3681 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3716,2,av);} /* c-backend.scm:301: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[117]; av2[3]=t1; av2[4]=lf[118]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7360 in k7357 in for-each-loop1204 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7362,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_7352(t5,((C_word*)t0)[6],t2,t3,t4);} /* k2803 in k2800 in k2797 in k2794 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_2805,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2808,a[2]=((C_word*)t0)[2],a[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:103: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[29]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2800 in k2797 in k2794 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2802,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2805,a[2]=((C_word*)t0)[2],a[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:102: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k3707 in k3681 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3709,2,av);} /* c-backend.scm:300: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[115]; av2[3]=t1; av2[4]=lf[116]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4395 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4397,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4401,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:432: foreign-type-declaration */ t4=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[206]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2809 in k2806 in k2803 in k2800 in k2797 in k2794 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_2811,2,av);} /* c-backend.scm:105: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(125); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k2806 in k2803 in k2800 in k2797 in k2794 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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,3)))){ 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_caddr(((C_word*)t0)[3]); /* c-backend.scm:104: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2649(t4,t2,t3,((C_word*)t0)[5]);} /* k3734 in k3721 in k3681 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_3736,2,av);} /* c-backend.scm:307: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[121]; av2[3]=((C_word*)((C_word*)t0)[3])[1]; av2[4]=lf[122]; av2[5]=t1; av2[6]=C_make_character(41); ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ C_save_and_reclaim((void *)f_5249,2,av);} a=C_alloc(2); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5254,tmp=(C_word)a,a+=2,tmp); /* c-backend.scm:598: ##sys#hash-table-for-each */ t3=*((C_word*)lf[314]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5245(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_5245,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5249,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:597: gen */ t3=*((C_word*)lf[1]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2862 in loop in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_2864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2864,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2867,a[2]=((C_word*)t0)[2],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:114: expr */ t4=((C_word*)((C_word*)t0)[7])[1]; f_2649(t4,t2,t3,((C_word*)t0)[3]);} /* k3721 in k3681 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3723,2,av);} a=C_alloc(7); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); if(C_truep(((C_word*)t0)[3])){ /* c-backend.scm:306: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=lf[119]; av2[3]=((C_word*)((C_word*)t0)[2])[1]; av2[4]=lf[120]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3736,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_3740,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_cadddr(((C_word*)t0)[5]); /* c-backend.scm:308: ##sys#symbol->qualified-string */ t6=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k6242 in k6239 in k6182 in k6155 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in ... */ static void C_ccall f_6244(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6244,2,av);} /* c-backend.scm:887: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[373]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6239 in k6182 in k6155 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 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(3,c,3)))){ C_save_and_reclaim((void *)f_6241,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6244,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=*((C_word*)lf[1]+1); av2[3]=((C_word*)t0)[3]; C_apply(4,av2);}} /* for-each-loop1204 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in k2539 in ... */ static void C_fcall f_7352(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_7352,5,t0,t1,t2,t3,t4);} a=C_alloc(7); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7359,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_7359(t7,(C_truep(t6)?C_i_pairp(t4):C_SCHEME_FALSE));} else{ t6=t5; f_7359(t6,C_SCHEME_FALSE);}} /* k7357 in for-each-loop1204 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 in g1167 in generate-foreign-stubs in k2624 in ... */ static void C_fcall f_7359(C_word t0,C_word t1){ C_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(20,0,2)))){ C_save_and_reclaim_args((void *)trf_7359,2,t0,t1);} a=C_alloc(20); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7362,a[2]=((C_word*)t0)[2],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_7221,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_7233,a[2]=t9,a[3]=t7,tmp=(C_word)a,a+=4,tmp); if(C_truep(t5)){ /* c-backend.scm:1052: symbol->string */ t11=*((C_word*)lf[556]+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_7239,a[2]=t10,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1052: open-output-string */ t12=*((C_word*)lf[332]+1);{ 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);}}} /* k5230 in for-each-loop639 in k5078 in declarations in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5232,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5222(t3,((C_word*)t0)[4],t2);} /* k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_5267,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5270,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:604: lambda-literal-rest-argument */ t4=*((C_word*)lf[311]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5261,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5264,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_5408,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:602: lambda-literal-closure-size */ t5=*((C_word*)lf[157]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=t3; f_5264(t4,C_SCHEME_FALSE);}} /* k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5264(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,3)))){ C_save_and_reclaim_args((void *)trf_5264,2,t0,t1);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5267,a[2]=((C_word*)t0)[2],a[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_5394,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t4=C_a_i_minus(&a,2,((C_word*)t0)[6],C_fix(1)); /* c-backend.scm:603: make-variable-list */ t5=*((C_word*)lf[312]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=lf[313]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* c-backend.scm:603: make-variable-list */ t4=*((C_word*)lf[312]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=lf[313]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* doloop961 in k6155 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in k6095 in ... */ static void C_fcall f_6261(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,7)))){ C_save_and_reclaim_args((void *)trf_6261,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_6271,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:874: gen */ t4=*((C_word*)lf[1]+1);{ C_word av2[8]; av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=lf[377]; av2[4]=t2; av2[5]=lf[378]; av2[6]=t2; av2[7]=lf[379]; ((C_proc)(void*)(*((C_word*)t4+1)))(8,av2);}}} /* k7332 in k7294 in k7291 in k7261 in k7258 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 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,3)))){ C_save_and_reclaim((void *)f_7334,2,av);} /* c-backend.scm:1071: intersperse */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7328 in k7294 in k7291 in k7261 in k7258 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 in k7162 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,3)))){ C_save_and_reclaim((void *)f_7330,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[1]+1); av2[3]=t1; C_apply(4,av2);}} /* k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5258,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5261,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:601: lambda-literal-customizable */ t4=*((C_word*)lf[250]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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=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_5254,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5258,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:600: lambda-literal-argument-count */ t5=*((C_word*)lf[248]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7303 in k7300 in k7297 in k7294 in k7291 in k7261 in k7258 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_7305,2,av);} if(C_truep(((C_word*)t0)[2])){ /* c-backend.scm:1075: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[543]; av2[4]=C_SCHEME_TRUE; av2[5]=lf[544]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ if(C_truep(((C_word*)t0)[4])){ /* c-backend.scm:1077: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[545]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ /* c-backend.scm:1078: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[546]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}} /* k7300 in k7297 in k7294 in k7291 in k7261 in k7258 in k7252 in k7210 in k7207 in k7204 in k7201 in k7198 in k7195 in k7192 in k7189 in k7186 in k7183 in k7180 in k7177 in k7174 in k7168 in k7165 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; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7302,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7305,a[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:1073: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[547]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5283 in k5280 in k5277 in k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_5285,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5288,a[2]=((C_word*)t0)[2],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:622: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(40); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5280 in k5277 in k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_5282,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5285,a[2]=((C_word*)t0)[2],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[296],((C_word*)t0)[7]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5374,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[260]+1))){ /* c-backend.scm:618: string-append */ t5=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[260]+1); av2[3]=lf[301]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=lf[302]; f_5374(2,av2);}}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5349,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:610: gen */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=lf[308]; av2[3]=((C_word*)t0)[7]; av2[4]=lf[309]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}} /* k5286 in k5283 in k5280 in k5277 in k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5288(C_word c,C_word *av){ C_word tmp; C_word t0=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_5288,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5291,a[2]=((C_word*)t0)[2],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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5291(2,av2);}} else{ /* c-backend.scm:623: gen */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[295]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k5958 in doloop827 in k5917 in gen-string-constant in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_5960,2,av);} a=C_alloc(8); t2=C_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1)); t3=C_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(80)); t4=((C_word*)((C_word*)t0)[4])[1]; f_5924(t4,((C_word*)t0)[5],t2,t3);} /* k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_5273,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5276,a[2]=((C_word*)t0)[2],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:606: lambda-literal-direct */ t3=*((C_word*)lf[249]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5277 in k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5279,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,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]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* c-backend.scm:608: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3808 in k3780 in k3777 in k3774 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_3810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3810,2,av);} /* c-backend.scm:324: push-args */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4733(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k5274 in k5271 in k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5276,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5279,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:607: lambda-literal-allocated */ t4=*((C_word*)lf[310]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5268 in k5265 in k5262 in k5259 in k5256 in a5253 in k5247 in prototypes in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_5270,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5273,a[2]=((C_word*)t0)[2],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:605: lambda-literal-rest-argument-mode */ t3=*((C_word*)lf[247]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9522 in k9495 in k9486 in k9477 in k9282 in k9255 in foreign-argument-conversion in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_9524(C_word t0,C_word t1){ C_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(3,0,4)))){ C_save_and_reclaim_args((void *)trf_9524,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_eqp(t2,lf[597]); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[788]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(t2,lf[599]); if(C_truep(t4)){ t5=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t5; av2[1]=lf[789]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(t2,lf[601]); if(C_truep(t5)){ t6=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t6; av2[1]=lf[790]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(t2,lf[602]); if(C_truep(t6)){ t7=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t7; av2[1]=lf[791]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_eqp(t2,lf[745]); if(C_truep(t7)){ t8=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t8; av2[1]=lf[792]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(t2,lf[746]); if(C_truep(t8)){ t9=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t9; av2[1]=lf[793]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_eqp(t2,lf[600]); if(C_truep(t9)){ t10=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t10; av2[1]=lf[794]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_eqp(t2,lf[596]); if(C_truep(t10)){ t11=C_i_cadr(((C_word*)t0)[2]); /* c-backend.scm:1311: foreign-argument-conversion */ t12=*((C_word*)lf[199]+1);{ C_word av2[3]; av2[0]=t12; av2[1]=((C_word*)t0)[3]; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t11=C_eqp(t2,lf[737]); if(C_truep(t11)){ t12=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t12; av2[1]=lf[795]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t12=C_eqp(t2,lf[594]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9601,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t14=C_i_cadr(((C_word*)t0)[2]); /* c-backend.scm:1314: foreign-type-declaration */ t15=*((C_word*)lf[200]+1);{ C_word av2[4]; av2[0]=t15; av2[1]=t13; av2[2]=t14; av2[3]=lf[798]; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} else{ t13=C_eqp(t2,lf[603]); if(C_truep(t13)){ t14=C_i_cadr(((C_word*)t0)[2]); /* c-backend.scm:1317: string-append */ t15=*((C_word*)lf[114]+1);{ C_word av2[5]; av2[0]=t15; av2[1]=((C_word*)t0)[3]; av2[2]=lf[799]; av2[3]=t14; av2[4]=lf[800]; ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} else{ /* c-backend.scm:1318: err */ t14=((C_word*)t0)[4]; f_9229(t14,((C_word*)t0)[3]);}}}}}}}}}}}} else{ /* c-backend.scm:1319: err */ t2=((C_word*)t0)[4]; f_9229(t2,((C_word*)t0)[3]);}} /* k6269 in doloop961 in k6155 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 in ... */ static void C_ccall f_6271(C_word c,C_word *av){ C_word tmp; C_word t0=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_6271,2,av);} a=C_alloc(4); t2=C_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6261(t3,((C_word*)t0)[4],t2);} /* k2533 */ static void C_ccall f_2535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2535,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2538,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2538,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2541,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k5949 in k5938 in doloop827 in k5917 in gen-string-constant in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5951,2,av);} /* c-backend.scm:729: c-ify-string */ t2=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3813 in k3780 in k3777 in k3774 in k3661 in k3428 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3815,2,av);} /* ##sys#string-append */ t2=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[143]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* string-like-substring in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5985(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_5985,4,t1,t2,t3,t4);} a=C_alloc(10); t5=C_a_i_minus(&a,2,t4,t3); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5992,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:734: make-string */ t8=*((C_word*)lf[360]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k4912 in k4909 in k4906 in k4903 in k4900 in k4897 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4914,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4917,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_pairp(*((C_word*)lf[255]+1)))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4929,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:554: gen */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ if(C_truep(*((C_word*)lf[252]+1))){ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* c-backend.scm:557: generate-foreign-callback-stub-prototypes */ t3=*((C_word*)lf[253]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[254]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} /* k4909 in k4906 in k4903 in k4900 in k4897 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_4911,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4914,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[252]+1))){ /* c-backend.scm:552: generate-foreign-callback-stub-prototypes */ t3=*((C_word*)lf[253]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[254]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_4914(2,av2);}}} /* k4915 in k4912 in k4909 in k4906 in k4903 in k4900 in k4897 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_4917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_4917,2,av);} if(C_truep(*((C_word*)lf[252]+1))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* c-backend.scm:557: generate-foreign-callback-stub-prototypes */ t2=*((C_word*)lf[253]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[254]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k5973 in doloop827 in k5917 in gen-string-constant in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5975,2,av);} /* c-backend.scm:730: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5977 in doloop827 in k5917 in gen-string-constant in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5979,2,av);} /* c-backend.scm:730: c-ify-string */ t2=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* doloop655 in k5095 in k5092 in k5089 in k5078 in declarations in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5102(C_word 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_5102,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_5112,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:581: ##sys#lambda-info->string */ t6=*((C_word*)lf[283]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k5993 in k5990 in string-like-substring in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5995,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5990 in string-like-substring in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_5992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5992,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5995,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:735: ##sys#copy-bytes */ t4=*((C_word*)lf[359]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t4; 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]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} /* k8771 in k8754 in k8737 in k8720 in k8703 in k8686 in k8669 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8773(C_word t0,C_word t1){ C_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(6,0,3)))){ C_save_and_reclaim_args((void *)trf_8773,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[727]:C_i_car(t8)); t11=t10; t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8792,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:1237: foreign-type-declaration */ t13=*((C_word*)lf[200]+1);{ C_word av2[4]; av2[0]=t13; av2[1]=t12; av2[2]=t2; av2[3]=lf[735]; ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}} else{ /* c-backend.scm:1248: err */ t2=((C_word*)t0)[5]; f_8178(t2,((C_word*)t0)[3]);}} /* k9599 in k9522 in k9495 in k9486 in k9477 in k9282 in k9255 in foreign-argument-conversion in k2624 in k2539 in k2536 in k2533 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9601,2,av);} /* c-backend.scm:1314: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[796]; av2[3]=t1; av2[4]=lf[797]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* for-each-loop639 in k5078 in declarations in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_5222(C_word t0,C_word t1,C_word 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,9)))){ C_save_and_reclaim_args((void *)trf_5222,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_5232,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:572: gen */ t5=*((C_word*)lf[1]+1);{ C_word av2[10]; av2[0]=t5; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=lf[287]; av2[4]=t4; av2[5]=lf[288]; av2[6]=C_SCHEME_TRUE; av2[7]=lf[289]; av2[8]=t4; av2[9]=lf[290]; ((C_proc)(void*)(*((C_word*)t5+1)))(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);}}} /* k6224 in k6182 in k6155 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 in k6104 in k6101 in k6098 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,5)))){ C_save_and_reclaim((void *)f_6226,2,av);} if(C_truep(C_i_greaterp(((C_word*)t0)[2],C_fix(0)))){ /* c-backend.scm:891: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[371]; av2[4]=((C_word*)t0)[2]; av2[5]=lf[372]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_6160(2,av2);}}} /* k8737 in k8720 in k8703 in k8686 in k8669 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8739(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_8739,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8746,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:1229: ->string */ t4=*((C_word*)lf[504]+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=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8756,a[2]=((C_word*)t0)[2],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_8756(t5,C_eqp(lf[603],t4));} else{ t4=t2; f_8756(t4,C_SCHEME_FALSE);}}} /* k6210 in doloop969 in k6191 in k6188 in k6182 in k6155 in k6152 in k6149 in k6146 in k6143 in k6140 in k6137 in k6134 in k6131 in k6128 in k6125 in k6122 in k6119 in k6116 in k6113 in k6110 in k6107 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_6212,2,av);} a=C_alloc(8); t2=C_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); t3=C_a_i_minus(&a,2,((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_6202(t4,((C_word*)t0)[5],t2,t3);} /* k3886 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3888,2,av);} t2=((C_word*)t0)[2]; f_3426(t2,C_i_zerop(t1));} /* k3879 in k3424 in k3421 in k3418 in k3415 in expr in expression in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3881,2,av);} /* c-backend.scm:249: gen */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[155]; av2[4]=t1; av2[5]=lf[156]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k8761 in k8754 in k8737 in k8720 in k8703 in k8686 in k8669 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_ccall f_8763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8763,2,av);} /* c-backend.scm:1231: string-append */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[726]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k8754 in k8737 in k8720 in k8703 in k8686 in k8669 in k8592 in k8575 in k8558 in k8515 in k8500 in k8488 in k8380 in k8359 in k8251 in foreign-type-declaration in k2624 in k2539 in k2536 in k2533 */ static void C_fcall f_8756(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_8756,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8763,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:1231: ->string */ t4=*((C_word*)lf[504]+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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8773,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_8773(t4,C_eqp(lf[600],t3));} else{ t3=t2; f_8773(t3,C_SCHEME_FALSE);}}} /* k4986 in k4982 in k4978 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_4988,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4992,a[2]=((C_word*)t0)[2],a[3]=((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); /* c-backend.scm:538: pad0 */ f_4863(t3,((C_word*)t0)[8]);} /* k4982 in k4978 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4984,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4988,a[2]=((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); /* c-backend.scm:538: pad0 */ f_4863(t3,((C_word*)t0)[8]);} /* k4978 in k4879 in header in k2630 in generate-code in k2624 in k2539 in k2536 in k2533 */ 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(9,c,2)))){ C_save_and_reclaim((void *)f_4980,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4984,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); /* c-backend.scm:538: pad0 */ f_4863(t3,((C_word*)t0)[8]);} /* k7060 in generate-external-variables in k2624 in k2539 in k2536 in k2533 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_7062,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_i_check_list_2(t2,lf[57]); 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_7092,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_7092(t7,((C_word*)t0)[3],t2);} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[767] = { {"f_7032:c_2dbackend_2escm",(void*)f_7032}, {"f_7084:c_2dbackend_2escm",(void*)f_7084}, {"f_5294:c_2dbackend_2escm",(void*)f_5294}, {"f_5297:c_2dbackend_2escm",(void*)f_5297}, {"f_5291:c_2dbackend_2escm",(void*)f_5291}, {"f_7056:c_2dbackend_2escm",(void*)f_7056}, {"f_7058:c_2dbackend_2escm",(void*)f_7058}, {"f_3308:c_2dbackend_2escm",(void*)f_3308}, {"f_6773:c_2dbackend_2escm",(void*)f_6773}, {"f_6777:c_2dbackend_2escm",(void*)f_6777}, {"f_6761:c_2dbackend_2escm",(void*)f_6761}, {"f_4939:c_2dbackend_2escm",(void*)f_4939}, {"f_6752:c_2dbackend_2escm",(void*)f_6752}, {"f_6755:c_2dbackend_2escm",(void*)f_6755}, {"f_6758:c_2dbackend_2escm",(void*)f_6758}, {"f_4905:c_2dbackend_2escm",(void*)f_4905}, {"f_7048:c_2dbackend_2escm",(void*)f_7048}, {"f_4902:c_2dbackend_2escm",(void*)f_4902}, {"f_7042:c_2dbackend_2escm",(void*)f_7042}, {"f_7040:c_2dbackend_2escm",(void*)f_7040}, {"f_4908:c_2dbackend_2escm",(void*)f_4908}, {"f_4802:c_2dbackend_2escm",(void*)f_4802}, {"f_3109:c_2dbackend_2escm",(void*)f_3109}, {"f_4817:c_2dbackend_2escm",(void*)f_4817}, {"f_6734:c_2dbackend_2escm",(void*)f_6734}, {"f_6730:c_2dbackend_2escm",(void*)f_6730}, {"f_6737:c_2dbackend_2escm",(void*)f_6737}, {"f_3339:c_2dbackend_2escm",(void*)f_3339}, {"f_6202:c_2dbackend_2escm",(void*)f_6202}, {"f_4929:c_2dbackend_2escm",(void*)f_4929}, {"f_3874:c_2dbackend_2escm",(void*)f_3874}, {"f_6723:c_2dbackend_2escm",(void*)f_6723}, {"f_6727:c_2dbackend_2escm",(void*)f_6727}, {"f_3363:c_2dbackend_2escm",(void*)f_3363}, {"f_3360:c_2dbackend_2escm",(void*)f_3360}, {"f_3357:c_2dbackend_2escm",(void*)f_3357}, {"f_4949:c_2dbackend_2escm",(void*)f_4949}, {"f_3117:c_2dbackend_2escm",(void*)f_3117}, {"f_3114:c_2dbackend_2escm",(void*)f_3114}, {"f_3353:c_2dbackend_2escm",(void*)f_3353}, {"f_3110:c_2dbackend_2escm",(void*)f_3110}, {"f_3892:c_2dbackend_2escm",(void*)f_3892}, {"f_5907:c_2dbackend_2escm",(void*)f_5907}, {"f_5909:c_2dbackend_2escm",(void*)f_5909}, {"f_6782:c_2dbackend_2escm",(void*)f_6782}, {"f_10741:c_2dbackend_2escm",(void*)f_10741}, {"f_4996:c_2dbackend_2escm",(void*)f_4996}, {"f_4992:c_2dbackend_2escm",(void*)f_4992}, {"f_4969:c_2dbackend_2escm",(void*)f_4969}, {"f_5924:c_2dbackend_2escm",(void*)f_5924}, {"f_5919:c_2dbackend_2escm",(void*)f_5919}, {"f_3312:c_2dbackend_2escm",(void*)f_3312}, {"f_5940:c_2dbackend_2escm",(void*)f_5940}, {"f_5947:c_2dbackend_2escm",(void*)f_5947}, {"f_6746:c_2dbackend_2escm",(void*)f_6746}, {"f_6743:c_2dbackend_2escm",(void*)f_6743}, {"f_6740:c_2dbackend_2escm",(void*)f_6740}, {"f_6749:c_2dbackend_2escm",(void*)f_6749}, {"f_3342:c_2dbackend_2escm",(void*)f_3342}, {"f_8722:c_2dbackend_2escm",(void*)f_8722}, {"f_6554:c_2dbackend_2escm",(void*)f_6554}, {"f_8729:c_2dbackend_2escm",(void*)f_8729}, {"f_6556:c_2dbackend_2escm",(void*)f_6556}, {"f_10192:c_2dbackend_2escm",(void*)f_10192}, {"f_8712:c_2dbackend_2escm",(void*)f_8712}, {"f_3699:c_2dbackend_2escm",(void*)f_3699}, {"f_3692:c_2dbackend_2escm",(void*)f_3692}, {"f_8746:c_2dbackend_2escm",(void*)f_8746}, {"f_8695:c_2dbackend_2escm",(void*)f_8695}, {"f_3689:c_2dbackend_2escm",(void*)f_3689}, {"f_3686:c_2dbackend_2escm",(void*)f_3686}, {"f_3683:c_2dbackend_2escm",(void*)f_3683}, {"f_8688:c_2dbackend_2escm",(void*)f_8688}, {"f_4595:c_2dbackend_2escm",(void*)f_4595}, {"f_4598:c_2dbackend_2escm",(void*)f_4598}, {"f_4592:c_2dbackend_2escm",(void*)f_4592}, {"f_6592:c_2dbackend_2escm",(void*)f_6592}, {"f_8678:c_2dbackend_2escm",(void*)f_8678}, {"f_8671:c_2dbackend_2escm",(void*)f_8671}, {"f_3374:c_2dbackend_2escm",(void*)f_3374}, {"f_7026:c_2dbackend_2escm",(void*)f_7026}, {"f_3378:c_2dbackend_2escm",(void*)f_3378}, {"f_4780:c_2dbackend_2escm",(void*)f_4780}, {"f_10188:c_2dbackend_2escm",(void*)f_10188}, {"f_3657:c_2dbackend_2escm",(void*)f_3657}, {"f_8705:c_2dbackend_2escm",(void*)f_8705}, {"f_8654:c_2dbackend_2escm",(void*)f_8654}, {"f_7567:c_2dbackend_2escm",(void*)f_7567}, {"f_7561:c_2dbackend_2escm",(void*)f_7561}, {"f_5758:c_2dbackend_2escm",(void*)f_5758}, {"f_3644:c_2dbackend_2escm",(void*)f_3644}, {"f_3641:c_2dbackend_2escm",(void*)f_3641}, {"f_5067:c_2dbackend_2escm",(void*)f_5067}, {"f_6529:c_2dbackend_2escm",(void*)f_6529}, {"f_5780:c_2dbackend_2escm",(void*)f_5780}, {"f_7571:c_2dbackend_2escm",(void*)f_7571}, {"f_5057:c_2dbackend_2escm",(void*)f_5057}, {"f11817:c_2dbackend_2escm",(void*)f11817}, {"f11813:c_2dbackend_2escm",(void*)f11813}, {"f_2596:c_2dbackend_2escm",(void*)f_2596}, {"f_2601:c_2dbackend_2escm",(void*)f_2601}, {"f_4749:c_2dbackend_2escm",(void*)f_4749}, {"f_4746:c_2dbackend_2escm",(void*)f_4746}, {"f_7549:c_2dbackend_2escm",(void*)f_7549}, {"f_4743:c_2dbackend_2escm",(void*)f_4743}, {"f_10119:c_2dbackend_2escm",(void*)f_10119}, {"f_5774:c_2dbackend_2escm",(void*)f_5774}, {"f_10113:c_2dbackend_2escm",(void*)f_10113}, {"f_10116:c_2dbackend_2escm",(void*)f_10116}, {"f_4826:c_2dbackend_2escm",(void*)f_4826}, {"f_4823:c_2dbackend_2escm",(void*)f_4823}, {"f_4820:c_2dbackend_2escm",(void*)f_4820}, {"f_4829:c_2dbackend_2escm",(void*)f_4829}, {"f_10290:c_2dbackend_2escm",(void*)f_10290}, {"f_6506:c_2dbackend_2escm",(void*)f_6506}, {"f_8629:c_2dbackend_2escm",(void*)f_8629}, {"f_8627:c_2dbackend_2escm",(void*)f_8627}, {"f_4755:c_2dbackend_2escm",(void*)f_4755}, {"f_4752:c_2dbackend_2escm",(void*)f_4752}, {"f_3129:c_2dbackend_2escm",(void*)f_3129}, {"f_10287:c_2dbackend_2escm",(void*)f_10287}, {"f_10284:c_2dbackend_2escm",(void*)f_10284}, {"f_3123:c_2dbackend_2escm",(void*)f_3123}, {"f_8147:c_2dbackend_2escm",(void*)f_8147}, {"f_8143:c_2dbackend_2escm",(void*)f_8143}, {"f_2638:c_2dbackend_2escm",(void*)f_2638}, {"f_7528:c_2dbackend_2escm",(void*)f_7528}, {"f_6539:c_2dbackend_2escm",(void*)f_6539}, {"f_4848:c_2dbackend_2escm",(void*)f_4848}, {"f_4845:c_2dbackend_2escm",(void*)f_4845}, {"f11805:c_2dbackend_2escm",(void*)f11805}, {"f_2634:c_2dbackend_2escm",(void*)f_2634}, {"f_8605:c_2dbackend_2escm",(void*)f_8605}, {"f_8135:c_2dbackend_2escm",(void*)f_8135}, {"f_2632:c_2dbackend_2escm",(void*)f_2632}, {"f_8601:c_2dbackend_2escm",(void*)f_8601}, {"f_8138:c_2dbackend_2escm",(void*)f_8138}, {"f_8132:c_2dbackend_2escm",(void*)f_8132}, {"f_8609:c_2dbackend_2escm",(void*)f_8609}, {"f_2646:c_2dbackend_2escm",(void*)f_2646}, {"f_9497:c_2dbackend_2escm",(void*)f_9497}, {"f_7537:c_2dbackend_2escm",(void*)f_7537}, {"f_2649:c_2dbackend_2escm",(void*)f_2649}, {"f_6566:c_2dbackend_2escm",(void*)f_6566}, {"f_10164:c_2dbackend_2escm",(void*)f_10164}, {"f_10167:c_2dbackend_2escm",(void*)f_10167}, {"f_3148:c_2dbackend_2escm",(void*)f_3148}, {"f_5094:c_2dbackend_2escm",(void*)f_5094}, {"f_5097:c_2dbackend_2escm",(void*)f_5097}, {"f_10161:c_2dbackend_2escm",(void*)f_10161}, {"f_5091:c_2dbackend_2escm",(void*)f_5091}, {"f_6515:c_2dbackend_2escm",(void*)f_6515}, {"f_8162:c_2dbackend_2escm",(void*)f_8162}, {"f_7507:c_2dbackend_2escm",(void*)f_7507}, {"f_7504:c_2dbackend_2escm",(void*)f_7504}, {"f_10155:c_2dbackend_2escm",(void*)f_10155}, {"f_3138:c_2dbackend_2escm",(void*)f_3138}, {"f_7501:c_2dbackend_2escm",(void*)f_7501}, {"f_4860:c_2dbackend_2escm",(void*)f_4860}, {"f_5049:c_2dbackend_2escm",(void*)f_5049}, {"f_4863:c_2dbackend_2escm",(void*)f_4863}, {"f_10254:c_2dbackend_2escm",(void*)f_10254}, {"f_2611:c_2dbackend_2escm",(void*)f_2611}, {"f_2628:c_2dbackend_2escm",(void*)f_2628}, {"f_7518:c_2dbackend_2escm",(void*)f_7518}, {"f_7239:c_2dbackend_2escm",(void*)f_7239}, {"f_7516:c_2dbackend_2escm",(void*)f_7516}, {"f_7233:c_2dbackend_2escm",(void*)f_7233}, {"f_5767:c_2dbackend_2escm",(void*)f_5767}, {"f_7510:c_2dbackend_2escm",(void*)f_7510}, {"f_4878:c_2dbackend_2escm",(void*)f_4878}, {"f_5038:c_2dbackend_2escm",(void*)f_5038}, {"f_10002:c_2dbackend_2escm",(void*)f_10002}, {"f_10242:c_2dbackend_2escm",(void*)f_10242}, {"f_10008:c_2dbackend_2escm",(void*)f_10008}, {"f_2626:c_2dbackend_2escm",(void*)f_2626}, {"f_8183:c_2dbackend_2escm",(void*)f_8183}, {"f_7245:c_2dbackend_2escm",(void*)f_7245}, {"f_7248:c_2dbackend_2escm",(void*)f_7248}, {"f_7260:c_2dbackend_2escm",(void*)f_7260}, {"f_4881:c_2dbackend_2escm",(void*)f_4881}, {"f_10278:c_2dbackend_2escm",(void*)f_10278}, {"f_8176:c_2dbackend_2escm",(void*)f_8176}, {"f_8178:c_2dbackend_2escm",(void*)f_8178}, {"f_8174:c_2dbackend_2escm",(void*)f_8174}, {"f_7092:c_2dbackend_2escm",(void*)f_7092}, {"f_7254:c_2dbackend_2escm",(void*)f_7254}, {"f_3185:c_2dbackend_2escm",(void*)f_3185}, {"f_4899:c_2dbackend_2escm",(void*)f_4899}, {"f_10263:c_2dbackend_2escm",(void*)f_10263}, {"f_3182:c_2dbackend_2escm",(void*)f_3182}, {"f_10266:c_2dbackend_2escm",(void*)f_10266}, {"f_10260:c_2dbackend_2escm",(void*)f_10260}, {"f_7266:c_2dbackend_2escm",(void*)f_7266}, {"f_7263:c_2dbackend_2escm",(void*)f_7263}, {"f_10215:c_2dbackend_2escm",(void*)f_10215}, {"f_7272:c_2dbackend_2escm",(void*)f_7272}, {"f_7275:c_2dbackend_2escm",(void*)f_7275}, {"f_10239:c_2dbackend_2escm",(void*)f_10239}, {"f_10038:c_2dbackend_2escm",(void*)f_10038}, {"f_10035:c_2dbackend_2escm",(void*)f_10035}, {"f_10236:c_2dbackend_2escm",(void*)f_10236}, {"f_10230:c_2dbackend_2escm",(void*)f_10230}, {"f_2984:c_2dbackend_2escm",(void*)f_2984}, {"f_2981:c_2dbackend_2escm",(void*)f_2981}, {"f_7293:c_2dbackend_2escm",(void*)f_7293}, {"f_7299:c_2dbackend_2escm",(void*)f_7299}, {"f_7296:c_2dbackend_2escm",(void*)f_7296}, {"f_2987:c_2dbackend_2escm",(void*)f_2987}, {"f_2962:c_2dbackend_2escm",(void*)f_2962}, {"f_8100:c_2dbackend_2escm",(void*)f_8100}, {"f_2978:c_2dbackend_2escm",(void*)f_2978}, {"f_8123:c_2dbackend_2escm",(void*)f_8123}, {"f_8120:c_2dbackend_2escm",(void*)f_8120}, {"f_8126:c_2dbackend_2escm",(void*)f_8126}, {"f_2959:c_2dbackend_2escm",(void*)f_2959}, {"f_3663:c_2dbackend_2escm",(void*)f_3663}, {"f_7200:c_2dbackend_2escm",(void*)f_7200}, {"f_7203:c_2dbackend_2escm",(void*)f_7203}, {"f_8113:c_2dbackend_2escm",(void*)f_8113}, {"f_5008:c_2dbackend_2escm",(void*)f_5008}, {"f_8117:c_2dbackend_2escm",(void*)f_8117}, {"f_3617:c_2dbackend_2escm",(void*)f_3617}, {"f_3614:c_2dbackend_2escm",(void*)f_3614}, {"f_7212:c_2dbackend_2escm",(void*)f_7212}, {"f_3611:c_2dbackend_2escm",(void*)f_3611}, {"f_7206:c_2dbackend_2escm",(void*)f_7206}, {"f_7209:c_2dbackend_2escm",(void*)f_7209}, {"f_2935:c_2dbackend_2escm",(void*)f_2935}, {"f_6885:c_2dbackend_2escm",(void*)f_6885}, {"f_6858:c_2dbackend_2escm",(void*)f_6858}, {"f_2932:c_2dbackend_2escm",(void*)f_2932}, {"f_4764:c_2dbackend_2escm",(void*)f_4764}, {"f_3608:c_2dbackend_2escm",(void*)f_3608}, {"f_7221:c_2dbackend_2escm",(void*)f_7221}, {"f_4777:c_2dbackend_2escm",(void*)f_4777}, {"f_6871:c_2dbackend_2escm",(void*)f_6871}, {"f_2906:c_2dbackend_2escm",(void*)f_2906}, {"f_6889:c_2dbackend_2escm",(void*)f_6889}, {"f_4774:c_2dbackend_2escm",(void*)f_4774}, {"f_3638:c_2dbackend_2escm",(void*)f_3638}, {"f_2909:c_2dbackend_2escm",(void*)f_2909}, {"f_7225:c_2dbackend_2escm",(void*)f_7225}, {"f_4704:c_2dbackend_2escm",(void*)f_4704}, {"f_7229:c_2dbackend_2escm",(void*)f_7229}, {"f_2912:c_2dbackend_2escm",(void*)f_2912}, {"f_3627:c_2dbackend_2escm",(void*)f_3627}, {"f_9479:c_2dbackend_2escm",(void*)f_9479}, {"f_4714:c_2dbackend_2escm",(void*)f_4714}, {"f_4710:c_2dbackend_2escm",(void*)f_4710}, {"f_9488:c_2dbackend_2escm",(void*)f_9488}, {"f_4733:c_2dbackend_2escm",(void*)f_4733}, {"f_5707:c_2dbackend_2escm",(void*)f_5707}, {"f_6051:c_2dbackend_2escm",(void*)f_6051}, {"f_6067:c_2dbackend_2escm",(void*)f_6067}, {"f_5080:c_2dbackend_2escm",(void*)f_5080}, {"f_5863:c_2dbackend_2escm",(void*)f_5863}, {"f_5866:c_2dbackend_2escm",(void*)f_5866}, {"f_5869:c_2dbackend_2escm",(void*)f_5869}, {"f_6057:c_2dbackend_2escm",(void*)f_6057}, {"f_5073:c_2dbackend_2escm",(void*)f_5073}, {"f_5071:c_2dbackend_2escm",(void*)f_5071}, {"f_5714:c_2dbackend_2escm",(void*)f_5714}, {"f_5013:c_2dbackend_2escm",(void*)f_5013}, {"f_5011:c_2dbackend_2escm",(void*)f_5011}, {"f_5876:c_2dbackend_2escm",(void*)f_5876}, {"f_6091:c_2dbackend_2escm",(void*)f_6091}, {"f_6094:c_2dbackend_2escm",(void*)f_6094}, {"f_6795:c_2dbackend_2escm",(void*)f_6795}, {"f_3508:c_2dbackend_2escm",(void*)f_3508}, {"f_6791:c_2dbackend_2escm",(void*)f_6791}, {"f_3500:c_2dbackend_2escm",(void*)f_3500}, {"f_5736:c_2dbackend_2escm",(void*)f_5736}, {"f_6097:c_2dbackend_2escm",(void*)f_6097}, {"f_6064:c_2dbackend_2escm",(void*)f_6064}, {"f_3518:c_2dbackend_2escm",(void*)f_3518}, {"f_6061:c_2dbackend_2escm",(void*)f_6061}, {"f_3545:c_2dbackend_2escm",(void*)f_3545}, {"f_9951:c_2dbackend_2escm",(void*)f_9951}, {"f_9957:c_2dbackend_2escm",(void*)f_9957}, {"f_9960:c_2dbackend_2escm",(void*)f_9960}, {"f_9963:c_2dbackend_2escm",(void*)f_9963}, {"f_9978:c_2dbackend_2escm",(void*)f_9978}, {"f_9975:c_2dbackend_2escm",(void*)f_9975}, {"f_3555:c_2dbackend_2escm",(void*)f_3555}, {"f_5564:c_2dbackend_2escm",(void*)f_5564}, {"f_5567:c_2dbackend_2escm",(void*)f_5567}, {"f_9987:c_2dbackend_2escm",(void*)f_9987}, {"f_5561:c_2dbackend_2escm",(void*)f_5561}, {"f_9984:c_2dbackend_2escm",(void*)f_9984}, {"f_3587:c_2dbackend_2escm",(void*)f_3587}, {"f_5552:c_2dbackend_2escm",(void*)f_5552}, {"f_5558:c_2dbackend_2escm",(void*)f_5558}, {"f_9990:c_2dbackend_2escm",(void*)f_9990}, {"f_6388:c_2dbackend_2escm",(void*)f_6388}, {"f_5582:c_2dbackend_2escm",(void*)f_5582}, {"f_6373:c_2dbackend_2escm",(void*)f_6373}, {"f_6379:c_2dbackend_2escm",(void*)f_6379}, {"f_6376:c_2dbackend_2escm",(void*)f_6376}, {"f_4601:c_2dbackend_2escm",(void*)f_4601}, {"f_3593:c_2dbackend_2escm",(void*)f_3593}, {"f_6367:c_2dbackend_2escm",(void*)f_6367}, {"f_3599:c_2dbackend_2escm",(void*)f_3599}, {"f_3596:c_2dbackend_2escm",(void*)f_3596}, {"f_6359:c_2dbackend_2escm",(void*)f_6359}, {"f_6342:c_2dbackend_2escm",(void*)f_6342}, {"f_6331:c_2dbackend_2escm",(void*)f_6331}, {"f_9284:c_2dbackend_2escm",(void*)f_9284}, {"f_6804:c_2dbackend_2escm",(void*)f_6804}, {"f_5535:c_2dbackend_2escm",(void*)f_5535}, {"f_6328:c_2dbackend_2escm",(void*)f_6328}, {"f_6809:c_2dbackend_2escm",(void*)f_6809}, {"f_6313:c_2dbackend_2escm",(void*)f_6313}, {"f_6316:c_2dbackend_2escm",(void*)f_6316}, {"f_6310:c_2dbackend_2escm",(void*)f_6310}, {"f_6319:c_2dbackend_2escm",(void*)f_6319}, {"f_6304:c_2dbackend_2escm",(void*)f_6304}, {"f_6300:c_2dbackend_2escm",(void*)f_6300}, {"f_6307:c_2dbackend_2escm",(void*)f_6307}, {"f_8844:c_2dbackend_2escm",(void*)f_8844}, {"f_5506:c_2dbackend_2escm",(void*)f_5506}, {"f_9927:c_2dbackend_2escm",(void*)f_9927}, {"f_6843:c_2dbackend_2escm",(void*)f_6843}, {"f_6819:c_2dbackend_2escm",(void*)f_6819}, {"f_5575:c_2dbackend_2escm",(void*)f_5575}, {"f_9933:c_2dbackend_2escm",(void*)f_9933}, {"f_9936:c_2dbackend_2escm",(void*)f_9936}, {"f_9939:c_2dbackend_2escm",(void*)f_9939}, {"f_9257:c_2dbackend_2escm",(void*)f_9257}, {"f_10719:c_2dbackend_2escm",(void*)f_10719}, {"f_6848:c_2dbackend_2escm",(void*)f_6848}, {"f_5525:c_2dbackend_2escm",(void*)f_5525}, {"f_10838:c_2dbackend_2escm",(void*)f_10838}, {"f_10833:c_2dbackend_2escm",(void*)f_10833}, {"f_6837:c_2dbackend_2escm",(void*)f_6837}, {"f_3256:c_2dbackend_2escm",(void*)f_3256}, {"f_5519:c_2dbackend_2escm",(void*)f_5519}, {"f_5517:c_2dbackend_2escm",(void*)f_5517}, {"f_8043:c_2dbackend_2escm",(void*)f_8043}, {"f_10867:c_2dbackend_2escm",(void*)f_10867}, {"f_3017:c_2dbackend_2escm",(void*)f_3017}, {"f_3014:c_2dbackend_2escm",(void*)f_3014}, {"f_3011:c_2dbackend_2escm",(void*)f_3011}, {"f_6085:c_2dbackend_2escm",(void*)f_6085}, {"f_4118:c_2dbackend_2escm",(void*)f_4118}, {"f_4115:c_2dbackend_2escm",(void*)f_4115}, {"f_4112:c_2dbackend_2escm",(void*)f_4112}, {"f_8033:c_2dbackend_2escm",(void*)f_8033}, {"f_8031:c_2dbackend_2escm",(void*)f_8031}, {"f_10851:c_2dbackend_2escm",(void*)f_10851}, {"f_6070:c_2dbackend_2escm",(void*)f_6070}, {"f_6073:c_2dbackend_2escm",(void*)f_6073}, {"toplevel:c_2dbackend_2escm",(void*)C_backend_toplevel}, {"f_6088:c_2dbackend_2escm",(void*)f_6088}, {"f_6076:c_2dbackend_2escm",(void*)f_6076}, {"f_6079:c_2dbackend_2escm",(void*)f_6079}, {"f_3260:c_2dbackend_2escm",(void*)f_3260}, {"f_10890:c_2dbackend_2escm",(void*)f_10890}, {"f_4351:c_2dbackend_2escm",(void*)f_4351}, {"f_4354:c_2dbackend_2escm",(void*)f_4354}, {"f_4109:c_2dbackend_2escm",(void*)f_4109}, {"f_3214:c_2dbackend_2escm",(void*)f_3214}, {"f_4367:c_2dbackend_2escm",(void*)f_4367}, {"f_10898:c_2dbackend_2escm",(void*)f_10898}, {"f_5650:c_2dbackend_2escm",(void*)f_5650}, {"f_4371:c_2dbackend_2escm",(void*)f_4371}, {"f_2799:c_2dbackend_2escm",(void*)f_2799}, {"f_2796:c_2dbackend_2escm",(void*)f_2796}, {"f_5645:c_2dbackend_2escm",(void*)f_5645}, {"f_5648:c_2dbackend_2escm",(void*)f_5648}, {"f_4309:c_2dbackend_2escm",(void*)f_4309}, {"f_4300:c_2dbackend_2escm",(void*)f_4300}, {"f_6659:c_2dbackend_2escm",(void*)f_6659}, {"f_6656:c_2dbackend_2escm",(void*)f_6656}, {"f_5675:c_2dbackend_2escm",(void*)f_5675}, {"f_5830:c_2dbackend_2escm",(void*)f_5830}, {"f_5836:c_2dbackend_2escm",(void*)f_5836}, {"f_6653:c_2dbackend_2escm",(void*)f_6653}, {"f_8382:c_2dbackend_2escm",(void*)f_8382}, {"f_4333:c_2dbackend_2escm",(void*)f_4333}, {"f_5689:c_2dbackend_2escm",(void*)f_5689}, {"f_7482:c_2dbackend_2escm",(void*)f_7482}, {"f_7497:c_2dbackend_2escm",(void*)f_7497}, {"f_7495:c_2dbackend_2escm",(void*)f_7495}, {"f_6692:c_2dbackend_2escm",(void*)f_6692}, {"f_3297:c_2dbackend_2escm",(void*)f_3297}, {"f_3294:c_2dbackend_2escm",(void*)f_3294}, {"f_3291:c_2dbackend_2escm",(void*)f_3291}, {"f_7443:c_2dbackend_2escm",(void*)f_7443}, {"f_4383:c_2dbackend_2escm",(void*)f_4383}, {"f_4386:c_2dbackend_2escm",(void*)f_4386}, {"f_8361:c_2dbackend_2escm",(void*)f_8361}, {"f_6142:c_2dbackend_2escm",(void*)f_6142}, {"f_7451:c_2dbackend_2escm",(void*)f_7451}, {"f_6148:c_2dbackend_2escm",(void*)f_6148}, {"f_6145:c_2dbackend_2escm",(void*)f_6145}, {"f_6133:c_2dbackend_2escm",(void*)f_6133}, {"f_6130:c_2dbackend_2escm",(void*)f_6130}, {"f_10399:c_2dbackend_2escm",(void*)f_10399}, {"f_10396:c_2dbackend_2escm",(void*)f_10396}, {"f_8819:c_2dbackend_2escm",(void*)f_8819}, {"f_8817:c_2dbackend_2escm",(void*)f_8817}, {"f_10390:c_2dbackend_2escm",(void*)f_10390}, {"f_7461:c_2dbackend_2escm",(void*)f_7461}, {"f_6139:c_2dbackend_2escm",(void*)f_6139}, {"f_6136:c_2dbackend_2escm",(void*)f_6136}, {"f_6602:c_2dbackend_2escm",(void*)f_6602}, {"f_6678:c_2dbackend_2escm",(void*)f_6678}, {"f_7472:c_2dbackend_2escm",(void*)f_7472}, {"f_5617:c_2dbackend_2escm",(void*)f_5617}, {"f_5613:c_2dbackend_2escm",(void*)f_5613}, {"f_4297:c_2dbackend_2escm",(void*)f_4297}, {"f_3020:c_2dbackend_2escm",(void*)f_3020}, {"f_6675:c_2dbackend_2escm",(void*)f_6675}, {"f_7409:c_2dbackend_2escm",(void*)f_7409}, {"f_6628:c_2dbackend_2escm",(void*)f_6628}, {"f_7404:c_2dbackend_2escm",(void*)f_7404}, {"f_3051:c_2dbackend_2escm",(void*)f_3051}, {"f_6625:c_2dbackend_2escm",(void*)f_6625}, {"f_7419:c_2dbackend_2escm",(void*)f_7419}, {"f_6184:c_2dbackend_2escm",(void*)f_6184}, {"f_8012:c_2dbackend_2escm",(void*)f_8012}, {"f_4139:c_2dbackend_2escm",(void*)f_4139}, {"f_5638:c_2dbackend_2escm",(void*)f_5638}, {"f_6171:c_2dbackend_2escm",(void*)f_6171}, {"f_8003:c_2dbackend_2escm",(void*)f_8003}, {"f_8000:c_2dbackend_2escm",(void*)f_8000}, {"f_8006:c_2dbackend_2escm",(void*)f_8006}, {"f_8009:c_2dbackend_2escm",(void*)f_8009}, {"f_3057:c_2dbackend_2escm",(void*)f_3057}, {"f_3054:c_2dbackend_2escm",(void*)f_3054}, {"f_6164:c_2dbackend_2escm",(void*)f_6164}, {"f_4151:c_2dbackend_2escm",(void*)f_4151}, {"f_7433:c_2dbackend_2escm",(void*)f_7433}, {"f_7436:c_2dbackend_2escm",(void*)f_7436}, {"f_6160:c_2dbackend_2escm",(void*)f_6160}, {"f_10107:c_2dbackend_2escm",(void*)f_10107}, {"f_3048:c_2dbackend_2escm",(void*)f_3048}, {"f_4011:c_2dbackend_2escm",(void*)f_4011}, {"f_6151:c_2dbackend_2escm",(void*)f_6151}, {"f_4121:c_2dbackend_2escm",(void*)f_4121}, {"f_6154:c_2dbackend_2escm",(void*)f_6154}, {"f_4124:c_2dbackend_2escm",(void*)f_4124}, {"f_4127:c_2dbackend_2escm",(void*)f_4127}, {"f_10372:c_2dbackend_2escm",(void*)f_10372}, {"f_10375:c_2dbackend_2escm",(void*)f_10375}, {"f_10378:c_2dbackend_2escm",(void*)f_10378}, {"f_3077:c_2dbackend_2escm",(void*)f_3077}, {"f_6157:c_2dbackend_2escm",(void*)f_6157}, {"f_5374:c_2dbackend_2escm",(void*)f_5374}, {"f_5377:c_2dbackend_2escm",(void*)f_5377}, {"f_10366:c_2dbackend_2escm",(void*)f_10366}, {"f_3080:c_2dbackend_2escm",(void*)f_3080}, {"f_9227:c_2dbackend_2escm",(void*)f_9227}, {"f_9229:c_2dbackend_2escm",(void*)f_9229}, {"f_10314:c_2dbackend_2escm",(void*)f_10314}, {"f_10311:c_2dbackend_2escm",(void*)f_10311}, {"f_5394:c_2dbackend_2escm",(void*)f_5394}, {"f_4196:c_2dbackend_2escm",(void*)f_4196}, {"f_10308:c_2dbackend_2escm",(void*)f_10308}, {"f_10143:c_2dbackend_2escm",(void*)f_10143}, {"f_3086:c_2dbackend_2escm",(void*)f_3086}, {"f_3083:c_2dbackend_2escm",(void*)f_3083}, {"f_10302:c_2dbackend_2escm",(void*)f_10302}, {"f_10140:c_2dbackend_2escm",(void*)f_10140}, {"f_5380:c_2dbackend_2escm",(void*)f_5380}, {"f_10338:c_2dbackend_2escm",(void*)f_10338}, {"f_10137:c_2dbackend_2escm",(void*)f_10137}, {"f_10335:c_2dbackend_2escm",(void*)f_10335}, {"f_10131:c_2dbackend_2escm",(void*)f_10131}, {"f_10332:c_2dbackend_2escm",(void*)f_10332}, {"f_10326:c_2dbackend_2escm",(void*)f_10326}, {"f_8090:c_2dbackend_2escm",(void*)f_8090}, {"f_4189:c_2dbackend_2escm",(void*)f_4189}, {"f_8082:c_2dbackend_2escm",(void*)f_8082}, {"f_7994:c_2dbackend_2escm",(void*)f_7994}, {"f_6121:c_2dbackend_2escm",(void*)f_6121}, {"f_6124:c_2dbackend_2escm",(void*)f_6124}, {"f_6127:c_2dbackend_2escm",(void*)f_6127}, {"f_7997:c_2dbackend_2escm",(void*)f_7997}, {"f_5300:c_2dbackend_2escm",(void*)f_5300}, {"f_5303:c_2dbackend_2escm",(void*)f_5303}, {"f_6112:c_2dbackend_2escm",(void*)f_6112}, {"f_6115:c_2dbackend_2escm",(void*)f_6115}, {"f_6118:c_2dbackend_2escm",(void*)f_6118}, {"f_7976:c_2dbackend_2escm",(void*)f_7976}, {"f_7979:c_2dbackend_2escm",(void*)f_7979}, {"f_7973:c_2dbackend_2escm",(void*)f_7973}, {"f_7970:c_2dbackend_2escm",(void*)f_7970}, {"f_5321:c_2dbackend_2escm",(void*)f_5321}, {"f_5324:c_2dbackend_2escm",(void*)f_5324}, {"f_7985:c_2dbackend_2escm",(void*)f_7985}, {"f_7982:c_2dbackend_2escm",(void*)f_7982}, {"f_5352:c_2dbackend_2escm",(void*)f_5352}, {"f_5355:c_2dbackend_2escm",(void*)f_5355}, {"f_5358:c_2dbackend_2escm",(void*)f_5358}, {"f_7167:c_2dbackend_2escm",(void*)f_7167}, {"f_7164:c_2dbackend_2escm",(void*)f_7164}, {"f_7160:c_2dbackend_2escm",(void*)f_7160}, {"f_5349:c_2dbackend_2escm",(void*)f_5349}, {"f_7135:c_2dbackend_2escm",(void*)f_7135}, {"f_4021:c_2dbackend_2escm",(void*)f_4021}, {"f_7145:c_2dbackend_2escm",(void*)f_7145}, {"f_7194:c_2dbackend_2escm",(void*)f_7194}, {"f_7197:c_2dbackend_2escm",(void*)f_7197}, {"f_7191:c_2dbackend_2escm",(void*)f_7191}, {"f_8253:c_2dbackend_2escm",(void*)f_8253}, {"f_4053:c_2dbackend_2escm",(void*)f_4053}, {"f_4056:c_2dbackend_2escm",(void*)f_4056}, {"f_6989:c_2dbackend_2escm",(void*)f_6989}, {"f_4059:c_2dbackend_2escm",(void*)f_4059}, {"f_6446:c_2dbackend_2escm",(void*)f_6446}, {"f_6190:c_2dbackend_2escm",(void*)f_6190}, {"f_6193:c_2dbackend_2escm",(void*)f_6193}, {"f_3944:c_2dbackend_2escm",(void*)f_3944}, {"f_3945:c_2dbackend_2escm",(void*)f_3945}, {"f_6979:c_2dbackend_2escm",(void*)f_6979}, {"f_3949:c_2dbackend_2escm",(void*)f_3949}, {"f_4069:c_2dbackend_2escm",(void*)f_4069}, {"f_3941:c_2dbackend_2escm",(void*)f_3941}, {"f_6103:c_2dbackend_2escm",(void*)f_6103}, {"f_6100:c_2dbackend_2escm",(void*)f_6100}, {"f_6106:c_2dbackend_2escm",(void*)f_6106}, {"f_6109:c_2dbackend_2escm",(void*)f_6109}, {"f_7158:c_2dbackend_2escm",(void*)f_7158}, {"f_6951:c_2dbackend_2escm",(void*)f_6951}, {"f_3969:c_2dbackend_2escm",(void*)f_3969}, {"f_3966:c_2dbackend_2escm",(void*)f_3966}, {"f_8560:c_2dbackend_2escm",(void*)f_8560}, {"f_6895:c_2dbackend_2escm",(void*)f_6895}, {"f_6898:c_2dbackend_2escm",(void*)f_6898}, {"f_6892:c_2dbackend_2escm",(void*)f_6892}, {"f_4093:c_2dbackend_2escm",(void*)f_4093}, {"f_3952:c_2dbackend_2escm",(void*)f_3952}, {"f_3958:c_2dbackend_2escm",(void*)f_3958}, {"f_4099:c_2dbackend_2escm",(void*)f_4099}, {"f_3423:c_2dbackend_2escm",(void*)f_3423}, {"f_3426:c_2dbackend_2escm",(void*)f_3426}, {"f_3442:c_2dbackend_2escm",(void*)f_3442}, {"f_8588:c_2dbackend_2escm",(void*)f_8588}, {"f_3984:c_2dbackend_2escm",(void*)f_3984}, {"f_4508:c_2dbackend_2escm",(void*)f_4508}, {"f_4505:c_2dbackend_2escm",(void*)f_4505}, {"f_3417:c_2dbackend_2escm",(void*)f_3417}, {"f_3430:c_2dbackend_2escm",(void*)f_3430}, {"f_3974:c_2dbackend_2escm",(void*)f_3974}, {"f_8577:c_2dbackend_2escm",(void*)f_8577}, {"f_8571:c_2dbackend_2escm",(void*)f_8571}, {"f_4511:c_2dbackend_2escm",(void*)f_4511}, {"f_4522:c_2dbackend_2escm",(void*)f_4522}, {"f_3439:c_2dbackend_2escm",(void*)f_3439}, {"f_5465:c_2dbackend_2escm",(void*)f_5465}, {"f_5462:c_2dbackend_2escm",(void*)f_5462}, {"f_5468:c_2dbackend_2escm",(void*)f_5468}, {"f_10652:c_2dbackend_2escm",(void*)f_10652}, {"f_9858:c_2dbackend_2escm",(void*)f_9858}, {"f_8594:c_2dbackend_2escm",(void*)f_8594}, {"f_4535:c_2dbackend_2escm",(void*)f_4535}, {"f_4532:c_2dbackend_2escm",(void*)f_4532}, {"f_3466:c_2dbackend_2escm",(void*)f_3466}, {"f_3469:c_2dbackend_2escm",(void*)f_3469}, {"f_5453:c_2dbackend_2escm",(void*)f_5453}, {"f_5456:c_2dbackend_2escm",(void*)f_5456}, {"f_5459:c_2dbackend_2escm",(void*)f_5459}, {"f_10643:c_2dbackend_2escm",(void*)f_10643}, {"f_3480:c_2dbackend_2escm",(void*)f_3480}, {"f_4545:c_2dbackend_2escm",(void*)f_4545}, {"f_4548:c_2dbackend_2escm",(void*)f_4548}, {"f_5489:c_2dbackend_2escm",(void*)f_5489}, {"f_5486:c_2dbackend_2escm",(void*)f_5486}, {"f_5483:c_2dbackend_2escm",(void*)f_5483}, {"f_5480:c_2dbackend_2escm",(void*)f_5480}, {"f_3473:c_2dbackend_2escm",(void*)f_3473}, {"f_3472:c_2dbackend_2escm",(void*)f_3472}, {"f_6415:c_2dbackend_2escm",(void*)f_6415}, {"f_6412:c_2dbackend_2escm",(void*)f_6412}, {"f_4551:c_2dbackend_2escm",(void*)f_4551}, {"f_4554:c_2dbackend_2escm",(void*)f_4554}, {"f_3486:c_2dbackend_2escm",(void*)f_3486}, {"f_10092:c_2dbackend_2escm",(void*)f_10092}, {"f_5477:c_2dbackend_2escm",(void*)f_5477}, {"f_3420:c_2dbackend_2escm",(void*)f_3420}, {"f_6418:c_2dbackend_2escm",(void*)f_6418}, {"f_3477:c_2dbackend_2escm",(void*)f_3477}, {"f_3494:c_2dbackend_2escm",(void*)f_3494}, {"f_6430:c_2dbackend_2escm",(void*)f_6430}, {"f_5499:c_2dbackend_2escm",(void*)f_5499}, {"f_9860:c_2dbackend_2escm",(void*)f_9860}, {"f_5492:c_2dbackend_2escm",(void*)f_5492}, {"f_3797:c_2dbackend_2escm",(void*)f_3797}, {"f_3791:c_2dbackend_2escm",(void*)f_3791}, {"f_8502:c_2dbackend_2escm",(void*)f_8502}, {"f_6421:c_2dbackend_2escm",(void*)f_6421}, {"f_4586:c_2dbackend_2escm",(void*)f_4586}, {"f_4589:c_2dbackend_2escm",(void*)f_4589}, {"f_3497:c_2dbackend_2escm",(void*)f_3497}, {"f_3788:c_2dbackend_2escm",(void*)f_3788}, {"f_3785:c_2dbackend_2escm",(void*)f_3785}, {"f_3782:c_2dbackend_2escm",(void*)f_3782}, {"f_8521:c_2dbackend_2escm",(void*)f_8521}, {"f_7124:c_2dbackend_2escm",(void*)f_7124}, {"f_7121:c_2dbackend_2escm",(void*)f_7121}, {"f_8517:c_2dbackend_2escm",(void*)f_8517}, {"f_3755:c_2dbackend_2escm",(void*)f_3755}, {"f_10086:c_2dbackend_2escm",(void*)f_10086}, {"f_7604:c_2dbackend_2escm",(void*)f_7604}, {"f_10089:c_2dbackend_2escm",(void*)f_10089}, {"f_5408:c_2dbackend_2escm",(void*)f_5408}, {"f_3748:c_2dbackend_2escm",(void*)f_3748}, {"f_7102:c_2dbackend_2escm",(void*)f_7102}, {"f_3740:c_2dbackend_2escm",(void*)f_3740}, {"f_10011:c_2dbackend_2escm",(void*)f_10011}, {"f_10029:c_2dbackend_2escm",(void*)f_10029}, {"f_10041:c_2dbackend_2escm",(void*)f_10041}, {"f_5423:c_2dbackend_2escm",(void*)f_5423}, {"f_5142:c_2dbackend_2escm",(void*)f_5142}, {"f_10014:c_2dbackend_2escm",(void*)f_10014}, {"f_5410:c_2dbackend_2escm",(void*)f_5410}, {"f_10932:c_2dbackend_2escm",(void*)f_10932}, {"f_10062:c_2dbackend_2escm",(void*)f_10062}, {"f_10934:c_2dbackend_2escm",(void*)f_10934}, {"f_5449:c_2dbackend_2escm",(void*)f_5449}, {"f_2587:c_2dbackend_2escm",(void*)f_2587}, {"f_7115:c_2dbackend_2escm",(void*)f_7115}, {"f_10967:c_2dbackend_2escm",(void*)f_10967}, {"f_10964:c_2dbackend_2escm",(void*)f_10964}, {"f_5433:c_2dbackend_2escm",(void*)f_5433}, {"f_5169:c_2dbackend_2escm",(void*)f_5169}, {"f_10402:c_2dbackend_2escm",(void*)f_10402}, {"f_5152:c_2dbackend_2escm",(void*)f_5152}, {"f_10065:c_2dbackend_2escm",(void*)f_10065}, {"f_10068:c_2dbackend_2escm",(void*)f_10068}, {"f_8490:c_2dbackend_2escm",(void*)f_8490}, {"f_10958:c_2dbackend_2escm",(void*)f_10958}, {"f_4200:c_2dbackend_2escm",(void*)f_4200}, {"f_4401:c_2dbackend_2escm",(void*)f_4401}, {"f_10080:c_2dbackend_2escm",(void*)f_10080}, {"f_4204:c_2dbackend_2escm",(void*)f_4204}, {"f_10414:c_2dbackend_2escm",(void*)f_10414}, {"f_6901:c_2dbackend_2escm",(void*)f_6901}, {"f_6906:c_2dbackend_2escm",(void*)f_6906}, {"f_2564:c_2dbackend_2escm",(void*)f_2564}, {"f_10056:c_2dbackend_2escm",(void*)f_10056}, {"f_10983:c_2dbackend_2escm",(void*)f_10983}, {"f_10987:c_2dbackend_2escm",(void*)f_10987}, {"f_7176:c_2dbackend_2escm",(void*)f_7176}, {"f_7179:c_2dbackend_2escm",(void*)f_7179}, {"f_7170:c_2dbackend_2escm",(void*)f_7170}, {"f_10420:c_2dbackend_2escm",(void*)f_10420}, {"f_5179:c_2dbackend_2escm",(void*)f_5179}, {"f_2574:c_2dbackend_2escm",(void*)f_2574}, {"f_7182:c_2dbackend_2escm",(void*)f_7182}, {"f_10973:c_2dbackend_2escm",(void*)f_10973}, {"f_4422:c_2dbackend_2escm",(void*)f_4422}, {"f_7185:c_2dbackend_2escm",(void*)f_7185}, {"f_10976:c_2dbackend_2escm",(void*)f_10976}, {"f_7188:c_2dbackend_2escm",(void*)f_7188}, {"f_10979:c_2dbackend_2escm",(void*)f_10979}, {"f_10970:c_2dbackend_2escm",(void*)f_10970}, {"f_2544:c_2dbackend_2escm",(void*)f_2544}, {"f_2541:c_2dbackend_2escm",(void*)f_2541}, {"f_4433:c_2dbackend_2escm",(void*)f_4433}, {"f_10426:c_2dbackend_2escm",(void*)f_10426}, {"f_10423:c_2dbackend_2escm",(void*)f_10423}, {"f_4441:c_2dbackend_2escm",(void*)f_4441}, {"f_10991:c_2dbackend_2escm",(void*)f_10991}, {"f_6940:c_2dbackend_2escm",(void*)f_6940}, {"f_6942:c_2dbackend_2escm",(void*)f_6942}, {"f_6932:c_2dbackend_2escm",(void*)f_6932}, {"f_4261:c_2dbackend_2escm",(void*)f_4261}, {"f_4463:c_2dbackend_2escm",(void*)f_4463}, {"f_4264:c_2dbackend_2escm",(void*)f_4264}, {"f_4466:c_2dbackend_2escm",(void*)f_4466}, {"f_6910:c_2dbackend_2escm",(void*)f_6910}, {"f_4486:c_2dbackend_2escm",(void*)f_4486}, {"f_4489:c_2dbackend_2escm",(void*)f_4489}, {"f_2870:c_2dbackend_2escm",(void*)f_2870}, {"f_4413:c_2dbackend_2escm",(void*)f_4413}, {"f_4416:c_2dbackend_2escm",(void*)f_4416}, {"f_4419:c_2dbackend_2escm",(void*)f_4419}, {"f_2867:c_2dbackend_2escm",(void*)f_2867}, {"f_4226:c_2dbackend_2escm",(void*)f_4226}, {"f_8796:c_2dbackend_2escm",(void*)f_8796}, {"f_4223:c_2dbackend_2escm",(void*)f_4223}, {"f_8792:c_2dbackend_2escm",(void*)f_8792}, {"f_5121:c_2dbackend_2escm",(void*)f_5121}, {"f_5124:c_2dbackend_2escm",(void*)f_5124}, {"f_5127:c_2dbackend_2escm",(void*)f_5127}, {"f_2854:c_2dbackend_2escm",(void*)f_2854}, {"f_10928:c_2dbackend_2escm",(void*)f_10928}, {"f_3773:c_2dbackend_2escm",(void*)f_3773}, {"f_3776:c_2dbackend_2escm",(void*)f_3776}, {"f_3779:c_2dbackend_2escm",(void*)f_3779}, {"f_10920:c_2dbackend_2escm",(void*)f_10920}, {"f_5112:c_2dbackend_2escm",(void*)f_5112}, {"f_5118:c_2dbackend_2escm",(void*)f_5118}, {"f_4245:c_2dbackend_2escm",(void*)f_4245}, {"f_4242:c_2dbackend_2escm",(void*)f_4242}, {"f_3762:c_2dbackend_2escm",(void*)f_3762}, {"f_3766:c_2dbackend_2escm",(void*)f_3766}, {"f_3716:c_2dbackend_2escm",(void*)f_3716}, {"f_7362:c_2dbackend_2escm",(void*)f_7362}, {"f_2805:c_2dbackend_2escm",(void*)f_2805}, {"f_2802:c_2dbackend_2escm",(void*)f_2802}, {"f_3709:c_2dbackend_2escm",(void*)f_3709}, {"f_4397:c_2dbackend_2escm",(void*)f_4397}, {"f_2811:c_2dbackend_2escm",(void*)f_2811}, {"f_2808:c_2dbackend_2escm",(void*)f_2808}, {"f_3736:c_2dbackend_2escm",(void*)f_3736}, {"f_5249:c_2dbackend_2escm",(void*)f_5249}, {"f_5245:c_2dbackend_2escm",(void*)f_5245}, {"f_2864:c_2dbackend_2escm",(void*)f_2864}, {"f_3723:c_2dbackend_2escm",(void*)f_3723}, {"f_6244:c_2dbackend_2escm",(void*)f_6244}, {"f_6241:c_2dbackend_2escm",(void*)f_6241}, {"f_7352:c_2dbackend_2escm",(void*)f_7352}, {"f_7359:c_2dbackend_2escm",(void*)f_7359}, {"f_5232:c_2dbackend_2escm",(void*)f_5232}, {"f_5267:c_2dbackend_2escm",(void*)f_5267}, {"f_5261:c_2dbackend_2escm",(void*)f_5261}, {"f_5264:c_2dbackend_2escm",(void*)f_5264}, {"f_6261:c_2dbackend_2escm",(void*)f_6261}, {"f_7334:c_2dbackend_2escm",(void*)f_7334}, {"f_7330:c_2dbackend_2escm",(void*)f_7330}, {"f_5258:c_2dbackend_2escm",(void*)f_5258}, {"f_5254:c_2dbackend_2escm",(void*)f_5254}, {"f_7305:c_2dbackend_2escm",(void*)f_7305}, {"f_7302:c_2dbackend_2escm",(void*)f_7302}, {"f_5285:c_2dbackend_2escm",(void*)f_5285}, {"f_5282:c_2dbackend_2escm",(void*)f_5282}, {"f_5288:c_2dbackend_2escm",(void*)f_5288}, {"f_5960:c_2dbackend_2escm",(void*)f_5960}, {"f_5273:c_2dbackend_2escm",(void*)f_5273}, {"f_5279:c_2dbackend_2escm",(void*)f_5279}, {"f_3810:c_2dbackend_2escm",(void*)f_3810}, {"f_5276:c_2dbackend_2escm",(void*)f_5276}, {"f_5270:c_2dbackend_2escm",(void*)f_5270}, {"f_9524:c_2dbackend_2escm",(void*)f_9524}, {"f_6271:c_2dbackend_2escm",(void*)f_6271}, {"f_2535:c_2dbackend_2escm",(void*)f_2535}, {"f_2538:c_2dbackend_2escm",(void*)f_2538}, {"f_5951:c_2dbackend_2escm",(void*)f_5951}, {"f_3815:c_2dbackend_2escm",(void*)f_3815}, {"f_5985:c_2dbackend_2escm",(void*)f_5985}, {"f_4914:c_2dbackend_2escm",(void*)f_4914}, {"f_4911:c_2dbackend_2escm",(void*)f_4911}, {"f_4917:c_2dbackend_2escm",(void*)f_4917}, {"f_5975:c_2dbackend_2escm",(void*)f_5975}, {"f_5979:c_2dbackend_2escm",(void*)f_5979}, {"f_5102:c_2dbackend_2escm",(void*)f_5102}, {"f_5995:c_2dbackend_2escm",(void*)f_5995}, {"f_5992:c_2dbackend_2escm",(void*)f_5992}, {"f_8773:c_2dbackend_2escm",(void*)f_8773}, {"f_9601:c_2dbackend_2escm",(void*)f_9601}, {"f_5222:c_2dbackend_2escm",(void*)f_5222}, {"f_6226:c_2dbackend_2escm",(void*)f_6226}, {"f_8739:c_2dbackend_2escm",(void*)f_8739}, {"f_6212:c_2dbackend_2escm",(void*)f_6212}, {"f_3888:c_2dbackend_2escm",(void*)f_3888}, {"f_3881:c_2dbackend_2escm",(void*)f_3881}, {"f_8763:c_2dbackend_2escm",(void*)f_8763}, {"f_8756:c_2dbackend_2escm",(void*)f_8756}, {"f_4988:c_2dbackend_2escm",(void*)f_4988}, {"f_4984:c_2dbackend_2escm",(void*)f_4984}, {"f_4980:c_2dbackend_2escm",(void*)f_4980}, {"f_7062:c_2dbackend_2escm",(void*)f_7062}, {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| map 4 S| sprintf 21 S| for-each 18 o|eliminated procedure checks: 132 o|specializations: o| 1 (number->string fixnum) o| 1 (cdddr (pair * (pair * pair))) o| 3 (>= fixnum fixnum) o| 1 (> fixnum fixnum) o| 2 (memq * list) o| 8 (= fixnum fixnum) o| 2 (char=? char char) o| 1 (char>? char char) o| 1 (charchar 9 o| string 5 o| list? 3 o| fx> o| fx>= 3 o| string=? o| string-set! 3 o| fx/ o| void 2 o| boolean? o| char? 2 o| fixnum? 3 o| string? 2 o| number? 2 o| symbol? 7 o| ##sys#immediate? 4 o| ##sys#generic-structure? o| ##sys#size 5 o| apply 9 o| string-length 3 o| arithmetic-shift 8 o| string-ref 3 o| bitwise-and 8 o| - 5 o| cons 9 o| ##sys#setslot 4 o| < 4 o| >= 8 o| null? 6 o| cddr 3 o| cdr 5 o| length 10 o| cdddr o| zero? 14 o| not 15 o| third 7 o| fourth 4 o| ##sys#check-list 12 o| + 23 o| > 5 o| add1 21 o| sub1 11 o| car 38 o| cadr 21 o| caddr 2 o| vector? 6 o| vector-ref 13 o| first 37 o| char->integer 4 o| second 15 o| pair? 42 o| eq? 315 o| ##sys#slot 76 o|contracted procedure: k2569 o|contracted procedure: k2579 o|contracted procedure: k2583 o|contracted procedure: k2551 o|contracted procedure: k2606 o|contracted procedure: k2616 o|contracted procedure: k2620 o|contracted procedure: k2656 o|contracted procedure: k2664 o|contracted procedure: k2672 o|contracted procedure: k2678 o|contracted procedure: k2681 o|contracted procedure: k2687 o|contracted procedure: k2697 o|contracted procedure: k2703 o|contracted procedure: k2714 o|contracted procedure: k2710 o|contracted procedure: k2720 o|contracted procedure: k2729 o|contracted procedure: k2736 o|contracted procedure: k2742 o|contracted procedure: k2764 o|contracted procedure: k2767 o|contracted procedure: k2773 o|contracted procedure: k2780 o|contracted procedure: k2791 o|contracted procedure: k2816 o|contracted procedure: k2820 o|contracted procedure: k2824 o|contracted procedure: k2830 o|contracted procedure: k2837 o|contracted procedure: k2843 o|contracted procedure: k2850 o|contracted procedure: k2859 o|contracted procedure: k2877 o|contracted procedure: k2881 o|contracted procedure: k2885 o|contracted procedure: k2892 o|contracted procedure: k2898 o|contracted procedure: k2901 o|contracted procedure: k2917 o|contracted procedure: k2921 o|contracted procedure: k2927 o|contracted procedure: k2944 o|contracted procedure: k2940 o|contracted procedure: k2948 o|contracted procedure: k2954 o|contracted procedure: k2967 o|contracted procedure: k2973 o|contracted procedure: k2992 o|contracted procedure: k2996 o|contracted procedure: k3000 o|contracted procedure: k3006 o|contracted procedure: k3025 o|contracted procedure: k3033 o|contracted procedure: k3029 o|contracted procedure: k3037 o|contracted procedure: k3043 o|contracted procedure: k3062 o|contracted procedure: k3066 o|contracted procedure: k3072 o|contracted procedure: k3091 o|contracted procedure: k3095 o|contracted procedure: k3101 o|contracted procedure: k3104 o|contracted procedure: k3124 o|contracted procedure: k3134 o|contracted procedure: k3168 o|contracted procedure: k3143 o|contracted procedure: k3153 o|contracted procedure: k3157 o|contracted procedure: k3161 o|contracted procedure: k3165 o|contracted procedure: k3177 o|contracted procedure: k3190 o|contracted procedure: k3196 o|contracted procedure: k3203 o|contracted procedure: k3209 o|contracted procedure: k3219 o|contracted procedure: k3223 o|contracted procedure: k3229 o|contracted procedure: k3232 o|contracted procedure: k3235 o|contracted procedure: k3238 o|contracted procedure: k3262 o|contracted procedure: k3277 o|contracted procedure: k3280 o|contracted procedure: k3283 o|contracted procedure: k3286 o|contracted procedure: k3302 o|contracted procedure: k3322 o|contracted procedure: k3325 o|contracted procedure: k3328 o|contracted procedure: k3331 o|contracted procedure: k3347 o|contracted procedure: k3368 o|contracted procedure: k3382 o|contracted procedure: k3391 o|contracted procedure: k3394 o|contracted procedure: k3397 o|contracted procedure: k3400 o|contracted procedure: k3403 o|contracted procedure: k3406 o|contracted procedure: k3409 o|contracted procedure: k3412 o|contracted procedure: k3849 o|contracted procedure: k3434 o|contracted procedure: k3448 o|contracted procedure: k3455 o|contracted procedure: k3538 o|contracted procedure: k3513 o|contracted procedure: k3523 o|contracted procedure: k3527 o|contracted procedure: k3531 o|contracted procedure: k3535 o|contracted procedure: k3575 o|contracted procedure: k3550 o|contracted procedure: k3560 o|contracted procedure: k3564 o|contracted procedure: k3568 o|contracted procedure: k3572 o|contracted procedure: k3582 o|contracted procedure: k3648 o|contracted procedure: k3669 o|contracted procedure: k3672 o|contracted procedure: k3675 o|contracted procedure: k3678 o|contracted procedure: k3742 o|contracted procedure: k3840 o|contracted procedure: k3816 o|contracted procedure: k3906 o|contracted procedure: k3899 o|contracted procedure: k3918 o|contracted procedure: k3921 o|contracted procedure: k3924 o|contracted procedure: k3927 o|contracted procedure: k3930 o|contracted procedure: k3933 o|contracted procedure: k4004 o|contracted procedure: k3979 o|contracted procedure: k3989 o|contracted procedure: k3993 o|contracted procedure: k3997 o|contracted procedure: k4001 o|contracted procedure: k4041 o|contracted procedure: k4016 o|contracted procedure: k4026 o|contracted procedure: k4030 o|contracted procedure: k4034 o|contracted procedure: k4038 o|contracted procedure: k4048 o|contracted procedure: k4073 o|contracted procedure: k4076 o|contracted procedure: k4079 o|contracted procedure: k4082 o|contracted procedure: k4085 o|contracted procedure: k4088 o|contracted procedure: k4094 o|contracted procedure: k4206 o|contracted procedure: k4100 o|contracted procedure: k4103 o|contracted procedure: k4131 o|contracted procedure: k4143 o|contracted procedure: k4155 o|contracted procedure: k4158 o|contracted procedure: k4212 o|contracted procedure: k4215 o|contracted procedure: k4218 o|contracted procedure: k4231 o|contracted procedure: k4237 o|contracted procedure: k4250 o|contracted procedure: k4256 o|contracted procedure: k4269 o|contracted procedure: k4275 o|contracted procedure: k4282 o|contracted procedure: k4292 o|contracted procedure: k4304 o|contracted procedure: k4314 o|contracted procedure: k4318 o|contracted procedure: k4324 o|contracted procedure: k4337 o|contracted procedure: k4343 o|contracted procedure: k4346 o|contracted procedure: k4359 o|contracted procedure: k4375 o|contracted procedure: k4378 o|contracted procedure: k4391 o|contracted procedure: k4405 o|contracted procedure: k4408 o|contracted procedure: k4427 o|contracted procedure: k4435 o|contracted procedure: k4445 o|contracted procedure: k4452 o|contracted procedure: k4458 o|contracted procedure: k4471 o|contracted procedure: k4475 o|contracted procedure: k4481 o|contracted procedure: k4494 o|contracted procedure: k4500 o|contracted procedure: k4516 o|contracted procedure: k4527 o|contracted procedure: k4540 o|contracted procedure: k4559 o|contracted procedure: k4563 o|contracted procedure: k4567 o|contracted procedure: k4571 o|contracted procedure: k4575 o|contracted procedure: k4581 o|contracted procedure: k4606 o|contracted procedure: k4610 o|contracted procedure: k4614 o|contracted procedure: k4626 o|contracted procedure: k4719 o|contracted procedure: k4729 o|contracted procedure: k471911826 o|contracted procedure: k4735 o|contracted procedure: k4738 o|contracted procedure: k4760 o|contracted procedure: k4769 o|contracted procedure: k4785 o|contracted procedure: k4791 o|contracted procedure: k4797 o|contracted procedure: k4809 o|contracted procedure: k4836 o|contracted procedure: k4868 o|contracted procedure: k4882 o|contracted procedure: k4885 o|contracted procedure: k4888 o|contracted procedure: k4891 o|contracted procedure: k4894 o|contracted procedure: k4924 o|contracted procedure: k4944 o|contracted procedure: k4954 o|contracted procedure: k4958 o|contracted procedure: k4974 o|contracted procedure: k4998 o|contracted procedure: k5018 o|contracted procedure: k5021 o|contracted procedure: k5024 o|contracted procedure: k5032 o|contracted procedure: k5040 o|contracted procedure: k5051 o|contracted procedure: k5075 o|contracted procedure: k5086 o|contracted procedure: k5107 o|contracted procedure: k5113 o|contracted procedure: k5132 o|contracted procedure: k5165 o|contracted procedure: k5161 o|contracted procedure: k5138 o|contracted procedure: k5147 o|contracted procedure: k5157 o|contracted procedure: k5174 o|contracted procedure: k5184 o|contracted procedure: k5192 o|contracted procedure: k5188 o|contracted procedure: k5196 o|contracted procedure: k5207 o|contracted procedure: k5200 o|contracted procedure: k5211 o|contracted procedure: k5214 o|contracted procedure: k5227 o|contracted procedure: k5237 o|contracted procedure: k5241 o|propagated global variable: g646648 ##compiler#used-units o|contracted procedure: k5328 o|contracted procedure: k5338 o|contracted procedure: k5388 o|contracted procedure: k5396 o|contracted procedure: k5472 o|contracted procedure: k5419 o|contracted procedure: k5428 o|contracted procedure: k5438 o|contracted procedure: k5442 o|contracted procedure: k5508 o|contracted procedure: k5530 o|contracted procedure: k5540 o|contracted procedure: k5546 o|contracted procedure: k5586 o|contracted procedure: k5592 o|contracted procedure: k5598 o|contracted procedure: k5604 o|contracted procedure: k5625 o|contracted procedure: k5632 o|contracted procedure: k5640 o|contracted procedure: k5655 o|contracted procedure: k5658 o|contracted procedure: k5661 o|contracted procedure: k5669 o|contracted procedure: k5677 o|contracted procedure: k5693 o|contracted procedure: k5716 o|contracted procedure: k5722 o|contracted procedure: k5725 o|contracted procedure: k5732 o|contracted procedure: k5741 o|contracted procedure: k5748 o|contracted procedure: k5752 o|contracted procedure: k5760 o|contracted procedure: k5895 o|contracted procedure: k5787 o|propagated global variable: r5896 ##sys#undefined-value o|contracted procedure: k5796 o|contracted procedure: k5809 o|contracted procedure: k5816 o|contracted procedure: k5822 o|contracted procedure: k5825 o|contracted procedure: k5831 o|contracted procedure: k5843 o|contracted procedure: k5891 o|contracted procedure: k5849 o|contracted procedure: k5858 o|contracted procedure: k5884 o|contracted procedure: k5898 o|contracted procedure: k5911 o|contracted procedure: k5914 o|contracted procedure: k5929 o|contracted procedure: k5935 o|contracted procedure: k5965 o|contracted procedure: k5969 o|contracted procedure: k5981 o|contracted procedure: k5987 o|contracted procedure: k6080 o|contracted procedure: k6173 o|contracted procedure: k6292 o|contracted procedure: k6179 o|contracted procedure: k6198 o|contracted procedure: k6207 o|contracted procedure: k6217 o|contracted procedure: k6221 o|contracted procedure: k6230 o|contracted procedure: k6236 o|contracted procedure: k6254 o|contracted procedure: k6266 o|contracted procedure: k6276 o|contracted procedure: k6295 o|contracted procedure: k6336 o|contracted procedure: k6404 o|contracted procedure: k6450 o|contracted procedure: k6456 o|contracted procedure: k6522 o|contracted procedure: k6534 o|contracted procedure: k6544 o|contracted procedure: k6548 o|contracted procedure: k6519 o|contracted procedure: k6002 o|contracted procedure: k6008 o|contracted procedure: k6014 o|contracted procedure: k6020 o|contracted procedure: k6026 o|contracted procedure: k6032 o|contracted procedure: k6561 o|contracted procedure: k6571 o|contracted procedure: k6575 o|contracted procedure: k6579 o|contracted procedure: k6585 o|contracted procedure: k6597 o|contracted procedure: k6607 o|contracted procedure: k6610 o|contracted procedure: k6632 o|contracted procedure: k6642 o|contracted procedure: k6686 o|contracted procedure: k6700 o|contracted procedure: k6707 o|contracted procedure: k6769 o|contracted procedure: k6838 o|contracted procedure: k6853 o|contracted procedure: k6863 o|contracted procedure: k6867 o|contracted procedure: k6796 o|contracted procedure: k6799 o|contracted procedure: k6814 o|contracted procedure: k6824 o|contracted procedure: k6828 o|contracted procedure: k6832 o|contracted procedure: k6877 o|contracted procedure: k6881 o|contracted procedure: k6914 o|contracted procedure: k6934 o|contracted procedure: k6944 o|contracted procedure: k6956 o|contracted procedure: k6962 o|contracted procedure: k6972 o|contracted procedure: k697211877 o|contracted procedure: k7022 o|contracted procedure: k7009 o|contracted procedure: k7018 o|contracted procedure: k7014 o|contracted procedure: k7085 o|contracted procedure: k7097 o|contracted procedure: k7107 o|contracted procedure: k7111 o|contracted procedure: k7065 o|contracted procedure: k7068 o|contracted procedure: k7071 o|contracted procedure: k7078 o|contracted procedure: k7128 o|contracted procedure: k7140 o|contracted procedure: k7150 o|contracted procedure: k7154 o|contracted procedure: k7171 o|contracted procedure: k7255 o|contracted procedure: k7321 o|contracted procedure: k7345 o|contracted procedure: k7367 o|contracted procedure: k7371 o|contracted procedure: k7375 o|contracted procedure: k7379 o|contracted procedure: k7383 o|contracted procedure: k7387 o|contracted procedure: k7390 o|contracted procedure: k7396 o|contracted procedure: k7414 o|contracted procedure: k7424 o|contracted procedure: k7428 o|contracted procedure: k7445 o|contracted procedure: k7465 o|contracted procedure: k7477 o|contracted procedure: k7487 o|contracted procedure: k7491 o|contracted procedure: k7511 o|contracted procedure: k7523 o|contracted procedure: k7532 o|contracted procedure: k7544 o|contracted procedure: k7556 o|contracted procedure: k7580 o|contracted procedure: k7577 o|contracted procedure: k7592 o|contracted procedure: k7599 o|contracted procedure: k7611 o|contracted procedure: k7618 o|contracted procedure: k7623 o|contracted procedure: k7629 o|contracted procedure: k7635 o|contracted procedure: k7641 o|contracted procedure: k7647 o|contracted procedure: k7653 o|contracted procedure: k7659 o|contracted procedure: k7686 o|contracted procedure: k7692 o|contracted procedure: k7698 o|contracted procedure: k7704 o|contracted procedure: k7723 o|contracted procedure: k7729 o|contracted procedure: k7735 o|contracted procedure: k7754 o|contracted procedure: k7760 o|contracted procedure: k7766 o|contracted procedure: k7772 o|contracted procedure: k7778 o|contracted procedure: k7784 o|contracted procedure: k7790 o|contracted procedure: k7796 o|contracted procedure: k7802 o|contracted procedure: k7808 o|contracted procedure: k7814 o|contracted procedure: k7820 o|contracted procedure: k7826 o|contracted procedure: k7832 o|contracted procedure: k7873 o|contracted procedure: k7879 o|contracted procedure: k7885 o|contracted procedure: k7891 o|contracted procedure: k7897 o|contracted procedure: k7903 o|contracted procedure: k7909 o|contracted procedure: k7915 o|contracted procedure: k7921 o|contracted procedure: k7927 o|contracted procedure: k7933 o|contracted procedure: k8016 o|contracted procedure: k8022 o|contracted procedure: k8063 o|contracted procedure: k8038 o|contracted procedure: k8048 o|contracted procedure: k8052 o|contracted procedure: k8056 o|contracted procedure: k8060 o|contracted procedure: k8073 o|contracted procedure: k8083 o|contracted procedure: k8095 o|contracted procedure: k8105 o|contracted procedure: k8109 o|contracted procedure: k8127 o|contracted procedure: k8151 o|contracted procedure: k8164 o|contracted procedure: k8168 o|contracted procedure: k8191 o|contracted procedure: k8200 o|contracted procedure: k8203 o|contracted procedure: k8212 o|contracted procedure: k8215 o|contracted procedure: k8224 o|contracted procedure: k8227 o|contracted procedure: k8236 o|contracted procedure: k8239 o|contracted procedure: k8248 o|contracted procedure: k8260 o|contracted procedure: k8269 o|contracted procedure: k8272 o|contracted procedure: k8281 o|contracted procedure: k8290 o|contracted procedure: k8299 o|contracted procedure: k8308 o|contracted procedure: k8317 o|contracted procedure: k8326 o|contracted procedure: k8335 o|contracted procedure: k8344 o|contracted procedure: k8347 o|contracted procedure: k8356 o|contracted procedure: k8368 o|contracted procedure: k8371 o|contracted procedure: k8377 o|contracted procedure: k8389 o|contracted procedure: k8392 o|contracted procedure: k8401 o|contracted procedure: k8404 o|contracted procedure: k8413 o|contracted procedure: k8416 o|contracted procedure: k8425 o|contracted procedure: k8428 o|contracted procedure: k8437 o|contracted procedure: k8440 o|contracted procedure: k8449 o|contracted procedure: k8452 o|contracted procedure: k8461 o|contracted procedure: k8464 o|contracted procedure: k8473 o|contracted procedure: k8476 o|contracted procedure: k8485 o|contracted procedure: k8497 o|contracted procedure: k8509 o|contracted procedure: k8530 o|contracted procedure: k8527 o|contracted procedure: k8542 o|contracted procedure: k8551 o|contracted procedure: k8565 o|contracted procedure: k8582 o|contracted procedure: k8611 o|contracted procedure: k8619 o|contracted procedure: k8622 o|contracted procedure: k8634 o|contracted procedure: k8637 o|contracted procedure: k8640 o|contracted procedure: k8648 o|contracted procedure: k8656 o|contracted procedure: k8663 o|contracted procedure: k8680 o|contracted procedure: k8697 o|contracted procedure: k8714 o|contracted procedure: k8731 o|contracted procedure: k8748 o|contracted procedure: k8765 o|contracted procedure: k8774 o|contracted procedure: k8777 o|contracted procedure: k8852 o|contracted procedure: k8783 o|contracted procedure: k8798 o|contracted procedure: k8812 o|contracted procedure: k8824 o|contracted procedure: k8827 o|contracted procedure: k8830 o|contracted procedure: k8838 o|contracted procedure: k8846 o|contracted procedure: k8806 o|contracted procedure: k8861 o|contracted procedure: k8868 o|contracted procedure: k8873 o|contracted procedure: k8880 o|contracted procedure: k8885 o|contracted procedure: k8889 o|contracted procedure: k8895 o|contracted procedure: k8902 o|contracted procedure: k8907 o|contracted procedure: k8914 o|contracted procedure: k8919 o|contracted procedure: k8926 o|contracted procedure: k8931 o|contracted procedure: k8938 o|contracted procedure: k8943 o|contracted procedure: k8950 o|contracted procedure: k8955 o|contracted procedure: k8962 o|contracted procedure: k8967 o|contracted procedure: k8971 o|contracted procedure: k8980 o|contracted procedure: k8988 o|contracted procedure: k8994 o|contracted procedure: k9011 o|contracted procedure: k9017 o|contracted procedure: k9023 o|contracted procedure: k9098 o|contracted procedure: k9104 o|contracted procedure: k9128 o|contracted procedure: k9134 o|contracted procedure: k9181 o|contracted procedure: k9237 o|contracted procedure: k9243 o|contracted procedure: k9246 o|contracted procedure: k9252 o|contracted procedure: k9261 o|contracted procedure: k9267 o|contracted procedure: k9273 o|contracted procedure: k9279 o|contracted procedure: k9288 o|contracted procedure: k9291 o|contracted procedure: k9297 o|contracted procedure: k9303 o|contracted procedure: k9309 o|contracted procedure: k9315 o|contracted procedure: k9321 o|contracted procedure: k9324 o|contracted procedure: k9330 o|contracted procedure: k9336 o|contracted procedure: k9342 o|contracted procedure: k9348 o|contracted procedure: k9354 o|contracted procedure: k9360 o|contracted procedure: k9366 o|contracted procedure: k9372 o|contracted procedure: k9378 o|contracted procedure: k9384 o|contracted procedure: k9390 o|contracted procedure: k9396 o|contracted procedure: k9402 o|contracted procedure: k9408 o|contracted procedure: k9414 o|contracted procedure: k9420 o|contracted procedure: k9426 o|contracted procedure: k9432 o|contracted procedure: k9438 o|contracted procedure: k9444 o|contracted procedure: k9450 o|contracted procedure: k9456 o|contracted procedure: k9462 o|contracted procedure: k9468 o|contracted procedure: k9474 o|contracted procedure: k9483 o|contracted procedure: k9492 o|contracted procedure: k9510 o|contracted procedure: k9507 o|contracted procedure: k9525 o|contracted procedure: k9531 o|contracted procedure: k9537 o|contracted procedure: k9543 o|contracted procedure: k9549 o|contracted procedure: k9555 o|contracted procedure: k9561 o|contracted procedure: k9567 o|contracted procedure: k9573 o|contracted procedure: k9580 o|contracted procedure: k9586 o|contracted procedure: k9592 o|contracted procedure: k9603 o|contracted procedure: k9609 o|contracted procedure: k9616 o|contracted procedure: k9647 o|contracted procedure: k9656 o|contracted procedure: k9664 o|contracted procedure: k9670 o|contracted procedure: k9676 o|contracted procedure: k9695 o|contracted procedure: k9701 o|contracted procedure: k9788 o|contracted procedure: k9809 o|contracted procedure: k9815 o|contracted procedure: k9821 o|contracted procedure: k9827 o|contracted procedure: k9868 o|contracted procedure: k9871 o|contracted procedure: k9877 o|contracted procedure: k9880 o|contracted procedure: k9886 o|contracted procedure: k9889 o|contracted procedure: k9895 o|contracted procedure: k9901 o|contracted procedure: k9907 o|contracted procedure: k9913 o|contracted procedure: k9919 o|contracted procedure: k9922 o|contracted procedure: k9946 o|contracted procedure: k9970 o|contracted procedure: k9997 o|contracted procedure: k10021 o|contracted procedure: k10024 o|contracted procedure: k10048 o|contracted procedure: k10051 o|contracted procedure: k10075 o|contracted procedure: k10099 o|contracted procedure: k10102 o|contracted procedure: k10126 o|contracted procedure: k10150 o|contracted procedure: k10174 o|contracted procedure: k10180 o|contracted procedure: k10183 o|contracted procedure: k10201 o|contracted procedure: k10198 o|contracted procedure: k10216 o|contracted procedure: k10222 o|contracted procedure: k10225 o|contracted procedure: k10249 o|contracted procedure: k10273 o|contracted procedure: k10297 o|contracted procedure: k10321 o|contracted procedure: k10345 o|contracted procedure: k10352 o|contracted procedure: k10358 o|contracted procedure: k10361 o|contracted procedure: k10385 o|contracted procedure: k10409 o|contracted procedure: k10464 o|contracted procedure: k10473 o|contracted procedure: k10517 o|contracted procedure: k10523 o|contracted procedure: k10529 o|contracted procedure: k10535 o|contracted procedure: k10541 o|contracted procedure: k10547 o|contracted procedure: k10553 o|contracted procedure: k10559 o|contracted procedure: k10565 o|contracted procedure: k10571 o|contracted procedure: k10700 o|contracted procedure: k10695 o|contracted procedure: k10691 o|contracted procedure: k10667 o|contracted procedure: k10687 o|contracted procedure: k10683 o|contracted procedure: k10671 o|contracted procedure: k10679 o|contracted procedure: k10675 o|contracted procedure: k10710 o|contracted procedure: k10720 o|contracted procedure: k10726 o|contracted procedure: k10732 o|contracted procedure: k10743 o|contracted procedure: k10749 o|contracted procedure: k10755 o|contracted procedure: k10952 o|contracted procedure: k10761 o|propagated global variable: r10953 ##sys#undefined-value o|contracted procedure: k10767 o|contracted procedure: k10824 o|contracted procedure: k10820 o|contracted procedure: k10785 o|contracted procedure: k10816 o|contracted procedure: k10812 o|contracted procedure: k10789 o|contracted procedure: k10808 o|contracted procedure: k10804 o|contracted procedure: k10793 o|contracted procedure: k10797 o|contracted procedure: k10781 o|contracted procedure: k10842 o|contracted procedure: k10855 o|contracted procedure: k10858 o|contracted procedure: k10869 o|contracted procedure: k10875 o|contracted procedure: k10904 o|contracted procedure: k10892 o|contracted procedure: k10944 o|contracted procedure: k10922 o|contracted procedure: k10940 o|simplifications: ((let . 83)) o|removed binding forms: 760 o|inlining procedure: k6965 o|inlining procedure: k6965 o|inlining procedure: k6965 o|inlining procedure: k10717 o|inlining procedure: k10717 o|inlining procedure: k10717 o|inlining procedure: k10717 o|inlining procedure: k10717 o|replaced variables: 210 o|inlining procedure: k6513 o|inlining procedure: k6513 o|inlining procedure: k6513 o|inlining procedure: k6513 o|inlining procedure: k6513 o|inlining procedure: k6513 o|substituted constant variable: r1071812378 o|substituted constant variable: r1071812378 o|substituted constant variable: r1071812382 o|substituted constant variable: r1071812382 o|substituted constant variable: r1071812386 o|substituted constant variable: r1071812386 o|substituted constant variable: r1071812390 o|substituted constant variable: r1071812390 o|substituted constant variable: r1071812394 o|substituted constant variable: r1071812394 o|simplifications: ((if . 8)) o|removed binding forms: 112 o|substituted constant variable: r651412444 o|substituted constant variable: r651412446 o|substituted constant variable: r651412448 o|substituted constant variable: r651412450 o|substituted constant variable: r651412452 o|substituted constant variable: r651412454 o|removed binding forms: 10 o|removed binding forms: 6 o|customizable procedures: (encode-size2104 k9973 k10213 err1779 g19801981 k9255 k9282 k9477 k9486 k9522 err1701 k8251 k8359 k8380 k8488 k8500 k8558 k8575 k8592 k8669 k8686 k8703 k8720 k8737 k8754 k8771 err1507 map-loop16741692 map-loop16261651 g16131614 str1508 g12791286 for-each-loop12781485 for-each-loop14531467 k7526 k7535 k7547 k7559 k7602 g14171418 g11671174 for-each-loop11661268 doloop11941195 k7357 for-each-loop12041233 for-each-loop11431156 for-each-loop11191133 k6977 loop1090 for-each-loop10481059 for-each-loop10351068 header91 declarations93 prototypes94 trampolines95 procedures103 k6077 k6623 k6143 doloop888889 k6552 doloop893894 for-each-loop901912 k6444 k6386 literal-frame96 doloop961962 doloop969970 expression90 doloop827828 k5938 string-like-substring101 k5772 k5861 gen-string-constant100 loop796 map-loop771788 gen-lit99 doloop744745 k5463 k5466 doloop721722 k5262 k5319 for-each-loop639650 doloop661662 doloop666667 doloop655656 pad0563 map-loop573598 for-each-loop611622 k4741 k4800 doloop550551 doloop499500 g395403 for-each-loop394410 for-each-loop420434 k3418 find-lambda89 k3424 k3661 k3795 expr-args112 g280288 for-each-loop279295 for-each-loop305319 push-args113 g186194 for-each-loop185201 loop146 expr111 for-each-loop4758 for-each-loop2738) o|calls to known targets: 422 o|fast box initializations: 54 o|dropping unused closure argument: f_4863 o|dropping unused closure argument: f_10652 o|dropping unused closure argument: f_5985 */ /* end of file */ chicken-4.12.0/lfa2.c0000644000175000017500000030277713052306455014023 0ustar sjamaansjamaan/* Generated from lfa2.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:18 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: lfa2.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -no-lambda-info -extend private-namespace.scm -no-trace -output-file lfa2.c unit: lfa2 */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[72]; static double C_possibly_force_alignment; C_noret_decl(f_1067) static void C_ccall f_1067(C_word c,C_word *av) C_noret; C_noret_decl(f_1514) static void C_fcall f_1514(C_word t0,C_word t1) C_noret; C_noret_decl(f_1160) static void C_fcall f_1160(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1965) static void C_ccall f_1965(C_word c,C_word *av) C_noret; C_noret_decl(f_1967) static void C_fcall f_1967(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1805) static void C_fcall f_1805(C_word t0,C_word t1) 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(f_1170) static void C_fcall f_1170(C_word t0,C_word t1) C_noret; C_noret_decl(f_1336) static void C_ccall f_1336(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_1246) static void C_ccall f_1246(C_word c,C_word *av) C_noret; C_noret_decl(f_1252) static void C_fcall f_1252(C_word t0,C_word t1) 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_1196) static void C_fcall f_1196(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_2040) static void C_ccall f_2040(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_2052) static void C_ccall f_2052(C_word c,C_word *av) C_noret; C_noret_decl(f_941) static void C_fcall f_941(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1630) static void C_fcall f_1630(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_947) static void C_fcall f_947(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2029) static void C_ccall f_2029(C_word c,C_word *av) C_noret; C_noret_decl(f_1433) static void C_ccall f_1433(C_word c,C_word *av) C_noret; C_noret_decl(f_1977) static void C_ccall f_1977(C_word c,C_word *av) C_noret; C_noret_decl(f_1737) static void C_fcall f_1737(C_word t0,C_word t1) C_noret; C_noret_decl(f_1449) static void C_ccall f_1449(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_noret; C_noret_decl(f_1033) static void C_fcall f_1033(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1870) static void C_fcall f_1870(C_word t0,C_word t1) C_noret; C_noret_decl(f_742) static void C_ccall f_742(C_word c,C_word *av) C_noret; C_noret_decl(f_745) static void C_ccall f_745(C_word c,C_word *av) C_noret; C_noret_decl(f_748) static void C_ccall f_748(C_word c,C_word *av) C_noret; C_noret_decl(f_1860) static void C_fcall f_1860(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1008) static void C_fcall f_1008(C_word t0,C_word t1) C_noret; C_noret_decl(f_1728) static void C_ccall f_1728(C_word c,C_word *av) C_noret; C_noret_decl(f_1012) static void C_ccall f_1012(C_word c,C_word *av) C_noret; C_noret_decl(f_1015) static void C_ccall f_1015(C_word c,C_word *av) C_noret; C_noret_decl(f_1725) static void C_ccall f_1725(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_1499) static void C_ccall f_1499(C_word c,C_word *av) C_noret; C_noret_decl(f_1496) static void C_ccall f_1496(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_1492) static void C_fcall f_1492(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_988) static void C_ccall f_988(C_word c,C_word *av) C_noret; C_noret_decl(f_1050) static void C_ccall f_1050(C_word c,C_word *av) C_noret; C_noret_decl(f_1020) static void C_fcall f_1020(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1475) static void C_fcall f_1475(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1024) static void C_ccall f_1024(C_word c,C_word *av) C_noret; C_noret_decl(f_1109) static void C_fcall f_1109(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1389) static void C_ccall f_1389(C_word c,C_word *av) C_noret; C_noret_decl(f_1933) static void C_fcall f_1933(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1582) static void C_fcall f_1582(C_word t0,C_word t1) C_noret; C_noret_decl(f_2088) static void C_ccall f_2088(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_1418) static void C_ccall f_1418(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_1119) static void C_ccall f_1119(C_word c,C_word *av) C_noret; C_noret_decl(f_795) static void C_ccall f_795(C_word c,C_word *av) C_noret; C_noret_decl(f_1943) static void C_ccall f_1943(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_1955) static void C_fcall f_1955(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2078) static void C_fcall f_2078(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_912) static void C_fcall f_912(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1285) static void C_ccall f_1285(C_word c,C_word *av) C_noret; C_noret_decl(f_1406) static void C_ccall f_1406(C_word c,C_word *av) C_noret; C_noret_decl(trf_1514) static void C_ccall trf_1514(C_word c,C_word *av) C_noret; static void C_ccall trf_1514(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1514(t0,t1);} C_noret_decl(trf_1160) static void C_ccall trf_1160(C_word c,C_word *av) C_noret; static void C_ccall trf_1160(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1160(t0,t1,t2);} C_noret_decl(trf_1967) static void C_ccall trf_1967(C_word c,C_word *av) C_noret; static void C_ccall trf_1967(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1967(t0,t1,t2);} C_noret_decl(trf_1805) static void C_ccall trf_1805(C_word c,C_word *av) C_noret; static void C_ccall trf_1805(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1805(t0,t1);} C_noret_decl(trf_1170) static void C_ccall trf_1170(C_word c,C_word *av) C_noret; static void C_ccall trf_1170(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1170(t0,t1);} C_noret_decl(trf_1252) static void C_ccall trf_1252(C_word c,C_word *av) C_noret; static void C_ccall trf_1252(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1252(t0,t1);} C_noret_decl(trf_1196) static void C_ccall trf_1196(C_word c,C_word *av) C_noret; static void C_ccall trf_1196(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_1196(t0,t1,t2,t3,t4);} C_noret_decl(trf_941) static void C_ccall trf_941(C_word c,C_word *av) C_noret; static void C_ccall trf_941(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_941(t0,t1,t2);} C_noret_decl(trf_1630) static void C_ccall trf_1630(C_word c,C_word *av) C_noret; static void C_ccall trf_1630(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1630(t0,t1,t2);} C_noret_decl(trf_947) static void C_ccall trf_947(C_word c,C_word *av) C_noret; static void C_ccall trf_947(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_947(t0,t1,t2);} C_noret_decl(trf_1737) static void C_ccall trf_1737(C_word c,C_word *av) C_noret; static void C_ccall trf_1737(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1737(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[1]; C_word t1=av[0]; f_1354(t0,t1);} C_noret_decl(trf_1033) static void C_ccall trf_1033(C_word c,C_word *av) C_noret; static void C_ccall trf_1033(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1033(t0,t1,t2);} C_noret_decl(trf_1870) static void C_ccall trf_1870(C_word c,C_word *av) C_noret; static void C_ccall trf_1870(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1870(t0,t1);} C_noret_decl(trf_1860) static void C_ccall trf_1860(C_word c,C_word *av) C_noret; static void C_ccall trf_1860(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1860(t0,t1,t2);} C_noret_decl(trf_1008) static void C_ccall trf_1008(C_word c,C_word *av) C_noret; static void C_ccall trf_1008(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1008(t0,t1);} C_noret_decl(trf_1492) static void C_ccall trf_1492(C_word c,C_word *av) C_noret; static void C_ccall trf_1492(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1492(t0,t1,t2);} C_noret_decl(trf_1020) static void C_ccall trf_1020(C_word c,C_word *av) C_noret; static void C_ccall trf_1020(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1020(t0,t1,t2,t3);} C_noret_decl(trf_1475) static void C_ccall trf_1475(C_word c,C_word *av) C_noret; static void C_ccall trf_1475(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1475(t0,t1,t2);} C_noret_decl(trf_1109) static void C_ccall trf_1109(C_word c,C_word *av) C_noret; static void C_ccall trf_1109(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1109(t0,t1,t2);} C_noret_decl(trf_1933) static void C_ccall trf_1933(C_word c,C_word *av) C_noret; static void C_ccall trf_1933(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1933(t0,t1,t2);} C_noret_decl(trf_1582) static void C_ccall trf_1582(C_word c,C_word *av) C_noret; static void C_ccall trf_1582(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1582(t0,t1);} C_noret_decl(trf_1955) static void C_ccall trf_1955(C_word c,C_word *av) C_noret; static void C_ccall trf_1955(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1955(t0,t1,t2);} C_noret_decl(trf_2078) static void C_ccall trf_2078(C_word c,C_word *av) C_noret; static void C_ccall trf_2078(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2078(t0,t1,t2);} C_noret_decl(trf_912) static void C_ccall trf_912(C_word c,C_word *av) C_noret; static void C_ccall trf_912(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_912(t0,t1,t2);} /* k1065 in k1048 in k1022 in extinguish! in perform-secondary-flow-analysis in k746 in k743 in k740 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_1067,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* lfa2.scm:213: node-parameters-set! */ t3=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1512 in k1494 in g307 in k1483 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1514(C_word t0,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_1514,2,t0,t1);} if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); t3=C_slot(t2,C_fix(2)); t4=C_i_car(t3); if(C_truep(C_i_symbolp(t4))){ t5=C_i_cadr(((C_word*)t0)[3]); t6=C_eqp(t4,t5); if(C_truep(t6)){ /* lfa2.scm:294: extinguish! */ t7=((C_word*)((C_word*)t0)[4])[1]; f_1020(t7,((C_word*)t0)[5],((C_word*)t0)[6],lf[55]);} else{ t7=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t7; av2[1]=lf[21]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t5=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t5; av2[1]=lf[21]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[21]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* loop in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1160(C_word t0,C_word t1,C_word t2){ C_word 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_1160,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[21]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1170,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_1170(t9,C_i_assq(t8,((C_word*)t0)[4]));} else{ t6=t3; f_1170(t6,C_SCHEME_FALSE);}}} /* k1963 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_1965(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1965,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[21]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop389 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1967(C_word t0,C_word t1,C_word 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_1967,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_1977,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:350: g390 */ t5=((C_word*)t0)[3]; f_1955(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);}}} /* k1803 in k1723 in g328 in k1483 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1805(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_1805,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[25],t3))){ /* lfa2.scm:333: extinguish! */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1020(t4,((C_word*)t0)[4],((C_word*)t0)[5],lf[60]);} else{ t4=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[25]; ((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:336: extinguish! */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1020(t4,((C_word*)t0)[4],((C_word*)t0)[5],lf[61]);} else{ t4=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[25]; ((C_proc)(void*)(*((C_word*)t4+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_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_lfa2_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(1775))){ C_save(t1); C_rereclaim2(1775*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,72); lf[0]=C_h_intern(&lf[0],17,"+constructor-map+"); lf[1]=C_decode_literal(C_heaptop,"\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\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\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\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\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\052struc" "t\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\052struct\052\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\015C_a_i_recor" "d7\376\003\000\000\002\376\001\000\000\010\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\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\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\006str" "ing\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\004port\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\006vector\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\006vector\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\006vector\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\006vector\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\006vector\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" "\006vector\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\006vector\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\015C_a_i_ve" "ctor8\376\003\000\000\002\376\001\000\000\006vector\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\004pair\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\004blob\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\023C_a_i_make_locative\376\003\000\000\002\376\001\000\000\010loca" "tive\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\006vector\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\004pair\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\004pair\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\004pair\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\004pair\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\013" "C_a_i_list5\376\003\000\000\002\376\001\000\000\004pair\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\013C_a_i_list6\376\003\000\000\002\376\001\000\000\004pair\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\004pair\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\004pair\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\004pair\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\006flon" "um\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\006flonum\376\377\016\376\377\016"); lf[2]=C_h_intern(&lf[2],40,"\010compilerperform-secondary-flow-analysis"); lf[3]=C_h_intern(&lf[3],12,"\010compilerget"); lf[4]=C_h_intern(&lf[4],8,"assigned"); lf[5]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005quote\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\003\000\000\002\376\001\000\000\016\004coreprimitive\376\003\000\000\002\376\001\000\000\013\004corela" "mbda\376\377\016"); lf[6]=C_h_intern(&lf[6],13,"\004corevariable"); lf[7]=C_h_intern(&lf[7],7,"\003sysget"); lf[8]=C_h_intern(&lf[8],21,"\010compileralways-bound"); lf[9]=C_h_intern(&lf[9],6,"global"); lf[10]=C_h_intern(&lf[10],24,"node-subexpressions-set!"); lf[11]=C_h_intern(&lf[11],20,"node-parameters-set!"); lf[12]=C_h_intern(&lf[12],15,"node-class-set!"); lf[13]=C_h_intern(&lf[13],14,"\004coreundefined"); lf[14]=C_h_intern(&lf[14],8,"for-each"); lf[15]=C_h_intern(&lf[15],13,"string-append"); lf[16]=C_decode_literal(C_heaptop,"\376B\000\000\0011"); lf[17]=C_decode_literal(C_heaptop,"\376B\000\000\0012"); lf[18]=C_decode_literal(C_heaptop,"\376B\000\000\0013"); lf[19]=C_h_intern(&lf[19],13,"\010compilerbomb"); lf[20]=C_decode_literal(C_heaptop,"\376B\000\0005bad number of arguments to extinguished ##core#inline"); lf[21]=C_h_intern(&lf[21],1,"\052"); lf[22]=C_h_intern(&lf[22],2,"if"); lf[23]=C_h_intern(&lf[23],9,"\004corecond"); lf[24]=C_h_intern(&lf[24],6,"append"); lf[25]=C_h_intern(&lf[25],7,"boolean"); lf[26]=C_h_intern(&lf[26],5,"quote"); lf[27]=C_h_intern(&lf[27],6,"string"); lf[28]=C_h_intern(&lf[28],6,"symbol"); lf[29]=C_h_intern(&lf[29],6,"fixnum"); lf[30]=C_h_intern(&lf[30],5,"float"); lf[31]=C_h_intern(&lf[31],11,"number-type"); lf[32]=C_h_intern(&lf[32],6,"flonum"); lf[33]=C_h_intern(&lf[33],6,"number"); lf[34]=C_h_intern(&lf[34],4,"null"); lf[35]=C_h_intern(&lf[35],4,"list"); lf[36]=C_h_intern(&lf[36],4,"pair"); lf[37]=C_h_intern(&lf[37],3,"eof"); lf[38]=C_h_intern(&lf[38],6,"vector"); lf[39]=C_h_intern(&lf[39],6,"struct"); lf[40]=C_h_intern(&lf[40],4,"char"); lf[41]=C_h_intern(&lf[41],3,"let"); lf[42]=C_h_intern(&lf[42],11,"\004corelambda"); lf[43]=C_h_intern(&lf[43],18,"\004coredirect_lambda"); lf[44]=C_h_intern(&lf[44],9,"procedure"); lf[45]=C_h_intern(&lf[45],4,"set!"); lf[46]=C_h_intern(&lf[46],9,"\004coreset!"); lf[47]=C_h_intern(&lf[47],9,"undefined"); lf[48]=C_h_intern(&lf[48],14,"\004coreprimitive"); lf[49]=C_h_intern(&lf[49],11,"\004coreinline"); lf[50]=C_h_intern(&lf[50],20,"\004coreinline_allocate"); lf[51]=C_decode_literal(C_heaptop,"\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\011procedure\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\017C_i_check_e" "xact\376\003\000\000\002\376\001\000\000\006fixnum\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\006flonum\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\006fixnum\376\003\000\000\002\376\001\000\000\006flonum\376\003\000\000\002\376\001\000\000\006number\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\006string\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\024C_i_check_bytevecto" "r\376\003\000\000\002\376\001\000\000\004blob\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\006symbol\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\004null\376\003\000\000\002\376\001\000\000\004pair\376\003\000\000\002\376\001\000\000\004list\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\004pair\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\022C_i_check_locative\376\003\000\000\002\376\001\000\000\010locative\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\007boolean\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_i_check_v" "ector\376\003\000\000\002\376\001\000\000\006vector\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\023C_i_check_structure\376\003\000\000\002\376\001\000\000\010\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\004char\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\011procedure\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\021C_i_check_exact_2\376\003\000\000\002\376\001\000\000\006fixnum\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\006flonum\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\022C_i_check_number_2\376\003" "\000\000\002\376\001\000\000\006fixnum\376\003\000\000\002\376\001\000\000\006flonum\376\003\000\000\002\376\001\000\000\006number\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\006string\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\004blob\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\006symbol\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\004null\376\003\000\000\002\376\001\000\000\004pair\376\003\000\000\002\376\001\000\000\004list\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\004pair\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\010locative\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\007boolean\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\006vector\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\052struct\052\376\377\016\376\003\000\000\002\376\003\000\000\002" "\376B\000\000\020C_i_check_char_2\376\003\000\000\002\376\001\000\000\004char\376\377\016\376\377\016"); lf[52]=C_h_intern(&lf[52],6,"unsafe"); lf[53]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_noop"); lf[54]=C_h_intern(&lf[54],8,"\052struct\052"); lf[55]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_noop"); lf[56]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_noop"); lf[57]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_noop"); lf[58]=C_decode_literal(C_heaptop,"\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\011procedure\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\006fixnum\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\006flonum\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\013C_i_numb" "erp\376\003\000\000\002\376\001\000\000\006number\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\006string\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\015" "C_bytevectorp\376\003\000\000\002\376\001\000\000\004blob\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\006symbol\376\377\016\376\003\000\000\002" "\376\003\000\000\002\376B\000\000\011C_i_listp\376\003\000\000\002\376\001\000\000\004list\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\004pair\376\377\016\376\003\000" "\000\002\376\003\000\000\002\376B\000\000\013C_locativep\376\003\000\000\002\376\001\000\000\010locative\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\007b" "oolean\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\006vector\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\014C_structure" "p\376\003\000\000\002\376\001\000\000\006struct\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\052struct\052\376\377\016\376\003\000\000\002\376\003\000\000\002" "\376B\000\000\007C_charp\376\003\000\000\002\376\001\000\000\004char\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\004port\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\004null\376\377\016\376\377\016"); lf[59]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_true"); lf[60]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_true"); lf[61]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_true"); lf[62]=C_h_intern(&lf[62],19,"\003sysstandard-output"); lf[63]=C_h_intern(&lf[63],6,"printf"); lf[64]=C_h_intern(&lf[64],16,"\003syswrite-char-0"); lf[65]=C_h_intern(&lf[65],9,"\003sysprint"); lf[66]=C_decode_literal(C_heaptop,"\376B\000\000\002:\011"); lf[67]=C_decode_literal(C_heaptop,"\376B\000\000\002 "); lf[68]=C_h_intern(&lf[68],5,"print"); lf[69]=C_decode_literal(C_heaptop,"\376B\000\000\027eliminated type checks:"); lf[70]=C_h_intern(&lf[70],30,"\010compilerwith-debugging-output"); lf[71]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001x\376\003\000\000\002\376\001\000\000\001o\376\377\016"); C_register_lf2(lf,72,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_742,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k1168 in loop in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1170(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_1170,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:232: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_1160(t4,((C_word*)t0)[2],t3);}} /* k1334 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_1336(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1336,2,av);} a=C_alloc(11); t2=t1; t3=C_i_cadr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_1418,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]=t4,a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* lfa2.scm:259: assigned? */ t6=((C_word*)((C_word*)t0)[9])[1]; f_941(t6,t5,((C_word*)t0)[4]);} /* k1276 in k1250 in k1244 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ 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);} /* lfa2.scm:244: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1196(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} /* k1244 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_1246,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1252,a[2]=((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_1252(t5,C_eqp(lf[25],t4));} else{ t4=t3; f_1252(t4,C_SCHEME_FALSE);}} /* k1250 in k1244 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1252(C_word t0,C_word 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_1252,2,t0,t1);} a=C_alloc(14); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1255,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_1278,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:245: append */ t7=*((C_word*)lf[24]+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_1285,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:251: walk */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1196(t4,t2,t3,((C_word*)t0)[7],((C_word*)t0)[5]);}} /* k1253 in k1250 in k1244 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_1255,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_1266,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:248: append */ t6=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1196(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 *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(21,0,4)))){ C_save_and_reclaim_args((void *)trf_1196,5,t0,t1,t2,t3,t4);} a=C_alloc(21); t5=t2; t6=C_slot(t5,C_fix(1)); t7=t2; t8=C_slot(t7,C_fix(2)); t9=t8; t10=t2; t11=C_slot(t10,C_fix(3)); t12=t11; t13=C_eqp(t6,lf[6]); if(C_truep(t13)){ t14=C_i_car(t9); t15=t1; t16=t14; t17=t3; t18=t4; t19=C_i_assq(t16,t17); if(C_truep(t19)){ t20=t15;{ C_word av2[2]; av2[0]=t20; av2[1]=C_i_cdr(t19); ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} else{ 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_1160,a[2]=t21,a[3]=t16,a[4]=t17,tmp=(C_word)a,a+=5,tmp)); t23=((C_word*)t21)[1]; f_1160(t23,t15,t18);}} else{ t14=C_eqp(t6,lf[22]); t15=(C_truep(t14)?t14:C_eqp(t6,lf[23])); if(C_truep(t15)){ t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1246,a[2]=t12,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t4,a[6]=t3,tmp=(C_word)a,a+=7,tmp); t17=C_i_car(t12); /* lfa2.scm:242: walk */ t33=t16; t34=t17; t35=t3; t36=t4; t1=t33; t2=t34; t3=t35; t4=t36; goto loop;} else{ t16=C_eqp(t6,lf[26]); if(C_truep(t16)){ t17=C_i_car(t9); t18=t1; if(C_truep(C_i_stringp(t17))){ t19=t18;{ C_word av2[2]; av2[0]=t19; av2[1]=lf[27]; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(t17))){ t19=t18;{ C_word av2[2]; av2[0]=t19; av2[1]=lf[28]; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ if(C_truep(C_fixnump(t17))){ t19=t18;{ C_word av2[2]; av2[0]=t19; av2[1]=lf[29]; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ if(C_truep(C_i_flonump(t17))){ t19=t18;{ C_word av2[2]; av2[0]=t19; av2[1]=lf[30]; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ if(C_truep(C_i_numberp(t17))){ t19=*((C_word*)lf[31]+1); t20=*((C_word*)lf[31]+1); t21=C_eqp(*((C_word*)lf[31]+1),lf[29]); if(C_truep(t21)){ t22=t18;{ C_word av2[2]; av2[0]=t22; av2[1]=lf[29]; ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}} else{ t22=C_eqp(t19,lf[32]); t23=t18;{ C_word av2[2]; av2[0]=t23; av2[1]=(C_truep(t22)?lf[32]:lf[33]); ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}} else{ if(C_truep(C_booleanp(t17))){ t19=t18;{ C_word av2[2]; av2[0]=t19; av2[1]=lf[25]; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(t17))){ t19=t18;{ C_word av2[2]; av2[0]=t19; av2[1]=lf[34]; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ if(C_truep(C_i_listp(t17))){ t19=t18;{ C_word av2[2]; av2[0]=t19; av2[1]=lf[35]; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t17))){ t19=t18;{ C_word av2[2]; av2[0]=t19; av2[1]=lf[36]; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ if(C_truep(C_eofp(t17))){ t19=t18;{ C_word av2[2]; av2[0]=t19; av2[1]=lf[37]; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ if(C_truep(C_i_vectorp(t17))){ t19=t18;{ C_word av2[2]; av2[0]=t19; av2[1]=lf[38]; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ t19=C_immp(t17); t20=(C_truep(t19)?C_SCHEME_FALSE:C_structurep(t17)); if(C_truep(t20)){ t21=C_slot(t17,C_fix(0)); t22=t18;{ C_word av2[2]; av2[0]=t22; av2[1]=C_a_i_list(&a,2,lf[39],t21); ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}} else{ t21=C_charp(t17); t22=t18;{ C_word av2[2]; av2[0]=t22; av2[1]=(C_truep(t21)?lf[40]:lf[21]); ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}}}}}}}}}}}}}} else{ t17=C_eqp(t6,lf[41]); if(C_truep(t17)){ t18=C_i_car(t12); t19=t18; t20=C_i_car(t9); t21=t20; t22=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1336,a[2]=t12,a[3]=t3,a[4]=t21,a[5]=t19,a[6]=t4,a[7]=((C_word*)t0)[2],a[8]=t1,a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp); /* lfa2.scm:257: walk */ t33=t22; t34=t19; t35=t3; t36=t4; t1=t33; t2=t34; t3=t35; t4=t36; goto loop;} else{ t18=C_eqp(t6,lf[42]); t19=(C_truep(t18)?t18:C_eqp(t6,lf[43])); if(C_truep(t19)){ t20=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1433,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t21=C_i_car(t12); /* lfa2.scm:272: walk */ t33=t20; t34=t21; t35=C_SCHEME_END_OF_LIST; t36=C_SCHEME_END_OF_LIST; t1=t33; t2=t34; t3=t35; t4=t36; goto loop;} else{ t20=C_eqp(t6,lf[45]); t21=(C_truep(t20)?t20:C_eqp(t6,lf[46])); if(C_truep(t21)){ t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1449,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t23=C_i_car(t12); /* lfa2.scm:275: walk */ t33=t22; t34=t23; t35=t3; t36=t4; t1=t33; t2=t34; t3=t35; t4=t36; goto loop;} else{ t22=C_eqp(t6,lf[13]); if(C_truep(t22)){ t23=t1;{ C_word av2[2]; av2[0]=t23; av2[1]=lf[47]; ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}} else{ t23=C_eqp(t6,lf[48]); if(C_truep(t23)){ t24=t1;{ C_word av2[2]; av2[0]=t24; av2[1]=lf[44]; ((C_proc)(void*)(*((C_word*)t24+1)))(2,av2);}} else{ t24=C_eqp(t6,lf[49]); t25=(C_truep(t24)?t24:C_eqp(t6,lf[50])); if(C_truep(t25)){ t26=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1475,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t27=C_i_check_list_2(t12,lf[14]); t28=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1485,a[2]=t9,a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t12,a[6]=((C_word*)t0)[2],a[7]=t3,a[8]=t4,a[9]=t1,tmp=(C_word)a,a+=10,tmp); t29=C_SCHEME_UNDEFINED; t30=(*a=C_VECTOR_TYPE|1,a[1]=t29,tmp=(C_word)a,a+=2,tmp); t31=C_set_block_item(t30,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1933,a[2]=t30,a[3]=t26,tmp=(C_word)a,a+=4,tmp)); t32=((C_word*)t30)[1]; f_1933(t32,t28,t12);} else{ t26=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1955,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t27=C_i_check_list_2(t12,lf[14]); t28=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1965,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t29=C_SCHEME_UNDEFINED; t30=(*a=C_VECTOR_TYPE|1,a[1]=t29,tmp=(C_word)a,a+=2,tmp); t31=C_set_block_item(t30,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1967,a[2]=t30,a[3]=t26,tmp=(C_word)a,a+=4,tmp)); t32=((C_word*)t30)[1]; f_1967(t32,t28,t12);}}}}}}}}}} /* k2042 in a2039 in k2027 in perform-secondary-flow-analysis in k746 in k743 in k740 */ 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; C_word 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_2044,2,av);} a=C_alloc(5); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_i_check_list_2(t2,lf[14]); 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_2078,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_2078(t7,((C_word*)t0)[3],t2);} /* a2039 in k2027 in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_2040(C_word c,C_word *av){ C_word tmp; C_word t0=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_2040,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2044,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:358: print */ t3=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[69]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2053 in k2050 in for-each-loop415 in k2042 in a2039 in k2027 in perform-secondary-flow-analysis in k746 in k743 in k740 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_2055,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2058,a[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:360: ##sys#print */ t3=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[66]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2056 in k2053 in k2050 in for-each-loop415 in k2042 in a2039 in k2027 in perform-secondary-flow-analysis in k746 in k743 in k740 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2058,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2061,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:360: ##sys#print */ t4=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2050 in for-each-loop415 in k2042 in a2039 in k2027 in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_2052(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2052,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2055,a[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:360: ##sys#print */ t4=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* assigned? in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_941(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_941,3,t0,t1,t2);} /* lfa2.scm:186: get */ t3=*((C_word*)lf[3]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=lf[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* g328 in k1483 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1630(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(21,0,4)))){ C_save_and_reclaim_args((void *)trf_1630,3,t0,t1,t2);} a=C_alloc(21); t3=C_i_car(((C_word*)t0)[2]); t4=C_slot(t3,C_fix(1)); t5=C_eqp(lf[6],t4); if(C_truep(t5)){ t6=C_slot(t3,C_fix(2)); t7=C_i_car(t6); t8=C_i_cadr(t2); t9=C_eqp(lf[54],t8); if(C_truep(t9)){ t10=C_i_cadr(((C_word*)t0)[2]); t11=C_slot(t10,C_fix(1)); t12=C_eqp(lf[26],t11); if(C_truep(t12)){ t13=C_i_cadr(((C_word*)t0)[2]); t14=C_slot(t13,C_fix(2)); t15=C_i_car(t14); if(C_truep(C_i_symbolp(t15))){ t16=C_a_i_list(&a,2,lf[39],t15); t17=C_a_i_cons(&a,2,t7,t16); t18=C_a_i_list(&a,1,t17); t19=t1;{ C_word av2[2]; av2[0]=t19; av2[1]=C_a_i_list(&a,3,lf[25],t18,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ t16=C_a_i_cons(&a,2,t7,lf[39]); t17=C_a_i_list(&a,1,t16); t18=t1;{ C_word av2[2]; av2[0]=t18; av2[1]=C_a_i_list(&a,3,lf[25],t17,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}} else{ t13=C_a_i_cons(&a,2,t7,lf[39]); t14=C_a_i_list(&a,1,t13); t15=t1;{ C_word av2[2]; av2[0]=t15; av2[1]=C_a_i_list(&a,3,lf[25],t14,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}} else{ t10=C_i_cadr(t2); t11=C_a_i_cons(&a,2,t7,t10); t12=C_a_i_list(&a,1,t11); t13=t1;{ C_word av2[2]; av2[0]=t13; av2[1]=C_a_i_list(&a,3,lf[25],t12,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}} else{ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1725,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); t7=C_u_i_car(((C_word*)t0)[2]); /* lfa2.scm:320: walk */ t8=((C_word*)((C_word*)t0)[5])[1]; f_1196(t8,t6,t7,((C_word*)t0)[6],((C_word*)t0)[7]);}} /* droppable? in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_947(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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(4,0,4)))){ C_save_and_reclaim_args((void *)trf_947,3,t0,t1,t2);} a=C_alloc(4); t3=t2; t4=C_slot(t3,C_fix(1)); t5=C_u_i_memq(t4,lf[5]); 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=t2; t7=C_slot(t6,C_fix(1)); t8=C_eqp(lf[6],t7); if(C_truep(t8)){ t9=t2; t10=C_slot(t9,C_fix(2)); t11=C_i_car(t10); t12=t11; t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_988,a[2]=t1,a[3]=t12,tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:193: get */ t14=*((C_word*)lf[3]+1);{ C_word av2[5]; av2[0]=t14; av2[1]=t13; av2[2]=((C_word*)t0)[2]; av2[3]=t12; av2[4]=lf[9]; ((C_proc)(void*)(*((C_word*)t14+1)))(5,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);}}}} /* k2027 in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_2029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2029,2,av);} a=C_alloc(3); if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[2])[1]))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2040,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* lfa2.scm:355: with-debugging-output */ t3=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[71]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k1431 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_1433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1433,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[44]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1975 in for-each-loop389 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_1977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1977,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1967(t3,((C_word*)t0)[4],t2);} /* k1735 in k1723 in g328 in k1483 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1737(C_word t0,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_1737,2,t0,t1);} if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); t3=C_slot(t2,C_fix(2)); t4=C_i_car(t3); if(C_truep(C_i_symbolp(t4))){ t5=C_i_cadr(((C_word*)t0)[3]); t6=C_eqp(t4,t5); if(C_truep(t6)){ /* lfa2.scm:330: extinguish! */ t7=((C_word*)((C_word*)t0)[4])[1]; f_1020(t7,((C_word*)t0)[5],((C_word*)t0)[6],lf[59]);} else{ t7=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t7; av2[1]=lf[25]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t5=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t5; av2[1]=lf[25]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[25]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k1447 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_1449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1449,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[47]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1352 in k1416 in k1334 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1354(C_word 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_1354,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_i_car(t2); t4=C_a_i_cons(&a,2,C_a_i_cons(&a,2,t3,((C_word*)t0)[3]),((C_word*)t0)[4]); t5=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[3],t3),t4); /* lfa2.scm:258: walk */ t6=((C_word*)((C_word*)t0)[5])[1]; f_1196(t6,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],t5);} else{ t2=((C_word*)t0)[4]; /* lfa2.scm:258: walk */ t3=((C_word*)((C_word*)t0)[5])[1]; f_1196(t3,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],t2);}} /* g173 in k1022 in extinguish! in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1033(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_1033,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1040,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:207: droppable? */ t4=((C_word*)((C_word*)t0)[4])[1]; f_947(t4,t3,t2);} /* k1868 in g369 in k1483 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1870(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,1)))){ C_save_and_reclaim_args((void *)trf_1870,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_i_car(t2); t4=C_i_symbolp(t3); t5=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t5; av2[1]=(C_truep(t4)?C_a_i_list(&a,2,lf[39],t3):lf[39]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ 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);}}} /* k740 */ static void C_ccall f_742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_742,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_745,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k743 in k740 */ static void C_ccall f_745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_745,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_748,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k746 in k743 in k740 */ static void C_ccall f_748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_748,2,av);} a=C_alloc(2); t2=C_mutate2((C_word*)lf[0]+1 /* (set! +constructor-map+ ...) */,lf[1]); t3=C_mutate2((C_word*)lf[2]+1 /* (set! ##compiler#perform-secondary-flow-analysis ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_795,tmp=(C_word)a,a+=2,tmp)); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* g369 in k1483 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1860(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_1860,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_pairp(((C_word*)t0)[2]); t4=(C_truep(t3)?C_u_i_car(((C_word*)t0)[2]):C_SCHEME_FALSE); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1870,a[2]=t5,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ t7=C_i_cadr(t2); t8=C_eqp(lf[54],t7); if(C_truep(t8)){ t9=C_slot(t5,C_fix(1)); t10=t6; f_1870(t10,C_eqp(lf[26],t9));} else{ t9=t6; f_1870(t9,C_SCHEME_FALSE);}} else{ t7=t6; f_1870(t7,C_SCHEME_FALSE);}} /* drop! in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1008(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_1008,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1012,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:197: node-class-set! */ t4=*((C_word*)lf[12]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[13]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k1726 in k1723 in g328 in k1483 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_1728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1728,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[25]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1010 in drop! in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_1012(C_word c,C_word *av){ C_word tmp; C_word t0=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_1012,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1015,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:198: node-parameters-set! */ t3=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1013 in k1010 in drop! in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_1015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1015,2,av);} /* lfa2.scm:199: node-subexpressions-set! */ t2=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1723 in g328 in k1483 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_1725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_1725,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1728,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[54],t4); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1737,a[2]=((C_word*)t0)[4],a[3]=t2,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); if(C_truep(C_i_pairp(t2))){ t7=C_u_i_car(t2); t8=C_eqp(lf[39],t7); if(C_truep(t8)){ t9=C_i_cadr(((C_word*)t0)[4]); t10=C_slot(t9,C_fix(1)); t11=t6; f_1737(t11,C_eqp(lf[26],t10));} else{ t9=t6; f_1737(t9,C_SCHEME_FALSE);}} else{ t7=t6; f_1737(t7,C_SCHEME_FALSE);}} else{ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1805,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=((C_word*)t0)[6],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_1805(t8,C_eqp(lf[25],t7));} else{ t7=t6; f_1805(t7,C_SCHEME_FALSE);}}} /* k1072 in k1048 in k1022 in extinguish! in perform-secondary-flow-analysis in k746 in k743 in k740 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1074,2,av);} /* lfa2.scm:216: string-append */ t2=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1497 in k1494 in g307 in k1483 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_1499(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1499,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[21]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1494 in g307 in k1483 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_1496(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_1496,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1499,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[52]+1))){ /* lfa2.scm:285: extinguish! */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1020(t4,t3,((C_word*)t0)[4],lf[53]);} else{ t4=C_i_cadr(((C_word*)t0)[5]); t5=C_eqp(lf[54],t4); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1514,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(t2))){ t7=C_u_i_car(t2); t8=C_eqp(lf[39],t7); if(C_truep(t8)){ t9=C_i_cadr(((C_word*)t0)[6]); t10=C_slot(t9,C_fix(1)); t11=t6; f_1514(t11,C_eqp(lf[26],t10));} else{ t9=t6; f_1514(t9,C_SCHEME_FALSE);}} else{ t7=t6; f_1514(t7,C_SCHEME_FALSE);}} else{ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1582,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_1582(t8,C_eqp(lf[25],t7));} else{ t7=t6; f_1582(t7,C_SCHEME_FALSE);}}}} /* k1038 in g173 in k1022 in extinguish! in perform-secondary-flow-analysis in k746 in k743 in k740 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1040,2,av);} if(C_truep(t1)){ /* lfa2.scm:208: drop! */ f_1008(((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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g307 in k1483 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1492(C_word t0,C_word t1,C_word 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_1492,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1496,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:283: walk */ t5=((C_word*)((C_word*)t0)[5])[1]; f_1196(t5,t3,t4,((C_word*)t0)[6],((C_word*)t0)[7]);} /* k986 in droppable? in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_988,2,av);} t2=C_i_not(t1); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=((C_word*)t0)[2]; /* tweaks.scm:57: ##sys#get */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k1048 in k1022 in extinguish! in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_1050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_1050,2,av);} a=C_alloc(8); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ /* lfa2.scm:212: drop! */ f_1008(((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1067,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[5]; t4=C_slot(t3,C_fix(3)); t5=C_i_length(t4); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1074,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); switch(t5){ case C_fix(1): /* lfa2.scm:216: string-append */ t7=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[16]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);} case C_fix(2): /* lfa2.scm:216: string-append */ t7=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[17]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);} case C_fix(3): /* lfa2.scm:216: string-append */ t7=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[18]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);} default: /* lfa2.scm:222: bomb */ t7=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[20]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}} /* extinguish! in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1020(C_word t0,C_word t1,C_word 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_1020,4,t0,t1,t2,t3);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1024,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t3,tmp=(C_word)a,a+=7,tmp); t5=t2; t6=C_slot(t5,C_fix(2)); t7=C_i_car(t6); /* lfa2.scm:202: report */ t8=((C_word*)((C_word*)t0)[4])[1]; f_912(t8,t4,t7);} /* g279 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1475(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_1475,3,t0,t1,t2);} /* lfa2.scm:280: g294 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_1196(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k1022 in extinguish! in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_1024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_1024,2,av);} a=C_alloc(20); t2=((C_word*)t0)[2]; t3=C_slot(t2,C_fix(3)); 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_1033,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t7=C_i_check_list_2(t3,lf[14]); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1050,a[2]=t5,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); 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_1109,a[2]=t10,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_1109(t12,t8,t3);} /* for-each-loop172 in k1022 in extinguish! in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1109(C_word t0,C_word t1,C_word 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_1109,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_1119,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:203: g173 */ t5=((C_word*)t0)[3]; f_1033(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);}}} /* k1387 in k1404 in k1416 in k1334 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_1389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1389,2,av);} t2=((C_word*)t0)[2]; f_1354(t2,C_i_not(t1));} /* for-each-loop278 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1933(C_word t0,C_word t1,C_word 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_1933,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_1943,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:280: g279 */ t5=((C_word*)t0)[3]; f_1475(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);}}} /* k1580 in k1494 in g307 in k1483 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1582(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_1582,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[25],t3))){ /* lfa2.scm:297: extinguish! */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1020(t4,((C_word*)t0)[4],((C_word*)t0)[5],lf[56]);} else{ t4=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[21]; ((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:300: extinguish! */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1020(t4,((C_word*)t0)[4],((C_word*)t0)[5],lf[57]);} else{ t4=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[21]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k2086 in for-each-loop415 in k2042 in a2039 in k2027 in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_2088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2088,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2078(t3,((C_word*)t0)[4],t2);} /* k1483 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ 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 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_1485,2,av);} a=C_alloc(8); t2=C_i_car(((C_word*)t0)[2]); t3=C_i_assoc(t2,lf[51]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1492,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:281: g307 */ t5=t4; f_1492(t5,((C_word*)t0)[9],t3);} else{ t4=C_u_i_car(((C_word*)t0)[2]); t5=C_i_assoc(t4,lf[58]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1630,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:281: g328 */ t7=t6; f_1630(t7,((C_word*)t0)[9],t5);} else{ t6=C_u_i_car(((C_word*)t0)[2]); t7=C_i_assoc(t6,*((C_word*)lf[0]+1)); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1860,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); /* lfa2.scm:281: g369 */ t9=t8; f_1860(t9,((C_word*)t0)[9],t7);} else{ t8=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}} /* k1416 in k1334 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ 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; C_word t3; C_word 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,2)))){ C_save_and_reclaim((void *)f_1418,2,av);} a=C_alloc(20); t2=(C_truep(t1)?((C_word*)t0)[2]:C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]),((C_word*)t0)[2])); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1354,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]=t3,tmp=(C_word)a,a+=9,tmp); t5=C_slot(((C_word*)t0)[5],C_fix(1)); t6=C_eqp(lf[6],t5); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1406,a[2]=t4,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp); /* lfa2.scm:263: assigned? */ t8=((C_word*)((C_word*)t0)[10])[1]; f_941(t8,t7,((C_word*)t0)[3]);} else{ t7=t4; f_1354(t7,C_SCHEME_FALSE);}} /* k1264 in k1253 in k1250 in k1244 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ 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,4)))){ C_save_and_reclaim((void *)f_1266,2,av);} /* lfa2.scm:247: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1196(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} /* k1117 in for-each-loop172 in k1022 in extinguish! in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_1119(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1119,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1109(t3,((C_word*)t0)[4],t2);} /* ##compiler#perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_795(C_word c,C_word *av){ C_word tmp; C_word t0=av[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 *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,5)))){ C_save_and_reclaim((void *)f_795,4,av);} a=C_alloc(39); 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_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|2,a[1]=(C_word)f_912,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t19=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_941,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t20=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_947,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t21=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1008,tmp=(C_word)a,a+=2,tmp)); t22=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1020,a[2]=t13,a[3]=t11,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t23=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1196,a[2]=t17,a[3]=t9,a[4]=t15,tmp=(C_word)a,a+=5,tmp)); t24=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2029,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:353: walk */ t25=((C_word*)t17)[1]; f_1196(t25,t24,t2,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* k1941 in for-each-loop278 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_1943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1943,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1933(t3,((C_word*)t0)[4],t2);} /* k2059 in k2056 in k2053 in k2050 in for-each-loop415 in k2042 in a2039 in k2027 in perform-secondary-flow-analysis in k746 in k743 in k740 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2061,2,av);} /* lfa2.scm:360: ##sys#write-char-0 */ t2=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* g390 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_1955(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_1955,3,t0,t1,t2);} /* lfa2.scm:350: g405 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_1196(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* for-each-loop415 in k2042 in a2039 in k2027 in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_2078(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_2078,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_2088,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[62]+1); t8=*((C_word*)lf[62]+1); t9=C_i_check_port_2(*((C_word*)lf[62]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[63]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2052,a[2]=t5,a[3]=t7,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* lfa2.scm:360: ##sys#print */ t11=*((C_word*)lf[65]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t10; av2[2]=lf[67]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[62]+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);}}} /* report in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_fcall f_912(C_word t0,C_word 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,1)))){ C_save_and_reclaim_args((void *)trf_912,3,t0,t1,t2);} a=C_alloc(6); 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_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=C_a_i_cons(&a,2,C_a_i_cons(&a,2,t2,C_fix(1)),((C_word*)((C_word*)t0)[2])[1]); t5=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t4); t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k1283 in k1250 in k1244 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_1285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1285,2,av);} t2=C_i_caddr(((C_word*)t0)[2]); /* lfa2.scm:252: walk */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1196(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k1404 in k1416 in k1334 in walk in perform-secondary-flow-analysis in k746 in k743 in k740 */ static void C_ccall f_1406(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1406,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_1354(t2,C_SCHEME_FALSE);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1389,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_car(t3); /* lfa2.scm:264: assigned? */ t5=((C_word*)((C_word*)t0)[4])[1]; f_941(t5,t2,t4);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[67] = { {"f_1067:lfa2_2escm",(void*)f_1067}, {"f_1514:lfa2_2escm",(void*)f_1514}, {"f_1160:lfa2_2escm",(void*)f_1160}, {"f_1965:lfa2_2escm",(void*)f_1965}, {"f_1967:lfa2_2escm",(void*)f_1967}, {"f_1805:lfa2_2escm",(void*)f_1805}, {"toplevel:lfa2_2escm",(void*)C_lfa2_toplevel}, {"f_1170:lfa2_2escm",(void*)f_1170}, {"f_1336:lfa2_2escm",(void*)f_1336}, {"f_1278:lfa2_2escm",(void*)f_1278}, {"f_1246:lfa2_2escm",(void*)f_1246}, {"f_1252:lfa2_2escm",(void*)f_1252}, {"f_1255:lfa2_2escm",(void*)f_1255}, {"f_1196:lfa2_2escm",(void*)f_1196}, {"f_2044:lfa2_2escm",(void*)f_2044}, {"f_2040:lfa2_2escm",(void*)f_2040}, {"f_2055:lfa2_2escm",(void*)f_2055}, {"f_2058:lfa2_2escm",(void*)f_2058}, {"f_2052:lfa2_2escm",(void*)f_2052}, {"f_941:lfa2_2escm",(void*)f_941}, {"f_1630:lfa2_2escm",(void*)f_1630}, {"f_947:lfa2_2escm",(void*)f_947}, {"f_2029:lfa2_2escm",(void*)f_2029}, {"f_1433:lfa2_2escm",(void*)f_1433}, {"f_1977:lfa2_2escm",(void*)f_1977}, {"f_1737:lfa2_2escm",(void*)f_1737}, {"f_1449:lfa2_2escm",(void*)f_1449}, {"f_1354:lfa2_2escm",(void*)f_1354}, {"f_1033:lfa2_2escm",(void*)f_1033}, {"f_1870:lfa2_2escm",(void*)f_1870}, {"f_742:lfa2_2escm",(void*)f_742}, {"f_745:lfa2_2escm",(void*)f_745}, {"f_748:lfa2_2escm",(void*)f_748}, {"f_1860:lfa2_2escm",(void*)f_1860}, {"f_1008:lfa2_2escm",(void*)f_1008}, {"f_1728:lfa2_2escm",(void*)f_1728}, {"f_1012:lfa2_2escm",(void*)f_1012}, {"f_1015:lfa2_2escm",(void*)f_1015}, {"f_1725:lfa2_2escm",(void*)f_1725}, {"f_1074:lfa2_2escm",(void*)f_1074}, {"f_1499:lfa2_2escm",(void*)f_1499}, {"f_1496:lfa2_2escm",(void*)f_1496}, {"f_1040:lfa2_2escm",(void*)f_1040}, {"f_1492:lfa2_2escm",(void*)f_1492}, {"f_988:lfa2_2escm",(void*)f_988}, {"f_1050:lfa2_2escm",(void*)f_1050}, {"f_1020:lfa2_2escm",(void*)f_1020}, {"f_1475:lfa2_2escm",(void*)f_1475}, {"f_1024:lfa2_2escm",(void*)f_1024}, {"f_1109:lfa2_2escm",(void*)f_1109}, {"f_1389:lfa2_2escm",(void*)f_1389}, {"f_1933:lfa2_2escm",(void*)f_1933}, {"f_1582:lfa2_2escm",(void*)f_1582}, {"f_2088:lfa2_2escm",(void*)f_2088}, {"f_1485:lfa2_2escm",(void*)f_1485}, {"f_1418:lfa2_2escm",(void*)f_1418}, {"f_1266:lfa2_2escm",(void*)f_1266}, {"f_1119:lfa2_2escm",(void*)f_1119}, {"f_795:lfa2_2escm",(void*)f_795}, {"f_1943:lfa2_2escm",(void*)f_1943}, {"f_2061:lfa2_2escm",(void*)f_2061}, {"f_1955:lfa2_2escm",(void*)f_1955}, {"f_2078:lfa2_2escm",(void*)f_2078}, {"f_912:lfa2_2escm",(void*)f_912}, {"f_1285:lfa2_2escm",(void*)f_1285}, {"f_1406:lfa2_2escm",(void*)f_1406}, {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| for-each 4 S| printf 2 o|eliminated procedure checks: 45 o|specializations: o| 6 (first pair) o| 3 (car pair) o| 6 (cdr pair) o| 1 (caar (pair pair *)) o| 3 (eqv? (not float) *) o| 1 (memq * list) o| 15 (eqv? * (not float)) o| 1 (make-string fixnum char) o| 2 (##sys#check-output-port * * *) (o e)|safe calls: 178 (o e)|assignments to immediate values: 1 o|safe globals: (##compiler#perform-secondary-flow-analysis +constructor-map+ +predicate-map+ +type-check-map+ dd d lfa2-debug d-depth) o|Removed `not' forms: 2 o|removed side-effect free assignment to unused variable: lfa2-debug o|propagated global variable: out2832 ##sys#standard-output o|substituted constant variable: a761 o|substituted constant variable: a762 o|inlining procedure: k754 o|substituted constant variable: d-depth o|substituted constant variable: d-depth o|substituted constant variable: a786 o|substituted constant variable: d-depth o|propagated global variable: out2832 ##sys#standard-output o|inlining procedure: k754 o|removed side-effect free assignment to unused variable: dd o|inlining procedure: k917 o|contracted procedure: "(lfa2.scm:155) g131132" o|inlining procedure: k917 o|substituted constant variable: a958 o|inlining procedure: k959 o|inlining procedure: k959 o|inlining procedure: k974 o|inlining procedure: k974 o|contracted procedure: "(lfa2.scm:194) g153154" o|contracted procedure: "(lfa2.scm:192) g147148" o|contracted procedure: "(lfa2.scm:191) g143144" o|contracted procedure: "(lfa2.scm:189) g139140" o|inlining procedure: k1035 o|inlining procedure: k1035 o|inlining procedure: k1051 o|inlining procedure: k1051 o|inlining procedure: k1072 o|inlining procedure: k1072 o|inlining procedure: k1084 o|inlining procedure: k1084 o|substituted constant variable: a1094 o|substituted constant variable: a1096 o|substituted constant variable: a1098 o|contracted procedure: "(lfa2.scm:218) g194195" o|inlining procedure: k1111 o|inlining procedure: k1111 o|contracted procedure: "(lfa2.scm:203) g167168" o|contracted procedure: "(lfa2.scm:202) g162163" o|inlining procedure: k1222 o|contracted procedure: "(lfa2.scm:240) vartype107" o|inlining procedure: k1150 o|inlining procedure: k1150 o|inlining procedure: k1162 o|inlining procedure: k1162 o|inlining procedure: k1222 o|inlining procedure: k1247 o|inlining procedure: k1247 o|inlining procedure: k1309 o|contracted procedure: "(lfa2.scm:253) constant-result101" o|inlining procedure: k800 o|inlining procedure: k800 o|inlining procedure: k812 o|inlining procedure: k812 o|inlining procedure: k824 o|inlining procedure: k836 o|inlining procedure: k836 o|substituted constant variable: a843 o|propagated global variable: tmp114119 number-type o|substituted constant variable: a845 o|inlining procedure: k824 o|inlining procedure: k852 o|inlining procedure: k852 o|inlining procedure: k864 o|inlining procedure: k864 o|inlining procedure: k876 o|inlining procedure: k876 o|inlining procedure: k895 o|inlining procedure: k895 o|contracted procedure: k901 o|inlining procedure: k1309 o|inlining procedure: k1349 o|contracted procedure: "(lfa2.scm:265) g262263" o|inlining procedure: k1349 o|contracted procedure: k1380 o|inlining procedure: k1377 o|inlining procedure: k1377 o|contracted procedure: "(lfa2.scm:264) g258259" o|contracted procedure: "(lfa2.scm:262) g254255" o|inlining procedure: k1422 o|inlining procedure: k1422 o|inlining procedure: k1454 o|inlining procedure: k1454 o|inlining procedure: k1466 o|inlining procedure: k1497 o|inlining procedure: k1497 o|inlining procedure: k1509 o|contracted procedure: "(lfa2.scm:291) g321322" o|inlining procedure: k1509 o|inlining procedure: k1553 o|contracted procedure: "(lfa2.scm:290) g317318" o|inlining procedure: k1553 o|inlining procedure: k1577 o|inlining procedure: k1577 o|inlining procedure: k1635 o|inlining procedure: k1657 o|inlining procedure: k1672 o|inlining procedure: k1672 o|contracted procedure: "(lfa2.scm:312) g345346" o|contracted procedure: "(lfa2.scm:310) g341342" o|inlining procedure: k1657 o|contracted procedure: "(lfa2.scm:307) g338339" o|inlining procedure: k1635 o|inlining procedure: k1732 o|contracted procedure: "(lfa2.scm:327) g362363" o|inlining procedure: k1732 o|inlining procedure: k1776 o|contracted procedure: "(lfa2.scm:325) g358359" o|inlining procedure: k1776 o|inlining procedure: k1800 o|inlining procedure: k1800 o|contracted procedure: "(lfa2.scm:305) g332333" o|inlining procedure: k1627 o|inlining procedure: k1627 o|inlining procedure: k1865 o|contracted procedure: "(lfa2.scm:344) g380381" o|inlining procedure: k1865 o|inlining procedure: k1895 o|contracted procedure: "(lfa2.scm:343) g376377" o|inlining procedure: k1895 o|substituted constant variable: +predicate-map+ o|substituted constant variable: +type-check-map+ o|inlining procedure: k1935 o|inlining procedure: k1935 o|inlining procedure: k1466 o|inlining procedure: k1969 o|inlining procedure: k1969 o|substituted constant variable: a1993 o|substituted constant variable: a1995 o|substituted constant variable: a1997 o|substituted constant variable: a1999 o|substituted constant variable: a2004 o|substituted constant variable: a2006 o|substituted constant variable: a2011 o|substituted constant variable: a2013 o|substituted constant variable: a2015 o|substituted constant variable: a2017 o|substituted constant variable: a2022 o|substituted constant variable: a2024 o|substituted constant variable: a2026 o|contracted procedure: "(lfa2.scm:237) g230231" o|contracted procedure: "(lfa2.scm:236) g227228" o|contracted procedure: "(lfa2.scm:235) g224225" o|inlining procedure: k2030 o|inlining procedure: k2080 o|contracted procedure: "(lfa2.scm:359) g416423" o|propagated global variable: out426430 ##sys#standard-output o|substituted constant variable: a2048 o|substituted constant variable: a2049 o|propagated global variable: out426430 ##sys#standard-output o|inlining procedure: k2080 o|inlining procedure: k2030 o|replaced variables: 298 o|removed binding forms: 84 o|removed side-effect free assignment to unused variable: d-depth o|removed side-effect free assignment to unused variable: d o|removed side-effect free assignment to unused variable: +type-check-map+ o|removed side-effect free assignment to unused variable: +predicate-map+ o|substituted constant variable: mark156 o|substituted constant variable: r10732112 o|substituted constant variable: r10732112 o|inlining procedure: k1072 o|inlining procedure: k1072 o|substituted constant variable: r10852116 o|substituted constant variable: r11632123 o|substituted constant variable: r8012129 o|substituted constant variable: r8132131 o|substituted constant variable: r8372134 o|substituted constant variable: r8372135 o|propagated global variable: tmp114119 number-type o|substituted constant variable: r8532137 o|substituted constant variable: r8652139 o|substituted constant variable: r8772141 o|substituted constant variable: r8962143 o|substituted constant variable: r8962144 o|substituted constant variable: r13782150 o|substituted constant variable: r14232152 o|substituted constant variable: r14552154 o|inlining procedure: k1497 o|inlining procedure: k1497 o|substituted constant variable: r15542164 o|inlining procedure: k1497 o|inlining procedure: k1497 o|inlining procedure: k1657 o|substituted constant variable: r16732171 o|inlining procedure: k1657 o|substituted constant variable: r16362174 o|inlining procedure: k1726 o|inlining procedure: k1726 o|substituted constant variable: r17772178 o|inlining procedure: k1726 o|inlining procedure: k1726 o|substituted constant variable: r18962186 o|substituted constant variable: r14672189 o|propagated global variable: out426430 ##sys#standard-output o|replaced variables: 13 o|removed binding forms: 282 o|inlining procedure: k1521 o|substituted constant variable: r16582210 o|substituted constant variable: r16582212 o|substituted constant variable: r163621742215 o|substituted constant variable: r163621742217 o|substituted constant variable: r163621742219 o|substituted constant variable: r163621742221 o|replaced variables: 30 o|removed binding forms: 52 o|substituted constant variable: r10732196 o|substituted constant variable: r10732198 o|substituted constant variable: r15222234 o|inlining procedure: k1744 o|removed binding forms: 39 o|removed conditional forms: 1 o|substituted constant variable: r17452246 o|removed binding forms: 4 o|removed conditional forms: 1 o|removed binding forms: 1 o|simplifications: ((if . 10) (##core#call . 175)) o| call simplifications: o| car o| ##sys#cons 3 o| cadr 6 o| member 2 o| memq 2 o| string? o| symbol? 5 o| fixnum? o| flonum? o| number? o| boolean? o| list? o| eof-object? o| vector? o| ##sys#immediate? o| ##sys#generic-structure? o| char? o| ##sys#list 5 o| second 12 o| third 3 o| null? 2 o| cdar o| assq 2 o| ##sys#check-list 4 o| pair? 12 o| length o| list o| eq? 37 o| ##sys#slot 31 o| first 19 o| not 2 o| assoc 4 o| alist-cons 4 o| cdr 3 o| add1 o| set-cdr! o|contracted procedure: k914 o|contracted procedure: k930 o|contracted procedure: k926 o|contracted procedure: k937 o|contracted procedure: k955 o|contracted procedure: k1004 o|contracted procedure: k965 o|contracted procedure: k995 o|contracted procedure: k968 o|contracted procedure: k971 o|contracted procedure: k1030 o|contracted procedure: k1045 o|contracted procedure: k1061 o|contracted procedure: k1105 o|contracted procedure: k1069 o|contracted procedure: k1075 o|contracted procedure: k1081 o|contracted procedure: k1087 o|contracted procedure: k1114 o|contracted procedure: k1124 o|contracted procedure: k1128 o|contracted procedure: k1141 o|contracted procedure: k1132 o|contracted procedure: k1203 o|contracted procedure: k1211 o|contracted procedure: k1219 o|contracted procedure: k1225 o|contracted procedure: k1232 o|contracted procedure: k1147 o|contracted procedure: k1165 o|contracted procedure: k1192 o|contracted procedure: k1182 o|contracted procedure: k1238 o|contracted procedure: k1241 o|contracted procedure: k1260 o|contracted procedure: k1268 o|contracted procedure: k1272 o|contracted procedure: k1280 o|contracted procedure: k1290 o|contracted procedure: k1294 o|contracted procedure: k1297 o|contracted procedure: k1306 o|contracted procedure: k1312 o|contracted procedure: k1319 o|contracted procedure: k803 o|contracted procedure: k809 o|contracted procedure: k815 o|contracted procedure: k821 o|contracted procedure: k827 o|contracted procedure: k833 o|contracted procedure: k839 o|contracted procedure: k849 o|contracted procedure: k855 o|contracted procedure: k861 o|contracted procedure: k867 o|contracted procedure: k873 o|contracted procedure: k879 o|contracted procedure: k908 o|contracted procedure: k885 o|contracted procedure: k892 o|contracted procedure: k898 o|contracted procedure: k1325 o|contracted procedure: k1328 o|contracted procedure: k1331 o|contracted procedure: k1341 o|contracted procedure: k1345 o|contracted procedure: k1371 o|contracted procedure: k1355 o|contracted procedure: k1362 o|contracted procedure: k1349 o|contracted procedure: k1413 o|contracted procedure: k1374 o|contracted procedure: k1400 o|contracted procedure: k1391 o|contracted procedure: k1425 o|contracted procedure: k1428 o|contracted procedure: k1435 o|contracted procedure: k1441 o|contracted procedure: k1444 o|contracted procedure: k1451 o|contracted procedure: k1457 o|contracted procedure: k1463 o|contracted procedure: k1469 o|contracted procedure: k1472 o|contracted procedure: k1480 o|contracted procedure: k1929 o|contracted procedure: k1486 o|contracted procedure: k1614 o|contracted procedure: k1506 o|contracted procedure: k1547 o|contracted procedure: k1543 o|contracted procedure: k1515 o|contracted procedure: k1527 o|contracted procedure: k1534 o|contracted procedure: k1521 o|contracted procedure: k1550 o|contracted procedure: k1556 o|contracted procedure: k1572 o|contracted procedure: k1568 o|contracted procedure: k1586 o|contracted procedure: k1597 o|contracted procedure: k1605 o|contracted procedure: k1618 o|contracted procedure: k1624 o|contracted procedure: k1632 o|contracted procedure: k1848 o|contracted procedure: k1638 o|contracted procedure: k1645 o|contracted procedure: k1720 o|contracted procedure: k1653 o|contracted procedure: k1711 o|contracted procedure: k1660 o|contracted procedure: k1704 o|contracted procedure: k1700 o|contracted procedure: k1666 o|contracted procedure: k1691 o|contracted procedure: k1687 o|contracted procedure: k1669 o|contracted procedure: k1675 o|inlining procedure: k1657 o|inlining procedure: k1657 o|contracted procedure: k1837 o|contracted procedure: k1729 o|contracted procedure: k1770 o|contracted procedure: k1766 o|contracted procedure: k1738 o|contracted procedure: k1750 o|contracted procedure: k1757 o|contracted procedure: k1744 o|contracted procedure: k1773 o|contracted procedure: k1779 o|contracted procedure: k1795 o|contracted procedure: k1791 o|contracted procedure: k1809 o|contracted procedure: k1820 o|contracted procedure: k1828 o|contracted procedure: k1854 o|contracted procedure: k1917 o|contracted procedure: k1862 o|contracted procedure: k1889 o|contracted procedure: k1871 o|contracted procedure: k1877 o|contracted procedure: k1914 o|contracted procedure: k1898 o|contracted procedure: k1910 o|contracted procedure: k1938 o|contracted procedure: k1948 o|contracted procedure: k1952 o|contracted procedure: k1960 o|contracted procedure: k1972 o|contracted procedure: k1982 o|contracted procedure: k1986 o|contracted procedure: k2033 o|contracted procedure: k2071 o|contracted procedure: k2083 o|contracted procedure: k2093 o|contracted procedure: k2097 o|contracted procedure: k2068 o|simplifications: ((let . 31)) o|removed binding forms: 156 o|inlining procedure: k1649 o|inlining procedure: k1649 o|inlining procedure: k1649 o|inlining procedure: k1649 o|replaced variables: 51 o|removed binding forms: 1 o|replaced variables: 4 o|removed binding forms: 16 o|removed binding forms: 1 o|customizable procedures: (for-each-loop415436 g390397 for-each-loop389407 g279286 for-each-loop278296 g369370 k1868 g328329 k1803 k1735 g307308 k1580 k1512 extinguish!106 assigned?103 k1352 k1250 walk108 k1168 loop208 report102 g173180 for-each-loop172183 droppable?104 drop!105) o|calls to known targets: 65 o|identified direct recursive calls: f_1196 4 o|fast box initializations: 11 o|dropping unused closure argument: f_1008 */ /* end of file */ chicken-4.12.0/ports.c0000644000175000017500000031266313052306223014332 0ustar sjamaansjamaan/* Generated from ports.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:16 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: ports.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file ports.c unit: ports */ #include "chicken.h" 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; static C_TLS C_word lf[40]; 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,28),40,112,111,114,116,45,102,111,114,45,101,97,99,104,32,102,110,54,52,32,116,104,117,110,107,54,53,41,0,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,120,115,55,52,41,0,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,23),40,112,111,114,116,45,109,97,112,32,102,110,55,49,32,116,104,117,110,107,55,50,41,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,97,99,99,56,50,41,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,30),40,112,111,114,116,45,102,111,108,100,32,102,110,55,56,32,97,99,99,55,57,32,116,104,117,110,107,56,48,41,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,19),40,102,95,56,55,54,32,98,117,102,49,53,48,32,110,49,53,49,41,0,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,49,48,51,32,105,49,48,53,41}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,19),40,102,95,56,56,49,32,98,117,102,49,53,50,32,110,49,53,51,41,0,0,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,110,49,49,57,41,0,0,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,6),40,97,56,57,56,41,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,11),40,97,57,48,52,32,120,49,53,52,41,0,0,0,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,38),40,99,111,112,121,45,112,111,114,116,32,115,114,99,49,51,51,32,100,101,115,116,49,51,52,32,46,32,116,109,112,49,51,50,49,51,53,41,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,17),40,103,49,54,53,32,103,49,55,55,49,55,56,49,55,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,54,52,32,103,49,55,49,49,56,51,41,0,0,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,11),40,97,57,52,48,32,115,49,54,49,41,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,56,57,32,103,49,57,54,50,48,48,41,0,0,0,0,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,6),40,97,57,55,52,41,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,32),40,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,49,54,48,41}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,7),40,97,49,48,49,50,41,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,7),40,97,49,48,52,55,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,7),40,97,49,48,54,55,41,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,110,50,51,48,32,99,50,51,49,41}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,34),40,97,49,49,48,50,32,112,50,50,53,32,110,50,50,54,32,100,101,115,116,50,50,55,32,115,116,97,114,116,50,50,56,41,0,0,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,41),40,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,50,48,53,32,46,32,112,111,114,116,115,50,48,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,7),40,97,49,49,54,52,41,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,7),40,97,49,49,54,57,41,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,7),40,97,49,49,55,53,41,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,39),40,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,50,52,48,32,116,104,117,110,107,50,52,49,41,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,7),40,97,49,49,56,57,41,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,7),40,97,49,49,57,52,41,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,7),40,97,49,50,48,48,41,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,38),40,119,105,116,104,45,111,117,116,112,117,116,45,116,111,45,112,111,114,116,32,112,111,114,116,50,53,52,32,116,104,117,110,107,50,53,53,41,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,7),40,97,49,50,49,52,41,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,7),40,97,49,50,49,57,41,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,7),40,97,49,50,50,53,41,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,44),40,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,50,54,56,32,116,104,117,110,107,50,54,57,41,0,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,39),40,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,50,56,50,32,112,114,111,99,50,56,51,41,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,33),40,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,50,56,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,7),40,97,49,50,54,48,41,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,7),40,97,49,50,54,53,41,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,7),40,97,49,50,55,49,41,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,40),40,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,50,57,48,32,116,104,117,110,107,50,57,49,41}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,7),40,97,49,50,56,53,41,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,7),40,97,49,50,57,48,41,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,7),40,97,49,50,57,57,41,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,32),40,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,51,48,51,41}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,12),40,97,49,51,52,51,32,112,51,51,57,41,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,12),40,97,49,51,54,52,32,112,51,52,53,41,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,12),40,97,49,51,56,53,32,112,51,53,50,41,0,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,12),40,97,49,51,57,52,32,112,51,53,52,41,0,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,56),40,109,97,107,101,45,105,110,112,117,116,45,112,111,114,116,32,114,101,97,100,51,50,48,32,114,101,97,100,121,63,51,50,49,32,99,108,111,115,101,51,50,50,32,46,32,116,109,112,51,49,57,51,50,51,41}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,17),40,97,49,52,54,54,32,112,51,55,50,32,99,51,55,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,17),40,97,49,52,55,54,32,112,51,55,52,32,115,51,55,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,12),40,97,49,52,56,50,32,112,51,55,54,41,0,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,12),40,97,49,52,57,49,32,112,51,55,56,41,0,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,48),40,109,97,107,101,45,111,117,116,112,117,116,45,112,111,114,116,32,119,114,105,116,101,51,54,51,32,99,108,111,115,101,51,54,52,32,46,32,116,109,112,51,54,50,51,54,53,41}; static C_char C_TLS li61[] 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_1231) static void C_ccall f_1231(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_843) static void C_ccall f_843(C_word c,C_word *av) C_noret; C_noret_decl(f_1176) static void C_ccall f_1176(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_1244) static void C_ccall f_1244(C_word c,C_word *av) 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_1084) static void C_ccall f_1084(C_word c,C_word *av) C_noret; C_noret_decl(f_1240) static void C_ccall f_1240(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_1181) static void C_ccall f_1181(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_1013) static void C_ccall f_1013(C_word c,C_word *av) C_noret; C_noret_decl(f_1019) static void C_fcall f_1019(C_word t0,C_word t1) C_noret; C_noret_decl(f_1252) static void C_ccall f_1252(C_word c,C_word *av) C_noret; C_noret_decl(f_1195) static void C_ccall f_1195(C_word c,C_word *av) C_noret; C_noret_decl(f_1395) static void C_ccall f_1395(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_1390) static void C_ccall f_1390(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_1449) static void C_ccall f_1449(C_word c,C_word *av) C_noret; C_noret_decl(f_1029) static void C_ccall f_1029(C_word c,C_word *av) C_noret; C_noret_decl(C_ports_toplevel) C_externexport void C_ccall C_ports_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(f_1261) static void C_ccall f_1261(C_word c,C_word *av) C_noret; C_noret_decl(f_1365) static void C_ccall f_1365(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_881) static void C_ccall f_881(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_1381) static void C_ccall f_1381(C_word c,C_word *av) C_noret; C_noret_decl(f_679) static void C_ccall f_679(C_word c,C_word *av) C_noret; C_noret_decl(f_729) static void C_ccall f_729(C_word c,C_word *av) C_noret; C_noret_decl(f_720) static void C_ccall f_720(C_word c,C_word *av) C_noret; C_noret_decl(f_1109) static void C_fcall f_1109(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1004) static void C_ccall f_1004(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_716) static void C_fcall f_716(C_word t0,C_word t1) C_noret; C_noret_decl(f_711) static void C_ccall f_711(C_word c,C_word *av) C_noret; C_noret_decl(f_691) static void C_ccall f_691(C_word c,C_word *av) C_noret; C_noret_decl(f_681) static void C_ccall f_681(C_word c,C_word *av) C_noret; C_noret_decl(f_687) static void C_fcall f_687(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_905) static void C_ccall f_905(C_word c,C_word *av) C_noret; C_noret_decl(f_1125) static void C_ccall f_1125(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_noret; C_noret_decl(f_899) static void C_ccall f_899(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_1462) static void C_ccall f_1462(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_1277) static void C_ccall f_1277(C_word c,C_word *av) C_noret; C_noret_decl(f_1305) static void C_ccall f_1305(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_1272) static void C_ccall f_1272(C_word c,C_word *av) C_noret; C_noret_decl(f_751) static void C_ccall f_751(C_word c,C_word *av) C_noret; C_noret_decl(f_1156) static void C_ccall f_1156(C_word c,C_word *av) C_noret; C_noret_decl(f_1286) static void C_ccall f_1286(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_1467) static void C_ccall f_1467(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_1483) static void C_ccall f_1483(C_word c,C_word *av) C_noret; C_noret_decl(f_704) static void C_ccall f_704(C_word c,C_word *av) C_noret; C_noret_decl(f_1165) static void C_ccall f_1165(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_1477) static void C_ccall f_1477(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_1492) static void C_ccall f_1492(C_word c,C_word *av) C_noret; C_noret_decl(f_778) static void C_ccall f_778(C_word c,C_word *av) C_noret; C_noret_decl(f_774) static void C_fcall f_774(C_word t0,C_word t1) C_noret; C_noret_decl(f_1068) static void C_ccall f_1068(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_1344) static void C_ccall f_1344(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_796) static void C_ccall f_796(C_word c,C_word *av) C_noret; C_noret_decl(f_975) static void C_ccall f_975(C_word c,C_word *av) C_noret; C_noret_decl(f_741) static void C_fcall f_741(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_981) static void C_fcall f_981(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_952) static void C_fcall f_952(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_631) static void C_fcall f_631(C_word t0,C_word t1) 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_808) static void C_ccall f_808(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_word t2) C_noret; C_noret_decl(f_805) static void C_fcall f_805(C_word t0,C_word t1) 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_1206) static void C_ccall f_1206(C_word c,C_word *av) C_noret; C_noret_decl(f_620) static void C_ccall f_620(C_word c,C_word *av) C_noret; C_noret_decl(f_1201) static void C_ccall f_1201(C_word c,C_word *av) C_noret; C_noret_decl(f_625) static void C_ccall f_625(C_word c,C_word *av) C_noret; C_noret_decl(f_623) static void C_ccall f_623(C_word c,C_word *av) C_noret; C_noret_decl(f_1048) static void C_ccall f_1048(C_word c,C_word *av) 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_659) static void C_ccall f_659(C_word c,C_word *av) C_noret; C_noret_decl(f_943) static void C_fcall f_943(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_941) static void C_ccall f_941(C_word c,C_word *av) C_noret; C_noret_decl(f_655) static void C_fcall f_655(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1215) static void C_ccall f_1215(C_word c,C_word *av) C_noret; C_noret_decl(f_649) static void C_ccall f_649(C_word c,C_word *av) C_noret; C_noret_decl(f_644) static void C_ccall f_644(C_word c,C_word *av) C_noret; C_noret_decl(f_1226) static void C_ccall f_1226(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_1235) static void C_ccall f_1235(C_word c,C_word *av) C_noret; C_noret_decl(f_1074) static void C_fcall f_1074(C_word t0,C_word t1) 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_1109) static void C_ccall trf_1109(C_word c,C_word *av) C_noret; static void C_ccall trf_1109(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1109(t0,t1,t2,t3);} C_noret_decl(trf_716) static void C_ccall trf_716(C_word c,C_word *av) C_noret; static void C_ccall trf_716(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_716(t0,t1);} C_noret_decl(trf_687) static void C_ccall trf_687(C_word c,C_word *av) C_noret; static void C_ccall trf_687(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_687(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_1128(t0,t1);} C_noret_decl(trf_774) static void C_ccall trf_774(C_word c,C_word *av) C_noret; static void C_ccall trf_774(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_774(t0,t1);} C_noret_decl(trf_741) static void C_ccall trf_741(C_word c,C_word *av) C_noret; static void C_ccall trf_741(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_741(t0,t1,t2);} C_noret_decl(trf_981) static void C_ccall trf_981(C_word c,C_word *av) C_noret; static void C_ccall trf_981(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_981(t0,t1,t2);} C_noret_decl(trf_952) static void C_ccall trf_952(C_word c,C_word *av) C_noret; static void C_ccall trf_952(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_952(t0,t1,t2);} C_noret_decl(trf_631) static void C_ccall trf_631(C_word c,C_word *av) C_noret; static void C_ccall trf_631(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_631(t0,t1);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_801(t0,t1,t2);} C_noret_decl(trf_805) static void C_ccall trf_805(C_word c,C_word *av) C_noret; static void C_ccall trf_805(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_805(t0,t1);} C_noret_decl(trf_943) static void C_ccall trf_943(C_word c,C_word *av) C_noret; static void C_ccall trf_943(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_943(t0,t1,t2);} C_noret_decl(trf_655) static void C_ccall trf_655(C_word c,C_word *av) C_noret; static void C_ccall trf_655(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_655(t0,t1,t2);} C_noret_decl(trf_1074) static void C_ccall trf_1074(C_word c,C_word *av) C_noret; static void C_ccall trf_1074(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1074(t0,t1);} /* call-with-input-string in k621 in k618 */ static void C_ccall f_1231(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1231,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1235,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* ports.scm:185: open-input-string */ t5=*((C_word*)lf[27]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* copy-port in k621 in k618 */ 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=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_846,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_876,a[2]=t3,a[3]=((C_word)li6),tmp=(C_word)a,a+=4,tmp):(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_881,a[2]=t3,a[3]=t12,a[4]=((C_word)li8),tmp=(C_word)a,a+=5,tmp)); t18=t1; t19=t2; t20=t17; t21=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_711,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[9]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[9]+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_796,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[9]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[9]+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_899,a[2]=t7,a[3]=t2,a[4]=((C_word)li11),tmp=(C_word)a,a+=5,tmp); t18=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_905,a[2]=t12,a[3]=t3,a[4]=((C_word)li12),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_774,a[2]=t23,a[3]=t21,a[4]=t20,a[5]=((C_word)li13),tmp=(C_word)a,a+=6,tmp)); t25=((C_word*)t23)[1]; f_774(t25,t19);}}} /* k841 in loop in k794 in copy-port in k621 in k618 */ 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 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_843,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_fix(0)); t3=((C_word*)t0)[3]; f_805(t3,t2);} /* a1175 in with-input-from-port in k621 in k618 */ static void C_ccall f_1176(C_word c,C_word *av){ C_word tmp; 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_1176,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[20]+1)); t3=C_mutate2((C_word*)lf[20]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a1169 in with-input-from-port in k621 in k618 */ 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 *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_1170,2,av);} /* ports.scm:169: thunk */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k1242 in call-with-output-string in k621 in k618 */ static void C_ccall f_1244(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1244,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1247,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* ports.scm:191: proc */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k1245 in k1242 in call-with-output-string in k621 in k618 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1247,2,av);} /* ports.scm:192: get-output-string */ t2=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1082 in loop in a1067 in make-concatenated-port in k621 in k618 */ static void C_ccall f_1084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1084,2,av);} if(C_truep(C_eofp(t1))){ t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); /* ports.scm:151: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1074(t4,((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* call-with-output-string in k621 in k618 */ static void C_ccall f_1240(C_word c,C_word *av){ C_word tmp; C_word 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_1240,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1244,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* ports.scm:190: open-output-string */ t4=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_876 in copy-port in k621 in k618 */ 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=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_876,4,av);} /* ports.scm:109: write-string */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* with-output-to-port in k621 in k618 */ 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=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_1181,4,av);} a=C_alloc(18); t4=t2; t5=C_i_check_port_2(t4,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[22]); 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_1190,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_1195,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_1201,a[2]=t7,a[3]=t9,a[4]=((C_word)li35),tmp=(C_word)a,a+=5,tmp); /* ports.scm:173: ##sys#dynamic-wind */ t13=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1254 in with-input-from-string in k621 in k618 */ 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 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_1256,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_1261,a[2]=t5,a[3]=t3,a[4]=((C_word)li43),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1266,a[2]=((C_word*)t0)[2],a[3]=((C_word)li44),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1272,a[2]=t3,a[3]=t5,a[4]=((C_word)li45),tmp=(C_word)a,a+=5,tmp); /* ports.scm:195: ##sys#dynamic-wind */ t9=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1012 in make-concatenated-port in k621 in k618 */ static void C_ccall f_1013(C_word c,C_word *av){ C_word tmp; C_word t0=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_1013,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_1019,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li21),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_1019(t5,t1);} /* loop in a1012 in make-concatenated-port in k621 in k618 */ static void C_fcall f_1019(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_1019,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_1029,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]); /* read-char/port */ t4=*((C_word*)lf[15]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* with-input-from-string in k621 in k618 */ static void C_ccall f_1252(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1252,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1256,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* ports.scm:196: open-input-string */ t5=*((C_word*)lf[27]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* a1194 in with-output-to-port in k621 in k618 */ static void C_ccall f_1195(C_word c,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_1195,2,av);} /* ports.scm:174: thunk */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a1394 in make-input-port in k621 in k618 */ static void C_ccall f_1395(C_word c,C_word *av){ C_word tmp; C_word 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_1395,3,av);} /* ports.scm:238: ready? */ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* a1189 in with-output-to-port in k621 in k618 */ 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; 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_1190,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[23]+1)); t3=C_mutate2((C_word*)lf[23]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1388 in a1385 in make-input-port in k621 in k618 */ static void C_ccall f_1390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1390,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_set_i_slot(((C_word*)t0)[3],C_fix(8),C_SCHEME_TRUE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a1265 in k1254 in with-input-from-string in k621 in k618 */ 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!=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_1266,2,av);} /* ports.scm:197: thunk */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* make-output-port in k621 in k618 */ static void C_ccall f_1449(C_word c,C_word *av){ C_word tmp; C_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_1449,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_1467,a[2]=t2,a[3]=((C_word)li56),tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1477,a[2]=t2,a[3]=((C_word)li57),tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1483,a[2]=t3,a[3]=((C_word)li58),tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1492,a[2]=t7,a[3]=((C_word)li59),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_1462,a[2]=t1,a[3]=t14,tmp=(C_word)a,a+=4,tmp); /* ports.scm:266: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[34]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[34]+1); av2[1]=t15; av2[2]=C_SCHEME_FALSE; av2[3]=t12; av2[4]=lf[37]; av2[5]=lf[36]; tp(6,av2);}} /* k1027 in loop in a1012 in make-concatenated-port in k621 in k618 */ 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; 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_1029,2,av);} if(C_truep(C_eofp(t1))){ t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); /* ports.scm:138: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1019(t4,((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_ports_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("ports_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_ports_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(266))){ C_save(t1); C_rereclaim2(266*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,40); lf[0]=C_h_intern(&lf[0],13,"port-for-each"); lf[1]=C_h_intern(&lf[1],8,"port-map"); lf[2]=C_h_intern(&lf[2],16,"\003sysfast-reverse"); lf[3]=C_h_intern(&lf[3],9,"port-fold"); lf[4]=C_h_intern(&lf[4],9,"read-char"); lf[5]=C_h_intern(&lf[5],10,"write-char"); lf[6]=C_h_intern(&lf[6],9,"copy-port"); lf[7]=C_h_intern(&lf[7],12,"write-string"); lf[8]=C_h_intern(&lf[8],12,"read-string!"); lf[9]=C_h_intern(&lf[9],15,"\003sysmake-string"); lf[10]=C_h_intern(&lf[10],19,"make-broadcast-port"); lf[11]=C_h_intern(&lf[11],12,"flush-output"); lf[12]=C_h_intern(&lf[12],16,"make-output-port"); lf[13]=C_h_intern(&lf[13],4,"void"); lf[14]=C_h_intern(&lf[14],22,"make-concatenated-port"); lf[15]=C_h_intern(&lf[15],18,"\003sysread-char/port"); lf[16]=C_h_intern(&lf[16],11,"char-ready\077"); lf[17]=C_h_intern(&lf[17],9,"peek-char"); lf[18]=C_h_intern(&lf[18],15,"make-input-port"); lf[19]=C_h_intern(&lf[19],20,"with-input-from-port"); lf[20]=C_h_intern(&lf[20],18,"\003sysstandard-input"); lf[21]=C_h_intern(&lf[21],16,"\003sysdynamic-wind"); lf[22]=C_h_intern(&lf[22],19,"with-output-to-port"); lf[23]=C_h_intern(&lf[23],19,"\003sysstandard-output"); lf[24]=C_h_intern(&lf[24],25,"with-error-output-to-port"); lf[25]=C_h_intern(&lf[25],18,"\003sysstandard-error"); lf[26]=C_h_intern(&lf[26],22,"call-with-input-string"); lf[27]=C_h_intern(&lf[27],17,"open-input-string"); lf[28]=C_h_intern(&lf[28],23,"call-with-output-string"); lf[29]=C_h_intern(&lf[29],17,"get-output-string"); lf[30]=C_h_intern(&lf[30],18,"open-output-string"); lf[31]=C_h_intern(&lf[31],22,"with-input-from-string"); lf[32]=C_h_intern(&lf[32],21,"with-output-to-string"); lf[33]=C_h_intern(&lf[33],18,"\003sysset-port-data!"); lf[34]=C_h_intern(&lf[34],13,"\003sysmake-port"); lf[35]=C_decode_literal(C_heaptop,"\376B\000\000\010(custom)"); lf[36]=C_h_intern(&lf[36],6,"custom"); lf[37]=C_decode_literal(C_heaptop,"\376B\000\000\010(custom)"); lf[38]=C_h_intern(&lf[38],17,"register-feature!"); lf[39]=C_h_intern(&lf[39],5,"ports"); C_register_lf2(lf,40,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_620,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* a1260 in k1254 in with-input-from-string in k621 in k618 */ static void C_ccall f_1261(C_word c,C_word *av){ C_word tmp; 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_1261,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[20]+1)); t3=C_mutate2((C_word*)lf[20]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a1364 in make-input-port in k621 in k618 */ static void C_ccall f_1365(C_word c,C_word *av){ C_word tmp; C_word 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_1365,3,av);} a=C_alloc(4); t3=C_slot(t2,C_fix(10)); if(C_truep(((C_word*)t0)[2])){ /* ports.scm:225: peek */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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_1381,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* ports.scm:228: read */ t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)C_fast_retrieve_proc(t5))(2,av2);}}}} /* k960 in for-each-loop164 in a940 in make-broadcast-port in k621 in k618 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_962,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_952(t3,((C_word*)t0)[4],t2);} /* f_881 in copy-port in k621 in k618 */ 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=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_881,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_741,a[2]=t5,a[3]=t9,a[4]=t4,a[5]=t7,a[6]=t6,a[7]=((C_word)li7),tmp=(C_word)a,a+=8,tmp)); t11=((C_word*)t9)[1]; f_741(t11,t1,C_fix(0));} /* a1385 in make-input-port in k621 in k618 */ 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=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_1386,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1390,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* ports.scm:234: close */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k1379 in a1364 in make-input-port in k621 in k618 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1381,2,av);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(10),t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k677 in k657 in loop in port-map in k621 in k618 */ static void C_ccall f_679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_679,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* ports.scm:59: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_655(t3,((C_word*)t0)[4],t2);} /* k727 in k718 in loop in k709 in copy-port in k621 in k618 */ static void C_ccall f_729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_729,2,av);} /* ports.scm:79: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_716(t2,((C_word*)t0)[3]);} /* k718 in loop in k709 in copy-port in k621 in k618 */ static void C_ccall f_720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_720,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; /* Re-use our own argvector */ 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_729,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* ports.scm:78: writer */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* loop in a1102 in make-concatenated-port in k621 in k618 */ static void C_fcall f_1109(C_word t0,C_word 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_1109,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_1125,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); /* ports.scm:158: read-string! */ t7=*((C_word*)lf[8]+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);}}}} /* make-concatenated-port in k621 in k618 */ 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 +21,c,6)))){ C_save_and_reclaim((void*)f_1004,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_1013,a[2]=t6,a[3]=((C_word)li22),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1048,a[2]=t6,a[3]=((C_word)li23),tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1068,a[2]=t6,a[3]=((C_word)li25),tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1103,a[2]=t6,a[3]=((C_word)li27),tmp=(C_word)a,a+=4,tmp); /* ports.scm:130: make-input-port */ t11=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t11; av2[1]=t1; av2[2]=t7; av2[3]=t8; av2[4]=*((C_word*)lf[13]+1); av2[5]=t9; av2[6]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(7,av2);}} /* a1102 in make-concatenated-port in k621 in k618 */ 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=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_1103,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_1109,a[2]=((C_word*)t0)[2],a[3]=t7,a[4]=t5,a[5]=t4,a[6]=((C_word)li26),tmp=(C_word)a,a+=7,tmp)); t9=((C_word*)t7)[1]; f_1109(t9,t1,t3,C_fix(0));} /* loop in k709 in copy-port in k621 in k618 */ static void C_fcall f_716(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_716,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_720,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); /* ports.scm:76: read-string! */ t3=*((C_word*)lf[8]+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);}} /* k709 in copy-port in k621 in k618 */ static void C_ccall f_711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_711,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_716,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word)li9),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_716(t6,((C_word*)t0)[4]);} /* k689 in loop in port-fold in k621 in k618 */ static void C_ccall f_691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_691,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; /* Re-use our own argvector */ 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_704,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* ports.scm:66: fn */ t3=((C_word*)t0)[5];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* port-fold in k621 in k618 */ static void C_ccall f_681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_681,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_687,a[2]=t6,a[3]=t2,a[4]=t4,a[5]=((C_word)li4),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_687(t8,t1,t3);} /* loop in port-fold in k621 in k618 */ static void C_fcall f_687(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_687,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_691,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); /* ports.scm:63: 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);}} /* a904 in copy-port in k621 in k618 */ static void C_ccall f_905(C_word c,C_word *av){ C_word tmp; C_word 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_905,3,av);} /* ports.scm:116: write */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1123 in loop in a1102 in make-concatenated-port in k621 in k618 */ static void C_ccall f_1125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1125,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1128,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_mutate2(((C_word *)((C_word*)t0)[6])+1,t4); t6=t3; f_1128(t6,t5);} else{ t4=t3; f_1128(t4,C_SCHEME_UNDEFINED);}} /* k1126 in k1123 in loop in a1102 in make-concatenated-port in k621 in k618 */ static void C_fcall f_1128(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_1128,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]); /* ports.scm:161: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_1109(t4,((C_word*)t0)[6],t2,t3);} /* a898 in copy-port in k621 in k618 */ 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 *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_899,2,av);} /* ports.scm:115: read */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1337 in make-input-port in k621 in k618 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1339,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1342,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* ports.scm:244: ##sys#set-port-data! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[33]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[33]+1); av2[1]=t3; av2[2]=t2; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k1460 in make-output-port in k621 in k618 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1462,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1465,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* ports.scm:267: ##sys#set-port-data! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[33]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[33]+1); av2[1]=t3; av2[2]=t2; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k989 in for-each-loop189 in a974 in make-broadcast-port in k621 in k618 */ 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 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_991,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_981(t3,((C_word*)t0)[4],t2);} /* with-output-to-string in k621 in k618 */ static void C_ccall f_1277(C_word c,C_word *av){ C_word tmp; C_word 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_1277,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1281,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* ports.scm:201: open-output-string */ t4=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* make-input-port in k621 in k618 */ static void C_ccall f_1305(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1305,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_1344,a[2]=t8,a[3]=t2,a[4]=((C_word)li51),tmp=(C_word)a,a+=5,tmp); t24=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1365,a[2]=t8,a[3]=t2,a[4]=((C_word)li52),tmp=(C_word)a,a+=5,tmp); t25=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1386,a[2]=t4,a[3]=((C_word)li53),tmp=(C_word)a,a+=4,tmp); t26=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1395,a[2]=t3,a[3]=((C_word)li54),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_1339,a[2]=t1,a[3]=t29,tmp=(C_word)a,a+=4,tmp); /* ports.scm:243: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[34]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[34]+1); av2[1]=t30; av2[2]=C_SCHEME_TRUE; av2[3]=t27; av2[4]=lf[35]; av2[5]=lf[36]; tp(6,av2);}} /* a1299 in k1279 in with-output-to-string in k621 in k618 */ 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; 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_1300,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[23]+1)); t3=C_mutate2((C_word*)lf[23]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a1271 in k1254 in with-input-from-string in k621 in k618 */ static void C_ccall f_1272(C_word c,C_word *av){ C_word tmp; 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_1272,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[20]+1)); t3=C_mutate2((C_word*)lf[20]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k749 in doloop103 */ static void C_ccall f_751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_751,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_741(t3,((C_word*)t0)[4],t2);} /* with-input-from-port in k621 in k618 */ static void C_ccall f_1156(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1156,4,av);} a=C_alloc(18); t4=t2; t5=C_i_check_port_2(t4,C_SCHEME_TRUE,C_SCHEME_TRUE,lf[19]); 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_1165,a[2]=t9,a[3]=t7,a[4]=((C_word)li29),tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1170,a[2]=t3,a[3]=((C_word)li30),tmp=(C_word)a,a+=4,tmp); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1176,a[2]=t7,a[3]=t9,a[4]=((C_word)li31),tmp=(C_word)a,a+=5,tmp); /* ports.scm:168: ##sys#dynamic-wind */ t13=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1285 in k1279 in with-output-to-string in k621 in k618 */ static void C_ccall f_1286(C_word c,C_word *av){ C_word tmp; 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_1286,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[23]+1)); t3=C_mutate2((C_word*)lf[23]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1463 in k1460 in make-output-port in k621 in k618 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1465,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a1466 in make-output-port in k621 in k618 */ 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=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_1467,4,av);} a=C_alloc(2); t4=C_a_i_string(&a,1,t3); /* ports.scm:254: write */ t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k1279 in with-output-to-string in k621 in k618 */ 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 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_1281,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_1286,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_1291,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_1300,a[2]=t3,a[3]=t5,a[4]=((C_word)li49),tmp=(C_word)a,a+=5,tmp); /* ports.scm:200: ##sys#dynamic-wind */ t9=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1482 in make-output-port in k621 in k618 */ 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=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_1483,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1487,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* ports.scm:258: close */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k702 in k689 in loop in port-fold in k621 in k618 */ static void C_ccall f_704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_704,2,av);} /* ports.scm:66: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_687(t2,((C_word*)t0)[3],t1);} /* a1164 in with-input-from-port in k621 in k618 */ static void C_ccall f_1165(C_word c,C_word *av){ C_word tmp; 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_1165,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[20]+1)); t3=C_mutate2((C_word*)lf[20]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1293 in a1290 in k1279 in with-output-to-string in k621 in k618 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1295,2,av);} /* ports.scm:203: get-output-string */ t2=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[23]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a1476 in make-output-port in k621 in k618 */ static void C_ccall f_1477(C_word c,C_word *av){ C_word tmp; C_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_1477,4,av);} /* ports.scm:256: write */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a1290 in k1279 in with-output-to-string in k621 in k618 */ 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!=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_1291,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1295,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* ports.scm:202: thunk */ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* a1491 in make-output-port in k621 in k618 */ 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=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_1492,3,av);} if(C_truep(((C_word*)t0)[2])){ /* ports.scm:261: flush */ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k776 in loop in copy-port in k621 in k618 */ static void C_ccall f_778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_778,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; /* Re-use our own argvector */ 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_787,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* ports.scm:88: writer */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} /* loop in copy-port in k621 in k618 */ static void C_fcall f_774(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_774,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_778,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* ports.scm:86: 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);}} /* a1067 in make-concatenated-port in k621 in k618 */ static void C_ccall f_1068(C_word c,C_word *av){ C_word tmp; C_word t0=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_1068,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_1074,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li24),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_1074(t5,t1);} /* k1485 in a1482 in make-output-port in k621 in k618 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1487,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_set_i_slot(((C_word*)t0)[3],C_fix(8),C_SCHEME_TRUE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a1343 in make-input-port in k621 in k618 */ 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=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_1344,3,av);} t3=C_slot(t2,C_fix(10)); if(C_truep(((C_word*)t0)[2])){ /* ports.scm:218: read */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* ports.scm:222: read */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}}} /* k1340 in k1337 in make-input-port in k621 in k618 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1342,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k794 in copy-port in k621 in k618 */ static void C_ccall f_796(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_796,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_801,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)li10),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_801(t6,((C_word*)t0)[5],C_fix(0));} /* a974 in make-broadcast-port in k621 in k618 */ static void C_ccall f_975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_975,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_981,a[2]=t4,a[3]=((C_word)li18),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_981(t6,t1,t2);} /* doloop103 */ static void C_fcall f_741(C_word 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_741,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_751,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)); /* ports.scm:83: 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);}}} /* for-each-loop189 in a974 in make-broadcast-port in k621 in k618 */ static void C_fcall f_981(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_981,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_991,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)); /* ports.scm:125: g190 */ t5=*((C_word*)lf[11]+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);}}} /* for-each-loop164 in a940 in make-broadcast-port in k621 in k618 */ static void C_fcall f_952(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_952,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_962,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)); /* ports.scm:123: g165 */ t5=((C_word*)t0)[3]; f_943(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);}}} /* loop in port-for-each in k621 in k618 */ static void C_fcall f_631(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_631,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_635,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* ports.scm:48: 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);}} /* k633 in loop in port-for-each in k621 in k618 */ 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(4,c,2)))){ C_save_and_reclaim((void *)f_635,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; /* Re-use our own argvector */ 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_644,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* ports.scm:50: fn */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} /* k806 in k803 in loop in k794 in copy-port in k621 in k618 */ static void C_ccall f_808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_808,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)))){ /* ports.scm:99: write-string */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ 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)); /* ports.scm:102: loop */ t5=((C_word*)((C_word*)t0)[6])[1]; f_801(t5,((C_word*)t0)[3],t4);}} /* loop in k794 in copy-port in k621 in k618 */ static void C_fcall f_801(C_word 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_801,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_805,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_843,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* ports.scm:94: write-string */ t6=*((C_word*)lf[7]+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_805(t5,C_SCHEME_UNDEFINED);}} /* k803 in loop in k794 in copy-port in k621 in k618 */ static void C_fcall f_805(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_805,2,t0,t1);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_808,a[2]=((C_word*)t0)[2],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); /* ports.scm:96: 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);}} /* make-broadcast-port in k621 in k618 */ 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 +8,c,4)))){ C_save_and_reclaim((void*)f_935,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_941,a[2]=t2,a[3]=((C_word)li17),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_975,a[2]=t2,a[3]=((C_word)li19),tmp=(C_word)a,a+=4,tmp); /* ports.scm:122: make-output-port */ t5=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=*((C_word*)lf[13]+1); av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* with-error-output-to-port in k621 in k618 */ static void C_ccall f_1206(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1206,4,av);} a=C_alloc(18); t4=t2; t5=C_i_check_port_2(t4,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[24]); 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_1215,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_1220,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_1226,a[2]=t7,a[3]=t9,a[4]=((C_word)li39),tmp=(C_word)a,a+=5,tmp); /* ports.scm:178: ##sys#dynamic-wind */ t13=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k618 */ static void C_ccall f_620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_620,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_623,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ports.scm:41: register-feature! */ t3=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[39]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a1200 in with-output-to-port in k621 in k618 */ static void C_ccall f_1201(C_word c,C_word *av){ C_word tmp; 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_1201,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[23]+1)); t3=C_mutate2((C_word*)lf[23]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* port-for-each in k621 in k618 */ static void C_ccall f_625(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_625,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_631,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=((C_word)li0),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_631(t7,t1);} /* k621 in k618 */ static void C_ccall f_623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(47,c,5)))){ C_save_and_reclaim((void *)f_623,2,av);} a=C_alloc(47); t2=C_mutate2((C_word*)lf[0]+1 /* (set! port-for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_625,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[1]+1 /* (set! port-map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_649,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[3]+1 /* (set! port-fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_681,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t5=*((C_word*)lf[4]+1); t6=*((C_word*)lf[5]+1); t7=C_mutate2((C_word*)lf[6]+1 /* (set! copy-port ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_846,a[2]=t5,a[3]=t6,a[4]=((C_word)li14),tmp=(C_word)a,a+=5,tmp)); t8=C_mutate2((C_word*)lf[10]+1 /* (set! make-broadcast-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_935,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[14]+1 /* (set! make-concatenated-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1004,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[19]+1 /* (set! with-input-from-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1156,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[22]+1 /* (set! with-output-to-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1181,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[24]+1 /* (set! with-error-output-to-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1206,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[26]+1 /* (set! call-with-input-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1231,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[28]+1 /* (set! call-with-output-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1240,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[31]+1 /* (set! with-input-from-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1252,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[32]+1 /* (set! with-output-to-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1277,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[18]+1 /* (set! make-input-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1305,a[2]=((C_word)li55),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2((C_word*)lf[12]+1 /* (set! make-output-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1449,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp)); t19=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t19; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} /* a1047 in make-concatenated-port in k621 in k618 */ static void C_ccall f_1048(C_word c,C_word *av){ 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_1048,2,av);} if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[2])[1]))){ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]); /* ports.scm:142: char-ready? */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k785 in k776 in loop in copy-port in k621 in k618 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_787,2,av);} /* ports.scm:89: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_774(t2,((C_word*)t0)[3]);} /* k657 in loop in port-map in k621 in k618 */ static void C_ccall f_659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_659,2,av);} a=C_alloc(5); if(C_truep(C_eofp(t1))){ /* ports.scm:58: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[2]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[2]+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_679,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); /* ports.scm:59: fn */ t3=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} /* g165 in a940 in make-broadcast-port in k621 in k618 */ static void C_fcall f_943(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_943,3,t0,t1,t2);} t3=*((C_word*)lf[7]+1); /* ports.scm:123: g180 */ t4=*((C_word*)lf[7]+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);}} /* a940 in make-broadcast-port in k621 in k618 */ static void C_ccall f_941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_941,3,av);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_943,a[2]=t2,a[3]=((C_word)li15),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_952,a[2]=t6,a[3]=t3,a[4]=((C_word)li16),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_952(t8,t1,t4);} /* loop in port-map in k621 in k618 */ static void C_fcall f_655(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_655,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_659,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); /* ports.scm:56: 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);}} /* a1214 in with-error-output-to-port in k621 in k618 */ static void C_ccall f_1215(C_word c,C_word *av){ C_word tmp; 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_1215,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[25]+1)); t3=C_mutate2((C_word*)lf[25]+1 /* (set! ##sys#standard-error ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* port-map in k621 in k618 */ static void C_ccall f_649(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_649,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_655,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=((C_word)li2),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_655(t7,t1,C_SCHEME_END_OF_LIST);} /* k642 in k633 in loop in port-for-each in k621 in k618 */ static void C_ccall f_644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_644,2,av);} /* ports.scm:51: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_631(t2,((C_word*)t0)[3]);} /* a1225 in with-error-output-to-port in k621 in k618 */ static void C_ccall f_1226(C_word c,C_word *av){ C_word tmp; 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_1226,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[25]+1)); t3=C_mutate2((C_word*)lf[25]+1 /* (set! ##sys#standard-error ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a1219 in with-error-output-to-port in k621 in k618 */ 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 *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_1220,2,av);} /* ports.scm:179: thunk */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k1233 in call-with-input-string in k621 in k618 */ static void C_ccall f_1235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1235,2,av);} /* ports.scm:186: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in a1067 in make-concatenated-port in k621 in k618 */ static void C_fcall f_1074(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_1074,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_1084,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]); /* ports.scm:148: peek-char */ t4=*((C_word*)lf[17]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[100] = { {"f_1231:ports_2escm",(void*)f_1231}, {"f_846:ports_2escm",(void*)f_846}, {"f_843:ports_2escm",(void*)f_843}, {"f_1176:ports_2escm",(void*)f_1176}, {"f_1170:ports_2escm",(void*)f_1170}, {"f_1244:ports_2escm",(void*)f_1244}, {"f_1247:ports_2escm",(void*)f_1247}, {"f_1084:ports_2escm",(void*)f_1084}, {"f_1240:ports_2escm",(void*)f_1240}, {"f_876:ports_2escm",(void*)f_876}, {"f_1181:ports_2escm",(void*)f_1181}, {"f_1256:ports_2escm",(void*)f_1256}, {"f_1013:ports_2escm",(void*)f_1013}, {"f_1019:ports_2escm",(void*)f_1019}, {"f_1252:ports_2escm",(void*)f_1252}, {"f_1195:ports_2escm",(void*)f_1195}, {"f_1395:ports_2escm",(void*)f_1395}, {"f_1190:ports_2escm",(void*)f_1190}, {"f_1390:ports_2escm",(void*)f_1390}, {"f_1266:ports_2escm",(void*)f_1266}, {"f_1449:ports_2escm",(void*)f_1449}, {"f_1029:ports_2escm",(void*)f_1029}, {"toplevel:ports_2escm",(void*)C_ports_toplevel}, {"f_1261:ports_2escm",(void*)f_1261}, {"f_1365:ports_2escm",(void*)f_1365}, {"f_962:ports_2escm",(void*)f_962}, {"f_881:ports_2escm",(void*)f_881}, {"f_1386:ports_2escm",(void*)f_1386}, {"f_1381:ports_2escm",(void*)f_1381}, {"f_679:ports_2escm",(void*)f_679}, {"f_729:ports_2escm",(void*)f_729}, {"f_720:ports_2escm",(void*)f_720}, {"f_1109:ports_2escm",(void*)f_1109}, {"f_1004:ports_2escm",(void*)f_1004}, {"f_1103:ports_2escm",(void*)f_1103}, {"f_716:ports_2escm",(void*)f_716}, {"f_711:ports_2escm",(void*)f_711}, {"f_691:ports_2escm",(void*)f_691}, {"f_681:ports_2escm",(void*)f_681}, {"f_687:ports_2escm",(void*)f_687}, {"f_905:ports_2escm",(void*)f_905}, {"f_1125:ports_2escm",(void*)f_1125}, {"f_1128:ports_2escm",(void*)f_1128}, {"f_899:ports_2escm",(void*)f_899}, {"f_1339:ports_2escm",(void*)f_1339}, {"f_1462:ports_2escm",(void*)f_1462}, {"f_991:ports_2escm",(void*)f_991}, {"f_1277:ports_2escm",(void*)f_1277}, {"f_1305:ports_2escm",(void*)f_1305}, {"f_1300:ports_2escm",(void*)f_1300}, {"f_1272:ports_2escm",(void*)f_1272}, {"f_751:ports_2escm",(void*)f_751}, {"f_1156:ports_2escm",(void*)f_1156}, {"f_1286:ports_2escm",(void*)f_1286}, {"f_1465:ports_2escm",(void*)f_1465}, {"f_1467:ports_2escm",(void*)f_1467}, {"f_1281:ports_2escm",(void*)f_1281}, {"f_1483:ports_2escm",(void*)f_1483}, {"f_704:ports_2escm",(void*)f_704}, {"f_1165:ports_2escm",(void*)f_1165}, {"f_1295:ports_2escm",(void*)f_1295}, {"f_1477:ports_2escm",(void*)f_1477}, {"f_1291:ports_2escm",(void*)f_1291}, {"f_1492:ports_2escm",(void*)f_1492}, {"f_778:ports_2escm",(void*)f_778}, {"f_774:ports_2escm",(void*)f_774}, {"f_1068:ports_2escm",(void*)f_1068}, {"f_1487:ports_2escm",(void*)f_1487}, {"f_1344:ports_2escm",(void*)f_1344}, {"f_1342:ports_2escm",(void*)f_1342}, {"f_796:ports_2escm",(void*)f_796}, {"f_975:ports_2escm",(void*)f_975}, {"f_741:ports_2escm",(void*)f_741}, {"f_981:ports_2escm",(void*)f_981}, {"f_952:ports_2escm",(void*)f_952}, {"f_631:ports_2escm",(void*)f_631}, {"f_635:ports_2escm",(void*)f_635}, {"f_808:ports_2escm",(void*)f_808}, {"f_801:ports_2escm",(void*)f_801}, {"f_805:ports_2escm",(void*)f_805}, {"f_935:ports_2escm",(void*)f_935}, {"f_1206:ports_2escm",(void*)f_1206}, {"f_620:ports_2escm",(void*)f_620}, {"f_1201:ports_2escm",(void*)f_1201}, {"f_625:ports_2escm",(void*)f_625}, {"f_623:ports_2escm",(void*)f_623}, {"f_1048:ports_2escm",(void*)f_1048}, {"f_787:ports_2escm",(void*)f_787}, {"f_659:ports_2escm",(void*)f_659}, {"f_943:ports_2escm",(void*)f_943}, {"f_941:ports_2escm",(void*)f_941}, {"f_655:ports_2escm",(void*)f_655}, {"f_1215:ports_2escm",(void*)f_1215}, {"f_649:ports_2escm",(void*)f_649}, {"f_644:ports_2escm",(void*)f_644}, {"f_1226:ports_2escm",(void*)f_1226}, {"f_1220:ports_2escm",(void*)f_1220}, {"f_1235:ports_2escm",(void*)f_1235}, {"f_1074:ports_2escm",(void*)f_1074}, {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| for-each 2 o|eliminated procedure checks: 14 o|specializations: o| 2 (##sys#check-output-port * * *) o| 1 (##sys#check-input-port * * *) o| 2 (##sys#check-list (or pair list) *) o| 2 (make-string fixnum) (o e)|safe calls: 91 (o e)|assignments to immediate values: 1 o|Removed `not' forms: 1 o|inlining procedure: k636 o|inlining procedure: k636 o|inlining procedure: k660 o|inlining procedure: k660 o|inlining procedure: k692 o|inlining procedure: k692 o|inlining procedure: k860 o|contracted procedure: "(ports.scm:106) read-buf88" o|inlining procedure: k721 o|inlining procedure: k721 o|substituted constant variable: a733 o|contracted procedure: "(ports.scm:110) write-buf89" o|inlining procedure: k743 o|inlining procedure: k743 o|inlining procedure: k860 o|contracted procedure: "(ports.scm:112) read-and-write-buf91" o|inlining procedure: k809 o|inlining procedure: k809 o|substituted constant variable: a845 o|contracted procedure: "(ports.scm:114) read-and-write90" o|inlining procedure: k779 o|inlining procedure: k779 o|propagated global variable: g180181 write-string o|inlining procedure: k954 o|inlining procedure: k954 o|inlining procedure: k983 o|inlining procedure: k983 o|inlining procedure: k1021 o|inlining procedure: k1021 o|contracted procedure: k1053 o|inlining procedure: k1050 o|inlining procedure: k1050 o|inlining procedure: k1076 o|inlining procedure: k1076 o|inlining procedure: k1111 o|inlining procedure: k1111 o|substituted constant variable: a1159 o|substituted constant variable: a1160 o|substituted constant variable: a1184 o|substituted constant variable: a1185 o|substituted constant variable: a1209 o|substituted constant variable: a1210 o|inlining procedure: k1349 o|inlining procedure: k1349 o|inlining procedure: k1370 o|inlining procedure: k1370 o|inlining procedure: k1494 o|inlining procedure: k1494 o|replaced variables: 108 o|removed binding forms: 84 o|substituted constant variable: r10221526 o|substituted constant variable: r10511528 o|substituted constant variable: r10771530 o|removed binding forms: 130 o|replaced variables: 2 o|removed binding forms: 3 o|removed binding forms: 2 o|simplifications: ((if . 14) (##core#call . 82)) o| call simplifications: o| string o| ##sys#setslot o| ##sys#setislot 3 o| vector 4 o| fx<= o| fx< o| fx- o| read-char o| pair? 2 o| ##sys#slot 6 o| car 11 o| null? 17 o| cdr 9 o| char->integer o| ##sys#setbyte o| fx>= 3 o| ##sys#byte o| integer->char o| fx+ 4 o| eq? 4 o| cons 2 o| eof-object? 7 o|contracted procedure: k639 o|contracted procedure: k663 o|contracted procedure: k673 o|contracted procedure: k695 o|contracted procedure: k928 o|contracted procedure: k848 o|contracted procedure: k922 o|contracted procedure: k851 o|contracted procedure: k916 o|contracted procedure: k854 o|contracted procedure: k910 o|contracted procedure: k857 o|contracted procedure: k863 o|contracted procedure: k873 o|contracted procedure: k870 o|contracted procedure: k746 o|contracted procedure: k756 o|contracted procedure: k764 o|contracted procedure: k760 o|contracted procedure: k724 o|contracted procedure: k889 o|contracted procedure: k812 o|contracted procedure: k818 o|contracted procedure: k835 o|contracted procedure: k824 o|contracted procedure: k831 o|contracted procedure: k838 o|contracted procedure: k782 o|contracted procedure: k957 o|contracted procedure: k967 o|contracted procedure: k971 o|contracted procedure: k986 o|contracted procedure: k996 o|contracted procedure: k1000 o|contracted procedure: k1006 o|contracted procedure: k1024 o|contracted procedure: k1033 o|contracted procedure: k1037 o|contracted procedure: k1044 o|contracted procedure: k1064 o|contracted procedure: k1060 o|contracted procedure: k1079 o|contracted procedure: k1088 o|contracted procedure: k1092 o|contracted procedure: k1099 o|contracted procedure: k1114 o|contracted procedure: k1120 o|contracted procedure: k1133 o|contracted procedure: k1137 o|contracted procedure: k1140 o|contracted procedure: k1144 o|contracted procedure: k1148 o|contracted procedure: k1152 o|contracted procedure: k1442 o|contracted procedure: k1307 o|contracted procedure: k1436 o|contracted procedure: k1310 o|contracted procedure: k1430 o|contracted procedure: k1313 o|contracted procedure: k1424 o|contracted procedure: k1316 o|contracted procedure: k1418 o|contracted procedure: k1319 o|contracted procedure: k1412 o|contracted procedure: k1322 o|contracted procedure: k1406 o|contracted procedure: k1325 o|contracted procedure: k1400 o|contracted procedure: k1328 o|contracted procedure: k1346 o|contracted procedure: k1358 o|contracted procedure: k1367 o|contracted procedure: k1382 o|contracted procedure: k1331 o|contracted procedure: k1334 o|contracted procedure: k1500 o|contracted procedure: k1451 o|contracted procedure: k1473 o|contracted procedure: k1454 o|contracted procedure: k1457 o|simplifications: ((let . 18)) o|removed binding forms: 80 o|replaced variables: 53 o|removed binding forms: 24 o|customizable procedures: (k1126 loop229 loop217 loop208 for-each-loop189199 g165172 for-each-loop164182 loop110 k803 loop118 loop95 doloop103104 loop81 loop73 loop66) o|calls to known targets: 29 o|fast box initializations: 12 */ /* end of file */ chicken-4.12.0/chicken-install.10000644000175000017500000000307113052302315016135 0ustar sjamaansjamaan.\" dummy line .TH CHICKEN-INSTALL 1 "13 Aug 2008" .SH NAME chicken-install \- download and install extension libraries for CHICKEN Scheme .SH SYNOPSIS chicken-install [OPTION | EXTENSION[:VERSION]] ... .SH DESCRIPTION .I chicken\-install is a program that downloads, compiles and installs a prepackaged extension library from sources. If no extension name is given on the command-line, then any existing .B setup scripts in the current directory will be executed in some unspecified order. .SH OPTIONS Enter .B chicken-install\ \-help for a list of supported command-line options. .SH ENVIRONMENT\ VARIABLES .TP .B CHICKEN_PREFIX The installation prefix where CHICKEN Scheme and its support files and libraries are located. Defaults to the installation time prefix given when configuring the system. .TP .B CHICKEN_INSTALL_PREFIX An alternative installation prefix that will be prepended to extension installation paths if specified. .TP .B CHICKEN_REPOSITORY The path where extension libraries are installed. Defaults to the package-library path selected during configuration (usually .B $prefix/lib/chicken/ ) .TP .B SUDO The command to execute when using \-s flag in command. If not provided, defaults to the sudo(1). .SH DOCUMENTATION More information can be found in the .I CHICKEN\ User's\ Manual .SH BUGS Submit bug reports by e-mail to .I chicken-janitors@nongnu.org , preferrably using the .B chicken\-bug tool. .SH AUTHORS The CHICKEN Team .SH SEE ALSO .BR chicken-uninstall(1) .BR chicken-status(1) .BR chicken(1) .BR csc(1) .BR chicken-bug(1) chicken-4.12.0/tcp.c0000644000175000017500000100562313052306233013746 0ustar sjamaansjamaan/* Generated from tcp.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:16 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: tcp.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file tcp.c unit: tcp */ #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_ports_toplevel) C_externimport void C_ccall C_ports_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; static C_TLS C_word lf[94]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,53),40,35,35,110,101,116,35,103,101,116,104,111,115,116,97,100,100,114,32,115,97,100,100,114,50,49,57,50,50,54,32,104,111,115,116,50,50,48,50,50,55,32,112,111,114,116,50,50,49,50,50,56,41,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,32),40,116,99,112,45,108,105,115,116,101,110,32,112,111,114,116,51,55,57,32,46,32,116,109,112,51,55,56,51,56,48,41}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,20),40,116,99,112,45,108,105,115,116,101,110,101,114,63,32,120,52,48,54,41,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,19),40,116,99,112,45,99,108,111,115,101,32,116,99,112,108,52,48,57,41,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,13),40,102,95,49,54,49,50,32,120,52,50,50,41,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,14),40,99,104,101,99,107,32,108,111,99,52,50,49,41,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,50,54,41,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,30),40,108,111,111,112,32,108,101,110,53,51,53,32,111,102,102,115,101,116,53,51,54,32,100,108,119,53,51,55,41,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,13),40,111,117,116,112,117,116,32,115,53,51,50,41,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,13),40,102,95,50,48,48,57,32,115,53,54,51,41,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,13),40,102,95,50,48,50,57,32,115,53,54,54,41,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,7),40,97,49,57,50,50,41,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,8),40,102,95,49,57,57,51,41}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,7),40,97,50,48,52,52,41,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,7),40,97,50,48,54,54,41,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,7),40,97,50,49,48,56,41,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,7),40,97,50,49,53,56,41,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,25),40,108,111,111,112,32,110,52,57,52,32,109,52,57,53,32,115,116,97,114,116,52,57,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,34),40,97,50,49,55,54,32,112,52,56,57,32,110,52,57,48,32,100,101,115,116,52,57,49,32,115,116,97,114,116,52,57,50,41,0,0,0,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,14),40,97,50,50,54,57,32,112,111,115,53,49,51,41,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,7),40,97,50,50,53,57,41,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,37),40,97,50,51,49,53,32,110,101,120,116,53,50,49,32,108,105,110,101,53,50,50,32,102,117,108,108,45,108,105,110,101,63,53,50,51,41,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,21),40,97,50,50,52,49,32,112,53,48,55,32,108,105,109,105,116,53,48,56,41,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,12),40,97,50,51,54,52,32,112,53,50,56,41,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,29),40,35,35,110,101,116,35,105,111,45,112,111,114,116,115,32,108,111,99,52,51,49,32,102,100,52,51,50,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,20),40,116,99,112,45,97,99,99,101,112,116,32,116,99,112,108,53,56,53,41,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,27),40,116,99,112,45,97,99,99,101,112,116,45,114,101,97,100,121,63,32,116,99,112,108,54,48,53,41,0,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,11),40,108,111,111,112,32,105,51,51,57,41,0,0,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,7),40,97,50,56,49,48,41,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,29),40,97,50,56,49,54,32,104,111,115,116,54,50,56,54,51,48,32,112,111,114,116,54,50,57,54,51,49,41,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,31),40,116,99,112,45,99,111,110,110,101,99,116,32,104,111,115,116,54,49,55,32,46,32,109,111,114,101,54,49,56,41,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,116,99,112,45,112,111,114,116,45,62,102,105,108,101,110,111,32,112,54,56,54,41,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,20),40,116,99,112,45,97,100,100,114,101,115,115,101,115,32,112,54,56,57,41,0,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,23),40,116,99,112,45,112,111,114,116,45,110,117,109,98,101,114,115,32,112,55,48,51,41,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,27),40,116,99,112,45,108,105,115,116,101,110,101,114,45,112,111,114,116,32,116,99,112,108,55,49,53,41,0,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,23),40,116,99,112,45,97,98,97,110,100,111,110,45,112,111,114,116,32,112,55,50,51,41,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,26),40,116,99,112,45,108,105,115,116,101,110,101,114,45,102,105,108,101,110,111,32,108,55,50,54,41,0,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 stub613(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 stub350(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 stub222(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 stub210(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 stub205(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 stub200(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 stub195(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 stub190(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 stub184(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 stub173(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 k1142 */ 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)C_set_socket_options(t0)); return C_r;} /* from k1135 */ C_regparm static C_word C_fcall stub159(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 k1125 */ C_regparm static C_word C_fcall stub150(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 k1110 */ C_regparm static C_word C_fcall stub142(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 k1096 */ C_regparm static C_word C_fcall stub131(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 k1077 */ C_regparm static C_word C_fcall stub123(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 k1064 */ C_regparm static C_word C_fcall stub112(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 k1049 */ C_regparm static C_word C_fcall stub104(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 k1035 */ C_regparm static C_word C_fcall stub94(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 k1020 */ C_regparm static C_word C_fcall stub85(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 ##net#interrupted? */ C_regparm static C_word C_fcall stub79(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 ##net#in-progress? */ C_regparm static C_word C_fcall stub76(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 ##net#retry? */ C_regparm static C_word C_fcall stub73(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 k996 */ C_regparm static C_word C_fcall stub68(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 ##net#last-error-code */ C_regparm static C_word C_fcall stub64(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(f_1670) static void C_ccall f_1670(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_1473) static void C_ccall f_1473(C_word c,C_word *av) C_noret; C_noret_decl(f_984) static void C_ccall f_984(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_1482) static void C_ccall f_1482(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_2177) static void C_ccall f_2177(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_2003) static void C_ccall f_2003(C_word c,C_word *av) C_noret; C_noret_decl(f_2183) static void C_fcall f_2183(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_2009) static void C_ccall f_2009(C_word c,C_word *av) C_noret; C_noret_decl(f_2014) static void C_ccall f_2014(C_word c,C_word *av) C_noret; C_noret_decl(f_1505) static void C_ccall f_1505(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_1501) static void C_ccall f_1501(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_2023) static void C_ccall f_2023(C_word c,C_word *av) C_noret; C_noret_decl(f_2029) static void C_ccall f_2029(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_noret; C_noret_decl(f_2080) static void C_ccall f_2080(C_word c,C_word *av) C_noret; C_noret_decl(f_2375) static void C_ccall f_2375(C_word c,C_word *av) C_noret; C_noret_decl(f_2123) static void C_fcall f_2123(C_word t0,C_word t1) 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_2093) static void C_ccall f_2093(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_2109) static void C_ccall f_2109(C_word c,C_word *av) C_noret; C_noret_decl(f_2101) static void C_ccall f_2101(C_word c,C_word *av) C_noret; C_noret_decl(f_1364) static void C_ccall f_1364(C_word c,C_word *av) C_noret; C_noret_decl(f_1361) static void C_ccall f_1361(C_word c,C_word *av) C_noret; C_noret_decl(f_2467) static void C_ccall f_2467(C_word c,C_word *av) C_noret; C_noret_decl(f_1373) static void C_ccall f_1373(C_word c,C_word *av) 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_1376) static void C_ccall f_1376(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_2439) static void C_ccall f_2439(C_word c,C_word *av) C_noret; C_noret_decl(f_2433) static void C_ccall f_2433(C_word c,C_word *av) C_noret; C_noret_decl(f_2436) static void C_ccall f_2436(C_word c,C_word *av) C_noret; C_noret_decl(f_2138) static void C_ccall f_2138(C_word c,C_word *av) C_noret; C_noret_decl(f_2134) static void C_ccall f_2134(C_word c,C_word *av) 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_2396) static void C_ccall f_2396(C_word c,C_word *av) C_noret; C_noret_decl(f_1392) static void C_ccall f_1392(C_word c,C_word *av) 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_2316) static void C_ccall f_2316(C_word c,C_word *av) C_noret; C_noret_decl(f_1324) static void C_ccall f_1324(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_1320) static void C_ccall f_1320(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_1734) static void C_ccall f_1734(C_word c,C_word *av) C_noret; C_noret_decl(f_1730) static void C_ccall f_1730(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_2475) static void C_ccall f_2475(C_word c,C_word *av) 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_1934) static void C_fcall f_1934(C_word t0,C_word t1) C_noret; C_noret_decl(f_1947) static void C_ccall f_1947(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_noret; C_noret_decl(f_1755) static void C_ccall f_1755(C_word c,C_word *av) C_noret; C_noret_decl(f_1756) static void C_fcall f_1756(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1752) static void C_ccall f_1752(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_1955) static void C_ccall f_1955(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_1951) static void C_ccall f_1951(C_word c,C_word *av) C_noret; C_noret_decl(f_1760) static void C_ccall f_1760(C_word c,C_word *av) C_noret; C_noret_decl(f_1773) static void C_fcall f_1773(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_1771) static void C_fcall f_1771(C_word t0,C_word t1) 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_1303) static void C_ccall f_1303(C_word c,C_word *av) 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_1300) static void C_ccall f_1300(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_2563) static void C_fcall f_2563(C_word t0,C_word t1) C_noret; C_noret_decl(f_1795) static void C_ccall f_1795(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_1798) static void C_ccall f_1798(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_2756) static void C_ccall f_2756(C_word c,C_word *av) C_noret; C_noret_decl(f_2530) static void C_ccall f_2530(C_word c,C_word *av) C_noret; C_noret_decl(f_1911) static void C_ccall f_1911(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_1914) static void C_ccall f_1914(C_word c,C_word *av) C_noret; C_noret_decl(f_2421) static void C_fcall f_2421(C_word t0,C_word t1) 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_2159) static void C_ccall f_2159(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_2703) static void C_ccall f_2703(C_word c,C_word *av) C_noret; C_noret_decl(f_2734) static void C_ccall f_2734(C_word c,C_word *av) C_noret; C_noret_decl(f_2707) static void C_ccall f_2707(C_word c,C_word *av) C_noret; C_noret_decl(f_2593) static void C_ccall f_2593(C_word c,C_word *av) C_noret; C_noret_decl(f_2590) static void C_ccall f_2590(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_2163) static void C_ccall f_2163(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_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_978) static void C_ccall f_978(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(C_tcp_toplevel) C_externexport void C_ccall C_tcp_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(f_1658) static void C_fcall f_1658(C_word t0,C_word t1) C_noret; C_noret_decl(f_1657) static void C_fcall f_1657(C_word t0,C_word t1) 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_2711) static void C_ccall f_2711(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_2572) static void C_ccall f_2572(C_word c,C_word *av) C_noret; C_noret_decl(f_2578) static void C_ccall f_2578(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_1639) static void C_ccall f_1639(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_1635) static void C_ccall f_1635(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_1631) static void C_ccall f_1631(C_word c,C_word *av) C_noret; C_noret_decl(f_2584) static void C_ccall f_2584(C_word c,C_word *av) C_noret; C_noret_decl(f_2587) static void C_ccall f_2587(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_1239) static void C_fcall f_1239(C_word t0,C_word t1,C_word t2,C_word t3) 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_1804) static void C_ccall f_1804(C_word c,C_word *av) C_noret; C_noret_decl(f_1400) static void C_ccall f_1400(C_word c,C_word *av) C_noret; C_noret_decl(f_1610) static void C_fcall f_1610(C_word t0,C_word t1) 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_1248) static void C_ccall f_1248(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_2835) static void C_ccall f_2835(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_2255) static void C_fcall f_2255(C_word t0,C_word t1) 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_2652) static void C_ccall f_2652(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_2891) static void C_ccall f_2891(C_word c,C_word *av) C_noret; C_noret_decl(f_2260) static void C_ccall f_2260(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_1838) static void C_ccall f_1838(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_2231) static void C_ccall f_2231(C_word c,C_word *av) C_noret; C_noret_decl(f_2866) static void C_ccall f_2866(C_word c,C_word *av) C_noret; C_noret_decl(f_2869) static void C_ccall f_2869(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_1645) static void C_ccall f_1645(C_word c,C_word *av) C_noret; C_noret_decl(f_1648) static void C_ccall f_1648(C_word c,C_word *av) C_noret; C_noret_decl(f_1641) static void C_fcall f_1641(C_word t0,C_word t1,C_word t2,C_word t3) 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_2784) static void C_ccall f_2784(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_2242) static void C_ccall f_2242(C_word c,C_word *av) C_noret; C_noret_decl(f_1846) static void C_ccall f_1846(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_2246) static void C_ccall f_2246(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_2618) static void C_ccall f_2618(C_word c,C_word *av) C_noret; C_noret_decl(f_2513) static void C_ccall f_2513(C_word c,C_word *av) C_noret; C_noret_decl(f_2644) static void C_ccall f_2644(C_word c,C_word *av) C_noret; C_noret_decl(f_3040) static void C_ccall f_3040(C_word c,C_word *av) C_noret; C_noret_decl(f_2797) static void C_ccall f_2797(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_3072) static void C_ccall f_3072(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_2626) static void C_ccall f_2626(C_word c,C_word *av) 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_2045) static void C_ccall f_2045(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_3064) static void C_ccall f_3064(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_2859) static void C_ccall f_2859(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_2270) static void C_ccall f_2270(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_2501) static void C_ccall f_2501(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_1562) static void C_ccall f_1562(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_3068) static void C_ccall f_3068(C_word c,C_word *av) C_noret; C_noret_decl(f_2286) static void C_ccall f_2286(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_1296) static void C_ccall f_1296(C_word c,C_word *av) C_noret; C_noret_decl(f_1977) static void C_fcall f_1977(C_word t0,C_word t1) 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_2975) static void C_ccall f_2975(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_2979) static void C_ccall f_2979(C_word c,C_word *av) C_noret; C_noret_decl(f_1980) static void C_ccall f_1980(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_1273) static void C_fcall f_1273(C_word t0,C_word t1,C_word t2) 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_1553) static void C_ccall f_1553(C_word c,C_word *av) C_noret; C_noret_decl(f_2904) static void C_ccall f_2904(C_word c,C_word *av) C_noret; C_noret_decl(f_2908) static void C_ccall f_2908(C_word c,C_word *av) C_noret; C_noret_decl(f_2873) static void C_ccall f_2873(C_word c,C_word *av) C_noret; C_noret_decl(f_2876) static void C_ccall f_2876(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_2951) static void C_ccall f_2951(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_1416) static void C_ccall f_1416(C_word c,C_word *av) C_noret; C_noret_decl(f_2959) static void C_ccall f_2959(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_3004) static void C_ccall f_3004(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_1896) static void C_ccall f_1896(C_word c,C_word *av) C_noret; C_noret_decl(f_1424) static void C_ccall f_1424(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_2938) static void C_ccall f_2938(C_word c,C_word *av) C_noret; C_noret_decl(f_1420) static void C_ccall f_1420(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_3022) static void C_ccall f_3022(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_1886) static void C_ccall f_1886(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_1695) static void C_ccall f_1695(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_1582) static void C_ccall f_1582(C_word c,C_word *av) C_noret; C_noret_decl(f_1586) static void C_ccall f_1586(C_word c,C_word *av) C_noret; C_noret_decl(f_1212) static void C_ccall f_1212(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_1662) static void C_ccall f_1662(C_word c,C_word *av) C_noret; C_noret_decl(f_1665) static void C_fcall f_1665(C_word t0,C_word t1) C_noret; C_noret_decl(f_1223) static void C_ccall f_1223(C_word c,C_word *av) C_noret; C_noret_decl(trf_2183) static void C_ccall trf_2183(C_word c,C_word *av) C_noret; static void C_ccall trf_2183(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_2183(t0,t1,t2,t3,t4);} 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[1]; C_word t1=av[0]; f_2117(t0,t1);} 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[1]; C_word t1=av[0]; f_2123(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_1934) static void C_ccall trf_1934(C_word c,C_word *av) C_noret; static void C_ccall trf_1934(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1934(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[1]; C_word t1=av[0]; f_1940(t0,t1);} C_noret_decl(trf_1756) static void C_ccall trf_1756(C_word c,C_word *av) C_noret; static void C_ccall trf_1756(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1756(t0,t1,t2);} C_noret_decl(trf_1773) static void C_ccall trf_1773(C_word c,C_word *av) C_noret; static void C_ccall trf_1773(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_1773(t0,t1,t2,t3,t4);} C_noret_decl(trf_1771) static void C_ccall trf_1771(C_word c,C_word *av) C_noret; static void C_ccall trf_1771(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1771(t0,t1);} C_noret_decl(trf_2563) static void C_ccall trf_2563(C_word c,C_word *av) C_noret; static void C_ccall trf_2563(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2563(t0,t1);} C_noret_decl(trf_2421) static void C_ccall trf_2421(C_word c,C_word *av) C_noret; static void C_ccall trf_2421(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2421(t0,t1);} C_noret_decl(trf_1658) static void C_ccall trf_1658(C_word c,C_word *av) C_noret; static void C_ccall trf_1658(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1658(t0,t1);} C_noret_decl(trf_1657) static void C_ccall trf_1657(C_word c,C_word *av) C_noret; static void C_ccall trf_1657(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1657(t0,t1);} C_noret_decl(trf_1239) static void C_ccall trf_1239(C_word c,C_word *av) C_noret; static void C_ccall trf_1239(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1239(t0,t1,t2,t3);} C_noret_decl(trf_1610) static void C_ccall trf_1610(C_word c,C_word *av) C_noret; static void C_ccall trf_1610(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1610(t0,t1);} C_noret_decl(trf_2255) static void C_ccall trf_2255(C_word c,C_word *av) C_noret; static void C_ccall trf_2255(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2255(t0,t1);} C_noret_decl(trf_1641) static void C_ccall trf_1641(C_word c,C_word *av) C_noret; static void C_ccall trf_1641(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1641(t0,t1,t2,t3);} C_noret_decl(trf_1977) static void C_ccall trf_1977(C_word c,C_word *av) C_noret; static void C_ccall trf_1977(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1977(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_1273(t0,t1,t2);} C_noret_decl(trf_1665) static void C_ccall trf_1665(C_word c,C_word *av) C_noret; static void C_ccall trf_1665(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1665(t0,t1);} /* loop in k1663 in k1660 in read-input in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 t4; C_word 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_1670,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_i_foreign_fixnum_argumentp(C_fix(1024)); t6=C_i_foreign_fixnum_argumentp(C_fix(0)); t7=stub131(C_SCHEME_UNDEFINED,t3,t4,t5,t6); t8=C_eqp(C_fix((C_word)SOCKET_ERROR),t7); if(C_truep(t8)){ if(C_truep(stub73(C_SCHEME_UNDEFINED))){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1689,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:376: ##sys#thread-block-for-timeout! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[34]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[34]+1); av2[1]=t9; av2[2]=*((C_word*)lf[28]+1); av2[3]=((C_word*)t0)[6]; tp(4,av2);}} else{ t10=t9;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; f_1689(2,av2);}}} else{ if(C_truep(stub79(C_SCHEME_UNDEFINED))){ /* tcp.scm:386: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[35]+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_1726,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_1730,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t10; av2[2]=lf[36]; av2[3]=lf[10]; 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; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} /* k1477 in k1471 in tcp-listen in k1210 in k982 in k979 in k976 */ 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 t4; C_word t5; C_word t6; C_word 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_1479,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1482,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=stub104(C_SCHEME_UNDEFINED,t4,t5); t7=C_eqp(C_fix((C_word)SOCKET_ERROR),t6); if(C_truep(t7)){ t8=stub64(C_SCHEME_UNDEFINED); t9=t8; t10=C_i_foreign_fixnum_argumentp(t2); t11=stub123(C_SCHEME_UNDEFINED,t10); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1501,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_1505,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t13; av2[2]=lf[9]; av2[3]=lf[10]; tp(4,av2);}} else{ t8=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_a_i_record2(&a,2,lf[3],t2); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k1471 in tcp-listen in k1210 in k982 in k979 in k976 */ static void C_ccall f_1473(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1473,2,av);} a=C_alloc(11); t2=C_i_check_exact(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1479,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); t4=t3; t5=C_fix((C_word)SOCK_STREAM); t6=((C_word*)t0)[5]; t7=((C_word*)t0)[4]; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1361,a[2]=t5,a[3]=t4,a[4]=t6,a[5]=t7,tmp=(C_word)a,a+=6,tmp); /* tcp.scm:296: make-string */ t9=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=C_fix((C_word)sizeof(struct sockaddr_in)); ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k982 in k979 in k976 */ static void C_ccall f_984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_984,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1212,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(stub205(C_SCHEME_UNDEFINED))){ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_1212(2,av2);}} else{ /* tcp.scm:230: ##sys#signal-hook */ t3=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[5]; av2[3]=lf[91]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k979 in k976 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_981,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_984,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* tcp.scm:145: register-feature! */ t3=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[93]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k1480 in k1477 in k1471 in tcp-listen in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1482,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_record2(&a,2,lf[3],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1588 in k1584 in tcp-close in k1210 in k982 in k979 in k976 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1590,2,av);} /* tcp.scm:333: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a2176 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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=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_2177,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_2183,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_2183(t9,t1,t3,C_fix(0),t5);} /* k1687 in loop in k1663 in k1660 in read-input in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1689,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1692,a[2]=((C_word*)t0)[2],a[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:378: ##sys#thread-block-for-i/o! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[32]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[32]+1); av2[1]=t2; av2[2]=*((C_word*)lf[28]+1); av2[3]=((C_word*)t0)[5]; av2[4]=lf[33]; tp(5,av2);}} /* k2001 */ static void C_ccall f_2003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2003,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,lf[48]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in a2176 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_fcall f_2183(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_2183,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:431: 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_2231,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:433: read-input */ t7=((C_word*)t0)[7]; f_1658(t7,t6);}}} /* f_2009 in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2009(C_word c,C_word *av){ C_word tmp; C_word 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_2009,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2014,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:510: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=t2; tp(4,av2);}} /* k2012 */ static void C_ccall f_2014(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2014,2,av);} a=C_alloc(4); t2=C_mutate2(((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_2023,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* tcp.scm:512: output */ t5=((C_word*)t0)[5]; f_1756(t5,t4,((C_word*)((C_word*)t0)[2])[1]);} else{ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k1503 in k1477 in k1471 in tcp-listen in k1210 in k982 in k979 in k976 */ static void C_ccall f_1505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_1505,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1509,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=stub68(t4,t5); /* tcp.scm:163: ##sys#peek-c-string */ t7=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1507 in k1503 in k1477 in k1471 in tcp-listen in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1509,2,av);} /* tcp.scm:322: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1499 in k1477 in k1471 in tcp-listen in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_1501,2,av);} /* tcp.scm:322: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[2]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* a2364 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 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_2365,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[53]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2375,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* tcp.scm:471: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[54]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[54]+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);}}} /* k2021 in k2012 */ static void C_ccall f_2023(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2023,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,lf[45]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_2029 in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2029(C_word c,C_word *av){ C_word tmp; C_word 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_2029,3,av);} t3=C_block_size(t2); if(C_truep(C_fixnum_greaterp(t3,C_fix(0)))){ /* tcp.scm:516: output */ t4=((C_word*)t0)[2]; f_1756(t4,t1,t2);} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k2115 in a2108 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_fcall f_2117(C_word 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_2117,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2123,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=stub123(C_SCHEME_UNDEFINED,t4); t6=t2; f_2123(t6,C_eqp(C_fix((C_word)SOCKET_ERROR),t5));} else{ t3=t2; f_2123(t3,C_SCHEME_FALSE);}} /* k2078 in a2066 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2080,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(((C_word*)t0)[3],C_fix(1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2373 in a2364 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2375,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2121 in k2115 in a2108 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_fcall f_2123(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_2123,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2130,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_2134,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[8]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[8]+1); av2[1]=t3; av2[2]=lf[51]; av2[3]=lf[10]; 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);}}} /* k2095 in a2066 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 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_2097,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2101,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub64(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub68(t5,t6); /* tcp.scm:163: ##sys#peek-c-string */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2091 in a2066 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2093(C_word c,C_word *av){ C_word tmp; C_word 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_2093,2,av);} /* tcp.scm:409: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=C_SCHEME_FALSE; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* a2066 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 t4; 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_2067,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; /* Re-use our own argvector */ 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=stub159(C_SCHEME_UNDEFINED,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2080,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_2093,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_2097,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t10; av2[2]=lf[50]; av2[3]=lf[10]; tp(4,av2);}} else{ t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_eqp(t6,C_fix(1)); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}} /* a2108 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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!=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_2109,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; /* Re-use our own argvector */ 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_2117,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_2117(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_2117(t8,stub142(C_SCHEME_UNDEFINED,t6,t7));}}} /* k2099 in k2095 in a2066 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2101,2,av);} /* tcp.scm:409: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1362 in k1359 in k1471 in tcp-listen in k1210 in k982 in k979 in k976 */ static void C_ccall f_1364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1364,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_i_foreign_fixnum_argumentp(C_fix(0)); t6=stub85(C_SCHEME_UNDEFINED,t3,t4,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1370,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:305: ##sys#error */ t10=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t8; av2[2]=lf[14]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t10=t8;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; f_1370(2,av2);}}} /* k1359 in k1471 in tcp-listen in k1210 in k982 in k979 in k976 */ static void C_ccall f_1361(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1361,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1364,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_1446,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* tcp.scm:298: ##net#gethostaddr */ f_1239(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_i_foreign_fixnum_argumentp(((C_word*)t0)[5]); t6=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=stub350(C_SCHEME_UNDEFINED,t4,t5); f_1364(2,av2);}}} /* k2465 in k2437 in k2434 in k2431 in k2428 in loop in k2419 in k2416 in tcp-accept in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2467(C_word c,C_word *av){ C_word tmp; C_word 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_2467,2,av);} /* tcp.scm:560: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[59]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k1371 in k1368 in k1362 in k1359 in k1471 in tcp-listen in k1210 in k982 in k979 in k976 */ static void C_ccall f_1373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_1373,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1376,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=stub94(C_SCHEME_UNDEFINED,t4,t5,t6); t8=C_eqp(C_fix((C_word)SOCKET_ERROR),t7); if(C_truep(t8)){ t9=stub64(C_SCHEME_UNDEFINED); t10=t9; t11=C_i_foreign_fixnum_argumentp(((C_word*)t0)[3]); t12=stub123(C_SCHEME_UNDEFINED,t11); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1392,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_1396,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t14; av2[2]=lf[11]; av2[3]=lf[10]; tp(4,av2);}} else{ t9=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k1368 in k1362 in k1359 in k1471 in tcp-listen in k1210 in k982 in k979 in k976 */ 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 t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_1370,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1373,a[2]=((C_word*)t0)[2],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=stub164(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_1416,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_1420,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t7; av2[2]=lf[12]; av2[3]=lf[10]; tp(4,av2);}} else{ t6=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_1373(2,av2);}}} /* k1374 in k1371 in k1368 in k1362 in k1359 in k1471 in tcp-listen in k1210 in k982 in k979 in k976 */ static void C_ccall f_1376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1376,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2428 in loop in k2419 in k2416 in tcp-accept in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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(7,c,4)))){ C_save_and_reclaim((void *)f_2430,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2433,a[2]=((C_word*)t0)[2],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:547: ##sys#thread-block-for-i/o! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[32]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[32]+1); av2[1]=t2; av2[2]=*((C_word*)lf[28]+1); av2[3]=((C_word*)t0)[2]; av2[4]=lf[33]; tp(5,av2);}} /* k2437 in k2434 in k2431 in k2428 in loop in k2419 in k2416 in tcp-accept in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2439(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_2439,2,av);} a=C_alloc(7); t2=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t3=stub112(C_SCHEME_UNDEFINED,t2,C_SCHEME_FALSE,C_SCHEME_FALSE); t4=C_eqp(C_fix((C_word)INVALID_SOCKET),t3); if(C_truep(t4)){ if(C_truep(stub79(C_SCHEME_UNDEFINED))){ /* tcp.scm:558: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[35]+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_2467,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_2471,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t6; av2[2]=lf[60]; av2[3]=lf[10]; tp(4,av2);}}} else{ /* tcp.scm:556: ##net#io-ports */ t5=lf[27]; f_1641(t5,((C_word*)t0)[3],lf[59],t3);}} /* k2431 in k2428 in loop in k2419 in k2416 in tcp-accept in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2433(C_word c,C_word *av){ C_word tmp; C_word t0=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_2433,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2436,a[2]=((C_word*)t0)[2],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:548: ##sys#thread-yield! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[31]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[31]+1); av2[1]=t2; tp(2,av2);}} /* k2434 in k2431 in k2428 in loop in k2419 in k2416 in tcp-accept in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2436,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2439,a[2]=((C_word*)t0)[2],a[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[28]+1),C_fix(13)))){ /* tcp.scm:550: ##sys#signal-hook */ t3=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[29]; av2[3]=lf[59]; av2[4]=lf[61]; 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2439(2,av2);}}} /* k2136 in k2132 in k2121 in k2115 in a2108 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2138,2,av);} /* tcp.scm:416: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2132 in k2121 in k2115 in a2108 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2134(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2134,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2138,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub64(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub68(t5,t6); /* tcp.scm:163: ##sys#peek-c-string */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2128 in k2121 in k2115 in a2108 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2130,2,av);} /* tcp.scm:416: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=C_SCHEME_FALSE; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2394 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2396(C_word c,C_word *av){ C_word tmp; C_word 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_2396,2,av);} /* tcp.scm:358: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k1390 in k1371 in k1368 in k1362 in k1359 in k1471 in tcp-listen in k1210 in k982 in k979 in k976 */ static void C_ccall f_1392(C_word c,C_word *av){ C_word tmp; C_word 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_1392,2,av);} /* tcp.scm:310: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[2]; 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);}} /* k1394 in k1371 in k1368 in k1362 in k1359 in k1471 in tcp-listen in k1210 in k982 in k979 in k976 */ 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 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_1396,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1400,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=stub68(t4,t5); /* tcp.scm:163: ##sys#peek-c-string */ t7=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a2315 in k2253 in k2244 in a2241 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2316,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_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* k1322 in k1318 in k1301 in k1298 in k1294 in loop in a2810 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1324,2,av);} /* tcp.scm:283: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1724 in loop in k1663 in k1660 in read-input in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_1726,2,av);} /* tcp.scm:388: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=C_SCHEME_FALSE; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k1318 in k1301 in k1298 in k1294 in loop in a2810 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 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_1320,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1324,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub64(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub68(t5,t6); /* tcp.scm:163: ##sys#peek-c-string */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1922 in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 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_1923,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; /* Re-use our own argvector */ 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_1931,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_1977,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_1977(t6,C_fixnum_greaterp(t5,C_fix(0)));} else{ t5=t4; f_1977(t5,C_SCHEME_FALSE);}}} /* k1732 in k1728 in loop in k1663 in k1660 in read-input in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1734,2,av);} /* tcp.scm:388: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1728 in loop in k1663 in k1660 in read-input in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1730,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1734,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub64(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub68(t5,t6); /* tcp.scm:163: ##sys#peek-c-string */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2469 in k2437 in k2434 in k2431 in k2428 in loop in k2419 in k2416 in tcp-accept in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 t3; C_word 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_2471,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2475,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub64(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub68(t5,t6); /* tcp.scm:163: ##sys#peek-c-string */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2473 in k2469 in k2437 in k2434 in k2431 in k2428 in loop in k2419 in k2416 in tcp-accept in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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,3)))){ C_save_and_reclaim((void *)f_2475,2,av);} /* tcp.scm:560: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1929 in a1922 in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 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_1931,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1934,a[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_1934(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_1934(t7,stub142(C_SCHEME_UNDEFINED,t5,t6));}} /* k1932 in k1929 in a1922 in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_fcall f_1934(C_word 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_1934,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1940,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=stub123(C_SCHEME_UNDEFINED,t4); t6=t2; f_1940(t6,C_eqp(C_fix((C_word)SOCKET_ERROR),t5));} else{ t3=t2; f_1940(t3,C_SCHEME_FALSE);}} /* k1945 in k1938 in k1932 in k1929 in a1922 in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1947(C_word c,C_word *av){ C_word tmp; C_word 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_1947,2,av);} /* tcp.scm:525: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=C_SCHEME_FALSE; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k1938 in k1932 in k1929 in a1922 in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_fcall f_1940(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_1940,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1947,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_1951,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[8]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[8]+1); av2[1]=t3; av2[2]=lf[46]; av2[3]=lf[10]; 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);}}} /* k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 t3; C_word 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_1755,2,av);} a=C_alloc(29); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1756,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_1896,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_2009,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_2029,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_1923,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_1993,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word)li14),tmp=(C_word)a,a+=5,tmp); /* tcp.scm:507: make-output-port */ t8=*((C_word*)lf[49]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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:507: make-output-port */ t7=*((C_word*)lf[49]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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 k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_fcall f_1756(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_1756,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1760,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* tcp.scm:477: tcp-write-timeout */ t4=*((C_word*)lf[24]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1750 in k1660 in read-input in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1752(C_word c,C_word *av){ C_word tmp; 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_1752,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; f_1665(t2,C_a_i_plus(&a,2,t1,((C_word*)t0)[3]));} /* k2758 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 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_2760,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2764,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=stub68(t4,t5); /* tcp.scm:163: ##sys#peek-c-string */ t7=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1953 in k1949 in k1938 in k1932 in k1929 in a1922 in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1955,2,av);} /* tcp.scm:525: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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 k2758 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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,3)))){ C_save_and_reclaim((void *)f_2764,2,av);} /* tcp.scm:594: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1949 in k1938 in k1932 in k1929 in a1922 in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1951(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1951,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1955,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub64(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub68(t5,t6); /* tcp.scm:163: ##sys#peek-c-string */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1758 in output in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_1760,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_1771,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_1893,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:480: current-milliseconds */ t7=*((C_word*)lf[37]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=t5; f_1771(t6,C_SCHEME_FALSE);}} /* loop in k1769 in k1758 in output in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_fcall f_1773(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_1773,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_i_foreign_fixnum_argumentp(C_fix(0)); t14=stub173(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(stub73(C_SCHEME_UNDEFINED))){ t16=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1795,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:486: ##sys#thread-block-for-timeout! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[34]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[34]+1); av2[1]=t16; av2[2]=*((C_word*)lf[28]+1); av2[3]=t4; tp(4,av2);}} else{ t17=t16;{ C_word av2[2]; av2[0]=t17; av2[1]=C_SCHEME_UNDEFINED; f_1795(2,av2);}}} else{ if(C_truep(stub79(C_SCHEME_UNDEFINED))){ t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1827,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:496: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[35]+1); av2[1]=t1; av2[2]=t16; tp(3,av2);}} else{ t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1838,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_1842,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[8]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[8]+1); av2[1]=t17; av2[2]=lf[40]; av2[3]=lf[10]; 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:501: 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_1886,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:505: current-milliseconds */ t22=*((C_word*)lf[37]+1);{ C_word av2[2]; av2[0]=t22; av2[1]=t21; ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}} else{ /* tcp.scm:501: 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);}}}} /* k1769 in k1758 in output in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_fcall f_1771(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_1771,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_1773,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_1773(t5,((C_word*)t0)[5],((C_word*)t0)[6],C_fix(0),t1);} /* tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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; 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_2553,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_2560,a[2]=t4,a[3]=t8,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* tcp.scm:580: tcp-connect-timeout */ t10=*((C_word*)lf[25]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k1301 in k1298 in k1294 in loop in a2810 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_1303,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1306,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_1316,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_1320,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t6; av2[2]=lf[73]; av2[3]=lf[10]; tp(4,av2);}} else{ /* tcp.scm:278: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k1304 in k1301 in k1298 in k1294 in loop in a2810 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1306,2,av);} /* tcp.scm:278: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1298 in k1294 in loop in a2810 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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; C_word t3; C_word 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_1300,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1303,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[74]; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1219,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:233: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t6; av2[2]=t7; tp(3,av2);}} else{ t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; f_1219(2,av2);}}} /* k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 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_2560,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2563,a[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_2827,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:581: current-milliseconds */ t5=*((C_word*)lf[37]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t3; f_2563(t4,C_SCHEME_FALSE);}} /* k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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; C_word t3; C_word 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_2566,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_2572,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); if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2572(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2803,a[2]=((C_word*)t0)[3],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_2811,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_2817,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li33),tmp=(C_word)a,a+=5,tmp); /* tcp.scm:585: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t5; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}}} /* k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_fcall f_2563(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_2563,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2566,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); /* tcp.scm:582: make-string */ t4=*((C_word*)lf[16]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=C_fix((C_word)sizeof(struct sockaddr_in)); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1793 in loop in k1769 in k1758 in output in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1795(C_word c,C_word *av){ C_word tmp; C_word t0=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_1795,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1798,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:488: ##sys#thread-block-for-i/o! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[32]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[32]+1); av2[1]=t2; av2[2]=*((C_word*)lf[28]+1); av2[3]=((C_word*)t0)[8]; av2[4]=lf[39]; tp(5,av2);}} /* k2416 in tcp-accept in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_2418,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2421,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_2501,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:543: current-milliseconds */ t5=*((C_word*)lf[37]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t3; f_2421(t4,C_SCHEME_FALSE);}} /* k1796 in k1793 in loop in k1769 in k1758 in output in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_1798,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1801,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:489: ##sys#thread-yield! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[31]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[31]+1); av2[1]=t2; tp(2,av2);}} /* k1314 in k1301 in k1298 in k1294 in loop in a2810 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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,5)))){ C_save_and_reclaim((void *)f_1316,2,av);} /* tcp.scm:283: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[64]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2754 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2756,2,av);} /* tcp.scm:594: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[64]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2528 in tcp-accept-ready? in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2530,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2534,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub64(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub68(t5,t6); /* tcp.scm:163: ##sys#peek-c-string */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1909 in k1894 in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1911(C_word c,C_word *av){ C_word tmp; C_word t0=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_1911,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1914,a[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:536: ##sys#set-port-data! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[44]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* k2532 in k2528 in tcp-accept-ready? in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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,3)))){ C_save_and_reclaim((void *)f_2534,2,av);} /* tcp.scm:567: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1912 in k1909 in k1894 in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1914,2,av);} /* tcp.scm:537: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2419 in k2416 in tcp-accept in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_fcall f_2421(C_word 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_2421,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_2426,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_2426(2,av2);}} /* loop in k2419 in k2416 in tcp-accept in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *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_2426,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2430,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:546: ##sys#thread-block-for-timeout! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[34]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[34]+1); av2[1]=t2; av2[2]=*((C_word*)lf[28]+1); av2[3]=((C_word*)t0)[6]; tp(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2430(2,av2);}}} /* a2158 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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; 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_2159,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2163,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:419: read-input */ t3=((C_word*)t0)[5]; f_1658(t3,t2);} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2163(2,av2);}}} /* k2736 in k2732 in k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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,3)))){ C_save_and_reclaim((void *)f_2738,2,av);} /* tcp.scm:596: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2701 in loop in k2588 in k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2703(C_word c,C_word *av){ C_word tmp; C_word 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_2703,2,av);} /* tcp.scm:607: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[64]; 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);}} /* k2732 in k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_2734,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2738,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=stub68(t4,t5); /* tcp.scm:163: ##sys#peek-c-string */ t7=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2705 in loop in k2588 in k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 t6; C_word t7; 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=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2711,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=stub68(t4,t5); /* tcp.scm:163: ##sys#peek-c-string */ t7=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2591 in k2588 in k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_2593,2,av);} a=C_alloc(12); t2=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t3=stub613(C_SCHEME_UNDEFINED,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2599,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=stub64(C_SCHEME_UNDEFINED); t8=t7; t9=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t10=stub123(C_SCHEME_UNDEFINED,t9); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2618,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_2622,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t12; av2[2]=lf[65]; av2[3]=lf[10]; 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=stub123(C_SCHEME_UNDEFINED,t7); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2644,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2648,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t10; av2[2]=lf[66]; av2[3]=lf[10]; tp(4,av2);}} else{ /* tcp.scm:615: ##net#io-ports */ t7=lf[27]; f_1641(t7,((C_word*)t0)[3],lf[64],((C_word*)t0)[2]);}}} /* k2588 in k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_2590,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2593,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_2656,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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t2; f_2656(2,av2);}} /* k2728 in k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2730,2,av);} /* tcp.scm:596: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[64]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2161 in a2158 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2163,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_END_OF_FILE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k2597 in k2591 in k2588 in k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2599,2,av);} /* tcp.scm:615: ##net#io-ports */ t2=lf[27]; f_1641(t2,((C_word*)t0)[2],lf[64],((C_word*)t0)[3]);} /* k2398 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2400,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2404,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=stub68(t4,t5); /* tcp.scm:163: ##sys#peek-c-string */ t7=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2402 in k2398 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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,3)))){ C_save_and_reclaim((void *)f_2404,2,av);} /* tcp.scm:358: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k976 */ static void C_ccall f_978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_978,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_981,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_scheduler_toplevel(2,av2);}} /* tcp-accept in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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=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_2408,3,av);} a=C_alloc(5); t3=C_i_check_structure(t2,lf[3]); t4=C_slot(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2418,a[2]=t5,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* tcp.scm:542: tcp-accept-timeout */ t7=*((C_word*)lf[26]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,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_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_tcp_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(343))){ C_save(t1); C_rereclaim2(343*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,94); lf[1]=C_h_intern(&lf[1],17,"\003sysmake-c-string"); lf[2]=C_h_intern(&lf[2],10,"tcp-listen"); lf[3]=C_h_intern(&lf[3],12,"tcp-listener"); lf[4]=C_h_intern(&lf[4],15,"\003syssignal-hook"); lf[5]=C_h_intern(&lf[5],14,"\000network-error"); lf[6]=C_h_intern(&lf[6],13,"string-append"); lf[7]=C_h_intern(&lf[7],17,"\003syspeek-c-string"); lf[8]=C_h_intern(&lf[8],17,"\003sysstring-append"); lf[9]=C_decode_literal(C_heaptop,"\376B\000\000\027cannot listen on socket"); lf[10]=C_decode_literal(C_heaptop,"\376B\000\000\003 - "); lf[11]=C_decode_literal(C_heaptop,"\376B\000\000\025cannot bind to socket"); lf[12]=C_decode_literal(C_heaptop,"\376B\000\000\035error while setting up socket"); lf[13]=C_h_intern(&lf[13],9,"\003syserror"); lf[14]=C_decode_literal(C_heaptop,"\376B\000\000\024cannot create socket"); lf[15]=C_decode_literal(C_heaptop,"\376B\000\000\037getting listener host IP failed"); lf[16]=C_h_intern(&lf[16],11,"make-string"); lf[17]=C_h_intern(&lf[17],13,"\000domain-error"); lf[18]=C_decode_literal(C_heaptop,"\376B\000\000\023invalid port number"); lf[19]=C_h_intern(&lf[19],13,"tcp-listener\077"); lf[20]=C_h_intern(&lf[20],9,"tcp-close"); lf[21]=C_decode_literal(C_heaptop,"\376B\000\000\027cannot close TCP socket"); lf[22]=C_h_intern(&lf[22],15,"tcp-buffer-size"); lf[23]=C_h_intern(&lf[23],16,"tcp-read-timeout"); lf[24]=C_h_intern(&lf[24],17,"tcp-write-timeout"); lf[25]=C_h_intern(&lf[25],19,"tcp-connect-timeout"); lf[26]=C_h_intern(&lf[26],18,"tcp-accept-timeout"); lf[28]=C_h_intern(&lf[28],18,"\003syscurrent-thread"); lf[29]=C_h_intern(&lf[29],22,"\000network-timeout-error"); lf[30]=C_decode_literal(C_heaptop,"\376B\000\000\030read operation timed out"); lf[31]=C_h_intern(&lf[31],17,"\003systhread-yield!"); lf[32]=C_h_intern(&lf[32],25,"\003systhread-block-for-i/o!"); lf[33]=C_h_intern(&lf[33],6,"\000input"); lf[34]=C_h_intern(&lf[34],29,"\003systhread-block-for-timeout!"); lf[35]=C_h_intern(&lf[35],22,"\003sysdispatch-interrupt"); lf[36]=C_decode_literal(C_heaptop,"\376B\000\000\027cannot read from socket"); lf[37]=C_h_intern(&lf[37],20,"current-milliseconds"); lf[38]=C_decode_literal(C_heaptop,"\376B\000\000\031write operation timed out"); lf[39]=C_h_intern(&lf[39],7,"\000output"); lf[40]=C_decode_literal(C_heaptop,"\376B\000\000\026cannot write to socket"); lf[41]=C_decode_literal(C_heaptop,"\376B\000\000\005(tcp)"); lf[42]=C_decode_literal(C_heaptop,"\376B\000\000\005(tcp)"); lf[43]=C_h_intern(&lf[43],6,"socket"); lf[44]=C_h_intern(&lf[44],18,"\003sysset-port-data!"); lf[45]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[46]=C_decode_literal(C_heaptop,"\376B\000\000\037cannot close socket output port"); lf[47]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[48]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[49]=C_h_intern(&lf[49],16,"make-output-port"); lf[50]=C_decode_literal(C_heaptop,"\376B\000\000\035cannot check socket for input"); lf[51]=C_decode_literal(C_heaptop,"\376B\000\000\036cannot close socket input port"); lf[52]=C_h_intern(&lf[52],20,"\003sysscan-buffer-line"); lf[53]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[54]=C_h_intern(&lf[54],13,"\003syssubstring"); lf[55]=C_h_intern(&lf[55],15,"make-input-port"); lf[56]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[57]=C_h_intern(&lf[57],15,"\003sysmake-string"); lf[58]=C_decode_literal(C_heaptop,"\376B\000\000\027cannot create TCP ports"); lf[59]=C_h_intern(&lf[59],10,"tcp-accept"); lf[60]=C_decode_literal(C_heaptop,"\376B\000\000\036could not accept from listener"); lf[61]=C_decode_literal(C_heaptop,"\376B\000\000\032accept operation timed out"); lf[62]=C_h_intern(&lf[62],17,"tcp-accept-ready\077"); lf[63]=C_decode_literal(C_heaptop,"\376B\000\000\035cannot check socket for input"); lf[64]=C_h_intern(&lf[64],11,"tcp-connect"); lf[65]=C_decode_literal(C_heaptop,"\376B\000\000\023getsockopt() failed"); lf[66]=C_decode_literal(C_heaptop,"\376B\000\000\024cannot create socket"); lf[67]=C_decode_literal(C_heaptop,"\376B\000\000\030cannot connect to socket"); lf[68]=C_decode_literal(C_heaptop,"\376B\000\000\016fcntl() failed"); lf[69]=C_decode_literal(C_heaptop,"\376B\000\000\035error while setting up socket"); lf[70]=C_decode_literal(C_heaptop,"\376B\000\000\024cannot create socket"); lf[71]=C_decode_literal(C_heaptop,"\376B\000\000\030cannot find host address"); lf[72]=C_decode_literal(C_heaptop,"\376B\000\000\021no port specified"); lf[73]=C_decode_literal(C_heaptop,"\376B\000\000 cannot compute port from service"); lf[74]=C_decode_literal(C_heaptop,"\376B\000\000\003tcp"); lf[75]=C_h_intern(&lf[75],9,"substring"); lf[76]=C_h_intern(&lf[76],20,"\003systcp-port->fileno"); lf[77]=C_h_intern(&lf[77],5,"error"); lf[78]=C_decode_literal(C_heaptop,"\376B\000\000)argument does not appear to be a TCP port"); lf[79]=C_h_intern(&lf[79],13,"\003sysport-data"); lf[80]=C_h_intern(&lf[80],13,"tcp-addresses"); lf[81]=C_decode_literal(C_heaptop,"\376B\000\000\035cannot compute remote address"); lf[82]=C_decode_literal(C_heaptop,"\376B\000\000\034cannot compute local address"); lf[83]=C_h_intern(&lf[83],16,"tcp-port-numbers"); lf[84]=C_decode_literal(C_heaptop,"\376B\000\000\032cannot compute remote port"); lf[85]=C_decode_literal(C_heaptop,"\376B\000\000\031cannot compute local port"); lf[86]=C_h_intern(&lf[86],17,"tcp-listener-port"); lf[87]=C_decode_literal(C_heaptop,"\376B\000\000\033cannot obtain listener port"); lf[88]=C_h_intern(&lf[88],16,"tcp-abandon-port"); lf[89]=C_h_intern(&lf[89],19,"tcp-listener-fileno"); lf[90]=C_h_intern(&lf[90],14,"make-parameter"); lf[91]=C_decode_literal(C_heaptop,"\376B\000\000\031cannot initialize Winsock"); lf[92]=C_h_intern(&lf[92],17,"register-feature!"); lf[93]=C_h_intern(&lf[93],3,"tcp"); C_register_lf2(lf,94,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_978,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_ports_toplevel(2,av2);}} /* read-input in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_fcall f_1658(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_1658,2,t0,t1);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1662,a[2]=((C_word*)t0)[2],a[3]=((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:369: tcp-read-timeout */ t3=*((C_word*)lf[23]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_fcall f_1657(C_word t0,C_word t1){ C_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_1657,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_1658,a[2]=((C_word*)t0)[2],a[3]=((C_word*)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_1755,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_2045,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_2067,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_2109,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_2159,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_2177,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_2242,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_2365,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:394: make-input-port */ t13=*((C_word*)lf[55]+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);}} /* k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_1654,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_1657,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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_1657(t5,(C_truep(t4)?lf[56]:C_SCHEME_FALSE));} else{ t4=t3; f_1657(t4,C_SCHEME_FALSE);}} /* k2709 in k2705 in loop in k2588 in k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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,3)))){ C_save_and_reclaim((void *)f_2711,2,av);} /* tcp.scm:607: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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; 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_1627,2,av);} a=C_alloc(7); t2=C_mutate2((C_word*)lf[23]+1 /* (set! tcp-read-timeout ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1631,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_3068,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* tcp.scm:350: check */ f_1610(t4,lf[24]);} /* k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2572(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2572,2,av);} a=C_alloc(11); t2=C_i_check_exact(((C_word*)((C_word*)t0)[2])[1]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2578,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); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2797,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* tcp.scm:588: ##net#gethostaddr */ f_1239(t4,((C_word*)t0)[4],((C_word*)((C_word*)t0)[6])[1],((C_word*)((C_word*)t0)[2])[1]);} /* k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_2578,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_i_foreign_fixnum_argumentp(C_fix(0)); t7=stub85(C_SCHEME_UNDEFINED,t4,t5,t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2584,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_2780,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_2784,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t12; av2[2]=lf[70]; av2[3]=lf[10]; tp(4,av2);}} else{ t11=t9;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_SCHEME_UNDEFINED; f_2584(2,av2);}}} /* a1826 in loop in k1769 in k1758 in output in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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; 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_1827,2,av);} /* tcp.scm:497: g555 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1773(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 t6; C_word 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_1639,2,av);} a=C_alloc(31); t2=C_mutate2((C_word*)lf[26]+1 /* (set! tcp-accept-timeout ...) */,t1); t3=*((C_word*)lf[22]+1); t4=C_mutate2(&lf[27] /* (set! ##net#io-ports ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1641,a[2]=t3,a[3]=((C_word)li26),tmp=(C_word)a,a+=4,tmp)); t5=C_mutate2((C_word*)lf[59]+1 /* (set! tcp-accept ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2408,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[62]+1 /* (set! tcp-accept-ready? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2503,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[64]+1 /* (set! tcp-connect ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2553,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[76]+1 /* (set! ##sys#tcp-port->fileno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2835,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[80]+1 /* (set! tcp-addresses ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2853,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[83]+1 /* (set! tcp-port-numbers ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2920,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[86]+1 /* (set! tcp-listener-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2991,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[88]+1 /* (set! tcp-abandon-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3030,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[89]+1 /* (set! tcp-listener-fileno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3049,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp)); t14=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} /* k2670 in loop in k2588 in k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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,4)))){ 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); /* tcp.scm:602: ##sys#thread-block-for-i/o! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[32]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[32]+1); av2[1]=t2; av2[2]=*((C_word*)lf[28]+1); av2[3]=((C_word*)t0)[3]; av2[4]=lf[39]; tp(5,av2);}} /* k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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(6,c,2)))){ C_save_and_reclaim((void *)f_1635,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[25]+1 /* (set! tcp-connect-timeout ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1639,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3060,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* tcp.scm:352: check */ f_1610(t4,lf[26]);} /* k2673 in k2670 in loop in k2588 in k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2675,2,av);} /* tcp.scm:603: ##sys#thread-yield! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[31]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[31]+1); av2[1]=((C_word*)t0)[2]; tp(2,av2);}} /* k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1631,2,av);} a=C_alloc(7); t2=C_mutate2((C_word*)lf[24]+1 /* (set! tcp-write-timeout ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1635,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_3064,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* tcp.scm:351: check */ f_1610(t4,lf[25]);} /* k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_2584,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2587,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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=stub164(C_SCHEME_UNDEFINED,t3); t5=C_eqp(C_fix((C_word)SOCKET_ERROR),t4); if(C_truep(t5)){ t6=stub64(C_SCHEME_UNDEFINED); t7=t6; t8=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t9=stub123(C_SCHEME_UNDEFINED,t8); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2756,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_2760,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t11; av2[2]=lf[69]; av2[3]=lf[10]; tp(4,av2);}} else{ t6=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_2587(2,av2);}}} /* k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_2587,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2590,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2590(2,av2);}} else{ t3=stub64(C_SCHEME_UNDEFINED); t4=t3; t5=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t6=stub123(C_SCHEME_UNDEFINED,t5); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2730,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_2734,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t8; av2[2]=lf[68]; av2[3]=lf[10]; tp(4,av2);}}} /* tcp-listen in k1210 in k982 in k979 in k976 */ 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=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_1454,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; C_word t16; C_word t17; 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=C_i_check_exact(t2); t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1473,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t11,tmp=(C_word)a,a+=6,tmp); t16=C_fixnum_lessp(t2,C_fix(0)); if(C_truep(t16)){ if(C_truep(t16)){ /* tcp.scm:318: ##sys#signal-hook */ t17=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t17; av2[1]=t15; av2[2]=lf[17]; av2[3]=lf[2]; av2[4]=lf[18]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t17+1)))(6,av2);}} else{ t17=t15;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t17; av2[1]=C_SCHEME_UNDEFINED; f_1473(2,av2);}}} else{ if(C_truep(C_fixnum_greaterp(t2,C_fix(65535)))){ /* tcp.scm:318: ##sys#signal-hook */ t17=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t17; av2[1]=t15; av2[2]=lf[17]; av2[3]=lf[2]; av2[4]=lf[18]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t17+1)))(6,av2);}} else{ t17=t15;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t17; av2[1]=C_SCHEME_UNDEFINED; f_1473(2,av2);}}}} /* ##net#gethostaddr in k1210 in k982 in k979 in k976 */ static void C_fcall f_1239(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(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1239,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_1248,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:239: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[1]+1); av2[1]=t7; av2[2]=t8; tp(3,av2);}} else{ t8=C_i_foreign_fixnum_argumentp(t4); t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=stub222(C_SCHEME_UNDEFINED,t6,C_SCHEME_FALSE,t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k1799 in k1796 in k1793 in loop in k1769 in k1758 in output in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_1801,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1804,a[2]=((C_word*)t0)[2],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[28]+1),C_fix(13)))){ /* tcp.scm:491: ##sys#signal-hook */ t3=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[29]; av2[3]=lf[38]; av2[4]=((C_word*)t0)[7]; av2[5]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ /* tcp.scm:494: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_1773(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);}} /* k1802 in k1799 in k1796 in k1793 in loop in k1769 in k1758 in output in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in ... */ static void C_ccall f_1804(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1804,2,av);} /* tcp.scm:494: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1773(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* k1398 in k1394 in k1371 in k1368 in k1362 in k1359 in k1471 in tcp-listen in k1210 in k982 in k979 in k976 */ static void C_ccall f_1400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1400,2,av);} /* tcp.scm:310: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* check in k1602 in k1210 in k982 in k979 in k976 */ static void C_fcall f_1610(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_1610,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_1612,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_1612 in check in k1602 in k1210 in k982 in k979 in k976 */ 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=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_1612,3,av);} if(C_truep(t2)){ t3=C_i_check_exact_2(t2,((C_word*)t0)[2]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k1246 in gethostaddr in k1210 in k982 in k979 in k976 */ static void C_ccall f_1248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1248,2,av);} t2=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=stub222(C_SCHEME_UNDEFINED,((C_word*)t0)[4],t1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2837 in tcp-port->fileno in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2839,2,av);} if(C_truep(C_i_vectorp(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_slot(t1,C_fix(0)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* tcp.scm:621: error */ t2=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[76]; av2[3]=lf[78]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* ##sys#tcp-port->fileno in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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=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_2835,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2839,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:618: ##sys#port-data */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[79]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k2881 in k2871 in k2867 in k2864 in k2857 in tcp-addresses in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2883,2,av);} /* tcp.scm:629: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[80]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2885 in k2871 in k2867 in k2864 in k2857 in tcp-addresses in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2887,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2891,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub64(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub68(t5,t6); /* tcp.scm:163: ##sys#peek-c-string */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2253 in k2244 in a2241 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_fcall f_2255(C_word 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,5)))){ C_save_and_reclaim_args((void *)trf_2255,2,t0,t1);} a=C_alloc(15); 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_2260,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)li22),tmp=(C_word)a,a+=8,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2316,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word)li23),tmp=(C_word)a,a+=5,tmp); /* tcp.scm:442: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[7]; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* loop in k2588 in k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 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,3)))){ C_save_and_reclaim((void *)f_2656,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=stub150(C_SCHEME_UNDEFINED,t3,t4,t5); t7=C_eqp(C_fix((C_word)SOCKET_ERROR),t6); if(C_truep(t7)){ if(C_truep(stub76(C_SCHEME_UNDEFINED))){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2672,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:601: ##sys#thread-block-for-timeout! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[34]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[34]+1); av2[1]=t8; av2[2]=*((C_word*)lf[28]+1); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} else{ t9=t8;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_2672(2,av2);}}} else{ if(C_truep(stub79(C_SCHEME_UNDEFINED))){ /* tcp.scm:605: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[35]+1); av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[5])[1]; tp(3,av2);}} else{ t8=stub64(C_SCHEME_UNDEFINED); t9=t8; t10=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t11=stub123(C_SCHEME_UNDEFINED,t10); t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2703,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_2707,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t13; av2[2]=lf[67]; av2[3]=lf[10]; tp(4,av2);}}}} else{ t8=C_SCHEME_UNDEFINED; t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k2650 in k2646 in k2591 in k2588 in k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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,3)))){ C_save_and_reclaim((void *)f_2652,2,av);} /* tcp.scm:614: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2801 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2803,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_2572(2,av2);}} else{ /* tcp.scm:586: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[17]; av2[3]=lf[64]; av2[4]=lf[72]; av2[5]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k2889 in k2885 in k2871 in k2867 in k2864 in k2857 in tcp-addresses in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2891,2,av);} /* tcp.scm:629: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a2259 in k2253 in k2244 in a2241 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2260(C_word c,C_word *av){ C_word tmp; C_word t0=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_2260,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_2270,a[2]=((C_word*)t0)[2],a[3]=((C_word*)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:444: ##sys#scan-buffer-line */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[52]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[52]+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);}} /* k1444 in k1359 in k1471 in tcp-listen in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_1446,2,av);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_1364(2,av2);}} else{ /* tcp.scm:299: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[2]; av2[4]=lf[15]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}} /* k1836 in loop in k1769 in k1758 in output in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1838(C_word c,C_word *av){ C_word tmp; C_word 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_1838,2,av);} /* tcp.scm:499: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=C_SCHEME_FALSE; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* a2816 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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=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_2817,4,av);} t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k2229 in loop in a2176 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2231,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* tcp.scm:436: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_2183(t3,((C_word*)t0)[4],((C_word*)t0)[6],((C_word*)t0)[3],((C_word*)t0)[7]);}} /* k2864 in k2857 in tcp-addresses in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2866,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2869,a[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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; f_2869(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2904,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_2908,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t4; av2[2]=lf[82]; av2[3]=lf[10]; tp(4,av2);}}} /* k2867 in k2864 in k2857 in tcp-addresses in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2869(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_2869,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2873,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=stub200(t4,t5); /* tcp.scm:209: ##sys#peek-c-string */ t7=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a2810 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 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_2811,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_1273,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_1273(t8,t1,C_fix(0));} /* k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1645(C_word c,C_word *av){ C_word tmp; C_word t0=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_1645,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1648,a[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[57]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[57]+1); av2[1]=t2; av2[2]=C_fix(1024); av2[3]=C_make_character(32); tp(4,av2);}} /* k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1648(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_1648,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_1654,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:365: tbs */ t14=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} /* ##net#io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_fcall f_1641(C_word t0,C_word t1,C_word 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_1641,4,t0,t1,t2,t3);} a=C_alloc(14); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1645,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_1645(2,av2);}} else{ t5=stub64(C_SCHEME_UNDEFINED); t6=t5; t7=t3; t8=C_i_foreign_fixnum_argumentp(t7); t9=stub123(C_SCHEME_UNDEFINED,t8); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2396,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_2400,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[8]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[8]+1); av2[1]=t11; av2[2]=lf[58]; av2[3]=lf[10]; tp(4,av2);}}} /* k2778 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_2780,2,av);} /* tcp.scm:592: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[64]; 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);}} /* k2782 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2784,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2788,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub64(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub68(t5,t6); /* tcp.scm:163: ##sys#peek-c-string */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2786 in k2782 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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,3)))){ C_save_and_reclaim((void *)f_2788,2,av);} /* tcp.scm:592: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a2241 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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=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_2242,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2246,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:439: read-input */ t5=((C_word*)t0)[5]; f_1658(t5,t4);} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2246(2,av2);}}} /* k1844 in k1840 in loop in k1769 in k1758 in output in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1846,2,av);} /* tcp.scm:499: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1840 in loop in k1769 in k1758 in output in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 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_1842,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1846,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub64(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub68(t5,t6); /* tcp.scm:163: ##sys#peek-c-string */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2244 in a2241 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2246,2,av);} a=C_alloc(8); 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; /* Re-use our own argvector */ 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=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2255,a[2]=((C_word*)t0)[2],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)[4],tmp=(C_word)a,a+=8,tmp); if(C_truep(t2)){ t4=t3; f_2255(t4,t2);} else{ t4=C_fudge(C_fix(21)); t5=t3; f_2255(t5,C_fixnum_difference(t4,((C_word*)((C_word*)t0)[2])[1]));}}} /* k2646 in k2591 in k2588 in k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 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_2648,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2652,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=stub68(t4,t5); /* tcp.scm:163: ##sys#peek-c-string */ t7=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2616 in k2591 in k2588 in k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2618,2,av);} /* tcp.scm:611: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[64]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2511 in tcp-accept-ready? in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2513,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(C_fix(1),((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2642 in k2591 in k2588 in k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2644,2,av);} /* tcp.scm:614: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[64]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3038 in tcp-abandon-port in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_3040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3040,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_i_set_i_slot(t1,C_fix(1),C_SCHEME_TRUE):C_i_set_i_slot(t1,C_fix(2),C_SCHEME_TRUE)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2795 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2797(C_word c,C_word *av){ C_word tmp; C_word 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_2797,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_2578(2,av2);}} else{ /* tcp.scm:589: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[64]; av2[4]=lf[71]; av2[5]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k2524 in tcp-accept-ready? in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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,5)))){ C_save_and_reclaim((void *)f_2526,2,av);} /* tcp.scm:567: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[62]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k3070 in k1602 in k1210 in k982 in k979 in k976 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3072,2,av);} /* tcp.scm:349: make-parameter */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(60000); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* tcp-listener-fileno in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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=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_3049,3,av);} t3=C_i_check_structure_2(t2,lf[3],lf[89]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2624 in k2620 in k2591 in k2588 in k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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,3)))){ C_save_and_reclaim((void *)f_2626,2,av);} /* tcp.scm:611: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2620 in k2591 in k2588 in k2585 in k2582 in k2576 in k2570 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2622,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2626,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=stub68(t4,t5); /* tcp.scm:163: ##sys#peek-c-string */ t7=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a2044 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2045(C_word c,C_word *av){ 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_2045,2,av);} a=C_alloc(6); t2=(*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]=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:397: read-input */ t3=((C_word*)t0)[5]; f_1658(t3,t2);} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2049(2,av2);}}} /* k2047 in a2044 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2049,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k3062 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3064,2,av);} /* tcp.scm:351: make-parameter */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3058 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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,3)))){ C_save_and_reclaim((void *)f_3060,2,av);} /* tcp.scm:352: make-parameter */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2857 in tcp-addresses in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 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_2859,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2866,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=stub184(t4,t5); /* tcp.scm:185: ##sys#peek-c-string */ t7=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* tcp-addresses in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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; 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_2853,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_fix(0),C_SCHEME_TRUE,lf[80]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2859,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:625: ##sys#tcp-port->fileno */ t6=*((C_word*)lf[76]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* a2269 in a2259 in k2253 in k2244 in a2241 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2270,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:451: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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_2286,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:452: read-input */ t6=((C_word*)t0)[6]; f_1658(t6,t5);}} /* tcp-listener-port in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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=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_2991,3,av);} a=C_alloc(12); t3=C_i_check_structure_2(t2,lf[3],lf[86]); t4=C_slot(t2,C_fix(1)); t5=t4; t6=C_i_foreign_fixnum_argumentp(t5); t7=stub190(C_SCHEME_UNDEFINED,t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3004,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_3014,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_3018,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t12; av2[2]=lf[87]; av2[3]=lf[10]; tp(4,av2);}} else{ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} /* k2499 in k2416 in tcp-accept in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2501(C_word c,C_word *av){ C_word tmp; 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_2501,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; f_2421(t2,C_a_i_plus(&a,2,((C_word*)t0)[3],t1));} /* tcp-accept-ready? in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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=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_2503,3,av);} a=C_alloc(11); t3=C_i_check_structure_2(t2,lf[3],lf[62]); t4=C_slot(t2,C_fix(1)); t5=C_i_foreign_fixnum_argumentp(t4); t6=stub159(C_SCHEME_UNDEFINED,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2513,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_2526,a[2]=t8,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2530,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t11; av2[2]=lf[63]; av2[3]=lf[10]; tp(4,av2);}} else{ t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_eqp(C_fix(1),t7); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* tcp-close in k1210 in k982 in k979 in k976 */ 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 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_1562,3,av);} a=C_alloc(7); t3=C_i_check_structure(t2,lf[3]); t4=C_slot(t2,C_fix(1)); t5=C_i_foreign_fixnum_argumentp(t4); t6=stub123(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_1582,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1586,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t9; av2[2]=lf[21]; av2[3]=lf[10]; tp(4,av2);}} else{ t8=C_SCHEME_UNDEFINED; t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k2825 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_2827,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; f_2563(t2,C_a_i_plus(&a,2,t1,((C_word*)t0)[3]));} /* k3066 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_3068(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3068,2,av);} /* tcp.scm:350: make-parameter */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(60000); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2284 in a2269 in a2259 in k2253 in k2244 in a2241 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_2286,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:455: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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:458: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k2910 in k2906 in k2864 in k2857 in tcp-addresses in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2912,2,av);} /* tcp.scm:627: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1294 in loop in a2810 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1296,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1300,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:280: substring */ t4=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1975 in a1922 in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_fcall f_1977(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_1977,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1980,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* tcp.scm:521: output */ t3=((C_word*)t0)[4]; f_1756(t3,t2,((C_word*)((C_word*)t0)[2])[1]);} else{ t2=((C_word*)t0)[3]; f_1931(t2,C_SCHEME_UNDEFINED);}} /* k2924 in tcp-port-numbers in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 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_2926,2,av);} a=C_alloc(13); t2=C_i_foreign_fixnum_argumentp(t1); t3=stub190(C_SCHEME_UNDEFINED,t2); t4=t3; t5=C_i_foreign_fixnum_argumentp(t1); t6=stub195(C_SCHEME_UNDEFINED,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2935,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_2975,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_2979,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t11; av2[2]=lf[85]; av2[3]=lf[10]; tp(4,av2);}} else{ t10=t8;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; f_2935(2,av2);}}} /* k2973 in k2924 in tcp-port-numbers in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2975,2,av);} /* tcp.scm:638: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[83]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* tcp-port-numbers in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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=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_2920,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_fix(0),C_SCHEME_TRUE,lf[83]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2926,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:634: ##sys#tcp-port->fileno */ t6=*((C_word*)lf[76]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k2977 in k2924 in tcp-port-numbers in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 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_2979,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2983,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub64(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub68(t5,t6); /* tcp.scm:163: ##sys#peek-c-string */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1978 in k1975 in a1922 in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1980,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,lf[47]); t3=((C_word*)t0)[3]; f_1931(t3,t2);} /* k2981 in k2977 in k2924 in tcp-port-numbers in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2983,2,av);} /* tcp.scm:638: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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 a2810 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_fcall f_1273(C_word t0,C_word t1,C_word 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_1273,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ /* tcp.scm:275: 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_1296,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:279: substring */ t6=*((C_word*)lf[75]+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:285: loop */ t7=t1; t8=t4; t1=t7; t2=t8; goto loop;}}} /* f_1993 in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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; 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_1993,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_2003,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:529: output */ t4=((C_word*)t0)[3]; f_1756(t4,t3,((C_word*)((C_word*)t0)[2])[1]);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* tcp-listener? in k1210 in k982 in k979 in k976 */ 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; 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_1553,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(C_blockp(t2))?C_i_structurep(t2,lf[3]):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2902 in k2864 in k2857 in tcp-addresses in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2904(C_word c,C_word *av){ C_word tmp; C_word 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_2904,2,av);} /* tcp.scm:627: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[80]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2906 in k2864 in k2857 in tcp-addresses in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2908,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2912,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub64(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub68(t5,t6); /* tcp.scm:163: ##sys#peek-c-string */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2871 in k2867 in k2864 in k2857 in tcp-addresses in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2873,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2876,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:626: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_2883,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_2887,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t4; av2[2]=lf[81]; av2[3]=lf[10]; tp(4,av2);}}} /* k2874 in k2871 in k2867 in k2864 in k2857 in tcp-addresses in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2876,2,av);} /* tcp.scm:626: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2953 in k2933 in k2924 in tcp-port-numbers in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 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_2955,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2959,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub64(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub68(t5,t6); /* tcp.scm:163: ##sys#peek-c-string */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2949 in k2933 in k2924 in tcp-port-numbers in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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,5)))){ C_save_and_reclaim((void *)f_2951,2,av);} /* tcp.scm:640: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[83]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k3012 in tcp-listener-port in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_3014,2,av);} /* tcp.scm:648: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[86]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k1414 in k1368 in k1362 in k1359 in k1471 in tcp-listen in k1210 in k982 in k979 in k976 */ static void C_ccall f_1416(C_word c,C_word *av){ C_word tmp; C_word 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_1416,2,av);} /* tcp.scm:308: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[2]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2957 in k2953 in k2933 in k2924 in tcp-port-numbers in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2959,2,av);} /* tcp.scm:640: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1891 in k1758 in output in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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(4,c,1)))){ C_save_and_reclaim((void *)f_1893,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; f_1771(t2,C_a_i_plus(&a,2,t1,((C_word*)t0)[3]));} /* k3002 in tcp-listener-port in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_3004(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3004,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3016 in tcp-listener-port in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 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_3018,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3022,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub64(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub68(t5,t6); /* tcp.scm:163: ##sys#peek-c-string */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1894 in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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; C_word t3; C_word 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_1896,2,av);} a=C_alloc(6); t2=t1; t3=C_i_setslot(((C_word*)t0)[2],C_fix(3),lf[41]); t4=C_i_setslot(t2,C_fix(3),lf[42]); t5=C_i_setslot(((C_word*)t0)[2],C_fix(7),lf[43]); t6=C_i_setslot(t2,C_fix(7),lf[43]); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1911,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:535: ##sys#set-port-data! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[44]+1); av2[1]=t7; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k1422 in k1418 in k1368 in k1362 in k1359 in k1471 in tcp-listen in k1210 in k982 in k979 in k976 */ static void C_ccall f_1424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1424,2,av);} /* tcp.scm:308: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2933 in k2924 in tcp-port-numbers in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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(12,c,3)))){ C_save_and_reclaim((void *)f_2935,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2938,a[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_2951,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_2955,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[8]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t5; av2[2]=lf[84]; av2[3]=lf[10]; tp(4,av2);}} else{ /* tcp.scm:641: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k2936 in k2933 in k2924 in tcp-port-numbers in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_2938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2938,2,av);} /* tcp.scm:641: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1418 in k1368 in k1362 in k1359 in k1471 in tcp-listen in k1210 in k982 in k979 in k976 */ static void C_ccall f_1420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1420,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1424,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub64(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub68(t5,t6); /* tcp.scm:163: ##sys#peek-c-string */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* tcp-abandon-port in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *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_3030,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_fix(0),C_SCHEME_TRUE,lf[88]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3040,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:654: ##sys#port-data */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[79]+1); av2[1]=t5; av2[2]=t2; tp(3,av2);}} /* k3020 in k3016 in tcp-listener-port in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_3022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3022,2,av);} /* tcp.scm:648: string-append */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1602 in k1210 in k982 in k979 in k976 */ 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 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,3)))){ C_save_and_reclaim((void *)f_1604,2,av);} a=C_alloc(10); t2=C_mutate2((C_word*)lf[22]+1 /* (set! tcp-buffer-size ...) */,t1); t3=C_set_block_item(lf[23] /* tcp-read-timeout */,0,C_SCHEME_UNDEFINED); t4=C_set_block_item(lf[24] /* tcp-write-timeout */,0,C_SCHEME_UNDEFINED); t5=C_set_block_item(lf[25] /* tcp-connect-timeout */,0,C_SCHEME_UNDEFINED); t6=C_set_block_item(lf[26] /* tcp-accept-timeout */,0,C_SCHEME_UNDEFINED); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1610,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1627,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_3072,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* tcp.scm:349: check */ f_1610(t9,lf[23]);} /* k1884 in loop in k1769 in k1758 in output in k1753 in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1886(C_word c,C_word *av){ C_word tmp; C_word t0=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_1886,2,av);} a=C_alloc(4); t2=C_a_i_plus(&a,2,t1,((C_word*)t0)[2]); /* tcp.scm:501: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1773(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2);} /* k1690 in k1687 in loop in k1663 in k1660 in read-input in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_1692,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1695,a[2]=((C_word*)t0)[2],a[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:379: ##sys#thread-yield! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[31]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[31]+1); av2[1]=t2; tp(2,av2);}} /* k1693 in k1690 in k1687 in loop in k1663 in k1660 in read-input in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1695(C_word c,C_word *av){ C_word tmp; C_word t0=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_1695,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1698,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[28]+1),C_fix(13)))){ /* tcp.scm:381: ##sys#signal-hook */ t3=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[29]; av2[3]=lf[30]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ /* tcp.scm:384: loop */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[3]; f_1670(2,av2);}}} /* k1696 in k1693 in k1690 in k1687 in loop in k1663 in k1660 in read-input in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1698,2,av);} /* tcp.scm:384: loop */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_1670(2,av2);}} /* k1580 in tcp-close in k1210 in k982 in k979 in k976 */ 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,5)))){ C_save_and_reclaim((void *)f_1582,2,av);} /* tcp.scm:333: ##sys#signal-hook */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=lf[20]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k1584 in tcp-close in k1210 in k982 in k979 in k976 */ static void C_ccall f_1586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1586,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1590,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub64(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub68(t5,t6); /* tcp.scm:163: ##sys#peek-c-string */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1210 in k982 in k979 in k976 */ static void C_ccall f_1212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_1212,2,av);} a=C_alloc(15); t2=C_mutate2(&lf[0] /* (set! ##net#gethostaddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1239,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[2]+1 /* (set! tcp-listen ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1454,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[19]+1 /* (set! tcp-listener? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1553,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[20]+1 /* (set! tcp-close ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1562,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1604,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* tcp.scm:338: make-parameter */ t7=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1217 in k1298 in k1294 in loop in a2810 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1223,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:233: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=stub210(C_SCHEME_UNDEFINED,t2,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1660 in read-input in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ 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; 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_1662,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1665,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_1752,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:370: current-milliseconds */ t5=*((C_word*)lf[37]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t3; f_1665(t4,C_SCHEME_FALSE);}} /* k1663 in k1660 in read-input in k1655 in k1652 in k1646 in k1643 in io-ports in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_fcall f_1665(C_word 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_1665,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_1670,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_1670(2,av2);}} /* k1221 in k1217 in k1298 in k1294 in loop in a2810 in k2564 in k2561 in k2558 in tcp-connect in k1637 in k1633 in k1629 in k1625 in k1602 in k1210 in k982 in k979 in k976 */ static void C_ccall f_1223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1223,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=stub210(C_SCHEME_UNDEFINED,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[219] = { {"f_1670:tcp_2escm",(void*)f_1670}, {"f_1479:tcp_2escm",(void*)f_1479}, {"f_1473:tcp_2escm",(void*)f_1473}, {"f_984:tcp_2escm",(void*)f_984}, {"f_981:tcp_2escm",(void*)f_981}, {"f_1482:tcp_2escm",(void*)f_1482}, {"f_1590:tcp_2escm",(void*)f_1590}, {"f_2177:tcp_2escm",(void*)f_2177}, {"f_1689:tcp_2escm",(void*)f_1689}, {"f_2003:tcp_2escm",(void*)f_2003}, {"f_2183:tcp_2escm",(void*)f_2183}, {"f_2009:tcp_2escm",(void*)f_2009}, {"f_2014:tcp_2escm",(void*)f_2014}, {"f_1505:tcp_2escm",(void*)f_1505}, {"f_1509:tcp_2escm",(void*)f_1509}, {"f_1501:tcp_2escm",(void*)f_1501}, {"f_2365:tcp_2escm",(void*)f_2365}, {"f_2023:tcp_2escm",(void*)f_2023}, {"f_2029:tcp_2escm",(void*)f_2029}, {"f_2117:tcp_2escm",(void*)f_2117}, {"f_2080:tcp_2escm",(void*)f_2080}, {"f_2375:tcp_2escm",(void*)f_2375}, {"f_2123:tcp_2escm",(void*)f_2123}, {"f_2097:tcp_2escm",(void*)f_2097}, {"f_2093:tcp_2escm",(void*)f_2093}, {"f_2067:tcp_2escm",(void*)f_2067}, {"f_2109:tcp_2escm",(void*)f_2109}, {"f_2101:tcp_2escm",(void*)f_2101}, {"f_1364:tcp_2escm",(void*)f_1364}, {"f_1361:tcp_2escm",(void*)f_1361}, {"f_2467:tcp_2escm",(void*)f_2467}, {"f_1373:tcp_2escm",(void*)f_1373}, {"f_1370:tcp_2escm",(void*)f_1370}, {"f_1376:tcp_2escm",(void*)f_1376}, {"f_2430:tcp_2escm",(void*)f_2430}, {"f_2439:tcp_2escm",(void*)f_2439}, {"f_2433:tcp_2escm",(void*)f_2433}, {"f_2436:tcp_2escm",(void*)f_2436}, {"f_2138:tcp_2escm",(void*)f_2138}, {"f_2134:tcp_2escm",(void*)f_2134}, {"f_2130:tcp_2escm",(void*)f_2130}, {"f_2396:tcp_2escm",(void*)f_2396}, {"f_1392:tcp_2escm",(void*)f_1392}, {"f_1396:tcp_2escm",(void*)f_1396}, {"f_2316:tcp_2escm",(void*)f_2316}, {"f_1324:tcp_2escm",(void*)f_1324}, {"f_1726:tcp_2escm",(void*)f_1726}, {"f_1320:tcp_2escm",(void*)f_1320}, {"f_1923:tcp_2escm",(void*)f_1923}, {"f_1734:tcp_2escm",(void*)f_1734}, {"f_1730:tcp_2escm",(void*)f_1730}, {"f_2471:tcp_2escm",(void*)f_2471}, {"f_2475:tcp_2escm",(void*)f_2475}, {"f_1931:tcp_2escm",(void*)f_1931}, {"f_1934:tcp_2escm",(void*)f_1934}, {"f_1947:tcp_2escm",(void*)f_1947}, {"f_1940:tcp_2escm",(void*)f_1940}, {"f_1755:tcp_2escm",(void*)f_1755}, {"f_1756:tcp_2escm",(void*)f_1756}, {"f_1752:tcp_2escm",(void*)f_1752}, {"f_2760:tcp_2escm",(void*)f_2760}, {"f_1955:tcp_2escm",(void*)f_1955}, {"f_2764:tcp_2escm",(void*)f_2764}, {"f_1951:tcp_2escm",(void*)f_1951}, {"f_1760:tcp_2escm",(void*)f_1760}, {"f_1773:tcp_2escm",(void*)f_1773}, {"f_1771:tcp_2escm",(void*)f_1771}, {"f_2553:tcp_2escm",(void*)f_2553}, {"f_1303:tcp_2escm",(void*)f_1303}, {"f_1306:tcp_2escm",(void*)f_1306}, {"f_1300:tcp_2escm",(void*)f_1300}, {"f_2560:tcp_2escm",(void*)f_2560}, {"f_2566:tcp_2escm",(void*)f_2566}, {"f_2563:tcp_2escm",(void*)f_2563}, {"f_1795:tcp_2escm",(void*)f_1795}, {"f_2418:tcp_2escm",(void*)f_2418}, {"f_1798:tcp_2escm",(void*)f_1798}, {"f_1316:tcp_2escm",(void*)f_1316}, {"f_2756:tcp_2escm",(void*)f_2756}, {"f_2530:tcp_2escm",(void*)f_2530}, {"f_1911:tcp_2escm",(void*)f_1911}, {"f_2534:tcp_2escm",(void*)f_2534}, {"f_1914:tcp_2escm",(void*)f_1914}, {"f_2421:tcp_2escm",(void*)f_2421}, {"f_2426:tcp_2escm",(void*)f_2426}, {"f_2159:tcp_2escm",(void*)f_2159}, {"f_2738:tcp_2escm",(void*)f_2738}, {"f_2703:tcp_2escm",(void*)f_2703}, {"f_2734:tcp_2escm",(void*)f_2734}, {"f_2707:tcp_2escm",(void*)f_2707}, {"f_2593:tcp_2escm",(void*)f_2593}, {"f_2590:tcp_2escm",(void*)f_2590}, {"f_2730:tcp_2escm",(void*)f_2730}, {"f_2163:tcp_2escm",(void*)f_2163}, {"f_2599:tcp_2escm",(void*)f_2599}, {"f_2400:tcp_2escm",(void*)f_2400}, {"f_2404:tcp_2escm",(void*)f_2404}, {"f_978:tcp_2escm",(void*)f_978}, {"f_2408:tcp_2escm",(void*)f_2408}, {"toplevel:tcp_2escm",(void*)C_tcp_toplevel}, {"f_1658:tcp_2escm",(void*)f_1658}, {"f_1657:tcp_2escm",(void*)f_1657}, {"f_1654:tcp_2escm",(void*)f_1654}, {"f_2711:tcp_2escm",(void*)f_2711}, {"f_1627:tcp_2escm",(void*)f_1627}, {"f_2572:tcp_2escm",(void*)f_2572}, {"f_2578:tcp_2escm",(void*)f_2578}, {"f_1827:tcp_2escm",(void*)f_1827}, {"f_1639:tcp_2escm",(void*)f_1639}, {"f_2672:tcp_2escm",(void*)f_2672}, {"f_1635:tcp_2escm",(void*)f_1635}, {"f_2675:tcp_2escm",(void*)f_2675}, {"f_1631:tcp_2escm",(void*)f_1631}, {"f_2584:tcp_2escm",(void*)f_2584}, {"f_2587:tcp_2escm",(void*)f_2587}, {"f_1454:tcp_2escm",(void*)f_1454}, {"f_1239:tcp_2escm",(void*)f_1239}, {"f_1801:tcp_2escm",(void*)f_1801}, {"f_1804:tcp_2escm",(void*)f_1804}, {"f_1400:tcp_2escm",(void*)f_1400}, {"f_1610:tcp_2escm",(void*)f_1610}, {"f_1612:tcp_2escm",(void*)f_1612}, {"f_1248:tcp_2escm",(void*)f_1248}, {"f_2839:tcp_2escm",(void*)f_2839}, {"f_2835:tcp_2escm",(void*)f_2835}, {"f_2883:tcp_2escm",(void*)f_2883}, {"f_2887:tcp_2escm",(void*)f_2887}, {"f_2255:tcp_2escm",(void*)f_2255}, {"f_2656:tcp_2escm",(void*)f_2656}, {"f_2652:tcp_2escm",(void*)f_2652}, {"f_2803:tcp_2escm",(void*)f_2803}, {"f_2891:tcp_2escm",(void*)f_2891}, {"f_2260:tcp_2escm",(void*)f_2260}, {"f_1446:tcp_2escm",(void*)f_1446}, {"f_1838:tcp_2escm",(void*)f_1838}, {"f_2817:tcp_2escm",(void*)f_2817}, {"f_2231:tcp_2escm",(void*)f_2231}, {"f_2866:tcp_2escm",(void*)f_2866}, {"f_2869:tcp_2escm",(void*)f_2869}, {"f_2811:tcp_2escm",(void*)f_2811}, {"f_1645:tcp_2escm",(void*)f_1645}, {"f_1648:tcp_2escm",(void*)f_1648}, {"f_1641:tcp_2escm",(void*)f_1641}, {"f_2780:tcp_2escm",(void*)f_2780}, {"f_2784:tcp_2escm",(void*)f_2784}, {"f_2788:tcp_2escm",(void*)f_2788}, {"f_2242:tcp_2escm",(void*)f_2242}, {"f_1846:tcp_2escm",(void*)f_1846}, {"f_1842:tcp_2escm",(void*)f_1842}, {"f_2246:tcp_2escm",(void*)f_2246}, {"f_2648:tcp_2escm",(void*)f_2648}, {"f_2618:tcp_2escm",(void*)f_2618}, {"f_2513:tcp_2escm",(void*)f_2513}, {"f_2644:tcp_2escm",(void*)f_2644}, {"f_3040:tcp_2escm",(void*)f_3040}, {"f_2797:tcp_2escm",(void*)f_2797}, {"f_2526:tcp_2escm",(void*)f_2526}, {"f_3072:tcp_2escm",(void*)f_3072}, {"f_3049:tcp_2escm",(void*)f_3049}, {"f_2626:tcp_2escm",(void*)f_2626}, {"f_2622:tcp_2escm",(void*)f_2622}, {"f_2045:tcp_2escm",(void*)f_2045}, {"f_2049:tcp_2escm",(void*)f_2049}, {"f_3064:tcp_2escm",(void*)f_3064}, {"f_3060:tcp_2escm",(void*)f_3060}, {"f_2859:tcp_2escm",(void*)f_2859}, {"f_2853:tcp_2escm",(void*)f_2853}, {"f_2270:tcp_2escm",(void*)f_2270}, {"f_2991:tcp_2escm",(void*)f_2991}, {"f_2501:tcp_2escm",(void*)f_2501}, {"f_2503:tcp_2escm",(void*)f_2503}, {"f_1562:tcp_2escm",(void*)f_1562}, {"f_2827:tcp_2escm",(void*)f_2827}, {"f_3068:tcp_2escm",(void*)f_3068}, {"f_2286:tcp_2escm",(void*)f_2286}, {"f_2912:tcp_2escm",(void*)f_2912}, {"f_1296:tcp_2escm",(void*)f_1296}, {"f_1977:tcp_2escm",(void*)f_1977}, {"f_2926:tcp_2escm",(void*)f_2926}, {"f_2975:tcp_2escm",(void*)f_2975}, {"f_2920:tcp_2escm",(void*)f_2920}, {"f_2979:tcp_2escm",(void*)f_2979}, {"f_1980:tcp_2escm",(void*)f_1980}, {"f_2983:tcp_2escm",(void*)f_2983}, {"f_1273:tcp_2escm",(void*)f_1273}, {"f_1993:tcp_2escm",(void*)f_1993}, {"f_1553:tcp_2escm",(void*)f_1553}, {"f_2904:tcp_2escm",(void*)f_2904}, {"f_2908:tcp_2escm",(void*)f_2908}, {"f_2873:tcp_2escm",(void*)f_2873}, {"f_2876:tcp_2escm",(void*)f_2876}, {"f_2955:tcp_2escm",(void*)f_2955}, {"f_2951:tcp_2escm",(void*)f_2951}, {"f_3014:tcp_2escm",(void*)f_3014}, {"f_1416:tcp_2escm",(void*)f_1416}, {"f_2959:tcp_2escm",(void*)f_2959}, {"f_1893:tcp_2escm",(void*)f_1893}, {"f_3004:tcp_2escm",(void*)f_3004}, {"f_3018:tcp_2escm",(void*)f_3018}, {"f_1896:tcp_2escm",(void*)f_1896}, {"f_1424:tcp_2escm",(void*)f_1424}, {"f_2935:tcp_2escm",(void*)f_2935}, {"f_2938:tcp_2escm",(void*)f_2938}, {"f_1420:tcp_2escm",(void*)f_1420}, {"f_3030:tcp_2escm",(void*)f_3030}, {"f_3022:tcp_2escm",(void*)f_3022}, {"f_1604:tcp_2escm",(void*)f_1604}, {"f_1886:tcp_2escm",(void*)f_1886}, {"f_1692:tcp_2escm",(void*)f_1692}, {"f_1695:tcp_2escm",(void*)f_1695}, {"f_1698:tcp_2escm",(void*)f_1698}, {"f_1582:tcp_2escm",(void*)f_1582}, {"f_1586:tcp_2escm",(void*)f_1586}, {"f_1212:tcp_2escm",(void*)f_1212}, {"f_1219:tcp_2escm",(void*)f_1219}, {"f_1662:tcp_2escm",(void*)f_1662}, {"f_1665:tcp_2escm",(void*)f_1665}, {"f_1223:tcp_2escm",(void*)f_1223}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|eliminated procedure checks: 166 o|specializations: o| 3 (##sys#check-open-port * *) o| 1 (make-string fixnum) o| 24 (string-append string string) (o e)|safe calls: 336 (o e)|assignments to immediate values: 6 o|Removed `not' forms: 1 o|inlining procedure: k1275 o|inlining procedure: k1275 o|inlining procedure: k1304 o|inlining procedure: "(tcp.scm:283) last-error-code" o|substituted constant variable: a1329 o|substituted constant variable: a1330 o|inlining procedure: k1304 o|contracted procedure: "(tcp.scm:281) getservbyname" o|inlining procedure: k1221 o|inlining procedure: k1221 o|inlining procedure: k1480 o|substituted constant variable: a1510 o|substituted constant variable: a1511 o|inlining procedure: "(tcp.scm:322) close" o|inlining procedure: "(tcp.scm:322) last-error-code" o|inlining procedure: k1480 o|contracted procedure: "(tcp.scm:321) listen" o|contracted procedure: "(tcp.scm:320) bind-socket" o|inlining procedure: k1374 o|substituted constant variable: a1401 o|substituted constant variable: a1402 o|inlining procedure: "(tcp.scm:310) close" o|inlining procedure: "(tcp.scm:310) last-error-code" o|inlining procedure: k1374 o|contracted procedure: "(tcp.scm:309) bind" o|inlining procedure: "(tcp.scm:308) last-error-code" o|substituted constant variable: a1429 o|substituted constant variable: a1430 o|inlining procedure: "(tcp.scm:307) set-socket-options" o|inlining procedure: k1441 o|inlining procedure: k1441 o|contracted procedure: "(tcp.scm:302) fresh-addr" o|inlining procedure: k1555 o|inlining procedure: k1555 o|inlining procedure: k1570 o|inlining procedure: "(tcp.scm:333) last-error-code" o|substituted constant variable: a1595 o|substituted constant variable: a1596 o|inlining procedure: k1570 o|inlining procedure: "(tcp.scm:332) close" o|inlining procedure: k1614 o|inlining procedure: k1614 o|inlining procedure: k1675 o|inlining procedure: k1696 o|inlining procedure: k1696 o|inlining procedure: k1711 o|inlining procedure: k1711 o|inlining procedure: "(tcp.scm:388) last-error-code" o|substituted constant variable: a1739 o|substituted constant variable: a1740 o|inlining procedure: "(tcp.scm:385) interrupted?" o|inlining procedure: "(tcp.scm:374) retry?" o|inlining procedure: k1675 o|contracted procedure: "(tcp.scm:372) recv" o|inlining procedure: k1781 o|inlining procedure: k1817 o|inlining procedure: k1817 o|inlining procedure: "(tcp.scm:499) last-error-code" o|substituted constant variable: a1851 o|substituted constant variable: a1852 o|inlining procedure: "(tcp.scm:495) interrupted?" o|inlining procedure: "(tcp.scm:484) retry?" o|inlining procedure: k1781 o|inlining procedure: k1871 o|inlining procedure: k1871 o|contracted procedure: "(tcp.scm:482) send" o|inlining procedure: k1925 o|inlining procedure: k1925 o|inlining procedure: "(tcp.scm:525) last-error-code" o|substituted constant variable: a1960 o|substituted constant variable: a1961 o|inlining procedure: "(tcp.scm:524) close" o|inlining procedure: k1990 o|inlining procedure: k1995 o|inlining procedure: k1995 o|inlining procedure: k1990 o|inlining procedure: k2015 o|inlining procedure: k2015 o|inlining procedure: k2031 o|inlining procedure: k2031 o|inlining procedure: k2050 o|inlining procedure: k2050 o|inlining procedure: k2072 o|inlining procedure: k2072 o|inlining procedure: "(tcp.scm:409) last-error-code" o|substituted constant variable: a2106 o|substituted constant variable: a2107 o|inlining procedure: "(tcp.scm:407) check-fd-ready" o|inlining procedure: k2111 o|inlining procedure: k2111 o|inlining procedure: "(tcp.scm:416) last-error-code" o|substituted constant variable: a2143 o|substituted constant variable: a2144 o|inlining procedure: "(tcp.scm:415) close" o|inlining procedure: k2164 o|inlining procedure: k2164 o|inlining procedure: k2185 o|inlining procedure: k2185 o|inlining procedure: k2232 o|inlining procedure: k2232 o|inlining procedure: k2247 o|inlining procedure: k2247 o|inlining procedure: k2275 o|inlining procedure: k2275 o|inlining procedure: k2318 o|inlining procedure: k2318 o|inlining procedure: k2367 o|inlining procedure: k2367 o|inlining procedure: k2377 o|inlining procedure: k2377 o|substituted constant variable: a2383 o|substituted constant variable: a2405 o|substituted constant variable: a2406 o|inlining procedure: "(tcp.scm:358) close" o|inlining procedure: "(tcp.scm:358) last-error-code" o|contracted procedure: k2446 o|inlining procedure: k2443 o|inlining procedure: "(tcp.scm:560) last-error-code" o|substituted constant variable: a2480 o|substituted constant variable: a2481 o|inlining procedure: "(tcp.scm:557) interrupted?" o|inlining procedure: k2443 o|contracted procedure: "(tcp.scm:554) accept" o|inlining procedure: k1064 o|inlining procedure: k1064 o|inlining procedure: k2511 o|inlining procedure: "(tcp.scm:567) last-error-code" o|substituted constant variable: a2539 o|substituted constant variable: a2540 o|inlining procedure: k2511 o|inlining procedure: "(tcp.scm:565) check-fd-ready" o|inlining procedure: k2597 o|substituted constant variable: a2627 o|substituted constant variable: a2628 o|inlining procedure: "(tcp.scm:611) close" o|inlining procedure: "(tcp.scm:611) last-error-code" o|inlining procedure: k2597 o|substituted constant variable: a2653 o|substituted constant variable: a2654 o|inlining procedure: "(tcp.scm:613) close" o|contracted procedure: "(tcp.scm:609) get-socket-error" o|inlining procedure: k2658 o|inlining procedure: k2682 o|inlining procedure: k2682 o|substituted constant variable: a2712 o|substituted constant variable: a2713 o|inlining procedure: "(tcp.scm:607) close" o|inlining procedure: "(tcp.scm:607) last-error-code" o|inlining procedure: "(tcp.scm:604) interrupted?" o|contracted procedure: "(tcp.scm:599) in-progress?" o|inlining procedure: k2658 o|contracted procedure: "(tcp.scm:598) connect" o|substituted constant variable: a2739 o|substituted constant variable: a2740 o|inlining procedure: "(tcp.scm:596) close" o|inlining procedure: "(tcp.scm:596) last-error-code" o|substituted constant variable: a2765 o|substituted constant variable: a2766 o|inlining procedure: "(tcp.scm:594) close" o|inlining procedure: "(tcp.scm:594) last-error-code" o|inlining procedure: "(tcp.scm:593) set-socket-options" o|inlining procedure: "(tcp.scm:592) last-error-code" o|substituted constant variable: a2793 o|substituted constant variable: a2794 o|inlining procedure: k2804 o|inlining procedure: k2804 o|inlining procedure: k2840 o|inlining procedure: k2840 o|substituted constant variable: a2856 o|inlining procedure: k2874 o|inlining procedure: k2874 o|inlining procedure: "(tcp.scm:629) last-error-code" o|substituted constant variable: a2896 o|substituted constant variable: a2897 o|contracted procedure: "(tcp.scm:629) getpeername" o|inlining procedure: "(tcp.scm:627) last-error-code" o|substituted constant variable: a2917 o|substituted constant variable: a2918 o|contracted procedure: "(tcp.scm:627) getsockname" o|substituted constant variable: a2923 o|inlining procedure: k2936 o|inlining procedure: "(tcp.scm:640) last-error-code" o|substituted constant variable: a2964 o|substituted constant variable: a2965 o|inlining procedure: k2936 o|inlining procedure: "(tcp.scm:638) last-error-code" o|substituted constant variable: a2988 o|substituted constant variable: a2989 o|contracted procedure: "(tcp.scm:636) getpeerport" o|inlining procedure: "(tcp.scm:635) getsockport" o|inlining procedure: k3002 o|inlining procedure: "(tcp.scm:648) last-error-code" o|substituted constant variable: a3027 o|substituted constant variable: a3028 o|inlining procedure: k3002 o|inlining procedure: "(tcp.scm:646) getsockport" o|substituted constant variable: a3033 o|inlining procedure: k3042 o|inlining procedure: k3042 o|folded constant expression: (fx* (quote 60) (quote 1000)) o|contracted procedure: "(tcp.scm:229) startup" o|replaced variables: 303 o|removed binding forms: 146 o|removed side-effect free assignment to unused variable: ##net#last-error-code o|removed side-effect free assignment to unused variable: ##net#retry? o|removed side-effect free assignment to unused variable: ##net#interrupted? o|removed side-effect free assignment to unused variable: ##net#close o|removed side-effect free assignment to unused variable: ##net#check-fd-ready o|removed side-effect free assignment to unused variable: ##net#set-socket-options o|removed side-effect free assignment to unused variable: ##net#getsockport o|substituted constant variable: r15563130 o|contracted procedure: k1621 o|substituted constant variable: int130137 o|substituted constant variable: int129136 o|inlining procedure: k1871 o|substituted constant variable: flags172180 o|substituted constant variable: r19913185 o|substituted constant variable: r19913185 o|substituted constant variable: r20513191 o|inlining procedure: k2078 o|substituted constant variable: r21653212 o|substituted constant variable: r22483217 o|substituted constant variable: r23683229 o|substituted constant variable: r23783231 o|substituted constant variable: r23783232 o|substituted constant variable: c-pointer110117 o|substituted constant variable: c-pointer111118 o|substituted constant variable: c-pointer111118 o|substituted constant variable: c-pointer111118 o|substituted constant variable: r10653246 o|substituted constant variable: r10653246 o|substituted constant variable: c-pointer110117 o|substituted constant variable: c-pointer110117 o|inlining procedure: k2597 o|contracted procedure: "(tcp.scm:585) parse-host" o|substituted constant variable: r12223090 o|substituted constant variable: r12223090 o|substituted constant variable: r30433360 o|substituted constant variable: r30433360 o|substituted constant variable: r30433362 o|substituted constant variable: r30433362 o|replaced variables: 94 o|removed binding forms: 366 o|removed conditional forms: 2 o|inlining procedure: k1426 o|inlining procedure: k1519 o|inlining procedure: k1592 o|substituted constant variable: r1622 o|inlining procedure: k1736 o|inlining procedure: k1802 o|inlining procedure: k1848 o|substituted constant variable: r18723368 o|inlining procedure: k1957 o|inlining procedure: k2103 o|inlining procedure: k2140 o|inlining procedure: k2477 o|contracted procedure: k1060 o|inlining procedure: k2536 o|inlining procedure: k2790 o|inlining procedure: k1326 o|substituted constant variable: proto336 o|inlining procedure: k2893 o|inlining procedure: k2914 o|inlining procedure: k2961 o|inlining procedure: k2985 o|inlining procedure: k3024 o|inlining procedure: k3073 o|replaced variables: 6 o|removed binding forms: 134 o|contracted procedure: k1489 o|contracted procedure: k1380 o|contracted procedure: k1684 o|contracted procedure: k1714 o|contracted procedure: k1790 o|contracted procedure: k1820 o|contracted procedure: k2384 o|contracted procedure: k2455 o|substituted constant variable: r1061 o|substituted constant variable: r1061 o|contracted procedure: k2606 o|contracted procedure: k2667 o|contracted procedure: k2685 o|contracted procedure: k2691 o|contracted procedure: k2718 o|contracted procedure: k2744 o|substituted constant variable: minute420 o|substituted constant variable: minute420 o|simplifications: ((let . 8)) o|replaced variables: 1 o|removed binding forms: 40 o|removed side-effect free assignment to unused variable: minute420 o|removed binding forms: 3 o|converted assignments to bindings: (check419) o|simplifications: ((let . 1)) o|removed binding forms: 2 o|simplifications: ((if . 16) (##core#call . 198)) o| call simplifications: o| vector? o| ##sys#check-string o| char=? o| vector o| ##sys#fudge o| ##sys#call-with-values 2 o| fx>= 9 o| ##sys#setslot 4 o| values 11 o| ##sys#size 7 o| fxmin 3 o| fx- 6 o| fx+ 12 o| fx= o| + 5 o| ##sys#setislot 6 o| ##sys#check-structure 5 o| ##sys#slot 14 o| ##sys#structure? o| car 3 o| null? 5 o| cdr 2 o| fx< 7 o| fx> 6 o| ##sys#check-exact 4 o| eq? 26 o| ##sys#make-structure 2 o| ##sys#foreign-block-argument 6 o| ##sys#foreign-string-argument 3 o| ##sys#foreign-fixnum-argument 43 o|contracted procedure: k996 o|contracted procedure: k1012 o|contracted procedure: k1016 o|contracted procedure: k1020 o|contracted procedure: k1106 o|contracted procedure: k1110 o|contracted procedure: k1242 o|contracted procedure: k1250 o|contracted procedure: k1257 o|contracted procedure: k1546 o|contracted procedure: k1456 o|contracted procedure: k1540 o|contracted procedure: k1459 o|contracted procedure: k1534 o|contracted procedure: k1462 o|contracted procedure: k1528 o|contracted procedure: k1465 o|contracted procedure: k1468 o|contracted procedure: k1474 o|contracted procedure: k1486 o|contracted procedure: k10773102 o|contracted procedure: k1045 o|contracted procedure: k1049 o|contracted procedure: k1377 o|contracted procedure: k10773116 o|contracted procedure: k1027 o|contracted procedure: k1031 o|contracted procedure: k1035 o|contracted procedure: k1407 o|contracted procedure: k11423126 o|contracted procedure: k1435 o|contracted procedure: k1346 o|contracted procedure: k1350 o|contracted procedure: k1516 o|contracted procedure: k1519 o|contracted procedure: k1564 o|contracted procedure: k1567 o|contracted procedure: k1573 o|contracted procedure: k10773139 o|contracted procedure: k1614 o|contracted procedure: k1649 o|contracted procedure: k1678 o|contracted procedure: k1702 o|contracted procedure: k1742 o|contracted procedure: k1084 o|contracted procedure: k1088 o|contracted procedure: k1092 o|contracted procedure: k1096 o|contracted procedure: k1765 o|contracted procedure: k1775 o|contracted procedure: k1784 o|contracted procedure: k1808 o|contracted procedure: k1856 o|contracted procedure: k1863 o|contracted procedure: k1867 o|contracted procedure: k1874 o|contracted procedure: k1871 o|contracted procedure: k1149 o|contracted procedure: k1153 o|contracted procedure: k1157 o|contracted procedure: k1161 o|contracted procedure: k1165 o|contracted procedure: k1897 o|contracted procedure: k1900 o|contracted procedure: k1903 o|contracted procedure: k1906 o|contracted procedure: k1919 o|contracted procedure: k2026 o|contracted procedure: k2018 o|contracted procedure: k2041 o|contracted procedure: k2034 o|contracted procedure: k10773180 o|contracted procedure: k1969 o|contracted procedure: k1986 o|contracted procedure: k2006 o|contracted procedure: k1998 o|contracted procedure: k2053 o|contracted procedure: k2057 o|contracted procedure: k2060 o|contracted procedure: k2069 o|contracted procedure: k2084 o|contracted procedure: k11353201 o|contracted procedure: k10773210 o|contracted procedure: k2152 o|contracted procedure: k2167 o|contracted procedure: k2170 o|contracted procedure: k2188 o|contracted procedure: k2194 o|contracted procedure: k2197 o|contracted procedure: k2226 o|contracted procedure: k2200 o|contracted procedure: k2204 o|contracted procedure: k2208 o|contracted procedure: k2215 o|contracted procedure: k2219 o|contracted procedure: k2223 o|contracted procedure: k2235 o|contracted procedure: k2250 o|contracted procedure: k2312 o|contracted procedure: k2266 o|contracted procedure: k2272 o|contracted procedure: k2278 o|contracted procedure: k2288 o|contracted procedure: k2294 o|contracted procedure: k2305 o|contracted procedure: k2301 o|contracted procedure: k2333 o|contracted procedure: k2329 o|contracted procedure: k2322 o|inlining procedure: k2318 o|contracted procedure: k2344 o|contracted procedure: k2348 o|contracted procedure: k2340 o|inlining procedure: k2318 o|contracted procedure: k2355 o|contracted procedure: k2358 o|contracted procedure: k2370 o|contracted procedure: k2380 o|contracted procedure: k10773238 o|contracted procedure: k2410 o|contracted procedure: k2413 o|contracted procedure: k2483 o|contracted procedure: k1056 o|contracted procedure: k2486 o|contracted procedure: k2505 o|contracted procedure: k2517 o|contracted procedure: k2542 o|contracted procedure: k11353264 o|contracted procedure: k2828 o|contracted procedure: k2555 o|contracted procedure: k2567 o|contracted procedure: k2573 o|contracted procedure: k2603 o|contracted procedure: k10773275 o|contracted procedure: k2632 o|contracted procedure: k10773287 o|contracted procedure: k2549 o|contracted procedure: k2661 o|contracted procedure: k10773296 o|contracted procedure: k1117 o|contracted procedure: k1121 o|contracted procedure: k1125 o|contracted procedure: k10773305 o|contracted procedure: k2741 o|contracted procedure: k10773312 o|contracted procedure: k11423319 o|contracted procedure: k2771 o|contracted procedure: k1266 o|contracted procedure: k1278 o|contracted procedure: k1287 o|contracted procedure: k1307 o|contracted procedure: k1228 o|contracted procedure: k1235 o|contracted procedure: k1332 o|contracted procedure: k1339 o|contracted procedure: k2843 o|contracted procedure: k1204 o|contracted procedure: k1179 o|contracted procedure: k2942 o|contracted procedure: k2966 o|contracted procedure: k1193 o|contracted procedure: k11863348 o|contracted procedure: k2993 o|contracted procedure: k2996 o|contracted procedure: k3005 o|contracted procedure: k11863359 o|contracted procedure: k3045 o|contracted procedure: k3051 o|simplifications: ((let . 24)) o|removed binding forms: 166 o|inlining procedure: k1246 o|inlining procedure: "(tcp.scm:322) error-code->message" o|inlining procedure: "(tcp.scm:310) error-code->message" o|inlining procedure: "(tcp.scm:308) error-code->message" o|inlining procedure: "(tcp.scm:333) error-code->message" o|inlining procedure: "(tcp.scm:388) error-code->message" o|inlining procedure: "(tcp.scm:499) error-code->message" o|inlining procedure: "(tcp.scm:525) error-code->message" o|inlining procedure: "(tcp.scm:523) shutdown" o|inlining procedure: "(tcp.scm:409) error-code->message" o|inlining procedure: "(tcp.scm:416) error-code->message" o|inlining procedure: "(tcp.scm:414) shutdown" o|inlining procedure: "(tcp.scm:358) error-code->message" o|inlining procedure: "(tcp.scm:560) error-code->message" o|inlining procedure: "(tcp.scm:567) error-code->message" o|inlining procedure: "(tcp.scm:611) error-code->message" o|inlining procedure: "(tcp.scm:614) error-code->message" o|inlining procedure: "(tcp.scm:607) error-code->message" o|inlining procedure: "(tcp.scm:596) error-code->message" o|inlining procedure: "(tcp.scm:594) error-code->message" o|inlining procedure: "(tcp.scm:592) error-code->message" o|inlining procedure: "(tcp.scm:283) error-code->message" o|inlining procedure: "(tcp.scm:629) error-code->message" o|inlining procedure: "(tcp.scm:627) error-code->message" o|inlining procedure: "(tcp.scm:640) error-code->message" o|inlining procedure: "(tcp.scm:638) error-code->message" o|inlining procedure: "(tcp.scm:648) error-code->message" o|replaced variables: 93 o|removed binding forms: 1 o|removed side-effect free assignment to unused variable: ##net#error-code->message o|removed side-effect free assignment to unused variable: ##net#shutdown o|substituted constant variable: r12473505 o|substituted constant variable: r12473505 o|inlining procedure: k1966 o|inlining procedure: k2149 o|replaced variables: 52 o|removed binding forms: 67 o|contracted procedure: k1513 o|contracted procedure: k1492 o|contracted procedure: k1404 o|contracted procedure: k1383 o|contracted procedure: k1432 o|inlining procedure: "(tcp.scm:303) socket" o|contracted procedure: k1598 o|contracted procedure: k1672 o|contracted procedure: k1778 o|contracted procedure: k2075 o|contracted procedure: k2387 o|contracted procedure: k2440 o|contracted procedure: k2508 o|contracted procedure: k2594 o|contracted procedure: k2609 o|contracted procedure: k2635 o|contracted procedure: k2715 o|contracted procedure: k2694 o|contracted procedure: k2721 o|contracted procedure: k2768 o|contracted procedure: k2747 o|inlining procedure: "(tcp.scm:590) socket" o|contracted procedure: k2927 o|contracted procedure: k2930 o|contracted procedure: k2999 o|removed binding forms: 81 o|removed side-effect free assignment to unused variable: ##net#socket o|substituted constant variable: int84893669 o|substituted constant variable: int84893686 o|replaced variables: 5 o|removed binding forms: 7 o|contracted procedure: k1365 o|contracted procedure: k2579 o|removed binding forms: 2 o|customizable procedures: (check419 k2561 loop338 k2419 ##net#io-ports k1655 k2253 loop493 k2115 k2121 read-input449 k1975 k1929 k1932 k1938 output531 k1769 loop534 k1663 ##net#gethostaddr) o|calls to known targets: 84 o|identified direct recursive calls: f_1773 2 o|identified direct recursive calls: f_2183 1 o|identified direct recursive calls: f_1273 1 o|fast box initializations: 6 o|fast global references: 5 o|fast global assignments: 2 o|dropping unused closure argument: f_1239 o|dropping unused closure argument: f_1610 */ /* end of file */ chicken-4.12.0/chicken-bug.c0000644000175000017500000032070313052306541015337 0ustar sjamaansjamaan/* Generated from chicken-bug.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: chicken-bug.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -no-lambda-info -local -no-trace -output-file chicken-bug.c used units: library eval chicken_2dsyntax srfi_2d13 posix tcp data_2dstructures utils 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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_srfi_2d13_toplevel) C_externimport void C_ccall C_srfi_2d13_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_tcp_toplevel) C_externimport void C_ccall C_tcp_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_utils_toplevel) C_externimport void C_ccall C_utils_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[94]; static double C_possibly_force_alignment; C_noret_decl(f_1016) static void C_ccall f_1016(C_word c,C_word *av) C_noret; C_noret_decl(f_810) static void C_ccall f_810(C_word c,C_word *av) C_noret; C_noret_decl(f_819) static void C_ccall f_819(C_word c,C_word *av) C_noret; C_noret_decl(f_815) static void C_fcall f_815(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_964) static void C_ccall f_964(C_word c,C_word *av) C_noret; C_noret_decl(f_960) static void C_ccall f_960(C_word c,C_word *av) C_noret; C_noret_decl(f_623) static void C_ccall f_623(C_word c,C_word *av) C_noret; C_noret_decl(f_626) static void C_ccall f_626(C_word c,C_word *av) C_noret; C_noret_decl(f_578) static void C_ccall f_578(C_word c,C_word *av) C_noret; C_noret_decl(f_1020) static void C_ccall f_1020(C_word c,C_word *av) C_noret; C_noret_decl(f_801) static void C_ccall f_801(C_word c,C_word *av) C_noret; C_noret_decl(f_629) static void C_ccall f_629(C_word c,C_word *av) C_noret; C_noret_decl(f_571) static void C_ccall f_571(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_806) static void C_ccall f_806(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(f_954) static void C_ccall f_954(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_1038) static void C_ccall f_1038(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_874) static void C_fcall f_874(C_word t0,C_word t1,C_word t2) 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_1035) static void C_ccall f_1035(C_word c,C_word *av) C_noret; C_noret_decl(f_944) static void C_ccall f_944(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_494) static void C_ccall f_494(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_609) static void C_ccall f_609(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_993) static void C_fcall f_993(C_word t0,C_word t1,C_word t2) 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_528) static void C_ccall f_528(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_983) static void C_ccall f_983(C_word c,C_word *av) C_noret; C_noret_decl(f_513) static void C_ccall f_513(C_word c,C_word *av) C_noret; C_noret_decl(f_510) static void C_ccall f_510(C_word c,C_word *av) C_noret; C_noret_decl(f_516) static void C_ccall f_516(C_word c,C_word *av) C_noret; C_noret_decl(f_519) static void C_ccall f_519(C_word c,C_word *av) C_noret; C_noret_decl(f_975) static void C_ccall f_975(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_501) static void C_ccall f_501(C_word c,C_word *av) C_noret; C_noret_decl(f_504) static void C_ccall f_504(C_word c,C_word *av) C_noret; C_noret_decl(f_484) static void C_ccall f_484(C_word c,C_word *av) C_noret; C_noret_decl(f_481) static void C_ccall f_481(C_word c,C_word *av) C_noret; C_noret_decl(f_475) static void C_ccall f_475(C_word c,C_word *av) C_noret; C_noret_decl(f_472) static void C_ccall f_472(C_word c,C_word *av) C_noret; C_noret_decl(f_478) static void C_ccall f_478(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_466) static void C_ccall f_466(C_word c,C_word *av) C_noret; C_noret_decl(f_463) static void C_ccall f_463(C_word c,C_word *av) C_noret; C_noret_decl(f_460) static void C_ccall f_460(C_word c,C_word *av) C_noret; C_noret_decl(f_652) static void C_ccall f_652(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_797) static void C_ccall f_797(C_word c,C_word *av) C_noret; C_noret_decl(f_795) static void C_ccall f_795(C_word c,C_word *av) C_noret; C_noret_decl(f_791) static void C_ccall f_791(C_word c,C_word *av) C_noret; C_noret_decl(f_469) static void C_ccall f_469(C_word c,C_word *av) C_noret; C_noret_decl(f_457) static void C_ccall f_457(C_word c,C_word *av) C_noret; C_noret_decl(f_647) static void C_ccall f_647(C_word c,C_word *av) C_noret; C_noret_decl(f_644) static void C_ccall f_644(C_word c,C_word *av) 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_783) static void C_ccall f_783(C_word c,C_word *av) 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_638) static void C_ccall f_638(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_890) static void C_ccall f_890(C_word c,C_word *av) C_noret; C_noret_decl(f_775) static void C_ccall f_775(C_word c,C_word *av) C_noret; C_noret_decl(f_779) static void C_ccall f_779(C_word c,C_word *av) C_noret; C_noret_decl(f1100) static void C_ccall f1100(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_886) static void C_ccall f_886(C_word c,C_word *av) C_noret; C_noret_decl(f_763) static void C_ccall f_763(C_word c,C_word *av) C_noret; C_noret_decl(f_767) static void C_ccall f_767(C_word c,C_word *av) 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_690) static void C_fcall f_690(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_752) static void C_ccall f_752(C_word c,C_word *av) C_noret; C_noret_decl(f_684) static void C_ccall f_684(C_word c,C_word *av) C_noret; C_noret_decl(f_558) static void C_ccall f_558(C_word c,C_word *av) C_noret; C_noret_decl(f_555) static void C_ccall f_555(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_552) static void C_ccall f_552(C_word c,C_word *av) C_noret; C_noret_decl(f1093) static void C_ccall f1093(C_word c,C_word *av) C_noret; C_noret_decl(f_549) static void C_ccall f_549(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_674) static void C_ccall f_674(C_word c,C_word *av) C_noret; C_noret_decl(f_676) static void C_ccall f_676(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_670) static void C_ccall f_670(C_word c,C_word *av) C_noret; C_noret_decl(f_853) static void C_ccall f_853(C_word c,C_word *av) C_noret; C_noret_decl(f_920) static void C_ccall f_920(C_word c,C_word *av) C_noret; C_noret_decl(f_929) static void C_ccall f_929(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_923) static void C_fcall f_923(C_word t0,C_word t1) 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_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_844) static void C_ccall f_844(C_word c,C_word *av) C_noret; C_noret_decl(f_849) static void C_ccall f_849(C_word c,C_word *av) C_noret; C_noret_decl(f_727) static void C_fcall f_727(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_725) static void C_ccall f_725(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_914) static void C_ccall f_914(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_599) static void C_fcall f_599(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1003) static void C_ccall f_1003(C_word c,C_word *av) C_noret; C_noret_decl(f_700) static void C_ccall f_700(C_word c,C_word *av) C_noret; C_noret_decl(trf_815) static void C_ccall trf_815(C_word c,C_word *av) C_noret; static void C_ccall trf_815(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_815(t0,t1,t2);} C_noret_decl(trf_874) static void C_ccall trf_874(C_word c,C_word *av) C_noret; static void C_ccall trf_874(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_874(t0,t1,t2);} C_noret_decl(trf_993) static void C_ccall trf_993(C_word c,C_word *av) C_noret; static void C_ccall trf_993(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_993(t0,t1,t2);} C_noret_decl(trf_690) static void C_ccall trf_690(C_word c,C_word *av) C_noret; static void C_ccall trf_690(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_690(t0,t1,t2);} C_noret_decl(trf_923) static void C_ccall trf_923(C_word c,C_word *av) C_noret; static void C_ccall trf_923(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_923(t0,t1);} C_noret_decl(trf_727) static void C_ccall trf_727(C_word c,C_word *av) C_noret; static void C_ccall trf_727(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_727(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_599(t0,t1,t2);} /* generate-report in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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; 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_1016,4,av);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1020,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1025,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:153: with-output-to-file */ t6=C_fast_retrieve(lf[91]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t4; av2[2]=t2; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k808 in user-input in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_810,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_815,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_815(t5,((C_word*)t0)[2],C_SCHEME_END_OF_LIST);} /* k817 in loop in k808 in user-input in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_819(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_819,2,av);} a=C_alloc(3); t2=C_eofp(t1); t3=(C_truep(t2)?t2:C_i_string_equal_p(lf[62],t1)); if(C_truep(t3)){ /* chicken-bug.scm:104: string-concatenate-reverse */ t4=C_fast_retrieve(lf[63]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); /* chicken-bug.scm:105: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_815(t5,((C_word*)t0)[2],t4);}} /* loop in k808 in user-input in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_fcall f_815(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_815,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_819,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* chicken-bug.scm:102: read-line */ t4=C_fast_retrieve(lf[64]);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k962 in a959 in k952 in k927 in k924 in k921 in k918 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_964,2,av);} /* chicken-bug.scm:150: collect-info */ t2=*((C_word*)lf[3]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; f_494(2,av2);}} /* a959 in k952 in k927 in k924 in k921 in k918 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_960(C_word c,C_word *av){ 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_960,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_964,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:149: print */ t3=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(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);}} /* k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in ... */ static void C_ccall f_623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_623,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_626,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_690,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_690(t6,t2,t1);} /* k624 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in ... */ static void C_ccall f_626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_626,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_629,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:63: print */ t3=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[20]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k576 in k569 in for-each-loop91 in k561 in for-each-loop78 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in ... */ static void C_ccall f_578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_578,2,av);} /* chicken-bug.scm:59: ##sys#print */ t2=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1018 in generate-report in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_1020(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1020,2,av);} /* chicken-bug.scm:155: print */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[89]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[90]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k799 in usage in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_801(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_801,2,av);} /* chicken-bug.scm:88: exit */ t2=C_fast_retrieve(lf[59]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k627 in k624 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in ... */ static void C_ccall f_629(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_629,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_632,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_674,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_688,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t5=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_INSTALL_INCLUDE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k569 in for-each-loop91 in k561 in for-each-loop78 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in ... */ static void C_ccall f_571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_571,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_578,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_string_length(((C_word*)t0)[4]); t4=C_fixnum_difference(C_fix(16),t3); t5=C_i_fixnum_max(C_fix(1),t4); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[23]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[23]+1); av2[1]=t2; av2[2]=t5; av2[3]=C_make_character(32); tp(4,av2);}} /* a1024 in generate-report in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1025,2,av);} /* chicken-bug.scm:154: print */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* user-input in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_806(C_word c,C_word *av){ C_word tmp; 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_806,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_810,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_844,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:91: ##sys#tty-port? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[66]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[66]+1); av2[1]=t3; av2[2]=*((C_word*)lf[67]+1); tp(3,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(378))){ C_save(t1); C_rereclaim2(378*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,94); lf[0]=C_h_intern(&lf[0],7,"user-id"); lf[1]=C_h_intern(&lf[1],16,"user-information"); lf[2]=C_h_intern(&lf[2],15,"current-user-id"); lf[3]=C_h_intern(&lf[3],12,"collect-info"); lf[4]=C_h_intern(&lf[4],19,"\003sysstandard-output"); lf[5]=C_h_intern(&lf[5],6,"printf"); lf[6]=C_h_intern(&lf[6],7,"newline"); lf[7]=C_h_intern(&lf[7],7,"display"); lf[8]=C_h_intern(&lf[8],8,"read-all"); lf[9]=C_h_intern(&lf[9],20,"with-input-from-pipe"); lf[10]=C_decode_literal(C_heaptop,"\376B\000\000\013gcc -v 2>&1"); lf[11]=C_h_intern(&lf[11],5,"print"); lf[12]=C_decode_literal(C_heaptop,"\376B\000\0000CC seems to be gcc, trying to obtain version...\012"); lf[13]=C_decode_literal(C_heaptop,"\376B\000\000\003gcc"); lf[14]=C_h_intern(&lf[14],8,"feature\077"); lf[15]=C_h_intern(&lf[15],4,"unix"); lf[16]=C_h_intern(&lf[16],17,"\003syspeek-c-string"); lf[17]=C_h_intern(&lf[17],20,"with-input-from-file"); lf[18]=C_h_intern(&lf[18],13,"make-pathname"); lf[19]=C_decode_literal(C_heaptop,"\376B\000\000\020chicken-config.h"); lf[20]=C_decode_literal(C_heaptop,"\376B\000\000\024\012\012chicken-config.h:\012"); lf[21]=C_h_intern(&lf[21],8,"for-each"); lf[22]=C_h_intern(&lf[22],9,"\003sysprint"); lf[23]=C_h_intern(&lf[23],15,"\003sysmake-string"); lf[24]=C_decode_literal(C_heaptop,"\376B\000\000\003\012 "); lf[25]=C_h_intern(&lf[25],4,"chop"); lf[26]=C_h_intern(&lf[26],15,"keyword->string"); lf[27]=C_h_intern(&lf[27],12,"\003sysfeatures"); lf[28]=C_h_intern(&lf[28],3,"map"); lf[29]=C_h_intern(&lf[29],4,"sort"); lf[30]=C_h_intern(&lf[30],8,"string<\077"); lf[31]=C_decode_literal(C_heaptop,"\376B\000\000\011Features:"); lf[32]=C_h_intern(&lf[32],16,"\003syswrite-char-0"); lf[33]=C_h_intern(&lf[33],21,"\003sysinclude-pathnames"); lf[34]=C_decode_literal(C_heaptop,"\376B\000\000\016Include path:\011"); lf[35]=C_decode_literal(C_heaptop,"\376B\000\000\020Home directory:\011"); lf[36]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[37]=C_h_intern(&lf[37],12,"chicken-home"); lf[38]=C_decode_literal(C_heaptop,"\376B\000\000\024CHICKEN version is:\012"); lf[39]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[40]=C_h_intern(&lf[40],15,"chicken-version"); lf[41]=C_decode_literal(C_heaptop,"\376B\000\000\021\011build platform:\011"); lf[42]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[43]=C_h_intern(&lf[43],14,"build-platform"); lf[44]=C_decode_literal(C_heaptop,"\376B\000\000\023\011software version:\011"); lf[45]=C_h_intern(&lf[45],16,"software-version"); lf[46]=C_decode_literal(C_heaptop,"\376B\000\000\020\011software type:\011"); lf[47]=C_h_intern(&lf[47],13,"software-type"); lf[48]=C_decode_literal(C_heaptop,"\376B\000\000\017\011machine type:\011"); lf[49]=C_h_intern(&lf[49],12,"machine-type"); lf[50]=C_decode_literal(C_heaptop,"\376B\000\000\022Host information:\012"); lf[51]=C_decode_literal(C_heaptop,"\376B\000\000\022User information:\011"); lf[52]=C_decode_literal(C_heaptop,"\376B\000\000\006Date:\011"); lf[53]=C_decode_literal(C_heaptop,"\376B\000\000\002\012\012"); lf[54]=C_h_intern(&lf[54],15,"seconds->string"); lf[55]=C_h_intern(&lf[55],15,"current-seconds"); lf[56]=C_decode_literal(C_heaptop,"\376B\000\0002This is a bug report generated by chicken-bug(1).\012"); lf[57]=C_decode_literal(C_heaptop,"\376B\000\0004\012--------------------------------------------------\012"); lf[58]=C_h_intern(&lf[58],5,"usage"); lf[59]=C_h_intern(&lf[59],4,"exit"); lf[60]=C_decode_literal(C_heaptop,"\376B\000\0017usage: chicken-bug [FILENAME ...]\012\012 -help -h show this message" "\012 -to-stdout write bug report to standard output\012 - " " read description from standard input\012\012Generates a bug report file from user i" "nput or alternatively\012from the contents of files given on the command line.\012"); lf[61]=C_h_intern(&lf[61],10,"user-input"); lf[62]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[63]=C_h_intern(&lf[63],26,"string-concatenate-reverse"); lf[64]=C_h_intern(&lf[64],9,"read-line"); lf[65]=C_decode_literal(C_heaptop,"\376B\000\001jThis is the CHICKEN bug report generator. Please enter a detailed\012descripti" "on of the problem you have encountered and enter CTRL-D (EOF)\012or a line consisti" "ng only of \042.\042 to finish. Press CTRL-C to abort the program. You can\012also pass t" "he description from a file (just abort now and re-invoke\012\042chicken-bug\042 with one " "or more input files given on the command-line)\012"); lf[66]=C_h_intern(&lf[66],13,"\003systty-port\077"); lf[67]=C_h_intern(&lf[67],18,"\003sysstandard-input"); lf[68]=C_h_intern(&lf[68],7,"justify"); lf[69]=C_h_intern(&lf[69],17,"\003sysstring-append"); lf[70]=C_decode_literal(C_heaptop,"\376B\000\000\0010"); lf[71]=C_h_intern(&lf[71],14,"number->string"); lf[72]=C_h_intern(&lf[72],4,"main"); lf[73]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[74]=C_decode_literal(C_heaptop,"\376B\000\000\001-"); lf[75]=C_h_intern(&lf[75],13,"string-append"); lf[76]=C_decode_literal(C_heaptop,"\376B\000\000\017\012\012User input:\012\012"); lf[77]=C_decode_literal(C_heaptop,"\376B\000\000\006--help"); lf[78]=C_decode_literal(C_heaptop,"\376B\000\000\002-h"); lf[79]=C_decode_literal(C_heaptop,"\376B\000\000\005-help"); lf[80]=C_decode_literal(C_heaptop,"\376B\000\000\012-to-stdout"); lf[81]=C_decode_literal(C_heaptop,"\376B\000\000\016\012\012File added: "); lf[82]=C_decode_literal(C_heaptop,"\376B\000\000\002\012\012"); lf[83]=C_h_intern(&lf[83],15,"generate-report"); lf[84]=C_h_intern(&lf[84],21,"with-output-to-string"); lf[85]=C_h_intern(&lf[85],7,"sprintf"); lf[86]=C_decode_literal(C_heaptop,"\376B\000\000\033chicken-bug-report.~a-~a-~a"); lf[87]=C_h_intern(&lf[87],19,"seconds->local-time"); lf[88]=C_decode_literal(C_heaptop,"\376B\000\000\002\012\012"); lf[89]=C_decode_literal(C_heaptop,"\376B\000\000#\012A bug report has been written to `"); lf[90]=C_decode_literal(C_heaptop,"\376B\000\000\002\047."); lf[91]=C_h_intern(&lf[91],19,"with-output-to-file"); lf[92]=C_h_intern(&lf[92],25,"\003sysimplicit-exit-handler"); lf[93]=C_h_intern(&lf[93],22,"command-line-arguments"); C_register_lf2(lf,94,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_457,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k952 in k927 in k924 in k921 in k918 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_954,2,av);} a=C_alloc(7); t2=t1; 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|2,a[1]=(C_word)f_960,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:147: with-output-to-string */ t5=C_fast_retrieve(lf[84]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k956 in k952 in k927 in k924 in k921 in k918 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_958,2,av);} /* chicken-bug.scm:145: generate-report */ t2=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; f_1016(4,av2);}} /* k1036 in k1030 in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_1038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1038,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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=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(23,c,3)))){ C_save_and_reclaim((void *)f_872,3,av);} a=C_alloc(23); t3=lf[73]; 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_SCHEME_FALSE; 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_874,a[2]=t6,a[3]=t4,a[4]=t8,tmp=(C_word)a,a+=5,tmp); t10=C_i_check_list_2(t2,lf[21]); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_920,a[2]=t8,a[3]=t1,a[4]=t4,a[5]=t6,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|3,a[1]=(C_word)f_993,a[2]=t13,a[3]=t9,tmp=(C_word)a,a+=4,tmp)); t15=((C_word*)t13)[1]; f_993(t15,t11,t2);} /* g193 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_fcall f_874(C_word t0,C_word t1,C_word 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_874,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_string_equal_p(lf[74],t2))){ t3=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_886,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_890,a[2]=t4,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-bug.scm:121: user-input */ t6=*((C_word*)lf[61]+1);{ C_word av2[2]; av2[0]=t6; av2[1]=t5; f_806(2,av2);}} else{ t3=t2; if(C_truep((C_truep(C_i_equalp(t3,lf[77]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t3,lf[78]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t3,lf[79]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))){ t4=t1; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f1100,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:76: print */ t6=*((C_word*)lf[11]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=lf[60]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t4=t2; if(C_truep(C_u_i_string_equal_p(lf[80],t4))){ t5=C_set_block_item(((C_word*)t0)[4],0,C_SCHEME_TRUE); t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_910,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_914,a[2]=t6,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-bug.scm:132: read-all */ t8=C_fast_retrieve(lf[8]);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}}} /* k1030 in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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 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_1032,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1035,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1038,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#implicit-exit-handler */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[92]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[92]+1); av2[1]=t3; tp(2,av2);}} /* k1033 in k1030 in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1035,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k942 in k927 in k924 in k921 in k918 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_944,2,av);} /* chicken-bug.scm:144: collect-info */ t2=*((C_word*)lf[3]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; f_494(2,av2);}} /* k490 in user-id in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_492,2,av);} /* chicken-bug.scm:39: user-information */ t2=C_fast_retrieve(lf[1]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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 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_494,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_498,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:42: print */ t3=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[57]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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; 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_501,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:43: print */ t3=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[56]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k607 in for-each-loop91 in k561 in for-each-loop78 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in ... */ static void C_ccall f_609(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_609,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_599(t3,((C_word*)t0)[4],t2);} /* k989 in k918 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_991,2,av);} /* chicken-bug.scm:135: string-append */ t2=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=lf[88]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* for-each-loop192 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_fcall f_993(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_993,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_1003,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-bug.scm:113: g193 */ t5=((C_word*)t0)[3]; f_874(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);}}} /* k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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 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_522,2,av);} a=C_alloc(6); 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); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_783,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:47: machine-type */ t4=C_fast_retrieve(lf[49]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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; C_check_for_interrupt; 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|2,a[1]=(C_word)f_528,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_779,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:48: software-type */ t4=C_fast_retrieve(lf[47]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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 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_528,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_531,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_775,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:49: software-version */ t4=C_fast_retrieve(lf[45]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k985 in k918 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_987,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_923(t3,t2);} /* k981 in k924 in k921 in k918 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_983,2,av);} /* chicken-bug.scm:137: seconds->local-time */ t2=C_fast_retrieve(lf[87]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_513,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_516,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-bug.scm:45: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[32]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[32]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_510,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_513,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_787,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f1093,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:39: current-user-id */ t6=C_fast_retrieve(lf[2]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_516,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_519,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:45: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[32]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[32]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_519,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_522,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:46: print */ t3=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[50]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k973 in k927 in k924 in k921 in k918 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_975,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_979,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-bug.scm:146: justify */ t4=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; f_849(3,av2);}} /* k977 in k973 in k927 in k924 in k921 in k918 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_979,2,av);} /* chicken-bug.scm:146: sprintf */ t2=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[86]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_501,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_504,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_791,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_795,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:44: current-seconds */ t5=C_fast_retrieve(lf[55]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_504,2,av);} a=C_alloc(4); t2=*((C_word*)lf[4]+1); t3=*((C_word*)lf[4]+1); t4=C_i_check_port_2(*((C_word*)lf[4]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[5]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_510,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-bug.scm:45: ##sys#print */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[51]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[4]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* user-id in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_484(C_word c,C_word *av){ 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_484,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_492,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:39: current-user-id */ t3=C_fast_retrieve(lf[2]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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,4)))){ C_save_and_reclaim((void *)f_481,2,av);} a=C_alloc(20); t2=C_mutate2((C_word*)lf[0]+1 /* (set! user-id ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_484,tmp=(C_word)a,a+=2,tmp)); t3=C_mutate2((C_word*)lf[3]+1 /* (set! collect-info ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_494,tmp=(C_word)a,a+=2,tmp)); t4=C_mutate2((C_word*)lf[58]+1 /* (set! usage ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_797,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate2((C_word*)lf[61]+1 /* (set! user-input ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_806,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate2((C_word*)lf[68]+1 /* (set! justify ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_849,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate2((C_word*)lf[72]+1 /* (set! main ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_872,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate2((C_word*)lf[83]+1 /* (set! generate-report ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1016,tmp=(C_word)a,a+=2,tmp)); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1032,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1042,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:157: command-line-arguments */ t11=C_fast_retrieve(lf[93]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} /* k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_475,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_478,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_utils_toplevel(2,av2);}} /* k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_472,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_475,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_478,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_481,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k658 in a651 in k645 in k642 in k633 in k630 in k627 in k624 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_660,2,av);} /* chicken-bug.scm:72: display */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k464 in k461 in k458 in k455 */ static void C_ccall f_466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_466,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_469,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_posix_toplevel(2,av2);}} /* k461 in k458 in k455 */ static void C_ccall f_463(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_463,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_466,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d13_toplevel(2,av2);}} /* k458 in k455 */ static void C_ccall f_460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_460,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_463,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* a651 in k645 in k642 in k633 in k630 in k627 in k624 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in ... */ static void C_ccall f_652(C_word c,C_word *av){ 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_652,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_660,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:72: read-all */ t3=C_fast_retrieve(lf[8]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1040 in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1042,2,av);} /* chicken-bug.scm:157: main */ t2=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_872(3,av2);}} /* usage in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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=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_797,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_801,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-bug.scm:76: print */ t4=*((C_word*)lf[11]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=lf[60]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k793 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_795,2,av);} /* chicken-bug.scm:44: seconds->string */ t2=C_fast_retrieve(lf[54]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k789 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_791,2,av);} /* chicken-bug.scm:44: print */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[52]; av2[3]=t1; av2[4]=lf[53]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_469,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_472,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_tcp_toplevel(2,av2);}} /* k455 */ static void C_ccall f_457(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_457,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_460,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k645 in k642 in k633 in k630 in k627 in k624 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in ... */ static void C_ccall f_647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_647,2,av);} a=C_alloc(2); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_652,tmp=(C_word)a,a+=2,tmp); /* chicken-bug.scm:70: with-input-from-pipe */ t3=C_fast_retrieve(lf[9]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[10]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k642 in k633 in k630 in k627 in k624 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in ... */ static void C_ccall f_644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_644,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_647,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:69: print */ t3=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[12]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* chicken-bug.scm:73: newline */ t2=*((C_word*)lf[6]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k785 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_787,2,av);} /* chicken-bug.scm:45: ##sys#print */ t2=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k781 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_783,2,av);} /* chicken-bug.scm:47: print */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[48]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k633 in k630 in k627 in k624 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in ... */ 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 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_635,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_638,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_644,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_670,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t5=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_TARGET_CC); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k636 in k633 in k630 in k627 in k624 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in ... */ static void C_ccall f_638(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_638,2,av);} /* chicken-bug.scm:73: newline */ t2=*((C_word*)lf[6]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k630 in k627 in k624 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in ... */ 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 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_632,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_635,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:67: newline */ t3=*((C_word*)lf[6]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k888 in g193 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_890,2,av);} /* chicken-bug.scm:121: string-append */ t2=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=lf[76]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k773 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_775,2,av);} /* chicken-bug.scm:49: print */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[44]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k777 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_779,2,av);} /* chicken-bug.scm:48: print */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[46]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f1100 in g193 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f1100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f1100,2,av);} /* chicken-bug.scm:88: exit */ t2=C_fast_retrieve(lf[59]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k769 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_771,2,av);} /* chicken-bug.scm:50: print */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[41]; av2[3]=t1; av2[4]=lf[42]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k884 in g193 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_886,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k761 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in ... */ static void C_ccall f_763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_763,2,av);} /* chicken-bug.scm:52: print */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[35]; av2[3]=t1; av2[4]=lf[36]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k765 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in ... */ static void C_ccall f_767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_767,2,av);} /* chicken-bug.scm:51: print */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[38]; av2[3]=t1; av2[4]=lf[39]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k561 in for-each-loop78 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in ... */ 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 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_563,2,av);} a=C_alloc(5); t2=C_i_check_list_2(((C_word*)t0)[2],lf[21]); 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_599,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_599(t6,((C_word*)t0)[3],((C_word*)t0)[2]);} /* for-each-loop78 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in ... */ static void C_fcall f_690(C_word t0,C_word t1,C_word 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_690,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_700,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_563,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* chicken-bug.scm:57: display */ t8=*((C_word*)lf[7]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=lf[24]; ((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);}}} /* k750 in map-loop117 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in ... */ static void C_ccall f_752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_752,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_727(t6,((C_word*)t0)[5],t5);} /* k682 in a675 in k672 in k627 in k624 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in ... */ static void C_ccall f_684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_684,2,av);} /* chicken-bug.scm:66: display */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in ... */ static void C_ccall f_558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_558,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_623,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_715,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_fast_retrieve(lf[26]); t9=C_fast_retrieve(lf[27]); t10=C_i_check_list_2(C_fast_retrieve(lf[27]),lf[28]); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_725,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_727,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_727(t15,t11,C_fast_retrieve(lf[27]));} /* k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in ... */ static void C_ccall f_555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_555,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_558,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:54: print */ t3=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[31]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k686 in k627 in k624 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_688,2,av);} /* chicken-bug.scm:64: make-pathname */ t2=C_fast_retrieve(lf[18]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[19]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in ... */ static void C_ccall f_552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_552,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_555,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:53: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[32]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[32]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* f1093 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f1093(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f1093,2,av);} /* chicken-bug.scm:39: user-information */ t2=C_fast_retrieve(lf[1]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in ... */ static void C_ccall f_549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_549,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_552,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-bug.scm:53: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[32]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[32]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_546,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_549,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-bug.scm:53: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_fast_retrieve(lf[33]); av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k672 in k627 in k624 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in ... */ static void C_ccall f_674(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_674,2,av);} a=C_alloc(2); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_676,tmp=(C_word)a,a+=2,tmp); /* chicken-bug.scm:64: with-input-from-file */ t3=C_fast_retrieve(lf[17]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a675 in k672 in k627 in k624 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in ... */ static void C_ccall f_676(C_word c,C_word *av){ 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_676,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_684,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:66: read-all */ t3=C_fast_retrieve(lf[8]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in ... */ 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 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_540,2,av);} a=C_alloc(4); t2=*((C_word*)lf[4]+1); t3=*((C_word*)lf[4]+1); t4=C_i_check_port_2(*((C_word*)lf[4]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[5]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_546,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-bug.scm:53: ##sys#print */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[34]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[4]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k668 in k633 in k630 in k627 in k624 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in ... */ static void C_ccall f_670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_670,2,av);} if(C_truep(C_i_string_equal_p(t1,lf[13]))){ /* chicken-bug.scm:68: feature? */ t2=C_fast_retrieve(lf[14]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[15]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_644(2,av2);}}} /* k851 in justify in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_853(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_853,2,av);} t2=C_block_size(t1); if(C_truep(C_fixnum_greaterp(t2,C_fix(1)))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[69]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[69]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[70]; av2[3]=t1; tp(4,av2);}}} /* k918 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_920,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_923,a[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*)((C_word*)t0)[5])[1])){ t3=t2; f_923(t3,C_SCHEME_UNDEFINED);} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_987,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_991,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* chicken-bug.scm:135: user-input */ t5=*((C_word*)lf[61]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; f_806(2,av2);}}} /* k927 in k924 in k921 in k918 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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,2)))){ C_save_and_reclaim((void *)f_929,2,av);} a=C_alloc(13); t2=C_slot(t1,C_fix(3)); t3=t2; t4=C_slot(t1,C_fix(4)); t5=C_slot(t1,C_fix(5)); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_944,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:143: print */ t7=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_954,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t7=C_a_i_plus(&a,2,C_fix(1900),t5); t8=t7; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_975,a[2]=t6,a[3]=t8,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-bug.scm:146: justify */ t10=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=t4; f_849(3,av2);}}} /* k924 in k921 in k918 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_926,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_929,a[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_983,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:137: current-seconds */ t4=C_fast_retrieve(lf[55]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k921 in k918 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_fcall f_923(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_923,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_926,a[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-bug.scm:136: newline */ t3=*((C_word*)lf[6]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_537,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_540,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_763,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:52: chicken-home */ t4=C_fast_retrieve(lf[37]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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 *a; C_check_for_interrupt; 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|2,a[1]=(C_word)f_534,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_771,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:50: build-platform */ t4=C_fast_retrieve(lf[43]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 in ... */ 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 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_534,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_537,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_767,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:51: chicken-version */ t4=C_fast_retrieve(lf[40]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k842 in user-input in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_844,2,av);} if(C_truep(t1)){ /* chicken-bug.scm:92: print */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[65]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_810(2,av2);}}} /* justify in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_849(C_word c,C_word *av){ C_word tmp; C_word 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_849,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_853,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-bug.scm:108: number->string */ t4=*((C_word*)lf[71]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* map-loop117 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in ... */ static void C_fcall f_727(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_727,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_752,a[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-bug.scm:62: g123 */ 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);}}} /* k723 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in ... */ static void C_ccall f_725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_725,2,av);} /* chicken-bug.scm:62: sort */ t2=C_fast_retrieve(lf[29]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[30]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k908 in g193 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_910,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k912 in g193 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_914,2,av);} /* chicken-bug.scm:129: string-append */ t2=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=lf[81]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[82]; av2[6]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k713 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in collect-info in k479 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_715,2,av);} /* chicken-bug.scm:62: chop */ t2=C_fast_retrieve(lf[25]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(5); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop91 in k561 in for-each-loop78 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in ... */ static void C_fcall f_599(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_599,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_609,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[4]+1); t8=*((C_word*)lf[4]+1); t9=C_i_check_port_2(*((C_word*)lf[4]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[5]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_571,a[2]=t5,a[3]=t7,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* chicken-bug.scm:59: ##sys#print */ t11=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t10; av2[2]=t6; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[4]+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);}}} /* k1001 in for-each-loop192 in main in k479 in k476 in k473 in k470 in k467 in k464 in k461 in k458 in k455 */ static void C_ccall f_1003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1003,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_993(t3,((C_word*)t0)[4],t2);} /* k698 in for-each-loop78 in k621 in k556 in k553 in k550 in k547 in k544 in k538 in k535 in k532 in k529 in k526 in k523 in k520 in k517 in k514 in k511 in k508 in k502 in k499 in k496 in ... */ static void C_ccall f_700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_700,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_690(t3,((C_word*)t0)[4],t2);} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[108] = { {"f_1016:chicken_2dbug_2escm",(void*)f_1016}, {"f_810:chicken_2dbug_2escm",(void*)f_810}, {"f_819:chicken_2dbug_2escm",(void*)f_819}, {"f_815:chicken_2dbug_2escm",(void*)f_815}, {"f_964:chicken_2dbug_2escm",(void*)f_964}, {"f_960:chicken_2dbug_2escm",(void*)f_960}, {"f_623:chicken_2dbug_2escm",(void*)f_623}, {"f_626:chicken_2dbug_2escm",(void*)f_626}, {"f_578:chicken_2dbug_2escm",(void*)f_578}, {"f_1020:chicken_2dbug_2escm",(void*)f_1020}, {"f_801:chicken_2dbug_2escm",(void*)f_801}, {"f_629:chicken_2dbug_2escm",(void*)f_629}, {"f_571:chicken_2dbug_2escm",(void*)f_571}, {"f_1025:chicken_2dbug_2escm",(void*)f_1025}, {"f_806:chicken_2dbug_2escm",(void*)f_806}, {"toplevel:chicken_2dbug_2escm",(void*)C_toplevel}, {"f_954:chicken_2dbug_2escm",(void*)f_954}, {"f_958:chicken_2dbug_2escm",(void*)f_958}, {"f_1038:chicken_2dbug_2escm",(void*)f_1038}, {"f_872:chicken_2dbug_2escm",(void*)f_872}, {"f_874:chicken_2dbug_2escm",(void*)f_874}, {"f_1032:chicken_2dbug_2escm",(void*)f_1032}, {"f_1035:chicken_2dbug_2escm",(void*)f_1035}, {"f_944:chicken_2dbug_2escm",(void*)f_944}, {"f_492:chicken_2dbug_2escm",(void*)f_492}, {"f_494:chicken_2dbug_2escm",(void*)f_494}, {"f_498:chicken_2dbug_2escm",(void*)f_498}, {"f_609:chicken_2dbug_2escm",(void*)f_609}, {"f_991:chicken_2dbug_2escm",(void*)f_991}, {"f_993:chicken_2dbug_2escm",(void*)f_993}, {"f_522:chicken_2dbug_2escm",(void*)f_522}, {"f_525:chicken_2dbug_2escm",(void*)f_525}, {"f_528:chicken_2dbug_2escm",(void*)f_528}, {"f_987:chicken_2dbug_2escm",(void*)f_987}, {"f_983:chicken_2dbug_2escm",(void*)f_983}, {"f_513:chicken_2dbug_2escm",(void*)f_513}, {"f_510:chicken_2dbug_2escm",(void*)f_510}, {"f_516:chicken_2dbug_2escm",(void*)f_516}, {"f_519:chicken_2dbug_2escm",(void*)f_519}, {"f_975:chicken_2dbug_2escm",(void*)f_975}, {"f_979:chicken_2dbug_2escm",(void*)f_979}, {"f_501:chicken_2dbug_2escm",(void*)f_501}, {"f_504:chicken_2dbug_2escm",(void*)f_504}, {"f_484:chicken_2dbug_2escm",(void*)f_484}, {"f_481:chicken_2dbug_2escm",(void*)f_481}, {"f_475:chicken_2dbug_2escm",(void*)f_475}, {"f_472:chicken_2dbug_2escm",(void*)f_472}, {"f_478:chicken_2dbug_2escm",(void*)f_478}, {"f_660:chicken_2dbug_2escm",(void*)f_660}, {"f_466:chicken_2dbug_2escm",(void*)f_466}, {"f_463:chicken_2dbug_2escm",(void*)f_463}, {"f_460:chicken_2dbug_2escm",(void*)f_460}, {"f_652:chicken_2dbug_2escm",(void*)f_652}, {"f_1042:chicken_2dbug_2escm",(void*)f_1042}, {"f_797:chicken_2dbug_2escm",(void*)f_797}, {"f_795:chicken_2dbug_2escm",(void*)f_795}, {"f_791:chicken_2dbug_2escm",(void*)f_791}, {"f_469:chicken_2dbug_2escm",(void*)f_469}, {"f_457:chicken_2dbug_2escm",(void*)f_457}, {"f_647:chicken_2dbug_2escm",(void*)f_647}, {"f_644:chicken_2dbug_2escm",(void*)f_644}, {"f_787:chicken_2dbug_2escm",(void*)f_787}, {"f_783:chicken_2dbug_2escm",(void*)f_783}, {"f_635:chicken_2dbug_2escm",(void*)f_635}, {"f_638:chicken_2dbug_2escm",(void*)f_638}, {"f_632:chicken_2dbug_2escm",(void*)f_632}, {"f_890:chicken_2dbug_2escm",(void*)f_890}, {"f_775:chicken_2dbug_2escm",(void*)f_775}, {"f_779:chicken_2dbug_2escm",(void*)f_779}, {"f1100:chicken_2dbug_2escm",(void*)f1100}, {"f_771:chicken_2dbug_2escm",(void*)f_771}, {"f_886:chicken_2dbug_2escm",(void*)f_886}, {"f_763:chicken_2dbug_2escm",(void*)f_763}, {"f_767:chicken_2dbug_2escm",(void*)f_767}, {"f_563:chicken_2dbug_2escm",(void*)f_563}, {"f_690:chicken_2dbug_2escm",(void*)f_690}, {"f_752:chicken_2dbug_2escm",(void*)f_752}, {"f_684:chicken_2dbug_2escm",(void*)f_684}, {"f_558:chicken_2dbug_2escm",(void*)f_558}, {"f_555:chicken_2dbug_2escm",(void*)f_555}, {"f_688:chicken_2dbug_2escm",(void*)f_688}, {"f_552:chicken_2dbug_2escm",(void*)f_552}, {"f1093:chicken_2dbug_2escm",(void*)f1093}, {"f_549:chicken_2dbug_2escm",(void*)f_549}, {"f_546:chicken_2dbug_2escm",(void*)f_546}, {"f_674:chicken_2dbug_2escm",(void*)f_674}, {"f_676:chicken_2dbug_2escm",(void*)f_676}, {"f_540:chicken_2dbug_2escm",(void*)f_540}, {"f_670:chicken_2dbug_2escm",(void*)f_670}, {"f_853:chicken_2dbug_2escm",(void*)f_853}, {"f_920:chicken_2dbug_2escm",(void*)f_920}, {"f_929:chicken_2dbug_2escm",(void*)f_929}, {"f_926:chicken_2dbug_2escm",(void*)f_926}, {"f_923:chicken_2dbug_2escm",(void*)f_923}, {"f_537:chicken_2dbug_2escm",(void*)f_537}, {"f_531:chicken_2dbug_2escm",(void*)f_531}, {"f_534:chicken_2dbug_2escm",(void*)f_534}, {"f_844:chicken_2dbug_2escm",(void*)f_844}, {"f_849:chicken_2dbug_2escm",(void*)f_849}, {"f_727:chicken_2dbug_2escm",(void*)f_727}, {"f_725:chicken_2dbug_2escm",(void*)f_725}, {"f_910:chicken_2dbug_2escm",(void*)f_910}, {"f_914:chicken_2dbug_2escm",(void*)f_914}, {"f_715:chicken_2dbug_2escm",(void*)f_715}, {"f_599:chicken_2dbug_2escm",(void*)f_599}, {"f_1003:chicken_2dbug_2escm",(void*)f_1003}, {"f_700:chicken_2dbug_2escm",(void*)f_700}, {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| map 1 S| for-each 3 S| printf 3 o|eliminated procedure checks: 18 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|specializations: o| 1 (string=? string string) o| 1 (string-append string string) o| 1 (> fixnum fixnum) o| 1 (string-length string) o| 1 (current-input-port) o| 1 (##sys#check-list (or pair list) *) o| 1 (make-string fixnum char) o| 3 (##sys#check-output-port * * *) (o e)|safe calls: 95 o|safe globals: (generate-report main justify user-input usage collect-info user-id constant50) o|propagated global variable: out5862 ##sys#standard-output o|substituted constant variable: a506 o|substituted constant variable: a507 o|propagated global variable: out6771 ##sys#standard-output o|substituted constant variable: a542 o|substituted constant variable: a543 o|inlining procedure: k636 o|inlining procedure: k636 o|inlining procedure: k692 o|contracted procedure: "(chicken-bug.scm:55) g7986" o|inlining procedure: k601 o|contracted procedure: "(chicken-bug.scm:58) g9299" o|propagated global variable: out102106 ##sys#standard-output o|substituted constant variable: a567 o|substituted constant variable: a568 o|substituted constant variable: a583 o|propagated global variable: out102106 ##sys#standard-output o|inlining procedure: k601 o|inlining procedure: k692 o|inlining procedure: k729 o|inlining procedure: k729 o|propagated global variable: g129133 ##sys#features o|propagated global variable: out6771 ##sys#standard-output o|propagated global variable: out5862 ##sys#standard-output o|inlining procedure: k820 o|inlining procedure: k820 o|inlining procedure: k854 o|inlining procedure: k854 o|substituted constant variable: a863 o|substituted constant variable: a869 o|inlining procedure: k876 o|inlining procedure: k876 o|substituted constant variable: a903 o|inlining procedure: k900 o|inlining procedure: k900 o|inlining procedure: k939 o|inlining procedure: k939 o|substituted constant variable: constant50 o|inlining procedure: k995 o|inlining procedure: k995 o|replaced variables: 78 o|removed binding forms: 73 o|removed side-effect free assignment to unused variable: constant50 o|propagated global variable: out5862 ##sys#standard-output o|propagated global variable: out6771 ##sys#standard-output o|propagated global variable: out102106 ##sys#standard-output o|replaced variables: 5 o|removed binding forms: 91 o|inlining procedure: "(chicken-bug.scm:45) user-id" o|inlining procedure: "(chicken-bug.scm:123) usage" o|removed binding forms: 7 o|substituted constant variable: code1671098 o|removed binding forms: 1 o|simplifications: ((if . 1) (##core#call . 34)) o| call simplifications: o| + o| member o| ##sys#size o| fx> o| eof-object? o| cons 3 o| ##sys#setslot o| ##sys#check-list 3 o| pair? 4 o| string-length o| fx- o| fxmax o| ##sys#slot 12 o| string=? 3 o|contracted procedure: k661 o|contracted procedure: k695 o|contracted procedure: k705 o|contracted procedure: k709 o|contracted procedure: k592 o|contracted procedure: k604 o|contracted procedure: k614 o|contracted procedure: k618 o|contracted procedure: k589 o|contracted procedure: k585 o|contracted procedure: k580 o|contracted procedure: k717 o|contracted procedure: k720 o|contracted procedure: k732 o|contracted procedure: k735 o|contracted procedure: k738 o|contracted procedure: k746 o|contracted procedure: k754 o|propagated global variable: g129133 ##sys#features o|contracted procedure: k823 o|contracted procedure: k826 o|contracted procedure: k836 o|contracted procedure: k866 o|contracted procedure: k857 o|contracted procedure: k879 o|contracted procedure: k894 o|contracted procedure: k915 o|contracted procedure: k930 o|contracted procedure: k933 o|contracted procedure: k936 o|contracted procedure: k969 o|contracted procedure: k998 o|contracted procedure: k1008 o|contracted procedure: k1012 o|simplifications: ((if . 1) (let . 8)) o|removed binding forms: 33 o|replaced variables: 16 o|removed binding forms: 7 o|customizable procedures: (g193200 for-each-loop192209 k921 loop170 map-loop117134 for-each-loop91109 for-each-loop78141) o|calls to known targets: 23 o|fast box initializations: 5 */ /* end of file */ chicken-4.12.0/stub.scm0000644000175000017500000000330713052306173014474 0ustar sjamaansjamaan;;;; stub.scm ; ; Copyright (c) 2008-2017, 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 ports extras) (not safe) ) (let loop () (return-to-host) (loop)) chicken-4.12.0/irregex.import.c0000644000175000017500000001676213052306545016151 0ustar sjamaansjamaan/* Generated from irregex.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: irregex.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file irregex.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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_199) static void C_ccall f_199(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(f_202) static void C_ccall f_202(C_word c,C_word *av) C_noret; C_noret_decl(f_205) static void C_ccall f_205(C_word c,C_word *av) C_noret; C_noret_decl(f_208) static void C_ccall f_208(C_word c,C_word *av) C_noret; /* k197 */ static void C_ccall f_199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_199,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(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(454))){ C_save(t1); C_rereclaim2(454*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,3); lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module"); lf[1]=C_h_intern(&lf[1],7,"irregex"); lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\007irregex\376\003\000\000\002\376\001\000\000\023irregex-apply-match\376\003\000\000\002\376\001\000\000\013irregex-dfa\376\003\000\000\002\376\001\000\000\023irr" "egex-dfa/extract\376\003\000\000\002\376\001\000\000\022irregex-dfa/search\376\003\000\000\002\376\001\000\000\017irregex-extract\376\003\000\000\002\376\001\000\000\015i" "rregex-flags\376\003\000\000\002\376\001\000\000\014irregex-fold\376\003\000\000\002\376\001\000\000\024irregex-fold/chunked\376\003\000\000\002\376\001\000\000\017irrege" "x-lengths\376\003\000\000\002\376\001\000\000\015irregex-match\376\003\000\000\002\376\001\000\000\016irregex-match\077\376\003\000\000\002\376\001\000\000\023irregex-match-" "data\077\376\003\000\000\002\376\001\000\000\027irregex-match-end-chunk\376\003\000\000\002\376\001\000\000\027irregex-match-end-index\376\003\000\000\002\376\001\000\000" "\023irregex-match-names\376\003\000\000\002\376\001\000\000\034irregex-match-num-submatches\376\003\000\000\002\376\001\000\000\031irregex-matc" "h-start-chunk\376\003\000\000\002\376\001\000\000\031irregex-match-start-index\376\003\000\000\002\376\001\000\000\024irregex-match-string\376\003" "\000\000\002\376\001\000\000\026irregex-match-subchunk\376\003\000\000\002\376\001\000\000\027irregex-match-substring\376\003\000\000\002\376\001\000\000\032irregex" "-match-valid-index\077\376\003\000\000\002\376\001\000\000\025irregex-match/chunked\376\003\000\000\002\376\001\000\000\015irregex-names\376\003\000\000\002\376\001" "\000\000\023irregex-new-matches\376\003\000\000\002\376\001\000\000\013irregex-nfa\376\003\000\000\002\376\001\000\000\026irregex-num-submatches\376\003\000\000\002" "\376\001\000\000\013irregex-opt\376\003\000\000\002\376\001\000\000\015irregex-quote\376\003\000\000\002\376\001\000\000\017irregex-replace\376\003\000\000\002\376\001\000\000\023irrege" "x-replace/all\376\003\000\000\002\376\001\000\000\026irregex-reset-matches!\376\003\000\000\002\376\001\000\000\016irregex-search\376\003\000\000\002\376\001\000\000\026i" "rregex-search/chunked\376\003\000\000\002\376\001\000\000\026irregex-search/matches\376\003\000\000\002\376\001\000\000\015irregex-split\376\003\000\000" "\002\376\001\000\000\010irregex\077\376\003\000\000\002\376\001\000\000\024make-irregex-chunker\376\003\000\000\002\376\001\000\000\021maybe-string->sre\376\003\000\000\002\376\001\000\000" "\014sre->irregex\376\003\000\000\002\376\001\000\000\013sre->string\376\003\000\000\002\376\001\000\000\017string->irregex\376\003\000\000\002\376\001\000\000\013string->sre" "\376\377\016"); C_register_lf2(lf,3,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_199,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k200 in k197 */ static void C_ccall f_202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k203 in k200 in k197 */ static void C_ccall f_205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_205,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* irregex.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; /* Re-use our own argvector */ } 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);}} /* k206 in k203 in k200 in k197 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_208,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {"f_199:irregex_2eimport_2escm",(void*)f_199}, {"toplevel:irregex_2eimport_2escm",(void*)C_toplevel}, {"f_202:irregex_2eimport_2escm",(void*)f_202}, {"f_205:irregex_2eimport_2escm",(void*)f_205}, {"f_208:irregex_2eimport_2escm",(void*)f_208}, {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-4.12.0/chicken.import.c0000644000175000017500000003770713052306542016107 0ustar sjamaansjamaan/* Generated from chicken.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: chicken.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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_199) static void C_ccall f_199(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(f_202) static void C_ccall f_202(C_word c,C_word *av) C_noret; C_noret_decl(f_205) static void C_ccall f_205(C_word c,C_word *av) C_noret; C_noret_decl(f_208) static void C_ccall f_208(C_word c,C_word *av) C_noret; /* k197 */ static void C_ccall f_199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_199,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(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(2141))){ C_save(t1); C_rereclaim2(2141*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module"); lf[1]=C_h_intern(&lf[1],7,"chicken"); lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005abort\376\003\000\000\002\376\001\000\000\004add1\376\003\000\000\002\376\001\000\000\011argc+argv\376\003\000\000\002\376\001\000\000\004argv\376\003\000\000\002\376\001\000\000\020arithmet" "ic-shift\376\003\000\000\002\376\001\000\000\010bit-set\077\376\003\000\000\002\376\001\000\000\013bitwise-and\376\003\000\000\002\376\001\000\000\013bitwise-ior\376\003\000\000\002\376\001\000\000\013bi" "twise-not\376\003\000\000\002\376\001\000\000\013bitwise-xor\376\003\000\000\002\376\001\000\000\014blob->string\376\003\000\000\002\376\001\000\000\011blob-size\376\003\000\000\002\376\001\000\000" "\005blob\077\376\003\000\000\002\376\001\000\000\006blob=\077\376\003\000\000\002\376\001\000\000\016build-platform\376\003\000\000\002\376\001\000\000\007call/cc\376\003\000\000\002\376\001\000\000\016case-se" "nsitive\376\003\000\000\002\376\001\000\000\011char-name\376\003\000\000\002\376\001\000\000\014chicken-home\376\003\000\000\002\376\001\000\000\017chicken-version\376\003\000\000\002\376\001" "\000\000\026command-line-arguments\376\003\000\000\002\376\001\000\000\023condition-predicate\376\003\000\000\002\376\001\000\000\033condition-proper" "ty-accessor\376\003\000\000\002\376\001\000\000\012condition\077\376\003\000\000\002\376\001\000\000\017condition->list\376\003\000\000\002\376\001\000\000\024continuation-c" "apture\376\003\000\000\002\376\001\000\000\022continuation-graft\376\003\000\000\002\376\001\000\000\023continuation-return\376\003\000\000\002\376\001\000\000\015continu" "ation\077\376\003\000\000\002\376\001\000\000\017copy-read-table\376\003\000\000\002\376\001\000\000\010cpu-time\376\003\000\000\002\376\001\000\000\022current-error-port\376\003\000" "\000\002\376\001\000\000\031current-exception-handler\376\003\000\000\002\376\001\000\000\027current-gc-milliseconds\376\003\000\000\002\376\001\000\000\024curre" "nt-milliseconds\376\003\000\000\002\376\001\000\000\022current-read-table\376\003\000\000\002\376\001\000\000\017current-seconds\376\003\000\000\002\376\001\000\000\022de" "fine-reader-ctor\376\003\000\000\002\376\001\000\000\013delete-file\376\003\000\000\002\376\001\000\000\021directory-exists\077\376\003\000\000\002\376\001\000\000\017enable" "-warnings\376\003\000\000\002\376\001\000\000\007equal=\077\376\003\000\000\002\376\001\000\000\024er-macro-transformer\376\003\000\000\002\376\001\000\000\005errno\376\003\000\000\002\376\001\000\000" "\005error\376\003\000\000\002\376\001\000\000\004exit\376\003\000\000\002\376\001\000\000\014exit-handler\376\003\000\000\002\376\001\000\000\006expand\376\003\000\000\002\376\001\000\000\025extension-in" "formation\376\003\000\000\002\376\001\000\000\010feature\077\376\003\000\000\002\376\001\000\000\010features\376\003\000\000\002\376\001\000\000\014file-exists\077\376\003\000\000\002\376\001\000\000\007fin" "ite\077\376\003\000\000\002\376\001\000\000\013fixnum-bits\376\003\000\000\002\376\001\000\000\020fixnum-precision\376\003\000\000\002\376\001\000\000\007fixnum\077\376\003\000\000\002\376\001\000\000\030fl" "onum-decimal-precision\376\003\000\000\002\376\001\000\000\016flonum-epsilon\376\003\000\000\002\376\001\000\000\037flonum-maximum-decimal-e" "xponent\376\003\000\000\002\376\001\000\000\027flonum-maximum-exponent\376\003\000\000\002\376\001\000\000\037flonum-minimum-decimal-exponen" "t\376\003\000\000\002\376\001\000\000\027flonum-minimum-exponent\376\003\000\000\002\376\001\000\000\020flonum-precision\376\003\000\000\002\376\001\000\000\026flonum-pri" "nt-precision\376\003\000\000\002\376\001\000\000\014flonum-radix\376\003\000\000\002\376\001\000\000\007flonum\077\376\003\000\000\002\376\001\000\000\014flush-output\376\003\000\000\002\376\001" "\000\000\005foldl\376\003\000\000\002\376\001\000\000\005foldr\376\003\000\000\002\376\001\000\000\020force-finalizers\376\003\000\000\002\376\001\000\000\003fp-\376\003\000\000\002\376\001\000\000\003fp\052\376\003\000\000\002" "\376\001\000\000\003fp/\376\003\000\000\002\376\001\000\000\003fp+\376\003\000\000\002\376\001\000\000\003fp<\376\003\000\000\002\376\001\000\000\004fp<=\376\003\000\000\002\376\001\000\000\003fp=\376\003\000\000\002\376\001\000\000\003fp>\376\003\000\000\002\376" "\001\000\000\004fp>=\376\003\000\000\002\376\001\000\000\005fpabs\376\003\000\000\002\376\001\000\000\006fpacos\376\003\000\000\002\376\001\000\000\006fpasin\376\003\000\000\002\376\001\000\000\006fpatan\376\003\000\000\002\376\001\000\000" "\007fpatan2\376\003\000\000\002\376\001\000\000\005fpexp\376\003\000\000\002\376\001\000\000\006fpexpt\376\003\000\000\002\376\001\000\000\007fpfloor\376\003\000\000\002\376\001\000\000\011fpceiling\376\003\000\000\002" "\376\001\000\000\005fpcos\376\003\000\000\002\376\001\000\000\012fpinteger\077\376\003\000\000\002\376\001\000\000\005fplog\376\003\000\000\002\376\001\000\000\005fpmax\376\003\000\000\002\376\001\000\000\005fpmin\376\003\000\000\002" "\376\001\000\000\005fpneg\376\003\000\000\002\376\001\000\000\007fpround\376\003\000\000\002\376\001\000\000\005fpsin\376\003\000\000\002\376\001\000\000\006fpsqrt\376\003\000\000\002\376\001\000\000\005fptan\376\003\000\000\002\376\001" "\000\000\012fptruncate\376\003\000\000\002\376\001\000\000\003fx-\376\003\000\000\002\376\001\000\000\003fx\052\376\003\000\000\002\376\001\000\000\003fx/\376\003\000\000\002\376\001\000\000\003fx+\376\003\000\000\002\376\001\000\000\003fx<\376\003" "\000\000\002\376\001\000\000\004fx<=\376\003\000\000\002\376\001\000\000\003fx=\376\003\000\000\002\376\001\000\000\003fx>\376\003\000\000\002\376\001\000\000\004fx>=\376\003\000\000\002\376\001\000\000\005fxand\376\003\000\000\002\376\001\000\000\007fxe" "ven\077\376\003\000\000\002\376\001\000\000\005fxior\376\003\000\000\002\376\001\000\000\005fxmax\376\003\000\000\002\376\001\000\000\005fxmin\376\003\000\000\002\376\001\000\000\005fxmod\376\003\000\000\002\376\001\000\000\005fxneg\376" "\003\000\000\002\376\001\000\000\005fxnot\376\003\000\000\002\376\001\000\000\006fxodd\077\376\003\000\000\002\376\001\000\000\005fxshl\376\003\000\000\002\376\001\000\000\005fxshr\376\003\000\000\002\376\001\000\000\005fxxor\376\003\000\000\002" "\376\001\000\000\002gc\376\003\000\000\002\376\001\000\000\006gensym\376\003\000\000\002\376\001\000\000\003get\376\003\000\000\002\376\001\000\000\016get-call-chain\376\003\000\000\002\376\001\000\000\026get-condit" "ion-property\376\003\000\000\002\376\001\000\000\030get-environment-variable\376\003\000\000\002\376\001\000\000\013get-keyword\376\003\000\000\002\376\001\000\000\021get" "-output-string\376\003\000\000\002\376\001\000\000\016get-properties\376\003\000\000\002\376\001\000\000\022getter-with-setter\376\003\000\000\002\376\001\000\000\025impl" "icit-exit-handler\376\003\000\000\002\376\001\000\000\024ir-macro-transformer\376\003\000\000\002\376\001\000\000\017keyword->string\376\003\000\000\002\376\001\000" "\000\015keyword-style\376\003\000\000\002\376\001\000\000\010keyword\077\376\003\000\000\002\376\001\000\000\014load-library\376\003\000\000\002\376\001\000\000\015load-relative\376\003" "\000\000\002\376\001\000\000\014load-verbose\376\003\000\000\002\376\001\000\000\022machine-byte-order\376\003\000\000\002\376\001\000\000\014machine-type\376\003\000\000\002\376\001\000\000\011" "make-blob\376\003\000\000\002\376\001\000\000\030make-composite-condition\376\003\000\000\002\376\001\000\000\016make-parameter\376\003\000\000\002\376\001\000\000\014mak" "e-promise\376\003\000\000\002\376\001\000\000\027make-property-condition\376\003\000\000\002\376\001\000\000\016maximum-flonum\376\003\000\000\002\376\001\000\000\021memo" "ry-statistics\376\003\000\000\002\376\001\000\000\016minimum-flonum\376\003\000\000\002\376\001\000\000\022module-environment\376\003\000\000\002\376\001\000\000\024most-" "negative-fixnum\376\003\000\000\002\376\001\000\000\024most-positive-fixnum\376\003\000\000\002\376\001\000\000\007on-exit\376\003\000\000\002\376\001\000\000\021open-inp" "ut-string\376\003\000\000\002\376\001\000\000\022open-output-string\376\003\000\000\002\376\001\000\000\024parentheses-synonyms\376\003\000\000\002\376\001\000\000\014por" "t-closed\077\376\003\000\000\002\376\001\000\000\011port-name\376\003\000\000\002\376\001\000\000\015port-position\376\003\000\000\002\376\001\000\000\005port\077\376\003\000\000\002\376\001\000\000\005prin" "t\376\003\000\000\002\376\001\000\000\020print-call-chain\376\003\000\000\002\376\001\000\000\023print-error-message\376\003\000\000\002\376\001\000\000\006print\052\376\003\000\000\002\376\001\000" "\000\025procedure-information\376\003\000\000\002\376\001\000\000\014program-name\376\003\000\000\002\376\001\000\000\010promise\077\376\003\000\000\002\376\001\000\000\004put!\376\003\000" "\000\002\376\001\000\000\004quit\376\003\000\000\002\376\001\000\000\021register-feature!\376\003\000\000\002\376\001\000\000\010remprop!\376\003\000\000\002\376\001\000\000\013rename-file\376\003\000" "\000\002\376\001\000\000\004repl\376\003\000\000\002\376\001\000\000\013repl-prompt\376\003\000\000\002\376\001\000\000\017repository-path\376\003\000\000\002\376\001\000\000\007require\376\003\000\000\002\376" "\001\000\000\005reset\376\003\000\000\002\376\001\000\000\015reset-handler\376\003\000\000\002\376\001\000\000\016return-to-host\376\003\000\000\002\376\001\000\000\024reverse-list->" "string\376\003\000\000\002\376\001\000\000\016set-finalizer!\376\003\000\000\002\376\001\000\000\016set-gc-report!\376\003\000\000\002\376\001\000\000\036set-parameterize" "d-read-syntax!\376\003\000\000\002\376\001\000\000\016set-port-name!\376\003\000\000\002\376\001\000\000\020set-read-syntax!\376\003\000\000\002\376\001\000\000\026set-sh" "arp-read-syntax!\376\003\000\000\002\376\001\000\000\006setter\376\003\000\000\002\376\001\000\000\006signal\376\003\000\000\002\376\001\000\000\006signum\376\003\000\000\002\376\001\000\000\012single" "step\376\003\000\000\002\376\001\000\000\015software-type\376\003\000\000\002\376\001\000\000\020software-version\376\003\000\000\002\376\001\000\000\014string->blob\376\003\000\000\002" "\376\001\000\000\017string->keyword\376\003\000\000\002\376\001\000\000\031string->uninterned-symbol\376\003\000\000\002\376\001\000\000\014strip-syntax\376\003\000" "\000\002\376\001\000\000\004sub1\376\003\000\000\002\376\001\000\000\011subvector\376\003\000\000\002\376\001\000\000\015symbol-append\376\003\000\000\002\376\001\000\000\015symbol-escape\376\003\000\000" "\002\376\001\000\000\014symbol-plist\376\003\000\000\002\376\001\000\000\014syntax-error\376\003\000\000\002\376\001\000\000\006system\376\003\000\000\002\376\001\000\000\023unregister-fea" "ture!\376\003\000\000\002\376\001\000\000\015vector-resize\376\003\000\000\002\376\001\000\000\014vector-copy!\376\003\000\000\002\376\001\000\000\004void\376\003\000\000\002\376\001\000\000\007warnin" "g\376\003\000\000\002\376\001\000\000\014eval-handler\376\003\000\000\002\376\001\000\000\024er-macro-transformer\376\003\000\000\002\376\001\000\000\024ir-macro-transfor" "mer\376\003\000\000\002\376\001\000\000\026dynamic-load-libraries\376\003\000\000\002\376\001\000\000\026with-exception-handler\376\377\016"); lf[3]=C_h_intern(&lf[3],29,"\003syschicken-macro-environment"); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_199,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k200 in k197 */ static void C_ccall f_202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k203 in k200 in k197 */ static void C_ccall f_205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_205,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.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; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_fast_retrieve(lf[3]); tp(5,av2);}} /* k206 in k203 in k200 in k197 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_208,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {"f_199:chicken_2eimport_2escm",(void*)f_199}, {"toplevel:chicken_2eimport_2escm",(void*)C_toplevel}, {"f_202:chicken_2eimport_2escm",(void*)f_202}, {"f_205:chicken_2eimport_2escm",(void*)f_205}, {"f_208:chicken_2eimport_2escm",(void*)f_208}, {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-4.12.0/utils.scm0000644000175000017500000001442613052306173014663 0ustar sjamaansjamaan;;;; utils.scm - Utilities for scripting and file stuff ; ; Copyright (c) 2008-2017, 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 utils) (uses eval extras srfi-13 posix files irregex) (fixnum) (disable-interrupts) ) (include "common-declarations.scm") (register-feature! 'utils) ;;; Like `system', but allows format-string and bombs on nonzero return code: (define system* (lambda (fstr . args) (let* ([str (apply sprintf fstr args)] [n (system str)] ) (unless (zero? n) (##sys#error "shell invocation failed with non-zero return status" str n) ) ) ) ) ;;; Read file as string from given filename or port: (define (read-all . file) (let ([file (optional file ##sys#standard-input)]) (if (port? file) (read-string #f file) (with-input-from-file file (cut read-string #f) #:binary) ) ) ) ;;; Quote string for shell (define (qs str #!optional (platform (build-platform))) (let ((delim (if (eq? platform 'mingw32) #\" #\')) (escaped (if (eq? platform 'mingw32) "\"\"" "'\\''"))) (string-append (string delim) (string-concatenate (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 delim)))) ;;; Compile and load file (define compile-file-options (make-parameter '("-O2" "-d2"))) (define compile-file (let ((csc (foreign-value "C_CSC_PROGRAM" c-string)) (load-file load) (path (foreign-value "C_INSTALL_BIN_HOME" c-string)) ) (lambda (filename #!key options output-file (load #t) verbose) (let* ((cscpath (or (file-exists? (make-pathname path csc)) "csc")) (tmpfile (and (not output-file) (create-temporary-file "so"))) (crapshell (eq? (build-platform) 'mingw32)) (cmd (sprintf "~a~a -s ~a ~a -o ~a~a" (if crapshell "\"" "") (qs cscpath) (string-intersperse (or options (compile-file-options))) (qs filename) (qs (or output-file tmpfile)) (if crapshell "\"" "")))) (when verbose (print " " cmd)) (let ((status (system cmd))) (cond ((zero? status) (unless output-file (on-exit (lambda () (handle-exceptions ex #f (delete-file* tmpfile))))) (when load (let ((f (or output-file tmpfile))) (handle-exceptions ex (begin (delete-file* f) (abort ex)) (load-file f) f)))) (else #f))))))) ;;; Scan lines until regex or predicate matches (define scan-input-lines (lambda (rx #!optional (port ##sys#standard-input)) (let ((rx (if (procedure? rx) rx (cute irregex-search (irregex rx) <>)))) (let loop () (let ((ln (read-line port))) (and (not (eof-object? ln)) (or (rx ln) (loop)))))))) ;; Ask for confirmation #> #if defined(_WIN32) && !defined(__CYGWIN__) # include # define C_HAS_MESSAGE_BOX 1 static int C_confirmation_dialog(char *msg, char *caption, int def, int abort) { int d = 0, r; int t = abort ? MB_YESNOCANCEL : MB_YESNO; switch(def) { case 0: d = MB_DEFBUTTON1; break; case 1: d = MB_DEFBUTTON2; break; case 2: d = MB_DEFBUTTON3; } r = MessageBox(NULL, msg, caption, t | MB_ICONQUESTION | d); switch(r) { case IDYES: return 1; case IDNO: return 0; default: return -1; } } #else # define C_HAS_MESSAGE_BOX 0 static int C_confirmation_dialog(char *msg, char *caption, int def, int abort) { return -1; } #endif <# ;; Note: for Mac OS X, "CFUserNotificationDisplayAlert" could be used, ;; unless that requires linking any libraries. This would also ;; be useful for runtime error messages. (define-foreign-variable C_HAS_MESSAGE_BOX bool) (define yes-or-no? (let ((dialog (foreign-lambda int "C_confirmation_dialog" c-string c-string int bool))) (lambda (str #!key default title (abort reset)) (let ((gui (and C_HAS_MESSAGE_BOX (not (##sys#fudge 4))))) ; C_gui_mode (define (get-input) (if gui (let ((r (dialog str (or title "CHICKEN Runtime") (cond ((not default) 3) ((string-ci=? default "yes") 0) ((string-ci=? default "no") 1) (else 2)) abort))) (case r ((0) "no") ((1) "yes") (else "abort"))) (string-trim-both (read-line)))) (let loop () (unless gui (printf "~%~A (yes/no~a) " str (if abort "/abort" "")) (when default (printf "[~A] " default)) (flush-output)) (let ((ln (get-input))) (cond ((eof-object? ln) (set! ln "abort")) ((and default (string=? "" ln)) (set! ln default)) ) (cond ((string-ci=? "yes" ln) #t) ((string-ci=? "no" ln) #f) ((and abort (string-ci=? "abort" ln)) (abort)) (else (if abort (printf "~%Please enter \"yes\", \"no\" or \"abort\".~%") (printf "~%Please enter \"yes\" or \"no\".~%")) (loop) ) ) ) ) ) ) ) ) chicken-4.12.0/rules.make0000644000175000017500000006646613052302367015024 0ustar sjamaansjamaan# rules.make - basic build rules -*- Makefile -*- # # Copyright (c) 2008-2017, 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 SETUP_API_OBJECTS_1 = setup-api setup-download LIBCHICKEN_SCHEME_OBJECTS_1 = \ library eval data-structures ports files extras lolevel utils tcp srfi-1 srfi-4 srfi-13 \ srfi-14 srfi-18 srfi-69 $(POSIXFILE) 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)) COMPILER_OBJECTS_1 = \ chicken batch-driver compiler optimizer lfa2 compiler-syntax scrutinizer support \ c-platform c-backend 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 ALWAYS_STATIC_UTILITY_PROGRAM_OBJECTS_1 = \ chicken-bug ## TODO: Shouldn't these manpages match their program names (ie CSI_PROGRAM etc)? MANPAGES = \ chicken.1 csc.1 csi.1 chicken-install.1 chicken-uninstall.1 \ chicken-status.1 chicken-profile.1 chicken-bug.1 feathers.1 # 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_BUG_PROGRAM) ifndef STATICBUILD INSTALLED_PROGRAMS += $(CHICKEN_STATUS_PROGRAM) \ $(CHICKEN_INSTALL_PROGRAM) $(CHICKEN_UNINSTALL_PROGRAM) endif # 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) \ $(ALWAYS_STATIC_UTILITY_PROGRAM_OBJECTS_1:=.c) \ $(COMPILER_OBJECTS_1:=.c) \ $(SETUP_API_OBJECTS_1:=.c) \ $(SETUP_API_OBJECTS_1:=.import.scm) $(SETUP_API_OBJECTS_1:=.import.c) \ $(IMPORT_LIBRARIES:=.import.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)))) # import library objects define declare-import-lib-object $(1).import$(O): $(1).import.c chicken.h $$(CHICKEN_CONFIG_H) $$(C_COMPILER) $$(C_COMPILER_OPTIONS) $$(C_COMPILER_PTABLES_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)))) # setup extension objects declare-setup-api-object = $(declare-shared-library-object) $(foreach obj,$(SETUP_API_OBJECTS_1),\ $(eval $(call declare-setup-api-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)))) # static program objects define declare-always-static-utility-program-object $(1)$(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, $(ALWAYS_STATIC_UTILITY_PROGRAM_OBJECTS_1),\ $(eval $(call declare-always-static-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)) $(eval $(call declare-program-from-object,$(CHICKEN_BUG_PROGRAM)$(EXE),chicken-bug)) # 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) # ifndef STATICBUILD # $(MAKE_WRITABLE_COMMAND) $(CHICKEN_INSTALL_PROGRAM)$(EXE) # $(MAKE_WRITABLE_COMMAND) $(CHICKEN_UNINSTALL_PROGRAM)$(EXE) # $(MAKE_WRITABLE_COMMAND) $(CHICKEN_STATUS_PROGRAM)$(EXE) # endif 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 # XXX Shouldn't this be part of the non-static lib part? $(foreach setup-lib,$(SETUP_API_OBJECTS_1),\ $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_EXECUTABLE_OPTIONS) \ $(setup-lib).so "$(DESTDIR)$(IEGGDIR)" $(NL)) ifndef STATICBUILD ifneq ($(POSTINSTALL_PROGRAM),true) $(foreach prog,$(INSTALLED_PROGRAMS),\ $(POSTINSTALL_PROGRAM) $(POSTINSTALL_PROGRAM_FLAGS) \ "$(DESTDIR)$(IBINDIR)$(SEP)$(prog)" $(NL)) $(foreach apilib,$(SETUP_API_OBJECTS_1),\ $(POSTINSTALL_PROGRAM) $(POSTINSTALL_PROGRAM_FLAGS) \ "$(DESTDIR)$(IEGGDIR)$(SEP)$(apilib).so" $(NL)) $(foreach import-lib,$(IMPORT_LIBRARIES),\ $(POSTINSTALL_PROGRAM) $(POSTINSTALL_PROGRAM_FLAGS) \ "$(DESTDIR)$(IEGGDIR)$(SEP)$(import-lib).import.so" $(NL)) 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 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)" $(foreach obj, $(MANPAGES), \ $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) \ $(SRCDIR)$(obj) "$(DESTDIR)$(IMAN1DIR)" $(NL)) $(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)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 $(foreach obj,$(MANPAGES),\ $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) \ "$(DESTDIR)$(IMAN1DIR)$(SEP)$(obj)" $(NL)) $(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 buildtag.h: echo #define C_BUILD_TAG "$(BUILD_TAG)" >$@ buildbranch: echo.$(BRANCHNAME)>buildbranch buildid: echo.$(BUILD_ID)>buildid else .PHONY: identify-me identify-me: @sh $(SRCDIR)identify.sh $(SRCDIR) buildtag.h: identify-me buildbranch: identify-me buildid: identify-me endif # bootstrapping c sources define declare-emitted-import-lib-dependency .SECONDARY: $(1).import.scm $(1).import.scm: $(1).c endef $(foreach lib, $(SETUP_API_OBJECTS_1),\ $(eval $(call declare-emitted-import-lib-dependency,$(lib)))) 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 $(SRCDIR)banner.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) eval.c: $(SRCDIR)eval.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) expand.c: $(SRCDIR)expand.scm $(SRCDIR)synrules.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) modules.c: $(SRCDIR)modules.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) extras.c: $(SRCDIR)extras.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) posixunix.c: $(SRCDIR)posixunix.scm $(SRCDIR)posix-common.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) posixwin.c: $(SRCDIR)posixwin.scm $(SRCDIR)posix-common.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) srfi-69.c: $(SRCDIR)srfi-69.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) irregex.c: $(SRCDIR)irregex.scm $(SRCDIR)irregex-core.scm $(SRCDIR)irregex-utils.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) # # The ones below just depend on their matching .scm file and common-declarations # chicken-syntax.c: $(SRCDIR)chicken-syntax.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) chicken-ffi-syntax.c: $(SRCDIR)chicken-ffi-syntax.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) data-structures.c: $(SRCDIR)data-structures.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) ports.c: $(SRCDIR)ports.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) files.c: $(SRCDIR)files.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) lolevel.c: $(SRCDIR)lolevel.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) tcp.c: $(SRCDIR)tcp.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) srfi-1.c: $(SRCDIR)srfi-1.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) srfi-4.c: $(SRCDIR)srfi-4.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) srfi-13.c: $(SRCDIR)srfi-13.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) srfi-14.c: $(SRCDIR)srfi-14.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) srfi-18.c: $(SRCDIR)srfi-18.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) utils.c: $(SRCDIR)utils.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) 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 buildbranch buildid \ $(SRCDIR)buildversion buildtag.h $(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)compiler-namespace.scm \ $$(SRCDIR)private-namespace.scm $$(SRCDIR)tweaks.scm $$(CHICKEN) $$< $$(CHICKEN_COMPILER_OPTIONS) -output-file $$@ endef $(foreach obj, $(COMPILER_OBJECTS_1),\ $(eval $(call declare-bootstrap-compiler-object,$(obj)))) csi.c: $(SRCDIR)csi.scm $(SRCDIR)banner.scm $(CHICKEN) $< $(CHICKEN_PROGRAM_OPTIONS) -output-file $@ chicken-profile.c: $(SRCDIR)chicken-profile.scm $(CHICKEN) $< $(CHICKEN_PROGRAM_OPTIONS) -output-file $@ chicken-install.c: $(SRCDIR)chicken-install.scm setup-download.c setup-api.c $(CHICKEN) $< $(CHICKEN_PROGRAM_OPTIONS) -output-file $@ chicken-uninstall.c: $(SRCDIR)chicken-uninstall.scm $(CHICKEN) $< $(CHICKEN_PROGRAM_OPTIONS) -output-file $@ chicken-status.c: $(SRCDIR)chicken-status.scm $(CHICKEN) $< $(CHICKEN_PROGRAM_OPTIONS) -output-file $@ csc.c: $(SRCDIR)csc.scm $(CHICKEN) $< $(CHICKEN_PROGRAM_OPTIONS) -output-file $@ chicken-bug.c: $(SRCDIR)chicken-bug.scm $(CHICKEN) $< $(CHICKEN_PROGRAM_OPTIONS) -output-file $@ setup-api.c: $(SRCDIR)setup-api.scm $(CHICKEN) $< $(CHICKEN_DYNAMIC_OPTIONS) -emit-import-library setup-api \ -output-file $@ setup-download.c: $(SRCDIR)setup-download.scm setup-api.c $(CHICKEN) $< $(CHICKEN_DYNAMIC_OPTIONS) -emit-import-library setup-download \ -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) \ $(CHICKEN_BUG_PROGRAM)$(EXE) *$(O) \ $(LIBCHICKEN_SO_FILE) \ $(PRIMARY_LIBCHICKEN) \ lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(A) \ $(PROGRAM_IMPORT_LIBRARIES) \ $(IMPORT_LIBRARIES:=.import.so) $(LIBCHICKEN_IMPORT_LIBRARY) \ $(SETUP_API_OBJECTS_1:=.so) $(SETUP_API_OBJECTS_1:=.import.so) 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) \ buildtag.h buildid buildbranch distclean: clean confclean testclean: $(REMOVE_COMMAND) $(REMOVE_COMMAND_RECURSIVE_OPTIONS) $(SRCDIR)tests$(SEP)a.out $(SRCDIR)tests$(SEP)scrutiny.out \ $(SRCDIR)tests$(SEP)tmp* $(SRCDIR)tests$(SEP)*.so $(SRCDIR)tests$(SEP)*.import.scm $(SRCDIR)tests$(SEP)repository $(SRCDIR)tests$(SEP)*.dll # run tests .PHONY: check 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 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 .PHONY: touchfiles touchfiles: ifdef WINDOWS_SHELL for %%x in (*.scm) do copy /b %%x +,, else touch *.scm endif chicken-4.12.0/tcp.import.c0000644000175000017500000001346713052306544015270 0ustar sjamaansjamaan/* Generated from tcp.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: tcp.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file tcp.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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_199) static void C_ccall f_199(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(f_205) static void C_ccall f_205(C_word c,C_word *av) C_noret; C_noret_decl(f_202) static void C_ccall f_202(C_word c,C_word *av) C_noret; C_noret_decl(f_208) static void C_ccall f_208(C_word c,C_word *av) C_noret; /* k197 */ static void C_ccall f_199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_199,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(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(174))){ C_save(t1); C_rereclaim2(174*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,3); lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module"); lf[1]=C_h_intern(&lf[1],3,"tcp"); lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\020tcp-abandon-port\376\003\000\000\002\376\001\000\000\012tcp-accept\376\003\000\000\002\376\001\000\000\021tcp-accept-ready\077\376\003\000\000\002\376\001" "\000\000\022tcp-accept-timeout\376\003\000\000\002\376\001\000\000\015tcp-addresses\376\003\000\000\002\376\001\000\000\017tcp-buffer-size\376\003\000\000\002\376\001\000\000\011t" "cp-close\376\003\000\000\002\376\001\000\000\013tcp-connect\376\003\000\000\002\376\001\000\000\023tcp-connect-timeout\376\003\000\000\002\376\001\000\000\012tcp-listen\376\003" "\000\000\002\376\001\000\000\023tcp-listener-fileno\376\003\000\000\002\376\001\000\000\021tcp-listener-port\376\003\000\000\002\376\001\000\000\015tcp-listener\077\376\003\000" "\000\002\376\001\000\000\020tcp-port-numbers\376\003\000\000\002\376\001\000\000\020tcp-read-timeout\376\003\000\000\002\376\001\000\000\021tcp-write-timeout\376\377\016"); C_register_lf2(lf,3,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_199,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k203 in k200 in k197 */ static void C_ccall f_205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_205,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* tcp.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; /* Re-use our own argvector */ } 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);}} /* k200 in k197 */ static void C_ccall f_202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k206 in k203 in k200 in k197 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_208,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {"f_199:tcp_2eimport_2escm",(void*)f_199}, {"toplevel:tcp_2eimport_2escm",(void*)C_toplevel}, {"f_205:tcp_2eimport_2escm",(void*)f_205}, {"f_202:tcp_2eimport_2escm",(void*)f_202}, {"f_208:tcp_2eimport_2escm",(void*)f_208}, {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-4.12.0/Makefile.aix0000644000175000017500000000747713052302367015250 0ustar sjamaansjamaan# Makefile.aix - configuration for AIX -*- Makefile -*- # # Copyright (c) 2008-2017, The CHICKEN Team # Copyright (c) 2007, Felix L. Winkelmann # Copyright (c) 2013-2016, 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_GRP_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 ifdef SYMBOLGC echo "#define C_COLLECT_ALL_SYMBOLS" >>$@ endif echo "#define C_USE_STD_FEATURE_MACROS" >>$@ cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make chicken-4.12.0/srfi-14.c0000644000175000017500000101657213052306246014356 0ustar sjamaansjamaan/* Generated from srfi-14.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:16 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: srfi-14.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file srfi-14.c unit: srfi_2d14 */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); static C_TLS C_word lf[101]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,19),40,37,108,97,116,105,110,49,45,62,99,104,97,114,32,110,54,52,41,0,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,19),40,109,97,107,101,45,99,104,97,114,45,115,101,116,32,115,54,56,41,0,0,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,17),40,99,104,97,114,45,115,101,116,58,115,32,99,115,55,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,15),40,99,104,97,114,45,115,101,116,63,32,120,55,50,41,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,35),40,37,100,101,102,97,117,108,116,45,98,97,115,101,32,109,97,121,98,101,45,98,97,115,101,55,54,32,112,114,111,99,55,55,41,0,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,9),40,108,112,32,99,115,56,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,31),40,37,99,104,97,114,45,115,101,116,58,115,47,99,104,101,99,107,32,99,115,56,49,32,112,114,111,99,56,50,41,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,20),40,99,104,97,114,45,115,101,116,45,99,111,112,121,32,99,115,56,57,41,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,11),40,108,112,32,114,101,115,116,57,57,41,0,0,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,20),40,99,104,97,114,45,115,101,116,61,32,46,32,114,101,115,116,57,49,41,0,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,10),40,108,112,50,32,105,49,50,49,41,0,0,0,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,18),40,108,112,32,115,49,49,49,51,32,114,101,115,116,49,49,52,41,0,0,0,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,22),40,99,104,97,114,45,115,101,116,60,61,32,46,32,114,101,115,116,49,48,54,41,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,16),40,108,112,32,105,49,52,55,32,97,110,115,49,52,56,41}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,38),40,99,104,97,114,45,115,101,116,45,104,97,115,104,32,99,115,49,51,52,32,46,32,109,97,121,98,101,45,98,111,117,110,100,49,51,53,41,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,34),40,99,104,97,114,45,115,101,116,45,99,111,110,116,97,105,110,115,63,32,99,115,49,53,55,32,99,104,97,114,49,53,56,41,0,0,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,12),40,108,112,32,115,105,122,101,49,55,51,41,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,21),40,99,104,97,114,45,115,101,116,45,115,105,122,101,32,99,115,49,54,57,41,0,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,18),40,108,112,32,105,49,56,52,32,99,111,117,110,116,49,56,53,41,0,0,0,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,32),40,99,104,97,114,45,115,101,116,45,99,111,117,110,116,32,112,114,101,100,49,56,48,32,99,115,101,116,49,56,49,41}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,11),40,103,50,48,53,32,99,50,49,52,41,0,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,48,52,32,103,50,49,49,50,49,54,41,0,0,0,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,45),40,37,115,101,116,45,99,104,97,114,45,115,101,116,32,115,101,116,49,57,55,32,112,114,111,99,49,57,56,32,99,115,49,57,57,32,99,104,97,114,115,50,48,48,41,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,11),40,103,50,51,48,32,99,50,51,57,41,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,50,57,32,103,50,51,54,50,52,49,41,0,0,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,46),40,37,115,101,116,45,99,104,97,114,45,115,101,116,33,32,115,101,116,50,50,50,32,112,114,111,99,50,50,51,32,99,115,50,50,52,32,99,104,97,114,115,50,50,53,41,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,17),40,97,49,57,51,51,32,115,50,52,57,32,105,50,53,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,34),40,99,104,97,114,45,115,101,116,45,97,100,106,111,105,110,32,99,115,50,52,55,32,46,32,99,104,97,114,115,50,52,56,41,0,0,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,17),40,97,49,57,52,53,32,115,50,53,52,32,105,50,53,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,35),40,99,104,97,114,45,115,101,116,45,97,100,106,111,105,110,33,32,99,115,50,53,50,32,46,32,99,104,97,114,115,50,53,51,41,0,0,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,17),40,97,49,57,53,55,32,115,50,53,57,32,105,50,54,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,34),40,99,104,97,114,45,115,101,116,45,100,101,108,101,116,101,32,99,115,50,53,55,32,46,32,99,104,97,114,115,50,53,56,41,0,0,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,17),40,97,49,57,54,57,32,115,50,54,52,32,105,50,54,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,35),40,99,104,97,114,45,115,101,116,45,100,101,108,101,116,101,33,32,99,115,50,54,50,32,46,32,99,104,97,114,115,50,54,51,41,0,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,25),40,99,104,97,114,45,115,101,116,45,99,117,114,115,111,114,32,99,115,101,116,50,54,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,28),40,101,110,100,45,111,102,45,99,104,97,114,45,115,101,116,63,32,99,117,114,115,111,114,50,54,57,41,0,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,32),40,99,104,97,114,45,115,101,116,45,114,101,102,32,99,115,101,116,50,55,49,32,99,117,114,115,111,114,50,55,50,41}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,40),40,99,104,97,114,45,115,101,116,45,99,117,114,115,111,114,45,110,101,120,116,32,99,115,101,116,50,55,52,32,99,117,114,115,111,114,50,55,53,41}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,49),40,37,99,104,97,114,45,115,101,116,45,99,117,114,115,111,114,45,110,101,120,116,32,99,115,101,116,50,55,56,32,99,117,114,115,111,114,50,55,57,32,112,114,111,99,50,56,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,51,48,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,33),40,99,104,97,114,45,115,101,116,45,102,111,114,45,101,97,99,104,32,112,114,111,99,50,57,56,32,99,115,50,57,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,51,50,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,28),40,99,104,97,114,45,115,101,116,45,109,97,112,32,112,114,111,99,51,49,56,32,99,115,51,49,57,41,0,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,16),40,108,112,32,105,51,52,57,32,97,110,115,51,53,48,41}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,37),40,99,104,97,114,45,115,101,116,45,102,111,108,100,32,107,111,110,115,51,52,52,32,107,110,105,108,51,52,53,32,99,115,51,52,54,41,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,51,54,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,30),40,99,104,97,114,45,115,101,116,45,101,118,101,114,121,32,112,114,101,100,51,53,55,32,99,115,51,53,56,41,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,51,55,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,28),40,99,104,97,114,45,115,101,116,45,97,110,121,32,112,114,101,100,51,55,53,32,99,115,51,55,54,41,0,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,12),40,108,112,32,115,101,101,100,52,48,50,41,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,47),40,37,99,104,97,114,45,115,101,116,45,117,110,102,111,108,100,33,32,112,51,57,54,32,102,51,57,55,32,103,51,57,56,32,115,51,57,57,32,115,101,101,100,52,48,48,41,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,56),40,99,104,97,114,45,115,101,116,45,117,110,102,111,108,100,32,112,52,49,52,32,102,52,49,53,32,103,52,49,54,32,115,101,101,100,52,49,55,32,46,32,109,97,121,98,101,45,98,97,115,101,52,49,56,41}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,54),40,99,104,97,114,45,115,101,116,45,117,110,102,111,108,100,33,32,112,52,50,50,32,102,52,50,51,32,103,52,50,52,32,115,101,101,100,52,50,53,32,98,97,115,101,45,99,115,101,116,52,50,54,41,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,6),40,103,52,51,52,41,0,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,18),40,102,111,114,45,101,97,99,104,45,108,111,111,112,52,51,51,41,0,0,0,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,32),40,37,108,105,115,116,45,62,99,104,97,114,45,115,101,116,33,32,99,104,97,114,115,52,50,57,32,115,52,51,48,41}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,21),40,99,104,97,114,45,115,101,116,32,46,32,99,104,97,114,115,52,53,52,41,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,41),40,108,105,115,116,45,62,99,104,97,114,45,115,101,116,32,99,104,97,114,115,52,53,56,32,46,32,109,97,121,98,101,45,98,97,115,101,52,53,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,37),40,108,105,115,116,45,62,99,104,97,114,45,115,101,116,33,32,99,104,97,114,115,52,54,51,32,98,97,115,101,45,99,115,52,54,52,41,0,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,16),40,108,112,32,105,52,55,48,32,97,110,115,52,55,49,41}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,22),40,99,104,97,114,45,115,101,116,45,62,108,105,115,116,32,99,115,52,54,55,41,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,52,56,49,41,0,0,0,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,41),40,37,115,116,114,105,110,103,45,62,99,104,97,114,45,115,101,116,33,32,115,116,114,52,55,56,32,98,115,52,55,57,32,112,114,111,99,52,56,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,41),40,115,116,114,105,110,103,45,62,99,104,97,114,45,115,101,116,32,115,116,114,52,57,50,32,46,32,109,97,121,98,101,45,98,97,115,101,52,57,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,37),40,115,116,114,105,110,103,45,62,99,104,97,114,45,115,101,116,33,32,115,116,114,52,57,55,32,98,97,115,101,45,99,115,52,57,56,41,0,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,9),40,108,112,32,106,53,48,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,24),40,99,104,97,114,45,115,101,116,45,62,115,116,114,105,110,103,32,99,115,53,48,49,41}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,65),40,37,117,99,115,45,114,97,110,103,101,45,62,99,104,97,114,45,115,101,116,33,32,108,111,119,101,114,53,49,53,32,117,112,112,101,114,53,49,54,32,101,114,114,111,114,63,53,49,55,32,98,115,53,49,56,32,112,114,111,99,53,49,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,49),40,117,99,115,45,114,97,110,103,101,45,62,99,104,97,114,45,115,101,116,32,108,111,119,101,114,53,51,56,32,117,112,112,101,114,53,51,57,32,46,32,114,101,115,116,53,52,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,61),40,117,99,115,45,114,97,110,103,101,45,62,99,104,97,114,45,115,101,116,33,32,108,111,119,101,114,53,53,51,32,117,112,112,101,114,53,53,52,32,101,114,114,111,114,63,53,53,53,32,98,97,115,101,45,99,115,53,53,54,41,0,0,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,53,54,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,39),40,37,99,104,97,114,45,115,101,116,45,102,105,108,116,101,114,33,32,112,114,101,100,53,53,57,32,100,115,53,54,48,32,98,115,53,54,49,41,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,56),40,99,104,97,114,45,115,101,116,45,102,105,108,116,101,114,32,112,114,101,100,105,99,97,116,101,53,56,53,32,100,111,109,97,105,110,53,56,54,32,46,32,109,97,121,98,101,45,98,97,115,101,53,56,55,41}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,52),40,99,104,97,114,45,115,101,116,45,102,105,108,116,101,114,33,32,112,114,101,100,105,99,97,116,101,53,57,49,32,100,111,109,97,105,110,53,57,50,32,98,97,115,101,45,99,115,53,57,51,41,0,0,0,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,17),40,45,62,99,104,97,114,45,115,101,116,32,120,53,57,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,54,48,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,24),40,37,115,116,114,105,110,103,45,105,116,101,114,32,112,54,48,50,32,115,54,48,51,41}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,54,51,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,14),40,103,54,50,48,32,99,115,101,116,54,50,57,41,0,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,49,57,32,103,54,50,54,54,52,52,41,0,0,0,0,0,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,47),40,37,99,104,97,114,45,115,101,116,45,97,108,103,101,98,114,97,32,115,54,49,51,32,99,115,101,116,115,54,49,52,32,111,112,54,49,53,32,112,114,111,99,54,49,54,41,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,17),40,97,51,48,53,57,32,105,54,53,50,32,118,54,53,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,27),40,99,104,97,114,45,115,101,116,45,99,111,109,112,108,101,109,101,110,116,32,99,115,54,52,57,41,0,0,0,0,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,17),40,97,51,48,57,51,32,105,54,54,56,32,118,54,54,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,30),40,99,104,97,114,45,115,101,116,45,99,111,109,112,108,101,109,101,110,116,33,32,99,115,101,116,54,54,54,41,0,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,22),40,97,51,49,50,55,32,115,54,56,52,32,105,54,56,53,32,118,54,56,54,41,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,37),40,99,104,97,114,45,115,101,116,45,117,110,105,111,110,33,32,99,115,101,116,49,54,56,50,32,46,32,99,115,101,116,115,54,56,51,41,0,0,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,22),40,97,51,49,54,56,32,115,54,57,53,32,105,54,57,54,32,118,54,57,55,41,0,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,27),40,99,104,97,114,45,115,101,116,45,117,110,105,111,110,32,46,32,99,115,101,116,115,54,57,51,41,0,0,0,0,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,22),40,97,51,50,48,56,32,115,55,48,54,32,105,55,48,55,32,118,55,48,56,41,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,44),40,99,104,97,114,45,115,101,116,45,105,110,116,101,114,115,101,99,116,105,111,110,33,32,99,115,101,116,49,55,48,52,32,46,32,99,115,101,116,115,55,48,53,41,0,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,22),40,97,51,50,52,53,32,115,55,49,55,32,105,55,49,56,32,118,55,49,57,41,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,34),40,99,104,97,114,45,115,101,116,45,105,110,116,101,114,115,101,99,116,105,111,110,32,46,32,99,115,101,116,115,55,49,53,41,0,0,0,0,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,22),40,97,51,50,56,49,32,115,55,50,56,32,105,55,50,57,32,118,55,51,48,41,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,42),40,99,104,97,114,45,115,101,116,45,100,105,102,102,101,114,101,110,99,101,33,32,99,115,101,116,49,55,50,54,32,46,32,99,115,101,116,115,55,50,55,41,0,0,0,0,0,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,22),40,97,51,51,50,48,32,115,55,52,48,32,105,55,52,49,32,118,55,52,50,41,0,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,39),40,99,104,97,114,45,115,101,116,45,100,105,102,102,101,114,101,110,99,101,32,99,115,49,55,51,55,32,46,32,99,115,101,116,115,55,51,56,41,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,22),40,97,51,51,53,56,32,115,55,53,49,32,105,55,53,50,32,118,55,53,51,41,0,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,35),40,99,104,97,114,45,115,101,116,45,120,111,114,33,32,99,115,101,116,49,55,52,57,32,46,32,99,115,101,116,115,55,53,48,41,0,0,0,0,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,22),40,97,51,52,50,48,32,115,55,54,55,32,105,55,54,56,32,118,55,54,57,41,0,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,25),40,99,104,97,114,45,115,101,116,45,120,111,114,32,46,32,99,115,101,116,115,55,54,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,17),40,97,51,52,55,57,32,105,55,57,56,32,118,55,57,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,12),40,103,55,56,56,32,99,115,55,57,55,41,0,0,0,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,55,56,55,32,103,55,57,52,56,50,50,41,0,0,0,0,0,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,62),40,37,99,104,97,114,45,115,101,116,45,100,105,102,102,43,105,110,116,101,114,115,101,99,116,105,111,110,33,32,100,105,102,102,55,56,49,32,105,110,116,55,56,50,32,99,115,101,116,115,55,56,51,32,112,114,111,99,55,56,52,41,0,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,17),40,97,51,53,56,55,32,105,56,51,50,32,118,56,51,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,54),40,99,104,97,114,45,115,101,116,45,100,105,102,102,43,105,110,116,101,114,115,101,99,116,105,111,110,33,32,99,115,49,56,50,55,32,99,115,50,56,50,56,32,46,32,99,115,101,116,115,56,50,57,41,0,0}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,46),40,99,104,97,114,45,115,101,116,45,100,105,102,102,43,105,110,116,101,114,115,101,99,116,105,111,110,32,99,115,49,56,53,51,32,46,32,99,115,101,116,115,56,53,52,41,0,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,57,54,50,32,103,57,55,52,57,56,48,41,0,0,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,57,51,52,32,103,57,52,54,57,53,50,41,0,0,0}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,57,48,54,32,103,57,49,56,57,50,52,41,0,0,0}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,56,55,55,32,103,56,56,57,56,57,53,41,0,0,0}; static C_char C_TLS li115[] 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_3662) static void C_ccall f_3662(C_word c,C_word *av) 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_1481) static void C_ccall f_1481(C_word c,C_word *av) C_noret; C_noret_decl(f_2130) static void C_fcall f_2130(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1501) static void C_fcall f_1501(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_1339) static void C_fcall f_1339(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3676) static void C_ccall f_3676(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_3686) static void C_ccall f_3686(C_word c,C_word *av) 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_3680) static void C_ccall f_3680(C_word c,C_word *av) C_noret; C_noret_decl(f_1526) static void C_fcall f_1526(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2196) static void C_ccall f_2196(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_3696) static void C_ccall f_3696(C_word c,C_word *av) C_noret; C_noret_decl(f_3693) static void C_ccall f_3693(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_1367) static void C_ccall f_1367(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_2798) static void C_ccall f_2798(C_word c,C_word *av) C_noret; C_noret_decl(f_2794) static void C_ccall f_2794(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_2188) static void C_ccall f_2188(C_word c,C_word *av) C_noret; C_noret_decl(f_1383) static void C_fcall f_1383(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1389) static void C_fcall f_1389(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1317) static void C_ccall f_1317(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_1311) static void C_ccall f_1311(C_word c,C_word *av) 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_1323) static void C_ccall f_1323(C_word c,C_word *av) C_noret; C_noret_decl(f_2431) static C_word C_fcall f_2431(C_word t0,C_word t1); C_noret_decl(f_1889) static void C_fcall f_1889(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1888) static void C_ccall f_1888(C_word c,C_word *av) C_noret; C_noret_decl(f_1882) static void C_ccall f_1882(C_word c,C_word *av) C_noret; C_noret_decl(f_1884) static void C_fcall f_1884(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_1857) static void C_fcall f_1857(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2496) static void C_ccall f_2496(C_word c,C_word *av) C_noret; C_noret_decl(f_2311) static void C_fcall f_2311(C_word t0,C_word t1,C_word t2) 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_2896) static void C_ccall f_2896(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_1867) static void C_ccall f_1867(C_word c,C_word *av) C_noret; C_noret_decl(f_3465) static void C_ccall f_3465(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_2475) static void C_ccall f_2475(C_word c,C_word *av) C_noret; C_noret_decl(f_3474) static void C_fcall f_3474(C_word t0,C_word t1,C_word t2) 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_1416) static void C_ccall f_1416(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_2482) static void C_ccall f_2482(C_word c,C_word *av) C_noret; C_noret_decl(f_1424) static void C_ccall f_1424(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_1428) static void C_ccall f_1428(C_word c,C_word *av) C_noret; C_noret_decl(f_2888) static void C_ccall f_2888(C_word c,C_word *av) C_noret; C_noret_decl(f_2886) static void C_ccall f_2886(C_word c,C_word *av) C_noret; C_noret_decl(f_1406) static void C_ccall f_1406(C_word c,C_word *av) C_noret; C_noret_decl(f_1775) static void C_fcall f_1775(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3913) static void C_ccall f_3913(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_1796) static void C_ccall f_1796(C_word c,C_word *av) C_noret; C_noret_decl(f_2576) static C_word C_fcall f_2576(C_word t0,C_word t1); C_noret_decl(f_1766) static void C_ccall f_1766(C_word c,C_word *av) C_noret; C_noret_decl(f_2706) static void C_ccall f_2706(C_word c,C_word *av) C_noret; C_noret_decl(f_2715) static C_word C_fcall f_2715(C_word t0,C_word t1); C_noret_decl(f_3762) static void C_ccall f_3762(C_word c,C_word *av) C_noret; C_noret_decl(f_3766) static void C_ccall f_3766(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_3777) static void C_ccall f_3777(C_word c,C_word *av) C_noret; C_noret_decl(f_3779) static void C_fcall f_3779(C_word t0,C_word t1,C_word t2) 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_3770) static void C_ccall f_3770(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_3641) static void C_ccall f_3641(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_3126) static void C_ccall f_3126(C_word c,C_word *av) C_noret; C_noret_decl(f_3128) static void C_ccall f_3128(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_3742) static void C_ccall f_3742(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_2774) static void C_ccall f_2774(C_word c,C_word *av) C_noret; C_noret_decl(f_3658) static void C_ccall f_3658(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_2365) static void C_fcall f_2365(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_3854) static void C_fcall f_3854(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2746) static void C_fcall f_2746(C_word t0,C_word t1) 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_3758) static void C_ccall f_3758(C_word c,C_word *av) C_noret; C_noret_decl(f_3750) static void C_ccall f_3750(C_word c,C_word *av) C_noret; C_noret_decl(f_1905) static void C_fcall f_1905(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1915) static void C_ccall f_1915(C_word c,C_word *av) C_noret; C_noret_decl(f_2830) static void C_ccall f_2830(C_word c,C_word *av) 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_1928) static void C_ccall f_1928(C_word c,C_word *av) C_noret; C_noret_decl(f_1656) static C_word C_fcall f_1656(C_word t0,C_word t1); C_noret_decl(f_3845) static void C_ccall f_3845(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_2810) static void C_fcall f_2810(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2696) static void C_fcall f_2696(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_1838) static void C_fcall f_1838(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1837) static void C_ccall f_1837(C_word c,C_word *av) C_noret; C_noret_decl(f_1833) static void C_fcall f_1833(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_2371) static void C_fcall f_2371(C_word t0,C_word t1,C_word t2) 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_2059) static void C_ccall f_2059(C_word c,C_word *av) C_noret; C_noret_decl(f_2876) static void C_ccall f_2876(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_2872) static void C_ccall f_2872(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_3401) static void C_ccall f_3401(C_word c,C_word *av) C_noret; C_noret_decl(f_2804) static void C_fcall f_2804(C_word t0,C_word t1,C_word t2,C_word t3) 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_3411) static void C_ccall f_3411(C_word c,C_word *av) C_noret; C_noret_decl(f_3414) static void C_ccall f_3414(C_word c,C_word *av) C_noret; C_noret_decl(f_3888) static void C_fcall f_3888(C_word t0,C_word t1,C_word t2) 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_1982) static void C_ccall f_1982(C_word c,C_word *av) C_noret; C_noret_decl(f_1988) static void C_ccall f_1988(C_word c,C_word *av) C_noret; C_noret_decl(f_1994) static void C_ccall f_1994(C_word c,C_word *av) C_noret; C_noret_decl(f_3159) static void C_ccall f_3159(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_2511) static void C_ccall f_2511(C_word c,C_word *av) C_noret; C_noret_decl(f_1718) static void C_ccall f_1718(C_word c,C_word *av) C_noret; C_noret_decl(f_3169) static void C_ccall f_3169(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_word t2,C_word t3) 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_2393) static void C_ccall f_2393(C_word c,C_word *av) C_noret; C_noret_decl(f_1940) static void C_ccall f_1940(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_2900) static void C_ccall f_2900(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_3149) static void C_ccall f_3149(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_1733) static C_word C_fcall f_1733(C_word t0,C_word t1,C_word t2); C_noret_decl(f_2501) static void C_ccall f_2501(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_3557) static void C_ccall f_3557(C_word c,C_word *av) C_noret; C_noret_decl(f_2909) static void C_ccall f_2909(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_1958) static void C_ccall f_1958(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_3199) static void C_ccall f_3199(C_word c,C_word *av) 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_2563) static void C_fcall f_2563(C_word t0,C_word t1,C_word t2,C_word t3) 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_2932) static void C_fcall f_2932(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1976) static void C_ccall f_1976(C_word c,C_word *av) C_noret; C_noret_decl(f_1970) static void C_ccall f_1970(C_word c,C_word *av) C_noret; C_noret_decl(f_1728) static void C_ccall f_1728(C_word c,C_word *av) C_noret; C_noret_decl(f_1724) static void C_ccall f_1724(C_word c,C_word *av) C_noret; C_noret_decl(f_2942) static void C_fcall f_2942(C_word t0,C_word t1,C_word t2) 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_3246) static void C_ccall f_3246(C_word c,C_word *av) C_noret; C_noret_decl(f_3820) static void C_fcall f_3820(C_word t0,C_word t1,C_word t2) 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_2633) static void C_ccall f_2633(C_word c,C_word *av) C_noret; C_noret_decl(f_2639) static void C_ccall f_2639(C_word c,C_word *av) C_noret; C_noret_decl(f_3265) static void C_ccall f_3265(C_word c,C_word *av) 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_2617) static void C_ccall f_2617(C_word c,C_word *av) C_noret; C_noret_decl(f_2007) static void C_ccall f_2007(C_word c,C_word *av) C_noret; C_noret_decl(f_2003) static void C_fcall f_2003(C_word t0,C_word t1,C_word t2,C_word t3) 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_2223) static void C_ccall f_2223(C_word c,C_word *av) C_noret; C_noret_decl(f_3282) static void C_ccall f_3282(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_1606) static void C_fcall f_1606(C_word t0,C_word t1,C_word t2,C_word t3) 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_2205) static void C_fcall f_2205(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2647) static C_word C_fcall f_2647(C_word t0,C_word t1,C_word t2); C_noret_decl(f_2642) static void C_ccall f_2642(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_3236) static void C_ccall f_3236(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_3729) static void C_ccall f_3729(C_word c,C_word *av) C_noret; C_noret_decl(f_3726) static void C_ccall f_3726(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_2620) static void C_ccall f_2620(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_2994) static void C_ccall f_2994(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_3321) static void C_ccall f_3321(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_3701) static void C_ccall f_3701(C_word c,C_word *av) C_noret; C_noret_decl(f_3708) static void C_ccall f_3708(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_3574) static void C_ccall f_3574(C_word c,C_word *av) C_noret; C_noret_decl(f_3577) static void C_ccall f_3577(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_3570) static void C_ccall f_3570(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_2119) static void C_ccall f_2119(C_word c,C_word *av) C_noret; C_noret_decl(f_3712) static void C_ccall f_3712(C_word c,C_word *av) C_noret; C_noret_decl(f_3303) static void C_ccall f_3303(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_3547) static void C_fcall f_3547(C_word t0,C_word t1,C_word t2) 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_2125) static void C_ccall f_2125(C_word c,C_word *av) C_noret; C_noret_decl(f_3313) static void C_ccall f_3313(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_2064) static void C_fcall f_2064(C_word t0,C_word t1,C_word t2) 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_3583) static void C_ccall f_3583(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_2012) static C_word C_fcall f_2012(C_word t0,C_word t1); C_noret_decl(f_1585) static void C_ccall f_1585(C_word c,C_word *av) C_noret; C_noret_decl(f_3052) static void C_ccall f_3052(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_1598) static void C_ccall f_1598(C_word c,C_word *av) C_noret; C_noret_decl(f_3022) static void C_fcall f_3022(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1592) static void C_fcall f_1592(C_word t0,C_word t1) C_noret; C_noret_decl(f_2411) static void C_ccall f_2411(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_2419) static void C_ccall f_2419(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_2975) static void C_fcall f_2975(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2973) static void C_fcall f_2973(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3272) static void C_ccall f_3272(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_2423) static void C_ccall f_2423(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_2429) static void C_fcall f_2429(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3045) static void C_ccall f_3045(C_word c,C_word *av) C_noret; C_noret_decl(f_2984) static void C_fcall f_2984(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_3203) static void C_ccall f_3203(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_3209) static void C_ccall f_3209(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_3092) static void C_ccall f_3092(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_2401) static void C_ccall f_2401(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_2405) static void C_ccall f_2405(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_3226) static void C_ccall f_3226(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_3349) static void C_ccall f_3349(C_word c,C_word *av) C_noret; C_noret_decl(f_2257) static void C_fcall f_2257(C_word t0,C_word t1,C_word t2) 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_3344) static void C_ccall f_3344(C_word c,C_word *av) 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_3085) static void C_ccall f_3085(C_word c,C_word *av) 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_3357) static void C_ccall f_3357(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_2248) static void C_ccall f_2248(C_word c,C_word *av) C_noret; C_noret_decl(f_1430) static void C_ccall f_1430(C_word c,C_word *av) C_noret; C_noret_decl(f_1449) static void C_fcall f_1449(C_word t0,C_word t1,C_word t2) 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_1297) static void C_ccall f_1297(C_word c,C_word *av) C_noret; C_noret_decl(f_1299) static void C_ccall f_1299(C_word c,C_word *av) C_noret; C_noret_decl(f_1499) static void C_ccall f_1499(C_word c,C_word *av) C_noret; C_noret_decl(f_2286) static void C_ccall f_2286(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(C_srfi_2d14_toplevel) C_externexport void C_ccall C_srfi_2d14_toplevel(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(trf_2130) static void C_ccall trf_2130(C_word c,C_word *av) C_noret; static void C_ccall trf_2130(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2130(t0,t1,t2);} C_noret_decl(trf_1501) static void C_ccall trf_1501(C_word c,C_word *av) C_noret; static void C_ccall trf_1501(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1501(t0,t1,t2,t3);} C_noret_decl(trf_1339) static void C_ccall trf_1339(C_word c,C_word *av) C_noret; static void C_ccall trf_1339(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1339(t0,t1,t2);} C_noret_decl(trf_1526) static void C_ccall trf_1526(C_word c,C_word *av) C_noret; static void C_ccall trf_1526(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1526(t0,t1,t2);} C_noret_decl(trf_1383) static void C_ccall trf_1383(C_word c,C_word *av) C_noret; static void C_ccall trf_1383(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1383(t0,t1,t2);} C_noret_decl(trf_1389) static void C_ccall trf_1389(C_word c,C_word *av) C_noret; static void C_ccall trf_1389(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1389(t0,t1,t2);} C_noret_decl(trf_1889) static void C_ccall trf_1889(C_word c,C_word *av) C_noret; static void C_ccall trf_1889(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1889(t0,t1,t2);} C_noret_decl(trf_1884) static void C_ccall trf_1884(C_word c,C_word *av) C_noret; static void C_ccall trf_1884(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_1884(t0,t1,t2,t3,t4);} C_noret_decl(trf_1857) static void C_ccall trf_1857(C_word c,C_word *av) C_noret; static void C_ccall trf_1857(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1857(t0,t1,t2);} C_noret_decl(trf_2311) static void C_ccall trf_2311(C_word c,C_word *av) C_noret; static void C_ccall trf_2311(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2311(t0,t1,t2);} C_noret_decl(trf_3474) static void C_ccall trf_3474(C_word c,C_word *av) C_noret; static void C_ccall trf_3474(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3474(t0,t1,t2);} 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_1775) static void C_ccall trf_1775(C_word c,C_word *av) C_noret; static void C_ccall trf_1775(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1775(t0,t1,t2,t3);} C_noret_decl(trf_3779) static void C_ccall trf_3779(C_word c,C_word *av) C_noret; static void C_ccall trf_3779(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3779(t0,t1,t2);} 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[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_2365(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_3854) static void C_ccall trf_3854(C_word c,C_word *av) C_noret; static void C_ccall trf_3854(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3854(t0,t1,t2);} C_noret_decl(trf_2746) static void C_ccall trf_2746(C_word c,C_word *av) C_noret; static void C_ccall trf_2746(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2746(t0,t1);} C_noret_decl(trf_1905) static void C_ccall trf_1905(C_word c,C_word *av) C_noret; static void C_ccall trf_1905(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1905(t0,t1,t2);} C_noret_decl(trf_2810) static void C_ccall trf_2810(C_word c,C_word *av) C_noret; static void C_ccall trf_2810(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2810(t0,t1,t2);} C_noret_decl(trf_2696) static void C_ccall trf_2696(C_word c,C_word *av) C_noret; static void C_ccall trf_2696(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_2696(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_1838) static void C_ccall trf_1838(C_word c,C_word *av) C_noret; static void C_ccall trf_1838(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1838(t0,t1,t2);} C_noret_decl(trf_1833) static void C_ccall trf_1833(C_word c,C_word *av) C_noret; static void C_ccall trf_1833(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_1833(t0,t1,t2,t3,t4);} C_noret_decl(trf_2371) static void C_ccall trf_2371(C_word c,C_word *av) C_noret; static void C_ccall trf_2371(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2371(t0,t1,t2);} C_noret_decl(trf_2804) static void C_ccall trf_2804(C_word c,C_word *av) C_noret; static void C_ccall trf_2804(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2804(t0,t1,t2,t3);} C_noret_decl(trf_3888) static void C_ccall trf_3888(C_word c,C_word *av) C_noret; static void C_ccall trf_3888(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3888(t0,t1,t2);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2520(t0,t1,t2,t3);} C_noret_decl(trf_2563) static void C_ccall trf_2563(C_word c,C_word *av) C_noret; static void C_ccall trf_2563(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2563(t0,t1,t2,t3);} C_noret_decl(trf_2932) static void C_ccall trf_2932(C_word c,C_word *av) C_noret; static void C_ccall trf_2932(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2932(t0,t1,t2);} C_noret_decl(trf_2942) static void C_ccall trf_2942(C_word c,C_word *av) C_noret; static void C_ccall trf_2942(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2942(t0,t1,t2);} C_noret_decl(trf_3820) static void C_ccall trf_3820(C_word c,C_word *av) C_noret; static void C_ccall trf_3820(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3820(t0,t1,t2);} C_noret_decl(trf_2003) static void C_ccall trf_2003(C_word c,C_word *av) C_noret; static void C_ccall trf_2003(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2003(t0,t1,t2,t3);} C_noret_decl(trf_1606) static void C_ccall trf_1606(C_word c,C_word *av) C_noret; static void C_ccall trf_1606(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1606(t0,t1,t2,t3);} C_noret_decl(trf_2205) static void C_ccall trf_2205(C_word c,C_word *av) C_noret; static void C_ccall trf_2205(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2205(t0,t1,t2,t3);} C_noret_decl(trf_3547) static void C_ccall trf_3547(C_word c,C_word *av) C_noret; static void C_ccall trf_3547(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3547(t0,t1,t2);} C_noret_decl(trf_2064) static void C_ccall trf_2064(C_word c,C_word *av) C_noret; static void C_ccall trf_2064(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2064(t0,t1,t2);} C_noret_decl(trf_3022) static void C_ccall trf_3022(C_word c,C_word *av) C_noret; static void C_ccall trf_3022(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3022(t0,t1,t2);} C_noret_decl(trf_1592) static void C_ccall trf_1592(C_word c,C_word *av) C_noret; static void C_ccall trf_1592(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1592(t0,t1);} C_noret_decl(trf_2975) static void C_ccall trf_2975(C_word c,C_word *av) C_noret; static void C_ccall trf_2975(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2975(t0,t1,t2);} C_noret_decl(trf_2973) static void C_ccall trf_2973(C_word c,C_word *av) C_noret; static void C_ccall trf_2973(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_2973(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_2429(t0,t1,t2);} C_noret_decl(trf_2984) static void C_ccall trf_2984(C_word c,C_word *av) C_noret; static void C_ccall trf_2984(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2984(t0,t1,t2);} C_noret_decl(trf_2257) static void C_ccall trf_2257(C_word c,C_word *av) C_noret; static void C_ccall trf_2257(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2257(t0,t1,t2);} C_noret_decl(trf_1449) static void C_ccall trf_1449(C_word c,C_word *av) C_noret; static void C_ccall trf_1449(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1449(t0,t1,t2);} /* k3660 in k3656 in k3649 in k3646 in k3643 in char-set-diff+intersection in k1295 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3662,2,av);} /* srfi-14.scm:619: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3666 in char-set-diff+intersection in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3668,2,av);} /* srfi-14.scm:616: string-copy */ t2=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* char-set<= in k1295 */ static void C_ccall f_1481(C_word c,C_word *av){ C_word tmp; 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_1481,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; t3=C_i_nullp(t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1499,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:173: %char-set:s/check */ f_1383(t7,t4,lf[15]);}} /* lp in k2120 in k2117 in char-set-map in k1295 */ static void C_fcall f_2130(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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_2130,3,t0,t1,t2);} a=C_alloc(6); t3=t2; if(C_truep(C_fixnum_greater_or_equal_p(t3,C_fix(0)))){ t4=t2; t5=C_i_string_ref(((C_word*)t0)[2],t4); t6=C_fix(C_character_code(t5)); t7=C_eqp(t6,C_fix(0)); if(C_truep(C_i_not(t7))){ t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2188,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); t9=t2; t10=C_make_character(C_unfix(t9)); /* srfi-14.scm:306: proc */ t11=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t11; av2[1]=t8; av2[2]=t10; ((C_proc)C_fast_retrieve_proc(t11))(3,av2);}} else{ t8=C_fixnum_difference(t2,C_fix(1)); /* srfi-14.scm:307: lp */ t12=t1; t13=t8; t1=t12; t2=t13; goto loop;}} 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);}}} /* lp in k1497 in char-set<= in k1295 */ static void C_fcall f_1501(C_word t0,C_word t1,C_word 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_1501,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(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_1511,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=C_i_car(t3); /* srfi-14.scm:175: %char-set:s/check */ f_1383(t6,t7,lf[15]);}} /* k3670 in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3672,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[64]+1 /* (set! char-set:empty ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3676,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:631: char-set-complement */ t4=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[64]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* %default-base in k1295 */ static void C_fcall f_1339(C_word t1,C_word 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_1339,3,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_car(t4); t6=t2; t7=C_u_i_cdr(t6); if(C_truep(C_i_nullp(t7))){ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1360,a[2]=t1,a[3]=t5,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* srfi-14.scm:114: char-set? */ t9=*((C_word*)lf[4]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ /* srfi-14.scm:116: ##sys#error */ t8=*((C_word*)lf[7]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t1; av2[2]=lf[9]; av2[3]=t3; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} else{ /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[10]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[10]+1); av2[1]=t1; av2[2]=C_fix(256); av2[3]=C_make_character(0); tp(4,av2);}}} /* k3674 in k3670 in k1295 */ static void C_ccall f_3676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3676,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[67]+1 /* (set! char-set:full ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3680,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:634: ucs-range->char-set */ t4=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_fix(97); av2[3]=C_fix(123); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k1509 in lp in k1497 in char-set<= in k1295 */ 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 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_1511,2,av);} a=C_alloc(10); t2=t1; t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_eqp(((C_word*)t0)[3],t2); if(C_truep(t5)){ /* srfi-14.scm:177: lp */ t6=((C_word*)((C_word*)t0)[4])[1]; f_1501(t6,((C_word*)t0)[5],t2,t4);} 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|7,a[1]=(C_word)f_1526,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t7,a[7]=((C_word)li10),tmp=(C_word)a,a+=8,tmp)); t9=((C_word*)t7)[1]; f_1526(t9,((C_word*)t0)[5],C_fix(255));}} /* k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ static void C_ccall f_3686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3686,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3689,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:637: char-set-adjoin! */ t3=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=C_make_character(181); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3681 in k3678 in k3674 in k3670 in k1295 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3683,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3686,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:636: ucs-range->char-set! */ t3=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_fix(248); av2[3]=C_fix(256); av2[4]=C_SCHEME_TRUE; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3678 in k3674 in k3670 in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3680,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3683,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:635: ucs-range->char-set! */ t3=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_fix(223); av2[3]=C_fix(247); av2[4]=C_SCHEME_TRUE; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* lp2 in k1509 in lp in k1497 in char-set<= in k1295 */ static void C_fcall f_1526(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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(0,0,3)))){ C_save_and_reclaim_args((void *)trf_1526,3,t0,t1,t2);} t3=t2; if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ /* srfi-14.scm:179: lp */ t4=((C_word*)((C_word*)t0)[2])[1]; f_1501(t4,t1,((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t4=((C_word*)t0)[5]; t5=t2; t6=C_i_string_ref(t4,t5); t7=C_fix(C_character_code(t6)); t8=t2; t9=C_i_string_ref(((C_word*)t0)[3],t8); t10=C_fix(C_character_code(t9)); if(C_truep(C_fixnum_less_or_equal_p(t7,t10))){ t11=C_fixnum_difference(t2,C_fix(1)); /* srfi-14.scm:181: lp2 */ t13=t1; t14=t11; t1=t13; t2=t14; goto loop;} else{ t11=t1;{ C_word av2[2]; av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}} /* char-set-fold in k1295 */ static void C_ccall f_2196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,3)))){ C_save_and_reclaim((void *)f_2196,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2200,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* srfi-14.scm:312: %char-set:s/check */ f_1383(t5,t4,lf[35]);} /* k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3689,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[76]+1 /* (set! char-set:lower-case ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3693,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:640: ucs-range->char-set */ t4=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_fix(65); av2[3]=C_fix(91); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3696,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[77]+1 /* (set! char-set:upper-case ...) */,t1); t3=C_mutate2((C_word*)lf[78]+1 /* (set! char-set:title-case ...) */,*((C_word*)lf[64]+1)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3701,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:648: char-set-union */ t5=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[77]+1); av2[3]=*((C_word*)lf[76]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ static void C_ccall f_3693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3693,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3696,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3932,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:643: ucs-range->char-set! */ t4=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=C_fix(192); av2[3]=C_fix(215); av2[4]=C_SCHEME_TRUE; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k2319 in lp in k2304 in char-set-any in k1295 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_2321,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); /* srfi-14.scm:333: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_2311(t3,((C_word*)t0)[2],t2);}} /* k1365 in k1358 in %default-base in k1295 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1367,2,av);} t2=((C_word*)t0)[2]; t3=C_i_string_length(t1); /* srfi-14.scm:102: substring */ t4=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t1; av2[3]=C_fix(0); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k1358 in %default-base in k1295 */ 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(3,c,4)))){ C_save_and_reclaim((void *)f_1360,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1367,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:114: char-set:s */ t3=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ /* srfi-14.scm:115: ##sys#error */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[8]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k2796 in ucs-range->char-set! in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2798,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ucs-range->char-set! in k1295 */ static void C_ccall f_2794(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_2794,6,av);} a=C_alloc(10); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2798,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2802,a[2]=t6,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* srfi-14.scm:443: %char-set:s/check */ f_1383(t7,t5,lf[52]);} /* char-set-any in k1295 */ 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=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_2302,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2306,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:329: %char-set:s/check */ f_1383(t4,t3,lf[37]);} /* k2304 in char-set-any in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_2306,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_2311,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word)li49),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_2311(t6,((C_word*)t0)[3],C_fix(255));} /* k2186 in lp in k2120 in k2117 in char-set-map in k1295 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2188,2,av);} t2=C_fix(C_character_code(t1)); t3=C_i_string_set(((C_word*)t0)[2],t2,C_make_character(1)); t4=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); /* srfi-14.scm:307: lp */ t5=((C_word*)((C_word*)t0)[4])[1]; f_2130(t5,((C_word*)t0)[5],t4);} /* %char-set:s/check in k1295 */ static void C_fcall f_1383(C_word 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_1383,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_1389,a[2]=t5,a[3]=t3,a[4]=((C_word)li5),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_1389(t7,t1,t2);} /* lp in %char-set:s/check in k1295 */ static void C_fcall f_1389(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_1389,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1396,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); /* srfi-14.scm:126: char-set? */ t4=*((C_word*)lf[4]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* char-set:s in k1295 */ static void C_ccall f_1317(C_word c,C_word *av){ C_word tmp; C_word 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_1317,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* for-each-loop433 in %list->char-set! in k1295 */ 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_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=C_slot(t1,C_fix(0)); t3=( /* srfi-14.scm:360: g434 */ f_2431(((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);}} /* make-char-set in k1295 */ static void C_ccall f_1311(C_word c,C_word *av){ C_word tmp; C_word 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_1311,3,av);} a=C_alloc(3); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record2(&a,2,lf[2],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1394 in lp in %char-set:s/check in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_1396,2,av);} a=C_alloc(4); if(C_truep(t1)){ /* srfi-14.scm:126: char-set:s */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_1406,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:127: ##sys#error */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[12]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* char-set? in k1295 */ 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=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_1323,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* g434 in %list->char-set! in k1295 */ static C_word C_fcall f_2431(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t2=C_fix(C_character_code(t1)); t3=((C_word*)t0)[2]; return(C_i_string_set(t3,t2,C_make_character(1)));} /* g230 in k1886 in %set-char-set! in k1295 */ static void C_fcall f_1889(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_1889,3,t0,t1,t2);} t3=C_fix(C_character_code(t2)); /* srfi-14.scm:244: set */ t4=((C_word*)t0)[2];{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} /* k1886 in %set-char-set! in k1295 */ static void C_ccall f_1888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1888,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1889,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li24),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3]; t5=C_i_check_list_2(t4,lf[22]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1903,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_1905,a[2]=t8,a[3]=t3,a[4]=((C_word)li25),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_1905(t10,t6,t4);} /* k1880 in %set-char-set in k1295 */ static void C_ccall f_1882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1882,2,av);} t2=C_i_string_length(t1); /* srfi-14.scm:102: substring */ t3=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(0); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* %set-char-set! in k1295 */ static void C_fcall f_1884(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(6,0,3)))){ C_save_and_reclaim_args((void *)trf_1884,5,t1,t2,t3,t4,t5);} a=C_alloc(6); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1888,a[2]=t2,a[3]=t5,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* srfi-14.scm:243: %char-set:s/check */ f_1383(t6,t4,t3);} /* k1850 in k1835 in %set-char-set in k1295 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1852,2,av);} /* srfi-14.scm:240: make-char-set */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop204 in k1835 in %set-char-set in k1295 */ static void C_fcall f_1857(C_word t0,C_word t1,C_word 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_1857,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_1867,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)); /* srfi-14.scm:236: g205 */ t5=((C_word*)t0)[3]; f_1838(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);}}} /* k2494 in k2491 in list->char-set in k1295 */ static void C_ccall f_2496(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2496,2,av);} /* srfi-14.scm:372: make-char-set */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 k2304 in char-set-any in k1295 */ static void C_fcall f_2311(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_2311,3,t0,t1,t2);} a=C_alloc(5); t3=t2; if(C_truep(C_fixnum_greater_or_equal_p(t3,C_fix(0)))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2321,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=t2; t6=C_i_string_ref(((C_word*)t0)[3],t5); t7=C_fix(C_character_code(t6)); t8=C_eqp(t7,C_fix(0)); if(C_truep(C_i_not(t8))){ t9=t2; t10=C_make_character(C_unfix(t9)); /* srfi-14.scm:332: pred */ t11=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t11; av2[1]=t4; av2[2]=t10; ((C_proc)C_fast_retrieve_proc(t11))(3,av2);}} else{ t9=C_fixnum_difference(t2,C_fix(1)); /* srfi-14.scm:333: lp */ t12=t1; t13=t9; t1=t12; t2=t13; goto loop;}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2491 in list->char-set in k1295 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2493,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2496,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:371: %list->char-set! */ f_2429(t3,((C_word*)t0)[3],t2);} /* k2894 in char-set-filter! in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_2896,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2900,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* srfi-14.scm:469: %char-set:s/check */ f_1383(t3,((C_word*)t0)[4],lf[55]);} /* k2890 in char-set-filter! in k1295 */ 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,1)))){ C_save_and_reclaim((void *)f_2892,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1865 in for-each-loop204 in k1835 in %set-char-set in k1295 */ static void C_ccall f_1867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1867,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1857(t3,((C_word*)t0)[4],t2);} /* k3463 in char-set-xor in k1295 */ static void C_ccall f_3465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3465,2,av);} t2=C_i_string_length(t1); /* srfi-14.scm:102: substring */ t3=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(0); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2477 in char-set in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2479,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2482,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:366: %list->char-set! */ f_2429(t3,((C_word*)t0)[3],t2);} /* char-set in k1295 */ 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((c-2)*C_SIZEOF_PAIR +4,c,3)))){ C_save_and_reclaim((void*)f_2475,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_2479,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[10]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[10]+1); av2[1]=t3; av2[2]=C_fix(256); av2[3]=C_make_character(0); tp(4,av2);}} /* g788 in %char-set-diff+intersection! in k1295 */ static void C_fcall f_3474(C_word t0,C_word t1,C_word 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_3474,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3480,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li104),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3539,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:602: %char-set:s/check */ f_1383(t4,t2,((C_word*)t0)[4]);} /* %char-set-diff+intersection! in k1295 */ 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 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_3472,5,t1,t2,t3,t4,t5);} a=C_alloc(13); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3474,a[2]=t2,a[3]=t3,a[4]=t5,a[5]=((C_word)li105),tmp=(C_word)a,a+=6,tmp); t7=C_i_check_list_2(t4,lf[22]); 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_3547,a[2]=t9,a[3]=t6,a[4]=((C_word)li106),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_3547(t11,t1,t4);} /* char-set-copy in k1295 */ static void C_ccall f_1416(C_word c,C_word *av){ C_word tmp; C_word 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,3)))){ C_save_and_reclaim((void *)f_1416,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1424,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1428,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:155: %char-set:s/check */ f_1383(t4,t2,lf[13]);} /* list->char-set in k1295 */ 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=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_2489,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_2493,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:370: %default-base */ f_1339(t4,t3,*((C_word*)lf[42]+1));} /* k2480 in k2477 in char-set in k1295 */ static void C_ccall f_2482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2482,2,av);} /* srfi-14.scm:367: make-char-set */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1422 in char-set-copy in k1295 */ static void C_ccall f_1424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1424,2,av);} /* srfi-14.scm:155: make-char-set */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3479 in g788 in %char-set-diff+intersection! in k1295 */ 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=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(0,c,1)))){ C_save_and_reclaim((void *)f_3480,4,av);} t4=C_eqp(t3,C_fix(0)); if(C_truep(t4)){ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=((C_word*)t0)[2]; t6=t2; t7=C_i_string_ref(t5,t6); t8=C_fix(C_character_code(t7)); t9=C_eqp(t8,C_fix(0)); if(C_truep(C_i_not(t9))){ t10=((C_word*)t0)[2]; t11=t2; t12=C_i_string_set(t10,t11,C_make_character(0)); t13=t1; t14=((C_word*)t0)[3]; t15=t2; t16=t13;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=C_i_string_set(t14,t15,C_make_character(1)); ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}} /* k1426 in char-set-copy in k1295 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1428,2,av);} t2=C_i_string_length(t1); /* srfi-14.scm:102: substring */ t3=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(0); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* char-set-filter! in k1295 */ static void C_ccall f_2888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,3)))){ C_save_and_reclaim((void *)f_2888,5,av);} a=C_alloc(9); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2892,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2896,a[2]=t5,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* srfi-14.scm:468: %char-set:s/check */ f_1383(t6,t3,lf[55]);} /* k2884 in k2874 in char-set-filter in k1295 */ static void C_ccall f_2886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2886,2,av);} /* srfi-14.scm:460: %char-set-filter! */ f_2804(((C_word*)t0)[2],((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k1404 in k1394 in lp in %char-set:s/check in k1295 */ static void C_ccall f_1406(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1406,2,av);} /* srfi-14.scm:127: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1389(t2,((C_word*)t0)[3],t1);} /* lp in k1768 in char-set-count in k1295 */ static void C_fcall f_1775(C_word t0,C_word t1,C_word 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(6,0,2)))){ C_save_and_reclaim_args((void *)trf_1775,4,t0,t1,t2,t3);} a=C_alloc(6); 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|5,a[1]=(C_word)f_1796,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_i_string_ref(((C_word*)t0)[3],t8); t10=C_fix(C_character_code(t9)); t11=C_eqp(t10,C_fix(0)); if(C_truep(C_i_not(t11))){ t12=t2; t13=C_make_character(C_unfix(t12)); /* srfi-14.scm:229: pred */ t14=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t14; av2[1]=t7; av2[2]=t13; ((C_proc)C_fast_retrieve_proc(t14))(3,av2);}} else{ t12=t7;{ C_word av2[2]; av2[0]=t12; av2[1]=C_SCHEME_FALSE; f_1796(2,av2);}}}} /* k3911 in map-loop877 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ static void C_ccall f_3913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3913,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3888(t6,((C_word*)t0)[5],t5);} /* k1768 in char-set-count in k1295 */ 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; 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_1770,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_1775,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word)li19),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_1775(t6,((C_word*)t0)[3],C_fix(255),C_fix(0));} /* k1794 in lp in k1768 in char-set-count in k1295 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1796,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-14.scm:228: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1775(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} else{ t2=((C_word*)t0)[2]; /* srfi-14.scm:228: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1775(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}} /* doloop481 in %string->char-set! in k1295 */ static C_word C_fcall f_2576(C_word t0,C_word t1){ C_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:{} t2=t1; if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ t3=C_SCHEME_UNDEFINED; return(t3);} else{ t3=C_i_string_ref(((C_word*)t0)[2],t1); t4=C_fix(C_character_code(t3)); t5=((C_word*)t0)[3]; t6=C_i_string_set(t5,t4,C_make_character(1)); t7=C_fixnum_difference(t1,C_fix(1)); t9=t7; t1=t9; goto loop;}} /* char-set-count in k1295 */ static void C_ccall f_1766(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1766,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1770,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:225: %char-set:s/check */ f_1383(t4,t3,lf[20]);} /* k2704 in %ucs-range->char-set! in k1295 */ static void C_ccall f_2706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_2706,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_i_fixnum_min(t2,C_fix(256)); t4=C_fixnum_difference(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2715,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li69),tmp=(C_word)a,a+=5,tmp); t6=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=( f_2715(t5,t4) ); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* lp in k2704 in %ucs-range->char-set! in k1295 */ static C_word C_fcall f_2715(C_word t0,C_word t1){ C_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:{} t2=((C_word*)t0)[2]; t3=t1; if(C_truep(C_fixnum_less_or_equal_p(t2,t3))){ t4=((C_word*)t0)[3]; t5=t1; t6=C_i_string_set(t4,t5,C_make_character(1)); t7=C_fixnum_difference(t1,C_fix(1)); t9=t7; t1=t9; goto loop;} else{ t4=C_SCHEME_UNDEFINED; return(t4);}} /* k3760 in k3756 in k3752 in k3748 in k3744 in k3740 in k3737 in k3731 in k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in ... */ static void C_ccall f_3762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3762,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[89]+1 /* (set! char-set:iso-control ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3766,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:715: ucs-range->char-set */ t4=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_fix(0); av2[3]=C_fix(128); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3764 in k3760 in k3756 in k3752 in k3748 in k3744 in k3740 in k3737 in k3731 in k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in ... */ static void C_ccall f_3766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3766,2,av);} t2=C_mutate2((C_word*)lf[90]+1 /* (set! char-set:ascii ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* char-set-union! in k1295 */ 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 +8,c,3)))){ C_save_and_reclaim((void*)f_3118,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|3,a[1]=(C_word)f_3122,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3126,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:536: %char-set:s/check */ f_1383(t5,t2,lf[62]);} /* k3775 in k3752 in k3748 in k3744 in k3740 in k3737 in k3731 in k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in ... */ static void C_ccall f_3777(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3777,2,av);} /* srfi-14.scm:707: list->char-set */ t2=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop962 in k3752 in k3748 in k3744 in k3740 in k3737 in k3731 in k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in ... */ static void C_fcall f_3779(C_word t0,C_word t1,C_word 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_3779,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_3804,a[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)); /* srfi-14.scm:707: g968 */ 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);}}} /* ucs-range->char-set in k1295 */ 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=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_2764,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; C_word t11; 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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2774,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t7,tmp=(C_word)a,a+=6,tmp); /* srfi-14.scm:437: %default-base */ f_1339(t10,t9,*((C_word*)lf[51]+1));} /* k3768 in k3756 in k3752 in k3748 in k3744 in k3740 in k3737 in k3731 in k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3770,2,av);} /* srfi-14.scm:713: ucs-range->char-set! */ t2=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(127); av2[3]=C_fix(160); av2[4]=C_SCHEME_TRUE; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k3643 in char-set-diff+intersection in k1295 */ 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(5,c,3)))){ C_save_and_reclaim((void *)f_3645,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3648,a[2]=((C_word*)t0)[2],a[3]=t2,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[10]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[10]+1); av2[1]=t3; av2[2]=C_fix(256); av2[3]=C_make_character(0); tp(4,av2);}} /* k3646 in k3643 in char-set-diff+intersection in k1295 */ 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(5,c,5)))){ C_save_and_reclaim((void *)f_3648,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3651,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* srfi-14.scm:618: %char-set-diff+intersection! */ f_3472(t3,((C_word*)t0)[3],t2,((C_word*)t0)[4],lf[74]);} /* char-set-diff+intersection in k1295 */ 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=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_3641,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|3,a[1]=(C_word)f_3645,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3668,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:616: %char-set:s/check */ f_1383(t5,t2,lf[74]);} /* k3120 in char-set-union! in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3122,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3124 in char-set-union! in k1295 */ static void C_ccall f_3126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3126,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3128,a[2]=((C_word)li88),tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:536: %char-set-algebra */ f_2973(((C_word*)t0)[2],t1,((C_word*)t0)[3],t2,lf[62]);} /* a3127 in k3124 in char-set-union! in k1295 */ static void C_ccall f_3128(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3128,5,av);} t5=C_eqp(t4,C_fix(0)); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=t1; t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_i_string_set(t2,t3,C_make_character(1)); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k2775 in k2772 in ucs-range->char-set in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2777,2,av);} /* srfi-14.scm:439: make-char-set */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3740 in k3737 in k3731 in k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ 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(3,c,4)))){ C_save_and_reclaim((void *)f_3742,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[84]+1 /* (set! char-set:symbol ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3746,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:693: char-set-union */ t4=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[82]+1); av2[3]=*((C_word*)lf[83]+1); av2[4]=*((C_word*)lf[84]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3744 in k3740 in k3737 in k3731 in k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ 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 t4; C_word t5; C_word 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_3746,2,av);} a=C_alloc(20); t2=C_mutate2((C_word*)lf[85]+1 /* (set! char-set:graphic ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3750,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=lf[0]; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3818,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|6,a[1]=(C_word)f_3820,a[2]=t6,a[3]=t11,a[4]=t8,a[5]=t7,a[6]=((C_word)li112),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_3820(t13,t9,lf[92]);} /* k2772 in ucs-range->char-set in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){ C_save_and_reclaim((void *)f_2774,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2777,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:438: %ucs-range->char-set! */ f_2696(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2,lf[51]);} /* k3656 in k3649 in k3646 in k3643 in char-set-diff+intersection in k1295 */ static void C_ccall f_3658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3658,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3662,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:619: make-char-set */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3649 in k3646 in k3643 in char-set-diff+intersection in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3651,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3658,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:619: make-char-set */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* %char-set-unfold! in k1295 */ static void C_fcall f_2365(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; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_2365,6,t1,t2,t3,t4,t5,t6);} a=C_alloc(10); 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_2371,a[2]=t5,a[3]=t8,a[4]=t4,a[5]=t3,a[6]=t2,a[7]=((C_word)li51),tmp=(C_word)a,a+=8,tmp)); t10=((C_word*)t8)[1]; f_2371(t10,t1,t6);} /* k1901 in k1886 in %set-char-set! in k1295 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1903,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop906 in k3731 in k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ static void C_fcall f_3854(C_word t0,C_word t1,C_word 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_3854,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_3879,a[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)); /* srfi-14.scm:671: g912 */ 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);}}} /* k2744 in %ucs-range->char-set! in k1295 */ static void C_fcall f_2746(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_2746,2,t0,t1);} if(C_truep(t1)){ /* srfi-14.scm:429: ##sys#error */ t2=*((C_word*)lf[7]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[50]; 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);}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_2706(2,av2);}}} /* k3752 in k3748 in k3744 in k3740 in k3737 in k3731 in k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in ... */ 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 t3; C_word t4; C_word t5; C_word 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_3754,2,av);} a=C_alloc(20); t2=C_mutate2((C_word*)lf[87]+1 /* (set! char-set:printing ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3758,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=lf[0]; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3777,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|6,a[1]=(C_word)f_3779,a[2]=t6,a[3]=t11,a[4]=t8,a[5]=t7,a[6]=((C_word)li111),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_3779(t13,t9,lf[91]);} /* k3756 in k3752 in k3748 in k3744 in k3740 in k3737 in k3731 in k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3758,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[88]+1 /* (set! char-set:blank ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3762,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3770,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:713: ucs-range->char-set */ t5=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_fix(0); av2[3]=C_fix(32); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k3748 in k3744 in k3740 in k3737 in k3731 in k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 in ... */ static void C_ccall f_3750(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3750,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[86]+1 /* (set! char-set:whitespace ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3754,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:704: char-set-union */ t4=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[86]+1); av2[3]=*((C_word*)lf[85]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* for-each-loop229 in k1886 in %set-char-set! in k1295 */ static void C_fcall f_1905(C_word t0,C_word t1,C_word 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_1905,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_1915,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)); /* srfi-14.scm:242: g230 */ t5=((C_word*)t0)[3]; f_1889(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);}}} /* k1913 in for-each-loop229 in k1886 in %set-char-set! in k1295 */ static void C_ccall f_1915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1915,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1905(t3,((C_word*)t0)[4],t2);} /* k2828 in lp in %char-set-filter! in k1295 */ static void C_ccall f_2830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_2830,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_i_string_set(t2,t3,C_make_character(1)); t5=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); /* srfi-14.scm:456: lp */ t6=((C_word*)((C_word*)t0)[4])[1]; f_2810(t6,((C_word*)t0)[5],t5);} else{ t2=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); /* srfi-14.scm:456: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_2810(t3,((C_word*)t0)[5],t2);}} /* k3877 in map-loop906 in k3731 in k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3879,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3854(t6,((C_word*)t0)[5],t5);} /* char-set-adjoin in k1295 */ static void C_ccall f_1928(C_word c,C_word *av){ C_word tmp; C_word 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_1928,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; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1934,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:249: %set-char-set */ f_1833(t1,t4,lf[24],t2,t3);} /* lp in k1596 in k1590 in char-set-hash in k1295 */ static C_word C_fcall f_1656(C_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=t1; t3=((C_word*)((C_word*)t0)[2])[1]; if(C_truep(C_fixnum_greater_or_equal_p(t2,t3))){ return(C_fixnum_difference(t1,C_fix(1)));} else{ t4=C_fixnum_plus(t1,t1); t6=t4; t1=t6; goto loop;}} /* k3843 in map-loop934 in k3744 in k3740 in k3737 in k3731 in k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 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 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_3845,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3820(t6,((C_word*)t0)[5],t5);} /* a1933 in char-set-adjoin in k1295 */ 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; 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_1934,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_string_set(t2,t3,C_make_character(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* lp in %char-set-filter! in k1295 */ static void C_fcall f_2810(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_2810,3,t0,t1,t2);} a=C_alloc(6); t3=t2; if(C_truep(C_fixnum_greater_or_equal_p(t3,C_fix(0)))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2830,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=((C_word*)t0)[4]; t6=t2; t7=C_i_string_ref(t5,t6); t8=C_fix(C_character_code(t7)); t9=C_eqp(t8,C_fix(0)); if(C_truep(C_i_not(t9))){ t10=t2; t11=C_make_character(C_unfix(t10)); /* srfi-14.scm:454: pred */ t12=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t12; av2[1]=t4; av2[2]=t11; ((C_proc)C_fast_retrieve_proc(t12))(3,av2);}} else{ t10=t4;{ C_word av2[2]; av2[0]=t10; av2[1]=C_SCHEME_FALSE; f_2830(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);}}} /* %ucs-range->char-set! in k1295 */ static void C_fcall f_2696(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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_2696,6,t1,t2,t3,t4,t5,t6);} a=C_alloc(12); t7=C_i_check_exact_2(t2,t6); t8=C_i_check_exact_2(t3,t6); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2706,a[2]=t3,a[3]=t2,a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2746,a[2]=t9,a[3]=t6,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t11=t2; t12=t3; if(C_truep(C_fixnum_lessp(t11,t12))){ t13=t3; t14=t10; f_2746(t14,(C_truep(C_fixnum_lessp(C_fix(256),t13))?t4:C_SCHEME_FALSE));} else{ t13=t10; f_2746(t13,C_SCHEME_FALSE);}} /* k2692 in k2637 in char-set->string in k1295 */ 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(0,c,3)))){ C_save_and_reclaim((void *)f_2694,2,av);} /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[10]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[10]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_make_character(32); tp(4,av2);}} /* g205 in k1835 in %set-char-set in k1295 */ static void C_fcall f_1838(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_1838,3,t0,t1,t2);} t3=C_fix(C_character_code(t2)); /* srfi-14.scm:238: set */ t4=((C_word*)t0)[2];{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} /* k1835 in %set-char-set in k1295 */ static void C_ccall f_1837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1837,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1838,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li21),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3]; t5=C_i_check_list_2(t4,lf[22]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1852,a[2]=((C_word*)t0)[4],a[3]=t2,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_1857,a[2]=t8,a[3]=t3,a[4]=((C_word)li22),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_1857(t10,t6,t4);} /* %set-char-set in k1295 */ static void C_fcall f_1833(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(8,0,3)))){ C_save_and_reclaim_args((void *)trf_1833,5,t1,t2,t3,t4,t5);} a=C_alloc(8); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1837,a[2]=t2,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1882,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:237: %char-set:s/check */ f_1383(t7,t4,t3);} /* lp in %char-set-unfold! in k1295 */ static void C_fcall f_2371(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(8,0,2)))){ C_save_and_reclaim_args((void *)trf_2371,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2405,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],tmp=(C_word)a,a+=8,tmp); /* srfi-14.scm:341: p */ t4=((C_word*)t0)[6];{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* char-set-for-each in k1295 */ 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=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_2055,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2059,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:293: %char-set:s/check */ f_1383(t4,t3,lf[33]);} /* k2057 in char-set-for-each in k1295 */ static void C_ccall f_2059(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_2059,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_2064,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word)li41),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_2064(t6,((C_word*)t0)[3],C_fix(255));} /* k2874 in char-set-filter in k1295 */ static void C_ccall f_2876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2876,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2879,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_2886,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* srfi-14.scm:461: %char-set:s/check */ f_1383(t4,((C_word*)t0)[4],lf[55]);} /* k2877 in k2874 in char-set-filter in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2879,2,av);} /* srfi-14.scm:464: make-char-set */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* char-set-filter in k1295 */ static void C_ccall f_2872(C_word c,C_word *av){ C_word tmp; C_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,3)))){ C_save_and_reclaim((void*)f_2872,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_2876,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* srfi-14.scm:459: %default-base */ f_1339(t5,t4,*((C_word*)lf[54]+1));} /* char-set-contains? in k1295 */ 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=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_1685,4,av);} a=C_alloc(4); t4=C_i_check_char_2(t3,lf[18]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1718,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:213: %char-set:s/check */ f_1383(t5,t2,lf[18]);} /* char-set-xor in k1295 */ static void C_ccall f_3401(C_word c,C_word *av){ C_word tmp; 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_3401,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; if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3411,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3465,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=t2; t6=C_u_i_car(t5); /* srfi-14.scm:587: %char-set:s/check */ f_1383(t4,t6,lf[71]);} else{ /* srfi-14.scm:590: char-set-copy */ t3=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=*((C_word*)lf[64]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* %char-set-filter! in k1295 */ static void C_fcall f_2804(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_2804,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_2810,a[2]=t4,a[3]=t6,a[4]=t3,a[5]=t2,a[6]=((C_word)li73),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_2810(t8,t1,C_fix(255));} /* k2800 in ucs-range->char-set! in k1295 */ 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,6)))){ C_save_and_reclaim((void *)f_2802,2,av);} /* srfi-14.scm:442: %ucs-range->char-set! */ f_2696(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,lf[51]);} /* k3409 in char-set-xor in k1295 */ 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 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_3411,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3414,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3421,a[2]=((C_word)li102),tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:588: %char-set-algebra */ f_2973(t3,t2,t5,t6,lf[71]);} /* k3412 in k3409 in char-set-xor in k1295 */ static void C_ccall f_3414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3414,2,av);} /* srfi-14.scm:589: make-char-set */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop877 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ static void C_fcall f_3888(C_word t0,C_word t1,C_word 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_3888,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_3913,a[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)); /* srfi-14.scm:661: g883 */ 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);}}} /* a3420 in k3409 in char-set-xor in k1295 */ 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=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(0,c,1)))){ C_save_and_reclaim((void *)f_3421,5,av);} t5=C_eqp(t4,C_fix(0)); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=t2; t7=t3; t8=C_i_string_ref(t6,t7); t9=C_fix(C_character_code(t8)); t10=C_fixnum_difference(C_fix(1),t9); t11=t1; t12=t2; t13=t3; t14=C_make_character(C_unfix(t10)); t15=t11;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=C_i_string_set(t12,t13,t14); ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}} /* end-of-char-set? in k1295 */ static void C_ccall f_1982(C_word c,C_word *av){ C_word tmp; C_word 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_1982,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fixnum_lessp(t2,C_fix(0)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* char-set-ref in k1295 */ static void C_ccall f_1988(C_word c,C_word *av){ C_word tmp; C_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_1988,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_make_character(C_unfix(t3)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* char-set-cursor-next in k1295 */ static void C_ccall f_1994(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1994,4,av);} t4=C_i_check_exact_2(t3,lf[32]); /* srfi-14.scm:279: %char-set-cursor-next */ f_2003(t1,t2,t3,lf[32]);} /* k3157 in char-set-union in k1295 */ static void C_ccall f_3159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_3159,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3162,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3169,a[2]=((C_word)li90),tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:543: %char-set-algebra */ f_2973(t3,t2,t5,t6,lf[63]);} /* k2513 in char-set->list in k1295 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_2515,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_2520,a[2]=t2,a[3]=t4,a[4]=((C_word)li61),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_2520(t6,((C_word*)t0)[2],C_fix(255),C_SCHEME_END_OF_LIST);} /* char-set->list in k1295 */ 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 *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_2511,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2515,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:380: %char-set:s/check */ f_1383(t3,t2,lf[44]);} /* k1716 in char-set-contains? in k1295 */ static void C_ccall f_1718(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1718,2,av);} t2=((C_word*)t0)[2]; t3=C_fix(C_character_code(t2)); t4=((C_word*)t0)[3]; t5=C_i_string_ref(t1,t3); t6=C_fix(C_character_code(t5)); t7=C_eqp(t6,C_fix(0)); t8=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_i_not(t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* a3168 in k3157 in char-set-union in k1295 */ static void C_ccall f_3169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3169,5,av);} t5=C_eqp(t4,C_fix(0)); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=t1; t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_i_string_set(t2,t3,C_make_character(1)); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* lp in k2513 in char-set->list in k1295 */ static void C_fcall f_2520(C_word t0,C_word t1,C_word 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(3,0,3)))){ C_save_and_reclaim_args((void *)trf_2520,4,t0,t1,t2,t3);} a=C_alloc(3); 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=t2; t7=C_i_string_ref(((C_word*)t0)[2],t6); t8=C_fix(C_character_code(t7)); t9=C_eqp(t8,C_fix(0)); if(C_truep(t9)){ t10=t3; /* srfi-14.scm:383: lp */ t14=t1; t15=t5; t16=t10; t1=t14; t2=t15; t3=t16; goto loop;} else{ t10=t2; t11=C_make_character(C_unfix(t10)); t12=C_a_i_cons(&a,2,t11,t3); /* srfi-14.scm:383: lp */ t14=t1; t15=t5; t16=t12; t1=t14; t2=t15; t3=t16; goto loop;}}} /* k3160 in k3157 in char-set-union in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3162,2,av);} /* srfi-14.scm:544: make-char-set */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2391 in k2399 in k2403 in lp in %char-set-unfold! in k1295 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2393,2,av);} /* srfi-14.scm:343: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2371(t2,((C_word*)t0)[3],t1);} /* char-set-adjoin! in k1295 */ static void C_ccall f_1940(C_word c,C_word *av){ C_word tmp; C_word 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_1940,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; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1946,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:251: %set-char-set! */ f_1884(t1,t4,lf[25],t2,t3);} /* ->char-set in k1295 */ 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(4,c,2)))){ C_save_and_reclaim((void *)f_2902,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2909,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:477: char-set? */ t4=*((C_word*)lf[4]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2898 in k2894 in char-set-filter! in k1295 */ 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,4)))){ C_save_and_reclaim((void *)f_2900,2,av);} /* srfi-14.scm:467: %char-set-filter! */ f_2804(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* a1945 in char-set-adjoin! in k1295 */ 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=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_1946,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_string_set(t2,t3,C_make_character(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* char-set-union in k1295 */ 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((c-2)*C_SIZEOF_PAIR +7,c,3)))){ C_save_and_reclaim((void*)f_3149,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; if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3159,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3192,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=t2; t6=C_u_i_car(t5); /* srfi-14.scm:542: %char-set:s/check */ f_1383(t4,t6,lf[63]);} else{ /* srfi-14.scm:545: char-set-copy */ t3=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=*((C_word*)lf[64]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k2503 in list->char-set! in k1295 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2505,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* lp in k1726 in char-set-size in k1295 */ static C_word 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_stack_overflow_check; loop:{} t3=t1; if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ t4=t2; return(t4);} else{ t4=C_fixnum_difference(t1,C_fix(1)); t5=t1; t6=C_i_string_ref(((C_word*)t0)[2],t5); t7=C_fix(C_character_code(t6)); t8=C_fixnum_plus(t2,t7); t10=t4; t11=t8; t1=t10; t2=t11; goto loop;}} /* list->char-set! in k1295 */ static void C_ccall f_2501(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,3)))){ C_save_and_reclaim((void *)f_2501,4,av);} a=C_alloc(8); 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); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2509,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:375: %char-set:s/check */ f_1383(t5,t3,lf[43]);} /* k2507 in list->char-set! in k1295 */ 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(0,c,3)))){ C_save_and_reclaim((void *)f_2509,2,av);} /* srfi-14.scm:375: %list->char-set! */ f_2429(((C_word*)t0)[2],((C_word*)t0)[3],t1);} /* k3555 in for-each-loop787 in %char-set-diff+intersection! in k1295 */ static void C_ccall f_3557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3557,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3547(t3,((C_word*)t0)[4],t2);} /* k2907 in ->char-set in k1295 */ static void C_ccall f_2909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2909,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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]))){ /* srfi-14.scm:478: string->char-set */ t2=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_charp(((C_word*)t0)[2]))){ /* srfi-14.scm:479: char-set */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ /* srfi-14.scm:480: ##sys#error */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[56]; av2[3]=lf[57]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}}} /* char-set-delete in k1295 */ 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=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_1952,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; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1958,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:253: %set-char-set */ f_1833(t1,t4,lf[26],t2,t3);} /* a1957 in char-set-delete in k1295 */ static void C_ccall f_1958(C_word c,C_word *av){ C_word tmp; C_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_1958,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_string_set(t2,t3,C_make_character(0)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3190 in char-set-union in k1295 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3192,2,av);} t2=C_i_string_length(t1); /* srfi-14.scm:102: substring */ t3=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(0); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* char-set-intersection! in k1295 */ 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=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_3199,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|3,a[1]=(C_word)f_3203,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3207,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:551: %char-set:s/check */ f_1383(t5,t2,lf[65]);} /* char-set-delete! in k1295 */ 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=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_1964,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; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1970,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:255: %set-char-set! */ f_1884(t1,t4,lf[27],t2,t3);} /* %string->char-set! in k1295 */ static void C_fcall f_2563(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_2563,4,t1,t2,t3,t4);} a=C_alloc(5); t5=C_i_check_string_2(t2,t4); t6=t2; t7=C_block_size(t6); t8=C_fixnum_difference(t7,C_fix(1)); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2576,a[2]=t2,a[3]=t3,a[4]=((C_word)li63),tmp=(C_word)a,a+=5,tmp); t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=( f_2576(t9,t8) ); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k3537 in g788 in %char-set-diff+intersection! in k1295 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3539,2,av);} /* srfi-14.scm:597: %string-iter */ f_2932(((C_word*)t0)[2],((C_word*)t0)[3],t1);} /* %string-iter in k1295 */ static void C_fcall f_2932(C_word t1,C_word 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(8,0,3)))){ C_save_and_reclaim_args((void *)trf_2932,3,t1,t2,t3);} a=C_alloc(8); t4=C_i_string_length(t3); 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_2942,a[2]=t7,a[3]=t3,a[4]=t2,a[5]=((C_word)li78),tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_2942(t9,t1,t5);} /* char-set-cursor in k1295 */ static void C_ccall f_1976(C_word c,C_word *av){ C_word tmp; C_word 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_1976,3,av);} /* srfi-14.scm:269: %char-set-cursor-next */ f_2003(t1,t2,C_fix(256),lf[28]);} /* a1969 in char-set-delete! in k1295 */ static void C_ccall f_1970(C_word c,C_word *av){ C_word tmp; C_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_1970,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_string_set(t2,t3,C_make_character(0)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1726 in char-set-size in k1295 */ static void C_ccall f_1728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1728,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1733,a[2]=t2,a[3]=((C_word)li17),tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_1733(t3,C_fix(255),C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* char-set-size in k1295 */ static void C_ccall f_1724(C_word c,C_word *av){ C_word tmp; C_word 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,3)))){ C_save_and_reclaim((void *)f_1724,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1728,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:218: %char-set:s/check */ f_1383(t3,t2,lf[19]);} /* lp in %string-iter in k1295 */ static void C_fcall f_2942(C_word t0,C_word 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_2942,3,t0,t1,t2);} a=C_alloc(5); t3=t2; if(C_truep(C_fixnum_greater_or_equal_p(t3,C_fix(0)))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2952,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=C_i_string_ref(((C_word*)t0)[3],t2); t6=C_fix(C_character_code(t5)); /* srfi-14.scm:500: p */ t7=((C_word*)t0)[4];{ C_word av2[4]; av2[0]=t7; av2[1]=t4; av2[2]=t2; av2[3]=t6; ((C_proc)C_fast_retrieve_proc(t7))(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);}}} /* k3237 in k3234 in char-set-intersection in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3239,2,av);} /* srfi-14.scm:559: make-char-set */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3245 in k3234 in char-set-intersection in k1295 */ 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=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_3246,5,av);} t5=C_eqp(t4,C_fix(0)); if(C_truep(t5)){ t6=t1; t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_i_string_set(t2,t3,C_make_character(0)); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* map-loop934 in k3744 in k3740 in k3737 in k3731 in k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 in ... */ static void C_fcall f_3820(C_word t0,C_word t1,C_word 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_3820,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_3845,a[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)); /* srfi-14.scm:696: g940 */ 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);}}} /* char-set->string in k1295 */ 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=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_2635,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2639,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:410: %char-set:s/check */ f_1383(t3,t2,lf[48]);} /* k2631 in string->char-set! in k1295 */ static void C_ccall f_2633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2633,2,av);} /* srfi-14.scm:404: %string->char-set! */ f_2563(((C_word*)t0)[2],((C_word*)t0)[3],t1,lf[47]);} /* k2637 in char-set->string in k1295 */ static void C_ccall f_2639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2639,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2642,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_2694,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:411: char-set-size */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3263 in char-set-intersection in k1295 */ static void C_ccall f_3265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3265,2,av);} t2=C_i_string_length(t1); /* srfi-14.scm:102: substring */ t3=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(0); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* string->char-set in k1295 */ 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=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_2613,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_2617,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:399: %default-base */ f_1339(t4,t3,*((C_word*)lf[46]+1));} /* k2615 in string->char-set in k1295 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2617,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2620,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:400: %string->char-set! */ f_2563(t3,((C_word*)t0)[3],t2,lf[46]);} /* k2005 in %char-set-cursor-next in k1295 */ static void C_ccall f_2007(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2007,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2012,a[2]=t2,a[3]=((C_word)li39),tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_2012(t3,((C_word*)t0)[3]) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* %char-set-cursor-next in k1295 */ static void C_fcall f_2003(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_2003,4,t1,t2,t3,t4);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2007,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:282: %char-set:s/check */ f_1383(t5,t2,t4);} /* k3816 in k3744 in k3740 in k3737 in k3731 in k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3818,2,av);} /* srfi-14.scm:696: list->char-set */ t2=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2221 in lp in k2198 in char-set-fold in k1295 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2223,2,av);} /* srfi-14.scm:315: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2205(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* a3281 in k3278 in char-set-difference! in k1295 */ static void C_ccall f_3282(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3282,5,av);} t5=C_eqp(t4,C_fix(0)); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=t1; t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_i_string_set(t2,t3,C_make_character(0)); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k3278 in char-set-difference! in k1295 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3280,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3282,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:566: %char-set-algebra */ f_2973(((C_word*)t0)[2],t1,((C_word*)t0)[3],t2,lf[68]);} /* lp in k1596 in k1590 in char-set-hash in k1295 */ static void C_fcall f_1606(C_word t0,C_word t1,C_word 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(0,0,3)))){ C_save_and_reclaim_args((void *)trf_1606,4,t0,t1,t2,t3);} t4=t2; if(C_truep(C_fixnum_lessp(t4,C_fix(0)))){ /* srfi-14.scm:205: modulo */ t5=*((C_word*)lf[17]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=C_fixnum_difference(t2,C_fix(1)); t6=t2; t7=C_i_string_ref(((C_word*)t0)[3],t6); t8=C_fix(C_character_code(t7)); t9=C_eqp(t8,C_fix(0)); if(C_truep(t9)){ t10=t3; /* srfi-14.scm:206: lp */ t14=t1; t15=t5; t16=t10; t1=t14; t2=t15; t3=t16; goto loop;} else{ t10=C_fixnum_times(C_fix(37),t3); t11=C_fixnum_plus(t10,t2); t12=C_fixnum_and(((C_word*)t0)[5],t11); /* srfi-14.scm:206: lp */ t14=t1; t15=t5; t16=t12; t1=t14; t2=t15; t3=t16; goto loop;}}} /* k2198 in char-set-fold in k1295 */ 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 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_2200,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_2205,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word)li45),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_2205(t6,((C_word*)t0)[3],C_fix(255),((C_word*)t0)[4]);} /* lp in k2198 in char-set-fold in k1295 */ static void C_fcall f_2205(C_word t0,C_word t1,C_word 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(5,0,3)))){ C_save_and_reclaim_args((void *)trf_2205,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_2223,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); t8=t2; t9=C_i_string_ref(((C_word*)t0)[3],t8); t10=C_fix(C_character_code(t9)); t11=C_eqp(t10,C_fix(0)); if(C_truep(t11)){ t12=t3; /* srfi-14.scm:315: lp */ t15=t1; t16=t6; t17=t12; t1=t15; t2=t16; t3=t17; goto loop;} else{ t12=t2; t13=C_make_character(C_unfix(t12)); /* srfi-14.scm:317: kons */ t14=((C_word*)t0)[4];{ C_word av2[4]; av2[0]=t14; av2[1]=t7; av2[2]=t13; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t14))(4,av2);}}}} /* lp in k2640 in k2637 in char-set->string in k1295 */ static C_word C_fcall f_2647(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_stack_overflow_check; loop:{} t3=t1; if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ return(((C_word*)t0)[2]);} else{ t4=t1; t5=C_i_string_ref(((C_word*)t0)[3],t4); t6=C_fix(C_character_code(t5)); t7=C_eqp(t6,C_fix(0)); if(C_truep(t7)){ t8=t2; t9=C_fixnum_difference(t1,C_fix(1)); t14=t9; t15=t8; t1=t14; t2=t15; goto loop;} else{ t8=t1; t9=C_make_character(C_unfix(t8)); t10=C_i_string_set(((C_word*)t0)[2],t2,t9); t11=C_fixnum_plus(t2,C_fix(1)); t12=C_fixnum_difference(t1,C_fix(1)); t14=t12; t15=t11; t1=t14; t2=t15; goto loop;}}} /* k2640 in k2637 in char-set->string in k1295 */ static void C_ccall f_2642(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2642,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2647,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li67),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_2647(t3,C_fix(255),C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3802 in map-loop962 in k3752 in k3748 in k3744 in k3740 in k3737 in k3731 in k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3804,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3779(t6,((C_word*)t0)[5],t5);} /* k3234 in char-set-intersection in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_3236,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3239,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3246,a[2]=((C_word)li94),tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:558: %char-set-algebra */ f_2973(t3,t2,t5,t6,lf[66]);} /* k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ 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 t3; C_word t4; C_word 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_3720,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=lf[0]; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3726,a[2]=((C_word*)t0)[2],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|6,a[1]=(C_word)f_3888,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li114),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_3888(t12,t8,lf[95]);} /* k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ static void C_ccall f_3729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3729,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[83]+1 /* (set! char-set:punctuation ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3733,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:670: string->char-set */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[94]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ static void C_ccall f_3726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3726,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3729,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:667: list->char-set! */ t3=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* string->char-set! in k1295 */ 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=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,3)))){ C_save_and_reclaim((void *)f_2625,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2629,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2633,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:404: %char-set:s/check */ f_1383(t5,t3,lf[47]);} /* k2618 in k2615 in string->char-set in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2620,2,av);} /* srfi-14.scm:401: make-char-set */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2627 in string->char-set! in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2629,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2992 in lp in k2977 in g620 in %char-set-algebra in k1295 */ 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_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2994,2,av);} t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* srfi-14.scm:515: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2984(t3,((C_word*)t0)[4],t2);} /* k3737 in k3731 in k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3739,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3742,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:689: list->char-set! */ t3=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a3320 in k3311 in char-set-difference in k1295 */ 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=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_3321,5,av);} t5=C_eqp(t4,C_fix(0)); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=t1; t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_i_string_set(t2,t3,C_make_character(0)); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k3731 in k3727 in k3724 in k3718 in k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ 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 t3; C_word t4; C_word 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_3733,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=lf[0]; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3739,a[2]=((C_word*)t0)[2],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|6,a[1]=(C_word)f_3854,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li113),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_3854(t12,t8,lf[93]);} /* k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ static void C_ccall f_3701(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3701,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3704,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:649: char-set-adjoin! */ t3=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=C_make_character(170); av2[4]=C_make_character(186); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ static void C_ccall f_3708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3708,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[80]+1 /* (set! char-set:digit ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3712,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:654: string->char-set */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[97]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3704,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[79]+1 /* (set! char-set:letter ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3708,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:653: string->char-set */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[98]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3572 in char-set-diff+intersection! in k1295 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_3574,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3577,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); /* srfi-14.scm:607: %char-set:s/check */ f_1383(t3,((C_word*)t0)[4],lf[73]);} /* k3575 in k3572 in char-set-diff+intersection! in k1295 */ static void C_ccall f_3577(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3577,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3580,a[2]=((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|4,a[1]=(C_word)f_3588,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word)li108),tmp=(C_word)a,a+=5,tmp); /* srfi-14.scm:608: %string-iter */ f_2932(t3,t4,((C_word*)t0)[5]);} /* k2072 in lp in k2057 in char-set-for-each in k1295 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2074,2,av);} t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* srfi-14.scm:297: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2064(t3,((C_word*)t0)[4],t2);} /* char-set-diff+intersection! in k1295 */ 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=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_3570,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_3574,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* srfi-14.scm:606: %char-set:s/check */ f_1383(t5,t2,lf[73]);} /* char-set-map in k1295 */ 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=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_2115,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2119,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:301: %char-set:s/check */ f_1383(t4,t3,lf[34]);} /* k2117 in char-set-map in k1295 */ static void C_ccall f_2119(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2119,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2122,a[2]=((C_word*)t0)[2],a[3]=t2,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[10]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[10]+1); av2[1]=t3; av2[2]=C_fix(256); av2[3]=C_make_character(0); tp(4,av2);}} /* k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ 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,3)))){ C_save_and_reclaim((void *)f_3712,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[81]+1 /* (set! char-set:hex-digit ...) */,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); /* srfi-14.scm:657: char-set-union */ t4=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[79]+1); av2[3]=*((C_word*)lf[80]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* char-set-difference in k1295 */ static void C_ccall f_3303(C_word c,C_word *av){ C_word tmp; C_word 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_3303,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; if(C_truep(C_i_pairp(t3))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3313,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3344,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:572: %char-set:s/check */ f_1383(t5,t2,lf[69]);} else{ /* srfi-14.scm:575: char-set-copy */ t4=*((C_word*)lf[13]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k3714 in k3710 in k3706 in k3702 in k3699 in k3694 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3716,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[82]+1 /* (set! char-set:letter+digit ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3720,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:660: string->char-set */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[96]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* for-each-loop787 in %char-set-diff+intersection! in k1295 */ static void C_fcall f_3547(C_word t0,C_word t1,C_word 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_3547,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_3557,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)); /* srfi-14.scm:595: g788 */ t5=((C_word*)t0)[3]; f_3474(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);}}} /* k2120 in k2117 in char-set-map in k1295 */ 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 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_2122,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2125,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|6,a[1]=(C_word)f_2130,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=((C_word)li43),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_2130(t7,t3,C_fix(255));} /* k2123 in k2120 in k2117 in char-set-map in k1295 */ static void C_ccall f_2125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2125,2,av);} /* srfi-14.scm:308: make-char-set */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3311 in char-set-difference in k1295 */ static void C_ccall f_3313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3313,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3316,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_3321,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:573: %char-set-algebra */ f_2973(t3,t2,((C_word*)t0)[3],t4,lf[69]);} /* k3314 in k3311 in char-set-difference in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3316,2,av);} /* srfi-14.scm:574: make-char-set */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 k2057 in char-set-for-each in k1295 */ static void C_fcall f_2064(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_2064,3,t0,t1,t2);} a=C_alloc(5); t3=t2; if(C_truep(C_fixnum_greater_or_equal_p(t3,C_fix(0)))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2074,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=C_i_string_ref(((C_word*)t0)[3],t5); t7=C_fix(C_character_code(t6)); t8=C_eqp(t7,C_fix(0)); if(C_truep(C_i_not(t8))){ t9=t2; t10=C_make_character(C_unfix(t9)); /* srfi-14.scm:296: proc */ t11=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t11; av2[1]=t4; av2[2]=t10; ((C_proc)C_fast_retrieve_proc(t11))(3,av2);}} else{ t9=C_fixnum_difference(t2,C_fix(1)); /* srfi-14.scm:297: lp */ t12=t1; t13=t9; t1=t12; t2=t13; goto loop;}} 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);}}} /* a3587 in k3575 in k3572 in char-set-diff+intersection! in k1295 */ 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=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(0,c,1)))){ C_save_and_reclaim((void *)f_3588,4,av);} t4=C_eqp(t3,C_fix(0)); if(C_truep(t4)){ t5=t1; t6=t2; t7=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_i_string_set(((C_word*)t0)[2],t6,C_make_character(0)); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t5=t2; t6=C_i_string_ref(((C_word*)t0)[2],t5); t7=C_fix(C_character_code(t6)); t8=C_eqp(t7,C_fix(0)); if(C_truep(C_i_not(t8))){ t9=t1; t10=t2; t11=t9;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_i_string_set(((C_word*)t0)[3],t10,C_make_character(0)); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}} /* k3581 in k3578 in k3575 in k3572 in char-set-diff+intersection! in k1295 */ 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,3)))){ C_save_and_reclaim((void *)f_3583,2,av);} /* srfi-14.scm:613: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3578 in k3575 in k3572 in char-set-diff+intersection! in k1295 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_3580,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3583,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* srfi-14.scm:612: %char-set-diff+intersection! */ f_3472(t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],lf[73]);} /* lp in k2005 in %char-set-cursor-next in k1295 */ static C_word C_fcall f_2012(C_word t0,C_word t1){ C_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_fixnum_difference(t1,C_fix(1)); t3=C_fixnum_lessp(t2,C_fix(0)); if(C_truep(t3)){ if(C_truep(t3)){ return(t2);} else{ t8=t2; t1=t8; goto loop;}} else{ t4=C_i_string_ref(((C_word*)t0)[2],t2); t5=C_fix(C_character_code(t4)); t6=C_eqp(t5,C_fix(0)); if(C_truep(C_i_not(t6))){ return(t2);} else{ t8=t2; t1=t8; goto loop;}}} /* char-set-hash in k1295 */ 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=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_1585,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; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_fix(4194304):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_1592,a[2]=t7,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t9=C_eqp(((C_word*)t7)[1],C_fix(0)); if(C_truep(t9)){ t10=C_set_block_item(t7,0,C_fix(4194304)); t11=t8; f_1592(t11,t10);} else{ t10=t8; f_1592(t10,C_SCHEME_UNDEFINED);}} /* k3050 in k3047 in char-set-complement in k1295 */ static void C_ccall f_3052(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3052,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3055,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_3060,a[2]=t2,a[3]=((C_word)li84),tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:524: %string-iter */ f_2932(t3,t4,((C_word*)t0)[3]);} /* k3053 in k3050 in k3047 in char-set-complement in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3055,2,av);} /* srfi-14.scm:525: make-char-set */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1596 in k1590 in char-set-hash in k1295 */ 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 t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_1598,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1656,a[2]=((C_word*)t0)[2],a[3]=((C_word)li13),tmp=(C_word)a,a+=4,tmp); t4=( f_1656(t3,C_fix(65536)) ); 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|6,a[1]=(C_word)f_1606,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t7,a[5]=t5,a[6]=((C_word)li14),tmp=(C_word)a,a+=7,tmp)); t9=((C_word*)t7)[1]; f_1606(t9,((C_word*)t0)[3],C_fix(255),C_fix(0));} /* for-each-loop619 in %char-set-algebra in k1295 */ static void C_fcall f_3022(C_word t0,C_word t1,C_word 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_3022,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_3032,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)); /* srfi-14.scm:509: g620 */ t5=((C_word*)t0)[3]; f_2975(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);}}} /* k1590 in char-set-hash in k1295 */ static void C_fcall f_1592(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_1592,2,t0,t1);} a=C_alloc(4); t2=C_i_check_exact_2(((C_word*)((C_word*)t0)[2])[1],lf[16]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1598,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:200: %char-set:s/check */ f_1383(t3,((C_word*)t0)[4],lf[16]);} /* k2409 in char-set-unfold in k1295 */ static void C_ccall f_2411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2411,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2414,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:347: %char-set-unfold! */ f_2365(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2,((C_word*)t0)[6]);} /* k2412 in k2409 in char-set-unfold in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2414,2,av);} /* srfi-14.scm:348: make-char-set */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* char-set-unfold! in k1295 */ static void C_ccall f_2419(C_word c,C_word *av){ C_word tmp; C_word t0=av[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 *a; if(c!=7) C_bad_argc_2(c,7,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_2419,7,av);} a=C_alloc(11); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2423,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2427,a[2]=t7,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); /* srfi-14.scm:352: %char-set:s/check */ f_1383(t8,t6,lf[40]);} /* k2977 in g620 in %char-set-algebra in k1295 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2979,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_2984,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li80),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_2984(t6,((C_word*)t0)[4],C_fix(255));} /* g620 in %char-set-algebra in k1295 */ static void C_fcall f_2975(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_2975,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2979,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* srfi-14.scm:511: %char-set:s/check */ f_1383(t3,t2,((C_word*)t0)[4]);} /* %char-set-algebra in k1295 */ static void C_fcall f_2973(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(13,0,3)))){ C_save_and_reclaim_args((void *)trf_2973,5,t1,t2,t3,t4,t5);} a=C_alloc(13); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2975,a[2]=t4,a[3]=t2,a[4]=t5,a[5]=((C_word)li81),tmp=(C_word)a,a+=6,tmp); t7=C_i_check_list_2(t3,lf[22]); 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_3022,a[2]=t9,a[3]=t6,a[4]=((C_word)li82),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_3022(t11,t1,t3);} /* char-set-difference! in k1295 */ static void C_ccall f_3272(C_word c,C_word *av){ C_word tmp; C_word 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_3272,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|3,a[1]=(C_word)f_3276,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3280,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:566: %char-set:s/check */ f_1383(t5,t2,lf[68]);} /* k3274 in char-set-difference! in k1295 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3276,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2421 in char-set-unfold! in k1295 */ static void C_ccall f_2423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2423,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2425 in char-set-unfold! in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_2427,2,av);} /* srfi-14.scm:351: %char-set-unfold! */ f_2365(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,((C_word*)t0)[6]);} /* %list->char-set! in k1295 */ static void C_fcall f_2429(C_word 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_2429,3,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2431,a[2]=t3,a[3]=((C_word)li55),tmp=(C_word)a,a+=4,tmp); t5=C_i_check_list_2(t2,lf[22]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2452,a[2]=t4,a[3]=((C_word)li56),tmp=(C_word)a,a+=4,tmp); t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=( f_2452(t6,t2) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* char-set-complement in k1295 */ static void C_ccall f_3045(C_word c,C_word *av){ C_word tmp; C_word 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,3)))){ C_save_and_reclaim((void *)f_3045,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3049,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:522: %char-set:s/check */ f_1383(t3,t2,lf[60]);} /* lp in k2977 in g620 in %char-set-algebra in k1295 */ static void C_fcall f_2984(C_word t0,C_word t1,C_word 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(5,0,4)))){ C_save_and_reclaim_args((void *)trf_2984,3,t0,t1,t2);} a=C_alloc(5); t3=t2; if(C_truep(C_fixnum_greater_or_equal_p(t3,C_fix(0)))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2994,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=C_i_string_ref(((C_word*)t0)[3],t5); t7=C_fix(C_character_code(t6)); /* srfi-14.scm:514: op */ t8=((C_word*)t0)[4];{ C_word av2[5]; av2[0]=t8; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=t2; av2[4]=t7; ((C_proc)C_fast_retrieve_proc(t8))(5,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);}}} /* k3047 in char-set-complement in k1295 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3049,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3052,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[10]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[10]+1); av2[1]=t3; av2[2]=C_fix(256); av2[3]=C_make_character(32); tp(4,av2);}} /* k3201 in char-set-intersection! in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3203,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3205 in char-set-intersection! in k1295 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3207,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3209,a[2]=((C_word)li92),tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:551: %char-set-algebra */ f_2973(((C_word*)t0)[2],t1,((C_word*)t0)[3],t2,lf[65]);} /* a3208 in k3205 in char-set-intersection! in k1295 */ 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=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_3209,5,av);} t5=C_eqp(t4,C_fix(0)); if(C_truep(t5)){ t6=t1; t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_i_string_set(t2,t3,C_make_character(0)); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k2950 in lp in %string-iter in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2952,2,av);} t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* srfi-14.scm:501: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2942(t3,((C_word*)t0)[4],t2);} /* k3090 in k3087 in char-set-complement! in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3092,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a3093 in k3087 in char-set-complement! in k1295 */ 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=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_3094,4,av);} t4=C_fixnum_difference(C_fix(1),t3); t5=C_make_character(C_unfix(t4)); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_string_set(((C_word*)t0)[2],t2,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k2399 in k2403 in lp in %char-set-unfold! in k1295 */ 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 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_2401,2,av);} a=C_alloc(4); t2=C_fix(C_character_code(t1)); t3=((C_word*)t0)[2]; t4=C_i_string_set(t3,t2,C_make_character(1)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2393,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:343: g */ t6=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} /* char-set-unfold in k1295 */ 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=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); if(C_unlikely(!C_demand(C_calculate_demand((c-6)*C_SIZEOF_PAIR +7,c,3)))){ C_save_and_reclaim((void*)f_2407,c,av);} a=C_alloc((c-6)*C_SIZEOF_PAIR+7); t6=C_build_rest(&a,c,6,av); C_word t7; C_word t8; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2411,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); /* srfi-14.scm:346: %default-base */ f_1339(t7,t6,*((C_word*)lf[39]+1));} /* k2403 in lp in %char-set-unfold! in k1295 */ static void C_ccall f_2405(C_word c,C_word *av){ C_word tmp; C_word t0=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_2405,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_2401,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); /* srfi-14.scm:342: f */ t3=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} /* a3059 in k3050 in k3047 in char-set-complement in k1295 */ 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=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_3060,4,av);} t4=C_fixnum_difference(C_fix(1),t3); t5=C_make_character(C_unfix(t4)); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_string_set(((C_word*)t0)[2],t2,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* char-set-intersection in k1295 */ 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; 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_3226,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; if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3236,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3265,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=t2; t6=C_u_i_car(t5); /* srfi-14.scm:557: %char-set:s/check */ f_1383(t4,t6,lf[66]);} else{ /* srfi-14.scm:560: char-set-copy */ t3=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=*((C_word*)lf[67]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k3030 in for-each-loop619 in %char-set-algebra in k1295 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3032,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3022(t3,((C_word*)t0)[4],t2);} /* char-set-xor! in k1295 */ 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=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_3349,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|3,a[1]=(C_word)f_3353,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3357,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:581: %char-set:s/check */ f_1383(t5,t2,lf[70]);} /* lp in k2250 in char-set-every in k1295 */ static void C_fcall f_2257(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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(5,0,2)))){ C_save_and_reclaim_args((void *)trf_2257,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=C_fixnum_lessp(t3,C_fix(0)); 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_i_string_ref(((C_word*)t0)[2],t5); t7=C_fix(C_character_code(t6)); t8=C_eqp(t7,C_fix(0)); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2286,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(t8)){ if(C_truep(t8)){ t10=C_fixnum_difference(t2,C_fix(1)); /* srfi-14.scm:325: lp */ t13=t1; t14=t10; 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);}}} else{ t10=t2; t11=C_make_character(C_unfix(t10)); /* srfi-14.scm:324: pred */ t12=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t12; av2[1]=t9; av2[2]=t11; ((C_proc)C_fast_retrieve_proc(t12))(3,av2);}}}} /* k2250 in char-set-every in k1295 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_2252,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_2257,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_2257(t6,((C_word*)t0)[3],C_fix(255));} /* k3342 in char-set-difference in k1295 */ static void C_ccall f_3344(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3344,2,av);} t2=C_i_string_length(t1); /* srfi-14.scm:102: substring */ t3=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(0); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3087 in char-set-complement! in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_3089,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3092,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_3094,a[2]=t2,a[3]=((C_word)li86),tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:529: %string-iter */ f_2932(t3,t4,t2);} /* char-set-complement! in k1295 */ static void C_ccall f_3085(C_word c,C_word *av){ C_word tmp; C_word 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_3085,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3089,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:528: %char-set:s/check */ f_1383(t3,t2,lf[61]);} /* a3358 in k3355 in char-set-xor! in k1295 */ 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=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(0,c,1)))){ C_save_and_reclaim((void *)f_3359,5,av);} t5=C_eqp(t4,C_fix(0)); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=t2; t7=t3; t8=C_i_string_ref(t6,t7); t9=C_fix(C_character_code(t8)); t10=C_fixnum_difference(C_fix(1),t9); t11=t1; t12=t2; t13=t3; t14=C_make_character(C_unfix(t10)); t15=t11;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=C_i_string_set(t12,t13,t14); ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}} /* k3355 in char-set-xor! in k1295 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3357,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3359,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:581: %char-set-algebra */ f_2973(((C_word*)t0)[2],t1,((C_word*)t0)[3],t2,lf[70]);} /* k3351 in char-set-xor! in k1295 */ 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,1)))){ C_save_and_reclaim((void *)f_3353,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* char-set-every in k1295 */ 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=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_2248,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2252,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:321: %char-set:s/check */ f_1383(t4,t3,lf[36]);} /* char-set= in k1295 */ static void C_ccall f_1430(C_word c,C_word *av){ C_word tmp; 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_1430,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; t3=C_i_nullp(t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1444,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* srfi-14.scm:162: %char-set:s/check */ f_1383(t7,t4,lf[14]);}} /* lp in k1442 in char-set= in k1295 */ static void C_fcall f_1449(C_word t0,C_word 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_1449,3,t0,t1,t2);} a=C_alloc(6); 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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1471,a[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=C_i_car(t2); /* srfi-14.scm:165: %char-set:s/check */ f_1383(t5,t6,lf[14]);}} /* k1442 in char-set= in k1295 */ 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 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_1444,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_1449,a[2]=t2,a[3]=t4,a[4]=((C_word)li8),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_1449(t6,((C_word*)t0)[2],((C_word*)t0)[3]);} /* k1295 */ static void C_ccall f_1297(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(192,c,7)))){ C_save_and_reclaim((void *)f_1297,2,av);} a=C_alloc(192); t2=C_mutate2(&lf[0] /* (set! %latin1->char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1299,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[1]+1 /* (set! make-char-set ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1311,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[3]+1 /* (set! char-set:s ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1317,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[4]+1 /* (set! char-set? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1323,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2(&lf[5] /* (set! %default-base ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1339,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2(&lf[11] /* (set! %char-set:s/check ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1383,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[13]+1 /* (set! char-set-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1416,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[14]+1 /* (set! char-set= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1430,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[15]+1 /* (set! char-set<= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1481,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[16]+1 /* (set! char-set-hash ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1585,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[18]+1 /* (set! char-set-contains? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1685,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[19]+1 /* (set! char-set-size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1724,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[20]+1 /* (set! char-set-count ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1766,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2(&lf[21] /* (set! %set-char-set ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1833,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2(&lf[23] /* (set! %set-char-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1884,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[24]+1 /* (set! char-set-adjoin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1928,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2((C_word*)lf[25]+1 /* (set! char-set-adjoin! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1940,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2((C_word*)lf[26]+1 /* (set! char-set-delete ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1952,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2((C_word*)lf[27]+1 /* (set! char-set-delete! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1964,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate2((C_word*)lf[28]+1 /* (set! char-set-cursor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1976,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate2((C_word*)lf[30]+1 /* (set! end-of-char-set? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1982,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate2((C_word*)lf[31]+1 /* (set! char-set-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1988,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate2((C_word*)lf[32]+1 /* (set! char-set-cursor-next ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1994,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate2(&lf[29] /* (set! %char-set-cursor-next ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2003,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate2((C_word*)lf[33]+1 /* (set! char-set-for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2055,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate2((C_word*)lf[34]+1 /* (set! char-set-map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2115,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate2((C_word*)lf[35]+1 /* (set! char-set-fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2196,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate2((C_word*)lf[36]+1 /* (set! char-set-every ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2248,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate2((C_word*)lf[37]+1 /* (set! char-set-any ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2302,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp)); t31=C_mutate2(&lf[38] /* (set! %char-set-unfold! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2365,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate2((C_word*)lf[39]+1 /* (set! char-set-unfold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2407,a[2]=((C_word)li53),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate2((C_word*)lf[40]+1 /* (set! char-set-unfold! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2419,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate2(&lf[41] /* (set! %list->char-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2429,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate2((C_word*)lf[2]+1 /* (set! char-set ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2475,a[2]=((C_word)li58),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate2((C_word*)lf[42]+1 /* (set! list->char-set ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2489,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate2((C_word*)lf[43]+1 /* (set! list->char-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2501,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate2((C_word*)lf[44]+1 /* (set! char-set->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2511,a[2]=((C_word)li62),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate2(&lf[45] /* (set! %string->char-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2563,a[2]=((C_word)li64),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate2((C_word*)lf[46]+1 /* (set! string->char-set ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2613,a[2]=((C_word)li65),tmp=(C_word)a,a+=3,tmp)); t41=C_mutate2((C_word*)lf[47]+1 /* (set! string->char-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2625,a[2]=((C_word)li66),tmp=(C_word)a,a+=3,tmp)); t42=C_mutate2((C_word*)lf[48]+1 /* (set! char-set->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2635,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp)); t43=C_mutate2(&lf[49] /* (set! %ucs-range->char-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2696,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp)); t44=C_mutate2((C_word*)lf[51]+1 /* (set! ucs-range->char-set ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2764,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp)); t45=C_mutate2((C_word*)lf[52]+1 /* (set! ucs-range->char-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2794,a[2]=((C_word)li72),tmp=(C_word)a,a+=3,tmp)); t46=C_mutate2(&lf[53] /* (set! %char-set-filter! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2804,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp)); t47=C_mutate2((C_word*)lf[54]+1 /* (set! char-set-filter ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2872,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp)); t48=C_mutate2((C_word*)lf[55]+1 /* (set! char-set-filter! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2888,a[2]=((C_word)li76),tmp=(C_word)a,a+=3,tmp)); t49=C_mutate2((C_word*)lf[56]+1 /* (set! ->char-set ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2902,a[2]=((C_word)li77),tmp=(C_word)a,a+=3,tmp)); t50=C_mutate2(&lf[58] /* (set! %string-iter ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2932,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp)); t51=C_mutate2(&lf[59] /* (set! %char-set-algebra ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2973,a[2]=((C_word)li83),tmp=(C_word)a,a+=3,tmp)); t52=C_mutate2((C_word*)lf[60]+1 /* (set! char-set-complement ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3045,a[2]=((C_word)li85),tmp=(C_word)a,a+=3,tmp)); t53=C_mutate2((C_word*)lf[61]+1 /* (set! char-set-complement! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3085,a[2]=((C_word)li87),tmp=(C_word)a,a+=3,tmp)); t54=C_mutate2((C_word*)lf[62]+1 /* (set! char-set-union! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3118,a[2]=((C_word)li89),tmp=(C_word)a,a+=3,tmp)); t55=C_mutate2((C_word*)lf[63]+1 /* (set! char-set-union ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3149,a[2]=((C_word)li91),tmp=(C_word)a,a+=3,tmp)); t56=C_mutate2((C_word*)lf[65]+1 /* (set! char-set-intersection! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3199,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp)); t57=C_mutate2((C_word*)lf[66]+1 /* (set! char-set-intersection ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3226,a[2]=((C_word)li95),tmp=(C_word)a,a+=3,tmp)); t58=C_mutate2((C_word*)lf[68]+1 /* (set! char-set-difference! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3272,a[2]=((C_word)li97),tmp=(C_word)a,a+=3,tmp)); t59=C_mutate2((C_word*)lf[69]+1 /* (set! char-set-difference ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3303,a[2]=((C_word)li99),tmp=(C_word)a,a+=3,tmp)); t60=C_mutate2((C_word*)lf[70]+1 /* (set! char-set-xor! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3349,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp)); t61=C_mutate2((C_word*)lf[71]+1 /* (set! char-set-xor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3401,a[2]=((C_word)li103),tmp=(C_word)a,a+=3,tmp)); t62=C_mutate2(&lf[72] /* (set! %char-set-diff+intersection! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3472,a[2]=((C_word)li107),tmp=(C_word)a,a+=3,tmp)); t63=C_mutate2((C_word*)lf[73]+1 /* (set! char-set-diff+intersection! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3570,a[2]=((C_word)li109),tmp=(C_word)a,a+=3,tmp)); t64=C_mutate2((C_word*)lf[74]+1 /* (set! char-set-diff+intersection ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3641,a[2]=((C_word)li110),tmp=(C_word)a,a+=3,tmp)); t65=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3672,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:630: char-set */ t66=*((C_word*)lf[2]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t66; av2[1]=t65; ((C_proc)(void*)(*((C_word*)t66+1)))(2,av2);}} /* %latin1->char in k1295 */ static void C_ccall f_1299(C_word c,C_word *av){ C_word tmp; C_word 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_1299,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_make_character(C_unfix(t2)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1497 in char-set<= in k1295 */ static void C_ccall f_1499(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1499,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_1501,a[2]=t3,a[3]=((C_word)li11),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_1501(t5,((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* k2284 in lp in k2250 in char-set-every in k1295 */ static void C_ccall f_2286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2286,2,av);} if(C_truep(t1)){ t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* srfi-14.scm:325: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2257(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3930 in k3691 in k3687 in k3684 in k3681 in k3678 in k3674 in k3670 in k1295 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3932,2,av);} /* srfi-14.scm:642: ucs-range->char-set! */ t2=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(216); av2[3]=C_fix(223); av2[4]=C_SCHEME_TRUE; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_srfi_2d14_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_2d14_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_srfi_2d14_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(620))){ C_save(t1); C_rereclaim2(620*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,101); lf[1]=C_h_intern(&lf[1],13,"make-char-set"); lf[2]=C_h_intern(&lf[2],8,"char-set"); lf[3]=C_h_intern(&lf[3],10,"char-set:s"); lf[4]=C_h_intern(&lf[4],9,"char-set\077"); lf[6]=C_h_intern(&lf[6],9,"substring"); lf[7]=C_h_intern(&lf[7],9,"\003syserror"); lf[8]=C_decode_literal(C_heaptop,"\376B\000\000 BASE-CS parameter not a char-set"); lf[9]=C_decode_literal(C_heaptop,"\376B\000\0003Expected final base char set -- too many parameters"); lf[10]=C_h_intern(&lf[10],15,"\003sysmake-string"); lf[12]=C_decode_literal(C_heaptop,"\376B\000\000\016Not a char-set"); lf[13]=C_h_intern(&lf[13],13,"char-set-copy"); lf[14]=C_h_intern(&lf[14],9,"char-set="); lf[15]=C_h_intern(&lf[15],10,"char-set<="); lf[16]=C_h_intern(&lf[16],13,"char-set-hash"); lf[17]=C_h_intern(&lf[17],6,"modulo"); lf[18]=C_h_intern(&lf[18],18,"char-set-contains\077"); lf[19]=C_h_intern(&lf[19],13,"char-set-size"); lf[20]=C_h_intern(&lf[20],14,"char-set-count"); lf[22]=C_h_intern(&lf[22],8,"for-each"); lf[24]=C_h_intern(&lf[24],15,"char-set-adjoin"); lf[25]=C_h_intern(&lf[25],16,"char-set-adjoin!"); lf[26]=C_h_intern(&lf[26],15,"char-set-delete"); lf[27]=C_h_intern(&lf[27],16,"char-set-delete!"); lf[28]=C_h_intern(&lf[28],15,"char-set-cursor"); lf[30]=C_h_intern(&lf[30],16,"end-of-char-set\077"); lf[31]=C_h_intern(&lf[31],12,"char-set-ref"); lf[32]=C_h_intern(&lf[32],20,"char-set-cursor-next"); lf[33]=C_h_intern(&lf[33],17,"char-set-for-each"); lf[34]=C_h_intern(&lf[34],12,"char-set-map"); lf[35]=C_h_intern(&lf[35],13,"char-set-fold"); lf[36]=C_h_intern(&lf[36],14,"char-set-every"); lf[37]=C_h_intern(&lf[37],12,"char-set-any"); lf[39]=C_h_intern(&lf[39],15,"char-set-unfold"); lf[40]=C_h_intern(&lf[40],16,"char-set-unfold!"); lf[42]=C_h_intern(&lf[42],14,"list->char-set"); lf[43]=C_h_intern(&lf[43],15,"list->char-set!"); lf[44]=C_h_intern(&lf[44],14,"char-set->list"); lf[46]=C_h_intern(&lf[46],16,"string->char-set"); lf[47]=C_h_intern(&lf[47],17,"string->char-set!"); lf[48]=C_h_intern(&lf[48],16,"char-set->string"); lf[50]=C_decode_literal(C_heaptop,"\376B\000\000`Requested UCS range contains unavailable characters -- this implementation " "only supports Latin-1"); lf[51]=C_h_intern(&lf[51],19,"ucs-range->char-set"); lf[52]=C_h_intern(&lf[52],20,"ucs-range->char-set!"); lf[54]=C_h_intern(&lf[54],15,"char-set-filter"); lf[55]=C_h_intern(&lf[55],16,"char-set-filter!"); lf[56]=C_h_intern(&lf[56],10,"->char-set"); lf[57]=C_decode_literal(C_heaptop,"\376B\000\000\036Not a charset, string or char."); lf[60]=C_h_intern(&lf[60],19,"char-set-complement"); lf[61]=C_h_intern(&lf[61],20,"char-set-complement!"); lf[62]=C_h_intern(&lf[62],15,"char-set-union!"); lf[63]=C_h_intern(&lf[63],14,"char-set-union"); lf[64]=C_h_intern(&lf[64],14,"char-set:empty"); lf[65]=C_h_intern(&lf[65],22,"char-set-intersection!"); lf[66]=C_h_intern(&lf[66],21,"char-set-intersection"); lf[67]=C_h_intern(&lf[67],13,"char-set:full"); lf[68]=C_h_intern(&lf[68],20,"char-set-difference!"); lf[69]=C_h_intern(&lf[69],19,"char-set-difference"); lf[70]=C_h_intern(&lf[70],13,"char-set-xor!"); lf[71]=C_h_intern(&lf[71],12,"char-set-xor"); lf[73]=C_h_intern(&lf[73],27,"char-set-diff+intersection!"); lf[74]=C_h_intern(&lf[74],26,"char-set-diff+intersection"); lf[75]=C_h_intern(&lf[75],11,"string-copy"); lf[76]=C_h_intern(&lf[76],19,"char-set:lower-case"); lf[77]=C_h_intern(&lf[77],19,"char-set:upper-case"); lf[78]=C_h_intern(&lf[78],19,"char-set:title-case"); lf[79]=C_h_intern(&lf[79],15,"char-set:letter"); lf[80]=C_h_intern(&lf[80],14,"char-set:digit"); lf[81]=C_h_intern(&lf[81],18,"char-set:hex-digit"); lf[82]=C_h_intern(&lf[82],21,"char-set:letter+digit"); lf[83]=C_h_intern(&lf[83],20,"char-set:punctuation"); lf[84]=C_h_intern(&lf[84],15,"char-set:symbol"); lf[85]=C_h_intern(&lf[85],16,"char-set:graphic"); lf[86]=C_h_intern(&lf[86],19,"char-set:whitespace"); lf[87]=C_h_intern(&lf[87],17,"char-set:printing"); lf[88]=C_h_intern(&lf[88],14,"char-set:blank"); lf[89]=C_h_intern(&lf[89],20,"char-set:iso-control"); lf[90]=C_h_intern(&lf[90],14,"char-set:ascii"); lf[91]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\001\000\000\000\011\376\003\000\000\002\376\377\001\000\000\000 \376\003\000\000\002\376\377\001\000\000\000\240\376\377\016"); lf[92]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\001\000\000\000\011\376\003\000\000\002\376\377\001\000\000\000\012\376\003\000\000\002\376\377\001\000\000\000\013\376\003\000\000\002\376\377\001\000\000\000\014\376\003\000\000\002\376\377\001\000\000\000\015\376\003\000\000\002\376\377\001\000\000\000 \376\003\000\000\002\376\377\001" "\000\000\000\240\376\377\016"); lf[93]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\001\000\000\000\242\376\003\000\000\002\376\377\001\000\000\000\243\376\003\000\000\002\376\377\001\000\000\000\244\376\003\000\000\002\376\377\001\000\000\000\245\376\003\000\000\002\376\377\001\000\000\000\246\376\003\000\000\002\376\377\001\000\000\000\247\376\003\000\000\002\376\377\001" "\000\000\000\250\376\003\000\000\002\376\377\001\000\000\000\251\376\003\000\000\002\376\377\001\000\000\000\254\376\003\000\000\002\376\377\001\000\000\000\256\376\003\000\000\002\376\377\001\000\000\000\257\376\003\000\000\002\376\377\001\000\000\000\260\376\003\000\000\002\376\377\001\000\000\000\261\376\003\000\000" "\002\376\377\001\000\000\000\264\376\003\000\000\002\376\377\001\000\000\000\266\376\003\000\000\002\376\377\001\000\000\000\270\376\003\000\000\002\376\377\001\000\000\000\327\376\003\000\000\002\376\377\001\000\000\000\367\376\377\016"); lf[94]=C_decode_literal(C_heaptop,"\376B\000\000\011$+<=>^`|~"); lf[95]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\001\000\000\000\241\376\003\000\000\002\376\377\001\000\000\000\253\376\003\000\000\002\376\377\001\000\000\000\255\376\003\000\000\002\376\377\001\000\000\000\267\376\003\000\000\002\376\377\001\000\000\000\273\376\003\000\000\002\376\377\001\000\000\000\277\376\377\016"); lf[96]=C_decode_literal(C_heaptop,"\376B\000\000\027!\042#%&\047()\052,-./:;\077@[\134]_{}"); lf[97]=C_decode_literal(C_heaptop,"\376B\000\000\0260123456789abcdefABCDEF"); lf[98]=C_decode_literal(C_heaptop,"\376B\000\000\0120123456789"); lf[99]=C_h_intern(&lf[99],17,"register-feature!"); lf[100]=C_h_intern(&lf[100],7,"srfi-14"); C_register_lf2(lf,101,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1297,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-14.scm:15: register-feature! */ t3=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[100]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k1469 in lp in k1442 in char-set= in k1295 */ 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_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1471,2,av);} if(C_truep(C_i_string_equal_p(((C_word*)t0)[2],t1))){ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* srfi-14.scm:166: lp */ t4=((C_word*)((C_word*)t0)[4])[1]; f_1449(t4,((C_word*)t0)[5],t3);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[263] = { {"f_3662:srfi_2d14_2escm",(void*)f_3662}, {"f_3668:srfi_2d14_2escm",(void*)f_3668}, {"f_1481:srfi_2d14_2escm",(void*)f_1481}, {"f_2130:srfi_2d14_2escm",(void*)f_2130}, {"f_1501:srfi_2d14_2escm",(void*)f_1501}, {"f_3672:srfi_2d14_2escm",(void*)f_3672}, {"f_1339:srfi_2d14_2escm",(void*)f_1339}, {"f_3676:srfi_2d14_2escm",(void*)f_3676}, {"f_1511:srfi_2d14_2escm",(void*)f_1511}, {"f_3686:srfi_2d14_2escm",(void*)f_3686}, {"f_3683:srfi_2d14_2escm",(void*)f_3683}, {"f_3680:srfi_2d14_2escm",(void*)f_3680}, {"f_1526:srfi_2d14_2escm",(void*)f_1526}, {"f_2196:srfi_2d14_2escm",(void*)f_2196}, {"f_3689:srfi_2d14_2escm",(void*)f_3689}, {"f_3696:srfi_2d14_2escm",(void*)f_3696}, {"f_3693:srfi_2d14_2escm",(void*)f_3693}, {"f_2321:srfi_2d14_2escm",(void*)f_2321}, {"f_1367:srfi_2d14_2escm",(void*)f_1367}, {"f_1360:srfi_2d14_2escm",(void*)f_1360}, {"f_2798:srfi_2d14_2escm",(void*)f_2798}, {"f_2794:srfi_2d14_2escm",(void*)f_2794}, {"f_2302:srfi_2d14_2escm",(void*)f_2302}, {"f_2306:srfi_2d14_2escm",(void*)f_2306}, {"f_2188:srfi_2d14_2escm",(void*)f_2188}, {"f_1383:srfi_2d14_2escm",(void*)f_1383}, {"f_1389:srfi_2d14_2escm",(void*)f_1389}, {"f_1317:srfi_2d14_2escm",(void*)f_1317}, {"f_2452:srfi_2d14_2escm",(void*)f_2452}, {"f_1311:srfi_2d14_2escm",(void*)f_1311}, {"f_1396:srfi_2d14_2escm",(void*)f_1396}, {"f_1323:srfi_2d14_2escm",(void*)f_1323}, {"f_2431:srfi_2d14_2escm",(void*)f_2431}, {"f_1889:srfi_2d14_2escm",(void*)f_1889}, {"f_1888:srfi_2d14_2escm",(void*)f_1888}, {"f_1882:srfi_2d14_2escm",(void*)f_1882}, {"f_1884:srfi_2d14_2escm",(void*)f_1884}, {"f_1852:srfi_2d14_2escm",(void*)f_1852}, {"f_1857:srfi_2d14_2escm",(void*)f_1857}, {"f_2496:srfi_2d14_2escm",(void*)f_2496}, {"f_2311:srfi_2d14_2escm",(void*)f_2311}, {"f_2493:srfi_2d14_2escm",(void*)f_2493}, {"f_2896:srfi_2d14_2escm",(void*)f_2896}, {"f_2892:srfi_2d14_2escm",(void*)f_2892}, {"f_1867:srfi_2d14_2escm",(void*)f_1867}, {"f_3465:srfi_2d14_2escm",(void*)f_3465}, {"f_2479:srfi_2d14_2escm",(void*)f_2479}, {"f_2475:srfi_2d14_2escm",(void*)f_2475}, {"f_3474:srfi_2d14_2escm",(void*)f_3474}, {"f_3472:srfi_2d14_2escm",(void*)f_3472}, {"f_1416:srfi_2d14_2escm",(void*)f_1416}, {"f_2489:srfi_2d14_2escm",(void*)f_2489}, {"f_2482:srfi_2d14_2escm",(void*)f_2482}, {"f_1424:srfi_2d14_2escm",(void*)f_1424}, {"f_3480:srfi_2d14_2escm",(void*)f_3480}, {"f_1428:srfi_2d14_2escm",(void*)f_1428}, {"f_2888:srfi_2d14_2escm",(void*)f_2888}, {"f_2886:srfi_2d14_2escm",(void*)f_2886}, {"f_1406:srfi_2d14_2escm",(void*)f_1406}, {"f_1775:srfi_2d14_2escm",(void*)f_1775}, {"f_3913:srfi_2d14_2escm",(void*)f_3913}, {"f_1770:srfi_2d14_2escm",(void*)f_1770}, {"f_1796:srfi_2d14_2escm",(void*)f_1796}, {"f_2576:srfi_2d14_2escm",(void*)f_2576}, {"f_1766:srfi_2d14_2escm",(void*)f_1766}, {"f_2706:srfi_2d14_2escm",(void*)f_2706}, {"f_2715:srfi_2d14_2escm",(void*)f_2715}, {"f_3762:srfi_2d14_2escm",(void*)f_3762}, {"f_3766:srfi_2d14_2escm",(void*)f_3766}, {"f_3118:srfi_2d14_2escm",(void*)f_3118}, {"f_3777:srfi_2d14_2escm",(void*)f_3777}, {"f_3779:srfi_2d14_2escm",(void*)f_3779}, {"f_2764:srfi_2d14_2escm",(void*)f_2764}, {"f_3770:srfi_2d14_2escm",(void*)f_3770}, {"f_3645:srfi_2d14_2escm",(void*)f_3645}, {"f_3648:srfi_2d14_2escm",(void*)f_3648}, {"f_3641:srfi_2d14_2escm",(void*)f_3641}, {"f_3122:srfi_2d14_2escm",(void*)f_3122}, {"f_3126:srfi_2d14_2escm",(void*)f_3126}, {"f_3128:srfi_2d14_2escm",(void*)f_3128}, {"f_2777:srfi_2d14_2escm",(void*)f_2777}, {"f_3742:srfi_2d14_2escm",(void*)f_3742}, {"f_3746:srfi_2d14_2escm",(void*)f_3746}, {"f_2774:srfi_2d14_2escm",(void*)f_2774}, {"f_3658:srfi_2d14_2escm",(void*)f_3658}, {"f_3651:srfi_2d14_2escm",(void*)f_3651}, {"f_2365:srfi_2d14_2escm",(void*)f_2365}, {"f_1903:srfi_2d14_2escm",(void*)f_1903}, {"f_3854:srfi_2d14_2escm",(void*)f_3854}, {"f_2746:srfi_2d14_2escm",(void*)f_2746}, {"f_3754:srfi_2d14_2escm",(void*)f_3754}, {"f_3758:srfi_2d14_2escm",(void*)f_3758}, {"f_3750:srfi_2d14_2escm",(void*)f_3750}, {"f_1905:srfi_2d14_2escm",(void*)f_1905}, {"f_1915:srfi_2d14_2escm",(void*)f_1915}, {"f_2830:srfi_2d14_2escm",(void*)f_2830}, {"f_3879:srfi_2d14_2escm",(void*)f_3879}, {"f_1928:srfi_2d14_2escm",(void*)f_1928}, {"f_1656:srfi_2d14_2escm",(void*)f_1656}, {"f_3845:srfi_2d14_2escm",(void*)f_3845}, {"f_1934:srfi_2d14_2escm",(void*)f_1934}, {"f_2810:srfi_2d14_2escm",(void*)f_2810}, {"f_2696:srfi_2d14_2escm",(void*)f_2696}, {"f_2694:srfi_2d14_2escm",(void*)f_2694}, {"f_1838:srfi_2d14_2escm",(void*)f_1838}, {"f_1837:srfi_2d14_2escm",(void*)f_1837}, {"f_1833:srfi_2d14_2escm",(void*)f_1833}, {"f_2371:srfi_2d14_2escm",(void*)f_2371}, {"f_2055:srfi_2d14_2escm",(void*)f_2055}, {"f_2059:srfi_2d14_2escm",(void*)f_2059}, {"f_2876:srfi_2d14_2escm",(void*)f_2876}, {"f_2879:srfi_2d14_2escm",(void*)f_2879}, {"f_2872:srfi_2d14_2escm",(void*)f_2872}, {"f_1685:srfi_2d14_2escm",(void*)f_1685}, {"f_3401:srfi_2d14_2escm",(void*)f_3401}, {"f_2804:srfi_2d14_2escm",(void*)f_2804}, {"f_2802:srfi_2d14_2escm",(void*)f_2802}, {"f_3411:srfi_2d14_2escm",(void*)f_3411}, {"f_3414:srfi_2d14_2escm",(void*)f_3414}, {"f_3888:srfi_2d14_2escm",(void*)f_3888}, {"f_3421:srfi_2d14_2escm",(void*)f_3421}, {"f_1982:srfi_2d14_2escm",(void*)f_1982}, {"f_1988:srfi_2d14_2escm",(void*)f_1988}, {"f_1994:srfi_2d14_2escm",(void*)f_1994}, {"f_3159:srfi_2d14_2escm",(void*)f_3159}, {"f_2515:srfi_2d14_2escm",(void*)f_2515}, {"f_2511:srfi_2d14_2escm",(void*)f_2511}, {"f_1718:srfi_2d14_2escm",(void*)f_1718}, {"f_3169:srfi_2d14_2escm",(void*)f_3169}, {"f_2520:srfi_2d14_2escm",(void*)f_2520}, {"f_3162:srfi_2d14_2escm",(void*)f_3162}, {"f_2393:srfi_2d14_2escm",(void*)f_2393}, {"f_1940:srfi_2d14_2escm",(void*)f_1940}, {"f_2902:srfi_2d14_2escm",(void*)f_2902}, {"f_2900:srfi_2d14_2escm",(void*)f_2900}, {"f_1946:srfi_2d14_2escm",(void*)f_1946}, {"f_3149:srfi_2d14_2escm",(void*)f_3149}, {"f_2505:srfi_2d14_2escm",(void*)f_2505}, {"f_1733:srfi_2d14_2escm",(void*)f_1733}, {"f_2501:srfi_2d14_2escm",(void*)f_2501}, {"f_2509:srfi_2d14_2escm",(void*)f_2509}, {"f_3557:srfi_2d14_2escm",(void*)f_3557}, {"f_2909:srfi_2d14_2escm",(void*)f_2909}, {"f_1952:srfi_2d14_2escm",(void*)f_1952}, {"f_1958:srfi_2d14_2escm",(void*)f_1958}, {"f_3192:srfi_2d14_2escm",(void*)f_3192}, {"f_3199:srfi_2d14_2escm",(void*)f_3199}, {"f_1964:srfi_2d14_2escm",(void*)f_1964}, {"f_2563:srfi_2d14_2escm",(void*)f_2563}, {"f_3539:srfi_2d14_2escm",(void*)f_3539}, {"f_2932:srfi_2d14_2escm",(void*)f_2932}, {"f_1976:srfi_2d14_2escm",(void*)f_1976}, {"f_1970:srfi_2d14_2escm",(void*)f_1970}, {"f_1728:srfi_2d14_2escm",(void*)f_1728}, {"f_1724:srfi_2d14_2escm",(void*)f_1724}, {"f_2942:srfi_2d14_2escm",(void*)f_2942}, {"f_3239:srfi_2d14_2escm",(void*)f_3239}, {"f_3246:srfi_2d14_2escm",(void*)f_3246}, {"f_3820:srfi_2d14_2escm",(void*)f_3820}, {"f_2635:srfi_2d14_2escm",(void*)f_2635}, {"f_2633:srfi_2d14_2escm",(void*)f_2633}, {"f_2639:srfi_2d14_2escm",(void*)f_2639}, {"f_3265:srfi_2d14_2escm",(void*)f_3265}, {"f_2613:srfi_2d14_2escm",(void*)f_2613}, {"f_2617:srfi_2d14_2escm",(void*)f_2617}, {"f_2007:srfi_2d14_2escm",(void*)f_2007}, {"f_2003:srfi_2d14_2escm",(void*)f_2003}, {"f_3818:srfi_2d14_2escm",(void*)f_3818}, {"f_2223:srfi_2d14_2escm",(void*)f_2223}, {"f_3282:srfi_2d14_2escm",(void*)f_3282}, {"f_3280:srfi_2d14_2escm",(void*)f_3280}, {"f_1606:srfi_2d14_2escm",(void*)f_1606}, {"f_2200:srfi_2d14_2escm",(void*)f_2200}, {"f_2205:srfi_2d14_2escm",(void*)f_2205}, {"f_2647:srfi_2d14_2escm",(void*)f_2647}, {"f_2642:srfi_2d14_2escm",(void*)f_2642}, {"f_3804:srfi_2d14_2escm",(void*)f_3804}, {"f_3236:srfi_2d14_2escm",(void*)f_3236}, {"f_3720:srfi_2d14_2escm",(void*)f_3720}, {"f_3729:srfi_2d14_2escm",(void*)f_3729}, {"f_3726:srfi_2d14_2escm",(void*)f_3726}, {"f_2625:srfi_2d14_2escm",(void*)f_2625}, {"f_2620:srfi_2d14_2escm",(void*)f_2620}, {"f_2629:srfi_2d14_2escm",(void*)f_2629}, {"f_2994:srfi_2d14_2escm",(void*)f_2994}, {"f_3739:srfi_2d14_2escm",(void*)f_3739}, {"f_3321:srfi_2d14_2escm",(void*)f_3321}, {"f_3733:srfi_2d14_2escm",(void*)f_3733}, {"f_3701:srfi_2d14_2escm",(void*)f_3701}, {"f_3708:srfi_2d14_2escm",(void*)f_3708}, {"f_3704:srfi_2d14_2escm",(void*)f_3704}, {"f_3574:srfi_2d14_2escm",(void*)f_3574}, {"f_3577:srfi_2d14_2escm",(void*)f_3577}, {"f_2074:srfi_2d14_2escm",(void*)f_2074}, {"f_3570:srfi_2d14_2escm",(void*)f_3570}, {"f_2115:srfi_2d14_2escm",(void*)f_2115}, {"f_2119:srfi_2d14_2escm",(void*)f_2119}, {"f_3712:srfi_2d14_2escm",(void*)f_3712}, {"f_3303:srfi_2d14_2escm",(void*)f_3303}, {"f_3716:srfi_2d14_2escm",(void*)f_3716}, {"f_3547:srfi_2d14_2escm",(void*)f_3547}, {"f_2122:srfi_2d14_2escm",(void*)f_2122}, {"f_2125:srfi_2d14_2escm",(void*)f_2125}, {"f_3313:srfi_2d14_2escm",(void*)f_3313}, {"f_3316:srfi_2d14_2escm",(void*)f_3316}, {"f_2064:srfi_2d14_2escm",(void*)f_2064}, {"f_3588:srfi_2d14_2escm",(void*)f_3588}, {"f_3583:srfi_2d14_2escm",(void*)f_3583}, {"f_3580:srfi_2d14_2escm",(void*)f_3580}, {"f_2012:srfi_2d14_2escm",(void*)f_2012}, {"f_1585:srfi_2d14_2escm",(void*)f_1585}, {"f_3052:srfi_2d14_2escm",(void*)f_3052}, {"f_3055:srfi_2d14_2escm",(void*)f_3055}, {"f_1598:srfi_2d14_2escm",(void*)f_1598}, {"f_3022:srfi_2d14_2escm",(void*)f_3022}, {"f_1592:srfi_2d14_2escm",(void*)f_1592}, {"f_2411:srfi_2d14_2escm",(void*)f_2411}, {"f_2414:srfi_2d14_2escm",(void*)f_2414}, {"f_2419:srfi_2d14_2escm",(void*)f_2419}, {"f_2979:srfi_2d14_2escm",(void*)f_2979}, {"f_2975:srfi_2d14_2escm",(void*)f_2975}, {"f_2973:srfi_2d14_2escm",(void*)f_2973}, {"f_3272:srfi_2d14_2escm",(void*)f_3272}, {"f_3276:srfi_2d14_2escm",(void*)f_3276}, {"f_2423:srfi_2d14_2escm",(void*)f_2423}, {"f_2427:srfi_2d14_2escm",(void*)f_2427}, {"f_2429:srfi_2d14_2escm",(void*)f_2429}, {"f_3045:srfi_2d14_2escm",(void*)f_3045}, {"f_2984:srfi_2d14_2escm",(void*)f_2984}, {"f_3049:srfi_2d14_2escm",(void*)f_3049}, {"f_3203:srfi_2d14_2escm",(void*)f_3203}, {"f_3207:srfi_2d14_2escm",(void*)f_3207}, {"f_3209:srfi_2d14_2escm",(void*)f_3209}, {"f_2952:srfi_2d14_2escm",(void*)f_2952}, {"f_3092:srfi_2d14_2escm",(void*)f_3092}, {"f_3094:srfi_2d14_2escm",(void*)f_3094}, {"f_2401:srfi_2d14_2escm",(void*)f_2401}, {"f_2407:srfi_2d14_2escm",(void*)f_2407}, {"f_2405:srfi_2d14_2escm",(void*)f_2405}, {"f_3060:srfi_2d14_2escm",(void*)f_3060}, {"f_3226:srfi_2d14_2escm",(void*)f_3226}, {"f_3032:srfi_2d14_2escm",(void*)f_3032}, {"f_3349:srfi_2d14_2escm",(void*)f_3349}, {"f_2257:srfi_2d14_2escm",(void*)f_2257}, {"f_2252:srfi_2d14_2escm",(void*)f_2252}, {"f_3344:srfi_2d14_2escm",(void*)f_3344}, {"f_3089:srfi_2d14_2escm",(void*)f_3089}, {"f_3085:srfi_2d14_2escm",(void*)f_3085}, {"f_3359:srfi_2d14_2escm",(void*)f_3359}, {"f_3357:srfi_2d14_2escm",(void*)f_3357}, {"f_3353:srfi_2d14_2escm",(void*)f_3353}, {"f_2248:srfi_2d14_2escm",(void*)f_2248}, {"f_1430:srfi_2d14_2escm",(void*)f_1430}, {"f_1449:srfi_2d14_2escm",(void*)f_1449}, {"f_1444:srfi_2d14_2escm",(void*)f_1444}, {"f_1297:srfi_2d14_2escm",(void*)f_1297}, {"f_1299:srfi_2d14_2escm",(void*)f_1299}, {"f_1499:srfi_2d14_2escm",(void*)f_1499}, {"f_2286:srfi_2d14_2escm",(void*)f_2286}, {"f_3932:srfi_2d14_2escm",(void*)f_3932}, {"toplevel:srfi_2d14_2escm",(void*)C_srfi_2d14_toplevel}, {"f_1471:srfi_2d14_2escm",(void*)f_1471}, {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| map 4 S| for-each 5 o|eliminated procedure checks: 218 o|specializations: o| 4 (##sys#check-list (or pair list) *) o| 1 (min fixnum fixnum) o| 2 (< fixnum fixnum) o| 2 (make-string fixnum) o| 1 (string-length string) o| 14 (zero? fixnum) o| 1 (<= fixnum fixnum) o| 4 (make-string fixnum char) o| 8 (cdr pair) o| 4 (car pair) (o e)|safe calls: 444 (o e)|assignments to immediate values: 3 o|Removed `not' forms: 8 o|inlining procedure: k1341 o|inlining procedure: k1355 o|inlining procedure: k1355 o|inlining procedure: k1341 o|substituted constant variable: a1377 o|inlining procedure: "(srfi-14.scm:118) %latin1->char" o|inlining procedure: k1391 o|inlining procedure: k1391 o|inlining procedure: k1435 o|inlining procedure: k1435 o|inlining procedure: k1454 o|inlining procedure: k1454 o|inlining procedure: k1486 o|inlining procedure: k1486 o|inlining procedure: k1506 o|inlining procedure: k1506 o|inlining procedure: k1528 o|inlining procedure: k1528 o|contracted procedure: "(srfi-14.scm:180) g127128" o|inlining procedure: "(srfi-14.scm:137) %char->latin1" o|contracted procedure: "(srfi-14.scm:180) g123124" o|inlining procedure: "(srfi-14.scm:137) %char->latin1" o|inlining procedure: k1608 o|inlining procedure: k1608 o|inlining procedure: k1625 o|inlining procedure: k1625 o|contracted procedure: "(srfi-14.scm:207) g149150" o|inlining procedure: "(srfi-14.scm:135) %char->latin1" o|inlining procedure: k1658 o|inlining procedure: k1658 o|contracted procedure: "(srfi-14.scm:213) g159160" o|contracted procedure: "(srfi-14.scm:136) g163164" o|inlining procedure: "(srfi-14.scm:135) %char->latin1" o|inlining procedure: "(srfi-14.scm:215) %char->latin1" o|inlining procedure: k1735 o|inlining procedure: k1735 o|contracted procedure: "(srfi-14.scm:221) g174175" o|inlining procedure: "(srfi-14.scm:137) %char->latin1" o|inlining procedure: k1777 o|inlining procedure: k1777 o|inlining procedure: k1791 o|inlining procedure: k1791 o|inlining procedure: "(srfi-14.scm:229) %latin1->char" o|contracted procedure: "(srfi-14.scm:229) g187188" o|contracted procedure: "(srfi-14.scm:136) g191192" o|inlining procedure: "(srfi-14.scm:135) %char->latin1" o|inlining procedure: "(srfi-14.scm:238) %char->latin1" o|inlining procedure: k1859 o|inlining procedure: k1859 o|inlining procedure: "(srfi-14.scm:244) %char->latin1" o|inlining procedure: k1907 o|inlining procedure: k1907 o|inlining procedure: "(srfi-14.scm:273) %latin1->char" o|inlining procedure: k2017 o|inlining procedure: k2017 o|contracted procedure: "(srfi-14.scm:285) g288289" o|contracted procedure: "(srfi-14.scm:136) g292293" o|inlining procedure: "(srfi-14.scm:135) %char->latin1" o|inlining procedure: k2066 o|inlining procedure: "(srfi-14.scm:296) %latin1->char" o|contracted procedure: "(srfi-14.scm:296) g307308" o|contracted procedure: "(srfi-14.scm:136) g311312" o|inlining procedure: "(srfi-14.scm:135) %char->latin1" o|inlining procedure: k2066 o|inlining procedure: k2132 o|contracted procedure: "(srfi-14.scm:306) g336337" o|inlining procedure: "(srfi-14.scm:306) %char->latin1" o|inlining procedure: "(srfi-14.scm:306) %latin1->char" o|contracted procedure: "(srfi-14.scm:305) g328329" o|contracted procedure: "(srfi-14.scm:136) g332333" o|inlining procedure: "(srfi-14.scm:135) %char->latin1" o|inlining procedure: k2132 o|substituted constant variable: a2193 o|inlining procedure: k2207 o|inlining procedure: k2207 o|inlining procedure: k2221 o|inlining procedure: k2221 o|inlining procedure: "(srfi-14.scm:317) %latin1->char" o|contracted procedure: "(srfi-14.scm:316) g351352" o|inlining procedure: "(srfi-14.scm:135) %char->latin1" o|inlining procedure: k2262 o|inlining procedure: k2262 o|inlining procedure: "(srfi-14.scm:324) %latin1->char" o|contracted procedure: "(srfi-14.scm:324) g369370" o|inlining procedure: "(srfi-14.scm:135) %char->latin1" o|inlining procedure: k2313 o|inlining procedure: "(srfi-14.scm:332) %latin1->char" o|contracted procedure: "(srfi-14.scm:332) g385386" o|contracted procedure: "(srfi-14.scm:136) g389390" o|inlining procedure: "(srfi-14.scm:135) %char->latin1" o|inlining procedure: k2313 o|removed unused formal parameters: (proc395) o|contracted procedure: k2376 o|inlining procedure: k2373 o|inlining procedure: k2373 o|contracted procedure: "(srfi-14.scm:342) g407408" o|inlining procedure: "(srfi-14.scm:342) %char->latin1" o|removed unused parameter to known procedure: proc395 "(srfi-14.scm:347) %char-set-unfold!" o|removed unused parameter to known procedure: proc395 "(srfi-14.scm:351) %char-set-unfold!" o|contracted procedure: "(srfi-14.scm:361) g444445" o|inlining procedure: "(srfi-14.scm:361) %char->latin1" o|inlining procedure: k2454 o|inlining procedure: k2454 o|substituted constant variable: a2486 o|inlining procedure: k2522 o|inlining procedure: k2522 o|inlining procedure: k2536 o|inlining procedure: k2536 o|inlining procedure: "(srfi-14.scm:385) %latin1->char" o|contracted procedure: "(srfi-14.scm:384) g472473" o|inlining procedure: "(srfi-14.scm:135) %char->latin1" o|inlining procedure: k2578 o|inlining procedure: k2578 o|contracted procedure: "(srfi-14.scm:396) g484485" o|inlining procedure: "(srfi-14.scm:396) %char->latin1" o|inlining procedure: k2649 o|inlining procedure: k2649 o|inlining procedure: "(srfi-14.scm:415) %latin1->char" o|contracted procedure: "(srfi-14.scm:414) g508509" o|inlining procedure: "(srfi-14.scm:135) %char->latin1" o|inlining procedure: k2717 o|contracted procedure: "(srfi-14.scm:433) g528529" o|inlining procedure: k2717 o|substituted constant variable: a2743 o|inlining procedure: k2753 o|inlining procedure: k2753 o|substituted constant variable: a2759 o|removed unused formal parameters: (proc562) o|inlining procedure: k2812 o|contracted procedure: "(srfi-14.scm:455) g578579" o|inlining procedure: "(srfi-14.scm:454) %latin1->char" o|contracted procedure: "(srfi-14.scm:454) g570571" o|contracted procedure: "(srfi-14.scm:136) g574575" o|inlining procedure: "(srfi-14.scm:135) %char->latin1" o|inlining procedure: k2812 o|removed unused parameter to known procedure: proc562 "(srfi-14.scm:460) %char-set-filter!" o|removed unused parameter to known procedure: proc562 "(srfi-14.scm:467) %char-set-filter!" o|inlining procedure: k2904 o|inlining procedure: k2904 o|inlining procedure: k2919 o|inlining procedure: k2919 o|inlining procedure: k2944 o|inlining procedure: "(srfi-14.scm:500) %char->latin1" o|inlining procedure: k2944 o|inlining procedure: k2986 o|contracted procedure: "(srfi-14.scm:514) g637638" o|inlining procedure: "(srfi-14.scm:137) %char->latin1" o|inlining procedure: k2986 o|inlining procedure: k3024 o|inlining procedure: k3024 o|contracted procedure: "(srfi-14.scm:524) g654655" o|contracted procedure: "(srfi-14.scm:148) g659660" o|inlining procedure: "(srfi-14.scm:147) %latin1->char" o|substituted constant variable: a3083 o|contracted procedure: "(srfi-14.scm:529) g670671" o|contracted procedure: "(srfi-14.scm:148) g675676" o|inlining procedure: "(srfi-14.scm:147) %latin1->char" o|contracted procedure: k3133 o|inlining procedure: k3130 o|inlining procedure: k3130 o|contracted procedure: "(srfi-14.scm:150) g687688" o|inlining procedure: k3151 o|contracted procedure: k3174 o|inlining procedure: k3171 o|inlining procedure: k3171 o|contracted procedure: "(srfi-14.scm:150) g698699" o|inlining procedure: k3151 o|inlining procedure: k3211 o|contracted procedure: "(srfi-14.scm:149) g709710" o|inlining procedure: k3211 o|inlining procedure: k3228 o|inlining procedure: k3248 o|contracted procedure: "(srfi-14.scm:149) g720721" o|inlining procedure: k3248 o|inlining procedure: k3228 o|contracted procedure: k3287 o|inlining procedure: k3284 o|inlining procedure: k3284 o|contracted procedure: "(srfi-14.scm:151) g731732" o|inlining procedure: k3305 o|contracted procedure: k3326 o|inlining procedure: k3323 o|inlining procedure: k3323 o|contracted procedure: "(srfi-14.scm:151) g743744" o|inlining procedure: k3305 o|contracted procedure: k3364 o|inlining procedure: k3361 o|inlining procedure: k3361 o|contracted procedure: "(srfi-14.scm:152) g754755" o|inlining procedure: "(srfi-14.scm:147) %latin1->char" o|contracted procedure: "(srfi-14.scm:152) g759760" o|inlining procedure: "(srfi-14.scm:137) %char->latin1" o|inlining procedure: k3403 o|contracted procedure: k3426 o|inlining procedure: k3423 o|inlining procedure: k3423 o|contracted procedure: "(srfi-14.scm:152) g770771" o|inlining procedure: "(srfi-14.scm:147) %latin1->char" o|contracted procedure: "(srfi-14.scm:152) g775776" o|inlining procedure: "(srfi-14.scm:137) %char->latin1" o|inlining procedure: k3403 o|contracted procedure: k3485 o|inlining procedure: k3482 o|inlining procedure: k3482 o|contracted procedure: "(srfi-14.scm:601) g816817" o|contracted procedure: "(srfi-14.scm:600) g812813" o|contracted procedure: "(srfi-14.scm:599) g804805" o|contracted procedure: "(srfi-14.scm:136) g808809" o|inlining procedure: "(srfi-14.scm:135) %char->latin1" o|inlining procedure: k3549 o|inlining procedure: k3549 o|inlining procedure: k3590 o|contracted procedure: "(srfi-14.scm:609) g834835" o|inlining procedure: k3590 o|contracted procedure: "(srfi-14.scm:610) g846847" o|contracted procedure: "(srfi-14.scm:610) g838839" o|contracted procedure: "(srfi-14.scm:136) g842843" o|inlining procedure: "(srfi-14.scm:135) %char->latin1" o|substituted constant variable: a3663 o|inlining procedure: k3781 o|inlining procedure: k3781 o|inlining procedure: k3822 o|inlining procedure: k3822 o|inlining procedure: k3856 o|inlining procedure: k3856 o|inlining procedure: k3890 o|inlining procedure: k3890 o|inlining procedure: "(srfi-14.scm:651) %latin1->char" o|inlining procedure: "(srfi-14.scm:650) %latin1->char" o|inlining procedure: "(srfi-14.scm:637) %latin1->char" o|inlining procedure: "(srfi-14.scm:142) %latin1->char" o|inlining procedure: "(srfi-14.scm:141) %latin1->char" o|replaced variables: 421 o|removed binding forms: 246 o|removed side-effect free assignment to unused variable: %char->latin1 o|substituted constant variable: n643942 o|folded constant expression: (integer->char (quote 0)) o|substituted constant variable: r23144108 o|substituted constant variable: r27544161 o|substituted constant variable: g974978 o|substituted constant variable: g946950 o|substituted constant variable: g918922 o|substituted constant variable: g889893 o|substituted constant variable: n644273 o|folded constant expression: (integer->char (quote 186)) o|substituted constant variable: n644278 o|folded constant expression: (integer->char (quote 170)) o|substituted constant variable: n644283 o|folded constant expression: (integer->char (quote 181)) o|substituted constant variable: n644288 o|folded constant expression: (integer->char (quote 1)) o|substituted constant variable: n644293 o|folded constant expression: (integer->char (quote 0)) o|replaced variables: 101 o|removed binding forms: 447 o|inlining procedure: "(srfi-14.scm:114) %string-copy" o|inlining procedure: "(srfi-14.scm:155) %string-copy" o|inlining procedure: "(srfi-14.scm:237) %string-copy" o|inlining procedure: k2023 o|inlining procedure: k2072 o|inlining procedure: k2138 o|inlining procedure: k2818 o|inlining procedure: "(srfi-14.scm:542) %string-copy" o|inlining procedure: "(srfi-14.scm:557) %string-copy" o|inlining procedure: "(srfi-14.scm:572) %string-copy" o|inlining procedure: "(srfi-14.scm:587) %string-copy" o|replaced variables: 47 o|removed binding forms: 114 o|removed side-effect free assignment to unused variable: %string-copy o|replaced variables: 48 o|removed binding forms: 51 o|inlining procedure: k1379 o|inlining procedure: k3926 o|inlining procedure: k3934 o|removed binding forms: 49 o|substituted constant variable: r13804578 o|contracted procedure: k1408 o|contracted procedure: k1412 o|contracted procedure: k3922 o|substituted constant variable: r39274641 o|substituted constant variable: r39354642 o|removed binding forms: 6 o|substituted constant variable: r1409 o|substituted constant variable: r1413 o|substituted constant variable: r3923 o|substituted constant variable: r3923 o|replaced variables: 2 o|removed binding forms: 3 o|substituted constant variable: c1 o|substituted constant variable: c1 o|substituted constant variable: c0 o|substituted constant variable: c0 o|substituted constant variable: c1 o|substituted constant variable: c0 o|substituted constant variable: c0 o|substituted constant variable: c1 o|substituted constant variable: c1 o|substituted constant variable: c0 o|substituted constant variable: c0 o|substituted constant variable: c1 o|substituted constant variable: c1 o|substituted constant variable: c1 o|substituted constant variable: c1 o|substituted constant variable: c1 o|substituted constant variable: c0 o|substituted constant variable: c0 o|substituted constant variable: c0 o|substituted constant variable: c0 o|substituted constant variable: c1 o|substituted constant variable: c0 o|substituted constant variable: c0 o|substituted constant variable: c0 o|substituted constant variable: c0 o|substituted constant variable: c0 o|removed binding forms: 6 o|removed side-effect free assignment to unused variable: c0 o|removed side-effect free assignment to unused variable: c1 o|removed binding forms: 3 o|removed binding forms: 2 o|simplifications: ((if . 3) (##core#call . 277)) o| call simplifications: o| ##sys#setslot 4 o| values 2 o| string? o| char? o| cdr o| fx< 2 o| fxmin o| <= o| ##sys#check-string o| ##sys#size o| cons 9 o| string-set! 25 o| ##sys#check-list 5 o| ##sys#check-char o| zero? 11 o| ##sys#check-exact 4 o| >= 7 o| * o| + 5 o| fxand o| eq? 15 o| < 11 o| string-ref 22 o| char->integer 28 o| fx<= o| - 28 o| not 11 o| car 6 o| string=? o| pair? 16 o| null? 6 o| string-length 8 o| ##sys#structure? o| ##sys#slot 23 o| ##sys#make-structure o| integer->char 15 o|contracted procedure: k1344 o|contracted procedure: k1352 o|contracted procedure: k13354409 o|contracted procedure: k13354416 o|contracted procedure: k1432 o|contracted procedure: k1438 o|contracted procedure: k1477 o|contracted procedure: k1451 o|contracted procedure: k1460 o|contracted procedure: k1473 o|contracted procedure: k1483 o|contracted procedure: k1489 o|contracted procedure: k1581 o|contracted procedure: k1503 o|contracted procedure: k1516 o|contracted procedure: k1531 o|substituted constant variable: g5020 o|contracted procedure: k1540 o|contracted procedure: k1547 o|contracted procedure: k1570 o|contracted procedure: k1557 o|contracted procedure: k1577 o|contracted procedure: k1678 o|contracted procedure: k1587 o|contracted procedure: k1593 o|contracted procedure: k1611 o|substituted constant variable: g5026 o|contracted procedure: k1621 o|contracted procedure: k1652 o|contracted procedure: k1648 o|contracted procedure: k1625 o|contracted procedure: k1638 o|contracted procedure: k1634 o|contracted procedure: k1661 o|contracted procedure: k1671 o|contracted procedure: k1674 o|contracted procedure: k1687 o|contracted procedure: k1720 o|contracted procedure: k1706 o|contracted procedure: k1702 o|contracted procedure: k1738 o|substituted constant variable: g5034 o|contracted procedure: k1745 o|contracted procedure: k1749 o|contracted procedure: k1759 o|contracted procedure: k1780 o|substituted constant variable: g5038 o|contracted procedure: k1787 o|contracted procedure: k1791 o|contracted procedure: k1829 o|contracted procedure: k1816 o|contracted procedure: k1812 o|contracted procedure: k1844 o|contracted procedure: k1847 o|contracted procedure: k1862 o|contracted procedure: k1872 o|contracted procedure: k1876 o|contracted procedure: k13354437 o|contracted procedure: k1895 o|contracted procedure: k1898 o|contracted procedure: k1910 o|contracted procedure: k1920 o|contracted procedure: k1924 o|substituted constant variable: g5046 o|contracted procedure: k1996 o|contracted procedure: k2014 o|contracted procedure: k2020 o|substituted constant variable: g5048 o|contracted procedure: k2045 o|contracted procedure: k2041 o|contracted procedure: k2069 o|substituted constant variable: g5052 o|contracted procedure: k2079 o|contracted procedure: k2111 o|contracted procedure: k20794447 o|contracted procedure: k2098 o|contracted procedure: k2094 o|contracted procedure: k2135 o|substituted constant variable: g5056 o|contracted procedure: k2182 o|contracted procedure: k2138 o|contracted procedure: k2145 o|contracted procedure: k2190 o|contracted procedure: k21454453 o|contracted procedure: k2164 o|contracted procedure: k2160 o|contracted procedure: k2210 o|substituted constant variable: g5060 o|contracted procedure: k2217 o|contracted procedure: k2244 o|contracted procedure: k2234 o|contracted procedure: k2230 o|contracted procedure: k2259 o|substituted constant variable: g5064 o|contracted procedure: k2291 o|contracted procedure: k2298 o|contracted procedure: k2278 o|contracted procedure: k2274 o|contracted procedure: k2316 o|substituted constant variable: g5068 o|contracted procedure: k2329 o|contracted procedure: k2361 o|contracted procedure: k2348 o|contracted procedure: k2344 o|contracted procedure: k2395 o|contracted procedure: k2384 o|contracted procedure: k2442 o|contracted procedure: k2445 o|contracted procedure: k2457 o|contracted procedure: k2467 o|contracted procedure: k2471 o|contracted procedure: k2525 o|substituted constant variable: g5076 o|contracted procedure: k2532 o|contracted procedure: k2559 o|contracted procedure: k2536 o|contracted procedure: k2549 o|contracted procedure: k2545 o|contracted procedure: k2565 o|contracted procedure: k2608 o|contracted procedure: k2572 o|contracted procedure: k2581 o|substituted constant variable: g5080 o|contracted procedure: k2604 o|contracted procedure: k2600 o|contracted procedure: k2589 o|contracted procedure: k2596 o|contracted procedure: k2652 o|substituted constant variable: g5084 o|contracted procedure: k2662 o|contracted procedure: k2688 o|contracted procedure: k2681 o|contracted procedure: k2675 o|contracted procedure: k2671 o|contracted procedure: k2698 o|contracted procedure: k2701 o|contracted procedure: k2739 o|contracted procedure: k2711 o|contracted procedure: k2720 o|contracted procedure: k2728 o|contracted procedure: k2735 o|contracted procedure: k2750 o|contracted procedure: k2756 o|contracted procedure: k2787 o|contracted procedure: k2766 o|contracted procedure: k2781 o|contracted procedure: k2769 o|contracted procedure: k2815 o|substituted constant variable: g5092 o|contracted procedure: k2818 o|contracted procedure: k2825 o|contracted procedure: k28254477 o|contracted procedure: k2868 o|contracted procedure: k2855 o|contracted procedure: k2851 o|contracted procedure: k2913 o|contracted procedure: k2922 o|contracted procedure: k2969 o|contracted procedure: k2938 o|contracted procedure: k2947 o|substituted constant variable: g5096 o|contracted procedure: k2957 o|contracted procedure: k2965 o|contracted procedure: k2961 o|contracted procedure: k2989 o|substituted constant variable: g5100 o|contracted procedure: k2999 o|contracted procedure: k3009 o|contracted procedure: k3015 o|contracted procedure: k3027 o|contracted procedure: k3037 o|contracted procedure: k3041 o|contracted procedure: k3077 o|contracted procedure: k3070 o|contracted procedure: k3111 o|contracted procedure: k3104 o|contracted procedure: k3145 o|contracted procedure: k3154 o|contracted procedure: k3186 o|contracted procedure: k13354490 o|contracted procedure: k3214 o|contracted procedure: k3231 o|contracted procedure: k3251 o|contracted procedure: k13354495 o|contracted procedure: k3299 o|contracted procedure: k3308 o|contracted procedure: k3338 o|contracted procedure: k13354500 o|contracted procedure: k3397 o|contracted procedure: k3380 o|contracted procedure: k3373 o|contracted procedure: k3390 o|contracted procedure: k3406 o|contracted procedure: k3459 o|contracted procedure: k3442 o|contracted procedure: k3435 o|contracted procedure: k3452 o|contracted procedure: k13354505 o|contracted procedure: k3533 o|contracted procedure: k3521 o|contracted procedure: k3507 o|contracted procedure: k3503 o|contracted procedure: k3540 o|contracted procedure: k3552 o|contracted procedure: k3562 o|contracted procedure: k3566 o|contracted procedure: k3593 o|contracted procedure: k3623 o|contracted procedure: k3619 o|contracted procedure: k3721 o|contracted procedure: k3734 o|contracted procedure: k3772 o|contracted procedure: k3784 o|contracted procedure: k3787 o|contracted procedure: k3790 o|contracted procedure: k3798 o|contracted procedure: k3806 o|contracted procedure: k3813 o|contracted procedure: k3825 o|contracted procedure: k3828 o|contracted procedure: k3831 o|contracted procedure: k3839 o|contracted procedure: k3847 o|contracted procedure: k3859 o|contracted procedure: k3862 o|contracted procedure: k3865 o|contracted procedure: k3873 o|contracted procedure: k3881 o|contracted procedure: k3893 o|contracted procedure: k3896 o|contracted procedure: k3899 o|contracted procedure: k3907 o|contracted procedure: k3915 o|simplifications: ((let . 37)) o|replaced variables: 2 o|removed binding forms: 216 o|inlining procedure: k2284 o|inlining procedure: k2319 o|inlining procedure: k2655 o|inlining procedure: k2655 o|replaced variables: 94 o|removed binding forms: 19 o|inlining procedure: k1709 o|inlining procedure: k1762 o|inlining procedure: k1819 o|inlining procedure: k2048 o|inlining procedure: k2101 o|inlining procedure: k2167 o|substituted constant variable: r23205209 o|substituted constant variable: r23205209 o|inlining procedure: k2351 o|inlining procedure: k2858 o|inlining procedure: k3012 o|inlining procedure: k3510 o|inlining procedure: k3626 o|simplifications: ((if . 1)) o|replaced variables: 2 o|removed binding forms: 76 o|removed conditional forms: 1 o|contracted procedure: k1560 o|contracted procedure: k1573 o|contracted procedure: k1641 o|contracted procedure: k2237 o|contracted procedure: k2281 o|contracted procedure: k2552 o|contracted procedure: k2678 o|contracted procedure: k3393 o|contracted procedure: k3455 o|removed binding forms: 23 o|replaced variables: 15 o|inlining procedure: k2023 o|removed binding forms: 13 o|contracted procedure: k1822 o|contracted procedure: k2104 o|contracted procedure: k2170 o|contracted procedure: k2354 o|contracted procedure: k2861 o|contracted procedure: k3513 o|contracted procedure: k3629 o|simplifications: ((let . 8)) o|removed binding forms: 8 o|replaced variables: 6 o|removed binding forms: 1 o|direct leaf routine/allocation: lp143 0 o|direct leaf routine/allocation: lp171 0 o|direct leaf routine/allocation: lp282 0 o|direct leaf routine/allocation: g434441 0 o|direct leaf routine/allocation: doloop481482 0 o|direct leaf routine/allocation: lp504 0 o|direct leaf routine/allocation: lp522 0 o|contracted procedure: k1599 o|converted assignments to bindings: (lp143) o|converted assignments to bindings: (lp171) o|converted assignments to bindings: (lp282) o|contracted procedure: "(srfi-14.scm:360) k2460" o|converted assignments to bindings: (doloop481482) o|converted assignments to bindings: (lp504) o|converted assignments to bindings: (lp522) o|simplifications: ((let . 6)) o|removed binding forms: 2 o|direct leaf routine/allocation: for-each-loop433448 0 o|converted assignments to bindings: (for-each-loop433448) o|simplifications: ((let . 1)) o|customizable procedures: (map-loop877894 map-loop906923 map-loop934951 map-loop962979 %char-set-diff+intersection! g788795 for-each-loop787821 %char-set-algebra %string-iter g620627 for-each-loop619643 lp631 lp604 %char-set-filter! lp563 %ucs-range->char-set! k2744 %string->char-set! lp469 %list->char-set! %default-base %char-set-unfold! lp401 lp378 lp360 lp348 lp322 lp301 %char-set-cursor-next %set-char-set! %set-char-set g230237 for-each-loop229240 g205212 for-each-loop204215 lp183 k1590 lp146 lp2120 lp112 lp98 %char-set:s/check lp83) o|calls to known targets: 146 o|identified direct recursive calls: f_1526 1 o|identified direct recursive calls: f_1656 1 o|identified direct recursive calls: f_1606 2 o|identified direct recursive calls: f_1733 1 o|identified direct recursive calls: f_2012 2 o|identified direct recursive calls: f_2064 1 o|identified direct recursive calls: f_2130 1 o|identified direct recursive calls: f_2205 1 o|identified direct recursive calls: f_2257 1 o|identified direct recursive calls: f_2311 1 o|identified direct recursive calls: f_2452 1 o|identified direct recursive calls: f_2520 2 o|identified direct recursive calls: f_2576 1 o|identified direct recursive calls: f_2647 2 o|identified direct recursive calls: f_2715 1 o|fast box initializations: 24 o|fast global references: 81 o|fast global assignments: 14 o|dropping unused closure argument: f_1339 o|dropping unused closure argument: f_1383 o|dropping unused closure argument: f_1884 o|dropping unused closure argument: f_3472 o|dropping unused closure argument: f_2365 o|dropping unused closure argument: f_2696 o|dropping unused closure argument: f_1833 o|dropping unused closure argument: f_2804 o|dropping unused closure argument: f_2563 o|dropping unused closure argument: f_2932 o|dropping unused closure argument: f_2003 o|dropping unused closure argument: f_2973 o|dropping unused closure argument: f_2429 */ /* end of file */ chicken-4.12.0/chicken-profile.10000644000175000017500000000164713052302315016136 0ustar sjamaansjamaan.\" dummy line .TH CHICKEN-PROFILE 1 "19 Sep 2001" .SH NAME chicken-profile \- generate a report from profile-information .SH SYNOPSIS .B chicken-profile [ .I filename | .I option ... ] .SH OPTIONS .TP .B \-sort\-by\-calls Sort output by call frequency. .TP .B \-sort\-by\-time Sort output by procedure execution time. .TP .B \-sort\-by\-avg Sort output by average procedure execution time. .TP .B \-sort\-by\-name Sort output alphabetically by procedure name. .TP .B \-no\-unused Remove procedures that are never called. .TP .B \-help Show usage information. .SH DESCRIPTION .I chicken\-profile reads in profiling information generated by CHICKEN Scheme programs compiled with the .B \-profile option, and generates a table listing function names and their execution times. .SH BUGS Submit bug reports by e-mail to .I chicken-janitors@nongnu.org .SH AUTHORS The CHICKEN Team .SH SEE ALSO .BR chicken(1) .BR csc(1) chicken-4.12.0/csc.10000644000175000017500000000177313052302315013644 0ustar sjamaansjamaan.\" dummy line .TH CSC 1 "19 Sep 2001" .SH NAME csc \- driver program for the CHICKEN Scheme compiler .SH SYNOPSIS .B csc [ .I filename | .I option ... ] .SH DESCRIPTION .I csc is a program that invokes the .I CHICKEN compiler and the host systems C compiler to generate an executable from a Scheme source file or C files generated by .I CHICKEN For a list of options enter .B csc\ \-help .SH ENVIRONMENT\ VARIABLES .TP .B CSC_OPTIONS Can hold default options that should be passed to every invocation of .B csc .TP .B CHICKEN_PREFIX An alternative installation prefix, where the Scheme-to-C translator and any support files and libraries are located. Defaults to the installation time prefix given when configuring the system. .SH DOCUMENTATION More information can be found in the .I CHICKEN\ User's\ Manual .SH BUGS Submit bug reports by e-mail to .I chicken-janitors@nongnu.org , preferrably using the .B chicken\-bug tool. .SH AUTHOR The CHICKEN Team .SH SEE ALSO .BR chicken(1) .BR chicken-bug(1) chicken-4.12.0/expand.scm0000644000175000017500000014162613052306173015005 0ustar sjamaansjamaan;;;; expand.scm - The HI/LO expander ; ; Copyright (c) 2008-2017, 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) (disable-interrupts) (fixnum) (hide match-expression macro-alias check-for-multiple-bindings d dd dm dx map-se lookup check-for-redef) (not inline ##sys#syntax-error-hook ##sys#compiler-syntax-hook ##sys#toplevel-definition-hook)) (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 '(#:hygienic-macros #:syntax-rules #: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)) ;;; Syntactic environments (define ##sys#current-environment (make-parameter '())) (define ##sys#current-meta-environment (make-parameter '())) ;;XXX should this be in eval.scm? (define ##sys#active-eval-environment (make-parameter ##sys#current-environment)) (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 (##sys#qualified-symbol? var) (let* ((str (##sys#slot var 1)) (len (##sys#size str))) (and (fx> len 0) (char=? #\# (##core#inline "C_subchar" str 0))))) 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) ;; if se is given, retain bound vars (let ((seen '())) (let walk ((x exp)) (cond ((assq x seen) => cdr) ((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#strip-syntax strip-syntax) (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#chicken-macro-environment '()) ; used later in chicken.import.scm (define ##sys#chicken-ffi-macro-environment '()) ; used later in foreign.import.scm (define (##sys#ensure-transformer t #!optional loc) (cond ((procedure? t) (##sys#slot (##sys#er-transformer t) 1)) ; DEPRECATED ((##sys#structure? t 'transformer) (##sys#slot t 1)) (else (##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#copy-macro old new) (let ((def (lookup old (##sys#macro-environment)))) (apply ##sys#extend-macro-environment new def) ) ) (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#unregister-macro name) (##sys#macro-environment ;; this builds up stack, but isn't used often anyway... (let loop ((me (##sys#macro-environment)) (me2 '())) (cond ((null? me) '()) ((eq? name (caar me)) (cdr me)) (else (cons (car me) (loop (cdr me)))))))) (define (##sys#undefine-macro! name) (##sys#unregister-macro name) ) ;; 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 (##sys#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 ((##sys#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)) 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 head 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) ;;; 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) ) ) ) (define ##sys#expand expand) ;;; 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-macro-environment)) (%let-optionals* (macro-alias 'let-optionals* ##sys#chicken-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 (##sys#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 'tmp 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 'tmp 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 (##sys#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 ##sys#define-definition) (define ##sys#define-syntax-definition) (define ##sys#define-values-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 ##sys#define-definition) (eq? s id))) ((define-syntax) (if f (eq? f ##sys#define-syntax-definition) (eq? s id))) ((define-values) (if f (eq? f ##sys#define-values-definition) (eq? s id))) (else (eq? s id)))))) (define (fini vars vals mvars body) (if (and (null? vars) (null? mvars)) (let loop ([body2 body] [exps '()]) (if (not (pair? body2)) (cons '##core#begin body) ; no more defines, otherwise we would have called `expand' (let ((x (car body2))) (if (and (pair? x) (let ((d (car x))) (and (symbol? d) (or (comp 'define d) (comp 'define-values d))))) (cons '##core#begin (##sys#append (reverse exps) (list (expand body2)))) (loop (cdr body2) (cons x exps)) ) ) ) ) (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))) (loop (cdr body) (cons (cond ((pair? (cadr def)) ; DEPRECATED `(define-syntax ; (the first element is actually ignored) ,(caadr def) (##sys#er-transformer (##core#lambda ,(cdadr def) ,@(cddr def))))) ;; insufficient, if introduced by different expansions, but ;; better than nothing: ((eq? (car def) (cadr def)) (##sys#defjam-error def)) (else def)) defs) #f))) (else (loop body defs #t)))))) (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 (##sys#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 (##sys#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 (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 (define 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' (define (##sys#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 (##sys#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 (##sys#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 (##sys#strip-syntax (car ##sys#syntax-context)) #t out) (outstr " ...)'")) (else (let* ((sym (##sys#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 (##sys#syntax-rules-mismatch input) (##sys#syntax-error-hook "no rule matches form" input)) (define (get-line-number sexp) (and ##sys#line-number-database (pair? sexp) (let ([head (car sexp)]) (and (symbol? head) (cond [(##sys#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 (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 symbol? "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)))) ((not (symbol? sym)) sym) ((assq sym renv) => (lambda (a) (dd `(RENAME/RENV: ,sym --> ,(cdr a))) (cdr a))) ((lookup sym se) => (lambda (a) (cond ((symbol? a) ;; Add an extra level of indirection for already aliased ;; symbols. This prevents aliased symbols from popping up ;; in syntax-stripped output. (cond ((or (getp a '##core#aliased) (getp a '##core#primitive)) (let ((a2 (macro-alias sym se))) (dd `(RENAME/LOOKUP/ALIASED: ,sym --> ,a ==> ,a2)) (set! renv (cons (cons sym a2) renv)) a2)) (else (dd `(RENAME/LOOKUP: ,sym --> ,a)) (set! renv (cons (cons sym a) renv)) a))) (else (let ((a2 (macro-alias sym se))) (dd `(RENAME/LOOKUP/MACRO: ,sym --> ,a2)) (set! renv (cons (cons sym a2) renv)) a2))))) (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) (symbol? 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? (or (getp ss1 '##core#primitive) ss1) (or (getp ss2 '##core#primitive) 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)))) ((not (symbol? sym)) sym) (else ; Code stolen from ##sys#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) ;;; Macro definitions: (##sys#extend-macro-environment 'import '() (##sys#er-transformer (cut ##sys#expand-import <> <> <> ##sys#current-environment ##sys#macro-environment #f #f 'import) ) ) (##sys#extend-macro-environment 'import-for-syntax '() (##sys#er-transformer (cut ##sys#expand-import <> <> <> ##sys#current-meta-environment ##sys#meta-macro-environment #t #f 'import-for-syntax) ) ) (##sys#extend-macro-environment 'reexport '() (##sys#er-transformer (cut ##sys#expand-import <> <> <> ##sys#current-environment ##sys#macro-environment #f #t 'reexport) ) ) ;; contains only "import[-for-syntax]" and "reexport" (define ##sys#initial-macro-environment (##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 'syntax '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'syntax x '(_ _)) `(##core#syntax ,(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! ##sys#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 '(_ symbol . #(_ 0 1))) (let ((name (or (getp head '##core#macro-alias) head))) (##sys#register-export name (##sys#current-module))) (when (c (r 'define) head) (##sys#defjam-error x)) `(##core#set! ,head ,(if (pair? body) (car body) '(##core#undefined))) ) ((pair? (car head)) (##sys#check-syntax 'define form '(_ (_ . lambda-list) . #(_ 1))) (loop (##sys#expand-curried-define head body '())) ) ;XXX '() should be se (else (##sys#check-syntax 'define form '(_ (symbol . lambda-list) . #(_ 1))) (loop (list (car x) (car head) `(##core#lambda ,(cdr head) ,@body))))))))))) (set! ##sys#define-syntax-definition (##sys#extend-macro-environment 'define-syntax '() (##sys#er-transformer (lambda (form r c) (let ((head (cadr form)) (body (cddr form)) ) (cond ((not (pair? head)) (##sys#check-syntax 'define-syntax head 'symbol) (##sys#check-syntax 'define-syntax body '#(_ 1)) (let ((name (or (getp head '##core#macro-alias) head))) (##sys#register-export name (##sys#current-module))) (when (c (r 'define-syntax) head) (##sys#defjam-error form)) `(##core#define-syntax ,head ,(car body))) (else ; DEPRECATED (##sys#check-syntax 'define-syntax head '(_ . lambda-list)) (##sys#check-syntax 'define-syntax body '#(_ 1)) (when (eq? (car form) (car head)) (##sys#syntax-error-hook "redefinition of `define-syntax' not allowed in syntax-definition" form)) `(##core#define-syntax ,(car head) (##sys#er-transformer (##core#lambda ,(cdr head) ,@body)))))))))) (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))))) (##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 '(_ symbol #((symbol _) 0) . #(_ 1))) (check-for-multiple-bindings (caddr x) x "let")) (else (##sys#check-syntax 'let x '(_ #((symbol _) 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 '(_ #((symbol _) 0) . #(_ 1))) (check-for-multiple-bindings (cadr x) x "letrec*") `(##core#letrec* ,@(cdr x))))) (##sys#extend-macro-environment 'letrec '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'letrec x '(_ #((symbol _) 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 '(_ #((symbol _) 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 '(_ #((symbol _) 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 (sprintf "clause following `~S' clause in `cond'" else?) (##sys#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))) ((null? (cdr clause)) (car clause)) (else `(##core#begin ,@(cdr 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 '() (##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'" (##sys#strip-syntax clause)) (expand rclauses #t) '(##core#begin)) ((c %else (car clause)) (expand rclauses #t) (if (and (fx= (length clause) 3) ; (else => expr) (c %=> (cadr clause))) `(,(caddr clause) ,tmp) `(##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 '(_ #((symbol _) 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 '(_ #((symbol _ . #(_)) 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 ((match-expression x '(##sys#cons a (##core#quote ())) '(a)) => (lambda (env) (simplify `(##sys#list ,(cdr (assq 'a env))))) ) ((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) ) ) ) ((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)))))) (##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 'cond-expand '() (##sys#er-transformer (lambda (form r c) (let ((clauses (cdr form)) (%or (r 'or)) (%not (r 'not)) (%else (r 'else)) (%and (r 'and))) (define (err x) (##sys#error "syntax error in `cond-expand' form" x (cons 'cond-expand clauses)) ) (define (test fx) (cond ((symbol? fx) (##sys#feature? (##sys#strip-syntax fx))) ((not (pair? fx)) (err fx)) (else (let ((head (car fx)) (rest (cdr fx))) (cond ((c %and head) (or (eq? rest '()) (if (pair? rest) (and (test (car rest)) (test `(,%and ,@(cdr rest))) ) (err fx) ) ) ) ((c %or head) (and (not (eq? rest '())) (if (pair? rest) (or (test (car rest)) (test `(,%or ,@(cdr rest))) ) (err fx) ) ) ) ((c %not head) (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 ((c id %else) (let ((rest (cdr clause))) (if (eq? rest '()) '(##core#undefined) `(##core#begin ,@rest) ) ) ) ((test id) `(##core#begin ,@(cdr clause))) (else (expand rclauses)) ) ) ) ) ) ) ) ) ) ) ) (##sys#extend-macro-environment 'require-library '() (##sys#er-transformer (lambda (x r c) (let ((ids (cdr x))) `(##core#require-extension ,ids #f) ) ) ) ) (##sys#extend-macro-environment 'require-extension '() (##sys#er-transformer (lambda (x r c) (let ((ids (cdr x))) `(##core#require-extension ,ids #t) ) ) ) ) (##sys#extend-macro-environment 'require-extension-for-syntax '() (##sys#er-transformer (lambda (x r c) `(,(r 'begin-for-syntax) (,(r 'require-extension) ,@(cdr x)))))) (##sys#extend-macro-environment 'module '() (##sys#er-transformer (lambda (x r c) (let ((len (length x))) (##sys#check-syntax 'module x '(_ symbol _ . #(_ 0))) (cond ((and (fx>= len 4) (c (r '=) (caddr x))) (let* ((x (##sys#strip-syntax x)) (name (cadr x)) (app (cadddr x))) (cond ((symbol? app) (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#register-module-alias name app) '(##core#undefined)))) (else (##sys#check-syntax 'module x '(_ symbol _ (symbol . #(_ 0)))) (##sys#instantiate-functor name (car app) ; functor name (cdr app)))))) ; functor arguments (else ;;XXX use module name in "loc" argument? (let ((exports (##sys#validate-exports (##sys#strip-syntax (caddr x)) 'module))) `(##core#module ,(cadr x) ,(if (eq? '* exports) #t exports) ,@(let ((body (cdddr x))) (if (and (pair? body) (null? (cdr body)) (string? (car body))) `((##core#include ,(car body))) body)))))))))) (##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 'export '() (##sys#er-transformer (lambda (x r c) (let ((exps (##sys#validate-exports (##sys#strip-syntax (cdr x)) 'export)) (mod (##sys#current-module))) (when mod (##sys#add-to-export-list mod exps)) '(##core#undefined))))) ;;; syntax-rules (include "synrules.scm") ;;; the base macro environment ("scheme", essentially) (define (##sys#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))))))) (##sys#fixup-macro-environment se parent-env))) (define (##sys#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)) (define ##sys#default-macro-environment (##sys#fixup-macro-environment (##sys#macro-environment))) (define ##sys#meta-macro-environment (make-parameter (##sys#macro-environment))) chicken-4.12.0/scrutinizer.c0000644000175000017500000464066413052306462015562 0ustar sjamaansjamaan/* Generated from scrutinizer.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:18 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: scrutinizer.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -no-lambda-info -extend private-namespace.scm -no-trace -output-file scrutinizer.c unit: scrutinizer */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[391]; static double C_possibly_force_alignment; C_noret_decl(f_13544) static void C_fcall f_13544(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17029) static void C_ccall f_17029(C_word c,C_word *av) C_noret; C_noret_decl(f_19184) static void C_ccall f_19184(C_word c,C_word *av) C_noret; C_noret_decl(f_18595) static void C_fcall f_18595(C_word t0,C_word t1,C_word t2) 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_13530) static void C_ccall f_13530(C_word c,C_word *av) C_noret; C_noret_decl(f_16824) static void C_ccall f_16824(C_word c,C_word *av) C_noret; C_noret_decl(f_16834) static void C_ccall f_16834(C_word c,C_word *av) C_noret; C_noret_decl(f_8410) static void C_ccall f_8410(C_word c,C_word *av) C_noret; C_noret_decl(f_18540) static void C_ccall f_18540(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_7751) static void C_ccall f_7751(C_word c,C_word *av) C_noret; C_noret_decl(f_18048) static void C_fcall f_18048(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_14637) static void C_ccall f_14637(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_11928) static void C_fcall f_11928(C_word t0,C_word t1) 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_20268) static void C_ccall f_20268(C_word c,C_word *av) 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_19125) static void C_ccall f_19125(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_9642) static void C_ccall f_9642(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_9654) static void C_ccall f_9654(C_word c,C_word *av) C_noret; C_noret_decl(f_13789) static void C_fcall f_13789(C_word t0,C_word t1) 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_19104) static void C_ccall f_19104(C_word c,C_word *av) C_noret; C_noret_decl(f_19100) static void C_ccall f_19100(C_word c,C_word *av) C_noret; C_noret_decl(f_16036) static void C_fcall f_16036(C_word t0,C_word t1,C_word t2) 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_15547) static void C_ccall f_15547(C_word c,C_word *av) C_noret; C_noret_decl(f_18524) static void C_fcall f_18524(C_word t0,C_word t1) C_noret; C_noret_decl(f_18517) static void C_fcall f_18517(C_word t0,C_word t1,C_word t2) 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_18534) static void C_ccall f_18534(C_word c,C_word *av) C_noret; C_noret_decl(f_9793) static void C_ccall f_9793(C_word c,C_word *av) C_noret; C_noret_decl(f_18528) static void C_fcall f_18528(C_word t0,C_word t1,C_word t2) 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_9614) static void C_fcall f_9614(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8381) static void C_fcall f_8381(C_word t0,C_word t1,C_word t2,C_word t3) 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_9784) static void C_ccall f_9784(C_word c,C_word *av) 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_7711) static void C_ccall f_7711(C_word c,C_word *av) C_noret; C_noret_decl(f_15988) static void C_ccall f_15988(C_word c,C_word *av) C_noret; C_noret_decl(f_9775) static void C_ccall f_9775(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_noret; C_noret_decl(f_9778) static void C_ccall f_9778(C_word c,C_word *av) C_noret; C_noret_decl(f_8319) static void C_ccall f_8319(C_word c,C_word *av) C_noret; C_noret_decl(f_8316) static void C_ccall f_8316(C_word c,C_word *av) C_noret; C_noret_decl(f_7708) static void C_fcall f_7708(C_word t0,C_word t1) 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_9636) static void C_fcall f_9636(C_word t0,C_word t1) 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_10745) static void C_ccall f_10745(C_word c,C_word *av) C_noret; C_noret_decl(f_8323) static void C_ccall f_8323(C_word c,C_word *av) 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_15994) static void C_ccall f_15994(C_word c,C_word *av) C_noret; C_noret_decl(f_9711) static void C_ccall f_9711(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_14689) static void C_fcall f_14689(C_word t0,C_word t1) 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_15832) static void C_fcall f_15832(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20089) static void C_fcall f_20089(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6471) static void C_fcall f_6471(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_9759) static void C_fcall f_9759(C_word t0,C_word t1,C_word t2) 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_15870) static void C_ccall f_15870(C_word c,C_word *av) C_noret; C_noret_decl(f_19795) static void C_ccall f_19795(C_word c,C_word *av) C_noret; C_noret_decl(f_19767) static void C_fcall f_19767(C_word t0,C_word t1) C_noret; C_noret_decl(f_9745) static void C_ccall f_9745(C_word c,C_word *av) C_noret; C_noret_decl(f_13527) static void C_ccall f_13527(C_word c,C_word *av) C_noret; C_noret_decl(f_13524) static void C_ccall f_13524(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_13518) static void C_ccall f_13518(C_word c,C_word *av) C_noret; C_noret_decl(f_13512) static void C_ccall f_13512(C_word c,C_word *av) C_noret; C_noret_decl(f_19770) static void C_ccall f_19770(C_word c,C_word *av) C_noret; C_noret_decl(f_11395) static void C_fcall f_11395(C_word t0,C_word t1) C_noret; C_noret_decl(f_13505) static void C_fcall f_13505(C_word t0,C_word t1,C_word t2) 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_18744) static void C_fcall f_18744(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18742) static void C_ccall f_18742(C_word c,C_word *av) C_noret; C_noret_decl(f_15510) static void C_fcall f_15510(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12353) static void C_ccall f_12353(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_9733) static void C_ccall f_9733(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_18769) static void C_ccall f_18769(C_word c,C_word *av) C_noret; C_noret_decl(f_19724) static void C_fcall f_19724(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_19722) static void C_ccall f_19722(C_word c,C_word *av) C_noret; C_noret_decl(f_18778) static void C_ccall f_18778(C_word c,C_word *av) C_noret; C_noret_decl(f_12332) static void C_ccall f_12332(C_word c,C_word *av) C_noret; C_noret_decl(f_19680) static void C_fcall f_19680(C_word t0,C_word t1) 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_15520) static void C_ccall f_15520(C_word c,C_word *av) C_noret; C_noret_decl(f_19706) static void C_fcall f_19706(C_word t0,C_word t1) C_noret; C_noret_decl(f_19709) static void C_ccall f_19709(C_word c,C_word *av) C_noret; C_noret_decl(f_19690) static void C_fcall f_19690(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_19719) static void C_ccall f_19719(C_word c,C_word *av) C_noret; C_noret_decl(f_15890) static void C_ccall f_15890(C_word c,C_word *av) 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_19671) static void C_ccall f_19671(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_10774) static void C_fcall f_10774(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10783) static void C_fcall f_10783(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_9313) static void C_ccall f_9313(C_word c,C_word *av) C_noret; C_noret_decl(f_9320) static void C_fcall f_9320(C_word t0,C_word t1) C_noret; C_noret_decl(f_8772) static void C_ccall f_8772(C_word c,C_word *av) C_noret; C_noret_decl(f_8774) static void C_fcall f_8774(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_19637) static void C_fcall f_19637(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10768) static void C_ccall f_10768(C_word c,C_word *av) C_noret; C_noret_decl(f_19610) static void C_ccall f_19610(C_word c,C_word *av) C_noret; C_noret_decl(f_9335) static void C_ccall f_9335(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_11851) static void C_ccall f_11851(C_word c,C_word *av) C_noret; C_noret_decl(f_19606) static void C_ccall f_19606(C_word c,C_word *av) C_noret; C_noret_decl(f_19662) static void C_ccall f_19662(C_word c,C_word *av) 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_19614) static void C_ccall f_19614(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_14020) static void C_fcall f_14020(C_word t0,C_word t1) 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_20302) static void C_ccall f_20302(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_9355) static void C_ccall f_9355(C_word c,C_word *av) C_noret; C_noret_decl(f_9358) static void C_ccall f_9358(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_9361) static void C_ccall f_9361(C_word c,C_word *av) C_noret; C_noret_decl(f_9365) static void C_ccall f_9365(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_15845) static void C_fcall f_15845(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15843) static void C_ccall f_15843(C_word c,C_word *av) C_noret; C_noret_decl(f_17356) static void C_fcall f_17356(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8784) static void C_fcall f_8784(C_word t0,C_word t1) C_noret; C_noret_decl(f_8788) static void C_fcall f_8788(C_word t0,C_word t1,C_word t2) 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_8861) static void C_ccall f_8861(C_word c,C_word *av) C_noret; C_noret_decl(f_19623) static void C_ccall f_19623(C_word c,C_word *av) C_noret; C_noret_decl(f_8796) static void C_fcall f_8796(C_word t0,C_word t1) C_noret; C_noret_decl(f_18963) static void C_fcall f_18963(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_8837) static void C_ccall f_8837(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_12316) static void C_ccall f_12316(C_word c,C_word *av) C_noret; C_noret_decl(f_6127) static void C_ccall f_6127(C_word c,C_word *av) C_noret; C_noret_decl(f_6120) static void C_ccall f_6120(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_16409) static void C_ccall f_16409(C_word c,C_word *av) C_noret; C_noret_decl(f_16402) static void C_ccall f_16402(C_word c,C_word *av) C_noret; C_noret_decl(f_11124) static void C_ccall f_11124(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_13920) static void C_fcall f_13920(C_word t0,C_word t1) C_noret; C_noret_decl(f_16416) static void C_ccall f_16416(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_11111) static void C_fcall f_11111(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16428) static void C_ccall f_16428(C_word c,C_word *av) C_noret; C_noret_decl(f_16425) static void C_ccall f_16425(C_word c,C_word *av) C_noret; C_noret_decl(f_16422) static void C_ccall f_16422(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_13906) static void C_ccall f_13906(C_word c,C_word *av) C_noret; C_noret_decl(f_18176) static void C_fcall f_18176(C_word t0,C_word t1) C_noret; C_noret_decl(f_16431) static void C_ccall f_16431(C_word c,C_word *av) C_noret; C_noret_decl(f_16434) static void C_ccall f_16434(C_word c,C_word *av) C_noret; C_noret_decl(f_10162) static void C_ccall f_10162(C_word c,C_word *av) C_noret; C_noret_decl(f_12389) static void C_ccall f_12389(C_word c,C_word *av) C_noret; C_noret_decl(f_18179) static void C_fcall f_18179(C_word t0,C_word t1) C_noret; C_noret_decl(f_6117) static void C_ccall f_6117(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_10136) static void C_ccall f_10136(C_word c,C_word *av) C_noret; C_noret_decl(f_7035) static void C_ccall f_7035(C_word c,C_word *av) C_noret; C_noret_decl(f_15207) static C_word C_fcall f_15207(C_word t0); C_noret_decl(f_8265) static void C_ccall f_8265(C_word c,C_word *av) C_noret; C_noret_decl(f_18194) static void C_ccall f_18194(C_word c,C_word *av) C_noret; C_noret_decl(f_7023) static void C_ccall f_7023(C_word c,C_word *av) C_noret; C_noret_decl(f_6149) static void C_ccall f_6149(C_word c,C_word *av) C_noret; C_noret_decl(f_7020) static void C_ccall f_7020(C_word c,C_word *av) C_noret; C_noret_decl(f_10142) static void C_fcall f_10142(C_word t0,C_word t1) C_noret; C_noret_decl(f_6146) static void C_ccall f_6146(C_word c,C_word *av) C_noret; C_noret_decl(f_6143) static void C_ccall f_6143(C_word c,C_word *av) C_noret; C_noret_decl(f_6140) static void C_ccall f_6140(C_word c,C_word *av) C_noret; C_noret_decl(f_17387) static void C_ccall f_17387(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_17384) static void C_fcall f_17384(C_word t0,C_word t1) 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_10115) static void C_ccall f_10115(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_17318) static void C_ccall f_17318(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_18906) static void C_ccall f_18906(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_16957) static void C_ccall f_16957(C_word c,C_word *av) C_noret; C_noret_decl(f_15934) static void C_fcall f_15934(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17322) static void C_fcall f_17322(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17328) static C_word C_fcall f_17328(C_word t0,C_word t1); C_noret_decl(f_18912) static void C_ccall f_18912(C_word c,C_word *av) C_noret; C_noret_decl(f_18915) static void C_ccall f_18915(C_word c,C_word *av) C_noret; C_noret_decl(f_8757) static void C_ccall f_8757(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_6159) static void C_ccall f_6159(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_15924) static void C_fcall f_15924(C_word t0,C_word t1) C_noret; C_noret_decl(f_18927) static void C_ccall f_18927(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_16931) static void C_ccall f_16931(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_8720) static void C_ccall f_8720(C_word c,C_word *av) C_noret; C_noret_decl(f_16494) static void C_ccall f_16494(C_word c,C_word *av) C_noret; C_noret_decl(f_11199) static void C_fcall f_11199(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18929) static void C_fcall f_18929(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16903) static void C_ccall f_16903(C_word c,C_word *av) C_noret; C_noret_decl(f_16906) static void C_fcall f_16906(C_word t0,C_word t1,C_word t2) 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_16911) static void C_ccall f_16911(C_word c,C_word *av) C_noret; C_noret_decl(f_16918) static void C_ccall f_16918(C_word c,C_word *av) 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_16448) static void C_fcall f_16448(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16443) static void C_ccall f_16443(C_word c,C_word *av) C_noret; C_noret_decl(f_18113) static void C_ccall f_18113(C_word c,C_word *av) C_noret; C_noret_decl(f_17300) static void C_fcall f_17300(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18124) static void C_fcall f_18124(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16464) static void C_ccall f_16464(C_word c,C_word *av) C_noret; C_noret_decl(f_16461) static void C_fcall f_16461(C_word t0,C_word t1) C_noret; C_noret_decl(f_18119) static void C_ccall f_18119(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_13468) static void C_ccall f_13468(C_word c,C_word *av) C_noret; C_noret_decl(f_16475) static void C_fcall f_16475(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10121) static void C_ccall f_10121(C_word c,C_word *av) 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_16924) static void C_ccall f_16924(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_8733) static void C_ccall f_8733(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_8702) static void C_ccall f_8702(C_word c,C_word *av) C_noret; C_noret_decl(f_11826) static void C_fcall f_11826(C_word t0,C_word t1) C_noret; C_noret_decl(f_7083) static void C_ccall f_7083(C_word c,C_word *av) C_noret; C_noret_decl(f_13940) static void C_fcall f_13940(C_word t0,C_word t1) 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_13979) static void C_fcall f_13979(C_word t0,C_word t1) 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_7088) static void C_ccall f_7088(C_word c,C_word *av) C_noret; C_noret_decl(f_7079) static void C_fcall f_7079(C_word t0,C_word t1) C_noret; C_noret_decl(f_13952) static void C_ccall f_13952(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_15054) static void C_ccall f_15054(C_word c,C_word *av) C_noret; C_noret_decl(f_12712) static void C_fcall f_12712(C_word t0,C_word t1) 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_12702) static void C_ccall f_12702(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_7010) static void C_ccall f_7010(C_word c,C_word *av) C_noret; C_noret_decl(f_15092) static void C_fcall f_15092(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19329) static void C_fcall f_19329(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_15021) static void C_fcall f_15021(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19302) static void C_ccall f_19302(C_word c,C_word *av) C_noret; C_noret_decl(f_15081) static void C_fcall f_15081(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13589) static void C_fcall f_13589(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15945) static void C_ccall f_15945(C_word c,C_word *av) C_noret; C_noret_decl(f_15947) static void C_fcall f_15947(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20179) static void C_ccall f_20179(C_word c,C_word *av) C_noret; C_noret_decl(f_15972) static void C_ccall f_15972(C_word c,C_word *av) C_noret; C_noret_decl(f_20181) static void C_fcall f_20181(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20195) static void C_fcall f_20195(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18203) static void C_ccall f_18203(C_word c,C_word *av) C_noret; C_noret_decl(f_13404) static void C_ccall f_13404(C_word c,C_word *av) C_noret; C_noret_decl(f_18207) static void C_fcall f_18207(C_word t0,C_word t1) C_noret; C_noret_decl(f_14740) static void C_fcall f_14740(C_word t0,C_word t1) C_noret; C_noret_decl(f_18217) static void C_ccall f_18217(C_word c,C_word *av) C_noret; C_noret_decl(f_13410) static void C_fcall f_13410(C_word t0,C_word t1,C_word t2,C_word t3) 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_9196) static void C_ccall f_9196(C_word c,C_word *av) C_noret; C_noret_decl(f_19347) static void C_ccall f_19347(C_word c,C_word *av) C_noret; C_noret_decl(f_19995) static void C_fcall f_19995(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10531) static void C_fcall f_10531(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19353) static void C_fcall f_19353(C_word t0,C_word t1) 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_10508) static void C_ccall f_10508(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_19978) static void C_ccall f_19978(C_word c,C_word *av) C_noret; C_noret_decl(f_10511) static void C_ccall f_10511(C_word c,C_word *av) C_noret; C_noret_decl(f_10514) static void C_ccall f_10514(C_word c,C_word *av) C_noret; C_noret_decl(f_14796) static void C_fcall f_14796(C_word t0,C_word t1) C_noret; C_noret_decl(f_20046) static void C_ccall f_20046(C_word c,C_word *av) C_noret; C_noret_decl(f_18282) static void C_ccall f_18282(C_word c,C_word *av) C_noret; C_noret_decl(f_10575) static void C_fcall f_10575(C_word t0,C_word t1) C_noret; C_noret_decl(f_20058) static void C_fcall f_20058(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20054) static void C_ccall f_20054(C_word c,C_word *av) C_noret; C_noret_decl(f_20050) static void C_fcall f_20050(C_word t0,C_word t1) 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_20066) static void C_ccall f_20066(C_word c,C_word *av) C_noret; C_noret_decl(f_9175) static void C_ccall f_9175(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_19983) static void C_fcall f_19983(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_19986) static void C_fcall f_19986(C_word t0,C_word t1) C_noret; C_noret_decl(f_19981) static void C_ccall f_19981(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_18249) static void C_ccall f_18249(C_word c,C_word *av) C_noret; C_noret_decl(f_12772) static void C_ccall f_12772(C_word c,C_word *av) C_noret; C_noret_decl(f_18255) static void C_ccall f_18255(C_word c,C_word *av) C_noret; C_noret_decl(f_18257) static void C_fcall f_18257(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13328) static void C_ccall f_13328(C_word c,C_word *av) C_noret; C_noret_decl(f_13324) static void C_ccall f_13324(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_13313) static void C_fcall f_13313(C_word t0,C_word t1) C_noret; C_noret_decl(f_20483) static void C_ccall f_20483(C_word c,C_word *av) C_noret; C_noret_decl(f_12747) static void C_fcall f_12747(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7467) static void C_ccall f_7467(C_word c,C_word *av) C_noret; C_noret_decl(f_8691) static void C_ccall f_8691(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_8694) static void C_ccall f_8694(C_word c,C_word *av) C_noret; C_noret_decl(f_8698) static void C_ccall f_8698(C_word c,C_word *av) C_noret; C_noret_decl(f_19926) static void C_ccall f_19926(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_11300) static void C_fcall f_11300(C_word t0,C_word t1) C_noret; C_noret_decl(f_11306) static void C_ccall f_11306(C_word c,C_word *av) C_noret; C_noret_decl(f_19937) static void C_ccall f_19937(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_8685) static void C_ccall f_8685(C_word c,C_word *av) C_noret; C_noret_decl(f_8688) static void C_ccall f_8688(C_word c,C_word *av) C_noret; C_noret_decl(f_17291) static void C_ccall f_17291(C_word c,C_word *av) C_noret; C_noret_decl(f_10195) static void C_ccall f_10195(C_word c,C_word *av) C_noret; C_noret_decl(f_10192) static void C_ccall f_10192(C_word c,C_word *av) C_noret; C_noret_decl(f_12423) static void C_fcall f_12423(C_word t0,C_word t1,C_word t2) 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_16687) static void C_ccall f_16687(C_word c,C_word *av) C_noret; C_noret_decl(f_16684) static void C_ccall f_16684(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_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_6235) static void C_ccall f_6235(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_12406) static void C_ccall f_12406(C_word c,C_word *av) C_noret; C_noret_decl(f_10541) static void C_ccall f_10541(C_word c,C_word *av) C_noret; C_noret_decl(f_6268) static void C_fcall f_6268(C_word t0,C_word t1) 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_20474) static void C_ccall f_20474(C_word c,C_word *av) C_noret; C_noret_decl(f_12471) static void C_ccall f_12471(C_word c,C_word *av) C_noret; C_noret_decl(f_20449) static void C_fcall f_20449(C_word t0,C_word t1,C_word t2) 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_7158) static void C_ccall f_7158(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_6254) static void C_ccall f_6254(C_word c,C_word *av) C_noret; C_noret_decl(f_20447) static void C_ccall f_20447(C_word c,C_word *av) C_noret; C_noret_decl(f_13154) static void C_fcall f_13154(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13159) static void C_ccall f_13159(C_word c,C_word *av) C_noret; C_noret_decl(f_16643) static void C_ccall f_16643(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_16648) static void C_fcall f_16648(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18412) static void C_ccall f_18412(C_word c,C_word *av) C_noret; C_noret_decl(f_18414) static void C_fcall f_18414(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17289) static void C_ccall f_17289(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_13185) static void C_ccall f_13185(C_word c,C_word *av) C_noret; C_noret_decl(f_7133) static void C_fcall f_7133(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16658) static void C_ccall f_16658(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_6275) static void C_ccall f_6275(C_word c,C_word *av) C_noret; C_noret_decl(f_10581) static void C_fcall f_10581(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11782) static void C_ccall f_11782(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_19039) static void C_ccall f_19039(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_19035) static void C_ccall f_19035(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_10591) static void C_ccall f_10591(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_8634) static void C_fcall f_8634(C_word t0,C_word t1) C_noret; C_noret_decl(f_16671) static void C_ccall f_16671(C_word c,C_word *av) C_noret; C_noret_decl(f_16678) static void C_ccall f_16678(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_18409) static void C_ccall f_18409(C_word c,C_word *av) C_noret; C_noret_decl(f_13191) static void C_ccall f_13191(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_6248) static void C_ccall f_6248(C_word c,C_word *av) C_noret; C_noret_decl(f_10019) static void C_fcall f_10019(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10017) static void C_ccall f_10017(C_word c,C_word *av) C_noret; C_noret_decl(f_16611) static void C_ccall f_16611(C_word c,C_word *av) C_noret; C_noret_decl(f_20426) static void C_ccall f_20426(C_word c,C_word *av) C_noret; C_noret_decl(f_18463) static void C_ccall f_18463(C_word c,C_word *av) C_noret; C_noret_decl(f_20573) static void C_ccall f_20573(C_word c,C_word *av) C_noret; C_noret_decl(f_20575) static void C_fcall f_20575(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9492) static void C_ccall f_9492(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_13707) static void C_fcall f_13707(C_word t0,C_word t1) C_noret; C_noret_decl(f_20548) static void C_ccall f_20548(C_word c,C_word *av) C_noret; C_noret_decl(f_18491) static void C_fcall f_18491(C_word t0,C_word t1,C_word t2) 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_9463) static void C_ccall f_9463(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_18473) static void C_ccall f_18473(C_word c,C_word *av) C_noret; C_noret_decl(f_18471) static void C_ccall f_18471(C_word c,C_word *av) C_noret; C_noret_decl(f_7401) static void C_fcall f_7401(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10086) static void C_ccall f_10086(C_word c,C_word *av) C_noret; C_noret_decl(f_18488) static void C_ccall f_18488(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_18454) static void C_ccall f_18454(C_word c,C_word *av) 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_13739) static void C_fcall f_13739(C_word t0,C_word t1) C_noret; C_noret_decl(f_8615) static void C_ccall f_8615(C_word c,C_word *av) C_noret; C_noret_decl(f_8618) static void C_fcall f_8618(C_word t0,C_word t1) 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_13729) static void C_ccall f_13729(C_word c,C_word *av) C_noret; C_noret_decl(f_12287) static void C_fcall f_12287(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13720) static void C_fcall f_13720(C_word t0,C_word t1) 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_9487) static void C_ccall f_9487(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_10044) static void C_ccall f_10044(C_word c,C_word *av) C_noret; C_noret_decl(f_9419) static void C_ccall f_9419(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_12265) static void C_ccall f_12265(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_10057) static void C_fcall f_10057(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_14868) static void C_fcall f_14868(C_word t0,C_word t1) C_noret; C_noret_decl(f_14861) static void C_fcall f_14861(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_13229) static void C_ccall f_13229(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_7196) static void C_ccall f_7196(C_word c,C_word *av) C_noret; C_noret_decl(f_13878) static void C_fcall f_13878(C_word t0,C_word t1) C_noret; C_noret_decl(f_7184) static void C_ccall f_7184(C_word c,C_word *av) C_noret; C_noret_decl(f_9454) static void C_ccall f_9454(C_word c,C_word *av) C_noret; C_noret_decl(f_7186) static void C_fcall f_7186(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9425) static void C_ccall f_9425(C_word c,C_word *av) C_noret; C_noret_decl(f_9428) static void C_ccall f_9428(C_word c,C_word *av) C_noret; C_noret_decl(f_7175) static void C_ccall f_7175(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_9437) static void C_ccall f_9437(C_word c,C_word *av) C_noret; C_noret_decl(f_9431) static void C_ccall f_9431(C_word c,C_word *av) C_noret; C_noret_decl(f_9434) static void C_ccall f_9434(C_word c,C_word *av) C_noret; C_noret_decl(f_9569) static void C_fcall f_9569(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12827) static void C_ccall f_12827(C_word c,C_word *av) C_noret; C_noret_decl(f_17700) static void C_ccall f_17700(C_word c,C_word *av) C_noret; C_noret_decl(f_17702) static void C_fcall f_17702(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9581) static void C_fcall f_9581(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20417) static void C_ccall f_20417(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_word t2,C_word t3) 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_12218) static void C_fcall f_12218(C_word t0,C_word t1,C_word t2,C_word t3) 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_13991) static void C_ccall f_13991(C_word c,C_word *av) C_noret; C_noret_decl(f_12212) static void C_fcall f_12212(C_word t0,C_word t1,C_word t2,C_word t3) 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_13206) static void C_fcall f_13206(C_word t0,C_word t1,C_word t2) 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_17776) static void C_fcall f_17776(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10947) static void C_ccall f_10947(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_9448) static void C_ccall f_9448(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_9440) static void C_ccall f_9440(C_word c,C_word *av) C_noret; C_noret_decl(f_7114) static void C_ccall f_7114(C_word c,C_word *av) C_noret; C_noret_decl(f_10917) static void C_ccall f_10917(C_word c,C_word *av) C_noret; C_noret_decl(f_10911) static void C_ccall f_10911(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_13275) static void C_ccall f_13275(C_word c,C_word *av) C_noret; C_noret_decl(f_15158) static void C_fcall f_15158(C_word t0,C_word t1) C_noret; C_noret_decl(f_15150) static void C_ccall f_15150(C_word c,C_word *av) C_noret; C_noret_decl(f_13268) static void C_fcall f_13268(C_word t0,C_word t1) C_noret; C_noret_decl(f_13493) static void C_fcall f_13493(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19596) static void C_ccall f_19596(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_15122) static void C_fcall f_15122(C_word t0,C_word t1) C_noret; C_noret_decl(f_15124) static void C_fcall f_15124(C_word t0,C_word t1,C_word t2) 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_19593) static void C_ccall f_19593(C_word c,C_word *av) C_noret; C_noret_decl(f_9508) static void C_fcall f_9508(C_word t0,C_word t1) C_noret; C_noret_decl(f_9501) static void C_fcall f_9501(C_word t0,C_word t1) 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_15672) static void C_fcall f_15672(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13758) static void C_fcall f_13758(C_word t0,C_word t1) 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_10497) static void C_ccall f_10497(C_word c,C_word *av) C_noret; C_noret_decl(f_9541) static void C_ccall f_9541(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_9556) static void C_ccall f_9556(C_word c,C_word *av) C_noret; C_noret_decl(f_9550) static void C_ccall f_9550(C_word c,C_word *av) C_noret; C_noret_decl(f_12922) static void C_ccall f_12922(C_word c,C_word *av) C_noret; C_noret_decl(f_10449) static void C_ccall f_10449(C_word c,C_word *av) C_noret; C_noret_decl(f_14852) static void C_fcall f_14852(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_19514) static void C_fcall f_19514(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19518) static void C_ccall f_19518(C_word c,C_word *av) C_noret; C_noret_decl(f_19510) static void C_fcall f_19510(C_word t0,C_word t1) 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_10455) static void C_ccall f_10455(C_word c,C_word *av) C_noret; C_noret_decl(f_10452) static void C_ccall f_10452(C_word c,C_word *av) C_noret; C_noret_decl(f_19522) static void C_ccall f_19522(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_10464) static void C_ccall f_10464(C_word c,C_word *av) C_noret; C_noret_decl(f_19578) static void C_ccall f_19578(C_word c,C_word *av) C_noret; C_noret_decl(f_14878) static void C_fcall f_14878(C_word t0,C_word t1) 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_14871) static void C_ccall f_14871(C_word c,C_word *av) C_noret; C_noret_decl(f_20114) static void C_ccall f_20114(C_word c,C_word *av) C_noret; C_noret_decl(f_19572) static void C_ccall f_19572(C_word c,C_word *av) C_noret; C_noret_decl(f_19587) static void C_ccall f_19587(C_word c,C_word *av) C_noret; C_noret_decl(f_19584) static void C_ccall f_19584(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_19581) static void C_ccall f_19581(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_7893) static void C_ccall f_7893(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_20137) static void C_fcall f_20137(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15682) static void C_ccall f_15682(C_word c,C_word *av) C_noret; C_noret_decl(f_20535) static void C_ccall f_20535(C_word c,C_word *av) C_noret; C_noret_decl(f_14880) static void C_fcall f_14880(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_17912) static void C_ccall f_17912(C_word c,C_word *av) C_noret; C_noret_decl(f_20508) static void C_ccall f_20508(C_word c,C_word *av) C_noret; C_noret_decl(f_17920) static void C_fcall f_17920(C_word t0,C_word t1) C_noret; C_noret_decl(f_17924) static void C_ccall f_17924(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_7862) static void C_ccall f_7862(C_word c,C_word *av) C_noret; C_noret_decl(f_20510) static void C_fcall f_20510(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18396) static C_word C_fcall f_18396(C_word t0,C_word t1); C_noret_decl(f_17935) static void C_ccall f_17935(C_word c,C_word *av) C_noret; C_noret_decl(f_20162) static void C_ccall f_20162(C_word c,C_word *av) C_noret; C_noret_decl(f_12895) static void C_ccall f_12895(C_word c,C_word *av) 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_18364) static void C_ccall f_18364(C_word c,C_word *av) C_noret; C_noret_decl(f_18361) static void C_fcall f_18361(C_word t0,C_word t1) 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_8158) static void C_ccall f_8158(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_19504) static void C_ccall f_19504(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_7581) static void C_ccall f_7581(C_word c,C_word *av) C_noret; C_noret_decl(f_7587) static void C_ccall f_7587(C_word c,C_word *av) C_noret; C_noret_decl(f_12854) static void C_ccall f_12854(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_7818) static void C_ccall f_7818(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_7565) static void C_ccall f_7565(C_word c,C_word *av) C_noret; C_noret_decl(f_7807) static void C_ccall f_7807(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_12534) static void C_ccall f_12534(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_10905) static void C_fcall f_10905(C_word t0,C_word t1,C_word t2,C_word t3) 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_12522) static void C_ccall f_12522(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_7575) static void C_ccall f_7575(C_word c,C_word *av) C_noret; C_noret_decl(f_7578) static void C_ccall f_7578(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_15437) static void C_fcall f_15437(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12525) static void C_ccall f_12525(C_word c,C_word *av) C_noret; C_noret_decl(f_12528) static void C_ccall f_12528(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_12519) static void C_ccall f_12519(C_word c,C_word *av) C_noret; C_noret_decl(f_12515) static void C_ccall f_12515(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_17564) static void C_ccall f_17564(C_word c,C_word *av) C_noret; C_noret_decl(f_7822) static void C_ccall f_7822(C_word c,C_word *av) C_noret; C_noret_decl(f_15411) static void C_fcall f_15411(C_word t0,C_word t1) C_noret; C_noret_decl(f_12589) static void C_ccall f_12589(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_12583) static void C_ccall f_12583(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_12953) static void C_fcall f_12953(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12951) static void C_ccall f_12951(C_word c,C_word *av) C_noret; C_noret_decl(f_12577) static void C_ccall f_12577(C_word c,C_word *av) C_noret; C_noret_decl(f_15386) static void C_ccall f_15386(C_word c,C_word *av) C_noret; C_noret_decl(f_15382) static void C_ccall f_15382(C_word c,C_word *av) C_noret; C_noret_decl(f_17596) static void C_ccall f_17596(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_16771) static void C_ccall f_16771(C_word c,C_word *av) C_noret; C_noret_decl(f_16779) static void C_ccall f_16779(C_word c,C_word *av) C_noret; C_noret_decl(f_15388) static void C_ccall f_15388(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_17530) static void C_ccall f_17530(C_word c,C_word *av) C_noret; C_noret_decl(f_16755) static void C_ccall f_16755(C_word c,C_word *av) 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_7264) static void C_ccall f_7264(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_16763) static void C_ccall f_16763(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_7249) static void C_ccall f_7249(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_7242) static void C_fcall f_7242(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_7245) static void C_fcall f_7245(C_word t0,C_word t1) C_noret; C_noret_decl(f_7553) static void C_ccall f_7553(C_word c,C_word *av) C_noret; C_noret_decl(f_15712) static C_word C_fcall f_15712(C_word t0,C_word t1); C_noret_decl(f_16797) static void C_ccall f_16797(C_word c,C_word *av) C_noret; C_noret_decl(f_15474) static void C_ccall f_15474(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_15706) static void C_fcall f_15706(C_word t0,C_word t1,C_word t2) 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_10880) static void C_ccall f_10880(C_word c,C_word *av) C_noret; C_noret_decl(f_14320) static void C_ccall f_14320(C_word c,C_word *av) C_noret; C_noret_decl(f_9845) static void C_ccall f_9845(C_word c,C_word *av) 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_10375) static void C_fcall f_10375(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10373) static void C_ccall f_10373(C_word c,C_word *av) 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_9810) static void C_fcall f_9810(C_word t0,C_word t1,C_word t2) 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_6686) static void C_ccall f_6686(C_word c,C_word *av) C_noret; C_noret_decl(f_6678) static void C_ccall f_6678(C_word c,C_word *av) C_noret; C_noret_decl(f_6674) static void C_fcall f_6674(C_word t0,C_word t1,C_word t2,C_word t3) 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_9879) static void C_ccall f_9879(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_15494) static void C_ccall f_15494(C_word c,C_word *av) C_noret; C_noret_decl(f_16736) static void C_fcall f_16736(C_word t0,C_word t1) C_noret; C_noret_decl(f_18888) static void C_ccall f_18888(C_word c,C_word *av) C_noret; C_noret_decl(f_10363) static void C_fcall f_10363(C_word t0,C_word t1,C_word t2) 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_9889) static void C_fcall f_9889(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16744) static void C_ccall f_16744(C_word c,C_word *av) C_noret; C_noret_decl(f_18898) static void C_ccall f_18898(C_word c,C_word *av) C_noret; C_noret_decl(f_7504) static void C_fcall f_7504(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16711) static void C_ccall f_16711(C_word c,C_word *av) C_noret; C_noret_decl(f_16717) static void C_ccall f_16717(C_word c,C_word *av) C_noret; C_noret_decl(f_9976) static void C_ccall f_9976(C_word c,C_word *av) C_noret; C_noret_decl(f_9974) static void C_ccall f_9974(C_word c,C_word *av) C_noret; C_noret_decl(f_16721) static void C_ccall f_16721(C_word c,C_word *av) C_noret; C_noret_decl(f_14379) static void C_fcall f_14379(C_word t0,C_word t1) 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_16729) static void C_ccall f_16729(C_word c,C_word *av) C_noret; C_noret_decl(f_12553) static void C_ccall f_12553(C_word c,C_word *av) C_noret; C_noret_decl(f_12567) static void C_ccall f_12567(C_word c,C_word *av) C_noret; C_noret_decl(f_18846) static void C_fcall f_18846(C_word t0,C_word t1) 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_15464) static void C_fcall f_15464(C_word t0,C_word t1,C_word t2) 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_18853) static void C_ccall f_18853(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_8111) static void C_ccall f_8111(C_word c,C_word *av) C_noret; C_noret_decl(f_18857) static void C_ccall f_18857(C_word c,C_word *av) 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_18820) static void C_ccall f_18820(C_word c,C_word *av) C_noret; C_noret_decl(f_18826) static void C_fcall f_18826(C_word t0,C_word t1) 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_8123) static void C_fcall f_8123(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_7549) static void C_ccall f_7549(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_15447) static void C_ccall f_15447(C_word c,C_word *av) C_noret; C_noret_decl(f_14921) static void C_fcall f_14921(C_word t0,C_word t1) 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_18806) static void C_fcall f_18806(C_word t0,C_word t1,C_word t2,C_word t3) 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_6622) static void C_fcall f_6622(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_19205) static void C_ccall f_19205(C_word c,C_word *av) C_noret; C_noret_decl(f_19207) static void C_fcall f_19207(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9806) static void C_ccall f_9806(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_10336) static void C_ccall f_10336(C_word c,C_word *av) C_noret; C_noret_decl(f_6995) static void C_ccall f_6995(C_word c,C_word *av) C_noret; C_noret_decl(f_10340) static void C_ccall f_10340(C_word c,C_word *av) 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_6645) static void C_ccall f_6645(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_6635) static void C_fcall f_6635(C_word t0,C_word t1,C_word t2) 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_9986) static void C_ccall f_9986(C_word c,C_word *av) C_noret; C_noret_decl(f_17601) static void C_ccall f_17601(C_word c,C_word *av) C_noret; C_noret_decl(f_17605) static void C_ccall f_17605(C_word c,C_word *av) C_noret; C_noret_decl(f_19292) static void C_ccall f_19292(C_word c,C_word *av) C_noret; C_noret_decl(f_13898) static void C_fcall f_13898(C_word t0,C_word t1) C_noret; C_noret_decl(f_7271) static void C_ccall f_7271(C_word c,C_word *av) 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_17618) static void C_ccall f_17618(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_13886) static void C_ccall f_13886(C_word c,C_word *av) C_noret; C_noret_decl(f_9926) static void C_ccall f_9926(C_word c,C_word *av) C_noret; C_noret_decl(f_6651) static void C_fcall f_6651(C_word t0,C_word t1) 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_9935) static void C_fcall f_9935(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_17634) static void C_ccall f_17634(C_word c,C_word *av) C_noret; C_noret_decl(f_14368) static void C_ccall f_14368(C_word c,C_word *av) C_noret; C_noret_decl(f_17653) static void C_fcall f_17653(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_7223) static void C_ccall f_7223(C_word c,C_word *av) C_noret; C_noret_decl(f_15260) static C_word C_fcall f_15260(C_word t0); C_noret_decl(f_19872) static void C_ccall f_19872(C_word c,C_word *av) C_noret; C_noret_decl(f_7215) static void C_ccall f_7215(C_word c,C_word *av) C_noret; C_noret_decl(f_19870) static void C_fcall f_19870(C_word t0,C_word t1) 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_9901) static void C_fcall f_9901(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9088) static void C_ccall f_9088(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_11724) static void C_fcall f_11724(C_word t0,C_word t1) C_noret; C_noret_decl(f_19856) static void C_ccall f_19856(C_word c,C_word *av) C_noret; C_noret_decl(f_15758) static void C_fcall f_15758(C_word t0,C_word t1,C_word t2) 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_15750) static void C_fcall f_15750(C_word t0,C_word t1,C_word t2,C_word t3) 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_19865) static void C_ccall f_19865(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_15740) static void C_ccall f_15740(C_word c,C_word *av) C_noret; C_noret_decl(f_6938) static void C_ccall f_6938(C_word c,C_word *av) C_noret; C_noret_decl(f_6934) static void C_ccall f_6934(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_19893) static void C_fcall f_19893(C_word t0,C_word t1) C_noret; C_noret_decl(f_17885) static void C_fcall f_17885(C_word t0,C_word t1) C_noret; C_noret_decl(f_17888) static void C_ccall f_17888(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_15007) static void C_fcall f_15007(C_word t0,C_word t1) 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_19802) static void C_ccall f_19802(C_word c,C_word *av) C_noret; C_noret_decl(f_14986) static void C_fcall f_14986(C_word t0,C_word t1) 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_6900) static void C_ccall f_6900(C_word c,C_word *av) C_noret; C_noret_decl(f_17868) static void C_ccall f_17868(C_word c,C_word *av) C_noret; C_noret_decl(f_17865) static void C_ccall f_17865(C_word c,C_word *av) C_noret; C_noret_decl(f_16592) static void C_ccall f_16592(C_word c,C_word *av) C_noret; C_noret_decl(f_8588) static void C_fcall f_8588(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_15280) static C_word C_fcall f_15280(C_word t0); C_noret_decl(f_17872) static void C_fcall f_17872(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6919) static void C_ccall f_6919(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_17801) static void C_ccall f_17801(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_6773) static void C_ccall f_6773(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_8569) static void C_ccall f_8569(C_word c,C_word *av) C_noret; C_noret_decl(f_6947) static void C_ccall f_6947(C_word c,C_word *av) C_noret; C_noret_decl(f_6944) static void C_ccall f_6944(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_11241) static void C_ccall f_11241(C_word c,C_word *av) C_noret; C_noret_decl(f_14965) static void C_ccall f_14965(C_word c,C_word *av) C_noret; C_noret_decl(f_17192) static void C_fcall f_17192(C_word t0,C_word t1) C_noret; C_noret_decl(f_11007) static void C_ccall f_11007(C_word c,C_word *av) C_noret; C_noret_decl(f_7985) static void C_fcall f_7985(C_word t0,C_word t1,C_word t2) 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_7970) static void C_fcall f_7970(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_16536) static void C_ccall f_16536(C_word c,C_word *av) C_noret; C_noret_decl(f_11749) static void C_ccall f_11749(C_word c,C_word *av) C_noret; C_noret_decl(f_16351) static void C_ccall f_16351(C_word c,C_word *av) C_noret; C_noret_decl(f_16357) static void C_ccall f_16357(C_word c,C_word *av) C_noret; C_noret_decl(f_16363) static void C_ccall f_16363(C_word c,C_word *av) C_noret; C_noret_decl(f_16366) static void C_ccall f_16366(C_word c,C_word *av) C_noret; C_noret_decl(f_16360) static void C_ccall f_16360(C_word c,C_word *av) C_noret; C_noret_decl(f_16369) static void C_ccall f_16369(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_7671) static void C_fcall f_7671(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8060) static void C_fcall f_8060(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7677) static void C_fcall f_7677(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16393) static void C_ccall f_16393(C_word c,C_word *av) C_noret; C_noret_decl(f_7915) static void C_fcall f_7915(C_word t0,C_word t1,C_word t2) 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_7902) static C_word C_fcall f_7902(C_word *a,C_word t0); C_noret_decl(f_8010) static void C_ccall f_8010(C_word c,C_word *av) C_noret; C_noret_decl(f_8019) static void C_ccall f_8019(C_word c,C_word *av) C_noret; C_noret_decl(f_7909) static void C_fcall f_7909(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_14173) static void C_fcall f_14173(C_word t0,C_word t1,C_word t2,C_word t3) 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_7966) static void C_ccall f_7966(C_word c,C_word *av) C_noret; C_noret_decl(f_7960) static void C_ccall f_7960(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_14168) static void C_ccall f_14168(C_word c,C_word *av) C_noret; C_noret_decl(f_7691) static void C_ccall f_7691(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_7957) static void C_ccall f_7957(C_word c,C_word *av) C_noret; C_noret_decl(f_12622) static void C_fcall f_12622(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_17486) static void C_ccall f_17486(C_word c,C_word *av) 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_12612) static void C_ccall f_12612(C_word c,C_word *av) C_noret; C_noret_decl(f_7949) static void C_ccall f_7949(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_16344) static void C_fcall f_16344(C_word t0,C_word t1) 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_20645) static void C_ccall f_20645(C_word c,C_word *av) C_noret; C_noret_decl(f_20647) static void C_ccall f_20647(C_word c,C_word *av) C_noret; C_noret_decl(f_16312) static void C_ccall f_16312(C_word c,C_word *av) C_noret; C_noret_decl(f_16315) static void C_ccall f_16315(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_16324) static void C_ccall f_16324(C_word c,C_word *av) C_noret; C_noret_decl(f_14155) static void C_fcall f_14155(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_6759) static void C_ccall f_6759(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_17449) static void C_ccall f_17449(C_word c,C_word *av) C_noret; C_noret_decl(f_20663) static void C_ccall f_20663(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_11590) static void C_fcall f_11590(C_word t0,C_word t1) C_noret; C_noret_decl(f_16375) static void C_ccall f_16375(C_word c,C_word *av) C_noret; C_noret_decl(f_16372) static void C_ccall f_16372(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_17124) static void C_fcall f_17124(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17121) static void C_ccall f_17121(C_word c,C_word *av) 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_16384) static void C_ccall f_16384(C_word c,C_word *av) C_noret; C_noret_decl(f_8519) static void C_ccall f_8519(C_word c,C_word *av) C_noret; C_noret_decl(f_16381) static void C_ccall f_16381(C_word c,C_word *av) C_noret; C_noret_decl(f_7361) static void C_fcall f_7361(C_word t0,C_word t1) 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_7364) static void C_ccall f_7364(C_word c,C_word *av) C_noret; C_noret_decl(f_17131) static void C_fcall f_17131(C_word t0,C_word t1) 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_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_6721) static void C_fcall f_6721(C_word t0,C_word t1) C_noret; C_noret_decl(f_7340) static void C_ccall f_7340(C_word c,C_word *av) C_noret; C_noret_decl(f_7345) static void C_ccall f_7345(C_word c,C_word *av) C_noret; C_noret_decl(f_17404) static void C_fcall f_17404(C_word t0,C_word t1) C_noret; C_noret_decl(f_8509) static void C_fcall f_8509(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7332) static void C_ccall f_7332(C_word c,C_word *av) 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_6705) static void C_fcall f_6705(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_6709) static void C_ccall f_6709(C_word c,C_word *av) C_noret; C_noret_decl(f_15647) static void C_fcall f_15647(C_word t0,C_word t1) C_noret; C_noret_decl(f_7624) static void C_ccall f_7624(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_10289) static void C_ccall f_10289(C_word c,C_word *av) C_noret; C_noret_decl(f_20600) static void C_ccall f_20600(C_word c,C_word *av) C_noret; C_noret_decl(f_10224) static void C_ccall f_10224(C_word c,C_word *av) 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_8077) static void C_ccall f_8077(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_10250) static void C_ccall f_10250(C_word c,C_word *av) C_noret; C_noret_decl(f_10262) static void C_ccall f_10262(C_word c,C_word *av) 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_10264) static void C_fcall f_10264(C_word t0,C_word t1,C_word t2) 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_9225) static void C_ccall f_9225(C_word c,C_word *av) C_noret; C_noret_decl(f_10611) static void C_fcall f_10611(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_13026) static void C_fcall f_13026(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10206) static void C_fcall f_10206(C_word t0,C_word t1,C_word t2,C_word t3) 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_12658) static void C_ccall f_12658(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_13051) static void C_ccall f_13051(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_9205) static void C_ccall f_9205(C_word c,C_word *av) C_noret; C_noret_decl(f_6281) static void C_ccall f_6281(C_word c,C_word *av) C_noret; C_noret_decl(f_9202) static void C_ccall f_9202(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_10631) static void C_ccall f_10631(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_9214) static void C_ccall f_9214(C_word c,C_word *av) C_noret; C_noret_decl(f_9211) static void C_ccall f_9211(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_9106) static void C_ccall f_9106(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_13071) static void C_ccall f_13071(C_word c,C_word *av) C_noret; C_noret_decl(f_6524) static void C_ccall f_6524(C_word c,C_word *av) C_noret; C_noret_decl(f_13073) static void C_fcall f_13073(C_word t0,C_word t1,C_word t2) 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_10232) static void C_ccall f_10232(C_word c,C_word *av) C_noret; C_noret_decl(f_6860) static void C_ccall f_6860(C_word c,C_word *av) C_noret; C_noret_decl(f_9116) static void C_ccall f_9116(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_12068) static void C_ccall f_12068(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_16188) static void C_ccall f_16188(C_word c,C_word *av) C_noret; C_noret_decl(f_13694) static void C_fcall f_13694(C_word t0,C_word t1) 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_10241) static void C_ccall f_10241(C_word c,C_word *av) C_noret; C_noret_decl(f_16192) static void C_ccall f_16192(C_word c,C_word *av) C_noret; C_noret_decl(f_13098) static void C_ccall f_13098(C_word c,C_word *av) C_noret; C_noret_decl(f_13685) static void C_fcall f_13685(C_word t0,C_word t1) C_noret; C_noret_decl(f_6868) static void C_fcall f_6868(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_12046) static void C_fcall f_12046(C_word t0,C_word t1) C_noret; C_noret_decl(f_13378) static void C_ccall f_13378(C_word c,C_word *av) C_noret; C_noret_decl(f_20719) static void C_ccall f_20719(C_word c,C_word *av) C_noret; C_noret_decl(f_6896) static void C_ccall f_6896(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_9146) static void C_fcall f_9146(C_word t0,C_word t1) 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_20354) static void C_ccall f_20354(C_word c,C_word *av) C_noret; C_noret_decl(f_9158) static void C_ccall f_9158(C_word c,C_word *av) C_noret; C_noret_decl(f_7389) static void C_fcall f_7389(C_word t0,C_word t1,C_word t2) 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_6557) static void C_ccall f_6557(C_word c,C_word *av) C_noret; C_noret_decl(f_6554) static void C_ccall f_6554(C_word c,C_word *av) C_noret; C_noret_decl(f_7373) static void C_fcall f_7373(C_word t0,C_word t1) C_noret; C_noret_decl(f_7370) static void C_fcall f_7370(C_word t0,C_word t1) C_noret; C_noret_decl(f_20369) static void C_ccall f_20369(C_word c,C_word *av) 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_9288) static void C_fcall f_9288(C_word t0,C_word t1) C_noret; C_noret_decl(f_9281) static void C_ccall f_9281(C_word c,C_word *av) C_noret; C_noret_decl(f_16126) static void C_ccall f_16126(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_19436) static void C_ccall f_19436(C_word c,C_word *av) C_noret; C_noret_decl(f_18691) static void C_fcall f_18691(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11602) static void C_ccall f_11602(C_word c,C_word *av) C_noret; C_noret_decl(f_11605) static void C_ccall f_11605(C_word c,C_word *av) C_noret; C_noret_decl(f_11608) static void C_ccall f_11608(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_20392) static void C_fcall f_20392(C_word t0,C_word t1,C_word t2) 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_20615) static void C_ccall f_20615(C_word c,C_word *av) C_noret; C_noret_decl(f_20617) static void C_ccall f_20617(C_word c,C_word *av) 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_13012) static void C_ccall f_13012(C_word c,C_word *av) C_noret; C_noret_decl(f_11611) static void C_ccall f_11611(C_word c,C_word *av) 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_7325) static void C_ccall f_7325(C_word c,C_word *av) C_noret; C_noret_decl(f_9134) static void C_ccall f_9134(C_word c,C_word *av) C_noret; C_noret_decl(f_7322) static void C_fcall f_7322(C_word t0,C_word t1) C_noret; C_noret_decl(f_9137) static void C_ccall f_9137(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_20625) static void C_ccall f_20625(C_word c,C_word *av) C_noret; C_noret_decl(f_20238) static void C_fcall f_20238(C_word t0,C_word t1,C_word t2) 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_20236) static void C_ccall f_20236(C_word c,C_word *av) C_noret; C_noret_decl(f_19422) static void C_fcall f_19422(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19424) static void C_ccall f_19424(C_word c,C_word *av) 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_7313) static void C_ccall f_7313(C_word c,C_word *av) C_noret; C_noret_decl(f_20637) static void C_ccall f_20637(C_word c,C_word *av) C_noret; C_noret_decl(f_20635) static void C_ccall f_20635(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_9394) static void C_fcall f_9394(C_word t0,C_word t1,C_word t2,C_word t3) 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_7303) static void C_ccall f_7303(C_word c,C_word *av) C_noret; C_noret_decl(f_15622) static void C_fcall f_15622(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19486) static void C_ccall f_19486(C_word c,C_word *av) C_noret; C_noret_decl(f_15620) static void C_ccall f_15620(C_word c,C_word *av) 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_19482) static void C_ccall f_19482(C_word c,C_word *av) C_noret; C_noret_decl(f_18622) static void C_ccall f_18622(C_word c,C_word *av) C_noret; C_noret_decl(f_18628) static void C_fcall f_18628(C_word t0,C_word t1,C_word t2) 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_20282) static void C_ccall f_20282(C_word c,C_word *av) C_noret; C_noret_decl(f_8995) static void C_ccall f_8995(C_word c,C_word *av) C_noret; C_noret_decl(f_8998) static void C_ccall f_8998(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_15578) static void C_ccall f_15578(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_20211) static void C_ccall f_20211(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_18601) static void C_ccall f_18601(C_word c,C_word *av) C_noret; C_noret_decl(f_18607) static void C_ccall f_18607(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_20285) static void C_ccall f_20285(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_11328) static void C_ccall f_11328(C_word c,C_word *av) C_noret; C_noret_decl(f_16247) static void C_ccall f_16247(C_word c,C_word *av) 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_20230) static void C_ccall f_20230(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_noret; C_noret_decl(f_9013) static void C_ccall f_9013(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_9019) static void C_ccall f_9019(C_word c,C_word *av) C_noret; C_noret_decl(f_11382) static void C_fcall f_11382(C_word t0,C_word t1) 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_10644) static void C_ccall f_10644(C_word c,C_word *av) C_noret; C_noret_decl(f_11363) static void C_fcall f_11363(C_word t0,C_word t1) C_noret; C_noret_decl(f_10690) static void C_ccall f_10690(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(f_9001) static void C_ccall f_9001(C_word c,C_word *av) C_noret; C_noret_decl(f_9007) static void C_ccall f_9007(C_word c,C_word *av) C_noret; C_noret_decl(f_11353) static void C_ccall f_11353(C_word c,C_word *av) C_noret; C_noret_decl(f_10665) static void C_fcall f_10665(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10663) static void C_ccall f_10663(C_word c,C_word *av) C_noret; C_noret_decl(f_12004) static void C_fcall f_12004(C_word t0,C_word t1) C_noret; C_noret_decl(f_8919) static void C_fcall f_8919(C_word t0,C_word t1,C_word t2,C_word t3) 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_11958) static void C_ccall f_11958(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_20725) static void C_ccall f_20725(C_word c,C_word *av) C_noret; C_noret_decl(f_9034) static void C_fcall f_9034(C_word t0,C_word t1) C_noret; C_noret_decl(f_9042) static void C_fcall f_9042(C_word t0,C_word t1,C_word t2,C_word t3) 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_16292) static void C_ccall f_16292(C_word c,C_word *av) C_noret; C_noret_decl(f_16295) static void C_ccall f_16295(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_8475) static void C_fcall f_8475(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6816) static void C_fcall f_6816(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_6309) static void C_ccall f_6309(C_word c,C_word *av) C_noret; C_noret_decl(f_6820) static void C_ccall f_6820(C_word c,C_word *av) C_noret; C_noret_decl(f_16282) static void C_ccall f_16282(C_word c,C_word *av) C_noret; C_noret_decl(f_16288) static void C_ccall f_16288(C_word c,C_word *av) C_noret; C_noret_decl(f_6836) static void C_fcall f_6836(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_16252) static void C_ccall f_16252(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_11049) static void C_ccall f_11049(C_word c,C_word *av) C_noret; C_noret_decl(f_11043) static void C_ccall f_11043(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_noret; C_noret_decl(f_11038) static void C_ccall f_11038(C_word c,C_word *av) C_noret; C_noret_decl(f_11032) static void C_fcall f_11032(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_17046) static void C_ccall f_17046(C_word c,C_word *av) C_noret; C_noret_decl(f_11331) static void C_ccall f_11331(C_word c,C_word *av) C_noret; C_noret_decl(f_15114) static void C_ccall f_15114(C_word c,C_word *av) 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_18069) static void C_ccall f_18069(C_word c,C_word *av) C_noret; C_noret_decl(f_16274) static void C_fcall f_16274(C_word t0,C_word t1) C_noret; C_noret_decl(f_16271) static void C_ccall f_16271(C_word c,C_word *av) C_noret; C_noret_decl(f_16277) static void C_ccall f_16277(C_word c,C_word *av) C_noret; C_noret_decl(f_18073) static void C_fcall f_18073(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15109) static void C_fcall f_15109(C_word t0,C_word t1) C_noret; C_noret_decl(f_11054) static void C_ccall f_11054(C_word c,C_word *av) C_noret; C_noret_decl(f_16061) static void C_ccall f_16061(C_word c,C_word *av) C_noret; C_noret_decl(f_11084) static void C_ccall f_11084(C_word c,C_word *av) C_noret; C_noret_decl(f_16070) static void C_fcall f_16070(C_word t0,C_word t1,C_word t2) 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_6315) static void C_ccall f_6315(C_word c,C_word *av) C_noret; C_noret_decl(f_6318) static void C_ccall f_6318(C_word c,C_word *av) C_noret; C_noret_decl(f_17002) static void C_ccall f_17002(C_word c,C_word *av) C_noret; C_noret_decl(f_17004) static void C_fcall f_17004(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6388) static void C_ccall f_6388(C_word c,C_word *av) C_noret; C_noret_decl(f_16889) static void C_ccall f_16889(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_16098) static void C_ccall f_16098(C_word c,C_word *av) C_noret; C_noret_decl(f_8336) static void C_fcall f_8336(C_word t0,C_word t1) C_noret; C_noret_decl(f_6376) static void C_ccall f_6376(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_7793) static void C_ccall f_7793(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_8342) static void C_fcall f_8342(C_word t0,C_word t1) C_noret; C_noret_decl(f_8345) static void C_ccall f_8345(C_word c,C_word *av) C_noret; C_noret_decl(f_8349) static void C_ccall f_8349(C_word c,C_word *av) C_noret; C_noret_decl(f_6363) static void C_ccall f_6363(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_18012) static void C_ccall f_18012(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_word t3,C_word t4) 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_19190) static void C_ccall f_19190(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_6348) static void C_ccall f_6348(C_word c,C_word *av) C_noret; C_noret_decl(f_19166) static void C_ccall f_19166(C_word c,C_word *av) C_noret; C_noret_decl(f_19168) static void C_fcall f_19168(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_19160) static void C_ccall f_19160(C_word c,C_word *av) C_noret; C_noret_decl(f_19163) static void C_ccall f_19163(C_word c,C_word *av) C_noret; C_noret_decl(f_16842) static void C_ccall f_16842(C_word c,C_word *av) C_noret; C_noret_decl(f_6335) static void C_fcall f_6335(C_word t0,C_word t1,C_word t2) 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_16850) static void C_ccall f_16850(C_word c,C_word *av) C_noret; C_noret_decl(f_6328) static void C_ccall f_6328(C_word c,C_word *av) C_noret; C_noret_decl(f_6321) static void C_ccall f_6321(C_word c,C_word *av) C_noret; C_noret_decl(f_18556) static void C_ccall f_18556(C_word c,C_word *av) C_noret; C_noret_decl(f_18559) static void C_ccall f_18559(C_word c,C_word *av) C_noret; C_noret_decl(f_16001) static void C_ccall f_16001(C_word c,C_word *av) 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_16017) static void C_ccall f_16017(C_word c,C_word *av) C_noret; C_noret_decl(f_16803) static void C_fcall f_16803(C_word t0,C_word t1,C_word t2) 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_18569) static void C_ccall f_18569(C_word c,C_word *av) C_noret; C_noret_decl(f_16013) static void C_ccall f_16013(C_word c,C_word *av) C_noret; C_noret_decl(trf_13544) static void C_ccall trf_13544(C_word c,C_word *av) C_noret; static void C_ccall trf_13544(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13544(t0,t1,t2);} C_noret_decl(trf_18595) static void C_ccall trf_18595(C_word c,C_word *av) C_noret; static void C_ccall trf_18595(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18595(t0,t1,t2);} C_noret_decl(trf_18048) static void C_ccall trf_18048(C_word c,C_word *av) C_noret; static void C_ccall trf_18048(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18048(t0,t1,t2,t3);} C_noret_decl(trf_11928) static void C_ccall trf_11928(C_word c,C_word *av) C_noret; static void C_ccall trf_11928(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11928(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_13789) static void C_ccall trf_13789(C_word c,C_word *av) C_noret; static void C_ccall trf_13789(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13789(t0,t1);} 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_16036) static void C_ccall trf_16036(C_word c,C_word *av) C_noret; static void C_ccall trf_16036(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16036(t0,t1,t2);} C_noret_decl(trf_18524) static void C_ccall trf_18524(C_word c,C_word *av) C_noret; static void C_ccall trf_18524(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18524(t0,t1);} C_noret_decl(trf_18517) static void C_ccall trf_18517(C_word c,C_word *av) C_noret; static void C_ccall trf_18517(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18517(t0,t1,t2);} C_noret_decl(trf_18528) static void C_ccall trf_18528(C_word c,C_word *av) C_noret; static void C_ccall trf_18528(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18528(t0,t1,t2);} C_noret_decl(trf_9614) static void C_ccall trf_9614(C_word c,C_word *av) C_noret; static void C_ccall trf_9614(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9614(t0,t1,t2,t3);} C_noret_decl(trf_8381) static void C_ccall trf_8381(C_word c,C_word *av) C_noret; static void C_ccall trf_8381(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8381(t0,t1,t2,t3);} 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[1]; C_word t1=av[0]; f_7705(t0,t1);} C_noret_decl(trf_7708) static void C_ccall trf_7708(C_word c,C_word *av) C_noret; static void C_ccall trf_7708(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7708(t0,t1);} C_noret_decl(trf_9636) static void C_ccall trf_9636(C_word c,C_word *av) C_noret; static void C_ccall trf_9636(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9636(t0,t1);} C_noret_decl(trf_14689) static void C_ccall trf_14689(C_word c,C_word *av) C_noret; static void C_ccall trf_14689(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14689(t0,t1);} C_noret_decl(trf_15832) static void C_ccall trf_15832(C_word c,C_word *av) C_noret; static void C_ccall trf_15832(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15832(t0,t1,t2);} C_noret_decl(trf_20089) static void C_ccall trf_20089(C_word c,C_word *av) C_noret; static void C_ccall trf_20089(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20089(t0,t1,t2);} C_noret_decl(trf_6471) static void C_ccall trf_6471(C_word c,C_word *av) C_noret; static void C_ccall trf_6471(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6471(t0,t1,t2);} C_noret_decl(trf_9759) static void C_ccall trf_9759(C_word c,C_word *av) C_noret; static void C_ccall trf_9759(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9759(t0,t1,t2);} C_noret_decl(trf_19767) static void C_ccall trf_19767(C_word c,C_word *av) C_noret; static void C_ccall trf_19767(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19767(t0,t1);} C_noret_decl(trf_11395) static void C_ccall trf_11395(C_word c,C_word *av) C_noret; static void C_ccall trf_11395(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11395(t0,t1);} C_noret_decl(trf_13505) static void C_ccall trf_13505(C_word c,C_word *av) C_noret; static void C_ccall trf_13505(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13505(t0,t1,t2);} C_noret_decl(trf_18744) static void C_ccall trf_18744(C_word c,C_word *av) C_noret; static void C_ccall trf_18744(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18744(t0,t1,t2);} C_noret_decl(trf_15510) static void C_ccall trf_15510(C_word c,C_word *av) C_noret; static void C_ccall trf_15510(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15510(t0,t1,t2);} C_noret_decl(trf_19724) static void C_ccall trf_19724(C_word c,C_word *av) C_noret; static void C_ccall trf_19724(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_19724(t0,t1,t2,t3);} C_noret_decl(trf_19680) static void C_ccall trf_19680(C_word c,C_word *av) C_noret; static void C_ccall trf_19680(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19680(t0,t1);} C_noret_decl(trf_19706) static void C_ccall trf_19706(C_word c,C_word *av) C_noret; static void C_ccall trf_19706(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19706(t0,t1);} C_noret_decl(trf_19690) static void C_ccall trf_19690(C_word c,C_word *av) C_noret; static void C_ccall trf_19690(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_19690(t0,t1,t2,t3);} C_noret_decl(trf_10774) static void C_ccall trf_10774(C_word c,C_word *av) C_noret; static void C_ccall trf_10774(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10774(t0,t1,t2,t3);} C_noret_decl(trf_10783) static void C_ccall trf_10783(C_word c,C_word *av) C_noret; static void C_ccall trf_10783(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_10783(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_9320) static void C_ccall trf_9320(C_word c,C_word *av) C_noret; static void C_ccall trf_9320(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9320(t0,t1);} C_noret_decl(trf_8774) static void C_ccall trf_8774(C_word c,C_word *av) C_noret; static void C_ccall trf_8774(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_8774(t0,t1,t2,t3,t4);} C_noret_decl(trf_19637) static void C_ccall trf_19637(C_word c,C_word *av) C_noret; static void C_ccall trf_19637(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19637(t0,t1,t2);} C_noret_decl(trf_14020) static void C_ccall trf_14020(C_word c,C_word *av) C_noret; static void C_ccall trf_14020(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14020(t0,t1);} C_noret_decl(trf_15845) static void C_ccall trf_15845(C_word c,C_word *av) C_noret; static void C_ccall trf_15845(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15845(t0,t1,t2);} C_noret_decl(trf_17356) static void C_ccall trf_17356(C_word c,C_word *av) C_noret; static void C_ccall trf_17356(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17356(t0,t1,t2);} C_noret_decl(trf_8784) static void C_ccall trf_8784(C_word c,C_word *av) C_noret; static void C_ccall trf_8784(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8784(t0,t1);} C_noret_decl(trf_8788) static void C_ccall trf_8788(C_word c,C_word *av) C_noret; static void C_ccall trf_8788(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8788(t0,t1,t2);} C_noret_decl(trf_8796) static void C_ccall trf_8796(C_word c,C_word *av) C_noret; static void C_ccall trf_8796(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8796(t0,t1);} C_noret_decl(trf_18963) static void C_ccall trf_18963(C_word c,C_word *av) C_noret; static void C_ccall trf_18963(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_18963(t0,t1,t2,t3,t4);} C_noret_decl(trf_13920) static void C_ccall trf_13920(C_word c,C_word *av) C_noret; static void C_ccall trf_13920(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13920(t0,t1);} C_noret_decl(trf_11111) static void C_ccall trf_11111(C_word c,C_word *av) C_noret; static void C_ccall trf_11111(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11111(t0,t1,t2);} C_noret_decl(trf_18176) static void C_ccall trf_18176(C_word c,C_word *av) C_noret; static void C_ccall trf_18176(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18176(t0,t1);} C_noret_decl(trf_18179) static void C_ccall trf_18179(C_word c,C_word *av) C_noret; static void C_ccall trf_18179(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18179(t0,t1);} 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_10142) static void C_ccall trf_10142(C_word c,C_word *av) C_noret; static void C_ccall trf_10142(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10142(t0,t1);} C_noret_decl(trf_17384) static void C_ccall trf_17384(C_word c,C_word *av) C_noret; static void C_ccall trf_17384(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17384(t0,t1);} C_noret_decl(trf_15934) static void C_ccall trf_15934(C_word c,C_word *av) C_noret; static void C_ccall trf_15934(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15934(t0,t1,t2);} C_noret_decl(trf_17322) static void C_ccall trf_17322(C_word c,C_word *av) C_noret; static void C_ccall trf_17322(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17322(t0,t1,t2);} 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_11199) static void C_ccall trf_11199(C_word c,C_word *av) C_noret; static void C_ccall trf_11199(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11199(t0,t1,t2);} C_noret_decl(trf_18929) static void C_ccall trf_18929(C_word c,C_word *av) C_noret; static void C_ccall trf_18929(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18929(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_16906(t0,t1,t2);} C_noret_decl(trf_16448) static void C_ccall trf_16448(C_word c,C_word *av) C_noret; static void C_ccall trf_16448(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16448(t0,t1,t2);} C_noret_decl(trf_17300) static void C_ccall trf_17300(C_word c,C_word *av) C_noret; static void C_ccall trf_17300(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17300(t0,t1,t2);} C_noret_decl(trf_18124) static void C_ccall trf_18124(C_word c,C_word *av) C_noret; static void C_ccall trf_18124(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18124(t0,t1,t2);} C_noret_decl(trf_16461) static void C_ccall trf_16461(C_word c,C_word *av) C_noret; static void C_ccall trf_16461(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16461(t0,t1);} C_noret_decl(trf_16475) static void C_ccall trf_16475(C_word c,C_word *av) C_noret; static void C_ccall trf_16475(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16475(t0,t1,t2);} C_noret_decl(trf_11826) static void C_ccall trf_11826(C_word c,C_word *av) C_noret; static void C_ccall trf_11826(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11826(t0,t1);} C_noret_decl(trf_13940) static void C_ccall trf_13940(C_word c,C_word *av) C_noret; static void C_ccall trf_13940(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13940(t0,t1);} C_noret_decl(trf_13979) static void C_ccall trf_13979(C_word c,C_word *av) C_noret; static void C_ccall trf_13979(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13979(t0,t1);} C_noret_decl(trf_7079) static void C_ccall trf_7079(C_word c,C_word *av) C_noret; static void C_ccall trf_7079(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7079(t0,t1);} C_noret_decl(trf_12712) static void C_ccall trf_12712(C_word c,C_word *av) C_noret; static void C_ccall trf_12712(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12712(t0,t1);} C_noret_decl(trf_15092) static void C_ccall trf_15092(C_word c,C_word *av) C_noret; static void C_ccall trf_15092(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15092(t0,t1,t2);} C_noret_decl(trf_19329) static void C_ccall trf_19329(C_word c,C_word *av) C_noret; static void C_ccall trf_19329(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_19329(t0,t1,t2,t3,t4);} C_noret_decl(trf_15021) static void C_ccall trf_15021(C_word c,C_word *av) C_noret; static void C_ccall trf_15021(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15021(t0,t1,t2);} C_noret_decl(trf_15081) static void C_ccall trf_15081(C_word c,C_word *av) C_noret; static void C_ccall trf_15081(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15081(t0,t1,t2);} C_noret_decl(trf_13589) static void C_ccall trf_13589(C_word c,C_word *av) C_noret; static void C_ccall trf_13589(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13589(t0,t1,t2);} C_noret_decl(trf_15947) static void C_ccall trf_15947(C_word c,C_word *av) C_noret; static void C_ccall trf_15947(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15947(t0,t1,t2);} C_noret_decl(trf_20181) static void C_ccall trf_20181(C_word c,C_word *av) C_noret; static void C_ccall trf_20181(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_20181(t0,t1,t2,t3);} C_noret_decl(trf_20195) static void C_ccall trf_20195(C_word c,C_word *av) C_noret; static void C_ccall trf_20195(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20195(t0,t1,t2);} C_noret_decl(trf_18207) static void C_ccall trf_18207(C_word c,C_word *av) C_noret; static void C_ccall trf_18207(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18207(t0,t1);} C_noret_decl(trf_14740) static void C_ccall trf_14740(C_word c,C_word *av) C_noret; static void C_ccall trf_14740(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14740(t0,t1);} C_noret_decl(trf_13410) static void C_ccall trf_13410(C_word c,C_word *av) C_noret; static void C_ccall trf_13410(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_13410(t0,t1,t2,t3);} C_noret_decl(trf_19995) static void C_ccall trf_19995(C_word c,C_word *av) C_noret; static void C_ccall trf_19995(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19995(t0,t1,t2);} C_noret_decl(trf_10531) static void C_ccall trf_10531(C_word c,C_word *av) C_noret; static void C_ccall trf_10531(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10531(t0,t1,t2);} C_noret_decl(trf_19353) static void C_ccall trf_19353(C_word c,C_word *av) C_noret; static void C_ccall trf_19353(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19353(t0,t1);} 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[1]; C_word t1=av[0]; f_14796(t0,t1);} C_noret_decl(trf_10575) static void C_ccall trf_10575(C_word c,C_word *av) C_noret; static void C_ccall trf_10575(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10575(t0,t1);} C_noret_decl(trf_20058) static void C_ccall trf_20058(C_word c,C_word *av) C_noret; static void C_ccall trf_20058(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20058(t0,t1,t2);} C_noret_decl(trf_20050) static void C_ccall trf_20050(C_word c,C_word *av) C_noret; static void C_ccall trf_20050(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20050(t0,t1);} C_noret_decl(trf_19983) static void C_ccall trf_19983(C_word c,C_word *av) C_noret; static void C_ccall trf_19983(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_19983(t0,t1,t2,t3,t4);} C_noret_decl(trf_19986) static void C_ccall trf_19986(C_word c,C_word *av) C_noret; static void C_ccall trf_19986(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19986(t0,t1);} C_noret_decl(trf_18257) static void C_ccall trf_18257(C_word c,C_word *av) C_noret; static void C_ccall trf_18257(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18257(t0,t1,t2);} C_noret_decl(trf_13313) static void C_ccall trf_13313(C_word c,C_word *av) C_noret; static void C_ccall trf_13313(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13313(t0,t1);} C_noret_decl(trf_12747) static void C_ccall trf_12747(C_word c,C_word *av) C_noret; static void C_ccall trf_12747(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12747(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[1]; C_word t1=av[0]; f_11300(t0,t1);} C_noret_decl(trf_12423) static void C_ccall trf_12423(C_word c,C_word *av) C_noret; static void C_ccall trf_12423(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12423(t0,t1,t2);} C_noret_decl(trf_6268) static void C_ccall trf_6268(C_word c,C_word *av) C_noret; static void C_ccall trf_6268(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6268(t0,t1);} C_noret_decl(trf_20449) static void C_ccall trf_20449(C_word c,C_word *av) C_noret; static void C_ccall trf_20449(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20449(t0,t1,t2);} C_noret_decl(trf_13154) static void C_ccall trf_13154(C_word c,C_word *av) C_noret; static void C_ccall trf_13154(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13154(t0,t1,t2);} C_noret_decl(trf_16648) static void C_ccall trf_16648(C_word c,C_word *av) C_noret; static void C_ccall trf_16648(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16648(t0,t1,t2);} C_noret_decl(trf_18414) static void C_ccall trf_18414(C_word c,C_word *av) C_noret; static void C_ccall trf_18414(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18414(t0,t1,t2);} C_noret_decl(trf_7133) static void C_ccall trf_7133(C_word c,C_word *av) C_noret; static void C_ccall trf_7133(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7133(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_10581(t0,t1,t2);} C_noret_decl(trf_8634) static void C_ccall trf_8634(C_word c,C_word *av) C_noret; static void C_ccall trf_8634(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8634(t0,t1);} C_noret_decl(trf_10019) static void C_ccall trf_10019(C_word c,C_word *av) C_noret; static void C_ccall trf_10019(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10019(t0,t1,t2);} C_noret_decl(trf_20575) static void C_ccall trf_20575(C_word c,C_word *av) C_noret; static void C_ccall trf_20575(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20575(t0,t1,t2);} C_noret_decl(trf_13707) static void C_ccall trf_13707(C_word c,C_word *av) C_noret; static void C_ccall trf_13707(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13707(t0,t1);} C_noret_decl(trf_18491) static void C_ccall trf_18491(C_word c,C_word *av) C_noret; static void C_ccall trf_18491(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18491(t0,t1,t2);} C_noret_decl(trf_7401) static void C_ccall trf_7401(C_word c,C_word *av) C_noret; static void C_ccall trf_7401(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7401(t0,t1,t2);} C_noret_decl(trf_13739) static void C_ccall trf_13739(C_word c,C_word *av) C_noret; static void C_ccall trf_13739(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13739(t0,t1);} C_noret_decl(trf_8618) static void C_ccall trf_8618(C_word c,C_word *av) C_noret; static void C_ccall trf_8618(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8618(t0,t1);} C_noret_decl(trf_12287) static void C_ccall trf_12287(C_word c,C_word *av) C_noret; static void C_ccall trf_12287(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12287(t0,t1,t2);} C_noret_decl(trf_13720) static void C_ccall trf_13720(C_word c,C_word *av) C_noret; static void C_ccall trf_13720(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13720(t0,t1);} C_noret_decl(trf_10057) static void C_ccall trf_10057(C_word c,C_word *av) C_noret; static void C_ccall trf_10057(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10057(t0,t1,t2,t3);} C_noret_decl(trf_14868) static void C_ccall trf_14868(C_word c,C_word *av) C_noret; static void C_ccall trf_14868(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14868(t0,t1);} C_noret_decl(trf_14861) static void C_ccall trf_14861(C_word c,C_word *av) C_noret; static void C_ccall trf_14861(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14861(t0,t1,t2,t3);} C_noret_decl(trf_13878) static void C_ccall trf_13878(C_word c,C_word *av) C_noret; static void C_ccall trf_13878(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13878(t0,t1);} C_noret_decl(trf_7186) static void C_ccall trf_7186(C_word c,C_word *av) C_noret; static void C_ccall trf_7186(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7186(t0,t1,t2);} C_noret_decl(trf_9569) static void C_ccall trf_9569(C_word c,C_word *av) C_noret; static void C_ccall trf_9569(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9569(t0,t1,t2);} C_noret_decl(trf_17702) static void C_ccall trf_17702(C_word c,C_word *av) C_noret; static void C_ccall trf_17702(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17702(t0,t1,t2);} C_noret_decl(trf_9581) static void C_ccall trf_9581(C_word c,C_word *av) C_noret; static void C_ccall trf_9581(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9581(t0,t1,t2);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10964(t0,t1,t2,t3);} C_noret_decl(trf_12218) static void C_ccall trf_12218(C_word c,C_word *av) C_noret; static void C_ccall trf_12218(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12218(t0,t1,t2,t3);} C_noret_decl(trf_12212) static void C_ccall trf_12212(C_word c,C_word *av) C_noret; static void C_ccall trf_12212(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12212(t0,t1,t2,t3);} C_noret_decl(trf_13206) static void C_ccall trf_13206(C_word c,C_word *av) C_noret; static void C_ccall trf_13206(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13206(t0,t1,t2);} C_noret_decl(trf_17776) static void C_ccall trf_17776(C_word c,C_word *av) C_noret; static void C_ccall trf_17776(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17776(t0,t1,t2);} 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_15158) static void C_ccall trf_15158(C_word c,C_word *av) C_noret; static void C_ccall trf_15158(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15158(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[1]; C_word t1=av[0]; f_13268(t0,t1);} C_noret_decl(trf_13493) static void C_ccall trf_13493(C_word c,C_word *av) C_noret; static void C_ccall trf_13493(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13493(t0,t1,t2);} C_noret_decl(trf_15122) static void C_ccall trf_15122(C_word c,C_word *av) C_noret; static void C_ccall trf_15122(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15122(t0,t1);} C_noret_decl(trf_15124) static void C_ccall trf_15124(C_word c,C_word *av) C_noret; static void C_ccall trf_15124(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15124(t0,t1,t2);} C_noret_decl(trf_9508) static void C_ccall trf_9508(C_word c,C_word *av) C_noret; static void C_ccall trf_9508(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9508(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[1]; C_word t1=av[0]; f_9501(t0,t1);} C_noret_decl(trf_15672) static void C_ccall trf_15672(C_word c,C_word *av) C_noret; static void C_ccall trf_15672(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15672(t0,t1,t2);} C_noret_decl(trf_13758) static void C_ccall trf_13758(C_word c,C_word *av) C_noret; static void C_ccall trf_13758(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13758(t0,t1);} C_noret_decl(trf_14852) static void C_ccall trf_14852(C_word c,C_word *av) C_noret; static void C_ccall trf_14852(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_14852(t0,t1,t2,t3,t4);} C_noret_decl(trf_19514) static void C_ccall trf_19514(C_word c,C_word *av) C_noret; static void C_ccall trf_19514(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19514(t0,t1,t2);} C_noret_decl(trf_19510) static void C_ccall trf_19510(C_word c,C_word *av) C_noret; static void C_ccall trf_19510(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19510(t0,t1);} C_noret_decl(trf_14878) static void C_ccall trf_14878(C_word c,C_word *av) C_noret; static void C_ccall trf_14878(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14878(t0,t1);} C_noret_decl(trf_20137) static void C_ccall trf_20137(C_word c,C_word *av) C_noret; static void C_ccall trf_20137(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20137(t0,t1,t2);} C_noret_decl(trf_14880) static void C_ccall trf_14880(C_word c,C_word *av) C_noret; static void C_ccall trf_14880(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_14880(t0,t1,t2,t3,t4);} C_noret_decl(trf_17920) static void C_ccall trf_17920(C_word c,C_word *av) C_noret; static void C_ccall trf_17920(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17920(t0,t1);} C_noret_decl(trf_20510) static void C_ccall trf_20510(C_word c,C_word *av) C_noret; static void C_ccall trf_20510(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20510(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_18361) static void C_ccall trf_18361(C_word c,C_word *av) C_noret; static void C_ccall trf_18361(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18361(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_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_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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10905(t0,t1,t2,t3);} 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_15437) static void C_ccall trf_15437(C_word c,C_word *av) C_noret; static void C_ccall trf_15437(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15437(t0,t1,t2);} C_noret_decl(trf_15411) static void C_ccall trf_15411(C_word c,C_word *av) C_noret; static void C_ccall trf_15411(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15411(t0,t1);} C_noret_decl(trf_12953) static void C_ccall trf_12953(C_word c,C_word *av) C_noret; static void C_ccall trf_12953(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12953(t0,t1,t2);} 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_7242) static void C_ccall trf_7242(C_word c,C_word *av) C_noret; static void C_ccall trf_7242(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_7242(t0,t1,t2,t3,t4);} 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[1]; C_word t1=av[0]; f_7245(t0,t1);} C_noret_decl(trf_15706) static void C_ccall trf_15706(C_word c,C_word *av) C_noret; static void C_ccall trf_15706(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15706(t0,t1,t2);} C_noret_decl(trf_10375) static void C_ccall trf_10375(C_word c,C_word *av) C_noret; static void C_ccall trf_10375(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10375(t0,t1,t2);} C_noret_decl(trf_9810) static void C_ccall trf_9810(C_word c,C_word *av) C_noret; static void C_ccall trf_9810(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9810(t0,t1,t2);} C_noret_decl(trf_6674) static void C_ccall trf_6674(C_word c,C_word *av) C_noret; static void C_ccall trf_6674(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6674(t0,t1,t2,t3);} C_noret_decl(trf_16736) static void C_ccall trf_16736(C_word c,C_word *av) C_noret; static void C_ccall trf_16736(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16736(t0,t1);} C_noret_decl(trf_10363) static void C_ccall trf_10363(C_word c,C_word *av) C_noret; static void C_ccall trf_10363(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10363(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_7504) static void C_ccall trf_7504(C_word c,C_word *av) C_noret; static void C_ccall trf_7504(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7504(t0,t1,t2);} C_noret_decl(trf_14379) static void C_ccall trf_14379(C_word c,C_word *av) C_noret; static void C_ccall trf_14379(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14379(t0,t1);} C_noret_decl(trf_18846) static void C_ccall trf_18846(C_word c,C_word *av) C_noret; static void C_ccall trf_18846(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18846(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_15464) static void C_ccall trf_15464(C_word c,C_word *av) C_noret; static void C_ccall trf_15464(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15464(t0,t1,t2);} C_noret_decl(trf_18826) static void C_ccall trf_18826(C_word c,C_word *av) C_noret; static void C_ccall trf_18826(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18826(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[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_8123(t0,t1,t2,t3,t4,t5,t6,t7,t8);} C_noret_decl(trf_14921) static void C_ccall trf_14921(C_word c,C_word *av) C_noret; static void C_ccall trf_14921(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14921(t0,t1);} C_noret_decl(trf_18806) static void C_ccall trf_18806(C_word c,C_word *av) C_noret; static void C_ccall trf_18806(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18806(t0,t1,t2,t3);} C_noret_decl(trf_6622) static void C_ccall trf_6622(C_word c,C_word *av) C_noret; static void C_ccall trf_6622(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6622(t0,t1,t2,t3);} C_noret_decl(trf_19207) static void C_ccall trf_19207(C_word c,C_word *av) C_noret; static void C_ccall trf_19207(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19207(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_6635) static void C_ccall trf_6635(C_word c,C_word *av) C_noret; static void C_ccall trf_6635(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6635(t0,t1,t2);} C_noret_decl(trf_13898) static void C_ccall trf_13898(C_word c,C_word *av) C_noret; static void C_ccall trf_13898(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13898(t0,t1);} C_noret_decl(trf_6651) static void C_ccall trf_6651(C_word c,C_word *av) C_noret; static void C_ccall trf_6651(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6651(t0,t1);} C_noret_decl(trf_9935) static void C_ccall trf_9935(C_word c,C_word *av) C_noret; static void C_ccall trf_9935(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9935(t0,t1,t2,t3);} C_noret_decl(trf_17653) static void C_ccall trf_17653(C_word c,C_word *av) C_noret; static void C_ccall trf_17653(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17653(t0,t1,t2);} C_noret_decl(trf_19870) static void C_ccall trf_19870(C_word c,C_word *av) C_noret; static void C_ccall trf_19870(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19870(t0,t1);} C_noret_decl(trf_9901) static void C_ccall trf_9901(C_word c,C_word *av) C_noret; static void C_ccall trf_9901(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9901(t0,t1,t2);} C_noret_decl(trf_11724) static void C_ccall trf_11724(C_word c,C_word *av) C_noret; static void C_ccall trf_11724(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11724(t0,t1);} C_noret_decl(trf_15758) static void C_ccall trf_15758(C_word c,C_word *av) C_noret; static void C_ccall trf_15758(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15758(t0,t1,t2);} C_noret_decl(trf_15750) static void C_ccall trf_15750(C_word c,C_word *av) C_noret; static void C_ccall trf_15750(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_15750(t0,t1,t2,t3);} C_noret_decl(trf_19893) static void C_ccall trf_19893(C_word c,C_word *av) C_noret; static void C_ccall trf_19893(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19893(t0,t1);} C_noret_decl(trf_17885) static void C_ccall trf_17885(C_word c,C_word *av) C_noret; static void C_ccall trf_17885(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17885(t0,t1);} C_noret_decl(trf_15007) static void C_ccall trf_15007(C_word c,C_word *av) C_noret; static void C_ccall trf_15007(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15007(t0,t1);} C_noret_decl(trf_14986) static void C_ccall trf_14986(C_word c,C_word *av) C_noret; static void C_ccall trf_14986(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14986(t0,t1);} C_noret_decl(trf_8588) static void C_ccall trf_8588(C_word c,C_word *av) C_noret; static void C_ccall trf_8588(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_8588(t0,t1,t2,t3,t4);} C_noret_decl(trf_17872) static void C_ccall trf_17872(C_word c,C_word *av) C_noret; static void C_ccall trf_17872(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17872(t0,t1,t2);} C_noret_decl(trf_17192) static void C_ccall trf_17192(C_word c,C_word *av) C_noret; static void C_ccall trf_17192(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17192(t0,t1);} C_noret_decl(trf_7985) static void C_ccall trf_7985(C_word c,C_word *av) C_noret; static void C_ccall trf_7985(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7985(t0,t1,t2);} C_noret_decl(trf_7970) static void C_ccall trf_7970(C_word c,C_word *av) C_noret; static void C_ccall trf_7970(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7970(t0,t1,t2);} C_noret_decl(trf_7671) static void C_ccall trf_7671(C_word c,C_word *av) C_noret; static void C_ccall trf_7671(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7671(t0,t1,t2);} C_noret_decl(trf_8060) static void C_ccall trf_8060(C_word c,C_word *av) C_noret; static void C_ccall trf_8060(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8060(t0,t1,t2);} C_noret_decl(trf_7677) static void C_ccall trf_7677(C_word c,C_word *av) C_noret; static void C_ccall trf_7677(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7677(t0,t1,t2);} C_noret_decl(trf_7915) static void C_ccall trf_7915(C_word c,C_word *av) C_noret; static void C_ccall trf_7915(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7915(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[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_7909) static void C_ccall trf_7909(C_word c,C_word *av) C_noret; static void C_ccall trf_7909(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_7909(t0,t1,t2,t3,t4);} C_noret_decl(trf_14173) static void C_ccall trf_14173(C_word c,C_word *av) C_noret; static void C_ccall trf_14173(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14173(t0,t1,t2,t3);} C_noret_decl(trf_12622) static void C_ccall trf_12622(C_word c,C_word *av) C_noret; static void C_ccall trf_12622(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12622(t0,t1,t2,t3);} C_noret_decl(trf_16344) static void C_ccall trf_16344(C_word c,C_word *av) C_noret; static void C_ccall trf_16344(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16344(t0,t1);} C_noret_decl(trf_14155) static void C_ccall trf_14155(C_word c,C_word *av) C_noret; static void C_ccall trf_14155(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_14155(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_11590) static void C_ccall trf_11590(C_word c,C_word *av) C_noret; static void C_ccall trf_11590(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11590(t0,t1);} C_noret_decl(trf_17124) static void C_ccall trf_17124(C_word c,C_word *av) C_noret; static void C_ccall trf_17124(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17124(t0,t1,t2);} C_noret_decl(trf_7361) static void C_ccall trf_7361(C_word c,C_word *av) C_noret; static void C_ccall trf_7361(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7361(t0,t1);} C_noret_decl(trf_17131) static void C_ccall trf_17131(C_word c,C_word *av) C_noret; static void C_ccall trf_17131(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17131(t0,t1);} C_noret_decl(trf_6721) static void C_ccall trf_6721(C_word c,C_word *av) C_noret; static void C_ccall trf_6721(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6721(t0,t1);} C_noret_decl(trf_17404) static void C_ccall trf_17404(C_word c,C_word *av) C_noret; static void C_ccall trf_17404(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17404(t0,t1);} C_noret_decl(trf_8509) static void C_ccall trf_8509(C_word c,C_word *av) C_noret; static void C_ccall trf_8509(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8509(t0,t1,t2);} C_noret_decl(trf_6705) static void C_ccall trf_6705(C_word c,C_word *av) C_noret; static void C_ccall trf_6705(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_6705(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_15647) static void C_ccall trf_15647(C_word c,C_word *av) C_noret; static void C_ccall trf_15647(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15647(t0,t1);} C_noret_decl(trf_10264) static void C_ccall trf_10264(C_word c,C_word *av) C_noret; static void C_ccall trf_10264(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10264(t0,t1,t2);} C_noret_decl(trf_10611) static void C_ccall trf_10611(C_word c,C_word *av) C_noret; static void C_ccall trf_10611(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10611(t0,t1,t2,t3);} C_noret_decl(trf_13026) static void C_ccall trf_13026(C_word c,C_word *av) C_noret; static void C_ccall trf_13026(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13026(t0,t1,t2);} C_noret_decl(trf_10206) static void C_ccall trf_10206(C_word c,C_word *av) C_noret; static void C_ccall trf_10206(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10206(t0,t1,t2,t3);} C_noret_decl(trf_13073) static void C_ccall trf_13073(C_word c,C_word *av) C_noret; static void C_ccall trf_13073(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13073(t0,t1,t2);} C_noret_decl(trf_13694) static void C_ccall trf_13694(C_word c,C_word *av) C_noret; static void C_ccall trf_13694(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13694(t0,t1);} C_noret_decl(trf_13685) static void C_ccall trf_13685(C_word c,C_word *av) C_noret; static void C_ccall trf_13685(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13685(t0,t1);} C_noret_decl(trf_6868) static void C_ccall trf_6868(C_word c,C_word *av) C_noret; static void C_ccall trf_6868(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_6868(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_12046) static void C_ccall trf_12046(C_word c,C_word *av) C_noret; static void C_ccall trf_12046(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12046(t0,t1);} C_noret_decl(trf_9146) static void C_ccall trf_9146(C_word c,C_word *av) C_noret; static void C_ccall trf_9146(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9146(t0,t1);} C_noret_decl(trf_7389) static void C_ccall trf_7389(C_word c,C_word *av) C_noret; static void C_ccall trf_7389(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7389(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_7373) static void C_ccall trf_7373(C_word c,C_word *av) C_noret; static void C_ccall trf_7373(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7373(t0,t1);} C_noret_decl(trf_7370) static void C_ccall trf_7370(C_word c,C_word *av) C_noret; static void C_ccall trf_7370(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7370(t0,t1);} C_noret_decl(trf_9288) static void C_ccall trf_9288(C_word c,C_word *av) C_noret; static void C_ccall trf_9288(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9288(t0,t1);} C_noret_decl(trf_18691) static void C_ccall trf_18691(C_word c,C_word *av) C_noret; static void C_ccall trf_18691(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18691(t0,t1,t2);} C_noret_decl(trf_20392) static void C_ccall trf_20392(C_word c,C_word *av) C_noret; static void C_ccall trf_20392(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20392(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_7322) static void C_ccall trf_7322(C_word c,C_word *av) C_noret; static void C_ccall trf_7322(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7322(t0,t1);} C_noret_decl(trf_20238) static void C_ccall trf_20238(C_word c,C_word *av) C_noret; static void C_ccall trf_20238(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20238(t0,t1,t2);} C_noret_decl(trf_19422) static void C_ccall trf_19422(C_word c,C_word *av) C_noret; static void C_ccall trf_19422(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19422(t0,t1,t2);} C_noret_decl(trf_9394) static void C_ccall trf_9394(C_word c,C_word *av) C_noret; static void C_ccall trf_9394(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9394(t0,t1,t2,t3);} C_noret_decl(trf_15622) static void C_ccall trf_15622(C_word c,C_word *av) C_noret; static void C_ccall trf_15622(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15622(t0,t1,t2);} C_noret_decl(trf_18628) static void C_ccall trf_18628(C_word c,C_word *av) C_noret; static void C_ccall trf_18628(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18628(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_11319(t0,t1);} C_noret_decl(trf_11382) static void C_ccall trf_11382(C_word c,C_word *av) C_noret; static void C_ccall trf_11382(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11382(t0,t1);} C_noret_decl(trf_11363) static void C_ccall trf_11363(C_word c,C_word *av) C_noret; static void C_ccall trf_11363(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11363(t0,t1);} C_noret_decl(trf_10665) static void C_ccall trf_10665(C_word c,C_word *av) C_noret; static void C_ccall trf_10665(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10665(t0,t1,t2);} C_noret_decl(trf_12004) static void C_ccall trf_12004(C_word c,C_word *av) C_noret; static void C_ccall trf_12004(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12004(t0,t1);} C_noret_decl(trf_8919) static void C_ccall trf_8919(C_word c,C_word *av) C_noret; static void C_ccall trf_8919(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8919(t0,t1,t2,t3);} C_noret_decl(trf_9034) static void C_ccall trf_9034(C_word c,C_word *av) C_noret; static void C_ccall trf_9034(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9034(t0,t1);} C_noret_decl(trf_9042) static void C_ccall trf_9042(C_word c,C_word *av) C_noret; static void C_ccall trf_9042(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9042(t0,t1,t2,t3);} C_noret_decl(trf_8475) static void C_ccall trf_8475(C_word c,C_word *av) C_noret; static void C_ccall trf_8475(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8475(t0,t1,t2);} C_noret_decl(trf_6816) static void C_ccall trf_6816(C_word c,C_word *av) C_noret; static void C_ccall trf_6816(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_6816(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_6836) static void C_ccall trf_6836(C_word c,C_word *av) C_noret; static void C_ccall trf_6836(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_6836(t0,t1,t2,t3,t4,t5);} 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[1]; C_word t1=av[0]; f_11344(t0,t1);} C_noret_decl(trf_11032) static void C_ccall trf_11032(C_word c,C_word *av) C_noret; static void C_ccall trf_11032(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11032(t0,t1,t2,t3);} 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[1]; C_word t1=av[0]; f_16274(t0,t1);} C_noret_decl(trf_18073) static void C_ccall trf_18073(C_word c,C_word *av) C_noret; static void C_ccall trf_18073(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18073(t0,t1,t2);} C_noret_decl(trf_15109) static void C_ccall trf_15109(C_word c,C_word *av) C_noret; static void C_ccall trf_15109(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15109(t0,t1);} C_noret_decl(trf_16070) static void C_ccall trf_16070(C_word c,C_word *av) C_noret; static void C_ccall trf_16070(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16070(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_17004) static void C_ccall trf_17004(C_word c,C_word *av) C_noret; static void C_ccall trf_17004(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17004(t0,t1,t2);} C_noret_decl(trf_8336) static void C_ccall trf_8336(C_word c,C_word *av) C_noret; static void C_ccall trf_8336(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8336(t0,t1);} C_noret_decl(trf_8342) static void C_ccall trf_8342(C_word c,C_word *av) C_noret; static void C_ccall trf_8342(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8342(t0,t1);} 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[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_7780(t0,t1,t2,t3,t4);} C_noret_decl(trf_19168) static void C_ccall trf_19168(C_word c,C_word *av) C_noret; static void C_ccall trf_19168(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_19168(t0,t1,t2,t3);} C_noret_decl(trf_6335) static void C_ccall trf_6335(C_word c,C_word *av) C_noret; static void C_ccall trf_6335(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6335(t0,t1,t2);} C_noret_decl(trf_16803) static void C_ccall trf_16803(C_word c,C_word *av) C_noret; static void C_ccall trf_16803(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16803(t0,t1,t2);} /* g2588 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_fcall f_13544(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_13544,3,t0,t1,t2);} if(C_truep(C_i_cadr(t2))){ t3=t2; t4=C_u_i_cdr(t3); t5=C_u_i_car(t4); /* scrutinizer.scm:1384: test */ t6=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[4]; av2[0]=t6; av2[1]=t1; av2[2]=t5; av2[3]=((C_word*)t0)[3]; f_13530(4,av2);}} else{ t3=t2; t4=C_u_i_cdr(t3); t5=C_i_set_car(t4,((C_word*)t0)[3]); t6=C_i_caddr(t2); t7=C_i_not(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=t2; t9=C_u_i_cdr(t8); t10=C_u_i_cdr(t9); t11=C_u_i_car(t10); /* scrutinizer.scm:1388: test */ t12=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[4]; av2[0]=t12; av2[1]=t1; av2[2]=t11; av2[3]=((C_word*)t0)[3]; f_13530(4,av2);}}}} /* k17027 in map-loop3574 in a16956 in fragment in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_17029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_17029,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_17004(t6,((C_word*)t0)[5],t5);} /* k19182 in k19178 in report in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19184(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_19184,2,av);} a=C_alloc(22); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19190,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,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_word*)t0)[4]; t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19205,a[2]=t5,a[3]=t3,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|4,a[1]=(C_word)f_19207,a[2]=t8,a[3]=t13,a[4]=t9,tmp=(C_word)a,a+=5,tmp)); t15=((C_word*)t13)[1]; f_19207(t15,t11,t10);} /* g4129 in k18557 in k18554 in k18522 in g4054 in install-specializations in k6121 in k6118 in k6115 */ static void C_fcall f_18595(C_word t0,C_word t1,C_word 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_18595,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18601,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18607,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2145: ##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);}} /* k19178 in report in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_19180,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19184,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:2276: open-output-string */ t4=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* test in k13522 in type<=? in k6121 in k6118 in k6115 */ 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 t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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: if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ av[0]=t0; av[1]=t1; av[2]=t2; av[3]=t3; C_save_and_reclaim((void *)f_13530,4,av);} a=C_alloc(7); t4=C_eqp(t2,t3); if(C_truep(t4)){ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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|3,a[1]=(C_word)f_13544,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1380: g2588 */ t8=t7; f_13544(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|3,a[1]=(C_word)f_13589,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1380: g2601 */ t10=t9; f_13589(t10,t1,t8);} else{ t9=t3; if(C_truep((C_truep(C_eqp(t9,lf[60]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[25]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=t2; if(C_truep((C_truep(C_eqp(t10,lf[60]))?C_SCHEME_TRUE:(C_truep(C_eqp(t10,lf[25]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=C_eqp(lf[55],t2); if(C_truep(t11)){ /* scrutinizer.scm:1398: test */ t21=t1; t22=lf[256]; t23=t3; t1=t21; t2=t22; t3=t23; c=4; goto loop;} else{ t12=C_eqp(lf[57],t2); if(C_truep(t12)){ /* scrutinizer.scm:1399: test */ t21=t1; t22=lf[257]; t23=t3; t1=t21; t2=t22; t3=t23; c=4; goto loop;} else{ t13=C_eqp(lf[54],t2); if(C_truep(t13)){ /* scrutinizer.scm:1400: test */ t21=t1; t22=lf[258]; t23=t3; t1=t21; t2=t22; t3=t23; c=4; goto loop;} else{ t14=C_eqp(lf[24],t2); if(C_truep(t14)){ /* scrutinizer.scm:1401: test */ t21=t1; t22=lf[259]; t23=t3; t1=t21; t2=t22; t3=t23; c=4; goto loop;} else{ t15=C_eqp(lf[51],t2); if(C_truep(t15)){ /* scrutinizer.scm:1402: test */ t21=t1; t22=lf[260]; t23=t3; t1=t21; t2=t22; t3=t23; c=4; goto loop;} else{ t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13685,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); t17=C_eqp(lf[21],t2); if(C_truep(t17)){ if(C_truep(C_i_pairp(t3))){ t18=t3; t19=C_u_i_car(t18); t20=t16; f_13685(t20,C_eqp(t19,lf[213]));} else{ t18=t16; f_13685(t18,C_SCHEME_FALSE);}} else{ t18=t16; f_13685(t18,C_SCHEME_FALSE);}}}}}}}}}}}} /* k16822 in wrap in k16785 in k16777 in k16769 in k16761 in k16753 in k16742 in k16734 in a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ static void C_ccall f_16824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16824,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k16832 in wrap in k16785 in k16777 in k16769 in k16761 in k16753 in k16742 in k16734 in a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ static void C_ccall f_16834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16834,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[100],t1); /* scrutinizer.scm:1815: ##sys#list->vector */ t3=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8408 in map-loop988 in k8340 in k8334 in k8328 in k8321 in k8317 in k8560 in k8563 in k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8410(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_8410,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((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_8381(t7,((C_word*)t0)[6],t5,t6);} /* a18539 in g4076 in k18522 in g4054 in install-specializations in k6121 in k6118 in k6115 */ static void C_ccall f_18540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18540,5,av);} if(C_truep(t2)){ t5=t2; t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* scrutinizer.scm:2134: error */ t5=*((C_word*)lf[360]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=lf[363]; 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);}}} /* k9694 in k9640 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_9696,2,av);} a=C_alloc(22); if(C_truep(t1)){ t2=t1; /* scrutinizer.scm:763: add-to-blist */ t3=((C_word*)((C_word*)t0)[2])[1]; f_7909(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2);} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9702,a[2]=((C_word*)t0)[2],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_cdr(((C_word*)t0)[7]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9711,a[2]=((C_word*)t0)[8],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t5=C_u_i_cdr(((C_word*)t0)[7]); t6=C_a_i_list(&a,3,lf[17],t5,((C_word*)t0)[6]); /* scrutinizer.scm:769: type-typeenv */ t7=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t4; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} /* k7749 in loop in g708 in k7665 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7751,2,av);} /* scrutinizer.scm:409: append */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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 k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_18048(C_word t0,C_word 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_18048,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_18066,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2059: reverse */ t7=*((C_word*)lf[243]+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_18069,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:2060: validate */ t6=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; f_17486(3,av2);}}} /* procedure-type? in k6121 in k6118 in k6115 */ static void C_ccall f_14637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14637,3,av);} t3=C_eqp(lf[100],t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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[19]); if(C_truep(t6)){ t7=C_i_caddr(t2); /* scrutinizer.scm:1529: procedure-type? */ t12=t1; t13=t7; t1=t12; t2=t13; c=3; goto loop;} else{ t7=C_eqp(t5,lf[100]); if(C_truep(t7)){ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(t5,lf[17]); if(C_truep(t8)){ t9=t2; t10=C_u_i_cdr(t9); /* scrutinizer.scm:1531: every */ t11=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t11; av2[1]=t1; av2[2]=lf[104]; av2[3]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k20269 in k20266 in loop in k20177 in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 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; 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_20271,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:2528: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_20181(t4,((C_word*)t0)[4],t3,C_SCHEME_TRUE);} /* k11926 in k11824 in k11722 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_11928(C_word t0,C_word t1){ C_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_11928,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)((C_word*)t0)[2])[1]; if(C_truep(t2)){ 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);}} 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(lf[213],t4); if(C_truep(t5)){ t6=C_i_cdr(((C_word*)t0)[5]); t7=C_i_cadr(((C_word*)t0)[4]); t8=t7; t9=((C_word*)((C_word*)t0)[6])[1]; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11958,a[2]=t9,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1129: over-all-instantiations */ f_19983(((C_word*)t0)[3],t6,((C_word*)t0)[7],C_SCHEME_TRUE,t10);} else{ t6=((C_word*)t0)[3];{ C_word av2[2]; 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[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11970,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); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; t4=C_u_i_car(t3); t5=t2; f_11970(t5,C_eqp(lf[213],t4));} else{ t3=t2; f_11970(t3,C_SCHEME_FALSE);}}} /* k7736 in k7695 in k7689 in loop in g708 in k7665 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7738,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:424: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_7677(t4,((C_word*)t0)[4],t3);} /* k20266 in loop in k20177 in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in ... */ static void C_ccall f_20268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_20268,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20271,a[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:2527: restore */ t3=((C_word*)((C_word*)t0)[5])[1]; f_19986(t3,t2);} else{ if(C_truep(((C_word*)t0)[6])){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20282,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2530: restore */ t3=((C_word*)((C_word*)t0)[5])[1]; f_19986(t3,t2);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20285,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:2533: restore */ t3=((C_word*)((C_word*)t0)[5])[1]; f_19986(t3,t2);}}} /* for-each-loop2979 in k15409 in loop in type-typeenv in k6121 in k6118 in k6115 */ 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)); /* scrutinizer.scm:1675: g2980 */ 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);}}} /* k19123 in k19102 in vector-ref-result-type in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_19125,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k9646 in k9640 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_9648,2,av);} a=C_alloc(18); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9654,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); t3=C_i_cdr(((C_word*)t0)[2]); t4=C_a_i_list(&a,3,lf[17],t3,((C_word*)t0)[7]); /* scrutinizer.scm:776: type-typeenv */ t5=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_SCHEME_UNDEFINED; t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9640 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9642(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,4)))){ C_save_and_reclaim((void *)f_9642,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9648,a[2]=((C_word*)t0)[2],a[3]=((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_i_car(((C_word*)t0)[3]); t5=t4; if(C_truep(((C_word*)t0)[2])){ t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9696,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[6],a[5]=t5,a[6]=t2,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t7=C_i_cdr(((C_word*)t0)[2]); /* scrutinizer.scm:766: typeset-min */ f_13505(t6,t2,t7);} else{ /* scrutinizer.scm:763: add-to-blist */ t6=((C_word*)((C_word*)t0)[4])[1]; f_7909(t6,t3,((C_word*)t0)[6],t5,t2);}} /* k9655 in k9652 in k9646 in k9640 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9657,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:781: add-to-blist */ t4=((C_word*)((C_word*)t0)[3])[1]; f_7909(t4,((C_word*)t0)[4],((C_word*)t0)[5],t3,t1);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9652 in k9646 in k9640 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9654(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9654,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9657,a[2]=((C_word*)t0)[2],a[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_list(&a,2,lf[113],((C_word*)t0)[7]); /* scrutinizer.scm:777: reduce-typeset */ f_8048(t2,t3,t4,t1);} /* k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_fcall f_13789(C_word t0,C_word t1){ C_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(6,0,3)))){ C_save_and_reclaim_args((void *)trf_13789,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13796,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* scrutinizer.scm:1426: test */ t4=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[4]; av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=t3; f_13530(4,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_eqp(t2,lf[100]); if(C_truep(t3)){ 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)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=C_eqp(lf[100],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t4=((C_word*)t0)[2];{ 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(t2,lf[24]); if(C_truep(t4)){ t5=((C_word*)t0)[5]; t6=C_u_i_memq(t5,lf[261]); t7=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t5=C_eqp(t2,lf[51]); if(C_truep(t5)){ t6=((C_word*)t0)[5]; t7=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t7; av2[1]=C_u_i_memq(t6,lf[262]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_eqp(t2,lf[57]); if(C_truep(t6)){ /* scrutinizer.scm:1432: test */ t7=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[4]; av2[0]=t7; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[263]; f_13530(4,av2);}} else{ t7=C_eqp(t2,lf[54]); if(C_truep(t7)){ /* scrutinizer.scm:1433: test */ t8=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[4]; av2[0]=t8; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[264]; f_13530(4,av2);}} else{ t8=C_eqp(t2,lf[55]); if(C_truep(t8)){ /* scrutinizer.scm:1434: test */ t9=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[4]; av2[0]=t9; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[265]; f_13530(4,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13878,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); t10=C_i_car(((C_word*)t0)[5]); t11=C_eqp(lf[57],t10); if(C_truep(t11)){ t12=C_i_car(((C_word*)t0)[3]); t13=t9; f_13878(t13,C_eqp(lf[211],t12));} else{ t12=t9; f_13878(t12,C_SCHEME_FALSE);}} else{ t9=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t9=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}}}}}}}} /* g3206 in k16011 in k15992 in k15989 in k15986 in k15922 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_fcall f_16024(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_16024,3,t0,t1,t2);} /* scrutinizer.scm:1738: g3223 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_15750(t3,t1,t2,((C_word*)t0)[3]);} /* k19102 in vector-ref-result-type in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_19104,2,av);} a=C_alloc(21); t2=t1; if(C_truep(t2)){ t3=C_i_cadr(((C_word*)t0)[2]); t4=C_slot(t3,C_fix(2)); t5=C_i_car(t4); t6=t5; if(C_truep(t6)){ t7=((C_word*)t0)[3]; t8=C_slot(t7,C_fix(3)); t9=C_i_cadr(t8); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19125,a[2]=t6,a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t11=C_a_i_list(&a,2,lf[106],t2); t12=C_a_i_list(&a,3,lf[367],t9,t11); /* scrutinizer.scm:2241: mutate-node! */ f_16906(t10,((C_word*)t0)[3],t12);} else{ t10=((C_word*)t0)[5]; t11=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} else{ t7=((C_word*)t0)[5]; t8=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t3=((C_word*)t0)[5]; t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* vector-ref-result-type in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19100(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_19100,6,av);} a=C_alloc(6); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19104,a[2]=t3,a[3]=t2,a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2238: known-length-vector-index */ f_18963(t6,t2,t3,t4,C_fix(2));} /* map-loop3200 in k16011 in k15992 in k15989 in k15986 in k15922 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_fcall f_16036(C_word t0,C_word t1,C_word 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_16036,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_16061,a[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:1738: g3206 */ t5=((C_word*)t0)[4]; f_16024(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);}}} /* k20296 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20298,2,av);} /* scrutinizer.scm:2467: ##sys#put! */ t2=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[374]; av2[3]=lf[183]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k15545 in for-each-loop2979 in k15409 in loop in type-typeenv in k6121 in k6118 in k6115 */ 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);} /* k18522 in g4054 in install-specializations in k6121 in k6118 in k6115 */ static void C_fcall f_18524(C_word t0,C_word t1){ C_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(23,0,3)))){ C_save_and_reclaim_args((void *)trf_18524,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_18528,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t7=C_i_car(((C_word*)t0)[2]); t8=C_i_check_list_2(t7,lf[89]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18556,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); 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_18691,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_18691(t13,t9,t7);} else{ /* scrutinizer.scm:2155: fail */ t2=((C_word*)t0)[5]; f_18491(t2,((C_word*)t0)[4],((C_word*)t0)[2]);}} /* g4054 in install-specializations in k6121 in k6118 in k6115 */ static void C_fcall f_18517(C_word t0,C_word t1,C_word 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_18517,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18524,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=C_i_car(t2); t5=t3; f_18524(t5,C_i_listp(t4));} else{ t4=t3; f_18524(t4,C_SCHEME_FALSE);}} /* k9604 in map-loop1425 in k9557 in k9554 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 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_9606,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9581(t6,((C_word*)t0)[5],t5);} /* a18533 in g4076 in k18522 in g4054 in install-specializations in k6121 in k6118 in k6115 */ static void C_ccall f_18534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18534,2,av);} /* scrutinizer.scm:2132: validate-type */ t2=*((C_word*)lf[278]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9791 in k9776 in k9773 in k9728 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9793(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9793,2,av);} /* scrutinizer.scm:791: reduce-typeset */ f_8048(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* g4076 in k18522 in g4054 in install-specializations in k6121 in k6118 in k6115 */ static void C_fcall f_18528(C_word t0,C_word t1,C_word 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_18528,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18534,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18540,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2131: ##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);}} /* k9764 in g1528 in k9728 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9766,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_9614(C_word t0,C_word t1,C_word 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(20,0,3)))){ C_save_and_reclaim_args((void *)trf_9614,4,t0,t1,t2,t3);} a=C_alloc(20); t4=t2; t5=C_slot(t4,C_fix(1)); t6=C_eqp(lf[136],t5); if(C_truep(t6)){ t7=t2; t8=C_slot(t7,C_fix(2)); t9=C_i_car(t8); t10=t9; t11=C_i_assq(t10,((C_word*)t0)[2]); t12=t11; t13=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_9630,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t12,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t1,a[8]=t10,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],a[18]=((C_word*)t0)[15],a[19]=((C_word*)t0)[16],tmp=(C_word)a,a+=20,tmp); /* scrutinizer.scm:751: resolve */ t14=lf[102];{ C_word av2[4]; av2[0]=t14; av2[1]=t13; av2[2]=t3; av2[3]=((C_word*)t0)[8]; f_15740(4,av2);}} else{ 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);}}} /* map-loop988 in k8340 in k8334 in k8328 in k8321 in k8317 in k8560 in k8563 in k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_8381(C_word t0,C_word t1,C_word 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_8381,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_8410,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[17],t7,t8); /* scrutinizer.scm:548: simplify-type */ t10=*((C_word*)lf[56]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t6; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,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);}}} /* k6467 in constant-result in scrutinize in k6121 in k6118 in k6115 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6469,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[54],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9782 in k9776 in k9773 in k9728 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9784,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_9733(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_9733(2,av2);}}} /* k13794 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13796,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7709 in k7706 in k7703 in k7695 in k7689 in loop in g708 in k7665 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7711,2,av);} if(C_truep(((C_word*)t0)[2])){ t2=C_mutate2(((C_word *)((C_word*)t0)[3])+1,((C_word*)t0)[2]); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k15986 in k15922 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_ccall f_15988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_15988,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15991,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:1723: procedure-arguments */ f_14740(t3,((C_word*)t0)[5]);} /* k9773 in k9728 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9775,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[60]; f_9733(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9778,a[2]=((C_word*)t0)[2],a[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)[4]); /* scrutinizer.scm:790: typeset-min */ f_13505(t2,t3,((C_word*)t0)[3]);}} /* k7703 in k7695 in k7689 in loop in g708 in k7665 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in ... */ static void C_fcall f_7705(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_7705,2,t0,t1);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7708,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=t3; f_7708(t4,C_i_caddr(((C_word*)t0)[6]));} else{ t4=C_u_i_cdr(((C_word*)t0)[6]); t5=t3; f_7708(t5,C_u_i_car(t4));}} /* k9776 in k9773 in k9728 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_9778,2,av);} a=C_alloc(19); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; f_9733(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9784,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]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9793,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t5=C_u_i_cdr(((C_word*)t0)[4]); t6=C_a_i_list(&a,3,lf[17],t5,((C_word*)t0)[3]); /* scrutinizer.scm:793: type-typeenv */ t7=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t4; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} /* k8317 in k8560 in k8563 in k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_8319,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_8323,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:519: walk */ t8=((C_word*)((C_word*)t0)[15])[1]; f_8123(t8,t5,((C_word*)t0)[16],((C_word*)t0)[17],((C_word*)t0)[7],((C_word*)t0)[18],((C_word*)t0)[19],t7,C_SCHEME_FALSE);} /* k8314 in k8560 in k8563 in k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8316,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[107],t3,((C_word*)t0)[3]); /* scrutinizer.scm:513: mutate-node! */ f_16906(((C_word*)t0)[4],((C_word*)t0)[5],t4);} /* k7706 in k7703 in k7695 in k7689 in loop in g708 in k7665 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in ... */ static void C_fcall f_7708(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,4)))){ C_save_and_reclaim_args((void *)trf_7708,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7711,a[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]); /* scrutinizer.scm:420: specialize-node! */ t4=*((C_word*)lf[108]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=t3; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k6494 in map-loop261 in constant-result in scrutinize in k6121 in k6118 in k6115 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6496,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6471(t6,((C_word*)t0)[5],t5);} /* k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_9636(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_9636,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9642,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:760: resolve */ t3=lf[102];{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t0)[9]; f_15740(4,av2);}} else{ if(C_truep(((C_word*)t0)[2])){ if(C_truep(((C_word*)t0)[10])){ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9730,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)[11],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[13],tmp=(C_word)a,a+=11,tmp); /* scrutinizer.scm:784: blist-type */ t3=((C_word*)((C_word*)t0)[14])[1]; f_6674(t3,t2,((C_word*)t0)[6],((C_word*)t0)[11]);} 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_9806,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)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[19])){ /* tweaks.scm:57: ##sys#get */ t3=*((C_word*)lf[67]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[183]; ((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_9806(2,av2);}}}}} /* k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){ C_save_and_reclaim((void *)f_9630,2,av);} a=C_alloc(24); 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|19,a[1]=(C_word)f_9636,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]=t2,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]=t5,tmp=(C_word)a,a+=20,tmp); if(C_truep(((C_word*)t0)[10])){ if(C_truep(((C_word*)t0)[5])){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9845,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:755: get */ t8=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[14]; av2[3]=((C_word*)t0)[8]; av2[4]=lf[75]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t7=t6; f_9636(t7,C_SCHEME_FALSE);}} else{ t7=t6; f_9636(t7,C_SCHEME_FALSE);}} /* a10742 in loop in doloop1759 in smash-component-types! in k6121 in k6118 in k6115 */ static void C_ccall f_10745(C_word c,C_word *av){ C_word 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_10745,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_setslot(((C_word*)t0)[2],C_fix(0),t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8321 in k8317 in k8560 in k8563 in k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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_8323,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_mutate2(((C_word *)((C_word*)t0)[2])+1,t4); t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8330,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)[5],a[8]=t2,a[9]=t3,a[10]=((C_word*)t0)[11],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_8475,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[141]); 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_8509,a[2]=t15,a[3]=t11,tmp=(C_word)a,a+=4,tmp)); t17=((C_word*)t15)[1]; f_8509(t17,t6,t12);} else{ t9=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_8330(2,av2);}}} /* k15989 in k15986 in k15922 in resolve in resolve in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_15991,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15994,a[2]=((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:1724: procedure-results */ f_14796(t3,((C_word*)t0)[6]);} /* k15992 in k15989 in k15986 in k15922 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_ccall f_15994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_15994,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16001,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_16013,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_16070,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_16070(t10,t6,((C_word*)t0)[6]);} /* k9709 in k9694 in k9640 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9711,2,av);} /* scrutinizer.scm:767: reduce-typeset */ f_8048(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k10710 in loop in doloop1759 in smash-component-types! in k6121 in k6118 in k6115 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10712,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_u_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* procedure-name in k6121 in k6118 in k6115 */ static void C_fcall f_14689(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_14689,2,t1,t2);} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[19]); if(C_truep(t5)){ t6=C_i_caddr(t2); /* scrutinizer.scm:1537: procedure-name */ t10=t1; t11=t6; t1=t10; t2=t11; goto loop;} else{ t6=C_eqp(t4,lf[100]); if(C_truep(t6)){ t7=C_i_cadr(t2); if(C_truep(C_i_stringp(t7))){ /* scrutinizer.scm:1540: string->symbol */ t8=*((C_word*)lf[266]+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);}}} /* k10723 in loop in doloop1759 in smash-component-types! in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10725,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* g3107 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_fcall f_15832(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_15832,3,t0,t1,t2);} /* scrutinizer.scm:1716: g3124 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_15750(t3,t1,t2,((C_word*)t0)[3]);} /* map-loop4854 in k20052 in collect in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in ... */ static void C_fcall f_20089(C_word t0,C_word t1,C_word 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_20089,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_20114,a[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:2498: g4860 */ t5=((C_word*)t0)[4]; f_20058(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);}}} /* map-loop261 in constant-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_6471(C_word t0,C_word t1,C_word 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_6471,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_6496,a[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:177: g267 */ 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);}}} /* k9700 in k9694 in k9640 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9702,2,av);} if(C_truep(t1)){ t2=t1; /* scrutinizer.scm:763: add-to-blist */ t3=((C_word*)((C_word*)t0)[2])[1]; f_7909(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2);} else{ /* scrutinizer.scm:763: add-to-blist */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7909(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);}} /* g1528 in k9728 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_9759(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_9759,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9766,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:786: type<=? */ t4=lf[182];{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=((C_word*)t0)[2]; f_13520(4,av2);}} /* k19787 in k19765 in k19704 in lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19789,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15868 in map-loop3101 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_ccall f_15870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_15870,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_15845(t6,((C_word*)t0)[5],t5);} /* k19793 in k19765 in k19704 in lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 in ... */ static void C_ccall f_19795(C_word c,C_word *av){ C_word tmp; C_word t0=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_19795,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_19802,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); /* scrutinizer.scm:2432: node-source-prefix */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k19765 in k19704 in lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_fcall f_19767(C_word t0,C_word 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_19767,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19770,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_a_i_plus(&a,2,((C_word*)t0)[5],C_fix(1)); /* scrutinizer.scm:2417: lp */ t6=((C_word*)((C_word*)t0)[6])[1]; f_19690(t6,t2,t4,t5);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19789,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|7,a[1]=(C_word)f_19795,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[7],a[4]=t2,a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); if(C_truep(t5)){ t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=t5; f_19795(2,av2);}} else{ /* scrutinizer.scm:2399: match-types */ t7=lf[126];{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[2]; av2[3]=lf[54]; av2[4]=C_SCHEME_END_OF_LIST; f_10768(5,av2);}}}} /* k9743 in k9737 in k9731 in k9728 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9745,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:800: add-to-blist */ t4=((C_word*)((C_word*)t0)[3])[1]; f_7909(t4,((C_word*)t0)[4],((C_word*)t0)[5],t3,((C_word*)t0)[6]);} /* k13525 in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_ccall f_13527(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13527,2,av);} t2=C_mutate2(&lf[14] /* (set! trail ...) */,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_ccall f_13524(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_13524,2,av);} a=C_alloc(10); t2=t1; t3=lf[14]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13527,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|3,a[1]=(C_word)f_13530,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; f_13530(4,av2);}} /* type<=? in k6121 in k6118 in k6115 */ 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=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(11,c,3)))){ C_save_and_reclaim((void *)f_13520,4,av);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13524,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_a_i_list2(&a,2,t2,t3); /* scrutinizer.scm:1378: append-map */ t6=*((C_word*)lf[117]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t4; av2[2]=*((C_word*)lf[118]+1); av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k13516 in k13510 in typeset-min in k6121 in k6118 in k6115 */ static void C_ccall f_13518(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13518,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k13510 in typeset-min in k6121 in k6118 in k6115 */ static void C_ccall f_13512(C_word c,C_word *av){ C_word tmp; C_word t0=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_13512,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_13518,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1373: type<=? */ t3=lf[182];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[2]; f_13520(4,av2);}}} /* k19768 in k19765 in k19704 in lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 in ... */ static void C_ccall f_19770(C_word c,C_word *av){ C_word tmp; C_word t0=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_19770,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_a_i_list(&a,3,lf[17],((C_word*)t0)[2],t1); /* scrutinizer.scm:2419: simplify-type */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_11395(C_word t0,C_word t1){ C_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(10,0,3)))){ C_save_and_reclaim_args((void *)trf_11395,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); /* scrutinizer.scm:1057: match1 */ t3=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t2; f_11054(4,av2);}} else{ t2=C_eqp(((C_word*)t0)[5],lf[76]); if(C_truep(t2)){ 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{ t3=C_eqp(((C_word*)t0)[2],lf[76]); if(C_truep(t3)){ 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{ t4=C_eqp(((C_word*)t0)[5],lf[24]); if(C_truep(t4)){ /* scrutinizer.scm:1060: match1 */ t5=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t5; av2[1]=((C_word*)t0)[4]; av2[2]=lf[222]; av2[3]=((C_word*)t0)[2]; f_11054(4,av2);}} else{ t5=C_eqp(((C_word*)t0)[2],lf[24]); if(C_truep(t5)){ /* scrutinizer.scm:1061: match1 */ t6=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t6; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[223]; f_11054(4,av2);}} else{ t6=C_eqp(((C_word*)t0)[5],lf[51]); if(C_truep(t6)){ /* scrutinizer.scm:1062: match1 */ t7=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t7; av2[1]=((C_word*)t0)[4]; av2[2]=lf[224]; av2[3]=((C_word*)t0)[2]; f_11054(4,av2);}} else{ t7=C_eqp(((C_word*)t0)[2],lf[51]); if(C_truep(t7)){ /* scrutinizer.scm:1063: match1 */ t8=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t8; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[225]; f_11054(4,av2);}} else{ t8=C_eqp(((C_word*)t0)[5],lf[55]); if(C_truep(t8)){ /* scrutinizer.scm:1064: match1 */ t9=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t9; av2[1]=((C_word*)t0)[4]; av2[2]=lf[226]; av2[3]=((C_word*)t0)[2]; f_11054(4,av2);}} else{ t9=C_eqp(((C_word*)t0)[2],lf[55]); if(C_truep(t9)){ /* scrutinizer.scm:1065: match1 */ t10=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t10; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[227]; f_11054(4,av2);}} else{ t10=C_eqp(((C_word*)t0)[5],lf[54]); if(C_truep(t10)){ /* scrutinizer.scm:1066: match1 */ t11=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t11; av2[1]=((C_word*)t0)[4]; av2[2]=lf[228]; av2[3]=((C_word*)t0)[2]; f_11054(4,av2);}} else{ t11=C_eqp(((C_word*)t0)[2],lf[54]); if(C_truep(t11)){ /* scrutinizer.scm:1067: match1 */ t12=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t12; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[229]; f_11054(4,av2);}} else{ t12=C_eqp(((C_word*)t0)[5],lf[57]); if(C_truep(t12)){ /* scrutinizer.scm:1068: match1 */ t13=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t13; av2[1]=((C_word*)t0)[4]; av2[2]=lf[230]; av2[3]=((C_word*)t0)[2]; f_11054(4,av2);}} else{ t13=C_eqp(((C_word*)t0)[2],lf[57]); if(C_truep(t13)){ /* scrutinizer.scm:1069: match1 */ t14=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t14; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[231]; f_11054(4,av2);}} else{ t14=C_eqp(lf[100],((C_word*)t0)[5]); if(C_truep(t14)){ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t15=((C_word*)t0)[2]; t16=C_u_i_car(t15); t17=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t17; av2[1]=C_eqp(lf[100],t16); ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}} else{ t15=((C_word*)t0)[4];{ 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(lf[100],((C_word*)t0)[2]); if(C_truep(t15)){ t16=((C_word*)((C_word*)t0)[6])[1]; if(C_truep(t16)){ t17=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t17; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t17=((C_word*)t0)[5]; t18=C_u_i_car(t17); t19=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t19; av2[1]=C_eqp(lf[100],t18); ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ t17=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t17; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}}} else{ t16=C_eqp(((C_word*)t0)[5],lf[21]); if(C_truep(t16)){ t17=((C_word*)((C_word*)t0)[6])[1]; if(C_truep(t17)){ t18=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t18; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t18=((C_word*)t0)[2]; t19=C_u_i_car(t18); t20=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t20; av2[1]=C_eqp(lf[213],t19); ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} else{ t18=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t18; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}}} else{ t17=C_eqp(((C_word*)t0)[2],lf[21]); if(C_truep(t17)){ if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t18=((C_word*)t0)[5]; t19=C_u_i_car(t18); t20=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t20; av2[1]=C_eqp(lf[213],t19); ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} else{ t18=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t18; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}} else{ t18=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11590,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],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t19=((C_word*)t0)[5]; t20=C_u_i_car(t19); t21=((C_word*)t0)[2]; t22=C_u_i_car(t21); t23=t18; f_11590(t23,C_eqp(t20,t22));} else{ t19=t18; f_11590(t19,C_SCHEME_FALSE);}} else{ t19=t18; f_11590(t19,C_SCHEME_FALSE);}}}}}}}}}}}}}}}}}}} /* typeset-min in k6121 in k6118 in k6115 */ static void C_fcall f_13505(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_13505,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13512,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1372: type<=? */ t5=lf[182];{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=t3; f_13520(4,av2);}} /* k12355 in k12351 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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; 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_12357,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_i_caddr(((C_word*)t0)[3]); /* scrutinizer.scm:1220: simplify */ t4=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=t3; f_12326(3,av2);}} /* map-loop4048 in install-specializations in k6121 in k6118 in k6115 */ static void C_fcall f_18744(C_word t0,C_word t1,C_word 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_18744,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_18769,a[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:2128: g4054 */ t5=((C_word*)t0)[4]; f_18517(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);}}} /* k18740 in install-specializations in k6121 in k6118 in k6115 */ static void C_ccall f_18742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_18742,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_a_i_list(&a,1,t1); if(C_truep(C_i_nullp(t4))){ /* tweaks.scm:54: ##sys#put! */ t5=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t3; av2[3]=lf[119]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=C_i_car(t4); /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t2; av2[2]=t3; av2[3]=lf[119]; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* for-each-loop2996 in k15492 in k15409 in loop in type-typeenv in k6121 in k6118 in k6115 */ static void C_fcall f_15510(C_word t0,C_word t1,C_word 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_15510,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_15520,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:1677: g2997 */ 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);}}} /* k12351 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12353(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_12353,2,av);} a=C_alloc(12); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12357,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_12368,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_12370,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:1215: filter-map */ t6=*((C_word*)lf[235]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9737 in k9731 in k9728 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_9739,2,av);} a=C_alloc(7); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9745,a[2]=((C_word*)t0)[2],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:799: add-to-blist */ t4=((C_word*)((C_word*)t0)[3])[1]; f_7909(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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9731 in k9728 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9733,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9739,a[2]=((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:797: add-to-blist */ t5=((C_word*)((C_word*)t0)[3])[1]; f_7909(t5,t3,((C_word*)t0)[5],t4,t2);} /* k9728 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_9730,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9733,a[2]=((C_word*)t0)[2],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|2,a[1]=(C_word)f_9759,a[2]=((C_word*)t0)[7],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:784: g1528 */ t4=t3; f_9759(t4,t2,t1);} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9775,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:789: get */ t4=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[10]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[75]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k18767 in map-loop4048 in install-specializations in k6121 in k6118 in k6115 */ static void C_ccall f_18769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_18769,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18744(t6,((C_word*)t0)[5],t5);} /* foldl4725 in k19717 in k19707 in k19704 in lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in ... */ static void C_fcall f_19724(C_word t0,C_word t1,C_word 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_19724,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[55],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);}}} /* k19720 in k19717 in k19707 in k19704 in lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in ... */ static void C_ccall f_19722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19722,2,av);} /* scrutinizer.scm:2412: canonicalize-list-type */ t2=*((C_word*)lf[248]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#canonicalize-list-type in k6121 in k6118 in k6115 */ static void C_ccall f_18778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(9,c,4)))){ C_save_and_reclaim((void *)f_18778,3,av);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=C_i_car(t2); t4=C_eqp(lf[55],t3); if(C_truep(t4)){ t5=C_i_cadr(t2); t6=C_i_caddr(t2); t7=C_a_i_list1(&a,1,t5); 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_18806,a[2]=t9,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_18806(t11,t1,t6,t7);} else{ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=t2; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_12332,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[19]); if(C_truep(t5)){ t6=C_i_cadr(((C_word*)t0)[2]); t7=t6; t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12353,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]=t7,tmp=(C_word)a,a+=8,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=C_i_check_list_2(t7,lf[89]); t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12421,a[2]=t8,a[3]=((C_word*)t0)[3],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|4,a[1]=(C_word)f_12423,a[2]=t11,a[3]=t16,a[4]=t12,tmp=(C_word)a,a+=5,tmp)); t18=((C_word*)t16)[1]; f_12423(t18,t14,t7);} else{ t6=C_eqp(t4,lf[17]); 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_word*)((C_word*)t0)[5])[1]; t12=((C_word*)t0)[2]; t13=C_u_i_cdr(t12); t14=C_i_check_list_2(t13,lf[89]); t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12471,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); 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_12747,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_12747(t19,t15,t13);} else{ t7=C_eqp(t4,lf[55]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12788,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t9=C_i_cadr(((C_word*)t0)[2]); /* scrutinizer.scm:1273: simplify */ t10=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t8; av2[2]=t9; f_12326(3,av2);}} else{ t8=C_eqp(t4,lf[211]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12827,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t10=C_i_cadr(((C_word*)t0)[2]); /* scrutinizer.scm:1280: simplify */ t11=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t9; av2[2]=t10; f_12326(3,av2);}} else{ t9=C_eqp(t4,lf[211]); t10=(C_truep(t9)?t9:C_eqp(t4,lf[213])); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12854,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t12=C_i_cadr(((C_word*)t0)[2]); /* scrutinizer.scm:1285: simplify */ t13=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t11; av2[2]=t12; f_12326(3,av2);}} else{ t11=C_eqp(t4,lf[54]); 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; /* Re-use our own argvector */ av2[0]=t14; av2[1]=lf[21]; ((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[89]); t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12895,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_12897,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_12897(t26,t22,t20);}} else{ t12=C_eqp(t4,lf[57]); 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[89]); t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12951,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_12953,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_12953(t25,t21,t19);} else{ t13=C_eqp(t4,lf[100]); if(C_truep(t13)){ t14=( /* scrutinizer.scm:1296: named? */ f_15207(((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=(C_truep(t15)?C_i_caddr(((C_word*)t0)[2]):C_i_cadr(((C_word*)t0)[2])); t26=C_i_check_list_2(t25,lf[89]); t27=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13071,a[2]=t1,a[3]=t19,a[4]=t17,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t28=C_SCHEME_UNDEFINED; t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp); t30=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13073,a[2]=t22,a[3]=t29,a[4]=t24,a[5]=t23,tmp=(C_word)a,a+=6,tmp)); t31=((C_word*)t29)[1]; f_13073(t31,t27,t25);} else{ t14=((C_word*)t0)[2]; t15=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t15+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_13154,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1201: g2477 */ t5=t4; f_13154(t5,t1,t3);} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_fcall f_19680(C_word 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_19680,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_19690,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_19690(t6,t1,t2,C_fix(1));} /* k12366 in k12351 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12368,2,av);} /* scrutinizer.scm:1215: append */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15518 in for-each-loop2996 in k15492 in k15409 in loop in type-typeenv in k6121 in k6118 in k6115 */ static void C_ccall f_15520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15520,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_15510(t3,((C_word*)t0)[4],t2);} /* k19704 in lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_fcall f_19706(C_word 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_19706,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19709,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_a_i_plus(&a,2,((C_word*)t0)[5],C_fix(1)); /* scrutinizer.scm:2409: lp */ t6=((C_word*)((C_word*)t0)[6])[1]; f_19690(t6,t2,t4,t5);} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19767,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(C_i_pairp(((C_word*)t0)[3]))){ t3=C_u_i_car(((C_word*)t0)[3]); t4=t2; f_19767(t4,C_eqp(t3,lf[213]));} else{ t3=t2; f_19767(t3,C_SCHEME_FALSE);}}} /* k19707 in k19704 in lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_19709,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19719,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:2414: reverse */ t5=*((C_word*)lf[243]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_fcall f_19690(C_word t0,C_word t1,C_word 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_19690,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]=lf[21]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=C_slot(t4,C_fix(2)); t6=C_i_car(t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19706,a[2]=t1,a[3]=t7,a[4]=t2,a[5]=t3,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_i_pairp(t7))){ t9=C_u_i_car(t7); t10=t8; f_19706(t10,C_eqp(t9,lf[54]));} else{ t9=t8; f_19706(t9,C_SCHEME_FALSE);}}} /* k19717 in k19707 in k19704 in lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 in ... */ static void C_ccall f_19719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_19719,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19722,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_19724,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_19724(t6,t2,t1,((C_word*)t0)[3]);} /* k15888 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_ccall f_15890(C_word c,C_word *av){ C_word tmp; 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_15890,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[113],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k18714 in map-loop4070 in k18522 in g4054 in install-specializations in k6121 in k6118 in k6115 */ 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 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_18716,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18691(t6,((C_word*)t0)[5],t5);} /* append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19671(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_19671,6,av);} a=C_alloc(9); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19680,a[2]=t3,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19856,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2437: derive-result-type */ t8=t6; f_19680(t8,t7);} /* a8885 in k8731 in k8728 in k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8886,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate2(((C_word *)((C_word*)t0)[6])+1,((C_word*)((C_word*)t0)[7])[1]); t5=C_mutate2(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[8])[1]); t6=C_mutate2(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[9])[1]); t7=C_mutate2(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[10])[1]); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* match-args in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_10774(C_word t0,C_word 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_10774,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_10783,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_10783(t7,t1,t2,t3,C_SCHEME_FALSE,C_SCHEME_FALSE);} /* loop in match-args in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_10783(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_10783,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[215]); ((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[215]); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t6=C_i_car(t2); t7=C_eqp(lf[216],t6); if(C_truep(t7)){ t8=t2; t9=C_u_i_cdr(t8); /* scrutinizer.scm:945: 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[216],t8); if(C_truep(t9)){ t10=t3; t11=C_u_i_cdr(t10); /* scrutinizer.scm:947: 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[217],t11); if(C_truep(t12)){ t13=t2; t14=C_u_i_cdr(t13); t15=( /* scrutinizer.scm:949: rest-type */ f_15260(t14) ); /* scrutinizer.scm:949: match-rest */ t16=((C_word*)((C_word*)t0)[3])[1]; f_10905(t16,t1,t15,t3);} else{ t13=t3; t14=C_u_i_car(t13); t15=C_eqp(lf[217],t14); if(C_truep(t15)){ t16=t3; t17=C_u_i_cdr(t16); t18=( /* scrutinizer.scm:951: rest-type */ f_15260(t17) ); /* scrutinizer.scm:951: match-rest */ t19=((C_word*)((C_word*)t0)[3])[1]; f_10905(t19,t1,t18,t2);} else{ t16=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10880,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:952: 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_11054(4,av2);}}}}}}}} /* k9311 in k9318 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9313,2,av);} t2=((C_word*)t0)[2]; f_9288(t2,C_i_not(t1));} /* k9318 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_9320(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_9320,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_9288(t2,C_SCHEME_FALSE);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9313,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:639: match-types */ t3=lf[126];{ 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]; f_10768(5,av2);}}} /* k8770 in k8755 in a8749 in k8731 in k8728 in k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8772,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* scrutinizer.scm:601: append */ t3=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[146]; 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 k8755 in a8749 in k8731 in k8728 in k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_8774(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(13,0,4)))){ C_save_and_reclaim_args((void *)trf_8774,5,t0,t1,t2,t3,t4);} a=C_alloc(13); if(C_truep(C_i_zerop(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=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8784,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); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8861,a[2]=t5,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t7=C_i_car(t3); /* scrutinizer.scm:607: get */ t8=*((C_word*)lf[74]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t6; av2[2]=((C_word*)t0)[5]; av2[3]=t7; av2[4]=lf[75]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} /* k19633 in k19612 in k19608 in k19800 in k19793 in k19765 in k19704 in lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_19635,2,av);}{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[6]+1); av2[3]=((C_word*)t0)[3]; av2[4]=lf[371]; av2[5]=t1; C_apply(6,av2);}} /* map-loop4671 in k19612 in k19608 in k19800 in k19793 in k19765 in k19704 in lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in ... */ static void C_fcall f_19637(C_word t0,C_word t1,C_word 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_19637,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_19662,a[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:116: strip-syntax */ t5=*((C_word*)lf[85]+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);}}} /* match-types in k6121 in k6118 in k6115 */ static void C_ccall f_10768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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((c-5)*C_SIZEOF_PAIR +36,c,4)))){ C_save_and_reclaim((void*)f_10768,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+36); 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; t6=C_i_nullp(t5); t7=(C_truep(t6)?C_SCHEME_FALSE:C_i_car(t5)); t8=t7; 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_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10774,a[2]=t13,a[3]=t19,tmp=(C_word)a,a+=4,tmp)); t21=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10905,a[2]=t19,tmp=(C_word)a,a+=3,tmp)); t22=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10964,a[2]=t9,a[3]=t15,a[4]=t19,tmp=(C_word)a,a+=5,tmp)); t23=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11032,a[2]=t9,a[3]=t19,tmp=(C_word)a,a+=4,tmp)); t24=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11054,a[2]=t4,a[3]=t17,a[4]=t19,a[5]=t9,a[6]=t15,a[7]=t11,tmp=(C_word)a,a+=8,tmp)); /* scrutinizer.scm:1158: match1 */ t25=((C_word*)t19)[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t25; av2[1]=t1; av2[2]=t2; av2[3]=t3; f_11054(4,av2);}} /* k19608 in k19800 in k19793 in k19765 in k19704 in lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in ... */ static void C_ccall f_19610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19610,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19614,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2396: open-output-string */ t4=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9333 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9335,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9339,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:633: type-typeenv */ t4=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9337 in k9333 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ 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,3)))){ C_save_and_reclaim((void *)f_9339,2,av);} /* scrutinizer.scm:631: append */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11849 in k11824 in k11722 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ 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(0,c,3)))){ C_save_and_reclaim((void *)f_11851,2,av);} if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); /* scrutinizer.scm:1117: match1 */ t3=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t2; f_11054(4,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k19604 in k19800 in k19793 in k19765 in k19704 in lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in ... */ static void C_ccall f_19606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19606,2,av);} /* scrutinizer.scm:2394: warning */ t2=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19660 in map-loop4671 in k19612 in k19608 in k19800 in k19793 in k19765 in k19704 in lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in ... */ static void C_ccall f_19662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_19662,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_19637(t6,((C_word*)t0)[5],t5);} /* k9344 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 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_9346,2,av);} a=C_alloc(13); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9352,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((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]=t3,tmp=(C_word)a,a+=13,tmp); /* scrutinizer.scm:628: ##sys#print */ t6=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[172]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k19612 in k19608 in k19800 in k19793 in k19765 in k19704 in lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in ... */ static void C_ccall f_19614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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,c,3)))){ C_save_and_reclaim((void *)f_19614,2,av);} a=C_alloc(21); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19620,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19635,a[2]=t5,a[3]=t3,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_19637,a[2]=t8,a[3]=t12,a[4]=t9,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_19637(t14,t10,((C_word*)t0)[4]);} /* k14024 in k14018 in k13977 in k13938 in k13918 in k13896 in k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14026,2,av);} if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); /* scrutinizer.scm:1454: test */ t3=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=((C_word*)t0)[5]; f_13530(4,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k14018 in k13977 in k13938 in k13918 in k13896 in k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_fcall f_14020(C_word t0,C_word t1){ C_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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,8)))){ C_save_and_reclaim_args((void *)trf_14020,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14026,a[2]=((C_word*)t0)[2],a[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]); t4=C_i_cadr(((C_word*)t0)[5]); /* scrutinizer.scm:1453: test */ t5=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t5; av2[1]=t2; av2[2]=t3; av2[3]=t4; f_13530(4,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_i_car(((C_word*)t0)[5]); t5=C_eqp(t3,t4); if(C_truep(t5)){ t6=((C_word*)t0)[2]; t7=C_u_i_car(t6); t8=C_eqp(t7,lf[211]); t9=(C_truep(t8)?t8:C_eqp(t7,lf[213])); if(C_truep(t9)){ t10=C_i_cadr(((C_word*)t0)[2]); t11=C_i_cadr(((C_word*)t0)[5]); /* scrutinizer.scm:1458: test */ t12=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t12; av2[1]=((C_word*)t0)[4]; av2[2]=t10; av2[3]=t11; f_13530(4,av2);}} else{ t10=C_eqp(t7,lf[55]); if(C_truep(t10)){ t11=((C_word*)t0)[2]; t12=C_u_i_cdr(t11); t13=((C_word*)t0)[5]; t14=C_u_i_cdr(t13); /* scrutinizer.scm:1459: every */ t15=*((C_word*)lf[18]+1);{ C_word av2[5]; av2[0]=t15; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=t12; av2[4]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} else{ t11=C_eqp(t7,lf[54]); t12=(C_truep(t11)?t11:C_eqp(t7,lf[57])); if(C_truep(t12)){ t13=C_i_length(((C_word*)t0)[2]); t14=C_i_length(((C_word*)t0)[5]); t15=C_eqp(t13,t14); if(C_truep(t15)){ t16=C_i_cdr(((C_word*)t0)[2]); t17=C_i_cdr(((C_word*)t0)[5]); /* scrutinizer.scm:1462: every */ t18=*((C_word*)lf[18]+1);{ C_word av2[5]; av2[0]=t18; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=t16; av2[4]=t17; ((C_proc)(void*)(*((C_word*)t18+1)))(5,av2);}} else{ t16=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t16; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}} else{ t13=C_eqp(t7,lf[59]); if(C_truep(t13)){ t14=C_i_cadr(((C_word*)t0)[2]); t15=C_i_cadr(((C_word*)t0)[5]); t16=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t16; av2[1]=C_eqp(t14,t15); ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ t14=C_eqp(t7,lf[100]); if(C_truep(t14)){ t15=( /* scrutinizer.scm:1465: named? */ f_15207(((C_word*)t0)[2]) ); t16=(C_truep(t15)?C_i_caddr(((C_word*)t0)[2]):C_i_cadr(((C_word*)t0)[2])); t17=( /* scrutinizer.scm:1466: named? */ f_15207(((C_word*)t0)[5]) ); t18=(C_truep(t17)?C_i_caddr(((C_word*)t0)[5]):C_i_cadr(((C_word*)t0)[5])); t19=( /* scrutinizer.scm:1467: named? */ f_15207(((C_word*)t0)[2]) ); t20=(C_truep(t19)?C_i_cdddr(((C_word*)t0)[2]):C_i_cddr(((C_word*)t0)[2])); t21=t20; t22=( /* scrutinizer.scm:1468: named? */ f_15207(((C_word*)t0)[5]) ); t23=(C_truep(t22)?C_i_cdddr(((C_word*)t0)[5]):C_i_cddr(((C_word*)t0)[5])); t24=t23; 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_14155,a[2]=((C_word*)t0)[3],a[3]=t21,a[4]=t24,a[5]=t26,tmp=(C_word)a,a+=6,tmp)); t28=((C_word*)t26)[1]; f_14155(t28,((C_word*)t0)[4],t16,t18,C_SCHEME_FALSE,C_SCHEME_FALSE,C_fix(0),C_fix(0));} else{ t15=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t15; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t15+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);}}}} /* a20303 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ 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=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(4,c,2)))){ C_save_and_reclaim((void *)f_20304,6,av);} a=C_alloc(4); t6=C_slot(t2,C_fix(3)); if(C_truep(t6)){ t7=C_i_length(t6); t8=C_eqp(t7,C_fix(2)); if(C_truep(t8)){ t9=C_i_cadr(t3); t10=C_slot(t9,C_fix(2)); t11=C_i_car(t10); if(C_truep(t11)){ if(C_truep(C_i_pairp(t11))){ t12=C_u_i_car(t11); t13=C_eqp(t12,lf[54]); if(C_truep(t13)){ t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20354,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t15=C_u_i_cdr(t11); /* scrutinizer.scm:2388: reverse */ t16=*((C_word*)lf[243]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t14; av2[2]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}} else{ t14=t5; t15=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}} else{ t12=t5; t13=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}} else{ t12=t5; t13=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}} else{ t9=t5; t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} else{ t7=t5; t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k20300 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20302,2,av);} /* scrutinizer.scm:2447: ##sys#put! */ t2=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[128]; av2[3]=lf[183]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k9350 in k9344 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_9352,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9355,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* scrutinizer.scm:628: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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)[12]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9353 in k9350 in k9344 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_9355,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9358,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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); /* scrutinizer.scm:628: ##sys#write-char-0 */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(39); av2[3]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k9356 in k9353 in k9350 in k9344 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_9358,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9361,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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); /* scrutinizer.scm:628: get-output-string */ t3=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a12369 in k12351 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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=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_12370,3,av);} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9359 in k9356 in k9353 in k9350 in k9344 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9361(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9361,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9365,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_car(((C_word*)t0)[6]); /* scrutinizer.scm:629: walk */ t5=((C_word*)((C_word*)t0)[7])[1]; f_8123(t5,t3,t4,((C_word*)t0)[8],((C_word*)t0)[5],((C_word*)t0)[9],C_SCHEME_FALSE,((C_word*)t0)[10],C_SCHEME_FALSE);} /* k9363 in k9359 in k9356 in k9353 in k9350 in k9344 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9365(C_word c,C_word *av){ C_word tmp; C_word 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_9365,2,av);} /* scrutinizer.scm:626: single */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6868(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,((C_word*)t0)[6]);} /* k8798 in k8794 in g1138 in k8782 in loop in k8755 in a8749 in k8731 in k8728 in k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8800,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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-loop3101 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_fcall f_15845(C_word t0,C_word t1,C_word 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_15845,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_15870,a[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:1716: g3107 */ t5=((C_word*)t0)[4]; f_15832(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);}}} /* k15841 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_ccall f_15843(C_word c,C_word *av){ C_word tmp; 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_15843,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[17],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* validate-llist in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_17356(C_word t0,C_word t1,C_word 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_17356,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[323]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t2))){ t3=C_i_car(t2); t4=C_eqp(lf[216],t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17384,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_17384(t6,t4);} else{ t6=t2; t7=C_u_i_car(t6); t8=t5; f_17384(t8,C_eqp(lf[328],t7));}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}} /* k8782 in loop in k8755 in a8749 in k8731 in k8728 in k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_8784(C_word t0,C_word t1){ C_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(8,0,4)))){ C_save_and_reclaim_args((void *)trf_8784,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8788,a[2]=((C_word*)t0)[2],a[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:605: g1138 */ t3=t2; f_8788(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_8837,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1)); t6=((C_word*)t0)[3]; t7=C_u_i_cdr(t6); t8=((C_word*)t0)[4]; t9=C_u_i_cdr(t8); /* scrutinizer.scm:621: loop */ t10=((C_word*)((C_word*)t0)[5])[1]; f_8774(t10,t4,t5,t7,t9);}} /* g1138 in k8782 in loop in k8755 in a8749 in k8731 in k8728 in k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_8788(C_word t0,C_word 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_8788,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8796,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[60]); if(C_truep(t5)){ t6=t3; f_8796(t6,lf[60]);} else{ t6=t2; t7=t3; f_8796(t7,C_u_i_cdr(t6));}} /* k19618 in k19612 in k19608 in k19800 in k19793 in k19765 in k19704 in lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_19620,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19623,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2396: get-output-string */ t3=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8859 in loop in k8755 in a8749 in k8731 in k8728 in k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8861,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_8784(t2,C_SCHEME_FALSE);} else{ t2=((C_word*)t0)[3]; t3=C_u_i_car(t2); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[4]); t5=((C_word*)t0)[2]; f_8784(t5,C_i_assoc(t4,((C_word*)((C_word*)t0)[5])[1]));}} /* k19621 in k19618 in k19612 in k19608 in k19800 in k19793 in k19765 in k19704 in lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in ... */ static void C_ccall f_19623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19623,2,av);} /* scrutinizer.scm:2395: conc */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8794 in g1138 in k8782 in loop in k8755 in a8749 in k8731 in k8728 in k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_8796(C_word t0,C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_8796,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8800,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_minus(&a,2,((C_word*)t0)[3],C_fix(1)); t5=C_i_cdr(((C_word*)t0)[4]); t6=C_i_cdr(((C_word*)t0)[5]); /* scrutinizer.scm:617: loop */ t7=((C_word*)((C_word*)t0)[6])[1]; f_8774(t7,t3,t4,t5,t6);} /* known-length-vector-index in k18886 in k6121 in k6118 in k6115 */ static void C_fcall f_18963(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 *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){ C_save_and_reclaim_args((void *)trf_18963,5,t1,t2,t3,t4,t5);} a=C_alloc(14); t6=t2; t7=C_slot(t6,C_fix(3)); t8=t7; if(C_truep(t8)){ t9=C_i_length(t8); t10=C_a_i_plus(&a,2,t5,C_fix(1)); if(C_truep(C_i_nequalp(t9,t10))){ t11=C_i_cadr(t3); t12=C_slot(t11,C_fix(2)); t13=C_i_car(t12); if(C_truep(t13)){ if(C_truep(C_i_pairp(t13))){ t14=C_u_i_car(t13); t15=C_eqp(lf[57],t14); if(C_truep(t15)){ t16=C_i_caddr(t8); if(C_truep(t16)){ t17=C_slot(t16,C_fix(1)); t18=C_eqp(lf[106],t17); if(C_truep(t18)){ t19=C_slot(t16,C_fix(2)); t20=C_i_car(t19); t21=t20; if(C_truep(t21)){ if(C_truep(C_fixnump(t21))){ t22=C_u_i_cdr(t13); t23=C_i_length(t22); t24=t23; t25=C_fixnum_greater_or_equal_p(t21,C_fix(0)); t26=(C_truep(t25)?C_fixnum_lessp(t21,t24):C_SCHEME_FALSE); if(C_truep(t26)){ t27=t1;{ C_word av2[2]; av2[0]=t27; av2[1]=t21; ((C_proc)(void*)(*((C_word*)t27+1)))(2,av2);}} else{ t27=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19035,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t28=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19039,a[2]=t8,a[3]=t27,a[4]=t4,a[5]=t21,a[6]=t24,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2230: node-source-prefix */ t29=*((C_word*)lf[26]+1);{ C_word av2[3]; av2[0]=t29; av2[1]=t28; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t29+1)))(3,av2);}}} else{ t22=t1;{ C_word av2[2]; av2[0]=t22; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}}} else{ t22=t1;{ C_word av2[2]; av2[0]=t22; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}}} else{ t19=t1;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}} else{ t17=t1;{ C_word av2[2]; av2[0]=t17; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}} 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{ t14=t1;{ C_word av2[2]; av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t14=t1;{ C_word av2[2]; av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+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{ t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k8835 in k8782 in loop in k8755 in a8749 in k8731 in k8728 in k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8837(C_word c,C_word *av){ C_word tmp; 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_8837,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k8762 in k8755 in a8749 in k8731 in k8728 in k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8764,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list1(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12314 in subst in simplify-type in k6121 in k6118 in k6115 */ 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 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_12316,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12320,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:1196: subst */ t6=((C_word*)((C_word*)t0)[4])[1]; f_12287(t6,t3,t5);} /* d in k6121 in k6118 in k6115 */ 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=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_6127,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; t4=(C_truep(*((C_word*)lf[1]+1))?C_fudge(C_fix(13)):C_SCHEME_FALSE); if(C_truep(t4)){ t5=*((C_word*)lf[3]+1); t6=*((C_word*)lf[3]+1); t7=C_i_check_port_2(*((C_word*)lf[3]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[4]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6140,a[2]=t1,a[3]=t5,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:48: ##sys#print */ t9=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t8; av2[2]=lf[10]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[3]+1); ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k6118 in k6115 */ static void C_ccall f_6120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k6121 in k6118 in k6115 */ 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 t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(77,c,6)))){ C_save_and_reclaim((void *)f_6123,2,av);} a=C_alloc(77); t2=lf[0] /* d-depth */ =C_fix(0);; t3=C_set_block_item(lf[1] /* ##compiler#scrutiny-debug */,0,C_SCHEME_TRUE); t4=C_mutate2((C_word*)lf[2]+1 /* (set! d ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6127,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate2((C_word*)lf[11]+1 /* (set! dd ...) */,*((C_word*)lf[2]+1)); t6=C_mutate2((C_word*)lf[12]+1 /* (set! ddd ...) */,*((C_word*)lf[2]+1)); t7=lf[13] /* specialization-statistics */ =C_SCHEME_END_OF_LIST;; t8=lf[14] /* trail */ =C_SCHEME_END_OF_LIST;; t9=C_mutate2(&lf[15] /* (set! walked-result ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6177,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate2((C_word*)lf[16]+1 /* (set! type-always-immediate? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6192,tmp=(C_word)a,a+=2,tmp)); t11=C_mutate2((C_word*)lf[26]+1 /* (set! node-source-prefix ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6235,tmp=(C_word)a,a+=2,tmp)); t12=C_mutate2((C_word*)lf[36]+1 /* (set! location-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6265,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate2((C_word*)lf[45]+1 /* (set! ##compiler#scrutinize ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6388,tmp=(C_word)a,a+=2,tmp)); t14=C_mutate2(&lf[163] /* (set! smash-component-types! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10575,tmp=(C_word)a,a+=2,tmp)); t15=C_mutate2(&lf[126] /* (set! match-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10768,tmp=(C_word)a,a+=2,tmp)); t16=C_mutate2(&lf[116] /* (set! match-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12212,tmp=(C_word)a,a+=2,tmp)); t17=C_mutate2((C_word*)lf[56]+1 /* (set! ##compiler#simplify-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12284,tmp=(C_word)a,a+=2,tmp)); t18=C_mutate2((C_word*)lf[239]+1 /* (set! merge-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13229,tmp=(C_word)a,a+=2,tmp)); t19=C_mutate2((C_word*)lf[238]+1 /* (set! merge-result-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13398,tmp=(C_word)a,a+=2,tmp)); t20=C_mutate2(&lf[189] /* (set! compatible-types? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13493,tmp=(C_word)a,a+=2,tmp)); t21=C_mutate2(&lf[181] /* (set! typeset-min ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13505,tmp=(C_word)a,a+=2,tmp)); t22=C_mutate2(&lf[182] /* (set! type<=? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13520,tmp=(C_word)a,a+=2,tmp)); t23=C_mutate2(&lf[104] /* (set! procedure-type? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14637,tmp=(C_word)a,a+=2,tmp)); t24=C_mutate2(&lf[122] /* (set! procedure-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14689,tmp=(C_word)a,a+=2,tmp)); t25=C_mutate2(&lf[233] /* (set! procedure-arguments ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14740,tmp=(C_word)a,a+=2,tmp)); t26=C_mutate2(&lf[232] /* (set! procedure-results ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14796,tmp=(C_word)a,a+=2,tmp)); t27=C_mutate2(&lf[103] /* (set! procedure-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14852,tmp=(C_word)a,a+=2,tmp)); t28=C_mutate2(&lf[249] /* (set! named? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15207,tmp=(C_word)a,a+=2,tmp)); t29=C_mutate2(&lf[218] /* (set! rest-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15260,tmp=(C_word)a,a+=2,tmp)); t30=C_mutate2(&lf[124] /* (set! noreturn-procedure-type? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15280,tmp=(C_word)a,a+=2,tmp)); t31=C_mutate2(&lf[271] /* (set! noreturn-type? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15338,tmp=(C_word)a,a+=2,tmp)); t32=C_mutate2((C_word*)lf[118]+1 /* (set! type-typeenv ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15382,tmp=(C_word)a,a+=2,tmp)); t33=C_mutate2(&lf[115] /* (set! trail-restore ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15706,tmp=(C_word)a,a+=2,tmp)); t34=C_mutate2(&lf[102] /* (set! resolve ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15740,tmp=(C_word)a,a+=2,tmp)); t35=C_mutate2((C_word*)lf[277]+1 /* (set! ##compiler#load-type-database ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16188,tmp=(C_word)a,a+=2,tmp)); t36=C_mutate2((C_word*)lf[302]+1 /* (set! ##compiler#emit-type-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16711,tmp=(C_word)a,a+=2,tmp)); t37=lf[317] /* node-mutations */ =C_SCHEME_END_OF_LIST;; t38=C_mutate2(&lf[138] /* (set! mutate-node! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16906,tmp=(C_word)a,a+=2,tmp)); t39=C_mutate2(&lf[35] /* (set! source-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16924,tmp=(C_word)a,a+=2,tmp)); t40=C_mutate2((C_word*)lf[108]+1 /* (set! ##compiler#specialize-node! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17121,tmp=(C_word)a,a+=2,tmp)); t41=C_mutate2((C_word*)lf[278]+1 /* (set! ##compiler#validate-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17291,tmp=(C_word)a,a+=2,tmp)); t42=C_mutate2((C_word*)lf[359]+1 /* (set! ##compiler#check-and-validate-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_18454,tmp=(C_word)a,a+=2,tmp)); t43=C_mutate2((C_word*)lf[279]+1 /* (set! ##compiler#install-specializations ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_18488,tmp=(C_word)a,a+=2,tmp)); t44=C_mutate2((C_word*)lf[248]+1 /* (set! ##compiler#canonicalize-list-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_18778,tmp=(C_word)a,a+=2,tmp)); t45=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18888,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t46=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20725,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2187: ##sys#put! */ t47=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t47; av2[1]=t45; av2[2]=lf[390]; av2[3]=lf[183]; av2[4]=t46; ((C_proc)(void*)(*((C_word*)t47+1)))(5,av2);}} /* k16407 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16409,2,av);} t2=((C_word*)t0)[2]; f_16344(t2,C_i_not(t1));} /* k16400 in k16367 in k16364 in k16361 in k16358 in k16355 in k16349 in k16342 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in ... */ static void C_ccall f_16402(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_16402,2,av);} /* scrutinizer.scm:1798: ##sys#print */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11122 in g1959 in g1945 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_11124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,3)))){ C_save_and_reclaim((void *)f_11124,2,av);} if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); t3=C_i_not(t2); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); t7=C_u_i_car(t6); /* scrutinizer.scm:1003: rawmatch1 */ t8=((C_word*)((C_word*)t0)[4])[1]; f_11032(t8,((C_word*)t0)[3],((C_word*)t0)[5],t7);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a13924 in k13918 in k13896 in k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ 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=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_13928,3,av);} /* scrutinizer.scm:1443: g26682669 */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k13918 in k13896 in k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_fcall f_13920(C_word t0,C_word t1){ C_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_13920,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=((C_word*)((C_word*)t0)[3])[1]; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13928,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=((C_word*)t0)[4]; t7=C_u_i_cdr(t6); /* scrutinizer.scm:1443: every */ t8=*((C_word*)lf[18]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=((C_word*)t0)[5]; 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_13940,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); t3=((C_word*)t0)[4]; t4=C_u_i_car(t3); t5=C_eqp(lf[54],t4); if(C_truep(t5)){ t6=C_i_car(((C_word*)t0)[2]); t7=t2; f_13940(t7,C_eqp(lf[55],t6));} else{ t6=t2; f_13940(t6,C_SCHEME_FALSE);}}} /* k16414 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_16416,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16422,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:1793: ##sys#print */ t6=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[288]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* simplify in simplify-type in k6121 in k6118 in k6115 */ 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=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_12326,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12332,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:1200: call/cc */ t4=*((C_word*)lf[123]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* g1959 in g1945 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_11111(C_word t0,C_word t1,C_word t2){ C_word 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_11111,3,t0,t1,t2);} a=C_alloc(6); t3=C_i_cadr(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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11124,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); t6=t2; t7=C_u_i_cdr(t6); t8=C_u_i_car(t7); /* scrutinizer.scm:1001: match1 */ t9=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[4]; av2[0]=t9; av2[1]=t5; av2[2]=((C_word*)t0)[3]; av2[3]=t8; f_11054(4,av2);}}} /* k16426 in k16423 in k16420 in k16414 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16428,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16431,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_16443,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:116: strip-syntax */ t4=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16423 in k16420 in k16414 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16425,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16428,a[2]=((C_word*)t0)[2],a[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:1793: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[287]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16420 in k16414 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16422,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16425,a[2]=((C_word*)t0)[2],a[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:1793: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12318 in k12314 in subst in simplify-type in k6121 in k6118 in k6115 */ 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(3,c,1)))){ C_save_and_reclaim((void *)f_12320,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* a13902 in k13896 in k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ 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=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_13906,3,av);} /* scrutinizer.scm:1441: g26552656 */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18174 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_18176(C_word t0,C_word t1){ C_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(7,0,2)))){ C_save_and_reclaim_args((void *)trf_18176,2,t0,t1);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18179,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*)((C_word*)t0)[6])[1]; t5=C_u_i_cdr(t4); t6=C_u_i_car(t5); if(C_truep(C_i_symbolp(t6))){ t7=((C_word*)((C_word*)t0)[6])[1]; t8=C_u_i_cdr(t7); t9=t3; f_18179(t9,C_u_i_cdr(t8));} else{ t7=((C_word*)((C_word*)t0)[6])[1]; t8=t3; f_18179(t8,C_u_i_cdr(t7));}} /* k16429 in k16426 in k16423 in k16420 in k16414 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16431(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16431,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16434,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1793: get-output-string */ t3=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16432 in k16429 in k16426 in k16423 in k16420 in k16414 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16434,2,av);} /* scrutinizer.scm:1792: warning */ t2=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10160 in k10134 in k10113 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10162,2,av);} t2=((C_word*)t0)[2]; f_10142(t2,C_i_not(t1));} /* k12387 in map-loop2198 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_12389,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12406,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_list(&a,1,((C_word*)t0)[3]); if(C_truep(C_i_nullp(t4))){ /* tweaks.scm:54: ##sys#put! */ t5=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t2; av2[3]=lf[236]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=C_i_car(t4); /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t2; av2[3]=lf[236]; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k18177 in k18174 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_18179(C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_18179,2,t0,t1);} a=C_alloc(7); t2=t1; if(C_truep(C_i_pairp(t2))){ t3=C_u_i_car(t2); if(C_truep(C_i_listp(t3))){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18194,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); t5=C_u_i_car(t2); /* scrutinizer.scm:2075: validate-llist */ t6=((C_word*)((C_word*)t0)[6])[1]; f_17356(t6,t4,t5);} else{ t4=((C_word*)t0)[2];{ 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)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6115 */ static void C_ccall f_6117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* map-loop472 in k7012 in k7008 in report in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7037,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_7062,a[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:116: strip-syntax */ t5=*((C_word*)lf[85]+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);}}} /* k10134 in k10113 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_10136,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|8,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],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_i_cadr(((C_word*)t0)[9]))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10162,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_i_car(((C_word*)t0)[4]); /* scrutinizer.scm:834: compatible-types? */ f_13493(t3,((C_word*)t0)[7],t4);} else{ t3=t2; f_10142(t3,C_SCHEME_FALSE);}} /* k7033 in k7012 in k7008 in report in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7035(C_word c,C_word *av){ C_word tmp; C_word 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_7035,2,av);}{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[6]+1); av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; C_apply(6,av2);}} /* named? in k6121 in k6118 in k6115 */ static C_word C_fcall f_15207(C_word t1){ C_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[100]); 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[19]); if(C_truep(t5)){ t6=C_i_caddr(t1); t12=t6; t1=t12; goto loop;} else{ return(C_SCHEME_FALSE);}}} else{ return(C_SCHEME_FALSE);}} /* k8263 in k8563 in k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_8265,2,av);} /* scrutinizer.scm:510: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8123(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]);} /* k18192 in k18177 in k18174 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_18194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18194,2,av);} a=C_alloc(8); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18203,a[2]=((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:2077: every */ t4=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[353]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7021 in k7018 in k7012 in k7008 in report in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7023(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7023,2,av);} /* scrutinizer.scm:287: conc */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6147 in k6144 in k6141 in k6138 in d in k6121 in k6118 in k6115 */ static void C_ccall f_6149(C_word c,C_word *av){ C_word tmp; C_word t0=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_6149,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6152,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; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=t2; av2[2]=*((C_word*)lf[6]+1); av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; C_apply(6,av2);}} /* k7018 in k7012 in k7008 in report in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7020(C_word c,C_word *av){ C_word tmp; C_word t0=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_7020,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7023,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:288: get-output-string */ t3=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10140 in k10134 in k10113 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_10142(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,5)))){ C_save_and_reclaim_args((void *)trf_10142,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(C_truep(*((C_word*)lf[72]+1))?((C_word*)((C_word*)t0)[2])[1]:((C_word*)((C_word*)t0)[3])[1]); t3=C_i_car(((C_word*)t0)[4]); /* scrutinizer.scm:833: g1613 */ t4=t2;{ C_word av2[6]; av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=lf[188]; av2[4]=t3; av2[5]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ t2=C_a_i_list1(&a,1,((C_word*)t0)[7]); t3=C_a_i_minus(&a,2,lf[0],C_fix(1)); t4=C_mutate2(&lf[0] /* (set! d-depth ...) */,t3); t5=((C_word*)t0)[8];{ C_word av2[2]; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k6144 in k6141 in k6138 in d in k6121 in k6118 in k6115 */ static void C_ccall f_6146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6146,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6149,a[2]=((C_word*)t0)[2],a[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_6159,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:48: make-string */ t4=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[0]; av2[3]=C_make_character(32); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k6141 in k6138 in d in k6121 in k6118 in k6115 */ static void C_ccall f_6143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6143,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6146,a[2]=((C_word*)t0)[2],a[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:48: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[9]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6138 in d in k6121 in k6118 in k6115 */ static void C_ccall f_6140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6140,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6143,a[2]=((C_word*)t0)[2],a[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:48: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[0]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k17385 in k17382 in validate-llist in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_17387(C_word c,C_word *av){ C_word tmp; 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_17387,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?C_a_i_cons(&a,2,lf[216],t1):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15909 in resolve in resolve in k6121 in k6118 in k6115 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_15911,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[19],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k17382 in validate-llist in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_17384(C_word t0,C_word t1){ C_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_17384,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17387,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:1956: validate-llist */ t5=((C_word*)((C_word*)t0)[4])[1]; f_17356(t5,t2,t4);} else{ t2=((C_word*)t0)[3]; t3=C_u_i_car(t2); t4=C_eqp(lf[217],t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17404,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_17404(t6,t4);} else{ t6=((C_word*)t0)[3]; t7=C_u_i_car(t6); t8=t5; f_17404(t8,C_eqp(lf[327],t7));}}} /* walked-result in k6121 in k6118 in k6115 */ 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=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_6177,3,av);} t3=C_slot(t2,C_fix(2)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_car(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10113 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_10115,2,av);} a=C_alloc(14); t2=t1; t3=C_eqp(t2,lf[60]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10121,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=C_a_i_minus(&a,2,lf[0],C_fix(1)); t7=C_mutate2(&lf[0] /* (set! d-depth ...) */,t6); t8=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(t2))){ /* scrutinizer.scm:823: report */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=lf[187]; av2[4]=((C_word*)t0)[2]; f_6995(5,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10136,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t2,a[5]=t4,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t6=C_i_length(t2); if(C_truep(C_fixnum_greaterp(t6,C_fix(1)))){ t7=C_u_i_length(t2); /* scrutinizer.scm:829: report */ t8=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=lf[190]; av2[4]=t7; f_6995(5,av2);}} else{ t7=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_10136(2,av2);}}}}} /* k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 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,5)))){ C_save_and_reclaim((void *)f_8246,2,av);} a=C_alloc(27); 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|26,a[1]=(C_word)f_8565,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]=((C_word*)t0)[21],a[24]=((C_word*)t0)[22],a[25]=((C_word*)t0)[23],a[26]=t2,tmp=(C_word)a,a+=27,tmp); /* scrutinizer.scm:507: always-true */ t9=((C_word*)((C_word*)t0)[24])[1]; f_6816(t9,t8,((C_word*)t0)[8],((C_word*)t0)[15],t2,((C_word*)t0)[10]);} /* k17316 in loop in k17886 in k17883 in g3825 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_17318(C_word c,C_word *av){ C_word tmp; 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_17318,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k18900 in k19037 in known-length-vector-index in k18886 in k6121 in k6118 in k6115 */ 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; 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_18902,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18906,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2211: open-output-string */ t4=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k18904 in k18900 in k19037 in known-length-vector-index in k18886 in k6121 in k6118 in k6115 */ 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 t6; C_word 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,c,3)))){ C_save_and_reclaim((void *)f_18906,2,av);} a=C_alloc(21); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18912,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18927,a[2]=t5,a[3]=t3,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_18929,a[2]=t8,a[3]=t12,a[4]=t9,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_18929(t14,t10,((C_word*)t0)[4]);} /* a8740 in k8731 in k8728 in k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 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_8741,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate2(((C_word *)((C_word*)t0)[6])+1,((C_word*)((C_word*)t0)[7])[1]); t5=C_mutate2(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[8])[1]); t6=C_mutate2(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[9])[1]); t7=C_mutate2(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[10])[1]); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* a16956 in fragment in scrutinize in k6121 in k6118 in k6115 */ 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=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_16957,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=lf[35]; t14=t2; t15=C_slot(t14,C_fix(3)); t16=C_i_check_list_2(t15,lf[89]); t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17002,a[2]=t1,a[3]=t5,a[4]=t8,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_17004,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_17004(t21,t17,t15);} /* g3159 in k15922 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_fcall f_15934(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_15934,3,t0,t1,t2);} /* scrutinizer.scm:1720: g3176 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_15750(t3,t1,t2,((C_word*)t0)[3]);} /* memq* in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_17322(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_17322,3,t1,t2,t3);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17328,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=( f_17328(t4,t3) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* loop in memq* in validate-type in k6121 in k6118 in k6115 */ static C_word C_fcall f_17328(C_word t0,C_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_i_car(t1); t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ return(t1);} else{ t4=t1; t5=C_u_i_cdr(t4); t7=t5; t1=t7; goto loop;}} else{ return(C_SCHEME_FALSE);}} /* k18910 in k18904 in k18900 in k19037 in known-length-vector-index in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_18912(C_word c,C_word *av){ C_word tmp; C_word t0=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_18912,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18915,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2211: get-output-string */ t3=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18913 in k18910 in k18904 in k18900 in k19037 in known-length-vector-index in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_18915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18915,2,av);} /* scrutinizer.scm:2210: conc */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8755 in a8749 in k8731 in k8728 in k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_8757,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8764,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8772,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_8774,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_8774(t8,t4,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} /* a8749 in k8731 in k8728 in k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 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(26,c,8)))){ C_save_and_reclaim((void *)f_8750,2,av);} a=C_alloc(26); t2=( /* scrutinizer.scm:585: tag */ f_7902(C_a_i(&a,4),((C_word*)((C_word*)t0)[2])[1]) ); t3=t2; t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8757,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=(C_truep(((C_word*)t0)[10])?C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[10],lf[54]),((C_word*)t0)[11]):((C_word*)t0)[11]); t7=C_a_i_cons(&a,2,((C_word*)t0)[12],((C_word*)t0)[13]); t8=C_a_i_list1(&a,1,t3); /* scrutinizer.scm:586: walk */ t9=((C_word*)((C_word*)t0)[14])[1]; f_8123(t9,t4,t5,t6,t7,C_SCHEME_FALSE,C_SCHEME_TRUE,t8,C_SCHEME_FALSE);} /* k6157 in k6144 in k6141 in k6138 in d in k6121 in k6118 in k6115 */ static void C_ccall f_6159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6159,2,av);} /* scrutinizer.scm:48: ##sys#print */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6150 in k6147 in k6144 in k6141 in k6138 in d in k6121 in k6118 in k6115 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6152,2,av);} /* scrutinizer.scm:48: ##sys#write-char-0 */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15922 in resolve in resolve in k6121 in k6118 in k6115 */ 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 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_15924,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_15934,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[89]); t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15945,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_15947,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_15947(t16,t12,t10);} else{ t2=C_eqp(((C_word*)t0)[6],lf[100]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15988,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:1722: procedure-name */ f_14689(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);}}}} /* k18925 in k18904 in k18900 in k19037 in known-length-vector-index in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_18927(C_word c,C_word *av){ C_word tmp; C_word 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_18927,2,av);}{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[6]+1); av2[3]=((C_word*)t0)[3]; av2[4]=lf[366]; av2[5]=t1; C_apply(6,av2);}} /* k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ 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(18,c,3)))){ C_save_and_reclaim((void *)f_8727,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_8730,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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)[12])){ /* scrutinizer.scm:575: append */ t4=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[149]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* scrutinizer.scm:575: append */ t4=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k16929 in source-node in k6121 in k6118 in k6115 */ 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,3)))){ C_save_and_reclaim((void *)f_16931,2,av);} if(C_truep(t1)){ /* scrutinizer.scm:1869: source-node */ t2=lf[35];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; f_16924(4,av2);}} else{ /* scrutinizer.scm:1869: k */ t2=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(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);}}} /* k7060 in map-loop472 in k7012 in k7008 in report in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7062,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7037(t6,((C_word*)t0)[5],t5);} /* a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(25,c,3)))){ C_save_and_reclaim((void *)f_8720,5,av);} a=C_alloc(25); 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_8727,a[2]=((C_word*)t0)[2],a[3]=((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]=t4,a[13]=((C_word*)t0)[9],a[14]=((C_word*)t0)[10],a[15]=t1,a[16]=((C_word*)t0)[11],tmp=(C_word)a,a+=17,tmp); t8=t7; t9=((C_word*)t0)[2]; t10=t3; t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7949,a[2]=t8,a[3]=t10,a[4]=t9,tmp=(C_word)a,a+=5,tmp); if(C_truep(t9)){ if(C_truep(*((C_word*)lf[72]+1))){ /* tweaks.scm:57: ##sys#get */ t12=*((C_word*)lf[67]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t11; av2[2]=t9; av2[3]=lf[73]; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} else{ t12=t11;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; f_7949(2,av2);}}} else{ t12=t11;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; f_7949(2,av2);}}} /* k16492 in loop in k16590 in k16459 in adjust in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16494,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:1769: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_16475(t4,((C_word*)t0)[4],t3);} /* g1978 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_11199(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_11199,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_cadr(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11212,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=t2; t5=C_u_i_cdr(t4); t6=C_u_i_car(t5); /* scrutinizer.scm:1014: match1 */ t7=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[4]; av2[0]=t7; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t6; f_11054(4,av2);}} else{ t3=C_i_caddr(t2); t4=C_i_not(t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11241,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(t4)){ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=t4; f_11241(2,av2);}} else{ t6=t2; t7=C_u_i_cdr(t6); t8=C_u_i_cdr(t7); t9=C_u_i_car(t8); /* scrutinizer.scm:1018: rawmatch1 */ t10=((C_word*)((C_word*)t0)[2])[1]; f_11032(t10,t5,((C_word*)t0)[3],t9);}}} /* map-loop4268 in k18904 in k18900 in k19037 in known-length-vector-index in k18886 in k6121 in k6118 in k6115 */ static void C_fcall f_18929(C_word t0,C_word t1,C_word 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_18929,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_18954,a[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:116: strip-syntax */ t5=*((C_word*)lf[85]+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);}}} /* k16901 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ static void C_ccall f_16903(C_word c,C_word *av){ C_word tmp; C_word 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_16903,2,av);} /* scrutinizer.scm:1818: print */ t2=*((C_word*)lf[207]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[311]; av2[3]=t1; av2[4]=lf[312]; av2[5]=*((C_word*)lf[313]+1); av2[6]=lf[314]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* mutate-node! in k6121 in k6118 in k6115 */ static void C_fcall f_16906(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_16906,3,t1,t2,t3);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16911,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_16922,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1864: copy-node */ t6=*((C_word*)lf[321]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k11158 in g1945 in match1 in match-types in k6121 in k6118 in k6115 */ 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11160,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],lf[14]); t3=C_mutate2(&lf[14] /* (set! trail ...) */,t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); t6=C_i_set_car(t5,((C_word*)t0)[4]); t7=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k16909 in mutate-node! in k6121 in k6118 in k6115 */ static void C_ccall f_16911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16911,2,av);} a=C_alloc(4); t2=C_mutate2(&lf[317] /* (set! node-mutations ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16918,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1865: build-node-graph */ t4=*((C_word*)lf[319]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16916 in k16909 in mutate-node! in k6121 in k6118 in k6115 */ static void C_ccall f_16918(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16918,2,av);} /* scrutinizer.scm:1865: copy-node! */ t2=*((C_word*)lf[318]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18952 in map-loop4268 in k18904 in k18900 in k19037 in known-length-vector-index in k18886 in k6121 in k6118 in k6115 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_18954,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18929(t6,((C_word*)t0)[5],t5);} /* adjust in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_fcall f_16448(C_word t0,C_word t1,C_word t2){ C_word 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_16448,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_16461,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=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_16461(t9,C_eqp(lf[100],t8));} else{ t6=t3; f_16461(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);}}} /* k16441 in k16426 in k16423 in k16420 in k16414 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_16443,2,av);} /* scrutinizer.scm:1793: ##sys#print */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18111 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_18113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18113,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18119,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2066: every */ t4=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[353]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* loop in k17886 in k17883 in g3825 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_17300(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_17300,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_17318,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); /* scrutinizer.scm:1944: loop */ t10=t6; t11=t8; t1=t10; t2=t11; goto loop;}} /* map-loop3879 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_18124(C_word t0,C_word t1,C_word 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_18124,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_18149,a[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:2065: g3885 */ 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);}}} /* k16462 in k16459 in adjust in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16464(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16464,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[100],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k16459 in adjust in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_fcall f_16461(C_word t0,C_word t1){ C_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(9,0,2)))){ C_save_and_reclaim_args((void *)trf_16461,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16464,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_16592,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); /* scrutinizer.scm:1764: vector->list */ t6=*((C_word*)lf[58]+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[19],t3); if(C_truep(t4)){ t5=C_i_cadr(((C_word*)t0)[2]); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16611,a[2]=((C_word*)t0)[3],a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=C_i_caddr(((C_word*)t0)[2]); /* scrutinizer.scm:1785: adjust */ t9=((C_word*)((C_word*)t0)[5])[1]; f_16448(t9,t7,t8);} 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);}}}} /* k18117 in k18111 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_18119(C_word c,C_word *av){ C_word tmp; 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_18119,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?C_a_i_cons(&a,2,lf[55],((C_word*)t0)[3]):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k13462 in loop in a13403 in merge-result-types in k6121 in k6118 in k6115 */ 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 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_13464,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13468,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:1364: loop */ t8=((C_word*)((C_word*)t0)[5])[1]; f_13410(t8,t3,t5,t7);} /* k13466 in k13462 in loop in a13403 in merge-result-types in k6121 in k6118 in k6115 */ static void C_ccall f_13468(C_word c,C_word *av){ C_word tmp; 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_13468,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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 k16590 in k16459 in adjust in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_fcall f_16475(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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(8,0,4)))){ C_save_and_reclaim_args((void *)trf_16475,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=C_eqp(t3,lf[289]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16494,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(*((C_word*)lf[290]+1))){ t6=C_a_i_list(&a,1,C_SCHEME_TRUE); if(C_truep(C_i_nullp(t6))){ /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[158]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[3]; av2[3]=lf[180]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=C_i_car(t6); /* tweaks.scm:54: ##sys#put! */ t8=*((C_word*)lf[158]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t5; av2[2]=((C_word*)t0)[3]; av2[3]=lf[180]; av2[4]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} else{ t6=t2; t7=C_u_i_cdr(t6); /* scrutinizer.scm:1769: loop */ t13=t1; t14=t7; t1=t13; t2=t14; goto loop;}} else{ t5=C_eqp(t3,lf[291]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16508,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(*((C_word*)lf[290]+1))){ t7=C_a_i_list(&a,1,C_SCHEME_TRUE); if(C_truep(C_i_nullp(t7))){ /* tweaks.scm:54: ##sys#put! */ t8=*((C_word*)lf[158]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t6; av2[2]=((C_word*)t0)[3]; av2[3]=lf[179]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t8=C_i_car(t7); /* tweaks.scm:54: ##sys#put! */ t9=*((C_word*)lf[158]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t6; av2[2]=((C_word*)t0)[3]; av2[3]=lf[179]; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} else{ t7=t2; t8=C_u_i_cdr(t7); /* scrutinizer.scm:1772: loop */ t13=t1; t14=t8; t1=t13; t2=t14; goto loop;}} else{ t6=C_eqp(t3,lf[292]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16536,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t8=C_a_i_list(&a,1,C_SCHEME_TRUE); if(C_truep(C_i_nullp(t8))){ /* tweaks.scm:54: ##sys#put! */ t9=*((C_word*)lf[158]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t7; av2[2]=((C_word*)t0)[3]; av2[3]=lf[184]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t9=C_i_car(t8); /* tweaks.scm:54: ##sys#put! */ t10=*((C_word*)lf[158]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t7; av2[2]=((C_word*)t0)[3]; av2[3]=lf[184]; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}} else{ t7=C_eqp(t3,lf[293]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16564,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t9=C_i_cadr(t2); t10=C_a_i_list(&a,1,t9); if(C_truep(C_i_nullp(t10))){ /* tweaks.scm:54: ##sys#put! */ t11=*((C_word*)lf[158]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t8; av2[2]=((C_word*)t0)[3]; av2[3]=lf[121]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ t11=C_i_car(t10); /* tweaks.scm:54: ##sys#put! */ t12=*((C_word*)lf[158]+1);{ C_word av2[5]; av2[0]=t12; av2[1]=t8; av2[2]=((C_word*)t0)[3]; av2[3]=lf[121]; av2[4]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}} else{ t8=t2; t9=C_u_i_car(t8); /* scrutinizer.scm:1780: bomb */ t10=*((C_word*)lf[197]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t1; av2[2]=lf[294]; av2[3]=t9; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}}}}}} /* k10119 in k10113 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,1)))){ C_save_and_reclaim((void *)f_10121,2,av);} a=C_alloc(7); t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); t3=C_a_i_minus(&a,2,lf[0],C_fix(1)); t4=C_mutate2(&lf[0] /* (set! d-depth ...) */,t3); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k16920 in mutate-node! in k6121 in k6118 in k6115 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_16922,2,av);} /* scrutinizer.scm:1864: alist-update! */ t2=*((C_word*)lf[320]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[317]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* source-node in k6121 in k6118 in k6115 */ static void C_ccall f_16924(C_word c,C_word *av){ C_word 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_16924,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[269]+1):C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16931,a[2]=t1,a[3]=t6,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1868: alist-ref */ t8=*((C_word*)lf[322]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=t2; av2[3]=lf[317]; av2[4]=*((C_word*)lf[245]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} /* k18147 in map-loop3879 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_18149,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18124(t6,((C_word*)t0)[5],t5);} /* k8731 in k8728 in k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_8733,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_8741,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_8750,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)[13],a[11]=t2,a[12]=((C_word*)t0)[2],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],tmp=(C_word)a,a+=15,tmp); t18=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8886,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:582: ##sys#dynamic-wind */ t19=*((C_word*)lf[147]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8728 in k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 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_8730,2,av);} a=C_alloc(29); t2=t1; t3=(*a=C_CLOSURE_TYPE|16,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]=((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_8908,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)[12])){ /* scrutinizer.scm:577: butlast */ t9=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=((C_word*)t0)[10]; f_8908(2,av2);}}} /* k8700 in k8683 in k8677 in loop in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8702,2,av);} /* scrutinizer.scm:560: ##sys#print */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11824 in k11722 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_11826(C_word t0,C_word t1){ C_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,3)))){ C_save_and_reclaim_args((void *)trf_11826,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[213]); if(C_truep(t4)){ t5=((C_word*)((C_word*)t0)[3])[1]; if(C_truep(t5)){ 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|5,a[1]=(C_word)f_11851,a[2]=((C_word*)t0)[5],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); t7=C_i_cadr(((C_word*)t0)[2]); t8=C_i_cadr(((C_word*)t0)[5]); /* scrutinizer.scm:1116: match1 */ t9=((C_word*)((C_word*)t0)[6])[1];{ C_word av2[4]; av2[0]=t9; av2[1]=t6; av2[2]=t7; av2[3]=t8; f_11054(4,av2);}}} else{ t5=C_eqp(t3,lf[54]); 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_11884,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t9=C_i_cadr(((C_word*)t0)[2]); t10=C_i_cadr(((C_word*)t0)[5]); /* scrutinizer.scm:1120: match1 */ 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_11054(4,av2);}} else{ t8=((C_word*)t0)[4];{ 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)[4];{ 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)[4];{ 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_11928,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); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=t2; f_11928(t5,C_eqp(lf[54],t4));} else{ t3=t2; f_11928(t3,C_SCHEME_FALSE);}}} /* k7081 in fragment in scrutinize in k6121 in k6118 in k6115 */ 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 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_7083,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_7088,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(0); f_7088(4,av2);}} /* k13938 in k13918 in k13896 in k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_fcall f_13940(C_word t0,C_word 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_13940,2,t0,t1);} a=C_alloc(6); 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]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13952,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); t5=C_i_cadr(((C_word*)t0)[2]); t6=C_i_cadr(((C_word*)t0)[4]); /* scrutinizer.scm:1446: test */ t7=((C_word*)((C_word*)t0)[5])[1];{ C_word av2[4]; av2[0]=t7; av2[1]=t4; av2[2]=t5; av2[3]=t6; f_13530(4,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13979,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); t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=C_eqp(lf[55],t4); if(C_truep(t5)){ t6=C_i_car(((C_word*)t0)[4]); t7=t2; f_13979(t7,C_eqp(lf[54],t6));} else{ t6=t2; f_13979(t6,C_SCHEME_FALSE);}}} /* k8295 in k8560 in k8563 in k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_8297,2,av);} /* scrutinizer.scm:514: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8123(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]);} /* k13977 in k13938 in k13918 in k13896 in k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_fcall f_13979(C_word t0,C_word 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_13979,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_cdr(((C_word*)t0)[2]); if(C_truep(C_i_nullp(t2))){ 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);}} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13991,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); t4=C_i_cadr(((C_word*)t0)[4]); t5=C_i_cadr(((C_word*)t0)[2]); /* scrutinizer.scm:1450: test */ t6=((C_word*)((C_word*)t0)[5])[1];{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=t5; f_13530(4,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14020,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=((C_word*)t0)[4]; t4=C_u_i_car(t3); t5=C_eqp(lf[55],t4); if(C_truep(t5)){ t6=C_i_car(((C_word*)t0)[2]); t7=t2; f_14020(t7,C_eqp(lf[213],t6));} else{ t6=t2; f_14020(t6,C_SCHEME_FALSE);}}} /* report-error in scrutinize in k6121 in k6118 in k6115 */ 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=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,5)))){ C_save_and_reclaim((void*)f_7071,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; t5=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=t2; av2[4]=t3; av2[5]=t4; C_apply(6,av2);}} /* walk in k7081 in fragment in scrutinize in k6121 in k6118 in k6115 */ 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=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_7088,4,av);} a=C_alloc(8); if(C_truep(C_i_not_pair_p(t2))){ /* scrutinizer.scm:299: ##sys#strip-syntax */ t4=*((C_word*)lf[87]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[88]; ((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_7114,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_7175,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:304: take */ t8=*((C_word*)lf[92]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=t2; av2[3]=C_fix(6); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t2; f_7114(2,av2);}}} else{ /* scrutinizer.scm:307: ##sys#strip-syntax */ t4=*((C_word*)lf[87]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}}} /* fragment in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7079(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_7079,2,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7083,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7184,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16957,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:1872: source-node */ t6=lf[35];{ C_word av2[4]; av2[0]=t6; av2[1]=t4; av2[2]=t2; av2[3]=t5; f_16924(4,av2);}} /* k13950 in k13938 in k13918 in k13896 in k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_ccall f_13952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13952,2,av);} if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); /* scrutinizer.scm:1447: test */ t3=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t2; f_13530(4,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8282 in k8563 in k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_8284,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[107],t3,((C_word*)t0)[3]); /* scrutinizer.scm:509: mutate-node! */ f_16906(((C_word*)t0)[4],((C_word*)t0)[5],t4);} /* k15052 in k15005 in k14866 in loop1 in procedure-argument-types in k6121 in k6118 in k6115 */ static void C_ccall f_15054(C_word c,C_word *av){ C_word tmp; C_word 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_15054,2,av);} /* scrutinizer.scm:1607: values */{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12710 in k12704 in a12701 in k12581 in k12575 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_fcall f_12712(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_12712,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[25]); if(C_truep(t2)){ /* scrutinizer.scm:1255: return */ t3=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[25]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=C_eqp(((C_word*)t0)[3],lf[76]); t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=(C_truep(t3)?C_SCHEME_END_OF_LIST:C_a_i_list1(&a,1,((C_word*)t0)[3])); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k12704 in a12701 in k12581 in k12575 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_12706,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12712,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_12712(t5,C_eqp(lf[17],t4));} else{ t4=t3; f_12712(t4,C_SCHEME_FALSE);}} /* a12701 in k12581 in k12575 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12702,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12706,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1252: simplify */ t4=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; f_12326(3,av2);}} /* k7012 in k7008 in report in scrutinize in k6121 in k6118 in k6115 */ 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 t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_7014,2,av);} a=C_alloc(22); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7020,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,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_word*)t0)[4]; t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7035,a[2]=t5,a[3]=t3,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|4,a[1]=(C_word)f_7037,a[2]=t8,a[3]=t13,a[4]=t9,tmp=(C_word)a,a+=5,tmp)); t15=((C_word*)t13)[1]; f_7037(t15,t11,t10);} /* k7008 in report in scrutinize in k6121 in k6118 in k6115 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7010,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7014,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:288: open-output-string */ t4=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* g2867 in loop1 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_15092(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_15092,3,t0,t1,t2);} t3=C_i_cadr(t2); /* scrutinizer.scm:1612: loop1 */ t4=((C_word*)((C_word*)t0)[2])[1]; f_15081(t4,t1,t3);} /* lp */ static void C_fcall f_19329(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_19329,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_19347,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2295: reverse */ t7=*((C_word*)lf[243]+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_19353,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_u_i_car(t7); t9=t6; f_19353(t9,C_eqp(t8,lf[55]));} else{ t7=t6; f_19353(t7,C_SCHEME_FALSE);}}} /* k7004 in report in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7006,2,av);} /* scrutinizer.scm:286: warning */ t2=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* g2848 in k15005 in k14866 in loop1 in procedure-argument-types in k6121 in k6118 in k6115 */ static void C_fcall f_15021(C_word 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_15021,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:1605: loop1 */ t5=((C_word*)((C_word*)t0)[3])[1]; f_14861(t5,t1,lf[60],((C_word*)t0)[2]);} else{ t5=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[2]); /* scrutinizer.scm:1606: loop1 */ t6=((C_word*)((C_word*)t0)[3])[1]; f_14861(t6,t1,t3,t5);}} /* a19301 */ static void C_ccall f_19302(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_19302,4,av);} a=C_alloc(6); t4=C_i_nullp(t2); t5=(C_truep(t4)?lf[21]:C_a_i_cons(&a,2,lf[54],t2)); t6=C_i_nullp(t3); t7=(C_truep(t6)?lf[21]:C_a_i_cons(&a,2,lf[54],t3)); /* scrutinizer.scm:2290: k */ t8=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t1; av2[2]=t5; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* loop1 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_15081(C_word t0,C_word 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_15081,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_15092,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1609: g2867 */ t5=t4; f_15092(t5,t1,t3);} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15109,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_15109(t7,C_eqp(lf[100],t6));} else{ t5=t4; f_15109(t5,C_SCHEME_FALSE);}}}} /* g2601 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_fcall f_13589(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_13589,3,t0,t1,t2);} if(C_truep(C_i_cadr(t2))){ t3=t2; t4=C_u_i_cdr(t3); t5=C_u_i_car(t4); /* scrutinizer.scm:1391: test */ t6=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[4]; av2[0]=t6; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t5; f_13530(4,av2);}} else{ t3=t2; t4=C_u_i_cdr(t3); t5=C_i_set_car(t4,((C_word*)t0)[3]); t6=C_i_caddr(t2); t7=C_i_not(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=t2; t9=C_u_i_cdr(t8); t10=C_u_i_cdr(t9); t11=C_u_i_car(t10); /* scrutinizer.scm:1395: test */ t12=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[4]; av2[0]=t12; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t11; f_13530(4,av2);}}}} /* k15943 in k15922 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_ccall f_15945(C_word c,C_word *av){ C_word tmp; 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_15945,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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-loop3153 in k15922 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_fcall f_15947(C_word t0,C_word t1,C_word 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_15947,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_15972,a[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:1720: g3159 */ t5=((C_word*)t0)[4]; f_15934(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);}}} /* k20177 in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 in ... */ static void C_ccall f_20179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_20179,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_20181,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_20181(t5,((C_word*)t0)[8],t1,C_SCHEME_FALSE);} /* k15970 in map-loop3153 in k15922 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_ccall f_15972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_15972,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_15947(t6,((C_word*)t0)[5],t5);} /* loop in k20177 in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in ... */ static void C_fcall f_20181(C_word t0,C_word t1,C_word 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_20181,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_20195,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20230,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2523: collect */ t8=((C_word*)((C_word*)t0)[4])[1]; f_20050(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_20268,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:2526: 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);}}} /* g4905 in loop in k20177 in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in ... */ static void C_fcall f_20195(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_20195,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_car(t2); t4=C_a_i_cons(&a,2,t3,lf[14]); t5=C_mutate2(&lf[14] /* (set! 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_20211,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[17],t13); /* scrutinizer.scm:2522: simplify-type */ t15=*((C_word*)lf[56]+1);{ C_word av2[3]; av2[0]=t15; av2[1]=t11; av2[2]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} /* k18201 in k18192 in k18177 in k18174 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_18203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_18203,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_18207,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[60],t2); if(C_truep(t4)){ t5=t3; f_18207(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_18249,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_18257,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_18257(t14,t10,t2);} else{ t5=t3; f_18207(t5,C_SCHEME_FALSE);}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a13403 in merge-result-types in k6121 in k6118 in k6115 */ static void C_ccall f_13404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13404,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_13410,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_13410(t6,t1,((C_word*)t0)[2],((C_word*)t0)[3]);} /* k18205 in k18201 in k18192 in k18177 in k18174 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_18207(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_18207,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18217,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(C_truep(((C_word*)t0)[3])?(C_truep(((C_word*)t0)[4])?C_SCHEME_END_OF_LIST:C_a_i_list1(&a,1,((C_word*)t0)[3])):C_SCHEME_END_OF_LIST); t4=C_a_i_cons(&a,2,((C_word*)t0)[5],t1); /* scrutinizer.scm:2068: ##sys#append */ t5=*((C_word*)lf[273]+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{ 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);}}} /* procedure-arguments in k6121 in k6118 in k6115 */ static void C_fcall f_14740(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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(0,0,3)))){ C_save_and_reclaim_args((void *)trf_14740,2,t1,t2);} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[19]); if(C_truep(t5)){ t6=C_i_caddr(t2); /* scrutinizer.scm:1548: procedure-arguments */ t13=t1; t14=t6; t1=t13; t2=t14; goto loop;} else{ t6=C_eqp(t4,lf[100]); if(C_truep(t6)){ t7=C_i_cadr(t2); t8=C_i_stringp(t7); t9=(C_truep(t8)?t8:C_i_symbolp(t7)); if(C_truep(t9)){ t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=C_i_caddr(t2); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=t2; t11=C_u_i_cdr(t10); t12=t1;{ C_word av2[2]; av2[0]=t12; av2[1]=C_u_i_car(t11); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} else{ /* scrutinizer.scm:1554: bomb */ t7=*((C_word*)lf[197]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=lf[267]; 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);}}} /* k18215 in k18205 in k18201 in k18192 in k18177 in k18174 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_18217(C_word c,C_word *av){ C_word tmp; 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_18217,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[100],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in a13403 in merge-result-types in k6121 in k6118 in k6115 */ static void C_fcall f_13410(C_word t0,C_word t1,C_word 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(15,0,3)))){ C_save_and_reclaim_args((void *)trf_13410,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{ 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_not_pair_p(t2); t5=(C_truep(t4)?t4:C_i_not_pair_p(t3)); if(C_truep(t5)){ /* scrutinizer.scm:1360: return */ t6=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t6; av2[1]=t1; av2[2]=lf[60]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t6=C_i_car(t2); t7=C_eqp(lf[76],t6); if(C_truep(t7)){ t8=t2; t9=C_u_i_cdr(t8); /* scrutinizer.scm:1361: loop */ t17=t1; t18=t9; t19=t3; t1=t17; t2=t18; t3=t19; goto loop;} else{ t8=C_i_car(t3); t9=C_eqp(lf[76],t8); if(C_truep(t9)){ t10=t3; t11=C_u_i_cdr(t10); /* scrutinizer.scm:1362: loop */ t17=t1; t18=t2; t19=t11; t1=t17; t2=t18; t3=t19; goto loop;} else{ t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13464,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,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[17],t12,t14); /* scrutinizer.scm:1363: simplify-type */ t16=*((C_word*)lf[56]+1);{ C_word av2[3]; av2[0]=t16; av2[1]=t10; av2[2]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}}}}}}} /* type-always-immediate? in k6121 in k6118 in k6115 */ 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=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,3)))){ C_save_and_reclaim((void *)f_6192,3,av);} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[17]); if(C_truep(t5)){ t6=t2; t7=C_u_i_cdr(t6); /* scrutinizer.scm:130: every */ t8=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t1; av2[2]=*((C_word*)lf[16]+1); av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t6=C_eqp(t4,lf[19]); if(C_truep(t6)){ t7=C_i_caddr(t2); /* scrutinizer.scm:131: type-always-immediate? */ t8=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t1; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep((C_truep(C_eqp(t3,lf[20]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[21]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[22]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[23]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[24]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[25]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))))?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9194 in k9150 in k9223 in k9144 in k9135 in k9132 in k9129 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9196,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9202,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:658: ##sys#print */ t6=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[162]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k19345 in lp */ static void C_ccall f_19347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19347,2,av);} a=C_alloc(3); t2=C_i_nullp(t1); t3=(C_truep(t2)?lf[21]:C_a_i_cons(&a,2,lf[54],t1)); /* scrutinizer.scm:2295: k */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* doloop4812 in restore in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in ... */ static void C_fcall f_19995(C_word t0,C_word t1,C_word t2){ C_word 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_19995,3,t0,t1,t2);} a=C_alloc(8); t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=C_mutate2(&lf[14] /* (set! 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_mutate2(((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_mutate2(((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_20046,a[2]=t5,a[3]=((C_word*)t0)[3],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:2489: resolve */ t9=lf[102];{ C_word av2[4]; av2[0]=t9; av2[1]=t6; av2[2]=t8; av2[3]=((C_word*)t0)[5]; f_15740(4,av2);}}} /* for-each-loop1702 in k10495 in a10492 in k10447 in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_10531(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_10531,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_10541,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[3]+1); t8=*((C_word*)lf[3]+1); t9=C_i_check_port_2(*((C_word*)lf[3]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[4]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10505,a[2]=t5,a[3]=t7,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:880: ##sys#print */ t11=*((C_word*)lf[7]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t10; av2[2]=lf[206]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[3]+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);}}} /* k19351 in lp */ static void C_fcall f_19353(C_word 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_19353,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ 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_minus(&a,2,((C_word*)t0)[4],C_fix(1)); /* scrutinizer.scm:2298: lp */ t6=((C_word*)((C_word*)t0)[5])[1]; f_19329(t6,((C_word*)t0)[6],t3,t4,t5);} 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);}}} /* k12446 in map-loop2198 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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; 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_12448,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_12423(t6,((C_word*)t0)[5],t5);} /* k10506 in k10503 in for-each-loop1702 in k10495 in a10492 in k10447 in scrutinize in k6121 in k6118 in k6115 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_10508,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10511,a[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:880: ##sys#write-char-0 */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10503 in for-each-loop1702 in k10495 in a10492 in k10447 in scrutinize in k6121 in k6118 in k6115 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10505,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10508,a[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:880: ##sys#print */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19978,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19981,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20298,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2468: complex-object-constructor-result-type-special-case */ f_19870(t3,lf[57]);} /* k10509 in k10506 in k10503 in for-each-loop1702 in k10495 in a10492 in k10447 in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10511,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10514,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:880: ##sys#print */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10512 in k10509 in k10506 in k10503 in for-each-loop1702 in k10495 in a10492 in k10447 in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10514,2,av);} /* scrutinizer.scm:880: ##sys#write-char-0 */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* procedure-results in k6121 in k6118 in k6115 */ static void C_fcall f_14796(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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(0,0,3)))){ C_save_and_reclaim_args((void *)trf_14796,2,t1,t2);} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[19]); if(C_truep(t5)){ t6=C_i_caddr(t2); /* scrutinizer.scm:1559: procedure-results */ t13=t1; t14=t6; t1=t13; t2=t14; goto loop;} else{ t6=C_eqp(t4,lf[100]); if(C_truep(t6)){ t7=C_i_cadr(t2); t8=C_i_stringp(t7); t9=(C_truep(t8)?t8:C_i_symbolp(t7)); if(C_truep(t9)){ t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=C_i_cdddr(t2); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=t2; t11=C_u_i_cdr(t10); t12=t1;{ C_word av2[2]; av2[0]=t12; av2[1]=C_u_i_cdr(t11); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} else{ /* scrutinizer.scm:1565: bomb */ t7=*((C_word*)lf[197]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=lf[268]; 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);}}} /* k20044 in doloop4812 in restore in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in ... */ static void C_ccall f_20046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_20046,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[2],t1),((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); t4=((C_word*)t0)[4]; t5=C_u_i_car(t4); t6=C_i_assq(t5,((C_word*)t0)[5]); t7=C_i_cdr(t6); t8=C_i_set_car(t7,C_SCHEME_FALSE); t9=((C_word*)t0)[4]; t10=C_u_i_cdr(t9); t11=((C_word*)((C_word*)t0)[6])[1]; f_19995(t11,((C_word*)t0)[7],t10);} /* k18280 in map-loop3921 in k18201 in k18192 in k18177 in k18174 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_18282(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_18282,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18257(t6,((C_word*)t0)[5],t5);} /* smash-component-types! in k6121 in k6118 in k6115 */ static void C_fcall f_10575(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_10575,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_10581,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_10581(t6,t1,t2);} /* g4860 in k20052 in collect in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in ... */ static void C_fcall f_20058(C_word t0,C_word t1,C_word 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_20058,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20066,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20068,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2501: filter-map */ t5=*((C_word*)lf[235]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k20052 in collect in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in ... */ static void C_ccall f_20054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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,3)))){ C_save_and_reclaim((void *)f_20054,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_20058,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_20089,a[2]=t4,a[3]=t8,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t10=((C_word*)t8)[1]; f_20089(t10,((C_word*)t0)[4],t1);} /* collect in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 in ... */ static void C_fcall f_20050(C_word t0,C_word t1){ C_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_20050,2,t0,t1);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20054,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_20125,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_word*)lf[365]+1); t9=((C_word*)((C_word*)t0)[3])[1]; t10=C_i_check_list_2(t9,lf[89]); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20135,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_20137,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_20137(t15,t11,t9);} /* a20067 in g4860 in k20052 in collect in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 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=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_20068,3,av);} t3=C_i_assq(((C_word*)t0)[2],t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep(t3)?C_i_cdr(t3):(C_truep(((C_word*)t0)[3])?lf[60]:C_SCHEME_FALSE)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k20064 in g4860 in k20052 in collect in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 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(3,c,1)))){ C_save_and_reclaim((void *)f_20066,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k9173 in k9156 in k9150 in k9223 in k9144 in k9135 in k9132 in k9129 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9175(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9175,2,av);} a=C_alloc(3); t2=C_a_i_list(&a,1,((C_word*)t0)[2]); if(C_truep(C_i_nullp(t2))){ /* tweaks.scm:54: ##sys#put! */ t3=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[68]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=C_i_car(t2); /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[68]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k12789 in k12786 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_12791,2,av);} a=C_alloc(9); t2=C_eqp(lf[60],((C_word*)t0)[2]); t3=(C_truep(t2)?C_eqp(lf[60],t1):C_SCHEME_FALSE); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[55]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_a_i_list(&a,3,lf[55],((C_word*)t0)[2],t1); /* scrutinizer.scm:1277: canonicalize-list-type */ t5=*((C_word*)lf[248]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_fcall f_19983(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_19983,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[14]; 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_19986,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_20050,a[2]=t4,a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t15=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20179,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:2514: delete-duplicates */ t16=*((C_word*)lf[358]+1);{ C_word av2[4]; av2[0]=t16; av2[1]=t15; av2[2]=t2; av2[3]=*((C_word*)lf[373]+1); ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}} /* restore in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 in ... */ static void C_fcall f_19986(C_word t0,C_word 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_19986,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_19995,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_19995(t7,t1,lf[14]);} /* k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19981(C_word c,C_word *av){ C_word tmp; C_word t0=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,6)))){ C_save_and_reclaim((void *)f_19981,2,av);} a=C_alloc(2); t2=C_mutate2(&lf[221] /* (set! over-all-instantiations ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19983,tmp=(C_word)a,a+=2,tmp)); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k12786 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12788,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12791,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_i_caddr(((C_word*)t0)[3]); /* scrutinizer.scm:1274: simplify */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; f_12326(3,av2);}} /* k18247 in k18201 in k18192 in k18177 in k18174 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_18249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18249,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18255,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2083: every */ t4=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[353]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k12770 in map-loop2247 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_12772,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_12747(t6,((C_word*)t0)[5],t5);} /* k18253 in k18247 in k18201 in k18192 in k18177 in k18174 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_18255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18255,2,av);} t2=((C_word*)t0)[2]; f_18207(t2,(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE));} /* map-loop3921 in k18201 in k18192 in k18177 in k18174 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_18257(C_word t0,C_word t1,C_word 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_18257,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_18282,a[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:2082: g3927 */ 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);}}} /* k13326 in k13322 in k13311 in merge-argument-types in k6121 in k6118 in k6115 */ static void C_ccall f_13328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13328,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[216],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k13322 in k13311 in merge-argument-types in k6121 in k6118 in k6115 */ static void C_ccall f_13324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_13324,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13328,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:1347: merge-argument-types */ t6=*((C_word*)lf[239]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8664 in k8613 in loop in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8666,2,av);} t2=((C_word*)t0)[2]; f_8634(t2,C_i_not(t1));} /* k13311 in merge-argument-types in k6121 in k6118 in k6115 */ static void C_fcall f_13313(C_word 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_13313,2,t0,t1);} a=C_alloc(14); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13324,a[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[17],t3,t4); /* scrutinizer.scm:1346: simplify-type */ t6=*((C_word*)lf[56]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t2; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[255]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a20482 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20483(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_20483,6,av);} a=C_alloc(16); t6=C_i_cdr(t3); if(C_truep(C_i_nullp(t6))){ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=lf[376]; ((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[15]; t12=t3; t13=C_u_i_cdr(t12); t14=C_i_check_list_2(t13,lf[89]); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20508,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_20510,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_20510(t19,t15,t13);}} /* map-loop2247 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_fcall f_12747(C_word t0,C_word t1,C_word 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_12747,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_12772,a[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: g2253 */ 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);}}} /* k7465 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7467,2,av);} a=C_alloc(6); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=C_i_assoc(((C_word*)((C_word*)t0)[2])[1],lf[13]); if(C_truep(t2)){ t3=C_i_cdr(t2); t4=C_a_i_plus(&a,2,t3,C_fix(1)); t5=((C_word*)t0)[3]; f_7370(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[13]); t5=C_mutate2(&lf[13] /* (set! specialization-statistics ...) */,t4); t6=((C_word*)t0)[3]; f_7370(t6,t5);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3]; f_7370(t3,t2);}} /* k8689 in k8686 in k8683 in k8677 in loop in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_8691,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,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]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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); /* scrutinizer.scm:560: get-output-string */ t3=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 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,3)))){ C_save_and_reclaim((void *)f_7464,2,av);} a=C_alloc(19); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7467,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|13,a[1]=(C_word)f_7504,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],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],tmp=(C_word)a,a+=14,tmp); /* scrutinizer.scm:373: g680 */ t4=t3; f_7504(t4,t2,t1);} else{ t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7667,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[14],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[9],a[10]=t2,tmp=(C_word)a,a+=11,tmp); if(C_truep(((C_word*)t0)[4])){ t4=t3; t5=((C_word*)t0)[6]; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7215,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* tweaks.scm:57: ##sys#get */ t7=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=t5; av2[3]=lf[120]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_7667(2,av2);}}}} /* k8692 in k8689 in k8686 in k8683 in k8677 in loop in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,8)))){ C_save_and_reclaim((void *)f_8694,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8698,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:561: walk */ t4=((C_word*)((C_word*)t0)[6])[1]; f_8123(t4,t3,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[5],((C_word*)t0)[9],C_SCHEME_FALSE,((C_word*)t0)[10],C_SCHEME_FALSE);} /* k8696 in k8692 in k8689 in k8686 in k8683 in k8677 in loop in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8698(C_word c,C_word *av){ C_word tmp; C_word 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_8698,2,av);} /* scrutinizer.scm:558: single */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6868(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,((C_word*)t0)[6]);} /* k19924 in k19891 */ static void C_ccall f_19926(C_word c,C_word *av){ C_word tmp; C_word t0=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_19926,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19937,a[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:2461: make-list */ t3=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11301 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ 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; 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_11303,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11306,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1031: trail-restore */ f_15706(t3,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_11300(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_11300,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=lf[14]; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11303,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_cadr(((C_word*)t0)[4]); /* scrutinizer.scm:1030: rawmatch1 */ t5=((C_word*)((C_word*)t0)[5])[1]; f_11032(t5,t3,t4,((C_word*)t0)[6]);} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11319,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,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_11319(t5,C_eqp(lf[113],t4));} else{ t3=t2; f_11319(t3,C_SCHEME_FALSE);}}} /* k11304 in k11301 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_11306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11306,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19935 in k19924 in k19891 */ static void C_ccall f_19937(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_19937,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_list(&a,1,t2); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=((C_word*)t0)[4]; t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k8677 in loop in walk in scrutinize in k6121 in k6118 in k6115 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_8679,2,av);} a=C_alloc(13); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8685,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((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]=t3,tmp=(C_word)a,a+=13,tmp); /* scrutinizer.scm:560: ##sys#print */ t6=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[143]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k8683 in k8677 in loop in walk in scrutinize in k6121 in k6118 in k6115 */ 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; 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_8685,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8688,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_8702,a[2]=t2,a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:560: real-name */ t4=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8686 in k8683 in k8677 in loop in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8688(C_word c,C_word *av){ C_word tmp; C_word t0=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,3)))){ C_save_and_reclaim((void *)f_8688,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8691,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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); /* scrutinizer.scm:560: ##sys#write-char-0 */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(39); av2[3]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* ##compiler#validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_17291(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_17291,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_17322,tmp=(C_word)a,a+=2,tmp)); t19=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17356,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_17486,a[2]=t17,a[3]=t9,a[4]=t11,a[5]=t5,a[6]=t13,a[7]=t7,a[8]=t15,a[9]=t3,tmp=(C_word)a,a+=10,tmp)); t21=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18353,a[2]=t5,a[3]=t7,a[4]=t9,a[5]=t11,a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2091: validate */ t22=((C_word*)t17)[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t22; av2[1]=t21; av2[2]=t2; av2[3]=C_SCHEME_FALSE; f_17486(4,av2);}} /* k10193 in k10190 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10195(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_10195,2,av);} a=C_alloc(17); t2=t1; t3=C_i_cdr(((C_word*)t0)[2]); t4=C_u_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_10206,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_10206(t8,((C_word*)t0)[14],t3,t4);} /* k10190 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10192,2,av);} a=C_alloc(15); t2=t1; t3=lf[14]; t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10195,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:844: type-typeenv */ t6=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* map-loop2198 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_fcall f_12423(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_12423,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_12448,a[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_12389,a[2]=t5,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1209: gensym */ t10=*((C_word*)lf[139]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t8; ((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);}}} /* k12419 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12421,2,av);} /* scrutinizer.scm:1207: append */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16685 in k16682 in k16676 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16687(C_word c,C_word *av){ C_word tmp; C_word t0=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_16687,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16690,a[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:1752: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[297]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16682 in k16676 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16684(C_word c,C_word *av){ C_word tmp; C_word t0=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_16684,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16687,a[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:1752: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16694 in k16691 in k16688 in k16685 in k16682 in k16676 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16696,2,av);} /* scrutinizer.scm:1752: debugging */ t2=*((C_word*)lf[160]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[296]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k16688 in k16685 in k16682 in k16676 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ 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(4,c,3)))){ C_save_and_reclaim((void *)f_16690,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16693,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1752: ##sys#write-char-0 */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16691 in k16688 in k16685 in k16682 in k16676 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ 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(3,c,2)))){ C_save_and_reclaim((void *)f_16693,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16696,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1752: get-output-string */ t3=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* node-source-prefix in k6121 in k6118 in k6115 */ 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=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,2)))){ C_save_and_reclaim((void *)f_6235,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6239,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17046,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1880: source-node */ t6=lf[35];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; f_16924(3,av2);}} /* k6237 in node-source-prefix in k6121 in k6118 in k6115 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6239,2,av);} a=C_alloc(4); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6248,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:138: open-output-string */ t4=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[31]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12404 in k12387 in map-loop2198 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12406(C_word c,C_word *av){ C_word tmp; 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_12406,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k10539 in for-each-loop1702 in k10495 in a10492 in k10447 in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10541(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10541,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10531(t3,((C_word*)t0)[4],t2);} /* lname in location-name in k6121 in k6118 in k6115 */ static void C_fcall f_6268(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_6268,2,t1,t2);} a=C_alloc(4); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6275,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:143: open-output-string */ t4=*((C_word*)lf[30]+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]=lf[39]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* location-name in k6121 in k6118 in k6115 */ 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=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(8,c,3)))){ C_save_and_reclaim((void *)f_6265,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6268,tmp=(C_word)a,a+=2,tmp); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[40]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_cdr(t2); if(C_truep(C_i_nullp(t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6309,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:147: open-output-string */ t6=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,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|3,a[1]=(C_word)f_6335,a[2]=t6,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_6335(t8,t1,t2);}}} /* k20472 in map-loop4580 in a20425 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_20474,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_20449(t6,((C_word*)t0)[5],t5);} /* k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_12471,2,av);} a=C_alloc(7); t2=t1; t3=C_i_length(t2); t4=C_eqp(C_fix(1),t3); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(t2))){ t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=lf[60]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_fixnum_greaterp(t3,C_fix(20)))){ t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=lf[60]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12504,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:1229: every */ t6=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=lf[104]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}} /* map-loop4580 in a20425 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_fcall f_20449(C_word t0,C_word t1,C_word 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_20449,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_20474,a[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:2375: g4586 */ 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);}}} /* k6258 in k6255 in k6252 in k6246 in k6237 in node-source-prefix in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6260,2,av);} /* scrutinizer.scm:138: get-output-string */ t2=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7156 in map-loop516 in k7112 in walk in k7081 in fragment in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7158,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7133(t6,((C_word*)t0)[5],t5);} /* k6255 in k6252 in k6246 in k6237 in node-source-prefix in k6121 in k6118 in k6115 */ 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(4,c,4)))){ C_save_and_reclaim((void *)f_6257,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6260,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:138: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[29]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6252 in k6246 in k6237 in node-source-prefix in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_6254,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6257,a[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:138: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20445 in a20425 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_20447,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[57],t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* g2477 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_fcall f_13154(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_13154,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13159,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1308: lset-adjoin */ t4=*((C_word*)lf[251]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[245]+1); av2[3]=((C_word*)((C_word*)t0)[2])[1]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k13157 in g2477 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_13159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13159,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_cdr(((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_16643,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16646,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_16648,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_16648(t6,t2,t1);} /* k16644 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_16646,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_fcall f_16648(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_16648,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_16658,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|4,a[1]=(C_word)f_16271,a[2]=t8,a[3]=t5,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* tweaks.scm:57: ##sys#get */ t10=*((C_word*)lf[67]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t9; av2[2]=t8; av2[3]=lf[68]; ((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);}}} /* k18410 in k18407 in g3952 in k18351 in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_18412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18412,2,av);} a=C_alloc(9); t2=C_a_i_list(&a,3,lf[19],t1,((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3]; f_18361(t4,t3);} /* map-loop3960 in k18407 in g3952 in k18351 in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_18414(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_18414,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* scrutinizer.scm:2096: g3966 */ f_18396(((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_mutate2(((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);}}} /* k17287 in specialize-node! in k6121 in k6118 in k6115 */ static void C_ccall f_17289(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17289,2,av);} /* scrutinizer.scm:1919: mutate-node! */ f_16906(((C_word*)t0)[2],((C_word*)t0)[3],t1);} /* k13187 in k13183 in k13166 in simplify-type in k6121 in k6118 in k6115 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_13189,2,av);} a=C_alloc(9); t2=C_a_i_list(&a,3,lf[19],((C_word*)t0)[2],t1); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k13183 in k13166 in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_13185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13185,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13189,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1323: subst */ t4=((C_word*)((C_word*)t0)[4])[1]; f_12287(t4,t3,((C_word*)((C_word*)t0)[2])[1]);} /* map-loop516 in k7112 in walk in k7081 in fragment in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7133(C_word t0,C_word t1,C_word 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_7133,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_7158,a[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:302: g522 */ t5=((C_word*)t0)[4]; f_7121(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);}}} /* k16656 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16658,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_16648(t3,((C_word*)t0)[4],t2);} /* k7434 in k7368 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_7436,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_slot(t2,C_fix(2)); t4=C_i_set_car(t3,C_SCHEME_TRUE); t5=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[3])[1],C_fix(1)); t6=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t5); t7=((C_word*)t0)[4]; f_7373(t7,t6);} else{ t2=((C_word*)t0)[4]; f_7373(t2,C_SCHEME_UNDEFINED);}} /* k6273 in lname in location-name in k6121 in k6118 in k6115 */ static void C_ccall f_6275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6275,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6281,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:143: ##sys#print */ t6=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* doloop1759 in smash-component-types! in k6121 in k6118 in k6115 */ static void C_fcall f_10581(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_10581,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_10591,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_10603,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_10611,a[2]=t9,tmp=(C_word)a,a+=3,tmp)); t11=((C_word*)t9)[1]; f_10611(t11,t3,t4,t7);}} /* k11780 in k11722 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_11782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,3)))){ C_save_and_reclaim((void *)f_11782,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); t3=C_i_cddr(((C_word*)t0)[3]); if(C_truep(C_i_nullp(t3))){ /* scrutinizer.scm:1106: match1 */ t4=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=t2; av2[3]=lf[21]; f_11054(4,av2);}} else{ t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); t7=C_a_i_cons(&a,2,lf[54],t6); /* scrutinizer.scm:1106: match1 */ t8=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=((C_word*)t0)[5]; av2[2]=t2; av2[3]=t7; f_11054(4,av2);}}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7424 in map-loop751 in k7371 in k7368 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7426,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7401(t6,((C_word*)t0)[5],t5);} /* k19037 in known-length-vector-index in k18886 in k6121 in k6118 in k6115 */ 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 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,2)))){ C_save_and_reclaim((void *)f_19039,2,av);} a=C_alloc(19); t2=C_u_i_car(((C_word*)t0)[2]); t3=C_slot(t2,C_fix(2)); t4=C_i_car(t3); t5=((C_word*)t0)[3]; t6=((C_word*)t0)[4]; t7=C_a_i_list(&a,4,t1,t4,((C_word*)t0)[5],((C_word*)t0)[6]); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18898,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18902,a[2]=t8,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2210: location-name */ t10=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k17220 in k17190 in k17129 in subst in specialize-node! in k6121 in k6118 in k6115 */ 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 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_17222,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17226,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:1918: subst */ t6=((C_word*)((C_word*)t0)[4])[1]; f_17124(t6,t3,t5);} /* k19033 in known-length-vector-index in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19035,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k17224 in k17220 in k17190 in k17129 in subst in specialize-node! in k6121 in k6118 in k6115 */ 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(3,c,1)))){ C_save_and_reclaim((void *)f_17226,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k10589 in doloop1759 in smash-component-types! in k6121 in k6118 in k6115 */ 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; 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_10591,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)((C_word*)t0)[3])[1]; f_10581(t4,((C_word*)t0)[4],t3);} /* k13166 in simplify-type in k6121 in k6118 in k6115 */ 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 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_13168,2,av);} a=C_alloc(12); 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|4,a[1]=(C_word)f_13185,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13191,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); /* scrutinizer.scm:1314: filter-map */ t6=*((C_word*)lf[235]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=((C_word*)((C_word*)t0)[7])[1]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)t3)[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8632 in k8613 in loop in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_8634(C_word 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_8634,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8643,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:566: get */ t6=*((C_word*)lf[74]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[6]; av2[3]=t4; av2[4]=lf[75]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t2=((C_word*)t0)[3]; f_8618(t2,C_SCHEME_UNDEFINED);}} /* a16670 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16671,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[1]+1)); t3=C_mutate2((C_word*)lf[1]+1 /* (set! ##compiler#scrutiny-debug ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k16676 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_16678,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16684,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:1752: ##sys#print */ t6=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[298]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k6292 in k6279 in k6273 in lname in location-name in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6294,2,av);} /* scrutinizer.scm:143: ##sys#print */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18407 in g3952 in k18351 in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_18409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_18409,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18412,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_18414,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t4,a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_18414(t6,t2,t1);} /* a13190 in k13166 in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_13191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13191,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_13206,a[2]=t5,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1315: g2494 */ t10=t9; f_13206(t10,t1,t8);} else{ t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8641 in k8632 in k8613 in loop in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_8643,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2]; f_8618(t3,t2);} else{ t2=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]),((C_word*)((C_word*)t0)[5])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[5])+1,t2); t4=((C_word*)t0)[2]; f_8618(t4,t3);}} /* k6246 in k6237 in node-source-prefix in k6121 in k6118 in k6115 */ static void C_ccall f_6248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6248,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6254,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:138: ##sys#write-char-0 */ t6=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop1361 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_10019(C_word t0,C_word t1,C_word 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_10019,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_10044,a[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:723: g1367 */ 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);}}} /* k10015 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10017,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[17],t1); /* scrutinizer.scm:722: type-typeenv */ t3=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16609 in k16459 in adjust in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16611(C_word c,C_word *av){ C_word tmp; 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_16611,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[19],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a20425 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20426(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_20426,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[15]; t11=C_i_cdr(t3); t12=C_i_check_list_2(t11,lf[89]); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20447,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_20449,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_20449(t17,t13,t11);} /* a18462 in check-and-validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_18463(C_word c,C_word *av){ C_word tmp; C_word t0=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_18463,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18471,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2109: ##sys#strip-syntax */ t3=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20571 in a20547 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_20573,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[54],t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop4512 in a20547 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_fcall f_20575(C_word t0,C_word t1,C_word 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_20575,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_20600,a[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:2365: g4518 */ 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);}}} /* a9491 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9492,2,av);} /* scrutinizer.scm:728: call-result */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7242(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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=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(40,c,8)))){ C_save_and_reclaim((void *)f_9498,4,av);} a=C_alloc(40); t4=t2; 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_9501,a[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(t3)){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9556,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[5],a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:738: walk */ t8=((C_word*)((C_word*)t0)[6])[1]; f_8123(t8,t7,((C_word*)t0)[7],((C_word*)t0)[3],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12]);} else{ t7=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_9614,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[14],a[6]=((C_word*)t0)[15],a[7]=((C_word*)t0)[16],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[17],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[18],a[12]=((C_word*)t0)[19],a[13]=t5,a[14]=((C_word*)t0)[7],a[15]=((C_word*)t0)[20],a[16]=((C_word*)t0)[8],tmp=(C_word)a,a+=17,tmp); t8=((C_word*)t0)[13]; t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9974,a[2]=((C_word*)t0)[21],a[3]=t8,a[4]=t5,a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=t6,a[8]=t7,tmp=(C_word)a,a+=9,tmp); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9976,a[2]=((C_word*)t0)[22],a[3]=((C_word*)t0)[21],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9986,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:811: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t9; av2[2]=t10; av2[3]=t11; C_call_with_values(4,av2);}}} /* k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_fcall f_13707(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_13707,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); /* scrutinizer.scm:1409: test */ t3=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t2; f_13530(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13720,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],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_13720(t5,C_eqp(lf[17],t4));} else{ t3=t2; f_13720(t3,C_SCHEME_FALSE);}}} /* a20547 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20548(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_20548,6,av);} a=C_alloc(16); t6=C_i_cdr(t3); if(C_truep(C_i_nullp(t6))){ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=lf[378]; ((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[15]; t12=t3; t13=C_u_i_cdr(t12); t14=C_i_check_list_2(t13,lf[89]); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20573,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_20575,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_20575(t19,t15,t13);}} /* fail in install-specializations in k6121 in k6118 in k6115 */ static void C_fcall f_18491(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_18491,3,t0,t1,t2);} /* scrutinizer.scm:2115: error */ t3=*((C_word*)lf[360]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=lf[362]; av2[3]=t2; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9458 in k9452 in k9423 in k9417 in g1296 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_9460,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9463,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:713: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9461 in k9458 in k9452 in k9423 in k9417 in g1296 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9463(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9463,2,av);} /* scrutinizer.scm:713: get-output-string */ t2=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_9469,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_9472,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_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_10057,a[2]=((C_word*)t0)[19],a[3]=t4,a[4]=((C_word*)t0)[20],a[5]=((C_word*)t0)[21],tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_10057(t6,t2,((C_word*)t0)[22],t1);} /* k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_9472,2,av);} a=C_alloc(21); t2=t1; t3=C_i_car(t2); t4=C_slot(t3,C_fix(2)); t5=C_i_car(t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_9478,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]=t6,a[19]=((C_word*)t0)[17],a[20]=((C_word*)t0)[18],tmp=(C_word)a,a+=21,tmp); /* scrutinizer.scm:721: procedure-name */ f_14689(t7,t6);} /* k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 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_9478,2,av);} a=C_alloc(38); t2=t1; t3=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_9481,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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],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[15]; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10017,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_10019,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_10019(t13,t9,((C_word*)t0)[4]);} /* a18472 in check-and-validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_18473(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18473,5,av);} if(C_truep(t2)){ t5=t2; t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* scrutinizer.scm:2111: error */ t5=*((C_word*)lf[360]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[361]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k18469 in a18462 in check-and-validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_18471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18471,2,av);} /* scrutinizer.scm:2109: validate-type */ t2=*((C_word*)lf[278]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop751 in k7371 in k7368 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7401(C_word t0,C_word t1,C_word 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_7401,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_7426,a[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:436: g757 */ t5=((C_word*)t0)[4]; f_7389(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);}}} /* k10084 in map-loop1290 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10086(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_10086,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((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_10057(t7,((C_word*)t0)[6],t5,t6);} /* ##compiler#install-specializations in k6121 in k6118 in k6115 */ static void C_ccall f_18488(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_18488,4,av);} a=C_alloc(24); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18491,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_18517,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t10=C_i_check_list_2(t3,lf[89]); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18742,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_18744,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_18744(t15,t11,t3);} /* a13747 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ 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=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_13748,3,av);} /* scrutinizer.scm:1421: test */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; f_13530(4,av2);}} /* ##compiler#check-and-validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_18454(C_word c,C_word *av){ C_word tmp; C_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_18454,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_18463,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18473,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2108: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t8; av2[3]=t9; C_call_with_values(4,av2);}} /* a12250 in loop in match-argument-types in k6121 in k6118 in k6115 */ 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=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_12251,3,av);} t3=C_i_cadr(((C_word*)t0)[2]); /* scrutinizer.scm:1175: match-types */ t4=lf[126];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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; f_10768(6,av2);}} /* k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_fcall f_13739(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,5)))){ C_save_and_reclaim_args((void *)trf_13739,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_cdr(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13748,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1417: over-all-instantiations */ f_19983(((C_word*)t0)[5],t2,((C_word*)t0)[6],C_SCHEME_FALSE,t3);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13758,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_i_pairp(((C_word*)t0)[4]))){ t3=((C_word*)t0)[4]; t4=C_u_i_car(t3); t5=t2; f_13758(t5,C_eqp(lf[113],t4));} else{ t3=t2; f_13758(t3,C_SCHEME_FALSE);}}} /* k8613 in loop in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8615(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,4)))){ C_save_and_reclaim((void *)f_8615,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8618,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|6,a[1]=(C_word)f_8634,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)[10],tmp=(C_word)a,a+=7,tmp); t5=C_slot(((C_word*)t0)[7],C_fix(1)); t6=C_eqp(t5,lf[136]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8666,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:564: get */ t8=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[10]; av2[3]=((C_word*)t0)[8]; av2[4]=lf[75]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t7=t4; f_8634(t7,C_SCHEME_FALSE);}} /* k8616 in k8613 in loop in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_8618(C_word t0,C_word t1){ C_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,4)))){ C_save_and_reclaim_args((void *)trf_8618,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_a_i_cons(&a,2,C_a_i_cons(&a,2,t7,((C_word*)t0)[4]),((C_word*)t0)[5]); /* scrutinizer.scm:568: loop */ t9=((C_word*)((C_word*)t0)[6])[1]; f_8588(t9,((C_word*)t0)[7],t3,t5,t8);} /* ##compiler#simplify-type in k6121 in k6118 in k6115 */ 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=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(28,c,3)))){ C_save_and_reclaim((void *)f_12284,3,av);} a=C_alloc(28); 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_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|3,a[1]=(C_word)f_12287,a[2]=t4,a[3]=t10,tmp=(C_word)a,a+=4,tmp)); t14=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12326,a[2]=t4,a[3]=t6,a[4]=t12,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t15=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13168,a[2]=t8,a[3]=t1,a[4]=t10,a[5]=t6,a[6]=t12,a[7]=t4,tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:1311: simplify */ t16=((C_word*)t12)[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t15; av2[2]=t2; f_12326(3,av2);}} /* a13728 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ 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=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_13729,3,av);} /* scrutinizer.scm:1415: test */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[3]; f_13530(4,av2);}} /* subst in simplify-type in k6121 in k6118 in k6115 */ static void C_fcall f_12287(C_word t0,C_word t1,C_word 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_12287,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_symbolp(t2))){ t3=C_i_assq(t2,((C_word*)((C_word*)t0)[2])[1]); t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=(C_truep(t3)?C_i_cdr(t3):t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12316,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=t2; t5=C_u_i_car(t4); /* scrutinizer.scm:1196: subst */ t7=t3; t8=t5; t1=t7; t2=t8; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_fcall f_13720(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,5)))){ C_save_and_reclaim_args((void *)trf_13720,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=C_i_cdr(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13729,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1411: over-all-instantiations */ f_19983(((C_word*)t0)[5],t2,((C_word*)t0)[6],C_SCHEME_TRUE,t3);} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13739,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],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_13739(t5,C_eqp(lf[17],t4));} else{ t3=t2; f_13739(t3,C_SCHEME_FALSE);}}} /* k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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(23,c,3)))){ C_save_and_reclaim((void *)f_9481,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_9484,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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],tmp=(C_word)a,a+=23,tmp); if(C_truep(((C_word*)t0)[8])){ /* tweaks.scm:57: ##sys#get */ t4=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; av2[3]=lf[184]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_9484(2,av2);}}} /* k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_9487,2,av);} a=C_alloc(29); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9492,a[2]=((C_word*)t0)[2],a[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_9498,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)[3],a[8]=((C_word*)t0)[5],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]=t2,a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[4],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],tmp=(C_word)a,a+=23,tmp); /* scrutinizer.scm:701: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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(24,c,3)))){ C_save_and_reclaim((void *)f_9484,2,av);} a=C_alloc(24); t2=t1; t3=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_9487,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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)[8])){ /* tweaks.scm:57: ##sys#get */ t4=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; av2[3]=lf[121]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_9487(2,av2);}}} /* k10042 in map-loop1361 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10044(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10044,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10019(t6,((C_word*)t0)[5],t5);} /* k9417 in g1296 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9419,2,av);} a=C_alloc(13); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9425,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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]=t3,a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],tmp=(C_word)a,a+=13,tmp); /* scrutinizer.scm:709: ##sys#print */ t6=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[178]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9413 in g1296 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_9415,2,av);} a=C_alloc(11); t2=C_a_i_list1(&a,1,t1); t3=C_a_i_list1(&a,1,((C_word*)t0)[2]); t4=((C_word*)t0)[3]; t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[94],lf[130],t2,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k12263 in loop in match-argument-types in k6121 in k6118 in k6115 */ 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 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_12265,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:1178: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_12218(t6,((C_word*)t0)[5],t3,t5);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8604 in loop in walk in scrutinize in k6121 in k6118 in k6115 */ 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,8)))){ C_save_and_reclaim((void *)f_8606,2,av);} /* scrutinizer.scm:555: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8123(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]);} /* map-loop1290 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_10057(C_word t0,C_word t1,C_word 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_10057,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_10086,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:703: g1296 */ t9=((C_word*)t0)[4]; f_9394(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);}}} /* k14866 in loop1 in procedure-argument-types in k6121 in k6118 in k6115 */ static void C_fcall f_14868(C_word t0,C_word t1){ C_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_14868,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_14871,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_14878,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_i_cadr(((C_word*)t0)[5]); t11=C_i_stringp(t10); t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14986,a[2]=t9,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); if(C_truep(t11)){ t13=t12; f_14986(t13,t11);} else{ t13=((C_word*)t0)[5]; t14=C_u_i_cdr(t13); t15=C_u_i_car(t14); t16=t12; f_14986(t16,C_i_symbolp(t15));}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15007,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_15007(t5,C_eqp(lf[19],t4));} else{ t3=t2; f_15007(t3,C_SCHEME_FALSE);}}} /* loop1 in procedure-argument-types in k6121 in k6118 in k6115 */ static void C_fcall f_14861(C_word t0,C_word 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_14861,4,t0,t1,t2,t3);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14868,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_14868(t7,C_eqp(lf[100],t6));} else{ t5=t4; f_14868(t5,C_SCHEME_FALSE);}} /* merge-argument-types in k6121 in k6118 in k6115 */ static void C_ccall f_13229(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(14,c,3)))){ C_save_and_reclaim((void *)f_13229,4,av);} a=C_alloc(14); if(C_truep(C_i_nullp(t2))){ if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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[217]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[216]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t5=t3; t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=lf[252]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} else{ if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[253]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=C_eqp(lf[217],t4); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13268,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_13268(t9,C_eqp(lf[217],t8));} else{ t7=t6; f_13268(t7,C_SCHEME_FALSE);}} else{ t6=t2; t7=C_u_i_car(t6); t8=C_eqp(lf[216],t7); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13313,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_13313(t12,C_eqp(lf[216],t11));} else{ t10=t9; f_13313(t10,C_SCHEME_FALSE);}} else{ t9=C_i_car(t3); if(C_truep((C_truep(C_eqp(t9,lf[217]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[216]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ /* scrutinizer.scm:1350: merge-argument-types */ t10=*((C_word*)lf[239]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t1; av2[2]=t3; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13374,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[17],t12,t14); /* scrutinizer.scm:1351: simplify-type */ t16=*((C_word*)lf[56]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t10; av2[2]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}}}}}}} /* k7192 in pp-fragment in scrutinize in k6121 in k6118 in k6115 */ 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,2)))){ C_save_and_reclaim((void *)f_7194,2,av);} /* scrutinizer.scm:310: string-chomp */ t2=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a7195 in pp-fragment in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7196,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7204,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:313: fragment */ f_7079(t2,((C_word*)t0)[3]);} /* k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_fcall f_13878(C_word t0,C_word t1){ C_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_13878,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=((C_word*)((C_word*)t0)[3])[1]; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13886,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=((C_word*)t0)[4]; t7=C_u_i_cdr(t6); /* scrutinizer.scm:1439: every */ t8=*((C_word*)lf[18]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=((C_word*)t0)[5]; 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_13898,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); t3=((C_word*)t0)[4]; t4=C_u_i_car(t3); t5=C_eqp(lf[211],t4); if(C_truep(t5)){ t6=C_i_car(((C_word*)t0)[2]); t7=t2; f_13898(t7,C_eqp(lf[57],t6));} else{ t6=t2; f_13898(t6,C_SCHEME_FALSE);}}} /* k7182 in fragment in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7184(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7184,2,av);} /* scrutinizer.scm:297: build-expression-tree */ t2=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9452 in k9423 in k9417 in g1296 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9454,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9460,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); /* scrutinizer.scm:713: ##sys#print */ t6=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[177]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* pp-fragment in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7186(C_word t0,C_word t1,C_word 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_7186,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7194,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7196,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:311: with-output-to-string */ t5=*((C_word*)lf[97]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k9423 in k9417 in g1296 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,4)))){ C_save_and_reclaim((void *)f_9425,2,av);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9428,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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_9448,a[2]=t2,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_zerop(((C_word*)t0)[12]))){ /* scrutinizer.scm:709: ##sys#print */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[176]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9454,a[2]=t3,a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:713: open-output-string */ t5=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k9426 in k9423 in k9417 in g1296 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9428(C_word c,C_word *av){ C_word tmp; C_word t0=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_9428,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9431,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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); /* scrutinizer.scm:709: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[175]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7173 in walk in k7081 in fragment in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7175(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7175,2,av);} /* scrutinizer.scm:304: append */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[91]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* noreturn-type? in k6121 in k6118 in k6115 */ 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=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_15338,3,av);} t3=C_eqp(lf[76],t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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[17]); if(C_truep(t6)){ t7=t2; t8=C_u_i_cdr(t7); /* scrutinizer.scm:1657: any */ t9=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t1; av2[2]=lf[271]; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t7=C_eqp(t5,lf[19]); if(C_truep(t7)){ t8=C_i_caddr(t2); /* scrutinizer.scm:1658: noreturn-type? */ t10=t1; t11=t8; t1=t10; t2=t11; c=3; goto loop;} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k9435 in k9432 in k9429 in k9426 in k9423 in k9417 in g1296 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9437(C_word c,C_word *av){ C_word tmp; C_word t0=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_9437,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9440,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:709: get-output-string */ t3=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k9429 in k9426 in k9423 in k9417 in g1296 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9431(C_word c,C_word *av){ C_word tmp; C_word t0=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_9431,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9434,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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); /* scrutinizer.scm:709: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[11]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9432 in k9429 in k9426 in k9423 in k9417 in g1296 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_9434,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9437,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:709: ##sys#write-char-0 */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(39); av2[3]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* g1431 in k9557 in k9554 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_9569(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_9569,3,t0,t1,t2);} t3=lf[102]; /* scrutinizer.scm:744: g1448 */ t4=lf[102];{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; f_15740(4,av2);}} /* k12825 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_12827,2,av);} a=C_alloc(6); t2=C_eqp(t1,lf[60]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[57]; ((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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_list(&a,2,t4,t1); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k17698 in a17595 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_17700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17700,2,av);} /* scrutinizer.scm:2000: append */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop3748 in a17595 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_17702(C_word t0,C_word t1,C_word 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_17702,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_17727,a[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:2000: g3754 */ t5=((C_word*)t0)[4]; f_17653(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);}}} /* map-loop1425 in k9557 in k9554 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_9581(C_word t0,C_word t1,C_word 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_9581,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_9606,a[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:744: g1431 */ t5=((C_word*)t0)[4]; f_9569(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);}}} /* k20415 in map-loop4614 in a20368 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_20417,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_20392(t6,((C_word*)t0)[5],t5);} /* match-results in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_10964(C_word t0,C_word t1,C_word 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_10964,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_eqp(lf[60],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[60],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_10998,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[25]))?C_SCHEME_TRUE:(C_truep(C_eqp(t7,lf[76]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t8=C_i_car(t3); t9=t6; f_10998(t9,C_u_i_memq(t8,lf[220]));} else{ t8=t6; f_10998(t8,C_SCHEME_FALSE);}}}}}} /* k13212 in g2494 in a13190 in k13166 in simplify-type in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_13214,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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 match-argument-types in k6121 in k6118 in k6115 */ static void C_fcall f_12218(C_word t0,C_word t1,C_word 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_12218,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[234],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[217]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12251,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1173: every */ t8=*((C_word*)lf[18]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t1; av2[2]=t7; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12265,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:1177: match-types */ t11=lf[126];{ 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; f_10768(6,av2);}}}}}} /* k17725 in map-loop3748 in a17595 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ 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 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_17727,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_17702(t6,((C_word*)t0)[5],t5);} /* k13989 in k13977 in k13938 in k13918 in k13896 in k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_ccall f_13991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13991,2,av);} if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); /* scrutinizer.scm:1451: test */ t3=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=((C_word*)t0)[5]; f_13530(4,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* match-argument-types in k6121 in k6118 in k6115 */ static void C_fcall f_12212(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_12212,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_12218,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_12218(t8,t1,t2,t3);} /* k10928 in a10922 in match-rest in match-types in k6121 in k6118 in k6115 */ 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; 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_10930,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:963: rest-type */ f_15260(t2) ); /* scrutinizer.scm:963: match1 */ t4=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t3; f_11054(4,av2);}} else{ /* scrutinizer.scm:963: match1 */ t2=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[60]; f_11054(4,av2);}}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g2494 in a13190 in k13166 in simplify-type in k6121 in k6118 in k6115 */ static void C_fcall f_13206(C_word t0,C_word t1,C_word 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_13206,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13214,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_i_cadr(t2); /* scrutinizer.scm:1320: simplify */ t5=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; f_12326(3,av2);}} /* k17769 in k17763 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ 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(3,c,1)))){ C_save_and_reclaim((void *)f_17771,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?C_a_i_cons(&a,2,lf[17],((C_word*)t0)[3]):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop3789 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_17776(C_word t0,C_word t1,C_word 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_17776,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_17801,a[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:2022: g3795 */ 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);}}} /* a10946 in a10922 in match-rest in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_10947(C_word c,C_word *av){ C_word tmp; C_word 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_10947,3,av);} t3=C_eqp(lf[216],t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* scrutinizer.scm:961: match1 */ t4=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; f_11054(4,av2);}}} /* g522 in k7112 in walk in k7081 in fragment in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7121(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_7121,3,t0,t1,t2);} /* scrutinizer.scm:306: g536537 */ 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);}} /* k9446 in k9423 in k9417 in g1296 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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(0,c,4)))){ C_save_and_reclaim((void *)f_9448,2,av);} /* scrutinizer.scm:709: ##sys#print */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9442 in k9438 in k9435 in k9432 in k9429 in k9426 in k9423 in k9417 in g1296 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9444,2,av);} /* scrutinizer.scm:707: single */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6868(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,((C_word*)t0)[6]);} /* k9438 in k9435 in k9432 in k9429 in k9426 in k9423 in k9417 in g1296 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,8)))){ C_save_and_reclaim((void *)f_9440,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9444,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:715: walk */ t4=((C_word*)((C_word*)t0)[6])[1]; f_8123(t4,t3,((C_word*)t0)[4],((C_word*)t0)[7],((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[8],C_SCHEME_FALSE);} /* k7112 in walk in k7081 in fragment in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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,c,3)))){ C_save_and_reclaim((void *)f_7114,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_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); t7=t6; t8=((C_word*)((C_word*)t0)[3])[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7121,a[2]=t8,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t10=C_i_check_list_2(t1,lf[89]); 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_7133,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_7133(t14,((C_word*)t0)[4],t1);} /* a10916 in a10910 in match-rest in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_10917(C_word c,C_word *av){ C_word 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_10917,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_eqp(lf[217],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a10910 in match-rest in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_10911(C_word c,C_word *av){ C_word tmp; C_word t0=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_10911,2,av);} a=C_alloc(2); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10917,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:957: break */ t3=*((C_word*)lf[219]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(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);}} /* k17763 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_17765,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17771,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2023: every */ t4=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[353]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k13273 in k13266 in merge-argument-types in k6121 in k6118 in k6115 */ static void C_ccall f_13275(C_word c,C_word *av){ C_word tmp; 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_13275,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[217],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15156 in a15113 in k15107 in loop1 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_15158(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,1)))){ C_save_and_reclaim_args((void *)trf_15158,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_15122(t2,C_i_cdddr(((C_word*)t0)[3]));} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[2]; f_15122(t4,C_u_i_cdr(t3));}} /* k15148 in loop in k15120 in a15113 in k15107 in loop1 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_15150(C_word c,C_word *av){ C_word tmp; 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_15150,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k13266 in merge-argument-types in k6121 in k6118 in k6115 */ static void C_fcall f_13268(C_word t0,C_word t1){ C_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_13268,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13275,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:1340: rest-type */ f_15260(t4) ); t6=C_i_cdr(((C_word*)t0)[4]); t7=( /* scrutinizer.scm:1341: rest-type */ f_15260(t6) ); t8=C_a_i_list(&a,3,lf[17],t5,t7); /* scrutinizer.scm:1339: simplify-type */ t9=*((C_word*)lf[56]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t2; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[254]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* compatible-types? in k6121 in k6118 in k6115 */ static void C_fcall f_13493(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_13493,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13497,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1368: type<=? */ t5=lf[182];{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=t3; f_13520(4,av2);}} /* k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19596,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19671,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19865,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2391: ##sys#put! */ t4=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[90]; av2[3]=lf[183]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k13495 in compatible-types? in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13497,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* scrutinizer.scm:1369: type<=? */ t2=lf[182];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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]; f_13520(4,av2);}}} /* k15120 in a15113 in k15107 in loop1 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_15122(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_15122,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_15124,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_15124(t5,((C_word*)t0)[3],t1);} /* loop in k15120 in a15113 in k15107 in loop1 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_15124(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_15124,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[60]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[76]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ /* scrutinizer.scm:1620: return */ t4=((C_word*)t0)[2];{ 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=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15150,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); /* scrutinizer.scm:1621: loop */ t10=t6; t11=t8; t1=t10; t2=t11; goto loop;}}} /* k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_19590,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19593,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20369,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2377: ##sys#put! */ t4=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[375]; av2[3]=lf[183]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19593,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19596,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20304,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2381: ##sys#put! */ t4=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[243]; av2[3]=lf[183]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k9506 in smash in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_9508(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_9508,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9511,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:735: smash-component-types! */ f_10575(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);}}} /* smash in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_9501(C_word 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_9501,2,t0,t1);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9508,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t3=*((C_word*)lf[72]+1); if(C_truep(*((C_word*)lf[72]+1))){ t4=t2; f_9508(t4,C_SCHEME_FALSE);} else{ t4=C_i_not(((C_word*)t0)[4]); if(C_truep(t4)){ t5=t2; f_9508(t5,t4);} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9550,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* tweaks.scm:57: ##sys#get */ t6=*((C_word*)lf[67]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; av2[3]=lf[180]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}} /* k9509 in k9506 in smash in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9511,2,av);} /* scrutinizer.scm:736: smash-component-types! */ f_10575(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]);} /* for-each-loop3045 in loop in type-typeenv in k6121 in k6118 in k6115 */ static void C_fcall f_15672(C_word t0,C_word t1,C_word 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_15672,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_15682,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:1687: g3046 */ 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);}}} /* k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_fcall f_13758(C_word t0,C_word 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_13758,2,t0,t1);} a=C_alloc(6); 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[113],t3); if(C_truep(t4)){ t5=C_i_cadr(((C_word*)t0)[2]); t6=C_i_cadr(((C_word*)t0)[3]); /* scrutinizer.scm:1424: test */ t7=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[4]; av2[0]=t7; av2[1]=((C_word*)t0)[5]; av2[2]=t5; av2[3]=t6; f_13530(4,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);}}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13789,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); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=t2; f_13789(t5,C_eqp(lf[113],t4));} else{ t3=t2; f_13789(t3,C_SCHEME_FALSE);}}} /* a10492 in k10447 in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10493,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10497,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:878: print */ t3=*((C_word*)lf[207]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[208]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k10495 in a10492 in k10447 in scrutinize in k6121 in k6118 in k6115 */ 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_10497,2,av);} a=C_alloc(5); t2=lf[13]; t3=C_i_check_list_2(lf[13],lf[141]); 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_10531,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_10531(t7,((C_word*)t0)[2],lf[13]);} /* k9539 in k9548 in smash in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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,1)))){ C_save_and_reclaim((void *)f_9541,2,av);} t2=((C_word*)t0)[2]; f_9508(t2,C_i_not(t1));} /* k9557 in k9554 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 t3; C_word t4; C_word t5; C_word 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_9559,2,av);} a=C_alloc(16); t2=C_eqp(lf[60],((C_word*)((C_word*)t0)[2])[1]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_9569,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[89]); 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_9581,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_9581(t13,((C_word*)t0)[3],t8);}} /* k9554 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9556,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9559,a[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:739: smash */ t3=((C_word*)t0)[5]; f_9501(t3,t2);} /* k9548 in smash in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9550(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9550,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_9508(t2,C_SCHEME_FALSE);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9541,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* tweaks.scm:57: ##sys#get */ t3=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[179]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k12920 in map-loop2368 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_12922,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_12897(t6,((C_word*)t0)[5],t5);} /* k10447 in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10449,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10452,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[13]))){ t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10493,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:875: with-debugging-output */ t5=*((C_word*)lf[209]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=lf[210]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_10452(2,av2);}}} /* procedure-argument-types in k6121 in k6118 in k6115 */ static void C_fcall f_14852(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_14852,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_14861,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_14861(t12,t1,t2,C_SCHEME_END_OF_LIST);} /* g4475 in k19508 in k19502 */ static void C_fcall f_19514(C_word t0,C_word t1,C_word 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_19514,3,t0,t1,t2);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19518,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19522,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]=t2,tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2337: node-source-prefix */ t5=*((C_word*)lf[26]+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);}} /* k19516 in g4475 in k19508 in k19502 */ static void C_ccall f_19518(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19518,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19508 in k19502 */ static void C_fcall f_19510(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_19510,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19514,a[2]=((C_word*)t0)[2],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:2321: g4475 */ t3=t2; f_19514(t3,((C_word*)t0)[7],t1);} else{ t2=((C_word*)t0)[8]; t3=((C_word*)t0)[9];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10456 in k10453 in k10450 in k10447 in scrutinize in k6121 in k6118 in k6115 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10458,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10461,a[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_positivep(((C_word*)((C_word*)t0)[5])[1]))){ /* scrutinizer.scm:888: debugging */ t3=*((C_word*)lf[160]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[200]; av2[3]=lf[201]; av2[4]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_10461(2,av2);}}} /* k10453 in k10450 in k10447 in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10455,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10458,a[2]=((C_word*)t0)[2],a[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_positivep(((C_word*)((C_word*)t0)[6])[1]))){ /* scrutinizer.scm:886: debugging */ t3=*((C_word*)lf[160]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[202]; av2[3]=lf[203]; 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_10458(2,av2);}}} /* k10450 in k10447 in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10452(C_word c,C_word *av){ C_word tmp; C_word t0=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_10452,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10455,a[2]=((C_word*)t0)[2],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_positivep(((C_word*)((C_word*)t0)[7])[1]))){ /* scrutinizer.scm:884: debugging */ t3=*((C_word*)lf[160]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[204]; av2[3]=lf[205]; 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_10455(2,av2);}}} /* k19520 in g4475 in k19508 in k19502 */ static void C_ccall f_19522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_19522,2,av);} a=C_alloc(12); t2=C_i_car(((C_word*)t0)[2]); t3=C_slot(t2,C_fix(2)); t4=C_i_car(t3); /* scrutinizer.scm:2334: report */ f_19168(((C_word*)t0)[4],((C_word*)t0)[5],lf[369],C_a_i_list(&a,4,t1,t4,((C_word*)t0)[6],((C_word*)t0)[7]));} /* k10459 in k10456 in k10453 in k10450 in k10447 in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_10461,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10464,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:890: quit */ t3=*((C_word*)lf[191]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[199]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10462 in k10459 in k10456 in k10453 in k10450 in k10447 in scrutinize in k6121 in k6118 in k6115 */ 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,1)))){ C_save_and_reclaim((void *)f_10464,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_19578,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19581,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20615,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20617,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2358: list+index-call-result-type-special-case */ t5=((C_word*)((C_word*)t0)[3])[1]; f_19422(t5,t3,t4);} /* k14876 in k14866 in loop1 in procedure-argument-types in k6121 in k6118 in k6115 */ static void C_fcall f_14878(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_14878,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_14880,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_14880(t5,((C_word*)t0)[6],t1,((C_word*)t0)[7],C_SCHEME_FALSE);} /* k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ 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 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_19575,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19578,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_20625,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20627,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2354: list+index-call-result-type-special-case */ t5=((C_word*)((C_word*)t0)[3])[1]; f_19422(t5,t3,t4);} /* k14869 in k14866 in loop1 in procedure-argument-types in k6121 in k6118 in k6115 */ static void C_ccall f_14871(C_word c,C_word *av){ C_word tmp; C_word 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_14871,2,av);} /* scrutinizer.scm:1598: values */{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20112 in map-loop4854 in k20052 in collect in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in ... */ static void C_ccall f_20114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_20114,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_20089(t6,((C_word*)t0)[5],t5);} /* k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19572(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_19572,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19575,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_20635,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20637,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2350: list+index-call-result-type-special-case */ t5=((C_word*)((C_word*)t0)[3])[1]; f_19422(t5,t3,t4);} /* k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19587,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19590,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20426,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2373: ##sys#put! */ t4=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[57]; av2[3]=lf[183]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19584,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19587,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20483,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2367: ##sys#put! */ t4=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[377]; av2[3]=lf[183]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k20123 in collect in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20125,2,av);} /* scrutinizer.scm:2497: delete-duplicates */ t2=*((C_word*)lf[358]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[245]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19581(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19581,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19584,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20548,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2361: ##sys#put! */ t4=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[54]; av2[3]=lf[183]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k12976 in map-loop2397 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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 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_12978,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_12953(t6,((C_word*)t0)[5],t5);} /* k7891 in map-loop600 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7893,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7868(t6,((C_word*)t0)[5],t5);} /* k20133 in collect in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20135,2,av);} /* scrutinizer.scm:2497: concatenate */ t2=*((C_word*)lf[372]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop4827 in collect in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in ... */ static void C_fcall f_20137(C_word t0,C_word t1,C_word 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_20137,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_20162,a[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:2497: g4833 */ 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);}}} /* k15680 in for-each-loop3045 in loop in type-typeenv in k6121 in k6118 in k6115 */ static void C_ccall f_15682(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15682,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_15672(t3,((C_word*)t0)[4],t2);} /* k20533 in map-loop4546 in a20482 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_20535,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_20510(t6,((C_word*)t0)[5],t5);} /* loop in k14876 in k14866 in loop1 in procedure-argument-types in k6121 in k6118 in k6115 */ static void C_fcall f_14880(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 *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_14880,5,t0,t1,t2,t3,t4);} a=C_alloc(12); if(C_truep(C_i_nullp(t2))){ t5=t4; if(C_truep(t5)){ t6=C_mutate2(((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=C_i_zerop(t3); t7=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t6); t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t5=C_i_car(t2); t6=C_eqp(lf[216],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:1587: loop */ t22=t1; t23=t8; t24=t3; t25=C_SCHEME_TRUE; t1=t22; t2=t23; t3=t24; t4=t25; goto loop;}} else{ t7=t2; t8=C_u_i_car(t7); t9=C_eqp(lf[217],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_14921,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_14921(t14,C_eqp(lf[269],t13));} else{ t13=t10; f_14921(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=C_i_positivep(t3); t12=C_set_block_item(((C_word*)t0)[2],0,t11); t13=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[6])[1],C_fix(1)); t14=C_mutate2(((C_word *)((C_word*)t0)[6])+1,t13); t15=t2; t16=C_u_i_car(t15); t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14965,a[2]=t1,a[3]=t16,tmp=(C_word)a,a+=4,tmp); t18=t2; t19=C_u_i_cdr(t18); t20=C_a_i_minus(&a,2,t3,C_fix(1)); /* scrutinizer.scm:1597: loop */ t22=t17; t23=t19; t24=t20; t25=t4; t1=t22; t2=t23; t3=t24; t4=t25; goto loop;}}}}} /* k17910 in k17886 in k17883 in g3825 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_17912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_17912,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[100],t4); /* scrutinizer.scm:2039: validate */ t6=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[4]; av2[2]=t5; av2[3]=((C_word*)t0)[5]; f_17486(4,av2);}} /* k20506 in a20482 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_20508,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[54],t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k17918 in k17886 in k17883 in g3825 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_17920(C_word t0,C_word 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_17920,2,t0,t1);} a=C_alloc(20); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17924,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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*)((C_word*)t0)[2])[1]); t4=C_a_i_list(&a,1,t3); t5=C_i_caddr(((C_word*)((C_word*)t0)[2])[1]); t6=C_a_i_list(&a,3,lf[100],t4,t5); /* scrutinizer.scm:2045: validate */ t7=((C_word*)((C_word*)t0)[7])[1];{ C_word av2[4]; av2[0]=t7; av2[1]=t2; av2[2]=t6; av2[3]=((C_word*)t0)[8]; f_17486(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);}}} /* k17922 in k17918 in k17886 in k17883 in g3825 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_17924(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_17924,2,av);} a=C_alloc(6); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17935,a[2]=((C_word*)t0)[2],a[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:2048: validate */ t5=((C_word*)((C_word*)t0)[7])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; f_17486(3,av2);}} /* k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_7866,2,av);} a=C_alloc(26); t2=C_a_i_list(&a,3,lf[100],t1,lf[60]); t3=t2; t4=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_7313,a[2]=((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],tmp=(C_word)a,a+=17,tmp); /* scrutinizer.scm:331: append-map */ t5=*((C_word*)lf[117]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[118]+1); av2[3]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7860 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 *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]; f_7322(t2,C_i_not(t1));} /* map-loop4546 in a20482 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_fcall f_20510(C_word t0,C_word t1,C_word 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_20510,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_20535,a[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:2371: g4552 */ 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);}}} /* g3966 in g3952 in k18351 in validate-type in k6121 in k6118 in k6115 */ static C_word C_fcall f_18396(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*)((C_word*)t0)[2])[1]); if(C_truep(t2)){ return(t2);} else{ t3=t1; return(t3);}} /* k17933 in k17922 in k17918 in k17886 in k17883 in g3825 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_17935(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_17935,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],t1); t3=C_mutate2(((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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k20160 in map-loop4827 in collect in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in ... */ static void C_ccall f_20162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_20162,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_20137(t6,((C_word*)t0)[5],t5);} /* k12893 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12895(C_word c,C_word *av){ C_word tmp; 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_12895,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[54],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop2368 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_12897,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_12922,a[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:1292: g2374 */ 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);}}} /* k18362 in k18359 in g3952 in k18351 in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_18364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_18364,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:2102: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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:2102: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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:2102: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k18359 in g3952 in k18351 in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_18361(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_18361,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18364,a[2]=((C_word*)t0)[2],a[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:2101: simplify-type */ t3=*((C_word*)lf[56]+1);{ C_word av2[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);}} /* g3952 in k18351 in validate-type in k6121 in k6118 in k6115 */ 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 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_18357,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_18361,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_18396,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18409,a[2]=t3,a[3]=t4,a[4]=t9,a[5]=t7,a[6]=t8,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2099: delete-duplicates */ t11=*((C_word*)lf[358]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=t10; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=*((C_word*)lf[245]+1); ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ t5=t4; f_18361(t5,C_SCHEME_UNDEFINED);}} /* k8156 in walk in scrutinize in k6121 in k6118 in k6115 */ 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(4,c,1)))){ C_save_and_reclaim((void *)f_8158,2,av);} a=C_alloc(4); t2=C_a_i_minus(&a,2,lf[0],C_fix(1)); t3=C_mutate2(&lf[0] /* (set! d-depth ...) */,t2); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k18351 in validate-type in k6121 in k6118 in k6115 */ 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(6,c,4)))){ C_save_and_reclaim((void *)f_18353,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18357,a[2]=((C_word*)t0)[2],a[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:1924: g3952 */ t3=t2; f_18357(t3,((C_word*)t0)[6],t1);} else{ /* scrutinizer.scm:2106: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k19502 */ static void C_ccall f_19504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_19504,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=t1; if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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_19510,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)[3],a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp); t3=C_eqp(((C_word*)t0)[10],lf[21]); if(C_truep(t3)){ t4=t2; f_19510(t4,C_fix(0));} else{ if(C_truep(C_i_pairp(((C_word*)t0)[10]))){ t4=C_u_i_car(((C_word*)t0)[10]); t5=C_eqp(t4,lf[54]); if(C_truep(t5)){ t6=C_i_cdr(((C_word*)t0)[10]); t7=t2; f_19510(t7,C_i_length(t6));} else{ t6=t2; f_19510(t6,C_SCHEME_FALSE);}} else{ t4=t2; f_19510(t4,C_SCHEME_FALSE);}}}} /* k7812 in k7805 in doloop656 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_7814,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7818,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_word*)t0)[8]; t5=C_u_i_car(t4); /* scrutinizer.scm:365: resolve */ t6=lf[102];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=((C_word*)((C_word*)t0)[7])[1]; f_15740(4,av2);}} /* k7579 in k7576 in k7573 in k7509 in g680 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 in ... */ static void C_ccall f_7581(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_7581,2,av);} a=C_alloc(14); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7587,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_7620,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[110]); /* scrutinizer.scm:154: ##sys#list->vector */ t7=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7585 in k7579 in k7576 in k7573 in k7509 in g680 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in ... */ static void C_ccall f_7587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7587,2,av);} a=C_alloc(12); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,lf[112]); t3=C_a_i_list(&a,2,lf[113],((C_word*)t0)[3]); t4=C_a_i_list2(&a,2,((C_word*)t0)[3],t3); t5=C_mutate2(((C_word *)((C_word*)t0)[4])+1,t4); t6=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k12852 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_12854,2,av);} a=C_alloc(6); t2=C_eqp(t1,lf[60]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[54]; ((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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_list(&a,2,t4,t1); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k10996 in match-results in match-types in k6121 in k6118 in k6115 */ 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 *a; 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=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_11007,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:975: 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_11054(4,av2);}}} /* k7816 in k7812 in k7805 in doloop656 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_7818,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7822,a[2]=((C_word*)t0)[2],a[3]=((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]; t5=C_u_i_car(t4); /* scrutinizer.scm:366: resolve */ t6=lf[102];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=((C_word*)((C_word*)t0)[8])[1]; f_15740(4,av2);}} /* a10922 in match-rest in match-types in k6121 in k6118 in k6115 */ 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=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_10923,4,av);} a=C_alloc(10); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10930,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_10947,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:958: every */ t7=*((C_word*)lf[18]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k7563 in k7509 in g680 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7565(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_7565,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* scrutinizer.scm:377: report-notice */ t3=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[111]; av2[4]=t1; av2[5]=t2; f_6919(6,av2);}} /* k7805 in doloop656 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7807(C_word c,C_word *av){ C_word tmp; C_word t0=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_7807,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_7793(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7814,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); /* scrutinizer.scm:363: pname */ t3=((C_word*)t0)[9]; f_7245(t3,t2);}} /* k12529 in k12526 in k12523 in k12520 in k12517 in a12514 in k12508 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_12531,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12534,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:1239: procedure-results */ f_14796(t3,((C_word*)t0)[7]);} /* k12532 in k12529 in k12526 in k12523 in k12520 in k12517 in a12514 in k12508 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_12534,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12541,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_12541(t5,(C_truep(t4)?C_a_i_list1(&a,1,((C_word*)t0)[6]):C_SCHEME_END_OF_LIST));} else{ t4=t3; f_12541(t4,C_SCHEME_END_OF_LIST);}} else{ t4=t3; f_12541(t4,C_SCHEME_END_OF_LIST);}} /* k12547 in k12551 in k12539 in k12532 in k12529 in k12526 in k12523 in k12520 in k12517 in a12514 in k12508 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_12549,2,av);} /* scrutinizer.scm:1240: append */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[237]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* match-rest in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_10905(C_word 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_10905,4,t0,t1,t2,t3);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10911,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10923,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:932: ##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);}} /* map-loop600 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7868,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_7893,a[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:326: g606 */ 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);}}} /* k12520 in k12517 in a12514 in k12508 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_12522,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12525,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:1236: procedure-results */ f_14796(t3,((C_word*)t0)[5]);} /* k7842 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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; 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,8)))){ C_save_and_reclaim((void *)f_7844,2,av);} t2=C_i_nequalp(((C_word*)t0)[2],C_fix(1)); t3=(C_truep(t2)?lf[80]:lf[81]); t4=C_i_nequalp(((C_word*)t0)[3],C_fix(1)); t5=(C_truep(t4)?lf[80]:lf[81]); /* scrutinizer.scm:346: report */ t6=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t6; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=lf[127]; av2[4]=t1; av2[5]=((C_word*)t0)[2]; av2[6]=t3; av2[7]=((C_word*)t0)[3]; av2[8]=t5; f_6995(9,av2);}} /* k7573 in k7509 in g680 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7575,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_7578,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_a_i_list(&a,2,lf[113],((C_word*)t0)[4]); t4=C_a_i_list1(&a,1,t3); t5=C_u_i_cdr(((C_word*)t0)[9]); /* scrutinizer.scm:390: match-argument-types */ f_12212(t2,t4,t5,((C_word*)((C_word*)t0)[14])[1]);} /* k7576 in k7573 in k7509 in g680 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7578,2,av);} a=C_alloc(15); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7581,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_7636,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[10],a[4]=t2,a[5]=((C_word*)t0)[11],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:395: pname */ t4=((C_word*)t0)[12]; f_7245(t4,t3);} else{ /* scrutinizer.scm:402: trail-restore */ f_15706(((C_word*)t0)[6],((C_word*)t0)[13],((C_word*)((C_word*)t0)[14])[1]);}} /* k12508 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ C_save_and_reclaim((void *)f_12510,2,av);} a=C_alloc(2); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[100]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12515,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:1232: reduce */ t3=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* for-each-loop2961 in k15418 in k15409 in loop in type-typeenv in k6121 in k6118 in k6115 */ static void C_fcall f_15437(C_word t0,C_word t1,C_word 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_15437,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_15447,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:1673: g2962 */ 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);}}} /* k12523 in k12520 in k12517 in a12514 in k12508 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_12525,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12528,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:1237: procedure-name */ f_14689(t3,((C_word*)t0)[5]);} /* k12526 in k12523 in k12520 in k12517 in a12514 in k12508 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_12528,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12531,a[2]=((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:1238: procedure-arguments */ f_14740(t3,((C_word*)t0)[6]);} /* k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_12504,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12510,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_12567,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:1230: any */ t4=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12577,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:1247: lset= */ t3=*((C_word*)lf[244]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[245]+1); av2[3]=lf[247]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k12517 in a12514 in k12508 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_12519,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12522,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:1235: procedure-arguments */ f_14740(t3,((C_word*)t0)[4]);} /* a12514 in k12508 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12515(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_12515,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12519,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1234: procedure-name */ f_14689(t4,t2);} /* k15418 in k15409 in loop in type-typeenv in k6121 in k6118 in k6115 */ 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 t3; C_word t4; C_word 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_15420,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[141]); 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_15437,a[2]=t10,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_15437(t12,((C_word*)t0)[4],t7);} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k17562 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ 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(6,c,1)))){ C_save_and_reclaim((void *)f_17564,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[113],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7820 in k7816 in k7812 in k7805 in doloop656 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7822(C_word c,C_word *av){ C_word tmp; C_word 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_7822,2,av);} /* scrutinizer.scm:360: report */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[125]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; av2[7]=t1; f_6995(8,av2);}} /* k15409 in loop in type-typeenv in k6121 in k6118 in k6115 */ static void C_fcall f_15411(C_word t0,C_word t1){ C_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_15411,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_i_caddr(((C_word*)t0)[3]); t4=C_i_check_list_2(t3,lf[141]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15420,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_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_15464,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_15464(t9,t5,t3);} else{ t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_i_cadr(((C_word*)t0)[3]); t4=C_i_check_list_2(t3,lf[141]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15494,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_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_15537,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_15537(t9,t5,t3);}} /* k12587 in k12584 in k12581 in k12575 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_12589,2,av);} a=C_alloc(7); t2=t1; t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); if(C_truep(C_i_equalp(t2,t4))){ t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_12612,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12614,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:1271: any */ t7=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k12584 in k12581 in k12575 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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 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_12586,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12589,a[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_12622,a[2]=((C_word*)t0)[5],a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_12622(t6,t2,t1,C_SCHEME_END_OF_LIST);} /* k12581 in k12575 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_12583,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[51]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12586,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_12702,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1250: append-map */ t4=*((C_word*)lf[117]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* a11988 in k11968 in k11926 in k11824 in k11722 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ 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=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_11992,3,av);} /* scrutinizer.scm:1140: g20982099 */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop2397 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_fcall f_12953(C_word t0,C_word t1,C_word 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_12953,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_12978,a[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:1294: g2403 */ 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);}}} /* k12949 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12951(C_word c,C_word *av){ C_word tmp; 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_12951,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[57],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12575 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12577(C_word c,C_word *av){ C_word tmp; C_word t0=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_12577,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[24]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12583,a[2]=((C_word*)t0)[2],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:1248: lset= */ t3=*((C_word*)lf[244]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[245]+1); av2[3]=lf[246]; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k15384 in type-typeenv in k6121 in k6118 in k6115 */ static void C_ccall f_15386(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15386,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* type-typeenv in k6121 in k6118 in k6115 */ static void C_ccall f_15382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15382,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_15386,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_15388,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t5; av2[2]=t2; f_15388(3,av2);}} /* a17595 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_17596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(29,c,3)))){ C_save_and_reclaim((void *)f_17596,3,av);} a=C_alloc(29); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17601,a[2]=((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_17653,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t9=C_i_cadr(((C_word*)((C_word*)t0)[4])[1]); t10=C_i_check_list_2(t9,lf[89]); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17700,a[2]=t3,a[3]=((C_word*)t0)[2],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_17702,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_17702(t15,t11,t9);} /* k11968 in k11926 in k11824 in k11722 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ 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 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_11970,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[54],t3); if(C_truep(t4)){ t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); t7=C_i_cadr(((C_word*)t0)[3]); t8=t7; t9=((C_word*)((C_word*)t0)[4])[1]; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11992,a[2]=t9,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1136: over-all-instantiations */ f_19983(((C_word*)t0)[5],t6,((C_word*)t0)[6],C_SCHEME_TRUE,t10);} 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_12004,a[2]=((C_word*)t0)[7],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)[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_12004(t5,C_eqp(lf[57],t4));} else{ t3=t2; f_12004(t3,C_SCHEME_FALSE);}}} /* k16769 in k16761 in k16753 in k16742 in k16734 in a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ static void C_ccall f_16771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_16771,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16779,a[2]=((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)[3]; /* tweaks.scm:57: ##sys#get */ t5=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=lf[179]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k16777 in k16769 in k16761 in k16753 in k16742 in k16734 in a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ static void C_ccall f_16779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_16779,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,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],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)[3]; /* tweaks.scm:57: ##sys#get */ t5=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=lf[184]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* loop in type-typeenv in k6121 in k6118 in k6115 */ static void C_ccall f_15388(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_15388,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[100]); if(C_truep(t5)){ t6=C_i_cadr(t2); t7=C_i_stringp(t6); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15411,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(t7)){ t9=t8; f_15411(t9,t7);} else{ t9=t2; t10=C_u_i_cdr(t9); t11=C_u_i_car(t10); t12=t8; f_15411(t12,C_i_symbolp(t11));}} else{ t6=C_eqp(t4,lf[19]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15578,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); 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_cadr(t2); t13=C_i_check_list_2(t12,lf[89]); t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15620,a[2]=t7,a[3]=((C_word*)t0)[3],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|4,a[1]=(C_word)f_15622,a[2]=t10,a[3]=t16,a[4]=t11,tmp=(C_word)a,a+=5,tmp)); t18=((C_word*)t16)[1]; f_15622(t18,t14,t12);} else{ t7=C_eqp(t4,lf[17]); t8=(C_truep(t7)?t7:C_eqp(t4,lf[272])); 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[141]); 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_15672,a[2]=t14,a[3]=t9,tmp=(C_word)a,a+=4,tmp)); t16=((C_word*)t14)[1]; f_15672(t16,t1,t11);} else{ t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k16785 in k16777 in k16769 in k16761 in k16753 in k16742 in k16734 in a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ 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 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_16787,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16790,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16797,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16801,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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|6,a[1]=(C_word)f_16803,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=t7,tmp=(C_word)a,a+=7,tmp)); t9=((C_word*)t7)[1]; f_16803(t9,t5,((C_word*)t0)[8]);} /* k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_17530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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,3)))){ C_save_and_reclaim((void *)f_17530,2,av);} a=C_alloc(16); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[3])[1]))){ t2=C_i_car(((C_word*)((C_word*)t0)[3])[1]); t3=C_eqp(lf[113],t2); if(C_truep(t3)){ t4=C_i_length(((C_word*)((C_word*)t0)[3])[1]); t5=C_eqp(C_fix(2),t4); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17564,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=C_i_cadr(((C_word*)((C_word*)t0)[3])[1]); /* scrutinizer.scm:1993: validate */ t8=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; f_17486(3,av2);}} else{ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t4=C_i_car(((C_word*)((C_word*)t0)[3])[1]); t5=C_eqp(lf[19],t4); if(C_truep(t5)){ t6=C_i_length(((C_word*)((C_word*)t0)[3])[1]); t7=C_eqp(C_fix(3),t6); if(C_truep(t7)){ t8=C_i_cadr(((C_word*)((C_word*)t0)[3])[1]); if(C_truep(C_i_listp(t8))){ t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17596,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); /* scrutinizer.scm:1997: call/cc */ t10=*((C_word*)lf[123]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=((C_word*)t0)[2]; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t9=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t8=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t6=((C_word*)((C_word*)t0)[3])[1]; t7=C_u_i_car(t6); t8=C_eqp(lf[17],t7); if(C_truep(t8)){ if(C_truep(C_i_listp(((C_word*)((C_word*)t0)[3])[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_word*)((C_word*)t0)[4])[1]; t14=((C_word*)((C_word*)t0)[3])[1]; t15=C_u_i_cdr(t14); t16=C_i_check_list_2(t15,lf[89]); t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17765,a[2]=((C_word*)t0)[2],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_17776,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_17776(t21,t17,t15);} else{ t9=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t9=((C_word*)((C_word*)t0)[3])[1]; t10=C_u_i_car(t9); t11=C_eqp(lf[59],t10); if(C_truep(t11)){ t12=C_i_length(((C_word*)((C_word*)t0)[3])[1]); t13=C_eqp(C_fix(2),t12); if(C_truep(t13)){ t14=C_i_cadr(((C_word*)((C_word*)t0)[3])[1]); t15=C_i_symbolp(t14); t16=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=(C_truep(t15)?((C_word*)((C_word*)t0)[3])[1]:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ t14=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t12=((C_word*)((C_word*)t0)[3])[1]; t13=C_u_i_car(t12); t14=C_eqp(lf[61],t13); if(C_truep(t14)){ t15=C_i_length(((C_word*)((C_word*)t0)[3])[1]); t16=C_eqp(C_fix(2),t15); if(C_truep(t16)){ t17=C_i_cadr(((C_word*)((C_word*)t0)[3])[1]); if(C_truep(C_i_symbolp(t17))){ t18=((C_word*)((C_word*)t0)[3])[1]; t19=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t19; av2[1]=t18; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ t18=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}} else{ t17=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t17; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}} else{ t15=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17865,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],tmp=(C_word)a,a+=11,tmp); /* scrutinizer.scm:2031: memq* */ f_17322(t15,lf[354],((C_word*)((C_word*)t0)[3])[1]);}}}}}} else{ if(C_truep(C_i_memq(((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[5])[1]))){ t2=((C_word*)((C_word*)t0)[3])[1]; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}} /* k16753 in k16742 in k16734 in a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ static void C_ccall f_16755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_16755,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16763,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)[3]; /* tweaks.scm:57: ##sys#get */ t5=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=lf[121]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7259 in k7256 in k7253 in k7247 in pname in call-result in scrutinize in k6121 in k6118 in k6115 */ 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(4,c,4)))){ C_save_and_reclaim((void *)f_7261,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7264,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:154: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[98]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7262 in k7259 in k7256 in k7253 in k7247 in pname in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7264,2,av);} /* scrutinizer.scm:154: get-output-string */ t2=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7256 in k7253 in k7247 in pname in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 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_7258,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7261,a[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_7271,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[5]; t5=C_slot(t4,C_fix(3)); t6=C_i_car(t5); /* scrutinizer.scm:325: fragment */ f_7079(t3,t6);} /* k16761 in k16753 in k16742 in k16734 in a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_16763,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16771,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)[3]; /* tweaks.scm:57: ##sys#get */ t5=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=lf[180]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7253 in k7247 in pname in call-result in scrutinize in k6121 in k6118 in k6115 */ 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(7,c,4)))){ C_save_and_reclaim((void *)f_7255,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7258,a[2]=((C_word*)t0)[2],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:154: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[99]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7247 in pname in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_7249,2,av);} a=C_alloc(11); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7255,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); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7288,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:324: node-source-prefix */ t7=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k7518 in k7512 in k7509 in g680 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 t5; C_word *a; 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_mutate2(((C_word *)((C_word*)t0)[2])+1,lf[105]); t3=C_a_i_list2(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t4=C_mutate2(((C_word *)((C_word*)t0)[5])+1,t3); t5=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7242(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 *a; if(C_unlikely(!C_demand(C_calculate_demand(29,0,3)))){ C_save_and_reclaim_args((void *)trf_7242,5,t0,t1,t2,t3,t4);} a=C_alloc(29); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7245,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,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=lf[15]; t11=t3; t12=C_i_check_list_2(t11,lf[89]); t13=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7297,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=t5,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); 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_7868,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_7868(t17,t13,t11);} /* pname in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7245(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_7245,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7249,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:154: open-output-string */ t3=*((C_word*)lf[30]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7551 in k7547 in k7512 in k7509 in g680 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 in ... */ static void C_ccall f_7553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7553,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[106],C_SCHEME_TRUE); t5=C_a_i_list(&a,3,lf[107],t3,t4); /* scrutinizer.scm:383: specialize-node! */ t6=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* doloop3065 in trail-restore in k6121 in k6118 in k6115 */ static C_word C_fcall f_15712(C_word t0,C_word t1){ C_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;}} /* k16795 in k16785 in k16777 in k16769 in k16761 in k16753 in k16742 in k16734 in a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ static void C_ccall f_16797(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16797,2,av);} /* scrutinizer.scm:1830: pp */ t2=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15472 in for-each-loop2944 in k15409 in loop in type-typeenv in k6121 in k6118 in k6115 */ static void C_ccall f_15474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15474,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_15464(t3,((C_word*)t0)[4],t2);} /* k16788 in k16785 in k16777 in k16769 in k16761 in k16753 in k16742 in k16734 in a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16790,2,av);} /* scrutinizer.scm:1847: newline */ t2=*((C_word*)lf[304]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* trail-restore in k6121 in k6118 in k6115 */ static void C_fcall f_15706(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_15706,3,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15712,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_15712(t4,lf[14]) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k10313 in k10300 in loop in k10193 in k10190 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10315,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_i_cdr(((C_word*)t0)[3]); /* scrutinizer.scm:863: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_10206(t5,((C_word*)t0)[5],t3,t4);} /* k10878 in loop in match-args in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_10880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10880,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:953: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_10783(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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k14318 in loop1 in k14018 in k13977 in k13938 in k13918 in k13896 in k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_ccall f_14320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,7)))){ C_save_and_reclaim((void *)f_14320,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:1505: loop1 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_14155(t4,((C_word*)t0)[4],t3,C_SCHEME_END_OF_LIST,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9843 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9845,2,av);} t2=((C_word*)t0)[2]; f_9636(t2,(C_truep(t1)?C_SCHEME_FALSE:C_i_not(((C_word*)t0)[3])));} /* k16698 in k16190 in load-type-database in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16700,2,av);} /* scrutinizer.scm:1751: file-exists? */ t2=*((C_word*)lf[299]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop1674 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_10375(C_word t0,C_word t1,C_word 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_10375,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_10385,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:867: g1675 */ t5=((C_word*)t0)[3]; f_10363(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);}}} /* k10371 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,1)))){ C_save_and_reclaim((void *)f_10373,2,av);} a=C_alloc(4); t2=C_a_i_minus(&a,2,lf[0],C_fix(1)); t3=C_mutate2(&lf[0] /* (set! d-depth ...) */,t2); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[60]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9816 in g1550 in k9804 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9818,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* g1550 in k9804 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_9810(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_9810,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9818,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:807: 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);}} /* k10383 in for-each-loop1674 in walk in scrutinize in k6121 in k6118 in k6115 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10385,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10375(t3,((C_word*)t0)[4],t2);} /* a6685 in blist-type in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6686,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k6676 in blist-type in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_6678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6678,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?C_i_cdr(t1):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* blist-type in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_6674(C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_6674,4,t0,t1,t2,t3);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6678,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6686,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:207: find */ t6=*((C_word*)lf[69]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k9874 in k9972 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9876,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9879,a[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:814: smash */ t3=((C_word*)t0)[5]; f_9501(t3,t2);} /* k9877 in k9874 in k9972 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9879(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_9879,2,av);} a=C_alloc(16); t2=C_eqp(lf[60],((C_word*)((C_word*)t0)[2])[1]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_9889,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[89]); 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_9901,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_9901(t13,((C_word*)t0)[3],t8);}} /* k8186 in walk in scrutinize in k6121 in k6118 in k6115 */ 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(7,c,1)))){ C_save_and_reclaim((void *)f_8188,2,av);} a=C_alloc(7); t2=C_a_i_list1(&a,1,t1); t3=C_a_i_minus(&a,2,lf[0],C_fix(1)); t4=C_mutate2(&lf[0] /* (set! d-depth ...) */,t3); t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k15492 in k15409 in loop in type-typeenv in k6121 in k6118 in k6115 */ static void C_ccall f_15494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_15494,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[141]); 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_15510,a[2]=t9,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_15510(t11,((C_word*)t0)[4],t6);} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16734 in a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ static void C_fcall f_16736(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_16736,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16744,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3]; /* tweaks.scm:57: ##sys#get */ t4=*((C_word*)lf[67]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=lf[119]; ((C_proc)(void*)(*((C_word*)t4+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);}}} /* k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_18888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_18888,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_18963,tmp=(C_word)a,a+=2,tmp)); t7=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19100,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19160,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2202: ##sys#put! */ t9=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t8; av2[2]=lf[387]; av2[3]=lf[183]; av2[4]=((C_word*)t5)[1]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* g1675 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_10363(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_10363,3,t0,t1,t2);} /* scrutinizer.scm:867: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_8123(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],C_SCHEME_FALSE);} /* k14199 in loop2 in k14166 in loop1 in k14018 in k13977 in k13938 in k13918 in k13896 in k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in ... */ 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 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_14201,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:1494: loop2 */ t6=((C_word*)((C_word*)t0)[4])[1]; f_14173(t6,((C_word*)t0)[5],t3,t5);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g1574 in k9877 in k9874 in k9972 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_9889,3,t0,t1,t2);} t3=lf[102]; /* scrutinizer.scm:817: g1591 */ t4=lf[102];{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; f_15740(4,av2);}} /* k16742 in k16734 in a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ static void C_ccall f_16744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_16744,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_16755,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)[3]; /* tweaks.scm:57: ##sys#get */ t6=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=lf[68]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k18896 in k19037 in known-length-vector-index in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_18898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18898,2,av);} /* scrutinizer.scm:2209: warning */ t2=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* g680 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7504(C_word 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(19,0,4)))){ C_save_and_reclaim_args((void *)trf_7504,3,t0,t1,t2);} a=C_alloc(19); t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_7511,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],a[14]=((C_word*)t0)[12],a[15]=((C_word*)t0)[13],tmp=(C_word)a,a+=16,tmp); t4=C_a_i_list1(&a,1,t2); t5=C_i_cdr(((C_word*)t0)[8]); /* scrutinizer.scm:376: match-argument-types */ f_12212(t3,t4,t5,((C_word*)((C_word*)t0)[13])[1]);} /* ##compiler#emit-type-file in k6121 in k6118 in k6115 */ static void C_ccall f_16711(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,3)))){ C_save_and_reclaim((void *)f_16711,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16717,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1816: with-output-to-file */ t5=*((C_word*)lf[316]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a16716 in emit-type-file in k6121 in k6118 in k6115 */ static void C_ccall f_16717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16717,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16721,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_16903,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1818: chicken-version */ t4=*((C_word*)lf[315]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a9975 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9976(C_word c,C_word *av){ C_word tmp; C_word t0=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_9976,2,av);} a=C_alloc(4); t2=C_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1)); /* scrutinizer.scm:813: procedure-argument-types */ f_14852(t1,((C_word*)t0)[3],t2,((C_word*)t0)[4],C_SCHEME_END_OF_LIST);} /* k9972 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9974(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_9974,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[141]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9876,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_9935,a[2]=t6,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_9935(t8,t4,((C_word*)t0)[3],t2);} /* k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ static void C_ccall f_16721(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16721,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16724,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16729,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:1820: ##sys#hash-table-for-each */ t4=*((C_word*)lf[310]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14377 in loop1 in k14018 in k13977 in k13938 in k13918 in k13896 in k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_fcall f_14379(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_14379,2,t0,t1);} t2=((C_word*)t0)[2]; if(C_truep(t2)){ /* scrutinizer.scm:1512: test */ t3=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=t2; f_13530(4,av2);}} else{ t3=((C_word*)t0)[5]; t4=C_u_i_car(t3); /* scrutinizer.scm:1512: test */ t5=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t5; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=t4; f_13530(4,av2);}}} /* k16722 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16724,2,av);} /* scrutinizer.scm:1849: print */ t2=*((C_word*)lf[207]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[303]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ static void C_ccall f_16729(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_16729,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16736,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16889,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1822: variable-visible? */ t6=*((C_word*)lf[167]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k12551 in k12539 in k12532 in k12529 in k12526 in k12523 in k12520 in k12517 in a12514 in k12508 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_12553,2,av);} a=C_alloc(8); t2=C_a_i_list1(&a,1,t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12549,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1244: merge-result-types */ t5=*((C_word*)lf[238]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a12566 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12567(C_word c,C_word *av){ C_word 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_12567,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_eqp(lf[100],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k18844 in k18824 in rec in canonicalize-list-type in k6121 in k6118 in k6115 */ static void C_fcall f_18846(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_18846,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18853,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18857,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2175: reverse */ t4=*((C_word*)lf[243]+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);}}} /* k12539 in k12532 in k12529 in k12526 in k12523 in k12520 in k12517 in a12514 in k12508 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_12541,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12553,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:1243: merge-argument-types */ t4=*((C_word*)lf[239]+1);{ C_word av2[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);}} /* for-each-loop2944 in k15409 in loop in type-typeenv in k6121 in k6118 in k6115 */ static void C_fcall f_15464(C_word t0,C_word t1,C_word 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_15464,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_15474,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:1671: g2945 */ 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);}}} /* k7509 in g680 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_7511,2,av);} a=C_alloc(16); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7514,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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|5,a[1]=(C_word)f_7565,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=t2,a[5]=((C_word*)t0)[12],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:381: pname */ t4=((C_word*)t0)[13]; f_7245(t4,t3);} else{ t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_7575,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],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],tmp=(C_word)a,a+=15,tmp); /* scrutinizer.scm:389: trail-restore */ f_15706(t2,((C_word*)t0)[14],((C_word*)((C_word*)t0)[15])[1]);}} /* k18851 in k18844 in k18824 in rec in canonicalize-list-type in k6121 in k6118 in k6115 */ static void C_ccall f_18853(C_word c,C_word *av){ C_word tmp; 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_18853,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[54],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7512 in k7509 in g680 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 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_7514,2,av);} a=C_alloc(15); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7520,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_7549,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[110]); /* scrutinizer.scm:154: ##sys#list->vector */ t7=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a8110 in rec in reduce-typeset in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8111(C_word c,C_word *av){ C_word tmp; C_word 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_8111,3,av);} t3=lf[126]; /* scrutinizer.scm:475: g879 */ t4=lf[126];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; f_10768(5,av2);}} /* k18855 in k18844 in k18824 in rec in canonicalize-list-type in k6121 in k6118 in k6115 */ static void C_ccall f_18857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_18857,2,av);} t2=C_i_cdr(((C_word*)t0)[2]); /* scrutinizer.scm:2164: ##sys#append */ t3=*((C_word*)lf[273]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10300 in loop in k10193 in k10190 in walk in scrutinize in k6121 in k6118 in k6115 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_10302,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10305,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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:859: mutate-node! */ f_16906(t2,((C_word*)t0)[4],t3);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10315,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:862: trail-restore */ f_15706(t2,((C_word*)t0)[14],((C_word*)t0)[15]);}} /* k18818 in rec in canonicalize-list-type in k6121 in k6118 in k6115 */ static void C_ccall f_18820(C_word c,C_word *av){ C_word tmp; 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_18820,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[54],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k18824 in rec in canonicalize-list-type in k6121 in k6118 in k6115 */ static void C_fcall f_18826(C_word t0,C_word 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_18826,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_caddr(((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_cons(&a,2,t5,((C_word*)t0)[3]); /* scrutinizer.scm:2173: rec */ t7=((C_word*)((C_word*)t0)[4])[1]; f_18806(t7,((C_word*)t0)[5],t2,t6);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18846,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_u_i_car(t3); t5=t2; f_18846(t5,C_eqp(lf[54],t4));} else{ t3=t2; f_18846(t3,C_SCHEME_FALSE);}}} /* k10303 in k10300 in loop in k10193 in k10190 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_10305,2,av);} /* scrutinizer.scm:860: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8123(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]);} /* walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_8123(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 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 *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(49,0,8)))){ C_save_and_reclaim_args((void *)trf_8123,9,t0,t1,t2,t3,t4,t5,t6,t7,t8);} a=C_alloc(49); t9=t2; t10=C_slot(t9,C_fix(3)); t11=t10; t12=t2; t13=C_slot(t12,C_fix(2)); t14=t13; t15=t2; t16=C_slot(t15,C_fix(1)); t17=C_a_i_plus(&a,2,lf[0],C_fix(1)); t18=C_mutate2(&lf[0] /* (set! d-depth ...) */,t17); t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8158,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t20=C_eqp(t16,lf[130]); if(C_truep(t20)){ t21=C_i_car(t14); t22=C_a_i_list1(&a,1,t21); t23=C_a_i_minus(&a,2,lf[0],C_fix(1)); t24=C_mutate2(&lf[0] /* (set! d-depth ...) */,t23); t25=t1;{ C_word av2[2]; av2[0]=t25; av2[1]=t22; ((C_proc)(void*)(*((C_word*)t25+1)))(2,av2);}} else{ t21=C_eqp(t16,lf[106]); if(C_truep(t21)){ t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8188,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t23=C_i_car(t14); /* scrutinizer.scm:492: constant-result */ t24=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t24; av2[1]=t22; av2[2]=t23; f_6391(3,av2);}} else{ t22=C_eqp(t16,lf[131]); if(C_truep(t22)){ t23=C_a_i_minus(&a,2,lf[0],C_fix(1)); t24=C_mutate2(&lf[0] /* (set! d-depth ...) */,t23); t25=t1;{ C_word av2[2]; av2[0]=t25; av2[1]=lf[132]; ((C_proc)(void*)(*((C_word*)t25+1)))(2,av2);}} else{ t23=C_eqp(t16,lf[133]); if(C_truep(t23)){ t24=C_a_i_minus(&a,2,lf[0],C_fix(1)); t25=C_mutate2(&lf[0] /* (set! d-depth ...) */,t24); t26=t1;{ C_word av2[2]; av2[0]=t26; av2[1]=lf[134]; ((C_proc)(void*)(*((C_word*)t26+1)))(2,av2);}} else{ t24=C_eqp(t16,lf[135]); if(C_truep(t24)){ t25=C_i_car(t14); /* scrutinizer.scm:495: global-result */ t26=((C_word*)((C_word*)t0)[3])[1]; f_6622(t26,t19,t25,t4);} else{ t25=C_eqp(t16,lf[136]); if(C_truep(t25)){ t26=C_i_car(t14); /* scrutinizer.scm:496: variable-result */ t27=((C_word*)((C_word*)t0)[4])[1]; f_6705(t27,t19,t26,t3,t4,t7);} else{ t26=C_eqp(t16,lf[137]); if(C_truep(t26)){ t27=( /* scrutinizer.scm:498: tag */ f_7902(C_a_i(&a,4),((C_word*)((C_word*)t0)[5])[1]) ); t28=( /* scrutinizer.scm:498: tag */ f_7902(C_a_i(&a,4),((C_word*)((C_word*)t0)[5])[1]) ); t29=C_a_i_cons(&a,2,t27,t28); t30=t29; t31=C_i_car(t11); t32=t31; t33=((C_word*)((C_word*)t0)[6])[1]; t34=C_set_block_item(((C_word*)t0)[6],0,C_SCHEME_FALSE); t35=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_8246,a[2]=t11,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]=t19,a[8]=t2,a[9]=t3,a[10]=t4,a[11]=t5,a[12]=t6,a[13]=t7,a[14]=t8,a[15]=t32,a[16]=t33,a[17]=t1,a[18]=((C_word*)t0)[10],a[19]=((C_word*)t0)[11],a[20]=t30,a[21]=((C_word*)t0)[12],a[22]=((C_word*)t0)[13],a[23]=((C_word*)t0)[14],a[24]=((C_word*)t0)[15],tmp=(C_word)a,a+=25,tmp); t36=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8569,a[2]=((C_word*)t0)[16],a[3]=t35,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:502: walk */ t46=t36; t47=t32; t48=t3; t49=t4; t50=C_SCHEME_FALSE; t51=C_SCHEME_FALSE; t52=t7; t53=t30; t1=t46; t2=t47; t3=t48; t4=t49; t5=t50; t6=t51; t7=t52; t8=t53; goto loop;} else{ t27=C_eqp(t16,lf[107]); if(C_truep(t27)){ t28=C_SCHEME_UNDEFINED; t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp); t30=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8588,a[2]=((C_word*)t0)[9],a[3]=t4,a[4]=t5,a[5]=t6,a[6]=t7,a[7]=t8,a[8]=t3,a[9]=t29,a[10]=((C_word*)t0)[17],a[11]=((C_word*)t0)[18],a[12]=((C_word*)t0)[16],a[13]=t2,tmp=(C_word)a,a+=14,tmp)); t31=((C_word*)t29)[1]; f_8588(t31,t19,t14,t11,C_SCHEME_END_OF_LIST);} else{ t28=C_eqp(t16,lf[144]); t29=(C_truep(t28)?t28:C_eqp(t16,lf[145])); if(C_truep(t29)){ t30=C_i_car(t14); t31=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8720,a[2]=t5,a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[17],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[18],a[8]=t11,a[9]=t4,a[10]=((C_word*)t0)[9],a[11]=t3,tmp=(C_word)a,a+=12,tmp); /* scrutinizer.scm:570: decompose-lambda-list */ t32=*((C_word*)lf[150]+1);{ C_word av2[4]; av2[0]=t32; av2[1]=t19; av2[2]=t30; av2[3]=t31; ((C_proc)(void*)(*((C_word*)t32+1)))(4,av2);}} else{ t30=C_eqp(t16,lf[151]); t31=(C_truep(t30)?t30:C_eqp(t16,lf[152])); if(C_truep(t31)){ t32=C_i_car(t14); t33=t32; t34=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_8995,a[2]=t33,a[3]=t3,a[4]=((C_word*)t0)[19],a[5]=t14,a[6]=t1,a[7]=t7,a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[18],a[10]=t11,a[11]=((C_word*)t0)[20],a[12]=t4,a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[16],a[15]=t2,a[16]=((C_word*)t0)[9],tmp=(C_word)a,a+=17,tmp); /* tweaks.scm:57: ##sys#get */ t35=*((C_word*)lf[67]+1);{ C_word av2[4]; av2[0]=t35; av2[1]=t34; av2[2]=t33; av2[3]=lf[68]; ((C_proc)(void*)(*((C_word*)t35+1)))(4,av2);}} else{ t32=C_eqp(t16,lf[173]); t33=(C_truep(t32)?t32:C_eqp(t16,lf[174])); if(C_truep(t33)){ t34=C_a_i_minus(&a,2,lf[0],C_fix(1)); t35=C_mutate2(&lf[0] /* (set! d-depth ...) */,t34); t36=t1;{ C_word av2[2]; av2[0]=t36; av2[1]=lf[60]; ((C_proc)(void*)(*((C_word*)t36+1)))(2,av2);}} else{ t34=C_eqp(t16,lf[32]); if(C_truep(t34)){ t35=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_9387,a[2]=t11,a[3]=((C_word*)t0)[16],a[4]=t4,a[5]=((C_word*)t0)[9],a[6]=t3,a[7]=t7,a[8]=((C_word*)t0)[21],a[9]=t2,a[10]=((C_word*)t0)[13],a[11]=t5,a[12]=t6,a[13]=t8,a[14]=((C_word*)t0)[12],a[15]=((C_word*)t0)[22],a[16]=((C_word*)t0)[18],a[17]=((C_word*)t0)[23],a[18]=t19,tmp=(C_word)a,a+=19,tmp); /* scrutinizer.scm:701: fragment */ f_7079(t35,t2);} else{ t35=C_eqp(t16,lf[186]); if(C_truep(t35)){ t36=C_i_car(t14); t37=t36; t38=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10115,a[2]=t37,a[3]=t1,a[4]=((C_word*)t0)[10],a[5]=t4,a[6]=((C_word*)t0)[20],a[7]=((C_word*)t0)[25],a[8]=t14,tmp=(C_word)a,a+=9,tmp); t39=C_i_car(t11); /* scrutinizer.scm:820: walk */ t46=t38; t47=t39; t48=t3; t49=t4; t50=t5; t51=t6; t52=t7; t53=t8; t1=t46; t2=t47; t3=t48; t4=t49; t5=t50; t6=t51; t7=t52; t8=t53; goto loop;} else{ t36=C_eqp(t16,lf[34]); if(C_truep(t36)){ t37=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10192,a[2]=t14,a[3]=t11,a[4]=t2,a[5]=t4,a[6]=((C_word*)t0)[9],a[7]=t3,a[8]=t5,a[9]=t6,a[10]=t7,a[11]=t8,a[12]=t19,tmp=(C_word)a,a+=13,tmp); t38=C_i_car(t11); /* scrutinizer.scm:842: walk */ t46=t37; t47=t38; t48=t3; t49=t4; t50=C_SCHEME_FALSE; t51=C_SCHEME_FALSE; t52=t7; t53=t8; t1=t46; t2=t47; t3=t48; t4=t49; t5=t50; t6=t51; t7=t52; t8=t53; goto loop;} else{ t37=C_eqp(t16,lf[195]); t38=(C_truep(t37)?t37:C_eqp(t16,lf[196])); if(C_truep(t38)){ /* scrutinizer.scm:865: bomb */ t39=*((C_word*)lf[197]+1);{ C_word av2[4]; av2[0]=t39; av2[1]=t19; av2[2]=lf[198]; av2[3]=t16; ((C_proc)(void*)(*((C_word*)t39+1)))(4,av2);}} else{ t39=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10363,a[2]=((C_word*)t0)[9],a[3]=t3,a[4]=t4,a[5]=t7,tmp=(C_word)a,a+=6,tmp); t40=C_i_check_list_2(t11,lf[141]); t41=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10373,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t42=C_SCHEME_UNDEFINED; t43=(*a=C_VECTOR_TYPE|1,a[1]=t42,tmp=(C_word)a,a+=2,tmp); t44=C_set_block_item(t43,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10375,a[2]=t43,a[3]=t39,tmp=(C_word)a,a+=4,tmp)); t45=((C_word*)t43)[1]; f_10375(t45,t41,t11);}}}}}}}}}}}}}}}} /* k7547 in k7512 in k7509 in g680 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7549,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7553,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:154: ##sys#list->vector */ t5=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6984 in map-loop431 in k6936 in k6932 in report-notice in scrutinize in k6121 in k6118 in k6115 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6986,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_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);} /* k15445 in for-each-loop2961 in k15418 in k15409 in loop in type-typeenv in k6121 in k6118 in k6115 */ static void C_ccall f_15447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15447,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_15437(t3,((C_word*)t0)[4],t2);} /* k14919 in loop in k14876 in k14866 in loop1 in procedure-argument-types in k6121 in k6118 in k6115 */ static void C_fcall f_14921(C_word 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_14921,2,t0,t1);} 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:1592: rest-type */ f_15260(t4) ); /* scrutinizer.scm:1592: make-list */ t6=*((C_word*)lf[128]+1);{ C_word av2[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);}} /* k9943 in for-each-loop1461 in k9972 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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(0,c,3)))){ C_save_and_reclaim((void *)f_9945,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_9935(t4,((C_word*)t0)[5],t2,t3);} /* rec in canonicalize-list-type in k6121 in k6118 in k6115 */ static void C_fcall f_18806(C_word t0,C_word t1,C_word 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_18806,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_eqp(lf[21],t2); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18820,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2171: reverse */ t6=*((C_word*)lf[243]+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_18826,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_u_i_car(t6); t8=t5; f_18826(t8,C_eqp(lf[55],t7));} else{ t6=t5; f_18826(t6,C_SCHEME_FALSE);}}} /* k8098 in rec in reduce-typeset in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8100,2,av);} a=C_alloc(3); t2=C_i_pairp(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_a_i_cons(&a,2,lf[17],t1):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* global-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_6622(C_word 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_6622,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6631,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=t2; /* tweaks.scm:57: ##sys#get */ t6=*((C_word*)lf[67]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=lf[68]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k19203 in k19182 in k19178 in report in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19205(C_word c,C_word *av){ C_word tmp; C_word 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_19205,2,av);}{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[6]+1); av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; C_apply(6,av2);}} /* map-loop4382 in k19182 in k19178 in report in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_fcall f_19207(C_word t0,C_word t1,C_word 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_19207,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_19232,a[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:116: strip-syntax */ t5=*((C_word*)lf[85]+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);}}} /* k9804 in k9634 in k9628 in g1462 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9806,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9810,a[2]=((C_word*)t0)[2],a[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:749: g1550 */ t3=t2; f_9810(t3,((C_word*)t0)[6],t1);} else{ t2=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* map-loop431 in k6936 in k6932 in report-notice in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6961,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_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)); /* scrutinizer.scm:116: strip-syntax */ t5=*((C_word*)lf[85]+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);}}} /* k10334 in loop in k10193 in k10190 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10336,2,av);} /* scrutinizer.scm:855: match-types */ t2=lf[126];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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]=C_SCHEME_TRUE; f_10768(6,av2);}} /* report in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_6995(C_word c,C_word *av){ C_word tmp; C_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,2)))){ C_save_and_reclaim((void*)f_6995,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; if(C_truep(((C_word*)t0)[2])){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7006,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7010,a[2]=t5,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:287: location-name */ t7=*((C_word*)lf[36]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k10338 in loop in k10193 in k10190 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10340,2,av);} /* scrutinizer.scm:856: append */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 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_7297,2,av);} a=C_alloc(14); t2=t1; t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_7303,a[2]=((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*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=t2,a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],tmp=(C_word)a,a+=14,tmp); /* scrutinizer.scm:328: procedure-type? */ t6=lf[104];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t4; f_14637(3,av2);}} /* k6643 in g333 in k6629 in global-result in scrutinize in k6121 in k6118 in k6115 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6645,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[62]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7286 in k7247 in pname in call-result in scrutinize in k6121 in k6118 in k6115 */ 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,4)))){ C_save_and_reclaim((void *)f_7288,2,av);} /* scrutinizer.scm:154: ##sys#print */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* g333 in k6629 in global-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_6635(C_word t0,C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_6635,3,t0,t1,t2);} a=C_alloc(7); t3=C_eqp(t2,lf[61]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6645,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:195: report */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=lf[63]; av2[4]=((C_word*)t0)[4]; f_6995(5,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6651,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_6651(t7,C_eqp(t6,lf[61]));} else{ t5=t4; f_6651(t5,C_SCHEME_FALSE);}}} /* k6629 in global-result in scrutinize in k6121 in k6118 in k6115 */ 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_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6631,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6635,a[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:154: g333 */ t3=t2; f_6635(t3,((C_word*)t0)[5],t1);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[66]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a9985 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_9986,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_list_ref(t2,C_fix(0)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k17599 in a17595 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_17601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_17601,2,av);} a=C_alloc(15); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17605,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_17616,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_17618,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t6=C_i_cadr(((C_word*)((C_word*)t0)[4])[1]); /* scrutinizer.scm:2010: filter-map */ t7=*((C_word*)lf[235]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17603 in k17599 in a17595 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_17605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_17605,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_i_caddr(((C_word*)((C_word*)t0)[3])[1]); /* scrutinizer.scm:2019: validate */ t4=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=t3; av2[3]=((C_word*)t0)[6]; f_17486(4,av2);}} /* a19291 */ static void C_ccall f_19292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_19292,2,av);} t2=C_i_cdr(((C_word*)t0)[2]); /* scrutinizer.scm:2289: split-at */ t3=*((C_word*)lf[370]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k13896 in k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_fcall f_13898(C_word t0,C_word 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_13898,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=((C_word*)((C_word*)t0)[3])[1]; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13906,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=C_i_cdr(((C_word*)t0)[4]); /* scrutinizer.scm:1441: every */ t7=*((C_word*)lf[18]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=((C_word*)t0)[5]; av2[2]=t5; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13920,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); t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=C_eqp(lf[54],t4); if(C_truep(t5)){ t6=C_i_car(((C_word*)t0)[4]); t7=t2; f_13920(t7,C_eqp(lf[213],t6));} else{ t6=t2; f_13920(t6,C_SCHEME_FALSE);}}} /* k7269 in k7256 in k7253 in k7247 in pname in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7271,2,av);} /* scrutinizer.scm:154: ##sys#print */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17614 in k17599 in a17595 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17616,2,av);} /* scrutinizer.scm:2010: append */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a17617 in k17599 in a17595 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_17618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_17618,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_17634,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:2014: validate */ t7=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t5; av2[2]=t6; f_17486(3,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6652 in k6649 in g333 in k6629 in global-result in scrutinize in k6121 in k6118 in k6115 */ 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,1)))){ C_save_and_reclaim((void *)f_6654,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[64]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a13882 in k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_ccall f_13886(C_word c,C_word *av){ C_word 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_13886,3,av);} /* scrutinizer.scm:1439: g26422643 */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9924 in map-loop1568 in k9877 in k9874 in k9972 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9926,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9901(t6,((C_word*)t0)[5],t5);} /* k6649 in g333 in k6629 in global-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_6651(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,5)))){ C_save_and_reclaim_args((void *)trf_6651,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ 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); t3=C_i_cadr(((C_word*)t0)[3]); /* scrutinizer.scm:198: report */ t4=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[6]; av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[65]; av2[4]=((C_word*)t0)[6]; av2[5]=t3; f_6995(6,av2);}} 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);}}} /* k17635 in k17632 in a17617 in k17599 in a17595 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_17637,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* for-each-loop1461 in k9972 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_9935(C_word t0,C_word t1,C_word 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_9935,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_9945,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:746: g1462 */ t9=((C_word*)t0)[3]; f_9614(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);}}} /* k17632 in a17617 in k17599 in a17595 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_17634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_17634,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17637,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; /* Re-use our own argvector */ 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:2015: return */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k14366 in loop1 in k14018 in k13977 in k13938 in k13918 in k13896 in k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_ccall f_14368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,7)))){ C_save_and_reclaim((void *)f_14368,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:1515: loop1 */ t6=((C_word*)((C_word*)t0)[4])[1]; f_14155(t6,((C_word*)t0)[5],t3,t5,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g3754 in a17595 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_17653(C_word t0,C_word 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_17653,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:2006: 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:2006: 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:2006: 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);}}}} /* k7224 in k7221 in k7213 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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,1)))){ C_save_and_reclaim((void *)f_7226,2,av);} t2=C_i_pairp(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?t1:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7221 in k7213 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7223,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7226,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:318: append */ t4=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:318: append */ t4=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* rest-type in k6121 in k6118 in k6115 */ static C_word C_fcall f_15260(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[60]);} else{ t2=C_i_car(t1); t3=C_eqp(lf[269],t2); if(C_truep(t3)){ return(lf[60]);} else{ t4=t1; return(C_u_i_car(t4));}}} /* f_19872 in complex-object-constructor-result-type-special-case in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19872(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_19872,6,av);} a=C_alloc(6); t6=C_slot(t2,C_fix(3)); t7=t6; if(C_truep(t7)){ t8=C_i_length(t7); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19893,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); switch(t8){ case C_fix(2): t10=t9; f_19893(t10,lf[60]); case C_fix(3): t10=C_i_caddr(t3); t11=C_slot(t10,C_fix(2)); t12=t9; f_19893(t12,C_i_car(t11)); default: t10=t9; f_19893(t10,C_SCHEME_FALSE);}} else{ t8=t5; t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k7213 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7215,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7223,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* tweaks.scm:57: ##sys#get */ t4=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[119]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* complex-object-constructor-result-type-special-case in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_fcall f_19870(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_19870,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_19872,a[2]=t2,tmp=(C_word)a,a+=3,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k19230 in map-loop4382 in k19182 in k19178 in report in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ 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 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_19232,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_19207(t6,((C_word*)t0)[5],t5);} /* map-loop1568 in k9877 in k9874 in k9972 in a9497 in k9485 in k9482 in k9479 in k9476 in k9470 in k9467 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_9901(C_word t0,C_word t1,C_word 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_9901,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_9926,a[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:817: g1574 */ t5=((C_word*)t0)[4]; f_9889(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);}}} /* k9086 in k9067 in k9104 in loop in k9032 in k9008 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9088,2,av);} t2=C_eqp(((C_word*)t0)[2],t1); /* scrutinizer.scm:691: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_9042(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k7202 in a7195 in pp-fragment in scrutinize in k6121 in k6118 in k6115 */ 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,2)))){ C_save_and_reclaim((void *)f_7204,2,av);} /* scrutinizer.scm:313: pp */ t2=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11722 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_11724(C_word t0,C_word t1){ C_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,3)))){ C_save_and_reclaim_args((void *)trf_11724,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[213]); if(C_truep(t4)){ t5=((C_word*)((C_word*)t0)[3])[1]; if(C_truep(t5)){ 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|5,a[1]=(C_word)f_11749,a[2]=((C_word*)t0)[5],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); t7=C_i_cadr(((C_word*)t0)[5]); t8=C_i_cadr(((C_word*)t0)[2]); /* scrutinizer.scm:1101: match1 */ t9=((C_word*)((C_word*)t0)[6])[1];{ C_word av2[4]; av2[0]=t9; av2[1]=t6; av2[2]=t7; av2[3]=t8; f_11054(4,av2);}}} else{ t5=C_eqp(t3,lf[54]); 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_11782,a[2]=((C_word*)t0)[5],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); t9=C_i_cadr(((C_word*)t0)[5]); t10=C_i_cadr(((C_word*)t0)[2]); /* scrutinizer.scm:1105: match1 */ 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_11054(4,av2);}} else{ t8=((C_word*)t0)[4];{ 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)[4];{ 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)[4];{ 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_11826,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],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_11826(t5,C_eqp(lf[55],t4));} else{ t3=t2; f_11826(t3,C_SCHEME_FALSE);}}} /* k19854 in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_19856,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g3083 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_fcall f_15758(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_15758,3,t0,t1,t2);} a=C_alloc(3); t3=C_i_cadr(t2); t4=C_i_not(t3); t5=(C_truep(t4)?t4:C_i_memq(t3,((C_word*)t0)[2])); if(C_truep(t5)){ if(C_truep(C_i_caddr(t2))){ t6=t2; t7=C_u_i_cdr(t6); t8=C_u_i_cdr(t7); t9=C_u_i_car(t8); t10=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[2]); /* scrutinizer.scm:1705: resolve */ t11=((C_word*)((C_word*)t0)[4])[1]; f_15750(t11,t1,t9,t10);} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=lf[60]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t6=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[2]); /* scrutinizer.scm:1707: resolve */ t7=((C_word*)((C_word*)t0)[4])[1]; f_15750(t7,t1,t3,t6);}} /* k6957 in k6936 in k6932 in report-notice in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6959,2,av);}{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[6]+1); av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; C_apply(6,av2);}} /* resolve in resolve in k6121 in k6118 in k6115 */ static void C_fcall f_15750(C_word t0,C_word t1,C_word 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: if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){ C_save_and_reclaim_args((void *)trf_15750,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_15758,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1698: g3083 */ t6=t5; f_15758(t6,t1,t4);} else{ if(C_truep(C_i_pairp(t2))){ t5=C_i_car(t2); t6=t5; t7=C_eqp(t6,lf[17]); 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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15832,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t13=t2; t14=C_u_i_cdr(t13); t15=C_i_check_list_2(t14,lf[89]); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15843,a[2]=t1,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_15845,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_15845(t20,t16,t14);} else{ t8=C_eqp(t6,lf[113]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15890,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t10=C_i_cadr(t2); /* scrutinizer.scm:1717: resolve */ t21=t9; t22=t10; t23=t3; t1=t21; t2=t22; t3=t23; goto loop;} else{ t9=C_eqp(t6,lf[19]); if(C_truep(t9)){ t10=C_i_cadr(t2); t11=t10; t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15911,a[2]=t1,a[3]=t11,tmp=(C_word)a,a+=4,tmp); t13=C_i_caddr(t2); /* scrutinizer.scm:1718: resolve */ t21=t12; t22=t13; t23=t3; t1=t21; t2=t22; t3=t23; goto loop;} else{ t10=C_eqp(t6,lf[55]); t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15924,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t1,a[6]=t6,tmp=(C_word)a,a+=7,tmp); if(C_truep(t10)){ t12=t11; f_15924(t12,t10);} else{ t12=C_eqp(t6,lf[54]); if(C_truep(t12)){ t13=t11; f_15924(t13,t12);} else{ t13=C_eqp(t6,lf[57]); if(C_truep(t13)){ t14=t11; f_15924(t14,t13);} else{ t14=C_eqp(t6,lf[211]); t15=t11; f_15924(t15,(C_truep(t14)?t14:C_eqp(t6,lf[213])));}}}}}}} else{ t5=t2; if(C_truep(C_u_i_memq(t5,lf[275]))){ t6=t2; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ /* scrutinizer.scm:1713: bomb */ t6=*((C_word*)lf[197]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t1; av2[2]=lf[276]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}} /* k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_19868,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19870,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19978,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_20302,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2465: complex-object-constructor-result-type-special-case */ f_19870(t4,lf[54]);} /* k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_19865,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19868,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2441: ##sys#put! */ t3=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[273]; av2[3]=lf[183]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k15746 in resolve in k6121 in k6118 in k6115 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15748,2,av);} /* scrutinizer.scm:1697: simplify-type */ t2=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* resolve in k6121 in k6118 in k6115 */ static void C_ccall f_15740(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_15740,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15748,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_15750,a[2]=t3,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_15750(t8,t4,t2,C_SCHEME_END_OF_LIST);} /* k6936 in k6932 in report-notice in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_6938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_6938,2,av);} a=C_alloc(22); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6944,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,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_word*)t0)[4]; t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6959,a[2]=t5,a[3]=t3,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|4,a[1]=(C_word)f_6961,a[2]=t8,a[3]=t13,a[4]=t9,tmp=(C_word)a,a+=5,tmp)); t15=((C_word*)t13)[1]; f_6961(t15,t11,t10);} /* k6932 in report-notice in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_6934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6934,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6938,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:282: open-output-string */ t4=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6928 in report-notice in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6930,2,av);} /* scrutinizer.scm:280: ##sys#notice */ t2=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19891 */ static void C_fcall f_19893(C_word t0,C_word t1){ C_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(7,0,4)))){ C_save_and_reclaim_args((void *)trf_19893,2,t0,t1);} a=C_alloc(7); t2=t1; if(C_truep(t2)){ t3=C_i_cadr(((C_word*)t0)[2]); if(C_truep(t3)){ t4=C_slot(t3,C_fix(1)); t5=C_eqp(lf[106],t4); if(C_truep(t5)){ t6=C_slot(t3,C_fix(2)); t7=C_i_car(t6); t8=t7; if(C_truep(t8)){ if(C_truep(C_fixnump(t8))){ t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19926,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t8,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2460: <= */{ C_word av2[5]; av2[0]=0; av2[1]=t9; av2[2]=C_fix(0); av2[3]=t8; av2[4]=C_fix(256); C_less_or_equal_p(5,av2);}} else{ t9=((C_word*)t0)[5]; t10=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} else{ t9=((C_word*)t0)[5]; t10=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} else{ t6=((C_word*)t0)[5]; t7=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t4=((C_word*)t0)[5]; t5=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=((C_word*)t0)[5]; t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k17883 in g3825 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_17885(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_17885,2,t0,t1);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17888,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:2036: memq* */ f_17322(t2,lf[355],((C_word*)t0)[8]);} /* k17886 in k17883 in g3825 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_17888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_17888,2,av);} a=C_alloc(12); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17920,a[2]=((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_length(((C_word*)((C_word*)t0)[2])[1]); t5=C_eqp(C_fix(5),t4); if(C_truep(t5)){ t6=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t7=C_eqp(((C_word*)t0)[8],t6); if(C_truep(t7)){ t8=C_i_cdddr(((C_word*)((C_word*)t0)[2])[1]); t9=t3; f_17920(t9,C_eqp(t2,t8));} else{ t8=t3; f_17920(t8,C_SCHEME_FALSE);}} else{ t6=t3; f_17920(t6,C_SCHEME_FALSE);}} else{ if(C_truep(((C_word*)t0)[4])){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17912,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); t4=((C_word*)((C_word*)t0)[2])[1]; t5=((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|3,a[1]=(C_word)f_17300,a[2]=t5,a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_17300(t9,t3,t4);} else{ t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* k11210 in g1978 in match1 in match-types in k6121 in k6118 in k6115 */ 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(0,c,3)))){ C_save_and_reclaim((void *)f_11212,2,av);} if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); t3=C_i_not(t2); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); t7=C_u_i_car(t6); /* scrutinizer.scm:1016: rawmatch1 */ t8=((C_word*)((C_word*)t0)[4])[1]; f_11032(t8,((C_word*)t0)[3],((C_word*)t0)[5],t7);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k15005 in k14866 in loop1 in procedure-argument-types in k6121 in k6118 in k6115 */ static void C_fcall f_15007(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_15007,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); /* scrutinizer.scm:1600: loop1 */ t3=((C_word*)((C_word*)t0)[3])[1]; f_14861(t3,((C_word*)t0)[4],t2,((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_15021,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:1567: g2848 */ t4=t3; f_15021(t4,((C_word*)t0)[4],t2);} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15054,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1607: make-list */ t4=*((C_word*)lf[128]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=lf[60]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}} /* k16506 in loop in k16590 in k16459 in adjust in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ 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; 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_16508,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:1772: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_16475(t4,((C_word*)t0)[4],t3);} /* k19800 in k19793 in k19765 in k19704 in lp in derive-result-type in append-special-case in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in ... */ static void C_ccall f_19802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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,2)))){ C_save_and_reclaim((void *)f_19802,2,av);} a=C_alloc(19); t2=((C_word*)t0)[2]; t3=C_slot(t2,C_fix(3)); t4=C_i_car(t3); t5=C_slot(t4,C_fix(2)); t6=C_i_car(t5); t7=((C_word*)t0)[3]; t8=((C_word*)t0)[4]; t9=C_a_i_list(&a,4,t1,t6,((C_word*)t0)[5],((C_word*)t0)[6]); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19606,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19610,a[2]=t10,a[3]=t9,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2395: location-name */ t12=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t11; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} /* k14984 in k14866 in loop1 in procedure-argument-types in k6121 in k6118 in k6115 */ static void C_fcall f_14986(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,1)))){ C_save_and_reclaim_args((void *)trf_14986,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_14878(t2,C_i_caddr(((C_word*)t0)[3]));} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[2]; f_14878(t4,C_u_i_car(t3));}} /* k6901 in single in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6903,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_car(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6898 in single in scrutinize in k6121 in k6118 in k6115 */ 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,5)))){ C_save_and_reclaim((void *)f_6900,2,av);} /* scrutinizer.scm:266: report */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[79]; av2[4]=t1; av2[5]=((C_word*)t0)[5]; f_6995(6,av2);}} /* k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_17868(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_17868,2,av);} a=C_alloc(16); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17872,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:1924: g3825 */ t3=t2; f_17872(t3,((C_word*)t0)[8],t1);} else{ t2=((C_word*)((C_word*)t0)[3])[1]; t3=C_u_i_car(t2); if(C_truep((C_truep(C_eqp(t3,lf[211]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[213]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ if(C_truep(C_i_listp(((C_word*)((C_word*)t0)[3])[1]))){ t4=C_i_length(((C_word*)((C_word*)t0)[3])[1]); t5=C_eqp(C_fix(2),t4); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18012,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); t7=C_i_cadr(((C_word*)((C_word*)t0)[3])[1]); /* scrutinizer.scm:2054: validate */ t8=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; f_17486(3,av2);}} else{ t6=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t4=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=((C_word*)((C_word*)t0)[3])[1]; t5=C_u_i_car(t4); if(C_truep((C_truep(C_eqp(t5,lf[57]))?C_SCHEME_TRUE:(C_truep(C_eqp(t5,lf[54]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ if(C_truep(C_i_listp(((C_word*)((C_word*)t0)[3])[1]))){ t6=((C_word*)((C_word*)t0)[3])[1]; 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_18048,a[2]=((C_word*)t0)[3],a[3]=t9,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_18048(t11,((C_word*)t0)[8],t7,C_SCHEME_END_OF_LIST);} else{ t6=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t6=((C_word*)((C_word*)t0)[3])[1]; t7=C_u_i_car(t6); t8=C_eqp(lf[55],t7); if(C_truep(t8)){ t9=C_i_length(((C_word*)((C_word*)t0)[3])[1]); t10=C_eqp(C_fix(3),t9); 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)[5])[1]; t16=C_i_cdr(((C_word*)((C_word*)t0)[3])[1]); t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18113,a[2]=((C_word*)t0)[8],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_18124,a[2]=t13,a[3]=t19,a[4]=t15,a[5]=t14,tmp=(C_word)a,a+=6,tmp)); t21=((C_word*)t19)[1]; f_18124(t21,t17,t16);} else{ t11=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} else{ t9=((C_word*)((C_word*)t0)[3])[1]; t10=C_u_i_car(t9); t11=C_eqp(lf[100],t10); if(C_truep(t11)){ t12=((C_word*)((C_word*)t0)[3])[1]; t13=C_u_i_cdr(t12); if(C_truep(C_i_pairp(t13))){ t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18176,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); t15=C_i_cadr(((C_word*)((C_word*)t0)[3])[1]); if(C_truep(C_i_symbolp(t15))){ t16=((C_word*)((C_word*)t0)[3])[1]; t17=C_u_i_cdr(t16); t18=t14; f_18176(t18,C_u_i_car(t17));} else{ t16=t14; f_18176(t16,((C_word*)t0)[10]);}} else{ t14=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t12=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}}}}} /* k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_17865(C_word c,C_word *av){ C_word tmp; C_word t0=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_17865,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17868,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; f_17868(2,av2);}} else{ /* scrutinizer.scm:2031: memq* */ f_17322(t2,lf[356],((C_word*)((C_word*)t0)[3])[1]);}} /* k16590 in k16459 in adjust in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_16592,2,av);} a=C_alloc(7); 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|4,a[1]=(C_word)f_16475,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_16475(t6,((C_word*)t0)[4],t2);} /* loop in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_8588(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(22,0,3)))){ C_save_and_reclaim_args((void *)trf_8588,5,t0,t1,t2,t3,t4);} a=C_alloc(22); 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_8606,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:555: append */ t8=*((C_word*)lf[90]+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_8615,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[9],a[6]=t1,a[7]=t8,a[8]=t6,a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp); t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8679,a[2]=((C_word*)t0)[12],a[3]=t9,a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[2],a[7]=t8,a[8]=((C_word*)t0)[8],a[9]=t6,a[10]=((C_word*)t0)[6],tmp=(C_word)a,a+=11,tmp); /* scrutinizer.scm:560: open-output-string */ t11=*((C_word*)lf[30]+1);{ C_word av2[2]; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} /* noreturn-procedure-type? in k6121 in k6118 in k6115 */ static C_word C_fcall f_15280(C_word t1){ C_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[100]); if(C_truep(t4)){ if(C_truep(C_i_listp(t1))){ t5=C_i_cadr(t1); if(C_truep(C_i_pairp(t5))){ t6=t1; t7=C_u_i_cdr(t6); t8=C_u_i_cdr(t7); return(C_i_equalp(lf[270],t8));} else{ t6=C_i_cdddr(t1); return(C_i_equalp(lf[270],t6));}} else{ return(C_SCHEME_FALSE);}} else{ t5=C_eqp(t3,lf[19]); if(C_truep(t5)){ t6=C_i_caddr(t1); t10=t6; t1=t10; goto loop;} else{ return(C_SCHEME_FALSE);}}} else{ return(C_SCHEME_FALSE);}} /* g3825 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_17872(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_17872,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_car(t2); t4=C_eqp(lf[354],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_17885,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t7,a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[2],a[8]=t2,a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t0)[2])){ t9=t8; f_17885(t9,C_SCHEME_UNDEFINED);} else{ t9=C_set_block_item(((C_word*)t0)[7],0,t4); t10=t8; f_17885(t10,t9);}} /* report-notice in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_6919(C_word c,C_word *av){ C_word tmp; C_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,2)))){ C_save_and_reclaim((void*)f_6919,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; if(C_truep(((C_word*)t0)[2])){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6930,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6934,a[2]=t5,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:281: location-name */ t7=*((C_word*)lf[36]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k6908 in single in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_6910,2,av);} t2=C_i_nequalp(((C_word*)t0)[2],C_fix(1)); t3=(C_truep(t2)?lf[80]:lf[81]); /* scrutinizer.scm:272: report */ t4=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[82]; av2[4]=t1; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[2]; av2[7]=t3; f_6995(8,av2);}} /* k17799 in map-loop3789 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ 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 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_17801,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_17776(t6,((C_word*)t0)[5],t5);} /* k6769 in k6757 in k6707 in variable-result in scrutinize in k6121 in k6118 in k6115 */ 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_6721(t2,C_i_not(t1));} /* always-true1 in scrutinize in k6121 in k6118 in k6115 */ 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=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; 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_6773,3,av);} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[17]); if(C_truep(t5)){ t6=t2; t7=C_u_i_cdr(t6); /* scrutinizer.scm:234: every */ t8=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t6=C_eqp(t4,lf[19]); if(C_truep(t6)){ t7=C_i_caddr(t2); /* scrutinizer.scm:235: always-true1 */ t9=t1; t10=t7; t1=t9; t2=t10; c=3; goto loop;} else{ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}} else{ t3=t2; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep((C_truep(C_eqp(t3,lf[60]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[24]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[53]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[25]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[76]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))?C_SCHEME_FALSE:C_SCHEME_TRUE); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8560 in k8563 in k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,8)))){ C_save_and_reclaim((void *)f_8562,2,av);} a=C_alloc(23); t2=(C_truep(t1)?((C_word*)t0)[2]:C_SCHEME_FALSE); if(C_truep(t2)){ t3=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[3])[1],C_fix(1)); t4=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t3); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8297,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_8316,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:513: gensym */ t7=*((C_word*)lf[139]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_8319,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)[19],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[20],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[21],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[22],a[14]=((C_word*)t0)[23],a[15]=((C_word*)t0)[4],a[16]=((C_word*)t0)[14],a[17]=((C_word*)t0)[7],a[18]=((C_word*)t0)[9],a[19]=((C_word*)t0)[10],tmp=(C_word)a,a+=20,tmp); t4=C_u_i_car(((C_word*)t0)[21]); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[11]); /* scrutinizer.scm:516: walk */ t6=((C_word*)((C_word*)t0)[4])[1]; f_8123(t6,t3,((C_word*)t0)[24],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],t5,C_SCHEME_FALSE);}} /* k8563 in k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ 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; C_word 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,5)))){ C_save_and_reclaim((void *)f_8565,2,av);} a=C_alloc(25); t2=(C_truep(t1)?((C_word*)t0)[2]:C_SCHEME_FALSE); if(C_truep(t2)){ t3=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[3])[1],C_fix(1)); t4=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t3); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8265,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_8284,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:509: gensym */ t7=*((C_word*)lf[139]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_8562,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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)[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)[14],tmp=(C_word)a,a+=25,tmp); /* scrutinizer.scm:511: always-false */ t4=((C_word*)((C_word*)t0)[25])[1]; f_6836(t4,t3,((C_word*)t0)[6],((C_word*)t0)[13],((C_word*)t0)[26],((C_word*)t0)[8]);}} /* k8567 in walk in scrutinize in k6121 in k6118 in k6115 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_8569,2,av);} /* scrutinizer.scm:502: single */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6868(t2,((C_word*)t0)[3],((C_word*)t0)[4],lf[142],t1,((C_word*)t0)[5]);} /* k6945 in k6942 in k6936 in k6932 in report-notice in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_6947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6947,2,av);} /* scrutinizer.scm:281: conc */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6942 in k6936 in k6932 in report-notice in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_6944(C_word c,C_word *av){ C_word tmp; C_word t0=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_6944,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6947,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:282: get-output-string */ t3=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17180 in k17129 in subst in specialize-node! in k6121 in k6118 in k6115 */ 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(6,c,1)))){ C_save_and_reclaim((void *)f_17182,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[2],t1),((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11239 in g1978 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_11241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,1)))){ C_save_and_reclaim((void *)f_11241,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],lf[14]); t3=C_mutate2(&lf[14] /* (set! trail ...) */,t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); t6=C_i_set_car(t5,((C_word*)t0)[4]); t7=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k14963 in loop in k14876 in k14866 in loop1 in procedure-argument-types in k6121 in k6118 in k6115 */ static void C_ccall f_14965(C_word c,C_word *av){ C_word tmp; 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_14965,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k17190 in k17129 in subst in specialize-node! in k6121 in k6118 in k6115 */ static void C_fcall f_17192(C_word t0,C_word 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_17192,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(0)); t3=C_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{ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=C_i_car(((C_word*)t0)[2]); t3=C_eqp(lf[106],t2); if(C_truep(t3)){ 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{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17222,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); t5=((C_word*)t0)[2]; t6=C_u_i_car(t5); /* scrutinizer.scm:1918: subst */ t7=((C_word*)((C_word*)t0)[5])[1]; f_17124(t7,t4,t6);}} else{ 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);}}}} /* k11005 in k10996 in match-results in match-types in k6121 in k6118 in k6115 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11007,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:976: match-results */ t6=((C_word*)((C_word*)t0)[4])[1]; f_10964(t6,((C_word*)t0)[5],t3,t5);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* map-loop820 in k7975 in k7964 in k7958 in k7955 in k7947 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7985(C_word t0,C_word t1,C_word 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_7985,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_8010,a[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:461: g826 */ t5=((C_word*)t0)[4]; f_7970(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);}}} /* k16562 in loop in k16590 in k16459 in adjust in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16564,2,av);} t2=C_i_cddr(((C_word*)t0)[2]); /* scrutinizer.scm:1778: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_16475(t3,((C_word*)t0)[4],t2);} /* g826 in k7964 in k7958 in k7955 in k7947 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7970(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_7970,3,t0,t1,t2);} t3=lf[102]; /* scrutinizer.scm:461: g843 */ t4=lf[102];{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; f_15740(4,av2);}} /* k7975 in k7964 in k7958 in k7955 in k7947 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ 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(8,c,3)))){ C_save_and_reclaim((void *)f_7977,2,av);} a=C_alloc(8); t2=C_i_check_list_2(t1,lf[89]); 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_7985,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_7985(t6,((C_word*)t0)[5],t1);} /* k16534 in loop in k16590 in k16459 in adjust in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16536,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:1775: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_16475(t4,((C_word*)t0)[4],t3);} /* k11747 in k11722 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_11749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11749,2,av);} if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); /* scrutinizer.scm:1102: match1 */ t3=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=((C_word*)t0)[5]; f_11054(4,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k16349 in k16342 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_16351,2,av);} a=C_alloc(8); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16357,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:1798: ##sys#print */ t6=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[286]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k16355 in k16349 in k16342 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16357(C_word c,C_word *av){ C_word tmp; C_word t0=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_16357,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16360,a[2]=((C_word*)t0)[2],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:1798: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16361 in k16358 in k16355 in k16349 in k16342 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16363(C_word c,C_word *av){ C_word tmp; C_word t0=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_16363,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16366,a[2]=((C_word*)t0)[2],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:1798: ##sys#write-char-0 */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16364 in k16361 in k16358 in k16355 in k16349 in k16342 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16366(C_word c,C_word *av){ C_word tmp; C_word t0=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_16366,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16369,a[2]=((C_word*)t0)[2],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:1798: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16358 in k16355 in k16349 in k16342 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16360(C_word c,C_word *av){ C_word tmp; C_word t0=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_16360,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16363,a[2]=((C_word*)t0)[2],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:1798: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[285]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16367 in k16364 in k16361 in k16358 in k16355 in k16349 in k16342 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 in ... */ static void C_ccall f_16369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16369,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16372,a[2]=((C_word*)t0)[2],a[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_16402,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:116: strip-syntax */ t4=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17155 in k17129 in subst in specialize-node! in k6121 in k6118 in k6115 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_17157,2,av);} a=C_alloc(4); t2=C_a_i_minus(&a,2,t1,C_fix(1)); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_list_tail(((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* g708 in k7665 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7671(C_word 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_7671,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_7677,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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_7677(t6,t1,t2);} /* rec in reduce-typeset in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_8060(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_8060,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[19]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8077,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t7=C_i_caddr(t2); /* scrutinizer.scm:472: rec */ t12=t6; t13=t7; t1=t12; t2=t13; goto loop;} else{ t6=C_eqp(t4,lf[17]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8100,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8111,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t9=t2; t10=C_u_i_cdr(t9); /* scrutinizer.scm:475: filter */ t11=*((C_word*)lf[129]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=t7; av2[2]=t8; av2[3]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(4,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);}}} /* loop in g708 in k7665 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7677(C_word t0,C_word t1,C_word t2){ C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_7677,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_7691,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_7751,a[2]=t7,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:410: append-map */ t9=*((C_word*)lf[117]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t8; av2[2]=*((C_word*)lf[118]+1); av2[3]=t6; ((C_proc)(void*)(*((C_word*)t9+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);}}} /* k16391 in k16376 in k16373 in k16370 in k16367 in k16364 in k16361 in k16358 in k16355 in k16349 in k16342 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in ... */ static void C_ccall f_16393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_16393,2,av);} /* scrutinizer.scm:1798: ##sys#print */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in add-to-blist in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7915(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_7915,3,t0,t1,t2);} a=C_alloc(9); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[2]); t4=C_a_i_cons(&a,2,C_a_i_cons(&a,2,t3,((C_word*)t0)[3]),((C_word*)((C_word*)t0)[4])[1]); t5=C_mutate2(((C_word *)((C_word*)t0)[4])+1,t4); t6=C_i_assq(t2,((C_word*)((C_word*)t0)[5])[1]); if(C_truep(t6)){ t7=C_i_cdr(t6); /* scrutinizer.scm:452: loop */ t9=t1; t10=t7; t1=t9; t2=t10; goto loop;} else{ 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);}}} /* reduce-typeset in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_8048(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(10,0,3)))){ C_save_and_reclaim_args((void *)trf_8048,4,t1,t2,t3,t4);} a=C_alloc(10); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8052,a[2]=t1,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_8060,a[2]=t7,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_8060(t9,t5,t2);} /* tag in scrutinize in k6121 in k6118 in k6115 */ static C_word C_fcall f_7902(C_word *a,C_word t0){ C_word tmp; C_word t1; C_word t2; C_word t3; C_stack_overflow_check;{} t1=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(1)); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); return(((C_word*)((C_word*)t0)[2])[1]);} /* k8008 in map-loop820 in k7975 in k7964 in k7958 in k7955 in k7947 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8010,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7985(t6,((C_word*)t0)[5],t5);} /* a8018 in k7964 in k7958 in k7955 in k7947 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8019(C_word c,C_word *av){ C_word tmp; 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_8019,2,av);} a=C_alloc(3); /* scrutinizer.scm:462: procedure-argument-types */ f_14852(t1,((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_END_OF_LIST,C_a_i_list(&a,1,C_SCHEME_TRUE));} /* add-to-blist in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7909(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_7909,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_7915,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t6,tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_7915(t8,t1,t2);} /* loop2 in k14166 in loop1 in k14018 in k13977 in k13938 in k13918 in k13896 in k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 in ... */ static void C_fcall f_14173(C_word t0,C_word t1,C_word 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_14173,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_eqp(lf[60],t3); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(t3))){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_i_nullp(t2); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(lf[60],t2); if(C_truep(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_14201,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); t8=C_i_car(t3); /* scrutinizer.scm:1493: test */ t9=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t9; av2[1]=t6; av2[2]=t7; av2[3]=t8; f_13530(4,av2);}}}}} /* k12645 in loop in k12584 in k12581 in k12575 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_12647,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:1263: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_12622(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5]);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12658,a[2]=((C_word*)t0)[2],a[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_12676,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1264: any */ t4=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k7964 in k7958 in k7955 in k7947 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_7966,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_7970,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7977,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_8019,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_8025,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:462: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:463: make-list */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[60]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k7958 in k7955 in k7947 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7960,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7966,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:460: procedure-type? */ t4=lf[104];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; f_14637(3,av2);}} /* k7665 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_7667,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7671,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:373: g708 */ t3=t2; f_7671(t3,((C_word*)t0)[10],t1);} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[10];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_7467(2,av2);}}} /* k14166 in loop1 in k14018 in k13977 in k13938 in k13918 in k13896 in k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_ccall f_14168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_14168,2,av);} a=C_alloc(6); 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|3,a[1]=(C_word)f_14173,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_14173(t5,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7689 in loop in g708 in k7665 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7691,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_7697,a[2]=((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:412: match-argument-types */ f_12212(t3,((C_word*)t0)[14],t4,t2);} /* k7695 in k7689 in loop in g708 in k7665 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 in ... */ 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 t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_7697,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=C_u_i_car(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=C_mutate2(((C_word *)((C_word*)t0)[4])+1,t3); t5=C_mutate2(((C_word *)((C_word*)t0)[5])+1,((C_word*)t0)[6]); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7705,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)[2],tmp=(C_word)a,a+=7,tmp); t7=C_i_cddr(((C_word*)t0)[2]); if(C_truep(C_i_pairp(t7))){ t8=C_u_i_cdr(((C_word*)t0)[2]); t9=t6; f_7705(t9,C_u_i_car(t8));} else{ t8=t6; f_7705(t8,C_SCHEME_FALSE);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7738,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:423: trail-restore */ f_15706(t2,((C_word*)t0)[13],((C_word*)t0)[6]);}} /* k7955 in k7947 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7957(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7957,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7960,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:459: type-typeenv */ t4=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* loop in k12584 in k12581 in k12575 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_fcall f_12622(C_word t0,C_word t1,C_word 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_12622,4,t0,t1,t2,t3);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ /* scrutinizer.scm:1260: reverse */ t4=*((C_word*)lf[243]+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[60],t4); if(C_truep(t5)){ /* scrutinizer.scm:1261: return */ t6=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t6; av2[1]=t1; av2[2]=lf[60]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12647,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_12686,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t8=t2; t9=C_u_i_cdr(t8); /* scrutinizer.scm:1262: any */ t10=*((C_word*)lf[241]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t6; av2[2]=t7; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}} /* validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_17486(C_word c,C_word *av){ C_word 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_17486,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; C_word t15; 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; t8=((C_word*)t4)[1]; if(C_truep(C_u_i_memq(t8,lf[329]))){ t9=((C_word*)t4)[1]; t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=((C_word*)t4)[1]; if(C_truep((C_truep(C_eqp(t9,lf[330]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[331]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[332]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[333]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[334]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[335]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[336]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[337]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[338]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[339]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[340]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[341]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[342]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[343]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[344]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[345]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[346]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[347]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))))))))))))))))){ t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_a_i_list(&a,2,lf[59],((C_word*)t4)[1]); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_eqp(((C_word*)t4)[1],lf[348]); if(C_truep(t10)){ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=lf[349]; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=C_eqp(((C_word*)t4)[1],lf[350]); if(C_truep(t11)){ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=lf[351]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t12=C_eqp(((C_word*)t4)[1],lf[241]); if(C_truep(t12)){ t13=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=lf[60]; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t13=C_eqp(((C_word*)t4)[1],lf[352]); if(C_truep(t13)){ t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=lf[25]; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t14=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_17530,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:1987: ##sys#get */ t15=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t15; av2[1]=t14; av2[2]=((C_word*)t4)[1]; av2[3]=lf[357]; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} else{ t15=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=C_SCHEME_FALSE; f_17530(2,av2);}}}}}}}}} /* k8050 in reduce-typeset in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8052,2,av);} if(C_truep(t1)){ /* scrutinizer.scm:478: simplify-type */ t2=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k12610 in k12587 in k12584 in k12581 in k12575 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12612,2,av);} a=C_alloc(3); t2=(C_truep(t1)?C_a_i_cons(&a,2,lf[17],lf[242]):C_a_i_cons(&a,2,lf[17],((C_word*)t0)[2])); /* scrutinizer.scm:1270: simplify */ t3=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=t2; f_12326(3,av2);}} /* k7947 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7949(C_word c,C_word *av){ C_word tmp; C_word t0=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_7949,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7957,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* tweaks.scm:57: ##sys#get */ t3=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[68]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* scrutinizer.scm:464: make-list */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[60]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* a12613 in k12587 in k12584 in k12581 in k12575 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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=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_12614,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_eqp(t2,lf[60]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k16342 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_fcall f_16344(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_16344,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16351,a[2]=((C_word*)t0)[2],a[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:1798: open-output-string */ t3=*((C_word*)lf[30]+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_16295(2,av2);}}} /* a12685 in loop in k12584 in k12581 in k12575 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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=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_12686,3,av);} t3=lf[182]; t4=C_i_car(((C_word*)t0)[2]); /* scrutinizer.scm:1262: g2318 */ t5=lf[182];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=t2; f_13520(4,av2);}} /* k20643 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20645,2,av);} /* scrutinizer.scm:2271: ##sys#put! */ t2=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[381]; av2[3]=lf[183]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a20646 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20647(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_20647,4,av);} a=C_alloc(3); if(C_truep(C_i_pairp(t3))){ t4=C_i_cadr(t3); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k16310 in k16293 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16312(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16312,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16315,a[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_16324,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1808: feature? */ t4=*((C_word*)lf[281]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[282]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k16313 in k16310 in k16293 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16315,2,av);} if(C_truep(((C_word*)t0)[2])){ /* scrutinizer.scm:1811: install-specializations */ t2=*((C_word*)lf[279]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a12675 in k12645 in loop in k12584 in k12581 in k12575 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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=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_12676,3,av);} t3=lf[182]; t4=C_i_car(((C_word*)t0)[2]); /* scrutinizer.scm:1264: g2326 */ t5=lf[182];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=t2; f_13520(4,av2);}} /* k16322 in k16310 in k16293 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16324,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_a_i_list(&a,1,lf[280]); if(C_truep(C_i_nullp(t2))){ /* tweaks.scm:54: ##sys#put! */ t3=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[73]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=C_i_car(t2); /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[73]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_16315(2,av2);}}} /* loop1 in k14018 in k13977 in k13938 in k13918 in k13896 in k13876 in k13787 in k13756 in k13737 in k13718 in k13705 in k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_fcall f_14155(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 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: if(C_unlikely(!C_demand(C_calculate_demand(16,0,7)))){ C_save_and_reclaim_args((void *)trf_14155,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(16); if(C_truep(C_i_nullp(t2))){ t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14168,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); if(C_truep(C_i_nullp(t3))){ if(C_truep(t4)){ if(C_truep(t5)){ /* scrutinizer.scm:1479: test */ t9=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[4]; av2[0]=t9; av2[1]=t8; av2[2]=t4; av2[3]=t5; f_13530(4,av2);}} else{ t9=t8;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_FALSE; f_14168(2,av2);}}} else{ t9=t8;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_TRUE; f_14168(2,av2);}}} else{ t9=C_i_car(t3); t10=C_eqp(lf[216],t9); if(C_truep(t10)){ t11=t8;{ C_word av2[2]; av2[0]=t11; av2[1]=C_i_not(t4); f_14168(2,av2);}} else{ t11=t3; t12=C_u_i_car(t11); t13=C_eqp(lf[217],t12); if(C_truep(t13)){ t14=t3; t15=C_u_i_cdr(t14); t16=C_i_nullp(t15); if(C_truep(t16)){ t17=t8;{ C_word av2[2]; av2[0]=t17; av2[1]=t16; f_14168(2,av2);}} else{ t17=t4; if(C_truep(t17)){ t18=t8;{ C_word av2[2]; av2[0]=t18; av2[1]=t17; f_14168(2,av2);}} else{ t18=C_i_cadr(t3); /* scrutinizer.scm:1487: test */ t19=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[4]; av2[0]=t19; av2[1]=t8; av2[2]=t4; av2[3]=t18; f_13530(4,av2);}}}} else{ t14=t8;{ C_word av2[2]; av2[0]=t14; av2[1]=C_i_greater_or_equalp(t7,t6); f_14168(2,av2);}}}}} else{ t8=C_i_car(t2); t9=C_eqp(t8,lf[216]); if(C_truep(t9)){ t10=t2; t11=C_u_i_cdr(t10); /* scrutinizer.scm:1497: loop1 */ t23=t1; t24=t11; t25=t3; t26=C_SCHEME_FALSE; t27=t5; t28=C_fix(1); t29=t7; t1=t23; t2=t24; t3=t25; t4=t26; t5=t27; t6=t28; t7=t29; goto loop;} else{ t10=t2; t11=C_u_i_car(t10); t12=C_eqp(t11,lf[217]); if(C_truep(t12)){ t13=t2; t14=C_u_i_cdr(t13); if(C_truep(C_i_nullp(t14))){ /* scrutinizer.scm:1500: loop1 */ t23=t1; t24=C_SCHEME_END_OF_LIST; t25=t3; t26=lf[60]; t27=t5; t28=C_fix(2); t29=t7; t1=t23; t2=t24; t3=t25; t4=t26; t5=t27; t6=t28; t7=t29; goto loop;} else{ t15=C_i_cadr(t2); /* scrutinizer.scm:1501: loop1 */ t23=t1; t24=C_SCHEME_END_OF_LIST; t25=t3; t26=t15; t27=t5; t28=C_fix(2); t29=t7; t1=t23; t2=t24; t3=t25; t4=t26; t5=t27; t6=t28; t7=t29; goto loop;}} else{ if(C_truep(C_i_nullp(t3))){ if(C_truep(t5)){ t13=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14320,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=t1,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,tmp=(C_word)a,a+=9,tmp); t14=t2; t15=C_u_i_car(t14); /* scrutinizer.scm:1504: test */ t16=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[4]; av2[0]=t16; av2[1]=t13; av2[2]=t15; av2[3]=t5; f_13530(4,av2);}} else{ t13=t1;{ C_word av2[2]; av2[0]=t13; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}} else{ t13=C_i_car(t3); t14=C_eqp(t13,lf[216]); if(C_truep(t14)){ t15=t3; t16=C_u_i_cdr(t15); /* scrutinizer.scm:1507: loop1 */ t23=t1; t24=t2; t25=t16; t26=t4; t27=C_SCHEME_FALSE; t28=t6; t29=C_fix(1); t1=t23; t2=t24; t3=t25; t4=t26; t5=t27; t6=t28; t7=t29; goto loop;} else{ t15=t3; t16=C_u_i_car(t15); t17=C_eqp(t16,lf[217]); if(C_truep(t17)){ t18=t3; t19=C_u_i_cdr(t18); if(C_truep(C_i_nullp(t19))){ /* scrutinizer.scm:1510: loop1 */ t23=t1; t24=t2; t25=C_SCHEME_END_OF_LIST; t26=t4; t27=lf[60]; t28=t6; t29=C_fix(2); t1=t23; t2=t24; t3=t25; t4=t26; t5=t27; t6=t28; t7=t29; goto loop;} else{ t20=C_i_cadr(t3); /* scrutinizer.scm:1511: loop1 */ t23=t1; t24=t2; t25=C_SCHEME_END_OF_LIST; t26=t4; t27=t20; t28=t6; t29=C_fix(2); t1=t23; t2=t24; t3=t25; t4=t26; t5=t27; t6=t28; t7=t29; goto loop;}} else{ t18=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_14368,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,tmp=(C_word)a,a+=10,tmp); t19=t4; t20=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14379,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t18,a[5]=t3,tmp=(C_word)a,a+=6,tmp); if(C_truep(t19)){ t21=t20; f_14379(t21,t19);} else{ t21=t2; t22=t20; f_14379(t22,C_u_i_car(t21));}}}}}}}} /* k6757 in k6707 in variable-result in scrutinize in k6121 in k6118 in k6115 */ 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(3,c,3)))){ C_save_and_reclaim((void *)f_6759,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6771,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[3]; /* tweaks.scm:57: ##sys#get */ t4=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=lf[73]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t2=((C_word*)t0)[2]; f_6721(t2,C_SCHEME_FALSE);}} /* k17444 in k17402 in k17382 in validate-llist in validate-type in k6121 in k6118 in k6115 */ 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 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_17446,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17449,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:1968: validate-llist */ t6=((C_word*)((C_word*)t0)[4])[1]; f_17356(t6,t3,t5);} /* k17447 in k17444 in k17402 in k17382 in validate-llist in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_17449(C_word c,C_word *av){ C_word tmp; 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_17449,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* a20662 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20663(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_20663,6,av);} a=C_alloc(6); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20667,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2250: known-length-vector-index */ f_18963(t6,t2,t3,t4,C_fix(3));} /* k20665 in a20662 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_20667,2,av);} a=C_alloc(8); t2=t1; if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_slot(t3,C_fix(3)); if(C_truep(t4)){ t5=C_i_cadr(t4); t6=t5; if(C_truep(t6)){ t7=C_i_cadddr(t4); t8=t7; if(C_truep(t8)){ t9=C_i_cadddr(((C_word*)t0)[3]); t10=C_slot(t9,C_fix(2)); t11=C_i_car(t10); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20719,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=t6,a[6]=t8,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2255: type-always-immediate? */ t13=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t12; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} else{ t12=((C_word*)t0)[5]; t13=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}} else{ t9=((C_word*)t0)[5]; t10=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} else{ t7=((C_word*)t0)[5]; t8=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t5=((C_word*)t0)[5]; t6=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t3=((C_word*)t0)[5]; t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_11590(C_word t0,C_word t1){ C_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(8,0,4)))){ C_save_and_reclaim_args((void *)trf_11590,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_eqp(t2,lf[100]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11602,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:1083: procedure-arguments */ f_14740(t4,((C_word*)t0)[2]);} else{ t4=C_eqp(t2,lf[59]); 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[55]); 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:1090: every */ t9=*((C_word*)lf[18]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)((C_word*)t0)[7])[1]; av2[3]=t7; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t6=C_eqp(t2,lf[213]); t7=(C_truep(t6)?t6:C_eqp(t2,lf[211])); if(C_truep(t7)){ t8=C_i_cadr(((C_word*)t0)[2]); t9=C_i_cadr(((C_word*)t0)[6]); /* scrutinizer.scm:1091: match1 */ t10=((C_word*)((C_word*)t0)[7])[1];{ C_word av2[4]; av2[0]=t10; av2[1]=((C_word*)t0)[4]; av2[2]=t8; av2[3]=t9; f_11054(4,av2);}} else{ t8=C_eqp(t2,lf[54]); t9=(C_truep(t8)?t8:C_eqp(t2,lf[57])); 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:1094: every */ t15=*((C_word*)lf[18]+1);{ C_word av2[5]; av2[0]=t15; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)((C_word*)t0)[7])[1]; av2[3]=t13; av2[4]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} 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_word*)t0)[4];{ C_word av2[2]; av2[0]=t10; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}}}}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11724,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[9],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_11724(t5,C_eqp(lf[55],t4));} else{ t3=t2; f_11724(t3,C_SCHEME_FALSE);}}} /* k16373 in k16370 in k16367 in k16364 in k16361 in k16358 in k16355 in k16349 in k16342 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in ... */ static void C_ccall f_16375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16375,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16378,a[2]=((C_word*)t0)[2],a[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:1798: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16370 in k16367 in k16364 in k16361 in k16358 in k16355 in k16349 in k16342 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in ... */ static void C_ccall f_16372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16372,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16375,a[2]=((C_word*)t0)[2],a[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:1798: ##sys#write-char-0 */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16376 in k16373 in k16370 in k16367 in k16364 in k16361 in k16358 in k16355 in k16349 in k16342 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_16378,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16381,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_16393,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:116: strip-syntax */ t4=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* subst in specialize-node! in k6121 in k6118 in k6115 */ static void C_fcall f_17124(C_word 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_17124,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17131,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_17131(t6,C_eqp(C_fix(1),t5));} else{ t4=t3; f_17131(t4,C_SCHEME_FALSE);}} /* ##compiler#specialize-node! in k6121 in k6118 in k6115 */ static void C_ccall f_17121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(13,c,3)))){ C_save_and_reclaim((void *)f_17121,5,av);} 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_17124,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_17289,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1919: subst */ t11=((C_word*)t8)[1]; f_17124(t11,t10,t4);} /* k17417 in k17402 in k17382 in validate-llist in validate-type in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_17419,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?C_a_i_list(&a,2,lf[217],t1):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k16382 in k16379 in k16376 in k16373 in k16370 in k16367 in k16364 in k16361 in k16358 in k16355 in k16349 in k16342 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in ... */ static void C_ccall f_16384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16384,2,av);} /* scrutinizer.scm:1797: warning */ t2=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8517 in for-each-loop955 in k8321 in k8317 in k8560 in k8563 in k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8519,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_8509(t3,((C_word*)t0)[4],t2);} /* k16379 in k16376 in k16373 in k16370 in k16367 in k16364 in k16361 in k16358 in k16355 in k16349 in k16342 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in ... */ static void C_ccall f_16381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16381,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16384,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1798: get-output-string */ t3=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7361(C_word t0,C_word t1){ C_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(23,0,3)))){ C_save_and_reclaim_args((void *)trf_7361,2,t0,t1);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_7364,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_u_i_cdr(((C_word*)t0)[10]); t4=((C_word*)t0)[15]; 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_15081,a[2]=t4,a[3]=t5,a[4]=t6,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); /* scrutinizer.scm:1625: loop1 */ t10=((C_word*)t8)[1]; f_15081(t10,t2,((C_word*)t0)[8]);} /* k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_7367,2,av);} a=C_alloc(25); t2=t1; t3=lf[14]; t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7370,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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|14,a[1]=(C_word)f_7464,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)[6],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]=t3,a[14]=((C_word*)t0)[5],tmp=(C_word)a,a+=15,tmp); t6=C_eqp(C_fix(1),((C_word*)t0)[15]); if(C_truep(t6)){ /* tweaks.scm:57: ##sys#get */ t7=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t5; av2[2]=t2; av2[3]=lf[121]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t7=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; f_7464(2,av2);}}} else{ t5=t4; f_7370(t5,C_SCHEME_UNDEFINED);}} /* k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7364,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|15,a[1]=(C_word)f_7367,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],tmp=(C_word)a,a+=16,tmp); /* scrutinizer.scm:370: procedure-name */ f_14689(t4,((C_word*)t0)[8]);} /* k17129 in subst in specialize-node! in k6121 in k6118 in k6115 */ static void C_fcall f_17131(C_word t0,C_word t1){ C_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_17131,2,t0,t1);} a=C_alloc(6); 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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17157,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1903: - */{ C_word av2[3]; av2[0]=0; av2[1]=t4; av2[2]=t3; C_minus(3,av2);}} else{ t4=C_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_17182,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1908: gensym */ t6=*((C_word*)lf[139]+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_17192,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_17192(t8,C_eqp(lf[88],t7));} else{ t7=t2; f_17192(t7,C_SCHEME_FALSE);}} else{ t6=t2; f_17192(t6,C_SCHEME_FALSE);}} else{ t3=t2; f_17192(t3,C_SCHEME_FALSE);}}} /* a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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=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(26,c,2)))){ C_save_and_reclaim((void *)f_7351,6,av);} a=C_alloc(26); t6=t2; t7=t3; t8=t5; t9=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_7355,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]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=t7,a[16]=((C_word*)t0)[14],a[17]=((C_word*)t0)[15],a[18]=t6,tmp=(C_word)a,a+=19,tmp); if(C_truep(t4)){ t10=t9;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; f_7355(2,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7844,a[2]=t8,a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[15],a[5]=t9,a[6]=((C_word*)t0)[11],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:349: pname */ t11=((C_word*)t0)[12]; f_7245(t11,t10);}} /* k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,5)))){ C_save_and_reclaim((void *)f_7355,2,av);} a=C_alloc(26); t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_7358,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); t3=C_i_cdr(((C_word*)t0)[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|6,a[1]=(C_word)f_7780,a[2]=t5,a[3]=((C_word*)t0)[17],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[13],tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_7780(t7,t2,t3,((C_word*)t0)[18],C_fix(1));} /* k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 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_7358,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_7361,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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=( /* scrutinizer.scm:367: noreturn-procedure-type? */ f_15280(((C_word*)t0)[8]) ); if(C_truep(t3)){ t4=C_set_block_item(((C_word*)t0)[16],0,C_SCHEME_TRUE); t5=t2; f_7361(t5,t4);} else{ t4=t2; f_7361(t4,C_SCHEME_UNDEFINED);}} /* k6719 in k6707 in variable-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_6721(C_word t0,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_6721,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]=lf[70]; ((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[25],t4); if(C_truep(t5)){ t6=t3;{ C_word av2[2]; av2[0]=t6; av2[1]=lf[71]; ((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{ /* scrutinizer.scm:229: global-result */ t3=((C_word*)((C_word*)t0)[5])[1]; f_6622(t3,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[6]);}}} /* k7338 in k7334 in k7330 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7340(C_word c,C_word *av){ C_word tmp; C_word 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_7340,2,av);} /* scrutinizer.scm:335: report */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[101]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=t1; f_6995(7,av2);}} /* a7344 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7345(C_word c,C_word *av){ C_word tmp; C_word 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_7345,2,av);} /* scrutinizer.scm:344: procedure-argument-types */ f_14852(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1],C_SCHEME_END_OF_LIST);} /* k17402 in k17382 in validate-llist in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_17404(C_word t0,C_word t1){ C_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_17404,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[324]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); if(C_truep(C_i_pairp(t5))){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17419,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t7=C_i_cadr(((C_word*)t0)[2]); /* scrutinizer.scm:1963: validate */ t8=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[3]; av2[0]=t8; av2[1]=t6; av2[2]=t7; f_17486(3,av2);}} else{ t6=((C_word*)t0)[3];{ 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)[2]; t3=C_u_i_car(t2); t4=C_eqp(lf[325],t3); if(C_truep(t4)){ t5=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t5; av2[1]=lf[326]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17446,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:1967: validate */ t8=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[3]; av2[0]=t8; av2[1]=t5; av2[2]=t7; f_17486(3,av2);}}}} /* for-each-loop955 in k8321 in k8317 in k8560 in k8563 in k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_8509(C_word t0,C_word t1,C_word 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_8509,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_8519,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:526: g956 */ t5=((C_word*)t0)[3]; f_8475(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);}}} /* k7330 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7332,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7336,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:339: resolve */ t4=lf[102];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)((C_word*)t0)[6])[1]; f_15740(4,av2);}} /* k7334 in k7330 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_7336,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7340,a[2]=((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:340: resolve */ t4=lf[102];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)((C_word*)t0)[7])[1]; f_15740(4,av2);}} /* variable-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_6705(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_6705,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(8); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6709,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[2],a[6]=t4,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:215: blist-type */ t7=((C_word*)((C_word*)t0)[4])[1]; f_6674(t7,t6,t2,t5);} /* k6707 in variable-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_6709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6709,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_6721,a[2]=((C_word*)t0)[2],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[72]+1); if(C_truep(*((C_word*)lf[72]+1))){ t4=t2; f_6721(t4,C_SCHEME_FALSE);} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6759,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:217: get */ t5=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[75]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}} /* k15645 in map-loop3014 in loop in type-typeenv in k6121 in k6118 in k6115 */ static void C_fcall f_15647(C_word 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_15647,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_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_15622(t6,((C_word*)t0)[5],t5);} /* k7622 in k7618 in k7579 in k7576 in k7573 in k7509 in g680 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in ... */ static void C_ccall f_7624(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7624,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[106],C_SCHEME_FALSE); t5=C_a_i_list(&a,3,lf[107],t3,t4); /* scrutinizer.scm:397: specialize-node! */ t6=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k7618 in k7579 in k7576 in k7573 in k7509 in g680 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7620,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7624,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:154: ##sys#list->vector */ t5=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k10287 in map-loop1629 in k10222 in k10218 in loop in k10193 in k10190 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10289(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10289,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10264(t6,((C_word*)t0)[5],t5);} /* k20598 in map-loop4512 in a20547 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_20600,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_20575(t6,((C_word*)t0)[5],t5);} /* k10222 in k10218 in loop in k10193 in k10190 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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,c,3)))){ C_save_and_reclaim((void *)f_10224,2,av);} a=C_alloc(21); t2=t1; t3=C_i_car(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10232,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); 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_cdr(((C_word*)t0)[5]); t11=C_i_check_list_2(t10,lf[89]); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10262,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_10264,a[2]=t8,a[3]=t14,a[4]=t9,tmp=(C_word)a,a+=5,tmp)); t16=((C_word*)t14)[1]; f_10264(t16,t12,t10);} /* k10218 in loop in k10193 in k10190 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10220,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10224,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:850: node-source-prefix */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8075 in rec in reduce-typeset in scrutinize in k6121 in k6118 in k6115 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_8077,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[19],t2,t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k6582 in map-loop293 in k6552 in constant-result in scrutinize in k6121 in k6118 in k6115 */ 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 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_6584,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6559(t6,((C_word*)t0)[5],t5);} /* k10248 in k10245 in k10239 in map-loop1629 in k10222 in k10218 in loop in k10193 in k10190 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10250,2,av);} /* scrutinizer.scm:853: get-output-string */ t2=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10260 in k10222 in k10218 in loop in k10193 in k10190 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10262,2,av);} /* scrutinizer.scm:852: string-concatenate */ t2=*((C_word*)lf[193]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9248 in k9252 in k9135 in k9132 in k9129 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9250,2,av);} t2=C_eqp(t1,lf[165]); t3=((C_word*)t0)[2]; f_9146(t3,C_i_not(t2));} /* map-loop1629 in k10222 in k10218 in loop in k10193 in k10190 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_10264(C_word t0,C_word t1,C_word 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_10264,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_10289,a[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_10241,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:853: open-output-string */ t8=*((C_word*)lf[30]+1);{ 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);}}} /* k9252 in k9135 in k9132 in k9129 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ 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; 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_9254,2,av);} a=C_alloc(3); t2=C_i_not(t1); if(C_truep(t2)){ t3=((C_word*)t0)[2]; f_9146(t3,t2);} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9250,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* tweaks.scm:57: ##sys#get */ t4=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[166]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k9223 in k9144 in k9135 in k9132 in k9129 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9225,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_9152,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:656: smash-component-types! */ f_10575(t5,t4);} /* loop in doloop1759 in smash-component-types! in k6121 in k6118 in k6115 */ static void C_fcall f_10611(C_word t0,C_word t1,C_word 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_10611,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[211]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10631,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:908: change! */ t8=t3;{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=lf[57]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t7=C_eqp(t5,lf[57]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10644,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_10656,a[2]=t2,a[3]=t3,a[4]=t8,a[5]=t11,a[6]=t12,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:913: constantly */ t14=*((C_word*)lf[212]+1);{ C_word av2[3]; av2[0]=t14; av2[1]=t13; av2[2]=lf[60]; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} else{ t8=C_eqp(t5,lf[213]); t9=(C_truep(t8)?t8:C_eqp(t5,lf[54])); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10712,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:917: change! */ t11=t3;{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=lf[214]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t10=C_eqp(t5,lf[55]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10725,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t12=t2; t13=C_u_i_car(t12); /* scrutinizer.scm:921: 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[19]); if(C_truep(t11)){ t12=C_i_caddr(t2); t13=t2; t14=C_u_i_cdr(t13); t15=C_u_i_cdr(t14); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10745,a[2]=t15,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:924: loop */ t18=t1; t19=t12; 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);}}} /* map-loop2452 in k13069 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_fcall f_13026(C_word t0,C_word t1,C_word 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_13026,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_13051,a[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:1304: g2458 */ 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);}}} /* loop in k10193 in k10190 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_10206(C_word t0,C_word t1,C_word 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(25,0,2)))){ C_save_and_reclaim_args((void *)trf_10206,4,t0,t1,t2,t3);} a=C_alloc(25); if(C_truep(C_i_nullp(t2))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10220,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); /* scrutinizer.scm:849: location-name */ t5=*((C_word*)lf[36]+1);{ 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);}} else{ t4=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_10302,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[5],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)[14],tmp=(C_word)a,a+=16,tmp); t5=C_i_car(t2); t6=t5; t7=C_i_car(((C_word*)t0)[2]); t8=t7; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10336,a[2]=t4,a[3]=t6,a[4]=t8,tmp=(C_word)a,a+=5,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10340,a[2]=t9,a[3]=((C_word*)t0)[14],tmp=(C_word)a,a+=4,tmp); t11=t2; t12=C_u_i_car(t11); /* scrutinizer.scm:856: type-typeenv */ t13=*((C_word*)lf[118]+1);{ C_word av2[3]; av2[0]=t13; av2[1]=t10; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}} /* k7634 in k7576 in k7573 in k7509 in g680 in k7462 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_7636,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* scrutinizer.scm:391: report-notice */ t3=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[114]; av2[4]=t1; av2[5]=t2; f_6919(6,av2);}} /* k12656 in k12645 in loop in k12584 in k12581 in k12575 in k12502 in k12469 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_12658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_12658,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:1265: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_12622(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:1266: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_12622(t7,((C_word*)t0)[4],t3,t6);}} /* k6282 in k6279 in k6273 in lname in location-name in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6284,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6287,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:143: ##sys#write-char-0 */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k13049 in map-loop2452 in k13069 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ 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; 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_13051,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_13026(t6,((C_word*)t0)[5],t5);} /* k6285 in k6282 in k6279 in k6273 in lname in location-name in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6287,2,av);} /* scrutinizer.scm:143: get-output-string */ t2=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9203 in k9200 in k9194 in k9150 in k9223 in k9144 in k9135 in k9132 in k9129 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9205,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9208,a[2]=((C_word*)t0)[2],a[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:658: ##sys#write-char-0 */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6279 in k6273 in lname in location-name in k6121 in k6118 in k6115 */ static void C_ccall f_6281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6281,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6284,a[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_6294,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:143: real-name */ t4=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9200 in k9194 in k9150 in k9223 in k9144 in k9135 in k9132 in k9129 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9202,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9205,a[2]=((C_word*)t0)[2],a[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:658: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9206 in k9203 in k9200 in k9194 in k9150 in k9223 in k9144 in k9135 in k9132 in k9129 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_9208,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9211,a[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:658: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10629 in loop in doloop1759 in smash-component-types! in k6121 in k6118 in k6115 */ static void C_ccall f_10631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10631,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_u_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a8024 in k7964 in k7958 in k7955 in k7947 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_8025,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_list_ref(t2,C_fix(0)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9212 in k9209 in k9206 in k9203 in k9200 in k9194 in k9150 in k9223 in k9144 in k9135 in k9132 in k9129 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9214,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9217,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:658: get-output-string */ t3=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9209 in k9206 in k9203 in k9200 in k9194 in k9150 in k9223 in k9144 in k9135 in k9132 in k9129 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9211(C_word c,C_word *av){ C_word tmp; C_word t0=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_9211,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9214,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:658: ##sys#write-char-0 */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9215 in k9212 in k9209 in k9206 in k9203 in k9200 in k9194 in k9150 in k9223 in k9144 in k9135 in k9132 in k9129 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9217,2,av);} /* scrutinizer.scm:658: debugging */ t2=*((C_word*)lf[160]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[161]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k9104 in loop in k9032 in k9008 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_9106,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_9069,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[17],((C_word*)t0)[7],t6); /* scrutinizer.scm:687: simplify-type */ t8=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t3; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); /* scrutinizer.scm:692: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_9042(t5,((C_word*)t0)[6],t4,((C_word*)t0)[8]);}} /* a10601 in doloop1759 in smash-component-types! in k6121 in k6118 in k6115 */ 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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10603,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k13069 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_13071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_13071,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_13012,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[60],((C_word*)t0)[4]); if(C_truep(t5)){ /* scrutinizer.scm:1298: append */ t6=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=((C_word*)t0)[2]; av2[2]=lf[250]; av2[3]=((C_word*)t0)[3]; av2[4]=t3; av2[5]=lf[60]; ((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[89]); 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_13026,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_13026(t15,t4,((C_word*)t0)[4]);}} /* k6522 in k6518 in constant-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_6524(C_word c,C_word *av){ C_word tmp; C_word t0=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_6524,2,av);} a=C_alloc(9); t2=C_a_i_list(&a,3,lf[55],((C_word*)t0)[2],t1); /* scrutinizer.scm:179: simplify-type */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop2426 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_fcall f_13073(C_word t0,C_word t1,C_word 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_13073,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_13098,a[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:1301: g2432 */ 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);}}} /* k6518 in constant-result in scrutinize in k6121 in k6118 in k6115 */ 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 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_6520,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6524,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:180: constant-result */ t6=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; f_6391(3,av2);}} /* k10230 in k10222 in k10218 in loop in k10193 in k10190 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10232(C_word c,C_word *av){ C_word tmp; C_word 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_10232,2,av);} /* scrutinizer.scm:848: quit */ t2=*((C_word*)lf[191]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[192]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; av2[6]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k6858 in k9011 in k9008 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_6860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6860,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9114 in k9008 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9116,2,av);} t2=((C_word*)t0)[2]; f_9034(t2,(C_truep(t1)?lf[60]:((C_word*)t0)[3]));} /* k10654 in loop in doloop1759 in smash-component-types! in k6121 in k6118 in k6115 */ 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 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_10656,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[89]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10663,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_10665,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_10665(t10,t6,t4);} /* a12064 in k12044 in k12002 in k11968 in k11926 in k11824 in k11722 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_12068(C_word c,C_word *av){ C_word 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_12068,3,av);} /* scrutinizer.scm:1155: g21292130 */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* merge-result-types in k6121 in k6118 in k6115 */ 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=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_13398,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13404,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1355: call/cc */ t5=*((C_word*)lf[123]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* ##compiler#load-type-database in k6121 in k6118 in k6115 */ 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=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_16188,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_16192,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ /* scrutinizer.scm:1744: repository-path */ t5=*((C_word*)lf[301]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_car(t3); f_16192(2,av2);}}} /* k13692 in k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_fcall f_13694(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_13694,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); /* scrutinizer.scm:1407: test */ t3=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=((C_word*)t0)[5]; f_13530(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13707,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_13707(t5,C_eqp(lf[19],t4));} else{ t3=t2; f_13707(t3,C_SCHEME_FALSE);}}} /* k10245 in k10239 in map-loop1629 in k10222 in k10218 in loop in k10193 in k10190 in walk in scrutinize in k6121 in k6118 in k6115 */ 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(4,c,4)))){ C_save_and_reclaim((void *)f_10247,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10250,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:853: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10239 in map-loop1629 in k10222 in k10218 in loop in k10193 in k10190 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_10241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10241,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10247,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); /* scrutinizer.scm:853: ##sys#print */ t6=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[194]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16192,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16241,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16700,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1751: make-pathname */ t4=*((C_word*)lf[300]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k13096 in map-loop2426 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_13098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_13098,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_13073(t6,((C_word*)t0)[5],t5);} /* k13683 in test in k13522 in type<=? in k6121 in k6118 in k6115 */ static void C_fcall f_13685(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_13685,2,t0,t1);} a=C_alloc(7); 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|6,a[1]=(C_word)f_13694,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_13694(t5,C_eqp(lf[19],t4));} else{ t3=t2; f_13694(t3,C_SCHEME_FALSE);}}} /* single in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_6868(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(11,0,2)))){ C_save_and_reclaim_args((void *)trf_6868,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(11); t6=C_eqp(lf[60],t4); if(C_truep(t6)){ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=lf[60]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_i_length(t4); t8=t7; t9=C_eqp(C_fix(1),t8); if(C_truep(t9)){ t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=C_i_car(t4); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_eqp(t8,C_fix(0)); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6896,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6900,a[2]=((C_word*)t0)[2],a[3]=t11,a[4]=t5,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:269: node-source-prefix */ t13=*((C_word*)lf[26]+1);{ C_word av2[3]; av2[0]=t13; av2[1]=t12; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} else{ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6903,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6910,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=t11,a[5]=t5,a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:275: node-source-prefix */ t13=*((C_word*)lf[26]+1);{ C_word av2[3]; av2[0]=t13; av2[1]=t12; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}}}} /* k13372 in merge-argument-types in k6121 in k6118 in k6115 */ 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 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_13374,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13378,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:1352: merge-argument-types */ t8=*((C_word*)lf[239]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12044 in k12002 in k11968 in k11926 in k11824 in k11722 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_12046(C_word t0,C_word t1){ C_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(4,0,5)))){ C_save_and_reclaim_args((void *)trf_12046,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[57],t3); if(C_truep(t4)){ t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); t7=C_i_cadr(((C_word*)t0)[3]); t8=t7; t9=((C_word*)((C_word*)t0)[4])[1]; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12068,a[2]=t9,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1151: over-all-instantiations */ f_19983(((C_word*)t0)[5],t6,((C_word*)t0)[6],C_SCHEME_TRUE,t10);} 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);}}} /* k13376 in k13372 in merge-argument-types in k6121 in k6118 in k6115 */ static void C_ccall f_13378(C_word c,C_word *av){ C_word tmp; 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_13378,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k20717 in k20665 in a20662 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_20719,2,av);} a=C_alloc(22); t2=(C_truep(t1)?lf[382]:lf[383]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20708,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[106],((C_word*)t0)[4]); t5=C_a_i_list(&a,4,t2,((C_word*)t0)[5],t4,((C_word*)t0)[6]); /* scrutinizer.scm:2258: mutate-node! */ f_16906(t3,((C_word*)t0)[7],t5);} /* k6894 in single in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_6896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6896,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[25]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a12030 in k12002 in k11968 in k11926 in k11824 in k11722 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12034,3,av);} /* scrutinizer.scm:1148: g21142115 */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9144 in k9135 in k9132 in k9129 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_9146(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_9146,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9225,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:655: tree-copy */ t3=*((C_word*)lf[164]+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_9010(2,av2);}}} /* k9150 in k9223 in k9144 in k9135 in k9132 in k9129 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 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_9152,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_9158,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9196,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:658: open-output-string */ t6=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k20352 in a20303 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_20354,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[54],t1); t3=C_a_i_list(&a,1,t2); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k9156 in k9150 in k9223 in k9144 in k9135 in k9132 in k9129 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9158,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9175,a[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_list(&a,1,lf[159]); if(C_truep(C_i_nullp(t3))){ /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[73]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_i_car(t3); /* tweaks.scm:54: ##sys#put! */ t5=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[73]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* g757 in k7371 in k7368 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7389(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_7389,3,t0,t1,t2);} t3=lf[102]; /* scrutinizer.scm:436: g774 */ t4=lf[102];{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)((C_word*)t0)[2])[1]; f_15740(4,av2);}} /* map-loop293 in k6552 in constant-result in scrutinize in k6121 in k6118 in k6115 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6559,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_6584,a[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:184: g299 */ 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);}}} /* k6555 in k6552 in constant-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_6557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6557,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[57],t1); /* scrutinizer.scm:183: simplify-type */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6552 in constant-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_6554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6554,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6557,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_6559,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_6559(t6,t2,t1);} /* k7371 in k7368 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7373(C_word t0,C_word t1){ C_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_7373,2,t0,t1);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7376,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_eqp(lf[60],((C_word*)((C_word*)t0)[4])[1]); if(C_truep(t3)){ t4=((C_word*)((C_word*)t0)[4])[1]; /* scrutinizer.scm:438: 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_7389,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[89]); 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_7401,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_7401(t14,t2,t9);}} /* k7368 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7370(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_7370,2,t0,t1);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7373,a[2]=((C_word*)t0)[2],a[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_7436,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[8])){ t4=((C_word*)((C_word*)t0)[3])[1]; if(C_truep(t4)){ t5=t3;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_7436(2,av2);}} else{ /* scrutinizer.scm:433: procedure-type? */ t5=lf[104];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[9]; f_14637(3,av2);}}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_7436(2,av2);}}} /* a20368 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20369(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_20369,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[15]; t11=C_i_cdr(t3); t12=C_i_check_list_2(t11,lf[89]); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20390,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_20392,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_20392(t17,t13,t11);} /* k7374 in k7371 in k7368 in k7365 in k7362 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7376,2,av);} /* scrutinizer.scm:438: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9286 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_9288(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_9288,2,t0,t1);} if(C_truep(t1)){ if(C_truep(*((C_word*)lf[72]+1))){ /* scrutinizer.scm:624: g1187 */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[7]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[171]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; f_7071(7,av2);}} else{ /* scrutinizer.scm:624: g1187 */ t2=((C_word*)((C_word*)t0)[8])[1];{ C_word av2[7]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[171]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; f_6995(7,av2);}}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_9007(2,av2);}}} /* k9279 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9281,2,av);} t2=((C_word*)t0)[2]; f_9131(t2,C_i_not(t1));} /* k16124 in loop in k15992 in k15989 in k15986 in k15922 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_ccall f_16126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_16126,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16130,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:1735: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_16070(t6,t3,t5);} /* k18687 in k18554 in k18522 in g4054 in install-specializations in k6121 in k6118 in k6115 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18689,2,av);} /* scrutinizer.scm:2137: unzip1 */ t2=*((C_word*)lf[365]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19434 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19436,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop4070 in k18522 in g4054 in install-specializations in k6121 in k6118 in k6115 */ static void C_fcall f_18691(C_word t0,C_word t1,C_word 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_18691,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_18716,a[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:2131: g4076 */ t5=((C_word*)t0)[4]; f_18528(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);}}} /* k11600 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_11602(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11602,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11605,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:1084: procedure-arguments */ f_14740(t3,((C_word*)t0)[5]);} /* k11603 in k11600 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_11605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11605,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11608,a[2]=((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:1085: procedure-results */ f_14796(t3,((C_word*)t0)[7]);} /* k11606 in k11603 in k11600 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_11608,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11611,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:1086: procedure-results */ f_14796(t3,((C_word*)t0)[7]);} /* k20388 in a20368 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_20390,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[57],t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop4614 in a20368 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_fcall f_20392(C_word t0,C_word t1,C_word 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_20392,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_20417,a[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:2379: g4620 */ 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);}}} /* k16115 in loop in k15992 in k15989 in k15986 in k15922 in resolve in resolve in k6121 in k6118 in k6115 */ 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(3,c,1)))){ C_save_and_reclaim((void *)f_16117,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k20613 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20615(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20615,2,av);} /* scrutinizer.scm:2357: ##sys#put! */ t2=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[379]; av2[3]=lf[183]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a20616 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20617(C_word c,C_word *av){ C_word tmp; C_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_20617,4,av);} a=C_alloc(3); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list1(&a,1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11615 in k11609 in k11606 in k11603 in k11600 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11617,2,av);} if(C_truep(t1)){ /* scrutinizer.scm:1088: match-results */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10964(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k13010 in k13069 in a12331 in simplify in simplify-type in k6121 in k6118 in k6115 */ static void C_ccall f_13012(C_word c,C_word *av){ C_word tmp; C_word 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_13012,2,av);} /* scrutinizer.scm:1298: append */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[250]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k11609 in k11606 in k11603 in k11600 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_11611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11611,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11617,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:1087: match-args */ t4=((C_word*)((C_word*)t0)[5])[1]; f_10774(t4,t3,((C_word*)t0)[6],((C_word*)t0)[7]);} /* k9129 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_9131(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_9131,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9134,a[2]=((C_word*)t0)[2],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:649: get */ t3=*((C_word*)lf[74]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[169]; ((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_9010(2,av2);}}} /* k7323 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7325(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7325,2,av);} /* scrutinizer.scm:341: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=lf[60]; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}} /* k9132 in k9129 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9134(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9134,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9137,a[2]=((C_word*)t0)[2],a[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;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; f_9137(2,av2);}} else{ /* scrutinizer.scm:650: get */ t3=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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]=lf[168]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7322(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(21,0,6)))){ C_save_and_reclaim_args((void *)trf_7322,2,t0,t1);} a=C_alloc(21); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7325,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7332,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:338: pname */ t4=((C_word*)t0)[8]; f_7245(t4,t3);} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7345,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_7351,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[13],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[14],a[9]=((C_word*)t0)[15],a[10]=((C_word*)t0)[16],a[11]=((C_word*)t0)[4],a[12]=((C_word*)t0)[8],a[13]=((C_word*)t0)[9],a[14]=((C_word*)t0)[17],a[15]=((C_word*)t0)[3],tmp=(C_word)a,a+=16,tmp); /* scrutinizer.scm:343: ##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);}}} /* k9135 in k9132 in k9129 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9137(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9137,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9146,a[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)[5]); t4=C_eqp(t1,t3); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9254,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:652: variable-visible? */ t6=*((C_word*)lf[167]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=t2; f_9146(t5,C_SCHEME_FALSE);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_9010(2,av2);}}} /* a20626 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ 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=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_20627,4,av);} a=C_alloc(3); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list1(&a,1,t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k20623 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20625(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20625,2,av);} /* scrutinizer.scm:2353: ##sys#put! */ t2=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[92]; av2[3]=lf[183]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* for-each-loop4904 in k20228 in loop in k20177 in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in ... */ static void C_fcall f_20238(C_word t0,C_word t1,C_word 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_20238,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_20248,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:2518: g4905 */ t5=((C_word*)t0)[3]; f_20195(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);}}} /* k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(36,c,4)))){ C_save_and_reclaim((void *)f_9387,2,av);} a=C_alloc(36); t2=t1; t3=C_i_length(((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|7,a[1]=(C_word)f_9394,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,tmp=(C_word)a,a+=8,tmp); t10=((C_word*)t0)[2]; t11=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_9469,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[2],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]=t4,a[18]=((C_word*)t0)[18],a[19]=t7,a[20]=t9,a[21]=t8,a[22]=t10,tmp=(C_word)a,a+=23,tmp); /* scrutinizer.scm:719: iota */ t12=*((C_word*)lf[185]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t11; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} /* k20234 in k20228 in loop in k20177 in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in ... */ static void C_ccall f_20236(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20236,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* list+index-call-result-type-special-case in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_fcall f_19422(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(4,0,6)))){ C_save_and_reclaim_args((void *)trf_19422,3,t0,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_19424,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_19424 in list+index-call-result-type-special-case in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19424(C_word c,C_word *av){ C_word tmp; C_word t0=av[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 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(22,c,5)))){ C_save_and_reclaim((void *)f_19424,6,av);} a=C_alloc(22); t6=t2; t7=C_slot(t6,C_fix(3)); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19436,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); if(C_truep(t8)){ t10=C_i_length(t8); t11=C_eqp(t10,C_fix(3)); if(C_truep(t11)){ t12=C_i_cadr(t3); t13=C_slot(t12,C_fix(2)); t14=C_i_car(t13); t15=t14; if(C_truep(t15)){ t16=C_i_caddr(t8); if(C_truep(t16)){ t17=C_slot(t16,C_fix(1)); t18=C_eqp(lf[106],t17); if(C_truep(t18)){ t19=C_slot(t16,C_fix(2)); t20=C_i_car(t19); t21=t20; if(C_truep(t21)){ if(C_truep(C_fixnump(t21))){ if(C_truep(C_fixnum_lessp(t21,C_fix(0)))){ t22=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19482,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t23=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19486,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=t22,a[5]=t4,a[6]=t21,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2326: node-source-prefix */ t24=*((C_word*)lf[26]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t24; av2[1]=t23; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t24+1)))(3,av2);}} else{ t22=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19504,a[2]=t1,a[3]=t5,a[4]=t8,a[5]=((C_word*)t0)[2],a[6]=t4,a[7]=t21,a[8]=t2,a[9]=t9,a[10]=t15,tmp=(C_word)a,a+=11,tmp); t23=t15; t24=t21; t25=((C_word*)t0)[3]; if(C_truep(C_i_pairp(t23))){ t26=C_i_car(t23); t27=C_eqp(t26,lf[54]); if(C_truep(t27)){ t28=C_i_length(t23); if(C_truep(C_fixnum_lessp(t24,t28))){ t29=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19292,a[2]=t23,a[3]=t24,tmp=(C_word)a,a+=4,tmp); t30=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19302,a[2]=t25,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2288: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t22; av2[2]=t29; av2[3]=t30; C_call_with_values(4,av2);}} else{ t29=t22;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t29; av2[1]=C_SCHEME_FALSE; f_19504(2,av2);}}} else{ t28=C_u_i_car(t23); t29=C_eqp(t28,lf[55]); if(C_truep(t29)){ 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|3,a[1]=(C_word)f_19329,a[2]=t25,a[3]=t31,tmp=(C_word)a,a+=4,tmp)); t33=((C_word*)t31)[1]; f_19329(t33,t22,C_SCHEME_END_OF_LIST,t23,t24);} else{ t30=t22;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t30; av2[1]=C_SCHEME_FALSE; f_19504(2,av2);}}}} else{ t26=C_eqp(t24,C_fix(0)); if(C_truep(t26)){ t27=C_eqp(t23,lf[21]); if(C_truep(t27)){ /* scrutinizer.scm:2286: k */ t28=t25;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t28; av2[1]=t22; av2[2]=t23; av2[3]=t23; ((C_proc)(void*)(*((C_word*)t28+1)))(4,av2);}} else{ t28=t22;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t28; av2[1]=C_SCHEME_FALSE; f_19504(2,av2);}}} else{ t27=t22;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t27; av2[1]=C_SCHEME_FALSE; f_19504(2,av2);}}}}} else{ t22=t5; t23=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t23; av2[1]=t22; ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}} else{ t22=t5; t23=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t23; av2[1]=t22; ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}} else{ t19=t5; t20=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t20; av2[1]=t19; ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}}} else{ t17=t5; t18=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=t17; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}} else{ t16=t5; t17=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t17; av2[1]=t16; ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}} else{ t12=t5; t13=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}} else{ t10=t5; t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} /* constant-result in scrutinize in k6121 in k6118 in k6115 */ 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=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; loop: if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ av[0]=t0; av[1]=t1; av[2]=t2; C_save_and_reclaim((void *)f_6391,3,av);} a=C_alloc(16); if(C_truep(C_i_stringp(t2))){ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[46]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(t2))){ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[47]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_fixnump(t2))){ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[22]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_flonump(t2))){ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[48]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_numberp(t2))){ t3=*((C_word*)lf[49]+1); t4=*((C_word*)lf[49]+1); t5=C_eqp(*((C_word*)lf[49]+1),lf[22]); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=lf[22]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(t3,lf[50]); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=(C_truep(t6)?lf[50]:lf[51]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ if(C_truep(C_booleanp(t2))){ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?lf[52]:lf[53]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[21]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_listp(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=t2; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6469,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_6471,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_6471(t13,t9,t8);} else{ if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6520,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); /* scrutinizer.scm:180: constant-result */ t14=t3; t15=t5; t1=t14; t2=t15; c=3; goto loop;} else{ if(C_truep(C_eofp(t2))){ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[20]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_vectorp(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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6554,a[2]=t1,a[3]=t5,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:184: vector->list */ t9=*((C_word*)lf[58]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t3=C_immp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_structurep(t2)); if(C_truep(t4)){ t5=C_slot(t2,C_fix(0)); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_list(&a,2,lf[59],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_charp(t2); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=(C_truep(t5)?lf[23]:lf[60]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}}}}}}}}}} /* k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 t3; C_word 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,4)))){ C_save_and_reclaim((void *)f_7313,2,av);} a=C_alloc(25); 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|17,a[1]=(C_word)f_7322,a[2]=((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]=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],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); if(C_truep(((C_word*)t0)[16])){ t7=t6; f_7322(t7,C_SCHEME_FALSE);} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7862,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:334: match-types */ t8=lf[126];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t3)[1]; f_10768(5,av2);}}} /* a20636 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20637(C_word c,C_word *av){ C_word tmp; C_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_20637,4,av);} a=C_alloc(3); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list1(&a,1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k20633 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_20635(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20635,2,av);} /* scrutinizer.scm:2349: ##sys#put! */ t2=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[380]; av2[3]=lf[183]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k20246 in for-each-loop4904 in k20228 in loop in k20177 in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20248,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_20238(t3,((C_word*)t0)[4],t2);} /* g1296 in k9385 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_9394(C_word 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(15,0,2)))){ C_save_and_reclaim_args((void *)trf_9394,4,t0,t1,t2,t3);} a=C_alloc(15); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9415,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9419,a[2]=((C_word*)t0)[2],a[3]=t4,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]=t3,tmp=(C_word)a,a+=11,tmp); /* scrutinizer.scm:709: open-output-string */ t6=*((C_word*)lf[30]+1);{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k18651 in map-loop4123 in k18557 in k18554 in k18522 in g4054 in install-specializations in k6121 in k6118 in k6115 */ 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 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_18653,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18628(t6,((C_word*)t0)[5],t5);} /* k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_7303,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|15,a[1]=(C_word)f_7866,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)[9],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]=t2,tmp=(C_word)a,a+=16,tmp); /* scrutinizer.scm:330: make-list */ t6=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=lf[60]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* map-loop3014 in loop in type-typeenv in k6121 in k6118 in k6115 */ static void C_fcall f_15622(C_word t0,C_word 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_15622,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_15647,a[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_15647(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_15647(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);}}} /* k19484 */ static void C_ccall f_19486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_19486,2,av);} a=C_alloc(9); t2=C_u_i_car(((C_word*)t0)[2]); t3=C_slot(t2,C_fix(2)); t4=C_i_car(t3); /* scrutinizer.scm:2323: report */ f_19168(((C_word*)t0)[4],((C_word*)t0)[5],lf[368],C_a_i_list(&a,3,t1,t4,((C_word*)t0)[6]));} /* k15618 in loop in type-typeenv in k6121 in k6118 in k6115 */ static void C_ccall f_15620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15620,2,av);} /* scrutinizer.scm:1679: append */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6848 in always-false in scrutinize in k6121 in k6118 in k6115 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6850,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6854,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:252: pp-fragment */ t4=((C_word*)((C_word*)t0)[5])[1]; f_7186(t4,t3,((C_word*)t0)[6]);} /* k19480 */ static void C_ccall f_19482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_19482,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k18620 in k18557 in k18554 in k18522 in g4054 in install-specializations in k6121 in k6118 in k6115 */ static void C_ccall f_18622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18622,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; /* Re-use our own argvector */ 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-loop4123 in k18557 in k18554 in k18522 in g4054 in install-specializations in k6121 in k6118 in k6115 */ static void C_fcall f_18628(C_word t0,C_word t1,C_word 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_18628,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_18653,a[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:2145: g4129 */ t5=((C_word*)t0)[4]; f_18595(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);}}} /* k6824 in k6818 in always-true in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6826,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k20280 in k20266 in loop in k20177 in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 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,1)))){ C_save_and_reclaim((void *)f_20282,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8995(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,2)))){ C_save_and_reclaim((void *)f_8995,2,av);} a=C_alloc(26); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8998,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((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); t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9346,a[2]=((C_word*)t0)[14],a[3]=t3,a[4]=((C_word*)t0)[15],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[16],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); /* scrutinizer.scm:628: open-output-string */ t5=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8998,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_9001,a[2]=((C_word*)t0)[2],a[3]=((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); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9335,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[11])){ /* scrutinizer.scm:632: type-typeenv */ t5=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_END_OF_LIST; f_9335(2,av2);}}} /* k6355 in k6352 in k6346 in rec in location-name in k6121 in k6118 in k6115 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_6357,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,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],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:152: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[43]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k15576 in loop in type-typeenv in k6121 in k6118 in k6115 */ static void C_ccall f_15578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_15578,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_i_caddr(((C_word*)t0)[3]); /* scrutinizer.scm:1685: loop */ t4=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=t3; f_15388(3,av2);}} /* k6352 in k6346 in rec in location-name in k6121 in k6118 in k6115 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_6354,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6357,a[2]=((C_word*)t0)[2],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_6376,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[5]; t5=C_u_i_car(t4); /* scrutinizer.scm:152: lname */ f_6268(t3,t5);} /* k20209 in g4905 in loop in k20177 in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20211,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_set_car(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6852 in k6848 in always-false in scrutinize in k6121 in k6118 in k6115 */ 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(0,c,5)))){ C_save_and_reclaim((void *)f_6854,2,av);} /* scrutinizer.scm:250: report-notice */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[78]; av2[4]=((C_word*)t0)[5]; av2[5]=t1; f_6919(6,av2);}} /* a18600 in g4129 in k18557 in k18554 in k18522 in g4054 in install-specializations in k6121 in k6118 in k6115 */ static void C_ccall f_18601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18601,2,av);} /* scrutinizer.scm:2146: validate-type */ t2=*((C_word*)lf[278]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a18606 in g4129 in k18557 in k18554 in k18522 in g4054 in install-specializations in k6121 in k6118 in k6115 */ static void C_ccall f_18607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18607,5,av);} if(C_truep(t2)){ t5=t2; t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* scrutinizer.scm:2148: error */ t5=*((C_word*)lf[360]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=lf[364]; 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);}}} /* k16128 in k16124 in loop in k15992 in k15989 in k15986 in k15922 in resolve in resolve in k6121 in k6118 in k6115 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_16130,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k20283 in k20266 in loop in k20177 in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in ... */ static void C_ccall f_20285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_20285,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:2534: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_20181(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5]);} /* k6844 in always-false in scrutinize in k6121 in k6118 in k6115 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6846,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11326 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_11328,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11331,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1037: trail-restore */ f_15706(t3,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,4)))){ C_save_and_reclaim((void *)f_16247,2,av);} a=C_alloc(15); 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_16252,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16257,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16671,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1753: ##sys#dynamic-wind */ t9=*((C_word*)lf[147]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_16241,2,av);} a=C_alloc(8); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16247,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_16678,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1752: open-output-string */ t5=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20228 in loop in k20177 in over-all-instantiations in k19979 in k19976 in k19866 in k19863 in k19594 in k19591 in k19588 in k19585 in k19582 in k19579 in k19576 in k19573 in k19570 in k19164 in k19161 in k19158 in k18886 in k6121 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 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_20230,2,av);} a=C_alloc(9); t2=C_i_check_list_2(t1,lf[141]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20236,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_20238,a[2]=t5,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_20238(t7,t3,t1);} /* k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_11319(C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_11319,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)((C_word*)t0)[2])[1]; if(C_truep(t2)){ 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);}} else{ t3=lf[14]; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11328,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=C_i_cadr(((C_word*)t0)[5]); /* scrutinizer.scm:1036: match1 */ t6=((C_word*)((C_word*)t0)[6])[1];{ C_word av2[4]; av2[0]=t6; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=t5; f_11054(4,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11344,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)[4],a[7]=((C_word*)t0)[2],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)[5]))){ t3=((C_word*)t0)[5]; t4=C_u_i_car(t3); t5=t2; f_11344(t5,C_eqp(lf[17],t4));} else{ t3=t2; f_11344(t3,C_SCHEME_FALSE);}}} /* k9011 in k9008 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9013(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9013,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9019,a[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_6860,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:256: type-always-immediate? */ t5=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9008 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ 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; 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_9010,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9013,a[2]=((C_word*)t0)[2],a[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[25],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_9034,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*)lf[72]+1); if(C_truep(*((C_word*)lf[72]+1))){ t8=*((C_word*)lf[72]+1); t9=t6; f_9034(t9,(C_truep(*((C_word*)lf[72]+1))?((C_word*)t0)[5]:lf[60]));} else{ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9116,a[2]=t6,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:678: get */ t9=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[10]; av2[3]=((C_word*)t0)[8]; av2[4]=lf[157]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_9013(2,av2);}}} /* k9017 in k9011 in k9008 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_9019,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(1)); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t4=C_i_setslot(((C_word*)t0)[3],C_fix(1),lf[153]); t5=C_a_i_minus(&a,2,lf[0],C_fix(1)); t6=C_mutate2(&lf[0] /* (set! d-depth ...) */,t5); t7=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=lf[154]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t2=C_a_i_minus(&a,2,lf[0],C_fix(1)); t3=C_mutate2(&lf[0] /* (set! d-depth ...) */,t2); t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[154]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_11382(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_11382,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); /* scrutinizer.scm:1055: match1 */ t3=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=((C_word*)t0)[5]; f_11054(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11395,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],tmp=(C_word)a,a+=10,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_11395(t5,C_eqp(lf[19],t4));} else{ t3=t2; f_11395(t3,C_SCHEME_FALSE);}}} /* a11371 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ 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=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_11372,3,av);} /* scrutinizer.scm:1053: match1 */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[3]; f_11054(4,av2);}} /* k10642 in loop in doloop1759 in smash-component-types! in k6121 in k6118 in k6115 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_10644,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_11363(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,5)))){ C_save_and_reclaim_args((void *)trf_11363,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=C_i_cdr(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11372,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1049: over-all-instantiations */ f_19983(((C_word*)t0)[5],t2,((C_word*)t0)[6],C_SCHEME_FALSE,t3);} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11382,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)[6],tmp=(C_word)a,a+=10,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_11382(t5,C_eqp(lf[19],t4));} else{ t3=t2; f_11382(t3,C_SCHEME_FALSE);}}} /* k10688 in map-loop1777 in k10654 in loop in doloop1759 in smash-component-types! in k6121 in k6118 in k6115 */ static void C_ccall f_10690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10690,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10665(t6,((C_word*)t0)[5],t5);} /* 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_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_scrutinizer_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(3245))){ C_save(t1); C_rereclaim2(3245*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,391); lf[1]=C_h_intern(&lf[1],23,"\010compilerscrutiny-debug"); lf[2]=C_h_intern(&lf[2],1,"d"); lf[3]=C_h_intern(&lf[3],19,"\003sysstandard-output"); lf[4]=C_h_intern(&lf[4],6,"printf"); lf[5]=C_h_intern(&lf[5],16,"\003syswrite-char-0"); lf[6]=C_h_intern(&lf[6],7,"fprintf"); lf[7]=C_h_intern(&lf[7],9,"\003sysprint"); lf[8]=C_h_intern(&lf[8],11,"make-string"); lf[9]=C_decode_literal(C_heaptop,"\376B\000\000\002] "); lf[10]=C_decode_literal(C_heaptop,"\376B\000\000\007[debug|"); lf[11]=C_h_intern(&lf[11],2,"dd"); lf[12]=C_h_intern(&lf[12],3,"ddd"); lf[16]=C_h_intern(&lf[16],22,"type-always-immediate\077"); lf[17]=C_h_intern(&lf[17],2,"or"); lf[18]=C_h_intern(&lf[18],5,"every"); lf[19]=C_h_intern(&lf[19],6,"forall"); lf[20]=C_h_intern(&lf[20],3,"eof"); lf[21]=C_h_intern(&lf[21],4,"null"); lf[22]=C_h_intern(&lf[22],6,"fixnum"); lf[23]=C_h_intern(&lf[23],4,"char"); lf[24]=C_h_intern(&lf[24],7,"boolean"); lf[25]=C_h_intern(&lf[25],9,"undefined"); lf[26]=C_h_intern(&lf[26],18,"node-source-prefix"); lf[27]=C_h_intern(&lf[27],7,"sprintf"); lf[28]=C_h_intern(&lf[28],17,"get-output-string"); lf[29]=C_decode_literal(C_heaptop,"\376B\000\000\002) "); lf[30]=C_h_intern(&lf[30],18,"open-output-string"); lf[31]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[32]=C_h_intern(&lf[32],9,"\004corecall"); lf[33]=C_h_intern(&lf[33],26,"\010compilersource-info->line"); lf[34]=C_h_intern(&lf[34],13,"\004coretypecase"); lf[36]=C_h_intern(&lf[36],13,"location-name"); lf[37]=C_h_intern(&lf[37],18,"\010compilerreal-name"); lf[38]=C_decode_literal(C_heaptop,"\376B\000\000\013procedure `"); lf[39]=C_decode_literal(C_heaptop,"\376B\000\000\021unknown procedure"); lf[40]=C_decode_literal(C_heaptop,"\376B\000\000\017at toplevel:\012 "); lf[41]=C_decode_literal(C_heaptop,"\376B\000\000\004:\012 "); lf[42]=C_decode_literal(C_heaptop,"\376B\000\000\014in toplevel "); lf[43]=C_decode_literal(C_heaptop,"\376B\000\000\004,\012 "); lf[44]=C_decode_literal(C_heaptop,"\376B\000\000\011in local "); lf[45]=C_h_intern(&lf[45],19,"\010compilerscrutinize"); lf[46]=C_h_intern(&lf[46],6,"string"); lf[47]=C_h_intern(&lf[47],6,"symbol"); lf[48]=C_h_intern(&lf[48],5,"float"); lf[49]=C_h_intern(&lf[49],11,"number-type"); lf[50]=C_h_intern(&lf[50],6,"flonum"); lf[51]=C_h_intern(&lf[51],6,"number"); lf[52]=C_h_intern(&lf[52],4,"true"); lf[53]=C_h_intern(&lf[53],5,"false"); lf[54]=C_h_intern(&lf[54],4,"list"); lf[55]=C_h_intern(&lf[55],4,"pair"); lf[56]=C_h_intern(&lf[56],22,"\010compilersimplify-type"); lf[57]=C_h_intern(&lf[57],6,"vector"); lf[58]=C_h_intern(&lf[58],12,"vector->list"); lf[59]=C_h_intern(&lf[59],6,"struct"); lf[60]=C_h_intern(&lf[60],1,"\052"); lf[61]=C_h_intern(&lf[61],10,"deprecated"); lf[62]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[63]=C_decode_literal(C_heaptop,"\376B\000\000\026use of deprecated `~a\047"); lf[64]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[65]=C_decode_literal(C_heaptop,"\376B\000\000&use of deprecated `~a\047 - consider `~a\047"); lf[66]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[67]=C_h_intern(&lf[67],7,"\003sysget"); lf[68]=C_h_intern(&lf[68],13,"\010compilertype"); lf[69]=C_h_intern(&lf[69],4,"find"); lf[70]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[71]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[72]=C_h_intern(&lf[72],30,"\010compilerstrict-variable-types"); lf[73]=C_h_intern(&lf[73],20,"\010compilertype-source"); lf[74]=C_h_intern(&lf[74],12,"\010compilerget"); lf[75]=C_h_intern(&lf[75],8,"assigned"); lf[76]=C_h_intern(&lf[76],8,"noreturn"); lf[77]=C_decode_literal(C_heaptop,"\376B\000\000q~aexpected a value of type boolean in conditional, but was given a value of" " type `~a\047 which is always true:~%~%~a"); lf[78]=C_decode_literal(C_heaptop,"\376B\000\000A~ain conditional, test expression will always return false:~%~%~a"); lf[79]=C_decode_literal(C_heaptop,"\376B\000\0008~aexpected a single result ~a, but received zero results"); lf[80]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[81]=C_decode_literal(C_heaptop,"\376B\000\000\001s"); lf[82]=C_decode_literal(C_heaptop,"\376B\000\0007~aexpected a single result ~a, but received ~a result~a"); lf[83]=C_h_intern(&lf[83],10,"\003sysnotice"); lf[84]=C_h_intern(&lf[84],4,"conc"); lf[85]=C_h_intern(&lf[85],12,"strip-syntax"); lf[86]=C_h_intern(&lf[86],7,"warning"); lf[87]=C_h_intern(&lf[87],16,"\003sysstrip-syntax"); lf[88]=C_h_intern(&lf[88],3,"..."); lf[89]=C_h_intern(&lf[89],3,"map"); lf[90]=C_h_intern(&lf[90],6,"append"); lf[91]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003...\376\377\016"); lf[92]=C_h_intern(&lf[92],4,"take"); lf[93]=C_h_intern(&lf[93],30,"\010compilerbuild-expression-tree"); lf[94]=C_h_intern(&lf[94],4,"node"); lf[95]=C_h_intern(&lf[95],12,"string-chomp"); lf[96]=C_h_intern(&lf[96],2,"pp"); lf[97]=C_h_intern(&lf[97],21,"with-output-to-string"); lf[98]=C_decode_literal(C_heaptop,"\376B\000\000\003\047, "); lf[99]=C_decode_literal(C_heaptop,"\376B\000\000\026in procedure call to `"); lf[100]=C_h_intern(&lf[100],9,"procedure"); lf[101]=C_decode_literal(C_heaptop,"\376B\000\000B~aexpected a value of type `~a\047 but was given a value of type `~a\047"); lf[105]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\004true\376\377\016"); lf[106]=C_h_intern(&lf[106],5,"quote"); lf[107]=C_h_intern(&lf[107],3,"let"); lf[108]=C_h_intern(&lf[108],25,"\010compilerspecialize-node!"); lf[109]=C_h_intern(&lf[109],16,"\003syslist->vector"); lf[110]=C_h_intern(&lf[110],3,"tmp"); lf[111]=C_decode_literal(C_heaptop,"\376B\000\000S~athe predicate is called with an argument of type `~a\047 and will always ret" "urn true"); lf[112]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005false\376\377\016"); lf[113]=C_h_intern(&lf[113],3,"not"); lf[114]=C_decode_literal(C_heaptop,"\376B\000\000T~athe predicate is called with an argument of type `~a\047 and will always ret" "urn false"); lf[117]=C_h_intern(&lf[117],10,"append-map"); lf[118]=C_h_intern(&lf[118],12,"type-typeenv"); lf[119]=C_h_intern(&lf[119],24,"\010compilerspecializations"); lf[120]=C_h_intern(&lf[120],30,"\010compilerlocal-specializations"); lf[121]=C_h_intern(&lf[121],18,"\010compilerpredicate"); lf[123]=C_h_intern(&lf[123],7,"call/cc"); lf[125]=C_decode_literal(C_heaptop,"\376B\000\000K~aexpected argument #~a of type `~a\047 but was given an argument of type `~a\047" ); lf[127]=C_decode_literal(C_heaptop,"\376B\000\0004~aexpected ~a argument~a but was given ~a argument~a"); lf[128]=C_h_intern(&lf[128],9,"make-list"); lf[129]=C_h_intern(&lf[129],6,"filter"); lf[130]=C_h_intern(&lf[130],15,"\004corethe/result"); lf[131]=C_h_intern(&lf[131],14,"\004coreundefined"); lf[132]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[133]=C_h_intern(&lf[133],9,"\004coreproc"); lf[134]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\011procedure\376\377\016"); lf[135]=C_h_intern(&lf[135],15,"\004coreglobal-ref"); lf[136]=C_h_intern(&lf[136],13,"\004corevariable"); lf[137]=C_h_intern(&lf[137],2,"if"); lf[139]=C_h_intern(&lf[139],6,"gensym"); lf[140]=C_decode_literal(C_heaptop,"\376B\000\000Ibranches in conditional expression differ in the number of results:~%~%~a"); lf[141]=C_h_intern(&lf[141],8,"for-each"); lf[142]=C_decode_literal(C_heaptop,"\376B\000\000\016in conditional"); lf[143]=C_decode_literal(C_heaptop,"\376B\000\000\025in `let\047 binding of `"); lf[144]=C_h_intern(&lf[144],11,"\004corelambda"); lf[145]=C_h_intern(&lf[145],6,"lambda"); lf[146]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\011procedure\376\377\016"); lf[147]=C_h_intern(&lf[147],16,"\003sysdynamic-wind"); lf[148]=C_h_intern(&lf[148],7,"butlast"); lf[149]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006#!rest\376\377\016"); lf[150]=C_h_intern(&lf[150],30,"\010compilerdecompose-lambda-list"); lf[151]=C_h_intern(&lf[151],4,"set!"); lf[152]=C_h_intern(&lf[152],9,"\004coreset!"); lf[153]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\006\001\376\377\016"); lf[154]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\011undefined\376\377\016"); lf[155]=C_h_intern(&lf[155],5,"cdaar"); lf[156]=C_h_intern(&lf[156],5,"caaar"); lf[157]=C_h_intern(&lf[157],8,"captured"); lf[158]=C_h_intern(&lf[158],8,"\003sysput!"); lf[159]=C_h_intern(&lf[159],9,"inference"); lf[160]=C_h_intern(&lf[160],18,"\010compilerdebugging"); lf[161]=C_h_intern(&lf[161],1,"I"); lf[162]=C_decode_literal(C_heaptop,"\376B\000\000\003(: "); lf[164]=C_h_intern(&lf[164],18,"\010compilertree-copy"); lf[165]=C_h_intern(&lf[165],2,"no"); lf[166]=C_h_intern(&lf[166],15,"\010compilerinline"); lf[167]=C_h_intern(&lf[167],26,"\010compilervariable-visible\077"); lf[168]=C_h_intern(&lf[168],11,"local-value"); lf[169]=C_h_intern(&lf[169],5,"value"); lf[170]=C_h_intern(&lf[170],7,"unknown"); lf[171]=C_decode_literal(C_heaptop,"\376B\000\000\134assignment of value of type `~a\047 to toplevel variable `~a\047 does not match d" "eclared type `~a\047"); lf[172]=C_decode_literal(C_heaptop,"\376B\000\000\022in assignment to `"); lf[173]=C_h_intern(&lf[173],14,"\004coreprimitive"); lf[174]=C_h_intern(&lf[174],15,"\004coreinline_ref"); lf[175]=C_decode_literal(C_heaptop,"\376B\000\000\024 of procedure call `"); lf[176]=C_decode_literal(C_heaptop,"\376B\000\000\021operator position"); lf[177]=C_decode_literal(C_heaptop,"\376B\000\000\012argument #"); lf[178]=C_decode_literal(C_heaptop,"\376B\000\000\003in "); lf[179]=C_h_intern(&lf[179],14,"\010compilerclean"); lf[180]=C_h_intern(&lf[180],13,"\010compilerpure"); lf[183]=C_h_intern(&lf[183],28,"\010compilerspecial-result-type"); lf[184]=C_h_intern(&lf[184],16,"\010compilerenforce"); lf[185]=C_h_intern(&lf[185],4,"iota"); lf[186]=C_h_intern(&lf[186],8,"\004corethe"); lf[187]=C_decode_literal(C_heaptop,"\376B\000\000Sexpression returns zero values but is declared to have a single result of t" "ype `~a\047"); lf[188]=C_decode_literal(C_heaptop,"\376B\000\000`expression returns a result of type `~a\047 but is declared to return `~a\047, wh" "ich is not compatible"); lf[190]=C_decode_literal(C_heaptop,"\376B\000\000Dexpression returns ~a values but is declared to have a single result"); lf[191]=C_h_intern(&lf[191],13,"\010compilerquit"); lf[192]=C_decode_literal(C_heaptop,"\376B\000\000K~a~ano clause applies in `compiler-typecase\047 for expression of type `~s\047:~a" ); lf[193]=C_h_intern(&lf[193],18,"string-concatenate"); lf[194]=C_decode_literal(C_heaptop,"\376B\000\000\005\012 "); lf[195]=C_h_intern(&lf[195],11,"\004coreswitch"); lf[196]=C_h_intern(&lf[196],9,"\004corecond"); lf[197]=C_h_intern(&lf[197],13,"\010compilerbomb"); lf[198]=C_decode_literal(C_heaptop,"\376B\000\000!scrutinize: unexpected node class"); lf[199]=C_decode_literal(C_heaptop,"\376B\000\000-some variable types do not satisfy strictness"); lf[200]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001o\376\003\000\000\002\376\001\000\000\001e\376\377\016"); lf[201]=C_decode_literal(C_heaptop,"\376B\000\000\037assignments to immediate values"); lf[202]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001o\376\003\000\000\002\376\001\000\000\001e\376\377\016"); lf[203]=C_decode_literal(C_heaptop,"\376B\000\000\020dropped branches"); lf[204]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001o\376\003\000\000\002\376\001\000\000\001e\376\377\016"); lf[205]=C_decode_literal(C_heaptop,"\376B\000\000\012safe calls"); lf[206]=C_decode_literal(C_heaptop,"\376B\000\000\002 "); lf[207]=C_h_intern(&lf[207],5,"print"); lf[208]=C_decode_literal(C_heaptop,"\376B\000\000\020specializations:"); lf[209]=C_h_intern(&lf[209],30,"\010compilerwith-debugging-output"); lf[210]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001o\376\003\000\000\002\376\001\000\000\001e\376\377\016"); lf[211]=C_h_intern(&lf[211],9,"vector-of"); lf[212]=C_h_intern(&lf[212],10,"constantly"); lf[213]=C_h_intern(&lf[213],7,"list-of"); lf[214]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\002or\376\003\000\000\002\376\001\000\000\004pair\376\003\000\000\002\376\001\000\000\004null\376\377\016"); lf[215]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006#!rest\376\003\000\000\002\376\001\000\000\012#!optional\376\377\016"); lf[216]=C_h_intern(&lf[216],10,"#!optional"); lf[217]=C_h_intern(&lf[217],6,"#!rest"); lf[219]=C_h_intern(&lf[219],5,"break"); lf[220]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\011undefined\376\003\000\000\002\376\001\000\000\010noreturn\376\377\016"); lf[222]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\002or\376\003\000\000\002\376\001\000\000\004true\376\003\000\000\002\376\001\000\000\005false\376\377\016"); lf[223]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\002or\376\003\000\000\002\376\001\000\000\004true\376\003\000\000\002\376\001\000\000\005false\376\377\016"); lf[224]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\002or\376\003\000\000\002\376\001\000\000\006fixnum\376\003\000\000\002\376\001\000\000\005float\376\377\016"); lf[225]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\002or\376\003\000\000\002\376\001\000\000\006fixnum\376\003\000\000\002\376\001\000\000\005float\376\377\016"); lf[226]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\004pair\376\003\000\000\002\376\001\000\000\001\052\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[227]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\004pair\376\003\000\000\002\376\001\000\000\001\052\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[228]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\007list-of\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[229]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\007list-of\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[230]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\011vector-of\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[231]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\011vector-of\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[234]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006#!rest\376\377\016"); lf[235]=C_h_intern(&lf[235],10,"filter-map"); lf[236]=C_h_intern(&lf[236],14,"\004corereal-name"); lf[237]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\011procedure\376\377\016"); lf[238]=C_h_intern(&lf[238],18,"merge-result-types"); lf[239]=C_h_intern(&lf[239],20,"merge-argument-types"); lf[240]=C_h_intern(&lf[240],6,"reduce"); lf[241]=C_h_intern(&lf[241],3,"any"); lf[242]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[243]=C_h_intern(&lf[243],7,"reverse"); lf[244]=C_h_intern(&lf[244],5,"lset="); lf[245]=C_h_intern(&lf[245],3,"eq\077"); lf[246]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006fixnum\376\003\000\000\002\376\001\000\000\005float\376\377\016"); lf[247]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\004true\376\003\000\000\002\376\001\000\000\005false\376\377\016"); lf[248]=C_h_intern(&lf[248],31,"\010compilercanonicalize-list-type"); lf[250]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\011procedure\376\377\016"); lf[251]=C_h_intern(&lf[251],11,"lset-adjoin"); lf[252]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006#!rest\376\377\016"); lf[253]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006#!rest\376\377\016"); lf[254]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006#!rest\376\377\016"); lf[255]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006#!rest\376\377\016"); lf[256]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\004pair\376\003\000\000\002\376\001\000\000\001\052\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[257]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\011vector-of\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[258]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\007list-of\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[259]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\002or\376\003\000\000\002\376\001\000\000\004true\376\003\000\000\002\376\001\000\000\005false\376\377\016"); lf[260]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\002or\376\003\000\000\002\376\001\000\000\006fixnum\376\003\000\000\002\376\001\000\000\005float\376\377\016"); lf[261]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\004true\376\003\000\000\002\376\001\000\000\005false\376\377\016"); lf[262]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006fixnum\376\003\000\000\002\376\001\000\000\005float\376\377\016"); lf[263]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\011vector-of\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[264]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\007list-of\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[265]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\004pair\376\003\000\000\002\376\001\000\000\001\052\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[266]=C_h_intern(&lf[266],14,"string->symbol"); lf[267]=C_decode_literal(C_heaptop,"\376B\000\000)procedure-arguments: not a procedure type"); lf[268]=C_decode_literal(C_heaptop,"\376B\000\000\047procedure-results: not a procedure type"); lf[269]=C_h_intern(&lf[269],6,"values"); lf[270]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\010noreturn\376\377\016"); lf[272]=C_h_intern(&lf[272],3,"and"); lf[273]=C_h_intern(&lf[273],10,"\003sysappend"); lf[274]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006values\376\377\016"); lf[275]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001\052\376\003\000\000\002\376\001\000\000\006fixnum\376\003\000\000\002\376\001\000\000\003eof\376\003\000\000\002\376\001\000\000\004char\376\003\000\000\002\376\001\000\000\006string\376\003\000\000\002\376\001\000\000\006" "symbol\376\003\000\000\002\376\001\000\000\005float\376\003\000\000\002\376\001\000\000\006number\376\003\000\000\002\376\001\000\000\004list\376\003\000\000\002\376\001\000\000\006vector\376\003\000\000\002\376\001\000\000\004pai" "r\376\003\000\000\002\376\001\000\000\011undefined\376\003\000\000\002\376\001\000\000\004blob\376\003\000\000\002\376\001\000\000\012input-port\376\003\000\000\002\376\001\000\000\013output-port\376\003\000\000\002" "\376\001\000\000\007pointer\376\003\000\000\002\376\001\000\000\010locative\376\003\000\000\002\376\001\000\000\007boolean\376\003\000\000\002\376\001\000\000\004true\376\003\000\000\002\376\001\000\000\005false\376\003\000\000" "\002\376\001\000\000\016pointer-vector\376\003\000\000\002\376\001\000\000\004null\376\003\000\000\002\376\001\000\000\011procedure\376\003\000\000\002\376\001\000\000\010noreturn\376\377\016"); lf[276]=C_decode_literal(C_heaptop,"\376B\000\000,resolve: can\047t resolve unknown type-variable"); lf[277]=C_h_intern(&lf[277],27,"\010compilerload-type-database"); lf[278]=C_h_intern(&lf[278],22,"\010compilervalidate-type"); lf[279]=C_h_intern(&lf[279],32,"\010compilerinstall-specializations"); lf[280]=C_h_intern(&lf[280],2,"db"); lf[281]=C_h_intern(&lf[281],8,"feature\077"); lf[282]=C_h_intern(&lf[282],18,"\000chicken-bootstrap"); lf[283]=C_decode_literal(C_heaptop,"\376B\000\000\021 Original type: "); lf[284]=C_decode_literal(C_heaptop,"\376B\000\000\021 New type: "); lf[285]=C_decode_literal(C_heaptop,"\376B\000\000(\047 conflicts with previously loaded type:"); lf[286]=C_decode_literal(C_heaptop,"\376B\000\000&type definition for toplevel binding `"); lf[287]=C_decode_literal(C_heaptop,"\376B\000\000\003\047: "); lf[288]=C_decode_literal(C_heaptop,"\376B\000\000 invalid type specification for `"); lf[289]=C_h_intern(&lf[289],5,"\000pure"); lf[290]=C_h_intern(&lf[290],30,"\010compilerenable-specialization"); lf[291]=C_h_intern(&lf[291],6,"\000clean"); lf[292]=C_h_intern(&lf[292],8,"\000enforce"); lf[293]=C_h_intern(&lf[293],10,"\000predicate"); lf[294]=C_decode_literal(C_heaptop,"\376B\000\0003load-type-database: invalid procedure-type property"); lf[295]=C_h_intern(&lf[295],9,"read-file"); lf[296]=C_h_intern(&lf[296],1,"p"); lf[297]=C_decode_literal(C_heaptop,"\376B\000\000\005\047 ..."); lf[298]=C_decode_literal(C_heaptop,"\376B\000\000\027loading type database `"); lf[299]=C_h_intern(&lf[299],12,"file-exists\077"); lf[300]=C_h_intern(&lf[300],13,"make-pathname"); lf[301]=C_h_intern(&lf[301],15,"repository-path"); lf[302]=C_h_intern(&lf[302],23,"\010compileremit-type-file"); lf[303]=C_decode_literal(C_heaptop,"\376B\000\000\015; END OF FILE"); lf[304]=C_h_intern(&lf[304],7,"newline"); lf[305]=C_h_intern(&lf[305],5,"cons\052"); lf[306]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\010\000enforce\376\377\016"); lf[307]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005\000pure\376\377\016"); lf[308]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006\000clean\376\377\016"); lf[309]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005local\376\003\000\000\002\376\001\000\000\011inference\376\377\016"); lf[310]=C_h_intern(&lf[310],23,"\003syshash-table-for-each"); lf[311]=C_decode_literal(C_heaptop,"\376B\000\000\027; GENERATED BY CHICKEN "); lf[312]=C_decode_literal(C_heaptop,"\376B\000\000\006 FROM "); lf[313]=C_h_intern(&lf[313],24,"\010compilersource-filename"); lf[314]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[315]=C_h_intern(&lf[315],15,"chicken-version"); lf[316]=C_h_intern(&lf[316],19,"with-output-to-file"); lf[318]=C_h_intern(&lf[318],19,"\010compilercopy-node!"); lf[319]=C_h_intern(&lf[319],25,"\010compilerbuild-node-graph"); lf[320]=C_h_intern(&lf[320],13,"alist-update!"); lf[321]=C_h_intern(&lf[321],9,"copy-node"); lf[322]=C_h_intern(&lf[322],9,"alist-ref"); lf[323]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006#!rest\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[324]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006#!rest\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[325]=C_h_intern(&lf[325],5,"#!key"); lf[326]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006#!rest\376\003\000\000\002\376\001\000\000\001\052\376\377\016"); lf[327]=C_h_intern(&lf[327],5,"&rest"); lf[328]=C_h_intern(&lf[328],9,"&optional"); lf[329]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001\052\376\003\000\000\002\376\001\000\000\006string\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\004char\376\003\000\000\002\376\001\000\000\006number\376\003\000\000\002\376\001" "\000\000\007boolean\376\003\000\000\002\376\001\000\000\004true\376\003\000\000\002\376\001\000\000\005false\376\003\000\000\002\376\001\000\000\004list\376\003\000\000\002\376\001\000\000\004pair\376\003\000\000\002\376\001\000\000\011pro" "cedure\376\003\000\000\002\376\001\000\000\006vector\376\003\000\000\002\376\001\000\000\004null\376\003\000\000\002\376\001\000\000\003eof\376\003\000\000\002\376\001\000\000\011undefined\376\003\000\000\002\376\001\000\000\012in" "put-port\376\003\000\000\002\376\001\000\000\013output-port\376\003\000\000\002\376\001\000\000\004blob\376\003\000\000\002\376\001\000\000\007pointer\376\003\000\000\002\376\001\000\000\010locative\376\003" "\000\000\002\376\001\000\000\006fixnum\376\003\000\000\002\376\001\000\000\005float\376\003\000\000\002\376\001\000\000\016pointer-vector\376\003\000\000\002\376\001\000\000\012deprecated\376\003\000\000\002\376\001" "\000\000\010noreturn\376\003\000\000\002\376\001\000\000\006values\376\377\016"); lf[330]=C_h_intern(&lf[330],8,"u8vector"); lf[331]=C_h_intern(&lf[331],8,"s8vector"); lf[332]=C_h_intern(&lf[332],9,"u16vector"); lf[333]=C_h_intern(&lf[333],9,"s16vector"); lf[334]=C_h_intern(&lf[334],9,"u32vector"); lf[335]=C_h_intern(&lf[335],9,"s32vector"); lf[336]=C_h_intern(&lf[336],9,"f32vector"); lf[337]=C_h_intern(&lf[337],9,"f64vector"); lf[338]=C_h_intern(&lf[338],6,"thread"); lf[339]=C_h_intern(&lf[339],5,"queue"); lf[340]=C_h_intern(&lf[340],11,"environment"); lf[341]=C_h_intern(&lf[341],4,"time"); lf[342]=C_h_intern(&lf[342],12,"continuation"); lf[343]=C_h_intern(&lf[343],4,"lock"); lf[344]=C_h_intern(&lf[344],4,"mmap"); lf[345]=C_h_intern(&lf[345],9,"condition"); lf[346]=C_h_intern(&lf[346],10,"hash-table"); lf[347]=C_h_intern(&lf[347],12,"tcp-listener"); lf[348]=C_h_intern(&lf[348],9,"immediate"); lf[349]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\002or\376\003\000\000\002\376\001\000\000\003eof\376\003\000\000\002\376\001\000\000\004null\376\003\000\000\002\376\001\000\000\006fixnum\376\003\000\000\002\376\001\000\000\004char\376\003\000\000\002\376\001\000\000\007b" "oolean\376\377\016"); lf[350]=C_h_intern(&lf[350],4,"port"); lf[351]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\002or\376\003\000\000\002\376\001\000\000\012input-port\376\003\000\000\002\376\001\000\000\013output-port\376\377\016"); lf[352]=C_h_intern(&lf[352],4,"void"); lf[353]=C_h_intern(&lf[353],8,"identity"); lf[354]=C_h_intern(&lf[354],3,"-->"); lf[355]=C_h_intern(&lf[355],1,":"); lf[356]=C_h_intern(&lf[356],2,"->"); lf[357]=C_h_intern(&lf[357],26,"\010compilertype-abbreviation"); lf[358]=C_h_intern(&lf[358],17,"delete-duplicates"); lf[359]=C_h_intern(&lf[359],32,"\010compilercheck-and-validate-type"); lf[360]=C_h_intern(&lf[360],5,"error"); lf[361]=C_decode_literal(C_heaptop,"\376B\000\000\026invalid type specifier"); lf[362]=C_decode_literal(C_heaptop,"\376B\000\000\035invalid specialization format"); lf[363]=C_decode_literal(C_heaptop,"\376B\000\000\047invalid argument type in specialization"); lf[364]=C_decode_literal(C_heaptop,"\376B\000\000%invalid result type in specialization"); lf[365]=C_h_intern(&lf[365],6,"unzip1"); lf[366]=C_decode_literal(C_heaptop,"\376B\000\000J~ain procedure call to `~s\047, index ~a out of range for vector of length ~a"); lf[367]=C_h_intern(&lf[367],8,"\003sysslot"); lf[368]=C_decode_literal(C_heaptop,"\376B\000\000G~ain procedure call to `~s\047, index ~a is negative, which is never valid"); lf[369]=C_decode_literal(C_heaptop,"\376B\000\000O~ain procedure call to `~s\047, index ~a out of range for proper list of lengt" "h ~a"); lf[370]=C_h_intern(&lf[370],8,"split-at"); lf[371]=C_decode_literal(C_heaptop,"\376B\000\000R~ain procedure call to `~s\047, argument #~a is of type ~a but expected a prop" "er list"); lf[372]=C_h_intern(&lf[372],11,"concatenate"); lf[373]=C_h_intern(&lf[373],6,"equal\077"); lf[374]=C_h_intern(&lf[374],11,"make-vector"); lf[375]=C_h_intern(&lf[375],10,"\003sysvector"); lf[376]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\004null\376\377\016"); lf[377]=C_h_intern(&lf[377],8,"\003syslist"); lf[378]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\004null\376\377\016"); lf[379]=C_h_intern(&lf[379],4,"drop"); lf[380]=C_h_intern(&lf[380],9,"list-tail"); lf[381]=C_h_intern(&lf[381],8,"list-ref"); lf[382]=C_h_intern(&lf[382],12,"\003syssetislot"); lf[383]=C_h_intern(&lf[383],11,"\003syssetslot"); lf[384]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\011undefined\376\377\016"); lf[385]=C_h_intern(&lf[385],11,"vector-set!"); lf[386]=C_h_intern(&lf[386],14,"\003sysvector-ref"); lf[387]=C_h_intern(&lf[387],10,"vector-ref"); lf[388]=C_h_intern(&lf[388],14,"pointer-vector"); lf[389]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016pointer-vector\376\377\016"); lf[390]=C_h_intern(&lf[390],18,"\003sysmake-structure"); C_register_lf2(lf,391,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9001(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_9001,2,av);} a=C_alloc(28); t2=t1; t3=C_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]); t4=t3; t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9007,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],tmp=(C_word)a,a+=13,tmp); t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9288,a[2]=((C_word*)t0)[13],a[3]=t5,a[4]=((C_word*)t0)[14],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[15],tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)t0)[12])){ if(C_truep(t4)){ t7=t6; f_9288(t7,C_SCHEME_FALSE);} else{ t7=C_eqp(((C_word*)t0)[12],lf[61]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9320,a[2]=t6,a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[7],a[5]=t2,tmp=(C_word)a,a+=6,tmp); if(C_truep(t7)){ t9=t8; f_9320(t9,t7);} else{ if(C_truep(C_i_pairp(((C_word*)t0)[12]))){ t9=C_u_i_car(((C_word*)t0)[12]); t10=t8; f_9320(t10,C_eqp(t9,lf[61]));} else{ t9=t8; f_9320(t9,C_SCHEME_FALSE);}}}} else{ t7=t6; f_9288(t7,C_SCHEME_FALSE);}} /* k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_9007(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,4)))){ C_save_and_reclaim((void *)f_9007,2,av);} a=C_alloc(21); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9010,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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_9131,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[10],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[12])){ t4=t3; f_9131(t4,C_SCHEME_FALSE);} else{ if(C_truep(((C_word*)t0)[6])){ t4=t3; f_9131(t4,C_SCHEME_FALSE);} else{ t4=C_eqp(lf[60],((C_word*)t0)[5]); if(C_truep(t4)){ t5=t3; f_9131(t5,C_SCHEME_FALSE);} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9281,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:648: get */ t6=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[10]; av2[3]=((C_word*)t0)[8]; av2[4]=lf[170]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}}} /* a11352 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_11353(C_word c,C_word *av){ C_word 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_11353,3,av);} /* scrutinizer.scm:1046: match1 */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; f_11054(4,av2);}} /* map-loop1777 in k10654 in loop in doloop1759 in smash-component-types! in k6121 in k6118 in k6115 */ static void C_fcall f_10665(C_word t0,C_word t1,C_word 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_10665,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_10690,a[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:913: g1783 */ 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);}}} /* k10661 in k10654 in loop in doloop1759 in smash-component-types! in k6121 in k6118 in k6115 */ static void C_ccall f_10663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10663,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[57],t1); /* scrutinizer.scm:913: change! */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12002 in k11968 in k11926 in k11824 in k11722 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_12004(C_word t0,C_word t1){ C_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_12004,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)((C_word*)t0)[2])[1]; if(C_truep(t2)){ 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);}} 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(lf[211],t4); if(C_truep(t5)){ t6=C_i_cdr(((C_word*)t0)[5]); t7=C_i_cadr(((C_word*)t0)[4]); t8=t7; t9=((C_word*)((C_word*)t0)[6])[1]; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12034,a[2]=t9,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1144: over-all-instantiations */ f_19983(((C_word*)t0)[3],t6,((C_word*)t0)[7],C_SCHEME_TRUE,t10);} else{ t6=((C_word*)t0)[3];{ C_word av2[2]; 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[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12046,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],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_12046(t5,C_eqp(lf[211],t4));} else{ t3=t2; f_12046(t3,C_SCHEME_FALSE);}}} /* map-loop1069 in k8906 in k8728 in k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_8919(C_word t0,C_word t1,C_word 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_8919,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_mutate2(((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);}}} /* k8915 in k8906 in k8728 in k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8917,2,av);} /* scrutinizer.scm:576: append */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a11954 in k11926 in k11824 in k11722 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_11958(C_word c,C_word *av){ C_word 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_11958,3,av);} /* scrutinizer.scm:1133: g20832084 */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9067 in k9104 in loop in k9032 in k9008 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ 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; C_word t3; C_word 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_9069,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_9088,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:691: cdaar */ t8=*((C_word*)lf[155]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a20724 in k6121 in k6118 in k6115 */ static void C_ccall f_20725(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(9,c,1)))){ C_save_and_reclaim((void *)f_20725,6,av);} a=C_alloc(9); t6=C_slot(t2,C_fix(3)); if(C_truep(t6)){ t7=C_i_length(t6); if(C_truep(C_fixnum_greater_or_equal_p(t7,C_fix(2)))){ t8=C_i_cadr(t6); if(C_truep(t8)){ t9=C_slot(t8,C_fix(1)); t10=C_eqp(lf[106],t9); if(C_truep(t10)){ t11=C_slot(t8,C_fix(2)); t12=C_i_car(t11); if(C_truep(t12)){ if(C_truep(C_i_symbolp(t12))){ t13=C_eqp(lf[388],t12); if(C_truep(t13)){ t14=lf[389]; if(C_truep(t14)){ t15=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t15=t5; t16=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}} else{ t14=C_a_i_list(&a,2,lf[59],t12); t15=C_a_i_list(&a,1,t14); if(C_truep(t15)){ t16=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ t16=t5; t17=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t17; av2[1]=t16; ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}}} else{ t13=t5; t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t13=t5; t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t11=t5; t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} else{ t9=t5; t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} else{ t8=t5; t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t7=t5; t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k9032 in k9008 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_9034(C_word t0,C_word t1){ C_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_9034,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_9042,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t6,tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_9042(t8,((C_word*)t0)[5],((C_word*)((C_word*)t0)[4])[1],C_SCHEME_FALSE);} /* loop in k9032 in k9008 in k9005 in k8999 in k8996 in k8993 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_9042(C_word t0,C_word 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_9042,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_a_i_cons(&a,2,C_a_i_cons(&a,2,t4,((C_word*)t0)[4]),((C_word*)((C_word*)t0)[5])[1]); t6=C_mutate2(((C_word *)((C_word*)t0)[5])+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=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9106,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)[4],a[8]=t3,tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:686: caaar */ t5=*((C_word*)lf[156]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k8906 in k8728 in k8725 in a8719 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 t3; C_word 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_8908,2,av);} a=C_alloc(11); t2=C_i_check_list_2(t1,lf[89]); t3=C_i_check_list_2(((C_word*)t0)[2],lf[89]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8917,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_8919,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_8919(t8,t4,t1,((C_word*)t0)[2]);} /* k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_16292,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16295,a[2]=((C_word*)t0)[2],a[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_16344,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[7])){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16409,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1796: compatible-types? */ f_13493(t4,((C_word*)t0)[7],((C_word*)t0)[5]);} else{ t4=t3; f_16344(t4,C_SCHEME_FALSE);}} /* k16293 in k16290 in a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_16295,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16312,a[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_list(&a,1,((C_word*)t0)[5]); if(C_truep(C_i_nullp(t3))){ /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[68]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_i_car(t3); /* tweaks.scm:54: ##sys#put! */ t5=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[68]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k20706 in k20717 in k20665 in a20662 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20708,2,av);} t2=lf[384]; if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* g956 in k8321 in k8317 in k8560 in k8563 in k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_8475(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_8475,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:532: add-to-blist */ t11=((C_word*)((C_word*)t0)[4])[1]; f_7909(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);}}} /* always-true in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_6816(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_6816,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(9); t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6820,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=t4,a[6]=((C_word*)t0)[3],a[7]=t2,a[8]=t3,tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:241: always-true1 */ t7=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t4; f_6773(3,av2);}} /* k6828 in k6818 in always-true in scrutinize in k6121 in k6118 in k6115 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6830,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,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]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:245: pp-fragment */ t4=((C_word*)((C_word*)t0)[6])[1]; f_7186(t4,t3,((C_word*)t0)[7]);} /* k6307 in location-name in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_6309,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6315,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:147: ##sys#print */ t6=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[42]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k6818 in always-true in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_6820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6820,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6826,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6830,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:245: node-source-prefix */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a16281 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16282(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16282,2,av);} /* scrutinizer.scm:1790: validate-type */ t2=*((C_word*)lf[278]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a16287 in k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16288,5,av);} a=C_alloc(13); t5=t2; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16292,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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_16292(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16416,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1793: open-output-string */ t8=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* always-false in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_6836(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_6836,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(10); t6=C_eqp(t4,lf[53]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6846,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6850,a[2]=((C_word*)t0)[2],a[3]=t7,a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:252: node-source-prefix */ t9=*((C_word*)lf[26]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(3,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);}}} /* k6832 in k6828 in k6818 in always-true in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_6834,2,av);} /* scrutinizer.scm:242: report-notice */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[77]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=t1; f_6919(7,av2);}} /* a16251 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_16252,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[1]+1)); t3=C_mutate2((C_word*)lf[1]+1 /* (set! ##compiler#scrutiny-debug ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_16257,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16643,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1812: read-file */ t3=*((C_word*)lf[295]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a11048 in rawmatch1 in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_11049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11049,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a11042 in rawmatch1 in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_11043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11043,2,av);} /* scrutinizer.scm:981: match1 */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; f_11054(4,av2);}} /* k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_11344(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,5)))){ C_save_and_reclaim_args((void *)trf_11344,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=C_i_cdr(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11353,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1042: over-all-instantiations */ f_19983(((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)((C_word*)t0)[7])[1],t3);} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11363,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],tmp=(C_word)a,a+=10,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_11363(t5,C_eqp(lf[17],t4));} else{ t3=t2; f_11363(t3,C_SCHEME_FALSE);}}} /* a11037 in rawmatch1 in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_11038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11038,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* rawmatch1 in match-types in k6121 in k6118 in k6115 */ static void C_fcall f_11032(C_word t0,C_word t1,C_word 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_11032,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_11038,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_11043,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_11049,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t7,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:932: ##sys#dynamic-wind */ t11=*((C_word*)lf[147]+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);}} /* k17044 in node-source-prefix in k6121 in k6118 in k6115 */ static void C_ccall f_17046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,2)))){ C_save_and_reclaim((void *)f_17046,2,av);} t2=C_slot(t1,C_fix(1)); t3=C_eqp(t2,lf[32]); if(C_truep(t3)){ t4=C_slot(t1,C_fix(2)); t5=C_i_cdr(t4); if(C_truep(C_i_pairp(t5))){ t6=C_i_cadr(t4); if(C_truep(C_i_pairp(t6))){ t7=C_u_i_cdr(t4); t8=C_u_i_car(t7); /* scrutinizer.scm:1888: source-info->line */ t9=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=((C_word*)t0)[2]; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t7=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t4=C_eqp(t2,lf[34]); if(C_truep(t4)){ t5=C_slot(t1,C_fix(2)); t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_car(t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} /* k11329 in k11326 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_11331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11331,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a15113 in k15107 in loop1 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_15114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(8,c,2)))){ C_save_and_reclaim((void *)f_15114,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15122,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=C_i_cadr(((C_word*)t0)[2]); t5=C_i_stringp(t4); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15158,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(t5)){ t7=t6; f_15158(t7,t5);} else{ t7=((C_word*)t0)[2]; t8=C_u_i_cdr(t7); t9=C_u_i_car(t8); t10=t6; f_15158(t10,C_i_symbolp(t9));}} /* k18064 in loop in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ 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(3,c,1)))){ C_save_and_reclaim((void *)f_18066,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k18067 in loop in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_18069(C_word c,C_word *av){ C_word tmp; C_word t0=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_18069,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18073,a[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:2057: g3871 */ t3=t2; f_18073(t3,((C_word*)t0)[5],t1);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_fcall f_16274(C_word t0,C_word t1){ C_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_16274,2,t0,t1);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16277,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_u_i_cdr(((C_word*)t0)[5]); t5=C_u_i_car(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_16448,a[2]=((C_word*)t0)[2],a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_16448(t9,t3,t5);} /* k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_16271,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16274,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_i_cddr(((C_word*)t0)[4]); if(C_truep(C_i_pairp(t4))){ t5=C_u_i_cdr(((C_word*)t0)[4]); t6=t3; f_16274(t6,C_u_i_cdr(t5));} else{ t5=t3; f_16274(t5,C_SCHEME_FALSE);}} /* k16275 in k16272 in k16269 in for-each-loop3302 in k16641 in a16256 in k16245 in k16239 in k16190 in load-type-database in k6121 in k6118 in k6115 */ static void C_ccall f_16277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_16277,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16282,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_16288,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); /* scrutinizer.scm:1755: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* g3871 in k18067 in loop in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_fcall f_18073(C_word t0,C_word t1,C_word 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_18073,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:2061: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_18048(t5,t1,t3,t4);} /* k15107 in loop1 in k7359 in k7356 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_15109(C_word 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_15109,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15114,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1614: call/cc */ t3=*((C_word*)lf[123]+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{ 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[19],t3); if(C_truep(t4)){ t5=C_i_caddr(((C_word*)t0)[2]); /* scrutinizer.scm:1623: loop1 */ t6=((C_word*)((C_word*)t0)[4])[1]; f_15081(t6,((C_word*)t0)[3],t5);} else{ t5=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t5; av2[1]=lf[60]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[60]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* match1 in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_11054(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(11,c,3)))){ C_save_and_reclaim((void *)f_11054,4,av);} a=C_alloc(11); t4=C_eqp(t2,t3); if(C_truep(t4)){ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_11071,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:986: g1945 */ t8=t7; f_11071(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_11199,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:986: g1978 */ t10=t9; f_11199(t10,t1,t8);} else{ t9=C_eqp(t2,lf[60]); if(C_truep(t9)){ t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_eqp(t3,lf[60]); if(C_truep(t10)){ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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[25]); if(C_truep(t11)){ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t12=C_eqp(t3,lf[25]); if(C_truep(t12)){ t13=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t13=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11300,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t3,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_pairp(t2))){ t14=t2; t15=C_u_i_car(t14); t16=t13; f_11300(t16,C_eqp(lf[113],t15));} else{ t14=t13; f_11300(t14,C_SCHEME_FALSE);}}}}}}}}} /* k16059 in map-loop3200 in k16011 in k15992 in k15989 in k15986 in k15922 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_ccall f_16061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_16061,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_16036(t6,((C_word*)t0)[5],t5);} /* k11082 in g1945 in match1 in match-types in k6121 in k6118 in k6115 */ static void C_ccall f_11084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,3)))){ C_save_and_reclaim((void *)f_11084,2,av);} if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); t3=C_i_not(t2); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); t7=C_u_i_car(t6); /* scrutinizer.scm:993: rawmatch1 */ t8=((C_word*)((C_word*)t0)[4])[1]; f_11032(t8,((C_word*)t0)[3],t7,((C_word*)t0)[5]);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* loop in k15992 in k15989 in k15986 in k15922 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_fcall f_16070(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_16070,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[217],t3); if(C_truep(t4)){ t5=t2; t6=C_u_i_cdr(t5); if(C_truep(C_i_equalp(lf[274],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_16098,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=t2; t11=C_u_i_cdr(t10); /* scrutinizer.scm:1732: loop */ t14=t9; t15=t11; t1=t14; t2=t15; goto loop;}} else{ t5=t2; t6=C_u_i_car(t5); t7=C_eqp(lf[216],t6); if(C_truep(t7)){ t8=t2; t9=C_u_i_car(t8); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16117,a[2]=t1,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=t2; t12=C_u_i_cdr(t11); /* scrutinizer.scm:1734: loop */ t14=t10; t15=t12; t1=t14; t2=t15; goto loop;} else{ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16126,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:1735: resolve */ t11=((C_word*)((C_word*)t0)[3])[1]; f_15750(t11,t8,t10,((C_word*)t0)[4]);}}}} /* g1945 in match1 in match-types in k6121 in k6118 in k6115 */ 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 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_11071,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_cadr(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11084,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=t2; t5=C_u_i_cdr(t4); t6=C_u_i_car(t5); /* scrutinizer.scm:991: match1 */ t7=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[4]; av2[0]=t7; av2[1]=t3; av2[2]=t6; av2[3]=((C_word*)t0)[3]; f_11054(4,av2);}} else{ t3=C_i_symbolp(((C_word*)t0)[3]); t4=(C_truep(t3)?C_i_assq(((C_word*)t0)[3],((C_word*)t0)[5]):C_SCHEME_FALSE); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11111,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:989: g1959 */ t6=t5; f_11111(t6,t1,t4);} else{ t5=C_i_caddr(t2); t6=C_i_not(t5); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11160,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(t6)){ t8=t7;{ C_word av2[2]; av2[0]=t8; av2[1]=t6; f_11160(2,av2);}} else{ t8=t2; t9=C_u_i_cdr(t8); t10=C_u_i_cdr(t9); t11=C_u_i_car(t10); /* scrutinizer.scm:1005: rawmatch1 */ t12=((C_word*)((C_word*)t0)[2])[1]; f_11032(t12,t7,t11,((C_word*)t0)[3]);}}}} /* k6313 in k6307 in location-name in k6121 in k6118 in k6115 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_6315,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6318,a[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_6328,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[5]; t5=C_u_i_car(t4); /* scrutinizer.scm:147: lname */ f_6268(t3,t5);} /* k6316 in k6313 in k6307 in location-name in k6121 in k6118 in k6115 */ static void C_ccall f_6318(C_word c,C_word *av){ C_word tmp; C_word t0=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_6318,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6321,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:147: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[41]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k17000 in a16956 in fragment in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_17002(C_word c,C_word *av){ C_word tmp; C_word t0=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_17002,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[94],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop3574 in a16956 in fragment in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_17004(C_word t0,C_word t1,C_word 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_17004,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_17029,a[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:1877: g3580 */ 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);}}} /* ##compiler#scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_6388(C_word c,C_word *av){ C_word tmp; C_word t0=av[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 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(153,c,9)))){ C_save_and_reclaim((void *)f_6388,6,av);} a=C_alloc(153); 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_FALSE; 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_fix(0); 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_fix(0); 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_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6391,a[2]=t21,tmp=(C_word)a,a+=3,tmp)); t57=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6622,a[2]=t39,tmp=(C_word)a,a+=3,tmp)); t58=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6674,a[2]=t7,tmp=(C_word)a,a+=3,tmp)); t59=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6705,a[2]=t23,a[3]=t3,a[4]=t25,tmp=(C_word)a,a+=5,tmp)); t60=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6773,a[2]=t29,tmp=(C_word)a,a+=3,tmp)); t61=C_set_block_item(t31,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6816,a[2]=t37,a[3]=t45,a[4]=t29,tmp=(C_word)a,a+=5,tmp)); t62=C_set_block_item(t33,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6836,a[2]=t37,a[3]=t45,tmp=(C_word)a,a+=4,tmp)); t63=C_set_block_item(t35,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6868,a[2]=t39,tmp=(C_word)a,a+=3,tmp)); t64=C_set_block_item(t37,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6919,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t65=C_set_block_item(t39,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6995,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t66=C_set_block_item(t41,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7071,a[2]=t17,a[3]=t39,tmp=(C_word)a,a+=4,tmp)); t67=C_set_block_item(t43,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7079,tmp=(C_word)a,a+=2,tmp)); t68=C_set_block_item(t45,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7186,a[2]=t43,tmp=(C_word)a,a+=3,tmp)); t69=C_set_block_item(t47,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7242,a[2]=t43,a[3]=t39,a[4]=t19,a[5]=t5,a[6]=t37,a[7]=t11,tmp=(C_word)a,a+=8,tmp)); t70=C_fix(0); t71=(*a=C_VECTOR_TYPE|1,a[1]=t70,tmp=(C_word)a,a+=2,tmp); t72=C_set_block_item(t49,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7902,a[2]=t71,tmp=(C_word)a,a+=3,tmp)); t73=C_set_block_item(t51,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7909,a[2]=t7,a[3]=t9,tmp=(C_word)a,a+=4,tmp)); t74=C_set_block_item(t53,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8048,tmp=(C_word)a,a+=2,tmp)); t75=C_set_block_item(t55,0,(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_8123,a[2]=t21,a[3]=t23,a[4]=t27,a[5]=t49,a[6]=t11,a[7]=t5,a[8]=t13,a[9]=t55,a[10]=t39,a[11]=t45,a[12]=t51,a[13]=t7,a[14]=t33,a[15]=t31,a[16]=t35,a[17]=t9,a[18]=t3,a[19]=t15,a[20]=t41,a[21]=t47,a[22]=t53,a[23]=t25,a[24]=t43,a[25]=t37,tmp=(C_word)a,a+=26,tmp)); t76=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10449,a[2]=t1,a[3]=t17,a[4]=t15,a[5]=t13,a[6]=t19,tmp=(C_word)a,a+=7,tmp); t77=C_slot(t2,C_fix(3)); t78=C_i_car(t77); t79=( /* scrutinizer.scm:873: tag */ f_7902(C_a_i(&a,4),((C_word*)t49)[1]) ); t80=C_a_i_list1(&a,1,t79); /* scrutinizer.scm:873: walk */ t81=((C_word*)t55)[1]; f_8123(t81,t76,t78,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE,C_SCHEME_FALSE,t80,C_SCHEME_FALSE);} /* k16887 in a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ static void C_ccall f_16889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16889,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16898,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[3]; /* tweaks.scm:57: ##sys#get */ t4=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=lf[73]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t2=((C_word*)t0)[2]; f_16736(t2,C_SCHEME_FALSE);}} /* k8328 in k8321 in k8317 in k8560 in k8563 in k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_8330,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,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],tmp=(C_word)a,a+=12,tmp); t3=C_eqp(lf[60],((C_word*)t0)[10]); if(C_truep(t3)){ t4=t2; f_8336(t4,C_SCHEME_FALSE);} else{ t4=C_eqp(lf[60],((C_word*)t0)[8]); t5=t2; f_8336(t5,C_i_not(t4));}} /* k16096 in loop in k15992 in k15989 in k15986 in k15922 in resolve in resolve in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_16098,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k8334 in k8328 in k8321 in k8317 in k8560 in k8563 in k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_8336(C_word 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_8336,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|11,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],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)t0)[7])){ t3=t2; f_8342(t3,C_SCHEME_FALSE);} else{ if(C_truep(((C_word*)t0)[9])){ t3=t2; f_8342(t3,C_SCHEME_FALSE);} else{ t3=C_i_length(((C_word*)t0)[10]); t4=C_i_length(((C_word*)t0)[8]); t5=C_eqp(t3,t4); t6=t2; f_8342(t6,C_i_not(t5));}}} else{ t2=C_a_i_minus(&a,2,lf[0],C_fix(1)); t3=C_mutate2(&lf[0] /* (set! d-depth ...) */,t2); t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[60]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6374 in k6352 in k6346 in rec in location-name in k6121 in k6118 in k6115 */ static void C_ccall f_6376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6376,2,av);} /* scrutinizer.scm:152: ##sys#print */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6368 in k6358 in k6355 in k6352 in k6346 in rec in location-name in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6370,2,av);} /* scrutinizer.scm:152: ##sys#print */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7791 in doloop656 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_7793(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,4)))){ C_save_and_reclaim((void *)f_7793,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); t6=C_a_i_plus(&a,2,((C_word*)t0)[4],C_fix(1)); t7=((C_word*)((C_word*)t0)[5])[1]; f_7780(t7,((C_word*)t0)[6],t3,t5,t6);} /* k16896 in k16887 in a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16898,2,av);} t2=((C_word*)t0)[2]; f_16736(t2,C_u_i_memq(t1,lf[309]));} /* k8340 in k8334 in k8328 in k8321 in k8317 in k8560 in k8563 in k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_8342(C_word t0,C_word t1){ C_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_8342,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8345,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8349,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:541: pp-fragment */ t4=((C_word*)((C_word*)t0)[5])[1]; f_7186(t4,t3,((C_word*)t0)[6]);} else{ if(C_truep(((C_word*)t0)[7])){ t2=C_a_i_minus(&a,2,lf[0],C_fix(1)); t3=C_mutate2(&lf[0] /* (set! d-depth ...) */,t2); 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)[9])){ t2=C_a_i_minus(&a,2,lf[0],C_fix(1)); t3=C_mutate2(&lf[0] /* (set! d-depth ...) */,t2); t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[10]; ((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)[10],lf[89]); t7=C_i_check_list_2(((C_word*)t0)[8],lf[89]); 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_8381,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_8381(t11,((C_word*)t0)[11],((C_word*)t0)[10],((C_word*)t0)[8]);}}}} /* k8343 in k8340 in k8334 in k8328 in k8321 in k8317 in k8560 in k8563 in k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,1)))){ C_save_and_reclaim((void *)f_8345,2,av);} a=C_alloc(4); t2=C_a_i_minus(&a,2,lf[0],C_fix(1)); t3=C_mutate2(&lf[0] /* (set! d-depth ...) */,t2); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[60]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8347 in k8340 in k8334 in k8328 in k8321 in k8317 in k8560 in k8563 in k8244 in walk in scrutinize in k6121 in k6118 in k6115 */ static void C_ccall f_8349(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8349,2,av);} /* scrutinizer.scm:538: report */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[140]; av2[4]=t1; f_6995(5,av2);}} /* k6361 in k6358 in k6355 in k6352 in k6346 in rec in location-name in k6121 in k6118 in k6115 */ static void C_ccall f_6363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6363,2,av);} /* scrutinizer.scm:152: get-output-string */ t2=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6358 in k6355 in k6352 in k6346 in rec in location-name in k6121 in k6118 in k6115 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6360,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6363,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_6370,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[5]; t5=C_u_i_cdr(t4); /* scrutinizer.scm:152: rec */ t6=((C_word*)((C_word*)t0)[6])[1]; f_6335(t6,t3,t5);} /* k18010 in k17866 in k17863 in k17528 in validate in validate-type in k6121 in k6118 in k6115 */ static void C_ccall f_18012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18012,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_u_i_car(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list(&a,2,t3,t1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* doloop656 in k7353 in a7350 in k7320 in k7311 in k7864 in k7301 in k7295 in call-result in scrutinize in k6121 in k6118 in k6115 */ static void C_fcall f_7780(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(17,0,4)))){ C_save_and_reclaim_args((void *)trf_7780,5,t0,t1,t2,t3,t4);} a=C_alloc(17); t5=C_i_nullp(t2); t6=(C_truep(t5)?t5:C_i_nullp(t3)); if(C_truep(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{ t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7793,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); t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7807,a[2]=t7,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]=t3,a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); t9=C_i_car(t3); t10=C_i_car(t2); /* scrutinizer.scm:356: match-types */ t11=lf[126];{ C_word av2[5]; av2[0]=t11; av2[1]=t8; av2[2]=t9; av2[3]=t10; av2[4]=((C_word*)((C_word*)t0)[5])[1]; f_10768(5,av2);}}} /* k19191 in k19188 in k19182 in k19178 in report in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19193,2,av);} /* scrutinizer.scm:2275: conc */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19188 in k19182 in k19178 in report in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19190(C_word c,C_word *av){ C_word tmp; C_word t0=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_19190,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19193,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2276: get-output-string */ t3=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11882 in k11824 in k11722 in k11588 in k11393 in k11380 in k11361 in k11342 in k11317 in k11298 in match1 in match-types in k6121 in k6118 in k6115 */ 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(3,c,3)))){ C_save_and_reclaim((void *)f_11884,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_i_caddr(((C_word*)t0)[3]); /* scrutinizer.scm:1121: match1 */ t4=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=lf[21]; av2[3]=t3; f_11054(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[54],t5); t7=C_i_caddr(((C_word*)t0)[3]); /* scrutinizer.scm:1121: match1 */ t8=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=((C_word*)t0)[5]; av2[2]=t6; av2[3]=t7; f_11054(4,av2);}}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k6346 in rec in location-name in k6121 in k6118 in k6115 */ static void C_ccall f_6348(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6348,2,av);} a=C_alloc(8); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6354,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:152: ##sys#print */ t6=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[44]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_19166,2,av);} a=C_alloc(18); 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_19168,tmp=(C_word)a,a+=2,tmp)); t7=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19422,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19572,a[2]=((C_word*)t0)[2],a[3]=t5,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20645,a[2]=t8,tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20647,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2344: list+index-call-result-type-special-case */ t11=((C_word*)t5)[1]; f_19422(t11,t9,t10);} /* report in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_fcall f_19168(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_19168,4,t1,t2,t3,t4);} a=C_alloc(8); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19176,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19180,a[2]=t5,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2275: location-name */ t7=*((C_word*)lf[36]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19160(C_word c,C_word *av){ C_word tmp; C_word t0=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_19160,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19163,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2246: ##sys#put! */ t3=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[386]; av2[3]=lf[183]; av2[4]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ static void C_ccall f_19163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19163,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19166,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20663,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2248: ##sys#put! */ t4=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[385]; av2[3]=lf[183]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k16840 in wrap in k16785 in k16777 in k16769 in k16761 in k16753 in k16742 in k16734 in a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ static void C_ccall f_16842(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16842,2,av);} /* scrutinizer.scm:1815: ##sys#append */ t2=*((C_word*)lf[273]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* rec in location-name in k6121 in k6118 in k6115 */ static void C_fcall f_6335(C_word t0,C_word t1,C_word 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_6335,3,t0,t1,t2);} a=C_alloc(6); t3=C_i_cdr(t2); if(C_truep(C_i_nullp(t3))){ /* scrutinizer.scm:151: location-name */ t4=*((C_word*)lf[36]+1);{ 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|5,a[1]=(C_word)f_6348,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); /* scrutinizer.scm:152: open-output-string */ t5=*((C_word*)lf[30]+1);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k19174 in report in k19164 in k19161 in k19158 in k18886 in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19176,2,av);} /* scrutinizer.scm:2274: warning */ t2=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16848 in wrap in k16785 in k16777 in k16769 in k16761 in k16753 in k16742 in k16734 in a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16850,2,av);} /* scrutinizer.scm:1815: ##sys#append */ t2=*((C_word*)lf[273]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6326 in k6313 in k6307 in location-name in k6121 in k6118 in k6115 */ static void C_ccall f_6328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6328,2,av);} /* scrutinizer.scm:147: ##sys#print */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6319 in k6316 in k6313 in k6307 in location-name in k6121 in k6118 in k6115 */ static void C_ccall f_6321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6321,2,av);} /* scrutinizer.scm:147: get-output-string */ t2=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18554 in k18522 in g4054 in install-specializations in k6121 in k6118 in k6115 */ static void C_ccall f_18556(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_18556,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18559,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_18689,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2137: append-map */ t5=*((C_word*)lf[117]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[118]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k18557 in k18554 in k18522 in g4054 in install-specializations in k6121 in k6118 in k6115 */ static void C_ccall f_18559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_18559,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_18569,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; /* Re-use our own argvector */ 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_i_cadr(((C_word*)t0)[2]); if(C_truep(C_i_listp(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|3,a[1]=(C_word)f_18595,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t10=((C_word*)t0)[2]; t11=C_u_i_cdr(t10); t12=C_u_i_car(t11); t13=C_i_check_list_2(t12,lf[89]); t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18622,a[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_18628,a[2]=t7,a[3]=t16,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t18=((C_word*)t16)[1]; f_18628(t18,t14,t12);} else{ t5=C_i_cadr(((C_word*)t0)[2]); t6=C_eqp(lf[60],t5); if(C_truep(t6)){ t7=((C_word*)t0)[2]; t8=C_u_i_cdr(t7); t9=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ /* scrutinizer.scm:2153: fail */ t7=((C_word*)t0)[6]; f_18491(t7,t3,((C_word*)t0)[2]);}} default: /* scrutinizer.scm:2154: fail */ t4=((C_word*)t0)[6]; f_18491(t4,t3,((C_word*)t0)[2]);}} /* k15999 in k15992 in k15989 in k15986 in k15922 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_ccall f_16001(C_word c,C_word *av){ C_word tmp; 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_16001,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[100],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k16876 in wrap in k16785 in k16777 in k16769 in k16761 in k16753 in k16742 in k16734 in a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ 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(9,c,1)))){ C_save_and_reclaim((void *)f_16878,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[19],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k16015 in k16011 in k15992 in k15989 in k15986 in k15922 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_ccall f_16017(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16017,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* scrutinizer.scm:1722: ##sys#append */ t3=*((C_word*)lf[273]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* wrap in k16785 in k16777 in k16769 in k16761 in k16753 in k16742 in k16734 in a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ static void C_fcall f_16803(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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(21,0,3)))){ C_save_and_reclaim_args((void *)trf_16803,3,t0,t1,t2);} a=C_alloc(21); if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[100]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16824,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16834,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=(C_truep(((C_word*)t0)[2])?lf[306]:C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16842,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[293],((C_word*)t0)[3]):C_SCHEME_END_OF_LIST); t12=t11; t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16850,a[2]=t10,a[3]=t12,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ t14=lf[307]; if(C_truep(((C_word*)t0)[5])){ /* scrutinizer.scm:1815: ##sys#append */ t15=*((C_word*)lf[273]+1);{ C_word av2[4]; av2[0]=t15; av2[1]=t13; av2[2]=t14; av2[3]=lf[308]; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} else{ /* scrutinizer.scm:1815: ##sys#append */ t15=*((C_word*)lf[273]+1);{ C_word av2[4]; av2[0]=t15; av2[1]=t13; av2[2]=t14; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}}} else{ t14=C_SCHEME_END_OF_LIST; if(C_truep(((C_word*)t0)[5])){ /* scrutinizer.scm:1815: ##sys#append */ t15=*((C_word*)lf[273]+1);{ C_word av2[4]; av2[0]=t15; av2[1]=t13; av2[2]=t14; av2[3]=lf[308]; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} else{ /* scrutinizer.scm:1815: ##sys#append */ t15=*((C_word*)lf[273]+1);{ C_word av2[4]; av2[0]=t15; av2[1]=t13; av2[2]=t14; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}}}} else{ t6=C_eqp(t4,lf[19]); if(C_truep(t6)){ t7=C_i_cadr(t2); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16878,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=C_i_caddr(t2); /* scrutinizer.scm:1843: wrap */ t16=t9; t17=t10; t1=t16; t2=t17; 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);}}} /* k16799 in k16785 in k16777 in k16769 in k16761 in k16753 in k16742 in k16734 in a16728 in k16719 in a16716 in emit-type-file in k6121 in k6118 in k6115 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_16801,2,av);} /* scrutinizer.scm:1830: cons* */ t2=*((C_word*)lf[305]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18567 in k18557 in k18554 in k18522 in g4054 in install-specializations in k6121 in k6118 in k6115 */ static void C_ccall f_18569(C_word c,C_word *av){ C_word tmp; 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_18569,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k16011 in k15992 in k15989 in k15986 in k15922 in resolve in resolve in k6121 in k6118 in k6115 */ static void C_ccall f_16013(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_16013,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16017,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[60],((C_word*)t0)[4]); if(C_truep(t4)){ t5=C_a_i_cons(&a,2,t2,lf[60]); /* scrutinizer.scm:1722: ##sys#append */ t6=*((C_word*)lf[273]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_16024,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[89]); 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_16036,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_16036(t14,t3,((C_word*)t0)[4]);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[1036] = { {"f_13544:scrutinizer_2escm",(void*)f_13544}, {"f_17029:scrutinizer_2escm",(void*)f_17029}, {"f_19184:scrutinizer_2escm",(void*)f_19184}, {"f_18595:scrutinizer_2escm",(void*)f_18595}, {"f_19180:scrutinizer_2escm",(void*)f_19180}, {"f_13530:scrutinizer_2escm",(void*)f_13530}, {"f_16824:scrutinizer_2escm",(void*)f_16824}, {"f_16834:scrutinizer_2escm",(void*)f_16834}, {"f_8410:scrutinizer_2escm",(void*)f_8410}, {"f_18540:scrutinizer_2escm",(void*)f_18540}, {"f_9696:scrutinizer_2escm",(void*)f_9696}, {"f_7751:scrutinizer_2escm",(void*)f_7751}, {"f_18048:scrutinizer_2escm",(void*)f_18048}, {"f_14637:scrutinizer_2escm",(void*)f_14637}, {"f_20271:scrutinizer_2escm",(void*)f_20271}, {"f_11928:scrutinizer_2escm",(void*)f_11928}, {"f_7738:scrutinizer_2escm",(void*)f_7738}, {"f_20268:scrutinizer_2escm",(void*)f_20268}, {"f_15537:scrutinizer_2escm",(void*)f_15537}, {"f_19125:scrutinizer_2escm",(void*)f_19125}, {"f_9648:scrutinizer_2escm",(void*)f_9648}, {"f_9642:scrutinizer_2escm",(void*)f_9642}, {"f_9657:scrutinizer_2escm",(void*)f_9657}, {"f_9654:scrutinizer_2escm",(void*)f_9654}, {"f_13789:scrutinizer_2escm",(void*)f_13789}, {"f_16024:scrutinizer_2escm",(void*)f_16024}, {"f_19104:scrutinizer_2escm",(void*)f_19104}, {"f_19100:scrutinizer_2escm",(void*)f_19100}, {"f_16036:scrutinizer_2escm",(void*)f_16036}, {"f_20298:scrutinizer_2escm",(void*)f_20298}, {"f_15547:scrutinizer_2escm",(void*)f_15547}, {"f_18524:scrutinizer_2escm",(void*)f_18524}, {"f_18517:scrutinizer_2escm",(void*)f_18517}, {"f_9606:scrutinizer_2escm",(void*)f_9606}, {"f_18534:scrutinizer_2escm",(void*)f_18534}, {"f_9793:scrutinizer_2escm",(void*)f_9793}, {"f_18528:scrutinizer_2escm",(void*)f_18528}, {"f_9766:scrutinizer_2escm",(void*)f_9766}, {"f_9614:scrutinizer_2escm",(void*)f_9614}, {"f_8381:scrutinizer_2escm",(void*)f_8381}, {"f_6469:scrutinizer_2escm",(void*)f_6469}, {"f_9784:scrutinizer_2escm",(void*)f_9784}, {"f_13796:scrutinizer_2escm",(void*)f_13796}, {"f_7711:scrutinizer_2escm",(void*)f_7711}, {"f_15988:scrutinizer_2escm",(void*)f_15988}, {"f_9775:scrutinizer_2escm",(void*)f_9775}, {"f_7705:scrutinizer_2escm",(void*)f_7705}, {"f_9778:scrutinizer_2escm",(void*)f_9778}, {"f_8319:scrutinizer_2escm",(void*)f_8319}, {"f_8316:scrutinizer_2escm",(void*)f_8316}, {"f_7708:scrutinizer_2escm",(void*)f_7708}, {"f_6496:scrutinizer_2escm",(void*)f_6496}, {"f_9636:scrutinizer_2escm",(void*)f_9636}, {"f_9630:scrutinizer_2escm",(void*)f_9630}, {"f_10745:scrutinizer_2escm",(void*)f_10745}, {"f_8323:scrutinizer_2escm",(void*)f_8323}, {"f_15991:scrutinizer_2escm",(void*)f_15991}, {"f_15994:scrutinizer_2escm",(void*)f_15994}, {"f_9711:scrutinizer_2escm",(void*)f_9711}, {"f_10712:scrutinizer_2escm",(void*)f_10712}, {"f_14689:scrutinizer_2escm",(void*)f_14689}, {"f_10725:scrutinizer_2escm",(void*)f_10725}, {"f_15832:scrutinizer_2escm",(void*)f_15832}, {"f_20089:scrutinizer_2escm",(void*)f_20089}, {"f_6471:scrutinizer_2escm",(void*)f_6471}, {"f_9702:scrutinizer_2escm",(void*)f_9702}, {"f_9759:scrutinizer_2escm",(void*)f_9759}, {"f_19789:scrutinizer_2escm",(void*)f_19789}, {"f_15870:scrutinizer_2escm",(void*)f_15870}, {"f_19795:scrutinizer_2escm",(void*)f_19795}, {"f_19767:scrutinizer_2escm",(void*)f_19767}, {"f_9745:scrutinizer_2escm",(void*)f_9745}, {"f_13527:scrutinizer_2escm",(void*)f_13527}, {"f_13524:scrutinizer_2escm",(void*)f_13524}, {"f_13520:scrutinizer_2escm",(void*)f_13520}, {"f_13518:scrutinizer_2escm",(void*)f_13518}, {"f_13512:scrutinizer_2escm",(void*)f_13512}, {"f_19770:scrutinizer_2escm",(void*)f_19770}, {"f_11395:scrutinizer_2escm",(void*)f_11395}, {"f_13505:scrutinizer_2escm",(void*)f_13505}, {"f_12357:scrutinizer_2escm",(void*)f_12357}, {"f_18744:scrutinizer_2escm",(void*)f_18744}, {"f_18742:scrutinizer_2escm",(void*)f_18742}, {"f_15510:scrutinizer_2escm",(void*)f_15510}, {"f_12353:scrutinizer_2escm",(void*)f_12353}, {"f_9739:scrutinizer_2escm",(void*)f_9739}, {"f_9733:scrutinizer_2escm",(void*)f_9733}, {"f_9730:scrutinizer_2escm",(void*)f_9730}, {"f_18769:scrutinizer_2escm",(void*)f_18769}, {"f_19724:scrutinizer_2escm",(void*)f_19724}, {"f_19722:scrutinizer_2escm",(void*)f_19722}, {"f_18778:scrutinizer_2escm",(void*)f_18778}, {"f_12332:scrutinizer_2escm",(void*)f_12332}, {"f_19680:scrutinizer_2escm",(void*)f_19680}, {"f_12368:scrutinizer_2escm",(void*)f_12368}, {"f_15520:scrutinizer_2escm",(void*)f_15520}, {"f_19706:scrutinizer_2escm",(void*)f_19706}, {"f_19709:scrutinizer_2escm",(void*)f_19709}, {"f_19690:scrutinizer_2escm",(void*)f_19690}, {"f_19719:scrutinizer_2escm",(void*)f_19719}, {"f_15890:scrutinizer_2escm",(void*)f_15890}, {"f_18716:scrutinizer_2escm",(void*)f_18716}, {"f_19671:scrutinizer_2escm",(void*)f_19671}, {"f_8886:scrutinizer_2escm",(void*)f_8886}, {"f_10774:scrutinizer_2escm",(void*)f_10774}, {"f_10783:scrutinizer_2escm",(void*)f_10783}, {"f_9313:scrutinizer_2escm",(void*)f_9313}, {"f_9320:scrutinizer_2escm",(void*)f_9320}, {"f_8772:scrutinizer_2escm",(void*)f_8772}, {"f_8774:scrutinizer_2escm",(void*)f_8774}, {"f_19635:scrutinizer_2escm",(void*)f_19635}, {"f_19637:scrutinizer_2escm",(void*)f_19637}, {"f_10768:scrutinizer_2escm",(void*)f_10768}, {"f_19610:scrutinizer_2escm",(void*)f_19610}, {"f_9335:scrutinizer_2escm",(void*)f_9335}, {"f_9339:scrutinizer_2escm",(void*)f_9339}, {"f_11851:scrutinizer_2escm",(void*)f_11851}, {"f_19606:scrutinizer_2escm",(void*)f_19606}, {"f_19662:scrutinizer_2escm",(void*)f_19662}, {"f_9346:scrutinizer_2escm",(void*)f_9346}, {"f_19614:scrutinizer_2escm",(void*)f_19614}, {"f_14026:scrutinizer_2escm",(void*)f_14026}, {"f_14020:scrutinizer_2escm",(void*)f_14020}, {"f_20304:scrutinizer_2escm",(void*)f_20304}, {"f_20302:scrutinizer_2escm",(void*)f_20302}, {"f_9352:scrutinizer_2escm",(void*)f_9352}, {"f_9355:scrutinizer_2escm",(void*)f_9355}, {"f_9358:scrutinizer_2escm",(void*)f_9358}, {"f_12370:scrutinizer_2escm",(void*)f_12370}, {"f_9361:scrutinizer_2escm",(void*)f_9361}, {"f_9365:scrutinizer_2escm",(void*)f_9365}, {"f_8800:scrutinizer_2escm",(void*)f_8800}, {"f_15845:scrutinizer_2escm",(void*)f_15845}, {"f_15843:scrutinizer_2escm",(void*)f_15843}, {"f_17356:scrutinizer_2escm",(void*)f_17356}, {"f_8784:scrutinizer_2escm",(void*)f_8784}, {"f_8788:scrutinizer_2escm",(void*)f_8788}, {"f_19620:scrutinizer_2escm",(void*)f_19620}, {"f_8861:scrutinizer_2escm",(void*)f_8861}, {"f_19623:scrutinizer_2escm",(void*)f_19623}, {"f_8796:scrutinizer_2escm",(void*)f_8796}, {"f_18963:scrutinizer_2escm",(void*)f_18963}, {"f_8837:scrutinizer_2escm",(void*)f_8837}, {"f_8764:scrutinizer_2escm",(void*)f_8764}, {"f_12316:scrutinizer_2escm",(void*)f_12316}, {"f_6127:scrutinizer_2escm",(void*)f_6127}, {"f_6120:scrutinizer_2escm",(void*)f_6120}, {"f_6123:scrutinizer_2escm",(void*)f_6123}, {"f_16409:scrutinizer_2escm",(void*)f_16409}, {"f_16402:scrutinizer_2escm",(void*)f_16402}, {"f_11124:scrutinizer_2escm",(void*)f_11124}, {"f_13928:scrutinizer_2escm",(void*)f_13928}, {"f_13920:scrutinizer_2escm",(void*)f_13920}, {"f_16416:scrutinizer_2escm",(void*)f_16416}, {"f_12326:scrutinizer_2escm",(void*)f_12326}, {"f_11111:scrutinizer_2escm",(void*)f_11111}, {"f_16428:scrutinizer_2escm",(void*)f_16428}, {"f_16425:scrutinizer_2escm",(void*)f_16425}, {"f_16422:scrutinizer_2escm",(void*)f_16422}, {"f_12320:scrutinizer_2escm",(void*)f_12320}, {"f_13906:scrutinizer_2escm",(void*)f_13906}, {"f_18176:scrutinizer_2escm",(void*)f_18176}, {"f_16431:scrutinizer_2escm",(void*)f_16431}, {"f_16434:scrutinizer_2escm",(void*)f_16434}, {"f_10162:scrutinizer_2escm",(void*)f_10162}, {"f_12389:scrutinizer_2escm",(void*)f_12389}, {"f_18179:scrutinizer_2escm",(void*)f_18179}, {"f_6117:scrutinizer_2escm",(void*)f_6117}, {"f_7037:scrutinizer_2escm",(void*)f_7037}, {"f_10136:scrutinizer_2escm",(void*)f_10136}, {"f_7035:scrutinizer_2escm",(void*)f_7035}, {"f_15207:scrutinizer_2escm",(void*)f_15207}, {"f_8265:scrutinizer_2escm",(void*)f_8265}, {"f_18194:scrutinizer_2escm",(void*)f_18194}, {"f_7023:scrutinizer_2escm",(void*)f_7023}, {"f_6149:scrutinizer_2escm",(void*)f_6149}, {"f_7020:scrutinizer_2escm",(void*)f_7020}, {"f_10142:scrutinizer_2escm",(void*)f_10142}, {"f_6146:scrutinizer_2escm",(void*)f_6146}, {"f_6143:scrutinizer_2escm",(void*)f_6143}, {"f_6140:scrutinizer_2escm",(void*)f_6140}, {"f_17387:scrutinizer_2escm",(void*)f_17387}, {"f_15911:scrutinizer_2escm",(void*)f_15911}, {"f_17384:scrutinizer_2escm",(void*)f_17384}, {"f_6177:scrutinizer_2escm",(void*)f_6177}, {"f_10115:scrutinizer_2escm",(void*)f_10115}, {"f_8246:scrutinizer_2escm",(void*)f_8246}, {"f_17318:scrutinizer_2escm",(void*)f_17318}, {"f_18902:scrutinizer_2escm",(void*)f_18902}, {"f_18906:scrutinizer_2escm",(void*)f_18906}, {"f_8741:scrutinizer_2escm",(void*)f_8741}, {"f_16957:scrutinizer_2escm",(void*)f_16957}, {"f_15934:scrutinizer_2escm",(void*)f_15934}, {"f_17322:scrutinizer_2escm",(void*)f_17322}, {"f_17328:scrutinizer_2escm",(void*)f_17328}, {"f_18912:scrutinizer_2escm",(void*)f_18912}, {"f_18915:scrutinizer_2escm",(void*)f_18915}, {"f_8757:scrutinizer_2escm",(void*)f_8757}, {"f_8750:scrutinizer_2escm",(void*)f_8750}, {"f_6159:scrutinizer_2escm",(void*)f_6159}, {"f_6152:scrutinizer_2escm",(void*)f_6152}, {"f_15924:scrutinizer_2escm",(void*)f_15924}, {"f_18927:scrutinizer_2escm",(void*)f_18927}, {"f_8727:scrutinizer_2escm",(void*)f_8727}, {"f_16931:scrutinizer_2escm",(void*)f_16931}, {"f_7062:scrutinizer_2escm",(void*)f_7062}, {"f_8720:scrutinizer_2escm",(void*)f_8720}, {"f_16494:scrutinizer_2escm",(void*)f_16494}, {"f_11199:scrutinizer_2escm",(void*)f_11199}, {"f_18929:scrutinizer_2escm",(void*)f_18929}, {"f_16903:scrutinizer_2escm",(void*)f_16903}, {"f_16906:scrutinizer_2escm",(void*)f_16906}, {"f_11160:scrutinizer_2escm",(void*)f_11160}, {"f_16911:scrutinizer_2escm",(void*)f_16911}, {"f_16918:scrutinizer_2escm",(void*)f_16918}, {"f_18954:scrutinizer_2escm",(void*)f_18954}, {"f_16448:scrutinizer_2escm",(void*)f_16448}, {"f_16443:scrutinizer_2escm",(void*)f_16443}, {"f_18113:scrutinizer_2escm",(void*)f_18113}, {"f_17300:scrutinizer_2escm",(void*)f_17300}, {"f_18124:scrutinizer_2escm",(void*)f_18124}, {"f_16464:scrutinizer_2escm",(void*)f_16464}, {"f_16461:scrutinizer_2escm",(void*)f_16461}, {"f_18119:scrutinizer_2escm",(void*)f_18119}, {"f_13464:scrutinizer_2escm",(void*)f_13464}, {"f_13468:scrutinizer_2escm",(void*)f_13468}, {"f_16475:scrutinizer_2escm",(void*)f_16475}, {"f_10121:scrutinizer_2escm",(void*)f_10121}, {"f_16922:scrutinizer_2escm",(void*)f_16922}, {"f_16924:scrutinizer_2escm",(void*)f_16924}, {"f_18149:scrutinizer_2escm",(void*)f_18149}, {"f_8733:scrutinizer_2escm",(void*)f_8733}, {"f_8730:scrutinizer_2escm",(void*)f_8730}, {"f_8702:scrutinizer_2escm",(void*)f_8702}, {"f_11826:scrutinizer_2escm",(void*)f_11826}, {"f_7083:scrutinizer_2escm",(void*)f_7083}, {"f_13940:scrutinizer_2escm",(void*)f_13940}, {"f_8297:scrutinizer_2escm",(void*)f_8297}, {"f_13979:scrutinizer_2escm",(void*)f_13979}, {"f_7071:scrutinizer_2escm",(void*)f_7071}, {"f_7088:scrutinizer_2escm",(void*)f_7088}, {"f_7079:scrutinizer_2escm",(void*)f_7079}, {"f_13952:scrutinizer_2escm",(void*)f_13952}, {"f_8284:scrutinizer_2escm",(void*)f_8284}, {"f_15054:scrutinizer_2escm",(void*)f_15054}, {"f_12712:scrutinizer_2escm",(void*)f_12712}, {"f_12706:scrutinizer_2escm",(void*)f_12706}, {"f_12702:scrutinizer_2escm",(void*)f_12702}, {"f_7014:scrutinizer_2escm",(void*)f_7014}, {"f_7010:scrutinizer_2escm",(void*)f_7010}, {"f_15092:scrutinizer_2escm",(void*)f_15092}, {"f_19329:scrutinizer_2escm",(void*)f_19329}, {"f_7006:scrutinizer_2escm",(void*)f_7006}, {"f_15021:scrutinizer_2escm",(void*)f_15021}, {"f_19302:scrutinizer_2escm",(void*)f_19302}, {"f_15081:scrutinizer_2escm",(void*)f_15081}, {"f_13589:scrutinizer_2escm",(void*)f_13589}, {"f_15945:scrutinizer_2escm",(void*)f_15945}, {"f_15947:scrutinizer_2escm",(void*)f_15947}, {"f_20179:scrutinizer_2escm",(void*)f_20179}, {"f_15972:scrutinizer_2escm",(void*)f_15972}, {"f_20181:scrutinizer_2escm",(void*)f_20181}, {"f_20195:scrutinizer_2escm",(void*)f_20195}, {"f_18203:scrutinizer_2escm",(void*)f_18203}, {"f_13404:scrutinizer_2escm",(void*)f_13404}, {"f_18207:scrutinizer_2escm",(void*)f_18207}, {"f_14740:scrutinizer_2escm",(void*)f_14740}, {"f_18217:scrutinizer_2escm",(void*)f_18217}, {"f_13410:scrutinizer_2escm",(void*)f_13410}, {"f_6192:scrutinizer_2escm",(void*)f_6192}, {"f_9196:scrutinizer_2escm",(void*)f_9196}, {"f_19347:scrutinizer_2escm",(void*)f_19347}, {"f_19995:scrutinizer_2escm",(void*)f_19995}, {"f_10531:scrutinizer_2escm",(void*)f_10531}, {"f_19353:scrutinizer_2escm",(void*)f_19353}, {"f_12448:scrutinizer_2escm",(void*)f_12448}, {"f_10508:scrutinizer_2escm",(void*)f_10508}, {"f_10505:scrutinizer_2escm",(void*)f_10505}, {"f_19978:scrutinizer_2escm",(void*)f_19978}, {"f_10511:scrutinizer_2escm",(void*)f_10511}, {"f_10514:scrutinizer_2escm",(void*)f_10514}, {"f_14796:scrutinizer_2escm",(void*)f_14796}, {"f_20046:scrutinizer_2escm",(void*)f_20046}, {"f_18282:scrutinizer_2escm",(void*)f_18282}, {"f_10575:scrutinizer_2escm",(void*)f_10575}, {"f_20058:scrutinizer_2escm",(void*)f_20058}, {"f_20054:scrutinizer_2escm",(void*)f_20054}, {"f_20050:scrutinizer_2escm",(void*)f_20050}, {"f_20068:scrutinizer_2escm",(void*)f_20068}, {"f_20066:scrutinizer_2escm",(void*)f_20066}, {"f_9175:scrutinizer_2escm",(void*)f_9175}, {"f_12791:scrutinizer_2escm",(void*)f_12791}, {"f_19983:scrutinizer_2escm",(void*)f_19983}, {"f_19986:scrutinizer_2escm",(void*)f_19986}, {"f_19981:scrutinizer_2escm",(void*)f_19981}, {"f_12788:scrutinizer_2escm",(void*)f_12788}, {"f_18249:scrutinizer_2escm",(void*)f_18249}, {"f_12772:scrutinizer_2escm",(void*)f_12772}, {"f_18255:scrutinizer_2escm",(void*)f_18255}, {"f_18257:scrutinizer_2escm",(void*)f_18257}, {"f_13328:scrutinizer_2escm",(void*)f_13328}, {"f_13324:scrutinizer_2escm",(void*)f_13324}, {"f_8666:scrutinizer_2escm",(void*)f_8666}, {"f_13313:scrutinizer_2escm",(void*)f_13313}, {"f_20483:scrutinizer_2escm",(void*)f_20483}, {"f_12747:scrutinizer_2escm",(void*)f_12747}, {"f_7467:scrutinizer_2escm",(void*)f_7467}, {"f_8691:scrutinizer_2escm",(void*)f_8691}, {"f_7464:scrutinizer_2escm",(void*)f_7464}, {"f_8694:scrutinizer_2escm",(void*)f_8694}, {"f_8698:scrutinizer_2escm",(void*)f_8698}, {"f_19926:scrutinizer_2escm",(void*)f_19926}, {"f_11303:scrutinizer_2escm",(void*)f_11303}, {"f_11300:scrutinizer_2escm",(void*)f_11300}, {"f_11306:scrutinizer_2escm",(void*)f_11306}, {"f_19937:scrutinizer_2escm",(void*)f_19937}, {"f_8679:scrutinizer_2escm",(void*)f_8679}, {"f_8685:scrutinizer_2escm",(void*)f_8685}, {"f_8688:scrutinizer_2escm",(void*)f_8688}, {"f_17291:scrutinizer_2escm",(void*)f_17291}, {"f_10195:scrutinizer_2escm",(void*)f_10195}, {"f_10192:scrutinizer_2escm",(void*)f_10192}, {"f_12423:scrutinizer_2escm",(void*)f_12423}, {"f_12421:scrutinizer_2escm",(void*)f_12421}, {"f_16687:scrutinizer_2escm",(void*)f_16687}, {"f_16684:scrutinizer_2escm",(void*)f_16684}, {"f_16696:scrutinizer_2escm",(void*)f_16696}, {"f_16690:scrutinizer_2escm",(void*)f_16690}, {"f_16693:scrutinizer_2escm",(void*)f_16693}, {"f_6235:scrutinizer_2escm",(void*)f_6235}, {"f_6239:scrutinizer_2escm",(void*)f_6239}, {"f_12406:scrutinizer_2escm",(void*)f_12406}, {"f_10541:scrutinizer_2escm",(void*)f_10541}, {"f_6268:scrutinizer_2escm",(void*)f_6268}, {"f_6265:scrutinizer_2escm",(void*)f_6265}, {"f_20474:scrutinizer_2escm",(void*)f_20474}, {"f_12471:scrutinizer_2escm",(void*)f_12471}, {"f_20449:scrutinizer_2escm",(void*)f_20449}, {"f_6260:scrutinizer_2escm",(void*)f_6260}, {"f_7158:scrutinizer_2escm",(void*)f_7158}, {"f_6257:scrutinizer_2escm",(void*)f_6257}, {"f_6254:scrutinizer_2escm",(void*)f_6254}, {"f_20447:scrutinizer_2escm",(void*)f_20447}, {"f_13154:scrutinizer_2escm",(void*)f_13154}, {"f_13159:scrutinizer_2escm",(void*)f_13159}, {"f_16643:scrutinizer_2escm",(void*)f_16643}, {"f_16646:scrutinizer_2escm",(void*)f_16646}, {"f_16648:scrutinizer_2escm",(void*)f_16648}, {"f_18412:scrutinizer_2escm",(void*)f_18412}, {"f_18414:scrutinizer_2escm",(void*)f_18414}, {"f_17289:scrutinizer_2escm",(void*)f_17289}, {"f_13189:scrutinizer_2escm",(void*)f_13189}, {"f_13185:scrutinizer_2escm",(void*)f_13185}, {"f_7133:scrutinizer_2escm",(void*)f_7133}, {"f_16658:scrutinizer_2escm",(void*)f_16658}, {"f_7436:scrutinizer_2escm",(void*)f_7436}, {"f_6275:scrutinizer_2escm",(void*)f_6275}, {"f_10581:scrutinizer_2escm",(void*)f_10581}, {"f_11782:scrutinizer_2escm",(void*)f_11782}, {"f_7426:scrutinizer_2escm",(void*)f_7426}, {"f_19039:scrutinizer_2escm",(void*)f_19039}, {"f_17222:scrutinizer_2escm",(void*)f_17222}, {"f_19035:scrutinizer_2escm",(void*)f_19035}, {"f_17226:scrutinizer_2escm",(void*)f_17226}, {"f_10591:scrutinizer_2escm",(void*)f_10591}, {"f_13168:scrutinizer_2escm",(void*)f_13168}, {"f_8634:scrutinizer_2escm",(void*)f_8634}, {"f_16671:scrutinizer_2escm",(void*)f_16671}, {"f_16678:scrutinizer_2escm",(void*)f_16678}, {"f_6294:scrutinizer_2escm",(void*)f_6294}, {"f_18409:scrutinizer_2escm",(void*)f_18409}, {"f_13191:scrutinizer_2escm",(void*)f_13191}, {"f_8643:scrutinizer_2escm",(void*)f_8643}, {"f_6248:scrutinizer_2escm",(void*)f_6248}, {"f_10019:scrutinizer_2escm",(void*)f_10019}, {"f_10017:scrutinizer_2escm",(void*)f_10017}, {"f_16611:scrutinizer_2escm",(void*)f_16611}, {"f_20426:scrutinizer_2escm",(void*)f_20426}, {"f_18463:scrutinizer_2escm",(void*)f_18463}, {"f_20573:scrutinizer_2escm",(void*)f_20573}, {"f_20575:scrutinizer_2escm",(void*)f_20575}, {"f_9492:scrutinizer_2escm",(void*)f_9492}, {"f_9498:scrutinizer_2escm",(void*)f_9498}, {"f_13707:scrutinizer_2escm",(void*)f_13707}, {"f_20548:scrutinizer_2escm",(void*)f_20548}, {"f_18491:scrutinizer_2escm",(void*)f_18491}, {"f_9460:scrutinizer_2escm",(void*)f_9460}, {"f_9463:scrutinizer_2escm",(void*)f_9463}, {"f_9469:scrutinizer_2escm",(void*)f_9469}, {"f_9472:scrutinizer_2escm",(void*)f_9472}, {"f_9478:scrutinizer_2escm",(void*)f_9478}, {"f_18473:scrutinizer_2escm",(void*)f_18473}, {"f_18471:scrutinizer_2escm",(void*)f_18471}, {"f_7401:scrutinizer_2escm",(void*)f_7401}, {"f_10086:scrutinizer_2escm",(void*)f_10086}, {"f_18488:scrutinizer_2escm",(void*)f_18488}, {"f_13748:scrutinizer_2escm",(void*)f_13748}, {"f_18454:scrutinizer_2escm",(void*)f_18454}, {"f_12251:scrutinizer_2escm",(void*)f_12251}, {"f_13739:scrutinizer_2escm",(void*)f_13739}, {"f_8615:scrutinizer_2escm",(void*)f_8615}, {"f_8618:scrutinizer_2escm",(void*)f_8618}, {"f_12284:scrutinizer_2escm",(void*)f_12284}, {"f_13729:scrutinizer_2escm",(void*)f_13729}, {"f_12287:scrutinizer_2escm",(void*)f_12287}, {"f_13720:scrutinizer_2escm",(void*)f_13720}, {"f_9481:scrutinizer_2escm",(void*)f_9481}, {"f_9487:scrutinizer_2escm",(void*)f_9487}, {"f_9484:scrutinizer_2escm",(void*)f_9484}, {"f_10044:scrutinizer_2escm",(void*)f_10044}, {"f_9419:scrutinizer_2escm",(void*)f_9419}, {"f_9415:scrutinizer_2escm",(void*)f_9415}, {"f_12265:scrutinizer_2escm",(void*)f_12265}, {"f_8606:scrutinizer_2escm",(void*)f_8606}, {"f_10057:scrutinizer_2escm",(void*)f_10057}, {"f_14868:scrutinizer_2escm",(void*)f_14868}, {"f_14861:scrutinizer_2escm",(void*)f_14861}, {"f_13229:scrutinizer_2escm",(void*)f_13229}, {"f_7194:scrutinizer_2escm",(void*)f_7194}, {"f_7196:scrutinizer_2escm",(void*)f_7196}, {"f_13878:scrutinizer_2escm",(void*)f_13878}, {"f_7184:scrutinizer_2escm",(void*)f_7184}, {"f_9454:scrutinizer_2escm",(void*)f_9454}, {"f_7186:scrutinizer_2escm",(void*)f_7186}, {"f_9425:scrutinizer_2escm",(void*)f_9425}, {"f_9428:scrutinizer_2escm",(void*)f_9428}, {"f_7175:scrutinizer_2escm",(void*)f_7175}, {"f_15338:scrutinizer_2escm",(void*)f_15338}, {"f_9437:scrutinizer_2escm",(void*)f_9437}, {"f_9431:scrutinizer_2escm",(void*)f_9431}, {"f_9434:scrutinizer_2escm",(void*)f_9434}, {"f_9569:scrutinizer_2escm",(void*)f_9569}, {"f_12827:scrutinizer_2escm",(void*)f_12827}, {"f_17700:scrutinizer_2escm",(void*)f_17700}, {"f_17702:scrutinizer_2escm",(void*)f_17702}, {"f_9581:scrutinizer_2escm",(void*)f_9581}, {"f_20417:scrutinizer_2escm",(void*)f_20417}, {"f_10964:scrutinizer_2escm",(void*)f_10964}, {"f_13214:scrutinizer_2escm",(void*)f_13214}, {"f_12218:scrutinizer_2escm",(void*)f_12218}, {"f_17727:scrutinizer_2escm",(void*)f_17727}, {"f_13991:scrutinizer_2escm",(void*)f_13991}, {"f_12212:scrutinizer_2escm",(void*)f_12212}, {"f_10930:scrutinizer_2escm",(void*)f_10930}, {"f_13206:scrutinizer_2escm",(void*)f_13206}, {"f_17771:scrutinizer_2escm",(void*)f_17771}, {"f_17776:scrutinizer_2escm",(void*)f_17776}, {"f_10947:scrutinizer_2escm",(void*)f_10947}, {"f_7121:scrutinizer_2escm",(void*)f_7121}, {"f_9448:scrutinizer_2escm",(void*)f_9448}, {"f_9444:scrutinizer_2escm",(void*)f_9444}, {"f_9440:scrutinizer_2escm",(void*)f_9440}, {"f_7114:scrutinizer_2escm",(void*)f_7114}, {"f_10917:scrutinizer_2escm",(void*)f_10917}, {"f_10911:scrutinizer_2escm",(void*)f_10911}, {"f_17765:scrutinizer_2escm",(void*)f_17765}, {"f_13275:scrutinizer_2escm",(void*)f_13275}, {"f_15158:scrutinizer_2escm",(void*)f_15158}, {"f_15150:scrutinizer_2escm",(void*)f_15150}, {"f_13268:scrutinizer_2escm",(void*)f_13268}, {"f_13493:scrutinizer_2escm",(void*)f_13493}, {"f_19596:scrutinizer_2escm",(void*)f_19596}, {"f_13497:scrutinizer_2escm",(void*)f_13497}, {"f_15122:scrutinizer_2escm",(void*)f_15122}, {"f_15124:scrutinizer_2escm",(void*)f_15124}, {"f_19590:scrutinizer_2escm",(void*)f_19590}, {"f_19593:scrutinizer_2escm",(void*)f_19593}, {"f_9508:scrutinizer_2escm",(void*)f_9508}, {"f_9501:scrutinizer_2escm",(void*)f_9501}, {"f_9511:scrutinizer_2escm",(void*)f_9511}, {"f_15672:scrutinizer_2escm",(void*)f_15672}, {"f_13758:scrutinizer_2escm",(void*)f_13758}, {"f_10493:scrutinizer_2escm",(void*)f_10493}, {"f_10497:scrutinizer_2escm",(void*)f_10497}, {"f_9541:scrutinizer_2escm",(void*)f_9541}, {"f_9559:scrutinizer_2escm",(void*)f_9559}, {"f_9556:scrutinizer_2escm",(void*)f_9556}, {"f_9550:scrutinizer_2escm",(void*)f_9550}, {"f_12922:scrutinizer_2escm",(void*)f_12922}, {"f_10449:scrutinizer_2escm",(void*)f_10449}, {"f_14852:scrutinizer_2escm",(void*)f_14852}, {"f_19514:scrutinizer_2escm",(void*)f_19514}, {"f_19518:scrutinizer_2escm",(void*)f_19518}, {"f_19510:scrutinizer_2escm",(void*)f_19510}, {"f_10458:scrutinizer_2escm",(void*)f_10458}, {"f_10455:scrutinizer_2escm",(void*)f_10455}, {"f_10452:scrutinizer_2escm",(void*)f_10452}, {"f_19522:scrutinizer_2escm",(void*)f_19522}, {"f_10461:scrutinizer_2escm",(void*)f_10461}, {"f_10464:scrutinizer_2escm",(void*)f_10464}, {"f_19578:scrutinizer_2escm",(void*)f_19578}, {"f_14878:scrutinizer_2escm",(void*)f_14878}, {"f_19575:scrutinizer_2escm",(void*)f_19575}, {"f_14871:scrutinizer_2escm",(void*)f_14871}, {"f_20114:scrutinizer_2escm",(void*)f_20114}, {"f_19572:scrutinizer_2escm",(void*)f_19572}, {"f_19587:scrutinizer_2escm",(void*)f_19587}, {"f_19584:scrutinizer_2escm",(void*)f_19584}, {"f_20125:scrutinizer_2escm",(void*)f_20125}, {"f_19581:scrutinizer_2escm",(void*)f_19581}, {"f_12978:scrutinizer_2escm",(void*)f_12978}, {"f_7893:scrutinizer_2escm",(void*)f_7893}, {"f_20135:scrutinizer_2escm",(void*)f_20135}, {"f_20137:scrutinizer_2escm",(void*)f_20137}, {"f_15682:scrutinizer_2escm",(void*)f_15682}, {"f_20535:scrutinizer_2escm",(void*)f_20535}, {"f_14880:scrutinizer_2escm",(void*)f_14880}, {"f_17912:scrutinizer_2escm",(void*)f_17912}, {"f_20508:scrutinizer_2escm",(void*)f_20508}, {"f_17920:scrutinizer_2escm",(void*)f_17920}, {"f_17924:scrutinizer_2escm",(void*)f_17924}, {"f_7866:scrutinizer_2escm",(void*)f_7866}, {"f_7862:scrutinizer_2escm",(void*)f_7862}, {"f_20510:scrutinizer_2escm",(void*)f_20510}, {"f_18396:scrutinizer_2escm",(void*)f_18396}, {"f_17935:scrutinizer_2escm",(void*)f_17935}, {"f_20162:scrutinizer_2escm",(void*)f_20162}, {"f_12895:scrutinizer_2escm",(void*)f_12895}, {"f_12897:scrutinizer_2escm",(void*)f_12897}, {"f_18364:scrutinizer_2escm",(void*)f_18364}, {"f_18361:scrutinizer_2escm",(void*)f_18361}, {"f_18357:scrutinizer_2escm",(void*)f_18357}, {"f_8158:scrutinizer_2escm",(void*)f_8158}, {"f_18353:scrutinizer_2escm",(void*)f_18353}, {"f_19504:scrutinizer_2escm",(void*)f_19504}, {"f_7814:scrutinizer_2escm",(void*)f_7814}, {"f_7581:scrutinizer_2escm",(void*)f_7581}, {"f_7587:scrutinizer_2escm",(void*)f_7587}, {"f_12854:scrutinizer_2escm",(void*)f_12854}, {"f_10998:scrutinizer_2escm",(void*)f_10998}, {"f_7818:scrutinizer_2escm",(void*)f_7818}, {"f_10923:scrutinizer_2escm",(void*)f_10923}, {"f_7565:scrutinizer_2escm",(void*)f_7565}, {"f_7807:scrutinizer_2escm",(void*)f_7807}, {"f_12531:scrutinizer_2escm",(void*)f_12531}, {"f_12534:scrutinizer_2escm",(void*)f_12534}, {"f_12549:scrutinizer_2escm",(void*)f_12549}, {"f_10905:scrutinizer_2escm",(void*)f_10905}, {"f_7868:scrutinizer_2escm",(void*)f_7868}, {"f_12522:scrutinizer_2escm",(void*)f_12522}, {"f_7844:scrutinizer_2escm",(void*)f_7844}, {"f_7575:scrutinizer_2escm",(void*)f_7575}, {"f_7578:scrutinizer_2escm",(void*)f_7578}, {"f_12510:scrutinizer_2escm",(void*)f_12510}, {"f_15437:scrutinizer_2escm",(void*)f_15437}, {"f_12525:scrutinizer_2escm",(void*)f_12525}, {"f_12528:scrutinizer_2escm",(void*)f_12528}, {"f_12504:scrutinizer_2escm",(void*)f_12504}, {"f_12519:scrutinizer_2escm",(void*)f_12519}, {"f_12515:scrutinizer_2escm",(void*)f_12515}, {"f_15420:scrutinizer_2escm",(void*)f_15420}, {"f_17564:scrutinizer_2escm",(void*)f_17564}, {"f_7822:scrutinizer_2escm",(void*)f_7822}, {"f_15411:scrutinizer_2escm",(void*)f_15411}, {"f_12589:scrutinizer_2escm",(void*)f_12589}, {"f_12586:scrutinizer_2escm",(void*)f_12586}, {"f_12583:scrutinizer_2escm",(void*)f_12583}, {"f_11992:scrutinizer_2escm",(void*)f_11992}, {"f_12953:scrutinizer_2escm",(void*)f_12953}, {"f_12951:scrutinizer_2escm",(void*)f_12951}, {"f_12577:scrutinizer_2escm",(void*)f_12577}, {"f_15386:scrutinizer_2escm",(void*)f_15386}, {"f_15382:scrutinizer_2escm",(void*)f_15382}, {"f_17596:scrutinizer_2escm",(void*)f_17596}, {"f_11970:scrutinizer_2escm",(void*)f_11970}, {"f_16771:scrutinizer_2escm",(void*)f_16771}, {"f_16779:scrutinizer_2escm",(void*)f_16779}, {"f_15388:scrutinizer_2escm",(void*)f_15388}, {"f_16787:scrutinizer_2escm",(void*)f_16787}, {"f_17530:scrutinizer_2escm",(void*)f_17530}, {"f_16755:scrutinizer_2escm",(void*)f_16755}, {"f_7261:scrutinizer_2escm",(void*)f_7261}, {"f_7264:scrutinizer_2escm",(void*)f_7264}, {"f_7258:scrutinizer_2escm",(void*)f_7258}, {"f_16763:scrutinizer_2escm",(void*)f_16763}, {"f_7255:scrutinizer_2escm",(void*)f_7255}, {"f_7249:scrutinizer_2escm",(void*)f_7249}, {"f_7520:scrutinizer_2escm",(void*)f_7520}, {"f_7242:scrutinizer_2escm",(void*)f_7242}, {"f_7245:scrutinizer_2escm",(void*)f_7245}, {"f_7553:scrutinizer_2escm",(void*)f_7553}, {"f_15712:scrutinizer_2escm",(void*)f_15712}, {"f_16797:scrutinizer_2escm",(void*)f_16797}, {"f_15474:scrutinizer_2escm",(void*)f_15474}, {"f_16790:scrutinizer_2escm",(void*)f_16790}, {"f_15706:scrutinizer_2escm",(void*)f_15706}, {"f_10315:scrutinizer_2escm",(void*)f_10315}, {"f_10880:scrutinizer_2escm",(void*)f_10880}, {"f_14320:scrutinizer_2escm",(void*)f_14320}, {"f_9845:scrutinizer_2escm",(void*)f_9845}, {"f_16700:scrutinizer_2escm",(void*)f_16700}, {"f_10375:scrutinizer_2escm",(void*)f_10375}, {"f_10373:scrutinizer_2escm",(void*)f_10373}, {"f_9818:scrutinizer_2escm",(void*)f_9818}, {"f_9810:scrutinizer_2escm",(void*)f_9810}, {"f_10385:scrutinizer_2escm",(void*)f_10385}, {"f_6686:scrutinizer_2escm",(void*)f_6686}, {"f_6678:scrutinizer_2escm",(void*)f_6678}, {"f_6674:scrutinizer_2escm",(void*)f_6674}, {"f_9876:scrutinizer_2escm",(void*)f_9876}, {"f_9879:scrutinizer_2escm",(void*)f_9879}, {"f_8188:scrutinizer_2escm",(void*)f_8188}, {"f_15494:scrutinizer_2escm",(void*)f_15494}, {"f_16736:scrutinizer_2escm",(void*)f_16736}, {"f_18888:scrutinizer_2escm",(void*)f_18888}, {"f_10363:scrutinizer_2escm",(void*)f_10363}, {"f_14201:scrutinizer_2escm",(void*)f_14201}, {"f_9889:scrutinizer_2escm",(void*)f_9889}, {"f_16744:scrutinizer_2escm",(void*)f_16744}, {"f_18898:scrutinizer_2escm",(void*)f_18898}, {"f_7504:scrutinizer_2escm",(void*)f_7504}, {"f_16711:scrutinizer_2escm",(void*)f_16711}, {"f_16717:scrutinizer_2escm",(void*)f_16717}, {"f_9976:scrutinizer_2escm",(void*)f_9976}, {"f_9974:scrutinizer_2escm",(void*)f_9974}, {"f_16721:scrutinizer_2escm",(void*)f_16721}, {"f_14379:scrutinizer_2escm",(void*)f_14379}, {"f_16724:scrutinizer_2escm",(void*)f_16724}, {"f_16729:scrutinizer_2escm",(void*)f_16729}, {"f_12553:scrutinizer_2escm",(void*)f_12553}, {"f_12567:scrutinizer_2escm",(void*)f_12567}, {"f_18846:scrutinizer_2escm",(void*)f_18846}, {"f_12541:scrutinizer_2escm",(void*)f_12541}, {"f_15464:scrutinizer_2escm",(void*)f_15464}, {"f_7511:scrutinizer_2escm",(void*)f_7511}, {"f_18853:scrutinizer_2escm",(void*)f_18853}, {"f_7514:scrutinizer_2escm",(void*)f_7514}, {"f_8111:scrutinizer_2escm",(void*)f_8111}, {"f_18857:scrutinizer_2escm",(void*)f_18857}, {"f_10302:scrutinizer_2escm",(void*)f_10302}, {"f_18820:scrutinizer_2escm",(void*)f_18820}, {"f_18826:scrutinizer_2escm",(void*)f_18826}, {"f_10305:scrutinizer_2escm",(void*)f_10305}, {"f_8123:scrutinizer_2escm",(void*)f_8123}, {"f_7549:scrutinizer_2escm",(void*)f_7549}, {"f_6986:scrutinizer_2escm",(void*)f_6986}, {"f_15447:scrutinizer_2escm",(void*)f_15447}, {"f_14921:scrutinizer_2escm",(void*)f_14921}, {"f_9945:scrutinizer_2escm",(void*)f_9945}, {"f_18806:scrutinizer_2escm",(void*)f_18806}, {"f_8100:scrutinizer_2escm",(void*)f_8100}, {"f_6622:scrutinizer_2escm",(void*)f_6622}, {"f_19205:scrutinizer_2escm",(void*)f_19205}, {"f_19207:scrutinizer_2escm",(void*)f_19207}, {"f_9806:scrutinizer_2escm",(void*)f_9806}, {"f_6961:scrutinizer_2escm",(void*)f_6961}, {"f_10336:scrutinizer_2escm",(void*)f_10336}, {"f_6995:scrutinizer_2escm",(void*)f_6995}, {"f_10340:scrutinizer_2escm",(void*)f_10340}, {"f_7297:scrutinizer_2escm",(void*)f_7297}, {"f_6645:scrutinizer_2escm",(void*)f_6645}, {"f_7288:scrutinizer_2escm",(void*)f_7288}, {"f_6635:scrutinizer_2escm",(void*)f_6635}, {"f_6631:scrutinizer_2escm",(void*)f_6631}, {"f_9986:scrutinizer_2escm",(void*)f_9986}, {"f_17601:scrutinizer_2escm",(void*)f_17601}, {"f_17605:scrutinizer_2escm",(void*)f_17605}, {"f_19292:scrutinizer_2escm",(void*)f_19292}, {"f_13898:scrutinizer_2escm",(void*)f_13898}, {"f_7271:scrutinizer_2escm",(void*)f_7271}, {"f_17616:scrutinizer_2escm",(void*)f_17616}, {"f_17618:scrutinizer_2escm",(void*)f_17618}, {"f_6654:scrutinizer_2escm",(void*)f_6654}, {"f_13886:scrutinizer_2escm",(void*)f_13886}, {"f_9926:scrutinizer_2escm",(void*)f_9926}, {"f_6651:scrutinizer_2escm",(void*)f_6651}, {"f_17637:scrutinizer_2escm",(void*)f_17637}, {"f_9935:scrutinizer_2escm",(void*)f_9935}, {"f_17634:scrutinizer_2escm",(void*)f_17634}, {"f_14368:scrutinizer_2escm",(void*)f_14368}, {"f_17653:scrutinizer_2escm",(void*)f_17653}, {"f_7226:scrutinizer_2escm",(void*)f_7226}, {"f_7223:scrutinizer_2escm",(void*)f_7223}, {"f_15260:scrutinizer_2escm",(void*)f_15260}, {"f_19872:scrutinizer_2escm",(void*)f_19872}, {"f_7215:scrutinizer_2escm",(void*)f_7215}, {"f_19870:scrutinizer_2escm",(void*)f_19870}, {"f_19232:scrutinizer_2escm",(void*)f_19232}, {"f_9901:scrutinizer_2escm",(void*)f_9901}, {"f_9088:scrutinizer_2escm",(void*)f_9088}, {"f_7204:scrutinizer_2escm",(void*)f_7204}, {"f_11724:scrutinizer_2escm",(void*)f_11724}, {"f_19856:scrutinizer_2escm",(void*)f_19856}, {"f_15758:scrutinizer_2escm",(void*)f_15758}, {"f_6959:scrutinizer_2escm",(void*)f_6959}, {"f_15750:scrutinizer_2escm",(void*)f_15750}, {"f_19868:scrutinizer_2escm",(void*)f_19868}, {"f_19865:scrutinizer_2escm",(void*)f_19865}, {"f_15748:scrutinizer_2escm",(void*)f_15748}, {"f_15740:scrutinizer_2escm",(void*)f_15740}, {"f_6938:scrutinizer_2escm",(void*)f_6938}, {"f_6934:scrutinizer_2escm",(void*)f_6934}, {"f_6930:scrutinizer_2escm",(void*)f_6930}, {"f_19893:scrutinizer_2escm",(void*)f_19893}, {"f_17885:scrutinizer_2escm",(void*)f_17885}, {"f_17888:scrutinizer_2escm",(void*)f_17888}, {"f_11212:scrutinizer_2escm",(void*)f_11212}, {"f_15007:scrutinizer_2escm",(void*)f_15007}, {"f_16508:scrutinizer_2escm",(void*)f_16508}, {"f_19802:scrutinizer_2escm",(void*)f_19802}, {"f_14986:scrutinizer_2escm",(void*)f_14986}, {"f_6903:scrutinizer_2escm",(void*)f_6903}, {"f_6900:scrutinizer_2escm",(void*)f_6900}, {"f_17868:scrutinizer_2escm",(void*)f_17868}, {"f_17865:scrutinizer_2escm",(void*)f_17865}, {"f_16592:scrutinizer_2escm",(void*)f_16592}, {"f_8588:scrutinizer_2escm",(void*)f_8588}, {"f_15280:scrutinizer_2escm",(void*)f_15280}, {"f_17872:scrutinizer_2escm",(void*)f_17872}, {"f_6919:scrutinizer_2escm",(void*)f_6919}, {"f_6910:scrutinizer_2escm",(void*)f_6910}, {"f_17801:scrutinizer_2escm",(void*)f_17801}, {"f_6771:scrutinizer_2escm",(void*)f_6771}, {"f_6773:scrutinizer_2escm",(void*)f_6773}, {"f_8562:scrutinizer_2escm",(void*)f_8562}, {"f_8565:scrutinizer_2escm",(void*)f_8565}, {"f_8569:scrutinizer_2escm",(void*)f_8569}, {"f_6947:scrutinizer_2escm",(void*)f_6947}, {"f_6944:scrutinizer_2escm",(void*)f_6944}, {"f_17182:scrutinizer_2escm",(void*)f_17182}, {"f_11241:scrutinizer_2escm",(void*)f_11241}, {"f_14965:scrutinizer_2escm",(void*)f_14965}, {"f_17192:scrutinizer_2escm",(void*)f_17192}, {"f_11007:scrutinizer_2escm",(void*)f_11007}, {"f_7985:scrutinizer_2escm",(void*)f_7985}, {"f_16564:scrutinizer_2escm",(void*)f_16564}, {"f_7970:scrutinizer_2escm",(void*)f_7970}, {"f_7977:scrutinizer_2escm",(void*)f_7977}, {"f_16536:scrutinizer_2escm",(void*)f_16536}, {"f_11749:scrutinizer_2escm",(void*)f_11749}, {"f_16351:scrutinizer_2escm",(void*)f_16351}, {"f_16357:scrutinizer_2escm",(void*)f_16357}, {"f_16363:scrutinizer_2escm",(void*)f_16363}, {"f_16366:scrutinizer_2escm",(void*)f_16366}, {"f_16360:scrutinizer_2escm",(void*)f_16360}, {"f_16369:scrutinizer_2escm",(void*)f_16369}, {"f_17157:scrutinizer_2escm",(void*)f_17157}, {"f_7671:scrutinizer_2escm",(void*)f_7671}, {"f_8060:scrutinizer_2escm",(void*)f_8060}, {"f_7677:scrutinizer_2escm",(void*)f_7677}, {"f_16393:scrutinizer_2escm",(void*)f_16393}, {"f_7915:scrutinizer_2escm",(void*)f_7915}, {"f_8048:scrutinizer_2escm",(void*)f_8048}, {"f_7902:scrutinizer_2escm",(void*)f_7902}, {"f_8010:scrutinizer_2escm",(void*)f_8010}, {"f_8019:scrutinizer_2escm",(void*)f_8019}, {"f_7909:scrutinizer_2escm",(void*)f_7909}, {"f_14173:scrutinizer_2escm",(void*)f_14173}, {"f_12647:scrutinizer_2escm",(void*)f_12647}, {"f_7966:scrutinizer_2escm",(void*)f_7966}, {"f_7960:scrutinizer_2escm",(void*)f_7960}, {"f_7667:scrutinizer_2escm",(void*)f_7667}, {"f_14168:scrutinizer_2escm",(void*)f_14168}, {"f_7691:scrutinizer_2escm",(void*)f_7691}, {"f_7697:scrutinizer_2escm",(void*)f_7697}, {"f_7957:scrutinizer_2escm",(void*)f_7957}, {"f_12622:scrutinizer_2escm",(void*)f_12622}, {"f_17486:scrutinizer_2escm",(void*)f_17486}, {"f_8052:scrutinizer_2escm",(void*)f_8052}, {"f_12612:scrutinizer_2escm",(void*)f_12612}, {"f_7949:scrutinizer_2escm",(void*)f_7949}, {"f_12614:scrutinizer_2escm",(void*)f_12614}, {"f_16344:scrutinizer_2escm",(void*)f_16344}, {"f_12686:scrutinizer_2escm",(void*)f_12686}, {"f_20645:scrutinizer_2escm",(void*)f_20645}, {"f_20647:scrutinizer_2escm",(void*)f_20647}, {"f_16312:scrutinizer_2escm",(void*)f_16312}, {"f_16315:scrutinizer_2escm",(void*)f_16315}, {"f_12676:scrutinizer_2escm",(void*)f_12676}, {"f_16324:scrutinizer_2escm",(void*)f_16324}, {"f_14155:scrutinizer_2escm",(void*)f_14155}, {"f_6759:scrutinizer_2escm",(void*)f_6759}, {"f_17446:scrutinizer_2escm",(void*)f_17446}, {"f_17449:scrutinizer_2escm",(void*)f_17449}, {"f_20663:scrutinizer_2escm",(void*)f_20663}, {"f_20667:scrutinizer_2escm",(void*)f_20667}, {"f_11590:scrutinizer_2escm",(void*)f_11590}, {"f_16375:scrutinizer_2escm",(void*)f_16375}, {"f_16372:scrutinizer_2escm",(void*)f_16372}, {"f_16378:scrutinizer_2escm",(void*)f_16378}, {"f_17124:scrutinizer_2escm",(void*)f_17124}, {"f_17121:scrutinizer_2escm",(void*)f_17121}, {"f_17419:scrutinizer_2escm",(void*)f_17419}, {"f_16384:scrutinizer_2escm",(void*)f_16384}, {"f_8519:scrutinizer_2escm",(void*)f_8519}, {"f_16381:scrutinizer_2escm",(void*)f_16381}, {"f_7361:scrutinizer_2escm",(void*)f_7361}, {"f_7367:scrutinizer_2escm",(void*)f_7367}, {"f_7364:scrutinizer_2escm",(void*)f_7364}, {"f_17131:scrutinizer_2escm",(void*)f_17131}, {"f_7351:scrutinizer_2escm",(void*)f_7351}, {"f_7355:scrutinizer_2escm",(void*)f_7355}, {"f_7358:scrutinizer_2escm",(void*)f_7358}, {"f_6721:scrutinizer_2escm",(void*)f_6721}, {"f_7340:scrutinizer_2escm",(void*)f_7340}, {"f_7345:scrutinizer_2escm",(void*)f_7345}, {"f_17404:scrutinizer_2escm",(void*)f_17404}, {"f_8509:scrutinizer_2escm",(void*)f_8509}, {"f_7332:scrutinizer_2escm",(void*)f_7332}, {"f_7336:scrutinizer_2escm",(void*)f_7336}, {"f_6705:scrutinizer_2escm",(void*)f_6705}, {"f_6709:scrutinizer_2escm",(void*)f_6709}, {"f_15647:scrutinizer_2escm",(void*)f_15647}, {"f_7624:scrutinizer_2escm",(void*)f_7624}, {"f_7620:scrutinizer_2escm",(void*)f_7620}, {"f_10289:scrutinizer_2escm",(void*)f_10289}, {"f_20600:scrutinizer_2escm",(void*)f_20600}, {"f_10224:scrutinizer_2escm",(void*)f_10224}, {"f_10220:scrutinizer_2escm",(void*)f_10220}, {"f_8077:scrutinizer_2escm",(void*)f_8077}, {"f_6584:scrutinizer_2escm",(void*)f_6584}, {"f_10250:scrutinizer_2escm",(void*)f_10250}, {"f_10262:scrutinizer_2escm",(void*)f_10262}, {"f_9250:scrutinizer_2escm",(void*)f_9250}, {"f_10264:scrutinizer_2escm",(void*)f_10264}, {"f_9254:scrutinizer_2escm",(void*)f_9254}, {"f_9225:scrutinizer_2escm",(void*)f_9225}, {"f_10611:scrutinizer_2escm",(void*)f_10611}, {"f_13026:scrutinizer_2escm",(void*)f_13026}, {"f_10206:scrutinizer_2escm",(void*)f_10206}, {"f_7636:scrutinizer_2escm",(void*)f_7636}, {"f_12658:scrutinizer_2escm",(void*)f_12658}, {"f_6284:scrutinizer_2escm",(void*)f_6284}, {"f_13051:scrutinizer_2escm",(void*)f_13051}, {"f_6287:scrutinizer_2escm",(void*)f_6287}, {"f_9205:scrutinizer_2escm",(void*)f_9205}, {"f_6281:scrutinizer_2escm",(void*)f_6281}, {"f_9202:scrutinizer_2escm",(void*)f_9202}, {"f_9208:scrutinizer_2escm",(void*)f_9208}, {"f_10631:scrutinizer_2escm",(void*)f_10631}, {"f_8025:scrutinizer_2escm",(void*)f_8025}, {"f_9214:scrutinizer_2escm",(void*)f_9214}, {"f_9211:scrutinizer_2escm",(void*)f_9211}, {"f_9217:scrutinizer_2escm",(void*)f_9217}, {"f_9106:scrutinizer_2escm",(void*)f_9106}, {"f_10603:scrutinizer_2escm",(void*)f_10603}, {"f_13071:scrutinizer_2escm",(void*)f_13071}, {"f_6524:scrutinizer_2escm",(void*)f_6524}, {"f_13073:scrutinizer_2escm",(void*)f_13073}, {"f_6520:scrutinizer_2escm",(void*)f_6520}, {"f_10232:scrutinizer_2escm",(void*)f_10232}, {"f_6860:scrutinizer_2escm",(void*)f_6860}, {"f_9116:scrutinizer_2escm",(void*)f_9116}, {"f_10656:scrutinizer_2escm",(void*)f_10656}, {"f_12068:scrutinizer_2escm",(void*)f_12068}, {"f_13398:scrutinizer_2escm",(void*)f_13398}, {"f_16188:scrutinizer_2escm",(void*)f_16188}, {"f_13694:scrutinizer_2escm",(void*)f_13694}, {"f_10247:scrutinizer_2escm",(void*)f_10247}, {"f_10241:scrutinizer_2escm",(void*)f_10241}, {"f_16192:scrutinizer_2escm",(void*)f_16192}, {"f_13098:scrutinizer_2escm",(void*)f_13098}, {"f_13685:scrutinizer_2escm",(void*)f_13685}, {"f_6868:scrutinizer_2escm",(void*)f_6868}, {"f_13374:scrutinizer_2escm",(void*)f_13374}, {"f_12046:scrutinizer_2escm",(void*)f_12046}, {"f_13378:scrutinizer_2escm",(void*)f_13378}, {"f_20719:scrutinizer_2escm",(void*)f_20719}, {"f_6896:scrutinizer_2escm",(void*)f_6896}, {"f_12034:scrutinizer_2escm",(void*)f_12034}, {"f_9146:scrutinizer_2escm",(void*)f_9146}, {"f_9152:scrutinizer_2escm",(void*)f_9152}, {"f_20354:scrutinizer_2escm",(void*)f_20354}, {"f_9158:scrutinizer_2escm",(void*)f_9158}, {"f_7389:scrutinizer_2escm",(void*)f_7389}, {"f_6559:scrutinizer_2escm",(void*)f_6559}, {"f_6557:scrutinizer_2escm",(void*)f_6557}, {"f_6554:scrutinizer_2escm",(void*)f_6554}, {"f_7373:scrutinizer_2escm",(void*)f_7373}, {"f_7370:scrutinizer_2escm",(void*)f_7370}, {"f_20369:scrutinizer_2escm",(void*)f_20369}, {"f_7376:scrutinizer_2escm",(void*)f_7376}, {"f_9288:scrutinizer_2escm",(void*)f_9288}, {"f_9281:scrutinizer_2escm",(void*)f_9281}, {"f_16126:scrutinizer_2escm",(void*)f_16126}, {"f_18689:scrutinizer_2escm",(void*)f_18689}, {"f_19436:scrutinizer_2escm",(void*)f_19436}, {"f_18691:scrutinizer_2escm",(void*)f_18691}, {"f_11602:scrutinizer_2escm",(void*)f_11602}, {"f_11605:scrutinizer_2escm",(void*)f_11605}, {"f_11608:scrutinizer_2escm",(void*)f_11608}, {"f_20390:scrutinizer_2escm",(void*)f_20390}, {"f_20392:scrutinizer_2escm",(void*)f_20392}, {"f_16117:scrutinizer_2escm",(void*)f_16117}, {"f_20615:scrutinizer_2escm",(void*)f_20615}, {"f_20617:scrutinizer_2escm",(void*)f_20617}, {"f_11617:scrutinizer_2escm",(void*)f_11617}, {"f_13012:scrutinizer_2escm",(void*)f_13012}, {"f_11611:scrutinizer_2escm",(void*)f_11611}, {"f_9131:scrutinizer_2escm",(void*)f_9131}, {"f_7325:scrutinizer_2escm",(void*)f_7325}, {"f_9134:scrutinizer_2escm",(void*)f_9134}, {"f_7322:scrutinizer_2escm",(void*)f_7322}, {"f_9137:scrutinizer_2escm",(void*)f_9137}, {"f_20627:scrutinizer_2escm",(void*)f_20627}, {"f_20625:scrutinizer_2escm",(void*)f_20625}, {"f_20238:scrutinizer_2escm",(void*)f_20238}, {"f_9387:scrutinizer_2escm",(void*)f_9387}, {"f_20236:scrutinizer_2escm",(void*)f_20236}, {"f_19422:scrutinizer_2escm",(void*)f_19422}, {"f_19424:scrutinizer_2escm",(void*)f_19424}, {"f_6391:scrutinizer_2escm",(void*)f_6391}, {"f_7313:scrutinizer_2escm",(void*)f_7313}, {"f_20637:scrutinizer_2escm",(void*)f_20637}, {"f_20635:scrutinizer_2escm",(void*)f_20635}, {"f_20248:scrutinizer_2escm",(void*)f_20248}, {"f_9394:scrutinizer_2escm",(void*)f_9394}, {"f_18653:scrutinizer_2escm",(void*)f_18653}, {"f_7303:scrutinizer_2escm",(void*)f_7303}, {"f_15622:scrutinizer_2escm",(void*)f_15622}, {"f_19486:scrutinizer_2escm",(void*)f_19486}, {"f_15620:scrutinizer_2escm",(void*)f_15620}, {"f_6850:scrutinizer_2escm",(void*)f_6850}, {"f_19482:scrutinizer_2escm",(void*)f_19482}, {"f_18622:scrutinizer_2escm",(void*)f_18622}, {"f_18628:scrutinizer_2escm",(void*)f_18628}, {"f_6826:scrutinizer_2escm",(void*)f_6826}, {"f_20282:scrutinizer_2escm",(void*)f_20282}, {"f_8995:scrutinizer_2escm",(void*)f_8995}, {"f_8998:scrutinizer_2escm",(void*)f_8998}, {"f_6357:scrutinizer_2escm",(void*)f_6357}, {"f_15578:scrutinizer_2escm",(void*)f_15578}, {"f_6354:scrutinizer_2escm",(void*)f_6354}, {"f_20211:scrutinizer_2escm",(void*)f_20211}, {"f_6854:scrutinizer_2escm",(void*)f_6854}, {"f_18601:scrutinizer_2escm",(void*)f_18601}, {"f_18607:scrutinizer_2escm",(void*)f_18607}, {"f_16130:scrutinizer_2escm",(void*)f_16130}, {"f_20285:scrutinizer_2escm",(void*)f_20285}, {"f_6846:scrutinizer_2escm",(void*)f_6846}, {"f_11328:scrutinizer_2escm",(void*)f_11328}, {"f_16247:scrutinizer_2escm",(void*)f_16247}, {"f_16241:scrutinizer_2escm",(void*)f_16241}, {"f_20230:scrutinizer_2escm",(void*)f_20230}, {"f_11319:scrutinizer_2escm",(void*)f_11319}, {"f_9013:scrutinizer_2escm",(void*)f_9013}, {"f_9010:scrutinizer_2escm",(void*)f_9010}, {"f_9019:scrutinizer_2escm",(void*)f_9019}, {"f_11382:scrutinizer_2escm",(void*)f_11382}, {"f_11372:scrutinizer_2escm",(void*)f_11372}, {"f_10644:scrutinizer_2escm",(void*)f_10644}, {"f_11363:scrutinizer_2escm",(void*)f_11363}, {"f_10690:scrutinizer_2escm",(void*)f_10690}, {"toplevel:scrutinizer_2escm",(void*)C_scrutinizer_toplevel}, {"f_9001:scrutinizer_2escm",(void*)f_9001}, {"f_9007:scrutinizer_2escm",(void*)f_9007}, {"f_11353:scrutinizer_2escm",(void*)f_11353}, {"f_10665:scrutinizer_2escm",(void*)f_10665}, {"f_10663:scrutinizer_2escm",(void*)f_10663}, {"f_12004:scrutinizer_2escm",(void*)f_12004}, {"f_8919:scrutinizer_2escm",(void*)f_8919}, {"f_8917:scrutinizer_2escm",(void*)f_8917}, {"f_11958:scrutinizer_2escm",(void*)f_11958}, {"f_9069:scrutinizer_2escm",(void*)f_9069}, {"f_20725:scrutinizer_2escm",(void*)f_20725}, {"f_9034:scrutinizer_2escm",(void*)f_9034}, {"f_9042:scrutinizer_2escm",(void*)f_9042}, {"f_8908:scrutinizer_2escm",(void*)f_8908}, {"f_16292:scrutinizer_2escm",(void*)f_16292}, {"f_16295:scrutinizer_2escm",(void*)f_16295}, {"f_20708:scrutinizer_2escm",(void*)f_20708}, {"f_8475:scrutinizer_2escm",(void*)f_8475}, {"f_6816:scrutinizer_2escm",(void*)f_6816}, {"f_6830:scrutinizer_2escm",(void*)f_6830}, {"f_6309:scrutinizer_2escm",(void*)f_6309}, {"f_6820:scrutinizer_2escm",(void*)f_6820}, {"f_16282:scrutinizer_2escm",(void*)f_16282}, {"f_16288:scrutinizer_2escm",(void*)f_16288}, {"f_6836:scrutinizer_2escm",(void*)f_6836}, {"f_6834:scrutinizer_2escm",(void*)f_6834}, {"f_16252:scrutinizer_2escm",(void*)f_16252}, {"f_16257:scrutinizer_2escm",(void*)f_16257}, {"f_11049:scrutinizer_2escm",(void*)f_11049}, {"f_11043:scrutinizer_2escm",(void*)f_11043}, {"f_11344:scrutinizer_2escm",(void*)f_11344}, {"f_11038:scrutinizer_2escm",(void*)f_11038}, {"f_11032:scrutinizer_2escm",(void*)f_11032}, {"f_17046:scrutinizer_2escm",(void*)f_17046}, {"f_11331:scrutinizer_2escm",(void*)f_11331}, {"f_15114:scrutinizer_2escm",(void*)f_15114}, {"f_18066:scrutinizer_2escm",(void*)f_18066}, {"f_18069:scrutinizer_2escm",(void*)f_18069}, {"f_16274:scrutinizer_2escm",(void*)f_16274}, {"f_16271:scrutinizer_2escm",(void*)f_16271}, {"f_16277:scrutinizer_2escm",(void*)f_16277}, {"f_18073:scrutinizer_2escm",(void*)f_18073}, {"f_15109:scrutinizer_2escm",(void*)f_15109}, {"f_11054:scrutinizer_2escm",(void*)f_11054}, {"f_16061:scrutinizer_2escm",(void*)f_16061}, {"f_11084:scrutinizer_2escm",(void*)f_11084}, {"f_16070:scrutinizer_2escm",(void*)f_16070}, {"f_11071:scrutinizer_2escm",(void*)f_11071}, {"f_6315:scrutinizer_2escm",(void*)f_6315}, {"f_6318:scrutinizer_2escm",(void*)f_6318}, {"f_17002:scrutinizer_2escm",(void*)f_17002}, {"f_17004:scrutinizer_2escm",(void*)f_17004}, {"f_6388:scrutinizer_2escm",(void*)f_6388}, {"f_16889:scrutinizer_2escm",(void*)f_16889}, {"f_8330:scrutinizer_2escm",(void*)f_8330}, {"f_16098:scrutinizer_2escm",(void*)f_16098}, {"f_8336:scrutinizer_2escm",(void*)f_8336}, {"f_6376:scrutinizer_2escm",(void*)f_6376}, {"f_6370:scrutinizer_2escm",(void*)f_6370}, {"f_7793:scrutinizer_2escm",(void*)f_7793}, {"f_16898:scrutinizer_2escm",(void*)f_16898}, {"f_8342:scrutinizer_2escm",(void*)f_8342}, {"f_8345:scrutinizer_2escm",(void*)f_8345}, {"f_8349:scrutinizer_2escm",(void*)f_8349}, {"f_6363:scrutinizer_2escm",(void*)f_6363}, {"f_6360:scrutinizer_2escm",(void*)f_6360}, {"f_18012:scrutinizer_2escm",(void*)f_18012}, {"f_7780:scrutinizer_2escm",(void*)f_7780}, {"f_19193:scrutinizer_2escm",(void*)f_19193}, {"f_19190:scrutinizer_2escm",(void*)f_19190}, {"f_11884:scrutinizer_2escm",(void*)f_11884}, {"f_6348:scrutinizer_2escm",(void*)f_6348}, {"f_19166:scrutinizer_2escm",(void*)f_19166}, {"f_19168:scrutinizer_2escm",(void*)f_19168}, {"f_19160:scrutinizer_2escm",(void*)f_19160}, {"f_19163:scrutinizer_2escm",(void*)f_19163}, {"f_16842:scrutinizer_2escm",(void*)f_16842}, {"f_6335:scrutinizer_2escm",(void*)f_6335}, {"f_19176:scrutinizer_2escm",(void*)f_19176}, {"f_16850:scrutinizer_2escm",(void*)f_16850}, {"f_6328:scrutinizer_2escm",(void*)f_6328}, {"f_6321:scrutinizer_2escm",(void*)f_6321}, {"f_18556:scrutinizer_2escm",(void*)f_18556}, {"f_18559:scrutinizer_2escm",(void*)f_18559}, {"f_16001:scrutinizer_2escm",(void*)f_16001}, {"f_16878:scrutinizer_2escm",(void*)f_16878}, {"f_16017:scrutinizer_2escm",(void*)f_16017}, {"f_16803:scrutinizer_2escm",(void*)f_16803}, {"f_16801:scrutinizer_2escm",(void*)f_16801}, {"f_18569:scrutinizer_2escm",(void*)f_18569}, {"f_16013:scrutinizer_2escm",(void*)f_16013}, {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| foldl 1 S| for-each 11 S| map 44 S| sprintf 19 S| printf 2 o|eliminated procedure checks: 420 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|specializations: o| 1 (negative? fixnum) o| 2 (>= fixnum fixnum) o| 4 (eqv? (not float) *) o| 2 (vector-length vector) o| 1 (cdddr (pair * (pair * pair))) o| 5 (cadr (pair * pair)) o| 8 (third (pair * (pair * pair))) o| 1 (set-car! pair *) o| 9 (cddr (pair * pair)) o| 2 (> fixnum fixnum) o| 3 (set-cdr! pair *) o| 12 (first pair) o| 1 (caar (pair pair *)) o| 14 (second (pair * pair)) o| 2 (< fixnum fixnum) o| 4 (length list) o| 1 (zero? fixnum) o| 17 (= fixnum fixnum) o| 2 (cdar (pair pair *)) o| 17 (##sys#check-list (or pair list) *) o| 18 (memq * list) o| 130 (cdr pair) o| 102 (eqv? * (not float)) o| 138 (car pair) o| 21 (##sys#check-output-port * * *) (o e)|safe calls: 1972 (o e)|dropped branches: 2 (o e)|assignments to immediate values: 7 o|safe globals: (##compiler#canonicalize-list-type ##compiler#install-specializations ##compiler#check-and-validate-type ##compiler#validate-type ##compiler#specialize-node! node-debug-info node-line-number source-node-tree source-node mutate-node! node-mutations ##compiler#emit-type-file ##compiler#load-type-database resolve trail-restore type-typeenv noreturn-type? noreturn-procedure-type? rest-type named? procedure-result-types procedure-argument-types procedure-results procedure-arguments procedure-name procedure-type? type<=? typeset-min compatible-types? merge-result-types merge-argument-types ##compiler#simplify-type match-argument-types match-types smash-component-types! ##compiler#scrutinize location-name node-source-prefix type-always-immediate? walked-result multiples trail specialization-statistics ddd dd d ##compiler#scrutiny-debug d-depth) o|Removed `not' forms: 40 o|propagated global variable: out2832 ##sys#standard-output o|substituted constant variable: a6136 o|substituted constant variable: a6137 o|inlining procedure: k6129 o|propagated global variable: out2832 ##sys#standard-output o|inlining procedure: k6129 o|inlining procedure: k6170 o|inlining procedure: k6170 o|contracted procedure: "(scrutinizer.scm:125) g128129" o|inlining procedure: k6194 o|inlining procedure: k6212 o|inlining procedure: k6212 o|substituted constant variable: a6226 o|substituted constant variable: a6228 o|inlining procedure: k6194 o|substituted constant variable: a6233 o|contracted procedure: k6243 o|substituted constant variable: a6250 o|substituted constant variable: a6251 o|inlining procedure: k6240 o|inlining procedure: k6240 o|contracted procedure: "(scrutinizer.scm:137) node-line-number" o|contracted procedure: "(scrutinizer.scm:1880) node-debug-info" o|inlining procedure: k17058 o|inlining procedure: k17078 o|inlining procedure: k17078 o|contracted procedure: "(scrutinizer.scm:1885) g36153616" o|inlining procedure: k17058 o|contracted procedure: "(scrutinizer.scm:1890) g36203621" o|substituted constant variable: a17117 o|substituted constant variable: a17119 o|contracted procedure: "(scrutinizer.scm:1883) g36113612" o|substituted constant variable: a6277 o|substituted constant variable: a6278 o|inlining procedure: k6270 o|inlining procedure: k6270 o|inlining procedure: k6295 o|inlining procedure: k6295 o|substituted constant variable: a6311 o|substituted constant variable: a6312 o|inlining procedure: k6337 o|substituted constant variable: a6350 o|substituted constant variable: a6351 o|inlining procedure: k6337 o|inlining procedure: k6393 o|inlining procedure: k6393 o|inlining procedure: k6405 o|inlining procedure: k6405 o|inlining procedure: k6417 o|inlining procedure: k6429 o|inlining procedure: k6429 o|substituted constant variable: a6436 o|propagated global variable: tmp250255 number-type o|substituted constant variable: a6438 o|inlining procedure: k6417 o|inlining procedure: k6445 o|inlining procedure: k6445 o|inlining procedure: k6448 o|inlining procedure: k6448 o|inlining procedure: k6473 o|inlining procedure: k6473 o|inlining procedure: k6504 o|inlining procedure: k6504 o|inlining procedure: k6535 o|inlining procedure: k6561 o|inlining procedure: k6561 o|inlining procedure: k6535 o|inlining procedure: k6605 o|inlining procedure: k6605 o|contracted procedure: k6611 o|inlining procedure: k6637 o|inlining procedure: k6637 o|inlining procedure: k6632 o|inlining procedure: k6632 o|contracted procedure: "(scrutinizer.scm:191) g329330" o|inlining procedure: k6679 o|inlining procedure: k6679 o|inlining procedure: k6688 o|inlining procedure: k6688 o|inlining procedure: k6710 o|inlining procedure: k6710 o|inlining procedure: k6725 o|contracted procedure: "(scrutinizer.scm:154) g370371" o|inlining procedure: k6730 o|inlining procedure: k6730 o|inlining procedure: k6725 o|contracted procedure: k6751 o|propagated global variable: r6752 ##compiler#strict-variable-types o|inlining procedure: k6754 o|contracted procedure: "(scrutinizer.scm:218) g365366" o|inlining procedure: k6754 o|inlining procedure: k6775 o|inlining procedure: k6793 o|inlining procedure: k6793 o|substituted constant variable: a6807 o|substituted constant variable: a6809 o|inlining procedure: k6775 o|substituted constant variable: a6814 o|inlining procedure: k6821 o|inlining procedure: k6821 o|inlining procedure: k6841 o|inlining procedure: k6841 o|inlining procedure: k6870 o|inlining procedure: k6870 o|inlining procedure: k6888 o|inlining procedure: k6888 o|substituted constant variable: a6916 o|inlining procedure: k6921 o|substituted constant variable: a6940 o|substituted constant variable: a6941 o|inlining procedure: k6963 o|contracted procedure: "(scrutinizer.scm:282) g437446" o|inlining procedure: k6963 o|inlining procedure: k6921 o|inlining procedure: k6997 o|substituted constant variable: a7016 o|substituted constant variable: a7017 o|inlining procedure: k7039 o|contracted procedure: "(scrutinizer.scm:288) g478487" o|inlining procedure: k7039 o|inlining procedure: k6997 o|inlining procedure: k7090 o|inlining procedure: k7090 o|inlining procedure: k7105 o|inlining procedure: k7135 o|inlining procedure: k7135 o|substituted constant variable: a7176 o|inlining procedure: k7105 o|contracted procedure: "(scrutinizer.scm:297) source-node-tree" o|contracted procedure: "(scrutinizer.scm:1875) g35613562" o|inlining procedure: k17006 o|inlining procedure: k17006 o|contracted procedure: "(scrutinizer.scm:1877) g35913592" o|contracted procedure: "(scrutinizer.scm:1876) g35693570" o|contracted procedure: "(scrutinizer.scm:1875) g35663567" o|removed unused formal parameters: (e575 params577 typeenv578) o|substituted constant variable: a7251 o|substituted constant variable: a7252 o|contracted procedure: "(scrutinizer.scm:325) g589590" o|inlining procedure: k7317 o|inlining procedure: k7317 o|consed rest parameter at call site: "(scrutinizer.scm:344) procedure-argument-types" 4 o|inlining procedure: k7403 o|inlining procedure: k7403 o|contracted procedure: "(scrutinizer.scm:434) g743744" o|contracted procedure: k7456 o|inlining procedure: k7453 o|inlining procedure: k7453 o|inlining procedure: k7468 o|contracted procedure: "(scrutinizer.scm:427) g736737" o|inlining procedure: k7468 o|inlining procedure: k7506 o|inlining procedure: k7506 o|inlining procedure: k7582 o|inlining procedure: k7582 o|inlining procedure: k7679 o|inlining procedure: k7712 o|inlining procedure: k7712 o|inlining procedure: k7679 o|inlining procedure: k7668 o|inlining procedure: k7668 o|contracted procedure: "(scrutinizer.scm:403) get-specializations238" o|inlining procedure: k7227 o|inlining procedure: k7227 o|inlining procedure: k7238 o|inlining procedure: k7238 o|contracted procedure: "(scrutinizer.scm:317) g561562" o|contracted procedure: "(scrutinizer.scm:316) g556557" o|contracted procedure: "(scrutinizer.scm:374) g676677" o|contracted procedure: "(scrutinizer.scm:369) procedure-result-types" o|inlining procedure: k15083 o|inlining procedure: k15083 o|inlining procedure: k15104 o|inlining procedure: k15126 o|inlining procedure: k15126 o|substituted constant variable: a15136 o|inlining procedure: k15104 o|inlining procedure: k7782 o|inlining procedure: k7782 o|contracted procedure: k7853 o|inlining procedure: k7870 o|inlining procedure: k7870 o|inlining procedure: k7924 o|inlining procedure: k7924 o|inlining procedure: k8053 o|inlining procedure: k8053 o|inlining procedure: k8062 o|inlining procedure: k8078 o|inlining procedure: k8078 o|inlining procedure: k8092 o|inlining procedure: k8092 o|substituted constant variable: a8119 o|substituted constant variable: a8121 o|inlining procedure: k8062 o|inlining procedure: k8176 o|inlining procedure: k8176 o|inlining procedure: k8199 o|inlining procedure: k8199 o|inlining procedure: k8218 o|inlining procedure: k8218 o|inlining procedure: k8253 o|inlining procedure: k8253 o|inlining procedure: k8331 o|inlining procedure: k8350 o|inlining procedure: k8350 o|inlining procedure: k8383 o|contracted procedure: "(scrutinizer.scm:547) g9941004" o|inlining procedure: k8383 o|contracted procedure: k8428 o|contracted procedure: k8434 o|inlining procedure: k8431 o|inlining procedure: k8431 o|inlining procedure: k8331 o|contracted procedure: k8452 o|inlining procedure: k8477 o|inlining procedure: k8477 o|inlining procedure: k8511 o|inlining procedure: k8511 o|inlining procedure: k8533 o|inlining procedure: k8533 o|inlining procedure: k8542 o|inlining procedure: k8542 o|inlining procedure: k8578 o|inlining procedure: k8590 o|inlining procedure: k8590 o|inlining procedure: k8638 o|inlining procedure: k8638 o|contracted procedure: "(scrutinizer.scm:565) g10521053" o|contracted procedure: "(scrutinizer.scm:563) g10481049" o|substituted constant variable: a8681 o|substituted constant variable: a8682 o|inlining procedure: k8578 o|inlining procedure: k8776 o|inlining procedure: k8776 o|contracted procedure: k8846 o|inlining procedure: k8921 o|contracted procedure: "(scrutinizer.scm:576) g10751085" o|inlining procedure: k8921 o|inlining procedure: k8970 o|inlining procedure: k8970 o|contracted procedure: "(scrutinizer.scm:574) initial-argument-types242" o|inlining procedure: k7944 o|inlining procedure: k7987 o|inlining procedure: k7987 o|consed rest parameter at call site: "(scrutinizer.scm:462) procedure-argument-types" 4 o|contracted procedure: "(scrutinizer.scm:458) g813814" o|inlining procedure: k7944 o|inlining procedure: k8036 o|contracted procedure: "(scrutinizer.scm:457) g808809" o|inlining procedure: k8036 o|inlining procedure: k8976 o|substituted constant variable: a9028 o|contracted procedure: "(scrutinizer.scm:694) always-immediate230" o|inlining procedure: k6861 o|inlining procedure: k6861 o|inlining procedure: k9044 o|inlining procedure: k9044 o|propagated global variable: tmp12581260 ##compiler#strict-variable-types o|inlining procedure: k9107 o|propagated global variable: tmp12581260 ##compiler#strict-variable-types o|inlining procedure: k9107 o|inlining procedure: k9138 o|contracted procedure: "(scrutinizer.scm:663) g12351236" o|contracted procedure: "(scrutinizer.scm:662) g12211222" o|substituted constant variable: a9198 o|substituted constant variable: a9199 o|removed unused parameter to known procedure: where1758 "(scrutinizer.scm:656) smash-component-types!" o|inlining procedure: k9232 o|inlining procedure: k9232 o|contracted procedure: "(scrutinizer.scm:653) g12001201" o|inlining procedure: k9138 o|contracted procedure: k9260 o|contracted procedure: k9266 o|inlining procedure: k9263 o|inlining procedure: k9263 o|contracted procedure: k9272 o|contracted procedure: k9298 o|inlining procedure: k9295 o|inlining procedure: k9295 o|contracted procedure: k9304 o|inlining procedure: k9321 o|inlining procedure: k9321 o|substituted constant variable: a9348 o|substituted constant variable: a9349 o|contracted procedure: "(scrutinizer.scm:625) g11601161" o|inlining procedure: k8976 o|contracted procedure: "(scrutinizer.scm:704) g13111312" o|substituted constant variable: a9421 o|substituted constant variable: a9422 o|inlining procedure: k9446 o|substituted constant variable: a9456 o|substituted constant variable: a9457 o|inlining procedure: k9446 o|inlining procedure: k9379 o|removed unused parameter to known procedure: e575 "(scrutinizer.scm:728) call-result239" o|removed unused parameter to known procedure: params577 "(scrutinizer.scm:728) call-result239" o|removed unused parameter to known procedure: typeenv578 "(scrutinizer.scm:728) call-result239" o|inlining procedure: k9503 o|removed unused parameter to known procedure: where1758 "(scrutinizer.scm:736) smash-component-types!" o|removed unused parameter to known procedure: where1758 "(scrutinizer.scm:735) smash-component-types!" o|inlining procedure: k9503 o|contracted procedure: k9515 o|propagated global variable: r9516 ##compiler#strict-variable-types o|inlining procedure: k9521 o|inlining procedure: k9521 o|contracted procedure: k9527 o|contracted procedure: "(scrutinizer.scm:734) g14181419" o|contracted procedure: "(scrutinizer.scm:733) g14141415" o|inlining procedure: k9551 o|inlining procedure: k9583 o|inlining procedure: k9583 o|inlining procedure: k9616 o|inlining procedure: k9649 o|inlining procedure: k9649 o|contracted procedure: k9691 o|inlining procedure: k9688 o|inlining procedure: k9703 o|inlining procedure: k9703 o|inlining procedure: k9688 o|inlining procedure: k9722 o|inlining procedure: k9740 o|inlining procedure: k9740 o|inlining procedure: k9761 o|inlining procedure: k9761 o|inlining procedure: k9770 o|inlining procedure: k9770 o|inlining procedure: k9785 o|inlining procedure: k9785 o|inlining procedure: k9722 o|contracted procedure: "(scrutinizer.scm:802) g15461547" o|inlining procedure: k9830 o|contracted procedure: k9836 o|inlining procedure: k9830 o|contracted procedure: "(scrutinizer.scm:749) g14791480" o|inlining procedure: k9616 o|contracted procedure: "(scrutinizer.scm:748) g14751476" o|inlining procedure: k9551 o|inlining procedure: k9903 o|inlining procedure: k9903 o|inlining procedure: k9937 o|inlining procedure: k9937 o|consed rest parameter at call site: "(scrutinizer.scm:813) procedure-argument-types" 4 o|contracted procedure: "(scrutinizer.scm:726) g13931394" o|contracted procedure: "(scrutinizer.scm:725) g13871388" o|inlining procedure: k10021 o|inlining procedure: k10021 o|inlining procedure: k10059 o|inlining procedure: k10059 o|inlining procedure: k9379 o|inlining procedure: k10119 o|inlining procedure: k10119 o|inlining procedure: k10137 o|inlining procedure: k10137 o|substituted constant variable: a10179 o|inlining procedure: k10184 o|inlining procedure: k10208 o|inlining procedure: k10266 o|contracted procedure: "(scrutinizer.scm:853) g16351644" o|substituted constant variable: a10243 o|substituted constant variable: a10244 o|inlining procedure: k10266 o|inlining procedure: k10208 o|inlining procedure: k10184 o|inlining procedure: k10377 o|inlining procedure: k10377 o|substituted constant variable: a10401 o|substituted constant variable: a10403 o|substituted constant variable: a10405 o|substituted constant variable: a10407 o|substituted constant variable: a10409 o|substituted constant variable: a10414 o|substituted constant variable: a10416 o|substituted constant variable: a10421 o|substituted constant variable: a10423 o|substituted constant variable: a10428 o|substituted constant variable: a10430 o|substituted constant variable: a10432 o|substituted constant variable: a10434 o|substituted constant variable: a10436 o|substituted constant variable: a10438 o|substituted constant variable: a10440 o|substituted constant variable: a10442 o|substituted constant variable: a10444 o|substituted constant variable: a10446 o|contracted procedure: "(scrutinizer.scm:483) g902903" o|contracted procedure: "(scrutinizer.scm:482) g899900" o|contracted procedure: "(scrutinizer.scm:481) g896897" o|inlining procedure: k10462 o|inlining procedure: k10462 o|inlining procedure: k10533 o|contracted procedure: "(scrutinizer.scm:879) g17031710" o|propagated global variable: out17131717 ##sys#standard-output o|substituted constant variable: a10501 o|substituted constant variable: a10502 o|propagated global variable: out17131717 ##sys#standard-output o|inlining procedure: k10533 o|propagated global variable: g17091711 specialization-statistics o|contracted procedure: "(scrutinizer.scm:873) g16971698" o|removed unused formal parameters: (where1758) o|inlining procedure: k10583 o|inlining procedure: k10583 o|inlining procedure: k10613 o|inlining procedure: k10633 o|inlining procedure: k10667 o|inlining procedure: k10667 o|inlining procedure: k10633 o|inlining procedure: k10714 o|inlining procedure: k10714 o|substituted constant variable: a10753 o|substituted constant variable: a10755 o|substituted constant variable: a10760 o|substituted constant variable: a10762 o|substituted constant variable: a10764 o|substituted constant variable: a10766 o|inlining procedure: k10613 o|inlining procedure: k10785 o|inlining procedure: k10797 o|inlining procedure: k10797 o|inlining procedure: "(scrutinizer.scm:940) optargs?1855" o|inlining procedure: k10785 o|inlining procedure: k10813 o|inlining procedure: k10813 o|inlining procedure: "(scrutinizer.scm:943) optargs?1855" o|inlining procedure: k10823 o|inlining procedure: k10823 o|inlining procedure: k10845 o|removed unused parameter to known procedure: opt1884 "(scrutinizer.scm:949) match-rest1854" o|inlining procedure: k10845 o|removed unused parameter to known procedure: opt1884 "(scrutinizer.scm:951) match-rest1854" o|inlining procedure: k10875 o|inlining procedure: k10875 o|removed unused formal parameters: (opt1884) o|inlining procedure: k10925 o|inlining procedure: k10935 o|inlining procedure: k10935 o|inlining procedure: k10925 o|inlining procedure: k10952 o|inlining procedure: k10952 o|substituted constant variable: a10962 o|inlining procedure: k10969 o|inlining procedure: k10969 o|inlining procedure: k10981 o|inlining procedure: k10981 o|inlining procedure: k10999 o|inlining procedure: k10999 o|substituted constant variable: a11025 o|substituted constant variable: a11030 o|inlining procedure: k11062 o|inlining procedure: k11062 o|inlining procedure: k11073 o|inlining procedure: k11088 o|inlining procedure: k11088 o|inlining procedure: k11073 o|inlining procedure: k11116 o|inlining procedure: k11116 o|inlining procedure: k11128 o|inlining procedure: k11128 o|inlining procedure: k11152 o|inlining procedure: k11152 o|inlining procedure: k11201 o|inlining procedure: k11216 o|inlining procedure: k11216 o|inlining procedure: k11201 o|inlining procedure: k11196 o|inlining procedure: k11196 o|inlining procedure: k11274 o|inlining procedure: k11274 o|inlining procedure: k11289 o|inlining procedure: k11289 o|inlining procedure: k11314 o|contracted procedure: k11323 o|inlining procedure: k11314 o|inlining procedure: k11358 o|inlining procedure: k11358 o|inlining procedure: k11390 o|inlining procedure: k11390 o|inlining procedure: k11412 o|inlining procedure: k11412 o|inlining procedure: k11424 o|inlining procedure: k11424 o|inlining procedure: k11442 o|inlining procedure: k11442 o|inlining procedure: k11460 o|inlining procedure: k11460 o|inlining procedure: k11478 o|inlining procedure: k11478 o|inlining procedure: k11496 o|inlining procedure: k11496 o|inlining procedure: k11511 o|inlining procedure: k11511 o|inlining procedure: k11522 o|contracted procedure: k11531 o|inlining procedure: k11534 o|inlining procedure: k11534 o|inlining procedure: k11522 o|contracted procedure: k11554 o|inlining procedure: k11551 o|inlining procedure: k11551 o|inlining procedure: k11568 o|inlining procedure: k11568 o|inlining procedure: k11594 o|inlining procedure: k11594 o|inlining procedure: k11630 o|inlining procedure: k11630 o|inlining procedure: k11665 o|inlining procedure: k11665 o|substituted constant variable: a11703 o|substituted constant variable: a11705 o|substituted constant variable: a11710 o|substituted constant variable: a11712 o|substituted constant variable: a11714 o|substituted constant variable: a11716 o|substituted constant variable: a11718 o|inlining procedure: k11719 o|inlining procedure: k11732 o|contracted procedure: k11741 o|inlining procedure: k11744 o|inlining procedure: k11744 o|inlining procedure: k11732 o|inlining procedure: k11771 o|inlining procedure: k11791 o|inlining procedure: k11791 o|inlining procedure: k11771 o|substituted constant variable: a11818 o|substituted constant variable: a11820 o|inlining procedure: k11719 o|inlining procedure: k11827 o|contracted procedure: k11843 o|inlining procedure: k11840 o|inlining procedure: k11840 o|inlining procedure: k11867 o|inlining procedure: k11879 o|inlining procedure: k11879 o|inlining procedure: k11867 o|substituted constant variable: a11920 o|substituted constant variable: a11922 o|inlining procedure: k11827 o|inlining procedure: k11923 o|contracted procedure: k11932 o|inlining procedure: k11935 o|inlining procedure: k11935 o|inlining procedure: k11923 o|inlining procedure: k11971 o|inlining procedure: k11971 o|inlining procedure: k11999 o|contracted procedure: k12008 o|inlining procedure: k12011 o|inlining procedure: k12011 o|inlining procedure: k11999 o|inlining procedure: k12047 o|inlining procedure: k12047 o|inlining procedure: k12126 o|inlining procedure: k12126 o|inlining procedure: k12220 o|inlining procedure: k12220 o|inlining procedure: k12238 o|inlining procedure: k12238 o|inlining procedure: k12260 o|inlining procedure: k12260 o|inlining procedure: k12289 o|inlining procedure: k12289 o|inlining procedure: k12334 o|inlining procedure: k12372 o|inlining procedure: k12372 o|inlining procedure: k12425 o|contracted procedure: "(scrutinizer.scm:1207) g22042213" o|contracted procedure: "(scrutinizer.scm:1210) g22182219" o|inlining procedure: k12425 o|inlining procedure: k12456 o|inlining procedure: k12484 o|inlining procedure: k12484 o|inlining procedure: k12499 o|inlining procedure: k12560 o|inlining procedure: k12560 o|inlining procedure: k12499 o|inlining procedure: k12578 o|inlining procedure: k12578 o|inlining procedure: k12607 o|inlining procedure: k12607 o|inlining procedure: k12624 o|inlining procedure: k12624 o|inlining procedure: k12642 o|inlining procedure: k12642 o|inlining procedure: k12707 o|inlining procedure: k12707 o|inlining procedure: k12725 o|inlining procedure: k12725 o|substituted constant variable: a12743 o|substituted constant variable: a12744 o|inlining procedure: k12749 o|inlining procedure: k12749 o|inlining procedure: k12456 o|inlining procedure: k12792 o|inlining procedure: k12792 o|inlining procedure: k12819 o|inlining procedure: k12819 o|inlining procedure: k12855 o|inlining procedure: k12855 o|inlining procedure: k12870 o|inlining procedure: k12899 o|inlining procedure: k12899 o|inlining procedure: k12870 o|inlining procedure: k12955 o|inlining procedure: k12955 o|inlining procedure: k12986 o|inlining procedure: k13010 o|inlining procedure: k13010 o|inlining procedure: k13028 o|inlining procedure: k13028 o|inlining procedure: k13075 o|inlining procedure: k13075 o|inlining procedure: k12986 o|substituted constant variable: a13128 o|substituted constant variable: a13130 o|substituted constant variable: a13132 o|substituted constant variable: a13137 o|substituted constant variable: a13139 o|substituted constant variable: a13141 o|substituted constant variable: a13143 o|substituted constant variable: a13145 o|substituted constant variable: a13147 o|inlining procedure: k12334 o|inlining procedure: k13169 o|inlining procedure: k13193 o|inlining procedure: k13193 o|inlining procedure: k13169 o|inlining procedure: k13231 o|substituted constant variable: a13250 o|inlining procedure: k13243 o|inlining procedure: k13243 o|inlining procedure: k13231 o|inlining procedure: k13257 o|inlining procedure: k13257 o|inlining procedure: k13308 o|inlining procedure: k13308 o|substituted constant variable: a13364 o|inlining procedure: k13357 o|inlining procedure: k13357 o|inlining procedure: k13412 o|inlining procedure: k13412 o|inlining procedure: k13424 o|inlining procedure: k13424 o|inlining procedure: k13447 o|inlining procedure: k13447 o|inlining procedure: k13498 o|inlining procedure: k13498 o|inlining procedure: k13507 o|inlining procedure: k13507 o|inlining procedure: k13535 o|inlining procedure: k13535 o|inlining procedure: k13546 o|inlining procedure: k13546 o|inlining procedure: k13591 o|inlining procedure: k13591 o|inlining procedure: k13586 o|inlining procedure: k13586 o|substituted constant variable: a13632 o|substituted constant variable: a13637 o|inlining procedure: k13633 o|inlining procedure: k13633 o|inlining procedure: k13647 o|inlining procedure: k13647 o|inlining procedure: k13665 o|inlining procedure: k13665 o|inlining procedure: k13686 o|inlining procedure: k13686 o|inlining procedure: k13702 o|inlining procedure: k13702 o|inlining procedure: k13734 o|inlining procedure: k13734 o|inlining procedure: k13759 o|inlining procedure: k13759 o|inlining procedure: k13784 o|inlining procedure: k13784 o|inlining procedure: k13807 o|inlining procedure: k13807 o|inlining procedure: k13818 o|substituted constant variable: a13825 o|inlining procedure: k13818 o|substituted constant variable: a13833 o|inlining procedure: k13834 o|inlining procedure: k13834 o|inlining procedure: k13852 o|inlining procedure: k13852 o|contracted procedure: k13864 o|contracted procedure: k13870 o|inlining procedure: k13867 o|inlining procedure: k13893 o|inlining procedure: k13893 o|inlining procedure: k13935 o|contracted procedure: k13944 o|inlining procedure: k13947 o|inlining procedure: k13947 o|inlining procedure: k13935 o|contracted procedure: k13983 o|inlining procedure: k13980 o|inlining procedure: k13980 o|inlining procedure: k14015 o|inlining procedure: k14015 o|contracted procedure: k14045 o|inlining procedure: k14049 o|inlining procedure: k14049 o|inlining procedure: k14082 o|inlining procedure: k14082 o|inlining procedure: k14133 o|inlining procedure: k14157 o|inlining procedure: k14175 o|inlining procedure: k14175 o|inlining procedure: k14190 o|inlining procedure: k14190 o|inlining procedure: k14220 o|inlining procedure: k14220 o|inlining procedure: k14229 o|inlining procedure: k14229 o|inlining procedure: k14247 o|inlining procedure: k14247 o|inlining procedure: k14157 o|inlining procedure: k14282 o|inlining procedure: k14282 o|inlining procedure: k14312 o|inlining procedure: k14312 o|inlining procedure: k14328 o|inlining procedure: k14328 o|inlining procedure: k14345 o|inlining procedure: k14345 o|inlining procedure: k14363 o|inlining procedure: k14363 o|inlining procedure: k14381 o|inlining procedure: k14381 o|inlining procedure: k14133 o|substituted constant variable: a14435 o|substituted constant variable: a14437 o|substituted constant variable: a14442 o|substituted constant variable: a14444 o|substituted constant variable: a14446 o|substituted constant variable: a14451 o|substituted constant variable: a14453 o|inlining procedure: k13867 o|substituted constant variable: a14547 o|substituted constant variable: a14549 o|substituted constant variable: a14551 o|substituted constant variable: a14553 o|substituted constant variable: a14555 o|substituted constant variable: a14557 o|inlining procedure: k14609 o|inlining procedure: k14609 o|inlining procedure: k14642 o|inlining procedure: k14642 o|inlining procedure: k14652 o|inlining procedure: k14652 o|inlining procedure: k14671 o|inlining procedure: k14671 o|substituted constant variable: a14683 o|substituted constant variable: a14685 o|substituted constant variable: a14687 o|inlining procedure: k14691 o|inlining procedure: k14711 o|inlining procedure: k14729 o|inlining procedure: k14729 o|inlining procedure: k14711 o|substituted constant variable: a14736 o|substituted constant variable: a14738 o|inlining procedure: k14691 o|inlining procedure: k14742 o|inlining procedure: k14762 o|inlining procedure: k14762 o|substituted constant variable: a14792 o|substituted constant variable: a14794 o|inlining procedure: k14742 o|inlining procedure: k14798 o|inlining procedure: k14818 o|inlining procedure: k14818 o|substituted constant variable: a14848 o|substituted constant variable: a14850 o|inlining procedure: k14798 o|merged explicitly consed rest parameter: tmp27992803 o|inlining procedure: k14863 o|inlining procedure: k14882 o|inlining procedure: k14882 o|inlining procedure: k14901 o|inlining procedure: k14901 o|inlining procedure: k14909 o|inlining procedure: k14909 o|inlining procedure: k14863 o|inlining procedure: k15026 o|inlining procedure: k15026 o|inlining procedure: k15018 o|inlining procedure: k15018 o|inlining procedure: k15209 o|inlining procedure: k15229 o|inlining procedure: k15229 o|inlining procedure: k15242 o|inlining procedure: k15242 o|substituted constant variable: a15256 o|substituted constant variable: a15258 o|inlining procedure: k15209 o|inlining procedure: k15262 o|inlining procedure: k15262 o|inlining procedure: k15282 o|inlining procedure: k15295 o|inlining procedure: k15305 o|inlining procedure: k15305 o|inlining procedure: k15295 o|inlining procedure: k15320 o|inlining procedure: k15320 o|substituted constant variable: a15334 o|substituted constant variable: a15336 o|inlining procedure: k15282 o|inlining procedure: k15343 o|inlining procedure: k15343 o|inlining procedure: k15353 o|inlining procedure: k15353 o|substituted constant variable: a15378 o|substituted constant variable: a15380 o|inlining procedure: k15390 o|inlining procedure: k15403 o|inlining procedure: k15439 o|inlining procedure: k15439 o|inlining procedure: k15466 o|inlining procedure: k15466 o|inlining procedure: k15403 o|inlining procedure: k15512 o|inlining procedure: k15512 o|inlining procedure: k15539 o|inlining procedure: k15539 o|inlining procedure: k15569 o|inlining procedure: k15624 o|contracted procedure: "(scrutinizer.scm:1679) g30203029" o|inlining procedure: k15592 o|inlining procedure: k15592 o|inlining procedure: k15624 o|inlining procedure: k15569 o|inlining procedure: k15674 o|inlining procedure: k15674 o|substituted constant variable: a15698 o|substituted constant variable: a15700 o|substituted constant variable: a15702 o|substituted constant variable: a15704 o|inlining procedure: k15390 o|inlining procedure: k15714 o|inlining procedure: k15714 o|inlining procedure: k15763 o|inlining procedure: k15763 o|inlining procedure: k15755 o|inlining procedure: k15755 o|contracted procedure: k15805 o|inlining procedure: k15819 o|inlining procedure: k15847 o|inlining procedure: k15847 o|inlining procedure: k15819 o|inlining procedure: k15895 o|inlining procedure: k15895 o|inlining procedure: k15949 o|inlining procedure: k15949 o|inlining procedure: k15980 o|inlining procedure: k16015 o|inlining procedure: k16015 o|inlining procedure: k16038 o|inlining procedure: k16038 o|inlining procedure: k16072 o|inlining procedure: k16072 o|inlining procedure: k16084 o|inlining procedure: k16084 o|inlining procedure: k16103 o|inlining procedure: k16103 o|inlining procedure: k15980 o|substituted constant variable: a16145 o|inlining procedure: k16149 o|inlining procedure: k16149 o|inlining procedure: k16161 o|inlining procedure: k16161 o|substituted constant variable: a16168 o|substituted constant variable: a16170 o|substituted constant variable: a16172 o|substituted constant variable: a16174 o|substituted constant variable: a16176 o|substituted constant variable: a16178 o|substituted constant variable: a16180 o|substituted constant variable: a16182 o|substituted constant variable: a15812 o|inlining procedure: k15808 o|inlining procedure: k15808 o|inlining procedure: k16242 o|inlining procedure: k16316 o|inlining procedure: k16316 o|contracted procedure: "(scrutinizer.scm:1809) g34473448" o|contracted procedure: "(scrutinizer.scm:1804) g34333434" o|substituted constant variable: a16353 o|substituted constant variable: a16354 o|contracted procedure: "(scrutinizer.scm:1803) g34203421" o|contracted procedure: "(scrutinizer.scm:1803) g34173418" o|substituted constant variable: a16418 o|substituted constant variable: a16419 o|contracted procedure: "(scrutinizer.scm:1795) g33993400" o|inlining procedure: k16450 o|inlining procedure: k16477 o|inlining procedure: k16477 o|contracted procedure: "(scrutinizer.scm:1768) pure!3246" o|inlining procedure: k16219 o|contracted procedure: "(scrutinizer.scm:1750) g32633264" o|inlining procedure: k16219 o|inlining procedure: k16500 o|contracted procedure: "(scrutinizer.scm:1771) clean!3245" o|inlining procedure: k16196 o|contracted procedure: "(scrutinizer.scm:1747) g32483249" o|inlining procedure: k16196 o|inlining procedure: k16500 o|contracted procedure: "(scrutinizer.scm:1774) g33393340" o|inlining procedure: k16542 o|contracted procedure: "(scrutinizer.scm:1777) g33543355" o|inlining procedure: k16542 o|substituted constant variable: a16582 o|substituted constant variable: a16584 o|substituted constant variable: a16586 o|substituted constant variable: a16588 o|inlining procedure: k16595 o|inlining procedure: k16595 o|inlining procedure: k16450 o|contracted procedure: "(scrutinizer.scm:1757) g33153316" o|inlining procedure: k16650 o|inlining procedure: k16650 o|substituted constant variable: a16680 o|substituted constant variable: a16681 o|inlining procedure: k16242 o|inlining procedure: k16731 o|inlining procedure: k16805 o|inlining procedure: k16856 o|inlining procedure: k16856 o|inlining procedure: k16862 o|inlining procedure: k16862 o|substituted constant variable: a16884 o|substituted constant variable: a16886 o|inlining procedure: k16805 o|contracted procedure: "(scrutinizer.scm:1829) g35153516" o|contracted procedure: "(scrutinizer.scm:1828) g35113512" o|contracted procedure: "(scrutinizer.scm:1827) g35073508" o|contracted procedure: "(scrutinizer.scm:1826) g35033504" o|contracted procedure: "(scrutinizer.scm:1825) g34993500" o|contracted procedure: "(scrutinizer.scm:1824) g34953496" o|inlining procedure: k16731 o|substituted constant variable: a16899 o|contracted procedure: "(scrutinizer.scm:1823) g34823483" o|contracted procedure: k16935 o|inlining procedure: k16932 o|inlining procedure: k16932 o|inlining procedure: k17126 o|inlining procedure: k17141 o|inlining procedure: k17141 o|inlining procedure: k17165 o|inlining procedure: k17165 o|inlining procedure: k17126 o|contracted procedure: k17207 o|inlining procedure: k17204 o|inlining procedure: k17204 o|inlining procedure: k17242 o|inlining procedure: k17242 o|substituted constant variable: a17265 o|substituted constant variable: a17277 o|contracted procedure: k17333 o|inlining procedure: k17330 o|inlining procedure: k17330 o|inlining procedure: k17358 o|inlining procedure: k17358 o|contracted procedure: k17373 o|inlining procedure: k17370 o|inlining procedure: k17388 o|inlining procedure: k17388 o|inlining procedure: k17396 o|contracted procedure: k17414 o|inlining procedure: k17411 o|inlining procedure: k17411 o|inlining procedure: k17396 o|inlining procedure: k17450 o|inlining procedure: k17450 o|inlining procedure: k17370 o|substituted constant variable: a17495 o|inlining procedure: k17491 o|inlining procedure: k17491 o|substituted constant variable: a17500 o|inlining procedure: k17504 o|inlining procedure: k17504 o|inlining procedure: k17516 o|inlining procedure: k17516 o|inlining procedure: k17531 o|inlining procedure: k17531 o|contracted procedure: k17537 o|inlining procedure: k17546 o|substituted constant variable: a17569 o|inlining procedure: k17546 o|inlining procedure: k17580 o|inlining procedure: k17620 o|inlining procedure: k17635 o|inlining procedure: k17635 o|inlining procedure: k17620 o|inlining procedure: k17655 o|inlining procedure: k17655 o|inlining procedure: k17676 o|inlining procedure: k17676 o|substituted constant variable: a17689 o|inlining procedure: k17704 o|inlining procedure: k17704 o|inlining procedure: k17580 o|substituted constant variable: a17739 o|inlining procedure: k17744 o|inlining procedure: k17766 o|inlining procedure: k17766 o|inlining procedure: k17778 o|inlining procedure: k17778 o|inlining procedure: k17744 o|inlining procedure: k17815 o|inlining procedure: k17815 o|substituted constant variable: a17831 o|inlining procedure: k17836 o|inlining procedure: k17848 o|inlining procedure: k17848 o|substituted constant variable: a17858 o|inlining procedure: k17836 o|contracted procedure: k17892 o|inlining procedure: k17889 o|inlining procedure: k17929 o|inlining procedure: k17929 o|inlining procedure: k17959 o|inlining procedure: k17959 o|substituted constant variable: a17976 o|inlining procedure: k17889 o|contracted procedure: "(scrutinizer.scm:2040) upto3664" o|inlining procedure: k17302 o|inlining procedure: k17302 o|substituted constant variable: a17997 o|inlining procedure: k17992 o|inlining procedure: k18004 o|inlining procedure: k18004 o|substituted constant variable: a18025 o|inlining procedure: k17992 o|substituted constant variable: a18035 o|inlining procedure: k18036 o|inlining procedure: k18050 o|inlining procedure: k18050 o|inlining procedure: k18036 o|inlining procedure: k18093 o|inlining procedure: k18114 o|inlining procedure: k18114 o|inlining procedure: k18126 o|inlining procedure: k18126 o|substituted constant variable: a18157 o|inlining procedure: k18093 o|inlining procedure: k18168 o|inlining procedure: k18186 o|inlining procedure: k18198 o|inlining procedure: k18238 o|inlining procedure: k18259 o|inlining procedure: k18259 o|inlining procedure: k18238 o|inlining procedure: k18198 o|inlining procedure: k18186 o|inlining procedure: k18168 o|inlining procedure: k17540 o|inlining procedure: k17540 o|inlining procedure: k18369 o|inlining procedure: k18369 o|inlining procedure: k18401 o|inlining procedure: k18401 o|inlining procedure: k18416 o|inlining procedure: k18416 o|inlining procedure: k18354 o|inlining procedure: k18354 o|inlining procedure: k18475 o|inlining procedure: k18475 o|inlining procedure: k18542 o|inlining procedure: k18542 o|inlining procedure: k18519 o|inlining procedure: k18567 o|inlining procedure: k18567 o|inlining procedure: k18582 o|inlining procedure: k18609 o|inlining procedure: k18609 o|inlining procedure: k18630 o|inlining procedure: k18630 o|inlining procedure: k18582 o|substituted constant variable: a18683 o|substituted constant variable: a18685 o|inlining procedure: k18693 o|inlining procedure: k18693 o|inlining procedure: k18519 o|contracted procedure: "(scrutinizer.scm:2116) g40324033" o|inlining procedure: k18746 o|inlining procedure: k18746 o|contracted procedure: k18783 o|inlining procedure: k18780 o|inlining procedure: k18808 o|inlining procedure: k18808 o|inlining procedure: k18841 o|inlining procedure: k18841 o|inlining procedure: k18780 o|inlining procedure: k18973 o|inlining procedure: k18985 o|inlining procedure: k18994 o|inlining procedure: k19006 o|inlining procedure: k19018 o|contracted procedure: "(scrutinizer.scm:2227) report4251" o|substituted constant variable: a18908 o|substituted constant variable: a18909 o|inlining procedure: k18931 o|contracted procedure: "(scrutinizer.scm:2211) g42744283" o|inlining procedure: k18931 o|contracted procedure: "(scrutinizer.scm:2232) g43144315" o|substituted constant variable: a19064 o|inlining procedure: k19018 o|contracted procedure: "(scrutinizer.scm:2221) g43094310" o|inlining procedure: k19006 o|contracted procedure: "(scrutinizer.scm:2220) g43054306" o|inlining procedure: k18994 o|inlining procedure: k18985 o|inlining procedure: k18973 o|contracted procedure: "(scrutinizer.scm:2214) g43004301" o|inlining procedure: k19108 o|inlining procedure: k19108 o|inlining procedure: k19114 o|contracted procedure: "(scrutinizer.scm:2240) g43284329" o|inlining procedure: k19114 o|merged explicitly consed rest parameter: args4370 o|substituted constant variable: a19186 o|substituted constant variable: a19187 o|inlining procedure: k19209 o|contracted procedure: "(scrutinizer.scm:2276) g43884397" o|inlining procedure: k19209 o|inlining procedure: k19243 o|inlining procedure: k19243 o|contracted procedure: k19258 o|inlining procedure: k19255 o|inlining procedure: k19282 o|inlining procedure: k19282 o|inlining procedure: k19319 o|inlining procedure: k19331 o|inlining procedure: k19331 o|inlining procedure: k19319 o|inlining procedure: k19255 o|inlining procedure: k19267 o|inlining procedure: k19267 o|inlining procedure: k19437 o|inlining procedure: k19437 o|inlining procedure: k19440 o|inlining procedure: k19455 o|inlining procedure: k19467 o|inlining procedure: k19476 o|consed rest parameter at call site: "(scrutinizer.scm:2323) report4363" 3 o|contracted procedure: "(scrutinizer.scm:2327) g44674468" o|inlining procedure: k19476 o|consed rest parameter at call site: "(scrutinizer.scm:2334) report4363" 3 o|contracted procedure: "(scrutinizer.scm:2338) g44784479" o|inlining procedure: k19511 o|inlining procedure: k19511 o|contracted procedure: "(scrutinizer.scm:2332) proper-list-type-length4366" o|inlining procedure: k19394 o|inlining procedure: k19394 o|inlining procedure: k19467 o|contracted procedure: "(scrutinizer.scm:2318) g44594460" o|contracted procedure: "(scrutinizer.scm:2317) g44554456" o|inlining procedure: k19455 o|inlining procedure: k19440 o|substituted constant variable: a19569 o|contracted procedure: "(scrutinizer.scm:2313) g44504451" o|inlining procedure: k19692 o|inlining procedure: k19692 o|inlining procedure: k19710 o|inlining procedure: k19726 o|contracted procedure: "(scrutinizer.scm:2413) g47324733" o|inlining procedure: k19726 o|inlining procedure: k19710 o|inlining procedure: k19762 o|inlining procedure: k19762 o|contracted procedure: "(scrutinizer.scm:2429) report4655" o|substituted constant variable: a19616 o|substituted constant variable: a19617 o|inlining procedure: k19639 o|contracted procedure: "(scrutinizer.scm:2396) g46774686" o|inlining procedure: k19639 o|contracted procedure: "(scrutinizer.scm:2433) g47494750" o|contracted procedure: "(scrutinizer.scm:2434) g47524753" o|contracted procedure: "(scrutinizer.scm:2428) potentially-proper-list?4707" o|inlining procedure: k19857 o|inlining procedure: k19857 o|inlining procedure: k19885 o|inlining procedure: k19885 o|inlining procedure: k19894 o|inlining procedure: k19903 o|inlining procedure: k19915 o|inlining procedure: k19915 o|contracted procedure: "(scrutinizer.scm:2458) g47904791" o|inlining procedure: k19903 o|contracted procedure: "(scrutinizer.scm:2457) g47864787" o|inlining procedure: k19894 o|inlining procedure: k19959 o|inlining procedure: k19959 o|substituted constant variable: a19973 o|substituted constant variable: a19975 o|contracted procedure: "(scrutinizer.scm:2451) g47754776" o|inlining procedure: k19997 o|removed side-effect free assignment to unused variable: anyinst4805 o|inlining procedure: k19997 o|inlining procedure: k20073 o|inlining procedure: k20073 o|inlining procedure: k20091 o|inlining procedure: k20091 o|inlining procedure: k20139 o|inlining procedure: k20139 o|inlining procedure: k20183 o|inlining procedure: k20240 o|inlining procedure: k20240 o|inlining procedure: k20183 o|inlining procedure: k20277 o|inlining procedure: k20277 o|inlining procedure: k20317 o|inlining procedure: k20317 o|inlining procedure: k20320 o|inlining procedure: k20332 o|inlining procedure: k20332 o|inlining procedure: k20320 o|substituted constant variable: a20367 o|contracted procedure: "(scrutinizer.scm:2383) g46474648" o|inlining procedure: k20394 o|inlining procedure: k20394 o|inlining procedure: k20451 o|inlining procedure: k20451 o|inlining procedure: k20485 o|inlining procedure: k20485 o|inlining procedure: k20512 o|inlining procedure: k20512 o|inlining procedure: k20550 o|inlining procedure: k20550 o|inlining procedure: k20577 o|inlining procedure: k20577 o|inlining procedure: k20649 o|inlining procedure: k20649 o|inlining procedure: k20671 o|inlining procedure: k20671 o|inlining procedure: k20682 o|inlining procedure: k20694 o|inlining procedure: k20694 o|inlining procedure: k20682 o|contracted procedure: "(scrutinizer.scm:2251) g43464347" o|inlining procedure: k20738 o|inlining procedure: k20738 o|inlining procedure: k20741 o|inlining procedure: k20753 o|inlining procedure: k20765 o|inlining procedure: k20765 o|contracted procedure: "(scrutinizer.scm:2193) g42444245" o|inlining procedure: k20753 o|contracted procedure: "(scrutinizer.scm:2192) g42404241" o|inlining procedure: k20741 o|substituted constant variable: a20806 o|contracted procedure: "(scrutinizer.scm:2189) g42364237" o|simplifications: ((if . 11)) o|replaced variables: 2999 o|removed binding forms: 802 o|Removed `not' forms: 1 o|propagated global variable: out2832 ##sys#standard-output o|substituted constant variable: r617120809 o|substituted constant variable: r617120810 o|substituted constant variable: r621320813 o|substituted constant variable: r624120817 o|substituted constant variable: r1707920820 o|substituted constant variable: r627120823 o|substituted constant variable: r629620824 o|converted assignments to bindings: (lname165) o|substituted constant variable: r639420828 o|substituted constant variable: r640620830 o|substituted constant variable: r643020833 o|substituted constant variable: r643020834 o|propagated global variable: tmp250255 number-type o|substituted constant variable: r644620836 o|substituted constant variable: r644620837 o|substituted constant variable: r644920838 o|substituted constant variable: r660620848 o|substituted constant variable: r660620849 o|substituted constant variable: r663820850 o|substituted constant variable: r663320853 o|substituted constant variable: mark332 o|substituted constant variable: r668020855 o|substituted constant variable: r668920857 o|substituted constant variable: r673120861 o|substituted constant variable: mark368 o|substituted constant variable: r675520865 o|substituted constant variable: r679420868 o|substituted constant variable: r682220871 o|substituted constant variable: r682220872 o|substituted constant variable: r684220873 o|substituted constant variable: r684220874 o|substituted constant variable: r687120875 o|substituted constant variable: r688920877 o|removed side-effect free assignment to unused variable: add-loc235 o|removed call to pure procedure with unused result: "(scrutinizer.scm:436) void" o|substituted constant variable: r745420899 o|removed call to pure procedure with unused result: "(scrutinizer.scm:426) void" o|substituted constant variable: r768020910 o|substituted constant variable: r722820914 o|substituted constant variable: r723920917 o|substituted constant variable: r723920917 o|substituted constant variable: mark564 o|substituted constant variable: mark559 o|substituted constant variable: mark679 o|substituted constant variable: r1512720922 o|removed call to pure procedure with unused result: "(scrutinizer.scm:154) void" o|converted assignments to bindings: (pname579) o|removed call to pure procedure with unused result: "(scrutinizer.scm:451) void" o|substituted constant variable: r805420933 o|substituted constant variable: r807920936 o|substituted constant variable: r809320938 o|substituted constant variable: r806320939 o|removed call to pure procedure with unused result: "(scrutinizer.scm:870) void" o|substituted constant variable: r820020942 o|removed call to pure procedure with unused result: "(scrutinizer.scm:546) void" o|substituted constant variable: r843220953 o|substituted constant variable: r833220955 o|removed call to pure procedure with unused result: "(scrutinizer.scm:530) void" o|substituted constant variable: r853420961 o|removed call to pure procedure with unused result: "(scrutinizer.scm:614) void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:581) void" o|substituted constant variable: r897120974 o|substituted constant variable: r897120974 o|substituted constant variable: r897120976 o|substituted constant variable: r897120976 o|substituted constant variable: mark816 o|substituted constant variable: mark811 o|substituted constant variable: r803720983 o|substituted constant variable: r897720984 o|inlining procedure: k9014 o|substituted constant variable: r686220985 o|removed call to pure procedure with unused result: "(scrutinizer.scm:257) void" o|substituted constant variable: r686220986 o|removed call to pure procedure with unused result: "(scrutinizer.scm:687) void" o|propagated global variable: r910820989 ##compiler#strict-variable-types o|contracted procedure: k9107 o|substituted constant variable: mark1242 o|substituted constant variable: mark1228 o|substituted constant variable: mark1203 o|substituted constant variable: r913920994 o|substituted constant variable: r926420995 o|substituted constant variable: r929620997 o|substituted constant variable: r932221000 o|substituted constant variable: mark1163 o|substituted constant variable: c1313 o|substituted constant variable: r944721002 o|substituted constant variable: r944721002 o|substituted constant variable: mark1421 o|substituted constant variable: mark1417 o|removed call to pure procedure with unused result: "(scrutinizer.scm:779) void" o|inlining procedure: k9688 o|inlining procedure: k9688 o|inlining procedure: k9688 o|removed call to pure procedure with unused result: "(scrutinizer.scm:760) void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:784) void" o|substituted constant variable: r977121028 o|removed call to pure procedure with unused result: "(scrutinizer.scm:805) void" o|substituted constant variable: mark1549 o|substituted constant variable: r983121034 o|converted assignments to bindings: (smash1408) o|substituted constant variable: mark1396 o|substituted constant variable: mark1390 o|inlining procedure: k10119 o|removed call to pure procedure with unused result: "(scrutinizer.scm:154) void" o|propagated global variable: out17131717 ##sys#standard-output o|removed call to pure procedure with unused result: "(scrutinizer.scm:907) void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:911) void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:916) void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:920) void" o|substituted constant variable: a1096221088 o|substituted constant variable: a1096221095 o|substituted constant variable: r1087621101 o|removed call to pure procedure with unused result: "(scrutinizer.scm:932) void" o|substituted constant variable: r1093621105 o|substituted constant variable: r1093621105 o|substituted constant variable: r1092621107 o|removed side-effect free assignment to unused variable: optargs?1855 o|substituted constant variable: r1115321127 o|removed call to pure procedure with unused result: "(scrutinizer.scm:1006) void" o|substituted constant variable: r1115321128 o|removed call to pure procedure with unused result: "(scrutinizer.scm:1019) void" o|substituted constant variable: r1129021137 o|substituted constant variable: r1151221158 o|substituted constant variable: r1153521161 o|substituted constant variable: r1155221163 o|substituted constant variable: r1166621172 o|substituted constant variable: r1174521176 o|substituted constant variable: r1179221179 o|substituted constant variable: r1179221179 o|substituted constant variable: r1177221183 o|substituted constant variable: r1184121186 o|substituted constant variable: r1188021190 o|substituted constant variable: r1186821191 o|substituted constant variable: r1182821192 o|substituted constant variable: r1193621195 o|substituted constant variable: r1197221198 o|substituted constant variable: r1201221201 o|substituted constant variable: r1204821204 o|substituted constant variable: r1212721206 o|removed call to pure procedure with unused result: "(scrutinizer.scm:932) void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:932) void" o|substituted constant variable: r1226121212 o|substituted constant variable: r1237321217 o|substituted constant variable: mark2225 o|substituted constant variable: r1248521221 o|removed call to pure procedure with unused result: "(scrutinizer.scm:1227) void" o|substituted constant variable: r1256121225 o|substituted constant variable: r1257921227 o|substituted constant variable: r1260821229 o|substituted constant variable: r1260821229 o|removed call to pure procedure with unused result: "(scrutinizer.scm:1269) void" o|substituted constant variable: r1272621239 o|substituted constant variable: r1279321244 o|substituted constant variable: r1285621248 o|substituted constant variable: r1301121257 o|substituted constant variable: r1301121257 o|substituted constant variable: r1319421274 o|substituted constant variable: r1324421283 o|substituted constant variable: r1330921289 o|substituted constant variable: r1341321293 o|substituted constant variable: r1363421311 o|substituted constant variable: r1376021324 o|substituted constant variable: r1380821328 o|substituted constant variable: r1394821340 o|substituted constant variable: r1398121342 o|substituted constant variable: r1417621352 o|substituted constant variable: r1419121354 o|substituted constant variable: r1422121357 o|substituted constant variable: r1431321366 o|substituted constant variable: r1436421372 o|substituted constant variable: r1413421377 o|substituted constant variable: r1386821378 o|substituted constant variable: r1461021380 o|substituted constant variable: r1467221388 o|substituted constant variable: r1473021392 o|substituted constant variable: r1471221393 o|substituted constant variable: r1469221394 o|substituted constant variable: r1474321398 o|substituted constant variable: r1479921402 o|substituted constant variable: r1488321404 o|inlining procedure: k14889 o|substituted constant variable: r1490221406 o|substituted constant variable: r1524321421 o|substituted constant variable: r1521021422 o|substituted constant variable: r1526321423 o|substituted constant variable: r1529621431 o|substituted constant variable: r1532121433 o|substituted constant variable: r1528321434 o|substituted constant variable: r1601621474 o|substituted constant variable: r1601621474 o|substituted constant variable: r1607321480 o|contracted procedure: "(scrutinizer.scm:1753) g33033310" o|substituted constant variable: mark3454 o|substituted constant variable: mark3440 o|substituted constant variable: mark3270 o|substituted constant variable: mark3255 o|substituted constant variable: mark3346 o|substituted constant variable: mark3361 o|substituted constant variable: mark3318 o|substituted constant variable: r1624321512 o|substituted constant variable: r1685721515 o|substituted constant variable: r1685721515 o|substituted constant variable: r1685721517 o|substituted constant variable: r1685721517 o|substituted constant variable: mark3518 o|substituted constant variable: mark3514 o|substituted constant variable: mark3510 o|substituted constant variable: mark3506 o|substituted constant variable: mark3502 o|substituted constant variable: mark3498 o|substituted constant variable: mark3485 o|substituted constant variable: r1724321534 o|substituted constant variable: r1733121536 o|substituted constant variable: r1735921537 o|substituted constant variable: r1738921541 o|substituted constant variable: r1741221544 o|substituted constant variable: r1745121547 o|substituted constant variable: r1737121548 o|substituted constant variable: r1750521551 o|substituted constant variable: r1751721553 o|substituted constant variable: r1762121567 o|substituted constant variable: r1767721571 o|substituted constant variable: r1758121574 o|substituted constant variable: r1776721577 o|substituted constant variable: r1781621582 o|substituted constant variable: r1784921585 o|substituted constant variable: r1793021589 o|substituted constant variable: r1796021591 o|substituted constant variable: r1730321593 o|substituted constant variable: r1800521597 o|substituted constant variable: r1803721602 o|substituted constant variable: r1811521605 o|substituted constant variable: r1823921615 o|substituted constant variable: r1819921616 o|substituted constant variable: r1818721617 o|substituted constant variable: r1816921618 o|substituted constant variable: r1754121622 o|inlining procedure: k18369 o|substituted constant variable: r1837021626 o|substituted constant variable: r1837021626 o|inlining procedure: k18567 o|substituted constant variable: mark4039 o|converted assignments to bindings: (fail4030) o|substituted constant variable: msg4255 o|substituted constant variable: r1901921667 o|substituted constant variable: r1900721668 o|substituted constant variable: r1899521669 o|substituted constant variable: r1898621670 o|substituted constant variable: r1897421671 o|substituted constant variable: r1911521675 o|substituted constant variable: r1924421678 o|substituted constant variable: r1928321682 o|substituted constant variable: r1932021686 o|substituted constant variable: r1926821689 o|substituted constant variable: r1947721695 o|substituted constant variable: r1951221698 o|substituted constant variable: r1939521699 o|substituted constant variable: r1946821701 o|substituted constant variable: r1945621702 o|substituted constant variable: r1944121703 o|substituted constant variable: r1969321704 o|substituted constant variable: r1971121709 o|substituted constant variable: r1976321711 o|inlining procedure: k19787 o|substituted constant variable: msg4658 o|converted assignments to bindings: (derive-result-type4708) o|substituted constant variable: r1991621721 o|substituted constant variable: r1990421722 o|substituted constant variable: r1989521723 o|substituted constant variable: r1996021725 o|removed call to pure procedure with unused result: "(scrutinizer.scm:2491) void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:2473) void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:2473) void" o|substituted constant variable: r2027821738 o|removed call to pure procedure with unused result: "(scrutinizer.scm:2473) void" o|converted assignments to bindings: (complex-object-constructor-result-type-special-case4765) o|converted assignments to bindings: (append-special-case4656) o|substituted constant variable: r2033321744 o|substituted constant variable: r2032121745 o|substituted constant variable: r2048621750 o|substituted constant variable: r2055121754 o|substituted constant variable: r2065021759 o|substituted constant variable: r2069521764 o|substituted constant variable: r2068321765 o|substituted constant variable: r2076621771 o|substituted constant variable: r2075421772 o|substituted constant variable: r2074221773 o|simplifications: ((let . 7)) o|replaced variables: 132 o|removed binding forms: 2812 o|contracted procedure: k7314 o|contracted procedure: k7377 o|contracted procedure: k7471 o|contracted procedure: k7927 o|contracted procedure: k8149 o|contracted procedure: k8163 o|contracted procedure: k8356 o|contracted procedure: k8483 o|contracted procedure: k8816 o|substituted constant variable: r89772098421847 o|contracted procedure: k6864 o|contracted procedure: k9070 o|inlining procedure: k9178 o|inlining procedure: k9161 o|inlining procedure: k9289 o|inlining procedure: k9289 o|contracted procedure: k9643 o|contracted procedure: k9661 o|contracted procedure: k9734 o|contracted procedure: k9812 o|contracted procedure: k10626 o|contracted procedure: k10639 o|contracted procedure: k10707 o|contracted procedure: k10720 o|contracted procedure: k10776 o|contracted procedure: k11056 o|contracted procedure: k11161 o|contracted procedure: k11242 o|contracted procedure: k12202 o|inlining procedure: k12392 o|contracted procedure: k12496 o|inlining procedure: k12554 o|inlining procedure: k12554 o|contracted procedure: k12596 o|removed call to pure procedure with unused result: "(scrutinizer.scm:1324) void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:1324) void" o|substituted constant variable: r148832140421935 o|inlining procedure: k16327 o|inlining procedure: k16298 o|inlining procedure: k16224 o|inlining procedure: k16201 o|inlining procedure: k16522 o|inlining procedure: k16550 o|inlining procedure: k17664 o|inlining procedure: k17664 o|inlining procedure: k18226 o|substituted constant variable: r1837022010 o|inlining procedure: k18498 o|inlining procedure: k19105 o|inlining procedure: k19105 o|inlining procedure: k19105 o|inlining procedure: k19434 o|inlining procedure: k19434 o|inlining procedure: k19434 o|inlining procedure: k19434 o|inlining procedure: k19434 o|inlining procedure: k19434 o|inlining procedure: k19434 o|inlining procedure: k19434 o|inlining procedure: k19434 o|inlining procedure: k19434 o|substituted constant variable: r197632171122038 o|inlining procedure: k19882 o|inlining procedure: k19882 o|inlining procedure: k19882 o|inlining procedure: k19882 o|inlining procedure: k19882 o|inlining procedure: k19882 o|inlining procedure: k19882 o|contracted procedure: k19988 o|contracted procedure: k20019 o|contracted procedure: k20085 o|contracted procedure: k20170 o|inlining procedure: k20314 o|inlining procedure: k20314 o|inlining procedure: k20314 o|inlining procedure: k20314 o|inlining procedure: k20314 o|inlining procedure: k20668 o|inlining procedure: k20668 o|inlining procedure: k20668 o|inlining procedure: k20668 o|inlining procedure: k20668 o|inlining procedure: k20668 o|inlining procedure: k20735 o|inlining procedure: k20735 o|inlining procedure: k20735 o|inlining procedure: k20735 o|inlining procedure: k20735 o|inlining procedure: k20735 o|inlining procedure: k20735 o|replaced variables: 129 o|removed binding forms: 382 o|Removed `not' forms: 1 o|inlining procedure: k7374 o|substituted constant variable: r917922116 o|substituted constant variable: r916222117 o|inlining procedure: "(scrutinizer.scm:720) walked-result" o|substituted constant variable: r1239322148 o|substituted constant variable: r1255522151 o|substituted constant variable: r1255522152 o|contracted procedure: k1317221272 o|contracted procedure: k1317221280 o|substituted constant variable: r1632822203 o|substituted constant variable: r1629922204 o|substituted constant variable: r1622522205 o|inlining procedure: k16492 o|substituted constant variable: r1620222206 o|inlining procedure: k16506 o|substituted constant variable: r1652322207 o|substituted constant variable: r1655122208 o|substituted constant variable: r1766522221 o|substituted constant variable: r1766522222 o|contracted procedure: k18226 o|substituted constant variable: r1822722233 o|substituted constant variable: r1849922242 o|inlining procedure: "(scrutinizer.scm:2216) walked-result" o|substituted constant variable: r1910622249 o|substituted constant variable: r1910622249 o|substituted constant variable: r1910622249 o|substituted constant variable: r1910622252 o|substituted constant variable: r1910622252 o|substituted constant variable: r1910622252 o|inlining procedure: "(scrutinizer.scm:2239) walked-result" o|substituted constant variable: r1910622255 o|substituted constant variable: r1910622255 o|substituted constant variable: r1910622255 o|substituted constant variable: r1943522262 o|substituted constant variable: r1943522262 o|substituted constant variable: r1943522262 o|substituted constant variable: r1943522268 o|substituted constant variable: r1943522268 o|substituted constant variable: r1943522268 o|substituted constant variable: r1943522271 o|substituted constant variable: r1943522271 o|substituted constant variable: r1943522271 o|substituted constant variable: r1943522274 o|substituted constant variable: r1943522274 o|substituted constant variable: r1943522274 o|substituted constant variable: r1943522277 o|substituted constant variable: r1943522277 o|substituted constant variable: r1943522277 o|substituted constant variable: r1943522280 o|substituted constant variable: r1943522280 o|substituted constant variable: r1943522280 o|substituted constant variable: r1943522283 o|substituted constant variable: r1943522283 o|substituted constant variable: r1943522283 o|inlining procedure: "(scrutinizer.scm:2315) walked-result" o|substituted constant variable: r1943522286 o|substituted constant variable: r1943522286 o|substituted constant variable: r1943522286 o|substituted constant variable: r1943522289 o|substituted constant variable: r1943522289 o|substituted constant variable: r1943522289 o|inlining procedure: "(scrutinizer.scm:2406) walked-result" o|substituted constant variable: r1988322298 o|substituted constant variable: r1988322298 o|substituted constant variable: r1988322298 o|substituted constant variable: r1988322301 o|substituted constant variable: r1988322301 o|substituted constant variable: r1988322301 o|substituted constant variable: r1988322304 o|substituted constant variable: r1988322304 o|substituted constant variable: r1988322304 o|substituted constant variable: r1988322307 o|substituted constant variable: r1988322307 o|substituted constant variable: r1988322307 o|substituted constant variable: r1988322310 o|substituted constant variable: r1988322310 o|substituted constant variable: r1988322310 o|substituted constant variable: r1988322313 o|substituted constant variable: r1988322313 o|substituted constant variable: r1988322313 o|inlining procedure: "(scrutinizer.scm:2454) walked-result" o|substituted constant variable: r1988322316 o|substituted constant variable: r1988322316 o|substituted constant variable: r1988322316 o|substituted constant variable: r2031522329 o|substituted constant variable: r2031522329 o|substituted constant variable: r2031522329 o|substituted constant variable: r2031522332 o|substituted constant variable: r2031522332 o|substituted constant variable: r2031522332 o|substituted constant variable: r2031522335 o|substituted constant variable: r2031522335 o|substituted constant variable: r2031522335 o|inlining procedure: "(scrutinizer.scm:2385) walked-result" o|substituted constant variable: r2031522338 o|substituted constant variable: r2031522338 o|substituted constant variable: r2031522338 o|substituted constant variable: r2031522341 o|substituted constant variable: r2031522341 o|substituted constant variable: r2031522341 o|substituted constant variable: r2066922355 o|substituted constant variable: r2066922355 o|substituted constant variable: r2066922355 o|inlining procedure: "(scrutinizer.scm:2254) walked-result" o|substituted constant variable: r2066922358 o|substituted constant variable: r2066922358 o|substituted constant variable: r2066922358 o|substituted constant variable: r2066922361 o|substituted constant variable: r2066922361 o|substituted constant variable: r2066922361 o|substituted constant variable: r2066922364 o|substituted constant variable: r2066922364 o|substituted constant variable: r2066922364 o|substituted constant variable: r2066922367 o|substituted constant variable: r2066922367 o|substituted constant variable: r2066922367 o|substituted constant variable: r2073622373 o|substituted constant variable: r2073622373 o|substituted constant variable: r2073622373 o|substituted constant variable: r2073622376 o|substituted constant variable: r2073622376 o|substituted constant variable: r2073622376 o|substituted constant variable: r2073622379 o|substituted constant variable: r2073622379 o|substituted constant variable: r2073622379 o|substituted constant variable: r2073622382 o|substituted constant variable: r2073622382 o|substituted constant variable: r2073622382 o|substituted constant variable: r2073622385 o|substituted constant variable: r2073622385 o|substituted constant variable: r2073622385 o|substituted constant variable: r2073622388 o|substituted constant variable: r2073622388 o|substituted constant variable: r2073622388 o|replaced variables: 13 o|removed binding forms: 161 o|removed conditional forms: 40 o|inlining procedure: k16852 o|inlining procedure: k16852 o|replaced variables: 10 o|removed binding forms: 74 o|replaced variables: 2 o|removed binding forms: 13 o|removed binding forms: 2 o|simplifications: ((if . 99) (##core#call . 1781)) o| call simplifications: o| fourth 2 o| fx>= 2 o| identity o| ##sys#size 2 o| integer? 2 o| negative? o| - o| list-tail 2 o| vector-ref 5 o| <= 2 o| caddr 2 o| equal? 6 o| positive? 4 o| fx> 2 o| list-ref 4 o| zero? 3 o| cdar 3 o| sub1 9 o| alist-cons 7 o| ##sys#call-with-values 10 o| cdddr 8 o| second 75 o| fx= 3 o| cddr 12 o| assoc 2 o| set-cdr! 2 o| set-car! 8 o| values 9 o| ##sys#make-structure 2 o| atom? 3 o| >= 2 o| fx< 3 o| add1 13 o| ##sys#check-list 43 o| apply o| length 26 o| not 35 o| assq 21 o| caar o| memq 5 o| list 40 o| string? 7 o| symbol? 25 o| fixnum? 4 o| flonum? o| number? o| boolean? o| list? 13 o| eof-object? o| vector? 4 o| ##sys#immediate? o| ##sys#generic-structure? o| char? o| ##sys#list 65 o| cons 134 o| ##sys#setslot 48 o| ##sys#cons 36 o| null? 72 o| car 95 o| cdr 63 o| cadr 28 o| pair? 161 o| eq? 318 o| third 52 o| ##sys#slot 210 o| first 46 o| = 2 o| ##sys#fudge o| ##sys#apply 6 o|contracted procedure: k6132 o|contracted procedure: k6173 o|contracted procedure: k6188 o|contracted procedure: k6197 o|contracted procedure: k6204 o|contracted procedure: k6215 o|contracted procedure: k6222 o|contracted procedure: k17055 o|contracted procedure: k17061 o|contracted procedure: k17069 o|contracted procedure: k17095 o|contracted procedure: k17075 o|contracted procedure: k17091 o|contracted procedure: k17081 o|contracted procedure: k17101 o|contracted procedure: k17113 o|contracted procedure: k6298 o|contracted procedure: k6384 o|contracted procedure: k6304 o|contracted procedure: k6380 o|contracted procedure: k6340 o|contracted procedure: k6396 o|contracted procedure: k6402 o|contracted procedure: k6408 o|contracted procedure: k6414 o|contracted procedure: k6420 o|contracted procedure: k6426 o|contracted procedure: k6432 o|contracted procedure: k6442 o|contracted procedure: k6451 o|contracted procedure: k6457 o|contracted procedure: k6464 o|contracted procedure: k6476 o|contracted procedure: k6479 o|contracted procedure: k6482 o|contracted procedure: k6490 o|contracted procedure: k6498 o|contracted procedure: k6507 o|contracted procedure: k6514 o|contracted procedure: k6532 o|contracted procedure: k6538 o|contracted procedure: k6549 o|contracted procedure: k6545 o|contracted procedure: k6564 o|contracted procedure: k6567 o|contracted procedure: k6570 o|contracted procedure: k6578 o|contracted procedure: k6586 o|contracted procedure: k6618 o|contracted procedure: k6595 o|contracted procedure: k6602 o|contracted procedure: k6608 o|contracted procedure: k6640 o|contracted procedure: k6656 o|contracted procedure: k6662 o|contracted procedure: k6701 o|contracted procedure: k6691 o|contracted procedure: k6722 o|contracted procedure: k6742 o|contracted procedure: k6733 o|contracted procedure: k6778 o|contracted procedure: k6785 o|contracted procedure: k6796 o|contracted procedure: k6803 o|contracted procedure: k6838 o|contracted procedure: k6873 o|contracted procedure: k6876 o|contracted procedure: k6882 o|contracted procedure: k6891 o|contracted procedure: k6949 o|contracted procedure: k6966 o|contracted procedure: k6969 o|contracted procedure: k6972 o|contracted procedure: k6980 o|contracted procedure: k6988 o|contracted procedure: k7025 o|contracted procedure: k7042 o|contracted procedure: k7045 o|contracted procedure: k7048 o|contracted procedure: k7056 o|contracted procedure: k7064 o|contracted procedure: k7093 o|contracted procedure: k7102 o|contracted procedure: k7108 o|contracted procedure: k7115 o|contracted procedure: k7118 o|contracted procedure: k7126 o|contracted procedure: k7138 o|contracted procedure: k7141 o|contracted procedure: k7144 o|contracted procedure: k7152 o|contracted procedure: k7160 o|contracted procedure: k7166 o|contracted procedure: k16973 o|contracted procedure: k16982 o|contracted procedure: k16986 o|contracted procedure: k16994 o|contracted procedure: k16997 o|contracted procedure: k17009 o|contracted procedure: k17012 o|contracted procedure: k17015 o|contracted procedure: k17023 o|contracted procedure: k17031 o|contracted procedure: k7282 o|contracted procedure: k7273 o|contracted procedure: k7289 o|contracted procedure: k7292 o|contracted procedure: k7298 o|contracted procedure: k7305 o|contracted procedure: k7308 o|contracted procedure: k7383 o|contracted procedure: k7386 o|contracted procedure: k7394 o|contracted procedure: k7406 o|contracted procedure: k7409 o|contracted procedure: k7412 o|contracted procedure: k7420 o|contracted procedure: k7428 o|contracted procedure: k7450 o|contracted procedure: k7437 o|contracted procedure: k7441 o|contracted procedure: k7474 o|contracted procedure: k7490 o|contracted procedure: k7486 o|contracted procedure: k7501 o|contracted procedure: k7497 o|contracted procedure: k7523 o|contracted procedure: k7527 o|contracted procedure: k7543 o|contracted procedure: k7535 o|contracted procedure: k7539 o|contracted procedure: k7531 o|contracted procedure: k7555 o|contracted procedure: k7559 o|contracted procedure: k7567 o|contracted procedure: k7594 o|contracted procedure: k7590 o|contracted procedure: k7598 o|contracted procedure: k7614 o|contracted procedure: k7606 o|contracted procedure: k7610 o|contracted procedure: k7602 o|contracted procedure: k7626 o|contracted procedure: k7630 o|contracted procedure: k7638 o|contracted procedure: k7651 o|contracted procedure: k7645 o|contracted procedure: k7655 o|contracted procedure: k7659 o|contracted procedure: k7682 o|contracted procedure: k7686 o|contracted procedure: k7699 o|contracted procedure: k7717 o|contracted procedure: k7731 o|contracted procedure: k7725 o|contracted procedure: k7745 o|contracted procedure: k7230 o|contracted procedure: k7234 o|contracted procedure: k7758 o|contracted procedure: k15086 o|contracted procedure: k15098 o|contracted procedure: k15129 o|contracted procedure: k15144 o|contracted procedure: k15171 o|contracted procedure: k15153 o|contracted procedure: k15184 o|contracted procedure: k15187 o|contracted procedure: k15195 o|contracted procedure: k7776 o|contracted procedure: k7785 o|contracted procedure: k7788 o|contracted procedure: k7802 o|contracted procedure: k7828 o|contracted procedure: k7832 o|contracted procedure: k7873 o|contracted procedure: k7876 o|contracted procedure: k7879 o|contracted procedure: k7887 o|contracted procedure: k7895 o|contracted procedure: k7905 o|contracted procedure: k7938 o|contracted procedure: k7918 o|contracted procedure: k7921 o|contracted procedure: k7934 o|contracted procedure: k8065 o|contracted procedure: k8072 o|contracted procedure: k8085 o|contracted procedure: k8089 o|contracted procedure: k8095 o|contracted procedure: k8104 o|contracted procedure: k8130 o|contracted procedure: k8138 o|contracted procedure: k8146 o|contracted procedure: k8153 o|contracted procedure: k8160 o|contracted procedure: k8166 o|contracted procedure: k8173 o|contracted procedure: k8179 o|contracted procedure: k8190 o|contracted procedure: k8196 o|contracted procedure: k8202 o|contracted procedure: k8208 o|contracted procedure: k8215 o|contracted procedure: k8221 o|contracted procedure: k8228 o|contracted procedure: k8234 o|contracted procedure: k8237 o|contracted procedure: k8240 o|contracted procedure: k8247 o|contracted procedure: k8250 o|contracted procedure: k8256 o|contracted procedure: k8260 o|contracted procedure: k8278 o|contracted procedure: k8274 o|contracted procedure: k8270 o|contracted procedure: k8288 o|contracted procedure: k8292 o|contracted procedure: k8310 o|contracted procedure: k8306 o|contracted procedure: k8302 o|contracted procedure: k8325 o|contracted procedure: k8359 o|contracted procedure: k8371 o|contracted procedure: k8374 o|contracted procedure: k8422 o|contracted procedure: k8386 o|contracted procedure: k8389 o|contracted procedure: k8392 o|contracted procedure: k8400 o|contracted procedure: k8404 o|contracted procedure: k8412 o|contracted procedure: k8416 o|contracted procedure: k8368 o|contracted procedure: k8445 o|contracted procedure: k8449 o|contracted procedure: k8441 o|contracted procedure: k8463 o|contracted procedure: k8459 o|contracted procedure: k8466 o|contracted procedure: k8469 o|contracted procedure: k8472 o|contracted procedure: k8499 o|contracted procedure: k8480 o|contracted procedure: k8493 o|contracted procedure: k8502 o|contracted procedure: k8514 o|contracted procedure: k8524 o|contracted procedure: k8528 o|contracted procedure: k8549 o|contracted procedure: k8555 o|contracted procedure: k8581 o|contracted procedure: k8593 o|contracted procedure: k8600 o|contracted procedure: k8607 o|contracted procedure: k8610 o|contracted procedure: k8627 o|contracted procedure: k8654 o|contracted procedure: k8635 o|contracted procedure: k8645 o|contracted procedure: k8673 o|contracted procedure: k8657 o|contracted procedure: k8706 o|contracted procedure: k8709 o|contracted procedure: k8716 o|contracted procedure: k8722 o|contracted procedure: k8734 o|contracted procedure: k8766 o|contracted procedure: k8779 o|contracted procedure: k8802 o|contracted procedure: k8806 o|contracted procedure: k8810 o|contracted procedure: k8821 o|contracted procedure: k8813 o|contracted procedure: k8831 o|contracted procedure: k8839 o|contracted procedure: k8853 o|contracted procedure: k8863 o|contracted procedure: k8867 o|contracted procedure: k8871 o|contracted procedure: k8875 o|contracted procedure: k8879 o|contracted procedure: k8898 o|contracted procedure: k8909 o|contracted procedure: k8912 o|contracted procedure: k8960 o|contracted procedure: k8924 o|contracted procedure: k8950 o|contracted procedure: k8954 o|contracted procedure: k8946 o|contracted procedure: k8927 o|contracted procedure: k8930 o|contracted procedure: k8938 o|contracted procedure: k8942 o|contracted procedure: k7967 o|contracted procedure: k7978 o|contracted procedure: k7990 o|contracted procedure: k7993 o|contracted procedure: k7996 o|contracted procedure: k8004 o|contracted procedure: k8012 o|contracted procedure: k8979 o|contracted procedure: k8982 o|contracted procedure: k8985 o|contracted procedure: k9002 o|contracted procedure: k9021 o|contracted procedure: k9014 o|contracted procedure: k9126 o|contracted procedure: k9117 o|contracted procedure: k9029 o|contracted procedure: k9035 o|contracted procedure: k9047 o|contracted procedure: k9058 o|contracted procedure: k9054 o|contracted procedure: k9064 o|contracted procedure: k9073 o|contracted procedure: k9082 o|contracted procedure: k9092 o|contracted procedure: k9219 o|contracted procedure: k9147 o|contracted procedure: k9153 o|contracted procedure: k9184 o|contracted procedure: k9178 o|contracted procedure: k9167 o|contracted procedure: k9161 o|contracted procedure: k9226 o|contracted procedure: k9229 o|contracted procedure: k9239 o|contracted procedure: k9283 o|contracted procedure: k9315 o|contracted procedure: k9324 o|contracted procedure: k9367 o|contracted procedure: k9373 o|contracted procedure: k9376 o|contracted procedure: k9382 o|contracted procedure: k9388 o|contracted procedure: k9391 o|contracted procedure: k9405 o|contracted procedure: k9409 o|contracted procedure: k9449 o|contracted procedure: k9518 o|contracted procedure: k9563 o|contracted procedure: k9566 o|contracted procedure: k9574 o|contracted procedure: k9586 o|contracted procedure: k9589 o|contracted procedure: k9592 o|contracted procedure: k9600 o|contracted procedure: k9608 o|contracted procedure: k9865 o|contracted procedure: k9619 o|contracted procedure: k9856 o|contracted procedure: k9622 o|contracted procedure: k9625 o|contracted procedure: k9847 o|contracted procedure: k9631 o|contracted procedure: k9672 o|contracted procedure: k9680 o|contracted procedure: k9676 o|contracted procedure: k9684 o|contracted procedure: k9713 o|contracted procedure: k9719 o|contracted procedure: k9752 o|contracted procedure: k9756 o|contracted procedure: k9795 o|contracted procedure: k9801 o|contracted procedure: k9868 o|contracted procedure: k9871 o|contracted procedure: k9883 o|contracted procedure: k9886 o|contracted procedure: k9894 o|contracted procedure: k9906 o|contracted procedure: k9909 o|contracted procedure: k9912 o|contracted procedure: k9920 o|contracted procedure: k9928 o|contracted procedure: k9965 o|contracted procedure: k9940 o|contracted procedure: k9950 o|contracted procedure: k9954 o|contracted procedure: k9958 o|contracted procedure: k9962 o|contracted procedure: k9982 o|contracted procedure: k10012 o|contracted procedure: k10008 o|contracted procedure: k10024 o|contracted procedure: k10027 o|contracted procedure: k10030 o|contracted procedure: k10038 o|contracted procedure: k10046 o|contracted procedure: k10053 o|contracted procedure: k618822452 o|contracted procedure: k10098 o|contracted procedure: k10062 o|contracted procedure: k10065 o|contracted procedure: k10068 o|contracted procedure: k10076 o|contracted procedure: k10080 o|contracted procedure: k10088 o|contracted procedure: k10092 o|contracted procedure: k10107 o|contracted procedure: k10110 o|contracted procedure: k10116 o|contracted procedure: k10128 o|contracted procedure: k10143 o|contracted procedure: k10150 o|contracted procedure: k10153 o|contracted procedure: k10164 o|contracted procedure: k10176 o|contracted procedure: k10167 o|contracted procedure: k10181 o|contracted procedure: k10187 o|contracted procedure: k10200 o|contracted procedure: k10211 o|contracted procedure: k10226 o|contracted procedure: k10234 o|contracted procedure: k10254 o|contracted procedure: k10257 o|contracted procedure: k10269 o|contracted procedure: k10272 o|contracted procedure: k10275 o|contracted procedure: k10283 o|contracted procedure: k10291 o|contracted procedure: k10310 o|contracted procedure: k10322 o|contracted procedure: k10326 o|contracted procedure: k10330 o|contracted procedure: k10344 o|contracted procedure: k10348 o|contracted procedure: k10354 o|contracted procedure: k10357 o|contracted procedure: k10368 o|contracted procedure: k10380 o|contracted procedure: k10390 o|contracted procedure: k10394 o|contracted procedure: k10468 o|contracted procedure: k10474 o|contracted procedure: k10480 o|contracted procedure: k10486 o|contracted procedure: k10524 o|contracted procedure: k10536 o|contracted procedure: k10546 o|contracted procedure: k10550 o|contracted procedure: k10521 o|propagated global variable: g17091711 specialization-statistics o|contracted procedure: k10571 o|contracted procedure: k10554 o|contracted procedure: k10558 o|contracted procedure: k10586 o|contracted procedure: k10598 o|contracted procedure: k10616 o|contracted procedure: k10623 o|contracted procedure: k10636 o|contracted procedure: k10651 o|contracted procedure: k10658 o|contracted procedure: k10647 o|contracted procedure: k10670 o|contracted procedure: k10673 o|contracted procedure: k10676 o|contracted procedure: k10684 o|contracted procedure: k10692 o|contracted procedure: k10701 o|contracted procedure: k10704 o|contracted procedure: k10717 o|contracted procedure: k10732 o|contracted procedure: k10739 o|contracted procedure: k12205 o|contracted procedure: k10770 o|contracted procedure: k10788 o|contracted procedure: k10794 o|contracted procedure: k10804 o|contracted procedure: k10810 o|contracted procedure: k10820 o|contracted procedure: k10901 o|contracted procedure: k10826 o|contracted procedure: k10897 o|contracted procedure: k10837 o|contracted procedure: k10848 o|contracted procedure: k10863 o|contracted procedure: k10938 o|contracted procedure: k10949 o|contracted procedure: k10966 o|contracted procedure: k10975 o|contracted procedure: k10984 o|contracted procedure: k10993 o|contracted procedure: k11018 o|contracted procedure: k11022 o|contracted procedure: k11027 o|contracted procedure: k11059 o|contracted procedure: k12193 o|contracted procedure: k11065 o|contracted procedure: k11076 o|contracted procedure: k11099 o|contracted procedure: k11085 o|contracted procedure: k11184 o|contracted procedure: k11105 o|contracted procedure: k11146 o|contracted procedure: k11113 o|contracted procedure: k11139 o|contracted procedure: k11125 o|contracted procedure: k11181 o|contracted procedure: k11155 o|contracted procedure: k11165 o|contracted procedure: k11168 o|contracted procedure: k12187 o|contracted procedure: k11193 o|contracted procedure: k11204 o|contracted procedure: k11227 o|contracted procedure: k11213 o|contracted procedure: k11262 o|contracted procedure: k11236 o|contracted procedure: k11246 o|contracted procedure: k11249 o|contracted procedure: k11268 o|contracted procedure: k11277 o|contracted procedure: k11286 o|contracted procedure: k11292 o|contracted procedure: k11311 o|contracted procedure: k11336 o|contracted procedure: k11349 o|contracted procedure: k11368 o|contracted procedure: k11387 o|contracted procedure: k11400 o|contracted procedure: k11403 o|contracted procedure: k11409 o|contracted procedure: k11418 o|contracted procedure: k11427 o|contracted procedure: k11436 o|contracted procedure: k11445 o|contracted procedure: k11454 o|contracted procedure: k11463 o|contracted procedure: k11472 o|contracted procedure: k11481 o|contracted procedure: k11490 o|contracted procedure: k11499 o|contracted procedure: k11508 o|contracted procedure: k11514 o|contracted procedure: k11525 o|contracted procedure: k11537 o|contracted procedure: k11548 o|contracted procedure: k11560 o|contracted procedure: k11571 o|contracted procedure: k11577 o|contracted procedure: k11591 o|contracted procedure: k11597 o|contracted procedure: k11624 o|contracted procedure: k11633 o|contracted procedure: k11642 o|contracted procedure: k11648 o|contracted procedure: k11651 o|contracted procedure: k11658 o|contracted procedure: k11662 o|contracted procedure: k11668 o|contracted procedure: k11671 o|contracted procedure: k11692 o|contracted procedure: k11696 o|contracted procedure: k11677 o|contracted procedure: k11684 o|contracted procedure: k11688 o|contracted procedure: k11728 o|contracted procedure: k11735 o|contracted procedure: k11754 o|contracted procedure: k11758 o|contracted procedure: k11762 o|contracted procedure: k11768 o|contracted procedure: k11774 o|contracted procedure: k11787 o|contracted procedure: k11804 o|contracted procedure: k11794 o|contracted procedure: k11791 o|contracted procedure: k11808 o|contracted procedure: k11812 o|contracted procedure: k11830 o|contracted procedure: k11837 o|contracted procedure: k11856 o|contracted procedure: k11860 o|contracted procedure: k11864 o|contracted procedure: k11870 o|contracted procedure: k11876 o|contracted procedure: k11893 o|contracted procedure: k11906 o|contracted procedure: k11896 o|contracted procedure: k11910 o|contracted procedure: k11914 o|contracted procedure: k11938 o|contracted procedure: k11944 o|contracted procedure: k11951 o|contracted procedure: k11955 o|contracted procedure: k11974 o|contracted procedure: k11980 o|contracted procedure: k11989 o|contracted procedure: k12014 o|contracted procedure: k12020 o|contracted procedure: k12027 o|contracted procedure: k12031 o|contracted procedure: k12050 o|contracted procedure: k12056 o|contracted procedure: k12065 o|contracted procedure: k12075 o|contracted procedure: k12083 o|contracted procedure: k12091 o|contracted procedure: k12099 o|contracted procedure: k12107 o|contracted procedure: k12115 o|contracted procedure: k12123 o|contracted procedure: k12129 o|contracted procedure: k12139 o|contracted procedure: k12147 o|contracted procedure: k12155 o|contracted procedure: k12163 o|contracted procedure: k12171 o|contracted procedure: k12179 o|contracted procedure: k12223 o|contracted procedure: k12232 o|contracted procedure: k12235 o|contracted procedure: k12280 o|contracted procedure: k12244 o|contracted procedure: k12257 o|contracted procedure: k12276 o|contracted procedure: k12292 o|contracted procedure: k12295 o|contracted procedure: k12307 o|contracted procedure: k12337 o|contracted procedure: k12344 o|contracted procedure: k12347 o|contracted procedure: k12362 o|contracted procedure: k12375 o|contracted procedure: k12379 o|contracted procedure: k12416 o|contracted procedure: k12428 o|contracted procedure: k12431 o|contracted procedure: k12434 o|contracted procedure: k12442 o|contracted procedure: k12450 o|contracted procedure: k12410 o|contracted procedure: k12384 o|contracted procedure: k12398 o|contracted procedure: k12392 o|contracted procedure: k12459 o|contracted procedure: k12462 o|contracted procedure: k12466 o|contracted procedure: k12472 o|contracted procedure: k12478 o|contracted procedure: k12487 o|contracted procedure: k12493 o|contracted procedure: k12543 o|contracted procedure: k12554 o|contracted procedure: k12593 o|contracted procedure: k12603 o|contracted procedure: k12627 o|contracted procedure: k12698 o|contracted procedure: k12636 o|contracted procedure: k12670 o|contracted procedure: k12682 o|propagated global variable: g23262327 type<=? o|contracted procedure: k12692 o|propagated global variable: g23182319 type<=? o|contracted procedure: k12719 o|contracted procedure: k12728 o|contracted procedure: k12734 o|contracted procedure: k12752 o|contracted procedure: k12755 o|contracted procedure: k12758 o|contracted procedure: k12766 o|contracted procedure: k12774 o|contracted procedure: k12783 o|contracted procedure: k12805 o|contracted procedure: k12795 o|contracted procedure: k12802 o|contracted procedure: k12812 o|contracted procedure: k12816 o|contracted procedure: k12822 o|contracted procedure: k12831 o|contracted procedure: k12840 o|contracted procedure: k12846 o|contracted procedure: k12849 o|contracted procedure: k12858 o|contracted procedure: k12867 o|contracted procedure: k12873 o|contracted procedure: k12879 o|contracted procedure: k12886 o|contracted procedure: k12890 o|contracted procedure: k12902 o|contracted procedure: k12905 o|contracted procedure: k12908 o|contracted procedure: k12916 o|contracted procedure: k12924 o|contracted procedure: k12935 o|contracted procedure: k12942 o|contracted procedure: k12946 o|contracted procedure: k12958 o|contracted procedure: k12961 o|contracted procedure: k12964 o|contracted procedure: k12972 o|contracted procedure: k12980 o|contracted procedure: k12989 o|contracted procedure: k12992 o|contracted procedure: k12995 o|contracted procedure: k13002 o|contracted procedure: k13060 o|contracted procedure: k13063 o|contracted procedure: k13066 o|contracted procedure: k13006 o|contracted procedure: k13013 o|contracted procedure: k13016 o|contracted procedure: k13019 o|contracted procedure: k13031 o|contracted procedure: k13034 o|contracted procedure: k13037 o|contracted procedure: k13045 o|contracted procedure: k13053 o|contracted procedure: k13078 o|contracted procedure: k13081 o|contracted procedure: k13084 o|contracted procedure: k13092 o|contracted procedure: k13100 o|contracted procedure: k13148 o|contracted procedure: k13175 o|contracted procedure: k13179 o|contracted procedure: k13225 o|contracted procedure: k13196 o|contracted procedure: k13200 o|contracted procedure: k13216 o|contracted procedure: k13234 o|contracted procedure: k13240 o|contracted procedure: k13247 o|contracted procedure: k13254 o|contracted procedure: k13394 o|contracted procedure: k13260 o|contracted procedure: k13277 o|contracted procedure: k13289 o|contracted procedure: k13294 o|contracted procedure: k13305 o|contracted procedure: k13318 o|contracted procedure: k13330 o|contracted procedure: k13334 o|contracted procedure: k13342 o|contracted procedure: k13346 o|contracted procedure: k13338 o|contracted procedure: k13349 o|contracted procedure: k13361 o|contracted procedure: k13384 o|contracted procedure: k13415 o|contracted procedure: k13421 o|contracted procedure: k13427 o|contracted procedure: k13430 o|contracted procedure: k13486 o|contracted procedure: k13439 o|contracted procedure: k13482 o|contracted procedure: k13450 o|contracted procedure: k13474 o|contracted procedure: k13532 o|contracted procedure: k14626 o|contracted procedure: k13538 o|contracted procedure: k13549 o|contracted procedure: k13558 o|contracted procedure: k13575 o|contracted procedure: k13561 o|contracted procedure: k14620 o|contracted procedure: k13583 o|contracted procedure: k13594 o|contracted procedure: k13603 o|contracted procedure: k13620 o|contracted procedure: k13606 o|contracted procedure: k13641 o|contracted procedure: k13650 o|contracted procedure: k13659 o|contracted procedure: k13668 o|contracted procedure: k13677 o|contracted procedure: k13699 o|contracted procedure: k13712 o|contracted procedure: k13725 o|contracted procedure: k13744 o|contracted procedure: k13762 o|contracted procedure: k13768 o|contracted procedure: k13775 o|contracted procedure: k13779 o|contracted procedure: k13798 o|contracted procedure: k13804 o|contracted procedure: k13810 o|contracted procedure: k13821 o|contracted procedure: k13829 o|contracted procedure: k13837 o|contracted procedure: k13846 o|contracted procedure: k13855 o|contracted procedure: k14543 o|contracted procedure: k14539 o|contracted procedure: k13883 o|contracted procedure: k13903 o|contracted procedure: k13912 o|contracted procedure: k13925 o|contracted procedure: k13969 o|contracted procedure: k13957 o|contracted procedure: k13961 o|contracted procedure: k13965 o|contracted procedure: k14012 o|contracted procedure: k14008 o|contracted procedure: k13996 o|contracted procedure: k14000 o|contracted procedure: k14004 o|contracted procedure: k14031 o|contracted procedure: k14035 o|contracted procedure: k14039 o|contracted procedure: k14461 o|contracted procedure: k14455 o|contracted procedure: k14052 o|contracted procedure: k14055 o|contracted procedure: k14062 o|contracted procedure: k14066 o|contracted procedure: k14072 o|contracted procedure: k14085 o|contracted procedure: k14088 o|contracted procedure: k14109 o|contracted procedure: k14113 o|contracted procedure: k14094 o|contracted procedure: k14101 o|contracted procedure: k14105 o|contracted procedure: k14119 o|contracted procedure: k14126 o|contracted procedure: k14130 o|contracted procedure: k14136 o|contracted procedure: k14139 o|contracted procedure: k14142 o|contracted procedure: k14145 o|contracted procedure: k14148 o|contracted procedure: k14160 o|contracted procedure: k14178 o|contracted procedure: k14184 o|contracted procedure: k14193 o|contracted procedure: k14210 o|contracted procedure: k14214 o|contracted procedure: k14217 o|contracted procedure: k14268 o|contracted procedure: k14232 o|contracted procedure: k14241 o|contracted procedure: k14244 o|contracted procedure: k14257 o|contracted procedure: k14395 o|contracted procedure: k14274 o|contracted procedure: k14285 o|contracted procedure: k14291 o|contracted procedure: k14301 o|contracted procedure: k14309 o|contracted procedure: k14389 o|contracted procedure: k14331 o|contracted procedure: k14342 o|contracted procedure: k14348 o|contracted procedure: k14358 o|contracted procedure: k14464 o|contracted procedure: k14471 o|contracted procedure: k14476 o|contracted procedure: k14483 o|contracted procedure: k14488 o|contracted procedure: k14495 o|contracted procedure: k14500 o|contracted procedure: k14507 o|contracted procedure: k14512 o|contracted procedure: k14519 o|contracted procedure: k14535 o|contracted procedure: k14524 o|contracted procedure: k14531 o|contracted procedure: k14558 o|contracted procedure: k14566 o|contracted procedure: k14574 o|contracted procedure: k14582 o|contracted procedure: k14590 o|contracted procedure: k14598 o|contracted procedure: k14606 o|contracted procedure: k14612 o|contracted procedure: k14633 o|contracted procedure: k14639 o|contracted procedure: k14648 o|contracted procedure: k14655 o|contracted procedure: k14662 o|contracted procedure: k14668 o|contracted procedure: k14674 o|contracted procedure: k14694 o|contracted procedure: k14701 o|contracted procedure: k14708 o|contracted procedure: k14714 o|contracted procedure: k14717 o|contracted procedure: k14723 o|contracted procedure: k14732 o|contracted procedure: k14745 o|contracted procedure: k14752 o|contracted procedure: k14759 o|contracted procedure: k14765 o|contracted procedure: k14768 o|contracted procedure: k14774 o|contracted procedure: k14777 o|contracted procedure: k14801 o|contracted procedure: k14808 o|contracted procedure: k14815 o|contracted procedure: k14821 o|contracted procedure: k14824 o|contracted procedure: k14830 o|contracted procedure: k14833 o|contracted procedure: k15071 o|contracted procedure: k14854 o|contracted procedure: k14885 o|contracted procedure: k14889 o|contracted procedure: k14978 o|contracted procedure: k14898 o|contracted procedure: k14912 o|contracted procedure: k14931 o|contracted procedure: k14938 o|contracted procedure: k14946 o|contracted procedure: k14950 o|contracted procedure: k14954 o|contracted procedure: k14969 o|contracted procedure: k14999 o|contracted procedure: k14981 o|contracted procedure: k15012 o|contracted procedure: k15015 o|contracted procedure: k15023 o|contracted procedure: k15029 o|contracted procedure: k15039 o|contracted procedure: k15055 o|contracted procedure: k15063 o|contracted procedure: k15212 o|contracted procedure: k15219 o|contracted procedure: k15239 o|contracted procedure: k15226 o|contracted procedure: k15229 o|contracted procedure: k15245 o|contracted procedure: k15252 o|contracted procedure: k15265 o|contracted procedure: k15276 o|contracted procedure: k15271 o|contracted procedure: k15285 o|contracted procedure: k15292 o|contracted procedure: k15298 o|contracted procedure: k15317 o|contracted procedure: k15308 o|contracted procedure: k15305 o|contracted procedure: k15323 o|contracted procedure: k15330 o|contracted procedure: k15340 o|contracted procedure: k15349 o|contracted procedure: k15356 o|contracted procedure: k15367 o|contracted procedure: k15374 o|contracted procedure: k15393 o|contracted procedure: k15400 o|contracted procedure: k15566 o|contracted procedure: k15406 o|contracted procedure: k15412 o|contracted procedure: k15415 o|contracted procedure: k15460 o|contracted procedure: k15424 o|contracted procedure: k15430 o|contracted procedure: k15442 o|contracted procedure: k15452 o|contracted procedure: k15456 o|contracted procedure: k15469 o|contracted procedure: k15479 o|contracted procedure: k15483 o|contracted procedure: k15486 o|contracted procedure: k15489 o|contracted procedure: k15533 o|contracted procedure: k15498 o|contracted procedure: k15503 o|contracted procedure: k15515 o|contracted procedure: k15525 o|contracted procedure: k15529 o|contracted procedure: k15542 o|contracted procedure: k15552 o|contracted procedure: k15556 o|contracted procedure: k15572 o|contracted procedure: k15583 o|contracted procedure: k15587 o|contracted procedure: k15612 o|contracted procedure: k15615 o|contracted procedure: k15627 o|contracted procedure: k15630 o|contracted procedure: k15633 o|contracted procedure: k15641 o|contracted procedure: k15649 o|contracted procedure: k15595 o|contracted procedure: k15605 o|contracted procedure: k15609 o|contracted procedure: k15658 o|contracted procedure: k15661 o|contracted procedure: k15665 o|contracted procedure: k15677 o|contracted procedure: k15687 o|contracted procedure: k15691 o|contracted procedure: k15717 o|contracted procedure: k15736 o|contracted procedure: k15720 o|contracted procedure: k15732 o|contracted procedure: k15723 o|contracted procedure: k15752 o|contracted procedure: k15760 o|contracted procedure: k15766 o|contracted procedure: k15769 o|contracted procedure: k15775 o|contracted procedure: k15786 o|contracted procedure: k15793 o|contracted procedure: k16184 o|contracted procedure: k15816 o|contracted procedure: k15822 o|contracted procedure: k15829 o|contracted procedure: k15838 o|contracted procedure: k15850 o|contracted procedure: k15853 o|contracted procedure: k15856 o|contracted procedure: k15864 o|contracted procedure: k15872 o|contracted procedure: k15881 o|contracted procedure: k15892 o|contracted procedure: k15898 o|contracted procedure: k15905 o|contracted procedure: k15913 o|contracted procedure: k15919 o|contracted procedure: k15931 o|contracted procedure: k15940 o|contracted procedure: k15952 o|contracted procedure: k15955 o|contracted procedure: k15958 o|contracted procedure: k15966 o|contracted procedure: k15974 o|contracted procedure: k15983 o|contracted procedure: k16003 o|inlining procedure: k16007 o|contracted procedure: k16018 o|inlining procedure: k16007 o|contracted procedure: k16021 o|contracted procedure: k16029 o|contracted procedure: k16041 o|contracted procedure: k16044 o|contracted procedure: k16047 o|contracted procedure: k16055 o|contracted procedure: k16063 o|contracted procedure: k16075 o|contracted procedure: k16138 o|contracted procedure: k16081 o|contracted procedure: k16087 o|contracted procedure: k16106 o|contracted procedure: k16146 o|contracted procedure: k16152 o|contracted procedure: k16158 o|contracted procedure: k16653 o|contracted procedure: k16663 o|contracted procedure: k16667 o|contracted procedure: k16261 o|contracted procedure: k16333 o|contracted procedure: k16327 o|contracted procedure: k16304 o|contracted procedure: k16298 o|contracted procedure: k16453 o|contracted procedure: k16471 o|contracted procedure: k16480 o|contracted procedure: k16483 o|contracted procedure: k16489 o|contracted procedure: k16230 o|contracted procedure: k16224 o|contracted procedure: k16503 o|contracted procedure: k16207 o|contracted procedure: k16201 o|contracted procedure: k16517 o|contracted procedure: k16528 o|contracted procedure: k16522 o|contracted procedure: k16545 o|contracted procedure: k16569 o|contracted procedure: k16573 o|contracted procedure: k16556 o|contracted procedure: k16550 o|contracted procedure: k16598 o|contracted procedure: k16605 o|contracted procedure: k16613 o|contracted procedure: k16618 o|contracted procedure: k16625 o|contracted procedure: k16638 o|contracted procedure: k16632 o|contracted procedure: k16701 o|contracted procedure: k16745 o|contracted procedure: k16808 o|contracted procedure: k16815 o|contracted procedure: k16828 o|contracted procedure: k16836 o|contracted procedure: k16844 o|contracted procedure: k16865 o|contracted procedure: k16872 o|contracted procedure: k16880 o|contracted procedure: k16944 o|contracted procedure: k16926 o|contracted procedure: k17132 o|contracted procedure: k17138 o|contracted procedure: k17144 o|contracted procedure: k17151 o|contracted procedure: k17162 o|contracted procedure: k17168 o|contracted procedure: k17171 o|contracted procedure: k17184 o|contracted procedure: k17201 o|contracted procedure: k17197 o|contracted procedure: k17236 o|contracted procedure: k17232 o|contracted procedure: k17213 o|contracted procedure: k17239 o|contracted procedure: k17267 o|contracted procedure: k17245 o|contracted procedure: k17262 o|contracted procedure: k17251 o|contracted procedure: k17258 o|contracted procedure: k17271 o|contracted procedure: k17279 o|contracted procedure: k17352 o|contracted procedure: k17348 o|contracted procedure: k17339 o|contracted procedure: k17361 o|contracted procedure: k17367 o|contracted procedure: k17482 o|contracted procedure: k17478 o|contracted procedure: k17379 o|contracted procedure: k17399 o|contracted procedure: k17408 o|contracted procedure: k17431 o|contracted procedure: k17427 o|contracted procedure: k17441 o|contracted procedure: k18345 o|contracted procedure: k17488 o|contracted procedure: k17507 o|contracted procedure: k17513 o|contracted procedure: k17519 o|contracted procedure: k17525 o|contracted procedure: k18336 o|contracted procedure: k18332 o|contracted procedure: k17549 o|contracted procedure: k17571 o|contracted procedure: k17555 o|contracted procedure: k17566 o|contracted procedure: k18328 o|contracted procedure: k17577 o|contracted procedure: k17741 o|contracted procedure: k17583 o|contracted procedure: k17736 o|contracted procedure: k17589 o|contracted procedure: k17610 o|contracted procedure: k17623 o|contracted procedure: k17642 o|contracted procedure: k17646 o|contracted procedure: k17650 o|contracted procedure: k17658 o|contracted procedure: k17673 o|contracted procedure: k17679 o|contracted procedure: k17686 o|contracted procedure: k17664 o|contracted procedure: k17692 o|contracted procedure: k17695 o|contracted procedure: k17707 o|contracted procedure: k17710 o|contracted procedure: k17713 o|contracted procedure: k17721 o|contracted procedure: k17729 o|contracted procedure: k17747 o|contracted procedure: k17753 o|contracted procedure: k17756 o|contracted procedure: k17760 o|contracted procedure: k17781 o|contracted procedure: k17784 o|contracted procedure: k17787 o|contracted procedure: k17795 o|contracted procedure: k17803 o|contracted procedure: k17812 o|contracted procedure: k17833 o|contracted procedure: k17818 o|contracted procedure: k17828 o|contracted procedure: k17824 o|contracted procedure: k17839 o|contracted procedure: k17860 o|contracted procedure: k17845 o|contracted procedure: k17855 o|contracted procedure: k17851 o|contracted procedure: k17986 o|contracted procedure: k17874 o|contracted procedure: k17877 o|contracted procedure: k17880 o|contracted procedure: k17926 o|contracted procedure: k17937 o|contracted procedure: k17953 o|contracted procedure: k17945 o|contracted procedure: k17949 o|contracted procedure: k17941 o|contracted procedure: k17978 o|contracted procedure: k17956 o|contracted procedure: k17973 o|contracted procedure: k17962 o|contracted procedure: k17969 o|contracted procedure: k17906 o|contracted procedure: k17902 o|contracted procedure: k17305 o|contracted procedure: k17312 o|contracted procedure: k18001 o|contracted procedure: k18027 o|contracted procedure: k18007 o|contracted procedure: k18022 o|contracted procedure: k18039 o|contracted procedure: k18053 o|contracted procedure: k18060 o|contracted procedure: k18079 o|contracted procedure: k18083 o|contracted procedure: k18090 o|contracted procedure: k18096 o|contracted procedure: k18159 o|contracted procedure: k18102 o|contracted procedure: k18105 o|contracted procedure: k18108 o|contracted procedure: k18129 o|contracted procedure: k18132 o|contracted procedure: k18135 o|contracted procedure: k18143 o|contracted procedure: k18151 o|contracted procedure: k18165 o|contracted procedure: k18171 o|contracted procedure: k18183 o|contracted procedure: k18189 o|contracted procedure: k18219 o|contracted procedure: k18223 o|contracted procedure: k18235 o|contracted procedure: k18241 o|contracted procedure: k18244 o|contracted procedure: k18262 o|contracted procedure: k18265 o|contracted procedure: k18268 o|contracted procedure: k18276 o|contracted procedure: k18284 o|contracted procedure: k18294 o|contracted procedure: k18309 o|contracted procedure: k18303 o|contracted procedure: k17543 o|contracted procedure: k18339 o|contracted procedure: k18382 o|contracted procedure: k18375 o|contracted procedure: k18369 o|contracted procedure: k18385 o|contracted procedure: k18393 o|contracted procedure: k18398 o|contracted procedure: k18389 o|contracted procedure: k18419 o|contracted procedure: k18422 o|contracted procedure: k18425 o|contracted procedure: k18433 o|contracted procedure: k18441 o|contracted procedure: k18481 o|contracted procedure: k18456 o|contracted procedure: k18514 o|contracted procedure: k18525 o|contracted procedure: k18548 o|contracted procedure: k18551 o|contracted procedure: k18564 o|contracted procedure: k18570 o|inlining procedure: k18567 o|contracted procedure: k18579 o|contracted procedure: k18676 o|contracted procedure: k18585 o|contracted procedure: k18592 o|contracted procedure: k18617 o|contracted procedure: k18624 o|inlining procedure: k18567 o|contracted procedure: k18633 o|contracted procedure: k18636 o|contracted procedure: k18639 o|contracted procedure: k18647 o|contracted procedure: k18655 o|contracted procedure: k18672 o|contracted procedure: k18664 o|contracted procedure: k18696 o|contracted procedure: k18699 o|contracted procedure: k18702 o|contracted procedure: k18710 o|contracted procedure: k18718 o|contracted procedure: k18727 o|contracted procedure: k18734 o|contracted procedure: k18737 o|contracted procedure: k18504 o|contracted procedure: k18498 o|contracted procedure: k18749 o|contracted procedure: k18752 o|contracted procedure: k18755 o|contracted procedure: k18763 o|contracted procedure: k18771 o|contracted procedure: k18883 o|contracted procedure: k18879 o|contracted procedure: k18789 o|contracted procedure: k18792 o|contracted procedure: k18795 o|contracted procedure: k18802 o|contracted procedure: k18811 o|contracted procedure: k18831 o|contracted procedure: k18835 o|contracted procedure: k18859 o|contracted procedure: k18862 o|contracted procedure: k18870 o|contracted procedure: k18970 o|contracted procedure: k19092 o|contracted procedure: k19096 o|contracted procedure: k18979 o|contracted procedure: k18991 o|contracted procedure: k18997 o|contracted procedure: k19000 o|contracted procedure: k19082 o|contracted procedure: k19009 o|contracted procedure: k19073 o|contracted procedure: k19012 o|contracted procedure: k19021 o|contracted procedure: k19024 o|contracted procedure: k19055 o|contracted procedure: k19030 o|contracted procedure: k19050 o|contracted procedure: k19041 o|contracted procedure: k18917 o|contracted procedure: k18934 o|contracted procedure: k18937 o|contracted procedure: k18940 o|contracted procedure: k18948 o|contracted procedure: k18956 o|contracted procedure: k19088 o|contracted procedure: k618822574 o|contracted procedure: k19151 o|contracted procedure: k19117 o|contracted procedure: k19134 o|contracted procedure: k19130 o|contracted procedure: k19105 o|contracted procedure: k19142 o|contracted procedure: k19138 o|contracted procedure: k19155 o|contracted procedure: k618822580 o|contracted procedure: k19195 o|contracted procedure: k19212 o|contracted procedure: k19215 o|contracted procedure: k19218 o|contracted procedure: k19226 o|contracted procedure: k19234 o|contracted procedure: k19246 o|contracted procedure: k19388 o|contracted procedure: k19384 o|contracted procedure: k19279 o|contracted procedure: k19316 o|contracted procedure: k19285 o|contracted procedure: k19298 o|contracted procedure: k19322 o|contracted procedure: k19334 o|contracted procedure: k19370 o|contracted procedure: k19358 o|contracted procedure: k19362 o|contracted procedure: k19366 o|contracted procedure: k19373 o|contracted procedure: k19264 o|contracted procedure: k19270 o|contracted procedure: k19431 o|contracted procedure: k19566 o|contracted procedure: k19443 o|contracted procedure: k19452 o|contracted procedure: k19558 o|contracted procedure: k19461 o|contracted procedure: k19549 o|contracted procedure: k19464 o|contracted procedure: k19473 o|contracted procedure: k19497 o|contracted procedure: k19488 o|contracted procedure: k19537 o|contracted procedure: k19533 o|contracted procedure: k19524 o|contracted procedure: k19397 o|contracted procedure: k19410 o|contracted procedure: k19413 o|contracted procedure: k19562 o|contracted procedure: k618822590 o|contracted procedure: k19686 o|contracted procedure: k19695 o|contracted procedure: k19729 o|contracted procedure: k19736 o|contracted procedure: k19749 o|contracted procedure: k19745 o|contracted procedure: k19753 o|contracted procedure: k19759 o|contracted procedure: k19778 o|contracted procedure: k19784 o|contracted procedure: k19790 o|contracted procedure: k19826 o|contracted procedure: k19817 o|contracted procedure: k19813 o|contracted procedure: k19804 o|contracted procedure: k19625 o|contracted procedure: k19642 o|contracted procedure: k19645 o|contracted procedure: k19648 o|contracted procedure: k19656 o|contracted procedure: k19664 o|contracted procedure: k19834 o|contracted procedure: k19842 o|contracted procedure: k19851 o|contracted procedure: k618822600 o|contracted procedure: k19879 o|contracted procedure: k19888 o|contracted procedure: k19897 o|contracted procedure: k19953 o|contracted procedure: k19906 o|contracted procedure: k19944 o|contracted procedure: k19909 o|contracted procedure: k19918 o|contracted procedure: k19931 o|contracted procedure: k19882 o|contracted procedure: k19956 o|contracted procedure: k19962 o|contracted procedure: k19969 o|contracted procedure: k618822608 o|contracted procedure: k20000 o|contracted procedure: k20008 o|contracted procedure: k20011 o|contracted procedure: k20040 o|contracted procedure: k20016 o|contracted procedure: k20022 o|contracted procedure: k20034 o|contracted procedure: k20025 o|contracted procedure: k20055 o|contracted procedure: k20070 o|contracted procedure: k20094 o|contracted procedure: k20097 o|contracted procedure: k20100 o|contracted procedure: k20108 o|contracted procedure: k20116 o|contracted procedure: k20127 o|contracted procedure: k20130 o|contracted procedure: k20142 o|contracted procedure: k20145 o|contracted procedure: k20148 o|contracted procedure: k20156 o|contracted procedure: k20164 o|contracted procedure: k20186 o|contracted procedure: k20192 o|contracted procedure: k20225 o|contracted procedure: k20198 o|contracted procedure: k20219 o|contracted procedure: k20205 o|contracted procedure: k20213 o|contracted procedure: k20231 o|contracted procedure: k20243 o|contracted procedure: k20253 o|contracted procedure: k20257 o|contracted procedure: k20292 o|contracted procedure: k20311 o|contracted procedure: k20364 o|contracted procedure: k20323 o|contracted procedure: k20335 o|contracted procedure: k20341 o|contracted procedure: k20348 o|contracted procedure: k20314 o|contracted procedure: k20360 o|contracted procedure: k618822624 o|contracted procedure: k20379 o|contracted procedure: k20382 o|contracted procedure: k20385 o|contracted procedure: k20375 o|contracted procedure: k20397 o|contracted procedure: k20400 o|contracted procedure: k20403 o|contracted procedure: k20411 o|contracted procedure: k20419 o|contracted procedure: k20436 o|contracted procedure: k20439 o|contracted procedure: k20442 o|contracted procedure: k20432 o|contracted procedure: k20454 o|contracted procedure: k20457 o|contracted procedure: k20460 o|contracted procedure: k20468 o|contracted procedure: k20476 o|contracted procedure: k20544 o|contracted procedure: k20488 o|contracted procedure: k20499 o|contracted procedure: k20503 o|contracted procedure: k20495 o|contracted procedure: k20515 o|contracted procedure: k20518 o|contracted procedure: k20521 o|contracted procedure: k20529 o|contracted procedure: k20537 o|contracted procedure: k20609 o|contracted procedure: k20553 o|contracted procedure: k20564 o|contracted procedure: k20568 o|contracted procedure: k20560 o|contracted procedure: k20580 o|contracted procedure: k20583 o|contracted procedure: k20586 o|contracted procedure: k20594 o|contracted procedure: k20602 o|contracted procedure: k20652 o|contracted procedure: k20659 o|contracted procedure: k20679 o|contracted procedure: k20685 o|contracted procedure: k20691 o|contracted procedure: k20703 o|contracted procedure: k20714 o|contracted procedure: k20710 o|contracted procedure: k20721 o|contracted procedure: k618822638 o|contracted procedure: k20732 o|contracted procedure: k20803 o|contracted procedure: k20744 o|contracted procedure: k20747 o|contracted procedure: k20799 o|contracted procedure: k20756 o|contracted procedure: k20790 o|contracted procedure: k20759 o|contracted procedure: k20768 o|contracted procedure: k20774 o|contracted procedure: k20781 o|contracted procedure: k20735 o|simplifications: ((let . 272)) o|removed binding forms: 1504 o|inlining procedure: "(scrutinizer.scm:275) multiples" o|inlining procedure: k15177 o|inlining procedure: k15177 o|inlining procedure: "(scrutinizer.scm:351) multiples" o|inlining procedure: "(scrutinizer.scm:350) multiples" o|inlining procedure: k8156 o|inlining procedure: k8156 o|inlining procedure: k8156 o|inlining procedure: k8156 o|inlining procedure: k8156 o|inlining procedure: k8156 o|inlining procedure: k8156 o|inlining procedure: k8156 o|inlining procedure: k8156 o|inlining procedure: k8156 o|inlining procedure: k8156 o|inlining procedure: k8156 o|inlining procedure: k8156 o|inlining procedure: k8156 o|inlining procedure: k8156 o|inlining procedure: k11889 o|inlining procedure: k11889 o|inlining procedure: "(scrutinizer.scm:2291) list-or-null4364" o|inlining procedure: "(scrutinizer.scm:2290) list-or-null4364" o|inlining procedure: "(scrutinizer.scm:2295) list-or-null4364" o|inlining procedure: k19403 o|inlining procedure: k19403 o|inlining procedure: k20004 o|inlining procedure: k20004 o|replaced variables: 437 o|removed binding forms: 1 o|removed side-effect free assignment to unused variable: multiples o|substituted constant variable: r1517823815 o|substituted constant variable: r815723841 o|substituted constant variable: r815723841 o|substituted constant variable: r815723845 o|substituted constant variable: r815723845 o|substituted constant variable: r815723849 o|substituted constant variable: r815723849 o|substituted constant variable: r815723863 o|substituted constant variable: r815723863 o|substituted constant variable: r815723877 o|substituted constant variable: r815723877 o|substituted constant variable: r815723881 o|substituted constant variable: r815723881 o|substituted constant variable: r815723887 o|substituted constant variable: r815723887 o|substituted constant variable: r815723917 o|substituted constant variable: r815723917 o|substituted constant variable: r1189023933 o|substituted constant variable: r1189023933 o|removed side-effect free assignment to unused variable: list-or-null4364 o|substituted constant variable: r1940424044 o|contracted procedure: "(scrutinizer.scm:2329) split-list-type4365" o|simplifications: ((if . 1)) o|replaced variables: 23 o|removed binding forms: 250 o|removed conditional forms: 2 o|inlining procedure: k6912 o|inlining procedure: k7850 o|contracted procedure: k9473 o|contracted procedure: k18982 o|contracted procedure: k19111 o|contracted procedure: k19446 o|inlining procedure: k19312 o|inlining procedure: k19341 o|contracted procedure: k19698 o|contracted procedure: k20326 o|contracted procedure: k20697 o|replaced variables: 16 o|removed binding forms: 53 o|contracted procedure: k7846 o|contracted procedure: k19308 o|removed binding forms: 10 o|replaced variables: 6 o|removed binding forms: 5 o|direct leaf routine/allocation: tag240 4 o|direct leaf routine/allocation: named? 0 o|direct leaf routine/allocation: rest-type 0 o|direct leaf routine/allocation: noreturn-procedure-type? 0 o|direct leaf routine/allocation: doloop30653066 0 o|direct leaf routine/allocation: loop3679 0 o|direct leaf routine/allocation: g39663975 0 o|contracted procedure: "(scrutinizer.scm:367) k7771" o|contracted procedure: "(scrutinizer.scm:498) k8571" o|contracted procedure: "(scrutinizer.scm:498) k8575" o|contracted procedure: "(scrutinizer.scm:585) k8752" o|contracted procedure: "(scrutinizer.scm:873) k10562" o|contracted procedure: "(scrutinizer.scm:949) k10855" o|contracted procedure: "(scrutinizer.scm:951) k10870" o|contracted procedure: "(scrutinizer.scm:963) k10935" o|contracted procedure: "(scrutinizer.scm:1296) k13121" o|contracted procedure: "(scrutinizer.scm:1340) k13281" o|contracted procedure: "(scrutinizer.scm:1341) k13285" o|contracted procedure: "(scrutinizer.scm:1465) k14425" o|contracted procedure: "(scrutinizer.scm:1466) k14416" o|contracted procedure: "(scrutinizer.scm:1467) k14407" o|contracted procedure: "(scrutinizer.scm:1468) k14398" o|contracted procedure: "(scrutinizer.scm:1592) k14926" o|converted assignments to bindings: (doloop30653066) o|converted assignments to bindings: (loop3679) o|contracted procedure: "(scrutinizer.scm:2096) k18437" o|simplifications: ((let . 2)) o|removed binding forms: 17 o|replaced variables: 5 o|removed binding forms: 5 o|customizable procedures: (list+index-call-result-type-special-case4367 map-loop45124529 map-loop45464563 map-loop45804597 map-loop46144631 complex-object-constructor-result-type-special-case4765 restore4808 loop4888 collect4809 g49054912 for-each-loop49044919 map-loop48274844 g48604869 map-loop48544879 doloop48124813 k19891 derive-result-type4708 k19704 k19765 map-loop46714689 lp4710 foldl47254729 k19351 lp4425 k19508 g44754476 report4363 map-loop43824400 known-length-vector-index4252 map-loop42684286 k18824 k18844 rec4179 g40544063 map-loop40484163 k18522 g40764085 map-loop40704103 fail4030 g41294138 map-loop41234156 g39523953 map-loop39603984 k18359 k18174 k18177 map-loop39213938 k18205 map-loop38793896 g38713872 loop3859 g38253826 k17883 memq*3665 loop3670 k17918 map-loop37893806 g37543763 map-loop37483772 k17382 k17402 validate-llist3666 k17129 k17190 subst3628 k16734 wrap3519 k16272 k16459 adjust3322 loop3329 k16342 for-each-loop33023465 k15922 loop3191 g32063215 map-loop32003225 g31593168 map-loop31533178 g31073116 map-loop31013126 g30833084 resolve3074 for-each-loop30453055 k15645 map-loop30143032 k15409 for-each-loop29792989 for-each-loop29963006 for-each-loop29442954 for-each-loop29612971 k14866 k15005 g28482849 loop12809 k14984 k14876 k14919 loop2822 k13683 k13692 k13705 k13718 k13737 k13756 k13787 k13876 k13896 k13918 k13938 k13977 k14018 k14377 loop12702 loop22724 g26012602 g25882589 loop2542 k13311 k13266 g24942495 g24772478 map-loop24262443 map-loop24522469 map-loop23972414 map-loop23682385 map-loop22472264 k12710 loop2305 k12539 map-loop21982233 subst2169 loop2152 k11298 k11317 k11342 k11361 k11380 k11393 k11588 k11722 k11824 k11926 k11968 k12002 k12044 procedure-arguments procedure-results match-args1853 over-all-instantiations g19781979 g19451946 g19591960 rawmatch11857 k10996 match-results1856 match-rest1854 loop1862 loop1762 map-loop17771794 doloop17591760 for-each-loop17021723 g16751682 for-each-loop16741685 loop1620 map-loop16291659 compatible-types? k10140 g12961306 map-loop12901343 map-loop13611378 g14621470 for-each-loop14611558 g15741583 map-loop15681593 k9634 g15501551 g15281529 typeset-min reduce-typeset243 smash1408 g14311440 map-loop14251450 k9506 call-result239 k9318 k9286 k9129 k9144 smash-component-types! k9032 loop1261 g826835 map-loop820848 map-loop10691090 k8782 g11381139 k8794 loop1127 k8632 k8616 loop1027 single231 always-true228 always-false229 g956963 for-each-loop955968 add-to-blist241 k8334 k8340 map-loop9881012 mutate-node! walk244 variable-result226 rec859 loop796 map-loop600617 k7320 doloop656657 k7359 k15107 k15156 k15120 loop2872 g28672868 loop12859 procedure-name g708709 loop711 k7703 k7706 g680681 match-argument-types trail-restore k7368 k7371 g757766 map-loop751776 procedure-argument-types pname579 fragment236 map-loop35743594 g522531 map-loop516545 map-loop472490 map-loop431449 pp-fragment237 blist-type225 k6719 global-result224 g333334 k6649 map-loop293310 map-loop261278 rec193 lname165) o|calls to known targets: 794 o|identified direct recursive calls: f_6391 1 o|identified direct recursive calls: f_6773 1 o|identified direct recursive calls: f_15124 1 o|identified direct recursive calls: f_7915 1 o|identified direct recursive calls: f_8060 1 o|identified direct recursive calls: f_8919 1 o|identified direct recursive calls: f_8123 3 o|identified direct recursive calls: f_10611 1 o|identified direct recursive calls: f_10783 2 o|identified direct recursive calls: f_12287 1 o|identified direct recursive calls: f_13410 2 o|identified direct recursive calls: f_14155 6 o|identified direct recursive calls: f_13530 5 o|identified direct recursive calls: f_14637 1 o|identified direct recursive calls: f_14689 1 o|identified direct recursive calls: f_14740 1 o|identified direct recursive calls: f_14796 1 o|identified direct recursive calls: f_14880 2 o|identified direct recursive calls: f_15207 1 o|identified direct recursive calls: f_15280 1 o|identified direct recursive calls: f_15338 1 o|identified direct recursive calls: f_15712 1 o|identified direct recursive calls: f_16070 2 o|identified direct recursive calls: f_15750 2 o|identified direct recursive calls: f_16475 2 o|identified direct recursive calls: f_16803 1 o|identified direct recursive calls: f_17328 1 o|identified direct recursive calls: f_17300 1 o|identified direct recursive calls: f_18414 1 o|identified direct recursive calls: f_19724 1 o|fast box initializations: 127 o|fast global references: 152 o|fast global assignments: 49 o|dropping unused closure argument: f_14689 o|dropping unused closure argument: f_13505 o|dropping unused closure argument: f_18963 o|dropping unused closure argument: f_15207 o|dropping unused closure argument: f_17322 o|dropping unused closure argument: f_16906 o|dropping unused closure argument: f_7079 o|dropping unused closure argument: f_14740 o|dropping unused closure argument: f_14796 o|dropping unused closure argument: f_10575 o|dropping unused closure argument: f_19983 o|dropping unused closure argument: f_6268 o|dropping unused closure argument: f_12212 o|dropping unused closure argument: f_13493 o|dropping unused closure argument: f_14852 o|dropping unused closure argument: f_15706 o|dropping unused closure argument: f_15260 o|dropping unused closure argument: f_19870 o|dropping unused closure argument: f_15280 o|dropping unused closure argument: f_8048 o|dropping unused closure argument: f_19168 */ /* end of file */ chicken-4.12.0/srfi-69.import.scm0000644000175000017500000000501213052306173016222 0ustar sjamaansjamaan;;;; srfi-69.import.scm - import library for "srfi-69" module ; ; Copyright (c) 2008-2017, 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 'srfi-69 '(alist->hash-table eq?-hash equal?-hash eqv?-hash hash hash-by-identity hash-table->alist hash-table-clear! hash-table-copy hash-table-delete! hash-table-equivalence-function hash-table-exists? hash-table-fold hash-table-for-each hash-table-has-initial? hash-table-hash-function hash-table-initial hash-table-keys hash-table-map hash-table-max-load hash-table-merge hash-table-merge! hash-table-min-load hash-table-ref hash-table-ref/default hash-table-remove! hash-table-set! hash-table-size hash-table-update! hash-table-update!/default hash-table-values hash-table-walk hash-table-weak-keys hash-table-weak-values hash-table? keyword-hash make-hash-table number-hash object-uid-hash recursive-hash-max-depth recursive-hash-max-length string-hash-ci string-ci-hash string-hash symbol-hash)) chicken-4.12.0/scheduler.c0000644000175000017500000045644413052306277015160 0ustar sjamaansjamaan/* Generated from scheduler.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:17 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: scheduler.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file scheduler.c unit: scheduler */ #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(C_unfix(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(C_unfix(ms) * 1000) == -1) return C_SCHEME_FALSE; #else struct timespec ts; unsigned long mss = C_unfix(ms); ts.tv_sec = mss / 1000; ts.tv_nsec = (mss % 1000) * 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)) C_inline int C_ready_fds_timeout(int to, double 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); } C_inline void C_prepare_fdset(int length) { FD_ZERO(&C_fdset_input); FD_ZERO(&C_fdset_output); } C_inline 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; C_inline 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)) C_inline int C_ready_fds_timeout(int to, double tm) { return poll(C_fdset_set, C_fdset_nfds, to ? (int)tm : -1); } C_inline 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 */ C_inline 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); static C_TLS C_word lf[65]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,7),40,108,111,111,112,50,41,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,26),40,108,111,111,112,50,32,116,104,114,101,97,100,115,53,48,56,32,107,101,101,112,53,48,57,41,0,0,0,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,25),40,108,111,111,112,32,110,52,57,52,32,112,111,115,52,57,53,32,108,115,116,52,57,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,11),40,103,51,54,53,32,116,51,55,52,41,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,54,52,32,103,51,55,49,52,48,54,41,0,0,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,108,115,116,51,53,56,41,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,108,115,116,49,51,56,41,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,7),40,108,111,111,112,49,41,0}; static C_char C_TLS li8[] 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 li9[] 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 li10[] 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 li11[] C_aligned={C_lihdr(0,0,36),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,49,55,50,41,0,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,7),40,97,49,50,57,52,41,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,41),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,50,48,51,32,115,116,97,116,101,50,48,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,112,114,101,118,50,49,51,41,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,37),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,50,49,48,41,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,116,108,50,51,51,32,112,114,101,118,50,51,52,41,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,44),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,50,49,56,32,116,109,50,49,57,41,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,48),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,50,52,52,32,116,50,50,52,53,41}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,12),40,103,51,48,55,32,116,50,51,49,54,41,0,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,48,54,32,103,51,49,51,51,49,56,41,0,0,0,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,55,50,32,103,50,55,57,50,56,52,41,0,0,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,53,56,32,103,50,54,53,50,57,50,41,0,0,0,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,116,104,114,101,97,100,45,107,105,108,108,33,32,116,50,57,54,32,115,50,57,55,41,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,34),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,51,51,49,41,0,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,7),40,97,49,55,49,51,41,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,40),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,51,51,53,41}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,108,115,116,52,54,52,41,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,47),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,52,54,48,32,102,100,52,54,49,32,105,47,111,52,54,50,41,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,108,115,116,53,52,50,41,0,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,40),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,53,51,57,41}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,39),40,102,95,50,52,57,49,32,113,117,101,117,101,53,54,54,32,97,114,103,53,54,55,32,118,97,108,53,54,56,32,105,110,105,116,53,54,57,41,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,108,53,56,48,41,0,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,108,53,56,51,32,105,53,56,52,41}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,108,53,55,54,32,105,53,55,55,41}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,108,53,55,51,32,105,53,55,52,41}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,97,108,108,45,116,104,114,101,97,100,115,32,46,32,116,109,112,53,53,54,53,53,55,41,0}; static C_char C_TLS li37[] 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 li38[] C_aligned={C_lihdr(0,0,30),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,53,57,53,41,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,116,104,114,101,97,100,45,117,110,98,108,111,99,107,33,32,116,54,48,48,41,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,14),40,115,117,115,112,101,110,100,32,116,54,49,48,41,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,11),40,103,54,49,54,32,97,54,50,53,41,0,0,0,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,52,53,32,103,54,53,50,54,53,54,41,0,0,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,11),40,103,54,51,51,32,97,54,52,50,41,0,0,0,0,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,51,50,32,103,54,51,57,54,54,48,41,0,0,0,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,49,53,32,103,54,50,50,54,50,55,41,0,0,0,0,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,35),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,54,48,55,41,0,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; /* from g478 */ C_regparm static C_word C_fcall stub482(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); double t1=(double )C_c_double(C_a1); C_r=C_fix((C_word)C_ready_fds_timeout(t0,t1)); return C_r;} /* from g409 */ C_regparm static C_word C_fcall stub414(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 g351 */ C_regparm static C_word C_fcall stub354(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_1749) static void C_fcall f_1749(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1499) static void C_ccall f_1499(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_1834) static void C_ccall f_1834(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_1738) static void C_fcall f_1738(C_word t0,C_word t1,C_word t2) 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_2191) static void C_ccall f_2191(C_word c,C_word *av) C_noret; C_noret_decl(f_2197) static void C_ccall f_2197(C_word c,C_word *av) C_noret; C_noret_decl(f_1690) static void C_ccall f_1690(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_2182) static void C_ccall f_2182(C_word c,C_word *av) C_noret; C_noret_decl(f_2374) static void C_fcall f_2374(C_word t0,C_word t1,C_word t2,C_word t3) 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_1295) static void C_ccall f_1295(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_1580) static void C_ccall f_1580(C_word c,C_word *av) C_noret; C_noret_decl(f_2545) static void C_ccall f_2545(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_2203) static void C_ccall f_2203(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_1281) static void C_ccall f_1281(C_word c,C_word *av) C_noret; C_noret_decl(f_2539) static void C_fcall f_2539(C_word t0,C_word t1) C_noret; C_noret_decl(f_1302) static void C_ccall f_1302(C_word c,C_word *av) C_noret; C_noret_decl(f_1308) static C_word C_fcall f_1308(C_word t0,C_word t1,C_word t2); C_noret_decl(f_2529) static void C_ccall f_2529(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_2446) static void C_fcall f_2446(C_word t0,C_word t1,C_word t2,C_word t3) 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_2439) static void C_ccall f_2439(C_word c,C_word *av) C_noret; C_noret_decl(f_1634) static void C_ccall f_1634(C_word c,C_word *av) C_noret; C_noret_decl(f_2421) static void C_fcall f_2421(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1277) static void C_ccall f_1277(C_word c,C_word *av) C_noret; C_noret_decl(f_1624) static void C_fcall f_1624(C_word t0,C_word t1,C_word t2) 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_2397) static void C_fcall f_2397(C_word t0,C_word t1,C_word t2,C_word t3) 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_1377) static void C_fcall f_1377(C_word t0,C_word t1) C_noret; C_noret_decl(f_2217) static void C_ccall f_2217(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_2211) static void C_ccall f_2211(C_word c,C_word *av) C_noret; C_noret_decl(f_2214) static void C_ccall f_2214(C_word c,C_word *av) C_noret; C_noret_decl(f_1367) static void C_fcall f_1367(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1605) static void C_fcall f_1605(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2287) static void C_fcall f_2287(C_word t0,C_word t1) C_noret; C_noret_decl(f_1911) static void C_ccall f_1911(C_word c,C_word *av) C_noret; C_noret_decl(f_1917) static void C_ccall f_1917(C_word c,C_word *av) C_noret; C_noret_decl(f_1914) static void C_ccall f_1914(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_1551) static void C_ccall f_1551(C_word c,C_word *av) C_noret; C_noret_decl(f_2602) static void C_fcall f_2602(C_word t0,C_word t1,C_word t2) 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_1178) static void C_ccall f_1178(C_word c,C_word *av) 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_1175) static void C_ccall f_1175(C_word c,C_word *av) C_noret; C_noret_decl(f_1420) static void C_ccall f_1420(C_word c,C_word *av) C_noret; C_noret_decl(f_1541) static void C_fcall f_1541(C_word t0,C_word t1,C_word t2) 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_2050) static void C_ccall f_2050(C_word c,C_word *av) C_noret; C_noret_decl(f_2052) static void C_fcall f_2052(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_1164) static void C_ccall f_1164(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_1432) static void C_ccall f_1432(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_1920) static void C_ccall f_1920(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_1929) static void C_ccall f_1929(C_word c,C_word *av) C_noret; C_noret_decl(f_1429) static void C_ccall f_1429(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_1110) static void C_fcall f_1110(C_word t0,C_word t1) C_noret; C_noret_decl(f_2611) static void C_fcall f_2611(C_word t0,C_word t1,C_word t2) 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_983) static void C_ccall f_983(C_word c,C_word *av) C_noret; C_noret_decl(f_1515) static void C_fcall f_1515(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2026) static void C_fcall f_2026(C_word t0,C_word t1) C_noret; C_noret_decl(f_953) static void C_ccall f_953(C_word c,C_word *av) C_noret; C_noret_decl(f_2017) static void C_ccall f_2017(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_word t3) 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_1000) static void C_fcall f_1000(C_word t0,C_word t1) 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_1525) static void C_ccall f_1525(C_word c,C_word *av) C_noret; C_noret_decl(f_2462) static void C_ccall f_2462(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_1672) static void C_ccall f_1672(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(f_1801) static void C_ccall f_1801(C_word c,C_word *av) 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_1804) static void C_ccall f_1804(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(f_992) static void C_ccall f_992(C_word c,C_word *av) C_noret; C_noret_decl(f_2356) static void C_ccall f_2356(C_word c,C_word *av) C_noret; C_noret_decl(f_1871) static void C_ccall f_1871(C_word c,C_word *av) 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_2590) static void C_fcall f_2590(C_word t0,C_word t1,C_word t2) 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_1932) static void C_ccall f_1932(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_2589) static void C_ccall f_2589(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_1356) static void C_ccall f_1356(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_1954) static void C_ccall f_1954(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_1856) static void C_ccall f_1856(C_word c,C_word *av) C_noret; C_noret_decl(f_1347) static void C_fcall f_1347(C_word t0,C_word t1) 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_1343) static void C_ccall f_1343(C_word c,C_word *av) C_noret; C_noret_decl(f_2564) static void C_ccall f_2564(C_word c,C_word *av) C_noret; C_noret_decl(f_2645) static void C_fcall f_2645(C_word t0,C_word t1,C_word t2) 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_2640) static void C_ccall f_2640(C_word c,C_word *av) C_noret; C_noret_decl(f_2301) static void C_ccall f_2301(C_word c,C_word *av) C_noret; C_noret_decl(f_2303) static void C_fcall f_2303(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2621) static void C_ccall f_2621(C_word c,C_word *av) C_noret; C_noret_decl(f_1969) static void C_fcall f_1969(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2655) static void C_ccall f_2655(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_1098) static void C_ccall f_1098(C_word c,C_word *av) C_noret; C_noret_decl(f_2161) static void C_ccall f_2161(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_2635) static void C_ccall f_2635(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_1574) static void C_fcall f_1574(C_word t0,C_word t1) C_noret; C_noret_decl(f_1577) static void C_ccall f_1577(C_word c,C_word *av) C_noret; C_noret_decl(f_2500) static void C_ccall f_2500(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_1718) static void C_ccall f_1718(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(trf_1749) static void C_ccall trf_1749(C_word c,C_word *av) C_noret; static void C_ccall trf_1749(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1749(t0,t1,t2);} C_noret_decl(trf_1738) static void C_ccall trf_1738(C_word c,C_word *av) C_noret; static void C_ccall trf_1738(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1738(t0,t1,t2);} 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_2374) static void C_ccall trf_2374(C_word c,C_word *av) C_noret; static void C_ccall trf_2374(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2374(t0,t1,t2,t3);} C_noret_decl(trf_2539) static void C_ccall trf_2539(C_word c,C_word *av) C_noret; static void C_ccall trf_2539(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2539(t0,t1);} C_noret_decl(trf_2446) static void C_ccall trf_2446(C_word c,C_word *av) C_noret; static void C_ccall trf_2446(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2446(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_2421) static void C_ccall trf_2421(C_word c,C_word *av) C_noret; static void C_ccall trf_2421(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2421(t0,t1,t2);} C_noret_decl(trf_1624) static void C_ccall trf_1624(C_word c,C_word *av) C_noret; static void C_ccall trf_1624(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1624(t0,t1,t2);} C_noret_decl(trf_2397) static void C_ccall trf_2397(C_word c,C_word *av) C_noret; static void C_ccall trf_2397(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2397(t0,t1,t2,t3);} 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_1367) static void C_ccall trf_1367(C_word c,C_word *av) C_noret; static void C_ccall trf_1367(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1367(t0,t1,t2,t3);} C_noret_decl(trf_1605) static void C_ccall trf_1605(C_word c,C_word *av) C_noret; static void C_ccall trf_1605(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1605(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[1]; C_word t1=av[0]; f_2287(t0,t1);} C_noret_decl(trf_2602) static void C_ccall trf_2602(C_word c,C_word *av) C_noret; static void C_ccall trf_2602(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2602(t0,t1,t2);} 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_1541) static void C_ccall trf_1541(C_word c,C_word *av) C_noret; static void C_ccall trf_1541(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1541(t0,t1,t2);} C_noret_decl(trf_2052) static void C_ccall trf_2052(C_word c,C_word *av) C_noret; static void C_ccall trf_2052(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_2052(t0,t1,t2,t3,t4);} 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_2611) static void C_ccall trf_2611(C_word c,C_word *av) C_noret; static void C_ccall trf_2611(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2611(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);} C_noret_decl(trf_1515) static void C_ccall trf_1515(C_word c,C_word *av) C_noret; static void C_ccall trf_1515(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1515(t0,t1,t2);} C_noret_decl(trf_2026) static void C_ccall trf_2026(C_word c,C_word *av) C_noret; static void C_ccall trf_2026(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2026(t0,t1);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2081(t0,t1,t2,t3);} 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_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_2590) static void C_ccall trf_2590(C_word c,C_word *av) C_noret; static void C_ccall trf_2590(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2590(t0,t1,t2);} C_noret_decl(trf_1347) static void C_ccall trf_1347(C_word c,C_word *av) C_noret; static void C_ccall trf_1347(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1347(t0,t1);} C_noret_decl(trf_2645) static void C_ccall trf_2645(C_word c,C_word *av) C_noret; static void C_ccall trf_2645(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2645(t0,t1,t2);} C_noret_decl(trf_2303) static void C_ccall trf_2303(C_word c,C_word *av) C_noret; static void C_ccall trf_2303(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2303(t0,t1,t2);} C_noret_decl(trf_1969) static void C_ccall trf_1969(C_word c,C_word *av) C_noret; static void C_ccall trf_1969(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1969(t0,t1,t2);} C_noret_decl(trf_1574) static void C_ccall trf_1574(C_word c,C_word *av) C_noret; static void C_ccall trf_1574(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1574(t0,t1);} /* g365 in loop in k1869 in k990 in loop1 in k981 in schedule */ static void C_fcall f_1749(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_1749,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[18])); 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[19])); 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[20]); 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_1792,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* scheduler.scm:412: open-output-string */ t11=*((C_word*)lf[28]+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);}}} /* k1497 in for-each-loop258 in thread-kill! */ static void C_ccall f_1499(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1499,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* f_2491 in all-threads */ 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=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_2491,6,av);} a=C_alloc(3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_cons(&a,2,t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k1832 in loop in k1869 in k990 in loop1 in k981 in schedule */ static void C_ccall f_1834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_1834,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; t3=((C_word*)((C_word*)t0)[3])[1]; t4=stub414(C_SCHEME_UNDEFINED,((C_word*)t0)[4],t2,t3); t5=((C_word*)t0)[5]; t6=C_u_i_cdr(t5); /* scheduler.scm:417: loop */ t7=((C_word*)((C_word*)t0)[6])[1]; f_1738(t7,((C_word*)t0)[7],t6);} /* k1692 in default-exception-handler */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_1694,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_1700,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* scheduler.scm:380: ##sys#thread-kill! */ t4=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* loop in k1869 in k990 in loop1 in k981 in schedule */ static void C_fcall f_1738(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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_1738,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_1749,a[2]=t6,a[3]=t8,a[4]=t4,a[5]=((C_word)li3),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_1834,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_1846,a[2]=t15,a[3]=t9,a[4]=((C_word)li4),tmp=(C_word)a,a+=5,tmp)); t17=((C_word*)t15)[1]; f_1846(t17,t13,t12);}} /* for-each-loop364 in loop in k1869 in k990 in loop1 in k981 in schedule */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1846,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_1856,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:392: g365 */ t5=((C_word*)t0)[3]; f_1749(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);}}} /* k2189 in k2186 in k2180 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_2191,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2194,a[2]=((C_word*)t0)[2],a[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:493: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[29]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2195 in k2192 in k2189 in k2186 in k2180 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ static void C_ccall f_2197(C_word c,C_word *av){ C_word tmp; C_word t0=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_2197,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2200,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scheduler.scm:493: ##sys#write-char-0 */ t3=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#default-exception-handler */ static void C_ccall f_1690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1690,3,av);} a=C_alloc(10); t3=*((C_word*)lf[1]+1); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1694,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[37]+1); t6=C_slot(*((C_word*)lf[37]+1),C_fix(1)); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1714,a[2]=t7,a[3]=t2,a[4]=((C_word)li25),tmp=(C_word)a,a+=5,tmp); t9=C_i_setslot(*((C_word*)lf[37]+1),C_fix(1),t8); /* scheduler.scm:376: ##sys#thread-unblock! */ t10=*((C_word*)lf[38]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t4; av2[2]=*((C_word*)lf[37]+1); ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ /* scheduler.scm:378: ##sys#show-exception-warning */ t5=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[54]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k2192 in k2189 in k2186 in k2180 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_2194,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2197,a[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:493: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2180 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ static void C_ccall f_2182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_2182,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2188,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:493: ##sys#print */ t6=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[30]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* loop in all-threads */ static void C_fcall f_2374(C_word t0,C_word t1,C_word 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_2374,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_2390,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:533: cns */ t9=((C_word*)t0)[3];{ C_word av2[6]; av2[0]=t9; av2[1]=t6; av2[2]=lf[8]; 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_2397,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=((C_word)li34),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_2397(t7,t1,*((C_word*)lf[11]+1),t3);}} /* k2186 in k2180 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ 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); t3=C_u_i_car(((C_word*)t0)[6]); /* scheduler.scm:493: ##sys#print */ t4=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1294 in interrupt-hook */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1295,2,av);} /* scheduler.scm:271: oldhook */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1596 in k1578 in k1575 in k1572 in k1566 in thread-kill! */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1598,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k1578 in k1575 in k1572 in k1566 in thread-kill! */ 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 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_1580,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_1598,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; /* Re-use our own argvector */ 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_1605,a[2]=((C_word*)t0)[2],a[3]=((C_word)li19),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_1624,a[2]=t10,a[3]=t8,a[4]=((C_word)li20),tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_1624(t12,t7,t6);}} /* k2543 in k2540 in k2537 in thread-unblock! */ static void C_ccall f_2545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2545,2,av);} /* scheduler.scm:574: ##sys#thread-basic-unblock! */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2540 in k2537 in thread-unblock! */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2542,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2545,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scheduler.scm:573: ##sys#clear-i/o-state-for-thread! */ f_2287(t2,((C_word*)t0)[3]);} /* k2201 in k2198 in k2195 in k2192 in k2189 in k2186 in k2180 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ static void C_ccall f_2203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2203,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_halt(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2198 in k2195 in k2192 in k2189 in k2186 in k2180 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2200,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2203,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scheduler.scm:493: get-output-string */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1279 in interrupt-hook */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1281,2,av);} /* scheduler.scm:273: oldhook */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2537 in thread-unblock! */ static void C_fcall f_2539(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_2539,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2542,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scheduler.scm:572: ##sys#remove-from-timeout-list */ t3=*((C_word*)lf[17]+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);}}} /* ##sys#remove-from-timeout-list */ static void C_ccall f_1302(C_word c,C_word *av){ C_word tmp; C_word 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_1302,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1308,a[2]=t2,a[3]=((C_word)li14),tmp=(C_word)a,a+=4,tmp); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_1308(t3,lf[10],C_SCHEME_FALSE) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in remove-from-timeout-list */ static C_word C_fcall f_1308(C_word t0,C_word t1,C_word t2){ C_word tmp; 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_mutate2(&lf[10] /* (set! ##sys#timeout-list ...) */,t4); return(t7);}} else{ t9=t4; t10=t1; t1=t9; t2=t10; goto loop;}}} /* ##sys#thread-unblock! */ 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; 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_2529,3,av);} a=C_alloc(4); t3=C_slot(t2,C_fix(3)); t4=C_eqp(lf[42],t3); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2539,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t4)){ t6=t5; f_2539(t6,t4);} else{ t6=C_slot(t2,C_fix(3)); t7=t5; f_2539(t7,C_eqp(lf[61],t6));}} /* k1653 in k1566 in thread-kill! */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1655,2,av);} t2=((C_word*)t0)[2]; f_1574(t2,C_i_setslot(((C_word*)t0)[3],C_fix(2),t1));} /* loop in loop in loop in all-threads */ static void C_fcall f_2446(C_word t0,C_word t1,C_word 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_2446,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_2462,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:543: cns */ t11=((C_word*)t0)[3];{ C_word av2[6]; av2[0]=t11; av2[1]=t6; av2[2]=lf[58]; 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);}}} /* for-each-loop615 in k2587 in kill-other-threads */ static void C_fcall f_2668(C_word t0,C_word t1,C_word 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_2668,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_2678,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:593: g616 */ t5=((C_word*)t0)[3]; f_2590(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);}}} /* k2437 in loop in loop in loop in all-threads */ static void C_ccall f_2439(C_word c,C_word *av){ C_word tmp; C_word 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_2439,2,av);} /* scheduler.scm:540: cns */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[57]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k1632 in for-each-loop306 in k1578 in k1575 in k1572 in k1566 in thread-kill! */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1634,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1624(t3,((C_word*)t0)[4],t2);} /* loop in loop in loop in all-threads */ static void C_fcall f_2421(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_2421,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_2439,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:540: loop */ t9=t5; t10=t7; t1=t9; t2=t10; goto loop;}} /* ##sys#interrupt-hook */ static void C_ccall f_1277(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1277,4,av);} a=C_alloc(12); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1281,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[1]+1); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1295,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word)li12),tmp=(C_word)a,a+=6,tmp); t8=C_i_setslot(*((C_word*)lf[1]+1),C_fix(1),t7); /* scheduler.scm:272: ##sys#schedule */ t9=*((C_word*)lf[0]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ /* scheduler.scm:273: oldhook */ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* for-each-loop306 in k1578 in k1575 in k1572 in k1566 in thread-kill! */ static void C_fcall f_1624(C_word t0,C_word t1,C_word 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_1624,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_1634,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:350: g307 */ t5=((C_word*)t0)[3]; f_1605(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);}}} /* k2388 in loop in all-threads */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2390,2,av);} /* scheduler.scm:533: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2374(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* loop in loop in all-threads */ static void C_fcall f_2397(C_word t0,C_word t1,C_word 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_2397,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_2416,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_2421,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t7,a[5]=t13,a[6]=((C_word)li32),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_2421(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_2446,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=((C_word)li33),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_2446(t7,t1,lf[10],t3);}} /* k2414 in loop in loop in all-threads */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2416,2,av);} /* scheduler.scm:536: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2397(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k1375 in loop in k1345 in thread-block-for-timeout! */ static void C_fcall f_1377(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_1377,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_mutate2(&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:301: loop */ t3=((C_word*)((C_word*)t0)[7])[1]; f_1367(t3,((C_word*)t0)[6],t2,((C_word*)t0)[5]);}} /* k2215 in k2212 in k2209 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ static void C_ccall f_2217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2217,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scheduler.scm:498: loop2 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2081(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5]);} /* k2676 in for-each-loop615 in k2587 in kill-other-threads */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_2678,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2668(t3,((C_word*)t0)[4],t2);} /* k2209 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ static void C_ccall f_2211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2211,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2214,a[2]=((C_word*)t0)[2],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:496: ##sys#remove-from-timeout-list */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2214(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:499: loop2 */ t5=((C_word*)((C_word*)t0)[3])[1]; f_2081(t5,((C_word*)t0)[4],t3,t4);}} /* k2212 in k2209 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ static void C_ccall f_2214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2214,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2217,a[2]=((C_word*)t0)[2],a[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:497: ##sys#thread-basic-unblock! */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in k1345 in thread-block-for-timeout! */ static void C_fcall f_1367(C_word t0,C_word 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_1367,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_1377,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_1377(t6,t4);} else{ t6=C_u_i_caar(t2); t7=t5; f_1377(t7,C_flonum_lessp(((C_word*)t0)[2],t6));}} /* g307 in k1578 in k1575 in k1572 in k1566 in thread-kill! */ static void C_fcall f_1605(C_word 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_1605,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:354: ##sys#thread-basic-unblock! */ t5=*((C_word*)lf[16]+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);}}} /* ##sys#clear-i/o-state-for-thread! */ static void C_fcall f_2287(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_2287,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_2301,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_2303,a[2]=t6,a[3]=t2,a[4]=t9,a[5]=((C_word)li29),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_2303(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);}}} /* k1909 in k1903 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ static void C_ccall f_1911(C_word c,C_word *av){ C_word tmp; C_word t0=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_1911,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1914,a[2]=((C_word*)t0)[2],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:425: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1915 in k1912 in k1909 in k1903 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ static void C_ccall f_1917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1917,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1920,a[2]=((C_word*)t0)[2],a[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:425: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1912 in k1909 in k1903 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ static void C_ccall f_1914(C_word c,C_word *av){ C_word tmp; C_word t0=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_1914,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1917,a[2]=((C_word*)t0)[2],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:425: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[26]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2599 in k2587 in kill-other-threads */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_2601,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2602,a[2]=((C_word*)t0)[2],a[3]=((C_word)li43),tmp=(C_word)a,a+=4,tmp); t3=*((C_word*)lf[11]+1); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2635,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_2645,a[2]=t6,a[3]=t2,a[4]=((C_word)li44),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_2645(t8,t4,*((C_word*)lf[11]+1));} /* k1549 in for-each-loop258 in thread-kill! */ static void C_ccall f_1551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1551,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1541(t3,((C_word*)t0)[4],t2);} /* g633 in k2599 in k2587 in kill-other-threads */ static void C_fcall f_2602(C_word t0,C_word t1,C_word 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_2602,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_2611,a[2]=t6,a[3]=t3,a[4]=((C_word)li42),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_2611(t8,t1,t4);} /* k1903 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ 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 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_1905,2,av);} a=C_alloc(8); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1911,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:425: ##sys#print */ t6=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[27]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* ##sys#add-to-ready-queue */ static void C_ccall f_1178(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1178,3,av);} a=C_alloc(3); t3=C_i_setslot(t2,C_fix(3),lf[8]); t4=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST); t5=C_eqp(C_SCHEME_END_OF_LIST,lf[13]); if(C_truep(t5)){ t6=C_mutate2(&lf[13] /* (set! ready-queue-head ...) */,t4); t7=C_mutate2(&lf[14] /* (set! ready-queue-tail ...) */,t4); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t6=C_i_setslot(lf[14],C_fix(1),t4); t7=C_mutate2(&lf[14] /* (set! ready-queue-tail ...) */,t4); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k1002 in loop2 in k993 in k990 in loop1 in k981 in schedule */ 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,1)))){ C_save_and_reclaim_args((void *)trf_1004,2,t0,t1);} if(C_truep(t1)){ t2=C_slot(t1,C_fix(3)); t3=C_eqp(t2,lf[8]); if(C_truep(t3)){ t4=((C_word*)t0)[2]; t5=t1; t6=C_mutate2((C_word*)lf[1]+1 /* (set! ##sys#current-thread ...) */,t5); t7=C_i_setslot(t5,C_fix(3),lf[9]); t8=C_slot(t5,C_fix(5)); t9=C_slot(t8,C_fix(0)); t10=C_mutate2((C_word*)lf[2]+1 /* (set! ##sys#dynamic-winds ...) */,t9); t11=C_slot(t8,C_fix(1)); t12=C_mutate2((C_word*)lf[3]+1 /* (set! ##sys#standard-input ...) */,t11); t13=C_slot(t8,C_fix(2)); t14=C_mutate2((C_word*)lf[4]+1 /* (set! ##sys#standard-output ...) */,t13); t15=C_slot(t8,C_fix(3)); t16=C_mutate2((C_word*)lf[5]+1 /* (set! ##sys#standard-error ...) */,t15); t17=C_slot(t8,C_fix(4)); t18=C_mutate2((C_word*)lf[6]+1 /* (set! ##sys#current-exception-handler ...) */,t17); t19=C_slot(t8,C_fix(5)); t20=C_mutate2((C_word*)lf[7]+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:153: g122 */ t24=t23;{ C_word av2[2]; av2[0]=t24; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t24+1)))(2,av2);}} else{ /* scheduler.scm:220: loop2 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1000(t4,((C_word*)t0)[2]);}} else{ 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:218: loop1 */ t2=((C_word*)((C_word*)t0)[4])[1]; f_988(t2,((C_word*)t0)[2]);}} else{ /* scheduler.scm:218: loop1 */ t2=((C_word*)((C_word*)t0)[4])[1]; f_988(t2,((C_word*)t0)[2]);}}} /* ##sys#ready-queue */ static void C_ccall f_1175(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1175,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[13]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1418 in thread-block-for-timeout! */ static void C_ccall f_1420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1420,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1426,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); /* scheduler.scm:293: ##sys#print */ t6=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[43]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* for-each-loop258 in thread-kill! */ static void C_fcall f_1541(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_1541,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_1551,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_1499,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_1515,a[2]=t13,a[3]=((C_word)li21),tmp=(C_word)a,a+=4,tmp)); t15=((C_word*)t13)[1]; f_1515(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);}}} /* k2256 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2258,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k2048 in k2024 in k2015 in k990 in loop1 in k981 in schedule */ static void C_ccall f_2050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2050,2,av);} t2=C_mutate2((C_word*)lf[11]+1 /* (set! ##sys#fd-list ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ static void C_fcall f_2052(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: if(C_unlikely(!C_demand(C_calculate_demand(13,0,4)))){ C_save_and_reclaim_args((void *)trf_2052,5,t0,t1,t2,t3,t4);} a=C_alloc(13); t5=C_i_zerop(t2); t6=(C_truep(t5)?t5:C_i_nullp(t4)); if(C_truep(t6)){ t7=t4; t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=C_u_i_car(t4); t8=t7; t9=C_u_i_car(t8); t10=t9; t11=C_fd_input_ready(t10,t3); t12=C_fd_output_ready(t10,t3); t13=(C_truep(t11)?t11:t12); if(C_truep(t13)){ t14=C_u_i_cdr(t8); 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|10,a[1]=(C_word)f_2081,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=t10,a[7]=t16,a[8]=t11,a[9]=t12,a[10]=((C_word)li1),tmp=(C_word)a,a+=11,tmp)); t18=((C_word*)t16)[1]; f_2081(t18,t1,t14,C_SCHEME_END_OF_LIST);} else{ t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2258,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t15=C_a_i_plus(&a,2,t3,C_fix(1)); t16=t4; t17=C_u_i_cdr(t16); /* scheduler.scm:500: loop */ t19=t14; t20=t2; t21=t15; t22=t17; t1=t19; t2=t20; t3=t21; t4=t22; goto loop;}}} /* ##sys#force-primordial */ static void C_ccall f_1164(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1164,2,av);} t2=C_i_set_i_slot(*((C_word*)lf[37]+1),C_fix(13),C_SCHEME_FALSE); /* scheduler.scm:225: ##sys#thread-unblock! */ t3=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=*((C_word*)lf[37]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* ##sys#thread-block-for-termination! */ 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=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_1434,4,av);} a=C_alloc(3); t4=C_slot(t3,C_fix(3)); t5=C_eqp(t4,lf[45]); t6=(C_truep(t5)?t5:C_eqp(t4,lf[46])); if(C_truep(t6)){ t7=C_SCHEME_UNDEFINED; t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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[42]); t11=C_i_set_i_slot(t2,C_fix(13),C_SCHEME_FALSE); t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_i_setslot(t2,C_fix(11),t3); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} /* k1430 in k1427 in k1424 in k1418 in thread-block-for-timeout! */ static void C_ccall f_1432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1432,2,av);} t2=((C_word*)t0)[2]; f_1347(t2,C_halt(t1));} /* k1921 in k1918 in k1915 in k1912 in k1909 in k1903 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ 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,4)))){ 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); /* scheduler.scm:425: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1918 in k1915 in k1912 in k1909 in k1903 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1920,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1923,a[2]=((C_word*)t0)[2],a[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:425: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1924 in k1921 in k1918 in k1915 in k1912 in k1909 in k1903 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1926,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1929,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scheduler.scm:425: ##sys#write-char-0 */ t3=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1927 in k1924 in k1921 in k1918 in k1915 in k1912 in k1909 in k1903 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1929,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1932,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scheduler.scm:425: get-output-string */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1427 in k1424 in k1418 in thread-block-for-timeout! */ static void C_ccall f_1429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1429,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1432,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scheduler.scm:293: get-output-string */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1424 in k1418 in thread-block-for-timeout! */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_1426,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1429,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scheduler.scm:293: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k1108 in loop in loop1 in k981 in schedule */ 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 t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,1)))){ C_save_and_reclaim_args((void *)trf_1110,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=C_u_i_caar(lf[10]); t3=C_a_i_flonum_difference(&a,2,t2,((C_word*)t0)[2]); t4=C_quickflonumtruncate(t3); t5=C_i_fixnum_max(C_fix(0),t4); if(C_truep(C_msleep(t5))){ t6=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_FALSE); t7=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_mk_bool(C_signal_interrupted_p); t7=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t6); t8=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,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);}}} /* for-each-loop645 in g633 in k2599 in k2587 in kill-other-threads */ static void C_fcall f_2611(C_word t0,C_word t1,C_word 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_2611,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_2621,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:594: g646 */ 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);}}} /* loop1 in k981 in schedule */ 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(17,0,3)))){ C_save_and_reclaim_args((void *)trf_988,2,t0,t1);} a=C_alloc(17); 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)li6),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_1061(t7,t2,lf[10]);}} /* k981 in schedule */ 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)li7),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_988(t5,((C_word*)t0)[3]);} /* for-each-loop272 in for-each-loop258 in thread-kill! */ static void C_fcall f_1515(C_word t0,C_word t1,C_word 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_1515,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_1525,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:328: ##sys#thread-unblock! */ t5=*((C_word*)lf[38]+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);}}} /* k2024 in k2015 in k990 in loop1 in k981 in schedule */ static void C_fcall f_2026(C_word t0,C_word t1){ C_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,5)))){ C_save_and_reclaim_args((void *)trf_2026,2,t0,t1);} a=C_alloc(9); t2=(C_truep(((C_word*)t0)[2])?stub482(C_SCHEME_UNDEFINED,((C_word*)t0)[2],t1):stub482(C_SCHEME_UNDEFINED,((C_word*)t0)[3],t1)); t3=C_eqp(C_fix(-1),t2); if(C_truep(t3)){ /* scheduler.scm:459: ##sys#force-primordial */ t4=*((C_word*)lf[15]+1);{ C_word av2[2]; 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_2050,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_2052,a[2]=t6,a[3]=((C_word)li2),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_2052(t8,t4,t2,C_fix(0),*((C_word*)lf[11]+1));} else{ t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* ##sys#schedule */ static void C_ccall f_953(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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_953,2,av);} a=C_alloc(6); t2=*((C_word*)lf[1]+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[1]+1),C_fix(3)); t6=C_slot(*((C_word*)lf[1]+1),C_fix(5)); t7=C_i_setslot(t6,C_fix(0),*((C_word*)lf[2]+1)); t8=C_i_setslot(t6,C_fix(1),*((C_word*)lf[3]+1)); t9=C_i_setslot(t6,C_fix(2),*((C_word*)lf[4]+1)); t10=C_i_setslot(t6,C_fix(3),*((C_word*)lf[5]+1)); t11=C_i_setslot(t6,C_fix(4),*((C_word*)lf[6]+1)); t12=C_i_setslot(t6,C_fix(5),*((C_word*)lf[7]+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[9]); t15=(C_truep(t14)?t14:C_eqp(t5,lf[8])); if(C_truep(t15)){ t16=C_i_set_i_slot(*((C_word*)lf[1]+1),C_fix(13),C_SCHEME_FALSE); /* scheduler.scm:170: ##sys#add-to-ready-queue */ t17=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t17; av2[1]=t13; av2[2]=*((C_word*)lf[1]+1); ((C_proc)(void*)(*((C_word*)t17+1)))(3,av2);}} else{ t16=t13;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=C_SCHEME_UNDEFINED; f_983(2,av2);}}} /* k2015 in k990 in loop1 in k981 in schedule */ static void C_ccall f_2017(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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,2)))){ C_save_and_reclaim((void *)f_2017,2,av);} a=C_alloc(13); t2=C_i_pairp(lf[10]); t3=t2; t4=C_i_pairp(lf[13]); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2026,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=C_a_i_current_milliseconds(&a,1,C_SCHEME_FALSE); t10=C_a_i_flonum_difference(&a,2,t8,t9); t11=t6; f_2026(t11,C_i_flonum_max(lf[31],t10));} else{ t8=t6; f_2026(t8,lf[31]);}} /* loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ static void C_fcall f_2081(C_word t0,C_word t1,C_word 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 *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ C_save_and_reclaim_args((void *)trf_2081,4,t0,t1,t2,t3);} a=C_alloc(15); if(C_truep(C_i_nullp(t2))){ if(C_truep(C_i_nullp(t3))){ t4=C_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1)); t5=C_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)); t6=C_slot(((C_word*)t0)[4],C_fix(1)); /* scheduler.scm:476: loop */ t7=((C_word*)((C_word*)t0)[5])[1]; f_2052(t7,t1,t4,t5,t6);} 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_2120,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1)); t8=C_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)); t9=C_slot(((C_word*)t0)[4],C_fix(1)); /* scheduler.scm:478: loop */ t10=((C_word*)((C_word*)t0)[5])[1]; f_2052(t10,t6,t7,t8,t9);}} 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:484: loop2 */ t23=t1; t24=t9; t25=t3; t1=t23; t2=t24; t3=t25; goto loop;} else{ if(C_truep(C_i_pairp(t7))){ t8=C_u_i_car(t7); t9=C_eqp(((C_word*)t0)[6],t8); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2211,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); t11=C_u_i_cdr(t7); t12=t10; t13=((C_word*)t0)[8]; t14=((C_word*)t0)[9]; t15=t11; t16=C_eqp(t15,C_SCHEME_TRUE); t17=(C_truep(t16)?t16:C_eqp(t15,lf[18])); if(C_truep(t17)){ t18=t12;{ C_word av2[2]; av2[0]=t18; av2[1]=t13; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} else{ t18=C_eqp(t15,C_SCHEME_FALSE); t19=(C_truep(t18)?t18:C_eqp(t15,lf[19])); if(C_truep(t19)){ t20=t12;{ C_word av2[2]; av2[0]=t20; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} else{ t20=C_eqp(t15,lf[20]); if(C_truep(t20)){ t21=t12;{ C_word av2[2]; av2[0]=t21; av2[1]=(C_truep(t13)?t13:t14); ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}} else{ t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1905,a[2]=t12,a[3]=t14,a[4]=t13,a[5]=t15,tmp=(C_word)a,a+=6,tmp); /* scheduler.scm:425: open-output-string */ t22=*((C_word*)lf[28]+1);{ C_word av2[2]; av2[0]=t22; av2[1]=t21; ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}}}}} else{ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2182,a[2]=t1,a[3]=((C_word*)t0)[6],a[4]=t7,tmp=(C_word)a,a+=5,tmp); /* scheduler.scm:493: open-output-string */ t11=*((C_word*)lf[28]+1);{ C_word av2[2]; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} else{ t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2158,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:489: ##sys#remove-from-timeout-list */ t9=*((C_word*)lf[17]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t9=t8;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_2158(2,av2);}}}}}} /* k1808 in k1805 in k1802 in k1799 in k1796 in k1790 in g365 in loop in k1869 in k990 in loop1 in k981 in schedule */ 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(3,c,2)))){ C_save_and_reclaim((void *)f_1810,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1813,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scheduler.scm:412: get-output-string */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1811 in k1808 in k1805 in k1802 in k1799 in k1796 in k1790 in g365 in loop in k1869 in k990 in loop1 in k981 in schedule */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1813,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_halt(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop2 in k993 in k990 in loop1 in k981 in schedule */ 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 *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[13]; if(C_truep(C_i_nullp(lf[13]))){ t4=t2; f_1004(t4,C_SCHEME_FALSE);} else{ t4=C_slot(t3,C_fix(1)); t5=C_mutate2(&lf[13] /* (set! ready-queue-head ...) */,t4); t6=C_eqp(C_SCHEME_END_OF_LIST,t4); if(C_truep(t6)){ t7=lf[14] /* ready-queue-tail */ =C_SCHEME_END_OF_LIST;; t8=C_u_i_car(t3); t9=t2; f_1004(t9,t8);} else{ t7=C_u_i_car(t3); t8=t2; f_1004(t8,t7);}}} /* ##sys#thread-basic-unblock! */ 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=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_1678,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:362: ##sys#add-to-ready-queue */ t5=*((C_word*)lf[36]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k1523 in for-each-loop272 in for-each-loop258 in thread-kill! */ static void C_ccall f_1525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1525,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1515(t3,((C_word*)t0)[4],t2);} /* k2460 in loop in loop in loop in all-threads */ static void C_ccall f_2462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2462,2,av);} /* scheduler.scm:543: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2446(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k1698 in k1692 in default-exception-handler */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1700,2,av);} /* scheduler.scm:381: ##sys#schedule */ t2=*((C_word*)lf[0]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1670 in k1566 in thread-kill! */ static void C_ccall f_1672(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1672,2,av);} t2=((C_word*)t0)[2]; f_1574(t2,C_i_setslot(((C_word*)t0)[3],C_fix(12),t1));} /* 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("scheduler_toplevel")); C_check_nursery_minimum(C_calculate_demand(56,c,5)); if(C_unlikely(!C_demand(C_calculate_demand(56,c,5)))){ C_save_and_reclaim((void*)C_scheduler_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(354))){ C_save(t1); C_rereclaim2(354*sizeof(C_word),1); t1=C_restore;} a=C_alloc(56); C_initialize_lf(lf,65); lf[0]=C_h_intern(&lf[0],12,"\003sysschedule"); lf[1]=C_h_intern(&lf[1],18,"\003syscurrent-thread"); lf[2]=C_h_intern(&lf[2],17,"\003sysdynamic-winds"); lf[3]=C_h_intern(&lf[3],18,"\003sysstandard-input"); lf[4]=C_h_intern(&lf[4],19,"\003sysstandard-output"); lf[5]=C_h_intern(&lf[5],18,"\003sysstandard-error"); lf[6]=C_h_intern(&lf[6],29,"\003syscurrent-exception-handler"); lf[7]=C_h_intern(&lf[7],28,"\003syscurrent-parameter-vector"); lf[8]=C_h_intern(&lf[8],5,"ready"); lf[9]=C_h_intern(&lf[9],7,"running"); lf[11]=C_h_intern(&lf[11],11,"\003sysfd-list"); lf[12]=C_decode_literal(C_heaptop,"\376B\000\000\010deadlock"); lf[15]=C_h_intern(&lf[15],20,"\003sysforce-primordial"); lf[16]=C_h_intern(&lf[16],25,"\003systhread-basic-unblock!"); lf[17]=C_h_intern(&lf[17],28,"\003sysremove-from-timeout-list"); lf[18]=C_h_intern(&lf[18],6,"\000input"); lf[19]=C_h_intern(&lf[19],7,"\000output"); lf[20]=C_h_intern(&lf[20],4,"\000all"); lf[21]=C_h_intern(&lf[21],7,"sprintf"); lf[22]=C_h_intern(&lf[22],17,"get-output-string"); lf[23]=C_h_intern(&lf[23],16,"\003syswrite-char-0"); lf[24]=C_h_intern(&lf[24],9,"\003sysprint"); lf[25]=C_decode_literal(C_heaptop,"\376B\000\000\006, o = "); lf[26]=C_decode_literal(C_heaptop,"\376B\000\000\006 (i = "); lf[27]=C_decode_literal(C_heaptop,"\376B\000\000#fdset-test: invalid i/o direction: "); lf[28]=C_h_intern(&lf[28],18,"open-output-string"); lf[29]=C_decode_literal(C_heaptop,"\376B\000\000\013 (expected "); lf[30]=C_decode_literal(C_heaptop,"\376B\000\0009thread is registered for I/O on unknown file-descriptor: "); lf[31]=C_decode_literal(C_heaptop,"\376U0.0\000"); lf[32]=C_decode_literal(C_heaptop,"\376B\000\000\007 (fd = "); lf[33]=C_decode_literal(C_heaptop,"\376B\000\000%create-fdset: invalid i/o direction: "); lf[34]=C_h_intern(&lf[34],10,"\003syslength"); lf[36]=C_h_intern(&lf[36],22,"\003sysadd-to-ready-queue"); lf[37]=C_h_intern(&lf[37],21,"\003sysprimordial-thread"); lf[38]=C_h_intern(&lf[38],19,"\003systhread-unblock!"); lf[39]=C_h_intern(&lf[39],15,"\003sysready-queue"); lf[40]=C_h_intern(&lf[40],18,"\003sysinterrupt-hook"); lf[41]=C_h_intern(&lf[41],29,"\003systhread-block-for-timeout!"); lf[42]=C_h_intern(&lf[42],7,"blocked"); lf[43]=C_decode_literal(C_heaptop,"\376B\000\0002##sys#thread-block-for-timeout!: invalid timeout: "); lf[44]=C_h_intern(&lf[44],33,"\003systhread-block-for-termination!"); lf[45]=C_h_intern(&lf[45],4,"dead"); lf[46]=C_h_intern(&lf[46],10,"terminated"); lf[47]=C_h_intern(&lf[47],16,"\003systhread-kill!"); lf[48]=C_h_intern(&lf[48],18,"condition-variable"); lf[49]=C_h_intern(&lf[49],8,"\003sysdelq"); lf[50]=C_h_intern(&lf[50],6,"thread"); lf[51]=C_h_intern(&lf[51],29,"\003sysdefault-exception-handler"); lf[52]=C_h_intern(&lf[52],10,"\003syssignal"); lf[53]=C_h_intern(&lf[53],26,"\003sysshow-exception-warning"); lf[54]=C_decode_literal(C_heaptop,"\376B\000\000\011in thread"); lf[55]=C_h_intern(&lf[55],25,"\003systhread-block-for-i/o!"); lf[56]=C_h_intern(&lf[56],15,"\003sysall-threads"); lf[57]=C_h_intern(&lf[57],3,"i/o"); lf[58]=C_h_intern(&lf[58],7,"timeout"); lf[59]=C_h_intern(&lf[59],27,"\003sysfetch-and-clear-threads"); lf[60]=C_h_intern(&lf[60],19,"\003sysrestore-threads"); lf[61]=C_h_intern(&lf[61],8,"sleeping"); lf[62]=C_h_intern(&lf[62],4,"exit"); lf[63]=C_h_intern(&lf[63],22,"\003syskill-other-threads"); lf[64]=C_h_intern(&lf[64],9,"suspended"); C_register_lf2(lf,65,create_ptable());{} t2=C_mutate2((C_word*)lf[0]+1 /* (set! ##sys#schedule ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_953,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[15]+1 /* (set! ##sys#force-primordial ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1164,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t4=lf[13] /* ready-queue-head */ =C_SCHEME_END_OF_LIST;; t5=lf[14] /* ready-queue-tail */ =C_SCHEME_END_OF_LIST;; t6=C_mutate2((C_word*)lf[39]+1 /* (set! ##sys#ready-queue ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1175,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[36]+1 /* (set! ##sys#add-to-ready-queue ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1178,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t8=*((C_word*)lf[40]+1); t9=C_mutate2((C_word*)lf[40]+1 /* (set! ##sys#interrupt-hook ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1277,a[2]=t8,a[3]=((C_word)li13),tmp=(C_word)a,a+=4,tmp)); t10=lf[10] /* ##sys#timeout-list */ =C_SCHEME_END_OF_LIST;; t11=C_mutate2((C_word*)lf[17]+1 /* (set! ##sys#remove-from-timeout-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1302,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[41]+1 /* (set! ##sys#thread-block-for-timeout! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1343,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[44]+1 /* (set! ##sys#thread-block-for-termination! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1434,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[47]+1 /* (set! ##sys#thread-kill! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1564,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[16]+1 /* (set! ##sys#thread-basic-unblock! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1678,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[51]+1 /* (set! ##sys#default-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1690,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); t17=C_set_block_item(lf[11] /* ##sys#fd-list */,0,C_SCHEME_END_OF_LIST); t18=C_mutate2((C_word*)lf[55]+1 /* (set! ##sys#thread-block-for-i/o! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1950,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2(&lf[35] /* (set! ##sys#clear-i/o-state-for-thread! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2287,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2((C_word*)lf[56]+1 /* (set! ##sys#all-threads ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2356,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate2((C_word*)lf[59]+1 /* (set! ##sys#fetch-and-clear-threads ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2500,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate2((C_word*)lf[60]+1 /* (set! ##sys#restore-threads ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2510,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate2((C_word*)lf[38]+1 /* (set! ##sys#thread-unblock! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2529,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp)); t24=*((C_word*)lf[62]+1); t25=C_mutate2((C_word*)lf[63]+1 /* (set! ##sys#kill-other-threads ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2561,a[2]=t24,a[3]=((C_word)li46),tmp=(C_word)a,a+=4,tmp)); t26=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t26; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t26+1)))(2,av2);}} /* k1799 in k1796 in k1790 in g365 in loop in k1869 in k990 in loop1 in k981 in schedule */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1801,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1804,a[2]=((C_word*)t0)[2],a[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:412: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1805 in k1802 in k1799 in k1796 in k1790 in g365 in loop in k1869 in k990 in loop1 in k981 in schedule */ 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(4,c,3)))){ C_save_and_reclaim((void *)f_1807,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1810,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scheduler.scm:412: ##sys#write-char-0 */ t3=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1802 in k1799 in k1796 in k1790 in g365 in loop in k1869 in k990 in loop1 in k981 in schedule */ static void C_ccall f_1804(C_word c,C_word *av){ C_word tmp; C_word t0=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_1804,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1807,a[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:412: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k993 in k990 in loop1 in k981 in schedule */ 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]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li0),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_1000(t5,((C_word*)t0)[3]);} /* k990 in loop1 in k981 in schedule */ 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:209: ##sys#force-primordial */ t3=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; f_995(2,av2);}} else{ t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2017,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1871,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* scheduler.scm:389: ##sys#length */ t7=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}}} /* ##sys#all-threads */ static void C_ccall f_2356(C_word c,C_word *av){ C_word tmp; 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_2356,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_2491,a[2]=((C_word)li31),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_2374,a[2]=t13,a[3]=t5,a[4]=((C_word)li35),tmp=(C_word)a,a+=5,tmp)); t15=((C_word*)t13)[1]; f_2374(t15,t1,lf[13],t9);} /* k1869 in k990 in loop1 in k981 in schedule */ static void C_ccall f_1871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1871,2,av);} a=C_alloc(6); t2=stub354(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_1738,a[2]=t4,a[3]=((C_word)li5),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_1738(t6,((C_word*)t0)[2],*((C_word*)lf[11]+1));} /* loop in loop1 in k981 in schedule */ 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_flonum_greater_or_equal_p(((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:186: ##sys#clear-i/o-state-for-thread! */ f_2287(t9,t6);} else{ t8=C_mutate2(&lf[10] /* (set! ##sys#timeout-list ...) */,t2); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1110,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_nullp(lf[13]))){ 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:206: loop */ t12=t1; t13=t9; t1=t12; t2=t13; goto loop;}}} /* g616 in k2587 in kill-other-threads */ static void C_fcall f_2590(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_2590,3,t0,t1,t2);} t3=C_slot(t2,C_fix(1)); /* scheduler.scm:593: suspend */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; f_2564(3,av2);}} /* k2342 in loop in clear-i/o-state-for-thread! */ 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(3,c,1)))){ C_save_and_reclaim((void *)f_2344,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k1930 in k1927 in k1924 in k1921 in k1918 in k1915 in k1912 in k1909 in k1903 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ static void C_ccall f_1932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1932,2,av);} t2=C_halt(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1790 in g365 in loop in k1869 in k990 in loop1 in k981 in schedule */ 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; 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_1792,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1798,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:412: ##sys#print */ t6=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2587 in kill-other-threads */ static void C_ccall f_2589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2589,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2590,a[2]=((C_word*)t0)[2],a[3]=((C_word)li41),tmp=(C_word)a,a+=4,tmp); t3=lf[10]; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2601,a[2]=((C_word*)t0)[2],a[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_2668,a[2]=t6,a[3]=t2,a[4]=((C_word)li45),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_2668(t8,t4,lf[10]);} /* k1796 in k1790 in g365 in loop in k1869 in k990 in loop1 in k981 in schedule */ 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 *a; 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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1801,a[2]=((C_word*)t0)[2],a[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:412: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1354 in k1345 in thread-block-for-timeout! */ static void C_ccall f_1356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1356,2,av);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(3),lf[42]); 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; /* Re-use our own argvector */ 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);}} /* k2323 in loop in clear-i/o-state-for-thread! */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2325,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1952 in thread-block-for-i/o! */ static void C_ccall f_1954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1954,2,av);} a=C_alloc(3); t2=C_i_setslot(((C_word*)t0)[2],C_fix(3),lf[42]); 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; /* Re-use our own argvector */ 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);}} /* ##sys#thread-block-for-i/o! */ 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=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_1950,5,av);} a=C_alloc(14); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1954,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_1969,a[2]=t3,a[3]=t2,a[4]=t7,a[5]=((C_word)li27),tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_1969(t9,t5,*((C_word*)lf[11]+1));} /* k1854 in for-each-loop364 in loop in k1869 in k990 in loop1 in k981 in schedule */ static void C_ccall f_1856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1856,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1846(t3,((C_word*)t0)[4],t2);} /* k1345 in thread-block-for-timeout! */ static void C_fcall f_1347(C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_1347,2,t0,t1);} a=C_alloc(13); if(C_truep(C_flonum_greaterp(((C_word*)t0)[2],lf[31]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1356,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_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_1367,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=((C_word)li16),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_1367(t6,t2,lf[10],C_SCHEME_FALSE);} 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#kill-other-threads */ 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 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_2561,3,av);} a=C_alloc(13); t3=*((C_word*)lf[1]+1); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2564,a[2]=t3,a[3]=((C_word)li40),tmp=(C_word)a,a+=4,tmp); t5=C_mutate2((C_word*)lf[37]+1 /* (set! ##sys#primordial-thread ...) */,*((C_word*)lf[1]+1)); t6=C_a_i_list1(&a,1,*((C_word*)lf[1]+1)); t7=C_mutate2(&lf[13] /* (set! ready-queue-head ...) */,t6); t8=C_mutate2(&lf[14] /* (set! ready-queue-tail ...) */,lf[13]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2589,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* scheduler.scm:592: suspend */ t10=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=*((C_word*)lf[1]+1); f_2564(3,av2);}} /* ##sys#thread-block-for-timeout! */ static void C_ccall f_1343(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1343,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1347,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_flonump(t3))){ t5=t4; f_1347(t5,C_SCHEME_UNDEFINED);} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1420,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* scheduler.scm:293: open-output-string */ t6=*((C_word*)lf[28]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* suspend in kill-other-threads */ static void C_ccall f_2564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2564,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[64])); t5=C_i_set_i_slot(t2,C_fix(11),C_SCHEME_FALSE); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* for-each-loop632 in k2599 in k2587 in kill-other-threads */ static void C_fcall f_2645(C_word t0,C_word t1,C_word 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_2645,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_2655,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:594: g633 */ t5=((C_word*)t0)[3]; f_2602(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);}}} /* k2118 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2120,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k2638 in k2633 in k2599 in k2587 in kill-other-threads */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2640,2,av);} /* scheduler.scm:598: exit */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2299 in clear-i/o-state-for-thread! */ static void C_ccall f_2301(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2301,2,av);} t2=C_mutate2((C_word*)lf[11]+1 /* (set! ##sys#fd-list ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in clear-i/o-state-for-thread! */ static void C_fcall f_2303(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_2303,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_2325,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t8=C_u_i_cdr(t4); /* scheduler.scm:515: ##sys#delq */ t9=*((C_word*)lf[49]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t7; av2[2]=((C_word*)t0)[3]; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2344,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t8=t2; t9=C_u_i_cdr(t8); /* scheduler.scm:520: loop */ t11=t7; t12=t9; t1=t11; t2=t12; goto loop;}}} /* k2619 in for-each-loop645 in g633 in k2599 in k2587 in kill-other-threads */ static void C_ccall f_2621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2621,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2611(t3,((C_word*)t0)[4],t2);} /* loop in thread-block-for-i/o! */ static void C_fcall f_1969(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_1969,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_mutate2((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:438: loop */ t9=t1; t10=t7; t1=t9; t2=t10; goto loop;}}} /* k2653 in for-each-loop632 in k2599 in k2587 in kill-other-threads */ static void C_ccall f_2655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2655,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2645(t3,((C_word*)t0)[4],t2);} /* k1093 in loop in loop1 in k981 in schedule */ 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:187: ##sys#thread-basic-unblock! */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 schedule */ 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:188: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1061(t4,((C_word*)t0)[4],t3);} /* k2159 in k2156 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ static void C_ccall f_2161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2161,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scheduler.scm:491: loop2 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2081(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5]);} /* ##sys#restore-threads */ 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 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_2510,3,av);} t3=C_slot(t2,C_fix(0)); t4=C_mutate2(&lf[13] /* (set! ready-queue-head ...) */,t3); t5=C_slot(t2,C_fix(1)); t6=C_mutate2(&lf[14] /* (set! ready-queue-tail ...) */,t5); t7=C_slot(t2,C_fix(2)); t8=C_mutate2((C_word*)lf[11]+1 /* (set! ##sys#fd-list ...) */,t7); t9=C_slot(t2,C_fix(3)); t10=C_mutate2(&lf[10] /* (set! ##sys#timeout-list ...) */,t9); t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} /* k2633 in k2599 in k2587 in kill-other-threads */ 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 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_2635,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_2640,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scheduler.scm:597: thunk */ t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k2156 in loop2 in loop in k2024 in k2015 in k990 in loop1 in k981 in schedule */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2158,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2161,a[2]=((C_word*)t0)[2],a[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:490: ##sys#thread-basic-unblock! */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1572 in k1566 in thread-kill! */ static void C_fcall f_1574(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_1574,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1577,a[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:342: ##sys#remove-from-timeout-list */ t3=*((C_word*)lf[17]+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);}} /* k1575 in k1572 in k1566 in thread-kill! */ static void C_ccall f_1577(C_word c,C_word *av){ C_word tmp; C_word t0=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_1577,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1580,a[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:343: ##sys#clear-i/o-state-for-thread! */ f_2287(t2,((C_word*)t0)[2]);} /* ##sys#fetch-and-clear-threads */ static void C_ccall f_2500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_2500,2,av);} a=C_alloc(5); t2=C_a_i_vector4(&a,4,lf[13],lf[14],*((C_word*)lf[11]+1),lf[10]); t3=lf[13] /* ready-queue-head */ =C_SCHEME_END_OF_LIST;; t4=lf[14] /* 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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* a1713 in default-exception-handler */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1714,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1718,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* scheduler.scm:374: ##sys#signal */ t3=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1716 in a1713 in default-exception-handler */ static void C_ccall f_1718(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1718,2,av);} /* scheduler.scm:375: ptx */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#thread-kill! */ 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=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_1564,4,av);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1568,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; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; f_1568(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_1541,a[2]=t8,a[3]=((C_word)li22),tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_1541(t10,t4,t6);}} /* k1566 in thread-kill! */ 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 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_1568,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_1574,a[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[48]))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1655,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=C_slot(t3,C_fix(2)); /* scheduler.scm:339: ##sys#delq */ t7=*((C_word*)lf[49]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ if(C_truep(C_i_structurep(t3,lf[50]))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1672,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=C_slot(t3,C_fix(12)); /* scheduler.scm:341: ##sys#delq */ t7=*((C_word*)lf[49]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t4; f_1574(t6,t5);}}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[132] = { {"f_1749:scheduler_2escm",(void*)f_1749}, {"f_1499:scheduler_2escm",(void*)f_1499}, {"f_2491:scheduler_2escm",(void*)f_2491}, {"f_1834:scheduler_2escm",(void*)f_1834}, {"f_1694:scheduler_2escm",(void*)f_1694}, {"f_1738:scheduler_2escm",(void*)f_1738}, {"f_1846:scheduler_2escm",(void*)f_1846}, {"f_2191:scheduler_2escm",(void*)f_2191}, {"f_2197:scheduler_2escm",(void*)f_2197}, {"f_1690:scheduler_2escm",(void*)f_1690}, {"f_2194:scheduler_2escm",(void*)f_2194}, {"f_2182:scheduler_2escm",(void*)f_2182}, {"f_2374:scheduler_2escm",(void*)f_2374}, {"f_2188:scheduler_2escm",(void*)f_2188}, {"f_1295:scheduler_2escm",(void*)f_1295}, {"f_1598:scheduler_2escm",(void*)f_1598}, {"f_1580:scheduler_2escm",(void*)f_1580}, {"f_2545:scheduler_2escm",(void*)f_2545}, {"f_2542:scheduler_2escm",(void*)f_2542}, {"f_2203:scheduler_2escm",(void*)f_2203}, {"f_2200:scheduler_2escm",(void*)f_2200}, {"f_1281:scheduler_2escm",(void*)f_1281}, {"f_2539:scheduler_2escm",(void*)f_2539}, {"f_1302:scheduler_2escm",(void*)f_1302}, {"f_1308:scheduler_2escm",(void*)f_1308}, {"f_2529:scheduler_2escm",(void*)f_2529}, {"f_1655:scheduler_2escm",(void*)f_1655}, {"f_2446:scheduler_2escm",(void*)f_2446}, {"f_2668:scheduler_2escm",(void*)f_2668}, {"f_2439:scheduler_2escm",(void*)f_2439}, {"f_1634:scheduler_2escm",(void*)f_1634}, {"f_2421:scheduler_2escm",(void*)f_2421}, {"f_1277:scheduler_2escm",(void*)f_1277}, {"f_1624:scheduler_2escm",(void*)f_1624}, {"f_2390:scheduler_2escm",(void*)f_2390}, {"f_2397:scheduler_2escm",(void*)f_2397}, {"f_2416:scheduler_2escm",(void*)f_2416}, {"f_1377:scheduler_2escm",(void*)f_1377}, {"f_2217:scheduler_2escm",(void*)f_2217}, {"f_2678:scheduler_2escm",(void*)f_2678}, {"f_2211:scheduler_2escm",(void*)f_2211}, {"f_2214:scheduler_2escm",(void*)f_2214}, {"f_1367:scheduler_2escm",(void*)f_1367}, {"f_1605:scheduler_2escm",(void*)f_1605}, {"f_2287:scheduler_2escm",(void*)f_2287}, {"f_1911:scheduler_2escm",(void*)f_1911}, {"f_1917:scheduler_2escm",(void*)f_1917}, {"f_1914:scheduler_2escm",(void*)f_1914}, {"f_2601:scheduler_2escm",(void*)f_2601}, {"f_1551:scheduler_2escm",(void*)f_1551}, {"f_2602:scheduler_2escm",(void*)f_2602}, {"f_1905:scheduler_2escm",(void*)f_1905}, {"f_1178:scheduler_2escm",(void*)f_1178}, {"f_1004:scheduler_2escm",(void*)f_1004}, {"f_1175:scheduler_2escm",(void*)f_1175}, {"f_1420:scheduler_2escm",(void*)f_1420}, {"f_1541:scheduler_2escm",(void*)f_1541}, {"f_2258:scheduler_2escm",(void*)f_2258}, {"f_2050:scheduler_2escm",(void*)f_2050}, {"f_2052:scheduler_2escm",(void*)f_2052}, {"f_1164:scheduler_2escm",(void*)f_1164}, {"f_1434:scheduler_2escm",(void*)f_1434}, {"f_1432:scheduler_2escm",(void*)f_1432}, {"f_1923:scheduler_2escm",(void*)f_1923}, {"f_1920:scheduler_2escm",(void*)f_1920}, {"f_1926:scheduler_2escm",(void*)f_1926}, {"f_1929:scheduler_2escm",(void*)f_1929}, {"f_1429:scheduler_2escm",(void*)f_1429}, {"f_1426:scheduler_2escm",(void*)f_1426}, {"f_1110:scheduler_2escm",(void*)f_1110}, {"f_2611:scheduler_2escm",(void*)f_2611}, {"f_988:scheduler_2escm",(void*)f_988}, {"f_983:scheduler_2escm",(void*)f_983}, {"f_1515:scheduler_2escm",(void*)f_1515}, {"f_2026:scheduler_2escm",(void*)f_2026}, {"f_953:scheduler_2escm",(void*)f_953}, {"f_2017:scheduler_2escm",(void*)f_2017}, {"f_2081:scheduler_2escm",(void*)f_2081}, {"f_1810:scheduler_2escm",(void*)f_1810}, {"f_1813:scheduler_2escm",(void*)f_1813}, {"f_1000:scheduler_2escm",(void*)f_1000}, {"f_1678:scheduler_2escm",(void*)f_1678}, {"f_1525:scheduler_2escm",(void*)f_1525}, {"f_2462:scheduler_2escm",(void*)f_2462}, {"f_1700:scheduler_2escm",(void*)f_1700}, {"f_1672:scheduler_2escm",(void*)f_1672}, {"toplevel:scheduler_2escm",(void*)C_scheduler_toplevel}, {"f_1801:scheduler_2escm",(void*)f_1801}, {"f_1807:scheduler_2escm",(void*)f_1807}, {"f_1804:scheduler_2escm",(void*)f_1804}, {"f_995:scheduler_2escm",(void*)f_995}, {"f_992:scheduler_2escm",(void*)f_992}, {"f_2356:scheduler_2escm",(void*)f_2356}, {"f_1871:scheduler_2escm",(void*)f_1871}, {"f_1061:scheduler_2escm",(void*)f_1061}, {"f_2590:scheduler_2escm",(void*)f_2590}, {"f_2344:scheduler_2escm",(void*)f_2344}, {"f_1932:scheduler_2escm",(void*)f_1932}, {"f_1792:scheduler_2escm",(void*)f_1792}, {"f_2589:scheduler_2escm",(void*)f_2589}, {"f_1798:scheduler_2escm",(void*)f_1798}, {"f_1356:scheduler_2escm",(void*)f_1356}, {"f_2325:scheduler_2escm",(void*)f_2325}, {"f_1954:scheduler_2escm",(void*)f_1954}, {"f_1950:scheduler_2escm",(void*)f_1950}, {"f_1856:scheduler_2escm",(void*)f_1856}, {"f_1347:scheduler_2escm",(void*)f_1347}, {"f_2561:scheduler_2escm",(void*)f_2561}, {"f_1343:scheduler_2escm",(void*)f_1343}, {"f_2564:scheduler_2escm",(void*)f_2564}, {"f_2645:scheduler_2escm",(void*)f_2645}, {"f_2120:scheduler_2escm",(void*)f_2120}, {"f_2640:scheduler_2escm",(void*)f_2640}, {"f_2301:scheduler_2escm",(void*)f_2301}, {"f_2303:scheduler_2escm",(void*)f_2303}, {"f_2621:scheduler_2escm",(void*)f_2621}, {"f_1969:scheduler_2escm",(void*)f_1969}, {"f_2655:scheduler_2escm",(void*)f_2655}, {"f_1095:scheduler_2escm",(void*)f_1095}, {"f_1098:scheduler_2escm",(void*)f_1098}, {"f_2161:scheduler_2escm",(void*)f_2161}, {"f_2510:scheduler_2escm",(void*)f_2510}, {"f_2635:scheduler_2escm",(void*)f_2635}, {"f_2158:scheduler_2escm",(void*)f_2158}, {"f_1574:scheduler_2escm",(void*)f_1574}, {"f_1577:scheduler_2escm",(void*)f_1577}, {"f_2500:scheduler_2escm",(void*)f_2500}, {"f_1714:scheduler_2escm",(void*)f_1714}, {"f_1718:scheduler_2escm",(void*)f_1718}, {"f_1564:scheduler_2escm",(void*)f_1564}, {"f_1568:scheduler_2escm",(void*)f_1568}, {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| for-each 6 S| ##sys#for-each 1 S| sprintf 4 o|eliminated procedure checks: 126 o|specializations: o| 1 (fpmax float float) o| 10 (eqv? * (not float)) o| 4 (##sys#check-output-port * * *) o| 3 (car pair) o| 20 (cdr pair) o| 4 (cdar (pair pair *)) (o e)|safe calls: 186 (o e)|assignments to immediate values: 12 o|Removed `not' forms: 5 o|contracted procedure: k1008 o|inlining procedure: k1005 o|contracted procedure: "(scheduler.scm:219) switch120" o|contracted procedure: "(scheduler.scm:158) restore-thread-state-buffer" o|inlining procedure: k1005 o|contracted procedure: "(scheduler.scm:214) remove-from-ready-queue" o|contracted procedure: k1203 o|inlining procedure: k1200 o|inlining procedure: k1200 o|propagated global variable: first-pair181 ready-queue-head o|inlining procedure: k1045 o|inlining procedure: k1045 o|contracted procedure: "(scheduler.scm:211) unblock-threads-for-i/o" o|inlining procedure: k2032 o|inlining procedure: k2032 o|inlining procedure: k2054 o|inlining procedure: k2054 o|inlining procedure: k2083 o|inlining procedure: k2083 o|contracted procedure: k2153 o|inlining procedure: k2150 o|contracted procedure: k2176 o|inlining procedure: k2206 o|inlining procedure: k2206 o|contracted procedure: "(scheduler.scm:494) fdset-test" o|inlining procedure: k1875 o|inlining procedure: k1875 o|inlining procedure: k1893 o|substituted constant variable: a1907 o|substituted constant variable: a1908 o|inlining procedure: k1893 o|substituted constant variable: a1934 o|substituted constant variable: a1939 o|substituted constant variable: a1941 o|substituted constant variable: a1946 o|substituted constant variable: a1948 o|substituted constant variable: a2184 o|substituted constant variable: a2185 o|inlining procedure: k2150 o|contracted procedure: "(scheduler.scm:454) g478479" o|substituted constant variable: a2278 o|contracted procedure: "(scheduler.scm:445) create-fdset" o|inlining procedure: k1740 o|inlining procedure: k1754 o|inlining procedure: k1771 o|inlining procedure: k1771 o|substituted constant variable: a1794 o|substituted constant variable: a1795 o|substituted constant variable: a1815 o|substituted constant variable: a1820 o|substituted constant variable: a1822 o|substituted constant variable: a1827 o|substituted constant variable: a1829 o|inlining procedure: k1754 o|inlining procedure: k1740 o|contracted procedure: "(scheduler.scm:392) g409410" o|inlining procedure: k1848 o|inlining procedure: k1848 o|contracted procedure: "(scheduler.scm:388) g351352" o|inlining procedure: k1063 o|inlining procedure: k1063 o|inlining procedure: k1084 o|inlining procedure: k1084 o|contracted procedure: k1118 o|inlining procedure: k1115 o|inlining procedure: k1115 o|inlining procedure: k1134 o|inlining procedure: k1134 o|contracted procedure: "(scheduler.scm:166) update-thread-state-buffer" o|propagated global variable: ct128 ##sys#current-thread o|inlining procedure: k1186 o|inlining procedure: k1186 o|inlining procedure: k1279 o|propagated global variable: ct205 ##sys#current-thread o|inlining procedure: k1279 o|inlining procedure: k1310 o|inlining procedure: k1310 o|inlining procedure: k1328 o|inlining procedure: k1328 o|inlining procedure: k1348 o|inlining procedure: k1369 o|inlining procedure: k1369 o|inlining procedure: k1348 o|substituted constant variable: a1422 o|substituted constant variable: a1423 o|inlining procedure: k1439 o|inlining procedure: k1439 o|inlining procedure: k1596 o|inlining procedure: k1607 o|inlining procedure: k1607 o|inlining procedure: k1596 o|inlining procedure: k1626 o|inlining procedure: k1626 o|inlining procedure: k1660 o|inlining procedure: k1660 o|contracted procedure: "(scheduler.scm:335) abandon-mutexes" o|inlining procedure: k1477 o|inlining procedure: k1477 o|inlining procedure: k1543 o|contracted procedure: "(scheduler.scm:318) g259266" o|inlining procedure: k1497 o|inlining procedure: k1497 o|inlining procedure: k1517 o|contracted procedure: "(scheduler.scm:325) g273280" o|inlining procedure: k1517 o|inlining procedure: k1543 o|propagated global variable: pt342 ##sys#primordial-thread o|inlining procedure: k1971 o|inlining procedure: k1971 o|inlining procedure: k2289 o|inlining procedure: k2305 o|inlining procedure: k2305 o|inlining procedure: k2326 o|inlining procedure: k2326 o|inlining procedure: k2289 o|inlining procedure: k2376 o|inlining procedure: k2376 o|inlining procedure: k2399 o|inlining procedure: k2423 o|inlining procedure: k2423 o|inlining procedure: k2399 o|inlining procedure: k2448 o|inlining procedure: k2448 o|inlining procedure: k2531 o|inlining procedure: k2531 o|propagated global variable: primordial608 ##sys#current-thread o|inlining procedure: k2613 o|inlining procedure: k2613 o|inlining procedure: k2647 o|inlining procedure: k2647 o|propagated global variable: g639641 ##sys#fd-list o|inlining procedure: k2670 o|inlining procedure: k2670 o|propagated global variable: g622624 ##sys#timeout-list o|propagated global variable: primordial608 ##sys#current-thread o|replaced variables: 261 o|removed binding forms: 179 o|substituted constant variable: r12012692 o|inlining procedure: k1210 o|inlining procedure: k1210 o|inlining procedure: k2269 o|inlining procedure: k2269 o|substituted constant variable: r11162722 o|substituted constant variable: r11352727 o|substituted constant variable: r23062789 o|converted assignments to bindings: (suspend609) o|simplifications: ((let . 1)) o|replaced variables: 20 o|removed binding forms: 288 o|inlining procedure: k1014 o|inlining procedure: k1837 o|replaced variables: 14 o|removed binding forms: 33 o|substituted constant variable: r10152901 o|contracted procedure: k1731 o|simplifications: ((let . 1)) o|replaced variables: 2 o|removed binding forms: 16 o|removed conditional forms: 1 o|removed binding forms: 2 o|simplifications: ((if . 17) (##core#call . 234)) o| call simplifications: o| vector o| list 2 o| ##sys#structure? 2 o| flonum? o| fp> o| fp< o| fx= 2 o| set-cdr! 3 o| equal? o| fp>= o| fxmax o| ##sys#setislot 18 o| not o| caar 7 o| fp- 2 o| fx> o| zero? o| pair? 16 o| car 12 o| cons 15 o| sub1 2 o| add1 3 o| cdr 8 o| null? 25 o| eq? 25 o| ##sys#setslot 29 o| ##sys#slot 53 o|contracted procedure: k975 o|contracted procedure: k1039 o|contracted procedure: k1029 o|contracted procedure: k959 o|contracted procedure: k966 o|contracted procedure: k969 o|contracted procedure: k1249 o|contracted procedure: k1253 o|contracted procedure: k1257 o|contracted procedure: k1261 o|contracted procedure: k1265 o|contracted procedure: k1269 o|contracted procedure: k1273 o|contracted procedure: k1020 o|contracted procedure: k1014 o|contracted procedure: k1219 o|contracted procedure: k1206 o|contracted procedure: k1214 o|contracted procedure: k1048 o|contracted procedure: k2018 o|contracted procedure: k2021 o|contracted procedure: k2029 o|contracted procedure: k2035 o|contracted procedure: k2044 o|contracted procedure: k2057 o|contracted procedure: k2060 o|contracted procedure: k2063 o|contracted procedure: k2066 o|contracted procedure: k2072 o|contracted procedure: k2086 o|contracted procedure: k2092 o|contracted procedure: k2099 o|contracted procedure: k2103 o|contracted procedure: k2107 o|contracted procedure: k2114 o|contracted procedure: k2122 o|contracted procedure: k2126 o|contracted procedure: k2130 o|contracted procedure: k2133 o|contracted procedure: k2136 o|contracted procedure: k2142 o|contracted procedure: k2249 o|contracted procedure: k2245 o|contracted procedure: k2241 o|contracted procedure: k2223 o|contracted procedure: k2235 o|contracted procedure: k1878 o|contracted procedure: k1881 o|contracted procedure: k1887 o|contracted procedure: k1890 o|contracted procedure: k1896 o|contracted procedure: k2167 o|contracted procedure: k2260 o|contracted procedure: k2272 o|contracted procedure: k2275 o|contracted procedure: k2280 o|contracted procedure: k1743 o|contracted procedure: k1746 o|contracted procedure: k1751 o|contracted procedure: k1757 o|contracted procedure: k1764 o|contracted procedure: k1767 o|contracted procedure: k1774 o|contracted procedure: k1777 o|contracted procedure: k1784 o|contracted procedure: k1851 o|contracted procedure: k1861 o|contracted procedure: k1865 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: k1128 o|contracted procedure: k1123 o|contracted procedure: k1131 o|contracted procedure: k1137 o|contracted procedure: k1148 o|contracted procedure: k1151 o|contracted procedure: k1154 o|contracted procedure: k1225 o|propagated global variable: ct128 ##sys#current-thread o|contracted procedure: k1228 o|contracted procedure: k1231 o|contracted procedure: k1234 o|contracted procedure: k1237 o|contracted procedure: k1240 o|contracted procedure: k1166 o|contracted procedure: k1180 o|contracted procedure: k1183 o|contracted procedure: k1190 o|contracted procedure: k1186 o|contracted procedure: k1285 o|contracted procedure: k1288 o|contracted procedure: k1313 o|contracted procedure: k1316 o|contracted procedure: k1319 o|contracted procedure: k1339 o|contracted procedure: k1325 o|contracted procedure: k1351 o|contracted procedure: k1357 o|contracted procedure: k1360 o|contracted procedure: k1372 o|contracted procedure: k1389 o|contracted procedure: k1385 o|contracted procedure: k1397 o|contracted procedure: k1393 o|contracted procedure: k1404 o|contracted procedure: k1411 o|contracted procedure: k1414 o|contracted procedure: k1436 o|contracted procedure: k1442 o|contracted procedure: k1445 o|contracted procedure: k1465 o|contracted procedure: k1461 o|contracted procedure: k1448 o|contracted procedure: k1451 o|contracted procedure: k1454 o|contracted procedure: k1569 o|contracted procedure: k1581 o|contracted procedure: k1584 o|contracted procedure: k1587 o|contracted procedure: k1590 o|contracted procedure: k1593 o|contracted procedure: k1602 o|contracted procedure: k1617 o|contracted procedure: k1610 o|contracted procedure: k1629 o|contracted procedure: k1639 o|contracted procedure: k1643 o|contracted procedure: k1646 o|contracted procedure: k1657 o|contracted procedure: k1663 o|contracted procedure: k1674 o|contracted procedure: k1474 o|contracted procedure: k1480 o|contracted procedure: k1546 o|contracted procedure: k1556 o|contracted procedure: k1560 o|contracted procedure: k1485 o|contracted procedure: k1488 o|contracted procedure: k1491 o|contracted procedure: k1494 o|contracted procedure: k1503 o|contracted procedure: k1520 o|contracted procedure: k1530 o|contracted procedure: k1534 o|contracted procedure: k1680 o|contracted procedure: k1683 o|contracted procedure: k1695 o|contracted procedure: k1704 o|contracted procedure: k1707 o|propagated global variable: pt342 ##sys#primordial-thread o|propagated global variable: pt342 ##sys#primordial-thread o|contracted procedure: k1955 o|contracted procedure: k1958 o|contracted procedure: k1965 o|contracted procedure: k1974 o|contracted procedure: k1982 o|contracted procedure: k1978 o|contracted procedure: k1985 o|contracted procedure: k2009 o|contracted procedure: k1991 o|contracted procedure: k1998 o|contracted procedure: k2352 o|contracted procedure: k2292 o|contracted procedure: k2348 o|contracted procedure: k2295 o|contracted procedure: k2308 o|contracted procedure: k2311 o|contracted procedure: k2314 o|contracted procedure: k2320 o|contracted procedure: k2329 o|contracted procedure: k2333 o|contracted procedure: k2488 o|contracted procedure: k2358 o|contracted procedure: k2482 o|contracted procedure: k2361 o|contracted procedure: k2476 o|contracted procedure: k2364 o|contracted procedure: k2470 o|contracted procedure: k2367 o|contracted procedure: k2379 o|contracted procedure: k2402 o|contracted procedure: k2411 o|contracted procedure: k2426 o|contracted procedure: k2433 o|contracted procedure: k2451 o|contracted procedure: k2464 o|contracted procedure: k2502 o|contracted procedure: k2513 o|contracted procedure: k2517 o|contracted procedure: k2521 o|contracted procedure: k2525 o|contracted procedure: k2557 o|contracted procedure: k2534 o|contracted procedure: k2553 o|contracted procedure: k2575 o|contracted procedure: k2566 o|contracted procedure: k2569 o|contracted procedure: k2583 o|contracted procedure: k2596 o|contracted procedure: k2604 o|contracted procedure: k2616 o|contracted procedure: k2626 o|contracted procedure: k2630 o|contracted procedure: k2650 o|contracted procedure: k2660 o|contracted procedure: k2664 o|contracted procedure: k2673 o|contracted procedure: k2683 o|contracted procedure: k2687 o|propagated global variable: primordial608 ##sys#current-thread o|simplifications: ((let . 41)) o|removed binding forms: 212 o|replaced variables: 73 o|inlining procedure: k962 o|removed binding forms: 28 o|contracted procedure: k978 o|propagated global variable: ct128 ##sys#current-thread o|propagated global variable: ct128 ##sys#current-thread o|removed binding forms: 3 o|replaced variables: 2 o|removed binding forms: 1 o|direct leaf routine/allocation: loop211 0 o|converted assignments to bindings: (loop211) o|simplifications: ((let . 1)) o|customizable procedures: (g616623 for-each-loop615626 g633640 for-each-loop632659 for-each-loop645655 k2537 loop582 loop579 loop575 loop572 loop541 loop463 for-each-loop272283 for-each-loop258291 k1572 g307314 for-each-loop306317 k1345 k1375 loop232 k1108 ##sys#clear-i/o-state-for-thread! loop137 g365372 for-each-loop364405 loop357 k2024 loop2507 loop493 k1002 loop1135 loop2152) o|calls to known targets: 78 o|identified direct recursive calls: f_2081 1 o|identified direct recursive calls: f_2052 1 o|identified direct recursive calls: f_1061 1 o|identified direct recursive calls: f_1308 1 o|identified direct recursive calls: f_1969 1 o|identified direct recursive calls: f_2303 1 o|identified direct recursive calls: f_2421 1 o|fast box initializations: 20 o|fast global references: 27 o|fast global assignments: 22 o|dropping unused closure argument: f_2287 */ /* end of file */ chicken-4.12.0/srfi-1.import.scm0000644000175000017500000000564113052306173016134 0ustar sjamaansjamaan;;;; srfi-1.import.scm - import library for "srfi-1" module ; ; Copyright (c) 2008-2017, 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 'srfi-1 '(alist-cons alist-copy alist-delete alist-delete! any append! append-map append-map! append-reverse append-reverse! assoc break break! car+cdr circular-list circular-list? concatenate concatenate! cons* count delete delete! delete-duplicates delete-duplicates! dotted-list? drop drop-right drop-right! drop-while eighth every fifth filter filter! filter-map find find-tail first fold fold-right for-each fourth iota last last-pair length+ list-copy list-index list-tabulate list= lset-adjoin lset-diff+intersection lset-diff+intersection! lset-difference lset-difference! lset-intersection lset-intersection! lset-union lset-union! lset-xor lset-xor! lset<= lset= make-list map map! map-in-order member ninth not-pair? null-list? pair-fold pair-fold-right pair-for-each partition partition! proper-list? reduce reduce-right remove remove! reverse! second seventh sixth span span! split-at split-at! take take! take-right take-while take-while! tenth third unfold unfold-right unzip1 unzip2 unzip3 unzip4 unzip5 xcons zip)) chicken-4.12.0/srfi-18.import.scm0000644000175000017500000000472113052306173016222 0ustar sjamaansjamaan;;;; srfi-18.import.scm - import library for "srfi-18" module ; ; Copyright (c) 2008-2017, 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 'srfi-18 '(abandoned-mutex-exception? condition-variable-broadcast! condition-variable-signal! condition-variable-name condition-variable-specific condition-variable-specific-set! condition-variable? current-thread current-time join-timeout-exception? make-condition-variable make-mutex make-thread mutex-lock! mutex-name mutex-specific mutex-specific-set! mutex-state mutex-unlock! mutex? raise seconds->time terminated-thread-exception? thread-join! thread-name thread-quantum thread-quantum-set! thread-resume! thread-signal! thread-sleep! thread-specific thread-specific-set! thread-start! thread-state thread-suspend! thread-terminate! thread-wait-for-i/o! thread-yield! thread? time->seconds time? uncaught-exception-reason uncaught-exception?)) chicken-4.12.0/files.import.scm0000644000175000017500000000405113052306173016127 0ustar sjamaansjamaan;;;; files.import.scm - import library for "files" module ; ; Copyright (c) 2008-2017, 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 'files '(delete-file* file-copy file-move make-pathname directory-null? make-absolute-pathname create-temporary-directory create-temporary-file decompose-directory decompose-pathname absolute-pathname? pathname-directory pathname-extension pathname-file pathname-replace-directory pathname-replace-extension pathname-replace-file pathname-strip-directory pathname-strip-extension normalize-pathname)) chicken-4.12.0/setup-api.import.scm0000644000175000017500000000513313052306523016735 0ustar sjamaansjamaan;;;; setup-api.import.scm - GENERATED BY CHICKEN 4.12.0 -*- Scheme -*- (eval '(import scheme chicken foreign irregex utils posix ports extras data-structures srfi-1 srfi-13 files)) (##sys#register-compiled-module 'setup-api (list '(execute . setup-api#execute)) '((standard-extension . setup-api#standard-extension) (host-extension . setup-api#host-extension) (install-extension . setup-api#install-extension) (install-program . setup-api#install-program) (install-script . setup-api#install-script) (setup-verbose-mode . setup-api#setup-verbose-mode) (setup-install-mode . setup-api#setup-install-mode) (deployment-mode . setup-api#deployment-mode) (installation-prefix . setup-api#installation-prefix) (destination-prefix . setup-api#destination-prefix) (runtime-prefix . setup-api#runtime-prefix) (chicken-prefix . setup-api#chicken-prefix) (find-library . setup-api#find-library) (find-header . setup-api#find-header) (program-path . setup-api#program-path) (remove-file* . setup-api#remove-file*) (patch . setup-api#patch) (abort-setup . setup-api#abort-setup) (setup-root-directory . setup-api#setup-root-directory) (create-directory/parents . setup-api#create-directory/parents) (test-compile . setup-api#test-compile) (try-compile . setup-api#try-compile) (run-verbose . setup-api#run-verbose) (extra-features . setup-api#extra-features) (extra-nonfeatures . setup-api#extra-nonfeatures) (copy-file . setup-api#copy-file) (move-file . setup-api#move-file) (sudo-install . setup-api#sudo-install) (keep-intermediates . setup-api#keep-intermediates) (version>=? . setup-api#version>=?) (extension-name-and-version . setup-api#extension-name-and-version) (extension-name . setup-api#extension-name) (extension-version . setup-api#extension-version) (remove-directory . setup-api#remove-directory) (remove-extension . setup-api#remove-extension) (read-info . setup-api#read-info) (register-program . setup-api#register-program) (find-program . setup-api#find-program) (shellpath . setup-api#shellpath) (setup-error-handling . setup-api#setup-error-handling)) (list (cons 'compile (syntax-rules () ((_ exp ...) (run (csc exp ...))))) (cons 'run (syntax-rules () ((_ exp ...) (execute (list `exp ...)))))) (list (cons 'ignore-errors (syntax-rules () ((_ body ...) (handle-exceptions ex #f body ...)))))) ;; END OF FILE chicken-4.12.0/srfi-13.import.c0000644000175000017500000004436613052306544015670 0ustar sjamaansjamaan/* Generated from srfi-13.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: srfi-13.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file srfi-13.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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,18),40,97,50,54,55,32,102,111,114,109,51,32,114,52,32,99,53,41,0,0,0,0,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_250) static void C_ccall f_250(C_word c,C_word *av) C_noret; C_noret_decl(f_244) static void C_ccall f_244(C_word c,C_word *av) C_noret; C_noret_decl(f_241) static void C_ccall f_241(C_word c,C_word *av) C_noret; C_noret_decl(f_247) static void C_ccall f_247(C_word c,C_word *av) C_noret; C_noret_decl(f_290) static void C_ccall f_290(C_word c,C_word *av) C_noret; C_noret_decl(f_293) static void C_ccall f_293(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(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(f_272) static void C_ccall f_272(C_word c,C_word *av) C_noret; C_noret_decl(f_266) static void C_ccall f_266(C_word c,C_word *av) C_noret; C_noret_decl(f_262) static void C_ccall f_262(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; /* k248 in k245 in k242 in k239 */ static void C_ccall f_250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_250,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k242 in k239 */ static void C_ccall f_244(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_244,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_247,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k239 */ static void C_ccall f_241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_241,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_244,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k245 in k242 in k239 */ static void C_ccall f_247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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,5)))){ C_save_and_reclaim((void *)f_247,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_250,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_262,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_266,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_268,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp); /* srfi-13.import.scm:115: ##sys#er-transformer */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[10]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[10]+1); av2[1]=t4; av2[2]=t5; tp(3,av2);}} /* k288 in k270 in a267 in k245 in k242 in k239 */ static void C_ccall f_290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_290,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_293,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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); /* srfi-13.import.scm:124: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[6]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k291 in k288 in k270 in a267 in k245 in k242 in k239 */ static void C_ccall f_293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_293,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_296,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); /* srfi-13.import.scm:125: r */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[5]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k294 in k291 in k288 in k270 in a267 in k245 in k242 in k239 */ 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; C_word t3; C_word t4; 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(30,c,1)))){ C_save_and_reclaim((void *)f_296,2,av);} a=C_alloc(30); t2=C_i_cddr(((C_word*)t0)[2]); if(C_truep(C_i_pairp(t2))){ t3=C_i_caddr(((C_word*)t0)[2]); t4=C_u_i_car(((C_word*)t0)[2]); t5=C_u_i_cdr(((C_word*)t0)[2]); t6=C_u_i_car(t5); t7=C_a_i_list(&a,3,t3,t4,t6); t8=C_a_i_list(&a,4,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]); t9=C_a_i_cons(&a,2,t8,((C_word*)t0)[7]); t10=C_a_i_cons(&a,2,t7,t9); t11=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[9],t10); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t3=C_a_i_list(&a,4,t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[7]); t5=C_a_i_cons(&a,2,((C_word*)t0)[2],t4); t6=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[9],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(950))){ C_save(t1); C_rereclaim2(950*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,11); lf[0]=C_h_intern(&lf[0],20,"let-string-start+end"); lf[1]=C_h_intern(&lf[1],29,"\003sysregister-primitive-module"); lf[2]=C_h_intern(&lf[2],7,"srfi-13"); lf[3]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\024check-substring-spec\376\003\000\000\002\376\001\000\000\010kmp-step\376\003\000\000\002\376\001\000\000\027make-kmp-restart-vecto" "r\376\003\000\000\002\376\001\000\000\024reverse-list->string\376\003\000\000\002\376\001\000\000\014string->list\376\003\000\000\002\376\001\000\000\012string-any\376\003\000\000\002\376\001" "\000\000\024string-append/shared\376\003\000\000\002\376\001\000\000\012string-ci<\376\003\000\000\002\376\001\000\000\013string-ci<=\376\003\000\000\002\376\001\000\000\013string" "-ci<>\376\003\000\000\002\376\001\000\000\012string-ci=\376\003\000\000\002\376\001\000\000\012string-ci>\376\003\000\000\002\376\001\000\000\013string-ci>=\376\003\000\000\002\376\001\000\000\016stri" "ng-compare\376\003\000\000\002\376\001\000\000\021string-compare-ci\376\003\000\000\002\376\001\000\000\022string-concatenate\376\003\000\000\002\376\001\000\000\032strin" "g-concatenate-reverse\376\003\000\000\002\376\001\000\000!string-concatenate-reverse/shared\376\003\000\000\002\376\001\000\000\031string" "-concatenate/shared\376\003\000\000\002\376\001\000\000\017string-contains\376\003\000\000\002\376\001\000\000\022string-contains-ci\376\003\000\000\002\376\001\000" "\000\013string-copy\376\003\000\000\002\376\001\000\000\014string-copy!\376\003\000\000\002\376\001\000\000\014string-count\376\003\000\000\002\376\001\000\000\015string-delete" "\376\003\000\000\002\376\001\000\000\017string-downcase\376\003\000\000\002\376\001\000\000\020string-downcase!\376\003\000\000\002\376\001\000\000\013string-drop\376\003\000\000\002\376\001\000" "\000\021string-drop-right\376\003\000\000\002\376\001\000\000\014string-every\376\003\000\000\002\376\001\000\000\014string-fill!\376\003\000\000\002\376\001\000\000\015string-" "filter\376\003\000\000\002\376\001\000\000\013string-fold\376\003\000\000\002\376\001\000\000\021string-fold-right\376\003\000\000\002\376\001\000\000\017string-for-each\376" "\003\000\000\002\376\001\000\000\025string-for-each-index\376\003\000\000\002\376\001\000\000\014string-index\376\003\000\000\002\376\001\000\000\022string-index-right" "\376\003\000\000\002\376\001\000\000\013string-join\376\003\000\000\002\376\001\000\000\031string-kmp-partial-search\376\003\000\000\002\376\001\000\000\012string-map\376\003\000\000" "\002\376\001\000\000\013string-map!\376\003\000\000\002\376\001\000\000\014string-null\077\376\003\000\000\002\376\001\000\000\012string-pad\376\003\000\000\002\376\001\000\000\020string-pad-" "right\376\003\000\000\002\376\001\000\000\034string-parse-final-start+end\376\003\000\000\002\376\001\000\000\026string-parse-start+end\376\003\000\000\002" "\376\001\000\000\021string-prefix-ci\077\376\003\000\000\002\376\001\000\000\024string-prefix-length\376\003\000\000\002\376\001\000\000\027string-prefix-leng" "th-ci\376\003\000\000\002\376\001\000\000\016string-prefix\077\376\003\000\000\002\376\001\000\000\016string-replace\376\003\000\000\002\376\001\000\000\016string-reverse\376\003\000" "\000\002\376\001\000\000\017string-reverse!\376\003\000\000\002\376\001\000\000\013string-skip\376\003\000\000\002\376\001\000\000\021string-skip-right\376\003\000\000\002\376\001\000\000\021" "string-suffix-ci\077\376\003\000\000\002\376\001\000\000\024string-suffix-length\376\003\000\000\002\376\001\000\000\027string-suffix-length-ci" "\376\003\000\000\002\376\001\000\000\016string-suffix\077\376\003\000\000\002\376\001\000\000\017string-tabulate\376\003\000\000\002\376\001\000\000\013string-take\376\003\000\000\002\376\001\000\000\021" "string-take-right\376\003\000\000\002\376\001\000\000\020string-titlecase\376\003\000\000\002\376\001\000\000\021string-titlecase!\376\003\000\000\002\376\001\000\000\017" "string-tokenize\376\003\000\000\002\376\001\000\000\013string-trim\376\003\000\000\002\376\001\000\000\020string-trim-both\376\003\000\000\002\376\001\000\000\021string-t" "rim-right\376\003\000\000\002\376\001\000\000\015string-unfold\376\003\000\000\002\376\001\000\000\023string-unfold-right\376\003\000\000\002\376\001\000\000\015string-up" "case\376\003\000\000\002\376\001\000\000\016string-upcase!\376\003\000\000\002\376\001\000\000\015string-xcopy!\376\003\000\000\002\376\001\000\000\007string<\376\003\000\000\002\376\001\000\000\010st" "ring<=\376\003\000\000\002\376\001\000\000\010string<>\376\003\000\000\002\376\001\000\000\007string=\376\003\000\000\002\376\001\000\000\007string>\376\003\000\000\002\376\001\000\000\010string>=\376\003\000\000" "\002\376\001\000\000\022substring-spec-ok\077\376\003\000\000\002\376\001\000\000\020substring/shared\376\003\000\000\002\376\001\000\000\012xsubstring\376\377\016"); lf[4]=C_h_intern(&lf[4],22,"\003sysensure-transformer"); lf[5]=C_h_intern(&lf[5],28,"string-parse-final-start+end"); lf[6]=C_h_intern(&lf[6],22,"string-parse-start+end"); lf[7]=C_h_intern(&lf[7],7,"receive"); lf[8]=C_h_intern(&lf[8],16,"\003syscheck-syntax"); lf[9]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\001\000\000\001_"); lf[10]=C_h_intern(&lf[10],18,"\003syser-transformer"); C_register_lf2(lf,11,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_241,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k270 in a267 in k245 in k242 in k239 */ static void C_ccall f_272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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,2)))){ C_save_and_reclaim((void *)f_272,2,av);} a=C_alloc(9); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=C_i_caddr(((C_word*)t0)[2]); t5=t4; t6=C_i_cadddr(((C_word*)t0)[2]); t7=t6; t8=C_i_cddddr(((C_word*)t0)[2]); t9=C_i_car(t8); t10=t9; t11=C_i_cddddr(((C_word*)t0)[2]); t12=C_i_cdr(t11); t13=t12; t14=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_290,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t10,a[6]=t13,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); /* srfi-13.import.scm:123: r */ t15=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t15; av2[1]=t14; av2[2]=lf[7]; ((C_proc)C_fast_retrieve_proc(t15))(3,av2);}} /* k264 in k245 in k242 in k239 */ static void C_ccall f_266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_266,2,av);} /* srfi-13.import.scm:114: ##sys#ensure-transformer */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[4]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[4]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[0]; tp(4,av2);}} /* k260 in k245 in k242 in k239 */ static void C_ccall f_262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_262,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,3,lf[0],C_SCHEME_END_OF_LIST,t1); t3=C_a_i_list(&a,1,t2); /* srfi-13.import.scm:27: ##sys#register-primitive-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1]); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[1]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[2]; av2[3]=lf[3]; av2[4]=t3; tp(5,av2);}} /* a267 in k245 in k242 in k239 */ 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=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,4)))){ C_save_and_reclaim((void *)f_268,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_272,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* srfi-13.import.scm:117: ##sys#check-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[8]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[8]+1); av2[1]=t5; av2[2]=lf[0]; av2[3]=t2; av2[4]=lf[9]; tp(5,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[13] = { {"f_250:srfi_2d13_2eimport_2escm",(void*)f_250}, {"f_244:srfi_2d13_2eimport_2escm",(void*)f_244}, {"f_241:srfi_2d13_2eimport_2escm",(void*)f_241}, {"f_247:srfi_2d13_2eimport_2escm",(void*)f_247}, {"f_290:srfi_2d13_2eimport_2escm",(void*)f_290}, {"f_293:srfi_2d13_2eimport_2escm",(void*)f_293}, {"f_296:srfi_2d13_2eimport_2escm",(void*)f_296}, {"toplevel:srfi_2d13_2eimport_2escm",(void*)C_toplevel}, {"f_272:srfi_2d13_2eimport_2escm",(void*)f_272}, {"f_266:srfi_2d13_2eimport_2escm",(void*)f_266}, {"f_262:srfi_2d13_2eimport_2escm",(void*)f_262}, {"f_268:srfi_2d13_2eimport_2escm",(void*)f_268}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|eliminated procedure checks: 11 o|specializations: o| 1 (cadr (pair * pair)) o| 1 (car pair) (o e)|safe calls: 21 o|inlining procedure: k297 o|inlining procedure: k297 o|replaced variables: 18 o|removed binding forms: 5 o|removed binding forms: 19 o|simplifications: ((##core#call . 21)) o| call simplifications: o| cadr o| cadddr o| car o| cddddr 2 o| cdr o| cddr o| pair? o| caddr 2 o| ##sys#cons 6 o| ##sys#list 5 o|contracted procedure: k256 o|contracted procedure: k252 o|contracted procedure: k273 o|contracted procedure: k276 o|contracted procedure: k279 o|contracted procedure: k355 o|contracted procedure: k282 o|contracted procedure: k351 o|contracted procedure: k285 o|contracted procedure: k347 o|contracted procedure: k300 o|contracted procedure: k323 o|contracted procedure: k311 o|contracted procedure: k319 o|contracted procedure: k315 o|contracted procedure: k307 o|contracted procedure: k343 o|contracted procedure: k339 o|contracted procedure: k335 o|simplifications: ((let . 1)) o|removed binding forms: 19 o|replaced variables: 2 o|removed binding forms: 2 */ /* end of file */ chicken-4.12.0/files.scm0000644000175000017500000003442113052306173014622 0ustar sjamaansjamaan;;;; files.scm - File and pathname operations ; ; Copyright (c) 2008-2017, 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 files) (uses irregex data-structures) (fixnum) (hide chop-pds absolute-pathname-root root-origin root-directory split-directory) (disable-interrupts) (foreign-declare #< #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 EOF )) (include "common-declarations.scm") (register-feature! 'files) (define-foreign-variable strerror c-string "strerror(errno)") ;;; Like `delete-file', but does nothing if the file doesn't exist: (define delete-file* (lambda (file) (and (file-exists? file) (delete-file file)) ) ) ;;; file-copy and file-move : they do what you'd think. (define (file-copy origfile newfile #!optional (clobber #f) (blocksize 1024)) (##sys#check-string origfile 'file-copy) (##sys#check-string newfile 'file-copy) (##sys#check-number blocksize 'file-copy) (unless (and (integer? blocksize) (> blocksize 0)) (##sys#error 'file-copy "invalid blocksize given: not a positive integer" blocksize)) (and (file-exists? newfile) (or clobber (##sys#error 'file-copy "newfile exists but clobber is false" newfile))) (when (directory-exists? origfile) (##sys#error 'file-copy "can not copy directories" origfile)) (let* ((i (open-input-file origfile #: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 (file-move origfile newfile #!optional (clobber #f) (blocksize 1024)) (##sys#check-string origfile 'file-move) (##sys#check-string newfile 'file-move) (##sys#check-number blocksize 'file-move) (unless (and (integer? blocksize) (> blocksize 0)) (##sys#error 'file-move "invalid blocksize given: not a positive integer" blocksize)) (when (directory-exists? origfile) (##sys#error 'file-move "can not move directories" origfile)) (and (file-exists? newfile) (or clobber (##sys#error 'file-move "newfile exists but clobber is false" newfile))) (let* ((i (open-input-file origfile #: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 origfile) l) (begin (write-string s d o) (loop (read-string! blocksize s i) (fx+ d l))))))) ;;; Pathname operations: ;; Platform specific absolute pathname operations: ;; absolute-pathname-root => #f or ( [] ) ;; ;; 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) ) ) ) (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)) (pn (make-pathname (tempdir) (string-append temp-prefix (number->string n 16) "." (##sys#number->string (##sys#fudge 33))) ; PID 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)) (pn (make-pathname (tempdir) (string-append temp-prefix (number->string n 16) "." (##sys#number->string (##sys#fudge 33)))))) ; PID (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) )))))))) ;;; normalize pathname for a particular platform (define normalize-pathname (let ((bldplt (if (eq? (build-platform) '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 => { } ;; 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-4.12.0/Makefile.mingw-msys0000644000175000017500000001002713052302367016562 0ustar sjamaansjamaan# Makefile.mingw - configuration for MinGW (MSYS) -*- Makefile -*- # # Copyright (c) 2008-2017, 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 ifdef SYMBOLGC echo "#define C_COLLECT_ALL_SYMBOLS" >>$@ endif echo "#define C_USE_STD_FEATURE_MACROS" >>$@ cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make chicken-4.12.0/posix.import.c0000644000175000017500000004224013052306544015633 0ustar sjamaansjamaan/* Generated from posix.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: posix.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file posix.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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_199) static void C_ccall f_199(C_word c,C_word *av) C_noret; C_noret_decl(f_208) static void C_ccall f_208(C_word c,C_word *av) C_noret; C_noret_decl(f_205) static void C_ccall f_205(C_word c,C_word *av) C_noret; C_noret_decl(f_202) static void C_ccall f_202(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; /* k197 */ static void C_ccall f_199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_199,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k206 in k203 in k200 in k197 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_208,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k203 in k200 in k197 */ static void C_ccall f_205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_205,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* posix.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; /* Re-use our own argvector */ } 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);}} /* k200 in k197 */ static void C_ccall f_202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(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(2344))){ C_save(t1); C_rereclaim2(2344*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,3); lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module"); lf[1]=C_h_intern(&lf[1],5,"posix"); lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005_exit\376\003\000\000\002\376\001\000\000\024call-with-input-pipe\376\003\000\000\002\376\001\000\000\025call-with-output-pipe\376\003\000\000" "\002\376\001\000\000\020change-directory\376\003\000\000\002\376\001\000\000\021change-directory\052\376\003\000\000\002\376\001\000\000\020change-file-mode\376\003\000\000\002" "\376\001\000\000\021change-file-owner\376\003\000\000\002\376\001\000\000\020close-input-pipe\376\003\000\000\002\376\001\000\000\021close-output-pipe\376\003\000\000\002" "\376\001\000\000\020create-directory\376\003\000\000\002\376\001\000\000\013create-fifo\376\003\000\000\002\376\001\000\000\013create-pipe\376\003\000\000\002\376\001\000\000\016create-" "session\376\003\000\000\002\376\001\000\000\024create-symbolic-link\376\003\000\000\002\376\001\000\000\021current-directory\376\003\000\000\002\376\001\000\000\032curren" "t-effective-group-id\376\003\000\000\002\376\001\000\000\031current-effective-user-id\376\003\000\000\002\376\001\000\000\033current-effecti" "ve-user-name\376\003\000\000\002\376\001\000\000\031get-environment-variables\376\003\000\000\002\376\001\000\000\020current-group-id\376\003\000\000\002\376\001" "\000\000\022current-process-id\376\003\000\000\002\376\001\000\000\017current-user-id\376\003\000\000\002\376\001\000\000\021current-user-name\376\003\000\000\002\376\001" "\000\000\020delete-directory\376\003\000\000\002\376\001\000\000\011directory\376\003\000\000\002\376\001\000\000\012directory\077\376\003\000\000\002\376\001\000\000\020duplicate-fi" "leno\376\003\000\000\002\376\001\000\000\012errno/2big\376\003\000\000\002\376\001\000\000\013errno/acces\376\003\000\000\002\376\001\000\000\013errno/again\376\003\000\000\002\376\001\000\000\012errn" "o/badf\376\003\000\000\002\376\001\000\000\012errno/busy\376\003\000\000\002\376\001\000\000\013errno/child\376\003\000\000\002\376\001\000\000\014errno/deadlk\376\003\000\000\002\376\001\000\000\011e" "rrno/dom\376\003\000\000\002\376\001\000\000\013errno/exist\376\003\000\000\002\376\001\000\000\013errno/fault\376\003\000\000\002\376\001\000\000\012errno/fbig\376\003\000\000\002\376\001\000\000\013" "errno/ilseq\376\003\000\000\002\376\001\000\000\012errno/intr\376\003\000\000\002\376\001\000\000\013errno/inval\376\003\000\000\002\376\001\000\000\010errno/io\376\003\000\000\002\376\001\000\000\013" "errno/isdir\376\003\000\000\002\376\001\000\000\013errno/mfile\376\003\000\000\002\376\001\000\000\013errno/mlink\376\003\000\000\002\376\001\000\000\021errno/nametoolong" "\376\003\000\000\002\376\001\000\000\013errno/nfile\376\003\000\000\002\376\001\000\000\013errno/nodev\376\003\000\000\002\376\001\000\000\013errno/noent\376\003\000\000\002\376\001\000\000\014errno/n" "oexec\376\003\000\000\002\376\001\000\000\013errno/nolck\376\003\000\000\002\376\001\000\000\013errno/nomem\376\003\000\000\002\376\001\000\000\013errno/nospc\376\003\000\000\002\376\001\000\000\013er" "rno/nosys\376\003\000\000\002\376\001\000\000\014errno/notdir\376\003\000\000\002\376\001\000\000\016errno/notempty\376\003\000\000\002\376\001\000\000\013errno/notty\376\003\000\000" "\002\376\001\000\000\012errno/nxio\376\003\000\000\002\376\001\000\000\012errno/perm\376\003\000\000\002\376\001\000\000\012errno/pipe\376\003\000\000\002\376\001\000\000\013errno/range\376\003\000" "\000\002\376\001\000\000\012errno/rofs\376\003\000\000\002\376\001\000\000\013errno/spipe\376\003\000\000\002\376\001\000\000\012errno/srch\376\003\000\000\002\376\001\000\000\020errno/wouldb" "lock\376\003\000\000\002\376\001\000\000\012errno/xdev\376\003\000\000\002\376\001\000\000\013fcntl/dupfd\376\003\000\000\002\376\001\000\000\013fcntl/getfd\376\003\000\000\002\376\001\000\000\013fcnt" "l/getfl\376\003\000\000\002\376\001\000\000\013fcntl/setfd\376\003\000\000\002\376\001\000\000\013fcntl/setfl\376\003\000\000\002\376\001\000\000\005fifo\077\376\003\000\000\002\376\001\000\000\020file-a" "ccess-time\376\003\000\000\002\376\001\000\000\020file-change-time\376\003\000\000\002\376\001\000\000\022file-creation-mode\376\003\000\000\002\376\001\000\000\012file-c" "lose\376\003\000\000\002\376\001\000\000\014file-control\376\003\000\000\002\376\001\000\000\024file-execute-access\077\376\003\000\000\002\376\001\000\000\011file-link\376\003\000\000\002" "\376\001\000\000\011file-lock\376\003\000\000\002\376\001\000\000\022file-lock/blocking\376\003\000\000\002\376\001\000\000\014file-mkstemp\376\003\000\000\002\376\001\000\000\026file-m" "odification-time\376\003\000\000\002\376\001\000\000\011file-open\376\003\000\000\002\376\001\000\000\012file-owner\376\003\000\000\002\376\001\000\000\020file-permission" "s\376\003\000\000\002\376\001\000\000\015file-position\376\003\000\000\002\376\001\000\000\022set-file-position!\376\003\000\000\002\376\001\000\000\011file-read\376\003\000\000\002\376\001\000\000" "\021file-read-access\077\376\003\000\000\002\376\001\000\000\013file-select\376\003\000\000\002\376\001\000\000\011file-size\376\003\000\000\002\376\001\000\000\011file-stat\376\003\000" "\000\002\376\001\000\000\016file-test-lock\376\003\000\000\002\376\001\000\000\015file-truncate\376\003\000\000\002\376\001\000\000\011file-type\376\003\000\000\002\376\001\000\000\013file-un" "lock\376\003\000\000\002\376\001\000\000\012file-write\376\003\000\000\002\376\001\000\000\022file-write-access\077\376\003\000\000\002\376\001\000\000\015fileno/stderr\376\003\000\000\002" "\376\001\000\000\014fileno/stdin\376\003\000\000\002\376\001\000\000\015fileno/stdout\376\003\000\000\002\376\001\000\000\012find-files\376\003\000\000\002\376\001\000\000\012get-groups" "\376\003\000\000\002\376\001\000\000\015get-host-name\376\003\000\000\002\376\001\000\000\004glob\376\003\000\000\002\376\001\000\000\021group-information\376\003\000\000\002\376\001\000\000\021initia" "lize-groups\376\003\000\000\002\376\001\000\000\023local-time->seconds\376\003\000\000\002\376\001\000\000\033local-timezone-abbreviation\376\003\000" "\000\002\376\001\000\000\022map-file-to-memory\376\003\000\000\002\376\001\000\000\015map/anonymous\376\003\000\000\002\376\001\000\000\010map/file\376\003\000\000\002\376\001\000\000\011map/" "fixed\376\003\000\000\002\376\001\000\000\013map/private\376\003\000\000\002\376\001\000\000\012map/shared\376\003\000\000\002\376\001\000\000\032memory-mapped-file-point" "er\376\003\000\000\002\376\001\000\000\023memory-mapped-file\077\376\003\000\000\002\376\001\000\000\020open-input-file\052\376\003\000\000\002\376\001\000\000\017open-input-pi" "pe\376\003\000\000\002\376\001\000\000\021open-output-file\052\376\003\000\000\002\376\001\000\000\020open-output-pipe\376\003\000\000\002\376\001\000\000\013open/append\376\003\000\000" "\002\376\001\000\000\013open/binary\376\003\000\000\002\376\001\000\000\012open/creat\376\003\000\000\002\376\001\000\000\011open/excl\376\003\000\000\002\376\001\000\000\012open/fsync\376\003\000\000" "\002\376\001\000\000\013open/noctty\376\003\000\000\002\376\001\000\000\015open/nonblock\376\003\000\000\002\376\001\000\000\013open/rdonly\376\003\000\000\002\376\001\000\000\011open/rdwr" "\376\003\000\000\002\376\001\000\000\011open/read\376\003\000\000\002\376\001\000\000\011open/sync\376\003\000\000\002\376\001\000\000\011open/text\376\003\000\000\002\376\001\000\000\012open/trunc\376\003\000" "\000\002\376\001\000\000\012open/write\376\003\000\000\002\376\001\000\000\013open/wronly\376\003\000\000\002\376\001\000\000\021parent-process-id\376\003\000\000\002\376\001\000\000\012perm/" "irgrp\376\003\000\000\002\376\001\000\000\012perm/iroth\376\003\000\000\002\376\001\000\000\012perm/irusr\376\003\000\000\002\376\001\000\000\012perm/irwxg\376\003\000\000\002\376\001\000\000\012perm/" "irwxo\376\003\000\000\002\376\001\000\000\012perm/irwxu\376\003\000\000\002\376\001\000\000\012perm/isgid\376\003\000\000\002\376\001\000\000\012perm/isuid\376\003\000\000\002\376\001\000\000\012perm/" "isvtx\376\003\000\000\002\376\001\000\000\012perm/iwgrp\376\003\000\000\002\376\001\000\000\012perm/iwoth\376\003\000\000\002\376\001\000\000\012perm/iwusr\376\003\000\000\002\376\001\000\000\012perm/" "ixgrp\376\003\000\000\002\376\001\000\000\012perm/ixoth\376\003\000\000\002\376\001\000\000\012perm/ixusr\376\003\000\000\002\376\001\000\000\010pipe/buf\376\003\000\000\002\376\001\000\000\014port->f" "ileno\376\003\000\000\002\376\001\000\000\007process\376\003\000\000\002\376\001\000\000\010process\052\376\003\000\000\002\376\001\000\000\017process-execute\376\003\000\000\002\376\001\000\000\014proce" "ss-fork\376\003\000\000\002\376\001\000\000\020process-group-id\376\003\000\000\002\376\001\000\000\013process-run\376\003\000\000\002\376\001\000\000\016process-signal\376\003" "\000\000\002\376\001\000\000\014process-wait\376\003\000\000\002\376\001\000\000\011prot/exec\376\003\000\000\002\376\001\000\000\011prot/none\376\003\000\000\002\376\001\000\000\011prot/read\376\003\000" "\000\002\376\001\000\000\012prot/write\376\003\000\000\002\376\001\000\000\022read-symbolic-link\376\003\000\000\002\376\001\000\000\015regular-file\077\376\003\000\000\002\376\001\000\000\023se" "conds->local-time\376\003\000\000\002\376\001\000\000\017seconds->string\376\003\000\000\002\376\001\000\000\021seconds->utc-time\376\003\000\000\002\376\001\000\000\010s" "eek/cur\376\003\000\000\002\376\001\000\000\010seek/end\376\003\000\000\002\376\001\000\000\010seek/set\376\003\000\000\002\376\001\000\000\012set-alarm!\376\003\000\000\002\376\001\000\000\023set-buf" "fering-mode!\376\003\000\000\002\376\001\000\000\013set-groups!\376\003\000\000\002\376\001\000\000\023set-root-directory!\376\003\000\000\002\376\001\000\000\023set-sign" "al-handler!\376\003\000\000\002\376\001\000\000\020set-signal-mask!\376\003\000\000\002\376\001\000\000\006setenv\376\003\000\000\002\376\001\000\000\016signal-handler\376\003\000" "\000\002\376\001\000\000\013signal-mask\376\003\000\000\002\376\001\000\000\014signal-mask!\376\003\000\000\002\376\001\000\000\016signal-masked\077\376\003\000\000\002\376\001\000\000\016signal" "-unmask!\376\003\000\000\002\376\001\000\000\013signal/abrt\376\003\000\000\002\376\001\000\000\013signal/alrm\376\003\000\000\002\376\001\000\000\014signal/break\376\003\000\000\002\376\001\000" "\000\013signal/chld\376\003\000\000\002\376\001\000\000\013signal/cont\376\003\000\000\002\376\001\000\000\012signal/fpe\376\003\000\000\002\376\001\000\000\012signal/bus\376\003\000\000\002\376" "\001\000\000\012signal/hup\376\003\000\000\002\376\001\000\000\012signal/ill\376\003\000\000\002\376\001\000\000\012signal/int\376\003\000\000\002\376\001\000\000\011signal/io\376\003\000\000\002\376\001" "\000\000\013signal/kill\376\003\000\000\002\376\001\000\000\013signal/pipe\376\003\000\000\002\376\001\000\000\013signal/prof\376\003\000\000\002\376\001\000\000\013signal/quit\376\003\000" "\000\002\376\001\000\000\013signal/segv\376\003\000\000\002\376\001\000\000\013signal/stop\376\003\000\000\002\376\001\000\000\013signal/term\376\003\000\000\002\376\001\000\000\013signal/tra" "p\376\003\000\000\002\376\001\000\000\013signal/tstp\376\003\000\000\002\376\001\000\000\012signal/urg\376\003\000\000\002\376\001\000\000\013signal/usr1\376\003\000\000\002\376\001\000\000\013signal/" "usr2\376\003\000\000\002\376\001\000\000\015signal/vtalrm\376\003\000\000\002\376\001\000\000\014signal/winch\376\003\000\000\002\376\001\000\000\013signal/xcpu\376\003\000\000\002\376\001\000\000\013" "signal/xfsz\376\003\000\000\002\376\001\000\000\014signals-list\376\003\000\000\002\376\001\000\000\005sleep\376\003\000\000\002\376\001\000\000\015block-device\077\376\003\000\000\002\376\001\000\000" "\021character-device\077\376\003\000\000\002\376\001\000\000\005fifo\077\376\003\000\000\002\376\001\000\000\007socket\077\376\003\000\000\002\376\001\000\000\014string->time\376\003\000\000\002\376\001\000" "\000\016symbolic-link\077\376\003\000\000\002\376\001\000\000\022system-information\376\003\000\000\002\376\001\000\000\015terminal-name\376\003\000\000\002\376\001\000\000\016ter" "minal-port\077\376\003\000\000\002\376\001\000\000\015terminal-size\376\003\000\000\002\376\001\000\000\014time->string\376\003\000\000\002\376\001\000\000\026unmap-file-fro" "m-memory\376\003\000\000\002\376\001\000\000\010unsetenv\376\003\000\000\002\376\001\000\000\020user-information\376\003\000\000\002\376\001\000\000\021utc-time->seconds\376" "\003\000\000\002\376\001\000\000\024with-input-from-pipe\376\003\000\000\002\376\001\000\000\023with-output-to-pipe\376\377\016"); C_register_lf2(lf,3,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_199,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {"f_199:posix_2eimport_2escm",(void*)f_199}, {"f_208:posix_2eimport_2escm",(void*)f_208}, {"f_205:posix_2eimport_2escm",(void*)f_205}, {"f_202:posix_2eimport_2escm",(void*)f_202}, {"toplevel:posix_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-4.12.0/CHICKEN.icns0000644000175000017500000010271313040667210014735 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-4.12.0/setup-api.c0000644000175000017500000211622313052306524015072 0ustar sjamaansjamaan/* Generated from setup-api.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: setup-api.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -emit-import-library setup-api -output-file setup-api.c used units: library eval chicken_2dsyntax srfi_2d1 irregex utils posix srfi_2d13 extras ports data_2dstructures files */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_srfi_2d1_toplevel) C_externimport void C_ccall C_srfi_2d1_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_utils_toplevel) C_externimport void C_ccall C_utils_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_srfi_2d13_toplevel) C_externimport void C_ccall C_srfi_2d13_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_ports_toplevel) C_externimport void C_ccall C_ports_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_files_toplevel) C_externimport void C_ccall C_files_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[288]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,27),40,115,101,116,117,112,45,97,112,105,35,115,104,101,108,108,112,97,116,104,32,115,116,114,53,55,41,0,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,36),40,115,101,116,117,112,45,97,112,105,35,101,120,116,114,97,45,102,101,97,116,117,114,101,115,32,46,32,116,109,112,55,49,55,50,41,0,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,39),40,115,101,116,117,112,45,97,112,105,35,101,120,116,114,97,45,110,111,110,102,101,97,116,117,114,101,115,32,46,32,116,109,112,56,55,56,56,41,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,30),40,115,101,116,117,112,45,97,112,105,35,117,115,101,114,45,105,110,115,116,97,108,108,45,115,101,116,117,112,41,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,34),40,115,101,116,117,112,45,97,112,105,35,115,117,100,111,45,105,110,115,116,97,108,108,32,46,32,97,114,103,115,50,48,52,41,0,0,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,7),40,97,50,50,54,52,41,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,7),40,97,50,50,53,52,41,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,41),40,115,101,116,117,112,45,97,112,105,35,112,97,116,99,104,32,119,104,105,99,104,50,53,51,32,114,120,50,53,52,32,115,117,98,115,116,50,53,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,48),40,115,101,116,117,112,45,97,112,105,35,114,101,103,105,115,116,101,114,45,112,114,111,103,114,97,109,32,110,97,109,101,50,57,51,32,46,32,116,109,112,50,57,50,50,57,52,41}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,32),40,115,101,116,117,112,45,97,112,105,35,102,105,110,100,45,112,114,111,103,114,97,109,32,110,97,109,101,51,48,49,41}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,22),40,114,101,103,32,110,97,109,101,51,48,53,32,114,110,97,109,101,51,48,54,41,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,51,54,51,32,103,51,55,53,51,56,50,41,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,51,51,54,32,103,51,52,56,51,53,53,41,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,52,48,54,32,103,52,49,56,52,50,52,41,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,15),40,115,109,111,111,116,104,32,108,115,116,52,48,50,41,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,57,51,32,103,52,48,48,52,55,48,41,0,0,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,52,52,53,32,103,52,53,55,52,54,51,41,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,30),40,115,101,116,117,112,45,97,112,105,35,101,120,101,99,117,116,101,32,101,120,112,108,105,115,116,51,57,48,41,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,31),40,115,101,116,117,112,45,97,112,105,35,105,110,115,116,97,108,108,97,116,105,111,110,45,112,114,101,102,105,120,41,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,13),40,118,101,114,98,32,100,105,114,53,55,52,41,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,15),40,102,95,53,50,49,56,32,100,105,114,53,56,52,41,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,15),40,102,95,53,50,50,54,32,100,105,114,53,56,54,41,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,7),40,97,50,57,52,55,41,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,7),40,97,50,57,53,54,41,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,45),40,115,101,116,117,112,45,97,112,105,35,119,114,105,116,101,45,105,110,102,111,32,105,100,53,57,54,32,102,105,108,101,115,53,57,55,32,105,110,102,111,53,57,56,41,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,11),40,103,54,55,55,32,102,54,56,54,41,0,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,55,54,32,103,54,56,51,54,56,56,41,0,0,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,20),40,119,97,108,107,32,102,114,111,109,54,54,56,32,116,111,54,54,57,41,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,47),40,115,101,116,117,112,45,97,112,105,35,99,111,112,121,45,102,105,108,101,32,102,114,111,109,54,53,49,32,116,111,54,53,50,32,46,32,116,109,112,54,53,48,54,53,51,41,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,35),40,115,101,116,117,112,45,97,112,105,35,109,111,118,101,45,102,105,108,101,32,102,114,111,109,55,48,53,32,116,111,55,48,54,41,0,0,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,31),40,115,101,116,117,112,45,97,112,105,35,114,101,109,111,118,101,45,102,105,108,101,42,32,100,105,114,55,49,55,41,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,46),40,115,101,116,117,112,45,97,112,105,35,109,97,107,101,45,100,101,115,116,45,112,97,116,104,110,97,109,101,32,112,97,116,104,55,50,53,32,102,105,108,101,55,50,54,41,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,55,51,49,32,103,55,52,51,55,53,57,41,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,35),40,115,101,116,117,112,45,97,112,105,35,99,104,101,99,107,45,102,105,108,101,108,105,115,116,32,102,108,105,115,116,55,50,56,41,0,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,6),40,103,55,57,57,41,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,45),40,115,101,116,117,112,45,97,112,105,35,115,117,112,112,108,121,45,118,101,114,115,105,111,110,32,105,110,102,111,55,57,49,32,118,101,114,115,105,111,110,55,57,50,41,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,7),40,97,51,53,51,56,41,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,50),40,115,101,116,117,112,45,97,112,105,35,115,116,97,110,100,97,114,100,45,101,120,116,101,110,115,105,111,110,32,110,97,109,101,56,49,55,32,46,32,116,109,112,56,49,54,56,49,56,41,0,0,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,11),40,103,56,56,51,32,102,56,57,52,41,0,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,56,55,55,32,103,56,56,57,57,50,48,41,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,56),40,115,101,116,117,112,45,97,112,105,35,105,110,115,116,97,108,108,45,101,120,116,101,110,115,105,111,110,32,105,100,56,54,51,32,102,105,108,101,115,56,54,52,32,46,32,116,109,112,56,54,50,56,54,53,41}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,12),40,101,120,105,102,121,32,102,57,52,48,41,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,11),40,103,57,56,49,32,102,57,57,50,41,0,0,0,0,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,22),40,109,97,112,45,108,111,111,112,57,55,53,32,103,57,56,55,49,48,48,52,41,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,11),40,103,57,53,51,32,102,57,54,52,41,0,0,0,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,57,52,55,32,103,57,53,57,57,54,54,41,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,54),40,115,101,116,117,112,45,97,112,105,35,105,110,115,116,97,108,108,45,112,114,111,103,114,97,109,32,105,100,57,51,49,32,102,105,108,101,115,57,51,50,32,46,32,116,109,112,57,51,48,57,51,51,41,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,13),40,103,49,48,51,54,32,102,49,48,52,55,41,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,48,51,48,32,103,49,48,52,50,49,48,53,57,41}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,57),40,115,101,116,117,112,45,97,112,105,35,105,110,115,116,97,108,108,45,115,99,114,105,112,116,32,105,100,49,48,49,54,32,102,105,108,101,115,49,48,49,55,32,46,32,116,109,112,49,48,49,53,49,48,49,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,33),40,115,101,116,117,112,45,97,112,105,35,114,101,112,111,45,112,97,116,104,32,116,109,112,49,48,55,54,49,48,55,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,49),40,115,101,116,117,112,45,97,112,105,35,101,110,115,117,114,101,45,100,105,114,101,99,116,111,114,121,32,112,97,116,104,49,49,48,51,32,116,109,112,49,49,48,50,49,49,48,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,7),40,97,52,50,56,54,41,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,18),40,97,52,50,56,48,32,101,120,49,49,54,56,49,49,55,54,41,0,0,0,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,7),40,97,52,50,57,53,41,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,7),40,97,52,51,51,48,41,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,22),40,97,52,51,50,52,32,46,32,97,114,103,115,49,49,55,48,49,49,57,48,41,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,7),40,97,52,50,56,57,41,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,17),40,97,52,50,55,52,32,107,49,49,54,57,49,49,55,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,7),40,97,52,51,52,56,41,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,18),40,97,52,51,52,50,32,101,120,49,49,52,52,49,49,53,50,41,0,0,0,0,0,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,7),40,97,52,51,53,55,41,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,7),40,97,52,51,57,50,41,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,22),40,97,52,51,56,54,32,46,32,97,114,103,115,49,49,52,54,49,49,54,54,41,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,7),40,97,52,51,53,49,41,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,17),40,97,52,51,51,54,32,107,49,49,52,53,49,49,53,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,7),40,97,52,52,52,54,41,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,7),40,97,52,52,53,50,41,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,7),40,97,52,52,53,53,41,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,7),40,97,52,52,54,49,41,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,7),40,97,52,52,54,52,41,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,7),40,97,52,52,54,55,41,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,46),40,115,101,116,117,112,45,97,112,105,35,116,114,121,45,99,111,109,112,105,108,101,32,99,111,100,101,49,49,50,52,32,46,32,116,109,112,49,49,50,51,49,49,50,53,41,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,42),40,115,101,116,117,112,45,97,112,105,35,102,105,110,100,45,108,105,98,114,97,114,121,32,110,97,109,101,49,49,57,54,32,112,114,111,99,49,49,57,55,41,0,0,0,0,0,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,32),40,115,101,116,117,112,45,97,112,105,35,102,105,110,100,45,104,101,97,100,101,114,32,110,97,109,101,49,50,50,51,41}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,50,52,52,32,103,49,50,53,54,49,50,54,54,41}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,21),40,118,101,114,115,105,111,110,45,62,108,105,115,116,32,118,49,50,52,49,41,0,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,112,49,49,50,55,51,32,112,50,49,50,55,52,41,0,0,0,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,36),40,115,101,116,117,112,45,97,112,105,35,118,101,114,115,105,111,110,62,61,63,32,118,49,49,50,51,56,32,118,50,49,50,51,57,41,0,0,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,26),40,115,101,116,117,112,45,97,112,105,35,101,120,116,101,110,115,105,111,110,45,110,97,109,101,41,0,0,0,0,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,43),40,115,101,116,117,112,45,97,112,105,35,101,120,116,101,110,115,105,111,110,45,118,101,114,115,105,111,110,32,46,32,116,109,112,49,51,49,56,49,51,49,57,41,0,0,0,0,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,43),40,115,101,116,117,112,45,97,112,105,35,114,101,97,100,45,105,110,102,111,32,101,103,103,49,51,51,50,32,46,32,116,109,112,49,51,51,49,49,51,51,51,41,0,0,0,0,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,7),40,97,52,56,52,49,41,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,18),40,97,52,56,51,53,32,101,120,49,51,53,54,49,51,54,52,41,0,0,0,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,7),40,97,52,56,53,48,41,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,7),40,97,52,56,57,53,41,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,22),40,97,52,56,56,57,32,46,32,97,114,103,115,49,51,53,56,49,51,56,50,41,0,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,7),40,97,52,56,52,52,41,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,17),40,97,52,56,50,57,32,107,49,51,53,55,49,51,54,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,13),40,103,49,51,56,57,32,102,49,51,57,56,41,0,0,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,51,56,56,32,103,49,51,57,53,49,52,48,52,41,0,0,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,14),40,119,97,108,107,32,100,105,114,49,51,56,52,41,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,50),40,115,101,116,117,112,45,97,112,105,35,114,101,109,111,118,101,45,100,105,114,101,99,116,111,114,121,32,100,105,114,49,51,52,52,32,46,32,116,109,112,49,51,52,51,49,51,52,53,41,0,0,0,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,13),40,103,49,52,50,54,32,102,49,52,51,53,41,0,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,52,50,53,32,103,49,52,51,50,49,52,51,56,41,0,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,50),40,115,101,116,117,112,45,97,112,105,35,114,101,109,111,118,101,45,101,120,116,101,110,115,105,111,110,32,101,103,103,49,52,49,53,32,46,32,116,109,112,49,52,49,52,49,52,49,54,41,0,0,0,0,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,16),40,103,49,52,53,51,32,112,97,116,104,49,52,53,53,41}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,27),40,115,101,116,117,112,45,97,112,105,35,36,115,121,115,116,101,109,32,115,116,114,49,52,52,52,41,0,0,0,0,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,16),40,116,109,112,49,49,56,55,54,32,99,49,52,55,53,41}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,32),40,115,101,116,117,112,45,97,112,105,35,115,101,116,117,112,45,101,114,114,111,114,45,104,97,110,100,108,105,110,103,41}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,21),40,101,110,115,117,114,101,45,115,116,114,105,110,103,32,120,49,51,48,57,41,0,0,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,13),40,97,53,49,53,49,32,120,49,50,57,55,41,0,0,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,7),40,97,53,50,55,52,41,0}; static C_char C_TLS li104[] 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_2536) static void C_fcall f_2536(C_word t0,C_word t1,C_word t2) 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_2211) static void C_ccall f_2211(C_word c,C_word *av) C_noret; C_noret_decl(f_3507) static void C_fcall f_3507(C_word t0,C_word t1) 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_2236) static void C_ccall f_2236(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_3176) static void C_ccall f_3176(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_noret; C_noret_decl(f_3173) static void C_ccall f_3173(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_word t2) 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_3166) static void C_ccall f_3166(C_word c,C_word *av) C_noret; C_noret_decl(f_3160) static void C_ccall f_3160(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_4634) static void C_fcall f_4634(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4632) static void C_ccall f_4632(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_4525) static void C_ccall f_4525(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_4528) static void C_ccall f_4528(C_word c,C_word *av) C_noret; C_noret_decl(f_3482) static void C_ccall f_3482(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_2651) static void C_ccall f_2651(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_4513) static void C_ccall f_4513(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_4516) static void C_ccall f_4516(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_4483) static void C_ccall f_4483(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_4372) static void C_ccall f_4372(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_4475) static void C_ccall f_4475(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_4378) static void C_ccall f_4378(C_word c,C_word *av) C_noret; C_noret_decl(f_2407) static void C_fcall f_2407(C_word t0,C_word t1,C_word t2) 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_5056) static void C_fcall f_5056(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_2643) static void C_ccall f_2643(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_5076) static void C_ccall f_5076(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_2322) static void C_ccall f_2322(C_word c,C_word *av) C_noret; C_noret_decl(f_1915) static void C_ccall f_1915(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_1912) static void C_ccall f_1912(C_word c,C_word *av) C_noret; C_noret_decl(f_2329) static void C_ccall f_2329(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_3434) static void C_ccall f_3434(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_5097) static void C_ccall f_5097(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_4884) static void C_ccall f_4884(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_4702) static void C_ccall f_4702(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_5060) static void C_ccall f_5060(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_2781) static void C_fcall f_2781(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_1928) static void C_ccall f_1928(C_word c,C_word *av) C_noret; C_noret_decl(f_3602) static void C_ccall f_3602(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_3473) static void C_ccall f_3473(C_word c,C_word *av) C_noret; C_noret_decl(f_3470) static void C_ccall f_3470(C_word c,C_word *av) C_noret; C_noret_decl(f_1924) static void C_ccall f_1924(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_5122) static void C_ccall f_5122(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_3485) static void C_ccall f_3485(C_word c,C_word *av) C_noret; C_noret_decl(f_3488) static void C_ccall f_3488(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_4387) static void C_ccall f_4387(C_word c,C_word *av) C_noret; C_noret_decl(f_4166) static void C_fcall f_4166(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3629) static void C_fcall f_3629(C_word t0,C_word t1) C_noret; C_noret_decl(f_3476) static void C_ccall f_3476(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_1909) static void C_ccall f_1909(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_4865) static void C_ccall f_4865(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_3305) static void C_fcall f_3305(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3801) static void C_ccall f_3801(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_4851) static void C_ccall f_4851(C_word c,C_word *av) 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_4148) static void C_ccall f_4148(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_4855) static void C_ccall f_4855(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_1900) static void C_ccall f_1900(C_word c,C_word *av) C_noret; C_noret_decl(f_4468) static void C_ccall f_4468(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_5137) static void C_ccall f_5137(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_5135) static void C_ccall f_5135(C_word c,C_word *av) C_noret; C_noret_decl(f_3440) static void C_ccall f_3440(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_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_4456) static void C_ccall f_4456(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_1932) static void C_ccall f_1932(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_3457) static void C_ccall f_3457(C_word c,C_word *av) C_noret; C_noret_decl(f_3455) static void C_ccall f_3455(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_4173) static void C_ccall f_4173(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_4447) static void C_ccall f_4447(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_4434) static void C_ccall f_4434(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_4033) static void C_ccall f_4033(C_word c,C_word *av) C_noret; C_noret_decl(f_4026) static void C_ccall f_4026(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_4023) static void C_ccall f_4023(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_4393) static void C_ccall f_4393(C_word c,C_word *av) C_noret; C_noret_decl(f_2750) static void C_ccall f_2750(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_2758) static void C_fcall f_2758(C_word t0,C_word t1,C_word t2) 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_4803) static void C_ccall f_4803(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_4013) static void C_ccall f_4013(C_word c,C_word *av) C_noret; C_noret_decl(f_3978) static void C_ccall f_3978(C_word c,C_word *av) C_noret; C_noret_decl(f_4498) static void C_ccall f_4498(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_3972) static void C_ccall f_3972(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_4504) static void C_ccall f_4504(C_word c,C_word *av) C_noret; C_noret_decl(f_5261) static void C_ccall f_5261(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_5265) static void C_ccall f_5265(C_word c,C_word *av) C_noret; C_noret_decl(f_5269) static void C_ccall f_5269(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_2096) static void C_ccall f_2096(C_word c,C_word *av) C_noret; C_noret_decl(f_2093) static void C_ccall f_2093(C_word c,C_word *av) C_noret; C_noret_decl(f_2090) static void C_ccall f_2090(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_3992) static void C_ccall f_3992(C_word c,C_word *av) C_noret; C_noret_decl(f_2316) static void C_ccall f_2316(C_word c,C_word *av) C_noret; C_noret_decl(f_2313) static void C_ccall f_2313(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_5273) static void C_ccall f_5273(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_2084) static void C_ccall f_2084(C_word c,C_word *av) C_noret; C_noret_decl(f_3989) static void C_fcall f_3989(C_word t0,C_word t1) 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_3985) static void C_fcall f_3985(C_word t0,C_word t1,C_word t2) 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_2319) static void C_ccall f_2319(C_word c,C_word *av) C_noret; C_noret_decl(f_2304) static void C_ccall f_2304(C_word c,C_word *av) 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_3511) static void C_ccall f_3511(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_2735) static void C_ccall f_2735(C_word c,C_word *av) C_noret; C_noret_decl(f_2732) static void C_ccall f_2732(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_2240) static void C_ccall f_2240(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_5103) static void C_ccall f_5103(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_5114) static void C_fcall f_5114(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5110) static void C_ccall f_5110(C_word c,C_word *av) C_noret; C_noret_decl(f_2265) static void C_ccall f_2265(C_word c,C_word *av) C_noret; C_noret_decl(f_2255) static void C_ccall f_2255(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_2623) static void C_ccall f_2623(C_word c,C_word *av) C_noret; C_noret_decl(f_2271) static void C_fcall f_2271(C_word t0,C_word t1) 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_2614) static void C_ccall f_2614(C_word c,C_word *av) C_noret; C_noret_decl(f_2617) static void C_ccall f_2617(C_word c,C_word *av) C_noret; C_noret_decl(f_2611) static void C_ccall f_2611(C_word c,C_word *av) 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_2424) static void C_ccall f_2424(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_5298) static void C_ccall f_5298(C_word c,C_word *av) C_noret; C_noret_decl(f_2421) static void C_ccall f_2421(C_word c,C_word *av) C_noret; C_noret_decl(f_2415) static void C_ccall f_2415(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_3668) static void C_ccall f_3668(C_word c,C_word *av) C_noret; C_noret_decl(f_3660) static void C_ccall f_3660(C_word c,C_word *av) C_noret; C_noret_decl(f_2170) static void C_ccall f_2170(C_word c,C_word *av) C_noret; C_noret_decl(f_2173) static void C_ccall f_2173(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_3693) static void C_ccall f_3693(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_5249) static void C_ccall f_5249(C_word c,C_word *av) C_noret; C_noret_decl(f_2160) static void C_ccall f_2160(C_word c,C_word *av) C_noret; C_noret_decl(f_3644) static void C_ccall f_3644(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_5253) static void C_ccall f_5253(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_4319) static void C_ccall f_4319(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_4313) static void C_ccall f_4313(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(f_4304) static void C_ccall f_4304(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_2505) static void C_ccall f_2505(C_word c,C_word *av) C_noret; C_noret_decl(f_2502) static void C_ccall f_2502(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_4920) static void C_fcall f_4920(C_word t0,C_word t1) 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_4955) static void C_ccall f_4955(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_2352) static void C_ccall f_2352(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_4337) static void C_ccall f_4337(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_4310) static void C_ccall f_4310(C_word c,C_word *av) C_noret; C_noret_decl(f_4426) static void C_ccall f_4426(C_word c,C_word *av) C_noret; C_noret_decl(f_2340) static void C_ccall f_2340(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_2349) static void C_ccall f_2349(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_4323) static void C_ccall f_4323(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_4412) static void C_ccall f_4412(C_word c,C_word *av) C_noret; C_noret_decl(f_3577) static void C_fcall f_3577(C_word t0,C_word t1,C_word t2) 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_3573) static void C_ccall f_3573(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_2361) static void C_ccall f_2361(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_2185) static void C_fcall f_2185(C_word t0) C_noret; C_noret_decl(f_2180) static void C_ccall f_2180(C_word c,C_word *av) C_noret; C_noret_decl(f_2018) static void C_ccall f_2018(C_word c,C_word *av) C_noret; C_noret_decl(f_3596) static void C_ccall f_3596(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_2392) static void C_ccall f_2392(C_word c,C_word *av) C_noret; C_noret_decl(f_3590) static void C_ccall f_3590(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_2006) static void C_ccall f_2006(C_word c,C_word *av) C_noret; C_noret_decl(f_2002) static void C_ccall f_2002(C_word c,C_word *av) C_noret; C_noret_decl(f_5143) static void C_ccall f_5143(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_4263) static void C_ccall f_4263(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_4269) static void C_ccall f_4269(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_2388) static void C_ccall f_2388(C_word c,C_word *av) C_noret; C_noret_decl(f_2037) static void C_ccall f_2037(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_5152) static void C_ccall f_5152(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_2157) static void C_ccall f_2157(C_word c,C_word *av) C_noret; C_noret_decl(f_2154) static void C_ccall f_2154(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_2027) static void C_ccall f_2027(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_3564) static void C_ccall f_3564(C_word c,C_word *av) C_noret; C_noret_decl(f_5168) static void C_fcall f_5168(C_word t0,C_word t1) 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_2144) static void C_ccall f_2144(C_word c,C_word *av) C_noret; C_noret_decl(f_2148) static void C_ccall f_2148(C_word c,C_word *av) C_noret; C_noret_decl(f_5175) static void C_fcall f_5175(C_word t0,C_word t1) C_noret; C_noret_decl(f_3554) static void C_ccall f_3554(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_3584) static void C_ccall f_3584(C_word c,C_word *av) C_noret; C_noret_decl(f_3581) static void C_fcall f_3581(C_word t0,C_word t1) 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_4621) static void C_ccall f_4621(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_4296) static void C_ccall f_4296(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_2605) static void C_ccall f_2605(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_2608) static void C_ccall f_2608(C_word c,C_word *av) 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_4287) static void C_ccall f_4287(C_word c,C_word *av) C_noret; C_noret_decl(f_3700) static void C_ccall f_3700(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_4075) static void C_ccall f_4075(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_noret; C_noret_decl(f_5202) static void C_ccall f_5202(C_word c,C_word *av) C_noret; C_noret_decl(f_3005) static void C_ccall f_3005(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_3017) static void C_ccall f_3017(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_3011) static void C_fcall f_3011(C_word t0,C_word t1) C_noret; C_noret_decl(f_3727) static void C_ccall f_3727(C_word c,C_word *av) C_noret; C_noret_decl(f_4050) static void C_fcall f_4050(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5218) static void C_ccall f_5218(C_word c,C_word *av) C_noret; C_noret_decl(f_2806) static void C_ccall f_2806(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_4257) static void C_ccall f_4257(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_5222) static void C_ccall f_5222(C_word c,C_word *av) C_noret; C_noret_decl(f_3029) static void C_ccall f_3029(C_word c,C_word *av) C_noret; C_noret_decl(f_3022) static void C_fcall f_3022(C_word t0,C_word t1,C_word t2,C_word t3) 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_5226) static void C_ccall f_5226(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_4792) static void C_ccall f_4792(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_5230) static void C_ccall f_5230(C_word c,C_word *av) C_noret; C_noret_decl(f_3030) static void C_fcall f_3030(C_word t0,C_word t1,C_word t2) 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_4785) static void C_ccall f_4785(C_word c,C_word *av) C_noret; C_noret_decl(f_4773) static void C_ccall f_4773(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_2876) static void C_ccall f_2876(C_word c,C_word *av) C_noret; C_noret_decl(f_2873) static void C_ccall f_2873(C_word c,C_word *av) C_noret; C_noret_decl(f_2870) static void C_ccall f_2870(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_4750) static void C_ccall f_4750(C_word c,C_word *av) C_noret; C_noret_decl(f_2864) static void C_ccall f_2864(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_3195) static void C_ccall f_3195(C_word c,C_word *av) C_noret; C_noret_decl(f_3191) static void C_ccall f_3191(C_word c,C_word *av) C_noret; C_noret_decl(f_3050) static void C_fcall f_3050(C_word t0,C_word t1,C_word t2) 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_2897) static void C_ccall f_2897(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_2894) static void C_ccall f_2894(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_4748) static void C_ccall f_4748(C_word c,C_word *av) C_noret; C_noret_decl(f_2884) static void C_fcall f_2884(C_word t0,C_word t1,C_word t2,C_word t3) 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_4738) static void C_ccall f_4738(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_3045) static void C_ccall f_3045(C_word c,C_word *av) C_noret; C_noret_decl(f_2857) static void C_fcall f_2857(C_word t0,C_word t1) 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_2843) static void C_ccall f_2843(C_word c,C_word *av) C_noret; C_noret_decl(f_2844) static void C_ccall f_2844(C_word c,C_word *av) C_noret; C_noret_decl(f_3093) static void C_ccall f_3093(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_2116) static void C_ccall f_2116(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_3089) static void C_ccall f_3089(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_3778) static void C_ccall f_3778(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_2106) static void C_ccall f_2106(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_2100) static void C_ccall f_2100(C_word c,C_word *av) C_noret; C_noret_decl(f_4585) static void C_fcall f_4585(C_word t0,C_word t1,C_word t2) 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_2726) static void C_ccall f_2726(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_2720) static void C_ccall f_2720(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_2109) static void C_ccall f_2109(C_word c,C_word *av) C_noret; C_noret_decl(f_2138) static void C_ccall f_2138(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_3795) static void C_ccall f_3795(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_3792) static void C_fcall f_3792(C_word t0,C_word t1) C_noret; C_noret_decl(f_2125) static void C_ccall f_2125(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_2122) static void C_ccall f_2122(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_3784) static void C_ccall f_3784(C_word c,C_word *av) C_noret; C_noret_decl(f_3788) static void C_fcall f_3788(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1960) static void C_ccall f_1960(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_1964) static void C_ccall f_1964(C_word c,C_word *av) C_noret; C_noret_decl(f_1969) static void C_ccall f_1969(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_3229) static void C_fcall f_3229(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3227) static void C_ccall f_3227(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_1998) static void C_ccall f_1998(C_word c,C_word *av) C_noret; C_noret_decl(f_1994) static void C_ccall f_1994(C_word c,C_word *av) C_noret; C_noret_decl(f_1943) static void C_ccall f_1943(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_4188) static void C_ccall f_4188(C_word c,C_word *av) C_noret; C_noret_decl(f_3758) static void C_fcall f_3758(C_word t0,C_word t1) C_noret; C_noret_decl(f_1977) static void C_ccall f_1977(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_4182) static void C_ccall f_4182(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_4995) static void C_ccall f_4995(C_word c,C_word *av) C_noret; C_noret_decl(f_4996) static void C_fcall f_4996(C_word t0,C_word t1,C_word t2) 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_1982) static void C_ccall f_1982(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_1986) static void C_ccall f_1986(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_2903) static void C_ccall f_2903(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_4940) static void C_ccall f_4940(C_word c,C_word *av) C_noret; C_noret_decl(f_4945) static void C_fcall f_4945(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2472) static void C_fcall f_2472(C_word t0,C_word t1) 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_4565) static void C_fcall f_4565(C_word t0,C_word t1) C_noret; C_noret_decl(f_4562) static void C_ccall f_4562(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_4560) static void C_ccall f_4560(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_4842) static void C_ccall f_4842(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_5020) static void C_fcall f_5020(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_4551) static void C_ccall f_4551(C_word c,C_word *av) 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_4836) static void C_ccall f_4836(C_word c,C_word *av) C_noret; C_noret_decl(f_4126) static void C_ccall f_4126(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_4545) static void C_ccall f_4545(C_word c,C_word *av) C_noret; C_noret_decl(f_4537) static void C_ccall f_4537(C_word c,C_word *av) C_noret; C_noret_decl(f_4825) static void C_ccall f_4825(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_4239) static void C_ccall f_4239(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_4233) static void C_ccall f_4233(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_4982) static void C_ccall f_4982(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_3272) static void C_ccall f_3272(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_2436) static void C_ccall f_2436(C_word c,C_word *av) C_noret; C_noret_decl(f_2433) static void C_ccall f_2433(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_2430) static void C_ccall f_2430(C_word c,C_word *av) C_noret; C_noret_decl(f_4104) static void C_fcall f_4104(C_word t0,C_word t1) 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_2977) static void C_ccall f_2977(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_2464) static void C_ccall f_2464(C_word c,C_word *av) C_noret; C_noret_decl(f_2468) static void C_ccall f_2468(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_3254) static void C_fcall f_3254(C_word t0,C_word t1) 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_2965) static void C_ccall f_2965(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_1954) static void C_ccall f_1954(C_word c,C_word *av) C_noret; C_noret_decl(f_1957) static void C_ccall f_1957(C_word c,C_word *av) C_noret; C_noret_decl(f_1882) static void C_ccall f_1882(C_word c,C_word *av) 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_3249) static void C_ccall f_3249(C_word c,C_word *av) C_noret; C_noret_decl(f_1888) static void C_ccall f_1888(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_4910) static void C_fcall f_4910(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2488) static void C_ccall f_2488(C_word c,C_word *av) C_noret; C_noret_decl(f_3414) static void C_fcall f_3414(C_word t0,C_word t1,C_word t2) 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_2983) static void C_ccall f_2983(C_word c,C_word *av) C_noret; C_noret_decl(f_2980) static void C_ccall f_2980(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_3422) static void C_fcall f_3422(C_word t0,C_word t1) C_noret; C_noret_decl(f_3386) static void C_ccall f_3386(C_word c,C_word *av) C_noret; C_noret_decl(f_1891) static void C_ccall f_1891(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_1897) static void C_ccall f_1897(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_2921) static void C_ccall f_2921(C_word c,C_word *av) C_noret; C_noret_decl(f_2924) static void C_ccall f_2924(C_word c,C_word *av) C_noret; C_noret_decl(f_2294) static void C_ccall f_2294(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_2297) static void C_ccall f_2297(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_2957) static void C_ccall f_2957(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_4909) static void C_ccall f_4909(C_word c,C_word *av) C_noret; C_noret_decl(f_4905) static void C_fcall f_4905(C_word t0,C_word t1,C_word t2) 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_2948) static void C_ccall f_2948(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_3835) static void C_fcall f_3835(C_word t0,C_word t1,C_word t2) 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_3826) static void C_ccall f_3826(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_noret; C_noret_decl(f_2561) static void C_ccall f_2561(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_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_3102) static void C_ccall f_3102(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_3885) static void C_ccall f_3885(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_3871) static void C_fcall f_3871(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(trf_2536) static void C_ccall trf_2536(C_word c,C_word *av) C_noret; static void C_ccall trf_2536(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2536(t0,t1,t2);} C_noret_decl(trf_3507) static void C_ccall trf_3507(C_word c,C_word *av) C_noret; static void C_ccall trf_3507(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3507(t0,t1);} 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[1]; C_word t1=av[0]; f_3170(t0,t1);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_2683(t0,t1,t2);} C_noret_decl(trf_4634) static void C_ccall trf_4634(C_word c,C_word *av) C_noret; static void C_ccall trf_4634(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4634(t0,t1,t2,t3);} C_noret_decl(trf_2407) static void C_ccall trf_2407(C_word c,C_word *av) C_noret; static void C_ccall trf_2407(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2407(t0,t1,t2);} C_noret_decl(trf_5056) static void C_ccall trf_5056(C_word c,C_word *av) C_noret; static void C_ccall trf_5056(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5056(t0,t1);} C_noret_decl(trf_2781) static void C_ccall trf_2781(C_word c,C_word *av) C_noret; static void C_ccall trf_2781(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2781(t0,t1,t2);} C_noret_decl(trf_4166) static void C_ccall trf_4166(C_word c,C_word *av) C_noret; static void C_ccall trf_4166(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4166(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_3629(t0,t1);} C_noret_decl(trf_3305) static void C_ccall trf_3305(C_word c,C_word *av) C_noret; static void C_ccall trf_3305(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3305(t0,t1,t2);} C_noret_decl(trf_2758) static void C_ccall trf_2758(C_word c,C_word *av) C_noret; static void C_ccall trf_2758(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2758(t0,t1,t2);} C_noret_decl(trf_3989) static void C_ccall trf_3989(C_word c,C_word *av) C_noret; static void C_ccall trf_3989(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3989(t0,t1);} C_noret_decl(trf_3985) static void C_ccall trf_3985(C_word c,C_word *av) C_noret; static void C_ccall trf_3985(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3985(t0,t1,t2);} C_noret_decl(trf_5114) static void C_ccall trf_5114(C_word c,C_word *av) C_noret; static void C_ccall trf_5114(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5114(t0,t1,t2);} C_noret_decl(trf_2271) static void C_ccall trf_2271(C_word c,C_word *av) C_noret; static void C_ccall trf_2271(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2271(t0,t1);} C_noret_decl(trf_4920) static void C_ccall trf_4920(C_word c,C_word *av) C_noret; static void C_ccall trf_4920(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4920(t0,t1);} C_noret_decl(trf_3577) static void C_ccall trf_3577(C_word c,C_word *av) C_noret; static void C_ccall trf_3577(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3577(t0,t1,t2);} C_noret_decl(trf_2185) static void C_ccall trf_2185(C_word c,C_word *av) C_noret; static void C_ccall trf_2185(C_word c,C_word *av){ C_word t0=av[0]; f_2185(t0);} C_noret_decl(trf_5168) static void C_ccall trf_5168(C_word c,C_word *av) C_noret; static void C_ccall trf_5168(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5168(t0,t1);} C_noret_decl(trf_5175) static void C_ccall trf_5175(C_word c,C_word *av) C_noret; static void C_ccall trf_5175(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5175(t0,t1);} C_noret_decl(trf_3581) static void C_ccall trf_3581(C_word c,C_word *av) C_noret; static void C_ccall trf_3581(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3581(t0,t1);} 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_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[2]; C_word t1=av[1]; C_word t2=av[0]; f_3908(t0,t1,t2);} C_noret_decl(trf_3011) static void C_ccall trf_3011(C_word c,C_word *av) C_noret; static void C_ccall trf_3011(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3011(t0,t1);} C_noret_decl(trf_4050) static void C_ccall trf_4050(C_word c,C_word *av) C_noret; static void C_ccall trf_4050(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4050(t0,t1,t2);} C_noret_decl(trf_3022) static void C_ccall trf_3022(C_word c,C_word *av) C_noret; static void C_ccall trf_3022(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3022(t0,t1,t2,t3);} C_noret_decl(trf_3030) static void C_ccall trf_3030(C_word c,C_word *av) C_noret; static void C_ccall trf_3030(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3030(t0,t1,t2);} C_noret_decl(trf_3050) static void C_ccall trf_3050(C_word c,C_word *av) C_noret; static void C_ccall trf_3050(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3050(t0,t1,t2);} C_noret_decl(trf_2884) static void C_ccall trf_2884(C_word c,C_word *av) C_noret; static void C_ccall trf_2884(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2884(t0,t1,t2,t3);} C_noret_decl(trf_2857) static void C_ccall trf_2857(C_word c,C_word *av) C_noret; static void C_ccall trf_2857(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2857(t0,t1);} C_noret_decl(trf_4585) static void C_ccall trf_4585(C_word c,C_word *av) C_noret; static void C_ccall trf_4585(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4585(t0,t1,t2);} C_noret_decl(trf_3792) static void C_ccall trf_3792(C_word c,C_word *av) C_noret; static void C_ccall trf_3792(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3792(t0,t1);} C_noret_decl(trf_3788) static void C_ccall trf_3788(C_word c,C_word *av) C_noret; static void C_ccall trf_3788(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3788(t0,t1,t2);} C_noret_decl(trf_3229) static void C_ccall trf_3229(C_word c,C_word *av) C_noret; static void C_ccall trf_3229(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3229(t0,t1,t2);} C_noret_decl(trf_3758) static void C_ccall trf_3758(C_word c,C_word *av) C_noret; static void C_ccall trf_3758(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3758(t0,t1);} C_noret_decl(trf_4996) static void C_ccall trf_4996(C_word c,C_word *av) C_noret; static void C_ccall trf_4996(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4996(t0,t1,t2);} C_noret_decl(trf_4945) static void C_ccall trf_4945(C_word c,C_word *av) C_noret; static void C_ccall trf_4945(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4945(t0,t1,t2);} C_noret_decl(trf_2472) static void C_ccall trf_2472(C_word c,C_word *av) C_noret; static void C_ccall trf_2472(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2472(t0,t1);} C_noret_decl(trf_4565) static void C_ccall trf_4565(C_word c,C_word *av) C_noret; static void C_ccall trf_4565(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4565(t0,t1);} C_noret_decl(trf_5020) static void C_ccall trf_5020(C_word c,C_word *av) C_noret; static void C_ccall trf_5020(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5020(t0,t1,t2);} C_noret_decl(trf_4104) static void C_ccall trf_4104(C_word c,C_word *av) C_noret; static void C_ccall trf_4104(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4104(t0,t1);} C_noret_decl(trf_3254) static void C_ccall trf_3254(C_word c,C_word *av) C_noret; static void C_ccall trf_3254(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3254(t0,t1);} C_noret_decl(trf_4910) static void C_ccall trf_4910(C_word c,C_word *av) C_noret; static void C_ccall trf_4910(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4910(t0,t1,t2);} C_noret_decl(trf_3414) static void C_ccall trf_3414(C_word c,C_word *av) C_noret; static void C_ccall trf_3414(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3414(t0,t1,t2);} C_noret_decl(trf_3422) static void C_ccall trf_3422(C_word c,C_word *av) C_noret; static void C_ccall trf_3422(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3422(t0,t1);} C_noret_decl(trf_4905) static void C_ccall trf_4905(C_word c,C_word *av) C_noret; static void C_ccall trf_4905(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4905(t0,t1,t2);} C_noret_decl(trf_3835) static void C_ccall trf_3835(C_word c,C_word *av) C_noret; static void C_ccall trf_3835(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3835(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_2570(t0,t1,t2);} C_noret_decl(trf_3871) static void C_ccall trf_3871(C_word c,C_word *av) C_noret; static void C_ccall trf_3871(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3871(t0,t1,t2);} /* map-loop363 in k2526 in k2509 in k2503 in k2603 in k2606 in k2609 in k2470 in k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in ... */ static void C_fcall f_2536(C_word t0,C_word 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_2536,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_2561,a[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_2525,a[2]=t5,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:255: symbol->string"); t7=*((C_word*)lf[99]+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);}}} /* k2532 in k2526 in k2509 in k2503 in k2603 in k2606 in k2609 in k2470 in k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2534,2,av);} C_trace("setup-api.scm:250: append"); t2=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in ... */ static void C_ccall f_2211(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_2211,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=C_retrieve2(lf[7],"setup-api#\052sudo\052"); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_retrieve2(lf[7],"setup-api#\052sudo\052"); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_car(t2))){ t3=t1; t4=lf[7] /* setup-api#*sudo* */ =C_SCHEME_TRUE;; if(C_truep(C_retrieve2(lf[8],"setup-api#\052windows-shell\052"))){ t5=lf[7] /* setup-api#*sudo* */ =C_SCHEME_FALSE;; C_trace("setup-api.scm:155: print"); t6=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=lf[48]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=t3; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2080,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2180,a[2]=t6,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:158: get-environment-variable"); t8=C_fast_retrieve(lf[60]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=lf[61]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} else{ C_trace("setup-api.scm:181: user-install-setup"); f_2185(t1);}}} /* k3505 in k3501 in k3486 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in setup-api#standard-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in ... */ static void C_fcall f_3507(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_3507,2,t0,t1);} a=C_alloc(8); 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_3499,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:423: supply-version"); f_3414(t4,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k3501 in k3486 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in setup-api#standard-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 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; 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_3503,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3507,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|3,a[1]=(C_word)f_3511,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:419: pathname-replace-extension"); t5=C_fast_retrieve(lf[151]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=lf[152]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in ... */ 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=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(10,c,2)))){ C_save_and_reclaim((void *)f_2236,5,av);} a=C_alloc(10); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2240,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2340,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:191: setup-verbose-mode"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[19]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[19]+1); av2[1]=t6; tp(2,av2);}} /* k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in ... */ 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; 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_2234,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[62]+1 /* (set! setup-api#abort-setup ...) */,t1); t3=C_mutate2((C_word*)lf[63]+1 /* (set! setup-api#patch ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2236,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2359,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:208: make-parameter"); t5=C_fast_retrieve(lf[268]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3174 in k3171 in k3168 in setup-api#move-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3176,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3191,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:357: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k3168 in setup-api#move-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_fcall f_3170(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,3)))){ C_save_and_reclaim_args((void *)trf_3170,2,t0,t1);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3173,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t4=C_i_cadr(((C_word*)t0)[3]); C_trace("setup-api.scm:355: make-pathname"); t5=C_fast_retrieve(lf[79]);{ 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);}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[4]; f_3173(2,av2);}}} /* k3171 in k3168 in setup-api#move-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ static void C_ccall f_3173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3173,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3176,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:356: ensure-directory"); f_4166(t3,t2,C_SCHEME_END_OF_LIST);} /* map-loop406 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in ... */ static void C_fcall f_2683(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_2683,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_2708,a[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_trace("setup-api.scm:265: g412"); 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);}}} /* k3162 in k3158 in k3012 in k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3164,2,av);} C_trace("setup-api.scm:349: string-prefix?"); t2=C_fast_retrieve(lf[107]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* setup-api#move-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ 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=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_3166,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3170,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t2))){ t5=t2; t6=t4; f_3170(t6,C_u_i_car(t5));} else{ t5=t4; f_3170(t5,t2);}} /* k3158 in k3012 in k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ static void C_ccall f_3160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3160,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3164,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:351: normalize-pathname"); t4=C_fast_retrieve(lf[16]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2673 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ 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 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_2675,2,av);} a=C_alloc(3); t2=C_u_i_cdr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t1,t2); C_trace("setup-api.scm:266: string-intersperse"); t4=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=lf[84]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* loop in k4630 in k4626 in setup-api#version>=? in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in ... */ static void C_fcall f_4634(C_word t0,C_word t1,C_word 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_4634,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); C_trace("setup-api.scm:572: 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_4702,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); C_trace("setup-api.scm:574: string>?"); t13=*((C_word*)lf[236]+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);}}}}}} /* k4630 in k4626 in setup-api#version>=? in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ static void C_ccall f_4632(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_4632,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_4634,a[2]=t3,a[3]=((C_word)li78),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_4634(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1);} /* k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_2664,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2675,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_i_car(t2); t5=t3; t6=t4; if(C_truep(C_i_string_equal_p(t6,lf[85]))){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2464,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2468,a[2]=t7,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:241: find-program"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[80]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[80]+1); av2[1]=t8; av2[2]=lf[105]; tp(3,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2649,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:259: string-prefix?"); t8=C_fast_retrieve(lf[107]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=lf[108]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} /* k4523 in k4520 in k4517 in k4514 in k4511 in k4508 in k4505 in k4502 in k4499 in k4496 in k4493 in k4490 in k4487 in k4481 in setup-api#find-library in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in ... */ static void C_ccall f_4525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4525,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4528,a[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_trace("setup-api.scm:552: ##sys#write-char-0"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[70]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* k4520 in k4517 in k4514 in k4511 in k4508 in k4505 in k4502 in k4499 in k4496 in k4493 in k4490 in k4487 in k4481 in setup-api#find-library in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4522,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4525,a[2]=((C_word*)t0)[2],a[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_trace("setup-api.scm:552: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4526 in k4523 in k4520 in k4517 in k4514 in k4511 in k4508 in k4505 in k4502 in k4499 in k4496 in k4493 in k4490 in k4487 in k4481 in setup-api#find-library in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4528,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4531,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:552: get-output-string"); t3=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3480 in k3477 in k3474 in k3471 in k3468 in setup-api#standard-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ static void C_ccall f_3482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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,2)))){ C_save_and_reclaim((void *)f_3482,2,av);} a=C_alloc(39); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3485,a[2]=((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_list(&a,9,lf[154],lf[155],lf[156],C_fix(3),lf[157],C_fix(1),((C_word*)t0)[7],lf[158],((C_word*)t0)[3]); t5=C_a_i_list1(&a,1,t4); C_trace("setup-api.scm:408: execute"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[81]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[81]+1); av2[1]=t3; av2[2]=t5; tp(3,av2);}} /* smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in ... */ 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=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(17,c,3)))){ C_save_and_reclaim((void *)f_2654,3,av);} a=C_alloc(17); 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[78]); t8=C_i_check_list_2(t2,lf[82]); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2664,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|6,a[1]=(C_word)f_2683,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li14),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_2683(t13,t9,t2);} /* setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in ... */ static void C_ccall f_2651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_2651,3,av);} a=C_alloc(20); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2654,a[2]=((C_word)li15),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=t3; t9=C_i_check_list_2(t2,lf[82]); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2750,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|6,a[1]=(C_word)f_2781,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,a[6]=((C_word)li17),tmp=(C_word)a,a+=7,tmp)); t14=((C_word*)t12)[1]; f_2781(t14,t10,t2);} /* k3497 in k3505 in k3501 in k3486 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in setup-api#standard-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3499,2,av);} C_trace("setup-api.scm:416: install-extension"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[149]); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[149]+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);}} /* k4511 in k4508 in k4505 in k4502 in k4499 in k4496 in k4493 in k4490 in k4487 in k4481 in setup-api#find-library in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in ... */ static void C_ccall f_4513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4513,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4516,a[2]=((C_word*)t0)[2],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_trace("setup-api.scm:552: ##sys#write-char-0"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[70]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* k4517 in k4514 in k4511 in k4508 in k4505 in k4502 in k4499 in k4496 in k4493 in k4490 in k4487 in k4481 in setup-api#find-library in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4519,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4522,a[2]=((C_word*)t0)[2],a[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_trace("setup-api.scm:552: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4514 in k4511 in k4508 in k4505 in k4502 in k4499 in k4496 in k4493 in k4490 in k4487 in k4481 in setup-api#find-library in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in ... */ 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 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_4516,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4519,a[2]=((C_word*)t0)[2],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_trace("setup-api.scm:552: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[224]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4508 in k4505 in k4502 in k4499 in k4496 in k4493 in k4490 in k4487 in k4481 in setup-api#find-library in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_4510,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4513,a[2]=((C_word*)t0)[2],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_trace("setup-api.scm:552: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[225]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4481 in setup-api#find-library in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 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 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_4483,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[49]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4489,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); C_trace("setup-api.scm:552: ##sys#print"); t6=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[229]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k4487 in k4481 in setup-api#find-library in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 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(7,c,3)))){ C_save_and_reclaim((void *)f_4489,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4492,a[2]=((C_word*)t0)[2],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_trace("setup-api.scm:552: ##sys#write-char-0"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[70]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* k4370 in k4364 in a4357 in a4351 in a4336 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in ... */ static void C_ccall f_4372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4372,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4375,a[2]=((C_word*)t0)[2],a[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_trace("setup-api.scm:544: ##sys#write-char-0"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[70]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k4373 in k4370 in k4364 in a4357 in a4351 in a4336 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in ... */ 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 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_4375,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4378,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_4385,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:544: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* setup-api#find-library in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 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=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_4475,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4483,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:552: open-output-string"); t5=C_fast_retrieve(lf[53]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k4364 in a4357 in a4351 in a4336 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in ... */ 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 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_4366,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[49]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4372,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_trace("setup-api.scm:544: ##sys#print"); t6=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=C_retrieve2(lf[29],"setup-api#\052remove-command\052"); av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k4376 in k4373 in k4370 in k4364 in a4357 in a4351 in a4336 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in ... */ static void C_ccall f_4378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4378,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4381,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:544: get-output-string"); t3=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* reg in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in ... */ static void C_fcall f_2407(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_2407,3,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2415,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:224: make-pathname"); t5=C_fast_retrieve(lf[79]);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=C_retrieve2(lf[12],"setup-api#\052chicken-bin-path\052"); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a4351 in a4336 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 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 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_4352,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4358,a[2]=((C_word*)t0)[2],a[3]=((C_word)li62),tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4387,a[2]=((C_word*)t0)[3],a[3]=((C_word)li64),tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:544: ##sys#call-with-values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* setup-api#$system in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_fcall f_5056(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,4)))){ C_save_and_reclaim_args((void *)trf_5056,2,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5060,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[8],"setup-api#\052windows-shell\052"))){ C_trace("setup-api.scm:640: string-append"); t4=*((C_word*)lf[254]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=lf[255]; av2[3]=t2; av2[4]=lf[256]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5110,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5135,a[2]=t4,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:641: software-version"); t6=C_fast_retrieve(lf[168]);{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k2331 in k2311 in k2308 in k2302 in k2295 in k2292 in k2238 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2333,2,av);} C_trace("setup-api.scm:205: ##sys#print"); t2=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2641 in k2647 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_ccall f_2643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2643,2,av);} C_trace("setup-api.scm:260: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k2647 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ 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 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_2649,2,av);} a=C_alloc(3); t2=(C_truep(t1)?C_retrieve2(lf[8],"setup-api#\052windows-shell\052"):C_SCHEME_FALSE); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2643,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:260: substring"); t4=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} else{ C_trace("setup-api.scm:261: find-program"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[80]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[80]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}}} /* k5074 in k5061 in k5058 in setup-api#$system in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 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 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_5076,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[49]); t5=(*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]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); C_trace("setup-api.scm:650: ##sys#print"); t6=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[253]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k2323 in k2320 in k2317 in k2314 in k2311 in k2308 in k2302 in k2295 in k2292 in k2238 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in ... */ 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,2)))){ C_save_and_reclaim((void *)f_2325,2,av);} C_trace("setup-api.scm:204: $system"); f_5056(((C_word*)t0)[2],t1);} /* k2320 in k2317 in k2314 in k2311 in k2308 in k2302 in k2295 in k2292 in k2238 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in ... */ 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(3,c,2)))){ C_save_and_reclaim((void *)f_2322,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2325,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:205: get-output-string"); t3=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in k1889 in k1886 in k1883 in k1880 */ static void C_ccall f_1915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1915,2,av);} a=C_alloc(6); t2=C_mutate2(&lf[0] /* (set! setup-api#constant26 ...) */,lf[1]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1920,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("##sys#peek-c-string"); t4=*((C_word*)lf[272]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_CC); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3328 in map-loop731 in setup-api#check-filelist in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 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 t3; 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_3330,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3305(t6,((C_word*)t0)[5],t5);} /* k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in k1889 in k1886 in k1883 in k1880 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1912,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1915,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_files_toplevel(2,av2);}} /* k2327 in k2317 in k2314 in k2311 in k2308 in k2302 in k2295 in k2292 in k2238 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in ... */ static void C_ccall f_2329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2329,2,av);} C_trace("setup-api.scm:205: ##sys#print"); t2=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5043 in k4980 in setup-api#remove-extension in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 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 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_5045,2,av);} a=C_alloc(16); t2=C_i_assq(lf[120],t1); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4988,a[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_4996,a[2]=((C_word*)t0)[3],a[3]=((C_word)li94),tmp=(C_word)a,a+=4,tmp); t5=C_i_cdr(t2); t6=C_i_check_list_2(t5,lf[109]); 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_5020,a[2]=t8,a[3]=t4,a[4]=((C_word)li95),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_5020(t10,t3,t5);} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_4988(2,av2);}}} /* k3432 in g799 in setup-api#supply-version in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_3434,2,av);} a=C_alloc(9); t2=C_a_i_list(&a,2,lf[143],t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k5089 in k5086 in k5083 in k5080 in k5074 in k5061 in k5058 in setup-api#$system in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5091,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); C_trace("setup-api.scm:650: ##sys#write-char-0"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[70]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* k5095 in k5092 in k5089 in k5086 in k5083 in k5080 in k5074 in k5061 in k5058 in setup-api#$system in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_5097,2,av);} a=C_alloc(4); 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); C_trace("setup-api.scm:650: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5092 in k5089 in k5086 in k5083 in k5080 in k5074 in k5061 in k5058 in setup-api#$system in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 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 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_5094,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); C_trace("setup-api.scm:650: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[252]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4882 in k4872 in k4869 in k4863 in k4853 in a4850 in a4844 in a4829 in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in ... */ static void C_ccall f_4884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4884,2,av);} C_trace("setup-api.scm:614: ##sys#print"); t2=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4878 in k4875 in k4872 in k4869 in k4863 in k4853 in a4850 in a4844 in a4829 in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4880,2,av);} C_trace("setup-api.scm:614: $system"); f_5056(((C_word*)t0)[2],t1);} /* k4700 in loop in k4630 in k4626 in setup-api#version>=? in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ 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 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_4702,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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); C_trace("setup-api.scm:577: loop"); t10=((C_word*)((C_word*)t0)[5])[1]; f_4634(t10,((C_word*)t0)[2],t7,t9);} else{ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} /* k5061 in k5058 in setup-api#$system in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 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 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_5063,2,av);} a=C_alloc(5); t2=t1; t3=C_eqp(t2,C_fix(0)); if(C_truep(t3)){ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_5076,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:650: open-output-string"); t5=C_fast_retrieve(lf[53]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k5058 in setup-api#$system in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 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 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_5060,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5063,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:647: system"); t4=C_fast_retrieve(lf[191]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4383 in k4373 in k4370 in k4364 in a4357 in a4351 in a4336 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4385,2,av);} C_trace("setup-api.scm:544: ##sys#print"); t2=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop445 in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in ... */ static void C_fcall f_2781(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_2781,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_2806,a[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_trace("setup-api.scm:271: g451"); 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);}}} /* k4379 in k4376 in k4373 in k4370 in k4364 in a4357 in a4351 in a4336 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 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 *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);} C_trace("setup-api.scm:544: $system"); f_5056(((C_word*)t0)[2],t1);} /* k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in k1889 in k1886 in k1883 in k1880 */ static void C_ccall f_1928(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1928,2,av);} a=C_alloc(6); t2=C_mutate2(&lf[4] /* (set! setup-api#*target-cflags* ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1932,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("##sys#peek-c-string"); t4=*((C_word*)lf[272]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3600 in k3594 in k3588 in k3585 in k3582 in k3579 in g883 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in ... */ static void C_ccall f_3602(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_3602,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_3619,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:445: destination-prefix"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[112]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[112]+1); av2[1]=t2; tp(2,av2);}}} /* k4886 in k4863 in k4853 in a4850 in a4844 in a4829 in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4888,2,av);} C_trace("setup-api.scm:614: ##sys#print"); t2=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3471 in k3468 in setup-api#standard-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ static void C_ccall f_3473(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3473,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3476,a[2]=((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_trace("setup-api.scm:411: make-pathname"); t4=C_fast_retrieve(lf[79]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; av2[3]=t2; av2[4]=lf[161]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3468 in setup-api#standard-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_ccall f_3470(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3470,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3473,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_trace("setup-api.scm:410: ->string"); t4=C_fast_retrieve(lf[78]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in k1889 in k1886 in k1883 in k1880 */ static void C_ccall f_1924(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1924,2,av);} a=C_alloc(6); t2=C_mutate2(&lf[3] /* (set! setup-api#*cxx* ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1928,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("##sys#peek-c-string"); t4=*((C_word*)lf[272]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4869 in k4863 in k4853 in a4850 in a4844 in a4829 in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4871,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4874,a[2]=((C_word*)t0)[2],a[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_trace("setup-api.scm:614: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[243]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4872 in k4869 in k4863 in k4853 in a4850 in a4844 in a4829 in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_4874,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4877,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_4884,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:615: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* k5120 in g1453 in k5108 in setup-api#$system in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5122,2,av);} C_trace("setup-api.scm:644: string-append"); t2=*((C_word*)lf[254]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[257]; av2[3]=t1; av2[4]=lf[258]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in k1889 in k1886 in k1883 in k1880 */ 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 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_1920,2,av);} a=C_alloc(6); t2=C_mutate2(&lf[2] /* (set! setup-api#*cc* ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1924,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("##sys#peek-c-string"); t4=*((C_word*)lf[272]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in setup-api#standard-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ 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 t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_3485,2,av);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3488,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_list(&a,7,lf[154],lf[155],lf[156],C_fix(3),lf[157],C_fix(0),((C_word*)t0)[7]); t4=C_a_i_list1(&a,1,t3); C_trace("setup-api.scm:415: execute"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[81]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[81]+1); av2[1]=t2; av2[2]=t4; tp(3,av2);}} /* k3486 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in setup-api#standard-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in ... */ static void C_ccall f_3488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_3488,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3503,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_trace("setup-api.scm:418: pathname-replace-extension"); t3=C_fast_retrieve(lf[151]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[8]; av2[3]=lf[153]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4875 in k4872 in k4869 in k4863 in k4853 in a4850 in a4844 in a4829 in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ 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_trace("setup-api.scm:614: get-output-string"); t3=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4386 in a4351 in a4336 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in ... */ static void C_ccall f_4387(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_4387,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_4393,a[2]=t2,a[3]=((C_word)li63),tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:544: k1145"); t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* setup-api#ensure-directory in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ static void C_fcall f_4166(C_word 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_4166,3,t1,t2,t3);} a=C_alloc(4); 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_4173,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t5)){ t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=t2; f_4173(2,av2);}} else{ C_trace("setup-api.scm:514: pathname-directory"); t7=C_fast_retrieve(lf[184]);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} /* k3627 in k3588 in k3585 in k3582 in k3579 in g883 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in ... */ static void C_fcall f_3629(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_3629,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3644,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:443: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word av2[3]; av2[0]=*((C_word*)lf[14]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; f_3596(2,av2);}}} /* k3474 in k3471 in k3468 in setup-api#standard-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in ... */ static void C_ccall f_3476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3476,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3479,a[2]=((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_trace("setup-api.scm:412: make-pathname"); t4=C_fast_retrieve(lf[79]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; av2[3]=((C_word*)t0)[6]; av2[4]=lf[160]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3477 in k3474 in k3471 in k3468 in setup-api#standard-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ 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 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_3479,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3482,a[2]=((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_trace("setup-api.scm:413: make-pathname"); t4=C_fast_retrieve(lf[79]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; av2[3]=((C_word*)t0)[7]; av2[4]=lf[159]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in k1889 in k1886 in k1883 in k1880 */ static void C_ccall f_1909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1909,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1912,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k1904 in k1901 in k1898 in k1895 in k1892 in k1889 in k1886 in k1883 in k1880 */ 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,2)))){ C_save_and_reclaim((void *)f_1906,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1909,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_ports_toplevel(2,av2);}} /* k4863 in k4853 in a4850 in a4844 in a4829 in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 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 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_4865,2,av);} a=C_alloc(10); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[49]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4871,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_4888,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:614: qs"); t7=C_fast_retrieve(lf[15]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3621 in k3617 in k3600 in k3594 in k3588 in k3585 in k3582 in k3579 in g883 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3623,2,av);} a=C_alloc(4); if(C_truep(C_i_equalp(((C_word*)t0)[2],t1))){ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[4]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2442,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:234: runtime-prefix"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[113]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[113]+1); av2[1]=t4; tp(2,av2);}}} /* map-loop731 in setup-api#check-filelist in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_fcall f_3305(C_word t0,C_word t1,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_3305,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_3330,a[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_3272,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_listp(t6))){ C_trace("setup-api.scm:372: every"); t8=C_fast_retrieve(lf[139]);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=*((C_word*)lf[140]+1); av2[3]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t8=t7;{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_FALSE; f_3272(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);}}} /* k3799 in k3796 in k3793 in k3790 in g981 in k3782 in k3779 in k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in ... */ static void C_ccall f_3801(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3801,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4192 in k4180 in k4171 in setup-api#ensure-directory in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in ... */ 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; 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_4194,2,av);} a=C_alloc(3); if(C_truep(C_retrieve2(lf[8],"setup-api#\052windows-shell\052"))){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[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_4212,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:521: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}}} /* a4850 in a4844 in a4829 in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 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 *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_4851,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4855,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:613: get-environment-variable"); t3=C_fast_retrieve(lf[60]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[244]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a4464 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 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 *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_4465,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[217]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4146 in k4143 in k4140 in k4134 in k4124 in k4118 in setup-api#repo-path in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4148,2,av);} C_trace("setup-api.scm:505: make-pathname"); t2=C_fast_retrieve(lf[79]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1901 in k1898 in k1895 in k1892 in k1889 in k1886 in k1883 in k1880 */ 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; 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_1903,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1906,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k4853 in a4850 in a4844 in a4829 in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ 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(5,c,2)))){ C_save_and_reclaim((void *)f_4855,2,av);} a=C_alloc(5); t2=(C_truep(t1)?t1:lf[242]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4865,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:614: open-output-string"); t5=C_fast_retrieve(lf[53]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a4461 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 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 *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_4462,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[215]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1898 in k1895 in k1892 in k1889 in k1886 in k1883 in k1880 */ static void C_ccall f_1900(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1900,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1903,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d13_toplevel(2,av2);}} /* a4467 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_ccall f_4468(C_word c,C_word *av){ 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,1)))){ C_save_and_reclaim((void *)f_4468,2,av);} if(C_truep(((C_word*)t0)[2])){ t2=C_retrieve2(lf[3],"setup-api#\052cxx\052"); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_retrieve2(lf[3],"setup-api#\052cxx\052"); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_retrieve2(lf[2],"setup-api#\052cc\052"); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_retrieve2(lf[2],"setup-api#\052cc\052"); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* tmp11876 in setup-api#setup-error-handling in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ 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=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_5139,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5143,a[2]=t1,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:655: print-error-message"); t4=C_fast_retrieve(lf[262]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=*((C_word*)lf[263]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* setup-api#setup-error-handling in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 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 *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_5137,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5139,a[2]=((C_word)li99),tmp=(C_word)a,a+=3,tmp); t3=C_mutate2((C_word*)lf[264]+1 /* (set! ##sys#current-exception-handler ...) */,t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in k1889 in k1886 in k1883 in k1880 */ 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 t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_1936,2,av);} a=C_alloc(6); t2=C_mutate2(&lf[6] /* (set! setup-api#*target-lib-home* ...) */,t1); t3=lf[7] /* setup-api#*sudo* */ =C_SCHEME_FALSE;; t4=C_mutate2(&lf[8] /* (set! setup-api#*windows-shell* ...) */,C_mk_bool(C_WINDOWS_SHELL)); t5=lf[9] /* setup-api#*registered-programs* */ =C_SCHEME_END_OF_LIST;; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1943,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5298,a[2]=t6,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:86: software-type"); t8=C_fast_retrieve(lf[287]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k5133 in setup-api#$system in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5135,2,av);} t2=C_eqp(t1,lf[165]); if(C_truep(t2)){ C_trace("setup-api.scm:642: get-environment-variable"); t3=C_fast_retrieve(lf[60]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[259]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_5110(2,av2);}}} /* k3438 in setup-api#supply-version in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_ccall f_3440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_3440,2,av);} a=C_alloc(11); t2=C_a_i_list(&a,2,lf[142],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3455,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:402: extension-name"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[144]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[144]+1); av2[1]=t4; tp(2,av2);}} /* k3814 in k3796 in k3793 in k3790 in g981 in k3782 in k3779 in k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_3816,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,3,C_retrieve2(lf[31],"setup-api#\052chmod-command\052"),lf[121],t1); t3=C_a_i_list1(&a,1,t2); C_trace("setup-api.scm:474: execute"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[81]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[81]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t3; tp(3,av2);}} /* k4140 in k4134 in k4124 in k4118 in setup-api#repo-path in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 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 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_4142,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4145,a[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_fudge(C_fix(42)); C_trace("setup-api.scm:507: ##sys#print"); t4=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4143 in k4140 in k4134 in k4124 in k4118 in setup-api#repo-path in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4145,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4148,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:507: get-output-string"); t3=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4455 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 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 *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_4456,2,av);} C_trace("setup-api.scm:525: setup-verbose-mode"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[19]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[19]+1); av2[1]=t1; tp(2,av2);}} /* a4452 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ 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 *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_4453,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in k1889 in k1886 in k1883 in k1880 */ static void C_ccall f_1932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1932,2,av);} a=C_alloc(6); t2=C_mutate2(&lf[5] /* (set! setup-api#*target-libs* ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1936,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("##sys#peek-c-string"); t4=*((C_word*)lf[272]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4342 in a4336 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 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=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_4343,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4349,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:544: k1145"); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* setup-api#standard-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ 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; 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_3457,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; 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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3470,a[2]=t1,a[3]=t2,a[4]=t6,tmp=(C_word)a,a+=5,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3539,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:408: ##sys#get-keyword"); {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[162]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[162]+1); av2[1]=t9; av2[2]=lf[163]; av2[3]=t8; av2[4]=t10; tp(5,av2);}} /* k3453 in k3438 in setup-api#supply-version in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ static void C_ccall f_3455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_3455,2,av);} a=C_alloc(6); t2=C_a_i_list(&a,2,lf[143],t1); C_trace("setup-api.scm:400: cons*"); t3=C_fast_retrieve(lf[93]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4357 in a4351 in a4336 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 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!=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_4358,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4366,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:544: open-output-string"); t3=C_fast_retrieve(lf[53]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4171 in setup-api#ensure-directory in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_ccall f_4173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_4173,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4176,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|5,a[1]=(C_word)f_4182,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); C_trace("setup-api.scm:515: file-exists?"); t5=C_fast_retrieve(lf[150]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4174 in k4171 in setup-api#ensure-directory in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4176,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a4446 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 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 *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_4447,2,av);} C_trace("setup-api.scm:529: g1138"); t2=*((C_word*)lf[210]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4348 in a4342 in a4336 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 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 *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_4349,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4432 in k4428 in k4424 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in ... */ static void C_ccall f_4434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,16)))){ C_save_and_reclaim((void *)f_4434,2,av);} t2=(C_truep(C_retrieve2(lf[10],"setup-api#\052windows\052"))?lf[195]:lf[196]); t3=(C_truep(((C_word*)t0)[2])?lf[197]:lf[198]); C_trace("setup-api.scm:531: conc"); t4=C_fast_retrieve(lf[199]);{ C_word *av2; if(c >= 17) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(17); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[200]; av2[4]=((C_word*)t0)[5]; av2[5]=lf[201]; av2[6]=((C_word*)t0)[6]; av2[7]=lf[202]; av2[8]=C_retrieve2(lf[4],"setup-api#\052target-cflags\052"); av2[9]=lf[203]; av2[10]=((C_word*)t0)[7]; av2[11]=lf[204]; av2[12]=((C_word*)t0)[8]; av2[13]=lf[205]; av2[14]=t1; av2[15]=t2; av2[16]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(17,av2);}} /* k4428 in k4424 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 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 t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,7)))){ C_save_and_reclaim((void *)f_4430,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4434,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[206]; f_4434(2,av2);}} else{ C_trace("setup-api.scm:538: conc"); t4=C_fast_retrieve(lf[199]);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t4; av2[1]=t3; av2[2]=lf[207]; av2[3]=C_retrieve2(lf[6],"setup-api#\052target-lib-home\052"); av2[4]=lf[208]; av2[5]=((C_word*)t0)[9]; av2[6]=lf[209]; av2[7]=C_retrieve2(lf[5],"setup-api#\052target-libs\052"); ((C_proc)(void*)(*((C_word*)t4+1)))(8,av2);}}} /* k4031 in k4024 in k4021 in k3979 in k3976 in k3973 in k3970 in setup-api#install-script in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4033,2,av);} C_trace("setup-api.scm:494: write-info"); f_2884(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k4024 in k4021 in k3979 in k3976 in k3973 in k3970 in setup-api#install-script in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ static void C_ccall f_4026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4026,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4033,a[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_trace("setup-api.scm:494: supply-version"); f_3414(t2,((C_word*)t0)[5],C_SCHEME_FALSE);} /* a4889 in a4844 in a4829 in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 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 *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_4890,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_4896,a[2]=t2,a[3]=((C_word)li86),tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:612: k1357"); t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k4021 in k3979 in k3976 in k3973 in k3970 in setup-api#install-script in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ static void C_ccall f_4023(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_4023,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4026,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[8],"setup-api#\052windows-shell\052"))){ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_4026(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4048,a[2]=t3,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:493: string-intersperse"); t5=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[179]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k3348 in exify in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ 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; 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_3350,2,av);} if(C_truep(t1)){ if(C_truep(C_i_equalp(lf[171],t1))){ t2=C_fast_retrieve(lf[172]); t3=C_fast_retrieve(lf[172]); C_trace("setup-api.scm:378: pathname-replace-extension"); t4=C_fast_retrieve(lf[151]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_fast_retrieve(lf[172]); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ if(C_truep(C_i_equalp(lf[173],t1))){ if(C_truep(C_retrieve2(lf[8],"setup-api#\052windows-shell\052"))){ C_trace("setup-api.scm:378: pathname-replace-extension"); t2=C_fast_retrieve(lf[151]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[174]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ C_trace("setup-api.scm:378: pathname-replace-extension"); t2=C_fast_retrieve(lf[151]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[175]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} else{ C_trace("setup-api.scm:378: pathname-replace-extension"); t2=C_fast_retrieve(lf[151]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}}} else{ C_trace("setup-api.scm:378: pathname-replace-extension"); t2=C_fast_retrieve(lf[151]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* a4392 in a4386 in a4351 in a4336 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in ... */ static void C_ccall f_4393(C_word c,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_4393,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k2748 in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in ... */ static void C_ccall f_2750(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2750,2,av);} a=C_alloc(6); t2=C_i_check_list_2(t1,lf[109]); 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_2758,a[2]=t4,a[3]=((C_word)li16),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_2758(t6,((C_word*)t0)[2],t1);} /* a4895 in a4889 in a4844 in a4829 in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ 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!=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_4896,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* for-each-loop393 in k2748 in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in ... */ static void C_fcall f_2758(C_word t0,C_word t1,C_word t2){ C_word 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(14,0,2)))){ C_save_and_reclaim_args((void *)trf_2758,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_2768,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_2720,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2726,a[2]=t7,a[3]=t6,a[4]=t5,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:269: run-verbose"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[76]); C_word av2[2]; av2[0]=*((C_word*)lf[76]+1); av2[1]=t8; tp(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);}}} /* k4490 in k4487 in k4481 in setup-api#find-library in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 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(7,c,4)))){ C_save_and_reclaim((void *)f_4492,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4495,a[2]=((C_word*)t0)[2],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_trace("setup-api.scm:552: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[228]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_ccall f_4803(C_word c,C_word *av){ C_word tmp; C_word 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_4803,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_TRUE:C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4970,a[2]=t1,a[3]=t2,a[4]=t6,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:607: file-exists?"); t8=C_fast_retrieve(lf[150]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k4493 in k4490 in k4487 in k4481 in setup-api#find-library in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 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 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_4495,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4498,a[2]=((C_word*)t0)[2],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_trace("setup-api.scm:552: ##sys#write-char-0"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[70]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* k4011 in k3993 in k3990 in k3987 in g1036 in k3979 in k3976 in k3973 in k3970 in setup-api#install-script in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_4013,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,3,C_retrieve2(lf[31],"setup-api#\052chmod-command\052"),lf[121],t1); t3=C_a_i_list1(&a,1,t2); C_trace("setup-api.scm:489: execute"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[81]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[81]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t3; tp(3,av2);}} /* k3976 in k3973 in k3970 in setup-api#install-script in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in ... */ static void C_ccall f_3978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3978,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3981,a[2]=((C_word*)t0)[2],a[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_4086,a[2]=t2,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:483: make-pathname"); t4=C_fast_retrieve(lf[79]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t1; av2[3]=lf[180]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k4496 in k4493 in k4490 in k4487 in k4481 in setup-api#find-library in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ static void C_ccall f_4498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4498,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4501,a[2]=((C_word*)t0)[2],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_trace("setup-api.scm:552: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[227]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3973 in k3970 in setup-api#install-script in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3975,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3978,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_trace("setup-api.scm:482: installation-prefix"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[114]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[114]+1); av2[1]=t3; tp(2,av2);}} /* k3970 in setup-api#install-script in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_ccall f_3972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3972,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3975,a[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_listp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; C_trace("setup-api.scm:481: check-filelist"); f_3254(t2,t3);} else{ t3=C_a_i_list1(&a,1,((C_word*)t0)[5]); C_trace("setup-api.scm:481: check-filelist"); f_3254(t2,t3);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* setup-api#install-script in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 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=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_3962,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_END_OF_LIST:C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3972,a[2]=t1,a[3]=t2,a[4]=t7,a[5]=t3,tmp=(C_word)a,a+=6,tmp); C_trace("setup-api.scm:480: setup-install-mode"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[20]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[20]+1); av2[1]=t8; tp(2,av2);}} /* k4502 in k4499 in k4496 in k4493 in k4490 in k4487 in k4481 in setup-api#find-library in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in ... */ 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 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_4504,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4507,a[2]=((C_word*)t0)[2],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_trace("setup-api.scm:552: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[226]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5259 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in ... */ static void C_ccall f_5261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5261,2,av);} C_trace("setup-api.scm:228: reg"); f_2407(((C_word*)t0)[3],lf[275],t1);} /* k4505 in k4502 in k4499 in k4496 in k4493 in k4490 in k4487 in k4481 in setup-api#find-library in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 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; 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_4507,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4510,a[2]=((C_word*)t0)[2],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_trace("setup-api.scm:552: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5263 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in ... */ static void C_ccall f_5265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5265,2,av);} C_trace("setup-api.scm:227: reg"); f_2407(((C_word*)t0)[3],lf[276],t1);} /* k5267 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in ... */ static void C_ccall f_5269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5269,2,av);} C_trace("setup-api.scm:226: reg"); f_2407(((C_word*)t0)[3],lf[277],t1);} /* k4499 in k4496 in k4493 in k4490 in k4487 in k4481 in setup-api#find-library in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4501,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4504,a[2]=((C_word*)t0)[2],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_trace("setup-api.scm:552: ##sys#write-char-0"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[70]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* k2094 in k2091 in k2088 in k2082 in k2078 in setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in ... */ static void C_ccall f_2096(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2096,2,av);} a=C_alloc(4); t2=C_mutate2(&lf[28] /* (set! setup-api#*copy-command* ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2100,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:160: open-output-string"); t4=C_fast_retrieve(lf[53]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2091 in k2088 in k2082 in k2078 in setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in ... */ static void C_ccall f_2093(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2093,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2096,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:159: get-output-string"); t3=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2088 in k2082 in k2078 in setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in ... */ static void C_ccall f_2090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2090,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2093,a[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_trace("setup-api.scm:159: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[58]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3993 in k3990 in k3987 in g1036 in k3979 in k3976 in k3973 in k3970 in setup-api#install-script in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 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 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_3995,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3998,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[8],"setup-api#\052windows-shell\052"))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4013,a[2]=t2,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:489: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}}} /* k3996 in k3993 in k3990 in k3987 in g1036 in k3979 in k3976 in k3973 in k3970 in setup-api#install-script in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3998,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3990 in k3987 in g1036 in k3979 in k3976 in k3973 in k3970 in setup-api#install-script in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 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 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_3992,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3995,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:487: copy-file"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[129]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[129]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t2; tp(4,av2);}} /* k2314 in k2311 in k2308 in k2302 in k2295 in k2292 in k2238 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in ... */ static void C_ccall f_2316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2316,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2319,a[2]=((C_word*)t0)[2],a[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_trace("setup-api.scm:205: ##sys#write-char-0"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[70]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k2311 in k2308 in k2302 in k2295 in k2292 in k2238 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in ... */ static void C_ccall f_2313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2313,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2316,a[2]=((C_word*)t0)[2],a[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_2333,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:205: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t3; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} /* k2308 in k2302 in k2295 in k2292 in k2238 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in ... */ 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(7,c,3)))){ C_save_and_reclaim((void *)f_2310,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2313,a[2]=((C_word*)t0)[2],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_trace("setup-api.scm:205: ##sys#write-char-0"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[70]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k5271 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5273,2,av);} C_trace("setup-api.scm:225: reg"); f_2407(((C_word*)t0)[3],lf[278],t1);} /* a5274 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in ... */ 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 *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_5275,2,av);} t2=C_fast_retrieve(lf[279]); C_trace("setup-api.scm:183: g213"); t3=C_fast_retrieve(lf[279]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2082 in k2078 in setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in ... */ 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; C_word t3; 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_2084,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[49]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2090,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); C_trace("setup-api.scm:159: ##sys#print"); t6=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k3987 in g1036 in k3979 in k3976 in k3973 in k3970 in setup-api#install-script in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ static void C_fcall f_3989(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_3989,2,t0,t1);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3992,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:486: make-dest-pathname"); f_3229(t3,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k2078 in setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2080,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2084,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:159: open-output-string"); t4=C_fast_retrieve(lf[53]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* g1036 in k3979 in k3976 in k3973 in k3970 in setup-api#install-script in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ static void C_fcall f_3985(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_3985,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3989,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t2))){ t4=t2; t5=t3; f_3989(t5,C_u_i_car(t4));} else{ t4=t3; f_3989(t4,t2);}} /* k3979 in k3976 in k3973 in k3970 in setup-api#install-script in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ 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 t3; C_word t4; C_word t5; C_word 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(23,c,3)))){ C_save_and_reclaim((void *)f_3981,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|3,a[1]=(C_word)f_3985,a[2]=t2,a[3]=((C_word)li48),tmp=(C_word)a,a+=4,tmp); t8=C_i_check_list_2(((C_word*)t0)[2],lf[82]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4023,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|6,a[1]=(C_word)f_4050,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li49),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_4050(t13,t9,((C_word*)t0)[2]);} /* k2317 in k2314 in k2311 in k2308 in k2302 in k2295 in k2292 in k2238 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in ... */ static void C_ccall f_2319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2319,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2322,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_2329,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:206: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* k2302 in k2295 in k2292 in k2238 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in ... */ static void C_ccall f_2304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2304,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[49]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2310,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); C_trace("setup-api.scm:205: ##sys#print"); t6=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=C_retrieve2(lf[30],"setup-api#\052move-command\052"); av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k3516 in k3509 in k3501 in k3486 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in setup-api#standard-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in ... */ 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 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_3518,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); t3=((C_word*)t0)[3]; f_3507(t3,C_a_i_cons(&a,2,((C_word*)t0)[4],t2));} else{ t2=((C_word*)t0)[3]; f_3507(t2,C_a_i_cons(&a,2,((C_word*)t0)[4],C_SCHEME_END_OF_LIST));}} /* k3509 in k3501 in k3486 in k3483 in k3480 in k3477 in k3474 in k3471 in k3468 in setup-api#standard-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in ... */ static void C_ccall f_3511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3511,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3518,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:420: file-exists?"); t4=C_fast_retrieve(lf[150]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3931 in map-loop947 in k3779 in k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 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_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3908(t6,((C_word*)t0)[5],t5);} /* k2733 in k2730 in k2724 in for-each-loop393 in k2748 in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ static void C_ccall f_2735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2735,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2738,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:269: ##sys#write-char-0"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[70]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k2730 in k2724 in for-each-loop393 in k2748 in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_ccall f_2732(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2732,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2735,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:269: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2736 in k2733 in k2730 in k2724 in for-each-loop393 in k2748 in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2738,2,av);} C_trace("setup-api.scm:269: ##sys#flush-output"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[110]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k2238 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in ... */ static void C_ccall f_2240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2240,2,av);} a=C_alloc(6); if(C_truep(C_i_listp(((C_word*)t0)[2]))){ t2=C_i_cadr(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2255,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li7),tmp=(C_word)a,a+=6,tmp); C_trace("setup-api.scm:193: with-output-to-file"); t4=C_fast_retrieve(lf[68]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2294,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); C_trace("setup-api.scm:202: create-temporary-file"); t3=C_fast_retrieve(lf[71]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2766 in for-each-loop393 in k2748 in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2768,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2758(t3,((C_word*)t0)[4],t2);} /* k5101 in k5098 in k5095 in k5092 in k5089 in k5086 in k5083 in k5080 in k5074 in k5061 in k5058 in setup-api#$system in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5103,2,av);} C_trace("setup-api.scm:649: error"); t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5098 in k5095 in k5092 in k5089 in k5086 in k5083 in k5080 in k5074 in k5061 in k5058 in setup-api#$system in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5100,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5103,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:650: get-output-string"); t3=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* g1453 in k5108 in setup-api#$system in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in ... */ static void C_fcall f_5114(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_5114,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5122,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:645: qs"); t4=C_fast_retrieve(lf[15]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5108 in setup-api#$system in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ static void C_ccall f_5110(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_5110,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5114,a[2]=((C_word*)t0)[2],a[3]=((C_word)li97),tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:639: g1453"); t3=t2; f_5114(t3,((C_word*)t0)[3],t1);} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_5060(2,av2);}}} /* a2264 in a2254 in k2238 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in ... */ static void C_ccall f_2265(C_word c,C_word *av){ C_word tmp; C_word t0=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(8,c,2)))){ C_save_and_reclaim((void *)f_2265,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_2271,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li5),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_2271(t5,t1);} /* a2254 in k2238 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in ... */ static void C_ccall f_2255(C_word c,C_word *av){ C_word tmp; 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_2255,2,av);} a=C_alloc(5); t2=C_i_car(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2265,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li6),tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:195: with-input-from-file"); t4=C_fast_retrieve(lf[67]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2282 in k2273 in loop in a2264 in a2254 in k2238 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2284,2,av);} C_trace("setup-api.scm:201: loop"); t2=((C_word*)((C_word*)t0)[2])[1]; f_2271(t2,((C_word*)t0)[3]);} /* k2621 in k2612 in k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2623,2,av);} if(C_truep(t1)){ C_trace("setup-api.scm:245: host-extension"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[11]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[11]+1); av2[1]=((C_word*)t0)[2]; tp(2,av2);}} else{ t2=((C_word*)t0)[3]; f_2472(t2,lf[101]);}} /* loop in a2264 in a2254 in k2238 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in ... */ static void C_fcall f_2271(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_2271,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2275,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); C_trace("setup-api.scm:198: read-line"); t3=C_fast_retrieve(lf[66]);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2273 in loop in a2264 in a2254 in k2238 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in ... */ 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 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_2275,2,av);} a=C_alloc(7); if(C_truep(C_eofp(t1))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_2284,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2291,a[2]=t2,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:200: irregex-replace/all"); t4=C_fast_retrieve(lf[65]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t1; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k2612 in k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_ccall f_2614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2614,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2617,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_2472(t4,(C_truep(t3)?lf[102]:lf[101]));} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2623,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:244: feature?"); t4=C_fast_retrieve(lf[103]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[104]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k2615 in k2612 in k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2617,2,av);} t2=((C_word*)t0)[2]; f_2472(t2,(C_truep(t1)?lf[101]:lf[102]));} /* k2609 in k2470 in k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ static void C_ccall f_2611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2611,2,av);} a=C_alloc(6); t2=(C_truep(t1)?lf[87]:lf[88]); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2608,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_trace("setup-api.scm:248: host-extension"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[11]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[11]+1); av2[1]=t4; tp(2,av2);}} /* k3681 in k3585 in k3582 in k3579 in g883 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in ... */ 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 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_3683,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,3,C_retrieve2(lf[31],"setup-api#\052chmod-command\052"),lf[121],t1); t3=C_a_i_list1(&a,1,t2); C_trace("setup-api.scm:438: execute"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[81]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[81]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t3; tp(3,av2);}} /* k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_2424,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2427,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_5261,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("##sys#peek-c-string"); t4=*((C_word*)lf[272]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_CHICKEN_INSTALL_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_2427,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2430,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_5257,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("##sys#peek-c-string"); t4=*((C_word*)lf[272]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_CHICKEN_UNINSTALL_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5296 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in k1889 in k1886 in k1883 in k1880 */ static void C_ccall f_5298(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5298,2,av);} t2=C_eqp(t1,lf[285]); if(C_truep(t2)){ C_trace("setup-api.scm:87: build-platform"); t3=C_fast_retrieve(lf[286]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_1943(2,av2);}}} /* k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in ... */ static void C_ccall f_2421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2421,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2424,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_5265,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("##sys#peek-c-string"); t4=*((C_word*)lf[272]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_CSC_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2413 in reg in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in ... */ static void C_ccall f_2415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2415,2,av);} C_trace("setup-api.scm:224: register-program"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[77]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[77]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 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 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_2418,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2421,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_5269,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("##sys#peek-c-string"); t4=*((C_word*)lf[272]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3666 in k3588 in k3585 in k3582 in k3579 in g883 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 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 *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_eqp(t1,lf[165]); if(C_truep(t2)){ t3=C_i_cadr(((C_word*)t0)[2]); if(C_truep(C_i_equalp(t3,((C_word*)t0)[3]))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3660,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:442: pathname-extension"); t5=C_fast_retrieve(lf[167]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=((C_word*)t0)[4]; f_3629(t4,C_SCHEME_FALSE);}} else{ t3=((C_word*)t0)[4]; f_3629(t3,C_SCHEME_FALSE);}} /* k3658 in k3666 in k3588 in k3585 in k3582 in k3579 in g883 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in ... */ static void C_ccall f_3660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3660,2,av);} t2=((C_word*)t0)[2]; f_3629(t2,C_i_equalp(t1,lf[166]));} /* k2168 in k2162 in k2158 in k2155 in k2152 in k2146 in k2142 in k2139 in k2136 in k2130 in k2126 in k2123 in k2120 in k2114 in k2110 in k2107 in k2104 in k2098 in k2094 in k2091 in k2088 in k2082 in ... */ static void C_ccall f_2170(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2170,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2173,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:164: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[52]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2171 in k2168 in k2162 in k2158 in k2155 in k2152 in k2146 in k2142 in k2139 in k2136 in k2130 in k2126 in k2123 in k2120 in k2114 in k2110 in k2107 in k2104 in k2098 in k2094 in k2091 in k2088 in ... */ static void C_ccall f_2173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2173,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2176,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:164: get-output-string"); t3=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2174 in k2171 in k2168 in k2162 in k2158 in k2155 in k2152 in k2146 in k2142 in k2139 in k2136 in k2130 in k2126 in k2123 in k2120 in k2114 in k2110 in k2107 in k2104 in k2098 in k2094 in k2091 in ... */ 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; 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_2176,2,av);} t2=C_mutate2(&lf[33] /* (set! setup-api#*mkdir-command* ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3691 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ static void C_ccall f_3693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3693,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3700,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:451: supply-version"); f_3414(t3,((C_word*)t0)[4],C_SCHEME_FALSE);} /* k5243 in k5228 */ 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 *a; C_check_for_interrupt; 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_a_i_list(&a,3,C_retrieve2(lf[33],"setup-api#\052mkdir-command\052"),lf[117],t1); t3=C_a_i_list1(&a,1,t2); C_trace("setup-api.scm:310: execute"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[81]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[81]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t3; tp(3,av2);}} /* k5247 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5249,2,av);} C_trace("setup-api.scm:231: reg"); f_2407(((C_word*)t0)[3],lf[271],t1);} /* k2158 in k2155 in k2152 in k2146 in k2142 in k2139 in k2136 in k2130 in k2126 in k2123 in k2120 in k2114 in k2110 in k2107 in k2104 in k2098 in k2094 in k2091 in k2088 in k2082 in k2078 in setup-api#sudo-install in ... */ static void C_ccall f_2160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2160,2,av);} a=C_alloc(4); t2=C_mutate2(&lf[32] /* (set! setup-api#*ranlib-command* ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2164,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:164: open-output-string"); t4=C_fast_retrieve(lf[53]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3642 in k3627 in k3588 in k3585 in k3582 in k3579 in g883 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in ... */ static void C_ccall f_3644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3644,2,av);} a=C_alloc(9); t2=C_a_i_list(&a,2,C_retrieve2(lf[32],"setup-api#\052ranlib-command\052"),t1); t3=C_a_i_list1(&a,1,t2); C_trace("setup-api.scm:443: execute"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[81]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[81]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t3; tp(3,av2);}} /* k2162 in k2158 in k2155 in k2152 in k2146 in k2142 in k2139 in k2136 in k2130 in k2126 in k2123 in k2120 in k2114 in k2110 in k2107 in k2104 in k2098 in k2094 in k2091 in k2088 in k2082 in k2078 in ... */ 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; C_word t3; 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_2164,2,av);} a=C_alloc(5); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[49]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2170,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:164: ##sys#print"); t6=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5251 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5253,2,av);} C_trace("setup-api.scm:230: reg"); f_2407(((C_word*)t0)[3],lf[273],t1);} /* k5255 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5257,2,av);} C_trace("setup-api.scm:229: reg"); f_2407(((C_word*)t0)[3],lf[274],t1);} /* k4317 in k4314 in k4311 in k4308 in k4302 in a4295 in a4289 in a4274 in k4261 in k4258 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4319,2,av);} C_trace("setup-api.scm:545: $system"); f_5056(((C_word*)t0)[2],t1);} /* k4314 in k4311 in k4308 in k4302 in a4295 in a4289 in a4274 in k4261 in k4258 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ 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_trace("setup-api.scm:545: get-output-string"); t3=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4311 in k4308 in k4302 in a4295 in a4289 in a4274 in k4261 in k4258 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 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 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_4313,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4316,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_4323,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:545: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; tp(3,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(964))){ C_save(t1); C_rereclaim2(964*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,288); lf[1]=C_decode_literal(C_heaptop,"\376B\000\000\012setup-info"); lf[11]=C_h_intern(&lf[11],24,"setup-api#host-extension"); lf[13]=C_h_intern(&lf[13],24,"setup-api#chicken-prefix"); lf[14]=C_h_intern(&lf[14],19,"setup-api#shellpath"); lf[15]=C_h_intern(&lf[15],2,"qs"); lf[16]=C_h_intern(&lf[16],18,"normalize-pathname"); lf[18]=C_h_intern(&lf[18],30,"setup-api#setup-root-directory"); lf[19]=C_h_intern(&lf[19],28,"setup-api#setup-verbose-mode"); lf[20]=C_h_intern(&lf[20],28,"setup-api#setup-install-mode"); lf[21]=C_h_intern(&lf[21],25,"setup-api#deployment-mode"); lf[22]=C_h_intern(&lf[22],22,"setup-api#program-path"); lf[23]=C_h_intern(&lf[23],28,"setup-api#keep-intermediates"); lf[24]=C_h_intern(&lf[24],24,"setup-api#extra-features"); lf[25]=C_h_intern(&lf[25],17,"register-feature!"); lf[26]=C_h_intern(&lf[26],27,"setup-api#extra-nonfeatures"); lf[27]=C_h_intern(&lf[27],19,"unregister-feature!"); lf[35]=C_decode_literal(C_heaptop,"\376B\000\000\004copy"); lf[36]=C_decode_literal(C_heaptop,"\376B\000\000\011del /Q /S"); lf[37]=C_decode_literal(C_heaptop,"\376B\000\000\004move"); lf[38]=C_decode_literal(C_heaptop,"\376B\000\000\005chmod"); lf[39]=C_decode_literal(C_heaptop,"\376B\000\000\006ranlib"); lf[40]=C_decode_literal(C_heaptop,"\376B\000\000\005cp -r"); lf[41]=C_decode_literal(C_heaptop,"\376B\000\000\006rm -fr"); lf[42]=C_decode_literal(C_heaptop,"\376B\000\000\002mv"); lf[43]=C_decode_literal(C_heaptop,"\376B\000\000\005chmod"); lf[44]=C_decode_literal(C_heaptop,"\376B\000\000\006ranlib"); lf[45]=C_decode_literal(C_heaptop,"\376B\000\000\005mkdir"); lf[46]=C_h_intern(&lf[46],22,"setup-api#sudo-install"); lf[47]=C_h_intern(&lf[47],5,"print"); lf[48]=C_decode_literal(C_heaptop,"\376B\000\0001Warning: cannot install as superuser with Windows"); lf[49]=C_h_intern(&lf[49],7,"sprintf"); lf[50]=C_h_intern(&lf[50],17,"get-output-string"); lf[51]=C_h_intern(&lf[51],9,"\003sysprint"); lf[52]=C_decode_literal(C_heaptop,"\376B\000\000\006 mkdir"); lf[53]=C_h_intern(&lf[53],18,"open-output-string"); lf[54]=C_decode_literal(C_heaptop,"\376B\000\000\007 ranlib"); lf[55]=C_decode_literal(C_heaptop,"\376B\000\000\006 chmod"); lf[56]=C_decode_literal(C_heaptop,"\376B\000\000\003 mv"); lf[57]=C_decode_literal(C_heaptop,"\376B\000\000\007 rm -rf"); lf[58]=C_decode_literal(C_heaptop,"\376B\000\000\006 cp -r"); lf[59]=C_decode_literal(C_heaptop,"\376B\000\000\004sudo"); lf[60]=C_h_intern(&lf[60],24,"get-environment-variable"); lf[61]=C_decode_literal(C_heaptop,"\376B\000\000\004SUDO"); lf[62]=C_h_intern(&lf[62],21,"setup-api#abort-setup"); lf[63]=C_h_intern(&lf[63],15,"setup-api#patch"); lf[64]=C_h_intern(&lf[64],10,"write-line"); lf[65]=C_h_intern(&lf[65],19,"irregex-replace/all"); lf[66]=C_h_intern(&lf[66],9,"read-line"); lf[67]=C_h_intern(&lf[67],20,"with-input-from-file"); lf[68]=C_h_intern(&lf[68],19,"with-output-to-file"); lf[70]=C_h_intern(&lf[70],16,"\003syswrite-char-0"); lf[71]=C_h_intern(&lf[71],21,"create-temporary-file"); lf[72]=C_h_intern(&lf[72],19,"\003sysstandard-output"); lf[73]=C_h_intern(&lf[73],6,"printf"); lf[74]=C_decode_literal(C_heaptop,"\376B\000\000\004 ..."); lf[75]=C_decode_literal(C_heaptop,"\376B\000\000\011patching "); lf[76]=C_h_intern(&lf[76],21,"setup-api#run-verbose"); lf[77]=C_h_intern(&lf[77],26,"setup-api#register-program"); lf[78]=C_h_intern(&lf[78],8,"->string"); lf[79]=C_h_intern(&lf[79],13,"make-pathname"); lf[80]=C_h_intern(&lf[80],22,"setup-api#find-program"); lf[81]=C_h_intern(&lf[81],17,"setup-api#execute"); lf[82]=C_h_intern(&lf[82],3,"map"); lf[83]=C_h_intern(&lf[83],18,"string-intersperse"); lf[84]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[85]=C_decode_literal(C_heaptop,"\376B\000\000\003csc"); lf[86]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[87]=C_decode_literal(C_heaptop,"\376B\000\000\002-k"); lf[88]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[89]=C_decode_literal(C_heaptop,"\376B\000\000\005-host"); lf[90]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[91]=C_decode_literal(C_heaptop,"\376B\000\000\011-deployed"); lf[92]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[93]=C_h_intern(&lf[93],5,"cons\052"); lf[94]=C_decode_literal(C_heaptop,"\376B\000\000\010-feature"); lf[95]=C_decode_literal(C_heaptop,"\376B\000\000\023compiling-extension"); lf[96]=C_h_intern(&lf[96],6,"append"); lf[97]=C_h_intern(&lf[97],17,"\003sysstring-append"); lf[98]=C_decode_literal(C_heaptop,"\376B\000\000\014-no-feature "); lf[99]=C_h_intern(&lf[99],14,"symbol->string"); lf[100]=C_decode_literal(C_heaptop,"\376B\000\000\011-feature "); lf[101]=C_decode_literal(C_heaptop,"\376B\000\000\013-setup-mode"); lf[102]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[103]=C_h_intern(&lf[103],8,"feature\077"); lf[104]=C_h_intern(&lf[104],14,"\000cross-chicken"); lf[105]=C_decode_literal(C_heaptop,"\376B\000\000\003csc"); lf[106]=C_h_intern(&lf[106],9,"substring"); lf[107]=C_h_intern(&lf[107],14,"string-prefix\077"); lf[108]=C_decode_literal(C_heaptop,"\376B\000\000\002./"); lf[109]=C_h_intern(&lf[109],8,"for-each"); lf[110]=C_h_intern(&lf[110],16,"\003sysflush-output"); lf[111]=C_decode_literal(C_heaptop,"\376B\000\000\002 "); lf[112]=C_h_intern(&lf[112],28,"setup-api#destination-prefix"); lf[113]=C_h_intern(&lf[113],24,"setup-api#runtime-prefix"); lf[114]=C_h_intern(&lf[114],29,"setup-api#installation-prefix"); lf[115]=C_decode_literal(C_heaptop,"\376B\000\000\010 mkdir "); lf[116]=C_h_intern(&lf[116],16,"create-directory"); lf[117]=C_h_intern(&lf[117],2,"-p"); lf[118]=C_h_intern(&lf[118],34,"setup-api#create-directory/parents"); lf[120]=C_h_intern(&lf[120],5,"files"); lf[121]=C_h_intern(&lf[121],3,"a+r"); lf[122]=C_h_intern(&lf[122],2,"pp"); lf[124]=C_h_intern(&lf[124],15,"repository-path"); lf[126]=C_decode_literal(C_heaptop,"\376B\000\000\004 ..."); lf[127]=C_decode_literal(C_heaptop,"\376B\000\000\004 -> "); lf[128]=C_decode_literal(C_heaptop,"\376B\000\000\015writing info "); lf[129]=C_h_intern(&lf[129],19,"setup-api#copy-file"); lf[130]=C_h_intern(&lf[130],9,"directory"); lf[131]=C_h_intern(&lf[131],10,"directory\077"); lf[132]=C_h_intern(&lf[132],18,"absolute-pathname\077"); lf[133]=C_h_intern(&lf[133],19,"setup-api#move-file"); lf[134]=C_h_intern(&lf[134],22,"setup-api#remove-file\052"); lf[137]=C_h_intern(&lf[137],5,"error"); lf[138]=C_decode_literal(C_heaptop,"\376B\000\000\032invalid file-specification"); lf[139]=C_h_intern(&lf[139],5,"every"); lf[140]=C_h_intern(&lf[140],7,"string\077"); lf[142]=C_h_intern(&lf[142],7,"version"); lf[143]=C_h_intern(&lf[143],8,"egg-name"); lf[144]=C_h_intern(&lf[144],24,"setup-api#extension-name"); lf[145]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[146]=C_decode_literal(C_heaptop,"\376B\000\000\007unknown"); lf[147]=C_h_intern(&lf[147],36,"setup-api#extension-name-and-version"); lf[148]=C_h_intern(&lf[148],28,"setup-api#standard-extension"); lf[149]=C_h_intern(&lf[149],27,"setup-api#install-extension"); lf[150]=C_h_intern(&lf[150],12,"file-exists\077"); lf[151]=C_h_intern(&lf[151],26,"pathname-replace-extension"); lf[152]=C_decode_literal(C_heaptop,"\376B\000\000\002so"); lf[153]=C_decode_literal(C_heaptop,"\376B\000\000\002so"); lf[154]=C_h_intern(&lf[154],3,"csc"); lf[155]=C_h_intern(&lf[155],8,"-dynamic"); lf[156]=C_h_intern(&lf[156],15,"-optimize-level"); lf[157]=C_h_intern(&lf[157],12,"-debug-level"); lf[158]=C_h_intern(&lf[158],20,"-emit-import-library"); lf[159]=C_decode_literal(C_heaptop,"\376B\000\000\006inline"); lf[160]=C_decode_literal(C_heaptop,"\376B\000\000\012import.scm"); lf[161]=C_decode_literal(C_heaptop,"\376B\000\000\003scm"); lf[162]=C_h_intern(&lf[162],15,"\003sysget-keyword"); lf[163]=C_h_intern(&lf[163],5,"\000info"); lf[164]=C_h_intern(&lf[164],6,"static"); lf[165]=C_h_intern(&lf[165],6,"macosx"); lf[166]=C_decode_literal(C_heaptop,"\376B\000\000\001a"); lf[167]=C_h_intern(&lf[167],18,"pathname-extension"); lf[168]=C_h_intern(&lf[168],16,"software-version"); lf[169]=C_h_intern(&lf[169],25,"setup-api#install-program"); lf[170]=C_decode_literal(C_heaptop,"\376B\000\000\003exe"); lf[171]=C_decode_literal(C_heaptop,"\376B\000\000\002so"); lf[172]=C_h_intern(&lf[172],26,"\003sysload-dynamic-extension"); lf[173]=C_decode_literal(C_heaptop,"\376B\000\000\001a"); lf[174]=C_decode_literal(C_heaptop,"\376B\000\000\003lib"); lf[175]=C_decode_literal(C_heaptop,"\376B\000\000\001a"); lf[176]=C_decode_literal(C_heaptop,"\376B\000\000\003bin"); lf[177]=C_h_intern(&lf[177],24,"setup-api#install-script"); lf[178]=C_h_intern(&lf[178],4,"a+rx"); lf[179]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[180]=C_decode_literal(C_heaptop,"\376B\000\000\003bin"); lf[181]=C_decode_literal(C_heaptop,"\376B\000\000\014lib/chicken/"); lf[182]=C_decode_literal(C_heaptop,"\376B\000\000Acannot create directory: a file with the same name already exists"); lf[183]=C_h_intern(&lf[183],3,"a+x"); lf[184]=C_h_intern(&lf[184],18,"pathname-directory"); lf[185]=C_h_intern(&lf[185],21,"setup-api#try-compile"); lf[186]=C_h_intern(&lf[186],4,"\000c++"); lf[187]=C_h_intern(&lf[187],22,"with-exception-handler"); lf[188]=C_h_intern(&lf[188],30,"call-with-current-continuation"); lf[189]=C_decode_literal(C_heaptop,"\376B\000\000\012succeeded."); lf[190]=C_decode_literal(C_heaptop,"\376B\000\000\007failed."); lf[191]=C_h_intern(&lf[191],6,"system"); lf[192]=C_decode_literal(C_heaptop,"\376B\000\000\004 ..."); lf[193]=C_decode_literal(C_heaptop,"\376B\000\000\002-c"); lf[194]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[195]=C_decode_literal(C_heaptop,"\376B\000\000\007 >nul: "); lf[196]=C_decode_literal(C_heaptop,"\376B\000\000\014 >/dev/null "); lf[197]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[198]=C_decode_literal(C_heaptop,"\376B\000\000\0042>&1"); lf[199]=C_h_intern(&lf[199],4,"conc"); lf[200]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[201]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[202]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[203]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[204]=C_decode_literal(C_heaptop,"\376B\000\000\004 -o "); lf[205]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[206]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[207]=C_decode_literal(C_heaptop,"\376B\000\000\002-L"); lf[208]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[209]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[210]=C_h_intern(&lf[210],7,"display"); lf[211]=C_decode_literal(C_heaptop,"\376B\000\000\001o"); lf[212]=C_decode_literal(C_heaptop,"\376B\000\000\001c"); lf[213]=C_h_intern(&lf[213],13,"\000compile-only"); lf[214]=C_h_intern(&lf[214],5,"\000verb"); lf[215]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[216]=C_h_intern(&lf[216],8,"\000ldflags"); lf[217]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[218]=C_h_intern(&lf[218],7,"\000cflags"); lf[219]=C_h_intern(&lf[219],3,"\000cc"); lf[220]=C_h_intern(&lf[220],22,"setup-api#test-compile"); lf[221]=C_h_intern(&lf[221],22,"setup-api#find-library"); lf[222]=C_decode_literal(C_heaptop,"\376B\000\000\002-l"); lf[223]=C_decode_literal(C_heaptop,"\376B\000\000\017(); return 0; }"); lf[224]=C_decode_literal(C_heaptop,"\376B\000\000\015int main() { "); lf[225]=C_decode_literal(C_heaptop,"\376B\000\000\003();"); lf[226]=C_decode_literal(C_heaptop,"\376B\000\000\005char "); lf[227]=C_decode_literal(C_heaptop,"\376B\000\000\006#endif"); lf[228]=C_decode_literal(C_heaptop,"\376B\000\000\012extern \042C\042"); lf[229]=C_decode_literal(C_heaptop,"\376B\000\000\022#ifdef __cplusplus"); lf[230]=C_h_intern(&lf[230],21,"setup-api#find-header"); lf[231]=C_decode_literal(C_heaptop,"\376B\000\000\033>\012int main() { return 0; }\012"); lf[232]=C_decode_literal(C_heaptop,"\376B\000\000\012#include <"); lf[233]=C_h_intern(&lf[233],20,"setup-api#version>=\077"); lf[234]=C_h_intern(&lf[234],13,"irregex-split"); lf[235]=C_decode_literal(C_heaptop,"\376B\000\000\006[-\134._]"); lf[236]=C_h_intern(&lf[236],8,"string>\077"); lf[237]=C_h_intern(&lf[237],27,"setup-api#extension-version"); lf[238]=C_h_intern(&lf[238],12,"string-null\077"); lf[239]=C_h_intern(&lf[239],19,"setup-api#read-info"); lf[240]=C_h_intern(&lf[240],4,"read"); lf[241]=C_h_intern(&lf[241],26,"setup-api#remove-directory"); lf[242]=C_decode_literal(C_heaptop,"\376B\000\000\004sudo"); lf[243]=C_decode_literal(C_heaptop,"\376B\000\000\010 rm -fr "); lf[244]=C_decode_literal(C_heaptop,"\376B\000\000\004SUDO"); lf[245]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[246]=C_h_intern(&lf[246],11,"delete-file"); lf[247]=C_decode_literal(C_heaptop,"\376B\000\000\002.."); lf[248]=C_h_intern(&lf[248],16,"delete-directory"); lf[249]=C_h_intern(&lf[249],16,"remove-directory"); lf[250]=C_decode_literal(C_heaptop,"\376B\000\000#cannot remove - directory not found"); lf[251]=C_h_intern(&lf[251],26,"setup-api#remove-extension"); lf[252]=C_decode_literal(C_heaptop,"\376B\000\000\002 "); lf[253]=C_decode_literal(C_heaptop,"\376B\000\000.shell command failed with nonzero exit status "); lf[254]=C_h_intern(&lf[254],13,"string-append"); lf[255]=C_decode_literal(C_heaptop,"\376B\000\000\001\042"); lf[256]=C_decode_literal(C_heaptop,"\376B\000\000\001\042"); lf[257]=C_decode_literal(C_heaptop,"\376B\000\000\037/usr/bin/env DYLD_LIBRARY_PATH="); lf[258]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[259]=C_decode_literal(C_heaptop,"\376B\000\000\021DYLD_LIBRARY_PATH"); lf[260]=C_h_intern(&lf[260],30,"setup-api#setup-error-handling"); lf[261]=C_h_intern(&lf[261],5,"reset"); lf[262]=C_h_intern(&lf[262],19,"print-error-message"); lf[263]=C_h_intern(&lf[263],18,"\003sysstandard-error"); lf[264]=C_h_intern(&lf[264],29,"\003syscurrent-exception-handler"); lf[265]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\000\376\003\000\000\002\376B\000\000\000\376\377\016"); lf[266]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[267]=C_decode_literal(C_heaptop,"\376B\000\000\042invalid extension-name-and-version"); lf[268]=C_h_intern(&lf[268],14,"make-parameter"); lf[269]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\000\376\003\000\000\002\376B\000\000\000\376\377\016"); lf[270]=C_decode_literal(C_heaptop,"\376B\000\000\026CHICKEN_INSTALL_PREFIX"); lf[271]=C_decode_literal(C_heaptop,"\376B\000\000\013chicken-bug"); lf[272]=C_h_intern(&lf[272],17,"\003syspeek-c-string"); lf[273]=C_decode_literal(C_heaptop,"\376B\000\000\016chicken-status"); lf[274]=C_decode_literal(C_heaptop,"\376B\000\000\021chicken-uninstall"); lf[275]=C_decode_literal(C_heaptop,"\376B\000\000\017chicken-install"); lf[276]=C_decode_literal(C_heaptop,"\376B\000\000\003csc"); lf[277]=C_decode_literal(C_heaptop,"\376B\000\000\003csi"); lf[278]=C_decode_literal(C_heaptop,"\376B\000\000\007chicken"); lf[279]=C_h_intern(&lf[279],4,"exit"); lf[280]=C_h_intern(&lf[280],17,"current-directory"); lf[281]=C_decode_literal(C_heaptop,"\376B\000\000\016CHICKEN_PREFIX"); lf[282]=C_decode_literal(C_heaptop,"\376B\000\000\003bin"); lf[283]=C_decode_literal(C_heaptop,"\376B\000\000\016CHICKEN_PREFIX"); lf[284]=C_h_intern(&lf[284],13,"chicken-setup"); lf[285]=C_h_intern(&lf[285],7,"windows"); lf[286]=C_h_intern(&lf[286],14,"build-platform"); lf[287]=C_h_intern(&lf[287],13,"software-type"); C_register_lf2(lf,288,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1882,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k4302 in a4295 in a4289 in a4274 in k4261 in k4258 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 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 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_4304,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[49]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4310,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_trace("setup-api.scm:545: ##sys#print"); t6=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=C_retrieve2(lf[29],"setup-api#\052remove-command\052"); av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k2509 in k2503 in k2603 in k2606 in k2609 in k2470 in k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ 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; 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,c,2)))){ C_save_and_reclaim((void *)f_2511,2,av);} a=C_alloc(11); 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|5,a[1]=(C_word)f_2528,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t5,a[5]=t6,tmp=(C_word)a,a+=6,tmp); C_trace("setup-api.scm:256: extra-nonfeatures"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[26]+1); av2[1]=t7; tp(2,av2);}} /* k2503 in k2603 in k2606 in k2609 in k2470 in k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ 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 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_2505,2,av);} a=C_alloc(11); t2=C_i_check_list_2(t1,lf[82]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2511,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_2570,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],a[5]=((C_word)li13),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_2570(t7,t3,t1);} /* k2500 in map-loop336 in k2503 in k2603 in k2606 in k2609 in k2470 in k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in ... */ static void C_ccall f_2502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2502,2,av);} C_trace("##sys#string-append"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[97]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[97]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[100]; av2[3]=t1; tp(4,av2);}} /* k4927 in k4921 in k4918 in g1389 in k4907 in walk in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4929,2,av);} if(C_truep(t1)){ C_trace("setup-api.scm:624: walk"); t2=((C_word*)((C_word*)t0)[2])[1]; f_4905(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} else{ C_trace("setup-api.scm:625: delete-file"); t2=C_fast_retrieve(lf[246]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k4918 in g1389 in k4907 in walk in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ static void C_fcall f_4920(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_4920,2,t0,t1);} a=C_alloc(4); 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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4923,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:622: make-pathname"); t3=C_fast_retrieve(lf[79]);{ 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);}}} /* k4921 in k4918 in g1389 in k4907 in walk in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 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 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_4923,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4929,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:623: directory?"); t4=C_fast_retrieve(lf[131]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4953 in for-each-loop1388 in k4907 in walk in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4955,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4945(t3,((C_word*)t0)[4],t2);} /* k2523 in map-loop363 in k2526 in k2509 in k2503 in k2603 in k2606 in k2609 in k2470 in k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2525,2,av);} C_trace("##sys#string-append"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[97]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[97]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[98]; av2[3]=t1; tp(4,av2);}} /* k2526 in k2509 in k2503 in k2603 in k2606 in k2609 in k2470 in k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in ... */ 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 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_2528,2,av);} a=C_alloc(12); t2=C_i_check_list_2(t1,lf[82]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2534,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_2536,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word)li12),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_2536(t7,t3,t1);} /* k2350 in k2347 in k2344 in k2338 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2352,2,av);} C_trace("setup-api.scm:191: ##sys#write-char-0"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[70]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in ... */ 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; 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_2359,2,av);} a=C_alloc(20); t2=C_mutate2((C_word*)lf[76]+1 /* (set! setup-api#run-verbose ...) */,t1); t3=C_mutate2((C_word*)lf[77]+1 /* (set! setup-api#register-program ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2361,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[80]+1 /* (set! setup-api#find-program ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2388,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2407,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2418,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_5273,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); C_trace("##sys#peek-c-string"); t8=*((C_word*)lf[272]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=C_mpointer(&a,(void*)C_CHICKEN_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* a4336 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 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=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_4337,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4343,a[2]=t2,a[3]=((C_word)li61),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4352,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li65),tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:544: with-exception-handler"); t5=C_fast_retrieve(lf[187]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4330 in a4324 in a4289 in a4274 in k4261 in k4258 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 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 *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_4331,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k4308 in k4302 in a4295 in a4289 in a4274 in k4261 in k4258 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4310,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4313,a[2]=((C_word*)t0)[2],a[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_trace("setup-api.scm:545: ##sys#write-char-0"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[70]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k4424 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in ... */ static void C_ccall f_4426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_4426,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4430,a[2]=((C_word*)t0)[2],a[3]=((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_trace("setup-api.scm:535: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t3; av2[2]=((C_word*)t0)[9]; tp(3,av2);}} /* k2338 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in ... */ static void C_ccall f_2340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2340,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=*((C_word*)lf[72]+1); t3=*((C_word*)lf[72]+1); t4=C_i_check_port_2(*((C_word*)lf[72]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[73]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2346,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:191: ##sys#print"); t6=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[75]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[72]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_2240(2,av2);}}} /* k2344 in k2338 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2346,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2349,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:191: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2347 in k2344 in k2338 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in ... */ 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; 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_2349,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2352,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:191: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[74]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a4324 in a4289 in a4274 in k4261 in k4258 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 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 *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_4325,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_4331,a[2]=t2,a[3]=((C_word)li56),tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:545: k1169"); t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k4321 in k4311 in k4308 in k4302 in a4295 in a4289 in a4274 in k4261 in k4258 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4323,2,av);} C_trace("setup-api.scm:545: ##sys#print"); t2=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4413 in k4410 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4415,2,av);} C_trace("setup-api.scm:530: system"); t2=C_fast_retrieve(lf[191]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4410 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 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 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_4412,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4415,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[3])){ C_trace("setup-api.scm:541: print"); t4=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[192]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ C_trace("setup-api.scm:530: system"); t4=C_fast_retrieve(lf[191]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* g883 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ static void C_fcall f_3577(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_3577,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3581,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); if(C_truep(C_i_pairp(t2))){ t4=t2; t5=t3; f_3581(t5,C_u_i_car(t4));} else{ t4=t3; f_3581(t4,t2);}} /* k2371 in k2363 in setup-api#register-program in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in ... */ 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; 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_2373,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,C_a_i_cons(&a,2,t1,((C_word*)t0)[2]),C_retrieve2(lf[9],"setup-api#\052registered-programs\052")); t3=C_mutate2(&lf[9] /* (set! setup-api#*registered-programs* ...) */,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 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 t5; C_word 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(24,c,3)))){ C_save_and_reclaim((void *)f_3573,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|4,a[1]=(C_word)f_3577,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li39),tmp=(C_word)a,a+=5,tmp); t8=C_i_check_list_2(((C_word*)t0)[3],lf[82]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3693,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); 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_3702,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li40),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_3702(t13,t9,((C_word*)t0)[3]);} /* k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3570,2,av);} a=C_alloc(9); t2=(*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_trace("setup-api.scm:432: repo-path"); f_4104(t2,C_a_i_list(&a,1,C_SCHEME_TRUE));} /* setup-api#register-program in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in ... */ static void C_ccall f_2361(C_word c,C_word *av){ C_word tmp; C_word 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,2)))){ C_save_and_reclaim((void*)f_2361,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|3,a[1]=(C_word)f_2365,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2383,a[2]=t4,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:211: ->string"); t6=C_fast_retrieve(lf[78]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_car(t3); f_2365(2,av2);}}} /* k2363 in setup-api#register-program in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in ... */ 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; 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_2365,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2373,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:213: ->string"); t4=C_fast_retrieve(lf[78]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* setup-api#user-install-setup in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in ... */ static void C_fcall f_2185(C_word t1){ C_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(0,0,1)))){ C_save_and_reclaim_args((void *)trf_2185,1,t1);} t2=lf[7] /* setup-api#*sudo* */ =C_SCHEME_FALSE;; if(C_truep(C_retrieve2(lf[8],"setup-api#\052windows-shell\052"))){ t3=t1; t4=C_mutate2(&lf[28] /* (set! setup-api#*copy-command* ...) */,lf[35]); t5=C_mutate2(&lf[29] /* (set! setup-api#*remove-command* ...) */,lf[36]); t6=C_mutate2(&lf[30] /* (set! setup-api#*move-command* ...) */,lf[37]); t7=C_mutate2(&lf[31] /* (set! setup-api#*chmod-command* ...) */,lf[38]); t8=C_mutate2(&lf[32] /* (set! setup-api#*ranlib-command* ...) */,lf[39]); t9=t3;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t3=t1; t4=C_mutate2(&lf[28] /* (set! setup-api#*copy-command* ...) */,lf[40]); t5=C_mutate2(&lf[29] /* (set! setup-api#*remove-command* ...) */,lf[41]); t6=C_mutate2(&lf[30] /* (set! setup-api#*move-command* ...) */,lf[42]); t7=C_mutate2(&lf[31] /* (set! setup-api#*chmod-command* ...) */,lf[43]); t8=C_mutate2(&lf[32] /* (set! setup-api#*ranlib-command* ...) */,lf[44]); t9=C_mutate2(&lf[33] /* (set! setup-api#*mkdir-command* ...) */,lf[45]); t10=t3;{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* k2178 in setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in ... */ static void C_ccall f_2180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2180,2,av);} if(C_truep(t1)){ t2=t1; C_trace("setup-api.scm:158: qs"); t3=C_fast_retrieve(lf[15]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ C_trace("setup-api.scm:158: qs"); t2=C_fast_retrieve(lf[15]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[59]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k2016 in setup-api#extra-features in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in ... */ static void C_ccall f_2018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2018,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3594 in k3588 in k3585 in k3582 in k3579 in g883 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in ... */ static void C_ccall f_3596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_3596,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3602,a[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_trace("setup-api.scm:444: deployment-mode"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[21]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[21]+1); av2[1]=t2; tp(2,av2);}} /* a4274 in k4261 in k4258 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in ... */ 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=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_4275,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4281,a[2]=t2,a[3]=((C_word)li54),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4290,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li58),tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:545: with-exception-handler"); t5=C_fast_retrieve(lf[187]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2390 in setup-api#find-program in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in ... */ static void C_ccall f_2392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2392,2,av);} t2=C_i_assoc(t1,C_retrieve2(lf[9],"setup-api#\052registered-programs\052")); if(C_truep(t2)){ t3=C_i_cdr(t2); C_trace("setup-api.scm:219: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t3; tp(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3588 in k3585 in k3582 in k3579 in g883 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in ... */ static void C_ccall f_3590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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,2)))){ C_save_and_reclaim((void *)f_3590,2,av);} a=C_alloc(15); t2=C_i_assq(lf[164],((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3596,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3629,a[2]=t4,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3668,a[2]=t3,a[3]=((C_word*)t0)[6],a[4]=t5,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); C_trace("setup-api.scm:440: software-version"); t7=C_fast_retrieve(lf[168]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_3596(2,av2);}}} /* setup-api#extra-features in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in ... */ 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 *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_2008,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=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_car(t2)); t5=t4; if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2018,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t6; av2[2]=C_fast_retrieve(lf[25]); av2[3]=t5; C_apply(4,av2);}} else{ t6=((C_word*)((C_word*)t0)[2])[1]; t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in ... */ 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 t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(24,c,2)))){ C_save_and_reclaim((void *)f_2006,2,av);} a=C_alloc(24); t2=C_mutate2((C_word*)lf[23]+1 /* (set! setup-api#keep-intermediates ...) */,t1); t3=C_SCHEME_END_OF_LIST; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_mutate2((C_word*)lf[24]+1 /* (set! setup-api#extra-features ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2008,a[2]=t4,a[3]=((C_word)li1),tmp=(C_word)a,a+=4,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_mutate2((C_word*)lf[26]+1 /* (set! setup-api#extra-nonfeatures ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2027,a[2]=t7,a[3]=((C_word)li2),tmp=(C_word)a,a+=4,tmp)); t9=lf[28] /* setup-api#*copy-command* */ =C_SCHEME_UNDEFINED;; t10=lf[29] /* setup-api#*remove-command* */ =C_SCHEME_UNDEFINED;; t11=lf[30] /* setup-api#*move-command* */ =C_SCHEME_UNDEFINED;; t12=lf[31] /* setup-api#*chmod-command* */ =C_SCHEME_UNDEFINED;; t13=lf[32] /* setup-api#*ranlib-command* */ =C_SCHEME_UNDEFINED;; t14=lf[33] /* setup-api#*mkdir-command* */ =C_SCHEME_UNDEFINED;; t15=C_mutate2(&lf[34] /* (set! setup-api#user-install-setup ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2185,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[46]+1 /* (set! setup-api#sudo-install ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2211,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2234,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5275,a[2]=((C_word)li103),tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:183: make-parameter"); t19=C_fast_retrieve(lf[268]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t19; av2[1]=t17; av2[2]=t18; ((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}} /* k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in ... */ 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; 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_2002,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[22]+1 /* (set! setup-api#program-path ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2006,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:113: make-parameter"); t4=C_fast_retrieve(lf[268]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5141 in tmp11876 in setup-api#setup-error-handling in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in ... */ static void C_ccall f_5143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5143,2,av);} C_trace("setup-api.scm:656: reset"); t2=C_fast_retrieve(lf[261]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4258 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4260,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4263,a[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_trace("setup-api.scm:544: g1149"); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k4261 in k4258 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_4263,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4266,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_4275,a[2]=((C_word*)t0)[4],a[3]=((C_word)li59),tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:545: call-with-current-continuation"); t4=*((C_word*)lf[188]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4264 in k4261 in k4258 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4266,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4269,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:545: g1173"); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k4267 in k4264 in k4261 in k4258 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4269,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(((C_word*)t0)[3],C_fix(0)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2381 in setup-api#register-program in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2383,2,av);} C_trace("setup-api.scm:211: make-pathname"); t2=C_fast_retrieve(lf[79]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[12],"setup-api#\052chicken-bin-path\052"); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* setup-api#find-program in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in ... */ static void C_ccall f_2388(C_word c,C_word *av){ C_word tmp; C_word 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_2388,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2392,a[2]=t1,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:216: ->string"); t4=C_fast_retrieve(lf[78]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2035 in setup-api#extra-nonfeatures in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in ... */ static void C_ccall f_2037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2037,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5148 in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5150,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a5151 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 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=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(4,c,2)))){ C_save_and_reclaim((void *)f_5152,3,av);} a=C_alloc(4); t3=C_i_not(t2); t4=(C_truep(t3)?t3:C_i_nullp(t2)); if(C_truep(t4)){ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=lf[265]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5168,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_listp(t2))){ t6=t2; t7=C_u_i_length(t6); t8=t5; f_5168(t8,C_eqp(C_fix(2),t7));} else{ t6=t5; f_5168(t6,C_SCHEME_FALSE);}}} /* a3538 in setup-api#standard-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 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; 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_3539,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2155 in k2152 in k2146 in k2142 in k2139 in k2136 in k2130 in k2126 in k2123 in k2120 in k2114 in k2110 in k2107 in k2104 in k2098 in k2094 in k2091 in k2088 in k2082 in k2078 in setup-api#sudo-install in k2004 in ... */ static void C_ccall f_2157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2157,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2160,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:163: get-output-string"); t3=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2152 in k2146 in k2142 in k2139 in k2136 in k2130 in k2126 in k2123 in k2120 in k2114 in k2110 in k2107 in k2104 in k2098 in k2094 in k2091 in k2088 in k2082 in k2078 in setup-api#sudo-install in k2004 in k2000 in ... */ static void C_ccall f_2154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2154,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2157,a[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_trace("setup-api.scm:163: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[54]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4046 in k4021 in k3979 in k3976 in k3973 in k3970 in setup-api#install-script in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_4048,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,3,C_retrieve2(lf[31],"setup-api#\052chmod-command\052"),lf[178],t1); t3=C_a_i_list1(&a,1,t2); C_trace("setup-api.scm:493: execute"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[81]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[81]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t3; tp(3,av2);}} /* setup-api#extra-nonfeatures in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in ... */ static void C_ccall f_2027(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_2027,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=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_car(t2)); t5=t4; if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2037,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t6; av2[2]=C_fast_retrieve(lf[27]); av2[3]=t5; C_apply(4,av2);}} else{ t6=((C_word*)((C_word*)t0)[2])[1]; t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3567,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3570,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_trace("setup-api.scm:431: repo-path"); f_4104(t3,C_SCHEME_END_OF_LIST);} /* k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ 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 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_3564,2,av);} a=C_alloc(8); if(C_truep(t1)){ 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); if(C_truep(C_i_listp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; C_trace("setup-api.scm:430: check-filelist"); f_3254(t2,t3);} else{ t3=C_a_i_list1(&a,1,((C_word*)t0)[5]); C_trace("setup-api.scm:430: check-filelist"); f_3254(t2,t3);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5166 in a5151 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_fcall f_5168(C_word t0,C_word 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_5168,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_i_cadr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5175,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5198,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=t4,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:588: ensure-string"); f_5175(t6,t2);} else{ C_trace("setup-api.scm:590: error"); t2=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[267]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k2139 in k2136 in k2130 in k2126 in k2123 in k2120 in k2114 in k2110 in k2107 in k2104 in k2098 in k2094 in k2091 in k2088 in k2082 in k2078 in setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2141,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2144,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:162: get-output-string"); t3=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2142 in k2139 in k2136 in k2130 in k2126 in k2123 in k2120 in k2114 in k2110 in k2107 in k2104 in k2098 in k2094 in k2091 in k2088 in k2082 in k2078 in setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in ... */ 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 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_2144,2,av);} a=C_alloc(4); t2=C_mutate2(&lf[31] /* (set! setup-api#*chmod-command* ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2148,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:163: open-output-string"); t4=C_fast_retrieve(lf[53]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2146 in k2142 in k2139 in k2136 in k2130 in k2126 in k2123 in k2120 in k2114 in k2110 in k2107 in k2104 in k2098 in k2094 in k2091 in k2088 in k2082 in k2078 in setup-api#sudo-install in k2004 in k2000 in k1996 in ... */ static void C_ccall f_2148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2148,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[49]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2154,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); C_trace("setup-api.scm:163: ##sys#print"); t6=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* ensure-string in k5166 in a5151 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ static void C_fcall f_5175(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,2)))){ C_save_and_reclaim_args((void *)trf_5175,2,t1,t2);} t3=C_i_not(t2); if(C_truep(t3)){ if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=lf[266]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ C_trace("setup-api.scm:587: ->string"); t4=C_fast_retrieve(lf[78]);{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} else{ if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=lf[266]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ C_trace("setup-api.scm:587: ->string"); t4=C_fast_retrieve(lf[78]);{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}} /* setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ static void C_ccall f_3554(C_word c,C_word *av){ C_word tmp; C_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_3554,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_END_OF_LIST:C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3564,a[2]=t7,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); C_trace("setup-api.scm:429: setup-install-mode"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[20]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[20]+1); av2[1]=t8; tp(2,av2);}} /* k3585 in k3582 in k3579 in g883 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in ... */ 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 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_3587,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|6,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],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_retrieve2(lf[8],"setup-api#\052windows-shell\052"))){ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_3590(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3683,a[2]=t2,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:438: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; tp(3,av2);}}} /* k3582 in k3579 in g883 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in ... */ static void C_ccall f_3584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3584,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3587,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); C_trace("setup-api.scm:436: copy-file"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[129]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[129]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=t2; tp(4,av2);}} /* k3579 in g883 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ static void C_fcall f_3581(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_3581,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3584,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_trace("setup-api.scm:435: make-dest-pathname"); f_3229(t3,((C_word*)t0)[5],((C_word*)t0)[3]);} /* k4626 in setup-api#version>=? in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 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 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_4628,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4632,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:565: version->list"); f_4565(t3,((C_word*)t0)[4]);} /* k4619 in version->list in setup-api#version>=? in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4621,2,av);} C_trace("setup-api.scm:563: irregex-split"); t2=C_fast_retrieve(lf[234]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[235]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5196 in k5166 in a5151 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5198,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5202,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:588: ensure-string"); f_5175(t3,((C_word*)t0)[4]);} /* a4295 in a4289 in a4274 in k4261 in k4258 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in ... */ static void C_ccall f_4296(C_word c,C_word *av){ 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_4296,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4304,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:545: open-output-string"); t3=C_fast_retrieve(lf[53]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4289 in a4274 in k4261 in k4258 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 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; 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_4290,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4296,a[2]=((C_word*)t0)[2],a[3]=((C_word)li55),tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4325,a[2]=((C_word*)t0)[3],a[3]=((C_word)li57),tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:545: ##sys#call-with-values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* k2603 in k2606 in k2609 in k2470 in k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ static void C_ccall f_2605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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(18,c,2)))){ C_save_and_reclaim((void *)f_2605,2,av);} a=C_alloc(18); t2=(C_truep(t1)?lf[91]:lf[92]); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2488,a[2]=((C_word*)t0)[2],a[3]=((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_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_2505,a[2]=t4,a[3]=t7,a[4]=t8,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:253: extra-features"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[24]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[24]+1); av2[1]=t9; tp(2,av2);}} /* k4084 in k3976 in k3973 in k3970 in setup-api#install-script in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4086,2,av);} a=C_alloc(3); C_trace("setup-api.scm:483: ensure-directory"); f_4166(((C_word*)t0)[2],t1,C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k2606 in k2609 in k2470 in k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_2608,2,av);} a=C_alloc(7); t2=(C_truep(t1)?lf[89]:lf[90]); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2605,a[2]=((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); C_trace("setup-api.scm:249: deployment-mode"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[21]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[21]+1); av2[1]=t4; tp(2,av2);}} /* a4280 in a4274 in k4261 in k4258 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in ... */ 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=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_4281,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4287,a[2]=((C_word)li53),tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:545: k1169"); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a4286 in a4280 in a4274 in k4261 in k4258 in k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in ... */ static void C_ccall f_4287(C_word c,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_4287,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3698 in k3691 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3700,2,av);} C_trace("setup-api.scm:451: write-info"); f_2884(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* map-loop877 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ static void C_fcall f_3702(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_3702,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_3727,a[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_trace("setup-api.scm:433: g883"); t5=((C_word*)t0)[4]; f_3577(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);}}} /* k4073 in map-loop1030 in k3979 in k3976 in k3973 in k3970 in setup-api#install-script in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 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 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_4075,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4050(t6,((C_word*)t0)[5],t5);} /* map-loop947 in k3779 in k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ static void C_fcall f_3908(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_3908,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_3933,a[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_trace("setup-api.scm:463: g953"); t5=((C_word*)t0)[4]; f_3871(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);}}} /* k5200 in k5196 in k5166 in a5151 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_5202,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_ccall f_3005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_3005,2,av);} a=C_alloc(6); 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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3011,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); if(C_truep(C_i_pairp(((C_word*)t0)[4]))){ t6=((C_word*)t0)[4]; t7=t5; f_3011(t7,C_u_i_car(t6));} else{ t6=t5; f_3011(t6,((C_word*)t0)[4]);}} /* k2817 in k2963 in k2892 in k2889 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2819,2,av);} C_trace("setup-api.scm:287: make-pathname"); t2=C_fast_retrieve(lf[79]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3015 in k3012 in k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 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 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_3017,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3020,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|3,a[1]=(C_word)f_3022,a[2]=t5,a[3]=((C_word)li28),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_3022(t7,t3,((C_word*)t0)[3],t2);} /* k3012 in k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 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 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_3014,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3017,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3109,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=t4; t6=t2; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3160,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:350: normalize-pathname"); t8=C_fast_retrieve(lf[16]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ static void C_fcall f_3011(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_3011,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3014,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_i_cadr(((C_word*)t0)[4]); C_trace("setup-api.scm:329: make-pathname"); t5=C_fast_retrieve(lf[79]);{ C_word av2[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);}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[5]; f_3014(2,av2);}}} /* k3725 in map-loop877 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ static void C_ccall f_3727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_3727,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3702(t6,((C_word*)t0)[5],t5);} /* map-loop1030 in k3979 in k3976 in k3973 in k3970 in setup-api#install-script in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ static void C_fcall f_4050(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_4050,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_4075,a[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_trace("setup-api.scm:484: g1036"); t5=((C_word*)t0)[4]; f_3985(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);}}} /* f_5218 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ static void C_ccall f_5218(C_word c,C_word *av){ C_word tmp; C_word 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_5218,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5222,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:306: verb"); f_2857(t3,t2);} /* k2804 in map-loop445 in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in ... */ static void C_ccall f_2806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2806,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_2781(t6,((C_word*)t0)[5],t5);} /* k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 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 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_4251,2,av);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|5,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]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4412,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t4=(C_truep(((C_word*)t0)[6])?lf[193]:lf[194]); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4426,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word*)t0)[7],a[5]=t5,a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp); C_trace("setup-api.scm:535: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t6; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k4255 in k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in ... */ static void C_ccall f_4257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_4257,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4260,a[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_4337,a[2]=((C_word*)t0)[5],a[3]=((C_word)li66),tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:544: call-with-current-continuation"); t4=*((C_word*)lf[188]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4252 in k4249 in k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 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 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_4254,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4257,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_word*)t0)[5])){ t4=C_eqp(t2,C_fix(0)); if(C_truep(t4)){ C_trace("setup-api.scm:543: print"); t5=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=lf[189]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ C_trace("setup-api.scm:543: print"); t5=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=lf[190]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_4257(2,av2);}}} /* k5220 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5222,2,av);} C_trace("setup-api.scm:307: create-directory"); t2=C_fast_retrieve(lf[116]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3027 in walk in k3015 in k3012 in k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ static void C_ccall f_3029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3029,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3030,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li26),tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3045,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:340: directory"); t4=C_fast_retrieve(lf[130]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3074,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:342: ensure-directory"); f_4166(t2,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);}} /* walk in k3015 in k3012 in k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ static void C_fcall f_3022(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_3022,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3029,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); C_trace("setup-api.scm:336: directory?"); t5=C_fast_retrieve(lf[131]);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3018 in k3015 in k3012 in k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3020,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_5226 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 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 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_5226,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5230,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:309: verb"); f_2857(t3,t2);} /* k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 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(9,c,2)))){ C_save_and_reclaim((void *)f_4242,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4245,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_trace("setup-api.scm:526: create-temporary-file"); t4=C_fast_retrieve(lf[71]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[212]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 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(10,c,3)))){ C_save_and_reclaim((void *)f_4245,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,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],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); C_trace("setup-api.scm:527: pathname-replace-extension"); t4=C_fast_retrieve(lf[151]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[211]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k4246 in k4243 in k4240 in k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 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 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_4248,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4251,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_4447,a[2]=((C_word*)t0)[9],a[3]=((C_word)li67),tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:529: with-output-to-file"); t5=C_fast_retrieve(lf[68]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4790 in k4783 in setup-api#read-info in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4792,2,av);} C_trace("setup-api.scm:602: with-input-from-file"); t2=C_fast_retrieve(lf[67]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[240]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3036 in g677 in k3027 in walk in k3015 in k3012 in k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 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(5,c,3)))){ C_save_and_reclaim((void *)f_3038,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3042,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:339: make-pathname"); t4=C_fast_retrieve(lf[79]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5228 */ 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 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_5230,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5245,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:310: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* g677 in k3027 in walk in k3015 in k3012 in k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in ... */ static void C_fcall f_3030(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_3030,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3038,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); C_trace("setup-api.scm:339: make-pathname"); t4=C_fast_retrieve(lf[79]);{ C_word av2[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);}} /* setup-api#read-info in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 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=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_4781,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_4785,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ C_trace("setup-api.scm:601: repository-path"); t5=C_fast_retrieve(lf[124]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_car(t3); f_4785(2,av2);}}} /* k4783 in setup-api#read-info in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ static void C_ccall f_4785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4785,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4792,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:603: make-pathname"); t3=C_fast_retrieve(lf[79]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=((C_word*)t0)[3]; av2[4]=lf[0]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4771 in setup-api#extension-version in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ static void C_ccall f_4773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_4773,2,av);} a=C_alloc(5); t2=C_i_cadr(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4763,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:597: string-null?"); t5=C_fast_retrieve(lf[238]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k4761 in k4771 in setup-api#extension-version in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4763,2,av);} if(C_truep(t1)){ if(C_truep(((C_word*)t0)[2])){ C_trace("setup-api.scm:598: ->string"); t2=C_fast_retrieve(lf[78]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k2874 in k2871 in k2868 in k2862 in verb in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ static void C_ccall f_2876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2876,2,av);} C_trace("setup-api.scm:303: ##sys#flush-output"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[110]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k2871 in k2868 in k2862 in verb in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in ... */ static void C_ccall f_2873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2873,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2876,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:303: ##sys#write-char-0"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[70]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k2868 in k2862 in verb in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ static void C_ccall f_2870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2870,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2873,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:303: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3058 in for-each-loop676 in k3043 in k3027 in walk in k3015 in k3012 in k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3060,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3050(t3,((C_word*)t0)[4],t2);} /* setup-api#extension-version in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ 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 *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_4750,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_4773,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:596: extension-name-and-version"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[147]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[147]+1); av2[1]=t6; tp(2,av2);}} /* k2862 in verb in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_ccall f_2864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2864,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=*((C_word*)lf[72]+1); t3=*((C_word*)lf[72]+1); t4=C_i_check_port_2(*((C_word*)lf[72]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[73]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2870,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:303: ##sys#print"); t6=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[115]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[72]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3072 in k3027 in walk in k3015 in k3012 in k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 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(4,c,2)))){ C_save_and_reclaim((void *)f_3074,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3089,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:344: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k3193 in k3189 in k3174 in k3171 in k3168 in setup-api#move-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ 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 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_3195,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,3,C_retrieve2(lf[30],"setup-api#\052move-command\052"),((C_word*)t0)[2],t1); t3=C_a_i_list1(&a,1,t2); C_trace("setup-api.scm:357: execute"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[81]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[81]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t3; tp(3,av2);}} /* k3189 in k3174 in k3171 in k3168 in setup-api#move-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ static void C_ccall f_3191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3191,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3195,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:357: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* for-each-loop676 in k3043 in k3027 in walk in k3015 in k3012 in k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in ... */ static void C_fcall f_3050(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_3050,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_3060,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_trace("setup-api.scm:337: g677"); t5=((C_word*)t0)[3]; f_3030(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);}}} /* setup-api#extension-name in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 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 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_4740,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4748,a[2]=t1,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:593: extension-name-and-version"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[147]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[147]+1); av2[1]=t2; tp(2,av2);}} /* k2895 in k2892 in k2889 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in ... */ static void C_ccall f_2897(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2897,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2900,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:318: ensure-directory"); f_4166(t3,t2,C_SCHEME_END_OF_LIST);} /* k2889 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 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(4,c,2)))){ C_save_and_reclaim((void *)f_2891,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2894,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:316: ->string"); t3=C_fast_retrieve(lf[78]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2892 in k2889 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ static void C_ccall f_2894(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2894,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2897,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_2965,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:317: repo-path"); f_4104(t4,C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k3040 in k3036 in g677 in k3027 in walk in k3015 in k3012 in k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3042,2,av);} C_trace("setup-api.scm:339: walk"); t2=((C_word*)((C_word*)t0)[2])[1]; f_3022(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k4746 in setup-api#extension-name in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4748,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_car(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ static void C_fcall f_2884(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(16,0,2)))){ C_save_and_reclaim_args((void *)trf_2884,4,t1,t2,t3,t4);} a=C_alloc(16); t5=C_a_i_cons(&a,2,lf[120],t3); t6=C_a_i_cons(&a,2,t5,t4); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2891,a[2]=t1,a[3]=t7,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2968,a[2]=t8,a[3]=t7,a[4]=t2,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:315: setup-verbose-mode"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[19]); C_word av2[2]; av2[0]=*((C_word*)lf[19]+1); av2[1]=t9; tp(2,av2);}} /* k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 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 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_2839,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[113]+1 /* (set! setup-api#runtime-prefix ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2843,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:293: get-environment-variable"); t4=C_fast_retrieve(lf[60]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[270]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ 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 t3; C_word t4; 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_4738,2,av);} a=C_alloc(24); t2=C_mutate2((C_word*)lf[147]+1 /* (set! setup-api#extension-name-and-version ...) */,t1); t3=C_mutate2((C_word*)lf[144]+1 /* (set! setup-api#extension-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4740,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[237]+1 /* (set! setup-api#extension-version ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4750,a[2]=((C_word)li81),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[239]+1 /* (set! setup-api#read-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4781,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[241]+1 /* (set! setup-api#remove-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4803,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[251]+1 /* (set! setup-api#remove-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4978,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2(&lf[69] /* (set! setup-api#$system ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5056,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[260]+1 /* (set! setup-api#setup-error-handling ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5137,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp)); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5150,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:662: user-install-setup"); f_2185(t10);} /* k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 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(3,c,2)))){ C_save_and_reclaim((void *)f_2835,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[112]+1 /* (set! setup-api#destination-prefix ...) */,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); C_trace("setup-api.scm:290: make-parameter"); t4=C_fast_retrieve(lf[268]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3043 in k3027 in walk in k3015 in k3012 in k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in ... */ static void C_ccall f_3045(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_3045,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_3050,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li27),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_3050(t5,((C_word*)t0)[3],t1);} /* verb in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ static void C_fcall f_2857(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_2857,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2864,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:302: setup-verbose-mode"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[19]); C_word av2[2]; av2[0]=*((C_word*)lf[19]+1); av2[1]=t3; tp(2,av2);}} /* k2846 in setup-api#installation-prefix in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ 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 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_2848,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(((C_word*)t0)[3])?((C_word*)t0)[3]:C_fast_retrieve(lf[13])); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(68,c,5)))){ C_save_and_reclaim((void *)f_2843,2,av);} a=C_alloc(68); t2=t1; t3=C_mutate2((C_word*)lf[114]+1 /* (set! setup-api#installation-prefix ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2844,a[2]=t2,a[3]=((C_word)li19),tmp=(C_word)a,a+=4,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2857,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp); t5=(C_truep(C_retrieve2(lf[10],"setup-api#\052windows\052"))?(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5218,a[2]=t4,a[3]=((C_word)li21),tmp=(C_word)a,a+=4,tmp):(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5226,a[2]=t4,a[3]=((C_word)li22),tmp=(C_word)a,a+=4,tmp)); t6=C_mutate2((C_word*)lf[118]+1 /* (set! setup-api#create-directory/parents ...) */,t5); t7=C_mutate2(&lf[119] /* (set! setup-api#write-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2884,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[129]+1 /* (set! setup-api#copy-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2995,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[133]+1 /* (set! setup-api#move-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3166,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[134]+1 /* (set! setup-api#remove-file* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3211,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2(&lf[135] /* (set! setup-api#make-dest-pathname ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3229,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2(&lf[136] /* (set! setup-api#check-filelist ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3254,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2(&lf[141] /* (set! setup-api#supply-version ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3414,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[148]+1 /* (set! setup-api#standard-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3457,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[149]+1 /* (set! setup-api#install-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3554,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[169]+1 /* (set! setup-api#install-program ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3752,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[177]+1 /* (set! setup-api#install-script ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3962,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2(&lf[125] /* (set! setup-api#repo-path ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4104,a[2]=((C_word)li51),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2(&lf[123] /* (set! setup-api#ensure-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4166,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2((C_word*)lf[185]+1 /* (set! setup-api#try-compile ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4223,a[2]=((C_word)li73),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate2((C_word*)lf[220]+1 /* (set! setup-api#test-compile ...) */,C_fast_retrieve(lf[185])); t22=C_mutate2((C_word*)lf[221]+1 /* (set! setup-api#find-library ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4475,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate2((C_word*)lf[230]+1 /* (set! setup-api#find-header ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4537,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate2((C_word*)lf[233]+1 /* (set! setup-api#version>=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4562,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp)); t25=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4738,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5152,a[2]=((C_word)li102),tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:580: make-parameter"); t27=C_fast_retrieve(lf[268]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t27; av2[1]=t25; av2[2]=lf[269]; av2[3]=t26; ((C_proc)(void*)(*((C_word*)t27+1)))(4,av2);}} /* setup-api#installation-prefix in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ static void C_ccall f_2844(C_word c,C_word *av){ 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_2844,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2848,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:295: destination-prefix"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[112]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[112]+1); av2[1]=t2; tp(2,av2);}} /* k3091 in k3087 in k3072 in k3027 in walk in k3015 in k3012 in k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in ... */ static void C_ccall f_3093(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3093,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,3,C_retrieve2(lf[28],"setup-api#\052copy-command\052"),((C_word*)t0)[2],t1); t3=C_a_i_list1(&a,1,t2); C_trace("setup-api.scm:343: execute"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[81]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[81]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t3; tp(3,av2);}} /* k2706 in map-loop406 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ 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 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_2708,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_2683(t6,((C_word*)t0)[5],t5);} /* k2114 in k2110 in k2107 in k2104 in k2098 in k2094 in k2091 in k2088 in k2082 in k2078 in setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in ... */ static void C_ccall f_2116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2116,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[49]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2122,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); C_trace("setup-api.scm:161: ##sys#print"); t6=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k2110 in k2107 in k2104 in k2098 in k2094 in k2091 in k2088 in k2082 in k2078 in setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2112,2,av);} a=C_alloc(4); t2=C_mutate2(&lf[29] /* (set! setup-api#*remove-command* ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2116,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:161: open-output-string"); t4=C_fast_retrieve(lf[53]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3087 in k3072 in k3027 in walk in k3015 in k3012 in k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3089,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3093,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:345: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ 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; C_check_for_interrupt; 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_3778,a[2]=((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_trace("setup-api.scm:460: installation-prefix"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[114]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[114]+1); av2[1]=t3; tp(2,av2);}} /* k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in ... */ 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 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_3778,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3781,a[2]=((C_word*)t0)[2],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_3944,a[2]=t2,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:461: make-pathname"); t4=C_fast_retrieve(lf[79]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t1; av2[3]=lf[176]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3772,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=(*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]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_listp(((C_word*)t0)[6]))){ t3=((C_word*)t0)[6]; C_trace("setup-api.scm:459: check-filelist"); f_3254(t2,t3);} else{ t3=C_a_i_list1(&a,1,((C_word*)t0)[6]); C_trace("setup-api.scm:459: check-filelist"); f_3254(t2,t3);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2104 in k2098 in k2094 in k2091 in k2088 in k2082 in k2078 in setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in ... */ 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 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_2106,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2109,a[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_trace("setup-api.scm:160: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[57]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4578 in version->list in setup-api#version>=? in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 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 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_4580,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_4585,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word)li76),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_4585(t5,((C_word*)t0)[4],t1);} /* k2098 in k2094 in k2091 in k2088 in k2082 in k2078 in setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in ... */ 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 t3; 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_2100,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[49]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2106,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); C_trace("setup-api.scm:160: ##sys#print"); t6=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* map-loop1244 in k4578 in version->list in setup-api#version>=? in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in ... */ static void C_fcall f_4585(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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(7,0,2)))){ C_save_and_reclaim_args((void *)trf_4585,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_a_i_string_to_number(&a,2,t3,C_fix(10)); t5=(C_truep(t4)?t4: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_mutate2(((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);}}} /* k5080 in k5074 in k5061 in k5058 in setup-api#$system in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5082,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); C_trace("setup-api.scm:650: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2724 in for-each-loop393 in k2748 in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ static void C_ccall f_2726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2726,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=*((C_word*)lf[72]+1); t3=*((C_word*)lf[72]+1); t4=C_i_check_port_2(*((C_word*)lf[72]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[73]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2732,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:269: ##sys#print"); t6=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[111]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[72]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ C_trace("setup-api.scm:270: $system"); f_5056(((C_word*)t0)[4],((C_word*)t0)[3]);}} /* k5086 in k5083 in k5080 in k5074 in k5061 in k5058 in setup-api#$system in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5088,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5091,a[2]=((C_word*)t0)[2],a[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_trace("setup-api.scm:650: ##sys#write-char-0"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[70]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* k2718 in for-each-loop393 in k2748 in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ static void C_ccall f_2720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2720,2,av);} C_trace("setup-api.scm:270: $system"); f_5056(((C_word*)t0)[2],((C_word*)t0)[3]);} /* k5083 in k5080 in k5074 in k5061 in k5058 in setup-api#$system in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5085,2,av);} a=C_alloc(6); 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); C_trace("setup-api.scm:650: ##sys#write-char-0"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[70]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=t2; av2[2]=C_make_character(58); av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* k2107 in k2104 in k2098 in k2094 in k2091 in k2088 in k2082 in k2078 in setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2109,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2112,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:160: get-output-string"); t3=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2136 in k2130 in k2126 in k2123 in k2120 in k2114 in k2110 in k2107 in k2104 in k2098 in k2094 in k2091 in k2088 in k2082 in k2078 in setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in ... */ static void C_ccall f_2138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2138,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2141,a[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_trace("setup-api.scm:162: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[55]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2130 in k2126 in k2123 in k2120 in k2114 in k2110 in k2107 in k2104 in k2098 in k2094 in k2091 in k2088 in k2082 in k2078 in setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ 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 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_2132,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[49]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2138,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); C_trace("setup-api.scm:162: ##sys#print"); t6=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k3793 in k3790 in g981 in k3782 in k3779 in k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in ... */ 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 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_3795,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3798,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:472: copy-file"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[129]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[129]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t2; tp(4,av2);}} /* k3796 in k3793 in k3790 in g981 in k3782 in k3779 in k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3798,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3801,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[8],"setup-api#\052windows-shell\052"))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3816,a[2]=t2,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:474: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}}} /* k3790 in g981 in k3782 in k3779 in k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in ... */ static void C_fcall f_3792(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_3792,2,t0,t1);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3795,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:471: make-dest-pathname"); f_3229(t3,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k2123 in k2120 in k2114 in k2110 in k2107 in k2104 in k2098 in k2094 in k2091 in k2088 in k2082 in k2078 in setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ static void C_ccall f_2125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2125,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2128,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:161: get-output-string"); t3=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2126 in k2123 in k2120 in k2114 in k2110 in k2107 in k2104 in k2098 in k2094 in k2091 in k2088 in k2082 in k2078 in setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ 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(4,c,2)))){ C_save_and_reclaim((void *)f_2128,2,av);} a=C_alloc(4); t2=C_mutate2(&lf[30] /* (set! setup-api#*move-command* ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2132,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:162: open-output-string"); t4=C_fast_retrieve(lf[53]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2120 in k2114 in k2110 in k2107 in k2104 in k2098 in k2094 in k2091 in k2088 in k2082 in k2078 in setup-api#sudo-install in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in ... */ 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(5,c,4)))){ C_save_and_reclaim((void *)f_2122,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2125,a[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_trace("setup-api.scm:161: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[56]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* setup-api#remove-file* in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ 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=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_3211,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3227,a[2]=t1,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:360: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[14]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k3782 in k3779 in k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 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 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(23,c,3)))){ C_save_and_reclaim((void *)f_3784,2,av);} a=C_alloc(23); 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_3788,a[2]=((C_word*)t0)[2],a[3]=((C_word)li43),tmp=(C_word)a,a+=4,tmp); t7=C_i_check_list_2(t1,lf[82]); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3826,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); 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_3835,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,a[6]=((C_word)li44),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_3835(t12,t8,t1);} /* g981 in k3782 in k3779 in k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3788,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3792,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t2))){ t4=t2; t5=t3; f_3792(t5,C_u_i_car(t4));} else{ t4=t3; f_3792(t4,t2);}} /* k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in k1889 in k1886 in k1883 in ... */ static void C_ccall f_1960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1960,2,av);} a=C_alloc(3); t2=C_mutate2(&lf[12] /* (set! setup-api#*chicken-bin-path* ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1964,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:99: get-environment-variable"); t4=C_fast_retrieve(lf[60]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[281]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in k1889 in ... */ 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 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_1967,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[13]+1 /* (set! setup-api#chicken-prefix ...) */,t1); t3=C_mutate2((C_word*)lf[14]+1 /* (set! setup-api#shellpath ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1969,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1982,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:106: current-directory"); t5=C_fast_retrieve(lf[280]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in k1889 in k1886 in ... */ 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 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_1964,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1967,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; f_1967(2,av2);}} else{ C_trace("##sys#peek-c-string"); t3=*((C_word*)lf[272]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_PREFIX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* setup-api#shellpath in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in ... */ static void C_ccall f_1969(C_word c,C_word *av){ C_word tmp; C_word 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_1969,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1977,a[2]=t1,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:103: normalize-pathname"); t4=C_fast_retrieve(lf[16]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3779 in k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ 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 t4; C_word t5; C_word 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(24,c,3)))){ C_save_and_reclaim((void *)f_3781,2,av);} a=C_alloc(24); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3784,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_retrieve2(lf[10],"setup-api#\052windows\052"))){ 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_3871,a[2]=((C_word*)t0)[5],a[3]=((C_word)li45),tmp=(C_word)a,a+=4,tmp); t9=C_i_check_list_2(((C_word*)t0)[6],lf[82]); 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_3908,a[2]=t6,a[3]=t11,a[4]=t8,a[5]=t7,a[6]=((C_word)li46),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_3908(t13,t3,((C_word*)t0)[6]);} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)t0)[6]; f_3784(2,av2);}}} /* setup-api#make-dest-pathname in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ static void C_fcall f_3229(C_word t1,C_word 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; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_3229,3,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_listp(t3))){ t4=C_i_cadr(t3); C_trace("setup-api.scm:364: make-dest-pathname"); t6=t1; t7=t2; t8=t4; t1=t6; t2=t7; t3=t8; goto loop;} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3249,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:365: absolute-pathname?"); t5=C_fast_retrieve(lf[132]);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k3225 in setup-api#remove-file* in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_ccall f_3227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3227,2,av);} a=C_alloc(9); t2=C_a_i_list(&a,2,C_retrieve2(lf[29],"setup-api#\052remove-command\052"),t1); t3=C_a_i_list1(&a,1,t2); C_trace("setup-api.scm:359: execute"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[81]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[81]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t3; tp(3,av2);}} /* k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in ... */ 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(3,c,2)))){ C_save_and_reclaim((void *)f_1990,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[19]+1 /* (set! setup-api#setup-verbose-mode ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1994,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:110: make-parameter"); t4=C_fast_retrieve(lf[268]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in ... */ static void C_ccall f_1998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1998,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[21]+1 /* (set! setup-api#deployment-mode ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2002,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:112: make-parameter"); t4=C_fast_retrieve(lf[268]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_retrieve2(lf[12],"setup-api#\052chicken-bin-path\052"); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in ... */ static void C_ccall f_1994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1994,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[20]+1 /* (set! setup-api#setup-install-mode ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1998,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:111: make-parameter"); t4=C_fast_retrieve(lf[268]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in k1889 in k1886 in k1883 in k1880 */ static void C_ccall f_1943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1943,2,av);} a=C_alloc(3); t2=C_mutate2(&lf[10] /* (set! setup-api#*windows* ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1946,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:89: register-feature!"); t4=C_fast_retrieve(lf[25]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[284]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in k1889 in k1886 in k1883 in k1880 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1946,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1950,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:91: make-parameter"); t3=C_fast_retrieve(lf[268]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4186 in k4180 in k4171 in setup-api#ensure-directory in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4188,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ C_trace("setup-api.scm:517: error"); t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[182]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* exify in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_fcall f_3758(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_3758,2,t1,t2);} a=C_alloc(8); t3=(C_truep(C_retrieve2(lf[8],"setup-api#\052windows-shell\052"))?lf[170]:C_SCHEME_FALSE); t4=t1; t5=t2; t6=C_a_i_list(&a,1,t3); t7=C_i_nullp(t6); t8=(C_truep(t7)?C_SCHEME_FALSE:C_i_car(t6)); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3350,a[2]=t4,a[3]=t5,a[4]=t9,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:379: pathname-extension"); t11=C_fast_retrieve(lf[167]);{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k1975 in setup-api#shellpath in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in ... */ static void C_ccall f_1977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1977,2,av);} C_trace("setup-api.scm:103: qs"); t2=C_fast_retrieve(lf[15]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 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=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 +10,c,3)))){ C_save_and_reclaim((void*)f_3752,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; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_END_OF_LIST:C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3758,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3772,a[2]=t1,a[3]=t2,a[4]=t7,a[5]=t8,a[6]=t3,tmp=(C_word)a,a+=7,tmp); C_trace("setup-api.scm:458: setup-install-mode"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[20]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[20]+1); av2[1]=t9; tp(2,av2);}} /* k4180 in k4171 in setup-api#ensure-directory in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ static void C_ccall f_4182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4182,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4188,a[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_trace("setup-api.scm:516: directory?"); t3=C_fast_retrieve(lf[131]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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|5,a[1]=(C_word)f_4194,a[2]=((C_word*)t0)[2],a[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_trace("setup-api.scm:519: create-directory/parents"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[118]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[118]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}}} /* k4210 in k4192 in k4180 in k4171 in setup-api#ensure-directory in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 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 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_4212,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,3,C_retrieve2(lf[31],"setup-api#\052chmod-command\052"),lf[183],t1); t3=C_a_i_list1(&a,1,t2); C_trace("setup-api.scm:521: execute"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[81]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[81]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t3; tp(3,av2);}} /* k4993 in k4986 in k5043 in k4980 in setup-api#remove-extension in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 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 *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);} C_trace("setup-api.scm:636: remove-file*"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[134]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* g1426 in k5043 in k4980 in setup-api#remove-extension in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ static void C_fcall f_4996(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_4996,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5000,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5006,a[2]=t2,a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); C_trace("setup-api.scm:633: absolute-pathname?"); t5=C_fast_retrieve(lf[132]);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5028 in for-each-loop1425 in k5043 in k4980 in setup-api#remove-extension in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5030,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5020(t3,((C_word*)t0)[4],t2);} /* k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in ... */ static void C_ccall f_1982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1982,2,av);} a=C_alloc(3); t2=C_mutate2(&lf[17] /* (set! setup-api#*base-directory* ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1986,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:108: make-parameter"); t4=C_fast_retrieve(lf[268]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_retrieve2(lf[17],"setup-api#\052base-directory\052"); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2898 in k2895 in k2892 in k2889 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ 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 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_2900,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2903,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[7],"setup-api#\052sudo\052"))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2924,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:320: create-temporary-file"); t4=C_fast_retrieve(lf[71]);{ C_word *av2=av; /* Re-use our own argvector */ 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_2957,a[2]=((C_word*)t0)[4],a[3]=((C_word)li24),tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:323: with-output-to-file"); t4=C_fast_retrieve(lf[68]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1986,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[18]+1 /* (set! setup-api#setup-root-directory ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1990,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:109: make-parameter"); t4=C_fast_retrieve(lf[268]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4998 in g1426 in k5043 in k4980 in setup-api#remove-extension in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5000,2,av);} C_trace("setup-api.scm:634: remove-file*"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[134]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k2901 in k2898 in k2895 in k2892 in k2889 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 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(3,c,2)))){ C_save_and_reclaim((void *)f_2903,2,av);} a=C_alloc(3); if(C_truep(C_retrieve2(lf[8],"setup-api#\052windows-shell\052"))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_2921,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:324: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}}} /* k5004 in g1426 in k5043 in k4980 in setup-api#remove-extension in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5006,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; C_trace("setup-api.scm:634: remove-file*"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[134]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t2; tp(3,av2);}} else{ C_trace("setup-api.scm:633: make-pathname"); t2=C_fast_retrieve(lf[79]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k4938 in k4907 in walk in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4940,2,av);} C_trace("setup-api.scm:627: delete-directory"); t2=C_fast_retrieve(lf[248]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop1388 in k4907 in walk in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ static void C_fcall f_4945(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_4945,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_4955,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_trace("setup-api.scm:617: g1389"); t5=((C_word*)t0)[3]; f_4910(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);}}} /* k2470 in k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_fcall f_2472(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_2472,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2611,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:247: keep-intermediates"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[23]); C_word av2[2]; av2[0]=*((C_word*)lf[23]+1); av2[1]=t3; tp(2,av2);}} /* setup-api#remove-extension in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 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=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_4978,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_4982,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ C_trace("setup-api.scm:629: repository-path"); t5=C_fast_retrieve(lf[124]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_car(t3); f_4982(2,av2);}}} /* version->list in setup-api#version>=? in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_fcall f_4565(C_word t1,C_word t2){ C_word 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_4565,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_4580,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_4621,a[2]=t7,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:563: ->string"); t9=C_fast_retrieve(lf[78]);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* setup-api#version>=? in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ static void C_ccall f_4562(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(8,c,3)))){ C_save_and_reclaim((void *)f_4562,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4565,a[2]=((C_word)li77),tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4628,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:564: version->list"); f_4565(t5,t2);} /* k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 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(7,c,4)))){ C_save_and_reclaim((void *)f_4970,2,av);} a=C_alloc(7); if(C_truep(t1)){ if(C_truep(C_retrieve2(lf[7],"setup-api#\052sudo\052"))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4825,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4830,a[2]=((C_word*)t0)[3],a[3]=((C_word)li89),tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:612: call-with-current-continuation"); t4=*((C_word*)lf[188]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_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_4905,a[2]=t3,a[3]=((C_word)li92),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_4905(t5,((C_word*)t0)[2],((C_word*)t0)[3]);}} else{ if(C_truep(((C_word*)t0)[4])){ C_trace("setup-api.scm:609: error"); t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[249]; av2[3]=lf[250]; 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* k4558 in k4555 in k4552 in k4549 in k4543 in setup-api#find-header in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ static void C_ccall f_4560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4560,2,av);} C_trace("setup-api.scm:556: test-compile"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[220]); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[220]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[213]; av2[4]=C_SCHEME_TRUE; tp(5,av2);}} /* a4844 in a4829 in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ 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 *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_4845,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4851,a[2]=((C_word*)t0)[2],a[3]=((C_word)li85),tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4890,a[2]=((C_word*)t0)[3],a[3]=((C_word)li87),tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:612: ##sys#call-with-values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a4841 in a4835 in a4829 in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ static void C_ccall f_4842(C_word c,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_4842,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4555 in k4552 in k4549 in k4543 in setup-api#find-header in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ 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 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_4557,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4560,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:557: get-output-string"); t3=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop1425 in k5043 in k4980 in setup-api#remove-extension in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ static void C_fcall f_5020(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_5020,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_5030,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_trace("setup-api.scm:631: g1426"); t5=((C_word*)t0)[3]; f_4996(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);}}} /* k4552 in k4549 in k4543 in setup-api#find-header in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 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; 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_4554,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4557,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:557: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[231]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4549 in k4543 in setup-api#find-header in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ static void C_ccall f_4551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4551,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4554,a[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_trace("setup-api.scm:557: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4829 in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 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=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_4830,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4836,a[2]=t2,a[3]=((C_word)li84),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4845,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li88),tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:612: with-exception-handler"); t5=C_fast_retrieve(lf[187]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4835 in a4829 in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 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=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_4836,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4842,a[2]=((C_word)li83),tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:612: k1357"); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k4124 in k4118 in setup-api#repo-path in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ static void C_ccall f_4126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_4126,2,av);} a=C_alloc(4); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4136,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:507: open-output-string"); t4=C_fast_retrieve(lf[53]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ C_trace("setup-api.scm:508: repository-path"); t3=C_fast_retrieve(lf[124]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4118 in setup-api#repo-path in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 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 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_4120,2,av);} a=C_alloc(3); if(C_truep(t1)){ C_trace("setup-api.scm:502: installation-prefix"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[114]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[114]+1); av2[1]=((C_word*)t0)[2]; tp(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:503: destination-prefix"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[112]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[112]+1); av2[1]=t2; tp(2,av2);}}} /* k4543 in setup-api#find-header in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ 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 t3; 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_4545,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[49]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4551,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_trace("setup-api.scm:557: ##sys#print"); t6=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[232]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* setup-api#find-header in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ static void C_ccall f_4537(C_word c,C_word *av){ C_word tmp; C_word 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_4537,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4545,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:557: open-output-string"); t4=C_fast_retrieve(lf[53]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4823 in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in ... */ static void C_ccall f_4825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4825,2,av);} C_trace("setup-api.scm:612: g1361"); t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k4986 in k5043 in k4980 in setup-api#remove-extension in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_4988,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4995,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:636: make-pathname"); t3=C_fast_retrieve(lf[79]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[0]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4237 in k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ static void C_ccall f_4239(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_4239,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4242,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4453,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:524: ##sys#get-keyword"); {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[162]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[162]+1); av2[1]=t3; av2[2]=lf[213]; av2[3]=((C_word*)t0)[7]; av2[4]=t4; tp(5,av2);}} /* k4234 in k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_4236,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4239,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_4456,a[2]=((C_word)li69),tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:524: ##sys#get-keyword"); {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[162]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[162]+1); av2[1]=t3; av2[2]=lf[214]; av2[3]=((C_word*)t0)[6]; av2[4]=t4; tp(5,av2);}} /* k4231 in k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_4233,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4236,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_4462,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:524: ##sys#get-keyword"); {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[162]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[162]+1); av2[1]=t3; av2[2]=lf[216]; av2[3]=((C_word*)t0)[5]; av2[4]=t4; tp(5,av2);}} /* k4228 in setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_4230,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4233,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_4465,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:524: ##sys#get-keyword"); {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[162]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[162]+1); av2[1]=t3; av2[2]=lf[218]; av2[3]=((C_word*)t0)[4]; av2[4]=t4; tp(5,av2);}} /* k4980 in setup-api#remove-extension in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 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 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_4982,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5045,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:630: read-info"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[239]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[239]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t2; tp(4,av2);}} /* k4533 in k4529 in k4526 in k4523 in k4520 in k4517 in k4514 in k4511 in k4508 in k4505 in k4502 in k4499 in k4496 in k4493 in k4490 in k4487 in k4481 in setup-api#find-library in k2841 in k2837 in k2833 in k2434 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4535,2,av);} C_trace("setup-api.scm:551: test-compile"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[220]); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[220]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[216]; av2[4]=t1; tp(5,av2);}} /* k3270 in map-loop731 in setup-api#check-filelist in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ static void C_ccall f_3272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_3272,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t2=C_u_i_car(((C_word*)t0)[3]); t3=C_u_i_cdr(((C_word*)t0)[3]); t4=C_a_i_list2(&a,2,t2,t3); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ C_trace("setup-api.scm:374: error"); t5=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=lf[138]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} else{ C_trace("setup-api.scm:374: error"); t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[138]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}} /* k4529 in k4526 in k4523 in k4520 in k4517 in k4514 in k4511 in k4508 in k4505 in k4502 in k4499 in k4496 in k4493 in k4490 in k4487 in k4481 in setup-api#find-library in k2841 in k2837 in k2833 in k2434 in k2431 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 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_4531,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4535,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:553: conc"); t4=C_fast_retrieve(lf[199]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[222]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in ... */ static void C_ccall f_2436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2436,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[81]+1 /* (set! setup-api#execute ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2651,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); 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); C_trace("setup-api.scm:289: make-parameter"); t4=C_fast_retrieve(lf[268]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in ... */ static void C_ccall f_2433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2433,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2436,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5249,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("##sys#peek-c-string"); t4=*((C_word*)lf[272]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_CHICKEN_BUG_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3942 in k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3944,2,av);} a=C_alloc(3); C_trace("setup-api.scm:461: ensure-directory"); f_4166(((C_word*)t0)[2],t1,C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_2430,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2433,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_5253,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("##sys#peek-c-string"); t4=*((C_word*)lf[272]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_CHICKEN_STATUS_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* setup-api#repo-path in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ static void C_fcall f_4104(C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_4104,2,t1,t2);} a=C_alloc(6); 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_4111,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(t4)){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4120,a[2]=t5,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:501: deployment-mode"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[21]); C_word av2[2]; av2[0]=*((C_word*)lf[21]+1); av2[1]=t6; tp(2,av2);}} else{ C_trace("setup-api.scm:509: repository-path"); t6=C_fast_retrieve(lf[124]);{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* setup-api#try-compile in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 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=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_4223,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; t4=C_i_get_keyword(lf[186],t3,C_SCHEME_FALSE); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4230,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4468,a[2]=t5,a[3]=((C_word)li72),tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:524: ##sys#get-keyword"); {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[162]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[162]+1); av2[1]=t6; av2[2]=lf[219]; av2[3]=t3; av2[4]=t7; tp(5,av2);}} /* k2975 in k2972 in k2966 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in ... */ static void C_ccall f_2977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2977,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2980,a[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_trace("setup-api.scm:315: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[127]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2972 in k2966 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in ... */ 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(5,c,4)))){ C_save_and_reclaim((void *)f_2974,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2977,a[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_trace("setup-api.scm:315: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2462 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ 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,3)))){ C_save_and_reclaim((void *)f_2464,2,av);} C_trace("setup-api.scm:239: string-intersperse"); t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[86]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ static void C_ccall f_2468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2468,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2472,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_2614,a[2]=t3,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:243: deployment-mode"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[21]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[21]+1); av2[1]=t4; tp(2,av2);}} /* k4134 in k4124 in k4118 in setup-api#repo-path in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 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 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_4136,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[49]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4142,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); C_trace("setup-api.scm:507: ##sys#print"); t6=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[181]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* setup-api#check-filelist in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ static void C_fcall f_3254(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_3254,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=C_i_check_list_2(t2,lf[82]); 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_3305,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li33),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_3305(t11,t1,t2);} /* k2966 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ 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 t3; 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_2968,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=*((C_word*)lf[72]+1); t3=*((C_word*)lf[72]+1); t4=C_i_check_port_2(*((C_word*)lf[72]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[73]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2974,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_trace("setup-api.scm:315: ##sys#print"); t6=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[128]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[72]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_2891(2,av2);}}} /* k2963 in k2892 in k2889 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_2965,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_a_i_list(&a,1,t1); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2819,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t4))){ C_trace("setup-api.scm:286: repository-path"); t6=C_fast_retrieve(lf[124]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_i_car(t4); C_trace("setup-api.scm:287: make-pathname"); t7=C_fast_retrieve(lf[79]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t2; av2[2]=t6; av2[3]=t3; av2[4]=lf[0]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in k1889 in k1886 in k1883 in k1880 */ 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 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_1950,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[11]+1 /* (set! setup-api#host-extension ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1954,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:94: get-environment-variable"); t4=C_fast_retrieve(lf[60]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[283]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in k1889 in k1886 in k1883 in k1880 */ static void C_ccall f_1954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1954,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1957,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ C_trace("setup-api.scm:95: make-pathname"); t3=C_fast_retrieve(lf[79]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=lf[282]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_1957(2,av2);}}} /* k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in k1922 in k1918 in k1913 in k1910 in k1907 in k1904 in k1901 in k1898 in k1895 in k1892 in k1889 in k1886 in k1883 in k1880 in ... */ static void C_ccall f_1957(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1957,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1960,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; f_1960(2,av2);}} else{ C_trace("##sys#peek-c-string"); t3=*((C_word*)lf[272]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k1880 */ static void C_ccall f_1882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1882,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1885,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k1883 in k1880 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1885,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1888,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k3247 in setup-api#make-dest-pathname in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_ccall f_3249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3249,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ C_trace("setup-api.scm:367: make-pathname"); t2=C_fast_retrieve(lf[79]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k1886 in k1883 in k1880 */ static void C_ccall f_1888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1888,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1891,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d1_toplevel(2,av2);}} /* setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ 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=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_2995,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; C_word t11; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_TRUE:C_i_car(t4)); t7=C_i_nullp(t4); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t9=t8; t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3005,a[2]=t9,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_nullp(t9))){ C_trace("setup-api.scm:326: installation-prefix"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[114]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[114]+1); av2[1]=t10; tp(2,av2);}} else{ t11=t10;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_i_car(t9); f_3005(2,av2);}}} /* g1389 in k4907 in walk in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ static void C_fcall f_4910(C_word 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_4910,3,t0,t1,t2);} a=C_alloc(6); t3=C_i_string_equal_p(lf[245],t2); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4920,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); if(C_truep(t3)){ t5=t4; f_4920(t5,t3);} else{ t5=t2; t6=t4; f_4920(t6,C_u_i_string_equal_p(lf[247],t5));}} /* k2486 in k2603 in k2606 in k2609 in k2470 in k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ static void C_ccall f_2488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2488,2,av);} C_trace("setup-api.scm:240: cons*"); t2=C_fast_retrieve(lf[93]);{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[94]; av2[4]=lf[95]; 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; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} /* setup-api#supply-version in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in ... */ static void C_fcall f_3414(C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_3414,3,t1,t2,t3);} a=C_alloc(7); if(C_truep(C_i_assq(lf[142],t2))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3422,a[2]=t2,a[3]=((C_word)li35),tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:392: g799"); t5=t4; f_3422(t5,t1);} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3440,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=t4; if(C_truep(t3)){ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3386,a[2]=t5,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:387: extension-name-and-version"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[147]); C_word av2[2]; av2[0]=*((C_word*)lf[147]+1); av2[1]=t6; tp(2,av2);}}}} /* k2984 in k2981 in k2978 in k2975 in k2972 in k2966 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2986,2,av);} C_trace("setup-api.scm:315: ##sys#write-char-0"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[70]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k2981 in k2978 in k2975 in k2972 in k2966 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2983,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2986,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:315: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[126]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2978 in k2975 in k2972 in k2966 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ static void C_ccall f_2980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2980,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2983,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:315: ##sys#print"); t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2593 in map-loop336 in k2503 in k2603 in k2606 in k2609 in k2470 in k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2595,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_2570(t6,((C_word*)t0)[5],t5);} /* g799 in setup-api#supply-version in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_fcall f_3422(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_3422,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3434,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:396: extension-name"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[144]); C_word av2[2]; av2[0]=*((C_word*)lf[144]+1); av2[1]=t2; tp(2,av2);}} /* k3384 in setup-api#supply-version in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in ... */ static void C_ccall f_3386(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3386,2,av);} if(C_truep(t1)){ if(C_truep(C_i_pairp(t1))){ t2=C_i_cadr(t1); t3=C_i_equalp(lf[145],t2); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep(t3)?lf[146]:C_i_cadr(t1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[146]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[146]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k1889 in k1886 in k1883 in k1880 */ static void C_ccall f_1891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1891,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1894,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_irregex_toplevel(2,av2);}} /* k1892 in k1889 in k1886 in k1883 in k1880 */ 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 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_1894,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1897,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_utils_toplevel(2,av2);}} /* k1895 in k1892 in k1889 in k1886 in k1883 in k1880 */ 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 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_1897,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1900,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_posix_toplevel(2,av2);}} /* k2925 in k2922 in k2898 in k2895 in k2892 in k2889 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2927,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2942,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:322: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k2919 in k2901 in k2898 in k2895 in k2892 in k2889 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ 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 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_2921,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,3,C_retrieve2(lf[31],"setup-api#\052chmod-command\052"),lf[121],t1); t3=C_a_i_list1(&a,1,t2); C_trace("setup-api.scm:324: execute"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[81]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[81]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t3; tp(3,av2);}} /* k2922 in k2898 in k2895 in k2892 in k2889 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ static void C_ccall f_2924(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2924,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2927,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_2948,a[2]=((C_word*)t0)[4],a[3]=((C_word)li23),tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:321: with-output-to-file"); t5=C_fast_retrieve(lf[68]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2292 in k2238 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in k1926 in ... */ static void C_ccall f_2294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2294,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2297,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_list2(&a,2,t2,t2); C_trace("setup-api.scm:203: patch"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[63]+1); av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; tp(5,av2);}} /* k2289 in k2273 in loop in a2264 in a2254 in k2238 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2291,2,av);} C_trace("setup-api.scm:200: write-line"); t2=C_fast_retrieve(lf[64]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2295 in k2292 in k2238 in setup-api#patch in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 in k1962 in k1958 in k1955 in k1952 in k1948 in k1944 in k1941 in k1934 in k1930 in ... */ static void C_ccall f_2297(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2297,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2304,a[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_trace("setup-api.scm:205: open-output-string"); t3=C_fast_retrieve(lf[53]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3617 in k3600 in k3594 in k3588 in k3585 in k3582 in k3579 in g883 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 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 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_3619,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3623,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:445: runtime-prefix"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[113]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[113]+1); av2[1]=t3; tp(2,av2);}} /* a2956 in k2898 in k2895 in k2892 in k2889 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ 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 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_2957,2,av);} t2=C_fast_retrieve(lf[122]); C_trace("setup-api.scm:323: g635"); t3=C_fast_retrieve(lf[122]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2440 in k3621 in k3617 in k3600 in k3594 in k3588 in k3585 in k3582 in k3579 in g883 in k3571 in k3568 in k3565 in k3562 in setup-api#install-extension in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2442,2,av);} if(C_truep(t1)){ C_trace("setup-api.scm:235: make-pathname"); t2=C_fast_retrieve(lf[79]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k4907 in walk in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ static void C_ccall f_4909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4909,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4910,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li90),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4940,a[2]=((C_word*)t0)[4],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_4945,a[2]=t5,a[3]=t2,a[4]=((C_word)li91),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_4945(t7,t3,t1);} /* walk in k4968 in setup-api#remove-directory in k4736 in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in ... */ static void C_fcall f_4905(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_4905,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4909,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:618: directory"); t4=C_fast_retrieve(lf[130]);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2944 in k2940 in k2925 in k2922 in k2898 in k2895 in k2892 in k2889 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in ... */ 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 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_2946,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,3,C_retrieve2(lf[30],"setup-api#\052move-command\052"),((C_word*)t0)[2],t1); t3=C_a_i_list1(&a,1,t2); C_trace("setup-api.scm:322: execute"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[81]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[81]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t3; tp(3,av2);}} /* a2947 in k2922 in k2898 in k2895 in k2892 in k2889 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ 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 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_2948,2,av);} t2=C_fast_retrieve(lf[122]); C_trace("setup-api.scm:321: g623"); t3=C_fast_retrieve(lf[122]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2940 in k2925 in k2922 in k2898 in k2895 in k2892 in k2889 in setup-api#write-info in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2942,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2946,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:322: shellpath"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* map-loop975 in k3782 in k3779 in k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ static void C_fcall f_3835(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_3835,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_3860,a[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_trace("setup-api.scm:469: g981"); t5=((C_word*)t0)[4]; f_3788(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);}}} /* k3831 in k3824 in k3782 in k3779 in k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 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,4)))){ C_save_and_reclaim((void *)f_3833,2,av);} C_trace("setup-api.scm:477: write-info"); f_2884(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k3824 in k3782 in k3779 in k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ static void C_ccall f_3826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3826,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3833,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); C_trace("setup-api.scm:477: supply-version"); f_3414(t3,((C_word*)t0)[4],C_SCHEME_FALSE);} /* map-loop336 in k2503 in k2603 in k2606 in k2609 in k2470 in k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in ... */ static void C_fcall f_2570(C_word t0,C_word 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_2570,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_2595,a[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_2502,a[2]=t5,tmp=(C_word)a,a+=3,tmp); C_trace("setup-api.scm:252: symbol->string"); t7=*((C_word*)lf[99]+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);}}} /* k2559 in map-loop363 in k2526 in k2509 in k2503 in k2603 in k2606 in k2609 in k2470 in k2466 in k2662 in smooth in setup-api#execute in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in ... */ 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; C_word t3; 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_2561,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_2536(t6,((C_word*)t0)[5],t5);} /* k3107 in k3012 in k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3109,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_3017(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3102,a[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_trace("setup-api.scm:331: absolute-pathname?"); t3=C_fast_retrieve(lf[132]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k4109 in setup-api#repo-path in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 in k1965 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4111,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4114,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-api.scm:510: ensure-directory"); f_4166(t3,t2,C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k4112 in k4109 in setup-api#repo-path in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in k1988 in k1984 in k1980 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,1)))){ C_save_and_reclaim((void *)f_4114,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3100 in k3107 in k3012 in k3009 in k3003 in setup-api#copy-file in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3102,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_3017(2,av2);}} else{ C_trace("setup-api.scm:333: make-pathname"); t2=C_fast_retrieve(lf[79]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k3887 in k3883 in g953 in k3779 in k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_3889,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k3883 in g953 in k3779 in k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3885,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3889,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_cadr(((C_word*)t0)[3]); C_trace("setup-api.scm:465: exify"); f_3758(t3,t4);} /* k3858 in map-loop975 in k3782 in k3779 in k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 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 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_3860,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3835(t6,((C_word*)t0)[5],t5);} /* g953 in k3779 in k3776 in k3773 in k3770 in setup-api#install-program in k2841 in k2837 in k2833 in k2434 in k2431 in k2428 in k2425 in k2422 in k2419 in k2416 in k2357 in k2232 in k2004 in k2000 in k1996 in k1992 in ... */ static void C_fcall f_3871(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_3871,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_listp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3885,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); C_trace("setup-api.scm:465: exify"); f_3758(t3,t4);} else{ C_trace("setup-api.scm:466: exify"); f_3758(t1,t2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[484] = { {"f_2536:setup_2dapi_2escm",(void*)f_2536}, {"f_2534:setup_2dapi_2escm",(void*)f_2534}, {"f_2211:setup_2dapi_2escm",(void*)f_2211}, {"f_3507:setup_2dapi_2escm",(void*)f_3507}, {"f_3503:setup_2dapi_2escm",(void*)f_3503}, {"f_2236:setup_2dapi_2escm",(void*)f_2236}, {"f_2234:setup_2dapi_2escm",(void*)f_2234}, {"f_3176:setup_2dapi_2escm",(void*)f_3176}, {"f_3170:setup_2dapi_2escm",(void*)f_3170}, {"f_3173:setup_2dapi_2escm",(void*)f_3173}, {"f_2683:setup_2dapi_2escm",(void*)f_2683}, {"f_3164:setup_2dapi_2escm",(void*)f_3164}, {"f_3166:setup_2dapi_2escm",(void*)f_3166}, {"f_3160:setup_2dapi_2escm",(void*)f_3160}, {"f_2675:setup_2dapi_2escm",(void*)f_2675}, {"f_4634:setup_2dapi_2escm",(void*)f_4634}, {"f_4632:setup_2dapi_2escm",(void*)f_4632}, {"f_2664:setup_2dapi_2escm",(void*)f_2664}, {"f_4525:setup_2dapi_2escm",(void*)f_4525}, {"f_4522:setup_2dapi_2escm",(void*)f_4522}, {"f_4528:setup_2dapi_2escm",(void*)f_4528}, {"f_3482:setup_2dapi_2escm",(void*)f_3482}, {"f_2654:setup_2dapi_2escm",(void*)f_2654}, {"f_2651:setup_2dapi_2escm",(void*)f_2651}, {"f_3499:setup_2dapi_2escm",(void*)f_3499}, {"f_4513:setup_2dapi_2escm",(void*)f_4513}, {"f_4519:setup_2dapi_2escm",(void*)f_4519}, {"f_4516:setup_2dapi_2escm",(void*)f_4516}, {"f_4510:setup_2dapi_2escm",(void*)f_4510}, {"f_4483:setup_2dapi_2escm",(void*)f_4483}, {"f_4489:setup_2dapi_2escm",(void*)f_4489}, {"f_4372:setup_2dapi_2escm",(void*)f_4372}, {"f_4375:setup_2dapi_2escm",(void*)f_4375}, {"f_4475:setup_2dapi_2escm",(void*)f_4475}, {"f_4366:setup_2dapi_2escm",(void*)f_4366}, {"f_4378:setup_2dapi_2escm",(void*)f_4378}, {"f_2407:setup_2dapi_2escm",(void*)f_2407}, {"f_4352:setup_2dapi_2escm",(void*)f_4352}, {"f_5056:setup_2dapi_2escm",(void*)f_5056}, {"f_2333:setup_2dapi_2escm",(void*)f_2333}, {"f_2643:setup_2dapi_2escm",(void*)f_2643}, {"f_2649:setup_2dapi_2escm",(void*)f_2649}, {"f_5076:setup_2dapi_2escm",(void*)f_5076}, {"f_2325:setup_2dapi_2escm",(void*)f_2325}, {"f_2322:setup_2dapi_2escm",(void*)f_2322}, {"f_1915:setup_2dapi_2escm",(void*)f_1915}, {"f_3330:setup_2dapi_2escm",(void*)f_3330}, {"f_1912:setup_2dapi_2escm",(void*)f_1912}, {"f_2329:setup_2dapi_2escm",(void*)f_2329}, {"f_5045:setup_2dapi_2escm",(void*)f_5045}, {"f_3434:setup_2dapi_2escm",(void*)f_3434}, {"f_5091:setup_2dapi_2escm",(void*)f_5091}, {"f_5097:setup_2dapi_2escm",(void*)f_5097}, {"f_5094:setup_2dapi_2escm",(void*)f_5094}, {"f_4884:setup_2dapi_2escm",(void*)f_4884}, {"f_4880:setup_2dapi_2escm",(void*)f_4880}, {"f_4702:setup_2dapi_2escm",(void*)f_4702}, {"f_5063:setup_2dapi_2escm",(void*)f_5063}, {"f_5060:setup_2dapi_2escm",(void*)f_5060}, {"f_4385:setup_2dapi_2escm",(void*)f_4385}, {"f_2781:setup_2dapi_2escm",(void*)f_2781}, {"f_4381:setup_2dapi_2escm",(void*)f_4381}, {"f_1928:setup_2dapi_2escm",(void*)f_1928}, {"f_3602:setup_2dapi_2escm",(void*)f_3602}, {"f_4888:setup_2dapi_2escm",(void*)f_4888}, {"f_3473:setup_2dapi_2escm",(void*)f_3473}, {"f_3470:setup_2dapi_2escm",(void*)f_3470}, {"f_1924:setup_2dapi_2escm",(void*)f_1924}, {"f_4871:setup_2dapi_2escm",(void*)f_4871}, {"f_4874:setup_2dapi_2escm",(void*)f_4874}, {"f_5122:setup_2dapi_2escm",(void*)f_5122}, {"f_1920:setup_2dapi_2escm",(void*)f_1920}, {"f_3485:setup_2dapi_2escm",(void*)f_3485}, {"f_3488:setup_2dapi_2escm",(void*)f_3488}, {"f_4877:setup_2dapi_2escm",(void*)f_4877}, {"f_4387:setup_2dapi_2escm",(void*)f_4387}, {"f_4166:setup_2dapi_2escm",(void*)f_4166}, {"f_3629:setup_2dapi_2escm",(void*)f_3629}, {"f_3476:setup_2dapi_2escm",(void*)f_3476}, {"f_3479:setup_2dapi_2escm",(void*)f_3479}, {"f_1909:setup_2dapi_2escm",(void*)f_1909}, {"f_1906:setup_2dapi_2escm",(void*)f_1906}, {"f_4865:setup_2dapi_2escm",(void*)f_4865}, {"f_3623:setup_2dapi_2escm",(void*)f_3623}, {"f_3305:setup_2dapi_2escm",(void*)f_3305}, {"f_3801:setup_2dapi_2escm",(void*)f_3801}, {"f_4194:setup_2dapi_2escm",(void*)f_4194}, {"f_4851:setup_2dapi_2escm",(void*)f_4851}, {"f_4465:setup_2dapi_2escm",(void*)f_4465}, {"f_4148:setup_2dapi_2escm",(void*)f_4148}, {"f_1903:setup_2dapi_2escm",(void*)f_1903}, {"f_4855:setup_2dapi_2escm",(void*)f_4855}, {"f_4462:setup_2dapi_2escm",(void*)f_4462}, {"f_1900:setup_2dapi_2escm",(void*)f_1900}, {"f_4468:setup_2dapi_2escm",(void*)f_4468}, {"f_5139:setup_2dapi_2escm",(void*)f_5139}, {"f_5137:setup_2dapi_2escm",(void*)f_5137}, {"f_1936:setup_2dapi_2escm",(void*)f_1936}, {"f_5135:setup_2dapi_2escm",(void*)f_5135}, {"f_3440:setup_2dapi_2escm",(void*)f_3440}, {"f_3816:setup_2dapi_2escm",(void*)f_3816}, {"f_4142:setup_2dapi_2escm",(void*)f_4142}, {"f_4145:setup_2dapi_2escm",(void*)f_4145}, {"f_4456:setup_2dapi_2escm",(void*)f_4456}, {"f_4453:setup_2dapi_2escm",(void*)f_4453}, {"f_1932:setup_2dapi_2escm",(void*)f_1932}, {"f_4343:setup_2dapi_2escm",(void*)f_4343}, {"f_3457:setup_2dapi_2escm",(void*)f_3457}, {"f_3455:setup_2dapi_2escm",(void*)f_3455}, {"f_4358:setup_2dapi_2escm",(void*)f_4358}, {"f_4173:setup_2dapi_2escm",(void*)f_4173}, {"f_4176:setup_2dapi_2escm",(void*)f_4176}, {"f_4447:setup_2dapi_2escm",(void*)f_4447}, {"f_4349:setup_2dapi_2escm",(void*)f_4349}, {"f_4434:setup_2dapi_2escm",(void*)f_4434}, {"f_4430:setup_2dapi_2escm",(void*)f_4430}, {"f_4033:setup_2dapi_2escm",(void*)f_4033}, {"f_4026:setup_2dapi_2escm",(void*)f_4026}, {"f_4890:setup_2dapi_2escm",(void*)f_4890}, {"f_4023:setup_2dapi_2escm",(void*)f_4023}, {"f_3350:setup_2dapi_2escm",(void*)f_3350}, {"f_4393:setup_2dapi_2escm",(void*)f_4393}, {"f_2750:setup_2dapi_2escm",(void*)f_2750}, {"f_4896:setup_2dapi_2escm",(void*)f_4896}, {"f_2758:setup_2dapi_2escm",(void*)f_2758}, {"f_4492:setup_2dapi_2escm",(void*)f_4492}, {"f_4803:setup_2dapi_2escm",(void*)f_4803}, {"f_4495:setup_2dapi_2escm",(void*)f_4495}, {"f_4013:setup_2dapi_2escm",(void*)f_4013}, {"f_3978:setup_2dapi_2escm",(void*)f_3978}, {"f_4498:setup_2dapi_2escm",(void*)f_4498}, {"f_3975:setup_2dapi_2escm",(void*)f_3975}, {"f_3972:setup_2dapi_2escm",(void*)f_3972}, {"f_3962:setup_2dapi_2escm",(void*)f_3962}, {"f_4504:setup_2dapi_2escm",(void*)f_4504}, {"f_5261:setup_2dapi_2escm",(void*)f_5261}, {"f_4507:setup_2dapi_2escm",(void*)f_4507}, {"f_5265:setup_2dapi_2escm",(void*)f_5265}, {"f_5269:setup_2dapi_2escm",(void*)f_5269}, {"f_4501:setup_2dapi_2escm",(void*)f_4501}, {"f_2096:setup_2dapi_2escm",(void*)f_2096}, {"f_2093:setup_2dapi_2escm",(void*)f_2093}, {"f_2090:setup_2dapi_2escm",(void*)f_2090}, {"f_3995:setup_2dapi_2escm",(void*)f_3995}, {"f_3998:setup_2dapi_2escm",(void*)f_3998}, {"f_3992:setup_2dapi_2escm",(void*)f_3992}, {"f_2316:setup_2dapi_2escm",(void*)f_2316}, {"f_2313:setup_2dapi_2escm",(void*)f_2313}, {"f_2310:setup_2dapi_2escm",(void*)f_2310}, {"f_5273:setup_2dapi_2escm",(void*)f_5273}, {"f_5275:setup_2dapi_2escm",(void*)f_5275}, {"f_2084:setup_2dapi_2escm",(void*)f_2084}, {"f_3989:setup_2dapi_2escm",(void*)f_3989}, {"f_2080:setup_2dapi_2escm",(void*)f_2080}, {"f_3985:setup_2dapi_2escm",(void*)f_3985}, {"f_3981:setup_2dapi_2escm",(void*)f_3981}, {"f_2319:setup_2dapi_2escm",(void*)f_2319}, {"f_2304:setup_2dapi_2escm",(void*)f_2304}, {"f_3518:setup_2dapi_2escm",(void*)f_3518}, {"f_3511:setup_2dapi_2escm",(void*)f_3511}, {"f_3933:setup_2dapi_2escm",(void*)f_3933}, {"f_2735:setup_2dapi_2escm",(void*)f_2735}, {"f_2732:setup_2dapi_2escm",(void*)f_2732}, {"f_2738:setup_2dapi_2escm",(void*)f_2738}, {"f_2240:setup_2dapi_2escm",(void*)f_2240}, {"f_2768:setup_2dapi_2escm",(void*)f_2768}, {"f_5103:setup_2dapi_2escm",(void*)f_5103}, {"f_5100:setup_2dapi_2escm",(void*)f_5100}, {"f_5114:setup_2dapi_2escm",(void*)f_5114}, {"f_5110:setup_2dapi_2escm",(void*)f_5110}, {"f_2265:setup_2dapi_2escm",(void*)f_2265}, {"f_2255:setup_2dapi_2escm",(void*)f_2255}, {"f_2284:setup_2dapi_2escm",(void*)f_2284}, {"f_2623:setup_2dapi_2escm",(void*)f_2623}, {"f_2271:setup_2dapi_2escm",(void*)f_2271}, {"f_2275:setup_2dapi_2escm",(void*)f_2275}, {"f_2614:setup_2dapi_2escm",(void*)f_2614}, {"f_2617:setup_2dapi_2escm",(void*)f_2617}, {"f_2611:setup_2dapi_2escm",(void*)f_2611}, {"f_3683:setup_2dapi_2escm",(void*)f_3683}, {"f_2424:setup_2dapi_2escm",(void*)f_2424}, {"f_2427:setup_2dapi_2escm",(void*)f_2427}, {"f_5298:setup_2dapi_2escm",(void*)f_5298}, {"f_2421:setup_2dapi_2escm",(void*)f_2421}, {"f_2415:setup_2dapi_2escm",(void*)f_2415}, {"f_2418:setup_2dapi_2escm",(void*)f_2418}, {"f_3668:setup_2dapi_2escm",(void*)f_3668}, {"f_3660:setup_2dapi_2escm",(void*)f_3660}, {"f_2170:setup_2dapi_2escm",(void*)f_2170}, {"f_2173:setup_2dapi_2escm",(void*)f_2173}, {"f_2176:setup_2dapi_2escm",(void*)f_2176}, {"f_3693:setup_2dapi_2escm",(void*)f_3693}, {"f_5245:setup_2dapi_2escm",(void*)f_5245}, {"f_5249:setup_2dapi_2escm",(void*)f_5249}, {"f_2160:setup_2dapi_2escm",(void*)f_2160}, {"f_3644:setup_2dapi_2escm",(void*)f_3644}, {"f_2164:setup_2dapi_2escm",(void*)f_2164}, {"f_5253:setup_2dapi_2escm",(void*)f_5253}, {"f_5257:setup_2dapi_2escm",(void*)f_5257}, {"f_4319:setup_2dapi_2escm",(void*)f_4319}, {"f_4316:setup_2dapi_2escm",(void*)f_4316}, {"f_4313:setup_2dapi_2escm",(void*)f_4313}, {"toplevel:setup_2dapi_2escm",(void*)C_toplevel}, {"f_4304:setup_2dapi_2escm",(void*)f_4304}, {"f_2511:setup_2dapi_2escm",(void*)f_2511}, {"f_2505:setup_2dapi_2escm",(void*)f_2505}, {"f_2502:setup_2dapi_2escm",(void*)f_2502}, {"f_4929:setup_2dapi_2escm",(void*)f_4929}, {"f_4920:setup_2dapi_2escm",(void*)f_4920}, {"f_4923:setup_2dapi_2escm",(void*)f_4923}, {"f_4955:setup_2dapi_2escm",(void*)f_4955}, {"f_2525:setup_2dapi_2escm",(void*)f_2525}, {"f_2528:setup_2dapi_2escm",(void*)f_2528}, {"f_2352:setup_2dapi_2escm",(void*)f_2352}, {"f_2359:setup_2dapi_2escm",(void*)f_2359}, {"f_4337:setup_2dapi_2escm",(void*)f_4337}, {"f_4331:setup_2dapi_2escm",(void*)f_4331}, {"f_4310:setup_2dapi_2escm",(void*)f_4310}, {"f_4426:setup_2dapi_2escm",(void*)f_4426}, {"f_2340:setup_2dapi_2escm",(void*)f_2340}, {"f_2346:setup_2dapi_2escm",(void*)f_2346}, {"f_2349:setup_2dapi_2escm",(void*)f_2349}, {"f_4325:setup_2dapi_2escm",(void*)f_4325}, {"f_4323:setup_2dapi_2escm",(void*)f_4323}, {"f_4415:setup_2dapi_2escm",(void*)f_4415}, {"f_4412:setup_2dapi_2escm",(void*)f_4412}, {"f_3577:setup_2dapi_2escm",(void*)f_3577}, {"f_2373:setup_2dapi_2escm",(void*)f_2373}, {"f_3573:setup_2dapi_2escm",(void*)f_3573}, {"f_3570:setup_2dapi_2escm",(void*)f_3570}, {"f_2361:setup_2dapi_2escm",(void*)f_2361}, {"f_2365:setup_2dapi_2escm",(void*)f_2365}, {"f_2185:setup_2dapi_2escm",(void*)f_2185}, {"f_2180:setup_2dapi_2escm",(void*)f_2180}, {"f_2018:setup_2dapi_2escm",(void*)f_2018}, {"f_3596:setup_2dapi_2escm",(void*)f_3596}, {"f_4275:setup_2dapi_2escm",(void*)f_4275}, {"f_2392:setup_2dapi_2escm",(void*)f_2392}, {"f_3590:setup_2dapi_2escm",(void*)f_3590}, {"f_2008:setup_2dapi_2escm",(void*)f_2008}, {"f_2006:setup_2dapi_2escm",(void*)f_2006}, {"f_2002:setup_2dapi_2escm",(void*)f_2002}, {"f_5143:setup_2dapi_2escm",(void*)f_5143}, {"f_4260:setup_2dapi_2escm",(void*)f_4260}, {"f_4263:setup_2dapi_2escm",(void*)f_4263}, {"f_4266:setup_2dapi_2escm",(void*)f_4266}, {"f_4269:setup_2dapi_2escm",(void*)f_4269}, {"f_2383:setup_2dapi_2escm",(void*)f_2383}, {"f_2388:setup_2dapi_2escm",(void*)f_2388}, {"f_2037:setup_2dapi_2escm",(void*)f_2037}, {"f_5150:setup_2dapi_2escm",(void*)f_5150}, {"f_5152:setup_2dapi_2escm",(void*)f_5152}, {"f_3539:setup_2dapi_2escm",(void*)f_3539}, {"f_2157:setup_2dapi_2escm",(void*)f_2157}, {"f_2154:setup_2dapi_2escm",(void*)f_2154}, {"f_4048:setup_2dapi_2escm",(void*)f_4048}, {"f_2027:setup_2dapi_2escm",(void*)f_2027}, {"f_3567:setup_2dapi_2escm",(void*)f_3567}, {"f_3564:setup_2dapi_2escm",(void*)f_3564}, {"f_5168:setup_2dapi_2escm",(void*)f_5168}, {"f_2141:setup_2dapi_2escm",(void*)f_2141}, {"f_2144:setup_2dapi_2escm",(void*)f_2144}, {"f_2148:setup_2dapi_2escm",(void*)f_2148}, {"f_5175:setup_2dapi_2escm",(void*)f_5175}, {"f_3554:setup_2dapi_2escm",(void*)f_3554}, {"f_3587:setup_2dapi_2escm",(void*)f_3587}, {"f_3584:setup_2dapi_2escm",(void*)f_3584}, {"f_3581:setup_2dapi_2escm",(void*)f_3581}, {"f_4628:setup_2dapi_2escm",(void*)f_4628}, {"f_4621:setup_2dapi_2escm",(void*)f_4621}, {"f_5198:setup_2dapi_2escm",(void*)f_5198}, {"f_4296:setup_2dapi_2escm",(void*)f_4296}, {"f_4290:setup_2dapi_2escm",(void*)f_4290}, {"f_2605:setup_2dapi_2escm",(void*)f_2605}, {"f_4086:setup_2dapi_2escm",(void*)f_4086}, {"f_2608:setup_2dapi_2escm",(void*)f_2608}, {"f_4281:setup_2dapi_2escm",(void*)f_4281}, {"f_4287:setup_2dapi_2escm",(void*)f_4287}, {"f_3700:setup_2dapi_2escm",(void*)f_3700}, {"f_3702:setup_2dapi_2escm",(void*)f_3702}, {"f_4075:setup_2dapi_2escm",(void*)f_4075}, {"f_3908:setup_2dapi_2escm",(void*)f_3908}, {"f_5202:setup_2dapi_2escm",(void*)f_5202}, {"f_3005:setup_2dapi_2escm",(void*)f_3005}, {"f_2819:setup_2dapi_2escm",(void*)f_2819}, {"f_3017:setup_2dapi_2escm",(void*)f_3017}, {"f_3014:setup_2dapi_2escm",(void*)f_3014}, {"f_3011:setup_2dapi_2escm",(void*)f_3011}, {"f_3727:setup_2dapi_2escm",(void*)f_3727}, {"f_4050:setup_2dapi_2escm",(void*)f_4050}, {"f_5218:setup_2dapi_2escm",(void*)f_5218}, {"f_2806:setup_2dapi_2escm",(void*)f_2806}, {"f_4251:setup_2dapi_2escm",(void*)f_4251}, {"f_4257:setup_2dapi_2escm",(void*)f_4257}, {"f_4254:setup_2dapi_2escm",(void*)f_4254}, {"f_5222:setup_2dapi_2escm",(void*)f_5222}, {"f_3029:setup_2dapi_2escm",(void*)f_3029}, {"f_3022:setup_2dapi_2escm",(void*)f_3022}, {"f_3020:setup_2dapi_2escm",(void*)f_3020}, {"f_5226:setup_2dapi_2escm",(void*)f_5226}, {"f_4242:setup_2dapi_2escm",(void*)f_4242}, {"f_4245:setup_2dapi_2escm",(void*)f_4245}, {"f_4248:setup_2dapi_2escm",(void*)f_4248}, {"f_4792:setup_2dapi_2escm",(void*)f_4792}, {"f_3038:setup_2dapi_2escm",(void*)f_3038}, {"f_5230:setup_2dapi_2escm",(void*)f_5230}, {"f_3030:setup_2dapi_2escm",(void*)f_3030}, {"f_4781:setup_2dapi_2escm",(void*)f_4781}, {"f_4785:setup_2dapi_2escm",(void*)f_4785}, {"f_4773:setup_2dapi_2escm",(void*)f_4773}, {"f_4763:setup_2dapi_2escm",(void*)f_4763}, {"f_2876:setup_2dapi_2escm",(void*)f_2876}, {"f_2873:setup_2dapi_2escm",(void*)f_2873}, {"f_2870:setup_2dapi_2escm",(void*)f_2870}, {"f_3060:setup_2dapi_2escm",(void*)f_3060}, {"f_4750:setup_2dapi_2escm",(void*)f_4750}, {"f_2864:setup_2dapi_2escm",(void*)f_2864}, {"f_3074:setup_2dapi_2escm",(void*)f_3074}, {"f_3195:setup_2dapi_2escm",(void*)f_3195}, {"f_3191:setup_2dapi_2escm",(void*)f_3191}, {"f_3050:setup_2dapi_2escm",(void*)f_3050}, {"f_4740:setup_2dapi_2escm",(void*)f_4740}, {"f_2897:setup_2dapi_2escm",(void*)f_2897}, {"f_2891:setup_2dapi_2escm",(void*)f_2891}, {"f_2894:setup_2dapi_2escm",(void*)f_2894}, {"f_3042:setup_2dapi_2escm",(void*)f_3042}, {"f_4748:setup_2dapi_2escm",(void*)f_4748}, {"f_2884:setup_2dapi_2escm",(void*)f_2884}, {"f_2839:setup_2dapi_2escm",(void*)f_2839}, {"f_4738:setup_2dapi_2escm",(void*)f_4738}, {"f_2835:setup_2dapi_2escm",(void*)f_2835}, {"f_3045:setup_2dapi_2escm",(void*)f_3045}, {"f_2857:setup_2dapi_2escm",(void*)f_2857}, {"f_2848:setup_2dapi_2escm",(void*)f_2848}, {"f_2843:setup_2dapi_2escm",(void*)f_2843}, {"f_2844:setup_2dapi_2escm",(void*)f_2844}, {"f_3093:setup_2dapi_2escm",(void*)f_3093}, {"f_2708:setup_2dapi_2escm",(void*)f_2708}, {"f_2116:setup_2dapi_2escm",(void*)f_2116}, {"f_2112:setup_2dapi_2escm",(void*)f_2112}, {"f_3089:setup_2dapi_2escm",(void*)f_3089}, {"f_3775:setup_2dapi_2escm",(void*)f_3775}, {"f_3778:setup_2dapi_2escm",(void*)f_3778}, {"f_3772:setup_2dapi_2escm",(void*)f_3772}, {"f_2106:setup_2dapi_2escm",(void*)f_2106}, {"f_4580:setup_2dapi_2escm",(void*)f_4580}, {"f_2100:setup_2dapi_2escm",(void*)f_2100}, {"f_4585:setup_2dapi_2escm",(void*)f_4585}, {"f_5082:setup_2dapi_2escm",(void*)f_5082}, {"f_2726:setup_2dapi_2escm",(void*)f_2726}, {"f_5088:setup_2dapi_2escm",(void*)f_5088}, {"f_2720:setup_2dapi_2escm",(void*)f_2720}, {"f_5085:setup_2dapi_2escm",(void*)f_5085}, {"f_2109:setup_2dapi_2escm",(void*)f_2109}, {"f_2138:setup_2dapi_2escm",(void*)f_2138}, {"f_2132:setup_2dapi_2escm",(void*)f_2132}, {"f_3795:setup_2dapi_2escm",(void*)f_3795}, {"f_3798:setup_2dapi_2escm",(void*)f_3798}, {"f_3792:setup_2dapi_2escm",(void*)f_3792}, {"f_2125:setup_2dapi_2escm",(void*)f_2125}, {"f_2128:setup_2dapi_2escm",(void*)f_2128}, {"f_2122:setup_2dapi_2escm",(void*)f_2122}, {"f_3211:setup_2dapi_2escm",(void*)f_3211}, {"f_3784:setup_2dapi_2escm",(void*)f_3784}, {"f_3788:setup_2dapi_2escm",(void*)f_3788}, {"f_1960:setup_2dapi_2escm",(void*)f_1960}, {"f_1967:setup_2dapi_2escm",(void*)f_1967}, {"f_1964:setup_2dapi_2escm",(void*)f_1964}, {"f_1969:setup_2dapi_2escm",(void*)f_1969}, {"f_3781:setup_2dapi_2escm",(void*)f_3781}, {"f_3229:setup_2dapi_2escm",(void*)f_3229}, {"f_3227:setup_2dapi_2escm",(void*)f_3227}, {"f_1990:setup_2dapi_2escm",(void*)f_1990}, {"f_1998:setup_2dapi_2escm",(void*)f_1998}, {"f_1994:setup_2dapi_2escm",(void*)f_1994}, {"f_1943:setup_2dapi_2escm",(void*)f_1943}, {"f_1946:setup_2dapi_2escm",(void*)f_1946}, {"f_4188:setup_2dapi_2escm",(void*)f_4188}, {"f_3758:setup_2dapi_2escm",(void*)f_3758}, {"f_1977:setup_2dapi_2escm",(void*)f_1977}, {"f_3752:setup_2dapi_2escm",(void*)f_3752}, {"f_4182:setup_2dapi_2escm",(void*)f_4182}, {"f_4212:setup_2dapi_2escm",(void*)f_4212}, {"f_4995:setup_2dapi_2escm",(void*)f_4995}, {"f_4996:setup_2dapi_2escm",(void*)f_4996}, {"f_5030:setup_2dapi_2escm",(void*)f_5030}, {"f_1982:setup_2dapi_2escm",(void*)f_1982}, {"f_2900:setup_2dapi_2escm",(void*)f_2900}, {"f_1986:setup_2dapi_2escm",(void*)f_1986}, {"f_5000:setup_2dapi_2escm",(void*)f_5000}, {"f_2903:setup_2dapi_2escm",(void*)f_2903}, {"f_5006:setup_2dapi_2escm",(void*)f_5006}, {"f_4940:setup_2dapi_2escm",(void*)f_4940}, {"f_4945:setup_2dapi_2escm",(void*)f_4945}, {"f_2472:setup_2dapi_2escm",(void*)f_2472}, {"f_4978:setup_2dapi_2escm",(void*)f_4978}, {"f_4565:setup_2dapi_2escm",(void*)f_4565}, {"f_4562:setup_2dapi_2escm",(void*)f_4562}, {"f_4970:setup_2dapi_2escm",(void*)f_4970}, {"f_4560:setup_2dapi_2escm",(void*)f_4560}, {"f_4845:setup_2dapi_2escm",(void*)f_4845}, {"f_4842:setup_2dapi_2escm",(void*)f_4842}, {"f_4557:setup_2dapi_2escm",(void*)f_4557}, {"f_5020:setup_2dapi_2escm",(void*)f_5020}, {"f_4554:setup_2dapi_2escm",(void*)f_4554}, {"f_4551:setup_2dapi_2escm",(void*)f_4551}, {"f_4830:setup_2dapi_2escm",(void*)f_4830}, {"f_4836:setup_2dapi_2escm",(void*)f_4836}, {"f_4126:setup_2dapi_2escm",(void*)f_4126}, {"f_4120:setup_2dapi_2escm",(void*)f_4120}, {"f_4545:setup_2dapi_2escm",(void*)f_4545}, {"f_4537:setup_2dapi_2escm",(void*)f_4537}, {"f_4825:setup_2dapi_2escm",(void*)f_4825}, {"f_4988:setup_2dapi_2escm",(void*)f_4988}, {"f_4239:setup_2dapi_2escm",(void*)f_4239}, {"f_4236:setup_2dapi_2escm",(void*)f_4236}, {"f_4233:setup_2dapi_2escm",(void*)f_4233}, {"f_4230:setup_2dapi_2escm",(void*)f_4230}, {"f_4982:setup_2dapi_2escm",(void*)f_4982}, {"f_4535:setup_2dapi_2escm",(void*)f_4535}, {"f_3272:setup_2dapi_2escm",(void*)f_3272}, {"f_4531:setup_2dapi_2escm",(void*)f_4531}, {"f_2436:setup_2dapi_2escm",(void*)f_2436}, {"f_2433:setup_2dapi_2escm",(void*)f_2433}, {"f_3944:setup_2dapi_2escm",(void*)f_3944}, {"f_2430:setup_2dapi_2escm",(void*)f_2430}, {"f_4104:setup_2dapi_2escm",(void*)f_4104}, {"f_4223:setup_2dapi_2escm",(void*)f_4223}, {"f_2977:setup_2dapi_2escm",(void*)f_2977}, {"f_2974:setup_2dapi_2escm",(void*)f_2974}, {"f_2464:setup_2dapi_2escm",(void*)f_2464}, {"f_2468:setup_2dapi_2escm",(void*)f_2468}, {"f_4136:setup_2dapi_2escm",(void*)f_4136}, {"f_3254:setup_2dapi_2escm",(void*)f_3254}, {"f_2968:setup_2dapi_2escm",(void*)f_2968}, {"f_2965:setup_2dapi_2escm",(void*)f_2965}, {"f_1950:setup_2dapi_2escm",(void*)f_1950}, {"f_1954:setup_2dapi_2escm",(void*)f_1954}, {"f_1957:setup_2dapi_2escm",(void*)f_1957}, {"f_1882:setup_2dapi_2escm",(void*)f_1882}, {"f_1885:setup_2dapi_2escm",(void*)f_1885}, {"f_3249:setup_2dapi_2escm",(void*)f_3249}, {"f_1888:setup_2dapi_2escm",(void*)f_1888}, {"f_2995:setup_2dapi_2escm",(void*)f_2995}, {"f_4910:setup_2dapi_2escm",(void*)f_4910}, {"f_2488:setup_2dapi_2escm",(void*)f_2488}, {"f_3414:setup_2dapi_2escm",(void*)f_3414}, {"f_2986:setup_2dapi_2escm",(void*)f_2986}, {"f_2983:setup_2dapi_2escm",(void*)f_2983}, {"f_2980:setup_2dapi_2escm",(void*)f_2980}, {"f_2595:setup_2dapi_2escm",(void*)f_2595}, {"f_3422:setup_2dapi_2escm",(void*)f_3422}, {"f_3386:setup_2dapi_2escm",(void*)f_3386}, {"f_1891:setup_2dapi_2escm",(void*)f_1891}, {"f_1894:setup_2dapi_2escm",(void*)f_1894}, {"f_1897:setup_2dapi_2escm",(void*)f_1897}, {"f_2927:setup_2dapi_2escm",(void*)f_2927}, {"f_2921:setup_2dapi_2escm",(void*)f_2921}, {"f_2924:setup_2dapi_2escm",(void*)f_2924}, {"f_2294:setup_2dapi_2escm",(void*)f_2294}, {"f_2291:setup_2dapi_2escm",(void*)f_2291}, {"f_2297:setup_2dapi_2escm",(void*)f_2297}, {"f_3619:setup_2dapi_2escm",(void*)f_3619}, {"f_2957:setup_2dapi_2escm",(void*)f_2957}, {"f_2442:setup_2dapi_2escm",(void*)f_2442}, {"f_4909:setup_2dapi_2escm",(void*)f_4909}, {"f_4905:setup_2dapi_2escm",(void*)f_4905}, {"f_2946:setup_2dapi_2escm",(void*)f_2946}, {"f_2948:setup_2dapi_2escm",(void*)f_2948}, {"f_2942:setup_2dapi_2escm",(void*)f_2942}, {"f_3835:setup_2dapi_2escm",(void*)f_3835}, {"f_3833:setup_2dapi_2escm",(void*)f_3833}, {"f_3826:setup_2dapi_2escm",(void*)f_3826}, {"f_2570:setup_2dapi_2escm",(void*)f_2570}, {"f_2561:setup_2dapi_2escm",(void*)f_2561}, {"f_3109:setup_2dapi_2escm",(void*)f_3109}, {"f_4111:setup_2dapi_2escm",(void*)f_4111}, {"f_4114:setup_2dapi_2escm",(void*)f_4114}, {"f_3102:setup_2dapi_2escm",(void*)f_3102}, {"f_3889:setup_2dapi_2escm",(void*)f_3889}, {"f_3885:setup_2dapi_2escm",(void*)f_3885}, {"f_3860:setup_2dapi_2escm",(void*)f_3860}, {"f_3871:setup_2dapi_2escm",(void*)f_3871}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding nonexported module bindings: setup-api#constant26 o|hiding nonexported module bindings: setup-api#*cc* o|hiding nonexported module bindings: setup-api#*cxx* o|hiding nonexported module bindings: setup-api#*target-cflags* o|hiding nonexported module bindings: setup-api#*target-libs* o|hiding nonexported module bindings: setup-api#*target-lib-home* o|hiding nonexported module bindings: setup-api#*sudo* o|hiding nonexported module bindings: setup-api#*windows-shell* o|hiding nonexported module bindings: setup-api#*registered-programs* o|hiding nonexported module bindings: setup-api#*windows* o|hiding nonexported module bindings: setup-api#*chicken-bin-path* o|hiding nonexported module bindings: setup-api#*csc-options* o|hiding nonexported module bindings: setup-api#*base-directory* o|hiding nonexported module bindings: setup-api#*copy-command* o|hiding nonexported module bindings: setup-api#*remove-command* o|hiding nonexported module bindings: setup-api#*move-command* o|hiding nonexported module bindings: setup-api#*chmod-command* o|hiding nonexported module bindings: setup-api#*ranlib-command* o|hiding nonexported module bindings: setup-api#*mkdir-command* o|hiding nonexported module bindings: setup-api#windows-user-install-setup o|hiding nonexported module bindings: setup-api#unix-user-install-setup o|hiding nonexported module bindings: setup-api#windows-sudo-install-setup o|hiding nonexported module bindings: setup-api#unix-sudo-install-setup o|hiding nonexported module bindings: setup-api#user-install-setup o|hiding nonexported module bindings: setup-api#sudo-install-setup o|hiding nonexported module bindings: setup-api#ignore-errors o|hiding nonexported module bindings: setup-api#target-prefix o|hiding nonexported module bindings: setup-api#fixpath o|hiding nonexported module bindings: setup-api#make-setup-info-pathname o|hiding nonexported module bindings: setup-api#write-info o|hiding nonexported module bindings: setup-api#path-prefix? o|hiding nonexported module bindings: setup-api#make-dest-pathname o|hiding nonexported module bindings: setup-api#check-filelist o|hiding nonexported module bindings: setup-api#translate-extension o|hiding nonexported module bindings: setup-api#what-version o|hiding nonexported module bindings: setup-api#supply-version o|hiding nonexported module bindings: setup-api#repo-path o|hiding nonexported module bindings: setup-api#ensure-directory o|hiding nonexported module bindings: setup-api#$system S|applied compiler syntax: S| for-each 4 S| map 10 S| printf 4 S| sprintf 14 o|eliminated procedure checks: 138 o|specializations: o| 1 (current-exception-handler procedure) o| 1 (current-error-port) o| 1 (string=? string string) o| 1 (= fixnum fixnum) o| 1 (length list) o| 3 (zero? fixnum) o| 3 (##sys#check-list (or pair list) *) o| 14 (car pair) o| 6 (cdr pair) o| 2 (string-append string string) o| 18 (##sys#check-output-port * * *) (o e)|safe calls: 450 (o e)|assignments to immediate values: 2 o|safe globals: (setup-api#constant26) o|Removed `not' forms: 4 o|inlining procedure: k2013 o|inlining procedure: k2013 o|inlining procedure: k2032 o|inlining procedure: k2032 o|inlining procedure: k2188 o|contracted procedure: "(setup-api.scm:169) setup-api#windows-user-install-setup" o|inlining procedure: k2188 o|contracted procedure: "(setup-api.scm:170) setup-api#unix-user-install-setup" o|inlining procedure: k2213 o|propagated global variable: r22145305 setup-api#*sudo* o|inlining procedure: k2213 o|contracted procedure: "(setup-api.scm:180) setup-api#sudo-install-setup" o|inlining procedure: k2201 o|contracted procedure: "(setup-api.scm:175) setup-api#windows-sudo-install-setup" o|inlining procedure: k2201 o|contracted procedure: "(setup-api.scm:176) setup-api#unix-sudo-install-setup" o|substituted constant variable: a2086 o|substituted constant variable: a2087 o|substituted constant variable: a2102 o|substituted constant variable: a2103 o|substituted constant variable: a2118 o|substituted constant variable: a2119 o|substituted constant variable: a2134 o|substituted constant variable: a2135 o|substituted constant variable: a2150 o|substituted constant variable: a2151 o|substituted constant variable: a2166 o|substituted constant variable: a2167 o|inlining procedure: k2181 o|inlining procedure: k2181 o|inlining procedure: k2241 o|inlining procedure: k2276 o|inlining procedure: k2276 o|inlining procedure: k2241 o|substituted constant variable: a2306 o|substituted constant variable: a2307 o|propagated global variable: out256260 ##sys#standard-output o|substituted constant variable: a2342 o|substituted constant variable: a2343 o|propagated global variable: out256260 ##sys#standard-output o|inlining procedure: k2396 o|inlining procedure: k2396 o|contracted procedure: "(setup-api.scm:266) setup-api#fixpath" o|inlining procedure: k2452 o|substituted constant variable: setup-api#*csc-options* o|inlining procedure: k2538 o|contracted procedure: "(setup-api.scm:254) g369378" o|substituted constant variable: a2521 o|inlining procedure: k2538 o|inlining procedure: k2572 o|contracted procedure: "(setup-api.scm:251) g342351" o|substituted constant variable: a2498 o|inlining procedure: k2572 o|inlining procedure: k2615 o|inlining procedure: k2615 o|inlining procedure: k2452 o|inlining procedure: k2685 o|inlining procedure: k2685 o|inlining procedure: k2760 o|contracted procedure: "(setup-api.scm:263) g394430" o|propagated global variable: out433437 ##sys#standard-output o|substituted constant variable: a2728 o|substituted constant variable: a2729 o|inlining procedure: k2718 o|propagated global variable: out433437 ##sys#standard-output o|inlining procedure: k2718 o|inlining procedure: k2760 o|inlining procedure: k2783 o|inlining procedure: k2783 o|inlining procedure: k2849 o|inlining procedure: k2849 o|propagated global variable: out575579 ##sys#standard-output o|substituted constant variable: a2866 o|substituted constant variable: a2867 o|inlining procedure: k2859 o|propagated global variable: out575579 ##sys#standard-output o|inlining procedure: k2859 o|inlining procedure: k2904 o|inlining procedure: k2904 o|propagated global variable: g623624 pp o|propagated global variable: g635636 pp o|consed rest parameter at call site: "(setup-api.scm:318) setup-api#ensure-directory" 2 o|contracted procedure: "(setup-api.scm:317) setup-api#make-setup-info-pathname" o|consed rest parameter at call site: "(setup-api.scm:317) setup-api#repo-path" 1 o|propagated global variable: out603607 ##sys#standard-output o|substituted constant variable: a2970 o|substituted constant variable: a2971 o|propagated global variable: out603607 ##sys#standard-output o|inlining procedure: k3024 o|inlining procedure: k3052 o|inlining procedure: k3052 o|inlining procedure: k3024 o|consed rest parameter at call site: "(setup-api.scm:342) setup-api#ensure-directory" 2 o|contracted procedure: k3094 o|inlining procedure: k3097 o|inlining procedure: k3097 o|contracted procedure: "(setup-api.scm:330) setup-api#path-prefix?" o|consed rest parameter at call site: "(setup-api.scm:356) setup-api#ensure-directory" 2 o|inlining procedure: k3231 o|inlining procedure: k3231 o|inlining procedure: k3307 o|contracted procedure: "(setup-api.scm:369) g737746" o|inlining procedure: k3261 o|inlining procedure: k3261 o|inlining procedure: k3276 o|inlining procedure: k3276 o|inlining procedure: k3307 o|removed unused formal parameters: (a801) o|inlining procedure: k3419 o|removed unused parameter to known procedure: a801 "(setup-api.scm:392) g799800" o|inlining procedure: k3419 o|contracted procedure: "(setup-api.scm:399) setup-api#what-version" o|inlining procedure: k3381 o|inlining procedure: k3381 o|inlining procedure: k3396 o|inlining procedure: k3396 o|inlining procedure: k3513 o|inlining procedure: k3513 o|inlining procedure: k3597 o|inlining procedure: k3597 o|contracted procedure: k3606 o|contracted procedure: "(setup-api.scm:447) setup-api#target-prefix" o|inlining procedure: k2443 o|inlining procedure: k2443 o|inlining procedure: k3624 o|inlining procedure: k3624 o|inlining procedure: k3648 o|inlining procedure: k3648 o|inlining procedure: k3559 o|inlining procedure: k3704 o|inlining procedure: k3704 o|consed rest parameter at call site: "(setup-api.scm:432) setup-api#repo-path" 1 o|consed rest parameter at call site: "(setup-api.scm:431) setup-api#repo-path" 1 o|inlining procedure: k3736 o|inlining procedure: k3736 o|inlining procedure: k3559 o|contracted procedure: "(setup-api.scm:455) setup-api#translate-extension" o|contracted procedure: k3354 o|inlining procedure: k3351 o|inlining procedure: k3363 o|inlining procedure: k3363 o|inlining procedure: k3351 o|inlining procedure: k3799 o|inlining procedure: k3799 o|inlining procedure: k3767 o|inlining procedure: k3837 o|inlining procedure: k3837 o|inlining procedure: k3873 o|inlining procedure: k3873 o|inlining procedure: k3910 o|inlining procedure: k3910 o|consed rest parameter at call site: "(setup-api.scm:461) setup-api#ensure-directory" 2 o|inlining procedure: k3946 o|inlining procedure: k3946 o|inlining procedure: k3767 o|inlining procedure: k3996 o|inlining procedure: k3996 o|inlining procedure: k3967 o|inlining procedure: k4052 o|inlining procedure: k4052 o|consed rest parameter at call site: "(setup-api.scm:483) setup-api#ensure-directory" 2 o|inlining procedure: k4088 o|inlining procedure: k4088 o|inlining procedure: k3967 o|merged explicitly consed rest parameter: tmp10761077 o|consed rest parameter at call site: "(setup-api.scm:510) setup-api#ensure-directory" 2 o|inlining procedure: k4115 o|inlining procedure: k4115 o|substituted constant variable: a4138 o|substituted constant variable: a4139 o|merged explicitly consed rest parameter: tmp11021104 o|inlining procedure: k4174 o|inlining procedure: k4183 o|inlining procedure: k4183 o|inlining procedure: k4195 o|inlining procedure: k4195 o|inlining procedure: k4174 o|substituted constant variable: a4306 o|substituted constant variable: a4307 o|substituted constant variable: a4368 o|substituted constant variable: a4369 o|inlining procedure: k4402 o|inlining procedure: k4402 o|inlining procedure: k4413 o|inlining procedure: k4413 o|inlining procedure: k4470 o|propagated global variable: r44715443 setup-api#*cxx* o|inlining procedure: k4470 o|propagated global variable: r44715444 setup-api#*cc* o|substituted constant variable: a4485 o|substituted constant variable: a4486 o|substituted constant variable: a4547 o|substituted constant variable: a4548 o|inlining procedure: k4587 o|contracted procedure: "(setup-api.scm:560) g12501259" o|inlining procedure: k4575 o|inlining procedure: k4575 o|inlining procedure: k4587 o|inlining procedure: k4636 o|inlining procedure: k4636 o|inlining procedure: k4651 o|inlining procedure: k4666 o|inlining procedure: k4666 o|inlining procedure: k4651 o|inlining procedure: k4703 o|inlining procedure: k4703 o|inlining procedure: k4758 o|inlining procedure: k4758 o|contracted procedure: k4811 o|inlining procedure: k4808 o|substituted constant variable: a4867 o|substituted constant variable: a4868 o|inlining procedure: k4912 o|inlining procedure: k4912 o|substituted constant variable: a4936 o|inlining procedure: k4947 o|inlining procedure: k4947 o|inlining procedure: k4808 o|inlining procedure: k4998 o|inlining procedure: k4998 o|inlining procedure: k5022 o|inlining procedure: k5022 o|inlining procedure: k5064 o|inlining procedure: k5064 o|substituted constant variable: a5078 o|substituted constant variable: a5079 o|inlining procedure: k5111 o|inlining procedure: k5111 o|inlining procedure: k5154 o|inlining procedure: k5154 o|inlining procedure: k5177 o|inlining procedure: k5177 o|substituted constant variable: a5212 o|propagated global variable: g213214 exit o|replaced variables: 512 o|removed binding forms: 297 o|removed side-effect free assignment to unused variable: setup-api#*csc-options* o|substituted constant variable: r21825311 o|substituted constant variable: r21825311 o|propagated global variable: out256260 ##sys#standard-output o|inlining procedure: k2615 o|propagated global variable: out433437 ##sys#standard-output o|converted assignments to bindings: (smooth401) o|propagated global variable: out575579 ##sys#standard-output o|propagated global variable: out603607 ##sys#standard-output o|substituted constant variable: r33975368 o|substituted constant variable: r35145371 o|substituted constant variable: r35145371 o|removed call to pure procedure with unused result: "(setup-api.scm:408) get-keyword" o|substituted constant variable: r24445376 o|substituted constant variable: r36495380 o|inlining procedure: k3351 o|propagated global variable: r33525517 ##sys#load-dynamic-extension o|propagated global variable: r33525517 ##sys#load-dynamic-extension o|inlining procedure: k3351 o|inlining procedure: k3351 o|inlining procedure: k3351 o|converted assignments to bindings: (exify939) o|inlining procedure: k4174 o|inlining procedure: k4174 o|substituted constant variable: r44035433 o|substituted constant variable: r44035433 o|substituted constant variable: r44035435 o|substituted constant variable: r44035435 o|converted assignments to bindings: (version->list1240) o|substituted constant variable: r51555481 o|substituted constant variable: r51785483 o|converted assignments to bindings: (verb573) o|converted assignments to bindings: (reg304) o|simplifications: ((let . 5)) o|replaced variables: 23 o|removed binding forms: 562 o|Removed `not' forms: 1 o|substituted constant variable: r26165493 o|inlining procedure: k3273 o|inlining procedure: k3390 o|inlining procedure: k3390 o|contracted procedure: k3465 o|inlining procedure: k5183 o|replaced variables: 8 o|removed binding forms: 49 o|removed conditional forms: 1 o|Removed `not' forms: 1 o|substituted constant variable: r32745575 o|substituted constant variable: r32745575 o|substituted constant variable: r32745575 o|substituted constant variable: r33915579 o|substituted constant variable: r33915580 o|substituted constant variable: r33525519 o|substituted constant variable: r33525521 o|replaced variables: 2 o|removed binding forms: 13 o|removed conditional forms: 3 o|removed binding forms: 7 o|simplifications: ((if . 30) (##core#call . 264)) o| call simplifications: o| not 2 o| number? 3 o| > o| = o| string->number o| ##sys#get-keyword o| ##sys#call-with-values 3 o| ##sys#apply 3 o| ##sys#fudge o| eq? 7 o| assq 3 o| equal? 6 o| string? o| ##sys#cons 5 o| ##sys#list 17 o| string=? 3 o| ##sys#check-list 11 o| pair? 23 o| ##sys#setslot 10 o| ##sys#slot 38 o| cons 22 o| assoc o| cdr 5 o| alist-cons o| list? 8 o| list 22 o| cadr 10 o| eof-object? o| null? 26 o| car 26 o| apply 2 o|contracted procedure: k2020 o|contracted procedure: k2010 o|contracted procedure: k2039 o|contracted procedure: k2029 o|contracted procedure: k2216 o|contracted procedure: k2222 o|contracted procedure: k2244 o|contracted procedure: k2251 o|contracted procedure: k2261 o|contracted procedure: k2279 o|contracted procedure: k2335 o|contracted procedure: k2367 o|contracted procedure: k2374 o|contracted procedure: k2393 o|contracted procedure: k2403 o|contracted procedure: k2656 o|contracted procedure: k2659 o|contracted procedure: k2669 o|contracted procedure: k2679 o|contracted procedure: k2455 o|contracted procedure: k2474 o|contracted procedure: k2478 o|contracted procedure: k2482 o|contracted procedure: k2490 o|contracted procedure: k2506 o|contracted procedure: k2513 o|contracted procedure: k2529 o|contracted procedure: k2541 o|contracted procedure: k2544 o|contracted procedure: k2547 o|contracted procedure: k2555 o|contracted procedure: k2563 o|contracted procedure: k2575 o|contracted procedure: k2578 o|contracted procedure: k2581 o|contracted procedure: k2589 o|contracted procedure: k2597 o|contracted procedure: k2634 o|contracted procedure: k2688 o|contracted procedure: k2691 o|contracted procedure: k2694 o|contracted procedure: k2702 o|contracted procedure: k2710 o|contracted procedure: k2742 o|contracted procedure: k2745 o|contracted procedure: k2751 o|contracted procedure: k2763 o|contracted procedure: k2773 o|contracted procedure: k2777 o|contracted procedure: k2786 o|contracted procedure: k2789 o|contracted procedure: k2792 o|contracted procedure: k2800 o|contracted procedure: k2808 o|contracted procedure: k2880 o|contracted procedure: k5239 o|contracted procedure: k5235 o|contracted procedure: k2991 o|contracted procedure: k2886 o|contracted procedure: k2915 o|contracted procedure: k2911 o|contracted procedure: k2936 o|contracted procedure: k2932 o|contracted procedure: k2823 o|inlining procedure: k2817 o|contracted procedure: k3145 o|contracted procedure: k2997 o|contracted procedure: k3139 o|contracted procedure: k3000 o|contracted procedure: k3124 o|contracted procedure: k3006 o|contracted procedure: k3055 o|contracted procedure: k3065 o|contracted procedure: k3069 o|contracted procedure: k3083 o|contracted procedure: k3079 o|contracted procedure: k3110 o|contracted procedure: k3117 o|contracted procedure: k3120 o|contracted procedure: k3130 o|contracted procedure: k3185 o|contracted procedure: k3181 o|contracted procedure: k3196 o|contracted procedure: k3203 o|contracted procedure: k3206 o|contracted procedure: k3221 o|contracted procedure: k3217 o|contracted procedure: k3234 o|contracted procedure: k3241 o|contracted procedure: k3256 o|contracted procedure: k3298 o|contracted procedure: k3310 o|contracted procedure: k3313 o|contracted procedure: k3316 o|contracted procedure: k3324 o|contracted procedure: k3332 o|contracted procedure: k3264 o|contracted procedure: k3282 o|contracted procedure: k3273 o|contracted procedure: k3292 o|contracted procedure: k3416 o|contracted procedure: k3428 o|contracted procedure: k3445 o|contracted procedure: k3449 o|contracted procedure: k3399 o|contracted procedure: k3410 o|contracted procedure: k3390 o|contracted procedure: k3547 o|contracted procedure: k3459 o|contracted procedure: k3541 o|contracted procedure: k3462 o|contracted procedure: k3493 o|contracted procedure: k3513 o|contracted procedure: k3527 o|contracted procedure: k3523 o|contracted procedure: k3535 o|contracted procedure: k3531 o|contracted procedure: k3745 o|contracted procedure: k3556 o|contracted procedure: k3574 o|contracted procedure: k3591 o|contracted procedure: k3613 o|contracted procedure: k3638 o|contracted procedure: k3634 o|contracted procedure: k3645 o|contracted procedure: k3662 o|contracted procedure: k3651 o|contracted procedure: k3677 o|contracted procedure: k3673 o|contracted procedure: k3684 o|contracted procedure: k3688 o|contracted procedure: k3707 o|contracted procedure: k3710 o|contracted procedure: k3713 o|contracted procedure: k3721 o|contracted procedure: k3729 o|contracted procedure: k3739 o|contracted procedure: k3736 o|contracted procedure: k3955 o|contracted procedure: k3754 o|contracted procedure: k3764 o|contracted procedure: k3372 o|contracted procedure: k3341 o|contracted procedure: k3360 o|contracted procedure: k3366 o|contracted procedure: k3785 o|contracted procedure: k3810 o|contracted procedure: k3806 o|contracted procedure: k3817 o|contracted procedure: k3821 o|contracted procedure: k3840 o|contracted procedure: k3843 o|contracted procedure: k3846 o|contracted procedure: k3854 o|contracted procedure: k3862 o|contracted procedure: k3868 o|contracted procedure: k3876 o|contracted procedure: k3891 o|contracted procedure: k3895 o|contracted procedure: k3901 o|contracted procedure: k3913 o|contracted procedure: k3916 o|contracted procedure: k3919 o|contracted procedure: k3927 o|contracted procedure: k3935 o|contracted procedure: k3949 o|contracted procedure: k3946 o|contracted procedure: k4097 o|contracted procedure: k3964 o|contracted procedure: k3982 o|contracted procedure: k4007 o|contracted procedure: k4003 o|contracted procedure: k4014 o|contracted procedure: k4018 o|contracted procedure: k4042 o|contracted procedure: k4038 o|contracted procedure: k4055 o|contracted procedure: k4058 o|contracted procedure: k4061 o|contracted procedure: k4069 o|contracted procedure: k4077 o|contracted procedure: k4091 o|contracted procedure: k4088 o|contracted procedure: k4159 o|contracted procedure: k4106 o|contracted procedure: k4150 o|contracted procedure: k4216 o|contracted procedure: k4168 o|contracted procedure: k4206 o|contracted procedure: k4202 o|contracted procedure: k4225 o|contracted procedure: k4405 o|contracted procedure: k4420 o|contracted procedure: k4436 o|contracted procedure: k4440 o|contracted procedure: k4567 o|contracted procedure: k4590 o|contracted procedure: k4593 o|contracted procedure: k4596 o|contracted procedure: k4604 o|contracted procedure: k4612 o|contracted procedure: k4572 o|contracted procedure: k4639 o|contracted procedure: k4645 o|contracted procedure: k4732 o|contracted procedure: k4654 o|contracted procedure: k4691 o|contracted procedure: k4660 o|contracted procedure: k4663 o|contracted procedure: k4672 o|contracted procedure: k4728 o|contracted procedure: k4694 o|contracted procedure: k4709 o|contracted procedure: k4774 o|contracted procedure: k4752 o|contracted procedure: k4755 o|contracted procedure: k4793 o|contracted procedure: k4971 o|contracted procedure: k4805 o|contracted procedure: k4856 o|contracted procedure: k4915 o|contracted procedure: k4950 o|contracted procedure: k4960 o|contracted procedure: k4964 o|contracted procedure: k4983 o|contracted procedure: k5010 o|contracted procedure: k5013 o|contracted procedure: k5025 o|contracted procedure: k5035 o|contracted procedure: k5039 o|contracted procedure: k5046 o|contracted procedure: k5067 o|contracted procedure: k5126 o|contracted procedure: k5157 o|contracted procedure: k5160 o|contracted procedure: k5169 o|contracted procedure: k5172 o|contracted procedure: k5180 o|contracted procedure: k5183 o|contracted procedure: k5206 o|contracted procedure: k5289 o|simplifications: ((let . 52)) o|removed binding forms: 240 o|replaced variables: 104 o|simplifications: ((if . 1)) o|removed binding forms: 52 o|contracted procedure: k4608 o|removed binding forms: 1 o|customizable procedures: (reg304 k5166 ensure-string1308 g14531454 g14261433 for-each-loop14251437 g13891396 for-each-loop13881403 k4918 walk1383 version->list1240 loop1272 map-loop12441265 g10361045 map-loop10301058 k3987 g953962 map-loop947965 exify939 g981990 map-loop9751003 k3790 setup-api#check-filelist g883892 map-loop877919 setup-api#write-info k3579 k3627 k3505 setup-api#supply-version g799800 map-loop731758 setup-api#make-dest-pathname k3168 k3009 g677684 for-each-loop676687 walk667 setup-api#repo-path setup-api#ensure-directory verb573 map-loop445462 for-each-loop393469 map-loop406423 k2470 map-loop336354 map-loop363381 setup-api#$system loop265 setup-api#user-install-setup) o|calls to known targets: 144 o|identified direct recursive calls: f_3229 1 o|identified direct recursive calls: f_4585 1 o|identified direct recursive calls: f_4634 1 o|fast box initializations: 18 o|fast global references: 85 o|fast global assignments: 47 o|dropping unused closure argument: f_2407 o|dropping unused closure argument: f_5056 o|dropping unused closure argument: f_4166 o|dropping unused closure argument: f_2185 o|dropping unused closure argument: f_5175 o|dropping unused closure argument: f_2884 o|dropping unused closure argument: f_2857 o|dropping unused closure argument: f_3229 o|dropping unused closure argument: f_3758 o|dropping unused closure argument: f_4565 o|dropping unused closure argument: f_4104 o|dropping unused closure argument: f_3254 o|dropping unused closure argument: f_3414 */ /* end of file */ chicken-4.12.0/posix.import.scm0000644000175000017500000001257313052306173016177 0ustar sjamaansjamaan;;;; posix.import.scm - import library for "posix" module ; ; Copyright (c) 2008-2017, 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 'posix '(_exit call-with-input-pipe call-with-output-pipe change-directory change-directory* change-file-mode change-file-owner close-input-pipe close-output-pipe create-directory create-fifo create-pipe create-session create-symbolic-link current-directory current-effective-group-id current-effective-user-id current-effective-user-name get-environment-variables current-group-id current-process-id current-user-id current-user-name delete-directory directory directory? duplicate-fileno errno/2big errno/acces errno/again errno/badf errno/busy errno/child errno/deadlk errno/dom errno/exist errno/fault errno/fbig errno/ilseq errno/intr errno/inval errno/io errno/isdir errno/mfile errno/mlink errno/nametoolong errno/nfile errno/nodev errno/noent errno/noexec errno/nolck errno/nomem errno/nospc errno/nosys errno/notdir errno/notempty errno/notty errno/nxio errno/perm errno/pipe errno/range errno/rofs errno/spipe errno/srch errno/wouldblock errno/xdev fcntl/dupfd fcntl/getfd fcntl/getfl fcntl/setfd fcntl/setfl fifo? file-access-time file-change-time file-creation-mode file-close file-control file-execute-access? file-link file-lock file-lock/blocking file-mkstemp file-modification-time file-open file-owner file-permissions file-position set-file-position! file-read file-read-access? file-select file-size file-stat file-test-lock file-truncate file-type file-unlock file-write file-write-access? fileno/stderr fileno/stdin fileno/stdout find-files get-groups get-host-name glob group-information initialize-groups local-time->seconds local-timezone-abbreviation map-file-to-memory map/anonymous map/file map/fixed map/private map/shared memory-mapped-file-pointer memory-mapped-file? open-input-file* open-input-pipe open-output-file* open-output-pipe open/append open/binary open/creat open/excl open/fsync open/noctty open/nonblock open/rdonly open/rdwr open/read open/sync open/text open/trunc open/write open/wronly parent-process-id 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 pipe/buf port->fileno process process* process-execute process-fork process-group-id process-run process-signal process-wait prot/exec prot/none prot/read prot/write read-symbolic-link regular-file? seconds->local-time seconds->string seconds->utc-time seek/cur seek/end seek/set set-alarm! set-buffering-mode! set-groups! set-root-directory! set-signal-handler! set-signal-mask! setenv signal-handler signal-mask signal-mask! signal-masked? signal-unmask! signal/abrt signal/alrm signal/break signal/chld signal/cont signal/fpe signal/bus 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 sleep block-device? character-device? fifo? socket? string->time symbolic-link? system-information terminal-name terminal-port? terminal-size time->string unmap-file-from-memory unsetenv user-information utc-time->seconds with-input-from-pipe with-output-to-pipe)) chicken-4.12.0/chicken-ffi-syntax.scm0000644000175000017500000002167513052306173017221 0ustar sjamaansjamaan;;;; chicken-ffi-syntax.scm ; ; Copyright (c) 2008-2017, 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) (disable-interrupts) (fixnum) ) #+(not debugbuild) (declare (no-bound-checks) (no-procedure-checks)) (##sys#provide 'chicken-ffi-syntax) (define ##sys#chicken-ffi-macro-environment (let ((me0 (##sys#macro-environment))) (##sys#extend-macro-environment 'define-external '() (##sys#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 ',(car head) ,(if quals (car form) "") ',(if quals (caddr form) (cadr form)) ',(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 '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'location x '(location _)) `(##core#location ,(cadr x))))) (##sys#extend-macro-environment 'define-location '() (##sys#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 '() (##sys#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) ,(fold-right (lambda (b a rest) (if (= 3 (length b)) `(##core#let-location ,(car b) ,(cadr b) ,a ,rest) `(##core#let-location ,(car b) ,(cadr b) ,rest) ) ) `(##core#let () ,@body) bindings aliases) ) ) ) ) ) ;;; Embedding code directly: (##sys#extend-macro-environment 'foreign-code '() (##sys#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 '() (##sys#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 ,(##compiler#foreign-type->scrutiny-type (##sys#strip-syntax (caddr form)) 'result) #f ,tmp) ) ) ) ) ) ;;; Include foreign code fragments (##sys#extend-macro-environment 'foreign-declare '() (##sys#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 '() (##sys#er-transformer (lambda (form r c) `(##core#define-foreign-type ,@(cdr form))))) (##sys#extend-macro-environment 'define-foreign-variable '() (##sys#er-transformer (lambda (form r c) `(##core#define-foreign-variable ,@(cdr form))))) (##sys#extend-macro-environment 'foreign-primitive '() (##sys#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 (##sys#strip-syntax (cadr form)))) (args (##sys#strip-syntax (if hasrtype (caddr form) (cadr form)))) (argtypes (map car args))) `(##core#the (procedure ,(map (cut ##compiler#foreign-type->scrutiny-type <> 'arg) argtypes) ,@(if (not rtype) '* ; special case for C_values(...) (list (##compiler#foreign-type->scrutiny-type rtype 'result)))) #f (##core#foreign-primitive ,@(cdr form))))))) (##sys#extend-macro-environment 'foreign-lambda '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'foreign-lambda form '(_ _ _ . _)) `(##core#the (procedure ,(map (cut ##compiler#foreign-type->scrutiny-type <> 'arg) (##sys#strip-syntax (cdddr form))) ,(##compiler#foreign-type->scrutiny-type (##sys#strip-syntax (cadr form)) 'result)) #f (##core#foreign-lambda ,@(cdr form)))))) (##sys#extend-macro-environment 'foreign-lambda* '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'foreign-lambda* form '(_ _ _ _ . _)) `(##core#the (procedure ,(map (lambda (a) (##compiler#foreign-type->scrutiny-type (car a) 'arg)) (##sys#strip-syntax (caddr form))) ,(##compiler#foreign-type->scrutiny-type (##sys#strip-syntax (cadr form)) 'result)) #f (##core#foreign-lambda* ,@(cdr form)))))) (##sys#extend-macro-environment 'foreign-safe-lambda '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'foreign-safe-lambda form '(_ _ _ . _)) `(##core#the (procedure ,(map (cut ##compiler#foreign-type->scrutiny-type <> 'arg) (##sys#strip-syntax (cdddr form))) ,(##compiler#foreign-type->scrutiny-type (##sys#strip-syntax (cadr form)) 'result)) #f (##core#foreign-safe-lambda ,@(cdr form)))))) (##sys#extend-macro-environment 'foreign-safe-lambda* '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'foreign-safe-lambda* form '(_ _ _ _ . _)) `(##core#the (procedure ,(map (lambda (a) (##compiler#foreign-type->scrutiny-type (car a) 'arg)) (##sys#strip-syntax (caddr form))) ,(##compiler#foreign-type->scrutiny-type (##sys#strip-syntax (cadr form)) 'result)) #f (##core#foreign-safe-lambda* ,@(cdr form)))))) (##sys#extend-macro-environment 'foreign-type-size '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'foreign-type-size form '(_ _)) (let* ((t (##sys#strip-syntax (cadr form))) (tmp (gensym "code_")) (decl (if (string? t) t (##compiler#foreign-type-declaration t "")))) `(##core#begin (##core#define-foreign-variable ,tmp size_t ,(string-append "sizeof(" decl ")")) (##core#the fixnum #f ,tmp)))))) (##sys#macro-subset me0))) chicken-4.12.0/Makefile.linux0000644000175000017500000000772613052302367015623 0ustar sjamaansjamaan# Makefile.linux - configuration for Linux -*- Makefile -*- # # Copyright (c) 2008-2017, 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_GRP_H 1" >>$@ echo "#define HAVE_ERRNO_H 1" >>$@ echo "#define HAVE_SYSEXITS_H 1" >>$@ echo "#define HAVE_MEMMOVE 1" >>$@ echo "#define C_STACK_GROWS_DOWNWARD 1" >>$@ ifdef GCHOOKS echo "#define C_GC_HOOKS" >>$@ endif ifdef SYMBOLGC echo "#define C_COLLECT_ALL_SYMBOLS" >>$@ endif echo "#define C_USE_STD_FEATURE_MACROS" >>$@ cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make chicken-4.12.0/csi.10000644000175000017500000000241613052302315013645 0ustar sjamaansjamaan-.\" dummy line .TH CSI 1 "20 May 2008" .SH NAME The .I CHICKEN Scheme interpreter .SH SYNOPSIS .B csi [ .I pathname | .I option ... ] .SH DESCRIPTION .I csi is an interpreter for the programming language .I Scheme supporting most of the features as described in the .I Revised^5 Report on .I the Algorithmic Language Scheme \. .I csi is implemented as a program compiled with the .B chicken compiler. .SH OPTIONS Enter .B csi \-help for a list of supported command-line options. .SH ENVIRONMENT\ VARIABLES .TP .B CHICKEN_INCLUDE_PATH Contains one or more pathnames where the interpreter should also look for include-files, separated by .B \; characters. .TP .B CHICKEN_PREFIX Is used as a prefix directory for support files, include-files and libraries. .TP .B CSI_OPTIONS When set to a string of command-line options, then the options are passed implicitly to every direct or indirect invocation of .I csi .br Note that runtime options of the form .B \-\:\.\.\. can not be passed using this method. .SH DOCUMENTATION More information can be found in the .I CHICKEN\ User's\ Manual .SH BUGS Submit bug reports by e-mail to .I chicken-janitors@nongnu.org , preferrably using the .B chicken\-bug tool. .SH AUTHOR The CHICKEN Team .SH SEE ALSO .BR chicken(1) .BR chicken-bug(1) chicken-4.12.0/srfi-4.import.scm0000644000175000017500000000743613052306173016143 0ustar sjamaansjamaan;;;; srfi-4.import.scm - import library for "srfi-4" module ; ; Copyright (c) 2008-2017, 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 'srfi-4 '(blob->f32vector blob->f32vector/shared blob->f64vector blob->f64vector/shared blob->s16vector blob->s16vector/shared blob->s32vector blob->s32vector/shared blob->s8vector blob->s8vector/shared blob->u16vector blob->u16vector/shared blob->u32vector blob->u32vector/shared blob->u8vector blob->u8vector/shared f32vector f32vector->blob f32vector->blob/shared f32vector->byte-vector f32vector->list f32vector-length f32vector-ref f32vector-set! f32vector? f64vector f64vector->blob f64vector->blob/shared f64vector->byte-vector f64vector->list f64vector-length f64vector-ref f64vector-set! f64vector? list->f32vector list->f64vector list->s16vector list->s32vector list->s8vector list->u16vector list->u32vector list->u8vector make-f32vector make-f64vector make-s16vector make-s32vector make-s8vector make-u16vector make-u32vector make-u8vector read-u8vector read-u8vector! release-number-vector s16vector s16vector->blob s16vector->blob/shared s16vector->byte-vector s16vector->list s16vector-length s16vector-ref s16vector-set! s16vector? s32vector s32vector->blob s32vector->blob/shared s32vector->byte-vector s32vector->list s32vector-length s32vector-ref s32vector-set! s32vector? s8vector s8vector->blob s8vector->blob/shared s8vector->byte-vector s8vector->list s8vector-length s8vector-ref s8vector-set! s8vector? subf32vector subf64vector subs16vector subs32vector subs8vector subu16vector subu32vector subu8vector u16vector u16vector->blob u16vector->blob/shared u16vector->byte-vector u16vector->list u16vector-length u16vector-ref u16vector-set! u16vector? u32vector u32vector->blob u32vector->blob/shared u32vector->byte-vector u32vector->list u32vector-length u32vector-ref u32vector-set! u32vector? u8vector u8vector->blob u8vector->blob/shared u8vector->byte-vector u8vector->list u8vector-length u8vector-ref u8vector-set! u8vector? write-u8vector number-vector?)) chicken-4.12.0/compiler.scm0000644000175000017500000030722613052306173015340 0ustar sjamaansjamaan;;;; compiler.scm - The CHICKEN Scheme compiler ; ; ; "This is insane. What we clearly want to do is not exactly clear, and is rooted in NCOMPLR." ; ; ;-------------------------------------------------------------------------------------------- ; Copyright (c) 2008-2017, 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] interrupts-enabled) ; ([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#begin ...) ; (##core#toplevel-begin ...) ; (##core#include ) ; (##core#loop-lambda ) ; (##core#undefined) ; (##core#primitive ) ; (##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-extension ( ...) ) ; (##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 {}] ; [if {} )] ; [quote {}] ; [let {} ] ; [##core#lambda { (... [. ]) } ] ; [set! { [always-immediate?]} ] ; [##core#undefined {}] ; [##core#primitive {}] ; [##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#recurse {} ...] ; [##core#return ] ; [##core#direct_call { } ...] ; [##core#direct_lambda { (... [. ]) } ] ; [##core#the { } ] ; [##core#the/result {} ] ; [##core#typecase { ( ...)} ... []] ; - Closure converted/prepared language: ; ; [if {} ] ; [quote {}] ; [##core#bind {} ... ] ; [##core#let_unboxed { } ] ; [##core#undefined {}] ; [##core#unboxed_ref { []}] ; [##core#unboxed_set! { } ] ; [##core#inline {} ...] ; [##core#inline_allocate {} ...] ; [##core#inline_ref { }] ; [##core#inline_update { } ] ; [##core#inline_loc_ref {} ] ; [##core#inline_loc_update {} ] ; [##core#inline_unboxed {} ...] ; [##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#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-value -> 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)) (include "compiler-namespace") (define (d arg1 . more) (when (##sys#fudge 13) ; debug mode? (if (null? more) (pp arg1) (apply print arg1 more)))) (define-syntax d (syntax-rules () ((_ . _) (void)))) (include "tweaks") (define-inline (gensym-f-id) (gensym 'f_)) (define-foreign-variable installation-home c-string "C_INSTALL_SHARE_HOME") (define-foreign-variable default-target-heap-size int "C_DEFAULT_TARGET_HEAP_SIZE") (define-constant foreign-type-table-size 301) (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 real-name-table-size 997) (define-constant default-inline-max-size 20) ;;; Global variables containing compilation parameters: (define unit-name #f) (define number-type 'generic) (define standard-bindings '()) (define extended-bindings '()) (define insert-timer-checks #t) (define used-units '()) (define unsafe #f) (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 source-filename #f) (define safe-globals-flag #f) (define explicit-use-flag #f) (define disable-stack-overflow-checking #f) (define require-imports-flag #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 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) ;;; 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 inline-table-used #f) (define constant-table #f) (define constants-used #f) (define broken-constant-nodes '()) (define inline-substitutions-enabled #f) (define direct-call-ids '()) (define first-analysis #t) (define foreign-type-table #f) (define foreign-variables '()) (define foreign-lambda-stubs '()) (define foreign-callback-stubs '()) (define external-variables '()) (define profile-lambda-list '()) (define profile-lambda-index 0) (define profile-info-vector-name #f) (define external-to-pointer '()) (define real-name-table #f) (define location-pointer-map '()) (define pending-canonicalizations '()) (define defconstant-bindings '()) (define callback-names '()) (define toplevel-scope #t) (define toplevel-lambda-id #f) (define csc-control-file #f) (define data-declarations '()) (define file-requirements #f) (define postponed-initforms '()) ;;; 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 '())) ) (set! profile-info-vector-name (make-random-name 'profile-info)) (set! real-name-table (make-vector real-name-table-size '())) (if file-requirements (vector-fill! file-requirements '()) (set! file-requirements (make-vector file-requirements-size '())) ) (if foreign-type-table (vector-fill! foreign-type-table '()) (set! foreign-type-table (make-vector foreign-type-table-size '())) ) ) ;;; Expand macros and canonicalize expressions: (define (canonicalize-expression exp) (let ((compiler-syntax '())) (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 se) (cond ((find-id id se)) ((##sys#get id '##core#macro-alias)) (else id))) (define (macro-alias var se) (let ((alias (gensym var))) (##sys#put! alias '##core#macro-alias (lookup var se)) alias) ) (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 se) (if (and (list? x) (= 2 (length x)) (symbol? (car x)) (eq? 'quote (lookup (car x) se))) (cadr x) x) ) (define (resolve-variable x0 e se dest ldest h) (let ((x (lookup x0 se))) (d `(RESOLVE-VARIABLE: ,x0 ,x ,(map (lambda (x) (car x)) se))) (cond ((not (symbol? x)) x0) ; syntax? [(and constants-used (##sys#hash-table-ref constant-table x)) => (lambda (val) (walk (car val) e se dest ldest h #f)) ] [(and inline-table-used (##sys#hash-table-ref inline-table x)) => (lambda (val) (walk val e se dest ldest h #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 se dest ldest h #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 se dest ldest h #f))) ] ((##sys#get x '##core#primitive)) ((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) (read-file fname) ) ) ) (cond ((equal? imps oldimps) (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 se dest ldest h outer-ln) (cond ((symbol? x) (cond ((keyword? x) `(quote ,x)) ((memq x unlikely-variables) (warning (sprintf "reference to variable `~s' possibly unintended" x) ))) (resolve-variable x e se 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 (proper-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* ((name0 (lookup (car x) se)) (name (or (and (symbol? name0) (##sys#get name0 '##core#primitive)) name0)) (xexpanded (##sys#expand x se compiler-syntax-enabled))) (when ln (update-line-number-database! xexpanded ln)) (cond ((not (eq? x xexpanded)) (walk xexpanded e se dest ldest h ln)) [(and inline-table-used (##sys#hash-table-ref inline-table name)) => (lambda (val) (walk (cons val (cdr x)) e se dest ldest h ln)) ] [else (case name ((##core#if) `(if ,(walk (cadr x) e se #f #f h ln) ,(walk (caddr x) e se #f #f h ln) ,(if (null? (cdddr x)) '(##core#undefined) (walk (cadddr x) e se #f #f h ln) ) ) ) ((##core#syntax ##core#quote) `(quote ,(##sys#strip-syntax (cadr x)))) ((##core#check) (if unsafe ''#t (walk (cadr x) e se dest ldest h ln) ) ) ((##core#the) `(##core#the ,(##sys#strip-syntax (cadr x)) ,(caddr x) ,(walk (cadddr x) e se dest ldest h ln))) ((##core#typecase) `(##core#typecase ,(or ln (cadr x)) ,(walk (caddr x) e se #f #f h ln) ,@(map (lambda (cl) (list (##sys#strip-syntax (car cl)) (walk (cadr cl) e se dest ldest h ln))) (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#undefined ##core#callunit ##core#primitive) x) ((##core#inline_ref) `(##core#inline_ref (,(caadr x) ,(##sys#strip-syntax (cadadr x))))) ((##core#inline_loc_ref) `(##core#inline_loc_ref ,(##sys#strip-syntax (cadr x)) ,(walk (caddr x) e se dest ldest h ln))) ((##core#require-for-syntax) (let ([ids (map eval (cdr x))]) (apply ##sys#require ids) (##sys#hash-table-update! file-requirements 'dynamic/syntax (cut lset-union eq? <> ids) (lambda () ids) ) '(##core#undefined) ) ) ((##core#require-extension) (let ((imp? (caddr x))) (walk (let loop ([ids (##sys#strip-syntax (cadr x))]) (if (null? ids) '(##core#undefined) (let ((id (car ids))) (let-values (((exp f realid) (##sys#do-the-right-thing id #t imp?))) (unless (or f (and (symbol? id) (or (feature? id) (##sys#find-extension (##sys#canonicalize-extension-path id 'require-extension) #f)) ) ) (warning (sprintf "extension `~A' is currently not installed" realid))) `(##core#begin ,exp ,(loop (cdr ids))) ) ) ) ) e se dest ldest h ln) ) ) ((##core#let) (let* ((bindings (cadr x)) (vars (unzip1 bindings)) (aliases (map gensym vars)) (se2 (##sys#extend-se se vars aliases))) (set-real-names! aliases vars) `(let ,(map (lambda (alias b) (list alias (walk (cadr b) e se (car b) #t h ln)) ) aliases bindings) ,(walk (##sys#canonicalize-body (cddr x) se2 compiler-syntax-enabled) (append aliases e) se2 dest ldest h ln) ) ) ) ((##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 se dest ldest h ln))) ((##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 se dest ldest h ln))) ((##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 se) ) ) (decompose-lambda-list llist (lambda (vars argc rest) (let* ((aliases (map gensym vars)) (se2 (##sys#extend-se se vars aliases)) (body0 (##sys#canonicalize-body obody se2 compiler-syntax-enabled)) (body (walk (if emit-debug-info `(##core#begin (##core#debug-event "C_DEBUG_ENTRY" ',dest) ,body0) body0) (append aliases e) se2 #f #f dest ln)) (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 se)) ; 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) (let ((se2 (append (map (lambda (b) (list (car b) se (##sys#ensure-transformer (##sys#eval/meta (cadr b)) (##sys#strip-syntax (car b))))) (cadr x) ) se) ) ) (walk (##sys#canonicalize-body (cddr x) se2 compiler-syntax-enabled) e se2 dest ldest h ln) ) ) ((##core#letrec-syntax) (let* ((ms (map (lambda (b) (list (car b) #f (##sys#ensure-transformer (##sys#eval/meta (cadr b)) (##sys#strip-syntax (car b))))) (cadr x) ) ) (se2 (append ms se)) ) (for-each (lambda (sb) (set-car! (cdr sb) se2) ) ms) (walk (##sys#canonicalize-body (cddr x) se2 compiler-syntax-enabled) e se2 dest ldest h ln))) ((##core#define-syntax) (##sys#check-syntax (car x) x (if (pair? (cadr x)) '(_ (variable . lambda-list) . #(_ 1)) '(_ variable _) ) #f se) (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 se))) (##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 ',var (##sys#current-environment) ,body) ;XXX possibly wrong se? '(##core#undefined) ) e se dest ldest h ln)) ) ((##core#define-compiler-syntax) (let* ((var (cadr x)) (body (caddr x)) (name (lookup var se))) (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) (##sys#strip-syntax 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 ',var) (##sys#current-environment)))) '(##core#undefined) ) e se dest ldest h ln))) ((##core#let-compiler-syntax) (let ((bs (map (lambda (b) (##sys#check-syntax 'let-compiler-syntax b '(symbol . #(_ 0 1))) (let ((name (lookup (car b) se))) (list name (and (pair? (cdr b)) (cons (##sys#ensure-transformer (##sys#eval/meta (cadr b)) (##sys#strip-syntax (car b))) se)) (##sys#get name '##compiler#compiler-syntax) ) ) ) (cadr x)))) (dynamic-wind (lambda () (for-each (lambda (b) (##sys#put! (car b) '##compiler#compiler-syntax (cadr b))) bs) ) (lambda () (walk (##sys#canonicalize-body (cddr x) se compiler-syntax-enabled) e se dest ldest h ln) ) (lambda () (for-each (lambda (b) (##sys#put! (car b) '##compiler#compiler-syntax (caddr b))) bs) ) ) ) ) ((##core#include) (walk `(##core#begin ,@(fluid-let ((##sys#default-read-info-hook read-info-hook)) (##sys#include-forms-from-file (cadr x)))) e se dest ldest h ln)) ((##core#let-module-alias) (##sys#with-module-aliases (map (lambda (b) (##sys#check-syntax 'functor b '(symbol symbol)) (##sys#strip-syntax b)) (cadr x)) (lambda () (walk `(##core#begin ,@(cddr x)) e se dest ldest h ln)))) ((##core#module) (let* ((name (##sys#strip-syntax (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)))) (##sys#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 mreg) (parameterize ((##sys#current-module (##sys#register-module name 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) (when enable-module-registration (emit-import-lib name il)) ;; Remove from list to avoid error (when (pair? il) (set! import-libraries (delete il import-libraries))) (values (reverse xs) '((##core#undefined))))) ((not enable-module-registration) (values (reverse xs) '((##core#undefined)))) (else (values (reverse xs) (if standalone-executable '() (##sys#compiled-module-registration (##sys#current-module))))))) (else (loop (cdr body) (cons (walk (car body) e ;? (##sys#current-environment) #f #f h ln) xs)))))))))) (let ((body (canonicalize-begin-body (append (parameterize ((##sys#current-module #f) (##sys#macro-environment (##sys#meta-macro-environment))) (map (lambda (x) (walk x e ;? (##sys#current-meta-environment) #f #f h ln) ) mreg)) 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 se vars aliases)) [body (walk (##sys#canonicalize-body obody se2 compiler-syntax-enabled) (append aliases e) se2 #f #f dest ln) ] ) (set-real-names! aliases vars) `(##core#lambda ,aliases ,body) ) ) ((##core#set!) (let* ([var0 (cadr x)] [var (lookup var0 se)] [ln (get-line x)] [val (caddr x)] ) (when (memq var unlikely-variables) (warning (sprintf "assignment to variable `~s' possibly unintended" var))) (cond ((assq var foreign-variables) => (lambda (fv) (let ([type (second fv)] [tmp (gensym)] ) (walk `(let ([,tmp ,(foreign-type-convert-argument val type)]) (##core#inline_update (,(third fv) ,type) ,(foreign-type-check tmp type) ) ) e se #f #f h ln)))) ((assq var location-pointer-map) => (lambda (a) (let* ([type (third a)] [tmp (gensym)] ) (walk `(let ([,tmp ,(foreign-type-convert-argument val type)]) (##core#inline_loc_update (,type) ,(second a) ,(foreign-type-check tmp type) ) ) e se #f #f h ln)))) (else (unless (memq var e) ; global? (set! var (or (##sys#get var '##core#primitive) (##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 `(let ((,var ,val)) (##core#debug-event "C_DEBUG_GLOBAL_ASSIGN" ',var) ,var)))) (cond ((##sys#macro? var) (warning (sprintf "assigned global variable `~S' is syntax ~A" var (if ln (sprintf "(~a)" ln) "") )) (when undefine-shadowed-macros (##sys#undefine-macro! var) ) ) ((and ##sys#notices-enabled (assq var (##sys#current-environment))) (##sys#notice "assignment to imported value binding" var))) (when (keyword? var) (warning (sprintf "assignment to keyword `~S'" var) )) `(set! ,var ,(walk val e se var0 (memq var e) h ln)))))) ((##core#debug-event) `(##core#debug-event ,(unquotify (cadr x) se) ,ln ; this arg is added - from this phase on ##core#debug-event has an additional argument! ,@(map (lambda (arg) (unquotify (walk arg e se #f #f h ln) se)) (cddr x)))) ((##core#inline) `(##core#inline ,(unquotify (cadr x) se) ,@(mapwalk (cddr x) e se h ln))) ((##core#inline_allocate) `(##core#inline_allocate ,(map (cut unquotify <> se) (second x)) ,@(mapwalk (cddr x) e se h ln))) ((##core#inline_update) `(##core#inline_update ,(cadr x) ,(walk (caddr x) e se #f #f h ln)) ) ((##core#inline_loc_update) `(##core#inline_loc_update ,(cadr x) ,(walk (caddr x) e se #f #f h ln) ,(walk (cadddr x) e se #f #f h ln)) ) ((##core#compiletimetoo ##core#elaborationtimetoo) (let ((exp (cadr x))) (##sys#eval/meta exp) (walk exp e se dest #f h ln) ) ) ((##core#compiletimeonly ##core#elaborationtimeonly) (##sys#eval/meta (cadr x)) '(##core#undefined) ) ((##core#begin ##core#toplevel-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 se dest ldest h ln)) (cons (walk x e se #f #f h ln) (fold r)) ) ) ) ) '(##core#undefined) ) ) ((##core#foreign-lambda) (walk (expand-foreign-lambda x #f) e se dest ldest h ln) ) ((##core#foreign-safe-lambda) (walk (expand-foreign-lambda x #t) e se dest ldest h ln) ) ((##core#foreign-lambda*) (walk (expand-foreign-lambda* x #f) e se dest ldest h ln) ) ((##core#foreign-safe-lambda*) (walk (expand-foreign-lambda* x #t) e se dest ldest h ln) ) ((##core#foreign-primitive) (walk (expand-foreign-primitive x) e se dest ldest h ln) ) ((##core#define-foreign-variable) (let* ([var (##sys#strip-syntax (second x))] [type (##sys#strip-syntax (third x))] [name (if (pair? (cdddr x)) (fourth x) (symbol->string var) ) ] ) (set! foreign-variables (cons (list var type (if (string? name) name (symbol->string name))) foreign-variables)) '(##core#undefined) ) ) ((##core#define-foreign-type) (let ([name (second x)] [type (##sys#strip-syntax (third x))] [conv (cdddr x)] ) (cond [(pair? conv) (let ([arg (gensym)] [ret (gensym)] ) (##sys#hash-table-set! foreign-type-table name (vector type arg ret)) (mark-variable arg '##compiler#always-bound) (mark-variable ret '##compiler#always-bound) (hide-variable arg) (hide-variable ret) (walk `(##core#begin (define ,arg ,(first conv)) (define ,ret ,(if (pair? (cdr conv)) (second conv) '##sys#values)) ) e se dest ldest h ln) ) ] [else (##sys#hash-table-set! foreign-type-table name type) '(##core#undefined) ] ) ) ) ((##core#define-external-variable) (let* ([sym (second x)] [name (symbol->string sym)] [type (third x)] [exported (fourth x)] [rname (make-random-name)] ) (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 (##sys#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) ) (walk `(let (,(let ([size (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 (alist-cons var alias se) dest ldest h ln) ) ) ((##core#define-inline) (let* ((name (second x)) (val `(##core#lambda ,@(cdaddr x)))) (##sys#hash-table-set! inline-table name val) (set! inline-table-used #t) '(##core#undefined))) ((##core#define-constant) (let* ((name (second x)) (valexp (third x)) (val (handle-exceptions ex ;; could show line number here (quit "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)))))) (set! constants-used #t) (set! defconstant-bindings (cons (list name `(##core#quote ,val)) defconstant-bindings)) (cond ((collapsable-literal? val) (##sys#hash-table-set! constant-table name (list `(##core#quote ,val))) '(##core#undefined)) ((basic-literal? val) (let ((var (gensym "constant"))) (##sys#hash-table-set! constant-table name (list var)) (hide-variable var) (mark-variable var '##compiler#constant) (mark-variable var '##compiler#always-bound) (walk `(define ,var (##core#quote ,val)) e se #f #f h ln))) (else (quit "invalid compile-time value for named constant `~S'" name))))) ((##core#declare) (walk `(##core#begin ,@(map (lambda (d) (process-declaration d se (lambda (id) (memq (lookup id se) e)))) (cdr x) ) ) e '() #f #f h ln) ) ((##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)) (quit "name `~S' of external definition is not a valid C identifier" raw-c-name) ) (when (or (not (proper-list? vars)) (not (proper-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 se h ln) ,(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)) ',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 se) r (##sys#make-c-string r ',name)) ) ) ) (else (cddr lam)) ) ) rtype) ) ) e se #f #f h ln) ) ) ) ) ((##core#location) (let ([sym (cadr x)]) (if (symbol? sym) (cond [(assq (lookup sym se) location-pointer-map) => (lambda (a) (walk `(##sys#make-locative ,(second a) 0 #f 'location) e se #f #f h ln) ) ] [(assq sym external-to-pointer) => (lambda (a) (walk (cdr a) e se #f #f h ln)) ] [(assq sym callback-names) `(##core#inline_ref (,(symbol->string sym) c-pointer)) ] [else (walk `(##sys#make-locative ,sym 0 #f 'location) e se #f #f h ln) ] ) (walk `(##sys#make-locative ,sym 0 #f 'location) e se #f #f h ln) ) ) ) (else (let* ((x2 (fluid-let ((##sys#syntax-context (cons name ##sys#syntax-context))) (mapwalk x e se h ln))) (head2 (car x2)) (old (##sys#hash-table-ref line-number-database-2 head2)) ) (when ln (##sys#hash-table-set! line-number-database-2 head2 (cons name (alist-cons x2 ln (if old (cdr old) '()))) ) ) x2) ) ) ] ) ) ) ) ((not (proper-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 se h outer-ln) ) (else (emit-syntax-trace-info x #f) (let ((tmp (gensym))) (walk `(##core#let ((,tmp ,(car x))) (,tmp ,@(cdr x))) e se dest ldest h outer-ln))))) (define (mapwalk xs e se h ln) (map (lambda (x) (walk x e se #f #f h ln)) xs) ) (when (memq 'c debugging-chicken) (newline) (pretty-print exp)) (##sys#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) ) '() (##sys#current-environment) #f #f #f #f) ) ) (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 (strip x) ; raw symbol (##sys#strip-syntax x)) (define stripu ##sys#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) ) ;(pp `(DECLARE: ,(strip spec))) (case (##sys#strip-syntax (car spec)) ; no global aliasing ((uses) (let ((us (stripu (cdr spec)))) (apply register-feature! us) (when (pair? us) (##sys#hash-table-update! file-requirements 'static (cut lset-union eq? us <>) (lambda () us)) (let ((units (map (lambda (u) (string->c-identifier (stringify u))) us))) (set! used-units (append used-units units)) ) ) ) ) ((unit) (check-decl spec 1 1) (let* ([u (stripu (cadr spec))] [un (string->c-identifier (stringify u))] ) (when (and unit-name (not (string=? unit-name un))) (warning "unit was already given a name (new name is ignored)") ) (set! unit-name un) ) ) ((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 (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)) ((interrupts-enabled) (set! insert-timer-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 (##sys#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 (cadr spec)))) (case id [(interrupts-enabled) (set! insert-timer-checks #f)] [(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 "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 (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" (##sys#strip-syntax spec)) (let ((name (##sys#globalize (car spec) se)) (type (##sys#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 (##sys#strip-syntax (cddr spec))))) (else (warning "illegal `type' declaration" (##sys#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 (##sys#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) ) ) ) ;;; 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 (##sys#strip-syntax rtype)) (argtypes (##sys#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)] ) `(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 (words rsize)] ) `(let ([,bufvar (##core#inline_allocate ("C_a_i_bytevector" ,(+ 2 ws)) ',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 (##sys#strip-syntax name))) ((string? name) name) (else (quit "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 (apply string-append (cdddr exp))] [argtypes (map (lambda (x) (car x)) args)] ;; C identifiers aren't hygienically renamed inside body strings [argnames (map cadr (##sys#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 (##sys#strip-syntax (if hasrtype (third exp) (second exp)))] [body (apply string-append (if hasrtype (cdddr exp) (cddr exp)))] [argtypes (map (lambda (x) (car x)) args)] ;; C identifiers aren't hygienically renamed inside body strings [argnames (map cadr (##sys#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 (##sys#hash-table-ref ##sys#line-number-database name) '())) ) (unless (assq x old) (##sys#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) (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)] ) (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) (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) ) ;;; Foreign callback stub type: (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 ...) ;;; 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 call) (let ((subs (node-subexpressions n)) (params (node-parameters n)) (class (node-class n)) ) (grow 1) (case class ((quote ##core#undefined ##core#proc) #f) ((##core#variable) (let ((var (first params))) (ref var n) (unless (memq var localenv) (grow 1) (cond ((memq var env) (put! db var 'captured #t)) ((not (get db var 'global)) (put! db var 'global #t) ) ) ) ) ) ((##core#callunit ##core#recurse) (grow 1) (walkeach subs env localenv fullenv here #f) ) ((##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 #t) (walkeach (cdr subs) env localenv fullenv here #f) ) ) ((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 #f) (let ([var (car vars)] [val (car vals)] ) (put! db var 'home here) (assign var val env2 here) (walk val env localenv fullenv here #f) (loop (cdr vars) (cdr vals)) ) ) ) ) ) ((lambda) ; this is an intermediate lambda, slightly different (grow 1) ; from '##core#lambda nodes (params = (LLIST)); (decompose-lambda-list ; CPS will convert this into ##core#lambda (first params) (lambda (vars argc rest) (for-each (lambda (var) (put! db var 'unknown #t)) vars) (let ([tl toplevel-scope]) (set! toplevel-scope #f) (walk (car subs) fullenv vars (append vars fullenv) #f #f) (set! toplevel-scope tl) ) ) ) ) ((##core#lambda ##core#direct_lambda) (grow 1) (decompose-lambda-list (third params) (lambda (vars argc rest) (let ([id (first params)] [size0 current-program-size] ) (when here (collect! db here 'contains id) (put! db id 'contained-in here) ) (for-each (lambda (var) (put! db var 'home here) (put! db var 'unknown #t) ) vars) (when rest (put! db rest 'rest-parameter 'list) ) (when (simple-lambda-node? n) (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 #f) (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) ) )) (put! db var 'potential-value val) (unless (memq var localenv) (grow 1) (cond ((memq var env) (put! db var 'captured #t)) ((not (get db var 'global)) (put! db var 'global #t) ) ) ) (assign var val fullenv here) (unless toplevel-scope (put! db var 'assigned-locally #t)) (put! db var 'assigned #t) (walk (car subs) env localenv fullenv here #f) ) ) ((##core#primitive ##core#inline) (let ((id (first params))) (when (and first-analysis here (symbol? id) (##sys#hash-table-ref real-name-table id)) (set-real-name! id here) ) (walkeach subs env localenv fullenv here #f) ) ) (else (walkeach subs env localenv fullenv here #f)) ) ) ) (define (walkeach xs env lenv fenv here call) (for-each (lambda (x) (walk x env lenv fenv here call)) xs) ) (define (assign var val env here) (cond ((eq? '##core#undefined (node-class val)) (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))) (let ((props (get-all db var 'unknown 'value)) (home (get db var 'home)) ) (unless (assq 'unknown props) (if (assq 'value props) (put! db var 'unknown #t) (if (or (not home) (eq? here home)) (put! db var 'value val) (put! db var 'unknown #t) ) ) ) ) ) ((and (or local-definitions (variable-mark var '##compiler#local)) (not (get db var 'unknown))) (let ((home (get db var 'home))) (cond ((get db var 'local-value) (put! db var 'unknown #t)) ((or (not home) (eq? here home)) (put! db var 'local-value val) ) (else (put! db var 'unknown #t))))) (else (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 #f) ;; Complete gathered database information: (debugging 'p "analysis gathering phase...") (set! current-analysis-database-size 0) (##sys#hash-table-for-each (lambda (sym plist) (let ([unknown #f] [value #f] [local-value #f] [pvalue #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-value) (set! pvalue (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 (and first-analysis (eq? '##core#lambda (and-let* ([val (or value (and global pvalue))]) (node-class val) ) ) ) (set-real-name! (first (node-parameters (or value pvalue))) sym) ) ;; 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)) (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) (get db v 'global)) (nth-value 0 (scan-free-variables value)) ) ) ) (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))) (when (and (get db sym 'global) (pair? hvars)) (quick-put! plist 'hidden-refs #t)) (when (or (not (second valparams)) (every (lambda (v) (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) (decompose-lambda-list (third lparams) (lambda (vars argc rest) (unless rest (for-each (lambda (var) (cond [(and (not (get db var 'references)) (not (get db var 'assigned)) ) (put! db var 'unused #t) (set! has #t) #t] [else #f] ) ) vars) ) (cond [(and has (not (rassoc sym callback-names eq?))) (put! db (first lparams) 'has-unused-parameters #t) ] [rest (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 (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 (get db name 'references)] ) (when (and (not captured) (or (and (not (get db name 'unknown)) (get db name 'value)) (and (not (get db name 'captured)) nrefs (= 1 (length nrefs)) (not assigned) (not (get db name 'assigned)) (or (not (variable-visible? name)) (not (get db name 'global))) ) )) (quick-put! plist 'replacable name) (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) (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) (get db sym item)) (define (register-customizable! var id) (set! customizable (lset-adjoin eq? customizable var)) (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#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) (proper-list? llist) ) ] ) (when (and name (not (llist-match? llist (cdr subs)))) (quit "~a: procedure `~a' called with wrong number of arguments" (source-info->line 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) (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?))) (put! db id 'closure-size (length c)) (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#proc) 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#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)]) (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)] ) (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) (fold-right (lambda (alias val body) (make-node 'let (list alias) (list val body))) body (unzip1 boxedaliases) (map (lambda (a) (make-node '##core#box '() (list (varnode (cdr a))))) boxedaliases) ) 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) '?) (cdr llist) )))))) ; this is not always correct, due to optimizations 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 unboxed-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 (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 (unboxed-temporaries lambda-literal-unboxed-temporaries) ; ((sym . utype) ...) (callee-signatures lambda-literal-callee-signatures) ; (integer ...) (allocated lambda-literal-allocated) ; integer (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) (ubtemporaries '()) (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 (get db var 'assigned) (not (variable-visible? var)))]) (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) n) ((##core#variable) (walk-var (first params) e e-count #f) ) ((##core#direct_call) (let* ((name (second params)) (name-str (source-info->string name)) (demand (fourth params))) (if (and emit-debug-info name) (let ((info (list dbg-index 'C_DEBUG_CALL "" name-str))) (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#inline_ref) (set! allocated (+ allocated (words (estimate-foreign-result-size (second params))))) (make-node class params '()) ) ((##core#inline_loc_ref) (set! allocated (+ allocated (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#lambda ##core#direct_lambda) (let ((temps temporaries) (ubtemps ubtemporaries) (sigs signatures) (lping looping) (alc allocated) (direct (eq? class '##core#direct_lambda)) ) (set! temporaries 0) (set! ubtemporaries '()) (set! allocated 0) (set! signatures '()) (set! looping 0) (decompose-lambda-list (third params) (lambda (vars argc rest) (let* ([id (first params)] [rest-mode (and rest (let ([rrefs (get db rest 'references)]) (cond [(get db rest 'assigned) 'list] [(and (not (get db rest 'boxed-rest)) (or (not rrefs) (null? rrefs))) 'none] [else (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) ) (##sys#hash-table-set! lambda-table id (make-lambda-literal id (second params) vars argc rest (add1 temporaries) ubtemporaries signatures allocated (or direct (memq id direct-call-ids)) (or (get db id 'closure-size) 0) (and (not rest) (> looping 0) (begin (debugging 'o "identified direct recursive calls" id looping) #t) ) (or direct (get db id 'customizable)) rest-mode body direct) ) (set! looping lping) (set! temporaries temps) (set! ubtemporaries ubtemps) (set! allocated alc) (set! signatures (lset-adjoin = 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_unboxed) (let* ((var (first params)) (val (first subs)) ) (set! ubtemporaries (alist-cons var (second params) ubtemporaries)) (make-node '##core#let_unboxed 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))) (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))) (name (and p2 (second params))) (name-str (source-info->string name))) (set! signatures (lset-adjoin = signatures len)) (when (and (>= (length params) 3) (eq? here (third params))) (set! looping (add1 looping)) ) (if (and emit-debug-info name) (let ((info (list dbg-index 'C_DEBUG_CALL "" name-str))) (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 "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 (##sys#fast-reverse debug-info)))) ) chicken-4.12.0/compiler.c0000644000175000017500000543026213052306437015005 0ustar sjamaansjamaan/* Generated from compiler.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:18 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: compiler.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -no-lambda-info -extend private-namespace.scm -no-trace -output-file compiler.c unit: 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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[649]; static double C_possibly_force_alignment; C_noret_decl(f_12173) static void C_ccall f_12173(C_word c,C_word *av) C_noret; C_noret_decl(f_18866) static void C_fcall f_18866(C_word t0,C_word t1) C_noret; C_noret_decl(f_6553) static void C_fcall f_6553(C_word t0,C_word t1,C_word t2,C_word t3) 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_6557) static void C_ccall f_6557(C_word c,C_word *av) C_noret; C_noret_decl(f_8109) static void C_ccall f_8109(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_18870) static void C_ccall f_18870(C_word c,C_word *av) C_noret; C_noret_decl(f_15667) static void C_ccall f_15667(C_word c,C_word *av) C_noret; C_noret_decl(f_17427) static void C_fcall f_17427(C_word t0,C_word t1) C_noret; C_noret_decl(f_17420) static void C_fcall f_17420(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7193) static void C_fcall f_7193(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15679) static void C_ccall f_15679(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_17419) static void C_ccall f_17419(C_word c,C_word *av) C_noret; C_noret_decl(f_16230) static void C_ccall f_16230(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(f_8787) static void C_fcall f_8787(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16237) static void C_ccall f_16237(C_word c,C_word *av) C_noret; C_noret_decl(f_16238) static void C_fcall f_16238(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7147) static void C_ccall f_7147(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_7021) static void C_ccall f_7021(C_word c,C_word *av) C_noret; C_noret_decl(f_16242) static void C_ccall f_16242(C_word c,C_word *av) C_noret; C_noret_decl(f_17441) static void C_ccall f_17441(C_word c,C_word *av) C_noret; C_noret_decl(f_7024) static void C_ccall f_7024(C_word c,C_word *av) C_noret; C_noret_decl(f_15692) static void C_ccall f_15692(C_word c,C_word *av) C_noret; C_noret_decl(f_15698) static void C_fcall f_15698(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_17430) static void C_ccall f_17430(C_word c,C_word *av) C_noret; C_noret_decl(f_18719) static void C_ccall f_18719(C_word c,C_word *av) 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_11815) static void C_ccall f_11815(C_word c,C_word *av) C_noret; C_noret_decl(f_11818) static void C_ccall f_11818(C_word c,C_word *av) C_noret; C_noret_decl(f_17453) static void C_fcall f_17453(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11802) static void C_fcall f_11802(C_word t0,C_word t1,C_word t2) 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_14367) static void C_fcall f_14367(C_word t0,C_word t1,C_word t2) 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_9971) static void C_ccall f_9971(C_word c,C_word *av) C_noret; C_noret_decl(f_9977) static void C_ccall f_9977(C_word c,C_word *av) C_noret; C_noret_decl(f_9974) static void C_ccall f_9974(C_word c,C_word *av) C_noret; C_noret_decl(f_17492) static void C_fcall f_17492(C_word t0,C_word t1) C_noret; C_noret_decl(f_12895) static void C_ccall f_12895(C_word c,C_word *av) C_noret; C_noret_decl(f_7766) static void C_fcall f_7766(C_word t0,C_word t1,C_word t2) 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_18826) static void C_fcall f_18826(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15618) static void C_ccall f_15618(C_word c,C_word *av) C_noret; C_noret_decl(f_18700) static void C_ccall f_18700(C_word c,C_word *av) C_noret; C_noret_decl(f_18704) static void C_ccall f_18704(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_8765) static void C_ccall f_8765(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_11861) static void C_ccall f_11861(C_word c,C_word *av) C_noret; C_noret_decl(f_14565) static void C_fcall f_14565(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18790) static void C_ccall f_18790(C_word c,C_word *av) C_noret; C_noret_decl(f_11867) static void C_ccall f_11867(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_8739) static void C_ccall f_8739(C_word c,C_word *av) C_noret; C_noret_decl(f_8735) static void C_ccall f_8735(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_11894) static void C_ccall f_11894(C_word c,C_word *av) C_noret; C_noret_decl(f_11898) static void C_ccall f_11898(C_word c,C_word *av) C_noret; C_noret_decl(f_11891) static void C_ccall f_11891(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_8797) static void C_ccall f_8797(C_word c,C_word *av) C_noret; C_noret_decl(f_11823) static void C_fcall f_11823(C_word t0,C_word t1) C_noret; C_noret_decl(f_11851) static void C_fcall f_11851(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_11855) static void C_ccall f_11855(C_word c,C_word *av) C_noret; C_noret_decl(f_7752) static void C_ccall f_7752(C_word c,C_word *av) C_noret; C_noret_decl(f_20936) static void C_fcall f_20936(C_word t0,C_word t1) C_noret; C_noret_decl(f_12813) static void C_ccall f_12813(C_word c,C_word *av) C_noret; C_noret_decl(f_15608) static void C_ccall f_15608(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_18773) static void C_fcall f_18773(C_word t0,C_word t1,C_word t2) 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_12803) static void C_fcall f_12803(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11870) static void C_ccall f_11870(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_11879) static void C_ccall f_11879(C_word c,C_word *av) C_noret; C_noret_decl(f_18787) static void C_ccall f_18787(C_word c,C_word *av) C_noret; C_noret_decl(f_17169) static void C_fcall f_17169(C_word t0,C_word t1) C_noret; C_noret_decl(f_20957) static void C_fcall f_20957(C_word t0,C_word t1) 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_12837) static void C_ccall f_12837(C_word c,C_word *av) C_noret; C_noret_decl(f_17163) static void C_ccall f_17163(C_word c,C_word *av) C_noret; C_noret_decl(f_21559) static void C_ccall f_21559(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_17463) static void C_ccall f_17463(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_7188) static void C_ccall f_7188(C_word c,C_word *av) C_noret; C_noret_decl(f_21568) static void C_ccall f_21568(C_word c,C_word *av) C_noret; C_noret_decl(f_21565) static void C_ccall f_21565(C_word c,C_word *av) 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_21579) static void C_ccall f_21579(C_word c,C_word *av) C_noret; C_noret_decl(f_21575) static void C_ccall f_21575(C_word c,C_word *av) C_noret; C_noret_decl(f_20902) static void C_fcall f_20902(C_word t0,C_word t1) C_noret; C_noret_decl(f_21583) static void C_ccall f_21583(C_word c,C_word *av) C_noret; C_noret_decl(f_20914) static void C_ccall f_20914(C_word c,C_word *av) C_noret; C_noret_decl(f_20798) static void C_ccall f_20798(C_word c,C_word *av) C_noret; C_noret_decl(f_14514) static void C_ccall f_14514(C_word c,C_word *av) C_noret; C_noret_decl(f_14500) static void C_ccall f_14500(C_word c,C_word *av) C_noret; C_noret_decl(f_12795) static void C_ccall f_12795(C_word c,C_word *av) C_noret; C_noret_decl(f_20746) static void C_ccall f_20746(C_word c,C_word *av) C_noret; C_noret_decl(f_20740) static void C_ccall f_20740(C_word c,C_word *av) C_noret; C_noret_decl(f_18728) static void C_ccall f_18728(C_word c,C_word *av) C_noret; C_noret_decl(f_15098) static void C_ccall f_15098(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_18734) static void C_ccall f_18734(C_word c,C_word *av) C_noret; C_noret_decl(f_14531) static void C_fcall f_14531(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18743) static void C_ccall f_18743(C_word c,C_word *av) C_noret; C_noret_decl(f_18740) static void C_fcall f_18740(C_word t0,C_word t1) C_noret; C_noret_decl(f_12753) static void C_ccall f_12753(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_12749) static void C_ccall f_12749(C_word c,C_word *av) C_noret; C_noret_decl(f_14520) static void C_ccall f_14520(C_word c,C_word *av) C_noret; C_noret_decl(f_15089) static void C_ccall f_15089(C_word c,C_word *av) C_noret; C_noret_decl(f_14890) static void C_ccall f_14890(C_word c,C_word *av) C_noret; C_noret_decl(f_14896) static C_word C_fcall f_14896(C_word t0,C_word t1); C_noret_decl(f_15085) static void C_ccall f_15085(C_word c,C_word *av) C_noret; C_noret_decl(f_12745) static void C_ccall f_12745(C_word c,C_word *av) C_noret; C_noret_decl(f_14863) static void C_ccall f_14863(C_word c,C_word *av) C_noret; C_noret_decl(f_14869) static void C_ccall f_14869(C_word c,C_word *av) C_noret; C_noret_decl(f_12710) static void C_ccall f_12710(C_word c,C_word *av) C_noret; C_noret_decl(f_8228) static void C_fcall f_8228(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12700) static void C_fcall f_12700(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8215) static void C_ccall f_8215(C_word c,C_word *av) C_noret; C_noret_decl(f_8211) static void C_fcall f_8211(C_word t0,C_word t1) C_noret; C_noret_decl(f_14839) static void C_ccall f_14839(C_word c,C_word *av) C_noret; C_noret_decl(f_14832) static void C_ccall f_14832(C_word c,C_word *av) C_noret; C_noret_decl(f_14835) static void C_fcall f_14835(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_13167) static void C_ccall f_13167(C_word c,C_word *av) C_noret; C_noret_decl(f_13178) static void C_fcall f_13178(C_word t0,C_word t1) 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_11286) static void C_fcall f_11286(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14805) static void C_ccall f_14805(C_word c,C_word *av) C_noret; C_noret_decl(f_21200) static void C_ccall f_21200(C_word c,C_word *av) C_noret; C_noret_decl(f_13148) static void C_ccall f_13148(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_17395) static void C_fcall f_17395(C_word t0,C_word t1) 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_17385) static void C_ccall f_17385(C_word c,C_word *av) 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_20462) static void C_ccall f_20462(C_word c,C_word *av) C_noret; C_noret_decl(f_13480) static void C_fcall f_13480(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_20439) static void C_ccall f_20439(C_word c,C_word *av) C_noret; C_noret_decl(f_13124) static void C_ccall f_13124(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_13494) static void C_ccall f_13494(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_21175) static void C_ccall f_21175(C_word c,C_word *av) C_noret; C_noret_decl(f_20492) static void C_ccall f_20492(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_17347) static void C_ccall f_17347(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_21197) static void C_ccall f_21197(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_6446) static void C_ccall f_6446(C_word c,C_word *av) C_noret; C_noret_decl(f_6443) static void C_ccall f_6443(C_word c,C_word *av) C_noret; C_noret_decl(f_13448) static void C_fcall f_13448(C_word t0,C_word t1,C_word t2) 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_6453) static void C_ccall f_6453(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_21164) static void C_fcall f_21164(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_13458) static void C_ccall f_13458(C_word c,C_word *av) C_noret; C_noret_decl(f_15065) static void C_ccall f_15065(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_6460) static void C_ccall f_6460(C_word c,C_word *av) C_noret; C_noret_decl(f_20483) static void C_ccall f_20483(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_19707) static void C_ccall f_19707(C_word c,C_word *av) C_noret; C_noret_decl(f_17316) static void C_ccall f_17316(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_15038) static void C_ccall f_15038(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_6477) static void C_ccall f_6477(C_word c,C_word *av) C_noret; C_noret_decl(f_6470) static void C_ccall f_6470(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_8824) static void C_ccall f_8824(C_word c,C_word *av) C_noret; C_noret_decl(f_8818) static void C_ccall f_8818(C_word c,C_word *av) C_noret; C_noret_decl(f_8810) static void C_ccall f_8810(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_word t2) 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_6439) static void C_ccall f_6439(C_word c,C_word *av) C_noret; C_noret_decl(f_16615) static void C_ccall f_16615(C_word c,C_word *av) C_noret; C_noret_decl(f_16612) static void C_fcall f_16612(C_word t0,C_word t1) C_noret; C_noret_decl(f_17331) static void C_ccall f_17331(C_word c,C_word *av) 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_19710) static void C_ccall f_19710(C_word c,C_word *av) C_noret; C_noret_decl(f_8029) static void C_fcall f_8029(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19781) static void C_ccall f_19781(C_word c,C_word *av) C_noret; C_noret_decl(f_15560) static void C_ccall f_15560(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_15566) static void C_ccall f_15566(C_word c,C_word *av) C_noret; C_noret_decl(f_13114) static void C_fcall f_13114(C_word t0,C_word t1,C_word t2) 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_13106) static void C_ccall f_13106(C_word c,C_word *av) C_noret; C_noret_decl(f_16657) static void C_fcall f_16657(C_word t0,C_word t1) C_noret; C_noret_decl(f_8673) static void C_ccall f_8673(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_13582) static void C_ccall f_13582(C_word c,C_word *av) C_noret; C_noret_decl(f_15579) static void C_ccall f_15579(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_8685) static void C_ccall f_8685(C_word c,C_word *av) C_noret; C_noret_decl(f_16666) static void C_ccall f_16666(C_word c,C_word *av) C_noret; C_noret_decl(f_16660) static void C_ccall f_16660(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_7355) static void C_ccall f_7355(C_word c,C_word *av) C_noret; C_noret_decl(f_15583) static void C_ccall f_15583(C_word c,C_word *av) C_noret; C_noret_decl(f_7342) static void C_ccall f_7342(C_word c,C_word *av) C_noret; C_noret_decl(f_15595) static void C_ccall f_15595(C_word c,C_word *av) C_noret; C_noret_decl(f_15599) static void C_ccall f_15599(C_word c,C_word *av) C_noret; C_noret_decl(f_7359) static void C_ccall f_7359(C_word c,C_word *av) C_noret; C_noret_decl(f_19772) static void C_ccall f_19772(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_18446) static void C_ccall f_18446(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_11241) static void C_ccall f_11241(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_13546) static void C_ccall f_13546(C_word c,C_word *av) C_noret; C_noret_decl(f_18419) static void C_ccall f_18419(C_word c,C_word *av) C_noret; C_noret_decl(f_13563) static void C_ccall f_13563(C_word c,C_word *av) C_noret; C_noret_decl(f_7338) static void C_ccall f_7338(C_word c,C_word *av) C_noret; C_noret_decl(f_19790) static void C_ccall f_19790(C_word c,C_word *av) C_noret; C_noret_decl(f_19799) static void C_ccall f_19799(C_word c,C_word *av) C_noret; C_noret_decl(f_12910) static void C_fcall f_12910(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18421) static void C_fcall f_18421(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13566) static void C_ccall f_13566(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_15558) static void C_ccall f_15558(C_word c,C_word *av) C_noret; C_noret_decl(f_13500) static void C_ccall f_13500(C_word c,C_word *av) C_noret; C_noret_decl(f_7317) static void C_fcall f_7317(C_word t0,C_word t1) 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_7308) static void C_ccall f_7308(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_12920) static void C_ccall f_12920(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_13224) static void C_ccall f_13224(C_word c,C_word *av) C_noret; C_noret_decl(f_19018) static void C_fcall f_19018(C_word t0,C_word t1,C_word t2) 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_12951) static void C_fcall f_12951(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19003) static void C_ccall f_19003(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_13232) static void C_fcall f_13232(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13529) static void C_fcall f_13529(C_word t0,C_word t1) C_noret; C_noret_decl(f_12943) static void C_ccall f_12943(C_word c,C_word *av) C_noret; C_noret_decl(f_19067) static void C_ccall f_19067(C_word c,C_word *av) C_noret; C_noret_decl(f_13257) static void C_ccall f_13257(C_word c,C_word *av) C_noret; C_noret_decl(f_19064) static void C_ccall f_19064(C_word c,C_word *av) C_noret; C_noret_decl(f_18493) static void C_fcall f_18493(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_7391) static void C_ccall f_7391(C_word c,C_word *av) C_noret; C_noret_decl(f_8693) static void C_ccall f_8693(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_7397) static void C_ccall f_7397(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_19730) static void C_ccall f_19730(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_7389) static void C_ccall f_7389(C_word c,C_word *av) C_noret; C_noret_decl(f_19724) static void C_ccall f_19724(C_word c,C_word *av) C_noret; C_noret_decl(f_19095) static void C_fcall f_19095(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_19754) static void C_ccall f_19754(C_word c,C_word *av) C_noret; C_noret_decl(f_10800) static void C_ccall f_10800(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_11196) static void C_ccall f_11196(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_15529) static void C_ccall f_15529(C_word c,C_word *av) 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_15522) static void C_fcall f_15522(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_14647) static void C_fcall f_14647(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14642) static void C_ccall f_14642(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_9301) static void C_ccall f_9301(C_word c,C_word *av) 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_14630) static void C_ccall f_14630(C_word c,C_word *av) C_noret; C_noret_decl(f_10198) static void C_ccall f_10198(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_9311) static void C_ccall f_9311(C_word c,C_word *av) C_noret; C_noret_decl(f_9314) static void C_ccall f_9314(C_word c,C_word *av) C_noret; C_noret_decl(f_11160) static void C_fcall f_11160(C_word t0,C_word t1,C_word t2,C_word t3) 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_10122) static void C_ccall f_10122(C_word c,C_word *av) C_noret; C_noret_decl(f_10128) static void C_fcall f_10128(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_16600) static void C_fcall f_16600(C_word t0,C_word t1) C_noret; C_noret_decl(f_14616) static void C_ccall f_14616(C_word c,C_word *av) C_noret; C_noret_decl(f_14610) static void C_fcall f_14610(C_word t0,C_word t1) C_noret; C_noret_decl(f_14613) static void C_ccall f_14613(C_word c,C_word *av) C_noret; C_noret_decl(f_10177) static void C_ccall f_10177(C_word c,C_word *av) C_noret; C_noret_decl(f_14681) static void C_fcall f_14681(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19971) static void C_ccall f_19971(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_18353) static void C_ccall f_18353(C_word c,C_word *av) C_noret; C_noret_decl(f_11131) static void C_ccall f_11131(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_18360) static void C_ccall f_18360(C_word c,C_word *av) C_noret; C_noret_decl(f_19991) static void C_ccall f_19991(C_word c,C_word *av) C_noret; C_noret_decl(f_18374) static void C_ccall f_18374(C_word c,C_word *av) C_noret; C_noret_decl(f_18370) static void C_ccall f_18370(C_word c,C_word *av) C_noret; C_noret_decl(f_18377) static void C_ccall f_18377(C_word c,C_word *av) C_noret; C_noret_decl(f_10895) static void C_ccall f_10895(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_18380) static void C_ccall f_18380(C_word c,C_word *av) C_noret; C_noret_decl(f_18389) static void C_ccall f_18389(C_word c,C_word *av) 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_9382) static void C_ccall f_9382(C_word c,C_word *av) C_noret; C_noret_decl(f_9387) static void C_fcall f_9387(C_word t0,C_word t1,C_word t2) 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_10845) static void C_ccall f_10845(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_12417) static void C_ccall f_12417(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_10857) static void C_ccall f_10857(C_word c,C_word *av) C_noret; C_noret_decl(f_12443) static void C_ccall f_12443(C_word c,C_word *av) C_noret; C_noret_decl(f_12447) static void C_ccall f_12447(C_word c,C_word *av) C_noret; C_noret_decl(f_18409) static void C_fcall f_18409(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14972) static void C_fcall f_14972(C_word t0,C_word t1) C_noret; C_noret_decl(f_10863) static void C_ccall f_10863(C_word c,C_word *av) C_noret; C_noret_decl(f_10869) static void C_ccall f_10869(C_word c,C_word *av) C_noret; C_noret_decl(f_14607) static void C_fcall f_14607(C_word t0,C_word t1) C_noret; C_noret_decl(f_14603) static void C_ccall f_14603(C_word c,C_word *av) C_noret; C_noret_decl(f_10105) static void C_fcall f_10105(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7981) static void C_fcall f_7981(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11401) static void C_ccall f_11401(C_word c,C_word *av) C_noret; C_noret_decl(f_11406) static void C_ccall f_11406(C_word c,C_word *av) C_noret; C_noret_decl(f_9086) static void C_ccall f_9086(C_word c,C_word *av) C_noret; C_noret_decl(f_9089) static void C_ccall f_9089(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_9083) static void C_ccall f_9083(C_word c,C_word *av) C_noret; C_noret_decl(f_14984) static void C_ccall f_14984(C_word c,C_word *av) C_noret; C_noret_decl(f_14988) static void C_ccall f_14988(C_word c,C_word *av) C_noret; C_noret_decl(f_14987) static void C_ccall f_14987(C_word c,C_word *av) C_noret; C_noret_decl(f_9092) static void C_ccall f_9092(C_word c,C_word *av) C_noret; C_noret_decl(f_12407) static void C_fcall f_12407(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14930) static void C_fcall f_14930(C_word t0,C_word t1,C_word t2,C_word t3) 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_7919) static void C_ccall f_7919(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_9064) static void C_ccall f_9064(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_9076) static void C_ccall f_9076(C_word c,C_word *av) C_noret; C_noret_decl(f_9072) static void C_ccall f_9072(C_word c,C_word *av) C_noret; C_noret_decl(f_9046) static void C_ccall f_9046(C_word c,C_word *av) C_noret; C_noret_decl(f_20523) static void C_ccall f_20523(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_9058) static void C_ccall f_9058(C_word c,C_word *av) C_noret; C_noret_decl(f_9051) static void C_ccall f_9051(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_word t3) 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_9025) static void C_ccall f_9025(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_10075) static void C_ccall f_10075(C_word c,C_word *av) C_noret; C_noret_decl(f_9039) static void C_ccall f_9039(C_word c,C_word *av) C_noret; C_noret_decl(f_9031) static void C_ccall f_9031(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_9034) static void C_ccall f_9034(C_word c,C_word *av) C_noret; C_noret_decl(f_16121) static void C_ccall f_16121(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_9009) static void C_ccall f_9009(C_word c,C_word *av) C_noret; C_noret_decl(f_20574) static void C_ccall f_20574(C_word c,C_word *av) C_noret; C_noret_decl(f_20582) static void C_ccall f_20582(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_10047) static void C_ccall f_10047(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_12394) static void C_ccall f_12394(C_word c,C_word *av) C_noret; C_noret_decl(f_19952) static void C_fcall f_19952(C_word t0,C_word t1) C_noret; C_noret_decl(f_19955) static void C_fcall f_19955(C_word t0,C_word t1) C_noret; C_noret_decl(f_12384) static void C_fcall f_12384(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20352) static void C_ccall f_20352(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_19945) static void C_fcall f_19945(C_word t0,C_word t1,C_word t2,C_word t3) 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_16173) static void C_ccall f_16173(C_word c,C_word *av) C_noret; C_noret_decl(f_16177) static void C_ccall f_16177(C_word c,C_word *av) C_noret; C_noret_decl(f_20359) static void C_ccall f_20359(C_word c,C_word *av) C_noret; C_noret_decl(f_12335) static void C_ccall f_12335(C_word c,C_word *av) C_noret; C_noret_decl(f_16186) static void C_ccall f_16186(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_word t2) C_noret; C_noret_decl(f_13379) static void C_fcall f_13379(C_word t0,C_word t1,C_word t2) 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_20379) static void C_ccall f_20379(C_word c,C_word *av) C_noret; C_noret_decl(f_10153) static void C_ccall f_10153(C_word c,C_word *av) C_noret; C_noret_decl(f_20371) static void C_ccall f_20371(C_word c,C_word *av) C_noret; C_noret_decl(f_16198) static void C_ccall f_16198(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_21272) static void C_ccall f_21272(C_word c,C_word *av) C_noret; C_noret_decl(f_13311) static void C_fcall f_13311(C_word t0,C_word t1,C_word t2) 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_18305) static void C_ccall f_18305(C_word c,C_word *av) C_noret; C_noret_decl(f_10020) static void C_ccall f_10020(C_word c,C_word *av) C_noret; C_noret_decl(f_10022) static void C_fcall f_10022(C_word t0,C_word t1,C_word t2) 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_16133) static void C_ccall f_16133(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_20368) static void C_ccall f_20368(C_word c,C_word *av) C_noret; C_noret_decl(f_20362) static void C_ccall f_20362(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_10783) static void C_ccall f_10783(C_word c,C_word *av) C_noret; C_noret_decl(f_19924) static void C_ccall f_19924(C_word c,C_word *av) 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_12308) static void C_ccall f_12308(C_word c,C_word *av) C_noret; C_noret_decl(f_16163) static void C_fcall f_16163(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16161) static void C_ccall f_16161(C_word c,C_word *av) C_noret; C_noret_decl(f_18990) static C_word C_fcall f_18990(C_word t0,C_word t1); C_noret_decl(f_10760) static void C_ccall f_10760(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_13321) static void C_ccall f_13321(C_word c,C_word *av) C_noret; C_noret_decl(f_10777) static void C_ccall f_10777(C_word c,C_word *av) C_noret; C_noret_decl(f_9343) static void C_ccall f_9343(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_15359) static void C_fcall f_15359(C_word t0,C_word t1) C_noret; C_noret_decl(f_15350) static void C_ccall f_15350(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_10746) static void C_ccall f_10746(C_word c,C_word *av) 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_9350) static void C_ccall f_9350(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_ccall f_9356(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_15321) static void C_ccall f_15321(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_7933) static void C_fcall f_7933(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9363) static void C_ccall f_9363(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_9367) static void C_ccall f_9367(C_word c,C_word *av) C_noret; C_noret_decl(f_10723) static void C_ccall f_10723(C_word c,C_word *av) C_noret; C_noret_decl(f_10728) static void C_ccall f_10728(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_9370) static void C_ccall f_9370(C_word c,C_word *av) C_noret; C_noret_decl(f_12360) static void C_ccall f_12360(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_16345) static void C_ccall f_16345(C_word c,C_word *av) C_noret; C_noret_decl(f_12285) static void C_ccall f_12285(C_word c,C_word *av) C_noret; C_noret_decl(f_16313) static void C_ccall f_16313(C_word c,C_word *av) C_noret; C_noret_decl(f_12275) static void C_fcall f_12275(C_word t0,C_word t1,C_word t2) 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_10003) static void C_fcall f_10003(C_word t0,C_word t1,C_word t2) 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_12298) static void C_fcall f_12298(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10011) static void C_ccall f_10011(C_word c,C_word *av) C_noret; C_noret_decl(f_16381) static void C_ccall f_16381(C_word c,C_word *av) C_noret; C_noret_decl(f_13836) static void C_fcall f_13836(C_word t0,C_word t1,C_word t2) 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_8984) static void C_fcall f_8984(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16372) static void C_ccall f_16372(C_word c,C_word *av) C_noret; C_noret_decl(f_16375) static void C_ccall f_16375(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_8393) static void C_ccall f_8393(C_word c,C_word *av) C_noret; C_noret_decl(f_19327) static void C_ccall f_19327(C_word c,C_word *av) C_noret; C_noret_decl(f_8968) static void C_ccall f_8968(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_16369) static void C_ccall f_16369(C_word c,C_word *av) C_noret; C_noret_decl(f_16366) static void C_ccall f_16366(C_word c,C_word *av) C_noret; C_noret_decl(f_18931) static void C_ccall f_18931(C_word c,C_word *av) C_noret; C_noret_decl(f_18933) static void C_fcall f_18933(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8970) static void C_ccall f_8970(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_14763) static void C_fcall f_14763(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19331) static void C_ccall f_19331(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_14754) static void C_ccall f_14754(C_word c,C_word *av) C_noret; C_noret_decl(f_12245) static void C_ccall f_12245(C_word c,C_word *av) C_noret; C_noret_decl(f_14757) static void C_fcall f_14757(C_word t0,C_word t1,C_word t2) 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_12239) static void C_ccall f_12239(C_word c,C_word *av) C_noret; C_noret_decl(f_8935) static void C_ccall f_8935(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_12267) static void C_ccall f_12267(C_word c,C_word *av) C_noret; C_noret_decl(f_20977) static void C_ccall f_20977(C_word c,C_word *av) C_noret; C_noret_decl(f_20971) static void C_ccall f_20971(C_word c,C_word *av) C_noret; C_noret_decl(f_17004) static void C_fcall f_17004(C_word t0,C_word t1) 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_20983) static void C_ccall f_20983(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_14799) static void C_ccall f_14799(C_word c,C_word *av) C_noret; C_noret_decl(f_20989) static void C_ccall f_20989(C_word c,C_word *av) C_noret; C_noret_decl(f_18924) static void C_ccall f_18924(C_word c,C_word *av) C_noret; C_noret_decl(f_7800) static void C_fcall f_7800(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16331) static void C_ccall f_16331(C_word c,C_word *av) C_noret; C_noret_decl(f_20099) static void C_ccall f_20099(C_word c,C_word *av) C_noret; C_noret_decl(f_18958) static void C_ccall f_18958(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_noret; C_noret_decl(f_15984) static void C_ccall f_15984(C_word c,C_word *av) C_noret; C_noret_decl(f_16321) static void C_fcall f_16321(C_word t0,C_word t1,C_word t2) 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_20083) static void C_fcall f_20083(C_word t0,C_word t1) 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_15926) static void C_ccall f_15926(C_word c,C_word *av) C_noret; C_noret_decl(f_12576) static void C_ccall f_12576(C_word c,C_word *av) C_noret; C_noret_decl(f_15935) static void C_fcall f_15935(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_14782) static void C_fcall f_14782(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21028) static void C_ccall f_21028(C_word c,C_word *av) C_noret; C_noret_decl(f_14773) static void C_ccall f_14773(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_12598) static void C_ccall f_12598(C_word c,C_word *av) C_noret; C_noret_decl(f_21022) static void C_ccall f_21022(C_word c,C_word *av) C_noret; C_noret_decl(f_7850) static void C_ccall f_7850(C_word c,C_word *av) C_noret; C_noret_decl(f_21047) static void C_ccall f_21047(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_21057) static void C_ccall f_21057(C_word c,C_word *av) C_noret; C_noret_decl(f_16552) static void C_fcall f_16552(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16550) static void C_fcall f_16550(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_15901) static void C_ccall f_15901(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_15910) static void C_ccall f_15910(C_word c,C_word *av) C_noret; C_noret_decl(f_12507) static void C_fcall f_12507(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9193) static void C_ccall f_9193(C_word c,C_word *av) C_noret; C_noret_decl(f_9197) static void C_ccall f_9197(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_9707) static void C_ccall f_9707(C_word c,C_word *av) C_noret; C_noret_decl(f_11708) static void C_ccall f_11708(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_12517) static void C_ccall f_12517(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_17030) static void C_fcall f_17030(C_word t0,C_word t1) C_noret; C_noret_decl(f_12566) static void C_fcall f_12566(C_word t0,C_word t1,C_word t2) 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_8419) static void C_ccall f_8419(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_19307) static void C_ccall f_19307(C_word c,C_word *av) C_noret; C_noret_decl(f_12558) static void C_ccall f_12558(C_word c,C_word *av) C_noret; C_noret_decl(f_8401) static void C_ccall f_8401(C_word c,C_word *av) C_noret; C_noret_decl(f_9146) static void C_fcall f_9146(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9113) static void C_ccall f_9113(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_10487) static void C_ccall f_10487(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_11789) static void C_fcall f_11789(C_word t0,C_word t1,C_word t2) 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_9133) static void C_ccall f_9133(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_13978) static void C_ccall f_13978(C_word c,C_word *av) C_noret; C_noret_decl(f_9724) static void C_ccall f_9724(C_word c,C_word *av) C_noret; C_noret_decl(f_9107) static void C_ccall f_9107(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_8920) static void C_ccall f_8920(C_word c,C_word *av) C_noret; C_noret_decl(f_8925) static void C_ccall f_8925(C_word c,C_word *av) C_noret; C_noret_decl(f_13984) static void C_ccall f_13984(C_word c,C_word *av) C_noret; C_noret_decl(f_8918) static void C_ccall f_8918(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_13999) static void C_ccall f_13999(C_word c,C_word *av) C_noret; C_noret_decl(f_11754) static void C_fcall f_11754(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9123) static void C_fcall f_9123(C_word t0,C_word t1,C_word t2,C_word t3) 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_11746) static void C_ccall f_11746(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_16564) static void C_fcall f_16564(C_word t0,C_word t1,C_word t2) 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_9765) static void C_fcall f_9765(C_word t0,C_word t1) C_noret; C_noret_decl(f_10467) static void C_ccall f_10467(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_16574) static void C_ccall f_16574(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_11726) static void C_ccall f_11726(C_word c,C_word *av) C_noret; C_noret_decl(f_21006) static void C_ccall f_21006(C_word c,C_word *av) C_noret; C_noret_decl(f_13672) static void C_fcall f_13672(C_word t0,C_word t1) C_noret; C_noret_decl(f_16587) static void C_fcall f_16587(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_8420) static C_word C_fcall f_8420(C_word t0,C_word t1); C_noret_decl(f_18020) static void C_ccall f_18020(C_word c,C_word *av) C_noret; C_noret_decl(f_18024) static void C_ccall f_18024(C_word c,C_word *av) C_noret; C_noret_decl(f_20664) static void C_fcall f_20664(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20660) static void C_ccall f_20660(C_word c,C_word *av) C_noret; C_noret_decl(f_15205) static void C_ccall f_15205(C_word c,C_word *av) C_noret; C_noret_decl(f_13658) static void C_ccall f_13658(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_9759) static void C_ccall f_9759(C_word c,C_word *av) C_noret; C_noret_decl(f_18000) static void C_fcall f_18000(C_word t0,C_word t1) C_noret; C_noret_decl(f_20637) static void C_ccall f_20637(C_word c,C_word *av) C_noret; C_noret_decl(f_18009) static void C_ccall f_18009(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_15218) static void C_ccall f_15218(C_word c,C_word *av) C_noret; C_noret_decl(f_18012) static void C_ccall f_18012(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_21327) static void C_fcall f_21327(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_15233) static void C_ccall f_15233(C_word c,C_word *av) C_noret; C_noret_decl(f_18655) static void C_ccall f_18655(C_word c,C_word *av) C_noret; C_noret_decl(f_18058) static void C_ccall f_18058(C_word c,C_word *av) C_noret; C_noret_decl(f_20018) static void C_fcall f_20018(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_18625) static void C_ccall f_18625(C_word c,C_word *av) C_noret; C_noret_decl(f_10432) static void C_ccall f_10432(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_10444) static void C_ccall f_10444(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_18602) static void C_ccall f_18602(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_6709) static void C_ccall f_6709(C_word c,C_word *av) C_noret; C_noret_decl(f_20005) static void C_ccall f_20005(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_18092) static void C_ccall f_18092(C_word c,C_word *av) C_noret; C_noret_decl(f_16417) static void C_ccall f_16417(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_6713) static void C_fcall f_6713(C_word t0,C_word t1,C_word t2) 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_7607) static void C_fcall f_7607(C_word t0,C_word t1,C_word t2,C_word t3) 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_7601) static void C_ccall f_7601(C_word c,C_word *av) C_noret; C_noret_decl(f_13728) static void C_fcall f_13728(C_word t0,C_word t1,C_word t2) 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_6766) static void C_fcall f_6766(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13735) static void C_fcall f_13735(C_word t0,C_word t1) C_noret; C_noret_decl(f_13738) static void C_ccall f_13738(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_10327) static void C_ccall f_10327(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_6773) static void C_ccall f_6773(C_word c,C_word *av) C_noret; C_noret_decl(f_8894) static void C_ccall f_8894(C_word c,C_word *av) C_noret; C_noret_decl(f_9227) static void C_ccall f_9227(C_word c,C_word *av) C_noret; C_noret_decl(f_9222) static void C_ccall f_9222(C_word c,C_word *av) C_noret; C_noret_decl(f_11925) static void C_ccall f_11925(C_word c,C_word *av) C_noret; C_noret_decl(f_19593) static void C_fcall f_19593(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_6783) static void C_ccall f_6783(C_word c,C_word *av) C_noret; C_noret_decl(f_19598) static void C_fcall f_19598(C_word t0,C_word t1,C_word t2) 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_7636) static void C_ccall f_7636(C_word c,C_word *av) C_noret; C_noret_decl(f_17696) static void C_ccall f_17696(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_9206) static void C_ccall f_9206(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_18667) static void C_ccall f_18667(C_word c,C_word *av) C_noret; C_noret_decl(f_9771) static void C_ccall f_9771(C_word c,C_word *av) C_noret; C_noret_decl(f_9778) static void C_ccall f_9778(C_word c,C_word *av) C_noret; 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_12075) static void C_ccall f_12075(C_word c,C_word *av) C_noret; C_noret_decl(f_21099) static void C_ccall f_21099(C_word c,C_word *av) C_noret; C_noret_decl(f_8286) static void C_ccall f_8286(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_9218) static void C_ccall f_9218(C_word c,C_word *av) C_noret; C_noret_decl(f_9212) static void C_ccall f_9212(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_9785) static void C_ccall f_9785(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_6963) static void C_ccall f_6963(C_word c,C_word *av) C_noret; C_noret_decl(f_6734) static void C_ccall f_6734(C_word c,C_word *av) 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_8707) static void C_ccall f_8707(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_8703) static void C_fcall f_8703(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9792) static void C_ccall f_9792(C_word c,C_word *av) 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_8253) static void C_ccall f_8253(C_word c,C_word *av) C_noret; C_noret_decl(f_6969) static void C_ccall f_6969(C_word c,C_word *av) 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_6744) static void C_ccall f_6744(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_8869) static void C_fcall f_8869(C_word t0,C_word t1,C_word t2) 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_11952) static void C_ccall f_11952(C_word c,C_word *av) C_noret; C_noret_decl(f_8263) static void C_ccall f_8263(C_word c,C_word *av) C_noret; C_noret_decl(f_10340) static void C_ccall f_10340(C_word c,C_word *av) C_noret; C_noret_decl(f_11958) static void C_ccall f_11958(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_16716) static void C_ccall f_16716(C_word c,C_word *av) C_noret; C_noret_decl(f_6984) static void C_ccall f_6984(C_word c,C_word *av) 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_15263) static void C_ccall f_15263(C_word c,C_word *av) C_noret; C_noret_decl(f_15267) static void C_ccall f_15267(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_11940) static void C_ccall f_11940(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_7655) static void C_fcall f_7655(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8846) static void C_fcall f_8846(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_12025) static void C_ccall f_12025(C_word c,C_word *av) C_noret; C_noret_decl(f_12029) static void C_ccall f_12029(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_19610) static void C_fcall f_19610(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13741) static void C_ccall f_13741(C_word c,C_word *av) C_noret; C_noret_decl(f_17241) static void C_ccall f_17241(C_word c,C_word *av) C_noret; C_noret_decl(f_13757) static void C_ccall f_13757(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_9283) static void C_ccall f_9283(C_word c,C_word *av) C_noret; C_noret_decl(f_9286) static void C_ccall f_9286(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_9289) static void C_ccall f_9289(C_word c,C_word *av) C_noret; C_noret_decl(f_13763) static void C_ccall f_13763(C_word c,C_word *av) C_noret; C_noret_decl(f_11900) static void C_fcall f_11900(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19676) static void C_ccall f_19676(C_word c,C_word *av) 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_9295) static void C_ccall f_9295(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_9298) static void C_ccall f_9298(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_word t3) 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_17632) static void C_ccall f_17632(C_word c,C_word *av) C_noret; C_noret_decl(f_17638) static void C_ccall f_17638(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_11961) static void C_ccall f_11961(C_word c,C_word *av) 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_7452) static void C_ccall f_7452(C_word c,C_word *av) C_noret; C_noret_decl(f_13700) static void C_fcall f_13700(C_word t0,C_word t1,C_word t2) 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_9276) static void C_ccall f_9276(C_word c,C_word *av) C_noret; C_noret_decl(f_9274) static void C_ccall f_9274(C_word c,C_word *av) C_noret; C_noret_decl(f_16786) static void C_ccall f_16786(C_word c,C_word *av) C_noret; C_noret_decl(f_6905) static void C_ccall f_6905(C_word c,C_word *av) C_noret; C_noret_decl(f_7506) static void C_ccall f_7506(C_word c,C_word *av) C_noret; C_noret_decl(f_17659) static void C_ccall f_17659(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_13710) static void C_ccall f_13710(C_word c,C_word *av) C_noret; C_noret_decl(f_17232) static void C_ccall f_17232(C_word c,C_word *av) C_noret; C_noret_decl(f_7500) static void C_ccall f_7500(C_word c,C_word *av) C_noret; C_noret_decl(f_7486) static void C_ccall f_7486(C_word c,C_word *av) C_noret; C_noret_decl(f_17651) static void C_ccall f_17651(C_word c,C_word *av) C_noret; C_noret_decl(f_12004) static void C_ccall f_12004(C_word c,C_word *av) C_noret; C_noret_decl(f_12000) static void C_ccall f_12000(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_16790) static void C_ccall f_16790(C_word c,C_word *av) C_noret; C_noret_decl(f_16797) static void C_ccall f_16797(C_word c,C_word *av) C_noret; C_noret_decl(f_6912) static void C_ccall f_6912(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_17224) static void C_ccall f_17224(C_word c,C_word *av) C_noret; C_noret_decl(f_16428) static void C_ccall f_16428(C_word c,C_word *av) C_noret; C_noret_decl(f_8570) static void C_ccall f_8570(C_word c,C_word *av) C_noret; C_noret_decl(f_6919) static void C_ccall f_6919(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_17251) static void C_ccall f_17251(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_7469) static void C_ccall f_7469(C_word c,C_word *av) C_noret; C_noret_decl(f_18683) static void C_ccall f_18683(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_19698) static void C_ccall f_19698(C_word c,C_word *av) C_noret; C_noret_decl(f_21075) static void C_ccall f_21075(C_word c,C_word *av) C_noret; C_noret_decl(f_21072) static void C_ccall f_21072(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_7448) static void C_ccall f_7448(C_word c,C_word *av) C_noret; C_noret_decl(f_15862) static void C_ccall f_15862(C_word c,C_word *av) C_noret; C_noret_decl(f_15868) static void C_ccall f_15868(C_word c,C_word *av) C_noret; C_noret_decl(f_7534) static void C_ccall f_7534(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_7425) static void C_ccall f_7425(C_word c,C_word *av) C_noret; C_noret_decl(f_17290) static void C_ccall f_17290(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_15808) static void C_ccall f_15808(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_7512) static void C_ccall f_7512(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_9652) static void C_ccall f_9652(C_word c,C_word *av) C_noret; C_noret_decl(f_7577) static void C_ccall f_7577(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_15826) static void C_ccall f_15826(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_9665) static void C_fcall f_9665(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_word t2,C_word t3) C_noret; C_noret_decl(f_8293) static void C_ccall f_8293(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_8548) static void C_ccall f_8548(C_word c,C_word *av) 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_7558) static void C_ccall f_7558(C_word c,C_word *av) C_noret; C_noret_decl(f_7493) static void C_ccall f_7493(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_12058) static void C_ccall f_12058(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_7555) static void C_ccall f_7555(C_word c,C_word *av) C_noret; C_noret_decl(f_12050) static void C_ccall f_12050(C_word c,C_word *av) C_noret; C_noret_decl(f_19644) static void C_fcall f_19644(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8552) static void C_ccall f_8552(C_word c,C_word *av) C_noret; C_noret_decl(f_14071) static void C_fcall f_14071(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21156) static void C_ccall f_21156(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_18599) static void C_ccall f_18599(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_14062) static void C_ccall f_14062(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_noret; C_noret_decl(f_14053) static void C_ccall f_14053(C_word c,C_word *av) C_noret; C_noret_decl(f_19655) static void C_fcall f_19655(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7597) static void C_ccall f_7597(C_word c,C_word *av) C_noret; C_noret_decl(f_19651) static void C_ccall f_19651(C_word c,C_word *av) C_noret; C_noret_decl(f_7593) static void C_ccall f_7593(C_word c,C_word *av) C_noret; C_noret_decl(f_21369) static void C_ccall f_21369(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_18587) static void C_ccall f_18587(C_word c,C_word *av) C_noret; C_noret_decl(f_9241) static void C_ccall f_9241(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_9249) static void C_ccall f_9249(C_word c,C_word *av) C_noret; C_noret_decl(f_21378) static void C_fcall f_21378(C_word t0,C_word t1,C_word t2) 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_20716) static void C_fcall f_20716(C_word t0,C_word t1) 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_20713) static void C_fcall f_20713(C_word t0,C_word t1) C_noret; C_noret_decl(f_10999) static void C_ccall f_10999(C_word c,C_word *av) C_noret; C_noret_decl(f_6925) static void C_fcall f_6925(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_21385) static void C_ccall f_21385(C_word c,C_word *av) C_noret; C_noret_decl(f_14017) static void C_ccall f_14017(C_word c,C_word *av) 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_9403) static void C_fcall f_9403(C_word t0,C_word t1,C_word t2) 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_9649) static void C_ccall f_9649(C_word c,C_word *av) 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_9695) static void C_ccall f_9695(C_word c,C_word *av) C_noret; C_noret_decl(f_10989) static void C_ccall f_10989(C_word c,C_word *av) C_noret; C_noret_decl(f_6957) static void C_ccall f_6957(C_word c,C_word *av) C_noret; C_noret_decl(f_21332) static void C_fcall f_21332(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10266) static void C_ccall f_10266(C_word c,C_word *av) C_noret; C_noret_decl(f_10270) static void C_fcall f_10270(C_word t0,C_word t1,C_word t2) 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_21344) static void C_fcall f_21344(C_word t0,C_word t1,C_word t2) 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_11378) static void C_ccall f_11378(C_word c,C_word *av) C_noret; C_noret_decl(f_9672) static void C_ccall f_9672(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_10288) static void C_ccall f_10288(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_11059) static void C_ccall f_11059(C_word c,C_word *av) 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_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_21408) static void C_ccall f_21408(C_word c,C_word *av) C_noret; C_noret_decl(f_11043) static void C_ccall f_11043(C_word c,C_word *av) C_noret; C_noret_decl(f_10299) static void C_ccall f_10299(C_word c,C_word *av) C_noret; C_noret_decl(f_10295) static void C_ccall f_10295(C_word c,C_word *av) C_noret; C_noret_decl(f_9428) static void C_ccall f_9428(C_word c,C_word *av) C_noret; C_noret_decl(f_21111) static void C_ccall f_21111(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_10225) static void C_ccall f_10225(C_word c,C_word *av) C_noret; C_noret_decl(f_21428) static C_word C_fcall f_21428(C_word *a,C_word t0,C_word t1); C_noret_decl(f_9437) static void C_ccall f_9437(C_word c,C_word *av) C_noret; C_noret_decl(f_18527) static void C_fcall f_18527(C_word t0,C_word t1) C_noret; C_noret_decl(f_9486) static C_word C_fcall f_9486(C_word t0); C_noret_decl(f_10923) static void C_fcall f_10923(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10929) static void C_ccall f_10929(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_10240) static void C_ccall f_10240(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_20233) static void C_ccall f_20233(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_10901) static void C_ccall f_10901(C_word c,C_word *av) C_noret; C_noret_decl(f_20203) static void C_ccall f_20203(C_word c,C_word *av) C_noret; C_noret_decl(f_20207) static void C_ccall f_20207(C_word c,C_word *av) C_noret; C_noret_decl(f_11031) static void C_ccall f_11031(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_11381) static void C_ccall f_11381(C_word c,C_word *av) C_noret; C_noret_decl(f_9441) static void C_ccall f_9441(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_9444) static void C_ccall f_9444(C_word c,C_word *av) C_noret; C_noret_decl(f_14044) static void C_ccall f_14044(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_9455) static void C_ccall f_9455(C_word c,C_word *av) C_noret; C_noret_decl(f_14035) static void C_ccall f_14035(C_word c,C_word *av) C_noret; C_noret_decl(f_20566) static void C_ccall f_20566(C_word c,C_word *av) C_noret; C_noret_decl(f_10946) static void C_fcall f_10946(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11355) static void C_ccall f_11355(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_20562) static void C_ccall f_20562(C_word c,C_word *av) C_noret; C_noret_decl(f_11340) static void C_ccall f_11340(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_11312) static void C_fcall f_11312(C_word t0,C_word t1,C_word t2) 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_21412) static C_word C_fcall f_21412(C_word t0,C_word t1); C_noret_decl(f_8717) static void C_fcall f_8717(C_word t0,C_word t1) C_noret; C_noret_decl(f_8710) static void C_ccall f_8710(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_19808) static void C_ccall f_19808(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_noret; C_noret_decl(f_16972) static void C_ccall f_16972(C_word c,C_word *av) C_noret; C_noret_decl(f_16969) static void C_fcall f_16969(C_word t0,C_word t1) C_noret; C_noret_decl(f_20263) static void C_ccall f_20263(C_word c,C_word *av) C_noret; C_noret_decl(f_20816) static void C_ccall f_20816(C_word c,C_word *av) C_noret; C_noret_decl(f_16978) static void C_fcall f_16978(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_20279) static void C_ccall f_20279(C_word c,C_word *av) C_noret; C_noret_decl(f_20820) static void C_ccall f_20820(C_word c,C_word *av) C_noret; C_noret_decl(f_20823) static void C_fcall f_20823(C_word t0,C_word t1) C_noret; C_noret_decl(f_20826) static void C_fcall f_20826(C_word t0,C_word t1) 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_19844) static void C_ccall f_19844(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(f_11009) static void C_ccall f_11009(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_19894) static C_word C_fcall f_19894(C_word *a,C_word t0,C_word t1); C_noret_decl(f_6335) static void C_ccall f_6335(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_19880) static void C_ccall f_19880(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_19886) static void C_fcall f_19886(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_19871) static void C_ccall f_19871(C_word c,C_word *av) C_noret; C_noret_decl(f_10202) static void C_ccall f_10202(C_word c,C_word *av) C_noret; C_noret_decl(f_14209) static void C_ccall f_14209(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_14238) static void C_ccall f_14238(C_word c,C_word *av) C_noret; C_noret_decl(f_14231) static void C_ccall f_14231(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_6343) static void C_ccall f_6343(C_word c,C_word *av) C_noret; C_noret_decl(f_7224) static void C_fcall f_7224(C_word t0,C_word t1,C_word t2) 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_6632) static void C_fcall f_6632(C_word t0,C_word t1,C_word t2,C_word t3) 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_19177) static void C_ccall f_19177(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_16951) static void C_ccall f_16951(C_word c,C_word *av) C_noret; C_noret_decl(f_9462) static void C_fcall f_9462(C_word t0,C_word t1,C_word t2) 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_16963) static void C_fcall f_16963(C_word t0,C_word t1) C_noret; C_noret_decl(f_9845) static void C_ccall f_9845(C_word c,C_word *av) C_noret; C_noret_decl(f_16966) static void C_ccall f_16966(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_9841) static void C_ccall f_9841(C_word c,C_word *av) C_noret; C_noret_decl(f_14221) static void C_ccall f_14221(C_word c,C_word *av) C_noret; C_noret_decl(f_16957) static void C_fcall f_16957(C_word t0,C_word t1) C_noret; C_noret_decl(f_9848) static void C_ccall f_9848(C_word c,C_word *av) C_noret; C_noret_decl(f_9475) static void C_fcall f_9475(C_word t0,C_word t1) 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_9854) static void C_ccall f_9854(C_word c,C_word *av) C_noret; C_noret_decl(f_14256) static void C_ccall f_14256(C_word c,C_word *av) C_noret; C_noret_decl(f_14252) static void C_ccall f_14252(C_word c,C_word *av) C_noret; C_noret_decl(f_9857) static void C_ccall f_9857(C_word c,C_word *av) C_noret; C_noret_decl(f_6675) static void C_fcall f_6675(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_6679) static void C_ccall f_6679(C_word c,C_word *av) C_noret; C_noret_decl(f_14286) static void C_fcall f_14286(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9835) static void C_ccall f_9835(C_word c,C_word *av) C_noret; C_noret_decl(f_9832) static void C_ccall f_9832(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_6691) static void C_ccall f_6691(C_word c,C_word *av) C_noret; C_noret_decl(f_6695) static void C_fcall f_6695(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14260) static void C_ccall f_14260(C_word c,C_word *av) C_noret; C_noret_decl(f_19835) static void C_ccall f_19835(C_word c,C_word *av) C_noret; C_noret_decl(f_19143) static void C_fcall f_19143(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17948) static void C_fcall f_17948(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_17946) static void C_ccall f_17946(C_word c,C_word *av) C_noret; C_noret_decl(f_17501) static void C_ccall f_17501(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_7205) static void C_ccall f_7205(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_17937) static void C_fcall f_17937(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7201) static void C_ccall f_7201(C_word c,C_word *av) C_noret; C_noret_decl(f_15759) static void C_ccall f_15759(C_word c,C_word *av) C_noret; C_noret_decl(f_17927) static void C_fcall f_17927(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_17921) static void C_fcall f_17921(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_15766) static void C_ccall f_15766(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_17545) static void C_ccall f_17545(C_word c,C_word *av) C_noret; C_noret_decl(f_8470) static void C_fcall f_8470(C_word t0,C_word t1,C_word t2) 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_18286) static void C_ccall f_18286(C_word c,C_word *av) C_noret; C_noret_decl(f_9886) static void C_ccall f_9886(C_word c,C_word *av) C_noret; C_noret_decl(f_9889) static void C_ccall f_9889(C_word c,C_word *av) C_noret; C_noret_decl(f_18217) static void C_ccall f_18217(C_word c,C_word *av) C_noret; C_noret_decl(f_18210) static void C_fcall f_18210(C_word t0,C_word t1) 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_17587) static void C_ccall f_17587(C_word c,C_word *av) C_noret; C_noret_decl(f_15739) static void C_ccall f_15739(C_word c,C_word *av) C_noret; C_noret_decl(f_17585) static void C_ccall f_17585(C_word c,C_word *av) C_noret; C_noret_decl(f_9860) static void C_ccall f_9860(C_word c,C_word *av) C_noret; C_noret_decl(f_15745) static void C_ccall f_15745(C_word c,C_word *av) C_noret; C_noret_decl(f_9879) static void C_ccall f_9879(C_word c,C_word *av) C_noret; C_noret_decl(f_13084) static void C_ccall f_13084(C_word c,C_word *av) C_noret; C_noret_decl(f_17593) static void C_ccall f_17593(C_word c,C_word *av) C_noret; C_noret_decl(f_13024) static void C_fcall f_13024(C_word t0,C_word t1,C_word t2) 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_8495) static void C_ccall f_8495(C_word c,C_word *av) C_noret; C_noret_decl(f_9823) static void C_ccall f_9823(C_word c,C_word *av) 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_13034) static void C_ccall f_13034(C_word c,C_word *av) C_noret; C_noret_decl(f_19214) static void C_fcall f_19214(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15788) static void C_ccall f_15788(C_word c,C_word *av) C_noret; C_noret_decl(f_19210) static void C_ccall f_19210(C_word c,C_word *av) C_noret; C_noret_decl(f_18234) static void C_ccall f_18234(C_word c,C_word *av) C_noret; C_noret_decl(f_11579) static void C_ccall f_11579(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_14460) static void C_ccall f_14460(C_word c,C_word *av) C_noret; C_noret_decl(f_14198) static void C_ccall f_14198(C_word c,C_word *av) C_noret; C_noret_decl(f_15719) static void C_fcall f_15719(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9804) static void C_ccall f_9804(C_word c,C_word *av) 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_13058) static void C_ccall f_13058(C_word c,C_word *av) C_noret; C_noret_decl(f_9801) static void C_ccall f_9801(C_word c,C_word *av) C_noret; C_noret_decl(f_15725) static void C_fcall f_15725(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8447) static C_word C_fcall f_8447(C_word t0,C_word t1); C_noret_decl(f_9813) static void C_ccall f_9813(C_word c,C_word *av) C_noret; C_noret_decl(f_9810) static void C_ccall f_9810(C_word c,C_word *av) C_noret; C_noret_decl(f_14177) static void C_fcall f_14177(C_word t0,C_word t1) C_noret; C_noret_decl(f_19262) static void C_ccall f_19262(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_11585) static void C_ccall f_11585(C_word c,C_word *av) C_noret; C_noret_decl(f_11582) static void C_ccall f_11582(C_word c,C_word *av) C_noret; C_noret_decl(f_19250) static void C_ccall f_19250(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_14152) static void C_ccall f_14152(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_14189) static void C_ccall f_14189(C_word c,C_word *av) C_noret; C_noret_decl(f_18251) static void C_ccall f_18251(C_word c,C_word *av) C_noret; C_noret_decl(f_20143) static void C_ccall f_20143(C_word c,C_word *av) C_noret; C_noret_decl(f_21481) static void C_ccall f_21481(C_word c,C_word *av) C_noret; C_noret_decl(f_21483) static void C_fcall f_21483(C_word t0,C_word t1) C_noret; C_noret_decl(f_19290) static void C_ccall f_19290(C_word c,C_word *av) C_noret; C_noret_decl(f_15704) static void C_ccall f_15704(C_word c,C_word *av) 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_14479) static void C_ccall f_14479(C_word c,C_word *av) C_noret; C_noret_decl(f_19294) static void C_ccall f_19294(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_14453) static void C_ccall f_14453(C_word c,C_word *av) 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_8526) static void C_ccall f_8526(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_8523) static void C_ccall f_8523(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_21447) static C_word C_fcall f_21447(C_word t0,C_word t1); C_noret_decl(f_21443) static void C_ccall f_21443(C_word c,C_word *av) C_noret; C_noret_decl(f_8517) static void C_fcall f_8517(C_word t0,C_word t1) 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_8511) static void C_ccall f_8511(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_16803) static void C_ccall f_16803(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_16809) static C_word C_fcall f_16809(C_word t0,C_word t1); C_noret_decl(f_7272) static void C_ccall f_7272(C_word c,C_word *av) C_noret; C_noret_decl(f_21465) static void C_ccall f_21465(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_21467) static void C_ccall f_21467(C_word c,C_word *av) C_noret; C_noret_decl(f_10689) static void C_ccall f_10689(C_word c,C_word *av) C_noret; C_noret_decl(f_14419) static void C_fcall f_14419(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14100) static void C_ccall f_14100(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_14411) static void C_ccall f_14411(C_word c,C_word *av) C_noret; C_noret_decl(f_9519) static void C_fcall f_9519(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21439) static void C_fcall f_21439(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11673) static void C_fcall f_11673(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18165) static void C_ccall f_18165(C_word c,C_word *av) C_noret; C_noret_decl(f22739) static void C_ccall f22739(C_word c,C_word *av) C_noret; C_noret_decl(f22735) static void C_ccall f22735(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_17780) static void C_ccall f_17780(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_noret; C_noret_decl(f_11698) static void C_ccall f_11698(C_word c,C_word *av) C_noret; C_noret_decl(f_18201) static void C_ccall f_18201(C_word c,C_word *av) C_noret; C_noret_decl(f_18186) static void C_ccall f_18186(C_word c,C_word *av) 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_18189) static void C_ccall f_18189(C_word c,C_word *av) C_noret; C_noret_decl(f_17783) static void C_ccall f_17783(C_word c,C_word *av) C_noret; C_noret_decl(f_10641) static void C_fcall f_10641(C_word t0,C_word t1) C_noret; C_noret_decl(f_10649) static void C_ccall f_10649(C_word c,C_word *av) C_noret; C_noret_decl(f_17761) static void C_fcall f_17761(C_word t0,C_word t1) C_noret; C_noret_decl(f_20169) static void C_ccall f_20169(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_18192) static void C_fcall f_18192(C_word t0,C_word t1) C_noret; C_noret_decl(f_18195) static void C_ccall f_18195(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_18198) static void C_ccall f_18198(C_word c,C_word *av) C_noret; C_noret_decl(f_17777) static void C_ccall f_17777(C_word c,C_word *av) C_noret; C_noret_decl(f_17774) static void C_ccall f_17774(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_20173) static void C_ccall f_20173(C_word c,C_word *av) 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_17768) static void C_ccall f_17768(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_20863) static void C_fcall f_20863(C_word t0,C_word t1) C_noret; C_noret_decl(f_9586) static void C_ccall f_9586(C_word c,C_word *av) 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_10637) static void C_ccall f_10637(C_word c,C_word *av) C_noret; C_noret_decl(f_12601) static void C_ccall f_12601(C_word c,C_word *av) C_noret; C_noret_decl(f_9589) static void C_ccall f_9589(C_word c,C_word *av) C_noret; C_noret_decl(f_20199) static void C_ccall f_20199(C_word c,C_word *av) C_noret; C_noret_decl(f_21510) static void C_ccall f_21510(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_10604) static void C_ccall f_10604(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_9592) static void C_ccall f_9592(C_word c,C_word *av) C_noret; C_noret_decl(f_10601) static void C_ccall f_10601(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_13016) static void C_ccall f_13016(C_word c,C_word *av) C_noret; C_noret_decl(f_10607) static void C_fcall f_10607(C_word t0,C_word t1) C_noret; C_noret_decl(f_15172) static void C_ccall f_15172(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_11621) static void C_ccall f_11621(C_word c,C_word *av) C_noret; C_noret_decl(f_17700) static void C_fcall f_17700(C_word t0,C_word t1,C_word t2) 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_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_6869) static void C_ccall f_6869(C_word c,C_word *av) 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_6863) static void C_ccall f_6863(C_word c,C_word *av) C_noret; C_noret_decl(f_11612) static void C_ccall f_11612(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_17718) static void C_ccall f_17718(C_word c,C_word *av) C_noret; C_noret_decl(f_9544) static void C_ccall f_9544(C_word c,C_word *av) C_noret; C_noret_decl(f_19207) static void C_fcall f_19207(C_word t0,C_word t1) C_noret; C_noret_decl(f_12646) static void C_ccall f_12646(C_word c,C_word *av) C_noret; C_noret_decl(f_19204) static void C_ccall f_19204(C_word c,C_word *av) C_noret; C_noret_decl(f_6874) static void C_fcall f_6874(C_word t0,C_word t1,C_word t2) 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_14149) static void C_ccall f_14149(C_word c,C_word *av) C_noret; C_noret_decl(f_8625) static void C_ccall f_8625(C_word c,C_word *av) C_noret; C_noret_decl(f_8622) static void C_fcall f_8622(C_word t0,C_word t1) 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_8619) static void C_ccall f_8619(C_word c,C_word *av) C_noret; C_noret_decl(f_6899) static void C_ccall f_6899(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_8302) static void C_fcall f_8302(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11661) static void C_fcall f_11661(C_word t0,C_word t1,C_word t2) 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_8339) static void C_fcall f_8339(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8337) static void C_ccall f_8337(C_word c,C_word *av) C_noret; C_noret_decl(f_11656) static void C_fcall f_11656(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_6833) static void C_ccall f_6833(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_6836) static void C_ccall f_6836(C_word c,C_word *av) C_noret; C_noret_decl(f_10574) static void C_ccall f_10574(C_word c,C_word *av) C_noret; C_noret_decl(f_7040) static void C_fcall f_7040(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7114) static void C_ccall f_7114(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_10582) static void C_ccall f_10582(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_6859) static void C_ccall f_6859(C_word c,C_word *av) C_noret; C_noret_decl(f_17869) static void C_fcall f_17869(C_word t0,C_word t1) C_noret; C_noret_decl(f_20397) static void C_ccall f_20397(C_word c,C_word *av) C_noret; C_noret_decl(f_15113) static void C_fcall f_15113(C_word t0,C_word t1,C_word t2,C_word t3) 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_10526) static void C_ccall f_10526(C_word c,C_word *av) C_noret; C_noret_decl(f_16251) static void C_ccall f_16251(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_12181) static void C_fcall f_12181(C_word t0,C_word t1,C_word t2) 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_17891) static C_word C_fcall f_17891(C_word t0,C_word t1); C_noret_decl(f_17842) static void C_fcall f_17842(C_word t0,C_word t1) C_noret; C_noret_decl(f_10505) static void C_fcall f_10505(C_word t0,C_word t1) C_noret; C_noret_decl(f_8318) static void C_ccall f_8318(C_word c,C_word *av) C_noret; C_noret_decl(f_8314) static void C_ccall f_8314(C_word c,C_word *av) C_noret; C_noret_decl(f_17839) static void C_ccall f_17839(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_fcall f_10554(C_word t0,C_word t1) C_noret; C_noret_decl(f_17830) static void C_ccall f_17830(C_word c,C_word *av) C_noret; C_noret_decl(f_6503) static void C_fcall f_6503(C_word t0,C_word t1,C_word t2,C_word t3) 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_16295) static void C_ccall f_16295(C_word c,C_word *av) C_noret; C_noret_decl(f_14315) static void C_ccall f_14315(C_word c,C_word *av) C_noret; C_noret_decl(f_18109) static void C_fcall f_18109(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18107) static void C_ccall f_18107(C_word c,C_word *av) C_noret; C_noret_decl(f_18100) static void C_fcall f_18100(C_word t0,C_word t1,C_word t2) 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_18809) static void C_ccall f_18809(C_word c,C_word *av) C_noret; C_noret_decl(f_18801) static void C_ccall f_18801(C_word c,C_word *av) C_noret; C_noret_decl(f_18805) static void C_ccall f_18805(C_word c,C_word *av) C_noret; C_noret_decl(f_6538) static void C_fcall f_6538(C_word t0,C_word t1,C_word t2,C_word t3) 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_18817) static void C_ccall f_18817(C_word c,C_word *av) C_noret; C_noret_decl(f_6548) static void C_ccall f_6548(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_19433) static void C_ccall f_19433(C_word c,C_word *av) C_noret; C_noret_decl(f_17822) static void C_ccall f_17822(C_word c,C_word *av) C_noret; C_noret_decl(f_17826) static void C_ccall f_17826(C_word c,C_word *av) C_noret; C_noret_decl(f_14356) static void C_ccall f_14356(C_word c,C_word *av) C_noret; C_noret_decl(f_19429) static void C_ccall f_19429(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_6564) static void C_ccall f_6564(C_word c,C_word *av) C_noret; C_noret_decl(f_6566) static void C_fcall f_6566(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6560) static void C_ccall f_6560(C_word c,C_word *av) C_noret; C_noret_decl(f_16263) static void C_fcall f_16263(C_word t0,C_word t1) C_noret; C_noret_decl(f_14349) static void C_ccall f_14349(C_word c,C_word *av) C_noret; C_noret_decl(f_16260) static void C_fcall f_16260(C_word t0,C_word t1) C_noret; C_noret_decl(f_16266) static void C_ccall f_16266(C_word c,C_word *av) C_noret; C_noret_decl(f_17181) static void C_ccall f_17181(C_word c,C_word *av) C_noret; C_noret_decl(f_18851) static void C_ccall f_18851(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_word t2,C_word t3) 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_9962) static void C_ccall f_9962(C_word c,C_word *av) C_noret; C_noret_decl(f_9968) static void C_ccall f_9968(C_word c,C_word *av) C_noret; C_noret_decl(f_6516) static void C_fcall f_6516(C_word t0,C_word t1) 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_7015) static void C_ccall f_7015(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_8151) static void C_fcall f_8151(C_word t0,C_word t1) 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_9932) static void C_ccall f_9932(C_word c,C_word *av) C_noret; C_noret_decl(f_20413) static void C_ccall f_20413(C_word c,C_word *av) C_noret; C_noret_decl(f_8127) static void C_ccall f_8127(C_word c,C_word *av) C_noret; C_noret_decl(f_7008) static void C_ccall f_7008(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_7005) static void C_ccall f_7005(C_word c,C_word *av) C_noret; C_noret_decl(f_20420) static void C_fcall f_20420(C_word t0,C_word t1) 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_18881) static void C_ccall f_18881(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_8136) static void C_ccall f_8136(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_8130) static void C_ccall f_8130(C_word c,C_word *av) C_noret; C_noret_decl(trf_18866) static void C_ccall trf_18866(C_word c,C_word *av) C_noret; static void C_ccall trf_18866(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18866(t0,t1);} C_noret_decl(trf_6553) static void C_ccall trf_6553(C_word c,C_word *av) C_noret; static void C_ccall trf_6553(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6553(t0,t1,t2,t3);} C_noret_decl(trf_17427) static void C_ccall trf_17427(C_word c,C_word *av) C_noret; static void C_ccall trf_17427(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17427(t0,t1);} C_noret_decl(trf_17420) static void C_ccall trf_17420(C_word c,C_word *av) C_noret; static void C_ccall trf_17420(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17420(t0,t1,t2);} C_noret_decl(trf_7193) static void C_ccall trf_7193(C_word c,C_word *av) C_noret; static void C_ccall trf_7193(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7193(t0,t1,t2);} C_noret_decl(trf_8787) static void C_ccall trf_8787(C_word c,C_word *av) C_noret; static void C_ccall trf_8787(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8787(t0,t1,t2);} C_noret_decl(trf_16238) static void C_ccall trf_16238(C_word c,C_word *av) C_noret; static void C_ccall trf_16238(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16238(t0,t1,t2);} C_noret_decl(trf_15698) static void C_ccall trf_15698(C_word c,C_word *av) C_noret; static void C_ccall trf_15698(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_15698(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_17453) static void C_ccall trf_17453(C_word c,C_word *av) C_noret; static void C_ccall trf_17453(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17453(t0,t1,t2);} C_noret_decl(trf_11802) static void C_ccall trf_11802(C_word c,C_word *av) C_noret; static void C_ccall trf_11802(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11802(t0,t1,t2);} C_noret_decl(trf_14367) static void C_ccall trf_14367(C_word c,C_word *av) C_noret; static void C_ccall trf_14367(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14367(t0,t1,t2);} C_noret_decl(trf_17492) static void C_ccall trf_17492(C_word c,C_word *av) C_noret; static void C_ccall trf_17492(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17492(t0,t1);} C_noret_decl(trf_7766) static void C_ccall trf_7766(C_word c,C_word *av) C_noret; static void C_ccall trf_7766(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7766(t0,t1,t2);} C_noret_decl(trf_18826) static void C_ccall trf_18826(C_word c,C_word *av) C_noret; static void C_ccall trf_18826(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18826(t0,t1,t2);} C_noret_decl(trf_14565) static void C_ccall trf_14565(C_word c,C_word *av) C_noret; static void C_ccall trf_14565(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14565(t0,t1,t2);} C_noret_decl(trf_11823) static void C_ccall trf_11823(C_word c,C_word *av) C_noret; static void C_ccall trf_11823(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11823(t0,t1);} C_noret_decl(trf_11851) static void C_ccall trf_11851(C_word c,C_word *av) C_noret; static void C_ccall trf_11851(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11851(t0,t1);} C_noret_decl(trf_20936) static void C_ccall trf_20936(C_word c,C_word *av) C_noret; static void C_ccall trf_20936(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20936(t0,t1);} C_noret_decl(trf_18773) static void C_ccall trf_18773(C_word c,C_word *av) C_noret; static void C_ccall trf_18773(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18773(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_12803(t0,t1,t2);} C_noret_decl(trf_17169) static void C_ccall trf_17169(C_word c,C_word *av) C_noret; static void C_ccall trf_17169(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17169(t0,t1);} C_noret_decl(trf_20957) static void C_ccall trf_20957(C_word c,C_word *av) C_noret; static void C_ccall trf_20957(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20957(t0,t1);} C_noret_decl(trf_20902) static void C_ccall trf_20902(C_word c,C_word *av) C_noret; static void C_ccall trf_20902(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20902(t0,t1);} C_noret_decl(trf_14531) static void C_ccall trf_14531(C_word c,C_word *av) C_noret; static void C_ccall trf_14531(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14531(t0,t1,t2);} C_noret_decl(trf_18740) static void C_ccall trf_18740(C_word c,C_word *av) C_noret; static void C_ccall trf_18740(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18740(t0,t1);} C_noret_decl(trf_8228) static void C_ccall trf_8228(C_word c,C_word *av) C_noret; static void C_ccall trf_8228(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8228(t0,t1,t2);} C_noret_decl(trf_12700) static void C_ccall trf_12700(C_word c,C_word *av) C_noret; static void C_ccall trf_12700(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12700(t0,t1,t2);} C_noret_decl(trf_8211) static void C_ccall trf_8211(C_word c,C_word *av) C_noret; static void C_ccall trf_8211(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8211(t0,t1);} C_noret_decl(trf_14835) static void C_ccall trf_14835(C_word c,C_word *av) C_noret; static void C_ccall trf_14835(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_14835(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_13178) static void C_ccall trf_13178(C_word c,C_word *av) C_noret; static void C_ccall trf_13178(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13178(t0,t1);} C_noret_decl(trf_11286) static void C_ccall trf_11286(C_word c,C_word *av) C_noret; static void C_ccall trf_11286(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11286(t0,t1,t2);} C_noret_decl(trf_17395) static void C_ccall trf_17395(C_word c,C_word *av) C_noret; static void C_ccall trf_17395(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17395(t0,t1);} C_noret_decl(trf_13480) static void C_ccall trf_13480(C_word c,C_word *av) C_noret; static void C_ccall trf_13480(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13480(t0,t1,t2);} C_noret_decl(trf_13448) static void C_ccall trf_13448(C_word c,C_word *av) C_noret; static void C_ccall trf_13448(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13448(t0,t1,t2);} C_noret_decl(trf_21164) static void C_ccall trf_21164(C_word c,C_word *av) C_noret; static void C_ccall trf_21164(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_21164(t0,t1,t2,t3,t4);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_8063(t0,t1,t2);} C_noret_decl(trf_16612) static void C_ccall trf_16612(C_word c,C_word *av) C_noret; static void C_ccall trf_16612(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16612(t0,t1);} C_noret_decl(trf_8029) static void C_ccall trf_8029(C_word c,C_word *av) C_noret; static void C_ccall trf_8029(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8029(t0,t1,t2);} C_noret_decl(trf_13114) static void C_ccall trf_13114(C_word c,C_word *av) C_noret; static void C_ccall trf_13114(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13114(t0,t1,t2);} C_noret_decl(trf_16657) static void C_ccall trf_16657(C_word c,C_word *av) C_noret; static void C_ccall trf_16657(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16657(t0,t1);} C_noret_decl(trf_12910) static void C_ccall trf_12910(C_word c,C_word *av) C_noret; static void C_ccall trf_12910(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12910(t0,t1,t2);} C_noret_decl(trf_18421) static void C_ccall trf_18421(C_word c,C_word *av) C_noret; static void C_ccall trf_18421(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18421(t0,t1,t2);} C_noret_decl(trf_7317) static void C_ccall trf_7317(C_word c,C_word *av) C_noret; static void C_ccall trf_7317(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7317(t0,t1);} C_noret_decl(trf_19018) static void C_ccall trf_19018(C_word c,C_word *av) C_noret; static void C_ccall trf_19018(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19018(t0,t1,t2);} C_noret_decl(trf_12951) static void C_ccall trf_12951(C_word c,C_word *av) C_noret; static void C_ccall trf_12951(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12951(t0,t1,t2);} C_noret_decl(trf_13232) static void C_ccall trf_13232(C_word c,C_word *av) C_noret; static void C_ccall trf_13232(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13232(t0,t1,t2);} C_noret_decl(trf_13529) static void C_ccall trf_13529(C_word c,C_word *av) C_noret; static void C_ccall trf_13529(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13529(t0,t1);} C_noret_decl(trf_18493) static void C_ccall trf_18493(C_word c,C_word *av) C_noret; static void C_ccall trf_18493(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_18493(t0,t1,t2,t3,t4);} C_noret_decl(trf_19095) static void C_ccall trf_19095(C_word c,C_word *av) C_noret; static void C_ccall trf_19095(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_19095(t0,t1,t2,t3);} C_noret_decl(trf_15522) static void C_ccall trf_15522(C_word c,C_word *av) C_noret; static void C_ccall trf_15522(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_15522(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_14647) static void C_ccall trf_14647(C_word c,C_word *av) C_noret; static void C_ccall trf_14647(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14647(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_11160) static void C_ccall trf_11160(C_word c,C_word *av) C_noret; static void C_ccall trf_11160(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11160(t0,t1,t2,t3);} C_noret_decl(trf_10128) static void C_ccall trf_10128(C_word c,C_word *av) C_noret; static void C_ccall trf_10128(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10128(t0,t1,t2);} C_noret_decl(trf_16600) static void C_ccall trf_16600(C_word c,C_word *av) C_noret; static void C_ccall trf_16600(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16600(t0,t1);} C_noret_decl(trf_14610) static void C_ccall trf_14610(C_word c,C_word *av) C_noret; static void C_ccall trf_14610(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14610(t0,t1);} C_noret_decl(trf_14681) static void C_ccall trf_14681(C_word c,C_word *av) C_noret; static void C_ccall trf_14681(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14681(t0,t1,t2);} C_noret_decl(trf_9387) static void C_ccall trf_9387(C_word c,C_word *av) C_noret; static void C_ccall trf_9387(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9387(t0,t1,t2);} C_noret_decl(trf_18409) static void C_ccall trf_18409(C_word c,C_word *av) C_noret; static void C_ccall trf_18409(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18409(t0,t1,t2);} C_noret_decl(trf_14972) static void C_ccall trf_14972(C_word c,C_word *av) C_noret; static void C_ccall trf_14972(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14972(t0,t1);} C_noret_decl(trf_14607) static void C_ccall trf_14607(C_word c,C_word *av) C_noret; static void C_ccall trf_14607(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14607(t0,t1);} C_noret_decl(trf_10105) static void C_ccall trf_10105(C_word c,C_word *av) C_noret; static void C_ccall trf_10105(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10105(t0,t1,t2);} C_noret_decl(trf_7981) static void C_ccall trf_7981(C_word c,C_word *av) C_noret; static void C_ccall trf_7981(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7981(t0,t1,t2,t3);} C_noret_decl(trf_12407) static void C_ccall trf_12407(C_word c,C_word *av) C_noret; static void C_ccall trf_12407(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12407(t0,t1,t2);} C_noret_decl(trf_14930) static void C_ccall trf_14930(C_word c,C_word *av) C_noret; static void C_ccall trf_14930(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14930(t0,t1,t2,t3);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_16103(t0,t1,t2,t3);} C_noret_decl(trf_19952) static void C_ccall trf_19952(C_word c,C_word *av) C_noret; static void C_ccall trf_19952(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19952(t0,t1);} C_noret_decl(trf_19955) static void C_ccall trf_19955(C_word c,C_word *av) C_noret; static void C_ccall trf_19955(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19955(t0,t1);} C_noret_decl(trf_12384) static void C_ccall trf_12384(C_word c,C_word *av) C_noret; static void C_ccall trf_12384(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12384(t0,t1,t2);} C_noret_decl(trf_19945) static void C_ccall trf_19945(C_word c,C_word *av) C_noret; static void C_ccall trf_19945(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_19945(t0,t1,t2,t3);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_16188(t0,t1,t2);} C_noret_decl(trf_13379) static void C_ccall trf_13379(C_word c,C_word *av) C_noret; static void C_ccall trf_13379(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13379(t0,t1,t2);} C_noret_decl(trf_13311) static void C_ccall trf_13311(C_word c,C_word *av) C_noret; static void C_ccall trf_13311(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13311(t0,t1,t2);} C_noret_decl(trf_10022) static void C_ccall trf_10022(C_word c,C_word *av) C_noret; static void C_ccall trf_10022(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10022(t0,t1,t2);} C_noret_decl(trf_16163) static void C_ccall trf_16163(C_word c,C_word *av) C_noret; static void C_ccall trf_16163(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16163(t0,t1,t2);} C_noret_decl(trf_15359) static void C_ccall trf_15359(C_word c,C_word *av) C_noret; static void C_ccall trf_15359(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15359(t0,t1);} C_noret_decl(trf_7933) static void C_ccall trf_7933(C_word c,C_word *av) C_noret; static void C_ccall trf_7933(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7933(t0,t1,t2,t3);} C_noret_decl(trf_12275) static void C_ccall trf_12275(C_word c,C_word *av) C_noret; static void C_ccall trf_12275(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12275(t0,t1,t2);} C_noret_decl(trf_10003) static void C_ccall trf_10003(C_word c,C_word *av) C_noret; static void C_ccall trf_10003(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10003(t0,t1,t2);} C_noret_decl(trf_12298) static void C_ccall trf_12298(C_word c,C_word *av) C_noret; static void C_ccall trf_12298(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12298(t0,t1,t2);} C_noret_decl(trf_13836) static void C_ccall trf_13836(C_word c,C_word *av) C_noret; static void C_ccall trf_13836(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13836(t0,t1,t2);} C_noret_decl(trf_8984) static void C_ccall trf_8984(C_word c,C_word *av) C_noret; static void C_ccall trf_8984(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8984(t0,t1,t2);} C_noret_decl(trf_18933) static void C_ccall trf_18933(C_word c,C_word *av) C_noret; static void C_ccall trf_18933(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18933(t0,t1,t2);} C_noret_decl(trf_14763) static void C_ccall trf_14763(C_word c,C_word *av) C_noret; static void C_ccall trf_14763(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14763(t0,t1,t2);} C_noret_decl(trf_14757) static void C_ccall trf_14757(C_word c,C_word *av) C_noret; static void C_ccall trf_14757(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14757(t0,t1,t2);} C_noret_decl(trf_17004) static void C_ccall trf_17004(C_word c,C_word *av) C_noret; static void C_ccall trf_17004(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17004(t0,t1);} C_noret_decl(trf_7800) static void C_ccall trf_7800(C_word c,C_word *av) C_noret; static void C_ccall trf_7800(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7800(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_15972(t0,t1);} C_noret_decl(trf_16321) static void C_ccall trf_16321(C_word c,C_word *av) C_noret; static void C_ccall trf_16321(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16321(t0,t1,t2);} C_noret_decl(trf_20083) static void C_ccall trf_20083(C_word c,C_word *av) C_noret; static void C_ccall trf_20083(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20083(t0,t1);} C_noret_decl(trf_15935) static void C_ccall trf_15935(C_word c,C_word *av) C_noret; static void C_ccall trf_15935(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_15935(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_14782) static void C_ccall trf_14782(C_word c,C_word *av) C_noret; static void C_ccall trf_14782(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14782(t0,t1,t2);} C_noret_decl(trf_16552) static void C_ccall trf_16552(C_word c,C_word *av) C_noret; static void C_ccall trf_16552(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16552(t0,t1,t2);} C_noret_decl(trf_16550) static void C_ccall trf_16550(C_word c,C_word *av) C_noret; static void C_ccall trf_16550(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_16550(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_12507) static void C_ccall trf_12507(C_word c,C_word *av) C_noret; static void C_ccall trf_12507(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12507(t0,t1,t2);} 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_17030) static void C_ccall trf_17030(C_word c,C_word *av) C_noret; static void C_ccall trf_17030(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17030(t0,t1);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_12566(t0,t1,t2);} C_noret_decl(trf_9146) static void C_ccall trf_9146(C_word c,C_word *av) C_noret; static void C_ccall trf_9146(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9146(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_11789(t0,t1,t2);} C_noret_decl(trf_11754) static void C_ccall trf_11754(C_word c,C_word *av) C_noret; static void C_ccall trf_11754(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11754(t0,t1,t2,t3);} C_noret_decl(trf_9123) static void C_ccall trf_9123(C_word c,C_word *av) C_noret; static void C_ccall trf_9123(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9123(t0,t1,t2,t3);} C_noret_decl(trf_16564) static void C_ccall trf_16564(C_word c,C_word *av) C_noret; static void C_ccall trf_16564(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16564(t0,t1,t2);} C_noret_decl(trf_9765) static void C_ccall trf_9765(C_word c,C_word *av) C_noret; static void C_ccall trf_9765(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9765(t0,t1);} C_noret_decl(trf_13672) static void C_ccall trf_13672(C_word c,C_word *av) C_noret; static void C_ccall trf_13672(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13672(t0,t1);} C_noret_decl(trf_16587) static void C_ccall trf_16587(C_word c,C_word *av) C_noret; static void C_ccall trf_16587(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_16587(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_20664) static void C_ccall trf_20664(C_word c,C_word *av) C_noret; static void C_ccall trf_20664(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20664(t0,t1,t2);} C_noret_decl(trf_18000) static void C_ccall trf_18000(C_word c,C_word *av) C_noret; static void C_ccall trf_18000(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18000(t0,t1);} C_noret_decl(trf_21327) static void C_ccall trf_21327(C_word c,C_word *av) C_noret; static void C_ccall trf_21327(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_21327(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_20018) static void C_ccall trf_20018(C_word c,C_word *av) C_noret; static void C_ccall trf_20018(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_20018(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_6713) static void C_ccall trf_6713(C_word c,C_word *av) C_noret; static void C_ccall trf_6713(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6713(t0,t1,t2);} C_noret_decl(trf_7607) static void C_ccall trf_7607(C_word c,C_word *av) C_noret; static void C_ccall trf_7607(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7607(t0,t1,t2,t3);} C_noret_decl(trf_13728) static void C_ccall trf_13728(C_word c,C_word *av) C_noret; static void C_ccall trf_13728(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13728(t0,t1,t2);} C_noret_decl(trf_6766) static void C_ccall trf_6766(C_word c,C_word *av) C_noret; static void C_ccall trf_6766(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6766(t0,t1,t2);} C_noret_decl(trf_13735) static void C_ccall trf_13735(C_word c,C_word *av) C_noret; static void C_ccall trf_13735(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13735(t0,t1);} C_noret_decl(trf_19593) static void C_ccall trf_19593(C_word c,C_word *av) C_noret; static void C_ccall trf_19593(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_19593(t0,t1,t2,t3,t4);} C_noret_decl(trf_19598) static void C_ccall trf_19598(C_word c,C_word *av) C_noret; static void C_ccall trf_19598(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19598(t0,t1,t2);} 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_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_8869) static void C_ccall trf_8869(C_word c,C_word *av) C_noret; static void C_ccall trf_8869(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8869(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_7655) static void C_ccall trf_7655(C_word c,C_word *av) C_noret; static void C_ccall trf_7655(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7655(t0,t1,t2);} C_noret_decl(trf_8846) static void C_ccall trf_8846(C_word c,C_word *av) C_noret; static void C_ccall trf_8846(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8846(t0,t1,t2);} C_noret_decl(trf_19610) static void C_ccall trf_19610(C_word c,C_word *av) C_noret; static void C_ccall trf_19610(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19610(t0,t1,t2);} C_noret_decl(trf_11900) static void C_ccall trf_11900(C_word c,C_word *av) C_noret; static void C_ccall trf_11900(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11900(t0,t1,t2);} 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_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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_16765(t0,t1,t2,t3);} 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_13700) static void C_ccall trf_13700(C_word c,C_word *av) C_noret; static void C_ccall trf_13700(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13700(t0,t1,t2);} C_noret_decl(trf_9665) static void C_ccall trf_9665(C_word c,C_word *av) C_noret; static void C_ccall trf_9665(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9665(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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7569(t0,t1,t2,t3);} C_noret_decl(trf_19644) static void C_ccall trf_19644(C_word c,C_word *av) C_noret; static void C_ccall trf_19644(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_19644(t0,t1,t2,t3);} C_noret_decl(trf_14071) static void C_ccall trf_14071(C_word c,C_word *av) C_noret; static void C_ccall trf_14071(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14071(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_18566(t0,t1);} C_noret_decl(trf_19655) static void C_ccall trf_19655(C_word c,C_word *av) C_noret; static void C_ccall trf_19655(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19655(t0,t1,t2);} C_noret_decl(trf_21378) static void C_ccall trf_21378(C_word c,C_word *av) C_noret; static void C_ccall trf_21378(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21378(t0,t1,t2);} C_noret_decl(trf_20716) static void C_ccall trf_20716(C_word c,C_word *av) C_noret; static void C_ccall trf_20716(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20716(t0,t1);} C_noret_decl(trf_20713) static void C_ccall trf_20713(C_word c,C_word *av) C_noret; static void C_ccall trf_20713(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20713(t0,t1);} C_noret_decl(trf_6925) static void C_ccall trf_6925(C_word c,C_word *av) C_noret; static void C_ccall trf_6925(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_6925(t0,t1,t2,t3,t4,t5,t6,t7,t8);} C_noret_decl(trf_9403) static void C_ccall trf_9403(C_word c,C_word *av) C_noret; static void C_ccall trf_9403(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9403(t0,t1,t2);} C_noret_decl(trf_21332) static void C_ccall trf_21332(C_word c,C_word *av) C_noret; static void C_ccall trf_21332(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21332(t0,t1,t2);} C_noret_decl(trf_10270) static void C_ccall trf_10270(C_word c,C_word *av) C_noret; static void C_ccall trf_10270(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10270(t0,t1,t2);} C_noret_decl(trf_21344) static void C_ccall trf_21344(C_word c,C_word *av) C_noret; static void C_ccall trf_21344(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21344(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_18527) static void C_ccall trf_18527(C_word c,C_word *av) C_noret; static void C_ccall trf_18527(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18527(t0,t1);} C_noret_decl(trf_10923) static void C_ccall trf_10923(C_word c,C_word *av) C_noret; static void C_ccall trf_10923(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10923(t0,t1,t2);} C_noret_decl(trf_10946) static void C_ccall trf_10946(C_word c,C_word *av) C_noret; static void C_ccall trf_10946(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10946(t0,t1,t2);} C_noret_decl(trf_11312) static void C_ccall trf_11312(C_word c,C_word *av) C_noret; static void C_ccall trf_11312(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11312(t0,t1,t2);} C_noret_decl(trf_8717) static void C_ccall trf_8717(C_word c,C_word *av) C_noret; static void C_ccall trf_8717(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8717(t0,t1);} 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[1]; C_word t1=av[0]; f_20294(t0,t1);} C_noret_decl(trf_16969) static void C_ccall trf_16969(C_word c,C_word *av) C_noret; static void C_ccall trf_16969(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16969(t0,t1);} C_noret_decl(trf_16978) static void C_ccall trf_16978(C_word c,C_word *av) C_noret; static void C_ccall trf_16978(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16978(t0,t1);} C_noret_decl(trf_20823) static void C_ccall trf_20823(C_word c,C_word *av) C_noret; static void C_ccall trf_20823(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20823(t0,t1);} C_noret_decl(trf_20826) static void C_ccall trf_20826(C_word c,C_word *av) C_noret; static void C_ccall trf_20826(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20826(t0,t1);} C_noret_decl(trf_19886) static void C_ccall trf_19886(C_word c,C_word *av) C_noret; static void C_ccall trf_19886(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_19886(t0,t1,t2,t3,t4,t5);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_7224(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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6632(t0,t1,t2,t3);} C_noret_decl(trf_9462) static void C_ccall trf_9462(C_word c,C_word *av) C_noret; static void C_ccall trf_9462(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9462(t0,t1,t2);} C_noret_decl(trf_16963) static void C_ccall trf_16963(C_word c,C_word *av) C_noret; static void C_ccall trf_16963(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16963(t0,t1);} C_noret_decl(trf_16957) static void C_ccall trf_16957(C_word c,C_word *av) C_noret; static void C_ccall trf_16957(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16957(t0,t1);} C_noret_decl(trf_9475) static void C_ccall trf_9475(C_word c,C_word *av) C_noret; static void C_ccall trf_9475(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9475(t0,t1);} C_noret_decl(trf_6675) static void C_ccall trf_6675(C_word c,C_word *av) C_noret; static void C_ccall trf_6675(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_6675(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_14286) static void C_ccall trf_14286(C_word c,C_word *av) C_noret; static void C_ccall trf_14286(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14286(t0,t1,t2,t3);} C_noret_decl(trf_6695) static void C_ccall trf_6695(C_word c,C_word *av) C_noret; static void C_ccall trf_6695(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6695(t0,t1,t2);} C_noret_decl(trf_19143) static void C_ccall trf_19143(C_word c,C_word *av) C_noret; static void C_ccall trf_19143(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19143(t0,t1,t2);} C_noret_decl(trf_17948) static void C_ccall trf_17948(C_word c,C_word *av) C_noret; static void C_ccall trf_17948(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_17948(t0,t1,t2,t3,t4);} C_noret_decl(trf_17937) static void C_ccall trf_17937(C_word c,C_word *av) C_noret; static void C_ccall trf_17937(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17937(t0,t1,t2);} C_noret_decl(trf_17927) static void C_ccall trf_17927(C_word c,C_word *av) C_noret; static void C_ccall trf_17927(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_17927(t0,t1,t2,t3);} C_noret_decl(trf_17921) static void C_ccall trf_17921(C_word c,C_word *av) C_noret; static void C_ccall trf_17921(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_17921(t0,t1,t2,t3);} C_noret_decl(trf_8470) static void C_ccall trf_8470(C_word c,C_word *av) C_noret; static void C_ccall trf_8470(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8470(t0,t1,t2);} C_noret_decl(trf_18210) static void C_ccall trf_18210(C_word c,C_word *av) C_noret; static void C_ccall trf_18210(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18210(t0,t1);} C_noret_decl(trf_13024) static void C_ccall trf_13024(C_word c,C_word *av) C_noret; static void C_ccall trf_13024(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13024(t0,t1,t2);} C_noret_decl(trf_19214) static void C_ccall trf_19214(C_word c,C_word *av) C_noret; static void C_ccall trf_19214(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19214(t0,t1,t2);} C_noret_decl(trf_15719) static void C_ccall trf_15719(C_word c,C_word *av) C_noret; static void C_ccall trf_15719(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_15719(t0,t1,t2,t3);} C_noret_decl(trf_15725) static void C_ccall trf_15725(C_word c,C_word *av) C_noret; static void C_ccall trf_15725(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_15725(t0,t1,t2,t3);} C_noret_decl(trf_14177) static void C_ccall trf_14177(C_word c,C_word *av) C_noret; static void C_ccall trf_14177(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14177(t0,t1);} C_noret_decl(trf_21483) static void C_ccall trf_21483(C_word c,C_word *av) C_noret; static void C_ccall trf_21483(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21483(t0,t1);} C_noret_decl(trf_8517) static void C_ccall trf_8517(C_word c,C_word *av) C_noret; static void C_ccall trf_8517(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8517(t0,t1);} C_noret_decl(trf_14419) static void C_ccall trf_14419(C_word c,C_word *av) C_noret; static void C_ccall trf_14419(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14419(t0,t1,t2);} C_noret_decl(trf_9519) static void C_ccall trf_9519(C_word c,C_word *av) C_noret; static void C_ccall trf_9519(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9519(t0,t1,t2);} C_noret_decl(trf_21439) static void C_ccall trf_21439(C_word c,C_word *av) C_noret; static void C_ccall trf_21439(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21439(t0,t1,t2);} C_noret_decl(trf_11673) static void C_ccall trf_11673(C_word c,C_word *av) C_noret; static void C_ccall trf_11673(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11673(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_18171(t0,t1);} C_noret_decl(trf_10641) static void C_ccall trf_10641(C_word c,C_word *av) C_noret; static void C_ccall trf_10641(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10641(t0,t1);} C_noret_decl(trf_17761) static void C_ccall trf_17761(C_word c,C_word *av) C_noret; static void C_ccall trf_17761(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17761(t0,t1);} C_noret_decl(trf_18192) static void C_ccall trf_18192(C_word c,C_word *av) C_noret; static void C_ccall trf_18192(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18192(t0,t1);} C_noret_decl(trf_20863) static void C_ccall trf_20863(C_word c,C_word *av) C_noret; static void C_ccall trf_20863(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20863(t0,t1);} C_noret_decl(trf_10607) static void C_ccall trf_10607(C_word c,C_word *av) C_noret; static void C_ccall trf_10607(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10607(t0,t1);} C_noret_decl(trf_17700) static void C_ccall trf_17700(C_word c,C_word *av) C_noret; static void C_ccall trf_17700(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17700(t0,t1,t2);} C_noret_decl(trf_19207) static void C_ccall trf_19207(C_word c,C_word *av) C_noret; static void C_ccall trf_19207(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19207(t0,t1);} C_noret_decl(trf_6874) static void C_ccall trf_6874(C_word c,C_word *av) C_noret; static void C_ccall trf_6874(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6874(t0,t1,t2);} C_noret_decl(trf_8622) static void C_ccall trf_8622(C_word c,C_word *av) C_noret; static void C_ccall trf_8622(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8622(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_8302(t0,t1,t2);} C_noret_decl(trf_11661) static void C_ccall trf_11661(C_word c,C_word *av) C_noret; static void C_ccall trf_11661(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11661(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_11656) static void C_ccall trf_11656(C_word c,C_word *av) C_noret; static void C_ccall trf_11656(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_11656(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_7040) static void C_ccall trf_7040(C_word c,C_word *av) C_noret; static void C_ccall trf_7040(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7040(t0,t1,t2);} C_noret_decl(trf_17869) static void C_ccall trf_17869(C_word c,C_word *av) C_noret; static void C_ccall trf_17869(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17869(t0,t1);} C_noret_decl(trf_15113) static void C_ccall trf_15113(C_word c,C_word *av) C_noret; static void C_ccall trf_15113(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_15113(t0,t1,t2,t3);} C_noret_decl(trf_12181) static void C_ccall trf_12181(C_word c,C_word *av) C_noret; static void C_ccall trf_12181(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12181(t0,t1,t2);} C_noret_decl(trf_17842) static void C_ccall trf_17842(C_word c,C_word *av) C_noret; static void C_ccall trf_17842(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17842(t0,t1);} C_noret_decl(trf_10505) static void C_ccall trf_10505(C_word c,C_word *av) C_noret; static void C_ccall trf_10505(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10505(t0,t1);} C_noret_decl(trf_10554) static void C_ccall trf_10554(C_word c,C_word *av) C_noret; static void C_ccall trf_10554(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10554(t0,t1);} C_noret_decl(trf_6503) static void C_ccall trf_6503(C_word c,C_word *av) C_noret; static void C_ccall trf_6503(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6503(t0,t1,t2,t3);} C_noret_decl(trf_18109) static void C_ccall trf_18109(C_word c,C_word *av) C_noret; static void C_ccall trf_18109(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18109(t0,t1,t2);} C_noret_decl(trf_18100) static void C_ccall trf_18100(C_word c,C_word *av) C_noret; static void C_ccall trf_18100(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18100(t0,t1,t2);} C_noret_decl(trf_6538) static void C_ccall trf_6538(C_word c,C_word *av) C_noret; static void C_ccall trf_6538(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6538(t0,t1,t2,t3);} C_noret_decl(trf_6566) static void C_ccall trf_6566(C_word c,C_word *av) C_noret; static void C_ccall trf_6566(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6566(t0,t1,t2);} C_noret_decl(trf_16263) static void C_ccall trf_16263(C_word c,C_word *av) C_noret; static void C_ccall trf_16263(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16263(t0,t1);} C_noret_decl(trf_16260) static void C_ccall trf_16260(C_word c,C_word *av) C_noret; static void C_ccall trf_16260(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16260(t0,t1);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6583(t0,t1,t2,t3);} C_noret_decl(trf_6516) static void C_ccall trf_6516(C_word c,C_word *av) C_noret; static void C_ccall trf_6516(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6516(t0,t1);} C_noret_decl(trf_8151) static void C_ccall trf_8151(C_word c,C_word *av) C_noret; static void C_ccall trf_8151(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8151(t0,t1);} C_noret_decl(trf_20420) static void C_ccall trf_20420(C_word c,C_word *av) C_noret; static void C_ccall trf_20420(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20420(t0,t1);} /* k12171 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_12173,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[89]); 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_12181,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_12181(t6,((C_word*)t0)[2],t1);} /* k18864 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_18866(C_word t0,C_word t1){ C_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(31,0,3)))){ C_save_and_reclaim_args((void *)trf_18866,2,t0,t1);} a=C_alloc(31); t2=C_a_i_record4(&a,4,lf[469],((C_word*)t0)[2],((C_word*)t0)[3],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|4,a[1]=(C_word)f_18773,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); t9=C_i_check_list_2(((C_word*)t0)[7],lf[123]); t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18787,a[2]=t3,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],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_18826,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_18826(t14,t10,((C_word*)t0)[7]);} /* macro-alias in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_6553(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_6553,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6557,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* compiler.scm:420: gensym */ 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);}} /* a8113 in k8107 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; C_word t6; C_word t7; C_word t8; C_word 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_8114,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=*((C_word*)lf[88]+1); t10=t2; t11=C_i_check_list_2(t10,lf[123]); t12=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8124,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,a[9]=t4,a[10]=t3,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); 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_8228,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_8228(t16,t12,t10);} /* k6555 in macro-alias in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_6557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6557,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6560,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_6564,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:421: lookup */ t5=((C_word*)((C_word*)t0)[3])[1]; f_6538(t5,t4,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k8107 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8109(C_word c,C_word *av){ C_word tmp; C_word t0=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,5)))){ C_save_and_reclaim((void *)f_8109,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8114,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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); /* compiler.scm:665: decompose-lambda-list */ t3=*((C_word*)lf[170]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18871 in k18868 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_18873,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_18866(t2,C_a_i_list1(&a,1,t1));} /* k18868 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_18870,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18873,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_18881,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18902,a[2]=t3,a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:2435: unzip1 */ t6=*((C_word*)lf[154]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ t4=((C_word*)t0)[2]; f_18866(t4,C_a_i_list1(&a,1,t2));}} /* k15665 in k15677 in k15690 in k15619 in k15616 in k15357 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,1)))){ C_save_and_reclaim((void *)f_15667,2,av);} a=C_alloc(19); t2=C_a_i_list1(&a,1,t1); t3=C_a_i_record4(&a,4,lf[469],lf[345],((C_word*)t0)[2],t2); t4=C_a_i_list2(&a,2,((C_word*)t0)[3],t3); t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[469],lf[150],((C_word*)t0)[5],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k17425 in g3860 in a17384 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_17427(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_17427,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17430,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2167: put! */ t3=*((C_word*)lf[493]+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[394]; 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);}}} /* g3860 in a17384 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_17420(C_word t0,C_word t1,C_word 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_17420,3,t0,t1,t2);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17427,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_17445,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:2165: get */ t5=*((C_word*)lf[496]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t2; av2[4]=lf[523]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* g382 in k7186 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_7193(C_word t0,C_word t1,C_word 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_7193,3,t0,t1,t2);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7201,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); /* compiler.scm:555: ##sys#strip-syntax */ t5=*((C_word*)lf[118]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k15677 in k15690 in k15619 in k15616 in k15357 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_15679,2,av);} a=C_alloc(17); t2=C_a_i_list1(&a,1,t1); t3=C_a_i_record4(&a,4,lf[469],lf[161],((C_word*)t0)[2],t2); t4=t3; t5=C_a_i_list1(&a,1,((C_word*)t0)[3]); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15667,a[2]=t6,a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:1813: varnode */ t8=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t4; C_word t5; C_word 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,8)))){ C_save_and_reclaim((void *)f_7036,2,av);} a=C_alloc(19); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7040,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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); /* compiler.scm:518: g347 */ t3=t2; f_7040(t3,((C_word*)t0)[10],t1);} else{ t2=((C_word*)t0)[11]; t3=C_eqp(t2,lf[113]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7068,a[2]=((C_word*)t0)[10],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)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); t5=C_i_cadr(((C_word*)t0)[2]); /* compiler.scm:530: walk */ t6=((C_word*)((C_word*)t0)[3])[1]; f_6925(t6,t4,t5,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[8],((C_word*)t0)[9]);} else{ t4=C_eqp(t2,lf[116]); t5=(C_truep(t4)?t4:C_eqp(t2,lf[117])); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7114,a[2]=((C_word*)t0)[10],tmp=(C_word)a,a+=3,tmp); t7=C_i_cadr(((C_word*)t0)[2]); /* compiler.scm:537: ##sys#strip-syntax */ t8=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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[119]); if(C_truep(t6)){ if(C_truep(*((C_word*)lf[10]+1))){ t7=((C_word*)t0)[10];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=lf[120]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_i_cadr(((C_word*)t0)[2]); /* compiler.scm:542: walk */ t8=((C_word*)((C_word*)t0)[3])[1]; f_6925(t8,((C_word*)t0)[10],t7,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}} else{ t7=C_eqp(t2,lf[121]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7147,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[10],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); t9=C_i_cadr(((C_word*)t0)[2]); /* compiler.scm:546: ##sys#strip-syntax */ t10=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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[122]); if(C_truep(t8)){ t9=(C_truep(((C_word*)t0)[9])?((C_word*)t0)[9]:C_i_cadr(((C_word*)t0)[2])); t10=t9; t11=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7188,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]=t10,a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t12=C_i_caddr(((C_word*)t0)[2]); /* compiler.scm:553: walk */ t13=((C_word*)((C_word*)t0)[3])[1]; f_6925(t13,t11,t12,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[8],((C_word*)t0)[9]);} else{ t9=C_eqp(t2,lf[124]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7272,a[2]=((C_word*)t0)[10],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:560: cadadr */ t11=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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[129]); t11=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_7317,a[2]=((C_word*)t0)[10],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]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],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)[11],tmp=(C_word)a,a+=19,tmp); if(C_truep(t10)){ t12=t11; f_7317(t12,t10);} else{ t12=C_eqp(t2,lf[345]); t13=t11; f_7317(t13,(C_truep(t12)?t12:C_eqp(t2,lf[98])));}}}}}}}}} /* k17417 in k17387 in a17384 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17419,2,av);} t2=((C_word*)t0)[2]; f_17395(t2,C_i_not(t1));} /* a16229 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16230(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16230,5,av);} a=C_alloc(20); t5=C_i_car(((C_word*)t0)[2]); t6=t5; t7=*((C_word*)lf[47]+1); t8=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_16237,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=t7,a[7]=t1,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_16345,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); /* compiler.scm:1936: collect! */ t10=*((C_word*)lf[498]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[508]; av2[5]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}} else{ t9=t8;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_16237(2,av2);}}} /* k9992 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t6; C_word 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_9994,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|7,a[1]=(C_word)f_10003,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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); t8=C_i_cddr(((C_word*)t0)[8]); t9=C_i_check_list_2(t8,lf[123]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10020,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=((C_word*)t0)[9],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_10022,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_10022(t14,t10,t8);} /* for-each-loop978 in a8764 in k8758 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_8787(C_word t0,C_word 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_8787,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_8797,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); /* compiler.scm:811: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t5; av2[3]=lf[190]; 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);}}} /* k16235 in a16229 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16237(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_16237,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16238,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[89]); t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_16251,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_16321,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_16321(t9,t5,t3);} /* g3524 in k16235 in a16229 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16238(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_16238,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16242,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:1940: put! */ t4=*((C_word*)lf[493]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=lf[500]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k7145 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_7147,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_7155,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]); /* compiler.scm:548: walk */ t7=((C_word*)((C_word*)t0)[4])[1]; f_6925(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]);} /* k17443 in g3860 in a17384 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_17445,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_17427(t2,C_SCHEME_FALSE);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17441,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2166: get */ t3=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[509]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,3)))){ C_save_and_reclaim((void *)f_7021,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_7024,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],tmp=(C_word)a,a+=19,tmp); if(C_truep(((C_word*)t0)[9])){ /* compiler.scm:517: update-line-number-database! */ t4=*((C_word*)lf[346]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_7024(2,av2);}}} /* k16240 in g3524 in k16235 in a16229 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16242(C_word c,C_word *av){ C_word tmp; C_word 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_16242,2,av);} /* compiler.scm:1941: put! */ t2=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[501]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k17439 in k17443 in g3860 in a17384 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17441,2,av);} t2=((C_word*)t0)[2]; f_17427(t2,C_i_not(t1));} /* k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,8)))){ C_save_and_reclaim((void *)f_7024,2,av);} a=C_alloc(18); t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_7036,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)[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],tmp=(C_word)a,a+=18,tmp); if(C_truep(*((C_word*)lf[52]+1))){ /* compiler.scm:521: ##sys#hash-table-ref */ t4=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[51]+1); av2[3]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_7036(2,av2);}}} else{ /* compiler.scm:519: walk */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6925(t3,((C_word*)t0)[11],((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);}} /* k15690 in k15619 in k15616 in k15357 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,2)))){ C_save_and_reclaim((void *)f_15692,2,av);} a=C_alloc(26); 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|6,a[1]=(C_word)f_15679,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],tmp=(C_word)a,a+=7,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15683,a[2]=((C_word*)t0)[7],a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1811: varnode */ t7=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_15698(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_15698,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(5); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15704,a[2]=t2,a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:1816: walk-arguments */ t7=((C_word*)((C_word*)t0)[2])[1]; f_15719(t7,t1,t4,t6);} /* k6591 in for-each-loop174 in set-real-names! in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6593,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_6583(t4,((C_word*)t0)[5],t2,t3);} /* k17428 in k17425 in g3860 in a17384 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17430,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18719,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_18722,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((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],tmp=(C_word)a,a+=18,tmp); /* compiler.scm:2399: gensym */ t4=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[127]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ 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 t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){ C_save_and_reclaim((void *)f_18713,2,av);} a=C_alloc(24); t2=C_i_check_list_2(t1,lf[123]); t3=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_18719,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); 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_19095,a[2]=((C_word*)t0)[17],a[3]=t5,a[4]=((C_word*)t0)[18],tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_19095(t7,t3,((C_word*)t0)[19],t1);} /* k11813 in a11807 in globalize-all in process-declaration in k6339 in k6336 in k6333 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_11815,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11818,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1347: note-local */ f_11823(t2,((C_word*)t0)[4]);} else{ /* compiler.scm:1349: ##sys#globalize */ t2=*((C_word*)lf[358]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k11816 in k11813 in a11807 in globalize-all in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_11818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11818,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop3859 in a17384 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_17453(C_word t0,C_word t1,C_word 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_17453,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_17463,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.scm:2163: g3860 */ t5=((C_word*)t0)[3]; f_17420(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);}}} /* globalize-all in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_11802(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_11802,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11808,a[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.scm:1344: filter-map */ t4=*((C_word*)lf[359]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a11807 in globalize-all in process-declaration in k6339 in k6336 in k6333 */ 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; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_11808,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11815,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); /* compiler.scm:1346: local? */ t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* map-loop2844 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ static void C_fcall f_14367(C_word t0,C_word t1,C_word 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_14367,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_14392,a[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)); /* compiler.scm:1638: g2850 */ 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);}}} /* k11829 in note-local in process-declaration in k6339 in k6336 in k6333 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_11831,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[101]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11837,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.scm:1353: ##sys#print */ t6=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[360]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11835 in k11829 in note-local in process-declaration in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11837,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11840,a[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.scm:1353: ##sys#print */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9969 in k9966 in k9960 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9971(C_word c,C_word *av){ C_word tmp; C_word t0=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_9971,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9974,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:953: ##sys#print */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[266]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9975 in k9972 in k9969 in k9966 in k9960 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9977,2,av);} /* compiler.scm:952: warning */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9972 in k9969 in k9966 in k9960 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9974(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9974,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9977,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:953: get-output-string */ t3=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17490 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_17492(C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_17492,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_slot(t2,C_fix(2)); t4=C_i_car(t3); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17501,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); /* compiler.scm:2143: collapsable-literal? */ t6=*((C_word*)lf[313]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t2=((C_word*)t0)[4]; f_16963(t2,C_SCHEME_UNDEFINED);}} /* k12893 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_12895,2,av);} a=C_alloc(6); if(C_truep(C_i_nullp(t1))){ t2=C_set_block_item(lf[14] /* ##compiler#block-compilation */,0,C_SCHEME_TRUE); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=*((C_word*)lf[125]+1); t3=C_i_check_list_2(t1,lf[89]); 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_12910,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_12910(t7,((C_word*)t0)[3],t1);}} /* map-loop617 in k7726 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_7766(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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_7766,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[157],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_mutate2(((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);}}} /* k15681 in k15690 in k15619 in k15616 in k15357 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15683,2,av);} /* compiler.scm:1811: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop4460 in k18864 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_18826(C_word t0,C_word t1,C_word 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_18826,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_18851,a[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)); /* compiler.scm:2440: g4466 */ t5=((C_word*)t0)[4]; f_18773(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);}}} /* k15616 in k15357 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_15618,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15621,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); /* compiler.scm:1807: gensym */ t4=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[336]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18700,5,av);} a=C_alloc(19); t5=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_18704,a[2]=((C_word*)t0)[2],a[3]=((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]=t2,a[12]=t4,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_19177,a[2]=((C_word*)t0)[11],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2397: filter */ t7=*((C_word*)lf[571]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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(38,c,3)))){ C_save_and_reclaim((void *)f_18704,2,av);} a=C_alloc(38); 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_word*)lf[88]+1); t13=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_18713,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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]=t5,a[18]=t6,a[19]=t7,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|5,a[1]=(C_word)f_19143,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_19143(t17,t13,t2);} /* k7730 in k7726 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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(6,c,8)))){ C_save_and_reclaim((void *)f_7732,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[149],t2); /* compiler.scm:628: walk */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6925(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_word*)t0)[10]);} /* a8764 in k8758 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8765,2,av);} a=C_alloc(5); t2=C_i_check_list_2(((C_word*)t0)[2],lf[89]); 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_8787,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_8787(t6,t1,((C_word*)t0)[2]);} /* k8758 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; 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_8760,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8765,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8810,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8824,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:807: dynamic-wind */ t6=*((C_word*)lf[196]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=((C_word*)t0)[10]; av2[2]=t3; av2[3]=t4; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11859 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_11861(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11861,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop2973 in k14498 in expand-foreign-lambda* in k6339 in k6336 in k6333 */ static void C_fcall f_14565(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_14565,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_mutate2(((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);}}} /* k18788 in k18785 in k18864 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18790,2,av);} a=C_alloc(8); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[563],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11865 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_11867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11867,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11870,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t3; av2[2]=*((C_word*)lf[366]+1); av2[3]=t2; C_apply(4,av2);}} /* k15619 in k15616 in k15357 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ 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 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_15621,2,av);} a=C_alloc(11); t2=t1; t3=C_a_i_list1(&a,1,((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15692,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* compiler.scm:285: gensym */ t6=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[474]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k8737 in k8733 in k8708 in k8705 in g954 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8739,2,av);} /* compiler.scm:801: ##sys#ensure-transformer */ t2=*((C_word*)lf[175]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8733 in k8708 in k8705 in g954 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8735,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8739,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_car(t4); /* compiler.scm:803: ##sys#strip-syntax */ t6=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k8729 in k8708 in k8705 in g954 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8731,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_8717(t2,C_a_i_cons(&a,2,t1,((C_word*)t0)[3]));} /* k11892 in k11877 in k11868 in k11865 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_11894(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11894,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11898,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1369: append */ t3=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[9]+1); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11896 in k11892 in k11877 in k11868 in k11865 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_11898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11898,2,av);} t2=C_mutate2((C_word*)lf[9]+1 /* (set! ##compiler#used-units ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11889 in map-loop1924 in k11877 in k11868 in k11865 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_11891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11891,2,av);} /* compiler.scm:1368: string->c-identifier */ t2=*((C_word*)lf[363]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7726 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; C_word t3; C_word t4; C_word 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_7728,2,av);} a=C_alloc(27); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7732,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_7752,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_7766,a[2]=t6,a[3]=t10,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_7766(t12,t8,((C_word*)t0)[11]);} /* k8795 in for-each-loop978 in a8764 in k8758 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8797(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8797,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_8787(t3,((C_word*)t0)[4],t2);} /* note-local in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_11823(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_11823,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11831,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1353: open-output-string */ t4=*((C_word*)lf[107]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_11851(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_11851,2,t0,t1);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11855,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_11855(2,av2);}} else{ /* compiler.scm:1357: syntax-error */ t3=*((C_word*)lf[330]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=lf[440]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_11858,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11861,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_eqp(t1,lf[362]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11867,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=((C_word*)t0)[3]; t6=C_u_i_cdr(t5); /* compiler.scm:1361: stripu */ t7=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t4; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t4=C_eqp(t1,lf[367]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11952,a[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.scm:1371: check-decl */ f_11754(t5,((C_word*)t0)[3],C_fix(1),C_a_i_list(&a,1,C_fix(1)));} else{ t5=C_eqp(t1,lf[6]); if(C_truep(t5)){ t6=((C_word*)t0)[3]; t7=C_u_i_cdr(t6); if(C_truep(C_i_nullp(t7))){ t8=C_mutate2((C_word*)lf[6]+1 /* (set! standard-bindings ...) */,*((C_word*)lf[369]+1)); t9=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12000,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12004,a[2]=t8,tmp=(C_word)a,a+=3,tmp); t10=((C_word*)t0)[3]; t11=C_u_i_cdr(t10); /* compiler.scm:1380: stripa */ t12=((C_word*)((C_word*)t0)[6])[1]; f_11789(t12,t9,t11);}} else{ t6=C_eqp(t1,lf[7]); if(C_truep(t6)){ t7=((C_word*)t0)[3]; t8=C_u_i_cdr(t7); if(C_truep(C_i_nullp(t8))){ t9=C_mutate2((C_word*)lf[7]+1 /* (set! extended-bindings ...) */,*((C_word*)lf[370]+1)); t10=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12025,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12029,a[2]=t9,tmp=(C_word)a,a+=3,tmp); t11=((C_word*)t0)[3]; t12=C_u_i_cdr(t11); /* compiler.scm:1384: stripa */ t13=((C_word*)((C_word*)t0)[6])[1]; f_11789(t13,t10,t12);}} else{ t7=C_eqp(t1,lf[371]); if(C_truep(t7)){ t8=((C_word*)t0)[3]; t9=C_u_i_cdr(t8); if(C_truep(C_i_nullp(t9))){ t10=C_mutate2((C_word*)lf[6]+1 /* (set! standard-bindings ...) */,*((C_word*)lf[369]+1)); t11=C_mutate2((C_word*)lf[7]+1 /* (set! extended-bindings ...) */,*((C_word*)lf[370]+1)); t12=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12050,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t11=((C_word*)t0)[3]; t12=C_u_i_cdr(t11); /* compiler.scm:1390: stripa */ t13=((C_word*)((C_word*)t0)[6])[1]; f_11789(t13,t10,t12);}} else{ t8=C_eqp(t1,lf[4]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12071,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1394: check-decl */ f_11754(t9,((C_word*)t0)[3],C_fix(1),C_a_i_list(&a,1,C_fix(1)));} else{ t9=C_eqp(t1,lf[373]); t10=(C_truep(t9)?t9:C_eqp(t1,lf[374])); if(C_truep(t10)){ t11=C_mutate2((C_word*)lf[4]+1 /* (set! number-type ...) */,lf[373]); t12=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t11=C_eqp(t1,lf[5]); if(C_truep(t11)){ t12=C_mutate2((C_word*)lf[4]+1 /* (set! number-type ...) */,lf[5]); t13=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t12=C_eqp(t1,lf[10]); if(C_truep(t12)){ t13=C_set_block_item(lf[10] /* unsafe */,0,C_SCHEME_TRUE); t14=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t13=C_eqp(t1,lf[375]); if(C_truep(t13)){ t14=C_set_block_item(lf[10] /* unsafe */,0,C_SCHEME_FALSE); t15=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t14=C_eqp(t1,lf[376]); if(C_truep(t14)){ t15=C_set_block_item(lf[20] /* ##compiler#no-bound-checks */,0,C_SCHEME_TRUE); t16=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ t15=C_eqp(t1,lf[377]); if(C_truep(t15)){ t16=C_set_block_item(lf[21] /* ##compiler#no-argc-checks */,0,C_SCHEME_TRUE); t17=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t17; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}} else{ t16=C_eqp(t1,lf[378]); if(C_truep(t16)){ t17=C_set_block_item(lf[22] /* ##compiler#no-procedure-checks */,0,C_SCHEME_TRUE); t18=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} else{ t17=C_eqp(t1,lf[379]); if(C_truep(t17)){ t18=C_set_block_item(lf[8] /* ##compiler#insert-timer-checks */,0,C_SCHEME_TRUE); t19=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t19; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ t18=C_eqp(t1,lf[380]); if(C_truep(t18)){ t19=C_set_block_item(lf[8] /* ##compiler#insert-timer-checks */,0,C_SCHEME_FALSE); t20=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t20; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} else{ t19=C_eqp(t1,lf[381]); if(C_truep(t19)){ t20=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12173,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t21=((C_word*)t0)[3]; t22=C_u_i_cdr(t21); /* compiler.scm:1406: stripa */ t23=((C_word*)((C_word*)t0)[6])[1]; f_11789(t23,t20,t22);} else{ t20=C_eqp(t1,lf[382]); if(C_truep(t20)){ t21=C_set_block_item(lf[25] /* ##compiler#safe-globals-flag */,0,C_SCHEME_TRUE); t22=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t22; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}} else{ t21=C_eqp(t1,lf[383]); if(C_truep(t21)){ t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12239,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1411: append */ t23=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t23; av2[1]=t22; av2[2]=*((C_word*)lf[369]+1); av2[3]=*((C_word*)lf[370]+1); ((C_proc)(void*)(*((C_word*)t23+1)))(4,av2);}} else{ t22=C_eqp(t1,lf[384]); if(C_truep(t22)){ t23=C_set_block_item(lf[23] /* ##compiler#no-global-procedure-checks */,0,C_SCHEME_TRUE); t24=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t24; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t24+1)))(2,av2);}} else{ t23=C_eqp(t1,lf[385]); if(C_truep(t23)){ t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12335,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t25=((C_word*)t0)[3]; t26=C_u_i_cdr(t25); /* compiler.scm:1418: globalize-all */ t27=((C_word*)((C_word*)t0)[7])[1]; f_11802(t27,t24,t26);} else{ t24=C_eqp(t1,lf[386]); if(C_truep(t24)){ t25=((C_word*)t0)[3]; t26=C_u_i_cdr(t25); t27=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12443,a[2]=((C_word*)t0)[2],a[3]=t26,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:1423: every */ t28=*((C_word*)lf[389]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t28; av2[1]=t27; av2[2]=*((C_word*)lf[390]+1); av2[3]=t26; ((C_proc)(void*)(*((C_word*)t28+1)))(4,av2);}} else{ t25=C_eqp(t1,lf[391]); if(C_truep(t25)){ t26=C_set_block_item(lf[14] /* ##compiler#block-compilation */,0,C_SCHEME_TRUE); t27=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t27; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t27+1)))(2,av2);}} else{ t26=C_eqp(t1,lf[392]); if(C_truep(t26)){ t27=C_set_block_item(lf[14] /* ##compiler#block-compilation */,0,C_SCHEME_FALSE); t28=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t28; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t28+1)))(2,av2);}} else{ t27=C_eqp(t1,lf[393]); if(C_truep(t27)){ t28=C_set_block_item(lf[32] /* ##compiler#undefine-shadowed-macros */,0,C_SCHEME_FALSE); t29=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t29; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t29+1)))(2,av2);}} else{ t28=C_eqp(t1,lf[394]); if(C_truep(t28)){ t29=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12499,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t30=((C_word*)t0)[3]; t31=C_u_i_cdr(t30); /* compiler.scm:1430: globalize-all */ t32=((C_word*)((C_word*)t0)[7])[1]; f_11802(t32,t29,t31);} else{ t29=C_eqp(t1,lf[396]); if(C_truep(t29)){ t30=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12558,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t31=((C_word*)t0)[3]; t32=C_u_i_cdr(t31); /* compiler.scm:1434: globalize-all */ t33=((C_word*)((C_word*)t0)[7])[1]; f_11802(t33,t30,t32);} else{ t30=C_eqp(t1,lf[398]); if(C_truep(t30)){ t31=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12598,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); /* compiler.scm:1436: check-decl */ f_11754(t31,((C_word*)t0)[3],C_fix(1),C_SCHEME_END_OF_LIST);} else{ t31=C_eqp(t1,lf[406]); if(C_truep(t31)){ t32=C_set_block_item(lf[179] /* ##sys#enable-runtime-macros */,0,C_SCHEME_TRUE); t33=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t33; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t33+1)))(2,av2);}} else{ t32=C_eqp(t1,lf[407]); t33=(C_truep(t32)?t32:C_eqp(t1,lf[408])); if(C_truep(t33)){ t34=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12895,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t35=((C_word*)t0)[3]; t36=C_u_i_cdr(t35); /* compiler.scm:1480: globalize-all */ t37=((C_word*)((C_word*)t0)[7])[1]; f_11802(t37,t34,t36);} else{ t34=C_eqp(t1,lf[409]); if(C_truep(t34)){ t35=C_set_block_item(lf[14] /* ##compiler#block-compilation */,0,C_SCHEME_TRUE); t36=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12943,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t37=((C_word*)t0)[3]; t38=C_u_i_cdr(t37); /* compiler.scm:1486: globalize-all */ t39=((C_word*)((C_word*)t0)[7])[1]; f_11802(t39,t36,t38);} else{ t35=C_eqp(t1,lf[411]); if(C_truep(t35)){ t36=C_set_block_item(lf[29] /* ##compiler#external-protos-first */,0,C_SCHEME_TRUE); t37=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t37; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t37+1)))(2,av2);}} else{ t36=C_eqp(t1,lf[400]); if(C_truep(t36)){ t37=((C_word*)t0)[3]; t38=C_u_i_cdr(t37); if(C_truep(C_i_nullp(t38))){ t39=C_set_block_item(lf[39] /* ##compiler#inline-locally */,0,C_SCHEME_TRUE); t40=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t40; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t40+1)))(2,av2);}} else{ t39=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13016,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t40=((C_word*)t0)[3]; t41=C_u_i_cdr(t40); /* compiler.scm:1495: globalize-all */ t42=((C_word*)((C_word*)t0)[7])[1]; f_11802(t42,t39,t41);}} else{ t37=C_eqp(t1,lf[413]); if(C_truep(t37)){ t38=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13058,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:1497: check-decl */ f_11754(t38,((C_word*)t0)[3],C_fix(1),C_a_i_list(&a,1,C_fix(1)));} else{ t38=C_eqp(t1,lf[415]); if(C_truep(t38)){ t39=((C_word*)t0)[3]; t40=C_u_i_cdr(t39); t41=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13084,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=t40,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:1506: every */ t42=*((C_word*)lf[389]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t42; av2[1]=t41; av2[2]=*((C_word*)lf[418]+1); av2[3]=t40; ((C_proc)(void*)(*((C_word*)t42+1)))(4,av2);}} else{ t39=C_eqp(t1,lf[419]); if(C_truep(t39)){ t40=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13148,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t41=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t42=t41; t43=(*a=C_VECTOR_TYPE|1,a[1]=t42,tmp=(C_word)a,a+=2,tmp); t44=((C_word*)t43)[1]; t45=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13224,a[2]=t40,a[3]=t43,a[4]=t44,tmp=(C_word)a,a+=5,tmp); t46=((C_word*)t0)[3]; t47=C_u_i_cdr(t46); /* compiler.scm:1341: ##sys#strip-syntax */ t48=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t48; av2[1]=t45; av2[2]=t47; ((C_proc)(void*)(*((C_word*)t48+1)))(3,av2);}} else{ t40=C_eqp(t1,lf[422]); if(C_truep(t40)){ t41=C_set_block_item(lf[19] /* ##compiler#emit-profile */,0,C_SCHEME_TRUE); t42=((C_word*)t0)[3]; t43=C_u_i_cdr(t42); if(C_truep(C_i_nullp(t43))){ t44=C_mutate2((C_word*)lf[33]+1 /* (set! ##compiler#profiled-procedures ...) */,lf[163]); t45=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t45; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t45+1)))(2,av2);}} else{ t44=C_mutate2((C_word*)lf[33]+1 /* (set! ##compiler#profiled-procedures ...) */,lf[164]); t45=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13303,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t46=((C_word*)t0)[3]; t47=C_u_i_cdr(t46); /* compiler.scm:1533: globalize-all */ t48=((C_word*)((C_word*)t0)[7])[1]; f_11802(t48,t45,t47);}} else{ t41=C_eqp(t1,lf[423]); if(C_truep(t41)){ t42=((C_word*)t0)[3]; t43=C_u_i_cdr(t42); if(C_truep(C_i_nullp(t43))){ t44=C_set_block_item(lf[38] /* ##compiler#local-definitions */,0,C_SCHEME_TRUE); t45=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t45; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t45+1)))(2,av2);}} else{ t44=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13371,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t45=((C_word*)t0)[3]; t46=C_u_i_cdr(t45); /* compiler.scm:1540: stripa */ t47=((C_word*)((C_word*)t0)[6])[1]; f_11789(t47,t44,t46);}} else{ t42=C_eqp(t1,lf[403]); if(C_truep(t42)){ t43=C_set_block_item(lf[40] /* ##compiler#enable-inline-files */,0,C_SCHEME_TRUE); t44=C_set_block_item(lf[39] /* ##compiler#inline-locally */,0,C_SCHEME_TRUE); t45=((C_word*)t0)[3]; t46=C_u_i_cdr(t45); if(C_truep(C_i_pairp(t46))){ t47=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13440,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t48=((C_word*)t0)[3]; t49=C_u_i_cdr(t48); /* compiler.scm:1547: globalize-all */ t50=((C_word*)((C_word*)t0)[7])[1]; f_11802(t50,t47,t49);} else{ t47=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t47; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t47+1)))(2,av2);}}} else{ t43=C_eqp(t1,lf[425]); if(C_truep(t43)){ t44=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13480,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[89]); 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_13700,a[2]=t49,a[3]=t44,tmp=(C_word)a,a+=4,tmp)); t51=((C_word*)t49)[1]; f_13700(t51,t2,t46);} else{ t44=C_eqp(t1,lf[434]); if(C_truep(t44)){ t45=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13728,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); t46=((C_word*)t0)[3]; t47=C_u_i_cdr(t46); t48=C_i_check_list_2(t47,lf[89]); t49=C_SCHEME_UNDEFINED; t50=(*a=C_VECTOR_TYPE|1,a[1]=t49,tmp=(C_word)a,a+=2,tmp); t51=C_set_block_item(t50,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13836,a[2]=t50,a[3]=t45,tmp=(C_word)a,a+=4,tmp)); t52=((C_word*)t50)[1]; f_13836(t52,t2,t47);} else{ t45=C_eqp(t1,lf[437]); if(C_truep(t45)){ t46=C_set_block_item(lf[44] /* ##compiler#enable-specialization */,0,C_SCHEME_TRUE); t47=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t47; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t47+1)))(2,av2);}} else{ t46=C_eqp(t1,lf[438]); if(C_truep(t46)){ t47=C_set_block_item(lf[43] /* ##compiler#strict-variable-types */,0,C_SCHEME_TRUE); t48=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t48; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t48+1)))(2,av2);}} else{ /* compiler.scm:1603: warning */ t47=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t47; av2[1]=t2; av2[2]=lf[439]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t47+1)))(4,av2);}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} /* k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_11855(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_11855,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11858,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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); /* compiler.scm:1359: ##sys#strip-syntax */ t5=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7750 in k7726 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7752,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[149],t2); t4=C_a_i_list(&a,1,t3); /* compiler.scm:406: ##sys#append */ t5=*((C_word*)lf[156]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20934 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_20936(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_20936,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ /* compiler.scm:2774: immediate-literal */ f_21483(((C_word*)t0)[3],((C_word*)t0)[4]);} else{ if(C_truep(C_i_numberp(((C_word*)t0)[4]))){ t2=C_eqp(lf[373],*((C_word*)lf[4]+1)); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20957,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); if(C_truep(C_i_integerp(((C_word*)t0)[4]))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21006,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2777: big-fixnum? */ t5=*((C_word*)lf[630]+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_20957(t4,C_SCHEME_FALSE);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21022,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2784: literal */ t4=((C_word*)((C_word*)t0)[5])[1]; f_21378(t4,t3,((C_word*)t0)[4]);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21028,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:2785: immediate? */ t3=*((C_word*)lf[577]+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);}}}} /* k12811 in for-each-loop2282 in k12793 in k12599 in k12596 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12813,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_12803(t3,((C_word*)t0)[4],t2);} /* k15606 in k15527 in k15524 in walk-call in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(30,c,2)))){ C_save_and_reclaim((void *)f_15608,2,av);} a=C_alloc(30); 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|10,a[1]=(C_word)f_15595,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],tmp=(C_word)a,a+=11,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15599,a[2]=((C_word*)t0)[11],a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1797: varnode */ t7=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11838 in k11835 in k11829 in note-local in process-declaration in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_11840,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11843,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1353: ##sys#write-char-0 */ t3=*((C_word*)lf[254]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* g4466 in k18864 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_18773(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_18773,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18781,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); /* compiler.scm:2440: varnode */ t4=*((C_word*)lf[471]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11841 in k11838 in k11835 in k11829 in note-local in process-declaration in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11843,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11846,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1353: get-output-string */ t3=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11844 in k11841 in k11838 in k11835 in k11829 in note-local in process-declaration in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11846,2,av);} /* compiler.scm:1352: ##sys#notice */ t2=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop2282 in k12793 in k12599 in k12596 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_12803(C_word t0,C_word 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_12803,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_12813,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_a_i_list(&a,1,lf[401]); if(C_truep(C_i_nullp(t5))){ /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[404]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_i_car(t5); /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=lf[404]; 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);}}} /* k11868 in k11865 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_11870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_11870,2,av);} a=C_alloc(10); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11879,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11934,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11940,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1364: ##sys#hash-table-update! */ t5=*((C_word*)lf[136]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t2; av2[2]=*((C_word*)lf[77]+1); av2[3]=lf[365]; av2[4]=t3; av2[5]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k18779 in g4466 in k18864 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18781,2,av);} /* compiler.scm:2440: ref-var */ f_19644(((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k11877 in k11868 in k11865 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_11879(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_11879,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11894,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|4,a[1]=(C_word)f_11900,a[2]=t4,a[3]=t8,a[4]=t5,tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_11900(t10,t6,((C_word*)t0)[3]);} /* k18785 in k18864 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_18787,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18790,a[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_18801,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18805,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18809,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18817,a[2]=((C_word*)t0)[6],a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2448: real-name */ t8=*((C_word*)lf[568]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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); t5=((C_word*)t0)[3]; t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[469],lf[563],((C_word*)t0)[4],t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k17167 in k17161 in k16967 in k16964 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_17169(C_word 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,5)))){ C_save_and_reclaim_args((void *)trf_17169,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,C_a_i_cons(&a,2,lf[524],((C_word*)t0)[3]),t3); t5=C_i_set_cdr(t2,t4); /* compiler.scm:2212: put! */ t6=*((C_word*)lf[493]+1);{ C_word av2[6]; av2[0]=t6; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[525]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} else{ t2=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_16972(2,av2);}}} /* k20955 in k20934 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_20957(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_20957,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20960,a[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_20971,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2779: open-output-string */ t4=*((C_word*)lf[107]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* compiler.scm:2783: quit */ t2=*((C_word*)lf[310]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[629]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k12832 in k12599 in k12596 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12834,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12837,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]); /* compiler.scm:1341: ##sys#strip-syntax */ t4=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12835 in k12832 in k12599 in k12596 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_12837,2,av);} t2=C_eqp(t1,lf[379]); if(C_truep(t2)){ t3=C_set_block_item(lf[8] /* ##compiler#insert-timer-checks */,0,C_SCHEME_FALSE); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_eqp(t1,lf[375]); if(C_truep(t3)){ t4=C_set_block_item(lf[10] /* unsafe */,0,C_SCHEME_TRUE); t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* compiler.scm:1476: warning */ t4=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[405]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}} /* k17161 in k16967 in k16964 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_17163,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17169,a[2]=((C_word*)t0)[2],a[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_word*)((C_word*)t0)[6])[1]; if(C_truep(t4)){ t5=t3; f_17169(t5,C_SCHEME_FALSE);} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17181,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); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17251,a[2]=t5,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:2203: get */ t7=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[501]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k21557 in k21554 in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21559,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21562,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_positivep(((C_word*)((C_word*)t0)[9])[1]))){ /* compiler.scm:2874: debugging */ t4=*((C_word*)lf[537]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[583]; av2[3]=lf[647]; av2[4]=((C_word*)((C_word*)t0)[9])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_21562(2,av2);}}} /* k21554 in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,6)))){ C_save_and_reclaim((void *)f_21556,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21559,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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); /* compiler.scm:2872: walk */ t3=((C_word*)((C_word*)t0)[10])[1]; f_20018(t3,t2,((C_word*)t0)[11],C_SCHEME_END_OF_LIST,C_fix(0),C_SCHEME_FALSE,C_SCHEME_END_OF_LIST);} /* k17461 in for-each-loop3859 in a17384 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17463(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_17463,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_17453(t3,((C_word*)t0)[4],t2);} /* k20958 in k20955 in k20934 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20960,2,av);} t2=C_i_inexact_to_exact(((C_word*)t0)[2]); /* compiler.scm:2782: immediate-literal */ f_21483(((C_word*)t0)[4],t2);} /* k7186 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_7188,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_7193,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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[123]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7222,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_7224,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_7224(t14,t10,t8);} /* k21566 in k21563 in k21560 in k21557 in k21554 in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21568(C_word c,C_word *av){ C_word tmp; C_word t0=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_21568,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21575,a[2]=((C_word*)t0)[2],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.scm:2880: ##sys#fast-reverse */ t3=*((C_word*)lf[619]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k21563 in k21560 in k21557 in k21554 in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21565(C_word c,C_word *av){ C_word tmp; C_word t0=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_21565,2,av);} a=C_alloc(8); t2=(*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]=((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_positivep(((C_word*)((C_word*)t0)[8])[1]))){ /* compiler.scm:2878: debugging */ t3=*((C_word*)lf[537]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[583]; av2[3]=lf[645]; av2[4]=((C_word*)((C_word*)t0)[8])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_21568(2,av2);}}} /* k21560 in k21557 in k21554 in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_21562,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21565,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_positivep(((C_word*)((C_word*)t0)[9])[1]))){ /* compiler.scm:2876: debugging */ t3=*((C_word*)lf[537]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[583]; av2[3]=lf[646]; av2[4]=((C_word*)((C_word*)t0)[9])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_21565(2,av2);}}} /* k21577 in k21573 in k21566 in k21563 in k21560 in k21557 in k21554 in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21579,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21583,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.scm:2883: ##sys#fast-reverse */ t4=*((C_word*)lf[619]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k21573 in k21566 in k21563 in k21560 in k21557 in k21554 in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21575,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21579,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.scm:2881: ##sys#fast-reverse */ t4=*((C_word*)lf[619]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20900 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_20902(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_20902,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20914,a[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.scm:2769: mapwalk */ t3=((C_word*)((C_word*)t0)[5])[1]; f_21327(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} /* k21581 in k21577 in k21573 in k21566 in k21563 in k21560 in k21557 in k21554 in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21583(C_word c,C_word *av){ C_word tmp; C_word 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_21583,2,av);} /* compiler.scm:2879: values */{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20912 in k20900 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,1)))){ C_save_and_reclaim((void *)f_20914,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=((C_word*)((C_word*)t0)[3])[1]; t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],((C_word*)t0)[4],t3,t1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k20796 in k20658 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_20798,2,av);} a=C_alloc(16); t2=C_i_not(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_20710,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[91]); if(C_truep(t5)){ t6=C_slot(((C_word*)t0)[15],C_fix(2)); t7=C_i_car(t6); /* compiler.scm:2738: immediate? */ t8=*((C_word*)lf[577]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t4; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t6=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_20710(2,av2);}}} /* k14512 in k14498 in expand-foreign-lambda* in k6339 in k6336 in k6333 */ static void C_ccall f_14514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_14514,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_14520,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); /* compiler.scm:1679: ##sys#strip-syntax */ t8=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14498 in expand-foreign-lambda* in k6339 in k6336 in k6333 */ static void C_ccall f_14500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_14500,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[123]); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14514,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_14565,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_14565(t12,t8,((C_word*)t0)[2]);} /* k12793 in k12599 in k12596 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_12795,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[89]); 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_12803,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_12803(t6,((C_word*)t0)[2],t1);} /* k20744 in k20714 in k20711 in k20708 in k20796 in k20658 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20746(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_20746,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_20740,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_u_i_car(((C_word*)t0)[6]); /* compiler.scm:2749: walk */ t6=((C_word*)((C_word*)t0)[7])[1]; f_20018(t6,t4,t5,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);} /* k20738 in k20744 in k20714 in k20711 in k20708 in k20796 in k20658 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20740(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_20740,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],((C_word*)t0)[3],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_18728,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_18734,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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],a[20]=((C_word*)t0)[19],tmp=(C_word)a,a+=21,tmp); /* compiler.scm:2402: test */ t5=((C_word*)((C_word*)t0)[19])[1]; f_17921(t5,t4,((C_word*)t0)[4],lf[559]);} /* k15096 in k14985 in k14982 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,2)))){ C_save_and_reclaim((void *)f_15098,2,av);} a=C_alloc(27); 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|7,a[1]=(C_word)f_15085,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],tmp=(C_word)a,a+=8,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15089,a[2]=((C_word*)t0)[8],a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1743: varnode */ t7=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_18722,2,av);} a=C_alloc(20); t2=t1; t3=(C_truep(((C_word*)t0)[2])?C_i_car(((C_word*)t0)[3]):lf[557]); t4=t3; t5=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_18728,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)[2],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]=((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); /* compiler.scm:2401: test */ t6=((C_word*)((C_word*)t0)[17])[1]; f_17921(t6,t5,t4,lf[558]);} /* k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){ C_save_and_reclaim((void *)f_18734,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_18740,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],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[31]+1))){ t5=C_i_cadr(((C_word*)t0)[2]); t6=t4; f_18740(t6,(C_truep(t5)?C_i_pairp(((C_word*)t0)[11]):C_SCHEME_FALSE));} else{ t5=t4; f_18740(t5,C_SCHEME_FALSE);}} /* map-loop3001 in k14518 in k14512 in k14498 in expand-foreign-lambda* in k6339 in k6336 in k6333 */ static void C_fcall f_14531(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_14531,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_mutate2(((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);}}} /* k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word 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(48,c,3)))){ C_save_and_reclaim((void *)f_18743,2,av);} a=C_alloc(48); t2=(C_truep(((C_word*)t0)[2])?C_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(2)):C_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1))); t3=C_a_i_list1(&a,1,t2); t4=t3; t5=C_i_cadr(((C_word*)t0)[4]); t6=t5; t7=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_18985,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=t6,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]=t4,a[13]=((C_word*)t0)[2],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); 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|2,a[1]=(C_word)f_18990,a[2]=((C_word*)t0)[15],tmp=(C_word)a,a+=3,tmp); t13=((C_word*)t0)[18]; t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19003,a[2]=((C_word*)t0)[19],a[3]=((C_word*)t0)[15],a[4]=t7,a[5]=((C_word*)t0)[20],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_19018,a[2]=t12,a[3]=t10,a[4]=t16,a[5]=t11,tmp=(C_word)a,a+=6,tmp)); t18=((C_word*)t16)[1]; f_19018(t18,t14,t13);} /* k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_18740(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(28,0,3)))){ C_save_and_reclaim_args((void *)trf_18740,2,t0,t1);} a=C_alloc(28); t2=t1; t3=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_18743,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],tmp=(C_word)a,a+=21,tmp); if(C_truep(((C_word*)t0)[18])){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19064,a[2]=((C_word*)t0)[18],a[3]=((C_word*)t0)[14],a[4]=t3,a[5]=((C_word*)t0)[20],a[6]=((C_word*)t0)[21],tmp=(C_word)a,a+=7,tmp); /* compiler.scm:2408: test */ t5=((C_word*)((C_word*)t0)[21])[1]; f_17921(t5,t4,((C_word*)t0)[18],lf[540]);} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_18743(2,av2);}}} /* k12751 in k12747 in k12743 in k12599 in k12596 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12753,2,av);} t2=C_mutate2((C_word*)lf[7]+1 /* (set! extended-bindings ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k14524 in k14518 in k14512 in k14498 in expand-foreign-lambda* in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_14526,2,av);} /* compiler.scm:1680: create-foreign-stub */ t2=*((C_word*)lf[452]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } 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]; av2[5]=t1; av2[6]=((C_word*)t0)[5]; av2[7]=((C_word*)t0)[6]; av2[8]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} /* k12747 in k12743 in k12599 in k12596 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_12749,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[6]+1 /* (set! standard-bindings ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12753,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1463: lset-difference */ t4=*((C_word*)lf[399]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[135]+1); av2[3]=*((C_word*)lf[370]+1); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k14518 in k14512 in k14498 in expand-foreign-lambda* in k6339 in k6336 in k6333 */ static void C_ccall f_14520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_14520,2,av);} a=C_alloc(14); t2=C_i_check_list_2(t1,lf[123]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14526,a[2]=((C_word*)t0)[2],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_14531,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_14531(t7,t3,t1);} /* k15087 in k15096 in k14985 in k14982 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15089,2,av);} /* compiler.scm:1743: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14888 in a14868 in k14837 in cps-lambda in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_14890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14890,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[470],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* node-for-var? in perform-cps-conversion in k6339 in k6336 in k6333 */ static C_word C_fcall f_14896(C_word t1,C_word t2){ C_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;{} t3=t1; t4=C_slot(t3,C_fix(1)); t5=C_eqp(t4,lf[473]); if(C_truep(t5)){ t6=t1; t7=C_slot(t6,C_fix(2)); t8=C_i_car(t7); return(C_eqp(t8,t2));} else{ return(C_SCHEME_FALSE);}} /* k15083 in k15096 in k14985 in k14982 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15085(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_15085,2,av);} a=C_alloc(18); t2=C_a_i_list1(&a,1,t1); t3=C_a_i_record4(&a,4,lf[469],lf[161],((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15038,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t6=C_i_car(((C_word*)t0)[5]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15044,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); /* compiler.scm:1744: walk */ t8=((C_word*)((C_word*)t0)[6])[1]; f_14930(t8,t5,t6,t7);} /* k12743 in k12599 in k12596 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_12745,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12749,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1462: lset-difference */ t4=*((C_word*)lf[399]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[135]+1); av2[3]=*((C_word*)lf[369]+1); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k14861 in k14837 in cps-lambda in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_14863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14863,2,av);} a=C_alloc(8); t2=C_a_i_list1(&a,1,t1); t3=C_a_i_record4(&a,4,lf[469],lf[161],((C_word*)t0)[2],t2); /* compiler.scm:1720: k */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a14868 in k14837 in cps-lambda in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_14869(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14869,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_14890,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:1724: varnode */ t6=*((C_word*)lf[471]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k12708 in for-each-loop2238 in k12690 in k12599 in k12596 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12710,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_12700(t3,((C_word*)t0)[4],t2);} /* map-loop787 in a8113 in k8107 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_8228(C_word t0,C_word t1,C_word 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_8228,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_8253,a[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)); /* compiler.scm:668: g793 */ 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);}}} /* for-each-loop2238 in k12690 in k12599 in k12596 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_12700(C_word t0,C_word 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_12700,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_12710,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_a_i_list(&a,1,lf[401]); if(C_truep(C_i_nullp(t5))){ /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[402]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_i_car(t5); /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=lf[402]; 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);}}} /* k8213 in k8209 in k8128 in k8125 in k8122 in a8113 in k8107 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_8215,2,av);} /* compiler.scm:672: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6925(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7]);} /* k8209 in k8128 in k8125 in k8122 in a8113 in k8107 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_8211(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_8211,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8215,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); /* compiler.scm:678: append */ t4=*((C_word*)lf[151]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k14837 in cps-lambda in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_14839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_14839,2,av);} a=C_alloc(23); t2=t1; t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[2]); t4=C_a_i_list4(&a,4,((C_word*)t0)[3],C_SCHEME_TRUE,t3,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14863,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_car(((C_word*)t0)[6]); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14869,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1722: walk */ t9=((C_word*)((C_word*)t0)[7])[1]; f_14930(t9,t6,t7,t8);} /* ##compiler#perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_14832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14832,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_14835,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_14896,tmp=(C_word)a,a+=2,tmp)); t19=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14930,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_15522,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_15698,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_15719,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_15826,a[2]=t16,tmp=(C_word)a,a+=3,tmp)); /* compiler.scm:1845: walk */ t24=((C_word*)t8)[1]; f_14930(t24,t1,t2,*((C_word*)lf[484]+1));} /* cps-lambda in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_14835(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_14835,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(8); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14839,a[2]=t3,a[3]=t2,a[4]=t5,a[5]=t1,a[6]=t4,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* compiler.scm:1719: gensym */ t7=*((C_word*)lf[88]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=lf[472]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k13169 in map-loop2446 in k13222 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13171,2,av);} /* ##sys#string-append */ t2=*((C_word*)lf[229]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[420]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k13165 in map-loop2446 in k13222 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_13167(C_word c,C_word *av){ C_word tmp; 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_13167,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k13176 in map-loop2446 in k13222 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_13178(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_13178,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{ /* compiler.scm:1522: warning */ t2=*((C_word*)lf[102]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[421]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k15007 in k1 in k14985 in k14982 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_15009,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[470],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* g1766 in k11353 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_11286(C_word 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_11286,3,t0,t1,t2);} a=C_alloc(21); t3=C_i_cadr(t2); t4=C_a_i_list(&a,2,lf[91],lf[342]); t5=C_a_i_list(&a,5,lf[343],t3,C_fix(0),C_SCHEME_FALSE,t4); /* compiler.scm:1271: walk */ t6=((C_word*)((C_word*)t0)[2])[1]; f_6925(t6,t1,t5,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k14803 in k14797 in walk in update-line-number-database! in k6339 in k6336 in k6333 */ static void C_ccall f_14805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14805,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* compiler.scm:1709: mapupdate */ t4=((C_word*)((C_word*)t0)[3])[1]; f_14757(t4,((C_word*)t0)[4],t3);} /* k21198 in k21195 in loop in k21138 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_21200,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21207,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_minus(&a,2,((C_word*)t0)[4],C_fix(1)); t5=t4; t6=C_i_cddr(((C_word*)t0)[5]); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21219,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=t5,a[5]=t7,tmp=(C_word)a,a+=6,tmp); t9=C_a_i_minus(&a,2,((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[8]); /* compiler.scm:2818: max */ t10=*((C_word*)lf[631]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k13146 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_13148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13148,2,av);} t2=C_mutate2((C_word*)lf[34]+1 /* (set! ##compiler#import-libraries ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k21205 in k21198 in k21195 in loop in k21138 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21207,2,av);} /* compiler.scm:2816: cons* */ t2=*((C_word*)lf[482]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17393 in k17387 in a17384 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_17395(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_17395,2,t0,t1);} if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); /* compiler.scm:2173: put! */ t3=*((C_word*)lf[493]+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[529]; 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]); /* compiler.scm:2175: put! */ t3=*((C_word*)lf[493]+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[530]; 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);}}}} /* k21217 in k21198 in k21195 in loop in k21138 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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,4)))){ C_save_and_reclaim((void *)f_21219,2,av);} /* compiler.scm:2818: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_21164(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* a17384 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_17385,5,av);} a=C_alloc(18); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17389,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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_17389(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17420,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[89]); 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_17453,a[2]=t9,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_17453(t11,t5,t2);}} /* k17387 in a17384 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_17389,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17395,a[2]=((C_word*)t0)[2],a[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_17419,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2172: rassoc */ t4=*((C_word*)lf[531]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=*((C_word*)lf[72]+1); av2[4]=*((C_word*)lf[135]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=t2; f_17395(t3,C_SCHEME_FALSE);}} /* k20460 in k20357 in a20351 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_20462,2,av);} t2=C_eqp(lf[617],((C_word*)t0)[2]); if(C_truep(t2)){ t3=C_i_length(((C_word*)t0)[3]); t4=C_fixnum_difference(t3,C_fix(1)); /* compiler.scm:2661: walk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_20018(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]); /* compiler.scm:2661: walk */ t4=((C_word*)((C_word*)t0)[4])[1]; f_20018(t4,((C_word*)t0)[5],((C_word*)t0)[6],t1,t3,((C_word*)t0)[7],C_SCHEME_END_OF_LIST);}} /* g2604 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_13480(C_word t0,C_word 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_13480,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13672,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=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=t3; f_13672(t7,C_i_symbolp(t6));} else{ t6=t3; f_13672(t6,C_SCHEME_FALSE);}} else{ t4=t3; f_13672(t4,C_SCHEME_FALSE);}} /* k11198 in loop in k11033 in k11022 in k11019 in k11007 in a10998 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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(0,c,3)))){ C_save_and_reclaim((void *)f_11200,2,av);} /* compiler.scm:1220: finish-foreign-result */ t2=*((C_word*)lf[94]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20437 in k20411 in k20366 in k20363 in k20360 in k20357 in a20351 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20439(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20439,2,av);} t2=((C_word*)t0)[2]; f_20420(t2,C_SCHEME_TRUE);} /* k13122 in for-each-loop2409 in k13104 in k13082 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_13124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13124,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_13114(t3,((C_word*)t0)[4],t2);} /* k13495 in k13670 in g2604 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_13497,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13500,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]); /* compiler.scm:1556: ##sys#strip-syntax */ t5=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k13492 in k13670 in g2604 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13494,2,av);} /* compiler.scm:1554: warning */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[433]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k8205 in k8131 in k8128 in k8125 in k8122 in a8113 in k8107 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8207,2,av);} t2=C_i_list_ref(((C_word*)t0)[2],t1); /* compiler.scm:680: build-lambda-list */ t3=*((C_word*)lf[166]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k21173 in loop in k21138 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_21175,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21186,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_a_i_minus(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[2]); /* compiler.scm:2812: max */ t5=*((C_word*)lf[631]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20490 in a20351 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_20492,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20498,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); /* compiler.scm:2658: get */ t4=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[509]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k20496 in k20490 in a20351 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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,4)))){ C_save_and_reclaim((void *)f_20498,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[506]; f_20359(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20523,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:2659: get */ t3=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[570]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k17345 in k16964 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17347,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); f_17290(2,av2);}} /* k6447 in k6444 in k6441 in initialize-compiler in k6339 in k6336 in k6333 */ 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 *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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6453,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:394: make-random-name */ t3=*((C_word*)lf[82]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[83]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k21195 in loop in k21138 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,6)))){ C_save_and_reclaim((void *)f_21197,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21200,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]); /* compiler.scm:2815: walk */ t5=((C_word*)((C_word*)t0)[9])[1]; f_20018(t5,t3,t4,((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[13]);} /* a15043 in k15083 in k15096 in k14985 in k14982 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ 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=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_15044,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15061,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]); /* compiler.scm:1748: walk */ t5=((C_word*)((C_word*)t0)[3])[1]; f_14930(t5,t3,t4,((C_word*)t0)[4]);} /* k6444 in k6441 in initialize-compiler in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6446,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6449,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[53]+1))){ /* compiler.scm:392: vector-fill! */ t3=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[53]+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_6484,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:393: make-vector */ t4=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k6441 in initialize-compiler in k6339 in k6336 in k6333 */ static void C_ccall f_6443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6443,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6446,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[51]+1))){ /* compiler.scm:389: vector-fill! */ t3=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[51]+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_6491,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:390: make-vector */ t4=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* for-each-loop2564 in k13438 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_13448(C_word t0,C_word 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_13448,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_13458,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_a_i_list(&a,1,lf[424]); if(C_truep(C_i_nullp(t5))){ /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[404]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_i_car(t5); /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=lf[404]; 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);}}} /* k13438 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_13440,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[89]); 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_13448,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_13448(t6,((C_word*)t0)[2],t1);} /* k6451 in k6447 in k6444 in k6441 in initialize-compiler in k6339 in k6336 in k6333 */ static void C_ccall f_6453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6453,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[66]+1 /* (set! ##compiler#profile-info-vector-name ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6457,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:395: make-vector */ t4=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_fix(997); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k6455 in k6451 in k6447 in k6444 in k6441 in initialize-compiler in k6339 in k6336 in k6333 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6457,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[68]+1 /* (set! ##compiler#real-name-table ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6460,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[77]+1))){ /* compiler.scm:397: vector-fill! */ t4=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[77]+1); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6477,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:398: make-vector */ t5=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* loop in k21138 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_21164(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,6)))){ C_save_and_reclaim_args((void *)trf_21164,5,t0,t1,t2,t3,t4);} a=C_alloc(14); t5=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); if(C_truep(C_i_zerop(t2))){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21175,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); t7=C_i_car(t3); /* compiler.scm:2811: walk */ t8=((C_word*)((C_word*)t0)[4])[1]; f_20018(t8,t6,t7,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t6=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_21197,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); t7=C_i_car(t3); /* compiler.scm:2814: walk */ t8=((C_word*)((C_word*)t0)[4])[1]; f_20018(t8,t6,t7,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}} /* k13456 in for-each-loop2564 in k13438 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_13458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13458,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_13448(t3,((C_word*)t0)[4],t2);} /* k15063 in k15059 in a15043 in k15083 in k15096 in k14985 in k14982 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15065(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,1)))){ C_save_and_reclaim((void *)f_15065,2,av);} a=C_alloc(14); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=((C_word*)t0)[4]; t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[114],C_SCHEME_END_OF_LIST,t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k15059 in a15043 in k15083 in k15096 in k14985 in k14982 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_15061,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15065,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]); /* compiler.scm:1749: walk */ t5=((C_word*)((C_word*)t0)[5])[1]; f_14930(t5,t3,t4,((C_word*)t0)[6]);} /* k6458 in k6455 in k6451 in k6447 in k6444 in k6441 in initialize-compiler in k6339 in k6336 in k6333 */ static void C_ccall f_6460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6460,2,av);} a=C_alloc(3); if(C_truep(*((C_word*)lf[59]+1))){ /* compiler.scm:400: vector-fill! */ t2=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[59]+1); 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_6470,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:401: make-vector */ t3=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k20481 in k20357 in a20351 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20483,2,av);} /* compiler.scm:2663: ##sys#fast-reverse */ t2=*((C_word*)lf[619]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19702 in k19699 in k19696 in k19693 in perform-closure-conversion in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_19704,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19707,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2509: transform */ t3=((C_word*)((C_word*)t0)[4])[1]; f_18493(t3,t2,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE);} /* k19705 in k19702 in k19699 in k19696 in k19693 in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_19707(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19707,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19710,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_zerop(((C_word*)((C_word*)t0)[3])[1]))){ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* compiler.scm:2511: debugging */ t4=*((C_word*)lf[537]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[583]; av2[3]=lf[584]; av2[4]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k17314 in k17329 in k16964 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_17316,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_17290(2,av2);}} else{ /* tweaks.scm:51: ##sys#get */ t2=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[516]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k19699 in k19696 in k19693 in perform-closure-conversion in k6339 in k6336 in k6333 */ 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(6,c,3)))){ C_save_and_reclaim((void *)f_19701,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19704,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:2508: debugging */ t3=*((C_word*)lf[537]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[545]; av2[3]=lf[585]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k15036 in k15083 in k15096 in k14985 in k14982 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ 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(11,c,1)))){ C_save_and_reclaim((void *)f_15038,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[150],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k21184 in k21173 in loop in k21138 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_21186,2,av);} a=C_alloc(7); t2=C_a_i_plus(&a,2,((C_word*)t0)[2],t1); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list1(&a,1,((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6475 in k6455 in k6451 in k6447 in k6444 in k6441 in initialize-compiler in k6339 in k6336 in k6333 */ static void C_ccall f_6477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6477,2,av);} t2=C_mutate2((C_word*)lf[77]+1 /* (set! ##compiler#file-requirements ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_6460(2,av2);}} /* k6468 in k6458 in k6455 in k6451 in k6447 in k6444 in k6441 in initialize-compiler in k6339 in k6336 in k6333 */ static void C_ccall f_6470(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6470,2,av);} t2=C_mutate2((C_word*)lf[59]+1 /* (set! ##compiler#foreign-type-table ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8086 in map-loop650 in k7842 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8088,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8063(t6,((C_word*)t0)[5],t5);} /* a8823 in k8758 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8824,2,av);} a=C_alloc(5); t2=C_i_check_list_2(((C_word*)t0)[2],lf[89]); 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_8846,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_8846(t6,t1,((C_word*)t0)[2]);} /* k8816 in a8809 in k8758 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8818(C_word c,C_word *av){ C_word tmp; C_word 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_8818,2,av);} /* compiler.scm:814: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6925(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]);} /* a8809 in k8758 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8810,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8818,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]); /* compiler.scm:815: ##sys#canonicalize-body */ t4=*((C_word*)lf[152]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)t0)[4]; av2[4]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* map-loop650 in k7842 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_8063(C_word t0,C_word t1,C_word 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_8063,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_8088,a[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)); /* compiler.scm:642: g656 */ 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);}}} /* lambda-literal-external in k6339 in k6336 in k6333 */ 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=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_19745,3,av);} t3=C_i_check_structure_2(t2,lf[589],lf[592]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##compiler#initialize-compiler in k6339 in k6336 in k6333 */ static void C_ccall f_6439(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6439,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6443,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[49]+1))){ /* compiler.scm:386: vector-fill! */ t3=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[49]+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_6498,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:387: make-vector */ t4=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[15]+1); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k16613 in k16610 in k16598 in assign in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16615(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16615,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16618,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); /* compiler.scm:1996: get */ t4=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[500]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k16610 in k16598 in assign in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16612(C_word 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,5)))){ C_save_and_reclaim_args((void *)trf_16612,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16615,a[2]=((C_word*)t0)[2],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.scm:1995: get-all */ t3=*((C_word*)lf[520]+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[501]; av2[5]=lf[519]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16657,a[2]=((C_word*)t0)[2],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[38]+1); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16693,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[38]+1))){ t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=*((C_word*)lf[38]+1); f_16693(2,av2);}} else{ t5=((C_word*)t0)[4]; /* tweaks.scm:57: ##sys#get */ t6=*((C_word*)lf[85]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=lf[412]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}} /* k17329 in k16964 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_17331,2,av);} a=C_alloc(4); t2=C_i_not(t1); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_17290(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17316,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* tweaks.scm:57: ##sys#get */ t4=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[527]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k16616 in k16613 in k16610 in k16598 in assign in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_16618,2,av);} if(C_truep(C_i_assq(lf[501],((C_word*)t0)[2]))){ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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[519],((C_word*)t0)[2]))){ /* compiler.scm:1999: put! */ t2=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[501]; 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)){ /* compiler.scm:2001: put! */ t4=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[519]; av2[5]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ /* compiler.scm:2002: put! */ t4=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[501]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}}}} /* k19708 in k19705 in k19702 in k19699 in k19696 in k19693 in perform-closure-conversion in k6339 in k6336 in k6333 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19710,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop680 in k7848 in k7842 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_8029(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_8029,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[160]); 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_mutate2(((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);}}} /* lambda-literal-temporaries in k6339 in k6336 in k6333 */ static void C_ccall f_19781(C_word c,C_word *av){ C_word tmp; C_word 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_19781,3,av);} t3=C_i_check_structure_2(t2,lf[589],lf[596]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(6)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a15559 in k15593 in k15606 in k15527 in k15524 in walk-call in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15560(C_word c,C_word *av){ C_word tmp; C_word 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_15560,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15566,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:1801: walk */ t4=((C_word*)((C_word*)t0)[4])[1]; f_14930(t4,t1,((C_word*)t0)[5],t3);} /* k6482 in k6444 in k6441 in initialize-compiler in k6339 in k6336 in k6333 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_6484,2,av);} t2=C_mutate2((C_word*)lf[53]+1 /* (set! ##compiler#constant-table ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_6449(2,av2);}} /* a15565 in a15559 in k15593 in k15606 in k15527 in k15524 in walk-call in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15566(C_word c,C_word *av){ C_word tmp; C_word 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_15566,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15579,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_15583,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:1803: varnode */ t5=*((C_word*)lf[471]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* for-each-loop2409 in k13104 in k13082 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_13114(C_word t0,C_word 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_13114,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_13124,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_a_i_list(&a,1,C_SCHEME_TRUE); if(C_truep(C_i_nullp(t5))){ /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[416]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_i_car(t5); /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=lf[416]; 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);}}} /* k8675 in k8671 in k8620 in k8617 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_8677,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* compiler.scm:770: ##sys#put! */ t3=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[190]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k13104 in k13082 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_13106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_13106,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[89]); 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_13114,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_13114(t6,((C_word*)t0)[2],t1);} /* k16655 in k16610 in k16598 in assign in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16657(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_16657,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16660,a[2]=((C_word*)t0)[2],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.scm:2006: get */ t3=*((C_word*)lf[496]+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[500]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ /* compiler.scm:2012: put! */ t2=*((C_word*)lf[493]+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[501]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k8671 in k8620 in k8617 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8673,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8677,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:777: ##sys#current-environment */ t4=*((C_word*)lf[180]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6489 in k6441 in initialize-compiler in k6339 in k6336 in k6333 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_6491,2,av);} t2=C_mutate2((C_word*)lf[51]+1 /* (set! ##compiler#inline-table ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_6446(2,av2);}} /* k13580 in k13567 in k13564 in k13561 in k13544 in k13527 in a13521 in k13504 in k13498 in k13495 in k13670 in g2604 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13582,2,av);} /* compiler.scm:1576: install-specializations */ t2=*((C_word*)lf[427]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15577 in a15565 in a15559 in k15593 in k15606 in k15527 in k15524 in walk-call in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,1)))){ C_save_and_reclaim((void *)f_15579,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[470],t3,t1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6496 in initialize-compiler in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6498,2,av);} t2=C_mutate2((C_word*)lf[49]+1 /* (set! ##compiler#line-number-database-2 ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_6443(2,av2);}} /* k8683 in k8679 in k8620 in k8617 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8685,2,av);} /* compiler.scm:774: ##sys#ensure-transformer */ t2=*((C_word*)lf[175]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16664 in k16658 in k16655 in k16610 in k16598 in assign in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16666,2,av);} if(C_truep(t1)){ /* compiler.scm:2008: put! */ t2=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[501]; 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)){ /* compiler.scm:2010: put! */ t4=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[521]; av2[5]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ /* compiler.scm:2011: put! */ t4=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[501]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}}} /* k16658 in k16655 in k16610 in k16598 in assign in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16660,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16666,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.scm:2007: get */ t4=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[521]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k8679 in k8620 in k8617 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8681,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8685,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:776: ##sys#strip-syntax */ t4=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7353 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,8)))){ C_save_and_reclaim((void *)f_7355,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7359,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_caddr(((C_word*)t0)[3]); /* compiler.scm:578: walk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_6925(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]);} /* k15581 in a15565 in a15559 in k15593 in k15606 in k15527 in k15524 in walk-call in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_15583,2,av);} /* compiler.scm:1803: cons* */ t2=*((C_word*)lf[482]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7340 in k7332 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7342,2,av);} /* compiler.scm:573: ##sys#strip-syntax */ t2=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15593 in k15606 in k15527 in k15524 in walk-call in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,3)))){ C_save_and_reclaim((void *)f_15595,2,av);} a=C_alloc(19); t2=C_a_i_list1(&a,1,t1); t3=C_a_i_record4(&a,4,lf[469],lf[161],((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15558,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15560,a[2]=((C_word*)t0)[5],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); /* compiler.scm:1798: walk-arguments */ t7=((C_word*)((C_word*)t0)[9])[1]; f_15719(t7,t5,((C_word*)t0)[10],t6);} /* k15597 in k15606 in k15527 in k15524 in walk-call in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15599,2,av);} /* compiler.scm:1797: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7357 in k7353 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7359(C_word c,C_word *av){ C_word tmp; 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_7359,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[96],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* lambda-literal-rest-argument in k6339 in k6336 in k6333 */ static void C_ccall f_19772(C_word c,C_word *av){ C_word tmp; C_word 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_19772,3,av);} t3=C_i_check_structure_2(t2,lf[589],lf[595]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(5)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7332 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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_7334,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7338,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_7342,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:573: cadadr */ t5=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18444 in map-loop4153 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_18446,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18421(t6,((C_word*)t0)[5],t5);} /* k16691 in k16610 in k16598 in assign in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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(3,c,4)))){ C_save_and_reclaim((void *)f_16693,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16700,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2005: get */ t3=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[501]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=((C_word*)t0)[2]; f_16657(t2,C_SCHEME_FALSE);}} /* k11239 in k11007 in a10998 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_11241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_11241,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,*((C_word*)lf[72]+1)); t4=C_mutate2((C_word*)lf[72]+1 /* (set! ##compiler#callback-names ...) */,t3); t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; f_11021(2,av2);}} else{ /* compiler.scm:1198: quit */ t2=*((C_word*)lf[310]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[339]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* lambda-literal-argument-count in k6339 in k6336 in k6333 */ 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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19763,3,av);} t3=C_i_check_structure_2(t2,lf[589],lf[594]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(4)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k13544 in k13527 in a13521 in k13504 in k13498 in k13495 in k13670 in g2604 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_13546,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13563,a[2]=((C_word*)t0)[2],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_a_i_list(&a,1,lf[423]); if(C_truep(C_i_nullp(t3))){ /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[429]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_i_car(t3); /* tweaks.scm:54: ##sys#put! */ t5=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[429]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k18417 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18419,2,av);} /* compiler.scm:2351: concatenate */ t2=*((C_word*)lf[552]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k13561 in k13544 in k13527 in a13521 in k13504 in k13498 in k13495 in k13670 in g2604 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_13563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13563,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13566,a[2]=((C_word*)t0)[2],a[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_list(&a,1,C_SCHEME_TRUE); if(C_truep(C_i_nullp(t3))){ /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[416]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_i_car(t3); /* tweaks.scm:54: ##sys#put! */ t5=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[416]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_13566(2,av2);}}} /* k7336 in k7332 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7338(C_word c,C_word *av){ C_word tmp; C_word t0=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_7338,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,2,lf[92],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* lambda-literal-unboxed-temporaries in k6339 in k6336 in k6333 */ static void C_ccall f_19790(C_word c,C_word *av){ C_word tmp; C_word 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_19790,3,av);} t3=C_i_check_structure_2(t2,lf[589],lf[597]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(7)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* lambda-literal-callee-signatures in k6339 in k6336 in k6333 */ static void C_ccall f_19799(C_word c,C_word *av){ C_word tmp; C_word 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_19799,3,av);} t3=C_i_check_structure_2(t2,lf[589],lf[598]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(8)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* for-each-loop2333 in k12893 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_12910(C_word t0,C_word t1,C_word 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_12910,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_12920,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.scm:1483: g2334 */ 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);}}} /* map-loop4153 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_18421(C_word t0,C_word t1,C_word 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_18421,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_18446,a[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)); /* compiler.scm:2351: g4159 */ t5=((C_word*)t0)[4]; f_18409(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);}}} /* k13564 in k13561 in k13544 in k13527 in a13521 in k13504 in k13498 in k13495 in k13670 in g2604 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_13566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13566,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13569,a[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_a_i_list(&a,1,((C_word*)t0)[5]); if(C_truep(C_i_nullp(t3))){ /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[428]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_i_car(t3); /* tweaks.scm:54: ##sys#put! */ t5=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[428]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_13569(2,av2);}}} /* k13567 in k13564 in k13561 in k13544 in k13527 in a13521 in k13504 in k13498 in k13495 in k13670 in g2604 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 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_13569,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_13582,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); /* compiler.scm:1578: ##sys#strip-syntax */ t7=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k15556 in k15593 in k15606 in k15527 in k15524 in walk-call in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_15558,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[150],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k13498 in k13495 in k13670 in g2604 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_13500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_13500,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13506,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); /* compiler.scm:1557: local? */ t6=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_7317(C_word t0,C_word t1){ C_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(30,0,8)))){ C_save_and_reclaim_args((void *)trf_7317,2,t0,t1);} a=C_alloc(30); 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=C_eqp(((C_word*)t0)[4],lf[92]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7334,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:573: caadr */ t4=*((C_word*)lf[130]+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{ t3=C_eqp(((C_word*)t0)[4],lf[96]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7355,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],tmp=(C_word)a,a+=11,tmp); t5=C_i_cadr(((C_word*)t0)[3]); /* compiler.scm:577: ##sys#strip-syntax */ t6=*((C_word*)lf[118]+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_eqp(((C_word*)t0)[4],lf[131]); 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*)lf[132]+1); t10=((C_word*)t0)[3]; t11=C_u_i_cdr(t10); t12=C_i_check_list_2(t11,lf[123]); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7383,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_7400,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_7400(t17,t13,t11);} else{ t5=C_eqp(((C_word*)t0)[4],lf[139]); if(C_truep(t5)){ t6=C_i_caddr(((C_word*)t0)[3]); t7=t6; t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7448,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]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7452,a[2]=t7,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=((C_word*)t0)[3]; t11=C_u_i_cdr(t10); t12=C_u_i_car(t11); /* compiler.scm:592: ##sys#strip-syntax */ t13=*((C_word*)lf[118]+1);{ C_word av2[3]; av2[0]=t13; av2[1]=t9; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} else{ t6=C_eqp(((C_word*)t0)[4],lf[149]); if(C_truep(t6)){ t7=C_i_cadr(((C_word*)t0)[3]); t8=t7; t9=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7549,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[3],a[11]=t8,a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* compiler.scm:612: unzip1 */ t10=*((C_word*)lf[154]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t7=C_eqp(((C_word*)t0)[4],lf[155]); if(C_truep(t7)){ t8=C_i_cadr(((C_word*)t0)[3]); t9=t8; t10=((C_word*)t0)[3]; t11=C_u_i_cdr(t10); t12=C_u_i_cdr(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_i_check_list_2(t9,lf[123]); t18=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7728,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]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=t12,a[11]=t9,tmp=(C_word)a,a+=12,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|4,a[1]=(C_word)f_7800,a[2]=t15,a[3]=t20,a[4]=t16,tmp=(C_word)a,a+=5,tmp)); t22=((C_word*)t20)[1]; f_7800(t22,t18,t9);} else{ t8=C_eqp(((C_word*)t0)[4],lf[159]); if(C_truep(t8)){ t9=C_i_cadr(((C_word*)t0)[3]); t10=t9; t11=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7844,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)[10],a[10]=((C_word*)t0)[11],a[11]=t10,tmp=(C_word)a,a+=12,tmp); /* compiler.scm:641: unzip1 */ t12=*((C_word*)lf[154]+1);{ C_word av2[3]; av2[0]=t12; av2[1]=t11; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t9=C_eqp(((C_word*)t0)[4],lf[161]); if(C_truep(t9)){ t10=C_i_cadr(((C_word*)t0)[3]); t11=t10; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=((C_word*)t0)[3]; t14=C_u_i_cdr(t13); t15=C_u_i_cdr(t14); t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8109,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[11],a[9]=t16,a[10]=((C_word*)t0)[2],a[11]=t12,tmp=(C_word)a,a+=12,tmp); t18=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8263,a[2]=t12,a[3]=t16,a[4]=((C_word*)t0)[7],a[5]=t17,tmp=(C_word)a,a+=6,tmp); /* compiler.scm:660: ##sys#extended-lambda-list? */ t19=*((C_word*)lf[173]+1);{ C_word av2[3]; av2[0]=t19; av2[1]=t18; av2[2]=((C_word*)t12)[1]; ((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}} else{ t10=C_eqp(((C_word*)t0)[4],lf[174]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8286,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],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)[3],tmp=(C_word)a,a+=10,tmp); 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|2,a[1]=(C_word)f_8302,a[2]=((C_word*)t0)[7],tmp=(C_word)a,a+=3,tmp); t17=C_i_cadr(((C_word*)t0)[3]); t18=C_i_check_list_2(t17,lf[123]); t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8337,a[2]=t11,a[3]=((C_word*)t0)[7],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_8339,a[2]=t14,a[3]=t21,a[4]=t16,a[5]=t15,tmp=(C_word)a,a+=6,tmp)); t23=((C_word*)t21)[1]; f_8339(t23,t19,t17);} else{ t11=C_eqp(((C_word*)t0)[4],lf[177]); if(C_truep(t11)){ 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_cadr(((C_word*)t0)[3]); t17=C_i_check_list_2(t16,lf[123]); t18=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8416,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],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)[3],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,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|4,a[1]=(C_word)f_8470,a[2]=t14,a[3]=t20,a[4]=t15,tmp=(C_word)a,a+=5,tmp)); t22=((C_word*)t20)[1]; f_8470(t22,t18,t16);} else{ t12=C_eqp(((C_word*)t0)[4],lf[178]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8511,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]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[3],tmp=(C_word)a,a+=12,tmp); t14=((C_word*)t0)[3]; t15=C_u_i_car(t14); t16=C_i_cadr(((C_word*)t0)[3]); if(C_truep(C_i_pairp(t16))){ /* compiler.scm:736: ##sys#check-syntax */ t17=*((C_word*)lf[186]+1);{ C_word av2[7]; av2[0]=t17; av2[1]=t13; av2[2]=t15; av2[3]=((C_word*)t0)[3]; av2[4]=lf[187]; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t17+1)))(7,av2);}} else{ /* compiler.scm:736: ##sys#check-syntax */ t17=*((C_word*)lf[186]+1);{ C_word av2[7]; av2[0]=t17; av2[1]=t13; av2[2]=t15; av2[3]=((C_word*)t0)[3]; av2[4]=lf[188]; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t17+1)))(7,av2);}}} else{ t13=C_eqp(((C_word*)t0)[4],lf[189]); if(C_truep(t13)){ t14=C_i_cadr(((C_word*)t0)[3]); t15=t14; t16=C_i_caddr(((C_word*)t0)[3]); t17=t16; t18=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8619,a[2]=t17,a[3]=t15,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)[14],tmp=(C_word)a,a+=13,tmp); /* compiler.scm:763: lookup */ t19=((C_word*)((C_word*)t0)[13])[1]; f_6538(t19,t18,t15,((C_word*)t0)[7]);} else{ t14=C_eqp(((C_word*)t0)[4],lf[193]); if(C_truep(t14)){ 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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8703,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[13],tmp=(C_word)a,a+=4,tmp); t20=C_i_cadr(((C_word*)t0)[3]); t21=C_i_check_list_2(t20,lf[123]); t22=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8760,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)[3],a[10]=((C_word*)t0)[2],tmp=(C_word)a,a+=11,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_8869,a[2]=t17,a[3]=t24,a[4]=t19,a[5]=t18,tmp=(C_word)a,a+=6,tmp)); t26=((C_word*)t24)[1]; f_8869(t26,t22,t20);} else{ t15=C_eqp(((C_word*)t0)[4],lf[197]); if(C_truep(t15)){ t16=*((C_word*)lf[198]+1); 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=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8918,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]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp); t21=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8920,a[2]=t19,a[3]=t17,tmp=(C_word)a,a+=4,tmp); t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8925,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t23=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8935,a[2]=t17,a[3]=t19,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:829: ##sys#dynamic-wind */ t24=*((C_word*)lf[201]+1);{ C_word av2[5]; av2[0]=t24; av2[1]=t20; av2[2]=t21; av2[3]=t22; av2[4]=t23; ((C_proc)(void*)(*((C_word*)t24+1)))(5,av2);}} else{ t16=C_eqp(((C_word*)t0)[4],lf[202]); if(C_truep(t16)){ 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_i_cadr(((C_word*)t0)[3]); t22=C_i_check_list_2(t21,lf[123]); t23=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8968,a[2]=((C_word*)t0)[3],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)[2],tmp=(C_word)a,a+=11,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|4,a[1]=(C_word)f_8984,a[2]=t19,a[3]=t25,a[4]=t20,tmp=(C_word)a,a+=5,tmp)); t27=((C_word*)t25)[1]; f_8984(t27,t23,t21);} else{ t17=C_eqp(((C_word*)t0)[4],lf[206]); if(C_truep(t17)){ t18=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9025,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[14],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); t19=C_i_cadr(((C_word*)t0)[3]); /* compiler.scm:843: ##sys#strip-syntax */ t20=*((C_word*)lf[118]+1);{ C_word av2[3]; av2[0]=t20; av2[1]=t18; av2[2]=t19; ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}} else{ t18=C_eqp(((C_word*)t0)[4],lf[248]); if(C_truep(t18)){ t19=C_i_cadr(((C_word*)t0)[3]); t20=t19; t21=((C_word*)t0)[3]; t22=C_u_i_cdr(t21); t23=C_u_i_cdr(t22); 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_word*)lf[88]+1); t29=C_i_check_list_2(t20,lf[123]); t30=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9583,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[12],a[4]=t20,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[6],a[9]=t23,a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,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_9605,a[2]=t26,a[3]=t32,a[4]=t28,a[5]=t27,tmp=(C_word)a,a+=6,tmp)); t34=((C_word*)t32)[1]; f_9605(t34,t30,t20);} else{ t19=C_eqp(((C_word*)t0)[4],lf[157]); if(C_truep(t19)){ t20=C_i_cadr(((C_word*)t0)[3]); t21=t20; t22=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9649,a[2]=((C_word*)t0)[3],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)[2],a[8]=t21,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* compiler.scm:948: lookup */ t23=((C_word*)((C_word*)t0)[13])[1]; f_6538(t23,t22,t21,((C_word*)t0)[7]);} else{ t20=C_eqp(((C_word*)t0)[4],lf[168]); if(C_truep(t20)){ t21=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9994,a[2]=((C_word*)t0)[15],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp); t22=C_i_cadr(((C_word*)t0)[3]); /* compiler.scm:1003: unquotify */ t23=((C_word*)((C_word*)t0)[15])[1]; f_6632(t23,t21,t22,((C_word*)t0)[7]);} else{ t21=C_eqp(((C_word*)t0)[4],lf[269]); if(C_truep(t21)){ t22=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10075,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[16],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],tmp=(C_word)a,a+=9,tmp); t23=C_i_cadr(((C_word*)t0)[3]); /* compiler.scm:1011: unquotify */ t24=((C_word*)((C_word*)t0)[15])[1]; f_6632(t24,t22,t23,((C_word*)t0)[7]);} else{ t22=C_eqp(((C_word*)t0)[4],lf[270]); if(C_truep(t22)){ t23=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t24=t23; t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp); t26=((C_word*)t25)[1]; t27=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10105,a[2]=((C_word*)t0)[15],a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); t28=C_i_cadr(((C_word*)t0)[3]); t29=C_i_check_list_2(t28,lf[123]); t30=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10118,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[16],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],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_10128,a[2]=t25,a[3]=t32,a[4]=t27,a[5]=t26,tmp=(C_word)a,a+=6,tmp)); t34=((C_word*)t32)[1]; f_10128(t34,t30,t28);} else{ t23=C_eqp(((C_word*)t0)[4],lf[249]); if(C_truep(t23)){ t24=C_i_cadr(((C_word*)t0)[3]); t25=t24; t26=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10177,a[2]=((C_word*)t0)[2],a[3]=t25,tmp=(C_word)a,a+=4,tmp); t27=C_i_caddr(((C_word*)t0)[3]); /* compiler.scm:1019: walk */ t28=((C_word*)((C_word*)t0)[5])[1]; f_6925(t28,t26,t27,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[10],((C_word*)t0)[11]);} else{ t24=C_eqp(((C_word*)t0)[4],lf[252]); if(C_truep(t24)){ t25=C_i_cadr(((C_word*)t0)[3]); t26=t25; t27=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10198,a[2]=((C_word*)t0)[2],a[3]=t26,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)[10],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp); t28=C_i_caddr(((C_word*)t0)[3]); /* compiler.scm:1024: walk */ t29=((C_word*)((C_word*)t0)[5])[1]; f_6925(t29,t27,t28,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[10],((C_word*)t0)[11]);} else{ t25=C_eqp(((C_word*)t0)[4],lf[271]); t26=(C_truep(t25)?t25:C_eqp(((C_word*)t0)[4],lf[272])); if(C_truep(t26)){ t27=C_i_cadr(((C_word*)t0)[3]); t28=t27; t29=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10225,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=t28,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp); /* compiler.scm:1029: ##sys#eval/meta */ t30=*((C_word*)lf[176]+1);{ C_word av2[3]; av2[0]=t30; av2[1]=t29; av2[2]=t28; ((C_proc)(void*)(*((C_word*)t30+1)))(3,av2);}} else{ t27=C_eqp(((C_word*)t0)[4],lf[273]); t28=(C_truep(t27)?t27:C_eqp(((C_word*)t0)[4],lf[274])); if(C_truep(t28)){ t29=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10240,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t30=C_i_cadr(((C_word*)t0)[3]); /* compiler.scm:1033: ##sys#eval/meta */ t31=*((C_word*)lf[176]+1);{ C_word av2[3]; av2[0]=t31; av2[1]=t29; av2[2]=t30; ((C_proc)(void*)(*((C_word*)t31+1)))(3,av2);}} else{ t29=C_eqp(((C_word*)t0)[4],lf[142]); t30=(C_truep(t29)?t29:C_eqp(((C_word*)t0)[4],lf[276])); if(C_truep(t30)){ t31=((C_word*)t0)[3]; t32=C_u_i_cdr(t31); if(C_truep(C_i_pairp(t32))){ t33=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10266,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t34=((C_word*)t0)[3]; t35=C_u_i_cdr(t34); t36=C_SCHEME_UNDEFINED; t37=(*a=C_VECTOR_TYPE|1,a[1]=t36,tmp=(C_word)a,a+=2,tmp); t38=C_set_block_item(t37,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10270,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]=t37,tmp=(C_word)a,a+=10,tmp)); t39=((C_word*)t37)[1]; f_10270(t39,t33,t35);} else{ t33=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t33; av2[1]=lf[277]; ((C_proc)(void*)(*((C_word*)t33+1)))(2,av2);}}} else{ t31=C_eqp(((C_word*)t0)[4],lf[278]); if(C_truep(t31)){ t32=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10314,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]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp); /* compiler.scm:1048: expand-foreign-lambda */ t33=*((C_word*)lf[279]+1);{ C_word av2[4]; av2[0]=t33; av2[1]=t32; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t33+1)))(4,av2);}} else{ t32=C_eqp(((C_word*)t0)[4],lf[280]); if(C_truep(t32)){ t33=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10327,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]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp); /* compiler.scm:1051: expand-foreign-lambda */ t34=*((C_word*)lf[279]+1);{ C_word av2[4]; av2[0]=t34; av2[1]=t33; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t34+1)))(4,av2);}} else{ t33=C_eqp(((C_word*)t0)[4],lf[281]); if(C_truep(t33)){ t34=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10340,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]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp); /* compiler.scm:1054: expand-foreign-lambda* */ t35=*((C_word*)lf[282]+1);{ C_word av2[4]; av2[0]=t35; av2[1]=t34; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t35+1)))(4,av2);}} else{ t34=C_eqp(((C_word*)t0)[4],lf[283]); if(C_truep(t34)){ t35=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10353,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]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp); /* compiler.scm:1057: expand-foreign-lambda* */ t36=*((C_word*)lf[282]+1);{ C_word av2[4]; av2[0]=t36; av2[1]=t35; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t36+1)))(4,av2);}} else{ t35=C_eqp(((C_word*)t0)[4],lf[284]); if(C_truep(t35)){ t36=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10366,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]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp); /* compiler.scm:1060: expand-foreign-primitive */ t37=*((C_word*)lf[285]+1);{ C_word av2[3]; av2[0]=t37; av2[1]=t36; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t37+1)))(3,av2);}} else{ t36=C_eqp(((C_word*)t0)[4],lf[286]); if(C_truep(t36)){ t37=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10375,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t38=C_i_cadr(((C_word*)t0)[3]); /* compiler.scm:1063: ##sys#strip-syntax */ t39=*((C_word*)lf[118]+1);{ C_word av2[3]; av2[0]=t39; av2[1]=t37; av2[2]=t38; ((C_proc)(void*)(*((C_word*)t39+1)))(3,av2);}} else{ t37=C_eqp(((C_word*)t0)[4],lf[288]); if(C_truep(t37)){ t38=C_i_cadr(((C_word*)t0)[3]); t39=t38; t40=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10432,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)[10],a[10]=((C_word*)t0)[11],a[11]=t39,tmp=(C_word)a,a+=12,tmp); t41=C_i_caddr(((C_word*)t0)[3]); /* compiler.scm:1078: ##sys#strip-syntax */ t42=*((C_word*)lf[118]+1);{ C_word av2[3]; av2[0]=t42; av2[1]=t40; av2[2]=t41; ((C_proc)(void*)(*((C_word*)t42+1)))(3,av2);}} else{ t38=C_eqp(((C_word*)t0)[4],lf[293]); if(C_truep(t38)){ t39=C_i_cadr(((C_word*)t0)[3]); t40=t39; t41=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10542,a[2]=((C_word*)t0)[3],a[3]=t40,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:1101: symbol->string */ t42=*((C_word*)lf[231]+1);{ C_word av2[3]; av2[0]=t42; av2[1]=t41; av2[2]=t40; ((C_proc)(void*)(*((C_word*)t42+1)))(3,av2);}} else{ t39=C_eqp(((C_word*)t0)[4],lf[299]); if(C_truep(t39)){ t40=C_i_cadr(((C_word*)t0)[3]); t41=t40; t42=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10598,a[2]=t41,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],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)[3],tmp=(C_word)a,a+=12,tmp); t43=C_i_caddr(((C_word*)t0)[3]); /* compiler.scm:1115: ##sys#strip-syntax */ t44=*((C_word*)lf[118]+1);{ C_word av2[3]; av2[0]=t44; av2[1]=t42; av2[2]=t43; ((C_proc)(void*)(*((C_word*)t44+1)))(3,av2);}} else{ t40=C_eqp(((C_word*)t0)[4],lf[303]); if(C_truep(t40)){ t41=C_i_cadr(((C_word*)t0)[3]); t42=t41; t43=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10728,a[2]=((C_word*)t0)[2],a[3]=t42,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1141: cdaddr */ t44=*((C_word*)lf[305]+1);{ C_word av2[3]; av2[0]=t44; av2[1]=t43; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t44+1)))(3,av2);}} else{ t41=C_eqp(((C_word*)t0)[4],lf[306]); if(C_truep(t41)){ t42=C_i_cadr(((C_word*)t0)[3]); t43=t42; t44=C_i_caddr(((C_word*)t0)[3]); t45=t44; t46=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10743,a[2]=t43,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)[10],a[8]=((C_word*)t0)[11],tmp=(C_word)a,a+=9,tmp); t47=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10845,a[2]=t45,a[3]=t43,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1149: call-with-current-continuation */ t48=*((C_word*)lf[238]+1);{ C_word av2[3]; av2[0]=t48; av2[1]=t46; av2[2]=t47; ((C_proc)(void*)(*((C_word*)t48+1)))(3,av2);}} else{ t42=C_eqp(((C_word*)t0)[4],lf[315]); if(C_truep(t42)){ t43=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t44=t43; t45=(*a=C_VECTOR_TYPE|1,a[1]=t44,tmp=(C_word)a,a+=2,tmp); t46=((C_word*)t45)[1]; t47=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10923,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); t48=((C_word*)t0)[3]; t49=C_u_i_cdr(t48); t50=C_i_check_list_2(t49,lf[123]); t51=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10944,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],tmp=(C_word)a,a+=7,tmp); t52=C_SCHEME_UNDEFINED; t53=(*a=C_VECTOR_TYPE|1,a[1]=t52,tmp=(C_word)a,a+=2,tmp); t54=C_set_block_item(t53,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10946,a[2]=t45,a[3]=t53,a[4]=t47,a[5]=t46,tmp=(C_word)a,a+=6,tmp)); t55=((C_word*)t53)[1]; f_10946(t55,t51,t49);} else{ t43=C_eqp(((C_word*)t0)[4],lf[317]); if(C_truep(t43)){ t44=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10989,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t45=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10999,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[17],a[8]=((C_word*)t0)[16],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* compiler.scm:1188: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t44; av2[3]=t45; C_call_with_values(4,av2);}} else{ t44=C_eqp(((C_word*)t0)[4],lf[341]); if(C_truep(t44)){ t45=C_i_cadr(((C_word*)t0)[3]); t46=t45; if(C_truep(C_i_symbolp(t46))){ t47=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11355,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[2],a[8]=t46,tmp=(C_word)a,a+=9,tmp); /* compiler.scm:1269: lookup */ t48=((C_word*)((C_word*)t0)[13])[1]; f_6538(t48,t47,t46,((C_word*)t0)[7]);} else{ t47=C_a_i_list(&a,2,lf[91],lf[342]); t48=C_a_i_list(&a,5,lf[343],t46,C_fix(0),C_SCHEME_FALSE,t47); /* compiler.scm:1282: walk */ t49=((C_word*)((C_word*)t0)[5])[1]; f_6925(t49,((C_word*)t0)[2],t48,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[10],((C_word*)t0)[11]);}} else{ t45=C_a_i_cons(&a,2,((C_word*)t0)[18],*((C_word*)lf[344]+1)); t46=t45; 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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11372,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[18],tmp=(C_word)a,a+=5,tmp); t51=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11401,a[2]=t49,a[3]=t47,tmp=(C_word)a,a+=4,tmp); t52=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11406,a[2]=((C_word*)t0)[16],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],tmp=(C_word)a,a+=8,tmp); t53=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11412,a[2]=t47,a[3]=t49,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1287: ##sys#dynamic-wind */ t54=*((C_word*)lf[201]+1);{ C_word av2[5]; av2[0]=t54; av2[1]=t50; av2[2]=t51; av2[3]=t52; av2[4]=t53; ((C_proc)(void*)(*((C_word*)t54+1)))(5,av2);}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} /* k7303 in k7282 in k7270 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7305,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7308,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:566: hide-variable */ t3=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7306 in k7303 in k7282 in k7270 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7308,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k13504 in k13498 in k13495 in k13670 in g2604 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_13506,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); /* compiler.scm:1558: note-local */ f_11823(((C_word*)t0)[4],t3);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13516,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_13522,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1559: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k12918 in for-each-loop2333 in k12893 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12920,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_12910(t3,((C_word*)t0)[4],t2);} /* a13521 in k13504 in k13498 in k13495 in k13670 in g2604 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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=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_13522,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_13529,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[431],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_13529(t13,C_i_set_car(t12,((C_word*)t0)[3]));} else{ t12=t8; f_13529(t12,C_SCHEME_UNDEFINED);}} else{ t11=t8; f_13529(t11,C_SCHEME_UNDEFINED);}} else{ t9=t8; f_13529(t9,C_SCHEME_UNDEFINED);}} else{ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13658,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1582: ##sys#strip-syntax */ t9=*((C_word*)lf[118]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} /* k13222 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 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_13224,2,av);} a=C_alloc(10); t2=C_i_check_list_2(t1,lf[123]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13230,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_13232,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_13232(t7,t3,t1);} /* map-loop4378 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_19018(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_19018,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* compiler.scm:2421: g4384 */ f_18990(((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_mutate2(((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);}}} /* a13515 in k13504 in k13498 in k13495 in k13670 in g2604 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13516,2,av);} /* compiler.scm:1559: validate-type */ t2=*((C_word*)lf[426]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop2351 in k12941 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_12951(C_word t0,C_word t1,C_word 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_12951,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_12961,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.scm:1486: g2352 */ 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);}}} /* k19001 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_19003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19003,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); /* compiler.scm:2420: build-lambda-list */ t4=*((C_word*)lf[166]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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]; /* compiler.scm:2420: build-lambda-list */ t4=*((C_word*)lf[166]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k13228 in k13222 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13230,2,av);} /* compiler.scm:1513: append */ t2=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[34]+1); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop2446 in k13222 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_13232(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_13232,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_13257,a[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_13167,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13171,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1517: symbol->string */ t9=*((C_word*)lf[231]+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_13178,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_13178(t12,C_a_i_string(&a,1,t11));} else{ t11=t7; f_13178(t11,C_SCHEME_FALSE);}} else{ t10=t7; f_13178(t10,C_SCHEME_FALSE);}} else{ t8=t7; f_13178(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);}}} /* k13527 in a13521 in k13504 in k13498 in k13495 in k13670 in g2604 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_13529(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_13529,2,t0,t1);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|6,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]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_a_i_list(&a,1,((C_word*)t0)[7]); if(C_truep(C_i_nullp(t3))){ /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[430]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_i_car(t3); /* tweaks.scm:54: ##sys#put! */ t5=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[430]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k12941 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_12943,2,av);} a=C_alloc(6); t2=*((C_word*)lf[410]+1); t3=C_i_check_list_2(t1,lf[89]); 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_12951,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_12951(t7,((C_word*)t0)[2],t1);} /* k19065 in k19062 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_19067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19067,2,av);} if(C_truep(t1)){ t2=C_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_i_cdr(t2); /* compiler.scm:2410: put! */ t4=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[570]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_18743(2,av2);}}} /* k13255 in map-loop2446 in k13222 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_13257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_13257,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_13232(t6,((C_word*)t0)[5],t5);} /* k19062 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_19064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_19064,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19067,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:2409: test */ t3=((C_word*)((C_word*)t0)[6])[1]; f_17921(t3,t2,((C_word*)t0)[2],lf[505]);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_18743(2,av2);}}} /* transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_18493(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; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_18493,5,t0,t1,t2,t3,t4);} a=C_alloc(15); t5=t2; t6=C_slot(t5,C_fix(3)); t7=t6; t8=t2; t9=C_slot(t8,C_fix(2)); t10=t9; t11=t2; t12=C_slot(t11,C_fix(1)); t13=t12; t14=t13; t15=C_eqp(t14,lf[91]); t16=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_18527,a[2]=t2,a[3]=t1,a[4]=t14,a[5]=t10,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=t3,a[9]=t4,a[10]=((C_word*)t0)[4],a[11]=t7,a[12]=((C_word*)t0)[5],a[13]=t13,a[14]=((C_word*)t0)[6],tmp=(C_word)a,a+=15,tmp); if(C_truep(t15)){ t17=t16; f_18527(t17,t15);} else{ t17=C_eqp(t14,lf[129]); t18=t16; f_18527(t18,(C_truep(t17)?t17:C_eqp(t14,lf[517])));}} /* k12959 in for-each-loop2351 in k12941 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12961,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_12951(t3,((C_word*)t0)[4],t2);} /* a7390 in k7384 in k7381 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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=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_7391,3,av);} t3=*((C_word*)lf[134]+1); /* compiler.scm:585: g471 */ t4=*((C_word*)lf[134]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=*((C_word*)lf[135]+1); av2[3]=t2; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k8691 in k8617 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8693,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[2],t1),((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); t4=((C_word*)t0)[4]; f_8622(t4,t3);} /* k7381 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7383,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7386,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t3; av2[2]=*((C_word*)lf[138]+1); av2[3]=t2; C_apply(4,av2);}} /* a7396 in k7384 in k7381 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7397,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* lambda-literal-id in k6339 in k6336 in k6333 */ 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=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_19736,3,av);} t3=C_i_check_structure_2(t2,lf[589],lf[591]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* lambda-literal? in k6339 in k6336 in k6333 */ static void C_ccall f_19730(C_word c,C_word *av){ C_word 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_19730,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[589]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7384 in k7381 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_7386,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7389,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7391,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7397,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:583: ##sys#hash-table-update! */ t5=*((C_word*)lf[136]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t2; av2[2]=*((C_word*)lf[77]+1); av2[3]=lf[137]; av2[4]=t3; av2[5]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k7387 in k7384 in k7381 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7389,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[133]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* make-lambda-literal in k6339 in k6336 in k6333 */ static void C_ccall f_19724(C_word c,C_word *av){ C_word tmp; C_word t0=av[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=av[15]; C_word t16=av[16]; C_word t17=av[17]; C_word t18; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_19724,18,av);} a=C_alloc(18); t18=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=C_a_i_record(&a,17,lf[589],t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17); ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} /* map-loop4297 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_19095(C_word t0,C_word t1,C_word 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_19095,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_mutate2(((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);}}} /* lambda-literal-arguments in k6339 in k6336 in k6333 */ static void C_ccall f_19754(C_word c,C_word *av){ C_word tmp; C_word 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_19754,3,av);} t3=C_i_check_structure_2(t2,lf[589],lf[593]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(3)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10798 in k10781 in k10778 in k10775 in k10772 in k10755 in k10744 in k10741 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 in ... */ static void C_ccall f_10800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10800,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10817,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t3))){ /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[126]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_i_car(t3); /* tweaks.scm:54: ##sys#put! */ t5=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[126]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k10815 in k10798 in k10781 in k10778 in k10775 in k10772 in k10755 in k10744 in k10741 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 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; 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_10817,2,av);} a=C_alloc(15); t2=C_a_i_list(&a,2,lf[117],((C_word*)t0)[2]); t3=C_a_i_list(&a,3,lf[289],((C_word*)t0)[3],t2); /* compiler.scm:1171: walk */ t4=((C_word*)((C_word*)t0)[4])[1]; f_6925(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[8],((C_word*)t0)[9]);} /* k11194 in loop in k11033 in k11022 in k11019 in k11007 in a10998 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_11196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11196,2,av);} /* compiler.scm:1219: foreign-type-convert-result */ t2=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11190 in loop in k11033 in k11022 in k11019 in k11007 in a10998 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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(10,c,3)))){ C_save_and_reclaim((void *)f_11192,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_11184,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); /* compiler.scm:1224: loop */ t9=((C_word*)((C_word*)t0)[6])[1]; f_11160(t9,t4,t6,t8);} /* k15527 in k15524 in walk-call in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_15529,2,av);} a=C_alloc(15); t2=t1; t3=C_a_i_list1(&a,1,((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_15608,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t4,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],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); /* compiler.scm:285: gensym */ t6=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[474]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k15524 in walk-call in perform-cps-conversion in k6339 in k6336 in k6333 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_15526,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_15529,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); /* compiler.scm:1793: gensym */ t4=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[336]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* walk-call in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_15522(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_15522,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(9); t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15526,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); /* compiler.scm:1792: gensym */ t7=*((C_word*)lf[88]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=lf[472]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k11182 in k11190 in loop in k11033 in k11022 in k11019 in k11007 in a10998 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11184,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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-loop3063 in k14634 in k14628 in k14614 in k14611 in k14608 in k14605 in expand-foreign-primitive in k6339 in k6336 in k6333 */ static void C_fcall f_14647(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_14647,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_mutate2(((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);}}} /* k14640 in k14634 in k14628 in k14614 in k14611 in k14608 in k14605 in expand-foreign-primitive in k6339 in k6336 in k6333 */ static void C_ccall f_14642(C_word c,C_word *av){ C_word tmp; C_word 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_14642,2,av);} /* compiler.scm:1691: create-foreign-stub */ t2=*((C_word*)lf[452]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } 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]; av2[5]=t1; av2[6]=((C_word*)t0)[5]; av2[7]=C_SCHEME_FALSE; av2[8]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} /* a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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=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(19,c,2)))){ C_save_and_reclaim((void *)f_9307,4,av);} a=C_alloc(19); t4=t2; t5=t3; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9311,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_9343,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=*((C_word*)lf[184]+1); t9=*((C_word*)lf[207]+1); t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9347,a[2]=t7,a[3]=t4,a[4]=t9,a[5]=t8,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]=t5,tmp=(C_word)a,a+=11,tmp); /* compiler.scm:918: ##sys#meta-macro-environment */ t11=*((C_word*)lf[243]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} /* k9299 in k9296 in k9293 in k9290 in k9287 in k9284 in k9281 in k9278 in a9275 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in ... */ static void C_ccall f_9301(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9301,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_mutate2(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); t4=C_mutate2(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]); t5=C_mutate2(((C_word *)((C_word*)t0)[8])+1,((C_word*)t0)[9]); t6=((C_word*)t0)[10];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k14634 in k14628 in k14614 in k14611 in k14608 in k14605 in expand-foreign-primitive in k6339 in k6336 in k6333 */ 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 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_14636,2,av);} a=C_alloc(13); t2=C_i_check_list_2(t1,lf[123]); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14642,a[2]=((C_word*)t0)[2],a[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_14647,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_14647(t7,t3,t1);} /* k14628 in k14614 in k14611 in k14608 in k14605 in expand-foreign-primitive in k6339 in k6336 in k6333 */ static void C_ccall f_14630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_14630,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_14636,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); /* compiler.scm:1690: ##sys#strip-syntax */ t8=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10196 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10198,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10202,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]); /* compiler.scm:1025: walk */ t5=((C_word*)((C_word*)t0)[5])[1]; f_6925(t5,t3,t4,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[8],((C_word*)t0)[9]);} /* doloop1266 in k9309 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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_9317,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_9327,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); /* compiler.scm:929: ##sys#put! */ t9=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t4; av2[2]=t5; av2[3]=lf[190]; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} /* k9309 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_9311,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9314,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_9317,a[2]=((C_word*)t0)[3],a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_9317(t7,t3,((C_word*)((C_word*)t0)[2])[1]);} /* k9312 in k9309 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9314,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in k11033 in k11022 in k11019 in k11007 in a10998 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_11160(C_word t0,C_word t1,C_word 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_11160,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_11192,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_11196,a[2]=t8,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11200,a[2]=t9,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1221: final-foreign-type */ t11=*((C_word*)lf[95]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}} /* k12497 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 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_12499,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[89]); 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_12507,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_12507(t6,((C_word*)t0)[2],t1);} /* k10120 in k10116 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10122,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[270],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop1477 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_10128(C_word t0,C_word t1,C_word 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_10128,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_10153,a[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)); /* compiler.scm:1015: g1483 */ t5=((C_word*)t0)[4]; f_10105(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);}}} /* k9325 in doloop1266 in k9309 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9327,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)((C_word*)t0)[3])[1]; f_9317(t4,((C_word*)t0)[4],t3);} /* k16598 in assign in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16600(C_word 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_16600,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_16612,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_16612(t4,t2);} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16716,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[3]; /* tweaks.scm:57: ##sys#get */ t6=*((C_word*)lf[85]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=lf[308]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}} /* k14614 in k14611 in k14608 in k14605 in expand-foreign-primitive in k6339 in k6336 in k6333 */ static void C_ccall f_14616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_14616,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[123]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14630,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_14681,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_14681(t12,t8,((C_word*)t0)[2]);} /* k14608 in k14605 in expand-foreign-primitive in k6339 in k6336 in k6333 */ static void C_fcall f_14610(C_word t0,C_word 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_14610,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14613,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_word*)t0)[3])){ t4=C_i_caddr(((C_word*)t0)[4]); /* compiler.scm:1686: ##sys#strip-syntax */ t5=*((C_word*)lf[118]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=((C_word*)t0)[4]; t5=C_u_i_cdr(t4); t6=C_u_i_car(t5); /* compiler.scm:1686: ##sys#strip-syntax */ t7=*((C_word*)lf[118]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t3; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} /* k14611 in k14608 in k14605 in expand-foreign-primitive in k6339 in k6336 in k6333 */ static void C_ccall f_14613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_14613,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14616,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]));{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t3; av2[2]=*((C_word*)lf[296]+1); av2[3]=t4; C_apply(4,av2);}} /* k10175 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10177(C_word c,C_word *av){ C_word tmp; 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_10177,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[249],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop3035 in k14614 in k14611 in k14608 in k14605 in expand-foreign-primitive in k6339 in k6336 in k6333 */ static void C_fcall f_14681(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_14681,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_mutate2(((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);}}} /* k19969 in k19953 in k19950 in k19947 in walk-global in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_19971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,1)))){ C_save_and_reclaim((void *)f_19971,2,av);} a=C_alloc(17); t2=C_a_i_list4(&a,4,t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=((C_word*)t0)[5]; t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[610],t2,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10874 in a10868 in a10862 in a10844 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_10876,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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[149],*((C_word*)lf[71]+1),((C_word*)t0)[3]); /* compiler.scm:1156: eval */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* a18352 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ 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=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_18353,5,av);} a=C_alloc(10); t5=(C_truep(((C_word*)t0)[2])?C_i_car(((C_word*)t0)[3]):lf[557]); t6=t5; t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18360,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); /* compiler.scm:2345: append */ t8=*((C_word*)lf[151]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k11129 in k11053 in k11033 in k11022 in k11019 in k11007 in a10998 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_11131(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_11131,2,av);} a=C_alloc(42); t2=C_a_i_list(&a,2,lf[91],((C_word*)t0)[2]); t3=C_a_i_list(&a,3,lf[323],lf[336],t2); t4=C_a_i_list(&a,3,t1,lf[336],t3); t5=C_a_i_list(&a,3,lf[149],((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[149],t7); /* compiler.scm:1225: foreign-type-convert-argument */ t9=*((C_word*)lf[251]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a18364 in k18358 in a18352 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18365,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k18358 in a18352 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18360(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_18360,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_18365,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_18370,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_18395,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:2343: ##sys#dynamic-wind */ t9=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19989 in k19982 in k19947 in walk-global in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_19991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19991,2,av);} t2=((C_word*)t0)[2]; f_19952(t2,C_i_not(t1));} /* k18372 in a18369 in k18358 in a18352 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_18374,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18377,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_u_i_length(t2); /* compiler.scm:2347: put! */ t5=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[559]; av2[5]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* a18369 in k18358 in a18352 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_18370,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18374,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_18389,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_i_car(((C_word*)t0)[6]); /* compiler.scm:2346: gather */ t5=((C_word*)((C_word*)t0)[7])[1]; f_17948(t5,t3,t4,((C_word*)t0)[5],((C_word*)t0)[3]);} /* k18375 in k18372 in a18369 in k18358 in a18352 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18377(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_18377,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18380,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:2348: put! */ t3=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[558]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* a10894 in a10862 in a10844 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10895(C_word c,C_word *av){ C_word tmp; 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_10895,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_10901,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1149: k1619 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k19982 in k19947 in walk-global in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_19984,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19991,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2571: variable-visible? */ t3=*((C_word*)lf[522]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_19952(t2,C_SCHEME_FALSE);}} /* k18378 in k18375 in k18372 in a18369 in k18358 in a18352 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18380(C_word c,C_word *av){ C_word tmp; C_word 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_18380,2,av);} /* compiler.scm:2349: lset-difference */ t2=*((C_word*)lf[399]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[135]+1); 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);}} /* k18387 in a18369 in k18358 in a18352 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18389,2,av);} /* compiler.scm:2346: delete-duplicates */ t2=*((C_word*)lf[560]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[135]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a18394 in k18358 in a18352 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18395,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a9381 in k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_9382,2,av);} 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_9387,a[2]=((C_word*)t0)[2],a[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[123]); 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_9403,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_9403(t11,t1,((C_word*)t0)[6]);} /* g1242 in a9381 in k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_9387(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(8,0,2)))){ C_save_and_reclaim_args((void *)trf_9387,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9395,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],tmp=(C_word)a,a+=8,tmp); /* compiler.scm:924: ##sys#current-meta-environment */ t4=*((C_word*)lf[242]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10116 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){ C_save_and_reclaim((void *)f_10118,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10122,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_i_cddr(((C_word*)t0)[3]); /* compiler.scm:1016: mapwalk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_11656(t5,t3,t4,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* a10844 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10845(C_word c,C_word *av){ C_word tmp; C_word 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_10845,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10851,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_10863,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1149: with-exception-handler */ t5=*((C_word*)lf[237]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9393 in g1242 in a9381 in k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_9395,2,av);} /* compiler.scm:921: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6925(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7]);} /* k12415 in for-each-loop2082 in k12333 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12417,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_12407(t3,((C_word*)t0)[4],t2);} /* a10850 in a10844 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_10851,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10857,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1149: k1619 */ t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a10856 in a10850 in a10844 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10857,2,av);} /* compiler.scm:1151: quit */ t2=*((C_word*)lf[310]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=lf[314]; av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k12441 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12443,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12447,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1424: append */ t3=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[11]+1); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* compiler.scm:1425: syntax-error */ t2=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[387]; av2[3]=lf[388]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k12445 in k12441 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12447,2,av);} t2=C_mutate2((C_word*)lf[11]+1 /* (set! ##compiler#foreign-declarations ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* g4159 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_18409(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_18409,3,t0,t1,t2);} /* compiler.scm:2351: gather */ t3=((C_word*)((C_word*)t0)[2])[1]; f_17948(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_14972(C_word t0,C_word t1){ C_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_14972,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ /* compiler.scm:1735: 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[114]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14984,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); /* compiler.scm:1736: gensym */ t4=*((C_word*)lf[88]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[472]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=C_eqp(((C_word*)t0)[5],lf[150]); 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_15113,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[8],a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_15113(t7,((C_word*)t0)[3],((C_word*)t0)[9],((C_word*)t0)[6]);} else{ t4=C_eqp(((C_word*)t0)[5],lf[453]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[5],lf[161])); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15205,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); /* compiler.scm:285: gensym */ t7=*((C_word*)lf[88]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=lf[474]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t6=C_eqp(((C_word*)t0)[5],lf[253]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15218,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); /* compiler.scm:1762: gensym */ t8=*((C_word*)lf[88]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=lf[475]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t7=C_eqp(((C_word*)t0)[5],lf[317]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15297,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); /* compiler.scm:285: gensym */ t9=*((C_word*)lf[88]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=lf[474]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t8=C_eqp(((C_word*)t0)[5],lf[269]); t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_15359,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_15359(t10,t8);} else{ t10=C_eqp(((C_word*)t0)[5],lf[270]); if(C_truep(t10)){ t11=t9; f_15359(t11,t10);} else{ t11=C_eqp(((C_word*)t0)[5],lf[92]); if(C_truep(t11)){ t12=t9; f_15359(t12,t11);} else{ t12=C_eqp(((C_word*)t0)[5],lf[249]); if(C_truep(t12)){ t13=t9; f_15359(t13,t12);} else{ t13=C_eqp(((C_word*)t0)[5],lf[96]); if(C_truep(t13)){ t14=t9; f_15359(t14,t13);} else{ t14=C_eqp(((C_word*)t0)[5],lf[252]); t15=t9; f_15359(t15,(C_truep(t14)?t14:C_eqp(((C_word*)t0)[5],lf[168])));}}}}}}}}}}}} /* a10862 in a10844 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10863,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10869,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10895,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1149: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a10868 in a10862 in a10844 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10869(C_word c,C_word *av){ C_word tmp; C_word t0=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_10869,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10876,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_10876(2,av2);}} else{ /* compiler.scm:1154: collapsable-literal? */ t3=*((C_word*)lf[313]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k14605 in expand-foreign-primitive in k6339 in k6336 in k6333 */ static void C_fcall f_14607(C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_14607,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14610,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=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); t6=t3; f_14610(t6,C_u_i_car(t5));} else{ t4=t3; f_14610(t4,lf[466]);}} /* ##compiler#expand-foreign-primitive in k6339 in k6336 in k6333 */ static void C_ccall f_14603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14603,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14607,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_cddr(t2); if(C_truep(C_i_pairp(t4))){ t5=C_i_caddr(t2); t6=C_i_stringp(t5); t7=t3; f_14607(t7,C_i_not(t6));} else{ t5=t3; f_14607(t5,C_SCHEME_FALSE);}} /* g1483 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_10105(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_10105,3,t0,t1,t2);} /* compiler.scm:1015: g1500 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_6632(t3,t1,t2,((C_word*)t0)[3]);} /* map-loop707 in k7874 in k7848 in k7842 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_7981(C_word t0,C_word t1,C_word 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_7981,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_mutate2(((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);}}} /* a11400 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_11401(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11401,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[344]+1)); t3=C_mutate2((C_word*)lf[344]+1 /* (set! ##sys#syntax-context ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a11405 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_11406(C_word c,C_word *av){ C_word tmp; C_word 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_11406,2,av);} /* compiler.scm:1289: mapwalk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11656(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k9084 in k9081 in k9078 in k9074 in k9070 in k9066 in k9062 in k9059 in k9056 in k9053 in a9050 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in ... */ static void C_ccall f_9086(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9086,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9089,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:863: macro-environment11121113 */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9087 in k9084 in k9081 in k9078 in k9074 in k9070 in k9066 in k9062 in k9059 in k9056 in k9053 in a9050 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in ... */ static void C_ccall f_9089(C_word c,C_word *av){ C_word tmp; C_word t0=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_9089,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9092,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:863: module-alias-environment11141115 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9078 in k9074 in k9070 in k9066 in k9062 in k9059 in k9056 in k9053 in a9050 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in ... */ 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; 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_9080,2,av);} a=C_alloc(10); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9083,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); /* compiler.scm:863: current-module11081109 */ t4=((C_word*)t0)[11];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9081 in k9078 in k9074 in k9070 in k9066 in k9062 in k9059 in k9056 in k9053 in a9050 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_9083,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9086,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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.scm:863: current-environment11101111 */ t3=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14982 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_14984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14984,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14987,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); /* compiler.scm:1737: gensym */ t4=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[336]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1 in k14985 in k14982 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_14988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14988,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_15009,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:1738: varnode */ t6=*((C_word*)lf[471]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k14985 in k14982 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_14987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_14987,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14988,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|8,a[1]=(C_word)f_15098,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]=t3,a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); /* compiler.scm:285: gensym */ t7=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[474]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k9090 in k9087 in k9084 in k9081 in k9078 in k9074 in k9070 in k9066 in k9062 in k9059 in k9056 in k9053 in a9050 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in ... */ static void C_ccall f_9092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9092,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* for-each-loop2082 in k12333 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_12407(C_word t0,C_word 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_12407,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_12417,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_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t5))){ /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[265]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_i_car(t5); /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=lf[265]; 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);}}} /* walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_14930(C_word t0,C_word t1,C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_14930,4,t0,t1,t2,t3);} a=C_alloc(14); 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=t2; t14=C_slot(t13,C_fix(1)); t15=t14; t16=C_eqp(t15,lf[473]); t17=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_14972,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t15,a[6]=t6,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],a[9]=t9,a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[5],a[12]=t12,a[13]=((C_word*)t0)[6],tmp=(C_word)a,a+=14,tmp); if(C_truep(t16)){ t18=t17; f_14972(t18,t16);} else{ t18=C_eqp(t15,lf[91]); if(C_truep(t18)){ t19=t17; f_14972(t19,t18);} else{ t19=C_eqp(t15,lf[129]); t20=t17; f_14972(t20,(C_truep(t19)?t19:C_eqp(t15,lf[98])));}}} /* k9066 in k9062 in k9059 in k9056 in k9053 in a9050 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_9068,2,av);} a=C_alloc(15); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_9072,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); /* compiler.scm:863: current-environment11101111 */ t4=((C_word*)t0)[12];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7917 in k7901 in k7874 in k7848 in k7842 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7919,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[149],t2); t4=C_a_i_list(&a,1,t3); /* compiler.scm:406: ##sys#append */ t5=*((C_word*)lf[156]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9059 in k9056 in k9053 in a9050 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_9061,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_9064,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((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])){ /* compiler.scm:863: module-alias-environment11141115 */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[5])[1]; f_9064(2,av2);}}} /* k9062 in k9059 in k9056 in k9053 in a9050 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in ... */ static void C_ccall f_9064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9064,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_9068,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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); /* compiler.scm:863: current-module11081109 */ t4=((C_word*)t0)[13];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a11411 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11412,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[344]+1)); t3=C_mutate2((C_word*)lf[344]+1 /* (set! ##sys#syntax-context ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9074 in k9070 in k9066 in k9062 in k9059 in k9056 in k9053 in a9050 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in ... */ static void C_ccall f_9076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9076,2,av);} a=C_alloc(13); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9080,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); /* compiler.scm:863: module-alias-environment11141115 */ t4=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9070 in k9066 in k9062 in k9059 in k9056 in k9053 in a9050 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in ... */ static void C_ccall f_9072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9072,2,av);} a=C_alloc(14); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9076,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); /* compiler.scm:863: macro-environment11121113 */ t4=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_9046,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_9051,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_9107,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_9276,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); /* compiler.scm:863: ##sys#dynamic-wind */ t15=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20521 in k20496 in k20490 in a20351 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_20523,2,av);} if(C_truep(t1)){ /* compiler.scm:2660: get */ t2=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[505]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=C_i_not(((C_word*)t0)[5]); if(C_truep(t2)){ if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[617]; f_20359(2,av2);}} else{ /* compiler.scm:2660: get */ t3=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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]=lf[505]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} else{ if(C_truep(C_i_nullp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[617]; f_20359(2,av2);}} else{ /* compiler.scm:2660: get */ t3=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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]=lf[505]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}}} /* k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_9043,2,av);} a=C_alloc(15); t2=t1; t3=*((C_word*)lf[209]+1); t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_9046,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); /* compiler.scm:870: ##sys#module-alias-environment */ t5=*((C_word*)lf[208]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k9056 in k9053 in a9050 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in ... */ static void C_ccall f_9058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9058,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9061,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((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])){ /* compiler.scm:863: macro-environment11121113 */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[4])[1]; f_9061(2,av2);}}} /* a9050 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9051(C_word c,C_word *av){ C_word tmp; C_word t0=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_9051,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9055,a[2]=((C_word*)t0)[2],a[3]=((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])){ /* compiler.scm:863: current-module11081109 */ t3=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_9055(2,av2);}}} /* loop in k16096 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16103(C_word t0,C_word t1,C_word 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_16103,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_16121,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); /* compiler.scm:1907: append */ t7=*((C_word*)lf[151]+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_16130,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); /* compiler.scm:1910: put! */ t9=*((C_word*)lf[493]+1);{ C_word av2[6]; av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[11]; av2[3]=t5; av2[4]=lf[500]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t9+1)))(6,av2);}}} /* k9053 in a9050 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_9055,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9058,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((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])){ /* compiler.scm:863: current-environment11101111 */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[3])[1]; f_9058(2,av2);}}} /* k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t6; C_word t7; C_word t8; C_word 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,c,3)))){ C_save_and_reclaim((void *)f_9025,2,av);} a=C_alloc(24); t2=t1; t3=C_i_caddr(((C_word*)t0)[2]); t4=C_eqp(C_SCHEME_TRUE,t3); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9031,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],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(t4)){ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t4; f_9031(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_9462,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9511,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); /* compiler.scm:858: ##sys#strip-syntax */ t16=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t16; av2[1]=t11; av2[2]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}}} /* k10077 in k10073 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_10079,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[269],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10073 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10075,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10079,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_i_cddr(((C_word*)t0)[3]); /* compiler.scm:1011: mapwalk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_11656(t5,t3,t4,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_9039,2,av);} a=C_alloc(13); t2=*((C_word*)lf[184]+1); t3=*((C_word*)lf[180]+1); t4=*((C_word*)lf[207]+1); t5=*((C_word*)lf[208]+1); t6=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9043,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); /* compiler.scm:865: ##sys#register-module */ t7=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9031,2,av);} a=C_alloc(16); t2=t1; t3=((C_word*)((C_word*)t0)[2])[1]; t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9034,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)[2],a[10]=t3,a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9455,a[2]=t4,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:860: ##sys#current-module */ t6=*((C_word*)lf[184]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k7905 in k7901 in k7874 in k7848 in k7842 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,8)))){ C_save_and_reclaim((void *)f_7907,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[149],t2); t4=C_a_i_list(&a,3,lf[149],((C_word*)t0)[3],t3); /* compiler.scm:644: walk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_6925(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_word*)t0)[11]);} /* k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,4)))){ C_save_and_reclaim((void *)f_9034,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9039,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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|7,a[1]=(C_word)f_9307,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],tmp=(C_word)a,a+=8,tmp); /* compiler.scm:863: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16119 in loop in k16096 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16121(C_word c,C_word *av){ C_word tmp; C_word 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_16121,2,av);} /* compiler.scm:1907: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_15935(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,((C_word*)t0)[6],((C_word*)t0)[7]);} /* k7901 in k7874 in k7848 in k7842 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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_7903,2,av);} a=C_alloc(28); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7907,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|3,a[1]=(C_word)f_7919,a[2]=((C_word*)t0)[11],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_7933,a[2]=t6,a[3]=t10,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_7933(t12,t8,((C_word*)t0)[12],((C_word*)t0)[13]);} /* k9007 in map-loop1027 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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(3,c,2)))){ C_save_and_reclaim((void *)f_9009,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8984(t6,((C_word*)t0)[5],t5);} /* k20572 in k20560 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_20574,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_20582,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); /* compiler.scm:2716: append */ t6=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20580 in k20572 in k20560 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20582(C_word c,C_word *av){ C_word tmp; C_word 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_20582,2,av);} /* compiler.scm:2714: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20018(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);} /* k20584 in k20560 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20586,2,av);} /* compiler.scm:2715: append */ t2=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10045 in map-loop1444 in k9992 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10047,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10022(t6,((C_word*)t0)[5],t5);} /* k13387 in for-each-loop2527 in k13369 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13389,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_13379(t3,((C_word*)t0)[4],t2);} /* k12392 in for-each-loop2119 in k12358 in k12333 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12394,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_12384(t3,((C_word*)t0)[4],t2);} /* k19950 in k19947 in walk-global in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_19952(C_word 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_19952,2,t0,t1);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,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],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_a_i_plus(&a,2,((C_word*)((C_word*)t0)[7])[1],C_fix(1)); t5=C_mutate2(((C_word *)((C_word*)t0)[7])+1,t4); t6=t3; f_19955(t6,t5);} else{ t4=t3; f_19955(t4,C_SCHEME_UNDEFINED);}} /* k19953 in k19950 in k19947 in walk-global in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_19955(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_19955,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19971,a[2]=((C_word*)t0)[2],a[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])){ /* compiler.scm:2576: blockvar-literal */ t3=((C_word*)((C_word*)t0)[6])[1]; f_21439(t3,t2,((C_word*)t0)[4]);} else{ /* compiler.scm:2577: literal */ t3=((C_word*)((C_word*)t0)[7])[1]; f_21378(t3,t2,((C_word*)t0)[4]);}} /* for-each-loop2119 in k12358 in k12333 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_12384(C_word t0,C_word 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_12384,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_12394,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_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t5))){ /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[126]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_i_car(t5); /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=lf[126]; 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);}}} /* a20351 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(28,c,4)))){ C_save_and_reclaim((void *)f_20352,5,av);} a=C_alloc(28); t5=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t6=t5; t7=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_20359,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]=t6,a[17]=((C_word*)t0)[14],a[18]=t2,a[19]=t4,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)){ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20492,a[2]=t7,a[3]=((C_word*)t0)[15],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:2657: get */ t9=*((C_word*)lf[496]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[15]; av2[3]=t4; av2[4]=lf[523]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t8=t7;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; f_20359(2,av2);}}} /* k19938 in k19922 in k19888 in walk-var in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_19940,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[609],t2,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* walk-global in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_19945(C_word t0,C_word t1,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_19945,4,t0,t1,t2,t3);} a=C_alloc(12); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19949,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_19949(2,av2);}} else{ t5=*((C_word*)lf[20]+1); if(C_truep(*((C_word*)lf[20]+1))){ t6=*((C_word*)lf[20]+1); t7=t4;{ C_word av2[2]; av2[0]=t7; av2[1]=*((C_word*)lf[20]+1); f_19949(2,av2);}} else{ t6=*((C_word*)lf[10]+1); if(C_truep(*((C_word*)lf[10]+1))){ t7=t4;{ C_word av2[2]; av2[0]=t7; av2[1]=*((C_word*)lf[10]+1); f_19949(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20005,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t8=t2; /* tweaks.scm:57: ##sys#get */ t9=*((C_word*)lf[85]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t7; av2[2]=t8; av2[3]=lf[126]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}}}} /* k19947 in walk-global in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_19949,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19952,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_19984,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2570: get */ t5=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[509]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k16171 in a16160 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_16173,2,av);} a=C_alloc(11); t2=*((C_word*)lf[73]+1); t3=C_set_block_item(lf[73] /* ##compiler#toplevel-scope */,0,C_SCHEME_FALSE); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16177,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_16186,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); /* compiler.scm:1925: append */ t8=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16175 in k16171 in a16160 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16177,2,av);} t2=C_mutate2((C_word*)lf[73]+1 /* (set! ##compiler#toplevel-scope ...) */,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k20357 in a20351 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_20359,2,av);} a=C_alloc(33); t2=t1; t3=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_20362,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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],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_20462,a[2]=t2,a[3]=((C_word*)t0)[18],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_20483,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=C_eqp(lf[617],t2); if(C_truep(t8)){ /* compiler.scm:2664: butlast */ t9=*((C_word*)lf[620]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t7; av2[2]=((C_word*)t0)[18]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t9=((C_word*)t0)[18]; /* compiler.scm:2663: ##sys#fast-reverse */ t10=*((C_word*)lf[619]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t6; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}} /* k12333 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_12335,2,av);} a=C_alloc(9); t2=t1; t3=C_i_check_list_2(t2,lf[89]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12360,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_12407,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_12407(t8,t4,t2);} /* k16184 in k16171 in a16160 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16186(C_word c,C_word *av){ C_word tmp; C_word 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_16186,2,av);} /* compiler.scm:1925: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_15935(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,C_SCHEME_FALSE);} /* for-each-loop3491 in a16160 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16188(C_word t0,C_word t1,C_word 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_16188,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_16198,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.scm:1919: g3492 */ t5=((C_word*)t0)[3]; f_16163(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);}}} /* for-each-loop2527 in k13369 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_13379(C_word t0,C_word 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_13379,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_13389,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_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t5))){ /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[412]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_i_car(t5); /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=lf[412]; 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);}}} /* k13369 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_13371,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[89]); 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_13379,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_13379(t6,((C_word*)t0)[2],t1);} /* k20377 in k20369 in k20366 in k20363 in k20360 in k20357 in a20351 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_20379,2,av);} a=C_alloc(8); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)((C_word*)t0)[3])[1]; t4=C_u_i_car(t3); t5=C_a_i_list1(&a,1,t4); t6=((C_word*)t0)[4]; t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[469],lf[517],t5,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k10151 in map-loop1477 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10153,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10128(t6,((C_word*)t0)[5],t5);} /* k20369 in k20366 in k20363 in k20360 in k20357 in a20351 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,4)))){ C_save_and_reclaim((void *)f_20371,2,av);} a=C_alloc(5); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_mutate2(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); t4=C_mutate2(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]); t5=C_mutate2(((C_word *)((C_word*)t0)[8])+1,((C_word*)t0)[9]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20379,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); /* compiler.scm:2703: lset-adjoin */ t7=*((C_word*)lf[550]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=*((C_word*)lf[614]+1); av2[3]=((C_word*)t0)[13]; av2[4]=((C_word*)t0)[14]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k16196 in for-each-loop3491 in a16160 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16198,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_16188(t3,((C_word*)t0)[4],t2);} /* k16128 in loop in k16096 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ C_save_and_reclaim((void *)f_16130,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_16133,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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); /* compiler.scm:1911: assign */ t3=((C_word*)((C_word*)t0)[12])[1]; f_16587(t3,t2,((C_word*)t0)[13],((C_word*)t0)[7],((C_word*)t0)[14],((C_word*)t0)[11]);} /* k21270 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,1)))){ C_save_and_reclaim((void *)f_21272,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=((C_word*)((C_word*)t0)[3])[1]; t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],((C_word*)t0)[4],t3,t1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* for-each-loop2484 in k13301 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_13311(C_word t0,C_word 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_13311,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_13321,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_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t5))){ /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[165]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_i_car(t5); /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=lf[165]; 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);}}} /* k18307 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_18309,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_18165(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18305,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* tweaks.scm:57: ##sys#get */ t3=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[402]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k18303 in k18307 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18305(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18305,2,av);} a=C_alloc(5); t2=C_eqp(lf[401],t1); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_18165(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18286,a[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.scm:2313: test */ t4=((C_word*)((C_word*)t0)[3])[1]; f_17921(t4,t3,((C_word*)t0)[4],lf[519]);}} /* k10018 in k9992 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10020(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10020,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[168],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop1444 in k9992 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_10022(C_word t0,C_word t1,C_word 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_10022,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_10047,a[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)); /* compiler.scm:1005: g1450 */ t5=((C_word*)t0)[4]; f_10003(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);}}} /* k16134 in k16131 in k16128 in loop in k16096 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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; 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_16136,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* compiler.scm:1913: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_16103(t6,((C_word*)t0)[5],t3,t5);} /* k16131 in k16128 in loop in k16096 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16133,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16136,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:1912: walk */ t3=((C_word*)((C_word*)t0)[6])[1]; f_15935(t3,t2,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);} /* k20363 in k20360 in k20357 in a20351 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,5)))){ C_save_and_reclaim((void *)f_20365,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_20368,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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)[17])?((C_word*)t0)[19]:C_SCHEME_FALSE); if(C_truep(t3)){ /* compiler.scm:2674: bomb */ t4=*((C_word*)lf[480]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t2; av2[2]=lf[616]; av2[3]=((C_word*)t0)[16]; av2[4]=((C_word*)((C_word*)t0)[8])[1]; av2[5]=((C_word*)t0)[19]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_20368(2,av2);}}} /* k20366 in k20363 in k20360 in k20357 in a20351 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 t3; C_word t4; 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(42,c,4)))){ C_save_and_reclaim((void *)f_20368,2,av);} a=C_alloc(42); t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_20371,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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|4,a[1]=(C_word)f_20397,a[2]=t2,a[3]=((C_word*)t0)[15],a[4]=((C_word*)t0)[16],tmp=(C_word)a,a+=5,tmp); t4=C_i_cadr(((C_word*)((C_word*)t0)[11])[1]); t5=t4; t6=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[4])[1],C_fix(1)); t7=t6; t8=(C_truep(((C_word*)t0)[17])?((C_word*)t0)[17]:C_i_memq(((C_word*)t0)[16],*((C_word*)lf[57]+1))); t9=t8; t10=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_20413,a[2]=t3,a[3]=((C_word*)t0)[16],a[4]=t5,a[5]=((C_word*)t0)[18],a[6]=((C_word*)t0)[14],a[7]=((C_word*)t0)[19],a[8]=t7,a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[8],a[12]=t9,a[13]=((C_word*)t0)[20],a[14]=((C_word*)t0)[21],a[15]=((C_word*)t0)[17],a[16]=((C_word*)t0)[22],a[17]=((C_word*)t0)[2],tmp=(C_word)a,a+=18,tmp); /* compiler.scm:2689: get */ t11=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[559]; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} /* k20360 in k20357 in a20351 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_20362,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_20365,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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],tmp=(C_word)a,a+=23,tmp); t4=C_eqp(((C_word*)t0)[20],lf[617]); if(C_truep(t4)){ /* compiler.scm:2672: debugging */ t5=*((C_word*)lf[537]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t3; av2[2]=lf[583]; av2[3]=lf[618]; av2[4]=((C_word*)t0)[19]; av2[5]=((C_word*)t0)[16]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_20365(2,av2);}}} /* k10778 in k10775 in k10772 in k10755 in k10744 in k10741 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_10780,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10783,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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); /* compiler.scm:1168: hide-variable */ t3=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10781 in k10778 in k10775 in k10772 in k10755 in k10744 in k10741 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_10783,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10800,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t3))){ /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[308]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_i_car(t3); /* tweaks.scm:54: ##sys#put! */ t5=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[308]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k19922 in k19888 in walk-var in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_19924(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_19924,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19940,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2561: literal */ t3=((C_word*)((C_word*)t0)[3])[1]; f_21378(t3,t2,((C_word*)t0)[4]);} else{ /* compiler.scm:2562: walk-global */ t2=((C_word*)((C_word*)t0)[5])[1]; f_19945(t2,((C_word*)t0)[2],((C_word*)t0)[4],((C_word*)t0)[6]);}} /* k13301 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 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_13303,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[89]); 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_13311,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_13311(t6,((C_word*)t0)[2],t1);} /* k12306 in for-each-loop2006 in k12237 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12308,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_12298(t3,((C_word*)t0)[4],t2);} /* g3492 in a16160 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16163(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_16163,3,t0,t1,t2);} /* compiler.scm:1921: put! */ t3=*((C_word*)lf[493]+1);{ C_word av2[6]; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=lf[501]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* a16160 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16161,5,av);} a=C_alloc(16); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16163,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t6=t2; t7=C_i_check_list_2(t6,lf[89]); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16173,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_16188,a[2]=t10,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_16188(t12,t8,t6);} /* g4384 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static C_word C_fcall f_18990(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);}} /* k10758 in k10755 in k10744 in k10741 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10760,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[307]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10772 in k10755 in k10744 in k10741 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_10774,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|9,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],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); /* compiler.scm:1166: gensym */ t3=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[309]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* compiler.scm:1173: quit */ t2=*((C_word*)lf[310]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[311]; av2[3]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k13319 in for-each-loop2484 in k13301 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_13321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13321,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_13311(t3,((C_word*)t0)[4],t2);} /* k10775 in k10772 in k10755 in k10744 in k10741 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_10777,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10780,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_a_i_list1(&a,1,t2); /* compiler.scm:1167: ##sys#hash-table-set! */ t5=*((C_word*)lf[291]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[53]+1); av2[3]=((C_word*)t0)[9]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k9341 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9343,2,av);} /* compiler.scm:914: canonicalize-begin-body */ t2=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(30,c,4)))){ C_save_and_reclaim((void *)f_9347,2,av);} a=C_alloc(30); t2=C_SCHEME_FALSE; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=t1; 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_9350,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9352,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9382,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],tmp=(C_word)a,a+=7,tmp); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9437,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:916: ##sys#dynamic-wind */ t12=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15357 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_15359(C_word t0,C_word t1){ C_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_15359,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ /* compiler.scm:1780: walk-inline-call */ t2=((C_word*)((C_word*)t0)[2])[1]; f_15698(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[470]); if(C_truep(t2)){ t3=C_i_car(((C_word*)t0)[6]); t4=C_u_i_cdr(((C_word*)t0)[6]); /* compiler.scm:1781: walk-call */ t5=((C_word*)((C_word*)t0)[9])[1]; f_15522(t5,((C_word*)t0)[3],t3,t4,((C_word*)t0)[5],((C_word*)t0)[7]);} else{ t3=C_eqp(((C_word*)t0)[8],lf[345]); 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_15618,a[2]=t6,a[3]=t5,a[4]=t7,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:1806: gensym */ t9=*((C_word*)lf[88]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=lf[472]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t4=C_eqp(((C_word*)t0)[8],lf[121]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[8],lf[478])); if(C_truep(t5)){ t6=C_i_car(((C_word*)t0)[6]); /* compiler.scm:1785: walk */ t7=((C_word*)((C_word*)t0)[10])[1]; f_14930(t7,((C_word*)t0)[3],t6,((C_word*)t0)[7]);} else{ t6=C_eqp(((C_word*)t0)[8],lf[122]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15419,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:1788: last */ t8=*((C_word*)lf[479]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ /* compiler.scm:1789: bomb */ t7=*((C_word*)lf[480]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=((C_word*)t0)[3]; av2[2]=lf[481]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}}}} /* k15348 in k15295 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_15350,2,av);} a=C_alloc(10); t2=C_a_i_cons(&a,2,t1,*((C_word*)lf[62]+1)); t3=C_mutate2((C_word*)lf[62]+1 /* (set! foreign-callback-stubs ...) */,t2); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15321,a[2]=((C_word*)t0)[2],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_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t5))){ /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=lf[476]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_i_car(t5); /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=lf[476]; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k10741 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_10743,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10746,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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.scm:1149: g1623 */ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10744 in k10741 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; 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,c,2)))){ C_save_and_reclaim((void *)f_10746,2,av);} a=C_alloc(25); t2=t1; t3=C_set_block_item(lf[54] /* ##compiler#constants-used */,0,C_SCHEME_TRUE); t4=C_a_i_list(&a,2,lf[117],t2); t5=C_a_i_list2(&a,2,((C_word*)t0)[2],t4); t6=C_a_i_cons(&a,2,t5,*((C_word*)lf[71]+1)); t7=C_mutate2((C_word*)lf[71]+1 /* (set! ##compiler#defconstant-bindings ...) */,t6); t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10757,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],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* compiler.scm:1162: collapsable-literal? */ t9=*((C_word*)lf[313]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k16013 in k15982 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_16015,2,av);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* compiler.scm:1888: put! */ t2=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[495]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k9348 in k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9350,2,av);} /* compiler.scm:915: append */ t2=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a9351 in k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_9352,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9356,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])){ /* compiler.scm:916: current-module12091210 */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_9356(2,av2);}}} /* k9354 in a9351 in k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9356,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,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]=((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])){ /* compiler.scm:916: macro-environment12111212 */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[3])[1]; f_9359(2,av2);}}} /* k9357 in k9354 in a9351 in k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 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(10,c,2)))){ C_save_and_reclaim((void *)f_9359,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9363,a[2]=((C_word*)t0)[2],a[3]=((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.scm:916: current-module12091210 */ t4=((C_word*)t0)[7];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k15319 in k15348 in k15295 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,5)))){ C_save_and_reclaim((void *)f_15321,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_i_car(t2); t4=C_slot(((C_word*)t0)[2],C_fix(3)); /* compiler.scm:1777: cps-lambda */ t5=((C_word*)((C_word*)t0)[3])[1]; f_14835(t5,((C_word*)t0)[4],((C_word*)t0)[5],t3,t4,((C_word*)t0)[6]);} /* k10755 in k10744 in k10741 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_10757,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10760,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_a_i_list(&a,2,lf[117],((C_word*)t0)[3]); t4=C_a_i_list1(&a,1,t3); /* compiler.scm:1163: ##sys#hash-table-set! */ t5=*((C_word*)lf[291]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=*((C_word*)lf[53]+1); av2[3]=((C_word*)t0)[4]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10774,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); /* compiler.scm:1165: basic-literal? */ t3=*((C_word*)lf[312]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* map-loop740 in k7901 in k7874 in k7848 in k7842 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_7933(C_word t0,C_word t1,C_word 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_7933,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[157],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_mutate2(((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);}}} /* k9361 in k9357 in k9354 in a9351 in k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in ... */ static void C_ccall f_9363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9363,2,av);} a=C_alloc(9); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9367,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); /* compiler.scm:916: macro-environment12111212 */ t4=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k20683 in g4955 in k20658 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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; 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_20685,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[623],((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9365 in k9361 in k9357 in k9354 in a9351 in k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_9367,2,av);} a=C_alloc(6); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9370,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); /* compiler.scm:916: current-module12091210 */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k10721 in k10726 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10723,2,av);} t2=C_set_block_item(lf[52] /* ##compiler#inline-table-used */,0,C_SCHEME_TRUE); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[304]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10726 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10728,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[161],t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10723,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1142: ##sys#hash-table-set! */ t4=*((C_word*)lf[291]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[51]+1); av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k9371 in k9368 in k9365 in k9361 in k9357 in k9354 in a9351 in k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9373,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9368 in k9365 in k9361 in k9357 in k9354 in a9351 in k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in ... */ static void C_ccall f_9370(C_word c,C_word *av){ C_word tmp; C_word t0=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_9370,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9373,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:916: macro-environment12111212 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12358 in k12333 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12360(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_12360,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_12384,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_12384(t5,((C_word*)t0)[2],((C_word*)t0)[3]);} /* k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ 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; 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,4)))){ C_save_and_reclaim((void *)f_18985,2,av);} a=C_alloc(33); 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|12,a[1]=(C_word)f_18866,a[2]=((C_word*)t0)[6],a[3]=t5,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)[4],tmp=(C_word)a,a+=13,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18870,a[2]=t6,a[3]=((C_word*)t0)[15],a[4]=((C_word*)t0)[16],tmp=(C_word)a,a+=5,tmp); t8=C_i_car(((C_word*)t0)[17]); /* compiler.scm:2429: transform */ t9=((C_word*)((C_word*)t0)[18])[1]; f_18493(t9,t7,t8,((C_word*)t0)[2],((C_word*)t0)[10]);} /* k16343 in a16229 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16345(C_word c,C_word *av){ C_word tmp; C_word 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_16345,2,av);} /* compiler.scm:1937: put! */ t2=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[507]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k12283 in for-each-loop2043 in k12265 in k12243 in k12237 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12285,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_12275(t3,((C_word*)t0)[4],t2);} /* k16311 in k16252 in k16249 in k16235 in a16229 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16313(C_word c,C_word *av){ C_word tmp; C_word 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_16313,2,av);} if(C_truep(t1)){ /* compiler.scm:1945: put! */ t2=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[503]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_16257(2,av2);}}} /* for-each-loop2043 in k12265 in k12243 in k12237 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_12275(C_word t0,C_word 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_12275,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_12285,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_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t5))){ /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[126]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_i_car(t5); /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=lf[126]; 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);}}} /* k16043 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(9,c,6)))){ C_save_and_reclaim((void *)f_16045,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16048,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_u_i_car(((C_word*)t0)[2]); /* compiler.scm:1900: walk */ t4=((C_word*)((C_word*)t0)[9])[1]; f_15935(t4,t2,t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k16046 in k16043 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_16048,2,av);} t2=C_u_i_cdr(((C_word*)t0)[2]); /* compiler.scm:1901: walkeach */ t3=((C_word*)((C_word*)t0)[3])[1]; f_16550(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* g1450 in k9992 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_10003(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,8)))){ C_save_and_reclaim_args((void *)trf_10003,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10011,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:1006: walk */ t4=((C_word*)((C_word*)t0)[4])[1]; f_6925(t4,t3,t2,((C_word*)t0)[5],((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7]);} /* k16096 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_16098,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_16103,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_16103(t6,((C_word*)t0)[10],((C_word*)t0)[5],((C_word*)t0)[11]);} /* for-each-loop2006 in k12237 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_12298(C_word t0,C_word 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_12298,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_12308,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_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t5))){ /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[265]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_i_car(t5); /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=lf[265]; 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);}}} /* k10009 in g1450 in k9992 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10011,2,av);} /* compiler.scm:1006: unquotify */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6632(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k16379 in k16376 in k16373 in k16370 in k16367 in k16364 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16381,2,av);} t2=C_u_i_car(((C_word*)t0)[2]); /* compiler.scm:1974: walk */ t3=((C_word*)((C_word*)t0)[3])[1]; f_15935(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* for-each-loop2703 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_13836(C_word t0,C_word t1,C_word 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_13836,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_13846,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.scm:1585: g2704 */ t5=((C_word*)t0)[3]; f_13728(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);}}} /* k16376 in k16373 in k16370 in k16367 in k16364 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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(9,c,5)))){ C_save_and_reclaim((void *)f_16378,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16381,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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.scm:1973: put! */ t3=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[509]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* map-loop1027 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_8984(C_word t0,C_word t1,C_word 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_8984,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_9009,a[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_8956,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:836: ##sys#check-syntax */ t8=*((C_word*)lf[186]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t7; av2[2]=lf[204]; av2[3]=t6; av2[4]=lf[205]; ((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);}}} /* k16370 in k16367 in k16364 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16372(C_word c,C_word *av){ C_word tmp; C_word t0=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_16372,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_16375,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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); /* compiler.scm:1971: assign */ t3=((C_word*)((C_word*)t0)[11])[1]; f_16587(t3,t2,((C_word*)t0)[10],((C_word*)t0)[12],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k16373 in k16370 in k16367 in k16364 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16375(C_word c,C_word *av){ C_word tmp; C_word t0=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_16375,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_16378,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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*)lf[73]+1))){ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_16378(2,av2);}} else{ /* compiler.scm:1972: put! */ t3=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[510]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* k8395 in map-loop875 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8397,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8401,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]); /* compiler.scm:724: ##sys#strip-syntax */ t5=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8391 in map-loop875 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_8393,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k19325 in k19305 in k19208 in k19205 in k19202 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_19327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19327,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19331,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:2478: transform */ t4=((C_word*)((C_word*)t0)[4])[1]; f_18493(t4,t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k8966 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8968(C_word c,C_word *av){ C_word tmp; C_word t0=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_8968,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8970,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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); /* compiler.scm:834: ##sys#with-module-aliases */ t3=*((C_word*)lf[203]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[10]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k8362 in map-loop847 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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_mutate2(((C_word *)((C_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);} /* k16367 in k16364 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_16369,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_16372,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_16372(2,av2);}} else{ t3=C_a_i_plus(&a,2,*((C_word*)lf[47]+1),C_fix(1)); t4=C_mutate2((C_word*)lf[47]+1 /* (set! ##compiler#current-program-size ...) */,t3); if(C_truep(C_i_memq(((C_word*)t0)[10],((C_word*)t0)[5]))){ /* compiler.scm:1968: put! */ t5=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[494]; 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_16417,a[2]=t2,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:1969: get */ t6=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[495]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}} /* k16364 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16366(C_word c,C_word *av){ C_word tmp; C_word t0=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_16366,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_16369,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* compiler.scm:1964: put! */ t3=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[511]; av2[5]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k18929 in k18900 in k18868 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18931(C_word c,C_word *av){ C_word tmp; C_word 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_18931,2,av);} /* compiler.scm:2431: fold-right */ t2=*((C_word*)lf[569]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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-loop4427 in k18900 in k18868 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_18933(C_word t0,C_word t1,C_word 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_18933,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_18958,a[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_18924,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=C_i_cdr(t4); /* compiler.scm:2437: varnode */ t8=*((C_word*)lf[471]+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);}}} /* a8969 in k8966 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8970,2,av);} a=C_alloc(3); t2=C_i_cddr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,lf[142],t2); /* compiler.scm:840: walk */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6925(t4,t1,t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} /* k15417 in k15357 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15419,2,av);} /* compiler.scm:1788: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_14930(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* loop in mapupdate in update-line-number-database! in k6339 in k6336 in k6333 */ static void C_fcall f_14763(C_word 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_14763,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_14773,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); /* compiler.scm:1700: walk */ t6=((C_word*)((C_word*)t0)[3])[1]; f_14782(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);}}} /* k19329 in k19325 in k19305 in k19208 in k19205 in k19202 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_19331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19331,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],((C_word*)t0)[4],C_SCHEME_END_OF_LIST,t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8954 in map-loop1027 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8956,2,av);} /* compiler.scm:837: ##sys#strip-syntax */ t2=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##compiler#update-line-number-database! in k6339 in k6336 in k6333 */ static void C_ccall f_14754(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_14754,4,av);} a=C_alloc(11); 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_14757,a[2]=t7,tmp=(C_word)a,a+=3,tmp)); t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14782,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); /* compiler.scm:1711: walk */ t10=((C_word*)t7)[1]; f_14782(t10,t1,t2);} /* k12243 in k12237 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12245,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12267,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1414: append */ t3=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[369]+1); av2[3]=*((C_word*)lf[370]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* mapupdate in update-line-number-database! in k6339 in k6336 in k6333 */ static void C_fcall f_14757(C_word 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_14757,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_14763,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_14763(t6,t1,t2);} /* k19349 in k19305 in k19208 in k19205 in k19202 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_19351,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[253],((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k12237 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12239(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_12239,2,av);} a=C_alloc(8); t2=C_i_check_list_2(t1,lf[89]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12245,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_12298,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_12298(t7,t3,t1);} /* a8934 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8935(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8935,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[199]+1)); t3=C_mutate2((C_word*)lf[199]+1 /* (set! ##sys#default-read-info-hook ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k13844 in for-each-loop2703 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13846,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_13836(t3,((C_word*)t0)[4],t2);} /* k12265 in k12243 in k12237 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 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_12267,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[89]); 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_12275,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_12275(t6,((C_word*)t0)[2],t1);} /* k20975 in k20969 in k20955 in k20934 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_20977,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20980,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:2779: ##sys#print */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k20969 in k20955 in k20934 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_20971,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[101]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20977,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); /* compiler.scm:2779: ##sys#print */ t6=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[628]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k17002 in k16976 in k16970 in k16967 in k16964 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_17004(C_word t0,C_word t1){ C_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(6,0,2)))){ C_save_and_reclaim_args((void *)trf_17004,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(3)); t3=C_i_length(t2); t4=C_eqp(C_fix(2),t3); if(C_truep(t4)){ t5=C_i_car(t2); t6=t5; t7=C_i_cadr(t2); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17030,a[2]=t6,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t9=C_slot(t6,C_fix(1)); t10=C_eqp(lf[473],t9); if(C_truep(t10)){ t11=C_slot(t7,C_fix(1)); t12=C_eqp(lf[473],t11); if(C_truep(t12)){ t13=C_i_car(((C_word*)t0)[6]); t14=C_slot(t7,C_fix(2)); t15=C_i_car(t14); t16=t8; f_17030(t16,C_eqp(t13,t15));} else{ t13=t8; f_17030(t13,C_SCHEME_FALSE);}} else{ t11=t8; f_17030(t11,C_SCHEME_FALSE);}} else{ t5=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t5+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);}}} /* k20984 in k20981 in k20978 in k20975 in k20969 in k20955 in k20934 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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,2)))){ C_save_and_reclaim((void *)f_20986,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20989,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2779: get-output-string */ t3=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20981 in k20978 in k20975 in k20969 in k20955 in k20934 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_20983,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20986,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_inexact_to_exact(((C_word*)t0)[4]); /* compiler.scm:2779: ##sys#print */ t4=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20978 in k20975 in k20969 in k20955 in k20934 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_20980,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20983,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:2779: ##sys#print */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[627]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14797 in walk in update-line-number-database! in k6339 in k6336 in k6333 */ static void C_ccall f_14799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_14799,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_14805,a[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); /* compiler.scm:1709: mapupdate */ t6=((C_word*)((C_word*)t0)[3])[1]; f_14757(t6,((C_word*)t0)[4],t5);} else{ t4=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[5]),t2); /* compiler.scm:1708: ##sys#hash-table-set! */ t5=*((C_word*)lf[291]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[467]+1); av2[3]=((C_word*)t0)[6]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k20987 in k20984 in k20981 in k20978 in k20975 in k20969 in k20955 in k20934 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20989(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20989,2,av);} /* compiler.scm:2778: warning */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18922 in map-loop4427 in k18900 in k18868 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18924(C_word c,C_word *av){ C_word tmp; C_word t0=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_18924,2,av);} a=C_alloc(8); t2=C_a_i_list1(&a,1,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[469],lf[562],C_SCHEME_END_OF_LIST,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop590 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_7800(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_7800,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[158]); 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_mutate2(((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);}}} /* k16329 in for-each-loop3523 in k16235 in a16229 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16331,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_16321(t3,((C_word*)t0)[4],t2);} /* k20097 in k20081 in k20075 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,1)))){ C_save_and_reclaim((void *)f_20099,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=((C_word*)((C_word*)t0)[3])[1]; t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],((C_word*)t0)[4],t3,t1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k18956 in map-loop4427 in k18900 in k18868 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_18958,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18933(t6,((C_word*)t0)[5],t5);} /* k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_15972(C_word t0,C_word t1){ C_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(20,0,6)))){ C_save_and_reclaim_args((void *)trf_15972,2,t0,t1);} a=C_alloc(20); 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[473]); 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_15984,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); /* compiler.scm:1882: ref */ t6=((C_word*)((C_word*)t0)[8])[1]; f_16765(t6,t5,t4,((C_word*)t0)[9]);} else{ t3=C_eqp(((C_word*)t0)[3],lf[345]); t4=(C_truep(t3)?t3:C_eqp(((C_word*)t0)[3],lf[497])); if(C_truep(t4)){ t5=C_a_i_plus(&a,2,*((C_word*)lf[47]+1),C_fix(1)); t6=C_mutate2((C_word*)lf[47]+1 /* (set! ##compiler#current-program-size ...) */,t5); /* compiler.scm:1892: walkeach */ t7=((C_word*)((C_word*)t0)[10])[1]; f_16550(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[470]); if(C_truep(t5)){ t6=C_a_i_plus(&a,2,*((C_word*)lf[47]+1),C_fix(1)); t7=C_mutate2((C_word*)lf[47]+1 /* (set! ##compiler#current-program-size ...) */,t6); t8=C_i_car(((C_word*)t0)[11]); t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_16045,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); t10=C_slot(t8,C_fix(1)); t11=C_eqp(lf[473],t10); if(C_truep(t11)){ t12=C_slot(t8,C_fix(2)); t13=C_i_car(t12); t14=C_a_i_cons(&a,2,((C_word*)t0)[13],((C_word*)t0)[9]); /* compiler.scm:1899: collect! */ t15=*((C_word*)lf[498]+1);{ C_word av2[6]; av2[0]=t15; av2[1]=t9; av2[2]=((C_word*)t0)[7]; av2[3]=t13; av2[4]=lf[499]; av2[5]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(6,av2);}} else{ t12=t9;{ C_word av2[2]; av2[0]=t12; av2[1]=C_SCHEME_UNDEFINED; f_16045(2,av2);}}} else{ t6=C_eqp(((C_word*)t0)[3],lf[150]); t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[3],lf[149])); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_16098,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); /* compiler.scm:1904: append */ t9=*((C_word*)lf[151]+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[453]); if(C_truep(t8)){ t9=C_a_i_plus(&a,2,*((C_word*)lf[47]+1),C_fix(1)); t10=C_mutate2((C_word*)lf[47]+1 /* (set! ##compiler#current-program-size ...) */,t9); t11=C_i_car(((C_word*)t0)[4]); t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16161,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); /* compiler.scm:1917: decompose-lambda-list */ t13=*((C_word*)lf[170]+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[161]); t10=(C_truep(t9)?t9:C_eqp(((C_word*)t0)[3],lf[502])); if(C_truep(t10)){ t11=C_a_i_plus(&a,2,*((C_word*)lf[47]+1),C_fix(1)); t12=C_mutate2((C_word*)lf[47]+1 /* (set! ##compiler#current-program-size ...) */,t11); t13=C_i_caddr(((C_word*)t0)[4]); t14=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16230,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); /* compiler.scm:1930: decompose-lambda-list */ t15=*((C_word*)lf[170]+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[253]); t12=(C_truep(t11)?t11:C_eqp(((C_word*)t0)[3],lf[157])); 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_16366,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[58]+1))?C_i_not(*((C_word*)lf[42]+1)):C_SCHEME_FALSE); if(C_truep(t18)){ t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16428,a[2]=t17,a[3]=t14,tmp=(C_word)a,a+=4,tmp); /* tweaks.scm:57: ##sys#get */ t20=*((C_word*)lf[85]+1);{ C_word av2[4]; av2[0]=t20; av2[1]=t19; av2[2]=t14; av2[3]=lf[516]; ((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_16366(2,av2);}}} else{ t13=C_eqp(((C_word*)t0)[3],lf[98]); t14=(C_truep(t13)?t13:C_eqp(((C_word*)t0)[3],lf[269])); 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_16468,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_16474,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[58]+1))){ if(C_truep(((C_word*)t0)[13])){ if(C_truep(C_i_symbolp(t16))){ /* compiler.scm:1978: ##sys#hash-table-ref */ t19=*((C_word*)lf[99]+1);{ C_word av2[4]; av2[0]=t19; av2[1]=t18; av2[2]=*((C_word*)lf[68]+1); av2[3]=t16; ((C_proc)(void*)(*((C_word*)t19+1)))(4,av2);}} else{ t19=t18;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; f_16474(2,av2);}}} else{ t19=t18;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; f_16474(2,av2);}}} else{ t19=t18;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; f_16474(2,av2);}}} else{ /* compiler.scm:1982: walkeach */ t15=((C_word*)((C_word*)t0)[10])[1]; f_16550(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]);}}}}}}}}}} /* k15982 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_15984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_15984,2,av);} a=C_alloc(9); 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_a_i_plus(&a,2,*((C_word*)lf[47]+1),C_fix(1)); t3=C_mutate2((C_word*)lf[47]+1 /* (set! ##compiler#current-program-size ...) */,t2); if(C_truep(C_i_memq(((C_word*)t0)[2],((C_word*)t0)[5]))){ /* compiler.scm:1886: put! */ t4=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[494]; 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_16015,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); /* compiler.scm:1887: get */ t5=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[495]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}} /* for-each-loop3523 in k16235 in a16229 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16321(C_word t0,C_word t1,C_word 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_16321,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_16331,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.scm:1938: g3524 */ t5=((C_word*)t0)[3]; f_16238(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);}}} /* k20075 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 t3; C_word t4; C_word t5; C_word 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(35,c,2)))){ C_save_and_reclaim((void *)f_20077,2,av);} a=C_alloc(35); t2=C_i_cadddr(((C_word*)((C_word*)t0)[2])[1]); t3=t2; t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_20083,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],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); t5=(C_truep(*((C_word*)lf[13]+1))?((C_word*)t0)[12]:C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_a_i_list4(&a,4,((C_word*)((C_word*)t0)[13])[1],lf[611],lf[612],t1); t7=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[13])[1],((C_word*)((C_word*)t0)[2])[1]); t8=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t7); t9=C_a_i_cons(&a,2,t6,((C_word*)((C_word*)t0)[14])[1]); t10=C_mutate2(((C_word *)((C_word*)t0)[14])+1,t9); t11=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[13])[1],C_fix(1)); t12=C_mutate2(((C_word *)((C_word*)t0)[13])+1,t11); t13=t4; f_20083(t13,t12);} else{ t6=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[2])[1]); t7=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t6); t8=t4; f_20083(t8,t7);}} /* k20081 in k20075 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_20083(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_20083,2,t0,t1);} a=C_alloc(9); t2=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20099,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); /* compiler.scm:2605: mapwalk */ t5=((C_word*)((C_word*)t0)[7])[1]; f_21327(t5,t4,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12]);} /* k18900 in k18868 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ 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; C_word t3; C_word t4; 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_18902,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|5,a[1]=(C_word)f_18931,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); 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_18933,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_18933(t11,t7,((C_word*)t0)[5]);} /* k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_15926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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_15926,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_15935,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_16550,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_16587,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_16765,a[2]=t2,tmp=(C_word)a,a+=3,tmp)); t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16786,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); /* compiler.scm:2021: debugging */ t16=*((C_word*)lf[537]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t16; av2[1]=t15; av2[2]=lf[545]; av2[3]=lf[547]; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}} /* k12574 in for-each-loop2195 in k12556 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12576,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_12566(t3,((C_word*)t0)[4],t2);} /* walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_15935(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 *a; if(C_unlikely(!C_demand(C_calculate_demand(20,0,2)))){ C_save_and_reclaim_args((void *)trf_15935,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(20); t7=t2; t8=C_slot(t7,C_fix(3)); t9=t8; t10=t2; t11=C_slot(t10,C_fix(2)); t12=t11; t13=t2; t14=C_slot(t13,C_fix(1)); t15=C_a_i_plus(&a,2,*((C_word*)lf[47]+1),C_fix(1)); t16=C_mutate2((C_word*)lf[47]+1 /* (set! ##compiler#current-program-size ...) */,t15); t17=t14; t18=C_eqp(t17,lf[91]); t19=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_15972,a[2]=t1,a[3]=t17,a[4]=t12,a[5]=t4,a[6]=t3,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],a[9]=t2,a[10]=((C_word*)t0)[4],a[11]=t9,a[12]=t5,a[13]=t6,a[14]=((C_word*)t0)[5],a[15]=((C_word*)t0)[6],tmp=(C_word)a,a+=16,tmp); if(C_truep(t18)){ t20=t19; f_15972(t20,t18);} else{ t20=C_eqp(t17,lf[129]); t21=t19; f_15972(t21,(C_truep(t20)?t20:C_eqp(t17,lf[517])));}} /* walk in update-line-number-database! in k6339 in k6336 in k6333 */ static void C_fcall f_14782(C_word t0,C_word t1,C_word 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_14782,3,t0,t1,t2);} a=C_alloc(7); t3=C_i_not_pair_p(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_i_car(t2); if(C_truep(C_i_symbolp(t4))){ t5=t2; t6=C_u_i_car(t5); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14799,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t6,tmp=(C_word)a,a+=7,tmp); /* compiler.scm:1706: ##sys#hash-table-ref */ t8=*((C_word*)lf[99]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=*((C_word*)lf[467]+1); av2[3]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ /* compiler.scm:1710: mapupdate */ t5=((C_word*)((C_word*)t0)[2])[1]; f_14757(t5,t1,t2);}}} /* k21026 in k20934 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_21028,2,av);} a=C_alloc(3); if(C_truep(t1)){ /* compiler.scm:2785: immediate-literal */ f_21483(((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21047,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2786: literal */ t3=((C_word*)((C_word*)t0)[5])[1]; f_21378(t3,t2,((C_word*)t0)[4]);}} /* k14771 in loop in mapupdate in update-line-number-database! in k6339 in k6336 in k6333 */ static void C_ccall f_14773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14773,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* compiler.scm:1701: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_14763(t4,((C_word*)t0)[4],t3);} /* k7874 in k7848 in k7842 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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,4)))){ C_save_and_reclaim((void *)f_7876,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(((C_word*)t0)[2],lf[123]); t8=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_7903,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)[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|4,a[1]=(C_word)f_7981,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_7981(t12,t8,((C_word*)t0)[2],((C_word*)t0)[13]);} /* k12596 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_12598,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12601,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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]); /* compiler.scm:1437: ##sys#strip-syntax */ t4=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k21020 in k20934 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21022,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[609],t2,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7848 in k7842 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_7850,2,av);} a=C_alloc(26); 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|13,a[1]=(C_word)f_7876,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]=t4,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,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_8029,a[2]=t7,a[3]=t11,a[4]=t8,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_8029(t13,t9,((C_word*)t0)[12]);} /* k21045 in k21026 in k20934 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21047,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[609],t2,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7842 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; C_word t3; C_word t4; C_word 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_7844,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_word*)lf[88]+1); t8=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7850,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((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); 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_8063,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_8063(t12,t8,t2);} /* k21055 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21057,2,av);} t2=((C_word*)t0)[2]; f_20936(t2,C_i_not(t1));} /* g3599 in walkeach in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16552(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_16552,3,t0,t1,t2);} /* compiler.scm:1985: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_15935(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* walkeach in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16550(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_16550,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(13); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16552,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[89]); 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_16564,a[2]=t10,a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_16564(t12,t1,t2);} /* foreign-callback-stub-return-type in k6339 in k6336 in k6333 */ 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=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_15901,3,av);} t3=C_i_check_structure_2(t2,lf[485],lf[490]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(4)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##compiler#analyze-expression in k6339 in k6336 in k6333 */ 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=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_15919,3,av);} a=C_alloc(4); t3=C_i_fixnum_max(*((C_word*)lf[48]+1),C_fix(1)); t4=C_fixnum_times(t3,C_fix(3)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15926,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1865: make-vector */ t6=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* foreign-callback-stub-argument-types in k6339 in k6336 in k6333 */ static void C_ccall f_15910(C_word c,C_word *av){ C_word tmp; C_word 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_15910,3,av);} t3=C_i_check_structure_2(t2,lf[485],lf[491]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(5)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* for-each-loop2158 in k12497 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_12507(C_word t0,C_word 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_12507,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_12517,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_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t5))){ /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[395]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_i_car(t5); /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=lf[395]; 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);}}} /* k9191 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in ... */ static void C_ccall f_9193(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9193,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9197,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(*((C_word*)lf[37]+1))){ /* compiler.scm:898: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=C_SCHEME_END_OF_LIST; C_values(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9204,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:903: ##sys#current-module */ t5=*((C_word*)lf[184]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k9195 in k9191 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in ... */ static void C_ccall f_9197(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9197,2,av);} /* compiler.scm:898: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11709 in k11706 in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_11711,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11726,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_11730,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1324: reverse */ t4=*((C_word*)lf[211]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[70]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k9705 in k9670 in g1332 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9707(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,c,3)))){ C_save_and_reclaim((void *)f_9707,2,av);} a=C_alloc(25); t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_list(&a,1,t2); t4=t3; t5=C_i_caddr(((C_word*)t0)[3]); t6=C_a_i_list(&a,2,t5,((C_word*)t0)[4]); t7=t6; t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9695,a[2]=t7,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],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); /* compiler.scm:963: foreign-type-check */ t9=*((C_word*)lf[250]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* k11706 in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_11708(C_word c,C_word *av){ C_word tmp; C_word t0=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_11708,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11711,a[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.scm:1320: ##sys#clear-trace-buffer */ t3=*((C_word*)lf[354]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* g1341 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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_9717,3,t0,t1,t2);} a=C_alloc(11); t3=C_i_caddr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9724,a[2]=t4,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],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); /* compiler.scm:968: gensym */ t6=*((C_word*)lf[88]+1);{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k12515 in for-each-loop2158 in k12497 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12517,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_12507(t3,((C_word*)t0)[4],t2);} /* k9184 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9186,2,av);} /* compiler.scm:894: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[232]; C_values(4,av2);}} /* k17028 in k17002 in k16976 in k16970 in k16967 in k16964 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_17030(C_word t0,C_word t1){ C_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,5)))){ C_save_and_reclaim_args((void *)trf_17030,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_i_car(t2); t4=((C_word*)t0)[3]; t5=C_i_cdr(t4); t6=C_a_i_cons(&a,2,C_a_i_cons(&a,2,lf[524],t3),t5); t7=C_i_set_cdr(t4,t6); /* compiler.scm:2233: put! */ t8=*((C_word*)lf[493]+1);{ C_word av2[6]; av2[0]=t8; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t3; av2[4]=lf[525]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t8+1)))(6,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);}}} /* for-each-loop2195 in k12556 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_12566(C_word t0,C_word 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_12566,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_12576,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_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t5))){ /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[397]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_i_car(t5); /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=lf[397]; 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);}}} /* k9148 in g1183 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_9150,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_9167,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:889: delete */ t3=*((C_word*)lf[212]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=*((C_word*)lf[34]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f22739,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:891: reverse */ t3=*((C_word*)lf[211]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k8417 in k8414 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8419,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8420,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_i_check_list_2(((C_word*)t0)[2],lf[89]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8447,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t6=( f_8447(t5,((C_word*)t0)[2]) ); t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8441,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)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t8=C_i_cddr(((C_word*)t0)[10]); /* compiler.scm:732: ##sys#canonicalize-body */ t9=*((C_word*)lf[152]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t7; av2[2]=t8; av2[3]=t2; av2[4]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* k8414 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_8416,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8419,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.scm:726: append */ t4=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k19305 in k19208 in k19205 in k19202 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_19307,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(C_truep(((C_word*)t0)[2])?lf[572]:lf[573]); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19327,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); /* compiler.scm:2477: varnode */ t5=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_19351,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2481: transform */ t5=((C_word*)((C_word*)t0)[4])[1]; f_18493(t5,t4,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}} /* k12556 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_12558,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[89]); 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_12566,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_12566(t6,((C_word*)t0)[2],t1);} /* k8399 in k8395 in map-loop875 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8401,2,av);} /* compiler.scm:722: ##sys#ensure-transformer */ t2=*((C_word*)lf[175]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* g1183 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in ... */ static void C_fcall f_9146(C_word t0,C_word t1,C_word t2){ C_word 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_9146,3,t0,t1,t2);} a=C_alloc(12); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9150,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); if(C_truep(*((C_word*)lf[36]+1))){ t4=t3; t5=((C_word*)t0)[3]; t6=t2; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6833,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); if(C_truep(*((C_word*)lf[35]+1))){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6919,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:474: symbol->string */ t9=*((C_word*)lf[231]+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_6833(2,av2);}}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_9150(2,av2);}}} /* a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 in ... */ static void C_ccall f_9113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9113,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_9123,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_9123(t6,t1,t2,C_SCHEME_END_OF_LIST);} /* k9165 in k9148 in g1183 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9167,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[34]+1 /* (set! ##compiler#import-libraries ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f22735,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:891: reverse */ t4=*((C_word*)lf[211]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10485 in k10482 in k10465 in k10448 in k10445 in k10442 in k10430 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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(13,c,2)))){ C_save_and_reclaim((void *)f_10487,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10490,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* compiler.scm:1087: hide-variable */ t3=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10482 in k10465 in k10448 in k10445 in k10442 in k10430 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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(13,c,2)))){ C_save_and_reclaim((void *)f_10484,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10487,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* compiler.scm:1086: hide-variable */ t3=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* stripa in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_11789(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_11789,3,t0,t1,t2);} /* compiler.scm:1339: ##sys#globalize */ t3=*((C_word*)lf[358]+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);}} /* k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_9136,2,av);} a=C_alloc(4); t2=C_i_assq(((C_word*)t0)[2],*((C_word*)lf[34]+1)); t3=(C_truep(t2)?t2:*((C_word*)lf[35]+1)); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9146,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:882: g1183 */ t5=t4; f_9146(t5,((C_word*)t0)[4],t3);} else{ t4=*((C_word*)lf[36]+1); if(C_truep(*((C_word*)lf[36]+1))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9193,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:899: reverse */ t6=*((C_word*)lf[211]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9186,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:895: reverse */ t6=*((C_word*)lf[211]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}}} /* k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9133,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9136,a[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.scm:876: g1168 */ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10488 in k10485 in k10482 in k10465 in k10448 in k10445 in k10442 in k10430 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 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 t3; C_word 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_10490,2,av);} a=C_alloc(29); t2=C_u_i_car(((C_word*)t0)[2]); t3=C_a_i_list(&a,3,lf[289],((C_word*)t0)[3],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10505,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_10505(t8,C_a_i_list(&a,3,lf[289],((C_word*)t0)[12],t7));} else{ t7=t5; f_10505(t7,C_a_i_list(&a,3,lf[289],((C_word*)t0)[12],lf[290]));}} /* make-foreign-stub in k6339 in k6336 in k6333 */ static void C_ccall f_13978(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_unlikely(!C_demand(C_calculate_demand(10,c,1)))){ C_save_and_reclaim((void *)f_13978,10,av);} a=C_alloc(10); t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_a_i_record(&a,9,lf[442],t2,t3,t4,t5,t6,t7,t8,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k9722 in g1341 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9724,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9759,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.scm:970: foreign-type-convert-argument */ t4=*((C_word*)lf[251]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[10])[1]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9107(C_word c,C_word *av){ C_word tmp; C_word t0=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_9107,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9113,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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.scm:871: ##sys#with-property-restore */ t3=*((C_word*)lf[239]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* foreign-stub-id in k6339 in k6336 in k6333 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13990,3,av);} t3=C_i_check_structure_2(t2,lf[442],lf[444]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a8919 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8920,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[199]+1)); t3=C_mutate2((C_word*)lf[199]+1 /* (set! ##sys#default-read-info-hook ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a8924 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8925(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8925,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* compiler.scm:830: ##sys#include-forms-from-file */ t3=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* foreign-stub? in k6339 in k6336 in k6333 */ static void C_ccall f_13984(C_word c,C_word *av){ C_word 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_13984,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[442]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8916 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8918(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8918,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[142],t1); /* compiler.scm:827: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_6925(t3,((C_word*)t0)[3],t2,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} /* ##compiler#process-declaration in k6339 in k6336 in k6333 */ 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=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_11751,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_11754,tmp=(C_word)a,a+=2,tmp)); t16=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11789,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t17=C_set_block_item(t10,0,*((C_word*)lf[118]+1)); t18=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11802,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_11823,tmp=(C_word)a,a+=2,tmp)); t20=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11851,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_11851(t21,t1);} /* foreign-stub-return-type in k6339 in k6336 in k6333 */ static void C_ccall f_13999(C_word c,C_word *av){ C_word tmp; C_word 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_13999,3,av);} t3=C_i_check_structure_2(t2,lf[442],lf[445]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* check-decl in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_11754(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_11754,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)){ /* compiler.scm:1337: syntax-error */ t8=*((C_word*)lf[330]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t1; av2[2]=lf[357]; 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)))){ /* compiler.scm:1337: syntax-error */ t8=*((C_word*)lf[330]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t1; av2[2]=lf[357]; 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))){ /* compiler.scm:1337: syntax-error */ t9=*((C_word*)lf[330]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t1; av2[2]=lf[357]; 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);}}}}} /* loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in ... */ static void C_fcall f_9123(C_word t0,C_word t1,C_word 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(14,0,3)))){ C_save_and_reclaim_args((void *)trf_9123,4,t0,t1,t2,t3);} a=C_alloc(14); if(C_truep(C_i_nullp(t2))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9133,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_9206,tmp=(C_word)a,a+=2,tmp); /* compiler.scm:876: call-with-current-continuation */ t6=*((C_word*)lf[238]+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_9268,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); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9274,a[2]=((C_word*)t0)[4],a[3]=t6,a[4]=t8,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.scm:910: ##sys#current-environment */ t10=*((C_word*)lf[180]+1);{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* k11738 in k11728 in k11709 in k11706 in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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_11740,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[7]+1 /* (set! extended-bindings ...) */,t1); t3=((C_word*)t0)[2]; t4=C_a_i_list(&a,1,t3); /* compiler.scm:406: ##sys#append */ t5=*((C_word*)lf[156]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11744 in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_11746(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11746,2,av);} /* compiler.scm:1319: pretty-print */ t2=*((C_word*)lf[216]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10448 in k10445 in k10442 in k10430 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_10450,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10467,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t3))){ /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[126]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_i_car(t3); /* tweaks.scm:54: ##sys#put! */ t5=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[126]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* for-each-loop3598 in walkeach in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16564(C_word t0,C_word t1,C_word 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_16564,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_16574,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.scm:1862: g3599 */ t5=((C_word*)t0)[3]; f_16552(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);}}} /* k11728 in k11709 in k11706 in canonicalize-expression in k6339 in k6336 in k6333 */ 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(5,c,3)))){ C_save_and_reclaim((void *)f_11730,2,av);} a=C_alloc(5); t2=C_set_block_item(lf[70] /* ##compiler#pending-canonicalizations */,0,C_SCHEME_END_OF_LIST); t3=t1; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11740,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:1328: append */ t5=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[353]+1); av2[3]=*((C_word*)lf[7]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_9765(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,2)))){ C_save_and_reclaim_args((void *)trf_9765,2,t0,t1);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9768,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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_9810,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:988: ##sys#macro? */ t4=*((C_word*)lf[263]+1);{ C_word av2[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);}} /* k10465 in k10448 in k10445 in k10442 in k10430 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10467,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10484,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t3))){ /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[12]; av2[3]=lf[126]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_i_car(t3); /* tweaks.scm:54: ##sys#put! */ t5=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[12]; av2[3]=lf[126]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k9766 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_9768,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9771,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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|3,a[1]=(C_word)f_9785,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:997: keyword? */ t4=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16572 in for-each-loop3598 in walkeach in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16574,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_16564(t3,((C_word*)t0)[4],t2);} /* k11720 in k11724 in k11709 in k11706 in canonicalize-expression in k6339 in k6336 in k6333 */ 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);} /* compiler.scm:1322: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6925(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_END_OF_LIST,t1,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE);} /* k11724 in k11709 in k11706 in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_11726,2,av);} a=C_alloc(8); t2=C_a_i_cons(&a,2,lf[142],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11722,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:1330: ##sys#current-environment */ t5=*((C_word*)lf[180]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k21004 in k20934 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21006,2,av);} t2=((C_word*)t0)[2]; f_20957(t2,C_i_not(t1));} /* k13670 in g2604 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_13672(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_13672,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13497,a[2]=((C_word*)t0)[2],a[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]); /* compiler.scm:1555: ##sys#globalize */ t4=*((C_word*)lf[358]+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{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13494,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1554: ##sys#strip-syntax */ t3=*((C_word*)lf[118]+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);}}} /* assign in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16587(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; if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){ C_save_and_reclaim_args((void *)trf_16587,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(8); t6=t3; t7=C_slot(t6,C_fix(1)); t8=C_eqp(lf[129],t7); if(C_truep(t8)){ /* compiler.scm:1989: put! */ t9=*((C_word*)lf[493]+1);{ C_word av2[6]; av2[0]=t9; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=lf[518]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t9+1)))(6,av2);}} else{ t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16600,a[2]=t1,a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=t5,a[7]=t3,tmp=(C_word)a,a+=8,tmp); t10=t3; t11=C_slot(t10,C_fix(1)); t12=C_eqp(lf[473],t11); if(C_truep(t12)){ t13=t3; t14=C_slot(t13,C_fix(2)); t15=C_i_car(t14); t16=t9; f_16600(t16,C_eqp(t2,t15));} else{ t13=t9; f_16600(t13,C_SCHEME_FALSE);}}} /* g904 in k8417 in k8414 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static C_word C_fcall f_8420(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]));} /* k18018 in k18010 in k18007 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18020(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18020,2,av);} /* compiler.scm:2287: append */ t2=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18022 in k18010 in k18007 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18024,2,av);} /* compiler.scm:2287: delete */ t2=*((C_word*)lf[212]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[135]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* g4955 in k20658 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_20664(C_word t0,C_word t1,C_word 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_20664,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_20685,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2734: walk */ t8=((C_word*)((C_word*)t0)[3])[1]; f_20018(t8,t7,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[2],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k20658 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,3)))){ C_save_and_reclaim((void *)f_20660,2,av);} a=C_alloc(16); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20664,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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.scm:2728: g4955 */ t3=t2; f_20664(t3,((C_word*)t0)[8],t1);} else{ t2=C_slot(((C_word*)t0)[4],C_fix(1)); t3=t2; t4=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_20798,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]=t3,a[15]=((C_word*)t0)[4],tmp=(C_word)a,a+=16,tmp); /* compiler.scm:2737: variable-visible? */ t5=*((C_word*)lf[522]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k15203 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15205,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* compiler.scm:1761: cps-lambda */ t3=((C_word*)((C_word*)t0)[3])[1]; f_14835(t3,((C_word*)t0)[4],t1,t2,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k13656 in a13521 in k13504 in k13498 in k13495 in k13670 in g2604 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_13658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13658,2,av);} /* compiler.scm:1580: warning */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[432]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k9749 in k9757 in k9722 in g1341 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,8)))){ C_save_and_reclaim((void *)f_9751,2,av);} a=C_alloc(21); t2=C_a_i_list(&a,4,lf[252],((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=C_a_i_list(&a,3,lf[150],((C_word*)t0)[4],t2); /* compiler.scm:969: walk */ t4=((C_word*)((C_word*)t0)[5])[1]; f_6925(t4,((C_word*)t0)[6],t3,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[9],((C_word*)t0)[10]);} /* k9757 in k9722 in g1341 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; C_word t3; 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,3)))){ C_save_and_reclaim((void *)f_9759,2,av);} a=C_alloc(23); 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_i_cadr(((C_word*)t0)[4]); t8=t7; t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9751,a[2]=t6,a[3]=t8,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],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* compiler.scm:974: foreign-type-check */ t10=*((C_word*)lf[250]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} /* k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_18000(C_word t0,C_word t1){ C_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(23,0,5)))){ C_save_and_reclaim_args((void *)trf_18000,2,t0,t1);} a=C_alloc(23); 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[150]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18009,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))){ /* compiler.scm:2284: bomb */ t5=*((C_word*)lf[480]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=lf[551]; 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_18009(2,av2);}}} else{ t3=C_eqp(((C_word*)t0)[3],lf[253]); 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_18058,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]); /* compiler.scm:2291: gather */ t8=((C_word*)((C_word*)t0)[7])[1]; f_17948(t8,t6,t7,((C_word*)t0)[8],((C_word*)t0)[6]);} else{ t4=C_eqp(((C_word*)t0)[3],lf[470]); if(C_truep(t4)){ t5=C_i_car(((C_word*)t0)[5]); t6=C_i_car(((C_word*)t0)[4]); t7=t6; t8=C_u_i_cdr(((C_word*)t0)[4]); t9=C_i_pairp(t8); t10=(C_truep(t9)?C_i_cadr(((C_word*)t0)[4]):C_SCHEME_FALSE); t11=t10; t12=C_slot(t5,C_fix(1)); t13=C_eqp(lf[473],t12); t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18092,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t15=(C_truep(t11)?t11:t13); if(C_truep(t15)){ if(C_truep(t13)){ t16=C_slot(t5,C_fix(2)); t17=C_i_car(t16); t18=t17; t19=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_18165,a[2]=t11,a[3]=t7,a[4]=t14,a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=t18,a[8]=((C_word*)t0)[12],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[13],tmp=(C_word)a,a+=11,tmp); t20=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18309,a[2]=t19,a[3]=((C_word*)t0)[13],a[4]=t18,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:2308: test */ t21=((C_word*)((C_word*)t0)[13])[1]; f_17921(t21,t20,t18,lf[501]);} else{ t16=C_a_i_cons(&a,2,t11,C_SCHEME_END_OF_LIST); t17=C_a_i_cons(&a,2,t7,t16); /* compiler.scm:2301: node-parameters-set! */ t18=*((C_word*)lf[553]+1);{ C_word av2[4]; av2[0]=t18; av2[1]=t14; av2[2]=((C_word*)t0)[10]; av2[3]=t17; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}}} else{ t16=C_a_i_cons(&a,2,t7,C_SCHEME_END_OF_LIST); /* compiler.scm:2301: node-parameters-set! */ t17=*((C_word*)lf[553]+1);{ C_word av2[4]; av2[0]=t17; av2[1]=t14; av2[2]=((C_word*)t0)[10]; av2[3]=t16; ((C_proc)(void*)(*((C_word*)t17+1)))(4,av2);}}} else{ t5=C_eqp(((C_word*)t0)[3],lf[161]); t6=(C_truep(t5)?t5:C_eqp(((C_word*)t0)[3],lf[502])); if(C_truep(t6)){ t7=C_i_caddr(((C_word*)t0)[4]); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18353,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); /* compiler.scm:2341: decompose-lambda-list */ t9=*((C_word*)lf[170]+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_18409,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[123]); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18419,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_18421,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_18421(t17,t13,((C_word*)t0)[5]);}}}}}} /* k20635 in k20631 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,1)))){ C_save_and_reclaim((void *)f_20637,2,av);} a=C_alloc(11); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=((C_word*)((C_word*)t0)[4])[1]; t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[469],lf[622],t4,t2); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k18007 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18009,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18012,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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]); /* compiler.scm:2285: gather */ t4=((C_word*)((C_word*)t0)[6])[1]; f_17948(t4,t2,t3,((C_word*)t0)[7],((C_word*)t0)[5]);} /* k20631 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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(5,c,6)))){ C_save_and_reclaim((void *)f_20633,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20637,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]); /* compiler.scm:2725: walk */ t5=((C_word*)((C_word*)t0)[5])[1]; f_20018(t5,t3,t4,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} /* k15216 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ 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 t4; 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_15218,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_u_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_15233,a[2]=t2,a[3]=t8,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:1765: walk */ t11=((C_word*)((C_word*)t0)[5])[1]; f_14930(t11,((C_word*)t0)[6],t9,t10);} /* k18010 in k18007 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_18012,2,av);} a=C_alloc(11); t2=t1; t3=C_u_i_car(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18020,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18024,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=C_i_cadr(((C_word*)t0)[4]); t7=C_a_i_cons(&a,2,t3,((C_word*)t0)[5]); /* compiler.scm:2287: gather */ t8=((C_word*)((C_word*)t0)[6])[1]; f_17948(t8,t5,t6,((C_word*)t0)[7],t7);} /* k10379 in k10376 in k10373 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; 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,2)))){ C_save_and_reclaim((void *)f_10381,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10393,a[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_stringp(t1))){ t3=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1); t4=C_a_i_cons(&a,2,t3,*((C_word*)lf[60]+1)); t5=C_mutate2((C_word*)lf[60]+1 /* (set! ##compiler#foreign-variables ...) */,t4); t6=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=lf[287]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* compiler.scm:1072: symbol->string */ t3=*((C_word*)lf[231]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* mapwalk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_21327(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_21327,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_21332,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[123]); 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_21344,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_21344(t16,t1,t2);} /* a15232 in k15216 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(20,c,2)))){ C_save_and_reclaim((void *)f_15233,3,av);} a=C_alloc(20); t3=C_a_i_list1(&a,1,((C_word*)t0)[2]); t4=t3; t5=C_a_i_list1(&a,1,t2); t6=C_a_i_record4(&a,4,lf[469],lf[253],((C_word*)t0)[3],t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15263,a[2]=t7,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15267,a[2]=((C_word*)t0)[4],a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1769: varnode */ t10=*((C_word*)lf[471]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k18653 in k18665 in k18623 in k18600 in k18597 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,1)))){ C_save_and_reclaim((void *)f_18655,2,av);} a=C_alloc(22); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_record4(&a,4,lf[469],lf[150],((C_word*)t0)[3],t2); t4=C_a_i_list2(&a,2,((C_word*)t0)[4],t3); t5=((C_word*)t0)[5]; t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[469],lf[150],((C_word*)t0)[6],t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k18056 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_18058,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; /* Re-use our own argvector */ 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);}} /* walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_20018(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 *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(24,0,6)))){ C_save_and_reclaim_args((void *)trf_20018,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(24); t7=t2; t8=C_slot(t7,C_fix(3)); t9=t8; t10=t2; t11=C_slot(t10,C_fix(2)); t12=t11; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=t2; t15=C_slot(t14,C_fix(1)); t16=t15; t17=C_eqp(t16,lf[129]); t18=(C_truep(t17)?t17:C_eqp(t16,lf[517])); if(C_truep(t18)){ t19=t2; t20=t1;{ C_word av2[2]; av2[0]=t20; av2[1]=t19; ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} else{ t19=C_eqp(t16,lf[473]); if(C_truep(t19)){ t20=C_i_car(((C_word*)t13)[1]); /* compiler.scm:2592: walk-var */ t21=((C_word*)((C_word*)t0)[2])[1]; f_19886(t21,t1,t20,t3,t4,C_SCHEME_FALSE);} else{ t20=C_eqp(t16,lf[581]); if(C_truep(t20)){ t21=C_i_cadr(((C_word*)t13)[1]); t22=t21; t23=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_20077,a[2]=t13,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t16,a[6]=((C_word*)t0)[4],a[7]=t9,a[8]=t3,a[9]=t4,a[10]=t5,a[11]=t6,a[12]=t22,a[13]=((C_word*)t0)[5],a[14]=((C_word*)t0)[6],tmp=(C_word)a,a+=15,tmp); /* compiler.scm:2596: source-info->string */ t24=*((C_word*)lf[613]+1);{ C_word av2[3]; av2[0]=t24; av2[1]=t23; av2[2]=t22; ((C_proc)(void*)(*((C_word*)t24+1)))(3,av2);}} else{ t21=C_eqp(t16,lf[270]); if(C_truep(t21)){ t22=C_i_cadr(((C_word*)t13)[1]); t23=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[3])[1],t22); t24=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t23); t25=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20143,a[2]=t1,a[3]=t13,a[4]=t16,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:2609: mapwalk */ t26=((C_word*)((C_word*)t0)[4])[1]; f_21327(t26,t25,t9,t3,t4,t5,t6);} else{ t22=C_eqp(t16,lf[92]); if(C_truep(t22)){ t23=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20169,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t13,a[5]=t16,tmp=(C_word)a,a+=6,tmp); t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20173,a[2]=t23,tmp=(C_word)a,a+=3,tmp); t25=C_i_cadr(((C_word*)t13)[1]); /* compiler.scm:2612: estimate-foreign-result-size */ t26=*((C_word*)lf[458]+1);{ C_word av2[3]; av2[0]=t26; av2[1]=t24; av2[2]=t25; ((C_proc)(void*)(*((C_word*)t26+1)))(3,av2);}} else{ t23=C_eqp(t16,lf[96]); if(C_truep(t23)){ t24=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_20203,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t13,a[5]=t16,a[6]=((C_word*)t0)[4],a[7]=t9,a[8]=t3,a[9]=t4,a[10]=t5,a[11]=t6,tmp=(C_word)a,a+=12,tmp); t25=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20207,a[2]=t24,tmp=(C_word)a,a+=3,tmp); t26=C_i_car(((C_word*)t13)[1]); /* compiler.scm:2616: estimate-foreign-result-size */ t27=*((C_word*)lf[458]+1);{ C_word av2[3]; av2[0]=t27; av2[1]=t25; av2[2]=t26; ((C_proc)(void*)(*((C_word*)t27+1)))(3,av2);}} else{ t24=C_eqp(t16,lf[563]); if(C_truep(t24)){ t25=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_20221,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t13,a[5]=((C_word*)t0)[4],a[6]=t9,a[7]=t3,a[8]=t4,a[9]=t5,a[10]=t6,tmp=(C_word)a,a+=11,tmp); t26=C_i_car(((C_word*)t13)[1]); /* compiler.scm:2620: + */{ C_word av2[5]; av2[0]=0; av2[1]=t25; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=t26; av2[4]=C_fix(1); C_plus(5,av2);}} else{ t25=C_eqp(t16,lf[562]); if(C_truep(t25)){ t26=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[3])[1],C_fix(2)); t27=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t26); t28=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20263,a[2]=t1,a[3]=t13,tmp=(C_word)a,a+=4,tmp); t29=C_i_car(t9); /* compiler.scm:2625: walk */ t47=t28; t48=t29; t49=t3; t50=t4; t51=t5; t52=t6; t1=t47; t2=t48; t3=t49; t4=t50; t5=t51; t6=t52; goto loop;} else{ t26=C_eqp(t16,lf[573]); if(C_truep(t26)){ t27=C_i_car(t9); t28=t27; t29=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20279,a[2]=((C_word*)t0)[8],a[3]=t1,a[4]=t16,a[5]=t28,a[6]=t6,tmp=(C_word)a,a+=7,tmp); /* compiler.scm:2629: mapwalk */ t30=((C_word*)((C_word*)t0)[4])[1]; f_21327(t30,t29,t9,t3,t4,t5,t6);} else{ t27=C_eqp(t16,lf[161]); t28=(C_truep(t27)?t27:C_eqp(t16,lf[502])); if(C_truep(t28)){ t29=((C_word*)((C_word*)t0)[9])[1]; t30=((C_word*)((C_word*)t0)[10])[1]; t31=((C_word*)((C_word*)t0)[11])[1]; t32=((C_word*)((C_word*)t0)[12])[1]; t33=((C_word*)((C_word*)t0)[3])[1]; t34=C_eqp(t16,lf[502]); t35=t34; t36=C_set_block_item(((C_word*)t0)[9],0,C_fix(0)); t37=C_set_block_item(((C_word*)t0)[10],0,C_SCHEME_END_OF_LIST); t38=C_set_block_item(((C_word*)t0)[3],0,C_fix(0)); t39=C_set_block_item(((C_word*)t0)[11],0,C_SCHEME_END_OF_LIST); t40=C_set_block_item(((C_word*)t0)[12],0,C_fix(0)); t41=C_i_caddr(((C_word*)t13)[1]); t42=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_20352,a[2]=t13,a[3]=((C_word*)t0)[12],a[4]=t32,a[5]=((C_word*)t0)[9],a[6]=t29,a[7]=((C_word*)t0)[10],a[8]=t30,a[9]=((C_word*)t0)[3],a[10]=t33,a[11]=((C_word*)t0)[11],a[12]=t31,a[13]=((C_word*)t0)[13],a[14]=t35,a[15]=((C_word*)t0)[14],a[16]=t9,a[17]=((C_word*)t0)[7],tmp=(C_word)a,a+=18,tmp); /* compiler.scm:2651: decompose-lambda-list */ t43=*((C_word*)lf[170]+1);{ C_word av2[4]; av2[0]=t43; av2[1]=t1; av2[2]=t41; av2[3]=t42; ((C_proc)(void*)(*((C_word*)t43+1)))(4,av2);}} else{ t29=C_eqp(t16,lf[150]); if(C_truep(t29)){ t30=C_i_car(((C_word*)t13)[1]); t31=C_i_car(t9); t32=C_slot(t31,C_fix(1)); t33=C_eqp(lf[562],t32); t34=(C_truep(t33)?C_a_i_list1(&a,1,t30):C_SCHEME_END_OF_LIST); t35=t34; t36=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[9])[1],C_fix(1)); t37=C_mutate2(((C_word *)((C_word*)t0)[9])+1,t36); t38=C_a_i_list1(&a,1,C_fix(1)); t39=t38; t40=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_20562,a[2]=t1,a[3]=t39,a[4]=t9,a[5]=t4,a[6]=((C_word*)t0)[7],a[7]=t5,a[8]=t35,a[9]=t6,a[10]=t3,a[11]=t13,tmp=(C_word)a,a+=12,tmp); /* compiler.scm:2713: walk */ t47=t40; t48=t31; t49=t3; t50=t4; t51=t5; t52=t6; t1=t47; t2=t48; t3=t49; t4=t50; t5=t51; t6=t52; goto loop;} else{ t30=C_eqp(t16,lf[622]); if(C_truep(t30)){ t31=C_i_car(((C_word*)t13)[1]); t32=C_i_car(t9); t33=C_i_cadr(((C_word*)t13)[1]); t34=C_a_i_cons(&a,2,C_a_i_cons(&a,2,t31,t33),((C_word*)((C_word*)t0)[10])[1]); t35=C_mutate2(((C_word *)((C_word*)t0)[10])+1,t34); t36=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20633,a[2]=t1,a[3]=t13,a[4]=t9,a[5]=((C_word*)t0)[7],a[6]=t3,a[7]=t4,a[8]=t5,a[9]=t6,tmp=(C_word)a,a+=10,tmp); /* compiler.scm:2724: walk */ t47=t36; t48=t32; t49=t3; t50=t4; t51=t5; t52=t6; t1=t47; t2=t48; t3=t49; t4=t50; t5=t51; t6=t52; goto loop;} else{ t31=C_eqp(t16,lf[253]); if(C_truep(t31)){ t32=C_i_car(((C_word*)t13)[1]); t33=t32; t34=C_i_car(t9); t35=t34; t36=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_20660,a[2]=t4,a[3]=((C_word*)t0)[7],a[4]=t35,a[5]=t3,a[6]=t5,a[7]=t6,a[8]=t1,a[9]=t33,a[10]=t9,a[11]=((C_word*)t0)[15],a[12]=((C_word*)t0)[16],a[13]=((C_word*)t0)[17],a[14]=t13,tmp=(C_word)a,a+=15,tmp); /* compiler.scm:2730: posq */ t37=*((C_word*)lf[167]+1);{ C_word av2[4]; av2[0]=t37; av2[1]=t36; av2[2]=t33; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t37+1)))(4,av2);}} else{ t32=C_eqp(t16,lf[470]); if(C_truep(t32)){ t33=C_i_cdr(t9); t34=C_i_length(t33); t35=t34; t36=C_i_cdr(((C_word*)t13)[1]); t37=C_i_pairp(t36); t38=(C_truep(t37)?C_i_cadr(((C_word*)t13)[1]):C_SCHEME_FALSE); t39=t38; t40=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_20816,a[2]=((C_word*)t0)[11],a[3]=t1,a[4]=t13,a[5]=t16,a[6]=((C_word*)t0)[4],a[7]=t9,a[8]=t3,a[9]=t4,a[10]=t5,a[11]=t6,a[12]=t39,a[13]=((C_word*)t0)[5],a[14]=((C_word*)t0)[6],a[15]=((C_word*)t0)[12],a[16]=t35,tmp=(C_word)a,a+=17,tmp); /* compiler.scm:2755: source-info->string */ t41=*((C_word*)lf[613]+1);{ C_word av2[3]; av2[0]=t41; av2[1]=t40; av2[2]=t39; ((C_proc)(void*)(*((C_word*)t41+1)))(3,av2);}} else{ t33=C_eqp(t16,lf[497]); if(C_truep(t33)){ t34=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_20902,a[2]=t1,a[3]=t13,a[4]=t16,a[5]=((C_word*)t0)[4],a[6]=t9,a[7]=t3,a[8]=t4,a[9]=t5,a[10]=t6,tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_car(((C_word*)t13)[1]))){ t35=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[12])[1],C_fix(1)); t36=C_mutate2(((C_word *)((C_word*)t0)[12])+1,t35); t37=t34; f_20902(t37,t36);} else{ t35=t34; f_20902(t35,C_SCHEME_UNDEFINED);}} else{ t34=C_eqp(t16,lf[91]); if(C_truep(t34)){ t35=C_i_car(((C_word*)t13)[1]); t36=t35; t37=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20936,a[2]=((C_word*)t0)[18],a[3]=t1,a[4]=t36,a[5]=((C_word*)t0)[16],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnump(t36))){ t38=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21057,a[2]=t37,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2773: big-fixnum? */ t39=*((C_word*)lf[630]+1);{ C_word av2[3]; av2[0]=t39; av2[1]=t38; av2[2]=t36; ((C_proc)(void*)(*((C_word*)t39+1)))(3,av2);}} else{ t38=t37; f_20936(t38,C_SCHEME_FALSE);}} else{ t35=C_eqp(t16,lf[114]); t36=(C_truep(t35)?t35:C_eqp(t16,lf[580])); if(C_truep(t36)){ t37=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21069,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t13,a[6]=t16,a[7]=t9,a[8]=((C_word*)t0)[7],a[9]=t3,a[10]=t4,a[11]=t5,a[12]=t6,tmp=(C_word)a,a+=13,tmp); t38=C_i_car(t9); /* compiler.scm:2789: walk */ t47=t37; t48=t38; t49=t3; t50=t4; t51=t5; t52=t6; t1=t47; t2=t48; t3=t49; t4=t50; t5=t51; t6=t52; goto loop;} else{ t37=C_eqp(t16,lf[579]); if(C_truep(t37)){ t38=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21140,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t13,a[5]=t16,a[6]=t9,a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=t4,a[10]=t5,a[11]=t6,tmp=(C_word)a,a+=12,tmp); t39=C_i_car(t9); /* compiler.scm:2801: walk */ t47=t38; t48=t39; t49=t3; t50=t4; t51=t5; t52=t6; t1=t47; t2=t48; t3=t49; t4=t50; t5=t51; t6=t52; goto loop;} else{ t38=C_eqp(t16,lf[168]); if(C_truep(t38)){ t39=((C_word*)((C_word*)t0)[5])[1]; t40=C_a_i_cons(&a,2,t39,((C_word*)t13)[1]); t41=C_a_i_cons(&a,2,t40,((C_word*)((C_word*)t0)[6])[1]); t42=C_mutate2(((C_word *)((C_word*)t0)[6])+1,t41); t43=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[5])[1],C_fix(1)); t44=C_mutate2(((C_word *)((C_word*)t0)[5])+1,t43); t45=t1; t46=t45;{ C_word av2[2]; av2[0]=t46; av2[1]=C_a_i_record4(&a,4,lf[469],t16,t40,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t46+1)))(2,av2);}} else{ t39=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21272,a[2]=t1,a[3]=t13,a[4]=t16,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:2827: mapwalk */ t40=((C_word*)((C_word*)t0)[4])[1]; f_21327(t40,t39,t9,t3,t4,t5,t6);}}}}}}}}}}}}}}}}}}}} /* k18623 in k18600 in k18597 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18625(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_18625,2,av);} a=C_alloc(13); 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_18667,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*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* compiler.scm:2386: varnode */ t6=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10430 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10432,2,av);} a=C_alloc(13); t2=t1; t3=C_i_cdddr(((C_word*)t0)[2]); t4=t3; if(C_truep(C_i_pairp(t4))){ t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10444,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]=t2,a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* compiler.scm:1081: gensym */ t6=*((C_word*)lf[88]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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_10526,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1096: ##sys#hash-table-set! */ t6=*((C_word*)lf[291]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=*((C_word*)lf[59]+1); av2[3]=((C_word*)t0)[11]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k10391 in k10379 in k10376 in k10373 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_10393,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*)lf[60]+1)); t4=C_mutate2((C_word*)lf[60]+1 /* (set! ##compiler#foreign-variables ...) */,t3); t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=lf[287]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k10442 in k10430 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_10444,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,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],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.scm:1082: gensym */ t4=*((C_word*)lf[88]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10445 in k10442 in k10430 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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(17,c,4)))){ C_save_and_reclaim((void *)f_10447,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10450,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((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_a_i_vector3(&a,3,((C_word*)t0)[12],((C_word*)t0)[3],t2); /* compiler.scm:1083: ##sys#hash-table-set! */ t5=*((C_word*)lf[291]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[59]+1); av2[3]=((C_word*)t0)[13]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k18600 in k18597 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18602(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_18602,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_18625,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*)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]); /* compiler.scm:2383: transform */ t7=((C_word*)((C_word*)t0)[6])[1]; f_18493(t7,t5,t6,((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18683,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2390: maptransform */ t4=((C_word*)((C_word*)t0)[10])[1]; f_19593(t4,t3,((C_word*)t0)[5],((C_word*)t0)[7],((C_word*)t0)[8]);}} /* k10373 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_10375,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10378,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)[3]); /* compiler.scm:1064: ##sys#strip-syntax */ t5=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k10376 in k10373 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; 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_10378,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10381,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=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_cadddr(((C_word*)t0)[4]); f_10381(2,av2);}} else{ /* compiler.scm:1067: symbol->string */ t5=*((C_word*)lf[231]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k6707 in k6689 in k6677 in resolve-variable in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_6709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6709,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6713,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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.scm:443: g224 */ t3=t2; f_6713(t3,((C_word*)t0)[8],t1);} else{ t2=C_i_assq(((C_word*)t0)[9],*((C_word*)lf[60]+1)); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6727,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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.scm:443: g228 */ t4=t3; f_6727(t4,((C_word*)t0)[8],t2);} else{ t3=C_i_assq(((C_word*)t0)[9],*((C_word*)lf[69]+1)); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6766,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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.scm:443: g238 */ t5=t4; f_6766(t5,((C_word*)t0)[8],t3);} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6801,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:468: ##sys#get */ t5=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[9]; av2[3]=lf[98]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}}} /* k20003 in walk-global in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_20005,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_19949(2,av2);}} else{ t2=((C_word*)t0)[3]; /* tweaks.scm:51: ##sys#get */ t3=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=lf[516]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k15295 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_15297,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_15350,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);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[477]+1); av2[3]=t2; av2[4]=((C_word*)t0)[6]; C_apply(5,av2);}} /* k18090 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_18092,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_18100,a[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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18107,a[2]=((C_word*)t0)[5],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_18109,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_18109(t11,t7,((C_word*)t0)[6]);} /* k16415 in k16367 in k16364 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16417(C_word c,C_word *av){ C_word tmp; C_word 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_16417,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_16372(2,av2);}} else{ /* compiler.scm:1970: put! */ t2=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[495]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k10351 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_10353,2,av);} /* compiler.scm:1057: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6925(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]);} /* g224 in k6707 in k6689 in k6677 in resolve-variable in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_6713(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_6713,3,t0,t1,t2);} /* compiler.scm:447: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_6925(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* k10364 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_10366,2,av);} /* compiler.scm:1060: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6925(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]);} /* map-loop551 in k7559 in k7556 in k7553 in k7547 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_7607(C_word t0,C_word t1,C_word 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_7607,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_7636,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)); /* compiler.scm:617: g557 */ t9=((C_word*)t0)[4]; f_7569(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);}}} /* k16472 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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(0,c,6)))){ C_save_and_reclaim((void *)f_16474,2,av);} if(C_truep(t1)){ /* compiler.scm:1979: set-real-name! */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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{ /* compiler.scm:1980: walkeach */ t2=((C_word*)((C_word*)t0)[5])[1]; f_16550(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]);}} /* k7599 in k7595 in k7587 in k7559 in k7556 in k7553 in k7547 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_7601,2,av);} /* compiler.scm:620: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6925(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]);} /* g2704 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_13728(C_word 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_13728,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13735,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_13735(t6,C_eqp(C_fix(2),t5));} else{ t5=t3; f_13735(t5,C_SCHEME_FALSE);}} else{ t4=t3; f_13735(t4,C_SCHEME_FALSE);}} /* k10312 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_10314,2,av);} /* compiler.scm:1048: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6925(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]);} /* g238 in k6707 in k6689 in k6677 in resolve-variable in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_6766(C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_6766,3,t0,t1,t2);} a=C_alloc(11); t3=C_i_caddr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6773,a[2]=t4,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],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); /* compiler.scm:461: final-foreign-type */ t6=*((C_word*)lf[95]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k13733 in g2704 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_13735(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_13735,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13738,a[2]=((C_word*)t0)[2],a[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]); /* compiler.scm:1588: ##sys#globalize */ t4=*((C_word*)lf[358]+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{ /* compiler.scm:1597: warning */ t2=*((C_word*)lf[102]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[436]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k13736 in k13733 in g2704 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_13738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13738,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13741,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]); /* compiler.scm:1589: ##sys#strip-syntax */ t5=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* a11933 in k11868 in k11865 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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=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_11934,3,av);} t3=*((C_word*)lf[134]+1); /* compiler.scm:1366: g1919 */ t4=*((C_word*)lf[134]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=*((C_word*)lf[135]+1); av2[3]=((C_word*)t0)[2]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k10325 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_10327,2,av);} /* compiler.scm:1051: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6925(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]);} /* k17674 in a17637 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 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_17676,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,C_a_i_cons(&a,2,lf[536],C_SCHEME_TRUE),t3); t5=((C_word*)t0)[4]; f_17642(t5,C_i_set_cdr(t2,t4));} else{ t2=((C_word*)t0)[4]; f_17642(t2,C_SCHEME_UNDEFINED);}} else{ t2=((C_word*)t0)[4]; f_17642(t2,C_SCHEME_UNDEFINED);}} /* k6771 in g238 in k6707 in k6689 in k6677 in resolve-variable in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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,3)))){ C_save_and_reclaim((void *)f_6773,2,av);} a=C_alloc(25); 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,3,lf[96],t2,t3); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6783,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); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6787,a[2]=t5,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:465: finish-foreign-result */ t7=*((C_word*)lf[94]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=t1; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k8892 in map-loop948 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8894(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8894,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8869(t6,((C_word*)t0)[5],t5);} /* a9226 in a9205 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in ... */ static void C_ccall f_9227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9227,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9233,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9243,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:876: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* k9220 in a9217 in a9211 in a9205 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in ... */ static void C_ccall f_9222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9222,2,av);} /* compiler.scm:880: exit */ t2=*((C_word*)lf[233]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11923 in map-loop1924 in k11877 in k11868 in k11865 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_11925(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_11925,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11900(t6,((C_word*)t0)[5],t5);} /* maptransform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_19593(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_19593,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_19598,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[123]); 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_19610,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_19610(t14,t1,t2);} /* k6785 in k6771 in g238 in k6707 in k6689 in k6677 in resolve-variable in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6787,2,av);} /* compiler.scm:464: foreign-type-convert-result */ t2=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6781 in k6771 in g238 in k6707 in k6689 in k6677 in resolve-variable in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_6783,2,av);} /* compiler.scm:463: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6925(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);} /* g4562 in maptransform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_19598(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_19598,3,t0,t1,t2);} /* compiler.scm:2494: transform */ t3=((C_word*)((C_word*)t0)[2])[1]; f_18493(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* a9232 in a9226 in a9205 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9233,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9241,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:881: ##sys#current-module */ t3=*((C_word*)lf[184]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7634 in map-loop551 in k7559 in k7556 in k7553 in k7547 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7636,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((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_7607(t7,((C_word*)t0)[6],t5,t6);} /* k17694 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17696(C_word c,C_word *av){ C_word tmp; C_word t0=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_17696,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17700,a[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.scm:2100: g3805 */ t3=t2; f_17700(t3,((C_word*)t0)[5],t1);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_16960(2,av2);}}} /* a8273 in k8261 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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=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_8274,4,av);} t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a9205 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 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=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_9206,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9212,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9227,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:876: with-exception-handler */ t5=*((C_word*)lf[237]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9202 in k9191 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9204,2,av);} /* compiler.scm:902: ##sys#compiled-module-registration */ t2=*((C_word*)lf[228]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18665 in k18623 in k18600 in k18597 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_18667,2,av);} a=C_alloc(15); t2=C_a_i_list1(&a,1,t1); t3=C_a_i_record4(&a,4,lf[469],lf[562],C_SCHEME_END_OF_LIST,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18655,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_i_cadr(((C_word*)t0)[6]); /* compiler.scm:2387: transform */ t7=((C_word*)((C_word*)t0)[7])[1]; f_18493(t7,t5,t6,((C_word*)t0)[8],((C_word*)t0)[9]);} /* k9769 in k9766 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9771,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9778,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]); /* compiler.scm:999: walk */ t4=((C_word*)((C_word*)t0)[5])[1]; f_6925(t4,t2,((C_word*)((C_word*)t0)[6])[1],((C_word*)t0)[4],((C_word*)t0)[7],((C_word*)t0)[8],t3,((C_word*)t0)[9],((C_word*)t0)[10]);} /* k9776 in k9769 in k9766 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9778(C_word c,C_word *av){ C_word tmp; 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_9778,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[253],((C_word*)((C_word*)t0)[3])[1],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* g228 in k6707 in k6689 in k6677 in resolve-variable in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_6727,3,t0,t1,t2);} a=C_alloc(11); t3=C_i_cadr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6734,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],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); /* compiler.scm:451: final-foreign-type */ t6=*((C_word*)lf[95]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k12073 in k12069 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12075,2,av);} t2=C_mutate2((C_word*)lf[4]+1 /* (set! number-type ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k21097 in k21109 in k21073 in k21070 in k21067 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,1)))){ C_save_and_reclaim((void *)f_21099,2,av);} a=C_alloc(18); t2=C_a_i_plus(&a,2,((C_word*)t0)[2],t1); t3=C_mutate2(((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]); t5=((C_word*)t0)[7]; t6=((C_word*)((C_word*)t0)[8])[1]; t7=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[469],((C_word*)t0)[9],t6,t4); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k8284 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8286,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8293,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_i_cddr(((C_word*)t0)[9]); /* compiler.scm:713: ##sys#canonicalize-body */ t5=*((C_word*)lf[152]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=t2; av2[4]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k16466 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_16468,2,av);} /* compiler.scm:1980: walkeach */ t2=((C_word*)((C_word*)t0)[2])[1]; f_16550(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]);} /* a9217 in a9211 in a9205 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_9218,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9222,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:879: print-error-message */ t3=*((C_word*)lf[234]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=*((C_word*)lf[235]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a9211 in a9205 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in ... */ static void C_ccall f_9212(C_word c,C_word *av){ C_word tmp; C_word 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_9212,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9218,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:876: k1164 */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12069 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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(3,c,2)))){ C_save_and_reclaim((void *)f_12071,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12075,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* compiler.scm:1341: ##sys#strip-syntax */ t4=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k9783 in k9766 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9785(C_word c,C_word *av){ C_word tmp; C_word t0=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_9785,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9792,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:998: open-output-string */ t3=*((C_word*)lf[107]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_9771(2,av2);}}} /* k6964 in k6961 in k6955 in k6939 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_6966,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6969,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:500: ##sys#print */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[105]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6961 in k6955 in k6939 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_6963(C_word c,C_word *av){ C_word tmp; C_word t0=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_6963,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6966,a[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.scm:500: ##sys#print */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6732 in g228 in k6707 in k6689 in k6677 in resolve-variable in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_6734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,3)))){ C_save_and_reclaim((void *)f_6734,2,av);} a=C_alloc(25); t2=C_i_caddr(((C_word*)t0)[2]); t3=C_a_i_list(&a,2,t2,((C_word*)t0)[3]); t4=C_a_i_list(&a,2,lf[92],t3); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6744,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); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6748,a[2]=t5,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:455: finish-foreign-result */ t7=*((C_word*)lf[94]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=t1; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k7678 in map-loop521 in k7547 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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_7680,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7655(t6,((C_word*)t0)[5],t5);} /* k8705 in g954 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; 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_8707,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8710,a[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)[3]); /* compiler.scm:797: lookup */ t4=((C_word*)((C_word*)t0)[5])[1]; f_6538(t4,t2,t3,((C_word*)t0)[4]);} /* k8854 in for-each-loop996 in a8823 in k8758 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8856,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_8846(t3,((C_word*)t0)[4],t2);} /* g954 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_8703,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8707,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); /* compiler.scm:795: ##sys#check-syntax */ t4=*((C_word*)lf[186]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=lf[194]; av2[3]=t2; av2[4]=lf[195]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k9790 in k9783 in k9766 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9792,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[101]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9798,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.scm:998: ##sys#print */ t6=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[255]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9796 in k9790 in k9783 in k9766 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_9798,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9801,a[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.scm:998: ##sys#print */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8251 in map-loop787 in a8113 in k8107 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8253,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8228(t6,((C_word*)t0)[5],t5);} /* k6967 in k6964 in k6961 in k6955 in k6939 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_6969(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6969,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6972,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:500: get-output-string */ t3=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6970 in k6967 in k6964 in k6961 in k6955 in k6939 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6972,2,av);} /* compiler.scm:499: warning */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6742 in k6732 in g228 in k6707 in k6689 in k6677 in resolve-variable in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_6744,2,av);} /* compiler.scm:453: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6925(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);} /* k6746 in k6732 in g228 in k6707 in k6689 in k6677 in resolve-variable in canonicalize-expression in k6339 in k6336 in k6333 */ 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);} /* compiler.scm:454: foreign-type-convert-result */ t2=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop948 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_8869(C_word t0,C_word t1,C_word 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_8869,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_8894,a[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)); /* compiler.scm:793: g954 */ t5=((C_word*)t0)[4]; f_8703(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);}}} /* a8267 in k8261 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_8268,2,av);} /* compiler.scm:663: ##sys#expand-extended-lambda-list */ t2=*((C_word*)lf[171]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=((C_word*)((C_word*)t0)[3])[1]; av2[4]=*((C_word*)lf[172]+1); av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k11950 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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(3,c,2)))){ C_save_and_reclaim((void *)f_11952,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11955,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* compiler.scm:1372: stripu */ t4=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8261 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8263(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8263,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8268,a[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_8274,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:661: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_8109(2,av2);}}} /* k10338 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10340(C_word c,C_word *av){ C_word tmp; C_word 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_10340,2,av);} /* compiler.scm:1054: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6925(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]);} /* k11956 in k11953 in k11950 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_11958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_11958,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11961,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(*((C_word*)lf[3]+1))){ if(C_truep(C_i_string_equal_p(*((C_word*)lf[3]+1),t2))){ t4=C_mutate2((C_word*)lf[3]+1 /* (set! ##compiler#unit-name ...) */,t2); t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* compiler.scm:1375: warning */ t4=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[368]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} else{ t4=C_mutate2((C_word*)lf[3]+1 /* (set! ##compiler#unit-name ...) */,t2); t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k11953 in k11950 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_11955,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11958,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11979,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1373: stringify */ t4=*((C_word*)lf[364]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k16714 in k16598 in assign in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_16716,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_16612(t3,t2);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16726,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1994: variable-visible? */ t3=*((C_word*)lf[522]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k6982 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_6984(C_word c,C_word *av){ C_word tmp; 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_6984,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[91],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* compiler.scm:505: ##sys#syntax-error/context */ t2=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[110]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* map-loop441 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7400,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_7425,a[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)); /* compiler.scm:581: g447 */ 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);}}} /* k15261 in a15232 in k15216 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15263(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_15263,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[150],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k15265 in a15232 in k15216 in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15267,2,av);} /* compiler.scm:1769: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19633 in map-loop4556 in maptransform in perform-closure-conversion in k6339 in k6336 in k6333 */ 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 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_19635,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_19610(t6,((C_word*)t0)[5],t5);} /* a11939 in k11868 in k11865 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11940,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k16724 in k16714 in k16598 in assign in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16726,2,av);} t2=((C_word*)t0)[2]; f_16612(t2,C_i_not(t1));} /* map-loop521 in k7547 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_7655(C_word t0,C_word t1,C_word 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_7655,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_7680,a[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)); /* compiler.scm:613: g527 */ 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);}}} /* for-each-loop996 in a8823 in k8758 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_8846(C_word t0,C_word 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_8846,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_8856,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); /* compiler.scm:821: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t5; av2[3]=lf[190]; 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);}}} /* k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_6999,2,av);} a=C_alloc(17); t2=(C_truep(t1)?t1:((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_7005,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)[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); /* compiler.scm:508: emit-syntax-trace-info */ t5=*((C_word*)lf[350]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12023 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12025,2,av);} t2=C_mutate2((C_word*)lf[7]+1 /* (set! extended-bindings ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k12027 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12029,2,av);} /* compiler.scm:1384: append */ t2=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[7]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k13745 in k13739 in k13736 in k13733 in g2704 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_13747,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); /* compiler.scm:1591: note-local */ f_11823(((C_word*)t0)[4],t3);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13757,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_13763,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1592: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* map-loop4556 in maptransform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_19610(C_word t0,C_word t1,C_word 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_19610,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_19635,a[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)); /* compiler.scm:2250: g4562 */ t5=((C_word*)t0)[4]; f_19598(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);}}} /* k13739 in k13736 in k13733 in g2704 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_13741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_13741,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13747,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); /* compiler.scm:1590: local? */ t6=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k17239 in k17179 in k17161 in k16967 in k16964 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_17241,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_17169(t2,C_SCHEME_FALSE);} else{ if(C_truep(((C_word*)t0)[3])){ t2=C_i_length(((C_word*)t0)[3]); t3=C_eqp(C_fix(1),t2); if(C_truep(t3)){ t4=((C_word*)((C_word*)t0)[4])[1]; if(C_truep(t4)){ t5=((C_word*)t0)[2]; f_17169(t5,C_SCHEME_FALSE);} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17232,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); /* compiler.scm:2208: get */ t6=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=lf[509]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} else{ t4=((C_word*)t0)[2]; f_17169(t4,C_SCHEME_FALSE);}} else{ t2=((C_word*)t0)[2]; f_17169(t2,C_SCHEME_FALSE);}}} /* a13756 in k13745 in k13739 in k13736 in k13733 in g2704 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_13757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13757,2,av);} /* compiler.scm:1592: validate-type */ t2=*((C_word*)lf[426]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* foreign-callback-stub-qualifiers in k6339 in k6336 in k6333 */ 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=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_15892,3,av);} t3=C_i_check_structure_2(t2,lf[485],lf[489]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(3)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9281 in k9278 in a9275 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_9283,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9286,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); /* compiler.scm:863: macro-environment11121113 */ t4=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9284 in k9281 in k9278 in a9275 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 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; 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_9286,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9289,a[2]=((C_word*)t0)[2],a[3]=((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); /* compiler.scm:863: module-alias-environment11141115 */ t4=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9278 in a9275 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_9280,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9283,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); /* compiler.scm:863: current-environment11101111 */ t4=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9287 in k9284 in k9281 in k9278 in a9275 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in ... */ static void C_ccall f_9289(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9289,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9292,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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); /* compiler.scm:863: current-module11081109 */ t4=((C_word*)t0)[13];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a13762 in k13745 in k13739 in k13736 in k13733 in g2704 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_13763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(3,c,4)))){ C_save_and_reclaim((void *)f_13763,5,av);} a=C_alloc(3); t5=(C_truep(t2)?C_i_not(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=t1; t7=C_a_i_list(&a,1,t2); if(C_truep(C_i_nullp(t7))){ /* tweaks.scm:54: ##sys#put! */ t8=*((C_word*)lf[87]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; av2[2]=((C_word*)t0)[2]; av2[3]=lf[428]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t8=C_i_car(t7); /* tweaks.scm:54: ##sys#put! */ t9=*((C_word*)lf[87]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t6; av2[2]=((C_word*)t0)[2]; av2[3]=lf[428]; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} else{ /* compiler.scm:1595: warning */ t6=*((C_word*)lf[102]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=lf[435]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* map-loop1924 in k11877 in k11868 in k11865 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_11900(C_word t0,C_word 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_11900,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_11925,a[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_11891,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1368: stringify */ t7=*((C_word*)lf[364]+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);}}} /* k19674 in g4594 in k19649 in ref-var in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_19676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19676,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[574],((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k17640 in a17637 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 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_17642,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_17651,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,C_a_i_cons(&a,2,lf[534],C_SCHEME_TRUE),t7); t9=t5;{ C_word av2[2]; av2[0]=t9; av2[1]=C_i_set_cdr(t6,t8); ((C_proc)(void*)(*((C_word*)t9+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_17659,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2119: every */ t6=*((C_word*)lf[389]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k9293 in k9290 in k9287 in k9284 in k9281 in k9278 in a9275 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in ... */ static void C_ccall f_9295(C_word c,C_word *av){ C_word tmp; C_word t0=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_9295,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9298,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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); /* compiler.scm:863: macro-environment11121113 */ t3=((C_word*)t0)[12];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9290 in k9287 in k9284 in k9281 in k9278 in a9275 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_9292,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9295,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* compiler.scm:863: current-environment11101111 */ t3=((C_word*)t0)[13];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9296 in k9293 in k9290 in k9287 in k9284 in k9281 in k9278 in a9275 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_9298,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9301,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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); /* compiler.scm:863: module-alias-environment11141115 */ t3=((C_word*)t0)[11];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* ref in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16765(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_16765,4,t0,t1,t2,t3);} /* compiler.scm:2015: collect! */ t4=*((C_word*)lf[498]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=lf[523]; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k11977 in k11953 in k11950 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11979,2,av);} /* compiler.scm:1373: string->c-identifier */ t2=*((C_word*)lf[363]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a17631 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17632(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17632,2,av);} /* compiler.scm:2114: scan-free-variables */ t2=*((C_word*)lf[535]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a17637 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17638(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_17638,4,av);} a=C_alloc(12); t4=t2; t5=t3; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17642,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_17676,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:2115: get */ t8=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[495]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} /* k9266 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in ... */ 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(3,c,3)))){ C_save_and_reclaim((void *)f_9268,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* compiler.scm:905: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_9123(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k11959 in k11956 in k11953 in k11950 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_11961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11961,2,av);} t2=C_mutate2((C_word*)lf[3]+1 /* (set! ##compiler#unit-name ...) */,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in k7450 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_7454,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[140]; ((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_7469,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7475,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:595: ##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);}}} /* k7450 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7452,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_7454,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_7454(t5,((C_word*)t0)[3],t1);} /* for-each-loop2603 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_13700(C_word t0,C_word t1,C_word 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_13700,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_13710,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.scm:1549: g2604 */ t5=((C_word*)t0)[3]; f_13480(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);}}} /* foreign-callback-stub-name in k6339 in k6336 in k6333 */ 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=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_15883,3,av);} t3=C_i_check_structure_2(t2,lf[485],lf[488]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a9275 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_9276,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9280,a[2]=((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); /* compiler.scm:863: current-module11081109 */ t3=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9272 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in ... */ static void C_ccall f_9274(C_word c,C_word *av){ C_word tmp; C_word 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_9274,2,av);} /* compiler.scm:907: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6925(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7]);} /* k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16786(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16786,2,av);} a=C_alloc(4); t2=C_set_block_item(lf[47] /* ##compiler#current-program-size */,0,C_fix(0)); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16790,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2023: walk */ t4=((C_word*)((C_word*)t0)[4])[1]; f_15935(t4,t3,((C_word*)t0)[5],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} /* k6903 in k6834 in k6831 in g1183 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in ... */ static void C_ccall f_6905(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6905,2,av);} if(C_truep(t1)){ /* compiler.scm:479: read-file */ t2=*((C_word*)lf[226]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_6839(2,av2);}}} /* k7504 in k7498 in k7491 in a7474 in loop in k7450 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7506(C_word c,C_word *av){ C_word tmp; C_word t0=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_7506,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7509,a[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.scm:606: ##sys#print */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a17658 in k17640 in a17637 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17659(C_word c,C_word *av){ C_word 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_17659,3,av);} /* compiler.scm:2120: get */ t3=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=lf[495]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7507 in k7504 in k7498 in k7491 in a7474 in loop in k7450 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_7509,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7512,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:606: ##sys#print */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[143]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k13708 in for-each-loop2603 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13710,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_13700(t3,((C_word*)t0)[4],t2);} /* k17230 in k17239 in k17179 in k17161 in k16967 in k16964 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17232(C_word c,C_word *av){ C_word tmp; C_word t0=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_17232,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_17169(t2,C_SCHEME_FALSE);} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17228,a[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.scm:2209: variable-visible? */ t3=*((C_word*)lf[522]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k7498 in k7491 in a7474 in loop in k7450 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7500,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[101]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7506,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.scm:606: ##sys#print */ t6=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[144]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k7484 in k7477 in a7474 in loop in k7450 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7486(C_word c,C_word *av){ C_word tmp; 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_7486,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[142],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k17649 in k17640 in a17637 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_17651,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,C_a_i_cons(&a,2,lf[534],C_SCHEME_TRUE),t4); t6=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_set_cdr(t3,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12002 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12004(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12004,2,av);} /* compiler.scm:1380: append */ t2=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[6]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k11998 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12000,2,av);} t2=C_mutate2((C_word*)lf[6]+1 /* (set! standard-bindings ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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(7,c,4)))){ C_save_and_reclaim((void *)f_16793,2,av);} a=C_alloc(7); t2=C_set_block_item(lf[48] /* current-analysis-database-size */,0,C_fix(0)); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16797,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_16803,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2028: ##sys#hash-table-for-each */ t5=*((C_word*)lf[544]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_16790,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16793,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2026: debugging */ t3=*((C_word*)lf[537]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[545]; av2[3]=lf[546]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k16795 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16797(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16797,2,av);} if(C_truep(*((C_word*)lf[46]+1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_mutate2((C_word*)lf[46]+1 /* (set! ##compiler#original-program-size ...) */,*((C_word*)lf[47]+1)); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6910 in k6831 in g1183 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in ... */ static void C_ccall f_6912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6912,2,av);} /* compiler.scm:476: ##sys#compiled-module-registration */ t2=*((C_word*)lf[228]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17226 in k17230 in k17239 in k17179 in k17161 in k16967 in k16964 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_17228,2,av);} a=C_alloc(3); t2=C_i_not(t1); if(C_truep(t2)){ t3=((C_word*)t0)[2]; f_17169(t3,t2);} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17224,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2210: get */ t4=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[495]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k17222 in k17226 in k17230 in k17239 in k17179 in k17161 in k16967 in k16964 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 in ... */ static void C_ccall f_17224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17224,2,av);} t2=((C_word*)t0)[2]; f_17169(t2,C_i_not(t1));} /* k16426 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16428,2,av);} t2=C_eqp(t1,lf[512]); if(C_truep(t2)){ /* compiler.scm:1961: warning */ t3=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[513]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=C_eqp(t1,lf[514]); if(C_truep(t3)){ /* compiler.scm:1963: warning */ t4=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[515]; 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_16366(2,av2);}}}} /* k8568 in k8512 in k8509 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8570,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_8517(t6,C_a_i_cons(&a,2,lf[161],t5));} /* k6917 in g1183 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in ... */ static void C_ccall f_6919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6919,2,av);} /* ##sys#string-append */ t2=*((C_word*)lf[229]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[230]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* foreign-callback-stub-id in k6339 in k6336 in k6333 */ 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=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_15874,3,av);} t3=C_i_check_structure_2(t2,lf[485],lf[487]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k17249 in k17161 in k16967 in k16964 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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,4)))){ C_save_and_reclaim((void *)f_17251,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_17181(2,av2);}} else{ /* compiler.scm:2203: get */ t2=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[519]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k21067 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,6)))){ C_save_and_reclaim((void *)f_21069,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_21072,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]); /* compiler.scm:2792: walk */ t7=((C_word*)((C_word*)t0)[8])[1]; f_20018(t7,t5,t6,((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12]);} /* a7468 in loop in k7450 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7469,2,av);} /* compiler.scm:597: ##sys#do-the-right-thing */ t2=*((C_word*)lf[141]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18681 in k18600 in k18597 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18683(C_word c,C_word *av){ C_word tmp; C_word t0=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_18683,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[469],lf[150],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k19693 in perform-closure-conversion in k6339 in k6336 in k6333 */ 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(7,c,4)))){ C_save_and_reclaim((void *)f_19695,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19698,a[2]=((C_word*)t0)[2],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.scm:2505: gather */ t3=((C_word*)((C_word*)t0)[7])[1]; f_17948(t3,t2,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_END_OF_LIST);} /* k19696 in k19693 in perform-closure-conversion in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19698,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19701,a[2]=((C_word*)t0)[2],a[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]))){ /* compiler.scm:2507: debugging */ t3=*((C_word*)lf[537]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[583]; av2[3]=lf[586]; 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_19701(2,av2);}}} /* k21073 in k21070 in k21067 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_21075,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21111,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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_a_i_minus(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[12]); t5=C_a_i_minus(&a,2,((C_word*)t0)[12],((C_word*)t0)[2]); /* compiler.scm:2796: max */ t6=*((C_word*)lf[631]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k21070 in k21067 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_21072,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_21075,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]); /* compiler.scm:2795: walk */ t7=((C_word*)((C_word*)t0)[11])[1]; f_20018(t7,t5,t6,((C_word*)t0)[12],((C_word*)t0)[13],((C_word*)t0)[14],((C_word*)t0)[15]);} /* k7547 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t4; C_word 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_7549,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_word*)lf[88]+1); t8=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_7555,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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|5,a[1]=(C_word)f_7655,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_7655(t12,t8,t2);} /* k7446 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_7448,2,av);} /* compiler.scm:591: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6925(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]);} /* make-foreign-callback-stub in k6339 in k6336 in k6333 */ static void C_ccall f_15862(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_15862,7,av);} a=C_alloc(7); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_record6(&a,6,lf[485],t2,t3,t4,t5,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* foreign-callback-stub? in k6339 in k6336 in k6333 */ static void C_ccall f_15868(C_word c,C_word *av){ C_word 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_15868,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[485]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7532 in k7522 in a7474 in loop in k7450 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7534,2,av);} /* compiler.scm:601: ##sys#find-extension */ t2=*((C_word*)lf[145]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7522 in a7474 in loop in k7450 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7524,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; f_7493(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7534,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:602: ##sys#canonicalize-extension-path */ t3=*((C_word*)lf[146]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[147]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k7423 in map-loop441 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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_7425,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7400(t6,((C_word*)t0)[5],t5);} /* k17288 in k16964 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_17290,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,C_a_i_cons(&a,2,lf[526],C_SCHEME_TRUE),t4); t6=((C_word*)t0)[3]; f_16969(t6,C_i_set_cdr(t3,t5));} else{ t3=((C_word*)t0)[3]; f_16969(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,C_a_i_cons(&a,2,lf[526],C_SCHEME_TRUE),t4); t6=((C_word*)t0)[3]; f_16969(t6,C_i_set_cdr(t3,t5));} else{ t3=((C_word*)t0)[3]; f_16969(t3,C_SCHEME_UNDEFINED);}}} /* k7513 in k7510 in k7507 in k7504 in k7498 in k7491 in a7474 in loop in k7450 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7515,2,av);} /* compiler.scm:605: warning */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15806 in a15765 in k15757 in k15743 in loop in walk-arguments in perform-cps-conversion in k6339 in k6336 in k6333 */ 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; 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_15808,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[150],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k18537 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_18539,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18545,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2365: test */ t4=((C_word*)((C_word*)t0)[3])[1]; f_17921(t4,t3,((C_word*)t0)[4],lf[540]);} /* k7510 in k7507 in k7504 in k7498 in k7491 in a7474 in loop in k7450 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7512,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7515,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:606: get-output-string */ t3=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7587 in k7559 in k7556 in k7553 in k7547 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_7589,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7593,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7597,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],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); t5=C_i_cddr(((C_word*)t0)[11]); /* compiler.scm:620: ##sys#canonicalize-body */ t6=*((C_word*)lf[152]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=((C_word*)t0)[4]; av2[4]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9652(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_9652,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|11,a[1]=(C_word)f_9658,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]=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); if(C_truep(C_i_memq(((C_word*)((C_word*)t0)[3])[1],*((C_word*)lf[100]+1)))){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9962,a[2]=t6,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:953: open-output-string */ t8=*((C_word*)lf[107]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_9658(2,av2);}}} /* k7575 in g557 in k7559 in k7556 in k7553 in k7547 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7577(C_word c,C_word *av){ C_word tmp; 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_7577,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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_9658,2,av);} a=C_alloc(17); t2=C_i_assq(((C_word*)((C_word*)t0)[2])[1],*((C_word*)lf[60]+1)); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9665,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); /* compiler.scm:955: g1332 */ t4=t3; f_9665(t4,((C_word*)t0)[9],t2);} else{ t3=C_i_assq(((C_word*)((C_word*)t0)[2])[1],*((C_word*)lf[69]+1)); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9717,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); /* compiler.scm:955: g1341 */ t5=t4; f_9717(t5,((C_word*)t0)[9],t3);} else{ t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9765,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[5],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); if(C_truep(C_i_memq(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[4]))){ t5=t4; f_9765(t5,C_SCHEME_UNDEFINED);} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9886,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[8],a[4]=t4,a[5]=((C_word*)t0)[11],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:978: ##sys#get */ t6=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=lf[98]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}} /* atomic? in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,3)))){ C_save_and_reclaim((void *)f_15826,3,av);} t3=t2; t4=C_slot(t3,C_fix(1)); t5=C_u_i_memq(t4,lf[483]); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ if(C_truep((C_truep(C_eqp(t4,lf[270]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[92]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[249]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[96]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[252]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))){ t6=t2; t7=C_slot(t6,C_fix(3)); /* compiler.scm:1843: every */ t8=*((C_word*)lf[389]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} /* k15818 in a15765 in k15757 in k15743 in loop in walk-arguments in perform-cps-conversion in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_15820,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* compiler.scm:1834: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_15725(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* g1332 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_9665(C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_9665,3,t0,t1,t2);} a=C_alloc(11); t3=C_i_cadr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9672,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],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); /* compiler.scm:958: gensym */ t6=*((C_word*)lf[88]+1);{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* g557 in k7559 in k7556 in k7553 in k7547 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_7569(C_word t0,C_word t1,C_word 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_7569,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7577,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); /* compiler.scm:618: walk */ t8=((C_word*)((C_word*)t0)[2])[1]; f_6925(t8,t4,t5,((C_word*)t0)[3],((C_word*)t0)[4],t7,C_SCHEME_TRUE,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k8291 in k8284 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8293(C_word c,C_word *av){ C_word tmp; C_word 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_8293,2,av);} /* compiler.scm:712: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6925(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]);} /* k7559 in k7556 in k7553 in k7547 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){ C_save_and_reclaim((void *)f_7561,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|6,a[1]=(C_word)f_7569,a[2]=((C_word*)t0)[2],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_i_check_list_2(((C_word*)t0)[7],lf[123]); t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7589,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],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)[3],a[11]=((C_word*)t0)[12],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_7607,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_7607(t12,t8,((C_word*)t0)[7],((C_word*)t0)[13]);} /* k8546 in k8521 in k8518 in k8515 in k8512 in k8509 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8548,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8552,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:751: ##sys#eval/meta */ t4=*((C_word*)lf[176]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9628 in map-loop1279 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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_mutate2(((C_word *)((C_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);} /* k7556 in k7553 in k7547 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_7558,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_7561,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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); /* compiler.scm:615: set-real-names! */ f_6566(t3,((C_word*)t0)[7],((C_word*)t0)[14]);} /* k7491 in a7474 in loop in k7450 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7493(C_word c,C_word *av){ C_word tmp; C_word t0=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_7493,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_7479(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7500,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:606: open-output-string */ t3=*((C_word*)lf[107]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12052 in k12048 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_12054,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[6]+1 /* (set! standard-bindings ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12058,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1392: lset-intersection */ t4=*((C_word*)lf[372]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[135]+1); av2[3]=((C_word*)t0)[3]; av2[4]=*((C_word*)lf[370]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k12056 in k12052 in k12048 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12058,2,av);} t2=C_mutate2((C_word*)lf[7]+1 /* (set! extended-bindings ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8554 in k8518 in k8515 in k8512 in k8509 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8556,2,av);} /* compiler.scm:747: ##sys#register-syntax-export */ t2=*((C_word*)lf[183]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7553 in k7547 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_7555,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_7558,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=15,tmp); /* compiler.scm:614: ##sys#extend-se */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[13]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k12048 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_12050,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12054,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1391: lset-intersection */ t4=*((C_word*)lf[372]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[135]+1); av2[3]=t2; av2[4]=*((C_word*)lf[369]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* ref-var in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_19644(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(5,0,3)))){ C_save_and_reclaim_args((void *)trf_19644,4,t1,t2,t3,t4);} a=C_alloc(5); t5=t2; t6=C_slot(t5,C_fix(2)); t7=C_i_car(t6); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19651,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:2498: posq */ t9=*((C_word*)lf[167]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t8; av2[2]=t7; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* k8550 in k8546 in k8521 in k8518 in k8515 in k8512 in k8509 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8552,2,av);} /* compiler.scm:748: ##sys#extend-macro-environment */ t2=*((C_word*)lf[181]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in map-loop2870 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ static void C_fcall f_14071(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_14071,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[460]; ((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[294]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14100,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14104,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=t2; t8=C_u_i_cdr(t7); /* compiler.scm:1630: loop */ t10=t6; t11=t8; t1=t10; t2=t11; goto loop;} else{ t5=C_eqp(t3,lf[463]); t6=(C_truep(t5)?t5:C_eqp(t3,lf[464])); if(C_truep(t6)){ t7=t2; t8=C_u_i_cdr(t7); /* compiler.scm:1631: loop */ t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t7=t2; t8=C_u_i_car(t7); /* compiler.scm:1632: 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[460]; ((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[460]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}}} /* k21154 in k21138 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,1)))){ C_save_and_reclaim((void *)f_21156,2,av);} a=C_alloc(8); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=((C_word*)((C_word*)t0)[4])[1]; t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[469],((C_word*)t0)[5],t4,t2); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a7474 in loop in k7450 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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=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(14,c,2)))){ C_save_and_reclaim((void *)f_7475,5,av);} a=C_alloc(14); t5=t2; t6=t4; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7479,a[2]=t1,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7493,a[2]=t7,a[3]=t6,tmp=(C_word)a,a+=4,tmp); if(C_truep(t3)){ t9=t8;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t3; f_7493(2,av2);}} else{ if(C_truep(C_i_symbolp(((C_word*)t0)[4]))){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7524,a[2]=t8,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:600: feature? */ t10=*((C_word*)lf[148]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t9=t8;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_FALSE; f_7493(2,av2);}}}} /* k18597 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18599,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_18602,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.scm:2379: gensym */ t4=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7477 in a7474 in loop in k7450 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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(4,c,2)))){ C_save_and_reclaim((void *)f_7479,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7486,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]); /* compiler.scm:607: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_7454(t4,t2,t3);} /* ##compiler#create-foreign-stub in k6339 in k6336 in k6333 */ static void C_ccall f_14062(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(9,c,2)))){ C_save_and_reclaim((void *)f_14062,9,av);} a=C_alloc(9); t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14149,a[2]=t7,a[3]=t1,a[4]=t8,a[5]=t3,a[6]=t5,a[7]=t6,a[8]=t4,tmp=(C_word)a,a+=9,tmp); /* compiler.scm:1635: ##sys#strip-syntax */ t10=*((C_word*)lf[118]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_18566(C_word t0,C_word t1){ C_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(22,0,5)))){ C_save_and_reclaim_args((void *)trf_18566,2,t0,t1);} a=C_alloc(22); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_slot(t2,C_fix(1)); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18587,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:2374: maptransform */ t6=((C_word*)((C_word*)t0)[5])[1]; f_19593(t6,t5,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t2=C_eqp(((C_word*)t0)[9],lf[150]); if(C_truep(t2)){ t3=C_i_car(((C_word*)t0)[4]); t4=t3; t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18599,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],tmp=(C_word)a,a+=10,tmp); /* compiler.scm:2378: test */ t6=((C_word*)((C_word*)t0)[11])[1]; f_17921(t6,t5,t4,lf[540]);} else{ t3=C_eqp(((C_word*)t0)[9],lf[161]); t4=(C_truep(t3)?t3:C_eqp(((C_word*)t0)[9],lf[502])); if(C_truep(t4)){ t5=C_i_caddr(((C_word*)t0)[4]); t6=t5; t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_18700,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[13],a[6]=((C_word*)t0)[8],a[7]=t6,a[8]=((C_word*)t0)[6],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); /* compiler.scm:2394: decompose-lambda-list */ t8=*((C_word*)lf[170]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=((C_word*)t0)[3]; av2[2]=t6; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t5=C_eqp(((C_word*)t0)[9],lf[253]); if(C_truep(t5)){ t6=C_i_car(((C_word*)t0)[4]); t7=t6; t8=C_i_car(((C_word*)t0)[6]); t9=t8; t10=C_slot(t9,C_fix(1)); t11=t10; t12=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19204,a[2]=((C_word*)t0)[10],a[3]=t9,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[11],a[7]=t7,a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[4],a[10]=t11,tmp=(C_word)a,a+=11,tmp); t13=C_eqp(lf[91],t11); if(C_truep(t13)){ t14=C_slot(t9,C_fix(2)); t15=C_i_car(t14); /* compiler.scm:2456: immediate? */ t16=*((C_word*)lf[577]+1);{ C_word av2[3]; av2[0]=t16; av2[1]=t12; av2[2]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}} else{ t14=t12;{ C_word av2[2]; av2[0]=t14; av2[1]=C_SCHEME_FALSE; f_19204(2,av2);}}} else{ t6=C_eqp(((C_word*)t0)[9],lf[98]); if(C_truep(t6)){ t7=(C_truep(*((C_word*)lf[31]+1))?C_a_i_list1(&a,1,C_fix(2)):C_a_i_list1(&a,1,C_fix(1))); t8=t7; t9=C_i_car(((C_word*)t0)[4]); t10=C_a_i_list2(&a,2,t9,C_SCHEME_TRUE); t11=C_a_i_record4(&a,4,lf[469],lf[517],t10,C_SCHEME_END_OF_LIST); t12=t11; if(C_truep(*((C_word*)lf[31]+1))){ t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19429,a[2]=t12,a[3]=((C_word*)t0)[3],a[4]=t8,tmp=(C_word)a,a+=5,tmp); t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19433,a[2]=t13,tmp=(C_word)a,a+=3,tmp); t15=C_u_i_car(((C_word*)t0)[4]); /* compiler.scm:2488: ##sys#make-lambda-info */ t16=*((C_word*)lf[565]+1);{ C_word av2[3]; av2[0]=t16; av2[1]=t14; av2[2]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}} else{ t13=C_a_i_cons(&a,2,t12,C_SCHEME_END_OF_LIST); t14=((C_word*)t0)[3]; t15=t14;{ C_word av2[2]; av2[0]=t15; av2[1]=C_a_i_record4(&a,4,lf[469],lf[563],t8,t13); ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}} else{ /* compiler.scm:2491: bomb */ t7=*((C_word*)lf[480]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=((C_word*)t0)[3]; av2[2]=lf[578]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}}}} /* foreign-stub-callback in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_14053,3,av);} t3=C_i_check_structure_2(t2,lf[442],lf[451]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(8)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* g4594 in k19649 in ref-var in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_19655(C_word t0,C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_19655,3,t0,t1,t2);} a=C_alloc(11); t3=C_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_19676,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2501: varnode */ t7=*((C_word*)lf[471]+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);}} /* k7595 in k7587 in k7559 in k7556 in k7553 in k7547 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7597(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7597,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,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],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.scm:622: append */ t4=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k19649 in ref-var in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_19651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_19651,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19655,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2250: g4594 */ t3=t2; f_19655(t3,((C_word*)t0)[3],t1);} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7591 in k7587 in k7559 in k7556 in k7553 in k7547 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7593(C_word c,C_word *av){ C_word tmp; 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_7593,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[150],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k21367 in map-loop5105 in mapwalk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_21369,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_21344(t6,((C_word*)t0)[5],t5);} /* k21138 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 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,c,5)))){ C_save_and_reclaim((void *)f_21140,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_21156,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_i_car(((C_word*)((C_word*)t0)[4])[1]); t6=C_u_i_cdr(((C_word*)t0)[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|9,a[1]=(C_word)f_21164,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]=t8,tmp=(C_word)a,a+=10,tmp)); t10=((C_word*)t8)[1]; f_21164(t10,t4,t5,t6,C_fix(0));} /* k18585 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18587(C_word c,C_word *av){ C_word tmp; C_word t0=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_18587,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[469],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9239 in a9232 in a9226 in a9205 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in ... */ static void C_ccall f_9241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9241,2,av);} /* compiler.scm:881: ##sys#finalize-module */ t2=*((C_word*)lf[236]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a9242 in a9226 in a9205 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk 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((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_9243,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_9249,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:876: k1164 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a9248 in a9242 in a9226 in a9205 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9249,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* literal in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_21378(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_21378,3,t0,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21385,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); /* compiler.scm:2833: immediate? */ t4=*((C_word*)lf[577]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k20708 in k20796 in k20658 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 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_20710,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_20713,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_20713(t3,t1);} else{ t3=C_i_cdr(((C_word*)((C_word*)t0)[14])[1]); if(C_truep(C_i_pairp(t3))){ t4=C_i_cadr(((C_word*)((C_word*)t0)[14])[1]); t5=t2; f_20713(t5,(C_truep(t4)?t4:C_eqp(lf[129],((C_word*)t0)[15])));} else{ t4=t2; f_20713(t4,C_eqp(lf[129],((C_word*)t0)[15]));}}} /* k20714 in k20711 in k20708 in k20796 in k20658 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_20716(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_20716,2,t0,t1);} a=C_alloc(12); t2=(C_truep(((C_word*)t0)[2])?lf[624]:lf[625]); t3=t2; t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_20746,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])){ /* compiler.scm:2745: blockvar-literal */ t5=((C_word*)((C_word*)t0)[12])[1]; f_21439(t5,t4,((C_word*)t0)[4]);} else{ /* compiler.scm:2746: literal */ t5=((C_word*)((C_word*)t0)[13])[1]; f_21378(t5,t4,((C_word*)t0)[4]);}} /* foreign-stub-argument-names in k6339 in k6336 in k6333 */ 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=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_14026,3,av);} t3=C_i_check_structure_2(t2,lf[442],lf[448]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(5)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k20711 in k20708 in k20796 in k20658 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_20713(C_word 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_20713,2,t0,t1);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_20716,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_a_i_plus(&a,2,((C_word*)((C_word*)t0)[13])[1],C_fix(1)); t5=C_mutate2(((C_word *)((C_word*)t0)[13])+1,t4); t6=t3; f_20716(t6,t5);} else{ t4=t3; f_20716(t4,C_SCHEME_UNDEFINED);}} /* a10998 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10999(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_10999,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_11009,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]=((C_word*)t0)[8],a[12]=t9,tmp=(C_word)a,a+=13,tmp); /* compiler.scm:1191: ##sys#alias-global-hook */ t11=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_6925(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 *a; if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){ C_save_and_reclaim_args((void *)trf_6925,9,t0,t1,t2,t3,t4,t5,t6,t7,t8);} a=C_alloc(21); if(C_truep(C_i_symbolp(t2))){ t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6935,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,tmp=(C_word)a,a+=10,tmp); t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6941,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]=t9,tmp=(C_word)a,a+=11,tmp); /* compiler.scm:497: keyword? */ t11=*((C_word*)lf[108]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ if(C_truep(C_i_not_pair_p(t2))){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6984,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:503: constant? */ t10=*((C_word*)lf[111]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t9=C_i_car(t2); if(C_truep(C_i_symbolp(t9))){ t10=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_6999,a[2]=t8,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t1,a[11]=((C_word*)t0)[4],a[12]=((C_word*)t0)[5],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); /* compiler.scm:507: get-line */ t11=*((C_word*)lf[268]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ if(C_truep(C_i_listp(t2))){ t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11606,a[2]=((C_word*)t0)[8],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t7,a[8]=t8,a[9]=((C_word*)t0)[3],a[10]=t5,a[11]=t6,tmp=(C_word)a,a+=12,tmp); t11=t2; t12=C_u_i_car(t11); /* compiler.scm:1302: constant? */ t13=*((C_word*)lf[111]+1);{ C_word av2[3]; av2[0]=t13; av2[1]=t10; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} else{ /* compiler.scm:1300: ##sys#syntax-error/context */ t10=*((C_word*)lf[109]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t1; av2[2]=lf[352]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}}}} /* k21383 in literal in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 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_21385,2,av);} a=C_alloc(9); if(C_truep(t1)){ /* compiler.scm:2833: immediate-literal */ f_21483(((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_mutate2(((C_word *)((C_word*)t0)[6])+1,t4); t6=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[5])[1],C_fix(1)); t7=C_mutate2(((C_word *)((C_word*)t0)[5])+1,t6); t8=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_a_i_vector1(&a,1,t3); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21408,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:2841: posv */ t4=*((C_word*)lf[632]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)((C_word*)t0)[9])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}} /* foreign-stub-argument-types in k6339 in k6336 in k6333 */ static void C_ccall f_14017(C_word c,C_word *av){ C_word tmp; C_word 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_14017,3,av);} t3=C_i_check_structure_2(t2,lf[442],lf[447]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(4)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6933 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_6935,2,av);} /* compiler.scm:501: resolve-variable */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6675(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]);} /* map-loop1236 in a9381 in k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_9403(C_word t0,C_word t1,C_word 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_9403,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_9428,a[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)); /* compiler.scm:916: g1242 */ t5=((C_word*)t0)[4]; f_9387(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);}}} /* foreign-stub-name in k6339 in k6336 in k6333 */ 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=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_14008,3,av);} t3=C_i_check_structure_2(t2,lf[442],lf[446]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(3)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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_9649,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|10,a[1]=(C_word)f_9652,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],tmp=(C_word)a,a+=11,tmp); /* compiler.scm:949: get-line */ t5=*((C_word*)lf[268]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6939 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,7)))){ C_save_and_reclaim((void *)f_6941,2,av);} a=C_alloc(4); if(C_truep(t1)){ /* compiler.scm:501: resolve-variable */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6675(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]);} else{ if(C_truep(C_i_memq(((C_word*)t0)[4],*((C_word*)lf[100]+1)))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6957,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:500: open-output-string */ t3=*((C_word*)lf[107]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* compiler.scm:501: resolve-variable */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6675(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]);}}} /* k9693 in k9705 in k9670 in g1332 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,8)))){ C_save_and_reclaim((void *)f_9695,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,3,lf[249],((C_word*)t0)[2],t1); t3=C_a_i_list(&a,3,lf[150],((C_word*)t0)[3],t2); /* compiler.scm:959: walk */ t4=((C_word*)((C_word*)t0)[4])[1]; f_6925(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[8],((C_word*)t0)[9]);} /* a10988 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10989(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10989,2,av);} t2=C_i_cdr(((C_word*)t0)[2]); /* compiler.scm:1188: split-at */ t3=*((C_word*)lf[318]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=C_fix(4); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6955 in k6939 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_6957(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6957,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[101]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6963,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.scm:500: ##sys#print */ t6=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[106]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* g5111 in mapwalk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_21332(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_21332,3,t0,t1,t2);} /* compiler.scm:2830: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_20018(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* k10264 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10266,2,av);} /* compiler.scm:1038: canonicalize-begin-body */ t2=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_10270(C_word t0,C_word 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_10270,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_10288,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1043: walk */ t7=((C_word*)((C_word*)t0)[2])[1]; f_6925(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_10295,a[2]=t1,a[3]=((C_word*)t0)[9],a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:1044: walk */ t7=((C_word*)((C_word*)t0)[2])[1]; f_6925(t7,t6,t3,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8]);}} /* k11019 in k11007 in a10998 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t3; 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,4)))){ C_save_and_reclaim((void *)f_11021,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_11024,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_i_listp(((C_word*)t0)[3]); t4=C_i_not(t3); if(C_truep(t4)){ if(C_truep(t4)){ /* compiler.scm:1203: syntax-error */ t5=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=lf[338]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[13]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_11024(2,av2);}}} else{ t5=C_i_listp(((C_word*)t0)[13]); t6=C_i_not(t5); if(C_truep(t6)){ if(C_truep(t6)){ /* compiler.scm:1203: syntax-error */ t7=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t2; av2[2]=lf[338]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[13]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_11024(2,av2);}}} else{ t7=C_i_length(((C_word*)t0)[3]); t8=C_i_length(((C_word*)t0)[13]); t9=C_eqp(t7,t8); if(C_truep(t9)){ t10=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; f_11024(2,av2);}} else{ /* compiler.scm:1203: syntax-error */ t10=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t2; av2[2]=lf[338]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[13]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}}}} /* map-loop5105 in mapwalk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_21344(C_word t0,C_word t1,C_word 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_21344,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_21369,a[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)); /* compiler.scm:2539: g5111 */ t5=((C_word*)t0)[4]; f_21332(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);}}} /* k11022 in k11019 in k11007 in a10998 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,6)))){ C_save_and_reclaim((void *)f_11024,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11031,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11035,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],tmp=(C_word)a,a+=14,tmp); /* compiler.scm:1207: mapwalk */ t4=((C_word*)((C_word*)t0)[14])[1]; f_11656(t4,t3,((C_word*)t0)[15],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k11376 in k11370 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_11378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_11378,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11381,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_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]),t3); t5=C_a_i_cons(&a,2,((C_word*)t0)[5],t4); /* compiler.scm:1293: ##sys#hash-table-set! */ t6=*((C_word*)lf[291]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t2; av2[2]=*((C_word*)lf[49]+1); av2[3]=((C_word*)t0)[6]; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t3=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]),C_SCHEME_END_OF_LIST); t4=C_a_i_cons(&a,2,((C_word*)t0)[5],t3); /* compiler.scm:1293: ##sys#hash-table-set! */ t5=*((C_word*)lf[291]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=*((C_word*)lf[49]+1); av2[3]=((C_word*)t0)[6]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9670 in g1332 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9672(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9672,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9707,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.scm:960: foreign-type-convert-argument */ t4=*((C_word*)lf[251]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[10])[1]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k11370 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_11372,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_11378,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); /* compiler.scm:1291: ##sys#hash-table-ref */ t6=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=*((C_word*)lf[49]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k10286 in fold in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10288(C_word c,C_word *av){ C_word tmp; 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_10288,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list1(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11053 in k11033 in k11022 in k11019 in k11007 in a10998 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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(44,c,4)))){ C_save_and_reclaim((void *)f_11055,2,av);} a=C_alloc(44); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11059,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_11071,a[2]=t3,a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp); if(C_truep((C_truep(C_i_equalp(((C_word*)t0)[9],lf[319]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[9],lf[320]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[9],lf[321]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[9],lf[322]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))){ t5=C_i_cddr(((C_word*)t0)[10]); t6=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t5); t7=C_a_i_cons(&a,2,lf[149],t6); t8=C_a_i_list(&a,2,lf[91],((C_word*)t0)[11]); t9=C_a_i_list(&a,3,lf[323],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[149],t11); /* compiler.scm:1225: foreign-type-convert-argument */ t13=*((C_word*)lf[251]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t13; av2[1]=t3; av2[2]=t12; av2[3]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}} else{ if(C_truep((C_truep(C_i_equalp(((C_word*)t0)[9],lf[324]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[9],lf[325]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[9],lf[326]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[9],lf[327]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[9],lf[328]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[9],lf[329]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))))){ /* compiler.scm:1247: syntax-error */ t5=*((C_word*)lf[330]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=lf[331]; av2[3]=((C_word*)t0)[9]; av2[4]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ if(C_truep((C_truep(C_i_equalp(((C_word*)t0)[9],lf[332]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[9],lf[333]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[9],lf[334]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[9],lf[335]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))){ t5=C_i_cddr(((C_word*)t0)[10]); t6=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t5); t7=C_a_i_cons(&a,2,lf[149],t6); t8=C_a_i_list(&a,2,lf[336],t7); t9=C_a_i_list(&a,1,t8); t10=t9; t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11131,a[2]=((C_word*)t0)[11],a[3]=t10,a[4]=t3,a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:1259: macro-alias */ t12=((C_word*)((C_word*)t0)[12])[1]; f_6553(t12,t11,lf[337],((C_word*)t0)[6]);} else{ t5=C_i_cddr(((C_word*)t0)[10]); t6=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t5); t7=C_a_i_cons(&a,2,lf[149],t6); /* compiler.scm:1225: foreign-type-convert-argument */ t8=*((C_word*)lf[251]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}}}} /* k11057 in k11053 in k11033 in k11022 in k11019 in k11007 in a10998 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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(18,c,8)))){ C_save_and_reclaim((void *)f_11059,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,3,lf[149],((C_word*)t0)[2],t1); t3=C_a_i_list(&a,3,lf[161],((C_word*)t0)[3],t2); /* compiler.scm:1208: walk */ t4=((C_word*)((C_word*)t0)[4])[1]; f_6925(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[8],((C_word*)t0)[9]);} /* k16698 in k16691 in k16610 in k16598 in assign in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16700,2,av);} t2=((C_word*)t0)[2]; f_16657(t2,C_i_not(t1));} /* k9601 in k9597 in k9584 in k9581 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_9603,2,av);} /* compiler.scm:939: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6925(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7]);} /* map-loop1279 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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)); /* compiler.scm:936: g1285 */ 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);}}} /* k21406 in k21383 in literal in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21408(C_word c,C_word *av){ C_word tmp; C_word t0=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_21408,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21412,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2539: g5141 */ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( /* compiler.scm:2539: g5141 */ f_21412(t2,t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* compiler.scm:2842: new-literal */ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=( /* compiler.scm:2842: new-literal */ f_21428(C_a_i(&a,7),((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5]) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k11041 in k11033 in k11022 in k11019 in k11007 in a10998 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_11043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11043,2,av);} a=C_alloc(3); t2=C_a_i_list(&a,1,t1); /* compiler.scm:406: ##sys#append */ t3=*((C_word*)lf[156]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10297 in k10293 in fold in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10299(C_word c,C_word *av){ C_word tmp; 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_10299,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k10293 in fold in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10295,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10299,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1044: fold */ t4=((C_word*)((C_word*)t0)[3])[1]; f_10270(t4,t3,((C_word*)t0)[4]);} /* k9426 in map-loop1236 in a9381 in k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 in ... */ static void C_ccall f_9428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9428,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9403(t6,((C_word*)t0)[5],t5);} /* k21109 in k21073 in k21070 in k21067 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,3)))){ C_save_and_reclaim((void *)f_21111,2,av);} a=C_alloc(22); t2=C_a_i_plus(&a,2,((C_word*)t0)[2],t1); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21099,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_a_i_minus(&a,2,((C_word*)((C_word*)t0)[5])[1],((C_word*)t0)[12]); t6=C_a_i_minus(&a,2,((C_word*)t0)[12],((C_word*)t0)[4]); /* compiler.scm:2797: max */ t7=*((C_word*)lf[631]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11069 in k11053 in k11033 in k11022 in k11019 in k11007 in a10998 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_11071,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[149],t2); /* compiler.scm:1225: foreign-type-convert-argument */ t4=*((C_word*)lf[251]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10223 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10225(C_word c,C_word *av){ C_word tmp; C_word 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_10225,2,av);} /* compiler.scm:1030: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6925(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[8],((C_word*)t0)[9]);} /* new-literal in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static C_word C_fcall f_21428(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_mutate2(((C_word *)((C_word*)t0)[3])+1,t3); t5=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(1)); t6=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t5); return(t2);} /* a9436 in k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9437(C_word c,C_word *av){ C_word tmp; C_word t0=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_9437,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9441,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); /* compiler.scm:916: current-module12091210 */ t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_18527(C_word t0,C_word t1){ C_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,4)))){ C_save_and_reclaim_args((void *)trf_18527,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[473]); 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_18539,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:2364: ref-var */ f_19644(t5,((C_word*)t0)[2],((C_word*)t0)[8],((C_word*)t0)[9]);} else{ t3=C_eqp(((C_word*)t0)[4],lf[114]); t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_18566,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[7],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); if(C_truep(t3)){ t5=t4; f_18566(t5,t3);} else{ t5=C_eqp(((C_word*)t0)[4],lf[470]); if(C_truep(t5)){ t6=t4; f_18566(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[4],lf[269]); if(C_truep(t6)){ t7=t4; f_18566(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[4],lf[270]); if(C_truep(t7)){ t8=t4; f_18566(t8,t7);} else{ t8=C_eqp(((C_word*)t0)[4],lf[345]); if(C_truep(t8)){ t9=t4; f_18566(t9,t8);} else{ t9=C_eqp(((C_word*)t0)[4],lf[92]); if(C_truep(t9)){ t10=t4; f_18566(t10,t9);} else{ t10=C_eqp(((C_word*)t0)[4],lf[249]); if(C_truep(t10)){ t11=t4; f_18566(t11,t10);} else{ t11=C_eqp(((C_word*)t0)[4],lf[168]); if(C_truep(t11)){ t12=t4; f_18566(t12,t11);} else{ t12=C_eqp(((C_word*)t0)[4],lf[579]); if(C_truep(t12)){ t13=t4; f_18566(t13,t12);} else{ t13=C_eqp(((C_word*)t0)[4],lf[580]); if(C_truep(t13)){ t14=t4; f_18566(t14,t13);} else{ t14=C_eqp(((C_word*)t0)[4],lf[581]); if(C_truep(t14)){ t15=t4; f_18566(t15,t14);} else{ t15=C_eqp(((C_word*)t0)[4],lf[497]); if(C_truep(t15)){ t16=t4; f_18566(t16,t15);} else{ t16=C_eqp(((C_word*)t0)[4],lf[582]); if(C_truep(t16)){ t17=t4; f_18566(t17,t16);} else{ t17=C_eqp(((C_word*)t0)[4],lf[96]); t18=t4; f_18566(t18,(C_truep(t17)?t17:C_eqp(((C_word*)t0)[4],lf[252])));}}}}}}}}}}}}}}}} /* loop in g1069 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static C_word C_fcall f_9486(C_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);}}} /* g1692 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_10923(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_10923,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10929,a[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.scm:1180: process-declaration */ t4=*((C_word*)lf[316]+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);}} /* a10928 in g1692 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10929(C_word c,C_word *av){ C_word tmp; C_word 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_10929,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10937,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1183: lookup */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6538(t4,t3,t2,((C_word*)t0)[4]);} /* k20219 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){ C_save_and_reclaim((void *)f_20221,2,av);} a=C_alloc(4); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20233,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2621: mapwalk */ t4=((C_word*)((C_word*)t0)[5])[1]; f_21327(t4,t3,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} /* k10238 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10240,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[275]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10969 in map-loop1686 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10971,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10946(t6,((C_word*)t0)[5],t5);} /* k20231 in k20219 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,1)))){ C_save_and_reclaim((void *)f_20233,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=((C_word*)((C_word*)t0)[3])[1]; t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[563],t3,t1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k18543 in k18537 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ 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; 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_18545,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); t3=((C_word*)t0)[3]; t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[561],C_SCHEME_END_OF_LIST,t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a10900 in a10894 in a10862 in a10844 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10901,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k20201 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,6)))){ C_save_and_reclaim((void *)f_20203,2,av);} a=C_alloc(9); t2=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],t1); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20199,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); /* compiler.scm:2617: mapwalk */ t5=((C_word*)((C_word*)t0)[6])[1]; f_21327(t5,t4,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);} /* k20205 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20207,2,av);} /* compiler.scm:2616: words */ t2=*((C_word*)lf[301]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11029 in k11022 in k11019 in k11007 in a10998 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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(3,c,1)))){ C_save_and_reclaim((void *)f_11031,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[317],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11033 in k11022 in k11019 in k11007 in a10998 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t3; C_word 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_11035,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11043,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11055,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],tmp=(C_word)a,a+=13,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_11160,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_11160(t8,t4,((C_word*)t0)[3],((C_word*)t0)[13]);} /* k11379 in k11376 in k11370 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11381,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9439 in a9436 in k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_9441,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9444,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); /* compiler.scm:916: macro-environment12111212 */ t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9445 in k9442 in k9439 in a9436 in k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_9447,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,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],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* compiler.scm:916: macro-environment12111212 */ t3=((C_word*)t0)[7];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9442 in k9439 in a9436 in k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_9444,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,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]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* compiler.scm:916: current-module12091210 */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* foreign-stub-cps in k6339 in k6336 in k6333 */ static void C_ccall f_14044(C_word c,C_word *av){ C_word tmp; C_word 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_14044,3,av);} t3=C_i_check_structure_2(t2,lf[442],lf[450]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(7)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9448 in k9445 in k9442 in k9439 in a9436 in k9345 in a9306 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9450,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_mutate2(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); t4=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9453 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9455,2,av);} if(C_truep(t1)){ /* compiler.scm:861: ##sys#syntax-error-hook */ t2=*((C_word*)lf[244]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[245]; av2[3]=lf[246]; 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_9034(2,av2);}}} /* foreign-stub-body in k6339 in k6336 in k6333 */ static void C_ccall f_14035(C_word c,C_word *av){ C_word tmp; C_word 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_14035,3,av);} t3=C_i_check_structure_2(t2,lf[442],lf[449]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(6)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k20564 in k20560 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_20566,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[621],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop1686 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_10946(C_word t0,C_word t1,C_word 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_10946,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_10971,a[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)); /* compiler.scm:1179: g1692 */ t5=((C_word*)t0)[4]; f_10923(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);}}} /* k11353 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_11355(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_11355,2,av);} a=C_alloc(21); t2=C_i_assq(t1,*((C_word*)lf[69]+1)); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11286,a[2]=((C_word*)t0)[2],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.scm:1269: g1766 */ t4=t3; f_11286(t4,((C_word*)t0)[7],t2);} else{ t3=C_i_assq(((C_word*)t0)[8],*((C_word*)lf[67]+1)); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11312,a[2]=((C_word*)t0)[2],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.scm:1269: g1773 */ t5=t4; f_11312(t5,((C_word*)t0)[7],t3);} else{ if(C_truep(C_i_assq(((C_word*)t0)[8],*((C_word*)lf[72]+1)))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11340,a[2]=((C_word*)t0)[7],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1277: symbol->string */ t5=*((C_word*)lf[231]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_a_i_list(&a,2,lf[91],lf[342]); t5=C_a_i_list(&a,5,lf[343],((C_word*)t0)[8],C_fix(0),C_SCHEME_FALSE,t4); /* compiler.scm:1279: walk */ t6=((C_word*)((C_word*)t0)[2])[1]; f_6925(t6,((C_word*)t0)[7],t5,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6]);}}}} /* k10942 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_10944,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[142],t1); /* compiler.scm:1177: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_6925(t3,((C_word*)t0)[3],t2,((C_word*)t0)[4],C_SCHEME_END_OF_LIST,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k20560 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_20562,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20566,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_20574,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_20586,a[2]=t6,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2715: ##sys#fast-reverse */ t8=*((C_word*)lf[619]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11338 in k11353 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_11340(C_word c,C_word *av){ C_word tmp; C_word t0=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_11340,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,2,t1,lf[294]); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,2,lf[92],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8719 in k8715 in k8708 in k8705 in g954 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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(9,c,1)))){ C_save_and_reclaim((void *)f_8721,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* g1773 in k11353 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_11312(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_11312,3,t0,t1,t2);} t3=C_i_cdr(t2); /* compiler.scm:1275: walk */ t4=((C_word*)((C_word*)t0)[2])[1]; f_6925(t4,t1,t3,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6]);} /* lambda-literal-directly-called in k6339 in k6336 in k6333 */ 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=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_19817,3,av);} t3=C_i_check_structure_2(t2,lf[589],lf[600]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(10)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* g5141 in k21406 in k21383 in literal in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static C_word C_fcall f_21412(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));} /* k8715 in k8708 in k8705 in g954 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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(5,0,3)))){ C_save_and_reclaim_args((void *)trf_8717,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8721,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:805: ##sys#get */ t4=*((C_word*)lf[85]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[190]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8708 in k8705 in g954 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8710,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8717,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|3,a[1]=(C_word)f_8731,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_8735,a[2]=t6,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t8=C_i_cadr(((C_word*)t0)[3]); /* compiler.scm:802: ##sys#eval/meta */ t9=*((C_word*)lf[176]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_8717(t6,C_SCHEME_FALSE);}} /* k20836 in k20824 in k20821 in k20818 in k20814 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_20838,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=((C_word*)((C_word*)t0)[3])[1]; t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],((C_word*)t0)[4],t3,t1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* lambda-literal-allocated in k6339 in k6336 in k6333 */ static void C_ccall f_19808(C_word c,C_word *av){ C_word tmp; C_word 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_19808,3,av);} t3=C_i_check_structure_2(t2,lf[589],lf[599]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(9)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k20292 in k20277 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_20294(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,1)))){ C_save_and_reclaim_args((void *)trf_20294,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(1)); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3]; t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[469],lf[572],C_SCHEME_END_OF_LIST,((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[469],((C_word*)t0)[5],C_SCHEME_END_OF_LIST,((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16970 in k16967 in k16964 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_16972,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16978,a[2]=((C_word*)t0)[2],a[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)[2])[1])){ t3=((C_word*)((C_word*)t0)[2])[1]; t4=C_slot(t3,C_fix(1)); t5=t2; f_16978(t5,C_eqp(lf[161],t4));} else{ t3=t2; f_16978(t3,C_SCHEME_FALSE);}} /* k16967 in k16964 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16969(C_word t0,C_word t1){ C_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,4)))){ C_save_and_reclaim_args((void *)trf_16969,2,t0,t1);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16972,a[2]=((C_word*)t0)[2],a[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)[2])[1])?C_i_not(((C_word*)((C_word*)t0)[6])[1]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=((C_word*)((C_word*)t0)[2])[1]; t5=C_slot(t4,C_fix(1)); t6=C_eqp(lf[473],t5); if(C_truep(t6)){ t7=((C_word*)((C_word*)t0)[2])[1]; t8=C_slot(t7,C_fix(2)); t9=C_i_car(t8); t10=t9; t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17163,a[2]=((C_word*)t0)[4],a[3]=t10,a[4]=t2,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); /* compiler.scm:2201: get */ t12=*((C_word*)lf[496]+1);{ C_word av2[5]; av2[0]=t12; av2[1]=t11; av2[2]=((C_word*)t0)[5]; av2[3]=t10; av2[4]=lf[523]; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} else{ t7=C_SCHEME_UNDEFINED; t8=t2;{ C_word av2[2]; av2[0]=t8; av2[1]=t7; f_16972(2,av2);}}} else{ t4=t2;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_16972(2,av2);}}} /* k20261 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20263(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,1)))){ C_save_and_reclaim((void *)f_20263,2,av);} a=C_alloc(8); t2=C_a_i_list1(&a,1,t1); t3=((C_word*)t0)[2]; t4=((C_word*)((C_word*)t0)[3])[1]; t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[469],lf[562],t4,t2); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k20814 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,4)))){ C_save_and_reclaim((void *)f_20816,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_20820,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* compiler.scm:2756: lset-adjoin */ t4=*((C_word*)lf[550]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[614]+1); av2[3]=((C_word*)((C_word*)t0)[2])[1]; av2[4]=((C_word*)t0)[16]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k16976 in k16970 in k16967 in k16964 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16978(C_word t0,C_word t1){ C_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(7,0,2)))){ C_save_and_reclaim_args((void *)trf_16978,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_slot(t2,C_fix(2)); if(C_truep(C_i_cadr(t3))){ t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_caddr(t3); t5=t4; t6=((C_word*)((C_word*)t0)[2])[1]; t7=C_slot(t6,C_fix(3)); t8=C_i_car(t7); t9=t8; t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17004,a[2]=t9,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=t5,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(t5))){ t11=C_u_i_cdr(t5); if(C_truep(C_i_nullp(t11))){ t12=C_slot(t9,C_fix(1)); t13=t10; f_17004(t13,C_eqp(lf[470],t12));} else{ t12=t10; f_17004(t12,C_SCHEME_FALSE);}} else{ t11=t10; f_17004(t11,C_SCHEME_FALSE);}}} 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);}}} /* k10935 in a10928 in g1692 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10937,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_memq(t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k20277 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 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_20279,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20294,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_slot(((C_word*)t0)[5],C_fix(1)); t5=C_eqp(lf[473],t4); if(C_truep(t5)){ t6=C_slot(((C_word*)t0)[5],C_fix(2)); t7=C_i_car(t6); t8=t3; f_20294(t8,C_i_memq(t7,((C_word*)t0)[6]));} else{ t6=t3; f_20294(t6,C_SCHEME_FALSE);}} /* k20818 in k20814 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_20820,2,av);} a=C_alloc(19); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_20823,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); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20863,a[2]=((C_word*)t0)[16],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_length(((C_word*)((C_word*)t0)[4])[1]); if(C_truep(C_fixnum_greater_or_equal_p(t5,C_fix(3)))){ t6=C_i_caddr(((C_word*)((C_word*)t0)[4])[1]); t7=t4; f_20863(t7,C_eqp(((C_word*)t0)[10],t6));} else{ t6=t4; f_20863(t6,C_SCHEME_FALSE);}} /* k20821 in k20818 in k20814 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_20823(C_word t0,C_word t1){ C_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,2)))){ C_save_and_reclaim_args((void *)trf_20823,2,t0,t1);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_20826,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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[13]+1))?((C_word*)t0)[11]:C_SCHEME_FALSE); if(C_truep(t3)){ t4=C_a_i_list4(&a,4,((C_word*)((C_word*)t0)[12])[1],lf[611],lf[626],((C_word*)t0)[13]); t5=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[12])[1],((C_word*)((C_word*)t0)[3])[1]); t6=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t5); t7=C_a_i_cons(&a,2,t4,((C_word*)((C_word*)t0)[14])[1]); t8=C_mutate2(((C_word *)((C_word*)t0)[14])+1,t7); t9=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[12])[1],C_fix(1)); t10=C_mutate2(((C_word *)((C_word*)t0)[12])+1,t9); t11=t2; f_20826(t11,t10);} else{ t4=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1]); t5=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t4); t6=t2; f_20826(t6,t5);}} /* k20824 in k20821 in k20818 in k20814 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_20826(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_20826,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20838,a[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.scm:2765: mapwalk */ t3=((C_word*)((C_word*)t0)[5])[1]; f_21327(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} /* lambda-literal-rest-argument-mode in k6339 in k6336 in k6333 */ 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=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_19853,3,av);} t3=C_i_check_structure_2(t2,lf[589],lf[604]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(14)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* lambda-literal-customizable in k6339 in k6336 in k6333 */ static void C_ccall f_19844(C_word c,C_word *av){ C_word tmp; C_word 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_19844,3,av);} t3=C_i_check_structure_2(t2,lf[589],lf[603]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(13)); ((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_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_compiler_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(4213))){ C_save(t1); C_rereclaim2(4213*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,649); lf[0]=C_h_intern(&lf[0],1,"d"); lf[1]=C_h_intern(&lf[1],2,"pp"); lf[2]=C_h_intern(&lf[2],5,"print"); lf[3]=C_h_intern(&lf[3],18,"\010compilerunit-name"); lf[4]=C_h_intern(&lf[4],11,"number-type"); lf[5]=C_h_intern(&lf[5],7,"generic"); lf[6]=C_h_intern(&lf[6],17,"standard-bindings"); lf[7]=C_h_intern(&lf[7],17,"extended-bindings"); lf[8]=C_h_intern(&lf[8],28,"\010compilerinsert-timer-checks"); lf[9]=C_h_intern(&lf[9],19,"\010compilerused-units"); lf[10]=C_h_intern(&lf[10],6,"unsafe"); lf[11]=C_h_intern(&lf[11],29,"\010compilerforeign-declarations"); lf[12]=C_h_intern(&lf[12],24,"\010compileremit-trace-info"); lf[13]=C_h_intern(&lf[13],15,"emit-debug-info"); lf[14]=C_h_intern(&lf[14],26,"\010compilerblock-compilation"); lf[15]=C_h_intern(&lf[15],34,"\010compilerline-number-database-size"); lf[16]=C_h_intern(&lf[16],25,"\010compilertarget-heap-size"); lf[17]=C_h_intern(&lf[17],26,"\010compilertarget-stack-size"); lf[18]=C_h_intern(&lf[18],22,"optimize-leaf-routines"); lf[19]=C_h_intern(&lf[19],21,"\010compileremit-profile"); lf[20]=C_h_intern(&lf[20],24,"\010compilerno-bound-checks"); lf[21]=C_h_intern(&lf[21],23,"\010compilerno-argc-checks"); lf[22]=C_h_intern(&lf[22],28,"\010compilerno-procedure-checks"); lf[23]=C_h_intern(&lf[23],35,"\010compilerno-global-procedure-checks"); lf[24]=C_h_intern(&lf[24],24,"\010compilersource-filename"); lf[25]=C_h_intern(&lf[25],26,"\010compilersafe-globals-flag"); lf[26]=C_h_intern(&lf[26],26,"\010compilerexplicit-use-flag"); lf[27]=C_h_intern(&lf[27],40,"\010compilerdisable-stack-overflow-checking"); lf[28]=C_h_intern(&lf[28],29,"\010compilerrequire-imports-flag"); lf[29]=C_h_intern(&lf[29],30,"\010compilerexternal-protos-first"); lf[30]=C_h_intern(&lf[30],24,"\010compilerinline-max-size"); lf[31]=C_h_intern(&lf[31],26,"\010compileremit-closure-info"); lf[32]=C_h_intern(&lf[32],33,"\010compilerundefine-shadowed-macros"); lf[33]=C_h_intern(&lf[33],28,"\010compilerprofiled-procedures"); lf[34]=C_h_intern(&lf[34],25,"\010compilerimport-libraries"); lf[35]=C_h_intern(&lf[35],29,"\010compilerall-import-libraries"); lf[36]=C_h_intern(&lf[36],35,"\010compilerenable-module-registration"); lf[37]=C_h_intern(&lf[37],30,"\010compilerstandalone-executable"); lf[38]=C_h_intern(&lf[38],26,"\010compilerlocal-definitions"); lf[39]=C_h_intern(&lf[39],23,"\010compilerinline-locally"); lf[40]=C_h_intern(&lf[40],28,"\010compilerenable-inline-files"); lf[41]=C_h_intern(&lf[41],32,"\010compilercompiler-syntax-enabled"); lf[42]=C_h_intern(&lf[42],23,"\010compilerbootstrap-mode"); lf[43]=C_h_intern(&lf[43],30,"\010compilerstrict-variable-types"); lf[44]=C_h_intern(&lf[44],30,"\010compilerenable-specialization"); lf[45]=C_h_intern(&lf[45],21,"\010compilerverbose-mode"); lf[46]=C_h_intern(&lf[46],30,"\010compileroriginal-program-size"); lf[47]=C_h_intern(&lf[47],29,"\010compilercurrent-program-size"); lf[48]=C_h_intern(&lf[48],30,"current-analysis-database-size"); lf[49]=C_h_intern(&lf[49],31,"\010compilerline-number-database-2"); lf[50]=C_h_intern(&lf[50],28,"\010compilerimmutable-constants"); lf[51]=C_h_intern(&lf[51],21,"\010compilerinline-table"); lf[52]=C_h_intern(&lf[52],26,"\010compilerinline-table-used"); lf[53]=C_h_intern(&lf[53],23,"\010compilerconstant-table"); lf[54]=C_h_intern(&lf[54],23,"\010compilerconstants-used"); lf[55]=C_h_intern(&lf[55],30,"\010compilerbroken-constant-nodes"); lf[56]=C_h_intern(&lf[56],37,"\010compilerinline-substitutions-enabled"); lf[57]=C_h_intern(&lf[57],24,"\010compilerdirect-call-ids"); lf[58]=C_h_intern(&lf[58],23,"\010compilerfirst-analysis"); lf[59]=C_h_intern(&lf[59],27,"\010compilerforeign-type-table"); lf[60]=C_h_intern(&lf[60],26,"\010compilerforeign-variables"); lf[61]=C_h_intern(&lf[61],29,"\010compilerforeign-lambda-stubs"); lf[62]=C_h_intern(&lf[62],22,"foreign-callback-stubs"); lf[63]=C_h_intern(&lf[63],27,"\010compilerexternal-variables"); lf[64]=C_h_intern(&lf[64],28,"\010compilerprofile-lambda-list"); lf[65]=C_h_intern(&lf[65],29,"\010compilerprofile-lambda-index"); lf[66]=C_h_intern(&lf[66],33,"\010compilerprofile-info-vector-name"); lf[67]=C_h_intern(&lf[67],28,"\010compilerexternal-to-pointer"); lf[68]=C_h_intern(&lf[68],24,"\010compilerreal-name-table"); lf[69]=C_h_intern(&lf[69],29,"\010compilerlocation-pointer-map"); lf[70]=C_h_intern(&lf[70],34,"\010compilerpending-canonicalizations"); lf[71]=C_h_intern(&lf[71],29,"\010compilerdefconstant-bindings"); lf[72]=C_h_intern(&lf[72],23,"\010compilercallback-names"); lf[73]=C_h_intern(&lf[73],23,"\010compilertoplevel-scope"); lf[74]=C_h_intern(&lf[74],27,"\010compilertoplevel-lambda-id"); lf[75]=C_h_intern(&lf[75],25,"\010compilercsc-control-file"); lf[76]=C_h_intern(&lf[76],26,"\010compilerdata-declarations"); lf[77]=C_h_intern(&lf[77],26,"\010compilerfile-requirements"); lf[78]=C_h_intern(&lf[78],28,"\010compilerpostponed-initforms"); lf[79]=C_h_intern(&lf[79],28,"\010compilerinitialize-compiler"); lf[80]=C_h_intern(&lf[80],12,"vector-fill!"); lf[81]=C_h_intern(&lf[81],11,"make-vector"); lf[82]=C_h_intern(&lf[82],25,"\010compilermake-random-name"); lf[83]=C_h_intern(&lf[83],12,"profile-info"); lf[84]=C_h_intern(&lf[84],32,"\010compilercanonicalize-expression"); lf[85]=C_h_intern(&lf[85],7,"\003sysget"); lf[86]=C_h_intern(&lf[86],16,"\004coremacro-alias"); lf[87]=C_h_intern(&lf[87],8,"\003sysput!"); lf[88]=C_h_intern(&lf[88],6,"gensym"); lf[89]=C_h_intern(&lf[89],8,"for-each"); lf[90]=C_h_intern(&lf[90],23,"\010compilerset-real-name!"); lf[91]=C_h_intern(&lf[91],5,"quote"); lf[92]=C_h_intern(&lf[92],15,"\004coreinline_ref"); lf[93]=C_h_intern(&lf[93],36,"\010compilerforeign-type-convert-result"); lf[94]=C_h_intern(&lf[94],30,"\010compilerfinish-foreign-result"); lf[95]=C_h_intern(&lf[95],27,"\010compilerfinal-foreign-type"); lf[96]=C_h_intern(&lf[96],19,"\004coreinline_loc_ref"); lf[97]=C_h_intern(&lf[97],21,"\003sysalias-global-hook"); lf[98]=C_h_intern(&lf[98],14,"\004coreprimitive"); lf[99]=C_h_intern(&lf[99],18,"\003syshash-table-ref"); lf[100]=C_h_intern(&lf[100],27,"\010compilerunlikely-variables"); lf[101]=C_h_intern(&lf[101],7,"sprintf"); lf[102]=C_h_intern(&lf[102],7,"warning"); lf[103]=C_h_intern(&lf[103],17,"get-output-string"); lf[104]=C_h_intern(&lf[104],9,"\003sysprint"); lf[105]=C_decode_literal(C_heaptop,"\376B\000\000\025\047 possibly unintended"); lf[106]=C_decode_literal(C_heaptop,"\376B\000\000\027reference to variable `"); lf[107]=C_h_intern(&lf[107],18,"open-output-string"); lf[108]=C_h_intern(&lf[108],8,"keyword\077"); lf[109]=C_h_intern(&lf[109],24,"\003syssyntax-error/context"); lf[110]=C_decode_literal(C_heaptop,"\376B\000\000\023illegal atomic form"); lf[111]=C_h_intern(&lf[111],18,"\010compilerconstant\077"); lf[112]=C_h_intern(&lf[112],24,"\003syssyntax-error-culprit"); lf[113]=C_h_intern(&lf[113],7,"\004coreif"); lf[114]=C_h_intern(&lf[114],2,"if"); lf[115]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[116]=C_h_intern(&lf[116],11,"\004coresyntax"); lf[117]=C_h_intern(&lf[117],10,"\004corequote"); lf[118]=C_h_intern(&lf[118],16,"\003sysstrip-syntax"); lf[119]=C_h_intern(&lf[119],10,"\004corecheck"); lf[120]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005quote\376\003\000\000\002\376\377\006\001\376\377\016"); lf[121]=C_h_intern(&lf[121],8,"\004corethe"); lf[122]=C_h_intern(&lf[122],13,"\004coretypecase"); lf[123]=C_h_intern(&lf[123],3,"map"); lf[124]=C_h_intern(&lf[124],14,"\004coreimmutable"); lf[125]=C_h_intern(&lf[125],22,"\010compilerhide-variable"); lf[126]=C_h_intern(&lf[126],21,"\010compileralways-bound"); lf[127]=C_h_intern(&lf[127],1,"c"); lf[128]=C_h_intern(&lf[128],6,"cadadr"); lf[129]=C_h_intern(&lf[129],14,"\004coreundefined"); lf[130]=C_h_intern(&lf[130],5,"caadr"); lf[131]=C_h_intern(&lf[131],23,"\004corerequire-for-syntax"); lf[132]=C_h_intern(&lf[132],4,"eval"); lf[133]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[134]=C_h_intern(&lf[134],10,"lset-union"); lf[135]=C_h_intern(&lf[135],3,"eq\077"); lf[136]=C_h_intern(&lf[136],22,"\003syshash-table-update!"); lf[137]=C_h_intern(&lf[137],14,"dynamic/syntax"); lf[138]=C_h_intern(&lf[138],11,"\003sysrequire"); lf[139]=C_h_intern(&lf[139],22,"\004corerequire-extension"); lf[140]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[141]=C_h_intern(&lf[141],22,"\003sysdo-the-right-thing"); lf[142]=C_h_intern(&lf[142],10,"\004corebegin"); lf[143]=C_decode_literal(C_heaptop,"\376B\000\000\034\047 is currently not installed"); lf[144]=C_decode_literal(C_heaptop,"\376B\000\000\013extension `"); lf[145]=C_h_intern(&lf[145],18,"\003sysfind-extension"); lf[146]=C_h_intern(&lf[146],31,"\003syscanonicalize-extension-path"); lf[147]=C_h_intern(&lf[147],17,"require-extension"); lf[148]=C_h_intern(&lf[148],8,"feature\077"); lf[149]=C_h_intern(&lf[149],8,"\004corelet"); lf[150]=C_h_intern(&lf[150],3,"let"); lf[151]=C_h_intern(&lf[151],6,"append"); lf[152]=C_h_intern(&lf[152],21,"\003syscanonicalize-body"); lf[153]=C_h_intern(&lf[153],13,"\003sysextend-se"); lf[154]=C_h_intern(&lf[154],6,"unzip1"); lf[155]=C_h_intern(&lf[155],12,"\004coreletrec\052"); lf[156]=C_h_intern(&lf[156],10,"\003sysappend"); lf[157]=C_h_intern(&lf[157],9,"\004coreset!"); lf[158]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[159]=C_h_intern(&lf[159],11,"\004coreletrec"); lf[160]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[161]=C_h_intern(&lf[161],11,"\004corelambda"); lf[162]=C_h_intern(&lf[162],30,"\010compilerexpand-profile-lambda"); lf[163]=C_h_intern(&lf[163],3,"all"); lf[164]=C_h_intern(&lf[164],4,"some"); lf[165]=C_h_intern(&lf[165],16,"\010compilerprofile"); lf[166]=C_h_intern(&lf[166],26,"\010compilerbuild-lambda-list"); lf[167]=C_h_intern(&lf[167],13,"\010compilerposq"); lf[168]=C_h_intern(&lf[168],16,"\004coredebug-event"); lf[169]=C_decode_literal(C_heaptop,"\376B\000\000\015C_DEBUG_ENTRY"); lf[170]=C_h_intern(&lf[170],30,"\010compilerdecompose-lambda-list"); lf[171]=C_h_intern(&lf[171],31,"\003sysexpand-extended-lambda-list"); lf[172]=C_h_intern(&lf[172],9,"\003syserror"); lf[173]=C_h_intern(&lf[173],25,"\003sysextended-lambda-list\077"); lf[174]=C_h_intern(&lf[174],15,"\004corelet-syntax"); lf[175]=C_h_intern(&lf[175],22,"\003sysensure-transformer"); lf[176]=C_h_intern(&lf[176],13,"\003syseval/meta"); lf[177]=C_h_intern(&lf[177],18,"\004coreletrec-syntax"); lf[178]=C_h_intern(&lf[178],18,"\004coredefine-syntax"); lf[179]=C_h_intern(&lf[179],25,"\003sysenable-runtime-macros"); lf[180]=C_h_intern(&lf[180],23,"\003syscurrent-environment"); lf[181]=C_h_intern(&lf[181],28,"\003sysextend-macro-environment"); lf[182]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[183]=C_h_intern(&lf[183],26,"\003sysregister-syntax-export"); lf[184]=C_h_intern(&lf[184],18,"\003syscurrent-module"); lf[185]=C_h_intern(&lf[185],5,"cdadr"); lf[186]=C_h_intern(&lf[186],16,"\003syscheck-syntax"); lf[187]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010variable\376\001\000\000\013lambda-list\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[188]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\010variable\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[189]=C_h_intern(&lf[189],27,"\004coredefine-compiler-syntax"); lf[190]=C_h_intern(&lf[190],24,"\010compilercompiler-syntax"); lf[191]=C_h_intern(&lf[191],8,"\003syscons"); lf[192]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[193]=C_h_intern(&lf[193],24,"\004corelet-compiler-syntax"); lf[194]=C_h_intern(&lf[194],19,"let-compiler-syntax"); lf[195]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006symbol\376\000\000\000\003\376\001\000\000\001_\376\377\001\000\000\000\000\376\377\001\000\000\000\001"); lf[196]=C_h_intern(&lf[196],12,"dynamic-wind"); lf[197]=C_h_intern(&lf[197],12,"\004coreinclude"); lf[198]=C_h_intern(&lf[198],23,"\010compilerread-info-hook"); lf[199]=C_h_intern(&lf[199],26,"\003sysdefault-read-info-hook"); lf[200]=C_h_intern(&lf[200],27,"\003sysinclude-forms-from-file"); lf[201]=C_h_intern(&lf[201],16,"\003sysdynamic-wind"); lf[202]=C_h_intern(&lf[202],21,"\004corelet-module-alias"); lf[203]=C_h_intern(&lf[203],23,"\003syswith-module-aliases"); lf[204]=C_h_intern(&lf[204],7,"functor"); lf[205]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\006symbol\376\377\016"); lf[206]=C_h_intern(&lf[206],11,"\004coremodule"); lf[207]=C_h_intern(&lf[207],21,"\003sysmacro-environment"); lf[208]=C_h_intern(&lf[208],28,"\003sysmodule-alias-environment"); lf[209]=C_h_intern(&lf[209],29,"\003sysinitial-macro-environment"); lf[210]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016\376\377\016"); lf[211]=C_h_intern(&lf[211],7,"reverse"); lf[212]=C_h_intern(&lf[212],6,"delete"); lf[213]=C_decode_literal(C_heaptop,"\376B\000\000\037not generating import library `"); lf[214]=C_decode_literal(C_heaptop,"\376B\000\000\016\047 for module `"); lf[215]=C_decode_literal(C_heaptop,"\376B\000\000 \047 because imports did not change"); lf[216]=C_h_intern(&lf[216],12,"pretty-print"); lf[217]=C_decode_literal(C_heaptop,"\376B\000\000\017\012;; END OF FILE"); lf[218]=C_decode_literal(C_heaptop,"\376B\000\000\005;;;; "); lf[219]=C_decode_literal(C_heaptop,"\376B\000\000\030 - GENERATED BY CHICKEN "); lf[220]=C_decode_literal(C_heaptop,"\376B\000\000\020 -\052- Scheme -\052-\012"); lf[221]=C_h_intern(&lf[221],15,"chicken-version"); lf[222]=C_h_intern(&lf[222],19,"with-output-to-file"); lf[223]=C_decode_literal(C_heaptop,"\376B\000\000\033generating import library `"); lf[224]=C_decode_literal(C_heaptop,"\376B\000\000\016\047 for module `"); lf[225]=C_decode_literal(C_heaptop,"\376B\000\000\005\047 ..."); lf[226]=C_h_intern(&lf[226],9,"read-file"); lf[227]=C_h_intern(&lf[227],12,"file-exists\077"); lf[228]=C_h_intern(&lf[228],32,"\003syscompiled-module-registration"); lf[229]=C_h_intern(&lf[229],17,"\003sysstring-append"); lf[230]=C_decode_literal(C_heaptop,"\376B\000\000\013.import.scm"); lf[231]=C_h_intern(&lf[231],14,"symbol->string"); lf[232]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016\376\377\016"); lf[233]=C_h_intern(&lf[233],4,"exit"); lf[234]=C_h_intern(&lf[234],19,"print-error-message"); lf[235]=C_h_intern(&lf[235],18,"\003sysstandard-error"); lf[236]=C_h_intern(&lf[236],19,"\003sysfinalize-module"); lf[237]=C_h_intern(&lf[237],22,"with-exception-handler"); lf[238]=C_h_intern(&lf[238],30,"call-with-current-continuation"); lf[239]=C_h_intern(&lf[239],25,"\003syswith-property-restore"); lf[240]=C_h_intern(&lf[240],19,"\003sysregister-module"); lf[241]=C_h_intern(&lf[241],32,"\010compilercanonicalize-begin-body"); lf[242]=C_h_intern(&lf[242],28,"\003syscurrent-meta-environment"); lf[243]=C_h_intern(&lf[243],26,"\003sysmeta-macro-environment"); lf[244]=C_h_intern(&lf[244],21,"\003syssyntax-error-hook"); lf[245]=C_h_intern(&lf[245],6,"module"); lf[246]=C_decode_literal(C_heaptop,"\376B\000\000\031modules may not be nested"); lf[247]=C_decode_literal(C_heaptop,"\376B\000\000\025invalid export syntax"); lf[248]=C_h_intern(&lf[248],16,"\004coreloop-lambda"); lf[249]=C_h_intern(&lf[249],18,"\004coreinline_update"); lf[250]=C_h_intern(&lf[250],27,"\010compilerforeign-type-check"); lf[251]=C_h_intern(&lf[251],38,"\010compilerforeign-type-convert-argument"); lf[252]=C_h_intern(&lf[252],22,"\004coreinline_loc_update"); lf[253]=C_h_intern(&lf[253],4,"set!"); lf[254]=C_h_intern(&lf[254],16,"\003syswrite-char-0"); lf[255]=C_decode_literal(C_heaptop,"\376B\000\000\027assignment to keyword `"); lf[256]=C_h_intern(&lf[256],19,"\003sysundefine-macro!"); lf[257]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[258]=C_decode_literal(C_heaptop,"\376B\000\000\014\047 is syntax "); lf[259]=C_decode_literal(C_heaptop,"\376B\000\000\032assigned global variable `"); lf[260]=C_h_intern(&lf[260],19,"\003sysnotices-enabled"); lf[261]=C_h_intern(&lf[261],10,"\003sysnotice"); lf[262]=C_decode_literal(C_heaptop,"\376B\000\000$assignment to imported value binding"); lf[263]=C_h_intern(&lf[263],10,"\003sysmacro\077"); lf[264]=C_decode_literal(C_heaptop,"\376B\000\000\025C_DEBUG_GLOBAL_ASSIGN"); lf[265]=C_h_intern(&lf[265],34,"\010compileralways-bound-to-procedure"); lf[266]=C_decode_literal(C_heaptop,"\376B\000\000\025\047 possibly unintended"); lf[267]=C_decode_literal(C_heaptop,"\376B\000\000\030assignment to variable `"); lf[268]=C_h_intern(&lf[268],17,"\010compilerget-line"); lf[269]=C_h_intern(&lf[269],11,"\004coreinline"); lf[270]=C_h_intern(&lf[270],20,"\004coreinline_allocate"); lf[271]=C_h_intern(&lf[271],19,"\004corecompiletimetoo"); lf[272]=C_h_intern(&lf[272],23,"\004coreelaborationtimetoo"); lf[273]=C_h_intern(&lf[273],20,"\004corecompiletimeonly"); lf[274]=C_h_intern(&lf[274],24,"\004coreelaborationtimeonly"); lf[275]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[276]=C_h_intern(&lf[276],19,"\004coretoplevel-begin"); lf[277]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[278]=C_h_intern(&lf[278],19,"\004coreforeign-lambda"); lf[279]=C_h_intern(&lf[279],30,"\010compilerexpand-foreign-lambda"); lf[280]=C_h_intern(&lf[280],24,"\004coreforeign-safe-lambda"); lf[281]=C_h_intern(&lf[281],20,"\004coreforeign-lambda\052"); lf[282]=C_h_intern(&lf[282],31,"\010compilerexpand-foreign-lambda\052"); lf[283]=C_h_intern(&lf[283],25,"\004coreforeign-safe-lambda\052"); lf[284]=C_h_intern(&lf[284],22,"\004coreforeign-primitive"); lf[285]=C_h_intern(&lf[285],33,"\010compilerexpand-foreign-primitive"); lf[286]=C_h_intern(&lf[286],28,"\004coredefine-foreign-variable"); lf[287]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[288]=C_h_intern(&lf[288],24,"\004coredefine-foreign-type"); lf[289]=C_h_intern(&lf[289],6,"define"); lf[290]=C_h_intern(&lf[290],10,"\003sysvalues"); lf[291]=C_h_intern(&lf[291],19,"\003syshash-table-set!"); lf[292]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[293]=C_h_intern(&lf[293],29,"\004coredefine-external-variable"); lf[294]=C_h_intern(&lf[294],9,"c-pointer"); lf[295]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[296]=C_h_intern(&lf[296],13,"string-append"); lf[297]=C_decode_literal(C_heaptop,"\376B\000\000\001&"); lf[298]=C_h_intern(&lf[298],5,"fifth"); lf[299]=C_h_intern(&lf[299],17,"\004corelet-location"); lf[300]=C_decode_literal(C_heaptop,"\376B\000\000\020C_a_i_bytevector"); lf[301]=C_h_intern(&lf[301],14,"\010compilerwords"); lf[302]=C_h_intern(&lf[302],46,"\010compilerestimate-foreign-result-location-size"); lf[303]=C_h_intern(&lf[303],18,"\004coredefine-inline"); lf[304]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[305]=C_h_intern(&lf[305],6,"cdaddr"); lf[306]=C_h_intern(&lf[306],20,"\004coredefine-constant"); lf[307]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[308]=C_h_intern(&lf[308],17,"\010compilerconstant"); lf[309]=C_decode_literal(C_heaptop,"\376B\000\000\010constant"); lf[310]=C_h_intern(&lf[310],13,"\010compilerquit"); lf[311]=C_decode_literal(C_heaptop,"\376B\000\0002invalid compile-time value for named constant `~S\047"); lf[312]=C_h_intern(&lf[312],23,"\010compilerbasic-literal\077"); lf[313]=C_h_intern(&lf[313],29,"\010compilercollapsable-literal\077"); lf[314]=C_decode_literal(C_heaptop,"\376B\000\000:error in constant evaluation of ~S for named constant `~S\047"); lf[315]=C_h_intern(&lf[315],12,"\004coredeclare"); lf[316]=C_h_intern(&lf[316],28,"\010compilerprocess-declaration"); lf[317]=C_h_intern(&lf[317],29,"\004coreforeign-callback-wrapper"); lf[318]=C_h_intern(&lf[318],8,"split-at"); lf[319]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005const\376\003\000\000\002\376\001\000\000\020nonnull-c-string\376\377\016"); lf[320]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005const\376\003\000\000\002\376\001\000\000\031nonnull-unsigned-c-string\376\377\016"); lf[321]=C_h_intern(&lf[321],25,"nonnull-unsigned-c-string"); lf[322]=C_h_intern(&lf[322],16,"nonnull-c-string"); lf[323]=C_h_intern(&lf[323],17,"\003sysmake-c-string"); lf[324]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005const\376\003\000\000\002\376\001\000\000\011c-string\052\376\377\016"); lf[325]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005const\376\003\000\000\002\376\001\000\000\022unsigned-c-string\052\376\377\016"); lf[326]=C_h_intern(&lf[326],18,"unsigned-c-string\052"); lf[327]=C_h_intern(&lf[327],9,"c-string\052"); lf[328]=C_h_intern(&lf[328],13,"c-string-list"); lf[329]=C_h_intern(&lf[329],14,"c-string-list\052"); lf[330]=C_h_intern(&lf[330],12,"syntax-error"); lf[331]=C_decode_literal(C_heaptop,"\376B\000\000/not a valid result type for callback procedures"); lf[332]=C_h_intern(&lf[332],8,"c-string"); lf[333]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005const\376\003\000\000\002\376\001\000\000\021unsigned-c-string\376\377\016"); lf[334]=C_h_intern(&lf[334],17,"unsigned-c-string"); lf[335]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005const\376\003\000\000\002\376\001\000\000\010c-string\376\377\016"); lf[336]=C_h_intern(&lf[336],1,"r"); lf[337]=C_h_intern(&lf[337],3,"and"); lf[338]=C_decode_literal(C_heaptop,"\376B\000\000Anon-matching or invalid argument list to foreign callback-wrapper"); lf[339]=C_decode_literal(C_heaptop,"\376B\000\000c-identifier"); lf[364]=C_h_intern(&lf[364],18,"\010compilerstringify"); lf[365]=C_h_intern(&lf[365],6,"static"); lf[366]=C_h_intern(&lf[366],17,"register-feature!"); lf[367]=C_h_intern(&lf[367],4,"unit"); lf[368]=C_decode_literal(C_heaptop,"\376B\000\0003unit was already given a name (new name is ignored)"); lf[369]=C_h_intern(&lf[369],34,"\010compilerdefault-standard-bindings"); lf[370]=C_h_intern(&lf[370],34,"\010compilerdefault-extended-bindings"); lf[371]=C_h_intern(&lf[371],18,"usual-integrations"); lf[372]=C_h_intern(&lf[372],17,"lset-intersection"); lf[373]=C_h_intern(&lf[373],6,"fixnum"); lf[374]=C_h_intern(&lf[374],17,"fixnum-arithmetic"); lf[375]=C_h_intern(&lf[375],4,"safe"); lf[376]=C_h_intern(&lf[376],15,"no-bound-checks"); lf[377]=C_h_intern(&lf[377],14,"no-argc-checks"); lf[378]=C_h_intern(&lf[378],19,"no-procedure-checks"); lf[379]=C_h_intern(&lf[379],18,"interrupts-enabled"); lf[380]=C_h_intern(&lf[380],18,"disable-interrupts"); lf[381]=C_h_intern(&lf[381],12,"always-bound"); lf[382]=C_h_intern(&lf[382],12,"safe-globals"); lf[383]=C_h_intern(&lf[383],38,"no-procedure-checks-for-usual-bindings"); lf[384]=C_h_intern(&lf[384],41,"no-procedure-checks-for-toplevel-bindings"); lf[385]=C_h_intern(&lf[385],18,"bound-to-procedure"); lf[386]=C_h_intern(&lf[386],15,"foreign-declare"); lf[387]=C_h_intern(&lf[387],7,"declare"); lf[388]=C_decode_literal(C_heaptop,"\376B\000\000\023invalid declaration"); lf[389]=C_h_intern(&lf[389],5,"every"); lf[390]=C_h_intern(&lf[390],7,"string\077"); lf[391]=C_h_intern(&lf[391],5,"block"); lf[392]=C_h_intern(&lf[392],8,"separate"); lf[393]=C_h_intern(&lf[393],20,"keep-shadowed-macros"); lf[394]=C_h_intern(&lf[394],6,"unused"); lf[395]=C_h_intern(&lf[395],15,"\010compilerunused"); lf[396]=C_h_intern(&lf[396],22,"enforce-argument-types"); lf[397]=C_h_intern(&lf[397],16,"\010compilerenforce"); lf[398]=C_h_intern(&lf[398],3,"not"); lf[399]=C_h_intern(&lf[399],15,"lset-difference"); lf[400]=C_h_intern(&lf[400],6,"inline"); lf[401]=C_h_intern(&lf[401],2,"no"); lf[402]=C_h_intern(&lf[402],15,"\010compilerinline"); lf[403]=C_h_intern(&lf[403],13,"inline-global"); lf[404]=C_h_intern(&lf[404],22,"\010compilerinline-global"); lf[405]=C_decode_literal(C_heaptop,"\376B\000\000!unsupported declaration specifier"); lf[406]=C_h_intern(&lf[406],14,"compile-syntax"); lf[407]=C_h_intern(&lf[407],12,"block-global"); lf[408]=C_h_intern(&lf[408],4,"hide"); lf[409]=C_h_intern(&lf[409],6,"export"); lf[410]=C_h_intern(&lf[410],24,"\010compilerexport-variable"); lf[411]=C_h_intern(&lf[411],30,"emit-external-prototypes-first"); lf[412]=C_h_intern(&lf[412],14,"\010compilerlocal"); lf[413]=C_h_intern(&lf[413],12,"inline-limit"); lf[414]=C_decode_literal(C_heaptop,"\376B\000\000.invalid argument to `inline-limit\047 declaration"); lf[415]=C_h_intern(&lf[415],4,"pure"); lf[416]=C_h_intern(&lf[416],13,"\010compilerpure"); lf[417]=C_decode_literal(C_heaptop,"\376B\000\000+invalid arguments to `pure\047 declaration: ~S"); lf[418]=C_h_intern(&lf[418],7,"symbol\077"); lf[419]=C_h_intern(&lf[419],19,"emit-import-library"); lf[420]=C_decode_literal(C_heaptop,"\376B\000\000\013.import.scm"); lf[421]=C_decode_literal(C_heaptop,"\376B\000\000$invalid import-library specification"); lf[422]=C_h_intern(&lf[422],7,"profile"); lf[423]=C_h_intern(&lf[423],5,"local"); lf[424]=C_h_intern(&lf[424],3,"yes"); lf[425]=C_h_intern(&lf[425],4,"type"); lf[426]=C_h_intern(&lf[426],22,"\010compilervalidate-type"); lf[427]=C_h_intern(&lf[427],32,"\010compilerinstall-specializations"); lf[428]=C_h_intern(&lf[428],18,"\010compilerpredicate"); lf[429]=C_h_intern(&lf[429],20,"\010compilertype-source"); lf[430]=C_h_intern(&lf[430],13,"\010compilertype"); lf[431]=C_h_intern(&lf[431],9,"procedure"); lf[432]=C_decode_literal(C_heaptop,"\376B\000\000\032illegal `type\047 declaration"); lf[433]=C_decode_literal(C_heaptop,"\376B\000\000\030illegal type declaration"); lf[434]=C_h_intern(&lf[434],9,"predicate"); lf[435]=C_decode_literal(C_heaptop,"\376B\000\000\037illegal `predicate\047 declaration"); lf[436]=C_decode_literal(C_heaptop,"\376B\000\000\037illegal `type\047 declaration item"); lf[437]=C_h_intern(&lf[437],10,"specialize"); lf[438]=C_h_intern(&lf[438],12,"strict-types"); lf[439]=C_decode_literal(C_heaptop,"\376B\000\000\035unknown declaration specifier"); lf[440]=C_decode_literal(C_heaptop,"\376B\000\000!invalid declaration specification"); lf[441]=C_h_intern(&lf[441],17,"make-foreign-stub"); lf[442]=C_h_intern(&lf[442],12,"foreign-stub"); lf[443]=C_h_intern(&lf[443],13,"foreign-stub\077"); lf[444]=C_h_intern(&lf[444],15,"foreign-stub-id"); lf[445]=C_h_intern(&lf[445],24,"foreign-stub-return-type"); lf[446]=C_h_intern(&lf[446],17,"foreign-stub-name"); lf[447]=C_h_intern(&lf[447],27,"foreign-stub-argument-types"); lf[448]=C_h_intern(&lf[448],27,"foreign-stub-argument-names"); lf[449]=C_h_intern(&lf[449],17,"foreign-stub-body"); lf[450]=C_h_intern(&lf[450],16,"foreign-stub-cps"); lf[451]=C_h_intern(&lf[451],21,"foreign-stub-callback"); lf[452]=C_h_intern(&lf[452],28,"\010compilercreate-foreign-stub"); lf[453]=C_h_intern(&lf[453],6,"lambda"); lf[454]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\003sysgc\376\003\000\000\002\376\377\006\000\376\377\016\376\377\016"); lf[455]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[456]=C_decode_literal(C_heaptop,"\376B\000\000\020C_a_i_bytevector"); lf[457]=C_h_intern(&lf[457],14,"string->symbol"); lf[458]=C_h_intern(&lf[458],37,"\010compilerestimate-foreign-result-size"); lf[459]=C_h_intern(&lf[459],4,"stub"); lf[460]=C_h_intern(&lf[460],1,"a"); lf[461]=C_h_intern(&lf[461],4,"conc"); lf[462]=C_decode_literal(C_heaptop,"\376B\000\000\001\052"); lf[463]=C_h_intern(&lf[463],5,"const"); lf[464]=C_h_intern(&lf[464],6,"struct"); lf[465]=C_decode_literal(C_heaptop,"\376B\000\000-name `~s\047 of foreign procedure has wrong type"); lf[466]=C_h_intern(&lf[466],4,"void"); lf[467]=C_h_intern(&lf[467],24,"\003sysline-number-database"); lf[468]=C_h_intern(&lf[468],31,"\010compilerperform-cps-conversion"); lf[469]=C_h_intern(&lf[469],4,"node"); lf[470]=C_h_intern(&lf[470],9,"\004corecall"); lf[471]=C_h_intern(&lf[471],16,"\010compilervarnode"); lf[472]=C_h_intern(&lf[472],1,"k"); lf[473]=C_h_intern(&lf[473],13,"\004corevariable"); lf[474]=C_h_intern(&lf[474],2,"f_"); lf[475]=C_h_intern(&lf[475],1,"t"); lf[476]=C_h_intern(&lf[476],24,"\010compilercallback-lambda"); lf[477]=C_h_intern(&lf[477],26,"make-foreign-callback-stub"); lf[478]=C_h_intern(&lf[478],15,"\004corethe/result"); lf[479]=C_h_intern(&lf[479],4,"last"); lf[480]=C_h_intern(&lf[480],13,"\010compilerbomb"); lf[481]=C_decode_literal(C_heaptop,"\376B\000\000\016bad node (cps)"); lf[482]=C_h_intern(&lf[482],5,"cons\052"); lf[483]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005quote\376\003\000\000\002\376\001\000\000\015\004corevariable\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[484]=C_h_intern(&lf[484],6,"values"); lf[485]=C_h_intern(&lf[485],21,"foreign-callback-stub"); lf[486]=C_h_intern(&lf[486],22,"foreign-callback-stub\077"); lf[487]=C_h_intern(&lf[487],24,"foreign-callback-stub-id"); lf[488]=C_h_intern(&lf[488],26,"foreign-callback-stub-name"); lf[489]=C_h_intern(&lf[489],32,"foreign-callback-stub-qualifiers"); lf[490]=C_h_intern(&lf[490],33,"foreign-callback-stub-return-type"); lf[491]=C_h_intern(&lf[491],36,"foreign-callback-stub-argument-types"); lf[492]=C_h_intern(&lf[492],27,"\010compileranalyze-expression"); lf[493]=C_h_intern(&lf[493],13,"\010compilerput!"); lf[494]=C_h_intern(&lf[494],8,"captured"); lf[495]=C_h_intern(&lf[495],6,"global"); lf[496]=C_h_intern(&lf[496],12,"\010compilerget"); lf[497]=C_h_intern(&lf[497],12,"\004corerecurse"); lf[498]=C_h_intern(&lf[498],17,"\010compilercollect!"); lf[499]=C_h_intern(&lf[499],10,"call-sites"); lf[500]=C_h_intern(&lf[500],4,"home"); lf[501]=C_h_intern(&lf[501],7,"unknown"); lf[502]=C_h_intern(&lf[502],18,"\004coredirect_lambda"); lf[503]=C_h_intern(&lf[503],6,"simple"); lf[504]=C_h_intern(&lf[504],28,"\010compilersimple-lambda-node\077"); lf[505]=C_h_intern(&lf[505],14,"rest-parameter"); lf[506]=C_h_intern(&lf[506],4,"list"); lf[507]=C_h_intern(&lf[507],12,"contained-in"); lf[508]=C_h_intern(&lf[508],8,"contains"); lf[509]=C_h_intern(&lf[509],8,"assigned"); lf[510]=C_h_intern(&lf[510],16,"assigned-locally"); lf[511]=C_h_intern(&lf[511],15,"potential-value"); lf[512]=C_h_intern(&lf[512],8,"standard"); lf[513]=C_decode_literal(C_heaptop,"\376B\000\000 redefinition of standard binding"); lf[514]=C_h_intern(&lf[514],8,"extended"); lf[515]=C_decode_literal(C_heaptop,"\376B\000\000 redefinition of extended binding"); lf[516]=C_h_intern(&lf[516],18,"\010compilerintrinsic"); lf[517]=C_h_intern(&lf[517],9,"\004coreproc"); lf[518]=C_h_intern(&lf[518],9,"undefined"); lf[519]=C_h_intern(&lf[519],5,"value"); lf[520]=C_h_intern(&lf[520],16,"\010compilerget-all"); lf[521]=C_h_intern(&lf[521],11,"local-value"); lf[522]=C_h_intern(&lf[522],26,"\010compilervariable-visible\077"); lf[523]=C_h_intern(&lf[523],10,"references"); lf[524]=C_h_intern(&lf[524],10,"replacable"); lf[525]=C_h_intern(&lf[525],9,"replacing"); lf[526]=C_h_intern(&lf[526],9,"removable"); lf[527]=C_h_intern(&lf[527],17,"\004corealways-bound"); lf[528]=C_h_intern(&lf[528],37,"\010compilerexpression-has-side-effects\077"); lf[529]=C_h_intern(&lf[529],21,"has-unused-parameters"); lf[530]=C_h_intern(&lf[530],13,"explicit-rest"); lf[531]=C_h_intern(&lf[531],6,"rassoc"); lf[532]=C_h_intern(&lf[532],11,"collapsable"); lf[533]=C_h_intern(&lf[533],12,"contractable"); lf[534]=C_h_intern(&lf[534],9,"inlinable"); lf[535]=C_h_intern(&lf[535],28,"\010compilerscan-free-variables"); lf[536]=C_h_intern(&lf[536],11,"hidden-refs"); lf[537]=C_h_intern(&lf[537],18,"\010compilerdebugging"); lf[538]=C_h_intern(&lf[538],1,"i"); lf[539]=C_decode_literal(C_heaptop,"\376B\000\000>global inlining candidate was assigned and will not be inlined"); lf[540]=C_h_intern(&lf[540],5,"boxed"); lf[541]=C_decode_literal(C_heaptop,"\376B\000\000(\047 is only locally visible and never used"); lf[542]=C_decode_literal(C_heaptop,"\376B\000\000\021global variable `"); lf[543]=C_h_intern(&lf[543],25,"\010compilervariable-hidden\077"); lf[544]=C_h_intern(&lf[544],23,"\003syshash-table-for-each"); lf[545]=C_h_intern(&lf[545],1,"p"); lf[546]=C_decode_literal(C_heaptop,"\376B\000\000\033analysis gathering phase..."); lf[547]=C_decode_literal(C_heaptop,"\376B\000\000\033analysis traversal phase..."); lf[548]=C_h_intern(&lf[548],35,"\010compilerperform-closure-conversion"); lf[549]=C_h_intern(&lf[549],12,"customizable"); lf[550]=C_h_intern(&lf[550],11,"lset-adjoin"); lf[551]=C_decode_literal(C_heaptop,"\376B\000\000\033let-node has invalid format"); lf[552]=C_h_intern(&lf[552],11,"concatenate"); lf[553]=C_h_intern(&lf[553],20,"node-parameters-set!"); lf[554]=C_decode_literal(C_heaptop,"\376B\000\0008~a: procedure `~a\047 called with wrong number of arguments"); lf[555]=C_h_intern(&lf[555],26,"\010compilersource-info->line"); lf[556]=C_h_intern(&lf[556],21,"\010compilerllist-match\077"); lf[557]=C_h_intern(&lf[557],8,"toplevel"); lf[558]=C_h_intern(&lf[558],18,"captured-variables"); lf[559]=C_h_intern(&lf[559],12,"closure-size"); lf[560]=C_h_intern(&lf[560],17,"delete-duplicates"); lf[561]=C_h_intern(&lf[561],10,"\004coreunbox"); lf[562]=C_h_intern(&lf[562],8,"\004corebox"); lf[563]=C_h_intern(&lf[563],12,"\004coreclosure"); lf[564]=C_h_intern(&lf[564],14,"\010compilerqnode"); lf[565]=C_h_intern(&lf[565],20,"\003sysmake-lambda-info"); lf[566]=C_h_intern(&lf[566],1,"\077"); lf[567]=C_h_intern(&lf[567],8,"->string"); lf[568]=C_h_intern(&lf[568],18,"\010compilerreal-name"); lf[569]=C_h_intern(&lf[569],10,"fold-right"); lf[570]=C_h_intern(&lf[570],10,"boxed-rest"); lf[571]=C_h_intern(&lf[571],6,"filter"); lf[572]=C_h_intern(&lf[572],16,"\004coreupdatebox_i"); lf[573]=C_h_intern(&lf[573],14,"\004coreupdatebox"); lf[574]=C_h_intern(&lf[574],8,"\004coreref"); lf[575]=C_h_intern(&lf[575],13,"\004coreupdate_i"); lf[576]=C_h_intern(&lf[576],11,"\004coreupdate"); lf[577]=C_h_intern(&lf[577],19,"\010compilerimmediate\077"); lf[578]=C_decode_literal(C_heaptop,"\376B\000\000\023bad node (closure2)"); lf[579]=C_h_intern(&lf[579],11,"\004coreswitch"); lf[580]=C_h_intern(&lf[580],9,"\004corecond"); lf[581]=C_h_intern(&lf[581],16,"\004coredirect_call"); lf[582]=C_h_intern(&lf[582],11,"\004corereturn"); lf[583]=C_h_intern(&lf[583],1,"o"); lf[584]=C_decode_literal(C_heaptop,"\376B\000\000\026calls to known targets"); lf[585]=C_decode_literal(C_heaptop,"\376B\000\000\052closure conversion transformation phase..."); lf[586]=C_decode_literal(C_heaptop,"\376B\000\000\027customizable procedures"); lf[587]=C_decode_literal(C_heaptop,"\376B\000\000%closure conversion gathering phase..."); lf[588]=C_h_intern(&lf[588],19,"make-lambda-literal"); lf[589]=C_h_intern(&lf[589],14,"lambda-literal"); lf[590]=C_h_intern(&lf[590],15,"lambda-literal\077"); lf[591]=C_h_intern(&lf[591],17,"lambda-literal-id"); lf[592]=C_h_intern(&lf[592],23,"lambda-literal-external"); lf[593]=C_h_intern(&lf[593],24,"lambda-literal-arguments"); lf[594]=C_h_intern(&lf[594],29,"lambda-literal-argument-count"); lf[595]=C_h_intern(&lf[595],28,"lambda-literal-rest-argument"); lf[596]=C_h_intern(&lf[596],26,"lambda-literal-temporaries"); lf[597]=C_h_intern(&lf[597],34,"lambda-literal-unboxed-temporaries"); lf[598]=C_h_intern(&lf[598],32,"lambda-literal-callee-signatures"); lf[599]=C_h_intern(&lf[599],24,"lambda-literal-allocated"); lf[600]=C_h_intern(&lf[600],30,"lambda-literal-directly-called"); lf[601]=C_h_intern(&lf[601],27,"lambda-literal-closure-size"); lf[602]=C_h_intern(&lf[602],22,"lambda-literal-looping"); lf[603]=C_h_intern(&lf[603],27,"lambda-literal-customizable"); lf[604]=C_h_intern(&lf[604],33,"lambda-literal-rest-argument-mode"); lf[605]=C_h_intern(&lf[605],19,"lambda-literal-body"); lf[606]=C_h_intern(&lf[606],21,"lambda-literal-direct"); lf[607]=C_h_intern(&lf[607],36,"\010compilerprepare-for-code-generation"); lf[608]=C_h_intern(&lf[608],10,"\004corelocal"); lf[609]=C_h_intern(&lf[609],12,"\004coreliteral"); lf[610]=C_h_intern(&lf[610],11,"\004coreglobal"); lf[611]=C_h_intern(&lf[611],12,"C_DEBUG_CALL"); lf[612]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[613]=C_h_intern(&lf[613],28,"\010compilersource-info->string"); lf[614]=C_h_intern(&lf[614],1,"="); lf[615]=C_decode_literal(C_heaptop,"\376B\000\000!identified direct recursive calls"); lf[616]=C_decode_literal(C_heaptop,"\376B\000\000\021bad direct lambda"); lf[617]=C_h_intern(&lf[617],4,"none"); lf[618]=C_decode_literal(C_heaptop,"\376B\000\000\024unused rest argument"); lf[619]=C_h_intern(&lf[619],16,"\003sysfast-reverse"); lf[620]=C_h_intern(&lf[620],7,"butlast"); lf[621]=C_h_intern(&lf[621],9,"\004corebind"); lf[622]=C_h_intern(&lf[622],16,"\004corelet_unboxed"); lf[623]=C_h_intern(&lf[623],13,"\004coresetlocal"); lf[624]=C_h_intern(&lf[624],16,"\004coresetglobal_i"); lf[625]=C_h_intern(&lf[625],14,"\004coresetglobal"); lf[626]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[627]=C_decode_literal(C_heaptop,"\376B\000\000\014\047 to fixnum "); lf[628]=C_decode_literal(C_heaptop,"\376B\000\000 coerced inexact literal number `"); lf[629]=C_decode_literal(C_heaptop,"\376B\000\000,cannot coerce inexact literal `~S\047 to fixnum"); lf[630]=C_h_intern(&lf[630],20,"\010compilerbig-fixnum\077"); lf[631]=C_h_intern(&lf[631],3,"max"); lf[632]=C_h_intern(&lf[632],13,"\010compilerposv"); lf[633]=C_h_intern(&lf[633],36,"\010compilermake-block-variable-literal"); lf[634]=C_h_intern(&lf[634],36,"\010compilerblock-variable-literal-name"); lf[635]=C_h_intern(&lf[635],32,"\010compilerblock-variable-literal\077"); lf[636]=C_h_intern(&lf[636],10,"list-index"); lf[637]=C_h_intern(&lf[637],19,"\003sysundefined-value"); lf[638]=C_h_intern(&lf[638],14,"\004coreimmediate"); lf[639]=C_h_intern(&lf[639],3,"fix"); lf[640]=C_h_intern(&lf[640],4,"bool"); lf[641]=C_h_intern(&lf[641],4,"char"); lf[642]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003nil\376\377\016"); lf[643]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003eof\376\377\016"); lf[644]=C_decode_literal(C_heaptop,"\376B\000\000\027bad immediate (prepare)"); lf[645]=C_decode_literal(C_heaptop,"\376B\000\000\027fast global assignments"); lf[646]=C_decode_literal(C_heaptop,"\376B\000\000\026fast global references"); lf[647]=C_decode_literal(C_heaptop,"\376B\000\000\030fast box initializations"); lf[648]=C_decode_literal(C_heaptop,"\376B\000\000\024preparation phase..."); C_register_lf2(lf,649,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6335,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k11007 in a10998 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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(21,c,2)))){ C_save_and_reclaim((void *)f_11009,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|15,a[1]=(C_word)f_11021,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]=((C_word*)t0)[9],a[9]=t5,a[10]=((C_word*)t0)[3],a[11]=t2,a[12]=((C_word*)t0)[10],a[13]=t8,a[14]=((C_word*)t0)[11],a[15]=((C_word*)t0)[2],tmp=(C_word)a,a+=16,tmp); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11241,a[2]=((C_word*)t0)[12],a[3]=t2,a[4]=t11,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:1195: valid-c-identifier? */ t13=*((C_word*)lf[340]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t12; av2[2]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} /* k19888 in walk-var in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_19890,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19894,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2539: g4739 */ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( /* compiler.scm:2539: g4739 */ f_19894(C_a_i(&a,8),t2,t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19924,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); /* compiler.scm:2561: keyword? */ t3=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* g4739 in k19888 in walk-var in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static C_word C_fcall f_19894(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_fixnum_plus(t1,C_fix(1)); t3=C_fixnum_difference(((C_word*)t0)[2],t2); t4=C_a_i_list1(&a,1,t3); return(C_a_i_record4(&a,4,lf[469],lf[608],t4,C_SCHEME_END_OF_LIST));} /* k6333 */ static void C_ccall f_6335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6335,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6338,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k6336 in k6333 */ 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 *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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6341,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* ##compiler#prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_19880(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_19880,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_19884,a[2]=t3,a[3]=t11,a[4]=t9,a[5]=t7,a[6]=t5,a[7]=t1,a[8]=t2,tmp=(C_word)a,a+=9,tmp); t13=C_i_fixnum_max(*((C_word*)lf[48]+1),C_fix(1)); t14=C_fixnum_times(t13,C_fix(3)); /* compiler.scm:2545: make-vector */ t15=*((C_word*)lf[81]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 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_19884,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_19886,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_19945,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_20018,a[2]=t24,a[3]=t8,a[4]=t30,a[5]=t20,a[6]=t22,a[7]=t28,a[8]=t14,a[9]=t4,a[10]=t6,a[11]=t12,a[12]=t10,a[13]=t2,a[14]=((C_word*)t0)[2],a[15]=t36,a[16]=t32,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_21327,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_21378,a[2]=t38,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t34,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp)); t44=C_set_block_item(t34,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21428,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp)); t45=C_set_block_item(t36,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21439,a[2]=((C_word*)t0)[5],a[3]=t34,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp)); t46=C_set_block_item(t38,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21483,tmp=(C_word)a,a+=2,tmp)); t47=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21556,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=t22,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[6],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); /* compiler.scm:2871: debugging */ t48=*((C_word*)lf[537]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t48; av2[1]=t47; av2[2]=lf[545]; av2[3]=lf[648]; ((C_proc)(void*)(*((C_word*)t48+1)))(4,av2);}} /* walk-var in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_19886(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_19886,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(8); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19890,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); /* compiler.scm:2558: posq */ t7=*((C_word*)lf[167]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* lambda-literal-direct in k6339 in k6336 in k6333 */ static void C_ccall f_19871(C_word c,C_word *av){ C_word tmp; C_word 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_19871,3,av);} t3=C_i_check_structure_2(t2,lf[589],lf[606]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(16)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10200 in k10196 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10202(C_word c,C_word *av){ C_word tmp; 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_10202,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,4,lf[252],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k14207 in k14196 in k14175 in k14347 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ static void C_ccall f_14209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14209,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[453],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* lambda-literal-body in k6339 in k6336 in k6333 */ 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=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_19862,3,av);} t3=C_i_check_structure_2(t2,lf[589],lf[605]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(15)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k14236 in k14196 in k14175 in k14347 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_14238,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14241,a[2]=((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); /* compiler.scm:1658: words */ t4=*((C_word*)lf[301]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14229 in k14196 in k14175 in k14347 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ static void C_ccall f_14231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14231,2,av);} /* compiler.scm:1656: foreign-type-convert-result */ t2=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6339 in k6336 in k6333 */ 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 t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(96,c,18)))){ C_save_and_reclaim((void *)f_6341,2,av);} a=C_alloc(96); t2=C_mutate2((C_word*)lf[0]+1 /* (set! d ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6343,tmp=(C_word)a,a+=2,tmp)); t3=C_set_block_item(lf[3] /* ##compiler#unit-name */,0,C_SCHEME_FALSE); t4=C_mutate2((C_word*)lf[4]+1 /* (set! number-type ...) */,lf[5]); t5=C_set_block_item(lf[6] /* standard-bindings */,0,C_SCHEME_END_OF_LIST); t6=C_set_block_item(lf[7] /* extended-bindings */,0,C_SCHEME_END_OF_LIST); t7=C_set_block_item(lf[8] /* ##compiler#insert-timer-checks */,0,C_SCHEME_TRUE); t8=C_set_block_item(lf[9] /* ##compiler#used-units */,0,C_SCHEME_END_OF_LIST); t9=C_set_block_item(lf[10] /* unsafe */,0,C_SCHEME_FALSE); t10=C_set_block_item(lf[11] /* ##compiler#foreign-declarations */,0,C_SCHEME_END_OF_LIST); t11=C_set_block_item(lf[12] /* ##compiler#emit-trace-info */,0,C_SCHEME_FALSE); t12=C_set_block_item(lf[13] /* emit-debug-info */,0,C_SCHEME_FALSE); t13=C_set_block_item(lf[14] /* ##compiler#block-compilation */,0,C_SCHEME_FALSE); t14=C_set_block_item(lf[15] /* ##compiler#line-number-database-size */,0,C_fix(997)); t15=C_set_block_item(lf[16] /* ##compiler#target-heap-size */,0,C_SCHEME_FALSE); t16=C_set_block_item(lf[17] /* ##compiler#target-stack-size */,0,C_SCHEME_FALSE); t17=C_set_block_item(lf[18] /* optimize-leaf-routines */,0,C_SCHEME_FALSE); t18=C_set_block_item(lf[19] /* ##compiler#emit-profile */,0,C_SCHEME_FALSE); t19=C_set_block_item(lf[20] /* ##compiler#no-bound-checks */,0,C_SCHEME_FALSE); t20=C_set_block_item(lf[21] /* ##compiler#no-argc-checks */,0,C_SCHEME_FALSE); t21=C_set_block_item(lf[22] /* ##compiler#no-procedure-checks */,0,C_SCHEME_FALSE); t22=C_set_block_item(lf[23] /* ##compiler#no-global-procedure-checks */,0,C_SCHEME_FALSE); t23=C_set_block_item(lf[24] /* ##compiler#source-filename */,0,C_SCHEME_FALSE); t24=C_set_block_item(lf[25] /* ##compiler#safe-globals-flag */,0,C_SCHEME_FALSE); t25=C_set_block_item(lf[26] /* ##compiler#explicit-use-flag */,0,C_SCHEME_FALSE); t26=C_set_block_item(lf[27] /* ##compiler#disable-stack-overflow-checking */,0,C_SCHEME_FALSE); t27=C_set_block_item(lf[28] /* ##compiler#require-imports-flag */,0,C_SCHEME_FALSE); t28=C_set_block_item(lf[29] /* ##compiler#external-protos-first */,0,C_SCHEME_FALSE); t29=C_set_block_item(lf[30] /* ##compiler#inline-max-size */,0,C_fix(20)); t30=C_set_block_item(lf[31] /* ##compiler#emit-closure-info */,0,C_SCHEME_TRUE); t31=C_set_block_item(lf[32] /* ##compiler#undefine-shadowed-macros */,0,C_SCHEME_TRUE); t32=C_set_block_item(lf[33] /* ##compiler#profiled-procedures */,0,C_SCHEME_FALSE); t33=C_set_block_item(lf[34] /* ##compiler#import-libraries */,0,C_SCHEME_END_OF_LIST); t34=C_set_block_item(lf[35] /* ##compiler#all-import-libraries */,0,C_SCHEME_FALSE); t35=C_set_block_item(lf[36] /* ##compiler#enable-module-registration */,0,C_SCHEME_TRUE); t36=C_set_block_item(lf[37] /* ##compiler#standalone-executable */,0,C_SCHEME_TRUE); t37=C_set_block_item(lf[38] /* ##compiler#local-definitions */,0,C_SCHEME_FALSE); t38=C_set_block_item(lf[39] /* ##compiler#inline-locally */,0,C_SCHEME_FALSE); t39=C_set_block_item(lf[40] /* ##compiler#enable-inline-files */,0,C_SCHEME_FALSE); t40=C_set_block_item(lf[41] /* ##compiler#compiler-syntax-enabled */,0,C_SCHEME_TRUE); t41=C_set_block_item(lf[42] /* ##compiler#bootstrap-mode */,0,C_SCHEME_FALSE); t42=C_set_block_item(lf[43] /* ##compiler#strict-variable-types */,0,C_SCHEME_FALSE); t43=C_set_block_item(lf[44] /* ##compiler#enable-specialization */,0,C_SCHEME_FALSE); t44=C_set_block_item(lf[45] /* ##compiler#verbose-mode */,0,C_SCHEME_FALSE); t45=C_set_block_item(lf[46] /* ##compiler#original-program-size */,0,C_SCHEME_FALSE); t46=C_set_block_item(lf[47] /* ##compiler#current-program-size */,0,C_fix(0)); t47=C_set_block_item(lf[48] /* current-analysis-database-size */,0,C_fix(3001)); t48=C_set_block_item(lf[49] /* ##compiler#line-number-database-2 */,0,C_SCHEME_FALSE); t49=C_set_block_item(lf[50] /* ##compiler#immutable-constants */,0,C_SCHEME_END_OF_LIST); t50=C_set_block_item(lf[51] /* ##compiler#inline-table */,0,C_SCHEME_FALSE); t51=C_set_block_item(lf[52] /* ##compiler#inline-table-used */,0,C_SCHEME_FALSE); t52=C_set_block_item(lf[53] /* ##compiler#constant-table */,0,C_SCHEME_FALSE); t53=C_set_block_item(lf[54] /* ##compiler#constants-used */,0,C_SCHEME_FALSE); t54=C_set_block_item(lf[55] /* ##compiler#broken-constant-nodes */,0,C_SCHEME_END_OF_LIST); t55=C_set_block_item(lf[56] /* ##compiler#inline-substitutions-enabled */,0,C_SCHEME_FALSE); t56=C_set_block_item(lf[57] /* ##compiler#direct-call-ids */,0,C_SCHEME_END_OF_LIST); t57=C_set_block_item(lf[58] /* ##compiler#first-analysis */,0,C_SCHEME_TRUE); t58=C_set_block_item(lf[59] /* ##compiler#foreign-type-table */,0,C_SCHEME_FALSE); t59=C_set_block_item(lf[60] /* ##compiler#foreign-variables */,0,C_SCHEME_END_OF_LIST); t60=C_set_block_item(lf[61] /* ##compiler#foreign-lambda-stubs */,0,C_SCHEME_END_OF_LIST); t61=C_set_block_item(lf[62] /* foreign-callback-stubs */,0,C_SCHEME_END_OF_LIST); t62=C_set_block_item(lf[63] /* ##compiler#external-variables */,0,C_SCHEME_END_OF_LIST); t63=C_set_block_item(lf[64] /* ##compiler#profile-lambda-list */,0,C_SCHEME_END_OF_LIST); t64=C_set_block_item(lf[65] /* ##compiler#profile-lambda-index */,0,C_fix(0)); t65=C_set_block_item(lf[66] /* ##compiler#profile-info-vector-name */,0,C_SCHEME_FALSE); t66=C_set_block_item(lf[67] /* ##compiler#external-to-pointer */,0,C_SCHEME_END_OF_LIST); t67=C_set_block_item(lf[68] /* ##compiler#real-name-table */,0,C_SCHEME_FALSE); t68=C_set_block_item(lf[69] /* ##compiler#location-pointer-map */,0,C_SCHEME_END_OF_LIST); t69=C_set_block_item(lf[70] /* ##compiler#pending-canonicalizations */,0,C_SCHEME_END_OF_LIST); t70=C_set_block_item(lf[71] /* ##compiler#defconstant-bindings */,0,C_SCHEME_END_OF_LIST); t71=C_set_block_item(lf[72] /* ##compiler#callback-names */,0,C_SCHEME_END_OF_LIST); t72=C_set_block_item(lf[73] /* ##compiler#toplevel-scope */,0,C_SCHEME_TRUE); t73=C_set_block_item(lf[74] /* ##compiler#toplevel-lambda-id */,0,C_SCHEME_FALSE); t74=C_set_block_item(lf[75] /* ##compiler#csc-control-file */,0,C_SCHEME_FALSE); t75=C_set_block_item(lf[76] /* ##compiler#data-declarations */,0,C_SCHEME_END_OF_LIST); t76=C_set_block_item(lf[77] /* ##compiler#file-requirements */,0,C_SCHEME_FALSE); t77=C_set_block_item(lf[78] /* ##compiler#postponed-initforms */,0,C_SCHEME_END_OF_LIST); t78=C_mutate2((C_word*)lf[79]+1 /* (set! ##compiler#initialize-compiler ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6439,tmp=(C_word)a,a+=2,tmp)); t79=C_mutate2((C_word*)lf[84]+1 /* (set! ##compiler#canonicalize-expression ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6500,tmp=(C_word)a,a+=2,tmp)); t80=C_mutate2((C_word*)lf[316]+1 /* (set! ##compiler#process-declaration ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11751,tmp=(C_word)a,a+=2,tmp)); t81=C_mutate2((C_word*)lf[441]+1 /* (set! make-foreign-stub ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13978,tmp=(C_word)a,a+=2,tmp)); t82=C_mutate2((C_word*)lf[443]+1 /* (set! foreign-stub? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13984,tmp=(C_word)a,a+=2,tmp)); t83=C_mutate2((C_word*)lf[444]+1 /* (set! foreign-stub-id ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13990,tmp=(C_word)a,a+=2,tmp)); t84=C_mutate2((C_word*)lf[445]+1 /* (set! foreign-stub-return-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13999,tmp=(C_word)a,a+=2,tmp)); t85=C_mutate2((C_word*)lf[446]+1 /* (set! foreign-stub-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14008,tmp=(C_word)a,a+=2,tmp)); t86=C_mutate2((C_word*)lf[447]+1 /* (set! foreign-stub-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14017,tmp=(C_word)a,a+=2,tmp)); t87=C_mutate2((C_word*)lf[448]+1 /* (set! foreign-stub-argument-names ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14026,tmp=(C_word)a,a+=2,tmp)); t88=C_mutate2((C_word*)lf[449]+1 /* (set! foreign-stub-body ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14035,tmp=(C_word)a,a+=2,tmp)); t89=C_mutate2((C_word*)lf[450]+1 /* (set! foreign-stub-cps ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14044,tmp=(C_word)a,a+=2,tmp)); t90=C_mutate2((C_word*)lf[451]+1 /* (set! foreign-stub-callback ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14053,tmp=(C_word)a,a+=2,tmp)); t91=C_mutate2((C_word*)lf[452]+1 /* (set! ##compiler#create-foreign-stub ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14062,tmp=(C_word)a,a+=2,tmp)); t92=C_mutate2((C_word*)lf[279]+1 /* (set! ##compiler#expand-foreign-lambda ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14453,tmp=(C_word)a,a+=2,tmp)); t93=C_mutate2((C_word*)lf[282]+1 /* (set! ##compiler#expand-foreign-lambda* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14490,tmp=(C_word)a,a+=2,tmp)); t94=C_mutate2((C_word*)lf[285]+1 /* (set! ##compiler#expand-foreign-primitive ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14603,tmp=(C_word)a,a+=2,tmp)); t95=C_mutate2((C_word*)lf[346]+1 /* (set! ##compiler#update-line-number-database! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14754,tmp=(C_word)a,a+=2,tmp)); t96=C_mutate2((C_word*)lf[468]+1 /* (set! ##compiler#perform-cps-conversion ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14832,tmp=(C_word)a,a+=2,tmp)); t97=C_mutate2((C_word*)lf[477]+1 /* (set! make-foreign-callback-stub ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15862,tmp=(C_word)a,a+=2,tmp)); t98=C_mutate2((C_word*)lf[486]+1 /* (set! foreign-callback-stub? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15868,tmp=(C_word)a,a+=2,tmp)); t99=C_mutate2((C_word*)lf[487]+1 /* (set! foreign-callback-stub-id ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15874,tmp=(C_word)a,a+=2,tmp)); t100=C_mutate2((C_word*)lf[488]+1 /* (set! foreign-callback-stub-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15883,tmp=(C_word)a,a+=2,tmp)); t101=C_mutate2((C_word*)lf[489]+1 /* (set! foreign-callback-stub-qualifiers ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15892,tmp=(C_word)a,a+=2,tmp)); t102=C_mutate2((C_word*)lf[490]+1 /* (set! foreign-callback-stub-return-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15901,tmp=(C_word)a,a+=2,tmp)); t103=C_mutate2((C_word*)lf[491]+1 /* (set! foreign-callback-stub-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15910,tmp=(C_word)a,a+=2,tmp)); t104=C_mutate2((C_word*)lf[492]+1 /* (set! ##compiler#analyze-expression ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15919,tmp=(C_word)a,a+=2,tmp)); t105=C_mutate2((C_word*)lf[548]+1 /* (set! ##compiler#perform-closure-conversion ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17918,tmp=(C_word)a,a+=2,tmp)); t106=C_mutate2((C_word*)lf[588]+1 /* (set! make-lambda-literal ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19724,tmp=(C_word)a,a+=2,tmp)); t107=C_mutate2((C_word*)lf[590]+1 /* (set! lambda-literal? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19730,tmp=(C_word)a,a+=2,tmp)); t108=C_mutate2((C_word*)lf[591]+1 /* (set! lambda-literal-id ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19736,tmp=(C_word)a,a+=2,tmp)); t109=C_mutate2((C_word*)lf[592]+1 /* (set! lambda-literal-external ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19745,tmp=(C_word)a,a+=2,tmp)); t110=C_mutate2((C_word*)lf[593]+1 /* (set! lambda-literal-arguments ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19754,tmp=(C_word)a,a+=2,tmp)); t111=C_mutate2((C_word*)lf[594]+1 /* (set! lambda-literal-argument-count ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19763,tmp=(C_word)a,a+=2,tmp)); t112=C_mutate2((C_word*)lf[595]+1 /* (set! lambda-literal-rest-argument ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19772,tmp=(C_word)a,a+=2,tmp)); t113=C_mutate2((C_word*)lf[596]+1 /* (set! lambda-literal-temporaries ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19781,tmp=(C_word)a,a+=2,tmp)); t114=C_mutate2((C_word*)lf[597]+1 /* (set! lambda-literal-unboxed-temporaries ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19790,tmp=(C_word)a,a+=2,tmp)); t115=C_mutate2((C_word*)lf[598]+1 /* (set! lambda-literal-callee-signatures ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19799,tmp=(C_word)a,a+=2,tmp)); t116=C_mutate2((C_word*)lf[599]+1 /* (set! lambda-literal-allocated ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19808,tmp=(C_word)a,a+=2,tmp)); t117=C_mutate2((C_word*)lf[600]+1 /* (set! lambda-literal-directly-called ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19817,tmp=(C_word)a,a+=2,tmp)); t118=C_mutate2((C_word*)lf[601]+1 /* (set! lambda-literal-closure-size ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19826,tmp=(C_word)a,a+=2,tmp)); t119=C_mutate2((C_word*)lf[602]+1 /* (set! lambda-literal-looping ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19835,tmp=(C_word)a,a+=2,tmp)); t120=C_mutate2((C_word*)lf[603]+1 /* (set! lambda-literal-customizable ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19844,tmp=(C_word)a,a+=2,tmp)); t121=C_mutate2((C_word*)lf[604]+1 /* (set! lambda-literal-rest-argument-mode ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19853,tmp=(C_word)a,a+=2,tmp)); t122=C_mutate2((C_word*)lf[605]+1 /* (set! lambda-literal-body ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19862,tmp=(C_word)a,a+=2,tmp)); t123=C_mutate2((C_word*)lf[606]+1 /* (set! lambda-literal-direct ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19871,tmp=(C_word)a,a+=2,tmp)); t124=C_mutate2((C_word*)lf[607]+1 /* (set! ##compiler#prepare-for-code-generation ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19880,tmp=(C_word)a,a+=2,tmp)); t125=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t125; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t125+1)))(2,av2);}} /* d in k6339 in k6336 in k6333 */ 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=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_6343,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_fudge(C_fix(13)))){ if(C_truep(C_i_nullp(t3))){ /* compiler.scm:277: pp */ t4=*((C_word*)lf[1]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[2]+1); av2[3]=t2; av2[4]=t3; C_apply(5,av2);}}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* map-loop376 in k7186 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_7224(C_word t0,C_word t1,C_word 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_7224,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_7249,a[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)); /* compiler.scm:554: g382 */ t5=((C_word*)t0)[4]; f_7193(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);}}} /* k7220 in k7186 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_7222,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[122],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* unquotify in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_6632(C_word t0,C_word t1,C_word 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(4,0,3)))){ C_save_and_reclaim_args((void *)trf_6632,4,t0,t1,t2,t3);} a=C_alloc(4); 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)){ t7=C_i_car(t2); if(C_truep(C_i_symbolp(t7))){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6664,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t9=t2; t10=C_u_i_car(t9); /* compiler.scm:436: lookup */ t11=((C_word*)((C_word*)t0)[2])[1]; f_6538(t11,t8,t10,t3);} else{ t8=t2; t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} 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{ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k14239 in k14236 in k14196 in k14175 in k14347 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ 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 t5; C_word 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(50,c,3)))){ C_save_and_reclaim((void *)f_14241,2,av);} a=C_alloc(50); t2=C_a_i_plus(&a,2,C_fix(2),t1); t3=C_a_i_list(&a,2,lf[456],t2); t4=C_a_i_list(&a,2,lf[91],t1); t5=C_a_i_list(&a,3,lf[270],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_14252,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_14256,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_14260,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]); /* compiler.scm:1661: append */ t13=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a19176 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19177,3,av);} /* compiler.scm:2397: test */ t3=((C_word*)((C_word*)t0)[2])[1]; f_17921(t3,t1,t2,lf[540]);} /* k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 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_16954,2,av);} a=C_alloc(21); t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_16957,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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)[4]; t5=C_i_cdr(t4); t6=C_a_i_cons(&a,2,C_a_i_cons(&a,2,lf[540],C_SCHEME_TRUE),t5); t7=t2; f_16957(t7,C_i_set_cdr(t4,t6));} else{ t4=t2; f_16957(t4,C_SCHEME_UNDEFINED);}} else{ t3=t2; f_16957(t3,C_SCHEME_UNDEFINED);}} /* k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_16951,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_16954,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_17761,a[2]=t2,a[3]=((C_word*)t0)[13],tmp=(C_word)a,a+=4,tmp); if(C_truep(*((C_word*)lf[58]+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_17839,a[2]=t3,a[3]=((C_word*)t0)[13],tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[13]; /* tweaks.scm:57: ##sys#get */ t6=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=lf[395]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t4=t3; f_17761(t4,C_SCHEME_FALSE);}} else{ t4=t3; f_17761(t4,C_SCHEME_FALSE);}} else{ t4=t3; f_17761(t4,C_SCHEME_FALSE);}} /* g1069 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_9462(C_word t0,C_word t1,C_word 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_9462,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_9475,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_9486,tmp=(C_word)a,a+=2,tmp); t5=t3; f_9475(t5,( f_9486(t2) ));} else{ t4=t3; f_9475(t4,C_SCHEME_FALSE);}}} /* k19166 in map-loop4318 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_19168,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_19143(t6,((C_word*)t0)[5],t5);} /* k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16963(C_word t0,C_word t1){ C_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(19,0,5)))){ C_save_and_reclaim_args((void *)trf_16963,2,t0,t1);} a=C_alloc(19); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_16966,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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)[2])[1])){ 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=C_slot(t5,C_fix(1)); t7=C_eqp(lf[161],t6); t8=(C_truep(t7)?C_i_nequalp(((C_word*)((C_word*)t0)[11])[1],((C_word*)((C_word*)t0)[12])[1]):C_SCHEME_FALSE); if(C_truep(t8)){ t9=((C_word*)((C_word*)t0)[2])[1]; t10=C_slot(t9,C_fix(2)); t11=t10; if(C_truep(C_i_cadr(t11))){ t12=C_i_caddr(t11); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17385,a[2]=t11,a[3]=((C_word*)t0)[5],a[4]=t4,a[5]=((C_word*)t0)[13],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:2159: decompose-lambda-list */ t14=*((C_word*)lf[170]+1);{ C_word av2[4]; av2[0]=t14; av2[1]=t2; av2[2]=t12; av2[3]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} else{ t12=t2;{ C_word av2[2]; av2[0]=t12; av2[1]=C_SCHEME_UNDEFINED; f_16966(2,av2);}}} else{ t9=C_SCHEME_UNDEFINED; t10=t2;{ C_word av2[2]; av2[0]=t10; av2[1]=t9; f_16966(2,av2);}}} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_16966(2,av2);}}} /* k9843 in k9833 in k9830 in k9827 in k9821 in k9808 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in ... */ static void C_ccall f_9845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9845,2,av);} /* compiler.scm:990: ##sys#print */ t2=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16964 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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,4)))){ C_save_and_reclaim((void *)f_16966,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16969,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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)[8])[1]; if(C_truep(t3)){ t4=t2; f_16969(t4,C_SCHEME_UNDEFINED);} else{ if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[9])[1]))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17290,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t5=((C_word*)((C_word*)t0)[2])[1]; t6=C_slot(t5,C_fix(1)); t7=C_eqp(lf[473],t6); if(C_truep(t7)){ t8=((C_word*)((C_word*)t0)[2])[1]; t9=C_slot(t8,C_fix(2)); t10=C_i_car(t9); t11=t10; t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17331,a[2]=t4,a[3]=t11,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2184: get */ t13=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t13; av2[1]=t12; av2[2]=((C_word*)t0)[5]; av2[3]=t11; av2[4]=lf[495]; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17347,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2187: expression-has-side-effects? */ t9=*((C_word*)lf[528]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_17290(2,av2);}}} else{ t4=t2; f_16969(t4,C_SCHEME_UNDEFINED);}}} /* k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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; 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_16960,2,av);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_16963,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_17492,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[11],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t4=((C_word*)((C_word*)t0)[2])[1]; t5=C_slot(t4,C_fix(1)); t6=t3; f_17492(t6,C_eqp(lf[91],t5));} else{ t4=t3; f_17492(t4,C_SCHEME_FALSE);}} /* k9839 in k9836 in k9833 in k9830 in k9827 in k9821 in k9808 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in ... */ static void C_ccall f_9841(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9841,2,av);} /* compiler.scm:989: warning */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14219 in k14196 in k14175 in k14347 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ static void C_ccall f_14221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14221,2,av);} a=C_alloc(3); t2=C_a_i_list(&a,1,t1); /* compiler.scm:1647: ##sys#append */ t3=*((C_word*)lf[156]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16957(C_word t0,C_word t1){ C_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(32,0,4)))){ C_save_and_reclaim_args((void *)trf_16957,2,t0,t1);} a=C_alloc(32); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_16960,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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)[2])[1])){ t3=((C_word*)((C_word*)t0)[2])[1]; t4=C_slot(t3,C_fix(2)); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17545,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t6=((C_word*)((C_word*)t0)[2])[1]; t7=C_slot(t6,C_fix(1)); t8=C_eqp(lf[161],t7); if(C_truep(t8)){ t9=C_i_cadr(t4); t10=C_i_not(t9); if(C_truep(t10)){ t11=t5;{ C_word av2[2]; av2[0]=t11; av2[1]=t10; f_17545(2,av2);}} else{ t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17577,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17585,a[2]=t5,a[3]=t11,tmp=(C_word)a,a+=4,tmp); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17587,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t14=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17593,tmp=(C_word)a,a+=2,tmp); /* compiler.scm:2106: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t12; av2[2]=t13; av2[3]=t14; C_call_with_values(4,av2);}}} else{ t9=t5;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_FALSE; f_17545(2,av2);}}} else{ if(C_truep(((C_word*)((C_word*)t0)[14])[1])){ t3=((C_word*)((C_word*)t0)[14])[1]; t4=C_slot(t3,C_fix(2)); t5=t4; t6=((C_word*)((C_word*)t0)[14])[1]; t7=C_slot(t6,C_fix(1)); t8=C_eqp(lf[161],t7); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17632,a[2]=((C_word*)t0)[14],tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17638,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[13],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:2114: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t2; av2[2]=t9; av2[3]=t10; C_call_with_values(4,av2);}} else{ t9=t2;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_16960(2,av2);}}} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17696,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[13]; /* tweaks.scm:57: ##sys#get */ t5=*((C_word*)lf[85]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=lf[404]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* k9846 in k9833 in k9830 in k9827 in k9821 in k9808 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in ... */ static void C_ccall f_9848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9848,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[101]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9854,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.scm:992: ##sys#write-char-0 */ t6=*((C_word*)lf[254]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9473 in g1069 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_9475(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_9475,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{ /* compiler.scm:855: ##sys#syntax-error-hook */ t2=*((C_word*)lf[244]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[245]; av2[3]=lf[247]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k6662 in unquotify in canonicalize-expression in k6339 in k6336 in k6333 */ 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,1)))){ C_save_and_reclaim((void *)f_6664,2,av);} t2=C_eqp(lf[91],t1); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9852 in k9846 in k9833 in k9830 in k9827 in k9821 in k9808 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression 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; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_9854,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9857,a[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.scm:992: ##sys#print */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14254 in k14239 in k14236 in k14196 in k14175 in k14347 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ static void C_ccall f_14256(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14256,2,av);} /* compiler.scm:1660: foreign-type-convert-result */ t2=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14250 in k14239 in k14236 in k14196 in k14175 in k14347 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ static void C_ccall f_14252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14252,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,3,lf[150],((C_word*)t0)[2],t1); t3=C_a_i_list(&a,1,t2); /* compiler.scm:1647: ##sys#append */ t4=*((C_word*)lf[156]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9855 in k9852 in k9846 in k9833 in k9830 in k9827 in k9821 in k9808 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in ... */ static void C_ccall f_9857(C_word c,C_word *av){ C_word tmp; C_word t0=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_9857,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9860,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:992: ##sys#write-char-0 */ t3=*((C_word*)lf[254]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* resolve-variable in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_6675(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,3)))){ C_save_and_reclaim_args((void *)trf_6675,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(10); t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6679,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,a[7]=t7,a[8]=t1,a[9]=t2,tmp=(C_word)a,a+=10,tmp); /* compiler.scm:441: lookup */ t9=((C_word*)((C_word*)t0)[3])[1]; f_6538(t9,t8,t2,t4);} /* k6677 in resolve-variable in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_6679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6679,2,av);} a=C_alloc(10); t2=t1; if(C_truep(C_i_symbolp(t2))){ t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6691,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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); if(C_truep(*((C_word*)lf[54]+1))){ /* compiler.scm:444: ##sys#hash-table-ref */ t4=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[53]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_6691(2,av2);}}} else{ t3=((C_word*)t0)[9]; t4=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* map-loop2911 in k14175 in k14347 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ static void C_fcall f_14286(C_word t0,C_word t1,C_word 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_14286,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_14315,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_14189,a[2]=t9,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1651: foreign-type-convert-argument */ t12=*((C_word*)lf[251]+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);}}} /* k9833 in k9830 in k9827 in k9821 in k9808 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in ... */ static void C_ccall f_9835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9835,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9838,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_9845,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[5])){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9848,a[2]=t3,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:992: open-output-string */ t5=*((C_word*)lf[107]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* compiler.scm:990: ##sys#print */ t4=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[257]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k9830 in k9827 in k9821 in k9808 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 in ... */ static void C_ccall f_9832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9832,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9835,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:990: ##sys#print */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[258]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9836 in k9833 in k9830 in k9827 in k9821 in k9808 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9838,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9841,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:990: get-output-string */ t3=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6689 in k6677 in resolve-variable in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_6691(C_word c,C_word *av){ C_word tmp; C_word t0=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_6691,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6695,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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.scm:443: g219 */ t3=t2; f_6695(t3,((C_word*)t0)[8],t1);} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6709,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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*)lf[52]+1))){ /* compiler.scm:446: ##sys#hash-table-ref */ t3=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[51]+1); av2[3]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_6709(2,av2);}}}} /* g219 in k6689 in k6677 in resolve-variable in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_6695(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_6695,3,t0,t1,t2);} t3=C_i_car(t2); /* compiler.scm:445: walk */ t4=((C_word*)((C_word*)t0)[2])[1]; f_6925(t4,t1,t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* k14258 in k14239 in k14236 in k14196 in k14175 in k14347 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ static void C_ccall f_14260(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14260,2,av);} /* compiler.scm:1661: finish-foreign-result */ t2=*((C_word*)lf[94]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* lambda-literal-looping in k6339 in k6336 in k6333 */ static void C_ccall f_19835(C_word c,C_word *av){ C_word tmp; C_word 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_19835,3,av);} t3=C_i_check_structure_2(t2,lf[589],lf[602]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(12)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop4318 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_19143(C_word t0,C_word t1,C_word 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_19143,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_19168,a[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)); /* compiler.scm:2398: g4324 */ 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);}}} /* gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_17948(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; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_17948,5,t0,t1,t2,t3,t4);} a=C_alloc(15); t5=t2; t6=C_slot(t5,C_fix(3)); t7=t6; t8=t2; t9=C_slot(t8,C_fix(2)); t10=t9; t11=t2; t12=C_slot(t11,C_fix(1)); t13=t12; t14=C_eqp(t13,lf[473]); if(C_truep(t14)){ t15=C_i_car(t10); t16=C_i_memq(t15,((C_word*)((C_word*)t0)[2])[1]); t17=t1;{ C_word av2[2]; av2[0]=t17; av2[1]=(C_truep(t16)?C_a_i_list1(&a,1,t15):C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}} else{ t15=C_eqp(t13,lf[91]); t16=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_18000,a[2]=t1,a[3]=t13,a[4]=t10,a[5]=t7,a[6]=t4,a[7]=((C_word*)t0)[3],a[8]=t3,a[9]=((C_word*)t0)[2],a[10]=t2,a[11]=((C_word*)t0)[4],a[12]=((C_word*)t0)[5],a[13]=((C_word*)t0)[6],a[14]=((C_word*)t0)[7],tmp=(C_word)a,a+=15,tmp); if(C_truep(t15)){ t17=t16; f_18000(t17,t15);} else{ t17=C_eqp(t13,lf[129]); if(C_truep(t17)){ t18=t16; f_18000(t18,t17);} else{ t18=C_eqp(t13,lf[517]); t19=t16; f_18000(t19,(C_truep(t18)?t18:C_eqp(t13,lf[98])));}}}} /* k17944 in register-direct-call! in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_17946(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_17946,2,av);} t2=C_mutate2((C_word*)lf[57]+1 /* (set! ##compiler#direct-call-ids ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k17499 in k17490 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_17501,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,C_a_i_cons(&a,2,lf[532],C_SCHEME_TRUE),t4); t6=((C_word*)t0)[3]; f_16963(t6,C_i_set_cdr(t3,t5));} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3]; f_16963(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,C_a_i_cons(&a,2,lf[532],C_SCHEME_TRUE),t3); t5=((C_word*)t0)[3]; f_16963(t5,C_i_set_cdr(t2,t4));} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3]; f_16963(t3,t2);}}} /* lambda-literal-closure-size in k6339 in k6336 in k6333 */ 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=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_19826,3,av);} t3=C_i_check_structure_2(t2,lf[589],lf[601]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(11)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7203 in k7199 in g382 in k7186 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_7205,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k17930 in register-customizable! in perform-closure-conversion in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_17932,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); /* compiler.scm:2259: put! */ t3=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[549]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* register-direct-call! in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_17937(C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_17937,3,t0,t1,t2);} a=C_alloc(7); t3=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(1)); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t3); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17946,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2263: lset-adjoin */ t6=*((C_word*)lf[550]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=*((C_word*)lf[135]+1); av2[3]=*((C_word*)lf[57]+1); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k7199 in g382 in k7186 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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_7201,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7205,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_cadr(((C_word*)t0)[3]); /* compiler.scm:556: walk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_6925(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]);} /* k15757 in k15743 in loop in walk-arguments in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15759(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_15759,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_15766,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],tmp=(C_word)a,a+=7,tmp); /* compiler.scm:1828: walk */ t6=((C_word*)((C_word*)t0)[6])[1]; f_14930(t6,((C_word*)t0)[7],t4,t5);} /* register-customizable! in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_17927(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_17927,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17932,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); /* compiler.scm:2258: lset-adjoin */ t5=*((C_word*)lf[550]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[135]+1); av2[3]=((C_word*)((C_word*)t0)[2])[1]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* test in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_17921(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_17921,4,t0,t1,t2,t3);} /* compiler.scm:2255: get */ t4=*((C_word*)lf[496]+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);}} /* a15765 in k15757 in k15743 in loop in walk-arguments in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(14,c,2)))){ C_save_and_reclaim((void *)f_15766,3,av);} a=C_alloc(14); t3=( /* compiler.scm:1830: node-for-var? */ f_14896(t2,((C_word*)t0)[3]) ); if(C_truep(t3)){ t4=C_i_cdr(((C_word*)t0)[4]); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15788,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* compiler.scm:1831: varnode */ t7=*((C_word*)lf[471]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t4=C_a_i_list1(&a,1,((C_word*)t0)[3]); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15808,a[2]=t2,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_i_cdr(((C_word*)t0)[4]); t8=t7; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15820,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t6,a[5]=t8,tmp=(C_word)a,a+=6,tmp); /* compiler.scm:1835: varnode */ t10=*((C_word*)lf[471]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}} /* ##compiler#perform-closure-conversion in k6339 in k6336 in k6333 */ 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=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_17918,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_17921,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_17927,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_17937,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_17948,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_18493,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_19593,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_19644,tmp=(C_word)a,a+=2,tmp)); t31=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19695,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); /* compiler.scm:2504: debugging */ t32=*((C_word*)lf[537]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t32; av2[1]=t31; av2[2]=lf[545]; av2[3]=lf[587]; ((C_proc)(void*)(*((C_word*)t32+1)))(4,av2);}} /* k17543 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_17545,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,C_a_i_cons(&a,2,lf[533],C_SCHEME_TRUE),t5); t7=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_i_set_cdr(t4,t6); f_16960(2,av2);}} else{ t4=((C_word*)t0)[4]; t5=C_i_cdr(t4); t6=C_a_i_cons(&a,2,C_a_i_cons(&a,2,lf[534],C_SCHEME_TRUE),t5); t7=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_i_set_cdr(t4,t6); f_16960(2,av2);}}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_16960(2,av2);}}} /* map-loop875 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_8470(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_8470,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_8495,a[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_8393,a[2]=t5,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8397,a[2]=t9,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t11=C_i_cadr(t6); /* compiler.scm:723: ##sys#eval/meta */ t12=*((C_word*)lf[176]+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);}}} /* k8439 in k8417 in k8414 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_8441,2,av);} /* compiler.scm:731: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6925(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]);} /* k18284 in k18303 in k18307 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18286,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; f_18165(2,av2);}} else{ /* compiler.scm:2314: test */ t2=((C_word*)((C_word*)t0)[3])[1]; f_17921(t2,((C_word*)t0)[2],((C_word*)t0)[4],lf[521]);}} /* k9884 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9886(C_word c,C_word *av){ C_word tmp; C_word t0=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_9886,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9889,a[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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; f_9889(2,av2);}} else{ /* compiler.scm:979: ##sys#alias-global-hook */ t3=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k9887 in k9884 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_9889,2,av);} a=C_alloc(9); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9892,a[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[25]+1))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9932,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)((C_word*)t0)[2])[1]; t6=C_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t6))){ /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t4; av2[2]=t5; av2[3]=lf[265]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=C_i_car(t6); /* tweaks.scm:54: ##sys#put! */ t8=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t4; av2[2]=t5; av2[3]=lf[265]; av2[4]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_9892(2,av2);}}} /* k18215 in k18208 in k18190 in k18187 in k18184 in k18169 in k18163 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_18217,2,av);} if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=C_i_cadr(((C_word*)t0)[2]); /* compiler.scm:2328: quit */ t3=*((C_word*)lf[310]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[554]; av2[3]=t1; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ /* compiler.scm:2328: quit */ t2=*((C_word*)lf[310]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[554]; av2[3]=t1; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k18208 in k18190 in k18187 in k18184 in k18169 in k18163 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_18210(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_18210,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18217,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2330: source-info->line */ t3=*((C_word*)lf[555]+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_18195(2,av2);}}} /* k9890 in k9887 in k9884 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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_unlikely(!C_demand(C_calculate_demand(36,c,1)))){ C_save_and_reclaim((void *)f_9892,2,av);} a=C_alloc(36); if(C_truep(*((C_word*)lf[13]+1))){ 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,1,t2); t4=C_a_i_list(&a,2,lf[91],((C_word*)((C_word*)t0)[2])[1]); t5=C_a_i_list(&a,3,lf[168],lf[264],t4); t6=C_a_i_list(&a,4,lf[150],t3,t5,((C_word*)((C_word*)t0)[2])[1]); t7=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t6); t8=((C_word*)t0)[4]; f_9765(t8,t7);} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[4]; f_9765(t3,t2);}} /* a17586 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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,2)))){ C_save_and_reclaim((void *)f_17587,2,av);} /* compiler.scm:2106: scan-free-variables */ t2=*((C_word*)lf[535]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k15737 in loop in walk-arguments in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15739,2,av);} /* compiler.scm:1823: wk */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17583 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17585(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17585,2,av);} /* compiler.scm:2104: every */ t2=*((C_word*)lf[389]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9858 in k9855 in k9852 in k9846 in k9833 in k9830 in k9827 in k9821 in k9808 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in ... */ static void C_ccall f_9860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9860,2,av);} /* compiler.scm:992: get-output-string */ t2=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15743 in loop in walk-arguments in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_15745,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]); /* compiler.scm:1825: loop */ t7=((C_word*)((C_word*)t0)[4])[1]; f_15725(t7,((C_word*)t0)[5],t3,t6);} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15759,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* compiler.scm:1827: gensym */ t3=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[460]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k9877 in k9808 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9879(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9879,2,av);} if(C_truep(C_i_assq(((C_word*)((C_word*)t0)[2])[1],t1))){ /* compiler.scm:996: ##sys#notice */ t2=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[262]; av2[3]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_9768(2,av2);}}} /* k13082 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_13084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13084,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13106,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1509: globalize-all */ t3=((C_word*)((C_word*)t0)[3])[1]; f_11802(t3,t2,((C_word*)t0)[4]);} else{ /* compiler.scm:1510: quit */ t2=*((C_word*)lf[310]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[417]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* a17592 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17593(C_word c,C_word *av){ C_word tmp; 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_17593,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_list_ref(t2,C_fix(0)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* for-each-loop2369 in k13014 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_13024(C_word t0,C_word 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_13024,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_13034,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_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t5))){ /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[412]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_i_car(t5); /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=lf[412]; 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);}}} /* k19219 in g4513 in k19208 in k19205 in k19202 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ 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 t3; C_word 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_19221,2,av);} a=C_alloc(16); if(C_truep(t1)){ t2=(C_truep(((C_word*)t0)[2])?lf[572]:lf[573]); t3=t2; t4=C_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)); t5=C_a_i_list1(&a,1,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19262,a[2]=t6,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); /* compiler.scm:2465: varnode */ t8=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ t2=(C_truep(((C_word*)t0)[2])?lf[575]:lf[576]); t3=t2; t4=C_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)); t5=C_a_i_list1(&a,1,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19290,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t6,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.scm:2471: varnode */ t8=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k8493 in map-loop875 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8495,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8470(t6,((C_word*)t0)[5],t5);} /* k9821 in k9808 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9823,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[101]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9829,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); /* compiler.scm:990: ##sys#print */ t6=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[259]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9827 in k9821 in k9808 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_9829,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9832,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:990: ##sys#print */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[6])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k13032 in for-each-loop2369 in k13014 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_13034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13034,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_13024(t3,((C_word*)t0)[4],t2);} /* g4513 in k19208 in k19205 in k19202 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_19214(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_19214,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19221,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],tmp=(C_word)a,a+=9,tmp); /* compiler.scm:2461: test */ t4=((C_word*)((C_word*)t0)[7])[1]; f_17921(t4,t3,((C_word*)t0)[8],lf[540]);} /* k15786 in a15765 in k15757 in k15743 in loop in walk-arguments in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15788,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* compiler.scm:1831: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_15725(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k19208 in k19205 in k19202 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_19210(C_word c,C_word *av){ C_word tmp; C_word t0=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_19210,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19214,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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.scm:2453: g4513 */ t3=t2; f_19214(t3,((C_word*)t0)[9],t1);} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19307,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); /* compiler.scm:2473: test */ t3=((C_word*)((C_word*)t0)[7])[1]; f_17921(t3,t2,((C_word*)t0)[8],lf[540]);}} /* k18232 in k18190 in k18187 in k18184 in k18169 in k18163 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18234,2,av);} t2=((C_word*)t0)[2]; f_18210(t2,C_i_not(t1));} /* k11577 in k11571 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_11579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11579,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11582,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:511: ##sys#print */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11571 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_11573,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[101]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11579,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); /* compiler.scm:511: ##sys#write-char-0 */ t6=*((C_word*)lf[254]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14458 in expand-foreign-lambda in k6339 in k6336 in k6333 */ static void C_ccall f_14460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,8)))){ C_save_and_reclaim((void *)f_14460,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); t3=C_i_cdddr(((C_word*)t0)[2]); /* compiler.scm:1671: create-foreign-stub */ t4=*((C_word*)lf[452]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=t1; av2[4]=t3; av2[5]=C_SCHEME_FALSE; av2[6]=C_SCHEME_FALSE; av2[7]=((C_word*)t0)[4]; av2[8]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(9,av2);}} /* k14196 in k14175 in k14347 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ static void C_ccall f_14198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_14198,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14209,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[454]:C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14221,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_14231,a[2]=t6,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t8=C_a_i_cons(&a,2,lf[455],t2); /* compiler.scm:1656: append */ t9=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_14238,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); /* compiler.scm:1657: final-foreign-type */ t8=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* walk-arguments in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_15719(C_word t0,C_word 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_15719,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_15725,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_15725(t7,t1,t2,C_SCHEME_END_OF_LIST);} /* k9802 in k9799 in k9796 in k9790 in k9783 in k9766 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in ... */ static void C_ccall f_9804(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9804,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9807,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:998: get-output-string */ t3=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9805 in k9802 in k9799 in k9796 in k9790 in k9783 in k9766 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9807,2,av);} /* compiler.scm:998: warning */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k13056 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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(0,c,3)))){ C_save_and_reclaim((void *)f_13058,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); if(C_truep(C_i_numberp(t2))){ t3=C_mutate2((C_word*)lf[30]+1 /* (set! ##compiler#inline-max-size ...) */,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* compiler.scm:1501: warning */ t3=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=lf[414]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k9799 in k9796 in k9790 in k9783 in k9766 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in ... */ static void C_ccall f_9801(C_word c,C_word *av){ C_word tmp; C_word t0=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_9801,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9804,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:998: ##sys#write-char-0 */ t3=*((C_word*)lf[254]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in walk-arguments in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_15725(C_word 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_15725,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_15739,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1823: reverse */ t5=*((C_word*)lf[211]+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_15745,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); /* compiler.scm:1824: atomic? */ t6=((C_word*)((C_word*)t0)[6])[1];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; f_15826(3,av2);}}} /* for-each-loop903 in k8417 in k8414 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static C_word C_fcall f_8447(C_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=( /* compiler.scm:718: g904 */ f_8420(((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);}} /* k9811 in k9808 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9813,2,av);} if(C_truep(*((C_word*)lf[32]+1))){ /* compiler.scm:993: ##sys#undefine-macro! */ t2=*((C_word*)lf[256]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_9768(2,av2);}}} /* k9808 in k9763 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9810,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9813,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_9823,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:990: open-output-string */ t4=*((C_word*)lf[107]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(*((C_word*)lf[260]+1))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9879,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:995: ##sys#current-environment */ t3=*((C_word*)lf[180]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_9768(2,av2);}}}} /* k14175 in k14347 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ static void C_fcall f_14177(C_word t0,C_word t1){ C_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_14177,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[123]); t8=C_i_check_list_2(((C_word*)t0)[3],lf[123]); t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14198,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_14286,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_14286(t13,t9,((C_word*)t0)[2],((C_word*)t0)[3]);} /* k19260 in k19219 in g4513 in k19208 in k19205 in k19202 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_19262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_19262,2,av);} a=C_alloc(13); t2=C_a_i_list1(&a,1,t1); t3=C_a_i_record4(&a,4,lf[469],lf[574],((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19250,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:2466: transform */ t6=((C_word*)((C_word*)t0)[5])[1]; f_18493(t6,t5,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k11586 in k11583 in k11580 in k11577 in k11571 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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(0,c,3)))){ C_save_and_reclaim((void *)f_11588,2,av);} /* compiler.scm:511: ##sys#syntax-error/context */ t2=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11583 in k11580 in k11577 in k11571 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_11585(C_word c,C_word *av){ C_word tmp; C_word t0=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_11585,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11588,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:511: get-output-string */ t3=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11580 in k11577 in k11571 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_11582(C_word c,C_word *av){ C_word tmp; C_word t0=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_11582,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11585,a[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.scm:511: ##sys#print */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[348]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k19248 in k19260 in k19219 in g4513 in k19208 in k19205 in k19202 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_19250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19250,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],((C_word*)t0)[4],C_SCHEME_END_OF_LIST,t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_14155,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_14158,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); /* compiler.scm:1640: gensym */ t4=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[459]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_14158,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_14161,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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); /* compiler.scm:1641: gensym */ t4=*((C_word*)lf[88]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ 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 t4; C_word t5; C_word t6; C_word 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_14152,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_14155,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)[7])){ 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[88]+1); t9=((C_word*)t0)[7]; t10=C_i_check_list_2(t9,lf[123]); 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_14367,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_14367(t14,t3,t9);} 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[123]); 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_14419,a[2]=t6,a[3]=t10,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_14419(t12,t3,t2);}} /* ##compiler#expand-foreign-lambda* in k6339 in k6336 in k6333 */ 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=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_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_14490,4,av);} a=C_alloc(6); t4=C_i_cadr(t2); t5=t4; t6=C_i_caddr(t2); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14500,a[2]=t7,a[3]=t1,a[4]=t5,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t9=t2; t10=C_u_i_cdr(t9); t11=C_u_i_cdr(t10); t12=C_u_i_cdr(t11);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t8; av2[2]=*((C_word*)lf[296]+1); av2[3]=t12; C_apply(4,av2);}} /* k14187 in map-loop2911 in k14175 in k14347 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14189,2,av);} /* compiler.scm:1651: foreign-type-check */ t2=*((C_word*)lf[250]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18249 in k18187 in k18184 in k18169 in k18163 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18251,2,av);} t2=((C_word*)t0)[2]; f_18192(t2,(C_truep(t1)?C_i_listp(((C_word*)t0)[3]):C_SCHEME_FALSE));} /* k20141 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,1)))){ C_save_and_reclaim((void *)f_20143,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=((C_word*)((C_word*)t0)[3])[1]; t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],((C_word*)t0)[4],t3,t1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k21479 in k21472 in a21466 in blockvar-literal in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21481,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* immediate-literal in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_21483(C_word t1,C_word 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_21483,2,t1,t2);} a=C_alloc(14); t3=*((C_word*)lf[637]+1); t4=C_eqp(*((C_word*)lf[637]+1),t2); if(C_truep(t4)){ t5=t1; t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[469],lf[129],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21510,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fixnump(t2))){ t6=C_a_i_list(&a,2,lf[639],t2); t7=t1; t8=t7;{ C_word av2[2]; av2[0]=t8; av2[1]=C_a_i_record4(&a,4,lf[469],lf[638],t6,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ if(C_truep(C_booleanp(t2))){ t6=C_a_i_list(&a,2,lf[640],t2); t7=t1; t8=t7;{ C_word av2[2]; av2[0]=t8; av2[1]=C_a_i_record4(&a,4,lf[469],lf[638],t6,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ if(C_truep(C_charp(t2))){ t6=C_a_i_list(&a,2,lf[641],t2); t7=t1; t8=t7;{ C_word av2[2]; av2[0]=t8; av2[1]=C_a_i_record4(&a,4,lf[469],lf[638],t6,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(t2))){ t6=t1; t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[469],lf[638],lf[642],C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ if(C_truep(C_eofp(t2))){ t6=t1; t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[469],lf[638],lf[643],C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ /* compiler.scm:2868: bomb */ t6=*((C_word*)lf[480]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=lf[644]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}}}}}} /* k19288 in k19219 in g4513 in k19208 in k19205 in k19202 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_19290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19290,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19294,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); /* compiler.scm:2472: transform */ t4=((C_word*)((C_word*)t0)[5])[1]; f_18493(t4,t3,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* a15703 in walk-inline-call in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15704,3,av);} a=C_alloc(5); t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3]; t5=C_a_i_record4(&a,4,lf[469],t3,t4,t2); /* compiler.scm:1819: k */ t6=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* a17576 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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=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_17577,3,av);} /* compiler.scm:2105: get */ t3=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=lf[495]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14477 in expand-foreign-lambda in k6339 in k6336 in k6333 */ static void C_ccall f_14479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14479,2,av);} /* compiler.scm:1666: symbol->string */ t2=*((C_word*)lf[231]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19292 in k19288 in k19219 in g4513 in k19208 in k19205 in k19202 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_19294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19294,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],((C_word*)t0)[4],((C_word*)t0)[5],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7247 in map-loop376 in k7186 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7249,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7224(t6,((C_word*)t0)[5],t5);} /* ##compiler#expand-foreign-lambda in k6339 in k6336 in k6333 */ 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=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_14453,4,av);} a=C_alloc(8); t4=C_i_caddr(t2); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14460,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_symbolp(t4))){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14479,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1666: ##sys#strip-syntax */ t7=*((C_word*)lf[118]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ if(C_truep(C_i_stringp(t4))){ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t4; f_14460(2,av2);}} else{ /* compiler.scm:1668: quit */ t6=*((C_word*)lf[310]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[465]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}} /* k21472 in a21466 in blockvar-literal in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_21474,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21481,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2854: block-variable-literal-name */ t3=*((C_word*)lf[634]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8524 in k8521 in k8518 in k8515 in k8512 in k8509 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(21,c,8)))){ C_save_and_reclaim((void *)f_8526,2,av);} a=C_alloc(21); if(C_truep(*((C_word*)lf[179]+1))){ t2=C_a_i_list(&a,2,lf[91],((C_word*)t0)[2]); t3=C_a_i_list(&a,1,lf[180]); t4=C_a_i_list(&a,4,lf[181],t2,t3,((C_word*)t0)[3]); /* compiler.scm:752: walk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_6925(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_word*)t0)[11]);} else{ /* compiler.scm:752: walk */ t2=((C_word*)((C_word*)t0)[4])[1]; f_6925(t2,((C_word*)t0)[5],lf[182],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);}} /* k14442 in map-loop2870 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_14444,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_14419(t6,((C_word*)t0)[5],t5);} /* k8521 in k8518 in k8515 in k8512 in k8509 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_8523,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|11,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],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8548,a[2]=t2,a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:750: ##sys#current-environment */ t4=*((C_word*)lf[180]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8518 in k8515 in k8512 in k8509 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_8520,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,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],a[11]=((C_word*)t0)[11],a[12]=t2,tmp=(C_word)a,a+=13,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8556,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:747: ##sys#current-module */ t5=*((C_word*)lf[184]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* g5157 in k21441 in blockvar-literal in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static C_word C_fcall f_21447(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));} /* k21441 in blockvar-literal in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21443(C_word c,C_word *av){ C_word tmp; C_word t0=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_21443,2,av);} a=C_alloc(4); if(C_truep(t1)){ 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); /* compiler.scm:2539: g5157 */ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( /* compiler.scm:2539: g5157 */ f_21447(t2,t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21465,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2857: make-block-variable-literal */ t3=*((C_word*)lf[633]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k8515 in k8512 in k8509 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_8517(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,3)))){ C_save_and_reclaim_args((void *)trf_8517,2,t0,t1);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8520,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); /* compiler.scm:746: lookup */ t4=((C_word*)((C_word*)t0)[11])[1]; f_6538(t4,t3,((C_word*)t0)[2],((C_word*)t0)[6]);} /* k8512 in k8509 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; C_word t3; C_word 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_8514,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8517,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_word*)t0)[11]; 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_8570,a[2]=((C_word*)t0)[11],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:744: cdadr */ t8=*((C_word*)lf[185]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t7=t3; f_8517(t7,C_i_caddr(((C_word*)t0)[11]));}} /* k8509 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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_8511,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8514,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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_i_cadr(((C_word*)t0)[11]); if(C_truep(C_i_pairp(t3))){ /* compiler.scm:742: caadr */ t4=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=((C_word*)t0)[11]; t5=C_u_i_cdr(t4); t6=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_u_i_car(t5); f_8514(2,av2);}}} /* k7282 in k7270 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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_7284,2,av);} a=C_alloc(10); t2=t1; t3=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[2],t2),*((C_word*)lf[50]+1)); t4=C_mutate2((C_word*)lf[50]+1 /* (set! ##compiler#immutable-constants ...) */,t3); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7305,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t6=C_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t6))){ /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=t2; av2[3]=lf[126]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=C_i_car(t6); /* tweaks.scm:54: ##sys#put! */ t8=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t5; av2[2]=t2; av2[3]=lf[126]; av2[4]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} /* a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16803(C_word c,C_word *av){ C_word tmp; C_word t0=av[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 t46; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(65,c,2)))){ C_save_and_reclaim((void *)f_16803,4,av);} a=C_alloc(65); 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(*((C_word*)lf[48]+1),C_fix(1)); t29=C_set_block_item(lf[48] /* current-analysis-database-size */,0,t28); t30=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_16809,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[89]); t33=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17891,a[2]=t30,tmp=(C_word)a,a+=3,tmp); t34=( f_17891(t33,t31) ); t35=((C_word*)t5)[1]; t36=(C_truep(t35)?C_SCHEME_FALSE:((C_word*)t7)[1]); t37=C_set_block_item(t7,0,t36); t38=((C_word*)t5)[1]; t39=(C_truep(t38)?C_SCHEME_FALSE:((C_word*)t9)[1]); t40=C_set_block_item(t9,0,t39); t41=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_16951,a[2]=t7,a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[2],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); t42=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17842,a[2]=t7,a[3]=t41,a[4]=t2,a[5]=t11,tmp=(C_word)a,a+=6,tmp); if(C_truep(*((C_word*)lf[58]+1))){ t43=((C_word*)t7)[1]; t44=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17869,a[2]=t42,tmp=(C_word)a,a+=3,tmp); if(C_truep(t43)){ t45=t44; f_17869(t45,t43);} else{ if(C_truep(((C_word*)t23)[1])){ t45=((C_word*)t11)[1]; t46=t44; f_17869(t46,t45);} else{ t45=t44; f_17869(t45,C_SCHEME_FALSE);}}} else{ t43=t42; f_17842(t43,C_SCHEME_FALSE);}} /* k18132 in map-loop4105 in k18090 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ 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; 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_18134,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18109(t6,((C_word*)t0)[5],t5);} /* g3690 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static C_word C_fcall f_16809(C_word t0,C_word t1){ C_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[501]); 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[523]); if(C_truep(t4)){ t5=t1; t6=C_mutate2(((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[494]); 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[511]); if(C_truep(t6)){ t7=t1; t8=C_mutate2(((C_word *)((C_word*)t0)[6])+1,C_u_i_cdr(t7)); return(t8);} else{ t7=C_eqp(t2,lf[499]); if(C_truep(t7)){ t8=t1; t9=C_mutate2(((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[509]); 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[510]); if(C_truep(t9)){ t10=C_SCHEME_UNDEFINED; return(t10);} else{ t10=C_eqp(t2,lf[518]); 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[495]); 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[519]); if(C_truep(t12)){ t13=t1; t14=C_mutate2(((C_word *)((C_word*)t0)[12])+1,C_u_i_cdr(t13)); return(t14);} else{ t13=C_eqp(t2,lf[521]); if(C_truep(t13)){ t14=t1; t15=C_mutate2(((C_word *)((C_word*)t0)[13])+1,C_u_i_cdr(t14)); return(t15);} else{ t14=C_eqp(t2,lf[505]); if(C_truep(t14)){ t15=C_SCHEME_UNDEFINED; return(t15);} else{ return(C_SCHEME_UNDEFINED);}}}}}}}}}}}}} /* k7270 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7272,2,av);} a=C_alloc(4); t2=t1; t3=C_i_assoc(t2,*((C_word*)lf[50]+1)); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_7284,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:563: gensym */ t5=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[127]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k21463 in k21441 in blockvar-literal in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21465(C_word c,C_word *av){ C_word tmp; 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_21465,2,av);} a=C_alloc(7); /* compiler.scm:2857: new-literal */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=( /* compiler.scm:2857: new-literal */ f_21428(C_a_i(&a,7),((C_word*)((C_word*)t0)[3])[1],t1) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9509 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_9511,2,av);} a=C_alloc(8); t2=C_i_check_list_2(t1,lf[123]); 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_9519,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_9519(t6,((C_word*)t0)[5],t1);} /* a21466 in blockvar-literal in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21467(C_word c,C_word *av){ C_word tmp; C_word 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_21467,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21474,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:2853: block-variable-literal? */ t4=*((C_word*)lf[635]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10687 in k10608 in k10605 in k10602 in k10599 in k10596 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10689(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10689,2,av);} /* compiler.scm:1123: words */ t2=*((C_word*)lf[301]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop2870 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ static void C_fcall f_14419(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_14419,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_14444,a[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_14411,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_14071,a[2]=t8,tmp=(C_word)a,a+=3,tmp)); t10=((C_word*)t8)[1]; f_14071(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);}}} /* k14098 in loop in map-loop2870 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ static void C_ccall f_14100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14100,2,av);} /* compiler.scm:1630: string->symbol */ t2=*((C_word*)lf[457]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14102 in loop in map-loop2870 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14104,2,av);} /* compiler.scm:1630: conc */ t2=*((C_word*)lf[461]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[462]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k14409 in map-loop2870 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14411,2,av);} /* compiler.scm:1639: gensym */ t2=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop1063 in k9509 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_9519(C_word t0,C_word t1,C_word 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_9519,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_9544,a[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)); /* compiler.scm:845: g1069 */ t5=((C_word*)t0)[4]; f_9462(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);}}} /* blockvar-literal in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_21439(C_word t0,C_word t1,C_word 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_21439,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21443,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_21467,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2852: list-index */ t5=*((C_word*)lf[636]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* map-loop1817 in mapwalk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_11673(C_word t0,C_word t1,C_word 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_11673,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_11698,a[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)); /* compiler.scm:406: g1823 */ t5=((C_word*)t0)[4]; f_11661(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);}}} /* k18163 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_18165,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_18171,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(t2)){ t4=C_slot(t2,C_fix(1)); t5=t3; f_18171(t5,C_eqp(lf[161],t4));} else{ t4=t3; f_18171(t4,C_SCHEME_FALSE);}} /* f22739 in k9148 in g1183 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in ... */ static void C_ccall f22739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f22739,2,av);} /* compiler.scm:890: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[210]; C_values(4,av2);}} /* f22735 in k9165 in k9148 in g1183 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in ... */ static void C_ccall f22735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f22735,2,av);} /* compiler.scm:890: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[210]; C_values(4,av2);}} /* k12690 in k12599 in k12596 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_12692,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[89]); 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_12700,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_12700(t6,((C_word*)t0)[2],t1);} /* k17778 in k17775 in k17772 in k17766 in k17759 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_17780,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17783,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2089: get-output-string */ t3=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18169 in k18163 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_18171(C_word t0,C_word 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(13,0,3)))){ C_save_and_reclaim_args((void *)trf_18171,2,t0,t1);} a=C_alloc(13); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_i_caddr(t2); t4=t3; t5=C_u_i_car(t2); t6=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_18186,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],a[7]=((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],tmp=(C_word)a,a+=13,tmp); /* compiler.scm:2319: test */ t7=((C_word*)((C_word*)t0)[11])[1]; f_17921(t7,t6,((C_word*)t0)[8],lf[523]);} else{ t2=C_a_i_cons(&a,2,((C_word*)t0)[3],C_SCHEME_END_OF_LIST); t3=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); /* compiler.scm:2301: node-parameters-set! */ t4=*((C_word*)lf[553]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k11696 in map-loop1817 in mapwalk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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_11698,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11673(t6,((C_word*)t0)[5],t5);} /* k18199 in k18196 in k18193 in k18190 in k18187 in k18184 in k18169 in k18163 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_18201,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); /* compiler.scm:2301: node-parameters-set! */ t5=*((C_word*)lf[553]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18184 in k18169 in k18163 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18186,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_18189,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((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); /* compiler.scm:2320: test */ t4=((C_word*)((C_word*)t0)[12])[1]; f_17921(t4,t3,((C_word*)t0)[8],lf[499]);} /* k6799 in k6707 in k6689 in k6677 in resolve-variable in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6801,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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],((C_word*)t0)[4]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* compiler.scm:469: ##sys#alias-global-hook */ t2=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}} /* k18187 in k18184 in k18169 in k18163 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_18189,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_18192,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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_18251,a[2]=t2,a[3]=((C_word*)t0)[11],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2324: test */ t7=((C_word*)((C_word*)t0)[13])[1]; f_17921(t7,t6,((C_word*)t0)[8],lf[519]);} else{ t6=t2; f_18192(t6,C_SCHEME_FALSE);}} else{ t3=t2; f_18192(t3,C_SCHEME_FALSE);}} else{ t3=t2; f_18192(t3,C_SCHEME_FALSE);}} /* k17781 in k17778 in k17775 in k17772 in k17766 in k17759 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17783,2,av);} /* compiler.scm:2088: ##sys#notice */ t2=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10639 in k10664 in k10608 in k10605 in k10602 in k10599 in k10596 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_10641(C_word 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_10641,2,t0,t1);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10649,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[3])){ /* compiler.scm:1135: fifth */ t4=*((C_word*)lf[298]+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{ t4=C_i_cadddr(((C_word*)t0)[4]); t5=C_a_i_list(&a,1,t4); /* compiler.scm:406: ##sys#append */ t6=*((C_word*)lf[156]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k10647 in k10639 in k10664 in k10608 in k10605 in k10602 in k10599 in k10596 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 in ... */ static void C_ccall f_10649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10649,2,av);} a=C_alloc(3); t2=C_a_i_list(&a,1,t1); /* compiler.scm:406: ##sys#append */ t3=*((C_word*)lf[156]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17759 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_17761(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_17761,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17768,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2089: open-output-string */ t3=*((C_word*)lf[107]+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_16954(2,av2);}}} /* k20167 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,1)))){ C_save_and_reclaim((void *)f_20169,2,av);} a=C_alloc(9); t2=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],t1); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3]; t5=((C_word*)((C_word*)t0)[4])[1]; t6=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[469],((C_word*)t0)[5],t5,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k7070 in k7066 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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_7072,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7076,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_list(&a,4,lf[114],((C_word*)t0)[3],t2,lf[115]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_cadddr(((C_word*)t0)[4]); /* compiler.scm:534: walk */ t6=((C_word*)((C_word*)t0)[5])[1]; f_6925(t6,t3,t5,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[8],((C_word*)t0)[9]);}} /* k18190 in k18187 in k18184 in k18169 in k18163 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_18192(C_word t0,C_word 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_18192,2,t0,t1);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_18195,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_18210,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_18234,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=C_u_i_cdr(((C_word*)t0)[10]); /* compiler.scm:2327: llist-match? */ t7=*((C_word*)lf[556]+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_18210(t5,C_SCHEME_FALSE);}} /* k18193 in k18190 in k18187 in k18184 in k18169 in k18163 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18195(C_word c,C_word *av){ C_word tmp; C_word t0=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_18195,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18198,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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); /* compiler.scm:2332: register-direct-call! */ t3=((C_word*)((C_word*)t0)[10])[1]; f_17937(t3,t2,((C_word*)t0)[2]);} /* k7074 in k7070 in k7066 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_7076,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,4,lf[114],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k18196 in k18193 in k18190 in k18187 in k18184 in k18169 in k18163 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_18198,2,av);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18201,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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])){ /* compiler.scm:2333: register-customizable! */ t3=((C_word*)((C_word*)t0)[8])[1]; f_17927(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); /* compiler.scm:2301: node-parameters-set! */ t6=*((C_word*)lf[553]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k17775 in k17772 in k17766 in k17759 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17777(C_word c,C_word *av){ C_word tmp; C_word t0=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_17777,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17780,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2089: ##sys#print */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[541]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k17772 in k17766 in k17759 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17774(C_word c,C_word *av){ C_word tmp; C_word t0=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_17774,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17777,a[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.scm:2089: ##sys#print */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10608 in k10605 in k10602 in k10599 in k10596 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(30,c,2)))){ C_save_and_reclaim((void *)f_10610,2,av);} a=C_alloc(30); 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_word*)lf[69]+1)); t4=C_mutate2((C_word*)lf[69]+1 /* (set! ##compiler#location-pointer-map ...) */,t3); t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10666,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)[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); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10689,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1123: estimate-foreign-result-location-size */ t7=*((C_word*)lf[302]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20171 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20173,2,av);} /* compiler.scm:2612: words */ t2=*((C_word*)lf[301]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7066 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,8)))){ C_save_and_reclaim((void *)f_7068,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7072,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_caddr(((C_word*)t0)[3]); /* compiler.scm:531: walk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_6925(t5,t3,t4,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8]);} /* k17766 in k17759 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 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_17768,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[101]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17774,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.scm:2089: ##sys#print */ t6=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[542]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10664 in k10608 in k10605 in k10602 in k10599 in k10596 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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(64,c,2)))){ C_save_and_reclaim((void *)f_10666,2,av);} a=C_alloc(64); t2=C_a_i_plus(&a,2,C_fix(2),t1); t3=C_a_i_list(&a,2,lf[300],t2); t4=C_a_i_list(&a,2,lf[91],t1); t5=C_a_i_list(&a,3,lf[270],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|12,a[1]=(C_word)f_10637,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],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); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10641,a[2]=t9,a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[14],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[13])){ t11=C_a_i_list(&a,3,lf[157],((C_word*)t0)[4],((C_word*)t0)[13]); t12=t10; f_10641(t12,C_a_i_list(&a,1,t11));} else{ t11=t10; f_10641(t11,C_SCHEME_END_OF_LIST);}} /* k20861 in k20818 in k20814 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_20863(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,1)))){ C_save_and_reclaim_args((void *)trf_20863,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(1)); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3]; f_20823(t4,t3);} else{ t2=((C_word*)t0)[3]; f_20823(t2,C_SCHEME_UNDEFINED);}} /* k9584 in k9581 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_9586,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9589,a[2]=((C_word*)t0)[2],a[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_9599,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=t2,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); /* compiler.scm:940: ##sys#canonicalize-body */ t5=*((C_word*)lf[152]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[10]; av2[3]=t2; av2[4]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k9581 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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(11,c,4)))){ C_save_and_reclaim((void *)f_9583,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9586,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); /* compiler.scm:937: ##sys#extend-se */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[10]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k10635 in k10664 in k10608 in k10605 in k10602 in k10599 in k10596 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,8)))){ C_save_and_reclaim((void *)f_10637,2,av);} a=C_alloc(18); t2=C_a_i_cons(&a,2,lf[142],t1); t3=C_a_i_list(&a,3,lf[150],((C_word*)t0)[2],t2); t4=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]),((C_word*)t0)[5]); /* compiler.scm:1122: walk */ t5=((C_word*)((C_word*)t0)[6])[1]; f_6925(t5,((C_word*)t0)[7],t3,((C_word*)t0)[8],t4,((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12]);} /* k12599 in k12596 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_12601,2,av);} a=C_alloc(8); t2=C_eqp(t1,lf[6]); 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[6] /* standard-bindings */,0,C_SCHEME_END_OF_LIST); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12618,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12622,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); /* compiler.scm:1443: stripa */ t9=((C_word*)((C_word*)t0)[4])[1]; f_11789(t9,t5,t8);}} else{ t3=C_eqp(t1,lf[7]); 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[7] /* extended-bindings */,0,C_SCHEME_END_OF_LIST); t6=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12646,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12650,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); /* compiler.scm:1449: stripa */ t10=((C_word*)((C_word*)t0)[4])[1]; f_11789(t10,t6,t9);}} else{ t4=C_eqp(t1,lf[400]); 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[39] /* ##compiler#inline-locally */,0,C_SCHEME_FALSE); t7=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12692,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); /* compiler.scm:1455: globalize-all */ t10=((C_word*)((C_word*)t0)[6])[1]; f_11802(t10,t6,t9);}} else{ t5=C_eqp(t1,lf[371]); 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[6] /* standard-bindings */,0,C_SCHEME_END_OF_LIST); t8=C_set_block_item(lf[7] /* extended-bindings */,0,C_SCHEME_END_OF_LIST); t9=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12745,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); /* compiler.scm:1461: stripa */ t11=((C_word*)((C_word*)t0)[4])[1]; f_11789(t11,t7,t10);}} else{ t6=C_eqp(t1,lf[403]); if(C_truep(t6)){ t7=C_set_block_item(lf[40] /* ##compiler#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_12795,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); /* compiler.scm:1469: globalize-all */ t13=((C_word*)((C_word*)t0)[6])[1]; f_11802(t13,t9,t12);} else{ t9=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12834,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); /* compiler.scm:1471: check-decl */ f_11754(t7,((C_word*)t0)[2],C_fix(1),C_a_i_list(&a,1,C_fix(1)));}}}}}} /* k9587 in k9584 in k9581 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9589,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9592,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:943: set-real-names! */ f_6566(t3,((C_word*)t0)[3],((C_word*)t0)[5]);} /* k20197 in k20201 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,1)))){ C_save_and_reclaim((void *)f_20199,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=((C_word*)((C_word*)t0)[3])[1]; t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],((C_word*)t0)[4],t3,t1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k21508 in immediate-literal in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_21510(C_word c,C_word *av){ C_word tmp; C_word t0=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_21510,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[469],lf[638],t1,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11607 in k11604 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_11609,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11612,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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.scm:1304: warning */ t3=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[351]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k10602 in k10599 in k10596 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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(15,c,2)))){ C_save_and_reclaim((void *)f_10604,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10607,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); t4=C_i_cddddr(((C_word*)t0)[13]); if(C_truep(C_i_pairp(t4))){ t5=((C_word*)t0)[13]; t6=C_u_i_cdr(t5); t7=C_u_i_cdr(t6); t8=C_u_i_cdr(t7); t9=t3; f_10607(t9,C_u_i_car(t8));} else{ t5=t3; f_10607(t5,C_SCHEME_FALSE);}} /* k11604 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_11606,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11609,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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.scm:1303: emit-syntax-trace-info */ t3=*((C_word*)lf[350]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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|10,a[1]=(C_word)f_11618,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)[6],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); /* compiler.scm:1308: emit-syntax-trace-info */ t3=*((C_word*)lf[350]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k9590 in k9587 in k9584 in k9581 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9592,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[161],((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10599 in k10596 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10601,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_10604,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); /* compiler.scm:1117: gensym */ t4=*((C_word*)lf[88]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9597 in k9584 in k9581 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_9599,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9603,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); /* compiler.scm:941: append */ t4=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k13014 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_13016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_13016,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[89]); 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_13024,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_13024(t6,((C_word*)t0)[2],t1);} /* k10605 in k10602 in k10599 in k10596 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_10607(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_10607,2,t0,t1);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_10610,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* compiler.scm:1119: set-real-name! */ t4=*((C_word*)lf[90]+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);}} /* k15170 in a15135 in loop in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_15172(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_15172,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[469],lf[150],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k12620 in k12599 in k12596 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12622,2,av);} /* compiler.scm:1442: lset-difference */ t2=*((C_word*)lf[399]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[135]+1); av2[3]=*((C_word*)lf[369]+1); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k11619 in k11616 in k11604 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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_11621,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[149],t5,t8); /* compiler.scm:1310: walk */ t10=((C_word*)((C_word*)t0)[3])[1]; f_6925(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_word*)t0)[10]);} /* g3805 in k17694 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_17700(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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,0,4)))){ C_save_and_reclaim_args((void *)trf_17700,3,t0,t1,t2);} a=C_alloc(12); t3=t2; if(C_truep(C_i_structurep(t3,lf[469]))){ if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17718,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2127: debugging */ t5=*((C_word*)lf[537]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=lf[538]; av2[3]=lf[539]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t4=((C_word*)t0)[4]; t5=C_i_cdr(t4); t6=C_a_i_cons(&a,2,C_a_i_cons(&a,2,lf[534],C_SCHEME_TRUE),t5); t7=C_i_set_cdr(t4,t6); t8=t1; t9=((C_word*)t0)[4]; t10=t2; t11=C_i_cdr(t9); t12=C_a_i_cons(&a,2,C_a_i_cons(&a,2,lf[521],t10),t11); t13=t8;{ C_word av2[2]; av2[0]=t13; av2[1]=C_i_set_cdr(t9,t12); ((C_proc)(void*)(*((C_word*)t13+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);}}} /* k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ 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(11,c,9)))){ C_save_and_reclaim((void *)f_14167,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_14349,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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); /* compiler.scm:1645: make-foreign-stub */ t3=*((C_word*)lf[441]+1);{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(10); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[10]; av2[3]=((C_word*)t0)[7]; av2[4]=((C_word*)t0)[11]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[12]; av2[7]=((C_word*)t0)[13]; av2[8]=((C_word*)t0)[9]; av2[9]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}} /* k14159 in k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_14161,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_14164,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=13,tmp); /* compiler.scm:1642: estimate-foreign-result-size */ t4=*((C_word*)lf[458]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14162 in k14159 in k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_14164,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_14167,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); if(C_truep(((C_word*)t0)[10])){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14356,a[2]=t3,a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1643: string->symbol */ t5=*((C_word*)lf[457]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_14167(2,av2);}}} /* k6867 in k6861 in a6858 in k6852 in k6837 in k6834 in k6831 in g1183 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 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);} /* compiler.scm:493: print */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[217]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12616 in k12599 in k12596 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_12618,2,av);} t2=C_mutate2((C_word*)lf[6]+1 /* (set! standard-bindings ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6861 in a6858 in k6852 in k6837 in k6834 in k6831 in g1183 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 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 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_6863,2,av);} a=C_alloc(9); t2=*((C_word*)lf[216]+1); t3=C_i_check_list_2(((C_word*)t0)[2],lf[89]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6869,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_6874,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_6874(t8,t4,((C_word*)t0)[2]);} /* k11610 in k11607 in k11604 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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,6)))){ C_save_and_reclaim((void *)f_11612,2,av);} /* compiler.scm:1305: mapwalk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11656(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]);} /* k11616 in k11604 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_11618,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11621,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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); /* compiler.scm:1309: gensym */ t3=*((C_word*)lf[88]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k17716 in g3805 in k17694 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17718(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_17718,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_a_i_list(&a,1,lf[401]); if(C_truep(C_i_nullp(t4))){ /* tweaks.scm:54: ##sys#put! */ t5=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t3; av2[3]=lf[404]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=C_i_car(t4); /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t2; av2[2]=t3; av2[3]=lf[404]; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k9542 in map-loop1063 in k9509 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9544,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9519(t6,((C_word*)t0)[5],t5);} /* k19205 in k19202 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_19207(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_19207,2,t0,t1);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19210,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); /* compiler.scm:2459: posq */ t4=*((C_word*)lf[167]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k12644 in k12599 in k12596 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_ccall f_12646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12646,2,av);} t2=C_mutate2((C_word*)lf[7]+1 /* (set! extended-bindings ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[361]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k19202 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_19204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_19204,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19207,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_19207(t3,t1);} else{ t3=C_u_i_cdr(((C_word*)t0)[9]); if(C_truep(C_i_pairp(t3))){ t4=C_i_cadr(((C_word*)t0)[9]); t5=t2; f_19207(t5,(C_truep(t4)?t4:C_eqp(lf[129],((C_word*)t0)[10])));} else{ t4=t2; f_19207(t4,C_eqp(lf[129],((C_word*)t0)[10]));}}} /* for-each-loop263 in k6861 in a6858 in k6852 in k6837 in k6834 in k6831 in g1183 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in ... */ static void C_fcall f_6874(C_word t0,C_word t1,C_word 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_6874,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_6884,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.scm:492: g264 */ 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);}}} /* k8320 in k8316 in g853 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8322,2,av);} /* compiler.scm:707: ##sys#ensure-transformer */ t2=*((C_word*)lf[175]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_14149,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14152,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); /* compiler.scm:1636: ##sys#strip-syntax */ t4=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8623 in k8620 in k8617 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8625(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8625,2,av);} a=C_alloc(51); if(C_truep(*((C_word*)lf[179]+1))){ t2=C_a_i_list(&a,2,lf[116],((C_word*)t0)[2]); t3=C_a_i_list(&a,2,lf[91],lf[190]); if(C_truep(((C_word*)t0)[3])){ t4=C_a_i_list(&a,2,lf[91],((C_word*)t0)[4]); t5=C_a_i_list(&a,3,lf[175],((C_word*)t0)[3],t4); t6=C_a_i_list(&a,1,lf[180]); t7=C_a_i_list(&a,3,lf[191],t5,t6); t8=C_a_i_list(&a,4,lf[87],t2,t3,t7); /* compiler.scm:778: walk */ t9=((C_word*)((C_word*)t0)[5])[1]; f_6925(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_word*)t0)[12]);} else{ t4=C_a_i_list(&a,4,lf[87],t2,t3,C_SCHEME_FALSE); /* compiler.scm:778: walk */ t5=((C_word*)((C_word*)t0)[5])[1]; f_6925(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_word*)t0)[12]);}} else{ /* compiler.scm:778: walk */ t2=((C_word*)((C_word*)t0)[5])[1]; f_6925(t2,((C_word*)t0)[6],lf[192],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12]);}} /* k8620 in k8617 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_8622(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(21,0,4)))){ C_save_and_reclaim_args((void *)trf_8622,2,t0,t1);} a=C_alloc(21); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8625,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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)[3])){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8673,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_8681,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:775: ##sys#eval/meta */ t5=*((C_word*)lf[176]+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{ /* compiler.scm:770: ##sys#put! */ t3=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=lf[190]; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k6882 in for-each-loop263 in k6861 in a6858 in k6852 in k6837 in k6834 in k6831 in g1183 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6884,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6874(t3,((C_word*)t0)[4],t2);} /* k8617 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8619,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8622,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); if(C_truep(((C_word*)t0)[2])){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8693,a[2]=t2,a[3]=((C_word*)t0)[12],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* compiler.scm:768: ##sys#get */ t5=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[190]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=t3; f_8622(t4,C_SCHEME_UNDEFINED);}} /* k6897 in a6858 in k6852 in k6837 in k6834 in k6831 in g1183 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in ... */ static void C_ccall f_6899(C_word c,C_word *av){ C_word tmp; C_word 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_6899,2,av);} /* compiler.scm:490: print */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[218]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[219]; av2[5]=t1; av2[6]=lf[220]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k10596 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_10598,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10601,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); /* compiler.scm:1116: gensym */ t4=*((C_word*)lf[88]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* g853 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_8302(C_word t0,C_word t1,C_word 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_8302,3,t0,t1,t2);} a=C_alloc(9); t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8314,a[2]=t1,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_8318,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t7=C_i_cadr(t2); /* compiler.scm:708: ##sys#eval/meta */ t8=*((C_word*)lf[176]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* g1823 in mapwalk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_11661(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_11661,3,t0,t1,t2);} /* compiler.scm:1317: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_6925(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k12648 in k12599 in k12596 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12650,2,av);} /* compiler.scm:1448: lset-difference */ t2=*((C_word*)lf[399]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[135]+1); av2[3]=*((C_word*)lf[370]+1); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop847 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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)); /* compiler.scm:703: g853 */ t5=((C_word*)t0)[4]; f_8302(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);}}} /* k8335 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8337(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8337,2,av);} /* compiler.scm:702: append */ t2=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* mapwalk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_11656(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_11656,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_11661,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[123]); 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_11673,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_11673(t16,t1,t2);} /* k6831 in g1183 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in ... */ static void C_ccall f_6833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6833,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6836,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_6912,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:476: ##sys#current-module */ t5=*((C_word*)lf[184]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k6837 in k6834 in k6831 in g1183 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_6839,2,av);} a=C_alloc(5); if(C_truep(C_i_equalp(((C_word*)t0)[2],t1))){ if(C_truep(*((C_word*)lf[45]+1))){ /* compiler.scm:482: print */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[213]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[214]; av2[5]=((C_word*)t0)[5]; av2[6]=lf[215]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6854,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[45]+1))){ /* compiler.scm:486: print */ t3=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[223]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[224]; av2[5]=((C_word*)t0)[5]; av2[6]=lf[225]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6854(2,av2);}}}} /* k6834 in k6831 in g1183 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in ... */ static void C_ccall f_6836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6836,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6839,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_6905,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:478: file-exists? */ t5=*((C_word*)lf[227]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10572 in k10552 in k10549 in k10540 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,1)))){ C_save_and_reclaim((void *)f_10574,2,av);} a=C_alloc(18); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],lf[294],t1); t3=C_a_i_cons(&a,2,t2,*((C_word*)lf[60]+1)); t4=C_mutate2((C_word*)lf[60]+1 /* (set! ##compiler#foreign-variables ...) */,t3); t5=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[2]),*((C_word*)lf[67]+1)); t6=C_mutate2((C_word*)lf[67]+1 /* (set! ##compiler#external-to-pointer ...) */,t5); t7=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=lf[295]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* g347 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_7040(C_word t0,C_word t1,C_word 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_7040,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); /* compiler.scm:523: walk */ t5=((C_word*)((C_word*)t0)[3])[1]; f_6925(t5,t1,t4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} /* k7112 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7114(C_word c,C_word *av){ C_word tmp; 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_7114,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[91],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10584 in k10549 in k10540 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10586,2,av);} /* compiler.scm:1105: symbol->string */ t2=*((C_word*)lf[231]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10580 in k10549 in k10540 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_10582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10582,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_10554(t3,t2);} /* k6852 in k6837 in k6834 in k6831 in g1183 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6854,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6859,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:488: with-output-to-file */ t3=*((C_word*)lf[222]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a6858 in k6852 in k6837 in k6834 in k6831 in g1183 in k9134 in k9131 in loop in a9112 in a9106 in k9044 in k9041 in a9038 in k9032 in k9029 in k9023 in k7315 in k7034 in k7022 in k7019 in k7013 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6859,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6863,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_6899,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:491: chicken-version */ t4=*((C_word*)lf[221]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k17867 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_17869(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,1)))){ C_save_and_reclaim_args((void *)trf_17869,2,t0,t1);} if(C_truep(t1)){ t2=t1; t3=C_slot(t2,C_fix(1)); t4=((C_word*)t0)[2]; f_17842(t4,C_eqp(lf[161],t3));} else{ t2=((C_word*)t0)[2]; f_17842(t2,C_SCHEME_FALSE);}} /* k20395 in k20366 in k20363 in k20360 in k20357 in a20351 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20397,2,av);} /* compiler.scm:2675: ##sys#hash-table-set! */ t2=*((C_word*)lf[291]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_15113(C_word 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_15113,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t4=C_i_car(t3); /* compiler.scm:1753: walk */ t5=((C_word*)((C_word*)t0)[2])[1]; f_14930(t5,t1,t4,((C_word*)t0)[3]);} else{ t4=C_i_car(t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15136,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* compiler.scm:1754: walk */ t6=((C_word*)((C_word*)t0)[2])[1]; f_14930(t6,t1,t4,t5);}} /* k12189 in for-each-loop1969 in k12171 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12191,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_12181(t3,((C_word*)t0)[4],t2);} /* k10524 in k10430 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10526,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[292]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k16249 in k16235 in a16229 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16251(C_word c,C_word *av){ C_word tmp; C_word t0=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_16251,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_16254,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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])){ /* compiler.scm:1944: put! */ t3=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[505]; av2[5]=lf[506]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_16254(2,av2);}}} /* k16252 in k16249 in k16235 in a16229 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_16254,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_16257,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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_16313,a[2]=t2,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:1945: simple-lambda-node? */ t4=*((C_word*)lf[504]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop1969 in k12171 in k11856 in k11853 in a11850 in process-declaration in k6339 in k6336 in k6333 */ static void C_fcall f_12181(C_word t0,C_word 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_12181,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_12191,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_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t5))){ /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[126]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_i_car(t5); /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[87]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=lf[126]; 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);}}} /* k16255 in k16252 in k16249 in k16235 in a16229 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ 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; 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_16257,2,av);} a=C_alloc(12); t2=*((C_word*)lf[73]+1); t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_16260,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*)lf[74]+1))){ t4=t3; f_16260(t4,C_SCHEME_UNDEFINED);} else{ t4=C_mutate2((C_word*)lf[74]+1 /* (set! ##compiler#toplevel-lambda-id ...) */,((C_word*)t0)[9]); t5=t3; f_16260(t5,t4);}} /* for-each-loop3689 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static C_word C_fcall f_17891(C_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=( /* compiler.scm:2047: g3690 */ f_16809(((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);}} /* k17840 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_17842(C_word 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_17842,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)((C_word*)t0)[2])[1]; if(C_truep(t2)){ t3=C_slot(t2,C_fix(2)); t4=C_i_car(t3); /* compiler.scm:2077: set-real-name! */ t5=*((C_word*)lf[90]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t4; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=((C_word*)((C_word*)t0)[5])[1]; t4=C_slot(t3,C_fix(2)); t5=C_i_car(t4); /* compiler.scm:2077: set-real-name! */ t6=*((C_word*)lf[90]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=t5; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_16951(2,av2);}}} /* k10503 in k10488 in k10485 in k10482 in k10465 in k10448 in k10445 in k10442 in k10430 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in ... */ static void C_fcall f_10505(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_10505,2,t0,t1);} a=C_alloc(9); t2=C_a_i_list(&a,3,lf[142],((C_word*)t0)[2],t1); /* compiler.scm:1088: walk */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6925(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]);} /* k8316 in g853 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8318(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8318,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8322,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_car(t4); /* compiler.scm:709: ##sys#strip-syntax */ t6=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k8312 in g853 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8314(C_word c,C_word *av){ C_word tmp; 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_8314,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k17837 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17839(C_word c,C_word *av){ C_word tmp; C_word t0=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_17839,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_17761(t2,C_SCHEME_FALSE);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17830,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2085: variable-hidden? */ t3=*((C_word*)lf[543]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k10549 in k10540 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_10551,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,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]=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*)t0)[4])){ t4=t3; f_10554(t4,C_SCHEME_UNDEFINED);} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10582,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10586,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:1105: fifth */ t6=*((C_word*)lf[298]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k10552 in k10549 in k10540 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_10554(C_word 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_10554,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[63]+1)); t4=C_mutate2((C_word*)lf[63]+1 /* (set! ##compiler#external-variables ...) */,t3); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10574,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); /* compiler.scm:1108: string-append */ t6=*((C_word*)lf[296]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=lf[297]; av2[3]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k17828 in k17837 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17830(C_word c,C_word *av){ C_word tmp; C_word t0=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_17830,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_17761(t2,C_SCHEME_FALSE);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17826,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:2086: variable-visible? */ t3=*((C_word*)lf[522]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* find-id in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_6503(C_word t0,C_word t1,C_word 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_6503,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_6516,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_6516(t10,C_i_symbolp(t9));} else{ t7=t4; f_6516(t7,C_SCHEME_FALSE);}}} /* ##compiler#canonicalize-expression in k6339 in k6336 in k6333 */ 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=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 *a; if(C_unlikely(!C_demand(C_calculate_demand(58,c,9)))){ C_save_and_reclaim((void *)f_6500,3,av);} a=C_alloc(58); 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_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(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6503,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t22=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6538,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t23=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6553,a[2]=t8,tmp=(C_word)a,a+=3,tmp)); t24=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6566,tmp=(C_word)a,a+=2,tmp)); t25=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6632,a[2]=t8,tmp=(C_word)a,a+=3,tmp)); t26=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6675,a[2]=t18,a[3]=t8,tmp=(C_word)a,a+=4,tmp)); t27=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6925,a[2]=t16,a[3]=t18,a[4]=t12,a[5]=t8,a[6]=t4,a[7]=t14,a[8]=t20,a[9]=t10,tmp=(C_word)a,a+=10,tmp)); t28=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11656,a[2]=t18,tmp=(C_word)a,a+=3,tmp)); t29=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11708,a[2]=t18,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_memq(lf[127],*((C_word*)lf[355]+1)))){ t30=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11746,a[2]=t29,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:1319: newline */ t31=*((C_word*)lf[356]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t31; av2[1]=t30; ((C_proc)(void*)(*((C_word*)t31+1)))(2,av2);}} else{ t30=t29;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t30; av2[1]=C_SCHEME_UNDEFINED; f_11708(2,av2);}}} /* k16293 in k16261 in k16258 in k16255 in k16252 in k16249 in k16235 in a16229 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16295(C_word c,C_word *av){ C_word tmp; C_word 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_16295,2,av);} /* compiler.scm:1950: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_15935(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);} /* k14313 in map-loop2911 in k14175 in k14347 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ static void C_ccall f_14315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_14315,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((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_14286(t7,((C_word*)t0)[6],t5,t6);} /* map-loop4105 in k18090 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_18109(C_word t0,C_word t1,C_word 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_18109,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_18134,a[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)); /* compiler.scm:2338: g4111 */ t5=((C_word*)t0)[4]; f_18100(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);}}} /* k18105 in k18090 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18107(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18107,2,av);} /* compiler.scm:2338: concatenate */ t2=*((C_word*)lf[552]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* g4111 in k18090 in k17998 in gather in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_fcall f_18100(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_18100,3,t0,t1,t2);} /* compiler.scm:2338: gather */ t3=((C_word*)((C_word*)t0)[2])[1]; f_17948(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k10540 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_10542,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=C_i_caddr(((C_word*)t0)[2]); t5=t4; t6=C_i_cadddr(((C_word*)t0)[2]); t7=t6; t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10551,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)[2],tmp=(C_word)a,a+=8,tmp); /* compiler.scm:1104: make-random-name */ t9=*((C_word*)lf[82]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* k18807 in k18785 in k18864 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18809(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18809,2,av);} /* compiler.scm:2447: ##sys#make-lambda-info */ t2=*((C_word*)lf[565]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18799 in k18785 in k18864 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18801(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_18801,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* compiler.scm:2443: append */ t3=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18803 in k18785 in k18864 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18805,2,av);} /* compiler.scm:2446: qnode */ t2=*((C_word*)lf[564]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* lookup in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_6538(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_6538,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6542,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* compiler.scm:415: find-id */ t5=((C_word*)((C_word*)t0)[2])[1]; f_6503(t5,t4,t2,t3);} /* a15135 in loop in k14970 in walk in perform-cps-conversion in k6339 in k6336 in k6333 */ 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=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(8,c,3)))){ C_save_and_reclaim((void *)f_15136,3,av);} a=C_alloc(8); t3=C_i_car(((C_word*)t0)[2]); t4=( /* compiler.scm:1756: node-for-var? */ f_14896(t2,t3) ); if(C_truep(t4)){ t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); t7=C_i_cdr(((C_word*)t0)[4]); /* compiler.scm:1757: loop */ t8=((C_word*)((C_word*)t0)[5])[1]; f_15113(t8,t1,t6,t7);} else{ t5=((C_word*)t0)[2]; t6=C_u_i_car(t5); t7=C_a_i_list1(&a,1,t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15172,a[2]=t2,a[3]=t1,a[4]=t8,tmp=(C_word)a,a+=5,tmp); t10=((C_word*)t0)[2]; t11=C_u_i_cdr(t10); t12=C_i_cdr(((C_word*)t0)[4]); /* compiler.scm:1760: loop */ t13=((C_word*)((C_word*)t0)[5])[1]; f_15113(t13,t9,t11,t12);}} /* k18815 in k18785 in k18864 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18817(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_18817,2,av);} a=C_alloc(3); t2=(C_truep(t1)?t1:lf[566]); t3=C_i_cdr(((C_word*)t0)[2]); t4=C_a_i_cons(&a,2,t2,t3); /* compiler.scm:2448: ->string */ t5=*((C_word*)lf[567]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6546 in k6540 in lookup in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_6548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6548,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?t1:((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6540 in lookup in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6542,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_6548,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler.scm:416: ##sys#get */ t3=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[86]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k19431 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_19433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19433,2,av);} /* compiler.scm:2488: qnode */ t2=*((C_word*)lf[564]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17820 in k17824 in k17828 in k17837 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17822,2,av);} t2=((C_word*)t0)[2]; f_17761(t2,C_i_not(t1));} /* k17824 in k17828 in k17837 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_17826,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_17761(t2,C_SCHEME_FALSE);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17822,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[3]; /* tweaks.scm:57: ##sys#get */ t4=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=lf[308]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k14354 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ static void C_ccall f_14356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14356,2,av);} /* compiler.scm:1643: set-real-name! */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19427 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_19429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,1)))){ C_save_and_reclaim((void *)f_19429,2,av);} a=C_alloc(11); t2=C_a_i_list1(&a,1,t1); t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); t4=((C_word*)t0)[3]; t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[469],lf[563],((C_word*)t0)[4],t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k8162 in k8155 in k8149 in k8140 in k8134 in k8131 in k8128 in k8125 in k8122 in a8113 in k8107 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8164,2,av);} /* compiler.scm:694: expand-profile-lambda */ t2=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6562 in k6555 in macro-alias in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6564,2,av);} /* compiler.scm:421: ##sys#put! */ t2=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* set-real-names! in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_6566(C_word t1,C_word 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_6566,3,t1,t2,t3);} a=C_alloc(5); t4=C_i_check_list_2(t2,lf[89]); t5=C_i_check_list_2(t3,lf[89]); 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_6583,a[2]=t7,tmp=(C_word)a,a+=3,tmp)); t9=((C_word*)t7)[1]; f_6583(t9,t1,t2,t3);} /* k6558 in k6555 in macro-alias in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_6560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6560,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k16261 in k16258 in k16255 in k16252 in k16249 in k16235 in a16229 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16263(C_word 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_16263,2,t0,t1);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16266,a[2]=((C_word*)t0)[2],a[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_16295,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); /* compiler.scm:1950: append */ t6=*((C_word*)lf[151]+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);}} /* k14347 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ static void C_ccall f_14349(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,2)))){ C_save_and_reclaim((void *)f_14349,2,av);} a=C_alloc(25); t2=C_a_i_cons(&a,2,t1,*((C_word*)lf[61]+1)); t3=C_mutate2((C_word*)lf[61]+1 /* (set! ##compiler#foreign-lambda-stubs ...) */,t2); t4=(C_truep(((C_word*)t0)[2])?C_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(24)):((C_word*)t0)[3]); t5=t4; t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14177,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]=t5,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])){ t7=C_a_i_list(&a,2,lf[98],((C_word*)t0)[10]); t8=t6; f_14177(t8,C_a_i_list(&a,1,t7));} else{ t7=t6; f_14177(t7,C_a_i_list(&a,2,lf[269],((C_word*)t0)[10]));}} /* k16258 in k16255 in k16252 in k16249 in k16235 in a16229 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_fcall f_16260(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_16260,2,t0,t1);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_16263,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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(*((C_word*)lf[74]+1),((C_word*)t0)[10]); if(C_truep(t3)){ t4=t2; f_16263(t4,C_SCHEME_UNDEFINED);} else{ t4=C_set_block_item(lf[73] /* ##compiler#toplevel-scope */,0,C_SCHEME_FALSE); t5=t2; f_16263(t5,t4);}} else{ t3=t2; f_16263(t3,C_SCHEME_UNDEFINED);}} /* k16264 in k16261 in k16258 in k16255 in k16252 in k16249 in k16235 in a16229 in k15970 in walk in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_16266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,1)))){ C_save_and_reclaim((void *)f_16266,2,av);} a=C_alloc(4); t2=C_mutate2((C_word*)lf[73]+1 /* (set! ##compiler#toplevel-scope ...) */,((C_word*)t0)[2]); t3=((C_word*)t0)[3]; t4=C_slot(t3,C_fix(2)); t5=C_i_cdddr(t4); t6=C_a_i_minus(&a,2,*((C_word*)lf[47]+1),((C_word*)t0)[4]); t7=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_i_set_car(t5,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k17179 in k17161 in k16967 in k16964 in k16961 in k16958 in k16955 in k16952 in k16949 in a16802 in k16791 in k16788 in k16784 in k15924 in analyze-expression in k6339 in k6336 in k6333 */ static void C_ccall f_17181(C_word c,C_word *av){ C_word tmp; C_word t0=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_17181,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_17169(t3,t2);} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17241,a[2]=((C_word*)t0)[2],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.scm:2204: get */ t3=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[494]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k18849 in map-loop4460 in k18864 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ static void C_ccall f_18851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_18851,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18826(t6,((C_word*)t0)[5],t5);} /* for-each-loop174 in set-real-names! in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_6583(C_word t0,C_word t1,C_word 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_6583,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_6593,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)); /* compiler.scm:425: set-real-name! */ t9=*((C_word*)lf[90]+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);}}} /* k8140 in k8134 in k8131 in k8128 in k8125 in k8122 in a8113 in k8107 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 in ... */ 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(8,c,2)))){ C_save_and_reclaim((void *)f_8142,2,av);} a=C_alloc(8); t2=C_i_not(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8151,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_8151(t4,t2);} else{ t4=((C_word*)t0)[8]; t5=t3; f_8151(t5,(C_truep(t4)?t4:C_i_assq(((C_word*)t0)[2],((C_word*)t0)[9])));}} /* k9960 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 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_9962,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[101]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9968,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.scm:953: ##sys#print */ t6=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[267]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9966 in k9960 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9968(C_word c,C_word *av){ C_word tmp; C_word t0=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_9968,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9971,a[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.scm:953: ##sys#print */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6514 in find-id in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_fcall f_6516(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_6516,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); /* compiler.scm:412: find-id */ t4=((C_word*)((C_word*)t0)[4])[1]; f_6503(t4,((C_word*)t0)[3],((C_word*)t0)[5],t3);}} /* k8155 in k8149 in k8140 in k8134 in k8131 in k8128 in k8125 in k8122 in a8113 in k8107 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_8157,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8164,a[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]; /* compiler.scm:694: expand-profile-lambda */ t4=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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{ /* compiler.scm:697: ##sys#alias-global-hook */ t3=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_7015,2,av);} a=C_alloc(18); t2=(C_truep(t1)?t1:((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_7021,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]=t3,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); /* compiler.scm:516: ##sys#expand */ t5=*((C_word*)lf[347]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[6]; av2[4]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_7012,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_7015,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],tmp=(C_word)a,a+=18,tmp); if(C_truep(C_i_symbolp(t2))){ /* compiler.scm:515: ##sys#get */ t4=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[98]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_7015(2,av2);}}} /* k8149 in k8140 in k8134 in k8131 in k8128 in k8125 in k8122 in a8113 in k8107 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in ... */ static void C_fcall f_8151(C_word 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_8151,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_8157,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[19]+1))){ t3=C_eqp(*((C_word*)lf[33]+1),lf[163]); if(C_truep(t3)){ t4=t2;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; f_8157(2,av2);}} else{ t4=C_eqp(*((C_word*)lf[33]+1),lf[164]); if(C_truep(t4)){ t5=((C_word*)t0)[6]; /* tweaks.scm:57: ##sys#get */ t6=*((C_word*)lf[85]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t2; av2[2]=t5; av2[3]=lf[165]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t5=t2;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_8157(2,av2);}}}} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_8157(2,av2);}}}} /* k14390 in map-loop2844 in k14150 in k14147 in create-foreign-stub in k6339 in k6336 in k6333 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_14392,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_14367(t6,((C_word*)t0)[5],t5);} /* k9930 in k9887 in k9884 in k9656 in k9650 in k9647 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_9932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9932,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t3))){ /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=lf[126]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_i_car(t3); /* tweaks.scm:54: ##sys#put! */ t5=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=lf[126]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k20411 in k20366 in k20363 in k20360 in k20357 in a20351 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_ccall f_20413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,5)))){ C_save_and_reclaim((void *)f_20413,2,av);} a=C_alloc(21); t2=(C_truep(t1)?t1:C_fix(0)); t3=t2; t4=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_20420,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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]=t3,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*)t0)[7]; if(C_truep(t5)){ t6=t4; f_20420(t6,C_SCHEME_FALSE);} else{ if(C_truep(C_i_greaterp(((C_word*)((C_word*)t0)[17])[1],C_fix(0)))){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20439,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* compiler.scm:2693: debugging */ t7=*((C_word*)lf[537]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t6; av2[2]=lf[583]; av2[3]=lf[615]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)((C_word*)t0)[17])[1]; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} else{ t6=t4; f_20420(t6,C_SCHEME_FALSE);}}} /* k8125 in k8122 in a8113 in k8107 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_8127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8127,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8130,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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],tmp=(C_word)a,a+=15,tmp); /* compiler.scm:670: ##sys#canonicalize-body */ t4=*((C_word*)lf[152]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[14])[1]; av2[3]=t2; av2[4]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7008(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7008,2,av);} a=C_alloc(17); t2=C_mutate2((C_word*)lf[112]+1 /* (set! ##sys#syntax-error-culprit ...) */,((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_7012,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); /* compiler.scm:514: lookup */ t6=((C_word*)((C_word*)t0)[12])[1]; f_6538(t6,t3,t5,((C_word*)t0)[5]);} /* k8122 in a8113 in k8107 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_8124,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8127,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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); /* compiler.scm:669: ##sys#extend-se */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[8]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ static void C_ccall f_7005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,3)))){ C_save_and_reclaim((void *)f_7005,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_7008,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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(C_i_listp(((C_word*)t0)[2]))){ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_7008(2,av2);}} else{ if(C_truep(((C_word*)t0)[9])){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11573,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:511: open-output-string */ t4=*((C_word*)lf[107]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* compiler.scm:512: ##sys#syntax-error/context */ t3=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[349]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}} /* k20418 in k20411 in k20366 in k20363 in k20360 in k20357 in a20351 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ static void C_fcall f_20420(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,4)))){ C_save_and_reclaim_args((void *)trf_20420,2,t0,t1);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_20424,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); if(C_truep(((C_word*)t0)[16])){ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[16]; f_20424(2,av2);}} else{ /* compiler.scm:2695: get */ t4=*((C_word*)lf[496]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[17]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[549]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k20422 in k20418 in k20411 in k20366 in k20363 in k20360 in k20357 in a20351 in walk in k19882 in prepare-for-code-generation in k6339 in k6336 in k6333 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,17)))){ C_save_and_reclaim((void *)f_20424,2,av);} /* compiler.scm:2678: make-lambda-literal */ t2=*((C_word*)lf[588]+1);{ C_word *av2; if(c >= 18) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(18); } 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*)((C_word*)t0)[9])[1]; av2[9]=((C_word*)((C_word*)t0)[10])[1]; av2[10]=((C_word*)((C_word*)t0)[11])[1]; av2[11]=((C_word*)t0)[12]; av2[12]=((C_word*)t0)[13]; av2[13]=((C_word*)t0)[14]; av2[14]=t1; av2[15]=((C_word*)t0)[15]; av2[16]=((C_word*)t0)[16]; av2[17]=((C_word*)t0)[17]; ((C_proc)(void*)(*((C_word*)t2+1)))(18,av2);}} /* a18880 in k18868 in k18983 in k18741 in k18738 in k18732 in k18726 in k18720 in k18717 in k18711 in k18702 in a18699 in k18564 in k18525 in transform in perform-closure-conversion in k6339 in k6336 in k6333 */ 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=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(14,c,1)))){ C_save_and_reclaim((void *)f_18881,5,av);} a=C_alloc(14); t5=C_a_i_list1(&a,1,t2); t6=C_a_i_list2(&a,2,t3,t4); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[469],lf[150],t5,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k7153 in k7145 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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(12,c,1)))){ C_save_and_reclaim((void *)f_7155,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,4,lf[121],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8134 in k8131 in k8128 in k8125 in k8122 in a8113 in k8107 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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(19,c,3)))){ C_save_and_reclaim((void *)f_8136,2,av);} a=C_alloc(19); t2=t1; t3=C_a_i_list(&a,3,lf[161],t2,((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8142,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],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); /* compiler.scm:684: set-real-names! */ f_6566(t5,((C_word*)t0)[9],((C_word*)t0)[10]);} /* k8131 in k8128 in k8125 in k8122 in a8113 in k8107 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_8133,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8136,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)[10])){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8207,a[2]=((C_word*)t0)[8],a[3]=t3,a[4]=((C_word*)t0)[11],tmp=(C_word)a,a+=5,tmp); /* compiler.scm:682: posq */ t5=*((C_word*)lf[167]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[10]; av2[3]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* compiler.scm:680: build-lambda-list */ t4=*((C_word*)lf[166]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t0)[11]; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k8128 in k8125 in k8122 in a8113 in k8107 in k7315 in k7034 in k7022 in k7019 in k7013 in k7010 in k7006 in k7003 in k6997 in walk in canonicalize-expression in k6339 in k6336 in k6333 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(45,c,2)))){ C_save_and_reclaim((void *)f_8130,2,av);} a=C_alloc(45); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8133,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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|8,a[1]=(C_word)f_8211,a[2]=((C_word*)t0)[12],a[3]=t2,a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[14],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); if(C_truep(*((C_word*)lf[13]+1))){ t4=C_a_i_list(&a,2,lf[91],((C_word*)t0)[2]); t5=C_a_i_list(&a,3,lf[168],lf[169],t4); t6=t3; f_8211(t6,C_a_i_list(&a,3,lf[142],t5,t1));} else{ t4=t3; f_8211(t4,t1);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[1185] = { {"f_12173:compiler_2escm",(void*)f_12173}, {"f_18866:compiler_2escm",(void*)f_18866}, {"f_6553:compiler_2escm",(void*)f_6553}, {"f_8114:compiler_2escm",(void*)f_8114}, {"f_6557:compiler_2escm",(void*)f_6557}, {"f_8109:compiler_2escm",(void*)f_8109}, {"f_18873:compiler_2escm",(void*)f_18873}, {"f_18870:compiler_2escm",(void*)f_18870}, {"f_15667:compiler_2escm",(void*)f_15667}, {"f_17427:compiler_2escm",(void*)f_17427}, {"f_17420:compiler_2escm",(void*)f_17420}, {"f_7193:compiler_2escm",(void*)f_7193}, {"f_15679:compiler_2escm",(void*)f_15679}, {"f_7036:compiler_2escm",(void*)f_7036}, {"f_17419:compiler_2escm",(void*)f_17419}, {"f_16230:compiler_2escm",(void*)f_16230}, {"f_9994:compiler_2escm",(void*)f_9994}, {"f_8787:compiler_2escm",(void*)f_8787}, {"f_16237:compiler_2escm",(void*)f_16237}, {"f_16238:compiler_2escm",(void*)f_16238}, {"f_7147:compiler_2escm",(void*)f_7147}, {"f_17445:compiler_2escm",(void*)f_17445}, {"f_7021:compiler_2escm",(void*)f_7021}, {"f_16242:compiler_2escm",(void*)f_16242}, {"f_17441:compiler_2escm",(void*)f_17441}, {"f_7024:compiler_2escm",(void*)f_7024}, {"f_15692:compiler_2escm",(void*)f_15692}, {"f_15698:compiler_2escm",(void*)f_15698}, {"f_6593:compiler_2escm",(void*)f_6593}, {"f_17430:compiler_2escm",(void*)f_17430}, {"f_18719:compiler_2escm",(void*)f_18719}, {"f_18713:compiler_2escm",(void*)f_18713}, {"f_11815:compiler_2escm",(void*)f_11815}, {"f_11818:compiler_2escm",(void*)f_11818}, {"f_17453:compiler_2escm",(void*)f_17453}, {"f_11802:compiler_2escm",(void*)f_11802}, {"f_11808:compiler_2escm",(void*)f_11808}, {"f_14367:compiler_2escm",(void*)f_14367}, {"f_11831:compiler_2escm",(void*)f_11831}, {"f_11837:compiler_2escm",(void*)f_11837}, {"f_9971:compiler_2escm",(void*)f_9971}, {"f_9977:compiler_2escm",(void*)f_9977}, {"f_9974:compiler_2escm",(void*)f_9974}, {"f_17492:compiler_2escm",(void*)f_17492}, {"f_12895:compiler_2escm",(void*)f_12895}, {"f_7766:compiler_2escm",(void*)f_7766}, {"f_15683:compiler_2escm",(void*)f_15683}, {"f_18826:compiler_2escm",(void*)f_18826}, {"f_15618:compiler_2escm",(void*)f_15618}, {"f_18700:compiler_2escm",(void*)f_18700}, {"f_18704:compiler_2escm",(void*)f_18704}, {"f_7732:compiler_2escm",(void*)f_7732}, {"f_8765:compiler_2escm",(void*)f_8765}, {"f_8760:compiler_2escm",(void*)f_8760}, {"f_11861:compiler_2escm",(void*)f_11861}, {"f_14565:compiler_2escm",(void*)f_14565}, {"f_18790:compiler_2escm",(void*)f_18790}, {"f_11867:compiler_2escm",(void*)f_11867}, {"f_15621:compiler_2escm",(void*)f_15621}, {"f_8739:compiler_2escm",(void*)f_8739}, {"f_8735:compiler_2escm",(void*)f_8735}, {"f_8731:compiler_2escm",(void*)f_8731}, {"f_11894:compiler_2escm",(void*)f_11894}, {"f_11898:compiler_2escm",(void*)f_11898}, {"f_11891:compiler_2escm",(void*)f_11891}, {"f_7728:compiler_2escm",(void*)f_7728}, {"f_8797:compiler_2escm",(void*)f_8797}, {"f_11823:compiler_2escm",(void*)f_11823}, {"f_11851:compiler_2escm",(void*)f_11851}, {"f_11858:compiler_2escm",(void*)f_11858}, {"f_11855:compiler_2escm",(void*)f_11855}, {"f_7752:compiler_2escm",(void*)f_7752}, {"f_20936:compiler_2escm",(void*)f_20936}, {"f_12813:compiler_2escm",(void*)f_12813}, {"f_15608:compiler_2escm",(void*)f_15608}, {"f_11840:compiler_2escm",(void*)f_11840}, {"f_18773:compiler_2escm",(void*)f_18773}, {"f_11843:compiler_2escm",(void*)f_11843}, {"f_11846:compiler_2escm",(void*)f_11846}, {"f_12803:compiler_2escm",(void*)f_12803}, {"f_11870:compiler_2escm",(void*)f_11870}, {"f_18781:compiler_2escm",(void*)f_18781}, {"f_11879:compiler_2escm",(void*)f_11879}, {"f_18787:compiler_2escm",(void*)f_18787}, {"f_17169:compiler_2escm",(void*)f_17169}, {"f_20957:compiler_2escm",(void*)f_20957}, {"f_12834:compiler_2escm",(void*)f_12834}, {"f_12837:compiler_2escm",(void*)f_12837}, {"f_17163:compiler_2escm",(void*)f_17163}, {"f_21559:compiler_2escm",(void*)f_21559}, {"f_21556:compiler_2escm",(void*)f_21556}, {"f_17463:compiler_2escm",(void*)f_17463}, {"f_20960:compiler_2escm",(void*)f_20960}, {"f_7188:compiler_2escm",(void*)f_7188}, {"f_21568:compiler_2escm",(void*)f_21568}, {"f_21565:compiler_2escm",(void*)f_21565}, {"f_21562:compiler_2escm",(void*)f_21562}, {"f_21579:compiler_2escm",(void*)f_21579}, {"f_21575:compiler_2escm",(void*)f_21575}, {"f_20902:compiler_2escm",(void*)f_20902}, {"f_21583:compiler_2escm",(void*)f_21583}, {"f_20914:compiler_2escm",(void*)f_20914}, {"f_20798:compiler_2escm",(void*)f_20798}, {"f_14514:compiler_2escm",(void*)f_14514}, {"f_14500:compiler_2escm",(void*)f_14500}, {"f_12795:compiler_2escm",(void*)f_12795}, {"f_20746:compiler_2escm",(void*)f_20746}, {"f_20740:compiler_2escm",(void*)f_20740}, {"f_18728:compiler_2escm",(void*)f_18728}, {"f_15098:compiler_2escm",(void*)f_15098}, {"f_18722:compiler_2escm",(void*)f_18722}, {"f_18734:compiler_2escm",(void*)f_18734}, {"f_14531:compiler_2escm",(void*)f_14531}, {"f_18743:compiler_2escm",(void*)f_18743}, {"f_18740:compiler_2escm",(void*)f_18740}, {"f_12753:compiler_2escm",(void*)f_12753}, {"f_14526:compiler_2escm",(void*)f_14526}, {"f_12749:compiler_2escm",(void*)f_12749}, {"f_14520:compiler_2escm",(void*)f_14520}, {"f_15089:compiler_2escm",(void*)f_15089}, {"f_14890:compiler_2escm",(void*)f_14890}, {"f_14896:compiler_2escm",(void*)f_14896}, {"f_15085:compiler_2escm",(void*)f_15085}, {"f_12745:compiler_2escm",(void*)f_12745}, {"f_14863:compiler_2escm",(void*)f_14863}, {"f_14869:compiler_2escm",(void*)f_14869}, {"f_12710:compiler_2escm",(void*)f_12710}, {"f_8228:compiler_2escm",(void*)f_8228}, {"f_12700:compiler_2escm",(void*)f_12700}, {"f_8215:compiler_2escm",(void*)f_8215}, {"f_8211:compiler_2escm",(void*)f_8211}, {"f_14839:compiler_2escm",(void*)f_14839}, {"f_14832:compiler_2escm",(void*)f_14832}, {"f_14835:compiler_2escm",(void*)f_14835}, {"f_13171:compiler_2escm",(void*)f_13171}, {"f_13167:compiler_2escm",(void*)f_13167}, {"f_13178:compiler_2escm",(void*)f_13178}, {"f_15009:compiler_2escm",(void*)f_15009}, {"f_11286:compiler_2escm",(void*)f_11286}, {"f_14805:compiler_2escm",(void*)f_14805}, {"f_21200:compiler_2escm",(void*)f_21200}, {"f_13148:compiler_2escm",(void*)f_13148}, {"f_21207:compiler_2escm",(void*)f_21207}, {"f_17395:compiler_2escm",(void*)f_17395}, {"f_21219:compiler_2escm",(void*)f_21219}, {"f_17385:compiler_2escm",(void*)f_17385}, {"f_17389:compiler_2escm",(void*)f_17389}, {"f_20462:compiler_2escm",(void*)f_20462}, {"f_13480:compiler_2escm",(void*)f_13480}, {"f_11200:compiler_2escm",(void*)f_11200}, {"f_20439:compiler_2escm",(void*)f_20439}, {"f_13124:compiler_2escm",(void*)f_13124}, {"f_13497:compiler_2escm",(void*)f_13497}, {"f_13494:compiler_2escm",(void*)f_13494}, {"f_8207:compiler_2escm",(void*)f_8207}, {"f_21175:compiler_2escm",(void*)f_21175}, {"f_20492:compiler_2escm",(void*)f_20492}, {"f_20498:compiler_2escm",(void*)f_20498}, {"f_17347:compiler_2escm",(void*)f_17347}, {"f_6449:compiler_2escm",(void*)f_6449}, {"f_21197:compiler_2escm",(void*)f_21197}, {"f_15044:compiler_2escm",(void*)f_15044}, {"f_6446:compiler_2escm",(void*)f_6446}, {"f_6443:compiler_2escm",(void*)f_6443}, {"f_13448:compiler_2escm",(void*)f_13448}, {"f_13440:compiler_2escm",(void*)f_13440}, {"f_6453:compiler_2escm",(void*)f_6453}, {"f_6457:compiler_2escm",(void*)f_6457}, {"f_21164:compiler_2escm",(void*)f_21164}, {"f_13458:compiler_2escm",(void*)f_13458}, {"f_15065:compiler_2escm",(void*)f_15065}, {"f_15061:compiler_2escm",(void*)f_15061}, {"f_6460:compiler_2escm",(void*)f_6460}, {"f_20483:compiler_2escm",(void*)f_20483}, {"f_19704:compiler_2escm",(void*)f_19704}, {"f_19707:compiler_2escm",(void*)f_19707}, {"f_17316:compiler_2escm",(void*)f_17316}, {"f_19701:compiler_2escm",(void*)f_19701}, {"f_15038:compiler_2escm",(void*)f_15038}, {"f_21186:compiler_2escm",(void*)f_21186}, {"f_6477:compiler_2escm",(void*)f_6477}, {"f_6470:compiler_2escm",(void*)f_6470}, {"f_8088:compiler_2escm",(void*)f_8088}, {"f_8824:compiler_2escm",(void*)f_8824}, {"f_8818:compiler_2escm",(void*)f_8818}, {"f_8810:compiler_2escm",(void*)f_8810}, {"f_8063:compiler_2escm",(void*)f_8063}, {"f_19745:compiler_2escm",(void*)f_19745}, {"f_6439:compiler_2escm",(void*)f_6439}, {"f_16615:compiler_2escm",(void*)f_16615}, {"f_16612:compiler_2escm",(void*)f_16612}, {"f_17331:compiler_2escm",(void*)f_17331}, {"f_16618:compiler_2escm",(void*)f_16618}, {"f_19710:compiler_2escm",(void*)f_19710}, {"f_8029:compiler_2escm",(void*)f_8029}, {"f_19781:compiler_2escm",(void*)f_19781}, {"f_15560:compiler_2escm",(void*)f_15560}, {"f_6484:compiler_2escm",(void*)f_6484}, {"f_15566:compiler_2escm",(void*)f_15566}, {"f_13114:compiler_2escm",(void*)f_13114}, {"f_8677:compiler_2escm",(void*)f_8677}, {"f_13106:compiler_2escm",(void*)f_13106}, {"f_16657:compiler_2escm",(void*)f_16657}, {"f_8673:compiler_2escm",(void*)f_8673}, {"f_6491:compiler_2escm",(void*)f_6491}, {"f_13582:compiler_2escm",(void*)f_13582}, {"f_15579:compiler_2escm",(void*)f_15579}, {"f_6498:compiler_2escm",(void*)f_6498}, {"f_8685:compiler_2escm",(void*)f_8685}, {"f_16666:compiler_2escm",(void*)f_16666}, {"f_16660:compiler_2escm",(void*)f_16660}, {"f_8681:compiler_2escm",(void*)f_8681}, {"f_7355:compiler_2escm",(void*)f_7355}, {"f_15583:compiler_2escm",(void*)f_15583}, {"f_7342:compiler_2escm",(void*)f_7342}, {"f_15595:compiler_2escm",(void*)f_15595}, {"f_15599:compiler_2escm",(void*)f_15599}, {"f_7359:compiler_2escm",(void*)f_7359}, {"f_19772:compiler_2escm",(void*)f_19772}, {"f_7334:compiler_2escm",(void*)f_7334}, {"f_18446:compiler_2escm",(void*)f_18446}, {"f_16693:compiler_2escm",(void*)f_16693}, {"f_11241:compiler_2escm",(void*)f_11241}, {"f_19763:compiler_2escm",(void*)f_19763}, {"f_13546:compiler_2escm",(void*)f_13546}, {"f_18419:compiler_2escm",(void*)f_18419}, {"f_13563:compiler_2escm",(void*)f_13563}, {"f_7338:compiler_2escm",(void*)f_7338}, {"f_19790:compiler_2escm",(void*)f_19790}, {"f_19799:compiler_2escm",(void*)f_19799}, {"f_12910:compiler_2escm",(void*)f_12910}, {"f_18421:compiler_2escm",(void*)f_18421}, {"f_13566:compiler_2escm",(void*)f_13566}, {"f_13569:compiler_2escm",(void*)f_13569}, {"f_15558:compiler_2escm",(void*)f_15558}, {"f_13500:compiler_2escm",(void*)f_13500}, {"f_7317:compiler_2escm",(void*)f_7317}, {"f_7305:compiler_2escm",(void*)f_7305}, {"f_7308:compiler_2escm",(void*)f_7308}, {"f_13506:compiler_2escm",(void*)f_13506}, {"f_12920:compiler_2escm",(void*)f_12920}, {"f_13522:compiler_2escm",(void*)f_13522}, {"f_13224:compiler_2escm",(void*)f_13224}, {"f_19018:compiler_2escm",(void*)f_19018}, {"f_13516:compiler_2escm",(void*)f_13516}, {"f_12951:compiler_2escm",(void*)f_12951}, {"f_19003:compiler_2escm",(void*)f_19003}, {"f_13230:compiler_2escm",(void*)f_13230}, {"f_13232:compiler_2escm",(void*)f_13232}, {"f_13529:compiler_2escm",(void*)f_13529}, {"f_12943:compiler_2escm",(void*)f_12943}, {"f_19067:compiler_2escm",(void*)f_19067}, {"f_13257:compiler_2escm",(void*)f_13257}, {"f_19064:compiler_2escm",(void*)f_19064}, {"f_18493:compiler_2escm",(void*)f_18493}, {"f_12961:compiler_2escm",(void*)f_12961}, {"f_7391:compiler_2escm",(void*)f_7391}, {"f_8693:compiler_2escm",(void*)f_8693}, {"f_7383:compiler_2escm",(void*)f_7383}, {"f_7397:compiler_2escm",(void*)f_7397}, {"f_19736:compiler_2escm",(void*)f_19736}, {"f_19730:compiler_2escm",(void*)f_19730}, {"f_7386:compiler_2escm",(void*)f_7386}, {"f_7389:compiler_2escm",(void*)f_7389}, {"f_19724:compiler_2escm",(void*)f_19724}, {"f_19095:compiler_2escm",(void*)f_19095}, {"f_19754:compiler_2escm",(void*)f_19754}, {"f_10800:compiler_2escm",(void*)f_10800}, {"f_10817:compiler_2escm",(void*)f_10817}, {"f_11196:compiler_2escm",(void*)f_11196}, {"f_11192:compiler_2escm",(void*)f_11192}, {"f_15529:compiler_2escm",(void*)f_15529}, {"f_15526:compiler_2escm",(void*)f_15526}, {"f_15522:compiler_2escm",(void*)f_15522}, {"f_11184:compiler_2escm",(void*)f_11184}, {"f_14647:compiler_2escm",(void*)f_14647}, {"f_14642:compiler_2escm",(void*)f_14642}, {"f_9307:compiler_2escm",(void*)f_9307}, {"f_9301:compiler_2escm",(void*)f_9301}, {"f_14636:compiler_2escm",(void*)f_14636}, {"f_14630:compiler_2escm",(void*)f_14630}, {"f_10198:compiler_2escm",(void*)f_10198}, {"f_9317:compiler_2escm",(void*)f_9317}, {"f_9311:compiler_2escm",(void*)f_9311}, {"f_9314:compiler_2escm",(void*)f_9314}, {"f_11160:compiler_2escm",(void*)f_11160}, {"f_12499:compiler_2escm",(void*)f_12499}, {"f_10122:compiler_2escm",(void*)f_10122}, {"f_10128:compiler_2escm",(void*)f_10128}, {"f_9327:compiler_2escm",(void*)f_9327}, {"f_16600:compiler_2escm",(void*)f_16600}, {"f_14616:compiler_2escm",(void*)f_14616}, {"f_14610:compiler_2escm",(void*)f_14610}, {"f_14613:compiler_2escm",(void*)f_14613}, {"f_10177:compiler_2escm",(void*)f_10177}, {"f_14681:compiler_2escm",(void*)f_14681}, {"f_19971:compiler_2escm",(void*)f_19971}, {"f_10876:compiler_2escm",(void*)f_10876}, {"f_18353:compiler_2escm",(void*)f_18353}, {"f_11131:compiler_2escm",(void*)f_11131}, {"f_18365:compiler_2escm",(void*)f_18365}, {"f_18360:compiler_2escm",(void*)f_18360}, {"f_19991:compiler_2escm",(void*)f_19991}, {"f_18374:compiler_2escm",(void*)f_18374}, {"f_18370:compiler_2escm",(void*)f_18370}, {"f_18377:compiler_2escm",(void*)f_18377}, {"f_10895:compiler_2escm",(void*)f_10895}, {"f_19984:compiler_2escm",(void*)f_19984}, {"f_18380:compiler_2escm",(void*)f_18380}, {"f_18389:compiler_2escm",(void*)f_18389}, {"f_18395:compiler_2escm",(void*)f_18395}, {"f_9382:compiler_2escm",(void*)f_9382}, {"f_9387:compiler_2escm",(void*)f_9387}, {"f_10118:compiler_2escm",(void*)f_10118}, {"f_10845:compiler_2escm",(void*)f_10845}, {"f_9395:compiler_2escm",(void*)f_9395}, {"f_12417:compiler_2escm",(void*)f_12417}, {"f_10851:compiler_2escm",(void*)f_10851}, {"f_10857:compiler_2escm",(void*)f_10857}, {"f_12443:compiler_2escm",(void*)f_12443}, {"f_12447:compiler_2escm",(void*)f_12447}, {"f_18409:compiler_2escm",(void*)f_18409}, {"f_14972:compiler_2escm",(void*)f_14972}, {"f_10863:compiler_2escm",(void*)f_10863}, {"f_10869:compiler_2escm",(void*)f_10869}, {"f_14607:compiler_2escm",(void*)f_14607}, {"f_14603:compiler_2escm",(void*)f_14603}, {"f_10105:compiler_2escm",(void*)f_10105}, {"f_7981:compiler_2escm",(void*)f_7981}, {"f_11401:compiler_2escm",(void*)f_11401}, {"f_11406:compiler_2escm",(void*)f_11406}, {"f_9086:compiler_2escm",(void*)f_9086}, {"f_9089:compiler_2escm",(void*)f_9089}, {"f_9080:compiler_2escm",(void*)f_9080}, {"f_9083:compiler_2escm",(void*)f_9083}, {"f_14984:compiler_2escm",(void*)f_14984}, {"f_14988:compiler_2escm",(void*)f_14988}, {"f_14987:compiler_2escm",(void*)f_14987}, {"f_9092:compiler_2escm",(void*)f_9092}, {"f_12407:compiler_2escm",(void*)f_12407}, {"f_14930:compiler_2escm",(void*)f_14930}, {"f_9068:compiler_2escm",(void*)f_9068}, {"f_7919:compiler_2escm",(void*)f_7919}, {"f_9061:compiler_2escm",(void*)f_9061}, {"f_9064:compiler_2escm",(void*)f_9064}, {"f_11412:compiler_2escm",(void*)f_11412}, {"f_9076:compiler_2escm",(void*)f_9076}, {"f_9072:compiler_2escm",(void*)f_9072}, {"f_9046:compiler_2escm",(void*)f_9046}, {"f_20523:compiler_2escm",(void*)f_20523}, {"f_9043:compiler_2escm",(void*)f_9043}, {"f_9058:compiler_2escm",(void*)f_9058}, {"f_9051:compiler_2escm",(void*)f_9051}, {"f_16103:compiler_2escm",(void*)f_16103}, {"f_9055:compiler_2escm",(void*)f_9055}, {"f_9025:compiler_2escm",(void*)f_9025}, {"f_10079:compiler_2escm",(void*)f_10079}, {"f_10075:compiler_2escm",(void*)f_10075}, {"f_9039:compiler_2escm",(void*)f_9039}, {"f_9031:compiler_2escm",(void*)f_9031}, {"f_7907:compiler_2escm",(void*)f_7907}, {"f_9034:compiler_2escm",(void*)f_9034}, {"f_16121:compiler_2escm",(void*)f_16121}, {"f_7903:compiler_2escm",(void*)f_7903}, {"f_9009:compiler_2escm",(void*)f_9009}, {"f_20574:compiler_2escm",(void*)f_20574}, {"f_20582:compiler_2escm",(void*)f_20582}, {"f_20586:compiler_2escm",(void*)f_20586}, {"f_10047:compiler_2escm",(void*)f_10047}, {"f_13389:compiler_2escm",(void*)f_13389}, {"f_12394:compiler_2escm",(void*)f_12394}, {"f_19952:compiler_2escm",(void*)f_19952}, {"f_19955:compiler_2escm",(void*)f_19955}, {"f_12384:compiler_2escm",(void*)f_12384}, {"f_20352:compiler_2escm",(void*)f_20352}, {"f_19940:compiler_2escm",(void*)f_19940}, {"f_19945:compiler_2escm",(void*)f_19945}, {"f_19949:compiler_2escm",(void*)f_19949}, {"f_16173:compiler_2escm",(void*)f_16173}, {"f_16177:compiler_2escm",(void*)f_16177}, {"f_20359:compiler_2escm",(void*)f_20359}, {"f_12335:compiler_2escm",(void*)f_12335}, {"f_16186:compiler_2escm",(void*)f_16186}, {"f_16188:compiler_2escm",(void*)f_16188}, {"f_13379:compiler_2escm",(void*)f_13379}, {"f_13371:compiler_2escm",(void*)f_13371}, {"f_20379:compiler_2escm",(void*)f_20379}, {"f_10153:compiler_2escm",(void*)f_10153}, {"f_20371:compiler_2escm",(void*)f_20371}, {"f_16198:compiler_2escm",(void*)f_16198}, {"f_16130:compiler_2escm",(void*)f_16130}, {"f_21272:compiler_2escm",(void*)f_21272}, {"f_13311:compiler_2escm",(void*)f_13311}, {"f_18309:compiler_2escm",(void*)f_18309}, {"f_18305:compiler_2escm",(void*)f_18305}, {"f_10020:compiler_2escm",(void*)f_10020}, {"f_10022:compiler_2escm",(void*)f_10022}, {"f_16136:compiler_2escm",(void*)f_16136}, {"f_16133:compiler_2escm",(void*)f_16133}, {"f_20365:compiler_2escm",(void*)f_20365}, {"f_20368:compiler_2escm",(void*)f_20368}, {"f_20362:compiler_2escm",(void*)f_20362}, {"f_10780:compiler_2escm",(void*)f_10780}, {"f_10783:compiler_2escm",(void*)f_10783}, {"f_19924:compiler_2escm",(void*)f_19924}, {"f_13303:compiler_2escm",(void*)f_13303}, {"f_12308:compiler_2escm",(void*)f_12308}, {"f_16163:compiler_2escm",(void*)f_16163}, {"f_16161:compiler_2escm",(void*)f_16161}, {"f_18990:compiler_2escm",(void*)f_18990}, {"f_10760:compiler_2escm",(void*)f_10760}, {"f_10774:compiler_2escm",(void*)f_10774}, {"f_13321:compiler_2escm",(void*)f_13321}, {"f_10777:compiler_2escm",(void*)f_10777}, {"f_9343:compiler_2escm",(void*)f_9343}, {"f_9347:compiler_2escm",(void*)f_9347}, {"f_15359:compiler_2escm",(void*)f_15359}, {"f_15350:compiler_2escm",(void*)f_15350}, {"f_10743:compiler_2escm",(void*)f_10743}, {"f_10746:compiler_2escm",(void*)f_10746}, {"f_16015:compiler_2escm",(void*)f_16015}, {"f_9350:compiler_2escm",(void*)f_9350}, {"f_9352:compiler_2escm",(void*)f_9352}, {"f_9356:compiler_2escm",(void*)f_9356}, {"f_9359:compiler_2escm",(void*)f_9359}, {"f_15321:compiler_2escm",(void*)f_15321}, {"f_10757:compiler_2escm",(void*)f_10757}, {"f_7933:compiler_2escm",(void*)f_7933}, {"f_9363:compiler_2escm",(void*)f_9363}, {"f_20685:compiler_2escm",(void*)f_20685}, {"f_9367:compiler_2escm",(void*)f_9367}, {"f_10723:compiler_2escm",(void*)f_10723}, {"f_10728:compiler_2escm",(void*)f_10728}, {"f_9373:compiler_2escm",(void*)f_9373}, {"f_9370:compiler_2escm",(void*)f_9370}, {"f_12360:compiler_2escm",(void*)f_12360}, {"f_18985:compiler_2escm",(void*)f_18985}, {"f_16345:compiler_2escm",(void*)f_16345}, {"f_12285:compiler_2escm",(void*)f_12285}, {"f_16313:compiler_2escm",(void*)f_16313}, {"f_12275:compiler_2escm",(void*)f_12275}, {"f_16045:compiler_2escm",(void*)f_16045}, {"f_16048:compiler_2escm",(void*)f_16048}, {"f_10003:compiler_2escm",(void*)f_10003}, {"f_16098:compiler_2escm",(void*)f_16098}, {"f_12298:compiler_2escm",(void*)f_12298}, {"f_10011:compiler_2escm",(void*)f_10011}, {"f_16381:compiler_2escm",(void*)f_16381}, {"f_13836:compiler_2escm",(void*)f_13836}, {"f_16378:compiler_2escm",(void*)f_16378}, {"f_8984:compiler_2escm",(void*)f_8984}, {"f_16372:compiler_2escm",(void*)f_16372}, {"f_16375:compiler_2escm",(void*)f_16375}, {"f_8397:compiler_2escm",(void*)f_8397}, {"f_8393:compiler_2escm",(void*)f_8393}, {"f_19327:compiler_2escm",(void*)f_19327}, {"f_8968:compiler_2escm",(void*)f_8968}, {"f_8364:compiler_2escm",(void*)f_8364}, {"f_16369:compiler_2escm",(void*)f_16369}, {"f_16366:compiler_2escm",(void*)f_16366}, {"f_18931:compiler_2escm",(void*)f_18931}, {"f_18933:compiler_2escm",(void*)f_18933}, {"f_8970:compiler_2escm",(void*)f_8970}, {"f_15419:compiler_2escm",(void*)f_15419}, {"f_14763:compiler_2escm",(void*)f_14763}, {"f_19331:compiler_2escm",(void*)f_19331}, {"f_8956:compiler_2escm",(void*)f_8956}, {"f_14754:compiler_2escm",(void*)f_14754}, {"f_12245:compiler_2escm",(void*)f_12245}, {"f_14757:compiler_2escm",(void*)f_14757}, {"f_19351:compiler_2escm",(void*)f_19351}, {"f_12239:compiler_2escm",(void*)f_12239}, {"f_8935:compiler_2escm",(void*)f_8935}, {"f_13846:compiler_2escm",(void*)f_13846}, {"f_12267:compiler_2escm",(void*)f_12267}, {"f_20977:compiler_2escm",(void*)f_20977}, {"f_20971:compiler_2escm",(void*)f_20971}, {"f_17004:compiler_2escm",(void*)f_17004}, {"f_20986:compiler_2escm",(void*)f_20986}, {"f_20983:compiler_2escm",(void*)f_20983}, {"f_20980:compiler_2escm",(void*)f_20980}, {"f_14799:compiler_2escm",(void*)f_14799}, {"f_20989:compiler_2escm",(void*)f_20989}, {"f_18924:compiler_2escm",(void*)f_18924}, {"f_7800:compiler_2escm",(void*)f_7800}, {"f_16331:compiler_2escm",(void*)f_16331}, {"f_20099:compiler_2escm",(void*)f_20099}, {"f_18958:compiler_2escm",(void*)f_18958}, {"f_15972:compiler_2escm",(void*)f_15972}, {"f_15984:compiler_2escm",(void*)f_15984}, {"f_16321:compiler_2escm",(void*)f_16321}, {"f_20077:compiler_2escm",(void*)f_20077}, {"f_20083:compiler_2escm",(void*)f_20083}, {"f_18902:compiler_2escm",(void*)f_18902}, {"f_15926:compiler_2escm",(void*)f_15926}, {"f_12576:compiler_2escm",(void*)f_12576}, {"f_15935:compiler_2escm",(void*)f_15935}, {"f_14782:compiler_2escm",(void*)f_14782}, {"f_21028:compiler_2escm",(void*)f_21028}, {"f_14773:compiler_2escm",(void*)f_14773}, {"f_7876:compiler_2escm",(void*)f_7876}, {"f_12598:compiler_2escm",(void*)f_12598}, {"f_21022:compiler_2escm",(void*)f_21022}, {"f_7850:compiler_2escm",(void*)f_7850}, {"f_21047:compiler_2escm",(void*)f_21047}, {"f_7844:compiler_2escm",(void*)f_7844}, {"f_21057:compiler_2escm",(void*)f_21057}, {"f_16552:compiler_2escm",(void*)f_16552}, {"f_16550:compiler_2escm",(void*)f_16550}, {"f_15901:compiler_2escm",(void*)f_15901}, {"f_15919:compiler_2escm",(void*)f_15919}, {"f_15910:compiler_2escm",(void*)f_15910}, {"f_12507:compiler_2escm",(void*)f_12507}, {"f_9193:compiler_2escm",(void*)f_9193}, {"f_9197:compiler_2escm",(void*)f_9197}, {"f_11711:compiler_2escm",(void*)f_11711}, {"f_9707:compiler_2escm",(void*)f_9707}, {"f_11708:compiler_2escm",(void*)f_11708}, {"f_9717:compiler_2escm",(void*)f_9717}, {"f_12517:compiler_2escm",(void*)f_12517}, {"f_9186:compiler_2escm",(void*)f_9186}, {"f_17030:compiler_2escm",(void*)f_17030}, {"f_12566:compiler_2escm",(void*)f_12566}, {"f_9150:compiler_2escm",(void*)f_9150}, {"f_8419:compiler_2escm",(void*)f_8419}, {"f_8416:compiler_2escm",(void*)f_8416}, {"f_19307:compiler_2escm",(void*)f_19307}, {"f_12558:compiler_2escm",(void*)f_12558}, {"f_8401:compiler_2escm",(void*)f_8401}, {"f_9146:compiler_2escm",(void*)f_9146}, {"f_9113:compiler_2escm",(void*)f_9113}, {"f_9167:compiler_2escm",(void*)f_9167}, {"f_10487:compiler_2escm",(void*)f_10487}, {"f_10484:compiler_2escm",(void*)f_10484}, {"f_11789:compiler_2escm",(void*)f_11789}, {"f_9136:compiler_2escm",(void*)f_9136}, {"f_9133:compiler_2escm",(void*)f_9133}, {"f_10490:compiler_2escm",(void*)f_10490}, {"f_13978:compiler_2escm",(void*)f_13978}, {"f_9724:compiler_2escm",(void*)f_9724}, {"f_9107:compiler_2escm",(void*)f_9107}, {"f_13990:compiler_2escm",(void*)f_13990}, {"f_8920:compiler_2escm",(void*)f_8920}, {"f_8925:compiler_2escm",(void*)f_8925}, {"f_13984:compiler_2escm",(void*)f_13984}, {"f_8918:compiler_2escm",(void*)f_8918}, {"f_11751:compiler_2escm",(void*)f_11751}, {"f_13999:compiler_2escm",(void*)f_13999}, {"f_11754:compiler_2escm",(void*)f_11754}, {"f_9123:compiler_2escm",(void*)f_9123}, {"f_11740:compiler_2escm",(void*)f_11740}, {"f_11746:compiler_2escm",(void*)f_11746}, {"f_10450:compiler_2escm",(void*)f_10450}, {"f_16564:compiler_2escm",(void*)f_16564}, {"f_11730:compiler_2escm",(void*)f_11730}, {"f_9765:compiler_2escm",(void*)f_9765}, {"f_10467:compiler_2escm",(void*)f_10467}, {"f_9768:compiler_2escm",(void*)f_9768}, {"f_16574:compiler_2escm",(void*)f_16574}, {"f_11722:compiler_2escm",(void*)f_11722}, {"f_11726:compiler_2escm",(void*)f_11726}, {"f_21006:compiler_2escm",(void*)f_21006}, {"f_13672:compiler_2escm",(void*)f_13672}, {"f_16587:compiler_2escm",(void*)f_16587}, {"f_8420:compiler_2escm",(void*)f_8420}, {"f_18020:compiler_2escm",(void*)f_18020}, {"f_18024:compiler_2escm",(void*)f_18024}, {"f_20664:compiler_2escm",(void*)f_20664}, {"f_20660:compiler_2escm",(void*)f_20660}, {"f_15205:compiler_2escm",(void*)f_15205}, {"f_13658:compiler_2escm",(void*)f_13658}, {"f_9751:compiler_2escm",(void*)f_9751}, {"f_9759:compiler_2escm",(void*)f_9759}, {"f_18000:compiler_2escm",(void*)f_18000}, {"f_20637:compiler_2escm",(void*)f_20637}, {"f_18009:compiler_2escm",(void*)f_18009}, {"f_20633:compiler_2escm",(void*)f_20633}, {"f_15218:compiler_2escm",(void*)f_15218}, {"f_18012:compiler_2escm",(void*)f_18012}, {"f_10381:compiler_2escm",(void*)f_10381}, {"f_21327:compiler_2escm",(void*)f_21327}, {"f_15233:compiler_2escm",(void*)f_15233}, {"f_18655:compiler_2escm",(void*)f_18655}, {"f_18058:compiler_2escm",(void*)f_18058}, {"f_20018:compiler_2escm",(void*)f_20018}, {"f_18625:compiler_2escm",(void*)f_18625}, {"f_10432:compiler_2escm",(void*)f_10432}, {"f_10393:compiler_2escm",(void*)f_10393}, {"f_10444:compiler_2escm",(void*)f_10444}, {"f_10447:compiler_2escm",(void*)f_10447}, {"f_18602:compiler_2escm",(void*)f_18602}, {"f_10375:compiler_2escm",(void*)f_10375}, {"f_10378:compiler_2escm",(void*)f_10378}, {"f_6709:compiler_2escm",(void*)f_6709}, {"f_20005:compiler_2escm",(void*)f_20005}, {"f_15297:compiler_2escm",(void*)f_15297}, {"f_18092:compiler_2escm",(void*)f_18092}, {"f_16417:compiler_2escm",(void*)f_16417}, {"f_10353:compiler_2escm",(void*)f_10353}, {"f_6713:compiler_2escm",(void*)f_6713}, {"f_10366:compiler_2escm",(void*)f_10366}, {"f_7607:compiler_2escm",(void*)f_7607}, {"f_16474:compiler_2escm",(void*)f_16474}, {"f_7601:compiler_2escm",(void*)f_7601}, {"f_13728:compiler_2escm",(void*)f_13728}, {"f_10314:compiler_2escm",(void*)f_10314}, {"f_6766:compiler_2escm",(void*)f_6766}, {"f_13735:compiler_2escm",(void*)f_13735}, {"f_13738:compiler_2escm",(void*)f_13738}, {"f_11934:compiler_2escm",(void*)f_11934}, {"f_10327:compiler_2escm",(void*)f_10327}, {"f_17676:compiler_2escm",(void*)f_17676}, {"f_6773:compiler_2escm",(void*)f_6773}, {"f_8894:compiler_2escm",(void*)f_8894}, {"f_9227:compiler_2escm",(void*)f_9227}, {"f_9222:compiler_2escm",(void*)f_9222}, {"f_11925:compiler_2escm",(void*)f_11925}, {"f_19593:compiler_2escm",(void*)f_19593}, {"f_6787:compiler_2escm",(void*)f_6787}, {"f_6783:compiler_2escm",(void*)f_6783}, {"f_19598:compiler_2escm",(void*)f_19598}, {"f_9233:compiler_2escm",(void*)f_9233}, {"f_7636:compiler_2escm",(void*)f_7636}, {"f_17696:compiler_2escm",(void*)f_17696}, {"f_8274:compiler_2escm",(void*)f_8274}, {"f_9206:compiler_2escm",(void*)f_9206}, {"f_9204:compiler_2escm",(void*)f_9204}, {"f_18667:compiler_2escm",(void*)f_18667}, {"f_9771:compiler_2escm",(void*)f_9771}, {"f_9778:compiler_2escm",(void*)f_9778}, {"f_6727:compiler_2escm",(void*)f_6727}, {"f_12075:compiler_2escm",(void*)f_12075}, {"f_21099:compiler_2escm",(void*)f_21099}, {"f_8286:compiler_2escm",(void*)f_8286}, {"f_16468:compiler_2escm",(void*)f_16468}, {"f_9218:compiler_2escm",(void*)f_9218}, {"f_9212:compiler_2escm",(void*)f_9212}, {"f_12071:compiler_2escm",(void*)f_12071}, {"f_9785:compiler_2escm",(void*)f_9785}, {"f_6966:compiler_2escm",(void*)f_6966}, {"f_6963:compiler_2escm",(void*)f_6963}, {"f_6734:compiler_2escm",(void*)f_6734}, {"f_7680:compiler_2escm",(void*)f_7680}, {"f_8707:compiler_2escm",(void*)f_8707}, {"f_8856:compiler_2escm",(void*)f_8856}, {"f_8703:compiler_2escm",(void*)f_8703}, {"f_9792:compiler_2escm",(void*)f_9792}, {"f_9798:compiler_2escm",(void*)f_9798}, {"f_8253:compiler_2escm",(void*)f_8253}, {"f_6969:compiler_2escm",(void*)f_6969}, {"f_6972:compiler_2escm",(void*)f_6972}, {"f_6744:compiler_2escm",(void*)f_6744}, {"f_6748:compiler_2escm",(void*)f_6748}, {"f_8869:compiler_2escm",(void*)f_8869}, {"f_8268:compiler_2escm",(void*)f_8268}, {"f_11952:compiler_2escm",(void*)f_11952}, {"f_8263:compiler_2escm",(void*)f_8263}, {"f_10340:compiler_2escm",(void*)f_10340}, {"f_11958:compiler_2escm",(void*)f_11958}, {"f_11955:compiler_2escm",(void*)f_11955}, {"f_16716:compiler_2escm",(void*)f_16716}, {"f_6984:compiler_2escm",(void*)f_6984}, {"f_7400:compiler_2escm",(void*)f_7400}, {"f_15263:compiler_2escm",(void*)f_15263}, {"f_15267:compiler_2escm",(void*)f_15267}, {"f_19635:compiler_2escm",(void*)f_19635}, {"f_11940:compiler_2escm",(void*)f_11940}, {"f_16726:compiler_2escm",(void*)f_16726}, {"f_7655:compiler_2escm",(void*)f_7655}, {"f_8846:compiler_2escm",(void*)f_8846}, {"f_6999:compiler_2escm",(void*)f_6999}, {"f_12025:compiler_2escm",(void*)f_12025}, {"f_12029:compiler_2escm",(void*)f_12029}, {"f_13747:compiler_2escm",(void*)f_13747}, {"f_19610:compiler_2escm",(void*)f_19610}, {"f_13741:compiler_2escm",(void*)f_13741}, {"f_17241:compiler_2escm",(void*)f_17241}, {"f_13757:compiler_2escm",(void*)f_13757}, {"f_15892:compiler_2escm",(void*)f_15892}, {"f_9283:compiler_2escm",(void*)f_9283}, {"f_9286:compiler_2escm",(void*)f_9286}, {"f_9280:compiler_2escm",(void*)f_9280}, {"f_9289:compiler_2escm",(void*)f_9289}, {"f_13763:compiler_2escm",(void*)f_13763}, {"f_11900:compiler_2escm",(void*)f_11900}, {"f_19676:compiler_2escm",(void*)f_19676}, {"f_17642:compiler_2escm",(void*)f_17642}, {"f_9295:compiler_2escm",(void*)f_9295}, {"f_9292:compiler_2escm",(void*)f_9292}, {"f_9298:compiler_2escm",(void*)f_9298}, {"f_16765:compiler_2escm",(void*)f_16765}, {"f_11979:compiler_2escm",(void*)f_11979}, {"f_17632:compiler_2escm",(void*)f_17632}, {"f_17638:compiler_2escm",(void*)f_17638}, {"f_9268:compiler_2escm",(void*)f_9268}, {"f_11961:compiler_2escm",(void*)f_11961}, {"f_7454:compiler_2escm",(void*)f_7454}, {"f_7452:compiler_2escm",(void*)f_7452}, {"f_13700:compiler_2escm",(void*)f_13700}, {"f_15883:compiler_2escm",(void*)f_15883}, {"f_9276:compiler_2escm",(void*)f_9276}, {"f_9274:compiler_2escm",(void*)f_9274}, {"f_16786:compiler_2escm",(void*)f_16786}, {"f_6905:compiler_2escm",(void*)f_6905}, {"f_7506:compiler_2escm",(void*)f_7506}, {"f_17659:compiler_2escm",(void*)f_17659}, {"f_7509:compiler_2escm",(void*)f_7509}, {"f_13710:compiler_2escm",(void*)f_13710}, {"f_17232:compiler_2escm",(void*)f_17232}, {"f_7500:compiler_2escm",(void*)f_7500}, {"f_7486:compiler_2escm",(void*)f_7486}, {"f_17651:compiler_2escm",(void*)f_17651}, {"f_12004:compiler_2escm",(void*)f_12004}, {"f_12000:compiler_2escm",(void*)f_12000}, {"f_16793:compiler_2escm",(void*)f_16793}, {"f_16790:compiler_2escm",(void*)f_16790}, {"f_16797:compiler_2escm",(void*)f_16797}, {"f_6912:compiler_2escm",(void*)f_6912}, {"f_17228:compiler_2escm",(void*)f_17228}, {"f_17224:compiler_2escm",(void*)f_17224}, {"f_16428:compiler_2escm",(void*)f_16428}, {"f_8570:compiler_2escm",(void*)f_8570}, {"f_6919:compiler_2escm",(void*)f_6919}, {"f_15874:compiler_2escm",(void*)f_15874}, {"f_17251:compiler_2escm",(void*)f_17251}, {"f_21069:compiler_2escm",(void*)f_21069}, {"f_7469:compiler_2escm",(void*)f_7469}, {"f_18683:compiler_2escm",(void*)f_18683}, {"f_19695:compiler_2escm",(void*)f_19695}, {"f_19698:compiler_2escm",(void*)f_19698}, {"f_21075:compiler_2escm",(void*)f_21075}, {"f_21072:compiler_2escm",(void*)f_21072}, {"f_7549:compiler_2escm",(void*)f_7549}, {"f_7448:compiler_2escm",(void*)f_7448}, {"f_15862:compiler_2escm",(void*)f_15862}, {"f_15868:compiler_2escm",(void*)f_15868}, {"f_7534:compiler_2escm",(void*)f_7534}, {"f_7524:compiler_2escm",(void*)f_7524}, {"f_7425:compiler_2escm",(void*)f_7425}, {"f_17290:compiler_2escm",(void*)f_17290}, {"f_7515:compiler_2escm",(void*)f_7515}, {"f_15808:compiler_2escm",(void*)f_15808}, {"f_18539:compiler_2escm",(void*)f_18539}, {"f_7512:compiler_2escm",(void*)f_7512}, {"f_7589:compiler_2escm",(void*)f_7589}, {"f_9652:compiler_2escm",(void*)f_9652}, {"f_7577:compiler_2escm",(void*)f_7577}, {"f_9658:compiler_2escm",(void*)f_9658}, {"f_15826:compiler_2escm",(void*)f_15826}, {"f_15820:compiler_2escm",(void*)f_15820}, {"f_9665:compiler_2escm",(void*)f_9665}, {"f_7569:compiler_2escm",(void*)f_7569}, {"f_8293:compiler_2escm",(void*)f_8293}, {"f_7561:compiler_2escm",(void*)f_7561}, {"f_8548:compiler_2escm",(void*)f_8548}, {"f_9630:compiler_2escm",(void*)f_9630}, {"f_7558:compiler_2escm",(void*)f_7558}, {"f_7493:compiler_2escm",(void*)f_7493}, {"f_12054:compiler_2escm",(void*)f_12054}, {"f_12058:compiler_2escm",(void*)f_12058}, {"f_8556:compiler_2escm",(void*)f_8556}, {"f_7555:compiler_2escm",(void*)f_7555}, {"f_12050:compiler_2escm",(void*)f_12050}, {"f_19644:compiler_2escm",(void*)f_19644}, {"f_8552:compiler_2escm",(void*)f_8552}, {"f_14071:compiler_2escm",(void*)f_14071}, {"f_21156:compiler_2escm",(void*)f_21156}, {"f_7475:compiler_2escm",(void*)f_7475}, {"f_18599:compiler_2escm",(void*)f_18599}, {"f_7479:compiler_2escm",(void*)f_7479}, {"f_14062:compiler_2escm",(void*)f_14062}, {"f_18566:compiler_2escm",(void*)f_18566}, {"f_14053:compiler_2escm",(void*)f_14053}, {"f_19655:compiler_2escm",(void*)f_19655}, {"f_7597:compiler_2escm",(void*)f_7597}, {"f_19651:compiler_2escm",(void*)f_19651}, {"f_7593:compiler_2escm",(void*)f_7593}, {"f_21369:compiler_2escm",(void*)f_21369}, {"f_21140:compiler_2escm",(void*)f_21140}, {"f_18587:compiler_2escm",(void*)f_18587}, {"f_9241:compiler_2escm",(void*)f_9241}, {"f_9243:compiler_2escm",(void*)f_9243}, {"f_9249:compiler_2escm",(void*)f_9249}, {"f_21378:compiler_2escm",(void*)f_21378}, {"f_20710:compiler_2escm",(void*)f_20710}, {"f_20716:compiler_2escm",(void*)f_20716}, {"f_14026:compiler_2escm",(void*)f_14026}, {"f_20713:compiler_2escm",(void*)f_20713}, {"f_10999:compiler_2escm",(void*)f_10999}, {"f_6925:compiler_2escm",(void*)f_6925}, {"f_21385:compiler_2escm",(void*)f_21385}, {"f_14017:compiler_2escm",(void*)f_14017}, {"f_6935:compiler_2escm",(void*)f_6935}, {"f_9403:compiler_2escm",(void*)f_9403}, {"f_14008:compiler_2escm",(void*)f_14008}, {"f_9649:compiler_2escm",(void*)f_9649}, {"f_6941:compiler_2escm",(void*)f_6941}, {"f_9695:compiler_2escm",(void*)f_9695}, {"f_10989:compiler_2escm",(void*)f_10989}, {"f_6957:compiler_2escm",(void*)f_6957}, {"f_21332:compiler_2escm",(void*)f_21332}, {"f_10266:compiler_2escm",(void*)f_10266}, {"f_10270:compiler_2escm",(void*)f_10270}, {"f_11021:compiler_2escm",(void*)f_11021}, {"f_21344:compiler_2escm",(void*)f_21344}, {"f_11024:compiler_2escm",(void*)f_11024}, {"f_11378:compiler_2escm",(void*)f_11378}, {"f_9672:compiler_2escm",(void*)f_9672}, {"f_11372:compiler_2escm",(void*)f_11372}, {"f_10288:compiler_2escm",(void*)f_10288}, {"f_11055:compiler_2escm",(void*)f_11055}, {"f_11059:compiler_2escm",(void*)f_11059}, {"f_16700:compiler_2escm",(void*)f_16700}, {"f_9603:compiler_2escm",(void*)f_9603}, {"f_9605:compiler_2escm",(void*)f_9605}, {"f_21408:compiler_2escm",(void*)f_21408}, {"f_11043:compiler_2escm",(void*)f_11043}, {"f_10299:compiler_2escm",(void*)f_10299}, {"f_10295:compiler_2escm",(void*)f_10295}, {"f_9428:compiler_2escm",(void*)f_9428}, {"f_21111:compiler_2escm",(void*)f_21111}, {"f_11071:compiler_2escm",(void*)f_11071}, {"f_10225:compiler_2escm",(void*)f_10225}, {"f_21428:compiler_2escm",(void*)f_21428}, {"f_9437:compiler_2escm",(void*)f_9437}, {"f_18527:compiler_2escm",(void*)f_18527}, {"f_9486:compiler_2escm",(void*)f_9486}, {"f_10923:compiler_2escm",(void*)f_10923}, {"f_10929:compiler_2escm",(void*)f_10929}, {"f_20221:compiler_2escm",(void*)f_20221}, {"f_10240:compiler_2escm",(void*)f_10240}, {"f_10971:compiler_2escm",(void*)f_10971}, {"f_20233:compiler_2escm",(void*)f_20233}, {"f_18545:compiler_2escm",(void*)f_18545}, {"f_10901:compiler_2escm",(void*)f_10901}, {"f_20203:compiler_2escm",(void*)f_20203}, {"f_20207:compiler_2escm",(void*)f_20207}, {"f_11031:compiler_2escm",(void*)f_11031}, {"f_11035:compiler_2escm",(void*)f_11035}, {"f_11381:compiler_2escm",(void*)f_11381}, {"f_9441:compiler_2escm",(void*)f_9441}, {"f_9447:compiler_2escm",(void*)f_9447}, {"f_9444:compiler_2escm",(void*)f_9444}, {"f_14044:compiler_2escm",(void*)f_14044}, {"f_9450:compiler_2escm",(void*)f_9450}, {"f_9455:compiler_2escm",(void*)f_9455}, {"f_14035:compiler_2escm",(void*)f_14035}, {"f_20566:compiler_2escm",(void*)f_20566}, {"f_10946:compiler_2escm",(void*)f_10946}, {"f_11355:compiler_2escm",(void*)f_11355}, {"f_10944:compiler_2escm",(void*)f_10944}, {"f_20562:compiler_2escm",(void*)f_20562}, {"f_11340:compiler_2escm",(void*)f_11340}, {"f_8721:compiler_2escm",(void*)f_8721}, {"f_11312:compiler_2escm",(void*)f_11312}, {"f_19817:compiler_2escm",(void*)f_19817}, {"f_21412:compiler_2escm",(void*)f_21412}, {"f_8717:compiler_2escm",(void*)f_8717}, {"f_8710:compiler_2escm",(void*)f_8710}, {"f_20838:compiler_2escm",(void*)f_20838}, {"f_19808:compiler_2escm",(void*)f_19808}, {"f_20294:compiler_2escm",(void*)f_20294}, {"f_16972:compiler_2escm",(void*)f_16972}, {"f_16969:compiler_2escm",(void*)f_16969}, {"f_20263:compiler_2escm",(void*)f_20263}, {"f_20816:compiler_2escm",(void*)f_20816}, {"f_16978:compiler_2escm",(void*)f_16978}, {"f_10937:compiler_2escm",(void*)f_10937}, {"f_20279:compiler_2escm",(void*)f_20279}, {"f_20820:compiler_2escm",(void*)f_20820}, {"f_20823:compiler_2escm",(void*)f_20823}, {"f_20826:compiler_2escm",(void*)f_20826}, {"f_19853:compiler_2escm",(void*)f_19853}, {"f_19844:compiler_2escm",(void*)f_19844}, {"toplevel:compiler_2escm",(void*)C_compiler_toplevel}, {"f_11009:compiler_2escm",(void*)f_11009}, {"f_19890:compiler_2escm",(void*)f_19890}, {"f_19894:compiler_2escm",(void*)f_19894}, {"f_6335:compiler_2escm",(void*)f_6335}, {"f_6338:compiler_2escm",(void*)f_6338}, {"f_19880:compiler_2escm",(void*)f_19880}, {"f_19884:compiler_2escm",(void*)f_19884}, {"f_19886:compiler_2escm",(void*)f_19886}, {"f_19871:compiler_2escm",(void*)f_19871}, {"f_10202:compiler_2escm",(void*)f_10202}, {"f_14209:compiler_2escm",(void*)f_14209}, {"f_19862:compiler_2escm",(void*)f_19862}, {"f_14238:compiler_2escm",(void*)f_14238}, {"f_14231:compiler_2escm",(void*)f_14231}, {"f_6341:compiler_2escm",(void*)f_6341}, {"f_6343:compiler_2escm",(void*)f_6343}, {"f_7224:compiler_2escm",(void*)f_7224}, {"f_7222:compiler_2escm",(void*)f_7222}, {"f_6632:compiler_2escm",(void*)f_6632}, {"f_14241:compiler_2escm",(void*)f_14241}, {"f_19177:compiler_2escm",(void*)f_19177}, {"f_16954:compiler_2escm",(void*)f_16954}, {"f_16951:compiler_2escm",(void*)f_16951}, {"f_9462:compiler_2escm",(void*)f_9462}, {"f_19168:compiler_2escm",(void*)f_19168}, {"f_16963:compiler_2escm",(void*)f_16963}, {"f_9845:compiler_2escm",(void*)f_9845}, {"f_16966:compiler_2escm",(void*)f_16966}, {"f_16960:compiler_2escm",(void*)f_16960}, {"f_9841:compiler_2escm",(void*)f_9841}, {"f_14221:compiler_2escm",(void*)f_14221}, {"f_16957:compiler_2escm",(void*)f_16957}, {"f_9848:compiler_2escm",(void*)f_9848}, {"f_9475:compiler_2escm",(void*)f_9475}, {"f_6664:compiler_2escm",(void*)f_6664}, {"f_9854:compiler_2escm",(void*)f_9854}, {"f_14256:compiler_2escm",(void*)f_14256}, {"f_14252:compiler_2escm",(void*)f_14252}, {"f_9857:compiler_2escm",(void*)f_9857}, {"f_6675:compiler_2escm",(void*)f_6675}, {"f_6679:compiler_2escm",(void*)f_6679}, {"f_14286:compiler_2escm",(void*)f_14286}, {"f_9835:compiler_2escm",(void*)f_9835}, {"f_9832:compiler_2escm",(void*)f_9832}, {"f_9838:compiler_2escm",(void*)f_9838}, {"f_6691:compiler_2escm",(void*)f_6691}, {"f_6695:compiler_2escm",(void*)f_6695}, {"f_14260:compiler_2escm",(void*)f_14260}, {"f_19835:compiler_2escm",(void*)f_19835}, {"f_19143:compiler_2escm",(void*)f_19143}, {"f_17948:compiler_2escm",(void*)f_17948}, {"f_17946:compiler_2escm",(void*)f_17946}, {"f_17501:compiler_2escm",(void*)f_17501}, {"f_19826:compiler_2escm",(void*)f_19826}, {"f_7205:compiler_2escm",(void*)f_7205}, {"f_17932:compiler_2escm",(void*)f_17932}, {"f_17937:compiler_2escm",(void*)f_17937}, {"f_7201:compiler_2escm",(void*)f_7201}, {"f_15759:compiler_2escm",(void*)f_15759}, {"f_17927:compiler_2escm",(void*)f_17927}, {"f_17921:compiler_2escm",(void*)f_17921}, {"f_15766:compiler_2escm",(void*)f_15766}, {"f_17918:compiler_2escm",(void*)f_17918}, {"f_17545:compiler_2escm",(void*)f_17545}, {"f_8470:compiler_2escm",(void*)f_8470}, {"f_8441:compiler_2escm",(void*)f_8441}, {"f_18286:compiler_2escm",(void*)f_18286}, {"f_9886:compiler_2escm",(void*)f_9886}, {"f_9889:compiler_2escm",(void*)f_9889}, {"f_18217:compiler_2escm",(void*)f_18217}, {"f_18210:compiler_2escm",(void*)f_18210}, {"f_9892:compiler_2escm",(void*)f_9892}, {"f_17587:compiler_2escm",(void*)f_17587}, {"f_15739:compiler_2escm",(void*)f_15739}, {"f_17585:compiler_2escm",(void*)f_17585}, {"f_9860:compiler_2escm",(void*)f_9860}, {"f_15745:compiler_2escm",(void*)f_15745}, {"f_9879:compiler_2escm",(void*)f_9879}, {"f_13084:compiler_2escm",(void*)f_13084}, {"f_17593:compiler_2escm",(void*)f_17593}, {"f_13024:compiler_2escm",(void*)f_13024}, {"f_19221:compiler_2escm",(void*)f_19221}, {"f_8495:compiler_2escm",(void*)f_8495}, {"f_9823:compiler_2escm",(void*)f_9823}, {"f_9829:compiler_2escm",(void*)f_9829}, {"f_13034:compiler_2escm",(void*)f_13034}, {"f_19214:compiler_2escm",(void*)f_19214}, {"f_15788:compiler_2escm",(void*)f_15788}, {"f_19210:compiler_2escm",(void*)f_19210}, {"f_18234:compiler_2escm",(void*)f_18234}, {"f_11579:compiler_2escm",(void*)f_11579}, {"f_11573:compiler_2escm",(void*)f_11573}, {"f_14460:compiler_2escm",(void*)f_14460}, {"f_14198:compiler_2escm",(void*)f_14198}, {"f_15719:compiler_2escm",(void*)f_15719}, {"f_9804:compiler_2escm",(void*)f_9804}, {"f_9807:compiler_2escm",(void*)f_9807}, {"f_13058:compiler_2escm",(void*)f_13058}, {"f_9801:compiler_2escm",(void*)f_9801}, {"f_15725:compiler_2escm",(void*)f_15725}, {"f_8447:compiler_2escm",(void*)f_8447}, {"f_9813:compiler_2escm",(void*)f_9813}, {"f_9810:compiler_2escm",(void*)f_9810}, {"f_14177:compiler_2escm",(void*)f_14177}, {"f_19262:compiler_2escm",(void*)f_19262}, {"f_11588:compiler_2escm",(void*)f_11588}, {"f_11585:compiler_2escm",(void*)f_11585}, {"f_11582:compiler_2escm",(void*)f_11582}, {"f_19250:compiler_2escm",(void*)f_19250}, {"f_14155:compiler_2escm",(void*)f_14155}, {"f_14158:compiler_2escm",(void*)f_14158}, {"f_14152:compiler_2escm",(void*)f_14152}, {"f_14490:compiler_2escm",(void*)f_14490}, {"f_14189:compiler_2escm",(void*)f_14189}, {"f_18251:compiler_2escm",(void*)f_18251}, {"f_20143:compiler_2escm",(void*)f_20143}, {"f_21481:compiler_2escm",(void*)f_21481}, {"f_21483:compiler_2escm",(void*)f_21483}, {"f_19290:compiler_2escm",(void*)f_19290}, {"f_15704:compiler_2escm",(void*)f_15704}, {"f_17577:compiler_2escm",(void*)f_17577}, {"f_14479:compiler_2escm",(void*)f_14479}, {"f_19294:compiler_2escm",(void*)f_19294}, {"f_7249:compiler_2escm",(void*)f_7249}, {"f_14453:compiler_2escm",(void*)f_14453}, {"f_21474:compiler_2escm",(void*)f_21474}, {"f_8526:compiler_2escm",(void*)f_8526}, {"f_14444:compiler_2escm",(void*)f_14444}, {"f_8523:compiler_2escm",(void*)f_8523}, {"f_8520:compiler_2escm",(void*)f_8520}, {"f_21447:compiler_2escm",(void*)f_21447}, {"f_21443:compiler_2escm",(void*)f_21443}, {"f_8517:compiler_2escm",(void*)f_8517}, {"f_8514:compiler_2escm",(void*)f_8514}, {"f_8511:compiler_2escm",(void*)f_8511}, {"f_7284:compiler_2escm",(void*)f_7284}, {"f_16803:compiler_2escm",(void*)f_16803}, {"f_18134:compiler_2escm",(void*)f_18134}, {"f_16809:compiler_2escm",(void*)f_16809}, {"f_7272:compiler_2escm",(void*)f_7272}, {"f_21465:compiler_2escm",(void*)f_21465}, {"f_9511:compiler_2escm",(void*)f_9511}, {"f_21467:compiler_2escm",(void*)f_21467}, {"f_10689:compiler_2escm",(void*)f_10689}, {"f_14419:compiler_2escm",(void*)f_14419}, {"f_14100:compiler_2escm",(void*)f_14100}, {"f_14104:compiler_2escm",(void*)f_14104}, {"f_14411:compiler_2escm",(void*)f_14411}, {"f_9519:compiler_2escm",(void*)f_9519}, {"f_21439:compiler_2escm",(void*)f_21439}, {"f_11673:compiler_2escm",(void*)f_11673}, {"f_18165:compiler_2escm",(void*)f_18165}, {"f22739:compiler_2escm",(void*)f22739}, {"f22735:compiler_2escm",(void*)f22735}, {"f_12692:compiler_2escm",(void*)f_12692}, {"f_17780:compiler_2escm",(void*)f_17780}, {"f_18171:compiler_2escm",(void*)f_18171}, {"f_11698:compiler_2escm",(void*)f_11698}, {"f_18201:compiler_2escm",(void*)f_18201}, {"f_18186:compiler_2escm",(void*)f_18186}, {"f_6801:compiler_2escm",(void*)f_6801}, {"f_18189:compiler_2escm",(void*)f_18189}, {"f_17783:compiler_2escm",(void*)f_17783}, {"f_10641:compiler_2escm",(void*)f_10641}, {"f_10649:compiler_2escm",(void*)f_10649}, {"f_17761:compiler_2escm",(void*)f_17761}, {"f_20169:compiler_2escm",(void*)f_20169}, {"f_7072:compiler_2escm",(void*)f_7072}, {"f_18192:compiler_2escm",(void*)f_18192}, {"f_18195:compiler_2escm",(void*)f_18195}, {"f_7076:compiler_2escm",(void*)f_7076}, {"f_18198:compiler_2escm",(void*)f_18198}, {"f_17777:compiler_2escm",(void*)f_17777}, {"f_17774:compiler_2escm",(void*)f_17774}, {"f_10610:compiler_2escm",(void*)f_10610}, {"f_20173:compiler_2escm",(void*)f_20173}, {"f_7068:compiler_2escm",(void*)f_7068}, {"f_17768:compiler_2escm",(void*)f_17768}, {"f_10666:compiler_2escm",(void*)f_10666}, {"f_20863:compiler_2escm",(void*)f_20863}, {"f_9586:compiler_2escm",(void*)f_9586}, {"f_9583:compiler_2escm",(void*)f_9583}, {"f_10637:compiler_2escm",(void*)f_10637}, {"f_12601:compiler_2escm",(void*)f_12601}, {"f_9589:compiler_2escm",(void*)f_9589}, {"f_20199:compiler_2escm",(void*)f_20199}, {"f_21510:compiler_2escm",(void*)f_21510}, {"f_11609:compiler_2escm",(void*)f_11609}, {"f_10604:compiler_2escm",(void*)f_10604}, {"f_11606:compiler_2escm",(void*)f_11606}, {"f_9592:compiler_2escm",(void*)f_9592}, {"f_10601:compiler_2escm",(void*)f_10601}, {"f_9599:compiler_2escm",(void*)f_9599}, {"f_13016:compiler_2escm",(void*)f_13016}, {"f_10607:compiler_2escm",(void*)f_10607}, {"f_15172:compiler_2escm",(void*)f_15172}, {"f_12622:compiler_2escm",(void*)f_12622}, {"f_11621:compiler_2escm",(void*)f_11621}, {"f_17700:compiler_2escm",(void*)f_17700}, {"f_14167:compiler_2escm",(void*)f_14167}, {"f_14161:compiler_2escm",(void*)f_14161}, {"f_14164:compiler_2escm",(void*)f_14164}, {"f_6869:compiler_2escm",(void*)f_6869}, {"f_12618:compiler_2escm",(void*)f_12618}, {"f_6863:compiler_2escm",(void*)f_6863}, {"f_11612:compiler_2escm",(void*)f_11612}, {"f_11618:compiler_2escm",(void*)f_11618}, {"f_17718:compiler_2escm",(void*)f_17718}, {"f_9544:compiler_2escm",(void*)f_9544}, {"f_19207:compiler_2escm",(void*)f_19207}, {"f_12646:compiler_2escm",(void*)f_12646}, {"f_19204:compiler_2escm",(void*)f_19204}, {"f_6874:compiler_2escm",(void*)f_6874}, {"f_8322:compiler_2escm",(void*)f_8322}, {"f_14149:compiler_2escm",(void*)f_14149}, {"f_8625:compiler_2escm",(void*)f_8625}, {"f_8622:compiler_2escm",(void*)f_8622}, {"f_6884:compiler_2escm",(void*)f_6884}, {"f_8619:compiler_2escm",(void*)f_8619}, {"f_6899:compiler_2escm",(void*)f_6899}, {"f_10598:compiler_2escm",(void*)f_10598}, {"f_8302:compiler_2escm",(void*)f_8302}, {"f_11661:compiler_2escm",(void*)f_11661}, {"f_12650:compiler_2escm",(void*)f_12650}, {"f_8339:compiler_2escm",(void*)f_8339}, {"f_8337:compiler_2escm",(void*)f_8337}, {"f_11656:compiler_2escm",(void*)f_11656}, {"f_6833:compiler_2escm",(void*)f_6833}, {"f_6839:compiler_2escm",(void*)f_6839}, {"f_6836:compiler_2escm",(void*)f_6836}, {"f_10574:compiler_2escm",(void*)f_10574}, {"f_7040:compiler_2escm",(void*)f_7040}, {"f_7114:compiler_2escm",(void*)f_7114}, {"f_10586:compiler_2escm",(void*)f_10586}, {"f_10582:compiler_2escm",(void*)f_10582}, {"f_6854:compiler_2escm",(void*)f_6854}, {"f_6859:compiler_2escm",(void*)f_6859}, {"f_17869:compiler_2escm",(void*)f_17869}, {"f_20397:compiler_2escm",(void*)f_20397}, {"f_15113:compiler_2escm",(void*)f_15113}, {"f_12191:compiler_2escm",(void*)f_12191}, {"f_10526:compiler_2escm",(void*)f_10526}, {"f_16251:compiler_2escm",(void*)f_16251}, {"f_16254:compiler_2escm",(void*)f_16254}, {"f_12181:compiler_2escm",(void*)f_12181}, {"f_16257:compiler_2escm",(void*)f_16257}, {"f_17891:compiler_2escm",(void*)f_17891}, {"f_17842:compiler_2escm",(void*)f_17842}, {"f_10505:compiler_2escm",(void*)f_10505}, {"f_8318:compiler_2escm",(void*)f_8318}, {"f_8314:compiler_2escm",(void*)f_8314}, {"f_17839:compiler_2escm",(void*)f_17839}, {"f_10551:compiler_2escm",(void*)f_10551}, {"f_10554:compiler_2escm",(void*)f_10554}, {"f_17830:compiler_2escm",(void*)f_17830}, {"f_6503:compiler_2escm",(void*)f_6503}, {"f_6500:compiler_2escm",(void*)f_6500}, {"f_16295:compiler_2escm",(void*)f_16295}, {"f_14315:compiler_2escm",(void*)f_14315}, {"f_18109:compiler_2escm",(void*)f_18109}, {"f_18107:compiler_2escm",(void*)f_18107}, {"f_18100:compiler_2escm",(void*)f_18100}, {"f_10542:compiler_2escm",(void*)f_10542}, {"f_18809:compiler_2escm",(void*)f_18809}, {"f_18801:compiler_2escm",(void*)f_18801}, {"f_18805:compiler_2escm",(void*)f_18805}, {"f_6538:compiler_2escm",(void*)f_6538}, {"f_15136:compiler_2escm",(void*)f_15136}, {"f_18817:compiler_2escm",(void*)f_18817}, {"f_6548:compiler_2escm",(void*)f_6548}, {"f_6542:compiler_2escm",(void*)f_6542}, {"f_19433:compiler_2escm",(void*)f_19433}, {"f_17822:compiler_2escm",(void*)f_17822}, {"f_17826:compiler_2escm",(void*)f_17826}, {"f_14356:compiler_2escm",(void*)f_14356}, {"f_19429:compiler_2escm",(void*)f_19429}, {"f_8164:compiler_2escm",(void*)f_8164}, {"f_6564:compiler_2escm",(void*)f_6564}, {"f_6566:compiler_2escm",(void*)f_6566}, {"f_6560:compiler_2escm",(void*)f_6560}, {"f_16263:compiler_2escm",(void*)f_16263}, {"f_14349:compiler_2escm",(void*)f_14349}, {"f_16260:compiler_2escm",(void*)f_16260}, {"f_16266:compiler_2escm",(void*)f_16266}, {"f_17181:compiler_2escm",(void*)f_17181}, {"f_18851:compiler_2escm",(void*)f_18851}, {"f_6583:compiler_2escm",(void*)f_6583}, {"f_8142:compiler_2escm",(void*)f_8142}, {"f_9962:compiler_2escm",(void*)f_9962}, {"f_9968:compiler_2escm",(void*)f_9968}, {"f_6516:compiler_2escm",(void*)f_6516}, {"f_8157:compiler_2escm",(void*)f_8157}, {"f_7015:compiler_2escm",(void*)f_7015}, {"f_7012:compiler_2escm",(void*)f_7012}, {"f_8151:compiler_2escm",(void*)f_8151}, {"f_14392:compiler_2escm",(void*)f_14392}, {"f_9932:compiler_2escm",(void*)f_9932}, {"f_20413:compiler_2escm",(void*)f_20413}, {"f_8127:compiler_2escm",(void*)f_8127}, {"f_7008:compiler_2escm",(void*)f_7008}, {"f_8124:compiler_2escm",(void*)f_8124}, {"f_7005:compiler_2escm",(void*)f_7005}, {"f_20420:compiler_2escm",(void*)f_20420}, {"f_20424:compiler_2escm",(void*)f_20424}, {"f_18881:compiler_2escm",(void*)f_18881}, {"f_7155:compiler_2escm",(void*)f_7155}, {"f_8136:compiler_2escm",(void*)f_8136}, {"f_8133:compiler_2escm",(void*)f_8133}, {"f_8130:compiler_2escm",(void*)f_8130}, {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| o 1 S| map 40 S| sprintf 10 S| for-each 28 o|eliminated procedure checks: 517 o|specializations: o| 2 (memq * list) o| 2 (second (pair * pair)) o| 1 (cdddr (pair * (pair * pair))) o| 2 (>= fixnum fixnum) o| 1 (fourth (pair * (pair * (pair * pair)))) o| 6 (first pair) o| 1 (current-error-port) o| 1 (caddr (pair * (pair * pair))) o| 10 (cddr (pair * pair)) o| 15 (##sys#check-list (or pair list) *) o| 3 (cadr (pair * pair)) o| 215 (eqv? * (not float)) o| 10 (##sys#check-output-port * * *) o| 2 (string-append string string) o| 25 (car pair) o| 7 (= fixnum fixnum) o| 4 (length list) o| 60 (cdr pair) o| 3 (cdar (pair pair *)) (o e)|safe calls: 1954 (o e)|assignments to immediate values: 40 o|safe globals: (##compiler#prepare-for-code-generation lambda-literal-direct lambda-literal-body lambda-literal-rest-argument-mode lambda-literal-customizable lambda-literal-looping lambda-literal-closure-size lambda-literal-directly-called lambda-literal-allocated lambda-literal-callee-signatures lambda-literal-unboxed-temporaries lambda-literal-temporaries lambda-literal-rest-argument lambda-literal-argument-count lambda-literal-arguments lambda-literal-external lambda-literal-id lambda-literal? make-lambda-literal ##compiler#perform-closure-conversion ##compiler#analyze-expression foreign-callback-stub-argument-types foreign-callback-stub-return-type foreign-callback-stub-qualifiers foreign-callback-stub-name foreign-callback-stub-id foreign-callback-stub? make-foreign-callback-stub ##compiler#perform-cps-conversion ##compiler#update-line-number-database! ##compiler#expand-foreign-primitive ##compiler#expand-foreign-lambda* ##compiler#expand-foreign-lambda ##compiler#create-foreign-stub foreign-stub-callback foreign-stub-cps foreign-stub-body foreign-stub-argument-names foreign-stub-argument-types foreign-stub-name foreign-stub-return-type foreign-stub-id foreign-stub? make-foreign-stub ##compiler#process-declaration ##compiler#canonicalize-expression ##compiler#initialize-compiler ##compiler#postponed-initforms ##compiler#file-requirements ##compiler#data-declarations ##compiler#csc-control-file ##compiler#toplevel-lambda-id ##compiler#toplevel-scope ##compiler#callback-names ##compiler#defconstant-bindings ##compiler#pending-canonicalizations ##compiler#location-pointer-map ##compiler#real-name-table ##compiler#external-to-pointer ##compiler#profile-info-vector-name ##compiler#profile-lambda-index ##compiler#profile-lambda-list ##compiler#external-variables foreign-callback-stubs ##compiler#foreign-lambda-stubs ##compiler#foreign-variables ##compiler#foreign-type-table ##compiler#first-analysis ##compiler#direct-call-ids ##compiler#inline-substitutions-enabled ##compiler#broken-constant-nodes ##compiler#constants-used ##compiler#constant-table ##compiler#inline-table-used ##compiler#inline-table ##compiler#immutable-constants ##compiler#line-number-database-2 current-analysis-database-size ##compiler#current-program-size ##compiler#original-program-size ##compiler#verbose-mode ##compiler#enable-specialization ##compiler#strict-variable-types ##compiler#bootstrap-mode ##compiler#compiler-syntax-enabled ##compiler#enable-inline-files ##compiler#inline-locally ##compiler#local-definitions ##compiler#standalone-executable ##compiler#enable-module-registration ##compiler#all-import-libraries ##compiler#import-libraries ##compiler#profiled-procedures ##compiler#undefine-shadowed-macros ##compiler#emit-closure-info ##compiler#inline-max-size ##compiler#external-protos-first ##compiler#require-imports-flag ##compiler#disable-stack-overflow-checking ##compiler#explicit-use-flag ##compiler#safe-globals-flag ##compiler#source-filename ##compiler#no-global-procedure-checks ##compiler#no-procedure-checks ##compiler#no-argc-checks ##compiler#no-bound-checks ##compiler#emit-profile optimize-leaf-routines ##compiler#target-stack-size ##compiler#target-heap-size ##compiler#line-number-database-size ##compiler#block-compilation emit-debug-info ##compiler#emit-trace-info ##compiler#foreign-declarations unsafe ##compiler#used-units ##compiler#insert-timer-checks extended-bindings standard-bindings number-type ##compiler#unit-name d) o|Removed `not' forms: 26 o|inlining procedure: k6345 o|inlining procedure: k6345 o|inlining procedure: k6461 o|inlining procedure: k6461 o|inlining procedure: k6505 o|inlining procedure: k6505 o|inlining procedure: k6543 o|inlining procedure: k6543 o|inlining procedure: k6585 o|contracted procedure: "(compiler.scm:406) g175183" o|inlining procedure: k6585 o|removed side-effect free assignment to unused variable: write-to-string141 o|inlining procedure: k6634 o|inlining procedure: k6634 o|inlining procedure: k6646 o|inlining procedure: k6646 o|substituted constant variable: a6671 o|contracted procedure: k6686 o|inlining procedure: k6683 o|inlining procedure: k6710 o|inlining procedure: k6710 o|inlining procedure: k6763 o|inlining procedure: k6763 o|contracted procedure: k6808 o|inlining procedure: k6805 o|inlining procedure: k6805 o|inlining procedure: k6683 o|inlining procedure: k6927 o|inlining procedure: k6945 o|substituted constant variable: a6959 o|substituted constant variable: a6960 o|inlining procedure: k6945 o|inlining procedure: k6927 o|inlining procedure: k6979 o|inlining procedure: k6979 o|inlining procedure: k6991 o|contracted procedure: k7028 o|inlining procedure: k7037 o|inlining procedure: k7037 o|inlining procedure: k7074 o|inlining procedure: k7074 o|inlining procedure: k7099 o|inlining procedure: k7099 o|inlining procedure: k7125 o|inlining procedure: k7125 o|inlining procedure: k7135 o|inlining procedure: k7135 o|inlining procedure: k7226 o|inlining procedure: k7226 o|inlining procedure: k7264 o|contracted procedure: "(compiler.scm:565) g409410" o|inlining procedure: k7264 o|inlining procedure: k7318 o|inlining procedure: k7318 o|inlining procedure: k7368 o|propagated global variable: g471472 lset-union o|inlining procedure: k7402 o|inlining procedure: k7402 o|inlining procedure: k7368 o|inlining procedure: k7456 o|inlining procedure: k7456 o|substituted constant variable: a7502 o|substituted constant variable: a7503 o|inlining procedure: k7516 o|inlining procedure: k7516 o|inlining procedure: k7538 o|inlining procedure: k7609 o|inlining procedure: k7609 o|inlining procedure: k7657 o|inlining procedure: k7657 o|inlining procedure: k7538 o|inlining procedure: k7768 o|contracted procedure: "(compiler.scm:633) g623632" o|inlining procedure: k7768 o|inlining procedure: k7802 o|contracted procedure: "(compiler.scm:630) g596605" o|inlining procedure: k7802 o|inlining procedure: k7833 o|inlining procedure: k7935 o|contracted procedure: "(compiler.scm:651) g746756" o|inlining procedure: k7935 o|inlining procedure: k7983 o|contracted procedure: "(compiler.scm:650) g713723" o|inlining procedure: k7983 o|inlining procedure: k8031 o|contracted procedure: "(compiler.scm:646) g686695" o|inlining procedure: k8031 o|inlining procedure: k8065 o|inlining procedure: k8065 o|inlining procedure: k7833 o|inlining procedure: k8143 o|inlining procedure: k8143 o|inlining procedure: k8162 o|inlining procedure: k8162 o|inlining procedure: k8174 o|inlining procedure: k8174 o|contracted procedure: "(compiler.scm:693) g838839" o|inlining procedure: k8191 o|inlining procedure: k8191 o|inlining procedure: k8198 o|inlining procedure: k8198 o|inlining procedure: k8230 o|inlining procedure: k8230 o|inlining procedure: k8278 o|inlining procedure: k8341 o|inlining procedure: k8341 o|inlining procedure: k8278 o|inlining procedure: k8449 o|inlining procedure: k8449 o|inlining procedure: k8472 o|contracted procedure: "(compiler.scm:718) g881890" o|inlining procedure: k8472 o|inlining procedure: k8503 o|inlining procedure: k8595 o|inlining procedure: k8595 o|inlining procedure: k8503 o|inlining procedure: k8645 o|inlining procedure: k8645 o|inlining procedure: k8664 o|inlining procedure: k8664 o|inlining procedure: k8694 o|inlining procedure: k8789 o|contracted procedure: "(compiler.scm:808) g979986" o|inlining procedure: k8789 o|inlining procedure: k8848 o|contracted procedure: "(compiler.scm:818) g9971004" o|inlining procedure: k8848 o|inlining procedure: k8871 o|inlining procedure: k8871 o|inlining procedure: k8694 o|inlining procedure: k8939 o|inlining procedure: k8986 o|contracted procedure: "(compiler.scm:835) g10331042" o|inlining procedure: k8986 o|inlining procedure: k8939 o|substituted constant variable: saved111811191137 o|inlining procedure: k9125 o|contracted procedure: "(compiler.scm:885) emit-import-lib144" o|inlining procedure: k6840 o|inlining procedure: k6840 o|inlining procedure: k6876 o|inlining procedure: k6876 o|substituted constant variable: a6920 o|contracted procedure: k9177 o|propagated global variable: r9178 ##compiler#enable-module-registration o|inlining procedure: k9174 o|inlining procedure: k9195 o|inlining procedure: k9195 o|inlining procedure: k9174 o|inlining procedure: k9125 o|inlining procedure: k9319 o|inlining procedure: k9319 o|substituted constant variable: saved121312141223 o|inlining procedure: k9405 o|inlining procedure: k9405 o|inlining procedure: k9464 o|inlining procedure: k9464 o|inlining procedure: k9491 o|inlining procedure: k9491 o|inlining procedure: k9521 o|inlining procedure: k9521 o|inlining procedure: k9564 o|inlining procedure: k9607 o|inlining procedure: k9607 o|inlining procedure: k9564 o|inlining procedure: k9662 o|inlining procedure: k9662 o|substituted constant variable: a9794 o|substituted constant variable: a9795 o|inlining procedure: k9814 o|inlining procedure: k9814 o|substituted constant variable: a9825 o|substituted constant variable: a9826 o|substituted constant variable: a9850 o|substituted constant variable: a9851 o|inlining procedure: k9843 o|inlining procedure: k9843 o|inlining procedure: k9864 o|inlining procedure: k9864 o|inlining procedure: k9893 o|inlining procedure: k9893 o|contracted procedure: "(compiler.scm:982) g13661367" o|contracted procedure: "(compiler.scm:981) g13521353" o|substituted constant variable: a9964 o|substituted constant variable: a9965 o|inlining procedure: k9978 o|inlining procedure: k10024 o|inlining procedure: k10024 o|inlining procedure: k9978 o|inlining procedure: k10088 o|inlining procedure: k10130 o|inlining procedure: k10130 o|inlining procedure: k10088 o|inlining procedure: k10182 o|inlining procedure: k10182 o|inlining procedure: k10229 o|inlining procedure: k10229 o|inlining procedure: k10254 o|inlining procedure: k10276 o|inlining procedure: k10276 o|inlining procedure: k10254 o|inlining procedure: k10302 o|inlining procedure: k10302 o|inlining procedure: k10328 o|inlining procedure: k10328 o|inlining procedure: k10354 o|inlining procedure: k10354 o|inlining procedure: k10391 o|inlining procedure: k10391 o|inlining procedure: k10421 o|inlining procedure: k10507 o|inlining procedure: k10507 o|contracted procedure: "(compiler.scm:1085) g15591560" o|contracted procedure: "(compiler.scm:1084) g15451546" o|inlining procedure: k10421 o|inlining procedure: k10587 o|inlining procedure: k10647 o|inlining procedure: k10647 o|inlining procedure: k10587 o|inlining procedure: k10729 o|inlining procedure: k10769 o|contracted procedure: "(compiler.scm:1170) g16581659" o|contracted procedure: "(compiler.scm:1169) g16441645" o|inlining procedure: k10769 o|inlining procedure: k10871 o|inlining procedure: k10871 o|contracted procedure: k10884 o|inlining procedure: k10729 o|inlining procedure: k10948 o|inlining procedure: k10948 o|inlining procedure: k10979 o|inlining procedure: k11069 o|inlining procedure: k11069 o|inlining procedure: k11107 o|inlining procedure: k11107 o|inlining procedure: k11162 o|inlining procedure: k11162 o|inlining procedure: k11213 o|inlining procedure: k11213 o|inlining procedure: k10979 o|inlining procedure: k11274 o|inlining procedure: k11309 o|inlining procedure: k11309 o|inlining procedure: k11274 o|inlining procedure: k11379 o|inlining procedure: k11394 o|inlining procedure: k11394 o|inlining procedure: k11379 o|substituted constant variable: a11417 o|substituted constant variable: a11419 o|substituted constant variable: a11421 o|substituted constant variable: a11423 o|substituted constant variable: a11425 o|substituted constant variable: a11427 o|substituted constant variable: a11429 o|substituted constant variable: a11431 o|substituted constant variable: a11433 o|substituted constant variable: a11435 o|substituted constant variable: a11437 o|substituted constant variable: a11439 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|substituted constant variable: a11468 o|substituted constant variable: a11470 o|substituted constant variable: a11472 o|substituted constant variable: a11474 o|substituted constant variable: a11476 o|substituted constant variable: a11478 o|substituted constant variable: a11480 o|substituted constant variable: a11482 o|substituted constant variable: a11484 o|substituted constant variable: a11486 o|substituted constant variable: a11488 o|substituted constant variable: a11490 o|substituted constant variable: a11492 o|substituted constant variable: a11494 o|substituted constant variable: a11496 o|substituted constant variable: a11498 o|substituted constant variable: a11500 o|substituted constant variable: a11502 o|substituted constant variable: a11504 o|substituted constant variable: a11506 o|substituted constant variable: a11508 o|substituted constant variable: a11510 o|inlining procedure: k11514 o|inlining procedure: k11514 o|substituted constant variable: a11521 o|substituted constant variable: a11523 o|substituted constant variable: a11525 o|substituted constant variable: a11527 o|substituted constant variable: a11529 o|substituted constant variable: a11531 o|substituted constant variable: a11533 o|substituted constant variable: a11538 o|substituted constant variable: a11540 o|substituted constant variable: a11542 o|inlining procedure: k11564 o|substituted constant variable: a11575 o|substituted constant variable: a11576 o|inlining procedure: k11564 o|inlining procedure: k6991 o|contracted procedure: k11595 o|inlining procedure: k11601 o|inlining procedure: k11601 o|inlining procedure: k11675 o|inlining procedure: k11675 o|merged explicitly consed rest parameter: maxlen1873 o|inlining procedure: k11759 o|inlining procedure: k11759 o|inlining procedure: k11775 o|inlining procedure: k11775 o|inlining procedure: k11810 o|inlining procedure: k11810 o|substituted constant variable: a11833 o|substituted constant variable: a11834 o|inlining procedure: k11859 o|inlining procedure: k11902 o|contracted procedure: "(compiler.scm:1368) g19301939" o|inlining procedure: k11902 o|propagated global variable: g19191920 lset-union o|inlining procedure: k11859 o|inlining procedure: k11959 o|inlining procedure: k11959 o|consed rest parameter at call site: "(compiler.scm:1371) check-decl1865" 3 o|inlining procedure: k11984 o|inlining procedure: k11984 o|inlining procedure: k12015 o|inlining procedure: k12015 o|inlining procedure: k12034 o|inlining procedure: k12034 o|inlining procedure: "(compiler.scm:1395) strip1867" o|consed rest parameter at call site: "(compiler.scm:1394) check-decl1865" 3 o|inlining procedure: k12080 o|inlining procedure: k12080 o|inlining procedure: k12097 o|inlining procedure: k12097 o|inlining procedure: k12111 o|inlining procedure: k12111 o|inlining procedure: k12125 o|inlining procedure: k12125 o|inlining procedure: k12139 o|inlining procedure: k12139 o|inlining procedure: k12183 o|contracted procedure: "(compiler.scm:1406) g19701977" o|contracted procedure: "(compiler.scm:1406) g19851986" o|inlining procedure: k12183 o|inlining procedure: k12205 o|inlining procedure: k12205 o|inlining procedure: k12277 o|contracted procedure: "(compiler.scm:1412) g20442051" o|contracted procedure: "(compiler.scm:1413) g20592060" o|inlining procedure: k12277 o|inlining procedure: k12300 o|contracted procedure: "(compiler.scm:1409) g20072014" o|contracted procedure: "(compiler.scm:1410) g20222023" o|inlining procedure: k12300 o|inlining procedure: k12320 o|inlining procedure: k12320 o|inlining procedure: k12386 o|contracted procedure: "(compiler.scm:1420) g21202127" o|contracted procedure: "(compiler.scm:1420) g21352136" o|inlining procedure: k12386 o|inlining procedure: k12409 o|contracted procedure: "(compiler.scm:1418) g20832090" o|contracted procedure: "(compiler.scm:1419) g20982099" o|inlining procedure: k12409 o|inlining procedure: k12431 o|inlining procedure: k12431 o|inlining procedure: k12458 o|inlining procedure: k12458 o|inlining procedure: k12472 o|inlining procedure: k12509 o|contracted procedure: "(compiler.scm:1430) g21592166" o|contracted procedure: "(compiler.scm:1430) g21742175" o|inlining procedure: k12509 o|inlining procedure: k12472 o|inlining procedure: k12568 o|contracted procedure: "(compiler.scm:1432) g21962203" o|contracted procedure: "(compiler.scm:1433) g22112212" o|inlining procedure: k12568 o|inlining procedure: k12590 o|inlining procedure: k12608 o|inlining procedure: k12608 o|inlining procedure: k12630 o|inlining procedure: k12630 o|inlining procedure: k12664 o|inlining procedure: k12664 o|inlining procedure: k12702 o|contracted procedure: "(compiler.scm:1453) g22392246" o|contracted procedure: "(compiler.scm:1454) g22542255" o|inlining procedure: k12702 o|inlining procedure: k12729 o|inlining procedure: k12729 o|inlining procedure: k12768 o|inlining procedure: k12805 o|contracted procedure: "(compiler.scm:1467) g22832290" o|contracted procedure: "(compiler.scm:1468) g22982299" o|inlining procedure: k12805 o|inlining procedure: k12768 o|inlining procedure: k12838 o|inlining procedure: k12838 o|substituted constant variable: a12856 o|substituted constant variable: a12858 o|inlining procedure: "(compiler.scm:1472) strip1867" o|consed rest parameter at call site: "(compiler.scm:1471) check-decl1865" 3 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|consed rest parameter at call site: "(compiler.scm:1436) check-decl1865" 3 o|inlining procedure: k12590 o|inlining procedure: k12884 o|inlining procedure: k12912 o|inlining procedure: k12912 o|inlining procedure: k12884 o|inlining procedure: k12953 o|inlining procedure: k12953 o|inlining procedure: k12975 o|inlining procedure: k12975 o|inlining procedure: k12988 o|inlining procedure: k12988 o|inlining procedure: k13026 o|contracted procedure: "(compiler.scm:1493) g23702377" o|contracted procedure: "(compiler.scm:1494) g23852386" o|inlining procedure: k13026 o|inlining procedure: k13050 o|consed rest parameter at call site: "(compiler.scm:1497) check-decl1865" 3 o|inlining procedure: k13050 o|inlining procedure: k13079 o|inlining procedure: k13116 o|contracted procedure: "(compiler.scm:1507) g24102417" o|contracted procedure: "(compiler.scm:1508) g24252426" o|inlining procedure: k13116 o|inlining procedure: k13079 o|inlining procedure: k13139 o|inlining procedure: k13234 o|contracted procedure: "(compiler.scm:1515) g24522461" o|inlining procedure: k13155 o|substituted constant variable: a13172 o|inlining procedure: k13155 o|inlining procedure: k13196 o|inlining procedure: k13196 o|substituted constant variable: a13219 o|inlining procedure: k13234 o|inlining procedure: "(compiler.scm:1524) strip1867" o|inlining procedure: k13139 o|inlining procedure: k13274 o|inlining procedure: k13274 o|inlining procedure: k13313 o|contracted procedure: "(compiler.scm:1531) g24852492" o|contracted procedure: "(compiler.scm:1532) g25002501" o|inlining procedure: k13313 o|inlining procedure: k13337 o|inlining procedure: k13381 o|contracted procedure: "(compiler.scm:1538) g25282535" o|contracted procedure: "(compiler.scm:1539) g25432544" o|inlining procedure: k13381 o|inlining procedure: k13337 o|inlining procedure: k13413 o|inlining procedure: k13450 o|contracted procedure: "(compiler.scm:1545) g25652572" o|contracted procedure: "(compiler.scm:1546) g25802581" o|inlining procedure: k13450 o|inlining procedure: k13413 o|contracted procedure: k13485 o|inlining procedure: k13482 o|inlining procedure: k13524 o|contracted procedure: "(compiler.scm:1574) g26772678" o|contracted procedure: "(compiler.scm:1572) g26632664" o|contracted procedure: "(compiler.scm:1570) g26492650" o|contracted procedure: "(compiler.scm:1569) g26352636" o|inlining procedure: k13637 o|inlining procedure: k13637 o|inlining procedure: k13524 o|inlining procedure: k13482 o|inlining procedure: k13676 o|inlining procedure: k13676 o|substituted constant variable: a13691 o|inlining procedure: k13474 o|inlining procedure: k13702 o|inlining procedure: k13702 o|inlining procedure: k13474 o|inlining procedure: k13730 o|inlining procedure: k13765 o|contracted procedure: "(compiler.scm:1594) g27352736" o|inlining procedure: k13765 o|inlining procedure: k13730 o|inlining procedure: k13810 o|substituted constant variable: a13819 o|inlining procedure: k13810 o|inlining procedure: k13838 o|inlining procedure: k13838 o|inlining procedure: k13858 o|inlining procedure: k13858 o|substituted constant variable: a13876 o|substituted constant variable: a13878 o|substituted constant variable: a13880 o|substituted constant variable: a13882 o|substituted constant variable: a13884 o|substituted constant variable: a13886 o|substituted constant variable: a13888 o|substituted constant variable: a13890 o|substituted constant variable: a13892 o|substituted constant variable: a13894 o|substituted constant variable: a13896 o|substituted constant variable: a13898 o|substituted constant variable: a13900 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|substituted constant variable: a13915 o|substituted constant variable: a13917 o|substituted constant variable: a13919 o|substituted constant variable: a13921 o|substituted constant variable: a13923 o|substituted constant variable: a13925 o|substituted constant variable: a13927 o|substituted constant variable: a13929 o|substituted constant variable: a13931 o|substituted constant variable: a13933 o|substituted constant variable: a13935 o|substituted constant variable: a13937 o|substituted constant variable: a13939 o|substituted constant variable: a13941 o|substituted constant variable: a13943 o|substituted constant variable: a13945 o|substituted constant variable: a13947 o|substituted constant variable: a13949 o|substituted constant variable: a13954 o|substituted constant variable: a13956 o|substituted constant variable: a13958 o|substituted constant variable: a13960 o|substituted constant variable: a13962 o|substituted constant variable: a13964 o|substituted constant variable: a13966 o|substituted constant variable: a13968 o|inlining procedure: k14219 o|inlining procedure: k14219 o|inlining procedure: k14288 o|contracted procedure: "(compiler.scm:1651) g29172927" o|inlining procedure: k14288 o|inlining procedure: k14369 o|inlining procedure: k14369 o|contracted procedure: "(compiler.scm:1639) type->symbol2818" o|inlining procedure: k14073 o|inlining procedure: k14073 o|inlining procedure: k14088 o|inlining procedure: k14088 o|substituted constant variable: a14130 o|substituted constant variable: a14132 o|substituted constant variable: a14134 o|inlining procedure: k14135 o|inlining procedure: k14135 o|inlining procedure: k14421 o|inlining procedure: k14421 o|inlining procedure: k14480 o|inlining procedure: k14480 o|inlining procedure: k14533 o|inlining procedure: k14533 o|inlining procedure: k14567 o|contracted procedure: "(compiler.scm:1677) g29792988" o|inlining procedure: k14567 o|inlining procedure: k14649 o|inlining procedure: k14649 o|inlining procedure: k14683 o|contracted procedure: "(compiler.scm:1688) g30413050" o|inlining procedure: k14683 o|inlining procedure: k14715 o|inlining procedure: k14715 o|inlining procedure: k14725 o|inlining procedure: k14725 o|inlining procedure: k14765 o|inlining procedure: k14765 o|inlining procedure: k14787 o|inlining procedure: k14787 o|contracted procedure: "(compiler.scm:1720) g31283129" o|contracted procedure: "(compiler.scm:1724) g31343135" o|inlining procedure: k14898 o|contracted procedure: "(compiler.scm:1728) g31453146" o|inlining procedure: k14898 o|contracted procedure: "(compiler.scm:1727) g31423143" o|inlining procedure: k14964 o|inlining procedure: k14964 o|contracted procedure: "(compiler.scm:1738) g31843185" o|contracted procedure: "(compiler.scm:1739) g31893190" o|contracted procedure: "(compiler.scm:1746) g32023203" o|contracted procedure: "(compiler.scm:1742) g31943195" o|contracted procedure: "(compiler.scm:1742) g31993200" o|inlining procedure: k15103 o|inlining procedure: k15115 o|inlining procedure: k15115 o|inlining procedure: k15138 o|inlining procedure: k15138 o|contracted procedure: "(compiler.scm:1758) g32113212" o|inlining procedure: k15103 o|contracted procedure: "(compiler.scm:1761) g32203221" o|inlining procedure: k15210 o|contracted procedure: "(compiler.scm:1767) g32273228" o|contracted procedure: "(compiler.scm:1768) g32323233" o|inlining procedure: k15210 o|contracted procedure: "(compiler.scm:1777) g32583259" o|contracted procedure: "(compiler.scm:1777) g32553256" o|contracted procedure: "(compiler.scm:1776) g32413242" o|contracted procedure: "(compiler.scm:1771) g32393240" o|inlining procedure: k15351 o|inlining procedure: k15351 o|inlining procedure: k15378 o|contracted procedure: "(compiler.scm:1782) walk-call-unit3119" o|contracted procedure: "(compiler.scm:1808) g33133314" o|contracted procedure: "(compiler.scm:1812) g33253326" o|contracted procedure: "(compiler.scm:1810) g33183319" o|contracted procedure: "(compiler.scm:1810) g33233324" o|inlining procedure: k15378 o|inlining procedure: k15407 o|inlining procedure: k15407 o|substituted constant variable: a15424 o|substituted constant variable: a15429 o|substituted constant variable: a15431 o|substituted constant variable: a15433 o|substituted constant variable: a15435 o|inlining procedure: k15439 o|inlining procedure: k15439 o|inlining procedure: k15451 o|inlining procedure: k15451 o|inlining procedure: k15463 o|inlining procedure: k15463 o|substituted constant variable: a15470 o|substituted constant variable: a15472 o|substituted constant variable: a15474 o|substituted constant variable: a15476 o|substituted constant variable: a15478 o|substituted constant variable: a15480 o|substituted constant variable: a15482 o|substituted constant variable: a15484 o|substituted constant variable: a15486 o|substituted constant variable: a15491 o|substituted constant variable: a15493 o|substituted constant variable: a15495 o|substituted constant variable: a15497 o|inlining procedure: k15501 o|inlining procedure: k15501 o|substituted constant variable: a15514 o|substituted constant variable: a15516 o|substituted constant variable: a15518 o|substituted constant variable: a15520 o|contracted procedure: "(compiler.scm:1734) g31683169" o|contracted procedure: "(compiler.scm:1733) g31593160" o|contracted procedure: "(compiler.scm:1732) g31563157" o|contracted procedure: "(compiler.scm:1731) g31533154" o|contracted procedure: "(compiler.scm:1794) g32903291" o|contracted procedure: "(compiler.scm:1803) g33043305" o|contracted procedure: "(compiler.scm:1796) g32953296" o|contracted procedure: "(compiler.scm:1796) g33003301" o|contracted procedure: "(compiler.scm:1819) g33353336" o|inlining procedure: k15727 o|inlining procedure: k15727 o|inlining procedure: k15768 o|inlining procedure: k15768 o|contracted procedure: "(compiler.scm:1832) g33513352" o|substituted constant variable: a15837 o|inlining procedure: k15838 o|inlining procedure: k15838 o|substituted constant variable: a15845 o|contracted procedure: "(compiler.scm:1843) g33663367" o|contracted procedure: "(compiler.scm:1838) g33593360" o|removed unused formal parameters: (call3426) o|inlining procedure: k15964 o|inlining procedure: k15964 o|inlining procedure: k15985 o|inlining procedure: k15985 o|contracted procedure: k16006 o|inlining procedure: k16003 o|inlining procedure: k16003 o|inlining procedure: k16016 o|inlining procedure: k16016 o|removed unused parameter to known procedure: call3426 "(compiler.scm:1900) walk3415" o|contracted procedure: "(compiler.scm:1898) g34673468" o|contracted procedure: "(compiler.scm:1897) g34633464" o|inlining procedure: k16087 o|inlining procedure: k16105 o|removed unused parameter to known procedure: call3426 "(compiler.scm:1907) walk3415" o|inlining procedure: k16105 o|removed unused parameter to known procedure: call3426 "(compiler.scm:1912) walk3415" o|inlining procedure: k16087 o|removed unused parameter to known procedure: call3426 "(compiler.scm:1925) walk3415" o|inlining procedure: k16190 o|inlining procedure: k16190 o|inlining procedure: k16210 o|contracted procedure: "(compiler.scm:1953) g35423543" o|removed unused parameter to known procedure: call3426 "(compiler.scm:1950) walk3415" o|inlining procedure: k16296 o|inlining procedure: k16296 o|inlining procedure: k16323 o|inlining procedure: k16323 o|inlining procedure: k16210 o|removed unused parameter to known procedure: call3426 "(compiler.scm:1974) walk3415" o|inlining procedure: k16396 o|inlining procedure: k16396 o|contracted procedure: k16408 o|inlining procedure: k16429 o|inlining procedure: k16429 o|substituted constant variable: a16448 o|substituted constant variable: a16450 o|contracted procedure: "(compiler.scm:1959) g35663567" o|inlining procedure: k16454 o|inlining procedure: k16478 o|inlining procedure: k16478 o|inlining procedure: k16454 o|substituted constant variable: a16497 o|substituted constant variable: a16499 o|substituted constant variable: a16504 o|substituted constant variable: a16506 o|substituted constant variable: a16511 o|substituted constant variable: a16513 o|substituted constant variable: a16515 o|substituted constant variable: a16520 o|substituted constant variable: a16522 o|substituted constant variable: a16524 o|substituted constant variable: a16529 o|substituted constant variable: a16531 o|substituted constant variable: a16533 o|inlining procedure: k16537 o|inlining procedure: k16537 o|substituted constant variable: a16544 o|substituted constant variable: a16546 o|substituted constant variable: a16548 o|contracted procedure: "(compiler.scm:1875) g34363437" o|contracted procedure: "(compiler.scm:1874) g34333434" o|contracted procedure: "(compiler.scm:1873) g34303431" o|removed unused parameter to known procedure: call3426 "(compiler.scm:1985) walk3415" o|inlining procedure: k16566 o|inlining procedure: k16566 o|inlining procedure: k16589 o|inlining procedure: k16589 o|inlining procedure: k16604 o|inlining procedure: k16625 o|inlining procedure: k16625 o|inlining procedure: k16604 o|inlining procedure: k16661 o|inlining procedure: k16661 o|propagated global variable: tmp36513653 ##compiler#local-definitions o|propagated global variable: tmp36513653 ##compiler#local-definitions o|contracted procedure: "(compiler.scm:2004) g36543655" o|inlining procedure: k16717 o|inlining procedure: k16717 o|contracted procedure: "(compiler.scm:1993) g36413642" o|contracted procedure: "(compiler.scm:1991) g36323633" o|contracted procedure: "(compiler.scm:1990) g36293630" o|contracted procedure: "(compiler.scm:1988) g36223623" o|inlining procedure: k16798 o|inlining procedure: k16798 o|inlining procedure: k16814 o|inlining procedure: k16814 o|inlining procedure: k16833 o|inlining procedure: k16833 o|inlining procedure: k16848 o|inlining procedure: k16848 o|removed side-effect free assignment to unused variable: assigned-locally3681 o|inlining procedure: k16867 o|inlining procedure: k16867 o|inlining procedure: k16881 o|inlining procedure: k16881 o|inlining procedure: k16896 o|inlining procedure: k16896 o|removed side-effect free assignment to unused variable: rest-parameter3684 o|substituted constant variable: a16912 o|substituted constant variable: a16914 o|substituted constant variable: a16916 o|substituted constant variable: a16918 o|substituted constant variable: a16920 o|substituted constant variable: a16922 o|substituted constant variable: a16924 o|substituted constant variable: a16926 o|substituted constant variable: a16928 o|substituted constant variable: a16930 o|substituted constant variable: a16932 o|substituted constant variable: a16934 o|inlining procedure: k16973 o|contracted procedure: k16990 o|inlining procedure: k16999 o|inlining procedure: k17025 o|contracted procedure: "(compiler.scm:2231) g39733974" o|inlining procedure: k17025 o|inlining procedure: k17052 o|contracted procedure: "(compiler.scm:2230) g39693970" o|inlining procedure: k17052 o|contracted procedure: "(compiler.scm:2229) g39663967" o|contracted procedure: "(compiler.scm:2228) g39623963" o|substituted constant variable: a17096 o|contracted procedure: "(compiler.scm:2224) g39563957" o|inlining procedure: k16999 o|inlining procedure: k17104 o|contracted procedure: "(compiler.scm:2223) g39523953" o|inlining procedure: k17104 o|contracted procedure: "(compiler.scm:2220) g39473948" o|contracted procedure: "(compiler.scm:2217) g39423943" o|inlining procedure: k16973 o|contracted procedure: "(compiler.scm:2216) g39383939" o|inlining procedure: k17152 o|contracted procedure: k17176 o|inlining procedure: k17182 o|inlining procedure: k17182 o|contracted procedure: k17188 o|inlining procedure: k17191 o|contracted procedure: k17203 o|inlining procedure: k17200 o|inlining procedure: k17200 o|contracted procedure: k17209 o|inlining procedure: k17215 o|inlining procedure: k17215 o|substituted constant variable: a17233 o|inlining procedure: k17191 o|contracted procedure: k17242 o|contracted procedure: "(compiler.scm:2200) g39193920" o|inlining procedure: k17152 o|contracted procedure: "(compiler.scm:2199) g39153916" o|contracted procedure: k17279 o|inlining procedure: k17282 o|inlining procedure: k17294 o|inlining procedure: k17317 o|inlining procedure: k17317 o|contracted procedure: "(compiler.scm:2186) g39113912" o|contracted procedure: "(compiler.scm:2185) g39073908" o|contracted procedure: "(compiler.scm:2183) g38983899" o|inlining procedure: k17294 o|contracted procedure: "(compiler.scm:2182) g38943895" o|inlining procedure: k17282 o|inlining procedure: k17357 o|inlining procedure: k17390 o|inlining procedure: k17390 o|inlining procedure: k17422 o|inlining procedure: k17422 o|contracted procedure: k17432 o|inlining procedure: k17455 o|inlining procedure: k17455 o|contracted procedure: "(compiler.scm:2157) g38513852" o|inlining procedure: k17357 o|contracted procedure: "(compiler.scm:2155) g38473848" o|inlining procedure: k17496 o|inlining procedure: k17496 o|contracted procedure: "(compiler.scm:2142) g38393840" o|contracted procedure: "(compiler.scm:2141) g38353836" o|inlining procedure: k17540 o|inlining procedure: k17540 o|inlining procedure: k17570 o|inlining procedure: k17570 o|contracted procedure: "(compiler.scm:2102) g37683769" o|contracted procedure: "(compiler.scm:2101) g37643765" o|inlining procedure: k17611 o|inlining procedure: k17643 o|inlining procedure: k17643 o|contracted procedure: "(compiler.scm:2113) g37833784" o|contracted procedure: "(compiler.scm:2112) g37803781" o|inlining procedure: k17611 o|inlining procedure: k17702 o|contracted procedure: "(compiler.scm:2131) g38143815" o|contracted procedure: "(compiler.scm:2133) g38303831" o|inlining procedure: k17702 o|contracted procedure: "(compiler.scm:2125) g38083809" o|contracted procedure: "(compiler.scm:2123) g38013802" o|substituted constant variable: a17770 o|substituted constant variable: a17771 o|inlining procedure: k17784 o|contracted procedure: k17796 o|inlining procedure: k17793 o|inlining procedure: k17793 o|contracted procedure: k17802 o|contracted procedure: k17808 o|inlining procedure: k17805 o|inlining procedure: k17805 o|contracted procedure: "(compiler.scm:2087) g37403741" o|contracted procedure: "(compiler.scm:2084) g37343735" o|inlining procedure: k17784 o|contracted procedure: "(compiler.scm:2077) g37243725" o|inlining procedure: k17870 o|contracted procedure: "(compiler.scm:2076) g37213722" o|inlining procedure: k17870 o|inlining procedure: k17881 o|inlining procedure: k17881 o|contracted procedure: k17884 o|contracted procedure: k17887 o|inlining procedure: k17893 o|inlining procedure: k17893 o|removed unused parameter to known procedure: call3426 "(compiler.scm:2023) walk3415" o|inlining procedure: k17974 o|inlining procedure: k17974 o|inlining procedure: k18001 o|inlining procedure: k18001 o|inlining procedure: k18059 o|inlining procedure: k18059 o|inlining procedure: k18072 o|inlining procedure: k18111 o|inlining procedure: k18111 o|inlining procedure: k18147 o|inlining procedure: k18157 o|inlining procedure: k18199 o|inlining procedure: k18199 o|inlining procedure: k18219 o|inlining procedure: k18219 o|inlining procedure: k18237 o|inlining procedure: k18246 o|inlining procedure: k18246 o|inlining procedure: k18237 o|contracted procedure: "(compiler.scm:2316) g40874088" o|contracted procedure: "(compiler.scm:2315) g40834084" o|contracted procedure: k18275 o|contracted procedure: k18281 o|inlining procedure: k18278 o|inlining procedure: k18278 o|contracted procedure: "(compiler.scm:2311) g40754076" o|contracted procedure: "(compiler.scm:2307) g40694070" o|inlining procedure: k18157 o|inlining procedure: k18147 o|contracted procedure: "(compiler.scm:2300) g40624063" o|inlining procedure: k18072 o|inlining procedure: k18423 o|inlining procedure: k18423 o|substituted constant variable: a18458 o|substituted constant variable: a18460 o|substituted constant variable: a18462 o|substituted constant variable: a18464 o|substituted constant variable: a18466 o|inlining procedure: k18470 o|inlining procedure: k18470 o|substituted constant variable: a18483 o|substituted constant variable: a18485 o|substituted constant variable: a18487 o|substituted constant variable: a18489 o|substituted constant variable: a18491 o|contracted procedure: "(compiler.scm:2271) g40394040" o|contracted procedure: "(compiler.scm:2270) g40304031" o|contracted procedure: "(compiler.scm:2269) g40274028" o|inlining procedure: k18519 o|inlining procedure: k18519 o|inlining procedure: k18540 o|contracted procedure: "(compiler.scm:2366) g42074208" o|inlining procedure: k18540 o|inlining procedure: k18558 o|contracted procedure: "(compiler.scm:2374) g42544255" o|contracted procedure: "(compiler.scm:2374) g42594260" o|inlining procedure: k18558 o|inlining procedure: k18603 o|contracted procedure: "(compiler.scm:2381) g42654266" o|contracted procedure: "(compiler.scm:2384) g42704271" o|contracted procedure: "(compiler.scm:2386) g42754276" o|inlining procedure: k18603 o|contracted procedure: "(compiler.scm:2388) g42804281" o|inlining procedure: k18684 o|contracted procedure: "(compiler.scm:2411) g43664367" o|inlining procedure: k18788 o|inlining procedure: k18788 o|inlining procedure: k18828 o|inlining procedure: k18828 o|contracted procedure: "(compiler.scm:2414) g43714372" o|inlining procedure: k18871 o|contracted procedure: "(compiler.scm:2433) g44204421" o|inlining procedure: k18935 o|contracted procedure: "(compiler.scm:2436) g44334442" o|contracted procedure: "(compiler.scm:2437) g44454446" o|inlining procedure: k18935 o|inlining procedure: k18871 o|inlining procedure: k18995 o|inlining procedure: k18995 o|inlining procedure: k19008 o|inlining procedure: k19008 o|inlining procedure: k19020 o|inlining procedure: k19020 o|inlining procedure: k19056 o|inlining procedure: k19056 o|inlining procedure: k19059 o|inlining procedure: k19059 o|inlining procedure: k19082 o|inlining procedure: k19082 o|inlining procedure: k19097 o|inlining procedure: k19097 o|inlining procedure: k19145 o|inlining procedure: k19145 o|inlining procedure: k18684 o|inlining procedure: k19216 o|contracted procedure: "(compiler.scm:2462) g45164517" o|contracted procedure: "(compiler.scm:2465) g45214522" o|inlining procedure: k19216 o|contracted procedure: "(compiler.scm:2468) g45264527" o|inlining procedure: k19211 o|inlining procedure: k19211 o|contracted procedure: "(compiler.scm:2474) g45314532" o|contracted procedure: "(compiler.scm:2479) g45364537" o|inlining procedure: k19355 o|inlining procedure: k19355 o|contracted procedure: "(compiler.scm:2456) g45004501" o|contracted procedure: "(compiler.scm:2455) g44924493" o|inlining procedure: k19388 o|contracted procedure: "(compiler.scm:2484) g45414542" o|inlining procedure: k19420 o|inlining procedure: k19420 o|contracted procedure: "(compiler.scm:2486) g45464547" o|inlining procedure: k19445 o|inlining procedure: k19445 o|inlining procedure: k19388 o|substituted constant variable: a19452 o|substituted constant variable: a19454 o|substituted constant variable: a19459 o|substituted constant variable: a19461 o|substituted constant variable: a19463 o|inlining procedure: k19467 o|inlining procedure: k19467 o|inlining procedure: k19479 o|inlining procedure: k19479 o|inlining procedure: k19491 o|inlining procedure: k19491 o|inlining procedure: k19503 o|inlining procedure: k19503 o|inlining procedure: k19515 o|inlining procedure: k19515 o|inlining procedure: k19527 o|inlining procedure: k19527 o|inlining procedure: k19539 o|inlining procedure: k19539 o|substituted constant variable: a19546 o|substituted constant variable: a19548 o|substituted constant variable: a19550 o|substituted constant variable: a19552 o|substituted constant variable: a19554 o|substituted constant variable: a19556 o|substituted constant variable: a19558 o|substituted constant variable: a19560 o|substituted constant variable: a19562 o|substituted constant variable: a19564 o|substituted constant variable: a19566 o|substituted constant variable: a19568 o|substituted constant variable: a19570 o|substituted constant variable: a19572 o|substituted constant variable: a19574 o|substituted constant variable: a19576 o|inlining procedure: k19580 o|inlining procedure: k19580 o|substituted constant variable: a19587 o|substituted constant variable: a19589 o|substituted constant variable: a19591 o|contracted procedure: "(compiler.scm:2357) g41904191" o|contracted procedure: "(compiler.scm:2356) g41874188" o|contracted procedure: "(compiler.scm:2355) g41844185" o|inlining procedure: k19612 o|inlining procedure: k19612 o|contracted procedure: "(compiler.scm:2500) g45974598" o|inlining procedure: k19652 o|inlining procedure: k19652 o|contracted procedure: "(compiler.scm:2497) g45854586" o|inlining procedure: k19708 o|inlining procedure: k19708 o|contracted procedure: "(compiler.scm:2560) g47424743" o|inlining procedure: k19891 o|inlining procedure: k19891 o|contracted procedure: "(compiler.scm:2561) g47474748" o|contracted procedure: "(compiler.scm:2573) g47764777" o|inlining procedure: k19969 o|inlining procedure: k19969 o|propagated global variable: tmp47584760 ##compiler#no-bound-checks o|inlining procedure: k19992 o|propagated global variable: tmp47584760 ##compiler#no-bound-checks o|inlining procedure: k19992 o|propagated global variable: tmp47614763 unsafe o|propagated global variable: tmp47614763 unsafe o|inlining procedure: k20006 o|inlining procedure: k20006 o|contracted procedure: "(compiler.scm:2569) g47714772" o|contracted procedure: "(compiler.scm:2568) g47674768" o|inlining procedure: k20044 o|inlining procedure: k20044 o|inlining procedure: k20066 o|contracted procedure: "(compiler.scm:2605) g48154816" o|inlining procedure: k20066 o|contracted procedure: "(compiler.scm:2609) g48224823" o|inlining procedure: k20148 o|contracted procedure: "(compiler.scm:2613) g48284829" o|inlining procedure: k20148 o|contracted procedure: "(compiler.scm:2617) g48344835" o|inlining procedure: k20212 o|contracted procedure: "(compiler.scm:2621) g48404841" o|inlining procedure: k20212 o|contracted procedure: "(compiler.scm:2625) g48464847" o|inlining procedure: k20268 o|contracted procedure: "(compiler.scm:2630) g48544855" o|contracted procedure: "(compiler.scm:2632) g48674868" o|contracted procedure: "(compiler.scm:2631) g48644865" o|inlining procedure: k20268 o|contracted procedure: "(compiler.scm:2704) g49094910" o|contracted procedure: k20428 o|inlining procedure: k20431 o|inlining procedure: k20431 o|inlining procedure: k20464 o|inlining procedure: k20464 o|inlining procedure: k20481 o|inlining procedure: k20481 o|inlining procedure: k20493 o|inlining procedure: k20493 o|contracted procedure: k20508 o|inlining procedure: k20514 o|inlining procedure: k20514 o|inlining procedure: k20524 o|contracted procedure: "(compiler.scm:2711) g49334934" o|contracted procedure: "(compiler.scm:2709) g49304931" o|inlining procedure: k20524 o|contracted procedure: "(compiler.scm:2722) g49414942" o|inlining procedure: k20646 o|contracted procedure: "(compiler.scm:2732) g49584959" o|contracted procedure: "(compiler.scm:2742) g49804981" o|inlining procedure: k20744 o|inlining procedure: k20744 o|inlining procedure: k20760 o|inlining procedure: k20760 o|contracted procedure: "(compiler.scm:2738) g49734974" o|contracted procedure: "(compiler.scm:2736) g49644965" o|inlining procedure: k20646 o|contracted procedure: "(compiler.scm:2765) g49964997" o|substituted constant variable: a20882 o|inlining procedure: k20894 o|contracted procedure: "(compiler.scm:2769) g50045005" o|inlining procedure: k20894 o|inlining procedure: k20931 o|inlining procedure: k20931 o|inlining procedure: k20946 o|substituted constant variable: a20973 o|substituted constant variable: a20974 o|inlining procedure: k20946 o|contracted procedure: "(compiler.scm:2784) g50405041" o|inlining procedure: k21023 o|inlining procedure: k21023 o|contracted procedure: "(compiler.scm:2786) g50455046" o|inlining procedure: k21058 o|contracted procedure: "(compiler.scm:2798) g50605061" o|inlining procedure: k21058 o|contracted procedure: "(compiler.scm:2803) g50695070" o|inlining procedure: k21167 o|inlining procedure: k21167 o|inlining procedure: k21236 o|contracted procedure: "(compiler.scm:2825) g50865087" o|inlining procedure: k21236 o|contracted procedure: "(compiler.scm:2827) g50935094" o|substituted constant variable: a21274 o|substituted constant variable: a21276 o|substituted constant variable: a21281 o|substituted constant variable: a21283 o|substituted constant variable: a21285 o|substituted constant variable: a21287 o|substituted constant variable: a21289 o|substituted constant variable: a21291 o|substituted constant variable: a21293 o|substituted constant variable: a21295 o|substituted constant variable: a21300 o|substituted constant variable: a21302 o|substituted constant variable: a21304 o|substituted constant variable: a21306 o|substituted constant variable: a21308 o|substituted constant variable: a21310 o|substituted constant variable: a21312 o|substituted constant variable: a21314 o|substituted constant variable: a21316 o|substituted constant variable: a21318 o|substituted constant variable: a21323 o|substituted constant variable: a21325 o|contracted procedure: "(compiler.scm:2586) g47964797" o|contracted procedure: "(compiler.scm:2585) g47934794" o|contracted procedure: "(compiler.scm:2584) g47904791" o|inlining procedure: k21346 o|inlining procedure: k21346 o|inlining procedure: k21380 o|inlining procedure: k21380 o|inlining procedure: k21409 o|inlining procedure: k21409 o|inlining procedure: k21444 o|inlining procedure: k21444 o|inlining procedure: k21469 o|inlining procedure: k21469 o|inlining procedure: k21485 o|contracted procedure: "(compiler.scm:2861) g51615162" o|inlining procedure: k21485 o|contracted procedure: "(compiler.scm:2862) g51665167" o|inlining procedure: k21517 o|inlining procedure: k21517 o|inlining procedure: k21535 o|inlining procedure: k21535 o|simplifications: ((if . 1)) o|replaced variables: 2994 o|removed binding forms: 1024 o|Removed `not' forms: 1 o|substituted constant variable: r650621614 o|substituted constant variable: r664721623 o|removed call to pure procedure with unused result: "(compiler.scm:406) void" o|removed call to pure procedure with unused result: "(compiler.scm:406) list" o|substituted constant variable: r707521641 o|substituted constant variable: r707521641 o|substituted constant variable: r712621647 o|substituted constant variable: tmp414417 o|substituted constant variable: mark416 o|substituted constant variable: r736921657 o|substituted constant variable: r745721661 o|substituted constant variable: r751721664 o|substituted constant variable: mark841 o|substituted constant variable: r819921697 o|substituted constant variable: r819921697 o|substituted constant variable: r859621710 o|substituted constant variable: r859621710 o|substituted constant variable: r859621712 o|substituted constant variable: r859621712 o|substituted constant variable: r864621717 o|substituted constant variable: r864621717 o|substituted constant variable: r866521721 o|substituted constant variable: r866521721 o|substituted constant variable: r919621741 o|substituted constant variable: r919621741 o|substituted constant variable: r984421767 o|substituted constant variable: r984421767 o|substituted constant variable: tmp13711374 o|substituted constant variable: mark1373 o|substituted constant variable: tmp13571360 o|substituted constant variable: mark1359 o|substituted constant variable: r1023021783 o|substituted constant variable: r1025521788 o|substituted constant variable: r1050821802 o|substituted constant variable: r1050821802 o|substituted constant variable: tmp15641567 o|substituted constant variable: mark1566 o|substituted constant variable: tmp15501553 o|substituted constant variable: mark1552 o|substituted constant variable: tmp16631666 o|substituted constant variable: mark1665 o|substituted constant variable: tmp16491652 o|substituted constant variable: mark1651 o|substituted constant variable: r1116321826 o|substituted constant variable: r1139521839 o|substituted constant variable: r1139521839 o|substituted constant variable: r1177621854 o|substituted constant variable: r1177621854 o|removed side-effect free assignment to unused variable: strip1867 o|substituted constant variable: r1181121858 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|substituted constant variable: tmp19901993 o|substituted constant variable: mark1992 o|inlining procedure: k11859 o|substituted constant variable: tmp20642067 o|substituted constant variable: mark2066 o|substituted constant variable: tmp20272030 o|substituted constant variable: mark2029 o|inlining procedure: k11859 o|substituted constant variable: tmp21402143 o|substituted constant variable: mark2142 o|substituted constant variable: tmp21032106 o|substituted constant variable: mark2105 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|substituted constant variable: tmp21792182 o|substituted constant variable: mark2181 o|substituted constant variable: tmp22162219 o|substituted constant variable: mark2218 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|substituted constant variable: mark2261 o|inlining procedure: k11859 o|inlining procedure: k11859 o|substituted constant variable: mark2305 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|inlining procedure: k11859 o|substituted constant variable: tmp23902393 o|substituted constant variable: mark2392 o|inlining procedure: k11859 o|substituted constant variable: mark2432 o|inlining procedure: k11859 o|substituted constant variable: r1319721963 o|inlining procedure: k11859 o|substituted constant variable: tmp25052508 o|substituted constant variable: mark2507 o|inlining procedure: k11859 o|substituted constant variable: tmp25482551 o|substituted constant variable: mark2550 o|substituted constant variable: mark2587 o|inlining procedure: k11859 o|substituted constant variable: mark2684 o|substituted constant variable: mark2670 o|substituted constant variable: mark2656 o|substituted constant variable: mark2642 o|substituted constant variable: r1363821986 o|substituted constant variable: r1367721990 o|substituted constant variable: mark2742 o|substituted constant variable: r1381122000 o|inlining procedure: k11859 o|inlining procedure: k11859 o|contracted procedure: "(compiler.scm:1639) g28762885" o|substituted constant variable: r1407422013 o|substituted constant variable: r1413622018 o|inlining procedure: k14141 o|substituted constant variable: c3130 o|substituted constant variable: c3136 o|substituted constant variable: r1489922044 o|substituted constant variable: c3186 o|substituted constant variable: c3191 o|substituted constant variable: c3204 o|substituted constant variable: p3205 o|substituted constant variable: c3196 o|substituted constant variable: c3213 o|substituted constant variable: c3229 o|substituted constant variable: c3234 o|substituted constant variable: tmp32463249 o|substituted constant variable: mark3248 o|substituted constant variable: c3315 o|substituted constant variable: c3327 o|substituted constant variable: c3320 o|substituted constant variable: c3292 o|substituted constant variable: c3306 o|substituted constant variable: c3297 o|substituted constant variable: c3353 o|substituted constant variable: r1596522076 o|removed unused parameter to known procedure: call3595 "(compiler.scm:1892) walkeach3416" o|removed unused parameter to known procedure: call3595 "(compiler.scm:1901) walkeach3416" o|contracted procedure: k16296 o|substituted constant variable: r1629722093 o|substituted constant variable: mark3569 o|removed unused parameter to known procedure: call3595 "(compiler.scm:1980) walkeach3416" o|substituted constant variable: r1647922104 o|removed unused parameter to known procedure: call3595 "(compiler.scm:1982) walkeach3416" o|removed unused formal parameters: (call3595) o|substituted constant variable: mark3657 o|substituted constant variable: mark3644 o|substituted constant variable: r1705322141 o|substituted constant variable: r1710522144 o|substituted constant variable: r1720122150 o|substituted constant variable: r1719222154 o|substituted constant variable: mark3910 o|substituted constant variable: r1728322161 o|substituted constant variable: r1742322165 o|substituted constant variable: r1742322166 o|substituted constant variable: mark3821 o|substituted constant variable: mark3804 o|substituted constant variable: r1779422183 o|substituted constant variable: r1780622185 o|substituted constant variable: mark3743 o|substituted constant variable: mark3737 o|substituted constant variable: r1778522187 o|substituted constant variable: r1787122190 o|substituted constant variable: r1787122190 o|folded constant expression: (eq? (quote ##core#lambda) (quote #f)) o|substituted constant variable: r1788222193 o|inlining procedure: k18157 o|substituted constant variable: r1824722225 o|substituted constant variable: r1823822226 o|inlining procedure: k18157 o|substituted constant variable: r1827922227 o|substituted constant variable: mark4078 o|substituted constant variable: r1815822229 o|substituted constant variable: r1815822229 o|substituted constant variable: r1814822231 o|substituted constant variable: r1814822231 o|substituted constant variable: c4209 o|substituted constant variable: p4210 o|substituted constant variable: c4267 o|substituted constant variable: c4272 o|substituted constant variable: c4277 o|substituted constant variable: p4278 o|substituted constant variable: c4282 o|substituted constant variable: c4368 o|substituted constant variable: c4422 o|substituted constant variable: c4447 o|substituted constant variable: p4448 o|substituted constant variable: r1905722267 o|substituted constant variable: r1905722267 o|substituted constant variable: r1905722269 o|substituted constant variable: r1905722269 o|substituted constant variable: r1906022272 o|substituted constant variable: r1908322274 o|substituted constant variable: p4519 o|substituted constant variable: c4523 o|substituted constant variable: p4534 o|substituted constant variable: c4538 o|substituted constant variable: c4543 o|substituted constant variable: r1942122289 o|substituted constant variable: r1942122289 o|substituted constant variable: c4548 o|substituted constant variable: s4550 o|substituted constant variable: r1944622291 o|substituted constant variable: r1944622291 o|substituted constant variable: r1944622293 o|substituted constant variable: r1944622293 o|substituted constant variable: c4599 o|substituted constant variable: c4744 o|substituted constant variable: s4746 o|substituted constant variable: c4749 o|substituted constant variable: s4751 o|substituted constant variable: c4778 o|substituted constant variable: s4780 o|propagated global variable: r1999322326 ##compiler#no-bound-checks o|substituted constant variable: mark4770 o|substituted constant variable: s4832 o|substituted constant variable: c4842 o|substituted constant variable: c4848 o|substituted constant variable: p4857 o|substituted constant variable: c4911 o|substituted constant variable: s4913 o|substituted constant variable: r2043222340 o|substituted constant variable: r2043222341 o|substituted constant variable: r2049422350 o|substituted constant variable: c4935 o|substituted constant variable: c4943 o|substituted constant variable: c4960 o|substituted constant variable: c5042 o|substituted constant variable: s5044 o|substituted constant variable: c5047 o|substituted constant variable: s5049 o|substituted constant variable: s5090 o|substituted constant variable: r2147022387 o|substituted constant variable: c5163 o|substituted constant variable: p5164 o|substituted constant variable: s5165 o|substituted constant variable: c5168 o|substituted constant variable: s5170 o|substituted constant variable: r2153622392 o|replaced variables: 131 o|removed binding forms: 2986 o|removed conditional forms: 1 o|inlining procedure: k6637 o|inlining procedure: k6637 o|inlining procedure: k6637 o|contracted procedure: k6680 o|inlining procedure: k6933 o|inlining procedure: k6933 o|inlining procedure: k7291 o|inlining procedure: k8531 o|inlining procedure: k8630 o|inlining procedure: k9151 o|inlining procedure: k9151 o|inlining procedure: k9867 o|inlining procedure: k9935 o|inlining procedure: k9918 o|inlining procedure: k10470 o|inlining procedure: k10453 o|inlining procedure: k10803 o|inlining procedure: k10786 o|inlining procedure: k11204 o|inlining procedure: k11204 o|inlining procedure: k11765 o|inlining procedure: k12156 o|inlining procedure: k12250 o|inlining procedure: k12222 o|inlining procedure: k12365 o|inlining procedure: k12340 o|inlining procedure: k12482 o|inlining procedure: k12541 o|inlining procedure: k12675 o|inlining procedure: k12778 o|inlining procedure: k12999 o|inlining procedure: k13089 o|inlining procedure: k13286 o|inlining procedure: k13354 o|inlining procedure: k13423 o|inlining procedure: k13592 o|inlining procedure: k13609 o|inlining procedure: k13549 o|inlining procedure: k13532 o|inlining procedure: k13773 o|substituted constant variable: r141362201822607 o|inlining procedure: k14803 o|inlining procedure: k15307 o|inlining procedure: k16466 o|inlining procedure: k17273 o|inlining procedure: k17273 o|inlining procedure: k17273 o|inlining procedure: k17273 o|inlining procedure: k17502 o|inlining procedure: k17649 o|inlining procedure: k17668 o|inlining procedure: k17721 o|inlining procedure: k17753 o|inlining procedure: k17753 o|inlining procedure: k17860 o|inlining procedure: k17860 o|inlining procedure: k19352 o|inlining procedure: k20502 o|inlining procedure: k20502 o|inlining procedure: k20757 o|inlining procedure: k21508 o|inlining procedure: k21508 o|replaced variables: 219 o|removed binding forms: 384 o|Removed `not' forms: 1 o|substituted constant variable: r663822684 o|substituted constant variable: r663822686 o|substituted constant variable: r663822688 o|substituted constant variable: r729222694 o|substituted constant variable: r853222723 o|substituted constant variable: r863122724 o|substituted constant variable: r986822755 o|substituted constant variable: r993622757 o|substituted constant variable: r991922758 o|substituted constant variable: r1047122765 o|substituted constant variable: r1045422766 o|substituted constant variable: r1080422767 o|substituted constant variable: r1078722768 o|inlining procedure: k11963 o|substituted constant variable: r1215722781 o|substituted constant variable: r1225122784 o|substituted constant variable: r1222322787 o|substituted constant variable: r1236622790 o|substituted constant variable: r1234122793 o|substituted constant variable: r1248322796 o|substituted constant variable: r1254222799 o|substituted constant variable: r1267622802 o|substituted constant variable: r1277922805 o|substituted constant variable: r1300022812 o|substituted constant variable: r1309022815 o|substituted constant variable: r1328722820 o|substituted constant variable: r1335522823 o|substituted constant variable: r1342422826 o|substituted constant variable: r1359322829 o|substituted constant variable: r1361022830 o|substituted constant variable: r1355022831 o|substituted constant variable: r1353322832 o|substituted constant variable: r1377422835 o|substituted constant variable: r1530822863 o|substituted constant variable: r1727422875 o|substituted constant variable: r1727422878 o|substituted constant variable: r1766922885 o|substituted constant variable: r1772222886 o|removed call to pure procedure with unused result: "(tweaks.scm:47) slot" o|substituted constant variable: r1775422888 o|substituted constant variable: r1815822658 o|substituted constant variable: r1935322911 o|substituted constant variable: r1935322911 o|substituted constant variable: r1935322911 o|inlining procedure: k20289 o|inlining procedure: k20289 o|substituted constant variable: r2050322915 o|substituted constant variable: r2075822917 o|substituted constant variable: r2075822917 o|substituted constant variable: r2075822917 o|substituted constant variable: r2150922923 o|substituted constant variable: r2150922923 o|substituted constant variable: r2150922928 o|substituted constant variable: r2150922928 o|replaced variables: 11 o|removed binding forms: 235 o|removed conditional forms: 11 o|Removed `not' forms: 1 o|substituted constant variable: r1196423001 o|contracted procedure: k17741 o|substituted constant variable: r2029023093 o|replaced variables: 2 o|removed binding forms: 63 o|removed conditional forms: 1 o|removed binding forms: 5 o|simplifications: ((if . 73) (##core#call . 1865)) o| call simplifications: o| positive? 3 o| void o| boolean? o| char? o| eof-object? o| sub1 o| fixnum? 2 o| integer? o| inexact->exact 2 o| fx- 5 o| add1 15 o| fxmax 2 o| fx* 2 o| fx+ 6 o| = 4 o| set-cdr! o| - 7 o| zero? 3 o| ##sys#check-structure 29 o| ##sys#block-ref 29 o| ##sys#structure? 4 o| ##sys#make-structure 66 o| call-with-current-continuation o| fx>= 2 o| string o| number? 2 o| string=? o| < o| > 3 o| not-pair? 2 o| first 59 o| proper-list? 5 o| length 14 o| member 3 o| cddddr o| + 16 o| vector 3 o| fourth 6 o| string? 4 o| ##sys#apply 2 o| equal? o| values 6 o| set-car! 3 o| list-ref 2 o| not 26 o| cddr 21 o| ##sys#call-with-values 10 o| assoc o| alist-cons 9 o| ##sys#setslot 40 o| list 100 o| ##sys#cons 37 o| caddr 14 o| cdddr 8 o| cadddr 3 o| cdr 26 o| cons 130 o| assq 16 o| memq 17 o| second 39 o| third 22 o| ##sys#list 108 o| list? 5 o| car 81 o| cadr 55 o| ##sys#check-list 59 o| pair? 105 o| ##sys#slot 253 o| caar 2 o| eq? 270 o| symbol? 20 o| ##sys#fudge o| null? 57 o| apply 6 o|contracted procedure: k6348 o|contracted procedure: k6354 o|contracted procedure: k6508 o|contracted procedure: k6534 o|contracted procedure: k6524 o|contracted procedure: k6573 o|contracted procedure: k6576 o|contracted procedure: k6613 o|contracted procedure: k6588 o|contracted procedure: k6598 o|contracted procedure: k6602 o|contracted procedure: k6606 o|contracted procedure: k6610 o|contracted procedure: k6643 o|contracted procedure: k6649 o|contracted procedure: k6668 o|contracted procedure: k6655 o|contracted procedure: k6637 o|contracted procedure: k6825 o|contracted procedure: k6701 o|contracted procedure: k6721 o|contracted procedure: k6729 o|contracted procedure: k6754 o|contracted procedure: k6750 o|contracted procedure: k6735 o|contracted procedure: k6760 o|contracted procedure: k6768 o|contracted procedure: k6789 o|contracted procedure: k6793 o|contracted procedure: k6774 o|contracted procedure: k6815 o|contracted procedure: k6930 o|contracted procedure: k6948 o|contracted procedure: k6976 o|contracted procedure: k11652 o|contracted procedure: k6994 o|contracted procedure: k7000 o|contracted procedure: k7016 o|contracted procedure: k11547 o|contracted procedure: k7050 o|contracted procedure: k7046 o|contracted procedure: k7059 o|contracted procedure: k7088 o|contracted procedure: k7077 o|contracted procedure: k7084 o|contracted procedure: k7092 o|contracted procedure: k7096 o|contracted procedure: k7102 o|contracted procedure: k7105 o|contracted procedure: k7116 o|contracted procedure: k7122 o|contracted procedure: k7132 o|contracted procedure: k7138 o|contracted procedure: k7149 o|contracted procedure: k7157 o|contracted procedure: k7161 o|contracted procedure: k7167 o|contracted procedure: k7178 o|contracted procedure: k7190 o|contracted procedure: k7207 o|contracted procedure: k7211 o|contracted procedure: k7214 o|contracted procedure: k7217 o|contracted procedure: k7182 o|contracted procedure: k7174 o|contracted procedure: k7229 o|contracted procedure: k7232 o|contracted procedure: k7235 o|contracted procedure: k7243 o|contracted procedure: k7251 o|contracted procedure: k7258 o|contracted procedure: k7267 o|contracted procedure: k7273 o|contracted procedure: k7286 o|contracted procedure: k7297 o|contracted procedure: k7291 o|contracted procedure: k7312 o|contracted procedure: k7321 o|contracted procedure: k7328 o|contracted procedure: k7346 o|contracted procedure: k7361 o|contracted procedure: k7365 o|contracted procedure: k7371 o|contracted procedure: k7374 o|contracted procedure: k7378 o|contracted procedure: k7405 o|contracted procedure: k7408 o|contracted procedure: k7411 o|contracted procedure: k7419 o|contracted procedure: k7427 o|contracted procedure: k7436 o|contracted procedure: k7439 o|contracted procedure: k7459 o|contracted procedure: k7462 o|contracted procedure: k7488 o|contracted procedure: k7519 o|contracted procedure: k7541 o|contracted procedure: k7544 o|contracted procedure: k7550 o|contracted procedure: k7566 o|contracted procedure: k7579 o|contracted procedure: k7584 o|contracted procedure: k7603 o|contracted procedure: k7648 o|contracted procedure: k7612 o|contracted procedure: k7615 o|contracted procedure: k7618 o|contracted procedure: k7626 o|contracted procedure: k7630 o|contracted procedure: k7638 o|contracted procedure: k7642 o|contracted procedure: k7660 o|contracted procedure: k7663 o|contracted procedure: k7666 o|contracted procedure: k7674 o|contracted procedure: k7682 o|contracted procedure: k7691 o|contracted procedure: k7694 o|contracted procedure: k7711 o|contracted procedure: k7723 o|contracted procedure: k7707 o|contracted procedure: k7703 o|contracted procedure: k7734 o|contracted procedure: k7762 o|contracted procedure: k7758 o|contracted procedure: k7754 o|contracted procedure: k7771 o|contracted procedure: k7774 o|contracted procedure: k7777 o|contracted procedure: k7785 o|contracted procedure: k7793 o|contracted procedure: k7743 o|contracted procedure: k7747 o|contracted procedure: k7805 o|contracted procedure: k7808 o|contracted procedure: k7811 o|contracted procedure: k7819 o|contracted procedure: k7827 o|contracted procedure: k7720 o|contracted procedure: k7836 o|contracted procedure: k7839 o|contracted procedure: k7845 o|contracted procedure: k7851 o|contracted procedure: k7862 o|contracted procedure: k7886 o|contracted procedure: k7898 o|contracted procedure: k7882 o|contracted procedure: k7878 o|contracted procedure: k7858 o|contracted procedure: k7909 o|contracted procedure: k7929 o|contracted procedure: k7925 o|contracted procedure: k7921 o|contracted procedure: k7974 o|contracted procedure: k7938 o|contracted procedure: k7964 o|contracted procedure: k7968 o|contracted procedure: k7960 o|contracted procedure: k7941 o|contracted procedure: k7944 o|contracted procedure: k7952 o|contracted procedure: k7956 o|contracted procedure: k8022 o|contracted procedure: k7986 o|contracted procedure: k7989 o|contracted procedure: k7992 o|contracted procedure: k8000 o|contracted procedure: k8004 o|contracted procedure: k8012 o|contracted procedure: k8016 o|contracted procedure: k7895 o|contracted procedure: k8034 o|contracted procedure: k8037 o|contracted procedure: k8040 o|contracted procedure: k8048 o|contracted procedure: k8056 o|contracted procedure: k7871 o|contracted procedure: k8068 o|contracted procedure: k8071 o|contracted procedure: k8074 o|contracted procedure: k8082 o|contracted procedure: k8090 o|contracted procedure: k8099 o|contracted procedure: k8102 o|contracted procedure: k8116 o|contracted procedure: k8119 o|contracted procedure: k8137 o|contracted procedure: k8146 o|contracted procedure: k8165 o|contracted procedure: k8171 o|contracted procedure: k8180 o|contracted procedure: k8198 o|contracted procedure: k8224 o|contracted procedure: k8220 o|contracted procedure: k8233 o|contracted procedure: k8236 o|contracted procedure: k8239 o|contracted procedure: k8247 o|contracted procedure: k8255 o|contracted procedure: k8281 o|contracted procedure: k8295 o|contracted procedure: k8299 o|contracted procedure: k8308 o|contracted procedure: k8326 o|contracted procedure: k8329 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: k8375 o|contracted procedure: k8378 o|contracted procedure: k8408 o|contracted procedure: k8411 o|contracted procedure: k8426 o|contracted procedure: k8429 o|contracted procedure: k8443 o|contracted procedure: k8452 o|contracted procedure: k8462 o|contracted procedure: k8466 o|contracted procedure: k8475 o|contracted procedure: k8478 o|contracted procedure: k8481 o|contracted procedure: k8489 o|contracted procedure: k8497 o|contracted procedure: k8387 o|contracted procedure: k8405 o|contracted procedure: k8506 o|contracted procedure: k8538 o|contracted procedure: k8542 o|contracted procedure: k8531 o|contracted procedure: k8557 o|contracted procedure: k8564 o|contracted procedure: k8589 o|contracted procedure: k8580 o|contracted procedure: k8602 o|contracted procedure: k8598 o|contracted procedure: k8608 o|contracted procedure: k8611 o|contracted procedure: k8614 o|contracted procedure: k8637 o|contracted procedure: k8641 o|contracted procedure: k8660 o|contracted procedure: k8652 o|contracted procedure: k8656 o|contracted procedure: k8645 o|inlining procedure: k8630 o|inlining procedure: k8630 o|contracted procedure: k8664 o|contracted procedure: k8687 o|contracted procedure: k8697 o|contracted procedure: k8700 o|contracted procedure: k8722 o|contracted procedure: k8743 o|contracted procedure: k8749 o|contracted procedure: k8752 o|contracted procedure: k8755 o|contracted procedure: k8780 o|contracted procedure: k8792 o|contracted procedure: k8802 o|contracted procedure: k8806 o|contracted procedure: k8773 o|contracted procedure: k8777 o|contracted procedure: k8820 o|contracted procedure: k8839 o|contracted procedure: k8851 o|contracted procedure: k8861 o|contracted procedure: k8865 o|contracted procedure: k8832 o|contracted procedure: k8836 o|contracted procedure: k8874 o|contracted procedure: k8877 o|contracted procedure: k8880 o|contracted procedure: k8888 o|contracted procedure: k8896 o|contracted procedure: k8905 o|contracted procedure: k8912 o|contracted procedure: k8931 o|contracted procedure: k8942 o|contracted procedure: k8949 o|contracted procedure: k8960 o|contracted procedure: k8963 o|contracted procedure: k8980 o|contracted procedure: k8976 o|contracted procedure: k8989 o|contracted procedure: k8992 o|contracted procedure: k8995 o|contracted procedure: k9003 o|contracted procedure: k9011 o|contracted procedure: k9020 o|contracted procedure: k9557 o|contracted procedure: k9026 o|contracted procedure: k9119 o|contracted procedure: k9128 o|contracted procedure: k9137 o|contracted procedure: k9140 o|contracted procedure: k9161 o|contracted procedure: k6843 o|contracted procedure: k6864 o|contracted procedure: k6879 o|contracted procedure: k6889 o|contracted procedure: k6893 o|contracted procedure: k9258 o|contracted procedure: k9262 o|contracted procedure: k9322 o|contracted procedure: k9334 o|contracted procedure: k9384 o|contracted procedure: k9396 o|contracted procedure: k9408 o|contracted procedure: k9411 o|contracted procedure: k9414 o|contracted procedure: k9422 o|contracted procedure: k9430 o|contracted procedure: k9459 o|contracted procedure: k9467 o|contracted procedure: k9479 o|contracted procedure: k9488 o|contracted procedure: k9506 o|contracted procedure: k9497 o|contracted procedure: k9512 o|contracted procedure: k9524 o|contracted procedure: k9527 o|contracted procedure: k9530 o|contracted procedure: k9538 o|contracted procedure: k9546 o|contracted procedure: k9561 o|contracted procedure: k9567 o|contracted procedure: k9570 o|contracted procedure: k9575 o|contracted procedure: k9578 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: k9644 o|contracted procedure: k9653 o|contracted procedure: k9659 o|contracted procedure: k9667 o|contracted procedure: k9701 o|contracted procedure: k9681 o|contracted procedure: k9697 o|contracted procedure: k9689 o|contracted procedure: k9685 o|contracted procedure: k9677 o|contracted procedure: k9711 o|contracted procedure: k9719 o|contracted procedure: k9753 o|contracted procedure: k9733 o|contracted procedure: k9741 o|contracted procedure: k9745 o|contracted procedure: k9737 o|contracted procedure: k9729 o|contracted procedure: k9780 o|contracted procedure: k9867 o|contracted procedure: k9880 o|contracted procedure: k9913 o|contracted procedure: k9901 o|contracted procedure: k9909 o|contracted procedure: k9905 o|contracted procedure: k9897 o|contracted procedure: k9941 o|contracted procedure: k9935 o|contracted procedure: k9924 o|contracted procedure: k9918 o|contracted procedure: k9953 o|contracted procedure: k9981 o|contracted procedure: k10000 o|contracted procedure: k10012 o|contracted procedure: k10015 o|contracted procedure: k9996 o|contracted procedure: k9988 o|contracted procedure: k10027 o|contracted procedure: k10030 o|contracted procedure: k10033 o|contracted procedure: k10041 o|contracted procedure: k10049 o|contracted procedure: k10056 o|contracted procedure: k10062 o|contracted procedure: k10069 o|contracted procedure: k10081 o|contracted procedure: k10085 o|contracted procedure: k10091 o|contracted procedure: k10102 o|contracted procedure: k10110 o|contracted procedure: k10113 o|contracted procedure: k10098 o|contracted procedure: k10124 o|contracted procedure: k10133 o|contracted procedure: k10136 o|contracted procedure: k10139 o|contracted procedure: k10147 o|contracted procedure: k10155 o|contracted procedure: k10164 o|contracted procedure: k10171 o|contracted procedure: k10179 o|contracted procedure: k10185 o|contracted procedure: k10192 o|contracted procedure: k10204 o|contracted procedure: k10208 o|contracted procedure: k10214 o|contracted procedure: k10217 o|contracted procedure: k10220 o|contracted procedure: k10232 o|contracted procedure: k10235 o|contracted procedure: k10242 o|contracted procedure: k10248 o|contracted procedure: k10251 o|contracted procedure: k10257 o|contracted procedure: k10272 o|contracted procedure: k10279 o|contracted procedure: k10305 o|contracted procedure: k10318 o|contracted procedure: k10331 o|contracted procedure: k10344 o|contracted procedure: k10357 o|contracted procedure: k10370 o|contracted procedure: k10383 o|contracted procedure: k10394 o|contracted procedure: k10410 o|contracted procedure: k10400 o|contracted procedure: k10414 o|contracted procedure: k10418 o|contracted procedure: k10424 o|contracted procedure: k10427 o|contracted procedure: k10433 o|contracted procedure: k10439 o|contracted procedure: k10499 o|contracted procedure: k10495 o|contracted procedure: k10510 o|contracted procedure: k10507 o|contracted procedure: k10476 o|contracted procedure: k10470 o|contracted procedure: k10459 o|contracted procedure: k10453 o|contracted procedure: k10521 o|contracted procedure: k10528 o|contracted procedure: k10534 o|contracted procedure: k10537 o|contracted procedure: k10543 o|contracted procedure: k10546 o|contracted procedure: k10576 o|contracted procedure: k10556 o|contracted procedure: k10568 o|contracted procedure: k10560 o|contracted procedure: k10564 o|contracted procedure: k10590 o|contracted procedure: k10593 o|contracted procedure: k10691 o|contracted procedure: k10612 o|contracted procedure: k10683 o|contracted procedure: k10675 o|contracted procedure: k10679 o|contracted procedure: k10671 o|contracted procedure: k10667 o|contracted procedure: k10627 o|contracted procedure: k10631 o|contracted procedure: k10619 o|contracted procedure: k10623 o|contracted procedure: k10643 o|contracted procedure: k10660 o|contracted procedure: k10702 o|contracted procedure: k10694 o|contracted procedure: k10706 o|contracted procedure: k10712 o|contracted procedure: k10715 o|contracted procedure: k10718 o|contracted procedure: k10732 o|contracted procedure: k10735 o|contracted procedure: k10738 o|contracted procedure: k10841 o|contracted procedure: k10837 o|contracted procedure: k10749 o|contracted procedure: k10766 o|contracted procedure: k10762 o|contracted procedure: k10826 o|contracted procedure: k10822 o|contracted procedure: k10809 o|contracted procedure: k10803 o|contracted procedure: k10792 o|contracted procedure: k10786 o|contracted procedure: k10830 o|contracted procedure: k10881 o|contracted procedure: k10891 o|contracted procedure: k10909 o|contracted procedure: k10920 o|contracted procedure: k10939 o|contracted procedure: k10916 o|contracted procedure: k10951 o|contracted procedure: k10954 o|contracted procedure: k10957 o|contracted procedure: k10965 o|contracted procedure: k10973 o|contracted procedure: k10982 o|contracted procedure: k10995 o|contracted procedure: k11001 o|contracted procedure: k11262 o|contracted procedure: k11004 o|contracted procedure: k11258 o|contracted procedure: k11010 o|contracted procedure: k11254 o|contracted procedure: k11013 o|contracted procedure: k11016 o|contracted procedure: k11037 o|contracted procedure: k11049 o|contracted procedure: k11045 o|contracted procedure: k11065 o|contracted procedure: k11061 o|contracted procedure: k11072 o|contracted procedure: k11095 o|contracted procedure: k11091 o|contracted procedure: k11083 o|contracted procedure: k11087 o|contracted procedure: k11079 o|contracted procedure: k11101 o|contracted procedure: k11110 o|contracted procedure: k11153 o|contracted procedure: k11149 o|contracted procedure: k11145 o|contracted procedure: k11141 o|contracted procedure: k11121 o|contracted procedure: k11137 o|contracted procedure: k11133 o|contracted procedure: k11125 o|contracted procedure: k11117 o|contracted procedure: k11165 o|contracted procedure: k11168 o|contracted procedure: k11171 o|contracted procedure: k11178 o|contracted procedure: k11236 o|contracted procedure: k11201 o|contracted procedure: k11232 o|contracted procedure: k11210 o|contracted procedure: k11224 o|contracted procedure: k11228 o|contracted procedure: k11204 o|contracted procedure: k11247 o|contracted procedure: k11243 o|contracted procedure: k11268 o|contracted procedure: k11271 o|contracted procedure: k11277 o|contracted procedure: k11280 o|contracted procedure: k11296 o|contracted procedure: k11300 o|contracted procedure: k11292 o|contracted procedure: k11306 o|contracted procedure: k11318 o|contracted procedure: k11327 o|contracted procedure: k11334 o|contracted procedure: k11349 o|contracted procedure: k11345 o|contracted procedure: k11364 o|contracted procedure: k11360 o|contracted procedure: k11367 o|contracted procedure: k11373 o|contracted procedure: k11386 o|contracted procedure: k11394 o|contracted procedure: k11511 o|contracted procedure: k11553 o|contracted procedure: k11561 o|contracted procedure: k11648 o|contracted procedure: k11640 o|contracted procedure: k11630 o|contracted procedure: k11634 o|contracted procedure: k11626 o|contracted procedure: k11658 o|contracted procedure: k11666 o|contracted procedure: k11678 o|contracted procedure: k11681 o|contracted procedure: k11684 o|contracted procedure: k11692 o|contracted procedure: k11700 o|contracted procedure: k11716 o|contracted procedure: k11733 o|contracted procedure: k11741 o|contracted procedure: k11785 o|contracted procedure: k11756 o|contracted procedure: k11762 o|contracted procedure: k11778 o|inlining procedure: k11765 o|contracted procedure: k11775 o|inlining procedure: k11765 o|removed unused formal parameters: (return1905) o|contracted procedure: k11862 o|contracted procedure: k11874 o|contracted procedure: k11880 o|contracted procedure: k11905 o|contracted procedure: k11908 o|contracted procedure: k11911 o|contracted procedure: k11919 o|contracted procedure: k11927 o|contracted procedure: k11947 o|contracted procedure: k11963 o|contracted procedure: k11981 o|contracted procedure: k11987 o|contracted procedure: k11993 o|contracted procedure: k12012 o|contracted procedure: k12018 o|contracted procedure: k12037 o|contracted procedure: k12043 o|contracted procedure: k12066 o|contracted procedure: k12077 o|contracted procedure: k12083 o|contracted procedure: k12086 o|contracted procedure: k12093 o|contracted procedure: k12100 o|contracted procedure: k12107 o|contracted procedure: k12114 o|contracted procedure: k12121 o|contracted procedure: k12128 o|contracted procedure: k12135 o|contracted procedure: k12142 o|contracted procedure: k12149 o|contracted procedure: k12174 o|contracted procedure: k12186 o|contracted procedure: k12196 o|contracted procedure: k12200 o|contracted procedure: k12162 o|contracted procedure: k12156 o|contracted procedure: k12208 o|contracted procedure: k12215 o|contracted procedure: k12240 o|contracted procedure: k12268 o|contracted procedure: k12280 o|contracted procedure: k12290 o|contracted procedure: k12294 o|contracted procedure: k12256 o|contracted procedure: k12250 o|contracted procedure: k12303 o|contracted procedure: k12313 o|contracted procedure: k12317 o|contracted procedure: k12228 o|contracted procedure: k12222 o|contracted procedure: k12323 o|contracted procedure: k12330 o|contracted procedure: k12355 o|contracted procedure: k12389 o|contracted procedure: k12399 o|contracted procedure: k12403 o|contracted procedure: k12371 o|contracted procedure: k12365 o|contracted procedure: k12412 o|contracted procedure: k12422 o|contracted procedure: k12426 o|contracted procedure: k12346 o|contracted procedure: k12340 o|contracted procedure: k12434 o|contracted procedure: k12454 o|contracted procedure: k12461 o|contracted procedure: k12468 o|contracted procedure: k12475 o|contracted procedure: k12500 o|contracted procedure: k12512 o|contracted procedure: k12522 o|contracted procedure: k12526 o|contracted procedure: k12488 o|contracted procedure: k12482 o|contracted procedure: k12534 o|contracted procedure: k12559 o|contracted procedure: k12571 o|contracted procedure: k12581 o|contracted procedure: k12585 o|contracted procedure: k12547 o|contracted procedure: k12541 o|contracted procedure: k12593 o|contracted procedure: k12605 o|contracted procedure: k12627 o|contracted procedure: k12611 o|contracted procedure: k12633 o|contracted procedure: k12655 o|contracted procedure: k12639 o|contracted procedure: k12661 o|contracted procedure: k12726 o|contracted procedure: k12667 o|contracted procedure: k12693 o|contracted procedure: k12705 o|contracted procedure: k12715 o|contracted procedure: k12719 o|contracted procedure: k12681 o|contracted procedure: k12675 o|contracted procedure: k12732 o|contracted procedure: k12758 o|contracted procedure: k12738 o|contracted procedure: k12764 o|contracted procedure: k12829 o|contracted procedure: k12771 o|contracted procedure: k12796 o|contracted procedure: k12808 o|contracted procedure: k12818 o|contracted procedure: k12822 o|contracted procedure: k12784 o|contracted procedure: k12778 o|contracted procedure: k12841 o|contracted procedure: k12848 o|contracted procedure: k12860 o|contracted procedure: k12874 o|contracted procedure: k12880 o|contracted procedure: k12887 o|contracted procedure: k12890 o|contracted procedure: k12899 o|contracted procedure: k12903 o|contracted procedure: k12915 o|contracted procedure: k12925 o|contracted procedure: k12929 o|contracted procedure: k12937 o|contracted procedure: k12944 o|contracted procedure: k12956 o|contracted procedure: k12966 o|contracted procedure: k12970 o|contracted procedure: k12978 o|contracted procedure: k12985 o|contracted procedure: k12991 o|contracted procedure: k13017 o|contracted procedure: k13029 o|contracted procedure: k13039 o|contracted procedure: k13043 o|contracted procedure: k13005 o|contracted procedure: k12999 o|contracted procedure: k13053 o|contracted procedure: k13059 o|contracted procedure: k13065 o|contracted procedure: k13075 o|contracted procedure: k13107 o|contracted procedure: k13119 o|contracted procedure: k13129 o|contracted procedure: k13133 o|contracted procedure: k13095 o|contracted procedure: k13089 o|contracted procedure: k13142 o|contracted procedure: k13150 o|contracted procedure: k13225 o|contracted procedure: k13237 o|contracted procedure: k13240 o|contracted procedure: k13243 o|contracted procedure: k13251 o|contracted procedure: k13259 o|contracted procedure: k13158 o|contracted procedure: k13183 o|contracted procedure: k13187 o|contracted procedure: k13193 o|contracted procedure: k13199 o|contracted procedure: k13216 o|contracted procedure: k13205 o|contracted procedure: k13212 o|contracted procedure: k13270 o|contracted procedure: k13277 o|contracted procedure: k13304 o|contracted procedure: k13316 o|contracted procedure: k13326 o|contracted procedure: k13330 o|contracted procedure: k13292 o|contracted procedure: k13286 o|contracted procedure: k13340 o|contracted procedure: k13346 o|contracted procedure: k13372 o|contracted procedure: k13384 o|contracted procedure: k13394 o|contracted procedure: k13398 o|contracted procedure: k13360 o|contracted procedure: k13354 o|contracted procedure: k13408 o|contracted procedure: k13416 o|contracted procedure: k13441 o|contracted procedure: k13453 o|contracted procedure: k13463 o|contracted procedure: k13467 o|contracted procedure: k13429 o|contracted procedure: k13423 o|contracted procedure: k13477 o|contracted procedure: k13587 o|contracted procedure: k13573 o|contracted procedure: k13598 o|contracted procedure: k13592 o|contracted procedure: k13615 o|contracted procedure: k13609 o|contracted procedure: k13555 o|contracted procedure: k13549 o|contracted procedure: k13538 o|contracted procedure: k13532 o|contracted procedure: k13631 o|contracted procedure: k13634 o|contracted procedure: k13640 o|contracted procedure: k13647 o|contracted procedure: k13662 o|contracted procedure: k13666 o|contracted procedure: k13673 o|contracted procedure: k13679 o|contracted procedure: k13686 o|contracted procedure: k13693 o|contracted procedure: k13705 o|contracted procedure: k13715 o|contracted procedure: k13719 o|contracted procedure: k13725 o|contracted procedure: k13768 o|contracted procedure: k13779 o|contracted procedure: k13773 o|contracted procedure: k13797 o|contracted procedure: k13801 o|contracted procedure: k13807 o|contracted procedure: k13825 o|contracted procedure: k13813 o|contracted procedure: k13821 o|contracted procedure: k13829 o|contracted procedure: k13841 o|contracted procedure: k13851 o|contracted procedure: k13855 o|contracted procedure: k13861 o|contracted procedure: k13868 o|contracted procedure: k13971 o|removed unused parameter to known procedure: return1905 a11850 o|contracted procedure: k13992 o|contracted procedure: k14001 o|contracted procedure: k14010 o|contracted procedure: k14019 o|contracted procedure: k14028 o|contracted procedure: k14037 o|contracted procedure: k14046 o|contracted procedure: k14055 o|contracted procedure: k14169 o|contracted procedure: k14172 o|contracted procedure: k14178 o|contracted procedure: k14190 o|contracted procedure: k14193 o|contracted procedure: k14203 o|contracted procedure: k14211 o|contracted procedure: k14215 o|contracted procedure: k14222 o|contracted procedure: k14233 o|contracted procedure: k14282 o|contracted procedure: k14274 o|contracted procedure: k14278 o|contracted procedure: k14270 o|contracted procedure: k14266 o|contracted procedure: k14246 o|contracted procedure: k14262 o|contracted procedure: k14327 o|contracted procedure: k14291 o|contracted procedure: k14294 o|contracted procedure: k14297 o|contracted procedure: k14305 o|contracted procedure: k14309 o|contracted procedure: k14317 o|contracted procedure: k14321 o|contracted procedure: k14337 o|contracted procedure: k14357 o|contracted procedure: k14360 o|contracted procedure: k14372 o|contracted procedure: k14375 o|contracted procedure: k14378 o|contracted procedure: k14386 o|contracted procedure: k14394 o|contracted procedure: k14400 o|contracted procedure: k14412 o|contracted procedure: k14424 o|contracted procedure: k14427 o|contracted procedure: k14430 o|contracted procedure: k14438 o|contracted procedure: k14446 o|contracted procedure: k14076 o|contracted procedure: k14082 o|contracted procedure: k14085 o|contracted procedure: k14091 o|contracted procedure: k14110 o|contracted procedure: k14113 o|contracted procedure: k14138 o|contracted procedure: k14141 o|contracted procedure: k14455 o|contracted procedure: k14461 o|contracted procedure: k14464 o|contracted procedure: k14470 o|contracted procedure: k14483 o|contracted procedure: k14492 o|contracted procedure: k14495 o|contracted procedure: k14501 o|contracted procedure: k14509 o|contracted procedure: k14515 o|contracted procedure: k14521 o|contracted procedure: k14536 o|contracted procedure: k14558 o|contracted procedure: k14554 o|contracted procedure: k14539 o|contracted procedure: k14542 o|contracted procedure: k14550 o|contracted procedure: k14570 o|contracted procedure: k14592 o|contracted procedure: k14588 o|contracted procedure: k14573 o|contracted procedure: k14576 o|contracted procedure: k14584 o|contracted procedure: k14617 o|contracted procedure: k14625 o|contracted procedure: k14631 o|contracted procedure: k14637 o|contracted procedure: k14652 o|contracted procedure: k14674 o|contracted procedure: k14670 o|contracted procedure: k14655 o|contracted procedure: k14658 o|contracted procedure: k14666 o|contracted procedure: k14686 o|contracted procedure: k14708 o|contracted procedure: k14704 o|contracted procedure: k14689 o|contracted procedure: k14692 o|contracted procedure: k14700 o|contracted procedure: k14715 o|contracted procedure: k14725 o|contracted procedure: k14750 o|contracted procedure: k14735 o|contracted procedure: k14746 o|contracted procedure: k14742 o|contracted procedure: k14768 o|contracted procedure: k14784 o|contracted procedure: k14825 o|contracted procedure: k14793 o|contracted procedure: k14800 o|contracted procedure: k14811 o|contracted procedure: k14818 o|contracted procedure: k14892 o|contracted procedure: k14853 o|contracted procedure: k14857 o|contracted procedure: k14849 o|contracted procedure: k14865 o|contracted procedure: k14880 o|contracted procedure: k14884 o|contracted procedure: k14926 o|contracted procedure: k14901 o|contracted procedure: k14917 o|contracted procedure: k14908 o|contracted procedure: k14937 o|contracted procedure: k14945 o|contracted procedure: k14953 o|contracted procedure: k14961 o|contracted procedure: k14967 o|contracted procedure: k14979 o|contracted procedure: k14999 o|contracted procedure: k15003 o|contracted procedure: k15019 o|contracted procedure: k15100 o|contracted procedure: k15075 o|contracted procedure: k15079 o|contracted procedure: k15032 o|contracted procedure: k15023 o|contracted procedure: k15040 o|contracted procedure: k15055 o|contracted procedure: k15067 o|contracted procedure: k15071 o|contracted procedure: k15106 o|contracted procedure: k15118 o|contracted procedure: k15125 o|contracted procedure: k15132 o|contracted procedure: k15150 o|contracted procedure: k15162 o|contracted procedure: k15166 o|contracted procedure: k15176 o|contracted procedure: k15182 o|contracted procedure: k15188 o|contracted procedure: k15191 o|contracted procedure: k15207 o|contracted procedure: k15213 o|contracted procedure: k15281 o|contracted procedure: k15274 o|contracted procedure: k15219 o|contracted procedure: k15222 o|contracted procedure: k15229 o|contracted procedure: k15244 o|contracted procedure: k15269 o|contracted procedure: k15257 o|contracted procedure: k15248 o|contracted procedure: k15287 o|contracted procedure: k15298 o|contracted procedure: k15302 o|contracted procedure: k15344 o|contracted procedure: k15326 o|contracted procedure: k15335 o|contracted procedure: k15313 o|contracted procedure: k15307 o|contracted procedure: k15354 o|contracted procedure: k15366 o|contracted procedure: k15373 o|contracted procedure: k15381 o|contracted procedure: k15388 o|contracted procedure: k15631 o|contracted procedure: k15694 o|contracted procedure: k15669 o|contracted procedure: k15673 o|contracted procedure: k15644 o|contracted procedure: k15657 o|contracted procedure: k15661 o|contracted procedure: k15653 o|contracted procedure: k15635 o|contracted procedure: k15394 o|contracted procedure: k15397 o|contracted procedure: k15404 o|contracted procedure: k15410 o|contracted procedure: k15436 o|contracted procedure: k15442 o|contracted procedure: k15448 o|contracted procedure: k15454 o|contracted procedure: k15460 o|contracted procedure: k15498 o|contracted procedure: k15504 o|contracted procedure: k15539 o|contracted procedure: k15610 o|contracted procedure: k15585 o|contracted procedure: k15589 o|contracted procedure: k15552 o|contracted procedure: k15543 o|contracted procedure: k15715 o|contracted procedure: k15730 o|contracted procedure: k15752 o|contracted procedure: k15778 o|contracted procedure: k15782 o|contracted procedure: k15798 o|contracted procedure: k15802 o|contracted procedure: k15810 o|contracted procedure: k15814 o|contracted procedure: k15822 o|contracted procedure: k15833 o|contracted procedure: k15855 o|contracted procedure: k15876 o|contracted procedure: k15885 o|contracted procedure: k15894 o|contracted procedure: k15903 o|contracted procedure: k15912 o|contracted procedure: k17914 o|contracted procedure: k15921 o|contracted procedure: k15931 o|contracted procedure: k15942 o|contracted procedure: k15950 o|contracted procedure: k15958 o|contracted procedure: k15967 o|contracted procedure: k15976 o|contracted procedure: k15979 o|contracted procedure: k15988 o|contracted procedure: k15997 o|contracted procedure: k16019 o|contracted procedure: k16022 o|contracted procedure: k16034 o|contracted procedure: k16040 o|contracted procedure: k16084 o|contracted procedure: k16056 o|contracted procedure: k16075 o|contracted procedure: k16059 o|contracted procedure: k16066 o|contracted procedure: k16090 o|contracted procedure: k16093 o|contracted procedure: k16108 o|contracted procedure: k16115 o|contracted procedure: k16122 o|contracted procedure: k16125 o|contracted procedure: k16147 o|contracted procedure: k16157 o|contracted procedure: k16168 o|contracted procedure: k16180 o|contracted procedure: k16193 o|contracted procedure: k16203 o|contracted procedure: k16207 o|contracted procedure: k16213 o|contracted procedure: k16216 o|contracted procedure: k16226 o|contracted procedure: k16232 o|contracted procedure: k16246 o|contracted procedure: k16285 o|contracted procedure: k16272 o|contracted procedure: k16276 o|contracted procedure: k16289 o|contracted procedure: k16300 o|contracted procedure: k16307 o|contracted procedure: k16326 o|contracted procedure: k16336 o|contracted procedure: k16340 o|contracted procedure: k16352 o|contracted procedure: k16355 o|contracted procedure: k16358 o|contracted procedure: k16361 o|contracted procedure: k16390 o|contracted procedure: k16399 o|contracted procedure: k16418 o|contracted procedure: k16432 o|contracted procedure: k16441 o|contracted procedure: k16457 o|contracted procedure: k16460 o|contracted procedure: k16463 o|contracted procedure: k16484 o|contracted procedure: k16534 o|contracted procedure: k16557 o|contracted procedure: k16569 o|contracted procedure: k16579 o|contracted procedure: k16583 o|contracted procedure: k16761 o|contracted procedure: k16592 o|contracted procedure: k16607 o|contracted procedure: k16622 o|contracted procedure: k16628 o|contracted procedure: k16637 o|contracted procedure: k16640 o|contracted procedure: k16673 o|contracted procedure: k16676 o|contracted procedure: k16752 o|contracted procedure: k16727 o|contracted procedure: k16743 o|contracted procedure: k16734 o|contracted procedure: k16781 o|contracted procedure: k16777 o|contracted procedure: k16806 o|contracted procedure: k16811 o|contracted procedure: k16817 o|contracted procedure: k16824 o|contracted procedure: k16830 o|contracted procedure: k16836 o|contracted procedure: k16843 o|contracted procedure: k16851 o|contracted procedure: k16857 o|contracted procedure: k16863 o|contracted procedure: k16870 o|contracted procedure: k16877 o|contracted procedure: k16884 o|contracted procedure: k16891 o|contracted procedure: k16899 o|contracted procedure: k16907 o|contracted procedure: k16935 o|contracted procedure: k16942 o|contracted procedure: k16946 o|contracted procedure: k16984 o|contracted procedure: k17134 o|contracted procedure: k16993 o|contracted procedure: k17130 o|contracted procedure: k16996 o|contracted procedure: k17010 o|contracted procedure: k17098 o|contracted procedure: k17016 o|contracted procedure: k17019 o|contracted procedure: k17022 o|contracted procedure: k17046 o|contracted procedure: k17031 o|contracted procedure: k17093 o|contracted procedure: k17049 o|contracted procedure: k17084 o|contracted procedure: k17055 o|contracted procedure: k17062 o|contracted procedure: k17075 o|contracted procedure: k17066 o|contracted procedure: k17101 o|contracted procedure: k17107 o|contracted procedure: k17119 o|contracted procedure: k17146 o|contracted procedure: k17149 o|contracted procedure: k17267 o|contracted procedure: k17155 o|contracted procedure: k17258 o|contracted procedure: k17158 o|contracted procedure: k17235 o|contracted procedure: k17197 o|contracted procedure: k17212 o|contracted procedure: k17285 o|contracted procedure: k17354 o|contracted procedure: k17297 o|contracted procedure: k17338 o|contracted procedure: k17300 o|contracted procedure: k17303 o|contracted procedure: k17487 o|contracted procedure: k17475 o|contracted procedure: k17360 o|contracted procedure: k17368 o|contracted procedure: k17374 o|contracted procedure: k17381 o|contracted procedure: k17400 o|contracted procedure: k17410 o|contracted procedure: k17446 o|contracted procedure: k17458 o|contracted procedure: k17468 o|contracted procedure: k17472 o|contracted procedure: k17517 o|contracted procedure: k17493 o|contracted procedure: k17502 o|contracted procedure: k17529 o|contracted procedure: k17537 o|contracted procedure: k17558 o|contracted procedure: k17549 o|contracted procedure: k17608 o|contracted procedure: k17564 o|contracted procedure: k17599 o|contracted procedure: k17567 o|contracted procedure: k17619 o|contracted procedure: k17686 o|contracted procedure: k17625 o|contracted procedure: k17665 o|contracted procedure: k17646 o|contracted procedure: k17668 o|contracted procedure: k17710 o|contracted procedure: k17727 o|contracted procedure: k17721 o|contracted procedure: k17790 o|contracted procedure: k17847 o|contracted procedure: k17870 o|contracted procedure: k17896 o|contracted procedure: k17906 o|contracted procedure: k17910 o|contracted procedure: k17940 o|contracted procedure: k17955 o|contracted procedure: k17963 o|contracted procedure: k17971 o|contracted procedure: k17977 o|contracted procedure: k17980 o|contracted procedure: k17986 o|contracted procedure: k17995 o|contracted procedure: k18004 o|contracted procedure: k18026 o|contracted procedure: k18030 o|contracted procedure: k18034 o|contracted procedure: k18044 o|contracted procedure: k18037 o|contracted procedure: k18050 o|contracted procedure: k18053 o|contracted procedure: k18062 o|contracted procedure: k18069 o|contracted procedure: k18075 o|contracted procedure: k18078 o|contracted procedure: k18081 o|contracted procedure: k18328 o|contracted procedure: k18084 o|contracted procedure: k18325 o|contracted procedure: k18087 o|contracted procedure: k18097 o|contracted procedure: k18114 o|contracted procedure: k18117 o|contracted procedure: k18120 o|contracted procedure: k18128 o|contracted procedure: k18136 o|inlining procedure: k18143 o|contracted procedure: k18150 o|contracted procedure: k18316 o|contracted procedure: k18160 o|contracted procedure: k18177 o|contracted procedure: k18180 o|inlining procedure: k18157 o|inlining procedure: k18157 o|contracted procedure: k18222 o|contracted procedure: k18219 o|contracted procedure: k18256 o|contracted procedure: k18260 o|contracted procedure: k18243 o|contracted procedure: k18272 o|contracted procedure: k18294 o|inlining procedure: k18143 o|contracted procedure: k18339 o|contracted procedure: k18342 o|contracted procedure: k18349 o|contracted procedure: k18355 o|contracted procedure: k18391 o|contracted procedure: k18406 o|contracted procedure: k18414 o|contracted procedure: k18426 o|contracted procedure: k18429 o|contracted procedure: k18432 o|contracted procedure: k18440 o|contracted procedure: k18448 o|contracted procedure: k18467 o|contracted procedure: k18473 o|contracted procedure: k18500 o|contracted procedure: k18508 o|contracted procedure: k18516 o|contracted procedure: k18522 o|contracted procedure: k18531 o|contracted procedure: k18534 o|contracted procedure: k18555 o|contracted procedure: k18561 o|contracted procedure: k18581 o|contracted procedure: k18591 o|contracted procedure: k18594 o|contracted procedure: k18615 o|contracted procedure: k18636 o|contracted procedure: k18661 o|contracted procedure: k18649 o|contracted procedure: k18640 o|contracted procedure: k18632 o|contracted procedure: k18619 o|contracted procedure: k18657 o|contracted procedure: k18669 o|contracted procedure: k18687 o|contracted procedure: k18690 o|contracted procedure: k18693 o|contracted procedure: k18705 o|contracted procedure: k18708 o|contracted procedure: k18714 o|contracted procedure: k18723 o|contracted procedure: k18729 o|contracted procedure: k18735 o|contracted procedure: k19052 o|contracted procedure: k18753 o|contracted procedure: k18971 o|contracted procedure: k18975 o|contracted procedure: k18979 o|contracted procedure: k18860 o|contracted procedure: k18766 o|contracted procedure: k18770 o|contracted procedure: k18782 o|inlining procedure: k18757 o|contracted procedure: k18795 o|contracted procedure: k18818 o|contracted procedure: k18822 o|contracted procedure: k18811 o|inlining procedure: k18757 o|contracted procedure: k18831 o|contracted procedure: k18834 o|contracted procedure: k18837 o|contracted procedure: k18845 o|contracted procedure: k18853 o|contracted procedure: k18874 o|contracted procedure: k18892 o|contracted procedure: k18896 o|contracted procedure: k18904 o|contracted procedure: k18938 o|contracted procedure: k18941 o|contracted procedure: k18944 o|contracted procedure: k18952 o|contracted procedure: k18960 o|contracted procedure: k18918 o|contracted procedure: k18926 o|contracted procedure: k18967 o|contracted procedure: k18987 o|contracted procedure: k18992 o|contracted procedure: k19005 o|contracted procedure: k19008 o|contracted procedure: k19023 o|contracted procedure: k19026 o|contracted procedure: k19029 o|contracted procedure: k19037 o|contracted procedure: k19045 o|contracted procedure: k19079 o|contracted procedure: k19075 o|contracted procedure: k19085 o|contracted procedure: k19136 o|contracted procedure: k19100 o|contracted procedure: k19126 o|contracted procedure: k19130 o|contracted procedure: k19122 o|contracted procedure: k19103 o|contracted procedure: k19106 o|contracted procedure: k19114 o|contracted procedure: k19118 o|contracted procedure: k19148 o|contracted procedure: k19151 o|contracted procedure: k19154 o|contracted procedure: k19162 o|contracted procedure: k19170 o|contracted procedure: k19185 o|contracted procedure: k19188 o|contracted procedure: k19191 o|contracted procedure: k19199 o|contracted procedure: k19231 o|contracted procedure: k19264 o|contracted procedure: k19252 o|contracted procedure: k19256 o|contracted procedure: k19244 o|contracted procedure: k19235 o|contracted procedure: k19276 o|contracted procedure: k19296 o|contracted procedure: k19280 o|contracted procedure: k19284 o|contracted procedure: k19317 o|contracted procedure: k19321 o|contracted procedure: k19341 o|contracted procedure: k19345 o|contracted procedure: k19361 o|contracted procedure: k19352 o|contracted procedure: k19369 o|contracted procedure: k19385 o|contracted procedure: k19376 o|contracted procedure: k19391 o|contracted procedure: k19403 o|contracted procedure: k19441 o|contracted procedure: k19437 o|contracted procedure: k19416 o|contracted procedure: k19420 o|inlining procedure: k19407 o|inlining procedure: k19407 o|contracted procedure: k19464 o|contracted procedure: k19470 o|contracted procedure: k19476 o|contracted procedure: k19482 o|contracted procedure: k19488 o|contracted procedure: k19494 o|contracted procedure: k19500 o|contracted procedure: k19506 o|contracted procedure: k19512 o|contracted procedure: k19518 o|contracted procedure: k19524 o|contracted procedure: k19530 o|contracted procedure: k19536 o|contracted procedure: k19577 o|contracted procedure: k19595 o|contracted procedure: k19603 o|contracted procedure: k19615 o|contracted procedure: k19618 o|contracted procedure: k19621 o|contracted procedure: k19629 o|contracted procedure: k19637 o|contracted procedure: k19690 o|contracted procedure: k19646 o|contracted procedure: k19678 o|contracted procedure: k19666 o|contracted procedure: k19670 o|contracted procedure: k19711 o|contracted procedure: k19717 o|contracted procedure: k19738 o|contracted procedure: k19747 o|contracted procedure: k19756 o|contracted procedure: k19765 o|contracted procedure: k19774 o|contracted procedure: k19783 o|contracted procedure: k19792 o|contracted procedure: k19801 o|contracted procedure: k19810 o|contracted procedure: k19819 o|contracted procedure: k19828 o|contracted procedure: k19837 o|contracted procedure: k19846 o|contracted procedure: k19855 o|contracted procedure: k19864 o|contracted procedure: k19873 o|contracted procedure: k19913 o|contracted procedure: k19909 o|contracted procedure: k19905 o|contracted procedure: k19934 o|contracted procedure: k19965 o|contracted procedure: k19979 o|contracted procedure: k20025 o|contracted procedure: k20033 o|contracted procedure: k20041 o|contracted procedure: k20047 o|contracted procedure: k20050 o|contracted procedure: k20056 o|contracted procedure: k20063 o|contracted procedure: k20069 o|contracted procedure: k20072 o|contracted procedure: k20078 o|contracted procedure: k20085 o|contracted procedure: k20100 o|contracted procedure: k20103 o|contracted procedure: k20107 o|contracted procedure: k20111 o|contracted procedure: k20115 o|contracted procedure: k20119 o|contracted procedure: k20125 o|contracted procedure: k20145 o|contracted procedure: k20129 o|contracted procedure: k20151 o|contracted procedure: k20155 o|contracted procedure: k20175 o|contracted procedure: k20181 o|contracted procedure: k20185 o|contracted procedure: k20209 o|contracted procedure: k20215 o|contracted procedure: k20235 o|contracted procedure: k20241 o|contracted procedure: k20245 o|contracted procedure: k20257 o|contracted procedure: k20265 o|contracted procedure: k20271 o|contracted procedure: k20274 o|contracted procedure: k20296 o|contracted procedure: k20324 o|contracted procedure: k20299 o|contracted procedure: k20315 o|contracted procedure: k20306 o|contracted procedure: k20330 o|contracted procedure: k20333 o|contracted procedure: k20336 o|contracted procedure: k20348 o|contracted procedure: k20354 o|contracted procedure: k20389 o|contracted procedure: k20399 o|contracted procedure: k20403 o|contracted procedure: k20407 o|contracted procedure: k20414 o|contracted procedure: k20434 o|contracted procedure: k20443 o|contracted procedure: k20449 o|contracted procedure: k20456 o|contracted procedure: k20467 o|contracted procedure: k20474 o|inlining procedure: k20464 o|inlining procedure: k20464 o|contracted procedure: k20484 o|contracted procedure: k20511 o|contracted procedure: k20502 o|contracted procedure: k20527 o|contracted procedure: k20530 o|contracted procedure: k20533 o|contracted procedure: k20599 o|contracted procedure: k20587 o|contracted procedure: k20536 o|contracted procedure: k20540 o|contracted procedure: k20552 o|contracted procedure: k20556 o|contracted procedure: k20568 o|contracted procedure: k20576 o|contracted procedure: k20605 o|contracted procedure: k20608 o|contracted procedure: k20611 o|contracted procedure: k20643 o|contracted procedure: k20615 o|contracted procedure: k20627 o|contracted procedure: k20639 o|contracted procedure: k20649 o|contracted procedure: k20652 o|contracted procedure: k20655 o|contracted procedure: k20691 o|contracted procedure: k20687 o|contracted procedure: k20675 o|contracted procedure: k20679 o|contracted procedure: k20702 o|contracted procedure: k20705 o|contracted procedure: k20726 o|contracted procedure: k20730 o|contracted procedure: k20734 o|contracted procedure: k20754 o|contracted procedure: k20773 o|contracted procedure: k20766 o|contracted procedure: k20757 o|contracted procedure: k20776 o|contracted procedure: k20792 o|contracted procedure: k20783 o|contracted procedure: k20802 o|contracted procedure: k20891 o|contracted procedure: k20805 o|contracted procedure: k20887 o|contracted procedure: k20808 o|contracted procedure: k20811 o|contracted procedure: k20839 o|contracted procedure: k20842 o|contracted procedure: k20846 o|contracted procedure: k20850 o|contracted procedure: k20854 o|contracted procedure: k20858 o|contracted procedure: k20865 o|contracted procedure: k20879 o|contracted procedure: k20868 o|contracted procedure: k20875 o|contracted procedure: k20897 o|contracted procedure: k20915 o|contracted procedure: k20919 o|contracted procedure: k20925 o|contracted procedure: k20928 o|contracted procedure: k20943 o|contracted procedure: k20949 o|contracted procedure: k20965 o|contracted procedure: k20991 o|contracted procedure: k20997 o|contracted procedure: k21016 o|contracted procedure: k21041 o|contracted procedure: k21048 o|contracted procedure: k21061 o|contracted procedure: k21064 o|contracted procedure: k21077 o|contracted procedure: k21081 o|contracted procedure: k21093 o|contracted procedure: k21101 o|contracted procedure: k21105 o|contracted procedure: k21113 o|contracted procedure: k21117 o|contracted procedure: k21121 o|contracted procedure: k21125 o|contracted procedure: k21129 o|contracted procedure: k21135 o|contracted procedure: k21150 o|contracted procedure: k21158 o|contracted procedure: k21170 o|contracted procedure: k21177 o|contracted procedure: k21188 o|contracted procedure: k21192 o|contracted procedure: k21209 o|contracted procedure: k21213 o|contracted procedure: k21221 o|contracted procedure: k21225 o|contracted procedure: k21229 o|contracted procedure: k21233 o|contracted procedure: k21239 o|contracted procedure: k21242 o|contracted procedure: k21246 o|contracted procedure: k21250 o|contracted procedure: k21329 o|contracted procedure: k21337 o|contracted procedure: k21349 o|contracted procedure: k21352 o|contracted procedure: k21355 o|contracted procedure: k21363 o|contracted procedure: k21371 o|contracted procedure: k21392 o|contracted procedure: k21396 o|contracted procedure: k21400 o|contracted procedure: k21418 o|contracted procedure: k21431 o|contracted procedure: k21435 o|contracted procedure: k21453 o|contracted procedure: k21551 o|contracted procedure: k21488 o|propagated global variable: r21552 ##sys#undefined-value o|contracted procedure: k21511 o|inlining procedure: k21508 o|contracted procedure: k21520 o|inlining procedure: k21508 o|contracted procedure: k21529 o|inlining procedure: k21508 o|contracted procedure: k21538 o|contracted procedure: k21544 o|contracted procedure: k21584 o|contracted procedure: k21590 o|contracted procedure: k21596 o|contracted procedure: k21607 o|contracted procedure: k21603 o|simplifications: ((if . 3) (let . 216)) o|removed binding forms: 1595 o|inlining procedure: k10387 o|inlining procedure: k10387 o|inlining procedure: k10647 o|inlining procedure: k11069 o|inlining procedure: k11069 o|inlining procedure: k11069 o|inlining procedure: k11390 o|inlining procedure: k11390 o|inlining procedure: k13624 o|inlining procedure: k13624 o|inlining procedure: k13624 o|inlining procedure: k14219 o|inlining procedure: "(compiler.scm:1884) grow3414" o|inlining procedure: "(compiler.scm:1891) grow3414" o|inlining procedure: "(compiler.scm:1895) grow3414" o|inlining procedure: "(compiler.scm:1916) grow3414" o|inlining procedure: "(compiler.scm:1929) grow3414" o|inlining procedure: "(compiler.scm:1966) grow3414" o|inlining procedure: "(compiler.scm:1876) grow3414" o|inlining procedure: "(compiler.scm:2232) quick-put!3419" o|inlining procedure: "(compiler.scm:2211) quick-put!3419" o|inlining procedure: "(compiler.scm:2189) quick-put!3419" o|inlining procedure: "(compiler.scm:2189) quick-put!3419" o|inlining procedure: "(compiler.scm:2145) quick-put!3419" o|inlining procedure: "(compiler.scm:2145) quick-put!3419" o|inlining procedure: "(compiler.scm:2108) quick-put!3419" o|inlining procedure: "(compiler.scm:2109) quick-put!3419" o|inlining procedure: "(compiler.scm:2122) quick-put!3419" o|inlining procedure: "(compiler.scm:2122) quick-put!3419" o|inlining procedure: "(compiler.scm:2117) quick-put!3419" o|inlining procedure: "(compiler.scm:2135) quick-put!3419" o|inlining procedure: "(compiler.scm:2134) quick-put!3419" o|inlining procedure: "(compiler.scm:2094) quick-put!3419" o|inlining procedure: k17856 o|inlining procedure: k17856 o|inlining procedure: k18147 o|inlining procedure: k18147 o|inlining procedure: k18147 o|inlining procedure: k18147 o|simplifications: ((let . 2)) o|replaced variables: 580 o|removed binding forms: 7 o|substituted constant variable: r1362524072 o|substituted constant variable: r1362524074 o|removed side-effect free assignment to unused variable: grow3414 o|substituted constant variable: n342024105 o|substituted constant variable: n342024109 o|substituted constant variable: n342024113 o|substituted constant variable: n342024121 o|substituted constant variable: n342024127 o|substituted constant variable: n342024131 o|substituted constant variable: n342024135 o|removed side-effect free assignment to unused variable: quick-put!3419 o|substituted constant variable: prop366924142 o|substituted constant variable: prop366924148 o|substituted constant variable: prop366924154 o|substituted constant variable: val367024155 o|substituted constant variable: prop366924160 o|substituted constant variable: val367024161 o|substituted constant variable: prop366924168 o|substituted constant variable: val367024169 o|substituted constant variable: prop366924174 o|substituted constant variable: val367024175 o|substituted constant variable: prop366924180 o|substituted constant variable: val367024181 o|substituted constant variable: prop366924186 o|substituted constant variable: val367024187 o|substituted constant variable: prop366924192 o|substituted constant variable: val367024193 o|substituted constant variable: prop366924198 o|substituted constant variable: val367024199 o|substituted constant variable: prop366924204 o|substituted constant variable: val367024205 o|substituted constant variable: prop366924210 o|substituted constant variable: prop366924216 o|substituted constant variable: val367024217 o|substituted constant variable: prop366924222 o|substituted constant variable: val367024223 o|simplifications: ((let . 1) (if . 7)) o|replaced variables: 22 o|removed binding forms: 296 o|removed conditional forms: 2 o|contracted procedure: k7789 o|contracted procedure: k7823 o|contracted procedure: k8008 o|contracted procedure: k8052 o|inlining procedure: k16025 o|inlining procedure: k17034 o|inlining procedure: k17170 o|removed binding forms: 63 o|contracted procedure: k15961 o|contracted procedure: k15991 o|contracted procedure: k16037 o|contracted procedure: k16150 o|contracted procedure: k16219 o|contracted procedure: k16393 o|contracted procedure: k17744 o|removed binding forms: 11 o|replaced variables: 3 o|removed binding forms: 6 o|removed binding forms: 2 o|direct leaf routine/allocation: g904911 0 o|direct leaf routine/allocation: loop1086 0 o|direct leaf routine/allocation: node-for-var?3116 0 o|direct leaf routine/allocation: g36903697 0 o|direct leaf routine/allocation: g43844393 0 o|direct leaf routine/allocation: g47394740 8 o|direct leaf routine/allocation: g51415142 0 o|direct leaf routine/allocation: new-literal4726 7 o|direct leaf routine/allocation: g51575158 0 o|contracted procedure: "(compiler.scm:718) k8455" o|converted assignments to bindings: (loop1086) o|contracted procedure: "(compiler.scm:1756) k15141" o|contracted procedure: "(compiler.scm:1830) k15771" o|contracted procedure: "(compiler.scm:2047) k17899" o|contracted procedure: "(compiler.scm:2421) k19041" o|simplifications: ((let . 1)) o|removed binding forms: 5 o|direct leaf routine/allocation: for-each-loop903914 0 o|direct leaf routine/allocation: for-each-loop36893708 0 o|contracted procedure: k8432 o|converted assignments to bindings: (for-each-loop903914) o|contracted procedure: k16938 o|converted assignments to bindings: (for-each-loop36893708) o|simplifications: ((let . 2)) o|removed binding forms: 2 o|customizable procedures: (g51115120 map-loop51055123 loop5074 k20934 k20955 immediate-literal4728 k20900 k20861 k20821 k20824 k20711 k20714 g49554956 k20418 k20292 walk4723 k20081 mapwalk4724 walk-var4721 k19950 k19953 blockvar-literal4727 walk-global4722 literal4725 g45944595 g45624571 map-loop45564574 k18525 k18564 k19205 g45134514 map-loop43184335 map-loop42974342 k18738 map-loop43784402 map-loop44274450 k18864 g44664475 map-loop44604478 transform4012 maptransform4013 ref-var4014 k17998 g41594168 map-loop41534171 k18169 test4008 k18190 k18208 register-direct-call!4010 register-customizable!4009 g41114120 map-loop41054123 gather4011 k17867 k17840 k17759 k16955 g38053806 k17640 k17490 k16961 g38603867 for-each-loop38593877 k17425 k17393 k16967 k17167 k16976 k17002 k17028 k16598 k16610 k16655 g35993606 for-each-loop35983609 k15970 g35243531 for-each-loop35233535 k16258 k16261 g34923499 for-each-loop34913502 assign3417 loop3477 walk3415 walkeach3416 ref3418 loop3342 walk-arguments3121 k14970 k15357 walk-call3118 walk-inline-call3120 cps-lambda3115 loop3207 walk3117 mapupdate3090 walk3091 loop3093 k14605 k14608 map-loop30353053 map-loop30633080 map-loop29732991 map-loop30013018 loop2820 map-loop28702890 map-loop28442861 k14175 map-loop29112932 a11850 g27042711 for-each-loop27032749 k13733 g26042611 for-each-loop26032696 k13670 k13527 for-each-loop25642594 for-each-loop25272557 for-each-loop24842514 k13176 map-loop24462471 for-each-loop24092439 for-each-loop23692399 for-each-loop23512361 for-each-loop23332343 for-each-loop22822312 for-each-loop22382268 for-each-loop21952225 for-each-loop21582188 globalize-all1869 for-each-loop20822112 for-each-loop21192149 for-each-loop20062036 for-each-loop20432073 for-each-loop19691999 stripa1866 check-decl1865 map-loop19241942 note-local1870 g18231832 map-loop18171835 k7315 g17731774 g17661767 loop1738 macro-alias139 g16921701 map-loop16861705 k10605 k10639 k10552 k10503 fold1527 g14831492 map-loop14771502 mapwalk146 g14501459 map-loop14441462 unquotify142 k9763 g13411342 g13321333 map-loop12791296 g10691078 map-loop10631093 k9473 g12421251 map-loop12361254 doloop12661267 loop1157 g11831184 for-each-loop263273 map-loop10271046 g954963 map-loop948969 for-each-loop9961007 for-each-loop978989 k8715 k8620 k8515 map-loop875893 g853862 map-loop847865 map-loop787804 k8209 k8149 map-loop650667 map-loop680698 map-loop707728 map-loop740764 map-loop590608 map-loop617638 map-loop521538 set-real-names!140 g557567 map-loop551572 loop476 map-loop441458 g382391 map-loop376394 g347348 resolve-variable143 g238239 g228229 g224225 g219220 walk145 for-each-loop174188 lookup138 k6514 find-id137) o|calls to known targets: 720 o|identified direct recursive calls: f_7766 1 o|identified direct recursive calls: f_7800 1 o|identified direct recursive calls: f_7933 1 o|identified direct recursive calls: f_7981 1 o|identified direct recursive calls: f_8029 1 o|identified direct recursive calls: f_8447 1 o|identified direct recursive calls: f_9486 1 o|identified direct recursive calls: f_14071 3 o|identified direct recursive calls: f_14531 1 o|identified direct recursive calls: f_14565 1 o|identified direct recursive calls: f_14647 1 o|identified direct recursive calls: f_14681 1 o|identified direct recursive calls: f_17891 1 o|identified direct recursive calls: f_19018 1 o|identified direct recursive calls: f_19095 1 o|identified direct recursive calls: f_20018 5 o|fast box initializations: 120 o|dropping unused closure argument: f_11823 o|dropping unused closure argument: f_14896 o|dropping unused closure argument: f_11754 o|dropping unused closure argument: f_19644 o|dropping unused closure argument: f_9486 o|dropping unused closure argument: f_21483 o|dropping unused closure argument: f_6566 */ /* end of file */ chicken-4.12.0/chicken-profile.scm0000644000175000017500000002064113052306173016561 0ustar sjamaansjamaan;;;; chicken-profile.scm - Formatted display of profile outputs - felix -*- Scheme -*- ; ; Copyright (c) 2008-2017, 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) (uses srfi-1 srfi-13 srfi-69 posix utils)) (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 [FILENAME | OPTION] ... -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) (if (= (string-length arg) 3) (begin (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)))) (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 (read-profile) (let* ((hash (make-hash-table eq?)) (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))) (hash-table-ref/default hash (first line) '(0 0)) (cdr line)))) (cons type (hash-table->alist hash)))) (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->qualified-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)))) (remove (lambda (entry) (if (second entry) (and (zero? (second entry)) no-unused) #f) ) 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 (fold (lambda (row max-widths) (map max (map string-length row) max-widths)) (list 0 0 0 0 0) (cons headers data))]) (define (print-row row) (print (string-join (map format-string row column-widths alignments) spacer))) (print-row headers) (print (make-string (+ (reduce + 0 column-widths) (* spacing (- (length alignments) 1))) #\-)) (for-each print-row data)))) (run (command-line-arguments)) chicken-4.12.0/buildid0000644000175000017500000000001013052306321014331 0ustar sjamaansjamaan6ea24b6 chicken-4.12.0/Makefile.mingw0000644000175000017500000000750413052302367015577 0ustar sjamaansjamaan# Makefile.mingw - configuration for MinGW (no MSYS) -*- Makefile -*- # # Copyright (c) 2008-2017, 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 ifdef SYMBOLGC echo #define C_COLLECT_ALL_SYMBOLS >>$@ endif echo #define C_USE_STD_FEATURE_MACROS >>$@ type chicken-defaults.h >>$@ include $(SRCDIR)rules.make chicken-4.12.0/setup-api.scm0000644000175000017500000005223513052306173015432 0ustar sjamaansjamaan;;;; setup-api.scm - build + installation API for eggs ; ; Copyright (c) 2008-2017, 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. (require-library srfi-1 irregex utils posix srfi-13 extras ports data-structures files) ; This code is partially quite messy and the API is not overly consistent, ; mainly because it has grown "organically" while the old chicken-setup program ; evolved. The code was extracted and put into this module, without much ; cleaning up. ; ; *windows-shell* and, to a lesser extent, 'sudo' processing knowledge is ; scattered in the code. (module setup-api ((run execute) compile standard-extension host-extension install-extension install-program install-script setup-verbose-mode setup-install-mode deployment-mode installation-prefix destination-prefix runtime-prefix chicken-prefix find-library find-header program-path remove-file* patch abort-setup setup-root-directory create-directory/parents test-compile try-compile run-verbose extra-features extra-nonfeatures copy-file move-file sudo-install keep-intermediates version>=? extension-name-and-version extension-name extension-version remove-directory remove-extension read-info register-program find-program shellpath setup-error-handling) (import scheme chicken foreign irregex utils posix ports extras data-structures srfi-1 srfi-13 files) ;;; Constants, variables and parameters (define-constant setup-file-extension "setup-info") (define *cc* (foreign-value "C_TARGET_CC" c-string)) (define *cxx* (foreign-value "C_TARGET_CXX" c-string)) (define *target-cflags* (foreign-value "C_TARGET_CFLAGS" c-string)) (define *target-libs* (foreign-value "C_TARGET_MORE_LIBS" c-string)) (define *target-lib-home* (foreign-value "C_TARGET_LIB_HOME" c-string)) (define *sudo* #f) (define *windows-shell* (foreign-value "C_WINDOWS_SHELL" bool)) (define *registered-programs* '()) (define *windows* (and (eq? (software-type) 'windows) (build-platform) ) ) (register-feature! 'chicken-setup) (define host-extension (make-parameter #f)) (define *chicken-bin-path* (or (and-let* ((p (get-environment-variable "CHICKEN_PREFIX"))) (make-pathname p "bin") ) (foreign-value "C_INSTALL_BIN_HOME" c-string) ) ) (define chicken-prefix (or (get-environment-variable "CHICKEN_PREFIX") (foreign-value "C_INSTALL_PREFIX" c-string))) (define (shellpath str) (qs (normalize-pathname str))) (define *csc-options* '()) (define *base-directory* (current-directory)) (define setup-root-directory (make-parameter *base-directory*)) (define setup-verbose-mode (make-parameter #f)) (define setup-install-mode (make-parameter #t)) (define deployment-mode (make-parameter #f)) (define program-path (make-parameter *chicken-bin-path*)) (define keep-intermediates (make-parameter #f)) (define extra-features (let ((xfs '())) (lambda (#!optional fs) (cond (fs (apply register-feature! fs) (set! xfs fs)) (else xfs))))) (define extra-nonfeatures (let ((xfs '())) (lambda (#!optional fs) (cond (fs (apply unregister-feature! fs) (set! xfs fs)) (else xfs))))) ; Setup shell commands (define *copy-command*) (define *remove-command*) (define *move-command*) (define *chmod-command*) (define *ranlib-command*) (define *mkdir-command*) (define (windows-user-install-setup) (set! *copy-command* "copy") (set! *remove-command* "del /Q /S") (set! *move-command* "move") (set! *chmod-command* "chmod") (set! *ranlib-command* "ranlib") ) (define (unix-user-install-setup) (set! *copy-command* "cp -r") (set! *remove-command* "rm -fr") (set! *move-command* "mv") (set! *chmod-command* "chmod") (set! *ranlib-command* "ranlib") (set! *mkdir-command* "mkdir") ) (define (windows-sudo-install-setup) (set! *sudo* #f) (print "Warning: cannot install as superuser with Windows") ) (define (unix-sudo-install-setup) (let ((sudo-cmd (qs (or (get-environment-variable "SUDO") "sudo")))) (set! *copy-command* (sprintf "~a cp -r" sudo-cmd)) (set! *remove-command* (sprintf "~a rm -rf" sudo-cmd)) (set! *move-command* (sprintf "~a mv" sudo-cmd)) (set! *chmod-command* (sprintf "~a chmod" sudo-cmd)) (set! *ranlib-command* (sprintf "~a ranlib" sudo-cmd)) (set! *mkdir-command* (sprintf "~a mkdir" sudo-cmd)))) (define (user-install-setup) (set! *sudo* #f) (if *windows-shell* (windows-user-install-setup) (unix-user-install-setup) ) ) (define (sudo-install-setup) (set! *sudo* #t) (if *windows-shell* (windows-sudo-install-setup) (unix-sudo-install-setup) ) ) (define (sudo-install . args) (cond ((null? args) *sudo*) ((car args) (sudo-install-setup)) (else (user-install-setup)) ) ) (define abort-setup (make-parameter (cut exit 1))) (define-syntax ignore-errors (syntax-rules () ((_ body ...) (handle-exceptions ex #f body ...)))) (define (patch which rx subst) (when (setup-verbose-mode) (printf "patching ~A ...~%" which)) (if (list? which) (with-output-to-file (cadr which) (lambda () (with-input-from-file (car which) (lambda () (let loop () (let ((ln (read-line))) (unless (eof-object? ln) (write-line (irregex-replace/all rx ln subst)) (loop) ) ) ) ) ) ) ) (let ((tmp (create-temporary-file))) (patch (list tmp tmp) rx subst) ($system (sprintf "~A ~A ~A" *move-command* (shellpath tmp) (shellpath which)))))) (define run-verbose (make-parameter #t)) (define (register-program name #!optional (path (make-pathname *chicken-bin-path* (->string name)))) (set! *registered-programs* (alist-cons (->string name) path *registered-programs*))) (define (find-program name) (let* ((name (->string name)) (a (assoc name *registered-programs*))) (if a (shellpath (cdr a)) name))) (let () (define (reg name rname) (register-program name (make-pathname *chicken-bin-path* rname))) (reg "chicken" (foreign-value "C_CHICKEN_PROGRAM" c-string)) (reg "csi" (foreign-value "C_CSI_PROGRAM" c-string)) (reg "csc" (foreign-value "C_CSC_PROGRAM" c-string)) (reg "chicken-install" (foreign-value "C_CHICKEN_INSTALL_PROGRAM" c-string)) (reg "chicken-uninstall" (foreign-value "C_CHICKEN_UNINSTALL_PROGRAM" c-string)) (reg "chicken-status" (foreign-value "C_CHICKEN_STATUS_PROGRAM" c-string)) (reg "chicken-bug" (foreign-value "C_CHICKEN_BUG_PROGRAM" c-string))) (define (target-prefix fname) (and-let* ((tp (runtime-prefix))) (make-pathname tp fname))) (define (fixpath prg) (cond ((string=? prg "csc") (string-intersperse (cons* (find-program "csc") "-feature" "compiling-extension" (if (or (deployment-mode) (and (feature? #:cross-chicken) (not (host-extension)))) "" "-setup-mode") (if (keep-intermediates) "-k" "") (if (host-extension) "-host" "") (if (deployment-mode) "-deployed" "") (append (map (lambda (f) (string-append "-feature " (symbol->string f))) (extra-features)) (map (lambda (f) (string-append "-no-feature " (symbol->string f))) (extra-nonfeatures)) *csc-options*) ) " ") ) ((and (string-prefix? "./" prg) *windows-shell*) (shellpath (substring prg 2))) (else (find-program prg)))) (define (execute explist) (define (smooth lst) (let ((slst (map ->string lst))) (string-intersperse (cons (fixpath (car slst)) (cdr slst)) " ") ) ) (for-each (lambda (cmd) (when (run-verbose) (printf " ~A~%~!" cmd)) ($system cmd)) (map smooth explist) ) ) (define-syntax run (syntax-rules () ((_ exp ...) (execute (list `exp ...))))) (define-syntax compile (syntax-rules () ((_ exp ...) (run (csc exp ...))))) ;;; Processing setup scripts (define (make-setup-info-pathname fn #!optional (rpath (repository-path))) (make-pathname rpath fn setup-file-extension) ) (define destination-prefix (make-parameter #f)) (define runtime-prefix (make-parameter #f)) (define installation-prefix (let ((prefix (get-environment-variable "CHICKEN_INSTALL_PREFIX"))) (lambda () (or (destination-prefix) prefix chicken-prefix)))) (define create-directory/parents (let () (define (verb dir) (when (setup-verbose-mode) (printf " mkdir ~a~%~!" dir)) ) (if *windows* (lambda (dir) (verb dir) (create-directory dir #t) ) (lambda (dir) (verb dir) (run (,*mkdir-command* -p ,(shellpath dir)) ) ) ) ) ) (define (write-info id files info) (let ((info `((files ,@files) ,@info)) ) (when (setup-verbose-mode) (printf "writing info ~A -> ~S ...~%" id info)) (let* ((sid (->string id)) (setup-file (make-setup-info-pathname sid (repo-path #t)))) (ensure-directory setup-file) (cond (*sudo* (let ((tmp (create-temporary-file))) (with-output-to-file tmp (cut pp info)) (run (,*move-command* ,(shellpath tmp) ,(shellpath setup-file))))) (else (with-output-to-file setup-file (cut pp info)))) (unless *windows-shell* (run (,*chmod-command* a+r ,(shellpath setup-file))))))) (define (copy-file from to #!optional (err #t) (prefix (installation-prefix))) ;;XXX the prefix handling is completely bogus (let ((from (if (pair? from) (car from) from)) (to (let ((to-path (if (pair? from) (make-pathname to (cadr from)) to))) (if (not (path-prefix? prefix to-path)) (if (absolute-pathname? to-path) to-path (make-pathname prefix to-path) ) to-path)))) (let walk ((from from) (to to)) (cond ((directory? from) (for-each (lambda (f) (walk (make-pathname from f) (make-pathname to f))) (directory from))) (else (ensure-directory to) (run (,*copy-command* ,(shellpath from) ,(shellpath to)))))) to)) (define (path-prefix? pref path) (string-prefix? (normalize-pathname pref) (normalize-pathname path))) (define (move-file from to) (let ((from (if (pair? from) (car from) from)) (to (if (pair? from) (make-pathname to (cadr from)) to))) (ensure-directory to) (run (,*move-command* ,(shellpath from) ,(shellpath to)) ) ) ) (define (remove-file* dir) (run (,*remove-command* ,(shellpath dir)) ) ) (define (make-dest-pathname path file) (if (list? file) (make-dest-pathname path (cadr file)) (if (absolute-pathname? file) file (make-pathname path file) ) ) ) (define (check-filelist flist) (map (lambda (f) (cond ((string? f) f) ((and (list? f) (every string? f)) f) ((and (pair? f) (list (car f) (cdr f)))) (else (error "invalid file-specification" f)) ) ) flist) ) (define (translate-extension f #!optional default) (pathname-replace-extension f (let ((ext (pathname-extension f))) (cond ((not ext) default) ((equal? "so" ext) ##sys#load-dynamic-extension) ((equal? "a" ext) (if *windows-shell* "lib" "a")) (else ext))))) (define (what-version version) (or version (let ((n+v (extension-name-and-version))) (if (and n+v (pair? n+v) (not (equal? "" (cadr n+v)))) (cadr n+v) "unknown")))) (define (supply-version info version) (cond ((assq 'version info) => (lambda (a) (cons `(egg-name ,(extension-name)) info))) (else (let ((v (what-version version))) (cons* `(version ,v) `(egg-name ,(extension-name)) info))))) ;;; Convenience function (define (standard-extension name #!optional version #!key static (info '())) ;; `static' is ignored (let* ((sname (->string name)) (fname (make-pathname #f sname "scm")) (iname (make-pathname #f sname "import.scm")) (ilname (make-pathname #f sname "inline"))) (compile -dynamic -optimize-level 3 -debug-level 1 ,fname -emit-import-library ,name) (compile -dynamic -optimize-level 3 -debug-level 0 ,iname) (install-extension name `(,(pathname-replace-extension fname "so") ,(pathname-replace-extension iname "so") ,@(if (file-exists? ilname) (list ilname) '())) `(,@(supply-version info version))))) ;;; Installation (define (install-extension id files #!optional (info '())) (when (setup-install-mode) (let* ((files (check-filelist (if (list? files) files (list files)))) (rpath (repo-path)) (rpathd (repo-path #t)) (dests (map (lambda (f) (let ((from (if (pair? f) (car f) f)) (to (make-dest-pathname rpathd f)) ) (copy-file from to) (unless *windows-shell* (run (,*chmod-command* a+r ,(shellpath to)))) (and-let* ((static (assq 'static info))) (when (and (eq? (software-version) 'macosx) (equal? (cadr static) from) (equal? (pathname-extension to) "a")) (run (,*ranlib-command* ,(shellpath to)) ) )) (cond ((deployment-mode) f) ((not (equal? (destination-prefix) (runtime-prefix))) ;; we did not append a prefix already (target-prefix to)) ;; There's been destination-prefix added before (else to)))) files) ) ) (write-info id dests (supply-version info #f)) ) ) ) (define (install-program id files #!optional (info '())) (define (exify f) (translate-extension f (if *windows-shell* "exe" #f) ) ) (when (setup-install-mode) (let* ((files (check-filelist (if (list? files) files (list files)))) (pre (installation-prefix)) (ppath (ensure-directory (make-pathname pre "bin") #t)) (files (if *windows* (map (lambda (f) (if (list? f) (list (exify (car f)) (exify (cadr f))) (exify f) ) ) files) files) ) (dests (map (lambda (f) (let ((from (if (pair? f) (car f) f)) (to (make-dest-pathname ppath f)) ) (copy-file from to) (unless *windows-shell* (run (,*chmod-command* a+r ,(shellpath to)))) to) ) files) ) ) (write-info id dests (supply-version info #f)) ) ) ) (define (install-script id files #!optional (info '())) (when (setup-install-mode) (let* ((files (check-filelist (if (list? files) files (list files)))) (pre (installation-prefix)) (ppath (ensure-directory (make-pathname pre "bin") #t)) (pfiles (map (lambda (f) (let ((from (if (pair? f) (car f) f)) (to (make-dest-pathname ppath f)) ) (copy-file from to) (unless *windows-shell* (run (,*chmod-command* a+r ,(shellpath to)))) to) ) files) ) ) (unless *windows-shell* (run (,*chmod-command* a+rx ,(string-intersperse pfiles " "))) ) (write-info id pfiles (supply-version info #f)) ) ) ) ;;; More helper stuff (define (repo-path #!optional ddir?) (let ((p (if ddir? (if (deployment-mode) (installation-prefix) ; deploy: copy directly into destdir (let ((p (destination-prefix))) (if p ; installation-prefix changed: use it (make-pathname p (sprintf "lib/chicken/~a" (##sys#fudge 42))) (repository-path)))) ; otherwise use repo-path (repository-path))) ) (ensure-directory p #t) p) ) (define (ensure-directory path #!optional full) (and-let* ((dir (if full path (pathname-directory path)))) (if (file-exists? dir) (unless (directory? dir) (error "cannot create directory: a file with the same name already exists") ) (begin (create-directory/parents dir) (unless *windows-shell* (run (,*chmod-command* a+x ,(shellpath dir))))))) path) (define (try-compile code #!key c++ (cc (if c++ *cxx* *cc*)) (cflags "") (ldflags "") (verb (setup-verbose-mode)) (compile-only #f)) (let* ((fname (create-temporary-file "c")) (oname (pathname-replace-extension fname "o")) (r (begin (with-output-to-file fname (cut display code)) (system (let ((cmd (conc cc " " (if compile-only "-c" "") " " cflags " " *target-cflags* " " (shellpath fname) " -o " (shellpath oname) " " (if compile-only "" (conc "-L" *target-lib-home* " " ldflags " " *target-libs*) ) (if *windows* " >nul: " " >/dev/null ") (if verb "" "2>&1") ) ) ) (when verb (print cmd " ...")) cmd) ) ) ) ) (when verb (print (if (zero? r) "succeeded." "failed."))) (ignore-errors ($system (sprintf "~A ~A" *remove-command* (shellpath fname)))) (ignore-errors ($system (sprintf "~A ~A" *remove-command* (shellpath oname)))) (zero? r) ) ) (define test-compile try-compile) (define (find-library name proc) (test-compile (sprintf "#ifdef __cplusplus~%extern \"C\"~%#endif~%char ~a();~%int main() { ~a(); return 0; }~%" proc proc) ldflags: (conc "-l" name) ) ) (define (find-header name) (test-compile (sprintf "#include <~a>\nint main() { return 0; }\n" name) compile-only: #t) ) (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))))))) (define extension-name-and-version (make-parameter '("" "") (lambda (x) (cond [(or (not x) (null? x)) '("" "") ] [(and (list? x) (= 2 (length x))) (let ([nam (car x)] [ver (cadr x)] [ensure-string (lambda (x) (if (or (not x) (null? x)) "" (->string x)))]) (list (ensure-string nam) (ensure-string ver)) ) ] [else (error "invalid extension-name-and-version" x)])))) (define (extension-name) (car (extension-name-and-version)) ) (define (extension-version #!optional defver) (let ([ver (cadr (extension-name-and-version))]) (if (string-null? ver) (and defver (->string defver)) ver ) ) ) (define (read-info egg #!optional (repo (repository-path))) (with-input-from-file (make-pathname repo egg setup-file-extension) read)) (define (remove-directory dir #!optional (strict #t)) (cond ((not (file-exists? dir)) (if strict (error 'remove-directory "cannot remove - directory not found" dir) #f)) (*sudo* (ignore-errors (let ((sudo-cmd (or (get-environment-variable "SUDO") "sudo"))) ($system (sprintf "~a rm -fr ~a" (qs sudo-cmd) (shellpath dir)))))) (else (let walk ((dir dir)) (let ((files (directory dir #t))) (for-each (lambda (f) (unless (or (string=? "." f) (string=? ".." f)) (let ((p (make-pathname dir f))) (if (directory? p) (walk p) (delete-file p))))) files) (delete-directory dir)))) )) (define (remove-extension egg #!optional (repo (repository-path))) (and-let* ((files (assq 'files (read-info egg repo)))) (for-each (lambda (f) (let ((p (if (absolute-pathname? f) f (make-pathname repo f)))) (remove-file* p))) (cdr files))) (remove-file* (make-pathname repo egg setup-file-extension))) (define ($system str) (let ((str (cond (*windows-shell* (string-append "\"" str "\"")) ((and (eq? (software-version) 'macosx) (get-environment-variable "DYLD_LIBRARY_PATH")) => (lambda (path) (string-append "/usr/bin/env DYLD_LIBRARY_PATH=" (qs path) " " str))) (else str)))) (let ((r (system str))) (unless (zero? r) (error (sprintf "shell command failed with nonzero exit status ~a:~%~% ~a" r str)))))) (define (setup-error-handling) (current-exception-handler (lambda (c) (print-error-message c (current-error-port)) (reset)))) ;;; Module Setup ; User setup by default (user-install-setup) ) chicken-4.12.0/lolevel.import.scm0000644000175000017500000000555013052306173016474 0ustar sjamaansjamaan;;;; lolevel.import.scm - import library for "lolevel" module ; ; Copyright (c) 2008-2017, 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 'lolevel '(address->pointer align-to-word allocate block-ref block-set! extend-procedure extended-procedure? free locative->object locative-ref locative-set! locative? make-locative make-record-instance make-pointer-vector make-weak-locative move-memory! mutate-procedure! number-of-bytes number-of-slots object->pointer object-become! object-copy object-evict object-evict-to-location object-evicted? object-release object-size object-unevict pointer->address pointer-like? pointer->object pointer-f32-ref pointer-f32-set! pointer-f64-ref pointer-f64-set! pointer+ pointer-s16-ref pointer-s16-set! pointer-s32-ref pointer-s32-set! pointer-s8-ref pointer-s8-set! pointer-vector pointer-vector? pointer-vector-length pointer-vector-ref pointer-vector-set! pointer-tag pointer-u16-ref pointer-u16-set! pointer-u32-ref pointer-u32-set! pointer-u8-ref pointer-u8-set! pointer=? pointer? procedure-data record->vector record-instance? record-instance-length record-instance-slot record-instance-slot-set! record-instance-type set-procedure-data! tag-pointer tagged-pointer? vector-like?)) chicken-4.12.0/feathers.tcl0000644000175000017500000014020713052302367015322 0ustar sjamaansjamaan#!/usr/bin/env wish # # a graphical debugger for compiled CHICKEN programs # # Copyright (c) 2015-2017, 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 0 set debugger_port 9999 set events(0) call set events(1) assign set events(2) gc set events(3) entry set events(4) signal set events(5) connect set events(6) listen set events(7) interrupted set reply(UNUSED) 0 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 16; # signal set STEP_EVENT_MASK 27; # 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 lappend search_path [file dirname [lindex $program_name 0]] 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 $program_name <@ stdin >@ stdout 2>@ stderr &} result]} { .t insert end "Could not start program:\n\n$result" } 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+"([^"]*)"\)$} $line _ evt loc val \ 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 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+"([^"]*)"$} $data _ index event \ loc 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 # - backport to chicken4 # - feature ("dbg-client") # - 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-4.12.0/chicken-install.c0000644000175000017500000254071413052306525016242 0ustar sjamaansjamaan/* Generated from chicken-install.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: chicken-install.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -no-lambda-info -local -no-trace -output-file chicken-install.c used units: library eval chicken_2dsyntax srfi_2d1 posix data_2dstructures utils irregex ports extras srfi_2d13 files */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_srfi_2d1_toplevel) C_externimport void C_ccall C_srfi_2d1_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; C_noret_decl(C_utils_toplevel) C_externimport void C_ccall C_utils_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_ports_toplevel) C_externimport void C_ccall C_ports_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_srfi_2d13_toplevel) C_externimport void C_ccall C_srfi_2d13_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_files_toplevel) C_externimport void C_ccall C_files_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[456]; static double C_possibly_force_alignment; C_noret_decl(f_3895) static void C_ccall f_3895(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_4138) static void C_fcall f_4138(C_word t0,C_word t1,C_word t2) 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_3901) static void C_ccall f_3901(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_2460) static void C_fcall f_2460(C_word t0) 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_4148) static void C_ccall f_4148(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_2408) static void C_ccall f_2408(C_word c,C_word *av) C_noret; C_noret_decl(f_2405) static void C_ccall f_2405(C_word c,C_word *av) C_noret; C_noret_decl(f_6231) static void C_ccall f_6231(C_word c,C_word *av) C_noret; C_noret_decl(f_6233) static void C_ccall f_6233(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_2415) static void C_ccall f_2415(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_2421) static void C_ccall f_2421(C_word c,C_word *av) C_noret; C_noret_decl(f_6802) static void C_ccall f_6802(C_word c,C_word *av) C_noret; C_noret_decl(f_6809) static void C_ccall f_6809(C_word c,C_word *av) C_noret; C_noret_decl(f_3919) static void C_ccall f_3919(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_3913) static void C_ccall f_3913(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_4113) static void C_ccall f_4113(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_6829) static void C_ccall f_6829(C_word c,C_word *av) C_noret; C_noret_decl(f_5191) static void C_ccall f_5191(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_4125) static void C_ccall f_4125(C_word c,C_word *av) C_noret; C_noret_decl(f_5197) static void C_ccall f_5197(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_3822) static void C_ccall f_3822(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_5668) static void C_ccall f_5668(C_word c,C_word *av) C_noret; C_noret_decl(f_3837) static void C_ccall f_3837(C_word c,C_word *av) C_noret; C_noret_decl(f_5651) static void C_ccall f_5651(C_word c,C_word *av) C_noret; C_noret_decl(f_7085) static void C_ccall f_7085(C_word c,C_word *av) C_noret; C_noret_decl(f_4107) static void C_ccall f_4107(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_5625) static void C_ccall f_5625(C_word c,C_word *av) C_noret; C_noret_decl(f_6250) static void C_fcall f_6250(C_word t0,C_word t1,C_word t2) 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_5627) static void C_ccall f_5627(C_word c,C_word *av) C_noret; C_noret_decl(f_4100) static void C_fcall f_4100(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4719) static void C_ccall f_4719(C_word c,C_word *av) C_noret; C_noret_decl(f_5614) static void C_ccall f_5614(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_5641) static void C_fcall f_5641(C_word t0,C_word t1,C_word t2) 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_6279) static void C_ccall f_6279(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_6268) static void C_ccall f_6268(C_word c,C_word *av) C_noret; C_noret_decl(f_6200) static void C_fcall f_6200(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6208) static void C_ccall f_6208(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_5605) static void C_ccall f_5605(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_5608) static void C_ccall f_5608(C_word c,C_word *av) C_noret; C_noret_decl(f_6996) static void C_ccall f_6996(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_5676) static void C_ccall f_5676(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_3863) static void C_ccall f_3863(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_4799) static void C_ccall f_4799(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_4791) static void C_fcall f_4791(C_word t0,C_word t1) 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_3871) static void C_ccall f_3871(C_word c,C_word *av) C_noret; C_noret_decl(f_5697) static void C_ccall f_5697(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_5840) static void C_ccall f_5840(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_5848) static void C_ccall f_5848(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_2584) static void C_ccall f_2584(C_word c,C_word *av) C_noret; C_noret_decl(f_7572) static void C_ccall f_7572(C_word c,C_word *av) C_noret; C_noret_decl(f_3617) static void C_fcall f_3617(C_word t0,C_word t1) C_noret; C_noret_decl(f_2580) static void C_fcall f_2580(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7563) static void C_ccall f_7563(C_word c,C_word *av) C_noret; C_noret_decl(f_7560) static void C_ccall f_7560(C_word c,C_word *av) C_noret; C_noret_decl(f_7578) static void C_ccall f_7578(C_word c,C_word *av) C_noret; C_noret_decl(f_4743) static void C_ccall f_4743(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_5868) static void C_ccall f_5868(C_word c,C_word *av) C_noret; C_noret_decl(f_7553) static void C_ccall f_7553(C_word c,C_word *av) 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_3635) static void C_ccall f_3635(C_word c,C_word *av) C_noret; C_noret_decl(f_2904) static void C_ccall f_2904(C_word c,C_word *av) C_noret; C_noret_decl(f_3605) static void C_fcall f_3605(C_word t0,C_word t1) C_noret; C_noret_decl(f_3608) static void C_ccall f_3608(C_word c,C_word *av) C_noret; C_noret_decl(f_6392) static void C_fcall f_6392(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7530) static void C_ccall f_7530(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_7536) static void C_ccall f_7536(C_word c,C_word *av) C_noret; C_noret_decl(f_5680) static void C_ccall f_5680(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_3620) static void C_ccall f_3620(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_7539) static void C_ccall f_7539(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_noret; C_noret_decl(f_5823) static void C_ccall f_5823(C_word c,C_word *av) C_noret; C_noret_decl(f_5828) static void C_ccall f_5828(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_3676) static void C_ccall f_3676(C_word c,C_word *av) C_noret; C_noret_decl(f_2942) static void C_fcall f_2942(C_word t0,C_word t1,C_word t2) 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_7597) static void C_ccall f_7597(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_3690) static void C_ccall f_3690(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_5877) static void C_ccall f_5877(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_2967) static void C_ccall f_2967(C_word c,C_word *av) 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_5277) static void C_ccall f_5277(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_6932) static void C_ccall f_6932(C_word c,C_word *av) C_noret; C_noret_decl(f_5891) static void C_ccall f_5891(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_3682) static void C_ccall f_3682(C_word c,C_word *av) C_noret; C_noret_decl(f_4897) static void C_ccall f_4897(C_word c,C_word *av) C_noret; C_noret_decl(f_7541) static void C_ccall f_7541(C_word c,C_word *av) C_noret; C_noret_decl(f_7557) static void C_ccall f_7557(C_word c,C_word *av) C_noret; C_noret_decl(f_5885) static void C_ccall f_5885(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_3272) static void C_ccall f_3272(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_5201) static void C_ccall f_5201(C_word c,C_word *av) C_noret; C_noret_decl(f_5207) static void C_ccall f_5207(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_5209) static void C_ccall f_5209(C_word c,C_word *av) C_noret; C_noret_decl(f_7547) static void C_ccall f_7547(C_word c,C_word *av) C_noret; C_noret_decl(f_3282) static void C_ccall f_3282(C_word c,C_word *av) C_noret; C_noret_decl(f_7332) static void C_ccall f_7332(C_word c,C_word *av) C_noret; C_noret_decl(f_7336) static void C_fcall f_7336(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5221) static void C_ccall f_5221(C_word c,C_word *av) 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_5227) static void C_ccall f_5227(C_word c,C_word *av) 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_7313) static void C_ccall f_7313(C_word c,C_word *av) C_noret; C_noret_decl(f_7307) static void C_ccall f_7307(C_word c,C_word *av) C_noret; C_noret_decl(f_2512) static void C_ccall f_2512(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_2527) static void C_fcall f_2527(C_word t0,C_word t1) C_noret; C_noret_decl(f_5294) static void C_ccall f_5294(C_word c,C_word *av) C_noret; C_noret_decl(f_6929) static void C_ccall f_6929(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_4012) static void C_ccall f_4012(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_4018) static void C_ccall f_4018(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_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(f8110) static void C_ccall f8110(C_word c,C_word *av) C_noret; C_noret_decl(f_2564) static void C_ccall f_2564(C_word c,C_word *av) C_noret; C_noret_decl(f_2566) static void C_fcall f_2566(C_word t0,C_word t1,C_word t2) 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_7399) static void C_ccall f_7399(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_6329) static void C_fcall f_6329(C_word t0,C_word t1) 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_4033) static void C_ccall f_4033(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_4030) static void C_ccall f_4030(C_word c,C_word *av) C_noret; C_noret_decl(f_6962) static void C_ccall f_6962(C_word c,C_word *av) C_noret; C_noret_decl(f_3235) static void C_ccall f_3235(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_2509) static void C_ccall f_2509(C_word c,C_word *av) C_noret; C_noret_decl(f_7381) static void C_ccall f_7381(C_word c,C_word *av) C_noret; C_noret_decl(f_3241) static void C_fcall f_3241(C_word t0,C_word t1) 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_5943) static void C_ccall f_5943(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_4027) static void C_ccall f_4027(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_4021) static void C_ccall f_4021(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_5417) static void C_fcall f_5417(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2703) static void C_ccall f_2703(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_6365) static void C_ccall f_6365(C_word c,C_word *av) C_noret; C_noret_decl(f_2716) static void C_ccall f_2716(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_5967) static void C_fcall f_5967(C_word t0,C_word t1) C_noret; C_noret_decl(f_5964) static void C_fcall f_5964(C_word t0,C_word t1) 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_6345) static void C_ccall f_6345(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_4096) static void C_ccall f_4096(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_6773) static void C_ccall f_6773(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_5905) static void C_ccall f_5905(C_word c,C_word *av) C_noret; C_noret_decl(f_2387) static void C_ccall f_2387(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_2381) static void C_ccall f_2381(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_2384) static void C_ccall f_2384(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_6352) static void C_ccall f_6352(C_word c,C_word *av) C_noret; C_noret_decl(f_5920) static void C_fcall f_5920(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6356) static void C_ccall f_6356(C_word c,C_word *av) C_noret; C_noret_decl(f8098) static void C_ccall f8098(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(f_4006) static void C_ccall f_4006(C_word c,C_word *av) C_noret; C_noret_decl(f_5476) static void C_fcall f_5476(C_word t0,C_word t1,C_word t2) 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_6384) static void C_ccall f_6384(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_5911) static void C_ccall f_5911(C_word c,C_word *av) C_noret; C_noret_decl(f_2375) static void C_ccall f_2375(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_2372) static void C_ccall f_2372(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_5464) static void C_ccall f_5464(C_word c,C_word *av) C_noret; C_noret_decl(f_5461) static void C_ccall f_5461(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_2771) static void C_ccall f_2771(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_2776) static void C_fcall f_2776(C_word t0,C_word t1,C_word t2) 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_3250) static void C_fcall f_3250(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_4840) static void C_ccall f_4840(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_2399) static void C_ccall f_2399(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_2396) static void C_ccall f_2396(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_2393) static void C_ccall f_2393(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_4811) static void C_ccall f_4811(C_word c,C_word *av) C_noret; C_noret_decl(f_4866) static void C_ccall f_4866(C_word c,C_word *av) C_noret; C_noret_decl(f_2727) static void C_ccall f_2727(C_word c,C_word *av) C_noret; C_noret_decl(f_2729) static void C_fcall f_2729(C_word t0,C_word t1,C_word t2) 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_4472) static void C_ccall f_4472(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_noret; C_noret_decl(f_6527) static void C_ccall f_6527(C_word c,C_word *av) C_noret; C_noret_decl(f8201) static void C_ccall f8201(C_word c,C_word *av) C_noret; C_noret_decl(f_4485) static void C_ccall f_4485(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_4885) static void C_ccall f_4885(C_word c,C_word *av) C_noret; C_noret_decl(f_4882) static void C_ccall f_4882(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(f8213) static void C_ccall f8213(C_word c,C_word *av) C_noret; C_noret_decl(f_4858) static void C_ccall f_4858(C_word c,C_word *av) C_noret; C_noret_decl(f_4854) static void C_ccall f_4854(C_word c,C_word *av) C_noret; C_noret_decl(f8208) static void C_ccall f8208(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_6502) static void C_fcall f_6502(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_2754) static void C_ccall f_2754(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_4080) static void C_fcall f_4080(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_4607) static void C_fcall f_4607(C_word t0,C_word t1,C_word t2) 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_6553) static void C_ccall f_6553(C_word c,C_word *av) 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_4617) static void C_ccall f_4617(C_word c,C_word *av) C_noret; C_noret_decl(f_6544) static void C_ccall f_6544(C_word c,C_word *av) C_noret; C_noret_decl(f_4633) static void C_fcall f_4633(C_word t0,C_word t1) 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_6769) static void C_ccall f_6769(C_word c,C_word *av) 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_4296) static void C_ccall f_4296(C_word c,C_word *av) C_noret; C_noret_decl(f_6582) static void C_ccall f_6582(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_4655) static void C_ccall f_4655(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_4665) static void C_ccall f_4665(C_word c,C_word *av) C_noret; C_noret_decl(f_4690) static void C_fcall f_4690(C_word t0,C_word t1) C_noret; C_noret_decl(f_5555) static void C_ccall f_5555(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_4455) static void C_ccall f_4455(C_word c,C_word *av) C_noret; C_noret_decl(f_7137) static void C_ccall f_7137(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_5542) static void C_ccall f_5542(C_word c,C_word *av) C_noret; C_noret_decl(f_4468) static void C_ccall f_4468(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_3726) static void C_fcall f_3726(C_word t0,C_word t1,C_word t2) 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_5575) static void C_ccall f_5575(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_4286) static void C_ccall f_4286(C_word c,C_word *av) 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_3738) static void C_ccall f_3738(C_word c,C_word *av) 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_5512) static void C_ccall f_5512(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_5516) static void C_ccall f_5516(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_3711) static void C_ccall f_3711(C_word c,C_word *av) C_noret; C_noret_decl(f_3717) static void C_fcall f_3717(C_word t0,C_word t1) C_noret; C_noret_decl(f_3763) static void C_fcall f_3763(C_word t0,C_word t1) 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_3760) static void C_ccall f_3760(C_word c,C_word *av) C_noret; C_noret_decl(f_7609) static void C_ccall f_7609(C_word c,C_word *av) C_noret; C_noret_decl(f_5536) static void C_ccall f_5536(C_word c,C_word *av) C_noret; C_noret_decl(f_6740) static void C_ccall f_6740(C_word c,C_word *av) C_noret; C_noret_decl(f_5539) static void C_ccall f_5539(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_6017) static void C_ccall f_6017(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_3376) static void C_ccall f_3376(C_word c,C_word *av) C_noret; C_noret_decl(f_6043) static void C_ccall f_6043(C_word c,C_word *av) 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_6039) static void C_ccall f_6039(C_word c,C_word *av) C_noret; C_noret_decl(f_6710) static void C_ccall f_6710(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_6030) static void C_ccall f_6030(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_5755) static void C_fcall f_5755(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5568) static void C_fcall f_5568(C_word t0) C_noret; C_noret_decl(f_4408) static void C_ccall f_4408(C_word c,C_word *av) C_noret; C_noret_decl(f_4402) static void C_ccall f_4402(C_word c,C_word *av) C_noret; C_noret_decl(f_2692) static void C_ccall f_2692(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_5596) static void C_ccall f_5596(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_6087) static void C_ccall f_6087(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_5593) static void C_ccall f_5593(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_4419) static void C_ccall f_4419(C_word c,C_word *av) C_noret; C_noret_decl(f_4414) static void C_ccall f_4414(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_4411) static void C_ccall f_4411(C_word c,C_word *av) C_noret; C_noret_decl(f_7416) static void C_fcall f_7416(C_word t0,C_word t1) 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_3518) static void C_ccall f_3518(C_word c,C_word *av) C_noret; C_noret_decl(f_4425) static void C_ccall f_4425(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_7141) static void C_ccall f_7141(C_word c,C_word *av) C_noret; C_noret_decl(f_6024) static void C_ccall f_6024(C_word c,C_word *av) C_noret; C_noret_decl(f_6027) static void C_ccall f_6027(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_5711) static void C_ccall f_5711(C_word c,C_word *av) C_noret; C_noret_decl(f_4430) static void C_fcall f_4430(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4250) static void C_fcall f_4250(C_word t0,C_word t1) C_noret; C_noret_decl(f_3524) static void C_ccall f_3524(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_5700) static void C_ccall f_5700(C_word c,C_word *av) 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_7466) static void C_ccall f_7466(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_3509) static void C_ccall f_3509(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_5739) static C_word C_fcall f_5739(C_word *a,C_word t0,C_word t1); C_noret_decl(f_3505) static void C_ccall f_3505(C_word c,C_word *av) C_noret; C_noret_decl(f_5720) static C_word C_fcall f_5720(C_word *a,C_word t0,C_word t1); C_noret_decl(f_3554) static void C_ccall f_3554(C_word c,C_word *av) C_noret; C_noret_decl(f_6062) static void C_fcall f_6062(C_word t0,C_word t1,C_word t2) 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_3022) static void C_fcall f_3022(C_word t0,C_word t1) 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_7423) static void C_ccall f_7423(C_word c,C_word *av) C_noret; C_noret_decl(f_7429) static void C_ccall f_7429(C_word c,C_word *av) C_noret; C_noret_decl(f_3029) static void C_ccall f_3029(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_3544) static void C_fcall f_3544(C_word t0,C_word t1,C_word t2) 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_5035) static void C_ccall f_5035(C_word c,C_word *av) C_noret; C_noret_decl(f_5032) static void C_ccall f_5032(C_word c,C_word *av) C_noret; C_noret_decl(f_7482) static void C_ccall f_7482(C_word c,C_word *av) C_noret; C_noret_decl(f_3041) static C_word C_fcall f_3041(C_word t0,C_word t1); C_noret_decl(f_3595) static void C_ccall f_3595(C_word c,C_word *av) C_noret; C_noret_decl(f_5026) static void C_fcall f_5026(C_word t0,C_word t1) C_noret; C_noret_decl(f_5029) static void C_ccall f_5029(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_5022) static void C_fcall f_5022(C_word t0,C_word t1,C_word t2,C_word t3) 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_4988) static void C_fcall f_4988(C_word t0,C_word t1) 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_5789) static void C_fcall f_5789(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3572) static void C_ccall f_3572(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_5049) static void C_ccall f_5049(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_5046) static void C_ccall f_5046(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_5041) static void C_ccall f_5041(C_word c,C_word *av) C_noret; C_noret_decl(f_5042) static void C_fcall f_5042(C_word t0,C_word t1,C_word t2) 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_3583) static void C_ccall f_3583(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_4960) static void C_ccall f_4960(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_7446) static void C_fcall f_7446(C_word t0,C_word t1,C_word t2) 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_4953) static void C_ccall f_4953(C_word c,C_word *av) C_noret; C_noret_decl(f_4950) static void C_ccall f_4950(C_word c,C_word *av) C_noret; C_noret_decl(f_3331) static void C_fcall f_3331(C_word t0,C_word t1) 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_3019) static void C_ccall f_3019(C_word c,C_word *av) 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_4204) static void C_fcall f_4204(C_word t0,C_word t1,C_word t2) 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_4997) static void C_ccall f_4997(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_2633) static void C_ccall f_2633(C_word c,C_word *av) C_noret; C_noret_decl(f_2636) static void C_ccall f_2636(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_5054) static void C_ccall f_5054(C_word c,C_word *av) C_noret; C_noret_decl(f_3303) static void C_fcall f_3303(C_word t0,C_word t1) 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_3066) static void C_ccall f_3066(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_2621) static void C_ccall f_2621(C_word c,C_word *av) C_noret; C_noret_decl(f_2624) static void C_ccall f_2624(C_word c,C_word *av) C_noret; C_noret_decl(f_3070) static void C_fcall f_3070(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2627) static void C_ccall f_2627(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_5076) static void C_ccall f_5076(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_5376) static void C_ccall f_5376(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_5372) static void C_ccall f_5372(C_word c,C_word *av) C_noret; C_noret_decl(f_5064) static void C_ccall f_5064(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_5067) static void C_ccall f_5067(C_word c,C_word *av) C_noret; C_noret_decl(f_5069) static void C_fcall f_5069(C_word t0,C_word t1) 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_5368) static void C_ccall f_5368(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_5012) static void C_ccall f_5012(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_5015) static void C_ccall f_5015(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_2615) static void C_ccall f_2615(C_word c,C_word *av) C_noret; C_noret_decl(f_5318) static void C_ccall f_5318(C_word c,C_word *av) C_noret; C_noret_decl(f_5086) static void C_ccall f_5086(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_5087) static void C_fcall f_5087(C_word t0,C_word t1) C_noret; C_noret_decl(f_7298) static void C_fcall f_7298(C_word t0,C_word t1) 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_2664) static void C_ccall f_2664(C_word c,C_word *av) C_noret; C_noret_decl(f_5301) static void C_ccall f_5301(C_word c,C_word *av) C_noret; C_noret_decl(f_5307) static void C_ccall f_5307(C_word c,C_word *av) 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_4374) static void C_ccall f_4374(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_6430) static void C_ccall f_6430(C_word c,C_word *av) C_noret; C_noret_decl(f_2685) static void C_fcall f_2685(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2689) static void C_ccall f_2689(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_5329) static void C_ccall f_5329(C_word c,C_word *av) C_noret; C_noret_decl(f_6427) static void C_ccall f_6427(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_2819) static void C_ccall f_2819(C_word c,C_word *av) C_noret; C_noret_decl(f_4390) static void C_ccall f_4390(C_word c,C_word *av) C_noret; C_noret_decl(f_2821) static void C_fcall f_2821(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f8138) static void C_ccall f8138(C_word c,C_word *av) C_noret; C_noret_decl(f8133) static void C_ccall f8133(C_word c,C_word *av) C_noret; C_noret_decl(f_6443) static void C_ccall f_6443(C_word c,C_word *av) C_noret; C_noret_decl(f8148) static void C_ccall f8148(C_word c,C_word *av) C_noret; C_noret_decl(f8143) static void C_ccall f8143(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_4517) static void C_fcall f_4517(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3989) static void C_fcall f_3989(C_word t0,C_word t1,C_word t2) 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_5098) static void C_ccall f_5098(C_word c,C_word *av) C_noret; C_noret_decl(f8196) static void C_ccall f8196(C_word c,C_word *av) C_noret; C_noret_decl(f8191) static void C_ccall f8191(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_6108) static void C_ccall f_6108(C_word c,C_word *av) 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_6102) static void C_ccall f_6102(C_word c,C_word *av) C_noret; C_noret_decl(f_6466) static void C_ccall f_6466(C_word c,C_word *av) C_noret; C_noret_decl(f_2477) static void C_ccall f_2477(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_5393) static void C_ccall f_5393(C_word c,C_word *av) C_noret; C_noret_decl(f_6493) static void C_ccall f_6493(C_word c,C_word *av) C_noret; C_noret_decl(f_2487) static void C_ccall f_2487(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_3968) static void C_ccall f_3968(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(f8176) static void C_ccall f8176(C_word c,C_word *av) C_noret; C_noret_decl(f8171) static void C_ccall f8171(C_word c,C_word *av) C_noret; C_noret_decl(f_6487) static void C_ccall f_6487(C_word c,C_word *av) C_noret; C_noret_decl(f_3114) static void C_fcall f_3114(C_word t0,C_word t1) 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_2493) static void C_ccall f_2493(C_word c,C_word *av) C_noret; C_noret_decl(f_2490) static void C_ccall f_2490(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(f8186) static void C_ccall f8186(C_word c,C_word *av) C_noret; C_noret_decl(f8181) static void C_ccall f8181(C_word c,C_word *av) C_noret; C_noret_decl(f_3124) static void C_fcall f_3124(C_word t0,C_word t1) C_noret; C_noret_decl(f_6629) static void C_ccall f_6629(C_word c,C_word *av) C_noret; C_noret_decl(f_6147) static void C_fcall f_6147(C_word t0,C_word t1,C_word t2) 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_5355) static void C_ccall f_5355(C_word c,C_word *av) C_noret; C_noret_decl(f_5352) static void C_fcall f_5352(C_word t0,C_word t1) C_noret; C_noret_decl(f_3999) static void C_fcall f_3999(C_word t0,C_word t1) 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_5358) static void C_ccall f_5358(C_word c,C_word *av) C_noret; C_noret_decl(f_6878) static void C_ccall f_6878(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_3474) static void C_ccall f_3474(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_4196) static void C_ccall f_4196(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_6136) static void C_ccall f_6136(C_word c,C_word *av) C_noret; C_noret_decl(f_3101) static void C_ccall f_3101(C_word c,C_word *av) C_noret; C_noret_decl(f_3475) static void C_fcall f_3475(C_word t0,C_word t1,C_word t2) 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_3486) static void C_ccall f_3486(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_noret; C_noret_decl(f_5149) static void C_ccall f_5149(C_word c,C_word *av) C_noret; C_noret_decl(f_3491) static void C_fcall f_3491(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_5143) static void C_ccall f_5143(C_word c,C_word *av) C_noret; C_noret_decl(f_3160) static void C_ccall f_3160(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_4594) static void C_ccall f_4594(C_word c,C_word *av) C_noret; C_noret_decl(f_4947) static void C_ccall f_4947(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_2973) static void C_fcall f_2973(C_word t0,C_word t1) 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_2971) static void C_ccall f_2971(C_word c,C_word *av) 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_5131) static void C_ccall f_5131(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_3425) static void C_ccall f_3425(C_word c,C_word *av) C_noret; C_noret_decl(f_4938) static void C_ccall f_4938(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_4562) static void C_ccall f_4562(C_word c,C_word *av) C_noret; C_noret_decl(f_4357) static void C_ccall f_4357(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_6170) static void C_fcall f_6170(C_word t0,C_word t1) 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_6174) static void C_ccall f_6174(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_4927) static void C_ccall f_4927(C_word c,C_word *av) C_noret; C_noret_decl(f_4921) static void C_ccall f_4921(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_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_6604) static void C_fcall f_6604(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2866) static void C_fcall f_2866(C_word t0,C_word t1) 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_4360) static void C_ccall f_4360(C_word c,C_word *av) C_noret; C_noret_decl(f_4363) static void C_ccall f_4363(C_word c,C_word *av) C_noret; C_noret_decl(f_4584) static void C_fcall f_4584(C_word t0,C_word t1,C_word t2) 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_5107) static void C_ccall f_5107(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_6157) static void C_ccall f_6157(C_word c,C_word *av) C_noret; C_noret_decl(f8154) static void C_ccall f8154(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(f8166) static void C_ccall f8166(C_word c,C_word *av) C_noret; C_noret_decl(f8161) static void C_ccall f8161(C_word c,C_word *av) C_noret; C_noret_decl(f_3414) static void C_ccall f_3414(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_6196) static void C_ccall f_6196(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_noret; C_noret_decl(f_6299) static void C_ccall f_6299(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_5168) static void C_ccall f_5168(C_word c,C_word *av) C_noret; C_noret_decl(f_6283) static void C_ccall f_6283(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_4903) static void C_ccall f_4903(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_4909) static void C_ccall f_4909(C_word c,C_word *av) 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_5180) static void C_ccall f_5180(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_7010) static void C_ccall f_7010(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_5123) static void C_ccall f_5123(C_word c,C_word *av) C_noret; C_noret_decl(f_2449) static void C_ccall f_2449(C_word c,C_word *av) C_noret; C_noret_decl(f_3881) static void C_fcall f_3881(C_word t0,C_word t1,C_word t2) 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_3885) static void C_ccall f_3885(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_5113) static void C_ccall f_5113(C_word c,C_word *av) C_noret; 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_4138(t0,t1,t2);} C_noret_decl(trf_2460) static void C_ccall trf_2460(C_word c,C_word *av) C_noret; static void C_ccall trf_2460(C_word c,C_word *av){ C_word t0=av[0]; f_2460(t0);} C_noret_decl(trf_6250) static void C_ccall trf_6250(C_word c,C_word *av) C_noret; static void C_ccall trf_6250(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6250(t0,t1,t2);} C_noret_decl(trf_4100) static void C_ccall trf_4100(C_word c,C_word *av) C_noret; static void C_ccall trf_4100(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4100(t0,t1,t2);} C_noret_decl(trf_5641) static void C_ccall trf_5641(C_word c,C_word *av) C_noret; static void C_ccall trf_5641(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5641(t0,t1,t2);} C_noret_decl(trf_6200) static void C_ccall trf_6200(C_word c,C_word *av) C_noret; static void C_ccall trf_6200(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6200(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_4791(t0,t1);} C_noret_decl(trf_3617) static void C_ccall trf_3617(C_word c,C_word *av) C_noret; static void C_ccall trf_3617(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3617(t0,t1);} C_noret_decl(trf_2580) static void C_ccall trf_2580(C_word c,C_word *av) C_noret; static void C_ccall trf_2580(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2580(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[1]; C_word t1=av[0]; f_3605(t0,t1);} C_noret_decl(trf_6392) static void C_ccall trf_6392(C_word c,C_word *av) C_noret; static void C_ccall trf_6392(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6392(t0,t1,t2,t3);} 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[1]; C_word t1=av[0]; f_3629(t0,t1);} C_noret_decl(trf_2942) static void C_ccall trf_2942(C_word c,C_word *av) C_noret; static void C_ccall trf_2942(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2942(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_7336(t0,t1,t2);} C_noret_decl(trf_2527) static void C_ccall trf_2527(C_word c,C_word *av) C_noret; static void C_ccall trf_2527(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2527(t0,t1);} C_noret_decl(trf_2566) static void C_ccall trf_2566(C_word c,C_word *av) C_noret; static void C_ccall trf_2566(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2566(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_6329(t0,t1);} C_noret_decl(trf_3241) static void C_ccall trf_3241(C_word c,C_word *av) C_noret; static void C_ccall trf_3241(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3241(t0,t1);} C_noret_decl(trf_5417) static void C_ccall trf_5417(C_word c,C_word *av) C_noret; static void C_ccall trf_5417(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5417(t0,t1,t2,t3);} C_noret_decl(trf_5967) static void C_ccall trf_5967(C_word c,C_word *av) C_noret; static void C_ccall trf_5967(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5967(t0,t1);} C_noret_decl(trf_5964) static void C_ccall trf_5964(C_word c,C_word *av) C_noret; static void C_ccall trf_5964(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5964(t0,t1);} C_noret_decl(trf_5920) static void C_ccall trf_5920(C_word c,C_word *av) C_noret; static void C_ccall trf_5920(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5920(t0,t1,t2);} C_noret_decl(trf_5476) static void C_ccall trf_5476(C_word c,C_word *av) C_noret; static void C_ccall trf_5476(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5476(t0,t1,t2);} C_noret_decl(trf_2776) static void C_ccall trf_2776(C_word c,C_word *av) C_noret; static void C_ccall trf_2776(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2776(t0,t1,t2);} C_noret_decl(trf_3250) static void C_ccall trf_3250(C_word c,C_word *av) C_noret; static void C_ccall trf_3250(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_3250(t0,t1,t2,t3,t4);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_2729(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[1]; C_word t1=av[0]; f_3208(t0,t1);} C_noret_decl(trf_6502) static void C_ccall trf_6502(C_word c,C_word *av) C_noret; static void C_ccall trf_6502(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6502(t0,t1,t2);} C_noret_decl(trf_4080) static void C_ccall trf_4080(C_word c,C_word *av) C_noret; static void C_ccall trf_4080(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4080(t0,t1,t2);} C_noret_decl(trf_4607) static void C_ccall trf_4607(C_word c,C_word *av) C_noret; static void C_ccall trf_4607(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4607(t0,t1,t2);} C_noret_decl(trf_4633) static void C_ccall trf_4633(C_word c,C_word *av) C_noret; static void C_ccall trf_4633(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4633(t0,t1);} C_noret_decl(trf_4690) static void C_ccall trf_4690(C_word c,C_word *av) C_noret; static void C_ccall trf_4690(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4690(t0,t1);} C_noret_decl(trf_3726) static void C_ccall trf_3726(C_word c,C_word *av) C_noret; static void C_ccall trf_3726(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3726(t0,t1,t2);} C_noret_decl(trf_3717) static void C_ccall trf_3717(C_word c,C_word *av) C_noret; static void C_ccall trf_3717(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3717(t0,t1);} C_noret_decl(trf_3763) static void C_ccall trf_3763(C_word c,C_word *av) C_noret; static void C_ccall trf_3763(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3763(t0,t1);} C_noret_decl(trf_5755) static void C_ccall trf_5755(C_word c,C_word *av) C_noret; static void C_ccall trf_5755(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5755(t0,t1,t2);} C_noret_decl(trf_5568) static void C_ccall trf_5568(C_word c,C_word *av) C_noret; static void C_ccall trf_5568(C_word c,C_word *av){ C_word t0=av[0]; f_5568(t0);} C_noret_decl(trf_7416) static void C_ccall trf_7416(C_word c,C_word *av) C_noret; static void C_ccall trf_7416(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7416(t0,t1);} C_noret_decl(trf_4430) static void C_ccall trf_4430(C_word c,C_word *av) C_noret; static void C_ccall trf_4430(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4430(t0,t1,t2);} C_noret_decl(trf_4250) static void C_ccall trf_4250(C_word c,C_word *av) C_noret; static void C_ccall trf_4250(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4250(t0,t1);} C_noret_decl(trf_6062) static void C_ccall trf_6062(C_word c,C_word *av) C_noret; static void C_ccall trf_6062(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6062(t0,t1,t2);} C_noret_decl(trf_3022) static void C_ccall trf_3022(C_word c,C_word *av) C_noret; static void C_ccall trf_3022(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3022(t0,t1);} C_noret_decl(trf_3544) static void C_ccall trf_3544(C_word c,C_word *av) C_noret; static void C_ccall trf_3544(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3544(t0,t1,t2);} C_noret_decl(trf_5026) static void C_ccall trf_5026(C_word c,C_word *av) C_noret; static void C_ccall trf_5026(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5026(t0,t1);} C_noret_decl(trf_5022) static void C_ccall trf_5022(C_word c,C_word *av) C_noret; static void C_ccall trf_5022(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5022(t0,t1,t2,t3);} C_noret_decl(trf_4988) static void C_ccall trf_4988(C_word c,C_word *av) C_noret; static void C_ccall trf_4988(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4988(t0,t1);} C_noret_decl(trf_5789) static void C_ccall trf_5789(C_word c,C_word *av) C_noret; static void C_ccall trf_5789(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5789(t0,t1,t2);} C_noret_decl(trf_5042) static void C_ccall trf_5042(C_word c,C_word *av) C_noret; static void C_ccall trf_5042(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5042(t0,t1,t2);} C_noret_decl(trf_7446) static void C_ccall trf_7446(C_word c,C_word *av) C_noret; static void C_ccall trf_7446(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7446(t0,t1,t2);} C_noret_decl(trf_3331) static void C_ccall trf_3331(C_word c,C_word *av) C_noret; static void C_ccall trf_3331(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3331(t0,t1);} C_noret_decl(trf_4204) static void C_ccall trf_4204(C_word c,C_word *av) C_noret; static void C_ccall trf_4204(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4204(t0,t1,t2);} C_noret_decl(trf_3303) static void C_ccall trf_3303(C_word c,C_word *av) C_noret; static void C_ccall trf_3303(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3303(t0,t1);} C_noret_decl(trf_3070) static void C_ccall trf_3070(C_word c,C_word *av) C_noret; static void C_ccall trf_3070(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3070(t0,t1,t2);} C_noret_decl(trf_5069) static void C_ccall trf_5069(C_word c,C_word *av) C_noret; static void C_ccall trf_5069(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5069(t0,t1);} 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_5087) static void C_ccall trf_5087(C_word c,C_word *av) C_noret; static void C_ccall trf_5087(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5087(t0,t1);} C_noret_decl(trf_7298) static void C_ccall trf_7298(C_word c,C_word *av) C_noret; static void C_ccall trf_7298(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7298(t0,t1);} C_noret_decl(trf_2685) static void C_ccall trf_2685(C_word c,C_word *av) C_noret; static void C_ccall trf_2685(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2685(t0,t1,t2);} C_noret_decl(trf_2821) static void C_ccall trf_2821(C_word c,C_word *av) C_noret; static void C_ccall trf_2821(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2821(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_3989) static void C_ccall trf_3989(C_word c,C_word *av) C_noret; static void C_ccall trf_3989(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3989(t0,t1,t2);} C_noret_decl(trf_3114) static void C_ccall trf_3114(C_word c,C_word *av) C_noret; static void C_ccall trf_3114(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3114(t0,t1);} C_noret_decl(trf_3124) static void C_ccall trf_3124(C_word c,C_word *av) C_noret; static void C_ccall trf_3124(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3124(t0,t1);} C_noret_decl(trf_6147) static void C_ccall trf_6147(C_word c,C_word *av) C_noret; static void C_ccall trf_6147(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6147(t0,t1,t2);} C_noret_decl(trf_5352) static void C_ccall trf_5352(C_word c,C_word *av) C_noret; static void C_ccall trf_5352(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5352(t0,t1);} 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[1]; C_word t1=av[0]; f_3999(t0,t1);} C_noret_decl(trf_3475) static void C_ccall trf_3475(C_word c,C_word *av) C_noret; static void C_ccall trf_3475(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3475(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[1]; C_word t1=av[0]; f_4542(t0,t1);} C_noret_decl(trf_3491) static void C_ccall trf_3491(C_word c,C_word *av) C_noret; static void C_ccall trf_3491(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_3491(t0,t1,t2,t3,t4);} C_noret_decl(trf_2973) static void C_ccall trf_2973(C_word c,C_word *av) C_noret; static void C_ccall trf_2973(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2973(t0,t1);} C_noret_decl(trf_6170) static void C_ccall trf_6170(C_word c,C_word *av) C_noret; static void C_ccall trf_6170(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6170(t0,t1);} C_noret_decl(trf_6604) static void C_ccall trf_6604(C_word c,C_word *av) C_noret; static void C_ccall trf_6604(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6604(t0,t1,t2);} C_noret_decl(trf_2866) static void C_ccall trf_2866(C_word c,C_word *av) C_noret; static void C_ccall trf_2866(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2866(t0,t1);} C_noret_decl(trf_4584) static void C_ccall trf_4584(C_word c,C_word *av) C_noret; static void C_ccall trf_4584(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4584(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_6660(t0,t1);} C_noret_decl(trf_3881) static void C_ccall trf_3881(C_word c,C_word *av) C_noret; static void C_ccall trf_3881(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3881(t0,t1,t2);} /* k3893 in g625 in k3966 in a3872 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in ... */ static void C_ccall f_3895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_3895,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[41]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3901,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:392: ##sys#print */ t6=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[135]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k6816 in k6800 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6818,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_6809(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6825,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6829,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:958: current-directory */ t4=C_fast_retrieve(lf[94]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* for-each-loop722 in k4123 in k4111 in k4105 in k4102 in g706 in k4097 in k4094 in k4085 in k4082 in main#show-depends in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_fcall f_4138(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_4138,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_4148,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:436: g738 */ t5=*((C_word*)lf[84]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=lf[101]; 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);}}} /* k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 in ... */ 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 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_4333,2,av);} a=C_alloc(5); if(C_truep(C_retrieve2(lf[9],"main#\052retrieve-only\052"))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_retrieve2(lf[78],"main#\052eggs+dirs+vers\052"); t3=C_i_check_list_2(C_retrieve2(lf[78],"main#\052eggs+dirs+vers\052"),lf[100]); 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_4584,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_4584(t7,((C_word*)t0)[2],C_retrieve2(lf[78],"main#\052eggs+dirs+vers\052"));}} /* k3899 in k3893 in g625 in k3966 in a3872 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in ... */ static void C_ccall f_3901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3901,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3904,a[2]=((C_word*)t0)[2],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:392: ##sys#print */ t4=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3905 in k3902 in k3899 in k3893 in g625 in k3966 in a3872 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in ... */ 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; 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_3907,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,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]=((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:392: ##sys#print */ t5=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* main#repo-path in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_fcall f_2460(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_2460,1,t1);} a=C_alloc(6); if(C_truep(C_retrieve2(lf[23],"main#\052deploy\052"))){ t2=C_retrieve2(lf[27],"main#\052prefix\052"); t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_retrieve2(lf[27],"main#\052prefix\052"); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(C_truep(C_retrieve2(lf[30],"main#\052cross-chicken\052"))?C_i_not(C_retrieve2(lf[31],"main#\052host-extension\052")):C_SCHEME_FALSE); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2477,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[47]+1);{ C_word av2[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);}} else{ if(C_truep(C_retrieve2(lf[27],"main#\052prefix\052"))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2503,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:121: open-output-string */ t4=C_fast_retrieve(lf[46]);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* chicken-install.scm:122: repository-path */ t3=C_fast_retrieve(lf[49]);{ C_word av2[2]; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}} /* k3902 in k3899 in k3893 in g625 in k3966 in a3872 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_3904,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3907,a[2]=((C_word*)t0)[2],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:392: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[134]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4146 in for-each-loop722 in k4123 in k4111 in k4105 in k4102 in g706 in k4097 in k4094 in k4085 in k4082 in main#show-depends in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4148,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4138(t3,((C_word*)t0)[4],t2);} /* k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2402,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2405,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:27: ##sys#require */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[453]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[453]+1); av2[1]=t2; av2[2]=lf[455]; tp(3,av2);}} /* k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2408,2,av);} a=C_alloc(3); t2=C_mutate2(&lf[0] /* (set! main#constant159 ...) */,lf[1]); t3=C_mutate2(&lf[2] /* (set! main#constant163 ...) */,lf[3]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2415,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:74: get-environment-variable */ t5=C_fast_retrieve(lf[223]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[452]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_ccall f_2405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2405,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2408,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:27: ##sys#require */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[453]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[453]+1); av2[1]=t2; av2[2]=lf[454]; tp(3,av2);}} /* k6229 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_ccall f_6231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6231,2,av);} /* chicken-install.scm:769: delete-duplicates */ t2=C_fast_retrieve(lf[210]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[358]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a6232 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_ccall f_6233(C_word c,C_word *av){ C_word tmp; C_word 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_6233,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6279,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:772: read-file */ t4=C_fast_retrieve(lf[363]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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_2421,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; f_2421(2,av2);}} else{ /* ##sys#peek-c-string */ t3=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_ccall f_2415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2415,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2418,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ /* chicken-install.scm:75: make-pathname */ t3=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=lf[451]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_2418(2,av2);}}} /* k6219 in main#$system in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6221,2,av);} t2=C_eqp(t1,lf[222]); if(C_truep(t2)){ /* chicken-install.scm:758: get-environment-variable */ t3=C_fast_retrieve(lf[223]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[224]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_6196(2,av2);}}} /* k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_ccall f_2421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(3,c,2)))){ C_save_and_reclaim((void *)f_2421,2,av);} a=C_alloc(3); t2=C_mutate2(&lf[4] /* (set! main#*program-path* ...) */,t1); t3=lf[5] /* main#*keep* */ =C_SCHEME_FALSE;; t4=lf[6] /* main#*keep-existing* */ =C_SCHEME_FALSE;; t5=lf[7] /* main#*force* */ =C_SCHEME_FALSE;; t6=lf[8] /* main#*run-tests* */ =C_SCHEME_FALSE;; t7=lf[9] /* main#*retrieve-only* */ =C_SCHEME_FALSE;; t8=lf[10] /* main#*no-install* */ =C_SCHEME_FALSE;; t9=lf[11] /* main#*username* */ =C_SCHEME_FALSE;; t10=lf[12] /* main#*password* */ =C_SCHEME_FALSE;; t11=lf[13] /* main#*default-sources* */ =C_SCHEME_END_OF_LIST;; t12=lf[14] /* main#*default-location* */ =C_SCHEME_FALSE;; t13=C_mutate2(&lf[15] /* (set! main#*default-transport* ...) */,lf[16]); t14=C_mutate2(&lf[17] /* (set! main#*windows-shell* ...) */,C_mk_bool(C_WINDOWS_SHELL)); t15=lf[18] /* main#*proxy-host* */ =C_SCHEME_FALSE;; t16=lf[19] /* main#*proxy-port* */ =C_SCHEME_FALSE;; t17=lf[20] /* main#*proxy-user-pass* */ =C_SCHEME_FALSE;; t18=lf[21] /* main#*running-test* */ =C_SCHEME_FALSE;; t19=lf[22] /* main#*mappings* */ =C_SCHEME_END_OF_LIST;; t20=lf[23] /* main#*deploy* */ =C_SCHEME_FALSE;; t21=lf[24] /* main#*trunk* */ =C_SCHEME_FALSE;; t22=lf[25] /* main#*csc-features* */ =C_SCHEME_END_OF_LIST;; t23=lf[26] /* main#*csc-nonfeatures* */ =C_SCHEME_END_OF_LIST;; t24=lf[27] /* main#*prefix* */ =C_SCHEME_FALSE;; t25=lf[28] /* main#*no-install-deps* */ =C_SCHEME_FALSE;; t26=lf[29] /* main#*aliases* */ =C_SCHEME_END_OF_LIST;; t27=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2449,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:102: feature? */ t28=C_fast_retrieve(lf[152]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t28; av2[1]=t27; av2[2]=lf[450]; ((C_proc)(void*)(*((C_word*)t28+1)))(3,av2);}} /* k6800 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f_6802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_6802,2,av);} a=C_alloc(10); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6809,a[2]=((C_word*)t0)[2],a[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|3,a[1]=(C_word)f_6818,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:955: absolute-pathname? */ t6=C_fast_retrieve(lf[95]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k6807 in k6800 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_ccall f_6809(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_6809,2,av);} t2=C_mutate2(&lf[27] /* (set! main#*prefix* ...) */,t1); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_u_i_cdr(t4); /* chicken-install.scm:959: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_6392(t6,((C_word*)t0)[4],t5,((C_word*)((C_word*)t0)[5])[1]);} /* k3917 in k3914 in k3911 in k3908 in k3905 in k3902 in k3899 in k3893 in g625 in k3966 in a3872 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in ... */ static void C_ccall f_3919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3919,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3922,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:392: get-output-string */ t3=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3914 in k3911 in k3908 in k3905 in k3902 in k3899 in k3893 in g625 in k3966 in a3872 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3916,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3919,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:392: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[132]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[132]+1); av2[1]=t2; av2[2]=C_make_character(39); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k3911 in k3908 in k3905 in k3902 in k3899 in k3893 in g625 in k3966 in a3872 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in ... */ static void C_ccall f_3913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_3913,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3916,a[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); /* chicken-install.scm:392: ##sys#print */ t5=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3908 in k3905 in k3902 in k3899 in k3893 in g625 in k3966 in a3872 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3910,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3913,a[2]=((C_word*)t0)[2],a[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:392: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[133]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4111 in k4105 in k4102 in g706 in k4097 in k4094 in k4085 in k4082 in main#show-depends in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in ... */ static void C_ccall f_4113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_4113,2,av);} a=C_alloc(4); t2=t1; if(C_truep(t2)){ if(C_truep(C_i_nullp(t2))){ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_4125,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_car(t4); /* chicken-install.scm:435: print */ t6=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[102]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3920 in k3917 in k3914 in k3911 in k3908 in k3905 in k3902 in k3899 in k3893 in g625 in k3966 in a3872 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3922,2,av);} /* chicken-install.scm:391: warning */ t2=C_fast_retrieve(lf[75]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6827 in k6816 in k6800 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 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,3)))){ C_save_and_reclaim((void *)f_6829,2,av);} /* chicken-install.scm:958: make-pathname */ t2=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5190 in a5184 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in ... */ static void C_ccall f_5191(C_word c,C_word *av){ C_word tmp; C_word 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_5191,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5197,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:641: k1137 */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k6823 in k6816 in k6800 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6825,2,av);} /* chicken-install.scm:957: normalize-pathname */ t2=C_fast_retrieve(lf[304]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4123 in k4111 in k4105 in k4102 in g706 in k4097 in k4094 in k4085 in k4082 in main#show-depends in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f_4125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_4125,2,av);} a=C_alloc(5); t2=C_i_check_list_2(((C_word*)t0)[2],lf[100]); 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_4138,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_4138(t6,((C_word*)t0)[3],((C_word*)t0)[2]);} /* a5196 in a5190 in a5184 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in ... */ static void C_ccall f_5197(C_word c,C_word *av){ 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,5)))){ C_save_and_reclaim((void *)f_5197,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5201,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:641: print */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[279]; av2[3]=lf[272]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[273]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k5631 in for-each-loop1379 in a5626 in k5606 in k5603 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5633,2,av);} /* chicken-install.scm:722: newline */ t2=*((C_word*)lf[236]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in ... */ 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=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(9,c,4)))){ C_save_and_reclaim((void *)f_3822,5,av);} a=C_alloc(9); t5=t2; if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3837,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); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3843,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:375: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} else{ /* chicken-install.scm:374: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_FALSE; av2[3]=lf[193]; C_values(4,av2);}}} /* k5664 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ C_save_and_reclaim((void *)f_5666,2,av);} a=C_alloc(2); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5668,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:706: sort */ t3=C_fast_retrieve(lf[241]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5667 in k5664 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in ... */ static void C_ccall f_5668(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_5668,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5676,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_car(t2); /* chicken-install.scm:718: symbol->string */ t6=*((C_word*)lf[205]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* a3836 in a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in ... */ static void C_ccall f_3837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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(9,c,3)))){ C_save_and_reclaim((void *)f_3837,2,av);} a=C_alloc(9); t2=t1; t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; t6=((C_word*)t0)[5]; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3578,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3583,a[2]=t3,a[3]=t5,a[4]=t6,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:317: call-with-current-continuation */ t9=*((C_word*)lf[192]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t7; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k5649 in for-each-loop1379 in a5626 in k5606 in k5603 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in ... */ static void C_ccall f_5651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5651,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5641(t3,((C_word*)t0)[4],t2);} /* k7083 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f_7085(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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,3)))){ C_save_and_reclaim((void *)f_7085,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); t3=C_mutate2(&lf[11] /* (set! main#*username* ...) */,t2); t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); /* chicken-install.scm:1009: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_6392(t7,((C_word*)t0)[4],t6,((C_word*)((C_word*)t0)[5])[1]);} /* k4105 in k4102 in g706 in k4097 in k4094 in k4085 in k4082 in main#show-depends in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in ... */ static void C_ccall f_4107(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_4107,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4113,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[97]); if(C_truep(t3)){ t4=( /* chicken-install.scm:432: deps */ f_3041(lf[103],t1) ); t5=( /* chicken-install.scm:432: deps */ f_3041(((C_word*)t0)[4],t1) ); /* chicken-install.scm:432: append */ t6=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t2; av2[2]=t4; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ /* chicken-install.scm:433: deps */ t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( /* chicken-install.scm:433: deps */ f_3041(((C_word*)t0)[4],t1) ); f_4113(2,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k4102 in g706 in k4097 in k4094 in k4085 in k4082 in main#show-depends in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in ... */ 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 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_4104,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4107,a[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_4181,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:430: file-exists? */ t5=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5623 in k5609 in k5606 in k5603 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in ... */ static void C_ccall f_5625(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5625,2,av);} /* chicken-install.scm:723: make-pathname */ t2=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_retrieve2(lf[0],"main#constant159"); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* g1513 in k6277 in a6232 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ static void C_fcall f_6250(C_word 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(4,0,2)))){ C_save_and_reclaim_args((void *)trf_6250,3,t0,t1,t2);} a=C_alloc(4); t3=C_i_cadr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6262,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:776: ->string */ t6=C_fast_retrieve(lf[57]);{ 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);}} /* k5619 in k5609 in k5606 in k5603 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5621,2,av);} /* chicken-install.scm:723: setup-api#copy-file */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[237]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[237]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* a5626 in k5606 in k5603 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 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 *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_5627,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_5641,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_5641(t5,t1,((C_word*)t0)[2]);} /* g706 in k4097 in k4094 in k4085 in k4082 in main#show-depends in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in ... */ static void C_fcall f_4100(C_word t0,C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_4100,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4104,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_cadr(t2); t5=t2; t6=C_u_i_car(t5); /* chicken-install.scm:429: make-pathname */ t7=C_fast_retrieve(lf[42]);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=t6; av2[4]=lf[105]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k4717 in k4688 in loop in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_ccall f_4719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4719,2,av);} if(C_truep(t1)){ /* chicken-install.scm:521: fail */ t2=((C_word*)t0)[2]; f_4633(t2,((C_word*)t0)[3]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k5612 in k5609 in k5606 in k5603 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in ... */ static void C_ccall f_5614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5614,2,av);} /* chicken-install.scm:724: setup-api#remove-directory */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[203]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k5609 in k5606 in k5603 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 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 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_5611,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5614,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_5621,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_5625,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:723: repo-path */ f_2460(t4);} /* for-each-loop1379 in a5626 in k5606 in k5603 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in ... */ static void C_fcall f_5641(C_word t0,C_word 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_5641,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_5651,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_5633,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:722: write */ t7=*((C_word*)lf[238]+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);}}} /* k6270 in k6277 in a6232 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6272,2,av);} /* chicken-install.scm:778: warning */ t2=C_fast_retrieve(lf[75]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[361]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k6277 in a6232 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in ... */ static void C_ccall f_6279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,3)))){ C_save_and_reclaim((void *)f_6279,2,av);} a=C_alloc(6); t2=C_i_car(t1); t3=C_i_assq(lf[56],t2); t4=(C_truep(t3)?C_i_cadr(t3):lf[359]); t5=t4; t6=C_i_assq(lf[360],t2); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6250,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:771: g1513 */ t8=t7; f_6250(t8,((C_word*)t0)[2],t6);} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6268,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6272,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:780: pathname-file */ t9=C_fast_retrieve(lf[362]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} /* k6260 in g1513 in k6277 in a6232 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6262,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k6266 in k6277 in a6232 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6268,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* g1492 in k6194 in main#$system in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 in ... */ static void C_fcall f_6200(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_6200,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6208,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:761: qs */ t4=C_fast_retrieve(lf[221]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6206 in g1492 in k6194 in main#$system in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ static void C_ccall f_6208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6208,2,av);} /* chicken-install.scm:760: string-append */ t2=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[219]; av2[3]=t1; av2[4]=lf[220]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* a3842 in a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in ... */ 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=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_3843,4,av);} if(C_truep(t2)){ /* chicken-install.scm:377: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_values(4,av2);}} else{ /* chicken-install.scm:378: next */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}} /* k5603 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 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 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_5605,2,av);} a=C_alloc(6); t2=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]=t2,tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:719: newline */ t4=*((C_word*)lf[236]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ 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 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_5602,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5605,a[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_5666,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5690,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:707: append-map */ t5=C_fast_retrieve(lf[212]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_fast_retrieve(lf[248]); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k5606 in k5603 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_5608,2,av);} a=C_alloc(8); 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); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5627,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:720: with-output-to-file */ t4=C_fast_retrieve(lf[239]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6994 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f_6996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_6996,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7010,a[2]=((C_word*)t0)[2],a[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]); /* chicken-install.scm:989: string->symbol */ t4=*((C_word*)lf[143]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5832 in for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 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 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_5834,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5837,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:696: pathname-strip-extension */ t4=C_fast_retrieve(lf[254]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5835 in k5832 in for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5837,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5840,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:697: pathname-strip-extension */ t3=C_fast_retrieve(lf[254]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5674 in a5667 in k5664 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in ... */ static void C_ccall f_5676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_5676,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5680,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:718: symbol->string */ t5=*((C_word*)lf[205]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k4701 in k4688 in loop in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4703,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* chicken-install.scm:519: fail */ t2=((C_word*)t0)[3]; f_4633(t2,((C_word*)t0)[2]);}} /* k3861 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3863,2,av);} /* chicken-install.scm:381: string-concatenate */ t2=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6974 in k6960 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ 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 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_6976,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_retrieve2(lf[25],"main#\052csc-features\052")); t3=C_mutate2(&lf[25] /* (set! main#*csc-features* ...) */,t2); t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); /* chicken-install.scm:985: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_6392(t7,((C_word*)t0)[4],t6,((C_word*)((C_word*)t0)[5])[1]);} /* k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 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 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_4799,2,av);} a=C_alloc(10); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[41]); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4805,a[2]=((C_word*)t0)[2],a[3]=((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,a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); /* chicken-install.scm:544: ##sys#print */ t6=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5853 in a5847 in k5838 in k5835 in k5832 in for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 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=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_5854,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5860,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:694: k1272 */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in ... */ static void C_fcall f_4791(C_word 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_4791,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(C_truep(C_retrieve2(lf[33],"main#\052debug-setup\052"))?lf[280]:lf[281]); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4799,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t4,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* chicken-install.scm:544: open-output-string */ t6=C_fast_retrieve(lf[46]);{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a3872 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in ... */ 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=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_3873,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3968,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=C_i_car(t2); /* chicken-install.scm:388: string->symbol */ t5=*((C_word*)lf[143]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3869 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in ... */ static void C_ccall f_3871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3871,2,av);} /* chicken-install.scm:382: append */ t2=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[131]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5695 in a5689 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in ... */ static void C_ccall f_5697(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_5697,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5700,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:711: print* */ t4=*((C_word*)lf[245]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[246]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a5689 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 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=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_5690,3,av);} a=C_alloc(4); t3=C_i_cdr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5697,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:710: ##sys#module-name */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[247]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[247]+1); av2[1]=t5; av2[2]=t4; tp(3,av2);}} /* k5838 in k5835 in k5832 in for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 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 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_5840,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5843,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5848,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:694: call-with-current-continuation */ t5=*((C_word*)lf[192]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5841 in k5838 in k5835 in k5832 in for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5843,2,av);} /* chicken-install.scm:694: g1276 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a5847 in k5838 in k5835 in k5832 in for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in ... */ static void C_ccall f_5848(C_word c,C_word *av){ C_word tmp; C_word 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_5848,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5854,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_5885,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:694: with-exception-handler */ t5=C_fast_retrieve(lf[191]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3804 in trying-sources in k3719 in main#with-default-sources in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3806,2,av);} t2=C_i_cadr(t1); /* chicken-install.scm:357: resolve-location */ f_2973(((C_word*)t0)[2],t2);} /* k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ static void C_ccall f_2584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_2584,2,av);} a=C_alloc(23); t2=C_i_car(((C_word*)t0)[2]); t3=C_eqp(t2,lf[56]); if(C_truep(t3)){ t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); if(C_truep(C_i_pairp(t5))){ t6=C_i_cadr(((C_word*)t0)[2]); if(C_truep(C_i_nequalp(t6,C_fix(1)))){ t7=C_SCHEME_UNDEFINED; t8=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2615,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:146: open-output-string */ t8=C_fast_retrieve(lf[46]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ /* chicken-install.scm:143: broken */ t6=((C_word*)t0)[4]; f_2566(t6,((C_word*)t0)[3],((C_word*)t0)[2]);}} else{ t4=C_eqp(t2,lf[373]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2664,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=C_a_i_list1(&a,1,t7); /* chicken-install.scm:155: append */ t9=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t5; av2[2]=C_retrieve2(lf[13],"main#\052default-sources\052"); av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t5=C_eqp(t2,lf[115]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2680,a[2]=((C_word*)t0)[3],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_2685,a[2]=((C_word*)t0)[4],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[115]); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2727,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_2729,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_2729(t19,t15,t13);} else{ t6=C_eqp(t2,lf[376]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2771,a[2]=((C_word*)t0)[3],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_2776,a[2]=((C_word*)t0)[4],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[115]); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2819,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_2821,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_2821(t20,t16,t14);} else{ t7=C_eqp(t2,lf[378]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2863,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2866,a[2]=((C_word*)t0)[2],a[3]=t8,a[4]=((C_word*)t0)[3],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_2866(t13,C_i_stringp(t12));} else{ t12=t9; f_2866(t12,C_SCHEME_FALSE);}} else{ t8=C_eqp(t2,lf[379]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2896,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2904,a[2]=t9,tmp=(C_word)a,a+=3,tmp); t11=C_i_cadr(((C_word*)t0)[2]); /* chicken-install.scm:181: eval */ t12=C_fast_retrieve(lf[253]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t10; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ /* chicken-install.scm:182: broken */ t9=((C_word*)t0)[4]; f_2566(t9,((C_word*)t0)[3],((C_word*)t0)[2]);}}}}}}} /* a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 in ... */ static void C_ccall f_7572(C_word c,C_word *av){ C_word tmp; 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_7572,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7578,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7591,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1085: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* k3615 in k3603 in a3594 in a3588 in a3582 in a3836 in a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in ... */ static void C_fcall f_3617(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_3617,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3620,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:335: print */ t3=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[171]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3629,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[176],((C_word*)t0)[4]); t4=t2; f_3629(t4,(C_truep(t3)?C_i_memv(lf[177],((C_word*)t0)[4]):C_SCHEME_FALSE));} else{ t3=t2; f_3629(t3,C_SCHEME_FALSE);}}} /* g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in ... */ static void C_fcall f_2580(C_word 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_2580,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2584,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],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_fixnum_greaterp(t5,C_fix(0)))){ t6=t3;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_2584(2,av2);}} else{ /* chicken-install.scm:140: broken */ t6=((C_word*)t0)[2]; f_2566(t6,t3,t2);}} else{ /* chicken-install.scm:140: broken */ t4=((C_word*)t0)[2]; f_2566(t4,t3,t2);}} /* k7561 in k7558 in k7555 in a7552 in a7546 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in ... */ static void C_ccall f_7563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7563,2,av);} if(C_truep(C_retrieve2(lf[21],"main#\052running-test\052"))){ /* chicken-install.scm:1090: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ /* chicken-install.scm:1090: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k7558 in k7555 in a7552 in a7546 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in ... */ static void C_ccall f_7560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7560,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7563,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1089: cleanup */ f_5568(t2);} /* a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ static void C_ccall f_7578(C_word c,C_word *av){ C_word tmp; 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_7578,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7582,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7589,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1091: command-line-arguments */ t4=C_fast_retrieve(lf[447]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4741 in k4688 in loop in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_ccall f_4743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4743,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* chicken-install.scm:523: fail */ t2=((C_word*)t0)[3]; f_4633(t2,((C_word*)t0)[2]);}} /* a5859 in a5853 in a5847 in k5838 in k5835 in k5832 in for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 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 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_5860,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5868,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:701: open-output-string */ t3=C_fast_retrieve(lf[46]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5866 in a5859 in a5853 in a5847 in k5838 in k5835 in k5832 in for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 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 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_5868,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[41]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5874,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:701: ##sys#print */ t6=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[251]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* a7552 in a7546 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ static void C_ccall f_7553(C_word c,C_word *av){ 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_7553,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7557,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:1087: newline */ t3=*((C_word*)lf[236]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[88]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3630 in k3627 in k3615 in k3603 in a3594 in a3588 in a3582 in a3836 in a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ 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; 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_3632,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3635,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:339: print-error-message */ t3=C_fast_retrieve(lf[173]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3633 in k3630 in k3627 in k3615 in k3603 in a3594 in a3588 in a3582 in a3836 in a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ static void C_ccall f_3635(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3635,2,av);} /* chicken-install.scm:340: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=lf[172]; C_values(4,av2);}} /* k2902 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ static void C_ccall f_2904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2904,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* chicken-install.scm:181: append */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[39],"main#\052hacks\052"); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3603 in a3594 in a3588 in a3582 in a3836 in a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_fcall f_3605(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_3605,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3608,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:332: print */ t3=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[169]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3617,a[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[176],((C_word*)t0)[4]); t4=t2; f_3617(t4,(C_truep(t3)?C_i_memv(lf[178],((C_word*)t0)[4]):C_SCHEME_FALSE));} else{ t3=t2; f_3617(t3,C_SCHEME_FALSE);}}} /* k3606 in k3603 in a3594 in a3588 in a3582 in a3836 in a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in ... */ static void C_ccall f_3608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3608,2,av);} /* chicken-install.scm:333: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=lf[168]; C_values(4,av2);}} /* loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in ... */ static void C_fcall f_6392(C_word t0,C_word t1,C_word 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(14,0,2)))){ C_save_and_reclaim_args((void *)trf_6392,4,t0,t1,t2,t3);} a=C_alloc(14); t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); if(C_truep(C_i_nullp(t2))){ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6402,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,tmp=(C_word)a,a+=8,tmp); if(C_truep(C_retrieve2(lf[23],"main#\052deploy\052"))){ if(C_truep(C_retrieve2(lf[27],"main#\052prefix\052"))){ t6=C_SCHEME_UNDEFINED; t7=t5;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; f_6402(2,av2);}} else{ /* chicken-install.scm:873: error */ t6=*((C_word*)lf[70]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=lf[381]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} else{ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_6402(2,av2);}}} else{ t5=C_i_car(t2); t6=t5; t7=C_i_string_equal_p(t6,lf[382]); t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6660,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=((C_word*)t0)[6],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)[7],tmp=(C_word)a,a+=12,tmp); if(C_truep(t7)){ t9=t8; f_6660(t9,t7);} else{ t9=C_u_i_string_equal_p(t6,lf[442]); if(C_truep(t9)){ t10=t8; f_6660(t10,t9);} else{ t10=C_u_i_string_equal_p(t6,lf[443]); t11=t8; f_6660(t11,t10);}}}} /* k7528 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_ccall f_7530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7530,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7533,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1085: g1796 */ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k7531 in k7528 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 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 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_7533,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7536,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7539,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#implicit-exit-handler */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[235]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[235]+1); av2[1]=t3; tp(2,av2);}} /* k7534 in k7531 in k7528 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7536,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5678 in k5674 in a5667 in k5664 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in ... */ static void C_ccall f_5680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5680,2,av);} /* chicken-install.scm:718: string= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7522 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7524,2,av);} /* chicken-install.scm:868: setup-proxy */ f_6329(((C_word*)t0)[2],t1);} /* k3618 in k3615 in k3603 in a3594 in a3588 in a3582 in a3836 in a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ 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);} /* chicken-install.scm:336: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=lf[170]; C_values(4,av2);}} /* k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 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_7527,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7530,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7541,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:1085: call-with-current-continuation */ t4=*((C_word*)lf[192]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7537 in k7531 in k7528 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7539,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k3627 in k3615 in k3603 in a3594 in a3588 in a3582 in a3836 in a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ static void C_fcall f_3629(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_3629,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_3632,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:338: print */ t4=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[174]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[2]; /* chicken-install.scm:342: abort */ t3=C_fast_retrieve(lf[175]);{ 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);}}} /* a5822 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 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 *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_5823,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_fast_retrieve(lf[250])); t3=C_mutate2((C_word*)lf[250]+1 /* (set! ##sys#warnings-enabled ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ static void C_ccall f_5828(C_word c,C_word *av){ C_word tmp; C_word t0=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_5828,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_5920,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_5920(t5,t1,((C_word*)t0)[2]);} /* k2935 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2937,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_2942,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_2942(t5,((C_word*)t0)[3],t1);} /* a3675 in a3582 in a3836 in a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in ... */ static void C_ccall f_3676(C_word c,C_word *av){ C_word tmp; 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(9,c,3)))){ C_save_and_reclaim((void *)f_3676,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3682,a[2]=((C_word*)t0)[2],a[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_3705,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:317: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* for-each-loop260 in k2935 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ static void C_fcall f_2942(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_2942,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_2952,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:137: g261 */ t5=((C_word*)t0)[3]; f_2580(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);}}} /* k7580 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7582,2,av);} /* chicken-install.scm:1092: cleanup */ f_5568(((C_word*)t0)[2]);} /* a7596 in a7590 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in ... */ static void C_ccall f_7597(C_word c,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_7597,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k2950 in for-each-loop260 in k2935 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2952,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2942(t3,((C_word*)t0)[4],t2);} /* k3688 in a3681 in a3675 in a3582 in a3836 in a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ 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 t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,24)))){ C_save_and_reclaim((void *)f_3690,2,av);} t2=C_retrieve2(lf[9],"main#\052retrieve-only\052"); t3=(C_truep(C_retrieve2(lf[9],"main#\052retrieve-only\052"))?C_SCHEME_FALSE:C_i_not(C_retrieve2(lf[5],"main#\052keep\052"))); /* chicken-install.scm:319: setup-download#retrieve-extension */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[180]); C_word *av2; if(c >= 25) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(25); } av2[0]=*((C_word*)lf[180]+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]; av2[5]=lf[181]; av2[6]=((C_word*)t0)[6]; av2[7]=lf[182]; av2[8]=t1; av2[9]=lf[183]; av2[10]=C_retrieve2(lf[8],"main#\052run-tests\052"); av2[11]=lf[184]; av2[12]=C_retrieve2(lf[11],"main#\052username\052"); av2[13]=lf[185]; av2[14]=C_retrieve2(lf[12],"main#\052password\052"); av2[15]=lf[186]; av2[16]=C_retrieve2(lf[24],"main#\052trunk\052"); av2[17]=lf[187]; av2[18]=C_retrieve2(lf[18],"main#\052proxy-host\052"); av2[19]=lf[188]; av2[20]=C_retrieve2(lf[19],"main#\052proxy-port\052"); av2[21]=lf[189]; av2[22]=C_retrieve2(lf[20],"main#\052proxy-user-pass\052"); av2[23]=lf[190]; av2[24]=t3; tp(25,av2);}} /* k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in ... */ 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 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,2)))){ C_save_and_reclaim((void *)f_7589,2,av);} a=C_alloc(16); t2=((C_word*)t0)[2]; t3=t1; 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=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6384,a[2]=t11,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=t2,a[7]=t3,tmp=(C_word)a,a+=8,tmp); /* chicken-install.scm:867: irregex */ t13=C_fast_retrieve(lf[445]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t12; av2[2]=lf[446]; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} /* k5875 in k5872 in k5866 in a5859 in a5853 in a5847 in k5838 in k5835 in k5832 in for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_5877,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5880,a[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:701: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[132]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[132]+1); av2[1]=t2; av2[2]=C_make_character(39); av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* k5872 in k5866 in a5859 in a5853 in a5847 in k5838 in k5835 in k5832 in for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 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(6,c,4)))){ C_save_and_reclaim((void *)f_5874,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5877,a[2]=((C_word*)t0)[2],a[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:701: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_ccall f_2967(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2967,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2580,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2937,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:183: read-file */ t4=C_fast_retrieve(lf[363]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_pairp(C_retrieve2(lf[13],"main#\052default-sources\052")); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a5271 in k5265 in k5256 in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 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 *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_5272,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_retrieve2(lf[31],"main#\052host-extension\052")); t3=C_mutate2(&lf[31] /* (set! main#*host-extension* ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a5276 in k5265 in k5256 in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in ... */ 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; 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_5277,2,av);} /* chicken-install.scm:668: setup */ t2=((C_word*)t0)[2]; f_5042(t2,t1,((C_word*)t0)[3]);} /* k5265 in k5256 in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in ... */ 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 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_5267,2,av);} a=C_alloc(16); 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_5272,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5277,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_5283,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:667: ##sys#dynamic-wind */ t9=*((C_word*)lf[256]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6930 in k6927 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_ccall f_6932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6932,2,av);} t2=C_i_cddr(((C_word*)t0)[2]); /* chicken-install.scm:980: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6392(t3,((C_word*)t0)[4],t2,((C_word*)((C_word*)t0)[5])[1]);} /* a5890 in a5884 in a5847 in k5838 in k5835 in k5832 in for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in ... */ static void C_ccall f_5891(C_word c,C_word *av){ 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_5891,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5903,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:702: string->symbol */ t3=*((C_word*)lf[143]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5214 in a5208 in a5184 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in ... */ 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 *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_5215,2,av);} /* chicken-install.scm:641: tmp1127 */ t2=((C_word*)t0)[2]; f_5069(t2,t1);} /* a3681 in a3675 in a3582 in a3836 in a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f_3682(C_word c,C_word *av){ 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_3682,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3690,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); if(C_truep(C_retrieve2(lf[9],"main#\052retrieve-only\052"))){ /* chicken-install.scm:322: current-directory */ t3=C_fast_retrieve(lf[94]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_3690(2,av2);}}} /* k4895 in k4848 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in ... */ static void C_ccall f_4897(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_4897,2,av);} a=C_alloc(5); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[41]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4903,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:561: ##sys#print */ t6=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[300]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_ccall f_7541(C_word c,C_word *av){ C_word tmp; C_word 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_7541,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7547,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7572,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1085: with-exception-handler */ t5=C_fast_retrieve(lf[191]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7555 in a7552 in a7546 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in ... */ static void C_ccall f_7557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7557,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7560,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1088: print-error-message */ t3=C_fast_retrieve(lf[173]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[88]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a5884 in a5847 in k5838 in k5835 in k5832 in for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in ... */ static void C_ccall f_5885(C_word c,C_word *av){ C_word tmp; 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_5885,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5891,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5905,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:694: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* k5881 in k5878 in k5875 in k5872 in k5866 in a5859 in a5853 in a5847 in k5838 in k5835 in k5832 in for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5883,2,av);} /* chicken-install.scm:699: print-error-message */ t2=C_fast_retrieve(lf[173]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[88]+1); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3271 in scan in k3239 in main#check-dependency in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 in ... */ static void C_ccall f_3272(C_word c,C_word *av){ 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_3272,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* chicken-install.scm:260: check-dependency */ f_3208(t1,t2);} /* k5878 in k5875 in k5872 in k5866 in a5859 in a5853 in a5847 in k5838 in k5835 in k5832 in for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5880,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5883,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:701: get-output-string */ t3=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5199 in a5196 in a5190 in a5184 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in ... */ static void C_ccall f_5201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5201,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5204,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:641: print-error-message */ t3=C_fast_retrieve(lf[173]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5205 in k5202 in k5199 in a5196 in a5190 in a5184 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in ... */ static void C_ccall f_5207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5207,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5202 in k5199 in a5196 in a5190 in a5184 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5204,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5207,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:641: print */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[270]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a5208 in a5184 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 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 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_5209,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5215,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5221,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:641: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a7546 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 in ... */ static void C_ccall f_7547(C_word c,C_word *av){ C_word tmp; C_word 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_7547,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7553,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1085: k1792 */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a3281 in scan in k3239 in main#check-dependency in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 in ... */ static void C_ccall f_3282(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(7,c,3)))){ C_save_and_reclaim((void *)f_3282,4,av);} a=C_alloc(7); t4=t3; t5=(C_truep(t2)?C_SCHEME_FALSE:C_i_not(t4)); if(C_truep(t5)){ /* chicken-install.scm:262: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_FALSE; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}} else{ t6=C_i_cdr(((C_word*)t0)[2]); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3303,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=t7,tmp=(C_word)a,a+=7,tmp); if(C_truep(t2)){ t9=((C_word*)t0)[5]; t10=t8; f_3303(t10,(C_truep(t9)?((C_word*)t0)[5]:t2));} else{ t9=t8; f_3303(t9,((C_word*)t0)[5]);}}} /* k7330 in k7311 in k7305 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ static void C_ccall f_7332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_7332,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* chicken-install.scm:1052: append */ t4=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop1751 in k7311 in k7305 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ static void C_fcall f_7336(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_7336,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_mutate2(((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);}}} /* a5220 in a5208 in a5184 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in ... */ static void C_ccall f_5221(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_5221,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_5227,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:641: k1137 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a7590 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 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 *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_7591,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_7597,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1085: k1792 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a5226 in a5220 in a5208 in a5184 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in ... */ static void C_ccall f_5227(C_word c,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_5227,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k7318 in k7311 in k7305 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7320,2,av);} /* chicken-install.scm:1052: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6392(t2,((C_word*)t0)[3],t1,((C_word*)((C_word*)t0)[4])[1]);} /* k7311 in k7305 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 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 t3; C_word t4; 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_7313,2,av);} a=C_alloc(21); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7320,a[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_7332,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_7336,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_7336(t11,t7,((C_word*)t0)[6]);} else{ t2=((C_word*)t0)[3]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8208,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:804: print */ t4=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[383]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k7305 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_ccall f_7307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_7307,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7313,a[2]=((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_7373,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:1051: every */ t5=C_fast_retrieve(lf[154]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k2510 in k2507 in k2501 in main#repo-path in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 in ... */ static void C_ccall f_2512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2512,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2515,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:121: get-output-string */ t3=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2513 in k2510 in k2507 in k2501 in main#repo-path in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2515,2,av);} /* chicken-install.scm:119: make-pathname */ t2=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[27],"main#\052prefix\052"); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* main#get-prefix in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_fcall f_2527(C_word 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(3,0,3)))){ C_save_and_reclaim_args((void *)trf_2527,2,t1,t2);} a=C_alloc(3); t3=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_car(t2)); t5=(C_truep(C_retrieve2(lf[30],"main#\052cross-chicken\052"))?C_i_not(C_retrieve2(lf[31],"main#\052host-extension\052")):C_SCHEME_FALSE); if(C_truep(t5)){ if(C_truep(t4)){ /* ##sys#peek-c-string */ t6=*((C_word*)lf[47]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t1; av2[2]=C_mpointer(&a,(void*)C_TARGET_PREFIX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=C_retrieve2(lf[27],"main#\052prefix\052"); if(C_truep(C_retrieve2(lf[27],"main#\052prefix\052"))){ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=C_retrieve2(lf[27],"main#\052prefix\052"); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ /* ##sys#peek-c-string */ t7=*((C_word*)lf[47]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=C_mpointer(&a,(void*)C_TARGET_PREFIX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}} else{ t6=C_retrieve2(lf[27],"main#\052prefix\052"); t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=C_retrieve2(lf[27],"main#\052prefix\052"); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* a5293 in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in ... */ static void C_ccall f_5294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,1)))){ C_save_and_reclaim((void *)f_5294,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_retrieve2(lf[23],"main#\052deploy\052")); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,C_retrieve2(lf[27],"main#\052prefix\052")); t4=C_mutate2(&lf[23] /* (set! main#*deploy* ...) */,((C_word*)((C_word*)t0)[4])[1]); t5=C_mutate2(&lf[27] /* (set! main#*prefix* ...) */,((C_word*)((C_word*)t0)[5])[1]); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k6927 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f_6929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_6929,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6932,a[2]=((C_word*)t0)[2],a[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]); /* chicken-install.scm:979: setup-proxy */ f_6329(t2,t3);} /* a5282 in k5265 in k5256 in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in ... */ 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; 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_5283,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_retrieve2(lf[31],"main#\052host-extension\052")); t3=C_mutate2(&lf[31] /* (set! main#*host-extension* ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4010 in k4004 in k3997 in g656 in k3980 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in ... */ static void C_ccall f_4012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_4012,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4015,a[2]=((C_word*)t0)[2],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:411: ##sys#print */ t4=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4013 in k4010 in k4004 in k3997 in g656 in k3980 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_4015,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4018,a[2]=((C_word*)t0)[2],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:411: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[199]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4016 in k4013 in k4010 in k4004 in k3997 in g656 in k3980 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f_4018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4018,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4021,a[2]=((C_word*)t0)[2],a[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:411: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5425 in for-each-loop1095 in k5410 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 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 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_5427,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_5417(t4,((C_word*)t0)[5],t2,t3);} /* k6901 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 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 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_6903,2,av);} a=C_alloc(7); 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); t3=C_i_cadr(((C_word*)t0)[3]); t4=t2; t5=t3; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3060,a[2]=t5,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:210: repo-path */ f_2460(t6);} /* k6904 in k6901 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6906,2,av);} /* chicken-install.scm:976: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f8110 in k5327 in k5316 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in ... */ static void C_ccall f8110(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8110,2,av);} /* chicken-install.scm:801: $system */ f_6170(((C_word*)t0)[2],t1);} /* k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f_2564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2564,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2566,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2573,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2967,a[2]=t3,a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:135: file-exists? */ t6=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* broken in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_fcall f_2566(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_2566,3,t0,t1,t2);} /* chicken-install.scm:134: error */ t3=*((C_word*)lf[70]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=lf[370]; av2[3]=((C_word*)t0)[2]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5456 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in ... */ 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 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_5458,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5461,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_list_ref(((C_word*)t0)[4],((C_word*)t0)[5]); /* chicken-install.scm:598: ##sys#print */ t4=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7397 in k7480 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 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 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_7399,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7416,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_7420,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1064: pathname-directory */ t5=C_fast_retrieve(lf[440]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5250 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 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 *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_5251,2,av);} /* chicken-install.scm:659: change-directory */ t2=C_fast_retrieve(lf[268]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* main#setup-proxy in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_fcall f_6329(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_6329,2,t1,t2);} a=C_alloc(3); if(C_truep(C_i_stringp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6339,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:849: irregex-match */ t4=C_fast_retrieve(lf[229]);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=lf[230]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+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);}}} /* k5256 in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5258,2,av);} a=C_alloc(5); t2=(C_truep(C_retrieve2(lf[32],"main#\052target-extension\052"))?C_retrieve2(lf[31],"main#\052host-extension\052"):C_SCHEME_FALSE); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5267,a[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:666: print */ t4=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[333]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4031 in k4028 in k4025 in k4022 in k4019 in k4016 in k4013 in k4010 in k4004 in k3997 in g656 in k3980 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4033,2,av);} /* chicken-install.scm:410: warning */ t2=C_fast_retrieve(lf[75]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2571 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2573,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_pairp(C_retrieve2(lf[13],"main#\052default-sources\052")); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4028 in k4025 in k4022 in k4019 in k4016 in k4013 in k4010 in k4004 in k3997 in g656 in k3980 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4030,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4033,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:411: get-output-string */ t3=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6960 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f_6962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_6962,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6976,a[2]=((C_word*)t0)[2],a[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]); /* chicken-install.scm:984: string->symbol */ t4=*((C_word*)lf[143]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3233 in main#check-dependency in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_ccall f_3235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3235,2,av);} if(C_truep(t1)){ /* chicken-install.scm:249: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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{ /* chicken-install.scm:250: ->string */ t2=C_fast_retrieve(lf[57]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k2501 in main#repo-path in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 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_2503,2,av);} a=C_alloc(5); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[41]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2509,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:121: ##sys#print */ t6=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[48]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k2507 in k2501 in main#repo-path in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 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_2509,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2512,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_fudge(C_fix(42)); /* chicken-install.scm:121: ##sys#print */ t4=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7379 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_ccall f_7381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7381,2,av);} /* string->list */ t2=C_fast_retrieve(lf[436]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3239 in main#check-dependency in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_fcall f_3241(C_word t0,C_word t1){ C_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_3241,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_3250,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_3250(t6,((C_word*)t0)[3],t2,C_SCHEME_FALSE,C_SCHEME_FALSE);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3331,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_3331(t8,t7);} else{ t8=((C_word*)t0)[2]; t9=C_u_i_car(t8); t10=t2; f_3331(t10,C_i_symbolp(t9));}} else{ t6=t2; f_3331(t6,C_SCHEME_FALSE);}} else{ t3=t2; f_3331(t3,C_SCHEME_FALSE);}}} /* a7372 in k7305 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 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 *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=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_memq(t2,lf[435]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a5942 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ static void C_ccall f_5943(C_word c,C_word *av){ C_word tmp; 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_5943,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_fast_retrieve(lf[250])); t3=C_mutate2((C_word*)lf[250]+1 /* (set! ##sys#warnings-enabled ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6337 in main#setup-proxy in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 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_6339,2,av);} a=C_alloc(4); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6345,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:850: irregex-match-substring */ t4=C_fast_retrieve(lf[227]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4025 in k4022 in k4019 in k4016 in k4013 in k4010 in k4004 in k3997 in g656 in k3980 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4027,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4030,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:411: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[132]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[132]+1); av2[1]=t2; av2[2]=C_make_character(39); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k4022 in k4019 in k4016 in k4013 in k4010 in k4004 in k3997 in g656 in k3980 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4024,2,av);} a=C_alloc(5); 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_i_cdr(((C_word*)t0)[5]); /* chicken-install.scm:411: ##sys#print */ t4=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4019 in k4016 in k4013 in k4010 in k4004 in k3997 in g656 in k3980 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4021,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:411: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[198]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5410 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5412,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_5417,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_5417(t5,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* for-each-loop1095 in k5410 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in ... */ static void C_fcall f_5417(C_word t0,C_word t1,C_word 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_5417,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_5427,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)); /* chicken-install.scm:603: g1096 */ t9=((C_word*)t0)[3]; f_5022(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);}}} /* a2702 in k2690 in k2687 in g305 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in ... */ static void C_ccall f_2703(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_2703,4,av);} a=C_alloc(3); t4=C_i_cdr(t3); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_cons(&a,2,t2,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k5928 in for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5930,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5920(t3,((C_word*)t0)[4],t2);} /* main#info->egg in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_ccall f_6365(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6365,3,av);} t3=C_i_cdr(t2); if(C_truep((C_truep(C_i_equalp(t3,lf[232]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t3,lf[233]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t3,lf[234]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))){ t4=t2; t5=C_u_i_car(t4); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t4=t2; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a2715 in g305 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ static void C_ccall f_2716(C_word c,C_word *av){ C_word tmp; C_word 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_2716,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_eqp(lf[375],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5960 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5962,2,av);} /* chicken-install.scm:687: make-pathname */ t2=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[261]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* canonical in main#apply-mappings in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_fcall f_5967(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_5967,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_5981,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:728: symbol->string */ t4=*((C_word*)lf[205]+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:731: error */ t3=*((C_word*)lf[70]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=lf[206]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}}} /* main#apply-mappings in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_fcall f_5964(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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,0,4)))){ C_save_and_reclaim_args((void *)trf_5964,2,t1,t2);} a=C_alloc(21); 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_5967,tmp=(C_word)a,a+=2,tmp)); t8=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6001,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6024,a[2]=t1,a[3]=t2,a[4]=t6,tmp=(C_word)a,a+=5,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6037,a[2]=t9,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6039,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:736: append-map */ t12=C_fast_retrieve(lf[212]);{ C_word av2[4]; av2[0]=t12; av2[1]=t10; av2[2]=t11; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} /* k5948 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ 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 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_5950,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5954,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_5958,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:688: repo-path */ f_2460(t4);} /* k5952 in k5948 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ 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,3)))){ C_save_and_reclaim((void *)f_5954,2,av);} /* chicken-install.scm:687: glob */ t2=C_fast_retrieve(lf[259]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6343 in k6337 in main#setup-proxy in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 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 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_6345,2,av);} a=C_alloc(5); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6352,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:851: get-environment-variable */ t4=C_fast_retrieve(lf[223]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[228]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5956 in k5948 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5958,2,av);} /* chicken-install.scm:688: make-pathname */ t2=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[260]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4094 in k4085 in k4082 in main#show-depends in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ static void C_ccall f_4096(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4096,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4099,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:423: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[107]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4097 in k4094 in k4085 in k4082 in main#show-depends in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in ... */ 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 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_4099,2,av);} a=C_alloc(12); 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); t3=C_retrieve2(lf[78],"main#\052eggs+dirs+vers\052"); t4=C_i_check_list_2(C_retrieve2(lf[78],"main#\052eggs+dirs+vers\052"),lf[100]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4196,a[2]=((C_word*)t0)[3],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_4204,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_4204(t9,t5,C_retrieve2(lf[78],"main#\052eggs+dirs+vers\052"));} /* k6771 in k6767 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 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 t3; 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_6773,2,av);} t2=C_mutate2(&lf[15] /* (set! main#*default-transport* ...) */,t1); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_u_i_cdr(t4); /* chicken-install.scm:950: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_6392(t6,((C_word*)t0)[4],t5,((C_word*)((C_word*)t0)[5])[1]);} /* k5901 in a5890 in a5884 in a5847 in k5838 in k5835 in k5832 in for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5903,2,av);} a=C_alloc(6); t2=C_a_i_list(&a,2,lf[252],t1); /* chicken-install.scm:702: eval */ t3=C_fast_retrieve(lf[253]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5904 in a5884 in a5847 in k5838 in k5835 in k5832 in for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in ... */ static void C_ccall f_5905(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_5905,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_5911,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:694: k1272 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_ccall f_2387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2387,2,av);} a=C_alloc(3); 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);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_irregex_toplevel(2,av2);}} /* k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_4805,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4808,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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); /* chicken-install.scm:544: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_ccall f_2381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2381,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2384,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_4808,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4811,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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); /* chicken-install.scm:544: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[312]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2384,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2387,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_utils_toplevel(2,av2);}} /* k3223 in main#check-dependency in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3225,2,av);} /* chicken-install.scm:249: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6350 in k6343 in k6337 in main#setup-proxy in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ static void C_ccall f_6352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_6352,2,av);} a=C_alloc(4); t2=C_mutate2(&lf[20] /* (set! main#*proxy-user-pass* ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6356,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:852: irregex-match-substring */ t4=C_fast_retrieve(lf[227]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ static void C_fcall f_5920(C_word t0,C_word 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_5920,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_5930,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_5834,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:695: pathname-strip-directory */ t7=C_fast_retrieve(lf[255]);{ 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);}}} /* k6354 in k6350 in k6343 in k6337 in main#setup-proxy in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in ... */ static void C_ccall f_6356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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,1)))){ C_save_and_reclaim((void *)f_6356,2,av);} a=C_alloc(4); t2=C_mutate2(&lf[18] /* (set! main#*proxy-host* ...) */,t1); t3=C_a_i_string_to_number(&a,2,((C_word*)t0)[2],C_fix(10)); if(C_truep(t3)){ t4=C_mutate2(&lf[19] /* (set! main#*proxy-port* ...) */,t3); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=lf[19] /* main#*proxy-port* */ =C_fix(80);; t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* f8098 in tmp1154 in k5084 in k5080 in k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in ... */ static void C_ccall f8098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8098,2,av);} /* chicken-install.scm:801: $system */ f_6170(((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(1305))){ C_save(t1); C_rereclaim2(1305*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,456); lf[1]=C_decode_literal(C_heaptop,"\376B\000\000\012modules.db"); lf[3]=C_decode_literal(C_heaptop,"\376B\000\000\016setup.defaults"); lf[16]=C_h_intern(&lf[16],4,"http"); lf[41]=C_h_intern(&lf[41],7,"sprintf"); lf[42]=C_h_intern(&lf[42],13,"make-pathname"); lf[43]=C_h_intern(&lf[43],17,"get-output-string"); lf[44]=C_h_intern(&lf[44],9,"\003sysprint"); lf[45]=C_decode_literal(C_heaptop,"\376B\000\000\010chicken/"); lf[46]=C_h_intern(&lf[46],18,"open-output-string"); lf[47]=C_h_intern(&lf[47],17,"\003syspeek-c-string"); lf[48]=C_decode_literal(C_heaptop,"\376B\000\000\014lib/chicken/"); lf[49]=C_h_intern(&lf[49],15,"repository-path"); lf[54]=C_h_intern(&lf[54],7,"chicken"); lf[55]=C_h_intern(&lf[55],15,"chicken-version"); lf[56]=C_h_intern(&lf[56],7,"version"); lf[57]=C_h_intern(&lf[57],8,"->string"); lf[58]=C_decode_literal(C_heaptop,"\376B\000\000\0050.0.0"); lf[59]=C_h_intern(&lf[59],20,"with-input-from-file"); lf[60]=C_h_intern(&lf[60],4,"read"); lf[61]=C_h_intern(&lf[61],12,"file-exists\077"); lf[62]=C_decode_literal(C_heaptop,"\376B\000\000\012setup-info"); lf[63]=C_h_intern(&lf[63],31,"\003syscanonicalize-extension-path"); lf[64]=C_h_intern(&lf[64],11,"ext-version"); lf[65]=C_decode_literal(C_heaptop,"\376B\000\000\007chicken"); lf[66]=C_h_intern(&lf[66],24,"\003syscore-library-modules"); lf[67]=C_h_intern(&lf[67],23,"\003syscore-syntax-modules"); lf[69]=C_decode_literal(C_heaptop,"\376B\000\000\007chicken"); lf[70]=C_h_intern(&lf[70],5,"error"); lf[71]=C_h_intern(&lf[71],13,"string-append"); lf[72]=C_decode_literal(C_heaptop,"\376B\000\000JYour CHICKEN version is not recent enough to use this extension - version "); lf[73]=C_decode_literal(C_heaptop,"\376B\000\000\025 or newer is required"); lf[74]=C_h_intern(&lf[74],20,"setup-api#version>=\077"); lf[75]=C_h_intern(&lf[75],7,"warning"); lf[76]=C_decode_literal(C_heaptop,"\376B\000\0007invalid dependency syntax in extension meta information"); lf[77]=C_h_intern(&lf[77],2,"or"); lf[83]=C_h_intern(&lf[83],4,"exit"); lf[84]=C_h_intern(&lf[84],5,"print"); lf[85]=C_decode_literal(C_heaptop,"\376B\000\000,Could not determine a source of extensions. "); lf[86]=C_decode_literal(C_heaptop,"\376B\000\000.Please specify a valid location and transport."); lf[87]=C_h_intern(&lf[87],19,"with-output-to-port"); lf[88]=C_h_intern(&lf[88],18,"\003sysstandard-error"); lf[89]=C_h_intern(&lf[89],5,"local"); lf[90]=C_h_intern(&lf[90],9,"transport"); lf[91]=C_decode_literal(C_heaptop,"\376B\000\000\027missing transport entry"); lf[92]=C_h_intern(&lf[92],8,"location"); lf[93]=C_decode_literal(C_heaptop,"\376B\000\000\026missing location entry"); lf[94]=C_h_intern(&lf[94],17,"current-directory"); lf[95]=C_h_intern(&lf[95],18,"absolute-pathname\077"); lf[97]=C_h_intern(&lf[97],7,"depends"); lf[98]=C_h_intern(&lf[98],19,"\003sysstandard-output"); lf[99]=C_h_intern(&lf[99],6,"printf"); lf[100]=C_h_intern(&lf[100],8,"for-each"); lf[101]=C_decode_literal(C_heaptop,"\376B\000\000\001\011"); lf[102]=C_decode_literal(C_heaptop,"\376B\000\000\002: "); lf[103]=C_h_intern(&lf[103],5,"needs"); lf[104]=C_h_intern(&lf[104],6,"append"); lf[105]=C_decode_literal(C_heaptop,"\376B\000\000\004meta"); lf[107]=C_decode_literal(C_heaptop,"\376B\000\000$ dependencies as reported in .meta:\012"); lf[108]=C_decode_literal(C_heaptop,"\376B\000\000\003Egg"); lf[109]=C_h_intern(&lf[109],15,"foreign-depends"); lf[110]=C_decode_literal(C_heaptop,"\376B\000\000\007Foreign"); lf[112]=C_decode_literal(C_heaptop,"\376B\000\000\034fetching meta information..."); lf[113]=C_h_intern(&lf[113],7,"reverse"); lf[114]=C_h_intern(&lf[114],12,"test-depends"); lf[115]=C_h_intern(&lf[115],3,"map"); lf[116]=C_h_intern(&lf[116],26,"setup-api#remove-extension"); lf[117]=C_decode_literal(C_heaptop,"\376B\000\000)removing previously installed extension `"); lf[118]=C_decode_literal(C_heaptop,"\376B\000\000\005\047 ..."); lf[119]=C_decode_literal(C_heaptop,"\376B\000\000\012 upgrade: "); lf[120]=C_h_intern(&lf[120],18,"string-intersperse"); lf[121]=C_decode_literal(C_heaptop,"\376B\000\000\002, "); lf[122]=C_h_intern(&lf[122],6,"unzip1"); lf[123]=C_h_intern(&lf[123],10,"yes-or-no\077"); lf[124]=C_h_intern(&lf[124],8,"\000default"); lf[125]=C_decode_literal(C_heaptop,"\376B\000\000\002no"); lf[126]=C_h_intern(&lf[126],6,"\000abort"); lf[127]=C_h_intern(&lf[127],21,"setup-api#abort-setup"); lf[128]=C_h_intern(&lf[128],18,"string-concatenate"); lf[129]=C_decode_literal(C_heaptop,"\376B\000\000:The following installed extensions are outdated, because `"); lf[130]=C_decode_literal(C_heaptop,"\376B\000\000\033\047 requires later versions:\012"); lf[131]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\0000\012Do you want to replace the existing extensions\077\376\377\016"); lf[132]=C_h_intern(&lf[132],16,"\003syswrite-char-0"); lf[133]=C_decode_literal(C_heaptop,"\376B\000\000\036\047 overrides required version `"); lf[134]=C_decode_literal(C_heaptop,"\376B\000\000\020\047 of extension `"); lf[135]=C_decode_literal(C_heaptop,"\376B\000\000\011version `"); lf[136]=C_decode_literal(C_heaptop,"\376B\000\000\003\077\077\077"); lf[137]=C_h_intern(&lf[137],4,"conc"); lf[138]=C_decode_literal(C_heaptop,"\376B\000\000\002 "); lf[139]=C_decode_literal(C_heaptop,"\376B\000\000\002 ("); lf[140]=C_decode_literal(C_heaptop,"\376B\000\000\004 -> "); lf[141]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[142]=C_h_intern(&lf[142],21,"extension-information"); lf[143]=C_h_intern(&lf[143],14,"string->symbol"); lf[144]=C_h_intern(&lf[144],10,"filter-map"); lf[145]=C_decode_literal(C_heaptop,"\376B\000\000\012 missing: "); lf[146]=C_decode_literal(C_heaptop,"\376B\000\000\002, "); lf[148]=C_decode_literal(C_heaptop,"\376B\000\000\033checking dependencies for `"); lf[149]=C_decode_literal(C_heaptop,"\376B\000\000\005\047 ..."); lf[150]=C_decode_literal(C_heaptop,"\376B\000\000)extension is not targeted for this system"); lf[151]=C_h_intern(&lf[151],8,"platform"); lf[152]=C_h_intern(&lf[152],8,"feature\077"); lf[153]=C_h_intern(&lf[153],3,"and"); lf[154]=C_h_intern(&lf[154],5,"every"); lf[155]=C_h_intern(&lf[155],3,"any"); lf[156]=C_decode_literal(C_heaptop,"\376B\000\000\033invalid `platform\047 property"); lf[157]=C_h_intern(&lf[157],3,"not"); lf[158]=C_decode_literal(C_heaptop,"\376B\000\000\033invalid `platform\047 property"); lf[159]=C_decode_literal(C_heaptop,"\376B\000\000\027checking platform for `"); lf[160]=C_decode_literal(C_heaptop,"\376B\000\000\005\047 ..."); lf[161]=C_decode_literal(C_heaptop,"\376B\000\000\013extension `"); lf[162]=C_decode_literal(C_heaptop,"\376B\000\000\024\047 has no .meta file "); lf[163]=C_decode_literal(C_heaptop,"\376B\000\000!- assuming it has no dependencies"); lf[164]=C_decode_literal(C_heaptop,"\376B\000\000\004meta"); lf[165]=C_h_intern(&lf[165],6,"delete"); lf[166]=C_h_intern(&lf[166],3,"eq\077"); lf[167]=C_h_intern(&lf[167],9,"condition"); lf[168]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[169]=C_decode_literal(C_heaptop,"\376B\000\000\023TCP connect timeout"); lf[170]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[171]=C_decode_literal(C_heaptop,"\376B\000\000\023HTTP protocol error"); lf[172]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[173]=C_h_intern(&lf[173],19,"print-error-message"); lf[174]=C_decode_literal(C_heaptop,"\376B\000\000\015Server error:"); lf[175]=C_h_intern(&lf[175],5,"abort"); lf[176]=C_h_intern(&lf[176],3,"exn"); lf[177]=C_h_intern(&lf[177],20,"setup-download-error"); lf[178]=C_h_intern(&lf[178],10,"http-fetch"); lf[179]=C_h_intern(&lf[179],3,"net"); lf[180]=C_h_intern(&lf[180],33,"setup-download#retrieve-extension"); lf[181]=C_h_intern(&lf[181],8,"\000version"); lf[182]=C_h_intern(&lf[182],12,"\000destination"); lf[183]=C_h_intern(&lf[183],6,"\000tests"); lf[184]=C_h_intern(&lf[184],9,"\000username"); lf[185]=C_h_intern(&lf[185],9,"\000password"); lf[186]=C_h_intern(&lf[186],6,"\000trunk"); lf[187]=C_h_intern(&lf[187],11,"\000proxy-host"); lf[188]=C_h_intern(&lf[188],11,"\000proxy-port"); lf[189]=C_h_intern(&lf[189],16,"\000proxy-user-pass"); lf[190]=C_h_intern(&lf[190],6,"\000clean"); lf[191]=C_h_intern(&lf[191],22,"with-exception-handler"); lf[192]=C_h_intern(&lf[192],30,"call-with-current-continuation"); lf[193]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[194]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[195]=C_decode_literal(C_heaptop,"\376B\000\000\014 located at "); lf[196]=C_decode_literal(C_heaptop,"\376B\000\000\036extension or version not found"); lf[197]=C_h_intern(&lf[197],9,"directory"); lf[198]=C_decode_literal(C_heaptop,"\376B\000\000&\047 overrides explicitly given version `"); lf[199]=C_decode_literal(C_heaptop,"\376B\000\000\020\047 of extension `"); lf[200]=C_decode_literal(C_heaptop,"\376B\000\000\011version `"); lf[201]=C_decode_literal(C_heaptop,"\376B\000\000\014overriding: "); lf[202]=C_decode_literal(C_heaptop,"\376B\000\000\016retrieving ..."); lf[203]=C_h_intern(&lf[203],26,"setup-api#remove-directory"); lf[204]=C_h_intern(&lf[204],34,"setup-download#temporary-directory"); lf[205]=C_h_intern(&lf[205],14,"symbol->string"); lf[206]=C_decode_literal(C_heaptop,"\376B\000\000\035internal error - bad egg spec"); lf[207]=C_decode_literal(C_heaptop,"\376B\000\000\007mapped "); lf[208]=C_decode_literal(C_heaptop,"\376B\000\000\004 to "); lf[209]=C_h_intern(&lf[209],5,"lset="); lf[210]=C_h_intern(&lf[210],17,"delete-duplicates"); lf[211]=C_h_intern(&lf[211],4,"find"); lf[212]=C_h_intern(&lf[212],10,"append-map"); lf[214]=C_decode_literal(C_heaptop,"\376B\000\000/shell command terminated with nonzero exit code"); lf[215]=C_h_intern(&lf[215],6,"system"); lf[216]=C_decode_literal(C_heaptop,"\376B\000\000\002 "); lf[217]=C_decode_literal(C_heaptop,"\376B\000\000\001\042"); lf[218]=C_decode_literal(C_heaptop,"\376B\000\000\001\042"); lf[219]=C_decode_literal(C_heaptop,"\376B\000\000\037/usr/bin/env DYLD_LIBRARY_PATH="); lf[220]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[221]=C_h_intern(&lf[221],2,"qs"); lf[222]=C_h_intern(&lf[222],6,"macosx"); lf[223]=C_h_intern(&lf[223],24,"get-environment-variable"); lf[224]=C_decode_literal(C_heaptop,"\376B\000\000\021DYLD_LIBRARY_PATH"); lf[225]=C_h_intern(&lf[225],16,"software-version"); lf[227]=C_h_intern(&lf[227],23,"irregex-match-substring"); lf[228]=C_decode_literal(C_heaptop,"\376B\000\000\012proxy_auth"); lf[229]=C_h_intern(&lf[229],13,"irregex-match"); lf[230]=C_decode_literal(C_heaptop,"\376B\000\000\033(http://)\077([^:]+):\077([0-9]\052)"); lf[232]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[233]=C_decode_literal(C_heaptop,"\376B\000\000\007unknown"); lf[234]=C_decode_literal(C_heaptop,"\376B\000\000\005trunk"); lf[235]=C_h_intern(&lf[235],25,"\003sysimplicit-exit-handler"); lf[236]=C_h_intern(&lf[236],7,"newline"); lf[237]=C_h_intern(&lf[237],19,"setup-api#copy-file"); lf[238]=C_h_intern(&lf[238],5,"write"); lf[239]=C_h_intern(&lf[239],19,"with-output-to-file"); lf[240]=C_h_intern(&lf[240],8,"string<\077"); lf[241]=C_h_intern(&lf[241],4,"sort"); lf[242]=C_h_intern(&lf[242],18,"\003sysmodule-exports"); lf[243]=C_h_intern(&lf[243],6,"syntax"); lf[244]=C_h_intern(&lf[244],5,"value"); lf[245]=C_h_intern(&lf[245],6,"print\052"); lf[246]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[247]=C_h_intern(&lf[247],15,"\003sysmodule-name"); lf[248]=C_h_intern(&lf[248],16,"\003sysmodule-table"); lf[249]=C_decode_literal(C_heaptop,"\376B\000\000\023generating database"); lf[250]=C_h_intern(&lf[250],20,"\003syswarnings-enabled"); lf[251]=C_decode_literal(C_heaptop,"\376B\000\000\027Failed to import from `"); lf[252]=C_h_intern(&lf[252],6,"import"); lf[253]=C_h_intern(&lf[253],4,"eval"); lf[254]=C_h_intern(&lf[254],24,"pathname-strip-extension"); lf[255]=C_h_intern(&lf[255],24,"pathname-strip-directory"); lf[256]=C_h_intern(&lf[256],16,"\003sysdynamic-wind"); lf[257]=C_decode_literal(C_heaptop,"\376B\000\000\034loading import libraries ..."); lf[258]=C_h_intern(&lf[258],26,"create-temporary-directory"); lf[259]=C_h_intern(&lf[259],4,"glob"); lf[260]=C_decode_literal(C_heaptop,"\376B\000\000\014\052.import.scm"); lf[261]=C_decode_literal(C_heaptop,"\376B\000\000\013\052.import.so"); lf[262]=C_h_intern(&lf[262],2,"pp"); lf[263]=C_h_intern(&lf[263],6,"cadadr"); lf[264]=C_h_intern(&lf[264],37,"setup-download#gather-egg-information"); lf[265]=C_h_intern(&lf[265],7,"display"); lf[266]=C_h_intern(&lf[266],30,"setup-download#list-extensions"); lf[267]=C_h_intern(&lf[267],6,"\000quiet"); lf[268]=C_h_intern(&lf[268],16,"change-directory"); lf[269]=C_decode_literal(C_heaptop,"\376B\000\000\023~a -s run.scm ~a ~a"); lf[270]=C_decode_literal(C_heaptop,"\376B\000\000$\012nevertheless trying to continue ..."); lf[271]=C_decode_literal(C_heaptop,"\376B\000\000\007testing"); lf[272]=C_decode_literal(C_heaptop,"\376B\000\000\014 extension `"); lf[273]=C_decode_literal(C_heaptop,"\376B\000\000\011\047 failed:"); lf[274]=C_decode_literal(C_heaptop,"\376B\000\000\005tests"); lf[275]=C_decode_literal(C_heaptop,"\376B\000\000\015tests/run.scm"); lf[276]=C_h_intern(&lf[276],10,"directory\077"); lf[277]=C_decode_literal(C_heaptop,"\376B\000\000\005tests"); lf[278]=C_decode_literal(C_heaptop,"\376B\000\000\005tests"); lf[279]=C_decode_literal(C_heaptop,"\376B\000\000\012installing"); lf[280]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[281]=C_decode_literal(C_heaptop,"\376B\000\000\034-e \042(setup-error-handling)\042 "); lf[282]=C_decode_literal(C_heaptop,"\376B\000\000\027 -e \042(sudo-install #t)\042"); lf[283]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[284]=C_decode_literal(C_heaptop,"\376B\000\000\035 -e \042(keep-intermediates #t)\042"); lf[285]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[286]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[287]=C_decode_literal(C_heaptop,"\376B\000\000\035 -e \042(setup-install-mode #f)\042"); lf[288]=C_decode_literal(C_heaptop,"\376B\000\000\031 -e \042(host-extension #t)\042"); lf[289]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[290]=C_decode_literal(C_heaptop,"\376B\000\000\032 -e \042(deployment-mode #t)\042"); lf[291]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[292]=C_decode_literal(C_heaptop,"\376B\000\000\006 -bnq "); lf[293]=C_decode_literal(C_heaptop,"\376B\000\0009-e \042(require-library setup-api)\042 -e \042(import setup-api)\042 "); lf[294]=C_h_intern(&lf[294],19,"setup-api#shellpath"); lf[295]=C_decode_literal(C_heaptop,"\376B\000\000\006.setup"); lf[296]=C_decode_literal(C_heaptop,"\376B\000\000\002)\042"); lf[297]=C_decode_literal(C_heaptop,"\376B\000\000\031 -e \042(extra-nonfeatures \047"); lf[298]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[299]=C_decode_literal(C_heaptop,"\376B\000\000\002)\042"); lf[300]=C_decode_literal(C_heaptop,"\376B\000\000\026 -e \042(extra-features \047"); lf[301]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[302]=C_decode_literal(C_heaptop,"\376B\000\000\004\134\042)\042"); lf[303]=C_h_intern(&lf[303],16,"string-translate"); lf[304]=C_h_intern(&lf[304],18,"normalize-pathname"); lf[305]=C_decode_literal(C_heaptop,"\376B\000\000\027 -e \042(runtime-prefix \134\042"); lf[306]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[307]=C_decode_literal(C_heaptop,"\376B\000\000\004\134\042)\042"); lf[308]=C_decode_literal(C_heaptop,"\376B\000\000\033 -e \042(destination-prefix \134\042"); lf[309]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[310]=C_h_intern(&lf[310],22,"setup-api#sudo-install"); lf[311]=C_decode_literal(C_heaptop,"\376B\000\000\005\134\042))\042"); lf[312]=C_decode_literal(C_heaptop,"\376B\000\000\005\134\042 \134\042"); lf[313]=C_decode_literal(C_heaptop,"\376B\000\000$-e \042(extension-name-and-version \047(\134\042"); lf[314]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[315]=C_decode_literal(C_heaptop,"\376B\000\000\014-setup-mode "); lf[316]=C_h_intern(&lf[316],1,"\052"); lf[317]=C_decode_literal(C_heaptop,"\376B\000\000\001o"); lf[318]=C_decode_literal(C_heaptop,"\376B\000\000\002so"); lf[319]=C_decode_literal(C_heaptop,"\376B\000\000\003dll"); lf[320]=C_decode_literal(C_heaptop,"\376B\000\000\001a"); lf[321]=C_h_intern(&lf[321],3,"seq"); lf[322]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[323]=C_h_intern(&lf[323],12,"delete-file\052"); lf[324]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[325]=C_h_intern(&lf[325],10,"find-files"); lf[326]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[327]=C_h_intern(&lf[327],5,"\000test"); lf[328]=C_h_intern(&lf[328],7,"\000action"); lf[329]=C_decode_literal(C_heaptop,"\376B\000\000\033deleting stale binaries ..."); lf[330]=C_decode_literal(C_heaptop,"\376B\000\000\033deleting stale binaries ..."); lf[331]=C_h_intern(&lf[331],12,"dynamic-wind"); lf[332]=C_decode_literal(C_heaptop,"\376B\000\000\036changing current directory to "); lf[333]=C_decode_literal(C_heaptop,"\376B\000\000\031installing for target ..."); lf[334]=C_decode_literal(C_heaptop,"\376B\000\000\005xcopy"); lf[335]=C_decode_literal(C_heaptop,"\376B\000\000\005cp -r"); lf[336]=C_decode_literal(C_heaptop,"\376B\000\000\010~a ~a ~a"); lf[337]=C_decode_literal(C_heaptop,"\376B\000\000\001\052"); lf[338]=C_decode_literal(C_heaptop,"\376B\000\000\047copying sources for target installation"); lf[339]=C_decode_literal(C_heaptop,"\376B\000\000\013installing "); lf[340]=C_decode_literal(C_heaptop,"\376B\000\000\004 ..."); lf[341]=C_decode_literal(C_heaptop,"\376B\000\000\026aborting installation."); lf[342]=C_h_intern(&lf[342],17,"\003sysstring-append"); lf[343]=C_decode_literal(C_heaptop,"\376B\000\000@You specified `-no-install\047, but this extension has dependencies"); lf[344]=C_decode_literal(C_heaptop,"\376B\000\000C that are required for building.\012Do you still want to install them\077"); lf[345]=C_h_intern(&lf[345],4,"iota"); lf[346]=C_decode_literal(C_heaptop,"\376B\000\000\016install order:"); lf[347]=C_h_intern(&lf[347],7,"fprintf"); lf[348]=C_decode_literal(C_heaptop,"\376B\000\000\002\012\012"); lf[349]=C_decode_literal(C_heaptop,"\376B\000\000\030\012Unresolved dependency: "); lf[350]=C_h_intern(&lf[350],10,"list-index"); lf[351]=C_h_intern(&lf[351],16,"topological-sort"); lf[352]=C_h_intern(&lf[352],8,"string=\077"); lf[353]=C_h_intern(&lf[353],6,"remove"); lf[354]=C_decode_literal(C_heaptop,"\376B\000\000;no default location defined - please use `-location\047 option"); lf[355]=C_decode_literal(C_heaptop,"\376B\000\000=no default transport defined - please use `-transport\047 option"); lf[356]=C_decode_literal(C_heaptop,"\376B\000\0009 currently installed extensions - do you want to proceed\077"); lf[357]=C_decode_literal(C_heaptop,"\376B\000\000\030About to re-install all "); lf[358]=C_h_intern(&lf[358],6,"equal\077"); lf[359]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[360]=C_h_intern(&lf[360],8,"egg-name"); lf[361]=C_decode_literal(C_heaptop,"\376B\000\000Dinstalled extension has no information about which egg it belongs to"); lf[362]=C_h_intern(&lf[362],13,"pathname-file"); lf[363]=C_h_intern(&lf[363],9,"read-file"); lf[364]=C_decode_literal(C_heaptop,"\376B\000\000\001\052"); lf[365]=C_decode_literal(C_heaptop,"\376B\000\000\012setup-info"); lf[366]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[367]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[368]=C_decode_literal(C_heaptop,"\376B\000\000\033no setup-scripts to process"); lf[369]=C_decode_literal(C_heaptop,"\376B\000\000\007\052.setup"); lf[370]=C_decode_literal(C_heaptop,"\376B\000\000\036invalid entry in defaults file"); lf[371]=C_decode_literal(C_heaptop,"\376B\000\000$\047 does not match setup-API version ("); lf[372]=C_decode_literal(C_heaptop,"\376B\000\000\026version of installed `"); lf[373]=C_h_intern(&lf[373],6,"server"); lf[374]=C_h_intern(&lf[374],8,"split-at"); lf[375]=C_h_intern(&lf[375],2,"->"); lf[376]=C_h_intern(&lf[376],5,"alias"); lf[377]=C_h_intern(&lf[377],7,"string\077"); lf[378]=C_h_intern(&lf[378],8,"override"); lf[379]=C_h_intern(&lf[379],4,"hack"); lf[380]=C_h_intern(&lf[380],12,"chicken-home"); lf[381]=C_decode_literal(C_heaptop,"\376B\000\000B`-deploy\047 only makes sense in combination with `-prefix DIRECTORY`"); lf[382]=C_decode_literal(C_heaptop,"\376B\000\000\005-help"); lf[383]=C_decode_literal(C_heaptop,"\376B\000\012gusage: chicken-install [OPTION | EXTENSION[:VERSION]] ...\012\012 -h -help " " show this message and exit\012 -version show " "version and exit\012 -force don\047t ask, install even if vers" "ions don\047t match\012 -k -keep keep temporary files\012 -x -ke" "ep-installed install only if not already installed\012 -reinstall " " reinstall all currently installed extensions\012 -l -location LOCATI" "ON install from given location instead of default\012 -t -transport TRANSP" "ORT use given transport instead of default\012 -proxy HOST[:PORT] d" "ownload via HTTP proxy\012 -s -sudo use external command to e" "levate privileges for filesystem operations\012 -r -retrieve only" " retrieve egg into current directory, don\047t install\012 -n -no-install " " do not install, just build (implies `-keep\047)\012 -p -prefix PREFIX " " change installation prefix to PREFIX\012 -no-install-deps do not ins" "tall dependencies\012 -list list extensions available over" " selected transport and location\012 -host when cross-comp" "iling, compile extension only for host\012 -target when cros" "s-compiling, compile extension only for target\012 -test r" "un included test-cases, if available\012 -username USER set usernam" "e for transports that require this\012 -password PASS set password " "for transports that require this\012 -i -init DIRECTORY initialize empt" "y alternative repository\012 -u -update-db update export database\012" " -repository print path used for egg installation\012 -dep" "loy build extensions for deployment\012 -trunk " " build trunk instead of tagged version (only local)\012 -D -feature FEATURE " " features to pass to sub-invocations of `csc\047\012 -debug " " enable full display of error message information\012 -keep-going " " continue installation even if dependency fails\012 -scan DIRECTORY " " scan local directory for highest available egg versions\012 -override FI" "LENAME override versions for installed eggs with information from file\012 " " -csi FILENAME use given pathname for invocations of \042csi\042\012 " "-show-depends display a list of egg dependencies for the given egg(s)" "\012 -show-foreign-depends display a list of foreign dependencies for the " "given egg(s)\012\012chicken-install recognizes the SUDO, http_proxy and proxy_auth env" "ironment variables, if set.\012"); lf[384]=C_decode_literal(C_heaptop,"\376B\000\000\013-repository"); lf[385]=C_decode_literal(C_heaptop,"\376B\000\000\006-force"); lf[386]=C_decode_literal(C_heaptop,"\376B\000\000\002-k"); lf[387]=C_decode_literal(C_heaptop,"\376B\000\000\005-keep"); lf[388]=C_decode_literal(C_heaptop,"\376B\000\000\002-s"); lf[389]=C_decode_literal(C_heaptop,"\376B\000\000\005-sudo"); lf[390]=C_decode_literal(C_heaptop,"\376B\000\000\002-r"); lf[391]=C_decode_literal(C_heaptop,"\376B\000\000\011-retrieve"); lf[392]=C_decode_literal(C_heaptop,"\376B\000\000\002-l"); lf[393]=C_decode_literal(C_heaptop,"\376B\000\000\011-location"); lf[394]=C_decode_literal(C_heaptop,"\376B\000\000\002-t"); lf[395]=C_decode_literal(C_heaptop,"\376B\000\000\012-transport"); lf[396]=C_decode_literal(C_heaptop,"\376B\000\000\002-p"); lf[397]=C_decode_literal(C_heaptop,"\376B\000\000\007-prefix"); lf[398]=C_decode_literal(C_heaptop,"\376B\000\000\020-no-install-deps"); lf[399]=C_decode_literal(C_heaptop,"\376B\000\000\002-n"); lf[400]=C_decode_literal(C_heaptop,"\376B\000\000\013-no-install"); lf[401]=C_decode_literal(C_heaptop,"\376B\000\000\010-version"); lf[402]=C_decode_literal(C_heaptop,"\376B\000\000\002-u"); lf[403]=C_decode_literal(C_heaptop,"\376B\000\000\012-update-db"); lf[404]=C_decode_literal(C_heaptop,"\376B\000\000\002-i"); lf[405]=C_decode_literal(C_heaptop,"\376B\000\000\005-init"); lf[406]=C_decode_literal(C_heaptop,"\376B\000\000\004copy"); lf[407]=C_decode_literal(C_heaptop,"\376B\000\000\005cp -r"); lf[408]=C_decode_literal(C_heaptop,"\376B\000\000\010~a ~a ~a"); lf[409]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\014setup-api.so\376\003\000\000\002\376B\000\000\023setup-api.import.so\376\003\000\000\002\376B\000\000\021setup-download.so\376\003" "\000\000\002\376B\000\000\030setup-download.import.so\376\003\000\000\002\376B\000\000\021chicken.import.so\376\003\000\000\002\376B\000\000\021lolevel.imp" "ort.so\376\003\000\000\002\376B\000\000\020srfi-1.import.so\376\003\000\000\002\376B\000\000\020srfi-4.import.so\376\003\000\000\002\376B\000\000\031data-structu" "res.import.so\376\003\000\000\002\376B\000\000\017ports.import.so\376\003\000\000\002\376B\000\000\017files.import.so\376\003\000\000\002\376B\000\000\017posix.i" "mport.so\376\003\000\000\002\376B\000\000\021srfi-13.import.so\376\003\000\000\002\376B\000\000\021srfi-69.import.so\376\003\000\000\002\376B\000\000\020extras.i" "mport.so\376\003\000\000\002\376B\000\000\021srfi-14.import.so\376\003\000\000\002\376B\000\000\015tcp.import.so\376\003\000\000\002\376B\000\000\021foreign.impo" "rt.so\376\003\000\000\002\376B\000\000\021srfi-18.import.so\376\003\000\000\002\376B\000\000\017utils.import.so\376\003\000\000\002\376B\000\000\015csi.import.so" "\376\003\000\000\002\376B\000\000\021irregex.import.so\376\003\000\000\002\376B\000\000\010types.db\376\377\016"); lf[410]=C_decode_literal(C_heaptop,"\376B\000\000\032copying required files to "); lf[411]=C_decode_literal(C_heaptop,"\376B\000\000\004 ..."); lf[412]=C_h_intern(&lf[412],16,"create-directory"); lf[413]=C_decode_literal(C_heaptop,"\376B\000\000\006-proxy"); lf[414]=C_decode_literal(C_heaptop,"\376B\000\000\002-D"); lf[415]=C_decode_literal(C_heaptop,"\376B\000\000\010-feature"); lf[416]=C_decode_literal(C_heaptop,"\376B\000\000\013-no-feature"); lf[417]=C_decode_literal(C_heaptop,"\376B\000\000\005-test"); lf[418]=C_decode_literal(C_heaptop,"\376B\000\000\005-host"); lf[419]=C_decode_literal(C_heaptop,"\376B\000\000\007-target"); lf[420]=C_decode_literal(C_heaptop,"\376B\000\000\006-debug"); lf[421]=C_decode_literal(C_heaptop,"\376B\000\000\007-deploy"); lf[422]=C_decode_literal(C_heaptop,"\376B\000\000\011-username"); lf[423]=C_decode_literal(C_heaptop,"\376B\000\000\005-scan"); lf[424]=C_decode_literal(C_heaptop,"\376B\000\000\011-override"); lf[425]=C_decode_literal(C_heaptop,"\376B\000\000\002-x"); lf[426]=C_decode_literal(C_heaptop,"\376B\000\000\017-keep-installed"); lf[427]=C_decode_literal(C_heaptop,"\376B\000\000\012-reinstall"); lf[428]=C_decode_literal(C_heaptop,"\376B\000\000\006-trunk"); lf[429]=C_decode_literal(C_heaptop,"\376B\000\000\013-keep-going"); lf[430]=C_decode_literal(C_heaptop,"\376B\000\000\005-list"); lf[431]=C_decode_literal(C_heaptop,"\376B\000\000\004-csi"); lf[432]=C_decode_literal(C_heaptop,"\376B\000\000\011-password"); lf[433]=C_decode_literal(C_heaptop,"\376B\000\000\015-show-depends"); lf[434]=C_decode_literal(C_heaptop,"\376B\000\000\025-show-foreign-depends"); lf[435]=C_decode_literal(C_heaptop,"\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\000l\376\003\000\000\002\376\377\012\000\000t\376\003\000\000\002\376\377\012\000\000s\376\003\000\000\002\376\377\012\000\000p\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\000v\376\003\000\000\002\376\377\012\000\000i\376\003\000\000\002\376\377\012\000\000u\376\003\000\000\002\376\377\012\000\000D\376\377\016"); lf[436]=C_h_intern(&lf[436],16,"\003sysstring->list"); lf[437]=C_h_intern(&lf[437],9,"substring"); lf[438]=C_decode_literal(C_heaptop,"\376B\000\000\005setup"); lf[439]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[440]=C_h_intern(&lf[440],18,"pathname-directory"); lf[441]=C_h_intern(&lf[441],18,"pathname-extension"); lf[442]=C_decode_literal(C_heaptop,"\376B\000\000\002-h"); lf[443]=C_decode_literal(C_heaptop,"\376B\000\000\006--help"); lf[444]=C_decode_literal(C_heaptop,"\376B\000\000\012http_proxy"); lf[445]=C_h_intern(&lf[445],7,"irregex"); lf[446]=C_decode_literal(C_heaptop,"\376B\000\000\014([^:]+):(.+)"); lf[447]=C_h_intern(&lf[447],22,"command-line-arguments"); lf[448]=C_h_intern(&lf[448],17,"register-feature!"); lf[449]=C_h_intern(&lf[449],15,"chicken-install"); lf[450]=C_h_intern(&lf[450],14,"\000cross-chicken"); lf[451]=C_decode_literal(C_heaptop,"\376B\000\000\003bin"); lf[452]=C_decode_literal(C_heaptop,"\376B\000\000\016CHICKEN_PREFIX"); lf[453]=C_h_intern(&lf[453],11,"\003sysrequire"); lf[454]=C_h_intern(&lf[454],9,"setup-api"); lf[455]=C_h_intern(&lf[455],14,"setup-download"); C_register_lf2(lf,456,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2369,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k4004 in k3997 in g656 in k3980 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 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 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_4006,2,av);} a=C_alloc(8); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[41]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4012,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:411: ##sys#print */ t6=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop1050 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in ... */ static void C_fcall f_5476(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_5476,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_assoc(t3,C_retrieve2(lf[78],"main#\052eggs+dirs+vers\052")); 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_mutate2(((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);}}} /* k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 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 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_4820,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4973,a[2]=((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-install.scm:546: setup-api#sudo-install */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[310]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[310]+1); av2[1]=t3; tp(2,av2);}} /* k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in ... */ 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 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_6384,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6387,a[2]=((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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7524,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:868: get-environment-variable */ t5=C_fast_retrieve(lf[223]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[444]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 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 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_6387,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_6392,a[2]=((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],tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_6392(t5,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_END_OF_LIST);} /* a5910 in a5904 in a5884 in a5847 in k5838 in k5835 in k5832 in for-each-loop1258 in a5827 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 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 *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_5911,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k2373 in k2370 in k2367 */ static void C_ccall f_2375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2375,2,av);} a=C_alloc(3); 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);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d1_toplevel(2,av2);}} /* k2376 in k2373 in k2370 in k2367 */ 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(3,c,2)))){ C_save_and_reclaim((void *)f_2378,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2381,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_posix_toplevel(2,av2);}} /* k2370 in k2367 */ 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; 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_2372,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2375,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k4874 in k4852 in k4848 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 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 t3; 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_4876,2,av);} a=C_alloc(5); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[41]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4882,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:564: ##sys#print */ t6=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[297]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5462 in k5459 in k5456 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in ... */ 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 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_5464,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5467,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:599: cleanup */ f_5568(t2);} /* k5459 in k5456 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in ... */ static void C_ccall f_5461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5461,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5464,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:598: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[348]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4868 in k4856 in k4852 in k4848 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4870,2,av);} /* chicken-install.scm:568: setup-api#shellpath */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[294]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[294]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k2769 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2771,2,av);} t2=C_mutate2(&lf[29] /* (set! main#*aliases* ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5465 in k5462 in k5459 in k5456 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5467,2,av);} /* chicken-install.scm:600: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* g350 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ static void C_fcall f_2776(C_word t0,C_word 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_2776,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2783,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:171: every */ t7=C_fast_retrieve(lf[154]);{ C_word av2[4]; av2[0]=t7; av2[1]=t3; av2[2]=*((C_word*)lf[377]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t7=t3;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_FALSE; f_2783(2,av2);}}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_2783(2,av2);}}} /* k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 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 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_4847,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4850,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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(t2)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4915,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:557: open-output-string */ t5=C_fast_retrieve(lf[46]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[306]; f_4850(2,av2);}}} /* scan in k3239 in main#check-dependency in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_fcall f_3250(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_3250,5,t0,t1,t2,t3,t4);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ if(C_truep(t4)){ /* chicken-install.scm:255: 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:255: 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:255: 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_3272,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3282,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:260: ##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);}}} /* k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_4843,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4847,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((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); /* chicken-install.scm:555: get-prefix */ f_2527(t3,C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in ... */ static void C_ccall f_4840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_4840,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,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]=((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(t2)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4941,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:552: open-output-string */ t5=C_fast_retrieve(lf[46]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[309]; f_4843(2,av2);}}} /* k2781 in g350 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2783,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; /* Re-use our own argvector */ 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:173: broken */ t2=((C_word*)t0)[4]; f_2566(t2,((C_word*)t0)[3],((C_word*)t0)[5]);}} /* k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_ccall f_2399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2399,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2402,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_files_toplevel(2,av2);}} /* k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4817,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4820,a[2]=((C_word*)t0)[2],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:544: get-output-string */ t3=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_ccall f_2396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2396,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2399,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d13_toplevel(2,av2);}} /* k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_4814,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4817,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:544: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[311]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 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_2393,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2396,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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(3,c,2)))){ C_save_and_reclaim((void *)f_2390,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2393,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_ports_toplevel(2,av2);}} /* k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_4811,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4814,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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); /* chicken-install.scm:544: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4864 in k4856 in k4852 in k4848 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in ... */ static void C_ccall f_4866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4866,2,av);} /* chicken-install.scm:532: conc */ t2=C_fast_retrieve(lf[137]);{ C_word *av2; if(c >= 19) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(19); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[81],"main#\052csi\052"); av2[3]=lf[292]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[293]; 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)[8]; av2[11]=((C_word*)t0)[9]; av2[12]=((C_word*)t0)[10]; av2[13]=((C_word*)t0)[11]; av2[14]=((C_word*)t0)[12]; av2[15]=((C_word*)t0)[13]; av2[16]=((C_word*)t0)[14]; av2[17]=C_make_character(32); av2[18]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(19,av2);}} /* k2725 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ static void C_ccall f_2727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2727,2,av);} /* chicken-install.scm:158: append */ t2=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[22],"main#\052mappings\052"); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop299 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ static void C_fcall f_2729(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_2729,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_2754,a[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:160: g305 */ t5=((C_word*)t0)[4]; f_2685(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);}}} /* k4476 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4478,2,av);} /* chicken-install.scm:486: retrieve */ f_4250(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]);} /* k4470 in k4466 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_4472,2,av);} /* chicken-install.scm:489: yes-or-no? */ t2=C_fast_retrieve(lf[123]);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[124]; av2[4]=lf[125]; av2[5]=lf[126]; av2[6]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* main#check-dependency in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_fcall f_3208(C_word 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_3208,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_3225,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3235,a[2]=t1,a[3]=t5,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:249: ext-version */ f_3114(t6,t2);} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3241,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_3241(t7,C_eqp(lf[77],t6));} else{ t6=t5; f_3241(t6,C_SCHEME_FALSE);}}} /* k6525 in map-loop1583 in k6491 in k6485 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6527,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6502(t6,((C_word*)t0)[5],t5);} /* f8201 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f8201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8201,2,av);} /* chicken-install.scm:845: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4483 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ static void C_ccall f_4485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4485,2,av);} /* chicken-install.scm:485: print */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[145]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5979 in canonical in main#apply-mappings in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_5981,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,t1,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4883 in k4880 in k4874 in k4852 in k4848 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_4885,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4888,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:564: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[296]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4880 in k4874 in k4852 in k4848 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in ... */ static void C_ccall f_4882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4882,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4885,a[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:564: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_retrieve2(lf[26],"main#\052csc-nonfeatures\052"); av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4886 in k4883 in k4880 in k4874 in k4852 in k4848 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4888,2,av);} /* chicken-install.scm:564: get-output-string */ t2=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f8213 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_ccall f8213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8213,2,av);} /* chicken-install.scm:845: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4856 in k4852 in k4848 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in ... */ static void C_ccall f_4858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4858,2,av);} a=C_alloc(18); t2=t1; t3=(C_truep(C_retrieve2(lf[23],"main#\052deploy\052"))?lf[290]:lf[291]); t4=t3; t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_4866,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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]=t4,tmp=(C_word)a,a+=15,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4870,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:568: string-append */ t7=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[13]; av2[3]=lf[295]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k4852 in k4848 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in ... */ static void C_ccall f_4854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_4854,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,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],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((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(C_i_pairp(C_retrieve2(lf[26],"main#\052csc-nonfeatures\052")))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4876,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:564: open-output-string */ t5=C_fast_retrieve(lf[46]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[298]; f_4858(2,av2);}}} /* f8208 in k7311 in k7305 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ static void C_ccall f8208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8208,2,av);} /* chicken-install.scm:845: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6498 in k6491 in k6485 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6500,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_6430(2,av2);}} /* map-loop1583 in k6491 in k6485 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ static void C_fcall f_6502(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_6502,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_6527,a[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:889: g1589 */ 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);}}} /* k4848 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 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 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_4850,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4854,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((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(C_i_pairp(C_retrieve2(lf[25],"main#\052csc-features\052")))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4897,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:561: open-output-string */ t5=C_fast_retrieve(lf[46]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[301]; f_4854(2,av2);}}} /* k2752 in map-loop299 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ static void C_ccall f_2754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2754,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_2729(t6,((C_word*)t0)[5],t5);} /* k4082 in main#show-depends in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 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_4084,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4087,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:422: retrieve */ f_4250(t2,((C_word*)t0)[4]);} /* k4085 in k4082 in main#show-depends in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 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 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(5,c,4)))){ C_save_and_reclaim((void *)f_4087,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_i_nullp(t2); t4=(C_truep(t3)?lf[97]:C_i_car(t2)); t5=t4; t6=*((C_word*)lf[98]+1); t7=*((C_word*)lf[98]+1); t8=C_i_check_port_2(*((C_word*)lf[98]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[99]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4096,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=t6,tmp=(C_word)a,a+=5,tmp); t10=C_eqp(t5,lf[97]); if(C_truep(t10)){ /* chicken-install.scm:423: ##sys#print */ t11=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t11; av2[1]=t9; av2[2]=lf[108]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[98]+1); ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ t11=C_eqp(t5,lf[109]); if(C_truep(t11)){ /* chicken-install.scm:423: ##sys#print */ t12=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t12; av2[1]=t9; av2[2]=lf[110]; av2[3]=C_SCHEME_FALSE; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} else{ t12=C_SCHEME_UNDEFINED; /* chicken-install.scm:423: ##sys#print */ t13=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t13; av2[1]=t9; av2[2]=t12; av2[3]=C_SCHEME_FALSE; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}}}} /* main#show-depends in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_fcall f_4080(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_4080,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4084,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:421: print */ t5=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=lf[112]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6548 in k6542 in k6485 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ 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 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_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); t3=C_i_length(((C_word*)t0)[5]); /* chicken-install.scm:885: ##sys#print */ t4=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 in ... */ static void C_fcall f_4607(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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,0,4)))){ C_save_and_reclaim_args((void *)trf_4607,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_4617,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_assoc(t4,C_retrieve2(lf[78],"main#\052eggs+dirs+vers\052")); if(C_truep(t6)){ t7=t5; t8=t6; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4272,a[2]=t8,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:448: delete */ t10=C_fast_retrieve(lf[165]);{ C_word av2[5]; av2[0]=t10; av2[1]=t9; av2[2]=t8; av2[3]=C_retrieve2(lf[78],"main#\052eggs+dirs+vers\052"); av2[4]=*((C_word*)lf[166]+1); ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t7=C_i_pairp(t4); t8=(C_truep(t7)?C_u_i_car(t4):t4); t9=t8; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4281,a[2]=t9,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t11=t10; t12=t4; t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3982,a[2]=t12,a[3]=t11,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t12))){ t14=C_u_i_car(t12); /* chicken-install.scm:406: string->symbol */ t15=*((C_word*)lf[143]+1);{ C_word av2[3]; av2[0]=t15; av2[1]=t13; av2[2]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} else{ /* chicken-install.scm:406: string->symbol */ t14=*((C_word*)lf[143]+1);{ C_word av2[3]; av2[0]=t14; av2[1]=t13; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t14+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);}}} /* k6557 in k6554 in k6551 in k6548 in k6542 in k6485 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 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,4)))){ C_save_and_reclaim((void *)f_6559,2,av);} /* chicken-install.scm:884: yes-or-no? */ t2=C_fast_retrieve(lf[123]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[126]; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6551 in k6548 in k6542 in k6485 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_6553,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6556,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:885: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[356]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6554 in k6551 in k6548 in k6542 in k6485 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ 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); /* chicken-install.scm:885: get-output-string */ t3=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4615 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 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 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_4617,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4607(t3,((C_word*)t0)[4],t2);} /* k6542 in k6485 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in ... */ static void C_ccall f_6544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_6544,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[41]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6550,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); /* chicken-install.scm:885: ##sys#print */ t6=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[357]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* fail in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in ... */ static void C_fcall f_4633(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_4633,2,t0,t1);} /* chicken-install.scm:510: error */ t2=*((C_word*)lf[70]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[150]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k6593 in map-loop1614 in k6570 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 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 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_6595,2,av);} a=C_alloc(9); t2=C_a_i_list2(&a,2,lf[366],lf[367]); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,t1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6767 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ 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 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_6769,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6773,a[2]=((C_word*)t0)[2],a[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]); /* chicken-install.scm:949: string->symbol */ t4=*((C_word*)lf[143]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4297 in k4294 in a4291 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_4299,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[78],"main#\052eggs+dirs+vers\052")); t4=C_mutate2(&lf[78] /* (set! main#*eggs+dirs+vers* ...) */,t3); t5=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k4294 in a4291 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in ... */ static void C_ccall f_4296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4296,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4299,a[2]=((C_word*)t0)[2],a[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: print */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[194]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[195]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k6580 in k6570 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in ... */ static void C_ccall f_6582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6582,2,av);} t2=C_mutate2(&lf[78] /* (set! main#*eggs+dirs+vers* ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_6430(2,av2);}} /* a4291 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 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=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_4292,4,av);} a=C_alloc(9); t4=t2; t5=t3; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4296,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=C_i_not(t4); if(C_truep(t7)){ if(C_truep(t7)){ /* chicken-install.scm:455: error */ t8=*((C_word*)lf[70]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; av2[2]=lf[196]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t8=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_4296(2,av2);}}} else{ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4323,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:454: directory */ t9=C_fast_retrieve(lf[197]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} /* loop in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 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=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(8,c,4)))){ C_save_and_reclaim((void *)f_4655,3,av);} a=C_alloc(8); if(C_truep(C_i_symbolp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4665,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:515: feature? */ t4=C_fast_retrieve(lf[152]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ if(C_truep(C_i_listp(t2))){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4690,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],tmp=(C_word)a,a+=8,tmp); t4=C_i_car(t2); t5=C_eqp(lf[157],t4); if(C_truep(t5)){ t6=t2; t7=C_u_i_cdr(t6); t8=t3; f_4690(t8,C_i_pairp(t7));} else{ t6=t3; f_4690(t6,C_SCHEME_FALSE);}} else{ t3=C_i_cadr(((C_word*)t0)[4]); /* chicken-install.scm:517: error */ t4=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=lf[158]; av2[3]=((C_word*)t0)[5]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}} /* k6570 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 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 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(18,c,3)))){ C_save_and_reclaim((void *)f_6572,2,av);} a=C_alloc(18); if(C_truep(C_i_pairp(t1))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6582,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6602,a[2]=t2,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_6604,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_6604(t11,t7,t1);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6639,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:902: print */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[368]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k4663 in loop in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4665,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* chicken-install.scm:515: fail */ t2=((C_word*)t0)[3]; f_4633(t2,((C_word*)t0)[2]);}} /* k4688 in loop in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_fcall f_4690(C_word t0,C_word t1){ C_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(4,0,4)))){ C_save_and_reclaim_args((void *)trf_4690,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4703,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]); /* chicken-install.scm:519: loop */ t4=((C_word*)((C_word*)t0)[5])[1];{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; f_4655(3,av2);}} else{ t2=((C_word*)t0)[4]; t3=C_u_i_car(t2); t4=C_eqp(lf[153],t3); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4719,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t6=((C_word*)t0)[4]; t7=C_u_i_cdr(t6); /* chicken-install.scm:521: every */ t8=C_fast_retrieve(lf[154]);{ C_word av2[4]; av2[0]=t8; av2[1]=t5; av2[2]=((C_word*)((C_word*)t0)[5])[1]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t5=((C_word*)t0)[4]; t6=C_u_i_car(t5); t7=C_eqp(lf[77],t6); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4743,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t9=((C_word*)t0)[4]; t10=C_u_i_cdr(t9); /* chicken-install.scm:523: any */ t11=C_fast_retrieve(lf[155]);{ C_word av2[4]; av2[0]=t11; av2[1]=t8; av2[2]=((C_word*)((C_word*)t0)[5])[1]; av2[3]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ t8=C_i_cadr(((C_word*)t0)[6]); /* chicken-install.scm:524: error */ t9=*((C_word*)lf[70]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=((C_word*)t0)[2]; av2[2]=lf[156]; av2[3]=((C_word*)t0)[7]; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}}}} /* k5553 in a5550 in k5537 in k5534 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in ... */ static void C_ccall f_5555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5555,2,av);} /* chicken-install.scm:678: delete-file* */ t2=C_fast_retrieve(lf[323]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5550 in k5537 in k5534 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 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=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_5551,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5555,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:677: print* */ t5=*((C_word*)lf[245]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=lf[324]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k4453 in k4409 in k4406 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4455,2,av);} /* chicken-install.scm:494: print */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[119]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7135 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f_7137(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_7137,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7141,a[2]=((C_word*)t0)[2],a[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]); /* chicken-install.scm:1016: read-file */ t4=C_fast_retrieve(lf[363]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7109 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ 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 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,3)))){ C_save_and_reclaim((void *)f_7111,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); /* chicken-install.scm:1013: loop */ t7=((C_word*)((C_word*)t0)[4])[1]; f_6392(t7,((C_word*)t0)[5],t6,((C_word*)((C_word*)t0)[6])[1]);} /* k5540 in k5537 in k5534 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5542,2,av);} /* chicken-install.scm:679: newline */ t2=*((C_word*)lf[236]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4466 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in ... */ static void C_ccall f_4468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_4468,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); /* chicken-install.scm:492: setup-api#abort-setup */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[127]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[127]+1); av2[1]=t3; tp(2,av2);}} /* k3719 in main#with-default-sources in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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; 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_3721,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_3726,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_3726(t5,((C_word*)t0)[3],t1);} /* trying-sources in k3719 in main#with-default-sources in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 in ... */ static void C_fcall f_3726(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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(10,0,4)))){ C_save_and_reclaim_args((void *)trf_3726,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_nullp(t2))){ t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3738,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:348: proc */ t4=((C_word*)t0)[2];{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=C_SCHEME_FALSE; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} else{ t3=C_i_car(t2); t4=t3; if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3760,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t4,tmp=(C_word)a,a+=7,tmp); t6=C_i_assq(lf[92],t4); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3806,a[2]=t5,tmp=(C_word)a,a+=3,tmp); if(C_truep(t6)){ t8=C_i_cadr(t6); /* chicken-install.scm:357: resolve-location */ f_2973(t5,t8);} else{ /* chicken-install.scm:359: error */ t8=*((C_word*)lf[70]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=lf[93]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} else{ t5=t2; t6=C_u_i_cdr(t5); /* chicken-install.scm:368: trying-sources */ t10=t1; t11=t6; t1=t10; t2=t11; goto loop;}}} /* k2367 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2369,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2372,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k5573 in main#cleanup in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5575,2,av);} if(C_truep(t1)){ /* chicken-install.scm:684: setup-api#remove-directory */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[203]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k4270 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4272,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_mutate2(&lf[78] /* (set! main#*eggs+dirs+vers* ...) */,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 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 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(4,c,5)))){ C_save_and_reclaim((void *)f_4286,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_3822,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:371: with-default-sources */ f_3717(t1,t4);} /* a3704 in a3675 in a3582 in a3836 in a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ 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 *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_3705,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_3711,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:317: k555 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a3737 in trying-sources in k3719 in main#with-default-sources in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ 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 *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_3738,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3742,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3747,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:350: with-output-to-port */ t4=C_fast_retrieve(lf[87]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=*((C_word*)lf[88]+1); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_4281,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4286,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_4292,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:450: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5510 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5512,2,av);} /* chicken-install.scm:592: reverse */ t2=*((C_word*)lf[113]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* same? in main#apply-mappings in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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=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_6001,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6021,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:733: canonical */ f_5967(t4,t2);} /* k5514 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5516,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_4988(t3,t2);} /* a5517 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ 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 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_5518,3,av);} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); /* chicken-install.scm:588: ext-version */ f_3114(t1,t4);} else{ t3=t2; /* chicken-install.scm:588: ext-version */ f_3114(t1,t3);}} /* a3710 in a3704 in a3675 in a3582 in a3836 in a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_ccall f_3711(C_word c,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_3711,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* main#with-default-sources in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_fcall f_3717(C_word t1,C_word t2){ C_word tmp; C_word t3; 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,2)))){ C_save_and_reclaim_args((void *)trf_3717,2,t1,t2);} a=C_alloc(14); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3721,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=t3; t5=(C_truep(C_retrieve2(lf[14],"main#\052default-location\052"))?C_retrieve2(lf[15],"main#\052default-transport\052"):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3019,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3022,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t8=C_eqp(C_retrieve2(lf[15],"main#\052default-transport\052"),lf[89]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3039,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:198: absolute-pathname? */ t10=C_fast_retrieve(lf[95]);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=C_retrieve2(lf[14],"main#\052default-location\052"); ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t9=t7; f_3022(t9,C_SCHEME_FALSE);}} else{ t6=C_retrieve2(lf[13],"main#\052default-sources\052"); t7=t4;{ C_word av2[2]; av2[0]=t7; av2[1]=C_retrieve2(lf[13],"main#\052default-sources\052"); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k3761 in k3758 in trying-sources in k3719 in main#with-default-sources in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in ... */ static void C_fcall f_3763(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_3763,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3768,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:362: proc */ t4=((C_word*)t0)[4];{ C_word av2[5]; av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=t2; av2[3]=((C_word*)t0)[6]; av2[4]=t3; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k7603 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7605,2,av);} /* chicken-install.scm:315: setup-api#shellpath */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[294]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[294]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k3758 in trying-sources in k3719 in main#with-default-sources in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_3760,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3763,a[2]=((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_assq(lf[90],((C_word*)t0)[6]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3792,a[2]=t3,tmp=(C_word)a,a+=3,tmp); if(C_truep(t4)){ t6=t3; f_3763(t6,C_i_cadr(t4));} else{ /* chicken-install.scm:361: error */ t6=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=lf[91]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k7607 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_ccall f_7609(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7609,2,av);} /* chicken-install.scm:315: make-pathname */ t2=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[4],"main#\052program-path\052"); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5534 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in ... */ static void C_ccall f_5536(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5536,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5539,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:674: print* */ t3=*((C_word*)lf[245]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[329]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6738 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f_6740(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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,3)))){ C_save_and_reclaim((void *)f_6740,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); t3=C_mutate2(&lf[14] /* (set! main#*default-location* ...) */,t2); t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); /* chicken-install.scm:946: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_6392(t7,((C_word*)t0)[4],t6,((C_word*)((C_word*)t0)[5])[1]);} /* k5537 in k5534 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in ... */ static void C_ccall f_5539(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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(38,c,6)))){ C_save_and_reclaim((void *)f_5539,2,av);} a=C_alloc(38); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5542,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_a_i_list(&a,2,lf[316],lf[155]); t4=C_a_i_list(&a,5,lf[77],lf[317],lf[318],lf[319],lf[320]); t5=C_a_i_list(&a,4,lf[321],t3,lf[322],t4); t6=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5551,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:675: find-files */ t7=C_fast_retrieve(lf[325]);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t7; av2[1]=t2; av2[2]=lf[326]; av2[3]=lf[327]; av2[4]=t5; av2[5]=lf[328]; av2[6]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(7,av2);}} /* a3767 in k3761 in k3758 in trying-sources in k3719 in main#with-default-sources in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 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 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(0,c,2)))){ C_save_and_reclaim((void *)f_3768,2,av);} t2=C_eqp(lf[89],((C_word*)t0)[2]); if(C_truep(t2)){ t3=C_i_cdr(((C_word*)t0)[3]); /* chicken-install.scm:367: trying-sources */ t4=((C_word*)((C_word*)t0)[4])[1]; f_3726(t4,t1,t3);} else{ t3=C_i_set_car(((C_word*)t0)[3],C_SCHEME_FALSE); t4=C_i_cdr(((C_word*)t0)[3]); /* chicken-install.scm:367: trying-sources */ t5=((C_word*)((C_word*)t0)[4])[1]; f_3726(t5,t1,t4);}} /* k6015 in k6019 in same? in main#apply-mappings in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ static void C_ccall f_6017(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6017,2,av);} t2=C_i_car(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_equalp(((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3740 in a3737 in trying-sources in k3719 in main#with-default-sources in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3742,2,av);} /* chicken-install.scm:354: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3374 in k3361 in k3408 in k3332 in k3329 in k3239 in main#check-dependency in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in ... */ static void C_ccall f_3376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3376,2,av);} /* chicken-install.scm:279: error */ t2=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6041 in a6038 in main#apply-mappings in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 in ... */ static void C_ccall f_6043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_6043,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[57]); t9=C_i_cdr(t3); t10=C_i_check_list_2(t9,lf[115]); 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_6062,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_6062(t14,t2,t9);} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list1(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a3746 in a3737 in trying-sources in k3719 in main#with-default-sources in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 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 *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_3747,2,av);} /* chicken-install.scm:352: print */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=lf[85]; av2[3]=lf[86]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a6038 in main#apply-mappings in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_ccall f_6039(C_word c,C_word *av){ C_word tmp; C_word 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_6039,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6043,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6102,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:738: find */ t5=C_fast_retrieve(lf[211]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_retrieve2(lf[22],"main#\052mappings\052"); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k6708 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f_6710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_6710,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* chicken-install.scm:939: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6392(t4,((C_word*)t0)[4],t3,((C_word*)((C_word*)t0)[5])[1]);} /* k6035 in main#apply-mappings in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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);} /* chicken-install.scm:735: delete-duplicates */ t2=C_fast_retrieve(lf[210]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6028 in k6022 in main#apply-mappings in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 in ... */ static void C_ccall f_6030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6030,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* chicken-install.scm:745: print */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[207]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[208]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k5751 in k5732 in a5710 in k5698 in k5695 in a5689 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in ... */ 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(0,c,3)))){ C_save_and_reclaim((void *)f_5753,2,av);} /* chicken-install.scm:713: append */ t2=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop1349 in k5732 in a5710 in k5698 in k5695 in a5689 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in ... */ static void C_fcall f_5755(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_5755,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:715: g1355 */ f_5739(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_mutate2(((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);}}} /* main#cleanup in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_fcall f_5568(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_5568,1,t1);} a=C_alloc(3); if(C_truep(C_retrieve2(lf[5],"main#\052keep\052"))){ 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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5575,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:683: setup-download#temporary-directory */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[204]); C_word av2[2]; av2[0]=*((C_word*)lf[204]+1); av2[1]=t2; tp(2,av2);}}} /* k4406 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in ... */ static void C_ccall f_4408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4408,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4411,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:493: unzip1 */ t3=C_fast_retrieve(lf[122]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ static void C_ccall f_4402(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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,3)))){ C_save_and_reclaim((void *)f_4402,2,av);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4408,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[7],"main#\052force\052"); if(C_truep(C_retrieve2(lf[7],"main#\052force\052"))){ t4=C_retrieve2(lf[7],"main#\052force\052"); t5=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_retrieve2(lf[7],"main#\052force\052"); f_4408(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4468,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3863,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=C_i_car(((C_word*)t0)[4]); t8=C_a_i_list3(&a,3,lf[129],t7,lf[130]); t9=t8; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3871,a[2]=t6,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3873,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:386: filter-map */ t12=C_fast_retrieve(lf[144]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t12; av2[1]=t10; av2[2]=t11; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_4408(2,av2);}}} /* k2690 in k2687 in g305 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in ... */ static void C_ccall f_2692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2692,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2697,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_2703,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:163: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a2696 in k2690 in k2687 in g305 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in ... */ 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; 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_2697,2,av);} /* chicken-install.scm:163: split-at */ t2=C_fast_retrieve(lf[374]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 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 t3; 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(20,c,4)))){ C_save_and_reclaim((void *)f_5596,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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5599,a[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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5823,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5828,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5943,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:692: ##sys#dynamic-wind */ t10=*((C_word*)lf[256]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5599,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5602,a[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:704: print */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[249]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6085 in map-loop1435 in k6041 in a6038 in main#apply-mappings in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 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 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_6087,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6062(t6,((C_word*)t0)[5],t5);} /* k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_5590,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5593,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:690: make-pathname */ t4=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_retrieve2(lf[0],"main#constant159"); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in ... */ 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 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_5593,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5596,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:691: print */ t4=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[257]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3389 in k3361 in k3408 in k3332 in k3329 in k3239 in main#check-dependency in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3391,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3395,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:287: ->string */ t5=C_fast_retrieve(lf[57]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k4417 in for-each-loop862 in k4412 in k4409 in k4406 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in ... */ static void C_ccall f_4419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4419,2,av);} /* chicken-install.scm:498: setup-api#remove-extension */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[116]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4412 in k4409 in k4406 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in ... */ static void C_ccall f_4414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_4414,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4425,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|2,a[1]=(C_word)f_4430,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_4430(t6,t2,((C_word*)t0)[3]);} /* k3790 in k3758 in trying-sources in k3719 in main#with-default-sources in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3792,2,av);} t2=((C_word*)t0)[2]; f_3763(t2,C_i_cadr(t1));} /* k4409 in k4406 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in ... */ static void C_ccall f_4411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_4411,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4414,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_4455,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:494: string-intersperse */ t5=C_fast_retrieve(lf[120]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[121]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7414 in k7397 in k7480 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ static void C_fcall f_7416(C_word t0,C_word 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_7416,2,t0,t1);} a=C_alloc(9); t2=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[2],t1),C_retrieve2(lf[78],"main#\052eggs+dirs+vers\052")); t3=C_mutate2(&lf[78] /* (set! main#*eggs+dirs+vers* ...) */,t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); t6=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[4])[1]); /* chicken-install.scm:1072: loop */ t7=((C_word*)((C_word*)t0)[5])[1]; f_6392(t7,((C_word*)t0)[6],t5,t6);} /* k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 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 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_5587,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5590,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:689: create-temporary-directory */ t4=C_fast_retrieve(lf[258]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a3517 in loop in k3484 in k3472 in a4373 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ 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; 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_3518,2,av);} /* chicken-install.scm:305: check-dependency */ f_3208(t1,((C_word*)t0)[2]);} /* k4423 in k4412 in k4409 in k4406 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in ... */ static void C_ccall f_4425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4425,2,av);} /* chicken-install.scm:500: retrieve */ f_4250(((C_word*)t0)[2],((C_word*)t0)[3]);} /* k3393 in k3389 in k3361 in k3408 in k3332 in k3329 in k3239 in main#check-dependency in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3395,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* chicken-install.scm:285: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7139 in k7135 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_ccall f_7141(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_7141,2,av);} t2=C_mutate2(&lf[35] /* (set! main#*override* ...) */,t1); t3=C_i_cddr(((C_word*)t0)[2]); /* chicken-install.scm:1017: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6392(t4,((C_word*)t0)[4],t3,((C_word*)((C_word*)t0)[5])[1]);} /* k6022 in main#apply-mappings in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_ccall f_6024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_6024,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6027,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_6030,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); /* chicken-install.scm:744: lset= */ t5=C_fast_retrieve(lf[209]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k6025 in k6022 in main#apply-mappings in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 in ... */ static void C_ccall f_6027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6027,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6019 in same? in main#apply-mappings in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 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 *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=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6017,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:733: canonical */ f_5967(t4,((C_word*)t0)[4]);} /* a5710 in k5698 in k5695 in a5689 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 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=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_5711,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_5720,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t11=C_i_check_list_2(t4,lf[115]); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5734,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_5789,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_5789(t16,t12,t4);} /* for-each-loop862 in k4412 in k4409 in k4406 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in ... */ static void C_fcall f_4430(C_word t0,C_word t1,C_word 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_4430,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_4440,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_4419,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:497: print */ t8=*((C_word*)lf[84]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t7; av2[2]=lf[117]; av2[3]=t6; av2[4]=lf[118]; ((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);}}} /* main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_fcall f_4250(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_4250,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4254,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:442: print */ t4=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[202]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a3523 in loop in k3484 in k3472 in a4373 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ static void C_ccall f_3524(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,4)))){ C_save_and_reclaim((void *)f_3524,4,av);} a=C_alloc(6); t4=(C_truep(t2)?C_a_i_cons(&a,2,t2,((C_word*)t0)[2]):((C_word*)t0)[2]); if(C_truep(t3)){ t5=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]); /* chicken-install.scm:306: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_3491(t6,t1,((C_word*)t0)[5],t4,t5);} else{ t5=((C_word*)t0)[3]; /* chicken-install.scm:306: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_3491(t6,t1,((C_word*)t0)[5],t4,t5);}} /* a5704 in k5698 in k5695 in a5689 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 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 *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_5705,2,av);} /* chicken-install.scm:712: ##sys#module-exports */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[242]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[242]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* k5698 in k5695 in a5689 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 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 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_5700,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5705,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5711,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:712: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4438 in for-each-loop862 in k4412 in k4409 in k4406 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4440,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4430(t3,((C_word*)t0)[4],t2);} /* k7464 in k7460 in g1787 in k7440 in k7480 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ 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,3)))){ C_save_and_reclaim((void *)f_7466,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[2],t1),((C_word*)((C_word*)t0)[3])[1]); /* chicken-install.scm:1075: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6392(t3,((C_word*)t0)[5],((C_word*)t0)[6],t2);} /* k7460 in g1787 in k7440 in k7480 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ 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,3)))){ 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_7466,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:1079: irregex-match-substring */ t4=C_fast_retrieve(lf[227]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3507 in k3503 in loop in k3484 in k3472 in a4373 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3509,2,av);} /* chicken-install.scm:302: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5732 in a5710 in k5698 in k5695 in a5689 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 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 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_5734,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_5739,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=C_i_check_list_2(((C_word*)t0)[3],lf[115]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5753,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_5755,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_5755(t13,t9,((C_word*)t0)[3]);} /* g1355 in k5732 in a5710 in k5698 in k5695 in a5689 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in ... */ static C_word C_fcall f_5739(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[244],((C_word*)t0)[2]));} /* k3503 in loop in k3484 in k3472 in a4373 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ 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; 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_3505,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3509,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:302: reverse */ t4=*((C_word*)lf[113]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* g1328 in a5710 in k5698 in k5695 in a5689 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in ... */ static C_word C_fcall f_5720(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[243],((C_word*)t0)[2]));} /* k3552 in for-each-loop507 in k3472 in a4373 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ static void C_ccall f_3554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3554,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3544(t3,((C_word*)t0)[4],t2);} /* map-loop1435 in k6041 in a6038 in main#apply-mappings in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ static void C_fcall f_6062(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_6062,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_6087,a[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:740: g1441 */ 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);}}} /* k7434 in k7427 in k7418 in k7397 in k7480 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7436,2,av);} /* chicken-install.scm:1068: make-pathname */ t2=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3020 in main#with-default-sources in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_fcall f_3022(C_word t0,C_word 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(21,0,2)))){ C_save_and_reclaim_args((void *)trf_3022,2,t0,t1);} a=C_alloc(21); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3029,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:199: current-directory */ t3=C_fast_retrieve(lf[94]);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_retrieve2(lf[14],"main#\052default-location\052"); t3=C_retrieve2(lf[14],"main#\052default-location\052"); t4=C_a_i_list(&a,2,lf[92],C_retrieve2(lf[14],"main#\052default-location\052")); t5=C_a_i_list(&a,2,lf[90],C_retrieve2(lf[15],"main#\052default-transport\052")); t6=C_a_i_list(&a,2,t4,t5); t7=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t7; av2[1]=C_a_i_list(&a,1,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k7418 in k7397 in k7480 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 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 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_7420,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7423,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7429,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:1066: absolute-pathname? */ t5=C_fast_retrieve(lf[95]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* chicken-install.scm:1069: current-directory */ t4=C_fast_retrieve(lf[94]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7421 in k7418 in k7397 in k7480 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_7423,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; f_7416(t2,C_a_i_list2(&a,2,t1,lf[439]));} /* k7427 in k7418 in k7397 in k7480 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ static void C_ccall f_7429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_7429,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_7416(t2,C_a_i_list2(&a,2,((C_word*)t0)[3],lf[439]));} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7436,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:1068: current-directory */ t3=C_fast_retrieve(lf[94]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3027 in k3020 in main#with-default-sources in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 in ... */ static void C_ccall f_3029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3029,2,av);} /* chicken-install.scm:199: make-pathname */ t2=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_retrieve2(lf[14],"main#\052default-location\052"); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4212 in for-each-loop705 in k4097 in k4094 in k4085 in k4082 in main#show-depends in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4214,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4204(t3,((C_word*)t0)[4],t2);} /* for-each-loop507 in k3472 in a4373 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ static void C_fcall f_3544(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_3544,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_3554,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:295: g508 */ t5=((C_word*)t0)[3]; f_3475(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);}}} /* k3037 in main#with-default-sources in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3039,2,av);} t2=((C_word*)t0)[2]; f_3022(t2,C_i_not(t1));} /* k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in ... */ static void C_ccall f_5035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_5035,2,av);} a=C_alloc(13); t2=t1; t3=C_i_cadr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5041,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]=t4,tmp=(C_word)a,a+=8,tmp); if(C_truep(t2)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5318,a[2]=t5,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:625: print */ t7=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[338]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_5041(2,av2);}}} /* k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in ... */ static void C_ccall f_5032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_5032,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5035,a[2]=((C_word*)t0)[2],a[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_retrieve2(lf[32],"main#\052target-extension\052"))){ if(C_truep(C_retrieve2(lf[31],"main#\052host-extension\052"))){ /* chicken-install.scm:622: create-temporary-directory */ t3=C_fast_retrieve(lf[258]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_5035(2,av2);}}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_5035(2,av2);}}} /* k7480 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_ccall f_7482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_7482,2,av);} a=C_alloc(7); if(C_truep(C_i_equalp(lf[438],t1))){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7399,a[2]=((C_word*)t0)[2],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:1059: pathname-file */ t3=C_fast_retrieve(lf[362]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7442,a[2]=((C_word*)t0)[2],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:1073: irregex-match */ t3=C_fast_retrieve(lf[229]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* main#deps in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static C_word C_fcall f_3041(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_stack_overflow_check;{} t3=C_i_assq(t1,t2); if(C_truep(t3)){ t4=C_i_cdr(t3); return((C_truep(t4)?t4:C_SCHEME_END_OF_LIST));} else{ return(C_SCHEME_END_OF_LIST);}} /* a3594 in a3588 in a3582 in a3836 in a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 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 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_3595,2,av);} a=C_alloc(5); t2=C_i_structurep(((C_word*)t0)[2],lf[167]); 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_3605,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[176],t4); t7=t5; f_3605(t7,(C_truep(t6)?C_i_memv(lf[179],t4):C_SCHEME_FALSE));} else{ t6=t5; f_3605(t6,C_SCHEME_FALSE);}} /* k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in ... */ static void C_fcall f_5026(C_word t0,C_word t1){ C_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_5026,2,t0,t1);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5029,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_truep(((C_word*)t0)[5])?C_SCHEME_FALSE:t2); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5352,a[2]=t3,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[10],"main#\052no-install\052"))){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5368,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5372,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[342]); C_word av2[4]; av2[0]=*((C_word*)lf[342]+1); av2[1]=t7; av2[2]=lf[343]; av2[3]=lf[344]; tp(4,av2);}} else{ t6=t5; f_5352(t6,C_SCHEME_FALSE);}} else{ t5=t3;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_5029(2,av2);}}} /* k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in ... */ static void C_ccall f_5029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_5029,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5032,a[2]=((C_word*)t0)[2],a[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]); t4=C_i_caddr(((C_word*)t0)[2]); /* chicken-install.scm:619: print */ t5=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t2; av2[2]=lf[339]; av2[3]=t3; av2[4]=C_make_character(58); av2[5]=t4; av2[6]=lf[340]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} /* k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 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 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_5021,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5022,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|4,a[1]=(C_word)f_5412,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:670: iota */ t5=C_fast_retrieve(lf[345]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[6]; av2[4]=C_fix(-1); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in ... */ static void C_fcall f_5022(C_word t0,C_word 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(12,0,3)))){ C_save_and_reclaim_args((void *)trf_5022,4,t0,t1,t2,t3);} a=C_alloc(12); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5026,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[3])[1]))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5391,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5393,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:606: find */ t7=C_fast_retrieve(lf[211]);{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t5=t4; f_5026(t5,C_SCHEME_FALSE);}} /* k3174 in main#ext-version in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3176,2,av);} t2=C_i_member(t1,C_fast_retrieve(lf[66])); t3=((C_word*)t0)[2]; f_3124(t3,(C_truep(t2)?t2:C_i_member(t1,C_fast_retrieve(lf[67]))));} /* k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ static void C_fcall f_4988(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_4988,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4991,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:590: retrieve */ f_4250(t2,((C_word*)((C_word*)t0)[3])[1]);} /* k3576 in a3836 in a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3578,2,av);} /* chicken-install.scm:317: g559 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* map-loop1322 in a5710 in k5698 in k5695 in a5689 in k5600 in k5597 in k5594 in k5591 in k5588 in k5585 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in ... */ static void C_fcall f_5789(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_5789,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:714: g1328 */ f_5720(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_mutate2(((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);}}} /* k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_ccall f_3572(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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(19,c,4)))){ C_save_and_reclaim((void *)f_3572,2,av);} a=C_alloc(19); t2=C_mutate2(&lf[81] /* (set! main#*csi* ...) */,t1); t3=C_mutate2(&lf[82] /* (set! main#with-default-sources ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3717,tmp=(C_word)a,a+=2,tmp)); t4=C_mutate2(&lf[96] /* (set! main#show-depends ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4080,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate2(&lf[111] /* (set! main#retrieve ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4250,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate2(&lf[106] /* (set! main#cleanup ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5568,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate2(&lf[147] /* (set! main#apply-mappings ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5964,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate2(&lf[213] /* (set! main#$system ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6170,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate2(&lf[226] /* (set! main#setup-proxy ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6329,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate2(&lf[231] /* (set! main#info->egg ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6365,tmp=(C_word)a,a+=2,tmp)); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7527,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1083: register-feature! */ t12=C_fast_retrieve(lf[448]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t11; av2[2]=lf[449]; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} /* k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 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 t4; 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_4973,2,av);} a=C_alloc(11); t2=(C_truep(t1)?lf[282]:lf[283]); t3=t2; t4=(C_truep(C_retrieve2(lf[5],"main#\052keep\052"))?lf[284]:lf[285]); t5=t4; t6=(C_truep(C_retrieve2(lf[10],"main#\052no-install\052"))?(C_truep(((C_word*)t0)[2])?lf[286]:lf[287]):lf[286]); t7=t6; t8=(C_truep(C_retrieve2(lf[31],"main#\052host-extension\052"))?lf[288]:lf[289]); t9=t8; t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4840,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]=t5,a[8]=t7,a[9]=t9,a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); /* chicken-install.scm:550: get-prefix */ f_2527(t10,C_SCHEME_END_OF_LIST);} /* k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in ... */ 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 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_5049,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5054,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5060,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5251,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:635: dynamic-wind */ t6=C_fast_retrieve(lf[331]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=((C_word*)t0)[6]; av2[2]=t3; av2[3]=t4; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* a3588 in a3582 in a3836 in a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 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=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_3589,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3595,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:317: k555 */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in ... */ static void C_ccall f_5046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_5046,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5049,a[2]=((C_word*)t0)[2],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:634: current-directory */ t3=C_fast_retrieve(lf[94]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7250 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 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 t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7252,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); t3=C_mutate2(&lf[12] /* (set! main#*password* ...) */,t2); t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); /* chicken-install.scm:1040: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_6392(t7,((C_word*)t0)[4],t6,((C_word*)((C_word*)t0)[5])[1]);} /* k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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(34,c,4)))){ C_save_and_reclaim((void *)f_5041,2,av);} a=C_alloc(34); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5042,a[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_5258,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); t4=(C_truep(C_retrieve2(lf[32],"main#\052target-extension\052"))?C_retrieve2(lf[31],"main#\052host-extension\052"):C_SCHEME_FALSE); if(C_truep(t4)){ 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=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|5,a[1]=(C_word)f_5294,a[2]=t10,a[3]=t12,a[4]=t6,a[5]=t8,tmp=(C_word)a,a+=6,tmp); t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5301,a[2]=t2,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5307,a[2]=t6,a[3]=t8,a[4]=t10,a[5]=t12,tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:661: ##sys#dynamic-wind */ t16=*((C_word*)lf[256]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t16; av2[1]=t3; av2[2]=t13; av2[3]=t14; av2[4]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}} else{ /* chicken-install.scm:664: setup */ t5=t2; f_5042(t5,t3,((C_word*)t0)[7]);}} /* setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in ... */ static void C_fcall f_5042(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_5042,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5046,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:633: print */ t4=*((C_word*)lf[84]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=lf[332]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 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_4254,2,av);} a=C_alloc(8); t2=((C_word*)t0)[2]; t3=C_i_check_list_2(t2,lf[100]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4333,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_4607,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_4607(t8,t4,t2);} /* a3582 in a3836 in a3821 in a4285 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in ... */ 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=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,3)))){ C_save_and_reclaim((void *)f_3583,3,av);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3589,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3676,a[2]=((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:317: with-exception-handler */ t5=C_fast_retrieve(lf[191]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4962 in k4945 in k4939 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4964,2,av);} if(C_truep(C_retrieve2(lf[17],"main#\052windows-shell\052"))){ /* chicken-install.scm:528: string-translate */ t2=C_fast_retrieve(lf[303]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* chicken-install.scm:552: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k4958 in k4945 in k4939 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4960,2,av);} /* chicken-install.scm:552: ##sys#print */ t2=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3361 in k3408 in k3332 in k3329 in k3239 in main#check-dependency in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in ... */ 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 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_3363,2,av);} a=C_alloc(4); if(C_truep(C_u_i_string_equal_p(lf[69],t1))){ if(C_truep(C_retrieve2(lf[7],"main#\052force\052"))){ /* chicken-install.scm:278: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_3376,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* chicken-install.scm:280: string-append */ t4=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[72]; av2[3]=t3; av2[4]=lf[73]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3391,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:287: ->string */ t5=C_fast_retrieve(lf[57]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* g1787 in k7440 in k7480 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ static void C_fcall f_7446(C_word 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(7,0,3)))){ C_save_and_reclaim_args((void *)trf_7446,3,t0,t1,t2);} a=C_alloc(7); t3=C_i_cdr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7462,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t4,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:1078: irregex-match-substring */ t6=C_fast_retrieve(lf[227]);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=C_fix(1); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k7440 in k7480 in k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in ... */ 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; 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_7442,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7446,a[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:923: g1787 */ t3=t2; f_7446(t3,((C_word*)t0)[5],t1);} 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*)((C_word*)t0)[3])[1]); /* chicken-install.scm:1081: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_6392(t5,((C_word*)t0)[5],t3,t4);}} /* k4951 in k4948 in k4945 in k4939 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4953,2,av);} /* chicken-install.scm:552: get-output-string */ t2=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4948 in k4945 in k4939 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in ... */ static void C_ccall f_4950(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4950,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4953,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:552: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[307]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3329 in k3239 in main#check-dependency in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_fcall f_3331(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_3331,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3334,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:272: ext-version */ f_3114(t2,t3);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3425,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:290: warning */ t3=C_fast_retrieve(lf[75]);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=lf[76]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k3332 in k3329 in k3239 in main#check-dependency in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 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 t3; 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_3334,2,av);} a=C_alloc(8); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3410,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_3414,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_i_cadr(((C_word*)t0)[3]); /* chicken-install.scm:275: ->string */ t6=C_fast_retrieve(lf[57]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3347,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:274: ->string */ t6=C_fast_retrieve(lf[57]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k3017 in main#with-default-sources in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ C_save_and_reclaim((void *)f_3019,2,av);} a=C_alloc(21); t2=C_a_i_list(&a,2,lf[92],t1); t3=C_a_i_list(&a,2,lf[90],C_retrieve2(lf[15],"main#\052default-transport\052")); t4=C_a_i_list(&a,2,t2,t3); t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_list(&a,1,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k7224 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ 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 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,3)))){ C_save_and_reclaim((void *)f_7226,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); t3=C_mutate2(&lf[81] /* (set! main#*csi* ...) */,t2); t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); /* chicken-install.scm:1036: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_6392(t7,((C_word*)t0)[4],t6,((C_word*)((C_word*)t0)[5])[1]);} /* for-each-loop705 in k4097 in k4094 in k4085 in k4082 in main#show-depends in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in ... */ static void C_fcall f_4204(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_4204,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_4214,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:427: g706 */ t5=((C_word*)t0)[3]; f_4100(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);}}} /* k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 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 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_5009,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5012,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); /* chicken-install.scm:596: list-index */ t4=C_fast_retrieve(lf[350]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[157]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 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 t4; C_word t5; C_word 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_4997,2,av);} a=C_alloc(19); t2=t1; t3=C_u_i_length(t2); t4=C_retrieve2(lf[7],"main#\052force\052"); 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|6,a[1]=(C_word)f_5009,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t3,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_5476,a[2]=t7,a[3]=t11,a[4]=t8,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_5476(t13,t9,t2);} /* k2628 in k2625 in k2622 in k2619 in k2613 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_2630,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2633,a[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:146: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[132]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[132]+1); av2[1]=t2; av2[2]=C_make_character(41); av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* k2631 in k2628 in k2625 in k2622 in k2619 in k2613 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in ... */ static void C_ccall f_2633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2633,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2636,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:146: get-output-string */ t3=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2634 in k2631 in k2628 in k2625 in k2622 in k2619 in k2613 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in ... */ static void C_ccall f_2636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2636,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* chicken-install.scm:145: error */ t3=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4991,2,av);} a=C_alloc(7); if(C_truep(C_retrieve2(lf[9],"main#\052retrieve-only\052"))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_4997,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5512,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:592: topological-sort */ t4=C_fast_retrieve(lf[351]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_retrieve2(lf[79],"main#\052dependencies\052"); av2[3]=*((C_word*)lf[352]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* a5053 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 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 *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_5054,2,av);} /* chicken-install.scm:637: change-directory */ t2=C_fast_retrieve(lf[268]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3301 in a3281 in scan in k3239 in main#check-dependency in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ static void C_fcall f_3303(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_3303,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:263: scan */ t3=((C_word*)((C_word*)t0)[4])[1]; f_3250(t3,((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[2]);} else{ t3=((C_word*)t0)[3]; /* chicken-install.scm:263: scan */ t4=((C_word*)((C_word*)t0)[4])[1]; f_3250(t4,((C_word*)t0)[5],((C_word*)t0)[6],t1,t3);}} /* k3058 in k6901 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3060,2,av);} a=C_alloc(6); t2=t1; t3=(C_truep(C_retrieve2(lf[17],"main#\052windows-shell\052"))?lf[406]:lf[407]); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3066,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:214: create-directory */ t6=C_fast_retrieve(lf[412]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k3064 in k3058 in k6901 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 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,4)))){ C_save_and_reclaim((void *)f_3066,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3069,a[2]=((C_word*)t0)[2],a[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:215: print */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[410]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[411]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3067 in k3064 in k3058 in k6901 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ 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 t3; 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_3069,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3070,a[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_3091,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_3091(t6,((C_word*)t0)[5],lf[409]);} /* k2619 in k2613 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ static void C_ccall f_2621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2621,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2624,a[2]=((C_word*)t0)[2],a[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:146: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_retrieve2(lf[2],"main#constant163"); av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2622 in k2619 in k2613 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in ... */ static void C_ccall f_2624(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2624,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2627,a[2]=((C_word*)t0)[2],a[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:146: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[371]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* g412 in k3067 in k3064 in k3058 in k6901 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ static void C_fcall f_3070(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_3070,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3078,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|2,a[1]=(C_word)f_3086,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:218: make-pathname */ t5=C_fast_retrieve(lf[42]);{ 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);}} /* k2625 in k2622 in k2619 in k2613 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in ... */ static void C_ccall f_2627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2627,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2630,a[2]=((C_word*)t0)[2],a[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:146: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_fix(1); av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3076 in g412 in k3067 in k3064 in k3058 in k6901 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 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 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_3078,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3082,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:218: setup-api#shellpath */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[294]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[294]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 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 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_5076,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5082,a[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_retrieve2(lf[8],"main#\052run-tests\052"))){ if(C_truep(((C_word*)t0)[5])){ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_5082(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5168,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:649: file-exists? */ t4=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[278]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_5082(2,av2);}}} /* k3080 in k3076 in g412 in k3067 in k3064 in k3058 in k6901 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 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 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_3082,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2]; t3=C_a_i_list(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t1); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8154,a[2]=t2,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t4; av2[2]=*((C_word*)lf[41]+1); av2[3]=lf[408]; av2[4]=t3; C_apply(5,av2);}} /* k5374 in k5370 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in ... */ static void C_ccall f_5376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5376,2,av);} /* chicken-install.scm:611: yes-or-no? */ t2=C_fast_retrieve(lf[123]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[126]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3084 in g412 in k3067 in k3064 in k3058 in k6901 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3086,2,av);} /* chicken-install.scm:218: setup-api#shellpath */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[294]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[294]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k5370 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in ... */ static void C_ccall f_5372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_5372,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5376,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:615: setup-api#abort-setup */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[127]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[127]+1); av2[1]=t3; tp(2,av2);}} /* k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in ... */ static void C_ccall f_5064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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,2)))){ C_save_and_reclaim((void *)f_5064,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5067,a[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]); t4=C_i_caddr(((C_word*)t0)[2]); t5=C_i_greaterp(((C_word*)t0)[5],C_fix(1)); t6=t2; t7=t3; t8=t4; t9=t5; t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4791,a[2]=t9,a[3]=t6,a[4]=t7,a[5]=t8,tmp=(C_word)a,a+=6,tmp); t11=C_retrieve2(lf[23],"main#\052deploy\052"); if(C_truep(C_retrieve2(lf[23],"main#\052deploy\052"))){ t12=C_retrieve2(lf[23],"main#\052deploy\052"); t13=t10; f_4791(t13,(C_truep(C_retrieve2(lf[23],"main#\052deploy\052"))?lf[314]:lf[315]));} else{ if(C_truep(C_retrieve2(lf[30],"main#\052cross-chicken\052"))){ t12=C_retrieve2(lf[31],"main#\052host-extension\052"); t13=t10; f_4791(t13,(C_truep(C_retrieve2(lf[31],"main#\052host-extension\052"))?lf[315]:lf[314]));} else{ t12=t10; f_4791(t12,lf[315]);}}} /* a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 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 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(9,c,2)))){ C_save_and_reclaim((void *)f_5060,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5064,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); if(C_truep(C_retrieve2(lf[30],"main#\052cross-chicken\052"))){ t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5536,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:673: print* */ t5=*((C_word*)lf[245]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[330]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5064(2,av2);}}} /* k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in ... */ static void C_ccall f_5067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_5067,2,av);} a=C_alloc(16); t2=t1; t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5069,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5076,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); if(C_truep(C_retrieve2(lf[34],"main#\052keep-going\052"))){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5180,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5185,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:641: call-with-current-continuation */ t9=*((C_word*)lf[192]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t7; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ /* chicken-install.scm:641: tmp1127 */ t7=t5; f_5069(t7,t6);}} /* tmp1127 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in ... */ static void C_fcall f_5069(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_5069,2,t0,t1);} /* chicken-install.scm:646: $system */ f_6170(t1,((C_word*)t0)[2]);} /* for-each-loop411 in k3067 in k3064 in k3058 in k6901 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 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 *a; C_check_for_interrupt; 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); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3101,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:216: g412 */ t5=((C_word*)t0)[3]; f_3070(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);}}} /* k5366 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5368,2,av);} t2=((C_word*)t0)[2]; f_5352(t2,C_i_not(t1));} /* k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_5018,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5021,a[2]=((C_word*)t0)[2],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:602: pp */ t3=C_fast_retrieve(lf[262]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 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 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,c,4)))){ C_save_and_reclaim((void *)f_5012,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5015,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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=*((C_word*)lf[88]+1); t5=*((C_word*)lf[88]+1); t6=C_i_check_port_2(*((C_word*)lf[88]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[347]); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5458,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[7],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:598: ##sys#print */ t8=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=lf[349]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[88]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_5015(2,av2);}}} /* k3345 in k3332 in k3329 in k3239 in main#check-dependency in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3347,2,av);} /* chicken-install.scm:274: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5015,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5018,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:601: print */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[346]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3128 in k3122 in main#ext-version in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 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_3130,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3133,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3167,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:231: repo-path */ f_2460(t4);} /* k3131 in k3128 in k3122 in main#ext-version in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 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 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_3133,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3136,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3160,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:232: file-exists? */ t5=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3134 in k3131 in k3128 in k3122 in main#ext-version in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 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 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_3136,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=t1; t4=C_i_assq(lf[56],t3); if(C_truep(t4)){ t5=C_i_cadr(t4); /* chicken-install.scm:237: ->string */ t6=C_fast_retrieve(lf[57]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=lf[58]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k2613 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ static void C_ccall f_2615(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2615,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[41]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2621,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:146: ##sys#print */ t6=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[372]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5316 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in ... */ static void C_ccall f_5318(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_5318,2,av);} a=C_alloc(5); t2=(C_truep(C_retrieve2(lf[17],"main#\052windows-shell\052"))?lf[334]:lf[335]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5329,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:629: make-pathname */ t5=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=lf[337]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k5084 in k5080 in k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in ... */ static void C_ccall f_5086(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_5086,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5087,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_5098,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[34],"main#\052keep-going\052"))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5102,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5107,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:654: call-with-current-continuation */ t6=*((C_word*)lf[192]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* chicken-install.scm:654: tmp1154 */ t4=t2; f_5087(t4,t3);}} /* k5080 in k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5082,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=lf[21] /* main#*running-test* */ =C_SCHEME_TRUE;; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5086,a[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:653: current-directory */ t4=C_fast_retrieve(lf[94]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[274]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* tmp1154 in k5084 in k5080 in k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in ... */ static void C_fcall f_5087(C_word 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_5087,2,t0,t1);} a=C_alloc(12); t2=C_i_caddr(((C_word*)t0)[2]); t3=t1; t4=C_a_i_list(&a,3,C_retrieve2(lf[81],"main#\052csi\052"),((C_word*)t0)[3],t2); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8098,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[41]+1); av2[3]=lf[269]; av2[4]=t4; C_apply(5,av2);}} /* k7296 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_fcall f_7298(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_7298,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_7307,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_7381,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1050: substring */ t5=*((C_word*)lf[437]+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)f8213,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:804: print */ t5=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=lf[383]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7482,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],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* chicken-install.scm:1058: pathname-extension */ t3=C_fast_retrieve(lf[441]);{ 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);}}} /* k6410 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6412,2,av);} /* chicken-install.scm:875: print */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2662 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2664,2,av);} t2=C_mutate2(&lf[13] /* (set! main#*default-sources* ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a5300 in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in ... */ static void C_ccall f_5301(C_word c,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_5301,2,av);} /* chicken-install.scm:663: setup */ t2=((C_word*)t0)[2]; f_5042(t2,t1,((C_word*)t0)[3]);} /* a5306 in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in ... */ static void C_ccall f_5307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,1)))){ C_save_and_reclaim((void *)f_5307,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_retrieve2(lf[23],"main#\052deploy\052")); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,C_retrieve2(lf[27],"main#\052prefix\052")); t4=C_mutate2(&lf[23] /* (set! main#*deploy* ...) */,((C_word*)((C_word*)t0)[4])[1]); t5=C_mutate2(&lf[27] /* (set! main#*prefix* ...) */,((C_word*)((C_word*)t0)[5])[1]); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in ... */ 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 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_6402,2,av);} a=C_alloc(11); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6412,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:875: repo-path */ f_2460(t2);} else{ if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ t2=((C_word*)t0)[3]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5587,a[2]=t2,tmp=(C_word)a,a+=3,tmp); 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_5962,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:687: repo-path */ f_2460(t5);} else{ if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ t2=((C_word*)t0)[3]; t3=((C_word*)((C_word*)t0)[5])[1]; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6139,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:752: setup-download#gather-egg-information */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[264]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[264]+1); av2[1]=t4; av2[2]=t3; tp(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6427,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2564,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2971,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:132: chicken-home */ t6=C_fast_retrieve(lf[380]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}} /* a4373 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_ccall f_4374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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(4,c,4)))){ C_save_and_reclaim((void *)f_4374,2,av);} a=C_alloc(4); if(C_truep(C_retrieve2(lf[28],"main#\052no-install-deps\052"))){ /* chicken-install.scm:472: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_END_OF_LIST; av2[3]=C_SCHEME_END_OF_LIST; C_values(4,av2);}} else{ t2=C_i_car(((C_word*)t0)[2]); t3=t1; t4=t2; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3474,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=( /* chicken-install.scm:243: deps */ f_3041(lf[97],((C_word*)t0)[3]) ); t7=( /* chicken-install.scm:244: deps */ f_3041(lf[103],((C_word*)t0)[3]) ); if(C_truep(C_retrieve2(lf[8],"main#\052run-tests\052"))){ t8=( /* chicken-install.scm:245: deps */ f_3041(lf[114],((C_word*)t0)[3]) ); /* chicken-install.scm:242: append */ t9=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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:242: append */ t8=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}}} /* k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 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 t3; 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_6433,2,av);} a=C_alloc(6); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6443,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t3=C_retrieve2(lf[15],"main#\052default-transport\052"); t4=C_retrieve2(lf[14],"main#\052default-location\052"); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6299,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:786: with-default-sources */ f_3717(t2,t5);} else{ if(C_truep(C_retrieve2(lf[37],"main#\052show-depends\052"))){ /* chicken-install.scm:916: show-depends */ f_4080(((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1],C_a_i_list(&a,1,lf[97]));} else{ if(C_truep(C_retrieve2(lf[38],"main#\052show-foreign-depends\052"))){ /* chicken-install.scm:918: show-depends */ f_4080(((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1],C_a_i_list(&a,1,lf[109]));} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6462,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6466,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:920: reverse */ t4=*((C_word*)lf[113]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}}}} /* k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_ccall f_6430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_6430,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6433,a[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=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6433(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6469,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[15],"main#\052default-transport\052"))){ if(C_truep(C_retrieve2(lf[14],"main#\052default-location\052"))){ t4=C_SCHEME_UNDEFINED; t5=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; f_6433(2,av2);}} else{ /* chicken-install.scm:909: error */ t4=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=lf[354]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} else{ /* chicken-install.scm:906: error */ t4=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[355]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}} /* g305 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ static void C_fcall f_2685(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_2685,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2689,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_2716,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:161: list-index */ t5=C_fast_retrieve(lf[350]);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k2687 in g305 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ static void C_ccall f_2689(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2689,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2692,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2692(2,av2);}} else{ /* chicken-install.scm:162: broken */ t4=((C_word*)t0)[4]; f_2566(t4,t3,((C_word*)t0)[5]);}} /* k2678 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2680,2,av);} t2=C_mutate2(&lf[22] /* (set! main#*mappings* ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5327 in k5316 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_5329,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2]; t3=C_a_i_list(&a,3,((C_word*)t0)[3],t1,((C_word*)t0)[4]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8110,a[2]=t2,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t4; av2[2]=*((C_word*)lf[41]+1); av2[3]=lf[336]; av2[4]=t3; C_apply(5,av2);}} /* k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f_6427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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(25,c,3)))){ C_save_and_reclaim((void *)f_6427,2,av);} a=C_alloc(25); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6430,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_nullp(((C_word*)((C_word*)t0)[4])[1]))){ if(C_truep(C_retrieve2(lf[36],"main#\052reinstall\052"))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6487,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6231,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6233,tmp=(C_word)a,a+=2,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6283,a[2]=t6,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6287,a[2]=t8,tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6291,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:782: repo-path */ f_2460(t10);} else{ t4=((C_word*)((C_word*)t0)[2])[1]; if(C_truep(t4)){ t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_6430(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6572,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:892: glob */ t6=C_fast_retrieve(lf[259]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[369]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_6430(2,av2);}}} /* k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in ... */ 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 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_4395,2,av);} a=C_alloc(14); t2=C_mutate2(((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_4509,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:482: append */ t10=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2817 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2819,2,av);} /* chicken-install.scm:168: append */ t2=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[29],"main#\052aliases\052"); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_ccall f_4390(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_4390,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_4395,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:474: apply-mappings */ f_5964(t7,((C_word*)t5)[1]);} /* map-loop344 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ static void C_fcall f_2821(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_2821,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_2846,a[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:170: g350 */ t5=((C_word*)t0)[4]; f_2776(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);}}} /* f8138 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f8138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8138,2,av);} /* chicken-install.scm:845: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f8133 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f8133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8133,2,av);} /* chicken-install.scm:845: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6441 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ static void C_ccall f_6443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6443,2,av);} /* chicken-install.scm:912: display */ t2=*((C_word*)lf[265]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f8148 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f8148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8148,2,av);} /* chicken-install.scm:845: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f8143 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f8143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8143,2,av);} /* chicken-install.scm:845: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ 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 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_4515,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[79],"main#\052dependencies\052")); t4=C_mutate2(&lf[79] /* (set! main#*dependencies* ...) */,t3); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4402,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_4478,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_4485,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:485: string-intersperse */ t8=C_fast_retrieve(lf[120]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)((C_word*)t0)[6])[1]; av2[3]=lf[146]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_4402(2,av2);}}} /* map-loop829 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_4517,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_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)); if(C_truep(C_i_pairp(t4))){ t5=C_u_i_car(t4); t6=t3; f_4542(t6,t5);} else{ t5=t3; f_4542(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);}}} /* g656 in k3980 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in ... */ static void C_fcall f_3989(C_word t0,C_word t1,C_word 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_3989,3,t0,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3993,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3999,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_cadr(t2); t6=C_u_i_cdr(((C_word*)t0)[2]); t7=C_i_equalp(t5,t6); t8=t4; f_3999(t8,C_i_not(t7));} else{ t5=t4; f_3999(t5,C_SCHEME_FALSE);}} /* k3980 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3982,2,av);} a=C_alloc(4); t2=t1; t3=C_i_assq(t2,C_retrieve2(lf[35],"main#\052override\052")); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3989,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:405: g656 */ t5=t4; f_3989(t5,((C_word*)t0)[3],t3);} else{ t4=C_i_pairp(((C_word*)t0)[2]); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}}} /* k5096 in k5084 in k5080 in k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in ... */ static void C_ccall f_5098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5098,2,av);} t2=lf[21] /* main#*running-test* */ =C_SCHEME_FALSE;; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f8196 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f8196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8196,2,av);} /* chicken-install.scm:845: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f8191 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f8191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8191,2,av);} /* chicken-install.scm:845: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ 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 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,3)))){ C_save_and_reclaim((void *)f_6462,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2]; t3=t1; 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_4988,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[6],"main#\052keep-existing\052"))){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5516,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5518,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:587: remove */ t8=C_fast_retrieve(lf[353]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=((C_word*)t4)[1]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t6=t5; f_4988(t6,C_SCHEME_UNDEFINED);}} /* a6107 in a6101 in a6038 in main#apply-mappings in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ static void C_ccall f_6108(C_word c,C_word *av){ C_word tmp; C_word 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_6108,3,av);} /* chicken-install.scm:738: g1428 */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; f_6001(4,av2);}} /* k6467 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in ... */ 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; 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_6469,2,av);} if(C_truep(C_retrieve2(lf[14],"main#\052default-location\052"))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_6433(2,av2);}} else{ /* chicken-install.scm:909: error */ t2=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[354]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* a6101 in a6038 in main#apply-mappings in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 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 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_6102,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6108,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:738: find */ t5=C_fast_retrieve(lf[211]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6464 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ static void C_ccall f_6466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6466,2,av);} /* chicken-install.scm:920: apply-mappings */ f_5964(((C_word*)t0)[2],t1);} /* k2475 in main#repo-path in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_ccall f_2477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2477,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2481,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:117: open-output-string */ t4=C_fast_retrieve(lf[46]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5389 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5391,2,av);} t2=((C_word*)t0)[2]; f_5026(t2,C_i_not(t1));} /* a5392 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in ... */ 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=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_5393,3,av);} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_i_car(((C_word*)t0)[2]); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_equalp(t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t3=t2; t4=C_i_car(((C_word*)t0)[2]); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_equalp(t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k6491 in k6485 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in ... */ static void C_ccall f_6493(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_6493,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_retrieve2(lf[231],"main#info->egg"); t7=(*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); 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_6502,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_6502(t11,t7,((C_word*)t0)[4]);} else{ /* chicken-install.scm:890: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k2485 in k2479 in k2475 in main#repo-path in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 in ... */ static void C_ccall f_2487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2487,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2490,a[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:117: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_fix((C_word)C_BINARY_VERSION); av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2479 in k2475 in main#repo-path in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_2481,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[41]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2487,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:117: ##sys#print */ t6=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[45]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k3966 in a3872 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 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 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_3968,2,av);} a=C_alloc(5); t2=C_i_assq(t1,C_retrieve2(lf[35],"main#\052override\052")); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3881,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:387: g625 */ t4=t3; f_3881(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_3962,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:398: extension-information */ t8=C_fast_retrieve(lf[142]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t5; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* k3960 in k3966 in a3872 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 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 t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_3962,2,av);} t2=C_i_assq(lf[56],t1); t3=(C_truep(t2)?C_i_cadr(t2):lf[136]); t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); /* chicken-install.scm:396: conc */ t6=C_fast_retrieve(lf[137]);{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(10); } av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=lf[138]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[139]; av2[5]=t3; av2[6]=lf[140]; av2[7]=t5; av2[8]=lf[141]; av2[9]=C_make_character(10); ((C_proc)(void*)(*((C_word*)t6+1)))(10,av2);}} /* f8176 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f8176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8176,2,av);} /* chicken-install.scm:845: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f8171 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f8171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8171,2,av);} /* chicken-install.scm:845: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6485 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_ccall f_6487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_6487,2,av);} a=C_alloc(9); t2=t1; t3=C_retrieve2(lf[7],"main#\052force\052"); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6493,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_retrieve2(lf[7],"main#\052force\052"))){ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_retrieve2(lf[7],"main#\052force\052"); f_6493(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6544,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:885: open-output-string */ t6=C_fast_retrieve(lf[46]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* main#ext-version in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_fcall f_3114(C_word 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_3114,2,t1,t2);} a=C_alloc(7); t3=C_eqp(t2,lf[54]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3124,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t3)){ t5=t4; f_3124(t5,t3);} else{ t5=C_i_equalp(t2,lf[65]); if(C_truep(t5)){ t6=t4; f_3124(t6,t5);} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3176,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:224: ->string */ t7=C_fast_retrieve(lf[57]);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}} /* k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ 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 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_4509,2,av);} a=C_alloc(14); t2=C_i_check_list_2(t1,lf[115]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4515,a[2]=((C_word*)t0)[2],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_4517,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_4517(t7,t3,t1);} /* k2491 in k2488 in k2485 in k2479 in k2475 in main#repo-path in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in ... */ 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);} /* chicken-install.scm:117: make-pathname */ t2=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2488 in k2485 in k2479 in k2475 in main#repo-path in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ static void C_ccall f_2490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2490,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2493,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:117: get-output-string */ t3=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6637 in k6570 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6639,2,av);} /* chicken-install.scm:903: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f8186 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f8186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8186,2,av);} /* chicken-install.scm:845: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f8181 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f8181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8181,2,av);} /* chicken-install.scm:845: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3122 in main#ext-version in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_fcall f_3124(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_3124,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ /* chicken-install.scm:227: chicken-version */ t2=C_fast_retrieve(lf[55]);{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3130,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:230: ##sys#canonicalize-extension-path */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]); C_word av2[4]; av2[0]=*((C_word*)lf[63]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[64]; tp(4,av2);}}} /* k6627 in map-loop1614 in k6570 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ static void C_ccall f_6629(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_6629,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6604(t6,((C_word*)t0)[5],t5);} /* for-each-loop1466 in k6137 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_fcall f_6147(C_word t0,C_word t1,C_word t2){ C_word 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_6147,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_6157,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6136,a[2]=t7,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:751: cadadr */ t9=*((C_word*)lf[263]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t9+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);}}} /* k3991 in g656 in k3980 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3993,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_cadr(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5353 in k5350 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5355,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5358,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:617: cleanup */ f_5568(t2);} /* k5350 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in ... */ static void C_fcall f_5352(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_5352,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5355,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:616: print */ t3=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[341]; ((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; f_5029(2,av2);}}} /* k3997 in g656 in k3980 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in ... */ static void C_fcall f_3999(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_3999,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4006,a[2]=((C_word*)t0)[2],a[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:411: open-output-string */ t3=C_fast_retrieve(lf[46]);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* chicken-install.scm:415: print */ t2=*((C_word*)lf[84]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[201]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k2894 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2896,2,av);} t2=C_mutate2(&lf[39] /* (set! main#*hacks* ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5356 in k5353 in k5350 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in ... */ static void C_ccall f_5358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5358,2,av);} /* chicken-install.scm:618: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6876 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f_6878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6878,2,av);} /* chicken-install.scm:968: print */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6869 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6871,2,av);} /* chicken-install.scm:969: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3472 in a4373 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in ... */ 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; C_word t3; C_word t4; 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_3474,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_3475,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t5=C_retrieve2(lf[39],"main#\052hacks\052"); t6=C_i_check_list_2(C_retrieve2(lf[39],"main#\052hacks\052"),lf[100]); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3486,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_3544,a[2]=t9,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_3544(t11,t7,C_retrieve2(lf[39],"main#\052hacks\052"));} /* k4197 in k4194 in k4097 in k4094 in k4085 in k4082 in main#show-depends in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4199,2,av);} /* chicken-install.scm:439: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4194 in k4097 in k4094 in k4085 in k4082 in main#show-depends in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ 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); /* chicken-install.scm:438: cleanup */ f_5568(t2);} /* k6137 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 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 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_6139,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[100]); 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_6147,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_6147(t6,((C_word*)t0)[2],t1);} /* k6134 in for-each-loop1466 in k6137 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 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 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_6136,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* chicken-install.scm:751: pp */ t3=C_fast_retrieve(lf[262]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3099 in for-each-loop411 in k3067 in k3064 in k3058 in k6901 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ static void C_ccall f_3101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3101,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3091(t3,((C_word*)t0)[4],t2);} /* g508 in k3472 in a4373 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ static void C_fcall f_3475(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_3475,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3480,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:298: 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);}} /* k3478 in g508 in k3472 in a4373 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ 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 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_3480,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3484 in k3472 in a4373 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ static void C_ccall f_3486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_3486,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_3491,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_3491(t5,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* k4540 in map-loop829 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ static void C_fcall f_4542(C_word 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_4542,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_mutate2(((C_word *)((C_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);} /* a5148 in a5142 in a5130 in a5106 in k5084 in k5080 in k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 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; 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_5149,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* loop in k3484 in k3472 in a4373 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ static void C_fcall f_3491(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(9,0,4)))){ C_save_and_reclaim_args((void *)trf_3491,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_3505,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:302: reverse */ t6=*((C_word*)lf[113]+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=t2; t8=C_u_i_cdr(t7); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3518,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3524,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t8,tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:303: ##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);}}} /* a5142 in a5130 in a5106 in k5084 in k5080 in k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in ... */ static void C_ccall f_5143(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_5143,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_5149,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:654: k1164 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k3158 in k3131 in k3128 in k3122 in main#ext-version in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ static void C_ccall f_3160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3160,2,av);} if(C_truep(t1)){ /* chicken-install.scm:233: with-input-from-file */ t2=C_fast_retrieve(lf[59]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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[60]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_3136(2,av2);}}} /* k3165 in k3128 in k3122 in main#ext-version in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3167,2,av);} /* chicken-install.scm:231: make-pathname */ t2=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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]=lf[62]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4592 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in ... */ 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,2)))){ C_save_and_reclaim((void *)f_4594,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4584(t3,((C_word*)t0)[4],t2);} /* k4945 in k4939 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in ... */ static void C_ccall f_4947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_4947,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4950,a[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_4960,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4964,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:553: normalize-pathname */ t5=C_fast_retrieve(lf[304]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4939 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in ... */ 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 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_4941,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[41]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4947,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); /* chicken-install.scm:552: ##sys#print */ t6=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[308]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* main#resolve-location in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_fcall f_2973(C_word t1,C_word 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(0,0,2)))){ C_save_and_reclaim_args((void *)trf_2973,2,t1,t2);} t3=C_i_assoc(t2,C_retrieve2(lf[29],"main#\052aliases\052")); if(C_truep(t3)){ t4=t1; t5=C_i_cdr(t3); /* chicken-install.scm:191: resolve-location */ t7=t4; t8=t5; t1=t7; t2=t8; goto loop;} else{ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k2844 in map-loop344 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in ... */ 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 t3; 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_2846,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_2821(t6,((C_word*)t0)[5],t5);} /* k2969 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2971,2,av);} /* chicken-install.scm:132: make-pathname */ t2=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_retrieve2(lf[2],"main#constant163"); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a5136 in a5130 in a5106 in k5084 in k5080 in k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 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 *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_5137,2,av);} /* chicken-install.scm:654: tmp1154 */ t2=((C_word*)t0)[2]; f_5087(t2,t1);} /* a5130 in a5106 in k5084 in k5080 in k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 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 *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_5131,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5137,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5143,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:654: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* k6178 in k6175 in k6172 in main#$system in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 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(0,c,4)))){ C_save_and_reclaim((void *)f_6180,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* chicken-install.scm:766: error */ t3=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[214]; av2[3]=t1; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k3423 in k3329 in k3239 in main#check-dependency in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 in ... */ 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,3)))){ C_save_and_reclaim((void *)f_3425,2,av);} /* chicken-install.scm:293: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4936 in k4919 in k4913 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in ... */ static void C_ccall f_4938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4938,2,av);} if(C_truep(C_retrieve2(lf[17],"main#\052windows-shell\052"))){ /* chicken-install.scm:528: string-translate */ t2=C_fast_retrieve(lf[303]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* chicken-install.scm:557: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k4932 in k4919 in k4913 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4934,2,av);} /* chicken-install.scm:557: ##sys#print */ t2=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4560 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in ... */ static void C_ccall f_4562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4562,2,av);} /* chicken-install.scm:502: warning */ t2=C_fast_retrieve(lf[75]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in ... */ static void C_ccall f_4357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_4357,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4360,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:466: with-input-from-file */ t3=C_fast_retrieve(lf[59]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=*((C_word*)lf[60]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4562,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t3=C_u_i_car(((C_word*)t0)[2]); /* chicken-install.scm:503: string-append */ t4=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t2; av2[2]=lf[161]; av2[3]=t3; av2[4]=lf[162]; av2[5]=lf[163]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} /* k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 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 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_4351,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4357,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:465: file-exists? */ t4=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* main#$system in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_fcall f_6170(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,4)))){ C_save_and_reclaim_args((void *)trf_6170,2,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6174,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[17],"main#\052windows-shell\052"))){ /* chicken-install.scm:756: string-append */ t4=*((C_word*)lf[71]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=lf[217]; av2[3]=t2; av2[4]=lf[218]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6196,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6221,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:757: software-version */ t6=C_fast_retrieve(lf[225]);{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k6175 in k6172 in main#$system in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 in ... */ 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(4,c,2)))){ C_save_and_reclaim((void *)f_6177,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6180,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:764: system */ t3=C_fast_retrieve(lf[215]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6172 in main#$system in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6174,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6177,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:763: print */ t4=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[216]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k6600 in k6570 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6602,2,av);} /* chicken-install.scm:895: append */ t2=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_retrieve2(lf[78],"main#\052eggs+dirs+vers\052"); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4925 in k4922 in k4919 in k4913 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4927,2,av);} /* chicken-install.scm:557: get-output-string */ t2=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4919 in k4913 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in ... */ static void C_ccall f_4921(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_4921,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4924,a[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_4934,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4938,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:558: normalize-pathname */ t5=C_fast_retrieve(lf[304]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4922 in k4919 in k4913 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 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; C_check_for_interrupt; 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); /* chicken-install.scm:557: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[302]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in ... */ 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 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_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_u_i_car(((C_word*)t0)[2]); /* chicken-install.scm:469: print */ t4=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[148]; av2[3]=t3; av2[4]=lf[149]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ 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 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_4369,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4374,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_4390,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:470: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop1614 in k6570 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in ... */ static void C_fcall f_6604(C_word t0,C_word 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_6604,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_6629,a[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_6595,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:898: pathname-file */ t7=C_fast_retrieve(lf[362]);{ 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);}}} /* k2864 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in ... */ static void C_fcall f_2866(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,2)))){ C_save_and_reclaim_args((void *)trf_2866,2,t0,t1);} if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); /* chicken-install.scm:178: read-file */ t3=C_fast_retrieve(lf[363]);{ 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=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_mutate2(&lf[35] /* (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);}}} /* k2861 in k2582 in g261 in k2965 in k2562 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2863,2,av);} t2=C_mutate2(&lf[35] /* (set! main#*override* ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in ... */ static void C_ccall f_4360(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_4360,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4363,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:467: print */ t5=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[159]; av2[3]=t4; av2[4]=lf[160]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in ... */ static void C_ccall f_4363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_4363,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4366,a[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=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4633,a[2]=t4,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[30],"main#\052cross-chicken\052"))){ t6=C_SCHEME_UNDEFINED; t7=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; f_4366(2,av2);}} else{ t6=C_i_assq(lf[151],((C_word*)t0)[3]); t7=t6; if(C_truep(t7)){ t8=C_i_cadr(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_4655,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t4,tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t2; av2[2]=t8; f_4655(3,av2);}} else{ t8=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; f_4366(2,av2);}}}} /* for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ static void C_fcall f_4584(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_4584,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_4594,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[80],"main#\052checked\052")))){ 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=C_u_i_car(t6); t9=C_a_i_cons(&a,2,t8,C_retrieve2(lf[80],"main#\052checked\052")); t10=C_mutate2(&lf[80] /* (set! main#*checked* ...) */,t9); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4351,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t12=C_i_cadr(t6); t13=C_u_i_car(t6); /* chicken-install.scm:464: make-pathname */ t14=C_fast_retrieve(lf[42]);{ C_word av2[5]; av2[0]=t14; av2[1]=t11; av2[2]=t12; av2[3]=t13; av2[4]=lf[164]; ((C_proc)(void*)(*((C_word*)t14+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);}}} /* k4913 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 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 t3; 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_4915,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[41]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4921,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); /* chicken-install.scm:557: ##sys#print */ t6=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[305]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* a5106 in k5084 in k5080 in k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in ... */ static void C_ccall f_5107(C_word c,C_word *av){ C_word tmp; C_word 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_5107,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5113,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_5131,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:654: with-exception-handler */ t5=C_fast_retrieve(lf[191]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5100 in k5084 in k5080 in k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5102,2,av);} /* chicken-install.scm:654: g1168 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k6155 in for-each-loop1466 in k6137 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6157,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6147(t3,((C_word*)t0)[4],t2);} /* f8154 in k3080 in k3076 in g412 in k3067 in k3064 in k3058 in k6901 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in ... */ static void C_ccall f8154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8154,2,av);} /* chicken-install.scm:801: $system */ f_6170(((C_word*)t0)[2],t1);} /* k4179 in k4102 in g706 in k4097 in k4094 in k4085 in k4082 in main#show-depends in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4181,2,av);} if(C_truep(t1)){ /* chicken-install.scm:430: with-input-from-file */ t2=C_fast_retrieve(lf[59]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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[60]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_4107(2,av2);}}} /* f8166 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f8166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8166,2,av);} /* chicken-install.scm:845: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f8161 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in ... */ static void C_ccall f8161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8161,2,av);} /* chicken-install.scm:845: exit */ t2=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3412 in k3332 in k3329 in k3239 in main#check-dependency in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ static void C_ccall f_3414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3414,2,av);} /* chicken-install.scm:275: setup-api#version>=? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[74]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[74]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k3408 in k3332 in k3329 in k3239 in main#check-dependency in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in ... */ 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 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_3410,2,av);} a=C_alloc(4); if(C_truep(t1)){ /* chicken-install.scm:288: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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|3,a[1]=(C_word)f_3363,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:276: ->string */ t5=C_fast_retrieve(lf[57]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k6194 in main#$system in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6196,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6200,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:755: g1492 */ t3=t2; f_6200(t3,((C_word*)t0)[3],t1);} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_6174(2,av2);}}} /* k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in ... */ static void C_fcall f_6660(C_word t0,C_word t1){ C_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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_6660,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8133,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:804: print */ t4=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[383]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ if(C_truep(C_u_i_string_equal_p(((C_word*)t0)[3],lf[384]))){ t2=C_set_block_item(((C_word*)t0)[4],0,C_SCHEME_TRUE); t3=((C_word*)t0)[5]; t4=C_u_i_cdr(t3); /* chicken-install.scm:930: loop */ t5=((C_word*)((C_word*)t0)[6])[1]; f_6392(t5,((C_word*)t0)[2],t4,((C_word*)((C_word*)t0)[7])[1]);} else{ if(C_truep(C_u_i_string_equal_p(((C_word*)t0)[3],lf[385]))){ t2=lf[7] /* main#*force* */ =C_SCHEME_TRUE;; t3=((C_word*)t0)[5]; t4=C_u_i_cdr(t3); /* chicken-install.scm:933: loop */ t5=((C_word*)((C_word*)t0)[6])[1]; f_6392(t5,((C_word*)t0)[2],t4,((C_word*)((C_word*)t0)[7])[1]);} else{ t2=C_u_i_string_equal_p(((C_word*)t0)[3],lf[386]); t3=(C_truep(t2)?t2:C_u_i_string_equal_p(((C_word*)t0)[3],lf[387])); if(C_truep(t3)){ t4=lf[5] /* main#*keep* */ =C_SCHEME_TRUE;; t5=((C_word*)t0)[5]; t6=C_u_i_cdr(t5); /* chicken-install.scm:936: loop */ t7=((C_word*)((C_word*)t0)[6])[1]; f_6392(t7,((C_word*)t0)[2],t6,((C_word*)((C_word*)t0)[7])[1]);} else{ t4=C_u_i_string_equal_p(((C_word*)t0)[3],lf[388]); t5=(C_truep(t4)?t4:C_u_i_string_equal_p(((C_word*)t0)[3],lf[389])); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6710,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:938: setup-api#sudo-install */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[310]); C_word av2[3]; av2[0]=*((C_word*)lf[310]+1); av2[1]=t6; av2[2]=C_SCHEME_TRUE; tp(3,av2);}} else{ t6=C_u_i_string_equal_p(((C_word*)t0)[3],lf[390]); t7=(C_truep(t6)?t6:C_u_i_string_equal_p(((C_word*)t0)[3],lf[391])); if(C_truep(t7)){ t8=lf[9] /* main#*retrieve-only* */ =C_SCHEME_TRUE;; t9=((C_word*)t0)[5]; t10=C_u_i_cdr(t9); /* chicken-install.scm:942: loop */ t11=((C_word*)((C_word*)t0)[6])[1]; f_6392(t11,((C_word*)t0)[2],t10,((C_word*)((C_word*)t0)[7])[1]);} else{ t8=C_u_i_string_equal_p(((C_word*)t0)[3],lf[392]); t9=(C_truep(t8)?t8:C_u_i_string_equal_p(((C_word*)t0)[3],lf[393])); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6740,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); t11=((C_word*)t0)[5]; t12=C_u_i_cdr(t11); if(C_truep(C_i_pairp(t12))){ t13=t10;{ C_word av2[2]; av2[0]=t13; av2[1]=C_SCHEME_UNDEFINED; f_6740(2,av2);}} else{ t13=t10; t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8138,a[2]=t13,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:804: print */ t15=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t15; av2[1]=t14; av2[2]=lf[383]; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}} else{ t10=C_u_i_string_equal_p(((C_word*)t0)[3],lf[394]); t11=(C_truep(t10)?t10:C_u_i_string_equal_p(((C_word*)t0)[3],lf[395])); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6769,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); t13=((C_word*)t0)[5]; t14=C_u_i_cdr(t13); if(C_truep(C_i_pairp(t14))){ t15=t12;{ C_word av2[2]; av2[0]=t15; av2[1]=C_SCHEME_UNDEFINED; f_6769(2,av2);}} else{ t15=t12; t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8143,a[2]=t15,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:804: print */ t17=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t17; av2[1]=t16; av2[2]=lf[383]; ((C_proc)(void*)(*((C_word*)t17+1)))(3,av2);}}} else{ t12=C_u_i_string_equal_p(((C_word*)t0)[3],lf[396]); t13=(C_truep(t12)?t12:C_u_i_string_equal_p(((C_word*)t0)[3],lf[397])); if(C_truep(t13)){ t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6802,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); t15=((C_word*)t0)[5]; t16=C_u_i_cdr(t15); if(C_truep(C_i_pairp(t16))){ t17=t14;{ C_word av2[2]; av2[0]=t17; av2[1]=C_SCHEME_UNDEFINED; f_6802(2,av2);}} else{ t17=t14; t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8148,a[2]=t17,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:804: print */ t19=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t19; av2[1]=t18; av2[2]=lf[383]; ((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}}} else{ if(C_truep(C_u_i_string_equal_p(((C_word*)t0)[3],lf[398]))){ t14=lf[28] /* main#*no-install-deps* */ =C_SCHEME_TRUE;; t15=((C_word*)t0)[5]; t16=C_u_i_cdr(t15); /* chicken-install.scm:962: loop */ t17=((C_word*)((C_word*)t0)[6])[1]; f_6392(t17,((C_word*)t0)[2],t16,((C_word*)((C_word*)t0)[7])[1]);} else{ t14=C_u_i_string_equal_p(((C_word*)t0)[3],lf[399]); t15=(C_truep(t14)?t14:C_u_i_string_equal_p(((C_word*)t0)[3],lf[400])); if(C_truep(t15)){ t16=lf[5] /* main#*keep* */ =C_SCHEME_TRUE;; t17=lf[10] /* main#*no-install* */ =C_SCHEME_TRUE;; t18=((C_word*)t0)[5]; t19=C_u_i_cdr(t18); /* chicken-install.scm:966: loop */ t20=((C_word*)((C_word*)t0)[6])[1]; f_6392(t20,((C_word*)t0)[2],t19,((C_word*)((C_word*)t0)[7])[1]);} else{ if(C_truep(C_u_i_string_equal_p(((C_word*)t0)[3],lf[401]))){ t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6871,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6878,a[2]=t16,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:968: chicken-version */ t18=C_fast_retrieve(lf[55]);{ C_word av2[2]; av2[0]=t18; av2[1]=t17; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} else{ t16=C_u_i_string_equal_p(((C_word*)t0)[3],lf[402]); t17=(C_truep(t16)?t16:C_u_i_string_equal_p(((C_word*)t0)[3],lf[403])); if(C_truep(t17)){ t18=C_set_block_item(((C_word*)t0)[8],0,C_SCHEME_TRUE); t19=((C_word*)t0)[5]; t20=C_u_i_cdr(t19); /* chicken-install.scm:972: loop */ t21=((C_word*)((C_word*)t0)[6])[1]; f_6392(t21,((C_word*)t0)[2],t20,((C_word*)((C_word*)t0)[7])[1]);} else{ t18=C_u_i_string_equal_p(((C_word*)t0)[3],lf[404]); t19=(C_truep(t18)?t18:C_u_i_string_equal_p(((C_word*)t0)[3],lf[405])); if(C_truep(t19)){ t20=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6903,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t21=((C_word*)t0)[5]; t22=C_u_i_cdr(t21); if(C_truep(C_i_pairp(t22))){ t23=t20;{ C_word av2[2]; av2[0]=t23; av2[1]=C_SCHEME_UNDEFINED; f_6903(2,av2);}} else{ t23=t20; t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8161,a[2]=t23,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:804: print */ t25=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t25; av2[1]=t24; av2[2]=lf[383]; ((C_proc)(void*)(*((C_word*)t25+1)))(3,av2);}}} else{ if(C_truep(C_u_i_string_equal_p(lf[413],((C_word*)t0)[3]))){ t20=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6929,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); t21=((C_word*)t0)[5]; t22=C_u_i_cdr(t21); if(C_truep(C_i_pairp(t22))){ t23=t20;{ C_word av2[2]; av2[0]=t23; av2[1]=C_SCHEME_UNDEFINED; f_6929(2,av2);}} else{ t23=t20; t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8166,a[2]=t23,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:804: print */ t25=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t25; av2[1]=t24; av2[2]=lf[383]; ((C_proc)(void*)(*((C_word*)t25+1)))(3,av2);}}} else{ t20=C_u_i_string_equal_p(lf[414],((C_word*)t0)[3]); t21=(C_truep(t20)?t20:C_u_i_string_equal_p(lf[415],((C_word*)t0)[3])); if(C_truep(t21)){ t22=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6962,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); t23=((C_word*)t0)[5]; t24=C_u_i_cdr(t23); if(C_truep(C_i_pairp(t24))){ t25=t22;{ C_word av2[2]; av2[0]=t25; av2[1]=C_SCHEME_UNDEFINED; f_6962(2,av2);}} else{ t25=t22; t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8171,a[2]=t25,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:804: print */ t27=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t27; av2[1]=t26; av2[2]=lf[383]; ((C_proc)(void*)(*((C_word*)t27+1)))(3,av2);}}} else{ if(C_truep(C_u_i_string_equal_p(lf[416],((C_word*)t0)[3]))){ t22=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6996,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); t23=((C_word*)t0)[5]; t24=C_u_i_cdr(t23); if(C_truep(C_i_pairp(t24))){ t25=t22;{ C_word av2[2]; av2[0]=t25; av2[1]=C_SCHEME_UNDEFINED; f_6996(2,av2);}} else{ t25=t22; t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8176,a[2]=t25,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:804: print */ t27=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t27; av2[1]=t26; av2[2]=lf[383]; ((C_proc)(void*)(*((C_word*)t27+1)))(3,av2);}}} else{ if(C_truep(C_u_i_string_equal_p(lf[417],((C_word*)t0)[3]))){ t22=lf[8] /* main#*run-tests* */ =C_SCHEME_TRUE;; t23=((C_word*)t0)[5]; t24=C_u_i_cdr(t23); /* chicken-install.scm:993: loop */ t25=((C_word*)((C_word*)t0)[6])[1]; f_6392(t25,((C_word*)t0)[2],t24,((C_word*)((C_word*)t0)[7])[1]);} else{ if(C_truep(C_u_i_string_equal_p(lf[418],((C_word*)t0)[3]))){ t22=lf[32] /* main#*target-extension* */ =C_SCHEME_FALSE;; t23=((C_word*)t0)[5]; t24=C_u_i_cdr(t23); /* chicken-install.scm:996: loop */ t25=((C_word*)((C_word*)t0)[6])[1]; f_6392(t25,((C_word*)t0)[2],t24,((C_word*)((C_word*)t0)[7])[1]);} else{ if(C_truep(C_u_i_string_equal_p(lf[419],((C_word*)t0)[3]))){ t22=lf[31] /* main#*host-extension* */ =C_SCHEME_FALSE;; t23=((C_word*)t0)[5]; t24=C_u_i_cdr(t23); /* chicken-install.scm:999: loop */ t25=((C_word*)((C_word*)t0)[6])[1]; f_6392(t25,((C_word*)t0)[2],t24,((C_word*)((C_word*)t0)[7])[1]);} else{ if(C_truep(C_u_i_string_equal_p(lf[420],((C_word*)t0)[3]))){ t22=lf[33] /* main#*debug-setup* */ =C_SCHEME_TRUE;; t23=((C_word*)t0)[5]; t24=C_u_i_cdr(t23); /* chicken-install.scm:1002: loop */ t25=((C_word*)((C_word*)t0)[6])[1]; f_6392(t25,((C_word*)t0)[2],t24,((C_word*)((C_word*)t0)[7])[1]);} else{ if(C_truep(C_u_i_string_equal_p(lf[421],((C_word*)t0)[3]))){ t22=lf[23] /* main#*deploy* */ =C_SCHEME_TRUE;; t23=((C_word*)t0)[5]; t24=C_u_i_cdr(t23); /* chicken-install.scm:1005: loop */ t25=((C_word*)((C_word*)t0)[6])[1]; f_6392(t25,((C_word*)t0)[2],t24,((C_word*)((C_word*)t0)[7])[1]);} else{ if(C_truep(C_u_i_string_equal_p(lf[422],((C_word*)t0)[3]))){ t22=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7085,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); t23=((C_word*)t0)[5]; t24=C_u_i_cdr(t23); if(C_truep(C_i_pairp(t24))){ t25=t22;{ C_word av2[2]; av2[0]=t25; av2[1]=C_SCHEME_UNDEFINED; f_7085(2,av2);}} else{ t25=t22; t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8181,a[2]=t25,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:804: print */ t27=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t27; av2[1]=t26; av2[2]=lf[383]; ((C_proc)(void*)(*((C_word*)t27+1)))(3,av2);}}} else{ if(C_truep(C_u_i_string_equal_p(lf[423],((C_word*)t0)[3]))){ t22=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7111,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[9],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); t23=((C_word*)t0)[5]; t24=C_u_i_cdr(t23); if(C_truep(C_i_pairp(t24))){ t25=t22;{ C_word av2[2]; av2[0]=t25; av2[1]=C_SCHEME_UNDEFINED; f_7111(2,av2);}} else{ t25=t22; t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8186,a[2]=t25,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:804: print */ t27=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t27; av2[1]=t26; av2[2]=lf[383]; ((C_proc)(void*)(*((C_word*)t27+1)))(3,av2);}}} else{ if(C_truep(C_u_i_string_equal_p(lf[424],((C_word*)t0)[3]))){ t22=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7137,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); t23=((C_word*)t0)[5]; t24=C_u_i_cdr(t23); if(C_truep(C_i_pairp(t24))){ t25=t22;{ C_word av2[2]; av2[0]=t25; av2[1]=C_SCHEME_UNDEFINED; f_7137(2,av2);}} else{ t25=t22; t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8191,a[2]=t25,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:804: print */ t27=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t27; av2[1]=t26; av2[2]=lf[383]; ((C_proc)(void*)(*((C_word*)t27+1)))(3,av2);}}} else{ t22=C_u_i_string_equal_p(lf[425],((C_word*)t0)[3]); t23=(C_truep(t22)?t22:C_u_i_string_equal_p(lf[426],((C_word*)t0)[3])); if(C_truep(t23)){ t24=lf[6] /* main#*keep-existing* */ =C_SCHEME_TRUE;; t25=((C_word*)t0)[5]; t26=C_u_i_cdr(t25); /* chicken-install.scm:1020: loop */ t27=((C_word*)((C_word*)t0)[6])[1]; f_6392(t27,((C_word*)t0)[2],t26,((C_word*)((C_word*)t0)[7])[1]);} else{ if(C_truep(C_u_i_string_equal_p(lf[427],((C_word*)t0)[3]))){ t24=lf[36] /* main#*reinstall* */ =C_SCHEME_TRUE;; t25=((C_word*)t0)[5]; t26=C_u_i_cdr(t25); /* chicken-install.scm:1023: loop */ t27=((C_word*)((C_word*)t0)[6])[1]; f_6392(t27,((C_word*)t0)[2],t26,((C_word*)((C_word*)t0)[7])[1]);} else{ if(C_truep(C_u_i_string_equal_p(lf[428],((C_word*)t0)[3]))){ t24=lf[24] /* main#*trunk* */ =C_SCHEME_TRUE;; t25=((C_word*)t0)[5]; t26=C_u_i_cdr(t25); /* chicken-install.scm:1026: loop */ t27=((C_word*)((C_word*)t0)[6])[1]; f_6392(t27,((C_word*)t0)[2],t26,((C_word*)((C_word*)t0)[7])[1]);} else{ if(C_truep(C_u_i_string_equal_p(lf[429],((C_word*)t0)[3]))){ t24=lf[34] /* main#*keep-going* */ =C_SCHEME_TRUE;; t25=((C_word*)t0)[5]; t26=C_u_i_cdr(t25); /* chicken-install.scm:1029: loop */ t27=((C_word*)((C_word*)t0)[6])[1]; f_6392(t27,((C_word*)t0)[2],t26,((C_word*)((C_word*)t0)[7])[1]);} else{ if(C_truep(C_u_i_string_equal_p(lf[430],((C_word*)t0)[3]))){ t24=C_set_block_item(((C_word*)t0)[10],0,C_SCHEME_TRUE); t25=((C_word*)t0)[5]; t26=C_u_i_cdr(t25); /* chicken-install.scm:1032: loop */ t27=((C_word*)((C_word*)t0)[6])[1]; f_6392(t27,((C_word*)t0)[2],t26,((C_word*)((C_word*)t0)[7])[1]);} else{ if(C_truep(C_u_i_string_equal_p(lf[431],((C_word*)t0)[3]))){ t24=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7226,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); t25=((C_word*)t0)[5]; t26=C_u_i_cdr(t25); if(C_truep(C_i_pairp(t26))){ t27=t24;{ C_word av2[2]; av2[0]=t27; av2[1]=C_SCHEME_UNDEFINED; f_7226(2,av2);}} else{ t27=t24; t28=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8196,a[2]=t27,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:804: print */ t29=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t29; av2[1]=t28; av2[2]=lf[383]; ((C_proc)(void*)(*((C_word*)t29+1)))(3,av2);}}} else{ if(C_truep(C_u_i_string_equal_p(lf[432],((C_word*)t0)[3]))){ t24=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7252,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); t25=((C_word*)t0)[5]; t26=C_u_i_cdr(t25); if(C_truep(C_i_pairp(t26))){ t27=t24;{ C_word av2[2]; av2[0]=t27; av2[1]=C_SCHEME_UNDEFINED; f_7252(2,av2);}} else{ t27=t24; t28=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8201,a[2]=t27,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:804: print */ t29=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t29; av2[1]=t28; av2[2]=lf[383]; ((C_proc)(void*)(*((C_word*)t29+1)))(3,av2);}}} else{ if(C_truep(C_u_i_string_equal_p(lf[433],((C_word*)t0)[3]))){ t24=lf[37] /* main#*show-depends* */ =C_SCHEME_TRUE;; t25=((C_word*)t0)[5]; t26=C_u_i_cdr(t25); /* chicken-install.scm:1043: loop */ t27=((C_word*)((C_word*)t0)[6])[1]; f_6392(t27,((C_word*)t0)[2],t26,((C_word*)((C_word*)t0)[7])[1]);} else{ if(C_truep(C_u_i_string_equal_p(lf[434],((C_word*)t0)[3]))){ t24=lf[38] /* main#*show-foreign-depends* */ =C_SCHEME_TRUE;; t25=((C_word*)t0)[5]; t26=C_u_i_cdr(t25); /* chicken-install.scm:1046: loop */ t27=((C_word*)((C_word*)t0)[6])[1]; f_6392(t27,((C_word*)t0)[2],t26,((C_word*)((C_word*)t0)[7])[1]);} else{ t24=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7298,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[11],tmp=(C_word)a,a+=8,tmp); t25=C_block_size(((C_word*)t0)[3]); if(C_truep(C_fixnum_greaterp(t25,C_fix(0)))){ t26=C_i_string_ref(((C_word*)t0)[3],C_fix(0)); t27=t24; f_7298(t27,C_u_i_char_equalp(C_make_character(45),t26));} else{ t26=t24; f_7298(t26,C_SCHEME_FALSE);}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} /* a6298 in k6431 in k6428 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in ... */ static void C_ccall f_6299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,15)))){ C_save_and_reclaim((void *)f_6299,5,av);} if(C_truep(t2)){ /* chicken-install.scm:789: setup-download#list-extensions */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[266]); C_word *av2; if(c >= 16) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(16); } av2[0]=*((C_word*)lf[266]+1); av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=lf[267]; av2[5]=C_SCHEME_TRUE; av2[6]=lf[184]; av2[7]=C_retrieve2(lf[11],"main#\052username\052"); av2[8]=lf[185]; av2[9]=C_retrieve2(lf[12],"main#\052password\052"); av2[10]=lf[187]; av2[11]=C_retrieve2(lf[18],"main#\052proxy-host\052"); av2[12]=lf[188]; av2[13]=C_retrieve2(lf[19],"main#\052proxy-port\052"); av2[14]=lf[189]; av2[15]=C_retrieve2(lf[20],"main#\052proxy-user-pass\052"); tp(16,av2);}} else{ /* chicken-install.scm:797: next */ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t5))(2,av2);}}} /* k6289 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6291,2,av);} /* chicken-install.scm:782: make-pathname */ t2=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[364]; av2[4]=lf[365]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5166 in k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5168,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5174,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:650: directory? */ t3=C_fast_retrieve(lf[276]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[277]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_5082(2,av2);}}} /* k6281 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ static void C_ccall f_6283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6283,2,av);} /* chicken-install.scm:770: filter-map */ t2=C_fast_retrieve(lf[144]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6285 in k6425 in k6400 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6287,2,av);} /* chicken-install.scm:782: glob */ t2=C_fast_retrieve(lf[259]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4901 in k4895 in k4848 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in ... */ static void C_ccall f_4903(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4903,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4906,a[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:561: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_retrieve2(lf[25],"main#\052csc-features\052"); av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4904 in k4901 in k4895 in k4848 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_4906,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4909,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:561: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[299]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4907 in k4904 in k4901 in k4895 in k4848 in k4845 in k4841 in k4838 in k4971 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4797 in k4789 in k5062 in a5059 in k5047 in k5044 in setup in ... */ static void C_ccall f_4909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4909,2,av);} /* chicken-install.scm:561: get-output-string */ t2=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5184 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in ... */ 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=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_5185,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5191,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_5209,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:641: with-exception-handler */ t5=C_fast_retrieve(lf[191]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5178 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 in k4986 in k6460 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5180,2,av);} /* chicken-install.scm:641: g1141 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k5172 in k5166 in k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in k4995 in k4989 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5174,2,av);} if(C_truep(t1)){ /* chicken-install.scm:651: file-exists? */ t2=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[275]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_5082(2,av2);}}} /* k7008 in k6994 in k6658 in loop in k6385 in k6382 in k7587 in a7577 in a7571 in a7540 in k7525 in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in ... */ 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 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_7010,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_retrieve2(lf[26],"main#\052csc-nonfeatures\052")); t3=C_mutate2(&lf[26] /* (set! main#*csc-nonfeatures* ...) */,t2); t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); /* chicken-install.scm:990: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_6392(t7,((C_word*)t0)[4],t6,((C_word*)((C_word*)t0)[5])[1]);} /* k5124 in k5121 in a5118 in a5112 in a5106 in k5084 in k5080 in k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ 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); /* chicken-install.scm:654: print */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[270]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5127 in k5124 in k5121 in a5118 in a5112 in a5106 in k5084 in k5080 in k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5129,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5121 in a5118 in a5112 in a5106 in k5084 in k5080 in k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ 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); /* chicken-install.scm:654: print-error-message */ t3=C_fast_retrieve(lf[173]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 in k2373 in k2370 in k2367 */ static void C_ccall f_2449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(24,c,3)))){ C_save_and_reclaim((void *)f_2449,2,av);} a=C_alloc(24); t2=lf[30] /* main#*cross-chicken* */ =t1;; t3=lf[31] /* main#*host-extension* */ =C_retrieve2(lf[30],"main#\052cross-chicken\052");; t4=lf[32] /* main#*target-extension* */ =C_retrieve2(lf[30],"main#\052cross-chicken\052");; t5=lf[33] /* main#*debug-setup* */ =C_SCHEME_FALSE;; t6=lf[34] /* main#*keep-going* */ =C_SCHEME_FALSE;; t7=lf[35] /* main#*override* */ =C_SCHEME_END_OF_LIST;; t8=lf[36] /* main#*reinstall* */ =C_SCHEME_FALSE;; t9=lf[37] /* main#*show-depends* */ =C_SCHEME_FALSE;; t10=lf[38] /* main#*show-foreign-depends* */ =C_SCHEME_FALSE;; t11=lf[39] /* main#*hacks* */ =C_SCHEME_END_OF_LIST;; t12=C_mutate2(&lf[40] /* (set! main#repo-path ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2460,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate2(&lf[50] /* (set! main#get-prefix ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2527,tmp=(C_word)a,a+=2,tmp)); t14=C_mutate2(&lf[51] /* (set! main#resolve-location ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2973,tmp=(C_word)a,a+=2,tmp)); t15=C_mutate2(&lf[52] /* (set! main#deps ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3041,tmp=(C_word)a,a+=2,tmp)); t16=C_mutate2(&lf[53] /* (set! main#ext-version ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3114,tmp=(C_word)a,a+=2,tmp)); t17=C_mutate2(&lf[68] /* (set! main#check-dependency ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3208,tmp=(C_word)a,a+=2,tmp)); t18=lf[78] /* main#*eggs+dirs+vers* */ =C_SCHEME_END_OF_LIST;; t19=lf[79] /* main#*dependencies* */ =C_SCHEME_END_OF_LIST;; t20=lf[80] /* main#*checked* */ =C_SCHEME_END_OF_LIST;; t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3572,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7605,a[2]=t21,tmp=(C_word)a,a+=3,tmp); t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7609,a[2]=t22,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t24=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t24; av2[1]=t23; av2[2]=C_mpointer(&a,(void*)C_CSI_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t24+1)))(4,av2);}} /* g625 in k3966 in a3872 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in ... */ static void C_fcall f_3881(C_word t0,C_word 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_3881,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3885,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=C_i_cadr(t2); t5=C_i_cdr(((C_word*)t0)[2]); if(C_truep(C_i_equalp(t4,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|4,a[1]=(C_word)f_3895,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:392: open-output-string */ t7=C_fast_retrieve(lf[46]);{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k4321 in a4291 in k4279 in for-each-loop760 in k4252 in main#retrieve in k3570 in k2447 in k2419 in k2416 in k2413 in k2406 in k2403 in k2400 in k2397 in k2394 in k2391 in k2388 in k2385 in k2382 in k2379 in k2376 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4323,2,av);} if(C_truep(C_i_nullp(t1))){ /* chicken-install.scm:455: error */ t2=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[196]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_4296(2,av2);}}} /* k3883 in g625 in k3966 in a3872 in k4400 in k4513 in k4507 in k4393 in a4389 in k4367 in k4364 in k4361 in k4358 in k4355 in k4349 in for-each-loop802 in k4331 in k4252 in main#retrieve in k3570 in k2447 in k2419 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3885,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a5118 in a5112 in a5106 in k5084 in k5080 in k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in ... */ 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 *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,5)))){ C_save_and_reclaim((void *)f_5119,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5123,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:654: print */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[271]; av2[3]=lf[272]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[273]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* a5112 in a5106 in k5084 in k5080 in k5074 in k5065 in k5062 in a5059 in k5047 in k5044 in setup in k5039 in k5033 in k5030 in k5027 in k5024 in g1096 in k5019 in k5016 in k5013 in k5010 in k5007 in ... */ static void C_ccall f_5113(C_word c,C_word *av){ C_word tmp; C_word 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_5113,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5119,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:654: k1164 */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[585] = { {"f_3895:chicken_2dinstall_2escm",(void*)f_3895}, {"f_6818:chicken_2dinstall_2escm",(void*)f_6818}, {"f_4138:chicken_2dinstall_2escm",(void*)f_4138}, {"f_4333:chicken_2dinstall_2escm",(void*)f_4333}, {"f_3901:chicken_2dinstall_2escm",(void*)f_3901}, {"f_3907:chicken_2dinstall_2escm",(void*)f_3907}, {"f_2460:chicken_2dinstall_2escm",(void*)f_2460}, {"f_3904:chicken_2dinstall_2escm",(void*)f_3904}, {"f_4148:chicken_2dinstall_2escm",(void*)f_4148}, {"f_2402:chicken_2dinstall_2escm",(void*)f_2402}, {"f_2408:chicken_2dinstall_2escm",(void*)f_2408}, {"f_2405:chicken_2dinstall_2escm",(void*)f_2405}, {"f_6231:chicken_2dinstall_2escm",(void*)f_6231}, {"f_6233:chicken_2dinstall_2escm",(void*)f_6233}, {"f_2418:chicken_2dinstall_2escm",(void*)f_2418}, {"f_2415:chicken_2dinstall_2escm",(void*)f_2415}, {"f_6221:chicken_2dinstall_2escm",(void*)f_6221}, {"f_2421:chicken_2dinstall_2escm",(void*)f_2421}, {"f_6802:chicken_2dinstall_2escm",(void*)f_6802}, {"f_6809:chicken_2dinstall_2escm",(void*)f_6809}, {"f_3919:chicken_2dinstall_2escm",(void*)f_3919}, {"f_3916:chicken_2dinstall_2escm",(void*)f_3916}, {"f_3913:chicken_2dinstall_2escm",(void*)f_3913}, {"f_3910:chicken_2dinstall_2escm",(void*)f_3910}, {"f_4113:chicken_2dinstall_2escm",(void*)f_4113}, {"f_3922:chicken_2dinstall_2escm",(void*)f_3922}, {"f_6829:chicken_2dinstall_2escm",(void*)f_6829}, {"f_5191:chicken_2dinstall_2escm",(void*)f_5191}, {"f_6825:chicken_2dinstall_2escm",(void*)f_6825}, {"f_4125:chicken_2dinstall_2escm",(void*)f_4125}, {"f_5197:chicken_2dinstall_2escm",(void*)f_5197}, {"f_5633:chicken_2dinstall_2escm",(void*)f_5633}, {"f_3822:chicken_2dinstall_2escm",(void*)f_3822}, {"f_5666:chicken_2dinstall_2escm",(void*)f_5666}, {"f_5668:chicken_2dinstall_2escm",(void*)f_5668}, {"f_3837:chicken_2dinstall_2escm",(void*)f_3837}, {"f_5651:chicken_2dinstall_2escm",(void*)f_5651}, {"f_7085:chicken_2dinstall_2escm",(void*)f_7085}, {"f_4107:chicken_2dinstall_2escm",(void*)f_4107}, {"f_4104:chicken_2dinstall_2escm",(void*)f_4104}, {"f_5625:chicken_2dinstall_2escm",(void*)f_5625}, {"f_6250:chicken_2dinstall_2escm",(void*)f_6250}, {"f_5621:chicken_2dinstall_2escm",(void*)f_5621}, {"f_5627:chicken_2dinstall_2escm",(void*)f_5627}, {"f_4100:chicken_2dinstall_2escm",(void*)f_4100}, {"f_4719:chicken_2dinstall_2escm",(void*)f_4719}, {"f_5614:chicken_2dinstall_2escm",(void*)f_5614}, {"f_5611:chicken_2dinstall_2escm",(void*)f_5611}, {"f_5641:chicken_2dinstall_2escm",(void*)f_5641}, {"f_6272:chicken_2dinstall_2escm",(void*)f_6272}, {"f_6279:chicken_2dinstall_2escm",(void*)f_6279}, {"f_6262:chicken_2dinstall_2escm",(void*)f_6262}, {"f_6268:chicken_2dinstall_2escm",(void*)f_6268}, {"f_6200:chicken_2dinstall_2escm",(void*)f_6200}, {"f_6208:chicken_2dinstall_2escm",(void*)f_6208}, {"f_3843:chicken_2dinstall_2escm",(void*)f_3843}, {"f_5605:chicken_2dinstall_2escm",(void*)f_5605}, {"f_5602:chicken_2dinstall_2escm",(void*)f_5602}, {"f_5608:chicken_2dinstall_2escm",(void*)f_5608}, {"f_6996:chicken_2dinstall_2escm",(void*)f_6996}, {"f_5834:chicken_2dinstall_2escm",(void*)f_5834}, {"f_5837:chicken_2dinstall_2escm",(void*)f_5837}, {"f_5676:chicken_2dinstall_2escm",(void*)f_5676}, {"f_4703:chicken_2dinstall_2escm",(void*)f_4703}, {"f_3863:chicken_2dinstall_2escm",(void*)f_3863}, {"f_6976:chicken_2dinstall_2escm",(void*)f_6976}, {"f_4799:chicken_2dinstall_2escm",(void*)f_4799}, {"f_5854:chicken_2dinstall_2escm",(void*)f_5854}, {"f_4791:chicken_2dinstall_2escm",(void*)f_4791}, {"f_3873:chicken_2dinstall_2escm",(void*)f_3873}, {"f_3871:chicken_2dinstall_2escm",(void*)f_3871}, {"f_5697:chicken_2dinstall_2escm",(void*)f_5697}, {"f_5690:chicken_2dinstall_2escm",(void*)f_5690}, {"f_5840:chicken_2dinstall_2escm",(void*)f_5840}, {"f_5843:chicken_2dinstall_2escm",(void*)f_5843}, {"f_5848:chicken_2dinstall_2escm",(void*)f_5848}, {"f_3806:chicken_2dinstall_2escm",(void*)f_3806}, {"f_2584:chicken_2dinstall_2escm",(void*)f_2584}, {"f_7572:chicken_2dinstall_2escm",(void*)f_7572}, {"f_3617:chicken_2dinstall_2escm",(void*)f_3617}, {"f_2580:chicken_2dinstall_2escm",(void*)f_2580}, {"f_7563:chicken_2dinstall_2escm",(void*)f_7563}, {"f_7560:chicken_2dinstall_2escm",(void*)f_7560}, {"f_7578:chicken_2dinstall_2escm",(void*)f_7578}, {"f_4743:chicken_2dinstall_2escm",(void*)f_4743}, {"f_5860:chicken_2dinstall_2escm",(void*)f_5860}, {"f_5868:chicken_2dinstall_2escm",(void*)f_5868}, {"f_7553:chicken_2dinstall_2escm",(void*)f_7553}, {"f_3632:chicken_2dinstall_2escm",(void*)f_3632}, {"f_3635:chicken_2dinstall_2escm",(void*)f_3635}, {"f_2904:chicken_2dinstall_2escm",(void*)f_2904}, {"f_3605:chicken_2dinstall_2escm",(void*)f_3605}, {"f_3608:chicken_2dinstall_2escm",(void*)f_3608}, {"f_6392:chicken_2dinstall_2escm",(void*)f_6392}, {"f_7530:chicken_2dinstall_2escm",(void*)f_7530}, {"f_7533:chicken_2dinstall_2escm",(void*)f_7533}, {"f_7536:chicken_2dinstall_2escm",(void*)f_7536}, {"f_5680:chicken_2dinstall_2escm",(void*)f_5680}, {"f_7524:chicken_2dinstall_2escm",(void*)f_7524}, {"f_3620:chicken_2dinstall_2escm",(void*)f_3620}, {"f_7527:chicken_2dinstall_2escm",(void*)f_7527}, {"f_7539:chicken_2dinstall_2escm",(void*)f_7539}, {"f_3629:chicken_2dinstall_2escm",(void*)f_3629}, {"f_5823:chicken_2dinstall_2escm",(void*)f_5823}, {"f_5828:chicken_2dinstall_2escm",(void*)f_5828}, {"f_2937:chicken_2dinstall_2escm",(void*)f_2937}, {"f_3676:chicken_2dinstall_2escm",(void*)f_3676}, {"f_2942:chicken_2dinstall_2escm",(void*)f_2942}, {"f_7582:chicken_2dinstall_2escm",(void*)f_7582}, {"f_7597:chicken_2dinstall_2escm",(void*)f_7597}, {"f_2952:chicken_2dinstall_2escm",(void*)f_2952}, {"f_3690:chicken_2dinstall_2escm",(void*)f_3690}, {"f_7589:chicken_2dinstall_2escm",(void*)f_7589}, {"f_5877:chicken_2dinstall_2escm",(void*)f_5877}, {"f_5874:chicken_2dinstall_2escm",(void*)f_5874}, {"f_2967:chicken_2dinstall_2escm",(void*)f_2967}, {"f_5272:chicken_2dinstall_2escm",(void*)f_5272}, {"f_5277:chicken_2dinstall_2escm",(void*)f_5277}, {"f_5267:chicken_2dinstall_2escm",(void*)f_5267}, {"f_6932:chicken_2dinstall_2escm",(void*)f_6932}, {"f_5891:chicken_2dinstall_2escm",(void*)f_5891}, {"f_5215:chicken_2dinstall_2escm",(void*)f_5215}, {"f_3682:chicken_2dinstall_2escm",(void*)f_3682}, {"f_4897:chicken_2dinstall_2escm",(void*)f_4897}, {"f_7541:chicken_2dinstall_2escm",(void*)f_7541}, {"f_7557:chicken_2dinstall_2escm",(void*)f_7557}, {"f_5885:chicken_2dinstall_2escm",(void*)f_5885}, {"f_5883:chicken_2dinstall_2escm",(void*)f_5883}, {"f_3272:chicken_2dinstall_2escm",(void*)f_3272}, {"f_5880:chicken_2dinstall_2escm",(void*)f_5880}, {"f_5201:chicken_2dinstall_2escm",(void*)f_5201}, {"f_5207:chicken_2dinstall_2escm",(void*)f_5207}, {"f_5204:chicken_2dinstall_2escm",(void*)f_5204}, {"f_5209:chicken_2dinstall_2escm",(void*)f_5209}, {"f_7547:chicken_2dinstall_2escm",(void*)f_7547}, {"f_3282:chicken_2dinstall_2escm",(void*)f_3282}, {"f_7332:chicken_2dinstall_2escm",(void*)f_7332}, {"f_7336:chicken_2dinstall_2escm",(void*)f_7336}, {"f_5221:chicken_2dinstall_2escm",(void*)f_5221}, {"f_7591:chicken_2dinstall_2escm",(void*)f_7591}, {"f_5227:chicken_2dinstall_2escm",(void*)f_5227}, {"f_7320:chicken_2dinstall_2escm",(void*)f_7320}, {"f_7313:chicken_2dinstall_2escm",(void*)f_7313}, {"f_7307:chicken_2dinstall_2escm",(void*)f_7307}, {"f_2512:chicken_2dinstall_2escm",(void*)f_2512}, {"f_2515:chicken_2dinstall_2escm",(void*)f_2515}, {"f_2527:chicken_2dinstall_2escm",(void*)f_2527}, {"f_5294:chicken_2dinstall_2escm",(void*)f_5294}, {"f_6929:chicken_2dinstall_2escm",(void*)f_6929}, {"f_5283:chicken_2dinstall_2escm",(void*)f_5283}, {"f_4012:chicken_2dinstall_2escm",(void*)f_4012}, {"f_4015:chicken_2dinstall_2escm",(void*)f_4015}, {"f_4018:chicken_2dinstall_2escm",(void*)f_4018}, {"f_5427:chicken_2dinstall_2escm",(void*)f_5427}, {"f_6903:chicken_2dinstall_2escm",(void*)f_6903}, {"f_6906:chicken_2dinstall_2escm",(void*)f_6906}, {"f8110:chicken_2dinstall_2escm",(void*)f8110}, {"f_2564:chicken_2dinstall_2escm",(void*)f_2564}, {"f_2566:chicken_2dinstall_2escm",(void*)f_2566}, {"f_5458:chicken_2dinstall_2escm",(void*)f_5458}, {"f_7399:chicken_2dinstall_2escm",(void*)f_7399}, {"f_5251:chicken_2dinstall_2escm",(void*)f_5251}, {"f_6329:chicken_2dinstall_2escm",(void*)f_6329}, {"f_5258:chicken_2dinstall_2escm",(void*)f_5258}, {"f_4033:chicken_2dinstall_2escm",(void*)f_4033}, {"f_2573:chicken_2dinstall_2escm",(void*)f_2573}, {"f_4030:chicken_2dinstall_2escm",(void*)f_4030}, {"f_6962:chicken_2dinstall_2escm",(void*)f_6962}, {"f_3235:chicken_2dinstall_2escm",(void*)f_3235}, {"f_2503:chicken_2dinstall_2escm",(void*)f_2503}, {"f_2509:chicken_2dinstall_2escm",(void*)f_2509}, {"f_7381:chicken_2dinstall_2escm",(void*)f_7381}, {"f_3241:chicken_2dinstall_2escm",(void*)f_3241}, {"f_7373:chicken_2dinstall_2escm",(void*)f_7373}, {"f_5943:chicken_2dinstall_2escm",(void*)f_5943}, {"f_6339:chicken_2dinstall_2escm",(void*)f_6339}, {"f_4027:chicken_2dinstall_2escm",(void*)f_4027}, {"f_4024:chicken_2dinstall_2escm",(void*)f_4024}, {"f_4021:chicken_2dinstall_2escm",(void*)f_4021}, {"f_5412:chicken_2dinstall_2escm",(void*)f_5412}, {"f_5417:chicken_2dinstall_2escm",(void*)f_5417}, {"f_2703:chicken_2dinstall_2escm",(void*)f_2703}, {"f_5930:chicken_2dinstall_2escm",(void*)f_5930}, {"f_6365:chicken_2dinstall_2escm",(void*)f_6365}, {"f_2716:chicken_2dinstall_2escm",(void*)f_2716}, {"f_5962:chicken_2dinstall_2escm",(void*)f_5962}, {"f_5967:chicken_2dinstall_2escm",(void*)f_5967}, {"f_5964:chicken_2dinstall_2escm",(void*)f_5964}, {"f_5950:chicken_2dinstall_2escm",(void*)f_5950}, {"f_5954:chicken_2dinstall_2escm",(void*)f_5954}, {"f_6345:chicken_2dinstall_2escm",(void*)f_6345}, {"f_5958:chicken_2dinstall_2escm",(void*)f_5958}, {"f_4096:chicken_2dinstall_2escm",(void*)f_4096}, {"f_4099:chicken_2dinstall_2escm",(void*)f_4099}, {"f_6773:chicken_2dinstall_2escm",(void*)f_6773}, {"f_5903:chicken_2dinstall_2escm",(void*)f_5903}, {"f_5905:chicken_2dinstall_2escm",(void*)f_5905}, {"f_2387:chicken_2dinstall_2escm",(void*)f_2387}, {"f_4805:chicken_2dinstall_2escm",(void*)f_4805}, {"f_2381:chicken_2dinstall_2escm",(void*)f_2381}, {"f_4808:chicken_2dinstall_2escm",(void*)f_4808}, {"f_2384:chicken_2dinstall_2escm",(void*)f_2384}, {"f_3225:chicken_2dinstall_2escm",(void*)f_3225}, {"f_6352:chicken_2dinstall_2escm",(void*)f_6352}, {"f_5920:chicken_2dinstall_2escm",(void*)f_5920}, {"f_6356:chicken_2dinstall_2escm",(void*)f_6356}, {"f8098:chicken_2dinstall_2escm",(void*)f8098}, {"toplevel:chicken_2dinstall_2escm",(void*)C_toplevel}, {"f_4006:chicken_2dinstall_2escm",(void*)f_4006}, {"f_5476:chicken_2dinstall_2escm",(void*)f_5476}, {"f_4820:chicken_2dinstall_2escm",(void*)f_4820}, {"f_6384:chicken_2dinstall_2escm",(void*)f_6384}, {"f_6387:chicken_2dinstall_2escm",(void*)f_6387}, {"f_5911:chicken_2dinstall_2escm",(void*)f_5911}, {"f_2375:chicken_2dinstall_2escm",(void*)f_2375}, {"f_2378:chicken_2dinstall_2escm",(void*)f_2378}, {"f_2372:chicken_2dinstall_2escm",(void*)f_2372}, {"f_4876:chicken_2dinstall_2escm",(void*)f_4876}, {"f_5464:chicken_2dinstall_2escm",(void*)f_5464}, {"f_5461:chicken_2dinstall_2escm",(void*)f_5461}, {"f_4870:chicken_2dinstall_2escm",(void*)f_4870}, {"f_2771:chicken_2dinstall_2escm",(void*)f_2771}, {"f_5467:chicken_2dinstall_2escm",(void*)f_5467}, {"f_2776:chicken_2dinstall_2escm",(void*)f_2776}, {"f_4847:chicken_2dinstall_2escm",(void*)f_4847}, {"f_3250:chicken_2dinstall_2escm",(void*)f_3250}, {"f_4843:chicken_2dinstall_2escm",(void*)f_4843}, {"f_4840:chicken_2dinstall_2escm",(void*)f_4840}, {"f_2783:chicken_2dinstall_2escm",(void*)f_2783}, {"f_2399:chicken_2dinstall_2escm",(void*)f_2399}, {"f_4817:chicken_2dinstall_2escm",(void*)f_4817}, {"f_2396:chicken_2dinstall_2escm",(void*)f_2396}, {"f_4814:chicken_2dinstall_2escm",(void*)f_4814}, {"f_2393:chicken_2dinstall_2escm",(void*)f_2393}, {"f_2390:chicken_2dinstall_2escm",(void*)f_2390}, {"f_4811:chicken_2dinstall_2escm",(void*)f_4811}, {"f_4866:chicken_2dinstall_2escm",(void*)f_4866}, {"f_2727:chicken_2dinstall_2escm",(void*)f_2727}, {"f_2729:chicken_2dinstall_2escm",(void*)f_2729}, {"f_4478:chicken_2dinstall_2escm",(void*)f_4478}, {"f_4472:chicken_2dinstall_2escm",(void*)f_4472}, {"f_3208:chicken_2dinstall_2escm",(void*)f_3208}, {"f_6527:chicken_2dinstall_2escm",(void*)f_6527}, {"f8201:chicken_2dinstall_2escm",(void*)f8201}, {"f_4485:chicken_2dinstall_2escm",(void*)f_4485}, {"f_5981:chicken_2dinstall_2escm",(void*)f_5981}, {"f_4885:chicken_2dinstall_2escm",(void*)f_4885}, {"f_4882:chicken_2dinstall_2escm",(void*)f_4882}, {"f_4888:chicken_2dinstall_2escm",(void*)f_4888}, {"f8213:chicken_2dinstall_2escm",(void*)f8213}, {"f_4858:chicken_2dinstall_2escm",(void*)f_4858}, {"f_4854:chicken_2dinstall_2escm",(void*)f_4854}, {"f8208:chicken_2dinstall_2escm",(void*)f8208}, {"f_6500:chicken_2dinstall_2escm",(void*)f_6500}, {"f_6502:chicken_2dinstall_2escm",(void*)f_6502}, {"f_4850:chicken_2dinstall_2escm",(void*)f_4850}, {"f_2754:chicken_2dinstall_2escm",(void*)f_2754}, {"f_4084:chicken_2dinstall_2escm",(void*)f_4084}, {"f_4087:chicken_2dinstall_2escm",(void*)f_4087}, {"f_4080:chicken_2dinstall_2escm",(void*)f_4080}, {"f_6550:chicken_2dinstall_2escm",(void*)f_6550}, {"f_4607:chicken_2dinstall_2escm",(void*)f_4607}, {"f_6559:chicken_2dinstall_2escm",(void*)f_6559}, {"f_6553:chicken_2dinstall_2escm",(void*)f_6553}, {"f_6556:chicken_2dinstall_2escm",(void*)f_6556}, {"f_4617:chicken_2dinstall_2escm",(void*)f_4617}, {"f_6544:chicken_2dinstall_2escm",(void*)f_6544}, {"f_4633:chicken_2dinstall_2escm",(void*)f_4633}, {"f_6595:chicken_2dinstall_2escm",(void*)f_6595}, {"f_6769:chicken_2dinstall_2escm",(void*)f_6769}, {"f_4299:chicken_2dinstall_2escm",(void*)f_4299}, {"f_4296:chicken_2dinstall_2escm",(void*)f_4296}, {"f_6582:chicken_2dinstall_2escm",(void*)f_6582}, {"f_4292:chicken_2dinstall_2escm",(void*)f_4292}, {"f_4655:chicken_2dinstall_2escm",(void*)f_4655}, {"f_6572:chicken_2dinstall_2escm",(void*)f_6572}, {"f_4665:chicken_2dinstall_2escm",(void*)f_4665}, {"f_4690:chicken_2dinstall_2escm",(void*)f_4690}, {"f_5555:chicken_2dinstall_2escm",(void*)f_5555}, {"f_5551:chicken_2dinstall_2escm",(void*)f_5551}, {"f_4455:chicken_2dinstall_2escm",(void*)f_4455}, {"f_7137:chicken_2dinstall_2escm",(void*)f_7137}, {"f_7111:chicken_2dinstall_2escm",(void*)f_7111}, {"f_5542:chicken_2dinstall_2escm",(void*)f_5542}, {"f_4468:chicken_2dinstall_2escm",(void*)f_4468}, {"f_3721:chicken_2dinstall_2escm",(void*)f_3721}, {"f_3726:chicken_2dinstall_2escm",(void*)f_3726}, {"f_2369:chicken_2dinstall_2escm",(void*)f_2369}, {"f_5575:chicken_2dinstall_2escm",(void*)f_5575}, {"f_4272:chicken_2dinstall_2escm",(void*)f_4272}, {"f_4286:chicken_2dinstall_2escm",(void*)f_4286}, {"f_3705:chicken_2dinstall_2escm",(void*)f_3705}, {"f_3738:chicken_2dinstall_2escm",(void*)f_3738}, {"f_4281:chicken_2dinstall_2escm",(void*)f_4281}, {"f_5512:chicken_2dinstall_2escm",(void*)f_5512}, {"f_6001:chicken_2dinstall_2escm",(void*)f_6001}, {"f_5516:chicken_2dinstall_2escm",(void*)f_5516}, {"f_5518:chicken_2dinstall_2escm",(void*)f_5518}, {"f_3711:chicken_2dinstall_2escm",(void*)f_3711}, {"f_3717:chicken_2dinstall_2escm",(void*)f_3717}, {"f_3763:chicken_2dinstall_2escm",(void*)f_3763}, {"f_7605:chicken_2dinstall_2escm",(void*)f_7605}, {"f_3760:chicken_2dinstall_2escm",(void*)f_3760}, {"f_7609:chicken_2dinstall_2escm",(void*)f_7609}, {"f_5536:chicken_2dinstall_2escm",(void*)f_5536}, {"f_6740:chicken_2dinstall_2escm",(void*)f_6740}, {"f_5539:chicken_2dinstall_2escm",(void*)f_5539}, {"f_3768:chicken_2dinstall_2escm",(void*)f_3768}, {"f_6017:chicken_2dinstall_2escm",(void*)f_6017}, {"f_3742:chicken_2dinstall_2escm",(void*)f_3742}, {"f_3376:chicken_2dinstall_2escm",(void*)f_3376}, {"f_6043:chicken_2dinstall_2escm",(void*)f_6043}, {"f_3747:chicken_2dinstall_2escm",(void*)f_3747}, {"f_6039:chicken_2dinstall_2escm",(void*)f_6039}, {"f_6710:chicken_2dinstall_2escm",(void*)f_6710}, {"f_6037:chicken_2dinstall_2escm",(void*)f_6037}, {"f_6030:chicken_2dinstall_2escm",(void*)f_6030}, {"f_5753:chicken_2dinstall_2escm",(void*)f_5753}, {"f_5755:chicken_2dinstall_2escm",(void*)f_5755}, {"f_5568:chicken_2dinstall_2escm",(void*)f_5568}, {"f_4408:chicken_2dinstall_2escm",(void*)f_4408}, {"f_4402:chicken_2dinstall_2escm",(void*)f_4402}, {"f_2692:chicken_2dinstall_2escm",(void*)f_2692}, {"f_2697:chicken_2dinstall_2escm",(void*)f_2697}, {"f_5596:chicken_2dinstall_2escm",(void*)f_5596}, {"f_5599:chicken_2dinstall_2escm",(void*)f_5599}, {"f_6087:chicken_2dinstall_2escm",(void*)f_6087}, {"f_5590:chicken_2dinstall_2escm",(void*)f_5590}, {"f_5593:chicken_2dinstall_2escm",(void*)f_5593}, {"f_3391:chicken_2dinstall_2escm",(void*)f_3391}, {"f_4419:chicken_2dinstall_2escm",(void*)f_4419}, {"f_4414:chicken_2dinstall_2escm",(void*)f_4414}, {"f_3792:chicken_2dinstall_2escm",(void*)f_3792}, {"f_4411:chicken_2dinstall_2escm",(void*)f_4411}, {"f_7416:chicken_2dinstall_2escm",(void*)f_7416}, {"f_5587:chicken_2dinstall_2escm",(void*)f_5587}, {"f_3518:chicken_2dinstall_2escm",(void*)f_3518}, {"f_4425:chicken_2dinstall_2escm",(void*)f_4425}, {"f_3395:chicken_2dinstall_2escm",(void*)f_3395}, {"f_7141:chicken_2dinstall_2escm",(void*)f_7141}, {"f_6024:chicken_2dinstall_2escm",(void*)f_6024}, {"f_6027:chicken_2dinstall_2escm",(void*)f_6027}, {"f_6021:chicken_2dinstall_2escm",(void*)f_6021}, {"f_5711:chicken_2dinstall_2escm",(void*)f_5711}, {"f_4430:chicken_2dinstall_2escm",(void*)f_4430}, {"f_4250:chicken_2dinstall_2escm",(void*)f_4250}, {"f_3524:chicken_2dinstall_2escm",(void*)f_3524}, {"f_5705:chicken_2dinstall_2escm",(void*)f_5705}, {"f_5700:chicken_2dinstall_2escm",(void*)f_5700}, {"f_4440:chicken_2dinstall_2escm",(void*)f_4440}, {"f_7466:chicken_2dinstall_2escm",(void*)f_7466}, {"f_7462:chicken_2dinstall_2escm",(void*)f_7462}, {"f_3509:chicken_2dinstall_2escm",(void*)f_3509}, {"f_5734:chicken_2dinstall_2escm",(void*)f_5734}, {"f_5739:chicken_2dinstall_2escm",(void*)f_5739}, {"f_3505:chicken_2dinstall_2escm",(void*)f_3505}, {"f_5720:chicken_2dinstall_2escm",(void*)f_5720}, {"f_3554:chicken_2dinstall_2escm",(void*)f_3554}, {"f_6062:chicken_2dinstall_2escm",(void*)f_6062}, {"f_7436:chicken_2dinstall_2escm",(void*)f_7436}, {"f_3022:chicken_2dinstall_2escm",(void*)f_3022}, {"f_7420:chicken_2dinstall_2escm",(void*)f_7420}, {"f_7423:chicken_2dinstall_2escm",(void*)f_7423}, {"f_7429:chicken_2dinstall_2escm",(void*)f_7429}, {"f_3029:chicken_2dinstall_2escm",(void*)f_3029}, {"f_4214:chicken_2dinstall_2escm",(void*)f_4214}, {"f_3544:chicken_2dinstall_2escm",(void*)f_3544}, {"f_3039:chicken_2dinstall_2escm",(void*)f_3039}, {"f_5035:chicken_2dinstall_2escm",(void*)f_5035}, {"f_5032:chicken_2dinstall_2escm",(void*)f_5032}, {"f_7482:chicken_2dinstall_2escm",(void*)f_7482}, {"f_3041:chicken_2dinstall_2escm",(void*)f_3041}, {"f_3595:chicken_2dinstall_2escm",(void*)f_3595}, {"f_5026:chicken_2dinstall_2escm",(void*)f_5026}, {"f_5029:chicken_2dinstall_2escm",(void*)f_5029}, {"f_5021:chicken_2dinstall_2escm",(void*)f_5021}, {"f_5022:chicken_2dinstall_2escm",(void*)f_5022}, {"f_3176:chicken_2dinstall_2escm",(void*)f_3176}, {"f_4988:chicken_2dinstall_2escm",(void*)f_4988}, {"f_3578:chicken_2dinstall_2escm",(void*)f_3578}, {"f_5789:chicken_2dinstall_2escm",(void*)f_5789}, {"f_3572:chicken_2dinstall_2escm",(void*)f_3572}, {"f_4973:chicken_2dinstall_2escm",(void*)f_4973}, {"f_5049:chicken_2dinstall_2escm",(void*)f_5049}, {"f_3589:chicken_2dinstall_2escm",(void*)f_3589}, {"f_5046:chicken_2dinstall_2escm",(void*)f_5046}, {"f_7252:chicken_2dinstall_2escm",(void*)f_7252}, {"f_5041:chicken_2dinstall_2escm",(void*)f_5041}, {"f_5042:chicken_2dinstall_2escm",(void*)f_5042}, {"f_4254:chicken_2dinstall_2escm",(void*)f_4254}, {"f_3583:chicken_2dinstall_2escm",(void*)f_3583}, {"f_4964:chicken_2dinstall_2escm",(void*)f_4964}, {"f_4960:chicken_2dinstall_2escm",(void*)f_4960}, {"f_3363:chicken_2dinstall_2escm",(void*)f_3363}, {"f_7446:chicken_2dinstall_2escm",(void*)f_7446}, {"f_7442:chicken_2dinstall_2escm",(void*)f_7442}, {"f_4953:chicken_2dinstall_2escm",(void*)f_4953}, {"f_4950:chicken_2dinstall_2escm",(void*)f_4950}, {"f_3331:chicken_2dinstall_2escm",(void*)f_3331}, {"f_3334:chicken_2dinstall_2escm",(void*)f_3334}, {"f_3019:chicken_2dinstall_2escm",(void*)f_3019}, {"f_7226:chicken_2dinstall_2escm",(void*)f_7226}, {"f_4204:chicken_2dinstall_2escm",(void*)f_4204}, {"f_5009:chicken_2dinstall_2escm",(void*)f_5009}, {"f_4997:chicken_2dinstall_2escm",(void*)f_4997}, {"f_2630:chicken_2dinstall_2escm",(void*)f_2630}, {"f_2633:chicken_2dinstall_2escm",(void*)f_2633}, {"f_2636:chicken_2dinstall_2escm",(void*)f_2636}, {"f_4991:chicken_2dinstall_2escm",(void*)f_4991}, {"f_5054:chicken_2dinstall_2escm",(void*)f_5054}, {"f_3303:chicken_2dinstall_2escm",(void*)f_3303}, {"f_3060:chicken_2dinstall_2escm",(void*)f_3060}, {"f_3066:chicken_2dinstall_2escm",(void*)f_3066}, {"f_3069:chicken_2dinstall_2escm",(void*)f_3069}, {"f_2621:chicken_2dinstall_2escm",(void*)f_2621}, {"f_2624:chicken_2dinstall_2escm",(void*)f_2624}, {"f_3070:chicken_2dinstall_2escm",(void*)f_3070}, {"f_2627:chicken_2dinstall_2escm",(void*)f_2627}, {"f_3078:chicken_2dinstall_2escm",(void*)f_3078}, {"f_5076:chicken_2dinstall_2escm",(void*)f_5076}, {"f_3082:chicken_2dinstall_2escm",(void*)f_3082}, {"f_5376:chicken_2dinstall_2escm",(void*)f_5376}, {"f_3086:chicken_2dinstall_2escm",(void*)f_3086}, {"f_5372:chicken_2dinstall_2escm",(void*)f_5372}, {"f_5064:chicken_2dinstall_2escm",(void*)f_5064}, {"f_5060:chicken_2dinstall_2escm",(void*)f_5060}, {"f_5067:chicken_2dinstall_2escm",(void*)f_5067}, {"f_5069:chicken_2dinstall_2escm",(void*)f_5069}, {"f_3091:chicken_2dinstall_2escm",(void*)f_3091}, {"f_5368:chicken_2dinstall_2escm",(void*)f_5368}, {"f_5018:chicken_2dinstall_2escm",(void*)f_5018}, {"f_5012:chicken_2dinstall_2escm",(void*)f_5012}, {"f_3347:chicken_2dinstall_2escm",(void*)f_3347}, {"f_5015:chicken_2dinstall_2escm",(void*)f_5015}, {"f_3130:chicken_2dinstall_2escm",(void*)f_3130}, {"f_3133:chicken_2dinstall_2escm",(void*)f_3133}, {"f_3136:chicken_2dinstall_2escm",(void*)f_3136}, {"f_2615:chicken_2dinstall_2escm",(void*)f_2615}, {"f_5318:chicken_2dinstall_2escm",(void*)f_5318}, {"f_5086:chicken_2dinstall_2escm",(void*)f_5086}, {"f_5082:chicken_2dinstall_2escm",(void*)f_5082}, {"f_5087:chicken_2dinstall_2escm",(void*)f_5087}, {"f_7298:chicken_2dinstall_2escm",(void*)f_7298}, {"f_6412:chicken_2dinstall_2escm",(void*)f_6412}, {"f_2664:chicken_2dinstall_2escm",(void*)f_2664}, {"f_5301:chicken_2dinstall_2escm",(void*)f_5301}, {"f_5307:chicken_2dinstall_2escm",(void*)f_5307}, {"f_6402:chicken_2dinstall_2escm",(void*)f_6402}, {"f_4374:chicken_2dinstall_2escm",(void*)f_4374}, {"f_6433:chicken_2dinstall_2escm",(void*)f_6433}, {"f_6430:chicken_2dinstall_2escm",(void*)f_6430}, {"f_2685:chicken_2dinstall_2escm",(void*)f_2685}, {"f_2689:chicken_2dinstall_2escm",(void*)f_2689}, {"f_2680:chicken_2dinstall_2escm",(void*)f_2680}, {"f_5329:chicken_2dinstall_2escm",(void*)f_5329}, {"f_6427:chicken_2dinstall_2escm",(void*)f_6427}, {"f_4395:chicken_2dinstall_2escm",(void*)f_4395}, {"f_2819:chicken_2dinstall_2escm",(void*)f_2819}, {"f_4390:chicken_2dinstall_2escm",(void*)f_4390}, {"f_2821:chicken_2dinstall_2escm",(void*)f_2821}, {"f8138:chicken_2dinstall_2escm",(void*)f8138}, {"f8133:chicken_2dinstall_2escm",(void*)f8133}, {"f_6443:chicken_2dinstall_2escm",(void*)f_6443}, {"f8148:chicken_2dinstall_2escm",(void*)f8148}, {"f8143:chicken_2dinstall_2escm",(void*)f8143}, {"f_4515:chicken_2dinstall_2escm",(void*)f_4515}, {"f_4517:chicken_2dinstall_2escm",(void*)f_4517}, {"f_3989:chicken_2dinstall_2escm",(void*)f_3989}, {"f_3982:chicken_2dinstall_2escm",(void*)f_3982}, {"f_5098:chicken_2dinstall_2escm",(void*)f_5098}, {"f8196:chicken_2dinstall_2escm",(void*)f8196}, {"f8191:chicken_2dinstall_2escm",(void*)f8191}, {"f_6462:chicken_2dinstall_2escm",(void*)f_6462}, {"f_6108:chicken_2dinstall_2escm",(void*)f_6108}, {"f_6469:chicken_2dinstall_2escm",(void*)f_6469}, {"f_6102:chicken_2dinstall_2escm",(void*)f_6102}, {"f_6466:chicken_2dinstall_2escm",(void*)f_6466}, {"f_2477:chicken_2dinstall_2escm",(void*)f_2477}, {"f_5391:chicken_2dinstall_2escm",(void*)f_5391}, {"f_5393:chicken_2dinstall_2escm",(void*)f_5393}, {"f_6493:chicken_2dinstall_2escm",(void*)f_6493}, {"f_2487:chicken_2dinstall_2escm",(void*)f_2487}, {"f_2481:chicken_2dinstall_2escm",(void*)f_2481}, {"f_3968:chicken_2dinstall_2escm",(void*)f_3968}, {"f_3962:chicken_2dinstall_2escm",(void*)f_3962}, {"f8176:chicken_2dinstall_2escm",(void*)f8176}, {"f8171:chicken_2dinstall_2escm",(void*)f8171}, {"f_6487:chicken_2dinstall_2escm",(void*)f_6487}, {"f_3114:chicken_2dinstall_2escm",(void*)f_3114}, {"f_4509:chicken_2dinstall_2escm",(void*)f_4509}, {"f_2493:chicken_2dinstall_2escm",(void*)f_2493}, {"f_2490:chicken_2dinstall_2escm",(void*)f_2490}, {"f_6639:chicken_2dinstall_2escm",(void*)f_6639}, {"f8186:chicken_2dinstall_2escm",(void*)f8186}, {"f8181:chicken_2dinstall_2escm",(void*)f8181}, {"f_3124:chicken_2dinstall_2escm",(void*)f_3124}, {"f_6629:chicken_2dinstall_2escm",(void*)f_6629}, {"f_6147:chicken_2dinstall_2escm",(void*)f_6147}, {"f_3993:chicken_2dinstall_2escm",(void*)f_3993}, {"f_5355:chicken_2dinstall_2escm",(void*)f_5355}, {"f_5352:chicken_2dinstall_2escm",(void*)f_5352}, {"f_3999:chicken_2dinstall_2escm",(void*)f_3999}, {"f_2896:chicken_2dinstall_2escm",(void*)f_2896}, {"f_5358:chicken_2dinstall_2escm",(void*)f_5358}, {"f_6878:chicken_2dinstall_2escm",(void*)f_6878}, {"f_6871:chicken_2dinstall_2escm",(void*)f_6871}, {"f_3474:chicken_2dinstall_2escm",(void*)f_3474}, {"f_4199:chicken_2dinstall_2escm",(void*)f_4199}, {"f_4196:chicken_2dinstall_2escm",(void*)f_4196}, {"f_6139:chicken_2dinstall_2escm",(void*)f_6139}, {"f_6136:chicken_2dinstall_2escm",(void*)f_6136}, {"f_3101:chicken_2dinstall_2escm",(void*)f_3101}, {"f_3475:chicken_2dinstall_2escm",(void*)f_3475}, {"f_3480:chicken_2dinstall_2escm",(void*)f_3480}, {"f_3486:chicken_2dinstall_2escm",(void*)f_3486}, {"f_4542:chicken_2dinstall_2escm",(void*)f_4542}, {"f_5149:chicken_2dinstall_2escm",(void*)f_5149}, {"f_3491:chicken_2dinstall_2escm",(void*)f_3491}, {"f_5143:chicken_2dinstall_2escm",(void*)f_5143}, {"f_3160:chicken_2dinstall_2escm",(void*)f_3160}, {"f_3167:chicken_2dinstall_2escm",(void*)f_3167}, {"f_4594:chicken_2dinstall_2escm",(void*)f_4594}, {"f_4947:chicken_2dinstall_2escm",(void*)f_4947}, {"f_4941:chicken_2dinstall_2escm",(void*)f_4941}, {"f_2973:chicken_2dinstall_2escm",(void*)f_2973}, {"f_2846:chicken_2dinstall_2escm",(void*)f_2846}, {"f_2971:chicken_2dinstall_2escm",(void*)f_2971}, {"f_5137:chicken_2dinstall_2escm",(void*)f_5137}, {"f_5131:chicken_2dinstall_2escm",(void*)f_5131}, {"f_6180:chicken_2dinstall_2escm",(void*)f_6180}, {"f_3425:chicken_2dinstall_2escm",(void*)f_3425}, {"f_4938:chicken_2dinstall_2escm",(void*)f_4938}, {"f_4934:chicken_2dinstall_2escm",(void*)f_4934}, {"f_4562:chicken_2dinstall_2escm",(void*)f_4562}, {"f_4357:chicken_2dinstall_2escm",(void*)f_4357}, {"f_4351:chicken_2dinstall_2escm",(void*)f_4351}, {"f_6170:chicken_2dinstall_2escm",(void*)f_6170}, {"f_6177:chicken_2dinstall_2escm",(void*)f_6177}, {"f_6174:chicken_2dinstall_2escm",(void*)f_6174}, {"f_6602:chicken_2dinstall_2escm",(void*)f_6602}, {"f_4927:chicken_2dinstall_2escm",(void*)f_4927}, {"f_4921:chicken_2dinstall_2escm",(void*)f_4921}, {"f_4924:chicken_2dinstall_2escm",(void*)f_4924}, {"f_4366:chicken_2dinstall_2escm",(void*)f_4366}, {"f_4369:chicken_2dinstall_2escm",(void*)f_4369}, {"f_6604:chicken_2dinstall_2escm",(void*)f_6604}, {"f_2866:chicken_2dinstall_2escm",(void*)f_2866}, {"f_2863:chicken_2dinstall_2escm",(void*)f_2863}, {"f_4360:chicken_2dinstall_2escm",(void*)f_4360}, {"f_4363:chicken_2dinstall_2escm",(void*)f_4363}, {"f_4584:chicken_2dinstall_2escm",(void*)f_4584}, {"f_4915:chicken_2dinstall_2escm",(void*)f_4915}, {"f_5107:chicken_2dinstall_2escm",(void*)f_5107}, {"f_5102:chicken_2dinstall_2escm",(void*)f_5102}, {"f_6157:chicken_2dinstall_2escm",(void*)f_6157}, {"f8154:chicken_2dinstall_2escm",(void*)f8154}, {"f_4181:chicken_2dinstall_2escm",(void*)f_4181}, {"f8166:chicken_2dinstall_2escm",(void*)f8166}, {"f8161:chicken_2dinstall_2escm",(void*)f8161}, {"f_3414:chicken_2dinstall_2escm",(void*)f_3414}, {"f_3410:chicken_2dinstall_2escm",(void*)f_3410}, {"f_6196:chicken_2dinstall_2escm",(void*)f_6196}, {"f_6660:chicken_2dinstall_2escm",(void*)f_6660}, {"f_6299:chicken_2dinstall_2escm",(void*)f_6299}, {"f_6291:chicken_2dinstall_2escm",(void*)f_6291}, {"f_5168:chicken_2dinstall_2escm",(void*)f_5168}, {"f_6283:chicken_2dinstall_2escm",(void*)f_6283}, {"f_6287:chicken_2dinstall_2escm",(void*)f_6287}, {"f_4903:chicken_2dinstall_2escm",(void*)f_4903}, {"f_4906:chicken_2dinstall_2escm",(void*)f_4906}, {"f_4909:chicken_2dinstall_2escm",(void*)f_4909}, {"f_5185:chicken_2dinstall_2escm",(void*)f_5185}, {"f_5180:chicken_2dinstall_2escm",(void*)f_5180}, {"f_5174:chicken_2dinstall_2escm",(void*)f_5174}, {"f_7010:chicken_2dinstall_2escm",(void*)f_7010}, {"f_5126:chicken_2dinstall_2escm",(void*)f_5126}, {"f_5129:chicken_2dinstall_2escm",(void*)f_5129}, {"f_5123:chicken_2dinstall_2escm",(void*)f_5123}, {"f_2449:chicken_2dinstall_2escm",(void*)f_2449}, {"f_3881:chicken_2dinstall_2escm",(void*)f_3881}, {"f_4323:chicken_2dinstall_2escm",(void*)f_4323}, {"f_3885:chicken_2dinstall_2escm",(void*)f_3885}, {"f_5119:chicken_2dinstall_2escm",(void*)f_5119}, {"f_5113:chicken_2dinstall_2escm",(void*)f_5113}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding nonexported module bindings: main#+default-repository-files+ o|hiding nonexported module bindings: main#constant159 o|hiding nonexported module bindings: main#constant163 o|hiding nonexported module bindings: main#*program-path* o|hiding nonexported module bindings: main#*keep* o|hiding nonexported module bindings: main#*keep-existing* o|hiding nonexported module bindings: main#*force* o|hiding nonexported module bindings: main#*run-tests* o|hiding nonexported module bindings: main#*retrieve-only* o|hiding nonexported module bindings: main#*no-install* o|hiding nonexported module bindings: main#*username* o|hiding nonexported module bindings: main#*password* o|hiding nonexported module bindings: main#*default-sources* o|hiding nonexported module bindings: main#*default-location* o|hiding nonexported module bindings: main#*default-transport* o|hiding nonexported module bindings: main#*windows-shell* o|hiding nonexported module bindings: main#*proxy-host* o|hiding nonexported module bindings: main#*proxy-port* o|hiding nonexported module bindings: main#*proxy-user-pass* o|hiding nonexported module bindings: main#*running-test* o|hiding nonexported module bindings: main#*mappings* o|hiding nonexported module bindings: main#*deploy* o|hiding nonexported module bindings: main#*trunk* o|hiding nonexported module bindings: main#*csc-features* o|hiding nonexported module bindings: main#*csc-nonfeatures* o|hiding nonexported module bindings: main#*prefix* o|hiding nonexported module bindings: main#*no-install-deps* o|hiding nonexported module bindings: main#*aliases* o|hiding nonexported module bindings: main#*cross-chicken* o|hiding nonexported module bindings: main#*host-extension* o|hiding nonexported module bindings: main#*target-extension* o|hiding nonexported module bindings: main#*debug-setup* o|hiding nonexported module bindings: main#*keep-going* o|hiding nonexported module bindings: main#*override* o|hiding nonexported module bindings: main#*reinstall* o|hiding nonexported module bindings: main#*show-depends* o|hiding nonexported module bindings: main#*show-foreign-depends* o|hiding nonexported module bindings: main#*hacks* o|hiding nonexported module bindings: main#repo-path o|hiding nonexported module bindings: main#get-prefix o|hiding nonexported module bindings: main#load-defaults o|hiding nonexported module bindings: main#resolve-location o|hiding nonexported module bindings: main#known-default-sources o|hiding nonexported module bindings: main#deps o|hiding nonexported module bindings: main#init-repository o|hiding nonexported module bindings: main#ext-version o|hiding nonexported module bindings: main#meta-dependencies o|hiding nonexported module bindings: main#check-dependency o|hiding nonexported module bindings: main#outdated-dependencies o|hiding nonexported module bindings: main#*eggs+dirs+vers* o|hiding nonexported module bindings: main#*dependencies* o|hiding nonexported module bindings: main#*checked* o|hiding nonexported module bindings: main#*csi* o|hiding nonexported module bindings: main#try-extension o|hiding nonexported module bindings: main#with-default-sources o|hiding nonexported module bindings: main#try-default-sources o|hiding nonexported module bindings: main#make-replace-extension-question o|hiding nonexported module bindings: main#override-version o|hiding nonexported module bindings: main#show-depends o|hiding nonexported module bindings: main#retrieve o|hiding nonexported module bindings: main#check-platform o|hiding nonexported module bindings: main#back-slash->forward-slash o|hiding nonexported module bindings: main#make-install-command o|hiding nonexported module bindings: main#keep-going o|hiding nonexported module bindings: main#install o|hiding nonexported module bindings: main#delete-stale-binaries o|hiding nonexported module bindings: main#cleanup o|hiding nonexported module bindings: main#update-db o|hiding nonexported module bindings: main#apply-mappings o|hiding nonexported module bindings: main#scan-directory o|hiding nonexported module bindings: main#$system o|hiding nonexported module bindings: main#installed-extensions o|hiding nonexported module bindings: main#list-available-extensions o|hiding nonexported module bindings: main#command o|hiding nonexported module bindings: main#usage o|hiding nonexported module bindings: main#setup-proxy o|hiding nonexported module bindings: main#info->egg o|hiding nonexported module bindings: main#*short-options* o|hiding nonexported module bindings: main#main S|applied compiler syntax: S| fprintf 1 S| printf 1 S| map 10 S| for-each 12 S| sprintf 12 o|eliminated procedure checks: 142 o|specializations: o| 1 (> fixnum fixnum) o| 1 (char=? char char) o| 1 (string-ref string fixnum) o| 2 (string-length string) o| 9 (cddr (pair * pair)) o| 1 (zero? fixnum) o| 1 (string-append string string) o| 5 (current-error-port) o| 47 (string=? string string) o| 24 (car pair) o| 11 (##sys#check-list (or pair list) *) o| 2 (= fixnum fixnum) o| 50 (cdr pair) o| 8 (eqv? * (not float)) o| 2 (positive? fixnum) o| 4 (length list) o| 14 (##sys#check-output-port * * *) (o e)|safe calls: 748 (o e)|dropped branches: 1 (o e)|assignments to immediate values: 13 o|Removed `not' forms: 16 o|inlining procedure: k2462 o|propagated global variable: r24637616 main#*prefix* o|inlining procedure: k2462 o|substituted constant variable: a2483 o|substituted constant variable: a2484 o|inlining procedure: k2494 o|substituted constant variable: a2505 o|substituted constant variable: a2506 o|inlining procedure: k2494 o|merged explicitly consed rest parameter: tmp234235 o|inlining procedure: k2532 o|contracted procedure: k2547 o|inlining procedure: k2532 o|propagated global variable: r25337621 main#*prefix* o|inlining procedure: k2978 o|contracted procedure: "(chicken-install.scm:186) g388389" o|inlining procedure: k2978 o|inlining procedure: k3049 o|inlining procedure: k3049 o|inlining procedure: k3116 o|inlining procedure: k3116 o|contracted procedure: "(chicken-install.scm:221) g450451" o|inlining procedure: k3145 o|inlining procedure: k3145 o|inlining procedure: k3171 o|inlining procedure: k3171 o|inlining procedure: k3210 o|contracted procedure: k3226 o|inlining procedure: k3223 o|inlining procedure: k3223 o|inlining procedure: k3210 o|inlining procedure: k3252 o|inlining procedure: k3262 o|inlining procedure: k3262 o|inlining procedure: k3252 o|inlining procedure: k3284 o|inlining procedure: k3284 o|inlining procedure: k3305 o|inlining procedure: k3305 o|inlining procedure: k3314 o|inlining procedure: k3314 o|contracted procedure: k3320 o|inlining procedure: k3326 o|contracted procedure: k3338 o|contracted procedure: k3353 o|inlining procedure: k3350 o|inlining procedure: k3350 o|substituted constant variable: a3359 o|inlining procedure: k3364 o|inlining procedure: k3364 o|inlining procedure: k3326 o|inlining procedure: k3432 o|inlining procedure: k3432 o|substituted constant variable: a3453 o|inlining procedure: k3728 o|inlining procedure: k3728 o|inlining procedure: k3790 o|inlining procedure: k3790 o|inlining procedure: k3804 o|inlining procedure: k3804 o|contracted procedure: "(chicken-install.scm:345) main#known-default-sources" o|inlining procedure: k2995 o|inlining procedure: k3017 o|inlining procedure: k3017 o|propagated global variable: r30187673 main#*default-location* o|inlining procedure: k2995 o|propagated global variable: r29967675 main#*default-sources* o|merged explicitly consed rest parameter: type684 o|propagated global variable: out690694 ##sys#standard-output o|substituted constant variable: a4092 o|substituted constant variable: a4093 o|inlining procedure: k4108 o|inlining procedure: k4117 o|inlining procedure: k4117 o|inlining procedure: k4140 o|contracted procedure: "(chicken-install.scm:436) g723730" o|inlining procedure: k4140 o|inlining procedure: k4108 o|inlining procedure: k4206 o|inlining procedure: k4206 o|propagated global variable: g712714 main#*eggs+dirs+vers* o|inlining procedure: k4227 o|inlining procedure: k4227 o|substituted constant variable: a4240 o|substituted constant variable: a4242 o|inlining procedure: k4334 o|inlining procedure: k4334 o|inlining procedure: k4586 o|contracted procedure: "(chicken-install.scm:460) g803810" o|inlining procedure: k4339 o|inlining procedure: k4339 o|inlining procedure: k4376 o|inlining procedure: k4376 o|contracted procedure: "(chicken-install.scm:473) main#outdated-dependencies" o|inlining procedure: k3493 o|inlining procedure: k3493 o|inlining procedure: k3534 o|inlining procedure: k3534 o|inlining procedure: k3546 o|inlining procedure: k3546 o|propagated global variable: g514516 main#*hacks* o|contracted procedure: "(chicken-install.scm:296) main#meta-dependencies" o|inlining procedure: k3201 o|inlining procedure: k3201 o|inlining procedure: k4403 o|inlining procedure: k4432 o|contracted procedure: "(chicken-install.scm:495) g863870" o|inlining procedure: k4432 o|inlining procedure: k4403 o|propagated global variable: tmp856858 main#*force* o|inlining procedure: k4459 o|propagated global variable: tmp856858 main#*force* o|inlining procedure: k4459 o|contracted procedure: "(chicken-install.scm:490) main#make-replace-extension-question" o|inlining procedure: k3883 o|inlining procedure: k3883 o|substituted constant variable: a3897 o|substituted constant variable: a3898 o|inlining procedure: k3878 o|inlining procedure: k3878 o|inlining procedure: k4519 o|contracted procedure: "(chicken-install.scm:478) g835844" o|inlining procedure: k4500 o|inlining procedure: k4500 o|inlining procedure: k4519 o|contracted procedure: "(chicken-install.scm:468) main#check-platform" o|inlining procedure: k4638 o|inlining procedure: k4638 o|inlining procedure: k4657 o|inlining procedure: k4657 o|contracted procedure: k4675 o|inlining procedure: k4685 o|contracted procedure: k4694 o|inlining procedure: k4685 o|inlining procedure: k4714 o|inlining procedure: k4714 o|inlining procedure: k4725 o|contracted procedure: k4734 o|inlining procedure: k4725 o|inlining procedure: k4586 o|propagated global variable: g809811 main#*eggs+dirs+vers* o|inlining procedure: k4609 o|contracted procedure: "(chicken-install.scm:443) g761768" o|inlining procedure: k4260 o|contracted procedure: "(chicken-install.scm:444) g777778" o|inlining procedure: k4260 o|contracted procedure: "(chicken-install.scm:452) main#try-default-sources" o|contracted procedure: k3827 o|inlining procedure: k3824 o|contracted procedure: "(chicken-install.scm:375) main#try-extension" o|inlining procedure: k3600 o|inlining procedure: k3600 o|inlining procedure: k3624 o|inlining procedure: k3624 o|inlining procedure: k3642 o|inlining procedure: k3642 o|inlining procedure: k3651 o|inlining procedure: k3651 o|inlining procedure: k3660 o|inlining procedure: k3660 o|contracted procedure: k3695 o|propagated global variable: r3696 main#*retrieve-only* o|inlining procedure: k3845 o|inlining procedure: k3845 o|inlining procedure: k3824 o|contracted procedure: "(chicken-install.scm:451) main#override-version" o|inlining procedure: k3991 o|substituted constant variable: a4008 o|substituted constant variable: a4009 o|inlining procedure: k3991 o|inlining procedure: k3986 o|inlining procedure: k3986 o|inlining procedure: k4072 o|inlining procedure: k4072 o|inlining procedure: k4609 o|inlining procedure: k4776 o|inlining procedure: k4776 o|inlining procedure: k5570 o|inlining procedure: k5570 o|inlining procedure: k5969 o|inlining procedure: k5969 o|inlining procedure: k5991 o|inlining procedure: k5991 o|inlining procedure: k6025 o|inlining procedure: k6025 o|inlining procedure: k6044 o|contracted procedure: "(chicken-install.scm:737) g14301431" o|inlining procedure: k6064 o|inlining procedure: k6064 o|inlining procedure: k6044 o|inlining procedure: k6181 o|inlining procedure: k6181 o|inlining procedure: k6197 o|inlining procedure: k6197 o|merged explicitly consed rest parameter: args1525 o|inlining procedure: k6331 o|inlining procedure: k6346 o|inlining procedure: k6346 o|inlining procedure: k6331 o|inlining procedure: k6367 o|inlining procedure: k6367 o|inlining procedure: k7568 o|inlining procedure: k7568 o|contracted procedure: "(chicken-install.scm:1091) main#main" o|inlining procedure: k6394 o|inlining procedure: k6413 o|contracted procedure: "(chicken-install.scm:876) main#update-db" o|inlining procedure: k5643 o|contracted procedure: "(chicken-install.scm:721) g13801387" o|inlining procedure: k5643 o|inlining procedure: k5757 o|inlining procedure: k5757 o|inlining procedure: k5791 o|inlining procedure: k5791 o|inlining procedure: k5922 o|contracted procedure: "(chicken-install.scm:692) g12591266" o|substituted constant variable: a5870 o|substituted constant variable: a5871 o|inlining procedure: k5922 o|inlining procedure: k6413 o|contracted procedure: "(chicken-install.scm:877) main#scan-directory" o|inlining procedure: k6149 o|contracted procedure: "(chicken-install.scm:748) g14671474" o|inlining procedure: k6149 o|inlining procedure: k6434 o|contracted procedure: "(chicken-install.scm:913) main#list-available-extensions" o|inlining procedure: k6301 o|inlining procedure: k6301 o|inlining procedure: k6434 o|consed rest parameter at call site: "(chicken-install.scm:916) main#show-depends" 2 o|inlining procedure: k6450 o|consed rest parameter at call site: "(chicken-install.scm:918) main#show-depends" 2 o|inlining procedure: k6450 o|contracted procedure: "(chicken-install.scm:920) main#install" o|inlining procedure: k4992 o|consed rest parameter at call site: "(chicken-install.scm:656) main#command" 2 o|inlining procedure: k5077 o|inlining procedure: k5077 o|contracted procedure: k5160 o|inlining procedure: k5157 o|inlining procedure: k5157 o|inlining procedure: k5169 o|inlining procedure: k5169 o|contracted procedure: "(chicken-install.scm:641) main#make-install-command" o|substituted constant variable: a4801 o|substituted constant variable: a4802 o|substituted constant variable: a4878 o|substituted constant variable: a4879 o|substituted constant variable: a4899 o|substituted constant variable: a4900 o|substituted constant variable: a4917 o|substituted constant variable: a4918 o|consed rest parameter at call site: "(chicken-install.scm:555) main#get-prefix" 1 o|substituted constant variable: a4943 o|substituted constant variable: a4944 o|consed rest parameter at call site: "(chicken-install.scm:550) main#get-prefix" 1 o|inlining procedure: k4965 o|inlining procedure: k4965 o|propagated global variable: tmp921923 main#*deploy* o|inlining procedure: k4974 o|propagated global variable: tmp921923 main#*deploy* o|inlining procedure: k4974 o|contracted procedure: "(chicken-install.scm:640) main#delete-stale-binaries" o|inlining procedure: k5259 o|inlining procedure: k5259 o|consed rest parameter at call site: "(chicken-install.scm:626) main#command" 2 o|inlining procedure: k5330 o|inlining procedure: k5330 o|inlining procedure: k5347 o|inlining procedure: k5347 o|substituted constant variable: a5377 o|substituted constant variable: a5378 o|contracted procedure: k5379 o|inlining procedure: k4992 o|inlining procedure: k5419 o|inlining procedure: k5419 o|propagated global variable: out10831087 ##sys#standard-error o|substituted constant variable: a5454 o|substituted constant variable: a5455 o|propagated global variable: out10831087 ##sys#standard-error o|inlining procedure: k5478 o|contracted procedure: "(chicken-install.scm:595) g10561065" o|inlining procedure: k5478 o|inlining procedure: k5524 o|inlining procedure: k5524 o|inlining procedure: k6470 o|inlining procedure: k6470 o|inlining procedure: k6482 o|inlining procedure: k6504 o|inlining procedure: k6504 o|propagated global variable: tmp15651567 main#*force* o|propagated global variable: tmp15651567 main#*force* o|substituted constant variable: a6546 o|substituted constant variable: a6547 o|contracted procedure: "(chicken-install.scm:882) main#installed-extensions" o|inlining procedure: k6247 o|inlining procedure: k6247 o|inlining procedure: k6482 o|contracted procedure: k6567 o|inlining procedure: k6573 o|inlining procedure: k6606 o|contracted procedure: "(chicken-install.scm:896) g16201629" o|inlining procedure: k6606 o|inlining procedure: k6573 o|contracted procedure: "(chicken-install.scm:879) main#load-defaults" o|contracted procedure: k2577 o|inlining procedure: k2588 o|contracted procedure: k2597 o|contracted procedure: k2606 o|inlining procedure: k2603 o|inlining procedure: k2603 o|substituted constant variable: a2617 o|substituted constant variable: a2618 o|inlining procedure: k2588 o|inlining procedure: k2671 o|inlining procedure: k2731 o|inlining procedure: k2731 o|inlining procedure: k2671 o|inlining procedure: k2778 o|inlining procedure: k2778 o|inlining procedure: k2801 o|inlining procedure: k2801 o|substituted constant variable: a2810 o|inlining procedure: k2823 o|inlining procedure: k2823 o|inlining procedure: k2854 o|inlining procedure: k2854 o|substituted constant variable: a2913 o|substituted constant variable: a2915 o|substituted constant variable: a2917 o|substituted constant variable: a2919 o|substituted constant variable: a2921 o|substituted constant variable: a2923 o|inlining procedure: k2571 o|inlining procedure: k2944 o|inlining procedure: k2944 o|inlining procedure: k2571 o|inlining procedure: k6643 o|inlining procedure: k6643 o|inlining procedure: k6394 o|substituted constant variable: a6668 o|inlining procedure: k6664 o|inlining procedure: k6664 o|substituted constant variable: a6679 o|substituted constant variable: a6690 o|inlining procedure: k6686 o|inlining procedure: k6686 o|substituted constant variable: a6704 o|substituted constant variable: a6720 o|inlining procedure: k6716 o|inlining procedure: k6716 o|substituted constant variable: a6734 o|substituted constant variable: a6763 o|inlining procedure: k6759 o|inlining procedure: k6759 o|substituted constant variable: a6796 o|substituted constant variable: a6842 o|inlining procedure: k6838 o|inlining procedure: k6838 o|substituted constant variable: a6853 o|substituted constant variable: a6868 o|inlining procedure: k6864 o|inlining procedure: k6864 o|substituted constant variable: a6883 o|substituted constant variable: a6897 o|inlining procedure: k6893 o|contracted procedure: "(chicken-install.scm:975) main#init-repository" o|consed rest parameter at call site: "(chicken-install.scm:218) main#command" 2 o|substituted constant variable: main#+default-repository-files+ o|inlining procedure: k3093 o|inlining procedure: k3093 o|substituted constant variable: main#+default-repository-files+ o|inlining procedure: k6893 o|substituted constant variable: a6925 o|substituted constant variable: a6955 o|inlining procedure: k6952 o|inlining procedure: k6952 o|substituted constant variable: a6992 o|substituted constant variable: a7026 o|inlining procedure: k7023 o|inlining procedure: k7023 o|substituted constant variable: a7037 o|substituted constant variable: a7048 o|inlining procedure: k7045 o|inlining procedure: k7045 o|substituted constant variable: a7059 o|substituted constant variable: a7070 o|inlining procedure: k7067 o|inlining procedure: k7067 o|substituted constant variable: a7081 o|substituted constant variable: a7107 o|inlining procedure: k7104 o|inlining procedure: k7104 o|substituted constant variable: a7133 o|substituted constant variable: a7164 o|inlining procedure: k7161 o|inlining procedure: k7161 o|substituted constant variable: a7178 o|substituted constant variable: a7189 o|inlining procedure: k7186 o|inlining procedure: k7186 o|substituted constant variable: a7200 o|substituted constant variable: a7211 o|inlining procedure: k7208 o|inlining procedure: k7208 o|substituted constant variable: a7222 o|substituted constant variable: a7248 o|inlining procedure: k7245 o|inlining procedure: k7245 o|substituted constant variable: a7274 o|substituted constant variable: a7285 o|inlining procedure: k7282 o|inlining procedure: k7282 o|inlining procedure: k7299 o|inlining procedure: k7338 o|contracted procedure: "(chicken-install.scm:1053) g17571766" o|inlining procedure: k7338 o|substituted constant variable: main#*short-options* o|inlining procedure: k7299 o|substituted constant variable: a7389 o|inlining procedure: k7391 o|inlining procedure: k7421 o|inlining procedure: k7421 o|inlining procedure: k7391 o|substituted constant variable: a7490 o|substituted constant variable: a7487 o|substituted constant variable: a7492 o|substituted constant variable: a7494 o|substituted constant variable: a7497 o|substituted constant variable: a7499 o|substituted constant variable: a7501 o|substituted constant variable: a7503 o|substituted constant variable: a7505 o|substituted constant variable: a7507 o|substituted constant variable: a7509 o|substituted constant variable: a7511 o|substituted constant variable: a7513 o|substituted constant variable: a7515 o|inlining procedure: k7516 o|inlining procedure: k7516 o|substituted constant variable: a7520 o|replaced variables: 944 o|removed binding forms: 429 o|Removed `not' forms: 2 o|removed side-effect free assignment to unused variable: main#+default-repository-files+ o|substituted constant variable: r30507625 o|substituted constant variable: r31467629 o|substituted constant variable: r32247633 o|substituted constant variable: r32247633 o|substituted constant variable: r32637639 o|substituted constant variable: r32637639 o|inlining procedure: k3262 o|inlining procedure: k3262 o|contracted procedure: k3314 o|substituted constant variable: r33157651 o|substituted constant variable: r34337659 o|propagated global variable: a30167674 main#*default-location* o|propagated global variable: out690694 ##sys#standard-output o|substituted constant variable: r41097681 o|substituted constant variable: r42287684 o|substituted constant variable: r42287684 o|inlining procedure: k4227 o|inlining procedure: k4227 o|substituted constant variable: r32027705 o|substituted constant variable: r32027705 o|propagated global variable: r44607711 main#*force* o|substituted constant variable: r47157730 o|converted assignments to bindings: (fail898) o|substituted constant variable: r36437743 o|substituted constant variable: r36527745 o|substituted constant variable: r36617747 o|inlining procedure: k6361 o|inlining procedure: k6361 o|substituted constant variable: r63477790 o|substituted constant variable: r63327791 o|removed side-effect free assignment to unused variable: main#*short-options* o|substituted constant variable: r75697794 o|substituted constant variable: r75697794 o|substituted constant variable: r75697796 o|substituted constant variable: r75697796 o|substituted constant variable: r51587820 o|substituted constant variable: r51707823 o|contracted procedure: k4965 o|substituted constant variable: r49667825 o|propagated global variable: r49757826 main#*deploy* o|inlining procedure: k4974 o|substituted constant variable: r53317831 o|propagated global variable: out10831087 ##sys#standard-error o|substituted constant variable: r62487849 o|substituted constant variable: r28027866 o|inlining procedure: k2861 o|converted assignments to bindings: (broken256) o|inlining procedure: k7421 o|simplifications: ((let . 2)) o|replaced variables: 38 o|removed binding forms: 1000 o|removed conditional forms: 2 o|Removed `not' forms: 1 o|inlining procedure: k2538 o|inlining procedure: k2538 o|propagated global variable: r25398051 main#*prefix* o|propagated global variable: r25398051 main#*prefix* o|inlining procedure: k3046 o|substituted constant variable: r32637936 o|inlining procedure: k3770 o|inlining procedure: k4311 o|substituted constant variable: r63627986 o|inlining procedure: "(chicken-install.scm:656) main#command" o|inlining procedure: "(chicken-install.scm:558) main#back-slash->forward-slash" o|inlining procedure: "(chicken-install.scm:553) main#back-slash->forward-slash" o|contracted procedure: k4974 o|propagated global variable: r4975 main#*host-extension* o|substituted constant variable: r49758009 o|inlining procedure: "(chicken-install.scm:626) main#command" o|inlining procedure: k6467 o|inlining procedure: k2924 o|inlining procedure: k2924 o|inlining procedure: "(chicken-install.scm:927) main#usage" o|inlining procedure: "(chicken-install.scm:944) main#usage" o|inlining procedure: "(chicken-install.scm:948) main#usage" o|inlining procedure: "(chicken-install.scm:952) main#usage" o|inlining procedure: "(chicken-install.scm:218) main#command" o|inlining procedure: "(chicken-install.scm:974) main#usage" o|inlining procedure: "(chicken-install.scm:978) main#usage" o|inlining procedure: "(chicken-install.scm:982) main#usage" o|inlining procedure: "(chicken-install.scm:987) main#usage" o|inlining procedure: "(chicken-install.scm:1007) main#usage" o|inlining procedure: "(chicken-install.scm:1011) main#usage" o|inlining procedure: "(chicken-install.scm:1015) main#usage" o|inlining procedure: "(chicken-install.scm:1034) main#usage" o|inlining procedure: "(chicken-install.scm:1038) main#usage" o|inlining procedure: "(chicken-install.scm:1056) main#usage" o|inlining procedure: "(chicken-install.scm:1057) main#usage" o|replaced variables: 24 o|removed binding forms: 80 o|removed conditional forms: 1 o|substituted constant variable: r25398050 o|substituted constant variable: r25398050 o|substituted constant variable: r30478052 o|substituted constant variable: r30478052 o|substituted constant variable: r30478052 o|substituted constant variable: r42287954 o|removed side-effect free assignment to unused variable: main#back-slash->forward-slash o|removed side-effect free assignment to unused variable: main#command o|removed side-effect free assignment to unused variable: main#usage o|substituted constant variable: fstr15248095 o|substituted constant variable: fstr15248107 o|substituted constant variable: r29258127 o|substituted constant variable: code15288131 o|substituted constant variable: code15288136 o|substituted constant variable: code15288141 o|substituted constant variable: code15288146 o|substituted constant variable: fstr15248151 o|substituted constant variable: code15288159 o|substituted constant variable: code15288164 o|substituted constant variable: code15288169 o|substituted constant variable: code15288174 o|substituted constant variable: code15288179 o|substituted constant variable: code15288184 o|substituted constant variable: code15288189 o|substituted constant variable: code15288194 o|substituted constant variable: code15288199 o|substituted constant variable: code15288206 o|substituted constant variable: code15288211 o|simplifications: ((let . 1)) o|replaced variables: 10 o|removed binding forms: 32 o|removed conditional forms: 3 o|inlining procedure: k4932 o|inlining procedure: k4958 o|removed binding forms: 31 o|simplifications: ((if . 46) (##core#call . 417)) o| call simplifications: o| string=? o| alist-cons 2 o| ##sys#size 2 o| fx> o| string->list o| memq o| string o| cddr 2 o| = o| first o| length o| list-ref o| > o| caddr 3 o| apply 3 o| string->number o| ##sys#apply 5 o| ##sys#structure? o| memv 6 o| ##sys#setslot 10 o| list 10 o| ##sys#check-list 12 o| pair? 54 o| ##sys#slot 57 o| ##sys#list 9 o| set-car! o| list? 5 o| string? 5 o| symbol? 4 o| cons 39 o| ##sys#call-with-values 12 o| values 18 o| eq? 21 o| equal? 6 o| member 4 o| cadr 41 o| assq 10 o| assoc 3 o| cdr 13 o| null? 9 o| car 28 o| not 10 o| ##sys#fudge o|contracted procedure: k2468 o|contracted procedure: k2517 o|contracted procedure: k2553 o|contracted procedure: k2529 o|contracted procedure: k2535 o|contracted procedure: k2975 o|contracted procedure: k2983 o|contracted procedure: k3043 o|contracted procedure: k3046 o|contracted procedure: k3119 o|contracted procedure: k3142 o|contracted procedure: k3152 o|contracted procedure: k3168 o|contracted procedure: k3177 o|contracted procedure: k3213 o|contracted procedure: k3216 o|contracted procedure: k3246 o|contracted procedure: k3255 o|contracted procedure: k3278 o|contracted procedure: k3287 o|contracted procedure: k3297 o|contracted procedure: k3308 o|contracted procedure: k3378 o|contracted procedure: k3385 o|contracted procedure: k3397 o|contracted procedure: k3416 o|contracted procedure: k3420 o|contracted procedure: k3429 o|contracted procedure: k3435 o|contracted procedure: k3450 o|contracted procedure: k3438 o|contracted procedure: k3456 o|contracted procedure: k3463 o|contracted procedure: k3731 o|contracted procedure: k3752 o|contracted procedure: k3780 o|contracted procedure: k37778060 o|contracted procedure: k3770 o|contracted procedure: k3777 o|contracted procedure: k3787 o|contracted procedure: k3801 o|inlining procedure: k3797 o|inlining procedure: k3797 o|contracted procedure: k2998 o|contracted procedure: k3013 o|contracted procedure: k3005 o|contracted procedure: k3030 o|contracted procedure: k4243 o|contracted procedure: k4088 o|contracted procedure: k4120 o|contracted procedure: k4131 o|contracted procedure: k4143 o|contracted procedure: k4153 o|contracted procedure: k4157 o|contracted procedure: k4162 o|contracted procedure: k4186 o|contracted procedure: k4191 o|contracted procedure: k4209 o|contracted procedure: k4219 o|contracted procedure: k4223 o|propagated global variable: g712714 main#*eggs+dirs+vers* o|contracted procedure: k4230 o|propagated global variable: out690694 ##sys#standard-output o|contracted procedure: k4236 o|contracted procedure: k4328 o|contracted procedure: k4577 o|contracted procedure: k4589 o|contracted procedure: k4599 o|contracted procedure: k4603 o|contracted procedure: k4574 o|contracted procedure: k4342 o|contracted procedure: k4346 o|contracted procedure: k4386 o|contracted procedure: k3481 o|contracted procedure: k3496 o|contracted procedure: k3510 o|contracted procedure: k3530 o|contracted procedure: k3534 o|contracted procedure: k3549 o|contracted procedure: k3559 o|contracted procedure: k3563 o|propagated global variable: g514516 main#*hacks* o|contracted procedure: k4491 o|contracted procedure: k4495 o|contracted procedure: k4510 o|contracted procedure: k4487 o|contracted procedure: k4397 o|contracted procedure: k4435 o|contracted procedure: k4445 o|contracted procedure: k4449 o|contracted procedure: k4456 o|contracted procedure: k3974 o|contracted procedure: k3865 o|contracted procedure: k3875 o|contracted procedure: k3932 o|contracted procedure: k3936 o|contracted procedure: k3886 o|contracted procedure: k3928 o|contracted procedure: k3948 o|contracted procedure: k3951 o|contracted procedure: k3970 o|contracted procedure: k4473 o|contracted procedure: k4522 o|contracted procedure: k4525 o|contracted procedure: k4528 o|contracted procedure: k4536 o|contracted procedure: k4544 o|contracted procedure: k4503 o|contracted procedure: k4641 o|contracted procedure: k4651 o|contracted procedure: k4660 o|contracted procedure: k4770 o|contracted procedure: k4705 o|contracted procedure: k4711 o|contracted procedure: k4728 o|contracted procedure: k4750 o|contracted procedure: k4766 o|contracted procedure: k4757 o|contracted procedure: k4682 o|contracted procedure: k4566 o|propagated global variable: g809811 main#*eggs+dirs+vers* o|contracted procedure: k4612 o|contracted procedure: k4622 o|contracted procedure: k4626 o|contracted procedure: k4257 o|contracted procedure: k4266 o|contracted procedure: k4324 o|contracted procedure: k4276 o|contracted procedure: k3669 o|contracted procedure: k3597 o|contracted procedure: k3645 o|contracted procedure: k3654 o|contracted procedure: k3663 o|contracted procedure: k3692 o|contracted procedure: k4305 o|contracted procedure: k4301 o|contracted procedure: k4308 o|contracted procedure: k4311 o|contracted procedure: k3983 o|contracted procedure: k4035 o|contracted procedure: k4039 o|contracted procedure: k4045 o|contracted procedure: k4056 o|contracted procedure: k4052 o|contracted procedure: k4067 o|contracted procedure: k4075 o|contracted procedure: k5972 o|contracted procedure: k5985 o|contracted procedure: k5994 o|contracted procedure: k6007 o|contracted procedure: k6011 o|contracted procedure: k6049 o|contracted procedure: k6052 o|contracted procedure: k6055 o|contracted procedure: k6067 o|contracted procedure: k6070 o|contracted procedure: k6073 o|contracted procedure: k6081 o|contracted procedure: k6089 o|contracted procedure: k6114 o|contracted procedure: k6184 o|contracted procedure: k6212 o|contracted procedure: k6334 o|contracted procedure: k6358 o|contracted procedure: k6375 o|contracted procedure: k6370 o|contracted procedure: k6397 o|contracted procedure: k5646 o|contracted procedure: k5656 o|contracted procedure: k5660 o|contracted procedure: k5682 o|contracted procedure: k5686 o|contracted procedure: k5692 o|contracted procedure: k5717 o|contracted procedure: k5726 o|contracted procedure: k5729 o|contracted procedure: k5736 o|contracted procedure: k5745 o|contracted procedure: k5748 o|contracted procedure: k5760 o|contracted procedure: k5763 o|contracted procedure: k5766 o|contracted procedure: k5774 o|contracted procedure: k5782 o|contracted procedure: k5794 o|contracted procedure: k5797 o|contracted procedure: k5800 o|contracted procedure: k5808 o|contracted procedure: k5816 o|contracted procedure: k5925 o|contracted procedure: k5935 o|contracted procedure: k5939 o|contracted procedure: k5897 o|contracted procedure: k6140 o|contracted procedure: k6152 o|contracted procedure: k6162 o|contracted procedure: k6166 o|contracted procedure: k6130 o|contracted procedure: k6126 o|contracted procedure: k4999 o|contracted procedure: k5036 o|contracted procedure: k5093 o|contracted procedure: k5236 o|contracted procedure: k5240 o|contracted procedure: k5244 o|contracted procedure: k4793 o|contracted procedure: k4822 o|contracted procedure: k4826 o|contracted procedure: k4830 o|contracted procedure: k4834 o|contracted procedure: k4860 o|contracted procedure: k4871 o|contracted procedure: k4892 o|contracted procedure: k5560 o|contracted procedure: k5564 o|contracted procedure: k5547 o|contracted procedure: k5262 o|contracted procedure: k5287 o|contracted procedure: k5323 o|contracted procedure: k5337 o|contracted procedure: k5341 o|contracted procedure: k5344 o|contracted procedure: k5382 o|contracted procedure: k5403 o|contracted procedure: k5406 o|contracted procedure: k5447 o|contracted procedure: k5422 o|contracted procedure: k5432 o|contracted procedure: k5436 o|contracted procedure: k5440 o|contracted procedure: k5444 o|contracted procedure: k5472 o|contracted procedure: k5481 o|contracted procedure: k5503 o|contracted procedure: k5499 o|contracted procedure: k5484 o|contracted procedure: k5487 o|contracted procedure: k5495 o|contracted procedure: k5527 o|contracted procedure: k6479 o|contracted procedure: k6495 o|contracted procedure: k6507 o|contracted procedure: k6510 o|contracted procedure: k6513 o|contracted procedure: k6521 o|contracted procedure: k6529 o|contracted procedure: k6561 o|contracted procedure: k6235 o|contracted procedure: k6238 o|contracted procedure: k6241 o|contracted procedure: k6244 o|contracted procedure: k6256 o|contracted procedure: k6576 o|contracted procedure: k6584 o|contracted procedure: k6609 o|contracted procedure: k6612 o|contracted procedure: k6615 o|contracted procedure: k6623 o|contracted procedure: k6631 o|contracted procedure: k6597 o|contracted procedure: k2585 o|contracted procedure: k2591 o|contracted procedure: k2650 o|contracted procedure: k2646 o|contracted procedure: k2642 o|contracted procedure: k2638 o|contracted procedure: k2658 o|contracted procedure: k2666 o|contracted procedure: k2674 o|contracted procedure: k2682 o|contracted procedure: k2709 o|contracted procedure: k2722 o|contracted procedure: k2734 o|contracted procedure: k2737 o|contracted procedure: k2740 o|contracted procedure: k2748 o|contracted procedure: k2756 o|contracted procedure: k2765 o|contracted procedure: k2773 o|contracted procedure: k2788 o|contracted procedure: k2792 o|contracted procedure: k2798 o|contracted procedure: k2804 o|contracted procedure: k2814 o|contracted procedure: k2826 o|contracted procedure: k2829 o|contracted procedure: k2832 o|contracted procedure: k2840 o|contracted procedure: k2848 o|contracted procedure: k2857 o|contracted procedure: k2871 o|contracted procedure: k2875 o|contracted procedure: k2882 o|contracted procedure: k2890 o|contracted procedure: k2898 o|contracted procedure: k2906 o|contracted procedure: k2930 o|contracted procedure: k2947 o|contracted procedure: k2957 o|contracted procedure: k2961 o|contracted procedure: k6649 o|contracted procedure: k6655 o|contracted procedure: k6691 o|contracted procedure: k6705 o|contracted procedure: k6721 o|contracted procedure: k6735 o|contracted procedure: k6742 o|contracted procedure: k6751 o|contracted procedure: k6764 o|contracted procedure: k6781 o|contracted procedure: k6784 o|contracted procedure: k6797 o|contracted procedure: k6804 o|contracted procedure: k6830 o|contracted procedure: k6854 o|contracted procedure: k6884 o|contracted procedure: k6898 o|contracted procedure: k6911 o|contracted procedure: k3061 o|contracted procedure: k3096 o|contracted procedure: k3106 o|contracted procedure: k3110 o|contracted procedure: k6914 o|contracted procedure: k6937 o|contracted procedure: k6941 o|contracted procedure: k6944 o|contracted procedure: k6957 o|contracted procedure: k6964 o|contracted procedure: k6978 o|contracted procedure: k6981 o|contracted procedure: k6998 o|contracted procedure: k7012 o|contracted procedure: k7015 o|contracted procedure: k7087 o|contracted procedure: k7096 o|contracted procedure: k7113 o|contracted procedure: k7122 o|contracted procedure: k7146 o|contracted procedure: k7150 o|contracted procedure: k7153 o|contracted procedure: k7166 o|contracted procedure: k7228 o|contracted procedure: k7237 o|contracted procedure: k7254 o|contracted procedure: k7263 o|contracted procedure: k7386 o|contracted procedure: k7302 o|contracted procedure: k7322 o|contracted procedure: k7341 o|contracted procedure: k7363 o|contracted procedure: k7359 o|contracted procedure: k7344 o|contracted procedure: k7347 o|contracted procedure: k7355 o|contracted procedure: k7394 o|contracted procedure: k7401 o|contracted procedure: k7410 o|contracted procedure: k7452 o|contracted procedure: k7456 o|contracted procedure: k7476 o|contracted procedure: k7484 o|simplifications: ((if . 1) (let . 69)) o|removed binding forms: 355 o|inlining procedure: k3009 o|inlining procedure: k3009 o|inlining procedure: k5399 o|inlining procedure: k5399 o|replaced variables: 101 o|removed binding forms: 1 o|simplifications: ((if . 1)) o|replaced variables: 4 o|removed binding forms: 57 o|removed binding forms: 4 o|direct leaf routine/allocation: main#deps 0 o|direct leaf routine/allocation: g13281337 9 o|direct leaf routine/allocation: g13551364 9 o|contracted procedure: "(chicken-install.scm:432) k4169" o|contracted procedure: "(chicken-install.scm:432) k4173" o|contracted procedure: "(chicken-install.scm:243) k3193" o|contracted procedure: "(chicken-install.scm:244) k3197" o|contracted procedure: "(chicken-install.scm:245) k3201" o|contracted procedure: "(chicken-install.scm:715) k5778" o|contracted procedure: "(chicken-install.scm:714) k5812" o|removed binding forms: 7 o|replaced variables: 14 o|removed binding forms: 6 o|customizable procedures: (k6658 k7296 g17871788 k7414 map-loop17511776 main#setup-proxy g412419 for-each-loop411422 loop1549 g261268 for-each-loop260373 k2864 g350359 map-loop344364 g305314 map-loop299335 broken256 map-loop16141632 g15131514 map-loop15831600 k4986 map-loop10501075 g10961104 for-each-loop10951219 k5024 k5350 setup1121 k4789 main#get-prefix tmp11271136 tmp11541163 main#$system main#show-depends for-each-loop14661477 for-each-loop12581297 map-loop13221340 map-loop13491367 for-each-loop13791391 g14921493 map-loop14351452 canonical1404 g656657 k3997 main#with-default-sources k3603 k3615 k3627 for-each-loop760795 k4688 fail898 main#apply-mappings k4540 map-loop829847 g625626 for-each-loop862874 g508515 for-each-loop507518 loop523 for-each-loop802888 main#retrieve g706713 for-each-loop705746 main#cleanup for-each-loop722740 k3020 k3761 trying-sources587 k3239 k3329 k3301 scan467 main#check-dependency main#ext-version k3122 main#repo-path main#resolve-location) o|calls to known targets: 265 o|identified direct recursive calls: f_2973 1 o|identified direct recursive calls: f_3726 1 o|identified direct recursive calls: f_5755 1 o|identified direct recursive calls: f_5789 1 o|identified direct recursive calls: f_5476 1 o|identified direct recursive calls: f_7336 1 o|fast box initializations: 29 o|fast global references: 193 o|fast global assignments: 105 o|dropping unused closure argument: f_2460 o|dropping unused closure argument: f_2527 o|dropping unused closure argument: f_6329 o|dropping unused closure argument: f_5967 o|dropping unused closure argument: f_5964 o|dropping unused closure argument: f_3208 o|dropping unused closure argument: f_4080 o|dropping unused closure argument: f_3717 o|dropping unused closure argument: f_5568 o|dropping unused closure argument: f_4250 o|dropping unused closure argument: f_3041 o|dropping unused closure argument: f_3114 o|dropping unused closure argument: f_2973 o|dropping unused closure argument: f_6170 */ /* end of file */ chicken-4.12.0/optimizer.c0000644000175000017500000265611413052306450015213 0ustar sjamaansjamaan/* Generated from optimizer.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:18 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: optimizer.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -no-lambda-info -extend private-namespace.scm -no-trace -output-file optimizer.c unit: optimizer */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[229]; static double C_possibly_force_alignment; 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_6942) static void C_ccall f_6942(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_8229) static void C_ccall f_8229(C_word c,C_word *av) C_noret; C_noret_decl(f_6508) static void C_fcall f_6508(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5034) static void C_ccall f_5034(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_4636) static void C_ccall f_4636(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_6259) static void C_ccall f_6259(C_word c,C_word *av) C_noret; C_noret_decl(f_13262) static void C_ccall f_13262(C_word c,C_word *av) C_noret; C_noret_decl(f_8209) static void C_ccall f_8209(C_word c,C_word *av) C_noret; C_noret_decl(f_4669) static void C_fcall f_4669(C_word t0,C_word t1) C_noret; C_noret_decl(f_6283) static void C_ccall f_6283(C_word c,C_word *av) C_noret; C_noret_decl(f_4659) static void C_fcall f_4659(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13208) static void C_ccall f_13208(C_word c,C_word *av) C_noret; C_noret_decl(f_13202) static void C_ccall f_13202(C_word c,C_word *av) C_noret; C_noret_decl(f_6590) static void C_ccall f_6590(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_10287) static void C_ccall f_10287(C_word c,C_word *av) C_noret; C_noret_decl(f_6599) static void C_fcall f_6599(C_word t0,C_word t1) C_noret; C_noret_decl(f_5150) static void C_fcall f_5150(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11800) static void C_fcall f_11800(C_word t0,C_word t1,C_word t2) 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_6293) static void C_fcall f_6293(C_word t0,C_word t1) 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_6571) static void C_ccall f_6571(C_word c,C_word *av) C_noret; C_noret_decl(f_12861) static void C_ccall f_12861(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_4610) static void C_ccall f_4610(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_7715) static void C_ccall f_7715(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_7287) static void C_ccall f_7287(C_word c,C_word *av) C_noret; C_noret_decl(f_6557) static void C_ccall f_6557(C_word c,C_word *av) C_noret; C_noret_decl(f_6554) static void C_ccall f_6554(C_word c,C_word *av) C_noret; C_noret_decl(f_11451) static C_word C_fcall f_11451(C_word *a,C_word t0); C_noret_decl(f_8348) static void C_fcall f_8348(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11443) static void C_ccall f_11443(C_word c,C_word *av) C_noret; C_noret_decl(f_7277) static void C_fcall f_7277(C_word t0,C_word t1,C_word t2,C_word t3) 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_11448) static void C_ccall f_11448(C_word c,C_word *av) C_noret; C_noret_decl(f_8314) static void C_fcall f_8314(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7264) static void C_ccall f_7264(C_word c,C_word *av) 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_5986) static void C_ccall f_5986(C_word c,C_word *av) C_noret; C_noret_decl(f_13275) static void C_ccall f_13275(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_4792) static void C_ccall f_4792(C_word c,C_word *av) C_noret; C_noret_decl(f_11426) static void C_fcall f_11426(C_word t0,C_word t1) 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_10827) static void C_ccall f_10827(C_word c,C_word *av) C_noret; C_noret_decl(f_5215) static void C_fcall f_5215(C_word t0,C_word t1) C_noret; C_noret_decl(f_11418) static void C_ccall f_11418(C_word c,C_word *av) C_noret; C_noret_decl(f_13297) static void C_ccall f_13297(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_noret; C_noret_decl(f_4765) static void C_ccall f_4765(C_word c,C_word *av) C_noret; C_noret_decl(f_4767) static void C_fcall f_4767(C_word t0,C_word t1,C_word t2) 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_10847) static void C_ccall f_10847(C_word c,C_word *av) C_noret; C_noret_decl(f_10844) static void C_ccall f_10844(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_5269) static void C_ccall f_5269(C_word c,C_word *av) C_noret; C_noret_decl(f_5263) static void C_ccall f_5263(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_5090) static void C_ccall f_5090(C_word c,C_word *av) C_noret; C_noret_decl(f_5253) static void C_fcall f_5253(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5252) static void C_ccall f_5252(C_word c,C_word *av) C_noret; C_noret_decl(f_5097) static void C_fcall f_5097(C_word t0,C_word t1) 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_10593) static void C_ccall f_10593(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_5999) static void C_ccall f_5999(C_word c,C_word *av) C_noret; C_noret_decl(f_10342) static void C_ccall f_10342(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_10376) static void C_ccall f_10376(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_10321) static void C_ccall f_10321(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_13238) static void C_ccall f_13238(C_word c,C_word *av) C_noret; C_noret_decl(f_13232) static void C_ccall f_13232(C_word c,C_word *av) C_noret; C_noret_decl(f_8082) static void C_ccall f_8082(C_word c,C_word *av) 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_8565) static void C_ccall f_8565(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_6640) static void C_fcall f_6640(C_word t0,C_word t1) C_noret; C_noret_decl(f_10067) static void C_ccall f_10067(C_word c,C_word *av) C_noret; C_noret_decl(f_8545) static void C_fcall f_8545(C_word t0,C_word t1) 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_5455) static void C_ccall f_5455(C_word c,C_word *av) C_noret; C_noret_decl(f_6631) static void C_fcall f_6631(C_word t0,C_word t1) C_noret; C_noret_decl(f_13118) static void C_ccall f_13118(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_13126) static void C_ccall f_13126(C_word c,C_word *av) C_noret; C_noret_decl(f_10055) static void C_ccall f_10055(C_word c,C_word *av) C_noret; C_noret_decl(f_11881) static void C_fcall f_11881(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13044) static void C_fcall f_13044(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_10025) static void C_ccall f_10025(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_6625) static void C_ccall f_6625(C_word c,C_word *av) C_noret; C_noret_decl(f_12098) static void C_fcall f_12098(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6619) static void C_fcall f_6619(C_word t0,C_word t1) C_noret; C_noret_decl(f_9219) static void C_ccall f_9219(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_12556) static void C_fcall f_12556(C_word t0,C_word t1,C_word t2) 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_12547) static void C_ccall f_12547(C_word c,C_word *av) C_noret; C_noret_decl(f_12179) static void C_ccall f_12179(C_word c,C_word *av) C_noret; C_noret_decl(f_9522) static void C_ccall f_9522(C_word c,C_word *av) C_noret; C_noret_decl(f_5641) static void C_ccall f_5641(C_word c,C_word *av) C_noret; C_noret_decl(f_9528) static void C_ccall f_9528(C_word c,C_word *av) C_noret; C_noret_decl(f_9534) static void C_fcall f_9534(C_word t0,C_word t1) 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_5630) static void C_ccall f_5630(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_12509) static void C_fcall f_12509(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5685) static void C_ccall f_5685(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_12187) static void C_ccall f_12187(C_word c,C_word *av) C_noret; C_noret_decl(f_12075) static void C_fcall f_12075(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12183) static void C_ccall f_12183(C_word c,C_word *av) C_noret; C_noret_decl(f_6988) static void C_ccall f_6988(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_5401) static void C_fcall f_5401(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12085) static void C_ccall f_12085(C_word c,C_word *av) C_noret; C_noret_decl(f_5698) static void C_ccall f_5698(C_word c,C_word *av) C_noret; C_noret_decl(f_8897) static void C_ccall f_8897(C_word c,C_word *av) C_noret; C_noret_decl(f_8893) static void C_ccall f_8893(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_6975) static void C_ccall f_6975(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_13075) static void C_fcall f_13075(C_word t0,C_word t1) C_noret; C_noret_decl(f_6227) static void C_ccall f_6227(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_6969) static void C_ccall f_6969(C_word c,C_word *av) C_noret; C_noret_decl(f_12201) static void C_ccall f_12201(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_6217) static void C_fcall f_6217(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10223) static void C_fcall f_10223(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_4672) static void C_ccall f_4672(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_9026) static void C_ccall f_9026(C_word c,C_word *av) 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_6242) static void C_ccall f_6242(C_word c,C_word *av) C_noret; C_noret_decl(f_9022) static void C_fcall f_9022(C_word t0,C_word t1) 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_6857) static void C_ccall f_6857(C_word c,C_word *av) C_noret; C_noret_decl(f_5605) static void C_fcall f_5605(C_word t0,C_word t1,C_word t2) 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_7771) static void C_ccall f_7771(C_word c,C_word *av) C_noret; C_noret_decl(f_6844) static void C_ccall f_6844(C_word c,C_word *av) C_noret; C_noret_decl(f_6324) static void C_ccall f_6324(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_6312) static void C_ccall f_6312(C_word c,C_word *av) C_noret; C_noret_decl(f_10991) static void C_fcall f_10991(C_word t0,C_word t1,C_word t2) 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_5479) static void C_ccall f_5479(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_5426) static void C_ccall f_5426(C_word c,C_word *av) C_noret; C_noret_decl(f_5443) static void C_ccall f_5443(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_12247) static void C_ccall f_12247(C_word c,C_word *av) C_noret; C_noret_decl(f_5437) static void C_ccall f_5437(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_4933) static void C_ccall f_4933(C_word c,C_word *av) C_noret; C_noret_decl(f_6396) static void C_fcall f_6396(C_word t0,C_word t1) 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_10201) static void C_ccall f_10201(C_word c,C_word *av) C_noret; C_noret_decl(f_6423) static void C_ccall f_6423(C_word c,C_word *av) C_noret; C_noret_decl(f_6427) static void C_ccall f_6427(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_11811) static void C_ccall f_11811(C_word c,C_word *av) C_noret; C_noret_decl(f_11815) static void C_fcall f_11815(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6389) static void C_ccall f_6389(C_word c,C_word *av) C_noret; C_noret_decl(f_6383) static void C_ccall f_6383(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_4802) static void C_ccall f_4802(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_6417) static void C_ccall f_6417(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_3783) static void C_fcall f_3783(C_word t0,C_word t1,C_word t2,C_word t3) 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_6184) static void C_fcall f_6184(C_word t0,C_word t1) 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_3790) static C_word C_fcall f_3790(C_word t0); 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_3795) static void C_fcall f_3795(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8115) static void C_ccall f_8115(C_word c,C_word *av) C_noret; C_noret_decl(f_8561) static void C_ccall f_8561(C_word c,C_word *av) C_noret; C_noret_decl(f_6368) static void C_ccall f_6368(C_word c,C_word *av) C_noret; C_noret_decl(f_6834) static void C_fcall f_6834(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5177) static void C_fcall f_5177(C_word t0,C_word t1) C_noret; C_noret_decl(f_3760) static void C_fcall f_3760(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3767) static void C_fcall f_3767(C_word t0,C_word t1) C_noret; C_noret_decl(f_6352) static void C_fcall f_6352(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_8123) static void C_ccall f_8123(C_word c,C_word *av) C_noret; C_noret_decl(f_6358) static void C_fcall f_6358(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_6823) static void C_ccall f_6823(C_word c,C_word *av) C_noret; C_noret_decl(f_5160) static void C_ccall f_5160(C_word c,C_word *av) C_noret; C_noret_decl(f_6158) static void C_ccall f_6158(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_5118) static void C_fcall f_5118(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11842) static void C_ccall f_11842(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_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_13301) static void C_ccall f_13301(C_word c,C_word *av) C_noret; C_noret_decl(f_6335) static void C_ccall f_6335(C_word c,C_word *av) C_noret; C_noret_decl(f_13305) static void C_ccall f_13305(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_9726) static void C_ccall f_9726(C_word c,C_word *av) C_noret; C_noret_decl(f_6331) static void C_ccall f_6331(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_13318) static void C_ccall f_13318(C_word c,C_word *av) C_noret; C_noret_decl(f_9607) static void C_ccall f_9607(C_word c,C_word *av) C_noret; C_noret_decl(f_9609) static void C_ccall f_9609(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_6475) static void C_ccall f_6475(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_5249) static void C_fcall f_5249(C_word t0,C_word t1) C_noret; C_noret_decl(f_4296) static C_word C_fcall f_4296(C_word t0,C_word t1); C_noret_decl(f_4900) static void C_ccall f_4900(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_7816) static void C_ccall f_7816(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_6433) static void C_ccall f_6433(C_word c,C_word *av) C_noret; C_noret_decl(f_6436) static void C_ccall f_6436(C_word c,C_word *av) C_noret; C_noret_decl(f_6439) static void C_ccall f_6439(C_word c,C_word *av) C_noret; C_noret_decl(f_6430) static void C_ccall f_6430(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_5288) static void C_ccall f_5288(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_4248) static void C_ccall f_4248(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_4953) static void C_ccall f_4953(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_8157) static void C_ccall f_8157(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_7844) static void C_ccall f_7844(C_word c,C_word *av) C_noret; C_noret_decl(f_10191) static void C_fcall f_10191(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10392) static void C_ccall f_10392(C_word c,C_word *av) C_noret; C_noret_decl(f_10398) static void C_fcall f_10398(C_word t0,C_word t1) 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(f_9889) static void C_ccall f_9889(C_word c,C_word *av) 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_8483) static void C_ccall f_8483(C_word c,C_word *av) C_noret; C_noret_decl(f_11796) static void C_ccall f_11796(C_word c,C_word *av) C_noret; C_noret_decl(f_11799) static void C_ccall f_11799(C_word c,C_word *av) C_noret; C_noret_decl(f_9774) static void C_ccall f_9774(C_word c,C_word *av) C_noret; C_noret_decl(f_8479) static void C_ccall f_8479(C_word c,C_word *av) C_noret; C_noret_decl(f_7366) static void C_ccall f_7366(C_word c,C_word *av) C_noret; C_noret_decl(f_7364) static void C_ccall f_7364(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_12282) static void C_ccall f_12282(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_12288) static void C_fcall f_12288(C_word t0,C_word t1,C_word t2,C_word t3) 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_8442) static void C_ccall f_8442(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_8451) static void C_ccall f_8451(C_word c,C_word *av) C_noret; C_noret_decl(f_11751) static void C_fcall f_11751(C_word t0,C_word t1,C_word t2) 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_9333) static void C_ccall f_9333(C_word c,C_word *av) C_noret; C_noret_decl(f_9331) static void C_ccall f_9331(C_word c,C_word *av) C_noret; C_noret_decl(f_7399) static void C_fcall f_7399(C_word t0,C_word t1) 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_7380) static void C_ccall f_7380(C_word c,C_word *av) C_noret; C_noret_decl(f_7389) static void C_fcall f_7389(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7942) static void C_ccall f_7942(C_word c,C_word *av) C_noret; C_noret_decl(f_11763) static void C_fcall f_11763(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10179) static void C_fcall f_10179(C_word t0,C_word t1,C_word t2) 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_12270) static void C_ccall f_12270(C_word c,C_word *av) C_noret; C_noret_decl(f_12278) static void C_ccall f_12278(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_8987) static void C_ccall f_8987(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_4075) static void C_ccall f_4075(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_10637) static void C_ccall f_10637(C_word c,C_word *av) C_noret; C_noret_decl(f_13447) static void C_ccall f_13447(C_word c,C_word *av) C_noret; C_noret_decl(f_13443) static void C_ccall f_13443(C_word c,C_word *av) C_noret; C_noret_decl(f_10892) static void C_fcall f_10892(C_word t0,C_word t1,C_word t2) 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_12903) static void C_ccall f_12903(C_word c,C_word *av) C_noret; C_noret_decl(f_7314) static void C_fcall f_7314(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_13465) static void C_ccall f_13465(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_4146) static void C_fcall f_4146(C_word t0,C_word t1,C_word t2,C_word t3) 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_10887) static void C_ccall f_10887(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_5744) static void C_ccall f_5744(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_13405) static void C_ccall f_13405(C_word c,C_word *av) C_noret; C_noret_decl(f_10858) static void C_ccall f_10858(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_4867) static void C_ccall f_4867(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_13411) static void C_ccall f_13411(C_word c,C_word *av) C_noret; C_noret_decl(f_8818) static void C_fcall f_8818(C_word t0,C_word t1) 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_6110) static void C_ccall f_6110(C_word c,C_word *av) C_noret; C_noret_decl(f_7098) static void C_fcall f_7098(C_word t0,C_word t1) 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_4883) static void C_ccall f_4883(C_word c,C_word *av) C_noret; C_noret_decl(f_4182) static C_word C_fcall f_4182(C_word t0); C_noret_decl(f_5718) static void C_ccall f_5718(C_word c,C_word *av) C_noret; C_noret_decl(f_12408) static void C_fcall f_12408(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4186) static void C_fcall f_4186(C_word t0,C_word t1) C_noret; C_noret_decl(f_12406) static void C_ccall f_12406(C_word c,C_word *av) C_noret; C_noret_decl(f_7085) static void C_ccall f_7085(C_word c,C_word *av) C_noret; C_noret_decl(f_9654) static void C_ccall f_9654(C_word c,C_word *av) C_noret; C_noret_decl(f_12475) static void C_fcall f_12475(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12473) static void C_ccall f_12473(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_12450) static void C_ccall f_12450(C_word c,C_word *av) C_noret; C_noret_decl(f_12444) static void C_ccall f_12444(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_11958) static void C_fcall f_11958(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11957) static void C_ccall f_11957(C_word c,C_word *av) C_noret; C_noret_decl(f_11953) static void C_fcall f_11953(C_word t0,C_word t1,C_word t2) 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_6872) static void C_ccall f_6872(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_6867) static void C_ccall f_6867(C_word c,C_word *av) 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_11990) static void C_ccall f_11990(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_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_4994) static void C_ccall f_4994(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_word t2,C_word t3) C_noret; C_noret_decl(f_6885) static void C_ccall f_6885(C_word c,C_word *av) C_noret; C_noret_decl(f_6887) static void C_fcall f_6887(C_word t0,C_word t1,C_word t2,C_word t3) 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_11994) static void C_ccall f_11994(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_7883) static void C_ccall f_7883(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_4960) static void C_ccall f_4960(C_word c,C_word *av) C_noret; C_noret_decl(f_9480) static void C_ccall f_9480(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_9492) static void C_ccall f_9492(C_word c,C_word *av) C_noret; C_noret_decl(f_12108) static void C_fcall f_12108(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_3996) static void C_ccall f_3996(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_9116) static void C_ccall f_9116(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_11557) static void C_fcall f_11557(C_word t0,C_word t1) C_noret; C_noret_decl(f_9468) static void C_ccall f_9468(C_word c,C_word *av) C_noret; C_noret_decl(f_3945) static void C_ccall f_3945(C_word c,C_word *av) C_noret; C_noret_decl(f_13439) static void C_ccall f_13439(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_3952) static void C_ccall f_3952(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_3922) static void C_ccall f_3922(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_4371) static void C_ccall f_4371(C_word c,C_word *av) C_noret; C_noret_decl(f_3913) static void C_fcall f_3913(C_word t0,C_word t1) C_noret; C_noret_decl(f_11719) static void C_ccall f_11719(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_11147) static void C_fcall f_11147(C_word t0,C_word t1,C_word t2) 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_12689) static void C_ccall f_12689(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_word t4) C_noret; C_noret_decl(f_11742) static void C_ccall f_11742(C_word c,C_word *av) 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_11113) static void C_ccall f_11113(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_12693) static void C_ccall f_12693(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_6085) static void C_fcall f_6085(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6083) static void C_ccall f_6083(C_word c,C_word *av) C_noret; C_noret_decl(f_9912) static void C_ccall f_9912(C_word c,C_word *av) C_noret; C_noret_decl(f_9149) static void C_fcall f_9149(C_word t0,C_word t1) C_noret; C_noret_decl(f_4200) static C_word C_fcall f_4200(C_word t0); C_noret_decl(f_11116) static void C_ccall f_11116(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_12350) static void C_ccall f_12350(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_11725) static void C_ccall f_11725(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_4230) static void C_ccall f_4230(C_word c,C_word *av) C_noret; C_noret_decl(f_9865) static void C_fcall f_9865(C_word t0,C_word t1,C_word t2,C_word t3) 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_12342) static void C_ccall f_12342(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_11160) static void C_ccall f_11160(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_4223) static void C_fcall f_4223(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9835) static void C_ccall f_9835(C_word c,C_word *av) C_noret; C_noret_decl(f_4312) static void C_fcall f_4312(C_word t0,C_word t1,C_word t2) 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_11166) static void C_ccall f_11166(C_word c,C_word *av) C_noret; C_noret_decl(f_9859) static void C_ccall f_9859(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_11157) static void C_ccall f_11157(C_word c,C_word *av) C_noret; C_noret_decl(f_9851) static void C_ccall f_9851(C_word c,C_word *av) C_noret; C_noret_decl(f_8691) static void C_ccall f_8691(C_word c,C_word *av) C_noret; C_noret_decl(f_6076) static void C_fcall f_6076(C_word t0,C_word t1,C_word t2) 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_7643) static void C_ccall f_7643(C_word c,C_word *av) C_noret; C_noret_decl(f_4479) static void C_ccall f_4479(C_word c,C_word *av) C_noret; C_noret_decl(f_6067) static void C_ccall f_6067(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_5867) static void C_ccall f_5867(C_word c,C_word *av) C_noret; C_noret_decl(f_4468) static void C_fcall f_4468(C_word t0,C_word t1) 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_11949) static void C_ccall f_11949(C_word c,C_word *av) C_noret; C_noret_decl(f_10711) static void C_ccall f_10711(C_word c,C_word *av) C_noret; C_noret_decl(f_5891) static void C_fcall f_5891(C_word t0,C_word t1) 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_9843) static void C_ccall f_9843(C_word c,C_word *av) C_noret; C_noret_decl(f_9845) static void C_ccall f_9845(C_word c,C_word *av) C_noret; C_noret_decl(f_10720) static void C_fcall f_10720(C_word t0,C_word t1) 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_5898) static void C_ccall f_5898(C_word c,C_word *av) C_noret; C_noret_decl(f_9810) static void C_ccall f_9810(C_word c,C_word *av) C_noret; C_noret_decl(f_11194) static void C_ccall f_11194(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_5888) static void C_ccall f_5888(C_word c,C_word *av) 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_10724) static void C_ccall f_10724(C_word c,C_word *av) 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_10736) static void C_ccall f_10736(C_word c,C_word *av) C_noret; C_noret_decl(f_10737) static void C_fcall f_10737(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12731) static void C_ccall f_12731(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_10444) static void C_ccall f_10444(C_word c,C_word *av) C_noret; C_noret_decl(f_7254) static void C_fcall f_7254(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_11943) static void C_ccall f_11943(C_word c,C_word *av) C_noret; C_noret_decl(f_11946) static void C_ccall f_11946(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_7241) static void C_ccall f_7241(C_word c,C_word *av) C_noret; C_noret_decl(f_10692) static void C_fcall f_10692(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_7231) static void C_fcall f_7231(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10690) static void C_ccall f_10690(C_word c,C_word *av) C_noret; C_noret_decl(f_10696) static void C_ccall f_10696(C_word c,C_word *av) C_noret; C_noret_decl(f_8774) static void C_ccall f_8774(C_word c,C_word *av) C_noret; C_noret_decl(f_9982) static void C_ccall f_9982(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_9985) static void C_fcall f_9985(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_10902) static void C_ccall f_10902(C_word c,C_word *av) C_noret; C_noret_decl(f_10403) static void C_ccall f_10403(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_8964) static void C_ccall f_8964(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_12020) static void C_ccall f_12020(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_10433) static void C_ccall f_10433(C_word c,C_word *av) C_noret; C_noret_decl(f_10439) static void C_fcall f_10439(C_word t0,C_word t1) C_noret; C_noret_decl(f_12002) static void C_ccall f_12002(C_word c,C_word *av) C_noret; C_noret_decl(f_4550) static void C_fcall f_4550(C_word t0,C_word t1,C_word t2) 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_ccall f_8286(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_8725) static void C_ccall f_8725(C_word c,C_word *av) C_noret; C_noret_decl(f_8721) static void C_fcall f_8721(C_word t0,C_word t1) C_noret; C_noret_decl(f_4558) static void C_fcall f_4558(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_8373) static void C_ccall f_8373(C_word c,C_word *av) C_noret; C_noret_decl(f_12055) static void C_ccall f_12055(C_word c,C_word *av) C_noret; C_noret_decl(f_8706) static void C_ccall f_8706(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_noret; C_noret_decl(f_5925) static void C_ccall f_5925(C_word c,C_word *av) C_noret; C_noret_decl(f_12045) static void C_fcall f_12045(C_word t0,C_word t1,C_word t2) 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_12913) static void C_fcall f_12913(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4758) static void C_fcall f_4758(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4014) static void C_fcall f_4014(C_word t0,C_word t1) 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_3809) static void C_fcall f_3809(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4745) static void C_fcall f_4745(C_word t0,C_word t1) C_noret; C_noret_decl(f_4570) static void C_fcall f_4570(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_4002) static void C_ccall f_4002(C_word c,C_word *av) C_noret; C_noret_decl(f_3819) static void C_ccall f_3819(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_4562) static void C_ccall f_4562(C_word c,C_word *av) C_noret; C_noret_decl(f_7487) static void C_fcall f_7487(C_word t0,C_word t1) C_noret; C_noret_decl(f_12814) static void C_ccall f_12814(C_word c,C_word *av) C_noret; C_noret_decl(f_4725) static void C_ccall f_4725(C_word c,C_word *av) C_noret; C_noret_decl(f_4728) static void C_fcall f_4728(C_word t0,C_word t1) 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_4136) static void C_ccall f_4136(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_3832) static void C_fcall f_3832(C_word t0,C_word t1,C_word t2,C_word t3) 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_7033) static void C_ccall f_7033(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_3755) static void C_ccall f_3755(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_7020) static void C_ccall f_7020(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_4115) static void C_ccall f_4115(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_7018) static void C_ccall f_7018(C_word c,C_word *av) C_noret; C_noret_decl(f_5546) static void C_fcall f_5546(C_word t0,C_word t1) 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_13586) static void C_ccall f_13586(C_word c,C_word *av) C_noret; C_noret_decl(f_4105) static void C_fcall f_4105(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3869) static void C_fcall f_3869(C_word t0,C_word t1) C_noret; C_noret_decl(f_7003) static void C_fcall f_7003(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7002) static void C_ccall f_7002(C_word c,C_word *av) C_noret; C_noret_decl(f_12655) static void C_ccall f_12655(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_13590) static C_word C_fcall f_13590(C_word *a,C_word t0,C_word t1); C_noret_decl(f_3873) static void C_ccall f_3873(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_5566) static void C_ccall f_5566(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_13563) static void C_ccall f_13563(C_word c,C_word *av) C_noret; C_noret_decl(f_4152) static void C_ccall f_4152(C_word c,C_word *av) C_noret; C_noret_decl(f_7077) static void C_ccall f_7077(C_word c,C_word *av) C_noret; C_noret_decl(f_3886) static void C_fcall f_3886(C_word t0,C_word t1) 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_13576) static void C_fcall f_13576(C_word t0,C_word t1,C_word t2) 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_4513) static void C_ccall f_4513(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_4140) static void C_ccall f_4140(C_word c,C_word *av) 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_5852) static void C_ccall f_5852(C_word c,C_word *av) C_noret; C_noret_decl(f_7414) static void C_ccall f_7414(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_7050) static void C_ccall f_7050(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_7044) static void C_ccall f_7044(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_12617) static void C_ccall f_12617(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_11014) static void C_ccall f_11014(C_word c,C_word *av) C_noret; C_noret_decl(f_6016) static void C_ccall f_6016(C_word c,C_word *av) C_noret; C_noret_decl(f_5593) static void C_fcall f_5593(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11001) static void C_ccall f_11001(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_10120) static void C_ccall f_10120(C_word c,C_word *av) C_noret; C_noret_decl(f_6022) static void C_ccall f_6022(C_word c,C_word *av) C_noret; C_noret_decl(f_10137) static void C_ccall f_10137(C_word c,C_word *av) C_noret; C_noret_decl(f_4390) static void C_ccall f_4390(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_6930) static void C_fcall f_6930(C_word t0,C_word t1,C_word t2,C_word t3) 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_11032) static void C_ccall f_11032(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_10163) static void C_ccall f_10163(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_11325) static void C_ccall f_11325(C_word c,C_word *av) C_noret; C_noret_decl(f_5378) static void C_fcall f_5378(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11315) static void C_fcall f_11315(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5361) static void C_fcall f_5361(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_8657) static void C_ccall f_8657(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_5312) static void C_fcall f_5312(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8661) static void C_ccall f_8661(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_5388) static void C_ccall f_5388(C_word c,C_word *av) C_noret; C_noret_decl(f_11632) static void C_fcall f_11632(C_word t0,C_word t1) 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_5322) static void C_ccall f_5322(C_word c,C_word *av) C_noret; C_noret_decl(f_11619) static void C_fcall f_11619(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_11640) static void C_ccall f_11640(C_word c,C_word *av) C_noret; C_noret_decl(f_11647) static void C_ccall f_11647(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_7724) static void C_fcall f_7724(C_word t0,C_word t1) C_noret; C_noret_decl(f_5347) static void C_ccall f_5347(C_word c,C_word *av) C_noret; C_noret_decl(f_8215) static void C_fcall f_8215(C_word t0,C_word t1) C_noret; C_noret_decl(f_8218) static void C_fcall f_8218(C_word t0,C_word t1) C_noret; C_noret_decl(f_9563) static void C_ccall f_9563(C_word c,C_word *av) 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_7159) static void C_ccall f_7159(C_word c,C_word *av) C_noret; C_noret_decl(f_7750) static void C_ccall f_7750(C_word c,C_word *av) C_noret; C_noret_decl(f_6518) static void C_ccall f_6518(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_6544) static void C_fcall f_6544(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6540) static C_word C_fcall f_6540(C_word t0); C_noret_decl(f_6953) static void C_ccall f_6953(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(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_6508) static void C_ccall trf_6508(C_word c,C_word *av) C_noret; static void C_ccall trf_6508(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6508(t0,t1,t2);} C_noret_decl(trf_4669) static void C_ccall trf_4669(C_word c,C_word *av) C_noret; static void C_ccall trf_4669(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4669(t0,t1);} C_noret_decl(trf_4659) static void C_ccall trf_4659(C_word c,C_word *av) C_noret; static void C_ccall trf_4659(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4659(t0,t1,t2);} C_noret_decl(trf_6599) static void C_ccall trf_6599(C_word c,C_word *av) C_noret; static void C_ccall trf_6599(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6599(t0,t1);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_5150(t0,t1,t2);} C_noret_decl(trf_11800) static void C_ccall trf_11800(C_word c,C_word *av) C_noret; static void C_ccall trf_11800(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11800(t0,t1,t2);} C_noret_decl(trf_6293) static void C_ccall trf_6293(C_word c,C_word *av) C_noret; static void C_ccall trf_6293(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6293(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_8348) static void C_ccall trf_8348(C_word c,C_word *av) C_noret; static void C_ccall trf_8348(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8348(t0,t1,t2);} C_noret_decl(trf_7277) static void C_ccall trf_7277(C_word c,C_word *av) C_noret; static void C_ccall trf_7277(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7277(t0,t1,t2,t3);} C_noret_decl(trf_8314) static void C_ccall trf_8314(C_word c,C_word *av) C_noret; static void C_ccall trf_8314(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8314(t0,t1,t2);} C_noret_decl(trf_11426) static void C_ccall trf_11426(C_word c,C_word *av) C_noret; static void C_ccall trf_11426(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11426(t0,t1);} C_noret_decl(trf_5215) static void C_ccall trf_5215(C_word c,C_word *av) C_noret; static void C_ccall trf_5215(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5215(t0,t1);} 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[1]; C_word t1=av[0]; f_10486(t0,t1);} C_noret_decl(trf_4767) static void C_ccall trf_4767(C_word c,C_word *av) C_noret; static void C_ccall trf_4767(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4767(t0,t1,t2);} C_noret_decl(trf_5253) static void C_ccall trf_5253(C_word c,C_word *av) C_noret; static void C_ccall trf_5253(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5253(t0,t1,t2);} C_noret_decl(trf_5097) static void C_ccall trf_5097(C_word c,C_word *av) C_noret; static void C_ccall trf_5097(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5097(t0,t1);} C_noret_decl(trf_6640) static void C_ccall trf_6640(C_word c,C_word *av) C_noret; static void C_ccall trf_6640(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6640(t0,t1);} C_noret_decl(trf_8545) static void C_ccall trf_8545(C_word c,C_word *av) C_noret; static void C_ccall trf_8545(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8545(t0,t1);} C_noret_decl(trf_6631) static void C_ccall trf_6631(C_word c,C_word *av) C_noret; static void C_ccall trf_6631(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6631(t0,t1);} C_noret_decl(trf_11881) static void C_ccall trf_11881(C_word c,C_word *av) C_noret; static void C_ccall trf_11881(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11881(t0,t1,t2);} C_noret_decl(trf_13044) static void C_ccall trf_13044(C_word c,C_word *av) C_noret; static void C_ccall trf_13044(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_13044(t0,t1,t2,t3,t4);} C_noret_decl(trf_12098) static void C_ccall trf_12098(C_word c,C_word *av) C_noret; static void C_ccall trf_12098(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12098(t0,t1,t2);} C_noret_decl(trf_6619) static void C_ccall trf_6619(C_word c,C_word *av) C_noret; static void C_ccall trf_6619(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6619(t0,t1);} C_noret_decl(trf_12556) static void C_ccall trf_12556(C_word c,C_word *av) C_noret; static void C_ccall trf_12556(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12556(t0,t1,t2);} C_noret_decl(trf_9534) static void C_ccall trf_9534(C_word c,C_word *av) C_noret; static void C_ccall trf_9534(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9534(t0,t1);} C_noret_decl(trf_12509) static void C_ccall trf_12509(C_word c,C_word *av) C_noret; static void C_ccall trf_12509(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12509(t0,t1,t2);} C_noret_decl(trf_12075) static void C_ccall trf_12075(C_word c,C_word *av) C_noret; static void C_ccall trf_12075(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12075(t0,t1,t2);} C_noret_decl(trf_5401) static void C_ccall trf_5401(C_word c,C_word *av) C_noret; static void C_ccall trf_5401(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5401(t0,t1,t2);} 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_6217) static void C_ccall trf_6217(C_word c,C_word *av) C_noret; static void C_ccall trf_6217(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6217(t0,t1,t2);} C_noret_decl(trf_10223) static void C_ccall trf_10223(C_word c,C_word *av) C_noret; static void C_ccall trf_10223(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_10223(t0,t1,t2,t3,t4,t5);} 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[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_10220(t0,t1,t2,t3,t4,t5,t6);} 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_5605) static void C_ccall trf_5605(C_word c,C_word *av) C_noret; static void C_ccall trf_5605(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5605(t0,t1,t2);} C_noret_decl(trf_10991) static void C_ccall trf_10991(C_word c,C_word *av) C_noret; static void C_ccall trf_10991(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10991(t0,t1,t2);} C_noret_decl(trf_6396) static void C_ccall trf_6396(C_word c,C_word *av) C_noret; static void C_ccall trf_6396(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6396(t0,t1);} C_noret_decl(trf_11815) static void C_ccall trf_11815(C_word c,C_word *av) C_noret; static void C_ccall trf_11815(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11815(t0,t1,t2);} C_noret_decl(trf_3783) static void C_ccall trf_3783(C_word c,C_word *av) C_noret; static void C_ccall trf_3783(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3783(t0,t1,t2,t3);} C_noret_decl(trf_6184) static void C_ccall trf_6184(C_word c,C_word *av) C_noret; static void C_ccall trf_6184(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6184(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_3795) static void C_ccall trf_3795(C_word c,C_word *av) C_noret; static void C_ccall trf_3795(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3795(t0,t1,t2,t3);} C_noret_decl(trf_6834) static void C_ccall trf_6834(C_word c,C_word *av) C_noret; static void C_ccall trf_6834(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6834(t0,t1,t2);} C_noret_decl(trf_5177) static void C_ccall trf_5177(C_word c,C_word *av) C_noret; static void C_ccall trf_5177(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5177(t0,t1);} C_noret_decl(trf_3760) static void C_ccall trf_3760(C_word c,C_word *av) C_noret; static void C_ccall trf_3760(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3760(t0,t1,t2);} C_noret_decl(trf_3767) static void C_ccall trf_3767(C_word c,C_word *av) C_noret; static void C_ccall trf_3767(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3767(t0,t1);} 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[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_6352(t0,t1,t2,t3,t4,t5,t6,t7,t8);} C_noret_decl(trf_6358) static void C_ccall trf_6358(C_word c,C_word *av) C_noret; static void C_ccall trf_6358(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_6358(t0,t1,t2,t3,t4);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_5118(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[1]; C_word t1=av[0]; f_5249(t0,t1);} C_noret_decl(trf_10191) static void C_ccall trf_10191(C_word c,C_word *av) C_noret; static void C_ccall trf_10191(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10191(t0,t1,t2);} C_noret_decl(trf_10398) static void C_ccall trf_10398(C_word c,C_word *av) C_noret; static void C_ccall trf_10398(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10398(t0,t1);} C_noret_decl(trf_12288) static void C_ccall trf_12288(C_word c,C_word *av) C_noret; static void C_ccall trf_12288(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12288(t0,t1,t2,t3);} C_noret_decl(trf_11751) static void C_ccall trf_11751(C_word c,C_word *av) C_noret; static void C_ccall trf_11751(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11751(t0,t1,t2);} C_noret_decl(trf_7399) static void C_ccall trf_7399(C_word c,C_word *av) C_noret; static void C_ccall trf_7399(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7399(t0,t1);} C_noret_decl(trf_7389) static void C_ccall trf_7389(C_word c,C_word *av) C_noret; static void C_ccall trf_7389(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7389(t0,t1,t2);} C_noret_decl(trf_11763) static void C_ccall trf_11763(C_word c,C_word *av) C_noret; static void C_ccall trf_11763(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11763(t0,t1,t2);} C_noret_decl(trf_10179) static void C_ccall trf_10179(C_word c,C_word *av) C_noret; static void C_ccall trf_10179(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10179(t0,t1,t2);} C_noret_decl(trf_10892) static void C_ccall trf_10892(C_word c,C_word *av) C_noret; static void C_ccall trf_10892(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10892(t0,t1,t2);} C_noret_decl(trf_7314) static void C_ccall trf_7314(C_word c,C_word *av) C_noret; static void C_ccall trf_7314(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7314(t0,t1,t2,t3);} C_noret_decl(trf_4146) static void C_ccall trf_4146(C_word c,C_word *av) C_noret; static void C_ccall trf_4146(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4146(t0,t1,t2,t3);} C_noret_decl(trf_8818) static void C_ccall trf_8818(C_word c,C_word *av) C_noret; static void C_ccall trf_8818(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8818(t0,t1);} C_noret_decl(trf_7098) static void C_ccall trf_7098(C_word c,C_word *av) C_noret; static void C_ccall trf_7098(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7098(t0,t1);} C_noret_decl(trf_12408) static void C_ccall trf_12408(C_word c,C_word *av) C_noret; static void C_ccall trf_12408(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12408(t0,t1,t2);} C_noret_decl(trf_4186) static void C_ccall trf_4186(C_word c,C_word *av) C_noret; static void C_ccall trf_4186(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4186(t0,t1);} C_noret_decl(trf_12475) static void C_ccall trf_12475(C_word c,C_word *av) C_noret; static void C_ccall trf_12475(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12475(t0,t1,t2);} C_noret_decl(trf_11958) static void C_ccall trf_11958(C_word c,C_word *av) C_noret; static void C_ccall trf_11958(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11958(t0,t1,t2);} C_noret_decl(trf_11953) static void C_ccall trf_11953(C_word c,C_word *av) C_noret; static void C_ccall trf_11953(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11953(t0,t1,t2);} 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_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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11511(t0,t1,t2,t3);} C_noret_decl(trf_6887) static void C_ccall trf_6887(C_word c,C_word *av) C_noret; static void C_ccall trf_6887(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6887(t0,t1,t2,t3);} 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_12108) static void C_ccall trf_12108(C_word c,C_word *av) C_noret; static void C_ccall trf_12108(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12108(t0,t1);} C_noret_decl(trf_11557) static void C_ccall trf_11557(C_word c,C_word *av) C_noret; static void C_ccall trf_11557(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11557(t0,t1);} C_noret_decl(trf_3913) static void C_ccall trf_3913(C_word c,C_word *av) C_noret; static void C_ccall trf_3913(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3913(t0,t1);} C_noret_decl(trf_11147) static void C_ccall trf_11147(C_word c,C_word *av) C_noret; static void C_ccall trf_11147(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11147(t0,t1,t2);} 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[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_4357(t0,t1,t2,t3,t4);} C_noret_decl(trf_6085) static void C_ccall trf_6085(C_word c,C_word *av) C_noret; static void C_ccall trf_6085(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6085(t0,t1,t2);} C_noret_decl(trf_9149) static void C_ccall trf_9149(C_word c,C_word *av) C_noret; static void C_ccall trf_9149(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9149(t0,t1);} C_noret_decl(trf_9865) static void C_ccall trf_9865(C_word c,C_word *av) C_noret; static void C_ccall trf_9865(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9865(t0,t1,t2,t3);} C_noret_decl(trf_4223) static void C_ccall trf_4223(C_word c,C_word *av) C_noret; static void C_ccall trf_4223(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4223(t0,t1,t2);} C_noret_decl(trf_4312) static void C_ccall trf_4312(C_word c,C_word *av) C_noret; static void C_ccall trf_4312(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4312(t0,t1,t2);} C_noret_decl(trf_6076) static void C_ccall trf_6076(C_word c,C_word *av) C_noret; static void C_ccall trf_6076(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6076(t0,t1,t2);} C_noret_decl(trf_4468) static void C_ccall trf_4468(C_word c,C_word *av) C_noret; static void C_ccall trf_4468(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4468(t0,t1);} C_noret_decl(trf_5891) static void C_ccall trf_5891(C_word c,C_word *av) C_noret; static void C_ccall trf_5891(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5891(t0,t1);} C_noret_decl(trf_10720) static void C_ccall trf_10720(C_word c,C_word *av) C_noret; static void C_ccall trf_10720(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10720(t0,t1);} C_noret_decl(trf_10737) static void C_ccall trf_10737(C_word c,C_word *av) C_noret; static void C_ccall trf_10737(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10737(t0,t1,t2);} C_noret_decl(trf_7254) static void C_ccall trf_7254(C_word c,C_word *av) C_noret; static void C_ccall trf_7254(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7254(t0,t1,t2);} C_noret_decl(trf_10692) static void C_ccall trf_10692(C_word c,C_word *av) C_noret; static void C_ccall trf_10692(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_10692(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_7231) static void C_ccall trf_7231(C_word c,C_word *av) C_noret; static void C_ccall trf_7231(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7231(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[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_9985(t0,t1,t2,t3,t4);} C_noret_decl(trf_10439) static void C_ccall trf_10439(C_word c,C_word *av) C_noret; static void C_ccall trf_10439(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10439(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_4550(t0,t1,t2);} C_noret_decl(trf_8721) static void C_ccall trf_8721(C_word c,C_word *av) C_noret; static void C_ccall trf_8721(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8721(t0,t1);} C_noret_decl(trf_4558) static void C_ccall trf_4558(C_word c,C_word *av) C_noret; static void C_ccall trf_4558(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4558(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[1]; C_word t1=av[0]; f_7449(t0,t1);} C_noret_decl(trf_12045) static void C_ccall trf_12045(C_word c,C_word *av) C_noret; static void C_ccall trf_12045(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12045(t0,t1,t2);} C_noret_decl(trf_12913) static void C_ccall trf_12913(C_word c,C_word *av) C_noret; static void C_ccall trf_12913(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12913(t0,t1,t2,t3);} C_noret_decl(trf_4758) static void C_ccall trf_4758(C_word c,C_word *av) C_noret; static void C_ccall trf_4758(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4758(t0,t1,t2);} C_noret_decl(trf_4014) static void C_ccall trf_4014(C_word c,C_word *av) C_noret; static void C_ccall trf_4014(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4014(t0,t1);} C_noret_decl(trf_3809) static void C_ccall trf_3809(C_word c,C_word *av) C_noret; static void C_ccall trf_3809(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3809(t0,t1,t2);} C_noret_decl(trf_4745) static void C_ccall trf_4745(C_word c,C_word *av) C_noret; static void C_ccall trf_4745(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4745(t0,t1);} C_noret_decl(trf_4570) static void C_ccall trf_4570(C_word c,C_word *av) C_noret; static void C_ccall trf_4570(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_4570(t0,t1,t2,t3,t4);} C_noret_decl(trf_7487) static void C_ccall trf_7487(C_word c,C_word *av) C_noret; static void C_ccall trf_7487(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7487(t0,t1);} C_noret_decl(trf_4728) static void C_ccall trf_4728(C_word c,C_word *av) C_noret; static void C_ccall trf_4728(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4728(t0,t1);} C_noret_decl(trf_3832) static void C_ccall trf_3832(C_word c,C_word *av) C_noret; static void C_ccall trf_3832(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3832(t0,t1,t2,t3);} C_noret_decl(trf_5546) static void C_ccall trf_5546(C_word c,C_word *av) C_noret; static void C_ccall trf_5546(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5546(t0,t1);} C_noret_decl(trf_4105) static void C_ccall trf_4105(C_word c,C_word *av) C_noret; static void C_ccall trf_4105(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4105(t0,t1,t2);} C_noret_decl(trf_3869) static void C_ccall trf_3869(C_word c,C_word *av) C_noret; static void C_ccall trf_3869(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3869(t0,t1);} C_noret_decl(trf_7003) static void C_ccall trf_7003(C_word c,C_word *av) C_noret; static void C_ccall trf_7003(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7003(t0,t1,t2);} C_noret_decl(trf_3886) static void C_ccall trf_3886(C_word c,C_word *av) C_noret; static void C_ccall trf_3886(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3886(t0,t1);} C_noret_decl(trf_13576) static void C_ccall trf_13576(C_word c,C_word *av) C_noret; static void C_ccall trf_13576(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13576(t0,t1,t2);} C_noret_decl(trf_5593) static void C_ccall trf_5593(C_word c,C_word *av) C_noret; static void C_ccall trf_5593(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5593(t0,t1,t2);} C_noret_decl(trf_6930) static void C_ccall trf_6930(C_word c,C_word *av) C_noret; static void C_ccall trf_6930(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6930(t0,t1,t2,t3);} 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_5378) static void C_ccall trf_5378(C_word c,C_word *av) C_noret; static void C_ccall trf_5378(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5378(t0,t1,t2);} C_noret_decl(trf_11315) static void C_ccall trf_11315(C_word c,C_word *av) C_noret; static void C_ccall trf_11315(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11315(t0,t1,t2);} C_noret_decl(trf_5361) static void C_ccall trf_5361(C_word c,C_word *av) C_noret; static void C_ccall trf_5361(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_5361(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_5312) static void C_ccall trf_5312(C_word c,C_word *av) C_noret; static void C_ccall trf_5312(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5312(t0,t1,t2);} C_noret_decl(trf_11632) static void C_ccall trf_11632(C_word c,C_word *av) C_noret; static void C_ccall trf_11632(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11632(t0,t1);} C_noret_decl(trf_11619) static void C_ccall trf_11619(C_word c,C_word *av) C_noret; static void C_ccall trf_11619(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11619(t0,t1);} C_noret_decl(trf_7724) static void C_ccall trf_7724(C_word c,C_word *av) C_noret; static void C_ccall trf_7724(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7724(t0,t1);} C_noret_decl(trf_8215) static void C_ccall trf_8215(C_word c,C_word *av) C_noret; static void C_ccall trf_8215(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8215(t0,t1);} C_noret_decl(trf_8218) static void C_ccall trf_8218(C_word c,C_word *av) C_noret; static void C_ccall trf_8218(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8218(t0,t1);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6544(t0,t1,t2,t3);} /* g1366 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_6943,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_memq(t2,((C_word*)((C_word*)t0)[2])[1]))){ 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_6953,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); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6975,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:848: filter */ t5=*((C_word*)lf[132]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_6942,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_6943,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*)t0)[3]; t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7002,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); 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_7254,a[2]=t10,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_7254(t12,t8,t7);} /* k5012 in k5032 in k4992 in a4986 in k4980 in k4881 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_5014,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[14],lf[11],((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8227 in k8216 in k8213 in k8181 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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(20,c,3)))){ C_save_and_reclaim((void *)f_8229,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[51]+1); t8=C_i_check_list_2(t2,lf[35]); t9=(*a=C_CLOSURE_TYPE|6,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]=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_8314,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_8314(t13,t9,t2);} /* for-each-loop920 in k6473 in a6470 in k6428 in k6425 in k6421 in k6415 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_6508(C_word t0,C_word t1,C_word t2){ C_word 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_6508,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_6518,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_6480,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t8=C_i_car(t6); /* optimizer.scm:531: print* */ t9=*((C_word*)lf[113]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t7; av2[2]=lf[114]; 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);}}} /* k5032 in k4992 in a4986 in k4980 in k4881 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_5034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_5034,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_5014,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:298: walk */ t8=((C_word*)((C_word*)t0)[9])[1]; f_4357(t8,t5,t6,t7,C_SCHEME_END_OF_LIST);} /* k8236 in k8227 in k8216 in k8213 in k8181 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,5)))){ C_save_and_reclaim((void *)f_8238,2,av);} a=C_alloc(19); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8243,tmp=(C_word)a,a+=2,tmp); t3=C_a_i_list1(&a,1,C_SCHEME_TRUE); t4=t3; t5=C_eqp(*((C_word*)lf[146]+1),lf[147]); t6=(C_truep(t5)?C_i_car(((C_word*)t0)[2]):C_i_cadr(((C_word*)t0)[2])); t7=C_a_i_list1(&a,1,t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8284,a[2]=((C_word*)t0)[3],a[3]=t4,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); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8286,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1056: fold-boolean */ t11=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t11; av2[1]=t9; av2[2]=t10; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} /* k4634 in k4614 in k4608 in k4602 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4636,2,av);} t2=C_slot(t1,C_fix(2)); t3=C_i_car(t2); /* optimizer.scm:234: qnode */ t4=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5178 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,1)))){ C_save_and_reclaim((void *)f_5180,2,av);} a=C_alloc(19); t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=C_i_car(((C_word*)t0)[2]); t4=C_a_i_record4(&a,4,lf[14],lf[15],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST); t5=C_a_i_list2(&a,2,t3,t4); t6=((C_word*)t0)[3]; t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],t2,t5); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* f_6259 in k6239 in k6281 in k6182 in k6165 in k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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=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_6259,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* a13261 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13262(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(10,c,2)))){ C_save_and_reclaim((void *)f_13262,11,av);} a=C_alloc(10); if(C_truep(C_i_equalp(t4,*((C_word*)lf[217]+1)))){ t11=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13275,a[2]=t9,a[3]=t1,a[4]=t8,a[5]=t10,a[6]=t6,a[7]=t5,a[8]=t2,a[9]=t3,tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:671: immediate? */ t12=*((C_word*)lf[219]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t11; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} /* k8207 in k8181 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_8209,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4667 in g353 in k4608 in k4602 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_4669(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_4669,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4672,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:244: debugging */ t3=*((C_word*)lf[17]+1);{ C_word av2[6]; av2[0]=t3; av2[1]=t2; av2[2]=lf[18]; av2[3]=lf[52]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ /* optimizer.scm:246: varnode */ t2=*((C_word*)lf[51]+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);}}} /* k6281 in k6182 in k6165 in k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6283,2,av);} a=C_alloc(14); t2=C_a_i_list1(&a,1,t1); t3=C_a_i_record4(&a,4,lf[14],lf[13],((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6241,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:492: test */ t6=((C_word*)((C_word*)t0)[6])[1]; f_4146(t6,t5,((C_word*)t0)[3],lf[56]);} /* g353 in k4608 in k4602 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_4659(C_word t0,C_word 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_4659,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_4669,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_4694,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* tweaks.scm:57: ##sys#get */ t7=*((C_word*)lf[45]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=t4; av2[3]=lf[54]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t6=t5; f_4669(t6,C_SCHEME_FALSE);}} /* k13206 in loop2 in k13015 in k13230 in k13236 in loop1 in a12902 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13208,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_13075(t2,C_SCHEME_FALSE);} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13202,a[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)[5]); /* optimizer.scm:721: get */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=t3; av2[4]=lf[98]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k13200 in k13206 in loop2 in k13015 in k13230 in k13236 in loop1 in a12902 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_13202,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_13075(t2,C_SCHEME_FALSE);} else{ if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t2=C_i_car(((C_word*)t0)[4]); t3=C_slot(t2,C_fix(1)); t4=C_eqp(lf[13],t3); if(C_truep(t4)){ t5=((C_word*)t0)[3]; t6=C_u_i_car(t5); t7=C_u_i_car(((C_word*)t0)[4]); t8=C_slot(t7,C_fix(2)); t9=C_i_car(t8); t10=((C_word*)t0)[2]; f_13075(t10,C_eqp(t6,t9));} else{ t5=((C_word*)t0)[2]; f_13075(t5,C_SCHEME_FALSE);}} else{ t2=((C_word*)t0)[2]; f_13075(t2,C_SCHEME_FALSE);}}} /* k6588 in g971 in k6569 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6590,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6593,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:565: get-list */ t4=*((C_word*)lf[124]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[98]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k6591 in k6588 in g971 in k6569 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word 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_6593,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6599,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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)[2])){ 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)[6]); t6=C_eqp(C_fix(3),t5); if(C_truep(t6)){ t7=C_slot(((C_word*)t0)[2],C_fix(1)); t8=t2; f_6599(t8,C_eqp(lf[11],t7));} else{ t7=t2; f_6599(t7,C_SCHEME_FALSE);}} else{ t5=t2; f_6599(t5,C_SCHEME_FALSE);}} else{ t3=t2; f_6599(t3,C_SCHEME_FALSE);}} else{ t3=t2; f_6599(t3,C_SCHEME_FALSE);}} /* k10285 in rec in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_10287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,1)))){ C_save_and_reclaim((void *)f_10287,2,av);} a=C_alloc(4); t2=C_i_not(t1); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=((C_word*)((C_word*)t0)[5])[1]; if(C_truep(t5)){ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[6])[1],C_fix(2)); t7=C_mutate2(((C_word *)((C_word*)t0)[6])+1,t6); t8=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}} /* k6597 in k6591 in k6588 in g971 in k6569 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_6599(C_word t0,C_word t1){ C_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,2)))){ C_save_and_reclaim_args((void *)trf_6599,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_i_caddr(t2); t4=t3; t5=C_slot(((C_word*)t0)[2],C_fix(3)); t6=C_i_car(t5); t7=t6; t8=C_slot(t7,C_fix(3)); t9=t8; t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6619,a[2]=t4,a[3]=t7,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t9,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_listp(t4))){ t11=C_i_cdr(t4); t12=t10; f_6619(t12,C_i_nullp(t11));} else{ t11=t10; f_6619(t11,C_SCHEME_FALSE);}} 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);}}} /* for-each-loop501 in k5112 in k5109 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_5150(C_word t0,C_word t1,C_word 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_5150,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_5160,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:326: g502 */ t5=((C_word*)t0)[3]; f_5118(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);}}} /* g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_11800(C_word t0,C_word t1,C_word 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_11800,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_11808,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1665: gensym */ t8=*((C_word*)lf[83]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=lf[196]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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; 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_11808,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11811,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:1666: gensym */ t4=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[76]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6291 in k6333 in k6165 in k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_6293(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_6293,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6324,a[2]=((C_word*)t0)[2],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:483: test */ t3=((C_word*)((C_word*)t0)[5])[1]; f_4146(t3,t2,((C_word*)t0)[6],lf[105]);} else{ t2=((C_word*)t0)[2]; f_6184(t2,C_SCHEME_FALSE);}} /* g971 in k6569 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ 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 t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){ C_save_and_reclaim_args((void *)trf_6572,3,t0,t1,t2);} a=C_alloc(14); t3=C_i_cdr(t2); t4=t3; t5=C_slot(t4,C_fix(3)); t6=t5; t7=C_i_cadr(t6); t8=C_slot(t7,C_fix(2)); t9=C_i_car(t8); t10=t9; t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6590,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]=t10,tmp=(C_word)a,a+=9,tmp); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6807,a[2]=t11,a[3]=((C_word*)t0)[5],a[4]=t10,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:564: test */ t13=((C_word*)((C_word*)t0)[5])[1]; f_6544(t13,t12,t10,lf[99]);} /* k6569 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ 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(10,c,3)))){ C_save_and_reclaim((void *)f_6571,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6823,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:594: test */ t4=((C_word*)((C_word*)t0)[5])[1]; f_6544(t4,t3,lf[125],lf[126]);} else{ t2=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_6554(2,av2);}}} /* k12859 in a12813 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_12861(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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,1)))){ C_save_and_reclaim((void *)f_12861,2,av);} a=C_alloc(22); t2=C_i_length(t1); t3=C_eqp(C_fix(1),t2); if(C_truep(t3)){ t4=C_a_i_list1(&a,1,((C_word*)t0)[2]); t5=((C_word*)t0)[3]; t6=C_a_i_record4(&a,4,lf[14],lf[144],t4,t5); t7=C_a_i_list3(&a,3,t6,((C_word*)t0)[4],((C_word*)t0)[5]); t8=((C_word*)t0)[6]; t9=((C_word*)t0)[7]; t10=t8;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_a_i_record4(&a,4,lf[14],lf[5],t9,t7); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t4=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4614 in k4608 in k4602 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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,3)))){ C_save_and_reclaim((void *)f_4616,2,av);} a=C_alloc(3); 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); /* optimizer.scm:234: test */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4146(t3,t2,((C_word*)t0)[4],lf[49]);} /* k4608 in k4602 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 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_4610,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=( /* optimizer.scm:232: touch */ f_4182(((C_word*)((C_word*)t0)[2])[1]) ); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4616,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:233: debugging */ t4=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[18]; av2[3]=lf[50]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t2=C_u_i_car(((C_word*)t0)[6]); t3=C_eqp(((C_word*)t0)[5],t2); if(C_truep(t3)){ t4=C_i_assq(((C_word*)t0)[5],((C_word*)t0)[7]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4659,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:230: g353 */ t6=t5; f_4659(t6,((C_word*)t0)[3],t4);} else{ /* optimizer.scm:247: varnode */ t5=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} else{ t4=( /* optimizer.scm:236: touch */ f_4182(((C_word*)((C_word*)t0)[2])[1]) ); t5=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[8])[1],C_fix(1)); t6=C_mutate2(((C_word *)((C_word*)t0)[8])+1,t5); /* optimizer.scm:238: varnode */ t7=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}}} /* k8337 in map-loop1722 in k8227 in k8216 in k8213 in k8181 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8339,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8314(t6,((C_word*)t0)[5],t5);} /* k7713 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7715,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_7724,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); if(C_truep(t3)){ t5=t4; f_7724(t5,t3);} else{ t5=C_i_length(((C_word*)t0)[5]); t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=C_u_i_car(t7); t9=t4; f_7724(t9,C_i_nequalp(t5,t8));}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_6551,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6554,a[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_6571,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); /* tweaks.scm:51: ##sys#get */ t4=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[125]; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k7285 in for-each-loop1325 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7287,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_7277(t4,((C_word*)t0)[5],t2,t3);} /* k6555 in k6552 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6557,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6552 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6554(C_word c,C_word *av){ C_word tmp; C_word t0=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_6554,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6557,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:596: debugging */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[18]; av2[3]=lf[120]; 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* close in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static C_word C_fcall f_11451(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_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_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[2])[1]),((C_word*)((C_word*)t0)[4])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[4])+1,t2); t4=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_END_OF_LIST); t5=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_FALSE); return(t5);} 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);}} /* map-loop1694 in k8216 in k8213 in k8181 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_8348(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_8348,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_8373,a[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:1044: gensym */ t4=*((C_word*)lf[83]+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);}}} /* k11441 in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_11443(C_word c,C_word *av){ C_word tmp; C_word t0=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_11443,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11446,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1571: walk */ t3=((C_word*)((C_word*)t0)[4])[1]; f_9985(t3,t2,C_SCHEME_FALSE,((C_word*)t0)[5],C_SCHEME_FALSE);} /* for-each-loop1325 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_7277(C_word t0,C_word t1,C_word 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_7277,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_7287,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:825: g1326 */ t9=((C_word*)t0)[3]; f_6930(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);}}} /* k11444 in k11441 in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11446,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##compiler#determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_11448(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_11448,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_11451,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_11511,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_11796,a[2]=t3,a[3]=t5,a[4]=t1,a[5]=t2,a[6]=t13,tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1655: debugging */ t17=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t17; av2[1]=t16; av2[2]=lf[28]; av2[3]=lf[197]; ((C_proc)(void*)(*((C_word*)t17+1)))(4,av2);}} /* map-loop1722 in k8227 in k8216 in k8213 in k8181 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_8314(C_word t0,C_word t1,C_word 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_8314,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_8339,a[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:1045: g1728 */ 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);}}} /* k7262 in for-each-loop1365 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_7264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_7264,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7254(t3,((C_word*)t0)[4],t2);} /* k11435 in a11419 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; 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_list(&a,1,t1); /* optimizer.scm:1457: ##sys#make-promise */ t3=*((C_word*)lf[183]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5984 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_5986(C_word c,C_word *av){ C_word tmp; C_word t0=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_5986,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6016,a[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:317: test */ t3=((C_word*)((C_word*)t0)[4])[1]; f_4146(t3,t2,((C_word*)t0)[5],lf[57]);} else{ t2=((C_word*)t0)[2]; f_5097(t2,C_SCHEME_FALSE);}} /* k13273 in a13261 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13275(C_word c,C_word *av){ C_word tmp; C_word t0=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_13275,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13318,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:672: get-list */ t3=*((C_word*)lf[124]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[98]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a11419 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_11420,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11426,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11437,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* tmp13632 */ t4=t2; f_11426(t4,t3);} /* k4790 in map-loop396 in k4743 in k4726 in k4723 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 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_4792,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4767(t6,((C_word*)t0)[5],t5);} /* tmp13632 in a11419 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_11426(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_11426,2,t0,t1);} /* optimizer.scm:1457: unzip1 */ t2=*((C_word*)lf[182]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k10822 in k10734 in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_10824,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10827,a[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_10991,a[2]=t4,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_10991(t6,t2,t1);} /* k10825 in k10822 in k10734 in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_10827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10827,2,av);} a=C_alloc(11); t2=(C_truep(((C_word*)t0)[2])?C_i_pairp(((C_word*)t0)[3]):C_SCHEME_FALSE); if(C_truep(t2)){ t3=C_a_i_record4(&a,4,lf[14],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10844,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1550: copy-node! */ t6=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_5215(C_word t0,C_word 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,5)))){ C_save_and_reclaim_args((void *)trf_5215,2,t0,t1);} a=C_alloc(22); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=t2; t4=C_i_caddr(t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_5231,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],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)[2],a[15]=t5,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],tmp=(C_word)a,a+=22,tmp); /* optimizer.scm:358: decompose-lambda-list */ t7=*((C_word*)lf[66]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=((C_word*)t0)[20]; av2[2]=t5; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5759,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[13],a[6]=((C_word*)t0)[20],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[7],tmp=(C_word)a,a+=13,tmp); if(C_truep(((C_word*)t0)[2])){ t3=C_slot(((C_word*)t0)[2],C_fix(1)); t4=C_eqp(lf[3],t3); if(C_truep(t4)){ t5=C_slot(((C_word*)t0)[2],C_fix(2)); t6=C_i_car(t5); /* tweaks.scm:51: ##sys#get */ t7=*((C_word*)lf[45]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t2; av2[2]=t6; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t5=t2;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_5759(2,av2);}}} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_5759(2,av2);}}}} /* k11416 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_11418(C_word c,C_word *av){ C_word tmp; C_word 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_11418,2,av);} /* optimizer.scm:1457: debugging */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[18]; av2[3]=lf[181]; av2[4]=((C_word*)t0)[3]; av2[5]=t1; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k13295 in k13316 in k13273 in a13261 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13297(C_word c,C_word *av){ C_word tmp; C_word t0=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_13297,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[14],lf[22],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10484 in rec in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_10486(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_10486,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10491,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]); /* optimizer.scm:1436: every */ t4=*((C_word*)lf[43]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(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);}}} /* k4763 in k4743 in k4726 in k4723 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_4765,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[14],lf[6],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop396 in k4743 in k4726 in k4723 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_4767(C_word t0,C_word t1,C_word 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_4767,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_4792,a[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:264: g402 */ t5=((C_word*)t0)[4]; f_4758(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);}}} /* a10490 in k10484 in rec in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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_10491,3,av);} /* optimizer.scm:1436: rec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10223(t3,t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3]);} /* k10845 in k10842 in k10825 in k10822 in k10734 in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_10847(C_word c,C_word *av){ C_word tmp; C_word t0=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_10847,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10850,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1561: copy-node! */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10842 in k10825 in k10822 in k10734 in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_10844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10844,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10847,a[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|1,a[1]=(C_word)f_10915,tmp=(C_word)a,a+=2,tmp); /* optimizer.scm:1552: fold-right */ t4=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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=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(26,c,3)))){ C_save_and_reclaim((void *)f_5231,5,av);} a=C_alloc(26); t5=C_i_car(((C_word*)t0)[2]); t6=t5; t7=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_5753,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],tmp=(C_word)a,a+=26,tmp); /* tweaks.scm:57: ##sys#get */ t8=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[17]; av2[3]=lf[95]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k5267 in k5264 in k5261 in k5250 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_5269(C_word c,C_word *av){ C_word tmp; C_word t0=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_5269,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_5274,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:380: call/cc */ t3=*((C_word*)lf[78]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5261 in k5250 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_5263(C_word c,C_word *av){ C_word tmp; C_word t0=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_5263,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_5266,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:378: check-signature */ t3=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[17]; av2[3]=((C_word*)t0)[14]; av2[4]=((C_word*)t0)[13]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5264 in k5261 in k5250 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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(17,c,4)))){ C_save_and_reclaim((void *)f_5266,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|16,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],tmp=(C_word)a,a+=17,tmp); /* optimizer.scm:379: debugging */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[18]; av2[3]=lf[79]; av2[4]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){ C_save_and_reclaim((void *)f_5090,2,av);} a=C_alloc(27); t2=t1; t3=C_u_i_cdr(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_5097,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]=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)[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],tmp=(C_word)a,a+=21,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5986,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[17],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:316: test */ t6=((C_word*)((C_word*)t0)[17])[1]; f_4146(t6,t5,((C_word*)t0)[10],lf[58]);} /* g619 in k5250 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_5253(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_5253,3,t0,t1,t2);} t3=*((C_word*)lf[47]+1); /* optimizer.scm:377: g634 */ t4=*((C_word*)lf[47]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=lf[70]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k5250 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_5252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_5252,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5253,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[2]); t5=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_5263,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)[15],a[15]=((C_word*)t0)[2],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_5312,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_5312(t9,t5,t3);} /* k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_5097(C_word 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(27,0,4)))){ C_save_and_reclaim_args((void *)trf_5097,2,t0,t1);} a=C_alloc(27); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_i_caddr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5111,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]=t4,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:323: check-signature */ t6=*((C_word*)lf[74]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[11]; av2[3]=((C_word*)t0)[9]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_5177,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],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]=((C_word*)t0)[8],a[14]=((C_word*)t0)[3],a[15]=((C_word*)t0)[6],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],tmp=(C_word)a,a+=21,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5852,a[2]=((C_word*)t0)[9],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[19],tmp=(C_word)a,a+=6,tmp); /* tweaks.scm:57: ##sys#get */ t4=*((C_word*)lf[45]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[11]; av2[3]=lf[100]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* cfk in a5273 in k5267 in k5264 in k5261 in k5250 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_5277,3,av);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5281,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:383: debugging */ t4=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[76]; av2[3]=lf[77]; av2[4]=((C_word*)t0)[10]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* a10592 in rec in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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_10593,3,av);} /* optimizer.scm:1443: rec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10223(t3,t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3]);} /* k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_5087,2,av);} a=C_alloc(24); t2=t1; t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_5090,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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|4,a[1]=(C_word)f_6032,a[2]=t3,a[3]=((C_word*)t0)[16],a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:312: test */ t5=((C_word*)((C_word*)t0)[16])[1]; f_4146(t5,t4,((C_word*)t0)[9],lf[99]);} /* k5997 in k6014 in k5984 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5999,2,av);} t2=((C_word*)t0)[2]; f_5097(t2,C_i_not(t1));} /* a10341 in rec in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_10342(C_word c,C_word *av){ C_word 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_10342,3,av);} /* optimizer.scm:1401: rec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10223(t3,t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3]);} /* a5273 in k5267 in k5264 in k5261 in k5250 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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=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(18,c,7)))){ C_save_and_reclaim((void *)f_5274,3,av);} a=C_alloc(18); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5277,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_5291,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=C_slot(((C_word*)t0)[12],C_fix(3)); t6=C_i_car(t5); /* optimizer.scm:389: inline-lambda-bindings */ t7=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t7; av2[1]=t4; av2[2]=((C_word*)t0)[13]; av2[3]=((C_word*)t0)[14]; av2[4]=t6; av2[5]=C_SCHEME_TRUE; av2[6]=((C_word*)t0)[15]; av2[7]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(8,av2);}} /* k10374 in rec in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_10376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10376,2,av);} a=C_alloc(6); if(C_truep(C_i_nullp(t1))){ t2=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]),((C_word*)((C_word*)t0)[4])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[4])+1,t2); t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a10304 in rec in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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_10305,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_mutate2(((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_10321,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t8,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1396: append */ t10=*((C_word*)lf[7]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=t2; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} /* k10319 in a10304 in rec in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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(0,c,5)))){ C_save_and_reclaim((void *)f_10321,2,av);} /* optimizer.scm:1396: rec */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10223(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,t1);} /* k5491 in k5453 in k5447 in k5441 in loop in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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(12,c,4)))){ C_save_and_reclaim((void *)f_5493,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_5475,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:416: walk */ t7=((C_word*)((C_word*)t0)[8])[1]; f_4357(t7,t4,t6,((C_word*)t0)[9],((C_word*)t0)[10]);} /* k13236 in loop1 in a12902 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13238,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_13232,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_u_i_car(((C_word*)t0)[4]); /* optimizer.scm:702: get */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=t3; av2[4]=lf[98]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k13230 in k13236 in loop1 in a12902 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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,3)))){ C_save_and_reclaim((void *)f_13232,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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]); t3=C_slot(t2,C_fix(2)); t4=t3; t5=C_slot(t2,C_fix(3)); t6=t5; t7=C_slot(t2,C_fix(1)); t8=C_eqp(t7,lf[15]); if(C_truep(t8)){ t9=C_u_i_car(((C_word*)t0)[4]); t10=C_a_i_cons(&a,2,t9,((C_word*)t0)[5]); t11=C_i_cadr(((C_word*)t0)[3]); /* optimizer.scm:707: loop1 */ t12=((C_word*)((C_word*)t0)[6])[1]; f_12913(t12,((C_word*)t0)[2],t10,t11);} else{ t9=C_eqp(t7,lf[13]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13017,a[2]=t4,a[3]=t6,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:709: reverse */ t11=*((C_word*)lf[107]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ t10=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}}} /* k8080 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_8082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_8082,2,av);} a=C_alloc(16); if(C_truep(t1)){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=C_i_cadr(((C_word*)t0)[2]); t5=C_a_i_list1(&a,1,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8115,a[2]=t6,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8123,a[2]=t7,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t9=C_i_caddr(((C_word*)t0)[2]); /* optimizer.scm:1026: qnode */ t10=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k11856 in a11846 in k11840 in g2717 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_11858,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k8563 in k8543 in k8533 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8565,2,av);} /* optimizer.scm:1087: cons* */ t2=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6645 in k6638 in k6629 in k6623 in k6617 in k6597 in k6591 in k6588 in g971 in k6569 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6647,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); t3=C_u_i_cdr(((C_word*)t0)[6]); /* optimizer.scm:589: node-subexpressions-set! */ t4=*((C_word*)lf[121]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6638 in k6629 in k6623 in k6617 in k6597 in k6591 in k6588 in g971 in k6569 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_6640(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,3)))){ C_save_and_reclaim_args((void *)trf_6640,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(1)); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6647,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:588: node-parameters-set! */ t5=*((C_word*)lf[122]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[8]; av2[3]=lf[123]; ((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);}}} /* k10065 in k10059 in k10053 in k10135 in walk in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_10067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_10067,2,av);} a=C_alloc(10); 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_10120,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,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_slot(((C_word*)t0)[3],C_fix(2)); t6=C_i_car(t5); /* tweaks.scm:57: ##sys#get */ t7=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t4; av2[2]=t6; av2[3]=lf[159]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_10025(2,av2);}}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_10025(2,av2);}}} /* k8543 in k8533 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_8545(C_word t0,C_word t1){ C_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(15,0,2)))){ C_save_and_reclaim_args((void *)trf_8545,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_8561,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_8565,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t7=((C_word*)t0)[2]; t8=C_u_i_cdr(t7); t9=C_u_i_car(t8); /* optimizer.scm:1087: varnode */ t10=*((C_word*)lf[51]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t6; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+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);}}} /* k10059 in k10053 in k10135 in walk in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_10061,2,av);} a=C_alloc(11); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10067,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); /* optimizer.scm:1359: get-list */ t4=*((C_word*)lf[124]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[10]; av2[3]=((C_word*)t0)[7]; av2[4]=lf[126]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_10025(2,av2);}}} /* k5453 in k5447 in k5441 in loop in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_5455,2,av);} a=C_alloc(11); if(C_truep(t1)){ 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*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* optimizer.scm:415: gensym */ t3=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[84]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); t4=C_a_i_minus(&a,2,((C_word*)t0)[4],C_fix(1)); t5=((C_word*)t0)[5]; t6=C_u_i_cdr(t5); /* optimizer.scm:418: loop */ t7=((C_word*)((C_word*)t0)[6])[1]; f_5361(t7,((C_word*)t0)[2],t3,t4,t6,((C_word*)t0)[7]);}} /* k6629 in k6623 in k6617 in k6597 in k6591 in k6588 in g971 in k6569 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_6631(C_word t0,C_word t1){ C_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(9,0,2)))){ C_save_and_reclaim_args((void *)trf_6631,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(3)); t3=C_i_car(t2); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6640,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); t5=C_slot(t3,C_fix(1)); t6=C_eqp(lf[3],t5); if(C_truep(t6)){ t7=C_slot(t3,C_fix(2)); t8=C_i_car(t7); t9=t4; f_6640(t9,C_eqp(((C_word*)t0)[9],t8));} else{ t7=t4; f_6640(t7,C_SCHEME_FALSE);}} 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);}}} /* a13117 in k13073 in loop2 in k13015 in k13230 in k13236 in loop1 in a12902 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13118(C_word c,C_word *av){ C_word tmp; C_word t0=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_13118,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13126,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:730: reverse */ t3=*((C_word*)lf[107]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a13127 in k13073 in loop2 in k13015 in k13230 in k13236 in loop1 in a12902 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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_13128,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep(t3)?t2:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k13124 in a13117 in k13073 in loop2 in k13015 in k13230 in k13236 in loop1 in a12902 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13126,2,av);} /* optimizer.scm:730: reorganize-recursive-bindings */ t2=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10053 in k10135 in walk in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_10055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10055,2,av);} a=C_alloc(11); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10061,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:1358: get-list */ t4=*((C_word*)lf[124]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[6]; av2[4]=lf[98]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_10025(2,av2);}}} /* map-loop2745 in g2717 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_11881(C_word t0,C_word t1,C_word 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_11881,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_11906,a[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:1676: g2751 */ 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);}}} /* loop2 in k13015 in k13230 in k13236 in loop1 in a12902 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_13044(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; if(C_unlikely(!C_demand(C_calculate_demand(16,0,4)))){ C_save_and_reclaim_args((void *)trf_13044,5,t0,t1,t2,t3,t4);} a=C_alloc(16); t5=t4; t6=C_slot(t5,C_fix(1)); t7=t4; t8=C_slot(t7,C_fix(2)); t9=t8; t10=t4; t11=C_slot(t10,C_fix(3)); t12=t11; t13=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13075,a[2]=t12,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[2],a[6]=t1,a[7]=((C_word*)t0)[3],a[8]=t4,tmp=(C_word)a,a+=9,tmp); t14=C_eqp(t6,lf[6]); if(C_truep(t14)){ t15=C_i_cdr(t9); if(C_truep(C_i_nullp(t15))){ t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13208,a[2]=t13,a[3]=t3,a[4]=t12,a[5]=t9,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t17=C_u_i_car(t9); /* optimizer.scm:720: get */ t18=*((C_word*)lf[33]+1);{ C_word av2[5]; av2[0]=t18; av2[1]=t16; av2[2]=((C_word*)t0)[4]; av2[3]=t17; av2[4]=lf[105]; ((C_proc)(void*)(*((C_word*)t18+1)))(5,av2);}} else{ t16=t13; f_13075(t16,C_SCHEME_FALSE);}} else{ t15=t13; f_13075(t15,C_SCHEME_FALSE);}} /* k5389 in k5386 in k5435 in loop in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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(5,c,1)))){ C_save_and_reclaim((void *)f_5391,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10023 in walk in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_10025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10025,2,av);} if(C_truep(t1)){ /* optimizer.scm:1367: transform */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10692(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:1368: walk */ t3=((C_word*)((C_word*)t0)[11])[1]; f_9985(t3,((C_word*)t0)[3],C_SCHEME_FALSE,t2,C_SCHEME_FALSE);}} /* k13015 in k13230 in k13236 in loop1 in a12902 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word t4; C_word t5; C_word 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_13017,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_u_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_13044,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_13044(t13,((C_word*)t0)[6],t7,t8,t9);} else{ t6=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6623 in k6617 in k6597 in k6591 in k6588 in g971 in k6569 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6625(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6625,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6631,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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=C_slot(((C_word*)t0)[2],C_fix(1)); t6=t2; f_6631(t6,C_eqp(lf[5],t5));} else{ t5=t2; f_6631(t5,C_SCHEME_FALSE);}} else{ t3=t2; f_6631(t3,C_SCHEME_FALSE);}} /* descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_12098(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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,0,2)))){ C_save_and_reclaim_args((void *)trf_12098,3,t0,t1,t2);} a=C_alloc(12); t3=t2; t4=C_slot(t3,C_fix(3)); t5=C_i_cadr(t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12108,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]=t2,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); t8=C_slot(t6,C_fix(1)); t9=C_eqp(lf[6],t8); if(C_truep(t9)){ t10=C_slot(t6,C_fix(3)); t11=C_i_car(t10); t12=C_slot(t11,C_fix(1)); t13=t7; f_12108(t13,C_eqp(lf[15],t12));} else{ t10=t7; f_12108(t10,C_SCHEME_FALSE);}} /* k6617 in k6597 in k6591 in k6588 in g971 in k6569 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_6619(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_6619,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_6625,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:576: get-list */ t5=*((C_word*)lf[124]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[10]; av2[3]=t3; av2[4]=lf[98]; ((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_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9217 in k9197 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9219,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9241 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word 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_9243,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=t2; t4=(C_truep(*((C_word*)lf[145]+1))?C_i_caddr(((C_word*)t0)[2]):C_i_cadr(((C_word*)t0)[2])); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9252,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[2],a[6]=t5,tmp=(C_word)a,a+=7,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9359,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1211: remove */ t8=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9250 in k9241 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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_9252,2,av);} a=C_alloc(14); 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_9278,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1216: qnode */ t5=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_u_i_car(t1); t5=C_a_i_list2(&a,2,((C_word*)t0)[2],t4); t6=((C_word*)t0)[3]; t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],t3,t5); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t3=C_i_cadddr(((C_word*)t0)[5]); t4=(C_truep(t3)?t3:C_eqp(*((C_word*)lf[146]+1),lf[147])); if(C_truep(t4)){ t5=C_a_i_list1(&a,1,C_SCHEME_TRUE); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9331,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t6,tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9333,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1224: fold-inner */ t9=*((C_word*)lf[155]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t7; av2[2]=t8; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}} /* for-each-loop2692 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_12556(C_word t0,C_word t1,C_word 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_12556,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_12566,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:1661: g2693 */ t5=((C_word*)t0)[3]; f_11800(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);}}} /* k5647 in a5571 in k5559 in k5547 in k5544 in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5649,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:436: append */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12545 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_12547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12547,2,av);} t2=C_i_pairp(((C_word*)((C_word*)t0)[2])[1]); /* optimizer.scm:1776: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12177 in k12245 in k12348 in k12352 in k12106 in descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in ... */ static void C_ccall f_12179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,3)))){ C_save_and_reclaim((void *)f_12179,2,av);} a=C_alloc(27); t2=C_a_i_record4(&a,4,lf[14],lf[12],lf[189],t1); t3=C_a_i_list2(&a,2,((C_word*)t0)[2],t2); t4=C_a_i_record4(&a,4,lf[14],lf[6],((C_word*)t0)[3],t3); t5=C_a_i_list2(&a,2,((C_word*)t0)[4],t4); t6=C_a_i_record4(&a,4,lf[14],lf[6],((C_word*)t0)[5],t5); /* optimizer.scm:1707: copy-node! */ t7=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=((C_word*)t0)[6]; av2[2]=t6; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k9520 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9522,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_9528,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:1256: fifth */ t5=*((C_word*)lf[154]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k5639 in a5571 in k5559 in k5547 in k5544 in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_5641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_5641,2,av);} a=C_alloc(18); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5603,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=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_5605,a[2]=((C_word*)t0)[8],a[3]=t5,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_5605(t7,t3,t2);} /* k9526 in k9520 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_9528,2,av);} a=C_alloc(8); t2=t1; t3=C_i_cadddr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9534,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); if(C_truep(*((C_word*)lf[145]+1))){ t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=C_u_i_cdr(t7); t9=t5; f_9534(t9,C_u_i_car(t8));} else{ t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=t5; f_9534(t8,C_u_i_car(t7));}} /* k9532 in k9526 in k9520 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_9534(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_9534,2,t0,t1);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9537,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_9654,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1260: remove */ t5=*((C_word*)lf[4]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k9535 in k9532 in k9526 in k9520 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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_9537,2,av);} a=C_alloc(14); 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_9563,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1265: qnode */ t5=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_u_i_car(t1); t5=C_a_i_list2(&a,2,((C_word*)t0)[2],t4); t6=((C_word*)t0)[3]; t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],t3,t5); ((C_proc)(void*)(*((C_word*)t7+1)))(2,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_9607,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_9609,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:1273: fold-inner */ t7=*((C_word*)lf[155]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}}} /* k5628 in map-loop735 in k5639 in a5571 in k5559 in k5547 in k5544 in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5630,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5605(t6,((C_word*)t0)[5],t5);} /* k12564 in for-each-loop2692 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12566,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_12556(t3,((C_word*)t0)[4],t2);} /* map-loop2711 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_12509(C_word t0,C_word t1,C_word 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_12509,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_12534,a[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:1669: g2717 */ t5=((C_word*)t0)[4]; f_11815(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);}}} /* k5683 in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_5685(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5685,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_5546(t3,C_i_not(t2));} else{ t2=((C_word*)t0)[4]; f_5546(t2,C_SCHEME_FALSE);}} /* k12532 in map-loop2711 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_12534,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_12509(t6,((C_word*)t0)[5],t5);} /* k12185 in k12181 in k12245 in k12348 in k12352 in k12106 in descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in ... */ static void C_ccall f_12187(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12187,2,av);} /* optimizer.scm:1747: cons* */ t2=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop2919 in k11950 in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_12075(C_word t0,C_word t1,C_word 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_12075,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_12085,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:1754: g2920 */ t5=((C_word*)t0)[3]; f_11953(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);}}} /* k12181 in k12245 in k12348 in k12352 in k12106 in descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in ... */ static void C_ccall f_12183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_12183,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12187,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_12191,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12201,tmp=(C_word)a,a+=2,tmp); /* optimizer.scm:1749: list-tabulate */ t6=*((C_word*)lf[188]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k6986 in a6974 in g1366 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6988,2,av);} if(C_truep(t1)){ /* optimizer.scm:849: find-path */ t2=((C_word*)t0)[2]; f_6887(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k12197 in k12189 in k12181 in k12245 in k12348 in k12352 in k12106 in descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_12199,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:1748: append */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop670 in k5435 in loop in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_5401(C_word t0,C_word t1,C_word 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_5401,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_5426,a[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:401: g676 */ t5=((C_word*)t0)[4]; f_5378(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);}}} /* k12083 in for-each-loop2919 in k11950 in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 in ... */ static void C_ccall f_12085(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12085,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_12075(t3,((C_word*)t0)[4],t2);} /* k5696 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_5698(C_word c,C_word *av){ C_word tmp; C_word t0=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_5698,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5744,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:365: test */ t3=((C_word*)((C_word*)t0)[6])[1]; f_4146(t3,t2,((C_word*)t0)[7],lf[70]);} else{ t2=((C_word*)t0)[2]; f_5249(t2,C_SCHEME_FALSE);}} /* k8895 in k8869 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_8897(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8897,2,av);} /* optimizer.scm:1141: cons* */ t2=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8891 in k8869 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_8893(C_word c,C_word *av){ C_word tmp; C_word t0=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_8893,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k12189 in k12181 in k12245 in k12348 in k12352 in k12106 in descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12191,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12199,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1750: qnode */ t4=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a6974 in g1366 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6975(C_word c,C_word *av){ C_word tmp; C_word 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_6975,3,av);} a=C_alloc(6); t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_6988,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:849: find-path */ t5=((C_word*)t0)[3]; f_6887(t5,t4,((C_word*)t0)[2],t2);}} /* k12253 in k12340 in k12348 in k12352 in k12106 in descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12255,2,av);} t2=((C_word*)t0)[2]; t3=C_slot(t2,C_fix(3)); t4=C_i_cdr(t3); /* optimizer.scm:1727: append */ t5=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t1; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k13073 in loop2 in k13015 in k13230 in k13236 in loop1 in a12902 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_13075,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_slot(t2,C_fix(3)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[3]); t6=C_i_cdr(((C_word*)t0)[4]); t7=C_i_cadr(((C_word*)t0)[2]); /* optimizer.scm:725: loop2 */ t8=((C_word*)((C_word*)t0)[5])[1]; f_13044(t8,((C_word*)t0)[6],t5,t6,t7);} else{ if(C_truep(C_i_nullp(((C_word*)t0)[4]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13118,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13128,tmp=(C_word)a,a+=2,tmp); /* optimizer.scm:729: ##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);}}}} /* k6225 in for-each-loop875 in k6239 in k6281 in k6182 in k6165 in k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6227,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6217(t3,((C_word*)t0)[4],t2);} /* k6959 in k6967 in k6951 in g1366 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6961,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6967 in k6951 in g1366 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6969(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,4)))){ C_save_and_reclaim((void *)f_6969,2,av);} a=C_alloc(16); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,C_a_i_cons(&a,2,t1,t2),((C_word*)((C_word*)t0)[4])[1]); t4=C_mutate2(((C_word *)((C_word*)t0)[4])+1,t3); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6961,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t6=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* optimizer.scm:852: append */ t7=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* a12200 in k12181 in k12245 in k12348 in k12352 in k12106 in descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in ... */ static void C_ccall f_12201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12201,2,av);} /* optimizer.scm:1749: qnode */ t2=*((C_word*)lf[40]+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);}} /* k6213 in k6239 in k6281 in k6182 in k6165 in k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6215,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop875 in k6239 in k6281 in k6182 in k6165 in k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_6217(C_word t0,C_word t1,C_word 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_6217,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_6227,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:490: g876 */ 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);}}} /* rec in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_10223(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 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; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_10223,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(9); t6=t2; t7=C_slot(t6,C_fix(2)); t8=t7; t9=t2; t10=C_slot(t9,C_fix(3)); t11=t10; t12=t2; t13=C_slot(t12,C_fix(1)); t14=C_eqp(t13,lf[3]); if(C_truep(t14)){ t15=C_i_car(t8); t16=t15; t17=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10287,a[2]=t1,a[3]=t16,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:1384: get */ t18=*((C_word*)lf[33]+1);{ C_word av2[5]; av2[0]=t18; av2[1]=t17; av2[2]=((C_word*)t0)[5]; av2[3]=t16; av2[4]=lf[160]; ((C_proc)(void*)(*((C_word*)t18+1)))(5,av2);}} else{ t15=C_eqp(t13,lf[11]); if(C_truep(t15)){ if(C_truep(t3)){ t16=C_i_caddr(t8); t17=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10305,a[2]=t3,a[3]=((C_word*)t0)[6],a[4]=t11,a[5]=((C_word*)t0)[7],a[6]=t5,tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1392: decompose-lambda-list */ t18=*((C_word*)lf[66]+1);{ C_word av2[4]; av2[0]=t18; av2[1]=t1; av2[2]=t16; av2[3]=t17; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}} 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{ t16=C_eqp(t13,lf[89]); if(C_truep(t16)){ t17=((C_word*)((C_word*)t0)[3])[1]; if(C_truep(t17)){ t18=t1;{ C_word av2[2]; av2[0]=t18; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} else{ t18=C_i_cadr(t8); t19=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[4])[1],t18); t20=C_mutate2(((C_word *)((C_word*)t0)[4])+1,t19); t21=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10342,a[2]=((C_word*)t0)[7],a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1401: every */ t22=*((C_word*)lf[43]+1);{ C_word av2[4]; av2[0]=t22; av2[1]=t1; av2[2]=t21; av2[3]=t11; ((C_proc)(void*)(*((C_word*)t22+1)))(4,av2);}}} else{ t17=C_eqp(t13,lf[69]); if(C_truep(t17)){ if(C_truep(t4)){ if(C_truep(((C_word*)t0)[8])){ t18=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10376,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[9],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t19=C_i_car(t11); /* optimizer.scm:1404: scan-used-variables */ t20=*((C_word*)lf[131]+1);{ C_word av2[4]; av2[0]=t20; av2[1]=t18; av2[2]=t19; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t20+1)))(4,av2);}} else{ t18=t1;{ C_word av2[2]; av2[0]=t18; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}} else{ t18=t1;{ C_word av2[2]; av2[0]=t18; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}} else{ t18=C_eqp(t13,lf[161]); if(C_truep(t18)){ t19=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10392,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=t1,a[5]=t11,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); t20=C_i_cadr(t8); /* optimizer.scm:1409: estimate-foreign-result-size */ t21=*((C_word*)lf[162]+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(t13,lf[163]); if(C_truep(t19)){ t20=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10433,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=t1,a[5]=t11,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); t21=C_i_car(t8); /* optimizer.scm:1417: estimate-foreign-result-size */ t22=*((C_word*)lf[162]+1);{ C_word av2[3]; av2[0]=t22; av2[1]=t20; av2[2]=t21; ((C_proc)(void*)(*((C_word*)t22+1)))(3,av2);}} else{ t20=C_eqp(t13,lf[12]); if(C_truep(t20)){ t21=C_i_car(t11); t22=C_slot(t21,C_fix(1)); t23=C_eqp(lf[3],t22); if(C_truep(t23)){ t24=C_slot(t21,C_fix(2)); t25=C_i_car(t24); t26=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10486,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=t11,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t27=C_eqp(t25,((C_word*)t0)[10]); if(C_truep(t27)){ if(C_truep(C_i_zerop(((C_word*)((C_word*)t0)[4])[1]))){ t28=C_i_cadr(t11); t29=C_slot(t28,C_fix(1)); t30=C_eqp(lf[3],t29); if(C_truep(t30)){ t31=C_slot(t28,C_fix(2)); t32=C_i_car(t31); t33=C_a_i_cons(&a,2,t32,((C_word*)((C_word*)t0)[11])[1]); t34=C_mutate2(((C_word *)((C_word*)t0)[11])+1,t33); t35=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_TRUE); t36=t26; f_10486(t36,C_SCHEME_TRUE);} else{ t31=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_TRUE); t32=t26; f_10486(t32,C_SCHEME_TRUE);}} else{ t28=t26; f_10486(t28,C_SCHEME_FALSE);}} else{ t28=t26; f_10486(t28,C_eqp(t25,((C_word*)t0)[12]));}} else{ t24=t1;{ C_word av2[2]; av2[0]=t24; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t24+1)))(2,av2);}}} else{ t21=C_eqp(t13,lf[164]); if(C_truep(t21)){ t22=C_i_cadddr(t8); t23=C_i_zerop(t22); if(C_truep(t23)){ t24=t1;{ C_word av2[2]; av2[0]=t24; av2[1]=t23; ((C_proc)(void*)(*((C_word*)t24+1)))(2,av2);}} else{ t24=((C_word*)((C_word*)t0)[3])[1]; if(C_truep(t24)){ t25=t1;{ C_word av2[2]; av2[0]=t25; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t25+1)))(2,av2);}} else{ t25=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[4])[1],t22); t26=C_mutate2(((C_word *)((C_word*)t0)[4])+1,t25); t27=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10593,a[2]=((C_word*)t0)[7],a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1443: every */ t28=*((C_word*)lf[43]+1);{ C_word av2[4]; av2[0]=t28; av2[1]=t1; av2[2]=t27; av2[3]=t11; ((C_proc)(void*)(*((C_word*)t28+1)))(4,av2);}}}} else{ t22=C_eqp(t13,lf[13]); if(C_truep(t22)){ t23=C_i_car(t11); t24=C_i_car(t8); /* optimizer.scm:1444: rec */ t37=t1; t38=t23; t39=t24; t40=C_SCHEME_FALSE; t41=t5; t1=t37; t2=t38; t3=t39; t4=t40; t5=t41; goto loop;} else{ t23=C_eqp(t13,lf[6]); if(C_truep(t23)){ t24=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10626,a[2]=t11,a[3]=((C_word*)t0)[7],a[4]=t1,a[5]=t8,a[6]=t5,tmp=(C_word)a,a+=7,tmp); t25=C_i_car(t11); t26=C_i_car(t8); /* optimizer.scm:1446: rec */ t37=t24; t38=t25; t39=t26; t40=t2; t41=t5; t1=t37; t2=t38; t3=t39; t4=t40; t5=t41; goto loop;} else{ t24=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10650,a[2]=((C_word*)t0)[7],a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1448: every */ t25=*((C_word*)lf[43]+1);{ C_word av2[4]; av2[0]=t25; av2[1]=t1; av2[2]=t24; av2[3]=t11; ((C_proc)(void*)(*((C_word*)t25+1)))(4,av2);}}}}}}}}}}}} /* scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_10220(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_10220,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_10223,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_10683,a[2]=t1,a[3]=t8,a[4]=t3,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1452: rec */ t18=((C_word*)t12)[1]; f_10223(t18,t17,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,t6);} /* k4670 in k4667 in g353 in k4608 in k4602 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_4672(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4672,2,av);} /* optimizer.scm:245: varnode */ t2=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8869 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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; C_word t3; C_word t4; C_word t5; C_word 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,2)))){ C_save_and_reclaim((void *)f_8871,2,av);} a=C_alloc(15); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_eqp(*((C_word*)lf[146]+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_8893,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_8897,a[2]=t7,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t9=((C_word*)t0)[2]; t10=C_u_i_cdr(t9); t11=C_u_i_cdr(t10); t12=C_u_i_car(t11); /* optimizer.scm:1141: varnode */ t13=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t8; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} else{ t4=C_i_cadr(((C_word*)t0)[2]); t5=C_eqp(*((C_word*)lf[146]+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]); t8=((C_word*)t0)[3]; t9=t8;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],t6,t7); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t6=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9024 in k8985 in k8962 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,1)))){ C_save_and_reclaim((void *)f_9026,2,av);} a=C_alloc(14); t2=C_eqp(C_SCHEME_TRUE,((C_word*)t0)[2]); if(C_truep(t2)){ t3=C_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)); t4=((C_word*)t0)[4]; f_9022(t4,C_a_i_list2(&a,2,t1,t3));} 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_a_i_times(&a,2,((C_word*)t0)[3],t4); t6=C_a_i_plus(&a,2,t3,t5); t7=((C_word*)t0)[4]; f_9022(t7,C_a_i_list2(&a,2,t1,t6));} else{ t3=((C_word*)t0)[4]; f_9022(t3,C_a_i_list2(&a,2,t1,((C_word*)t0)[2]));}}} /* k6239 in k6281 in k6182 in k6165 in k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 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_6241,2,av);} a=C_alloc(13); t2=(C_truep(t1)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6242,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp):(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6259,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[2]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6215,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_6217,a[2]=t8,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_6217(t10,t6,t4);} /* f_6242 in k6239 in k6281 in k6182 in k6165 in k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6242,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k9020 in k8985 in k8962 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_9022(C_word 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(16,0,1)))){ C_save_and_reclaim_args((void *)trf_9022,2,t0,t1);} a=C_alloc(16); t2=((C_word*)t0)[2]; t3=C_a_i_record4(&a,4,lf[14],lf[89],t1,t2); t4=C_a_i_list2(&a,2,((C_word*)t0)[3],t3); t5=((C_word*)t0)[4]; t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[5],t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k4692 in g353 in k4608 in k4602 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_4694,2,av);} t2=C_eqp(lf[53],t1); t3=((C_word*)t0)[2]; f_4669(t3,C_i_not(t2));} /* register-simplifications in k4138 in k3753 in k3750 in k3747 */ 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=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_6857,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; /* optimizer.scm:603: ##sys#hash-table-set! */ t4=*((C_word*)lf[129]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=*((C_word*)lf[30]+1); av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* map-loop735 in k5639 in a5571 in k5559 in k5547 in k5544 in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_5605(C_word t0,C_word t1,C_word 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_5605,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_5630,a[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:434: g741 */ t5=((C_word*)t0)[4]; f_5593(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);}}} /* k5601 in k5639 in a5571 in k5559 in k5547 in k5544 in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_5603,2,av);} a=C_alloc(12); t2=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[2],t1); t3=t2; t4=C_a_i_cons(&a,2,t3,((C_word*)((C_word*)t0)[3])[1]); t5=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t4); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5588,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:446: invalidate-gae! */ f_4186(t6,((C_word*)t0)[6]);} /* k7769 in k7722 in k7713 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_7771,2,av);} a=C_alloc(11); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[3],t2); /* optimizer.scm:971: fold-right */ t4=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t3; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k6842 in for-each-loop970 in k6821 in k6569 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6844,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6834(t3,((C_word*)t0)[4],t2);} /* k6322 in k6291 in k6333 in k6165 in k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6324(C_word c,C_word *av){ C_word tmp; C_word t0=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_6324,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_6184(t2,C_SCHEME_FALSE);} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6320,a[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:484: test */ t3=((C_word*)((C_word*)t0)[5])[1]; f_4146(t3,t2,((C_word*)t0)[6],lf[98]);}} /* k6318 in k6322 in k6291 in k6333 in k6165 in k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6320,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_6184(t2,C_SCHEME_FALSE);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6312,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* optimizer.scm:485: expression-has-side-effects? */ t4=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k6310 in k6318 in k6322 in k6291 in k6333 in k6165 in k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6312(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6312,2,av);} t2=((C_word*)t0)[2]; f_6184(t2,C_i_not(t1));} /* for-each-loop2450 in k10822 in k10734 in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_10991(C_word t0,C_word t1,C_word 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_10991,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_11001,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:1527: g2451 */ t5=((C_word*)t0)[3]; f_10737(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);}}} /* k5473 in k5491 in k5453 in k5447 in k5441 in loop in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 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,5)))){ C_save_and_reclaim((void *)f_5475,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5479,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_a_i_minus(&a,2,((C_word*)t0)[5],C_fix(1)); t7=((C_word*)t0)[6]; t8=C_u_i_cdr(t7); /* optimizer.scm:417: loop */ t9=((C_word*)((C_word*)t0)[7])[1]; f_5361(t9,t3,t5,t6,t8,((C_word*)t0)[8]);} /* k5477 in k5473 in k5491 in k5453 in k5447 in k5441 in loop in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 in ... */ 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; 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_5479,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[14],lf[6],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6805 in g971 in k6569 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6807,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_6590(2,av2);}} else{ /* optimizer.scm:564: test */ t2=((C_word*)((C_word*)t0)[3])[1]; f_6544(t2,((C_word*)t0)[2],((C_word*)t0)[4],lf[49]);}} /* k5424 in map-loop670 in k5435 in loop in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_5426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_5426,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5401(t6,((C_word*)t0)[5],t5);} /* k5441 in loop in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_5443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,5)))){ C_save_and_reclaim((void *)f_5443,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=( /* optimizer.scm:408: touch */ f_4182(((C_word*)((C_word*)t0)[2])[1]) ); t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5449,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:409: debugging */ t6=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t3; av2[2]=lf[18]; av2[3]=lf[86]; 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_a_i_minus(&a,2,((C_word*)t0)[5],C_fix(1)); t5=C_i_cdr(((C_word*)t0)[6]); t6=((C_word*)t0)[6]; t7=C_u_i_car(t6); t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[8]); /* optimizer.scm:419: loop */ t9=((C_word*)((C_word*)t0)[7])[1]; f_5361(t9,((C_word*)t0)[3],t3,t4,t5,t8);}} /* k5447 in k5441 in loop in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_5449,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,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],a[6]=((C_word*)t0)[6],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:412: expression-has-side-effects? */ t4=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12245 in k12348 in k12352 in k12106 in descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in ... */ static void C_ccall f_12247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_12247,2,av);} a=C_alloc(33); t2=C_a_i_record4(&a,4,lf[14],lf[22],((C_word*)t0)[2],t1); t3=C_a_i_list1(&a,1,t2); t4=C_a_i_record4(&a,4,lf[14],lf[11],((C_word*)t0)[3],t3); t5=C_a_i_list1(&a,1,t4); t6=C_a_i_record4(&a,4,lf[14],lf[13],((C_word*)t0)[4],t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12179,a[2]=t7,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); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12183,a[2]=t8,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1747: varnode */ t10=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k5435 in loop in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_5437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_5437,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_5388,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_5401,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_5401(t7,t3,t2);} /* k5133 in k5126 in k5112 in k5109 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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,4)))){ C_save_and_reclaim((void *)f_5135,2,av);} /* optimizer.scm:327: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4357(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k4931 in k4951 in k4911 in a4905 in a4887 in k4881 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_4933,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[14],lf[11],((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6394 in k6387 in lp in walk-generic in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_6396(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_6396,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:514: lp */ t5=((C_word*)((C_word*)t0)[5])[1]; f_6358(t5,((C_word*)t0)[6],t1,t3,t4);} /* k7834 in k7814 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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_7836,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_7844,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:987: qnode */ t7=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k10199 in for-each-loop2190 in walk in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10201,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10191(t3,((C_word*)t0)[4],t2);} /* k6421 in k6415 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6423,2,av);} a=C_alloc(8); t2=C_set_block_item(lf[31] /* ##compiler#simplified-ops */,0,C_SCHEME_END_OF_LIST); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6427,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:522: walk */ t4=((C_word*)((C_word*)t0)[8])[1]; f_4357(t4,t3,((C_word*)t0)[9],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* k6425 in k6421 in k6415 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6427,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6430,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:523: debugging */ t4=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[18]; av2[3]=lf[117]; 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_6430(2,av2);}}} /* k5126 in k5112 in k5109 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 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_5128,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5135,a[2]=((C_word*)t0)[2],a[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_fix(3)); t4=C_i_car(t3); /* optimizer.scm:328: inline-lambda-bindings */ t5=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[8]; av2[4]=t4; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[9]; av2[7]=*((C_word*)lf[72]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(8,av2);}} /* k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_11811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_11811,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_11815,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t10=C_i_check_list_2(((C_word*)t0)[2],lf[35]); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11937,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_12509,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_12509(t15,t11,((C_word*)t0)[2]);} /* g2717 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_11815(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_11815,3,t0,t1,t2);} a=C_alloc(21); t3=t2; t4=C_slot(t3,C_fix(2)); t5=C_i_car(t4); t6=t5; t7=t2; t8=C_slot(t7,C_fix(3)); t9=C_i_car(t8); t10=t9; t11=C_slot(t10,C_fix(2)); t12=C_i_caddr(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_word*)lf[83]+1); t19=C_i_check_list_2(t13,lf[35]); t20=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11842,a[2]=t10,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=t13,a[6]=t2,a[7]=t1,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_11881,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_11881(t24,t20,t13);} /* k6387 in lp in walk-generic in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6389,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6396,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_6396(t6,C_eqp(t2,t5));} else{ t4=t3; f_6396(t4,C_SCHEME_FALSE);}} /* k6381 in k6366 in lp in walk-generic in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,1)))){ C_save_and_reclaim((void *)f_6383,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[14],t3,t4,t1); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k6188 in k6182 in k6165 in k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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(5,c,1)))){ C_save_and_reclaim((void *)f_6190,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[14],lf[15],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4800 in k4726 in k4723 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_4802,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_u_i_car(((C_word*)t0)[2]); t3=C_slot(t2,C_fix(2)); t4=C_i_car(t3); t5=((C_word*)t0)[3]; f_4745(t5,C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[4],t4),((C_word*)t0)[5]));} else{ t2=((C_word*)t0)[3]; f_4745(t2,((C_word*)t0)[5]);}} /* k7571 in k7482 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_7573,2,av);} a=C_alloc(11); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; f_7487(t3,C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[4],t2));} /* k6415 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6417(C_word c,C_word *av){ C_word tmp; C_word t0=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_6417,2,av);} a=C_alloc(10); if(C_truep(t1)){ /* optimizer.scm:518: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_6423,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:520: debugging */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[28]; av2[3]=lf[118]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k8533 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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,2)))){ C_save_and_reclaim((void *)f_8535,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_i_not(t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8545,a[2]=((C_word*)t0)[2],a[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_8545(t6,t4);} else{ t6=C_i_length(((C_word*)t0)[5]); t7=((C_word*)t0)[2]; t8=C_u_i_car(t7); t9=t5; f_8545(t9,C_i_nequalp(t6,t8));}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* remember in scan-toplevel-assignments in k3753 in k3750 in k3747 */ static void C_fcall f_3783(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_3783,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3788,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:53: alist-update! */ t5=*((C_word*)lf[1]+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);}} /* k3786 in remember in scan-toplevel-assignments in k3753 in k3750 in k3747 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_3788,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6182 in k6165 in k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_6184(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_6184,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=( /* optimizer.scm:486: touch */ f_4182(((C_word*)((C_word*)t0)[2])[1]) ); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6190,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:487: debugging */ t4=*((C_word*)lf[17]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=lf[18]; av2[3]=lf[104]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6283,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],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); t3=C_i_car(((C_word*)t0)[8]); /* optimizer.scm:490: walk */ t4=((C_word*)((C_word*)t0)[9])[1]; f_4357(t4,t2,t3,((C_word*)t0)[10],((C_word*)t0)[6]);}} /* k6440 in k6437 in k6434 in k6431 in k6428 in k6425 in k6421 in k6415 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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);} /* optimizer.scm:539: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* touch in scan-toplevel-assignments in k3753 in k3750 in k3747 */ static C_word C_fcall f_3790(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);} /* g43 in scan-each in scan-toplevel-assignments in k3753 in k3750 in k3747 */ static void C_fcall f_3797(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_3797,3,t0,t1,t2);} /* optimizer.scm:60: scan */ t3=((C_word*)((C_word*)t0)[2])[1]; f_3832(t3,t1,t2,((C_word*)t0)[3]);} /* scan-each in scan-toplevel-assignments in k3753 in k3750 in k3747 */ static void C_fcall f_3795(C_word t0,C_word t1,C_word 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_3795,4,t0,t1,t2,t3);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3797,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_check_list_2(t2,lf[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_3809,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_3809(t9,t1,t2);} /* k8113 in k8080 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_8115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,1)))){ C_save_and_reclaim((void *)f_8115,2,av);} a=C_alloc(16); t2=C_a_i_record4(&a,4,lf[14],lf[144],((C_word*)t0)[2],t1); t3=C_a_i_list2(&a,2,((C_word*)t0)[3],t2); t4=((C_word*)t0)[4]; t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[5],t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k8559 in k8543 in k8533 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_8561(C_word c,C_word *av){ C_word tmp; C_word t0=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_8561,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6366 in lp in walk-generic in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6368(C_word c,C_word *av){ C_word tmp; C_word t0=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_6368,2,av);} a=C_alloc(5); if(C_truep(((C_word*)t0)[2])){ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_6383,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:511: reverse */ t3=*((C_word*)lf[107]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* for-each-loop970 in k6821 in k6569 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_6834(C_word t0,C_word t1,C_word 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_6834,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_6844,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:559: g971 */ t5=((C_word*)t0)[3]; f_6572(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);}}} /* k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_5177(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(21,0,4)))){ C_save_and_reclaim_args((void *)trf_5177,2,t0,t1);} a=C_alloc(21); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5180,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:345: debugging */ t3=*((C_word*)lf[17]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=lf[18]; av2[3]=lf[75]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_5215,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)[4],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[15],a[14]=((C_word*)t0)[2],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)[3],tmp=(C_word)a,a+=21,tmp); if(C_truep(((C_word*)t0)[5])){ t3=C_slot(((C_word*)t0)[5],C_fix(1)); t4=t2; f_5215(t4,C_eqp(lf[11],t3));} else{ t3=t2; f_5215(t3,C_SCHEME_FALSE);}}} /* mark in scan-toplevel-assignments in k3753 in k3750 in k3747 */ static void C_fcall f_3760(C_word 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_3760,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3767,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=((C_word*)((C_word*)t0)[3])[1]; if(C_truep(t4)){ t5=t3; f_3767(t5,C_SCHEME_FALSE);} else{ t5=C_i_memq(t2,((C_word*)((C_word*)t0)[4])[1]); t6=t3; f_3767(t6,C_i_not(t5));}} /* k3765 in mark in scan-toplevel-assignments in k3753 in k3750 in k3747 */ static void C_fcall f_3767(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_3767,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_mutate2(((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);}}} /* walk-generic in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_6352(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_6352,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_6358,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_6358(t12,t1,C_SCHEME_TRUE,t5,C_SCHEME_END_OF_LIST);} /* k8121 in k8080 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_8123,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:1025: append */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* lp in walk-generic in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_6358(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_6358,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_6368,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:509: invalidate-gae! */ f_4186(t5,((C_word*)t0)[7]);} else{ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_6368(2,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6389,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:513: walk */ t7=((C_word*)((C_word*)t0)[9])[1]; f_4357(t7,t5,t6,((C_word*)t0)[10],((C_word*)t0)[7]);}} /* k6165 in k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_6167,2,av);} a=C_alloc(18); if(C_truep(t1)){ t2=( /* optimizer.scm:479: touch */ f_4182(((C_word*)((C_word*)t0)[2])[1]) ); t3=((C_word*)t0)[3]; t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[14],lf[15],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6184,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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_6335,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:481: test */ t4=((C_word*)((C_word*)t0)[7])[1]; f_4146(t4,t3,((C_word*)t0)[4],lf[56]);}} /* k6821 in k6569 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_6823,2,av);} a=C_alloc(6); t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST); t3=C_i_check_list_2(t2,lf[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|3,a[1]=(C_word)f_6834,a[2]=t5,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_6834(t7,((C_word*)t0)[3],t2);} /* k5158 in for-each-loop501 in k5112 in k5109 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_5160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5160,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5150(t3,((C_word*)t0)[4],t2);} /* k6156 in k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6158(C_word c,C_word *av){ C_word tmp; C_word t0=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_6158,2,av);} a=C_alloc(5); if(C_truep(t1)){ /* optimizer.scm:476: debugging */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[76]; av2[3]=lf[103]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=((C_word*)t0)[4]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[14],lf[15],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5109 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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(11,c,4)))){ C_save_and_reclaim((void *)f_5111,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5114,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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:324: debugging */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[18]; av2[3]=lf[73]; av2[4]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5112 in k5109 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 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_5114,2,av);} a=C_alloc(19); t2=( /* optimizer.scm:325: touch */ f_4182(((C_word*)((C_word*)t0)[2])[1]) ); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5118,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[2]); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5128,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)[10],a[9]=((C_word*)t0)[3],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_5150,a[2]=t8,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_5150(t10,t6,t4);} /* g502 in k5112 in k5109 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_5118(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_5118,3,t0,t1,t2);} t3=*((C_word*)lf[47]+1); /* optimizer.scm:326: g517 */ t4=*((C_word*)lf[47]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=lf[70]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k11840 in g2717 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_11842(C_word c,C_word *av){ C_word tmp; C_word t0=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_11842,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11847,a[2]=((C_word*)t0)[2],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:1677: decompose-lambda-list */ t3=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[7]; av2[2]=((C_word*)t0)[5]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a11846 in k11840 in g2717 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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(16,c,3)))){ C_save_and_reclaim((void *)f_11847,5,av);} a=C_alloc(16); t5=C_slot(((C_word*)t0)[2],C_fix(3)); t6=C_i_car(t5); t7=t6; t8=((C_word*)((C_word*)t0)[3])[1]; t9=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[3])[1],C_fix(1)); t10=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t9); t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11858,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=t8,a[5]=((C_word*)t0)[5],a[6]=t7,tmp=(C_word)a,a+=7,tmp); t12=C_a_i_record4(&a,4,lf[14],lf[15],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST); /* optimizer.scm:1683: copy-node! */ t13=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t11; av2[2]=t12; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}} /* k11250 in rec in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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,3)))){ 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); /* optimizer.scm:1512: node-parameters-set! */ t3=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11253 in k11250 in rec in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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(0,c,3)))){ C_save_and_reclaim((void *)f_11255,2,av);} t2=C_u_i_cdr(((C_word*)t0)[2]); /* optimizer.scm:1513: node-subexpressions-set! */ t3=*((C_word*)lf[121]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k13299 in k13316 in k13273 in a13261 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13301(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13301,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13305,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:677: qnode */ t4=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6333 in k6165 in k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6335,2,av);} a=C_alloc(10); t2=C_i_not(t1); t3=(*a=C_CLOSURE_TYPE|6,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],tmp=(C_word)a,a+=7,tmp); if(C_truep(t2)){ t4=t3; f_6293(t4,t2);} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6331,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:482: variable-visible? */ t5=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k13303 in k13299 in k13316 in k13273 in a13261 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13305(C_word c,C_word *av){ C_word tmp; C_word 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_13305,2,av);} /* optimizer.scm:676: cons* */ t2=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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(12,c,3)))){ C_save_and_reclaim((void *)f_6141,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=( /* optimizer.scm:474: touch */ f_4182(((C_word*)((C_word*)t0)[2])[1]) ); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6147,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6158,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:475: test */ t5=((C_word*)((C_word*)t0)[5])[1]; f_4146(t5,t4,((C_word*)t0)[4],lf[56]);} else{ t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6167,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],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:478: test */ t3=((C_word*)((C_word*)t0)[5])[1]; f_4146(t3,t2,((C_word*)t0)[4],lf[48]);}} /* k9724 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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,2)))){ C_save_and_reclaim((void *)f_9726,2,av);} a=C_alloc(25); if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); t3=(C_truep(t2)?t2:*((C_word*)lf[145]+1)); if(C_truep(t3)){ t4=C_a_i_list1(&a,1,C_SCHEME_TRUE); t5=t4; t6=C_eqp(*((C_word*)lf[146]+1),lf[147]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9774,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1296: fifth */ t8=*((C_word*)lf[154]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} else{ t7=C_i_cadr(((C_word*)t0)[2]); t8=C_a_i_list2(&a,2,t7,((C_word*)t0)[6]); t9=((C_word*)t0)[3]; t10=C_a_i_record4(&a,4,lf[14],lf[89],t8,t9); t11=C_a_i_list2(&a,2,((C_word*)t0)[4],t10); t12=((C_word*)t0)[5]; t13=t12;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],t5,t11); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k6329 in k6333 in k6165 in k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6331,2,av);} t2=((C_word*)t0)[2]; f_6293(t2,C_i_not(t1));} /* k6145 in k6139 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_6147,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[14],lf[15],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k13316 in k13273 in a13261 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13318(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_13318,2,av);} a=C_alloc(17); t2=C_i_length(t1); t3=C_eqp(C_fix(1),t2); if(C_truep(t3)){ t4=C_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); t5=C_a_i_list1(&a,1,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13297,a[2]=((C_word*)t0)[3],a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13301,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); /* optimizer.scm:676: varnode */ t9=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9605 in k9535 in k9532 in k9526 in k9520 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9607,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a9608 in k9535 in k9532 in k9526 in k9520 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9609(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(17,c,1)))){ C_save_and_reclaim((void *)f_9609,4,av);} a=C_alloc(17); t4=C_eqp(*((C_word*)lf[146]+1),lf[147]); if(C_truep(t4)){ t5=C_a_i_list1(&a,1,((C_word*)t0)[2]); t6=C_a_i_list2(&a,2,t2,t3); t7=t1; t8=t7;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_a_i_record4(&a,4,lf[14],lf[144],t5,t6); ((C_proc)(void*)(*((C_word*)t8+1)))(2,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); t7=t1; t8=t7;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_a_i_record4(&a,4,lf[14],lf[89],t5,t6); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* a6470 in k6428 in k6425 in k6421 in k6415 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6471,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6475,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:528: print */ t3=*((C_word*)lf[111]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[115]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6473 in a6470 in k6428 in k6425 in k6421 in k6415 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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; C_word 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_6475,2,av);} a=C_alloc(5); t2=*((C_word*)lf[31]+1); t3=C_i_check_list_2(*((C_word*)lf[31]+1),lf[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|2,a[1]=(C_word)f_6508,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_6508(t7,((C_word*)t0)[2],*((C_word*)lf[31]+1));} /* k5289 in a5273 in k5267 in k5264 in k5261 in k5250 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5291,2,av);} t2=( /* optimizer.scm:392: touch */ f_4182(((C_word*)((C_word*)t0)[2])[1]) ); /* optimizer.scm:393: walk */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4357(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_5249(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_5249,2,t0,t1);} a=C_alloc(23); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_5252,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[80]:lf[81]); t4=C_i_cadddr(((C_word*)t0)[19]); /* optimizer.scm:371: debugging */ t5=*((C_word*)lf[17]+1);{ C_word av2[7]; av2[0]=t5; av2[1]=t2; av2[2]=lf[76]; 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_5347,a[2]=((C_word*)t0)[15],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)[14],a[22]=((C_word*)t0)[20],tmp=(C_word)a,a+=23,tmp); /* optimizer.scm:394: test */ t3=((C_word*)((C_word*)t0)[24])[1]; f_4146(t3,t2,((C_word*)t0)[20],lf[68]);}} /* g230 in k4246 in a4237 in k4225 in simplify in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static C_word C_fcall f_4296(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));} /* a4899 in a4893 in a4887 in k4881 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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=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_4900,3,av);} /* optimizer.scm:273: test */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4146(t3,t1,t2,lf[60]);} /* k4911 in a4905 in a4887 in k4881 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 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_4913,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_4953,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_4960,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:279: test */ t8=((C_word*)((C_word*)t0)[11])[1]; f_4146(t8,t7,((C_word*)t0)[5],lf[64]);} else{ t8=t7;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; f_4960(2,av2);}}} /* k7814 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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_7816,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_7836,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_word*)t0)[2]; t7=C_u_i_car(t6); /* optimizer.scm:984: varnode */ t8=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t5; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a4905 in a4887 in k4881 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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=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_4906,4,av);} a=C_alloc(12); t4=( /* optimizer.scm:274: touch */ f_4182(((C_word*)((C_word*)t0)[2])[1]) ); t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4913,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:275: debugging */ t6=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[18]; av2[3]=lf[65]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k6431 in k6428 in k6425 in k6421 in k6415 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_6433,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6436,a[2]=((C_word*)t0)[2],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:536: debugging */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[18]; av2[3]=lf[110]; 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6436(2,av2);}}} /* k6434 in k6431 in k6428 in k6425 in k6421 in k6415 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6436,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6439,a[2]=((C_word*)t0)[2],a[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:537: debugging */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[18]; av2[3]=lf[109]; 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6439(2,av2);}}} /* k6437 in k6434 in k6431 in k6428 in k6425 in k6421 in k6415 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6439(C_word c,C_word *av){ C_word tmp; C_word t0=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_6439,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6442,a[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:538: debugging */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[18]; av2[3]=lf[108]; av2[4]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ /* optimizer.scm:539: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k6428 in k6425 in k6421 in k6415 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6430,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6433,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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*)lf[31]+1)))){ t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6471,tmp=(C_word)a,a+=2,tmp); /* optimizer.scm:525: with-debugging-output */ t4=*((C_word*)lf[116]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=lf[18]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6433(2,av2);}}} /* k4252 in k4246 in a4237 in k4225 in simplify in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 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_4254,2,av);} a=C_alloc(6); 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_a_i_plus(&a,2,t4,C_fix(1)); t6=C_i_set_cdr(t3,t5); t7=( /* optimizer.scm:162: touch */ f_4182(((C_word*)((C_word*)t0)[4])[1]) ); /* optimizer.scm:163: simplify */ t8=((C_word*)((C_word*)t0)[5])[1]; f_4223(t8,((C_word*)t0)[6],t1);} else{ t4=C_a_i_cons(&a,2,C_a_i_cons(&a,2,t2,C_fix(1)),((C_word*)((C_word*)t0)[3])[1]); t5=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t4); t6=( /* optimizer.scm:162: touch */ f_4182(((C_word*)((C_word*)t0)[4])[1]) ); /* optimizer.scm:163: simplify */ t7=((C_word*)((C_word*)t0)[5])[1]; f_4223(t7,((C_word*)t0)[6],t1);}} else{ t2=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k5286 in k5279 in cfk in a5273 in k5267 in k5264 in k5261 in k5250 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 in ... */ static void C_ccall f_5288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5288,2,av);} /* optimizer.scm:387: return */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5279 in cfk in a5273 in k5267 in k5264 in k5261 in k5250 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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(4,c,8)))){ C_save_and_reclaim((void *)f_5281,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5288,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:388: walk-generic */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6352(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);} /* k4246 in a4237 in k4225 in simplify in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t7; C_word t8; C_word 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(28,c,3)))){ C_save_and_reclaim((void *)f_4248,2,av);} a=C_alloc(28); t2=t1; if(C_truep(t2)){ 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]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t4=C_i_caddr(((C_word*)t0)[2]); 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|2,a[1]=(C_word)f_4296,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t11=C_i_check_list_2(((C_word*)t0)[7],lf[35]); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4310,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[8],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_4312,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_4312(t16,t12,((C_word*)t0)[7]);} else{ t3=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8181 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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_8183,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_8209,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1040: qnode */ t6=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_8215,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); if(C_truep(*((C_word*)lf[145]+1))){ t4=C_eqp(*((C_word*)lf[146]+1),lf[150]); t5=t3; f_8215(t5,C_i_not(t4));} else{ t4=t3; f_8215(t4,C_SCHEME_FALSE);}}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k4951 in k4911 in a4905 in a4887 in k4881 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 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_4953,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_4933,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:285: walk */ t8=((C_word*)((C_word*)t0)[9])[1]; f_4357(t8,t5,t6,t7,C_SCHEME_END_OF_LIST);} /* k6478 in for-each-loop920 in k6473 in a6470 in k6428 in k6425 in k6421 in k6415 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t4; 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_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:533: print */ t4=*((C_word*)lf[111]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:534: newline */ t3=*((C_word*)lf[112]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8155 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_8157,2,av);} if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); /* optimizer.scm:1030: g1669 */ t3=t2;{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a13391 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_13392,14,av);} a=C_alloc(12); if(C_truep(C_i_equalp(t6,*((C_word*)lf[217]+1)))){ t14=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_13405,a[2]=t9,a[3]=t10,a[4]=t13,a[5]=t1,a[6]=t8,a[7]=t7,a[8]=t3,a[9]=t2,a[10]=t5,a[11]=t4,tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:644: immediate? */ t15=*((C_word*)lf[219]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} else{ t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} /* k7842 in k7834 in k7814 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,1)))){ C_save_and_reclaim((void *)f_7844,2,av);} a=C_alloc(20); 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); t4=((C_word*)t0)[6]; t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[7],t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* for-each-loop2190 in walk in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_10191(C_word t0,C_word t1,C_word 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_10191,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_10201,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:1373: g2191 */ t5=((C_word*)t0)[3]; f_10179(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);}}} /* k10390 in rec in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_10392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_10392,2,av);} a=C_alloc(10); t2=C_i_zerop(t1); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10398,a[2]=((C_word*)t0)[2],a[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_10398(t4,t2);} else{ t4=((C_word*)((C_word*)t0)[6])[1]; if(C_truep(t4)){ t5=t3; f_10398(t5,C_SCHEME_FALSE);} else{ t5=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[7])[1],t1); t6=C_mutate2(((C_word *)((C_word*)t0)[7])+1,t5); t7=t3; f_10398(t7,C_SCHEME_TRUE);}}} /* k10396 in k10390 in rec in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_10398(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_10398,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10403,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1415: every */ t3=*((C_word*)lf[43]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+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);}}} /* 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_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_optimizer_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(1297))){ C_save(t1); C_rereclaim2(1297*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,229); lf[0]=C_h_intern(&lf[0],34,"\010compilerscan-toplevel-assignments"); lf[1]=C_h_intern(&lf[1],13,"alist-update!"); lf[2]=C_h_intern(&lf[2],8,"for-each"); lf[3]=C_h_intern(&lf[3],13,"\004corevariable"); lf[4]=C_h_intern(&lf[4],6,"remove"); lf[5]=C_h_intern(&lf[5],2,"if"); lf[6]=C_h_intern(&lf[6],3,"let"); lf[7]=C_h_intern(&lf[7],6,"append"); lf[8]=C_h_intern(&lf[8],4,"last"); lf[9]=C_h_intern(&lf[9],7,"butlast"); lf[10]=C_h_intern(&lf[10],6,"lambda"); lf[11]=C_h_intern(&lf[11],11,"\004corelambda"); lf[12]=C_h_intern(&lf[12],9,"\004corecall"); lf[13]=C_h_intern(&lf[13],4,"set!"); lf[14]=C_h_intern(&lf[14],4,"node"); lf[15]=C_h_intern(&lf[15],14,"\004coreundefined"); lf[16]=C_h_intern(&lf[16],19,"\010compilercopy-node!"); lf[17]=C_h_intern(&lf[17],18,"\010compilerdebugging"); lf[18]=C_h_intern(&lf[18],1,"o"); lf[19]=C_decode_literal(C_heaptop,"\376B\000\000&dropping redundant toplevel assignment"); lf[20]=C_h_intern(&lf[20],9,"alist-ref"); lf[21]=C_h_intern(&lf[21],9,"\004corecond"); lf[22]=C_h_intern(&lf[22],11,"\004coreswitch"); lf[23]=C_h_intern(&lf[23],8,"\003sysput!"); lf[24]=C_h_intern(&lf[24],21,"\010compileralways-bound"); lf[25]=C_decode_literal(C_heaptop,"\376B\000\000\014safe globals"); lf[26]=C_h_intern(&lf[26],17,"delete-duplicates"); lf[27]=C_h_intern(&lf[27],3,"eq\077"); lf[28]=C_h_intern(&lf[28],1,"p"); lf[29]=C_decode_literal(C_heaptop,"\376B\000\000 scanning toplevel assignments..."); lf[30]=C_h_intern(&lf[30],24,"\010compilersimplifications"); lf[31]=C_h_intern(&lf[31],23,"\010compilersimplified-ops"); lf[32]=C_h_intern(&lf[32],41,"\010compilerperform-high-level-optimizations"); lf[33]=C_h_intern(&lf[33],12,"\010compilerget"); lf[34]=C_h_intern(&lf[34],5,"quote"); lf[35]=C_h_intern(&lf[35],3,"map"); lf[36]=C_h_intern(&lf[36],19,"\010compilermatch-node"); lf[37]=C_h_intern(&lf[37],3,"any"); lf[38]=C_h_intern(&lf[38],18,"\003syshash-table-ref"); lf[39]=C_h_intern(&lf[39],30,"\010compilerbroken-constant-nodes"); lf[40]=C_h_intern(&lf[40],14,"\010compilerqnode"); lf[41]=C_h_intern(&lf[41],11,"lset-adjoin"); lf[42]=C_h_intern(&lf[42],27,"\010compilerconstant-form-eval"); lf[43]=C_h_intern(&lf[43],5,"every"); lf[44]=C_h_intern(&lf[44],9,"foldable\077"); lf[45]=C_h_intern(&lf[45],7,"\003sysget"); lf[46]=C_h_intern(&lf[46],18,"\010compilerintrinsic"); lf[47]=C_h_intern(&lf[47],13,"\010compilerput!"); lf[48]=C_h_intern(&lf[48],10,"replacable"); lf[49]=C_h_intern(&lf[49],5,"value"); lf[50]=C_decode_literal(C_heaptop,"\376B\000\000\035substituted constant variable"); lf[51]=C_h_intern(&lf[51],16,"\010compilervarnode"); lf[52]=C_decode_literal(C_heaptop,"\376B\000\000\032propagated global variable"); lf[53]=C_h_intern(&lf[53],2,"no"); lf[54]=C_h_intern(&lf[54],15,"\010compilerinline"); lf[55]=C_h_intern(&lf[55],11,"collapsable"); lf[56]=C_h_intern(&lf[56],6,"global"); lf[57]=C_h_intern(&lf[57],9,"replacing"); lf[58]=C_h_intern(&lf[58],12,"contractable"); lf[59]=C_h_intern(&lf[59],9,"removable"); lf[60]=C_h_intern(&lf[60],6,"unused"); lf[61]=C_h_intern(&lf[61],9,"partition"); lf[62]=C_h_intern(&lf[62],26,"\010compilerbuild-lambda-list"); lf[63]=C_decode_literal(C_heaptop,"\376B\000\000\047merged explicitly consed rest parameter"); lf[64]=C_h_intern(&lf[64],13,"explicit-rest"); lf[65]=C_decode_literal(C_heaptop,"\376B\000\000 removed unused formal parameters"); lf[66]=C_h_intern(&lf[66],30,"\010compilerdecompose-lambda-list"); lf[67]=C_decode_literal(C_heaptop,"\376B\000\000\047merged explicitly consed rest parameter"); lf[68]=C_h_intern(&lf[68],21,"has-unused-parameters"); lf[69]=C_h_intern(&lf[69],18,"\004coredirect_lambda"); lf[70]=C_h_intern(&lf[70],13,"inline-target"); lf[71]=C_h_intern(&lf[71],31,"\010compilerinline-lambda-bindings"); lf[72]=C_h_intern(&lf[72],4,"void"); lf[73]=C_decode_literal(C_heaptop,"\376B\000\000\024contracted procedure"); lf[74]=C_h_intern(&lf[74],24,"\010compilercheck-signature"); lf[75]=C_decode_literal(C_heaptop,"\376B\000\0001removed call to pure procedure with unused result"); lf[76]=C_h_intern(&lf[76],1,"i"); lf[77]=C_decode_literal(C_heaptop,"\376B\000\0008not inlining procedure because it refers to contractable"); lf[78]=C_h_intern(&lf[78],7,"call/cc"); lf[79]=C_decode_literal(C_heaptop,"\376B\000\000\022inlining procedure"); lf[80]=C_decode_literal(C_heaptop,"\376B\000\000\017global inlining"); lf[81]=C_decode_literal(C_heaptop,"\376B\000\000\010inlining"); lf[82]=C_h_intern(&lf[82],14,"append-reverse"); lf[83]=C_h_intern(&lf[83],6,"gensym"); lf[84]=C_h_intern(&lf[84],1,"t"); lf[85]=C_h_intern(&lf[85],37,"\010compilerexpression-has-side-effects\077"); lf[86]=C_decode_literal(C_heaptop,"\376B\000\000+removed unused parameter to known procedure"); lf[87]=C_h_intern(&lf[87],8,"split-at"); lf[88]=C_decode_literal(C_heaptop,"\376B\000\000\012C_a_i_list"); lf[89]=C_h_intern(&lf[89],20,"\004coreinline_allocate"); lf[90]=C_decode_literal(C_heaptop,"\376B\000\000\042consed rest parameter at call site"); lf[91]=C_h_intern(&lf[91],21,"\010compilerllist-length"); lf[92]=C_h_intern(&lf[92],23,"\010compilerinline-locally"); lf[93]=C_h_intern(&lf[93],24,"\010compilerinline-max-size"); lf[94]=C_h_intern(&lf[94],9,"inlinable"); lf[95]=C_h_intern(&lf[95],22,"\010compilerinline-global"); lf[96]=C_decode_literal(C_heaptop,"\376B\000\000 inlining call to intrinsic alias"); lf[97]=C_h_intern(&lf[97],8,"assigned"); lf[98]=C_h_intern(&lf[98],10,"references"); lf[99]=C_h_intern(&lf[99],7,"unknown"); lf[100]=C_h_intern(&lf[100],13,"\010compilerpure"); lf[101]=C_h_intern(&lf[101],11,"local-value"); lf[102]=C_h_intern(&lf[102],18,"\010compilercall-info"); lf[103]=C_decode_literal(C_heaptop,"\376B\000\000\034removing global contractable"); lf[104]=C_decode_literal(C_heaptop,"\376B\000\0006removed side-effect free assignment to unused variable"); lf[105]=C_h_intern(&lf[105],16,"inline-transient"); lf[106]=C_h_intern(&lf[106],26,"\010compilervariable-visible\077"); lf[107]=C_h_intern(&lf[107],7,"reverse"); lf[108]=C_decode_literal(C_heaptop,"\376B\000\000\031removed conditional forms"); lf[109]=C_decode_literal(C_heaptop,"\376B\000\000\025removed binding forms"); lf[110]=C_decode_literal(C_heaptop,"\376B\000\000\022replaced variables"); lf[111]=C_h_intern(&lf[111],5,"print"); lf[112]=C_h_intern(&lf[112],7,"newline"); lf[113]=C_h_intern(&lf[113],6,"print\052"); lf[114]=C_decode_literal(C_heaptop,"\376B\000\000\004 "); lf[115]=C_decode_literal(C_heaptop,"\376B\000\000\027 call simplifications:"); lf[116]=C_h_intern(&lf[116],30,"\010compilerwith-debugging-output"); lf[117]=C_decode_literal(C_heaptop,"\376B\000\000\017simplifications"); lf[118]=C_decode_literal(C_heaptop,"\376B\000\000\022traversal phase..."); lf[119]=C_h_intern(&lf[119],34,"\010compilerperform-pre-optimization!"); lf[120]=C_decode_literal(C_heaptop,"\376B\000\000\023Removed `not\047 forms"); lf[121]=C_h_intern(&lf[121],24,"node-subexpressions-set!"); lf[122]=C_h_intern(&lf[122],20,"node-parameters-set!"); lf[123]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\006\001\376\377\016"); lf[124]=C_h_intern(&lf[124],17,"\010compilerget-list"); lf[125]=C_h_intern(&lf[125],3,"not"); lf[126]=C_h_intern(&lf[126],10,"call-sites"); lf[127]=C_decode_literal(C_heaptop,"\376B\000\000\031pre-optimization phase..."); lf[128]=C_h_intern(&lf[128],24,"register-simplifications"); lf[129]=C_h_intern(&lf[129],19,"\003syshash-table-set!"); lf[130]=C_h_intern(&lf[130],38,"\010compilerreorganize-recursive-bindings"); lf[131]=C_h_intern(&lf[131],28,"\010compilerscan-used-variables"); lf[132]=C_h_intern(&lf[132],6,"filter"); lf[133]=C_h_intern(&lf[133],6,"lset<="); lf[134]=C_h_intern(&lf[134],10,"filter-map"); lf[135]=C_h_intern(&lf[135],10,"append-map"); lf[136]=C_decode_literal(C_heaptop,"\376B\000\000!converted assignments to bindings"); lf[137]=C_h_intern(&lf[137],10,"fold-right"); lf[138]=C_h_intern(&lf[138],4,"fold"); lf[139]=C_h_intern(&lf[139],16,"topological-sort"); lf[140]=C_h_intern(&lf[140],27,"\010compilersubstitution-table"); lf[141]=C_h_intern(&lf[141],16,"\010compilerrewrite"); lf[142]=C_h_intern(&lf[142],28,"\010compilersimplify-named-call"); lf[143]=C_h_intern(&lf[143],37,"\010compilerinline-substitutions-enabled"); lf[144]=C_h_intern(&lf[144],11,"\004coreinline"); lf[145]=C_h_intern(&lf[145],6,"unsafe"); lf[146]=C_h_intern(&lf[146],11,"number-type"); lf[147]=C_h_intern(&lf[147],6,"fixnum"); lf[148]=C_h_intern(&lf[148],21,"\010compilerfold-boolean"); lf[149]=C_h_intern(&lf[149],6,"flonum"); lf[150]=C_h_intern(&lf[150],7,"generic"); lf[151]=C_h_intern(&lf[151],5,"cons\052"); lf[152]=C_h_intern(&lf[152],9,"\004coreproc"); lf[153]=C_h_intern(&lf[153],4,"conc"); lf[154]=C_h_intern(&lf[154],5,"fifth"); lf[155]=C_h_intern(&lf[155],19,"\010compilerfold-inner"); lf[156]=C_h_intern(&lf[156],13,"\010compilerbomb"); lf[157]=C_decode_literal(C_heaptop,"\376B\000\000\023bad type (optimize)"); lf[158]=C_h_intern(&lf[158],34,"\010compilertransform-direct-lambdas!"); lf[159]=C_h_intern(&lf[159],24,"\010compilercallback-lambda"); lf[160]=C_h_intern(&lf[160],5,"boxed"); lf[161]=C_h_intern(&lf[161],15,"\004coreinline_ref"); lf[162]=C_h_intern(&lf[162],37,"\010compilerestimate-foreign-result-size"); lf[163]=C_h_intern(&lf[163],19,"\004coreinline_loc_ref"); lf[164]=C_h_intern(&lf[164],16,"\004coredirect_call"); lf[165]=C_h_intern(&lf[165],5,"lset="); lf[166]=C_h_intern(&lf[166],6,"delete"); lf[167]=C_h_intern(&lf[167],13,"\010compilerquit"); lf[168]=C_decode_literal(C_heaptop,"\376B\000\000;known procedure called with wrong number of arguments: `~A\047"); lf[169]=C_h_intern(&lf[169],15,"lset-difference"); lf[170]=C_h_intern(&lf[170],15,"node-class-set!"); lf[171]=C_h_intern(&lf[171],12,"\004corerecurse"); lf[172]=C_decode_literal(C_heaptop,"\376B\000\000Gknown procedure called recursively with wrong number of arguments: `~A\047"); lf[173]=C_h_intern(&lf[173],4,"take"); lf[174]=C_decode_literal(C_heaptop,"\376B\000\000Gknown procedure called recursively with wrong number of arguments: `~A\047"); lf[175]=C_decode_literal(C_heaptop,"\376B\000\000\014missing kvar"); lf[176]=C_h_intern(&lf[176],11,"\004corereturn"); lf[177]=C_decode_literal(C_heaptop,"\376B\000\000\017bad call (leaf)"); lf[178]=C_h_intern(&lf[178],6,"cdaddr"); lf[179]=C_h_intern(&lf[179],6,"caaddr"); lf[180]=C_decode_literal(C_heaptop,"\376B\000\000\026invalid parameter list"); lf[181]=C_decode_literal(C_heaptop,"\376B\000\0006direct leaf routine with hoistable closures/allocation"); lf[182]=C_h_intern(&lf[182],6,"unzip1"); lf[183]=C_h_intern(&lf[183],16,"\003sysmake-promise"); lf[184]=C_decode_literal(C_heaptop,"\376B\000\000\036direct leaf routine/allocation"); lf[185]=C_decode_literal(C_heaptop,"\376B\000\000(direct leaf routine optimization pass..."); lf[186]=C_h_intern(&lf[186],36,"\010compilerdetermine-loop-and-dispatch"); lf[187]=C_h_intern(&lf[187],16,"\003sysdynamic-wind"); lf[188]=C_h_intern(&lf[188],13,"list-tabulate"); lf[189]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\006\001\376\377\016"); lf[190]=C_h_intern(&lf[190],2,"f_"); lf[191]=C_h_intern(&lf[191],1,"x"); lf[192]=C_decode_literal(C_heaptop,"\376B\000\000\012clustering"); lf[193]=C_h_intern(&lf[193],1,"a"); lf[194]=C_h_intern(&lf[194],3,"max"); lf[195]=C_h_intern(&lf[195],1,"k"); lf[196]=C_h_intern(&lf[196],8,"dispatch"); lf[197]=C_decode_literal(C_heaptop,"\376B\000\000\027collecting clusters ..."); lf[198]=C_h_intern(&lf[198],11,"make-vector"); lf[199]=C_h_intern(&lf[199],3,"var"); lf[200]=C_h_intern(&lf[200],2,"d2"); lf[201]=C_h_intern(&lf[201],1,"y"); lf[202]=C_h_intern(&lf[202],2,"d3"); lf[203]=C_h_intern(&lf[203],1,"z"); lf[204]=C_h_intern(&lf[204],2,"d1"); lf[205]=C_h_intern(&lf[205],2,"op"); lf[206]=C_h_intern(&lf[206],5,"clist"); lf[207]=C_h_intern(&lf[207],34,"\010compilermembership-test-operators"); lf[208]=C_h_intern(&lf[208],32,"\010compilermembership-unfold-limit"); lf[209]=C_h_intern(&lf[209],4,"var1"); lf[210]=C_h_intern(&lf[210],4,"var0"); lf[211]=C_h_intern(&lf[211],6,"const1"); lf[212]=C_h_intern(&lf[212],4,"var2"); lf[213]=C_h_intern(&lf[213],6,"const2"); lf[214]=C_h_intern(&lf[214],5,"body2"); lf[215]=C_h_intern(&lf[215],4,"rest"); lf[216]=C_h_intern(&lf[216],5,"body1"); lf[217]=C_h_intern(&lf[217],27,"\010compilereq-inline-operator"); lf[218]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\001\000\000\000\002\376\377\016"); lf[219]=C_h_intern(&lf[219],19,"\010compilerimmediate\077"); lf[220]=C_h_intern(&lf[220],5,"const"); lf[221]=C_h_intern(&lf[221],1,"n"); lf[222]=C_h_intern(&lf[222],7,"clauses"); lf[223]=C_h_intern(&lf[223],1,"d"); lf[224]=C_h_intern(&lf[224],4,"body"); lf[225]=C_h_intern(&lf[225],4,"more"); lf[226]=C_h_intern(&lf[226],4,"args"); lf[227]=C_h_intern(&lf[227],1,"b"); lf[228]=C_h_intern(&lf[228],1,"c"); C_register_lf2(lf,229,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3749,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k9887 in k9883 in loop in a9850 in k9837 in k9808 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9889(C_word c,C_word *av){ C_word tmp; 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_9889,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k9883 in loop in a9850 in k9837 in k9808 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_9885,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9889,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:1325: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_9865(t6,t3,C_SCHEME_END_OF_LIST,t5);} /* k8481 in k8477 in k8469 in k8449 in k8440 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_8483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,1)))){ C_save_and_reclaim((void *)f_8483,2,av);} a=C_alloc(20); t2=C_a_i_list5(&a,5,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1); t3=((C_word*)t0)[6]; t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[7],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_11796(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11796,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11799,a[2]=((C_word*)t0)[2],a[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:1658: walk */ t3=((C_word*)((C_word*)t0)[6])[1]; f_11511(t3,t2,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_11799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_11799,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11800,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[2]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12547,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_12556,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_12556(t9,t5,t3);} /* k9772 in k9724 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,1)))){ C_save_and_reclaim((void *)f_9774,2,av);} a=C_alloc(19); t2=C_a_i_list1(&a,1,t1); t3=((C_word*)t0)[2]; t4=C_a_i_record4(&a,4,lf[14],lf[144],t2,t3); t5=C_a_i_list2(&a,2,((C_word*)t0)[3],t4); t6=((C_word*)t0)[4]; t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[5],t5); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k8477 in k8469 in k8449 in k8440 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_8479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_8479,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8483,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]; t5=C_u_i_cdr(t4); if(C_truep(C_i_nullp(t5))){ t6=C_i_caddr(((C_word*)t0)[8]); /* optimizer.scm:1074: varnode */ t7=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t3; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t6=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_cadr(((C_word*)t0)[7]); f_8483(2,av2);}}} /* ##compiler#rewrite in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_7366(C_word c,C_word *av){ C_word 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_7366,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_7370,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:915: ##sys#hash-table-ref */ t5=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[140]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_7364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,9)))){ C_save_and_reclaim((void *)f_7364,2,av);} a=C_alloc(8); t2=C_mutate2((C_word*)lf[140]+1 /* (set! ##compiler#substitution-table ...) */,t1); t3=C_mutate2((C_word*)lf[141]+1 /* (set! ##compiler#rewrite ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7366,tmp=(C_word)a,a+=2,tmp)); t4=C_mutate2((C_word*)lf[142]+1 /* (set! ##compiler#simplify-named-call ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7386,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate2((C_word*)lf[158]+1 /* (set! ##compiler#transform-direct-lambdas! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9982,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate2((C_word*)lf[186]+1 /* (set! ##compiler#determine-loop-and-dispatch ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11448,tmp=(C_word)a,a+=2,tmp)); t7=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k8469 in k8449 in k8440 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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_8471,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_8479,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:1072: qnode */ t7=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k12280 in k12276 in a12269 in k12340 in k12348 in k12352 in k12106 in descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in ... */ static void C_ccall f_12282(C_word c,C_word *av){ C_word tmp; 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_12282,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k6666 in k6648 in k6645 in k6638 in k6629 in k6623 in k6617 in k6597 in k6591 in k6588 in g971 in k6569 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ 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(3,c,3)))){ C_save_and_reclaim((void *)f_6668,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:590: node-subexpressions-set! */ t3=*((C_word*)lf[121]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in k12276 in a12269 in k12340 in k12348 in k12352 in k12106 in descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in ... */ static void C_fcall f_12288(C_word t0,C_word t1,C_word 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_12288,4,t0,t1,t2,t3);} a=C_alloc(10); if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_i_cadddr(((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t4+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_12318,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:1738: varnode */ t9=*((C_word*)lf[51]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t7; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} /* k10624 in rec in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_10626,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_10637,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1447: append */ t5=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8440 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_8442,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_8451,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:1067: < */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k6648 in k6645 in k6638 in k6629 in k6623 in k6617 in k6597 in k6591 in k6588 in g971 in k6569 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ 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 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_6650,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6653,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_6668,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:592: reverse */ t7=*((C_word*)lf[107]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k6651 in k6648 in k6645 in k6638 in k6629 in k6623 in k6617 in k6597 in k6591 in k6588 in g971 in k6569 in k6549 in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6653,2,av);} /* optimizer.scm:593: touch */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=( /* optimizer.scm:593: touch */ f_6540(((C_word*)((C_word*)t0)[3])[1]) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8449 in k8440 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_8451(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8451,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_a_i_list2(&a,2,C_SCHEME_FALSE,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8471,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)[2],tmp=(C_word)a,a+=7,tmp); t7=((C_word*)t0)[2]; t8=C_u_i_car(t7); /* optimizer.scm:1069: varnode */ t9=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t6; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g2667 in walk in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_11751(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_11751,3,t0,t1,t2);} /* optimizer.scm:1653: g2682 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_11511(t3,t1,t2,((C_word*)t0)[3]);} /* a10649 in rec in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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_10650,3,av);} /* optimizer.scm:1448: rec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10223(t3,t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3]);} /* a9332 in k9250 in k9241 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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,1)))){ C_save_and_reclaim((void *)f_9333,4,av);} a=C_alloc(14); t4=C_a_i_list1(&a,1,((C_word*)t0)[2]); t5=C_a_i_list2(&a,2,t2,t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[14],lf[144],t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k9329 in k9250 in k9241 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9331,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7397 in argc-ok? in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_7399(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_7399,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_7414,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:925: argc-ok? */ t5=((C_word*)((C_word*)t0)[4])[1]; f_7389(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);}}}} /* ##compiler#simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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 t11; C_word 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_7386,9,av);} a=C_alloc(17); 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_7389,a[2]=t10,a[3]=t8,tmp=(C_word)a,a+=4,tmp)); switch(t6){ case C_fix(1): t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7484,a[2]=t1,a[3]=t7,a[4]=t8,a[5]=t5,tmp=(C_word)a,a+=6,tmp); t13=t4; /* tweaks.scm:51: ##sys#get */ t14=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t12; av2[2]=t13; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);} case C_fix(2): if(C_truep(*((C_word*)lf[143]+1))){ t12=C_i_length(t8); t13=C_i_car(t7); if(C_truep(C_i_nequalp(t12,t13))){ t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7643,a[2]=t7,a[3]=t8,a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t15=t4; /* tweaks.scm:51: ##sys#get */ t16=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t14; av2[2]=t15; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}} else{ t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} case C_fix(3): if(C_truep(*((C_word*)lf[143]+1))){ t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7715,a[2]=t7,a[3]=t5,a[4]=t1,a[5]=t8,tmp=(C_word)a,a+=6,tmp); t13=t4; /* tweaks.scm:51: ##sys#get */ t14=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t12; av2[2]=t13; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} case C_fix(4): if(C_truep(*((C_word*)lf[143]+1))){ if(C_truep(*((C_word*)lf[145]+1))){ t12=C_i_length(t8); t13=C_eqp(C_fix(2),t12); if(C_truep(t13)){ t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7816,a[2]=t7,a[3]=t8,a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t15=t4; /* tweaks.scm:51: ##sys#get */ t16=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t14; av2[2]=t15; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}} else{ t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} case C_fix(5): if(C_truep(*((C_word*)lf[143]+1))){ t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7883,a[2]=t8,a[3]=t7,a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t13=t4; /* tweaks.scm:51: ##sys#get */ t14=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t12; av2[2]=t13; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} case C_fix(6): t12=C_i_caddr(t7); t13=(C_truep(t12)?t12:*((C_word*)lf[145]+1)); if(C_truep(t13)){ if(C_truep(*((C_word*)lf[143]+1))){ t14=C_i_length(t8); t15=C_eqp(C_fix(1),t14); if(C_truep(t15)){ t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7990,a[2]=t7,a[3]=t8,a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t17=t4; /* tweaks.scm:51: ##sys#get */ t18=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=t16; av2[2]=t17; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}} else{ t16=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}} else{ t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} case C_fix(7): t12=C_i_cadddr(t7); t13=(C_truep(t12)?t12:*((C_word*)lf[145]+1)); if(C_truep(t13)){ if(C_truep(*((C_word*)lf[143]+1))){ t14=C_i_length(t8); t15=t7; t16=C_u_i_car(t15); if(C_truep(C_i_nequalp(t14,t16))){ t17=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8082,a[2]=t7,a[3]=t5,a[4]=t1,a[5]=t8,tmp=(C_word)a,a+=6,tmp); t18=t4; /* tweaks.scm:51: ##sys#get */ t19=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t19; av2[1]=t17; av2[2]=t18; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t19+1)))(4,av2);}} else{ t17=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t17; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}} else{ t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} case C_fix(8): if(C_truep(*((C_word*)lf[143]+1))){ t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8157,a[2]=t7,a[3]=t1,a[4]=t2,a[5]=t5,a[6]=t8,tmp=(C_word)a,a+=7,tmp); t13=t4; /* tweaks.scm:51: ##sys#get */ t14=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t12; av2[2]=t13; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} case C_fix(9): if(C_truep(*((C_word*)lf[143]+1))){ t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8183,a[2]=t8,a[3]=t5,a[4]=t1,a[5]=t7,tmp=(C_word)a,a+=6,tmp); t13=t4; /* tweaks.scm:51: ##sys#get */ t14=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t12; av2[2]=t13; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} case C_fix(10): if(C_truep(*((C_word*)lf[143]+1))){ t12=C_i_cadddr(t7); t13=(C_truep(t12)?t12:*((C_word*)lf[145]+1)); if(C_truep(t13)){ t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8442,a[2]=t8,a[3]=t7,a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t15=t4; /* tweaks.scm:51: ##sys#get */ t16=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t14; av2[2]=t15; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}} else{ t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} case C_fix(11): if(C_truep(*((C_word*)lf[143]+1))){ t12=C_i_caddr(t7); t13=(C_truep(t12)?t12:*((C_word*)lf[145]+1)); if(C_truep(t13)){ t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8535,a[2]=t7,a[3]=t1,a[4]=t5,a[5]=t8,tmp=(C_word)a,a+=6,tmp); t15=t4; /* tweaks.scm:51: ##sys#get */ t16=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t14; av2[2]=t15; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}} else{ t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} case C_fix(12): if(C_truep(*((C_word*)lf[143]+1))){ t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8601,a[2]=t7,a[3]=t8,a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t13=t4; /* tweaks.scm:51: ##sys#get */ t14=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t12; av2[2]=t13; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} case C_fix(13): if(C_truep(*((C_word*)lf[143]+1))){ t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8691,a[2]=t7,a[3]=t1,a[4]=t5,a[5]=t8,a[6]=t3,a[7]=t10,tmp=(C_word)a,a+=8,tmp); t13=t4; /* tweaks.scm:51: ##sys#get */ t14=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t12; av2[2]=t13; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} case C_fix(14): if(C_truep(*((C_word*)lf[143]+1))){ t12=C_i_cadr(t7); t13=C_i_length(t8); if(C_truep(C_i_nequalp(t12,t13))){ t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8774,a[2]=t7,a[3]=t8,a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t15=t4; /* tweaks.scm:51: ##sys#get */ t16=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t14; av2[2]=t15; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}} else{ t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} case C_fix(15): if(C_truep(*((C_word*)lf[143]+1))){ t12=C_i_length(t8); t13=C_eqp(C_fix(1),t12); if(C_truep(t13)){ t14=*((C_word*)lf[145]+1); t15=(C_truep(*((C_word*)lf[145]+1))?*((C_word*)lf[145]+1):C_i_cadddr(t7)); if(C_truep(t15)){ t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8871,a[2]=t7,a[3]=t1,a[4]=t5,a[5]=t8,tmp=(C_word)a,a+=6,tmp); t17=t4; /* tweaks.scm:51: ##sys#get */ t18=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=t16; av2[2]=t17; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}} else{ t16=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}} else{ t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} case C_fix(16): t12=C_i_car(t7); t13=t12; t14=C_i_length(t8); t15=t14; t16=C_i_caddr(t7); t17=t16; t18=C_i_cadddr(t7); t19=t18; t20=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8964,a[2]=t13,a[3]=t15,a[4]=t17,a[5]=t8,a[6]=t5,a[7]=t1,a[8]=t19,a[9]=t7,a[10]=t4,tmp=(C_word)a,a+=11,tmp); t21=C_i_cddddr(t7); if(C_truep(C_i_pairp(t21))){ /* optimizer.scm:1160: fifth */ t22=*((C_word*)lf[154]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t22; av2[1]=t20; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t22+1)))(3,av2);}} else{ t22=t20;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t22; av2[1]=C_SCHEME_FALSE; f_8964(2,av2);}} case C_fix(17): if(C_truep(*((C_word*)lf[143]+1))){ t12=C_i_length(t8); t13=C_i_car(t7); if(C_truep(C_i_nequalp(t12,t13))){ t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9116,a[2]=t8,a[3]=t5,a[4]=t1,a[5]=t7,tmp=(C_word)a,a+=6,tmp); t15=t4; /* tweaks.scm:51: ##sys#get */ t16=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t14; av2[2]=t15; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}} else{ t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} case C_fix(18): if(C_truep(*((C_word*)lf[143]+1))){ if(C_truep(C_i_nullp(t8))){ t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9199,a[2]=t5,a[3]=t1,a[4]=t7,tmp=(C_word)a,a+=5,tmp); t13=t4; /* tweaks.scm:51: ##sys#get */ t14=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t12; av2[2]=t13; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} case C_fix(19): if(C_truep(*((C_word*)lf[143]+1))){ t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9243,a[2]=t7,a[3]=t5,a[4]=t1,a[5]=t8,tmp=(C_word)a,a+=6,tmp); t13=t4; /* tweaks.scm:51: ##sys#get */ t14=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t12; av2[2]=t13; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} case C_fix(20): t12=C_i_length(t8); t13=t12; t14=C_i_cadddr(t7); t15=(C_truep(t14)?t14:*((C_word*)lf[145]+1)); if(C_truep(t15)){ if(C_truep(*((C_word*)lf[143]+1))){ t16=t7; t17=C_u_i_car(t16); if(C_truep(C_i_nequalp(t13,t17))){ t18=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9435,a[2]=t7,a[3]=t5,a[4]=t1,a[5]=t13,a[6]=t8,tmp=(C_word)a,a+=7,tmp); t19=t4; /* tweaks.scm:51: ##sys#get */ t20=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t20; av2[1]=t18; av2[2]=t19; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t20+1)))(4,av2);}} else{ t18=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}} else{ t16=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}} else{ t16=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} case C_fix(21): if(C_truep(*((C_word*)lf[143]+1))){ t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9522,a[2]=t7,a[3]=t5,a[4]=t1,a[5]=t8,tmp=(C_word)a,a+=6,tmp); t13=t4; /* tweaks.scm:51: ##sys#get */ t14=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t12; av2[2]=t13; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} case C_fix(22): t12=C_i_car(t7); t13=C_i_length(t8); t14=C_i_cadddr(t7); t15=t14; if(C_truep(*((C_word*)lf[143]+1))){ if(C_truep(C_i_nequalp(t13,t12))){ t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9726,a[2]=t7,a[3]=t8,a[4]=t5,a[5]=t1,a[6]=t15,tmp=(C_word)a,a+=7,tmp); t17=t4; /* tweaks.scm:51: ##sys#get */ t18=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=t16; av2[2]=t17; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}} else{ t16=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}} else{ t16=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} case C_fix(23): if(C_truep(*((C_word*)lf[143]+1))){ t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9810,a[2]=t7,a[3]=t8,a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); t13=t4; /* tweaks.scm:51: ##sys#get */ t14=*((C_word*)lf[45]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t12; av2[2]=t13; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} default: /* optimizer.scm:1329: bomb */ t12=*((C_word*)lf[156]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t1; av2[2]=lf[157]; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}} /* k7378 in k7368 in rewrite in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7380,2,av);} /* optimizer.scm:916: ##sys#hash-table-set! */ t2=*((C_word*)lf[129]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[140]+1); av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* argc-ok? in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_7389(C_word 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_7389,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_7399,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_7399(t6,C_eqp(t2,t5));} else{ t5=t4; f_7399(t5,C_SCHEME_FALSE);}}} /* k7940 in k7881 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_7942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,1)))){ C_save_and_reclaim((void *)f_7942,2,av);} a=C_alloc(22); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_record4(&a,4,lf[14],lf[144],((C_word*)t0)[3],t2); t4=C_a_i_list2(&a,2,((C_word*)t0)[4],t3); t5=((C_word*)t0)[5]; t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[6],t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* for-each-loop2666 in walk in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_11763(C_word t0,C_word t1,C_word 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_11763,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_11773,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:1653: g2667 */ t5=((C_word*)t0)[3]; f_11751(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);}}} /* g2191 in walk in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_10179(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_10179,3,t0,t1,t2);} /* optimizer.scm:1373: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_9985(t3,t1,C_SCHEME_FALSE,t2,C_SCHEME_FALSE);} /* k7368 in rewrite in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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_7370,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_7380,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:916: append */ t5=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a12269 in k12340 in k12348 in k12352 in k12106 in descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_12270,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12278,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_cadr(t2); /* optimizer.scm:1731: qnode */ t5=*((C_word*)lf[40]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k12276 in a12269 in k12340 in k12348 in k12352 in k12106 in descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in ... */ static void C_ccall f_12278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_12278,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12282,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_caddr(((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_12288,a[2]=((C_word*)t0)[3],a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_12288(t8,t3,((C_word*)t0)[4],t4);} /* k11771 in for-each-loop2666 in walk in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11773,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_11763(t3,((C_word*)t0)[4],t2);} /* k8985 in k8962 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_8987,2,av);} a=C_alloc(14); if(C_truep(t1)){ t2=*((C_word*)lf[145]+1); t3=(C_truep(*((C_word*)lf[145]+1))?*((C_word*)lf[145]+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|5,a[1]=(C_word)f_9022,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t5,tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9026,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t6,tmp=(C_word)a,a+=5,tmp); t8=(C_truep(((C_word*)t0)[8])?(C_truep(C_fixnum_greaterp(((C_word*)t0)[7],C_fix(0)))?C_fixnum_less_or_equal_p(((C_word*)t0)[7],C_fix(8)):C_SCHEME_FALSE):C_SCHEME_FALSE); if(C_truep(t8)){ t9=C_i_cadr(((C_word*)t0)[9]); /* optimizer.scm:1171: conc */ t10=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t7; av2[2]=t9; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t9=t7;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_i_cadr(((C_word*)t0)[9]); f_9026(2,av2);}}} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k4076 in k4073 in k4070 in scan-toplevel-assignments in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4078,2,av);} a=C_alloc(5); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_i_check_list_2(t2,lf[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|2,a[1]=(C_word)f_4105,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_4105(t7,((C_word*)t0)[3],t2);} /* k4073 in k4070 in scan-toplevel-assignments in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4075,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4078,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_4136,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:111: delete-duplicates */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=*((C_word*)lf[27]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_4078(2,av2);}}} /* k4070 in scan-toplevel-assignments in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4072,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4075,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:109: scan */ t3=((C_word*)((C_word*)t0)[4])[1]; f_3832(t3,t2,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* k10635 in k10624 in rec in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_10637(C_word c,C_word *av){ C_word tmp; C_word 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_10637,2,av);} /* optimizer.scm:1447: rec */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10223(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,t1);} /* k13445 in k13441 in k13437 in k13454 in k13463 in k13409 in k13403 in a13391 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,1)))){ C_save_and_reclaim((void *)f_13447,2,av);} a=C_alloc(23); 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]); t3=((C_word*)t0)[7]; t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[14],lf[22],lf[218],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k13441 in k13437 in k13454 in k13463 in k13409 in k13403 in a13391 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13443,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13447,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:654: qnode */ t4=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop2520 in k10848 in k10845 in k10842 in k10825 in k10822 in k10734 in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in ... */ static void C_fcall f_10892(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_10892,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_10902,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_10858,a[2]=t7,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10887,a[2]=t8,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1565: gensym */ t10=*((C_word*)lf[83]+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);}}} /* k13454 in k13463 in k13409 in k13403 in a13391 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_13456,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_13439,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:651: varnode */ t5=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a12902 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_12903(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(9,c,4)))){ C_save_and_reclaim((void *)f_12903,5,av);} a=C_alloc(9); t5=C_a_i_list1(&a,1,t3); 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_12913,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_12913(t9,t1,t5,t4);} /* map-loop1294 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_7314(C_word t0,C_word t1,C_word 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_7314,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_mutate2(((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);}}} /* k13463 in k13409 in k13403 in a13391 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13465,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_13456,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:647: get-list */ t5=*((C_word*)lf[124]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[98]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(35,c,3)))){ C_save_and_reclaim((void *)f_5753,2,av);} a=C_alloc(35); t2=C_i_structurep(t1,lf[14]); t3=t2; t4=(*a=C_CLOSURE_TYPE|26,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]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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]=t3,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*)lf[92]+1))){ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5698,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[18],a[5]=((C_word*)t0)[17],a[6]=((C_word*)t0)[23],a[7]=((C_word*)t0)[19],tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:364: test */ t6=((C_word*)((C_word*)t0)[23])[1]; f_4146(t6,t5,((C_word*)t0)[17],lf[94]);} else{ t5=t4; f_5249(t5,C_SCHEME_FALSE);}} /* test in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_4146(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_4146,4,t0,t1,t2,t3);} /* optimizer.scm:142: get */ t4=*((C_word*)lf[33]+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);}} /* ##compiler#perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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=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 *a; if(C_unlikely(!C_demand(C_calculate_demand(86,c,9)))){ C_save_and_reclaim((void *)f_4143,4,av);} a=C_alloc(86); t4=C_fix(0); 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_fix(0); 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); t14=C_SCHEME_FALSE; 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_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4146,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t35=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4152,tmp=(C_word)a,a+=2,tmp)); t36=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4182,a[2]=t15,tmp=(C_word)a,a+=3,tmp)); t37=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4186,tmp=(C_word)a,a+=2,tmp)); t38=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4223,a[2]=t13,a[3]=t21,a[4]=t25,a[5]=t3,tmp=(C_word)a,a+=6,tmp)); t39=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4357,a[2]=t15,a[3]=t25,a[4]=t7,a[5]=t21,a[6]=t27,a[7]=t19,a[8]=t31,tmp=(C_word)a,a+=9,tmp)); t40=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4550,a[2]=t3,a[3]=t29,a[4]=t17,tmp=(C_word)a,a+=5,tmp)); t41=C_set_block_item(t31,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4570,a[2]=t21,a[3]=t17,a[4]=t9,a[5]=t29,a[6]=t5,a[7]=t27,a[8]=t33,a[9]=t3,a[10]=t23,a[11]=t11,tmp=(C_word)a,a+=12,tmp)); t42=C_set_block_item(t33,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6352,a[2]=t23,a[3]=t27,tmp=(C_word)a,a+=4,tmp)); t43=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6417,a[2]=t1,a[3]=t2,a[4]=t15,a[5]=t7,a[6]=t5,a[7]=t9,a[8]=t13,a[9]=t27,tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:517: perform-pre-optimization! */ t44=*((C_word*)lf[119]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t44; av2[1]=t43; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t44+1)))(4,av2);}} /* k10885 in for-each-loop2520 in k10848 in k10845 in k10842 in k10825 in k10822 in k10734 in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in ... */ static void C_ccall f_10887(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10887,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:1565: node-parameters-set! */ t3=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5757 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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; 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_5759,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5762,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_slot(((C_word*)t0)[3],C_fix(2)); t4=C_i_car(t3); /* optimizer.scm:453: debugging */ t5=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t2; av2[2]=lf[76]; av2[3]=lf[96]; av2[4]=((C_word*)t0)[9]; av2[5]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ /* optimizer.scm:461: walk-generic */ t2=((C_word*)((C_word*)t0)[10])[1]; f_6352(t2,((C_word*)t0)[6],((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_TRUE);}} /* k5742 in k5696 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_5744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5744,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_5249(t2,C_SCHEME_FALSE);} else{ t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:366: test */ t3=((C_word*)((C_word*)t0)[6])[1]; f_4146(t3,t2,((C_word*)t0)[7],lf[64]);}} /* k5738 in k5742 in k5696 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_5740,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_5249(t2,C_SCHEME_FALSE);} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5718,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* tweaks.scm:57: ##sys#get */ t3=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[54]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k13403 in a13391 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13405(C_word c,C_word *av){ C_word tmp; C_word t0=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_13405,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_13411,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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:645: immediate? */ t3=*((C_word*)lf[219]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k10856 in for-each-loop2520 in k10848 in k10845 in k10842 in k10825 in k10822 in k10734 in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in ... */ static void C_ccall f_10858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,1)))){ C_save_and_reclaim((void *)f_10858,2,av);} a=C_alloc(5); t2=C_slot(((C_word*)t0)[2],C_fix(3)); t3=C_a_i_record4(&a,4,lf[14],lf[15],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_set_car(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10848 in k10845 in k10842 in k10825 in k10822 in k10734 in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_10850,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_10892,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_10892(t6,((C_word*)t0)[3],t2);} /* k4865 in k4858 in k4723 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_4867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4867,2,av);} t2=((C_word*)t0)[2]; f_4728(t2,C_i_not(t1));} /* k4858 in k4723 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4860,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4867,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:253: test */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4146(t3,t2,((C_word*)t0)[4],lf[57]);} else{ t2=((C_word*)t0)[2]; f_4728(t2,C_SCHEME_FALSE);}} /* k13409 in k13403 in a13391 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13411(C_word c,C_word *av){ C_word tmp; C_word t0=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_13411,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13465,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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:646: get-list */ t3=*((C_word*)lf[124]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[98]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8816 in k8772 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_8818(C_word 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(16,0,1)))){ C_save_and_reclaim_args((void *)trf_8818,2,t0,t1);} a=C_alloc(16); t2=((C_word*)t0)[2]; t3=C_a_i_record4(&a,4,lf[14],lf[144],t1,t2); t4=C_a_i_list2(&a,2,((C_word*)t0)[3],t3); t5=((C_word*)t0)[4]; t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[5],t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a4893 in a4887 in k4881 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4894,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4900,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:273: partition */ t3=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6108 in map-loop803 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6110(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6110,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6085(t6,((C_word*)t0)[5],t5);} /* k7096 in a7084 in k7063 in k7060 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_7098(C_word t0,C_word t1){ C_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,4)))){ C_save_and_reclaim_args((void *)trf_7098,2,t0,t1);} a=C_alloc(14); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((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]); t7=((C_word*)t0)[6]; t8=t7;{ C_word av2[2]; av2[0]=t8; av2[1]=C_a_i_record4(&a,4,lf[14],lf[6],((C_word*)t0)[7],t6); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7127,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7157,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7159,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:893: fold-right */ t5=*((C_word*)lf[137]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* a4887 in k4881 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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=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_4888,5,av);} a=C_alloc(15); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4894,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_4906,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:272: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k4881 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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(13,c,5)))){ C_save_and_reclaim((void *)f_4883,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4888,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:270: decompose-lambda-list */ t3=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_4982,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:286: test */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4146(t3,t2,((C_word*)t0)[6],lf[64]);}} /* touch in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static C_word C_fcall f_4182(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);} /* k5716 in k5738 in k5742 in k5696 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_5718,2,av);} t2=C_eqp(t1,lf[53]); if(C_truep(t2)){ t3=((C_word*)t0)[2]; f_5249(t3,C_SCHEME_FALSE);} else{ if(C_truep(((C_word*)t0)[3])){ t3=((C_word*)t0)[2]; f_5249(t3,((C_word*)t0)[3]);} else{ t3=C_i_cadddr(((C_word*)t0)[4]); t4=((C_word*)t0)[2]; f_5249(t4,C_i_lessp(t3,*((C_word*)lf[93]+1)));}}} /* map-loop2826 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_12408(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_12408,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_mutate2(((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);}}} /* invalidate-gae! in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_4186(C_word t1,C_word 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_4186,2,t1,t2);} a=C_alloc(2); t3=C_i_check_list_2(t2,lf[2]); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4200,tmp=(C_word)a,a+=2,tmp); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=( f_4200(t2) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k12404 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_12406(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12406,2,av);} /* optimizer.scm:1694: debugging */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[191]; av2[3]=lf[192]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a7084 in k7063 in k7060 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_7085(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(8,c,2)))){ C_save_and_reclaim((void *)f_7085,4,av);} a=C_alloc(8); t4=C_i_assq(t2,((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_7098,a[2]=t8,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,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_7098(t14,C_i_not(t13));} else{ t11=t9; f_7098(t11,C_SCHEME_FALSE);}} /* a9653 in k9532 in k9526 in k9520 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9654(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(0,c,1)))){ C_save_and_reclaim((void *)f_9654,3,av);} t3=t2; t4=C_slot(t3,C_fix(1)); t5=C_eqp(lf[34],t4); if(C_truep(t5)){ t6=t2; t7=C_slot(t6,C_fix(2)); t8=C_i_car(t7); t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_eqp(((C_word*)t0)[2],t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop2795 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_12475(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_12475,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_mutate2(((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);}}} /* k12471 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_12473(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12473,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[194]+1); av2[3]=t1; C_apply(4,av2);}} /* k11586 in k11569 in k11555 in walk in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_11588,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* optimizer.scm:1641: walk */ t3=((C_word*)((C_word*)t0)[4])[1]; f_11511(t3,((C_word*)t0)[5],((C_word*)t0)[6],t2);} /* a12449 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_12450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12450,2,av);} /* optimizer.scm:1691: gensym */ t2=*((C_word*)lf[83]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=t1; av2[2]=lf[193]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12442 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_12444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12444,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* optimizer.scm:1690: append */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10761 in g2451 in k10734 in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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_10763,2,av);} a=C_alloc(26); t2=C_i_cadr(((C_word*)t0)[2]); t3=C_a_i_list4(&a,4,C_SCHEME_TRUE,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]); t4=C_u_i_car(((C_word*)t0)[2]); t5=C_u_i_cdr(((C_word*)t0)[2]); t6=C_u_i_cdr(t5); t7=C_a_i_cons(&a,2,t4,t6); t8=C_a_i_record4(&a,4,lf[14],lf[164],t3,t7); t9=C_a_i_list2(&a,2,t2,t8); /* optimizer.scm:1538: node-subexpressions-set! */ t10=*((C_word*)lf[121]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=((C_word*)t0)[6]; av2[2]=((C_word*)t0)[7]; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} /* g2934 in k11955 in g2920 in k11950 in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in ... */ static void C_fcall f_11958(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_11958,3,t0,t1,t2);} a=C_alloc(11); t3=C_i_cdr(t2); t4=t3; t5=C_slot(t4,C_fix(3)); t6=C_i_cdr(t5); t7=t6; t8=C_slot(t4,C_fix(2)); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11990,a[2]=t9,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11994,a[2]=t10,a[3]=t7,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1764: varnode */ t12=*((C_word*)lf[51]+1);{ C_word av2[3]; av2[0]=t12; av2[1]=t11; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} /* k11955 in g2920 in k11950 in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 in ... */ static void C_ccall f_11957(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_11957,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11958,a[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[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|3,a[1]=(C_word)f_12045,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_12045(t7,((C_word*)t0)[5],t1);} /* g2920 in k11950 in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_11953(C_word t0,C_word t1,C_word 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_11953,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11957,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:1756: get */ t5=*((C_word*)lf[33]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t4; av2[4]=lf[126]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k11950 in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_11952,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11953,a[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_12075,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_12075(t6,((C_word*)t0)[5],((C_word*)t0)[6]);} /* ##compiler#reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6872(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_unlikely(!C_demand(C_calculate_demand(21,c,4)))){ C_save_and_reclaim((void *)f_6872,5,av);} a=C_alloc(21); t5=C_SCHEME_END_OF_LIST; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,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=t3; t13=C_i_check_list_2(t11,lf[35]); t14=C_i_check_list_2(t12,lf[35]); t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6885,a[2]=t6,a[3]=t2,a[4]=t3,a[5]=t1,a[6]=t4,tmp=(C_word)a,a+=7,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_7314,a[2]=t9,a[3]=t17,a[4]=t10,tmp=(C_word)a,a+=5,tmp)); t19=((C_word*)t17)[1]; f_7314(t19,t15,t11,t12);} /* k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_6870,2,av);} a=C_alloc(5); t2=C_mutate2((C_word*)lf[130]+1 /* (set! ##compiler#reorganize-recursive-bindings ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6872,tmp=(C_word)a,a+=2,tmp)); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7364,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:912: make-vector */ t4=*((C_word*)lf[198]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(160,c,10)))){ C_save_and_reclaim((void *)f_6867,2,av);} a=C_alloc(160); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6870,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_a_i_list(&a,1,lf[199]); t4=C_a_i_list(&a,2,lf[3],t3); t5=C_a_i_list(&a,4,lf[12],lf[200],t4,lf[201]); t6=C_a_i_list(&a,1,lf[199]); t7=C_a_i_list(&a,2,lf[3],t6); t8=C_a_i_list(&a,4,lf[12],lf[202],t7,lf[203]); t9=C_a_i_list(&a,5,lf[5],lf[204],lf[191],t5,t8); t10=C_a_i_list(&a,7,lf[204],lf[200],lf[202],lf[191],lf[201],lf[203],lf[199]); t11=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12731,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[205]); t14=C_a_i_list(&a,1,lf[206]); t15=C_a_i_list(&a,2,lf[34],t14); t16=C_a_i_list(&a,4,lf[144],t13,lf[191],t15); t17=C_a_i_list(&a,5,lf[5],lf[204],t16,lf[201],lf[203]); t18=C_a_i_list(&a,6,lf[204],lf[205],lf[191],lf[206],lf[201],lf[203]); t19=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12595,tmp=(C_word)a,a+=2,tmp); t20=C_a_i_list(&a,3,t17,t18,t19); /* optimizer.scm:769: register-simplifications */ t21=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t21; av2[1]=t2; av2[2]=lf[5]; av2[3]=t12; av2[4]=t20; ((C_proc)(void*)(*((C_word*)t21+1)))(5,av2);}} /* k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(434,c,14)))){ C_save_and_reclaim((void *)f_6864,2,av);} a=C_alloc(434); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6867,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_a_i_list(&a,1,lf[209]); t4=C_a_i_list(&a,1,lf[205]); t5=C_a_i_list(&a,1,lf[210]); t6=C_a_i_list(&a,2,lf[3],t5); t7=C_a_i_list(&a,1,lf[211]); t8=C_a_i_list(&a,2,lf[34],t7); t9=C_a_i_list(&a,4,lf[144],t4,t6,t8); t10=C_a_i_list(&a,1,lf[209]); t11=C_a_i_list(&a,2,lf[3],t10); t12=C_a_i_list(&a,1,lf[212]); t13=C_a_i_list(&a,1,lf[205]); t14=C_a_i_list(&a,1,lf[210]); t15=C_a_i_list(&a,2,lf[3],t14); t16=C_a_i_list(&a,1,lf[213]); t17=C_a_i_list(&a,2,lf[34],t16); t18=C_a_i_list(&a,4,lf[144],t13,t15,t17); t19=C_a_i_list(&a,1,lf[212]); t20=C_a_i_list(&a,2,lf[3],t19); t21=C_a_i_list(&a,5,lf[5],lf[200],t20,lf[214],lf[215]); t22=C_a_i_list(&a,4,lf[6],t12,t18,t21); t23=C_a_i_list(&a,5,lf[5],lf[204],t11,lf[216],t22); t24=C_a_i_list(&a,4,lf[6],t3,t9,t23); t25=C_a_i_list(&a,11,lf[210],lf[209],lf[212],lf[205],lf[211],lf[213],lf[216],lf[214],lf[204],lf[200],lf[215]); t26=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13392,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[199]); t29=C_a_i_list(&a,1,lf[205]); t30=C_a_i_list(&a,1,lf[210]); t31=C_a_i_list(&a,2,lf[3],t30); t32=C_a_i_list(&a,1,lf[220]); t33=C_a_i_list(&a,2,lf[34],t32); t34=C_a_i_list(&a,4,lf[144],t29,t31,t33); t35=C_a_i_list(&a,1,lf[199]); t36=C_a_i_list(&a,2,lf[3],t35); t37=C_a_i_list(&a,1,lf[221]); t38=C_a_i_list(&a,1,lf[210]); t39=C_a_i_list(&a,2,lf[3],t38); t40=C_a_i_cons(&a,2,t39,lf[222]); t41=C_a_i_cons(&a,2,t37,t40); t42=C_a_i_cons(&a,2,lf[22],t41); t43=C_a_i_list(&a,5,lf[5],lf[223],t36,lf[224],t42); t44=C_a_i_list(&a,4,lf[6],t28,t34,t43); t45=C_a_i_list(&a,8,lf[199],lf[205],lf[210],lf[220],lf[223],lf[224],lf[221],lf[222]); t46=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13262,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[209]); t49=C_a_i_list(&a,2,lf[15],C_SCHEME_END_OF_LIST); t50=C_a_i_list(&a,4,lf[6],t48,t49,lf[225]); t51=C_a_i_list(&a,2,lf[209],lf[225]); t52=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12903,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[199]); t55=C_a_i_list(&a,1,lf[205]); t56=C_a_i_cons(&a,2,t55,lf[226]); t57=C_a_i_cons(&a,2,lf[144],t56); t58=C_a_i_list(&a,1,lf[199]); t59=C_a_i_list(&a,2,lf[3],t58); t60=C_a_i_list(&a,5,lf[5],lf[223],t59,lf[191],lf[201]); t61=C_a_i_list(&a,4,lf[6],t54,t57,t60); t62=C_a_i_list(&a,6,lf[199],lf[205],lf[226],lf[223],lf[191],lf[201]); t63=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12814,tmp=(C_word)a,a+=2,tmp); t64=C_a_i_list(&a,3,t61,t62,t63); /* optimizer.scm:624: register-simplifications */ t65=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t65; av2[1]=t2; av2[2]=lf[6]; av2[3]=t27; av2[4]=t47; av2[5]=t53; av2[6]=t64; ((C_proc)(void*)(*((C_word*)t65+1)))(7,av2);}} /* k11988 in g2934 in k11955 in g2920 in k11950 in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11990,2,av);} a=C_alloc(5); t2=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[2],t1); /* optimizer.scm:1761: copy-node! */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4980 in k4881 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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(8,c,8)))){ C_save_and_reclaim((void *)f_4982,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4987,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:287: decompose-lambda-list */ t3=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:299: walk-generic */ t3=((C_word*)((C_word*)t0)[10])[1]; f_6352(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);}} /* find in find-path in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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_6893,4,t0,t1,t2,t3);} a=C_alloc(7); if(C_truep(C_i_memq(t2,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_assq(t2,((C_word*)((C_word*)t0)[2])[1]); t5=C_i_cdr(t4); t6=C_i_memq(((C_word*)t0)[3],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_a_i_cons(&a,2,t2,t3); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6917,a[2]=((C_word*)t0)[4],a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:835: any */ t10=*((C_word*)lf[37]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t1; av2[2]=t9; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}} /* k4992 in a4986 in k4980 in k4881 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 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_4994,2,av);} a=C_alloc(14); 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_5034,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_a_i_plus(&a,2,((C_word*)t0)[8],C_fix(1)); /* optimizer.scm:296: build-lambda-list */ t8=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t6; av2[2]=((C_word*)t0)[9]; av2[3]=t7; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} /* walk in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_11511(C_word t0,C_word t1,C_word 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; if(C_unlikely(!C_demand(C_calculate_demand(16,0,5)))){ C_save_and_reclaim_args((void *)trf_11511,4,t0,t1,t2,t3);} a=C_alloc(16); t4=t2; t5=C_slot(t4,C_fix(3)); t6=t5; t7=t2; t8=C_slot(t7,C_fix(2)); t9=t2; t10=C_slot(t9,C_fix(1)); t11=C_eqp(t10,lf[6]); if(C_truep(t11)){ t12=C_i_car(t8); t13=t12; t14=C_i_car(t6); t15=t14; t16=C_i_cadr(t6); t17=t16; t18=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11557,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t13,a[5]=t3,a[6]=((C_word*)t0)[3],a[7]=t1,a[8]=t17,a[9]=t15,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); t19=((C_word*)((C_word*)t0)[2])[1]; if(C_truep(t19)){ t20=t18; f_11557(t20,C_SCHEME_FALSE);} else{ t20=C_slot(t15,C_fix(1)); t21=t18; f_11557(t21,C_eqp(lf[15],t20));}} else{ t12=C_eqp(t10,lf[11]); t13=(C_truep(t12)?t12:C_eqp(t10,lf[69])); if(C_truep(t13)){ t14=C_i_caddr(t8); t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11719,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1643: decompose-lambda-list */ t16=*((C_word*)lf[66]+1);{ C_word av2[4]; av2[0]=t16; av2[1]=t1; av2[2]=t14; av2[3]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}} else{ t14=( /* optimizer.scm:1652: close */ f_11451(C_a_i(&a,6),((C_word*)((C_word*)t0)[5])[1]) ); t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11751,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t16=C_i_check_list_2(t6,lf[2]); 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_11763,a[2]=t18,a[3]=t15,tmp=(C_word)a,a+=4,tmp)); t20=((C_word*)t18)[1]; f_11763(t20,t1,t6);}}} /* k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6885(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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,4)))){ C_save_and_reclaim((void *)f_6885,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6887,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6930,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[3]; t6=((C_word*)t0)[4]; t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6942,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=((C_word*)t0)[2],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|3,a[1]=(C_word)f_7277,a[2]=t9,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_7277(t11,t7,t5,t6);} /* find-path in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_6887(C_word t0,C_word 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_6887,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_6893,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_6893(t7,t1,t2,C_SCHEME_END_OF_LIST);} /* a4986 in k4980 in k4881 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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=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_4987,5,av);} a=C_alloc(10); t5=( /* optimizer.scm:290: touch */ f_4182(((C_word*)((C_word*)t0)[2])[1]) ); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4994,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:291: debugging */ t7=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=lf[18]; av2[3]=lf[67]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k11992 in g2934 in k11955 in g2920 in k11950 in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in ... */ static void C_ccall f_11994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_11994,2,av);} a=C_alloc(15); t2=t1; 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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12002,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_a_i_minus(&a,2,((C_word*)t0)[5],t5); t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12020,tmp=(C_word)a,a+=2,tmp); /* optimizer.scm:1767: list-tabulate */ t8=*((C_word*)lf[188]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11996 in k11992 in g2934 in k11955 in g2920 in k11950 in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11998,2,av);} /* optimizer.scm:1764: cons* */ t2=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7881 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_7883(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(13,c,2)))){ C_save_and_reclaim((void *)f_7883,2,av);} a=C_alloc(13); 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[146]+1))); if(C_truep(t6)){ t7=C_a_i_list1(&a,1,C_SCHEME_TRUE); t8=t7; t9=((C_word*)t0)[3]; t10=C_u_i_car(t9); 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|6,a[1]=(C_word)f_7942,a[2]=t14,a[3]=t12,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t8,tmp=(C_word)a,a+=7,tmp); t16=((C_word*)t0)[3]; t17=C_u_i_cdr(t16); t18=C_u_i_car(t17); /* optimizer.scm:1002: qnode */ t19=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t19; av2[1]=t15; av2[2]=t18; ((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}} else{ t7=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k4961 in k4958 in k4911 in a4905 in a4887 in k4881 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_4963,2,av);} a=C_alloc(4); t2=C_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); /* optimizer.scm:282: build-lambda-list */ t3=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4958 in k4911 in a4905 in a4887 in k4881 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4960,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4963,a[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:280: debugging */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[18]; av2[3]=lf[63]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ /* optimizer.scm:283: build-lambda-list */ t2=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* a9479 in k9433 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9480(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_9480,4,av);} a=C_alloc(5); t4=t2; t5=t3; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9492,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:1244: qnode */ t8=*((C_word*)lf[40]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k11569 in k11555 in walk in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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(13,0,3)))){ C_save_and_reclaim_args((void *)trf_11571,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_mutate2(((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:1636: walk */ t5=((C_word*)((C_word*)t0)[6])[1]; f_11511(t5,((C_word*)t0)[7],((C_word*)t0)[8],t4);} else{ t2=( /* optimizer.scm:1639: close */ f_11451(C_a_i(&a,6),((C_word*)((C_word*)t0)[9])[1]) ); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11588,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:1640: walk */ t4=((C_word*)((C_word*)t0)[6])[1]; f_11511(t4,t3,((C_word*)t0)[2],((C_word*)t0)[5]);}} /* k9490 in a9479 in k9433 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9492,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:1243: append */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12106 in descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_12108(C_word t0,C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_12108,2,t0,t1);} a=C_alloc(20); if(C_truep(t1)){ /* optimizer.scm:1705: descend */ t2=((C_word*)((C_word*)t0)[2])[1]; f_12098(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=C_a_i_list1(&a,1,((C_word*)t0)[5]); t3=t2; t4=C_a_i_record4(&a,4,lf[14],lf[15],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12354,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=t5,a[6]=t3,a[7]=((C_word*)t0)[3],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:1714: gensym */ t7=*((C_word*)lf[83]+1);{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k3991 in k3911 in scan in scan-toplevel-assignments in k3753 in k3750 in k3747 */ 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 *a; 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=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3996,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:93: alist-ref */ t3=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3994 in k3991 in k3911 in scan in scan-toplevel-assignments in k3753 in k3750 in k3747 */ static void C_ccall f_3996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3996,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3999,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_4014,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_4014(t6,C_i_not(t5));} else{ t5=t4; f_4014(t5,C_SCHEME_FALSE);}} /* k3997 in k3994 in k3991 in k3911 in scan in scan-toplevel-assignments in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3999,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4002,a[2]=((C_word*)t0)[2],a[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:104: remember */ t3=((C_word*)((C_word*)t0)[2])[1]; f_3783(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ /* optimizer.scm:103: mark */ t3=((C_word*)((C_word*)t0)[7])[1]; f_3760(t3,t2,((C_word*)t0)[4]);}} /* k9114 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_9116,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_9149,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); if(C_truep(*((C_word*)lf[145]+1))){ t5=C_i_cddr(((C_word*)t0)[5]); t6=C_i_pairp(t5); t7=t4; f_9149(t7,(C_truep(t6)?C_i_caddr(((C_word*)t0)[5]):C_i_cadr(((C_word*)t0)[5])));} else{ t5=t4; f_9149(t5,C_i_cadr(((C_word*)t0)[5]));}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3958 in k3911 in scan in scan-toplevel-assignments in k3753 in k3750 in k3747 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3960,2,av);} /* optimizer.scm:82: scan-each */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3795(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k11555 in walk in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_11557(C_word t0,C_word t1){ C_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,4)))){ C_save_and_reclaim_args((void *)trf_11557,2,t0,t1);} a=C_alloc(24); if(C_truep(t1)){ t2=C_mutate2(((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:1623: walk */ t4=((C_word*)((C_word*)t0)[6])[1]; f_11511(t4,((C_word*)t0)[7],((C_word*)t0)[8],t3);} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11571,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=C_slot(((C_word*)t0)[9],C_fix(1)); t4=C_eqp(lf[13],t3); if(C_truep(t4)){ t5=C_slot(((C_word*)t0)[9],C_fix(3)); t6=C_i_car(t5); t7=t6; t8=C_slot(((C_word*)t0)[9],C_fix(2)); t9=C_i_car(t8); t10=t9; t11=C_slot(t7,C_fix(1)); t12=C_eqp(lf[11],t11); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11619,a[2]=t10,a[3]=((C_word*)t0)[5],a[4]=t7,a[5]=t2,tmp=(C_word)a,a+=6,tmp); t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11632,a[2]=t13,a[3]=((C_word*)t0)[12],a[4]=t10,tmp=(C_word)a,a+=5,tmp); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11647,a[2]=t14,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1630: get */ t16=*((C_word*)lf[33]+1);{ C_word av2[5]; av2[0]=t16; av2[1]=t15; av2[2]=((C_word*)t0)[12]; av2[3]=t10; av2[4]=lf[98]; ((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}} else{ t13=t2; f_11571(t13,C_SCHEME_FALSE);}} else{ t5=t2; f_11571(t5,C_SCHEME_FALSE);}} else{ t3=t2; f_11571(t3,C_SCHEME_FALSE);}}} /* k9466 in k9433 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,1)))){ C_save_and_reclaim((void *)f_9468,2,av);} a=C_alloc(16); t2=C_a_i_record4(&a,4,lf[14],lf[144],((C_word*)t0)[2],t1); t3=C_a_i_list2(&a,2,((C_word*)t0)[3],t2); t4=((C_word*)t0)[4]; t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[5],t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k3943 in k3911 in scan in scan-toplevel-assignments in k3753 in k3750 in k3747 */ static void C_ccall f_3945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3945,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3952,a[2]=((C_word*)t0)[2],a[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:83: last */ t3=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k13437 in k13454 in k13463 in k13409 in k13403 in a13391 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13439(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13439,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13443,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:652: qnode */ t4=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3954 in k3950 in k3943 in k3911 in scan in scan-toplevel-assignments in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3956,2,av);} /* optimizer.scm:83: scan */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3832(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k3950 in k3943 in k3911 in scan in scan-toplevel-assignments in k3753 in k3750 in k3747 */ static void C_ccall f_3952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3952,2,av);} a=C_alloc(5); t2=t1; t3=(*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]=t2,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:83: append */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a9469 in k9433 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_9470,2,av);} a=C_alloc(4); t2=C_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1)); /* optimizer.scm:1242: split-at */ t3=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3920 in k3914 in k3911 in scan in scan-toplevel-assignments in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3922,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_END_OF_LIST); t3=C_i_cadr(((C_word*)t0)[3]); /* optimizer.scm:79: scan */ t4=((C_word*)((C_word*)t0)[4])[1]; f_3832(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6]);} /* k3914 in k3911 in scan in scan-toplevel-assignments in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_3916,2,av);} a=C_alloc(7); t2=( /* optimizer.scm:76: touch */ f_3790(((C_word*)((C_word*)t0)[2])[1]) ); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3922,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=C_u_i_car(((C_word*)t0)[4]); /* optimizer.scm:77: scan */ t5=((C_word*)((C_word*)t0)[5])[1]; f_3832(t5,t3,t4,((C_word*)t0)[7]);} /* k4369 in walk in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_4371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word 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_4371,2,av);} a=C_alloc(21); t2=t1; t3=C_slot(t2,C_fix(3)); t4=t3; t5=C_slot(t2,C_fix(1)); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4390,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t7=C_eqp(t5,lf[5]); if(C_truep(t7)){ t8=C_i_car(t4); t9=C_slot(t8,C_fix(1)); t10=C_eqp(lf[34],t9); if(C_truep(t10)){ t11=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[4])[1],C_fix(1)); t12=C_mutate2(((C_word *)((C_word*)t0)[4])+1,t11); t13=( /* optimizer.scm:179: touch */ f_4182(((C_word*)((C_word*)t0)[5])[1]) ); t14=C_u_i_car(t4); t15=C_slot(t14,C_fix(2)); t16=C_i_car(t15); t17=(C_truep(t16)?C_i_cadr(t4):C_i_caddr(t4)); /* optimizer.scm:180: walk */ t18=((C_word*)((C_word*)t0)[6])[1]; f_4357(t18,t6,t17,((C_word*)t0)[7],((C_word*)t0)[8]);} else{ /* optimizer.scm:170: simplify */ t11=((C_word*)((C_word*)t0)[2])[1]; f_4223(t11,((C_word*)t0)[3],t2);}} else{ t8=C_eqp(t5,lf[12]); if(C_truep(t8)){ t9=C_i_car(t4); t10=C_slot(t9,C_fix(1)); t11=C_eqp(lf[3],t10); if(C_truep(t11)){ t12=C_u_i_car(t4); t13=C_slot(t12,C_fix(2)); t14=C_i_car(t13); t15=t14; t16=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4449,a[2]=t4,a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=t6,a[8]=t15,a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[3],tmp=(C_word)a,a+=11,tmp); t17=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4507,a[2]=t4,a[3]=t16,a[4]=((C_word*)t0)[11],a[5]=t15,tmp=(C_word)a,a+=6,tmp); /* tweaks.scm:51: ##sys#get */ t18=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t18; av2[1]=t17; av2[2]=t15; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}} else{ /* optimizer.scm:170: simplify */ t12=((C_word*)((C_word*)t0)[2])[1]; f_4223(t12,((C_word*)t0)[3],t2);}} else{ /* optimizer.scm:170: simplify */ t9=((C_word*)((C_word*)t0)[2])[1]; f_4223(t9,((C_word*)t0)[3],t2);}}} /* k3911 in scan in scan-toplevel-assignments in k3753 in k3750 in k3747 */ static void C_fcall f_3913(C_word t0,C_word t1){ C_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,3)))){ C_save_and_reclaim_args((void *)trf_3913,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3916,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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]); /* optimizer.scm:75: scan */ t4=((C_word*)((C_word*)t0)[5])[1]; f_3832(t4,t2,t3,((C_word*)t0)[7]);} else{ t2=C_eqp(((C_word*)t0)[8],lf[6]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3945,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3960,a[2]=((C_word*)t0)[10],a[3]=t3,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:82: butlast */ t5=*((C_word*)lf[9]+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{ t3=C_eqp(((C_word*)t0)[8],lf[10]); t4=(C_truep(t3)?t3:C_eqp(((C_word*)t0)[8],lf[11])); if(C_truep(t4)){ 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(((C_word*)t0)[8],lf[12]); if(C_truep(t5)){ /* optimizer.scm:87: touch */ t6=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t6; av2[1]=( /* optimizer.scm:87: touch */ f_3790(((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[13]); if(C_truep(t6)){ t7=C_i_car(((C_word*)t0)[9]); t8=t7; t9=C_i_car(((C_word*)t0)[4]); t10=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3993,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[6],a[4]=t8,a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[13],a[8]=((C_word*)t0)[14],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:92: scan */ t11=((C_word*)((C_word*)t0)[5])[1]; f_3832(t11,t10,t9,((C_word*)t0)[7]);} else{ /* optimizer.scm:106: scan-each */ t7=((C_word*)((C_word*)t0)[10])[1]; f_3795(t7,((C_word*)t0)[6],((C_word*)t0)[4],((C_word*)t0)[7]);}}}}}} /* a11718 in walk in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_11719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11719,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_11725,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_11732,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_11742,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:1645: ##sys#dynamic-wind */ t16=*((C_word*)lf[187]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t1; av2[2]=t13; av2[3]=t14; av2[4]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}} /* k9197 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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_9199,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_9219,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:1198: qnode */ t6=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g2379 in rec in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_11147(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_11147,3,t0,t1,t2);} a=C_alloc(9); t3=C_i_cdr(t2); t4=t3; t5=C_slot(t4,C_fix(3)); t6=C_i_car(t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11157,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t7,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t4,tmp=(C_word)a,a+=9,tmp); t9=C_i_cdr(((C_word*)t0)[4]); t10=C_i_length(t9); t11=C_eqp(((C_word*)t0)[6],t10); if(C_truep(t11)){ t12=t8;{ C_word av2[2]; av2[0]=t12; av2[1]=C_SCHEME_UNDEFINED; f_11157(2,av2);}} else{ /* optimizer.scm:1500: quit */ t12=*((C_word*)lf[167]+1);{ C_word av2[4]; av2[0]=t12; av2[1]=t8; av2[2]=lf[174]; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}}} /* k12679 in k12691 in k12687 in a12654 in k12615 in a12594 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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(14,c,1)))){ C_save_and_reclaim((void *)f_12681,2,av);} a=C_alloc(14); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],t1,((C_word*)t0)[3]); t3=((C_word*)t0)[4]; t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[14],lf[21],C_SCHEME_END_OF_LIST,t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k12687 in a12654 in k12615 in a12594 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_12689(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_12689,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12693,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); /* optimizer.scm:814: qnode */ t4=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* walk in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_4357(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(12,0,4)))){ C_save_and_reclaim_args((void *)trf_4357,5,t0,t1,t2,t3,t4);} a=C_alloc(12); if(C_truep(C_i_memq(t2,*((C_word*)lf[39]+1)))){ 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|11,a[1]=(C_word)f_4371,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],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:172: walk1 */ t7=((C_word*)((C_word*)t0)[8])[1]; f_4570(t7,t6,t2,t3,t4);}} /* a11741 in a11718 in walk in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_11742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_11742,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate2(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[6])[1]); t5=C_mutate2(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[7])[1]); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k12749 in a12730 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,1)))){ C_save_and_reclaim((void *)f_12751,2,av);} a=C_alloc(25); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=C_a_i_record4(&a,4,lf[14],lf[21],C_SCHEME_END_OF_LIST,t2); t4=C_a_i_list2(&a,2,t1,t3); t5=((C_word*)t0)[5]; t6=((C_word*)t0)[6]; t7=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],t6,t4); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k11111 in k11108 in rec in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_11113,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11116,a[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:1493: node-parameters-set! */ t4=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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 rec in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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(6,c,3)))){ C_save_and_reclaim((void *)f_11110,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11113,a[2]=((C_word*)t0)[2],a[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:1492: node-class-set! */ t3=*((C_word*)lf[170]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[171]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k12691 in k12687 in a12654 in k12615 in a12594 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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_12693,2,av);} a=C_alloc(16); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_record4(&a,4,lf[14],lf[144],((C_word*)t0)[3],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12681,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:815: qnode */ t6=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12695 in k12615 in a12594 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12697,2,av);} /* optimizer.scm:809: fold-right */ t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop803 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_6085(C_word t0,C_word t1,C_word 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_6085,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_6110,a[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:466: g809 */ t5=((C_word*)t0)[4]; f_6076(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);}}} /* k6081 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6083(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6083,2,av);} a=C_alloc(9); t2=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6067,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:467: invalidate-gae! */ f_4186(t4,((C_word*)t0)[5]);} /* k9910 in loop in a9850 in k9837 in k9808 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9912(C_word c,C_word *av){ C_word tmp; 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_9912,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k9147 in k9114 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_9149(C_word t0,C_word 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(19,0,1)))){ C_save_and_reclaim_args((void *)trf_9149,2,t0,t1);} a=C_alloc(19); t2=C_a_i_list1(&a,1,t1); t3=((C_word*)t0)[2]; t4=C_a_i_record4(&a,4,lf[14],lf[144],t2,t3); t5=C_a_i_list2(&a,2,((C_word*)t0)[3],t4); t6=((C_word*)t0)[4]; t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[5],t5); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* for-each-loop187 in invalidate-gae! in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static C_word C_fcall f_4200(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);}} /* k11114 in k11111 in k11108 in rec in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_11116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11116,2,av);} t2=C_i_cddr(((C_word*)t0)[2]); /* optimizer.scm:1494: node-subexpressions-set! */ t3=*((C_word*)lf[121]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12352 in k12106 in descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 in ... */ 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 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_12354,2,av);} a=C_alloc(20); t2=C_a_i_list1(&a,1,t1); t3=t2; t4=C_a_i_list1(&a,1,((C_word*)t0)[2]); t5=t4; t6=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_12350,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t5,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)[2],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],tmp=(C_word)a,a+=14,tmp); /* optimizer.scm:1721: gensym */ t7=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[190]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k12348 in k12352 in k12106 in descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 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 t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(37,c,2)))){ C_save_and_reclaim((void *)f_12350,2,av);} a=C_alloc(37); t2=C_a_i_list4(&a,4,t1,C_SCHEME_TRUE,((C_word*)t0)[2],C_fix(0)); t3=t2; t4=C_a_i_minus(&a,2,((C_word*)((C_word*)t0)[3])[1],C_fix(1)); t5=C_a_i_list1(&a,1,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12247,a[2]=t6,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],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); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12342,a[2]=((C_word*)t0)[9],a[3]=t7,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[12],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1728: varnode */ t9=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[13]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* a4237 in k4225 in simplify in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 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_4238,3,av);} a=C_alloc(9); t3=C_i_cadr(t2); t4=t3; if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4248,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]=t4,a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); t6=t2; t7=C_u_i_car(t6); /* optimizer.scm:154: match-node */ t8=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t5; av2[2]=((C_word*)t0)[6]; av2[3]=t7; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a11724 in a11718 in walk in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_11725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_11725,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate2(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[6])[1]); t5=C_mutate2(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[7])[1]); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a9358 in k9241 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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(0,c,1)))){ C_save_and_reclaim((void *)f_9359,3,av);} t3=t2; t4=C_slot(t3,C_fix(1)); t5=C_eqp(lf[34],t4); if(C_truep(t5)){ t6=t2; t7=C_slot(t6,C_fix(2)); t8=C_i_car(t7); t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_eqp(((C_word*)t0)[2],t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k4228 in k4225 in simplify in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4230,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop in a9850 in k9837 in k9808 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_9865(C_word t0,C_word t1,C_word 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_9865,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_9885,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:929: varnode */ t8=*((C_word*)lf[51]+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_7449,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_7449(t10,C_eqp(lf[34],t9));} else{ t9=t8; f_7449(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_9912,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:1327: loop */ t11=t6; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;}}} /* k9837 in k9808 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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; 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_9839,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9843,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_9845,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_9851,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1317: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t3; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* k12340 in k12348 in k12352 in k12106 in descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in ... */ 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(11,c,3)))){ C_save_and_reclaim((void *)f_12342,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_12255,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_12270,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1729: append-map */ t6=*((C_word*)lf[135]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4225 in simplify in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_4227,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4230,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|6,a[1]=(C_word)f_4238,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],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:152: any */ t4=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11158 in k11155 in g2379 in rec in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_11160,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11163,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_11194,a[2]=t2,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); t4=C_slot(((C_word*)t0)[8],C_fix(2)); t5=C_i_caddr(t4); /* optimizer.scm:1504: take */ t6=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=C_fix(1); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k11161 in k11158 in k11155 in g2379 in rec in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_11163,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11166,a[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_FALSE,((C_word*)t0)[5]); t4=C_i_cddr(((C_word*)t0)[6]); t5=C_a_i_record4(&a,4,lf[14],lf[171],t3,t4); t6=C_a_i_list2(&a,2,t5,((C_word*)t0)[4]); /* optimizer.scm:1505: node-subexpressions-set! */ t7=*((C_word*)lf[121]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* simplify in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_4223(C_word 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_4223,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4227,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); t4=t2; t5=C_slot(t4,C_fix(1)); /* optimizer.scm:151: ##sys#hash-table-ref */ t6=*((C_word*)lf[38]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=*((C_word*)lf[30]+1); av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k9833 in k9808 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9835(C_word c,C_word *av){ C_word tmp; C_word t0=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_9835,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop224 in k4246 in a4237 in k4225 in simplify in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_4312(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_4312,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:156: g230 */ f_4296(((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_mutate2(((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);}}} /* k4308 in k4246 in a4237 in k4225 in simplify in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4310,2,av);}{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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_apply(5,av2);}} /* k11164 in k11161 in k11158 in k11155 in g2379 in rec in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11166,2,av);} /* optimizer.scm:1508: rec */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; f_11032(3,av2);}} /* k9857 in a9850 in k9837 in k9808 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9859(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9859,2,av);} /* optimizer.scm:1318: append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a11731 in a11718 in walk in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11732,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* optimizer.scm:1649: walk */ t3=((C_word*)((C_word*)t0)[3])[1]; f_11511(t3,t1,t2,((C_word*)t0)[4]);} /* k11155 in g2379 in rec in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_11157,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11160,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:1503: node-class-set! */ t3=*((C_word*)lf[170]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=lf[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a9850 in k9837 in k9808 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9851(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_9851,4,av);} a=C_alloc(9); t4=t2; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9859,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_9865,a[2]=t8,tmp=(C_word)a,a+=3,tmp)); t10=((C_word*)t8)[1]; f_9865(t10,t5,t3,t6);} /* k8689 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_8691,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[145]+1)); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8706,a[2]=((C_word*)t0)[2],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_word*)t0)[2]; t6=C_u_i_car(t5); /* optimizer.scm:1111: argc-ok? */ t7=((C_word*)((C_word*)t0)[7])[1]; f_7389(t7,t4,t6);} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g809 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_6076(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_6076,3,t0,t1,t2);} /* optimizer.scm:466: g826 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4357(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k12316 in loop in k12276 in a12269 in k12340 in k12348 in k12352 in k12106 in descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in ... */ 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 t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_12318,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12322,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:1739: loop */ t8=((C_word*)((C_word*)t0)[6])[1]; f_12288(t8,t3,t5,t7);} /* k7641 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t4; C_word t5; C_word t6; C_word 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,1)))){ C_save_and_reclaim((void *)f_7643,2,av);} a=C_alloc(22); if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); t3=(C_truep(t2)?t2:*((C_word*)lf[145]+1)); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[3]); t5=C_a_i_list1(&a,1,C_SCHEME_TRUE); t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=C_u_i_car(t7); t9=C_a_i_list1(&a,1,t8); t10=((C_word*)t0)[3]; t11=C_a_i_record4(&a,4,lf[14],lf[144],t9,t10); t12=C_a_i_list2(&a,2,((C_word*)t0)[4],t11); t13=((C_word*)t0)[5]; t14=t13;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],t5,t12); ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k4477 in a4457 in k4447 in k4369 in walk in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_4479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,1)))){ C_save_and_reclaim((void *)f_4479,2,av);} a=C_alloc(14); 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); t5=((C_word*)t0)[3]; t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],t2,t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k6065 in k6081 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6067,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4470 in k4466 in a4457 in k4447 in k4369 in walk in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4472,2,av);} t2=C_mutate2((C_word*)lf[39]+1 /* (set! ##compiler#broken-constant-nodes ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5865 in k5850 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 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_5867,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=C_slot(t1,C_fix(1)); t3=C_eqp(lf[11],t2); if(C_truep(t3)){ t4=C_slot(t1,C_fix(2)); t5=C_i_caddr(t4); t6=t5; if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5888,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],tmp=(C_word)a,a+=7,tmp); t8=C_i_car(t6); /* optimizer.scm:339: test */ t9=((C_word*)((C_word*)t0)[5])[1]; f_4146(t9,t7,t8,lf[60]);} else{ t7=((C_word*)t0)[2]; f_5177(t7,C_SCHEME_FALSE);}} else{ t4=((C_word*)t0)[2]; f_5177(t4,C_SCHEME_FALSE);}} else{ t2=((C_word*)t0)[2]; f_5177(t2,C_SCHEME_FALSE);}} /* k4466 in a4457 in k4447 in k4369 in walk in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_4468(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_4468,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4472,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:199: lset-adjoin */ t3=*((C_word*)lf[41]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[27]+1); av2[3]=*((C_word*)lf[39]+1); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_11937,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11940,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:1688: gensym */ t4=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[195]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_11949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_11949,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11952,a[2]=((C_word*)t0)[2],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_12098,a[2]=t4,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)[6],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp)); t6=((C_word*)t4)[1]; f_12098(t6,t2,((C_word*)t0)[10]);} /* k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_10711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_10711,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_10720,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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]=t5,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_10720(t10,C_i_listp(t9));} else{ t9=t6; f_10720(t9,C_SCHEME_FALSE);}} else{ t7=t6; f_10720(t7,C_SCHEME_FALSE);}} /* k5889 in k5886 in k5865 in k5850 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_5891(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_5891,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5898,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5900,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=C_u_i_cdr(((C_word*)t0)[4]); /* optimizer.scm:343: any */ t5=*((C_word*)lf[37]+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{ t2=((C_word*)t0)[2]; f_5177(t2,C_SCHEME_FALSE);}} /* k7988 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word t4; C_word t5; C_word t6; C_word 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(33,c,1)))){ C_save_and_reclaim((void *)f_7990,2,av);} a=C_alloc(33); if(C_truep(t1)){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=C_a_i_list1(&a,1,t4); t6=C_i_cadr(((C_word*)t0)[2]); t7=C_a_i_list1(&a,1,t6); t8=((C_word*)t0)[3]; t9=C_a_i_record4(&a,4,lf[14],lf[144],t7,t8); t10=C_a_i_list1(&a,1,t9); t11=C_a_i_record4(&a,4,lf[14],lf[144],t5,t10); t12=C_a_i_list2(&a,2,((C_word*)t0)[4],t11); t13=((C_word*)t0)[5]; t14=t13;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],t2,t12); ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9841 in k9837 in k9808 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9843,2,av);} /* optimizer.scm:1314: cons* */ t2=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a9844 in k9837 in k9808 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9845,2,av);} /* optimizer.scm:1317: split-at */ t2=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_10720(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_10720,2,t0,t1);} a=C_alloc(15); if(C_truep(t1)){ t2=C_u_i_car(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10724,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); /* optimizer.scm:1467: caaddr */ t4=*((C_word*)lf[179]+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{ /* optimizer.scm:1568: bomb */ t2=*((C_word*)lf[156]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[8]; av2[2]=lf[180]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k12320 in k12316 in loop in k12276 in a12269 in k12340 in k12348 in k12352 in k12106 in descend in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in ... */ 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; 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_12322,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[14],lf[6],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5896 in k5889 in k5886 in k5865 in k5850 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_5898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5898,2,av);} t2=((C_word*)t0)[2]; f_5177(t2,C_i_not(t1));} /* k9808 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_9810,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_word*)t0)[2]; t6=C_u_i_car(t5); if(C_truep(C_i_greater_or_equalp(t4,t6))){ t7=C_i_cadr(((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_9835,a[2]=((C_word*)t0)[4],a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9839,a[2]=t10,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); t12=((C_word*)t0)[2]; t13=C_u_i_cdr(t12); t14=C_u_i_car(t13); /* optimizer.scm:1315: varnode */ t15=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t15; av2[1]=t11; av2[2]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} else{ t7=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k11192 in k11158 in k11155 in g2379 in rec in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11194,2,av);} /* optimizer.scm:1504: node-parameters-set! */ t2=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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(23,c,3)))){ C_save_and_reclaim((void *)f_10733,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10736,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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)[11]; t4=C_slot(t3,C_fix(3)); t5=C_i_car(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_11032,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[13],a[8]=t7,a[9]=((C_word*)t0)[14],tmp=(C_word)a,a+=10,tmp)); t9=((C_word*)t7)[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t2; av2[2]=t5; f_11032(3,av2);}} /* k5886 in k5865 in k5850 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_5888,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5891,a[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_5891(t3,t1);} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5925,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:340: test */ t5=((C_word*)((C_word*)t0)[6])[1]; f_4146(t5,t3,t4,lf[98]);}} /* k11904 in map-loop2745 in g2717 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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_11906,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11881(t6,((C_word*)t0)[5],t5);} /* k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_10724,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_10727,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* optimizer.scm:1468: cdaddr */ t4=*((C_word*)lf[178]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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_10727,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_10733,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:1472: node-class-set! */ t6=*((C_word*)lf[170]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[12]; av2[3]=lf[69]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k10734 in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_10736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10736,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10737,a[2]=((C_word*)t0)[2],a[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_10824,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|1,a[1]=(C_word)f_11014,tmp=(C_word)a,a+=2,tmp); /* optimizer.scm:1545: lset-difference */ t5=*((C_word*)lf[169]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)t0)[9]; av2[4]=((C_word*)((C_word*)t0)[10])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* g2451 in k10734 in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_10737(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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_10737,3,t0,t1,t2);} a=C_alloc(8); t3=C_i_cdr(t2); t4=t3; t5=C_slot(t4,C_fix(3)); t6=t5; t7=C_slot(t4,C_fix(2)); t8=C_i_cdr(t7); t9=C_i_pairp(t8); t10=(C_truep(t9)?C_i_cadr(t7):C_SCHEME_FALSE); t11=t10; t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10763,a[2]=t6,a[3]=t11,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t1,a[7]=t4,tmp=(C_word)a,a+=8,tmp); t13=C_i_cdr(t6); t14=C_i_length(t13); t15=C_eqp(((C_word*)t0)[4],t14); if(C_truep(t15)){ t16=t12;{ C_word av2[2]; av2[0]=t16; av2[1]=C_SCHEME_UNDEFINED; f_10763(2,av2);}} else{ /* optimizer.scm:1535: quit */ t16=*((C_word*)lf[167]+1);{ C_word av2[4]; av2[0]=t16; av2[1]=t12; av2[2]=lf[168]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}}} /* a12730 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_12731(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(7,c,2)))){ C_save_and_reclaim((void *)f_12731,10,av);} a=C_alloc(7); if(C_truep(*((C_word*)lf[143]+1))){ t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12751,a[2]=t6,a[3]=t7,a[4]=t8,a[5]=t1,a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:785: varnode */ t11=*((C_word*)lf[51]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t10; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* k4447 in k4369 in walk in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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(7,c,6)))){ C_save_and_reclaim((void *)f_4449,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=C_i_cddr(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4458,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); /* optimizer.scm:192: constant-form-eval */ t4=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[7]; av2[2]=((C_word*)t0)[8]; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ /* optimizer.scm:170: simplify */ t2=((C_word*)((C_word*)t0)[9])[1]; f_4223(t2,((C_word*)t0)[10],((C_word*)t0)[4]);}} /* a10443 in k10437 in k10431 in rec in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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_10444,3,av);} /* optimizer.scm:1423: rec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10223(t3,t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3]);} /* for-each-loop1365 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_7254(C_word t0,C_word t1,C_word 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_7254,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_7264,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:843: g1366 */ t5=((C_word*)t0)[3]; f_6943(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 k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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_11940,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11943,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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[35]); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12473,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_12475,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_12475(t12,t8,((C_word*)t0)[5]);} /* k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_11943,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11946,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_12444,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_12450,tmp=(C_word)a,a+=2,tmp); /* optimizer.scm:1691: list-tabulate */ t6=*((C_word*)lf[188]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=t2; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_11946(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_11946,2,av);} a=C_alloc(26); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11949,a[2]=((C_word*)t0)[2],a[3]=((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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12406,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|4,a[1]=(C_word)f_12408,a[2]=t6,a[3]=t10,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_12408(t12,t8,((C_word*)t0)[6]);} /* k10681 in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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(4,c,4)))){ C_save_and_reclaim((void *)f_10683,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10690,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1453: delete */ t3=*((C_word*)lf[166]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)((C_word*)t0)[5])[1]; av2[4]=*((C_word*)lf[27]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7239 in for-each-loop1389 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7241,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7231(t3,((C_word*)t0)[4],t2);} /* transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_10692(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_10692,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(19); t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10696,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t7,a[5]=t3,a[6]=t6,a[7]=t5,a[8]=t1,a[9]=t4,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_11418,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_11420,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1457: ##sys#make-promise */ t11=*((C_word*)lf[183]+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:1458: debugging */ t9=*((C_word*)lf[17]+1);{ C_word av2[6]; av2[0]=t9; av2[1]=t8; av2[2]=lf[18]; av2[3]=lf[184]; av2[4]=t3; av2[5]=t7; ((C_proc)(void*)(*((C_word*)t9+1)))(6,av2);}}} /* for-each-loop1389 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_7231(C_word t0,C_word t1,C_word 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_7231,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_7241,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:856: g1390 */ t5=((C_word*)t0)[3]; f_7003(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);}}} /* k10688 in k10681 in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_10690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10690,2,av);} /* optimizer.scm:1453: lset= */ t2=*((C_word*)lf[165]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[27]+1); av2[3]=((C_word*)((C_word*)t0)[3])[1]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_10696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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,4)))){ C_save_and_reclaim((void *)f_10696,2,av);} a=C_alloc(14); t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t3=((C_word*)t0)[3]; t4=C_slot(t3,C_fix(2)); t5=t4; t6=C_i_caddr(t5); t7=C_i_length(t6); t8=t7; 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|11,a[1]=(C_word)f_10711,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=t8,a[5]=((C_word*)t0)[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]=t10,a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:1463: get */ t12=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t12; av2[1]=t11; av2[2]=((C_word*)t0)[10]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[126]; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} /* k8772 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_8774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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,2)))){ C_save_and_reclaim((void *)f_8774,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_eqp(*((C_word*)lf[146]+1),t3); if(C_truep(t4)){ t5=C_i_cadddr(((C_word*)t0)[2]); t6=(C_truep(t5)?t5:*((C_word*)lf[145]+1)); if(C_truep(t6)){ t7=C_a_i_list1(&a,1,C_SCHEME_TRUE); t8=t7; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8818,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t8,tmp=(C_word)a,a+=6,tmp); if(C_truep(*((C_word*)lf[145]+1))){ t10=((C_word*)t0)[2]; t11=C_u_i_cdr(t10); t12=C_u_i_cdr(t11); t13=C_u_i_cdr(t12); t14=C_u_i_car(t13); t15=t9; f_8818(t15,C_a_i_list1(&a,1,t14));} else{ t10=((C_word*)t0)[2]; t11=C_u_i_cdr(t10); t12=C_u_i_cdr(t11); t13=C_u_i_car(t12); t14=t9; f_8818(t14,C_a_i_list1(&a,1,t13));}} else{ t7=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t5=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ 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=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* ##compiler#transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9982(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_9982,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_9985,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_10220,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_10692,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11443,a[2]=t1,a[3]=t5,a[4]=t13,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1570: debugging */ t22=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t22; av2[1]=t21; av2[2]=lf[28]; av2[3]=lf[185]; ((C_proc)(void*)(*((C_word*)t22+1)))(4,av2);}} /* k5760 in k5757 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_5762,2,av);} a=C_alloc(8); t2=C_u_i_cdr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[4],t3); /* optimizer.scm:455: walk */ t5=((C_word*)((C_word*)t0)[5])[1]; f_4357(t5,((C_word*)t0)[6],t4,((C_word*)t0)[7],((C_word*)t0)[8]);} /* walk in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_9985(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(22,0,4)))){ C_save_and_reclaim_args((void *)trf_9985,5,t0,t1,t2,t3,t4);} a=C_alloc(22); t5=t3; t6=C_slot(t5,C_fix(2)); t7=t3; t8=C_slot(t7,C_fix(3)); t9=t8; t10=t3; t11=C_slot(t10,C_fix(1)); t12=C_eqp(t11,lf[11]); if(C_truep(t12)){ t13=C_i_caddr(t6); t14=t13; t15=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10025,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]=t9,a[11]=((C_word*)t0)[6],tmp=(C_word)a,a+=12,tmp); if(C_truep(t2)){ t16=C_u_i_cdr(t6); if(C_truep(C_u_i_car(t16))){ t17=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10137,a[2]=t15,a[3]=t14,a[4]=t3,a[5]=t9,a[6]=t2,a[7]=((C_word*)t0)[7],a[8]=t4,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:1355: get */ t18=*((C_word*)lf[33]+1);{ C_word av2[5]; av2[0]=t18; av2[1]=t17; av2[2]=((C_word*)t0)[8]; av2[3]=t2; av2[4]=lf[99]; ((C_proc)(void*)(*((C_word*)t18+1)))(5,av2);}} else{ t17=t15;{ C_word av2[2]; av2[0]=t17; av2[1]=C_SCHEME_FALSE; f_10025(2,av2);}}} else{ t16=t15;{ C_word av2[2]; av2[0]=t16; av2[1]=C_SCHEME_FALSE; f_10025(2,av2);}}} else{ t13=C_eqp(t11,lf[13]); if(C_truep(t13)){ t14=C_i_car(t6); t15=C_i_car(t9); /* optimizer.scm:1369: walk */ t21=t1; t22=t14; t23=t15; t24=C_SCHEME_FALSE; t1=t21; t2=t22; t3=t23; t4=t24; goto loop;} else{ t14=C_eqp(t11,lf[6]); if(C_truep(t14)){ t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10163,a[2]=t9,a[3]=((C_word*)t0)[6],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t16=C_i_car(t6); t17=C_i_car(t9); /* optimizer.scm:1371: walk */ t21=t15; t22=t16; t23=t17; t24=t3; t1=t21; t2=t22; t3=t23; t4=t24; goto loop;} else{ t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10179,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp); t16=C_i_check_list_2(t9,lf[2]); 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_10191,a[2]=t18,a[3]=t15,tmp=(C_word)a,a+=4,tmp)); t20=((C_word*)t18)[1]; f_10191(t20,t1,t9);}}}} /* k8599 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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,c,2)))){ C_save_and_reclaim((void *)f_8601,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[145]+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]); t9=((C_word*)t0)[5]; t10=t9;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],t7,t8); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t7=((C_word*)t0)[2]; t8=C_u_i_car(t7); t9=C_a_i_list2(&a,2,C_SCHEME_TRUE,t8); t10=t9; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8657,a[2]=((C_word*)t0)[5],a[3]=t10,tmp=(C_word)a,a+=4,tmp); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8661,a[2]=t11,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t13=((C_word*)t0)[2]; t14=C_u_i_car(t13); /* optimizer.scm:1102: varnode */ t15=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t15; av2[1]=t12; av2[2]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}} else{ t6=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k10900 in for-each-loop2520 in k10848 in k10845 in k10842 in k10825 in k10822 in k10734 in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10902,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10892(t3,((C_word*)t0)[4],t2);} /* a10402 in k10396 in k10390 in rec in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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_10403,3,av);} /* optimizer.scm:1415: rec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10223(t3,t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3]);} /* a8242 in k8236 in k8227 in k8216 in k8213 in k8181 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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(14,c,1)))){ C_save_and_reclaim((void *)f_8243,5,av);} a=C_alloc(14); t5=C_a_i_list1(&a,1,t3); t6=C_a_i_list2(&a,2,t2,t4); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[14],lf[6],t5,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k8962 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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_8964,2,av);} a=C_alloc(10); t2=t1; if(C_truep(*((C_word*)lf[143]+1))){ t3=C_i_not(((C_word*)t0)[2]); t4=(C_truep(t3)?t3:C_i_nequalp(((C_word*)t0)[3],((C_word*)t0)[2])); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8987,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,a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t6=((C_word*)t0)[10]; /* tweaks.scm:51: ##sys#get */ t7=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t5=((C_word*)t0)[7];{ C_word *av2=av; /* Re-use our own argvector */ 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=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7203 in a7158 in k7096 in a7084 in k7063 in k7060 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,1)))){ C_save_and_reclaim((void *)f_7205,2,av);} a=C_alloc(25); t2=C_a_i_list1(&a,1,t1); t3=C_a_i_list1(&a,1,((C_word*)t0)[2]); t4=C_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]); t5=C_i_cdr(t4); t6=C_a_i_list1(&a,1,t5); t7=C_a_i_record4(&a,4,lf[14],lf[13],t3,t6); t8=C_a_i_list2(&a,2,t7,((C_word*)t0)[4]); t9=((C_word*)t0)[5]; t10=t9;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_a_i_record4(&a,4,lf[14],lf[6],t2,t8); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* a12019 in k11992 in g2934 in k11955 in g2920 in k11950 in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in ... */ static void C_ccall f_12020(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12020,2,av);} /* optimizer.scm:1769: qnode */ t2=*((C_word*)lf[40]+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);}} /* k12008 in k12000 in k11992 in g2934 in k11955 in g2920 in k11950 in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_12010,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:1765: append */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10431 in rec in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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_10433,2,av);} a=C_alloc(10); t2=C_i_zerop(t1); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10439,a[2]=((C_word*)t0)[2],a[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_10439(t4,t2);} else{ t4=((C_word*)((C_word*)t0)[6])[1]; if(C_truep(t4)){ t5=t3; f_10439(t5,C_SCHEME_FALSE);} else{ t5=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[7])[1],t1); t6=C_mutate2(((C_word *)((C_word*)t0)[7])+1,t5); t7=t3; f_10439(t7,C_SCHEME_TRUE);}}} /* k10437 in k10431 in rec in scan in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_10439(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_10439,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10444,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1423: every */ t3=*((C_word*)lf[43]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+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);}}} /* k12000 in k11992 in g2934 in k11955 in g2920 in k11950 in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in ... */ static void C_ccall f_12002(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_12002,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12010,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_cadr(((C_word*)t0)[4]); /* optimizer.scm:1770: qnode */ t5=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* replace-var in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_4550(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_4550,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4554,a[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:215: test */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4146(t4,t3,t2,lf[48]);} /* k8282 in k8236 in k8227 in k8216 in k8213 in k8181 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_8284,2,av);} a=C_alloc(11); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[3],t2); /* optimizer.scm:1046: fold-right */ t4=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* a8285 in k8236 in k8227 in k8216 in k8213 in k8181 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_8286(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(11,c,1)))){ C_save_and_reclaim((void *)f_8286,4,av);} a=C_alloc(11); t4=C_a_i_list2(&a,2,t2,t3); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[14],lf[144],((C_word*)t0)[2],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k4563 in k4560 in g313 in k4552 in replace-var in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4565,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8723 in k8719 in k8704 in k8689 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8725,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8719 in k8704 in k8689 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_8721(C_word 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_8721,2,t0,t1);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8725,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_list2(&a,2,((C_word*)t0)[3],C_SCHEME_TRUE); t5=C_a_i_record4(&a,4,lf[14],lf[152],t4,C_SCHEME_END_OF_LIST); /* optimizer.scm:1114: cons* */ t6=*((C_word*)lf[151]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* g313 in k4552 in replace-var in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_4558(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_4558,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4562,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:217: replace-var */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4550(t4,t3,t2);} /* k4552 in replace-var in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4554,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4558,a[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:134: g313 */ t3=t2; f_4558(t3,((C_word*)t0)[5],t1);} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8371 in map-loop1694 in k8216 in k8213 in k8181 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_8373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8373,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8348(t6,((C_word*)t0)[5],t5);} /* k12053 in for-each-loop2933 in k11955 in g2920 in k11950 in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in ... */ static void C_ccall f_12055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12055,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_12045(t3,((C_word*)t0)[4],t2);} /* k8704 in k8689 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_8706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_8706,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_8721,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); if(C_truep(C_i_pairp(((C_word*)t0)[6]))){ t5=((C_word*)t0)[6]; t6=C_u_i_cdr(t5); t7=t4; f_8721(t7,C_a_i_cons(&a,2,C_SCHEME_TRUE,t6));} else{ t5=t4; f_8721(t5,((C_word*)t0)[6]);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7447 in loop in a9850 in k9837 in k9808 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_7449(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_7449,2,t0,t1);} if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); /* optimizer.scm:930: qnode */ t3=*((C_word*)lf[40]+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:931: qnode */ t2=*((C_word*)lf[40]+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);}}} /* k5923 in k5886 in k5865 in k5850 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_5925(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5925,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_5891(t2,C_SCHEME_FALSE);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5919,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_u_i_car(((C_word*)t0)[3]); /* optimizer.scm:341: test */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4146(t4,t2,t3,lf[97]);}} /* for-each-loop2933 in k11955 in g2920 in k11950 in k11947 in k11944 in k11941 in k11938 in k11935 in k11809 in k11806 in g2693 in k11797 in k11794 in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in ... */ static void C_fcall f_12045(C_word t0,C_word t1,C_word 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_12045,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_12055,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:1755: g2934 */ t5=((C_word*)t0)[3]; f_11958(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);}}} /* k5957 in k5850 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5959,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_5867(2,av2);}} else{ /* optimizer.scm:336: test */ t2=((C_word*)((C_word*)t0)[3])[1]; f_4146(t2,((C_word*)t0)[2],((C_word*)t0)[4],lf[49]);}} /* loop1 in a12902 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_12913(C_word t0,C_word t1,C_word 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; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_12913,4,t0,t1,t2,t3);} a=C_alloc(8); t4=t3; t5=C_slot(t4,C_fix(1)); t6=t3; t7=C_slot(t6,C_fix(2)); t8=t7; t9=t3; t10=C_slot(t9,C_fix(3)); t11=t10; t12=C_eqp(t5,lf[6]); if(C_truep(t12)){ t13=C_i_cdr(t8); if(C_truep(C_i_nullp(t13))){ t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13238,a[2]=t1,a[3]=t11,a[4]=t8,a[5]=t2,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); t15=C_u_i_car(t8); /* optimizer.scm:701: get */ t16=*((C_word*)lf[33]+1);{ C_word av2[5]; av2[0]=t16; av2[1]=t14; av2[2]=((C_word*)t0)[3]; av2[3]=t15; av2[4]=lf[105]; ((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}} else{ t14=t1;{ C_word av2[2]; av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t13=t1;{ C_word av2[2]; av2[0]=t13; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}} /* g402 in k4743 in k4726 in k4723 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_4758(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_4758,3,t0,t1,t2);} /* optimizer.scm:264: g419 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4357(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k4012 in k3994 in k3991 in k3911 in scan in scan-toplevel-assignments in k3753 in k3750 in k3747 */ static void C_fcall f_4014(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_4014,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4017,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:99: debugging */ t3=*((C_word*)lf[17]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=lf[18]; av2[3]=lf[19]; 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_3999(2,av2);}}} /* k4015 in k4012 in k3994 in k3991 in k3911 in scan in scan-toplevel-assignments in k3753 in k3750 in k3747 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4017,2,av);} a=C_alloc(5); t2=C_a_i_record4(&a,4,lf[14],lf[15],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST); /* optimizer.scm:100: copy-node! */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop42 in scan-each in scan-toplevel-assignments in k3753 in k3750 in k3747 */ static void C_fcall f_3809(C_word t0,C_word t1,C_word 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_3809,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_3819,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:41: g43 */ t5=((C_word*)t0)[3]; f_3797(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);}}} /* k4743 in k4726 in k4723 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_4745(C_word t0,C_word t1){ C_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(22,0,3)))){ C_save_and_reclaim_args((void *)trf_4745,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_4758,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4765,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_4767,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_4767(t12,t8,((C_word*)t0)[6]);} /* walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_4570(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 *a; if(C_unlikely(!C_demand(C_calculate_demand(27,0,8)))){ C_save_and_reclaim_args((void *)trf_4570,5,t0,t1,t2,t3,t4);} a=C_alloc(27); t5=t2; t6=C_slot(t5,C_fix(3)); t7=t6; t8=t2; t9=C_slot(t8,C_fix(2)); t10=t9; t11=t2; t12=C_slot(t11,C_fix(1)); t13=t12; t14=C_eqp(t13,lf[3]); if(C_truep(t14)){ t15=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4604,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t10,a[6]=t4,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); t16=C_i_car(t10); /* optimizer.scm:230: replace-var */ t17=((C_word*)((C_word*)t0)[5])[1]; f_4550(t17,t15,t16);} else{ t15=C_eqp(t13,lf[6]); if(C_truep(t15)){ t16=C_i_car(t10); t17=t16; t18=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4725,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[6],a[4]=t7,a[5]=((C_word*)t0)[7],a[6]=t1,a[7]=t3,a[8]=t4,a[9]=t10,a[10]=t17,a[11]=((C_word*)t0)[3],tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:251: test */ t19=((C_word*)((C_word*)t0)[3])[1]; f_4146(t19,t18,t17,lf[59]);} else{ t16=C_eqp(t13,lf[11]); if(C_truep(t16)){ t17=C_i_caddr(t10); t18=t17; t19=C_u_i_car(t10); t20=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_4883,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t10,a[5]=t7,a[6]=t19,a[7]=t3,a[8]=((C_word*)t0)[7],a[9]=t1,a[10]=t18,a[11]=((C_word*)t0)[8],a[12]=t2,a[13]=t13,tmp=(C_word)a,a+=14,tmp); /* optimizer.scm:269: test */ t21=((C_word*)((C_word*)t0)[3])[1]; f_4146(t21,t20,t19,lf[68]);} else{ t17=C_eqp(t13,lf[69]); if(C_truep(t17)){ /* optimizer.scm:302: walk-generic */ t18=((C_word*)((C_word*)t0)[8])[1]; f_6352(t18,t1,t2,t13,t10,t7,t3,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} else{ t18=C_eqp(t13,lf[12]); if(C_truep(t18)){ t19=C_i_car(t7); t20=t19; t21=C_slot(t20,C_fix(1)); t22=C_eqp(t21,lf[3]); if(C_truep(t22)){ t23=C_slot(t20,C_fix(2)); t24=C_i_car(t23); t25=t24; t26=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_5087,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[9],a[5]=t3,a[6]=((C_word*)t0)[7],a[7]=t1,a[8]=t4,a[9]=t25,a[10]=((C_word*)t0)[8],a[11]=t2,a[12]=t13,a[13]=t10,a[14]=t20,a[15]=((C_word*)t0)[10],a[16]=((C_word*)t0)[3],a[17]=((C_word*)t0)[11],tmp=(C_word)a,a+=18,tmp); /* optimizer.scm:311: call-info */ t27=*((C_word*)lf[102]+1);{ C_word av2[4]; av2[0]=t27; av2[1]=t26; av2[2]=t10; av2[3]=t25; ((C_proc)(void*)(*((C_word*)t27+1)))(4,av2);}} else{ t23=C_eqp(t21,lf[11]); if(C_truep(t23)){ if(C_truep(C_i_car(t10))){ /* optimizer.scm:464: walk-generic */ t24=((C_word*)((C_word*)t0)[8])[1]; f_6352(t24,t1,t2,t13,t10,t7,t3,t4,C_SCHEME_FALSE);} else{ t24=C_u_i_cdr(t10); t25=C_a_i_cons(&a,2,C_SCHEME_TRUE,t24); t26=t25; t27=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t28=t27; t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp); t30=((C_word*)t29)[1]; t31=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6076,a[2]=((C_word*)t0)[7],a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t32=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6083,a[2]=t26,a[3]=t1,a[4]=((C_word*)t0)[10],a[5]=t4,tmp=(C_word)a,a+=6,tmp); t33=C_SCHEME_UNDEFINED; t34=(*a=C_VECTOR_TYPE|1,a[1]=t33,tmp=(C_word)a,a+=2,tmp); t35=C_set_block_item(t34,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6085,a[2]=t29,a[3]=t34,a[4]=t31,a[5]=t30,tmp=(C_word)a,a+=6,tmp)); t36=((C_word*)t34)[1]; f_6085(t36,t32,t7);}} else{ /* optimizer.scm:469: walk-generic */ t24=((C_word*)((C_word*)t0)[8])[1]; f_6352(t24,t1,t2,t13,t10,t7,t3,t4,C_SCHEME_TRUE);}}} else{ t19=C_eqp(t13,lf[13]); if(C_truep(t19)){ t20=C_i_car(t10); t21=t20; t22=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6141,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t21,a[5]=((C_word*)t0)[3],a[6]=t10,a[7]=t4,a[8]=t7,a[9]=((C_word*)t0)[7],a[10]=t3,a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:473: test */ t23=((C_word*)((C_word*)t0)[3])[1]; f_4146(t23,t22,t21,lf[58]);} else{ /* optimizer.scm:502: walk-generic */ t20=((C_word*)((C_word*)t0)[8])[1]; f_6352(t20,t1,t2,t13,t10,t7,t3,t4,C_SCHEME_FALSE);}}}}}}} /* k4000 in k3997 in k3994 in k3991 in k3911 in scan in scan-toplevel-assignments in k3753 in k3750 in k3747 */ static void C_ccall f_4002(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4002,2,av);} /* optimizer.scm:104: remember */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3783(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* k3817 in for-each-loop42 in scan-each in scan-toplevel-assignments in k3753 in k3750 in k3747 */ static void C_ccall f_3819(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3819,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3809(t3,((C_word*)t0)[4],t2);} /* k7482 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t5; C_word t6; C_word t7; C_word t8; C_word 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,2)))){ C_save_and_reclaim((void *)f_7484,2,av);} a=C_alloc(14); if(C_truep(t1)){ t2=(*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]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_length(((C_word*)t0)[4]); t4=C_i_car(((C_word*)t0)[3]); if(C_truep(C_i_nequalp(t3,t4))){ t5=C_i_car(((C_word*)t0)[4]); t6=C_i_cadr(((C_word*)t0)[4]); t7=C_slot(t5,C_fix(1)); t8=C_eqp(lf[3],t7); if(C_truep(t8)){ t9=C_slot(t6,C_fix(1)); t10=C_eqp(lf[3],t9); if(C_truep(t10)){ t11=C_slot(t5,C_fix(2)); t12=C_slot(t6,C_fix(2)); if(C_truep(C_i_equalp(t11,t12))){ t13=C_a_i_list1(&a,1,C_SCHEME_TRUE); t14=t13; t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7573,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t14,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:945: qnode */ t16=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t16; av2[1]=t15; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}} else{ t13=t2; f_7487(t13,C_SCHEME_FALSE);}} else{ t11=t2; f_7487(t11,C_SCHEME_FALSE);}} else{ t9=t2; f_7487(t9,C_SCHEME_FALSE);}} else{ t5=t2; f_7487(t5,C_SCHEME_FALSE);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k4560 in g313 in k4552 in replace-var in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_4562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4562,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4565,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:219: put! */ t4=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[48]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k7485 in k7482 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_7487(C_word t0,C_word t1){ C_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(22,0,1)))){ C_save_and_reclaim_args((void *)trf_7487,2,t0,t1);} a=C_alloc(22); 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{ if(C_truep(*((C_word*)lf[143]+1))){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=C_i_cadr(((C_word*)t0)[3]); t4=C_a_i_list1(&a,1,t3); t5=((C_word*)t0)[4]; t6=C_a_i_record4(&a,4,lf[14],lf[144],t4,t5); t7=C_a_i_list2(&a,2,((C_word*)t0)[5],t6); t8=((C_word*)t0)[2]; t9=t8;{ C_word av2[2]; av2[0]=t9; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],t2,t7); ((C_proc)(void*)(*((C_word*)t9+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);}}}} /* a12813 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_12814(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(8,c,4)))){ C_save_and_reclaim((void *)f_12814,9,av);} a=C_alloc(8); if(C_truep(C_i_equalp(t4,*((C_word*)lf[217]+1)))){ t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12861,a[2]=t4,a[3]=t5,a[4]=t7,a[5]=t8,a[6]=t1,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:762: get-list */ t10=*((C_word*)lf[124]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=t2; av2[3]=t3; av2[4]=lf[98]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}} /* k4723 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_4725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4725,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4728,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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_4728(t3,t1);} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4860,a[2]=t2,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:252: test */ t4=((C_word*)((C_word*)t0)[11])[1]; f_4146(t4,t3,((C_word*)t0)[10],lf[58]);}} /* k4726 in k4723 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_4728(C_word t0,C_word t1){ C_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(13,0,4)))){ C_save_and_reclaim_args((void *)trf_4728,2,t0,t1);} a=C_alloc(13); if(C_truep(t1)){ t2=( /* optimizer.scm:254: touch */ f_4182(((C_word*)((C_word*)t0)[2])[1]) ); t3=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[3])[1],C_fix(1)); t4=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t3); t5=C_i_cadr(((C_word*)t0)[4]); /* optimizer.scm:256: walk */ t6=((C_word*)((C_word*)t0)[5])[1]; f_4357(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_4745,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4802,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp); t4=C_i_car(((C_word*)t0)[4]); t5=C_slot(t4,C_fix(1)); t6=C_eqp(lf[3],t5); if(C_truep(t6)){ t7=C_u_i_car(((C_word*)t0)[4]); t8=C_slot(t7,C_fix(2)); t9=C_i_car(t8); /* optimizer.scm:259: test */ t10=((C_word*)((C_word*)t0)[11])[1]; f_4146(t10,t3,t9,lf[56]);} else{ t7=t3;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_FALSE; f_4802(2,av2);}}}} /* k3747 */ 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,2)))){ 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_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k4134 in k4073 in k4070 in scan-toplevel-assignments in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4136,2,av);} /* optimizer.scm:111: debugging */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[18]; av2[3]=lf[25]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5899 in k5889 in k5886 in k5865 in k5850 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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=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_5900,3,av);} t3=*((C_word*)lf[85]+1); /* optimizer.scm:343: g561 */ t4=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* scan in scan-toplevel-assignments in k3753 in k3750 in k3747 */ static void C_fcall f_3832(C_word t0,C_word t1,C_word 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; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_3832,4,t0,t1,t2,t3);} a=C_alloc(15); t4=t2; t5=C_slot(t4,C_fix(2)); t6=t5; t7=t2; t8=C_slot(t7,C_fix(3)); t9=t8; t10=t2; t11=C_slot(t10,C_fix(1)); t12=t11; t13=C_eqp(t12,lf[3]); if(C_truep(t13)){ t14=C_i_car(t6); t15=t14; t16=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3869,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t15,tmp=(C_word)a,a+=5,tmp); t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3886,a[2]=t15,a[3]=((C_word*)t0)[3],a[4]=t16,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_memq(t15,t3))){ t18=t17; f_3886(t18,C_SCHEME_FALSE);} else{ t18=C_i_memq(t15,((C_word*)((C_word*)t0)[3])[1]); t19=t17; f_3886(t19,C_i_not(t18));}} else{ t14=C_eqp(t12,lf[5]); t15=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_3913,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t9,a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=t3,a[8]=t12,a[9]=t6,a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],a[12]=t2,a[13]=((C_word*)t0)[8],a[14]=((C_word*)t0)[3],tmp=(C_word)a,a+=15,tmp); if(C_truep(t14)){ t16=t15; f_3913(t16,t14);} else{ t16=C_eqp(t12,lf[21]); t17=t15; f_3913(t17,(C_truep(t16)?t16:C_eqp(t12,lf[22])));}}} /* k9433 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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_9435,2,av);} a=C_alloc(19); if(C_truep(t1)){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=C_i_cadr(((C_word*)t0)[2]); t5=C_a_i_list1(&a,1,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9468,a[2]=t6,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9470,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9480,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1242: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t7; av2[2]=t8; av2[3]=t9; C_call_with_values(4,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7031 in a7019 in k7008 in g1390 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7033,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* ##compiler#scan-toplevel-assignments in k3753 in k3750 in k3747 */ 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=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(48,c,4)))){ C_save_and_reclaim((void *)f_3757,3,av);} a=C_alloc(48); 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_3760,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_3783,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_3790,a[2]=t8,a[3]=t10,tmp=(C_word)a,a+=4,tmp)); t24=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3795,a[2]=t20,tmp=(C_word)a,a+=3,tmp)); t25=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3832,a[2]=t10,a[3]=t6,a[4]=t16,a[5]=t20,a[6]=t18,a[7]=t14,a[8]=t12,tmp=(C_word)a,a+=9,tmp)); t26=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4072,a[2]=t4,a[3]=t1,a[4]=t20,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:108: debugging */ t27=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t27; av2[1]=t26; av2[2]=lf[28]; av2[3]=lf[29]; ((C_proc)(void*)(*((C_word*)t27+1)))(4,av2);}} /* k3753 in k3750 in k3747 */ 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(5,c,3)))){ C_save_and_reclaim((void *)f_3755,2,av);} a=C_alloc(5); t2=C_mutate2((C_word*)lf[0]+1 /* (set! ##compiler#scan-toplevel-assignments ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3757,tmp=(C_word)a,a+=2,tmp)); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4140,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:131: make-vector */ t4=*((C_word*)lf[198]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3750 in k3747 */ 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,2)))){ 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_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* a7019 in k7008 in g1390 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_7020(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,4)))){ C_save_and_reclaim((void *)f_7020,3,av);} a=C_alloc(4); t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7033,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=C_i_cdr(t2); /* optimizer.scm:868: lset<= */ t6=*((C_word*)lf[133]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t4; av2[2]=*((C_word*)lf[27]+1); av2[3]=t5; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* a12594 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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 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_12595,9,av);} a=C_alloc(9); t9=C_i_assoc(t4,*((C_word*)lf[207]+1)); t10=t9; if(C_truep(t10)){ if(C_truep(C_i_listp(t6))){ t11=C_i_length(t6); if(C_truep(C_i_lessp(t11,*((C_word*)lf[208]+1)))){ t12=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12617,a[2]=t10,a[3]=t7,a[4]=t8,a[5]=t3,a[6]=t5,a[7]=t1,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:800: gensym */ t13=*((C_word*)lf[83]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} else{ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} else{ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} /* k4113 in for-each-loop110 in k4076 in k4073 in k4070 in scan-toplevel-assignments in k3753 in k3750 in k3747 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_4115,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4105(t3,((C_word*)t0)[4],t2);} /* k7008 in g1390 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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_7010,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7018,a[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_7020,a[2]=((C_word*)t0)[5],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:867: filter-map */ t5=*((C_word*)lf[134]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)((C_word*)t0)[6])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7016 in k7008 in g1390 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_7018,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[2],t1),((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5544 in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_5546(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_5546,2,t0,t1);} a=C_alloc(15); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|14,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],tmp=(C_word)a,a+=15,tmp); /* optimizer.scm:425: llist-length */ t3=*((C_word*)lf[91]+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:448: walk-generic */ t2=((C_word*)((C_word*)t0)[3])[1]; f_6352(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);}} /* k5547 in k5544 in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,8)))){ C_save_and_reclaim((void *)f_5549,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:427: walk-generic */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6352(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_5561,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],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)[4],tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:429: debugging */ t5=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=lf[18]; av2[3]=lf[90]; av2[4]=((C_word*)t0)[14]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}} /* k13584 in loop in k13569 in a13562 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13586,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13590,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:611: g1067 */ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( /* optimizer.scm:611: g1067 */ f_13590(C_a_i(&a,10),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:621: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_13576(t4,((C_word*)t0)[3],t3);}} /* for-each-loop110 in k4076 in k4073 in k4070 in scan-toplevel-assignments in k3753 in k3750 in k3747 */ static void C_fcall f_4105(C_word t0,C_word 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_4105,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_4115,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_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t5))){ /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[23]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[24]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_i_car(t5); /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[23]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=lf[24]; 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);}}} /* k3867 in scan in scan-toplevel-assignments in k3753 in k3750 in k3747 */ static void C_fcall f_3869(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_3869,2,t0,t1);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3873,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_3875,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:72: remove */ t4=*((C_word*)lf[4]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* g1390 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_7003(C_word t0,C_word t1,C_word t2){ C_word 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_7003,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_7010,a[2]=t4,a[3]=((C_word*)t0)[2],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_7044,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:861: append-map */ t9=*((C_word*)lf[135]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t5; av2[2]=t6; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_7002(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_7002,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_7003,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[2]); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7062,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_7231,a[2]=t9,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_7231(t11,t7,t5);} /* a12654 in k12615 in a12594 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_12655(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,2)))){ C_save_and_reclaim((void *)f_12655,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12689,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:814: varnode */ t5=*((C_word*)lf[51]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k12651 in k12615 in a12594 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 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,1)))){ C_save_and_reclaim((void *)f_12653,2,av);} a=C_alloc(25); t2=C_a_i_list3(&a,3,t1,((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4]; t4=C_a_i_record4(&a,4,lf[14],lf[5],t3,t2); t5=C_a_i_list2(&a,2,((C_word*)t0)[5],t4); t6=((C_word*)t0)[6]; t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[14],lf[6],((C_word*)t0)[7],t5); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* g1067 in k13584 in loop in k13569 in a13562 in k4138 in k3753 in k3750 in k3747 */ static C_word C_fcall f_13590(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_stack_overflow_check;{} t2=C_i_assq(((C_word*)t0)[2],*((C_word*)lf[31]+1)); if(C_truep(t2)){ t3=C_i_cdr(t2); t4=C_a_i_plus(&a,2,t3,C_fix(1)); t5=C_i_set_cdr(t2,t4); return(t1);} else{ t3=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[2],C_fix(1)),*((C_word*)lf[31]+1)); t4=C_mutate2((C_word*)lf[31]+1 /* (set! ##compiler#simplified-ops ...) */,t3); return(t1);}} /* k3871 in k3867 in scan in scan-toplevel-assignments in k3753 in k3750 in k3747 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3873,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a3874 in k3867 in scan in scan-toplevel-assignments in k3753 in k3750 in k3747 */ 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=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_3875,3,av);} t3=C_i_car(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_eqp(t3,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a5565 in k5559 in k5547 in k5544 in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5566,2,av);} /* optimizer.scm:430: split-at */ t2=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5559 in k5547 in k5544 in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_5561,2,av);} a=C_alloc(13); 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|8,a[1]=(C_word)f_5572,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:430: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a13562 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_13563(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(8,c,3)))){ C_save_and_reclaim((void *)f_13563,7,av);} a=C_alloc(8); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13571,a[2]=t3,a[3]=t2,a[4]=t6,a[5]=t4,a[6]=t5,a[7]=t1,tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:612: ##sys#hash-table-ref */ t8=*((C_word*)lf[38]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=*((C_word*)lf[140]+1); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* constant-node? in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_4152(C_word c,C_word *av){ C_word tmp; C_word 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_4152,3,av);} t3=C_slot(t2,C_fix(1)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_eqp(lf[34],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7075 in k7066 in k7063 in k7060 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_7077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7077,2,av);} /* optimizer.scm:906: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3884 in scan in scan-toplevel-assignments in k3753 in k3750 in k3747 */ static void C_fcall f_3886(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_3886,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_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); t4=((C_word*)t0)[4]; f_3869(t4,t3);} else{ t2=((C_word*)t0)[4]; f_3869(t2,C_SCHEME_UNDEFINED);}} /* k7063 in k7060 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_7065,2,av);} a=C_alloc(12); 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_7068,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7085,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); /* optimizer.scm:879: fold */ t6=*((C_word*)lf[138]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=((C_word*)t0)[6]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* loop in k13569 in a13562 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_13576(C_word t0,C_word t1,C_word 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,8)))){ C_save_and_reclaim_args((void *)trf_13576,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{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13586,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); /* optimizer.scm:614: simplify-named-call */ t8=*((C_word*)lf[142]+1);{ C_word av2[9]; av2[0]=t8; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[2]; av2[5]=((C_word*)t0)[6]; av2[6]=t4; av2[7]=t7; av2[8]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t8+1)))(9,av2);}}} /* k7060 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_7062,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7065,a[2]=((C_word*)t0)[2],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:874: topological-sort */ t3=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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[27]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4511 in k4505 in k4369 in walk in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_4513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_4513,2,av);} if(C_truep(t1)){ t2=C_i_cddr(((C_word*)t0)[2]); /* optimizer.scm:191: every */ t3=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_4449(2,av2);}}} /* k13569 in a13562 in k4138 in k3753 in k3750 in k3747 */ 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 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_13571,2,av);} a=C_alloc(10); 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|7,a[1]=(C_word)f_13576,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],tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_13576(t6,((C_word*)t0)[7],t2);} /* k4138 in k3753 in k3750 in k3747 */ 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 t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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,7)))){ C_save_and_reclaim((void *)f_4140,2,av);} a=C_alloc(53); t2=C_mutate2((C_word*)lf[30]+1 /* (set! ##compiler#simplifications ...) */,t1); t3=C_set_block_item(lf[31] /* ##compiler#simplified-ops */,0,C_SCHEME_END_OF_LIST); t4=C_mutate2((C_word*)lf[32]+1 /* (set! ##compiler#perform-high-level-optimizations ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4143,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate2((C_word*)lf[119]+1 /* (set! ##compiler#perform-pre-optimization! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6537,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate2((C_word*)lf[128]+1 /* (set! register-simplifications ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6857,tmp=(C_word)a,a+=2,tmp)); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6864,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=C_a_i_list(&a,1,lf[193]); t9=C_a_i_list(&a,2,lf[3],t8); t10=C_a_i_cons(&a,2,lf[227],lf[228]); t11=C_a_i_cons(&a,2,t9,t10); t12=C_a_i_cons(&a,2,lf[223],t11); t13=C_a_i_cons(&a,2,lf[12],t12); t14=C_a_i_list(&a,4,lf[193],lf[227],lf[228],lf[223]); t15=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13563,tmp=(C_word)a,a+=2,tmp); t16=C_a_i_list(&a,3,t13,t14,t15); /* optimizer.scm:606: register-simplifications */ t17=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t17; av2[1]=t7; av2[2]=lf[12]; av2[3]=t16; ((C_proc)(void*)(*((C_word*)t17+1)))(4,av2);}} /* k7066 in k7063 in k7060 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_7068,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_7077,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:905: debugging */ t4=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[18]; av2[3]=lf[136]; av2[4]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ /* optimizer.scm:907: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k5850 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 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_5852,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_slot(t2,C_fix(1)); t4=C_eqp(lf[3],t3); if(C_truep(t4)){ t5=C_u_i_car(((C_word*)t0)[2]); t6=C_slot(t5,C_fix(2)); t7=C_i_car(t6); t8=t7; if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5867,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); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5959,a[2]=t9,a[3]=((C_word*)t0)[5],a[4]=t8,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:335: test */ t11=((C_word*)((C_word*)t0)[5])[1]; f_4146(t11,t10,t8,lf[99]);} else{ t9=((C_word*)t0)[3]; f_5177(t9,C_SCHEME_FALSE);}} else{ t5=((C_word*)t0)[3]; f_5177(t5,C_SCHEME_FALSE);}} else{ t2=((C_word*)t0)[3]; f_5177(t2,C_SCHEME_FALSE);}} /* k7412 in k7397 in argc-ok? in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_7414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7414,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* optimizer.scm:926: argc-ok? */ t4=((C_word*)((C_word*)t0)[3])[1]; f_7389(t4,((C_word*)t0)[4],t3);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k4505 in k4369 in walk in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4507,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4513,a[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:190: foldable? */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_4449(2,av2);}}} /* a7049 in a7043 in g1390 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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_7050,3,av);} /* optimizer.scm:862: find-path */ t3=((C_word*)t0)[2]; f_6887(t3,t1,((C_word*)t0)[3],t2);} /* k5586 in k5601 in k5639 in a5571 in k5559 in k5547 in k5544 in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5588,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a7043 in g1390 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_7044(C_word c,C_word *av){ C_word tmp; C_word 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_7044,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7050,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:862: filter */ t4=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a5571 in k5559 in k5547 in k5544 in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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=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(43,c,3)))){ C_save_and_reclaim((void *)f_5572,4,av);} a=C_alloc(43); 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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5593,a[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=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5641,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=t1,a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[4],a[8]=t7,a[9]=t9,a[10]=t8,tmp=(C_word)a,a+=11,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5649,a[2]=t10,a[3]=t4,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ /* optimizer.scm:440: qnode */ t12=*((C_word*)lf[40]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t11; av2[2]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t12=C_i_length(t3); t13=C_a_i_times(&a,2,C_fix(3),t12); t14=C_a_i_list2(&a,2,lf[88],t13); t15=C_a_i_record4(&a,4,lf[14],lf[89],t14,t3); t16=C_a_i_list1(&a,1,t15); /* optimizer.scm:436: append */ t17=*((C_word*)lf[7]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t17; av2[1]=t10; av2[2]=t4; av2[3]=t16; ((C_proc)(void*)(*((C_word*)t17+1)))(4,av2);}}} /* k12615 in a12594 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_12617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_12617,2,av);} a=C_alloc(23); 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|7,a[1]=(C_word)f_12653,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]=t7,tmp=(C_word)a,a+=8,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12655,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12697,a[2]=t8,a[3]=t9,a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:817: qnode */ t11=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k5917 in k5923 in k5886 in k5865 in k5850 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5919,2,av);} t2=((C_word*)t0)[2]; f_5891(t2,C_i_not(t1));} /* a11013 in k10734 in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_11014(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_11014,4,av);} t4=C_i_cdr(t2); t5=C_i_cdr(t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_eqp(t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k6014 in k5984 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6016,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_5097(t2,C_SCHEME_FALSE);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5999,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_car(t3); /* optimizer.scm:319: test */ t5=((C_word*)((C_word*)t0)[4])[1]; f_4146(t5,t2,t4,lf[70]);}} /* g741 in a5571 in k5559 in k5547 in k5544 in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_5593(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_5593,3,t0,t1,t2);} /* optimizer.scm:434: g758 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4357(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k10999 in for-each-loop2450 in k10822 in k10734 in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_11001(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11001,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10991(t3,((C_word*)t0)[4],t2);} /* k6030 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6032,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_5090(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6022,a[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:313: test */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4146(t3,t2,((C_word*)t0)[4],lf[49]);}} /* k10118 in k10065 in k10059 in k10053 in k10135 in walk in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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(3,c,6)))){ C_save_and_reclaim((void *)f_10120,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_10025(2,av2);}} else{ t2=C_i_length(((C_word*)t0)[3]); t3=C_i_length(((C_word*)t0)[4]); t4=C_eqp(t2,t3); if(C_truep(t4)){ t5=C_i_car(((C_word*)t0)[5]); t6=C_i_car(((C_word*)t0)[6]); t7=C_a_i_cons(&a,2,((C_word*)t0)[7],((C_word*)t0)[6]); /* optimizer.scm:1366: scan */ t8=((C_word*)((C_word*)t0)[8])[1]; f_10220(t8,((C_word*)t0)[2],t5,t6,((C_word*)t0)[7],((C_word*)t0)[9],t7);} else{ t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_10025(2,av2);}}}} /* k6020 in k6030 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6022,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_5090(2,av2);}} else{ /* optimizer.scm:314: test */ t2=((C_word*)((C_word*)t0)[3])[1]; f_4146(t2,((C_word*)t0)[2],((C_word*)t0)[4],lf[101]);}} /* k10135 in walk in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_10137,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_10025(2,av2);}} else{ if(C_truep(C_i_listp(((C_word*)t0)[3]))){ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10055,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],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],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:1357: get */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[6]; av2[4]=lf[49]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_10025(2,av2);}}}} /* k4388 in k4369 in walk in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_4390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4390,2,av);} /* optimizer.scm:170: simplify */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4223(t2,((C_word*)t0)[3],t1);} /* k11352 in for-each-loop2429 in rec in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11354,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_11344(t3,((C_word*)t0)[4],t2);} /* g1326 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_6930(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_6930,4,t0,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6939,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:839: scan-used-variables */ t5=*((C_word*)lf[131]+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);}} /* k6937 in g1326 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_6939,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,C_a_i_cons(&a,2,((C_word*)t0)[2],t1),((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* rec in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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(14,c,3)))){ C_save_and_reclaim((void *)f_11032,3,av);} a=C_alloc(14); t3=t2; t4=C_slot(t3,C_fix(2)); t5=t2; t6=C_slot(t5,C_fix(3)); t7=t6; t8=t2; t9=C_slot(t8,C_fix(1)); t10=C_eqp(t9,lf[12]); if(C_truep(t10)){ t11=C_i_car(t7); t12=C_i_cadr(t7); t13=C_slot(t11,C_fix(2)); t14=C_slot(t12,C_fix(2)); t15=C_slot(t11,C_fix(1)); t16=C_eqp(lf[3],t15); if(C_truep(t16)){ t17=C_i_car(t13); t18=C_eqp(((C_word*)t0)[2],t17); if(C_truep(t18)){ t19=C_a_i_cons(&a,2,C_a_i_cons(&a,2,C_SCHEME_FALSE,t2),((C_word*)((C_word*)t0)[3])[1]); t20=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t19); t21=C_i_car(t14); t22=C_eqp(((C_word*)t0)[4],t21); if(C_truep(t22)){ t23=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11110,a[2]=t7,a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t24=C_u_i_cdr(t7); t25=C_i_length(t24); t26=C_eqp(((C_word*)t0)[6],t25); if(C_truep(t26)){ t27=t23;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t27; av2[1]=C_SCHEME_UNDEFINED; f_11110(2,av2);}} else{ /* optimizer.scm:1489: quit */ t27=*((C_word*)lf[167]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t27; av2[1]=t23; av2[2]=lf[172]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t27+1)))(4,av2);}}} else{ t23=C_u_i_car(t14); t24=C_i_assq(t23,((C_word*)((C_word*)t0)[7])[1]); if(C_truep(t24)){ t25=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11147,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[5],a[4]=t7,a[5]=t2,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:1487: g2379 */ t26=t25; f_11147(t26,t1,t24);} else{ /* optimizer.scm:1509: bomb */ t25=*((C_word*)lf[156]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t25; av2[1]=t1; av2[2]=lf[175]; av2[3]=t14; ((C_proc)(void*)(*((C_word*)t25+1)))(4,av2);}}}} else{ t19=C_u_i_car(t13); t20=C_eqp(((C_word*)t0)[4],t19); if(C_truep(t20)){ t21=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11252,a[2]=t7,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1511: node-class-set! */ t22=*((C_word*)lf[170]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t22; av2[1]=t21; av2[2]=t2; av2[3]=lf[176]; ((C_proc)(void*)(*((C_word*)t22+1)))(4,av2);}} else{ /* optimizer.scm:1514: bomb */ t21=*((C_word*)lf[156]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t21; av2[1]=t1; av2[2]=lf[177]; ((C_proc)(void*)(*((C_word*)t21+1)))(3,av2);}}}} else{ t17=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t17; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}} else{ t11=C_eqp(t9,lf[6]); if(C_truep(t11)){ t12=C_i_car(t4); t13=C_i_car(t7); if(C_truep(C_i_memq(t12,((C_word*)t0)[9]))){ t14=C_a_i_cons(&a,2,C_a_i_cons(&a,2,t12,t13),((C_word*)((C_word*)t0)[7])[1]); t15=C_mutate2(((C_word *)((C_word*)t0)[7])+1,t14); t16=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11303,a[2]=((C_word*)t0)[8],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t17=C_i_cadr(t7); /* optimizer.scm:1520: copy-node! */ t18=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t18; av2[1]=t16; av2[2]=t17; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}} else{ t14=((C_word*)((C_word*)t0)[8])[1]; 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_11315,a[2]=t16,a[3]=t14,tmp=(C_word)a,a+=4,tmp)); t18=((C_word*)t16)[1]; f_11315(t18,t1,t7);}} else{ t12=((C_word*)((C_word*)t0)[8])[1]; t13=C_i_check_list_2(t7,lf[2]); 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_11344,a[2]=t15,a[3]=t12,tmp=(C_word)a,a+=4,tmp)); t17=((C_word*)t15)[1]; f_11344(t17,t1,t7);}}} /* for-each-loop2429 in rec in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_11344,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_11354,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:1524: g2430 */ 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);}}} /* k10161 in walk in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10163,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* optimizer.scm:1372: walk */ t3=((C_word*)((C_word*)t0)[3])[1]; f_9985(t3,((C_word*)t0)[4],C_SCHEME_FALSE,t2,C_SCHEME_FALSE);} /* a6916 in find in find-path in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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_6917,3,av);} /* optimizer.scm:835: find */ t3=((C_word*)((C_word*)t0)[2])[1]; f_6893(t3,t1,t2,((C_word*)t0)[3]);} /* k11323 in for-each-loop2412 in rec in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11325,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_11315(t3,((C_word*)t0)[4],t2);} /* g676 in loop in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_5378(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_5378,3,t0,t1,t2);} /* optimizer.scm:401: g693 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4357(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* for-each-loop2412 in rec in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_11315(C_word t0,C_word t1,C_word 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_11315,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_11325,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:1522: g2413 */ 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);}}} /* loop in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_5361(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(20,0,3)))){ C_save_and_reclaim_args((void *)trf_5361,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(20); t6=C_i_nullp(t2); t7=(C_truep(t6)?t6:C_i_zerop(t3)); if(C_truep(t7)){ t8=( /* optimizer.scm:399: touch */ f_4182(((C_word*)((C_word*)t0)[2])[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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5378,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); t14=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5437,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[5],a[7]=t11,a[8]=t13,a[9]=t12,tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:404: append-reverse */ t15=*((C_word*)lf[82]+1);{ C_word av2[4]; av2[0]=t15; av2[1]=t14; av2[2]=t5; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5443,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=((C_word*)t0)[9],a[8]=t5,a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],tmp=(C_word)a,a+=14,tmp); t9=C_i_car(t2); /* optimizer.scm:407: test */ t10=((C_word*)((C_word*)t0)[12])[1]; f_4146(t10,t8,t9,lf[60]);}} /* k11301 in rec in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11303,2,av);} /* optimizer.scm:1521: rec */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; f_11032(3,av2);}} /* k8655 in k8599 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8657,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a10914 in k10842 in k10825 in k10822 in k10734 in k10731 in k10725 in k10722 in k10718 in k10709 in k10694 in transform in transform-direct-lambdas! in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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,1)))){ C_save_and_reclaim((void *)f_10915,4,av);} a=C_alloc(19); t4=C_i_car(t2); t5=C_a_i_list1(&a,1,t4); t6=t2; t7=C_u_i_cdr(t6); t8=C_slot(t7,C_fix(3)); t9=C_i_car(t8); t10=C_slot(t9,C_fix(1)); t11=C_slot(t9,C_fix(2)); t12=C_slot(t9,C_fix(3)); t13=C_a_i_record4(&a,4,lf[14],t10,t11,t12); t14=C_a_i_list2(&a,2,t13,t3); t15=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=C_a_i_record4(&a,4,lf[14],lf[6],t5,t14); ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} /* for-each-loop618 in k5250 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_5312(C_word t0,C_word t1,C_word 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_5312,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_5322,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:377: g619 */ t5=((C_word*)t0)[3]; f_5253(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);}}} /* k8659 in k8599 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_8661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8661,2,av);} /* optimizer.scm:1102: cons* */ t2=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9276 in k9250 in k9241 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_9278,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5386 in k5435 in loop in k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5388,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5391,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:405: invalidate-gae! */ f_4186(t3,((C_word*)t0)[5]);} /* k11630 in k11555 in walk in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_11632(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_11632,2,t0,t1);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11640,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1631: get */ t4=*((C_word*)lf[33]+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[126]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* a4457 in k4447 in k4369 in walk in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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=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(4,c,2)))){ C_save_and_reclaim((void *)f_4458,6,av);} a=C_alloc(4); if(C_truep(t2)){ t6=( /* optimizer.scm:202: touch */ f_4182(((C_word*)((C_word*)t0)[2])[1]) ); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4479,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:204: qnode */ t8=*((C_word*)lf[40]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4468,a[2]=t1,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[5])){ t7=t6; f_4468(t7,C_SCHEME_UNDEFINED);} else{ t7=C_set_block_item(((C_word*)t0)[6],0,C_SCHEME_FALSE); t8=t6; f_4468(t8,t7);}}} /* k5320 in for-each-loop618 in k5250 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_5322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5322,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5312(t3,((C_word*)t0)[4],t2);} /* k11617 in k11555 in walk in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_11619(C_word 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_11619,2,t0,t1);} if(C_truep(t1)){ if(C_truep(C_i_memq(((C_word*)t0)[2],((C_word*)t0)[3]))){ t2=C_slot(((C_word*)t0)[4],C_fix(1)); t3=C_eqp(lf[11],t2); if(C_truep(t3)){ t4=C_slot(((C_word*)t0)[4],C_fix(2)); t5=C_i_caddr(t4); t6=((C_word*)t0)[5]; f_11571(t6,C_i_listp(t5));} else{ t4=((C_word*)t0)[5]; f_11571(t4,C_SCHEME_FALSE);}} else{ t2=((C_word*)t0)[5]; f_11571(t2,C_SCHEME_FALSE);}} else{ t2=((C_word*)t0)[5]; f_11571(t2,C_SCHEME_FALSE);}} /* ##compiler#perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ 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=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(22,c,4)))){ C_save_and_reclaim((void *)f_6537,4,av);} a=C_alloc(22); t4=C_SCHEME_FALSE; 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_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|2,a[1]=(C_word)f_6540,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t13=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6544,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6551,a[2]=t1,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=t3,a[7]=t11,tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:555: debugging */ t15=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; av2[2]=lf[28]; av2[3]=lf[127]; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} /* k11638 in k11630 in k11555 in walk in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_11640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11640,2,av);} if(C_truep(t1)){ t2=t1; t3=C_i_length(t2); t4=((C_word*)t0)[2]; f_11619(t4,C_eqp(((C_word*)t0)[3],t3));} else{ t2=((C_word*)t0)[2]; f_11619(t2,C_eqp(((C_word*)t0)[3],C_fix(0)));}} /* k11645 in k11555 in walk in determine-loop-and-dispatch in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_11647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11647,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_11632(t3,C_i_length(t2));} else{ t2=((C_word*)t0)[2]; f_11632(t2,C_fix(0));}} /* a7728 in k7722 in k7713 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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_7729,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7750,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:973: gensym */ t5=*((C_word*)lf[83]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k7722 in k7713 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_7724(C_word t0,C_word t1){ C_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_7724,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7729,tmp=(C_word)a,a+=2,tmp); t3=C_a_i_list1(&a,1,C_SCHEME_TRUE); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7771,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t6=((C_word*)t0)[5]; t7=C_u_i_car(t6); /* optimizer.scm:974: varnode */ t8=*((C_word*)lf[51]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t5; 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);}}} /* k5345 in k5247 in k5751 in a5230 in k5213 in k5175 in k5095 in k5088 in k5085 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_5347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_5347,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:396: walk-generic */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6352(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_5361,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_5361(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_5546,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)[13],a[11]=((C_word*)t0)[14],a[12]=((C_word*)t0)[20],a[13]=((C_word*)t0)[15],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_5685,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[20],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:423: test */ t4=((C_word*)((C_word*)t0)[18])[1]; f_4146(t4,t3,((C_word*)t0)[22],lf[64]);}} /* k8213 in k8181 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_8215(C_word 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_8215,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8218,a[2]=((C_word*)t0)[2],a[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_8218(t3,t1);} else{ t3=C_eqp(*((C_word*)lf[146]+1),lf[147]); t4=(C_truep(t3)?C_i_caddr(((C_word*)t0)[3]):C_SCHEME_FALSE); if(C_truep(t4)){ t5=t2; f_8218(t5,t4);} else{ t5=C_eqp(*((C_word*)lf[146]+1),lf[149]); t6=t2; f_8218(t6,(C_truep(t5)?C_i_cadddr(((C_word*)t0)[3]):C_SCHEME_FALSE));}}} /* k8216 in k8213 in k8181 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_8218(C_word t0,C_word t1){ C_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,3)))){ C_save_and_reclaim_args((void *)trf_8218,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=((C_word*)t0)[2]; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8229,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); 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_8348,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_8348(t11,t7,t6);} 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);}}} /* k9561 in k9535 in k9532 in k9526 in k9520 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_9563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9563,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[14],lf[12],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7155 in k7096 in a7084 in k7063 in k7060 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7157,2,av);} /* optimizer.scm:888: fold-right */ t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a7158 in k7096 in a7084 in k7063 in k7060 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=av[3]; 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_7159,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7205,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:896: gensym */ t5=*((C_word*)lf[83]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k7748 in a7728 in k7722 in k7713 in simplify-named-call in k7362 in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_7750(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7750,2,av);} a=C_alloc(14); t2=C_a_i_list1(&a,1,t1); t3=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t4=((C_word*)t0)[4]; t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[14],lf[6],t2,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k6516 in for-each-loop920 in k6473 in a6470 in k6428 in k6425 in k6421 in k6415 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ static void C_ccall f_6518(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6518,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6508(t3,((C_word*)t0)[4],t2);} /* k4602 in walk1 in perform-high-level-optimizations in k4138 in k3753 in k3750 in k3747 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_4604,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4610,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:231: test */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4146(t4,t3,t2,lf[55]);} /* test in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ static void C_fcall f_6544(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_6544,4,t0,t1,t2,t3);} /* optimizer.scm:553: get */ t4=*((C_word*)lf[33]+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);}} /* touch in perform-pre-optimization! in k4138 in k3753 in k3750 in k3747 */ static C_word C_fcall f_6540(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);} /* k6951 in g1366 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6953,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6969,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:851: gensym */ t4=*((C_word*)lf[83]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a7126 in k7096 in a7084 in k7063 in k7060 in k7000 in k6940 in k6883 in reorganize-recursive-bindings in k6868 in k6865 in k6862 in k4138 in k3753 in k3750 in k3747 */ 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=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(19,c,1)))){ C_save_and_reclaim((void *)f_7127,4,av);} a=C_alloc(19); t4=C_a_i_list1(&a,1,t2); t5=C_a_i_record4(&a,4,lf[14],lf[15],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST); t6=C_a_i_list2(&a,2,t5,t3); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[14],lf[6],t4,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[589] = { {"f_6943:optimizer_2escm",(void*)f_6943}, {"f_6942:optimizer_2escm",(void*)f_6942}, {"f_5014:optimizer_2escm",(void*)f_5014}, {"f_8229:optimizer_2escm",(void*)f_8229}, {"f_6508:optimizer_2escm",(void*)f_6508}, {"f_5034:optimizer_2escm",(void*)f_5034}, {"f_8238:optimizer_2escm",(void*)f_8238}, {"f_4636:optimizer_2escm",(void*)f_4636}, {"f_5180:optimizer_2escm",(void*)f_5180}, {"f_6259:optimizer_2escm",(void*)f_6259}, {"f_13262:optimizer_2escm",(void*)f_13262}, {"f_8209:optimizer_2escm",(void*)f_8209}, {"f_4669:optimizer_2escm",(void*)f_4669}, {"f_6283:optimizer_2escm",(void*)f_6283}, {"f_4659:optimizer_2escm",(void*)f_4659}, {"f_13208:optimizer_2escm",(void*)f_13208}, {"f_13202:optimizer_2escm",(void*)f_13202}, {"f_6590:optimizer_2escm",(void*)f_6590}, {"f_6593:optimizer_2escm",(void*)f_6593}, {"f_10287:optimizer_2escm",(void*)f_10287}, {"f_6599:optimizer_2escm",(void*)f_6599}, {"f_5150:optimizer_2escm",(void*)f_5150}, {"f_11800:optimizer_2escm",(void*)f_11800}, {"f_11808:optimizer_2escm",(void*)f_11808}, {"f_6293:optimizer_2escm",(void*)f_6293}, {"f_6572:optimizer_2escm",(void*)f_6572}, {"f_6571:optimizer_2escm",(void*)f_6571}, {"f_12861:optimizer_2escm",(void*)f_12861}, {"f_4616:optimizer_2escm",(void*)f_4616}, {"f_4610:optimizer_2escm",(void*)f_4610}, {"f_8339:optimizer_2escm",(void*)f_8339}, {"f_7715:optimizer_2escm",(void*)f_7715}, {"f_6551:optimizer_2escm",(void*)f_6551}, {"f_7287:optimizer_2escm",(void*)f_7287}, {"f_6557:optimizer_2escm",(void*)f_6557}, {"f_6554:optimizer_2escm",(void*)f_6554}, {"f_11451:optimizer_2escm",(void*)f_11451}, {"f_8348:optimizer_2escm",(void*)f_8348}, {"f_11443:optimizer_2escm",(void*)f_11443}, {"f_7277:optimizer_2escm",(void*)f_7277}, {"f_11446:optimizer_2escm",(void*)f_11446}, {"f_11448:optimizer_2escm",(void*)f_11448}, {"f_8314:optimizer_2escm",(void*)f_8314}, {"f_7264:optimizer_2escm",(void*)f_7264}, {"f_11437:optimizer_2escm",(void*)f_11437}, {"f_5986:optimizer_2escm",(void*)f_5986}, {"f_13275:optimizer_2escm",(void*)f_13275}, {"f_11420:optimizer_2escm",(void*)f_11420}, {"f_4792:optimizer_2escm",(void*)f_4792}, {"f_11426:optimizer_2escm",(void*)f_11426}, {"f_10824:optimizer_2escm",(void*)f_10824}, {"f_10827:optimizer_2escm",(void*)f_10827}, {"f_5215:optimizer_2escm",(void*)f_5215}, {"f_11418:optimizer_2escm",(void*)f_11418}, {"f_13297:optimizer_2escm",(void*)f_13297}, {"f_10486:optimizer_2escm",(void*)f_10486}, {"f_4765:optimizer_2escm",(void*)f_4765}, {"f_4767:optimizer_2escm",(void*)f_4767}, {"f_10491:optimizer_2escm",(void*)f_10491}, {"f_10847:optimizer_2escm",(void*)f_10847}, {"f_10844:optimizer_2escm",(void*)f_10844}, {"f_5231:optimizer_2escm",(void*)f_5231}, {"f_5269:optimizer_2escm",(void*)f_5269}, {"f_5263:optimizer_2escm",(void*)f_5263}, {"f_5266:optimizer_2escm",(void*)f_5266}, {"f_5090:optimizer_2escm",(void*)f_5090}, {"f_5253:optimizer_2escm",(void*)f_5253}, {"f_5252:optimizer_2escm",(void*)f_5252}, {"f_5097:optimizer_2escm",(void*)f_5097}, {"f_5277:optimizer_2escm",(void*)f_5277}, {"f_10593:optimizer_2escm",(void*)f_10593}, {"f_5087:optimizer_2escm",(void*)f_5087}, {"f_5999:optimizer_2escm",(void*)f_5999}, {"f_10342:optimizer_2escm",(void*)f_10342}, {"f_5274:optimizer_2escm",(void*)f_5274}, {"f_10376:optimizer_2escm",(void*)f_10376}, {"f_10305:optimizer_2escm",(void*)f_10305}, {"f_10321:optimizer_2escm",(void*)f_10321}, {"f_5493:optimizer_2escm",(void*)f_5493}, {"f_13238:optimizer_2escm",(void*)f_13238}, {"f_13232:optimizer_2escm",(void*)f_13232}, {"f_8082:optimizer_2escm",(void*)f_8082}, {"f_11858:optimizer_2escm",(void*)f_11858}, {"f_8565:optimizer_2escm",(void*)f_8565}, {"f_6647:optimizer_2escm",(void*)f_6647}, {"f_6640:optimizer_2escm",(void*)f_6640}, {"f_10067:optimizer_2escm",(void*)f_10067}, {"f_8545:optimizer_2escm",(void*)f_8545}, {"f_10061:optimizer_2escm",(void*)f_10061}, {"f_5455:optimizer_2escm",(void*)f_5455}, {"f_6631:optimizer_2escm",(void*)f_6631}, {"f_13118:optimizer_2escm",(void*)f_13118}, {"f_13128:optimizer_2escm",(void*)f_13128}, {"f_13126:optimizer_2escm",(void*)f_13126}, {"f_10055:optimizer_2escm",(void*)f_10055}, {"f_11881:optimizer_2escm",(void*)f_11881}, {"f_13044:optimizer_2escm",(void*)f_13044}, {"f_5391:optimizer_2escm",(void*)f_5391}, {"f_10025:optimizer_2escm",(void*)f_10025}, {"f_13017:optimizer_2escm",(void*)f_13017}, {"f_6625:optimizer_2escm",(void*)f_6625}, {"f_12098:optimizer_2escm",(void*)f_12098}, {"f_6619:optimizer_2escm",(void*)f_6619}, {"f_9219:optimizer_2escm",(void*)f_9219}, {"f_9243:optimizer_2escm",(void*)f_9243}, {"f_9252:optimizer_2escm",(void*)f_9252}, {"f_12556:optimizer_2escm",(void*)f_12556}, {"f_5649:optimizer_2escm",(void*)f_5649}, {"f_12547:optimizer_2escm",(void*)f_12547}, {"f_12179:optimizer_2escm",(void*)f_12179}, {"f_9522:optimizer_2escm",(void*)f_9522}, {"f_5641:optimizer_2escm",(void*)f_5641}, {"f_9528:optimizer_2escm",(void*)f_9528}, {"f_9534:optimizer_2escm",(void*)f_9534}, {"f_9537:optimizer_2escm",(void*)f_9537}, {"f_5630:optimizer_2escm",(void*)f_5630}, {"f_12566:optimizer_2escm",(void*)f_12566}, {"f_12509:optimizer_2escm",(void*)f_12509}, {"f_5685:optimizer_2escm",(void*)f_5685}, {"f_12534:optimizer_2escm",(void*)f_12534}, {"f_12187:optimizer_2escm",(void*)f_12187}, {"f_12075:optimizer_2escm",(void*)f_12075}, {"f_12183:optimizer_2escm",(void*)f_12183}, {"f_6988:optimizer_2escm",(void*)f_6988}, {"f_12199:optimizer_2escm",(void*)f_12199}, {"f_5401:optimizer_2escm",(void*)f_5401}, {"f_12085:optimizer_2escm",(void*)f_12085}, {"f_5698:optimizer_2escm",(void*)f_5698}, {"f_8897:optimizer_2escm",(void*)f_8897}, {"f_8893:optimizer_2escm",(void*)f_8893}, {"f_12191:optimizer_2escm",(void*)f_12191}, {"f_6975:optimizer_2escm",(void*)f_6975}, {"f_12255:optimizer_2escm",(void*)f_12255}, {"f_13075:optimizer_2escm",(void*)f_13075}, {"f_6227:optimizer_2escm",(void*)f_6227}, {"f_6961:optimizer_2escm",(void*)f_6961}, {"f_6969:optimizer_2escm",(void*)f_6969}, {"f_12201:optimizer_2escm",(void*)f_12201}, {"f_6215:optimizer_2escm",(void*)f_6215}, {"f_6217:optimizer_2escm",(void*)f_6217}, {"f_10223:optimizer_2escm",(void*)f_10223}, {"f_10220:optimizer_2escm",(void*)f_10220}, {"f_4672:optimizer_2escm",(void*)f_4672}, {"f_8871:optimizer_2escm",(void*)f_8871}, {"f_9026:optimizer_2escm",(void*)f_9026}, {"f_6241:optimizer_2escm",(void*)f_6241}, {"f_6242:optimizer_2escm",(void*)f_6242}, {"f_9022:optimizer_2escm",(void*)f_9022}, {"f_4694:optimizer_2escm",(void*)f_4694}, {"f_6857:optimizer_2escm",(void*)f_6857}, {"f_5605:optimizer_2escm",(void*)f_5605}, {"f_5603:optimizer_2escm",(void*)f_5603}, {"f_7771:optimizer_2escm",(void*)f_7771}, {"f_6844:optimizer_2escm",(void*)f_6844}, {"f_6324:optimizer_2escm",(void*)f_6324}, {"f_6320:optimizer_2escm",(void*)f_6320}, {"f_6312:optimizer_2escm",(void*)f_6312}, {"f_10991:optimizer_2escm",(void*)f_10991}, {"f_5475:optimizer_2escm",(void*)f_5475}, {"f_5479:optimizer_2escm",(void*)f_5479}, {"f_6807:optimizer_2escm",(void*)f_6807}, {"f_5426:optimizer_2escm",(void*)f_5426}, {"f_5443:optimizer_2escm",(void*)f_5443}, {"f_5449:optimizer_2escm",(void*)f_5449}, {"f_12247:optimizer_2escm",(void*)f_12247}, {"f_5437:optimizer_2escm",(void*)f_5437}, {"f_5135:optimizer_2escm",(void*)f_5135}, {"f_4933:optimizer_2escm",(void*)f_4933}, {"f_6396:optimizer_2escm",(void*)f_6396}, {"f_7836:optimizer_2escm",(void*)f_7836}, {"f_10201:optimizer_2escm",(void*)f_10201}, {"f_6423:optimizer_2escm",(void*)f_6423}, {"f_6427:optimizer_2escm",(void*)f_6427}, {"f_5128:optimizer_2escm",(void*)f_5128}, {"f_11811:optimizer_2escm",(void*)f_11811}, {"f_11815:optimizer_2escm",(void*)f_11815}, {"f_6389:optimizer_2escm",(void*)f_6389}, {"f_6383:optimizer_2escm",(void*)f_6383}, {"f_6190:optimizer_2escm",(void*)f_6190}, {"f_4802:optimizer_2escm",(void*)f_4802}, {"f_7573:optimizer_2escm",(void*)f_7573}, {"f_6417:optimizer_2escm",(void*)f_6417}, {"f_8535:optimizer_2escm",(void*)f_8535}, {"f_3783:optimizer_2escm",(void*)f_3783}, {"f_3788:optimizer_2escm",(void*)f_3788}, {"f_6184:optimizer_2escm",(void*)f_6184}, {"f_6442:optimizer_2escm",(void*)f_6442}, {"f_3790:optimizer_2escm",(void*)f_3790}, {"f_3797:optimizer_2escm",(void*)f_3797}, {"f_3795:optimizer_2escm",(void*)f_3795}, {"f_8115:optimizer_2escm",(void*)f_8115}, {"f_8561:optimizer_2escm",(void*)f_8561}, {"f_6368:optimizer_2escm",(void*)f_6368}, {"f_6834:optimizer_2escm",(void*)f_6834}, {"f_5177:optimizer_2escm",(void*)f_5177}, {"f_3760:optimizer_2escm",(void*)f_3760}, {"f_3767:optimizer_2escm",(void*)f_3767}, {"f_6352:optimizer_2escm",(void*)f_6352}, {"f_8123:optimizer_2escm",(void*)f_8123}, {"f_6358:optimizer_2escm",(void*)f_6358}, {"f_6167:optimizer_2escm",(void*)f_6167}, {"f_6823:optimizer_2escm",(void*)f_6823}, {"f_5160:optimizer_2escm",(void*)f_5160}, {"f_6158:optimizer_2escm",(void*)f_6158}, {"f_5111:optimizer_2escm",(void*)f_5111}, {"f_5114:optimizer_2escm",(void*)f_5114}, {"f_5118:optimizer_2escm",(void*)f_5118}, {"f_11842:optimizer_2escm",(void*)f_11842}, {"f_11847:optimizer_2escm",(void*)f_11847}, {"f_11252:optimizer_2escm",(void*)f_11252}, {"f_11255:optimizer_2escm",(void*)f_11255}, {"f_13301:optimizer_2escm",(void*)f_13301}, {"f_6335:optimizer_2escm",(void*)f_6335}, {"f_13305:optimizer_2escm",(void*)f_13305}, {"f_6141:optimizer_2escm",(void*)f_6141}, {"f_9726:optimizer_2escm",(void*)f_9726}, {"f_6331:optimizer_2escm",(void*)f_6331}, {"f_6147:optimizer_2escm",(void*)f_6147}, {"f_13318:optimizer_2escm",(void*)f_13318}, {"f_9607:optimizer_2escm",(void*)f_9607}, {"f_9609:optimizer_2escm",(void*)f_9609}, {"f_6471:optimizer_2escm",(void*)f_6471}, {"f_6475:optimizer_2escm",(void*)f_6475}, {"f_5291:optimizer_2escm",(void*)f_5291}, {"f_5249:optimizer_2escm",(void*)f_5249}, {"f_4296:optimizer_2escm",(void*)f_4296}, {"f_4900:optimizer_2escm",(void*)f_4900}, {"f_4913:optimizer_2escm",(void*)f_4913}, {"f_7816:optimizer_2escm",(void*)f_7816}, {"f_4906:optimizer_2escm",(void*)f_4906}, {"f_6433:optimizer_2escm",(void*)f_6433}, {"f_6436:optimizer_2escm",(void*)f_6436}, {"f_6439:optimizer_2escm",(void*)f_6439}, {"f_6430:optimizer_2escm",(void*)f_6430}, {"f_4254:optimizer_2escm",(void*)f_4254}, {"f_5288:optimizer_2escm",(void*)f_5288}, {"f_5281:optimizer_2escm",(void*)f_5281}, {"f_4248:optimizer_2escm",(void*)f_4248}, {"f_8183:optimizer_2escm",(void*)f_8183}, {"f_4953:optimizer_2escm",(void*)f_4953}, {"f_6480:optimizer_2escm",(void*)f_6480}, {"f_8157:optimizer_2escm",(void*)f_8157}, {"f_13392:optimizer_2escm",(void*)f_13392}, {"f_7844:optimizer_2escm",(void*)f_7844}, {"f_10191:optimizer_2escm",(void*)f_10191}, {"f_10392:optimizer_2escm",(void*)f_10392}, {"f_10398:optimizer_2escm",(void*)f_10398}, {"toplevel:optimizer_2escm",(void*)C_optimizer_toplevel}, {"f_9889:optimizer_2escm",(void*)f_9889}, {"f_9885:optimizer_2escm",(void*)f_9885}, {"f_8483:optimizer_2escm",(void*)f_8483}, {"f_11796:optimizer_2escm",(void*)f_11796}, {"f_11799:optimizer_2escm",(void*)f_11799}, {"f_9774:optimizer_2escm",(void*)f_9774}, {"f_8479:optimizer_2escm",(void*)f_8479}, {"f_7366:optimizer_2escm",(void*)f_7366}, {"f_7364:optimizer_2escm",(void*)f_7364}, {"f_8471:optimizer_2escm",(void*)f_8471}, {"f_12282:optimizer_2escm",(void*)f_12282}, {"f_6668:optimizer_2escm",(void*)f_6668}, {"f_12288:optimizer_2escm",(void*)f_12288}, {"f_10626:optimizer_2escm",(void*)f_10626}, {"f_8442:optimizer_2escm",(void*)f_8442}, {"f_6650:optimizer_2escm",(void*)f_6650}, {"f_6653:optimizer_2escm",(void*)f_6653}, {"f_8451:optimizer_2escm",(void*)f_8451}, {"f_11751:optimizer_2escm",(void*)f_11751}, {"f_10650:optimizer_2escm",(void*)f_10650}, {"f_9333:optimizer_2escm",(void*)f_9333}, {"f_9331:optimizer_2escm",(void*)f_9331}, {"f_7399:optimizer_2escm",(void*)f_7399}, {"f_7386:optimizer_2escm",(void*)f_7386}, {"f_7380:optimizer_2escm",(void*)f_7380}, {"f_7389:optimizer_2escm",(void*)f_7389}, {"f_7942:optimizer_2escm",(void*)f_7942}, {"f_11763:optimizer_2escm",(void*)f_11763}, {"f_10179:optimizer_2escm",(void*)f_10179}, {"f_7370:optimizer_2escm",(void*)f_7370}, {"f_12270:optimizer_2escm",(void*)f_12270}, {"f_12278:optimizer_2escm",(void*)f_12278}, {"f_11773:optimizer_2escm",(void*)f_11773}, {"f_8987:optimizer_2escm",(void*)f_8987}, {"f_4078:optimizer_2escm",(void*)f_4078}, {"f_4075:optimizer_2escm",(void*)f_4075}, {"f_4072:optimizer_2escm",(void*)f_4072}, {"f_10637:optimizer_2escm",(void*)f_10637}, {"f_13447:optimizer_2escm",(void*)f_13447}, {"f_13443:optimizer_2escm",(void*)f_13443}, {"f_10892:optimizer_2escm",(void*)f_10892}, {"f_13456:optimizer_2escm",(void*)f_13456}, {"f_12903:optimizer_2escm",(void*)f_12903}, {"f_7314:optimizer_2escm",(void*)f_7314}, {"f_13465:optimizer_2escm",(void*)f_13465}, {"f_5753:optimizer_2escm",(void*)f_5753}, {"f_4146:optimizer_2escm",(void*)f_4146}, {"f_4143:optimizer_2escm",(void*)f_4143}, {"f_10887:optimizer_2escm",(void*)f_10887}, {"f_5759:optimizer_2escm",(void*)f_5759}, {"f_5744:optimizer_2escm",(void*)f_5744}, {"f_5740:optimizer_2escm",(void*)f_5740}, {"f_13405:optimizer_2escm",(void*)f_13405}, {"f_10858:optimizer_2escm",(void*)f_10858}, {"f_10850:optimizer_2escm",(void*)f_10850}, {"f_4867:optimizer_2escm",(void*)f_4867}, {"f_4860:optimizer_2escm",(void*)f_4860}, {"f_13411:optimizer_2escm",(void*)f_13411}, {"f_8818:optimizer_2escm",(void*)f_8818}, {"f_4894:optimizer_2escm",(void*)f_4894}, {"f_6110:optimizer_2escm",(void*)f_6110}, {"f_7098:optimizer_2escm",(void*)f_7098}, {"f_4888:optimizer_2escm",(void*)f_4888}, {"f_4883:optimizer_2escm",(void*)f_4883}, {"f_4182:optimizer_2escm",(void*)f_4182}, {"f_5718:optimizer_2escm",(void*)f_5718}, {"f_12408:optimizer_2escm",(void*)f_12408}, {"f_4186:optimizer_2escm",(void*)f_4186}, {"f_12406:optimizer_2escm",(void*)f_12406}, {"f_7085:optimizer_2escm",(void*)f_7085}, {"f_9654:optimizer_2escm",(void*)f_9654}, {"f_12475:optimizer_2escm",(void*)f_12475}, {"f_12473:optimizer_2escm",(void*)f_12473}, {"f_11588:optimizer_2escm",(void*)f_11588}, {"f_12450:optimizer_2escm",(void*)f_12450}, {"f_12444:optimizer_2escm",(void*)f_12444}, {"f_10763:optimizer_2escm",(void*)f_10763}, {"f_11958:optimizer_2escm",(void*)f_11958}, {"f_11957:optimizer_2escm",(void*)f_11957}, {"f_11953:optimizer_2escm",(void*)f_11953}, {"f_11952:optimizer_2escm",(void*)f_11952}, {"f_6872:optimizer_2escm",(void*)f_6872}, {"f_6870:optimizer_2escm",(void*)f_6870}, {"f_6867:optimizer_2escm",(void*)f_6867}, {"f_6864:optimizer_2escm",(void*)f_6864}, {"f_11990:optimizer_2escm",(void*)f_11990}, {"f_4982:optimizer_2escm",(void*)f_4982}, {"f_6893:optimizer_2escm",(void*)f_6893}, {"f_4994:optimizer_2escm",(void*)f_4994}, {"f_11511:optimizer_2escm",(void*)f_11511}, {"f_6885:optimizer_2escm",(void*)f_6885}, {"f_6887:optimizer_2escm",(void*)f_6887}, {"f_4987:optimizer_2escm",(void*)f_4987}, {"f_11994:optimizer_2escm",(void*)f_11994}, {"f_11998:optimizer_2escm",(void*)f_11998}, {"f_7883:optimizer_2escm",(void*)f_7883}, {"f_4963:optimizer_2escm",(void*)f_4963}, {"f_4960:optimizer_2escm",(void*)f_4960}, {"f_9480:optimizer_2escm",(void*)f_9480}, {"f_11571:optimizer_2escm",(void*)f_11571}, {"f_9492:optimizer_2escm",(void*)f_9492}, {"f_12108:optimizer_2escm",(void*)f_12108}, {"f_3993:optimizer_2escm",(void*)f_3993}, {"f_3996:optimizer_2escm",(void*)f_3996}, {"f_3999:optimizer_2escm",(void*)f_3999}, {"f_9116:optimizer_2escm",(void*)f_9116}, {"f_3960:optimizer_2escm",(void*)f_3960}, {"f_11557:optimizer_2escm",(void*)f_11557}, {"f_9468:optimizer_2escm",(void*)f_9468}, {"f_3945:optimizer_2escm",(void*)f_3945}, {"f_13439:optimizer_2escm",(void*)f_13439}, {"f_3956:optimizer_2escm",(void*)f_3956}, {"f_3952:optimizer_2escm",(void*)f_3952}, {"f_9470:optimizer_2escm",(void*)f_9470}, {"f_3922:optimizer_2escm",(void*)f_3922}, {"f_3916:optimizer_2escm",(void*)f_3916}, {"f_4371:optimizer_2escm",(void*)f_4371}, {"f_3913:optimizer_2escm",(void*)f_3913}, {"f_11719:optimizer_2escm",(void*)f_11719}, {"f_9199:optimizer_2escm",(void*)f_9199}, {"f_11147:optimizer_2escm",(void*)f_11147}, {"f_12681:optimizer_2escm",(void*)f_12681}, {"f_12689:optimizer_2escm",(void*)f_12689}, {"f_4357:optimizer_2escm",(void*)f_4357}, {"f_11742:optimizer_2escm",(void*)f_11742}, {"f_12751:optimizer_2escm",(void*)f_12751}, {"f_11113:optimizer_2escm",(void*)f_11113}, {"f_11110:optimizer_2escm",(void*)f_11110}, {"f_12693:optimizer_2escm",(void*)f_12693}, {"f_12697:optimizer_2escm",(void*)f_12697}, {"f_6085:optimizer_2escm",(void*)f_6085}, {"f_6083:optimizer_2escm",(void*)f_6083}, {"f_9912:optimizer_2escm",(void*)f_9912}, {"f_9149:optimizer_2escm",(void*)f_9149}, {"f_4200:optimizer_2escm",(void*)f_4200}, {"f_11116:optimizer_2escm",(void*)f_11116}, {"f_12354:optimizer_2escm",(void*)f_12354}, {"f_12350:optimizer_2escm",(void*)f_12350}, {"f_4238:optimizer_2escm",(void*)f_4238}, {"f_11725:optimizer_2escm",(void*)f_11725}, {"f_9359:optimizer_2escm",(void*)f_9359}, {"f_4230:optimizer_2escm",(void*)f_4230}, {"f_9865:optimizer_2escm",(void*)f_9865}, {"f_9839:optimizer_2escm",(void*)f_9839}, {"f_12342:optimizer_2escm",(void*)f_12342}, {"f_4227:optimizer_2escm",(void*)f_4227}, {"f_11160:optimizer_2escm",(void*)f_11160}, {"f_11163:optimizer_2escm",(void*)f_11163}, {"f_4223:optimizer_2escm",(void*)f_4223}, {"f_9835:optimizer_2escm",(void*)f_9835}, {"f_4312:optimizer_2escm",(void*)f_4312}, {"f_4310:optimizer_2escm",(void*)f_4310}, {"f_11166:optimizer_2escm",(void*)f_11166}, {"f_9859:optimizer_2escm",(void*)f_9859}, {"f_11732:optimizer_2escm",(void*)f_11732}, {"f_11157:optimizer_2escm",(void*)f_11157}, {"f_9851:optimizer_2escm",(void*)f_9851}, {"f_8691:optimizer_2escm",(void*)f_8691}, {"f_6076:optimizer_2escm",(void*)f_6076}, {"f_12318:optimizer_2escm",(void*)f_12318}, {"f_7643:optimizer_2escm",(void*)f_7643}, {"f_4479:optimizer_2escm",(void*)f_4479}, {"f_6067:optimizer_2escm",(void*)f_6067}, {"f_4472:optimizer_2escm",(void*)f_4472}, {"f_5867:optimizer_2escm",(void*)f_5867}, {"f_4468:optimizer_2escm",(void*)f_4468}, {"f_11937:optimizer_2escm",(void*)f_11937}, {"f_11949:optimizer_2escm",(void*)f_11949}, {"f_10711:optimizer_2escm",(void*)f_10711}, {"f_5891:optimizer_2escm",(void*)f_5891}, {"f_7990:optimizer_2escm",(void*)f_7990}, {"f_9843:optimizer_2escm",(void*)f_9843}, {"f_9845:optimizer_2escm",(void*)f_9845}, {"f_10720:optimizer_2escm",(void*)f_10720}, {"f_12322:optimizer_2escm",(void*)f_12322}, {"f_5898:optimizer_2escm",(void*)f_5898}, {"f_9810:optimizer_2escm",(void*)f_9810}, {"f_11194:optimizer_2escm",(void*)f_11194}, {"f_10733:optimizer_2escm",(void*)f_10733}, {"f_5888:optimizer_2escm",(void*)f_5888}, {"f_11906:optimizer_2escm",(void*)f_11906}, {"f_10724:optimizer_2escm",(void*)f_10724}, {"f_10727:optimizer_2escm",(void*)f_10727}, {"f_10736:optimizer_2escm",(void*)f_10736}, {"f_10737:optimizer_2escm",(void*)f_10737}, {"f_12731:optimizer_2escm",(void*)f_12731}, {"f_4449:optimizer_2escm",(void*)f_4449}, {"f_10444:optimizer_2escm",(void*)f_10444}, {"f_7254:optimizer_2escm",(void*)f_7254}, {"f_11940:optimizer_2escm",(void*)f_11940}, {"f_11943:optimizer_2escm",(void*)f_11943}, {"f_11946:optimizer_2escm",(void*)f_11946}, {"f_10683:optimizer_2escm",(void*)f_10683}, {"f_7241:optimizer_2escm",(void*)f_7241}, {"f_10692:optimizer_2escm",(void*)f_10692}, {"f_7231:optimizer_2escm",(void*)f_7231}, {"f_10690:optimizer_2escm",(void*)f_10690}, {"f_10696:optimizer_2escm",(void*)f_10696}, {"f_8774:optimizer_2escm",(void*)f_8774}, {"f_9982:optimizer_2escm",(void*)f_9982}, {"f_5762:optimizer_2escm",(void*)f_5762}, {"f_9985:optimizer_2escm",(void*)f_9985}, {"f_8601:optimizer_2escm",(void*)f_8601}, {"f_10902:optimizer_2escm",(void*)f_10902}, {"f_10403:optimizer_2escm",(void*)f_10403}, {"f_8243:optimizer_2escm",(void*)f_8243}, {"f_8964:optimizer_2escm",(void*)f_8964}, {"f_7205:optimizer_2escm",(void*)f_7205}, {"f_12020:optimizer_2escm",(void*)f_12020}, {"f_12010:optimizer_2escm",(void*)f_12010}, {"f_10433:optimizer_2escm",(void*)f_10433}, {"f_10439:optimizer_2escm",(void*)f_10439}, {"f_12002:optimizer_2escm",(void*)f_12002}, {"f_4550:optimizer_2escm",(void*)f_4550}, {"f_8284:optimizer_2escm",(void*)f_8284}, {"f_8286:optimizer_2escm",(void*)f_8286}, {"f_4565:optimizer_2escm",(void*)f_4565}, {"f_8725:optimizer_2escm",(void*)f_8725}, {"f_8721:optimizer_2escm",(void*)f_8721}, {"f_4558:optimizer_2escm",(void*)f_4558}, {"f_4554:optimizer_2escm",(void*)f_4554}, {"f_8373:optimizer_2escm",(void*)f_8373}, {"f_12055:optimizer_2escm",(void*)f_12055}, {"f_8706:optimizer_2escm",(void*)f_8706}, {"f_7449:optimizer_2escm",(void*)f_7449}, {"f_5925:optimizer_2escm",(void*)f_5925}, {"f_12045:optimizer_2escm",(void*)f_12045}, {"f_5959:optimizer_2escm",(void*)f_5959}, {"f_12913:optimizer_2escm",(void*)f_12913}, {"f_4758:optimizer_2escm",(void*)f_4758}, {"f_4014:optimizer_2escm",(void*)f_4014}, {"f_4017:optimizer_2escm",(void*)f_4017}, {"f_3809:optimizer_2escm",(void*)f_3809}, {"f_4745:optimizer_2escm",(void*)f_4745}, {"f_4570:optimizer_2escm",(void*)f_4570}, {"f_4002:optimizer_2escm",(void*)f_4002}, {"f_3819:optimizer_2escm",(void*)f_3819}, {"f_7484:optimizer_2escm",(void*)f_7484}, {"f_4562:optimizer_2escm",(void*)f_4562}, {"f_7487:optimizer_2escm",(void*)f_7487}, {"f_12814:optimizer_2escm",(void*)f_12814}, {"f_4725:optimizer_2escm",(void*)f_4725}, {"f_4728:optimizer_2escm",(void*)f_4728}, {"f_3749:optimizer_2escm",(void*)f_3749}, {"f_4136:optimizer_2escm",(void*)f_4136}, {"f_5900:optimizer_2escm",(void*)f_5900}, {"f_3832:optimizer_2escm",(void*)f_3832}, {"f_9435:optimizer_2escm",(void*)f_9435}, {"f_7033:optimizer_2escm",(void*)f_7033}, {"f_3757:optimizer_2escm",(void*)f_3757}, {"f_3755:optimizer_2escm",(void*)f_3755}, {"f_3752:optimizer_2escm",(void*)f_3752}, {"f_7020:optimizer_2escm",(void*)f_7020}, {"f_12595:optimizer_2escm",(void*)f_12595}, {"f_4115:optimizer_2escm",(void*)f_4115}, {"f_7010:optimizer_2escm",(void*)f_7010}, {"f_7018:optimizer_2escm",(void*)f_7018}, {"f_5546:optimizer_2escm",(void*)f_5546}, {"f_5549:optimizer_2escm",(void*)f_5549}, {"f_13586:optimizer_2escm",(void*)f_13586}, {"f_4105:optimizer_2escm",(void*)f_4105}, {"f_3869:optimizer_2escm",(void*)f_3869}, {"f_7003:optimizer_2escm",(void*)f_7003}, {"f_7002:optimizer_2escm",(void*)f_7002}, {"f_12655:optimizer_2escm",(void*)f_12655}, {"f_12653:optimizer_2escm",(void*)f_12653}, {"f_13590:optimizer_2escm",(void*)f_13590}, {"f_3873:optimizer_2escm",(void*)f_3873}, {"f_3875:optimizer_2escm",(void*)f_3875}, {"f_5566:optimizer_2escm",(void*)f_5566}, {"f_5561:optimizer_2escm",(void*)f_5561}, {"f_13563:optimizer_2escm",(void*)f_13563}, {"f_4152:optimizer_2escm",(void*)f_4152}, {"f_7077:optimizer_2escm",(void*)f_7077}, {"f_3886:optimizer_2escm",(void*)f_3886}, {"f_7065:optimizer_2escm",(void*)f_7065}, {"f_13576:optimizer_2escm",(void*)f_13576}, {"f_7062:optimizer_2escm",(void*)f_7062}, {"f_4513:optimizer_2escm",(void*)f_4513}, {"f_13571:optimizer_2escm",(void*)f_13571}, {"f_4140:optimizer_2escm",(void*)f_4140}, {"f_7068:optimizer_2escm",(void*)f_7068}, {"f_5852:optimizer_2escm",(void*)f_5852}, {"f_7414:optimizer_2escm",(void*)f_7414}, {"f_4507:optimizer_2escm",(void*)f_4507}, {"f_7050:optimizer_2escm",(void*)f_7050}, {"f_5588:optimizer_2escm",(void*)f_5588}, {"f_7044:optimizer_2escm",(void*)f_7044}, {"f_5572:optimizer_2escm",(void*)f_5572}, {"f_12617:optimizer_2escm",(void*)f_12617}, {"f_5919:optimizer_2escm",(void*)f_5919}, {"f_11014:optimizer_2escm",(void*)f_11014}, {"f_6016:optimizer_2escm",(void*)f_6016}, {"f_5593:optimizer_2escm",(void*)f_5593}, {"f_11001:optimizer_2escm",(void*)f_11001}, {"f_6032:optimizer_2escm",(void*)f_6032}, {"f_10120:optimizer_2escm",(void*)f_10120}, {"f_6022:optimizer_2escm",(void*)f_6022}, {"f_10137:optimizer_2escm",(void*)f_10137}, {"f_4390:optimizer_2escm",(void*)f_4390}, {"f_11354:optimizer_2escm",(void*)f_11354}, {"f_6930:optimizer_2escm",(void*)f_6930}, {"f_6939:optimizer_2escm",(void*)f_6939}, {"f_11032:optimizer_2escm",(void*)f_11032}, {"f_11344:optimizer_2escm",(void*)f_11344}, {"f_10163:optimizer_2escm",(void*)f_10163}, {"f_6917:optimizer_2escm",(void*)f_6917}, {"f_11325:optimizer_2escm",(void*)f_11325}, {"f_5378:optimizer_2escm",(void*)f_5378}, {"f_11315:optimizer_2escm",(void*)f_11315}, {"f_5361:optimizer_2escm",(void*)f_5361}, {"f_11303:optimizer_2escm",(void*)f_11303}, {"f_8657:optimizer_2escm",(void*)f_8657}, {"f_10915:optimizer_2escm",(void*)f_10915}, {"f_5312:optimizer_2escm",(void*)f_5312}, {"f_8661:optimizer_2escm",(void*)f_8661}, {"f_9278:optimizer_2escm",(void*)f_9278}, {"f_5388:optimizer_2escm",(void*)f_5388}, {"f_11632:optimizer_2escm",(void*)f_11632}, {"f_4458:optimizer_2escm",(void*)f_4458}, {"f_5322:optimizer_2escm",(void*)f_5322}, {"f_11619:optimizer_2escm",(void*)f_11619}, {"f_6537:optimizer_2escm",(void*)f_6537}, {"f_11640:optimizer_2escm",(void*)f_11640}, {"f_11647:optimizer_2escm",(void*)f_11647}, {"f_7729:optimizer_2escm",(void*)f_7729}, {"f_7724:optimizer_2escm",(void*)f_7724}, {"f_5347:optimizer_2escm",(void*)f_5347}, {"f_8215:optimizer_2escm",(void*)f_8215}, {"f_8218:optimizer_2escm",(void*)f_8218}, {"f_9563:optimizer_2escm",(void*)f_9563}, {"f_7157:optimizer_2escm",(void*)f_7157}, {"f_7159:optimizer_2escm",(void*)f_7159}, {"f_7750:optimizer_2escm",(void*)f_7750}, {"f_6518:optimizer_2escm",(void*)f_6518}, {"f_4604:optimizer_2escm",(void*)f_4604}, {"f_6544:optimizer_2escm",(void*)f_6544}, {"f_6540:optimizer_2escm",(void*)f_6540}, {"f_6953:optimizer_2escm",(void*)f_6953}, {"f_7127:optimizer_2escm",(void*)f_7127}, {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| o 1 S| map 12 S| for-each 20 o|eliminated procedure checks: 295 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|specializations: o| 1 (> fixnum fixnum) o| 1 (set-car! pair *) o| 2 (cddr (pair * pair)) o| 1 (length list) o| 1 (##sys#call-with-values (procedure () *) *) o| 1 (<= fixnum fixnum) o| 1 (positive? fixnum) o| 3 (third (pair * (pair * pair))) o| 1 (fourth (pair * (pair * (pair * pair)))) o| 1 (eqv? (not float) *) o| 1 (< fixnum fixnum) o| 7 (second (pair * pair)) o| 1 (cdar (pair pair *)) o| 17 (= fixnum fixnum) o| 2 (set-cdr! pair *) o| 30 (cdr pair) o| 13 (##sys#check-list (or pair list) *) o| 16 (car pair) o| 32 (first pair) o| 63 (eqv? * (not float)) (o e)|safe calls: 1368 (o e)|assignments to immediate values: 8 o|safe globals: (##compiler#scan-toplevel-assignments) o|Removed `not' forms: 30 o|inlining procedure: k3762 o|inlining procedure: k3762 o|contracted procedure: k3772 o|inlining procedure: k3811 o|inlining procedure: k3811 o|inlining procedure: k3858 o|contracted procedure: k3891 o|inlining procedure: k3858 o|inlining procedure: k3937 o|inlining procedure: k3937 o|inlining procedure: k3970 o|inlining procedure: k3970 o|inlining procedure: k4000 o|inlining procedure: k4000 o|contracted procedure: "(optimizer.scm:101) g99100" o|substituted constant variable: a4041 o|substituted constant variable: a4043 o|substituted constant variable: a4048 o|substituted constant variable: a4050 o|substituted constant variable: a4052 o|inlining procedure: k4056 o|inlining procedure: k4056 o|substituted constant variable: a4063 o|substituted constant variable: a4065 o|substituted constant variable: a4067 o|substituted constant variable: a4069 o|contracted procedure: "(optimizer.scm:65) g7475" o|contracted procedure: "(optimizer.scm:64) g6566" o|contracted procedure: "(optimizer.scm:63) g6263" o|inlining procedure: k4107 o|contracted procedure: "(optimizer.scm:112) g111118" o|contracted procedure: "(optimizer.scm:112) g126127" o|inlining procedure: k4107 o|contracted procedure: "(optimizer.scm:143) g177178" o|inlining procedure: k4202 o|contracted procedure: "(optimizer.scm:134) g188195" o|inlining procedure: k4202 o|inlining procedure: k4231 o|inlining procedure: k4231 o|inlining procedure: k4243 o|inlining procedure: k4255 o|inlining procedure: k4255 o|inlining procedure: k4314 o|inlining procedure: k4314 o|inlining procedure: k4243 o|contracted procedure: "(optimizer.scm:151) g215216" o|inlining procedure: k4359 o|inlining procedure: k4359 o|inlining procedure: k4388 o|inlining procedure: k4411 o|inlining procedure: k4411 o|contracted procedure: "(optimizer.scm:180) node-value166" o|contracted procedure: "(optimizer.scm:144) g181182" o|inlining procedure: k4388 o|inlining procedure: k4435 o|contracted procedure: k4463 o|inlining procedure: k4460 o|contracted procedure: "(optimizer.scm:205) g300301" o|inlining procedure: k4460 o|inlining procedure: k4508 o|inlining procedure: k4508 o|contracted procedure: "(optimizer.scm:189) g285286" o|contracted procedure: "(optimizer.scm:188) g281282" o|inlining procedure: k4435 o|contracted procedure: "(optimizer.scm:187) g277278" o|substituted constant variable: a4546 o|substituted constant variable: a4548 o|contracted procedure: "(optimizer.scm:174) g268269" o|contracted procedure: "(optimizer.scm:173) g259260" o|inlining procedure: k4555 o|inlining procedure: k4555 o|inlining procedure: k4596 o|contracted procedure: "(optimizer.scm:234) g345346" o|contracted procedure: k4640 o|inlining procedure: k4637 o|inlining procedure: k4664 o|inlining procedure: k4664 o|contracted procedure: "(optimizer.scm:243) g362363" o|inlining procedure: k4637 o|inlining procedure: k4596 o|inlining procedure: k4720 o|inlining procedure: k4720 o|contracted procedure: "(optimizer.scm:264) g389390" o|inlining procedure: k4769 o|inlining procedure: k4769 o|contracted procedure: "(optimizer.scm:261) g386387" o|contracted procedure: "(optimizer.scm:259) g383384" o|contracted procedure: "(optimizer.scm:258) g380381" o|inlining procedure: k4855 o|inlining procedure: k4855 o|inlining procedure: k4868 o|contracted procedure: "(optimizer.scm:276) g440441" o|inlining procedure: k4977 o|contracted procedure: "(optimizer.scm:292) g456457" o|inlining procedure: k4977 o|inlining procedure: k4868 o|inlining procedure: k5059 o|propagated global variable: g517518 ##compiler#put! o|inlining procedure: k5092 o|contracted procedure: "(optimizer.scm:329) g524525" o|inlining procedure: k5152 o|inlining procedure: k5152 o|contracted procedure: "(optimizer.scm:321) g495496" o|inlining procedure: k5092 o|contracted procedure: "(optimizer.scm:349) g563564" o|contracted procedure: "(optimizer.scm:352) g568569" o|inlining procedure: k5210 o|propagated global variable: g634635 ##compiler#put! o|inlining procedure: k5244 o|contracted procedure: "(optimizer.scm:390) g646647" o|inlining procedure: k5314 o|inlining procedure: k5314 o|inlining procedure: k5244 o|inlining procedure: k5348 o|inlining procedure: k5348 o|inlining procedure: k5363 o|contracted procedure: "(optimizer.scm:406) g702703" o|inlining procedure: k5403 o|inlining procedure: k5403 o|inlining procedure: k5363 o|inlining procedure: k5450 o|contracted procedure: "(optimizer.scm:413) g709710" o|inlining procedure: k5450 o|inlining procedure: k5541 o|contracted procedure: "(optimizer.scm:431) g728729" o|inlining procedure: k5607 o|inlining procedure: k5607 o|inlining procedure: k5647 o|inlining procedure: k5647 o|contracted procedure: "(optimizer.scm:441) g760761" o|inlining procedure: k5541 o|inlining procedure: k5693 o|contracted procedure: k5702 o|contracted procedure: k5708 o|inlining procedure: k5705 o|inlining procedure: k5705 o|inlining procedure: k5725 o|inlining procedure: k5725 o|substituted constant variable: a5736 o|contracted procedure: "(optimizer.scm:367) g609610" o|inlining procedure: k5693 o|contracted procedure: "(optimizer.scm:362) g588589" o|contracted procedure: "(optimizer.scm:362) g591592" o|contracted procedure: "(optimizer.scm:356) g579580" o|inlining procedure: k5210 o|contracted procedure: "(optimizer.scm:456) g789790" o|contracted procedure: "(optimizer.scm:454) g786787" o|inlining procedure: k5797 o|contracted procedure: "(optimizer.scm:451) g780781" o|contracted procedure: "(optimizer.scm:451) g783784" o|inlining procedure: k5797 o|contracted procedure: "(optimizer.scm:450) g777778" o|contracted procedure: "(optimizer.scm:354) g575576" o|inlining procedure: k5853 o|inlining procedure: k5868 o|inlining procedure: k5880 o|propagated global variable: g561562 ##compiler#expression-has-side-effects? o|contracted procedure: k5910 o|inlining procedure: k5907 o|inlining procedure: k5907 o|inlining procedure: k5880 o|contracted procedure: "(optimizer.scm:338) g548549" o|contracted procedure: "(optimizer.scm:337) g544545" o|inlining procedure: k5868 o|contracted procedure: k5950 o|contracted procedure: "(optimizer.scm:334) g539540" o|inlining procedure: k5853 o|contracted procedure: "(optimizer.scm:333) g535536" o|contracted procedure: "(optimizer.scm:332) g531532" o|contracted procedure: k5990 o|inlining procedure: k5987 o|inlining procedure: k5987 o|contracted procedure: "(optimizer.scm:319) g491492" o|contracted procedure: k6017 o|inlining procedure: k6023 o|inlining procedure: k6023 o|contracted procedure: "(optimizer.scm:310) g475476" o|inlining procedure: k6042 o|contracted procedure: "(optimizer.scm:465) g796797" o|inlining procedure: k6087 o|inlining procedure: k6087 o|inlining procedure: k6042 o|substituted constant variable: a6124 o|substituted constant variable: a6126 o|contracted procedure: "(optimizer.scm:306) g465466" o|inlining procedure: k5059 o|inlining procedure: k6136 o|contracted procedure: "(optimizer.scm:477) g841842" o|inlining procedure: k6136 o|contracted procedure: "(optimizer.scm:480) g848849" o|inlining procedure: k6179 o|contracted procedure: "(optimizer.scm:488) g860861" o|inlining procedure: k6179 o|inlining procedure: k6219 o|inlining procedure: k6219 o|inlining procedure: k6244 o|substituted constant variable: a6254 o|inlining procedure: k6244 o|inlining procedure: k6261 o|substituted constant variable: a6271 o|inlining procedure: k6261 o|contracted procedure: "(optimizer.scm:490) g868869" o|contracted procedure: k6297 o|inlining procedure: k6294 o|inlining procedure: k6294 o|contracted procedure: k6303 o|substituted constant variable: a6340 o|substituted constant variable: a6342 o|substituted constant variable: a6344 o|substituted constant variable: a6346 o|substituted constant variable: a6348 o|substituted constant variable: a6350 o|contracted procedure: "(optimizer.scm:226) g330331" o|contracted procedure: "(optimizer.scm:225) g327328" o|contracted procedure: "(optimizer.scm:224) g324325" o|inlining procedure: k6360 o|contracted procedure: "(optimizer.scm:511) g908909" o|inlining procedure: k6360 o|inlining procedure: k6412 o|inlining procedure: k6412 o|inlining procedure: k6510 o|contracted procedure: "(optimizer.scm:529) g921928" o|inlining procedure: k6481 o|inlining procedure: k6481 o|inlining procedure: k6510 o|propagated global variable: g927929 ##compiler#simplified-ops o|inlining procedure: k6555 o|inlining procedure: k6555 o|inlining procedure: k6594 o|inlining procedure: k6626 o|contracted procedure: "(optimizer.scm:583) g10281029" o|contracted procedure: "(optimizer.scm:582) g10251026" o|contracted procedure: "(optimizer.scm:580) g10211022" o|inlining procedure: k6626 o|inlining procedure: k6710 o|contracted procedure: "(optimizer.scm:578) g10171018" o|inlining procedure: k6710 o|substituted constant variable: a6728 o|contracted procedure: "(optimizer.scm:572) g10091010" o|contracted procedure: "(optimizer.scm:571) g10051006" o|contracted procedure: "(optimizer.scm:570) g10011002" o|inlining procedure: k6594 o|inlining procedure: k6761 o|inlining procedure: k6770 o|contracted procedure: "(optimizer.scm:569) g997998" o|inlining procedure: k6770 o|substituted constant variable: a6788 o|substituted constant variable: a6793 o|inlining procedure: k6761 o|contracted procedure: k6798 o|contracted procedure: "(optimizer.scm:563) g987988" o|contracted procedure: "(optimizer.scm:562) g983984" o|inlining procedure: k6836 o|inlining procedure: k6836 o|contracted procedure: "(optimizer.scm:558) g965966" o|contracted procedure: k6898 o|inlining procedure: k6895 o|inlining procedure: k6895 o|contracted procedure: k6948 o|inlining procedure: k6945 o|inlining procedure: k6945 o|contracted procedure: k6980 o|inlining procedure: k6977 o|inlining procedure: k6977 o|contracted procedure: k7025 o|inlining procedure: k7022 o|inlining procedure: k7022 o|inlining procedure: k7069 o|inlining procedure: k7069 o|inlining procedure: k7093 o|contracted procedure: "(optimizer.scm:886) g14241425" o|inlining procedure: k7093 o|contracted procedure: "(optimizer.scm:890) g14321433" o|contracted procedure: "(optimizer.scm:892) g14371438" o|contracted procedure: "(optimizer.scm:895) g14441445" o|contracted procedure: "(optimizer.scm:897) g14491450" o|inlining procedure: k7233 o|inlining procedure: k7233 o|inlining procedure: k7256 o|inlining procedure: k7256 o|inlining procedure: k7279 o|inlining procedure: k7279 o|inlining procedure: k7316 o|inlining procedure: k7316 o|inlining procedure: k7394 o|inlining procedure: k7394 o|inlining procedure: k7403 o|inlining procedure: k7403 o|inlining procedure: k7468 o|inlining procedure: k7488 o|inlining procedure: k7488 o|contracted procedure: "(optimizer.scm:947) g15341535" o|contracted procedure: "(optimizer.scm:949) g15391540" o|inlining procedure: k7536 o|inlining procedure: k7548 o|contracted procedure: "(optimizer.scm:945) g15281529" o|inlining procedure: k7548 o|contracted procedure: "(optimizer.scm:944) g15251526" o|contracted procedure: "(optimizer.scm:944) g15221523" o|contracted procedure: "(optimizer.scm:943) g15181519" o|inlining procedure: k7536 o|contracted procedure: "(optimizer.scm:942) g15141515" o|contracted procedure: "(optimizer.scm:938) g15041505" o|inlining procedure: k7468 o|inlining procedure: k7624 o|inlining procedure: k7633 o|contracted procedure: "(optimizer.scm:959) g15551556" o|contracted procedure: "(optimizer.scm:963) g15601561" o|inlining procedure: k7633 o|contracted procedure: "(optimizer.scm:956) g15471548" o|inlining procedure: k7624 o|inlining procedure: k7696 o|inlining procedure: k7705 o|contracted procedure: "(optimizer.scm:973) g15761577" o|contracted procedure: "(optimizer.scm:974) g15811582" o|inlining procedure: k7705 o|contracted procedure: "(optimizer.scm:969) g15671568" o|inlining procedure: k7696 o|inlining procedure: k7794 o|inlining procedure: k7800 o|contracted procedure: "(optimizer.scm:983) g15931594" o|contracted procedure: "(optimizer.scm:982) g15901591" o|inlining procedure: k7800 o|substituted constant variable: a7859 o|inlining procedure: k7794 o|inlining procedure: k7864 o|inlining procedure: k7873 o|inlining procedure: k7890 o|contracted procedure: "(optimizer.scm:998) g16091610" o|contracted procedure: "(optimizer.scm:1000) g16141615" o|inlining procedure: k7890 o|substituted constant variable: a7951 o|inlining procedure: k7873 o|contracted procedure: "(optimizer.scm:994) g16001601" o|inlining procedure: k7864 o|inlining procedure: k7962 o|inlining procedure: k7974 o|contracted procedure: "(optimizer.scm:1010) g16291630" o|contracted procedure: "(optimizer.scm:1012) g16341635" o|contracted procedure: "(optimizer.scm:1013) g16391640" o|contracted procedure: "(optimizer.scm:1009) g16261627" o|inlining procedure: k7974 o|substituted constant variable: a8043 o|inlining procedure: k7962 o|inlining procedure: k8048 o|inlining procedure: k8063 o|inlining procedure: k8072 o|contracted procedure: "(optimizer.scm:1022) g16541655" o|contracted procedure: "(optimizer.scm:1024) g16591660" o|inlining procedure: k8072 o|contracted procedure: "(optimizer.scm:1021) g16511652" o|inlining procedure: k8063 o|inlining procedure: k8048 o|inlining procedure: k8144 o|contracted procedure: "(optimizer.scm:1031) g16661667" o|inlining procedure: k8144 o|inlining procedure: k8164 o|inlining procedure: k8173 o|contracted procedure: "(optimizer.scm:1040) g16761677" o|inlining procedure: k8210 o|contracted procedure: "(optimizer.scm:1047) g17491750" o|contracted procedure: "(optimizer.scm:1048) g17541755" o|contracted procedure: "(optimizer.scm:1057) g17621763" o|inlining procedure: k8301 o|inlining procedure: k8301 o|inlining procedure: k8316 o|inlining procedure: k8316 o|inlining procedure: k8350 o|contracted procedure: "(optimizer.scm:1044) g17001709" o|inlining procedure: k8350 o|inlining procedure: k8210 o|inlining procedure: k8384 o|inlining procedure: k8384 o|substituted constant variable: a8413 o|inlining procedure: k8173 o|contracted procedure: "(optimizer.scm:1038) g16731674" o|inlining procedure: k8164 o|inlining procedure: k8420 o|inlining procedure: k8432 o|contracted procedure: "(optimizer.scm:1068) g17781779" o|inlining procedure: k8481 o|inlining procedure: k8481 o|inlining procedure: k8432 o|contracted procedure: "(optimizer.scm:1065) g17731774" o|inlining procedure: k8420 o|inlining procedure: k8507 o|inlining procedure: k8516 o|inlining procedure: k8537 o|contracted procedure: "(optimizer.scm:1086) g17971798" o|inlining procedure: k8537 o|contracted procedure: "(optimizer.scm:1082) g17891790" o|inlining procedure: k8516 o|inlining procedure: k8507 o|inlining procedure: k8588 o|inlining procedure: k8602 o|inlining procedure: k8620 o|contracted procedure: "(optimizer.scm:1100) g18191820" o|inlining procedure: k8620 o|contracted procedure: "(optimizer.scm:1101) g18241825" o|substituted constant variable: a8667 o|inlining procedure: k8602 o|contracted procedure: "(optimizer.scm:1095) g18041805" o|inlining procedure: k8588 o|inlining procedure: k8672 o|inlining procedure: k8681 o|inlining procedure: k8701 o|contracted procedure: "(optimizer.scm:1113) g18401841" o|contracted procedure: "(optimizer.scm:1114) g18451846" o|inlining procedure: k8701 o|inlining procedure: k8681 o|contracted procedure: "(optimizer.scm:1109) g18311832" o|inlining procedure: k8672 o|inlining procedure: k8755 o|inlining procedure: k8764 o|inlining procedure: k8781 o|contracted procedure: "(optimizer.scm:1124) g18611862" o|contracted procedure: "(optimizer.scm:1127) g18661867" o|inlining procedure: k8820 o|inlining procedure: k8820 o|inlining procedure: k8781 o|inlining procedure: k8764 o|contracted procedure: "(optimizer.scm:1121) g18531854" o|inlining procedure: k8755 o|inlining procedure: k8840 o|inlining procedure: k8849 o|inlining procedure: k8861 o|contracted procedure: "(optimizer.scm:1140) g18851886" o|inlining procedure: k8906 o|contracted procedure: "(optimizer.scm:1143) g18901891" o|inlining procedure: k8906 o|inlining procedure: k8861 o|contracted procedure: "(optimizer.scm:1138) g18781879" o|propagated global variable: tmp18741876 unsafe o|propagated global variable: tmp18741876 unsafe o|inlining procedure: k8849 o|substituted constant variable: a8939 o|inlining procedure: k8840 o|inlining procedure: k8965 o|inlining procedure: k8977 o|contracted procedure: "(optimizer.scm:1165) g19141915" o|contracted procedure: "(optimizer.scm:1168) g19191920" o|inlining procedure: k9028 o|inlining procedure: k9028 o|inlining procedure: k9069 o|substituted constant variable: a9077 o|inlining procedure: k9069 o|propagated global variable: tmp19111913 unsafe o|propagated global variable: tmp19111913 unsafe o|inlining procedure: k8977 o|contracted procedure: "(optimizer.scm:1163) g19071908" o|inlining procedure: k8965 o|inlining procedure: k9091 o|inlining procedure: k9100 o|contracted procedure: "(optimizer.scm:1184) g19361937" o|contracted procedure: "(optimizer.scm:1187) g19411942" o|inlining procedure: k9147 o|inlining procedure: k9147 o|contracted procedure: "(optimizer.scm:1183) g19331934" o|inlining procedure: k9100 o|inlining procedure: k9091 o|inlining procedure: k9180 o|inlining procedure: k9189 o|contracted procedure: "(optimizer.scm:1198) g19531954" o|inlining procedure: k9189 o|contracted procedure: "(optimizer.scm:1197) g19501951" o|inlining procedure: k9180 o|inlining procedure: k9224 o|inlining procedure: k9233 o|contracted procedure: "(optimizer.scm:1216) g19781979" o|inlining procedure: k9279 o|contracted procedure: "(optimizer.scm:1218) g19831984" o|inlining procedure: k9279 o|contracted procedure: "(optimizer.scm:1220) g19911992" o|contracted procedure: "(optimizer.scm:1226) g19981999" o|inlining procedure: k9361 o|contracted procedure: "(optimizer.scm:1214) g19711972" o|inlining procedure: k9361 o|contracted procedure: "(optimizer.scm:1213) g19681969" o|inlining procedure: k9233 o|contracted procedure: "(optimizer.scm:1207) g19601961" o|inlining procedure: k9224 o|inlining procedure: k9407 o|inlining procedure: k9419 o|contracted procedure: "(optimizer.scm:1237) g20142015" o|contracted procedure: "(optimizer.scm:1240) g20192020" o|contracted procedure: "(optimizer.scm:1236) g20112012" o|inlining procedure: k9419 o|inlining procedure: k9407 o|inlining procedure: k9503 o|inlining procedure: k9512 o|contracted procedure: "(optimizer.scm:1265) g20542055" o|inlining procedure: k9564 o|contracted procedure: "(optimizer.scm:1267) g20592060" o|inlining procedure: k9564 o|contracted procedure: "(optimizer.scm:1269) g20642065" o|inlining procedure: k9611 o|contracted procedure: "(optimizer.scm:1276) g20712072" o|inlining procedure: k9611 o|contracted procedure: "(optimizer.scm:1277) g20762077" o|inlining procedure: k9656 o|contracted procedure: "(optimizer.scm:1263) g20472048" o|inlining procedure: k9656 o|contracted procedure: "(optimizer.scm:1262) g20442045" o|inlining procedure: k9512 o|contracted procedure: "(optimizer.scm:1254) g20342035" o|inlining procedure: k9503 o|inlining procedure: k9707 o|inlining procedure: k9716 o|contracted procedure: "(optimizer.scm:1290) g20942095" o|inlining procedure: k9753 o|contracted procedure: "(optimizer.scm:1294) g20992100" o|inlining procedure: k9753 o|contracted procedure: "(optimizer.scm:1298) g21042105" o|inlining procedure: k9716 o|contracted procedure: "(optimizer.scm:1288) g20872088" o|inlining procedure: k9707 o|inlining procedure: k9791 o|inlining procedure: k9800 o|contracted procedure: "(optimizer.scm:1312) g21162117" o|inlining procedure: k9867 o|contracted procedure: "(optimizer.scm:1325) defarg1485" o|inlining procedure: k7435 o|inlining procedure: k7435 o|inlining procedure: k9867 o|inlining procedure: k9800 o|contracted procedure: "(optimizer.scm:1309) g21112112" o|inlining procedure: k9791 o|substituted constant variable: a9936 o|substituted constant variable: a9938 o|substituted constant variable: a9940 o|substituted constant variable: a9942 o|substituted constant variable: a9944 o|substituted constant variable: a9946 o|substituted constant variable: a9948 o|substituted constant variable: a9950 o|substituted constant variable: a9952 o|substituted constant variable: a9954 o|substituted constant variable: a9956 o|substituted constant variable: a9958 o|substituted constant variable: a9960 o|substituted constant variable: a9962 o|substituted constant variable: a9964 o|substituted constant variable: a9966 o|substituted constant variable: a9968 o|substituted constant variable: a9970 o|substituted constant variable: a9972 o|substituted constant variable: a9974 o|substituted constant variable: a9976 o|substituted constant variable: a9978 o|substituted constant variable: a9980 o|inlining procedure: k10011 o|inlining procedure: k10036 o|contracted procedure: k10044 o|inlining procedure: k10047 o|inlining procedure: k10062 o|inlining procedure: k10071 o|contracted procedure: k10080 o|inlining procedure: k10083 o|inlining procedure: k10083 o|contracted procedure: "(optimizer.scm:1362) g21792180" o|contracted procedure: "(optimizer.scm:1363) g21832184" o|inlining procedure: k10071 o|inlining procedure: k10062 o|inlining procedure: k10047 o|inlining procedure: k10036 o|inlining procedure: k10011 o|inlining procedure: k10155 o|inlining procedure: k10155 o|inlining procedure: k10193 o|inlining procedure: k10193 o|substituted constant variable: a10214 o|substituted constant variable: a10216 o|substituted constant variable: a10218 o|contracted procedure: "(optimizer.scm:1350) g21662167" o|contracted procedure: "(optimizer.scm:1349) g21572158" o|contracted procedure: "(optimizer.scm:1348) g21542155" o|inlining procedure: k10249 o|inlining procedure: k10267 o|inlining procedure: k10267 o|contracted procedure: k10273 o|inlining procedure: k10249 o|inlining procedure: k10294 o|inlining procedure: k10294 o|inlining procedure: k10322 o|contracted procedure: k10331 o|inlining procedure: k10322 o|inlining procedure: k10357 o|inlining procedure: k10363 o|inlining procedure: k10363 o|inlining procedure: k10357 o|inlining procedure: k10381 o|contracted procedure: k10411 o|inlining procedure: k10408 o|inlining procedure: k10408 o|inlining procedure: k10381 o|inlining procedure: k10428 o|inlining procedure: k10428 o|contracted procedure: k10452 o|inlining procedure: k10449 o|inlining procedure: k10449 o|inlining procedure: k10463 o|inlining procedure: k10478 o|inlining procedure: k10478 o|inlining procedure: k10501 o|contracted procedure: "(optimizer.scm:1432) g22912292" o|contracted procedure: "(optimizer.scm:1431) g22882289" o|inlining procedure: k10501 o|contracted procedure: "(optimizer.scm:1427) g22792280" o|contracted procedure: "(optimizer.scm:1426) g22742275" o|inlining procedure: k10463 o|inlining procedure: k10576 o|inlining procedure: k10576 o|contracted procedure: k10582 o|inlining procedure: k10598 o|inlining procedure: k10598 o|inlining procedure: k10621 o|inlining procedure: k10621 o|substituted constant variable: a10656 o|substituted constant variable: a10658 o|substituted constant variable: a10660 o|substituted constant variable: a10662 o|substituted constant variable: a10664 o|substituted constant variable: a10666 o|substituted constant variable: a10668 o|substituted constant variable: a10670 o|substituted constant variable: a10672 o|substituted constant variable: a10674 o|contracted procedure: "(optimizer.scm:1381) g22322233" o|contracted procedure: "(optimizer.scm:1380) g22232224" o|contracted procedure: "(optimizer.scm:1379) g22202221" o|inlining procedure: k10678 o|inlining procedure: k10678 o|contracted procedure: "(optimizer.scm:1541) g24722473" o|contracted procedure: "(optimizer.scm:1531) g24672468" o|contracted procedure: "(optimizer.scm:1530) g24632464" o|inlining procedure: k10715 o|inlining procedure: k10894 o|contracted procedure: "(optimizer.scm:1562) g25212528" o|contracted procedure: "(optimizer.scm:1566) g25352536" o|contracted procedure: "(optimizer.scm:1566) g25322533" o|inlining procedure: k10894 o|contracted procedure: "(optimizer.scm:1554) g24952496" o|contracted procedure: "(optimizer.scm:1557) g25042505" o|contracted procedure: "(optimizer.scm:1557) g25152516" o|contracted procedure: "(optimizer.scm:1557) g25122513" o|contracted procedure: "(optimizer.scm:1557) g25092510" o|contracted procedure: "(optimizer.scm:1556) g25012502" o|contracted procedure: "(optimizer.scm:1549) g24872488" o|inlining procedure: k10993 o|inlining procedure: k10993 o|inlining procedure: k11058 o|inlining procedure: k11092 o|contracted procedure: "(optimizer.scm:1507) g23902391" o|contracted procedure: "(optimizer.scm:1504) g23872388" o|contracted procedure: "(optimizer.scm:1498) g23842385" o|inlining procedure: k11144 o|inlining procedure: k11144 o|inlining procedure: k11092 o|contracted procedure: "(optimizer.scm:1484) g23632364" o|contracted procedure: "(optimizer.scm:1483) g23602361" o|contracted procedure: "(optimizer.scm:1482) g23562357" o|inlining procedure: k11058 o|inlining procedure: k11291 o|inlining procedure: k11291 o|inlining procedure: k11317 o|inlining procedure: k11317 o|inlining procedure: k11346 o|inlining procedure: k11346 o|substituted constant variable: a11367 o|substituted constant variable: a11369 o|contracted procedure: "(optimizer.scm:1478) g23502351" o|contracted procedure: "(optimizer.scm:1477) g23412342" o|contracted procedure: "(optimizer.scm:1476) g23382339" o|contracted procedure: "(optimizer.scm:1475) g24452446" o|inlining procedure: k10715 o|inlining procedure: k11389 o|inlining procedure: k11389 o|substituted constant variable: a11404 o|contracted procedure: "(optimizer.scm:1460) g23192320" o|inlining procedure: k11453 o|substituted constant variable: a11475 o|inlining procedure: k11453 o|inlining procedure: k11537 o|inlining procedure: k11566 o|inlining procedure: k11566 o|inlining procedure: k11596 o|inlining procedure: k11614 o|contracted procedure: "(optimizer.scm:1633) user-lambda?2566" o|inlining procedure: k11479 o|contracted procedure: "(optimizer.scm:1608) g25752576" o|inlining procedure: k11479 o|contracted procedure: "(optimizer.scm:1607) g25722573" o|inlining procedure: k11614 o|inlining procedure: k11641 o|inlining procedure: k11641 o|inlining procedure: k11648 o|inlining procedure: k11648 o|contracted procedure: "(optimizer.scm:1629) g26242625" o|contracted procedure: "(optimizer.scm:1627) g26202621" o|contracted procedure: "(optimizer.scm:1626) g26172618" o|inlining procedure: k11596 o|contracted procedure: "(optimizer.scm:1625) g26122613" o|contracted procedure: k11687 o|contracted procedure: "(optimizer.scm:1620) g26062607" o|inlining procedure: k11537 o|inlining procedure: k11765 o|inlining procedure: k11765 o|substituted constant variable: a11789 o|substituted constant variable: a11791 o|substituted constant variable: a11793 o|contracted procedure: "(optimizer.scm:1613) g25892590" o|contracted procedure: "(optimizer.scm:1612) g25862587" o|contracted procedure: "(optimizer.scm:1611) g25832584" o|contracted procedure: "(optimizer.scm:1684) g27772778" o|contracted procedure: "(optimizer.scm:1680) g27742775" o|inlining procedure: k11883 o|inlining procedure: k11883 o|contracted procedure: "(optimizer.scm:1674) g27382739" o|contracted procedure: "(optimizer.scm:1673) g27342735" o|contracted procedure: "(optimizer.scm:1672) g27302731" o|contracted procedure: "(optimizer.scm:1762) g29492950" o|contracted procedure: "(optimizer.scm:1763) g29542955" o|contracted procedure: "(optimizer.scm:1760) g29462947" o|inlining procedure: k12047 o|inlining procedure: k12047 o|inlining procedure: k12077 o|inlining procedure: k12077 o|inlining procedure: k12103 o|inlining procedure: k12103 o|contracted procedure: "(optimizer.scm:1708) g28672868" o|contracted procedure: "(optimizer.scm:1713) g28772878" o|contracted procedure: "(optimizer.scm:1745) g29102911" o|contracted procedure: "(optimizer.scm:1716) g28822883" o|contracted procedure: "(optimizer.scm:1719) g28872888" o|contracted procedure: "(optimizer.scm:1724) g28922893" o|contracted procedure: "(optimizer.scm:1741) g29072908" o|inlining procedure: k12290 o|inlining procedure: k12290 o|contracted procedure: "(optimizer.scm:1736) g29012902" o|contracted procedure: "(optimizer.scm:1712) g28722873" o|contracted procedure: "(optimizer.scm:1704) g28642865" o|contracted procedure: "(optimizer.scm:1703) g28612862" o|contracted procedure: "(optimizer.scm:1702) g28572858" o|contracted procedure: "(optimizer.scm:1701) g28532854" o|inlining procedure: k12410 o|inlining procedure: k12410 o|inlining procedure: k12477 o|contracted procedure: "(optimizer.scm:1689) g28012810" o|inlining procedure: k12477 o|inlining procedure: k12511 o|inlining procedure: k12511 o|inlining procedure: k12558 o|inlining procedure: k12558 o|inlining procedure: k12600 o|inlining procedure: k12609 o|contracted procedure: "(optimizer.scm:802) g12641265" o|contracted procedure: "(optimizer.scm:806) g12691270" o|contracted procedure: "(optimizer.scm:811) g12761277" o|contracted procedure: "(optimizer.scm:814) g12811282" o|inlining procedure: k12609 o|inlining procedure: k12600 o|inlining procedure: k12733 o|contracted procedure: "(optimizer.scm:783) g12411242" o|contracted procedure: "(optimizer.scm:786) g12461247" o|inlining procedure: k12733 o|contracted procedure: k12819 o|inlining procedure: k12816 o|inlining procedure: k12816 o|contracted procedure: "(optimizer.scm:763) g12191220" o|contracted procedure: "(optimizer.scm:765) g12241225" o|substituted constant variable: a12853 o|inlining procedure: k12939 o|contracted procedure: k12954 o|inlining procedure: k12951 o|inlining procedure: k12951 o|contracted procedure: k12960 o|inlining procedure: k12990 o|inlining procedure: k12990 o|inlining procedure: k13018 o|inlining procedure: k13070 o|contracted procedure: "(optimizer.scm:725) g11991200" o|inlining procedure: k13070 o|inlining procedure: k13130 o|inlining procedure: k13130 o|inlining procedure: k13136 o|contracted procedure: k13145 o|contracted procedure: k13151 o|inlining procedure: k13148 o|inlining procedure: k13148 o|inlining procedure: k13160 o|contracted procedure: "(optimizer.scm:724) g11961197" o|inlining procedure: k13160 o|contracted procedure: "(optimizer.scm:723) g11931194" o|inlining procedure: k13136 o|contracted procedure: "(optimizer.scm:717) g11801181" o|contracted procedure: "(optimizer.scm:716) g11771178" o|contracted procedure: "(optimizer.scm:715) g11741175" o|inlining procedure: k13018 o|substituted constant variable: a13226 o|substituted constant variable: a13228 o|contracted procedure: "(optimizer.scm:706) g11611162" o|contracted procedure: "(optimizer.scm:705) g11521153" o|contracted procedure: "(optimizer.scm:704) g11481149" o|inlining procedure: k12939 o|contracted procedure: "(optimizer.scm:698) g11391140" o|contracted procedure: "(optimizer.scm:697) g11361137" o|contracted procedure: "(optimizer.scm:696) g11331134" o|inlining procedure: k13264 o|inlining procedure: k13276 o|contracted procedure: "(optimizer.scm:673) g11161117" o|inlining procedure: k13276 o|substituted constant variable: a13310 o|inlining procedure: k13264 o|inlining procedure: k13394 o|inlining procedure: k13406 o|inlining procedure: k13418 o|contracted procedure: "(optimizer.scm:648) g10961097" o|inlining procedure: k13418 o|substituted constant variable: a13448 o|substituted constant variable: a13457 o|inlining procedure: k13406 o|inlining procedure: k13394 o|inlining procedure: k13578 o|inlining procedure: k13578 o|inlining procedure: k13595 o|inlining procedure: k13595 o|replaced variables: 1983 o|removed binding forms: 607 o|substituted constant variable: c101 o|substituted constant variable: p102 o|substituted constant variable: s103 o|substituted constant variable: tmp131134 o|substituted constant variable: mark133 o|substituted constant variable: r425613678 o|substituted constant variable: r424413681 o|inlining procedure: k4388 o|substituted constant variable: c302 o|inlining procedure: k4388 o|substituted constant variable: r450913696 o|inlining procedure: k4388 o|inlining procedure: k4388 o|substituted constant variable: mark365 o|substituted constant variable: c391 o|substituted constant variable: r485613711 o|substituted constant variable: c442 o|substituted constant variable: c458 o|substituted constant variable: c565 o|substituted constant variable: c570 o|substituted constant variable: p571 o|substituted constant variable: s572 o|converted assignments to bindings: (cfk642) o|substituted constant variable: c704 o|substituted constant variable: c711 o|substituted constant variable: c730 o|substituted constant variable: c762 o|substituted constant variable: r570613743 o|substituted constant variable: mark612 o|substituted constant variable: r569413747 o|substituted constant variable: mark594 o|substituted constant variable: c791 o|substituted constant variable: r579813750 o|substituted constant variable: r590813754 o|substituted constant variable: r588113756 o|substituted constant variable: r586913757 o|substituted constant variable: r585413758 o|substituted constant variable: mark534 o|substituted constant variable: r598813759 o|substituted constant variable: c798 o|substituted constant variable: c843 o|substituted constant variable: p844 o|substituted constant variable: s845 o|substituted constant variable: c850 o|substituted constant variable: p851 o|substituted constant variable: s852 o|substituted constant variable: c862 o|substituted constant variable: p863 o|substituted constant variable: s864 o|substituted constant variable: c870 o|substituted constant variable: r629513778 o|substituted constant variable: r671113796 o|substituted constant variable: r677113800 o|substituted constant variable: r676213801 o|substituted constant variable: sym967 o|substituted constant variable: r689613804 o|substituted constant variable: r697813808 o|substituted constant variable: r702313810 o|substituted constant variable: c1426 o|substituted constant variable: c1434 o|substituted constant variable: c1439 o|substituted constant variable: p1440 o|substituted constant variable: s1441 o|substituted constant variable: c1446 o|substituted constant variable: c1451 o|converted assignments to bindings: (find-path1334) o|substituted constant variable: r740413827 o|substituted constant variable: c1536 o|substituted constant variable: c1541 o|substituted constant variable: c1530 o|substituted constant variable: r754913833 o|substituted constant variable: r753713834 o|substituted constant variable: c1557 o|substituted constant variable: c1562 o|substituted constant variable: r763413838 o|substituted constant variable: r762513839 o|substituted constant variable: c1578 o|substituted constant variable: c1583 o|substituted constant variable: r770613842 o|substituted constant variable: c1595 o|substituted constant variable: r780113846 o|substituted constant variable: r779513847 o|substituted constant variable: c1611 o|substituted constant variable: c1616 o|substituted constant variable: r789113851 o|substituted constant variable: r787413852 o|substituted constant variable: c1631 o|substituted constant variable: c1636 o|substituted constant variable: c1641 o|substituted constant variable: r797513856 o|substituted constant variable: r796313857 o|substituted constant variable: c1656 o|substituted constant variable: c1661 o|substituted constant variable: r807313861 o|substituted constant variable: r806413862 o|substituted constant variable: r814513865 o|substituted constant variable: c1678 o|substituted constant variable: c1751 o|substituted constant variable: c1756 o|substituted constant variable: c1764 o|substituted constant variable: r821113877 o|substituted constant variable: r817413880 o|substituted constant variable: c1780 o|substituted constant variable: r843313888 o|substituted constant variable: r842113889 o|substituted constant variable: c1799 o|substituted constant variable: r853813893 o|substituted constant variable: r851713894 o|substituted constant variable: c1821 o|substituted constant variable: c1826 o|substituted constant variable: r860313900 o|substituted constant variable: r858913901 o|substituted constant variable: c1842 o|substituted constant variable: c1847 o|substituted constant variable: s1849 o|substituted constant variable: r870213905 o|substituted constant variable: r868213906 o|substituted constant variable: c1863 o|substituted constant variable: c1868 o|substituted constant variable: r878213915 o|substituted constant variable: r876513916 o|substituted constant variable: r875613917 o|substituted constant variable: c1887 o|substituted constant variable: c1892 o|substituted constant variable: r890713922 o|substituted constant variable: r886213923 o|substituted constant variable: r885013924 o|substituted constant variable: c1916 o|substituted constant variable: c1921 o|inlining procedure: k9028 o|substituted constant variable: r907013933 o|substituted constant variable: r897813934 o|substituted constant variable: r896613935 o|substituted constant variable: c1938 o|substituted constant variable: c1943 o|substituted constant variable: r910113942 o|substituted constant variable: c1955 o|substituted constant variable: r919013946 o|substituted constant variable: r918113947 o|substituted constant variable: c1980 o|substituted constant variable: c1985 o|substituted constant variable: c1993 o|substituted constant variable: c2000 o|substituted constant variable: r936213953 o|substituted constant variable: r923413954 o|substituted constant variable: c2016 o|substituted constant variable: c2021 o|substituted constant variable: r942013958 o|substituted constant variable: r940813959 o|substituted constant variable: c2056 o|substituted constant variable: c2061 o|substituted constant variable: c2066 o|substituted constant variable: c2073 o|substituted constant variable: c2078 o|substituted constant variable: r965713967 o|substituted constant variable: r951313968 o|substituted constant variable: c2096 o|substituted constant variable: c2101 o|substituted constant variable: c2106 o|substituted constant variable: r971713976 o|substituted constant variable: r970813977 o|substituted constant variable: c2118 o|substituted constant variable: r980113984 o|substituted constant variable: r1008413992 o|substituted constant variable: mark2182 o|substituted constant variable: r1007213993 o|substituted constant variable: r1006313994 o|substituted constant variable: r1004813995 o|substituted constant variable: r1003713996 o|substituted constant variable: r1029514007 o|substituted constant variable: r1036414011 o|substituted constant variable: r1036414012 o|substituted constant variable: r1035814013 o|substituted constant variable: r1040914015 o|substituted constant variable: r1040914016 o|substituted constant variable: r1042914019 o|substituted constant variable: r1045014020 o|substituted constant variable: r1045014021 o|substituted constant variable: r1047914024 o|substituted constant variable: r1050214025 o|inlining procedure: k10510 o|inlining procedure: k10510 o|substituted constant variable: r1050214026 o|substituted constant variable: r1062214033 o|substituted constant variable: r1067914035 o|substituted constant variable: c2474 o|substituted constant variable: c2537 o|substituted constant variable: p2538 o|substituted constant variable: s2539 o|substituted constant variable: c2497 o|substituted constant variable: c2489 o|substituted constant variable: p2490 o|substituted constant variable: s2491 o|substituted constant variable: c2392 o|substituted constant variable: r1139014055 o|inlining procedure: k11459 o|inlining procedure: k11459 o|substituted constant variable: r1148014064 o|substituted constant variable: r1161514065 o|substituted constant variable: r1164214068 o|substituted constant variable: r1164214068 o|folded constant expression: (length (quote ())) o|substituted constant variable: r1164914072 o|substituted constant variable: r1164914072 o|folded constant expression: (length (quote ())) o|substituted constant variable: r1159714074 o|substituted constant variable: c2779 o|substituted constant variable: p2780 o|substituted constant variable: s2781 o|substituted constant variable: c2951 o|substituted constant variable: c2869 o|substituted constant variable: c2879 o|substituted constant variable: c2912 o|substituted constant variable: p2913 o|substituted constant variable: c2884 o|substituted constant variable: c2889 o|substituted constant variable: c2894 o|substituted constant variable: c2903 o|substituted constant variable: c2874 o|substituted constant variable: p2875 o|substituted constant variable: s2876 o|substituted constant variable: c1266 o|substituted constant variable: c1271 o|substituted constant variable: c1278 o|substituted constant variable: p1279 o|substituted constant variable: c1283 o|substituted constant variable: r1261014098 o|substituted constant variable: r1260114099 o|substituted constant variable: c1243 o|substituted constant variable: c1248 o|substituted constant variable: p1249 o|substituted constant variable: r1273414101 o|substituted constant variable: r1281714102 o|substituted constant variable: c1221 o|substituted constant variable: c1226 o|substituted constant variable: r1295214105 o|substituted constant variable: r1313114113 o|substituted constant variable: r1314914115 o|substituted constant variable: r1316114118 o|substituted constant variable: r1313714119 o|substituted constant variable: r1301914120 o|substituted constant variable: r1294014121 o|substituted constant variable: c1118 o|substituted constant variable: r1327714124 o|substituted constant variable: r1326514125 o|substituted constant variable: c1098 o|substituted constant variable: p1099 o|substituted constant variable: r1341914129 o|substituted constant variable: r1340714130 o|substituted constant variable: r1339514131 o|substituted constant variable: r1357914132 o|simplifications: ((let . 2)) o|replaced variables: 164 o|removed binding forms: 1872 o|inlining procedure: k4083 o|inlining procedure: k4264 o|inlining procedure: k4228 o|inlining procedure: k6145 o|inlining procedure: k6440 o|removed call to pure procedure with unused result: "(optimizer.scm:1044) slot" o|inlining procedure: k9150 o|substituted constant variable: r105021402514222 o|substituted constant variable: r105021402514225 o|inlining procedure: k11634 o|replaced variables: 320 o|removed binding forms: 414 o|substituted constant variable: r408414300 o|substituted constant variable: r422914311 o|substituted constant variable: r422914311 o|substituted constant variable: r422914311 o|contracted procedure: k8375 o|substituted constant variable: r915114356 o|substituted constant variable: r1163514375 o|removed binding forms: 329 o|removed conditional forms: 2 o|inlining procedure: "(optimizer.scm:177) constant-node?165" o|removed binding forms: 5 o|replaced variables: 1 o|removed binding forms: 1 o|simplifications: ((if . 37) (##core#call . 1264)) o| call simplifications: o| ##sys#cons 9 o| assoc o| - o| fx> o| ##sys#list 74 o| list? 3 o| set-car! o| >= o| symbol? o| cddddr o| fx<= o| <= o| fx< o| = 10 o| equal? 4 o| fixnum? o| fx= o| proper-list? 3 o| > 5 o| values 6 o| ##sys#structure? o| * 2 o| length 41 o| < 5 o| zero? 5 o| sub1 5 o| ##sys#call-with-values 5 o| fourth 16 o| + 8 o| cddr 6 o| list 144 o| caddr 2 o| cadr 4 o| third 30 o| ##sys#setslot 15 o| apply 2 o| caar 2 o| assq 10 o| alist-cons 10 o| cdr 32 o| add1 9 o| set-cdr! 3 o| null? 21 o| ##sys#make-structure 99 o| second 45 o| first 94 o| car 26 o| eq? 142 o| ##sys#check-list 21 o| pair? 51 o| ##sys#slot 191 o| memq 14 o| not 21 o| cons 56 o|contracted procedure: k3769 o|contracted procedure: k3779 o|contracted procedure: k3802 o|contracted procedure: k3814 o|contracted procedure: k3824 o|contracted procedure: k3828 o|contracted procedure: k3839 o|contracted procedure: k3847 o|contracted procedure: k3855 o|contracted procedure: k3861 o|contracted procedure: k3864 o|contracted procedure: k3881 o|contracted procedure: k3888 o|contracted procedure: k3902 o|contracted procedure: k3898 o|contracted procedure: k3908 o|contracted procedure: k3928 o|contracted procedure: k3934 o|contracted procedure: k3940 o|contracted procedure: k3964 o|contracted procedure: k3967 o|contracted procedure: k3973 o|contracted procedure: k3982 o|contracted procedure: k3985 o|contracted procedure: k3988 o|contracted procedure: k4006 o|contracted procedure: k4027 o|contracted procedure: k4034 o|contracted procedure: k4053 o|contracted procedure: k4098 o|contracted procedure: k4110 o|contracted procedure: k4120 o|contracted procedure: k4124 o|contracted procedure: k4089 o|contracted procedure: k4083 o|contracted procedure: k4127 o|contracted procedure: k4163 o|contracted procedure: k4193 o|contracted procedure: k4205 o|contracted procedure: k4219 o|contracted procedure: k4208 o|contracted procedure: k4215 o|contracted procedure: k4240 o|contracted procedure: k4258 o|contracted procedure: k4261 o|contracted procedure: k4281 o|contracted procedure: k4277 o|contracted procedure: k4264 o|contracted procedure: k4285 o|contracted procedure: k4289 o|contracted procedure: k4293 o|contracted procedure: k4302 o|contracted procedure: k4305 o|contracted procedure: k4317 o|contracted procedure: k4320 o|contracted procedure: k4323 o|contracted procedure: k4331 o|contracted procedure: k4339 o|contracted procedure: k4353 o|contracted procedure: k4362 o|contracted procedure: k4377 o|contracted procedure: k4385 o|contracted procedure: k4391 o|contracted procedure: k4401 o|contracted procedure: k4411 o|contracted procedure: k4178 o|contracted procedure: k4426 o|contracted procedure: k416314502 o|contracted procedure: k4432 o|contracted procedure: k4542 o|contracted procedure: k4538 o|contracted procedure: k4438 o|contracted procedure: k4527 o|contracted procedure: k4441 o|contracted procedure: k4454 o|contracted procedure: k4489 o|contracted procedure: k4497 o|contracted procedure: k4493 o|contracted procedure: k4518 o|contracted procedure: k4577 o|contracted procedure: k4585 o|contracted procedure: k4593 o|contracted procedure: k4599 o|contracted procedure: k4630 o|contracted procedure: k4621 o|contracted procedure: k4702 o|contracted procedure: k4653 o|contracted procedure: k4661 o|contracted procedure: k4683 o|contracted procedure: k4647 o|contracted procedure: k4708 o|contracted procedure: k4714 o|contracted procedure: k4717 o|contracted procedure: k4733 o|contracted procedure: k4740 o|contracted procedure: k4755 o|contracted procedure: k4772 o|contracted procedure: k4775 o|contracted procedure: k4778 o|contracted procedure: k4786 o|contracted procedure: k4794 o|contracted procedure: k4816 o|contracted procedure: k4807 o|contracted procedure: k4852 o|contracted procedure: k4848 o|contracted procedure: k4821 o|contracted procedure: k4837 o|contracted procedure: k4828 o|contracted procedure: k4871 o|contracted procedure: k4874 o|contracted procedure: k4943 o|contracted procedure: k4947 o|contracted procedure: k4955 o|contracted procedure: k4923 o|contracted procedure: k4927 o|contracted procedure: k4935 o|contracted procedure: k4939 o|contracted procedure: k4968 o|contracted procedure: k5024 o|contracted procedure: k5028 o|contracted procedure: k5036 o|contracted procedure: k5004 o|contracted procedure: k5008 o|contracted procedure: k5016 o|contracted procedure: k5020 o|contracted procedure: k5040 o|contracted procedure: k5047 o|contracted procedure: k5053 o|contracted procedure: k5062 o|contracted procedure: k5065 o|contracted procedure: k5073 o|contracted procedure: k5079 o|contracted procedure: k6039 o|contracted procedure: k5082 o|contracted procedure: k5103 o|contracted procedure: k5106 o|contracted procedure: k5123 o|contracted procedure: k5146 o|contracted procedure: k5137 o|contracted procedure: k5155 o|contracted procedure: k5165 o|contracted procedure: k5169 o|contracted procedure: k5190 o|contracted procedure: k5198 o|contracted procedure: k5207 o|contracted procedure: k5194 o|contracted procedure: k5221 o|contracted procedure: k5224 o|contracted procedure: k5233 o|contracted procedure: k5241 o|contracted procedure: k5258 o|contracted procedure: k5308 o|contracted procedure: k5299 o|contracted procedure: k5317 o|contracted procedure: k5327 o|contracted procedure: k5331 o|contracted procedure: k5335 o|contracted procedure: k5339 o|contracted procedure: k5538 o|contracted procedure: k5351 o|contracted procedure: k5366 o|contracted procedure: k5369 o|contracted procedure: k5375 o|contracted procedure: k5383 o|contracted procedure: k5406 o|contracted procedure: k5409 o|contracted procedure: k5412 o|contracted procedure: k5420 o|contracted procedure: k5428 o|contracted procedure: k5465 o|contracted procedure: k5469 o|contracted procedure: k5483 o|contracted procedure: k5500 o|contracted procedure: k5506 o|contracted procedure: k5517 o|contracted procedure: k5521 o|contracted procedure: k5525 o|contracted procedure: k5531 o|contracted procedure: k5677 o|contracted procedure: k5553 o|contracted procedure: k5590 o|contracted procedure: k5598 o|contracted procedure: k5579 o|contracted procedure: k5583 o|contracted procedure: k5610 o|contracted procedure: k5613 o|contracted procedure: k5616 o|contracted procedure: k5624 o|contracted procedure: k5632 o|contracted procedure: k5643 o|contracted procedure: k5650 o|contracted procedure: k5673 o|contracted procedure: k5669 o|contracted procedure: k5665 o|contracted procedure: k5690 o|contracted procedure: k5722 o|contracted procedure: k5732 o|contracted procedure: k5776 o|contracted procedure: k5772 o|contracted procedure: k5791 o|contracted procedure: k5782 o|contracted procedure: k5830 o|contracted procedure: k5800 o|contracted procedure: k5821 o|contracted procedure: k5812 o|contracted procedure: k5842 o|contracted procedure: k5981 o|contracted procedure: k5977 o|contracted procedure: k5856 o|contracted procedure: k5966 o|contracted procedure: k5859 o|contracted procedure: k5947 o|contracted procedure: k5874 o|contracted procedure: k5938 o|contracted procedure: k5877 o|contracted procedure: k5929 o|contracted procedure: k6010 o|contracted procedure: k6001 o|contracted procedure: k6045 o|contracted procedure: k6051 o|contracted procedure: k6069 o|contracted procedure: k6073 o|contracted procedure: k6062 o|contracted procedure: k6090 o|contracted procedure: k6093 o|contracted procedure: k6096 o|contracted procedure: k6104 o|contracted procedure: k6112 o|contracted procedure: k6130 o|contracted procedure: k6133 o|contracted procedure: k6277 o|contracted procedure: k6204 o|contracted procedure: k6207 o|contracted procedure: k6256 o|contracted procedure: k6247 o|contracted procedure: k6273 o|contracted procedure: k6264 o|contracted procedure: k6210 o|contracted procedure: k6222 o|contracted procedure: k6232 o|contracted procedure: k6236 o|contracted procedure: k6285 o|contracted procedure: k6288 o|contracted procedure: k6314 o|contracted procedure: k6363 o|contracted procedure: k6400 o|contracted procedure: k6409 o|contracted procedure: k6446 o|contracted procedure: k6452 o|contracted procedure: k6458 o|contracted procedure: k6464 o|contracted procedure: k6501 o|contracted procedure: k6513 o|contracted procedure: k6523 o|contracted procedure: k6527 o|contracted procedure: k6484 o|contracted procedure: k6498 o|propagated global variable: g927929 ##compiler#simplified-ops o|contracted procedure: k6530 o|contracted procedure: k6558 o|contracted procedure: k6574 o|contracted procedure: k6582 o|contracted procedure: k6818 o|contracted procedure: k6814 o|contracted procedure: k6585 o|contracted procedure: k6758 o|contracted procedure: k6600 o|contracted procedure: k6749 o|contracted procedure: k6603 o|contracted procedure: k6611 o|contracted procedure: k6620 o|contracted procedure: k6707 o|contracted procedure: k6632 o|contracted procedure: k6642 o|contracted procedure: k6662 o|contracted procedure: k6658 o|contracted procedure: k6698 o|contracted procedure: k6673 o|contracted procedure: k6689 o|contracted procedure: k6680 o|contracted procedure: k6730 o|contracted procedure: k6713 o|contracted procedure: k6725 o|contracted procedure: k6733 o|contracted procedure: k6740 o|contracted procedure: k6795 o|contracted procedure: k6767 o|contracted procedure: k6790 o|contracted procedure: k6773 o|contracted procedure: k6785 o|contracted procedure: k6824 o|contracted procedure: k6827 o|contracted procedure: k6839 o|contracted procedure: k6849 o|contracted procedure: k6853 o|contracted procedure: k6874 o|contracted procedure: k6877 o|contracted procedure: k6880 o|contracted procedure: k6927 o|contracted procedure: k6923 o|contracted procedure: k6901 o|contracted procedure: k6904 o|contracted procedure: k6910 o|contracted procedure: k6933 o|contracted procedure: k6997 o|contracted procedure: k6971 o|contracted procedure: k6955 o|contracted procedure: k6963 o|contracted procedure: k6993 o|contracted procedure: k7005 o|contracted procedure: k7012 o|contracted procedure: k7040 o|contracted procedure: k7036 o|contracted procedure: k7057 o|contracted procedure: k7072 o|contracted procedure: k7227 o|contracted procedure: k7087 o|contracted procedure: k7090 o|contracted procedure: k7100 o|contracted procedure: k7120 o|contracted procedure: k7116 o|contracted procedure: k7112 o|contracted procedure: k7138 o|contracted procedure: k7151 o|contracted procedure: k7142 o|contracted procedure: k7170 o|contracted procedure: k7187 o|contracted procedure: k7199 o|contracted procedure: k7195 o|contracted procedure: k7191 o|contracted procedure: k7183 o|contracted procedure: k7174 o|contracted procedure: k7206 o|contracted procedure: k7221 o|contracted procedure: k7217 o|contracted procedure: k7213 o|contracted procedure: k7236 o|contracted procedure: k7246 o|contracted procedure: k7250 o|contracted procedure: k7259 o|contracted procedure: k7269 o|contracted procedure: k7273 o|contracted procedure: k7307 o|contracted procedure: k7282 o|contracted procedure: k7292 o|contracted procedure: k7296 o|contracted procedure: k7300 o|contracted procedure: k7304 o|contracted procedure: k7355 o|contracted procedure: k7319 o|contracted procedure: k7345 o|contracted procedure: k7349 o|contracted procedure: k7341 o|contracted procedure: k7322 o|contracted procedure: k7325 o|contracted procedure: k7333 o|contracted procedure: k7337 o|contracted procedure: k7371 o|contracted procedure: k7382 o|contracted procedure: k7391 o|contracted procedure: k7406 o|contracted procedure: k7422 o|contracted procedure: k7429 o|contracted procedure: k7471 o|contracted procedure: k7503 o|contracted procedure: k7524 o|contracted procedure: k7520 o|contracted procedure: k7516 o|contracted procedure: k7507 o|contracted procedure: k7611 o|contracted procedure: k7615 o|contracted procedure: k7527 o|contracted procedure: k7530 o|contracted procedure: k7533 o|contracted procedure: k7607 o|contracted procedure: k7539 o|contracted procedure: k7598 o|contracted procedure: k7545 o|contracted procedure: k7580 o|contracted procedure: k7589 o|contracted procedure: k7551 o|contracted procedure: k7563 o|contracted procedure: k7567 o|contracted procedure: k7621 o|contracted procedure: k7689 o|contracted procedure: k7693 o|contracted procedure: k7630 o|contracted procedure: k7647 o|contracted procedure: k7650 o|contracted procedure: k7653 o|contracted procedure: k7665 o|contracted procedure: k7682 o|contracted procedure: k7678 o|contracted procedure: k7669 o|contracted procedure: k7699 o|contracted procedure: k7785 o|contracted procedure: k7719 o|contracted procedure: k7740 o|contracted procedure: k7744 o|contracted procedure: k7761 o|contracted procedure: k7765 o|contracted procedure: k7757 o|contracted procedure: k7778 o|contracted procedure: k7791 o|contracted procedure: k7861 o|contracted procedure: k7803 o|contracted procedure: k7856 o|contracted procedure: k7826 o|contracted procedure: k7838 o|contracted procedure: k7846 o|contracted procedure: k7830 o|contracted procedure: k7850 o|contracted procedure: k7867 o|contracted procedure: k7953 o|contracted procedure: k7887 o|contracted procedure: k7893 o|contracted procedure: k7896 o|contracted procedure: k7899 o|contracted procedure: k7911 o|contracted procedure: k7928 o|contracted procedure: k7936 o|contracted procedure: k7932 o|contracted procedure: k7924 o|contracted procedure: k7915 o|contracted procedure: k7959 o|contracted procedure: k7965 o|contracted procedure: k7968 o|contracted procedure: k8045 o|contracted procedure: k7977 o|contracted procedure: k8000 o|contracted procedure: k8017 o|contracted procedure: k8038 o|contracted procedure: k8034 o|contracted procedure: k8030 o|contracted procedure: k8021 o|contracted procedure: k8013 o|contracted procedure: k8004 o|contracted procedure: k8051 o|contracted procedure: k8057 o|contracted procedure: k8060 o|contracted procedure: k8133 o|contracted procedure: k8069 o|contracted procedure: k8092 o|contracted procedure: k8129 o|contracted procedure: k8109 o|contracted procedure: k8105 o|contracted procedure: k8096 o|contracted procedure: k8117 o|contracted procedure: k8125 o|contracted procedure: k8141 o|contracted procedure: k8158 o|contracted procedure: k8167 o|contracted procedure: k8410 o|contracted procedure: k8187 o|contracted procedure: k8199 o|contracted procedure: k8203 o|contracted procedure: k8219 o|contracted procedure: k8230 o|contracted procedure: k8233 o|contracted procedure: k8254 o|contracted procedure: k8258 o|contracted procedure: k8271 o|contracted procedure: k8304 o|contracted procedure: k8301 o|contracted procedure: k8279 o|contracted procedure: k8275 o|contracted procedure: k8267 o|contracted procedure: k8297 o|contracted procedure: k8319 o|contracted procedure: k8322 o|contracted procedure: k8325 o|contracted procedure: k8333 o|contracted procedure: k8341 o|contracted procedure: k8353 o|contracted procedure: k8356 o|contracted procedure: k8359 o|contracted procedure: k8367 o|contracted procedure: k8396 o|contracted procedure: k8381 o|contracted procedure: k8390 o|contracted procedure: k8406 o|contracted procedure: k8417 o|contracted procedure: k8426 o|contracted procedure: k8429 o|contracted procedure: k8443 o|contracted procedure: k8461 o|contracted procedure: k8473 o|contracted procedure: k8465 o|contracted procedure: k8484 o|contracted procedure: k8491 o|contracted procedure: k8500 o|contracted procedure: k8510 o|contracted procedure: k8519 o|contracted procedure: k8522 o|contracted procedure: k8540 o|contracted procedure: k8570 o|contracted procedure: k8555 o|contracted procedure: k8577 o|contracted procedure: k8585 o|contracted procedure: k8605 o|contracted procedure: k8608 o|contracted procedure: k8611 o|contracted procedure: k8669 o|contracted procedure: k8617 o|contracted procedure: k8623 o|contracted procedure: k8635 o|contracted procedure: k8639 o|contracted procedure: k8651 o|contracted procedure: k8675 o|contracted procedure: k8695 o|contracted procedure: k8698 o|contracted procedure: k8707 o|contracted procedure: k8736 o|contracted procedure: k8732 o|contracted procedure: k8739 o|contracted procedure: k8752 o|contracted procedure: k8833 o|contracted procedure: k8837 o|contracted procedure: k8761 o|contracted procedure: k8778 o|contracted procedure: k8784 o|contracted procedure: k8787 o|contracted procedure: k8799 o|contracted procedure: k8812 o|contracted procedure: k8803 o|contracted procedure: k8843 o|contracted procedure: k8941 o|contracted procedure: k8852 o|contracted procedure: k8858 o|contracted procedure: k8933 o|contracted procedure: k8875 o|contracted procedure: k8903 o|contracted procedure: k8887 o|contracted procedure: k8929 o|contracted procedure: k8909 o|contracted procedure: k8921 o|contracted procedure: k8925 o|contracted procedure: k8947 o|contracted procedure: k8950 o|contracted procedure: k8953 o|contracted procedure: k8956 o|contracted procedure: k8959 o|contracted procedure: k8971 o|contracted procedure: k8974 o|contracted procedure: k8991 o|contracted procedure: k9003 o|contracted procedure: k9016 o|contracted procedure: k9007 o|contracted procedure: k9031 o|inlining procedure: k9028 o|contracted procedure: k9040 o|contracted procedure: k9053 o|contracted procedure: k9049 o|inlining procedure: k9028 o|contracted procedure: k9056 o|contracted procedure: k9063 o|contracted procedure: k9088 o|contracted procedure: k9081 o|contracted procedure: k9094 o|contracted procedure: k9167 o|contracted procedure: k9171 o|contracted procedure: k9103 o|contracted procedure: k9126 o|contracted procedure: k9143 o|contracted procedure: k9139 o|contracted procedure: k9130 o|contracted procedure: k9163 o|contracted procedure: k9150 o|contracted procedure: k9177 o|contracted procedure: k9186 o|contracted procedure: k9209 o|contracted procedure: k9213 o|contracted procedure: k9221 o|contracted procedure: k9227 o|contracted procedure: k9244 o|contracted procedure: k9247 o|contracted procedure: k9256 o|contracted procedure: k9268 o|contracted procedure: k9272 o|contracted procedure: k9355 o|contracted procedure: k9282 o|contracted procedure: k9294 o|contracted procedure: k9298 o|contracted procedure: k9306 o|contracted procedure: k9309 o|contracted procedure: k9321 o|contracted procedure: k9325 o|contracted procedure: k9344 o|contracted procedure: k9348 o|contracted procedure: k9389 o|contracted procedure: k9364 o|contracted procedure: k9380 o|contracted procedure: k9371 o|contracted procedure: k9401 o|contracted procedure: k9404 o|contracted procedure: k9410 o|contracted procedure: k9413 o|contracted procedure: k9422 o|contracted procedure: k9445 o|contracted procedure: k9498 o|contracted procedure: k9462 o|contracted procedure: k9458 o|contracted procedure: k9449 o|contracted procedure: k9476 o|contracted procedure: k9486 o|contracted procedure: k9494 o|contracted procedure: k9506 o|contracted procedure: k9523 o|contracted procedure: k9529 o|contracted procedure: k9541 o|contracted procedure: k9553 o|contracted procedure: k9557 o|contracted procedure: k9650 o|contracted procedure: k9567 o|contracted procedure: k9579 o|contracted procedure: k9583 o|contracted procedure: k9597 o|contracted procedure: k9601 o|contracted procedure: k9614 o|contracted procedure: k9626 o|contracted procedure: k9630 o|contracted procedure: k9642 o|contracted procedure: k9646 o|contracted procedure: k9684 o|contracted procedure: k9659 o|contracted procedure: k9675 o|contracted procedure: k9666 o|contracted procedure: k9695 o|contracted procedure: k9698 o|contracted procedure: k9701 o|contracted procedure: k9704 o|contracted procedure: k9713 o|contracted procedure: k9730 o|contracted procedure: k9733 o|contracted procedure: k9745 o|contracted procedure: k9749 o|contracted procedure: k9756 o|contracted procedure: k9768 o|contracted procedure: k9788 o|contracted procedure: k9784 o|contracted procedure: k9794 o|contracted procedure: k9811 o|contracted procedure: k9927 o|contracted procedure: k9817 o|contracted procedure: k9923 o|contracted procedure: k9829 o|contracted procedure: k9861 o|contracted procedure: k9870 o|contracted procedure: k9876 o|contracted procedure: k9893 o|contracted procedure: k7438 o|contracted procedure: k7454 o|contracted procedure: k7460 o|contracted procedure: k9899 o|contracted procedure: k9906 o|contracted procedure: k9916 o|contracted procedure: k9992 o|contracted procedure: k10000 o|contracted procedure: k10008 o|contracted procedure: k10014 o|contracted procedure: k10017 o|contracted procedure: k10033 o|contracted procedure: k10050 o|contracted procedure: k10074 o|contracted procedure: k10105 o|contracted procedure: k10109 o|contracted procedure: k10086 o|contracted procedure: k10093 o|contracted procedure: k10097 o|contracted procedure: k10101 o|contracted procedure: k10131 o|contracted procedure: k10122 o|contracted procedure: k10141 o|contracted procedure: k10148 o|contracted procedure: k10152 o|contracted procedure: k10158 o|contracted procedure: k10168 o|contracted procedure: k10172 o|contracted procedure: k10176 o|contracted procedure: k10184 o|contracted procedure: k10196 o|contracted procedure: k10206 o|contracted procedure: k10210 o|contracted procedure: k10230 o|contracted procedure: k10238 o|contracted procedure: k10246 o|contracted procedure: k10252 o|contracted procedure: k10255 o|contracted procedure: k10258 o|contracted procedure: k10281 o|contracted procedure: k10264 o|contracted procedure: k10277 o|contracted procedure: k10291 o|contracted procedure: k10301 o|contracted procedure: k10308 o|contracted procedure: k10315 o|contracted procedure: k10325 o|contracted procedure: k10348 o|contracted procedure: k10335 o|contracted procedure: k10354 o|contracted procedure: k10366 o|contracted procedure: k10370 o|contracted procedure: k10378 o|contracted procedure: k10384 o|contracted procedure: k10393 o|contracted procedure: k10415 o|contracted procedure: k10419 o|contracted procedure: k10425 o|contracted procedure: k10434 o|contracted procedure: k10456 o|contracted procedure: k10460 o|contracted procedure: k10466 o|contracted procedure: k10469 o|contracted procedure: k10561 o|contracted procedure: k10475 o|contracted procedure: k10552 o|contracted procedure: k10481 o|contracted procedure: k10498 o|contracted procedure: k10504 o|contracted procedure: k10507 o|contracted procedure: k10540 o|contracted procedure: k10514 o|contracted procedure: k10531 o|contracted procedure: k10522 o|contracted procedure: k10518 o|contracted procedure: k10567 o|contracted procedure: k10570 o|contracted procedure: k10573 o|contracted procedure: k10586 o|contracted procedure: k10601 o|contracted procedure: k10608 o|contracted procedure: k10612 o|contracted procedure: k10618 o|contracted procedure: k10631 o|contracted procedure: k10639 o|contracted procedure: k10643 o|contracted procedure: k10703 o|contracted procedure: k11406 o|contracted procedure: k10706 o|contracted procedure: k10712 o|contracted procedure: k10728 o|contracted procedure: k10739 o|contracted procedure: k10747 o|contracted procedure: k10755 o|contracted procedure: k10819 o|contracted procedure: k10812 o|contracted procedure: k10758 o|contracted procedure: k10772 o|contracted procedure: k10785 o|contracted procedure: k10789 o|contracted procedure: k10781 o|contracted procedure: k10768 o|contracted procedure: k10809 o|contracted procedure: k10805 o|contracted procedure: k10797 o|contracted procedure: k10831 o|contracted procedure: k10839 o|contracted procedure: k10897 o|contracted procedure: k10907 o|contracted procedure: k10911 o|contracted procedure: k10853 o|contracted procedure: k10868 o|contracted procedure: k10877 o|contracted procedure: k10881 o|contracted procedure: k10984 o|contracted procedure: k10926 o|contracted procedure: k10978 o|contracted procedure: k10930 o|contracted procedure: k10951 o|contracted procedure: k10960 o|contracted procedure: k10969 o|contracted procedure: k10942 o|contracted procedure: k10933 o|contracted procedure: k10996 o|contracted procedure: k11006 o|contracted procedure: k11010 o|contracted procedure: k11020 o|contracted procedure: k11024 o|contracted procedure: k11376 o|contracted procedure: k11028 o|contracted procedure: k11039 o|contracted procedure: k11047 o|contracted procedure: k11055 o|contracted procedure: k11061 o|contracted procedure: k11064 o|contracted procedure: k11067 o|contracted procedure: k11075 o|contracted procedure: k11083 o|contracted procedure: k11276 o|contracted procedure: k11089 o|contracted procedure: k11267 o|contracted procedure: k11095 o|contracted procedure: k11099 o|contracted procedure: k11241 o|contracted procedure: k11105 o|contracted procedure: k11121 o|contracted procedure: k11125 o|contracted procedure: k11136 o|contracted procedure: k11128 o|contracted procedure: k11141 o|contracted procedure: k11149 o|contracted procedure: k11229 o|contracted procedure: k11152 o|contracted procedure: k11184 o|contracted procedure: k11188 o|contracted procedure: k11180 o|contracted procedure: k11171 o|contracted procedure: k11205 o|contracted procedure: k11196 o|contracted procedure: k11220 o|contracted procedure: k11216 o|contracted procedure: k11208 o|contracted procedure: k11247 o|contracted procedure: k11282 o|contracted procedure: k11285 o|contracted procedure: k11288 o|contracted procedure: k11294 o|contracted procedure: k11298 o|contracted procedure: k11308 o|contracted procedure: k11320 o|contracted procedure: k11330 o|contracted procedure: k11334 o|contracted procedure: k11337 o|contracted procedure: k11349 o|contracted procedure: k11359 o|contracted procedure: k11363 o|contracted procedure: k11386 o|contracted procedure: k11392 o|contracted procedure: k11399 o|contracted procedure: k11409 o|contracted procedure: k11431 o|contracted procedure: k11456 o|contracted procedure: k11472 o|contracted procedure: k11464 o|contracted procedure: k11468 o|contracted procedure: k11518 o|contracted procedure: k11526 o|contracted procedure: k11534 o|contracted procedure: k11540 o|contracted procedure: k11543 o|contracted procedure: k11546 o|contracted procedure: k11549 o|contracted procedure: k11563 o|contracted procedure: k11573 o|contracted procedure: k11580 o|contracted procedure: k11593 o|contracted procedure: k11684 o|contracted procedure: k11599 o|contracted procedure: k11675 o|contracted procedure: k11602 o|contracted procedure: k11666 o|contracted procedure: k11605 o|contracted procedure: k11657 o|contracted procedure: k11611 o|contracted procedure: k11623 o|contracted procedure: k11507 o|contracted procedure: k11482 o|contracted procedure: k11498 o|contracted procedure: k11489 o|contracted procedure: k11634 o|contracted procedure: k11699 o|contracted procedure: k11705 o|contracted procedure: k11708 o|contracted procedure: k11715 o|contracted procedure: k11738 o|contracted procedure: k11756 o|contracted procedure: k11768 o|contracted procedure: k11778 o|contracted procedure: k11782 o|contracted procedure: k11802 o|contracted procedure: k11812 o|contracted procedure: k11929 o|contracted procedure: k11817 o|contracted procedure: k11920 o|contracted procedure: k11820 o|contracted procedure: k11828 o|contracted procedure: k11831 o|contracted procedure: k11834 o|contracted procedure: k11837 o|contracted procedure: k11877 o|contracted procedure: k11849 o|contracted procedure: k11853 o|contracted procedure: k11868 o|contracted procedure: k11886 o|contracted procedure: k11889 o|contracted procedure: k11892 o|contracted procedure: k11900 o|contracted procedure: k11908 o|contracted procedure: k11932 o|contracted procedure: k11960 o|contracted procedure: k12035 o|contracted procedure: k11963 o|contracted procedure: k11984 o|contracted procedure: k11975 o|contracted procedure: k12004 o|contracted procedure: k12012 o|contracted procedure: k12026 o|contracted procedure: k12016 o|contracted procedure: k12038 o|contracted procedure: k12050 o|contracted procedure: k12060 o|contracted procedure: k12064 o|contracted procedure: k12068 o|contracted procedure: k12080 o|contracted procedure: k12090 o|contracted procedure: k12094 o|contracted procedure: k12397 o|contracted procedure: k12100 o|contracted procedure: k12125 o|contracted procedure: k12138 o|contracted procedure: k12151 o|contracted procedure: k12207 o|contracted procedure: k12224 o|contracted procedure: k12344 o|contracted procedure: k12241 o|contracted procedure: k12237 o|contracted procedure: k12228 o|contracted procedure: k12220 o|contracted procedure: k12211 o|contracted procedure: k12164 o|contracted procedure: k12173 o|contracted procedure: k12155 o|contracted procedure: k12147 o|contracted procedure: k12129 o|contracted procedure: k12121 o|contracted procedure: k12193 o|contracted procedure: k12249 o|contracted procedure: k12266 o|contracted procedure: k12257 o|contracted procedure: k12284 o|contracted procedure: k12293 o|contracted procedure: k12332 o|contracted procedure: k12308 o|contracted procedure: k12312 o|contracted procedure: k12328 o|contracted procedure: k12336 o|contracted procedure: k12388 o|contracted procedure: k12355 o|contracted procedure: k12379 o|contracted procedure: k12358 o|contracted procedure: k12370 o|contracted procedure: k12401 o|contracted procedure: k12413 o|contracted procedure: k12435 o|contracted procedure: k12431 o|contracted procedure: k12416 o|contracted procedure: k12419 o|contracted procedure: k12427 o|contracted procedure: k12446 o|contracted procedure: k12456 o|contracted procedure: k12468 o|contracted procedure: k12480 o|contracted procedure: k12483 o|contracted procedure: k12486 o|contracted procedure: k12494 o|contracted procedure: k12502 o|contracted procedure: k12465 o|contracted procedure: k12514 o|contracted procedure: k12517 o|contracted procedure: k12520 o|contracted procedure: k12528 o|contracted procedure: k12536 o|contracted procedure: k12542 o|contracted procedure: k12552 o|contracted procedure: k12561 o|contracted procedure: k12571 o|contracted procedure: k12575 o|contracted procedure: k12786 o|contracted procedure: k12782 o|contracted procedure: k12766 o|contracted procedure: k12778 o|contracted procedure: k12774 o|contracted procedure: k12770 o|contracted procedure: k12723 o|contracted procedure: k12727 o|contracted procedure: k12762 o|contracted procedure: k12758 o|contracted procedure: k12745 o|contracted procedure: k12579 o|contracted procedure: k12711 o|contracted procedure: k12719 o|contracted procedure: k12715 o|contracted procedure: k12707 o|contracted procedure: k12587 o|contracted procedure: k12591 o|contracted procedure: k12597 o|contracted procedure: k12606 o|contracted procedure: k12703 o|contracted procedure: k12612 o|contracted procedure: k12699 o|contracted procedure: k12618 o|contracted procedure: k12630 o|contracted procedure: k12647 o|contracted procedure: k12643 o|contracted procedure: k12634 o|contracted procedure: k12683 o|contracted procedure: k12675 o|contracted procedure: k12666 o|contracted procedure: k12583 o|contracted procedure: k13467 o|contracted procedure: k13531 o|contracted procedure: k13547 o|contracted procedure: k13535 o|contracted procedure: k13543 o|contracted procedure: k13539 o|contracted procedure: k13471 o|contracted procedure: k13527 o|contracted procedure: k13479 o|contracted procedure: k13487 o|contracted procedure: k13507 o|contracted procedure: k13523 o|contracted procedure: k13511 o|contracted procedure: k13519 o|contracted procedure: k13515 o|contracted procedure: k13491 o|contracted procedure: k13503 o|contracted procedure: k13499 o|contracted procedure: k13495 o|contracted procedure: k13483 o|contracted procedure: k13475 o|contracted procedure: k13384 o|contracted procedure: k13388 o|contracted procedure: k13397 o|contracted procedure: k13459 o|contracted procedure: k13415 o|contracted procedure: k13450 o|contracted procedure: k13421 o|contracted procedure: k13433 o|contracted procedure: k12790 o|contracted procedure: k13320 o|contracted procedure: k13364 o|contracted procedure: k13380 o|contracted procedure: k13368 o|contracted procedure: k13376 o|contracted procedure: k13372 o|contracted procedure: k13324 o|contracted procedure: k13360 o|contracted procedure: k13332 o|contracted procedure: k13344 o|contracted procedure: k13356 o|contracted procedure: k13352 o|contracted procedure: k13348 o|contracted procedure: k13340 o|contracted procedure: k13336 o|contracted procedure: k13328 o|contracted procedure: k13254 o|contracted procedure: k13258 o|contracted procedure: k13267 o|contracted procedure: k13312 o|contracted procedure: k13279 o|contracted procedure: k13307 o|contracted procedure: k13291 o|contracted procedure: k12794 o|contracted procedure: k13246 o|contracted procedure: k13250 o|contracted procedure: k12895 o|contracted procedure: k12899 o|contracted procedure: k12909 o|contracted procedure: k12920 o|contracted procedure: k12928 o|contracted procedure: k12936 o|contracted procedure: k12942 o|contracted procedure: k13242 o|contracted procedure: k12948 o|contracted procedure: k12963 o|contracted procedure: k12971 o|contracted procedure: k12979 o|contracted procedure: k12987 o|contracted procedure: k12993 o|contracted procedure: k13000 o|contracted procedure: k13004 o|contracted procedure: k13012 o|contracted procedure: k13021 o|contracted procedure: k13220 o|contracted procedure: k13027 o|contracted procedure: k13216 o|contracted procedure: k13034 o|contracted procedure: k13040 o|contracted procedure: k13051 o|contracted procedure: k13059 o|contracted procedure: k13067 o|contracted procedure: k13105 o|contracted procedure: k13101 o|contracted procedure: k13092 o|contracted procedure: k13080 o|contracted procedure: k13084 o|contracted procedure: k13088 o|contracted procedure: k13111 o|contracted procedure: k13133 o|contracted procedure: k13212 o|contracted procedure: k13139 o|contracted procedure: k13157 o|contracted procedure: k13196 o|contracted procedure: k13192 o|contracted procedure: k13163 o|contracted procedure: k13181 o|contracted procedure: k13172 o|contracted procedure: k12798 o|contracted procedure: k12867 o|contracted procedure: k12891 o|contracted procedure: k12887 o|contracted procedure: k12871 o|contracted procedure: k12883 o|contracted procedure: k12879 o|contracted procedure: k12875 o|contracted procedure: k12806 o|contracted procedure: k12810 o|contracted procedure: k12863 o|contracted procedure: k12855 o|contracted procedure: k12825 o|contracted procedure: k12850 o|contracted procedure: k12846 o|contracted procedure: k12837 o|contracted procedure: k12802 o|contracted procedure: k13645 o|contracted procedure: k13637 o|contracted procedure: k13641 o|contracted procedure: k13633 o|contracted procedure: k13629 o|contracted procedure: k13555 o|contracted procedure: k13559 o|contracted procedure: k13572 o|contracted procedure: k13581 o|contracted procedure: k13592 o|contracted procedure: k13606 o|contracted procedure: k13602 o|contracted procedure: k13595 o|contracted procedure: k13610 o|contracted procedure: k13622 o|contracted procedure: k13551 o|simplifications: ((let . 122)) o|removed binding forms: 1127 o|inlining procedure: k5647 o|inlining procedure: k9753 o|inlining procedure: k9753 o|replaced variables: 275 o|removed binding forms: 1 o|simplifications: ((if . 1)) o|replaced variables: 3 o|removed binding forms: 185 o|contracted procedure: k4397 o|contracted procedure: k4414 o|contracted procedure: k12498 o|removed binding forms: 4 o|direct leaf routine/allocation: touch30 0 o|direct leaf routine/allocation: touch167 0 o|direct leaf routine/allocation: for-each-loop187205 0 o|direct leaf routine/allocation: g230239 0 o|direct leaf routine/allocation: touch960 0 o|direct leaf routine/allocation: close2565 6 o|direct leaf routine/allocation: g10671068 10 o|contracted procedure: "(optimizer.scm:76) k3917" o|converted assignments to bindings: (for-each-loop187205) o|contracted procedure: "(optimizer.scm:162) k4267" o|contracted procedure: "(optimizer.scm:162) k426714308" o|contracted procedure: "(optimizer.scm:156) k4335" o|contracted procedure: "(optimizer.scm:179) k4404" o|contracted procedure: "(optimizer.scm:202) k4474" o|contracted procedure: "(optimizer.scm:232) k4611" o|contracted procedure: "(optimizer.scm:236) k4643" o|contracted procedure: "(optimizer.scm:254) k4729" o|contracted procedure: "(optimizer.scm:274) k4908" o|contracted procedure: "(optimizer.scm:290) k4989" o|contracted procedure: "(optimizer.scm:325) k5115" o|contracted procedure: "(optimizer.scm:392) k5292" o|contracted procedure: "(optimizer.scm:399) k5372" o|contracted procedure: "(optimizer.scm:408) k5444" o|contracted procedure: "(optimizer.scm:474) k6142" o|contracted procedure: "(optimizer.scm:479) k6168" o|contracted procedure: "(optimizer.scm:486) k6185" o|contracted procedure: "(optimizer.scm:1639) k11583" o|contracted procedure: "(optimizer.scm:1652) k11748" o|simplifications: ((let . 1)) o|removed binding forms: 20 o|replaced variables: 4 o|removed binding forms: 2 o|customizable procedures: (loop1059 k13073 loop21167 loop11127 g26932700 for-each-loop26922970 g27172726 map-loop27112784 map-loop27952815 map-loop28262843 k12106 loop2898 descend2850 g29202927 for-each-loop29192963 g29342941 for-each-loop29332958 map-loop27452762 g26672674 for-each-loop26662684 k11555 k11630 k11617 k11569 walk2567 tmp13632 k10718 for-each-loop24292439 for-each-loop24122422 g23792380 g24512458 for-each-loop24502480 for-each-loop25202541 k10484 k10437 k10396 rec2213 g21912198 for-each-loop21902201 scan2147 walk2146 transform2148 k7447 loop2129 k9532 k9147 k9020 k8816 k8719 k8543 k8213 k8216 map-loop16941712 map-loop17221739 k7722 k7485 k7397 argc-ok?1484 map-loop12941313 g13261348 for-each-loop13251353 g13661373 for-each-loop13651381 g13901397 for-each-loop13891407 k7096 find-path1334 find1337 g971978 for-each-loop9701038 test961 k6597 k6617 k6629 k6638 for-each-loop920932 k6394 lp900 k6291 k6182 for-each-loop875887 g809818 map-loop803828 k5095 k5889 k5175 k5213 k5247 k5544 g741750 map-loop735765 loop655 g676685 map-loop670695 invalidate-gae!168 g619626 for-each-loop618636 g502509 for-each-loop501519 walk-generic173 k4726 k4743 g402411 map-loop396421 g353354 k4667 test164 g313314 replace-var171 walk1172 k4466 walk170 map-loop224242 simplify169 for-each-loop110140 k3911 k4012 mark28 remember29 scan-each31 k3884 k3867 g4350 for-each-loop4253 scan32 k3765) o|calls to known targets: 393 o|identified direct recursive calls: f_4200 1 o|identified direct recursive calls: f_4312 1 o|identified direct recursive calls: f_7314 1 o|identified direct recursive calls: f_9865 1 o|identified direct recursive calls: f_9985 2 o|identified direct recursive calls: f_10223 2 o|unused rest argument: _2957 f_12020 o|unused rest argument: _2915 f_12201 o|identified direct recursive calls: f_12408 1 o|unused rest argument: _2823 f_12450 o|identified direct recursive calls: f_12475 1 o|fast box initializations: 64 o|dropping unused closure argument: f_4186 o|dropping unused closure argument: f_4200 */ /* end of file */ chicken-4.12.0/srfi-1.import.c0000644000175000017500000002407013052306543015572 0ustar sjamaansjamaan/* Generated from srfi-1.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: srfi-1.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file srfi-1.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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_202) static void C_ccall f_202(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(f_205) static void C_ccall f_205(C_word c,C_word *av) C_noret; C_noret_decl(f_199) static void C_ccall f_199(C_word c,C_word *av) C_noret; C_noret_decl(f_208) static void C_ccall f_208(C_word c,C_word *av) C_noret; /* k200 in k197 */ static void C_ccall f_202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(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(1064))){ C_save(t1); C_rereclaim2(1064*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,3); lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module"); lf[1]=C_h_intern(&lf[1],6,"srfi-1"); lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\012alist-cons\376\003\000\000\002\376\001\000\000\012alist-copy\376\003\000\000\002\376\001\000\000\014alist-delete\376\003\000\000\002\376\001\000\000\015alist-de" "lete!\376\003\000\000\002\376\001\000\000\003any\376\003\000\000\002\376\001\000\000\007append!\376\003\000\000\002\376\001\000\000\012append-map\376\003\000\000\002\376\001\000\000\013append-map!\376\003\000\000" "\002\376\001\000\000\016append-reverse\376\003\000\000\002\376\001\000\000\017append-reverse!\376\003\000\000\002\376\001\000\000\005assoc\376\003\000\000\002\376\001\000\000\005break\376\003\000\000\002" "\376\001\000\000\006break!\376\003\000\000\002\376\001\000\000\007car+cdr\376\003\000\000\002\376\001\000\000\015circular-list\376\003\000\000\002\376\001\000\000\016circular-list\077\376\003\000\000\002" "\376\001\000\000\013concatenate\376\003\000\000\002\376\001\000\000\014concatenate!\376\003\000\000\002\376\001\000\000\005cons\052\376\003\000\000\002\376\001\000\000\005count\376\003\000\000\002\376\001\000\000\006de" "lete\376\003\000\000\002\376\001\000\000\007delete!\376\003\000\000\002\376\001\000\000\021delete-duplicates\376\003\000\000\002\376\001\000\000\022delete-duplicates!\376\003\000\000" "\002\376\001\000\000\014dotted-list\077\376\003\000\000\002\376\001\000\000\004drop\376\003\000\000\002\376\001\000\000\012drop-right\376\003\000\000\002\376\001\000\000\013drop-right!\376\003\000\000\002\376\001" "\000\000\012drop-while\376\003\000\000\002\376\001\000\000\006eighth\376\003\000\000\002\376\001\000\000\005every\376\003\000\000\002\376\001\000\000\005fifth\376\003\000\000\002\376\001\000\000\006filter\376\003\000\000\002" "\376\001\000\000\007filter!\376\003\000\000\002\376\001\000\000\012filter-map\376\003\000\000\002\376\001\000\000\004find\376\003\000\000\002\376\001\000\000\011find-tail\376\003\000\000\002\376\001\000\000\005first" "\376\003\000\000\002\376\001\000\000\004fold\376\003\000\000\002\376\001\000\000\012fold-right\376\003\000\000\002\376\001\000\000\010for-each\376\003\000\000\002\376\001\000\000\006fourth\376\003\000\000\002\376\001\000\000\004io" "ta\376\003\000\000\002\376\001\000\000\004last\376\003\000\000\002\376\001\000\000\011last-pair\376\003\000\000\002\376\001\000\000\007length+\376\003\000\000\002\376\001\000\000\011list-copy\376\003\000\000\002\376\001\000\000" "\012list-index\376\003\000\000\002\376\001\000\000\015list-tabulate\376\003\000\000\002\376\001\000\000\005list=\376\003\000\000\002\376\001\000\000\013lset-adjoin\376\003\000\000\002\376\001\000\000\026" "lset-diff+intersection\376\003\000\000\002\376\001\000\000\027lset-diff+intersection!\376\003\000\000\002\376\001\000\000\017lset-difference" "\376\003\000\000\002\376\001\000\000\020lset-difference!\376\003\000\000\002\376\001\000\000\021lset-intersection\376\003\000\000\002\376\001\000\000\022lset-intersection" "!\376\003\000\000\002\376\001\000\000\012lset-union\376\003\000\000\002\376\001\000\000\013lset-union!\376\003\000\000\002\376\001\000\000\010lset-xor\376\003\000\000\002\376\001\000\000\011lset-xor!\376" "\003\000\000\002\376\001\000\000\006lset<=\376\003\000\000\002\376\001\000\000\005lset=\376\003\000\000\002\376\001\000\000\011make-list\376\003\000\000\002\376\001\000\000\003map\376\003\000\000\002\376\001\000\000\004map!\376\003\000\000" "\002\376\001\000\000\014map-in-order\376\003\000\000\002\376\001\000\000\006member\376\003\000\000\002\376\001\000\000\005ninth\376\003\000\000\002\376\001\000\000\011not-pair\077\376\003\000\000\002\376\001\000\000\012nu" "ll-list\077\376\003\000\000\002\376\001\000\000\011pair-fold\376\003\000\000\002\376\001\000\000\017pair-fold-right\376\003\000\000\002\376\001\000\000\015pair-for-each\376\003\000\000\002" "\376\001\000\000\011partition\376\003\000\000\002\376\001\000\000\012partition!\376\003\000\000\002\376\001\000\000\014proper-list\077\376\003\000\000\002\376\001\000\000\006reduce\376\003\000\000\002\376\001\000" "\000\014reduce-right\376\003\000\000\002\376\001\000\000\006remove\376\003\000\000\002\376\001\000\000\007remove!\376\003\000\000\002\376\001\000\000\010reverse!\376\003\000\000\002\376\001\000\000\006secon" "d\376\003\000\000\002\376\001\000\000\007seventh\376\003\000\000\002\376\001\000\000\005sixth\376\003\000\000\002\376\001\000\000\004span\376\003\000\000\002\376\001\000\000\005span!\376\003\000\000\002\376\001\000\000\010split-at" "\376\003\000\000\002\376\001\000\000\011split-at!\376\003\000\000\002\376\001\000\000\004take\376\003\000\000\002\376\001\000\000\005take!\376\003\000\000\002\376\001\000\000\012take-right\376\003\000\000\002\376\001\000\000\012ta" "ke-while\376\003\000\000\002\376\001\000\000\013take-while!\376\003\000\000\002\376\001\000\000\005tenth\376\003\000\000\002\376\001\000\000\005third\376\003\000\000\002\376\001\000\000\006unfold\376\003\000\000\002" "\376\001\000\000\014unfold-right\376\003\000\000\002\376\001\000\000\006unzip1\376\003\000\000\002\376\001\000\000\006unzip2\376\003\000\000\002\376\001\000\000\006unzip3\376\003\000\000\002\376\001\000\000\006unzip" "4\376\003\000\000\002\376\001\000\000\006unzip5\376\003\000\000\002\376\001\000\000\005xcons\376\003\000\000\002\376\001\000\000\003zip\376\377\016"); C_register_lf2(lf,3,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_199,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k203 in k200 in k197 */ static void C_ccall f_205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_205,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-1.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; /* Re-use our own argvector */ } 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);}} /* k197 */ static void C_ccall f_199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_199,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k206 in k203 in k200 in k197 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_208,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {"f_202:srfi_2d1_2eimport_2escm",(void*)f_202}, {"toplevel:srfi_2d1_2eimport_2escm",(void*)C_toplevel}, {"f_205:srfi_2d1_2eimport_2escm",(void*)f_205}, {"f_199:srfi_2d1_2eimport_2escm",(void*)f_199}, {"f_208:srfi_2d1_2eimport_2escm",(void*)f_208}, {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-4.12.0/foreign.import.c0000644000175000017500000001203713052306545016124 0ustar sjamaansjamaan/* Generated from foreign.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: foreign.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file foreign.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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_199) static void C_ccall f_199(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(f_202) static void C_ccall f_202(C_word c,C_word *av) C_noret; C_noret_decl(f_205) static void C_ccall f_205(C_word c,C_word *av) C_noret; C_noret_decl(f_208) static void C_ccall f_208(C_word c,C_word *av) C_noret; /* k197 */ static void C_ccall f_199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_199,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(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],29,"\003sysregister-primitive-module"); lf[1]=C_h_intern(&lf[1],7,"foreign"); lf[2]=C_h_intern(&lf[2],33,"\003syschicken-ffi-macro-environment"); C_register_lf2(lf,3,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_199,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k200 in k197 */ static void C_ccall f_202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k203 in k200 in k197 */ static void C_ccall f_205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_205,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* 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; /* Re-use our own argvector */ } 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);}} /* k206 in k203 in k200 in k197 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_208,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {"f_199:foreign_2eimport_2escm",(void*)f_199}, {"toplevel:foreign_2eimport_2escm",(void*)C_toplevel}, {"f_202:foreign_2eimport_2escm",(void*)f_202}, {"f_205:foreign_2eimport_2escm",(void*)f_205}, {"f_208:foreign_2eimport_2escm",(void*)f_208}, {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-4.12.0/batch-driver.c0000644000175000017500000213345713052306431015542 0ustar sjamaansjamaan/* Generated from batch-driver.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:18 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: batch-driver.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -no-lambda-info -extend private-namespace.scm -no-trace -output-file batch-driver.c unit: driver */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[416]; static double C_possibly_force_alignment; C_noret_decl(f_2279) static void C_fcall f_2279(C_word t0,C_word t1) C_noret; C_noret_decl(f_2276) static void C_fcall f_2276(C_word t0,C_word t1) C_noret; C_noret_decl(f_2270) static void C_fcall f_2270(C_word t0,C_word t1) C_noret; C_noret_decl(f_2273) static void C_fcall f_2273(C_word t0,C_word t1) C_noret; C_noret_decl(f_2288) static void C_fcall f_2288(C_word t0,C_word t1) C_noret; C_noret_decl(f_2285) static void C_fcall f_2285(C_word t0,C_word t1) C_noret; C_noret_decl(f_2282) static void C_fcall f_2282(C_word t0,C_word t1) C_noret; C_noret_decl(f_3549) static void C_ccall f_3549(C_word c,C_word *av) 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_2219) static void C_ccall f_2219(C_word c,C_word *av) C_noret; C_noret_decl(f_2215) static void C_ccall f_2215(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_2891) static void C_ccall f_2891(C_word c,C_word *av) C_noret; C_noret_decl(f_2224) static void C_ccall f_2224(C_word c,C_word *av) C_noret; C_noret_decl(f_2233) static void C_fcall f_2233(C_word t0,C_word t1) C_noret; C_noret_decl(f_2230) static void C_ccall f_2230(C_word c,C_word *av) C_noret; C_noret_decl(f5646) static void C_ccall f5646(C_word c,C_word *av) C_noret; C_noret_decl(f5640) static void C_ccall f5640(C_word c,C_word *av) C_noret; C_noret_decl(f_2249) static void C_ccall f_2249(C_word c,C_word *av) C_noret; C_noret_decl(f_2246) static void C_fcall f_2246(C_word t0,C_word t1) 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_2240) static void C_fcall f_2240(C_word t0,C_word t1) C_noret; C_noret_decl(f_2936) static void C_ccall f_2936(C_word c,C_word *av) C_noret; C_noret_decl(f5770) static void C_ccall f5770(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_4010) static void C_ccall f_4010(C_word c,C_word *av) C_noret; C_noret_decl(f_4006) static void C_fcall f_4006(C_word t0,C_word t1) C_noret; C_noret_decl(f5806) static void C_ccall f5806(C_word c,C_word *av) C_noret; C_noret_decl(f5788) static void C_ccall f5788(C_word c,C_word *av) C_noret; C_noret_decl(f5800) static void C_ccall f5800(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_3901) static void C_ccall f_3901(C_word c,C_word *av) C_noret; C_noret_decl(f_2294) static void C_fcall f_2294(C_word t0,C_word t1) C_noret; C_noret_decl(f_2291) static void C_fcall f_2291(C_word t0,C_word t1) C_noret; C_noret_decl(f_2297) static void C_fcall f_2297(C_word t0,C_word t1) 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_3109) static void C_fcall f_3109(C_word t0,C_word t1,C_word t2) 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_2532) static void C_ccall f_2532(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_2546) static void C_ccall f_2546(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_2540) static void C_ccall f_2540(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_2513) static void C_ccall f_2513(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_2258) static void C_fcall f_2258(C_word t0,C_word t1) 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_2252) static void C_ccall f_2252(C_word c,C_word *av) C_noret; C_noret_decl(f_2255) static void C_ccall f_2255(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_2523) static void C_ccall f_2523(C_word c,C_word *av) C_noret; C_noret_decl(f_2609) static void C_ccall f_2609(C_word c,C_word *av) C_noret; C_noret_decl(f_2617) static void C_ccall f_2617(C_word c,C_word *av) C_noret; C_noret_decl(f_2614) static void C_ccall f_2614(C_word c,C_word *av) C_noret; C_noret_decl(f_2267) static void C_fcall f_2267(C_word t0,C_word t1) C_noret; C_noret_decl(f_2261) static void C_fcall f_2261(C_word t0,C_word t1) 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_fcall f_2579(C_word t0,C_word t1) C_noret; C_noret_decl(f_2264) static void C_fcall f_2264(C_word t0,C_word t1) C_noret; C_noret_decl(f_2570) static void C_fcall f_2570(C_word t0,C_word t1) 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_2623) static void C_ccall f_2623(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_2588) static void C_ccall f_2588(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_2637) static void C_ccall f_2637(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_2558) static void C_ccall f_2558(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_2552) static void C_ccall f_2552(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_2567) static void C_ccall f_2567(C_word c,C_word *av) C_noret; C_noret_decl(f_2561) static void C_fcall f_2561(C_word t0,C_word t1) C_noret; C_noret_decl(f_2564) static void C_ccall f_2564(C_word c,C_word *av) C_noret; C_noret_decl(f_3367) static void C_ccall f_3367(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_word t2) C_noret; C_noret_decl(f_2837) static void C_ccall f_2837(C_word c,C_word *av) C_noret; C_noret_decl(f_2834) static void C_ccall f_2834(C_word c,C_word *av) C_noret; C_noret_decl(f_2830) static void C_ccall f_2830(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_2801) static void C_ccall f_2801(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(f5652) static void C_ccall f5652(C_word c,C_word *av) C_noret; C_noret_decl(f5658) static void C_ccall f5658(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_3897) static void C_ccall f_3897(C_word c,C_word *av) C_noret; C_noret_decl(f5664) static void C_ccall f5664(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_2821) static void C_ccall f_2821(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_3867) static void C_ccall f_3867(C_word c,C_word *av) C_noret; C_noret_decl(f_3876) static void C_fcall f_3876(C_word t0,C_word t1,C_word t2) 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_4664) static void C_ccall f_4664(C_word c,C_word *av) C_noret; C_noret_decl(f_3871) static void C_ccall f_3871(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_2427) static void C_fcall f_2427(C_word t0,C_word t1) 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_2420) static void C_ccall f_2420(C_word c,C_word *av) C_noret; C_noret_decl(f_1745) static void C_ccall f_1745(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_2435) static void C_ccall f_2435(C_word c,C_word *av) C_noret; C_noret_decl(f_2431) static void C_ccall f_2431(C_word c,C_word *av) C_noret; C_noret_decl(f_2449) static void C_ccall f_2449(C_word c,C_word *av) 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_2446) static void C_ccall f_2446(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_2458) static void C_ccall f_2458(C_word c,C_word *av) C_noret; C_noret_decl(f_3345) static void C_ccall f_3345(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_2455) static void C_ccall f_2455(C_word c,C_word *av) C_noret; C_noret_decl(f_2452) static void C_fcall f_2452(C_word t0,C_word t1) C_noret; C_noret_decl(f_1714) static void C_fcall f_1714(C_word t0,C_word t1) C_noret; C_noret_decl(f5812) static void C_ccall f5812(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_2469) static void C_ccall f_2469(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_1705) static void C_ccall f_1705(C_word c,C_word *av) C_noret; C_noret_decl(f_1709) static void C_ccall f_1709(C_word c,C_word *av) C_noret; C_noret_decl(f_3302) static void C_ccall f_3302(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_3305) static void C_ccall f_3305(C_word c,C_word *av) C_noret; C_noret_decl(f_3320) static void C_fcall f_3320(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3373) static void C_ccall f_3373(C_word c,C_word *av) C_noret; C_noret_decl(f_3379) static void C_ccall f_3379(C_word c,C_word *av) C_noret; C_noret_decl(f_3376) static void C_ccall f_3376(C_word c,C_word *av) C_noret; C_noret_decl(f_2480) static void C_fcall f_2480(C_word t0,C_word t1) C_noret; C_noret_decl(f_2118) static void C_fcall f_2118(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2114) static void C_ccall f_2114(C_word c,C_word *av) C_noret; C_noret_decl(f_2116) static void C_fcall f_2116(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_3382) static void C_ccall f_3382(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_2498) static void C_ccall f_2498(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(C_driver_toplevel) C_externexport void C_ccall C_driver_toplevel(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_3490) static void C_ccall f_3490(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_4179) static void C_ccall f_4179(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_3709) static void C_fcall f_3709(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4442) static void C_fcall f_4442(C_word t0,C_word t1,C_word t2) 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_4123) static void C_ccall f_4123(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_3440) static void C_fcall f_3440(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4154) static void C_fcall f_4154(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4152) static void C_ccall f_4152(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_3450) static void C_ccall f_3450(C_word c,C_word *av) 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_3420) static void C_ccall f_3420(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_3832) static void C_fcall f_3832(C_word t0,C_word t1,C_word t2) 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_3830) static void C_ccall f_3830(C_word c,C_word *av) C_noret; C_noret_decl(f_4402) static void C_ccall f_4402(C_word c,C_word *av) C_noret; C_noret_decl(f_3417) static void C_ccall f_3417(C_word c,C_word *av) C_noret; C_noret_decl(f_3414) static void C_ccall f_3414(C_word c,C_word *av) C_noret; C_noret_decl(f_3805) static void C_ccall f_3805(C_word c,C_word *av) C_noret; C_noret_decl(f_3150) static void C_ccall f_3150(C_word c,C_word *av) C_noret; C_noret_decl(f_4116) static void C_ccall f_4116(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_1928) static void C_ccall f_1928(C_word c,C_word *av) C_noret; C_noret_decl(f_3161) static void C_fcall f_3161(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1918) static void C_fcall f_1918(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_1907) static void C_ccall f_1907(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_4188) static void C_fcall f_4188(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1697) static void C_ccall f_1697(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_1693) static void C_ccall f_1693(C_word c,C_word *av) C_noret; C_noret_decl(f_3138) static void C_ccall f_3138(C_word c,C_word *av) C_noret; C_noret_decl(f_4909) static void C_ccall f_4909(C_word c,C_word *av) C_noret; C_noret_decl(f_4905) static void C_fcall f_4905(C_word t0,C_word t1,C_word t2) 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_4901) static void C_ccall f_4901(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_3187) static void C_ccall f_3187(C_word c,C_word *av) C_noret; C_noret_decl(f_3251) static void C_fcall f_3251(C_word t0,C_word t1,C_word t2) 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_2772) static void C_ccall f_2772(C_word c,C_word *av) 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_3196) static void C_ccall f_3196(C_word c,C_word *av) C_noret; C_noret_decl(f_4234) static void C_ccall f_4234(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_1686) static void C_ccall f_1686(C_word c,C_word *av) C_noret; C_noret_decl(f_1683) static void C_ccall f_1683(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_4267) static void C_ccall f_4267(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_1761) static void C_ccall f_1761(C_word c,C_word *av) C_noret; C_noret_decl(f_2303) static void C_fcall f_2303(C_word t0,C_word t1) C_noret; C_noret_decl(f_4793) static void C_fcall f_4793(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2300) static void C_fcall f_2300(C_word t0,C_word t1) C_noret; C_noret_decl(f_2308) static void C_fcall f_2308(C_word t0,C_word t1) C_noret; C_noret_decl(f_4211) static void C_fcall f_4211(C_word t0,C_word t1,C_word t2) 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_3295) static void C_ccall f_3295(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_4244) static void C_fcall f_4244(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4788) static void C_ccall f_4788(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_4767) static void C_ccall f_4767(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_2795) static void C_ccall f_2795(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_2798) static void C_ccall f_2798(C_word c,C_word *av) C_noret; C_noret_decl(f_2136) static void C_ccall f_2136(C_word c,C_word *av) 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_1941) static void C_fcall f_1941(C_word t0,C_word t1) 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_2146) static void C_fcall f_2146(C_word t0,C_word t1) 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_2904) static void C_ccall f_2904(C_word c,C_word *av) C_noret; C_noret_decl(f_2141) static void C_fcall f_2141(C_word t0,C_word t1,C_word t2) 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_2195) static void C_ccall f_2195(C_word c,C_word *av) C_noret; C_noret_decl(f_2198) static void C_ccall f_2198(C_word c,C_word *av) C_noret; C_noret_decl(f_4551) static void C_ccall f_4551(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_3988) static void C_ccall f_3988(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_1770) static void C_ccall f_1770(C_word c,C_word *av) C_noret; C_noret_decl(f_2125) static void C_ccall f_2125(C_word c,C_word *av) 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_1775) static void C_fcall f_1775(C_word t0,C_word t1) C_noret; C_noret_decl(f_3249) static void C_ccall f_3249(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_3402) static void C_ccall f_3402(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_3972) static void C_ccall f_3972(C_word c,C_word *av) C_noret; C_noret_decl(f_3215) static void C_fcall f_3215(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2185) static void C_fcall f_2185(C_word t0,C_word t1) 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_2182) static void C_fcall f_2182(C_word t0,C_word t1) 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_3225) static void C_ccall f_3225(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(f5736) static void C_ccall f5736(C_word c,C_word *av) C_noret; C_noret_decl(f_3947) static void C_fcall f_3947(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f5742) static void C_ccall f5742(C_word c,C_word *av) C_noret; C_noret_decl(f5748) static void C_ccall f5748(C_word c,C_word *av) C_noret; C_noret_decl(f5760) static void C_ccall f5760(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(f5754) static void C_ccall f5754(C_word c,C_word *av) C_noret; C_noret_decl(f_3206) static void C_ccall f_3206(C_word c,C_word *av) C_noret; C_noret_decl(f5676) static void C_ccall f5676(C_word c,C_word *av) C_noret; C_noret_decl(f5684) static void C_ccall f5684(C_word c,C_word *av) C_noret; C_noret_decl(f5696) static void C_ccall f5696(C_word c,C_word *av) C_noret; C_noret_decl(f_4548) static void C_ccall f_4548(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_1875) static void C_ccall f_1875(C_word c,C_word *av) 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_1868) static void C_fcall f_1868(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_1866) static void C_ccall f_1866(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_3612) static void C_fcall f_3612(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f5243) static void C_ccall f5243(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_1895) static void C_fcall f_1895(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_2037) static void C_fcall f_2037(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2031) static void C_fcall f_2031(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1887) static void C_ccall f_1887(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_2691) static void C_ccall f_2691(C_word c,C_word *av) C_noret; C_noret_decl(f_1881) static void C_ccall f_1881(C_word c,C_word *av) C_noret; C_noret_decl(f_1884) static void C_ccall f_1884(C_word c,C_word *av) C_noret; C_noret_decl(f_2698) static void C_ccall f_2698(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_2086) static void C_ccall f_2086(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_2053) static void C_ccall f_2053(C_word c,C_word *av) C_noret; C_noret_decl(f_4505) static void C_fcall f_4505(C_word t0,C_word t1,C_word t2) 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_4503) static void C_ccall f_4503(C_word c,C_word *av) C_noret; C_noret_decl(f_2076) static void C_fcall f_2076(C_word t0,C_word t1,C_word t2) 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_4635) static void C_ccall f_4635(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_2655) static void C_ccall f_2655(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_2972) static void C_ccall f_2972(C_word c,C_word *av) 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_4622) static void C_ccall f_4622(C_word c,C_word *av) C_noret; C_noret_decl(f_2661) static void C_fcall f_2661(C_word t0,C_word t1) C_noret; C_noret_decl(f_2667) static void C_ccall f_2667(C_word c,C_word *av) 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_2092) static void C_ccall f_2092(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_2673) static void C_ccall f_2673(C_word c,C_word *av) C_noret; C_noret_decl(f_2670) static void C_ccall f_2670(C_word c,C_word *av) C_noret; C_noret_decl(f_2676) static void C_ccall f_2676(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_2066) static void C_fcall f_2066(C_word t0,C_word t1) 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_3048) static void C_ccall f_3048(C_word c,C_word *av) C_noret; C_noret_decl(f_4609) static void C_ccall f_4609(C_word c,C_word *av) C_noret; C_noret_decl(f_4606) static void C_ccall f_4606(C_word c,C_word *av) C_noret; C_noret_decl(f_2684) static void C_fcall f_2684(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_2960) static void C_ccall f_2960(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_3768) static void C_ccall f_3768(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_2966) static void C_ccall f_2966(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_2737) static void C_ccall f_2737(C_word c,C_word *av) C_noret; C_noret_decl(f_3059) static void C_ccall f_3059(C_word c,C_word *av) C_noret; C_noret_decl(f_2734) static void C_ccall f_2734(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_3051) static void C_ccall f_3051(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_2701) static void C_ccall f_2701(C_word c,C_word *av) C_noret; C_noret_decl(f_2704) static void C_ccall f_2704(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_2945) static void C_ccall f_2945(C_word c,C_word *av) C_noret; C_noret_decl(f_1853) static void C_ccall f_1853(C_word c,C_word *av) 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_3743) static void C_fcall f_3743(C_word t0,C_word t1,C_word t2) 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_2713) static void C_ccall f_2713(C_word c,C_word *av) C_noret; C_noret_decl(f_2710) static void C_ccall f_2710(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_1844) static void C_ccall f_1844(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_word t3,C_word t4) 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_2640) static void C_ccall f_2640(C_word c,C_word *av) C_noret; C_noret_decl(f_2643) static void C_ccall f_2643(C_word c,C_word *av) C_noret; C_noret_decl(f_2646) static void C_ccall f_2646(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_2339) static void C_ccall f_2339(C_word c,C_word *av) 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_2330) static void C_ccall f_2330(C_word c,C_word *av) C_noret; C_noret_decl(f_3068) static void C_ccall f_3068(C_word c,C_word *av) C_noret; C_noret_decl(f_2349) static void C_fcall f_2349(C_word t0,C_word t1) 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_3062) static void C_ccall f_3062(C_word c,C_word *av) C_noret; C_noret_decl(f_2045) static void C_fcall f_2045(C_word t0,C_word t1,C_word t2) 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_2342) static void C_ccall f_2342(C_word c,C_word *av) C_noret; C_noret_decl(f_1819) static void C_fcall f_1819(C_word t0,C_word t1,C_word t2) 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_3074) static void C_ccall f_3074(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_2318) static void C_fcall f_2318(C_word t0,C_word t1) C_noret; C_noret_decl(f_2313) static void C_fcall f_2313(C_word t0,C_word t1) C_noret; C_noret_decl(f_4392) static void C_fcall f_4392(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4865) static void C_fcall f_4865(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f5716) static void C_ccall f5716(C_word c,C_word *av) C_noret; C_noret_decl(f_1801) static void C_fcall f_1801(C_word t0,C_word t1) 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_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_2606) static void C_ccall f_2606(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_2600) static void C_ccall f_2600(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(f5722) static void C_ccall f5722(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_2376) static void C_ccall f_2376(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_2373) static void C_ccall f_2373(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_4843) static void C_ccall f_4843(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_3913) static void C_fcall f_3913(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_2389) static void C_ccall f_2389(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_3029) static void C_ccall f_3029(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_4379) static void C_ccall f_4379(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_3035) static void C_ccall f_3035(C_word c,C_word *av) C_noret; C_noret_decl(f_2358) static void C_fcall f_2358(C_word t0,C_word t1) C_noret; C_noret_decl(f_2352) static void C_fcall f_2352(C_word t0,C_word t1) C_noret; C_noret_decl(f_2355) static void C_fcall f_2355(C_word t0,C_word t1) C_noret; C_noret_decl(f_2870) static void C_ccall f_2870(C_word c,C_word *av) C_noret; C_noret_decl(f_2873) static void C_ccall f_2873(C_word c,C_word *av) C_noret; C_noret_decl(f_2876) static void C_ccall f_2876(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_4369) static void C_fcall f_4369(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f5794) static void C_ccall f5794(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_word t2) C_noret; C_noret_decl(f_2367) static void C_ccall f_2367(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_2361) static void C_fcall f_2361(C_word t0,C_word t1) C_noret; C_noret_decl(f_4344) static void C_ccall f_4344(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_2843) static void C_ccall f_2843(C_word c,C_word *av) C_noret; C_noret_decl(f_2840) static void C_ccall f_2840(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_2849) static void C_ccall f_2849(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_4061) static void C_ccall f_4061(C_word c,C_word *av) 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_3597) static void C_ccall f_3597(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_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_4043) static void C_ccall f_4043(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_4325) static void C_ccall f_4325(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_4035) static void C_ccall f_4035(C_word c,C_word *av) C_noret; C_noret_decl(f_4729) static void C_fcall f_4729(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4302) static void C_ccall f_4302(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_2882) static void C_ccall f_2882(C_word c,C_word *av) C_noret; C_noret_decl(f_2888) static void C_ccall f_2888(C_word c,C_word *av) C_noret; C_noret_decl(f_1838) static void C_ccall f_1838(C_word c,C_word *av) C_noret; C_noret_decl(f_1835) static void C_ccall f_1835(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_2857) static void C_ccall f_2857(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_3564) static void C_ccall f_3564(C_word c,C_word *av) C_noret; C_noret_decl(f_3568) static void C_fcall f_3568(C_word t0,C_word t1) C_noret; C_noret_decl(trf_2279) static void C_ccall trf_2279(C_word c,C_word *av) C_noret; static void C_ccall trf_2279(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2279(t0,t1);} C_noret_decl(trf_2276) static void C_ccall trf_2276(C_word c,C_word *av) C_noret; static void C_ccall trf_2276(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2276(t0,t1);} C_noret_decl(trf_2270) static void C_ccall trf_2270(C_word c,C_word *av) C_noret; static void C_ccall trf_2270(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2270(t0,t1);} C_noret_decl(trf_2273) static void C_ccall trf_2273(C_word c,C_word *av) C_noret; static void C_ccall trf_2273(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2273(t0,t1);} C_noret_decl(trf_2288) static void C_ccall trf_2288(C_word c,C_word *av) C_noret; static void C_ccall trf_2288(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2288(t0,t1);} C_noret_decl(trf_2285) static void C_ccall trf_2285(C_word c,C_word *av) C_noret; static void C_ccall trf_2285(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2285(t0,t1);} C_noret_decl(trf_2282) static void C_ccall trf_2282(C_word c,C_word *av) C_noret; static void C_ccall trf_2282(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2282(t0,t1);} C_noret_decl(trf_2233) static void C_ccall trf_2233(C_word c,C_word *av) C_noret; static void C_ccall trf_2233(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2233(t0,t1);} C_noret_decl(trf_2246) static void C_ccall trf_2246(C_word c,C_word *av) C_noret; static void C_ccall trf_2246(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2246(t0,t1);} C_noret_decl(trf_2240) static void C_ccall trf_2240(C_word c,C_word *av) C_noret; static void C_ccall trf_2240(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2240(t0,t1);} C_noret_decl(trf_4006) static void C_ccall trf_4006(C_word c,C_word *av) C_noret; static void C_ccall trf_4006(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4006(t0,t1);} C_noret_decl(trf_2294) static void C_ccall trf_2294(C_word c,C_word *av) C_noret; static void C_ccall trf_2294(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2294(t0,t1);} C_noret_decl(trf_2291) static void C_ccall trf_2291(C_word c,C_word *av) C_noret; static void C_ccall trf_2291(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2291(t0,t1);} C_noret_decl(trf_2297) static void C_ccall trf_2297(C_word c,C_word *av) C_noret; static void C_ccall trf_2297(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2297(t0,t1);} C_noret_decl(trf_3109) static void C_ccall trf_3109(C_word c,C_word *av) C_noret; static void C_ccall trf_3109(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3109(t0,t1,t2);} C_noret_decl(trf_2258) static void C_ccall trf_2258(C_word c,C_word *av) C_noret; static void C_ccall trf_2258(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2258(t0,t1);} C_noret_decl(trf_2267) static void C_ccall trf_2267(C_word c,C_word *av) C_noret; static void C_ccall trf_2267(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2267(t0,t1);} C_noret_decl(trf_2261) static void C_ccall trf_2261(C_word c,C_word *av) C_noret; static void C_ccall trf_2261(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2261(t0,t1);} C_noret_decl(trf_2579) static void C_ccall trf_2579(C_word c,C_word *av) C_noret; static void C_ccall trf_2579(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2579(t0,t1);} C_noret_decl(trf_2264) static void C_ccall trf_2264(C_word c,C_word *av) C_noret; static void C_ccall trf_2264(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2264(t0,t1);} 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[1]; C_word t1=av[0]; f_2570(t0,t1);} C_noret_decl(trf_2561) static void C_ccall trf_2561(C_word c,C_word *av) C_noret; static void C_ccall trf_2561(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2561(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_3675(t0,t1,t2);} C_noret_decl(trf_3876) static void C_ccall trf_3876(C_word c,C_word *av) C_noret; static void C_ccall trf_3876(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3876(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[1]; C_word t1=av[0]; f_2427(t0,t1);} C_noret_decl(trf_2452) static void C_ccall trf_2452(C_word c,C_word *av) C_noret; static void C_ccall trf_2452(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2452(t0,t1);} C_noret_decl(trf_1714) static void C_ccall trf_1714(C_word c,C_word *av) C_noret; static void C_ccall trf_1714(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1714(t0,t1);} C_noret_decl(trf_3320) static void C_ccall trf_3320(C_word c,C_word *av) C_noret; static void C_ccall trf_3320(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3320(t0,t1,t2);} C_noret_decl(trf_2480) static void C_ccall trf_2480(C_word c,C_word *av) C_noret; static void C_ccall trf_2480(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2480(t0,t1);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2118(t0,t1,t2,t3);} C_noret_decl(trf_2116) static void C_ccall trf_2116(C_word c,C_word *av) C_noret; static void C_ccall trf_2116(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_2116(t0,t1,t2,t3,t4);} 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_3709) static void C_ccall trf_3709(C_word c,C_word *av) C_noret; static void C_ccall trf_3709(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3709(t0,t1,t2);} C_noret_decl(trf_4442) static void C_ccall trf_4442(C_word c,C_word *av) C_noret; static void C_ccall trf_4442(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4442(t0,t1,t2);} C_noret_decl(trf_3440) static void C_ccall trf_3440(C_word c,C_word *av) C_noret; static void C_ccall trf_3440(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3440(t0,t1,t2);} C_noret_decl(trf_4154) static void C_ccall trf_4154(C_word c,C_word *av) C_noret; static void C_ccall trf_4154(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4154(t0,t1,t2);} C_noret_decl(trf_3832) static void C_ccall trf_3832(C_word c,C_word *av) C_noret; static void C_ccall trf_3832(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3832(t0,t1,t2);} C_noret_decl(trf_3161) static void C_ccall trf_3161(C_word c,C_word *av) C_noret; static void C_ccall trf_3161(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3161(t0,t1,t2);} C_noret_decl(trf_1918) static void C_ccall trf_1918(C_word c,C_word *av) C_noret; static void C_ccall trf_1918(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1918(t0,t1,t2);} C_noret_decl(trf_4188) static void C_ccall trf_4188(C_word c,C_word *av) C_noret; static void C_ccall trf_4188(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4188(t0,t1,t2);} C_noret_decl(trf_4905) static void C_ccall trf_4905(C_word c,C_word *av) C_noret; static void C_ccall trf_4905(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4905(t0,t1,t2);} C_noret_decl(trf_3251) static void C_ccall trf_3251(C_word c,C_word *av) C_noret; static void C_ccall trf_3251(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3251(t0,t1,t2);} C_noret_decl(trf_2303) static void C_ccall trf_2303(C_word c,C_word *av) C_noret; static void C_ccall trf_2303(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2303(t0,t1);} C_noret_decl(trf_4793) static void C_ccall trf_4793(C_word c,C_word *av) C_noret; static void C_ccall trf_4793(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4793(t0,t1,t2);} C_noret_decl(trf_2300) static void C_ccall trf_2300(C_word c,C_word *av) C_noret; static void C_ccall trf_2300(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2300(t0,t1);} C_noret_decl(trf_2308) static void C_ccall trf_2308(C_word c,C_word *av) C_noret; static void C_ccall trf_2308(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2308(t0,t1);} C_noret_decl(trf_4211) static void C_ccall trf_4211(C_word c,C_word *av) C_noret; static void C_ccall trf_4211(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4211(t0,t1,t2);} C_noret_decl(trf_4244) static void C_ccall trf_4244(C_word c,C_word *av) C_noret; static void C_ccall trf_4244(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4244(t0,t1,t2);} C_noret_decl(trf_1941) static void C_ccall trf_1941(C_word c,C_word *av) C_noret; static void C_ccall trf_1941(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1941(t0,t1);} C_noret_decl(trf_2146) static void C_ccall trf_2146(C_word c,C_word *av) C_noret; static void C_ccall trf_2146(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2146(t0,t1);} C_noret_decl(trf_2141) static void C_ccall trf_2141(C_word c,C_word *av) C_noret; static void C_ccall trf_2141(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2141(t0,t1,t2);} C_noret_decl(trf_1775) static void C_ccall trf_1775(C_word c,C_word *av) C_noret; static void C_ccall trf_1775(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1775(t0,t1);} C_noret_decl(trf_3215) static void C_ccall trf_3215(C_word c,C_word *av) C_noret; static void C_ccall trf_3215(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3215(t0,t1,t2);} C_noret_decl(trf_2185) static void C_ccall trf_2185(C_word c,C_word *av) C_noret; static void C_ccall trf_2185(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2185(t0,t1);} C_noret_decl(trf_2182) static void C_ccall trf_2182(C_word c,C_word *av) C_noret; static void C_ccall trf_2182(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2182(t0,t1);} C_noret_decl(trf_3947) static void C_ccall trf_3947(C_word c,C_word *av) C_noret; static void C_ccall trf_3947(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3947(t0,t1,t2);} C_noret_decl(trf_1868) static void C_ccall trf_1868(C_word c,C_word *av) C_noret; static void C_ccall trf_1868(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_1868(t0,t1,t2,t3,t4,t5);} 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_1895) static void C_ccall trf_1895(C_word c,C_word *av) C_noret; static void C_ccall trf_1895(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_1895(t0,t1,t2,t3,t4);} C_noret_decl(trf_2037) static void C_ccall trf_2037(C_word c,C_word *av) C_noret; static void C_ccall trf_2037(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2037(t0,t1,t2);} C_noret_decl(trf_2031) static void C_ccall trf_2031(C_word c,C_word *av) C_noret; static void C_ccall trf_2031(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2031(t0,t1,t2);} C_noret_decl(trf_4505) static void C_ccall trf_4505(C_word c,C_word *av) C_noret; static void C_ccall trf_4505(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4505(t0,t1,t2);} C_noret_decl(trf_2076) static void C_ccall trf_2076(C_word c,C_word *av) C_noret; static void C_ccall trf_2076(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2076(t0,t1,t2);} C_noret_decl(trf_2661) static void C_ccall trf_2661(C_word c,C_word *av) C_noret; static void C_ccall trf_2661(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2661(t0,t1);} C_noret_decl(trf_2066) static void C_ccall trf_2066(C_word c,C_word *av) C_noret; static void C_ccall trf_2066(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2066(t0,t1);} C_noret_decl(trf_2684) static void C_ccall trf_2684(C_word c,C_word *av) C_noret; static void C_ccall trf_2684(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_2684(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_3743) static void C_ccall trf_3743(C_word c,C_word *av) C_noret; static void C_ccall trf_3743(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3743(t0,t1,t2);} 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[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_1846(t0,t1,t2,t3,t4);} C_noret_decl(trf_2349) static void C_ccall trf_2349(C_word c,C_word *av) C_noret; static void C_ccall trf_2349(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2349(t0,t1);} C_noret_decl(trf_2045) static void C_ccall trf_2045(C_word c,C_word *av) C_noret; static void C_ccall trf_2045(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2045(t0,t1,t2);} C_noret_decl(trf_1819) static void C_ccall trf_1819(C_word c,C_word *av) C_noret; static void C_ccall trf_1819(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1819(t0,t1,t2);} C_noret_decl(trf_2318) static void C_ccall trf_2318(C_word c,C_word *av) C_noret; static void C_ccall trf_2318(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2318(t0,t1);} C_noret_decl(trf_2313) static void C_ccall trf_2313(C_word c,C_word *av) C_noret; static void C_ccall trf_2313(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2313(t0,t1);} C_noret_decl(trf_4392) static void C_ccall trf_4392(C_word c,C_word *av) C_noret; static void C_ccall trf_4392(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4392(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_4865(t0,t1,t2);} C_noret_decl(trf_1801) static void C_ccall trf_1801(C_word c,C_word *av) C_noret; static void C_ccall trf_1801(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1801(t0,t1);} C_noret_decl(trf_3913) static void C_ccall trf_3913(C_word c,C_word *av) C_noret; static void C_ccall trf_3913(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3913(t0,t1,t2);} C_noret_decl(trf_2358) static void C_ccall trf_2358(C_word c,C_word *av) C_noret; static void C_ccall trf_2358(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2358(t0,t1);} C_noret_decl(trf_2352) static void C_ccall trf_2352(C_word c,C_word *av) C_noret; static void C_ccall trf_2352(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2352(t0,t1);} 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[1]; C_word t1=av[0]; f_2355(t0,t1);} C_noret_decl(trf_4369) static void C_ccall trf_4369(C_word c,C_word *av) C_noret; static void C_ccall trf_4369(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4369(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_3086(t0,t1,t2);} C_noret_decl(trf_2361) static void C_ccall trf_2361(C_word c,C_word *av) C_noret; static void C_ccall trf_2361(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2361(t0,t1);} C_noret_decl(trf_4729) static void C_ccall trf_4729(C_word c,C_word *av) C_noret; static void C_ccall trf_4729(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4729(t0,t1,t2);} C_noret_decl(trf_3568) static void C_ccall trf_3568(C_word c,C_word *av) C_noret; static void C_ccall trf_3568(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3568(t0,t1);} /* k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in ... */ static void C_fcall f_2279(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_2279,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,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*)t0)[7],a[8]=((C_word*)t0)[8],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[101],t3))){ t4=C_set_block_item(lf[101] /* optimize-leaf-routines */,0,C_SCHEME_TRUE); t5=t2; f_2282(t5,t4);} else{ t4=t2; f_2282(t4,C_SCHEME_UNDEFINED);}} /* k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in ... */ static void C_fcall f_2276(C_word t0,C_word 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_2276,2,t0,t1);} a=C_alloc(43); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2279,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[368],t3))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4664,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)f5812,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[112]+1); av2[3]=lf[369]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} else{ t4=t2; f_2279(t4,C_SCHEME_UNDEFINED);}} /* k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in ... */ static void C_fcall f_2270(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_2270,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2273,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[372] /* ##sys#notices-enabled */,0,C_SCHEME_TRUE); t4=t2; f_2273(t4,t3);} else{ t3=t2; f_2273(t3,C_SCHEME_UNDEFINED);}} /* k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in ... */ static void C_fcall f_2273(C_word 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_2273,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2276,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[370],t3))){ t4=C_set_block_item(lf[371] /* ##compiler#strict-variable-types */,0,C_SCHEME_TRUE); t5=C_set_block_item(lf[54] /* ##compiler#enable-specialization */,0,C_SCHEME_TRUE); t6=t2; f_2276(t6,t5);} else{ t4=t2; f_2276(t4,C_SCHEME_UNDEFINED);}} /* k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in ... */ static void C_fcall f_2288(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_2288,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2291,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[365],t3))){ t4=C_set_block_item(lf[133] /* ##compiler#insert-timer-checks */,0,C_SCHEME_FALSE); t5=t2; f_2291(t5,t4);} else{ t4=t2; f_2291(t4,C_SCHEME_UNDEFINED);}} /* k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in ... */ static void C_fcall f_2285(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_2285,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2288,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[366],t3))){ t4=C_set_block_item(lf[367] /* ##sys#setup-mode */,0,C_SCHEME_TRUE); t5=t2; f_2288(t5,t4);} else{ t4=t2; f_2288(t4,C_SCHEME_UNDEFINED);}} /* k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in ... */ static void C_fcall f_2282(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_2282,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2285,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[159],t3))){ t4=C_set_block_item(lf[159] /* unsafe */,0,C_SCHEME_TRUE); t5=t2; f_2285(t5,t4);} else{ t4=t2; f_2285(t4,C_SCHEME_UNDEFINED);}} /* k3547 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in ... */ static void C_ccall f_3549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_3549,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_word*)lf[229]+1); t8=C_i_check_list_2(*((C_word*)lf[229]+1),lf[57]); t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3564,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); 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_3675,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_3675(t13,t9,*((C_word*)lf[229]+1));} /* k3117 in for-each-loop1073 in k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3119,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3109(t3,((C_word*)t0)[4],t2);} /* k2217 in k2213 in map-loop308 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in ... */ static void C_ccall f_2219(C_word c,C_word *av){ C_word tmp; 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_2219,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k2213 in map-loop308 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in ... */ static void C_ccall f_2215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2215,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2219,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* ##sys#string-append */ t4=*((C_word*)lf[391]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[392]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3515 in map-loop894 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in ... */ 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 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_3517,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3492(t6,((C_word*)t0)[5],t5);} /* k2889 in k2886 in k2883 in k2880 in k2877 in k2874 in k2871 in k2868 in k2865 in a2862 in k2850 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_2891,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5640,a[2]=t2,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t3; av2[2]=*((C_word*)lf[112]+1); av2[3]=lf[113]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} /* k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 in ... */ static void C_ccall f_2224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_2224,2,av);} a=C_alloc(44); t2=C_i_check_list_2(t1,lf[57]); t3=(*a=C_CLOSURE_TYPE|36,a[1]=(C_word)f_2230,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_4729,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_4729(t7,t3,t1);} /* k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in ... */ static void C_fcall f_2233(C_word t0,C_word t1){ C_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(37,0,2)))){ C_save_and_reclaim_args((void *)trf_2233,2,t0,t1);} a=C_alloc(37); t2=((C_word*)t0)[2]; t3=C_u_i_memq(lf[59],t2); t4=C_i_not(t3); t5=C_set_block_item(lf[60] /* ##compiler#enable-module-registration */,0,t4); t6=(*a=C_CLOSURE_TYPE|36,a[1]=(C_word)f_2240,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[54]+1))){ t7=C_set_block_item(((C_word*)t0)[22],0,C_SCHEME_TRUE); t8=t6; f_2240(t8,t7);} else{ t7=t6; f_2240(t7,C_SCHEME_UNDEFINED);}} /* k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in ... */ 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 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_2230,2,av);} a=C_alloc(37); t2=C_mutate2((C_word*)lf[58]+1 /* (set! ##compiler#import-libraries ...) */,t1); t3=(*a=C_CLOSURE_TYPE|36,a[1]=(C_word)f_2233,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[389],t4))){ if(C_truep(((C_word*)t0)[17])){ t5=t3; f_2233(t5,C_SCHEME_UNDEFINED);} else{ t5=C_set_block_item(lf[390] /* ##compiler#all-import-libraries */,0,C_SCHEME_TRUE); t6=t3; f_2233(t6,t5);}} else{ t5=t3; f_2233(t5,C_SCHEME_UNDEFINED);}} /* f5646 */ static void C_ccall f5646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5646,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* f5640 in k2889 in k2886 in k2883 in k2880 in k2877 in k2874 in k2871 in k2868 in k2865 in a2862 in k2850 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in ... */ static void C_ccall f5640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5640,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in ... */ static void C_ccall f_2249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2249,2,av);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2252,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[383],t3))){ /* batch-driver.scm:205: warning */ t4=*((C_word*)lf[381]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=lf[384]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2252(2,av2);}}} /* k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in ... */ static void C_fcall f_2246(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_2246,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2249,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[385],t3))){ /* batch-driver.scm:203: warning */ t4=*((C_word*)lf[381]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=lf[386]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=t2;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2249(2,av2);}}} /* k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in ... */ 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(36,c,2)))){ C_save_and_reclaim((void *)f_2243,2,av);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2246,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[387],*((C_word*)lf[30]+1)))){ t3=C_set_block_item(((C_word*)t0)[36],0,C_SCHEME_TRUE); t4=t2; f_2246(t4,t3);} else{ t3=t2; f_2246(t3,C_SCHEME_UNDEFINED);}} /* k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in ... */ static void C_fcall f_2240(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_2240,2,t0,t1);} a=C_alloc(37); t2=(*a=C_CLOSURE_TYPE|36,a[1]=(C_word)f_2243,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[115],*((C_word*)lf[30]+1)))){ /* batch-driver.scm:200: ##sys#start-timer */ t3=*((C_word*)lf[388]+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_2243(2,av2);}}} /* k2934 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in ... */ static void C_ccall f_2936(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2936,2,av);} /* batch-driver.scm:665: emit-global-inline-file */ t2=*((C_word*)lf[134]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* f5770 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in ... */ static void C_ccall f5770(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5770,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2928 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2930,2,av);} a=C_alloc(4); t2=C_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:673: display */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[128]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2843(2,av2);}}} /* k4008 in loop in a3999 in k3983 in doloop651 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4010,2,av);} a=C_alloc(3); if(C_truep(C_eofp(t1))){ /* batch-driver.scm:428: close-checked-input-file */ t2=*((C_word*)lf[255]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_mutate2(((C_word *)((C_word*)t0)[5])+1,t2); /* batch-driver.scm:431: loop */ t4=((C_word*)((C_word*)t0)[6])[1]; f_4006(t4,((C_word*)t0)[2]);}} /* loop in a3999 in k3983 in doloop651 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in ... */ static void C_fcall f_4006(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_4006,2,t0,t1);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4010,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:426: read/source-info */ t3=*((C_word*)lf[256]+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);}} /* f5806 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in ... */ static void C_ccall f5806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5806,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* f5788 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in ... */ static void C_ccall f5788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5788,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* f5800 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in ... */ static void C_ccall f5800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5800,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3999 in k3983 in doloop651 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 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 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_4000,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_4006,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_4006(t5,t1);} /* k3899 in k3895 in doloop651 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in ... */ static void C_ccall f_3901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_3901,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[252]+1); t8=C_i_check_list_2(((C_word*)t0)[2],lf[57]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3911,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_3913,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_3913(t13,t9,((C_word*)t0)[2]);} /* k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in ... */ static void C_fcall f_2294(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_2294,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2297,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[360],t3))){ t4=C_set_block_item(lf[361] /* ##compiler#block-compilation */,0,C_SCHEME_TRUE); t5=t2; f_2297(t5,t4);} else{ t4=t2; f_2297(t4,C_SCHEME_UNDEFINED);}} /* k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in ... */ static void C_fcall f_2291(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_2291,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2294,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[362],t3))){ t4=C_mutate2((C_word*)lf[363]+1 /* (set! number-type ...) */,lf[364]); t5=t2; f_2294(t5,t4);} else{ t4=t2; f_2294(t4,C_SCHEME_UNDEFINED);}} /* k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in ... */ static void C_fcall f_2297(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_2297,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2300,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[358],t3))){ t4=C_set_block_item(lf[359] /* ##compiler#external-protos-first */,0,C_SCHEME_TRUE); t5=t2; f_2300(t5,t4);} else{ t4=t2; f_2300(t4,C_SCHEME_UNDEFINED);}} /* k3936 in map-loop682 in k3899 in k3895 in doloop651 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 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 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_3938,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3913(t6,((C_word*)t0)[5],t5);} /* for-each-loop1073 in k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in ... */ static void C_fcall f_3109(C_word t0,C_word t1,C_word 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_3109,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_3119,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_3020,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:557: load-type-database */ t8=*((C_word*)lf[170]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=t6; av2[3]=C_SCHEME_FALSE; ((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);}}} /* k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){ C_save_and_reclaim((void *)f_2536,2,av);} a=C_alloc(27); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_2540,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]=((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:403: make-vector */ t4=*((C_word*)lf[263]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[264]+1); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in ... */ static void C_ccall f_2532(C_word c,C_word *av){ C_word tmp; C_word t0=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_2532,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_2536,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:105: current-milliseconds */ t3=*((C_word*)lf[47]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(30,c,2)))){ C_save_and_reclaim((void *)f_2549,2,av);} a=C_alloc(30); t2=t1; t3=(*a=C_CLOSURE_TYPE|29,a[1]=(C_word)f_2552,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:411: user-read-pass */ t4=*((C_word*)lf[1]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in ... */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(34,c,2)))){ C_save_and_reclaim((void *)f_2546,2,av);} a=C_alloc(34); t2=t1; t3=(*a=C_CLOSURE_TYPE|28,a[1]=(C_word)f_2549,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_4035,a[2]=((C_word*)t0)[8],a[3]=t3,a[4]=((C_word*)t0)[18],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:407: collect-options */ t5=((C_word*)((C_word*)t0)[18])[1]; f_2031(t5,t4,lf[260]);} /* k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,2)))){ C_save_and_reclaim((void *)f_2543,2,av);} a=C_alloc(28); t2=t1; t3=(*a=C_CLOSURE_TYPE|27,a[1]=(C_word)f_2546,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:405: collect-options */ t4=((C_word*)((C_word*)t0)[18])[1]; f_2031(t4,t3,lf[261]);} /* k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,2)))){ C_save_and_reclaim((void *)f_2540,2,av);} a=C_alloc(27); t2=C_mutate2((C_word*)lf[87]+1 /* (set! ##sys#line-number-database ...) */,t1); t3=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_2543,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:404: collect-options */ t4=((C_word*)((C_word*)t0)[18])[1]; f_2031(t4,t3,lf[262]);} /* k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_2519,2,av);} a=C_alloc(27); t2=C_mutate2((C_word*)lf[86]+1 /* (set! ##compiler#source-filename ...) */,((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_2523,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],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:396: debugging */ t4=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[265]; av2[3]=lf[269]; av2[4]=((C_word*)t0)[19]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2511 in k2508 in k2505 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in ... */ static void C_ccall f_2513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2513,2,av);} /* batch-driver.scm:390: display */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[271]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k2508 in k2505 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2510,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2513,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:389: display */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[272]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in ... */ static void C_fcall f_2258(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_2258,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2261,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[377],t3))){ t4=C_set_block_item(lf[378] /* ##compiler#emit-closure-info */,0,C_SCHEME_FALSE); t5=t2; f_2261(t5,t4);} else{ t4=t2; f_2261(t4,C_SCHEME_UNDEFINED);}} /* k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_2529,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_2532,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:399: debugging */ t3=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[265]; av2[3]=lf[266]; av2[4]=*((C_word*)lf[73]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in ... */ 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,2)))){ C_save_and_reclaim((void *)f_2252,2,av);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2255,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[380],t3))){ /* batch-driver.scm:207: warning */ t4=*((C_word*)lf[381]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=lf[382]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2255(2,av2);}}} /* k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in ... */ static void C_ccall f_2255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,c,2)))){ C_save_and_reclaim((void *)f_2255,2,av);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2258,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[379],t3))){ t4=C_set_block_item(lf[9] /* ##compiler#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)[6],0,C_SCHEME_END_OF_LIST); t7=t2; f_2258(t7,t6);} else{ t4=t2; f_2258(t4,C_SCHEME_UNDEFINED);}} /* k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_2526,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_2529,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:398: debugging */ t3=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[265]; av2[3]=lf[267]; av2[4]=*((C_word*)lf[72]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in ... */ 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(27,c,4)))){ C_save_and_reclaim((void *)f_2523,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_2526,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:397: debugging */ t3=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[265]; av2[3]=lf[268]; av2[4]=*((C_word*)lf[30]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in ... */ static void C_ccall f_2609(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2609,2,av);} a=C_alloc(22); t2=C_mutate2((C_word*)lf[87]+1 /* (set! ##sys#line-number-database ...) */,*((C_word*)lf[90]+1)); t3=C_set_block_item(lf[90] /* ##compiler#line-number-database-2 */,0,C_SCHEME_FALSE); t4=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_2614,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:504: end-time */ t5=((C_word*)((C_word*)t0)[3])[1]; f_2076(t5,t4,lf[204]);} /* k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_2617,2,av);} a=C_alloc(21); t2=(*a=C_CLOSURE_TYPE|20,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],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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=((C_word*)t0)[19]; if(C_truep(C_u_i_memq(lf[201],t3))){ /* batch-driver.scm:507: exit */ t4=*((C_word*)lf[124]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2620(2,av2);}}} /* k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in ... */ static void C_ccall f_2614(C_word c,C_word *av){ C_word tmp; C_word t0=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,4)))){ C_save_and_reclaim((void *)f_2614,2,av);} a=C_alloc(21); t2=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_2617,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* batch-driver.scm:505: print-expr */ t3=((C_word*)((C_word*)t0)[21])[1]; f_1895(t3,t2,lf[202],lf[203],((C_word*)((C_word*)t0)[20])[1]);} /* k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in ... */ static void C_fcall f_2267(C_word 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_2267,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2270,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[373],t3))){ t4=C_set_block_item(lf[183] /* ##compiler#enable-inline-files */,0,C_SCHEME_TRUE); t5=C_set_block_item(lf[179] /* ##compiler#inline-locally */,0,C_SCHEME_TRUE); t6=t2; f_2270(t6,t5);} else{ t4=t2; f_2270(t4,C_SCHEME_UNDEFINED);}} /* k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in ... */ static void C_fcall f_2261(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_2261,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2264,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[375],t3))){ t4=C_set_block_item(lf[376] /* ##compiler#compiler-syntax-enabled */,0,C_SCHEME_FALSE); t5=t2; f_2264(t5,t4);} else{ t4=t2; f_2264(t4,C_SCHEME_UNDEFINED);}} /* k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(50,c,2)))){ C_save_and_reclaim((void *)f_2576,2,av);} a=C_alloc(50); t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_2579,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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)[26])){ t3=C_a_i_list(&a,3,lf[240],lf[241],lf[242]); t4=C_a_i_cons(&a,2,t3,t1); t5=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t4); t6=C_a_i_cons(&a,2,lf[243],t5); t7=C_a_i_cons(&a,2,lf[244],t6); t8=t2; f_2579(t8,C_a_i_list(&a,1,t7));} else{ t3=t2; f_2579(t3,t1);}} /* k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in ... */ static void C_fcall f_2579(C_word t0,C_word 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(31,0,3)))){ C_save_and_reclaim_args((void *)trf_2579,2,t0,t1);} a=C_alloc(31); t2=C_i_check_list_2(t1,lf[57]); t3=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_2585,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); 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_3743,a[2]=((C_word*)t0)[23],a[3]=t5,a[4]=((C_word*)t0)[24],a[5]=((C_word*)t0)[25],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_3743(t7,t3,t1);} /* k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in ... */ static void C_fcall f_2264(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_2264,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2267,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[374],t3))){ t4=C_set_block_item(lf[356] /* ##compiler#local-definitions */,0,C_SCHEME_TRUE); t5=t2; f_2267(t5,t4);} else{ t4=t2; f_2267(t4,C_SCHEME_UNDEFINED);}} /* k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in ... */ static void C_fcall f_2570(C_word t0,C_word t1){ C_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(32,0,3)))){ C_save_and_reclaim_args((void *)trf_2570,2,t0,t1);} 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=*((C_word*)lf[88]+1); t7=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_2576,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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]=t4,a[24]=t6,a[25]=t5,a[26]=((C_word*)t0)[23],tmp=(C_word)a,a+=27,tmp); /* batch-driver.scm:447: append */ t8=*((C_word*)lf[230]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)((C_word*)t0)[24])[1]; av2[3]=((C_word*)((C_word*)t0)[25])[1]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_2626,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_3295,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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|2,a[1]=(C_word)f_3299,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:521: canonicalize-begin-body */ t4=*((C_word*)lf[198]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[20])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in ... */ 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 t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(31,c,4)))){ C_save_and_reclaim((void *)f_2623,2,av);} a=C_alloc(31); t2=t1; t3=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_2626,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3302,a[2]=t2,a[3]=((C_word*)t0)[20],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)f5696,a[2]=t5,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[112]+1); av2[3]=lf[200]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2626(2,av2);}}} /* k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in ... */ 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(21,c,2)))){ C_save_and_reclaim((void *)f_2620,2,av);} a=C_alloc(21); t2=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_2623,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* batch-driver.scm:510: user-pass */ t3=*((C_word*)lf[3]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in ... */ 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; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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(41,c,3)))){ C_save_and_reclaim((void *)f_2588,2,av);} a=C_alloc(41); t2=C_i_length(*((C_word*)lf[89]+1)); t3=t2; t4=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_2594,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); 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[228]+1); t10=C_i_check_list_2(*((C_word*)lf[228]+1),lf[57]); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3549,a[2]=t4,a[3]=((C_word*)t0)[21],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[22],a[6]=t3,a[7]=((C_word*)t0)[23],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|4,a[1]=(C_word)f_3709,a[2]=t7,a[3]=t13,a[4]=t8,tmp=(C_word)a,a+=5,tmp)); t15=((C_word*)t13)[1]; f_3709(t15,t11,*((C_word*)lf[228]+1));} /* k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){ C_save_and_reclaim((void *)f_2585,2,av);} a=C_alloc(24); t2=t1; t3=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_2588,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* batch-driver.scm:453: gensym */ t4=*((C_word*)lf[239]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in ... */ static void C_ccall f_2637(C_word c,C_word *av){ C_word tmp; C_word t0=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_2637,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_2640,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:524: initialize-analysis-database */ t3=*((C_word*)lf[194]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4827 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4829,2,av);} /* batch-driver.scm:180: append-map */ t2=*((C_word*)lf[313]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in ... */ 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 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_2558,2,av);} a=C_alloc(35); t2=t1; t3=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_2561,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_3820,a[2]=t2,a[3]=((C_word*)t0)[25],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5716,a[2]=t5,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[112]+1); av2[3]=lf[250]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} else{ t4=t3; f_2561(t4,C_SCHEME_UNDEFINED);}} /* k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,2)))){ C_save_and_reclaim((void *)f_2555,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_2558,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:434: user-preprocessor-pass */ t3=*((C_word*)lf[2]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 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 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_2552,2,av);} a=C_alloc(38); t2=t1; t3=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_2555,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_3867,a[2]=((C_word*)t0)[25],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)f5722,a[2]=t5,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[112]+1); av2[3]=lf[251]; 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_3876,a[2]=((C_word*)t0)[25],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_3876(t7,t3,((C_word*)t0)[28]);}} /* k4816 in map-loop280 in k4786 in a4771 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4818,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4793(t6,((C_word*)t0)[5],t5);} /* k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(31,c,3)))){ C_save_and_reclaim((void *)f_2567,2,av);} a=C_alloc(31); t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_2570,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_i_nullp(((C_word*)((C_word*)t0)[26])[1]))){ t3=t2; f_2570(t3,C_SCHEME_UNDEFINED);} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3805,a[2]=((C_word*)t0)[26],a[3]=((C_word*)t0)[25],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:443: append */ t4=*((C_word*)lf[230]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[245]+1); av2[3]=((C_word*)((C_word*)t0)[26])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in ... */ static void C_fcall f_2561(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_2561,2,t0,t1);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_2564,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:439: print-expr */ t3=((C_word*)((C_word*)t0)[20])[1]; f_1895(t3,t2,lf[248],lf[249],((C_word*)((C_word*)t0)[25])[1]);} /* k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in ... */ static void C_ccall f_2564(C_word c,C_word *av){ C_word tmp; C_word t0=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_2564,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_2567,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:440: begin-time */ t3=((C_word*)((C_word*)t0)[4])[1]; f_2066(t3,t2);} /* k3365 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in ... */ static void C_ccall f_3367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3367,2,av);} a=C_alloc(5); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[112]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3373,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:499: ##sys#print */ t6=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[209]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* map-loop826 in k3547 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in ... */ static void C_fcall f_3675(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_3675,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[238],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_mutate2(((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);}}} /* k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in ... */ static void C_ccall f_2837(C_word c,C_word *av){ C_word tmp; C_word t0=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_2837,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_2840,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:670: print-db */ t3=((C_word*)((C_word*)t0)[13])[1]; f_1868(t3,t2,lf[129],lf[130],((C_word*)t0)[3],((C_word*)t0)[14]);} /* k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in ... */ static void C_ccall f_2834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2834,2,av);} a=C_alloc(15); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_2837,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* batch-driver.scm:669: end-time */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2076(t4,t3,lf[131]);} /* k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in ... */ static void C_ccall f_2830(C_word c,C_word *av){ C_word tmp; C_word t0=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_2830,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_2834,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* batch-driver.scm:668: perform-closure-conversion */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in ... */ 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; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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(42,c,3)))){ C_save_and_reclaim((void *)f_2594,2,av);} a=C_alloc(42); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_2597,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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]=t3,a[21]=((C_word*)t0)[20],tmp=(C_word)a,a+=22,tmp); if(C_truep(C_i_nullp(*((C_word*)lf[58]+1)))){ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2597(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3471,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[58]+1); t11=C_i_check_list_2(*((C_word*)lf[58]+1),lf[57]); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3490,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_3492,a[2]=t8,a[3]=t14,a[4]=t9,tmp=(C_word)a,a+=5,tmp)); t16=((C_word*)t14)[1]; f_3492(t16,t12,*((C_word*)lf[58]+1));}} /* k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in ... */ 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; 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_2597,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_2600,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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(C_i_pairp(*((C_word*)lf[217]+1)))){ t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3402,tmp=(C_word)a,a+=2,tmp); /* batch-driver.scm:485: with-debugging-output */ t4=*((C_word*)lf[222]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=lf[223]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2600(2,av2);}}} /* k2799 in k2796 in k2793 in k2790 in k2787 in k2784 in k2735 in k2732 in a2729 in k2711 in k2708 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in ... */ 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(4,c,6)))){ C_save_and_reclaim((void *)f_2801,2,av);} a=C_alloc(4); t2=C_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); /* batch-driver.scm:644: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2684(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE,((C_word*)t0)[7]);} /* k3885 in doloop651 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 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(0,c,1)))){ C_save_and_reclaim((void *)f_3887,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f5652 in k2871 in k2868 in k2865 in a2862 in k2850 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in ... */ static void C_ccall f5652(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5652,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* f5658 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in ... */ static void C_ccall f5658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5658,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3389 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3391,2,av);} if(C_truep(t1)){ /* batch-driver.scm:493: display-real-name-table */ t2=*((C_word*)lf[214]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_2603(2,av2);}}} /* k3895 in doloop651 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in ... */ 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; 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_3897,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3901,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:420: reverse */ t4=*((C_word*)lf[253]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f5664 in k2964 in k2961 in k2958 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in ... */ static void C_ccall f5664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5664,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_2827,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_2830,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* batch-driver.scm:666: begin-time */ t3=((C_word*)((C_word*)t0)[8])[1]; f_2066(t3,t2);} /* k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in ... */ static void C_ccall f_2821(C_word c,C_word *av){ C_word tmp; C_word t0=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,4)))){ C_save_and_reclaim((void *)f_2821,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_2824,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:659: print-node */ t3=((C_word*)((C_word*)t0)[11])[1]; f_1846(t3,t2,lf[136],lf[137],((C_word*)((C_word*)t0)[2])[1]);} /* k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,4)))){ C_save_and_reclaim((void *)f_2824,2,av);} a=C_alloc(26); t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_2827,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_truep(((C_word*)((C_word*)t0)[15])[1])?*((C_word*)lf[133]+1):C_SCHEME_FALSE); if(C_truep(t3)){ t4=((C_word*)((C_word*)t0)[15])[1]; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2936,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t6=t5; t7=C_a_i_list(&a,1,t4); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5658,a[2]=t6,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t8; av2[2]=*((C_word*)lf[112]+1); av2[3]=lf[135]; av2[4]=t7; C_apply(5,av2);}} else{ t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2827(2,av2);}}} /* k3865 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_3867,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3871,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:414: proc */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* doloop651 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in ... */ static void C_fcall f_3876(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_3876,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_3887,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[252]+1); t9=C_i_check_list_2(((C_word*)t0)[3],lf[57]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3897,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_3947,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_3947(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_3985,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:423: check-and-open-input-file */ t6=*((C_word*)lf[258]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in ... */ 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; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,3)))){ C_save_and_reclaim((void *)f_2416,2,av);} a=C_alloc(32); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|31,a[1]=(C_word)f_2420,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); /* batch-driver.scm:329: append */ t4=*((C_word*)lf[230]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=*((C_word*)lf[305]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k4662 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4664,2,av);} t2=C_set_block_item(lf[127] /* ##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_2279(t4,t3);} /* k3869 in k3865 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in ... */ static void C_ccall f_3871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3871,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_2555(2,av2);}} /* k4465 in map-loop393 in k4435 in a4429 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in ... */ 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 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_4467,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4442(t6,((C_word*)t0)[5],t5);} /* k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in ... */ static void C_fcall f_2427(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_2427,2,t0,t1);} a=C_alloc(35); t2=(*a=C_CLOSURE_TYPE|30,a[1]=(C_word)f_2431,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_4123,a[2]=((C_word*)t0)[29],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:342: option-arg */ f_1714(t3,((C_word*)t0)[31]);} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_2431(2,av2);}}} /* k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,2)))){ C_save_and_reclaim((void *)f_2424,2,av);} a=C_alloc(32); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|31,a[1]=(C_word)f_2427,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],tmp=(C_word)a,a+=32,tmp); t4=((C_word*)t0)[3]; if(C_truep(C_u_i_memq(lf[300],t4))){ t5=C_set_block_item(lf[301] /* ##sys#enable-runtime-macros */,0,C_SCHEME_TRUE); t6=t3; f_2427(t6,t5);} else{ t5=t3; f_2427(t5,C_SCHEME_UNDEFINED);}} /* k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in ... */ 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 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,2)))){ C_save_and_reclaim((void *)f_2420,2,av);} a=C_alloc(43); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|31,a[1]=(C_word)f_2424,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); 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_4146,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=t7,tmp=(C_word)a,a+=6,tmp); /* batch-driver.scm:336: collect-options */ t9=((C_word*)((C_word*)t0)[20])[1]; f_2031(t9,t8,lf[304]);} /* k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_1745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1745,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2]; t3=C_mutate2((C_word*)lf[9]+1 /* (set! ##compiler#explicit-use-flag ...) */,C_u_i_memq(lf[10],t2)); t4=((C_word*)t0)[2]; t5=C_mutate2((C_word*)lf[11]+1 /* (set! emit-debug-info ...) */,C_u_i_memq(lf[12],t4)); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4944,a[2]=((C_word*)t0)[2],a[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_truep(*((C_word*)lf[11]+1))?lf[411]:C_SCHEME_END_OF_LIST); if(C_truep(*((C_word*)lf[9]+1))){ /* batch-driver.scm:57: append */ t8=*((C_word*)lf[230]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t6; av2[2]=*((C_word*)lf[412]+1); av2[3]=t7; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t8=C_a_i_cons(&a,2,lf[246],*((C_word*)lf[413]+1)); t9=C_a_i_list(&a,1,t8); /* batch-driver.scm:57: append */ t10=*((C_word*)lf[230]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t6; av2[2]=*((C_word*)lf[412]+1); av2[3]=t7; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}} /* k3855 in map-loop731 in k3818 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 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 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_3857,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3832(t6,((C_word*)t0)[5],t5);} /* k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in ... */ static void C_ccall f_2435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2435,2,av);} a=C_alloc(28); t2=C_mutate2((C_word*)lf[73]+1 /* (set! ##compiler#target-stack-size ...) */,t1); t3=((C_word*)t0)[2]; t4=C_u_i_memq(lf[74],t3); t5=C_i_not(t4); t6=C_set_block_item(lf[75] /* ##compiler#emit-trace-info */,0,t5); t7=((C_word*)t0)[2]; t8=C_mutate2((C_word*)lf[76]+1 /* (set! ##compiler#disable-stack-overflow-checking ...) */,C_u_i_memq(lf[77],t7)); t9=(*a=C_CLOSURE_TYPE|27,a[1]=(C_word)f_2446,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:348: feature? */ t10=*((C_word*)lf[298]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=lf[299]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in ... */ static void C_ccall f_2431(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2431,2,av);} a=C_alloc(32); t2=C_mutate2((C_word*)lf[72]+1 /* (set! ##compiler#target-heap-size ...) */,t1); t3=(*a=C_CLOSURE_TYPE|27,a[1]=(C_word)f_2435,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_4116,a[2]=((C_word*)t0)[29],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:345: option-arg */ f_1714(t4,((C_word*)t0)[28]);} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_2435(2,av2);}}} /* k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in ... */ static void C_ccall f_2449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_2449,2,av);} a=C_alloc(28); t2=(*a=C_CLOSURE_TYPE|27,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*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[291],t3))){ t4=C_set_block_item(((C_word*)t0)[18],0,C_SCHEME_FALSE); t5=t2; f_2452(t5,t4);} else{ t4=C_mutate2((C_word*)lf[292]+1 /* (set! standard-bindings ...) */,*((C_word*)lf[293]+1)); t5=C_mutate2((C_word*)lf[294]+1 /* (set! extended-bindings ...) */,*((C_word*)lf[295]+1)); t6=t2; f_2452(t6,t5);}} /* compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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=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_1711,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_1714,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1745,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* batch-driver.scm:53: initialize-compiler */ t6=*((C_word*)lf[414]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in ... */ static void C_ccall f_2446(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2446,2,av);} a=C_alloc(28); t2=C_set_block_item(lf[78] /* ##compiler#bootstrap-mode */,0,t1); t3=(*a=C_CLOSURE_TYPE|27,a[1]=(C_word)f_2449,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[296],*((C_word*)lf[30]+1)))){ /* batch-driver.scm:349: set-gc-report! */ t4=*((C_word*)lf[297]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2449(2,av2);}}} /* k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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 t4; C_word t5; C_word 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,4)))){ C_save_and_reclaim((void *)f_4944,2,av);} a=C_alloc(19); t2=C_a_i_cons(&a,2,lf[13],t1); t3=C_a_i_list(&a,1,t2); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t0)[2]; t7=C_u_i_memq(lf[14],t6); t8=((C_word*)t0)[2]; t9=C_u_i_memq(lf[15],t8); t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1761,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t7,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(t9)){ t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4905,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:66: g72 */ t12=t11; f_4905(t12,t10,t9);} else{ t11=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[407],t11))){ t12=t10;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; f_1761(2,av2);}} else{ t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4933,a[2]=t10,tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[5])){ /* batch-driver.scm:73: pathname-file */ t13=*((C_word*)lf[409]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t12; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} else{ /* batch-driver.scm:73: make-pathname */ t13=*((C_word*)lf[171]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t13; av2[1]=t10; av2[2]=C_SCHEME_FALSE; av2[3]=lf[410]; av2[4]=lf[408]; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}}}}} /* k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in ... */ static void C_ccall f_2458(C_word c,C_word *av){ C_word tmp; C_word t0=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_2458,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_2461,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:376: load-identifier-database */ t3=*((C_word*)lf[277]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[278]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3343 in map-loop965 in k3303 in k3300 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in ... */ static void C_ccall f_3345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3345,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3320(t6,((C_word*)t0)[5],t5);} /* k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1701,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[2]+1 /* (set! user-preprocessor-pass ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1705,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:39: make-parameter */ t4=*((C_word*)lf[415]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in ... */ static void C_ccall f_2455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_2455,2,av);} a=C_alloc(32); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_2458,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[279],t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4061,a[2]=((C_word*)t0)[24],a[3]=t5,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ if(C_truep(((C_word*)t0)[22])){ t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_4061(2,av2);}} else{ /* batch-driver.scm:362: quit */ t7=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[287]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} else{ t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_4061(2,av2);}}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2458(2,av2);}}} /* k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in ... */ static void 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_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(34,0,4)))){ C_save_and_reclaim_args((void *)trf_2452,2,t0,t1);} a=C_alloc(34); t2=(*a=C_CLOSURE_TYPE|27,a[1]=(C_word)f_2455,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[75]+1))){ t3=t2; t4=C_a_i_list(&a,1,lf[288]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5754,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[112]+1); av2[3]=lf[289]; av2[4]=t4; C_apply(5,av2);}} else{ t3=t2; t4=C_a_i_list(&a,1,lf[290]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5760,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[112]+1); av2[3]=lf[289]; av2[4]=t4; C_apply(5,av2);}}} /* option-arg in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_1714(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_1714,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:48: quit */ t6=*((C_word*)lf[6]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t1; av2[2]=lf[7]; 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:51: quit */ t5=*((C_word*)lf[6]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=lf[8]; 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);}}}} /* f5812 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in k2228 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in ... */ static void C_ccall f5812(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5812,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3313 in k3303 in k3300 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3315,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); /* batch-driver.scm:515: end-time */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2076(t3,((C_word*)t0)[4],lf[199]);} /* k2467 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in ... */ static void C_ccall f_2469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2469,2,av);} /* batch-driver.scm:380: newline */ t2=*((C_word*)lf[44]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in ... */ 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 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_2461,2,av);} a=C_alloc(27); t2=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[79],t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2469,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:379: print-version */ t4=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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[81],t3); t5=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_2480,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_2480(t6,t4);} else{ t6=((C_word*)t0)[2]; t7=C_u_i_memq(lf[274],t6); if(C_truep(t7)){ t8=t5; f_2480(t8,t7);} else{ t8=((C_word*)t0)[2]; t9=C_u_i_memq(lf[275],t8); if(C_truep(t9)){ t10=t5; f_2480(t10,t9);} else{ t10=((C_word*)t0)[2]; t11=t5; f_2480(t11,C_u_i_memq(lf[276],t10));}}}}} /* k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_1705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1705,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[3]+1 /* (set! user-pass ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1709,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:40: make-parameter */ t4=*((C_word*)lf[415]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_1709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,3)))){ C_save_and_reclaim((void *)f_1709,2,av);} a=C_alloc(2); t2=C_mutate2((C_word*)lf[4]+1 /* (set! user-post-analysis-pass ...) */,t1); t3=C_mutate2((C_word*)lf[5]+1 /* (set! compile-source-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1711,tmp=(C_word)a,a+=2,tmp)); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3300 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in ... */ static void C_ccall f_3302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3302,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3305,a[2]=((C_word*)t0)[2],a[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:513: begin-time */ t3=((C_word*)((C_word*)t0)[6])[1]; f_2066(t3,t2);} /* k4495 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 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; C_word 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_4497,2,av);} a=C_alloc(12); t2=C_i_check_list_2(t1,lf[57]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4503,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_4505,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_4505(t7,t3,t1);} /* k3303 in k3300 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in ... */ static void C_ccall f_3305(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_3305,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[57]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3315,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_3320,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_3320(t13,t9,t7);} /* map-loop965 in k3303 in k3300 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in ... */ static void C_fcall f_3320(C_word t0,C_word t1,C_word 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_3320,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_3345,a[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:514: g971 */ 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);}}} /* k3371 in k3365 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in ... */ static void C_ccall f_3373(C_word c,C_word *av){ C_word tmp; C_word t0=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_3373,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3376,a[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:499: ##sys#print */ t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[205]+1); av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3377 in k3374 in k3371 in k3365 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in ... */ static void C_ccall f_3379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3379,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3382,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:499: get-output-string */ t3=*((C_word*)lf[207]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3374 in k3371 in k3365 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in ... */ static void C_ccall f_3376(C_word c,C_word *av){ C_word tmp; C_word t0=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_3376,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3379,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:499: ##sys#print */ t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[208]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in ... */ static void C_fcall f_2480(C_word t0,C_word t1){ C_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_2480,2,t0,t1);} a=C_alloc(33); if(C_truep(t1)){ /* batch-driver.scm:382: print-usage */ t2=*((C_word*)lf[82]+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[83],t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2491,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2498,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:384: chicken-version */ t5=*((C_word*)lf[85]+1);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=((C_word*)t0)[4]; if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_2519,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)[2],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[3],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); t5=t4; t6=C_a_i_list(&a,1,((C_word*)t0)[4]); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5736,a[2]=t5,tmp=(C_word)a,a+=3,tmp);{ C_word av2[5]; av2[0]=0; av2[1]=t7; av2[2]=*((C_word*)lf[112]+1); av2[3]=lf[270]; av2[4]=t6; C_apply(5,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2507,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:387: print-version */ t5=*((C_word*)lf[80]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}}} /* body228 in analyze in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_2118(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_2118,4,t0,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2122,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:163: analyze-expression */ t5=*((C_word*)lf[53]+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);}} /* k2112 in k2090 in k2087 in k2084 in end-time in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_2114(C_word c,C_word *av){ C_word tmp; C_word t0=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_2114,2,av);} a=C_alloc(4); t2=C_a_i_minus(&a,2,t1,((C_word*)((C_word*)t0)[2])[1]); /* batch-driver.scm:159: round */ t3=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_2116(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_2116,5,t0,t1,t2,t3,t4);} a=C_alloc(11); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2118,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_2141,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2146,a[2]=t6,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t4))){ /* batch-driver.scm:56: def-no230 */ t8=t7; f_2146(t8,t1);} else{ t8=C_i_car(t4); t9=C_u_i_cdr(t4); if(C_truep(C_i_nullp(t9))){ /* batch-driver.scm:56: def-contf231 */ t10=t6; f_2141(t10,t1,t8);} else{ t10=C_i_car(t9); t11=C_u_i_cdr(t9); /* batch-driver.scm:56: body228 */ t12=t5; f_2118(t12,t1,t8,t10);}}} /* k3383 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3385,2,av);} if(C_truep(t1)){ /* batch-driver.scm:495: display-line-number-database */ t2=*((C_word*)lf[211]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_2606(2,av2);}}} /* k3380 in k3377 in k3374 in k3371 in k3365 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3382,2,av);} /* batch-driver.scm:498: ##sys#notice */ t2=*((C_word*)lf[206]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2489 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2491,2,av);} /* batch-driver.scm:385: newline */ t2=*((C_word*)lf[44]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2496 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2498,2,av);} /* batch-driver.scm:384: display */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4144 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 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 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_4146,2,av);} a=C_alloc(11); t2=C_i_check_list_2(t1,lf[57]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4152,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_4154,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_4154(t7,t3,t1);} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_driver_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("driver_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_driver_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(2251))){ C_save(t1); C_rereclaim2(2251*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,416); lf[0]=C_h_intern(&lf[0],17,"user-options-pass"); lf[1]=C_h_intern(&lf[1],14,"user-read-pass"); lf[2]=C_h_intern(&lf[2],22,"user-preprocessor-pass"); lf[3]=C_h_intern(&lf[3],9,"user-pass"); lf[4]=C_h_intern(&lf[4],23,"user-post-analysis-pass"); lf[5]=C_h_intern(&lf[5],19,"compile-source-file"); lf[6]=C_h_intern(&lf[6],13,"\010compilerquit"); lf[7]=C_decode_literal(C_heaptop,"\376B\000\000 missing argument to `-~A\047 option"); lf[8]=C_decode_literal(C_heaptop,"\376B\000\000\037invalid argument to `~A\047 option"); lf[9]=C_h_intern(&lf[9],26,"\010compilerexplicit-use-flag"); lf[10]=C_h_intern(&lf[10],12,"explicit-use"); lf[11]=C_h_intern(&lf[11],15,"emit-debug-info"); lf[12]=C_h_intern(&lf[12],10,"debug-info"); lf[13]=C_h_intern(&lf[13],12,"\004coredeclare"); lf[14]=C_h_intern(&lf[14],7,"verbose"); lf[15]=C_h_intern(&lf[15],11,"output-file"); lf[16]=C_h_intern(&lf[16],23,"\010compilerchop-separator"); lf[17]=C_h_intern(&lf[17],36,"\010compilerdefault-optimization-passes"); lf[18]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\003sysimplicit-exit-handler\376\377\016\376\377\016\376\377\016"); lf[19]=C_h_intern(&lf[19],7,"profile"); lf[20]=C_h_intern(&lf[20],12,"profile-name"); lf[21]=C_h_intern(&lf[21],9,"heap-size"); lf[22]=C_h_intern(&lf[22],13,"keyword-style"); lf[23]=C_h_intern(&lf[23],10,"clustering"); lf[24]=C_h_intern(&lf[24],4,"unit"); lf[25]=C_h_intern(&lf[25],12,"analyze-only"); lf[26]=C_h_intern(&lf[26],7,"dynamic"); lf[27]=C_h_intern(&lf[27],4,"lfa2"); lf[28]=C_h_intern(&lf[28],6,"module"); lf[29]=C_h_intern(&lf[29],7,"nursery"); lf[30]=C_h_intern(&lf[30],26,"\010compilerdebugging-chicken"); lf[31]=C_h_intern(&lf[31],19,"\003sysstandard-output"); lf[32]=C_h_intern(&lf[32],6,"printf"); lf[33]=C_h_intern(&lf[33],16,"\003syswrite-char-0"); lf[34]=C_h_intern(&lf[34],9,"\003sysprint"); lf[35]=C_h_intern(&lf[35],18,"\010compilerdebugging"); lf[36]=C_h_intern(&lf[36],1,"p"); lf[37]=C_decode_literal(C_heaptop,"\376B\000\000\004pass"); lf[38]=C_h_intern(&lf[38],19,"\010compilerdump-nodes"); lf[39]=C_h_intern(&lf[39],12,"pretty-print"); lf[40]=C_h_intern(&lf[40],30,"\010compilerbuild-expression-tree"); lf[41]=C_h_intern(&lf[41],34,"\010compilerdisplay-analysis-database"); lf[42]=C_decode_literal(C_heaptop,"\376B\000\000\013(iteration "); lf[43]=C_h_intern(&lf[43],8,"for-each"); lf[44]=C_h_intern(&lf[44],7,"newline"); lf[45]=C_decode_literal(C_heaptop,"\376B\000\000\033invalid numeric argument ~S"); lf[46]=C_h_intern(&lf[46],9,"substring"); lf[47]=C_h_intern(&lf[47],20,"current-milliseconds"); lf[48]=C_h_intern(&lf[48],5,"round"); lf[49]=C_decode_literal(C_heaptop,"\376B\000\000\003: \011"); lf[50]=C_decode_literal(C_heaptop,"\376B\000\000\030milliseconds needed for "); lf[51]=C_h_intern(&lf[51],12,"\010compilerget"); lf[52]=C_h_intern(&lf[52],13,"\010compilerput!"); lf[53]=C_h_intern(&lf[53],27,"\010compileranalyze-expression"); lf[54]=C_h_intern(&lf[54],30,"\010compilerenable-specialization"); lf[55]=C_h_intern(&lf[55],10,"specialize"); lf[56]=C_h_intern(&lf[56],1,"D"); lf[57]=C_h_intern(&lf[57],3,"map"); lf[58]=C_h_intern(&lf[58],25,"\010compilerimport-libraries"); lf[59]=C_h_intern(&lf[59],22,"no-module-registration"); lf[60]=C_h_intern(&lf[60],35,"\010compilerenable-module-registration"); lf[61]=C_h_intern(&lf[61],16,"emit-inline-file"); lf[62]=C_h_intern(&lf[62],14,"emit-type-file"); lf[63]=C_h_intern(&lf[63],12,"inline-limit"); lf[64]=C_h_intern(&lf[64],21,"\010compilerverbose-mode"); lf[65]=C_h_intern(&lf[65],31,"\003sysread-error-with-line-number"); lf[66]=C_h_intern(&lf[66],21,"\003sysinclude-pathnames"); lf[67]=C_h_intern(&lf[67],17,"register-feature!"); lf[68]=C_h_intern(&lf[68],19,"unregister-feature!"); lf[69]=C_h_intern(&lf[69],19,"\000compiler-extension"); lf[70]=C_h_intern(&lf[70],12,"\003sysfeatures"); lf[71]=C_h_intern(&lf[71],10,"\000compiling"); lf[72]=C_h_intern(&lf[72],25,"\010compilertarget-heap-size"); lf[73]=C_h_intern(&lf[73],26,"\010compilertarget-stack-size"); lf[74]=C_h_intern(&lf[74],8,"no-trace"); lf[75]=C_h_intern(&lf[75],24,"\010compileremit-trace-info"); lf[76]=C_h_intern(&lf[76],40,"\010compilerdisable-stack-overflow-checking"); lf[77]=C_h_intern(&lf[77],29,"disable-stack-overflow-checks"); lf[78]=C_h_intern(&lf[78],23,"\010compilerbootstrap-mode"); lf[79]=C_h_intern(&lf[79],7,"version"); lf[80]=C_h_intern(&lf[80],22,"\010compilerprint-version"); lf[81]=C_h_intern(&lf[81],4,"help"); lf[82]=C_h_intern(&lf[82],20,"\010compilerprint-usage"); lf[83]=C_h_intern(&lf[83],7,"release"); lf[84]=C_h_intern(&lf[84],7,"display"); lf[85]=C_h_intern(&lf[85],15,"chicken-version"); lf[86]=C_h_intern(&lf[86],24,"\010compilersource-filename"); lf[87]=C_h_intern(&lf[87],24,"\003sysline-number-database"); lf[88]=C_h_intern(&lf[88],32,"\010compilercanonicalize-expression"); lf[89]=C_h_intern(&lf[89],28,"\010compilerprofile-lambda-list"); lf[90]=C_h_intern(&lf[90],31,"\010compilerline-number-database-2"); lf[91]=C_h_intern(&lf[91],4,"node"); lf[92]=C_h_intern(&lf[92],6,"lambda"); lf[93]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\016\376\377\016"); lf[94]=C_h_intern(&lf[94],23,"\010compilerconstant-table"); lf[95]=C_h_intern(&lf[95],21,"\010compilerinline-table"); lf[96]=C_h_intern(&lf[96],23,"\010compilerfirst-analysis"); lf[97]=C_h_intern(&lf[97],36,"\010compilerdetermine-loop-and-dispatch"); lf[98]=C_h_intern(&lf[98],41,"\010compilerperform-high-level-optimizations"); lf[99]=C_decode_literal(C_heaptop,"\376B\000\000\022clustering enabled"); lf[100]=C_h_intern(&lf[100],37,"\010compilerinline-substitutions-enabled"); lf[101]=C_h_intern(&lf[101],22,"optimize-leaf-routines"); lf[102]=C_decode_literal(C_heaptop,"\376B\000\000\031leaf routine optimization"); lf[103]=C_h_intern(&lf[103],34,"\010compilertransform-direct-lambdas!"); lf[104]=C_decode_literal(C_heaptop,"\376B\000\000\010analysis"); lf[105]=C_h_intern(&lf[105],4,"leaf"); lf[106]=C_decode_literal(C_heaptop,"\376B\000\000\022rewritings enabled"); lf[107]=C_decode_literal(C_heaptop,"\376B\000\000\023optimized-iteration"); lf[108]=C_h_intern(&lf[108],1,"5"); lf[109]=C_decode_literal(C_heaptop,"\376B\000\000\014optimization"); lf[110]=C_decode_literal(C_heaptop,"\376B\000\000\021optimization pass"); lf[111]=C_h_intern(&lf[111],36,"\010compilerprepare-for-code-generation"); lf[112]=C_h_intern(&lf[112],7,"sprintf"); lf[113]=C_decode_literal(C_heaptop,"\376B\000\000\025compilation finished."); lf[114]=C_h_intern(&lf[114],30,"\010compilercompiler-cleanup-hook"); lf[115]=C_h_intern(&lf[115],1,"t"); lf[116]=C_h_intern(&lf[116],17,"\003sysdisplay-times"); lf[117]=C_h_intern(&lf[117],14,"\003sysstop-timer"); lf[118]=C_decode_literal(C_heaptop,"\376B\000\000\017code generation"); lf[119]=C_h_intern(&lf[119],17,"close-output-port"); lf[120]=C_h_intern(&lf[120],22,"\010compilergenerate-code"); lf[121]=C_decode_literal(C_heaptop,"\376B\000\000\023generating `~A\047 ..."); lf[122]=C_h_intern(&lf[122],16,"open-output-file"); lf[123]=C_decode_literal(C_heaptop,"\376B\000\000\013preparation"); lf[124]=C_h_intern(&lf[124],4,"exit"); lf[125]=C_decode_literal(C_heaptop,"\376B\000\000\021closure-converted"); lf[126]=C_h_intern(&lf[126],1,"9"); lf[127]=C_h_intern(&lf[127],20,"\003syswarnings-enabled"); lf[128]=C_decode_literal(C_heaptop,"\376B\000\000#(don\047t worry - still compiling...)\012"); lf[129]=C_decode_literal(C_heaptop,"\376B\000\000\016final-analysis"); lf[130]=C_h_intern(&lf[130],1,"8"); lf[131]=C_decode_literal(C_heaptop,"\376B\000\000\022closure conversion"); lf[132]=C_h_intern(&lf[132],35,"\010compilerperform-closure-conversion"); lf[133]=C_h_intern(&lf[133],28,"\010compilerinsert-timer-checks"); lf[134]=C_h_intern(&lf[134],32,"\010compileremit-global-inline-file"); lf[135]=C_decode_literal(C_heaptop,"\376B\000\000&generating global inline file `~a\047 ..."); lf[136]=C_decode_literal(C_heaptop,"\376B\000\000\011optimized"); lf[137]=C_h_intern(&lf[137],1,"7"); lf[138]=C_decode_literal(C_heaptop,"\376B\000\000\027secondary flow analysis"); lf[139]=C_h_intern(&lf[139],40,"\010compilerperform-secondary-flow-analysis"); lf[140]=C_decode_literal(C_heaptop,"\376B\000\000\012doing lfa2"); lf[141]=C_h_intern(&lf[141],1,"s"); lf[142]=C_h_intern(&lf[142],33,"\010compilerprint-program-statistics"); lf[143]=C_decode_literal(C_heaptop,"\376B\000\000\010analysis"); lf[144]=C_h_intern(&lf[144],1,"4"); lf[145]=C_decode_literal(C_heaptop,"\376B\000\000\010analysis"); lf[146]=C_h_intern(&lf[146],23,"\010compileremit-type-file"); lf[147]=C_decode_literal(C_heaptop,"\376B\000\000\035generating type file `~a\047 ..."); lf[148]=C_h_intern(&lf[148],1,"v"); lf[149]=C_h_intern(&lf[149],25,"\010compilerdump-global-refs"); lf[150]=C_h_intern(&lf[150],1,"d"); lf[151]=C_h_intern(&lf[151],29,"\010compilerdump-defined-globals"); lf[152]=C_h_intern(&lf[152],1,"u"); lf[153]=C_h_intern(&lf[153],31,"\010compilerdump-undefined-globals"); lf[154]=C_h_intern(&lf[154],3,"opt"); lf[155]=C_decode_literal(C_heaptop,"\376B\000\000\003cps"); lf[156]=C_h_intern(&lf[156],1,"3"); lf[157]=C_decode_literal(C_heaptop,"\376B\000\000\016cps conversion"); lf[158]=C_h_intern(&lf[158],31,"\010compilerperform-cps-conversion"); lf[159]=C_h_intern(&lf[159],6,"unsafe"); lf[160]=C_h_intern(&lf[160],34,"\010compilerscan-toplevel-assignments"); lf[161]=C_decode_literal(C_heaptop,"\376B\000\000\016specialization"); lf[162]=C_h_intern(&lf[162],1,"P"); lf[163]=C_decode_literal(C_heaptop,"\376B\000\000\010scrutiny"); lf[164]=C_h_intern(&lf[164],19,"\010compilerscrutinize"); lf[165]=C_decode_literal(C_heaptop,"\376B\000\000\023performing scrutiny"); lf[166]=C_decode_literal(C_heaptop,"\376B\000\000\027pre-analysis (scrutiny)"); lf[167]=C_decode_literal(C_heaptop,"\376B\000\000\010analysis"); lf[168]=C_h_intern(&lf[168],1,"0"); lf[169]=C_h_intern(&lf[169],8,"scrutiny"); lf[170]=C_h_intern(&lf[170],27,"\010compilerload-type-database"); lf[171]=C_h_intern(&lf[171],13,"make-pathname"); lf[172]=C_decode_literal(C_heaptop,"\376B\000\000\005types"); lf[173]=C_h_intern(&lf[173],14,"symbol->string"); lf[174]=C_decode_literal(C_heaptop,"\376B\000\000\034type-database `~a\047 not found"); lf[175]=C_h_intern(&lf[175],5,"types"); lf[176]=C_h_intern(&lf[176],17,"ignore-repository"); lf[177]=C_decode_literal(C_heaptop,"\376B\000\000\052default type-database `types.db\047 not found"); lf[178]=C_decode_literal(C_heaptop,"\376B\000\000\010types.db"); lf[179]=C_h_intern(&lf[179],23,"\010compilerinline-locally"); lf[180]=C_h_intern(&lf[180],25,"\010compilerload-inline-file"); lf[181]=C_decode_literal(C_heaptop,"\376B\000\000\032Loading inline file ~a ..."); lf[182]=C_h_intern(&lf[182],19,"consult-inline-file"); lf[183]=C_h_intern(&lf[183],28,"\010compilerenable-inline-files"); lf[184]=C_decode_literal(C_heaptop,"\376B\000\000\032Loading inline file ~a ..."); lf[185]=C_h_intern(&lf[185],12,"file-exists\077"); lf[186]=C_h_intern(&lf[186],28,"\003sysresolve-include-filename"); lf[187]=C_decode_literal(C_heaptop,"\376B\000\000\006inline"); lf[188]=C_h_intern(&lf[188],2,"pp"); lf[189]=C_h_intern(&lf[189],1,"M"); lf[190]=C_decode_literal(C_heaptop,"\376B\000\000\017; requirements:"); lf[191]=C_h_intern(&lf[191],11,"concatenate"); lf[192]=C_h_intern(&lf[192],12,"vector->list"); lf[193]=C_h_intern(&lf[193],26,"\010compilerfile-requirements"); lf[194]=C_h_intern(&lf[194],37,"\010compilerinitialize-analysis-database"); lf[195]=C_decode_literal(C_heaptop,"\376B\000\000\021initial node tree"); lf[196]=C_h_intern(&lf[196],1,"T"); lf[197]=C_h_intern(&lf[197],25,"\010compilerbuild-node-graph"); lf[198]=C_h_intern(&lf[198],32,"\010compilercanonicalize-begin-body"); lf[199]=C_decode_literal(C_heaptop,"\376B\000\000\011user pass"); lf[200]=C_decode_literal(C_heaptop,"\376B\000\000\014User pass..."); lf[201]=C_h_intern(&lf[201],12,"check-syntax"); lf[202]=C_decode_literal(C_heaptop,"\376B\000\000\015canonicalized"); lf[203]=C_h_intern(&lf[203],1,"2"); lf[204]=C_decode_literal(C_heaptop,"\376B\000\000\020canonicalization"); lf[205]=C_h_intern(&lf[205],18,"\010compilerunit-name"); lf[206]=C_h_intern(&lf[206],10,"\003sysnotice"); lf[207]=C_h_intern(&lf[207],17,"get-output-string"); lf[208]=C_decode_literal(C_heaptop,"\376B\000\000\032\047 compiled in dynamic mode"); lf[209]=C_decode_literal(C_heaptop,"\376B\000\000\016library unit `"); lf[210]=C_h_intern(&lf[210],18,"open-output-string"); lf[211]=C_h_intern(&lf[211],37,"\010compilerdisplay-line-number-database"); lf[212]=C_h_intern(&lf[212],1,"n"); lf[213]=C_decode_literal(C_heaptop,"\376B\000\000\025line number database:"); lf[214]=C_h_intern(&lf[214],32,"\010compilerdisplay-real-name-table"); lf[215]=C_h_intern(&lf[215],1,"N"); lf[216]=C_decode_literal(C_heaptop,"\376B\000\000\020real name table:"); lf[217]=C_h_intern(&lf[217],35,"\010compilercompiler-syntax-statistics"); lf[218]=C_decode_literal(C_heaptop,"\376B\000\000\002\011\011"); lf[219]=C_decode_literal(C_heaptop,"\376B\000\000\002 "); lf[220]=C_h_intern(&lf[220],5,"print"); lf[221]=C_decode_literal(C_heaptop,"\376B\000\000\030applied compiler syntax:"); lf[222]=C_h_intern(&lf[222],30,"\010compilerwith-debugging-output"); lf[223]=C_h_intern(&lf[223],1,"S"); lf[224]=C_decode_literal(C_heaptop,"\376B\000\000;No module definition found for import libraries to emit: ~A"); lf[225]=C_h_intern(&lf[225],18,"string-intersperse"); lf[226]=C_decode_literal(C_heaptop,"\376B\000\000\002, "); lf[227]=C_h_intern(&lf[227],8,"->string"); lf[228]=C_h_intern(&lf[228],28,"\010compilerimmutable-constants"); lf[229]=C_h_intern(&lf[229],19,"\010compilerused-units"); lf[230]=C_h_intern(&lf[230],6,"append"); lf[231]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016\376\377\016"); lf[232]=C_h_intern(&lf[232],5,"quote"); lf[233]=C_h_intern(&lf[233],28,"\003sysset-profile-info-vector!"); lf[234]=C_h_intern(&lf[234],33,"\010compilerprofile-info-vector-name"); lf[235]=C_h_intern(&lf[235],21,"\010compileremit-profile"); lf[236]=C_h_intern(&lf[236],25,"\003sysregister-profile-info"); lf[237]=C_h_intern(&lf[237],4,"set!"); lf[238]=C_h_intern(&lf[238],13,"\004corecallunit"); lf[239]=C_h_intern(&lf[239],6,"gensym"); lf[240]=C_h_intern(&lf[240],6,"import"); lf[241]=C_h_intern(&lf[241],6,"scheme"); lf[242]=C_h_intern(&lf[242],7,"chicken"); lf[243]=C_h_intern(&lf[243],4,"main"); lf[244]=C_h_intern(&lf[244],11,"\004coremodule"); lf[245]=C_h_intern(&lf[245],28,"\003sysexplicit-library-modules"); lf[246]=C_h_intern(&lf[246],4,"uses"); lf[247]=C_h_intern(&lf[247],7,"declare"); lf[248]=C_decode_literal(C_heaptop,"\376B\000\000\006source"); lf[249]=C_h_intern(&lf[249],1,"1"); lf[250]=C_decode_literal(C_heaptop,"\376B\000\000\032User preprocessing pass..."); lf[251]=C_decode_literal(C_heaptop,"\376B\000\000\021User read pass..."); lf[252]=C_h_intern(&lf[252],21,"\010compilerstring->expr"); lf[253]=C_h_intern(&lf[253],7,"reverse"); lf[254]=C_h_intern(&lf[254],27,"\003syscurrent-source-filename"); lf[255]=C_h_intern(&lf[255],33,"\010compilerclose-checked-input-file"); lf[256]=C_h_intern(&lf[256],25,"\010compilerread/source-info"); lf[257]=C_h_intern(&lf[257],16,"\003sysdynamic-wind"); lf[258]=C_h_intern(&lf[258],34,"\010compilercheck-and-open-input-file"); lf[259]=C_h_intern(&lf[259],8,"epilogue"); lf[260]=C_h_intern(&lf[260],8,"prologue"); lf[261]=C_h_intern(&lf[261],8,"postlude"); lf[262]=C_h_intern(&lf[262],7,"prelude"); lf[263]=C_h_intern(&lf[263],11,"make-vector"); lf[264]=C_h_intern(&lf[264],34,"\010compilerline-number-database-size"); lf[265]=C_h_intern(&lf[265],1,"r"); lf[266]=C_decode_literal(C_heaptop,"\376B\000\000\021target stack size"); lf[267]=C_decode_literal(C_heaptop,"\376B\000\000\020target heap size"); lf[268]=C_decode_literal(C_heaptop,"\376B\000\000\021debugging options"); lf[269]=C_decode_literal(C_heaptop,"\376B\000\000\007options"); lf[270]=C_decode_literal(C_heaptop,"\376B\000\000\022compiling `~a\047 ..."); lf[271]=C_decode_literal(C_heaptop,"\376B\000\0001\012Run `csi\047 to start the interactive interpreter.\012"); lf[272]=C_decode_literal(C_heaptop,"\376B\000\000.or try `csc\047 for a more convenient interface.\012"); lf[273]=C_decode_literal(C_heaptop,"\376B\000\000C\012Enter `chicken -help\047 for information on how to use the compiler,\012"); lf[274]=C_h_intern(&lf[274],5,"-help"); lf[275]=C_h_intern(&lf[275],1,"h"); lf[276]=C_h_intern(&lf[276],2,"-h"); lf[277]=C_h_intern(&lf[277],33,"\010compilerload-identifier-database"); lf[278]=C_decode_literal(C_heaptop,"\376B\000\000\012modules.db"); lf[279]=C_h_intern(&lf[279],18,"accumulate-profile"); lf[280]=C_h_intern(&lf[280],28,"\010compilerprofiled-procedures"); lf[281]=C_h_intern(&lf[281],3,"all"); lf[282]=C_decode_literal(C_heaptop,"\376B\000\000\015accumulative "); lf[283]=C_decode_literal(C_heaptop,"\376B\000\000\032generating ~aprofiled code"); lf[284]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[285]=C_h_intern(&lf[285],39,"\010compilerdefault-profiling-declarations"); lf[286]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004set!\376\003\000\000\002\376\001\000\000\027\003sysprofile-append-mode\376\003\000\000\002\376\377\006\001\376\377\016\376\377\016"); lf[287]=C_decode_literal(C_heaptop,"\376B\000\000Eyou need to specify -profile-name if using accumulated profiling runs"); lf[288]=C_decode_literal(C_heaptop,"\376B\000\000\011calltrace"); lf[289]=C_decode_literal(C_heaptop,"\376B\000\000\022debugging info: ~A"); lf[290]=C_decode_literal(C_heaptop,"\376B\000\000\004none"); lf[291]=C_h_intern(&lf[291],21,"no-usual-integrations"); lf[292]=C_h_intern(&lf[292],17,"standard-bindings"); lf[293]=C_h_intern(&lf[293],34,"\010compilerdefault-standard-bindings"); lf[294]=C_h_intern(&lf[294],17,"extended-bindings"); lf[295]=C_h_intern(&lf[295],34,"\010compilerdefault-extended-bindings"); lf[296]=C_h_intern(&lf[296],1,"m"); lf[297]=C_h_intern(&lf[297],14,"set-gc-report!"); lf[298]=C_h_intern(&lf[298],8,"feature\077"); lf[299]=C_h_intern(&lf[299],18,"\000chicken-bootstrap"); lf[300]=C_h_intern(&lf[300],14,"compile-syntax"); lf[301]=C_h_intern(&lf[301],25,"\003sysenable-runtime-macros"); lf[302]=C_h_intern(&lf[302],22,"\004corerequire-extension"); lf[303]=C_h_intern(&lf[303],14,"string->symbol"); lf[304]=C_h_intern(&lf[304],17,"require-extension"); lf[305]=C_h_intern(&lf[305],28,"\010compilerpostponed-initforms"); lf[306]=C_h_intern(&lf[306],6,"delete"); lf[307]=C_h_intern(&lf[307],3,"eq\077"); lf[308]=C_h_intern(&lf[308],4,"load"); lf[309]=C_decode_literal(C_heaptop,"\376B\000\000\036Loading compiler extensions..."); lf[310]=C_h_intern(&lf[310],6,"extend"); lf[311]=C_h_intern(&lf[311],12,"string-split"); lf[312]=C_decode_literal(C_heaptop,"\376B\000\000\001,"); lf[313]=C_h_intern(&lf[313],10,"append-map"); lf[314]=C_h_intern(&lf[314],10,"no-feature"); lf[315]=C_decode_literal(C_heaptop,"\376B\000\000\002, "); lf[316]=C_h_intern(&lf[316],7,"feature"); lf[317]=C_h_intern(&lf[317],12,"load-verbose"); lf[318]=C_h_intern(&lf[318],38,"no-procedure-checks-for-usual-bindings"); lf[319]=C_h_intern(&lf[319],8,"\003sysput!"); lf[320]=C_h_intern(&lf[320],21,"\010compileralways-bound"); lf[321]=C_h_intern(&lf[321],34,"\010compileralways-bound-to-procedure"); lf[322]=C_h_intern(&lf[322],41,"no-procedure-checks-for-toplevel-bindings"); lf[323]=C_h_intern(&lf[323],35,"\010compilerno-global-procedure-checks"); lf[324]=C_h_intern(&lf[324],19,"no-procedure-checks"); lf[325]=C_h_intern(&lf[325],28,"\010compilerno-procedure-checks"); lf[326]=C_h_intern(&lf[326],15,"no-bound-checks"); lf[327]=C_h_intern(&lf[327],24,"\010compilerno-bound-checks"); lf[328]=C_h_intern(&lf[328],14,"no-argc-checks"); lf[329]=C_h_intern(&lf[329],23,"\010compilerno-argc-checks"); lf[330]=C_h_intern(&lf[330],20,"keep-shadowed-macros"); lf[331]=C_h_intern(&lf[331],33,"\010compilerundefine-shadowed-macros"); lf[332]=C_decode_literal(C_heaptop,"\376B\000\000\002, "); lf[333]=C_decode_literal(C_heaptop,"\376B\000\000(source- and output-filename are the same"); lf[334]=C_h_intern(&lf[334],12,"include-path"); lf[335]=C_h_intern(&lf[335],11,"r5rs-syntax"); lf[336]=C_h_intern(&lf[336],13,"symbol-escape"); lf[337]=C_h_intern(&lf[337],20,"parentheses-synonyms"); lf[338]=C_h_intern(&lf[338],5,"\000none"); lf[339]=C_h_intern(&lf[339],14,"case-sensitive"); lf[340]=C_decode_literal(C_heaptop,"\376B\000\000.Disabled the CHICKEN extensions to R5RS syntax"); lf[341]=C_h_intern(&lf[341],16,"no-symbol-escape"); lf[342]=C_decode_literal(C_heaptop,"\376B\000\000$Disabled support for escaped symbols"); lf[343]=C_h_intern(&lf[343],23,"no-parenthesis-synonyms"); lf[344]=C_h_intern(&lf[344],20,"parenthesis-synonyms"); lf[345]=C_decode_literal(C_heaptop,"\376B\000\000)Disabled support for parenthesis synonyms"); lf[346]=C_decode_literal(C_heaptop,"\376B\000\000\006prefix"); lf[347]=C_h_intern(&lf[347],7,"\000prefix"); lf[348]=C_decode_literal(C_heaptop,"\376B\000\000\004none"); lf[349]=C_decode_literal(C_heaptop,"\376B\000\000\006suffix"); lf[350]=C_h_intern(&lf[350],7,"\000suffix"); lf[351]=C_decode_literal(C_heaptop,"\376B\000\000+invalid argument to `-keyword-style\047 option"); lf[352]=C_h_intern(&lf[352],16,"case-insensitive"); lf[353]=C_decode_literal(C_heaptop,"\376B\000\000,Identifiers and symbols are case insensitive"); lf[354]=C_h_intern(&lf[354],24,"\010compilerinline-max-size"); lf[355]=C_decode_literal(C_heaptop,"\376B\000\0000invalid argument to `-inline-limit\047 option: `~A\047"); lf[356]=C_h_intern(&lf[356],26,"\010compilerlocal-definitions"); lf[357]=C_h_intern(&lf[357],6,"inline"); lf[358]=C_h_intern(&lf[358],30,"emit-external-prototypes-first"); lf[359]=C_h_intern(&lf[359],30,"\010compilerexternal-protos-first"); lf[360]=C_h_intern(&lf[360],5,"block"); lf[361]=C_h_intern(&lf[361],26,"\010compilerblock-compilation"); lf[362]=C_h_intern(&lf[362],17,"fixnum-arithmetic"); lf[363]=C_h_intern(&lf[363],11,"number-type"); lf[364]=C_h_intern(&lf[364],6,"fixnum"); lf[365]=C_h_intern(&lf[365],18,"disable-interrupts"); lf[366]=C_h_intern(&lf[366],10,"setup-mode"); lf[367]=C_h_intern(&lf[367],14,"\003syssetup-mode"); lf[368]=C_h_intern(&lf[368],11,"no-warnings"); lf[369]=C_decode_literal(C_heaptop,"\376B\000\000\025Warnings are disabled"); lf[370]=C_h_intern(&lf[370],12,"strict-types"); lf[371]=C_h_intern(&lf[371],30,"\010compilerstrict-variable-types"); lf[372]=C_h_intern(&lf[372],19,"\003sysnotices-enabled"); lf[373]=C_h_intern(&lf[373],13,"inline-global"); lf[374]=C_h_intern(&lf[374],5,"local"); lf[375]=C_h_intern(&lf[375],18,"no-compiler-syntax"); lf[376]=C_h_intern(&lf[376],32,"\010compilercompiler-syntax-enabled"); lf[377]=C_h_intern(&lf[377],14,"no-lambda-info"); lf[378]=C_h_intern(&lf[378],26,"\010compileremit-closure-info"); lf[379]=C_h_intern(&lf[379],3,"raw"); lf[380]=C_h_intern(&lf[380],8,"unboxing"); lf[381]=C_h_intern(&lf[381],7,"warning"); lf[382]=C_decode_literal(C_heaptop,"\376B\000\000#obsolete compiler option: -unboxing"); lf[383]=C_h_intern(&lf[383],11,"lambda-lift"); lf[384]=C_decode_literal(C_heaptop,"\376B\000\000&obsolete compiler option: -lambda-lift"); lf[385]=C_h_intern(&lf[385],12,"emit-exports"); lf[386]=C_decode_literal(C_heaptop,"\376B\000\000\047obsolete compiler option: -emit-exports"); lf[387]=C_h_intern(&lf[387],1,"b"); lf[388]=C_h_intern(&lf[388],15,"\003sysstart-timer"); lf[389]=C_h_intern(&lf[389],25,"emit-all-import-libraries"); lf[390]=C_h_intern(&lf[390],29,"\010compilerall-import-libraries"); lf[391]=C_h_intern(&lf[391],17,"\003sysstring-append"); lf[392]=C_decode_literal(C_heaptop,"\376B\000\000\013.import.scm"); lf[393]=C_h_intern(&lf[393],19,"emit-import-library"); lf[394]=C_h_intern(&lf[394],28,"\010compilerprint-debug-options"); lf[395]=C_h_intern(&lf[395],16,"\003sysstring->list"); lf[396]=C_h_intern(&lf[396],5,"debug"); lf[397]=C_h_intern(&lf[397],18,"\003sysdload-disabled"); lf[398]=C_h_intern(&lf[398],15,"repository-path"); lf[399]=C_h_intern(&lf[399],30,"\010compilerstandalone-executable"); lf[400]=C_h_intern(&lf[400],29,"\010compilerstring->c-identifier"); lf[401]=C_h_intern(&lf[401],18,"\010compilerstringify"); lf[402]=C_h_intern(&lf[402],10,"stack-size"); lf[403]=C_decode_literal(C_heaptop,"\376B\000\000\001;"); lf[404]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[405]=C_h_intern(&lf[405],24,"get-environment-variable"); lf[406]=C_decode_literal(C_heaptop,"\376B\000\000\024CHICKEN_INCLUDE_PATH"); lf[407]=C_h_intern(&lf[407],9,"to-stdout"); lf[408]=C_decode_literal(C_heaptop,"\376B\000\000\001c"); lf[409]=C_h_intern(&lf[409],13,"pathname-file"); lf[410]=C_decode_literal(C_heaptop,"\376B\000\000\003out"); lf[411]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004uses\376\003\000\000\002\376\001\000\000\017debugger-client\376\377\016\376\377\016"); lf[412]=C_h_intern(&lf[412],29,"\010compilerdefault-declarations"); lf[413]=C_h_intern(&lf[413],30,"\010compilerunits-used-by-default"); lf[414]=C_h_intern(&lf[414],28,"\010compilerinitialize-compiler"); lf[415]=C_h_intern(&lf[415],14,"make-parameter"); C_register_lf2(lf,416,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1683,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* map-loop894 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_3492,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_3517,a[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:481: ->string */ t6=*((C_word*)lf[227]+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);}}} /* k3488 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in ... */ static void C_ccall f_3490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3490,2,av);} /* batch-driver.scm:480: string-intersperse */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[226]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4141 in map-loop584 in k4144 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in ... */ 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(12,c,1)))){ C_save_and_reclaim((void *)f_4143,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,1,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[302],t2,C_SCHEME_TRUE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4177 in map-loop584 in k4144 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in ... */ 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 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_4179,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4154(t6,((C_word*)t0)[5],t5);} /* k2104 in k2090 in k2087 in k2084 in end-time in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2106,2,av);} t2=C_i_inexact_to_exact(t1); /* batch-driver.scm:157: ##sys#print */ t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* map-loop796 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in ... */ static void C_fcall f_3709(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_3709,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[232],t5); t7=C_a_i_list(&a,3,lf[237],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_mutate2(((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-loop393 in k4435 in a4429 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in ... */ static void C_fcall f_4442(C_word t0,C_word t1,C_word 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_4442,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_4467,a[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:284: g399 */ t5=*((C_word*)lf[303]+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);}}} /* k3469 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3471,2,av);} /* batch-driver.scm:478: quit */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[224]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4121 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4123,2,av);} /* batch-driver.scm:342: arg-val */ f_1941(((C_word*)t0)[3],t1);} /* a4429 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 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=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_4430,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_4437,a[2]=t5,a[3]=t6,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:284: string-split */ t8=*((C_word*)lf[311]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=t2; av2[3]=lf[332]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* for-each-loop921 in k3404 in a3401 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in ... */ static void C_fcall f_3440(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_3440,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_3450,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[31]+1); t8=*((C_word*)lf[31]+1); t9=C_i_check_port_2(*((C_word*)lf[31]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[32]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3414,a[2]=t5,a[3]=t7,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:490: ##sys#print */ t11=*((C_word*)lf[34]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t10; av2[2]=lf[219]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[31]+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);}}} /* map-loop584 in k4144 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in ... */ static void C_fcall f_4154(C_word t0,C_word 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_4154,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_4179,a[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_4143,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:335: string->symbol */ t7=*((C_word*)lf[303]+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);}}} /* k4150 in k4144 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in ... */ static void C_ccall f_4152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4152,2,av);} /* batch-driver.scm:333: append */ t2=*((C_word*)lf[230]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4435 in a4429 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4437,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_4442,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_4442(t5,((C_word*)t0)[4],t1);} /* k3448 in for-each-loop921 in k3404 in a3401 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3450,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3440(t3,((C_word*)t0)[4],t2);} /* k3421 in k3418 in k3415 in k3412 in for-each-loop921 in k3404 in a3401 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3423,2,av);} /* batch-driver.scm:490: ##sys#write-char-0 */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3418 in k3415 in k3412 in for-each-loop921 in k3404 in a3401 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in ... */ static void C_ccall f_3420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3420,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3423,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:490: ##sys#print */ t4=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3818 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 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 t5; C_word 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_3820,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[57]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3830,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_3832,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_3832(t13,t9,t7);} /* map-loop731 in k3818 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in ... */ static void C_fcall f_3832(C_word t0,C_word t1,C_word 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_3832,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_3857,a[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:437: g737 */ 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);}}} /* k4476 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4478,2,av);} /* batch-driver.scm:283: append-map */ t2=*((C_word*)lf[313]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3828 in k3818 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 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(0,c,1)))){ C_save_and_reclaim((void *)f_3830,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_2561(t3,t2);} /* k4400 in for-each-loop419 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in ... */ static void C_ccall f_4402(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_4402,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4392(t3,((C_word*)t0)[4],t2);} /* k3415 in k3412 in for-each-loop921 in k3404 in a3401 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in ... */ static void C_ccall f_3417(C_word c,C_word *av){ C_word tmp; C_word t0=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_3417,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3420,a[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:490: ##sys#print */ t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[218]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3412 in for-each-loop921 in k3404 in a3401 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in ... */ static void C_ccall f_3414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3414,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3417,a[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:490: ##sys#print */ t4=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3803 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in ... */ static void C_ccall f_3805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_3805,2,av);} a=C_alloc(12); t2=C_mutate2((C_word*)lf[245]+1 /* (set! ##sys#explicit-library-modules ...) */,t1); t3=C_a_i_cons(&a,2,lf[246],((C_word*)((C_word*)t0)[2])[1]); t4=C_a_i_list(&a,2,lf[247],t3); t5=C_a_i_cons(&a,2,t4,((C_word*)((C_word*)t0)[3])[1]); t6=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t5); t7=((C_word*)t0)[4]; f_2570(t7,t6);} /* k3148 in for-each-loop1050 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in ... */ static void C_ccall f_3150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3150,2,av);} /* batch-driver.scm:547: load-inline-file */ t2=*((C_word*)lf[180]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4114 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in ... */ static void C_ccall f_4116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4116,2,av);} /* batch-driver.scm:345: arg-val */ f_1941(((C_word*)t0)[3],t1);} /* k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,4)))){ C_save_and_reclaim((void *)f_2404,2,av);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_2408,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:324: delete */ t3=*((C_word*)lf[306]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[69]; av2[3]=*((C_word*)lf[70]+1); av2[4]=*((C_word*)lf[307]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(36,c,2)))){ C_save_and_reclaim((void *)f_2408,2,av);} a=C_alloc(36); t2=C_mutate2((C_word*)lf[70]+1 /* (set! ##sys#features ...) */,t1); t3=C_a_i_cons(&a,2,lf[71],*((C_word*)lf[70]+1)); t4=C_mutate2((C_word*)lf[70]+1 /* (set! ##sys#features ...) */,t3); t5=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_2416,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:326: user-post-analysis-pass */ t6=*((C_word*)lf[4]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k1926 in for-each-loop164 in k1900 in print-expr in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_1928(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1928,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1918(t3,((C_word*)t0)[4],t2);} /* for-each-loop1050 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in ... */ static void C_fcall f_3161(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_3161,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_3171,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_3150,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)f5676,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[112]+1); av2[3]=lf[181]; 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);}}} /* for-each-loop164 in k1900 in print-expr in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_1918(C_word t0,C_word 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_1918,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_1928,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_1907,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:132: pretty-print */ t7=*((C_word*)lf[39]+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);}}} /* k3169 in for-each-loop1050 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3171,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3161(t3,((C_word*)t0)[4],t2);} /* k1905 in for-each-loop164 in k1900 in print-expr in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1907,2,av);} /* batch-driver.scm:133: newline */ t2=*((C_word*)lf[44]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1900 in print-expr in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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 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_1902,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_check_list_2(t2,lf[43]); 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_1918,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_1918(t7,((C_word*)t0)[3],t2);} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* for-each-loop565 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in ... */ static void C_fcall f_4188(C_word t0,C_word 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_4188,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_4198,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_2398,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:322: ##sys#resolve-include-filename */ t7=*((C_word*)lf[186]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((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);}}} /* k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_1697(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1697,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[1]+1 /* (set! user-read-pass ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1701,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:38: make-parameter */ t4=*((C_word*)lf[415]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4273 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4275,2,av);} /* batch-driver.scm:312: append-map */ t2=*((C_word*)lf[313]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_1693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1693,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[0]+1 /* (set! user-options-pass ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1697,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:37: make-parameter */ t4=*((C_word*)lf[415]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3136 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in ... */ static void C_ccall f_3138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3138,2,av);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_3015(2,av2);}} else{ /* batch-driver.scm:554: quit */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[177]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k4907 in g72 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_4909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4909,2,av);} if(C_truep(C_i_symbolp(t1))){ /* batch-driver.scm:70: symbol->string */ t2=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g72 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_4905(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_4905,3,t0,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4909,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:68: option-arg */ f_1714(t3,t2);} /* k4252 in for-each-loop514 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4254,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4244(t3,((C_word*)t0)[4],t2);} /* k4899 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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(0,c,3)))){ C_save_and_reclaim((void *)f_4901,2,av);} if(C_truep(t1)){ t2=t1; /* batch-driver.scm:75: string-split */ t3=*((C_word*)lf[311]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=lf[403]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* batch-driver.scm:75: string-split */ t2=*((C_word*)lf[311]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[404]; av2[3]=lf[403]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k4196 in for-each-loop565 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4198,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4188(t3,((C_word*)t0)[4],t2);} /* k3185 in for-each-loop1029 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3187,2,av);} a=C_alloc(4); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3196,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:537: file-exists? */ t4=*((C_word*)lf[185]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop1003 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in ... */ static void C_fcall f_3251(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_3251,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_mutate2(((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);}}} /* k4931 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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,4)))){ C_save_and_reclaim((void *)f_4933,2,av);} /* batch-driver.scm:73: make-pathname */ t2=*((C_word*)lf[171]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[408]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k2770 in k2735 in k2732 in a2729 in k2711 in k2708 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){ C_save_and_reclaim((void *)f_2772,2,av);} a=C_alloc(4); t2=C_set_block_item(lf[100] /* ##compiler#inline-substitutions-enabled */,0,C_SCHEME_TRUE); t3=C_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); /* batch-driver.scm:635: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2684(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],C_SCHEME_TRUE,C_SCHEME_FALSE,((C_word*)t0)[6]);} /* k3197 in k3194 in k3185 in for-each-loop1029 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3199,2,av);} /* batch-driver.scm:539: load-inline-file */ t2=*((C_word*)lf[180]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3194 in k3185 in for-each-loop1029 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in ... */ 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; 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_3196,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3199,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=t2; t4=C_a_i_list(&a,1,((C_word*)t0)[3]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5684,a[2]=t3,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[112]+1); av2[3]=lf[184]; av2[4]=t4; C_apply(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a4233 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in ... */ static void C_ccall f_4234(C_word c,C_word *av){ C_word tmp; C_word 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_4234,3,av);} t3=*((C_word*)lf[311]+1); /* batch-driver.scm:315: g555 */ t4=*((C_word*)lf[311]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=lf[312]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k1687 in k1684 in k1681 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1689,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1693,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:36: make-parameter */ t3=*((C_word*)lf[415]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1684 in k1681 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1686,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1689,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k1681 */ static void C_ccall f_1683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1683,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1686,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k2754 in k2735 in k2732 in a2729 in k2711 in k2708 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){ C_save_and_reclaim((void *)f_2756,2,av);} a=C_alloc(4); t2=C_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); /* batch-driver.scm:631: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2684(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5],C_SCHEME_TRUE,C_SCHEME_TRUE,C_SCHEME_TRUE);} /* a4266 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in ... */ static void C_ccall f_4267(C_word c,C_word *av){ C_word tmp; C_word 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_4267,3,av);} t3=*((C_word*)lf[311]+1); /* batch-driver.scm:312: g530 */ t4=*((C_word*)lf[311]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=lf[315]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_1767,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1770,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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|5,a[1]=(C_word)f_4865,a[2]=((C_word*)t0)[9],a[3]=t4,a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_4865(t6,t2,t1);} /* k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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; C_word t3; 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,2)))){ C_save_and_reclaim((void *)f_1761,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[16]+1); t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_1767,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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]=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_4901,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:76: get-environment-variable */ t10=*((C_word*)lf[405]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=lf[406]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in ... */ static void C_fcall f_2303(C_word t0,C_word t1){ C_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_2303,2,t0,t1);} a=C_alloc(40); t2=((C_word*)t0)[2]; t3=C_u_i_memq(lf[61],t2); t4=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2308,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[179] /* ##compiler#inline-locally */,0,C_SCHEME_TRUE); t6=C_set_block_item(lf[356] /* ##compiler#local-definitions */,0,C_SCHEME_TRUE); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4635,a[2]=((C_word*)t0)[19],a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:244: option-arg */ f_1714(t7,t3);} else{ t5=t4; f_2308(t5,C_SCHEME_FALSE);}} /* map-loop280 in k4786 in a4771 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 in ... */ static void C_fcall f_4793(C_word 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_4793,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_4818,a[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:182: string->symbol */ 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);}}} /* k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in k2238 in k2231 in ... */ static void C_fcall f_2300(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_2300,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2303,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[357],t3))){ t4=C_set_block_item(lf[179] /* ##compiler#inline-locally */,0,C_SCHEME_TRUE); t5=t2; f_2303(t5,t4);} else{ t4=t2; f_2303(t4,C_SCHEME_UNDEFINED);}} /* k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in ... */ static void C_fcall f_2308(C_word 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_2308,2,t0,t1);} a=C_alloc(40); t2=((C_word*)t0)[2]; t3=C_u_i_memq(lf[62],t2); t4=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2313,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_4629,a[2]=((C_word*)t0)[21],a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:246: option-arg */ f_1714(t5,t3);} else{ t5=t4; f_2313(t5,C_SCHEME_FALSE);}} /* for-each-loop539 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in ... */ static void C_fcall f_4211(C_word t0,C_word t1,C_word 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_4211,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_4221,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:313: g540 */ 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);}}} /* k3297 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3299,2,av);} /* batch-driver.scm:520: build-node-graph */ t2=*((C_word*)lf[197]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in ... */ 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 t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){ C_save_and_reclaim((void *)f_3295,2,av);} a=C_alloc(32); t2=C_a_i_list1(&a,1,t1); t3=C_a_i_record4(&a,4,lf[91],lf[92],lf[93],t2); t4=t3; 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|21,a[1]=(C_word)f_2637,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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]=t4,a[18]=((C_word*)t0)[17],a[19]=t6,a[20]=((C_word*)t0)[18],a[21]=((C_word*)t0)[19],tmp=(C_word)a,a+=22,tmp); /* batch-driver.scm:523: print-node */ t8=((C_word*)((C_word*)t0)[6])[1]; f_1846(t8,t7,lf[195],lf[196],t4);} /* k4240 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4242,2,av);} /* batch-driver.scm:315: append-map */ t2=*((C_word*)lf[313]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop514 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in ... */ static void C_fcall f_4244(C_word t0,C_word t1,C_word 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_4244,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_4254,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:310: g515 */ 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);}}} /* k4786 in a4771 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_4788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4788,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_4793,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_4793(t5,((C_word*)t0)[4],t1);} /* k2784 in k2735 in k2732 in a2729 in k2711 in k2708 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_2786,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2789,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:638: analyze */ t3=((C_word*)((C_word*)t0)[9])[1]; f_2116(t3,t2,lf[105],((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* k2787 in k2784 in k2735 in k2732 in a2729 in k2711 in k2708 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_2789,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2792,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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:639: end-time */ t4=((C_word*)((C_word*)t0)[7])[1]; f_2076(t4,t3,lf[104]);} /* k4765 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_4767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4767,2,av);} /* batch-driver.scm:187: exit */ t2=*((C_word*)lf[124]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4219 in for-each-loop539 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4221,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4211(t3,((C_word*)t0)[4],t2);} /* k2793 in k2790 in k2787 in k2784 in k2735 in k2732 in a2729 in k2711 in k2708 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in ... */ 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(8,c,3)))){ C_save_and_reclaim((void *)f_2795,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2798,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:642: transform-direct-lambdas! */ t3=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2790 in k2787 in k2784 in k2735 in k2732 in a2729 in k2711 in k2708 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_2792,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2795,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:640: begin-time */ t3=((C_word*)((C_word*)t0)[9])[1]; f_2066(t3,t2);} /* k2796 in k2793 in k2790 in k2787 in k2784 in k2735 in k2732 in a2729 in k2711 in k2708 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_2798,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2801,a[2]=((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:643: end-time */ t4=((C_word*)((C_word*)t0)[7])[1]; f_2076(t4,t3,lf[102]);} /* a2135 in k2120 in body228 in analyze in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_2136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2136,5,av);} t5=*((C_word*)lf[52]+1); /* batch-driver.scm:167: g263 */ t6=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* a2129 in k2120 in body228 in analyze in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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=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_2130,4,av);} t4=*((C_word*)lf[51]+1); /* batch-driver.scm:166: g249 */ t5=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* arg-val in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_1941(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_1941,2,t1,t2);} a=C_alloc(8); t3=C_i_string_length(t2); t4=C_a_i_minus(&a,2,t3,C_fix(1)); if(C_truep(C_fixnum_lessp(t3,C_fix(2)))){ t5=C_a_i_string_to_number(&a,2,t2,C_fix(10)); 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{ /* batch-driver.scm:145: quit */ t6=*((C_word*)lf[6]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t1; av2[2]=lf[45]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} else{ t5=C_i_string_ref(t2,t4); t6=C_eqp(t5,C_make_character(109)); t7=(C_truep(t6)?t6:C_eqp(t5,C_make_character(77))); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1990,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:142: substring */ t9=*((C_word*)lf[46]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t8; av2[2]=t2; av2[3]=C_fix(0); av2[4]=t4; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t8=C_eqp(t5,C_make_character(107)); t9=(C_truep(t8)?t8:C_eqp(t5,C_make_character(75))); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2010,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:143: substring */ t11=*((C_word*)lf[46]+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{ t10=C_a_i_string_to_number(&a,2,t2,C_fix(10)); if(C_truep(t10)){ t11=t1;{ C_word av2[2]; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ /* batch-driver.scm:145: quit */ t11=*((C_word*)lf[6]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=t1; av2[2]=lf[45]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}}}}} /* k4752 in map-loop308 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 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 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_4754,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4729(t6,((C_word*)t0)[5],t5);} /* def-no230 in analyze in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_2146(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_2146,2,t0,t1);} /* batch-driver.scm:56: def-contf231 */ t2=((C_word*)t0)[2]; f_2141(t2,t1,C_fix(0));} /* k4565 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4567,2,av);} /* batch-driver.scm:264: parenthesis-synonyms */ t2=*((C_word*)lf[344]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2902 in k2883 in k2880 in k2877 in k2874 in k2871 in k2868 in k2865 in a2862 in k2850 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in ... */ static void C_ccall f_2904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2904,2,av);} /* batch-driver.scm:691: ##sys#display-times */ t2=*((C_word*)lf[116]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* def-contf231 in analyze in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_2141(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_2141,3,t0,t1,t2);} /* batch-driver.scm:56: body228 */ t3=((C_word*)t0)[2]; f_2118(t3,t1,t2,C_SCHEME_TRUE);} /* k4557 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 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,2)))){ C_save_and_reclaim((void *)f_4559,2,av);} /* batch-driver.scm:267: symbol-escape */ t2=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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; 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_2195,2,av);} a=C_alloc(41); t2=C_mutate2((C_word*)lf[30]+1 /* (set! ##compiler#debugging-chicken ...) */,t1); t3=(*a=C_CLOSURE_TYPE|37,a[1]=(C_word)f_2198,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[275],*((C_word*)lf[30]+1)))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4767,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:186: print-debug-options */ t5=*((C_word*)lf[394]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2198(2,av2);}}} /* k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_2198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_2198,2,av);} a=C_alloc(44); t2=C_i_memq(lf[56],*((C_word*)lf[30]+1)); t3=C_mutate2(((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_2224,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:193: collect-options */ t9=((C_word*)((C_word*)t0)[24])[1]; f_2031(t9,t8,lf[393]);} /* k4549 in k4546 in k4543 in k4540 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in ... */ static void C_ccall f_4551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4551,2,av);} /* batch-driver.scm:273: symbol-escape */ t2=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3237 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3239,2,av);} if(C_truep(t1)){ /* batch-driver.scm:530: pp */ t2=*((C_word*)lf[188]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_2649(2,av2);}}} /* k3986 in k3983 in doloop651 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3988,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)((C_word*)t0)[3])[1]; f_3876(t4,((C_word*)t0)[4],t3);} /* k3983 in doloop651 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in ... */ 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; C_word t3; C_word t4; 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_3985,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_3988,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_3995,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4000,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_4028,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:416: ##sys#dynamic-wind */ t11=*((C_word*)lf[257]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(28,c,2)))){ C_save_and_reclaim((void *)f_1770,2,av);} a=C_alloc(28); t2=t1; t3=*((C_word*)lf[17]+1); 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_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=lf[18]; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=((C_word*)t0)[2]; t17=C_u_i_memq(lf[19],t16); t18=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_1775,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t7,a[5]=t5,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]=t11,a[12]=t13,a[13]=t15,a[14]=t9,a[15]=t2,tmp=(C_word)a,a+=16,tmp); if(C_truep(t17)){ t19=t18; f_1775(t19,t17);} else{ t19=((C_word*)t0)[2]; t20=C_u_i_memq(lf[279],t19); if(C_truep(t20)){ t21=t18; f_1775(t21,t20);} else{ t21=((C_word*)t0)[2]; t22=C_u_i_memq(lf[20],t21); t23=t18; f_1775(t23,t22);}}} /* k2123 in k2120 in body228 in analyze in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_2125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2125,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2120 in body228 in analyze in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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 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_2122,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2125,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_2130,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2136,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:165: upap */ t6=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_1775(C_word t0,C_word t1){ C_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 *a; if(C_unlikely(!C_demand(C_calculate_demand(41,0,2)))){ C_save_and_reclaim_args((void *)trf_1775,2,t0,t1);} a=C_alloc(41); t2=t1; t3=((C_word*)t0)[2]; t4=C_u_i_memq(lf[20],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[21],t7); t9=((C_word*)t0)[2]; t10=C_u_i_memq(lf[22],t9); t11=((C_word*)t0)[2]; t12=C_u_i_memq(lf[23],t11); t13=C_SCHEME_END_OF_LIST; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=((C_word*)t0)[2]; t16=C_u_i_memq(lf[24],t15); t17=((C_word*)t0)[2]; t18=C_u_i_memq(lf[25],t17); t19=((C_word*)t0)[2]; t20=C_u_i_memq(lf[26],t19); t21=C_SCHEME_TRUE; t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp); t23=((C_word*)t0)[2]; t24=C_u_i_memq(lf[27],t23); t25=C_SCHEME_FALSE; t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp); t27=C_SCHEME_FALSE; 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_word*)t0)[2]; t32=C_u_i_memq(lf[28],t31); t33=((C_word*)t0)[2]; t34=C_u_i_memq(lf[29],t33); t35=(*a=C_CLOSURE_TYPE|30,a[1]=(C_word)f_1801,a[2]=t26,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]=t30,a[8]=((C_word*)t0)[6],a[9]=t14,a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=t28,a[14]=t12,a[15]=((C_word*)t0)[10],a[16]=t20,a[17]=t18,a[18]=((C_word*)t0)[11],a[19]=t24,a[20]=((C_word*)t0)[12],a[21]=t22,a[22]=((C_word*)t0)[13],a[23]=t6,a[24]=t32,a[25]=((C_word*)t0)[14],a[26]=t2,a[27]=t8,a[28]=((C_word*)t0)[15],a[29]=t10,a[30]=t16,tmp=(C_word)a,a+=31,tmp); if(C_truep(t34)){ t36=t35; f_1801(t36,t34);} else{ t36=((C_word*)t0)[2]; t37=t35; f_1801(t37,C_u_i_memq(lf[402],t36));}} /* k3247 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in ... */ static void C_ccall f_3249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3249,2,av);} /* batch-driver.scm:528: concatenate */ t2=*((C_word*)lf[191]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3994 in k3983 in doloop651 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3995,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[254]+1)); t3=C_mutate2((C_word*)lf[254]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a3401 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3402,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3406,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:488: print */ t3=*((C_word*)lf[220]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[221]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3404 in a3401 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3406,2,av);} a=C_alloc(5); t2=*((C_word*)lf[217]+1); t3=C_i_check_list_2(*((C_word*)lf[217]+1),lf[43]); 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_3440,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_3440(t7,((C_word*)t0)[2],*((C_word*)lf[217]+1));} /* k3970 in map-loop656 in doloop651 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in ... */ static void C_ccall f_3972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3972,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3947(t6,((C_word*)t0)[5],t5);} /* for-each-loop1029 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in ... */ static void C_fcall f_3215(C_word t0,C_word t1,C_word t2){ C_word 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(14,0,2)))){ C_save_and_reclaim_args((void *)trf_3215,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_3225,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_3187,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3206,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3210,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:535: symbol->string */ t9=*((C_word*)lf[173]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t9+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);}}} /* k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_2185(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_2185,2,t0,t1);} a=C_alloc(38); t2=(*a=C_CLOSURE_TYPE|37,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],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[176],t3))){ t4=C_set_block_item(lf[397] /* ##sys#dload-disabled */,0,C_SCHEME_TRUE); /* batch-driver.scm:177: repository-path */ t5=*((C_word*)lf[398]+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_2188(2,av2);}}} /* k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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 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_2188,2,av);} a=C_alloc(44); t2=((C_word*)t0)[2]; t3=C_mutate2((C_word*)lf[54]+1 /* (set! ##compiler#enable-specialization ...) */,C_u_i_memq(lf[55],t2)); t4=(*a=C_CLOSURE_TYPE|37,a[1]=(C_word)f_2195,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_4772,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4829,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:184: collect-options */ t7=((C_word*)((C_word*)t0)[24])[1]; f_2031(t7,t6,lf[396]);} /* k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_2182(C_word 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_2182,2,t0,t1);} a=C_alloc(38); t2=(*a=C_CLOSURE_TYPE|37,a[1]=(C_word)f_2185,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[205]+1); if(C_truep(*((C_word*)lf[205]+1))){ t4=*((C_word*)lf[205]+1); if(C_truep(*((C_word*)lf[205]+1))){ t5=C_set_block_item(lf[399] /* ##compiler#standalone-executable */,0,C_SCHEME_FALSE); t6=t2; f_2185(t6,t5);} else{ t5=t2; f_2185(t5,C_SCHEME_UNDEFINED);}} else{ if(C_truep(((C_word*)t0)[17])){ t4=C_set_block_item(lf[399] /* ##compiler#standalone-executable */,0,C_SCHEME_FALSE); t5=t2; f_2185(t5,t4);} else{ t4=t2; f_2185(t4,C_SCHEME_UNDEFINED);}}} /* k3208 in for-each-loop1029 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3210,2,av);} /* batch-driver.scm:535: make-pathname */ t2=*((C_word*)lf[171]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[187]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3223 in for-each-loop1029 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in ... */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_3225,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3215(t3,((C_word*)t0)[4],t2);} /* a4771 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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=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_4772,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_4788,a[2]=t5,a[3]=t6,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* string->list */ t8=*((C_word*)lf[395]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* f5736 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in ... */ static void C_ccall f5736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5736,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop656 in doloop651 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in ... */ static void C_fcall f_3947(C_word t0,C_word t1,C_word 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_3947,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_3972,a[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:419: g662 */ 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);}}} /* f5742 in k4065 in k4059 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in ... */ static void C_ccall f5742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5742,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* f5748 in k4065 in k4059 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in ... */ static void C_ccall f5748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5748,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* f5760 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in ... */ static void C_ccall f5760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5760,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3285 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in ... */ 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,2)))){ C_save_and_reclaim((void *)f_3287,2,av);} /* batch-driver.scm:527: concatenate */ t2=*((C_word*)lf[191]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f5754 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in ... */ static void C_ccall f5754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5754,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3204 in for-each-loop1029 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in ... */ static void C_ccall f_3206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3206,2,av);} /* batch-driver.scm:534: ##sys#resolve-include-filename */ t2=*((C_word*)lf[186]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* f5676 in for-each-loop1050 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in ... */ static void C_ccall f5676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5676,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* f5684 in k3194 in k3185 in for-each-loop1029 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in ... */ static void C_ccall f5684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5684,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* f5696 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in ... */ static void C_ccall f5696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5696,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4546 in k4543 in k4540 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in ... */ static void C_ccall f_4548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_4548,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4551,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:272: parentheses-synonyms */ t3=*((C_word*)lf[337]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4543 in k4540 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4545,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4548,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:271: keyword-style */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[338]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k1873 in print-db in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_1875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1875,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=*((C_word*)lf[31]+1); t3=*((C_word*)lf[31]+1); t4=C_i_check_port_2(*((C_word*)lf[31]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[32]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1881,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:125: ##sys#print */ t6=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[42]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[31]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4540 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 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 *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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4545,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:270: case-sensitive */ t3=*((C_word*)lf[339]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* print-db in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_1868(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_1868,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(5); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1875,a[2]=t1,a[3]=t4,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:124: print-header */ f_1819(t6,t2,t3);} /* k1864 in k1851 in print-node in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_1866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1866,2,av);} /* batch-driver.scm:121: pretty-print */ t2=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4528 in map-loop364 in k4495 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in ... */ 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 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_4530,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4505(t6,((C_word*)t0)[5],t5);} /* map-loop863 in k3566 in k3562 in k3547 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in ... */ static void C_fcall f_3612(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_3612,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[232],t4); t6=C_u_i_cdr(t3); t7=C_a_i_list(&a,2,lf[232],t6); t8=C_a_i_list(&a,4,lf[233],*((C_word*)lf[234]+1),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_mutate2(((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);}}} /* f5243 in k2883 in k2880 in k2877 in k2874 in k2871 in k2868 in k2865 in a2862 in k2850 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in ... */ static void C_ccall f5243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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 *)f5243,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5646,a[2]=t2,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t3; av2[2]=*((C_word*)lf[112]+1); av2[3]=lf[113]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} /* k1888 in k1885 in k1882 in k1879 in k1873 in print-db in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1890,2,av);} /* batch-driver.scm:126: display-analysis-database */ t2=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* print-expr in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_1895(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_1895,5,t0,t1,t2,t3,t4);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1902,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:129: print-header */ f_1819(t5,t2,t3);} /* loop in collect-options in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_2037(C_word t0,C_word t1,C_word 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_2037,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_2045,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:56: g208 */ t5=t4; f_2045(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);}}} /* collect-options in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_2031(C_word 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_2031,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_2037,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_2037(t6,t1,((C_word*)t0)[3]);} /* k1885 in k1882 in k1879 in k1873 in print-db in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_1887(C_word c,C_word *av){ C_word tmp; C_word t0=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_1887,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1890,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:125: ##sys#write-char-0 */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_2694,2,av);} a=C_alloc(23); t2=C_set_block_item(lf[96] /* ##compiler#first-analysis */,0,C_SCHEME_FALSE); t3=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_2698,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:611: end-time */ t4=((C_word*)((C_word*)t0)[10])[1]; f_2076(t4,t3,lf[145]);} /* k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_2691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,2)))){ C_save_and_reclaim((void *)f_2691,2,av);} a=C_alloc(28); t2=t1; t3=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_2694,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],tmp=(C_word)a,a+=23,tmp); if(C_truep(*((C_word*)lf[96]+1))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2960,a[2]=((C_word*)t0)[22],a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_memq(lf[152],*((C_word*)lf[30]+1)))){ /* batch-driver.scm:601: dump-undefined-globals */ t5=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2960(2,av2);}}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2694(2,av2);}}} /* k1879 in k1873 in print-db in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_1881(C_word c,C_word *av){ C_word tmp; C_word t0=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_1881,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1884,a[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:125: ##sys#print */ t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1882 in k1879 in k1873 in print-db in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_1884(C_word c,C_word *av){ C_word tmp; C_word t0=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_1884,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1887,a[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:125: ##sys#write-char-0 */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in ... */ static void C_ccall f_2698(C_word c,C_word *av){ C_word tmp; C_word t0=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,5)))){ C_save_and_reclaim((void *)f_2698,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_2701,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:612: print-db */ t3=((C_word*)((C_word*)t0)[20])[1]; f_1868(t3,t2,lf[143],lf[144],((C_word*)t0)[5],((C_word*)t0)[6]);} /* k2087 in k2084 in end-time in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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(5,c,4)))){ C_save_and_reclaim((void *)f_2089,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2092,a[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:157: ##sys#print */ t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[49]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2084 in end-time in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_2086(C_word c,C_word *av){ C_word tmp; C_word t0=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_2086,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2089,a[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:157: ##sys#print */ t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2055 in k2051 in g208 in loop in collect-options in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2057,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k2051 in g208 in loop in collect-options in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_2053(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2053,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2057,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:149: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_2037(t5,t3,t4);} /* map-loop364 in k4495 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in ... */ static void C_fcall f_4505(C_word t0,C_word t1,C_word 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_4505,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_4530,a[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:277: g370 */ 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);}}} /* k4571 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4573,2,av);} if(C_truep(C_i_string_equal_p(lf[346],t1))){ /* batch-driver.scm:258: keyword-style */ t2=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[347]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ if(C_truep(C_u_i_string_equal_p(lf[348],t1))){ /* batch-driver.scm:259: keyword-style */ t2=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[338]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ if(C_truep(C_u_i_string_equal_p(lf[349],t1))){ /* batch-driver.scm:260: keyword-style */ t2=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[350]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ /* batch-driver.scm:261: quit */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[351]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}}}} /* k4501 in k4495 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in ... */ static void C_ccall f_4503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4503,2,av);} /* batch-driver.scm:277: append */ t2=*((C_word*)lf[230]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[66]+1); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* end-time in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_2076(C_word t0,C_word 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_2076,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t3=*((C_word*)lf[31]+1); t4=*((C_word*)lf[31]+1); t5=C_i_check_port_2(*((C_word*)lf[31]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[32]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2086,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:157: ##sys#print */ t7=*((C_word*)lf[34]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=lf[50]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[31]+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);}}} /* k2072 in begin-time in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2074,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4633 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in k2241 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4635,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_2308(t3,t2);} /* k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_2652,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_2655,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:541: collect-options */ t3=((C_word*)((C_word*)t0)[21])[1]; f_2031(t3,t2,lf[182]);} /* k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in ... */ static void C_ccall f_2655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2655,2,av);} a=C_alloc(28); t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_2658,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_nullp(t1))){ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2658(2,av2);}} else{ t3=C_set_block_item(lf[179] /* ##compiler#inline-locally */,0,C_SCHEME_TRUE); t4=C_i_check_list_2(t1,lf[43]); 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_3161,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_3161(t8,t2,t1);}} /* k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(34,c,2)))){ C_save_and_reclaim((void *)f_2658,2,av);} a=C_alloc(34); t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_2661,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_word*)((C_word*)t0)[18])[1]; t4=(C_truep(t3)?t3:*((C_word*)lf[54]+1)); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_3015,a[2]=((C_word*)t0)[19],a[3]=t2,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[17],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[18],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[20],a[12]=((C_word*)t0)[21],tmp=(C_word)a,a+=13,tmp); t6=((C_word*)t0)[22]; if(C_truep(C_u_i_memq(lf[176],t6))){ t7=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_3015(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3138,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:553: load-type-database */ t8=*((C_word*)lf[170]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=lf[178]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} else{ t5=t2; f_2661(t5,C_SCHEME_UNDEFINED);}} /* k2970 in k2964 in k2961 in k2958 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2972,2,av);} /* batch-driver.scm:609: emit-type-file */ t2=*((C_word*)lf[146]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4627 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in ... */ 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_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_2313(t3,t2);} /* k4620 in k4614 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 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(0,c,1)))){ C_save_and_reclaim((void *)f_4622,2,av);} t2=C_mutate2((C_word*)lf[354]+1 /* (set! ##compiler#inline-max-size ...) */,t1); t3=((C_word*)t0)[2]; f_2318(t3,t2);} /* k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in ... */ static void C_fcall f_2661(C_word t0,C_word t1){ C_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(18,0,2)))){ C_save_and_reclaim_args((void *)trf_2661,2,t0,t1);} a=C_alloc(18); t2=C_set_block_item(lf[87] /* ##sys#line-number-database */,0,C_SCHEME_FALSE); t3=C_set_block_item(lf[94] /* ##compiler#constant-table */,0,C_SCHEME_FALSE); t4=C_set_block_item(lf[95] /* ##compiler#inline-table */,0,C_SCHEME_FALSE); t5=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_2667,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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*)lf[159]+1))){ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_2667(2,av2);}} else{ t6=C_slot(((C_word*)t0)[17],C_fix(3)); t7=C_i_car(t6); /* batch-driver.scm:582: scan-toplevel-assignments */ t8=*((C_word*)lf[160]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t5; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in ... */ static void C_ccall f_2667(C_word c,C_word *av){ C_word tmp; C_word t0=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_2667,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_2670,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:584: begin-time */ t3=((C_word*)((C_word*)t0)[4])[1]; f_2066(t3,t2);} /* k2093 in k2090 in k2087 in k2084 in end-time in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2095,2,av);} /* batch-driver.scm:157: ##sys#write-char-0 */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2090 in k2087 in k2084 in end-time in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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 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_2092,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2095,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_2106,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2114,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:105: current-milliseconds */ t5=*((C_word*)lf[47]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k4614 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4616,2,av);} a=C_alloc(7); t2=C_a_i_string_to_number(&a,2,t1,C_fix(10)); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4622,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t2)){ t4=C_mutate2((C_word*)lf[354]+1 /* (set! ##compiler#inline-max-size ...) */,t2); t5=((C_word*)t0)[2]; f_2318(t5,t4);} else{ /* batch-driver.scm:251: quit */ t4=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[355]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_2673,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_2676,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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,tmp=(C_word)a,a+=18,tmp); /* batch-driver.scm:587: end-time */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2076(t4,t3,lf[157]);} /* k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in ... */ static void C_ccall f_2670(C_word c,C_word *av){ C_word tmp; C_word t0=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,2)))){ C_save_and_reclaim((void *)f_2670,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_2673,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:586: perform-cps-conversion */ t3=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[17]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in ... */ static void C_ccall f_2676(C_word c,C_word *av){ C_word tmp; C_word t0=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_2676,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_2679,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:588: print-node */ t3=((C_word*)((C_word*)t0)[6])[1]; f_1846(t3,t2,lf[155],lf[156],((C_word*)t0)[17]);} /* k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in ... */ 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(19,c,7)))){ C_save_and_reclaim((void *)f_2679,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_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_2684,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],tmp=(C_word)a,a+=17,tmp)); t5=((C_word*)t3)[1]; f_2684(t5,((C_word*)t0)[16],C_fix(1),((C_word*)t0)[17],C_SCHEME_TRUE,C_SCHEME_FALSE,C_SCHEME_FALSE);} /* begin-time in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_2066(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_2066,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_2074,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:105: current-milliseconds */ t3=*((C_word*)lf[47]+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);}}} /* k3042 in for-each-loop1094 in k3033 in k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3044,2,av);} /* batch-driver.scm:562: load-type-database */ t2=*((C_word*)lf[170]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3046 in for-each-loop1094 in k3033 in k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in ... */ static void C_ccall f_3048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3048,2,av);} /* batch-driver.scm:562: make-pathname */ t2=*((C_word*)lf[171]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[172]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4607 in k4604 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in ... */ static void C_ccall f_4609(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4609,2,av);} /* batch-driver.scm:255: case-sensitive */ t2=*((C_word*)lf[339]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4604 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in ... */ static void C_ccall f_4606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_4606,2,av);} a=C_alloc(3); 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); /* batch-driver.scm:254: register-feature! */ t3=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[352]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in ... */ static void C_fcall f_2684(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(25,0,2)))){ C_save_and_reclaim_args((void *)trf_2684,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(25); t7=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t8=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_2688,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],tmp=(C_word)a,a+=23,tmp); /* batch-driver.scm:596: begin-time */ t9=((C_word*)((C_word*)t0)[5])[1]; f_2066(t9,t8);} /* k2958 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_2960,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2963,a[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(lf[150],*((C_word*)lf[30]+1)))){ /* batch-driver.scm:603: dump-defined-globals */ t3=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2963(2,av2);}}} /* k2961 in k2958 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_2963,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2966,a[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(lf[148],*((C_word*)lf[30]+1)))){ /* batch-driver.scm:605: dump-global-refs */ t3=*((C_word*)lf[149]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2966(2,av2);}}} /* k3766 in map-loop763 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3768,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3743(t6,((C_word*)t0)[5],t5);} /* k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_2688,2,av);} a=C_alloc(29); t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_2691,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:598: analyze */ t3=((C_word*)((C_word*)t0)[11])[1]; f_2116(t3,t2,lf[154],((C_word*)((C_word*)t0)[4])[1],C_a_i_list(&a,2,((C_word*)t0)[5],((C_word*)t0)[2]));} /* k2964 in k2961 in k2958 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in ... */ 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 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_2966,2,av);} a=C_alloc(11); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2972,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=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)f5664,a[2]=t3,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[112]+1); av2[3]=lf[147]; av2[4]=t4; C_apply(5,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_2694(2,av2);}}} /* k3052 in k3049 in k3033 in k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_3054,2,av);} a=C_alloc(10); t2=C_set_block_item(lf[96] /* ##compiler#first-analysis */,0,C_SCHEME_FALSE); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3059,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:566: analyze */ t4=((C_word*)((C_word*)t0)[10])[1]; f_2116(t4,t3,lf[169],((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* k2735 in k2732 in a2729 in k2711 in k2708 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in ... */ 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 t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,6)))){ C_save_and_reclaim((void *)f_2737,2,av);} a=C_alloc(10); if(C_truep(((C_word*)t0)[2])){ t2=C_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)); /* batch-driver.scm:628: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_2684(t3,((C_word*)t0)[5],t2,((C_word*)t0)[6],C_SCHEME_TRUE,C_SCHEME_FALSE,((C_word*)t0)[7]);} else{ t2=((C_word*)t0)[8]; t3=(C_truep(t2)?C_SCHEME_FALSE:((C_word*)t0)[9]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2756,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:630: debugging */ t5=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[36]; av2[3]=lf[99]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=*((C_word*)lf[100]+1); if(C_truep(*((C_word*)lf[100]+1))){ if(C_truep(*((C_word*)lf[101]+1))){ t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2786,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:637: begin-time */ t6=((C_word*)((C_word*)t0)[11])[1]; f_2066(t6,t5);} else{ t5=C_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)); /* batch-driver.scm:650: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_2684(t6,((C_word*)t0)[5],t5,((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[8]);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2772,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:633: debugging */ t6=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=lf[36]; av2[3]=lf[106]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}} /* k3057 in k3052 in k3049 in k3033 in k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in ... */ static void C_ccall f_3059(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3059,2,av);} a=C_alloc(9); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3062,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:567: print-db */ t4=((C_word*)((C_word*)t0)[9])[1]; f_1868(t4,t3,lf[167],lf[168],((C_word*)((C_word*)t0)[2])[1],C_fix(0));} /* k2732 in a2729 in k2711 in k2708 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in ... */ static void C_ccall f_2734(C_word c,C_word *av){ C_word tmp; C_word t0=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_2734,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_2737,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:626: print-node */ t3=((C_word*)((C_word*)t0)[13])[1]; f_1846(t3,t2,lf[107],lf[108],((C_word*)t0)[6]);} /* a2729 in k2711 in k2708 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in ... */ 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=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_2730,4,av);} a=C_alloc(14); t4=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_2734,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:625: end-time */ t5=((C_word*)((C_word*)t0)[7])[1]; f_2076(t5,t4,lf[109]);} /* k3049 in k3033 in k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in ... */ static void C_ccall f_3051(C_word c,C_word *av){ C_word tmp; C_word t0=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_3051,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3054,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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:564: begin-time */ t3=((C_word*)((C_word*)t0)[8])[1]; f_2066(t3,t2);} /* k2505 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2507,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2510,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:388: display */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[273]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in ... */ static void C_ccall f_2701(C_word c,C_word *av){ C_word tmp; C_word t0=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_2701,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_2704,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_memq(lf[141],*((C_word*)lf[30]+1)))){ /* batch-driver.scm:615: print-program-statistics */ t3=*((C_word*)lf[142]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2704(2,av2);}}} /* k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in ... */ static void C_ccall f_2704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,4)))){ C_save_and_reclaim((void *)f_2704,2,av);} a=C_alloc(22); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_2710,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:619: debugging */ t3=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[36]; av2[3]=lf[110]; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_2821,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)[11],a[9]=((C_word*)t0)[14],a[10]=((C_word*)t0)[18],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[19],a[13]=((C_word*)t0)[20],a[14]=((C_word*)t0)[6],a[15]=((C_word*)t0)[21],tmp=(C_word)a,a+=16,tmp); if(C_truep(((C_word*)t0)[22])){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2942,a[2]=((C_word*)t0)[10],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* batch-driver.scm:655: begin-time */ t4=((C_word*)((C_word*)t0)[11])[1]; f_2066(t4,t3);} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2821(2,av2);}}}} /* k2940 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2942,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2945,a[2]=((C_word*)t0)[2],a[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: debugging */ t3=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[36]; av2[3]=lf[140]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2943 in k2940 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in ... */ static void C_ccall f_2945(C_word c,C_word *av){ C_word tmp; C_word t0=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_2945,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2948,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:657: perform-secondary-flow-analysis */ t3=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k1851 in print-node in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_1853(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1853,2,av);} a=C_alloc(3); if(C_truep(t1)){ if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ /* batch-driver.scm:120: dump-nodes */ t2=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_1866,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:121: build-expression-tree */ t3=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2946 in k2943 in k2940 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2948,2,av);} /* batch-driver.scm:658: end-time */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2076(t2,((C_word*)t0)[3],lf[138]);} /* map-loop763 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in ... */ static void C_fcall f_3743(C_word t0,C_word t1,C_word 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_3743,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_3768,a[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:446: g769 */ 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);}}} /* a2717 in k2711 in k2708 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2718,2,av);} if(C_truep(((C_word*)t0)[2])){ /* batch-driver.scm:623: determine-loop-and-dispatch */ t2=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:624: perform-high-level-optimizations */ t2=*((C_word*)lf[98]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k2711 in k2708 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in ... */ static void C_ccall f_2713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2713,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2718,a[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_2730,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:621: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2708 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in ... */ static void C_ccall f_2710(C_word c,C_word *av){ C_word tmp; C_word t0=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_2710,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_2713,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:620: begin-time */ t3=((C_word*)((C_word*)t0)[10])[1]; f_2066(t3,t2);} /* k1988 in arg-val in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_1990,2,av);} a=C_alloc(8); t2=C_a_i_string_to_number(&a,2,t1,C_fix(10)); t3=C_a_i_times(&a,2,t2,C_fix(1048576)); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* batch-driver.scm:145: quit */ t4=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[45]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k1842 in k1839 in k1836 in k1833 in k1821 in print-header in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 in ... */ static void C_ccall f_1844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1844,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* print-node in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_1846(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_1846,5,t0,t1,t2,t3,t4);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1853,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:118: print-header */ f_1819(t5,t2,t3);} /* k1839 in k1836 in k1833 in k1821 in print-header in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_1841,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1844,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:114: ##sys#write-char-0 */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,2)))){ C_save_and_reclaim((void *)f_2640,2,av);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_2643,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3287,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:527: vector->list */ t4=*((C_word*)lf[192]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[193]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in ... */ static void C_ccall f_2643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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,3)))){ C_save_and_reclaim((void *)f_2643,2,av);} a=C_alloc(38); t2=t1; t3=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_2646,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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]=t2,tmp=(C_word)a,a+=23,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_3249,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|4,a[1]=(C_word)f_3251,a[2]=t6,a[3]=t10,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_3251(t12,t8,t2);} /* k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in ... */ static void C_ccall f_2646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,3)))){ C_save_and_reclaim((void *)f_2646,2,av);} a=C_alloc(27); t2=t1; t3=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_2649,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3239,a[2]=t3,a[3]=((C_word*)t0)[22],tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:529: debugging */ t5=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[189]; av2[3]=lf[190]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in ... */ 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 t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){ C_save_and_reclaim((void *)f_2649,2,av);} a=C_alloc(28); t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_2652,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_word*)lf[183]+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_3215,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_3215(t6,t2,((C_word*)t0)[20]);} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2652(2,av2);}}} /* k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_2339,2,av);} a=C_alloc(33); t2=C_mutate2((C_word*)lf[66]+1 /* (set! ##sys#include-pathnames ...) */,t1); t3=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_2342,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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)[14])){ if(C_truep(((C_word*)t0)[7])){ if(C_truep(C_i_string_equal_p(((C_word*)t0)[14],((C_word*)t0)[7]))){ /* batch-driver.scm:281: quit */ t4=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[333]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2342(2,av2);}}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2342(2,av2);}}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2342(2,av2);}}} /* k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in ... */ 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 t4; 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_2333,2,av);} a=C_alloc(45); t2=C_mutate2((C_word*)lf[64]+1 /* (set! ##compiler#verbose-mode ...) */,((C_word*)t0)[2]); t3=C_set_block_item(lf[65] /* ##sys#read-error-with-line-number */,0,C_SCHEME_TRUE); t4=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_2339,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[16]+1); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4497,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:277: collect-options */ t11=((C_word*)((C_word*)t0)[23])[1]; f_2031(t11,t10,lf[334]);} /* k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in ... */ 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 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_2330,2,av);} a=C_alloc(41); t2=(*a=C_CLOSURE_TYPE|34,a[1]=(C_word)f_2333,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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)[6]; if(C_truep(C_u_i_memq(lf[335],t3))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4542,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5788,a[2]=t5,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[112]+1); av2[3]=lf[340]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} else{ t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2333(2,av2);}}} /* k3066 in k3063 in k3060 in k3057 in k3052 in k3049 in k3033 in k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_3068(C_word c,C_word *av){ C_word tmp; C_word t0=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_3068,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3071,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:570: debugging */ t3=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[36]; av2[3]=lf[165]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in ... */ static void C_fcall f_2349(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_2349,2,t0,t1);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_2352,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[328],t3))){ t4=C_set_block_item(lf[329] /* ##compiler#no-argc-checks */,0,C_SCHEME_TRUE); t5=t2; f_2352(t5,t4);} else{ t4=t2; f_2352(t4,C_SCHEME_UNDEFINED);}} /* k3063 in k3060 in k3057 in k3052 in k3049 in k3033 in k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3065,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3068,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:569: begin-time */ t3=((C_word*)((C_word*)t0)[8])[1]; f_2066(t3,t2);} /* k3060 in k3057 in k3052 in k3049 in k3033 in k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 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; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3062,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3065,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:568: end-time */ t3=((C_word*)((C_word*)t0)[5])[1]; f_2076(t3,t2,lf[166]);} /* g208 in loop in collect-options in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_2045(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_2045,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2053,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:149: option-arg */ f_1714(t3,t2);} /* k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_2346,2,av);} a=C_alloc(33); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_2349,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],tmp=(C_word)a,a+=33,tmp); t4=((C_word*)t0)[5]; if(C_truep(C_u_i_memq(lf[330],t4))){ t5=C_set_block_item(lf[331] /* ##compiler#undefine-shadowed-macros */,0,C_SCHEME_FALSE); t6=t3; f_2349(t6,t5);} else{ t5=t3; f_2349(t5,C_SCHEME_UNDEFINED);}} /* k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in ... */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,3)))){ C_save_and_reclaim((void *)f_2342,2,av);} a=C_alloc(39); t2=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_2346,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4430,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4478,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:285: collect-options */ t5=((C_word*)((C_word*)t0)[22])[1]; f_2031(t5,t4,lf[246]);} /* print-header in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_1819(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_1819,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1823,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:111: debugging */ t5=*((C_word*)lf[35]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=lf[36]; av2[3]=lf[37]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k3075 in k3072 in k3069 in k3066 in k3063 in k3060 in k3057 in k3052 in k3049 in k3033 in k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3077,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3080,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[54]+1))){ /* batch-driver.scm:574: print-node */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1846(t3,t2,lf[161],lf[162],((C_word*)t0)[4]);} else{ t3=C_set_block_item(lf[96] /* ##compiler#first-analysis */,0,C_SCHEME_TRUE); t4=((C_word*)t0)[2]; f_2661(t4,t3);}} /* k3072 in k3069 in k3066 in k3063 in k3060 in k3057 in k3052 in k3049 in k3033 in k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 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; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3074,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3077,a[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:572: end-time */ t3=((C_word*)((C_word*)t0)[5])[1]; f_2076(t3,t2,lf[163]);} /* k3069 in k3066 in k3063 in k3060 in k3057 in k3052 in k3049 in k3033 in k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_3071,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3074,a[2]=((C_word*)t0)[2],a[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:571: scrutinize */ t3=*((C_word*)lf[164]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } 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[54]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in ... */ static void C_fcall f_2318(C_word t0,C_word 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_2318,2,t0,t1);} a=C_alloc(42); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2321,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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)[6]; if(C_truep(C_u_i_memq(lf[352],t3))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4606,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5806,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[112]+1); av2[3]=lf[353]; 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_2321(2,av2);}}} /* k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in k2247 in k2244 in ... */ static void C_fcall f_2313(C_word 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_2313,2,t0,t1);} a=C_alloc(39); t2=((C_word*)t0)[2]; t3=C_u_i_memq(lf[63],t2); t4=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_2318,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]=((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_4616,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:249: option-arg */ f_1714(t5,t3);} else{ t5=t4; f_2318(t5,C_SCHEME_FALSE);}} /* for-each-loop419 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in ... */ static void C_fcall f_4392(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_4392,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_4402,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_4302,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=C_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t8))){ /* tweaks.scm:54: ##sys#put! */ t9=*((C_word*)lf[319]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t7; av2[2]=t6; av2[3]=lf[321]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t9=C_i_car(t8); /* tweaks.scm:54: ##sys#put! */ t10=*((C_word*)lf[319]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t7; av2[2]=t6; av2[3]=lf[321]; 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);}}} /* map-loop78 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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(6,0,2)))){ C_save_and_reclaim_args((void *)trf_4865,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_4890,a[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:74: g84 */ 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);}}} /* f5716 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in ... */ static void C_ccall f5716(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5716,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_fcall f_1801(C_word t0,C_word t1){ C_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 *a; if(C_unlikely(!C_demand(C_calculate_demand(94,0,6)))){ C_save_and_reclaim_args((void *)trf_1801,2,t0,t1);} a=C_alloc(94); 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_1819,tmp=(C_word)a,a+=2,tmp)); t22=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1846,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_1868,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_1895,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_1941,tmp=(C_word)a,a+=2,tmp)); t26=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2031,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_2066,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_2076,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_2116,a[2]=((C_word*)t0)[7],tmp=(C_word)a,a+=3,tmp)); t30=(*a=C_CLOSURE_TYPE|37,a[1]=(C_word)f_2182,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[7],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]=t18,a[13]=t16,a[14]=t20,a[15]=t6,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]=((C_word*)t0)[24],a[29]=((C_word*)t0)[25],a[30]=((C_word*)t0)[26],a[31]=t2,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_4843,a[2]=t30,tmp=(C_word)a,a+=3,tmp); t32=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4847,a[2]=t31,tmp=(C_word)a,a+=3,tmp); t33=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4851,a[2]=t32,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:172: option-arg */ f_1714(t33,((C_word*)t0)[30]);} else{ t31=t30; f_2182(t31,C_SCHEME_UNDEFINED);}} /* k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in ... */ 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 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_2327,2,av);} a=C_alloc(41); t2=(*a=C_CLOSURE_TYPE|34,a[1]=(C_word)f_2330,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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)[6]; if(C_truep(C_u_i_memq(lf[341],t3))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4559,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5794,a[2]=t5,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[112]+1); av2[3]=lf[342]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} else{ t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2330(2,av2);}}} /* k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in k2250 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(38,c,2)))){ C_save_and_reclaim((void *)f_2321,2,av);} a=C_alloc(38); t2=(*a=C_CLOSURE_TYPE|34,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]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_4573,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:257: option-arg */ f_1714(t3,((C_word*)t0)[35]);} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2324(2,av2);}}} /* k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in k2256 in k2253 in ... */ 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 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_2324,2,av);} a=C_alloc(41); t2=(*a=C_CLOSURE_TYPE|34,a[1]=(C_word)f_2327,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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)[6]; if(C_truep(C_u_i_memq(lf[343],t3))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4567,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5800,a[2]=t5,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[112]+1); av2[3]=lf[345]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} else{ t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2327(2,av2);}}} /* k2604 in k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in ... */ static void C_ccall f_2606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,2)))){ C_save_and_reclaim((void *)f_2606,2,av);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_2609,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_truep(*((C_word*)lf[205]+1))?((C_word*)t0)[9]:C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3367,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:499: open-output-string */ t5=*((C_word*)lf[210]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2609(2,av2);}}} /* k2601 in k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in ... */ 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; 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_2603,2,av);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_2606,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3385,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:494: debugging */ t4=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[212]; av2[3]=lf[213]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2598 in k2595 in k2592 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in ... */ 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; 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_2600,2,av);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_2603,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3391,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:492: debugging */ t4=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[215]; av2[3]=lf[216]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k4849 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4851,2,av);} /* batch-driver.scm:172: stringify */ t2=*((C_word*)lf[401]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f5722 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in ... */ static void C_ccall f5722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5722,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in ... */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,c,2)))){ C_save_and_reclaim((void *)f_2379,2,av);} a=C_alloc(36); t2=C_a_i_cons(&a,2,lf[69],*((C_word*)lf[70]+1)); t3=C_mutate2((C_word*)lf[70]+1 /* (set! ##sys#features ...) */,t2); t4=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_2386,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:319: collect-options */ t5=((C_word*)((C_word*)t0)[21])[1]; f_2031(t5,t4,lf[310]);} /* k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in ... */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,3)))){ C_save_and_reclaim((void *)f_2376,2,av);} a=C_alloc(39); t2=(*a=C_CLOSURE_TYPE|32,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],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_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_4211,a[2]=t4,a[3]=((C_word*)t0)[33],tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_4211(t6,t2,t1);} /* k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,3)))){ C_save_and_reclaim((void *)f_2370,2,av);} a=C_alloc(39); t2=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_2373,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_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_4244,a[2]=t4,a[3]=((C_word*)t0)[33],tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_4244(t6,t2,t1);} /* k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in ... */ 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; 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_2373,2,av);} a=C_alloc(40); t2=*((C_word*)lf[68]+1); t3=(*a=C_CLOSURE_TYPE|33,a[1]=(C_word)f_2376,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_4234,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4242,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:315: collect-options */ t6=((C_word*)((C_word*)t0)[21])[1]; f_2031(t6,t5,lf[314]);} /* a4027 in k3983 in doloop651 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4028,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[254]+1)); t3=C_mutate2((C_word*)lf[254]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4841 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4843,2,av);} t2=C_mutate2((C_word*)lf[205]+1 /* (set! ##compiler#unit-name ...) */,t1); t3=((C_word*)t0)[2]; f_2182(t3,t2);} /* k4845 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4847,2,av);} /* batch-driver.scm:172: string->c-identifier */ t2=*((C_word*)lf[400]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop682 in k3899 in k3895 in doloop651 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in ... */ static void C_fcall f_3913(C_word t0,C_word t1,C_word 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_3913,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_3938,a[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: g688 */ 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);}}} /* k3909 in k3899 in k3895 in doloop651 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3911,2,av);} /* batch-driver.scm:419: append */ t2=*((C_word*)lf[230]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in ... */ static void C_ccall f_2389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_2389,2,av);} a=C_alloc(38); t2=C_i_check_list_2(((C_word*)t0)[2],lf[43]); t3=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_2404,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_4188,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_4188(t7,t3,((C_word*)t0)[2]);} /* k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 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 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_2386,2,av);} a=C_alloc(37); t2=t1; t3=(*a=C_CLOSURE_TYPE|33,a[1]=(C_word)f_2389,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)f5770,a[2]=t4,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[112]+1); av2[3]=lf[309]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} /* k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in ... */ static void C_ccall f_3029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_3029,2,av);} a=C_alloc(17); t2=C_i_check_list_2(t1,lf[43]); t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3035,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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_3109,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_3109(t7,t3,t1);} /* k3018 in for-each-loop1073 in k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3020,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* batch-driver.scm:558: quit */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[174]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k4377 in for-each-loop466 in k4323 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 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(0,c,2)))){ C_save_and_reclaim((void *)f_4379,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4369(t3,((C_word*)t0)[4],t2);} /* k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in k2592 in k2586 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_3015,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3029,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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:559: collect-options */ t3=((C_word*)((C_word*)t0)[12])[1]; f_2031(t3,t2,lf[175]);} /* k3033 in k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in k2595 in ... */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_3035,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3051,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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_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_3086,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_3086(t6,t2,((C_word*)t0)[11]);} /* k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in ... */ static void C_fcall f_2358(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_2358,2,t0,t1);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_2361,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[322],t3))){ t4=C_set_block_item(lf[323] /* ##compiler#no-global-procedure-checks */,0,C_SCHEME_TRUE); t5=t2; f_2361(t5,t4);} else{ t4=t2; f_2361(t4,C_SCHEME_UNDEFINED);}} /* k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in ... */ static void C_fcall f_2352(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_2352,2,t0,t1);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_2355,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[326],t3))){ t4=C_set_block_item(lf[327] /* ##compiler#no-bound-checks */,0,C_SCHEME_TRUE); t5=t2; f_2355(t5,t4);} else{ t4=t2; f_2355(t4,C_SCHEME_UNDEFINED);}} /* k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in ... */ static void C_fcall f_2355(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_2355,2,t0,t1);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_2358,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[324],t3))){ t4=C_set_block_item(lf[325] /* ##compiler#no-procedure-checks */,0,C_SCHEME_TRUE); t5=t2; f_2358(t5,t4);} else{ t4=t2; f_2358(t4,C_SCHEME_UNDEFINED);}} /* k2868 in k2865 in a2862 in k2850 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in ... */ static void C_ccall f_2870(C_word c,C_word *av){ C_word tmp; C_word t0=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_2870,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2873,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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)[4])){ /* batch-driver.scm:683: open-output-file */ t3=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=*((C_word*)lf[31]+1); f_2873(2,av2);}}} /* k2871 in k2868 in k2865 in a2862 in k2850 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in ... */ static void C_ccall f_2873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,4)))){ C_save_and_reclaim((void *)f_2873,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_2876,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); t4=t3; t5=C_a_i_list(&a,1,((C_word*)t0)[4]); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5652,a[2]=t4,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[112]+1); av2[3]=lf[121]; av2[4]=t5; C_apply(5,av2);}} /* k2874 in k2871 in k2868 in k2865 in a2862 in k2850 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in ... */ static void C_ccall f_2876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,9)))){ C_save_and_reclaim((void *)f_2876,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2879,a[2]=((C_word*)t0)[2],a[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:685: generate-code */ t3=*((C_word*)lf[120]+1);{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(10); } 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]; ((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}} /* k2877 in k2874 in k2871 in k2868 in k2865 in a2862 in k2850 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2879,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2882,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:688: close-output-port */ t3=*((C_word*)lf[119]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2882(2,av2);}}} /* for-each-loop466 in k4323 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in ... */ static void C_fcall f_4369(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_4369,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_4379,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_4344,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=C_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t8))){ /* tweaks.scm:54: ##sys#put! */ t9=*((C_word*)lf[319]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t7; av2[2]=t6; av2[3]=lf[321]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t9=C_i_car(t8); /* tweaks.scm:54: ##sys#put! */ t10=*((C_word*)lf[319]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t7; av2[2]=t6; av2[3]=lf[321]; 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);}}} /* f5794 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in k2283 in k2280 in k2277 in k2274 in k2271 in k2268 in k2265 in k2262 in k2259 in ... */ static void C_ccall f5794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f5794,2,av);} /* batch-driver.scm:108: debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop1094 in k3033 in k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in k2598 in ... */ static void C_fcall f_3086(C_word t0,C_word t1,C_word 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_3086,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_3096,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_3044,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3048,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:562: symbol->string */ t8=*((C_word*)lf[173]+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);}}} /* k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in ... */ static void C_ccall f_2367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_2367,2,av);} a=C_alloc(40); t2=*((C_word*)lf[67]+1); t3=(*a=C_CLOSURE_TYPE|33,a[1]=(C_word)f_2370,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_4267,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4275,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:312: collect-options */ t6=((C_word*)((C_word*)t0)[21])[1]; f_2031(t6,t5,lf[316]);} /* k3078 in k3075 in k3072 in k3069 in k3066 in k3063 in k3060 in k3057 in k3052 in k3049 in k3033 in k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3080,2,av);} t2=C_set_block_item(lf[96] /* ##compiler#first-analysis */,0,C_SCHEME_TRUE); t3=((C_word*)t0)[2]; f_2661(t3,t2);} /* k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 in k2286 in ... */ static void C_fcall f_2361(C_word t0,C_word t1){ C_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_2361,2,t0,t1);} a=C_alloc(41); t2=(*a=C_CLOSURE_TYPE|32,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],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[318],t3))){ t4=*((C_word*)lf[293]+1); t5=C_i_check_list_2(*((C_word*)lf[293]+1),lf[43]); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4325,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_4392,a[2]=t8,tmp=(C_word)a,a+=3,tmp)); t10=((C_word*)t8)[1]; f_4392(t10,t6,*((C_word*)lf[293]+1));} else{ t4=t2;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2364(2,av2);}}} /* k4342 in for-each-loop466 in k4323 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in ... */ static void C_ccall f_4344(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4344,2,av);} t2=C_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t2))){ /* tweaks.scm:54: ##sys#put! */ t3=*((C_word*)lf[319]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[320]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=C_i_car(t2); /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[319]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[320]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_2364,2,av);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_2367,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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[36],*((C_word*)lf[30]+1)))){ /* batch-driver.scm:307: load-verbose */ t3=*((C_word*)lf[317]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2367(2,av2);}}} /* k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 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; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_2843,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2846,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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:674: print-node */ t3=((C_word*)((C_word*)t0)[11])[1]; f_1846(t3,t2,lf[125],lf[126],((C_word*)((C_word*)t0)[2])[1]);} /* k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in k2656 in k2653 in ... */ static void C_ccall f_2840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2840,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2843,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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*)lf[127]+1))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2930,a[2]=((C_word*)t0)[12],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:105: current-milliseconds */ t4=*((C_word*)lf[47]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2843(2,av2);}}} /* k2844 in k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in k2659 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_2846,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2849,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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])){ /* batch-driver.scm:675: exit */ t3=*((C_word*)lf[124]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2849(2,av2);}}} /* k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in k2665 in ... */ static void C_ccall f_2849(C_word c,C_word *av){ C_word tmp; C_word t0=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_2849,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2852,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:676: begin-time */ t3=((C_word*)((C_word*)t0)[8])[1]; f_2066(t3,t2);} /* k4888 in map-loop78 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4890,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4865(t6,((C_word*)t0)[5],t5);} /* k4059 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4061,2,av);} a=C_alloc(5); t2=C_set_block_item(lf[235] /* ##compiler#emit-profile */,0,C_SCHEME_TRUE); t3=C_mutate2((C_word*)lf[280]+1 /* (set! ##compiler#profiled-procedures ...) */,lf[281]); t4=(*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); if(C_truep(((C_word*)t0)[3])){ /* batch-driver.scm:367: append */ t5=*((C_word*)lf[230]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[285]+1); av2[4]=lf[286]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ /* batch-driver.scm:367: append */ t5=*((C_word*)lf[230]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[285]+1); av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k3094 in for-each-loop1094 in k3033 in k3027 in k3013 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k3293 in k2624 in k2621 in k2618 in k2615 in k2612 in k2607 in k2604 in k2601 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3096,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3086(t3,((C_word*)t0)[4],t2);} /* k3595 in k3566 in k3562 in k3547 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_3597,2,av);} t2=*((C_word*)lf[205]+1); if(C_truep(*((C_word*)lf[205]+1))){ /* batch-driver.scm:455: append */ t3=*((C_word*)lf[230]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } 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]=t1; av2[6]=((C_word*)t0)[6]; av2[7]=C_SCHEME_END_OF_LIST; av2[8]=lf[231]; ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} else{ if(C_truep(((C_word*)t0)[7])){ /* batch-driver.scm:455: append */ t3=*((C_word*)lf[230]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } 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]=t1; av2[6]=((C_word*)t0)[6]; av2[7]=C_SCHEME_END_OF_LIST; av2[8]=lf[231]; ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} else{ t3=((C_word*)((C_word*)t0)[8])[1]; /* batch-driver.scm:455: append */ t4=*((C_word*)lf[230]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t4; 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; av2[6]=((C_word*)t0)[6]; av2[7]=t3; av2[8]=lf[231]; ((C_proc)(void*)(*((C_word*)t4+1)))(9,av2);}}}} /* k4065 in k4059 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 in k2414 in k2406 in k2402 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 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_mutate2(((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[282]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5742,a[2]=t3,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[112]+1); av2[3]=lf[283]; av2[4]=t4; C_apply(5,av2);}} else{ t3=((C_word*)t0)[4]; t4=C_a_i_list(&a,1,lf[284]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5748,a[2]=t3,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[112]+1); av2[3]=lf[283]; av2[4]=t4; C_apply(5,av2);}}} /* a2862 in k2850 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 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=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(13,c,2)))){ C_save_and_reclaim((void *)f_2863,7,av);} a=C_alloc(13); t7=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_2867,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]=t6,a[12]=((C_word*)t0)[7],tmp=(C_word)a,a+=13,tmp); /* batch-driver.scm:680: end-time */ t8=((C_word*)((C_word*)t0)[2])[1]; f_2076(t8,t7,lf[123]);} /* k2865 in a2862 in k2850 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_2867,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2870,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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:681: begin-time */ t3=((C_word*)((C_word*)t0)[12])[1]; f_2066(t3,t2);} /* k4041 in k4033 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4043,2,av);} /* batch-driver.scm:406: append */ t2=*((C_word*)lf[230]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2396 in for-each-loop565 in k2387 in k2384 in k2377 in k2374 in k2371 in k2368 in k2365 in k2362 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2398,2,av);} /* batch-driver.scm:322: load */ t2=*((C_word*)lf[308]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4323 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in k2289 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 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_4325,2,av);} a=C_alloc(5); t2=*((C_word*)lf[295]+1); t3=C_i_check_list_2(*((C_word*)lf[295]+1),lf[43]); 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_4369,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_4369(t7,((C_word*)t0)[2],*((C_word*)lf[295]+1));} /* k2008 in arg-val in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_2010,2,av);} a=C_alloc(8); t2=C_a_i_string_to_number(&a,2,t1,C_fix(10)); t3=C_a_i_times(&a,2,t2,C_fix(1024)); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* batch-driver.scm:145: quit */ t4=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[45]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k4033 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in k2517 in k2478 in k2459 in k2456 in k2453 in k2450 in k2447 in k2444 in k2433 in k2429 in k2425 in k2422 in k2418 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_4035,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_4043,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:409: collect-options */ t6=((C_word*)((C_word*)t0)[4])[1]; f_2031(t6,t5,lf[259]);} /* map-loop308 in k2222 in k2196 in k2193 in k2186 in k2183 in k2180 in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in ... */ static void C_fcall f_4729(C_word t0,C_word t1,C_word 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_4729,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_4754,a[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_2215,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:191: string->symbol */ t8=*((C_word*)lf[303]+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);}}} /* k4300 in for-each-loop419 in k2359 in k2356 in k2353 in k2350 in k2347 in k2344 in k2340 in k2337 in k2331 in k2328 in k2325 in k2322 in k2319 in k2316 in k2311 in k2306 in k2301 in k2298 in k2295 in k2292 in ... */ static void C_ccall f_4302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4302,2,av);} t2=C_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t2))){ /* tweaks.scm:54: ##sys#put! */ t3=*((C_word*)lf[319]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[320]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=C_i_car(t2); /* tweaks.scm:54: ##sys#put! */ t4=*((C_word*)lf[319]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[320]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k2883 in k2880 in k2877 in k2874 in k2871 in k2868 in k2865 in a2862 in k2850 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2885,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2888,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_memq(lf[115],*((C_word*)lf[30]+1)))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2904,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:691: ##sys#stop-timer */ t4=*((C_word*)lf[117]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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)f5243,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:692: compiler-cleanup-hook */ t4=*((C_word*)lf[114]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2880 in k2877 in k2874 in k2871 in k2868 in k2865 in a2862 in k2850 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2882,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2885,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:689: end-time */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2076(t3,t2,lf[118]);} /* k2886 in k2883 in k2880 in k2877 in k2874 in k2871 in k2868 in k2865 in a2862 in k2850 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in ... */ static void C_ccall f_2888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2888,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2891,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:692: compiler-cleanup-hook */ t3=*((C_word*)lf[114]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1836 in k1833 in k1821 in print-header in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_1838(C_word c,C_word *av){ C_word tmp; C_word t0=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_1838,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1841,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:114: ##sys#write-char-0 */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1833 in k1821 in print-header in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ static void C_ccall f_1835(C_word c,C_word *av){ C_word tmp; C_word t0=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_1835,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1838,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:114: ##sys#print */ t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2850 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in k2668 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,7)))){ C_save_and_reclaim((void *)f_2852,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2857,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2863,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)[8],tmp=(C_word)a,a+=8,tmp); /* batch-driver.scm:678: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[9]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a2856 in k2850 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2828 in k2825 in k2822 in k2819 in k2702 in k2699 in k2696 in k2692 in k2689 in k2686 in loop in k2677 in k2674 in k2671 in ... */ static void C_ccall f_2857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2857,2,av);} /* batch-driver.scm:679: prepare-for-code-generation */ t2=*((C_word*)lf[111]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1821 in print-header in k1799 in k1773 in k1768 in k1765 in k1759 in k4942 in k1743 in compile-source-file in k1707 in k1703 in k1699 in k1695 in k1691 in k1687 in k1684 in k1681 */ 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; 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_1823,2,av);} a=C_alloc(5); if(C_truep(C_i_memq(((C_word*)t0)[2],*((C_word*)lf[30]+1)))){ t2=*((C_word*)lf[31]+1); t3=*((C_word*)lf[31]+1); t4=C_i_check_port_2(*((C_word*)lf[31]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[32]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1835,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:114: ##sys#write-char-0 */ t6=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(91); av2[3]=*((C_word*)lf[31]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3562 in k3547 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in k2521 in ... */ 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 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_3564,2,av);} a=C_alloc(41); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3568,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*)lf[235]+1))){ t4=C_a_i_list(&a,2,lf[232],((C_word*)t0)[7]); t5=*((C_word*)lf[205]+1); t6=(C_truep(*((C_word*)lf[205]+1))?C_a_i_list(&a,2,lf[232],C_SCHEME_FALSE):(C_truep(((C_word*)t0)[8])?C_a_i_list(&a,2,lf[232],((C_word*)t0)[8]):C_a_i_list(&a,2,lf[232],C_SCHEME_TRUE))); t7=C_a_i_list(&a,3,lf[236],t4,t6); t8=C_a_i_list(&a,3,lf[237],*((C_word*)lf[234]+1),t7); t9=t3; f_3568(t9,C_a_i_list(&a,1,t8));} else{ t4=t3; f_3568(t4,C_SCHEME_END_OF_LIST);}} /* k3566 in k3562 in k3547 in k2586 in k2583 in k2577 in k2574 in k2568 in k2565 in k2562 in k2559 in k2556 in k2553 in k2550 in k2547 in k2544 in k2541 in k2538 in k2534 in k2530 in k2527 in k2524 in ... */ static void C_fcall f_3568(C_word t0,C_word t1){ C_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,3)))){ C_save_and_reclaim_args((void *)trf_3568,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_word*)lf[89]+1); t8=C_i_check_list_2(*((C_word*)lf[89]+1),lf[57]); t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3597,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); 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_3612,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_3612(t13,t9,*((C_word*)lf[89]+1));} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[424] = { {"f_2279:batch_2ddriver_2escm",(void*)f_2279}, {"f_2276:batch_2ddriver_2escm",(void*)f_2276}, {"f_2270:batch_2ddriver_2escm",(void*)f_2270}, {"f_2273:batch_2ddriver_2escm",(void*)f_2273}, {"f_2288:batch_2ddriver_2escm",(void*)f_2288}, {"f_2285:batch_2ddriver_2escm",(void*)f_2285}, {"f_2282:batch_2ddriver_2escm",(void*)f_2282}, {"f_3549:batch_2ddriver_2escm",(void*)f_3549}, {"f_3119:batch_2ddriver_2escm",(void*)f_3119}, {"f_2219:batch_2ddriver_2escm",(void*)f_2219}, {"f_2215:batch_2ddriver_2escm",(void*)f_2215}, {"f_3517:batch_2ddriver_2escm",(void*)f_3517}, {"f_2891:batch_2ddriver_2escm",(void*)f_2891}, {"f_2224:batch_2ddriver_2escm",(void*)f_2224}, {"f_2233:batch_2ddriver_2escm",(void*)f_2233}, {"f_2230:batch_2ddriver_2escm",(void*)f_2230}, {"f5646:batch_2ddriver_2escm",(void*)f5646}, {"f5640:batch_2ddriver_2escm",(void*)f5640}, {"f_2249:batch_2ddriver_2escm",(void*)f_2249}, {"f_2246:batch_2ddriver_2escm",(void*)f_2246}, {"f_2243:batch_2ddriver_2escm",(void*)f_2243}, {"f_2240:batch_2ddriver_2escm",(void*)f_2240}, {"f_2936:batch_2ddriver_2escm",(void*)f_2936}, {"f5770:batch_2ddriver_2escm",(void*)f5770}, {"f_2930:batch_2ddriver_2escm",(void*)f_2930}, {"f_4010:batch_2ddriver_2escm",(void*)f_4010}, {"f_4006:batch_2ddriver_2escm",(void*)f_4006}, {"f5806:batch_2ddriver_2escm",(void*)f5806}, {"f5788:batch_2ddriver_2escm",(void*)f5788}, {"f5800:batch_2ddriver_2escm",(void*)f5800}, {"f_4000:batch_2ddriver_2escm",(void*)f_4000}, {"f_3901:batch_2ddriver_2escm",(void*)f_3901}, {"f_2294:batch_2ddriver_2escm",(void*)f_2294}, {"f_2291:batch_2ddriver_2escm",(void*)f_2291}, {"f_2297:batch_2ddriver_2escm",(void*)f_2297}, {"f_3938:batch_2ddriver_2escm",(void*)f_3938}, {"f_3109:batch_2ddriver_2escm",(void*)f_3109}, {"f_2536:batch_2ddriver_2escm",(void*)f_2536}, {"f_2532:batch_2ddriver_2escm",(void*)f_2532}, {"f_2549:batch_2ddriver_2escm",(void*)f_2549}, {"f_2546:batch_2ddriver_2escm",(void*)f_2546}, {"f_2543:batch_2ddriver_2escm",(void*)f_2543}, {"f_2540:batch_2ddriver_2escm",(void*)f_2540}, {"f_2519:batch_2ddriver_2escm",(void*)f_2519}, {"f_2513:batch_2ddriver_2escm",(void*)f_2513}, {"f_2510:batch_2ddriver_2escm",(void*)f_2510}, {"f_2258:batch_2ddriver_2escm",(void*)f_2258}, {"f_2529:batch_2ddriver_2escm",(void*)f_2529}, {"f_2252:batch_2ddriver_2escm",(void*)f_2252}, {"f_2255:batch_2ddriver_2escm",(void*)f_2255}, {"f_2526:batch_2ddriver_2escm",(void*)f_2526}, {"f_2523:batch_2ddriver_2escm",(void*)f_2523}, {"f_2609:batch_2ddriver_2escm",(void*)f_2609}, {"f_2617:batch_2ddriver_2escm",(void*)f_2617}, {"f_2614:batch_2ddriver_2escm",(void*)f_2614}, {"f_2267:batch_2ddriver_2escm",(void*)f_2267}, {"f_2261:batch_2ddriver_2escm",(void*)f_2261}, {"f_2576:batch_2ddriver_2escm",(void*)f_2576}, {"f_2579:batch_2ddriver_2escm",(void*)f_2579}, {"f_2264:batch_2ddriver_2escm",(void*)f_2264}, {"f_2570:batch_2ddriver_2escm",(void*)f_2570}, {"f_2626:batch_2ddriver_2escm",(void*)f_2626}, {"f_2623:batch_2ddriver_2escm",(void*)f_2623}, {"f_2620:batch_2ddriver_2escm",(void*)f_2620}, {"f_2588:batch_2ddriver_2escm",(void*)f_2588}, {"f_2585:batch_2ddriver_2escm",(void*)f_2585}, {"f_2637:batch_2ddriver_2escm",(void*)f_2637}, {"f_4829:batch_2ddriver_2escm",(void*)f_4829}, {"f_2558:batch_2ddriver_2escm",(void*)f_2558}, {"f_2555:batch_2ddriver_2escm",(void*)f_2555}, {"f_2552:batch_2ddriver_2escm",(void*)f_2552}, {"f_4818:batch_2ddriver_2escm",(void*)f_4818}, {"f_2567:batch_2ddriver_2escm",(void*)f_2567}, {"f_2561:batch_2ddriver_2escm",(void*)f_2561}, {"f_2564:batch_2ddriver_2escm",(void*)f_2564}, {"f_3367:batch_2ddriver_2escm",(void*)f_3367}, {"f_3675:batch_2ddriver_2escm",(void*)f_3675}, {"f_2837:batch_2ddriver_2escm",(void*)f_2837}, {"f_2834:batch_2ddriver_2escm",(void*)f_2834}, {"f_2830:batch_2ddriver_2escm",(void*)f_2830}, {"f_2594:batch_2ddriver_2escm",(void*)f_2594}, {"f_2597:batch_2ddriver_2escm",(void*)f_2597}, {"f_2801:batch_2ddriver_2escm",(void*)f_2801}, {"f_3887:batch_2ddriver_2escm",(void*)f_3887}, {"f5652:batch_2ddriver_2escm",(void*)f5652}, {"f5658:batch_2ddriver_2escm",(void*)f5658}, {"f_3391:batch_2ddriver_2escm",(void*)f_3391}, {"f_3897:batch_2ddriver_2escm",(void*)f_3897}, {"f5664:batch_2ddriver_2escm",(void*)f5664}, {"f_2827:batch_2ddriver_2escm",(void*)f_2827}, {"f_2821:batch_2ddriver_2escm",(void*)f_2821}, {"f_2824:batch_2ddriver_2escm",(void*)f_2824}, {"f_3867:batch_2ddriver_2escm",(void*)f_3867}, {"f_3876:batch_2ddriver_2escm",(void*)f_3876}, {"f_2416:batch_2ddriver_2escm",(void*)f_2416}, {"f_4664:batch_2ddriver_2escm",(void*)f_4664}, {"f_3871:batch_2ddriver_2escm",(void*)f_3871}, {"f_4467:batch_2ddriver_2escm",(void*)f_4467}, {"f_2427:batch_2ddriver_2escm",(void*)f_2427}, {"f_2424:batch_2ddriver_2escm",(void*)f_2424}, {"f_2420:batch_2ddriver_2escm",(void*)f_2420}, {"f_1745:batch_2ddriver_2escm",(void*)f_1745}, {"f_3857:batch_2ddriver_2escm",(void*)f_3857}, {"f_2435:batch_2ddriver_2escm",(void*)f_2435}, {"f_2431:batch_2ddriver_2escm",(void*)f_2431}, {"f_2449:batch_2ddriver_2escm",(void*)f_2449}, {"f_1711:batch_2ddriver_2escm",(void*)f_1711}, {"f_2446:batch_2ddriver_2escm",(void*)f_2446}, {"f_4944:batch_2ddriver_2escm",(void*)f_4944}, {"f_2458:batch_2ddriver_2escm",(void*)f_2458}, {"f_3345:batch_2ddriver_2escm",(void*)f_3345}, {"f_1701:batch_2ddriver_2escm",(void*)f_1701}, {"f_2455:batch_2ddriver_2escm",(void*)f_2455}, {"f_2452:batch_2ddriver_2escm",(void*)f_2452}, {"f_1714:batch_2ddriver_2escm",(void*)f_1714}, {"f5812:batch_2ddriver_2escm",(void*)f5812}, {"f_3315:batch_2ddriver_2escm",(void*)f_3315}, {"f_2469:batch_2ddriver_2escm",(void*)f_2469}, {"f_2461:batch_2ddriver_2escm",(void*)f_2461}, {"f_1705:batch_2ddriver_2escm",(void*)f_1705}, {"f_1709:batch_2ddriver_2escm",(void*)f_1709}, {"f_3302:batch_2ddriver_2escm",(void*)f_3302}, {"f_4497:batch_2ddriver_2escm",(void*)f_4497}, {"f_3305:batch_2ddriver_2escm",(void*)f_3305}, {"f_3320:batch_2ddriver_2escm",(void*)f_3320}, {"f_3373:batch_2ddriver_2escm",(void*)f_3373}, {"f_3379:batch_2ddriver_2escm",(void*)f_3379}, {"f_3376:batch_2ddriver_2escm",(void*)f_3376}, {"f_2480:batch_2ddriver_2escm",(void*)f_2480}, {"f_2118:batch_2ddriver_2escm",(void*)f_2118}, {"f_2114:batch_2ddriver_2escm",(void*)f_2114}, {"f_2116:batch_2ddriver_2escm",(void*)f_2116}, {"f_3385:batch_2ddriver_2escm",(void*)f_3385}, {"f_3382:batch_2ddriver_2escm",(void*)f_3382}, {"f_2491:batch_2ddriver_2escm",(void*)f_2491}, {"f_2498:batch_2ddriver_2escm",(void*)f_2498}, {"f_4146:batch_2ddriver_2escm",(void*)f_4146}, {"toplevel:batch_2ddriver_2escm",(void*)C_driver_toplevel}, {"f_3492:batch_2ddriver_2escm",(void*)f_3492}, {"f_3490:batch_2ddriver_2escm",(void*)f_3490}, {"f_4143:batch_2ddriver_2escm",(void*)f_4143}, {"f_4179:batch_2ddriver_2escm",(void*)f_4179}, {"f_2106:batch_2ddriver_2escm",(void*)f_2106}, {"f_3709:batch_2ddriver_2escm",(void*)f_3709}, {"f_4442:batch_2ddriver_2escm",(void*)f_4442}, {"f_3471:batch_2ddriver_2escm",(void*)f_3471}, {"f_4123:batch_2ddriver_2escm",(void*)f_4123}, {"f_4430:batch_2ddriver_2escm",(void*)f_4430}, {"f_3440:batch_2ddriver_2escm",(void*)f_3440}, {"f_4154:batch_2ddriver_2escm",(void*)f_4154}, {"f_4152:batch_2ddriver_2escm",(void*)f_4152}, {"f_4437:batch_2ddriver_2escm",(void*)f_4437}, {"f_3450:batch_2ddriver_2escm",(void*)f_3450}, {"f_3423:batch_2ddriver_2escm",(void*)f_3423}, {"f_3420:batch_2ddriver_2escm",(void*)f_3420}, {"f_3820:batch_2ddriver_2escm",(void*)f_3820}, {"f_3832:batch_2ddriver_2escm",(void*)f_3832}, {"f_4478:batch_2ddriver_2escm",(void*)f_4478}, {"f_3830:batch_2ddriver_2escm",(void*)f_3830}, {"f_4402:batch_2ddriver_2escm",(void*)f_4402}, {"f_3417:batch_2ddriver_2escm",(void*)f_3417}, {"f_3414:batch_2ddriver_2escm",(void*)f_3414}, {"f_3805:batch_2ddriver_2escm",(void*)f_3805}, {"f_3150:batch_2ddriver_2escm",(void*)f_3150}, {"f_4116:batch_2ddriver_2escm",(void*)f_4116}, {"f_2404:batch_2ddriver_2escm",(void*)f_2404}, {"f_2408:batch_2ddriver_2escm",(void*)f_2408}, {"f_1928:batch_2ddriver_2escm",(void*)f_1928}, {"f_3161:batch_2ddriver_2escm",(void*)f_3161}, {"f_1918:batch_2ddriver_2escm",(void*)f_1918}, {"f_3171:batch_2ddriver_2escm",(void*)f_3171}, {"f_1907:batch_2ddriver_2escm",(void*)f_1907}, {"f_1902:batch_2ddriver_2escm",(void*)f_1902}, {"f_4188:batch_2ddriver_2escm",(void*)f_4188}, {"f_1697:batch_2ddriver_2escm",(void*)f_1697}, {"f_4275:batch_2ddriver_2escm",(void*)f_4275}, {"f_1693:batch_2ddriver_2escm",(void*)f_1693}, {"f_3138:batch_2ddriver_2escm",(void*)f_3138}, {"f_4909:batch_2ddriver_2escm",(void*)f_4909}, {"f_4905:batch_2ddriver_2escm",(void*)f_4905}, {"f_4254:batch_2ddriver_2escm",(void*)f_4254}, {"f_4901:batch_2ddriver_2escm",(void*)f_4901}, {"f_4198:batch_2ddriver_2escm",(void*)f_4198}, {"f_3187:batch_2ddriver_2escm",(void*)f_3187}, {"f_3251:batch_2ddriver_2escm",(void*)f_3251}, {"f_4933:batch_2ddriver_2escm",(void*)f_4933}, {"f_2772:batch_2ddriver_2escm",(void*)f_2772}, {"f_3199:batch_2ddriver_2escm",(void*)f_3199}, {"f_3196:batch_2ddriver_2escm",(void*)f_3196}, {"f_4234:batch_2ddriver_2escm",(void*)f_4234}, {"f_1689:batch_2ddriver_2escm",(void*)f_1689}, {"f_1686:batch_2ddriver_2escm",(void*)f_1686}, {"f_1683:batch_2ddriver_2escm",(void*)f_1683}, {"f_2756:batch_2ddriver_2escm",(void*)f_2756}, {"f_4267:batch_2ddriver_2escm",(void*)f_4267}, {"f_1767:batch_2ddriver_2escm",(void*)f_1767}, {"f_1761:batch_2ddriver_2escm",(void*)f_1761}, {"f_2303:batch_2ddriver_2escm",(void*)f_2303}, {"f_4793:batch_2ddriver_2escm",(void*)f_4793}, {"f_2300:batch_2ddriver_2escm",(void*)f_2300}, {"f_2308:batch_2ddriver_2escm",(void*)f_2308}, {"f_4211:batch_2ddriver_2escm",(void*)f_4211}, {"f_3299:batch_2ddriver_2escm",(void*)f_3299}, {"f_3295:batch_2ddriver_2escm",(void*)f_3295}, {"f_4242:batch_2ddriver_2escm",(void*)f_4242}, {"f_4244:batch_2ddriver_2escm",(void*)f_4244}, {"f_4788:batch_2ddriver_2escm",(void*)f_4788}, {"f_2786:batch_2ddriver_2escm",(void*)f_2786}, {"f_2789:batch_2ddriver_2escm",(void*)f_2789}, {"f_4767:batch_2ddriver_2escm",(void*)f_4767}, {"f_4221:batch_2ddriver_2escm",(void*)f_4221}, {"f_2795:batch_2ddriver_2escm",(void*)f_2795}, {"f_2792:batch_2ddriver_2escm",(void*)f_2792}, {"f_2798:batch_2ddriver_2escm",(void*)f_2798}, {"f_2136:batch_2ddriver_2escm",(void*)f_2136}, {"f_2130:batch_2ddriver_2escm",(void*)f_2130}, {"f_1941:batch_2ddriver_2escm",(void*)f_1941}, {"f_4754:batch_2ddriver_2escm",(void*)f_4754}, {"f_2146:batch_2ddriver_2escm",(void*)f_2146}, {"f_4567:batch_2ddriver_2escm",(void*)f_4567}, {"f_2904:batch_2ddriver_2escm",(void*)f_2904}, {"f_2141:batch_2ddriver_2escm",(void*)f_2141}, {"f_4559:batch_2ddriver_2escm",(void*)f_4559}, {"f_2195:batch_2ddriver_2escm",(void*)f_2195}, {"f_2198:batch_2ddriver_2escm",(void*)f_2198}, {"f_4551:batch_2ddriver_2escm",(void*)f_4551}, {"f_3239:batch_2ddriver_2escm",(void*)f_3239}, {"f_3988:batch_2ddriver_2escm",(void*)f_3988}, {"f_3985:batch_2ddriver_2escm",(void*)f_3985}, {"f_1770:batch_2ddriver_2escm",(void*)f_1770}, {"f_2125:batch_2ddriver_2escm",(void*)f_2125}, {"f_2122:batch_2ddriver_2escm",(void*)f_2122}, {"f_1775:batch_2ddriver_2escm",(void*)f_1775}, {"f_3249:batch_2ddriver_2escm",(void*)f_3249}, {"f_3995:batch_2ddriver_2escm",(void*)f_3995}, {"f_3402:batch_2ddriver_2escm",(void*)f_3402}, {"f_3406:batch_2ddriver_2escm",(void*)f_3406}, {"f_3972:batch_2ddriver_2escm",(void*)f_3972}, {"f_3215:batch_2ddriver_2escm",(void*)f_3215}, {"f_2185:batch_2ddriver_2escm",(void*)f_2185}, {"f_2188:batch_2ddriver_2escm",(void*)f_2188}, {"f_2182:batch_2ddriver_2escm",(void*)f_2182}, {"f_3210:batch_2ddriver_2escm",(void*)f_3210}, {"f_3225:batch_2ddriver_2escm",(void*)f_3225}, {"f_4772:batch_2ddriver_2escm",(void*)f_4772}, {"f5736:batch_2ddriver_2escm",(void*)f5736}, {"f_3947:batch_2ddriver_2escm",(void*)f_3947}, {"f5742:batch_2ddriver_2escm",(void*)f5742}, {"f5748:batch_2ddriver_2escm",(void*)f5748}, {"f5760:batch_2ddriver_2escm",(void*)f5760}, {"f_3287:batch_2ddriver_2escm",(void*)f_3287}, {"f5754:batch_2ddriver_2escm",(void*)f5754}, {"f_3206:batch_2ddriver_2escm",(void*)f_3206}, {"f5676:batch_2ddriver_2escm",(void*)f5676}, {"f5684:batch_2ddriver_2escm",(void*)f5684}, {"f5696:batch_2ddriver_2escm",(void*)f5696}, {"f_4548:batch_2ddriver_2escm",(void*)f_4548}, {"f_4545:batch_2ddriver_2escm",(void*)f_4545}, {"f_1875:batch_2ddriver_2escm",(void*)f_1875}, {"f_4542:batch_2ddriver_2escm",(void*)f_4542}, {"f_1868:batch_2ddriver_2escm",(void*)f_1868}, {"f_1866:batch_2ddriver_2escm",(void*)f_1866}, {"f_4530:batch_2ddriver_2escm",(void*)f_4530}, {"f_3612:batch_2ddriver_2escm",(void*)f_3612}, {"f5243:batch_2ddriver_2escm",(void*)f5243}, {"f_1890:batch_2ddriver_2escm",(void*)f_1890}, {"f_1895:batch_2ddriver_2escm",(void*)f_1895}, {"f_2037:batch_2ddriver_2escm",(void*)f_2037}, {"f_2031:batch_2ddriver_2escm",(void*)f_2031}, {"f_1887:batch_2ddriver_2escm",(void*)f_1887}, {"f_2694:batch_2ddriver_2escm",(void*)f_2694}, {"f_2691:batch_2ddriver_2escm",(void*)f_2691}, {"f_1881:batch_2ddriver_2escm",(void*)f_1881}, {"f_1884:batch_2ddriver_2escm",(void*)f_1884}, {"f_2698:batch_2ddriver_2escm",(void*)f_2698}, {"f_2089:batch_2ddriver_2escm",(void*)f_2089}, {"f_2086:batch_2ddriver_2escm",(void*)f_2086}, {"f_2057:batch_2ddriver_2escm",(void*)f_2057}, {"f_2053:batch_2ddriver_2escm",(void*)f_2053}, {"f_4505:batch_2ddriver_2escm",(void*)f_4505}, {"f_4573:batch_2ddriver_2escm",(void*)f_4573}, {"f_4503:batch_2ddriver_2escm",(void*)f_4503}, {"f_2076:batch_2ddriver_2escm",(void*)f_2076}, {"f_2074:batch_2ddriver_2escm",(void*)f_2074}, {"f_4635:batch_2ddriver_2escm",(void*)f_4635}, {"f_2652:batch_2ddriver_2escm",(void*)f_2652}, {"f_2655:batch_2ddriver_2escm",(void*)f_2655}, {"f_2658:batch_2ddriver_2escm",(void*)f_2658}, {"f_2972:batch_2ddriver_2escm",(void*)f_2972}, {"f_4629:batch_2ddriver_2escm",(void*)f_4629}, {"f_4622:batch_2ddriver_2escm",(void*)f_4622}, {"f_2661:batch_2ddriver_2escm",(void*)f_2661}, {"f_2667:batch_2ddriver_2escm",(void*)f_2667}, {"f_2095:batch_2ddriver_2escm",(void*)f_2095}, {"f_2092:batch_2ddriver_2escm",(void*)f_2092}, {"f_4616:batch_2ddriver_2escm",(void*)f_4616}, {"f_2673:batch_2ddriver_2escm",(void*)f_2673}, {"f_2670:batch_2ddriver_2escm",(void*)f_2670}, {"f_2676:batch_2ddriver_2escm",(void*)f_2676}, {"f_2679:batch_2ddriver_2escm",(void*)f_2679}, {"f_2066:batch_2ddriver_2escm",(void*)f_2066}, {"f_3044:batch_2ddriver_2escm",(void*)f_3044}, {"f_3048:batch_2ddriver_2escm",(void*)f_3048}, {"f_4609:batch_2ddriver_2escm",(void*)f_4609}, {"f_4606:batch_2ddriver_2escm",(void*)f_4606}, {"f_2684:batch_2ddriver_2escm",(void*)f_2684}, {"f_2960:batch_2ddriver_2escm",(void*)f_2960}, {"f_2963:batch_2ddriver_2escm",(void*)f_2963}, {"f_3768:batch_2ddriver_2escm",(void*)f_3768}, {"f_2688:batch_2ddriver_2escm",(void*)f_2688}, {"f_2966:batch_2ddriver_2escm",(void*)f_2966}, {"f_3054:batch_2ddriver_2escm",(void*)f_3054}, {"f_2737:batch_2ddriver_2escm",(void*)f_2737}, {"f_3059:batch_2ddriver_2escm",(void*)f_3059}, {"f_2734:batch_2ddriver_2escm",(void*)f_2734}, {"f_2730:batch_2ddriver_2escm",(void*)f_2730}, {"f_3051:batch_2ddriver_2escm",(void*)f_3051}, {"f_2507:batch_2ddriver_2escm",(void*)f_2507}, {"f_2701:batch_2ddriver_2escm",(void*)f_2701}, {"f_2704:batch_2ddriver_2escm",(void*)f_2704}, {"f_2942:batch_2ddriver_2escm",(void*)f_2942}, {"f_2945:batch_2ddriver_2escm",(void*)f_2945}, {"f_1853:batch_2ddriver_2escm",(void*)f_1853}, {"f_2948:batch_2ddriver_2escm",(void*)f_2948}, {"f_3743:batch_2ddriver_2escm",(void*)f_3743}, {"f_2718:batch_2ddriver_2escm",(void*)f_2718}, {"f_2713:batch_2ddriver_2escm",(void*)f_2713}, {"f_2710:batch_2ddriver_2escm",(void*)f_2710}, {"f_1990:batch_2ddriver_2escm",(void*)f_1990}, {"f_1844:batch_2ddriver_2escm",(void*)f_1844}, {"f_1846:batch_2ddriver_2escm",(void*)f_1846}, {"f_1841:batch_2ddriver_2escm",(void*)f_1841}, {"f_2640:batch_2ddriver_2escm",(void*)f_2640}, {"f_2643:batch_2ddriver_2escm",(void*)f_2643}, {"f_2646:batch_2ddriver_2escm",(void*)f_2646}, {"f_2649:batch_2ddriver_2escm",(void*)f_2649}, {"f_2339:batch_2ddriver_2escm",(void*)f_2339}, {"f_2333:batch_2ddriver_2escm",(void*)f_2333}, {"f_2330:batch_2ddriver_2escm",(void*)f_2330}, {"f_3068:batch_2ddriver_2escm",(void*)f_3068}, {"f_2349:batch_2ddriver_2escm",(void*)f_2349}, {"f_3065:batch_2ddriver_2escm",(void*)f_3065}, {"f_3062:batch_2ddriver_2escm",(void*)f_3062}, {"f_2045:batch_2ddriver_2escm",(void*)f_2045}, {"f_2346:batch_2ddriver_2escm",(void*)f_2346}, {"f_2342:batch_2ddriver_2escm",(void*)f_2342}, {"f_1819:batch_2ddriver_2escm",(void*)f_1819}, {"f_3077:batch_2ddriver_2escm",(void*)f_3077}, {"f_3074:batch_2ddriver_2escm",(void*)f_3074}, {"f_3071:batch_2ddriver_2escm",(void*)f_3071}, {"f_2318:batch_2ddriver_2escm",(void*)f_2318}, {"f_2313:batch_2ddriver_2escm",(void*)f_2313}, {"f_4392:batch_2ddriver_2escm",(void*)f_4392}, {"f_4865:batch_2ddriver_2escm",(void*)f_4865}, {"f5716:batch_2ddriver_2escm",(void*)f5716}, {"f_1801:batch_2ddriver_2escm",(void*)f_1801}, {"f_2327:batch_2ddriver_2escm",(void*)f_2327}, {"f_2321:batch_2ddriver_2escm",(void*)f_2321}, {"f_2324:batch_2ddriver_2escm",(void*)f_2324}, {"f_2606:batch_2ddriver_2escm",(void*)f_2606}, {"f_2603:batch_2ddriver_2escm",(void*)f_2603}, {"f_2600:batch_2ddriver_2escm",(void*)f_2600}, {"f_4851:batch_2ddriver_2escm",(void*)f_4851}, {"f5722:batch_2ddriver_2escm",(void*)f5722}, {"f_2379:batch_2ddriver_2escm",(void*)f_2379}, {"f_2376:batch_2ddriver_2escm",(void*)f_2376}, {"f_2370:batch_2ddriver_2escm",(void*)f_2370}, {"f_2373:batch_2ddriver_2escm",(void*)f_2373}, {"f_4028:batch_2ddriver_2escm",(void*)f_4028}, {"f_4843:batch_2ddriver_2escm",(void*)f_4843}, {"f_4847:batch_2ddriver_2escm",(void*)f_4847}, {"f_3913:batch_2ddriver_2escm",(void*)f_3913}, {"f_3911:batch_2ddriver_2escm",(void*)f_3911}, {"f_2389:batch_2ddriver_2escm",(void*)f_2389}, {"f_2386:batch_2ddriver_2escm",(void*)f_2386}, {"f_3029:batch_2ddriver_2escm",(void*)f_3029}, {"f_3020:batch_2ddriver_2escm",(void*)f_3020}, {"f_4379:batch_2ddriver_2escm",(void*)f_4379}, {"f_3015:batch_2ddriver_2escm",(void*)f_3015}, {"f_3035:batch_2ddriver_2escm",(void*)f_3035}, {"f_2358:batch_2ddriver_2escm",(void*)f_2358}, {"f_2352:batch_2ddriver_2escm",(void*)f_2352}, {"f_2355:batch_2ddriver_2escm",(void*)f_2355}, {"f_2870:batch_2ddriver_2escm",(void*)f_2870}, {"f_2873:batch_2ddriver_2escm",(void*)f_2873}, {"f_2876:batch_2ddriver_2escm",(void*)f_2876}, {"f_2879:batch_2ddriver_2escm",(void*)f_2879}, {"f_4369:batch_2ddriver_2escm",(void*)f_4369}, {"f5794:batch_2ddriver_2escm",(void*)f5794}, {"f_3086:batch_2ddriver_2escm",(void*)f_3086}, {"f_2367:batch_2ddriver_2escm",(void*)f_2367}, {"f_3080:batch_2ddriver_2escm",(void*)f_3080}, {"f_2361:batch_2ddriver_2escm",(void*)f_2361}, {"f_4344:batch_2ddriver_2escm",(void*)f_4344}, {"f_2364:batch_2ddriver_2escm",(void*)f_2364}, {"f_2843:batch_2ddriver_2escm",(void*)f_2843}, {"f_2840:batch_2ddriver_2escm",(void*)f_2840}, {"f_2846:batch_2ddriver_2escm",(void*)f_2846}, {"f_2849:batch_2ddriver_2escm",(void*)f_2849}, {"f_4890:batch_2ddriver_2escm",(void*)f_4890}, {"f_4061:batch_2ddriver_2escm",(void*)f_4061}, {"f_3096:batch_2ddriver_2escm",(void*)f_3096}, {"f_3597:batch_2ddriver_2escm",(void*)f_3597}, {"f_4067:batch_2ddriver_2escm",(void*)f_4067}, {"f_2863:batch_2ddriver_2escm",(void*)f_2863}, {"f_2867:batch_2ddriver_2escm",(void*)f_2867}, {"f_4043:batch_2ddriver_2escm",(void*)f_4043}, {"f_2398:batch_2ddriver_2escm",(void*)f_2398}, {"f_4325:batch_2ddriver_2escm",(void*)f_4325}, {"f_2010:batch_2ddriver_2escm",(void*)f_2010}, {"f_4035:batch_2ddriver_2escm",(void*)f_4035}, {"f_4729:batch_2ddriver_2escm",(void*)f_4729}, {"f_4302:batch_2ddriver_2escm",(void*)f_4302}, {"f_2885:batch_2ddriver_2escm",(void*)f_2885}, {"f_2882:batch_2ddriver_2escm",(void*)f_2882}, {"f_2888:batch_2ddriver_2escm",(void*)f_2888}, {"f_1838:batch_2ddriver_2escm",(void*)f_1838}, {"f_1835:batch_2ddriver_2escm",(void*)f_1835}, {"f_2852:batch_2ddriver_2escm",(void*)f_2852}, {"f_2857:batch_2ddriver_2escm",(void*)f_2857}, {"f_1823:batch_2ddriver_2escm",(void*)f_1823}, {"f_3564:batch_2ddriver_2escm",(void*)f_3564}, {"f_3568:batch_2ddriver_2escm",(void*)f_3568}, {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| sprintf 1 S| for-each 11 S| printf 4 S| map 16 o|eliminated procedure checks: 131 o|specializations: o| 1 (current-output-port) o| 2 (string=? string string) o| 1 (string-append string string) o| 5 (cdr pair) o| 4 (eqv? (not float) *) o| 1 (< fixnum fixnum) o| 5 (##sys#check-output-port * * *) o| 8 (##sys#check-list (or pair list) *) o| 66 (memq * list) o| 2 (car pair) (o e)|safe calls: 353 (o e)|assignments to immediate values: 5 o|Removed `not' forms: 5 o|inlining procedure: k1716 o|inlining procedure: k1716 o|substituted constant variable: a1747 o|substituted constant variable: a1750 o|substituted constant variable: a1755 o|substituted constant variable: a1757 o|substituted constant variable: a1771 o|substituted constant variable: a1776 o|substituted constant variable: a1781 o|substituted constant variable: a1783 o|substituted constant variable: a1785 o|substituted constant variable: a1787 o|substituted constant variable: a1789 o|substituted constant variable: a1791 o|substituted constant variable: a1793 o|substituted constant variable: a1795 o|substituted constant variable: a1797 o|merged explicitly consed rest parameter: args127 o|propagated global variable: out131135 ##sys#standard-output o|substituted constant variable: a1831 o|substituted constant variable: a1832 o|inlining procedure: k1824 o|propagated global variable: out131135 ##sys#standard-output o|inlining procedure: k1824 o|inlining procedure: k1848 o|inlining procedure: k1848 o|propagated global variable: out149153 ##sys#standard-output o|substituted constant variable: a1877 o|substituted constant variable: a1878 o|inlining procedure: k1870 o|propagated global variable: out149153 ##sys#standard-output o|inlining procedure: k1870 o|inlining procedure: k1897 o|inlining procedure: k1920 o|contracted procedure: "(batch-driver.scm:130) g165172" o|inlining procedure: k1920 o|inlining procedure: k1897 o|inlining procedure: k1952 o|inlining procedure: k1952 o|inlining procedure: k1967 o|folded constant expression: (* (quote 1024) (quote 1024)) o|inlining procedure: k1967 o|substituted constant variable: a2018 o|substituted constant variable: a2020 o|substituted constant variable: a2025 o|substituted constant variable: a2027 o|substituted constant variable: a2029 o|inlining procedure: k2042 o|inlining procedure: k2042 o|inlining procedure: k2068 o|inlining procedure: "(batch-driver.scm:153) cputime115" o|inlining procedure: k2068 o|propagated global variable: out213217 ##sys#standard-output o|substituted constant variable: a2082 o|substituted constant variable: a2083 o|inlining procedure: k2078 o|inlining procedure: "(batch-driver.scm:159) cputime115" o|propagated global variable: out213217 ##sys#standard-output o|inlining procedure: k2078 o|merged explicitly consed rest parameter: args225 o|inlining procedure: k2123 o|propagated global variable: g249250 ##compiler#get o|propagated global variable: g263264 ##compiler#put! o|inlining procedure: k2123 o|inlining procedure: k2151 o|inlining procedure: k2151 o|substituted constant variable: a2190 o|substituted constant variable: a2304 o|substituted constant variable: a2309 o|substituted constant variable: a2314 o|substituted constant variable: a2441 o|substituted constant variable: a2465 o|inlining procedure: k2462 o|inlining procedure: k2462 o|substituted constant variable: a2476 o|substituted constant variable: a2487 o|inlining procedure: k2484 o|inlining procedure: k2484 o|contracted procedure: k2502 o|inlining procedure: k2705 o|inlining procedure: k2720 o|inlining procedure: k2720 o|inlining procedure: k2738 o|inlining procedure: k2738 o|contracted procedure: k2767 o|propagated global variable: r2768 ##compiler#inline-substitutions-enabled o|inlining procedure: k2764 o|consed rest parameter at call site: "(batch-driver.scm:638) analyze125" 3 o|inlining procedure: k2764 o|contracted procedure: k2816 o|inlining procedure: k2705 o|consed rest parameter at call site: "(batch-driver.scm:693) dribble116" 2 o|consed rest parameter at call site: "(batch-driver.scm:684) dribble116" 2 o|inlining procedure: "(batch-driver.scm:672) cputime115" o|consed rest parameter at call site: "(batch-driver.scm:664) dribble116" 2 o|inlining procedure: k2967 o|consed rest parameter at call site: "(batch-driver.scm:608) dribble116" 2 o|inlining procedure: k2967 o|consed rest parameter at call site: "(batch-driver.scm:598) analyze125" 3 o|contracted procedure: "(batch-driver.scm:582) g11261127" o|inlining procedure: k3078 o|inlining procedure: k3078 o|consed rest parameter at call site: "(batch-driver.scm:566) analyze125" 3 o|inlining procedure: k3088 o|contracted procedure: "(batch-driver.scm:560) g10951102" o|inlining procedure: k3088 o|inlining procedure: k3111 o|contracted procedure: "(batch-driver.scm:555) g10741081" o|inlining procedure: k3021 o|inlining procedure: k3021 o|inlining procedure: k3111 o|substituted constant variable: a3131 o|inlining procedure: k3133 o|inlining procedure: k3133 o|consed rest parameter at call site: "(batch-driver.scm:546) dribble116" 2 o|inlining procedure: k3163 o|inlining procedure: k3163 o|inlining procedure: k3188 o|consed rest parameter at call site: "(batch-driver.scm:538) dribble116" 2 o|inlining procedure: k3188 o|inlining procedure: k3217 o|inlining procedure: k3217 o|inlining procedure: k3253 o|inlining procedure: k3253 o|contracted procedure: "(batch-driver.scm:518) g994995" o|inlining procedure: k3322 o|inlining procedure: k3322 o|consed rest parameter at call site: "(batch-driver.scm:512) dribble116" 2 o|substituted constant variable: a3353 o|substituted constant variable: a3369 o|substituted constant variable: a3370 o|inlining procedure: k3442 o|contracted procedure: "(batch-driver.scm:489) g922929" o|propagated global variable: out932936 ##sys#standard-output o|substituted constant variable: a3410 o|substituted constant variable: a3411 o|propagated global variable: out932936 ##sys#standard-output o|inlining procedure: k3442 o|propagated global variable: g928930 ##compiler#compiler-syntax-statistics o|inlining procedure: k3494 o|contracted procedure: "(batch-driver.scm:481) g900909" o|inlining procedure: k3494 o|propagated global variable: g906910 ##compiler#import-libraries o|contracted procedure: k3605 o|propagated global variable: r3606 ##compiler#unit-name o|inlining procedure: k3602 o|inlining procedure: k3602 o|inlining procedure: k3614 o|contracted procedure: "(batch-driver.scm:465) g869878" o|inlining procedure: k3614 o|propagated global variable: g875879 ##compiler#profile-lambda-list o|contracted procedure: k3668 o|propagated global variable: r3669 ##compiler#unit-name o|inlining procedure: k3665 o|inlining procedure: k3665 o|inlining procedure: k3677 o|contracted procedure: "(batch-driver.scm:457) g832841" o|inlining procedure: k3677 o|propagated global variable: g838842 ##compiler#used-units o|inlining procedure: k3711 o|contracted procedure: "(batch-driver.scm:456) g802811" o|inlining procedure: k3711 o|propagated global variable: g808812 ##compiler#immutable-constants o|inlining procedure: k3745 o|inlining procedure: k3745 o|inlining procedure: k3834 o|inlining procedure: k3834 o|consed rest parameter at call site: "(batch-driver.scm:436) dribble116" 2 o|consed rest parameter at call site: "(batch-driver.scm:413) dribble116" 2 o|inlining procedure: k3878 o|inlining procedure: k3915 o|inlining procedure: k3915 o|inlining procedure: k3949 o|inlining procedure: k3949 o|inlining procedure: k3878 o|inlining procedure: k4011 o|inlining procedure: k4011 o|inlining procedure: "(batch-driver.scm:400) cputime115" o|consed rest parameter at call site: "(batch-driver.scm:394) dribble116" 2 o|substituted constant variable: a4044 o|inlining procedure: k4046 o|substituted constant variable: a4049 o|inlining procedure: k4046 o|substituted constant variable: a4054 o|consed rest parameter at call site: "(batch-driver.scm:373) dribble116" 2 o|inlining procedure: k4072 o|consed rest parameter at call site: "(batch-driver.scm:373) dribble116" 2 o|inlining procedure: k4072 o|consed rest parameter at call site: "(batch-driver.scm:373) dribble116" 2 o|inlining procedure: k4076 o|inlining procedure: k4076 o|consed rest parameter at call site: "(batch-driver.scm:355) dribble116" 2 o|inlining procedure: k4093 o|consed rest parameter at call site: "(batch-driver.scm:355) dribble116" 2 o|inlining procedure: k4093 o|consed rest parameter at call site: "(batch-driver.scm:355) dribble116" 2 o|substituted constant variable: a4096 o|substituted constant variable: a4108 o|substituted constant variable: a4124 o|inlining procedure: k4156 o|contracted procedure: "(batch-driver.scm:335) g590599" o|inlining procedure: k4156 o|inlining procedure: k4190 o|contracted procedure: "(batch-driver.scm:321) g566573" o|inlining procedure: k4190 o|consed rest parameter at call site: "(batch-driver.scm:320) dribble116" 2 o|inlining procedure: k4213 o|inlining procedure: k4213 o|propagated global variable: g555556 string-split o|inlining procedure: k4246 o|inlining procedure: k4246 o|propagated global variable: g530531 string-split o|substituted constant variable: a4282 o|inlining procedure: k4371 o|contracted procedure: "(batch-driver.scm:302) g467474" o|contracted procedure: "(batch-driver.scm:305) g491492" o|contracted procedure: "(batch-driver.scm:304) g477478" o|inlining procedure: k4371 o|propagated global variable: g473475 ##compiler#default-extended-bindings o|inlining procedure: k4394 o|contracted procedure: "(batch-driver.scm:297) g420427" o|contracted procedure: "(batch-driver.scm:300) g444445" o|contracted procedure: "(batch-driver.scm:299) g430431" o|inlining procedure: k4394 o|propagated global variable: g426428 ##compiler#default-standard-bindings o|substituted constant variable: a4414 o|substituted constant variable: a4417 o|substituted constant variable: a4420 o|substituted constant variable: a4423 o|substituted constant variable: a4426 o|inlining procedure: k4444 o|inlining procedure: k4444 o|inlining procedure: k4485 o|inlining procedure: k4485 o|inlining procedure: k4507 o|inlining procedure: k4507 o|substituted constant variable: a4538 o|consed rest parameter at call site: "(batch-driver.scm:269) dribble116" 2 o|substituted constant variable: a4555 o|consed rest parameter at call site: "(batch-driver.scm:266) dribble116" 2 o|substituted constant variable: a4563 o|consed rest parameter at call site: "(batch-driver.scm:263) dribble116" 2 o|inlining procedure: k4574 o|inlining procedure: k4574 o|substituted constant variable: a4586 o|substituted constant variable: a4594 o|inlining procedure: k4591 o|inlining procedure: k4591 o|substituted constant variable: a4602 o|consed rest parameter at call site: "(batch-driver.scm:253) dribble116" 2 o|inlining procedure: k4620 o|inlining procedure: k4620 o|substituted constant variable: a4636 o|substituted constant variable: a4639 o|substituted constant variable: a4642 o|substituted constant variable: a4645 o|substituted constant variable: a4648 o|substituted constant variable: a4651 o|substituted constant variable: a4654 o|substituted constant variable: a4657 o|substituted constant variable: a4660 o|consed rest parameter at call site: "(batch-driver.scm:227) dribble116" 2 o|substituted constant variable: a4667 o|substituted constant variable: a4672 o|substituted constant variable: a4676 o|substituted constant variable: a4679 o|substituted constant variable: a4682 o|substituted constant variable: a4685 o|substituted constant variable: a4690 o|substituted constant variable: a4695 o|substituted constant variable: a4700 o|substituted constant variable: a4717 o|substituted constant variable: a4723 o|inlining procedure: k4719 o|inlining procedure: k4719 o|inlining procedure: k4731 o|contracted procedure: "(batch-driver.scm:190) g314323" o|substituted constant variable: a2221 o|inlining procedure: k4731 o|inlining procedure: k4795 o|contracted procedure: "(batch-driver.scm:181) g286295" o|inlining procedure: k4795 o|substituted constant variable: a4830 o|propagated global variable: tmp273275 ##compiler#unit-name o|inlining procedure: k4836 o|propagated global variable: tmp273275 ##compiler#unit-name o|inlining procedure: k4836 o|substituted constant variable: a4852 o|substituted constant variable: a4857 o|inlining procedure: k4859 o|inlining procedure: k4859 o|substituted constant variable: a4862 o|inlining procedure: k4867 o|inlining procedure: k4867 o|inlining procedure: k4902 o|inlining procedure: k4902 o|inlining procedure: k4910 o|inlining procedure: k4910 o|substituted constant variable: a4925 o|inlining procedure: k4922 o|inlining procedure: k4922 o|inlining procedure: k4931 o|inlining procedure: k4931 o|inlining procedure: k4950 o|inlining procedure: k4950 o|replaced variables: 410 o|removed binding forms: 395 o|Removed `not' forms: 2 o|removed side-effect free assignment to unused variable: cputime115 o|propagated global variable: out131135 ##sys#standard-output o|substituted constant variable: r18254962 o|substituted constant variable: r18254963 o|propagated global variable: out149153 ##sys#standard-output o|contracted procedure: k1984 o|substituted constant variable: r20434977 o|propagated global variable: out213217 ##sys#standard-output o|substituted constant variable: r31895031 o|substituted constant variable: c996 o|substituted constant variable: p997 o|propagated global variable: out932936 ##sys#standard-output o|substituted constant variable: r36035042 o|contracted procedure: k3602 o|substituted constant variable: r36665046 o|substituted constant variable: r36665046 o|inlining procedure: k3665 o|inlining procedure: k3665 o|substituted constant variable: r40735072 o|substituted constant variable: r40735072 o|substituted constant variable: r40735074 o|substituted constant variable: r40735074 o|substituted constant variable: r40775076 o|substituted constant variable: r40775076 o|substituted constant variable: r40775078 o|substituted constant variable: r40775078 o|substituted constant variable: r40945080 o|substituted constant variable: r40945080 o|substituted constant variable: r40945082 o|substituted constant variable: r40945082 o|substituted constant variable: tmp496499 o|substituted constant variable: mark498 o|substituted constant variable: tmp482485 o|substituted constant variable: mark484 o|substituted constant variable: tmp449452 o|substituted constant variable: mark451 o|substituted constant variable: tmp435438 o|substituted constant variable: mark437 o|substituted constant variable: r44865099 o|contracted procedure: k4719 o|substituted constant variable: r47205112 o|propagated global variable: r48375118 ##compiler#unit-name o|substituted constant variable: r49035128 o|substituted constant variable: r49035128 o|substituted constant variable: r49235132 o|substituted constant variable: r49325136 o|substituted constant variable: r49325136 o|substituted constant variable: r49515138 o|substituted constant variable: r49515138 o|converted assignments to bindings: (option-arg30) o|simplifications: ((let . 1)) o|replaced variables: 16 o|removed binding forms: 524 o|removed conditional forms: 2 o|substituted constant variable: r1985 o|inlining procedure: k2886 o|inlining procedure: k2914 o|inlining procedure: k3599 o|inlining procedure: k3599 o|inlining procedure: k3599 o|substituted constant variable: r36665182 o|inlining procedure: k4079 o|inlining procedure: k4347 o|inlining procedure: k4330 o|inlining procedure: k4305 o|inlining procedure: k4288 o|inlining procedure: k4479 o|inlining procedure: k4479 o|replaced variables: 15 o|removed binding forms: 61 o|Removed `not' forms: 1 o|substituted constant variable: r29155245 o|substituted constant variable: r36005264 o|substituted constant variable: r36005265 o|contracted procedure: k4079 o|substituted constant variable: r40805285 o|substituted constant variable: r43485294 o|substituted constant variable: r43315295 o|substituted constant variable: r43065298 o|substituted constant variable: r42895299 o|substituted constant variable: r44805304 o|substituted constant variable: r44805305 o|replaced variables: 4 o|removed binding forms: 20 o|removed conditional forms: 4 o|replaced variables: 4 o|removed binding forms: 14 o|removed binding forms: 2 o|simplifications: ((if . 10) (##core#call . 282)) o| call simplifications: o| string->list o| string o| string=? 2 o| not 2 o| eof-object? o| ##sys#cons 7 o| length o| ##sys#list 20 o| list 2 o| ##sys#make-structure o| ##sys#setslot 16 o| first o| > o| ##sys#call-with-values 2 o| add1 5 o| car 11 o| inexact->exact o| cddr o| cons 38 o| string-length o| - 3 o| fx< o| string-ref o| eq? 5 o| * 2 o| string->number 5 o| ##sys#check-list 19 o| pair? 28 o| ##sys#slot 71 o| memq 13 o| apply o| cdr 3 o| null? 11 o| cadr 2 o| symbol? 2 o|contracted procedure: k1740 o|contracted procedure: k1719 o|contracted procedure: k1727 o|contracted procedure: k1733 o|contracted procedure: k4938 o|contracted procedure: k1752 o|contracted procedure: k1762 o|contracted procedure: k1778 o|contracted procedure: k1827 o|contracted procedure: k1911 o|contracted procedure: k1923 o|contracted procedure: k1933 o|contracted procedure: k1937 o|contracted procedure: k1943 o|contracted procedure: k1946 o|contracted procedure: k1958 o|inlining procedure: k1949 o|contracted procedure: k1964 o|contracted procedure: k1970 o|contracted procedure: k1973 o|contracted procedure: k1980 o|inlining procedure: k1949 o|contracted procedure: k1994 o|contracted procedure: k1997 o|contracted procedure: k2004 o|inlining procedure: k1949 o|inlining procedure: k1949 o|contracted procedure: k2039 o|contracted procedure: k2059 o|contracted procedure: k2100 o|contracted procedure: k2108 o|contracted procedure: k2154 o|contracted procedure: k2160 o|contracted procedure: k2167 o|contracted procedure: k2173 o|contracted procedure: k2200 o|contracted procedure: k2204 o|contracted procedure: k2225 o|contracted procedure: k2235 o|contracted procedure: k2381 o|contracted procedure: k2399 o|contracted procedure: k2410 o|contracted procedure: k2437 o|contracted procedure: k2571 o|contracted procedure: k2580 o|contracted procedure: k2589 o|contracted procedure: k3289 o|contracted procedure: k2632 o|contracted procedure: k2745 o|contracted procedure: k2751 o|contracted procedure: k2761 o|contracted procedure: k2806 o|contracted procedure: k2813 o|contracted procedure: k2778 o|inlining procedure: "(batch-driver.scm:693) dribble116" o|contracted procedure: k2895 o|inlining procedure: "(batch-driver.scm:693) dribble116" o|inlining procedure: "(batch-driver.scm:684) dribble116" o|contracted procedure: k2924 o|contracted procedure: k2914 o|contracted procedure: k2931 o|inlining procedure: "(batch-driver.scm:664) dribble116" o|contracted procedure: k2952 o|inlining procedure: "(batch-driver.scm:608) dribble116" o|contracted procedure: k2976 o|contracted procedure: k2982 o|contracted procedure: k2988 o|contracted procedure: k3007 o|contracted procedure: k2998 o|contracted procedure: k3010 o|contracted procedure: k3030 o|contracted procedure: k3091 o|contracted procedure: k3101 o|contracted procedure: k3105 o|contracted procedure: k3114 o|contracted procedure: k3124 o|contracted procedure: k3128 o|contracted procedure: k3142 o|inlining procedure: "(batch-driver.scm:546) dribble116" o|contracted procedure: k3154 o|contracted procedure: k3166 o|contracted procedure: k3176 o|contracted procedure: k3180 o|inlining procedure: "(batch-driver.scm:538) dribble116" o|contracted procedure: k3220 o|contracted procedure: k3230 o|contracted procedure: k3234 o|contracted procedure: k3244 o|contracted procedure: k3256 o|contracted procedure: k3278 o|contracted procedure: k3274 o|contracted procedure: k3259 o|contracted procedure: k3262 o|contracted procedure: k3270 o|contracted procedure: k3307 o|contracted procedure: k3310 o|contracted procedure: k3325 o|contracted procedure: k3328 o|contracted procedure: k3331 o|contracted procedure: k3339 o|contracted procedure: k3347 o|inlining procedure: "(batch-driver.scm:512) dribble116" o|contracted procedure: k3358 o|contracted procedure: k3395 o|contracted procedure: k3433 o|contracted procedure: k3445 o|contracted procedure: k3455 o|contracted procedure: k3459 o|contracted procedure: k3430 o|propagated global variable: g928930 ##compiler#compiler-syntax-statistics o|contracted procedure: k3462 o|contracted procedure: k3473 o|contracted procedure: k3485 o|contracted procedure: k3497 o|contracted procedure: k3500 o|contracted procedure: k3503 o|contracted procedure: k3511 o|contracted procedure: k3519 o|contracted procedure: k3482 o|propagated global variable: g906910 ##compiler#import-libraries o|contracted procedure: k3526 o|contracted procedure: k3544 o|contracted procedure: k3551 o|contracted procedure: k3559 o|contracted procedure: k3570 o|contracted procedure: k3592 o|contracted procedure: k3617 o|contracted procedure: k3620 o|contracted procedure: k3623 o|contracted procedure: k3631 o|contracted procedure: k3639 o|contracted procedure: k3589 o|contracted procedure: k3579 o|contracted procedure: k3583 o|propagated global variable: g875879 ##compiler#profile-lambda-list o|contracted procedure: k3657 o|contracted procedure: k3661 o|contracted procedure: k3653 o|contracted procedure: k3649 o|contracted procedure: k3680 o|contracted procedure: k3702 o|contracted procedure: k3698 o|contracted procedure: k3683 o|contracted procedure: k3686 o|contracted procedure: k3694 o|propagated global variable: g838842 ##compiler#used-units o|contracted procedure: k3714 o|contracted procedure: k3717 o|contracted procedure: k3720 o|contracted procedure: k3728 o|contracted procedure: k3736 o|contracted procedure: k3535 o|contracted procedure: k3539 o|propagated global variable: g808812 ##compiler#immutable-constants o|contracted procedure: k3748 o|contracted procedure: k3751 o|contracted procedure: k3754 o|contracted procedure: k3762 o|contracted procedure: k3770 o|contracted procedure: k3796 o|contracted procedure: k3792 o|contracted procedure: k3788 o|contracted procedure: k3784 o|contracted procedure: k3780 o|contracted procedure: k3799 o|contracted procedure: k3815 o|contracted procedure: k3811 o|contracted procedure: k3807 o|contracted procedure: k3822 o|contracted procedure: k3825 o|contracted procedure: k3837 o|contracted procedure: k3840 o|contracted procedure: k3843 o|contracted procedure: k3851 o|contracted procedure: k3859 o|inlining procedure: "(batch-driver.scm:436) dribble116" o|inlining procedure: "(batch-driver.scm:413) dribble116" o|contracted procedure: k3881 o|contracted procedure: k3889 o|contracted procedure: k3892 o|contracted procedure: k3903 o|contracted procedure: k3906 o|contracted procedure: k3918 o|contracted procedure: k3921 o|contracted procedure: k3924 o|contracted procedure: k3932 o|contracted procedure: k3940 o|contracted procedure: k3952 o|contracted procedure: k3955 o|contracted procedure: k3958 o|contracted procedure: k3966 o|contracted procedure: k3974 o|contracted procedure: k3980 o|contracted procedure: k4014 o|contracted procedure: k4021 o|contracted procedure: k4037 o|inlining procedure: "(batch-driver.scm:394) dribble116" o|contracted procedure: k4089 o|contracted procedure: k4056 o|inlining procedure: "(batch-driver.scm:373) dribble116" o|inlining procedure: "(batch-driver.scm:373) dribble116" o|inlining procedure: "(batch-driver.scm:355) dribble116" o|inlining procedure: "(batch-driver.scm:355) dribble116" o|contracted procedure: k4101 o|contracted procedure: k4128 o|contracted procedure: k4147 o|contracted procedure: k4159 o|contracted procedure: k4162 o|contracted procedure: k4165 o|contracted procedure: k4173 o|contracted procedure: k4181 o|contracted procedure: k4137 o|contracted procedure: k4193 o|contracted procedure: k4203 o|contracted procedure: k4207 o|inlining procedure: "(batch-driver.scm:320) dribble116" o|contracted procedure: k4216 o|contracted procedure: k4226 o|contracted procedure: k4230 o|contracted procedure: k4249 o|contracted procedure: k4259 o|contracted procedure: k4263 o|contracted procedure: k4276 o|contracted procedure: k4320 o|contracted procedure: k4362 o|contracted procedure: k4374 o|contracted procedure: k4384 o|contracted procedure: k4388 o|contracted procedure: k4353 o|contracted procedure: k4347 o|contracted procedure: k4336 o|contracted procedure: k4330 o|propagated global variable: g473475 ##compiler#default-extended-bindings o|contracted procedure: k4397 o|contracted procedure: k4407 o|contracted procedure: k4411 o|contracted procedure: k4311 o|contracted procedure: k4305 o|contracted procedure: k4294 o|contracted procedure: k4288 o|propagated global variable: g426428 ##compiler#default-standard-bindings o|contracted procedure: k4432 o|contracted procedure: k4447 o|contracted procedure: k4450 o|contracted procedure: k4453 o|contracted procedure: k4461 o|contracted procedure: k4469 o|contracted procedure: k4479 o|contracted procedure: k4492 o|contracted procedure: k4498 o|contracted procedure: k4510 o|contracted procedure: k4513 o|contracted procedure: k4516 o|contracted procedure: k4524 o|contracted procedure: k4532 o|inlining procedure: "(batch-driver.scm:269) dribble116" o|inlining procedure: "(batch-driver.scm:266) dribble116" o|inlining procedure: "(batch-driver.scm:263) dribble116" o|contracted procedure: k4577 o|inlining procedure: "(batch-driver.scm:253) dribble116" o|contracted procedure: k4617 o|inlining procedure: "(batch-driver.scm:227) dribble116" o|contracted procedure: k4705 o|contracted procedure: k4709 o|contracted procedure: k4734 o|contracted procedure: k4737 o|contracted procedure: k4740 o|contracted procedure: k4748 o|contracted procedure: k4756 o|contracted procedure: k4762 o|contracted procedure: k4774 o|contracted procedure: k4798 o|contracted procedure: k4801 o|contracted procedure: k4804 o|contracted procedure: k4812 o|contracted procedure: k4820 o|contracted procedure: k4783 o|contracted procedure: k4870 o|contracted procedure: k4873 o|contracted procedure: k4876 o|contracted procedure: k4884 o|contracted procedure: k4892 o|contracted procedure: k4913 o|contracted procedure: k4946 o|contracted procedure: k4957 o|contracted procedure: k4950 o|simplifications: ((let . 57)) o|removed binding forms: 254 o|removed side-effect free assignment to unused variable: dribble116 o|substituted constant variable: fstr1265637 o|substituted constant variable: args1275638 o|substituted constant variable: fstr1265643 o|substituted constant variable: args1275644 o|substituted constant variable: fstr1265649 o|substituted constant variable: fstr1265655 o|substituted constant variable: fstr1265661 o|contracted procedure: "(batch-driver.scm:544) g10511058" o|substituted constant variable: fstr1265673 o|contracted procedure: "(batch-driver.scm:532) g10301037" o|substituted constant variable: fstr1265681 o|substituted constant variable: fstr1265693 o|substituted constant variable: args1275694 o|substituted constant variable: fstr1265713 o|substituted constant variable: args1275714 o|substituted constant variable: fstr1265719 o|substituted constant variable: args1275720 o|substituted constant variable: fstr1265733 o|substituted constant variable: fstr1265739 o|substituted constant variable: fstr1265745 o|substituted constant variable: fstr1265751 o|substituted constant variable: fstr1265757 o|substituted constant variable: fstr1265767 o|substituted constant variable: args1275768 o|substituted constant variable: fstr1265785 o|substituted constant variable: args1275786 o|substituted constant variable: fstr1265791 o|substituted constant variable: args1275792 o|substituted constant variable: fstr1265797 o|substituted constant variable: args1275798 o|substituted constant variable: fstr1265803 o|substituted constant variable: args1275804 o|substituted constant variable: fstr1265809 o|substituted constant variable: args1275810 o|replaced variables: 115 o|removed binding forms: 3 o|replaced variables: 1 o|removed binding forms: 94 o|contracted procedure: k3635 o|contracted procedure: k3732 o|removed binding forms: 3 o|customizable procedures: (g7273 map-loop7898 k1773 k1799 k2180 k2183 map-loop280298 map-loop308326 k2231 k2238 k2244 k2256 k2259 k2262 k2265 k2268 k2271 k2274 k2277 k2280 k2283 k2286 k2289 k2292 k2295 k2298 k2301 k2306 k2311 k2316 map-loop364381 map-loop393410 k2347 k2350 k2353 k2356 k2359 for-each-loop419459 for-each-loop466506 for-each-loop514532 for-each-loop539557 for-each-loop565576 map-loop584605 k2425 arg-val121 k2450 k2478 loop716 doloop651652 map-loop656673 map-loop682699 map-loop731748 k2559 k2568 k2577 map-loop763784 map-loop796817 map-loop826847 k3566 map-loop863884 map-loop894912 for-each-loop921942 print-expr120 map-loop965982 map-loop10031020 for-each-loop10291042 for-each-loop10501062 collect-options122 for-each-loop10731087 for-each-loop10941105 k2659 print-db119 print-node118 analyze125 begin-time123 end-time124 loop1130 def-no230268 def-contf231266 body228236 g208209 option-arg30 loop200 for-each-loop164176 print-header117) o|calls to known targets: 277 o|identified direct recursive calls: f_3251 1 o|identified direct recursive calls: f_3612 1 o|identified direct recursive calls: f_3675 1 o|identified direct recursive calls: f_3709 1 o|fast box initializations: 40 o|dropping unused closure argument: f_1714 o|dropping unused closure argument: f_1941 o|dropping unused closure argument: f_1819 */ /* end of file */ chicken-4.12.0/chicken-uninstall.10000644000175000017500000000270313052302315016501 0ustar sjamaansjamaan.\" dummy line .TH CHICKEN-UNINSTALL 1 "13 Aug 2008" .SH NAME chicken-uninstall \- uninstall extension library .SH SYNOPSIS chicken-uninstall [OPTION | PATTERN] ... .SH DESCRIPTION .I chicken\-uninstall removes one or more already installed extension libraries for the CHICKEN Scheme system. .B PATTERN may be a regular expression naming multiple extensions or just an extension name. .SH OPTIONS Enter .B chicken-uninstall\ \-help for a list of supported command-line options. .SH ENVIRONMENT\ VARIABLES .TP .B CHICKEN_PREFIX The installation prefix where CHICKEN Scheme and its support files and libraries are located. Defaults to the installation time prefix given when configuring the system. .TP .B CHICKEN_INSTALL_PREFIX An alternative installation prefix that will be prepended to extension installation paths if specified. .TP .B CHICKEN_REPOSITORY The path where extension libraries are installed. Defaults to the package-library path selected during configuration (usually .B $prefix/lib/chicken/ ) .TP .B SUDO The command to execute when using \-s flag in command. If not provided, defaults to the sudo(1). .SH DOCUMENTATION More information can be found in the .I CHICKEN\ User's\ Manual .SH BUGS Submit bug reports by e-mail to .I chicken-janitors@nongnu.org , preferrably using the .B chicken\-bug tool. .SH AUTHORS The CHICKEN Team .SH SEE ALSO .BR chicken-install(1) .BR chicken-status(1) .BR chicken(1) .BR chicken-bug(1) chicken-4.12.0/csi.scm0000644000175000017500000011137413052306173014301 0ustar sjamaansjamaan;;;; csi.scm - Interpreter stub for CHICKEN ; ; Copyright (c) 2008-2017, 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 ports extras) (usual-integrations) (disable-interrupts) (compile-syntax) (foreign-declare #< #if defined(HAVE_DIRECT_H) # include #else # define _getcwd(buf, len) NULL #endif EOF ) ) (include "banner") (declare (always-bound ##sys#windows-platform) (hide parse-option-string bytevector-data member* canonicalize-args describer-table dirseparator? circular-list? improper-pairs? show-frameinfo selected-frame select-frame copy-from-frame findall command-table default-editor csi-eval print-usage print-banner run hexdump chop-separator lookup-script-file report describe dump tty-input? history-list history-count history-add history-ref history-clear history-show) ) ;;; 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 @ #f) (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 (string-split path ";")]) (and (pair? ps) (let ([name2 (string-append (chop-separator (##sys#slot ps 0)) name2)]) (or (addext name2) (loop (##sys#slot ps 1)) ) ) ) ) ) ] ) ) ) ) ) ) ;;; REPL customization: (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) ) ) ) (repl-prompt (let ((sprintf sprintf)) (lambda () (sprintf "#;~A~A> " (let ((m (##sys#current-module))) (if m (sprintf "~a:" (##sys#module-name m)) "")) history-count)))) (define (tty-input?) (or (##sys#fudge 12) (##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)) (set! csi-eval (let ((eval eval) (load-noisily load-noisily) (read read) (read-line read-line) (length length) (display display) (write write) (string-split string-split) (printf printf) (expand expand) (pretty-print pretty-print) (integer? integer?) (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 (##sys#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) (##sys#quit-hook #f)) ((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))) (when (string? name) (set! name (##sys#string->symbol name))) (cond ((not name) (##sys#switch-module #f) (printf "; resetting current module to toplevel~%")) ((not (symbol? name)) (printf "invalid module name `~a'~%" name)) ((##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) (chop chop) (sort sort) (with-output-to-port with-output-to-port) (current-output-port current-output-port) (argv argv) (prefix (or (get-environment-variable "CHICKEN_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)] ) (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 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 (##sys#fudge 3) "(64-bit)" "") (software-type) (software-version) (build-platform) prefix (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 (##sys#fudge 17) " (fixed)" "") (vector-ref minfo 1) (vector-ref minfo 2) (if (= 1 (##sys#fudge 18)) "downward" "upward") (argv)) (##sys#write-char-0 #\newline ##sys#standard-output) (when (##sys#fudge 14) (display "interrupts are enabled\n")) (when (##sys#fudge 15) (display "symbol gc is 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) (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 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) ] [(eq? x (##sys#slot '##sys#arbitrary-unbound-symbol 0)) (fprintf out "unbound value~%") ] [(flonum? x) (fprintf out "inexact number ~S~%" 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)) (let ((q (##sys#qualified-symbol? x))) (fprintf out "~a~asymbol with name ~S~%" (if (##sys#interned-symbol? x) "" "uninterned ") (if q "qualified " "") (if q (##sys#symbol->qualified-string x) (##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) "f32vector"] [(9) "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 ((##sys#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!) (##sys#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 ((write-char write-char) (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! 'script) ; DEPRECATED (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 (string-split (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) (and-let* ((home (get-environment-variable "HOME")) ((not (string=? home "")))) (let ((fn (string-append (chop-separator home) "/" init-file))) (when (file-exists? fn) (load 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) ) (unless quiet (load-verbose #t) (print-banner) ) (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 (##sys#nodups (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) ) (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 (call/cc (lambda (k) (set! ##sys#quit-hook (lambda _ (k #f))) (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 `(##core#require-extension (,(string->symbol (cadr args))) #t)) (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)))) (##sys#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)))) #f) (when (equal? "-ss" scr) (call-with-values (cut main (command-line-arguments)) (lambda results (exit (if (and (pair? results) (fixnum? (car results))) (car results) 0) ) ) ) ) ) ) ) ) ) ) ) ) (run) chicken-4.12.0/eval.c0000644000175000017500000362461613052306214014121 0ustar sjamaansjamaan/* Generated from eval.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:16 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: eval.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file eval.c unit: eval */ #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_rnd_fix() (C_fix(rand())) #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_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_modules_toplevel) C_externimport void C_ccall C_modules_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[424]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,99,104,105,99,107,101,110,45,112,114,101,102,105,120,32,46,32,116,109,112,49,56,54,49,56,55,41,0,0,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,14),40,99,104,105,99,107,101,110,45,104,111,109,101,41,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,104,97,115,104,45,115,121,109,98,111,108,32,115,50,48,50,32,110,50,48,51,41,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,104,97,115,104,45,116,97,98,108,101,45,114,101,102,32,104,116,50,48,55,32,107,101,121,50,48,56,41,0,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,98,117,99,107,101,116,50,50,48,41}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,104,97,115,104,45,116,97,98,108,101,45,115,101,116,33,32,104,116,50,49,52,32,107,101,121,50,49,53,32,118,97,108,50,49,54,41,0,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,63),40,35,35,115,121,115,35,104,97,115,104,45,116,97,98,108,101,45,117,112,100,97,116,101,33,32,104,116,50,50,51,32,107,101,121,50,50,52,32,117,112,100,116,102,117,110,99,50,50,53,32,118,97,108,117,102,117,110,99,50,50,54,41,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,16),40,103,50,52,48,32,98,117,99,107,101,116,50,52,57,41}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,51,57,32,103,50,52,54,50,53,49,41,0,0,0,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,50,51,52,32,105,50,51,54,41}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,104,97,115,104,45,116,97,98,108,101,45,102,111,114,45,101,97,99,104,32,112,50,51,49,32,104,116,50,51,50,41,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,98,117,99,107,101,116,50,54,53,41}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,48),40,35,35,115,121,115,35,104,97,115,104,45,116,97,98,108,101,45,108,111,99,97,116,105,111,110,32,104,116,50,53,57,32,107,101,121,50,54,48,32,97,100,100,112,50,54,49,41}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,28),40,108,111,111,112,32,108,101,110,50,55,52,32,98,107,116,50,55,53,32,115,105,122,101,50,55,54,41,0,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,104,97,115,104,45,116,97,98,108,101,45,115,105,122,101,32,104,116,50,55,50,41,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,12),40,97,51,56,55,50,32,120,50,56,51,41,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,17),40,97,51,56,56,53,32,112,50,56,53,32,105,50,56,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,46),40,35,35,115,121,115,35,101,118,97,108,45,100,101,99,111,114,97,116,111,114,32,112,50,55,57,32,108,108,50,56,48,32,104,50,56,49,32,99,110,116,114,50,56,50,41,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,21),40,102,105,110,100,45,105,100,32,105,100,51,50,57,32,115,101,51,51,48,41,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,21),40,114,101,110,97,109,101,32,118,97,114,51,51,54,32,115,101,51,51,55,41,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,51,55,49,41,0,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,11),40,103,51,54,50,32,112,51,54,52,41,0,0,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,101,110,118,115,51,53,52,32,101,105,51,53,53,41,0,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,27),40,108,111,111,107,117,112,32,118,97,114,48,51,52,56,32,101,51,52,57,32,115,101,51,53,48,41,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,43),40,101,109,105,116,45,116,114,97,99,101,45,105,110,102,111,32,105,110,102,111,51,55,56,32,99,110,116,114,51,55,57,32,101,51,56,48,32,118,51,56,49,41,0,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,15),40,102,95,52,49,48,52,32,46,32,118,51,57,57,41,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,7),40,97,52,49,49,53,41,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,13),40,102,95,52,50,50,50,32,118,52,51,51,41,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,13),40,102,95,52,50,51,55,32,118,52,51,52,41,0,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,13),40,102,95,52,50,53,54,32,118,52,51,53,41,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,13),40,102,95,52,50,55,57,32,118,52,51,54,41,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,13),40,102,95,52,51,48,48,32,118,52,51,55,41,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,15),40,102,95,52,49,53,51,32,46,32,118,52,50,52,41,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,15),40,102,95,52,49,53,56,32,46,32,118,52,50,53,41,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,13),40,102,95,52,49,52,50,32,118,52,50,51,41,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,17),40,97,52,49,50,49,32,105,52,48,48,32,106,52,48,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,15),40,102,95,52,51,50,54,32,46,32,118,52,52,52,41,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,15),40,102,95,52,51,51,52,32,46,32,118,52,52,53,41,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,15),40,102,95,52,51,52,50,32,46,32,118,52,52,54,41,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,15),40,102,95,52,51,53,48,32,46,32,118,52,52,55,41,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,15),40,102,95,52,51,53,50,32,46,32,118,52,52,56,41,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,15),40,102,95,52,51,55,49,32,46,32,118,52,52,57,41,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,15),40,102,95,52,51,55,51,32,46,32,118,52,53,48,41,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,15),40,102,95,52,51,56,52,32,46,32,118,52,54,54,41,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,15),40,102,95,52,52,51,55,32,46,32,118,52,56,51,41,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,15),40,102,95,52,52,52,53,32,46,32,118,52,56,52,41,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,15),40,102,95,52,52,53,51,32,46,32,118,52,56,53,41,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,15),40,102,95,52,52,54,49,32,46,32,118,52,56,54,41,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,15),40,102,95,52,52,54,57,32,46,32,118,52,56,55,41,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,15),40,102,95,52,52,55,55,32,46,32,118,52,56,56,41,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,15),40,102,95,52,52,56,53,32,46,32,118,52,56,57,41,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,15),40,102,95,52,52,56,55,32,46,32,118,52,57,48,41,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,15),40,102,95,52,53,49,54,32,46,32,118,52,57,50,41,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,13),40,102,95,52,53,53,48,32,118,52,57,51,41,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,13),40,102,95,52,53,54,55,32,118,52,57,55,41,0,0,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,13),40,102,95,52,54,53,53,32,118,53,49,49,41,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,13),40,102,95,52,54,56,48,32,118,53,49,57,41,0,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,7),40,97,52,55,50,57,41,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,13),40,102,95,52,56,50,52,32,118,53,51,57,41,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,13),40,102,95,52,56,51,55,32,118,53,52,48,41,0,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,13),40,102,95,52,55,54,52,32,118,53,51,55,41,0,0,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,13),40,102,95,52,55,53,57,32,118,53,51,54,41,0,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,17),40,97,52,55,51,53,32,105,53,50,51,32,106,53,50,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,13),40,102,95,52,57,48,49,32,118,54,48,56,41,0,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,13),40,102,95,52,57,51,56,32,118,54,49,49,41,0,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,13),40,102,95,52,57,57,51,32,118,54,49,54,41,0,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,13),40,102,95,53,48,54,51,32,118,54,50,50,41,0,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,11),40,103,54,51,50,32,120,54,52,51,41,0,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,25),40,100,111,108,111,111,112,54,53,51,32,105,54,53,53,32,118,108,105,115,116,54,53,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,13),40,102,95,53,49,52,49,32,118,54,53,49,41,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,54,50,54,32,103,54,51,56,54,52,53,41,0,0,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,53,55,52,32,103,53,56,54,53,57,50,41,0,0,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,53,52,54,32,103,53,53,56,53,54,53,41,0,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,54,57,52,32,103,55,48,54,55,49,54,41,0,0,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,54,54,55,32,103,54,55,57,54,56,54,41,0,0,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,29),40,109,97,112,45,108,111,111,112,56,52,51,32,103,56,53,53,56,54,56,32,103,56,53,54,56,54,57,41,0,0,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,29),40,109,97,112,45,108,111,111,112,56,49,48,32,103,56,50,50,56,51,50,32,103,56,50,51,56,51,51,41,0,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,55,56,51,32,103,55,57,53,56,48,50,41,0,0,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,55,53,51,32,103,55,54,53,55,55,49,41,0,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,55,50,54,32,103,55,51,56,55,52,52,41,0,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,14),40,97,53,56,49,51,32,46,32,114,57,51,49,41,0,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,13),40,102,95,53,56,48,56,32,118,57,51,48,41,0,0,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,7),40,97,53,56,51,50,41,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,13),40,102,95,53,56,50,55,32,118,57,51,50,41,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,20),40,97,53,56,53,54,32,97,49,57,51,52,32,46,32,114,57,51,53,41,0,0,0,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,13),40,102,95,53,56,53,49,32,118,57,51,51,41,0,0,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,13),40,97,53,56,55,53,32,97,49,57,51,55,41,0,0,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,13),40,102,95,53,56,55,48,32,118,57,51,54,41,0,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,26),40,97,53,57,48,51,32,97,49,57,51,57,32,97,50,57,52,48,32,46,32,114,57,52,49,41,0,0,0,0,0,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,13),40,102,95,53,56,57,56,32,118,57,51,56,41,0,0,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,19),40,97,53,57,50,50,32,97,49,57,52,51,32,97,50,57,52,52,41,0,0,0,0,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,13),40,102,95,53,57,49,55,32,118,57,52,50,41,0,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,32),40,97,53,57,53,48,32,97,49,57,52,54,32,97,50,57,52,55,32,97,51,57,52,56,32,46,32,114,57,52,57,41}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,13),40,102,95,53,57,52,53,32,118,57,52,53,41,0,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,25),40,97,53,57,54,57,32,97,49,57,53,49,32,97,50,57,53,50,32,97,51,57,53,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,13),40,102,95,53,57,54,52,32,118,57,53,48,41,0,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,38),40,97,53,57,57,55,32,97,49,57,53,53,32,97,50,57,53,54,32,97,51,57,53,55,32,97,52,57,53,56,32,46,32,114,57,53,57,41,0,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,13),40,102,95,53,57,57,50,32,118,57,53,52,41,0,0,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,31),40,97,54,48,49,54,32,97,49,57,54,49,32,97,50,57,54,50,32,97,51,57,54,51,32,97,52,57,54,52,41,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,13),40,102,95,54,48,49,49,32,118,57,54,48,41,0,0,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,42),40,100,111,108,111,111,112,49,51,56,57,32,110,49,51,57,49,32,99,49,51,57,50,32,97,114,103,115,49,51,57,51,32,108,97,115,116,49,51,57,52,41,0,0,0,0,0,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,15),40,97,54,48,51,56,32,46,32,97,115,57,54,54,41,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,13),40,102,95,54,48,51,51,32,118,57,54,53,41,0,0,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,15),40,97,54,48,54,49,32,46,32,97,115,57,54,56,41,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,13),40,102,95,54,48,53,54,32,118,57,54,55,41,0,0,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,56,57,52,32,103,57,48,54,57,49,50,41,0,0,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,31),40,97,53,55,55,56,32,118,97,114,115,56,56,56,32,97,114,103,99,56,56,57,32,114,101,115,116,56,57,48,41,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,7),40,97,54,49,52,55,41,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,30),40,97,54,49,53,51,32,108,108,105,115,116,56,56,51,56,56,53,32,98,111,100,121,56,56,52,56,56,54,41,0,0}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,11),40,103,57,56,49,32,98,57,57,50,41,0,0,0,0,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,57,55,53,32,103,57,56,55,57,57,52,41,0,0,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,7),40,103,49,48,51,50,41,0}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,48,51,49,41,0,0,0,0,0}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,48,48,51,32,103,49,48,49,53,49,48,50,50,41}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,7),40,97,54,53,49,54,41,0}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,48,54,48,32,103,49,48,55,50,49,48,56,48,41}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,7),40,97,54,53,57,52,41,0}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,50,32,120,115,49,49,57,50,41,0,0}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,14),40,102,95,54,54,56,49,32,118,49,49,57,48,41,0,0}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,22),40,108,111,111,112,32,98,111,100,121,49,49,56,55,32,120,115,49,49,56,56,41,0,0}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,7),40,97,54,54,53,54,41,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,7),40,97,54,54,53,48,41,0}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,7),40,97,54,55,52,51,41,0}; 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,15),40,103,49,49,48,51,32,101,120,112,49,49,49,52,41,0}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,48,57,55,32,103,49,49,48,57,49,49,50,56,41}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,50,53,53,32,103,49,50,54,55,49,50,55,55,41}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,50,50,52,32,103,49,50,51,54,49,50,52,51,41}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,7),40,97,55,48,53,53,41,0}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,57),40,97,55,48,54,53,32,101,120,112,49,50,56,55,49,50,56,56,49,50,57,51,32,102,49,50,56,57,49,50,57,48,49,50,57,52,32,114,101,97,108,45,105,100,49,50,57,49,49,50,57,50,49,50,57,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,105,100,115,49,50,56,54,41,0,0}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,13),40,103,49,51,49,51,32,100,49,51,50,50,41,0,0,0}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,51,49,50,32,103,49,51,49,57,49,51,50,52,41,0,0,0}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,14),40,103,49,51,55,49,32,99,108,49,51,55,51,41,0,0}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,7),40,97,55,50,56,52,41,0}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,7),40,97,55,50,56,57,41,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,7),40,97,55,50,57,53,41,0}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,44),40,99,111,109,112,105,108,101,32,120,51,56,57,32,101,51,57,48,32,104,51,57,49,32,116,102,51,57,50,32,99,110,116,114,51,57,51,32,115,101,51,57,52,41,0,0,0,0}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,110,49,52,48,48,41,0,0,0,0}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,14),40,102,95,55,54,50,55,32,118,49,52,50,51,41,0,0}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,14),40,102,95,55,54,52,55,32,118,49,52,50,56,41,0,0}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,14),40,102,95,55,54,55,56,32,118,49,52,51,52,41,0,0}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,14),40,102,95,55,55,49,55,32,118,49,52,52,49,41,0,0}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,14),40,102,95,55,55,54,52,32,118,49,52,52,57,41,0,0}; static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,13),40,103,49,52,54,50,32,97,49,52,55,51,41,0,0,0}; static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,13),40,103,49,52,57,48,32,97,49,53,48,49,41,0,0,0}; static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,52,56,52,32,103,49,52,57,54,49,53,48,51,41}; static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,14),40,102,95,55,56,49,50,32,118,49,52,56,49,41,0,0}; static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,52,53,54,32,103,49,52,54,56,49,52,55,53,41}; static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,16),40,102,95,55,57,50,50,32,46,32,95,49,52,49,51,41}; static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,49),40,99,111,109,112,105,108,101,45,99,97,108,108,32,120,49,52,48,54,32,101,49,52,48,55,32,116,102,49,52,48,56,32,99,110,116,114,49,52,48,57,32,115,101,49,52,49,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,58),40,35,35,115,121,115,35,99,111,109,112,105,108,101,45,116,111,45,99,108,111,115,117,114,101,32,101,120,112,51,48,50,32,101,110,118,51,48,51,32,115,101,51,48,52,32,46,32,116,109,112,51,48,49,51,48,53,41,0,0,0,0,0,0}; static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,7),40,97,56,48,48,50,41,0}; static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,7),40,97,56,48,49,55,41,0}; static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,7),40,97,56,48,51,48,41,0}; static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,101,118,97,108,47,109,101,116,97,32,102,111,114,109,49,53,50,50,41,0,0,0,0,0,0}; static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,22),40,101,118,97,108,32,120,49,53,56,49,32,46,32,101,110,118,49,53,56,50,41,0,0}; static C_char C_TLS li158[] C_aligned={C_lihdr(0,0,5),40,101,114,114,41,0,0,0}; static C_char C_TLS li159[] C_aligned={C_lihdr(0,0,34),40,108,111,111,112,32,108,108,105,115,116,49,54,49,51,32,118,97,114,115,49,54,49,52,32,97,114,103,99,49,54,49,53,41,0,0,0,0,0,0}; static C_char C_TLS li160[] C_aligned={C_lihdr(0,0,46),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,49,54,48,56,32,107,49,54,48,57,41,0,0}; static C_char C_TLS li161[] C_aligned={C_lihdr(0,0,8),40,102,95,56,49,54,52,41}; static C_char C_TLS li162[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,109,111,100,101,49,54,51,51,41,0}; static C_char C_TLS li163[] C_aligned={C_lihdr(0,0,33),40,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,49,54,50,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li164[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li165[] C_aligned={C_lihdr(0,0,18),40,104,97,115,45,115,101,112,63,32,115,116,114,49,54,53,52,41,0,0,0,0,0,0}; static C_char C_TLS li166[] C_aligned={C_lihdr(0,0,8),40,102,95,56,51,51,54,41}; static C_char C_TLS li167[] C_aligned={C_lihdr(0,0,7),40,97,56,51,52,52,41,0}; static C_char C_TLS li168[] C_aligned={C_lihdr(0,0,7),40,97,56,51,54,52,41,0}; static C_char C_TLS li169[] C_aligned={C_lihdr(0,0,7),40,97,56,52,49,54,41,0}; static C_char C_TLS li170[] C_aligned={C_lihdr(0,0,19),40,97,56,52,50,50,32,46,32,116,49,55,53,50,49,55,53,51,41,0,0,0,0,0}; static C_char C_TLS li171[] C_aligned={C_lihdr(0,0,7),40,97,56,52,48,52,41,0}; static C_char C_TLS li172[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,55,53,57,32,103,49,55,54,54,49,55,55,50,41,0,0,0}; static C_char C_TLS li173[] C_aligned={C_lihdr(0,0,21),40,97,56,52,51,56,32,46,32,114,101,115,117,108,116,115,49,55,53,54,41,0,0,0}; static C_char C_TLS li174[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,49,55,52,57,32,120,49,55,53,49,41,0,0,0,0,0,0}; static C_char C_TLS li175[] C_aligned={C_lihdr(0,0,7),40,97,56,51,54,55,41,0}; static C_char C_TLS li176[] C_aligned={C_lihdr(0,0,7),40,97,56,53,48,50,41,0}; static C_char C_TLS li177[] C_aligned={C_lihdr(0,0,7),40,97,56,51,53,53,41,0}; static C_char C_TLS li178[] C_aligned={C_lihdr(0,0,7),40,97,56,53,49,49,41,0}; static C_char C_TLS li179[] C_aligned={C_lihdr(0,0,16),40,97,56,51,51,48,32,97,98,114,116,49,55,48,56,41}; static C_char C_TLS li180[] C_aligned={C_lihdr(0,0,57),40,35,35,115,121,115,35,108,111,97,100,32,105,110,112,117,116,49,54,54,52,32,101,118,97,108,117,97,116,111,114,49,54,54,53,32,112,102,49,54,54,54,32,46,32,116,109,112,49,54,54,51,49,54,54,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li181[] C_aligned={C_lihdr(0,0,35),40,108,111,97,100,32,102,105,108,101,110,97,109,101,49,55,57,48,32,46,32,101,118,97,108,117,97,116,111,114,49,55,57,49,41,0,0,0,0,0}; static C_char C_TLS li182[] C_aligned={C_lihdr(0,0,44),40,108,111,97,100,45,114,101,108,97,116,105,118,101,32,102,105,108,101,110,97,109,101,49,55,57,54,32,46,32,101,118,97,108,117,97,116,111,114,49,55,57,55,41,0,0,0,0}; static C_char C_TLS li183[] C_aligned={C_lihdr(0,0,7),40,97,56,55,51,52,41,0}; static C_char C_TLS li184[] C_aligned={C_lihdr(0,0,7),40,97,56,55,51,55,41,0}; static C_char C_TLS li185[] C_aligned={C_lihdr(0,0,7),40,97,56,55,52,48,41,0}; static C_char C_TLS li186[] C_aligned={C_lihdr(0,0,41),40,108,111,97,100,45,110,111,105,115,105,108,121,32,102,105,108,101,110,97,109,101,49,56,48,54,32,46,32,116,109,112,49,56,48,53,49,56,48,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li187[] C_aligned={C_lihdr(0,0,24),40,99,111,109,112,108,101,116,101,32,103,49,56,51,54,49,56,51,55,49,56,51,56,41}; static C_char C_TLS li188[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,108,105,98,115,49,56,56,52,41,0}; static C_char C_TLS li189[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,108,111,97,100,45,108,105,98,114,97,114,121,45,48,32,117,110,97,109,101,49,56,55,51,32,108,105,98,49,56,55,52,41}; static C_char C_TLS li190[] C_aligned={C_lihdr(0,0,40),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,49,56,57,51,32,46,32,108,105,98,49,56,57,52,41}; static C_char C_TLS li191[] C_aligned={C_lihdr(0,0,7),40,97,56,57,50,48,41,0}; static C_char C_TLS li192[] C_aligned={C_lihdr(0,0,25),40,100,111,108,111,111,112,49,57,49,53,32,120,49,57,49,55,32,120,115,49,57,49,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li193[] C_aligned={C_lihdr(0,0,7),40,97,56,57,50,53,41,0}; static C_char C_TLS li194[] C_aligned={C_lihdr(0,0,7),40,97,56,57,53,56,41,0}; static C_char C_TLS li195[] C_aligned={C_lihdr(0,0,7),40,97,56,57,49,52,41,0}; static C_char C_TLS li196[] C_aligned={C_lihdr(0,0,41),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,110,97,109,101,49,57,48,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li197[] C_aligned={C_lihdr(0,0,5),40,101,114,114,41,0,0,0}; static C_char C_TLS li198[] C_aligned={C_lihdr(0,0,6),40,115,101,112,63,41,0,0}; static C_char C_TLS li199[] C_aligned={C_lihdr(0,0,13),40,99,104,101,99,107,32,112,49,57,52,55,41,0,0,0}; static C_char C_TLS li200[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,105,100,49,57,51,57,41,0,0,0}; static C_char C_TLS li201[] C_aligned={C_lihdr(0,0,50),40,35,35,115,121,115,35,99,97,110,111,110,105,99,97,108,105,122,101,45,101,120,116,101,110,115,105,111,110,45,112,97,116,104,32,105,100,49,57,50,53,32,108,111,99,49,57,50,54,41,0,0,0,0,0,0}; static C_char C_TLS li202[] C_aligned={C_lihdr(0,0,16),40,99,104,101,99,107,32,112,97,116,104,49,57,55,50,41}; static C_char C_TLS li203[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,112,97,116,104,115,49,57,56,52,41}; static C_char C_TLS li204[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,102,105,110,100,45,101,120,116,101,110,115,105,111,110,32,112,49,57,54,56,32,105,110,99,63,49,57,54,57,41,0,0,0}; static C_char C_TLS li205[] C_aligned={C_lihdr(0,0,51),40,35,35,115,121,115,35,108,111,97,100,45,101,120,116,101,110,115,105,111,110,32,105,100,49,57,57,57,32,108,111,99,50,48,48,48,32,46,32,116,109,112,49,57,57,56,50,48,48,49,41,0,0,0,0,0}; static C_char C_TLS li206[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,48,51,55,32,103,50,48,52,52,50,48,53,49,41,0,0,0}; static C_char C_TLS li207[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,112,114,111,118,105,100,101,32,46,32,105,100,115,50,48,51,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li208[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,112,114,111,118,105,100,101,100,63,32,105,100,50,48,53,55,41}; static C_char C_TLS li209[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,48,54,52,32,103,50,48,55,49,50,48,56,51,41,0,0,0}; static C_char C_TLS li210[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,114,101,113,117,105,114,101,32,46,32,105,100,115,50,48,54,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li211[] C_aligned={C_lihdr(0,0,21),40,103,50,49,48,51,32,103,50,49,48,56,50,49,48,57,50,49,49,48,41,0,0,0}; static C_char C_TLS li212[] C_aligned={C_lihdr(0,0,44),40,35,35,115,121,115,35,101,120,116,101,110,115,105,111,110,45,105,110,102,111,114,109,97,116,105,111,110,32,105,100,50,48,57,50,32,108,111,99,50,48,57,51,41,0,0,0,0}; static C_char C_TLS li213[] C_aligned={C_lihdr(0,0,31),40,101,120,116,101,110,115,105,111,110,45,105,110,102,111,114,109,97,116,105,111,110,32,101,120,116,50,49,49,52,41,0}; static C_char C_TLS li214[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,49,32,105,100,115,50,49,50,48,41,0}; static C_char C_TLS li215[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,108,111,111,107,117,112,45,114,117,110,116,105,109,101,45,114,101,113,117,105,114,101,109,101,110,116,115,32,105,100,115,50,49,49,56,41,0,0,0,0,0}; static C_char C_TLS li216[] C_aligned={C_lihdr(0,0,21),40,97,57,53,48,52,32,103,50,49,52,53,50,49,52,54,50,49,52,55,41,0,0,0}; static C_char C_TLS li217[] C_aligned={C_lihdr(0,0,7),40,97,57,53,49,48,41,0}; static C_char C_TLS li218[] C_aligned={C_lihdr(0,0,28),40,97,100,100,45,114,101,113,32,105,100,50,49,52,48,32,115,121,110,116,97,120,63,50,49,52,49,41,0,0,0,0}; static C_char C_TLS li219[] C_aligned={C_lihdr(0,0,35),40,105,109,112,102,111,114,109,32,120,50,49,53,48,32,105,100,50,49,53,49,32,98,117,105,108,116,105,110,63,50,49,53,50,41,0,0,0,0,0}; static C_char C_TLS li220[] C_aligned={C_lihdr(0,0,15),40,115,114,102,105,45,105,100,32,110,50,49,54,51,41,0}; static C_char C_TLS li221[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,50,50,52,32,103,50,50,51,54,50,50,52,57,41}; static C_char C_TLS li222[] C_aligned={C_lihdr(0,0,23),40,100,111,105,116,32,105,100,50,49,54,52,32,105,109,112,105,100,50,49,54,53,41,0}; static C_char C_TLS li223[] C_aligned={C_lihdr(0,0,7),40,97,57,57,50,52,41,0}; static C_char C_TLS li224[] C_aligned={C_lihdr(0,0,52),40,97,57,57,51,48,32,101,120,112,50,50,57,52,50,50,57,53,50,51,48,48,32,102,50,50,50,57,54,50,50,57,55,50,51,48,49,32,95,50,50,57,56,50,50,57,57,50,51,48,50,41,0,0,0,0}; static C_char C_TLS li225[] C_aligned={C_lihdr(0,0,13),40,103,50,50,56,49,32,110,50,50,57,50,41,0,0,0}; static C_char C_TLS li226[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,50,55,53,32,103,50,50,56,55,50,51,49,49,41}; static C_char C_TLS li227[] C_aligned={C_lihdr(0,0,16),40,102,111,108,108,111,119,32,105,100,50,50,51,50,55,41}; static C_char C_TLS li228[] C_aligned={C_lihdr(0,0,52),40,35,35,115,121,115,35,100,111,45,116,104,101,45,114,105,103,104,116,45,116,104,105,110,103,32,105,100,50,49,50,57,32,99,111,109,112,63,50,49,51,48,32,105,109,112,63,50,49,51,49,41,0,0,0,0}; static C_char C_TLS li229[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,50,51,51,57,32,105,50,51,52,49,41,0,0,0,0,0,0}; static C_char C_TLS li230[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,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,50,51,51,54,41,0,0,0,0}; static C_char C_TLS li231[] C_aligned={C_lihdr(0,0,25),40,105,110,116,101,114,97,99,116,105,111,110,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 li232[] C_aligned={C_lihdr(0,0,21),40,102,111,108,100,114,50,51,55,48,32,103,50,51,55,49,50,51,55,52,41,0,0,0}; static C_char C_TLS li233[] C_aligned={C_lihdr(0,0,14),40,115,116,114,105,112,32,115,101,50,51,54,53,41,0,0}; static C_char C_TLS li234[] C_aligned={C_lihdr(0,0,33),40,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,50,51,56,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li235[] C_aligned={C_lihdr(0,0,24),40,110,117,108,108,45,101,110,118,105,114,111,110,109,101,110,116,32,110,50,51,56,57,41}; static C_char C_TLS li236[] C_aligned={C_lihdr(0,0,25),40,116,101,115,116,50,32,102,110,97,109,101,50,52,50,53,32,108,115,116,50,52,50,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li237[] C_aligned={C_lihdr(0,0,16),40,116,101,115,116,32,102,110,97,109,101,50,52,50,57,41}; static C_char C_TLS li238[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,112,97,116,104,115,50,52,51,54,41}; static C_char C_TLS li239[] C_aligned={C_lihdr(0,0,74),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,50,52,49,51,32,112,114,101,102,101,114,45,115,111,117,114,99,101,50,52,49,52,32,46,32,116,109,112,50,52,49,50,50,52,49,53,41,0,0,0,0,0,0}; static C_char C_TLS li240[] C_aligned={C_lihdr(0,0,8),40,97,49,48,52,55,49,41}; static C_char C_TLS li241[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,114,101,112,108,45,112,114,105,110,116,45,104,111,111,107,32,120,50,52,53,51,32,112,111,114,116,50,52,53,52,41,0,0}; static C_char C_TLS li242[] 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 li243[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,108,101,97,114,45,116,114,97,99,101,45,98,117,102,102,101,114,41,0,0,0,0,0,0}; static C_char C_TLS li244[] C_aligned={C_lihdr(0,0,33),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,50,52,55,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li245[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,52,57,51,32,103,50,53,48,48,50,53,49,50,41,0,0,0}; static C_char C_TLS li246[] C_aligned={C_lihdr(0,0,18),40,119,114,105,116,101,45,101,114,114,32,120,115,50,52,57,48,41,0,0,0,0,0,0}; static C_char C_TLS li247[] C_aligned={C_lihdr(0,0,20),40,102,95,49,48,54,54,52,32,114,101,115,117,108,116,50,53,54,50,41,0,0,0,0}; static C_char C_TLS li248[] C_aligned={C_lihdr(0,0,27),40,97,49,48,54,55,53,32,109,115,103,50,53,54,51,32,46,32,97,114,103,115,50,53,54,52,41,0,0,0,0,0}; static C_char C_TLS li249[] C_aligned={C_lihdr(0,0,8),40,97,49,48,54,53,54,41}; static C_char C_TLS li250[] C_aligned={C_lihdr(0,0,8),40,97,49,48,55,57,52,41}; static C_char C_TLS li251[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,53,50,51,32,103,50,53,51,48,50,53,52,50,41,0,0,0}; static C_char C_TLS li252[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,54,48,54,32,103,50,54,49,51,50,54,50,51,41,0,0,0}; static C_char C_TLS li253[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,118,97,114,115,50,53,57,56,32,117,50,53,57,57,41,0,0,0}; static C_char C_TLS li254[] C_aligned={C_lihdr(0,0,21),40,97,49,48,56,48,48,32,46,32,114,101,115,117,108,116,50,53,57,53,41,0,0,0}; static C_char C_TLS li255[] C_aligned={C_lihdr(0,0,8),40,97,49,48,57,52,57,41}; static C_char C_TLS li256[] C_aligned={C_lihdr(0,0,14),40,97,49,48,57,52,51,32,99,50,53,56,53,41,0,0}; static C_char C_TLS li257[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li258[] C_aligned={C_lihdr(0,0,8),40,97,49,48,55,53,52,41}; static C_char C_TLS li259[] C_aligned={C_lihdr(0,0,8),40,97,49,48,57,54,48,41}; static C_char C_TLS li260[] C_aligned={C_lihdr(0,0,14),40,97,49,48,54,53,48,32,107,50,53,54,49,41,0,0}; static C_char C_TLS li261[] C_aligned={C_lihdr(0,0,20),40,114,101,112,108,32,46,32,116,109,112,50,52,56,49,50,52,56,50,41,0,0,0,0}; static C_char C_TLS li262[] C_aligned={C_lihdr(0,0,38),40,100,101,102,105,110,101,45,114,101,97,100,101,114,45,99,116,111,114,32,115,112,101,99,50,54,53,51,32,112,114,111,99,50,54,53,52,41,0,0}; static C_char C_TLS li263[] C_aligned={C_lihdr(0,0,5),40,101,114,114,41,0,0,0}; static C_char C_TLS li264[] C_aligned={C_lihdr(0,0,40),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,50,54,53,57,32,112,111,114,116,50,54,54,48,41}; static C_char C_TLS li265[] C_aligned={C_lihdr(0,0,8),40,97,49,49,48,57,48,41}; static C_char C_TLS li266[] C_aligned={C_lihdr(0,0,15),40,97,49,49,48,56,52,32,101,120,50,54,56,51,41,0}; static C_char C_TLS li267[] C_aligned={C_lihdr(0,0,8),40,97,49,49,49,48,57,41}; static C_char C_TLS li268[] C_aligned={C_lihdr(0,0,8),40,97,49,49,49,50,49,41}; static C_char C_TLS li269[] C_aligned={C_lihdr(0,0,23),40,97,49,49,49,49,53,32,46,32,97,114,103,115,50,54,55,55,50,54,56,55,41,0}; static C_char C_TLS li270[] C_aligned={C_lihdr(0,0,8),40,97,49,49,49,48,51,41}; static C_char C_TLS li271[] C_aligned={C_lihdr(0,0,18),40,97,49,49,48,55,56,32,107,50,54,55,54,50,54,56,50,41,0,0,0,0,0,0}; static C_char C_TLS li272[] C_aligned={C_lihdr(0,0,20),40,114,117,110,45,115,97,102,101,32,116,104,117,110,107,50,54,55,53,41,0,0,0,0}; static C_char C_TLS li273[] C_aligned={C_lihdr(0,0,31),40,115,116,111,114,101,45,114,101,115,117,108,116,32,120,50,54,57,48,32,114,101,115,117,108,116,50,54,57,49,41,0}; static C_char C_TLS li274[] C_aligned={C_lihdr(0,0,8),40,97,49,49,49,52,50,41}; static C_char C_TLS li275[] 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 li276[] C_aligned={C_lihdr(0,0,8),40,97,49,49,49,53,52,41}; static C_char C_TLS li277[] C_aligned={C_lihdr(0,0,33),40,67,72,73,67,75,69,78,95,101,118,97,108,32,101,120,112,50,55,48,49,32,114,101,115,117,108,116,50,55,48,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li278[] C_aligned={C_lihdr(0,0,8),40,97,49,49,49,55,51,41}; static C_char C_TLS li279[] C_aligned={C_lihdr(0,0,40),40,67,72,73,67,75,69,78,95,101,118,97,108,95,115,116,114,105,110,103,32,115,116,114,50,55,48,56,32,114,101,115,117,108,116,50,55,48,57,41}; static C_char C_TLS li280[] C_aligned={C_lihdr(0,0,34),40,115,116,111,114,101,45,115,116,114,105,110,103,32,98,117,102,115,105,122,101,50,55,49,53,32,98,117,102,50,55,49,54,41,0,0,0,0,0,0}; static C_char C_TLS li281[] C_aligned={C_lihdr(0,0,8),40,97,49,49,50,48,57,41}; static C_char C_TLS li282[] C_aligned={C_lihdr(0,0,52),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,50,55,50,54,32,98,117,102,50,55,50,55,32,98,117,102,115,105,122,101,50,55,50,56,41,0,0,0,0}; static C_char C_TLS li283[] C_aligned={C_lihdr(0,0,8),40,97,49,49,50,51,56,41}; static C_char C_TLS li284[] C_aligned={C_lihdr(0,0,59),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,50,55,51,55,32,98,117,102,50,55,51,56,32,98,117,102,115,105,122,101,50,55,51,57,41,0,0,0,0,0}; static C_char C_TLS li285[] C_aligned={C_lihdr(0,0,8),40,97,49,49,50,55,50,41}; static C_char C_TLS li286[] C_aligned={C_lihdr(0,0,44),40,67,72,73,67,75,69,78,95,97,112,112,108,121,32,102,117,110,99,50,55,52,56,32,97,114,103,115,50,55,52,57,32,114,101,115,117,108,116,50,55,53,48,41,0,0,0,0}; static C_char C_TLS li287[] C_aligned={C_lihdr(0,0,8),40,97,49,49,50,56,56,41}; static C_char C_TLS li288[] C_aligned={C_lihdr(0,0,63),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,50,55,53,55,32,97,114,103,115,50,55,53,56,32,98,117,102,50,55,53,57,32,98,117,102,115,105,122,101,50,55,54,48,41,0}; static C_char C_TLS li289[] C_aligned={C_lihdr(0,0,8),40,97,49,49,51,49,55,41}; static C_char C_TLS li290[] C_aligned={C_lihdr(0,0,33),40,67,72,73,67,75,69,78,95,114,101,97,100,32,115,116,114,50,55,55,48,32,114,101,115,117,108,116,50,55,55,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li291[] C_aligned={C_lihdr(0,0,8),40,97,49,49,51,51,57,41}; static C_char C_TLS li292[] C_aligned={C_lihdr(0,0,22),40,67,72,73,67,75,69,78,95,108,111,97,100,32,115,116,114,50,55,55,56,41,0,0}; static C_char C_TLS li293[] C_aligned={C_lihdr(0,0,47),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,50,55,56,52,32,98,117,102,115,105,122,101,50,55,56,53,41,0}; static C_char C_TLS li294[] C_aligned={C_lihdr(0,0,8),40,97,49,49,51,53,53,41}; static C_char C_TLS li295[] C_aligned={C_lihdr(0,0,20),40,97,49,49,51,57,48,32,101,50,51,53,52,32,112,50,51,53,53,41,0,0,0,0}; static C_char C_TLS li296[] C_aligned={C_lihdr(0,0,14),40,97,49,49,52,53,51,32,120,49,56,54,55,41,0,0}; static C_char C_TLS li297[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,56,52,51,32,103,49,56,53,53,49,56,54,49,41}; static C_char C_TLS li298[] C_aligned={C_lihdr(0,0,33),40,97,49,49,53,53,50,32,115,121,109,49,53,56,56,32,112,114,111,112,49,53,56,57,32,118,97,108,49,53,57,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li299[] C_aligned={C_lihdr(0,0,8),40,97,49,49,53,55,57,41}; static C_char C_TLS li300[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,49,53,57,55,41,0,0,0,0}; static C_char C_TLS li301[] C_aligned={C_lihdr(0,0,8),40,97,49,49,53,56,52,41}; static C_char C_TLS li302[] C_aligned={C_lihdr(0,0,18),40,97,49,49,53,55,51,32,116,104,117,110,107,49,53,57,51,41,0,0,0,0,0,0}; static C_char C_TLS li303[] C_aligned={C_lihdr(0,0,8),40,97,49,49,53,52,54,41}; static C_char C_TLS li304[] C_aligned={C_lihdr(0,0,59),40,97,49,49,54,49,52,32,112,117,116,47,114,101,115,116,111,114,101,33,49,53,56,52,49,54,48,51,32,119,105,116,104,45,112,114,111,112,101,114,116,121,45,114,101,115,116,111,114,101,49,53,56,53,49,54,48,52,41,0,0,0,0,0}; static C_char C_TLS li305[] C_aligned={C_lihdr(0,0,8),40,97,49,49,54,52,54,41}; static C_char C_TLS li306[] C_aligned={C_lihdr(0,0,8),40,97,49,49,54,54,51,41}; static C_char C_TLS li307[] C_aligned={C_lihdr(0,0,8),40,97,49,49,54,55,51,41}; static C_char C_TLS li308[] C_aligned={C_lihdr(0,0,28),40,97,49,49,54,49,57,32,120,49,53,52,52,32,46,32,116,109,112,49,53,52,51,49,53,52,53,41,0,0,0,0}; static C_char C_TLS li309[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; /* from ##sys#clear-trace-buffer in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in ... */ C_regparm static C_word C_fcall stub2468(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_clear_trace_buffer(); return C_r;} C_noret_decl(f_5416) static void C_fcall f_5416(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4326) static void C_ccall f_4326(C_word c,C_word *av) C_noret; C_noret_decl(f_8383) static void C_fcall f_8383(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7865) static void C_ccall f_7865(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_8396) static void C_ccall f_8396(C_word c,C_word *av) C_noret; C_noret_decl(f_8393) static void C_ccall f_8393(C_word c,C_word *av) C_noret; C_noret_decl(f_4350) static void C_ccall f_4350(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_5475) static void C_ccall f_5475(C_word c,C_word *av) C_noret; C_noret_decl(f_9778) static void C_ccall f_9778(C_word c,C_word *av) C_noret; C_noret_decl(f_4342) static void C_ccall f_4342(C_word c,C_word *av) C_noret; C_noret_decl(f_7840) static void C_fcall f_7840(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7838) static void C_ccall f_7838(C_word c,C_word *av) C_noret; C_noret_decl(f_7828) static void C_fcall f_7828(C_word t0,C_word t1,C_word t2) 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_6108) static void C_fcall f_6108(C_word t0,C_word t1,C_word t2) 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_10214) static void C_fcall f_10214(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6410) static void C_ccall f_6410(C_word c,C_word *av) C_noret; C_noret_decl(f_6417) static void C_ccall f_6417(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_9734) static void C_ccall f_9734(C_word c,C_word *av) C_noret; C_noret_decl(f_4300) static void C_ccall f_4300(C_word c,C_word *av) C_noret; C_noret_decl(f_10205) static void C_fcall f_10205(C_word t0,C_word t1) C_noret; C_noret_decl(f_10203) static void C_ccall f_10203(C_word c,C_word *av) 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_6425) static void C_ccall f_6425(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_10263) static void C_ccall f_10263(C_word c,C_word *av) C_noret; C_noret_decl(f_6404) static void C_ccall f_6404(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_8692) static void C_ccall f_8692(C_word c,C_word *av) C_noret; C_noret_decl(f_6407) static void C_ccall f_6407(C_word c,C_word *av) 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_6460) static void C_ccall f_6460(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_6051) static void C_ccall f_6051(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_6055) static void C_ccall f_6055(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_5998) static void C_ccall f_5998(C_word c,C_word *av) C_noret; C_noret_decl(f_5992) static void C_ccall f_5992(C_word c,C_word *av) C_noret; C_noret_decl(f_7572) static C_word C_fcall f_7572(C_word t0,C_word t1); C_noret_decl(f_7899) static void C_ccall f_7899(C_word c,C_word *av) C_noret; C_noret_decl(f_6033) static void C_ccall f_6033(C_word c,C_word *av) C_noret; C_noret_decl(f_9299) static void C_ccall f_9299(C_word c,C_word *av) C_noret; C_noret_decl(f_6039) static void C_ccall f_6039(C_word c,C_word *av) C_noret; C_noret_decl(f_10288) static void C_ccall f_10288(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_9072) static void C_fcall f_9072(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8616) static void C_ccall f_8616(C_word c,C_word *av) C_noret; C_noret_decl(f_8619) static void C_ccall f_8619(C_word c,C_word *av) C_noret; C_noret_decl(f_3894) static void C_ccall f_3894(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_10407) static void C_fcall f_10407(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8625) static void C_ccall f_8625(C_word c,C_word *av) C_noret; C_noret_decl(f_8628) static void C_ccall f_8628(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_4687) static void C_ccall f_4687(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_4680) static void C_ccall f_4680(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_7598) static void C_fcall f_7598(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_8601) static void C_ccall f_8601(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_10417) static void C_ccall f_10417(C_word c,C_word *av) C_noret; C_noret_decl(f_8586) static void C_ccall f_8586(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_8583) static void C_ccall f_8583(C_word c,C_word *av) 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_5917) static void C_ccall f_5917(C_word c,C_word *av) C_noret; C_noret_decl(f_10442) static void C_ccall f_10442(C_word c,C_word *av) C_noret; C_noret_decl(f_7811) static void C_ccall f_7811(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_3861) static void C_ccall f_3861(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_7801) static void C_fcall f_7801(C_word t0,C_word t1,C_word t2) 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_3516) static void C_ccall f_3516(C_word c,C_word *av) C_noret; C_noret_decl(f_10365) static void C_fcall f_10365(C_word t0,C_word t1,C_word t2) 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_3512) static void C_ccall f_3512(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_10395) static void C_ccall f_10395(C_word c,C_word *av) C_noret; C_noret_decl(f_9756) static void C_ccall f_9756(C_word c,C_word *av) C_noret; C_noret_decl(f_3574) static C_word C_fcall f_3574(C_word t0,C_word t1); C_noret_decl(f_9749) static void C_ccall f_9749(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_3886) static void C_ccall f_3886(C_word c,C_word *av) C_noret; C_noret_decl(f_10480) static void C_ccall f_10480(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_10486) static void C_ccall f_10486(C_word c,C_word *av) C_noret; C_noret_decl(f_8592) static void C_ccall f_8592(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_6760) static void C_ccall f_6760(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_5964) static void C_ccall f_5964(C_word c,C_word *av) C_noret; C_noret_decl(f_7526) static void C_fcall f_7526(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_10245) static void C_ccall f_10245(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_6769) static void C_ccall f_6769(C_word c,C_word *av) C_noret; C_noret_decl(f_9768) static void C_fcall f_9768(C_word t0,C_word t1) C_noret; C_noret_decl(f_9764) static void C_ccall f_9764(C_word c,C_word *av) C_noret; C_noret_decl(f_3829) static void C_ccall f_3829(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_10467) static void C_ccall f_10467(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_6744) static void C_ccall f_6744(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_5904) static void C_ccall f_5904(C_word c,C_word *av) 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_8806) static void C_ccall f_8806(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_word t3,C_word t4) 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_8503) static void C_ccall f_8503(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_10498) static void C_ccall f_10498(C_word c,C_word *av) C_noret; C_noret_decl(f_6710) static void C_ccall f_6710(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_4566) static void C_ccall f_4566(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_4560) static void C_ccall f_4560(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_3549) static void C_ccall f_3549(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_7255) static void C_fcall f_7255(C_word t0,C_word t1,C_word t2) 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_10472) static void C_ccall f_10472(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_10507) static void C_ccall f_10507(C_word c,C_word *av) 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_6783) static void C_fcall f_6783(C_word t0,C_word t1,C_word t2) 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_6751) static void C_ccall f_6751(C_word c,C_word *av) C_noret; C_noret_decl(f_10527) static void C_fcall f_10527(C_word t0,C_word t1,C_word t2) 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_6754) static void C_ccall f_6754(C_word c,C_word *av) 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_8512) static void C_ccall f_8512(C_word c,C_word *av) C_noret; C_noret_decl(f_4371) static void C_ccall f_4371(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_7213) static void C_fcall f_7213(C_word t0,C_word t1) C_noret; C_noret_decl(f_8065) static void C_ccall f_8065(C_word c,C_word *av) C_noret; C_noret_decl(f_4550) static void C_ccall f_4550(C_word c,C_word *av) C_noret; C_noret_decl(f_8062) static void C_ccall f_8062(C_word c,C_word *av) C_noret; C_noret_decl(f_8524) static void C_ccall f_8524(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_8076) static void C_ccall f_8076(C_word c,C_word *av) C_noret; C_noret_decl(f_8073) static void C_ccall f_8073(C_word c,C_word *av) C_noret; C_noret_decl(f_10537) static void C_ccall f_10537(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_8041) static void C_ccall f_8041(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_4574) static void C_ccall f_4574(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_4383) static void C_ccall f_4383(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_8058) static void C_ccall f_8058(C_word c,C_word *av) C_noret; C_noret_decl(f_8054) static void C_ccall f_8054(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_9682) static void C_fcall f_9682(C_word t0,C_word t1) C_noret; C_noret_decl(f_8022) static void C_ccall f_8022(C_word c,C_word *av) C_noret; C_noret_decl(f_6990) static void C_fcall f_6990(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8029) static void C_ccall f_8029(C_word c,C_word *av) C_noret; C_noret_decl(f_10587) static void C_ccall f_10587(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_8035) static void C_ccall f_8035(C_word c,C_word *av) C_noret; C_noret_decl(f_8031) static void C_ccall f_8031(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_8038) static void C_ccall f_8038(C_word c,C_word *av) C_noret; C_noret_decl(f_10574) static void C_ccall f_10574(C_word c,C_word *av) 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_10452) static void C_ccall f_10452(C_word c,C_word *av) C_noret; C_noret_decl(f_8007) static void C_ccall f_8007(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_8013) static void C_ccall f_8013(C_word c,C_word *av) C_noret; C_noret_decl(f_8010) static void C_ccall f_8010(C_word c,C_word *av) C_noret; C_noret_decl(f_8018) static void C_ccall f_8018(C_word c,C_word *av) C_noret; C_noret_decl(f_9097) static void C_ccall f_9097(C_word c,C_word *av) C_noret; C_noret_decl(f_10332) static void C_fcall f_10332(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10513) static void C_fcall f_10513(C_word t0,C_word t1) 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_10326) static void C_ccall f_10326(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_9634) static void C_ccall f_9634(C_word c,C_word *av) C_noret; C_noret_decl(f_9089) static void C_ccall f_9089(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_8746) static void C_fcall f_8746(C_word t0,C_word t1) 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_4817) static void C_ccall f_4817(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_8758) static void C_ccall f_8758(C_word c,C_word *av) C_noret; C_noret_decl(f_8751) static void C_ccall f_8751(C_word c,C_word *av) C_noret; C_noret_decl(f_4882) static void C_ccall f_4882(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_4873) static void C_ccall f_4873(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_8738) static void C_ccall f_8738(C_word c,C_word *av) C_noret; C_noret_decl(f_8735) static void C_ccall f_8735(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_5079) static void C_ccall f_5079(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_3715) static void C_fcall f_3715(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10599) static void C_fcall f_10599(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5083) static void C_ccall f_5083(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_4044) static C_word C_fcall f_4044(C_word t0,C_word t1,C_word t2); C_noret_decl(f_5053) static void C_ccall f_5053(C_word c,C_word *av) C_noret; C_noret_decl(f_5050) static void C_ccall f_5050(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; C_noret_decl(f_3775) static void C_ccall f_3775(C_word c,C_word *av) C_noret; C_noret_decl(f_3771) static void C_ccall f_3771(C_word c,C_word *av) C_noret; C_noret_decl(f_3783) static void C_fcall f_3783(C_word t0,C_word t1,C_word t2) 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_5095) static void C_ccall f_5095(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_7290) static void C_ccall f_7290(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_5029) static void C_ccall f_5029(C_word c,C_word *av) C_noret; C_noret_decl(f_4846) static void C_ccall f_4846(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_7296) static void C_ccall f_7296(C_word c,C_word *av) C_noret; C_noret_decl(f_4837) static void C_ccall f_4837(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_5009) static void C_ccall f_5009(C_word c,C_word *av) C_noret; C_noret_decl(f_7285) static void C_ccall f_7285(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_6680) static void C_ccall f_6680(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_6687) static void C_fcall f_6687(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3707) static void C_fcall f_3707(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3701) static void C_ccall f_3701(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_11217) static void C_ccall f_11217(C_word c,C_word *av) C_noret; C_noret_decl(f_6667) static void C_fcall f_6667(C_word t0,C_word t1,C_word t2,C_word t3) 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_7979) static void C_ccall f_7979(C_word c,C_word *av) C_noret; C_noret_decl(f_6677) static void C_ccall f_6677(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_6011) static void C_ccall f_6011(C_word c,C_word *av) C_noret; C_noret_decl(f_11234) static void C_ccall f_11234(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_6017) static void C_ccall f_6017(C_word c,C_word *av) C_noret; C_noret_decl(f_5013) static void C_ccall f_5013(C_word c,C_word *av) 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_11239) static void C_ccall f_11239(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_5558) static void C_fcall f_5558(C_word t0,C_word t1,C_word t2,C_word t3) 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_6029) static void C_ccall f_6029(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_3745) static void C_fcall f_3745(C_word t0,C_word t1,C_word t2) 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_7941) static void C_ccall f_7941(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_11273) static void C_ccall f_11273(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_7922) static void C_ccall f_7922(C_word c,C_word *av) C_noret; C_noret_decl(f_9465) static void C_fcall f_9465(C_word t0,C_word t1) C_noret; C_noret_decl(f_9462) static void C_ccall f_9462(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_6304) static C_word C_fcall f_6304(C_word t0,C_word t1); C_noret_decl(f_6300) static void C_ccall f_6300(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_9492) static void C_fcall f_9492(C_word t0,C_word t1,C_word t2,C_word t3) 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_8965) static void C_ccall f_8965(C_word c,C_word *av) C_noret; C_noret_decl(f_11261) static void C_ccall f_11261(C_word c,C_word *av) C_noret; C_noret_decl(f_11265) static void C_ccall f_11265(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_9489) static void C_ccall f_9489(C_word c,C_word *av) C_noret; C_noret_decl(f_8973) static void C_fcall f_8973(C_word t0,C_word t1) C_noret; C_noret_decl(f_8970) static void C_ccall f_8970(C_word c,C_word *av) C_noret; C_noret_decl(f_8979) static C_word C_fcall f_8979(C_word t0); C_noret_decl(f_4256) static void C_ccall f_4256(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_11281) static void C_ccall f_11281(C_word c,C_word *av) C_noret; C_noret_decl(f_9421) static void C_fcall f_9421(C_word t0,C_word t1,C_word t2) 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_8953) static void C_ccall f_8953(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_6379) static void C_ccall f_6379(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(f_6587) static void C_ccall f_6587(C_word c,C_word *av) C_noret; C_noret_decl(f_6354) static void C_fcall f_6354(C_word t0,C_word t1,C_word t2) 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_ccall f_8926(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_6599) static void C_ccall f_6599(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_8934) static void C_ccall f_8934(C_word c,C_word *av) C_noret; C_noret_decl(f_8936) static void C_fcall f_8936(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6590) static void C_ccall f_6590(C_word c,C_word *av) C_noret; C_noret_decl(f_5059) static void C_ccall f_5059(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_5063) static void C_ccall f_5063(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_7995) static void C_ccall f_7995(C_word c,C_word *av) C_noret; C_noret_decl(f_7992) static void C_ccall f_7992(C_word c,C_word *av) C_noret; C_noret_decl(f_5037) static void C_ccall f_5037(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_6572) static void C_ccall f_6572(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_7986) static void C_ccall f_7986(C_word c,C_word *av) C_noret; C_noret_decl(f_7983) static void C_ccall f_7983(C_word c,C_word *av) C_noret; C_noret_decl(f_8182) static void C_fcall f_8182(C_word t0,C_word t1,C_word t2) 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_9401) static void C_ccall f_9401(C_word c,C_word *av) C_noret; C_noret_decl(f_9405) static void C_ccall f_9405(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_8195) static void C_ccall f_8195(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_9179) static void C_ccall f_9179(C_word c,C_word *av) C_noret; C_noret_decl(f_10011) static void C_ccall f_10011(C_word c,C_word *av) C_noret; C_noret_decl(f_11253) static void C_ccall f_11253(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_11257) static void C_ccall f_11257(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_7696) static void C_ccall f_7696(C_word c,C_word *av) C_noret; C_noret_decl(f_11224) static void C_ccall f_11224(C_word c,C_word *av) C_noret; C_noret_decl(f_11228) static void C_ccall f_11228(C_word c,C_word *av) 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_6325) static void C_ccall f_6325(C_word c,C_word *av) C_noret; C_noret_decl(f_7674) static void C_ccall f_7674(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_7677) static void C_ccall f_7677(C_word c,C_word *av) C_noret; C_noret_decl(f_6331) static C_word C_fcall f_6331(C_word t0,C_word t1); C_noret_decl(f_9131) static void C_ccall f_9131(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_9137) static void C_fcall f_9137(C_word t0,C_word t1,C_word t2) 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_9135) static void C_ccall f_9135(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_11246) static void C_ccall f_11246(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_8996) static void C_fcall f_8996(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8991) static void C_ccall f_8991(C_word c,C_word *av) C_noret; C_noret_decl(f_10135) static void C_fcall f_10135(C_word t0,C_word t1) C_noret; C_noret_decl(f_9127) static void C_ccall f_9127(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_3617) static void C_ccall f_3617(C_word c,C_word *av) C_noret; C_noret_decl(f_10125) static void C_ccall f_10125(C_word c,C_word *av) C_noret; C_noret_decl(f_11004) static void C_ccall f_11004(C_word c,C_word *av) C_noret; C_noret_decl(f_11007) static void C_ccall f_11007(C_word c,C_word *av) C_noret; C_noret_decl(f_11008) static void C_fcall f_11008(C_word t0,C_word t1) C_noret; C_noret_decl(f_9436) static void C_ccall f_9436(C_word c,C_word *av) C_noret; C_noret_decl(f_9432) static void C_ccall f_9432(C_word c,C_word *av) C_noret; C_noret_decl(f_5654) static void C_fcall f_5654(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3632) static void C_fcall f_3632(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7627) static void C_ccall f_7627(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_8439) static void C_ccall f_8439(C_word c,C_word *av) C_noret; C_noret_decl(f_8434) static void C_ccall f_8434(C_word c,C_word *av) C_noret; C_noret_decl(f_9448) static void C_fcall f_9448(C_word t0,C_word t1,C_word t2) 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_7605) static void C_ccall f_7605(C_word c,C_word *av) C_noret; C_noret_decl(f_8490) static void C_ccall f_8490(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_5606) static void C_fcall f_5606(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10197) static void C_ccall f_10197(C_word c,C_word *av) C_noret; C_noret_decl(f_10194) static void C_ccall f_10194(C_word c,C_word *av) C_noret; C_noret_decl(f_10185) static void C_ccall f_10185(C_word c,C_word *av) C_noret; C_noret_decl(f_10189) static void C_ccall f_10189(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_4103) static void C_ccall f_4103(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_4453) static void C_ccall f_4453(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_4403) static void C_fcall f_4403(C_word t0,C_word t1) 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_6148) static void C_ccall f_6148(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_6657) static void C_ccall f_6657(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_6143) static void C_ccall f_6143(C_word c,C_word *av) 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_4430) static void C_ccall f_4430(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_6620) static void C_ccall f_6620(C_word c,C_word *av) C_noret; C_noret_decl(f_11313) static void C_ccall f_11313(C_word c,C_word *av) C_noret; C_noret_decl(f_8427) static void C_ccall f_8427(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_6627) static void C_ccall f_6627(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_11309) static void C_ccall f_11309(C_word c,C_word *av) C_noret; C_noret_decl(f_4116) static void C_ccall f_4116(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_4469) static void C_ccall f_4469(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_6633) static void C_ccall f_6633(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_6630) static void C_ccall f_6630(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_8368) static void C_ccall f_8368(C_word c,C_word *av) C_noret; C_noret_decl(f_8360) static void C_ccall f_8360(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_8403) static void C_ccall f_8403(C_word c,C_word *av) C_noret; C_noret_decl(f_8365) static void C_ccall f_8365(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_8405) static void C_ccall f_8405(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_8378) static void C_ccall f_8378(C_word c,C_word *av) C_noret; C_noret_decl(f_6616) static void C_ccall f_6616(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_8412) static void C_ccall f_8412(C_word c,C_word *av) C_noret; C_noret_decl(f_11344) static void C_ccall f_11344(C_word c,C_word *av) C_noret; C_noret_decl(f_8375) static void C_ccall f_8375(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_8417) static void C_ccall f_8417(C_word c,C_word *av) C_noret; C_noret_decl(f_11340) static void C_ccall f_11340(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_3624) static void C_ccall f_3624(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_4477) static void C_ccall f_4477(C_word c,C_word *av) C_noret; C_noret_decl(f_8345) static void C_ccall f_8345(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_8356) static void C_ccall f_8356(C_word c,C_word *av) C_noret; C_noret_decl(f_8323) static void C_ccall f_8323(C_word c,C_word *av) C_noret; C_noret_decl(f_8326) static void C_ccall f_8326(C_word c,C_word *av) C_noret; C_noret_decl(f_8320) static void C_ccall f_8320(C_word c,C_word *av) 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_3490) static void C_ccall f_3490(C_word c,C_word *av) C_noret; C_noret_decl(f_8335) static void C_ccall f_8335(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_7647) static void C_ccall f_7647(C_word c,C_word *av) C_noret; C_noret_decl(f_8331) static void C_ccall f_8331(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_3487) static void C_ccall f_3487(C_word c,C_word *av) C_noret; C_noret_decl(f_11385) static void C_ccall f_11385(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_7634) static void C_ccall f_7634(C_word c,C_word *av) C_noret; C_noret_decl(f_11391) static void C_ccall f_11391(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_10144) static void C_ccall f_10144(C_word c,C_word *av) 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_8314) static void C_ccall f_8314(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_11398) static void C_ccall f_11398(C_word c,C_word *av) C_noret; C_noret_decl(f_7074) static void C_ccall f_7074(C_word c,C_word *av) C_noret; C_noret_decl(f_10004) static void C_fcall f_10004(C_word t0,C_word t1) 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_11369) static void C_ccall f_11369(C_word c,C_word *av) C_noret; C_noret_decl(f_7066) static void C_ccall f_7066(C_word c,C_word *av) C_noret; C_noret_decl(f_6954) static void C_ccall f_6954(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_noret; C_noret_decl(f_9188) static void C_fcall f_9188(C_word t0,C_word t1,C_word t2) 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_11651) static void C_ccall f_11651(C_word c,C_word *av) C_noret; C_noret_decl(f_11655) static void C_ccall f_11655(C_word c,C_word *av) C_noret; C_noret_decl(f_7056) static void C_ccall f_7056(C_word c,C_word *av) C_noret; C_noret_decl(f_11658) static void C_ccall f_11658(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_6926) static void C_ccall f_6926(C_word c,C_word *av) C_noret; C_noret_decl(f_6920) static void C_ccall f_6920(C_word c,C_word *av) C_noret; C_noret_decl(f_11664) static void C_ccall f_11664(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_7044) static void C_fcall f_7044(C_word t0,C_word t1,C_word t2) 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_11069) static void C_fcall f_11069(C_word t0,C_word t1) C_noret; C_noret_decl(f_7038) static void C_ccall f_7038(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_3696) static void C_ccall f_3696(C_word c,C_word *av) C_noret; C_noret_decl(f_3693) static void C_ccall f_3693(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_11602) static void C_ccall f_11602(C_word c,C_word *av) C_noret; C_noret_decl(f_11085) static void C_ccall f_11085(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_11091) static void C_ccall f_11091(C_word c,C_word *av) 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_11098) static void C_ccall f_11098(C_word c,C_word *av) C_noret; C_noret_decl(f_11021) static void C_fcall f_11021(C_word t0,C_word t1) 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_5182) static void C_ccall f_5182(C_word c,C_word *av) C_noret; C_noret_decl(f_5187) static void C_fcall f_5187(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3681) static void C_ccall f_3681(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_9896) static void C_fcall f_9896(C_word t0,C_word t1) C_noret; C_noret_decl(f_11039) static void C_ccall f_11039(C_word c,C_word *av) C_noret; C_noret_decl(f_11647) static void C_ccall f_11647(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_11674) static void C_ccall f_11674(C_word c,C_word *av) C_noret; C_noret_decl(f_11356) static void C_ccall f_11356(C_word c,C_word *av) C_noret; C_noret_decl(f_11678) static void C_ccall f_11678(C_word c,C_word *av) C_noret; C_noret_decl(f_11331) static void C_ccall f_11331(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_11329) static void C_ccall f_11329(C_word c,C_word *av) C_noret; C_noret_decl(f_11688) static void C_ccall f_11688(C_word c,C_word *av) C_noret; C_noret_decl(f_11615) static void C_ccall f_11615(C_word c,C_word *av) 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_11620) static void C_ccall f_11620(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_5103) static void C_ccall f_5103(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_9805) static void C_fcall f_9805(C_word t0,C_word t1,C_word t2) 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_9803) static void C_ccall f_9803(C_word c,C_word *av) C_noret; C_noret_decl(f_8557) static void C_ccall f_8557(C_word c,C_word *av) C_noret; C_noret_decl(f_5127) static void C_fcall f_5127(C_word t0,C_word t1,C_word t2) 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_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_4673) static void C_ccall f_4673(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_8561) static void C_ccall f_8561(C_word c,C_word *av) C_noret; C_noret_decl(f_11116) static void C_ccall f_11116(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_4659) static void C_ccall f_4659(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_4651) static void C_ccall f_4651(C_word c,C_word *av) C_noret; C_noret_decl(f_4654) static void C_ccall f_4654(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_11128) static void C_fcall f_11128(C_word t0,C_word t1,C_word t2) 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_5271) static void C_fcall f_5271(C_word t0,C_word t1,C_word t2) 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_4993) static void C_ccall f_4993(C_word c,C_word *av) C_noret; C_noret_decl(f_4992) static void C_ccall f_4992(C_word c,C_word *av) C_noret; C_noret_decl(f_9590) static void C_ccall f_9590(C_word c,C_word *av) C_noret; C_noret_decl(f_9866) static void C_ccall f_9866(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_11102) static void C_ccall f_11102(C_word c,C_word *av) C_noret; C_noret_decl(f_11169) static void C_ccall f_11169(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_11165) static void C_ccall f_11165(C_word c,C_word *av) C_noret; C_noret_decl(f_5237) static void C_fcall f_5237(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5688) static void C_fcall f_5688(C_word t0,C_word t1,C_word t2) 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_9550) static void C_fcall f_9550(C_word t0,C_word t1) C_noret; C_noret_decl(f_6281) static void C_ccall f_6281(C_word c,C_word *av) C_noret; C_noret_decl(f_6285) static void C_ccall f_6285(C_word c,C_word *av) 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_11191) static C_word C_fcall f_11191(C_word t0,C_word t1,C_word t2); C_noret_decl(f_8865) static void C_ccall f_8865(C_word c,C_word *av) C_noret; C_noret_decl(f_8869) static void C_ccall f_8869(C_word c,C_word *av) C_noret; C_noret_decl(f_9573) static void C_fcall f_9573(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_8875) static void C_ccall f_8875(C_word c,C_word *av) C_noret; C_noret_decl(f_7093) static void C_ccall f_7093(C_word c,C_word *av) C_noret; C_noret_decl(f_11174) static void C_ccall f_11174(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_8840) static void C_ccall f_8840(C_word c,C_word *av) 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_9511) static void C_ccall f_9511(C_word c,C_word *av) C_noret; C_noret_decl(f_9517) static void C_fcall f_9517(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_8851) static void C_ccall f_8851(C_word c,C_word *av) C_noret; C_noret_decl(f_6248) static void C_ccall f_6248(C_word c,C_word *av) C_noret; C_noret_decl(f_11409) static void C_ccall f_11409(C_word c,C_word *av) C_noret; C_noret_decl(f_8827) static void C_ccall f_8827(C_word c,C_word *av) C_noret; C_noret_decl(f_11418) static void C_ccall f_11418(C_word c,C_word *av) C_noret; C_noret_decl(f_8834) static void C_ccall f_8834(C_word c,C_word *av) C_noret; C_noret_decl(f_8837) static void C_ccall f_8837(C_word c,C_word *av) 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_6202) static void C_ccall f_6202(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_5212) static void C_ccall f_5212(C_word c,C_word *av) C_noret; C_noret_decl(f_5145) static void C_ccall f_5145(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_5141) static void C_ccall f_5141(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_5140) static void C_ccall f_5140(C_word c,C_word *av) C_noret; C_noret_decl(f_8081) static void C_fcall f_8081(C_word t0,C_word t1) C_noret; C_noret_decl(f_5157) static void C_fcall f_5157(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11460) static void C_fcall f_11460(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8091) static void C_fcall f_8091(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_10609) static void C_ccall f_10609(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_5763) static void C_ccall f_5763(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_5779) static void C_ccall f_5779(C_word c,C_word *av) C_noret; C_noret_decl(f_11725) static void C_ccall f_11725(C_word c,C_word *av) C_noret; C_noret_decl(f_11155) static void C_ccall f_11155(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_11721) static void C_ccall f_11721(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_10662) static void C_ccall f_10662(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_10664) static void C_ccall f_10664(C_word c,C_word *av) C_noret; C_noret_decl(f_5789) static void C_ccall f_5789(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_5798) static void C_ccall f_5798(C_word c,C_word *av) C_noret; C_noret_decl(f_10651) static void C_ccall f_10651(C_word c,C_word *av) C_noret; C_noret_decl(f_5792) static void C_ccall f_5792(C_word c,C_word *av) C_noret; C_noret_decl(f_10657) static void C_ccall f_10657(C_word c,C_word *av) C_noret; C_noret_decl(f_6223) static void C_fcall f_6223(C_word t0,C_word t1,C_word t2) 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_11137) static void C_ccall f_11137(C_word c,C_word *av) C_noret; C_noret_decl(f_11132) static void C_ccall f_11132(C_word c,C_word *av) C_noret; C_noret_decl(f_7757) static void C_ccall f_7757(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_10642) static C_word C_fcall f_10642(C_word t0); C_noret_decl(f_11149) static void C_ccall f_11149(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_11147) static void C_ccall f_11147(C_word c,C_word *av) C_noret; C_noret_decl(f_11143) static void C_ccall f_11143(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_10631) static void C_ccall f_10631(C_word c,C_word *av) C_noret; C_noret_decl(f_10634) static void C_ccall f_10634(C_word c,C_word *av) C_noret; C_noret_decl(f_10636) static C_word C_fcall f_10636(C_word t0); C_noret_decl(f_8892) static void C_ccall f_8892(C_word c,C_word *av) C_noret; C_noret_decl(f_5262) static void C_ccall f_5262(C_word c,C_word *av) C_noret; C_noret_decl(f_4096) static void C_fcall f_4096(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_7716) static void C_ccall f_7716(C_word c,C_word *av) C_noret; C_noret_decl(f_7717) static void C_ccall f_7717(C_word c,C_word *av) C_noret; C_noret_decl(f_10689) static void C_ccall f_10689(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_8788) static void C_ccall f_8788(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_7710) static void C_ccall f_7710(C_word c,C_word *av) 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_8782) static void C_fcall f_8782(C_word t0,C_word t1) 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_4074) static C_word C_fcall f_4074(C_word *a,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4); C_noret_decl(f_10676) static void C_ccall f_10676(C_word c,C_word *av) C_noret; C_noret_decl(f_10671) static void C_ccall f_10671(C_word c,C_word *av) C_noret; C_noret_decl(f_8793) static void C_fcall f_8793(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8769) static void C_ccall f_8769(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_6893) static void C_ccall f_6893(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_9532) static void C_ccall f_9532(C_word c,C_word *av) 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_8773) static void C_ccall f_8773(C_word c,C_word *av) C_noret; C_noret_decl(f_5713) static void C_ccall f_5713(C_word c,C_word *av) C_noret; C_noret_decl(f_9568) static void C_ccall f_9568(C_word c,C_word *av) C_noret; C_noret_decl(f_9564) static void C_ccall f_9564(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_5722) static void C_fcall f_5722(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5898) static void C_ccall f_5898(C_word c,C_word *av) C_noret; C_noret_decl(f_8720) static void C_ccall f_8720(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_8727) static void C_ccall f_8727(C_word c,C_word *av) C_noret; C_noret_decl(f_9377) static void C_fcall f_9377(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4014) static void C_fcall f_4014(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9363) static void C_ccall f_9363(C_word c,C_word *av) 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_9366) static void C_ccall f_9366(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_8700) static void C_ccall f_8700(C_word c,C_word *av) C_noret; C_noret_decl(f_9310) static void C_ccall f_9310(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_6481) static void C_ccall f_6481(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_9338) static void C_ccall f_9338(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_6503) static void C_ccall f_6503(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_11424) static void C_ccall f_11424(C_word c,C_word *av) C_noret; C_noret_decl(f_9328) static void C_fcall f_9328(C_word t0,C_word t1,C_word t2) 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_11434) static void C_ccall f_11434(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_11438) static void C_ccall f_11438(C_word c,C_word *av) C_noret; C_noret_decl(f_8251) static void C_ccall f_8251(C_word c,C_word *av) C_noret; C_noret_decl(f_8253) static void C_fcall f_8253(C_word t0,C_word t1) C_noret; C_noret_decl(f_7739) static void C_ccall f_7739(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_7731) static void C_ccall f_7731(C_word c,C_word *av) C_noret; C_noret_decl(f_11452) static void C_ccall f_11452(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_10761) static void C_fcall f_10761(C_word t0,C_word t1) C_noret; C_noret_decl(f_5870) static void C_ccall f_5870(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_10768) static void C_ccall f_10768(C_word c,C_word *av) C_noret; C_noret_decl(f_10696) static void C_ccall f_10696(C_word c,C_word *av) C_noret; C_noret_decl(f_7764) static void C_ccall f_7764(C_word c,C_word *av) C_noret; C_noret_decl(f_10693) static void C_fcall f_10693(C_word t0,C_word t1) 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_7760) static void C_ccall f_7760(C_word c,C_word *av) C_noret; C_noret_decl(f_5851) static void C_ccall f_5851(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_6865) static void C_ccall f_6865(C_word c,C_word *av) C_noret; C_noret_decl(f_10730) static void C_ccall f_10730(C_word c,C_word *av) C_noret; C_noret_decl(f_10736) static void C_ccall f_10736(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_4759) static void C_ccall f_4759(C_word c,C_word *av) C_noret; C_noret_decl(f_8263) static C_word C_fcall f_8263(C_word t0,C_word t1); C_noret_decl(f_10720) static void C_ccall f_10720(C_word c,C_word *av) C_noret; C_noret_decl(f_10727) static void C_fcall f_10727(C_word t0,C_word t1) C_noret; C_noret_decl(f_8907) static void C_ccall f_8907(C_word c,C_word *av) 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_8903) static void C_ccall f_8903(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_word t2) 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_10755) static void C_ccall f_10755(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_7156) static void C_fcall f_7156(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_10843) static void C_ccall f_10843(C_word c,C_word *av) C_noret; C_noret_decl(f_10840) static void C_ccall f_10840(C_word c,C_word *av) 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_8910) static void C_ccall f_8910(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_10835) static void C_ccall f_10835(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_6796) static void C_fcall f_6796(C_word t0,C_word t1) 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_7134) static void C_ccall f_7134(C_word c,C_word *av) C_noret; C_noret_decl(f_4279) static void C_ccall f_4279(C_word c,C_word *av) C_noret; C_noret_decl(f_10823) static void C_ccall f_10823(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_11557) static void C_fcall f_11557(C_word t0,C_word t1) 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_10819) static void C_fcall f_10819(C_word t0,C_word t1,C_word t2,C_word t3) 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_5808) static void C_ccall f_5808(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_4730) static void C_ccall f_4730(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_11537) static void C_ccall f_11537(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_8162) static void C_ccall f_8162(C_word c,C_word *av) C_noret; C_noret_decl(f_11541) static void C_ccall f_11541(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_8177) static void C_ccall f_8177(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_8170) static void C_ccall f_8170(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_9991) static void C_fcall f_9991(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9998) static void C_fcall f_9998(C_word t0,C_word t1) 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_10853) static void C_ccall f_10853(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_4749) static void C_ccall f_4749(C_word c,C_word *av) C_noret; C_noret_decl(f_9986) static void C_fcall f_9986(C_word t0,C_word t1) C_noret; C_noret_decl(f_11572) static void C_ccall f_11572(C_word c,C_word *av) C_noret; C_noret_decl(f_11574) static void C_ccall f_11574(C_word c,C_word *av) C_noret; C_noret_decl(f_11589) static void C_ccall f_11589(C_word c,C_word *av) C_noret; C_noret_decl(f_11585) static void C_ccall f_11585(C_word c,C_word *av) C_noret; C_noret_decl(f_9931) static void C_ccall f_9931(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_4204) static void C_ccall f_4204(C_word c,C_word *av) C_noret; C_noret_decl(f_3935) static void C_fcall f_3935(C_word t0,C_word t1,C_word t2,C_word t3) 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_10777) static void C_ccall f_10777(C_word c,C_word *av) C_noret; C_noret_decl(f_10771) static void C_ccall f_10771(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_9925) static void C_ccall f_9925(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_8105) static void C_ccall f_8105(C_word c,C_word *av) C_noret; C_noret_decl(f_3997) static void C_fcall f_3997(C_word t0,C_word t1,C_word t2,C_word t3) 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_6807) static C_word C_fcall f_6807(C_word t0); C_noret_decl(f_9943) static void C_ccall f_9943(C_word c,C_word *av) 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_9945) static void C_fcall f_9945(C_word t0,C_word t1,C_word t2) 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_10805) static void C_ccall f_10805(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_3974) static void C_ccall f_3974(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_10789) static void C_ccall f_10789(C_word c,C_word *av) C_noret; C_noret_decl(f_3970) static void C_fcall f_3970(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3985) static void C_fcall f_3985(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_11529) static void C_ccall f_11529(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_8466) static void C_ccall f_8466(C_word c,C_word *av) C_noret; C_noret_decl(f_9916) static void C_fcall f_9916(C_word t0,C_word t1,C_word t2) 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_4938) static void C_ccall f_4938(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_10903) static void C_ccall f_10903(C_word c,C_word *av) C_noret; C_noret_decl(f_4962) static void C_ccall f_4962(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_4954) static void C_ccall f_4954(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_8456) static void C_fcall f_8456(C_word t0,C_word t1,C_word t2) 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_4986) static void C_ccall f_4986(C_word c,C_word *av) C_noret; C_noret_decl(f_10950) static void C_ccall f_10950(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_3914) static void C_ccall f_3914(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_10883) static void C_ccall f_10883(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_10970) static void C_ccall f_10970(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_9970) static void C_ccall f_9970(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_noret; C_noret_decl(f_10873) static void C_fcall f_10873(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4135) static void C_fcall f_4135(C_word t0,C_word t1) 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_10961) static void C_ccall f_10961(C_word c,C_word *av) C_noret; C_noret_decl(f_10965) static void C_ccall f_10965(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_9279) static void C_ccall f_9279(C_word c,C_word *av) C_noret; C_noret_decl(f_4162) static void C_fcall f_4162(C_word t0,C_word t1) C_noret; C_noret_decl(f_11592) static void C_fcall f_11592(C_word t0,C_word t1) 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_3904) static void C_ccall f_3904(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_3901) static void C_ccall f_3901(C_word c,C_word *av) C_noret; C_noret_decl(f_9261) static void C_ccall f_9261(C_word c,C_word *av) C_noret; C_noret_decl(f_4158) static void C_ccall f_4158(C_word c,C_word *av) C_noret; C_noret_decl(f_4152) static void C_ccall f_4152(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_10983) static void C_ccall f_10983(C_word c,C_word *av) C_noret; C_noret_decl(f_10985) static void C_ccall f_10985(C_word c,C_word *av) C_noret; C_noret_decl(f_5344) static void C_ccall f_5344(C_word c,C_word *av) C_noret; C_noret_decl(f_5348) static void C_ccall f_5348(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_4485) static void C_ccall f_4485(C_word c,C_word *av) C_noret; C_noret_decl(f_4487) static void C_ccall f_4487(C_word c,C_word *av) 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_4901) static void C_ccall f_4901(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_5368) static void C_ccall f_5368(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_6170) static void C_ccall f_6170(C_word c,C_word *av) C_noret; C_noret_decl(f_4921) static void C_ccall f_4921(C_word c,C_word *av) C_noret; C_noret_decl(f_4917) static void C_ccall f_4917(C_word c,C_word *av) C_noret; C_noret_decl(f_6133) static void C_ccall f_6133(C_word c,C_word *av) C_noret; C_noret_decl(f_6186) static void C_fcall f_6186(C_word t0,C_word t1,C_word t2) 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_4334) static void C_ccall f_4334(C_word c,C_word *av) C_noret; C_noret_decl(f_7874) static void C_fcall f_7874(C_word t0,C_word t1,C_word t2) 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_11346,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_11331,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_11309,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_11283,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_11267,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_11230,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_11204,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_11165,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_11149,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_11137,0));} C_noret_decl(trf_5416) static void C_ccall trf_5416(C_word c,C_word *av) C_noret; static void C_ccall trf_5416(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5416(t0,t1,t2);} C_noret_decl(trf_8383) static void C_ccall trf_8383(C_word c,C_word *av) C_noret; static void C_ccall trf_8383(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8383(t0,t1,t2);} C_noret_decl(trf_7840) static void C_ccall trf_7840(C_word c,C_word *av) C_noret; static void C_ccall trf_7840(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7840(t0,t1,t2);} C_noret_decl(trf_7828) static void C_ccall trf_7828(C_word c,C_word *av) C_noret; static void C_ccall trf_7828(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7828(t0,t1,t2);} C_noret_decl(trf_6108) static void C_ccall trf_6108(C_word c,C_word *av) C_noret; static void C_ccall trf_6108(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6108(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_10205) static void C_ccall trf_10205(C_word c,C_word *av) C_noret; static void C_ccall trf_10205(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10205(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_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_10407) static void C_ccall trf_10407(C_word c,C_word *av) C_noret; static void C_ccall trf_10407(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10407(t0,t1,t2);} C_noret_decl(trf_7598) static void C_ccall trf_7598(C_word c,C_word *av) C_noret; static void C_ccall trf_7598(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_7598(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_7801) static void C_ccall trf_7801(C_word c,C_word *av) C_noret; static void C_ccall trf_7801(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7801(t0,t1,t2);} C_noret_decl(trf_10365) static void C_ccall trf_10365(C_word c,C_word *av) C_noret; static void C_ccall trf_10365(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10365(t0,t1,t2);} C_noret_decl(trf_7526) static void C_ccall trf_7526(C_word c,C_word *av) C_noret; static void C_ccall trf_7526(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_7526(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_9768) static void C_ccall trf_9768(C_word c,C_word *av) C_noret; static void C_ccall trf_9768(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9768(t0,t1);} 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[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_3839(t0,t1,t2,t3,t4);} C_noret_decl(trf_7255) static void C_ccall trf_7255(C_word c,C_word *av) C_noret; static void C_ccall trf_7255(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7255(t0,t1,t2);} C_noret_decl(trf_6783) static void C_ccall trf_6783(C_word c,C_word *av) C_noret; static void C_ccall trf_6783(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6783(t0,t1,t2);} C_noret_decl(trf_10527) static void C_ccall trf_10527(C_word c,C_word *av) C_noret; static void C_ccall trf_10527(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10527(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[1]; C_word t1=av[0]; f_7213(t0,t1);} C_noret_decl(trf_9682) static void C_ccall trf_9682(C_word c,C_word *av) C_noret; static void C_ccall trf_9682(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9682(t0,t1);} C_noret_decl(trf_6990) static void C_ccall trf_6990(C_word c,C_word *av) C_noret; static void C_ccall trf_6990(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6990(t0,t1,t2);} C_noret_decl(trf_10332) static void C_ccall trf_10332(C_word c,C_word *av) C_noret; static void C_ccall trf_10332(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10332(t0,t1,t2,t3);} C_noret_decl(trf_10513) static void C_ccall trf_10513(C_word c,C_word *av) C_noret; static void C_ccall trf_10513(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10513(t0,t1);} C_noret_decl(trf_8746) static void C_ccall trf_8746(C_word c,C_word *av) C_noret; static void C_ccall trf_8746(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8746(t0,t1);} C_noret_decl(trf_3715) static void C_ccall trf_3715(C_word c,C_word *av) C_noret; static void C_ccall trf_3715(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3715(t0,t1,t2);} C_noret_decl(trf_10599) static void C_ccall trf_10599(C_word c,C_word *av) C_noret; static void C_ccall trf_10599(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10599(t0,t1,t2);} C_noret_decl(trf_3783) static void C_ccall trf_3783(C_word c,C_word *av) C_noret; static void C_ccall trf_3783(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3783(t0,t1,t2);} C_noret_decl(trf_6687) static void C_ccall trf_6687(C_word c,C_word *av) C_noret; static void C_ccall trf_6687(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6687(t0,t1,t2);} C_noret_decl(trf_3707) static void C_ccall trf_3707(C_word c,C_word *av) C_noret; static void C_ccall trf_3707(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3707(t0,t1,t2);} C_noret_decl(trf_6667) static void C_ccall trf_6667(C_word c,C_word *av) C_noret; static void C_ccall trf_6667(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6667(t0,t1,t2,t3);} C_noret_decl(trf_5558) static void C_ccall trf_5558(C_word c,C_word *av) C_noret; static void C_ccall trf_5558(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5558(t0,t1,t2,t3);} C_noret_decl(trf_3745) static void C_ccall trf_3745(C_word c,C_word *av) C_noret; static void C_ccall trf_3745(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3745(t0,t1,t2);} C_noret_decl(trf_9465) static void C_ccall trf_9465(C_word c,C_word *av) C_noret; static void C_ccall trf_9465(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9465(t0,t1);} C_noret_decl(trf_9492) static void C_ccall trf_9492(C_word c,C_word *av) C_noret; static void C_ccall trf_9492(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9492(t0,t1,t2,t3);} C_noret_decl(trf_8973) static void C_ccall trf_8973(C_word c,C_word *av) C_noret; static void C_ccall trf_8973(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8973(t0,t1);} C_noret_decl(trf_9421) static void C_ccall trf_9421(C_word c,C_word *av) C_noret; static void C_ccall trf_9421(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9421(t0,t1,t2);} C_noret_decl(trf_6354) static void C_ccall trf_6354(C_word c,C_word *av) C_noret; static void C_ccall trf_6354(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6354(t0,t1,t2);} C_noret_decl(trf_8936) static void C_ccall trf_8936(C_word c,C_word *av) C_noret; static void C_ccall trf_8936(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8936(t0,t1,t2,t3);} C_noret_decl(trf_8182) static void C_ccall trf_8182(C_word c,C_word *av) C_noret; static void C_ccall trf_8182(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8182(t0,t1,t2);} C_noret_decl(trf_9137) static void C_ccall trf_9137(C_word c,C_word *av) C_noret; static void C_ccall trf_9137(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9137(t0,t1,t2);} 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_8996) static void C_ccall trf_8996(C_word c,C_word *av) C_noret; static void C_ccall trf_8996(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8996(t0,t1,t2);} C_noret_decl(trf_10135) static void C_ccall trf_10135(C_word c,C_word *av) C_noret; static void C_ccall trf_10135(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10135(t0,t1);} C_noret_decl(trf_11008) static void C_ccall trf_11008(C_word c,C_word *av) C_noret; static void C_ccall trf_11008(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11008(t0,t1);} C_noret_decl(trf_5654) static void C_ccall trf_5654(C_word c,C_word *av) C_noret; static void C_ccall trf_5654(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5654(t0,t1,t2);} C_noret_decl(trf_3632) static void C_ccall trf_3632(C_word c,C_word *av) C_noret; static void C_ccall trf_3632(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3632(t0,t1,t2);} C_noret_decl(trf_9448) static void C_ccall trf_9448(C_word c,C_word *av) C_noret; static void C_ccall trf_9448(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9448(t0,t1,t2);} C_noret_decl(trf_5606) static void C_ccall trf_5606(C_word c,C_word *av) C_noret; static void C_ccall trf_5606(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5606(t0,t1,t2,t3);} C_noret_decl(trf_4403) static void C_ccall trf_4403(C_word c,C_word *av) C_noret; static void C_ccall trf_4403(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4403(t0,t1);} C_noret_decl(trf_10004) static void C_ccall trf_10004(C_word c,C_word *av) C_noret; static void C_ccall trf_10004(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10004(t0,t1);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_6956(t0,t1,t2);} C_noret_decl(trf_9188) static void C_ccall trf_9188(C_word c,C_word *av) C_noret; static void C_ccall trf_9188(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9188(t0,t1,t2);} C_noret_decl(trf_7044) static void C_ccall trf_7044(C_word c,C_word *av) C_noret; static void C_ccall trf_7044(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7044(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_11069(t0,t1);} C_noret_decl(trf_11021) static void C_ccall trf_11021(C_word c,C_word *av) C_noret; static void C_ccall trf_11021(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11021(t0,t1);} C_noret_decl(trf_5187) static void C_ccall trf_5187(C_word c,C_word *av) C_noret; static void C_ccall trf_5187(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5187(t0,t1,t2);} C_noret_decl(trf_9896) static void C_ccall trf_9896(C_word c,C_word *av) C_noret; static void C_ccall trf_9896(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9896(t0,t1);} C_noret_decl(trf_9805) static void C_ccall trf_9805(C_word c,C_word *av) C_noret; static void C_ccall trf_9805(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9805(t0,t1,t2);} C_noret_decl(trf_5127) static void C_ccall trf_5127(C_word c,C_word *av) C_noret; static void C_ccall trf_5127(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5127(t0,t1,t2);} C_noret_decl(trf_11128) static void C_ccall trf_11128(C_word c,C_word *av) C_noret; static void C_ccall trf_11128(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11128(t0,t1,t2);} C_noret_decl(trf_5271) static void C_ccall trf_5271(C_word c,C_word *av) C_noret; static void C_ccall trf_5271(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5271(t0,t1,t2);} C_noret_decl(trf_5237) static void C_ccall trf_5237(C_word c,C_word *av) C_noret; static void C_ccall trf_5237(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5237(t0,t1,t2);} C_noret_decl(trf_5688) static void C_ccall trf_5688(C_word c,C_word *av) C_noret; static void C_ccall trf_5688(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5688(t0,t1,t2);} C_noret_decl(trf_9550) static void C_ccall trf_9550(C_word c,C_word *av) C_noret; static void C_ccall trf_9550(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9550(t0,t1);} C_noret_decl(trf_9573) static void C_ccall trf_9573(C_word c,C_word *av) C_noret; static void C_ccall trf_9573(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9573(t0,t1,t2,t3);} C_noret_decl(trf_9517) static void C_ccall trf_9517(C_word c,C_word *av) C_noret; static void C_ccall trf_9517(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_9517(t0,t1,t2,t3,t4);} C_noret_decl(trf_8081) static void C_ccall trf_8081(C_word c,C_word *av) C_noret; static void C_ccall trf_8081(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8081(t0,t1);} C_noret_decl(trf_5157) static void C_ccall trf_5157(C_word c,C_word *av) C_noret; static void C_ccall trf_5157(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5157(t0,t1,t2,t3);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_11460(t0,t1,t2);} C_noret_decl(trf_8091) static void C_ccall trf_8091(C_word c,C_word *av) C_noret; static void C_ccall trf_8091(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_8091(t0,t1,t2,t3,t4);} C_noret_decl(trf_6223) static void C_ccall trf_6223(C_word c,C_word *av) C_noret; static void C_ccall trf_6223(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6223(t0,t1,t2);} C_noret_decl(trf_4096) static void C_ccall trf_4096(C_word c,C_word *av) C_noret; static void C_ccall trf_4096(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_4096(t0,t1,t2,t3,t4,t5,t6,t7);} 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_8793) static void C_ccall trf_8793(C_word c,C_word *av) C_noret; static void C_ccall trf_8793(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8793(t0,t1,t2);} C_noret_decl(trf_5722) static void C_ccall trf_5722(C_word c,C_word *av) C_noret; static void C_ccall trf_5722(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5722(t0,t1,t2);} C_noret_decl(trf_9377) static void C_ccall trf_9377(C_word c,C_word *av) C_noret; static void C_ccall trf_9377(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9377(t0,t1,t2);} C_noret_decl(trf_4014) static void C_ccall trf_4014(C_word c,C_word *av) C_noret; static void C_ccall trf_4014(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4014(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_9328) static void C_ccall trf_9328(C_word c,C_word *av) C_noret; static void C_ccall trf_9328(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9328(t0,t1,t2);} C_noret_decl(trf_8253) static void C_ccall trf_8253(C_word c,C_word *av) C_noret; static void C_ccall trf_8253(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8253(t0,t1);} C_noret_decl(trf_10761) static void C_ccall trf_10761(C_word c,C_word *av) C_noret; static void C_ccall trf_10761(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10761(t0,t1);} C_noret_decl(trf_10693) static void C_ccall trf_10693(C_word c,C_word *av) C_noret; static void C_ccall trf_10693(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10693(t0,t1);} C_noret_decl(trf_10727) static void C_ccall trf_10727(C_word c,C_word *av) C_noret; static void C_ccall trf_10727(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10727(t0,t1);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_6840(t0,t1,t2);} C_noret_decl(trf_7156) static void C_ccall trf_7156(C_word c,C_word *av) C_noret; static void C_ccall trf_7156(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7156(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_6796) static void C_ccall trf_6796(C_word c,C_word *av) C_noret; static void C_ccall trf_6796(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6796(t0,t1);} C_noret_decl(trf_11557) static void C_ccall trf_11557(C_word c,C_word *av) C_noret; static void C_ccall trf_11557(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11557(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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10819(t0,t1,t2,t3);} C_noret_decl(trf_9991) static void C_ccall trf_9991(C_word c,C_word *av) C_noret; static void C_ccall trf_9991(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9991(t0,t1,t2);} C_noret_decl(trf_9998) static void C_ccall trf_9998(C_word c,C_word *av) C_noret; static void C_ccall trf_9998(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9998(t0,t1);} C_noret_decl(trf_9986) static void C_ccall trf_9986(C_word c,C_word *av) C_noret; static void C_ccall trf_9986(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9986(t0,t1);} C_noret_decl(trf_3935) static void C_ccall trf_3935(C_word c,C_word *av) C_noret; static void C_ccall trf_3935(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3935(t0,t1,t2,t3);} 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_3997) static void C_ccall trf_3997(C_word c,C_word *av) C_noret; static void C_ccall trf_3997(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3997(t0,t1,t2,t3);} 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_3970) static void C_ccall trf_3970(C_word c,C_word *av) C_noret; static void C_ccall trf_3970(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3970(t0,t1,t2,t3);} C_noret_decl(trf_3985) static void C_ccall trf_3985(C_word c,C_word *av) C_noret; static void C_ccall trf_3985(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_3985(t0,t1,t2,t3,t4);} C_noret_decl(trf_9916) static void C_ccall trf_9916(C_word c,C_word *av) C_noret; static void C_ccall trf_9916(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9916(t0,t1,t2);} C_noret_decl(trf_8456) static void C_ccall trf_8456(C_word c,C_word *av) C_noret; static void C_ccall trf_8456(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8456(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[1]; C_word t1=av[0]; f_9240(t0,t1);} C_noret_decl(trf_10873) static void C_ccall trf_10873(C_word c,C_word *av) C_noret; static void C_ccall trf_10873(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10873(t0,t1,t2);} C_noret_decl(trf_4135) static void C_ccall trf_4135(C_word c,C_word *av) C_noret; static void C_ccall trf_4135(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4135(t0,t1);} C_noret_decl(trf_4162) static void C_ccall trf_4162(C_word c,C_word *av) C_noret; static void C_ccall trf_4162(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4162(t0,t1);} C_noret_decl(trf_11592) static void C_ccall trf_11592(C_word c,C_word *av) C_noret; static void C_ccall trf_11592(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11592(t0,t1);} C_noret_decl(trf_6186) static void C_ccall trf_6186(C_word c,C_word *av) C_noret; static void C_ccall trf_6186(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6186(t0,t1,t2);} C_noret_decl(trf_7874) static void C_ccall trf_7874(C_word c,C_word *av) C_noret; static void C_ccall trf_7874(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7874(t0,t1,t2);} /* map-loop667 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_5416(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_5416,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[72]); 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_mutate2(((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);}}} /* f_4326 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4326,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(-1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* doloop1749 in k8376 in k8373 in k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in ... */ static void C_fcall f_8383(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_8383,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_8393,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:1023: 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_8393(2,av2);}}}} /* k7863 in map-loop1484 in k7821 */ static void C_ccall f_7865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_7865,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7840(t6,((C_word*)t0)[5],t5);} /* k5464 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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(26,c,3)))){ C_save_and_reclaim((void *)f_5466,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_word*)lf[63]+1); t8=C_i_check_list_2(t2,lf[64]); t9=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5475,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((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); 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_5688,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li79),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_5688(t13,t9,t2);} /* k8394 in k8391 in doloop1749 in k8376 in k8373 in k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 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 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_8396,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8403,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1021: read */ t3=*((C_word*)lf[195]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8391 in doloop1749 in k8376 in k8373 in k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 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 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_8393,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8396,a[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_8405,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word)li171),tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8439,a[2]=((C_word*)t0)[8],a[3]=((C_word)li173),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1024: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* f_4350 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4350,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(2); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4352 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4352,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5473 in k5464 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 t5; C_word 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(26,c,3)))){ C_save_and_reclaim((void *)f_5475,2,av);} a=C_alloc(26); 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|12,a[1]=(C_word)f_5501,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]=t4,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],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_5654,a[2]=t7,a[3]=t11,a[4]=t8,a[5]=((C_word)li78),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_5654(t13,t9,((C_word*)t0)[11]);} /* k9776 in k9766 in k9747 in k9732 in k9581 in doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 in ... */ static void C_ccall f_9778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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,3)))){ C_save_and_reclaim((void *)f_9778,2,av);} a=C_alloc(20); 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_truep(((C_word*)t0)[2])?C_i_cdr(((C_word*)t0)[2]):C_a_i_list1(&a,1,((C_word*)t0)[3])); t7=C_i_check_list_2(t6,lf[64]); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9803,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_9805,a[2]=t4,a[3]=t10,a[4]=t5,a[5]=((C_word)li221),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_9805(t12,t8,t6);} /* f_4342 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4342,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop1484 in k7821 */ static void C_fcall f_7840(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_7840,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_7865,a[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:822: g1490 */ t5=((C_word*)t0)[4]; f_7828(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);}}} /* k7836 in k7821 */ static void C_ccall f_7838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7838,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* g1490 in k7821 */ static void C_fcall f_7828(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_7828,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);}} /* k7821 */ 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 t5; C_word 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_7823,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_7828,a[2]=((C_word*)t0)[2],a[3]=((C_word)li146),tmp=(C_word)a,a+=4,tmp); t8=C_i_check_list_2(((C_word*)t0)[3],lf[64]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7838,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_7840,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li147),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_7840(t13,t9,((C_word*)t0)[3]);} /* map-loop894 in a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_6108(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_6108,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_6133,a[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:484: g900 */ 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);}}} /* k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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(19,c,2)))){ C_save_and_reclaim((void *)f_4319,2,av);} a=C_alloc(19); if(C_truep(t1)){ t2=((C_word*)t0)[2]; switch(t2){ case C_fix(-1): t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4326,a[2]=((C_word)li37),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_4334,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4342,a[2]=((C_word)li39),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_4350,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_4352,a[2]=((C_word*)t0)[2],a[3]=((C_word)li41),tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_4371,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_4373,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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|14,a[1]=(C_word)f_4383,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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(t2)){ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; f_4383(2,av2);}} else{ t4=C_eofp(((C_word*)t0)[2]); if(C_truep(t4)){ t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; f_4383(2,av2);}} else{ t5=C_i_stringp(((C_word*)t0)[2]); if(C_truep(t5)){ t6=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; f_4383(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7497,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:302: blob? */ t7=*((C_word*)lf[167]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}}}}}} /* foldr2370 in strip in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 in ... */ 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 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_10214,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_10245,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);}}} /* k6408 in k6405 in k6402 in k6399 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6410(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6410,2,av);} /* eval.scm:610: compile */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4096(t2,((C_word*)t0)[3],lf[93],((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k6415 in k6405 in k6402 in k6399 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_6417,2,av);} a=C_alloc(5); t2=t1; t3=(*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]=t2,tmp=(C_word)a,a+=5,tmp); /* eval.scm:609: ##sys#eval/meta */ t4=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6100 in k5790 in k5787 in a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_6102,2,av);} t2=((C_word*)t0)[2]; if(C_truep(t2)){ /* eval.scm:488: ##sys#compile-to-closure */ t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=t2; av2[6]=((C_word*)t0)[6]; av2[7]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} else{ t3=((C_word*)t0)[8]; /* eval.scm:488: ##sys#compile-to-closure */ t4=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=t3; av2[6]=((C_word*)t0)[6]; av2[7]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(8,av2);}}} /* k9732 in k9581 in doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9734,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=C_i_assq(lf[294],t1); t3=t2; t4=C_i_assq(lf[293],t1); t5=t4; t6=C_i_assq(lf[279],t1); t7=t6; t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9749,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t5,a[7]=t7,a[8]=t3,a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); if(C_truep(t3)){ /* eval.scm:1343: add-req */ t9=((C_word*)((C_word*)t0)[6])[1]; f_9492(t9,t8,((C_word*)t0)[3],C_SCHEME_TRUE);} else{ t9=t8;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_9749(2,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9866,a[2]=((C_word*)t0)[2],a[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:1359: add-req */ t3=((C_word*)((C_word*)t0)[6])[1]; f_9492(t3,t2,((C_word*)t0)[3],C_SCHEME_FALSE);}} /* f_4300 in a4121 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4300(C_word c,C_word *av){ C_word tmp; C_word 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_4300,3,av);} t3=C_u_i_list_ref(t2,((C_word*)t0)[2]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t3,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* strip in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_10205(C_word 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_10205,2,t1,t2);} a=C_alloc(6); t3=C_i_check_list_2(t2,lf[311]); 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_10214,a[2]=t5,a[3]=((C_word)li232),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_10214(t7,t1,t2);} /* k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_10203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_10203,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10205,a[2]=((C_word)li233),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11385,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:1446: strip */ f_10205(t4,t5);} /* k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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(6,c,3)))){ C_save_and_reclaim((void *)f_10200,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10203,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:1425: module-environment */ t4=*((C_word*)lf[391]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[392]; av2[3]=lf[393]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k6423 in k6402 in k6399 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6425,2,av);} /* eval.scm:603: ##sys#register-syntax-export */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[95]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[95]+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);}} /* k6419 in k6415 in k6405 in k6402 in k6399 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6421,2,av);} /* eval.scm:606: ##sys#extend-macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[94]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[94]+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);}} /* scheme-report-environment in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 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=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,4)))){ C_save_and_reclaim((void *)f_10263,3,av);} t3=C_i_check_exact_2(t2,lf[309]); t4=t2; switch(t4){ case C_fix(4): t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);} case C_fix(5): t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);} default: /* eval.scm:1457: ##sys#error */ t5=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=lf[309]; av2[3]=lf[319]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k6402 in k6399 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_6404,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6407,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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|4,a[1]=(C_word)f_6425,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp); /* eval.scm:604: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[96]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[96]+1); av2[1]=t3; tp(2,av2);}} /* k6399 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_6401,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6404,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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)[9])){ if(C_truep(C_i_assq(((C_word*)t0)[10],((C_word*)t0)[7]))){ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_6404(2,av2);}} else{ /* eval.scm:602: ##sys#error */ t4=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[56]; av2[3]=lf[97]; av2[4]=((C_word*)t0)[11]; av2[5]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_6404(2,av2);}}} /* load-relative in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *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_8692,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_8700,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=C_i_string_ref(t2,C_fix(0)); if(C_truep((C_truep(C_eqp(t5,C_make_character(92)))?C_SCHEME_TRUE:(C_truep(C_eqp(t5,C_make_character(47)))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t6=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t2; f_8700(2,av2);}} else{ /* eval.scm:1046: ##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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t4; av2[2]=*((C_word*)lf[182]+1); av2[3]=t2; tp(4,av2);}}} /* k6405 in k6402 in k6399 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6407(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_6407,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6410,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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|4,a[1]=(C_word)f_6417,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp); /* eval.scm:608: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[61]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[61]+1); av2[1]=t3; tp(2,av2);}} /* map-loop694 in k5342 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_5382(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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_5382,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[55],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_mutate2(((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);}}} /* k6458 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6460,2,av);} /* eval.scm:616: compile */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4096(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]);} /* load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_8676,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:1040: ##sys#load */ t4=*((C_word*)lf[193]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_i_car(t3); /* eval.scm:1040: ##sys#load */ t5=*((C_word*)lf[193]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t4; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k6049 in a6038 */ static void C_ccall f_6051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6051,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; /* Re-use our own argvector */ } 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_6056 in k5796 in k5790 in k5787 in a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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,5)))){ C_save_and_reclaim((void *)f_6056,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6062,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word)li104),tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[4]; t5=((C_word*)t0)[5]; /* eval.scm:245: ##sys#eval-decorator */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[6]; av2[4]=t4; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* k6053 in a6038 */ static void C_ccall f_6055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6055,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[77]+1); av2[3]=t1; C_apply(4,av2);}} /* a6061 */ 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 *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_6062,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(t5)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6084,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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[77]+1); av2[3]=t2; C_apply(4,av2);}} else{ /* eval.scm:560: ##sys#error */ t6=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=lf[79]; av2[3]=((C_word*)t0)[2]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* a5997 */ 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=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_5998,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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t1; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* f_5992 in k5796 in k5790 in k5787 in a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_5992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,6)))){ C_save_and_reclaim((void *)f_5992,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5998,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li97),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; /* eval.scm:245: ##sys#eval-decorator */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[5]; av2[4]=t4; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* loop in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static C_word C_fcall f_7572(C_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);}}} /* k7897 in map-loop1456 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_7899,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7874(t6,((C_word*)t0)[5],t5);} /* f_6033 in k5796 in k5790 in k5787 in a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6033(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,5)))){ C_save_and_reclaim((void *)f_6033,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6039,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li102),tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[4]; t5=((C_word*)t0)[5]; /* eval.scm:245: ##sys#eval-decorator */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[6]; av2[4]=t4; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* k9297 in load-extension in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9299,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_9240(t3,t2);} /* a6038 */ static void C_ccall f_6039(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_6039,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_6051,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_6055,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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t3; av2[2]=*((C_word*)lf[77]+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_7526,a[2]=t6,a[3]=t8,a[4]=((C_word)li101),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_7526(t10,t4,t5,C_fix(0),t6,C_SCHEME_FALSE);}} /* null-environment in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in ... */ static void C_ccall f_10288(C_word c,C_word *av){ C_word tmp; C_word 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,4)))){ C_save_and_reclaim((void *)f_10288,3,av);} t3=C_i_check_exact_2(t2,lf[310]); t4=t2; switch(t4){ case C_fix(4): t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);} case C_fix(5): t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);} default: /* eval.scm:1467: ##sys#error */ t5=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=lf[310]; av2[3]=lf[320]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in ... */ 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 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_10315,2,av);} a=C_alloc(15); t2=C_a_i_list1(&a,1,t1); t3=C_mutate2((C_word*)lf[262]+1 /* (set! ##sys#include-pathnames ...) */,t2); t4=C_mutate2((C_word*)lf[248]+1 /* (set! ##sys#resolve-include-filename ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10326,a[2]=((C_word)li239),tmp=(C_word)a,a+=3,tmp)); t5=C_set_block_item(lf[322] /* ##sys#repl-print-length-limit */,0,C_SCHEME_FALSE); t6=C_set_block_item(lf[323] /* ##sys#repl-read-hook */,0,C_SCHEME_FALSE); t7=C_set_block_item(lf[324] /* ##sys#repl-recent-call-chain */,0,C_SCHEME_FALSE); t8=C_mutate2((C_word*)lf[325]+1 /* (set! ##sys#repl-print-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10463,a[2]=((C_word)li241),tmp=(C_word)a,a+=3,tmp)); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10480,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11356,a[2]=((C_word)li294),tmp=(C_word)a,a+=3,tmp); /* eval.scm:1522: make-parameter */ t11=*((C_word*)lf[390]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t9; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* loop in canonicalize-extension-path in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9072,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[252]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_slot(t2,C_fix(0)); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9089,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_symbolp(t3))){ /* eval.scm:1150: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[251]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[251]+1); av2[1]=t4; av2[2]=t3; tp(3,av2);}} else{ if(C_truep(C_i_stringp(t3))){ t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=t3; f_9089(2,av2);}} else{ /* eval.scm:1152: err */ t5=((C_word*)((C_word*)t0)[3])[1]; f_8973(t5,t4);}}}} /* k8614 in k8599 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_8616,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_8314(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8619,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:974: ##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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[219]+1); tp(4,av2);}}} /* k8617 in k8614 in k8599 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_8619,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8625,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*)lf[184]+1); if(C_truep(*((C_word*)lf[184]+1))){ t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_8625(2,av2);}} else{ if(C_truep(C_fudge(C_fix(24)))){ /* eval.scm:977: ##sys#file-exists? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[218]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[218]+1); av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; av2[5]=lf[200]; tp(6,av2);}} else{ t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_8625(2,av2);}}}} /* k3892 in a3885 in eval-decorator in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_3894(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3894,2,av);} t2=C_i_setslot(((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10403 in k10393 in resolve-include-filename in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in ... */ 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 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_10405,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_10407,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word)li238),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_10407(t5,((C_word*)t0)[4],t1);} /* loop in k10403 in k10393 in resolve-include-filename in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in ... */ static void C_fcall f_10407(C_word t0,C_word 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_10407,3,t0,t1,t2);} a=C_alloc(9); t3=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10417,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10431,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_slot(t2,C_fix(0)); /* eval.scm:1506: string-append */ t7=*((C_word*)lf[238]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=lf[321]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k8623 in k8617 in k8614 in k8599 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8625(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_8625,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_8314(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8628,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* eval.scm:979: ##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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[8]; tp(4,av2);}}} /* k8626 in k8623 in k8617 in k8614 in k8599 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_8628,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8634,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* eval.scm:980: ##sys#file-exists? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[218]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[218]+1); av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; av2[5]=lf[200]; tp(6,av2);}} /* k3896 in a3885 in eval-decorator in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3898,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3901,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* eval.scm:189: write */ t4=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4685 in k4682 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4687,2,av);} t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4682 */ 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; 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_4684,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4687,a[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; /* Re-use our own argvector */ } 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);}} /* f_4680 in k4677 in k4674 in k4671 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_4680,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4684,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a5969 */ 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=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_5970,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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t1; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_7598(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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,0,7)))){ C_save_and_reclaim_args((void *)trf_7598,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(14); t7=C_slot(t2,C_fix(0)); t8=t7; t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7605,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],a[9]=t6,tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_closurep(t8))){ t10=t9;{ C_word av2[2]; av2[0]=t10; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7922,a[2]=t8,a[3]=((C_word)li150),tmp=(C_word)a,a+=4,tmp); f_7605(2,av2);}} else{ t10=C_slot(t2,C_fix(0)); /* eval.scm:788: compile */ t11=((C_word*)((C_word*)t0)[3])[1]; f_4096(t11,t9,t10,t3,C_SCHEME_FALSE,t4,t5,t6);}} /* k8599 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_8601,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_8314(2,av2);}} else{ if(C_truep(C_i_stringp(((C_word*)t0)[3]))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8616,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:972: ##sys#file-exists? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[218]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[218]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; av2[5]=lf[200]; tp(6,av2);}} else{ t2=((C_word*)t0)[3]; /* eval.scm:966: ##sys#signal-hook */ t3=*((C_word*)lf[191]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[220]; av2[3]=lf[200]; av2[4]=lf[221]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}}} /* k9033 in check in k8989 in canonicalize-extension-path in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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,2)))){ C_save_and_reclaim((void *)f_9035,2,av);} /* eval.scm:1163: check */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8996(t2,((C_word*)t0)[3],t1);} /* k10415 in loop in k10403 in k10393 in resolve-include-filename in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10417,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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:1509: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_10407(t3,((C_word*)t0)[2],t2);}} /* k8584 in k8581 in k8578 in k8590 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8586,2,av);} /* eval.scm:990: flush-output */ t2=*((C_word*)lf[214]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8578 in k8590 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8580,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8583,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:988: display */ t3=*((C_word*)lf[215]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8581 in k8578 in k8590 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8583,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8586,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:989: display */ t3=*((C_word*)lf[215]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[216]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k9020 in check in k8989 in canonicalize-extension-path in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9022,2,av);} /* eval.scm:1161: check */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8996(t2,((C_word*)t0)[3],t1);} /* f_5917 in k5796 in k5790 in k5787 in a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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,5)))){ C_save_and_reclaim((void *)f_5917,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5923,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li91),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; /* eval.scm:245: ##sys#eval-decorator */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[5]; av2[4]=t4; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* k10440 in k10393 in resolve-include-filename in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in ... */ static void C_ccall f_10442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10442,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10452,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1502: ##sys#repository-path */ t3=*((C_word*)lf[256]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* eval.scm:1498: ##sys#append */ t2=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[262]+1); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k7809 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_7811,2,av);} a=C_alloc(10); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7812,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)li148),tmp=(C_word)a,a+=10,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_7812 in k7809 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_7812,3,av);} a=C_alloc(10); t3=( /* eval.scm:821: emit-trace-info */ f_4074(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_7823,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3859 in loop in hash-table-size in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_3861,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],t1); /* eval.scm:176: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3839(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2);} /* a5922 */ 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=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_5923,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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* g1462 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_7801(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_7801,3,t0,t1,t2);} /* eval.scm:819: compile */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4096(t3,t1,t2,((C_word*)t0)[3],C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* k3513 in k3510 in k11719 in k3488 in k3485 */ 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 t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(42,c,6)))){ C_save_and_reclaim((void *)f_3515,2,av);} a=C_alloc(42); t2=t1; t3=C_mutate2((C_word*)lf[10]+1 /* (set! ##sys#chicken-prefix ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3516,a[2]=t2,a[3]=((C_word)li0),tmp=(C_word)a,a+=4,tmp)); t4=C_mutate2((C_word*)lf[12]+1 /* (set! chicken-home ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3537,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); 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=C_rnd_fix(); t10=C_mutate2((C_word*)lf[15]+1 /* (set! ##sys#hash-symbol ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3549,a[2]=t6,a[3]=t8,a[4]=t9,a[5]=((C_word)li2),tmp=(C_word)a,a+=6,tmp)); t11=C_mutate2((C_word*)lf[16]+1 /* (set! ##sys#hash-table-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3564,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[17]+1 /* (set! ##sys#hash-table-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3620,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[18]+1 /* (set! ##sys#hash-table-update! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3681,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[19]+1 /* (set! ##sys#hash-table-for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3701,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t15=C_slot(lf[21],C_fix(0)); t16=t15; t17=C_mutate2((C_word*)lf[22]+1 /* (set! ##sys#hash-table-location ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3771,a[2]=t16,a[3]=((C_word)li13),tmp=(C_word)a,a+=4,tmp)); t18=C_mutate2((C_word*)lf[23]+1 /* (set! ##sys#hash-table-size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3829,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2((C_word*)lf[25]+1 /* (set! ##sys#eval-decorator ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3867,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t20=C_set_block_item(lf[31] /* ##sys#unbound-in-eval */,0,C_SCHEME_FALSE); t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3909,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:194: make-parameter */ t22=*((C_word*)lf[390]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t22; av2[1]=t21; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t22+1)))(3,av2);}} /* ##sys#chicken-prefix in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,3)))){ C_save_and_reclaim((void*)f_3516,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_word*)t0)[2])){ if(C_truep(t4)){ /* eval.scm:104: ##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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t4; tp(4,av2);}} else{ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* test in resolve-include-filename in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in ... */ static void C_fcall f_10365(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_10365,3,t0,t1,t2);} a=C_alloc(6); t3=C_fudge(C_fix(24)); t4=(C_truep(t3)?(C_truep(((C_word*)t0)[2])?C_a_i_list2(&a,2,lf[8],*((C_word*)lf[219]+1)):C_a_i_list2(&a,2,*((C_word*)lf[219]+1),lf[8])):C_a_i_list1(&a,1,lf[8])); /* eval.scm:1491: test2 */ t5=((C_word*)((C_word*)t0)[3])[1]; f_10332(t5,t1,t2,t4);} /* a3872 in eval-decorator in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_3873,3,av);} if(C_truep(C_immp(t2))){ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_lambdainfop(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3510 in k11719 in k3488 in k3485 */ 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; C_word t3; 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_3512,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3515,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=C_block_size(t1); t4=C_fixnum_difference(t3,C_fix(1)); t5=C_i_string_ref(t1,t4); if(C_truep((C_truep(C_eqp(t5,C_make_character(92)))?C_SCHEME_TRUE:(C_truep(C_eqp(t5,C_make_character(47)))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ /* eval.scm:99: ##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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t2; av2[2]=t1; av2[3]=lf[420]; tp(4,av2);}} else{ /* eval.scm:99: ##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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t2; av2[2]=t1; av2[3]=lf[421]; tp(4,av2);}}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_3515(2,av2);}}} /* ##sys#eval-decorator in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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(7,c,4)))){ C_save_and_reclaim((void *)f_3867,6,av);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3873,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3886,a[2]=t3,a[3]=((C_word)li17),tmp=(C_word)a,a+=4,tmp); /* eval.scm:181: ##sys#decorate-lambda */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[30]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[30]+1); av2[1]=t1; av2[2]=t2; av2[3]=t6; av2[4]=t7; tp(5,av2);}} /* k10393 in resolve-include-filename in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_10395,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_10405,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_10442,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1500: ##sys#repository-path */ t4=*((C_word*)lf[256]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=*((C_word*)lf[262]+1); f_10405(2,av2);}}}} /* k9754 in k9747 in k9732 in k9581 in doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9756,2,av);} /* eval.scm:1344: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; C_values(5,av2);}} /* loop in k3615 in hash-table-ref in k3513 in k3510 in k11719 in k3488 in k3485 */ static C_word C_fcall f_3574(C_word t0,C_word t1){ C_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(t2)){ return(C_SCHEME_FALSE);} else{ 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;}}} /* k9747 in k9732 in k9581 in doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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(32,c,2)))){ C_save_and_reclaim((void *)f_9749,2,av);} a=C_alloc(32); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9756,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_9764,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9768,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=t3,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[8])){ t5=C_a_i_list(&a,2,lf[124],((C_word*)t0)[3]); t6=C_a_i_list(&a,2,lf[121],t5); t7=t4; f_9768(t7,C_a_i_list(&a,1,t6));} else{ t5=t4; f_9768(t5,C_SCHEME_END_OF_LIST);}} /* a5950 */ 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=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_5951,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; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t1; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* a3885 in eval-decorator in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_3886,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3894,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_3898,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:188: open-output-string */ t6=*((C_word*)lf[29]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in ... */ static void C_ccall f_10480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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(18,c,3)))){ C_save_and_reclaim((void *)f_10480,2,av);} a=C_alloc(18); t2=C_mutate2((C_word*)lf[329]+1 /* (set! repl-prompt ...) */,t1); t3=*((C_word*)lf[329]+1); t4=C_mutate2((C_word*)lf[330]+1 /* (set! ##sys#read-prompt-hook ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10482,a[2]=t3,a[3]=((C_word)li242),tmp=(C_word)a,a+=4,tmp)); t5=C_mutate2((C_word*)lf[333]+1 /* (set! ##sys#clear-trace-buffer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10498,a[2]=((C_word)li243),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[334]+1 /* (set! ##sys#resize-trace-buffer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10501,a[2]=((C_word)li244),tmp=(C_word)a,a+=3,tmp)); t7=*((C_word*)lf[56]+1); t8=*((C_word*)lf[195]+1); t9=C_mutate2((C_word*)lf[335]+1 /* (set! repl ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10507,a[2]=t7,a[3]=t8,a[4]=((C_word)li261),tmp=(C_word)a,a+=5,tmp)); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10983,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1658: make-vector */ t11=*((C_word*)lf[388]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t11; av2[1]=t10; av2[2]=C_fix(301); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} /* ##sys#read-prompt-hook in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in ... */ 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!=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_10482,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10486,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10493,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1527: repl-prompt */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10484 in read-prompt-hook in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in ... */ static void C_ccall f_10486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10486,2,av);} /* eval.scm:1528: ##sys#flush-output */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[331]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[331]+1); av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[332]+1); tp(3,av2);}} /* k8590 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_8592,2,av);} a=C_alloc(4); t2=(C_truep(t1)?((C_word*)t0)[2]:C_SCHEME_FALSE); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8580,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:987: display */ t4=*((C_word*)lf[215]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[217]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; f_8320(2,av2);}}} /* k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in a6743 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_6763,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6766,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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:655: macro-environment11411142 */ t3=((C_word*)t0)[12];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6758 in k6755 in k6752 in k6749 in k6746 in a6743 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_6760,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6763,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:655: current-environment11391140 */ t3=((C_word*)t0)[13];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in a6743 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in ... */ 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(11,c,4)))){ C_save_and_reclaim((void *)f_6766,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6769,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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:655: module-alias-environment11431144 */ t3=((C_word*)t0)[11];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_5964 in k5796 in k5790 in k5787 in a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_5964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,5)))){ C_save_and_reclaim((void *)f_5964,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5970,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li95),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; /* eval.scm:245: ##sys#eval-decorator */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[5]; av2[4]=t4; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* doloop1389 in a6038 */ static void C_fcall f_7526(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_7526,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_7555,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:771: ##sys#error */ t13=*((C_word*)lf[40]+1);{ C_word av2[5]; av2[0]=t13; av2[1]=t11; av2[2]=lf[78]; 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;}}} /* k10243 in foldr2370 in strip in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in ... */ static void C_ccall f_10245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_10245,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep((C_truep(C_eqp(t3,lf[285]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[288]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[312]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[313]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[314]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[315]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[117]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[316]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[294]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[317]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[318]))?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);}} /* k6734 in loop in a6656 in a6650 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6736,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* eval.scm:678: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6667(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in a6743 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in ... */ 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 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_6769,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_mutate2(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); t4=C_mutate2(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]); t5=C_mutate2(((C_word *)((C_word*)t0)[8])+1,((C_word*)t0)[9]); t6=((C_word*)t0)[10];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k9766 in k9747 in k9732 in k9581 in doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9768(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_9768,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[2]:(C_truep(((C_word*)t0)[3])?C_SCHEME_FALSE:((C_word*)t0)[4])); if(C_truep(t3)){ /* eval.scm:1279: ##sys#append */ t4=*((C_word*)lf[71]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=t2; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9778,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[5],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* eval.scm:1351: add-req */ t5=((C_word*)((C_word*)t0)[7])[1]; f_9492(t5,t4,((C_word*)t0)[6],C_SCHEME_FALSE);}} /* k9762 in k9747 in k9732 in k9581 in doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9764,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[52],t1); /* eval.scm:1345: impform */ t3=((C_word*)((C_word*)t0)[2])[1]; f_9517(t3,((C_word*)t0)[3],t2,((C_word*)t0)[4],C_SCHEME_FALSE);} /* ##sys#hash-table-size in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_3829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,5)))){ C_save_and_reclaim((void *)f_3829,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_3839,a[2]=t5,a[3]=t2,a[4]=((C_word)li14),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_3839(t7,t1,t3,C_fix(0),C_fix(0));} /* ##sys#repl-print-hook in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in ... */ 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=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_10463,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10467,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10472,a[2]=t2,a[3]=t3,a[4]=((C_word)li240),tmp=(C_word)a,a+=5,tmp); /* eval.scm:1519: ##sys#with-print-length-limit */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[328]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[328]+1); av2[1]=t4; av2[2]=*((C_word*)lf[322]+1); av2[3]=t5; tp(4,av2);}} /* k10465 in repl-print-hook in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in ... */ static void C_ccall f_10467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10467,2,av);} /* eval.scm:1520: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[326]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[326]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* ##sys#hash-table-ref in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_3564,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3617,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=C_block_size(t2); /* eval.scm:130: ##sys#hash-symbol */ t6=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t4; av2[2]=t3; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* a6743 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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!=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_6744,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6748,a[2]=((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:655: current-module11371138 */ t3=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k6740 in loop in a6656 in a6650 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_6742,2,av);} /* eval.scm:680: compile */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4096(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_END_OF_LIST,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],t1);} /* a5903 */ static void C_ccall f_5904(C_word c,C_word *av){ C_word tmp; C_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_5904,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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t1; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k7271 in k7211 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_7273,2,av);} a=C_alloc(9); t2=C_i_assq(lf[149],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|8,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],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li134),tmp=(C_word)a,a+=9,tmp); /* eval.scm:747: g1371 */ t4=t3; f_7255(t4,((C_word*)t0)[8],t2);} else{ /* eval.scm:751: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[82]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[82]+1); av2[1]=((C_word*)t0)[8]; av2[2]=lf[150]; av2[3]=lf[151]; av2[4]=((C_word*)t0)[9]; tp(5,av2);}}} /* k8804 in loop in k8786 in k8783 in k8780 in k8771 in load-library-0 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_8806,2,av);} a=C_alloc(3); if(C_truep(t1)){ if(C_truep(C_i_memq(((C_word*)t0)[2],*((C_word*)lf[139]+1)))){ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],*((C_word*)lf[139]+1)); t3=C_mutate2((C_word*)lf[139]+1 /* (set! ##sys#features ...) */,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=C_slot(((C_word*)t0)[4],C_fix(1)); /* eval.scm:1109: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_8793(t3,((C_word*)t0)[3],t2);}} /* loop in hash-table-size in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_3839(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(7,0,2)))){ C_save_and_reclaim_args((void *)trf_3839,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_3861,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); /* eval.scm:176: ##sys#length */ t10=*((C_word*)lf[24]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}} /* k10491 in read-prompt-hook in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10493,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10496,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1527: g2464 */ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a8502 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *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_8503,2,av);} /* eval.scm:1036: close-input-port */ t2=*((C_word*)lf[204]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10494 in k10491 in read-prompt-hook in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 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(0,c,4)))){ C_save_and_reclaim((void *)f_10496,2,av);} /* eval.scm:1527: ##sys#print */ t2=*((C_word*)lf[327]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[332]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* ##sys#clear-trace-buffer in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 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 *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_10498,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=stub2468(C_SCHEME_UNDEFINED); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6708 in loop2 */ static void C_ccall f_6710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6710,2,av);} /* eval.scm:675: loop2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6687(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k6746 in a6743 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_6748,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6751,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:655: current-environment11391140 */ t4=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k4564 in k4561 in k4558 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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(6,c,3)))){ C_save_and_reclaim((void *)f_4566,2,av);} a=C_alloc(6); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4567,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word)li55),tmp=(C_word)a,a+=6,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_4567 in k4564 in k4561 in k4558 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_4567,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4574,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4558 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_4560,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4563,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_caddr(((C_word*)t0)[3]); /* eval.scm:345: compile */ t5=((C_word*)((C_word*)t0)[4])[1]; f_4096(t5,t3,t4,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k4561 in k4558 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_4563,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4566,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:347: compile */ t6=((C_word*)((C_word*)t0)[5])[1]; f_4096(t6,t3,t5,((C_word*)t0)[6],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} else{ /* eval.scm:348: compile */ t5=((C_word*)((C_word*)t0)[5])[1]; f_4096(t5,t3,lf[51],((C_word*)t0)[6],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}} /* ##sys#hash-symbol in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_3549(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(0,c,1)))){ C_save_and_reclaim((void *)f_3549,4,av);} t4=C_eqp(t2,((C_word*)((C_word*)t0)[2])[1]); if(C_truep(t4)){ t5=C_fixnum_modulo(((C_word*)((C_word*)t0)[3])[1],t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t6=C_slot(t2,C_fix(1)); t7=C_mutate2(((C_word *)((C_word*)t0)[3])+1,C_u_i_string_hash(t6,((C_word*)t0)[4])); t8=C_fixnum_modulo(((C_word*)((C_word*)t0)[3])[1],t3); t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k3539 in chicken-home in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; 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_3541,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* ##sys#peek-c-string */ t2=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_mpointer(&a,(void*)C_INSTALL_SHARE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* g1371 in k7271 in k7211 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_7255(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_7255,3,t0,t1,t2);} t3=C_i_cadr(t2); /* eval.scm:749: compile */ t4=((C_word*)((C_word*)t0)[2])[1]; f_4096(t4,t1,t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* f_4516 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4516,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a10471 in repl-print-hook in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in ... */ static void C_ccall f_10472(C_word c,C_word *av){ 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_10472,2,av);} t2=*((C_word*)lf[327]+1); /* eval.scm:1519: g2458 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[327]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[327]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; tp(5,av2);}} /* ##sys#resize-trace-buffer in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 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=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_10501,3,av);} t3=C_i_check_exact(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_resize_trace_buffer(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 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; 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_10507,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_10513,a[2]=((C_word)li246),tmp=(C_word)a,a+=3,tmp); t7=*((C_word*)lf[337]+1); t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=*((C_word*)lf[332]+1); t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=*((C_word*)lf[336]+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_10631,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); /* eval.scm:1558: ##sys#error-handler */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[348]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[348]+1); av2[1]=t13; tp(2,av2);}} /* k6774 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6776,2,av);} if(C_truep(t1)){ /* eval.scm:654: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[82]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[82]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[117]; av2[3]=lf[118]; av2[4]=((C_word*)t0)[3]; tp(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_6584(2,av2);}}} /* g1103 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_6783(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_6783,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_6796,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_6807,a[2]=((C_word)li124),tmp=(C_word)a,a+=3,tmp); t5=t3; f_6796(t5,( f_6807(t2) ));} else{ t4=t3; f_6796(t4,C_SCHEME_FALSE);}}} /* f_5945 in k5796 in k5790 in k5787 in a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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,5)))){ C_save_and_reclaim((void *)f_5945,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5951,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li93),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; /* eval.scm:245: ##sys#eval-decorator */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[5]; av2[4]=t4; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* k6749 in k6746 in a6743 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 in ... */ 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 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_6751,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6754,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:655: macro-environment11411142 */ t4=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* for-each-loop2493 in write-err in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in ... */ static void C_fcall f_10527(C_word 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_10527,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_10537,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[325]+1); /* eval.scm:1543: g2509 */ t6=t5;{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[336]+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);}}} /* k6755 in k6752 in k6749 in k6746 in a6743 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 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 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_6757,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6760,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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:655: current-module11371138 */ t4=((C_word*)t0)[13];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6752 in k6749 in k6746 in a6743 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in ... */ 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 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_6754,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,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]=((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:655: module-alias-environment11431144 */ t4=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k7198 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_7200,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:730: compile */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4096(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]);} /* a8511 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *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_8512,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[194]+1)); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,*((C_word*)lf[181]+1)); t4=C_mutate2(((C_word *)((C_word*)t0)[4])+1,*((C_word*)lf[182]+1)); t5=C_mutate2(((C_word *)((C_word*)t0)[5])+1,*((C_word*)lf[180]+1)); t6=C_mutate2((C_word*)lf[194]+1 /* (set! ##sys#read-error-with-line-number ...) */,((C_word*)((C_word*)t0)[6])[1]); t7=C_mutate2((C_word*)lf[181]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[7])[1]); t8=C_mutate2((C_word*)lf[182]+1 /* (set! ##sys#current-load-path ...) */,((C_word*)((C_word*)t0)[8])[1]); t9=C_mutate2((C_word*)lf[180]+1 /* (set! ##sys#abort-load ...) */,((C_word*)((C_word*)t0)[9])[1]); t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* f_4371 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4371,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4373 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4373,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7211 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_7213(C_word t0,C_word t1){ C_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(26,0,7)))){ C_save_and_reclaim_args((void *)trf_7213,2,t0,t1);} a=C_alloc(26); if(C_truep(t1)){ /* eval.scm:737: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[82]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[82]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[145]; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[146]); if(C_truep(t2)){ t3=C_i_cdr(((C_word*)t0)[3]); /* eval.scm:740: compile-call */ t4=((C_word*)((C_word*)t0)[5])[1]; f_7598(t4,((C_word*)t0)[2],t3,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} else{ t3=C_eqp(((C_word*)t0)[4],lf[147]); if(C_truep(t3)){ t4=C_i_cadddr(((C_word*)t0)[3]); /* eval.scm:743: compile */ t5=((C_word*)((C_word*)t0)[10])[1]; f_4096(t5,((C_word*)t0)[2],t4,((C_word*)t0)[6],((C_word*)t0)[11],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} else{ t4=C_eqp(((C_word*)t0)[4],lf[148]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7273,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[11],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)[3],tmp=(C_word)a,a+=10,tmp); t6=C_i_cdddr(((C_word*)t0)[3]); /* eval.scm:747: ##sys#strip-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[45]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[45]+1); av2[1]=t5; av2[2]=t6; tp(3,av2);}} else{ t5=C_a_i_cons(&a,2,((C_word*)t0)[12],*((C_word*)lf[152]+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_7285,a[2]=t9,a[3]=t7,a[4]=((C_word)li135),tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7290,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)li136),tmp=(C_word)a,a+=9,tmp); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7296,a[2]=t7,a[3]=t9,a[4]=((C_word)li137),tmp=(C_word)a,a+=5,tmp); /* eval.scm:757: ##sys#dynamic-wind */ t13=*((C_word*)lf[115]+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);}}}}}} /* eval in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8065(C_word c,C_word *av){ C_word tmp; C_word 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_8065,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_8073,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* eval.scm:873: ##sys#eval-handler */ t5=*((C_word*)lf[176]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* f_4550 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4550(C_word c,C_word *av){ C_word tmp; C_word 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_4550,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8062(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,4)))){ C_save_and_reclaim((void *)f_8062,2,av);} a=C_alloc(12); t2=C_mutate2((C_word*)lf[175]+1 /* (set! eval-handler ...) */,t1); t3=C_mutate2((C_word*)lf[176]+1 /* (set! ##sys#eval-handler ...) */,*((C_word*)lf[175]+1)); t4=C_mutate2((C_word*)lf[56]+1 /* (set! eval ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8065,a[2]=((C_word)li157),tmp=(C_word)a,a+=3,tmp)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8076,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11547,a[2]=((C_word)li303),tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11615,a[2]=((C_word)li304),tmp=(C_word)a,a+=3,tmp); /* eval.scm:880: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t5; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* k8522 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8524(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8524,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(t1,C_fix(1)); /* eval.scm:1006: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[206]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[206]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(0); av2[4]=t2; tp(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[207]; f_8335(2,av2);}}} /* ##sys#decompose-lambda-list in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_8078,4,av);} a=C_alloc(12); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8081,a[2]=t2,a[3]=((C_word)li158),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_8091,a[2]=t3,a[3]=t6,a[4]=t4,a[5]=((C_word)li159),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_8091(t8,t1,t2,C_SCHEME_END_OF_LIST,C_fix(0));} /* k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_8076,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[80]+1 /* (set! ##sys#decompose-lambda-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8078,a[2]=((C_word)li160),tmp=(C_word)a,a+=3,tmp)); 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); t4=C_fudge(C_fix(13)); /* eval.scm:926: make-parameter */ t5=*((C_word*)lf[390]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8071 in eval in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8073,2,av);}{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10535 in for-each-loop2493 in write-err in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in ... */ static void C_ccall f_10537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10537,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10527(t3,((C_word*)t0)[4],t2);} /* k8045 in k8042 in k8039 in k8036 in k8033 in a8030 in k7996 in k7993 in k7990 in k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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,2)))){ C_save_and_reclaim((void *)f_8047,2,av);} /* eval.scm:853: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[108]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[108]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k8039 in k8036 in k8033 in a8030 in k7996 in k7993 in k7990 in k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_8041,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8044,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:851: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[61]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[61]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k8042 in k8039 in k8036 in k8033 in a8030 in k7996 in k7993 in k7990 in k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_8044,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8047,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_8054,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* eval.scm:852: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[108]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[108]+1); av2[1]=t3; tp(2,av2);}} /* k4572 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4574,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ } 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);}}} /* chicken-home in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *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_3537,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3541,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* eval.scm:110: ##sys#chicken-prefix */ t3=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[14]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_4383,2,av);} a=C_alloc(15); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4384,a[2]=((C_word*)t0)[2],a[3]=((C_word)li44),tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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)[2]))){ t2=C_slot(((C_word*)t0)[2],C_fix(0)); if(C_truep(C_i_symbolp(t2))){ t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_4403,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); t4=((C_word*)t0)[7]; t5=((C_word*)t0)[2]; t6=((C_word*)t0)[8]; if(C_truep(t4)){ t7=C_emit_syntax_trace_info(t5,t6,*((C_word*)lf[38]+1)); t8=t3; f_4403(t8,t7);} else{ t7=C_SCHEME_UNDEFINED; t8=t3; f_4403(t8,t7);}} else{ t3=((C_word*)t0)[7]; t4=((C_word*)t0)[2]; t5=((C_word*)t0)[8]; if(C_truep(t3)){ t6=C_emit_syntax_trace_info(t4,t5,*((C_word*)lf[38]+1)); /* eval.scm:762: compile-call */ t7=((C_word*)((C_word*)t0)[14])[1]; f_7598(t7,((C_word*)t0)[3],((C_word*)t0)[2],((C_word*)t0)[5],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} else{ /* eval.scm:762: compile-call */ t6=((C_word*)((C_word*)t0)[14])[1]; f_7598(t6,((C_word*)t0)[3],((C_word*)t0)[2],((C_word*)t0)[5],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}}} else{ /* eval.scm:307: ##sys#syntax-error/context */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[164]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[164]+1); av2[1]=((C_word*)t0)[3]; av2[2]=lf[165]; av2[3]=((C_word*)t0)[2]; tp(4,av2);}}}} /* f_4384 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4384,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8056 in k8036 in k8033 in a8030 in k7996 in k7993 in k7990 in k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8058,2,av);} /* eval.scm:850: ##sys#current-meta-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[172]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[172]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k8052 in k8042 in k8039 in k8036 in k8033 in a8030 in k7996 in k7993 in k7990 in k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8054,2,av);} /* eval.scm:852: ##sys#meta-macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[173]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[173]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k6719 in k6675 in loop in a6656 in a6650 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6721,2,av);} /* eval.scm:667: ##sys#finalize-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[112]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[112]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k9680 in k9659 in k9581 in doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9682(C_word 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(19,0,4)))){ C_save_and_reclaim_args((void *)trf_9682,2,t0,t1);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9690,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[3])){ /* eval.scm:1329: impform */ t4=((C_word*)((C_word*)t0)[4])[1]; f_9517(t4,t3,lf[295],((C_word*)t0)[5],C_SCHEME_FALSE);} else{ if(C_truep(((C_word*)t0)[6])){ t4=C_a_i_list(&a,2,lf[292],((C_word*)t0)[7]); t5=C_a_i_list(&a,2,lf[136],t4); /* eval.scm:1329: impform */ t6=((C_word*)((C_word*)t0)[4])[1]; f_9517(t6,t3,t5,((C_word*)t0)[5],C_SCHEME_FALSE);} else{ t4=C_a_i_list(&a,2,lf[124],((C_word*)t0)[7]); t5=C_a_i_list(&a,3,lf[243],t4,C_SCHEME_FALSE); /* eval.scm:1329: impform */ t6=((C_word*)((C_word*)t0)[4])[1]; f_9517(t6,t3,t5,((C_word*)t0)[5],C_SCHEME_FALSE);}}} /* k8020 in a8017 in k7996 in k7993 in k7990 in k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8022,2,av);} /* eval.scm:841: g1532 */ t2=t1;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop1224 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_6990(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_6990,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_7015,a[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:690: ##sys#eval/meta */ t5=*((C_word*)lf[89]+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);}}} /* k8027 in a8017 in k7996 in k7993 in k7990 in k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8029,2,av);} /* eval.scm:842: ##sys#compile-to-closure */ t2=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k10585 in k10572 in k10803 in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in ... */ static void C_ccall f_10587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10587,2,av);} /* eval.scm:1551: ##sys#print */ t2=*((C_word*)lf[327]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[332]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k9676 in k9659 in k9581 in doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_9678,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[52],t1); /* eval.scm:1326: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; C_values(5,av2);}} /* k8033 in a8030 in k7996 in k7993 in k7990 in k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_8035,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8038,a[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:849: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[96]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[96]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* a8030 in k7996 in k7993 in k7990 in k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8031(C_word c,C_word *av){ 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_8031,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8035,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:848: ##sys#active-eval-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[171]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[171]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* k7553 in doloop1389 in a6038 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_7555,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_7526(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,((C_word*)t0)[6]);} /* k8036 in k8033 in a8030 in k7996 in k7993 in k7990 in k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_8038,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8041,a[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_8058,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* eval.scm:850: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[61]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[61]+1); av2[1]=t3; tp(2,av2);}} /* k10572 in k10803 in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in ... */ static void C_ccall f_10574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_10574,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_10587,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10591,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_length(((C_word*)t0)[2]); /* eval.scm:1552: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[287]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[287]+1); av2[1]=t4; av2[2]=t5; tp(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a8002 in k7996 in k7993 in k7990 in k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *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_8003,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8007,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* eval.scm:837: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[96]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[96]+1); av2[1]=t2; av2[2]=C_SCHEME_FALSE; tp(3,av2);}} /* k10450 in k10440 in k10393 in resolve-include-filename in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in ... */ static void C_ccall f_10452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10452,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* eval.scm:1498: ##sys#append */ t3=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[262]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k8005 in a8002 in k7996 in k7993 in k7990 in k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8007(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_8007,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8010,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:838: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[108]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[108]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k9688 in k9680 in k9659 in k9581 in doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_9690,2,av);} a=C_alloc(3); t2=C_a_i_list(&a,1,t1); /* eval.scm:1279: ##sys#append */ t3=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8011 in k8008 in k8005 in a8002 in k7996 in k7993 in k7990 in k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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);} /* eval.scm:840: ##sys#active-eval-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[171]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[171]+1); av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[172]+1); tp(3,av2);}} /* k8008 in k8005 in a8002 in k7996 in k7993 in k7990 in k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8010,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8013,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:839: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[61]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[61]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* a8017 in k7996 in k7993 in k7990 in k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8018(C_word c,C_word *av){ C_word tmp; 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,2)))){ C_save_and_reclaim((void *)f_8018,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8022,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8029,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:845: ##sys#current-meta-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[172]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[172]+1); av2[1]=t3; tp(2,av2);}} /* k9095 in k9087 in loop in canonicalize-extension-path in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9097,2,av);} /* eval.scm:1148: string-append */ t2=*((C_word*)lf[238]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* test2 in resolve-include-filename in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in ... */ static void C_fcall f_10332(C_word 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_10332,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_10345,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=t2; /* eval.scm:1481: ##sys#file-exists? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[218]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[218]+1); av2[1]=t4; av2[2]=t5; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; av2[5]=C_SCHEME_FALSE; tp(6,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10348,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:1486: ##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]=t4; av2[2]=t2; av2[3]=t5; tp(4,av2);}}} /* write-err in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in ... */ static void C_fcall f_10513(C_word 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_10513,2,t1,t2);} a=C_alloc(6); t3=C_i_check_list_2(t2,lf[20]); 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_10527,a[2]=t5,a[3]=((C_word)li245),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_10527(t7,t1,t2);} /* k10429 in loop in k10403 in k10393 in resolve-include-filename in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10431,2,av);} /* eval.scm:1506: test */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10365(t2,((C_word*)t0)[3],t1);} /* ##sys#resolve-include-filename in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 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=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 +19,c,4)))){ C_save_and_reclaim((void*)f_10326,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+19); 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=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_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10332,a[2]=t9,a[3]=((C_word)li236),tmp=(C_word)a,a+=4,tmp)); t13=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10365,a[2]=t3,a[3]=t9,a[4]=((C_word)li237),tmp=(C_word)a,a+=5,tmp)); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10395,a[2]=t1,a[3]=t2,a[4]=t11,a[5]=t7,tmp=(C_word)a,a+=6,tmp); /* eval.scm:1496: test */ t15=((C_word*)t11)[1]; f_10365(t15,t14,t2);} /* f_4824 in k4738 in a4735 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_4824,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_4836,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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k9632 in k9581 in doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9634,2,av);} /* eval.scm:1315: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; C_values(5,av2);}} /* k9087 in loop in canonicalize-extension-path in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,2)))){ C_save_and_reclaim((void *)f_9089,2,av);} a=C_alloc(5); t2=t1; t3=C_slot(((C_word*)t0)[2],C_fix(1)); t4=C_i_nullp(t3); t5=(C_truep(t4)?lf[253]:lf[254]); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9097,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t6,tmp=(C_word)a,a+=5,tmp); t8=C_slot(((C_word*)t0)[2],C_fix(1)); /* eval.scm:1156: loop */ t9=((C_word*)((C_word*)t0)[4])[1]; f_9072(t9,t7,t8);} /* k10352 in k10346 in test2 in resolve-include-filename in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in ... */ 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; 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_10354,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_cdr(t2); /* eval.scm:1489: test2 */ t4=((C_word*)((C_word*)t0)[5])[1]; f_10332(t4,((C_word*)t0)[2],((C_word*)t0)[6],t3);}} /* k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_8746(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_8746,2,t0,t1);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[229]+1 /* (set! ##sys#load-library-extension ...) */,t1); t3=C_mutate2((C_word*)lf[219]+1 /* (set! ##sys#load-dynamic-extension ...) */,lf[6]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8751,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1062: build-platform */ t5=*((C_word*)lf[406]+1);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a8740 in load-noisily in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *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_8741,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4815 in k4738 in a4735 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_4817,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:374: ##sys#notice */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[59]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[59]+1); av2[1]=((C_word*)t0)[3]; av2[2]=lf[60]; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_4749(2,av2);}}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_4749(2,av2);}}} /* k10343 in test2 in resolve-include-filename in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10345,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10346 in test2 in resolve-include-filename in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in ... */ 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; 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_10348,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10354,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); /* eval.scm:1481: ##sys#file-exists? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[218]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[218]+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);}} /* k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8758(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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(24,c,3)))){ C_save_and_reclaim((void *)f_8758,2,av);} a=C_alloc(24); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8760,a[2]=t2,a[3]=((C_word)li187),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8767,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=*((C_word*)lf[232]+1); t11=C_i_check_list_2(*((C_word*)lf[232]+1),lf[64]); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11452,a[2]=t4,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_11460,a[2]=t7,a[3]=t14,a[4]=t9,a[5]=t8,a[6]=((C_word)li297),tmp=(C_word)a,a+=7,tmp)); t16=((C_word*)t14)[1]; f_11460(t16,t12,*((C_word*)lf[232]+1));} /* k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_8751,2,av);} a=C_alloc(6); t2=C_eqp(t1,lf[230]); t3=(C_truep(t2)?lf[231]:*((C_word*)lf[5]+1)); t4=C_mutate2((C_word*)lf[232]+1 /* (set! ##sys#default-dynamic-load-libraries ...) */,t3); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8758,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_mk_bool(C_USES_SONAME))){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11499,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1072: number->string */ t7=*((C_word*)lf[305]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=C_fix((C_word)C_BINARY_VERSION); ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=*((C_word*)lf[229]+1); f_8758(2,av2);}}} /* k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_4882,2,av);} a=C_alloc(18); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_4888,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]=t3,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); /* eval.scm:397: ##sys#extend-se */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[69]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[69]+1); av2[1]=t4; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[5]; av2[4]=t1; tp(5,av2);}} /* k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_4888,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,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],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|7,a[1]=(C_word)f_5231,a[2]=t3,a[3]=((C_word*)t0)[11],a[4]=t2,a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[13],tmp=(C_word)a,a+=8,tmp); t5=C_i_cddr(((C_word*)t0)[14]); /* eval.scm:399: ##sys#canonicalize-body */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[68]+1); av2[1]=t4; av2[2]=t5; av2[3]=t2; av2[4]=C_SCHEME_FALSE; tp(5,av2);}} /* k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_4873,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=*((C_word*)lf[63]+1); t8=C_i_check_list_2(t2,lf[64]); t9=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_4882,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); 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_5237,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li72),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_5237(t13,t9,t2);} /* k9601 in k9581 in doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9603,2,av);} /* eval.scm:1307: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; C_values(5,av2);}} /* a8737 in k8722 in load-noisily in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *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_8738,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a8734 in k8725 in k8722 in load-noisily in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8735(C_word c,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_8735,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8728 in k8725 in k8722 in load-noisily in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_8730,2,av);} /* eval.scm:1050: ##sys#load */ t2=*((C_word*)lf[193]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_SCHEME_TRUE; av2[5]=((C_word*)t0)[5]; av2[6]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k5077 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5079,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5083,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; /* Re-use our own argvector */ } 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);}} /* k10589 in k10572 in k10803 in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10591,2,av);} /* eval.scm:1552: string-append */ t2=*((C_word*)lf[238]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[350]; av2[3]=t1; av2[4]=lf[351]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* g240 in doloop234 in hash-table-for-each in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_3715(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_3715,3,t0,t1,t2);} t3=C_slot(t2,C_fix(0)); t4=C_slot(t2,C_fix(1)); /* eval.scm:153: 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);}} /* for-each-loop2523 in k10803 in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in ... */ static void C_fcall f_10599(C_word 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_10599,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_10609,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[325]+1); /* eval.scm:1549: g2539 */ t6=t5;{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[332]+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);}}} /* k5081 in k5077 */ static void C_ccall f_5083(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_5083,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5087,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; /* Re-use our own argvector */ } 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);}} /* k5085 in k5081 in k5077 */ 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 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_5087,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5091,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; /* Re-use our own argvector */ } 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);}} /* loop in loop in k3987 in lookup in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static C_word C_fcall f_4044(C_word t0,C_word t1,C_word t2){ C_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;}}} /* k5051 in k5048 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_5053,2,av);} a=C_alloc(22); t2=t1; t3=C_i_cddr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5059,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],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t4,tmp=(C_word)a,a+=13,tmp); t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5103,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],a[8]=((C_word*)t0)[11],tmp=(C_word)a,a+=9,tmp); /* eval.scm:420: cadar */ t7=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k5048 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_5050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_5050,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5053,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|8,a[1]=(C_word)f_5111,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],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp); /* eval.scm:418: cadadr */ t5=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* 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_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_eval_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(2715))){ C_save(t1); C_rereclaim2(2715*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,424); lf[0]=C_h_intern(&lf[0],24,"\003syscore-library-modules"); lf[1]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006extras\376\003\000\000\002\376\001\000\000\007lolevel\376\003\000\000\002\376\001\000\000\005utils\376\003\000\000\002\376\001\000\000\005files\376\003\000\000\002\376\001\000\000\003tcp\376\003\000\000" "\002\376\001\000\000\007irregex\376\003\000\000\002\376\001\000\000\005posix\376\003\000\000\002\376\001\000\000\006srfi-1\376\003\000\000\002\376\001\000\000\006srfi-4\376\003\000\000\002\376\001\000\000\007srfi-13\376\003\000" "\000\002\376\001\000\000\007srfi-14\376\003\000\000\002\376\001\000\000\007srfi-18\376\003\000\000\002\376\001\000\000\007srfi-69\376\003\000\000\002\376\001\000\000\017data-structures\376\003\000\000\002\376\001" "\000\000\005ports\376\377\016"); lf[2]=C_h_intern(&lf[2],23,"\003syscore-syntax-modules"); lf[3]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016chicken-syntax\376\003\000\000\002\376\001\000\000\022chicken-ffi-syntax\376\377\016"); lf[4]=C_h_intern(&lf[4],28,"\003sysexplicit-library-modules"); lf[5]=C_h_intern(&lf[5],30,"default-dynamic-load-libraries"); lf[7]=C_decode_literal(C_heaptop,"\376B\000\000\003.so"); lf[9]=C_decode_literal(C_heaptop,"\376B\000\000\004.scm"); lf[10]=C_h_intern(&lf[10],18,"\003syschicken-prefix"); lf[11]=C_h_intern(&lf[11],17,"\003sysstring-append"); lf[12]=C_h_intern(&lf[12],12,"chicken-home"); lf[13]=C_h_intern(&lf[13],17,"\003syspeek-c-string"); lf[14]=C_decode_literal(C_heaptop,"\376B\000\000\015share/chicken"); lf[15]=C_h_intern(&lf[15],15,"\003syshash-symbol"); lf[16]=C_h_intern(&lf[16],18,"\003syshash-table-ref"); lf[17]=C_h_intern(&lf[17],19,"\003syshash-table-set!"); lf[18]=C_h_intern(&lf[18],22,"\003syshash-table-update!"); lf[19]=C_h_intern(&lf[19],23,"\003syshash-table-for-each"); lf[20]=C_h_intern(&lf[20],8,"for-each"); lf[21]=C_h_intern(&lf[21],28,"\003sysarbitrary-unbound-symbol"); lf[22]=C_h_intern(&lf[22],23,"\003syshash-table-location"); lf[23]=C_h_intern(&lf[23],19,"\003syshash-table-size"); lf[24]=C_h_intern(&lf[24],10,"\003syslength"); lf[25]=C_h_intern(&lf[25],18,"\003syseval-decorator"); lf[26]=C_h_intern(&lf[26],20,"\003sysmake-lambda-info"); lf[27]=C_h_intern(&lf[27],17,"get-output-string"); lf[28]=C_h_intern(&lf[28],5,"write"); lf[29]=C_h_intern(&lf[29],18,"open-output-string"); lf[30]=C_h_intern(&lf[30],19,"\003sysdecorate-lambda"); lf[31]=C_h_intern(&lf[31],19,"\003sysunbound-in-eval"); lf[32]=C_h_intern(&lf[32],20,"\003syseval-debug-level"); lf[33]=C_h_intern(&lf[33],20,"with-input-from-file"); lf[34]=C_h_intern(&lf[34],22,"\003syscompile-to-closure"); lf[35]=C_h_intern(&lf[35],7,"\003sysget"); lf[36]=C_h_intern(&lf[36],16,"\004coremacro-alias"); lf[37]=C_h_intern(&lf[37],9,"frameinfo"); lf[38]=C_h_intern(&lf[38],18,"\003syscurrent-thread"); lf[39]=C_h_intern(&lf[39],32,"\003syssymbol-has-toplevel-binding\077"); lf[40]=C_h_intern(&lf[40],9,"\003syserror"); lf[41]=C_decode_literal(C_heaptop,"\376B\000\000\020unbound variable"); lf[42]=C_h_intern(&lf[42],14,"\004coreprimitive"); lf[43]=C_h_intern(&lf[43],21,"\003sysalias-global-hook"); lf[44]=C_h_intern(&lf[44],10,"\004corequote"); lf[45]=C_h_intern(&lf[45],16,"\003sysstrip-syntax"); lf[46]=C_h_intern(&lf[46],11,"\004coresyntax"); lf[47]=C_h_intern(&lf[47],10,"\004corecheck"); lf[48]=C_h_intern(&lf[48],14,"\004coreimmutable"); lf[49]=C_h_intern(&lf[49],14,"\004coreundefined"); lf[50]=C_h_intern(&lf[50],7,"\004coreif"); lf[51]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[52]=C_h_intern(&lf[52],10,"\004corebegin"); lf[53]=C_h_intern(&lf[53],19,"\004coretoplevel-begin"); lf[54]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[55]=C_h_intern(&lf[55],9,"\004coreset!"); lf[56]=C_h_intern(&lf[56],4,"eval"); lf[57]=C_decode_literal(C_heaptop,"\376B\000\000\032environment is not mutable"); lf[58]=C_h_intern(&lf[58],19,"\003sysnotices-enabled"); lf[59]=C_h_intern(&lf[59],10,"\003sysnotice"); lf[60]=C_decode_literal(C_heaptop,"\376B\000\000$assignment to imported value binding"); lf[61]=C_h_intern(&lf[61],23,"\003syscurrent-environment"); lf[62]=C_h_intern(&lf[62],8,"\004corelet"); lf[63]=C_h_intern(&lf[63],6,"gensym"); lf[64]=C_h_intern(&lf[64],3,"map"); lf[65]=C_h_intern(&lf[65],5,"cadar"); lf[66]=C_h_intern(&lf[66],6,"cadadr"); lf[67]=C_h_intern(&lf[67],15,"\003sysmake-vector"); lf[68]=C_h_intern(&lf[68],21,"\003syscanonicalize-body"); lf[69]=C_h_intern(&lf[69],13,"\003sysextend-se"); lf[70]=C_h_intern(&lf[70],12,"\004coreletrec\052"); lf[71]=C_h_intern(&lf[71],10,"\003sysappend"); lf[72]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[73]=C_h_intern(&lf[73],11,"\004coreletrec"); lf[74]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[75]=C_h_intern(&lf[75],11,"\004corelambda"); lf[76]=C_h_intern(&lf[76],1,"\077"); lf[77]=C_h_intern(&lf[77],10,"\003sysvector"); lf[78]=C_decode_literal(C_heaptop,"\376B\000\000\022bad argument count"); lf[79]=C_decode_literal(C_heaptop,"\376B\000\000\022bad argument count"); lf[80]=C_h_intern(&lf[80],25,"\003sysdecompose-lambda-list"); lf[81]=C_h_intern(&lf[81],31,"\003sysexpand-extended-lambda-list"); lf[82]=C_h_intern(&lf[82],21,"\003syssyntax-error-hook"); lf[83]=C_h_intern(&lf[83],25,"\003sysextended-lambda-list\077"); lf[84]=C_h_intern(&lf[84],16,"\003syscheck-syntax"); lf[85]=C_h_intern(&lf[85],6,"lambda"); lf[86]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\013lambda-list\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[87]=C_h_intern(&lf[87],15,"\004corelet-syntax"); lf[88]=C_h_intern(&lf[88],22,"\003sysensure-transformer"); lf[89]=C_h_intern(&lf[89],13,"\003syseval/meta"); lf[90]=C_h_intern(&lf[90],6,"append"); lf[91]=C_h_intern(&lf[91],18,"\004coreletrec-syntax"); lf[92]=C_h_intern(&lf[92],18,"\004coredefine-syntax"); lf[93]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[94]=C_h_intern(&lf[94],28,"\003sysextend-macro-environment"); lf[95]=C_h_intern(&lf[95],26,"\003sysregister-syntax-export"); lf[96]=C_h_intern(&lf[96],18,"\003syscurrent-module"); lf[97]=C_decode_literal(C_heaptop,"\376B\000\000\032environment is not mutable"); lf[98]=C_h_intern(&lf[98],27,"\004coredefine-compiler-syntax"); lf[99]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[100]=C_h_intern(&lf[100],24,"\004corelet-compiler-syntax"); lf[101]=C_h_intern(&lf[101],12,"\004coreinclude"); lf[102]=C_h_intern(&lf[102],27,"\003sysinclude-forms-from-file"); lf[103]=C_h_intern(&lf[103],21,"\004corelet-module-alias"); lf[104]=C_h_intern(&lf[104],23,"\003syswith-module-aliases"); lf[105]=C_h_intern(&lf[105],7,"functor"); lf[106]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\006symbol\376\377\016"); lf[107]=C_h_intern(&lf[107],11,"\004coremodule"); lf[108]=C_h_intern(&lf[108],21,"\003sysmacro-environment"); lf[109]=C_h_intern(&lf[109],28,"\003sysmodule-alias-environment"); lf[110]=C_h_intern(&lf[110],29,"\003sysinitial-macro-environment"); lf[111]=C_h_intern(&lf[111],19,"\003sysundefined-value"); lf[112]=C_h_intern(&lf[112],19,"\003sysfinalize-module"); lf[113]=C_h_intern(&lf[113],7,"reverse"); lf[114]=C_h_intern(&lf[114],25,"\003syswith-property-restore"); lf[115]=C_h_intern(&lf[115],16,"\003sysdynamic-wind"); lf[116]=C_h_intern(&lf[116],19,"\003sysregister-module"); lf[117]=C_h_intern(&lf[117],6,"module"); lf[118]=C_decode_literal(C_heaptop,"\376B\000\000\031modules may not be nested"); lf[119]=C_decode_literal(C_heaptop,"\376B\000\000\025invalid export syntax"); lf[120]=C_h_intern(&lf[120],16,"\004coreloop-lambda"); lf[121]=C_h_intern(&lf[121],23,"\004corerequire-for-syntax"); lf[122]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[123]=C_h_intern(&lf[123],11,"\003sysrequire"); lf[124]=C_h_intern(&lf[124],5,"quote"); lf[125]=C_h_intern(&lf[125],31,"\003syslookup-runtime-requirements"); lf[126]=C_h_intern(&lf[126],22,"\004corerequire-extension"); lf[127]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[128]=C_h_intern(&lf[128],22,"\003sysdo-the-right-thing"); lf[129]=C_h_intern(&lf[129],24,"\004coreelaborationtimeonly"); lf[130]=C_h_intern(&lf[130],23,"\004coreelaborationtimetoo"); lf[131]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[132]=C_h_intern(&lf[132],19,"\004corecompiletimetoo"); lf[133]=C_h_intern(&lf[133],20,"\004corecompiletimeonly"); lf[134]=C_h_intern(&lf[134],13,"\004corecallunit"); lf[135]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[136]=C_h_intern(&lf[136],12,"\004coredeclare"); lf[137]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[138]=C_h_intern(&lf[138],10,"\000compiling"); lf[139]=C_h_intern(&lf[139],12,"\003sysfeatures"); lf[140]=C_h_intern(&lf[140],28,"\010compilerprocess-declaration"); lf[141]=C_decode_literal(C_heaptop,"\376B\000\000,declarations are ignored in interpreted code"); lf[142]=C_h_intern(&lf[142],18,"\004coredefine-inline"); lf[143]=C_h_intern(&lf[143],20,"\004coredefine-constant"); lf[144]=C_h_intern(&lf[144],6,"define"); lf[145]=C_decode_literal(C_heaptop,"\376B\000\000%cannot evaluate compiler-special-form"); lf[146]=C_h_intern(&lf[146],8,"\004coreapp"); lf[147]=C_h_intern(&lf[147],8,"\004corethe"); lf[148]=C_h_intern(&lf[148],13,"\004coretypecase"); lf[149]=C_h_intern(&lf[149],4,"else"); lf[150]=C_h_intern(&lf[150],17,"compiler-typecase"); lf[151]=C_decode_literal(C_heaptop,"\376B\000\0007no `else-clause\047 in unresolved `compiler-typecase\047 form"); lf[152]=C_h_intern(&lf[152],18,"\003syssyntax-context"); lf[153]=C_h_intern(&lf[153],11,"\004coreinline"); lf[154]=C_h_intern(&lf[154],20,"\004coreinline_allocate"); lf[155]=C_h_intern(&lf[155],19,"\004coreforeign-lambda"); lf[156]=C_h_intern(&lf[156],28,"\004coredefine-foreign-variable"); lf[157]=C_h_intern(&lf[157],29,"\004coredefine-external-variable"); lf[158]=C_h_intern(&lf[158],17,"\004corelet-location"); lf[159]=C_h_intern(&lf[159],22,"\004coreforeign-primitive"); lf[160]=C_h_intern(&lf[160],13,"\004corelocation"); lf[161]=C_h_intern(&lf[161],20,"\004coreforeign-lambda\052"); lf[162]=C_h_intern(&lf[162],24,"\004coredefine-foreign-type"); lf[163]=C_h_intern(&lf[163],10,"\003sysexpand"); lf[164]=C_h_intern(&lf[164],24,"\003syssyntax-error/context"); lf[165]=C_decode_literal(C_heaptop,"\376B\000\000\031illegal non-atomic object"); lf[166]=C_h_intern(&lf[166],18,"\003syssrfi-4-vector\077"); lf[167]=C_h_intern(&lf[167],5,"blob\077"); lf[168]=C_h_intern(&lf[168],11,"\003sysnumber\077"); lf[169]=C_h_intern(&lf[169],8,"keyword\077"); lf[170]=C_decode_literal(C_heaptop,"\376B\000\000\024malformed expression"); lf[171]=C_h_intern(&lf[171],27,"\003sysactive-eval-environment"); lf[172]=C_h_intern(&lf[172],28,"\003syscurrent-meta-environment"); lf[173]=C_h_intern(&lf[173],26,"\003sysmeta-macro-environment"); lf[174]=C_h_intern(&lf[174],12,"dynamic-wind"); lf[175]=C_h_intern(&lf[175],12,"eval-handler"); lf[176]=C_h_intern(&lf[176],16,"\003syseval-handler"); lf[177]=C_h_intern(&lf[177],24,"\003syssyntax-error-culprit"); lf[178]=C_decode_literal(C_heaptop,"\376B\000\000\032illegal lambda-list syntax"); lf[179]=C_h_intern(&lf[179],12,"load-verbose"); lf[180]=C_h_intern(&lf[180],14,"\003sysabort-load"); lf[181]=C_h_intern(&lf[181],27,"\003syscurrent-source-filename"); lf[182]=C_h_intern(&lf[182],21,"\003syscurrent-load-path"); lf[183]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[184]=C_h_intern(&lf[184],18,"\003sysdload-disabled"); lf[185]=C_h_intern(&lf[185],22,"set-dynamic-load-mode!"); lf[186]=C_h_intern(&lf[186],21,"\003sysset-dlopen-flags!"); lf[187]=C_h_intern(&lf[187],6,"global"); lf[188]=C_h_intern(&lf[188],5,"local"); lf[189]=C_h_intern(&lf[189],4,"lazy"); lf[190]=C_h_intern(&lf[190],3,"now"); lf[191]=C_h_intern(&lf[191],15,"\003syssignal-hook"); lf[192]=C_decode_literal(C_heaptop,"\376B\000\000\031invalid dynamic-load mode"); lf[193]=C_h_intern(&lf[193],8,"\003sysload"); lf[194]=C_h_intern(&lf[194],31,"\003sysread-error-with-line-number"); lf[195]=C_h_intern(&lf[195],4,"read"); lf[196]=C_h_intern(&lf[196],17,"\003sysdisplay-times"); lf[197]=C_h_intern(&lf[197],14,"\003sysstop-timer"); lf[198]=C_h_intern(&lf[198],15,"\003sysstart-timer"); lf[199]=C_h_intern(&lf[199],7,"newline"); lf[200]=C_h_intern(&lf[200],4,"load"); lf[201]=C_decode_literal(C_heaptop,"\376B\000\000!unable to load compiled module - "); lf[202]=C_decode_literal(C_heaptop,"\376B\000\000\016unknown reason"); lf[203]=C_h_intern(&lf[203],9,"peek-char"); lf[204]=C_h_intern(&lf[204],16,"close-input-port"); lf[205]=C_h_intern(&lf[205],15,"open-input-file"); lf[206]=C_h_intern(&lf[206],13,"\003syssubstring"); lf[207]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[208]=C_h_intern(&lf[208],30,"call-with-current-continuation"); lf[209]=C_h_intern(&lf[209],9,"\003sysdload"); lf[210]=C_h_intern(&lf[210],17,"\003sysmake-c-string"); lf[211]=C_decode_literal(C_heaptop,"\376B\000\000\002./"); lf[212]=C_h_intern(&lf[212],11,"\000file-error"); lf[213]=C_decode_literal(C_heaptop,"\376B\000\000\020cannot open file"); lf[214]=C_h_intern(&lf[214],12,"flush-output"); lf[215]=C_h_intern(&lf[215],7,"display"); lf[216]=C_decode_literal(C_heaptop,"\376B\000\000\005 ...\012"); lf[217]=C_decode_literal(C_heaptop,"\376B\000\000\012; loading "); lf[218]=C_h_intern(&lf[218],16,"\003sysfile-exists\077"); lf[219]=C_h_intern(&lf[219],26,"\003sysload-dynamic-extension"); lf[220]=C_h_intern(&lf[220],11,"\000type-error"); lf[221]=C_decode_literal(C_heaptop,"\376B\000\000(bad argument type - not a port or string"); lf[222]=C_h_intern(&lf[222],5,"port\077"); lf[223]=C_h_intern(&lf[223],13,"load-relative"); lf[224]=C_h_intern(&lf[224],12,"load-noisily"); lf[225]=C_h_intern(&lf[225],15,"\003sysget-keyword"); lf[226]=C_h_intern(&lf[226],8,"\000printer"); lf[227]=C_h_intern(&lf[227],5,"\000time"); lf[228]=C_h_intern(&lf[228],10,"\000evaluator"); lf[229]=C_h_intern(&lf[229],26,"\003sysload-library-extension"); lf[230]=C_h_intern(&lf[230],6,"cygwin"); lf[231]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\014cygchicken-0\376\377\016"); lf[232]=C_h_intern(&lf[232],34,"\003sysdefault-dynamic-load-libraries"); lf[233]=C_h_intern(&lf[233],22,"dynamic-load-libraries"); lf[234]=C_h_intern(&lf[234],18,"\003sysload-library-0"); lf[235]=C_h_intern(&lf[235],12,"load-library"); lf[236]=C_decode_literal(C_heaptop,"\376B\000\000\005 ...\012"); lf[237]=C_decode_literal(C_heaptop,"\376B\000\000\022; loading library "); lf[238]=C_h_intern(&lf[238],13,"string-append"); lf[239]=C_decode_literal(C_heaptop,"\376B\000\000\002C_"); lf[240]=C_decode_literal(C_heaptop,"\376B\000\000\011_toplevel"); lf[241]=C_h_intern(&lf[241],24,"\003sysstring->c-identifier"); lf[242]=C_h_intern(&lf[242],16,"\003sys->feature-id"); lf[243]=C_h_intern(&lf[243],16,"\003sysload-library"); lf[244]=C_decode_literal(C_heaptop,"\376B\000\000\026unable to load library"); lf[245]=C_h_intern(&lf[245],5,"print"); lf[246]=C_decode_literal(C_heaptop,"\376B\000\000\014; including "); lf[247]=C_decode_literal(C_heaptop,"\376B\000\000\004 ..."); lf[248]=C_h_intern(&lf[248],28,"\003sysresolve-include-filename"); lf[249]=C_h_intern(&lf[249],31,"\003syscanonicalize-extension-path"); lf[250]=C_decode_literal(C_heaptop,"\376B\000\000\026invalid extension path"); lf[251]=C_h_intern(&lf[251],18,"\003syssymbol->string"); lf[252]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[253]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[254]=C_decode_literal(C_heaptop,"\376B\000\000\001/"); lf[255]=C_h_intern(&lf[255],15,"repository-path"); lf[256]=C_h_intern(&lf[256],19,"\003sysrepository-path"); lf[257]=C_h_intern(&lf[257],14,"\003syssetup-mode"); lf[258]=C_h_intern(&lf[258],18,"\003sysfind-extension"); lf[259]=C_h_intern(&lf[259],12,"file-exists\077"); lf[260]=C_decode_literal(C_heaptop,"\376B\000\000\001/"); lf[261]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\001.\376\377\016"); lf[262]=C_h_intern(&lf[262],21,"\003sysinclude-pathnames"); lf[263]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\001.\376\377\016"); lf[264]=C_h_intern(&lf[264],21,"\003sysloaded-extensions"); lf[265]=C_h_intern(&lf[265],18,"\003sysload-extension"); lf[266]=C_decode_literal(C_heaptop,"\376B\000\000\030cannot load core library"); lf[267]=C_decode_literal(C_heaptop,"\376B\000\000\025cannot load extension"); lf[268]=C_h_intern(&lf[268],14,"string->symbol"); lf[269]=C_h_intern(&lf[269],11,"\003sysprovide"); lf[270]=C_h_intern(&lf[270],7,"provide"); lf[271]=C_h_intern(&lf[271],13,"\003sysprovided\077"); lf[272]=C_h_intern(&lf[272],9,"provided\077"); lf[273]=C_h_intern(&lf[273],7,"require"); lf[274]=C_h_intern(&lf[274],25,"\003sysextension-information"); lf[275]=C_decode_literal(C_heaptop,"\376B\000\000\012setup-info"); lf[276]=C_decode_literal(C_heaptop,"\376B\000\000\001/"); lf[277]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[278]=C_h_intern(&lf[278],21,"extension-information"); lf[279]=C_h_intern(&lf[279],18,"require-at-runtime"); lf[280]=C_h_intern(&lf[280],14,"dynamic/syntax"); lf[281]=C_h_intern(&lf[281],7,"dynamic"); lf[282]=C_h_intern(&lf[282],11,"lset-adjoin"); lf[283]=C_h_intern(&lf[283],3,"eq\077"); lf[284]=C_h_intern(&lf[284],26,"\010compilerfile-requirements"); lf[285]=C_h_intern(&lf[285],6,"import"); lf[286]=C_decode_literal(C_heaptop,"\376B\000\000\005srfi-"); lf[287]=C_h_intern(&lf[287],18,"\003sysnumber->string"); lf[288]=C_h_intern(&lf[288],17,"require-extension"); lf[289]=C_decode_literal(C_heaptop,"\376B\000\000\023invalid SRFI number"); lf[290]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\007chicken\376\003\000\000\002\376\001\000\000\006srfi-2\376\003\000\000\002\376\001\000\000\006srfi-6\376\003\000\000\002\376\001\000\000\007srfi-10\376\003\000\000\002\376\001\000\000\007srfi" "-12\376\003\000\000\002\376\001\000\000\007srfi-23\376\003\000\000\002\376\001\000\000\007srfi-28\376\003\000\000\002\376\001\000\000\007srfi-30\376\003\000\000\002\376\001\000\000\007srfi-39\376\003\000\000\002\376\001\000\000" "\007srfi-55\376\003\000\000\002\376\001\000\000\007srfi-88\376\003\000\000\002\376\001\000\000\007srfi-98\376\377\016"); lf[291]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[292]=C_h_intern(&lf[292],4,"uses"); lf[293]=C_h_intern(&lf[293],11,"import-only"); lf[294]=C_h_intern(&lf[294],6,"syntax"); lf[295]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[296]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006srfi-8\376\003\000\000\002\376\001\000\000\006srfi-9\376\003\000\000\002\376\001\000\000\007srfi-11\376\003\000\000\002\376\001\000\000\007srfi-15\376\003\000\000\002\376\001\000\000\007srfi" "-16\376\003\000\000\002\376\001\000\000\007srfi-17\376\003\000\000\002\376\001\000\000\007srfi-26\376\377\016"); lf[297]=C_h_intern(&lf[297],12,"\003sysfeature\077"); lf[298]=C_h_intern(&lf[298],4,"srfi"); lf[299]=C_h_intern(&lf[299],6,"rename"); lf[300]=C_decode_literal(C_heaptop,"\376B\000\000\033invalid extension specifier"); lf[301]=C_h_intern(&lf[301],6,"except"); lf[302]=C_h_intern(&lf[302],4,"only"); lf[303]=C_h_intern(&lf[303],6,"prefix"); lf[304]=C_decode_literal(C_heaptop,"\376B\000\000\033invalid extension specifier"); lf[305]=C_h_intern(&lf[305],14,"number->string"); lf[306]=C_h_intern(&lf[306],19,"\003syswrite-char/port"); lf[307]=C_h_intern(&lf[307],11,"environment"); lf[308]=C_h_intern(&lf[308],23,"interaction-environment"); lf[309]=C_h_intern(&lf[309],25,"scheme-report-environment"); lf[310]=C_h_intern(&lf[310],16,"null-environment"); lf[311]=C_h_intern(&lf[311],5,"foldr"); lf[312]=C_h_intern(&lf[312],28,"require-extension-for-syntax"); lf[313]=C_h_intern(&lf[313],15,"require-library"); lf[314]=C_h_intern(&lf[314],16,"begin-for-syntax"); lf[315]=C_h_intern(&lf[315],6,"export"); lf[316]=C_h_intern(&lf[316],11,"cond-expand"); lf[317]=C_h_intern(&lf[317],8,"reexport"); lf[318]=C_h_intern(&lf[318],17,"import-for-syntax"); lf[319]=C_decode_literal(C_heaptop,"\376B\000\000-unsupported scheme report environment version"); lf[320]=C_decode_literal(C_heaptop,"\376B\000\000$unsupported null environment version"); lf[321]=C_decode_literal(C_heaptop,"\376B\000\000\001/"); lf[322]=C_h_intern(&lf[322],27,"\003sysrepl-print-length-limit"); lf[323]=C_h_intern(&lf[323],18,"\003sysrepl-read-hook"); lf[324]=C_h_intern(&lf[324],26,"\003sysrepl-recent-call-chain"); lf[325]=C_h_intern(&lf[325],19,"\003sysrepl-print-hook"); lf[326]=C_h_intern(&lf[326],16,"\003syswrite-char-0"); lf[327]=C_h_intern(&lf[327],9,"\003sysprint"); lf[328]=C_h_intern(&lf[328],27,"\003syswith-print-length-limit"); lf[329]=C_h_intern(&lf[329],11,"repl-prompt"); lf[330]=C_h_intern(&lf[330],20,"\003sysread-prompt-hook"); lf[331]=C_h_intern(&lf[331],16,"\003sysflush-output"); lf[332]=C_h_intern(&lf[332],19,"\003sysstandard-output"); lf[333]=C_h_intern(&lf[333],22,"\003sysclear-trace-buffer"); lf[334]=C_h_intern(&lf[334],23,"\003sysresize-trace-buffer"); lf[335]=C_h_intern(&lf[335],4,"repl"); lf[336]=C_h_intern(&lf[336],18,"\003sysstandard-error"); lf[337]=C_h_intern(&lf[337],18,"\003sysstandard-input"); lf[338]=C_h_intern(&lf[338],13,"\003sysquit-hook"); lf[339]=C_h_intern(&lf[339],18,"\003syslast-exception"); lf[340]=C_h_intern(&lf[340],16,"print-call-chain"); lf[341]=C_h_intern(&lf[341],9,"condition"); lf[342]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\012call-chain"); lf[343]=C_h_intern(&lf[343],27,"\003sysreally-print-call-chain"); lf[344]=C_decode_literal(C_heaptop,"\376B\000\000\020\012\011Call history:\012"); lf[345]=C_decode_literal(C_heaptop,"\376B\000\000\002: "); lf[346]=C_decode_literal(C_heaptop,"\376B\000\000\002: "); lf[347]=C_decode_literal(C_heaptop,"\376B\000\000\006\012Error"); lf[348]=C_h_intern(&lf[348],17,"\003syserror-handler"); lf[349]=C_decode_literal(C_heaptop,"\376B\000\000\014; no values\012"); lf[350]=C_decode_literal(C_heaptop,"\376B\000\000\002; "); lf[351]=C_decode_literal(C_heaptop,"\376B\000\000\010 values\012"); lf[352]=C_h_intern(&lf[352],20,"\003syswarnings-enabled"); lf[353]=C_decode_literal(C_heaptop,"\376B\000\000\005 (in "); lf[354]=C_decode_literal(C_heaptop,"\376B\000\000\002 "); lf[355]=C_decode_literal(C_heaptop,"\376B\000\000=the following toplevel variables are referenced but unbound:\012"); lf[356]=C_h_intern(&lf[356],15,"\003sysread-char-0"); lf[357]=C_h_intern(&lf[357],15,"\003syspeek-char-0"); lf[358]=C_h_intern(&lf[358],21,"\003sysenable-qualifiers"); lf[359]=C_h_intern(&lf[359],17,"\003sysreset-handler"); lf[360]=C_h_intern(&lf[360],28,"\003syssharp-comma-reader-ctors"); lf[361]=C_h_intern(&lf[361],18,"define-reader-ctor"); lf[362]=C_h_intern(&lf[362],18,"\003sysuser-read-hook"); lf[363]=C_h_intern(&lf[363],14,"\003sysread-error"); lf[364]=C_decode_literal(C_heaptop,"\376B\000\000!invalid sharp-comma external form"); lf[365]=C_decode_literal(C_heaptop,"\376B\000\000!undefined sharp-comma constructor"); lf[366]=C_h_intern(&lf[366],18,"\003sysread-char/port"); lf[369]=C_h_intern(&lf[369],19,"print-error-message"); lf[370]=C_h_intern(&lf[370],22,"with-exception-handler"); lf[372]=C_h_intern(&lf[372],6,"\003sysgc"); lf[374]=C_h_intern(&lf[374],17,"\003systhread-yield!"); lf[377]=C_h_intern(&lf[377],17,"open-input-string"); lf[379]=C_decode_literal(C_heaptop,"\376B\000\000(Error: not enough room for result string"); lf[387]=C_decode_literal(C_heaptop,"\376B\000\000\010No error"); lf[388]=C_h_intern(&lf[388],11,"make-vector"); lf[389]=C_decode_literal(C_heaptop,"\376B\000\000\004#;> "); lf[390]=C_h_intern(&lf[390],14,"make-parameter"); lf[391]=C_h_intern(&lf[391],18,"module-environment"); lf[392]=C_h_intern(&lf[392],9,"r5rs-null"); lf[393]=C_h_intern(&lf[393],18,"null-environment/5"); lf[394]=C_h_intern(&lf[394],9,"r4rs-null"); lf[395]=C_h_intern(&lf[395],18,"null-environment/4"); lf[396]=C_h_intern(&lf[396],6,"scheme"); lf[397]=C_h_intern(&lf[397],27,"scheme-report-environment/5"); lf[398]=C_h_intern(&lf[398],4,"r4rs"); lf[399]=C_h_intern(&lf[399],27,"scheme-report-environment/4"); lf[400]=C_decode_literal(C_heaptop,"\376B\000\000\016#= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a7289 in k7211 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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!=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_7290,2,av);} /* eval.scm:758: compile-call */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7598(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k5019 in k4984 in k4981 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_5021,2,av);} t2=C_i_caddr(((C_word*)t0)[2]); /* eval.scm:412: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4096(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k5027 in k4981 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_5029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5029,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* eval.scm:410: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4096(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k4844 */ static void C_ccall f_4846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4846,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k4834 */ 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,1)))){ C_save_and_reclaim((void *)f_4836,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* a7295 in k7211 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_7296,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[152]+1)); t3=C_mutate2((C_word*)lf[152]+1 /* (set! ##sys#syntax-context ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_4837 in k4738 in a4735 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4837(C_word c,C_word *av){ C_word tmp; C_word 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_4837,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_4846,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6082 in a6061 */ 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; C_check_for_interrupt; 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=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5007 */ 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 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_5009,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5013,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; /* Re-use our own argvector */ } 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);}} /* a7284 in k7211 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7285(C_word c,C_word *av){ C_word tmp; 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_7285,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[152]+1)); t3=C_mutate2((C_word*)lf[152]+1 /* (set! ##sys#syntax-context ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_6681 in k6678 in k6675 in loop in a6656 in a6650 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in ... */ 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=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_6681,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_6687,a[2]=t4,a[3]=t2,a[4]=((C_word)li118),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_6687(t6,t1,((C_word*)t0)[2]);} /* k6678 in k6675 in loop in a6656 in a6650 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6680,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6681,a[2]=((C_word*)t0)[2],a[3]=((C_word)li119),tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9659 in k9581 in doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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(27,c,2)))){ C_save_and_reclaim((void *)f_9661,2,av);} a=C_alloc(27); t2=(C_truep(t1)?C_i_assq(lf[293],t1):C_SCHEME_FALSE); t3=t2; t4=(C_truep(t1)?C_i_assq(lf[294],t1):C_SCHEME_FALSE); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9678,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9682,a[2]=t5,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)[3],tmp=(C_word)a,a+=8,tmp); if(C_truep(t4)){ t7=C_a_i_list(&a,2,lf[124],((C_word*)t0)[3]); t8=C_a_i_list(&a,2,lf[121],t7); t9=t6; f_9682(t9,C_a_i_list(&a,1,t8));} else{ t7=t6; f_9682(t7,C_SCHEME_END_OF_LIST);}} /* loop2 */ static void C_fcall f_6687(C_word t0,C_word t1,C_word 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_6687,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[111]+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_6710,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* eval.scm:672: g1198 */ 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:672: g1201 */ 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);}}}} /* doloop234 in hash-table-for-each in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_3707(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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,3)))){ C_save_and_reclaim_args((void *)trf_3707,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_3715,a[2]=((C_word*)t0)[3],a[3]=((C_word)li8),tmp=(C_word)a,a+=4,tmp); t4=C_slot(((C_word*)t0)[4],t2); t5=C_i_check_list_2(t4,lf[20]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3736,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_3745,a[2]=t8,a[3]=t3,a[4]=((C_word)li9),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_3745(t10,t6,t4);}} /* ##sys#hash-table-for-each in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_3701(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(9,c,3)))){ C_save_and_reclaim((void *)f_3701,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_3707,a[2]=t4,a[3]=t2,a[4]=t3,a[5]=t6,a[6]=((C_word)li10),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_3707(t8,t1,C_fix(0));} /* a11209 in CHICKEN_eval_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 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!=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_11210,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11214,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:1745: open-output-string */ t3=*((C_word*)lf[29]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11212 in a11209 in CHICKEN_eval_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 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 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_11214,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,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]=t2,tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11228,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1746: eval */ t5=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11215 in k11212 in a11209 in CHICKEN_eval_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11217,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11224,a[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:1747: get-output-string */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in a6656 in a6650 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 in ... */ static void C_fcall f_6667(C_word t0,C_word t1,C_word 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(13,0,2)))){ C_save_and_reclaim_args((void *)trf_6667,4,t0,t1,t2,t3);} a=C_alloc(13); if(C_truep(C_i_nullp(t2))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6677,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* eval.scm:666: reverse */ t5=*((C_word*)lf[113]+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_6736,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_u_i_car(t7); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6742,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=t8,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* eval.scm:683: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[61]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[61]+1); av2[1]=t9; tp(2,av2);}}} /* k5530 in k5526 in k5499 in k5473 in k5464 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,7)))){ C_save_and_reclaim((void *)f_5532,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[62],t2); t4=C_a_i_list(&a,3,lf[62],((C_word*)t0)[3],t3); /* eval.scm:459: compile */ t5=((C_word*)((C_word*)t0)[4])[1]; f_4096(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]);} /* ##sys#eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7979(C_word c,C_word *av){ C_word tmp; C_word 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_7979,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7983,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* eval.scm:829: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[96]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[96]+1); av2[1]=t3; tp(2,av2);}} /* k6675 in loop in a6656 in a6650 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in ... */ static void C_ccall f_6677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_6677,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6680,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_6721,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* eval.scm:667: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[96]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[96]+1); av2[1]=t4; tp(2,av2);}} /* k5499 in k5473 in k5464 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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,4)))){ C_save_and_reclaim((void *)f_5501,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(((C_word*)t0)[2],lf[64]); t8=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5528,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|5,a[1]=(C_word)f_5606,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li77),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_5606(t12,t8,((C_word*)t0)[2],((C_word*)t0)[12]);} /* f_6011 in k5796 in k5790 in k5787 in a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *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_6011,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6017,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li99),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; /* eval.scm:245: ##sys#eval-decorator */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[5]; av2[4]=t4; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* k11232 in CHICKEN_eval_string_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in ... */ static void C_ccall f_11234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_11234,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_11239,a[2]=t4,a[3]=t3,a[4]=t2,a[5]=((C_word)li283),tmp=(C_word)a,a+=6,tmp); /* eval.scm:1752: run-safe */ f_11069(((C_word*)t0)[4],t5);} /* CHICKEN_eval_string_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 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=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_11230,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11234,a[2]=t3,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* eval.scm:1749: ##sys#peek-c-string */ t6=*((C_word*)lf[13]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* a6016 */ static void C_ccall f_6017(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_6017,6,av);} a=C_alloc(5); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6029,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* eval.scm:544: ##sys#vector */ t7=*((C_word*)lf[77]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k5011 in k5007 */ static void C_ccall f_5013(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_5013,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5017,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; /* Re-use our own argvector */ } 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);}} /* k5015 in k5011 in k5007 */ 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 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_5017,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; /* Re-use our own argvector */ } 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);}} /* a11238 in k11232 in CHICKEN_eval_string_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 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 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_11239,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11243,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:1754: open-output-string */ t3=*((C_word*)lf[29]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3734 in doloop234 in hash-table-for-each in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *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);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3707(t3,((C_word*)t0)[4],t2);} /* map-loop843 in k5526 in k5499 in k5473 in k5464 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_5558(C_word t0,C_word t1,C_word 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_5558,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[55],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_mutate2(((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_eval_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 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=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_11204,5,av);} a=C_alloc(6); t5=t2; t6=t3; t7=t4; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11210,a[2]=t7,a[3]=t6,a[4]=t5,a[5]=((C_word)li281),tmp=(C_word)a,a+=6,tmp); /* eval.scm:1743: run-safe */ f_11069(t1,t8);} /* k6027 in a6016 */ static void C_ccall f_6029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6029,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; /* Re-use our own argvector */ } 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);}} /* ##sys#load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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 +15,c,2)))){ C_save_and_reclaim((void*)f_8298,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+15); 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; 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=t12; t14=C_i_nullp(t10); t15=(C_truep(t14)?C_SCHEME_END_OF_LIST:C_i_cdr(t10)); t16=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8314,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t8,a[6]=t4,a[7]=t13,a[8]=t2,a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[4],tmp=(C_word)a,a+=11,tmp); t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8601,a[2]=t16,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* eval.scm:970: port? */ t18=*((C_word*)lf[222]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=t17; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t18+1)))(3,av2);}} /* for-each-loop239 in doloop234 in hash-table-for-each in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_3745(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_3745,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_3755,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)); /* eval.scm:149: g240 */ t5=((C_word*)t0)[3]; f_3715(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);}}} /* k5526 in k5499 in k5473 in k5464 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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(28,c,4)))){ C_save_and_reclaim((void *)f_5528,2,av);} a=C_alloc(28); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5532,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_5544,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|5,a[1]=(C_word)f_5558,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li76),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_5558(t12,t8,((C_word*)t0)[11],((C_word*)t0)[12]);} /* k7939 in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_7941,2,av);} t2=C_fixnum_greaterp(t1,C_fix(0)); /* eval.scm:824: compile */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4096(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]);} /* k5542 in k5526 in k5499 in k5473 in k5464 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; 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_5544,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[62],t2); t4=C_a_i_list(&a,1,t3); /* eval.scm:196: ##sys#append */ t5=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a11272 in CHICKEN_apply in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in ... */ static void C_ccall f_11273(C_word c,C_word *av){ 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_11273,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11281,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9470 in k9463 in k9460 in loop1 in lookup-runtime-requirements in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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:1272: append */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_7922 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7922,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9463 in k9460 in loop1 in lookup-runtime-requirements in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9465(C_word t0,C_word 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_9465,2,t0,t1);} a=C_alloc(4); t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9472,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[3]; t6=C_u_i_cdr(t5); /* eval.scm:1277: loop1 */ t7=((C_word*)((C_word*)t0)[4])[1]; f_9448(t7,t4,t6);} /* k9460 in loop1 in lookup-runtime-requirements in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_9462,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9465,a[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=C_i_assq(lf[279],t1); t4=t2; f_9465(t4,(C_truep(t3)?C_i_cdr(t3):C_SCHEME_FALSE));} else{ t3=t2; f_9465(t3,C_SCHEME_FALSE);}} /* k6301 in k6298 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_6303,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6304,a[2]=t2,a[3]=((C_word)li112),tmp=(C_word)a,a+=4,tmp); t4=C_i_check_list_2(((C_word*)t0)[2],lf[20]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6331,a[2]=t3,a[3]=((C_word)li113),tmp=(C_word)a,a+=4,tmp); t6=( f_6331(t5,((C_word*)t0)[2]) ); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6325,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,tmp=(C_word)a,a+=8,tmp); t8=C_i_cddr(((C_word*)t0)[8]); /* eval.scm:594: ##sys#canonicalize-body */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[68]+1); av2[1]=t7; av2[2]=t8; av2[3]=t2; av2[4]=C_SCHEME_FALSE; tp(5,av2);}} /* g1032 in k6301 in k6298 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static C_word C_fcall f_6304(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]));} /* k6298 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_6300,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6303,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); /* eval.scm:588: append */ t4=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k11291 in a11288 in CHICKEN_apply_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_11293,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11296,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_11307,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* add-req in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9492(C_word t0,C_word 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,5)))){ C_save_and_reclaim_args((void *)trf_9492,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(((C_word*)t0)[2])){ t4=(C_truep(t3)?lf[280]:lf[281]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9505,a[2]=t2,a[3]=((C_word)li216),tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9511,a[2]=t2,a[3]=((C_word)li217),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1284: ##sys#hash-table-update! */ t7=*((C_word*)lf[18]+1);{ C_word av2[6]; av2[0]=t7; av2[1]=t1; av2[2]=*((C_word*)lf[284]+1); av2[3]=t4; av2[4]=t5; av2[5]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(6,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);}}} /* k11294 in k11291 in a11288 in CHICKEN_apply_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 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 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_11296,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11303,a[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:1770: get-output-string */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8963 in k8905 in include-forms-from-file in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8965(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8965,2,av);} if(C_truep(t1)){ /* eval.scm:1125: print */ t2=*((C_word*)lf[245]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[246]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[247]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_8910(2,av2);}}} /* k11259 in k11241 in a11238 in k11232 in CHICKEN_eval_string_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11261,2,av);} /* eval.scm:1755: eval */ t2=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11263 in k11241 in a11238 in k11232 in CHICKEN_eval_string_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in ... */ static void C_ccall f_11265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11265,2,av);} /* eval.scm:1755: read */ t2=*((C_word*)lf[195]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 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=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_11267,5,av);} a=C_alloc(6); t5=t2; t6=t3; t7=t4; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11273,a[2]=t7,a[3]=t5,a[4]=t6,a[5]=((C_word)li285),tmp=(C_word)a,a+=6,tmp); /* eval.scm:1761: run-safe */ f_11069(t1,t8);} /* ##sys#do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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 *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(31,c,5)))){ C_save_and_reclaim((void *)f_9489,5,av);} a=C_alloc(31); 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(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9492,a[2]=t3,a[3]=((C_word)li218),tmp=(C_word)a,a+=4,tmp)); t14=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9517,a[2]=t4,a[3]=((C_word)li219),tmp=(C_word)a,a+=4,tmp)); t15=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9550,a[2]=((C_word)li220),tmp=(C_word)a,a+=3,tmp)); t16=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9573,a[2]=t8,a[3]=t3,a[4]=t6,a[5]=((C_word)li222),tmp=(C_word)a,a+=6,tmp)); t17=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9896,a[2]=t2,a[3]=t12,a[4]=t10,a[5]=t1,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t2))){ t18=t2; t19=C_u_i_car(t18); t20=t17; f_9896(t20,C_i_symbolp(t19));} else{ t18=t17; f_9896(t18,C_SCHEME_FALSE);}} /* err in canonicalize-extension-path in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_8973(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_8973,2,t0,t1);} /* eval.scm:1140: ##sys#error */ t2=*((C_word*)lf[40]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[250]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* ##sys#canonicalize-extension-path in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8970(C_word c,C_word *av){ C_word tmp; C_word t0=av[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); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_8970,4,av);} a=C_alloc(24); 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|4,a[1]=(C_word)f_8973,a[2]=t3,a[3]=t2,a[4]=((C_word)li197),tmp=(C_word)a,a+=5,tmp)); t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8979,a[2]=((C_word)li198),tmp=(C_word)a,a+=3,tmp)); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8991,a[2]=t5,a[3]=t7,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_stringp(t2))){ t11=t10;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t2; f_8991(2,av2);}} else{ if(C_truep(C_i_symbolp(t2))){ /* eval.scm:1143: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[251]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[251]+1); av2[1]=t10; av2[2]=t2; tp(3,av2);}} else{ if(C_truep(C_i_listp(t2))){ 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_9072,a[2]=t12,a[3]=t5,a[4]=((C_word)li200),tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_9072(t14,t10,t2);} else{ t11=t10;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_SCHEME_UNDEFINED; f_8991(2,av2);}}}}} /* sep? in canonicalize-extension-path in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static C_word C_fcall f_8979(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_char_equalp(C_make_character(92),t1); if(C_truep(t2)){ return(t2);} else{ t3=t1; t4=C_u_i_char_equalp(C_make_character(47),t3); return(t4);}} /* f_4256 in a4121 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_4256,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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_slot(t5,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* CHICKEN_apply_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 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=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_11283,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_11289,a[2]=t9,a[3]=t8,a[4]=t6,a[5]=t7,a[6]=((C_word)li287),tmp=(C_word)a,a+=7,tmp); /* eval.scm:1766: run-safe */ f_11069(t1,t10);} /* k11279 in a11272 in CHICKEN_apply in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in ... */ static void C_ccall f_11281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11281,2,av);} /* eval.scm:1761: store-result */ f_11128(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* g2103 in k9415 in k9412 in k9409 in k9403 in extension-information in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9421(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_9421,3,t0,t1,t2);} /* eval.scm:1259: g2111 */ 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);}} /* a11288 in CHICKEN_apply_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 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(7,c,2)))){ C_save_and_reclaim((void *)f_11289,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11293,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:1768: open-output-string */ t3=*((C_word*)lf[29]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8951 in doloop1915 in k8932 in a8925 in a8914 in k8908 in k8905 in include-forms-from-file in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_8953,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_8936(t3,((C_word*)t0)[5],t1,t2);} /* a8958 in a8914 in k8908 in k8905 in include-forms-from-file in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; 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_8959,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[181]+1)); t3=C_mutate2((C_word*)lf[181]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6377 in map-loop1003 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_6379,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6354(t6,((C_word*)t0)[5],t5);} /* f_4237 in a4121 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_4237,3,av);} t3=C_slot(t2,C_fix(1)); t4=C_slot(t3,C_fix(0)); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_slot(t4,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_6587,2,av);} a=C_alloc(13); t2=t1; t3=*((C_word*)lf[110]+1); t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6590,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],tmp=(C_word)a,a+=13,tmp); /* eval.scm:661: ##sys#module-alias-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[109]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[109]+1); av2[1]=t4; tp(2,av2);}} /* map-loop1003 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_6354(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_6354,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_6379,a[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_6277,a[2]=t5,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6281,a[2]=t9,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t11=C_i_cadr(t6); /* eval.scm:585: ##sys#eval/meta */ t12=*((C_word*)lf[89]+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);}}} /* a8920 in a8914 in k8908 in k8905 in include-forms-from-file in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_8921,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[181]+1)); t3=C_mutate2((C_word*)lf[181]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a8925 in a8914 in k8908 in k8905 in include-forms-from-file in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; 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_8926,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8934,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1129: read */ t3=*((C_word*)lf[195]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_6581,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6584,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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_6776,a[2]=t3,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); /* eval.scm:653: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[96]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[96]+1); av2[1]=t4; tp(2,av2);}} /* k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_6584,2,av);} a=C_alloc(11); t2=*((C_word*)lf[96]+1); t3=*((C_word*)lf[61]+1); t4=*((C_word*)lf[108]+1); t5=*((C_word*)lf[109]+1); t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6587,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],tmp=(C_word)a,a+=11,tmp); /* eval.scm:656: ##sys#register-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[116]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[116]+1); av2[1]=t6; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[8]; tp(4,av2);}} /* k6597 in a6594 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_6599,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6602,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((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:655: current-environment11391140 */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[3])[1]; f_6602(2,av2);}}} /* a6594 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_6595,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6599,a[2]=((C_word*)t0)[2],a[3]=((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:655: current-module11371138 */ t3=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_6599(2,av2);}}} /* k8932 in a8925 in a8914 in k8908 in k8905 in include-forms-from-file in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; 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_8934,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_8936,a[2]=t3,a[3]=((C_word)li192),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_8936(t5,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* doloop1915 in k8932 in a8925 in a8914 in k8908 in k8905 in include-forms-from-file in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_8936(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_8936,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_eofp(t2))){ /* eval.scm:1132: reverse */ t4=*((C_word*)lf[113]+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_8953,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* eval.scm:1129: read */ t5=*((C_word*)lf[195]+1);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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(40,c,4)))){ C_save_and_reclaim((void *)f_6590,2,av);} a=C_alloc(40); 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_6595,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)li117),tmp=(C_word)a,a+=12,tmp); t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6651,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)li122),tmp=(C_word)a,a+=7,tmp); t14=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6744,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)li123),tmp=(C_word)a,a+=11,tmp); /* eval.scm:655: ##sys#dynamic-wind */ t15=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t15; av2[1]=((C_word*)t0)[12]; av2[2]=t12; av2[3]=t13; av2[4]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} /* k5057 in k5051 in k5048 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_5059(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_5059,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5062,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|8,a[1]=(C_word)f_5095,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],a[8]=((C_word*)t0)[11],tmp=(C_word)a,a+=9,tmp); /* eval.scm:421: cadadr */ t5=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5060 in k5057 in k5051 in k5048 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 in ... */ 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(8,c,3)))){ C_save_and_reclaim((void *)f_5062,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5063,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)li67),tmp=(C_word)a,a+=8,tmp); t4=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_5063 in k5060 in k5057 in k5051 in k5048 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 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=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_5063,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5079,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7996 in k7993 in k7990 in k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 t3; 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_7998,2,av);} a=C_alloc(16); t2=t1; t3=(*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)li153),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8018,a[2]=((C_word*)t0)[4],a[3]=((C_word)li154),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8031,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=t2,a[6]=((C_word)li155),tmp=(C_word)a,a+=7,tmp); /* eval.scm:835: dynamic-wind */ t6=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=((C_word*)t0)[8]; av2[2]=t3; av2[3]=t4; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k7993 in k7990 in k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_7995,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7998,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); /* eval.scm:834: ##sys#active-eval-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[171]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[171]+1); av2[1]=t3; tp(2,av2);}} /* k7990 in k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_7992,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7995,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:833: ##sys#current-meta-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[172]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[172]+1); av2[1]=t3; tp(2,av2);}} /* k5035 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_5037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5037,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* eval.scm:409: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4096(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k9409 in k9403 in extension-information in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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(5,c,5)))){ C_save_and_reclaim((void *)f_9411,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9414,a[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:1257: string-append */ t3=*((C_word*)lf[238]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[276]; av2[4]=t1; av2[5]=lf[277]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k9412 in k9409 in k9403 in extension-information in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_9414,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9417,a[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_9432,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; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t3; av2[2]=t1; av2[3]=lf[275]; tp(4,av2);}} /* k9415 in k9412 in k9409 in k9403 in extension-information in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_9417,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9421,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li211),tmp=(C_word)a,a+=5,tmp); /* eval.scm:1256: g2103 */ t3=t2; f_9421(t3,((C_word*)t0)[4],t1);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_6572,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_6581,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]=t4,tmp=(C_word)a,a+=8,tmp); if(C_truep(t6)){ t8=t7;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; f_6581(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_6783,a[2]=t4,a[3]=((C_word)li125),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[64]); 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_6840,a[2]=t10,a[3]=t18,a[4]=t12,a[5]=t11,a[6]=((C_word)li126),tmp=(C_word)a,a+=7,tmp)); t20=((C_word*)t18)[1]; f_6840(t20,t7,t15);}} /* k7987 in k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7989,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7992,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); /* eval.scm:832: ##sys#meta-macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[173]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[173]+1); av2[1]=t3; tp(2,av2);}} /* k7984 in k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_7986,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7989,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:831: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[61]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[61]+1); av2[1]=t3; tp(2,av2);}} /* k7981 in eval/meta in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_7983,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7986,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* eval.scm:830: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[108]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[108]+1); av2[1]=t3; tp(2,av2);}} /* loop in set-dynamic-load-mode! in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_8182(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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_8182,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_8195,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=C_eqp(t3,lf[187]); 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:947: loop */ t12=t1; t13=t7; t1=t12; t2=t13; goto loop;} else{ t6=C_eqp(t3,lf[188]); 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:947: loop */ t12=t1; t13=t8; t1=t12; t2=t13; goto loop;} else{ t7=C_eqp(t3,lf[189]); 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:947: loop */ t12=t1; t13=t9; t1=t12; t2=t13; goto loop;} else{ t8=C_eqp(t3,lf[190]); 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:947: loop */ t12=t1; t13=t10; t1=t12; t2=t13; goto loop;} else{ t9=C_slot(t2,C_fix(0)); /* eval.scm:946: ##sys#signal-hook */ t10=*((C_word*)lf[191]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t4; av2[2]=lf[185]; av2[3]=lf[192]; 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);}}} /* k9148 in k9142 in k9139 in check in k9133 in find-extension in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9150,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* eval.scm:1192: file-exists? */ t2=*((C_word*)lf[259]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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#extension-information in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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,2)))){ C_save_and_reclaim((void *)f_9401,4,av);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9405,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); /* eval.scm:1255: ##sys#repository-path */ t5=*((C_word*)lf[256]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k9403 in extension-information in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_9405,2,av);} a=C_alloc(6); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9411,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:1256: ##sys#canonicalize-extension-path */ t4=*((C_word*)lf[249]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9142 in k9139 in check in k9133 in find-extension in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; 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_9144,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_9150,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_9160,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1191: ##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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[8]; tp(4,av2);}}} /* k8193 in loop in set-dynamic-load-mode! in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8195(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8195,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* eval.scm:947: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_8182(t3,((C_word*)t0)[4],t2);} /* k9139 in check in k9133 in find-extension in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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(7,c,3)))){ C_save_and_reclaim((void *)f_9141,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9144,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_word*)lf[184]+1); if(C_truep(*((C_word*)lf[184]+1))){ t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_9144(2,av2);}} else{ if(C_truep(C_fudge(C_fix(24)))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9179,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1190: ##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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t5; av2[2]=t2; av2[3]=*((C_word*)lf[219]+1); tp(4,av2);}} else{ t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_9144(2,av2);}}}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_9144(2,av2);}}} /* k9177 in k9139 in check in k9133 in find-extension in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9179,2,av);} /* eval.scm:1190: file-exists? */ t2=*((C_word*)lf[259]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10009 in k10002 in k9996 in follow in k9984 in k9894 in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 in ... */ static void C_ccall f_10011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10011,2,av);} /* eval.scm:1382: doit */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9573(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k11251 in k11244 in k11241 in a11238 in k11232 in CHICKEN_eval_string_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in ... */ static void C_ccall f_11253(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11253,2,av);} /* eval.scm:1756: store-string */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=( /* eval.scm:1756: store-string */ f_11191(t1,((C_word*)t0)[3],((C_word*)t0)[4]) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9158 in k9142 in k9139 in check in k9133 in find-extension in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9160,2,av);} /* eval.scm:1191: file-exists? */ t2=*((C_word*)lf[259]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11255 in k11241 in a11238 in k11232 in CHICKEN_eval_string_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in ... */ static void C_ccall f_11257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11257,2,av);} /* eval.scm:1755: write */ t2=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7690 in k7683 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7692,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); t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7694 in k7690 in k7683 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7696,2,av);} /* eval.scm:801: g1435 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11222 in k11215 in k11212 in a11209 in CHICKEN_eval_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in ... */ static void C_ccall f_11224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11224,2,av);} /* eval.scm:1747: store-string */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=( /* eval.scm:1747: store-string */ f_11191(t1,((C_word*)t0)[3],((C_word*)t0)[4]) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11226 in k11212 in a11209 in CHICKEN_eval_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11228,2,av);} /* eval.scm:1746: write */ t2=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7683 */ 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 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_7685,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7692,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; /* Re-use our own argvector */ } 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);}} /* k6323 in k6301 in k6298 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6325(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6325,2,av);} /* eval.scm:593: compile */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4096(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]);} /* k7672 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7674(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_7674,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7677,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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:802: compile */ t5=((C_word*)((C_word*)t0)[10])[1]; f_4096(t5,t3,t4,((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[6],((C_word*)t0)[11]);} /* f_7678 in k7675 in k7672 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_7678,3,av);} a=C_alloc(11); t3=( /* eval.scm:804: emit-trace-info */ f_4074(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_7685,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7675 in k7672 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_7677,2,av);} a=C_alloc(11); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7678,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)li142),tmp=(C_word)a,a+=11,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* for-each-loop1031 in k6301 in k6298 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static C_word C_fcall f_6331(C_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:580: g1032 */ f_6304(((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);}} /* ##sys#find-extension in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9131(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_9131,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9135,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* eval.scm:1184: ##sys#repository-path */ t5=*((C_word*)lf[256]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k11241 in a11238 in k11232 in CHICKEN_eval_string_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 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 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_11243,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11246,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_11257,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11261,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11265,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1755: open-input-string */ t7=*((C_word*)lf[377]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* check in k9133 in find-extension in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9137(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_9137,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9141,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1186: string-append */ t4=*((C_word*)lf[238]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[260]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* doloop2339 in k10099 in string->c-identifier in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_10109,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ /* eval.scm:1397: get-output-string */ t3=*((C_word*)lf[27]+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_10125,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_10135,a[2]=t4,a[3]=t5,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_u_i_char_alphabeticp(t4))){ t7=t6; f_10135(t7,C_SCHEME_FALSE);} else{ t7=C_u_i_char_numericp(t4); t8=C_i_not(t7); t9=t6; f_10135(t9,(C_truep(t8)?t8:C_eqp(t2,C_fix(0))));}}} /* k9133 in find-extension in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_9135,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9137,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li202),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9186,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(C_truep(*((C_word*)lf[257]+1))?lf[261]:C_SCHEME_END_OF_LIST); t6=(C_truep(t2)?C_a_i_list1(&a,1,t2):C_SCHEME_END_OF_LIST); t7=(C_truep(((C_word*)t0)[4])?*((C_word*)lf[262]+1):C_SCHEME_END_OF_LIST); if(C_truep(*((C_word*)lf[257]+1))){ /* eval.scm:1193: ##sys#append */ t8=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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:1193: ##sys#append */ t8=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t4; av2[2]=t5; av2[3]=t6; av2[4]=t7; av2[5]=lf[263]; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}}} /* k10099 in string->c-identifier in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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,3)))){ C_save_and_reclaim((void *)f_10101,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_10109,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t6,a[6]=((C_word)li229),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_10109(t8,((C_word*)t0)[3],C_fix(0));} /* k11244 in k11241 in a11238 in k11232 in CHICKEN_eval_string_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11246,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11253,a[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:1756: get-output-string */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7659 in k7652 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7661,2,av);} /* eval.scm:797: g1429 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* check in k8989 in canonicalize-extension-path in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_8996(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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(4,0,4)))){ C_save_and_reclaim_args((void *)trf_8996,3,t0,t1,t2);} a=C_alloc(4); t3=C_block_size(t2); t4=C_eqp(C_fix(0),t3); if(C_truep(t4)){ /* eval.scm:1159: err */ t5=((C_word*)((C_word*)t0)[2])[1]; f_8973(t5,t1);} else{ t5=C_i_string_ref(t2,C_fix(0)); t6=( /* eval.scm:1160: sep? */ f_8979(t5) ); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9022,a[2]=((C_word*)t0)[4],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1161: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[206]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[206]+1); av2[1]=t7; av2[2]=t2; av2[3]=C_fix(1); av2[4]=t3; tp(5,av2);}} else{ t7=t2; t8=C_fixnum_difference(t3,C_fix(1)); t9=C_i_string_ref(t7,t8); t10=( /* eval.scm:1162: sep? */ f_8979(t9) ); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9035,a[2]=((C_word*)t0)[4],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t12=C_fixnum_difference(t3,C_fix(1)); /* eval.scm:1163: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[206]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[206]+1); av2[1]=t11; av2[2]=t2; av2[3]=C_fix(0); av2[4]=t12; tp(5,av2);}} else{ t11=t2; t12=t1;{ C_word av2[2]; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}}} /* k8989 in canonicalize-extension-path in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_8991,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_8996,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word)li199),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_8996(t5,((C_word*)t0)[4],t1);} /* k10133 in doloop2339 in k10099 in string->c-identifier in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_10135(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_10135,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_10141,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* write-char/port */ t5=*((C_word*)lf[306]+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{ /* write-char/port */ t2=*((C_word*)lf[306]+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);}}} /* k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(47,c,5)))){ C_save_and_reclaim((void *)f_9127,2,av);} a=C_alloc(47); t2=C_mutate2((C_word*)lf[255]+1 /* (set! repository-path ...) */,t1); t3=C_mutate2((C_word*)lf[256]+1 /* (set! ##sys#repository-path ...) */,*((C_word*)lf[255]+1)); t4=C_set_block_item(lf[257] /* ##sys#setup-mode */,0,C_SCHEME_FALSE); t5=C_mutate2((C_word*)lf[258]+1 /* (set! ##sys#find-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9131,a[2]=((C_word)li204),tmp=(C_word)a,a+=3,tmp)); t6=C_set_block_item(lf[264] /* ##sys#loaded-extensions */,0,C_SCHEME_END_OF_LIST); t7=C_mutate2((C_word*)lf[265]+1 /* (set! ##sys#load-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9233,a[2]=((C_word)li205),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[269]+1 /* (set! ##sys#provide ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9310,a[2]=((C_word)li207),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[270]+1 /* (set! provide ...) */,*((C_word*)lf[269]+1)); t10=C_mutate2((C_word*)lf[271]+1 /* (set! ##sys#provided? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9352,a[2]=((C_word)li208),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[272]+1 /* (set! provided? ...) */,*((C_word*)lf[271]+1)); t12=C_mutate2((C_word*)lf[123]+1 /* (set! ##sys#require ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9366,a[2]=((C_word)li210),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[273]+1 /* (set! require ...) */,*((C_word*)lf[123]+1)); t14=*((C_word*)lf[33]+1); t15=*((C_word*)lf[195]+1); t16=C_mutate2((C_word*)lf[274]+1 /* (set! ##sys#extension-information ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9401,a[2]=t14,a[3]=t15,a[4]=((C_word)li212),tmp=(C_word)a,a+=5,tmp)); t17=C_mutate2((C_word*)lf[278]+1 /* (set! extension-information ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9436,a[2]=((C_word)li213),tmp=(C_word)a,a+=3,tmp)); t18=*((C_word*)lf[33]+1); t19=C_mutate2((C_word*)lf[125]+1 /* (set! ##sys#lookup-runtime-requirements ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9442,a[2]=((C_word)li215),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2((C_word*)lf[128]+1 /* (set! ##sys#do-the-right-thing ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9489,a[2]=((C_word)li228),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate2((C_word*)lf[241]+1 /* (set! ##sys#string->c-identifier ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10097,a[2]=((C_word)li230),tmp=(C_word)a,a+=3,tmp)); t22=C_a_i_record4(&a,4,lf[307],lf[308],C_SCHEME_FALSE,C_SCHEME_FALSE); t23=t22; t24=C_mutate2((C_word*)lf[308]+1 /* (set! interaction-environment ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10185,a[2]=t23,a[3]=((C_word)li231),tmp=(C_word)a,a+=4,tmp)); t25=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10189,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11391,a[2]=((C_word)li295),tmp=(C_word)a,a+=3,tmp); /* eval.scm:1414: ##sys#register-record-printer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[401]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[401]+1); av2[1]=t25; av2[2]=lf[307]; av2[3]=t26; tp(4,av2);}} /* k4181 in k4130 in a4121 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4183,2,av);} t2=((C_word*)t0)[2]; f_4162(t2,C_i_not(t1));} /* k3615 in hash-table-ref in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_3617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3617,2,av);} a=C_alloc(4); t2=C_slot(((C_word*)t0)[2],t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3574,a[2]=((C_word*)t0)[3],a[3]=((C_word)li3),tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_3574(t3,t2) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10123 in doloop2339 in k10099 in string->c-identifier in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_10125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10125,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10109(t3,((C_word*)t0)[4],t2);} /* k11002 in user-read-hook in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in ... */ static void C_ccall f_11004(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_11004,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11007,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1671: read */ t3=*((C_word*)lf[195]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11005 in k11002 in user-read-hook in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 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 t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_11007,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11008,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li263),tmp=(C_word)a,a+=5,tmp); t4=C_i_nullp(t2); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11021,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_11021(t6,t4);} else{ t6=C_i_listp(t2); t7=t5; f_11021(t7,C_i_not(t6));}} /* err in k11005 in k11002 in user-read-hook in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in ... */ static void C_fcall f_11008(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_11008,2,t0,t1);} /* eval.scm:1672: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[363]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[363]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[364]; av2[4]=((C_word*)t0)[3]; tp(5,av2);}} /* extension-information in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9436(C_word c,C_word *av){ C_word tmp; C_word 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_9436,3,av);} /* eval.scm:1263: ##sys#extension-information */ t3=*((C_word*)lf[274]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=lf[278]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k9430 in k9412 in k9409 in k9403 in extension-information in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9432,2,av);} /* eval.scm:1258: file-exists? */ t2=*((C_word*)lf[259]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop783 in k5473 in k5464 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_5654(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_5654,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[74]); 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_mutate2(((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);}}} /* loop in k3622 in hash-table-set! in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_3632(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_3632,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)); /* eval.scm:144: loop */ t9=t1; t10=t7; t1=t9; t2=t10; goto loop;}}} /* f_7627 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7627(C_word c,C_word *av){ C_word tmp; C_word 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_7627,3,av);} a=C_alloc(8); t3=( /* eval.scm:795: emit-trace-info */ f_4074(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_7634,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=((C_word*)t0)[7];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* ##sys#string->c-identifier in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_10097,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10101,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1394: open-output-string */ t4=*((C_word*)lf[29]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a8438 in k8391 in doloop1749 in k8376 in k8373 in k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in ... */ static void C_ccall f_8439(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_8439,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_8456,a[2]=t4,a[3]=((C_word)li172),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_8456(t6,t1,t2);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8432 in a8422 in k8410 in a8404 in k8391 in doloop1749 in k8376 in k8373 in k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in ... */ static void C_ccall f_8434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8434,2,av);} /* eval.scm:1027: ##sys#display-times */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[196]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[196]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* loop1 in lookup-runtime-requirements in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9448(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_9448,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_9462,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* eval.scm:1273: ##sys#extension-information */ t5=*((C_word*)lf[274]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* ##sys#lookup-runtime-requirements in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_9442,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_9448,a[2]=t4,a[3]=((C_word)li214),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_9448(t6,t1,t2);} /* k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(34,c,7)))){ C_save_and_reclaim((void *)f_7605,2,av);} a=C_alloc(34); 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_7572,a[2]=((C_word)li139),tmp=(C_word)a,a+=3,tmp); t6=( f_7572(t4,C_fix(0)) ); t7=((C_word*)t0)[2]; switch(t6){ case C_SCHEME_FALSE: /* eval.scm:793: ##sys#syntax-error/context */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[164]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[164]+1); av2[1]=((C_word*)t0)[3]; av2[2]=lf[170]; av2[3]=((C_word*)t0)[2]; tp(4,av2);} case C_fix(0): t8=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7627,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)li140),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_7646,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:797: compile */ t10=((C_word*)((C_word*)t0)[8])[1]; f_4096(t10,t8,t9,((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[9]); case C_fix(2): t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7674,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],a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); t9=C_slot(t4,C_fix(0)); /* eval.scm:801: compile */ t10=((C_word*)((C_word*)t0)[8])[1]; f_4096(t10,t8,t9,((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[9]); case C_fix(3): t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7710,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],a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); t9=C_slot(t4,C_fix(0)); /* eval.scm:806: compile */ t10=((C_word*)((C_word*)t0)[8])[1]; f_4096(t10,t8,t9,((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[9]); case C_fix(4): t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7754,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],a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); t9=C_slot(t4,C_fix(0)); /* eval.scm:812: compile */ t10=((C_word*)((C_word*)t0)[8])[1]; f_4096(t10,t8,t9,((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[9]); 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|7,a[1]=(C_word)f_7801,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*)t0)[9],a[7]=((C_word)li145),tmp=(C_word)a,a+=8,tmp); t13=C_i_check_list_2(t4,lf[64]); t14=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7811,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_7874,a[2]=t10,a[3]=t16,a[4]=t12,a[5]=t11,a[6]=((C_word)li149),tmp=(C_word)a,a+=7,tmp)); t18=((C_word*)t16)[1]; f_7874(t18,t14,t4);}} /* k8488 in k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8490,2,av);} /* eval.scm:1014: ##sys#error */ t2=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[200]; av2[3]=t1; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k8492 in k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8494,2,av);} if(C_truep(t1)){ t2=t1; /* eval.scm:1016: ##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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[201]; av2[3]=t2; tp(4,av2);}} else{ /* eval.scm:1016: ##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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[201]; av2[3]=lf[202]; tp(4,av2);}}} /* map-loop810 in k5499 in k5473 in k5464 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_5606(C_word t0,C_word t1,C_word 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_5606,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_mutate2(((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);}}} /* k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_10197(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_10197,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10200,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* eval.scm:1424: module-environment */ t4=*((C_word*)lf[391]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[394]; av2[3]=lf[395]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_10194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_10194,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10197,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1423: module-environment */ t4=*((C_word*)lf[391]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[396]; av2[3]=lf[397]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* interaction-environment in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_10185(C_word c,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_10185,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_10189,2,av);} a=C_alloc(3); t2=C_set_block_item(lf[309] /* scheme-report-environment */,0,C_SCHEME_UNDEFINED); t3=C_set_block_item(lf[310] /* null-environment */,0,C_SCHEME_UNDEFINED); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10194,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1422: module-environment */ t5=*((C_word*)lf[391]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[398]; av2[3]=lf[399]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(30,c,7)))){ C_save_and_reclaim((void *)f_4421,2,av);} a=C_alloc(30); t2=t1; t3=t2; t4=C_eqp(t3,lf[44]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4430,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t6=C_i_cadr(((C_word*)t0)[3]); /* eval.scm:320: ##sys#strip-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[45]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[45]+1); av2[1]=t5; av2[2]=t6; tp(3,av2);}} else{ t5=C_eqp(t3,lf[46]); if(C_truep(t5)){ t6=C_i_cadr(((C_word*)t0)[3]); t7=t6; t8=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4516,a[2]=t7,a[3]=((C_word)li53),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t6=C_eqp(t3,lf[47]); if(C_truep(t6)){ t7=C_i_cadr(((C_word*)t0)[3]); /* eval.scm:336: compile */ t8=((C_word*)((C_word*)t0)[4])[1]; f_4096(t8,((C_word*)t0)[2],t7,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} else{ t7=C_eqp(t3,lf[48]); if(C_truep(t7)){ t8=C_i_cadr(((C_word*)t0)[3]); /* eval.scm:339: compile */ t9=((C_word*)((C_word*)t0)[4])[1]; f_4096(t9,((C_word*)t0)[2],t8,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} else{ t8=C_eqp(t3,lf[49]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4550,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp); t10=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=C_eqp(t3,lf[50]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4560,a[2]=((C_word*)t0)[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],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); t11=C_i_cadr(((C_word*)t0)[3]); /* eval.scm:344: compile */ t12=((C_word*)((C_word*)t0)[4])[1]; f_4096(t12,t10,t11,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} else{ t10=C_eqp(t3,lf[52]); t11=(C_truep(t10)?t10:C_eqp(t3,lf[53])); if(C_truep(t11)){ t12=C_slot(((C_word*)t0)[3],C_fix(1)); t13=t12; t14=C_i_length(t13); switch(t14){ case C_fix(0): /* eval.scm:355: compile */ t15=((C_word*)((C_word*)t0)[4])[1]; f_4096(t15,((C_word*)t0)[2],lf[54],((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]); case C_fix(1): t15=C_slot(t13,C_fix(0)); /* eval.scm:356: compile */ t16=((C_word*)((C_word*)t0)[4])[1]; f_4096(t16,((C_word*)t0)[2],t15,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]); case C_fix(2): t15=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4651,a[2]=((C_word*)t0)[2],a[3]=t13,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); t16=C_slot(t13,C_fix(0)); /* eval.scm:357: compile */ t17=((C_word*)((C_word*)t0)[4])[1]; f_4096(t17,t15,t16,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]); default: t15=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4673,a[2]=((C_word*)t0)[2],a[3]=t13,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); t16=C_slot(t13,C_fix(0)); /* eval.scm:361: compile */ t17=((C_word*)((C_word*)t0)[4])[1]; f_4096(t17,t15,t16,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}} else{ t12=C_eqp(t3,lf[55]); if(C_truep(t12)){ t13=C_i_cadr(((C_word*)t0)[3]); t14=t13; t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4730,a[2]=((C_word*)t0)[10],a[3]=t14,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[9],a[6]=((C_word)li58),tmp=(C_word)a,a+=7,tmp); t16=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4736,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[8],a[7]=t14,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[7],a[11]=((C_word)li63),tmp=(C_word)a,a+=12,tmp); /* eval.scm:367: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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[62]); 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|12,a[1]=(C_word)f_4873,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]=((C_word*)t0)[9],a[9]=t15,a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[3],tmp=(C_word)a,a+=13,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_5271,a[2]=t20,a[3]=t24,a[4]=t21,a[5]=((C_word)li73),tmp=(C_word)a,a+=6,tmp)); t26=((C_word*)t24)[1]; f_5271(t26,t22,t15);} else{ t14=C_eqp(t3,lf[70]); 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[64]); t25=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5344,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]=t19,a[10]=t16,tmp=(C_word)a,a+=11,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_5416,a[2]=t22,a[3]=t27,a[4]=t23,a[5]=((C_word)li75),tmp=(C_word)a,a+=6,tmp)); t29=((C_word*)t27)[1]; f_5416(t29,t25,t16);} else{ t15=C_eqp(t3,lf[73]); 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[64]); t23=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5466,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]=t17,tmp=(C_word)a,a+=11,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_5722,a[2]=t20,a[3]=t25,a[4]=t21,a[5]=((C_word)li80),tmp=(C_word)a,a+=6,tmp)); t27=((C_word*)t25)[1]; f_5722(t27,t23,t17);} else{ t16=C_eqp(t3,lf[75]); if(C_truep(t16)){ t17=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5763,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp); /* eval.scm:472: ##sys#check-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[84]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[84]+1); av2[1]=t17; av2[2]=lf[85]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[86]; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[9]; tp(7,av2);}} else{ t17=C_eqp(t3,lf[87]); if(C_truep(t17)){ t18=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6170,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)[3],tmp=(C_word)a,a+=8,tmp); 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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6186,a[2]=((C_word*)t0)[9],a[3]=((C_word)li110),tmp=(C_word)a,a+=4,tmp); t24=C_i_cadr(((C_word*)t0)[3]); t25=C_i_check_list_2(t24,lf[64]); t26=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6221,a[2]=t18,a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,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|6,a[1]=(C_word)f_6223,a[2]=t21,a[3]=t28,a[4]=t23,a[5]=t22,a[6]=((C_word)li111),tmp=(C_word)a,a+=7,tmp)); t30=((C_word*)t28)[1]; f_6223(t30,t26,t24);} else{ t18=C_eqp(t3,lf[91]); 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[64]); t25=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6300,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)[3],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,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_6354,a[2]=t21,a[3]=t27,a[4]=t22,a[5]=((C_word)li114),tmp=(C_word)a,a+=6,tmp)); t29=((C_word*)t27)[1]; f_6354(t29,t25,t23);} else{ t19=C_eqp(t3,lf[92]); 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|11,a[1]=(C_word)f_6401,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],a[8]=t23,a[9]=((C_word*)t0)[12],a[10]=t21,a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* eval.scm:600: rename */ t25=((C_word*)((C_word*)t0)[13])[1]; f_3970(t25,t24,t21,((C_word*)t0)[9]);} else{ t20=C_eqp(t3,lf[98]); if(C_truep(t20)){ /* eval.scm:613: compile */ t21=((C_word*)((C_word*)t0)[4])[1]; f_4096(t21,((C_word*)t0)[2],lf[99],((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} else{ t21=C_eqp(t3,lf[100]); if(C_truep(t21)){ t22=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6460,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); t23=C_i_cddr(((C_word*)t0)[3]); /* eval.scm:617: ##sys#canonicalize-body */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[68]+1); av2[1]=t22; av2[2]=t23; av2[3]=((C_word*)t0)[9]; av2[4]=C_SCHEME_FALSE; tp(5,av2);}} else{ t22=C_eqp(t3,lf[101]); if(C_truep(t22)){ t23=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6481,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); t24=C_i_cadr(((C_word*)t0)[3]); /* eval.scm:623: ##sys#include-forms-from-file */ t25=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t25; av2[1]=t23; av2[2]=t24; ((C_proc)(void*)(*((C_word*)t25+1)))(3,av2);}} else{ t23=C_eqp(t3,lf[103]); 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[64]); t30=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6515,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_6531,a[2]=t26,a[3]=t32,a[4]=t27,a[5]=((C_word)li116),tmp=(C_word)a,a+=6,tmp)); t34=((C_word*)t32)[1]; f_6531(t34,t30,t28);} else{ t24=C_eqp(t3,lf[107]); if(C_truep(t24)){ t25=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6572,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:636: ##sys#strip-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[45]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[45]+1); av2[1]=t25; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ t25=C_eqp(t3,lf[120]); if(C_truep(t25)){ t26=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6893,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:687: rename */ t27=((C_word*)((C_word*)t0)[13])[1]; f_3970(t27,t26,lf[85],((C_word*)t0)[9]);} else{ t26=C_eqp(t3,lf[121]); if(C_truep(t26)){ t27=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t28=t27; t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp); t30=((C_word*)t29)[1]; t31=C_i_cdr(((C_word*)t0)[3]); t32=C_i_check_list_2(t31,lf[64]); t33=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6920,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); 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_6990,a[2]=t29,a[3]=t35,a[4]=t30,a[5]=((C_word)li128),tmp=(C_word)a,a+=6,tmp)); t37=((C_word*)t35)[1]; f_6990(t37,t33,t31);} else{ t27=C_eqp(t3,lf[126]); if(C_truep(t27)){ t28=C_i_caddr(((C_word*)t0)[3]); t29=t28; t30=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7038,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); t31=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7042,a[2]=t29,a[3]=t30,tmp=(C_word)a,a+=4,tmp); t32=((C_word*)t0)[3]; t33=C_u_i_cdr(t32); t34=C_u_i_car(t33); /* eval.scm:703: ##sys#strip-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[45]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[45]+1); av2[1]=t31; av2[2]=t34; tp(3,av2);}} else{ t28=C_eqp(t3,lf[129]); t29=(C_truep(t28)?t28:C_eqp(t3,lf[130])); if(C_truep(t29)){ t30=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7093,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); t31=C_i_cadr(((C_word*)t0)[3]); /* eval.scm:712: ##sys#eval/meta */ t32=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t32; av2[1]=t30; av2[2]=t31; ((C_proc)(void*)(*((C_word*)t32+1)))(3,av2);}} else{ t30=C_eqp(t3,lf[132]); if(C_truep(t30)){ t31=C_i_cadr(((C_word*)t0)[3]); /* eval.scm:716: compile */ t32=((C_word*)((C_word*)t0)[4])[1]; f_4096(t32,((C_word*)t0)[2],t31,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} else{ t31=C_eqp(t3,lf[133]); t32=(C_truep(t31)?t31:C_eqp(t3,lf[134])); if(C_truep(t32)){ /* eval.scm:719: compile */ t33=((C_word*)((C_word*)t0)[4])[1]; f_4096(t33,((C_word*)t0)[2],lf[135],((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} else{ t33=C_eqp(t3,lf[136]); if(C_truep(t33)){ t34=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7134,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); if(C_truep(C_i_memq(lf[138],*((C_word*)lf[139]+1)))){ t35=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7141,a[2]=((C_word*)t0)[9],a[3]=((C_word)li132),tmp=(C_word)a,a+=4,tmp); t36=C_i_cdr(((C_word*)t0)[3]); t37=C_i_check_list_2(t36,lf[20]); 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(t39,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7156,a[2]=t39,a[3]=t35,a[4]=((C_word)li133),tmp=(C_word)a,a+=5,tmp)); t41=((C_word*)t39)[1]; f_7156(t41,t34,t36);} else{ /* eval.scm:724: ##sys#notice */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[59]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[59]+1); av2[1]=t34; av2[2]=lf[141]; av2[3]=((C_word*)t0)[3]; tp(4,av2);}}} else{ t34=C_eqp(t3,lf[142]); t35=(C_truep(t34)?t34:C_eqp(t3,lf[143])); if(C_truep(t35)){ t36=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7200,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:730: rename */ t37=((C_word*)((C_word*)t0)[13])[1]; f_3970(t37,t36,lf[144],((C_word*)t0)[9]);} else{ t36=C_eqp(t3,lf[42]); t37=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7213,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[14],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)[4],a[11]=((C_word*)t0)[6],a[12]=t2,tmp=(C_word)a,a+=13,tmp); if(C_truep(t36)){ t38=t37; f_7213(t38,t36);} else{ t38=C_eqp(t3,lf[153]); if(C_truep(t38)){ t39=t37; f_7213(t39,t38);} else{ t39=C_eqp(t3,lf[154]); if(C_truep(t39)){ t40=t37; f_7213(t40,t39);} else{ t40=C_eqp(t3,lf[155]); if(C_truep(t40)){ t41=t37; f_7213(t41,t40);} else{ t41=C_eqp(t3,lf[156]); if(C_truep(t41)){ t42=t37; f_7213(t42,t41);} else{ t42=C_eqp(t3,lf[157]); if(C_truep(t42)){ t43=t37; f_7213(t43,t42);} else{ t43=C_eqp(t3,lf[158]); if(C_truep(t43)){ t44=t37; f_7213(t44,t43);} else{ t44=C_eqp(t3,lf[159]); if(C_truep(t44)){ t45=t37; f_7213(t45,t44);} else{ t45=C_eqp(t3,lf[160]); if(C_truep(t45)){ t46=t37; f_7213(t46,t45);} else{ t46=C_eqp(t3,lf[161]); t47=t37; f_7213(t47,(C_truep(t46)?t46:C_eqp(t3,lf[162])));}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} /* k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_4103,2,av);} a=C_alloc(15); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4104,a[2]=((C_word*)t0)[2],a[3]=((C_word)li26),tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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|6,a[1]=(C_word)f_4116,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)li27),tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4122,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[8],a[6]=((C_word)li36),tmp=(C_word)a,a+=7,tmp); /* eval.scm:250: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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|14,a[1]=(C_word)f_4319,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[8],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); /* eval.scm:288: ##sys#number? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[168]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}}}} /* f_4104 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4104,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4453 in k4428 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4453,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a6650 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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!=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_6651,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6657,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word)li121),tmp=(C_word)a,a+=7,tmp); /* eval.scm:662: ##sys#with-property-restore */ t3=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_4403(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(15,0,4)))){ C_save_and_reclaim_args((void *)trf_4403,2,t0,t1);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_4406,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* eval.scm:310: ##sys#expand */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[163]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[163]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[9]; av2[4]=C_SCHEME_FALSE; tp(5,av2);}} /* k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_4406,2,av);} a=C_alloc(15); t2=C_eqp(t1,((C_word*)t0)[2]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_4421,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],tmp=(C_word)a,a+=15,tmp); t4=C_slot(((C_word*)t0)[2],C_fix(0)); /* eval.scm:314: rename */ t5=((C_word*)((C_word*)t0)[13])[1]; f_3970(t5,t3,t4,((C_word*)t0)[9]);} else{ /* eval.scm:313: compile */ t3=((C_word*)((C_word*)t0)[4])[1]; f_4096(t3,((C_word*)t0)[3],t1,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}} /* a6147 in k6141 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *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_6148,2,av);} /* eval.scm:479: ##sys#expand-extended-lambda-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[81]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[81]+1); av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=((C_word*)((C_word*)t0)[3])[1]; av2[4]=*((C_word*)lf[82]+1); av2[5]=((C_word*)t0)[4]; tp(6,av2);}} /* k11301 in k11294 in k11291 in a11288 in CHICKEN_apply_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11303,2,av);} /* eval.scm:1770: store-string */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=( /* eval.scm:1770: store-string */ f_11191(t1,((C_word*)t0)[3],((C_word*)t0)[4]) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a6656 in a6650 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(9,c,4)))){ C_save_and_reclaim((void *)f_6657,2,av);} a=C_alloc(9); 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|6,a[1]=(C_word)f_6667,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)li120),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_6667(t6,t1,t2,C_SCHEME_END_OF_LIST);} /* a4121 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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,4)))){ C_save_and_reclaim((void *)f_4122,4,av);} a=C_alloc(9); t4=t2; if(C_truep(t4)){ t5=t2; switch(t5){ case C_fix(0): t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4222,a[2]=t3,a[3]=((C_word)li28),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);} case C_fix(1): t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4237,a[2]=t3,a[3]=((C_word)li29),tmp=(C_word)a,a+=4,tmp); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);} case C_fix(2): t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4256,a[2]=t3,a[3]=((C_word)li30),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);} case C_fix(3): t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4279,a[2]=t3,a[3]=((C_word)li31),tmp=(C_word)a,a+=4,tmp); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);} default: t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4300,a[2]=t2,a[3]=t3,a[4]=((C_word)li32),tmp=(C_word)a,a+=5,tmp); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4132,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_symbolp(t3))){ if(C_truep(C_i_assq(((C_word*)t0)[2],((C_word*)t0)[4]))){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4204,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* eval.scm:256: ##sys#get */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[35]+1); av2[1]=t6; av2[2]=t3; av2[3]=lf[42]; tp(4,av2);}} else{ if(C_truep(((C_word*)t0)[5])){ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_4132(2,av2);}} else{ /* eval.scm:255: ##sys#alias-global-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[43]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[43]+1); av2[1]=t5; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; tp(5,av2);}}}} else{ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=((C_word*)t0)[2]; f_4132(2,av2);}}}} /* k6141 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_6143,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,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)li108),tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6154,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li109),tmp=(C_word)a,a+=5,tmp); /* eval.scm:477: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_5774(2,av2);}}} /* k6622 in k6618 in k6614 in k6610 in k6606 in k6603 in k6600 in k6597 in a6594 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure 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 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_6624,2,av);} a=C_alloc(10); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6627,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:655: current-module11371138 */ t4=((C_word*)t0)[11];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4428 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_4430,2,av);} a=C_alloc(4); t2=t1; switch(t2){ case C_fix(-1): t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4437,a[2]=((C_word)li45),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_4445,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4453,a[2]=((C_word)li47),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_4461,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4469,a[2]=((C_word)li49),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_4477,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep(t3)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4485,a[2]=((C_word)li51),tmp=(C_word)a,a+=3,tmp):(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4487,a[2]=t2,a[3]=((C_word)li52),tmp=(C_word)a,a+=4,tmp)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a8422 in k8410 in a8404 in k8391 in doloop1749 in k8376 in k8373 in k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 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 *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_8423,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_8427,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8434,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1027: ##sys#stop-timer */ t5=*((C_word*)lf[197]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k6618 in k6614 in k6610 in k6606 in k6603 in k6600 in k6597 in a6594 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 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(13,c,2)))){ C_save_and_reclaim((void *)f_6620,2,av);} a=C_alloc(13); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6624,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:655: module-alias-environment11431144 */ t4=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k11311 in CHICKEN_read in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in ... */ static void C_ccall f_11313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_11313,2,av);} a=C_alloc(5); t2=t1; t3=((C_word*)t0)[2]; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11318,a[2]=t3,a[3]=t2,a[4]=((C_word)li289),tmp=(C_word)a,a+=5,tmp); /* eval.scm:1773: run-safe */ f_11069(((C_word*)t0)[3],t4);} /* k8425 in a8422 in k8410 in a8404 in k8391 in doloop1749 in k8376 in k8373 in k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in ... */ static void C_ccall f_8427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8427,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_4437 in k4428 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4437,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(-1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6625 in k6622 in k6618 in k6614 in k6610 in k6606 in k6603 in k6600 in k6597 in a6594 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_6627,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,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],tmp=(C_word)a,a+=8,tmp); /* eval.scm:655: current-environment11391140 */ t3=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11305 in k11291 in a11288 in CHICKEN_apply_to_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11307,2,av);} /* eval.scm:1769: write */ t2=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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 k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in ... */ static void C_ccall f_11309(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_11309,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11313,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1772: ##sys#peek-c-string */ t5=*((C_word*)lf[13]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a4115 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4116(C_word c,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_4116,2,av);} /* eval.scm:250: lookup */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3985(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* a6153 in k6141 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_6154,4,av);} t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* f_4469 in k4428 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4469,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6634 in k6631 in k6628 in k6625 in k6622 in k6618 in k6614 in k6610 in k6606 in k6603 in k6600 in k6597 in a6594 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6636,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6631 in k6628 in k6625 in k6622 in k6618 in k6614 in k6610 in k6606 in k6603 in k6600 in k6597 in a6594 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_6633,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6636,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:655: module-alias-environment11431144 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_4461 in k4428 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4461,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(2); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6628 in k6625 in k6622 in k6618 in k6614 in k6610 in k6606 in k6603 in k6600 in k6597 in a6594 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6630,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); /* eval.scm:655: macro-environment11411142 */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a11317 in k11311 in CHICKEN_read in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 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!=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_11318,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11322,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1775: open-input-string */ t3=*((C_word*)lf[377]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8368(C_word c,C_word *av){ 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_8368,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8372,a[2]=((C_word*)t0)[2],a[3]=((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:1012: peek-char */ t3=*((C_word*)lf[203]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_8360,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8365,a[2]=((C_word)li168),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8368,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)li175),tmp=(C_word)a,a+=9,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8503,a[2]=t2,a[3]=((C_word)li176),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1009: ##sys#dynamic-wind */ t6=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6603 in k6600 in k6597 in a6594 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_6605,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6608,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((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:655: module-alias-environment11431144 */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[5])[1]; f_6608(2,av2);}}} /* k8401 in k8394 in k8391 in doloop1749 in k8376 in k8373 in k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8403,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_8383(t2,((C_word*)t0)[3],t1);} /* a8364 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8365(C_word c,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_8365,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6600 in k6597 in a6594 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 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 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_6602,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6605,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((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:655: macro-environment11411142 */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[4])[1]; f_6605(2,av2);}}} /* a8404 in k8391 in doloop1749 in k8376 in k8373 in k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in ... */ static void C_ccall f_8405(C_word c,C_word *av){ 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_8405,2,av);} a=C_alloc(5); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8412,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* eval.scm:1027: ##sys#start-timer */ t3=*((C_word*)lf[198]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* eval.scm:1028: evproc */ t2=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k6606 in k6603 in k6600 in k6597 in a6594 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 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 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_6608,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_6612,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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:655: current-module11371138 */ t4=((C_word*)t0)[13];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k8376 in k8373 in k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 in ... */ static void C_ccall f_8378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_8378,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_8383,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)li174),tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_8383(t5,((C_word*)t0)[7],t1);} /* k6614 in k6610 in k6606 in k6603 in k6600 in k6597 in a6594 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in ... */ static void C_ccall f_6616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_6616,2,av);} a=C_alloc(14); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6620,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:655: macro-environment11411142 */ t4=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_8372,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8375,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_8490,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_8494,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_8375(2,av2);}}} /* k8410 in a8404 in k8391 in doloop1749 in k8376 in k8373 in k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 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 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_8412,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8417,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li169),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8423,a[2]=((C_word)li170),tmp=(C_word)a,a+=3,tmp); /* eval.scm:1027: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11342 in a11339 in k11333 in CHICKEN_load in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in ... */ static void C_ccall f_11344(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11344,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8373 in k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_8375,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8378,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:1020: read */ t3=*((C_word*)lf[195]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6610 in k6606 in k6603 in k6600 in k6597 in a6594 in k6588 in k6585 in k6582 in k6579 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 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 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_6612,2,av);} a=C_alloc(15); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6616,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:655: current-environment11391140 */ t4=((C_word*)t0)[12];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* a8416 in k8410 in a8404 in k8391 in doloop1749 in k8376 in k8373 in k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in ... */ 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!=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_8417,2,av);} /* eval.scm:1027: evproc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a11339 in k11333 in CHICKEN_load in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in ... */ static void C_ccall f_11340(C_word c,C_word *av){ 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_11340,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11344,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1779: load */ t3=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_4445 in k4428 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4445,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3622 in hash-table-set! in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_3624,2,av);} a=C_alloc(11); t2=t1; t3=C_slot(((C_word*)t0)[2],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|8,a[1]=(C_word)f_3632,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=t2,a[7]=t6,a[8]=((C_word)li5),tmp=(C_word)a,a+=9,tmp)); t8=((C_word*)t6)[1]; f_3632(t8,((C_word*)t0)[5],t4);} /* ##sys#hash-table-set! in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *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_3620,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3624,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t6=C_block_size(t2); /* eval.scm:137: ##sys#hash-symbol */ t7=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t5; av2[2]=t3; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* f_4477 in k4428 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4477,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a8344 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_8345,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[194]+1)); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,*((C_word*)lf[181]+1)); t4=C_mutate2(((C_word *)((C_word*)t0)[4])+1,*((C_word*)lf[182]+1)); t5=C_mutate2(((C_word *)((C_word*)t0)[5])+1,*((C_word*)lf[180]+1)); t6=C_mutate2((C_word*)lf[194]+1 /* (set! ##sys#read-error-with-line-number ...) */,((C_word*)((C_word*)t0)[6])[1]); t7=C_mutate2((C_word*)lf[181]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[7])[1]); t8=C_mutate2((C_word*)lf[182]+1 /* (set! ##sys#current-load-path ...) */,((C_word*)((C_word*)t0)[8])[1]); t9=C_mutate2((C_word*)lf[180]+1 /* (set! ##sys#abort-load ...) */,((C_word*)((C_word*)t0)[9])[1]); t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* CHICKEN_get_error_message in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 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=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_11346,4,av);} t4=lf[367]; if(C_truep(lf[367])){ t5=lf[367]; t6=lf[367]; /* eval.scm:1782: store-string */ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=( /* eval.scm:1782: store-string */ f_11191(lf[367],t3,t2) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ /* eval.scm:1782: store-string */ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=( /* eval.scm:1782: store-string */ f_11191(lf[387],t3,t2) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8356(C_word c,C_word *av){ 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_8356,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8360,a[2]=((C_word*)t0)[2],a[3]=((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*)t0)[6])){ /* eval.scm:1008: open-input-file */ t3=*((C_word*)lf[205]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[7]; f_8360(2,av2);}}} /* k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_8323,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8326,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8331,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)li179),tmp=(C_word)a,a+=10,tmp); /* eval.scm:999: call-with-current-continuation */ t4=*((C_word*)lf[208]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k8324 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8326,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_8320,2,av);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8323,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8537,a[2]=t2,a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8565,a[2]=t3,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp); /* eval.scm:992: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[210]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[210]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=lf[200]; tp(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_8323(2,av2);}}} /* k7652 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7654,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7661,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; /* Re-use our own argvector */ } 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);}} /* k3488 in k3485 */ static void C_ccall f_3490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_3490,2,av);} a=C_alloc(9); t2=C_mutate2((C_word*)lf[0]+1 /* (set! ##sys#core-library-modules ...) */,lf[1]); t3=C_mutate2((C_word*)lf[2]+1 /* (set! ##sys#core-syntax-modules ...) */,lf[3]); t4=C_set_block_item(lf[4] /* ##sys#explicit-library-modules */,0,C_SCHEME_END_OF_LIST); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11721,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11725,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t7=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(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);}} /* k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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(47,c,4)))){ C_save_and_reclaim((void *)f_8335,2,av);} a=C_alloc(47); 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_8336,a[2]=((C_word*)t0)[2],a[3]=((C_word)li166),tmp=(C_word)a,a+=4,tmp); 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_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_8345,a[2]=t7,a[3]=t9,a[4]=t11,a[5]=t13,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=t3,a[9]=t5,a[10]=((C_word)li167),tmp=(C_word)a,a+=11,tmp); t15=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8356,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)li177),tmp=(C_word)a,a+=9,tmp); t16=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8512,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t5,a[6]=t7,a[7]=t9,a[8]=t11,a[9]=t13,a[10]=((C_word)li178),tmp=(C_word)a,a+=11,tmp); /* eval.scm:1000: ##sys#dynamic-wind */ t17=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t17; av2[1]=((C_word*)t0)[11]; av2[2]=t14; av2[3]=t15; av2[4]=t16; ((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}} /* f_8336 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *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_8336,2,av);} /* eval.scm:1007: abrt */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_7647 in k7644 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_7647,3,av);} a=C_alloc(10); t3=( /* eval.scm:799: emit-trace-info */ f_4074(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_7654,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(20,c,2)))){ C_save_and_reclaim((void *)f_8331,3,av);} a=C_alloc(20); t3=C_SCHEME_TRUE; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t0)[2]; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8335,a[2]=t2,a[3]=t4,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)[2],a[10]=((C_word*)t0)[7],a[11]=t1,tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)t0)[2])){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8524,a[2]=t7,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1005: has-sep? */ f_8253(t8,((C_word*)t0)[2]);} else{ t8=t7;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; f_8335(2,av2);}}} /* k7644 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_7646,2,av);} a=C_alloc(10); 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]=((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)li141),tmp=(C_word)a,a+=10,tmp); t4=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3485 */ static void C_ccall f_3487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3487,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3490,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_modules_toplevel(2,av2);}} /* k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_11385,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_11377,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:1447: strip */ f_10205(t3,t4);} /* k10149 in k10142 in k10139 in k10133 in doloop2339 in k10099 in string->c-identifier in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 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,3)))){ C_save_and_reclaim((void *)f_10151,2,av);} /* eval.scm:1404: display */ t2=*((C_word*)lf[215]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7632 */ static void C_ccall f_7634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7634,2,av);} /* eval.scm:794: g1424 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a11390 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11391(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_11391,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11395,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* eval.scm:1415: ##sys#print */ t5=*((C_word*)lf[327]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=lf[400]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k11393 in a11390 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_11395,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11398,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:1416: ##sys#print */ t4=*((C_word*)lf[327]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10142 in k10139 in k10133 in doloop2339 in k10099 in string->c-identifier in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_10144,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10151,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1404: number->string */ t3=*((C_word*)lf[305]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10139 in k10133 in doloop2339 in k10099 in string->c-identifier in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_10141,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10144,a[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)))){ /* write-char/port */ t3=*((C_word*)lf[306]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_10144(2,av2);}}} /* k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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,5)))){ C_save_and_reclaim((void *)f_8314,2,av);} a=C_alloc(15); t2=t1; t3=((C_word*)t0)[2]; t4=(C_truep(t3)?t3:((C_word*)t0)[3]); t5=t4; t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8320,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=t5,a[6]=((C_word*)t0)[6],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_i_stringp(((C_word*)t0)[8]); t8=(C_truep(t7)?C_i_not(t2):C_SCHEME_FALSE); if(C_truep(t8)){ /* eval.scm:985: ##sys#signal-hook */ t9=*((C_word*)lf[191]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t9; av2[1]=t6; av2[2]=lf[212]; av2[3]=lf[200]; av2[4]=lf[213]; av2[5]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t9+1)))(6,av2);}} else{ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8592,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* eval.scm:986: load-verbose */ t10=*((C_word*)lf[179]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in ... */ 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 t3; 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_11361,2,av);} a=C_alloc(13); t2=C_i_setslot(((C_word*)t0)[2],C_fix(2),t1); t3=C_mutate2((C_word*)lf[309]+1 /* (set! scheme-report-environment ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10263,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li234),tmp=(C_word)a,a+=5,tmp)); t4=C_mutate2((C_word*)lf[310]+1 /* (set! null-environment ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10288,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word)li235),tmp=(C_word)a,a+=5,tmp)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10315,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1475: chicken-home */ t6=*((C_word*)lf[12]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k11396 in k11393 in a11390 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11398,2,av);} /* eval.scm:1417: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[326]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[326]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(62); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k7072 in a7065 in loop in k7040 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7074(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_7074,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[52],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10002 in k9996 in follow in k9984 in k9894 in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_10004(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_10004,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10011,a[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]); /* eval.scm:1382: srfi-id */ f_9550(t2,t3);} else{ t2=C_i_cadr(((C_word*)t0)[5]); /* eval.scm:1383: follow */ t3=((C_word*)((C_word*)t0)[7])[1]; f_9991(t3,((C_word*)t0)[3],t2);}} /* k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 in ... */ 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 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_11377,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_11369,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:1448: strip */ f_10205(t3,t4);} /* k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11369,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_11361,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:1449: strip */ f_10205(t3,t4);} /* a7065 in loop in k7040 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(4,c,2)))){ C_save_and_reclaim((void *)f_7066,5,av);} a=C_alloc(4); t5=t2; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7074,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_i_cdr(((C_word*)t0)[2]); /* eval.scm:708: loop */ t8=((C_word*)((C_word*)t0)[3])[1]; f_7044(t8,t6,t7);} /* k6952 in k6924 in k6921 in k6918 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6954,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[123],t1); /* eval.scm:694: compile */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4096(t3,((C_word*)t0)[3],t2,((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* map-loop1255 in k6924 in k6921 in k6918 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_6956(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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(9,0,2)))){ C_save_and_reclaim_args((void *)trf_6956,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[124],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_mutate2(((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 k9184 in k9133 in find-extension in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9188(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_9188,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_9201,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* eval.scm:1200: check */ t5=((C_word*)t0)[3]; f_9137(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);}}} /* k9184 in k9133 in find-extension in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_9186,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_9188,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li203),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_9188(t5,((C_word*)t0)[3],t1);} /* k11649 in a11646 in k11625 in a11619 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_11651,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11655,a[2]=((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:863: macro-environment15611562 */ t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k11653 in k11649 in a11646 in k11625 in a11619 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_11655,2,av);} a=C_alloc(4); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11658,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* eval.scm:863: macro-environment15611562 */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a7055 in loop in k7040 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7056(C_word c,C_word *av){ 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_7056,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* eval.scm:707: ##sys#do-the-right-thing */ t3=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11656 in k11653 in k11649 in a11646 in k11625 in a11619 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_11658,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6921 in k6918 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6923,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6926,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:693: ##sys#lookup-runtime-requirements */ t3=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6924 in k6921 in k6918 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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,7)))){ C_save_and_reclaim((void *)f_6926,2,av);} a=C_alloc(21); if(C_truep(C_i_nullp(t1))){ /* eval.scm:694: compile */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4096(t2,((C_word*)t0)[3],lf[122],((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} 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(t1,lf[64]); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6954,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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); 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_6956,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li127),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_6956(t11,t7,t1);}} /* k6918 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_6920,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6923,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t3; av2[2]=*((C_word*)lf[123]+1); av2[3]=t2; C_apply(4,av2);}} /* a11663 in k11625 in a11619 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11664(C_word c,C_word *av){ 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,7)))){ C_save_and_reclaim((void *)f_11664,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(3)); /* eval.scm:864: ##sys#compile-to-closure */ t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=((C_word*)t0)[4]; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[2]; av2[7]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k7040 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_7042,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_7044,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li131),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_7044(t5,((C_word*)t0)[3],t1);} /* loop in k7040 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_7044(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(10,0,5)))){ C_save_and_reclaim_args((void *)trf_7044,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=lf[127]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7056,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li129),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7066,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word)li130),tmp=(C_word)a,a+=5,tmp); /* eval.scm:706: ##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);}}} /* k8632 in k8626 in k8623 in k8617 in k8614 in k8599 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8634,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?((C_word*)t0)[3]:((C_word*)t0)[4]); f_8314(2,av2);}} /* run-safe in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in ... */ static void C_fcall f_11069(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_11069,2,t1,t2);} a=C_alloc(7); t3=lf[367] /* last-error */ =C_SCHEME_FALSE;; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11074,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11079,a[2]=t2,a[3]=((C_word)li271),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1698: call-with-current-continuation */ t6=*((C_word*)lf[208]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k7036 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7038,2,av);} /* eval.scm:702: compile */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4096(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]);} /* k11072 in run-safe in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11074,2,av);} /* eval.scm:1698: g2680 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k3694 in k3691 in hash-table-update! in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3696,2,av);} /* eval.scm:147: updtfunc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3691 in hash-table-update! in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_3693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3693,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3696,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; /* eval.scm:147: updtfunc */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ /* eval.scm:147: valufunc */ t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}} /* a11078 in run-safe in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 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=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_11079,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11085,a[2]=t2,a[3]=((C_word)li266),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11104,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li270),tmp=(C_word)a,a+=5,tmp); /* eval.scm:1698: with-exception-handler */ t5=*((C_word*)lf[370]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11600 in doloop1597 in a11584 in a11573 in a11546 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11602(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_11602,2,av);} t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)((C_word*)t0)[3])[1]; f_11592(t4,((C_word*)t0)[4]);} /* a11084 in a11078 in run-safe in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in ... */ static void C_ccall f_11085(C_word c,C_word *av){ C_word tmp; C_word 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_11085,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11091,a[2]=t2,a[3]=((C_word)li265),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1698: k2676 */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k7013 in map-loop1224 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7015,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6990(t6,((C_word*)t0)[5],t5);} /* a11090 in a11084 in a11078 in run-safe in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in ... */ static void C_ccall f_11091(C_word c,C_word *av){ 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_11091,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11095,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1699: open-output-string */ t3=*((C_word*)lf[29]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11093 in a11090 in a11084 in a11078 in run-safe in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in ... */ 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; 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_11095,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11098,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1700: print-error-message */ t4=*((C_word*)lf[369]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11096 in k11093 in a11090 in a11084 in a11078 in run-safe in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 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; 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_11098,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11102,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1701: get-output-string */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11019 in k11005 in k11002 in user-read-hook in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in ... */ static void C_fcall f_11021(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_11021,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ /* eval.scm:1674: err */ t2=((C_word*)t0)[2]; f_11008(t2,((C_word*)t0)[3]);} else{ t2=C_slot(((C_word*)t0)[4],C_fix(0)); t3=t2; if(C_truep(C_i_symbolp(t3))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11039,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); /* eval.scm:1678: ##sys#hash-table-ref */ t5=*((C_word*)lf[16]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[360]+1); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* eval.scm:1677: err */ t4=((C_word*)t0)[2]; f_11008(t4,((C_word*)t0)[3]);}}} /* k3687 in hash-table-update! in k3513 in k3510 in k11719 in k3488 in k3485 */ 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,4)))){ C_save_and_reclaim((void *)f_3689,2,av);} /* eval.scm:147: ##sys#hash-table-set! */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5180 in doloop653 in k5143 */ 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 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_5182,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_5157(t5,((C_word*)t0)[6],t3,t4);} /* map-loop626 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_5187(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_5187,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_5212,a[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:431: g632 */ t5=((C_word*)t0)[4]; f_5127(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);}}} /* ##sys#hash-table-update! in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_3681(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(10,c,3)))){ C_save_and_reclaim((void *)f_3681,6,av);} a=C_alloc(10); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3689,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_3693,a[2]=t4,a[3]=t6,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* eval.scm:147: ##sys#hash-table-ref */ t8=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k11637 in k11625 in a11619 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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:861: g1556 */ t2=t1;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9894 in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9896(C_word t0,C_word t1){ C_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(27,0,3)))){ C_save_and_reclaim_args((void *)trf_9896,2,t0,t1);} a=C_alloc(27); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_eqp(t2,lf[298]); if(C_truep(t3)){ t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,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|5,a[1]=(C_word)f_9916,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],a[5]=((C_word)li225),tmp=(C_word)a,a+=6,tmp); t11=((C_word*)t0)[2]; t12=C_u_i_cdr(t11); t13=C_i_check_list_2(t12,lf[64]); t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9943,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[2],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|6,a[1]=(C_word)f_9945,a[2]=t8,a[3]=t16,a[4]=t10,a[5]=t9,a[6]=((C_word)li226),tmp=(C_word)a,a+=7,tmp)); t18=((C_word*)t16)[1]; f_9945(t18,t14,t12);} else{ t4=C_eqp(t2,lf[299]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9986,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(t4)){ t6=t5; f_9986(t6,t4);} else{ t6=C_eqp(t2,lf[301]); if(C_truep(t6)){ t7=t5; f_9986(t7,t6);} else{ t7=C_eqp(t2,lf[302]); t8=t5; f_9986(t8,(C_truep(t7)?t7:C_eqp(t2,lf[303])));}}}} else{ if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){ /* eval.scm:1387: doit */ t2=((C_word*)((C_word*)t0)[3])[1]; f_9573(t2,((C_word*)t0)[5],((C_word*)t0)[2],((C_word*)t0)[2]);} else{ /* eval.scm:1388: ##sys#error */ t2=*((C_word*)lf[40]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[304]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}} /* k11037 in k11019 in k11005 in k11002 in user-read-hook in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in ... */ static void C_ccall f_11039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_11039,2,av);} if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(1));{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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{ /* eval.scm:1681: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[363]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[365]; av2[4]=((C_word*)t0)[5]; tp(5,av2);}}} /* a11646 in k11625 in a11619 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11647(C_word c,C_word *av){ 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_11647,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11651,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:863: macro-environment15611562 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_11651(2,av2);}}} /* k11320 in a11317 in k11311 in CHICKEN_read in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 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 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_11322,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11329,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1776: read */ t3=*((C_word*)lf[195]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a11673 in k11625 in a11619 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_11674,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11678,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* eval.scm:863: macro-environment15611562 */ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* a11355 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in ... */ static void C_ccall f_11356(C_word c,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_11356,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[389]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11676 in a11673 in k11625 in a11619 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_11678,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11681,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* eval.scm:863: macro-environment15611562 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* CHICKEN_load in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in ... */ static void C_ccall f_11331(C_word c,C_word *av){ C_word tmp; C_word 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_11331,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11335,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1778: ##sys#peek-c-string */ t4=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11679 in k11676 in a11673 in k11625 in a11619 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; 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_11681,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11327 in k11320 in a11317 in k11311 in CHICKEN_read in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in ... */ static void C_ccall f_11329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11329,2,av);} /* eval.scm:1776: store-result */ f_11128(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* k11686 in k11625 in a11619 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11688,2,av);} /* eval.scm:857: g1577 */ t2=t1;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a11614 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_11615,4,av);} t4=C_mutate2((C_word*)lf[419]+1 /* (set! ##sys#put/restore! ...) */,t2); t5=C_mutate2((C_word*)lf[114]+1 /* (set! ##sys#with-property-restore ...) */,t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k11333 in CHICKEN_load in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11335,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11340,a[2]=t2,a[3]=((C_word)li291),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1779: run-safe */ f_11069(((C_word*)t0)[2],t3);} /* a11619 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11620(C_word c,C_word *av){ C_word tmp; C_word 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_11620,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_11627,a[2]=t6,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* eval.scm:858: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[61]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[61]+1); av2[1]=t7; tp(2,av2);}} /* k11625 in a11619 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 t6; C_word 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,7)))){ C_save_and_reclaim((void *)f_11627,2,av);} a=C_alloc(24); if(C_truep(((C_word*)t0)[2])){ t2=C_i_check_structure_2(((C_word*)t0)[2],lf[307],lf[56]); t3=C_slot(((C_word*)t0)[2],C_fix(2)); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11639,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); if(C_truep(t4)){ t6=*((C_word*)lf[108]+1); 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_TRUE; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11647,a[2]=t8,a[3]=t10,a[4]=t6,a[5]=((C_word)li305),tmp=(C_word)a,a+=6,tmp); t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11664,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=((C_word)li306),tmp=(C_word)a,a+=6,tmp); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11674,a[2]=t8,a[3]=t6,a[4]=((C_word)li307),tmp=(C_word)a,a+=5,tmp); /* eval.scm:863: ##sys#dynamic-wind */ t14=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t14; av2[1]=t5; av2[2]=t11; av2[3]=t12; av2[4]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}} else{ /* eval.scm:865: ##sys#compile-to-closure */ t6=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[2]; av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(8,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11688,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* eval.scm:868: ##sys#compile-to-closure */ t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; av2[5]=C_SCHEME_FALSE; av2[6]=C_SCHEME_FALSE; av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}}} /* k5101 in k5051 in k5048 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_5103,2,av);} t2=C_i_caddr(((C_word*)t0)[2]); /* eval.scm:420: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4096(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k5109 in k5048 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_5111,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* eval.scm:418: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4096(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* map-loop2224 in k9776 in k9766 in k9747 in k9732 in k9581 in doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in ... */ static void C_fcall f_9805(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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(9,0,2)))){ C_save_and_reclaim_args((void *)trf_9805,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[124],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_mutate2(((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);}}} /* k5117 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_5119,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* eval.scm:417: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4096(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k9801 in k9776 in k9766 in k9747 in k9732 in k9581 in doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in ... */ static void C_ccall f_9803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_9803,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[123],t1); t3=C_a_i_list(&a,1,t2); /* eval.scm:1279: ##sys#append */ t4=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8555 in k8559 in k8535 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8557,2,av);} /* eval.scm:995: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[210]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[210]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[200]; tp(4,av2);}} /* g632 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_5127(C_word 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_5127,3,t0,t1,t2);} t3=C_i_cadr(t2); t4=t2; t5=C_u_i_car(t4); /* eval.scm:431: compile */ t6=((C_word*)((C_word*)t0)[2])[1]; f_4096(t6,t1,t3,((C_word*)t0)[3],t5,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* k8551 in k8559 in k8535 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8553,2,av);} /* eval.scm:994: ##sys#dload */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[209]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[209]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k4674 in k4671 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_4676,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4679,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[52],t5); /* eval.scm:363: compile */ t7=((C_word*)((C_word*)t0)[5])[1]; f_4096(t7,t3,t6,((C_word*)t0)[6],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} /* k4677 in k4674 in k4671 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4679,2,av);} a=C_alloc(6); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4680,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li57),tmp=(C_word)a,a+=6,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4671 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_4673,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4676,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:362: compile */ t5=((C_word*)((C_word*)t0)[4])[1]; f_4096(t5,t3,t4,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k8563 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8565,2,av);} /* eval.scm:992: ##sys#dload */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[209]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[209]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k8559 in k8535 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8561(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_8561,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_8323(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8553,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_8557,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* eval.scm:996: ##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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t3; av2[2]=lf[211]; av2[3]=((C_word*)t0)[4]; tp(4,av2);}}} /* a11115 in a11103 in a11078 in run-safe in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in ... */ static void C_ccall f_11116(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_11116,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_11122,a[2]=t2,a[3]=((C_word)li268),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1698: k2676 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8535 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_8537,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_8323(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8561,a[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:993: has-sep? */ f_8253(t2,((C_word*)t0)[4]);}} /* k4657 */ 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,2)))){ C_save_and_reclaim((void *)f_4659,2,av);} t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a11109 in a11103 in a11078 in run-safe in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 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 *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_11110,2,av);} /* eval.scm:1703: thunk */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k4649 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_4651,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4654,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:358: compile */ t5=((C_word*)((C_word*)t0)[4])[1]; f_4096(t5,t3,t4,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k4652 in k4649 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4654(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4654,2,av);} a=C_alloc(5); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4655,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word)li56),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_4655 in k4652 in k4649 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_4655,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4659,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* store-result in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in ... */ static void C_fcall f_11128(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_11128,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11132,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* eval.scm:1710: ##sys#gc */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[372]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[372]+1); av2[1]=t4; av2[2]=C_SCHEME_FALSE; tp(3,av2);}} /* a11121 in a11115 in a11103 in a11078 in run-safe in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 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 *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_11122,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* map-loop546 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_5271(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_5271,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_mutate2(((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);}}} /* k9871 in k9864 in k9732 in k9581 in doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9873,2,av);} /* eval.scm:1360: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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_word*)t0)[3]; C_values(5,av2);}} /* f_4993 in k4990 in k4984 in k4981 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 in ... */ static void C_ccall f_4993(C_word c,C_word *av){ C_word tmp; C_word 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_4993,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5009,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4990 in k4984 in k4981 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4992,2,av);} a=C_alloc(7); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4993,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)li66),tmp=(C_word)a,a+=7,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9588 in k9581 in doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9590,2,av);} /* eval.scm:1305: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; C_values(5,av2);}} /* k9864 in k9732 in k9581 in doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_9866,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9873,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_list(&a,2,lf[124],((C_word*)t0)[3]); t4=C_a_i_list(&a,2,lf[123],t3); /* eval.scm:1361: impform */ t5=((C_word*)((C_word*)t0)[4])[1]; f_9517(t5,t2,t4,((C_word*)t0)[5],C_SCHEME_FALSE);} /* a11103 in a11078 in run-safe in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 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 *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_11104,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11110,a[2]=((C_word*)t0)[2],a[3]=((C_word)li267),tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11116,a[2]=((C_word*)t0)[3],a[3]=((C_word)li269),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1698: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* k11100 in k11096 in k11093 in a11090 in a11084 in a11078 in run-safe in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 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 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_11102,2,av);} t2=C_mutate2(&lf[367] /* (set! last-error ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11167 in CHICKEN_eval_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in ... */ static void C_ccall f_11169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_11169,2,av);} a=C_alloc(5); t2=t1; t3=((C_word*)t0)[2]; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11174,a[2]=t3,a[3]=t2,a[4]=((C_word)li278),tmp=(C_word)a,a+=5,tmp); /* eval.scm:1724: run-safe */ f_11069(((C_word*)t0)[3],t4);} /* k11161 in a11154 in CHICKEN_eval in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11163,2,av);} /* eval.scm:1721: store-result */ f_11128(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* CHICKEN_eval_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 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=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_11165,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11169,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1723: ##sys#peek-c-string */ t5=*((C_word*)lf[13]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* map-loop574 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_5237(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_5237,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_5262,a[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:395: g580 */ 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);}}} /* map-loop753 in k5464 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_5688(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_5688,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_5713,a[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:457: g759 */ 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);}}} /* k5229 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_5231,2,av);} /* eval.scm:398: ##sys#compile-to-closure */ t2=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; 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]; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* srfi-id in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9550(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_9550,2,t1,t2);} a=C_alloc(6); if(C_truep(C_fixnump(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9564,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9568,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1298: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[287]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[287]+1); av2[1]=t4; av2[2]=t2; tp(3,av2);}} else{ /* eval.scm:1299: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[82]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[82]+1); av2[1]=t1; av2[2]=lf[288]; av2[3]=lf[289]; av2[4]=t2; tp(5,av2);}}} /* k6279 in map-loop1003 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_6281,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6285,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:586: ##sys#strip-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[45]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[45]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} /* k6283 in k6279 in map-loop1003 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6285,2,av);} /* eval.scm:584: ##sys#ensure-transformer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[88]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[88]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k9581 in doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_9583,2,av);} a=C_alloc(19); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9590,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1305: impform */ t3=((C_word*)((C_word*)t0)[4])[1]; f_9517(t3,t2,lf[291],((C_word*)t0)[5],C_SCHEME_TRUE);} else{ if(C_truep(C_i_memq(((C_word*)t0)[3],*((C_word*)lf[0]+1)))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9603,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)[6])){ t3=C_a_i_list(&a,2,lf[292],((C_word*)t0)[3]); t4=C_a_i_list(&a,2,lf[136],t3); /* eval.scm:1308: impform */ t5=((C_word*)((C_word*)t0)[4])[1]; f_9517(t5,t2,t4,((C_word*)t0)[5],C_SCHEME_FALSE);} else{ t3=C_a_i_list(&a,2,lf[124],((C_word*)t0)[3]); t4=C_a_i_list(&a,3,lf[243],t3,C_SCHEME_FALSE); /* eval.scm:1308: impform */ t5=((C_word*)((C_word*)t0)[4])[1]; f_9517(t5,t2,t4,((C_word*)t0)[5],C_SCHEME_FALSE);}} else{ if(C_truep(C_i_memq(((C_word*)t0)[3],*((C_word*)lf[2]+1)))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9634,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)[6])){ t3=C_a_i_list(&a,2,lf[292],((C_word*)t0)[3]); t4=C_a_i_list(&a,2,lf[136],t3); /* eval.scm:1316: impform */ t5=((C_word*)((C_word*)t0)[4])[1]; f_9517(t5,t2,t4,((C_word*)t0)[5],C_SCHEME_TRUE);} else{ t3=C_a_i_list(&a,2,lf[124],((C_word*)t0)[3]); t4=C_a_i_list(&a,3,lf[243],t3,C_SCHEME_FALSE); /* eval.scm:1316: impform */ t5=((C_word*)((C_word*)t0)[4])[1]; f_9517(t5,t2,t4,((C_word*)t0)[5],C_SCHEME_TRUE);}} else{ if(C_truep(C_i_memq(((C_word*)t0)[3],*((C_word*)lf[4]+1)))){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9661,a[2]=((C_word*)t0)[2],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:1323: ##sys#extension-information */ t3=*((C_word*)lf[274]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[288]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=(*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)[5],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); /* eval.scm:1338: ##sys#extension-information */ t3=*((C_word*)lf[274]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[288]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}}}} /* store-string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in ... */ static C_word C_fcall f_11191(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_mutate2(&lf[367] /* (set! last-error ...) */,lf[379]); return(C_SCHEME_FALSE);} else{ t5=C_copy_result_string(t1,t3,t4); return(t5);}} /* k8863 in k8771 in load-library-0 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; 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_8865,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8869,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1092: dynamic-load-libraries */ t4=*((C_word*)lf[233]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8867 in k8863 in k8771 in load-library-0 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8869(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_8869,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_8782(t2,C_a_i_cons(&a,2,((C_word*)t0)[3],t1));} /* doit in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9573(C_word 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_9573,4,t0,t1,t2,t3);} a=C_alloc(8); t4=C_i_memq(t2,lf[290]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9583,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); if(C_truep(t4)){ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=t4; f_9583(2,av2);}} else{ if(C_truep(((C_word*)t0)[3])){ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_i_memq(t2,lf[296]); f_9583(2,av2);}} else{ /* eval.scm:1304: ##sys#feature? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[297]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[297]+1); av2[1]=t5; av2[2]=t2; tp(3,av2);}}}} /* k11176 in a11173 in k11167 in CHICKEN_eval_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11178,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11185,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_11189,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1727: read */ t4=*((C_word*)lf[195]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* ##sys#load-library in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_8875,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_check_symbol_2(t2,lf[235]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8882,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t3))){ t6=t3; t7=C_u_i_car(t6); /* eval.scm:1114: ##sys#load-library-0 */ t8=*((C_word*)lf[234]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t5; av2[2]=t2; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ /* eval.scm:1114: ##sys#load-library-0 */ t6=*((C_word*)lf[234]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k7091 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7093(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7093,2,av);} /* eval.scm:713: compile */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4096(t2,((C_word*)t0)[3],lf[131],((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* a11173 in k11167 in CHICKEN_eval_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in ... */ static void C_ccall f_11174(C_word c,C_word *av){ 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_11174,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11178,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1726: open-input-string */ t3=*((C_word*)lf[377]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11187 in k11176 in a11173 in k11167 in CHICKEN_eval_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11189,2,av);} /* eval.scm:1727: eval */ t2=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8838 in k8835 in k8832 in k8783 in k8780 in k8771 in load-library-0 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8840,2,av);} /* eval.scm:1102: display */ t2=*((C_word*)lf[215]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[236]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8845 in k8780 in k8771 in load-library-0 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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,3)))){ C_save_and_reclaim((void *)f_8847,2,av);} /* eval.scm:1094: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[210]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[210]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[235]; tp(4,av2);}} /* a9510 in add-req in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *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,1)))){ C_save_and_reclaim((void *)f_9511,2,av);} a=C_alloc(3); t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list1(&a,1,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* impform in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9517(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(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9517,5,t0,t1,t2,t3,t4);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9532,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[2])){ t6=C_i_not(t4); if(C_truep(t6)){ t7=t5;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; f_9532(2,av2);}} else{ /* eval.scm:1292: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[96]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[96]+1); av2[1]=t5; tp(2,av2);}}} else{ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_9532(2,av2);}}} /* k11183 in k11176 in a11173 in k11167 in CHICKEN_eval_string in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11185,2,av);} /* eval.scm:1727: store-result */ f_11128(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* k8849 in k8780 in k8771 in load-library-0 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8851,2,av);} /* eval.scm:1095: string-append */ t2=*((C_word*)lf[238]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[239]; av2[3]=t1; av2[4]=lf[240]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6246 in map-loop975 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_6248,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6223(t6,((C_word*)t0)[5],t5);} /* k11407 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11409,2,av);} /* eval.scm:1167: make-parameter */ t2=*((C_word*)lf[390]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8825 in loop in k8786 in k8783 in k8780 in k8771 in load-library-0 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8827,2,av);} /* eval.scm:1105: ##sys#dload */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[209]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[209]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k11416 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_11418,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=t1; /* eval.scm:1167: make-parameter */ t3=*((C_word*)lf[390]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11424,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_11434,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11438,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_fudge(C_fix(42)); /* eval.scm:1174: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[287]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[287]+1); av2[1]=t4; av2[2]=t5; tp(3,av2);}}} /* k8832 in k8783 in k8780 in k8771 in load-library-0 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_8834,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8837,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1100: display */ t3=*((C_word*)lf[215]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[237]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_8788(2,av2);}}} /* k8835 in k8832 in k8783 in k8780 in k8771 in load-library-0 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8837,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8840,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1101: display */ t3=*((C_word*)lf[215]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6275 in map-loop1003 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_6277,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k6200 in g981 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_6202,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6206,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_car(t4); /* eval.scm:572: ##sys#strip-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[45]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[45]+1); av2[1]=t3; av2[2]=t5; tp(3,av2);}} /* k6204 in k6200 in g981 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6206,2,av);} /* eval.scm:570: ##sys#ensure-transformer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[88]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[88]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k5210 in map-loop626 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_5212,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5187(t6,((C_word*)t0)[5],t5);} /* k5143 */ static void C_ccall f_5145(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_5145,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5148,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_5157,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t5,a[5]=((C_word*)t0)[2],a[6]=((C_word)li69),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_5157(t7,t3,C_fix(0),((C_word*)t0)[6]);} /* k5146 in k5143 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5148,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; /* Re-use our own argvector */ } 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);}} /* f_5141 in k5138 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_5141,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5145,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:433: ##sys#make-vector */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[67]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* a9504 in add-req in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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,4)))){ C_save_and_reclaim((void *)f_9505,3,av);} t3=*((C_word*)lf[282]+1); /* eval.scm:1287: g2148 */ t4=*((C_word*)lf[282]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=*((C_word*)lf[283]+1); av2[3]=t2; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k5138 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_5140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_5140,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5141,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li70),tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* err in decompose-lambda-list in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_8081(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_8081,2,t0,t1);} t2=C_set_block_item(lf[177] /* ##sys#syntax-error-culprit */,0,C_SCHEME_FALSE); /* eval.scm:912: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[82]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[82]+1); av2[1]=t1; av2[2]=lf[178]; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} /* doloop653 in k5143 */ static void C_fcall f_5157(C_word 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_5157,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_5182,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);}}} /* map-loop1843 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_11460(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_11460,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_11485,a[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:1077: g1849 */ 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);}}} /* loop in decompose-lambda-list in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_8091(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(9,0,4)))){ C_save_and_reclaim_args((void *)trf_8091,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_8105,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* eval.scm:915: reverse */ t7=*((C_word*)lf[113]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ if(C_truep(C_blockp(t2))){ if(C_truep(C_symbolp(t2))){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8124,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp); t7=C_a_i_cons(&a,2,t2,t3); /* eval.scm:917: reverse */ t8=*((C_word*)lf[113]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ if(C_truep(C_pairp(t2))){ t6=C_slot(t2,C_fix(1)); t7=C_slot(t2,C_fix(0)); t8=C_a_i_cons(&a,2,t7,t3); t9=C_fixnum_plus(t4,C_fix(1)); /* eval.scm:919: loop */ t11=t1; t12=t6; t13=t8; t14=t9; t1=t11; t2=t12; t3=t13; t4=t14; goto loop;} else{ /* eval.scm:918: err */ t6=((C_word*)t0)[4]; f_8081(t6,t1);}}} else{ /* eval.scm:916: err */ t6=((C_word*)t0)[4]; f_8081(t6,t1);}}} /* k10607 in for-each-loop2523 in k10803 in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in ... */ static void C_ccall f_10609(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10609,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10599(t3,((C_word*)t0)[4],t2);} /* k7788 in k7784 in k7780 in k7776 in k7769 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_7790,2,av);} /* eval.scm:812: g1450 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_5763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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(25,c,2)))){ C_save_and_reclaim((void *)f_5763,2,av);} a=C_alloc(25); 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[76],((C_word*)t4)[1])); t11=t10; t12=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5774,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=t11,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t8,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=t4,tmp=(C_word)a,a+=12,tmp); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6143,a[2]=t4,a[3]=t8,a[4]=((C_word*)t0)[8],a[5]=t12,tmp=(C_word)a,a+=6,tmp); /* eval.scm:476: ##sys#extended-lambda-list? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[83]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[83]+1); av2[1]=t13; av2[2]=((C_word*)t4)[1]; tp(3,av2);}} /* k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; 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_5774,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,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)li107),tmp=(C_word)a,a+=11,tmp); /* eval.scm:481: ##sys#decompose-lambda-list */ t3=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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(28,c,3)))){ C_save_and_reclaim((void *)f_5779,5,av);} a=C_alloc(28); 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[63]+1); t10=t2; t11=C_i_check_list_2(t10,lf[64]); t12=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5789,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); 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_6108,a[2]=t7,a[3]=t14,a[4]=t9,a[5]=t8,a[6]=((C_word)li106),tmp=(C_word)a,a+=7,tmp)); t16=((C_word*)t14)[1]; f_6108(t16,t12,t10);} /* k11723 in k3488 in k3485 */ static void C_ccall f_11725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11725,2,av);} /* eval.scm:73: string-append */ t2=*((C_word*)lf[238]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[423]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a11154 in CHICKEN_eval in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in ... */ static void C_ccall f_11155(C_word c,C_word *av){ 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_11155,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11163,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1721: eval */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11483 in map-loop1843 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_11485,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11460(t6,((C_word*)t0)[5],t5);} /* k11719 in k3488 in k3485 */ 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 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_11721,2,av);} a=C_alloc(6); t2=C_a_i_list(&a,1,t1); t3=C_mutate2((C_word*)lf[5]+1 /* (set! default-dynamic-load-libraries ...) */,t2); t4=C_mutate2(&lf[6] /* (set! constant115 ...) */,lf[7]); t5=C_mutate2(&lf[8] /* (set! constant123 ...) */,lf[9]); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3512,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:98: get-environment-variable */ t7=*((C_word*)lf[403]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[422]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k7776 in k7769 */ 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 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_7778,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7782,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; /* Re-use our own argvector */ } 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);}} /* k10660 in a10656 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 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 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_10662,2,av);} a=C_alloc(9); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_mutate2((C_word*)lf[338]+1 /* (set! ##sys#quit-hook ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10664,a[2]=((C_word*)t0)[3],a[3]=((C_word)li247),tmp=(C_word)a,a+=4,tmp)); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10671,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); /* eval.scm:1580: load-verbose */ t5=*((C_word*)lf[179]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7769 */ 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 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_7771,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7778,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; /* Re-use our own argvector */ } 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);}} /* f_10664 in k10660 in a10656 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in ... */ static void C_ccall f_10664(C_word c,C_word *av){ C_word tmp; C_word 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_10664,3,av);} /* eval.scm:1579: k */ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} /* k5787 in a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_5789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_5789,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5792,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); /* eval.scm:485: ##sys#extend-se */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[69]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[69]+1); av2[1]=t3; av2[2]=((C_word*)t0)[12]; av2[3]=((C_word*)t0)[13]; av2[4]=t2; tp(5,av2);}} /* k11497 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11499,2,av);} /* eval.scm:1069: string-append */ t2=*((C_word*)lf[238]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[229]+1); av2[3]=lf[405]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5796 in k5790 in k5787 in a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_5798,2,av);} a=C_alloc(8); t2=t1; t3=((C_word*)t0)[2]; switch(t3){ case C_fix(0): t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep(((C_word*)t0)[4])?(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5808,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li82),tmp=(C_word)a,a+=7,tmp):(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5827,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li84),tmp=(C_word)a,a+=7,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|6,a[1]=(C_word)f_5851,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li86),tmp=(C_word)a,a+=7,tmp); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_5870,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li88),tmp=(C_word)a,a+=7,tmp); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep(((C_word*)t0)[4])?(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5898,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li90),tmp=(C_word)a,a+=7,tmp):(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5917,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li92),tmp=(C_word)a,a+=7,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|6,a[1]=(C_word)f_5945,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li94),tmp=(C_word)a,a+=7,tmp); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_5964,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li96),tmp=(C_word)a,a+=7,tmp); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=(C_truep(t4)?(C_truep(((C_word*)t0)[4])?(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5992,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li98),tmp=(C_word)a,a+=7,tmp):(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6011,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li100),tmp=(C_word)a,a+=7,tmp)):(C_truep(((C_word*)t0)[4])?(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6033,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*)t0)[7],a[7]=((C_word)li103),tmp=(C_word)a,a+=8,tmp):(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6056,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*)t0)[7],a[7]=((C_word)li105),tmp=(C_word)a,a+=8,tmp))); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in ... */ static void C_ccall f_10651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10651,3,av);} a=C_alloc(22); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10657,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)li249),tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10755,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)li258),tmp=(C_word)a,a+=7,tmp); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10961,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)li259),tmp=(C_word)a,a+=8,tmp); /* eval.scm:1576: ##sys#dynamic-wind */ t6=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5790 in k5787 in a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_5792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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,4)))){ C_save_and_reclaim((void *)f_5792,2,av);} a=C_alloc(20); t2=t1; t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5798,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); t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6102,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=t4,a[5]=t2,a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* eval.scm:489: ##sys#canonicalize-body */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[68]+1); av2[1]=t6; av2[2]=((C_word*)((C_word*)t0)[12])[1]; av2[3]=t2; av2[4]=C_SCHEME_FALSE; tp(5,av2);}} /* a10656 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in ... */ static void C_ccall f_10657(C_word c,C_word *av){ 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_10657,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,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]=t1,tmp=(C_word)a,a+=7,tmp); /* eval.scm:1578: load-verbose */ t3=*((C_word*)lf[179]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop975 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_6223(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_6223,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_6248,a[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:566: g981 */ t5=((C_word*)t0)[4]; f_6186(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);}}} /* k6219 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6221,2,av);} /* eval.scm:565: append */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_yield in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in ... */ static void C_ccall f_11137(C_word c,C_word *av){ 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_11137,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11143,a[2]=((C_word)li274),tmp=(C_word)a,a+=3,tmp); /* eval.scm:1716: run-safe */ f_11069(t1,t2);} /* k11130 in store-result in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in ... */ static void C_ccall f_11132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_11132,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7755 in k7752 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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,7)))){ C_save_and_reclaim((void *)f_7757,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_7760,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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); t4=C_u_i_list_ref(((C_word*)t0)[10],C_fix(2)); /* eval.scm:814: compile */ t5=((C_word*)((C_word*)t0)[11])[1]; f_4096(t5,t3,t4,((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[6],((C_word*)t0)[12]);} /* k7752 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_7754,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7757,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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)[9],C_fix(1)); /* eval.scm:813: compile */ t5=((C_word*)((C_word*)t0)[10])[1]; f_4096(t5,t3,t4,((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[6],((C_word*)t0)[11]);} /* resetports in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in ... */ static C_word C_fcall f_10642(C_word t0){ C_word tmp; C_word t1; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t1=C_mutate2((C_word*)lf[337]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[2])[1]); t2=C_mutate2((C_word*)lf[332]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2((C_word*)lf[336]+1 /* (set! ##sys#standard-error ...) */,((C_word*)((C_word*)t0)[4])[1]); return(t3);} /* CHICKEN_eval in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in ... */ static void C_ccall f_11149(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_11149,4,av);} a=C_alloc(5); t4=t2; t5=t3; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11155,a[2]=t5,a[3]=t4,a[4]=((C_word)li276),tmp=(C_word)a,a+=5,tmp); /* eval.scm:1719: run-safe */ f_11069(t1,t6);} /* k8880 in load-library in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_8882,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_8892,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_dlerror); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k11145 in a11142 in CHICKEN_yield in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in ... */ static void C_ccall f_11147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11147,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a11142 in CHICKEN_yield in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in ... */ static void C_ccall f_11143(C_word c,C_word *av){ 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_11143,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11147,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1716: ##sys#thread-yield! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[374]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[374]+1); av2[1]=t2; tp(2,av2);}} /* k7780 in k7776 in k7769 */ 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; 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_7782,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7786,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; /* Re-use our own argvector */ } 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);}} /* k7784 in k7780 in k7776 in k7769 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7786,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7790,a[2]=((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; /* Re-use our own argvector */ } 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);}} /* k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in ... */ static void C_ccall f_10631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_10631,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10634,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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); /* eval.scm:1559: ##sys#reset-handler */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[359]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[359]+1); av2[1]=t3; tp(2,av2);}} /* k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in ... */ static void C_ccall f_10634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_10634,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=*((C_word*)lf[338]+1); t6=*((C_word*)lf[31]+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_10636,a[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_10642,a[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_10651,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)li260),tmp=(C_word)a,a+=13,tmp); /* eval.scm:1574: call-with-current-continuation */ t14=*((C_word*)lf[208]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in ... */ static C_word C_fcall f_10636(C_word t0){ C_word tmp; C_word t1; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t1=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[337]+1)); t2=C_mutate2(((C_word *)((C_word*)t0)[3])+1,*((C_word*)lf[332]+1)); t3=C_mutate2(((C_word *)((C_word*)t0)[4])+1,*((C_word*)lf[336]+1)); return(t3);} /* k8890 in k8880 in load-library in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_8892,2,av);} /* eval.scm:1115: ##sys#error */ t2=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[235]; av2[3]=lf[244]; av2[4]=((C_word*)t0)[3]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k5260 in map-loop574 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_5262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_5262,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5237(t6,((C_word*)t0)[5],t5);} /* compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_4096(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(15,0,2)))){ C_save_and_reclaim_args((void *)trf_4096,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(15); t8=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_4103,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t7,a[7]=t6,a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[4],a[10]=t4,a[11]=t5,a[12]=((C_word*)t0)[5],a[13]=((C_word*)t0)[6],a[14]=((C_word*)t0)[7],tmp=(C_word)a,a+=15,tmp); /* eval.scm:248: keyword? */ t9=*((C_word*)lf[169]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k7714 in k7711 in k7708 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_7716,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7717,a[2]=((C_word*)t0)[2],a[3]=((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)li143),tmp=(C_word)a,a+=12,tmp); t4=((C_word*)t0)[10];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_7717 in k7714 in k7711 in k7708 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7717(C_word c,C_word *av){ C_word tmp; C_word 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_7717,3,av);} a=C_alloc(12); t3=( /* eval.scm:810: emit-trace-info */ f_4074(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_7724,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k10687 in k10684 in k10681 in a10675 in k10669 in k10660 in a10656 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in ... */ static void C_ccall f_10689(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10689,2,av);} a=C_alloc(7); t2=*((C_word*)lf[339]+1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10693,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[339]+1))){ if(C_truep(C_i_structurep(*((C_word*)lf[339]+1),lf[341]))){ t4=C_slot(*((C_word*)lf[339]+1),C_fix(2)); t5=C_i_member(lf[342],t4); if(C_truep(t5)){ t6=C_i_cadr(t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10720,a[2]=t3,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1600: ##sys#really-print-call-chain */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[343]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[343]+1); av2[1]=t8; av2[2]=*((C_word*)lf[336]+1); av2[3]=t7; av2[4]=lf[344]; tp(5,av2);}} else{ t6=t3; f_10693(t6,C_SCHEME_FALSE);}} else{ t4=t3; f_10693(t4,C_SCHEME_FALSE);}} else{ t4=t3; f_10693(t4,C_SCHEME_FALSE);}} /* k10684 in k10681 in a10675 in k10669 in k10660 in a10656 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_10686,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10689,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10727,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_10727(t6,C_i_nullp(t5));} else{ t4=t3; f_10727(t4,C_SCHEME_FALSE);}} /* k8786 in k8783 in k8780 in k8771 in load-library-0 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_8788,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_8793,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word)li188),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_8793(t5,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k10681 in a10675 in k10669 in k10660 in a10656 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_10683,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10686,a[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_10750,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1586: ##sys#print */ t4=*((C_word*)lf[327]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[346]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[336]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_10686(2,av2);}}} /* k7708 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_7710,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7713,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=13,tmp); t4=C_u_i_list_ref(((C_word*)t0)[9],C_fix(1)); /* eval.scm:807: compile */ t5=((C_word*)((C_word*)t0)[10])[1]; f_4096(t5,t3,t4,((C_word*)t0)[6],C_SCHEME_FALSE,((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[11]);} /* k8783 in k8780 in k8771 in load-library-0 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_8785,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8788,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|3,a[1]=(C_word)f_8834,a[2]=t3,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1099: load-verbose */ t5=*((C_word*)lf[179]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k8780 in k8771 in load-library-0 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_8782,2,t0,t1);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8785,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_8847,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8851,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=C_slot(((C_word*)t0)[4],C_fix(1)); /* eval.scm:1097: ##sys#string->c-identifier */ t7=*((C_word*)lf[241]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k7711 in k7708 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,7)))){ C_save_and_reclaim((void *)f_7713,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,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]=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:808: compile */ t5=((C_word*)((C_word*)t0)[11])[1]; f_4096(t5,t3,t4,((C_word*)t0)[6],C_SCHEME_FALSE,((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[12]);} /* emit-trace-info in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static C_word C_fcall f_4074(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_stack_overflow_check;{} if(C_truep(t1)){ t6=C_a_i_record4(&a,4,lf[37],t3,t4,t5); t7=C_emit_eval_trace_info(t2,t6,*((C_word*)lf[38]+1)); return(t7);} else{ t6=C_SCHEME_UNDEFINED; return(t6);}} /* a10675 in k10669 in k10660 in a10656 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in ... */ static void C_ccall f_10676(C_word c,C_word *av){ C_word tmp; C_word 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_10676,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=( /* eval.scm:1583: resetports */ f_10642(((C_word*)((C_word*)t0)[2])[1]) ); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10683,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* eval.scm:1584: ##sys#print */ t6=*((C_word*)lf[327]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[347]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[336]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10669 in k10660 in a10656 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_10671,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10676,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li248),tmp=(C_word)a,a+=5,tmp); /* eval.scm:1581: ##sys#error-handler */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[348]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[348]+1); av2[1]=((C_word*)t0)[4]; av2[2]=t2; tp(3,av2);}} /* loop in k8786 in k8783 in k8780 in k8771 in load-library-0 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_8793(C_word 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_8793,3,t0,t1,t2);} a=C_alloc(10); 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_8806,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8827,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t5=C_slot(t2,C_fix(0)); /* eval.scm:1105: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[210]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[210]+1); av2[1]=t4; av2[2]=t5; av2[3]=lf[235]; tp(4,av2);}}} /* ##sys#load-library-0 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8769(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_8769,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8773,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* eval.scm:1086: ##sys#->feature-id */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[242]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[242]+1); av2[1]=t4; av2[2]=t2; tp(3,av2);}} /* k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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(23,c,4)))){ C_save_and_reclaim((void *)f_8767,2,av);} a=C_alloc(23); t2=C_mutate2((C_word*)lf[233]+1 /* (set! dynamic-load-libraries ...) */,t1); t3=C_mutate2((C_word*)lf[234]+1 /* (set! ##sys#load-library-0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8769,a[2]=((C_word)li189),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[243]+1 /* (set! ##sys#load-library ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8875,a[2]=((C_word)li190),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[235]+1 /* (set! load-library ...) */,*((C_word*)lf[243]+1)); t6=*((C_word*)lf[33]+1); t7=C_mutate2((C_word*)lf[102]+1 /* (set! ##sys#include-forms-from-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8903,a[2]=t6,a[3]=((C_word)li196),tmp=(C_word)a,a+=4,tmp)); t8=C_mutate2((C_word*)lf[249]+1 /* (set! ##sys#canonicalize-extension-path ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8970,a[2]=((C_word)li201),tmp=(C_word)a,a+=3,tmp)); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9127,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11409,a[2]=t9,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fudge(C_fix(22)))){ /* ##sys#peek-c-string */ t11=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t11; av2[1]=t10; av2[2]=C_mpointer(&a,(void*)C_private_repository_path()); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11418,a[2]=t9,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1170: get-environment-variable */ t12=*((C_word*)lf[403]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t11; av2[2]=lf[404]; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}} /* k6891 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_6893,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:687: compile */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4096(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]);} /* complete in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; 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_8760,3,av);} t3=*((C_word*)lf[11]+1); /* eval.scm:1075: g1839 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} /* k9530 in impform in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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,1)))){ C_save_and_reclaim((void *)f_9532,2,av);} a=C_alloc(15); if(C_truep(t1)){ t2=C_a_i_list(&a,2,lf[285],((C_word*)t0)[2]); t3=C_a_i_list(&a,1,t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[3],t3); t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_cons(&a,2,lf[52],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t2=C_a_i_cons(&a,2,((C_word*)t0)[3],C_SCHEME_END_OF_LIST); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[52],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7722 */ 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; 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_7724,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7731,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; /* Re-use our own argvector */ } 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);}} /* k8771 in load-library-0 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_8773,2,av);} a=C_alloc(8); t2=t1; t3=C_i_memq(t2,*((C_word*)lf[139]+1)); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_8782,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])){ t5=t4; f_8782(t5,C_a_i_list(&a,1,((C_word*)t0)[4]));} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8865,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=C_slot(((C_word*)t0)[3],C_fix(1)); /* eval.scm:1091: ##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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t5; av2[2]=t6; av2[3]=*((C_word*)lf[229]+1); tp(4,av2);}}}} /* k5711 in map-loop753 in k5464 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_5713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_5713,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5688(t6,((C_word*)t0)[5],t5);} /* k9566 in srfi-id in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9568,2,av);} /* eval.scm:1298: ##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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[286]; av2[3]=t1; tp(4,av2);}} /* k9562 in srfi-id in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9564,2,av);} /* eval.scm:1297: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; C_string_to_symbol(3,av2);}} /* ##sys#provided? in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_9352,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9363,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1237: ##sys#canonicalize-extension-path */ t4=*((C_word*)lf[249]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[272]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* map-loop726 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_5722(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_5722,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_mutate2(((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);}}} /* f_5898 in k5796 in k5790 in k5787 in a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_5898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,5)))){ C_save_and_reclaim((void *)f_5898,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5904,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li89),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; /* eval.scm:245: ##sys#eval-decorator */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[5]; av2[4]=t4; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* load-noisily in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8720(C_word c,C_word *av){ C_word tmp; C_word 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_8720,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_8724,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_8741,a[2]=((C_word)li185),tmp=(C_word)a,a+=3,tmp); /* eval.scm:1049: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[225]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[225]+1); av2[1]=t4; av2[2]=lf[228]; av2[3]=t3; av2[4]=t5; tp(5,av2);}} /* k8722 in load-noisily in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_8724,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8727,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_8738,a[2]=((C_word)li184),tmp=(C_word)a,a+=3,tmp); /* eval.scm:1049: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[225]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[225]+1); av2[1]=t3; av2[2]=lf[227]; av2[3]=((C_word*)t0)[4]; av2[4]=t4; tp(5,av2);}} /* k8725 in k8722 in load-noisily in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_8727,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8730,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_8735,a[2]=((C_word)li183),tmp=(C_word)a,a+=3,tmp); /* eval.scm:1049: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[225]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[225]+1); av2[1]=t3; av2[2]=lf[226]; av2[3]=((C_word*)t0)[5]; av2[4]=t4; tp(5,av2);}} /* for-each-loop2064 in require in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9377(C_word 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_9377,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_9387,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[265]+1); /* eval.scm:1245: g2080 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[265]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[265]+1); av2[1]=t3; av2[2]=t4; av2[3]=lf[273]; 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);}}} /* g362 in loop in k3987 in lookup in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_4014(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_4014,3,t0,t1,t2);} /* eval.scm:219: values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; C_values(4,av2);}} /* k9361 in provided? in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9363,2,av);} t2=C_i_member(t1,*((C_word*)lf[264]+1)); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6554 in map-loop1060 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_6556,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6531(t6,((C_word*)t0)[5],t5);} /* ##sys#require in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9366(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_9366,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_9377,a[2]=t4,a[3]=((C_word)li209),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_9377(t6,t1,t2);} /* k7495 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7497,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_4383(2,av2);}} else{ t2=C_i_vectorp(((C_word*)t0)[3]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_4383(2,av2);}} else{ /* eval.scm:304: ##sys#srfi-4-vector? */ t3=*((C_word*)lf[166]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}}} /* k8698 in load-relative in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8700,2,av);} t2=((C_word*)t0)[2]; if(C_truep(C_i_nullp(t2))){ /* eval.scm:1043: ##sys#load */ t3=*((C_word*)lf[193]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=C_i_car(t2); /* eval.scm:1043: ##sys#load */ t4=*((C_word*)lf[193]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t3; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* ##sys#provide in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9310(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_9310,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_9328,a[2]=t4,a[3]=((C_word)li206),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_9328(t6,t1,t2);} /* k9317 in for-each-loop2037 in provide in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9319,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,*((C_word*)lf[264]+1)); t3=C_mutate2((C_word*)lf[264]+1 /* (set! ##sys#loaded-extensions ...) */,t2); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6479 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6481,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[52],t1); /* eval.scm:621: compile */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4096(t3,((C_word*)t0)[3],t2,((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* map-loop1060 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_6531,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_6556,a[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_6503,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* eval.scm:629: ##sys#check-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[84]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[84]+1); av2[1]=t7; av2[2]=lf[105]; av2[3]=t6; av2[4]=lf[106]; 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);}}} /* k9336 in for-each-loop2037 in provide in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_9338,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9328(t3,((C_word*)t0)[4],t2);} /* a5832 */ 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 *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_5833,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; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6501 in map-loop1060 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6503,2,av);} /* eval.scm:630: ##sys#strip-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[45]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[45]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* a6516 in k6513 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *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_6517,2,av);} a=C_alloc(3); t2=C_i_cddr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,lf[52],t2); /* eval.scm:633: compile */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4096(t4,t1,t3,((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k11422 in k11416 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_11424,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=t1; /* eval.scm:1167: make-parameter */ t3=*((C_word*)lf[390]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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[13]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* for-each-loop2037 in provide in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9328(C_word t0,C_word t1,C_word 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_9328,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_9338,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_check_symbol_2(t4,lf[270]); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9319,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1230: ##sys#canonicalize-extension-path */ t8=*((C_word*)lf[249]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=t4; av2[3]=lf[270]; ((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);}}} /* k6513 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_6515,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,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],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li115),tmp=(C_word)a,a+=9,tmp); /* eval.scm:627: ##sys#with-module-aliases */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[104]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[104]+1); av2[1]=((C_word*)t0)[8]; av2[2]=t1; av2[3]=t2; tp(4,av2);}} /* k11432 in k11416 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11434,2,av);} /* eval.scm:1171: ##sys#chicken-prefix */ t2=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5813 */ 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 *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_5814,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; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t1; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11436 in k11416 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11438(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11438,2,av);} /* eval.scm:1172: ##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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[402]; av2[3]=t1; tp(4,av2);}} /* k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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,5)))){ C_save_and_reclaim((void *)f_8251,2,av);} a=C_alloc(24); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8253,a[2]=((C_word)li165),tmp=(C_word)a,a+=3,tmp); t4=C_mutate2((C_word*)lf[193]+1 /* (set! ##sys#load ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8298,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,a[5]=((C_word)li180),tmp=(C_word)a,a+=6,tmp)); t5=C_mutate2((C_word*)lf[200]+1 /* (set! load ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8676,a[2]=((C_word)li181),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[223]+1 /* (set! load-relative ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8692,a[2]=((C_word)li182),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[224]+1 /* (set! load-noisily ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8720,a[2]=((C_word)li186),tmp=(C_word)a,a+=3,tmp)); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8746,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11541,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1053: software-type */ t10=*((C_word*)lf[416]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* has-sep? in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_8253(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_8253,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_8263,a[2]=t2,a[3]=((C_word)li164),tmp=(C_word)a,a+=4,tmp); t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=( f_8263(t5,t4) ); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k7737 in k7733 in k7729 in k7722 */ static void C_ccall f_7739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7739,2,av);} /* eval.scm:806: g1442 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7733 in k7729 in k7722 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7735,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7739,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; /* Re-use our own argvector */ } 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);}} /* k7729 in k7722 */ 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 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_7731,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7735,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; /* Re-use our own argvector */ } 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);}} /* k11450 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_11452,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11454,a[2]=((C_word)li296),tmp=(C_word)a,a+=3,tmp); /* eval.scm:1076: make-parameter */ t3=*((C_word*)lf[390]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a11453 in k11450 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_11454,3,av);} t3=C_i_check_list(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in ... */ static void C_fcall f_10761(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_10761,2,t0,t1);} a=C_alloc(10); t2=( /* eval.scm:1608: saveports */ f_10636(((C_word*)((C_word*)t0)[2])[1]) ); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10768,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_10944,a[2]=((C_word*)t0)[6],a[3]=((C_word)li256),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1609: call-with-current-continuation */ t5=*((C_word*)lf[208]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* f_5870 in k5796 in k5790 in k5787 in a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_5870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,5)))){ C_save_and_reclaim((void *)f_5870,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5876,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li87),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; /* eval.scm:245: ##sys#eval-decorator */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[5]; av2[4]=t4; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* a5875 */ 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=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_5876,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in ... */ static void C_ccall f_10768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_10768,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10771,a[2]=((C_word*)t0)[2],a[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:1617: ##sys#read-prompt-hook */ t3=*((C_word*)lf[330]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10694 in k10691 in k10687 in k10684 in k10681 in a10675 in k10669 in k10660 in a10656 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in ... */ static void C_ccall f_10696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10696,2,av);} t2=C_set_block_item(lf[324] /* ##sys#repl-recent-call-chain */,0,t1); /* eval.scm:1605: flush-output */ t3=*((C_word*)lf[214]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[336]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* f_7764 in k7761 in k7758 in k7755 in k7752 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7764(C_word c,C_word *av){ C_word tmp; C_word 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_7764,3,av);} a=C_alloc(13); t3=( /* eval.scm:817: emit-trace-info */ f_4074(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_7771,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k10691 in k10687 in k10684 in k10681 in a10675 in k10669 in k10660 in a10656 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in ... */ static void C_fcall f_10693(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_10693,2,t0,t1);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10696,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t1; t4=C_mutate2((C_word*)lf[324]+1 /* (set! ##sys#repl-recent-call-chain ...) */,t3); /* eval.scm:1605: flush-output */ t5=*((C_word*)lf[214]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[336]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* eval.scm:1604: print-call-chain */ t3=*((C_word*)lf[340]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[336]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k7761 in k7758 in k7755 in k7752 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_7763,2,av);} a=C_alloc(13); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7764,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)li144),tmp=(C_word)a,a+=13,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7758 in k7755 in k7752 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_7760,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7763,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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:815: compile */ t5=((C_word*)((C_word*)t0)[12])[1]; f_4096(t5,t3,t4,((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[6],((C_word*)t0)[13]);} /* f_5851 in k5796 in k5790 in k5787 in a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_5851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,5)))){ C_save_and_reclaim((void *)f_5851,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5857,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li85),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; /* eval.scm:245: ##sys#eval-decorator */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[5]; av2[4]=t4; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* a5856 */ 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=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_5857,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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k6863 in map-loop1097 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_6865,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6840(t6,((C_word*)t0)[5],t5);} /* k10728 in k10725 in k10684 in k10681 in a10675 in k10669 in k10660 in a10656 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in ... */ static void C_ccall f_10730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10730,2,av);} /* eval.scm:1591: write-err */ f_10513(((C_word*)t0)[3],((C_word*)t0)[4]);} /* k10734 in k10725 in k10684 in k10681 in a10675 in k10669 in k10660 in a10656 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in ... */ static void C_ccall f_10736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10736,2,av);} /* eval.scm:1594: write-err */ f_10513(((C_word*)t0)[3],((C_word*)t0)[4]);} /* k4750 in k4747 in k4738 in a4735 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4752,2,av);} a=C_alloc(5); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4764,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word)li61),tmp=(C_word)a,a+=5,tmp):(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4759,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word)li62),tmp=(C_word)a,a+=5,tmp)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_4759 in k4750 in k4747 in k4738 in a4735 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4759(C_word c,C_word *av){ C_word tmp; C_word 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_4759,3,av);} /* eval.scm:382: ##sys#error */ t3=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t1; av2[2]=lf[56]; av2[3]=lf[57]; av2[4]=((C_word*)t0)[2]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* loop in has-sep? in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static C_word C_fcall f_8263(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_i_zerop(t1))){ return(C_SCHEME_FALSE);} else{ t2=C_subchar(((C_word*)t0)[2],t1); if(C_truep((C_truep(C_eqp(t2,C_make_character(92)))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,C_make_character(47)))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ return(t1);} else{ t3=C_fixnum_difference(t1,C_fix(1)); t5=t3; t1=t5; goto loop;}}} /* k10718 in k10687 in k10684 in k10681 in a10675 in k10669 in k10660 in a10656 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in ... */ static void C_ccall f_10720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10720,2,av);} t2=((C_word*)t0)[2]; f_10693(t2,((C_word*)t0)[3]);} /* k10725 in k10684 in k10681 in a10675 in k10669 in k10660 in a10656 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in ... */ static void C_fcall f_10727(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_10727,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10730,a[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:1590: ##sys#print */ t3=*((C_word*)lf[327]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=lf[345]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[336]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10736,a[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:1593: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[326]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[326]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[336]+1); tp(4,av2);}}} /* k8905 in include-forms-from-file in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_8907,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8910,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_8965,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1125: load-verbose */ t5=*((C_word*)lf[179]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k7164 in for-each-loop1312 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7166,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7156(t3,((C_word*)t0)[4],t2);} /* ##sys#include-forms-from-file in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_8903,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8907,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1124: ##sys#resolve-include-filename */ t4=*((C_word*)lf[248]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* map-loop1097 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_6840(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_6840,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_6865,a[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:639: g1103 */ t5=((C_word*)t0)[4]; f_6783(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);}}} /* k10748 in k10681 in a10675 in k10669 in k10660 in a10656 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10750,2,av);} /* eval.scm:1587: ##sys#print */ t2=*((C_word*)lf[327]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[336]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in ... */ static void C_ccall f_10755(C_word c,C_word *av){ C_word tmp; C_word t0=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_10755,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_10761,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)li257),tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_10761(t5,t1);} /* k4770 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4772,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_setslot(((C_word*)t0)[3],C_fix(0),t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop1312 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_7156(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_7156,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_7166,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)); /* eval.scm:723: g1313 */ t5=((C_word*)t0)[3]; f_7141(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);}}} /* a8914 in k8908 in k8905 in include-forms-from-file in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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(17,c,4)))){ C_save_and_reclaim((void *)f_8915,2,av);} a=C_alloc(17); 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_8921,a[2]=t5,a[3]=t3,a[4]=((C_word)li191),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8926,a[2]=((C_word)li193),tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8959,a[2]=t3,a[3]=t5,a[4]=((C_word)li194),tmp=(C_word)a,a+=5,tmp); /* eval.scm:1127: ##sys#dynamic-wind */ t9=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10841 in k10838 in for-each-loop2606 in k10833 in loop in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 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 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_10843,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10846,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_10853,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1636: ##sys#print */ t4=*((C_word*)lf[327]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[353]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[336]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ /* eval.scm:1639: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[326]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[326]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[336]+1); tp(4,av2);}}} /* k10838 in for-each-loop2606 in k10833 in loop in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in ... */ static void C_ccall f_10840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_10840,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10843,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]); /* eval.scm:1634: ##sys#print */ t4=*((C_word*)lf[327]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_TRUE; av2[4]=*((C_word*)lf[336]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k10844 in k10841 in k10838 in for-each-loop2606 in k10833 in loop in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10846,2,av);} /* eval.scm:1639: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[326]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[326]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[336]+1); tp(4,av2);}} /* k8908 in k8905 in include-forms-from-file in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_8910,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8915,a[2]=((C_word*)t0)[2],a[3]=((C_word)li195),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1126: with-input-from-file */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* f_4764 in k4750 in k4747 in k4738 in a4735 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_4764,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4772,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10833 in loop in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in ... */ static void C_ccall f_10835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_10835,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10868,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_10873,a[2]=t5,a[3]=((C_word)li252),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_10873(t7,t3,t2);} /* g1313 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_7141(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_7141,3,t0,t1,t2);} /* eval.scm:723: ##compiler#process-declaration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[140]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[140]+1); av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} /* k6794 in g1103 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_6796(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_6796,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:649: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[82]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[82]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[117]; av2[3]=lf[119]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; tp(6,av2);}}} /* f_5827 in k5796 in k5790 in k5787 in a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; 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,5)))){ C_save_and_reclaim((void *)f_5827,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5833,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li83),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; /* eval.scm:245: ##sys#eval-decorator */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[5]; av2[4]=t4; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* k7132 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_7134(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7134,2,av);} /* eval.scm:727: compile */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4096(t2,((C_word*)t0)[3],lf[137],((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* f_4279 in a4121 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_4279,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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_slot(t6,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k10821 in loop in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in ... */ static void C_ccall f_10823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10823,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(9); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a11552 in a11546 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_11553,5,av);} a=C_alloc(12); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11557,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_11572,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* eval.scm:886: ##sys#get */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[35]+1); av2[1]=t6; av2[2]=t2; av2[3]=t3; tp(4,av2);}} else{ t6=t5; f_11557(t6,C_SCHEME_UNDEFINED);}} /* k11555 in a11552 in a11546 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_11557(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_11557,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11560,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:887: ##sys#put! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[418]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[418]+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);}} /* k4785 in k4747 in k4738 in a4735 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4787,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_4752(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_4752(2,av2);}}} /* loop in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in ... */ static void C_fcall f_10819(C_word t0,C_word t1,C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_10819,4,t0,t1,t2,t3);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10823,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_10835,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1629: ##sys#notice */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[59]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[59]+1); av2[1]=t5; av2[2]=lf[355]; 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_10903,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_10903(2,av2);}} else{ t8=t2; t9=C_u_i_car(t8); t10=C_u_i_car(t9); /* eval.scm:1643: ##sys#symbol-has-toplevel-binding? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[39]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[39]+1); av2[1]=t7; av2[2]=t10; tp(3,av2);}}}} /* k11558 in k11555 in a11552 in a11546 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11560,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_5808 in k5796 in k5790 in k5787 in a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; 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,5)))){ C_save_and_reclaim((void *)f_5808,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5814,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li81),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; /* eval.scm:245: ##sys#eval-decorator */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[5]; av2[4]=t4; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* a4735 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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(11,c,7)))){ C_save_and_reclaim((void *)f_4736,4,av);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4740,a[2]=t2,a[3]=t1,a[4]=t3,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); t5=C_i_caddr(((C_word*)t0)[3]); /* eval.scm:369: compile */ t6=((C_word*)((C_word*)t0)[8])[1]; f_4096(t6,t4,t5,((C_word*)t0)[9],((C_word*)t0)[7],((C_word*)t0)[10],((C_word*)t0)[6],((C_word*)t0)[4]);} /* a4729 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *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_4730,2,av);} /* eval.scm:368: lookup */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3985(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* k11531 in k11535 in k11539 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_11533,2,av);} a=C_alloc(3); t2=C_eqp(t1,lf[411]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11529,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1056: machine-type */ t4=*((C_word*)lf[414]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=((C_word*)t0)[2]; f_8746(t3,lf[6]);}} /* k11535 in k11539 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_11537,2,av);} a=C_alloc(3); t2=C_eqp(t1,lf[409]); if(C_truep(t2)){ t3=((C_word*)t0)[2]; f_8746(t3,lf[410]);} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11533,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1055: software-version */ t4=*((C_word*)lf[415]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* f_8164 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *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_8164,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_8162,2,av);} a=C_alloc(10); t2=C_mutate2((C_word*)lf[179]+1 /* (set! load-verbose ...) */,t1); t3=C_mutate2((C_word*)lf[180]+1 /* (set! ##sys#abort-load ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8164,a[2]=((C_word)li161),tmp=(C_word)a,a+=3,tmp)); t4=C_set_block_item(lf[181] /* ##sys#current-source-filename */,0,C_SCHEME_FALSE); t5=C_mutate2((C_word*)lf[182]+1 /* (set! ##sys#current-load-path ...) */,lf[183]); t6=C_set_block_item(lf[184] /* ##sys#dload-disabled */,0,C_SCHEME_FALSE); t7=C_mutate2((C_word*)lf[185]+1 /* (set! set-dynamic-load-mode! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8170,a[2]=((C_word)li163),tmp=(C_word)a,a+=3,tmp)); t8=*((C_word*)lf[56]+1); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8251,a[2]=t8,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:958: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[210]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[210]+1); av2[1]=t9; av2[2]=lf[417]; tp(3,av2);}} /* k11539 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_11541,2,av);} a=C_alloc(3); t2=C_eqp(t1,lf[407]); if(C_truep(t2)){ t3=((C_word*)t0)[2]; f_8746(t3,lf[408]);} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11537,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1054: software-version */ t4=*((C_word*)lf[415]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a11546 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_11547,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_11553,a[2]=t5,a[3]=t3,a[4]=((C_word)li298),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11574,a[2]=t5,a[3]=t3,a[4]=((C_word)li302),tmp=(C_word)a,a+=5,tmp); /* eval.scm:883: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_values(4,av2);}} /* k8175 in set-dynamic-load-mode! in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8177,2,av);} /* eval.scm:948: ##sys#set-dlopen-flags! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[186]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[186]+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);}} /* k10866 in k10833 in loop in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10868,2,av);} /* eval.scm:1641: ##sys#flush-output */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[331]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[331]+1); av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[336]+1); tp(3,av2);}} /* set-dynamic-load-mode! in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_8170,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_8177,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_8182,a[2]=t11,a[3]=t8,a[4]=t6,a[5]=((C_word)li162),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_8182(t13,t9,t4);} /* k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(27,c,3)))){ C_save_and_reclaim((void *)f_4891,2,av);} a=C_alloc(27); t2=t1; switch(((C_word*)t0)[2]){ case C_fix(1): t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4900,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4921,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],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); /* eval.scm:402: cadar */ t5=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);} case C_fix(2): t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4934,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],tmp=(C_word)a,a+=11,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4970,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],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); /* eval.scm:405: cadar */ t5=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);} case C_fix(3): t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4983,a[2]=((C_word*)t0)[10],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|8,a[1]=(C_word)f_5037,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],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); /* eval.scm:409: cadar */ t5=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);} case C_fix(4): t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5050,a[2]=((C_word*)t0)[10],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|8,a[1]=(C_word)f_5119,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],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); /* eval.scm:417: cadar */ t5=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);} 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|7,a[1]=(C_word)f_5127,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)li68),tmp=(C_word)a,a+=8,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5140,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],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_5187,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li71),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_5187(t12,t8,((C_word*)t0)[10]);}} /* follow in k9984 in k9894 in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9991(C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_9991,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9998,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],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_cdr(t4); t6=t3; f_9998(t6,C_i_pairp(t5));} else{ t4=t3; f_9998(t4,C_SCHEME_FALSE);}} /* k9996 in follow in k9984 in k9894 in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9998(C_word 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_9998,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10004,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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)[5]); t4=C_eqp(lf[298],t3); if(C_truep(t4)){ t5=C_i_cddr(((C_word*)t0)[5]); t6=t2; f_10004(t6,C_i_nullp(t5));} else{ t5=t2; f_10004(t5,C_SCHEME_FALSE);}} else{ /* eval.scm:1384: doit */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9573(t2,((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[4]);}} /* k4738 in a4735 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 t3; 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_4740,2,av);} a=C_alloc(14); t2=t1; t3=((C_word*)t0)[2]; if(C_truep(t3)){ t4=C_i_zerop(((C_word*)t0)[2]); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=(C_truep(t4)?(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4824,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word)li59),tmp=(C_word)a,a+=5,tmp):(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4837,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word)li60),tmp=(C_word)a,a+=6,tmp)); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4749,a[2]=((C_word*)t0)[3],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)[4],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); if(C_truep(*((C_word*)lf[58]+1))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4817,a[2]=((C_word*)t0)[10],a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* eval.scm:372: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[61]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[61]+1); av2[1]=t5; tp(2,av2);}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_4749(2,av2);}}}} /* k10851 in k10841 in k10838 in for-each-loop2606 in k10833 in loop in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in ... */ static void C_ccall f_10853(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_10853,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10856,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_u_i_cdr(((C_word*)t0)[3]); /* eval.scm:1637: ##sys#print */ t4=*((C_word*)lf[327]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_TRUE; av2[4]=*((C_word*)lf[336]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k10854 in k10851 in k10841 in k10838 in for-each-loop2606 in k10833 in loop in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10856,2,av);} /* eval.scm:1638: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[326]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[326]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); av2[3]=*((C_word*)lf[336]+1); tp(4,av2);}} /* k4747 in k4738 in a4735 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_4749,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4752,a[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)[5],((C_word*)t0)[6]))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4787,a[2]=t2,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); /* eval.scm:379: ##sys#get */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[35]+1); av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=lf[42]; tp(4,av2);}} else{ if(C_truep(((C_word*)t0)[8])){ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_4752(2,av2);}} else{ /* eval.scm:378: ##sys#alias-global-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[43]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[43]+1); av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[9]; tp(5,av2);}}}} /* k9984 in k9894 in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9986(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_9986,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_9991,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)li227),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_9991(t5,((C_word*)t0)[5],((C_word*)t0)[3]);} else{ /* eval.scm:1385: ##sys#error */ t2=*((C_word*)lf[40]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[300]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k11570 in a11552 in a11546 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11572(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_11572,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_mutate2(((C_word *)((C_word*)t0)[4])+1,t3); t5=((C_word*)t0)[5]; f_11557(t5,t4);} /* a11573 in a11546 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_11574,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_11580,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li299),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11585,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li301),tmp=(C_word)a,a+=7,tmp); /* eval.scm:892: dynamic-wind */ t8=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11587 in a11584 in a11573 in a11546 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_11589,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a11584 in a11573 in a11546 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_11585(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11585,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11589,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_11592,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t4,a[5]=((C_word)li300),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_11592(t6,t2);} /* a9930 in k9918 in g2281 in k9894 in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9931(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(0,c,1)))){ C_save_and_reclaim((void *)f_9931,5,av);} t5=((C_word*)((C_word*)t0)[2])[1]; if(C_truep(t5)){ t6=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t5); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t3); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k8122 in loop in decompose-lambda-list in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8124,2,av);} /* eval.scm:917: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4202 in a4121 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4204,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?t1:((C_word*)t0)[3]); f_4132(2,av2);}} /* find-id in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_3935(C_word t0,C_word t1,C_word 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_3935,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_3948,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_3948(t10,C_i_symbolp(t9));} else{ t7=t4; f_3948(t7,C_SCHEME_FALSE);}}} /* a11579 in a11573 in a11546 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; 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_11580,2,av);} t2=C_mutate2(((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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 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 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_10777,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; /* Re-use our own argvector */ 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_10786,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_10942,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1620: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[357]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[357]+1); av2[1]=t4; av2[2]=*((C_word*)lf[337]+1); tp(3,av2);}}} /* k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in ... */ static void C_ccall f_10771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_10771,2,av);} a=C_alloc(5); t2=*((C_word*)lf[323]+1); t3=(C_truep(t2)?t2:((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10777,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); /* eval.scm:1618: g2590 */ t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)C_fast_retrieve_proc(t5))(2,av2);}} /* k9918 in g2281 in k9894 in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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(9,c,5)))){ C_save_and_reclaim((void *)f_9920,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9925,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li223),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9931,a[2]=((C_word*)t0)[3],a[3]=((C_word)li224),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1371: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a9924 in k9918 in g2281 in k9894 in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9925(C_word c,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_9925,2,av);} /* eval.scm:1373: doit */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9573(t2,t1,((C_word*)t0)[3],((C_word*)t0)[3]);} /* k3946 in find-id in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_3948(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_3948,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:207: find-id */ t4=((C_word*)((C_word*)t0)[4])[1]; f_3935(t4,((C_word*)t0)[3],((C_word*)t0)[5],t3);}} /* k8103 in loop in decompose-lambda-list in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_8105(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8105,2,av);} /* eval.scm:915: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in k3987 in lookup in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_3997(C_word t0,C_word t1,C_word 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_3997,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ /* eval.scm:218: 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_4044,a[2]=t5,a[3]=((C_word)li21),tmp=(C_word)a,a+=4,tmp); t7=( f_4044(t6,t4,C_fix(0)) ); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4014,a[2]=t3,a[3]=((C_word)li22),tmp=(C_word)a,a+=4,tmp); /* eval.scm:217: g362 */ t9=t8; f_4014(t9,t1,t7);} else{ t8=C_slot(t2,C_fix(1)); t9=C_fixnum_plus(t3,C_fix(1)); /* eval.scm:220: loop */ t11=t1; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;}}} /* a10794 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 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 *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_10795,2,av);} /* eval.scm:1624: evaluator */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in g1103 in k6570 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static C_word C_fcall f_6807(C_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);}}} /* k9941 in k9894 in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_9943,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[52],t1); /* eval.scm:1377: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=((C_word*)((C_word*)t0)[3])[1]; av2[4]=((C_word*)t0)[4]; C_values(5,av2);}} /* a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 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 *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_10801,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_10805,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[352]+1))?C_i_pairp(*((C_word*)lf[31]+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_10819,a[2]=t6,a[3]=((C_word)li253),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_10819(t8,t3,*((C_word*)lf[31]+1),C_SCHEME_END_OF_LIST);} else{ t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_10805(2,av2);}}} /* map-loop2275 in k9894 in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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)); /* eval.scm:1371: g2281 */ t5=((C_word*)t0)[4]; f_9916(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);}}} /* k10806 in k10803 in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10808,2,av);} /* eval.scm:1647: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10761(t2,((C_word*)t0)[3]);} /* k10803 in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in ... */ static void C_ccall f_10805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_10805,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10808,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))){ /* eval.scm:1547: ##sys#print */ t5=*((C_word*)lf[327]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[349]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[332]+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(t6)){ t7=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10574,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_10599,a[2]=t9,a[3]=((C_word)li251),tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_10599(t11,t7,t4);}}} /* k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 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 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_10786,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10789,a[2]=((C_word*)t0)[2],a[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:1622: ##sys#clear-trace-buffer */ t3=*((C_word*)lf[333]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3972 in rename in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3974,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_3980,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:211: ##sys#get */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[35]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[36]; tp(4,av2);}}} /* k9385 in for-each-loop2064 in require in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9387,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9377(t3,((C_word*)t0)[4],t2);} /* k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in ... */ static void C_ccall f_10789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_10789,2,av);} a=C_alloc(9); t2=C_set_block_item(lf[31] /* ##sys#unbound-in-eval */,0,C_SCHEME_END_OF_LIST); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10795,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li250),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10801,a[2]=((C_word*)t0)[4],a[3]=((C_word)li254),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1624: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* rename in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_3970,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3974,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* eval.scm:210: find-id */ t5=((C_word*)((C_word*)t0)[2])[1]; f_3935(t5,t4,t2,t3);} /* lookup in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_3985(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(4,0,3)))){ C_save_and_reclaim_args((void *)trf_3985,5,t0,t1,t2,t3,t4);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3989,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* eval.scm:215: rename */ t6=((C_word*)((C_word*)t0)[2])[1]; f_3970(t6,t5,t2,t4);} /* k3987 in lookup in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_3989,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_3997,a[2]=t2,a[3]=t4,a[4]=((C_word)li23),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_3997(t6,((C_word*)t0)[2],((C_word*)t0)[3],C_fix(0));} /* k11527 in k11531 in k11535 in k11539 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11529,2,av);} t2=C_eqp(t1,lf[412]); t3=((C_word*)t0)[2]; f_8746(t3,(C_truep(t2)?lf[413]:lf[6]));} /* k3978 in k3972 in rename in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3980,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?t1:((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8464 in for-each-loop1759 in a8438 in k8391 in doloop1749 in k8376 in k8373 in k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in ... */ static void C_ccall f_8466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8466,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_8456(t3,((C_word*)t0)[4],t2);} /* g2281 in k9894 in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9916(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_9916,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9920,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* eval.scm:1372: srfi-id */ f_9550(t3,t2);} /* k4932 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_4934,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4937,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|8,a[1]=(C_word)f_4962,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],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); /* eval.scm:406: cadadr */ t5=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4935 in k4932 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_4937,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4938,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_4938 in k4935 in k4932 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4938(C_word c,C_word *av){ C_word tmp; C_word 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_4938,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4954,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* f_4222 in a4121 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; 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_4222,3,av);} t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t3,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10901 in loop in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 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 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_10903,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* eval.scm:1644: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_10819(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]); /* eval.scm:1645: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_10819(t7,((C_word*)t0)[4],t3,t6);}} /* k4960 in k4932 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4962,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* eval.scm:406: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4096(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k8446 in for-each-loop1759 in a8438 in k8391 in doloop1749 in k8376 in k8373 in k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8448,2,av);} /* eval.scm:1034: newline */ t2=*((C_word*)lf[199]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4952 */ static void C_ccall f_4954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_4954,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4958,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; /* Re-use our own argvector */ } 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);}} /* k4956 in k4952 */ 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 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_4958,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; /* Re-use our own argvector */ } 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);}} /* for-each-loop1759 in a8438 in k8391 in doloop1749 in k8376 in k8373 in k8370 in a8367 in k8358 in a8355 in k8333 in a8330 in k8321 in k8318 in k8312 in load in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in ... */ static void C_fcall f_8456(C_word t0,C_word 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_8456,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_8466,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_8448,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1033: write */ t7=*((C_word*)lf[28]+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);}}} /* k4981 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_4983,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4986,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); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5029,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],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp); /* eval.scm:410: cadadr */ t5=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4984 in k4981 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_4986,2,av);} a=C_alloc(15); t2=t1; t3=C_i_cddr(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4992,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); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5021,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],a[8]=((C_word*)t0)[11],tmp=(C_word)a,a+=9,tmp); /* eval.scm:412: cadar */ t6=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* a10949 in a10943 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in ... */ static void C_ccall f_10950(C_word c,C_word *av){ C_word tmp; C_word t0=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(0,c,2)))){ C_save_and_reclaim((void *)f_10950,2,av);} t2=C_set_block_item(lf[194] /* ##sys#read-error-with-line-number */,0,C_SCHEME_FALSE); t3=C_set_block_item(lf[358] /* ##sys#enable-qualifiers */,0,C_SCHEME_TRUE); t4=( /* eval.scm:1615: resetports */ f_10642(((C_word*)((C_word*)t0)[2])[1]) ); /* eval.scm:1616: c */ t5=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t1; av2[2]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k4968 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4970,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* eval.scm:405: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4096(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* ##sys#compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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 +49,c,8)))){ C_save_and_reclaim((void*)f_3914,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+49); 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; 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; 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=t12; t14=C_i_nullp(t10); t15=(C_truep(t14)?C_SCHEME_END_OF_LIST:C_i_cdr(t10)); t16=C_i_nullp(t15); t17=(C_truep(t16)?C_SCHEME_FALSE:C_i_car(t15)); t18=t17; t19=C_i_nullp(t15); t20=(C_truep(t19)?C_SCHEME_END_OF_LIST:C_i_cdr(t15)); 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_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3935,a[2]=t22,a[3]=((C_word)li19),tmp=(C_word)a,a+=4,tmp)); t34=C_set_block_item(t24,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3970,a[2]=t22,a[3]=((C_word)li20),tmp=(C_word)a,a+=4,tmp)); t35=C_set_block_item(t26,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3985,a[2]=t24,a[3]=((C_word)li24),tmp=(C_word)a,a+=4,tmp)); t36=C_set_block_item(t28,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4074,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); t37=C_set_block_item(t30,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4096,a[2]=t26,a[3]=t18,a[4]=t30,a[5]=t13,a[6]=t24,a[7]=t32,a[8]=((C_word)li138),tmp=(C_word)a,a+=9,tmp)); t38=C_set_block_item(t32,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7598,a[2]=t28,a[3]=t30,a[4]=((C_word)li151),tmp=(C_word)a,a+=5,tmp)); t39=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7941,a[2]=t30,a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t8,a[7]=t4,tmp=(C_word)a,a+=8,tmp); /* eval.scm:824: ##sys#eval-debug-level */ t40=*((C_word*)lf[32]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t40; av2[1]=t39; ((C_proc)(void*)(*((C_word*)t40+1)))(2,av2);}} /* k10940 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 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 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_10942,2,av);} t2=C_eqp(C_make_character(10),t1); if(C_truep(t2)){ /* eval.scm:1621: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[356]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[356]+1); av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[337]+1); tp(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_10786(2,av2);}}} /* a10943 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 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; 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_10944,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10950,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li255),tmp=(C_word)a,a+=5,tmp); /* eval.scm:1611: ##sys#reset-handler */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[359]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[359]+1); av2[1]=t1; av2[2]=t3; tp(3,av2);}} /* k10881 in for-each-loop2606 in k10833 in loop in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in ... */ static void C_ccall f_10883(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10883,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10873(t3,((C_word*)t0)[4],t2);} /* f_4142 in k4133 in k4130 in a4121 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_4142,3,av);} /* eval.scm:264: ##sys#error */ t3=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=lf[41]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k10968 in k10963 in a10960 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10970,2,av);} /* eval.scm:1653: ##sys#reset-handler */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[359]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[359]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k9241 in k9238 in load-extension in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_9243,2,av);} a=C_alloc(7); t2=t1; t3=C_i_member(t2,*((C_word*)lf[264]+1)); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_memq(((C_word*)((C_word*)t0)[3])[1],*((C_word*)lf[0]+1)); t5=(C_truep(t4)?t4:C_i_memq(((C_word*)((C_word*)t0)[3])[1],*((C_word*)lf[2]+1))); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9261,a[2]=((C_word*)t0)[2],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); /* eval.scm:1214: ##sys#load-library-0 */ t7=*((C_word*)lf[234]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9273,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); /* eval.scm:1218: ##sys#find-extension */ t7=*((C_word*)lf[258]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}} /* k9968 in map-loop2275 in k9894 in do-the-right-thing in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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_mutate2(((C_word *)((C_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);} /* k9238 in load-extension in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_9240(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_9240,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9243,a[2]=((C_word*)t0)[2],a[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:1210: ##sys#canonicalize-extension-path */ t3=*((C_word*)lf[249]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* for-each-loop2606 in k10833 in loop in a10800 in k10787 in k10784 in k10775 in k10769 in k10766 in loop in a10754 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in ... */ static void C_fcall f_10873(C_word t0,C_word t1,C_word 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_10873,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_10883,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_10840,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1633: ##sys#print */ t8=*((C_word*)lf[327]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t7; av2[2]=lf[354]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[336]+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);}}} /* k4133 in k4130 in a4121 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_4135(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_4135,2,t0,t1);} a=C_alloc(4); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4152,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:265: ##sys#symbol-has-toplevel-binding? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[39]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[39]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4142,a[2]=((C_word*)t0)[4],a[3]=((C_word)li35),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k4130 in a4121 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; 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_4132,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4135,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_4162,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[31]+1))){ t5=C_i_not(t2); if(C_truep(t5)){ t6=t4; f_4162(t6,t5);} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4183,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* eval.scm:259: ##sys#symbol-has-toplevel-binding? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[39]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[39]+1); av2[1]=t6; av2[2]=t2; tp(3,av2);}}} else{ t5=t4; f_4162(t5,C_SCHEME_FALSE);}} /* a10960 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 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!=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_10961,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10965,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:1649: load-verbose */ t3=*((C_word*)lf[179]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10963 in a10960 in a10650 in k10632 in k10629 in repl in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in ... */ static void C_ccall f_10965(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_10965,2,av);} a=C_alloc(4); t2=C_mutate2((C_word*)lf[338]+1 /* (set! ##sys#quit-hook ...) */,((C_word*)t0)[2]); t3=C_mutate2((C_word*)lf[31]+1 /* (set! ##sys#unbound-in-eval ...) */,((C_word*)t0)[3]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10970,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1652: ##sys#error-handler */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[348]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[348]+1); av2[1]=t4; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} /* k9271 in k9241 in k9238 in load-extension in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_9273,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9279,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1220: ##sys#load */ t3=*((C_word*)lf[193]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ if(C_truep(((C_word*)t0)[4])){ /* eval.scm:1223: ##sys#error */ t2=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[267]; av2[4]=((C_word*)((C_word*)t0)[6])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* k9277 in k9271 in k9241 in k9238 in load-extension in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9279,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],*((C_word*)lf[264]+1)); t3=C_mutate2((C_word*)lf[264]+1 /* (set! ##sys#loaded-extensions ...) */,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4160 in k4130 in a4121 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_4162(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_4162,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[31]+1)); t4=C_mutate2((C_word*)lf[31]+1 /* (set! ##sys#unbound-in-eval ...) */,t3); t5=((C_word*)t0)[4]; f_4135(t5,t4);} else{ t2=((C_word*)t0)[4]; f_4135(t2,C_SCHEME_UNDEFINED);}} /* doloop1597 in a11584 in a11573 in a11546 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_11592(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_11592,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_11602,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[418]+1); av2[3]=t4; C_apply(4,av2);}}} /* ##sys#user-read-hook in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 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=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_10994,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_11004,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* read-char/port */ t5=*((C_word*)lf[366]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* eval.scm:1682: old */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}} /* k3902 in k3899 in k3896 in a3885 in eval-decorator in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3904,2,av);} /* eval.scm:187: ##sys#make-lambda-info */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[26]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_3909,2,av);} a=C_alloc(12); t2=C_mutate2((C_word*)lf[32]+1 /* (set! ##sys#eval-debug-level ...) */,t1); t3=*((C_word*)lf[33]+1); t4=C_mutate2((C_word*)lf[34]+1 /* (set! ##sys#compile-to-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3914,a[2]=((C_word)li152),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[89]+1 /* (set! ##sys#eval/meta ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7979,a[2]=((C_word)li156),tmp=(C_word)a,a+=3,tmp)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8062,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11620,a[2]=((C_word)li308),tmp=(C_word)a,a+=3,tmp); /* eval.scm:856: make-parameter */ t8=*((C_word*)lf[390]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k3899 in k3896 in a3885 in eval-decorator in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_3901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3901,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3904,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:190: get-output-string */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9259 in k9241 in k9238 in load-extension in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_9261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9261,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(((C_word*)t0)[3])){ /* eval.scm:1216: ##sys#error */ t2=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[266]; av2[4]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* f_4158 in k4150 in k4133 in k4130 in a4121 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4158,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fast_retrieve(((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4150 in k4133 in k4130 in a4121 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4152,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4153,a[2]=((C_word*)t0)[2],a[3]=((C_word)li33),tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_4158,a[2]=((C_word*)t0)[2],a[3]=((C_word)li34),tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* f_4153 in k4150 in k4133 in k4130 in a4121 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4153,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_slot(((C_word*)t0)[2],C_fix(0)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(46,c,6)))){ C_save_and_reclaim((void *)f_10983,2,av);} a=C_alloc(46); t2=C_mutate2((C_word*)lf[360]+1 /* (set! ##sys#sharp-comma-reader-ctors ...) */,t1); t3=C_mutate2((C_word*)lf[361]+1 /* (set! define-reader-ctor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10985,a[2]=((C_word)li262),tmp=(C_word)a,a+=3,tmp)); t4=*((C_word*)lf[362]+1); t5=C_mutate2((C_word*)lf[362]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10994,a[2]=t4,a[3]=((C_word)li264),tmp=(C_word)a,a+=4,tmp)); t6=lf[367] /* last-error */ =C_SCHEME_FALSE;; t7=C_mutate2(&lf[368] /* (set! run-safe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11069,a[2]=((C_word)li272),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2(&lf[371] /* (set! store-result ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11128,a[2]=((C_word)li273),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2(&lf[373] /* (set! CHICKEN_yield ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11137,a[2]=((C_word)li275),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2(&lf[375] /* (set! CHICKEN_eval ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11149,a[2]=((C_word)li277),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2(&lf[376] /* (set! CHICKEN_eval_string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11165,a[2]=((C_word)li279),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2(&lf[378] /* (set! store-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11191,a[2]=((C_word)li280),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2(&lf[380] /* (set! CHICKEN_eval_to_string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11204,a[2]=((C_word)li282),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2(&lf[381] /* (set! CHICKEN_eval_string_to_string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11230,a[2]=((C_word)li284),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2(&lf[382] /* (set! CHICKEN_apply ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11267,a[2]=((C_word)li286),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2(&lf[383] /* (set! CHICKEN_apply_to_string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11283,a[2]=((C_word)li288),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2(&lf[384] /* (set! CHICKEN_read ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11309,a[2]=((C_word)li290),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2(&lf[385] /* (set! CHICKEN_load ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11331,a[2]=((C_word)li292),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2(&lf[386] /* (set! CHICKEN_get_error_message ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11346,a[2]=((C_word)li293),tmp=(C_word)a,a+=3,tmp)); t20=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t20; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} /* define-reader-ctor in k10981 in k10478 in k10313 in k11359 in k11367 in k11375 in k11383 in k10201 in k10198 in k10195 in k10192 in k10187 in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in ... */ static void C_ccall f_10985(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_10985,4,av);} t4=C_i_check_symbol_2(t2,lf[361]); /* eval.scm:1662: ##sys#hash-table-set! */ t5=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=*((C_word*)lf[360]+1); av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k5342 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_5344(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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,3)))){ C_save_and_reclaim((void *)f_5344,2,av);} a=C_alloc(27); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5348,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_5368,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_5382,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li74),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_5382(t12,t8,((C_word*)t0)[10]);} /* k5346 in k5342 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_5348(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_5348,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[62],t2); /* eval.scm:443: compile */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4096(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]);} /* k9199 in loop in k9184 in k9133 in find-extension in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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; 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_9201,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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:1201: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_9188(t3,((C_word*)t0)[2],t2);}} /* f_4485 in k4428 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4485,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4487 in k4428 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4487,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#load-extension in k9125 in k8765 in k8756 in k8749 in k8744 in k8249 in k8160 in k8074 in k8060 in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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,2)))){ C_save_and_reclaim((void*)f_9233,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; 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_SCHEME_TRUE:C_i_car(t4)); t8=t7; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9240,a[2]=t1,a[3]=t5,a[4]=t8,a[5]=t3,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_stringp(((C_word*)t5)[1]))){ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9299,a[2]=t5,a[3]=t9,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1208: string->symbol */ t11=*((C_word*)lf[268]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t10; av2[2]=((C_word*)t5)[1]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t10=t9; f_9240(t10,C_i_check_symbol_2(((C_word*)t5)[1],t3));}} /* f_4901 in k4898 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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=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_4901,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4917,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4898 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 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_4900,2,av);} a=C_alloc(5); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4901,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word)li64),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5366 in k5342 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_5368,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[62],t2); t4=C_a_i_list(&a,1,t3); /* eval.scm:196: ##sys#append */ t5=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6175 in k6168 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_6177,2,av);} /* eval.scm:575: compile */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4096(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]);} /* k6168 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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(8,c,4)))){ C_save_and_reclaim((void *)f_6170,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,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]=t2,tmp=(C_word)a,a+=8,tmp); t4=C_i_cddr(((C_word*)t0)[7]); /* eval.scm:576: ##sys#canonicalize-body */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[68]+1); av2[1]=t3; av2[2]=t4; av2[3]=t2; av2[4]=C_SCHEME_FALSE; tp(5,av2);}} /* k4919 in k4889 in k4886 in k4880 in k4871 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_4921(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4921,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* eval.scm:402: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4096(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k4915 */ static void C_ccall f_4917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_4917,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; /* Re-use our own argvector */ } 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);}} /* k6131 in map-loop894 in a5778 in k5772 in k5761 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_ccall f_6133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_6133,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6108(t6,((C_word*)t0)[5],t5);} /* g981 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_6186(C_word t0,C_word t1,C_word 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_6186,3,t0,t1,t2);} a=C_alloc(9); t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6198,a[2]=t1,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_6202,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t7=C_i_cadr(t2); /* eval.scm:571: ##sys#eval/meta */ t8=*((C_word*)lf[89]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k6196 in g981 in k4419 in k4404 in k4401 in k4381 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_6198,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* f_4334 in k4317 in k4101 in compile in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4334,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop1456 in k7603 in compile-call in compile-to-closure in k3907 in k3513 in k3510 in k11719 in k3488 in k3485 */ static void C_fcall f_7874(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_7874,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_7899,a[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:819: g1462 */ t5=((C_word*)t0)[4]; f_7801(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);}}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[827] = { {"f_5416:eval_2escm",(void*)f_5416}, {"f_4326:eval_2escm",(void*)f_4326}, {"f_8383:eval_2escm",(void*)f_8383}, {"f_7865:eval_2escm",(void*)f_7865}, {"f_5466:eval_2escm",(void*)f_5466}, {"f_8396:eval_2escm",(void*)f_8396}, {"f_8393:eval_2escm",(void*)f_8393}, {"f_4350:eval_2escm",(void*)f_4350}, {"f_4352:eval_2escm",(void*)f_4352}, {"f_5475:eval_2escm",(void*)f_5475}, {"f_9778:eval_2escm",(void*)f_9778}, {"f_4342:eval_2escm",(void*)f_4342}, {"f_7840:eval_2escm",(void*)f_7840}, {"f_7838:eval_2escm",(void*)f_7838}, {"f_7828:eval_2escm",(void*)f_7828}, {"f_7823:eval_2escm",(void*)f_7823}, {"f_6108:eval_2escm",(void*)f_6108}, {"f_4319:eval_2escm",(void*)f_4319}, {"f_10214:eval_2escm",(void*)f_10214}, {"f_6410:eval_2escm",(void*)f_6410}, {"f_6417:eval_2escm",(void*)f_6417}, {"f_6102:eval_2escm",(void*)f_6102}, {"f_9734:eval_2escm",(void*)f_9734}, {"f_4300:eval_2escm",(void*)f_4300}, {"f_10205:eval_2escm",(void*)f_10205}, {"f_10203:eval_2escm",(void*)f_10203}, {"f_10200:eval_2escm",(void*)f_10200}, {"f_6425:eval_2escm",(void*)f_6425}, {"f_6421:eval_2escm",(void*)f_6421}, {"f_10263:eval_2escm",(void*)f_10263}, {"f_6404:eval_2escm",(void*)f_6404}, {"f_6401:eval_2escm",(void*)f_6401}, {"f_8692:eval_2escm",(void*)f_8692}, {"f_6407:eval_2escm",(void*)f_6407}, {"f_5382:eval_2escm",(void*)f_5382}, {"f_6460:eval_2escm",(void*)f_6460}, {"f_8676:eval_2escm",(void*)f_8676}, {"f_6051:eval_2escm",(void*)f_6051}, {"f_6056:eval_2escm",(void*)f_6056}, {"f_6055:eval_2escm",(void*)f_6055}, {"f_6062:eval_2escm",(void*)f_6062}, {"f_5998:eval_2escm",(void*)f_5998}, {"f_5992:eval_2escm",(void*)f_5992}, {"f_7572:eval_2escm",(void*)f_7572}, {"f_7899:eval_2escm",(void*)f_7899}, {"f_6033:eval_2escm",(void*)f_6033}, {"f_9299:eval_2escm",(void*)f_9299}, {"f_6039:eval_2escm",(void*)f_6039}, {"f_10288:eval_2escm",(void*)f_10288}, {"f_10315:eval_2escm",(void*)f_10315}, {"f_9072:eval_2escm",(void*)f_9072}, {"f_8616:eval_2escm",(void*)f_8616}, {"f_8619:eval_2escm",(void*)f_8619}, {"f_3894:eval_2escm",(void*)f_3894}, {"f_10405:eval_2escm",(void*)f_10405}, {"f_10407:eval_2escm",(void*)f_10407}, {"f_8625:eval_2escm",(void*)f_8625}, {"f_8628:eval_2escm",(void*)f_8628}, {"f_3898:eval_2escm",(void*)f_3898}, {"f_4687:eval_2escm",(void*)f_4687}, {"f_4684:eval_2escm",(void*)f_4684}, {"f_4680:eval_2escm",(void*)f_4680}, {"f_5970:eval_2escm",(void*)f_5970}, {"f_7598:eval_2escm",(void*)f_7598}, {"f_8601:eval_2escm",(void*)f_8601}, {"f_9035:eval_2escm",(void*)f_9035}, {"f_10417:eval_2escm",(void*)f_10417}, {"f_8586:eval_2escm",(void*)f_8586}, {"f_8580:eval_2escm",(void*)f_8580}, {"f_8583:eval_2escm",(void*)f_8583}, {"f_9022:eval_2escm",(void*)f_9022}, {"f_5917:eval_2escm",(void*)f_5917}, {"f_10442:eval_2escm",(void*)f_10442}, {"f_7811:eval_2escm",(void*)f_7811}, {"f_7812:eval_2escm",(void*)f_7812}, {"f_3861:eval_2escm",(void*)f_3861}, {"f_5923:eval_2escm",(void*)f_5923}, {"f_7801:eval_2escm",(void*)f_7801}, {"f_3515:eval_2escm",(void*)f_3515}, {"f_3516:eval_2escm",(void*)f_3516}, {"f_10365:eval_2escm",(void*)f_10365}, {"f_3873:eval_2escm",(void*)f_3873}, {"f_3512:eval_2escm",(void*)f_3512}, {"f_3867:eval_2escm",(void*)f_3867}, {"f_10395:eval_2escm",(void*)f_10395}, {"f_9756:eval_2escm",(void*)f_9756}, {"f_3574:eval_2escm",(void*)f_3574}, {"f_9749:eval_2escm",(void*)f_9749}, {"f_5951:eval_2escm",(void*)f_5951}, {"f_3886:eval_2escm",(void*)f_3886}, {"f_10480:eval_2escm",(void*)f_10480}, {"f_10482:eval_2escm",(void*)f_10482}, {"f_10486:eval_2escm",(void*)f_10486}, {"f_8592:eval_2escm",(void*)f_8592}, {"f_6763:eval_2escm",(void*)f_6763}, {"f_6760:eval_2escm",(void*)f_6760}, {"f_6766:eval_2escm",(void*)f_6766}, {"f_5964:eval_2escm",(void*)f_5964}, {"f_7526:eval_2escm",(void*)f_7526}, {"f_10245:eval_2escm",(void*)f_10245}, {"f_6736:eval_2escm",(void*)f_6736}, {"f_6769:eval_2escm",(void*)f_6769}, {"f_9768:eval_2escm",(void*)f_9768}, {"f_9764:eval_2escm",(void*)f_9764}, {"f_3829:eval_2escm",(void*)f_3829}, {"f_10463:eval_2escm",(void*)f_10463}, {"f_10467:eval_2escm",(void*)f_10467}, {"f_3564:eval_2escm",(void*)f_3564}, {"f_6744:eval_2escm",(void*)f_6744}, {"f_6742:eval_2escm",(void*)f_6742}, {"f_5904:eval_2escm",(void*)f_5904}, {"f_7273:eval_2escm",(void*)f_7273}, {"f_8806:eval_2escm",(void*)f_8806}, {"f_3839:eval_2escm",(void*)f_3839}, {"f_10493:eval_2escm",(void*)f_10493}, {"f_8503:eval_2escm",(void*)f_8503}, {"f_10496:eval_2escm",(void*)f_10496}, {"f_10498:eval_2escm",(void*)f_10498}, {"f_6710:eval_2escm",(void*)f_6710}, {"f_6748:eval_2escm",(void*)f_6748}, {"f_4566:eval_2escm",(void*)f_4566}, {"f_4567:eval_2escm",(void*)f_4567}, {"f_4560:eval_2escm",(void*)f_4560}, {"f_4563:eval_2escm",(void*)f_4563}, {"f_3549:eval_2escm",(void*)f_3549}, {"f_3541:eval_2escm",(void*)f_3541}, {"f_7255:eval_2escm",(void*)f_7255}, {"f_4516:eval_2escm",(void*)f_4516}, {"f_10472:eval_2escm",(void*)f_10472}, {"f_10501:eval_2escm",(void*)f_10501}, {"f_10507:eval_2escm",(void*)f_10507}, {"f_6776:eval_2escm",(void*)f_6776}, {"f_6783:eval_2escm",(void*)f_6783}, {"f_5945:eval_2escm",(void*)f_5945}, {"f_6751:eval_2escm",(void*)f_6751}, {"f_10527:eval_2escm",(void*)f_10527}, {"f_6757:eval_2escm",(void*)f_6757}, {"f_6754:eval_2escm",(void*)f_6754}, {"f_7200:eval_2escm",(void*)f_7200}, {"f_8512:eval_2escm",(void*)f_8512}, {"f_4371:eval_2escm",(void*)f_4371}, {"f_4373:eval_2escm",(void*)f_4373}, {"f_7213:eval_2escm",(void*)f_7213}, {"f_8065:eval_2escm",(void*)f_8065}, {"f_4550:eval_2escm",(void*)f_4550}, {"f_8062:eval_2escm",(void*)f_8062}, {"f_8524:eval_2escm",(void*)f_8524}, {"f_8078:eval_2escm",(void*)f_8078}, {"f_8076:eval_2escm",(void*)f_8076}, {"f_8073:eval_2escm",(void*)f_8073}, {"f_10537:eval_2escm",(void*)f_10537}, {"f_8047:eval_2escm",(void*)f_8047}, {"f_8041:eval_2escm",(void*)f_8041}, {"f_8044:eval_2escm",(void*)f_8044}, {"f_4574:eval_2escm",(void*)f_4574}, {"f_3537:eval_2escm",(void*)f_3537}, {"f_4383:eval_2escm",(void*)f_4383}, {"f_4384:eval_2escm",(void*)f_4384}, {"f_8058:eval_2escm",(void*)f_8058}, {"f_8054:eval_2escm",(void*)f_8054}, {"f_6721:eval_2escm",(void*)f_6721}, {"f_9682:eval_2escm",(void*)f_9682}, {"f_8022:eval_2escm",(void*)f_8022}, {"f_6990:eval_2escm",(void*)f_6990}, {"f_8029:eval_2escm",(void*)f_8029}, {"f_10587:eval_2escm",(void*)f_10587}, {"f_9678:eval_2escm",(void*)f_9678}, {"f_8035:eval_2escm",(void*)f_8035}, {"f_8031:eval_2escm",(void*)f_8031}, {"f_7555:eval_2escm",(void*)f_7555}, {"f_8038:eval_2escm",(void*)f_8038}, {"f_10574:eval_2escm",(void*)f_10574}, {"f_8003:eval_2escm",(void*)f_8003}, {"f_10452:eval_2escm",(void*)f_10452}, {"f_8007:eval_2escm",(void*)f_8007}, {"f_9690:eval_2escm",(void*)f_9690}, {"f_8013:eval_2escm",(void*)f_8013}, {"f_8010:eval_2escm",(void*)f_8010}, {"f_8018:eval_2escm",(void*)f_8018}, {"f_9097:eval_2escm",(void*)f_9097}, {"f_10332:eval_2escm",(void*)f_10332}, {"f_10513:eval_2escm",(void*)f_10513}, {"f_10431:eval_2escm",(void*)f_10431}, {"f_10326:eval_2escm",(void*)f_10326}, {"f_4824:eval_2escm",(void*)f_4824}, {"f_9634:eval_2escm",(void*)f_9634}, {"f_9089:eval_2escm",(void*)f_9089}, {"f_10354:eval_2escm",(void*)f_10354}, {"f_8746:eval_2escm",(void*)f_8746}, {"f_8741:eval_2escm",(void*)f_8741}, {"f_4817:eval_2escm",(void*)f_4817}, {"f_10345:eval_2escm",(void*)f_10345}, {"f_10348:eval_2escm",(void*)f_10348}, {"f_8758:eval_2escm",(void*)f_8758}, {"f_8751:eval_2escm",(void*)f_8751}, {"f_4882:eval_2escm",(void*)f_4882}, {"f_4888:eval_2escm",(void*)f_4888}, {"f_4873:eval_2escm",(void*)f_4873}, {"f_9603:eval_2escm",(void*)f_9603}, {"f_8738:eval_2escm",(void*)f_8738}, {"f_8735:eval_2escm",(void*)f_8735}, {"f_8730:eval_2escm",(void*)f_8730}, {"f_5079:eval_2escm",(void*)f_5079}, {"f_10591:eval_2escm",(void*)f_10591}, {"f_3715:eval_2escm",(void*)f_3715}, {"f_10599:eval_2escm",(void*)f_10599}, {"f_5083:eval_2escm",(void*)f_5083}, {"f_5087:eval_2escm",(void*)f_5087}, {"f_4044:eval_2escm",(void*)f_4044}, {"f_5053:eval_2escm",(void*)f_5053}, {"f_5050:eval_2escm",(void*)f_5050}, {"toplevel:eval_2escm",(void*)C_eval_toplevel}, {"f_3775:eval_2escm",(void*)f_3775}, {"f_3771:eval_2escm",(void*)f_3771}, {"f_3783:eval_2escm",(void*)f_3783}, {"f_3755:eval_2escm",(void*)f_3755}, {"f_5095:eval_2escm",(void*)f_5095}, {"f_5091:eval_2escm",(void*)f_5091}, {"f_7290:eval_2escm",(void*)f_7290}, {"f_5021:eval_2escm",(void*)f_5021}, {"f_5029:eval_2escm",(void*)f_5029}, {"f_4846:eval_2escm",(void*)f_4846}, {"f_4836:eval_2escm",(void*)f_4836}, {"f_7296:eval_2escm",(void*)f_7296}, {"f_4837:eval_2escm",(void*)f_4837}, {"f_6084:eval_2escm",(void*)f_6084}, {"f_5009:eval_2escm",(void*)f_5009}, {"f_7285:eval_2escm",(void*)f_7285}, {"f_6681:eval_2escm",(void*)f_6681}, {"f_6680:eval_2escm",(void*)f_6680}, {"f_9661:eval_2escm",(void*)f_9661}, {"f_6687:eval_2escm",(void*)f_6687}, {"f_3707:eval_2escm",(void*)f_3707}, {"f_3701:eval_2escm",(void*)f_3701}, {"f_11210:eval_2escm",(void*)f_11210}, {"f_11214:eval_2escm",(void*)f_11214}, {"f_11217:eval_2escm",(void*)f_11217}, {"f_6667:eval_2escm",(void*)f_6667}, {"f_5532:eval_2escm",(void*)f_5532}, {"f_7979:eval_2escm",(void*)f_7979}, {"f_6677:eval_2escm",(void*)f_6677}, {"f_5501:eval_2escm",(void*)f_5501}, {"f_6011:eval_2escm",(void*)f_6011}, {"f_11234:eval_2escm",(void*)f_11234}, {"f_11230:eval_2escm",(void*)f_11230}, {"f_6017:eval_2escm",(void*)f_6017}, {"f_5013:eval_2escm",(void*)f_5013}, {"f_5017:eval_2escm",(void*)f_5017}, {"f_11239:eval_2escm",(void*)f_11239}, {"f_3736:eval_2escm",(void*)f_3736}, {"f_5558:eval_2escm",(void*)f_5558}, {"f_11204:eval_2escm",(void*)f_11204}, {"f_6029:eval_2escm",(void*)f_6029}, {"f_8298:eval_2escm",(void*)f_8298}, {"f_3745:eval_2escm",(void*)f_3745}, {"f_5528:eval_2escm",(void*)f_5528}, {"f_7941:eval_2escm",(void*)f_7941}, {"f_5544:eval_2escm",(void*)f_5544}, {"f_11273:eval_2escm",(void*)f_11273}, {"f_9472:eval_2escm",(void*)f_9472}, {"f_7922:eval_2escm",(void*)f_7922}, {"f_9465:eval_2escm",(void*)f_9465}, {"f_9462:eval_2escm",(void*)f_9462}, {"f_6303:eval_2escm",(void*)f_6303}, {"f_6304:eval_2escm",(void*)f_6304}, {"f_6300:eval_2escm",(void*)f_6300}, {"f_11293:eval_2escm",(void*)f_11293}, {"f_9492:eval_2escm",(void*)f_9492}, {"f_11296:eval_2escm",(void*)f_11296}, {"f_8965:eval_2escm",(void*)f_8965}, {"f_11261:eval_2escm",(void*)f_11261}, {"f_11265:eval_2escm",(void*)f_11265}, {"f_11267:eval_2escm",(void*)f_11267}, {"f_9489:eval_2escm",(void*)f_9489}, {"f_8973:eval_2escm",(void*)f_8973}, {"f_8970:eval_2escm",(void*)f_8970}, {"f_8979:eval_2escm",(void*)f_8979}, {"f_4256:eval_2escm",(void*)f_4256}, {"f_11283:eval_2escm",(void*)f_11283}, {"f_11281:eval_2escm",(void*)f_11281}, {"f_9421:eval_2escm",(void*)f_9421}, {"f_11289:eval_2escm",(void*)f_11289}, {"f_8953:eval_2escm",(void*)f_8953}, {"f_8959:eval_2escm",(void*)f_8959}, {"f_6379:eval_2escm",(void*)f_6379}, {"f_4237:eval_2escm",(void*)f_4237}, {"f_6587:eval_2escm",(void*)f_6587}, {"f_6354:eval_2escm",(void*)f_6354}, {"f_8921:eval_2escm",(void*)f_8921}, {"f_8926:eval_2escm",(void*)f_8926}, {"f_6581:eval_2escm",(void*)f_6581}, {"f_6584:eval_2escm",(void*)f_6584}, {"f_6599:eval_2escm",(void*)f_6599}, {"f_6595:eval_2escm",(void*)f_6595}, {"f_8934:eval_2escm",(void*)f_8934}, {"f_8936:eval_2escm",(void*)f_8936}, {"f_6590:eval_2escm",(void*)f_6590}, {"f_5059:eval_2escm",(void*)f_5059}, {"f_5062:eval_2escm",(void*)f_5062}, {"f_5063:eval_2escm",(void*)f_5063}, {"f_7998:eval_2escm",(void*)f_7998}, {"f_7995:eval_2escm",(void*)f_7995}, {"f_7992:eval_2escm",(void*)f_7992}, {"f_5037:eval_2escm",(void*)f_5037}, {"f_9411:eval_2escm",(void*)f_9411}, {"f_9414:eval_2escm",(void*)f_9414}, {"f_9417:eval_2escm",(void*)f_9417}, {"f_6572:eval_2escm",(void*)f_6572}, {"f_7989:eval_2escm",(void*)f_7989}, {"f_7986:eval_2escm",(void*)f_7986}, {"f_7983:eval_2escm",(void*)f_7983}, {"f_8182:eval_2escm",(void*)f_8182}, {"f_9150:eval_2escm",(void*)f_9150}, {"f_9401:eval_2escm",(void*)f_9401}, {"f_9405:eval_2escm",(void*)f_9405}, {"f_9144:eval_2escm",(void*)f_9144}, {"f_8195:eval_2escm",(void*)f_8195}, {"f_9141:eval_2escm",(void*)f_9141}, {"f_9179:eval_2escm",(void*)f_9179}, {"f_10011:eval_2escm",(void*)f_10011}, {"f_11253:eval_2escm",(void*)f_11253}, {"f_9160:eval_2escm",(void*)f_9160}, {"f_11257:eval_2escm",(void*)f_11257}, {"f_7692:eval_2escm",(void*)f_7692}, {"f_7696:eval_2escm",(void*)f_7696}, {"f_11224:eval_2escm",(void*)f_11224}, {"f_11228:eval_2escm",(void*)f_11228}, {"f_7685:eval_2escm",(void*)f_7685}, {"f_6325:eval_2escm",(void*)f_6325}, {"f_7674:eval_2escm",(void*)f_7674}, {"f_7678:eval_2escm",(void*)f_7678}, {"f_7677:eval_2escm",(void*)f_7677}, {"f_6331:eval_2escm",(void*)f_6331}, {"f_9131:eval_2escm",(void*)f_9131}, {"f_11243:eval_2escm",(void*)f_11243}, {"f_9137:eval_2escm",(void*)f_9137}, {"f_10109:eval_2escm",(void*)f_10109}, {"f_9135:eval_2escm",(void*)f_9135}, {"f_10101:eval_2escm",(void*)f_10101}, {"f_11246:eval_2escm",(void*)f_11246}, {"f_7661:eval_2escm",(void*)f_7661}, {"f_8996:eval_2escm",(void*)f_8996}, {"f_8991:eval_2escm",(void*)f_8991}, {"f_10135:eval_2escm",(void*)f_10135}, {"f_9127:eval_2escm",(void*)f_9127}, {"f_4183:eval_2escm",(void*)f_4183}, {"f_3617:eval_2escm",(void*)f_3617}, {"f_10125:eval_2escm",(void*)f_10125}, {"f_11004:eval_2escm",(void*)f_11004}, {"f_11007:eval_2escm",(void*)f_11007}, {"f_11008:eval_2escm",(void*)f_11008}, {"f_9436:eval_2escm",(void*)f_9436}, {"f_9432:eval_2escm",(void*)f_9432}, {"f_5654:eval_2escm",(void*)f_5654}, {"f_3632:eval_2escm",(void*)f_3632}, {"f_7627:eval_2escm",(void*)f_7627}, {"f_10097:eval_2escm",(void*)f_10097}, {"f_8439:eval_2escm",(void*)f_8439}, {"f_8434:eval_2escm",(void*)f_8434}, {"f_9448:eval_2escm",(void*)f_9448}, {"f_9442:eval_2escm",(void*)f_9442}, {"f_7605:eval_2escm",(void*)f_7605}, {"f_8490:eval_2escm",(void*)f_8490}, {"f_8494:eval_2escm",(void*)f_8494}, {"f_5606:eval_2escm",(void*)f_5606}, {"f_10197:eval_2escm",(void*)f_10197}, {"f_10194:eval_2escm",(void*)f_10194}, {"f_10185:eval_2escm",(void*)f_10185}, {"f_10189:eval_2escm",(void*)f_10189}, {"f_4421:eval_2escm",(void*)f_4421}, {"f_4103:eval_2escm",(void*)f_4103}, {"f_4104:eval_2escm",(void*)f_4104}, {"f_4453:eval_2escm",(void*)f_4453}, {"f_6651:eval_2escm",(void*)f_6651}, {"f_4403:eval_2escm",(void*)f_4403}, {"f_4406:eval_2escm",(void*)f_4406}, {"f_6148:eval_2escm",(void*)f_6148}, {"f_11303:eval_2escm",(void*)f_11303}, {"f_6657:eval_2escm",(void*)f_6657}, {"f_4122:eval_2escm",(void*)f_4122}, {"f_6143:eval_2escm",(void*)f_6143}, {"f_6624:eval_2escm",(void*)f_6624}, {"f_4430:eval_2escm",(void*)f_4430}, {"f_8423:eval_2escm",(void*)f_8423}, {"f_6620:eval_2escm",(void*)f_6620}, {"f_11313:eval_2escm",(void*)f_11313}, {"f_8427:eval_2escm",(void*)f_8427}, {"f_4437:eval_2escm",(void*)f_4437}, {"f_6627:eval_2escm",(void*)f_6627}, {"f_11307:eval_2escm",(void*)f_11307}, {"f_11309:eval_2escm",(void*)f_11309}, {"f_4116:eval_2escm",(void*)f_4116}, {"f_6154:eval_2escm",(void*)f_6154}, {"f_4469:eval_2escm",(void*)f_4469}, {"f_6636:eval_2escm",(void*)f_6636}, {"f_6633:eval_2escm",(void*)f_6633}, {"f_4461:eval_2escm",(void*)f_4461}, {"f_6630:eval_2escm",(void*)f_6630}, {"f_11318:eval_2escm",(void*)f_11318}, {"f_8368:eval_2escm",(void*)f_8368}, {"f_8360:eval_2escm",(void*)f_8360}, {"f_6605:eval_2escm",(void*)f_6605}, {"f_8403:eval_2escm",(void*)f_8403}, {"f_8365:eval_2escm",(void*)f_8365}, {"f_6602:eval_2escm",(void*)f_6602}, {"f_8405:eval_2escm",(void*)f_8405}, {"f_6608:eval_2escm",(void*)f_6608}, {"f_8378:eval_2escm",(void*)f_8378}, {"f_6616:eval_2escm",(void*)f_6616}, {"f_8372:eval_2escm",(void*)f_8372}, {"f_8412:eval_2escm",(void*)f_8412}, {"f_11344:eval_2escm",(void*)f_11344}, {"f_8375:eval_2escm",(void*)f_8375}, {"f_6612:eval_2escm",(void*)f_6612}, {"f_8417:eval_2escm",(void*)f_8417}, {"f_11340:eval_2escm",(void*)f_11340}, {"f_4445:eval_2escm",(void*)f_4445}, {"f_3624:eval_2escm",(void*)f_3624}, {"f_3620:eval_2escm",(void*)f_3620}, {"f_4477:eval_2escm",(void*)f_4477}, {"f_8345:eval_2escm",(void*)f_8345}, {"f_11346:eval_2escm",(void*)f_11346}, {"f_8356:eval_2escm",(void*)f_8356}, {"f_8323:eval_2escm",(void*)f_8323}, {"f_8326:eval_2escm",(void*)f_8326}, {"f_8320:eval_2escm",(void*)f_8320}, {"f_7654:eval_2escm",(void*)f_7654}, {"f_3490:eval_2escm",(void*)f_3490}, {"f_8335:eval_2escm",(void*)f_8335}, {"f_8336:eval_2escm",(void*)f_8336}, {"f_7647:eval_2escm",(void*)f_7647}, {"f_8331:eval_2escm",(void*)f_8331}, {"f_7646:eval_2escm",(void*)f_7646}, {"f_3487:eval_2escm",(void*)f_3487}, {"f_11385:eval_2escm",(void*)f_11385}, {"f_10151:eval_2escm",(void*)f_10151}, {"f_7634:eval_2escm",(void*)f_7634}, {"f_11391:eval_2escm",(void*)f_11391}, {"f_11395:eval_2escm",(void*)f_11395}, {"f_10144:eval_2escm",(void*)f_10144}, {"f_10141:eval_2escm",(void*)f_10141}, {"f_8314:eval_2escm",(void*)f_8314}, {"f_11361:eval_2escm",(void*)f_11361}, {"f_11398:eval_2escm",(void*)f_11398}, {"f_7074:eval_2escm",(void*)f_7074}, {"f_10004:eval_2escm",(void*)f_10004}, {"f_11377:eval_2escm",(void*)f_11377}, {"f_11369:eval_2escm",(void*)f_11369}, {"f_7066:eval_2escm",(void*)f_7066}, {"f_6954:eval_2escm",(void*)f_6954}, {"f_6956:eval_2escm",(void*)f_6956}, {"f_9188:eval_2escm",(void*)f_9188}, {"f_9186:eval_2escm",(void*)f_9186}, {"f_11651:eval_2escm",(void*)f_11651}, {"f_11655:eval_2escm",(void*)f_11655}, {"f_7056:eval_2escm",(void*)f_7056}, {"f_11658:eval_2escm",(void*)f_11658}, {"f_6923:eval_2escm",(void*)f_6923}, {"f_6926:eval_2escm",(void*)f_6926}, {"f_6920:eval_2escm",(void*)f_6920}, {"f_11664:eval_2escm",(void*)f_11664}, {"f_7042:eval_2escm",(void*)f_7042}, {"f_7044:eval_2escm",(void*)f_7044}, {"f_8634:eval_2escm",(void*)f_8634}, {"f_11069:eval_2escm",(void*)f_11069}, {"f_7038:eval_2escm",(void*)f_7038}, {"f_11074:eval_2escm",(void*)f_11074}, {"f_3696:eval_2escm",(void*)f_3696}, {"f_3693:eval_2escm",(void*)f_3693}, {"f_11079:eval_2escm",(void*)f_11079}, {"f_11602:eval_2escm",(void*)f_11602}, {"f_11085:eval_2escm",(void*)f_11085}, {"f_7015:eval_2escm",(void*)f_7015}, {"f_11091:eval_2escm",(void*)f_11091}, {"f_11095:eval_2escm",(void*)f_11095}, {"f_11098:eval_2escm",(void*)f_11098}, {"f_11021:eval_2escm",(void*)f_11021}, {"f_3689:eval_2escm",(void*)f_3689}, {"f_5182:eval_2escm",(void*)f_5182}, {"f_5187:eval_2escm",(void*)f_5187}, {"f_3681:eval_2escm",(void*)f_3681}, {"f_11639:eval_2escm",(void*)f_11639}, {"f_9896:eval_2escm",(void*)f_9896}, {"f_11039:eval_2escm",(void*)f_11039}, {"f_11647:eval_2escm",(void*)f_11647}, {"f_11322:eval_2escm",(void*)f_11322}, {"f_11674:eval_2escm",(void*)f_11674}, {"f_11356:eval_2escm",(void*)f_11356}, {"f_11678:eval_2escm",(void*)f_11678}, {"f_11331:eval_2escm",(void*)f_11331}, {"f_11681:eval_2escm",(void*)f_11681}, {"f_11329:eval_2escm",(void*)f_11329}, {"f_11688:eval_2escm",(void*)f_11688}, {"f_11615:eval_2escm",(void*)f_11615}, {"f_11335:eval_2escm",(void*)f_11335}, {"f_11620:eval_2escm",(void*)f_11620}, {"f_11627:eval_2escm",(void*)f_11627}, {"f_5103:eval_2escm",(void*)f_5103}, {"f_5111:eval_2escm",(void*)f_5111}, {"f_9805:eval_2escm",(void*)f_9805}, {"f_5119:eval_2escm",(void*)f_5119}, {"f_9803:eval_2escm",(void*)f_9803}, {"f_8557:eval_2escm",(void*)f_8557}, {"f_5127:eval_2escm",(void*)f_5127}, {"f_8553:eval_2escm",(void*)f_8553}, {"f_4676:eval_2escm",(void*)f_4676}, {"f_4679:eval_2escm",(void*)f_4679}, {"f_4673:eval_2escm",(void*)f_4673}, {"f_8565:eval_2escm",(void*)f_8565}, {"f_8561:eval_2escm",(void*)f_8561}, {"f_11116:eval_2escm",(void*)f_11116}, {"f_8537:eval_2escm",(void*)f_8537}, {"f_4659:eval_2escm",(void*)f_4659}, {"f_11110:eval_2escm",(void*)f_11110}, {"f_4651:eval_2escm",(void*)f_4651}, {"f_4654:eval_2escm",(void*)f_4654}, {"f_4655:eval_2escm",(void*)f_4655}, {"f_11128:eval_2escm",(void*)f_11128}, {"f_11122:eval_2escm",(void*)f_11122}, {"f_5271:eval_2escm",(void*)f_5271}, {"f_9873:eval_2escm",(void*)f_9873}, {"f_4993:eval_2escm",(void*)f_4993}, {"f_4992:eval_2escm",(void*)f_4992}, {"f_9590:eval_2escm",(void*)f_9590}, {"f_9866:eval_2escm",(void*)f_9866}, {"f_11104:eval_2escm",(void*)f_11104}, {"f_11102:eval_2escm",(void*)f_11102}, {"f_11169:eval_2escm",(void*)f_11169}, {"f_11163:eval_2escm",(void*)f_11163}, {"f_11165:eval_2escm",(void*)f_11165}, {"f_5237:eval_2escm",(void*)f_5237}, {"f_5688:eval_2escm",(void*)f_5688}, {"f_5231:eval_2escm",(void*)f_5231}, {"f_9550:eval_2escm",(void*)f_9550}, {"f_6281:eval_2escm",(void*)f_6281}, {"f_6285:eval_2escm",(void*)f_6285}, {"f_9583:eval_2escm",(void*)f_9583}, {"f_11191:eval_2escm",(void*)f_11191}, {"f_8865:eval_2escm",(void*)f_8865}, {"f_8869:eval_2escm",(void*)f_8869}, {"f_9573:eval_2escm",(void*)f_9573}, {"f_11178:eval_2escm",(void*)f_11178}, {"f_8875:eval_2escm",(void*)f_8875}, {"f_7093:eval_2escm",(void*)f_7093}, {"f_11174:eval_2escm",(void*)f_11174}, {"f_11189:eval_2escm",(void*)f_11189}, {"f_8840:eval_2escm",(void*)f_8840}, {"f_8847:eval_2escm",(void*)f_8847}, {"f_9511:eval_2escm",(void*)f_9511}, {"f_9517:eval_2escm",(void*)f_9517}, {"f_11185:eval_2escm",(void*)f_11185}, {"f_8851:eval_2escm",(void*)f_8851}, {"f_6248:eval_2escm",(void*)f_6248}, {"f_11409:eval_2escm",(void*)f_11409}, {"f_8827:eval_2escm",(void*)f_8827}, {"f_11418:eval_2escm",(void*)f_11418}, {"f_8834:eval_2escm",(void*)f_8834}, {"f_8837:eval_2escm",(void*)f_8837}, {"f_6277:eval_2escm",(void*)f_6277}, {"f_6202:eval_2escm",(void*)f_6202}, {"f_6206:eval_2escm",(void*)f_6206}, {"f_5212:eval_2escm",(void*)f_5212}, {"f_5145:eval_2escm",(void*)f_5145}, {"f_5148:eval_2escm",(void*)f_5148}, {"f_5141:eval_2escm",(void*)f_5141}, {"f_9505:eval_2escm",(void*)f_9505}, {"f_5140:eval_2escm",(void*)f_5140}, {"f_8081:eval_2escm",(void*)f_8081}, {"f_5157:eval_2escm",(void*)f_5157}, {"f_11460:eval_2escm",(void*)f_11460}, {"f_8091:eval_2escm",(void*)f_8091}, {"f_10609:eval_2escm",(void*)f_10609}, {"f_7790:eval_2escm",(void*)f_7790}, {"f_5763:eval_2escm",(void*)f_5763}, {"f_5774:eval_2escm",(void*)f_5774}, {"f_5779:eval_2escm",(void*)f_5779}, {"f_11725:eval_2escm",(void*)f_11725}, {"f_11155:eval_2escm",(void*)f_11155}, {"f_11485:eval_2escm",(void*)f_11485}, {"f_11721:eval_2escm",(void*)f_11721}, {"f_7778:eval_2escm",(void*)f_7778}, {"f_10662:eval_2escm",(void*)f_10662}, {"f_7771:eval_2escm",(void*)f_7771}, {"f_10664:eval_2escm",(void*)f_10664}, {"f_5789:eval_2escm",(void*)f_5789}, {"f_11499:eval_2escm",(void*)f_11499}, {"f_5798:eval_2escm",(void*)f_5798}, {"f_10651:eval_2escm",(void*)f_10651}, {"f_5792:eval_2escm",(void*)f_5792}, {"f_10657:eval_2escm",(void*)f_10657}, {"f_6223:eval_2escm",(void*)f_6223}, {"f_6221:eval_2escm",(void*)f_6221}, {"f_11137:eval_2escm",(void*)f_11137}, {"f_11132:eval_2escm",(void*)f_11132}, {"f_7757:eval_2escm",(void*)f_7757}, {"f_7754:eval_2escm",(void*)f_7754}, {"f_10642:eval_2escm",(void*)f_10642}, {"f_11149:eval_2escm",(void*)f_11149}, {"f_8882:eval_2escm",(void*)f_8882}, {"f_11147:eval_2escm",(void*)f_11147}, {"f_11143:eval_2escm",(void*)f_11143}, {"f_7782:eval_2escm",(void*)f_7782}, {"f_7786:eval_2escm",(void*)f_7786}, {"f_10631:eval_2escm",(void*)f_10631}, {"f_10634:eval_2escm",(void*)f_10634}, {"f_10636:eval_2escm",(void*)f_10636}, {"f_8892:eval_2escm",(void*)f_8892}, {"f_5262:eval_2escm",(void*)f_5262}, {"f_4096:eval_2escm",(void*)f_4096}, {"f_7716:eval_2escm",(void*)f_7716}, {"f_7717:eval_2escm",(void*)f_7717}, {"f_10689:eval_2escm",(void*)f_10689}, {"f_10686:eval_2escm",(void*)f_10686}, {"f_8788:eval_2escm",(void*)f_8788}, {"f_10683:eval_2escm",(void*)f_10683}, {"f_7710:eval_2escm",(void*)f_7710}, {"f_8785:eval_2escm",(void*)f_8785}, {"f_8782:eval_2escm",(void*)f_8782}, {"f_7713:eval_2escm",(void*)f_7713}, {"f_4074:eval_2escm",(void*)f_4074}, {"f_10676:eval_2escm",(void*)f_10676}, {"f_10671:eval_2escm",(void*)f_10671}, {"f_8793:eval_2escm",(void*)f_8793}, {"f_8769:eval_2escm",(void*)f_8769}, {"f_8767:eval_2escm",(void*)f_8767}, {"f_6893:eval_2escm",(void*)f_6893}, {"f_8760:eval_2escm",(void*)f_8760}, {"f_9532:eval_2escm",(void*)f_9532}, {"f_7724:eval_2escm",(void*)f_7724}, {"f_8773:eval_2escm",(void*)f_8773}, {"f_5713:eval_2escm",(void*)f_5713}, {"f_9568:eval_2escm",(void*)f_9568}, {"f_9564:eval_2escm",(void*)f_9564}, {"f_9352:eval_2escm",(void*)f_9352}, {"f_5722:eval_2escm",(void*)f_5722}, {"f_5898:eval_2escm",(void*)f_5898}, {"f_8720:eval_2escm",(void*)f_8720}, {"f_8724:eval_2escm",(void*)f_8724}, {"f_8727:eval_2escm",(void*)f_8727}, {"f_9377:eval_2escm",(void*)f_9377}, {"f_4014:eval_2escm",(void*)f_4014}, {"f_9363:eval_2escm",(void*)f_9363}, {"f_6556:eval_2escm",(void*)f_6556}, {"f_9366:eval_2escm",(void*)f_9366}, {"f_7497:eval_2escm",(void*)f_7497}, {"f_8700:eval_2escm",(void*)f_8700}, {"f_9310:eval_2escm",(void*)f_9310}, {"f_9319:eval_2escm",(void*)f_9319}, {"f_6481:eval_2escm",(void*)f_6481}, {"f_6531:eval_2escm",(void*)f_6531}, {"f_9338:eval_2escm",(void*)f_9338}, {"f_5833:eval_2escm",(void*)f_5833}, {"f_6503:eval_2escm",(void*)f_6503}, {"f_6517:eval_2escm",(void*)f_6517}, {"f_11424:eval_2escm",(void*)f_11424}, {"f_9328:eval_2escm",(void*)f_9328}, {"f_6515:eval_2escm",(void*)f_6515}, {"f_11434:eval_2escm",(void*)f_11434}, {"f_5814:eval_2escm",(void*)f_5814}, {"f_11438:eval_2escm",(void*)f_11438}, {"f_8251:eval_2escm",(void*)f_8251}, {"f_8253:eval_2escm",(void*)f_8253}, {"f_7739:eval_2escm",(void*)f_7739}, {"f_7735:eval_2escm",(void*)f_7735}, {"f_7731:eval_2escm",(void*)f_7731}, {"f_11452:eval_2escm",(void*)f_11452}, {"f_11454:eval_2escm",(void*)f_11454}, {"f_10761:eval_2escm",(void*)f_10761}, {"f_5870:eval_2escm",(void*)f_5870}, {"f_5876:eval_2escm",(void*)f_5876}, {"f_10768:eval_2escm",(void*)f_10768}, {"f_10696:eval_2escm",(void*)f_10696}, {"f_7764:eval_2escm",(void*)f_7764}, {"f_10693:eval_2escm",(void*)f_10693}, {"f_7763:eval_2escm",(void*)f_7763}, {"f_7760:eval_2escm",(void*)f_7760}, {"f_5851:eval_2escm",(void*)f_5851}, {"f_5857:eval_2escm",(void*)f_5857}, {"f_6865:eval_2escm",(void*)f_6865}, {"f_10730:eval_2escm",(void*)f_10730}, {"f_10736:eval_2escm",(void*)f_10736}, {"f_4752:eval_2escm",(void*)f_4752}, {"f_4759:eval_2escm",(void*)f_4759}, {"f_8263:eval_2escm",(void*)f_8263}, {"f_10720:eval_2escm",(void*)f_10720}, {"f_10727:eval_2escm",(void*)f_10727}, {"f_8907:eval_2escm",(void*)f_8907}, {"f_7166:eval_2escm",(void*)f_7166}, {"f_8903:eval_2escm",(void*)f_8903}, {"f_6840:eval_2escm",(void*)f_6840}, {"f_10750:eval_2escm",(void*)f_10750}, {"f_10755:eval_2escm",(void*)f_10755}, {"f_4772:eval_2escm",(void*)f_4772}, {"f_7156:eval_2escm",(void*)f_7156}, {"f_8915:eval_2escm",(void*)f_8915}, {"f_10843:eval_2escm",(void*)f_10843}, {"f_10840:eval_2escm",(void*)f_10840}, {"f_10846:eval_2escm",(void*)f_10846}, {"f_8910:eval_2escm",(void*)f_8910}, {"f_4764:eval_2escm",(void*)f_4764}, {"f_10835:eval_2escm",(void*)f_10835}, {"f_7141:eval_2escm",(void*)f_7141}, {"f_6796:eval_2escm",(void*)f_6796}, {"f_5827:eval_2escm",(void*)f_5827}, {"f_7134:eval_2escm",(void*)f_7134}, {"f_4279:eval_2escm",(void*)f_4279}, {"f_10823:eval_2escm",(void*)f_10823}, {"f_11553:eval_2escm",(void*)f_11553}, {"f_11557:eval_2escm",(void*)f_11557}, {"f_4787:eval_2escm",(void*)f_4787}, {"f_10819:eval_2escm",(void*)f_10819}, {"f_11560:eval_2escm",(void*)f_11560}, {"f_5808:eval_2escm",(void*)f_5808}, {"f_4736:eval_2escm",(void*)f_4736}, {"f_4730:eval_2escm",(void*)f_4730}, {"f_11533:eval_2escm",(void*)f_11533}, {"f_11537:eval_2escm",(void*)f_11537}, {"f_8164:eval_2escm",(void*)f_8164}, {"f_8162:eval_2escm",(void*)f_8162}, {"f_11541:eval_2escm",(void*)f_11541}, {"f_11547:eval_2escm",(void*)f_11547}, {"f_8177:eval_2escm",(void*)f_8177}, {"f_10868:eval_2escm",(void*)f_10868}, {"f_8170:eval_2escm",(void*)f_8170}, {"f_4891:eval_2escm",(void*)f_4891}, {"f_9991:eval_2escm",(void*)f_9991}, {"f_9998:eval_2escm",(void*)f_9998}, {"f_4740:eval_2escm",(void*)f_4740}, {"f_10853:eval_2escm",(void*)f_10853}, {"f_10856:eval_2escm",(void*)f_10856}, {"f_4749:eval_2escm",(void*)f_4749}, {"f_9986:eval_2escm",(void*)f_9986}, {"f_11572:eval_2escm",(void*)f_11572}, {"f_11574:eval_2escm",(void*)f_11574}, {"f_11589:eval_2escm",(void*)f_11589}, {"f_11585:eval_2escm",(void*)f_11585}, {"f_9931:eval_2escm",(void*)f_9931}, {"f_8124:eval_2escm",(void*)f_8124}, {"f_4204:eval_2escm",(void*)f_4204}, {"f_3935:eval_2escm",(void*)f_3935}, {"f_11580:eval_2escm",(void*)f_11580}, {"f_10777:eval_2escm",(void*)f_10777}, {"f_10771:eval_2escm",(void*)f_10771}, {"f_9920:eval_2escm",(void*)f_9920}, {"f_9925:eval_2escm",(void*)f_9925}, {"f_3948:eval_2escm",(void*)f_3948}, {"f_8105:eval_2escm",(void*)f_8105}, {"f_3997:eval_2escm",(void*)f_3997}, {"f_10795:eval_2escm",(void*)f_10795}, {"f_6807:eval_2escm",(void*)f_6807}, {"f_9943:eval_2escm",(void*)f_9943}, {"f_10801:eval_2escm",(void*)f_10801}, {"f_9945:eval_2escm",(void*)f_9945}, {"f_10808:eval_2escm",(void*)f_10808}, {"f_10805:eval_2escm",(void*)f_10805}, {"f_10786:eval_2escm",(void*)f_10786}, {"f_3974:eval_2escm",(void*)f_3974}, {"f_9387:eval_2escm",(void*)f_9387}, {"f_10789:eval_2escm",(void*)f_10789}, {"f_3970:eval_2escm",(void*)f_3970}, {"f_3985:eval_2escm",(void*)f_3985}, {"f_3989:eval_2escm",(void*)f_3989}, {"f_11529:eval_2escm",(void*)f_11529}, {"f_3980:eval_2escm",(void*)f_3980}, {"f_8466:eval_2escm",(void*)f_8466}, {"f_9916:eval_2escm",(void*)f_9916}, {"f_4934:eval_2escm",(void*)f_4934}, {"f_4937:eval_2escm",(void*)f_4937}, {"f_4938:eval_2escm",(void*)f_4938}, {"f_4222:eval_2escm",(void*)f_4222}, {"f_10903:eval_2escm",(void*)f_10903}, {"f_4962:eval_2escm",(void*)f_4962}, {"f_8448:eval_2escm",(void*)f_8448}, {"f_4954:eval_2escm",(void*)f_4954}, {"f_4958:eval_2escm",(void*)f_4958}, {"f_8456:eval_2escm",(void*)f_8456}, {"f_4983:eval_2escm",(void*)f_4983}, {"f_4986:eval_2escm",(void*)f_4986}, {"f_10950:eval_2escm",(void*)f_10950}, {"f_4970:eval_2escm",(void*)f_4970}, {"f_3914:eval_2escm",(void*)f_3914}, {"f_10942:eval_2escm",(void*)f_10942}, {"f_10944:eval_2escm",(void*)f_10944}, {"f_10883:eval_2escm",(void*)f_10883}, {"f_4142:eval_2escm",(void*)f_4142}, {"f_10970:eval_2escm",(void*)f_10970}, {"f_9243:eval_2escm",(void*)f_9243}, {"f_9970:eval_2escm",(void*)f_9970}, {"f_9240:eval_2escm",(void*)f_9240}, {"f_10873:eval_2escm",(void*)f_10873}, {"f_4135:eval_2escm",(void*)f_4135}, {"f_4132:eval_2escm",(void*)f_4132}, {"f_10961:eval_2escm",(void*)f_10961}, {"f_10965:eval_2escm",(void*)f_10965}, {"f_9273:eval_2escm",(void*)f_9273}, {"f_9279:eval_2escm",(void*)f_9279}, {"f_4162:eval_2escm",(void*)f_4162}, {"f_11592:eval_2escm",(void*)f_11592}, {"f_10994:eval_2escm",(void*)f_10994}, {"f_3904:eval_2escm",(void*)f_3904}, {"f_3909:eval_2escm",(void*)f_3909}, {"f_3901:eval_2escm",(void*)f_3901}, {"f_9261:eval_2escm",(void*)f_9261}, {"f_4158:eval_2escm",(void*)f_4158}, {"f_4152:eval_2escm",(void*)f_4152}, {"f_4153:eval_2escm",(void*)f_4153}, {"f_10983:eval_2escm",(void*)f_10983}, {"f_10985:eval_2escm",(void*)f_10985}, {"f_5344:eval_2escm",(void*)f_5344}, {"f_5348:eval_2escm",(void*)f_5348}, {"f_9201:eval_2escm",(void*)f_9201}, {"f_4485:eval_2escm",(void*)f_4485}, {"f_4487:eval_2escm",(void*)f_4487}, {"f_9233:eval_2escm",(void*)f_9233}, {"f_4901:eval_2escm",(void*)f_4901}, {"f_4900:eval_2escm",(void*)f_4900}, {"f_5368:eval_2escm",(void*)f_5368}, {"f_6177:eval_2escm",(void*)f_6177}, {"f_6170:eval_2escm",(void*)f_6170}, {"f_4921:eval_2escm",(void*)f_4921}, {"f_4917:eval_2escm",(void*)f_4917}, {"f_6133:eval_2escm",(void*)f_6133}, {"f_6186:eval_2escm",(void*)f_6186}, {"f_6198:eval_2escm",(void*)f_6198}, {"f_4334:eval_2escm",(void*)f_4334}, {"f_7874:eval_2escm",(void*)f_7874}, {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| foldr 1 S| for-each 8 S| ##sys#map 4 S| map 18 S| ##sys#for-each 1 o|eliminated procedure checks: 416 o|specializations: o| 1 (caar (pair pair *)) o| 1 (string-append string string) o| 1 (string-ref string fixnum) o| 1 (char=? char char) o| 1 (cadr (pair * pair)) o| 1 (caddr (pair * (pair * pair))) o| 1 (length list) o| 2 (cddr (pair * pair)) o| 9 (car pair) o| 12 (##sys#check-list (or pair list) *) o| 12 (eqv? (not float) *) o| 81 (eqv? * (not float)) o| 12 (cdr pair) o| 2 (cdar (pair pair *)) o| 4 (memq * list) (o e)|safe calls: 921 (o e)|dropped branches: 1 (o e)|assignments to immediate values: 4 o|safe globals: (##sys#explicit-library-modules ##sys#core-syntax-modules ##sys#core-library-modules) o|Removed `not' forms: 27 o|inlining procedure: k3521 o|inlining procedure: k3521 o|inlining procedure: k3542 o|inlining procedure: k3542 o|inlining procedure: k3551 o|inlining procedure: k3551 o|contracted procedure: k3579 o|inlining procedure: k3576 o|inlining procedure: k3576 o|inlining procedure: k3634 o|inlining procedure: k3634 o|inlining procedure: k3694 o|inlining procedure: k3694 o|inlining procedure: k3709 o|inlining procedure: k3709 o|inlining procedure: k3747 o|inlining procedure: k3747 o|inlining procedure: k3785 o|inlining procedure: k3785 o|inlining procedure: k3841 o|inlining procedure: k3841 o|contracted procedure: k3878 o|inlining procedure: k3875 o|inlining procedure: k3875 o|inlining procedure: k3937 o|inlining procedure: k3937 o|inlining procedure: k3975 o|inlining procedure: k3975 o|inlining procedure: k3999 o|inlining procedure: k3999 o|contracted procedure: "(eval.scm:219) posq321" o|inlining procedure: k4046 o|inlining procedure: k4046 o|inlining procedure: k4076 o|inlining procedure: k4076 o|inlining procedure: k4086 o|inlining procedure: k4086 o|inlining procedure: k4098 o|inlining procedure: k4098 o|contracted procedure: k4127 o|inlining procedure: k4124 o|inlining procedure: k4231 o|inlining procedure: k4231 o|inlining procedure: k4273 o|inlining procedure: k4273 o|substituted constant variable: a4307 o|substituted constant variable: a4309 o|substituted constant variable: a4311 o|substituted constant variable: a4313 o|inlining procedure: k4124 o|contracted procedure: k4139 o|inlining procedure: k4147 o|inlining procedure: k4147 o|inlining procedure: k4174 o|inlining procedure: k4174 o|contracted procedure: k4184 o|contracted procedure: k4190 o|inlining procedure: k4187 o|inlining procedure: k4187 o|contracted procedure: k4196 o|inlining procedure: k4314 o|inlining procedure: k4328 o|inlining procedure: k4328 o|inlining procedure: k4344 o|inlining procedure: k4344 o|substituted constant variable: a4355 o|substituted constant variable: a4357 o|substituted constant variable: a4359 o|substituted constant variable: a4361 o|inlining procedure: k4314 o|inlining procedure: k4368 o|inlining procedure: k4368 o|inlining procedure: k4375 o|inlining procedure: k4375 o|contracted procedure: k4389 o|inlining procedure: k4395 o|contracted procedure: k4413 o|inlining procedure: k4422 o|inlining procedure: k4439 o|inlining procedure: k4439 o|inlining procedure: k4455 o|inlining procedure: k4455 o|inlining procedure: k4471 o|inlining procedure: k4471 o|substituted constant variable: a4490 o|substituted constant variable: a4492 o|substituted constant variable: a4494 o|substituted constant variable: a4496 o|substituted constant variable: a4498 o|substituted constant variable: a4500 o|substituted constant variable: a4502 o|inlining procedure: k4422 o|inlining procedure: k4518 o|inlining procedure: k4518 o|inlining procedure: k4544 o|inlining procedure: k4544 o|inlining procedure: k4569 o|inlining procedure: k4569 o|inlining procedure: k4606 o|inlining procedure: k4630 o|inlining procedure: k4630 o|substituted constant variable: a4712 o|substituted constant variable: a4714 o|substituted constant variable: a4716 o|inlining procedure: k4606 o|contracted procedure: k4744 o|inlining procedure: k4741 o|inlining procedure: k4741 o|contracted procedure: k4756 o|contracted procedure: k4773 o|inlining procedure: k4788 o|inlining procedure: k4788 o|contracted procedure: k4779 o|inlining procedure: k4776 o|inlining procedure: k4776 o|inlining procedure: k4798 o|inlining procedure: k4798 o|inlining procedure: k4851 o|inlining procedure: k4926 o|inlining procedure: k4926 o|inlining procedure: k5042 o|inlining procedure: k5042 o|inlining procedure: k5159 o|inlining procedure: k5159 o|inlining procedure: k5189 o|inlining procedure: k5189 o|substituted constant variable: a5221 o|substituted constant variable: a5223 o|substituted constant variable: a5225 o|substituted constant variable: a5227 o|inlining procedure: k5239 o|inlining procedure: k5239 o|inlining procedure: k5273 o|contracted procedure: "(eval.scm:394) g552561" o|inlining procedure: k5273 o|inlining procedure: k4851 o|inlining procedure: k5384 o|contracted procedure: "(eval.scm:448) g700709" o|inlining procedure: k5384 o|inlining procedure: k5418 o|contracted procedure: "(eval.scm:445) g673682" o|inlining procedure: k5418 o|inlining procedure: k5449 o|inlining procedure: k5560 o|contracted procedure: "(eval.scm:465) g849859" o|inlining procedure: k5560 o|inlining procedure: k5608 o|contracted procedure: "(eval.scm:464) g816826" o|inlining procedure: k5608 o|inlining procedure: k5656 o|contracted procedure: "(eval.scm:461) g789798" o|inlining procedure: k5656 o|inlining procedure: k5690 o|inlining procedure: k5690 o|inlining procedure: k5724 o|inlining procedure: k5724 o|inlining procedure: k5449 o|inlining procedure: k5799 o|inlining procedure: "(eval.scm:494) decorate324" o|inlining procedure: "(eval.scm:499) decorate324" o|inlining procedure: k5799 o|inlining procedure: k5848 o|inlining procedure: "(eval.scm:504) decorate324" o|inlining procedure: k5848 o|inlining procedure: "(eval.scm:509) decorate324" o|inlining procedure: k5889 o|inlining procedure: "(eval.scm:515) decorate324" o|inlining procedure: "(eval.scm:520) decorate324" o|inlining procedure: k5889 o|inlining procedure: k5942 o|inlining procedure: "(eval.scm:526) decorate324" o|inlining procedure: k5942 o|inlining procedure: "(eval.scm:531) decorate324" o|inlining procedure: k5983 o|inlining procedure: "(eval.scm:537) decorate324" o|inlining procedure: "(eval.scm:542) decorate324" o|inlining procedure: k5983 o|contracted procedure: "(eval.scm:553) fudge-argument-list326" o|inlining procedure: k7513 o|inlining procedure: k7513 o|inlining procedure: k7528 o|inlining procedure: k7528 o|inlining procedure: k7553 o|inlining procedure: k7553 o|inlining procedure: "(eval.scm:549) decorate324" o|contracted procedure: k6068 o|inlining procedure: k6065 o|inlining procedure: k6065 o|inlining procedure: "(eval.scm:556) decorate324" o|substituted constant variable: a6090 o|substituted constant variable: a6092 o|substituted constant variable: a6094 o|substituted constant variable: a6096 o|substituted constant variable: a6098 o|inlining procedure: k6104 o|inlining procedure: k6104 o|inlining procedure: k6110 o|inlining procedure: k6110 o|inlining procedure: k6159 o|inlining procedure: k6159 o|inlining procedure: k6162 o|inlining procedure: k6225 o|inlining procedure: k6225 o|inlining procedure: k6162 o|inlining procedure: k6333 o|inlining procedure: k6333 o|inlining procedure: k6356 o|contracted procedure: "(eval.scm:580) g10091018" o|inlining procedure: k6356 o|inlining procedure: k6387 o|inlining procedure: k6387 o|inlining procedure: k6448 o|inlining procedure: k6448 o|inlining procedure: k6486 o|inlining procedure: k6533 o|contracted procedure: "(eval.scm:628) g10661075" o|inlining procedure: k6533 o|inlining procedure: k6486 o|substituted constant variable: saved114711481166 o|inlining procedure: k6669 o|inlining procedure: k6689 o|inlining procedure: k6689 o|inlining procedure: k6669 o|inlining procedure: k6785 o|inlining procedure: k6785 o|inlining procedure: k6812 o|inlining procedure: k6812 o|inlining procedure: k6842 o|inlining procedure: k6842 o|inlining procedure: k6877 o|inlining procedure: k6877 o|inlining procedure: k6931 o|inlining procedure: k6931 o|inlining procedure: k6958 o|contracted procedure: "(eval.scm:697) g12611270" o|inlining procedure: k6958 o|inlining procedure: k6992 o|contracted procedure: "(eval.scm:690) g12301239" o|inlining procedure: k6992 o|inlining procedure: k7023 o|inlining procedure: k7046 o|inlining procedure: k7046 o|inlining procedure: k7023 o|inlining procedure: k7101 o|inlining procedure: k7101 o|inlining procedure: k7126 o|inlining procedure: k7158 o|inlining procedure: k7158 o|inlining procedure: k7126 o|inlining procedure: k7205 o|inlining procedure: k7205 o|inlining procedure: k7230 o|inlining procedure: k7230 o|inlining procedure: k7252 o|inlining procedure: k7252 o|substituted constant variable: a7301 o|substituted constant variable: a7303 o|substituted constant variable: a7305 o|inlining procedure: k7309 o|inlining procedure: k7309 o|inlining procedure: k7321 o|inlining procedure: k7321 o|inlining procedure: k7333 o|inlining procedure: k7333 o|inlining procedure: k7345 o|inlining procedure: k7345 o|inlining procedure: k7357 o|inlining procedure: k7357 o|substituted constant variable: a7364 o|substituted constant variable: a7366 o|substituted constant variable: a7368 o|substituted constant variable: a7370 o|substituted constant variable: a7372 o|substituted constant variable: a7374 o|substituted constant variable: a7376 o|substituted constant variable: a7378 o|substituted constant variable: a7380 o|substituted constant variable: a7382 o|substituted constant variable: a7384 o|substituted constant variable: a7389 o|substituted constant variable: a7391 o|substituted constant variable: a7393 o|substituted constant variable: a7398 o|substituted constant variable: a7400 o|substituted constant variable: a7402 o|substituted constant variable: a7407 o|substituted constant variable: a7409 o|substituted constant variable: a7411 o|substituted constant variable: a7413 o|substituted constant variable: a7415 o|substituted constant variable: a7417 o|substituted constant variable: a7419 o|substituted constant variable: a7421 o|substituted constant variable: a7423 o|substituted constant variable: a7425 o|substituted constant variable: a7427 o|substituted constant variable: a7429 o|substituted constant variable: a7431 o|substituted constant variable: a7433 o|substituted constant variable: a7435 o|substituted constant variable: a7437 o|substituted constant variable: a7439 o|substituted constant variable: a7441 o|substituted constant variable: a7446 o|substituted constant variable: a7448 o|substituted constant variable: a7450 o|substituted constant variable: a7452 o|substituted constant variable: a7454 o|substituted constant variable: a7456 o|substituted constant variable: a7458 o|substituted constant variable: a7460 o|inlining procedure: k4395 o|inlining procedure: k7486 o|inlining procedure: k7486 o|inlining procedure: k7498 o|inlining procedure: k7498 o|inlining procedure: k7612 o|inlining procedure: k7612 o|inlining procedure: k7638 o|inlining procedure: k7638 o|inlining procedure: k7702 o|inlining procedure: k7702 o|inlining procedure: k7842 o|inlining procedure: k7842 o|inlining procedure: k7876 o|inlining procedure: k7876 o|substituted constant variable: a7908 o|substituted constant variable: a7910 o|substituted constant variable: a7912 o|substituted constant variable: a7914 o|substituted constant variable: a7916 o|substituted constant variable: a7918 o|contracted procedure: "(eval.scm:790) checked-length327" o|inlining procedure: k7574 o|inlining procedure: k7574 o|inlining procedure: k8093 o|inlining procedure: k8093 o|contracted procedure: k8109 o|inlining procedure: k8115 o|inlining procedure: k8115 o|contracted procedure: k8132 o|inlining procedure: k8184 o|inlining procedure: k8207 o|inlining procedure: k8207 o|inlining procedure: k8221 o|inlining procedure: k8221 o|substituted constant variable: a8236 o|substituted constant variable: a8238 o|substituted constant variable: a8240 o|substituted constant variable: a8242 o|inlining procedure: k8184 o|contracted procedure: k8268 o|inlining procedure: k8265 o|inlining procedure: k8265 o|substituted constant variable: a8275 o|inlining procedure: k8324 o|inlining procedure: k8324 o|inlining procedure: k8385 o|inlining procedure: k8385 o|inlining procedure: k8407 o|inlining procedure: k8407 o|inlining procedure: k8441 o|inlining procedure: k8458 o|inlining procedure: k8458 o|inlining procedure: k8441 o|inlining procedure: k8495 o|inlining procedure: k8495 o|folded constant expression: (integer->char (quote 127)) o|inlining procedure: k8525 o|inlining procedure: k8525 o|inlining procedure: k8538 o|inlining procedure: k8538 o|contracted procedure: k8544 o|inlining procedure: k8572 o|inlining procedure: k8572 o|contracted procedure: k8605 o|inlining procedure: k8602 o|inlining procedure: k8620 o|inlining procedure: k8620 o|contracted procedure: k8635 o|propagated global variable: r8636 ##sys#dload-disabled o|inlining procedure: k8638 o|inlining procedure: k8638 o|inlining procedure: k8602 o|contracted procedure: "(eval.scm:971) badfile1653" o|inlining procedure: k8682 o|inlining procedure: k8682 o|inlining procedure: k8702 o|inlining procedure: k8702 o|substituted constant variable: a8715 o|propagated global variable: g18391840 ##sys#string-append o|inlining procedure: k8777 o|inlining procedure: k8777 o|inlining procedure: k8795 o|inlining procedure: k8795 o|inlining procedure: k8807 o|inlining procedure: k8807 o|inlining procedure: k8883 o|inlining procedure: k8883 o|inlining procedure: k8894 o|inlining procedure: k8894 o|inlining procedure: k8938 o|inlining procedure: k8938 o|inlining procedure: k8984 o|inlining procedure: k8984 o|substituted constant variable: a8987 o|inlining procedure: k9001 o|inlining procedure: k9001 o|inlining procedure: k9023 o|inlining procedure: k9023 o|inlining procedure: k9053 o|inlining procedure: k9053 o|inlining procedure: k9074 o|inlining procedure: k9074 o|inlining procedure: k9115 o|inlining procedure: k9115 o|inlining procedure: k9145 o|inlining procedure: k9145 o|contracted procedure: k9164 o|propagated global variable: r9165 ##sys#dload-disabled o|inlining procedure: k9161 o|inlining procedure: k9161 o|inlining procedure: k9190 o|inlining procedure: k9190 o|inlining procedure: k9225 o|inlining procedure: k9225 o|inlining procedure: k9247 o|inlining procedure: k9247 o|inlining procedure: k9262 o|inlining procedure: k9262 o|inlining procedure: k9274 o|inlining procedure: k9274 o|inlining procedure: k9330 o|contracted procedure: "(eval.scm:1226) g20382045" o|inlining procedure: k9330 o|inlining procedure: k9354 o|inlining procedure: k9354 o|inlining procedure: k9379 o|contracted procedure: "(eval.scm:1243) g20652072" o|propagated global variable: g20802081 ##sys#load-extension o|inlining procedure: k9379 o|inlining procedure: k9406 o|substituted constant variable: constant132 o|substituted constant variable: constant132 o|inlining procedure: k9406 o|inlining procedure: k9450 o|inlining procedure: k9450 o|inlining procedure: k9478 o|inlining procedure: k9478 o|inlining procedure: k9494 o|propagated global variable: g21482149 lset-adjoin o|inlining procedure: k9494 o|inlining procedure: k9527 o|inlining procedure: k9527 o|inlining procedure: k9543 o|inlining procedure: k9543 o|inlining procedure: k9552 o|inlining procedure: k9552 o|inlining procedure: k9575 o|inlining procedure: k9575 o|inlining procedure: k9605 o|inlining procedure: k9605 o|inlining procedure: k9622 o|inlining procedure: k9636 o|inlining procedure: k9636 o|inlining procedure: k9622 o|contracted procedure: k9695 o|inlining procedure: k9692 o|inlining procedure: k9692 o|inlining procedure: k9735 o|inlining procedure: k9770 o|inlining procedure: k9770 o|inlining procedure: k9807 o|contracted procedure: "(eval.scm:1353) g22302239" o|inlining procedure: k9807 o|contracted procedure: k9847 o|inlining procedure: k9844 o|inlining procedure: k9844 o|inlining procedure: k9735 o|inlining procedure: k9882 o|substituted constant variable: constant178 o|inlining procedure: k9882 o|substituted constant variable: constant165 o|inlining procedure: k9891 o|inlining procedure: k9934 o|inlining procedure: k9934 o|inlining procedure: k9947 o|inlining procedure: k9947 o|inlining procedure: k9978 o|inlining procedure: k9993 o|inlining procedure: k9993 o|inlining procedure: k9978 o|inlining procedure: k10054 o|inlining procedure: k10054 o|substituted constant variable: a10067 o|substituted constant variable: a10069 o|substituted constant variable: a10071 o|substituted constant variable: a10073 o|substituted constant variable: a10075 o|inlining procedure: k9891 o|inlining procedure: k10111 o|inlining procedure: k10111 o|contracted procedure: k10161 o|inlining procedure: k10167 o|inlining procedure: k10167 o|inlining procedure: k10216 o|contracted procedure: "(eval.scm:1422) g23752376" o|substituted constant variable: a10231 o|inlining procedure: k10224 o|inlining procedure: k10224 o|inlining procedure: k10216 o|inlining procedure: k10268 o|inlining procedure: k10268 o|substituted constant variable: a10284 o|substituted constant variable: a10286 o|inlining procedure: k10293 o|inlining procedure: k10293 o|substituted constant variable: a10309 o|substituted constant variable: a10311 o|inlining procedure: k10334 o|inlining procedure: "(eval.scm:1485) exists?2407" o|inlining procedure: k10334 o|inlining procedure: "(eval.scm:1487) exists?2407" o|contracted procedure: k10374 o|inlining procedure: k10371 o|inlining procedure: k10371 o|inlining procedure: k10396 o|inlining procedure: k10396 o|inlining procedure: k10409 o|inlining procedure: k10409 o|inlining procedure: k10443 o|inlining procedure: k10443 o|propagated global variable: g24582459 ##sys#print o|inlining procedure: k10529 o|contracted procedure: "(eval.scm:1536) g24942501" o|inlining procedure: k10529 o|inlining procedure: k10552 o|inlining procedure: k10552 o|contracted procedure: k10564 o|inlining procedure: k10575 o|inlining procedure: k10575 o|inlining procedure: k10601 o|contracted procedure: "(eval.scm:1549) g25242531" o|inlining procedure: k10601 o|propagated global variable: lexn2572 ##sys#last-exception o|inlining procedure: k10703 o|inlining procedure: k10703 o|propagated global variable: lexn2572 ##sys#last-exception o|inlining procedure: k10778 o|inlining procedure: k10778 o|inlining procedure: k10821 o|inlining procedure: k10875 o|contracted procedure: "(eval.scm:1631) g26072614" o|inlining procedure: k10844 o|inlining procedure: k10844 o|inlining procedure: k10875 o|inlining procedure: k10821 o|inlining procedure: k10996 o|contracted procedure: k11031 o|inlining procedure: k11028 o|inlining procedure: k11028 o|inlining procedure: k10996 o|inlining procedure: k11133 o|inlining procedure: k11133 o|inlining procedure: k11196 o|inlining procedure: k11196 o|propagated global variable: tmp27882790 last-error o|inlining procedure: k11352 o|propagated global variable: tmp27882790 last-error o|inlining procedure: k11352 o|inlining procedure: k11407 o|inlining procedure: k11407 o|inlining procedure: k11425 o|inlining procedure: k11425 o|substituted constant variable: constant142 o|inlining procedure: k11462 o|inlining procedure: k11462 o|propagated global variable: g18551859 ##sys#default-dynamic-load-libraries o|substituted constant variable: constant97 o|substituted constant variable: a11504 o|substituted constant variable: constant104 o|inlining procedure: k11508 o|substituted constant variable: constant100 o|propagated global variable: r1150912295 constant100 o|inlining procedure: k11508 o|substituted constant variable: constant109 o|inlining procedure: k11517 o|substituted constant variable: constant109 o|inlining procedure: k11517 o|substituted constant variable: constant109 o|inlining procedure: k11594 o|inlining procedure: k11594 o|inlining procedure: k11628 o|substituted constant variable: saved156315641568 o|inlining procedure: k11628 o|substituted constant variable: a11709 o|inlining procedure: k11702 o|inlining procedure: k11702 o|substituted constant variable: constant153 o|simplifications: ((if . 4)) o|replaced variables: 1560 o|removed binding forms: 549 o|removed side-effect free assignment to unused variable: constant97 o|removed side-effect free assignment to unused variable: constant104 o|removed side-effect free assignment to unused variable: constant109 o|removed side-effect free assignment to unused variable: constant132 o|removed side-effect free assignment to unused variable: constant142 o|removed side-effect free assignment to unused variable: constant153 o|removed side-effect free assignment to unused variable: constant165 o|removed side-effect free assignment to unused variable: constant178 o|substituted constant variable: r352211727 o|substituted constant variable: r357711732 o|substituted constant variable: r387611748 o|substituted constant variable: r393811750 o|substituted constant variable: r404711756 o|removed call to pure procedure with unused result: "(eval.scm:197) void" o|removed side-effect free assignment to unused variable: decorate324 o|substituted constant variable: r477711809 o|substituted constant variable: r479911812 o|substituted constant variable: r616011967 o|substituted constant variable: r616011967 o|substituted constant variable: r693211997 o|substituted constant variable: r693211997 o|substituted constant variable: r704712006 o|removed call to pure procedure with unused result: "(eval.scm:310) void" o|converted assignments to bindings: (err1610) o|substituted constant variable: r826612058 o|contracted procedure: "(eval.scm:1031) g17601767" o|substituted constant variable: r849612075 o|substituted constant variable: r849612075 o|contracted procedure: k8499 o|substituted constant variable: r852612078 o|substituted constant variable: r863912087 o|substituted constant variable: r868312089 o|substituted constant variable: r868312089 o|substituted constant variable: r870312093 o|substituted constant variable: r870312093 o|substituted constant variable: r879612100 o|substituted constant variable: r889512110 o|substituted constant variable: r889512110 o|substituted constant variable: r907512122 o|substituted constant variable: r916212128 o|substituted constant variable: r919112131 o|substituted constant variable: r922612132 o|substituted constant variable: r922612132 o|substituted constant variable: r922612134 o|substituted constant variable: r922612134 o|converted assignments to bindings: (check1971) o|substituted constant variable: r927512140 o|substituted constant variable: r935512144 o|substituted constant variable: r935512145 o|substituted constant variable: r940712149 o|substituted constant variable: r945112150 o|substituted constant variable: r947912153 o|substituted constant variable: r952812158 o|substituted constant variable: r952812158 o|substituted constant variable: r969312176 o|substituted constant variable: r969312176 o|substituted constant variable: r977112181 o|substituted constant variable: r977112181 o|substituted constant variable: r984512187 o|substituted constant variable: r1021712216 o|removed side-effect free assignment to unused variable: exists?2407 o|substituted constant variable: r1044412243 o|substituted constant variable: r1044412243 o|substituted constant variable: r1070412254 o|contracted procedure: "(eval.scm:1646) write-results2489" o|inlining procedure: k10821 o|converted assignments to bindings: (write-err2488) o|substituted constant variable: r1119712281 o|propagated global variable: r1135312283 last-error o|substituted constant variable: r1135312285 o|substituted constant variable: r1135312285 o|converted assignments to bindings: (strip2364) o|inlining procedure: k11407 o|inlining procedure: k11407 o|converted assignments to bindings: (complete1832) o|substituted constant variable: constant100 o|substituted constant variable: r1151812298 o|converted assignments to bindings: (has-sep?1652) o|removed call to pure procedure with unused result: "(eval.scm:200) slot" o|substituted constant variable: r1170312303 o|substituted constant variable: r1170312303 o|substituted constant variable: r1170312305 o|substituted constant variable: r1170312305 o|simplifications: ((let . 6)) o|replaced variables: 74 o|removed binding forms: 1578 o|removed conditional forms: 1 o|removed side-effect free assignment to unused variable: constant100 o|contracted procedure: k3911 o|contracted procedure: k3990 o|contracted procedure: k4407 o|inlining procedure: k6426 o|inlining procedure: "(eval.scm:309) emit-syntax-trace-info323" o|inlining procedure: "(eval.scm:761) emit-syntax-trace-info323" o|inlining procedure: k8193 o|inlining procedure: k8193 o|inlining procedure: k8193 o|inlining procedure: k8193 o|substituted constant variable: r8500 o|inlining procedure: k10694 o|propagated global variable: r1135312283 last-error o|replaced variables: 69 o|removed binding forms: 152 o|Removed `not' forms: 1 o|removed side-effect free assignment to unused variable: emit-syntax-trace-info323 o|substituted constant variable: r642712571 o|simplifications: ((let . 2)) o|replaced variables: 19 o|removed binding forms: 61 o|removed conditional forms: 1 o|inlining procedure: k7469 o|inlining procedure: k7469 o|removed binding forms: 20 o|removed binding forms: 3 o|removed binding forms: 1 o|simplifications: ((if . 60) (##core#call . 881)) o| call simplifications: o| ##sys#check-structure o| read-char o| ##sys#structure? o| ##sys#check-exact 3 o| string-length o| char-alphabetic? o| char-numeric? o| char->integer o| fx< o| write-char 3 o| fixnum? o| ##sys#intern-symbol o| member 3 o| list? 2 o| char=? 2 o| ##sys#check-symbol 4 o| string-ref 4 o| ##sys#fudge 6 o| ##sys#apply 2 o| fx> o| procedure? o| boolean? o| char? o| eof-object? 4 o| string? 6 o| vector? o| memq 11 o| ##sys#void o| set-car! o| fx- 6 o| apply 9 o| list 17 o| ##sys#list 34 o| cddr 9 o| cdr 18 o| zero? 2 o| length 3 o| ##sys#cons 24 o| caddr 7 o| cdddr 3 o| cadddr 3 o| cadr 32 o| ##sys#call-with-values 10 o| assq 11 o| not 6 o| ##sys#make-structure 2 o| values 10 o| caar 2 o| symbol? 12 o| ##sys#immediate? o| fx= 5 o| ##sys#size 6 o| vector 13 o| fx>= 4 o| ##sys#check-list 23 o| pair? 50 o| fx+ 11 o| cons 79 o| ##sys#setslot 35 o| eq? 115 o| ##sys#slot 181 o| null? 38 o| car 33 o|contracted procedure: k3495 o|contracted procedure: k3530 o|contracted procedure: k3518 o|contracted procedure: k3554 o|contracted procedure: k3560 o|contracted procedure: k3570 o|contracted procedure: k3611 o|contracted procedure: k3607 o|contracted procedure: k3603 o|contracted procedure: k3585 o|contracted procedure: k3592 o|contracted procedure: k3599 o|contracted procedure: k3625 o|contracted procedure: k3637 o|contracted procedure: k3648 o|contracted procedure: k3644 o|contracted procedure: k3676 o|contracted procedure: k3672 o|contracted procedure: k3654 o|contracted procedure: k3661 o|contracted procedure: k3668 o|contracted procedure: k3712 o|contracted procedure: k3721 o|contracted procedure: k3725 o|contracted procedure: k3728 o|contracted procedure: k3731 o|contracted procedure: k3741 o|contracted procedure: k3750 o|contracted procedure: k3760 o|contracted procedure: k3764 o|contracted procedure: k3768 o|contracted procedure: k3776 o|contracted procedure: k3788 o|contracted procedure: k3794 o|contracted procedure: k3801 o|contracted procedure: k3797 o|contracted procedure: k3804 o|contracted procedure: k3821 o|contracted procedure: k3810 o|contracted procedure: k3817 o|contracted procedure: k3825 o|contracted procedure: k3835 o|contracted procedure: k3844 o|contracted procedure: k3851 o|contracted procedure: k3855 o|contracted procedure: k3863 o|contracted procedure: k3882 o|contracted procedure: k3888 o|contracted procedure: k7972 o|contracted procedure: k3916 o|contracted procedure: k7966 o|contracted procedure: k3919 o|contracted procedure: k7960 o|contracted procedure: k3922 o|contracted procedure: k7954 o|contracted procedure: k3925 o|contracted procedure: k7948 o|contracted procedure: k3928 o|contracted procedure: k7942 o|contracted procedure: k3931 o|contracted procedure: k3940 o|contracted procedure: k3966 o|contracted procedure: k3956 o|contracted procedure: k4002 o|contracted procedure: k4026 o|contracted procedure: k4030 o|contracted procedure: k4034 o|contracted procedure: k4049 o|contracted procedure: k4070 o|contracted procedure: k4055 o|contracted procedure: k4062 o|contracted procedure: k4066 o|contracted procedure: k4080 o|contracted procedure: k4109 o|contracted procedure: k4219 o|contracted procedure: k4228 o|contracted procedure: k4234 o|contracted procedure: k4247 o|contracted procedure: k4243 o|contracted procedure: k4253 o|contracted procedure: k4270 o|contracted procedure: k4266 o|contracted procedure: k4262 o|contracted procedure: k4276 o|contracted procedure: k4297 o|contracted procedure: k4293 o|contracted procedure: k4289 o|contracted procedure: k4285 o|contracted procedure: k4168 o|contracted procedure: k4164 o|contracted procedure: k4171 o|contracted procedure: k4213 o|contracted procedure: k4209 o|contracted procedure: k4323 o|contracted procedure: k4331 o|contracted procedure: k4339 o|contracted procedure: k4347 o|contracted procedure: k4365 o|contracted procedure: k4378 o|contracted procedure: k7480 o|contracted procedure: k7476 o|contracted procedure: k4398 o|contracted procedure: k7466 o|contracted procedure: k4425 o|contracted procedure: k4434 o|contracted procedure: k4442 o|contracted procedure: k4450 o|contracted procedure: k4458 o|contracted procedure: k4466 o|contracted procedure: k4474 o|contracted procedure: k4482 o|contracted procedure: k4504 o|contracted procedure: k4510 o|contracted procedure: k4513 o|contracted procedure: k4521 o|contracted procedure: k4528 o|contracted procedure: k4534 o|contracted procedure: k4541 o|contracted procedure: k4547 o|contracted procedure: k4555 o|contracted procedure: k4595 o|contracted procedure: k4581 o|contracted procedure: k4588 o|contracted procedure: k4599 o|contracted procedure: k4603 o|contracted procedure: k4609 o|contracted procedure: k4612 o|contracted procedure: k4615 o|contracted procedure: k4618 o|contracted procedure: k4624 o|contracted procedure: k4633 o|contracted procedure: k4640 o|contracted procedure: k4646 o|contracted procedure: k4664 o|contracted procedure: k4668 o|contracted procedure: k4700 o|contracted procedure: k4696 o|contracted procedure: k4692 o|contracted procedure: k4704 o|contracted procedure: k4708 o|contracted procedure: k4720 o|contracted procedure: k4723 o|contracted procedure: k4821 o|contracted procedure: k4830 o|contracted procedure: k4792 o|contracted procedure: k4795 o|contracted procedure: k4811 o|contracted procedure: k4804 o|contracted procedure: k4848 o|contracted procedure: k4854 o|contracted procedure: k4857 o|contracted procedure: k4860 o|contracted procedure: k4863 o|contracted procedure: k4874 o|contracted procedure: k4877 o|contracted procedure: k4883 o|contracted procedure: k4895 o|contracted procedure: k4911 o|contracted procedure: k4907 o|contracted procedure: k4923 o|contracted procedure: k4929 o|contracted procedure: k4948 o|contracted procedure: k4944 o|contracted procedure: k4964 o|contracted procedure: k4972 o|contracted procedure: k4978 o|contracted procedure: k4987 o|contracted procedure: k5003 o|contracted procedure: k4999 o|contracted procedure: k5023 o|contracted procedure: k5031 o|contracted procedure: k5039 o|contracted procedure: k5045 o|contracted procedure: k5054 o|contracted procedure: k5073 o|contracted procedure: k5069 o|contracted procedure: k5097 o|contracted procedure: k5105 o|contracted procedure: k5113 o|contracted procedure: k5121 o|contracted procedure: k5124 o|contracted procedure: k5133 o|contracted procedure: k5153 o|contracted procedure: k5162 o|contracted procedure: k5165 o|contracted procedure: k5172 o|contracted procedure: k5176 o|contracted procedure: k5183 o|contracted procedure: k5192 o|contracted procedure: k5195 o|contracted procedure: k5198 o|contracted procedure: k5206 o|contracted procedure: k5214 o|contracted procedure: k5233 o|contracted procedure: k5242 o|contracted procedure: k5245 o|contracted procedure: k5248 o|contracted procedure: k5256 o|contracted procedure: k5264 o|contracted procedure: k5276 o|contracted procedure: k5298 o|contracted procedure: k5294 o|contracted procedure: k5279 o|contracted procedure: k5282 o|contracted procedure: k5290 o|contracted procedure: k5307 o|contracted procedure: k5310 o|contracted procedure: k5327 o|contracted procedure: k5339 o|contracted procedure: k5323 o|contracted procedure: k5319 o|contracted procedure: k5350 o|contracted procedure: k5378 o|contracted procedure: k5374 o|contracted procedure: k5370 o|contracted procedure: k5387 o|contracted procedure: k5390 o|contracted procedure: k5393 o|contracted procedure: k5401 o|contracted procedure: k5409 o|contracted procedure: k5359 o|contracted procedure: k5363 o|contracted procedure: k5421 o|contracted procedure: k5424 o|contracted procedure: k5427 o|contracted procedure: k5435 o|contracted procedure: k5443 o|contracted procedure: k5336 o|contracted procedure: k5452 o|contracted procedure: k5455 o|contracted procedure: k5458 o|contracted procedure: k5461 o|contracted procedure: k5467 o|contracted procedure: k5470 o|contracted procedure: k5476 o|contracted procedure: k5487 o|contracted procedure: k5511 o|contracted procedure: k5523 o|contracted procedure: k5507 o|contracted procedure: k5503 o|contracted procedure: k5483 o|contracted procedure: k5534 o|contracted procedure: k5554 o|contracted procedure: k5550 o|contracted procedure: k5546 o|contracted procedure: k5599 o|contracted procedure: k5563 o|contracted procedure: k5589 o|contracted procedure: k5593 o|contracted procedure: k5585 o|contracted procedure: k5566 o|contracted procedure: k5569 o|contracted procedure: k5577 o|contracted procedure: k5581 o|contracted procedure: k5647 o|contracted procedure: k5611 o|contracted procedure: k5614 o|contracted procedure: k5617 o|contracted procedure: k5625 o|contracted procedure: k5629 o|contracted procedure: k5637 o|contracted procedure: k5641 o|contracted procedure: k5520 o|contracted procedure: k5659 o|contracted procedure: k5662 o|contracted procedure: k5665 o|contracted procedure: k5673 o|contracted procedure: k5681 o|contracted procedure: k5496 o|contracted procedure: k5693 o|contracted procedure: k5696 o|contracted procedure: k5699 o|contracted procedure: k5707 o|contracted procedure: k5715 o|contracted procedure: k5727 o|contracted procedure: k5749 o|contracted procedure: k5745 o|contracted procedure: k5730 o|contracted procedure: k5733 o|contracted procedure: k5741 o|contracted procedure: k5758 o|contracted procedure: k5764 o|contracted procedure: k5769 o|contracted procedure: k5781 o|contracted procedure: k5784 o|contracted procedure: k5793 o|contracted procedure: k5802 o|contracted procedure: k5824 o|contracted procedure: k5820 o|contracted procedure: k5839 o|contracted procedure: k5845 o|contracted procedure: k5867 o|contracted procedure: k5863 o|contracted procedure: k5886 o|contracted procedure: k5882 o|contracted procedure: k5892 o|contracted procedure: k5914 o|contracted procedure: k5910 o|contracted procedure: k5933 o|contracted procedure: k5929 o|contracted procedure: k5939 o|contracted procedure: k5961 o|contracted procedure: k5957 o|contracted procedure: k5980 o|contracted procedure: k5976 o|contracted procedure: k5986 o|contracted procedure: k6008 o|contracted procedure: k6004 o|contracted procedure: k6023 o|contracted procedure: k6045 o|contracted procedure: k7516 o|contracted procedure: k7531 o|contracted procedure: k7538 o|contracted procedure: k7534 o|contracted procedure: k7545 o|contracted procedure: k7549 o|contracted procedure: k7556 o|inlining procedure: k7553 o|contracted procedure: k6086 o|contracted procedure: k6078 o|contracted procedure: k6113 o|contracted procedure: k6116 o|contracted procedure: k6119 o|contracted procedure: k6127 o|contracted procedure: k6135 o|contracted procedure: k6165 o|contracted procedure: k6179 o|contracted procedure: k6183 o|contracted procedure: k6192 o|contracted procedure: k6210 o|contracted procedure: k6213 o|contracted procedure: k6216 o|contracted procedure: k6228 o|contracted procedure: k6231 o|contracted procedure: k6234 o|contracted procedure: k6242 o|contracted procedure: k6250 o|contracted procedure: k6259 o|contracted procedure: k6262 o|contracted procedure: k6292 o|contracted procedure: k6295 o|contracted procedure: k6310 o|contracted procedure: k6313 o|contracted procedure: k6327 o|contracted procedure: k6336 o|contracted procedure: k6346 o|contracted procedure: k6350 o|contracted procedure: k6359 o|contracted procedure: k6362 o|contracted procedure: k6365 o|contracted procedure: k6373 o|contracted procedure: k6381 o|contracted procedure: k6271 o|contracted procedure: k6289 o|contracted procedure: k6390 o|contracted procedure: k6393 o|contracted procedure: k6396 o|contracted procedure: k6426 o|contracted procedure: k6442 o|contracted procedure: k6451 o|contracted procedure: k6462 o|contracted procedure: k6468 o|contracted procedure: k6475 o|contracted procedure: k6483 o|contracted procedure: k6489 o|contracted procedure: k6496 o|contracted procedure: k6507 o|contracted procedure: k6510 o|contracted procedure: k6527 o|contracted procedure: k6523 o|contracted procedure: k6536 o|contracted procedure: k6539 o|contracted procedure: k6542 o|contracted procedure: k6550 o|contracted procedure: k6558 o|contracted procedure: k6567 o|contracted procedure: k6573 o|contracted procedure: k6874 o|contracted procedure: k6576 o|contracted procedure: k6663 o|contracted procedure: k6672 o|contracted procedure: k6692 o|contracted procedure: k6698 o|contracted procedure: k6704 o|contracted procedure: k6726 o|contracted procedure: k6730 o|contracted procedure: k6780 o|contracted procedure: k6788 o|contracted procedure: k6800 o|contracted procedure: k6809 o|contracted procedure: k6827 o|contracted procedure: k6818 o|contracted procedure: k6833 o|contracted procedure: k6845 o|contracted procedure: k6848 o|contracted procedure: k6851 o|contracted procedure: k6859 o|contracted procedure: k6867 o|contracted procedure: k6880 o|contracted procedure: k6895 o|contracted procedure: k6887 o|contracted procedure: k6901 o|contracted procedure: k6904 o|contracted procedure: k6912 o|contracted procedure: k6915 o|contracted procedure: k6934 o|contracted procedure: k6941 o|contracted procedure: k6949 o|contracted procedure: k6931 o|contracted procedure: k6961 o|contracted procedure: k6983 o|contracted procedure: k6979 o|contracted procedure: k6964 o|contracted procedure: k6967 o|contracted procedure: k6975 o|contracted procedure: k6995 o|contracted procedure: k6998 o|contracted procedure: k7001 o|contracted procedure: k7009 o|contracted procedure: k7017 o|contracted procedure: k7026 o|contracted procedure: k7029 o|contracted procedure: k7049 o|contracted procedure: k7062 o|contracted procedure: k7076 o|contracted procedure: k7085 o|contracted procedure: k7088 o|contracted procedure: k7098 o|contracted procedure: k7104 o|contracted procedure: k7111 o|contracted procedure: k7117 o|contracted procedure: k7120 o|contracted procedure: k7129 o|contracted procedure: k7138 o|contracted procedure: k7146 o|contracted procedure: k7149 o|contracted procedure: k7161 o|contracted procedure: k7171 o|contracted procedure: k7175 o|contracted procedure: k7184 o|contracted procedure: k7187 o|contracted procedure: k7202 o|contracted procedure: k7194 o|contracted procedure: k7208 o|contracted procedure: k7220 o|contracted procedure: k7227 o|contracted procedure: k7233 o|contracted procedure: k7240 o|contracted procedure: k7246 o|contracted procedure: k7249 o|contracted procedure: k7261 o|contracted procedure: k7275 o|contracted procedure: k7278 o|contracted procedure: k7306 o|contracted procedure: k7312 o|contracted procedure: k7318 o|contracted procedure: k7324 o|contracted procedure: k7330 o|contracted procedure: k7336 o|contracted procedure: k7342 o|contracted procedure: k7348 o|contracted procedure: k7354 o|contracted procedure: k7462 o|contracted procedure: k7483 o|contracted procedure: k7489 o|contracted procedure: k7501 o|contracted procedure: k7600 o|contracted procedure: k7606 o|contracted procedure: k7615 o|contracted procedure: k7624 o|contracted procedure: k7641 o|contracted procedure: k7663 o|contracted procedure: k7669 o|contracted procedure: k7699 o|contracted procedure: k7705 o|contracted procedure: k7743 o|contracted procedure: k7749 o|contracted procedure: k7795 o|contracted procedure: k7798 o|contracted procedure: k7806 o|contracted procedure: k7825 o|contracted procedure: k7833 o|contracted procedure: k7845 o|contracted procedure: k7848 o|contracted procedure: k7851 o|contracted procedure: k7859 o|contracted procedure: k7867 o|contracted procedure: k7879 o|contracted procedure: k7882 o|contracted procedure: k7885 o|contracted procedure: k7893 o|contracted procedure: k7901 o|contracted procedure: k7577 o|contracted procedure: k7583 o|contracted procedure: k7590 o|contracted procedure: k7594 o|contracted procedure: k7919 o|contracted procedure: k7928 o|contracted procedure: k7935 o|contracted procedure: k8096 o|contracted procedure: k8126 o|contracted procedure: k8142 o|contracted procedure: k8154 o|contracted procedure: k8146 o|contracted procedure: k8150 o|contracted procedure: k8243 o|contracted procedure: k8172 o|contracted procedure: k8187 o|contracted procedure: k8190 o|contracted procedure: k8200 o|contracted procedure: k8203 o|contracted procedure: k820012615 o|contracted procedure: k8210 o|contracted procedure: k820012619 o|contracted procedure: k8217 o|contracted procedure: k820012623 o|contracted procedure: k8224 o|contracted procedure: k820012627 o|contracted procedure: k8232 o|contracted procedure: k8288 o|contracted procedure: k8259 o|contracted procedure: k8284 o|contracted procedure: k8280 o|contracted procedure: k8669 o|contracted procedure: k8300 o|contracted procedure: k8663 o|contracted procedure: k8303 o|contracted procedure: k8657 o|contracted procedure: k8306 o|contracted procedure: k8651 o|contracted procedure: k8309 o|contracted procedure: k8315 o|contracted procedure: k8388 o|contracted procedure: k8461 o|contracted procedure: k8471 o|contracted procedure: k8475 o|contracted procedure: k8481 o|contracted procedure: k8532 o|contracted procedure: k8593 o|contracted procedure: k8566 o|contracted procedure: k8575 o|contracted procedure: k8648 o|contracted procedure: k8641 o|contracted procedure: k8685 o|contracted procedure: k8682 o|contracted procedure: k8705 o|contracted procedure: k8702 o|contracted procedure: k8712 o|contracted procedure: k11500 o|contracted procedure: k8752 o|contracted procedure: k8774 o|contracted procedure: k8798 o|contracted procedure: k8810 o|contracted procedure: k8814 o|contracted procedure: k8821 o|contracted procedure: k8829 o|contracted procedure: k8853 o|contracted procedure: k8871 o|contracted procedure: k8877 o|contracted procedure: k8897 o|contracted procedure: k8941 o|contracted procedure: k8955 o|contracted procedure: k8981 o|contracted procedure: k8998 o|contracted procedure: k9004 o|contracted procedure: k9037 o|contracted procedure: k9043 o|contracted procedure: k9047 o|contracted procedure: k9050 o|contracted procedure: k9056 o|contracted procedure: k9065 o|contracted procedure: k9077 o|contracted procedure: k9084 o|contracted procedure: k9106 o|contracted procedure: k9102 o|contracted procedure: k9091 o|contracted procedure: k9099 o|contracted procedure: k9109 o|contracted procedure: k9118 o|contracted procedure: k9170 o|contracted procedure: k9193 o|contracted procedure: k9196 o|contracted procedure: k9209 o|contracted procedure: k9213 o|contracted procedure: k9217 o|contracted procedure: k9221 o|contracted procedure: k9303 o|contracted procedure: k9235 o|contracted procedure: k9244 o|contracted procedure: k9253 o|contracted procedure: k9256 o|contracted procedure: k9281 o|contracted procedure: k9293 o|contracted procedure: k9333 o|contracted procedure: k9343 o|contracted procedure: k9347 o|contracted procedure: k9314 o|contracted procedure: k9321 o|contracted procedure: k9357 o|contracted procedure: k9382 o|contracted procedure: k9392 o|contracted procedure: k9396 o|contracted procedure: k9453 o|contracted procedure: k9466 o|contracted procedure: k9475 o|contracted procedure: k9485 o|contracted procedure: k9501 o|contracted procedure: k9537 o|contracted procedure: k9527 o|inlining procedure: k9523 o|inlining procedure: k9523 o|contracted procedure: k9540 o|contracted procedure: k9555 o|contracted procedure: k9578 o|contracted procedure: k9594 o|contracted procedure: k9612 o|inlining procedure: k9605 o|contracted procedure: k9619 o|inlining procedure: k9605 o|contracted procedure: k9625 o|contracted procedure: k9643 o|inlining procedure: k9636 o|contracted procedure: k9650 o|inlining procedure: k9636 o|contracted procedure: k9656 o|contracted procedure: k9662 o|contracted procedure: k9665 o|contracted procedure: k9672 o|contracted procedure: k9684 o|contracted procedure: k9705 o|inlining procedure: k9692 o|contracted procedure: k9712 o|inlining procedure: k9692 o|contracted procedure: k9723 o|contracted procedure: k9719 o|contracted procedure: k9738 o|contracted procedure: k9741 o|contracted procedure: k9744 o|contracted procedure: k9758 o|contracted procedure: k9773 o|contracted procedure: k9787 o|contracted procedure: k9795 o|contracted procedure: k9798 o|contracted procedure: k9783 o|contracted procedure: k9770 o|contracted procedure: k9810 o|contracted procedure: k9832 o|contracted procedure: k9828 o|contracted procedure: k9813 o|contracted procedure: k9816 o|contracted procedure: k9824 o|contracted procedure: k9858 o|contracted procedure: k9854 o|contracted procedure: k9879 o|contracted procedure: k9875 o|contracted procedure: k9897 o|contracted procedure: k9903 o|contracted procedure: k9913 o|contracted procedure: k9938 o|contracted procedure: k9906 o|contracted procedure: k9950 o|contracted procedure: k9953 o|contracted procedure: k9956 o|contracted procedure: k9964 o|contracted procedure: k9972 o|contracted procedure: k9981 o|contracted procedure: k10013 o|contracted procedure: k10020 o|contracted procedure: k10034 o|contracted procedure: k10023 o|contracted procedure: k10030 o|contracted procedure: k10040 o|contracted procedure: k10051 o|contracted procedure: k10057 o|contracted procedure: k10079 o|contracted procedure: k10088 o|contracted procedure: k10102 o|contracted procedure: k10114 o|contracted procedure: k10120 o|contracted procedure: k10130 o|contracted procedure: k10136 o|contracted procedure: k10152 o|contracted procedure: k10178 o|contracted procedure: k10174 o|contracted procedure: k10164 o|contracted procedure: k10182 o|contracted procedure: k10207 o|contracted procedure: k10219 o|contracted procedure: k10239 o|contracted procedure: k10228 o|contracted procedure: k10247 o|contracted procedure: k10250 o|contracted procedure: k10253 o|contracted procedure: k10256 o|contracted procedure: k10259 o|contracted procedure: k10265 o|contracted procedure: k10271 o|contracted procedure: k10277 o|contracted procedure: k10290 o|contracted procedure: k10296 o|contracted procedure: k10302 o|contracted procedure: k10316 o|contracted procedure: k10453 o|contracted procedure: k10328 o|contracted procedure: k10337 o|contracted procedure: k10361 o|contracted procedure: k10390 o|contracted procedure: k10371 o|contracted procedure: k10412 o|contracted procedure: k10425 o|contracted procedure: k10433 o|contracted procedure: k10443 o|contracted procedure: k10503 o|contracted procedure: k10974 o|contracted procedure: k10509 o|contracted procedure: k10520 o|contracted procedure: k10532 o|contracted procedure: k10542 o|contracted procedure: k10546 o|contracted procedure: k10706 o|contracted procedure: k10722 o|propagated global variable: lexn2572 ##sys#last-exception o|contracted procedure: k10709 o|contracted procedure: k10715 o|contracted procedure: k10740 o|contracted procedure: k10772 o|contracted procedure: k10781 o|contracted procedure: k10555 o|contracted procedure: k10626 o|contracted procedure: k10622 o|contracted procedure: k10578 o|contracted procedure: k10593 o|contracted procedure: k10604 o|contracted procedure: k10614 o|contracted procedure: k10618 o|contracted procedure: k10812 o|contracted procedure: k10824 o|contracted procedure: k10830 o|contracted procedure: k10878 o|contracted procedure: k10888 o|contracted procedure: k10892 o|contracted procedure: k10863 o|contracted procedure: k10927 o|contracted procedure: k10898 o|contracted procedure: k10915 o|contracted procedure: k10933 o|contracted procedure: k10987 o|contracted procedure: k10999 o|contracted procedure: k11016 o|contracted procedure: k11025 o|contracted procedure: k11054 o|contracted procedure: k11047 o|contracted procedure: k11061 o|contracted procedure: k11193 o|contracted procedure: k11199 o|contracted procedure: k11363 o|contracted procedure: k11371 o|contracted procedure: k11379 o|contracted procedure: k11387 o|contracted procedure: k11403 o|contracted procedure: k11410 o|contracted procedure: k11440 o|contracted procedure: k11444 o|contracted procedure: k11447 o|contracted procedure: k11456 o|contracted procedure: k11465 o|contracted procedure: k11468 o|contracted procedure: k11471 o|contracted procedure: k11479 o|contracted procedure: k11487 o|propagated global variable: g18551859 ##sys#default-dynamic-load-libraries o|contracted procedure: k11505 o|contracted procedure: k11511 o|contracted procedure: k11520 o|contracted procedure: k11517 o|contracted procedure: k11543 o|contracted procedure: k11566 o|contracted procedure: k11562 o|contracted procedure: k11597 o|contracted procedure: k11604 o|contracted procedure: k11611 o|contracted procedure: k11692 o|contracted procedure: k11622 o|contracted procedure: k11631 o|contracted procedure: k11634 o|contracted procedure: k11670 o|contracted procedure: k11715 o|contracted procedure: k11711 o|contracted procedure: k11706 o|simplifications: ((let . 129)) o|removed binding forms: 778 o|replaced variables: 222 o|removed binding forms: 4 o|inlining procedure: k6053 o|simplifications: ((if . 2)) o|removed binding forms: 124 o|contracted procedure: k5405 o|contracted procedure: k5439 o|contracted procedure: k5633 o|contracted procedure: k5677 o|removed binding forms: 4 o|direct leaf routine/allocation: loop209 0 o|direct leaf routine/allocation: loop369 0 o|direct leaf routine/allocation: emit-trace-info322 5 o|direct leaf routine/allocation: g10321039 0 o|direct leaf routine/allocation: loop1120 0 o|direct leaf routine/allocation: loop1398 0 o|direct leaf routine/allocation: loop1655 0 o|direct leaf routine/allocation: sep?1928 0 o|direct leaf routine/allocation: saveports2555 0 o|direct leaf routine/allocation: resetports2556 0 o|direct leaf routine/allocation: store-string 0 o|converted assignments to bindings: (loop209) o|contracted procedure: k4008 o|converted assignments to bindings: (loop369) o|contracted procedure: "(eval.scm:580) k6339" o|converted assignments to bindings: (loop1120) o|contracted procedure: k7609 o|contracted procedure: "(eval.scm:795) k7629" o|contracted procedure: "(eval.scm:799) k7649" o|contracted procedure: "(eval.scm:804) k7680" o|contracted procedure: "(eval.scm:810) k7719" o|contracted procedure: "(eval.scm:817) k7766" o|contracted procedure: "(eval.scm:821) k7814" o|converted assignments to bindings: (loop1398) o|converted assignments to bindings: (loop1655) o|contracted procedure: "(eval.scm:1160) k9013" o|contracted procedure: "(eval.scm:1162) k9026" o|contracted procedure: "(eval.scm:1583) k10678" o|contracted procedure: "(eval.scm:1608) k10763" o|contracted procedure: "(eval.scm:1615) k10954" o|simplifications: ((let . 5)) o|removed binding forms: 14 o|replaced variables: 4 o|removed binding forms: 1 o|direct leaf routine/allocation: for-each-loop10311042 0 o|contracted procedure: k6316 o|converted assignments to bindings: (for-each-loop10311042) o|simplifications: ((let . 1)) o|removed binding forms: 1 o|customizable procedures: (doloop15971598 k11555 k8744 map-loop18431860 strip2364 store-result run-safe k11019 err2666 loop2597 for-each-loop26062622 for-each-loop25232541 loop2584 k10725 write-err2488 k10691 for-each-loop24932511 test2424 loop2435 test22423 foldr23702373 k10133 doloop23392340 k9894 k9984 k9996 k10002 follow2326 g22812290 map-loop22752310 srfi-id2138 doit2139 k9766 add-req2136 map-loop22242248 k9680 impform2137 k9463 loop12119 g21032104 for-each-loop20642082 for-each-loop20372050 k9238 check1971 loop1983 loop1938 check1946 err1927 doloop19151916 k8780 loop1883 has-sep?1652 for-each-loop17591771 doloop17491750 loop1632 err1610 loop1612 g14621471 map-loop14561474 g14901499 map-loop14841502 k4401 k7211 g13711372 compile-call328 g13131320 for-each-loop13121323 loop1285 map-loop12241242 map-loop12551276 g11031112 map-loop10971127 k6794 loop1186 loop21191 map-loop10601079 map-loop10031021 g981990 map-loop975993 map-loop894911 doloop13891390 map-loop726743 map-loop753770 map-loop783801 map-loop810831 map-loop843867 map-loop667685 map-loop694715 map-loop546564 map-loop574591 g632641 map-loop626644 doloop653654 compile325 k4160 k4133 lookup320 rename319 loop353 g362363 k3946 find-id318 loop273 loop264 g240247 for-each-loop239250 doloop234235 loop219) o|calls to known targets: 372 o|identified direct recursive calls: f_3574 1 o|identified direct recursive calls: f_3632 1 o|identified direct recursive calls: f_3783 1 o|identified direct recursive calls: f_4044 1 o|identified direct recursive calls: f_3997 1 o|unused rest argument: v399 f_4104 o|unused rest argument: v424 f_4153 o|unused rest argument: v425 f_4158 o|unused rest argument: v444 f_4326 o|unused rest argument: v445 f_4334 o|unused rest argument: v446 f_4342 o|unused rest argument: v447 f_4350 o|unused rest argument: v448 f_4352 o|unused rest argument: v449 f_4371 o|unused rest argument: v450 f_4373 o|unused rest argument: v466 f_4384 o|unused rest argument: v483 f_4437 o|unused rest argument: v484 f_4445 o|unused rest argument: v485 f_4453 o|unused rest argument: v486 f_4461 o|unused rest argument: v487 f_4469 o|unused rest argument: v488 f_4477 o|unused rest argument: v489 f_4485 o|unused rest argument: v490 f_4487 o|unused rest argument: v492 f_4516 o|identified direct recursive calls: f_5271 1 o|identified direct recursive calls: f_5382 1 o|identified direct recursive calls: f_5416 1 o|identified direct recursive calls: f_5558 1 o|identified direct recursive calls: f_5606 1 o|identified direct recursive calls: f_5654 1 o|identified direct recursive calls: f_5722 1 o|identified direct recursive calls: f_7526 1 o|identified direct recursive calls: f_6331 1 o|identified direct recursive calls: f_6807 1 o|identified direct recursive calls: f_6956 1 o|identified direct recursive calls: f_7572 1 o|unused rest argument: _1413 f_7922 o|identified direct recursive calls: f_8091 1 o|identified direct recursive calls: f_8182 4 o|identified direct recursive calls: f_8263 1 o|identified direct recursive calls: f_9805 1 o|identified direct recursive calls: f_10214 1 o|fast box initializations: 72 o|fast global references: 31 o|fast global assignments: 19 o|dropping unused closure argument: f_10205 o|dropping unused closure argument: f_7572 o|dropping unused closure argument: f_10513 o|dropping unused closure argument: f_8979 o|dropping unused closure argument: f_11069 o|dropping unused closure argument: f_11128 o|dropping unused closure argument: f_9550 o|dropping unused closure argument: f_11191 o|dropping unused closure argument: f_4074 o|dropping unused closure argument: f_8253 o|dropping unused closure argument: f_6807 */ /* end of file */ chicken-4.12.0/batch-driver.scm0000644000175000017500000006053513052306173016077 0ustar sjamaansjamaan;;;; batch-driver.scm - Driver procedure for the compiler ; ; Copyright (c) 2008-2017, 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 driver)) (include "compiler-namespace") (include "tweaks") (define-constant funny-message-timeout 60000) (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)) ;;; Compile a complete source file: (define (compile-source-file filename . options) (define (option-arg p) (if (null? (cdr p)) (quit "missing argument to `-~A' option" (car p)) (let ([arg (cadr p)]) (if (symbol? arg) (quit "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)) (let ((initforms `((##core#declare ,@(append default-declarations (if emit-debug-info '((uses debugger-client)) '()) (if explicit-use-flag '() `((uses ,@units-used-by-default)) ) ) ) ) ) (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 (string-split (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 '(((##sys#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)) (uses-units '()) (uunit (memq 'unit options)) (a-only (memq 'analyze-only options)) (dynamic (memq 'dynamic options)) (do-scrutinize #t) (do-lfa2 (memq 'lfa2 options)) (dumpnodes #f) (start-time #f) (upap #f) (wrap-module (memq 'module options)) (ssize (or (memq 'nursery options) (memq 'stack-size options))) ) (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 "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 get db <> <>) (cut put! db <> <> <>) no contf) ) db) ) ) (when uunit (set! unit-name (string->c-identifier (stringify (option-arg uunit)))) ) (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)) (set! enable-module-registration (not (memq 'no-module-registration options))) (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 'emit-exports options) ; OBSOLETE (warning "obsolete compiler option: -emit-exports") ) (when (memq 'lambda-lift options) ; OBSOLETE (warning "obsolete compiler option: -lambda-lift") ) (when (memq 'unboxing options) ; OBSOLETE (warning "obsolete compiler option: -unboxing") ) (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 '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* ((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-type-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 "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 "invalid argument to `-keyword-style' option")] ) ) ) (when (memq 'no-parenthesis-synonyms options) (dribble "Disabled support for parenthesis synonyms") (parenthesis-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 "source- and output-filename are the same") ) (set! uses-units (append-map (lambda (u) (map string->symbol (string-split u ", "))) (collect-options 'uses))) (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 (f) (load (##sys#resolve-include-filename f #f #t))) extends) ) (set! ##sys#features (delete #:compiler-extension ##sys#features eq?)) (set! ##sys#features (cons '#:compiling ##sys#features)) (set! upap (user-post-analysis-pass)) ;; Insert postponed initforms: (set! initforms (append initforms postponed-initforms)) ;; Append required extensions to initforms: (set! initforms (append initforms (map (lambda (r) `(##core#require-extension (,(string->symbol r)) #t)) (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 "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) (set! source-filename 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) (unless (null? uses-units) (set! ##sys#explicit-library-modules (append ##sys#explicit-library-modules uses-units)) (set! forms (cons `(declare (uses ,@uses-units)) forms)) ) ;; Canonicalize s-expressions (let* ((exps0 (map canonicalize-expression (let ((forms (append initforms forms))) (if wrap-module `((##core#module main () (import scheme chicken) ,@forms)) forms)))) [pvec (gensym)] [plen (length profile-lambda-list)] [exps (append (map (lambda (ic) `(set! ,(cdr ic) ',(car ic))) immutable-constants) (map (lambda (n) `(##core#callunit ,n)) used-units) (if emit-profile `((set! ,profile-info-vector-name (##sys#register-profile-info ',plen ',(and (not unit-name) (or profile-name #t))))) '() ) (map (lambda (pl) `(##sys#set-profile-info-vector! ,profile-info-vector-name ',(car pl) ',(cdr pl) ) ) profile-lambda-list) exps0 (if (and (not unit-name) (not dynamic)) cleanup-forms '() ) '((##core#undefined))) ] ) (unless (null? import-libraries) (quit "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) ", "))) (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) ) (when (and unit-name dynamic) (##sys#notice (sprintf "library unit `~a' compiled in dynamic mode" unit-name) ) ) (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 (make-node 'lambda '(()) (list (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 (make-pathname #f (symbol->string id) "inline") #f #t)) ((file-exists? ifile))) (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") (quit "default type-database `types.db' not found"))) (for-each (lambda (fn) (or (load-type-database fn #f) (quit "type-database `~a' not found" fn))) (collect-options 'types)) (for-each (lambda (id) (load-type-database (make-pathname #f (symbol->string id) "types"))) 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) (end-time "scrutiny") (when enable-specialization (print-node "specialization" '|P| node0)) (set! first-analysis #t) ) ) (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-type-file type-output-file db))) (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)) (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") (perform-secondary-flow-analysis node2 db) (end-time "secondary flow analysis")) (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 f db) ) ) (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) ;; 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 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-4.12.0/compiler-syntax.c0000644000175000017500000066623313052306456016336 0ustar sjamaansjamaan/* Generated from compiler-syntax.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:18 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: compiler-syntax.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -no-lambda-info -extend private-namespace.scm -no-trace -output-file compiler-syntax.c unit: compiler_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[87]; static double C_possibly_force_alignment; C_noret_decl(f_1809) static void C_fcall f_1809(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1653) static void C_ccall f_1653(C_word c,C_word *av) C_noret; C_noret_decl(f_1260) static void C_ccall f_1260(C_word c,C_word *av) C_noret; C_noret_decl(f_1264) static void C_ccall f_1264(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_2363) static void C_ccall f_2363(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_2426) static void C_ccall f_2426(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_1619) static void C_ccall f_1619(C_word c,C_word *av) C_noret; C_noret_decl(f_1613) static void C_ccall f_1613(C_word c,C_word *av) C_noret; C_noret_decl(f_1538) static C_word C_fcall f_1538(C_word *a,C_word t0,C_word t1); C_noret_decl(f_1636) static void C_ccall f_1636(C_word c,C_word *av) 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_1942) static void C_ccall f_1942(C_word c,C_word *av) C_noret; C_noret_decl(f_1548) static void C_fcall f_1548(C_word t0,C_word t1,C_word t2) 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_1939) static void C_ccall f_1939(C_word c,C_word *av) C_noret; C_noret_decl(f_1352) static void C_ccall f_1352(C_word c,C_word *av) C_noret; C_noret_decl(f_1951) static void C_ccall f_1951(C_word c,C_word *av) 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_1954) static void C_ccall f_1954(C_word c,C_word *av) C_noret; C_noret_decl(f_2351) static void C_ccall f_2351(C_word c,C_word *av) C_noret; C_noret_decl(f_2571) static C_word C_fcall f_2571(C_word *a,C_word t0,C_word t1); C_noret_decl(f_1948) static void C_ccall f_1948(C_word c,C_word *av) C_noret; C_noret_decl(f_2329) static void C_ccall f_2329(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_1360) static void C_ccall f_1360(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_2320) static void C_ccall f_2320(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_2339) static void C_ccall f_2339(C_word c,C_word *av) C_noret; C_noret_decl(f_2308) static void C_ccall f_2308(C_word c,C_word *av) C_noret; C_noret_decl(f_2304) static void C_ccall f_2304(C_word c,C_word *av) C_noret; C_noret_decl(f_2300) static void C_ccall f_2300(C_word c,C_word *av) C_noret; C_noret_decl(f_2316) static void C_ccall f_2316(C_word c,C_word *av) C_noret; C_noret_decl(f_2312) static void C_ccall f_2312(C_word c,C_word *av) C_noret; C_noret_decl(f_2897) static void C_fcall f_2897(C_word t0,C_word t1,C_word t2,C_word t3) 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_1883) static void C_ccall f_1883(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_1894) static void C_ccall f_1894(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_1670) static void C_ccall f_1670(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_1561) static void C_ccall f_1561(C_word c,C_word *av) C_noret; C_noret_decl(f_1558) static void C_ccall f_1558(C_word c,C_word *av) C_noret; C_noret_decl(f_2484) static void C_ccall f_2484(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_2487) static void C_ccall f_2487(C_word c,C_word *av) C_noret; C_noret_decl(f_3260) static void C_fcall f_3260(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2496) static void C_ccall f_2496(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_2490) static void C_ccall f_2490(C_word c,C_word *av) C_noret; C_noret_decl(f_2499) static void C_ccall f_2499(C_word c,C_word *av) C_noret; C_noret_decl(f_1500) static void C_fcall f_1500(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2651) static void C_fcall f_2651(C_word t0,C_word t1,C_word t2) 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_1316) static void C_ccall f_1316(C_word c,C_word *av) C_noret; C_noret_decl(f_2477) static void C_ccall f_2477(C_word c,C_word *av) C_noret; C_noret_decl(f_1471) static C_word C_fcall f_1471(C_word t0); C_noret_decl(f_1324) static void C_ccall f_1324(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_1337) static void C_ccall f_1337(C_word c,C_word *av) C_noret; C_noret_decl(f_1481) static void C_fcall f_1481(C_word t0,C_word t1) C_noret; C_noret_decl(f_2166) static void C_ccall f_2166(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_2160) static void C_ccall f_2160(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_1349) static void C_ccall f_1349(C_word c,C_word *av) C_noret; C_noret_decl(f_1346) static void C_ccall f_1346(C_word c,C_word *av) C_noret; C_noret_decl(f_3251) static C_word C_fcall f_3251(C_word *a,C_word t0,C_word t1); C_noret_decl(f_2990) static void C_ccall f_2990(C_word c,C_word *av) C_noret; C_noret_decl(f_1340) static void C_ccall f_1340(C_word c,C_word *av) C_noret; C_noret_decl(f_1343) static void C_ccall f_1343(C_word c,C_word *av) C_noret; C_noret_decl(f_2965) static void C_fcall f_2965(C_word t0,C_word t1,C_word t2) 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_3294) static void C_fcall f_3294(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2235) static void C_ccall f_2235(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_2543) static void C_ccall f_2543(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_2245) static void C_ccall f_2245(C_word c,C_word *av) 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_3212) static void C_ccall f_3212(C_word c,C_word *av) C_noret; C_noret_decl(f_2217) static void C_ccall f_2217(C_word c,C_word *av) C_noret; C_noret_decl(f_2213) static void C_ccall f_2213(C_word c,C_word *av) C_noret; C_noret_decl(f_3342) static void C_fcall f_3342(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2529) static void C_fcall f_2529(C_word t0,C_word t1) 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_2229) static void C_ccall f_2229(C_word c,C_word *av) C_noret; C_noret_decl(f_2225) static void C_ccall f_2225(C_word c,C_word *av) C_noret; C_noret_decl(f_2221) static void C_ccall f_2221(C_word c,C_word *av) C_noret; C_noret_decl(f_2757) static void C_ccall f_2757(C_word c,C_word *av) C_noret; C_noret_decl(f_2759) static void C_fcall f_2759(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2750) static C_word C_fcall f_2750(C_word *a,C_word t0,C_word t1); C_noret_decl(f_2505) static void C_ccall f_2505(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_2502) static void C_ccall f_2502(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_1432) static void C_ccall f_1432(C_word c,C_word *av) C_noret; C_noret_decl(f_1436) static void C_ccall f_1436(C_word c,C_word *av) C_noret; C_noret_decl(f_1439) static void C_ccall f_1439(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_2045) static void C_ccall f_2045(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_1448) static void C_ccall f_1448(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_2514) static void C_ccall f_2514(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_3007) static void C_ccall f_3007(C_word c,C_word *av) 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_2841) static void C_fcall f_2841(C_word t0,C_word t1,C_word t2) 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_3066) static void C_fcall f_3066(C_word t0,C_word t1) C_noret; C_noret_decl(f_3390) static void C_fcall f_3390(C_word t0,C_word t1,C_word t2,C_word t3) 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_3057) static void C_ccall f_3057(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_3051) static void C_ccall f_3051(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_3036) static void C_ccall f_3036(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_3033) static void C_ccall f_3033(C_word c,C_word *av) C_noret; C_noret_decl(f_1282) static void C_fcall f_1282(C_word t0,C_word t1,C_word t2) 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_3029) static void C_ccall f_3029(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_1291) static void C_fcall f_1291(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1414) static void C_ccall f_1414(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_1417) static void C_ccall f_1417(C_word c,C_word *av) C_noret; C_noret_decl(f_1423) static void C_ccall f_1423(C_word c,C_word *av) C_noret; C_noret_decl(f_3467) static void C_ccall f_3467(C_word c,C_word *av) C_noret; C_noret_decl(f_1420) static void C_ccall f_1420(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_1429) static void C_ccall f_1429(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_1426) static void C_ccall f_1426(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_3115) static void C_ccall f_3115(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_3442) static void C_fcall f_3442(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1405) static void C_ccall f_1405(C_word c,C_word *av) C_noret; C_noret_decl(f_1251) static void C_ccall f_1251(C_word c,C_word *av) C_noret; C_noret_decl(f_1254) static void C_ccall f_1254(C_word c,C_word *av) C_noret; C_noret_decl(f_3100) static C_word C_fcall f_3100(C_word *a,C_word t0,C_word t1); C_noret_decl(f_1257) static void C_ccall f_1257(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_1463) static void C_ccall f_1463(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_2064) static void C_ccall f_2064(C_word c,C_word *av) C_noret; C_noret_decl(f_1469) static void C_ccall f_1469(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_3166) static void C_ccall f_3166(C_word c,C_word *av) C_noret; C_noret_decl(f_3168) static void C_fcall f_3168(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3048) static void C_ccall f_3048(C_word c,C_word *av) C_noret; C_noret_decl(f_3045) static void C_ccall f_3045(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_2079) static void C_ccall f_2079(C_word c,C_word *av) C_noret; C_noret_decl(f_2076) static void C_ccall f_2076(C_word c,C_word *av) C_noret; C_noret_decl(f_2073) static void C_ccall f_2073(C_word c,C_word *av) C_noret; C_noret_decl(f_1388) static void C_fcall f_1388(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_2070) static void C_ccall f_2070(C_word c,C_word *av) C_noret; C_noret_decl(f_1385) static void C_ccall f_1385(C_word c,C_word *av) 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_1382) static void C_fcall f_1382(C_word t0,C_word t1) C_noret; C_noret_decl(f_2446) static void C_ccall f_2446(C_word c,C_word *av) C_noret; C_noret_decl(f_2713) static void C_fcall f_2713(C_word t0,C_word t1,C_word t2) 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_1584) static void C_ccall f_1584(C_word c,C_word *av) C_noret; C_noret_decl(f_1395) static void C_ccall f_1395(C_word c,C_word *av) C_noret; C_noret_decl(f_1392) static void C_ccall f_1392(C_word c,C_word *av) C_noret; C_noret_decl(f_2453) static void C_ccall f_2453(C_word c,C_word *av) C_noret; C_noret_decl(f_1917) static void C_ccall f_1917(C_word c,C_word *av) C_noret; C_noret_decl(f_1915) static void C_ccall f_1915(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_3130) static void C_ccall f_3130(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_2436) static void C_ccall f_2436(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(f_2430) static void C_ccall f_2430(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_2414) static void C_ccall f_2414(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_2461) static void C_ccall f_2461(C_word c,C_word *av) C_noret; C_noret_decl(f_3496) static void C_ccall f_3496(C_word c,C_word *av) C_noret; C_noret_decl(f_2793) static void C_fcall f_2793(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3484) static void C_ccall f_3484(C_word c,C_word *av) C_noret; C_noret_decl(trf_1809) static void C_ccall trf_1809(C_word c,C_word *av) C_noret; static void C_ccall trf_1809(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1809(t0,t1,t2);} C_noret_decl(trf_1548) static void C_ccall trf_1548(C_word c,C_word *av) C_noret; static void C_ccall trf_1548(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1548(t0,t1,t2);} C_noret_decl(trf_2897) static void C_ccall trf_2897(C_word c,C_word *av) C_noret; static void C_ccall trf_2897(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2897(t0,t1,t2,t3);} C_noret_decl(trf_3260) static void C_ccall trf_3260(C_word c,C_word *av) C_noret; static void C_ccall trf_3260(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3260(t0,t1,t2);} C_noret_decl(trf_1500) static void C_ccall trf_1500(C_word c,C_word *av) C_noret; static void C_ccall trf_1500(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1500(t0,t1,t2);} C_noret_decl(trf_2651) static void C_ccall trf_2651(C_word c,C_word *av) C_noret; static void C_ccall trf_2651(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2651(t0,t1,t2);} C_noret_decl(trf_1481) static void C_ccall trf_1481(C_word c,C_word *av) C_noret; static void C_ccall trf_1481(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1481(t0,t1);} C_noret_decl(trf_2965) static void C_ccall trf_2965(C_word c,C_word *av) C_noret; static void C_ccall trf_2965(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2965(t0,t1,t2);} C_noret_decl(trf_3294) static void C_ccall trf_3294(C_word c,C_word *av) C_noret; static void C_ccall trf_3294(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3294(t0,t1,t2,t3);} 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_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[2]; C_word t1=av[1]; C_word t2=av[0]; f_3342(t0,t1,t2);} C_noret_decl(trf_2529) static void C_ccall trf_2529(C_word c,C_word *av) C_noret; static void C_ccall trf_2529(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2529(t0,t1);} C_noret_decl(trf_2759) static void C_ccall trf_2759(C_word c,C_word *av) C_noret; static void C_ccall trf_2759(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2759(t0,t1,t2);} C_noret_decl(trf_2841) static void C_ccall trf_2841(C_word c,C_word *av) C_noret; static void C_ccall trf_2841(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2841(t0,t1,t2);} C_noret_decl(trf_3066) static void C_ccall trf_3066(C_word c,C_word *av) C_noret; static void C_ccall trf_3066(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3066(t0,t1);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3390(t0,t1,t2,t3);} C_noret_decl(trf_1282) static void C_ccall trf_1282(C_word c,C_word *av) C_noret; static void C_ccall trf_1282(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1282(t0,t1,t2);} C_noret_decl(trf_1291) static void C_ccall trf_1291(C_word c,C_word *av) C_noret; static void C_ccall trf_1291(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1291(t0,t1,t2);} C_noret_decl(trf_3442) static void C_ccall trf_3442(C_word c,C_word *av) C_noret; static void C_ccall trf_3442(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3442(t0,t1,t2);} C_noret_decl(trf_3168) static void C_ccall trf_3168(C_word c,C_word *av) C_noret; static void C_ccall trf_3168(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3168(t0,t1,t2);} C_noret_decl(trf_1388) static void C_ccall trf_1388(C_word c,C_word *av) C_noret; static void C_ccall trf_1388(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_1388(t0,t1,t2,t3,t4);} C_noret_decl(trf_1382) static void C_ccall trf_1382(C_word c,C_word *av) C_noret; static void C_ccall trf_1382(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1382(t0,t1);} C_noret_decl(trf_2713) static void C_ccall trf_2713(C_word c,C_word *av) C_noret; static void C_ccall trf_2713(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2713(t0,t1,t2);} C_noret_decl(trf_2793) static void C_ccall trf_2793(C_word c,C_word *av) C_noret; static void C_ccall trf_2793(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2793(t0,t1,t2,t3);} /* skip in k1611 in loop in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_fcall f_1809(C_word t0,C_word 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(4,0,2)))){ C_save_and_reclaim_args((void *)trf_1809,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_u_i_char_whitespacep(t2))){ t3=( /* compiler-syntax.scm:260: fetch */ f_1471(((C_word*)((C_word*)t0)[2])[1]) ); /* compiler-syntax.scm:260: skip */ t6=t1; t7=t3; t1=t6; t2=t7; goto loop;} else{ t3=C_a_i_minus(&a,2,((C_word*)((C_word*)t0)[4])[1],C_fix(1)); t4=C_mutate2(((C_word *)((C_word*)t0)[4])+1,t3); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k1651 in k1611 in loop in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1653,2,av);} a=C_alloc(15); t2=C_a_i_list(&a,4,lf[18],t1,C_SCHEME_FALSE,((C_word*)t0)[2]); t3=( /* compiler-syntax.scm:235: push */ f_1538(C_a_i(&a,3),((C_word*)((C_word*)t0)[3])[1],t2) ); /* compiler-syntax.scm:263: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_1548(t4,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* ##sys#compiler-syntax-hook in k1255 in k1252 in k1249 */ static void C_ccall f_1260(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1260,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1264,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* compiler-syntax.scm:41: alist-ref */ t5=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=*((C_word*)lf[0]+1); av2[4]=*((C_word*)lf[4]+1); av2[5]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k1262 in compiler-syntax-hook in k1255 in k1252 in k1249 */ static void C_ccall f_1264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1264,2,av);} a=C_alloc(7); 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); t3=C_a_i_plus(&a,2,t1,C_fix(1)); /* compiler-syntax.scm:43: alist-update! */ t4=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[0]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k1529 in endchunk in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ C_save_and_reclaim((void *)f_1531,2,av);} a=C_alloc(15); t2=C_a_i_list(&a,4,lf[18],t1,C_SCHEME_FALSE,((C_word*)t0)[2]); /* compiler-syntax.scm:214: push */ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( /* compiler-syntax.scm:214: push */ f_1538(C_a_i(&a,3),((C_word*)((C_word*)t0)[4])[1],t2) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2361 in k2337 in k2327 in k2324 in a2321 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_2363,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_2351,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:155: r */ t7=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[16]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k1266 in k1262 in compiler-syntax-hook in k1255 in k1252 in k1249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1268,2,av);} t2=C_mutate2((C_word*)lf[0]+1 /* (set! ##compiler#compiler-syntax-statistics ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2424 in k2428 in k2432 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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=C_a_i_cons(&a,2,lf[17],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2422,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); /* compiler-syntax.scm:141: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[35]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2420 in k2424 in k2428 in k2432 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_2422,2,av);} a=C_alloc(11); t2=C_a_i_cons(&a,2,lf[35],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2418,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); /* compiler-syntax.scm:141: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[60]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k1617 in k1611 in loop in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1619,2,av);} /* compiler-syntax.scm:263: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1548(t2,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k1611 in loop in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_1613,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_1619,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_1636,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:234: next */ t5=((C_word*)((C_word*)t0)[7])[1]; f_1481(t5,t4); case C_make_character(65): t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1653,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:235: next */ t5=((C_word*)((C_word*)t0)[7])[1]; f_1481(t5,t4); case C_make_character(67): t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1670,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:236: next */ t5=((C_word*)((C_word*)t0)[7])[1]; f_1481(t5,t4); case C_make_character(66): t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1691,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:239: next */ t5=((C_word*)((C_word*)t0)[7])[1]; f_1481(t5,t4); case C_make_character(79): t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1712,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:243: next */ t5=((C_word*)((C_word*)t0)[7])[1]; f_1481(t5,t4); case C_make_character(88): t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1733,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:247: next */ t5=((C_word*)((C_word*)t0)[7])[1]; f_1481(t5,t4); case C_make_character(33): t4=C_a_i_list(&a,2,lf[32],((C_word*)t0)[5]); t5=( /* compiler-syntax.scm:249: push */ f_1538(C_a_i(&a,3),((C_word*)((C_word*)t0)[6])[1],t4) ); /* compiler-syntax.scm:263: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_1548(t6,((C_word*)t0)[4],C_SCHEME_END_OF_LIST); case C_make_character(63): t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1755,a[2]=((C_word*)t0)[9],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)[7],tmp=(C_word)a,a+=8,tmp); /* compiler-syntax.scm:251: next */ t5=((C_word*)((C_word*)t0)[7])[1]; f_1481(t5,t4); case C_make_character(126): t4=C_a_i_list(&a,3,lf[21],C_make_character(126),((C_word*)t0)[5]); t5=( /* compiler-syntax.scm:254: push */ f_1538(C_a_i(&a,3),((C_word*)((C_word*)t0)[6])[1],t4) ); /* compiler-syntax.scm:263: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_1548(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[21],C_make_character(10),((C_word*)t0)[5]); t7=( /* compiler-syntax.scm:255: push */ f_1538(C_a_i(&a,3),((C_word*)((C_word*)t0)[6])[1],t6) ); /* compiler-syntax.scm:263: loop */ t8=((C_word*)((C_word*)t0)[3])[1]; f_1548(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:258: fetch */ f_1471(((C_word*)((C_word*)t0)[10])[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_1809,a[2]=((C_word*)t0)[10],a[3]=t8,a[4]=((C_word*)t0)[11],tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_1809(t10,t3,t6);} else{ /* compiler-syntax.scm:262: fail */ t6=((C_word*)t0)[12]; f_1388(t6,t3,C_SCHEME_TRUE,lf[34],C_a_i_list(&a,1,((C_word*)t0)[2]));}}}} /* push in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static C_word C_fcall f_1538(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_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); return(t3);} /* k1634 in k1611 in loop in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1636,2,av);} a=C_alloc(15); t2=C_a_i_list(&a,4,lf[18],t1,C_SCHEME_TRUE,((C_word*)t0)[2]); t3=( /* compiler-syntax.scm:234: push */ f_1538(C_a_i(&a,3),((C_word*)((C_word*)t0)[3])[1],t2) ); /* compiler-syntax.scm:263: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_1548(t4,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* k1943 in k1940 in k1937 in k1934 in a1916 in k1910 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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; 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_1945,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1948,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:299: gensym */ t4=*((C_word*)lf[46]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1940 in k1937 in k1934 in a1916 in k1910 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1942,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1945,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:298: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[48]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* loop in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_fcall f_1548(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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,4)))){ C_save_and_reclaim_args((void *)trf_1548,3,t0,t1,t2);} a=C_alloc(13); 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_1558,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_1558(2,av2);}} else{ /* compiler-syntax.scm:223: fail */ t4=((C_word*)t0)[11]; f_1388(t4,t3,C_SCHEME_FALSE,lf[31],C_SCHEME_END_OF_LIST);}} else{ t3=( /* compiler-syntax.scm:229: fetch */ f_1471(((C_word*)((C_word*)t0)[12])[1]) ); t4=C_eqp(t3,C_make_character(126)); if(C_truep(t4)){ t5=( /* compiler-syntax.scm:231: fetch */ f_1471(((C_word*)((C_word*)t0)[12])[1]) ); t6=t5; t7=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_1613,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)[17],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[2],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* compiler-syntax.scm:232: endchunk */ t8=((C_word*)((C_word*)t0)[9])[1]; f_1500(t8,t7,t2);} else{ t5=C_a_i_cons(&a,2,t3,t2); /* compiler-syntax.scm:264: loop */ t9=t1; t10=t5; t1=t9; t2=t10; goto loop;}}} /* k1934 in a1916 in k1910 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_1936,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1939,a[2]=((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:296: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[36]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1937 in k1934 in a1916 in k1910 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_1939,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1942,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:297: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[49]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,8)))){ C_save_and_reclaim((void *)f_1352,2,av);} a=C_alloc(11); t2=C_mutate2((C_word*)lf[12]+1 /* (set! ##compiler#compile-format-string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1354,tmp=(C_word)a,a+=2,tmp)); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1912,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2045,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2160,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* compiler-syntax.scm:266: ##sys#primitive-alias */ t6=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[48]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k1949 in k1946 in k1943 in k1940 in k1937 in k1934 in a1916 in k1910 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1951(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1951,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_1954,a[2]=((C_word*)t0)[2],a[3]=((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:301: gensym */ t4=*((C_word*)lf[46]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##compiler#compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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=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(8,c,3)))){ C_save_and_reclaim((void *)f_1354,8,av);} a=C_alloc(8); t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1360,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:177: call/cc */ t9=*((C_word*)lf[39]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t1; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k1952 in k1949 in k1946 in k1943 in k1940 in k1937 in k1934 in a1916 in k1910 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word 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_1954,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[41],lf[40]); t6=C_a_i_list(&a,3,lf[42],t1,t5); t7=C_a_i_list(&a,2,lf[43],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[44],t1,C_fix(1)); t13=C_a_i_list(&a,3,lf[44],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[45],((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; /* Re-use our own argvector */ 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);}} /* k2349 in k2361 in k2337 in k2327 in k2324 in a2321 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2351(C_word c,C_word *av){ C_word tmp; C_word t0=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_2351,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; /* Re-use our own argvector */ 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);}} /* g434 in k2893 in k2541 in k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in ... */ static C_word C_fcall f_2571(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[72]); t3=C_a_i_list(&a,3,lf[42],t1,t2); return(C_a_i_list(&a,2,lf[43],t3));} /* k1946 in k1943 in k1940 in k1937 in k1934 in a1916 in k1910 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_1948,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_1951,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:300: gensym */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[47]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2327 in k2324 in a2321 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2329,2,av);} a=C_alloc(6); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2339,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:153: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[36]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[5]; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2324 in a2321 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 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,7)))){ C_save_and_reclaim((void *)f_2326,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2329,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_truep((C_truep(C_eqp(t4,lf[14]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[63]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))?lf[14]:lf[64]); t6=((C_word*)t0)[4]; t7=C_u_i_cdr(t6); /* compiler-syntax.scm:144: compile-format-string */ t8=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t8; av2[1]=t3; av2[2]=t5; av2[3]=t2; av2[4]=((C_word*)t0)[4]; av2[5]=t7; av2[6]=((C_word*)t0)[3]; av2[7]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t8+1)))(8,av2);}} /* a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 t4; 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,2)))){ C_save_and_reclaim((void *)f_1360,3,av);} a=C_alloc(18); t3=C_i_length(((C_word*)t0)[2]); if(C_truep(C_fixnum_greater_or_equal_p(t3,C_fix(1)))){ if(C_truep(C_i_memq(((C_word*)t0)[3],*((C_word*)lf[13]+1)))){ t4=C_i_car(((C_word*)t0)[2]); t5=C_i_stringp(t4); t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1382,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],tmp=(C_word)a,a+=9,tmp); if(C_truep(t5)){ t7=t6; f_1382(t7,t5);} else{ t7=((C_word*)t0)[2]; t8=C_u_i_car(t7); if(C_truep(C_i_listp(t8))){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1883,a[2]=t6,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1894,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[7],a[4]=t9,tmp=(C_word)a,a+=5,tmp); /* compiler-syntax.scm:183: r */ t11=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t10; av2[2]=lf[28]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t9=t6; f_1382(t9,C_SCHEME_FALSE);}}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a2321 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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=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_2322,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2326,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* compiler-syntax.scm:143: gensym */ t6=*((C_word*)lf[46]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[37]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k2318 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2320,2,av);} a=C_alloc(8); t2=C_a_i_cons(&a,2,lf[58],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2316,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* compiler-syntax.scm:158: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[59]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2584 in k2893 in k2541 in k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_2586,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_2601,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_2793,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_2793(t11,t7,((C_word*)t0)[15],((C_word*)t0)[15]);} /* k2337 in k2327 in k2324 in a2321 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_2339,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2363,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:153: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[23]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2306 in k2310 in k2314 in k2318 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2308,2,av);} a=C_alloc(11); t2=C_a_i_cons(&a,2,lf[35],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2304,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); /* compiler-syntax.scm:158: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[60]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2302 in k2306 in k2310 in k2314 in k2318 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2304,2,av);} a=C_alloc(12); t2=C_a_i_cons(&a,2,lf[60],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2300,a[2]=((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); /* compiler-syntax.scm:158: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[23]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2298 in k2302 in k2306 in k2310 in k2314 in k2318 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2300,2,av);} a=C_alloc(13); t2=C_a_i_cons(&a,2,lf[23],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2296,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=10,tmp); /* compiler-syntax.scm:158: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[16]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2314 in k2318 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2316,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,lf[59],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2312,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); /* compiler-syntax.scm:158: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[17]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2310 in k2314 in k2318 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2312(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2312,2,av);} a=C_alloc(10); t2=C_a_i_cons(&a,2,lf[17],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2308,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); /* compiler-syntax.scm:158: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[35]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* map-loop397 in k2541 in k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 in ... */ static void C_fcall f_2897(C_word t0,C_word t1,C_word 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_2897,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_mutate2(((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);}}} /* k2893 in k2541 in k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 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 t4; C_word t5; C_word t6; C_word t7; C_word 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_2895,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_2566,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_2571,a[2]=((C_word*)t0)[7],tmp=(C_word)a,a+=3,tmp); t11=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_2586,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_2841,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_2841(t15,t11,((C_word*)t0)[18]);} /* k1881 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1883,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1890,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler-syntax.scm:184: cadar */ t3=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_1382(t2,C_SCHEME_FALSE);}} /* k1689 in k1611 in loop in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){ C_save_and_reclaim((void *)f_1691,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[18],t2,C_SCHEME_FALSE,((C_word*)t0)[3]); t4=( /* compiler-syntax.scm:238: push */ f_1538(C_a_i(&a,3),((C_word*)((C_word*)t0)[4])[1],t3) ); /* compiler-syntax.scm:263: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_1548(t5,((C_word*)t0)[6],C_SCHEME_END_OF_LIST);} /* k1892 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1894,2,av);} t2=C_i_caar(((C_word*)t0)[2]); /* compiler-syntax.scm:183: c */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1888 in k1881 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1890,2,av);} t2=((C_word*)t0)[2]; f_1382(t2,C_i_stringp(t1));} /* k1668 in k1611 in loop in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_1670,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,3,lf[21],t1,((C_word*)t0)[2]); t3=( /* compiler-syntax.scm:236: push */ f_1538(C_a_i(&a,3),((C_word*)((C_word*)t0)[3])[1],t2) ); /* compiler-syntax.scm:263: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_1548(t4,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* k1710 in k1611 in loop in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){ C_save_and_reclaim((void *)f_1712,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[18],t2,C_SCHEME_FALSE,((C_word*)t0)[3]); t4=( /* compiler-syntax.scm:242: push */ f_1538(C_a_i(&a,3),((C_word*)((C_word*)t0)[4])[1],t3) ); /* compiler-syntax.scm:263: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_1548(t5,((C_word*)t0)[6],C_SCHEME_END_OF_LIST);} /* k1559 in k1556 in loop in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 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_1561,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[28],((C_word*)t0)[4]); t6=C_a_i_list(&a,4,lf[29],((C_word*)t0)[2],C_SCHEME_TRUE,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1584,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:227: reverse */ t9=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1556 in loop in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1558(C_word c,C_word *av){ C_word tmp; C_word t0=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_1558,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1561,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:224: endchunk */ t3=((C_word*)((C_word*)t0)[8])[1]; f_1500(t3,t2,((C_word*)t0)[9]);} /* k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2484,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2487,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:96: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[82]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2479 in a2476 in k1335 in k1255 in k1252 in k1249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2481,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2484,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:95: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[49]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2487,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2490,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:97: gensym */ t4=*((C_word*)lf[46]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop249 in k3128 in k3113 in k3386 in k3078 in k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ static void C_fcall f_3260(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_3260,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:83: g255 */ f_3251(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_mutate2(((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);}}} /* k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2496(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2496,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2499,a[2]=((C_word*)t0)[2],a[3]=((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:100: gensym */ t4=*((C_word*)lf[46]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_2493,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2496,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:99: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[80]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2490,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2493,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:98: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[81]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2499(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2499,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2502,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:101: gensym */ t4=*((C_word*)lf[46]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* endchunk in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_fcall f_1500(C_word t0,C_word 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_1500,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[21],t5,((C_word*)t0)[2]); /* compiler-syntax.scm:214: push */ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=( /* compiler-syntax.scm:214: push */ f_1538(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_1531,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:217: reverse-list->string */ t6=*((C_word*)lf[27]+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);}}} /* map-loop549 in k2709 in k2755 in k2599 in k2584 in k2893 in k2541 in k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in ... */ static void C_fcall f_2651(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_2651,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[44],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_mutate2(((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);}}} /* k1299 in for-each-loop42 in k1318 in k1314 in r-c-s in k1255 in k1252 in k1249 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1301,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1291(t3,((C_word*)t0)[4],t2);} /* k1314 in r-c-s in k1255 in k1252 in k1249 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_1316,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1320,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:49: append */ t4=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a2476 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2477,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2481,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* compiler-syntax.scm:94: r */ t6=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[36]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* fetch in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static C_word C_fcall f_1471(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);} /* k1322 in r-c-s in k1255 in k1252 in k1249 */ static void C_ccall f_1324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1324,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* compiler-syntax.scm:46: ##sys#ensure-transformer */ t3=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1318 in k1314 in r-c-s in k1255 in k1252 in k1249 */ 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 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_1320,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_1282,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_1291,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_1291(t9,((C_word*)t0)[4],t5);} /* k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1337(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1337,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1340,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2477,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3027,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* compiler-syntax.scm:92: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[48]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* next in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_fcall f_1481(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_1481,2,t0,t1);} if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[2])[1]))){ /* compiler-syntax.scm:208: fail */ t2=((C_word*)t0)[3]; f_1388(t2,t1,C_SCHEME_TRUE,lf[26],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_mutate2(((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);}}} /* k2164 in a2161 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2166,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a2161 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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=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_2162,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2166,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t6=C_i_cdr(t2); /* compiler-syntax.scm:170: compile-format-string */ t7=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t7; av2[1]=t5; av2[2]=lf[56]; av2[3]=lf[57]; av2[4]=t2; av2[5]=t6; av2[6]=t3; av2[7]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(8,av2);}} /* k2158 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2160,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[48],t1); t3=C_a_i_list(&a,1,t2); /* compiler-syntax.scm:266: r-c-s */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[55]; av2[3]=((C_word*)t0)[3]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3256 in k3128 in k3113 in k3386 in k3078 in k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ 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 t3; C_word t4; C_word 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_3258,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_3212,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_3214,a[2]=t6,a[3]=t10,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_3214(t12,t8,((C_word*)t0)[11]);} /* k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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; 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_1349,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1352,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2162,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2233,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* compiler-syntax.scm:168: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[58]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1346(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1346,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1349,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2235,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2320,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* compiler-syntax.scm:158: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[58]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* g255 in k3128 in k3113 in k3386 in k3078 in k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ static C_word C_fcall f_3251(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));} /* k2988 in map-loop367 in k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 in ... */ 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 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_2990,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_2965(t6,((C_word*)t0)[5],t5);} /* k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1340,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1343,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2436,tmp=(C_word)a,a+=2,tmp); /* compiler-syntax.scm:134: r-c-s */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[71]; av2[3]=t3; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1343,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1346,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2322,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2434,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* compiler-syntax.scm:141: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[58]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* map-loop367 in k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 */ static void C_fcall f_2965(C_word 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_2965,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_2990,a[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:111: gensym */ t6=*((C_word*)lf[46]+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);}}} /* k2564 in k2893 in k2541 in k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in ... */ 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; 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_2566,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; /* Re-use our own argvector */ 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);}} /* map-loop218 in k3113 in k3386 in k3078 in k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ static void C_fcall f_3294(C_word t0,C_word t1,C_word 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_3294,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_mutate2(((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);}}} /* a2234 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2235,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_2245,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:161: compile-format-string */ t11=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t11; av2[1]=t6; av2[2]=lf[17]; av2[3]=t7; av2[4]=t2; av2[5]=t10; av2[6]=t3; av2[7]=t4; ((C_proc)(void*)(*((C_word*)t11+1)))(8,av2);}} else{ t6=t2; t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k2231 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_2233,2,av);} a=C_alloc(8); t2=C_a_i_cons(&a,2,lf[58],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2229,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* compiler-syntax.scm:168: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[59]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2541 in k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_2543,2,av);} a=C_alloc(70); t2=t1; t3=C_a_i_list(&a,1,lf[73]); 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[72]); t19=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_2895,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_2897,a[2]=t16,a[3]=t21,a[4]=t17,tmp=(C_word)a,a+=5,tmp)); t23=((C_word*)t21)[1]; f_2897(t23,t19,t2,((C_word*)t0)[16]);} /* k2647 in k2709 in k2755 in k2599 in k2584 in k2893 in k2541 in k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in ... */ 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 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_2649,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[45],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[44],((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:111: ##sys#append */ t9=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2243 in a2234 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2245,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?t1:((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop279 in k3256 in k3128 in k3113 in k3386 in k3078 in k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ static void C_fcall f_3214(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_3214,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[44],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_mutate2(((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);}}} /* k3210 in k3256 in k3128 in k3113 in k3386 in k3078 in k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ static void C_ccall f_3212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_3212,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_3166,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_3168,a[2]=t6,a[3]=t10,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_3168(t12,t8,((C_word*)t0)[11]);} /* k2215 in k2219 in k2223 in k2227 in k2231 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2217,2,av);} a=C_alloc(12); t2=C_a_i_cons(&a,2,lf[60],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2213,a[2]=((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); /* compiler-syntax.scm:168: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[23]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2211 in k2215 in k2219 in k2223 in k2227 in k2231 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2213,2,av);} a=C_alloc(13); t2=C_a_i_cons(&a,2,lf[23],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2209,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=10,tmp); /* compiler-syntax.scm:168: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[16]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* map-loop188 in k3386 in k3078 in k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ static void C_fcall f_3342(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_3342,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:79: g194 */ f_3100(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_mutate2(((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);}}} /* k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 */ static void C_fcall f_2529(C_word t0,C_word t1){ C_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_2529,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[72]); t7=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_2543,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_2965,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_2965(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);}}} /* k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 */ 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; C_word 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_2520,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_2529,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[72],*((C_word*)lf[76]+1)))){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3007,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* compiler-syntax.scm:110: length+ */ t7=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} else{ t6=t5; f_2529(t6,C_SCHEME_FALSE);}} /* k2227 in k2231 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2229,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,lf[59],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2225,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); /* compiler-syntax.scm:168: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[17]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2223 in k2227 in k2231 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2225,2,av);} a=C_alloc(10); t2=C_a_i_cons(&a,2,lf[17],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2221,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); /* compiler-syntax.scm:168: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[35]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2219 in k2223 in k2227 in k2231 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2221,2,av);} a=C_alloc(11); t2=C_a_i_cons(&a,2,lf[35],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2217,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); /* compiler-syntax.scm:168: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[60]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2755 in k2599 in k2584 in k2893 in k2541 in k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in ... */ static void C_ccall f_2757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_2757,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_2711,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_2713,a[2]=t6,a[3]=t10,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_2713(t12,t8,((C_word*)t0)[16]);} /* map-loop489 in k2599 in k2584 in k2893 in k2541 in k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in ... */ static void C_fcall f_2759(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_2759,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:120: g495 */ f_2750(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_mutate2(((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);}}} /* g495 in k2599 in k2584 in k2893 in k2541 in k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in ... */ static C_word C_fcall f_2750(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));} /* k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_2505,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_2508,a[2]=((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:103: r */ t4=((C_word*)t0)[12];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[28]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 */ 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; 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_2508,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_2511,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:104: r */ t4=((C_word*)t0)[13];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[79]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2502,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_2505,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:102: gensym */ t4=*((C_word*)lf[46]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2207 in k2211 in k2215 in k2219 in k2223 in k2227 in k2231 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){ C_save_and_reclaim((void *)f_2209,2,av);} a=C_alloc(24); t2=C_a_i_cons(&a,2,lf[16],t1); t3=C_a_i_list(&a,7,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2); /* compiler-syntax.scm:168: r-c-s */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[8]; av2[2]=lf[61]; av2[3]=((C_word*)t0)[9]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k1430 in k1427 in k1424 in k1421 in k1418 in k1415 in k1412 in k1409 in k1403 in k1390 in fail in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in ... */ static void C_ccall f_1432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1432,2,av);} /* compiler-syntax.scm:189: warning */ t2=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1434 in k1403 in k1390 in fail in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1436,2,av);} /* compiler-syntax.scm:190: ##sys#print */ t2=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1437 in k1403 in k1390 in fail in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1439(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1439,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[14]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1445,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:191: ##sys#write-char-0 */ t6=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1443 in k1437 in k1403 in k1390 in fail in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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(5,c,4)))){ C_save_and_reclaim((void *)f_1445,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1448,a[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:191: ##sys#print */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a2044 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2045(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2045,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[53],*((C_word*)lf[13]+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_2064,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:273: r */ t15=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; av2[2]=lf[50]; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} else{ t8=t2; t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k2041 in k1910 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_2043,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[48],t1); t3=C_a_i_list(&a,1,t2); /* compiler-syntax.scm:288: r-c-s */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[51]; av2[3]=((C_word*)t0)[3]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k1446 in k1443 in k1437 in k1403 in k1390 in fail in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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(4,c,4)))){ C_save_and_reclaim((void *)f_1448,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1451,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler-syntax.scm:191: ##sys#print */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_2517,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_2520,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((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:107: r */ t4=((C_word*)t0)[14];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[48]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_2514,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_2517,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:106: r */ t3=((C_word*)t0)[14];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[78]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_2511,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_2514,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:105: r */ t3=((C_word*)t0)[14];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[69]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3005 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in k1249 */ 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,1)))){ C_save_and_reclaim((void *)f_3007,2,av);} t2=((C_word*)t0)[2]; f_2529(t2,C_i_greaterp(t1,C_fix(2)));} /* k1731 in k1611 in loop in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 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_1733,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[18],t2,C_SCHEME_FALSE,((C_word*)t0)[3]); t4=( /* compiler-syntax.scm:246: push */ f_1538(C_a_i(&a,3),((C_word*)((C_word*)t0)[4])[1],t3) ); /* compiler-syntax.scm:263: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_1548(t5,((C_word*)t0)[6],C_SCHEME_END_OF_LIST);} /* map-loop428 in k2893 in k2541 in k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in k1252 in ... */ static void C_fcall f_2841(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_2841,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:116: g434 */ f_2571(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_mutate2(((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);}}} /* k1756 in k1753 in k1611 in loop in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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; 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_1758,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,5,lf[33],((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1); t3=( /* compiler-syntax.scm:253: push */ f_1538(C_a_i(&a,3),((C_word*)((C_word*)t0)[5])[1],t2) ); /* compiler-syntax.scm:263: loop */ t4=((C_word*)((C_word*)t0)[6])[1]; f_1548(t4,((C_word*)t0)[7],C_SCHEME_END_OF_LIST);} /* k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ static void C_fcall f_3066(C_word t0,C_word t1){ C_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_3066,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[72]); t7=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_3080,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_3442,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_3442(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);}}} /* map-loop157 in k3078 in k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ static void C_fcall f_3390(C_word t0,C_word t1,C_word 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_3390,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_mutate2(((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);}}} /* k1753 in k1611 in loop in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_1755,2,av);} a=C_alloc(8); t2=t1; t3=(*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]=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); /* compiler-syntax.scm:252: next */ t4=((C_word*)((C_word*)t0)[7])[1]; f_1481(t4,t3);} /* k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ static void C_ccall f_3057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3057,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_3066,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[84],*((C_word*)lf[76]+1)))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3484,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* compiler-syntax.scm:75: length+ */ t6=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ t5=t4; f_3066(t5,C_SCHEME_FALSE);}} /* k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_3054,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3057,a[2]=((C_word*)t0)[2],a[3]=((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:72: r */ t4=((C_word*)t0)[11];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[69]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ static void C_ccall f_3051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3051,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3054,a[2]=((C_word*)t0)[2],a[3]=((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:71: r */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[48]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3386 in k3078 in k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ 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 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_3388,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_3095,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_3100,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3115,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_3342,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_3342(t14,t10,((C_word*)t0)[12]);} /* k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3036,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3039,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:66: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[85]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ 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; 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_3039,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3042,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:67: gensym */ t4=*((C_word*)lf[46]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3031 in a3028 in k1255 in k1252 in k1249 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3033,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3036,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:65: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[49]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* g43 in k1318 in k1314 in r-c-s in k1255 in k1252 in k1249 */ static void C_fcall f_1282(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_1282,3,t0,t1,t2);} /* compiler-syntax.scm:52: ##sys#put! */ t3=*((C_word*)lf[6]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=lf[7]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3025 in k1335 in k1255 in k1252 in k1249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3027,2,av);} a=C_alloc(8); t2=C_a_i_cons(&a,2,lf[48],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3023,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* compiler-syntax.scm:92: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[81]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* a3028 in k1255 in k1252 in k1249 */ static void C_ccall f_3029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3029,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3033,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* compiler-syntax.scm:64: r */ t6=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[36]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k3021 in k3025 in k1335 in k1255 in k1252 in k1249 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_3023,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,lf[81],t1); t3=C_a_i_list(&a,2,((C_word*)t0)[2],t2); /* compiler-syntax.scm:92: r-c-s */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[83]; av2[3]=((C_word*)t0)[4]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* for-each-loop42 in k1318 in k1314 in r-c-s in k1255 in k1252 in k1249 */ static void C_fcall f_1291(C_word t0,C_word t1,C_word 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_1291,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_1301,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:45: g43 */ t5=((C_word*)t0)[3]; f_1282(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);}}} /* k1412 in k1409 in k1403 in k1390 in fail in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1414(C_word c,C_word *av){ C_word tmp; C_word t0=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_1414,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1417,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:190: ##sys#print */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1409 in k1403 in k1390 in fail in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1411,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1414,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:190: ##sys#write-char-0 */ t3=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1415 in k1412 in k1409 in k1403 in k1390 in fail in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1417(C_word c,C_word *av){ C_word tmp; C_word t0=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_1417,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1420,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:190: ##sys#print */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[20]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k1421 in k1418 in k1415 in k1412 in k1409 in k1403 in k1390 in fail in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1423(C_word c,C_word *av){ C_word tmp; C_word t0=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_1423,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1426,a[2]=((C_word*)t0)[2],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:190: ##sys#print */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[19]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3465 in map-loop127 in k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ static void C_ccall f_3467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3467,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3442(t6,((C_word*)t0)[5],t5);} /* k1418 in k1415 in k1412 in k1409 in k1403 in k1390 in fail in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1420(C_word c,C_word *av){ C_word tmp; C_word t0=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_1420,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1423,a[2]=((C_word*)t0)[2],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:190: ##sys#print */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2294 in k2298 in k2302 in k2306 in k2310 in k2314 in k2318 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){ C_save_and_reclaim((void *)f_2296,2,av);} a=C_alloc(24); t2=C_a_i_cons(&a,2,lf[16],t1); t3=C_a_i_list(&a,7,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2); /* compiler-syntax.scm:158: r-c-s */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[8]; av2[2]=lf[62]; av2[3]=((C_word*)t0)[9]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k1427 in k1424 in k1421 in k1418 in k1415 in k1412 in k1409 in k1403 in k1390 in fail in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in ... */ static void C_ccall f_1429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1429,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1432,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler-syntax.scm:190: get-output-string */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3078 in k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ 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 t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_3080,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[72]); t11=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_3388,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_3390,a[2]=t8,a[3]=t13,a[4]=t9,tmp=(C_word)a,a+=5,tmp)); t15=((C_word*)t13)[1]; f_3390(t15,t11,t2,((C_word*)t0)[12]);} /* k1424 in k1421 in k1418 in k1415 in k1412 in k1409 in k1403 in k1390 in fail in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_1426,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1429,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; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=t2; av2[2]=*((C_word*)lf[17]+1); av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; C_apply(6,av2);}} /* ##compiler#r-c-s in k1255 in k1252 in k1249 */ 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=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,2)))){ C_save_and_reclaim((void*)f_1274,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; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_END_OF_LIST:C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1316,a[2]=t2,a[3]=t1,a[4]=t7,tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1324,a[2]=t2,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* compiler-syntax.scm:47: ##sys#er-transformer */ t10=*((C_word*)lf[11]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k3113 in k3386 in k3078 in k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ 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 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_3115,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_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],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_3294,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_3294(t11,t7,((C_word*)t0)[10],((C_word*)t0)[10]);} /* k2599 in k2584 in k2893 in k2541 in k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,3)))){ C_save_and_reclaim((void *)f_2601,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_2750,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_2757,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_2759,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_2759(t12,t8,((C_word*)t0)[16]);} /* map-loop127 in k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ static void C_fcall f_3442(C_word 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_3442,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_3467,a[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:76: gensym */ t6=*((C_word*)lf[46]+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);}}} /* k1403 in k1390 in fail in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1405,2,av);} a=C_alloc(17); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[14]); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1411,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_1436,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_1439,a[2]=t6,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); /* compiler-syntax.scm:191: open-output-string */ t8=*((C_word*)lf[23]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ /* compiler-syntax.scm:190: ##sys#print */ t7=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=lf[24]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k1249 */ static void C_ccall f_1251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1251,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1254,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k1252 in k1249 */ static void C_ccall f_1254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1254,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1257,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* g194 in k3386 in k3078 in k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ static C_word C_fcall f_3100(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[84]); t3=C_a_i_list(&a,3,lf[42],t1,t2); return(C_a_i_list(&a,2,lf[43],t3));} /* k1255 in k1252 in k1249 */ 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 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_1257,2,av);} a=C_alloc(13); t2=C_set_block_item(lf[0] /* ##compiler#compiler-syntax-statistics */,0,C_SCHEME_END_OF_LIST); t3=C_mutate2((C_word*)lf[1]+1 /* (set! ##sys#compiler-syntax-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1260,tmp=(C_word)a,a+=2,tmp)); t4=C_mutate2((C_word*)lf[5]+1 /* (set! ##compiler#r-c-s ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1274,tmp=(C_word)a,a+=2,tmp)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1337,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3029,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3496,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* compiler-syntax.scm:62: ##sys#primitive-alias */ t8=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=lf[48]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k1449 in k1446 in k1443 in k1437 in k1403 in k1390 in fail in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1451,2,av);} /* compiler-syntax.scm:191: get-output-string */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_1460,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_1463,a[2]=((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:199: r */ t4=((C_word*)t0)[11];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[17]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1463(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1463,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_1466,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((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); /* compiler-syntax.scm:200: r */ t4=((C_word*)t0)[12];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[36]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2065 in k2062 in a2044 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_2067,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2070,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:275: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[48]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2062 in a2044 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2064,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2067,a[2]=((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:274: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[36]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word 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(43,c,3)))){ C_save_and_reclaim((void *)f_1469,2,av);} a=C_alloc(43); 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_1471,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_1481,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_1500,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_1538,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|17,a[1]=(C_word)f_1548,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,a[17]=((C_word*)t0)[12],tmp=(C_word)a,a+=18,tmp)); t18=((C_word*)t16)[1]; f_1548(t18,((C_word*)t0)[13],C_SCHEME_END_OF_LIST);} /* k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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; 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_1466,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_1469,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((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); /* compiler-syntax.scm:201: r */ t4=((C_word*)t0)[13];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[35]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3164 in k3210 in k3256 in k3128 in k3113 in k3386 in k3078 in k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ 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 t3; C_word 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_3166,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[45],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:76: ##sys#append */ t8=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop309 in k3210 in k3256 in k3128 in k3113 in k3386 in k3078 in k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ static void C_fcall f_3168(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_3168,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[44],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_mutate2(((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);}}} /* k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ static void C_ccall f_3048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3048,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3051,a[2]=((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:70: r */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[78]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ static void C_ccall f_3045(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3045,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3048,a[2]=((C_word*)t0)[2],a[3]=((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:69: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[28]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3042,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3045,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:68: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[79]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2077 in k2074 in k2071 in k2068 in k2065 in k2062 in a2044 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 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_2079,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[41],lf[53]); t5=C_a_i_list(&a,3,lf[42],t1,t4); t6=C_a_i_list(&a,2,lf[43],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[44],t1,C_fix(0)); t11=C_a_i_list(&a,3,lf[44],t1,C_fix(1)); t12=C_a_i_list(&a,3,lf[45],((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; /* Re-use our own argvector */ 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);}} /* k2074 in k2071 in k2068 in k2065 in k2062 in a2044 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2076,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2079,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:278: gensym */ t4=*((C_word*)lf[46]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2071 in k2068 in k2065 in k2062 in a2044 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2073,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2076,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:277: gensym */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[54]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* fail in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_fcall f_1388(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_1388,5,t0,t1,t2,t3,t4);} a=C_alloc(9); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1392,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:188: get-line */ t6=*((C_word*)lf[25]+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);}} /* k2068 in k2065 in k2062 in a2044 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2070(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2070,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2073,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:276: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[49]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_1385,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_1388,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_1460,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:198: r */ t14=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t14; av2[1]=t13; av2[2]=lf[37]; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} /* k1910 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_1912,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1915,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1917,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2043,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* compiler-syntax.scm:288: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[48]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_fcall f_1382(C_word 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_1382,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1385,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_1385(2,av2);}} else{ /* compiler-syntax.scm:185: cadar */ t5=*((C_word*)lf[38]+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);}}} /* k2444 in a2435 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2446(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2446,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2453,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:138: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[69]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* map-loop519 in k2755 in k2599 in k2584 in k2893 in k2541 in k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in ... */ static void C_fcall f_2713(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_2713,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[44],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_mutate2(((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);}}} /* k2709 in k2755 in k2599 in k2584 in k2893 in k2541 in k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in ... */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_2711,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[74],((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_2649,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_2651,a[2]=t14,a[3]=t18,a[4]=t15,tmp=(C_word)a,a+=5,tmp)); t20=((C_word*)t18)[1]; f_2651(t20,t16,((C_word*)t0)[16]);} /* k1582 in k1559 in k1556 in loop in k1467 in k1464 in k1461 in k1458 in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_1584,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; /* Re-use our own argvector */ 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);}} /* k1393 in k1390 in fail in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1395,2,av);} if(C_truep(((C_word*)t0)[2])){ /* compiler-syntax.scm:194: return */ t2=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k1390 in fail in k1383 in k1380 in a1359 in compile-format-string in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1392,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1395,a[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_1405,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:190: open-output-string */ t5=*((C_word*)lf[23]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k2451 in k2444 in a2435 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_2453,2,av);} a=C_alloc(8); t2=t1; t3=C_a_i_list(&a,1,((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2461,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=C_i_cdr(((C_word*)t0)[4]); /* compiler-syntax.scm:138: fold-right */ t7=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=*((C_word*)lf[68]+1); av2[3]=((C_word*)t0)[2]; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* a1916 in k1910 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1917,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[40],*((C_word*)lf[13]+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_1936,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:295: r */ t15=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; av2[2]=lf[50]; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} else{ t8=t2; t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k1913 in k1910 in k1350 in k1347 in k1344 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_1915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1915,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3093 in k3386 in k3078 in k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_3095,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; /* Re-use our own argvector */ 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);}} /* k3128 in k3113 in k3386 in k3078 in k3064 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ 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 t4; C_word 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_3130,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_3251,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3258,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_3260,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_3260(t12,t8,((C_word*)t0)[11]);} /* k2432 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_2434,2,av);} a=C_alloc(8); t2=C_a_i_cons(&a,2,lf[58],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2430,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* compiler-syntax.scm:141: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[59]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* a2435 in k1338 in k1335 in k1255 in k1252 in k1249 */ static void C_ccall f_2436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2436,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[66],*((C_word*)lf[13]+1)):C_SCHEME_FALSE); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2446,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* compiler-syntax.scm:137: r */ t9=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; av2[2]=lf[70]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t8=t2; t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* 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_2dsyntax_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_compiler_2dsyntax_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(690))){ C_save(t1); C_rereclaim2(690*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,87); lf[0]=C_h_intern(&lf[0],35,"\010compilercompiler-syntax-statistics"); lf[1]=C_h_intern(&lf[1],24,"\003syscompiler-syntax-hook"); lf[2]=C_h_intern(&lf[2],13,"alist-update!"); lf[3]=C_h_intern(&lf[3],9,"alist-ref"); lf[4]=C_h_intern(&lf[4],3,"eq\077"); lf[5]=C_h_intern(&lf[5],14,"\010compilerr-c-s"); lf[6]=C_h_intern(&lf[6],8,"\003sysput!"); lf[7]=C_h_intern(&lf[7],24,"\010compilercompiler-syntax"); lf[8]=C_h_intern(&lf[8],6,"append"); lf[9]=C_h_intern(&lf[9],29,"\003sysdefault-macro-environment"); lf[10]=C_h_intern(&lf[10],22,"\003sysensure-transformer"); lf[11]=C_h_intern(&lf[11],18,"\003syser-transformer"); lf[12]=C_h_intern(&lf[12],30,"\010compilercompile-format-string"); lf[13]=C_h_intern(&lf[13],17,"extended-bindings"); lf[14]=C_h_intern(&lf[14],7,"sprintf"); lf[15]=C_h_intern(&lf[15],7,"warning"); lf[16]=C_h_intern(&lf[16],17,"get-output-string"); lf[17]=C_h_intern(&lf[17],7,"fprintf"); lf[18]=C_h_intern(&lf[18],9,"\003sysprint"); lf[19]=C_decode_literal(C_heaptop,"\376B\000\000\002, "); lf[20]=C_decode_literal(C_heaptop,"\376B\000\000\024\047, in format string "); lf[21]=C_h_intern(&lf[21],16,"\003syswrite-char-0"); lf[22]=C_decode_literal(C_heaptop,"\376B\000\000\002) "); lf[23]=C_h_intern(&lf[23],18,"open-output-string"); lf[24]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[25]=C_h_intern(&lf[25],17,"\010compilerget-line"); lf[26]=C_decode_literal(C_heaptop,"\376B\000\000/too few arguments to formatted output procedure"); lf[27]=C_h_intern(&lf[27],20,"reverse-list->string"); lf[28]=C_h_intern(&lf[28],5,"quote"); lf[29]=C_h_intern(&lf[29],21,"\003syscheck-output-port"); lf[30]=C_h_intern(&lf[30],7,"reverse"); lf[31]=C_decode_literal(C_heaptop,"\376B\000\0000too many arguments to formatted output procedure"); lf[32]=C_h_intern(&lf[32],16,"\003sysflush-output"); lf[33]=C_h_intern(&lf[33],9,"\003sysapply"); lf[34]=C_decode_literal(C_heaptop,"\376B\000\000$illegal format-string character `~c\047"); lf[35]=C_h_intern(&lf[35],14,"number->string"); lf[36]=C_h_intern(&lf[36],3,"let"); lf[37]=C_h_intern(&lf[37],3,"out"); lf[38]=C_h_intern(&lf[38],5,"cadar"); lf[39]=C_h_intern(&lf[39],7,"call/cc"); lf[40]=C_h_intern(&lf[40],5,"foldl"); lf[41]=C_h_intern(&lf[41],10,"\004corequote"); lf[42]=C_h_intern(&lf[42],14,"\003syscheck-list"); lf[43]=C_h_intern(&lf[43],10,"\004corecheck"); lf[44]=C_h_intern(&lf[44],8,"\003sysslot"); lf[45]=C_h_intern(&lf[45],8,"\004coreapp"); lf[46]=C_h_intern(&lf[46],6,"gensym"); lf[47]=C_decode_literal(C_heaptop,"\376B\000\000\005foldl"); lf[48]=C_h_intern(&lf[48],5,"pair\077"); lf[49]=C_h_intern(&lf[49],2,"if"); lf[50]=C_h_intern(&lf[50],4,"let\052"); lf[51]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005foldl\376\003\000\000\002\376\001\000\000\007#%foldl\376\377\016"); lf[52]=C_h_intern(&lf[52],19,"\003sysprimitive-alias"); lf[53]=C_h_intern(&lf[53],5,"foldr"); lf[54]=C_decode_literal(C_heaptop,"\376B\000\000\005foldr"); lf[55]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005foldr\376\003\000\000\002\376\001\000\000\007#%foldr\376\377\016"); lf[56]=C_h_intern(&lf[56],6,"printf"); lf[57]=C_h_intern(&lf[57],19,"\003sysstandard-output"); lf[58]=C_h_intern(&lf[58],7,"display"); lf[59]=C_h_intern(&lf[59],5,"write"); lf[60]=C_h_intern(&lf[60],10,"write-char"); lf[61]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006printf\376\003\000\000\002\376\001\000\000\010#%printf\376\377\016"); lf[62]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\007fprintf\376\003\000\000\002\376\001\000\000\011#%fprintf\376\377\016"); lf[63]=C_h_intern(&lf[63],9,"#%sprintf"); lf[64]=C_h_intern(&lf[64],6,"format"); lf[65]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\007sprintf\376\003\000\000\002\376\001\000\000\011#%sprintf\376\003\000\000\002\376\001\000\000\006format\376\003\000\000\002\376\001\000\000\010#%format\376\377\016"); lf[66]=C_h_intern(&lf[66],1,"o"); lf[67]=C_h_intern(&lf[67],10,"fold-right"); lf[68]=C_h_intern(&lf[68],4,"list"); lf[69]=C_h_intern(&lf[69],6,"lambda"); lf[70]=C_h_intern(&lf[70],3,"tmp"); lf[71]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001o\376\003\000\000\002\376\001\000\000\003#%o\376\377\016"); lf[72]=C_h_intern(&lf[72],3,"map"); lf[73]=C_h_intern(&lf[73],14,"\004coreundefined"); lf[74]=C_h_intern(&lf[74],11,"\003syssetslot"); lf[75]=C_h_intern(&lf[75],10,"\003sysappend"); lf[76]=C_h_intern(&lf[76],17,"standard-bindings"); lf[77]=C_h_intern(&lf[77],7,"length+"); lf[78]=C_h_intern(&lf[78],3,"and"); lf[79]=C_h_intern(&lf[79],5,"begin"); lf[80]=C_h_intern(&lf[80],4,"set!"); lf[81]=C_h_intern(&lf[81],4,"cons"); lf[82]=C_h_intern(&lf[82],8,"map-loop"); lf[83]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003map\376\003\000\000\002\376\001\000\000\007\003sysmap\376\003\000\000\002\376\001\000\000\005#%map\376\377\016"); lf[84]=C_h_intern(&lf[84],8,"for-each"); lf[85]=C_h_intern(&lf[85],13,"for-each-loop"); lf[86]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\010for-each\376\003\000\000\002\376\001\000\000\014\003sysfor-each\376\003\000\000\002\376\001\000\000\012#%for-each\376\377\016"); C_register_lf2(lf,87,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1251,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k2428 in k2432 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_2430,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,lf[59],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2426,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); /* compiler-syntax.scm:141: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[17]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2416 in k2420 in k2424 in k2428 in k2432 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_2418,2,av);} a=C_alloc(12); t2=C_a_i_cons(&a,2,lf[60],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2414,a[2]=((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); /* compiler-syntax.scm:141: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[23]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2412 in k2416 in k2420 in k2424 in k2428 in k2432 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_2414,2,av);} a=C_alloc(13); t2=C_a_i_cons(&a,2,lf[23],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2410,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=10,tmp); /* compiler-syntax.scm:141: ##sys#primitive-alias */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[16]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2408 in k2412 in k2416 in k2420 in k2424 in k2428 in k2432 in k1341 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){ C_save_and_reclaim((void *)f_2410,2,av);} a=C_alloc(24); t2=C_a_i_cons(&a,2,lf[16],t1); t3=C_a_i_list(&a,7,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2); /* compiler-syntax.scm:141: r-c-s */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[8]; av2[2]=lf[65]; av2[3]=((C_word*)t0)[9]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2459 in k2451 in k2444 in a2435 in k1338 in k1335 in k1255 in k1252 in k1249 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_2461,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k3494 in k1255 in k1252 in k1249 */ static void C_ccall f_3496(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3496,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[48],t1); t3=C_a_i_list(&a,1,t2); /* compiler-syntax.scm:62: r-c-s */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[86]; av2[3]=((C_word*)t0)[3]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* map-loop458 in k2584 in k2893 in k2541 in k2527 in k2518 in k2515 in k2512 in k2509 in k2506 in k2503 in k2500 in k2497 in k2494 in k2491 in k2488 in k2485 in k2482 in k2479 in a2476 in k1335 in k1255 in ... */ static void C_fcall f_2793(C_word t0,C_word t1,C_word 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_2793,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_mutate2(((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);}}} /* k3482 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in a3028 in k1255 in k1252 in k1249 */ static void C_ccall f_3484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3484,2,av);} t2=((C_word*)t0)[2]; f_3066(t2,C_i_greaterp(t1,C_fix(2)));} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[191] = { {"f_1809:compiler_2dsyntax_2escm",(void*)f_1809}, {"f_1653:compiler_2dsyntax_2escm",(void*)f_1653}, {"f_1260:compiler_2dsyntax_2escm",(void*)f_1260}, {"f_1264:compiler_2dsyntax_2escm",(void*)f_1264}, {"f_1531:compiler_2dsyntax_2escm",(void*)f_1531}, {"f_2363:compiler_2dsyntax_2escm",(void*)f_2363}, {"f_1268:compiler_2dsyntax_2escm",(void*)f_1268}, {"f_2426:compiler_2dsyntax_2escm",(void*)f_2426}, {"f_2422:compiler_2dsyntax_2escm",(void*)f_2422}, {"f_1619:compiler_2dsyntax_2escm",(void*)f_1619}, {"f_1613:compiler_2dsyntax_2escm",(void*)f_1613}, {"f_1538:compiler_2dsyntax_2escm",(void*)f_1538}, {"f_1636:compiler_2dsyntax_2escm",(void*)f_1636}, {"f_1945:compiler_2dsyntax_2escm",(void*)f_1945}, {"f_1942:compiler_2dsyntax_2escm",(void*)f_1942}, {"f_1548:compiler_2dsyntax_2escm",(void*)f_1548}, {"f_1936:compiler_2dsyntax_2escm",(void*)f_1936}, {"f_1939:compiler_2dsyntax_2escm",(void*)f_1939}, {"f_1352:compiler_2dsyntax_2escm",(void*)f_1352}, {"f_1951:compiler_2dsyntax_2escm",(void*)f_1951}, {"f_1354:compiler_2dsyntax_2escm",(void*)f_1354}, {"f_1954:compiler_2dsyntax_2escm",(void*)f_1954}, {"f_2351:compiler_2dsyntax_2escm",(void*)f_2351}, {"f_2571:compiler_2dsyntax_2escm",(void*)f_2571}, {"f_1948:compiler_2dsyntax_2escm",(void*)f_1948}, {"f_2329:compiler_2dsyntax_2escm",(void*)f_2329}, {"f_2326:compiler_2dsyntax_2escm",(void*)f_2326}, {"f_1360:compiler_2dsyntax_2escm",(void*)f_1360}, {"f_2322:compiler_2dsyntax_2escm",(void*)f_2322}, {"f_2320:compiler_2dsyntax_2escm",(void*)f_2320}, {"f_2586:compiler_2dsyntax_2escm",(void*)f_2586}, {"f_2339:compiler_2dsyntax_2escm",(void*)f_2339}, {"f_2308:compiler_2dsyntax_2escm",(void*)f_2308}, {"f_2304:compiler_2dsyntax_2escm",(void*)f_2304}, {"f_2300:compiler_2dsyntax_2escm",(void*)f_2300}, {"f_2316:compiler_2dsyntax_2escm",(void*)f_2316}, {"f_2312:compiler_2dsyntax_2escm",(void*)f_2312}, {"f_2897:compiler_2dsyntax_2escm",(void*)f_2897}, {"f_2895:compiler_2dsyntax_2escm",(void*)f_2895}, {"f_1883:compiler_2dsyntax_2escm",(void*)f_1883}, {"f_1691:compiler_2dsyntax_2escm",(void*)f_1691}, {"f_1894:compiler_2dsyntax_2escm",(void*)f_1894}, {"f_1890:compiler_2dsyntax_2escm",(void*)f_1890}, {"f_1670:compiler_2dsyntax_2escm",(void*)f_1670}, {"f_1712:compiler_2dsyntax_2escm",(void*)f_1712}, {"f_1561:compiler_2dsyntax_2escm",(void*)f_1561}, {"f_1558:compiler_2dsyntax_2escm",(void*)f_1558}, {"f_2484:compiler_2dsyntax_2escm",(void*)f_2484}, {"f_2481:compiler_2dsyntax_2escm",(void*)f_2481}, {"f_2487:compiler_2dsyntax_2escm",(void*)f_2487}, {"f_3260:compiler_2dsyntax_2escm",(void*)f_3260}, {"f_2496:compiler_2dsyntax_2escm",(void*)f_2496}, {"f_2493:compiler_2dsyntax_2escm",(void*)f_2493}, {"f_2490:compiler_2dsyntax_2escm",(void*)f_2490}, {"f_2499:compiler_2dsyntax_2escm",(void*)f_2499}, {"f_1500:compiler_2dsyntax_2escm",(void*)f_1500}, {"f_2651:compiler_2dsyntax_2escm",(void*)f_2651}, {"f_1301:compiler_2dsyntax_2escm",(void*)f_1301}, {"f_1316:compiler_2dsyntax_2escm",(void*)f_1316}, {"f_2477:compiler_2dsyntax_2escm",(void*)f_2477}, {"f_1471:compiler_2dsyntax_2escm",(void*)f_1471}, {"f_1324:compiler_2dsyntax_2escm",(void*)f_1324}, {"f_1320:compiler_2dsyntax_2escm",(void*)f_1320}, {"f_1337:compiler_2dsyntax_2escm",(void*)f_1337}, {"f_1481:compiler_2dsyntax_2escm",(void*)f_1481}, {"f_2166:compiler_2dsyntax_2escm",(void*)f_2166}, {"f_2162:compiler_2dsyntax_2escm",(void*)f_2162}, {"f_2160:compiler_2dsyntax_2escm",(void*)f_2160}, {"f_3258:compiler_2dsyntax_2escm",(void*)f_3258}, {"f_1349:compiler_2dsyntax_2escm",(void*)f_1349}, {"f_1346:compiler_2dsyntax_2escm",(void*)f_1346}, {"f_3251:compiler_2dsyntax_2escm",(void*)f_3251}, {"f_2990:compiler_2dsyntax_2escm",(void*)f_2990}, {"f_1340:compiler_2dsyntax_2escm",(void*)f_1340}, {"f_1343:compiler_2dsyntax_2escm",(void*)f_1343}, {"f_2965:compiler_2dsyntax_2escm",(void*)f_2965}, {"f_2566:compiler_2dsyntax_2escm",(void*)f_2566}, {"f_3294:compiler_2dsyntax_2escm",(void*)f_3294}, {"f_2235:compiler_2dsyntax_2escm",(void*)f_2235}, {"f_2233:compiler_2dsyntax_2escm",(void*)f_2233}, {"f_2543:compiler_2dsyntax_2escm",(void*)f_2543}, {"f_2649:compiler_2dsyntax_2escm",(void*)f_2649}, {"f_2245:compiler_2dsyntax_2escm",(void*)f_2245}, {"f_3214:compiler_2dsyntax_2escm",(void*)f_3214}, {"f_3212:compiler_2dsyntax_2escm",(void*)f_3212}, {"f_2217:compiler_2dsyntax_2escm",(void*)f_2217}, {"f_2213:compiler_2dsyntax_2escm",(void*)f_2213}, {"f_3342:compiler_2dsyntax_2escm",(void*)f_3342}, {"f_2529:compiler_2dsyntax_2escm",(void*)f_2529}, {"f_2520:compiler_2dsyntax_2escm",(void*)f_2520}, {"f_2229:compiler_2dsyntax_2escm",(void*)f_2229}, {"f_2225:compiler_2dsyntax_2escm",(void*)f_2225}, {"f_2221:compiler_2dsyntax_2escm",(void*)f_2221}, {"f_2757:compiler_2dsyntax_2escm",(void*)f_2757}, {"f_2759:compiler_2dsyntax_2escm",(void*)f_2759}, {"f_2750:compiler_2dsyntax_2escm",(void*)f_2750}, {"f_2505:compiler_2dsyntax_2escm",(void*)f_2505}, {"f_2508:compiler_2dsyntax_2escm",(void*)f_2508}, {"f_2502:compiler_2dsyntax_2escm",(void*)f_2502}, {"f_2209:compiler_2dsyntax_2escm",(void*)f_2209}, {"f_1432:compiler_2dsyntax_2escm",(void*)f_1432}, {"f_1436:compiler_2dsyntax_2escm",(void*)f_1436}, {"f_1439:compiler_2dsyntax_2escm",(void*)f_1439}, {"f_1445:compiler_2dsyntax_2escm",(void*)f_1445}, {"f_2045:compiler_2dsyntax_2escm",(void*)f_2045}, {"f_2043:compiler_2dsyntax_2escm",(void*)f_2043}, {"f_1448:compiler_2dsyntax_2escm",(void*)f_1448}, {"f_2517:compiler_2dsyntax_2escm",(void*)f_2517}, {"f_2514:compiler_2dsyntax_2escm",(void*)f_2514}, {"f_2511:compiler_2dsyntax_2escm",(void*)f_2511}, {"f_3007:compiler_2dsyntax_2escm",(void*)f_3007}, {"f_1733:compiler_2dsyntax_2escm",(void*)f_1733}, {"f_2841:compiler_2dsyntax_2escm",(void*)f_2841}, {"f_1758:compiler_2dsyntax_2escm",(void*)f_1758}, {"f_3066:compiler_2dsyntax_2escm",(void*)f_3066}, {"f_3390:compiler_2dsyntax_2escm",(void*)f_3390}, {"f_1755:compiler_2dsyntax_2escm",(void*)f_1755}, {"f_3057:compiler_2dsyntax_2escm",(void*)f_3057}, {"f_3054:compiler_2dsyntax_2escm",(void*)f_3054}, {"f_3051:compiler_2dsyntax_2escm",(void*)f_3051}, {"f_3388:compiler_2dsyntax_2escm",(void*)f_3388}, {"f_3036:compiler_2dsyntax_2escm",(void*)f_3036}, {"f_3039:compiler_2dsyntax_2escm",(void*)f_3039}, {"f_3033:compiler_2dsyntax_2escm",(void*)f_3033}, {"f_1282:compiler_2dsyntax_2escm",(void*)f_1282}, {"f_3027:compiler_2dsyntax_2escm",(void*)f_3027}, {"f_3029:compiler_2dsyntax_2escm",(void*)f_3029}, {"f_3023:compiler_2dsyntax_2escm",(void*)f_3023}, {"f_1291:compiler_2dsyntax_2escm",(void*)f_1291}, {"f_1414:compiler_2dsyntax_2escm",(void*)f_1414}, {"f_1411:compiler_2dsyntax_2escm",(void*)f_1411}, {"f_1417:compiler_2dsyntax_2escm",(void*)f_1417}, {"f_1423:compiler_2dsyntax_2escm",(void*)f_1423}, {"f_3467:compiler_2dsyntax_2escm",(void*)f_3467}, {"f_1420:compiler_2dsyntax_2escm",(void*)f_1420}, {"f_2296:compiler_2dsyntax_2escm",(void*)f_2296}, {"f_1429:compiler_2dsyntax_2escm",(void*)f_1429}, {"f_3080:compiler_2dsyntax_2escm",(void*)f_3080}, {"f_1426:compiler_2dsyntax_2escm",(void*)f_1426}, {"f_1274:compiler_2dsyntax_2escm",(void*)f_1274}, {"f_3115:compiler_2dsyntax_2escm",(void*)f_3115}, {"f_2601:compiler_2dsyntax_2escm",(void*)f_2601}, {"f_3442:compiler_2dsyntax_2escm",(void*)f_3442}, {"f_1405:compiler_2dsyntax_2escm",(void*)f_1405}, {"f_1251:compiler_2dsyntax_2escm",(void*)f_1251}, {"f_1254:compiler_2dsyntax_2escm",(void*)f_1254}, {"f_3100:compiler_2dsyntax_2escm",(void*)f_3100}, {"f_1257:compiler_2dsyntax_2escm",(void*)f_1257}, {"f_1451:compiler_2dsyntax_2escm",(void*)f_1451}, {"f_1460:compiler_2dsyntax_2escm",(void*)f_1460}, {"f_1463:compiler_2dsyntax_2escm",(void*)f_1463}, {"f_2067:compiler_2dsyntax_2escm",(void*)f_2067}, {"f_2064:compiler_2dsyntax_2escm",(void*)f_2064}, {"f_1469:compiler_2dsyntax_2escm",(void*)f_1469}, {"f_1466:compiler_2dsyntax_2escm",(void*)f_1466}, {"f_3166:compiler_2dsyntax_2escm",(void*)f_3166}, {"f_3168:compiler_2dsyntax_2escm",(void*)f_3168}, {"f_3048:compiler_2dsyntax_2escm",(void*)f_3048}, {"f_3045:compiler_2dsyntax_2escm",(void*)f_3045}, {"f_3042:compiler_2dsyntax_2escm",(void*)f_3042}, {"f_2079:compiler_2dsyntax_2escm",(void*)f_2079}, {"f_2076:compiler_2dsyntax_2escm",(void*)f_2076}, {"f_2073:compiler_2dsyntax_2escm",(void*)f_2073}, {"f_1388:compiler_2dsyntax_2escm",(void*)f_1388}, {"f_2070:compiler_2dsyntax_2escm",(void*)f_2070}, {"f_1385:compiler_2dsyntax_2escm",(void*)f_1385}, {"f_1912:compiler_2dsyntax_2escm",(void*)f_1912}, {"f_1382:compiler_2dsyntax_2escm",(void*)f_1382}, {"f_2446:compiler_2dsyntax_2escm",(void*)f_2446}, {"f_2713:compiler_2dsyntax_2escm",(void*)f_2713}, {"f_2711:compiler_2dsyntax_2escm",(void*)f_2711}, {"f_1584:compiler_2dsyntax_2escm",(void*)f_1584}, {"f_1395:compiler_2dsyntax_2escm",(void*)f_1395}, {"f_1392:compiler_2dsyntax_2escm",(void*)f_1392}, {"f_2453:compiler_2dsyntax_2escm",(void*)f_2453}, {"f_1917:compiler_2dsyntax_2escm",(void*)f_1917}, {"f_1915:compiler_2dsyntax_2escm",(void*)f_1915}, {"f_3095:compiler_2dsyntax_2escm",(void*)f_3095}, {"f_3130:compiler_2dsyntax_2escm",(void*)f_3130}, {"f_2434:compiler_2dsyntax_2escm",(void*)f_2434}, {"f_2436:compiler_2dsyntax_2escm",(void*)f_2436}, {"toplevel:compiler_2dsyntax_2escm",(void*)C_compiler_2dsyntax_toplevel}, {"f_2430:compiler_2dsyntax_2escm",(void*)f_2430}, {"f_2418:compiler_2dsyntax_2escm",(void*)f_2418}, {"f_2414:compiler_2dsyntax_2escm",(void*)f_2414}, {"f_2410:compiler_2dsyntax_2escm",(void*)f_2410}, {"f_2461:compiler_2dsyntax_2escm",(void*)f_2461}, {"f_3496:compiler_2dsyntax_2escm",(void*)f_3496}, {"f_2793:compiler_2dsyntax_2escm",(void*)f_2793}, {"f_3484:compiler_2dsyntax_2escm",(void*)f_3484}, {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| sprintf 2 S| map 14 S| for-each 1 o|eliminated procedure checks: 220 o|specializations: o| 11 (eqv? (not float) *) o| 1 (= fixnum fixnum) o| 2 (##sys#check-output-port * * *) o| 3 (car pair) o| 1 (cddr (pair * pair)) o| 2 (>= fixnum fixnum) o| 2 (cdr pair) o| 1 (memq * list) o| 15 (##sys#check-list (or pair list) *) (o e)|safe calls: 330 (o e)|assignments to immediate values: 2 o|safe globals: (##compiler#r-c-s ##sys#compiler-syntax-hook ##compiler#compiler-syntax-statistics) o|inlining procedure: k1293 o|inlining procedure: k1293 o|inlining procedure: k1362 o|merged explicitly consed rest parameter: args662 o|inlining procedure: k1396 o|inlining procedure: k1396 o|substituted constant variable: a1407 o|substituted constant variable: a1408 o|substituted constant variable: a1441 o|substituted constant variable: a1442 o|inlining procedure: k1434 o|inlining procedure: k1434 o|inlining procedure: k1483 o|consed rest parameter at call site: "(compiler-syntax.scm:208) fail659" 3 o|inlining procedure: k1483 o|inlining procedure: k1502 o|inlining procedure: k1512 o|inlining procedure: k1512 o|substituted constant variable: a1532 o|inlining procedure: k1502 o|inlining procedure: k1374 o|inlining procedure: k1550 o|consed rest parameter at call site: "(compiler-syntax.scm:223) fail659" 3 o|inlining procedure: k1550 o|inlining procedure: k1617 o|inlining procedure: k1617 o|inlining procedure: k1654 o|inlining procedure: k1654 o|inlining procedure: k1692 o|inlining procedure: k1692 o|inlining procedure: k1734 o|inlining procedure: k1734 o|inlining procedure: k1766 o|inlining procedure: k1766 o|inlining procedure: k1795 o|inlining procedure: k1811 o|inlining procedure: k1811 o|inlining procedure: k1795 o|consed rest parameter at call site: "(compiler-syntax.scm:262) fail659" 3 o|substituted constant variable: a1835 o|substituted constant variable: a1837 o|substituted constant variable: a1839 o|substituted constant variable: a1841 o|substituted constant variable: a1843 o|substituted constant variable: a1845 o|substituted constant variable: a1847 o|substituted constant variable: a1849 o|substituted constant variable: a1851 o|substituted constant variable: a1853 o|substituted constant variable: a1855 o|inlining procedure: k1374 o|inlining procedure: k1872 o|inlining procedure: k1872 o|inlining procedure: k1362 o|substituted constant variable: a1909 o|inlining procedure: k1919 o|inlining procedure: k1919 o|inlining procedure: k2047 o|inlining procedure: k2047 o|inlining procedure: k2167 o|inlining procedure: k2167 o|inlining procedure: k2237 o|inlining procedure: k2237 o|substituted constant variable: a2260 o|inlining procedure: k2330 o|inlining procedure: k2330 o|substituted constant variable: a2374 o|inlining procedure: k2438 o|inlining procedure: k2438 o|inlining procedure: k2524 o|inlining procedure: k2653 o|contracted procedure: "(compiler-syntax.scm:130) g555564" o|inlining procedure: k2653 o|inlining procedure: k2715 o|contracted procedure: "(compiler-syntax.scm:124) g525534" o|inlining procedure: k2715 o|inlining procedure: k2761 o|inlining procedure: k2761 o|inlining procedure: k2795 o|inlining procedure: k2795 o|inlining procedure: k2843 o|inlining procedure: k2843 o|inlining procedure: k2899 o|inlining procedure: k2899 o|inlining procedure: k2967 o|contracted procedure: "(compiler-syntax.scm:111) g373382" o|inlining procedure: k2967 o|inlining procedure: k2524 o|inlining procedure: k3061 o|inlining procedure: k3170 o|contracted procedure: "(compiler-syntax.scm:89) g315324" o|inlining procedure: k3170 o|inlining procedure: k3216 o|contracted procedure: "(compiler-syntax.scm:86) g285294" o|inlining procedure: k3216 o|inlining procedure: k3262 o|inlining procedure: k3262 o|inlining procedure: k3296 o|inlining procedure: k3296 o|inlining procedure: k3344 o|inlining procedure: k3344 o|inlining procedure: k3392 o|inlining procedure: k3392 o|inlining procedure: k3444 o|contracted procedure: "(compiler-syntax.scm:76) g133142" o|inlining procedure: k3444 o|inlining procedure: k3061 o|simplifications: ((if . 1)) o|replaced variables: 353 o|removed binding forms: 126 o|substituted constant variable: r14353504 o|substituted constant variable: r14353504 o|converted assignments to bindings: (fail659) o|substituted constant variable: r13753539 o|substituted constant variable: r18733541 o|substituted constant variable: r13633542 o|simplifications: ((let . 1)) o|replaced variables: 2 o|removed binding forms: 383 o|replaced variables: 12 o|removed binding forms: 7 o|removed binding forms: 11 o|simplifications: ((if . 11) (##core#call . 340)) o| call simplifications: o| cddr 2 o| > 2 o| ##sys#check-list 4 o| list 4 o| ##sys#setslot 14 o| fx> o| fx= 2 o| cadr 5 o| caddr 2 o| cadddr 2 o| fx>= 2 o| memq 6 o| list? o| caar o| string? 3 o| string-length o| >= o| char-upcase o| char-whitespace? 2 o| sub1 o| ##sys#cons 44 o| length 6 o| eq? 13 o| ##sys#list 101 o| cdr 3 o| string-ref o| fx+ o| ##sys#apply o| null? 3 o| car 6 o| cons 31 o| pair? 20 o| ##sys#slot 52 o| add1 o|contracted procedure: k1270 o|contracted procedure: k1329 o|contracted procedure: k1276 o|contracted procedure: k1279 o|contracted procedure: k1296 o|contracted procedure: k1306 o|contracted procedure: k1310 o|contracted procedure: k1326 o|contracted procedure: k1906 o|contracted procedure: k1365 o|contracted procedure: k1371 o|contracted procedure: k1902 o|contracted procedure: k1377 o|contracted procedure: k1455 o|contracted procedure: k1473 o|contracted procedure: k1477 o|contracted procedure: k1486 o|contracted procedure: k1492 o|contracted procedure: k1496 o|contracted procedure: k1505 o|contracted procedure: k1534 o|contracted procedure: k1515 o|contracted procedure: k1522 o|inlining procedure: k1512 o|inlining procedure: k1512 o|contracted procedure: k1541 o|contracted procedure: k1553 o|contracted procedure: k1590 o|contracted procedure: k1570 o|contracted procedure: k1586 o|contracted procedure: k1578 o|contracted procedure: k1574 o|contracted procedure: k1566 o|contracted procedure: k1593 o|contracted procedure: k1605 o|contracted procedure: k1614 o|contracted procedure: k1623 o|contracted procedure: k1630 o|contracted procedure: k1640 o|contracted procedure: k1647 o|contracted procedure: k1657 o|contracted procedure: k1664 o|contracted procedure: k1674 o|contracted procedure: k1685 o|contracted procedure: k1681 o|contracted procedure: k1695 o|contracted procedure: k1706 o|contracted procedure: k1702 o|contracted procedure: k1716 o|contracted procedure: k1727 o|contracted procedure: k1723 o|contracted procedure: k1737 o|contracted procedure: k1744 o|contracted procedure: k1750 o|contracted procedure: k1763 o|contracted procedure: k1769 o|contracted procedure: k1776 o|contracted procedure: k1782 o|contracted procedure: k1785 o|contracted procedure: k1792 o|contracted procedure: k1798 o|contracted procedure: k1814 o|contracted procedure: k1825 o|contracted procedure: k1860 o|contracted procedure: k1863 o|contracted procedure: k1875 o|contracted procedure: k1896 o|contracted procedure: k2029 o|contracted procedure: k2022 o|contracted procedure: k1922 o|contracted procedure: k1925 o|contracted procedure: k1928 o|contracted procedure: k1931 o|contracted procedure: k2015 o|contracted procedure: k2019 o|contracted procedure: k1959 o|contracted procedure: k2011 o|contracted procedure: k2007 o|contracted procedure: k1963 o|contracted procedure: k1999 o|contracted procedure: k2003 o|contracted procedure: k1971 o|contracted procedure: k1979 o|contracted procedure: k1987 o|contracted procedure: k1995 o|contracted procedure: k1991 o|contracted procedure: k1983 o|contracted procedure: k1975 o|contracted procedure: k1967 o|contracted procedure: k2037 o|contracted procedure: k2033 o|contracted procedure: k2146 o|contracted procedure: k2139 o|contracted procedure: k2050 o|contracted procedure: k2053 o|contracted procedure: k2056 o|contracted procedure: k2059 o|contracted procedure: k2136 o|contracted procedure: k2084 o|contracted procedure: k2132 o|contracted procedure: k2128 o|contracted procedure: k2088 o|contracted procedure: k2124 o|contracted procedure: k2096 o|contracted procedure: k2104 o|contracted procedure: k2112 o|contracted procedure: k2120 o|contracted procedure: k2116 o|contracted procedure: k2108 o|contracted procedure: k2100 o|contracted procedure: k2092 o|contracted procedure: k2154 o|contracted procedure: k2150 o|contracted procedure: k2171 o|contracted procedure: k2179 o|contracted procedure: k2183 o|contracted procedure: k2187 o|contracted procedure: k2191 o|contracted procedure: k2195 o|contracted procedure: k2199 o|contracted procedure: k2203 o|contracted procedure: k2175 o|contracted procedure: k2257 o|contracted procedure: k2240 o|contracted procedure: k2250 o|contracted procedure: k2266 o|contracted procedure: k2270 o|contracted procedure: k2274 o|contracted procedure: k2278 o|contracted procedure: k2282 o|contracted procedure: k2286 o|contracted procedure: k2290 o|contracted procedure: k2262 o|contracted procedure: k2357 o|contracted procedure: k2353 o|contracted procedure: k2341 o|contracted procedure: k2345 o|contracted procedure: k2371 o|contracted procedure: k2365 o|contracted procedure: k2380 o|contracted procedure: k2384 o|contracted procedure: k2388 o|contracted procedure: k2392 o|contracted procedure: k2396 o|contracted procedure: k2400 o|contracted procedure: k2404 o|contracted procedure: k2376 o|contracted procedure: k2473 o|contracted procedure: k2466 o|contracted procedure: k2441 o|contracted procedure: k2455 o|contracted procedure: k2463 o|contracted procedure: k2521 o|contracted procedure: k2530 o|contracted procedure: k2538 o|contracted procedure: k2957 o|contracted procedure: k2961 o|contracted procedure: k2953 o|contracted procedure: k2949 o|contracted procedure: k2548 o|contracted procedure: k2875 o|contracted procedure: k2945 o|contracted procedure: k2883 o|contracted procedure: k2887 o|contracted procedure: k2890 o|contracted procedure: k2879 o|contracted procedure: k2560 o|contracted procedure: k2556 o|contracted procedure: k2552 o|contracted procedure: k2568 o|contracted procedure: k2581 o|contracted procedure: k2577 o|contracted procedure: k2596 o|contracted procedure: k2747 o|contracted procedure: k2607 o|contracted procedure: k2701 o|contracted procedure: k2693 o|contracted procedure: k2697 o|contracted procedure: k2689 o|contracted procedure: k2685 o|contracted procedure: k2619 o|contracted procedure: k2623 o|contracted procedure: k2627 o|contracted procedure: k2639 o|contracted procedure: k2635 o|contracted procedure: k2631 o|contracted procedure: k2611 o|contracted procedure: k2615 o|contracted procedure: k2603 o|contracted procedure: k2592 o|contracted procedure: k2588 o|contracted procedure: k2656 o|contracted procedure: k2678 o|contracted procedure: k2674 o|contracted procedure: k2659 o|contracted procedure: k2662 o|contracted procedure: k2670 o|contracted procedure: k2718 o|contracted procedure: k2740 o|contracted procedure: k2736 o|contracted procedure: k2721 o|contracted procedure: k2724 o|contracted procedure: k2732 o|contracted procedure: k2764 o|contracted procedure: k2767 o|contracted procedure: k2770 o|contracted procedure: k2778 o|contracted procedure: k2786 o|contracted procedure: k2834 o|contracted procedure: k2798 o|contracted procedure: k2824 o|contracted procedure: k2828 o|contracted procedure: k2820 o|contracted procedure: k2801 o|contracted procedure: k2804 o|contracted procedure: k2812 o|contracted procedure: k2816 o|contracted procedure: k2846 o|contracted procedure: k2849 o|contracted procedure: k2852 o|contracted procedure: k2860 o|contracted procedure: k2868 o|contracted procedure: k2938 o|contracted procedure: k2902 o|contracted procedure: k2928 o|contracted procedure: k2932 o|contracted procedure: k2924 o|contracted procedure: k2905 o|contracted procedure: k2908 o|contracted procedure: k2916 o|contracted procedure: k2920 o|contracted procedure: k2970 o|contracted procedure: k2973 o|contracted procedure: k2976 o|contracted procedure: k2984 o|contracted procedure: k2992 o|contracted procedure: k2998 o|contracted procedure: k3013 o|contracted procedure: k3017 o|contracted procedure: k3009 o|contracted procedure: k3058 o|contracted procedure: k3067 o|contracted procedure: k3075 o|contracted procedure: k3438 o|contracted procedure: k3376 o|contracted procedure: k3380 o|contracted procedure: k3383 o|contracted procedure: k3089 o|contracted procedure: k3085 o|contracted procedure: k3097 o|contracted procedure: k3110 o|contracted procedure: k3106 o|contracted procedure: k3125 o|contracted procedure: k3248 o|contracted procedure: k3136 o|contracted procedure: k3202 o|contracted procedure: k3144 o|contracted procedure: k3156 o|contracted procedure: k3152 o|contracted procedure: k3148 o|contracted procedure: k3140 o|contracted procedure: k3132 o|contracted procedure: k3121 o|contracted procedure: k3117 o|contracted procedure: k3173 o|contracted procedure: k3195 o|contracted procedure: k3191 o|contracted procedure: k3176 o|contracted procedure: k3179 o|contracted procedure: k3187 o|contracted procedure: k3219 o|contracted procedure: k3241 o|contracted procedure: k3237 o|contracted procedure: k3222 o|contracted procedure: k3225 o|contracted procedure: k3233 o|contracted procedure: k3265 o|contracted procedure: k3268 o|contracted procedure: k3271 o|contracted procedure: k3279 o|contracted procedure: k3287 o|contracted procedure: k3335 o|contracted procedure: k3299 o|contracted procedure: k3325 o|contracted procedure: k3329 o|contracted procedure: k3321 o|contracted procedure: k3302 o|contracted procedure: k3305 o|contracted procedure: k3313 o|contracted procedure: k3317 o|contracted procedure: k3347 o|contracted procedure: k3350 o|contracted procedure: k3353 o|contracted procedure: k3361 o|contracted procedure: k3369 o|contracted procedure: k3431 o|contracted procedure: k3395 o|contracted procedure: k3421 o|contracted procedure: k3425 o|contracted procedure: k3417 o|contracted procedure: k3398 o|contracted procedure: k3401 o|contracted procedure: k3409 o|contracted procedure: k3413 o|contracted procedure: k3447 o|contracted procedure: k3450 o|contracted procedure: k3453 o|contracted procedure: k3461 o|contracted procedure: k3469 o|contracted procedure: k3475 o|contracted procedure: k3490 o|contracted procedure: k3486 o|simplifications: ((let . 32)) o|removed binding forms: 310 o|replaced variables: 86 o|removed binding forms: 1 o|removed binding forms: 52 o|direct leaf routine/allocation: fetch702 0 o|direct leaf routine/allocation: push705 3 o|direct leaf routine/allocation: g434443 21 o|direct leaf routine/allocation: g495504 6 o|direct leaf routine/allocation: g194203 21 o|direct leaf routine/allocation: g255264 6 o|contracted procedure: "(compiler-syntax.scm:229) k1599" o|contracted procedure: "(compiler-syntax.scm:231) k1608" o|inlining procedure: "(compiler-syntax.scm:234) k1617" o|inlining procedure: "(compiler-syntax.scm:235) k1617" o|inlining procedure: "(compiler-syntax.scm:236) k1617" o|inlining procedure: "(compiler-syntax.scm:238) k1617" o|inlining procedure: "(compiler-syntax.scm:242) k1617" o|inlining procedure: "(compiler-syntax.scm:246) k1617" o|inlining procedure: "(compiler-syntax.scm:249) k1617" o|inlining procedure: "(compiler-syntax.scm:253) k1617" o|inlining procedure: "(compiler-syntax.scm:254) k1617" o|inlining procedure: "(compiler-syntax.scm:255) k1617" o|contracted procedure: "(compiler-syntax.scm:258) k1805" o|contracted procedure: "(compiler-syntax.scm:260) k1821" o|contracted procedure: "(compiler-syntax.scm:120) k2782" o|contracted procedure: "(compiler-syntax.scm:116) k2864" o|contracted procedure: "(compiler-syntax.scm:83) k3283" o|contracted procedure: "(compiler-syntax.scm:79) k3365" o|removed binding forms: 8 o|customizable procedures: (k3064 map-loop127145 map-loop157176 map-loop188209 map-loop218237 map-loop249270 map-loop279300 map-loop309330 k2527 map-loop367385 map-loop397416 map-loop428449 map-loop458477 map-loop489510 map-loop519540 map-loop549570 k1380 skip772 next703 loop718 endchunk704 fail659 g4350 for-each-loop4253) o|calls to known targets: 69 o|identified direct recursive calls: f_1809 1 o|identified direct recursive calls: f_1548 1 o|identified direct recursive calls: f_2651 1 o|identified direct recursive calls: f_2713 1 o|identified direct recursive calls: f_2759 1 o|identified direct recursive calls: f_2793 1 o|identified direct recursive calls: f_2841 1 o|identified direct recursive calls: f_2897 1 o|identified direct recursive calls: f_3168 1 o|identified direct recursive calls: f_3214 1 o|identified direct recursive calls: f_3260 1 o|identified direct recursive calls: f_3294 1 o|identified direct recursive calls: f_3342 1 o|identified direct recursive calls: f_3390 1 o|fast box initializations: 21 */ /* end of file */ chicken-4.12.0/ports.import.scm0000644000175000017500000000370713052306173016203 0ustar sjamaansjamaan;;;; ports.import.scm - import library for "ports" module ; ; Copyright (c) 2008-2017, 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 'ports '(call-with-input-string call-with-output-string copy-port make-input-port make-output-port port-for-each port-map port-fold make-broadcast-port make-concatenated-port 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-port)) chicken-4.12.0/chicken.h0000644000175000017500000034637713052302444014606 0ustar sjamaansjamaan/* chicken.h - General headerfile for compiler generated executables ; ; Copyright (c) 2008-2017, 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: */ /* * The Watcom (__WATCOMC__), Metroworks (__MWERKS__), and Delorie (__DJGPP__) * compilers are not currently supported but existing references remain, * just in case. */ #ifndef ___CHICKEN #define ___CHICKEN #define C_MAJOR_VERSION 4 #define C_MINOR_VERSION 12 #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 _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__) || defined(__WATCOMC__) || defined(__MWERKS__) /* * 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 for access to Timer Queue functions. */ #ifdef __MINGW32__ # define _WIN32_WINNT 0x0500 #endif /* Headers */ #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__) || defined(__WATCOMC__) # 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 # elif defined(__WATCOMC__) # undef C_fctimport # define C_fctimport __declspec(dllexport) # undef C_externimport # undef C_externexport # define C_externexport C_extern __declspec(dllexport) # undef C_varextern # undef C_fctexport # ifdef C_BUILDING_LIBCHICKEN # define C_varextern C_extern __declspec(dllexport) # define C_fctexport __declspec(dllexport) # define C_externimport C_extern __declspec(dllexport) # else # define C_varextern C_extern __declspec(dllimport) # define C_fctexport __declspec(dllimport) # define C_externimport 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 #elif defined(__WATCOMC__) # define C_ccall __cdecl # define C_unlikely(x) (x) # define C_likely(x) (x) #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 #define C_c_regparm #if defined(__GNUC__) || defined(__INTEL_COMPILER) || defined(__cplusplus) # define C_inline inline static #else # define C_inline static #endif /* Thread Local Stoarage */ #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 # define C_STACK_GROWS_DOWNWARD -1 #endif #if C_STACK_GROWS_DOWNWARD == -1 # ifdef __hppa__ # undef C_STACK_GROWS_DOWNWARD # define C_STACK_GROWS_DOWNWARD 0 # else # undef C_STACK_GROWS_DOWNWARD # define C_STACK_GROWS_DOWNWARD 1 # endif #endif /* Have a GUI? */ #if defined(C_WINDOWS_GUI) || defined(C_GUI) || defined(C_PRIVATE_REPOSITORY) # ifdef _WIN32 # include # ifndef WINAPI # define WINAPI # endif # endif #else # define C_GENERIC_CONSOLE #endif /* Needed for pre-emptive threading */ #define C_TIMER_INTERRUPTS /* For the `bind' (and the obsolete `easyffi'): */ #define ___fixnum int #define ___number double #define ___bool int #define ___byte char #define ___scheme_value C_word #define ___scheme_pointer void * #define ___blob void * #define ___pointer_vector void ** #define ___symbol char * #define ___safe #define ___declare(x, y) #define ___specialize #define ___abstract #define ___discard #define ___in #define ___out #define ___inout #define ___mutable #define ___length(var) #define ___pointer #define ___u32 C_u32 #define ___s32 C_s32 #define ___u64 C_u64 #define ___s64 C_s64 #if defined(C_SOLARIS) && !defined(isinf) # define isinf(x) \ (sizeof (x) == sizeof (long double) ? isinf_ld (x) \ : sizeof (x) == sizeof (double) ? isinf_d (x) \ : isinf_f (x)) static inline int isinf_f (float x) { return !isnan (x) && isnan (x - x); } static inline int isinf_d (double x) { return !isnan (x) && isnan (x - x); } static inline int isinf_ld (long double x) { return !isnan (x) && isnan (x - x); } #endif /* Mingw's isnormal() is broken on 32bit; use GCC's builtin (see #1062) */ #ifdef __MINGW32__ # undef isnormal # define isnormal __builtin_isnormal #endif /* 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 #else # define C_MOST_POSITIVE_FIXNUM 0x3fffffff # define C_WORD_SIZE 32 #endif #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) /* unused (0x0600000000000000L ...) */ # 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_SWIG_POINTER_TYPE (0x0c00000000000000L | C_SPECIALBLOCK_BIT) # define C_LAMBDA_INFO_TYPE (0x0d00000000000000L | C_BYTEBLOCK_BIT) /* unused (0x0e00000000000000L ...) */ # define C_BUCKET_TYPE (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 /* unused (0x06000000 ...) */ # 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_SWIG_POINTER_TYPE (0x0c000000 | C_SPECIALBLOCK_BIT) # define C_LAMBDA_INFO_TYPE (0x0d000000 | C_BYTEBLOCK_BIT) /* unused (0x0e000000 ...) */ # define C_BUCKET_TYPE (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_BUCKET + 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_SWIG_POINTER 3 #define C_SIZEOF_VECTOR(n) ((n) + 1) #define C_SIZEOF_BUCKET 3 #define C_SIZEOF_LOCATIVE 5 #define C_SIZEOF_PORT 16 #define C_SIZEOF_CLOSURE(n) ((n)+1) /* Fixed size types have pre-computed header tags */ #define C_PAIR_TAG (C_PAIR_TYPE | (C_SIZEOF_PAIR - 1)) #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_SWIG_POINTER_TAG (C_SWIG_POINTER_TYPE | (C_wordstobytes(C_SIZEOF_SWIG_POINTER - 1))) #define C_SYMBOL_TAG (C_SYMBOL_TYPE | (C_SIZEOF_SYMBOL - 1)) #define C_FLONUM_TAG (C_FLONUM_TYPE | sizeof(double)) /* 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_F32_LOCATIVE 8 #define C_F64_LOCATIVE 9 #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 # else # define C_word long # endif # define C_u32 uint32_t # define C_s32 int32_t #else # define C_word int # 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_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_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_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 /* Unused: 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_NO_INPUT_PORT_ERROR 40 #define C_BAD_ARGUMENT_TYPE_NO_OUTPUT_PORT_ERROR 41 #define C_PORT_CLOSED_ERROR 42 #define C_ASCIIZ_REPRESENTATION_ERROR 43 #define C_MEMORY_VIOLATION_ERROR 44 #define C_FLOATING_POINT_EXCEPTION_ERROR 45 #define C_ILLEGAL_INSTRUCTION_ERROR 46 #define C_BUS_ERROR 47 /* 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(__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(__CYGWIN__) # define C_BUILD_PLATFORM "cygwin" #elif defined(__SUNPRO_C) # define C_BUILD_PLATFORM "sun" #elif defined(__MINGW32__) # define C_BUILD_PLATFORM "mingw32" #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(__MWERKS__) # define C_BUILD_PLATFORM "metrowerks" #elif defined(__INTEL_COMPILER) # define C_BUILD_PLATFORM "intel" #elif defined(__WATCOMC__) # define C_BUILD_PLATFORM "watcom" #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" /* This is as silly as the other limits, there is no PATH_MAX in The Hurd */ # define PATH_MAX 1024 #else # define C_SOFTWARE_VERSION "unknown" #endif #define C_MAX_PATH PATH_MAX /* 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_mutate2(&((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_mutate2(&C_u_i_car(((C_GC_ROOT *)(root))->value), (x)) #define CHICKEN_default_toplevel ((void *)C_default_5fstub_toplevel) #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) /* 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__STR(x) #x # 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__STR(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_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_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_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_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_data_pointer(b) C_CHECKp(b,C_blockp((C_word)C_VAL1(b)),(void *)(((C_SCHEME_BLOCK *)(C_VAL1(b)))->data)) #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_quickflonumtruncate(n) (C_fix((C_word)C_flonum_magnitude(n))) #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_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) #ifdef C_STRESS_TEST # define C_STRESS_FAILURE 3 # define C_stress (rand() % C_STRESS_FAILURE) #else # define C_stress 1 #endif #define C_stack_overflow_check C_stack_check1(C_stack_overflow()) #if C_STACK_GROWS_DOWNWARD # define C_demand(n) (C_stress && ((C_word)(C_stack_pointer - C_stack_limit) > (n))) /* OBSOLETE: */ # define C_stack_probe(p) (C_stress && ((C_word *)(p) >= C_stack_limit)) # 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_stress && ((C_word)(C_stack_limit - C_stack_pointer) > (n))) /* OBSOLETE: */ # define C_stack_probe(p) (C_stress && ((C_word *)(p) < C_stack_limit)) # 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_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_swigpointerp(x) C_mk_bool(C_block_header(x) == C_SWIG_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 || C_block_header(x) == C_SWIG_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_anyp(x) C_SCHEME_TRUE #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_u_i_exactp(x) C_mk_bool((x) & C_FIXNUM_BIT) #define C_u_i_inexactp(x) C_mk_bool(((x) & C_FIXNUM_BIT) == 0) #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_modulo(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_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) #define C_fixnum_abs(n) C_fix(abs(C_unfix(n))) #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_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_random_fixnum(n) C_fix((C_word)(((double)rand())/(RAND_MAX + 1.0) * C_unfix(n))) #define C_randomize(n) (srand(C_unfix(n)), C_SCHEME_UNDEFINED) #define C_block_size(x) C_fix(C_header_size(x)) #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_rename_file(old, new) C_fix(rename(C_c_string(old), C_c_string(new))) #define C_delete_file(fname) C_fix(remove(C_c_string(fname))) #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 # ifdef PARANOIA # define C_check_for_interrupt C_paranoid_check_for_interrupt() # else # define C_check_for_interrupt if(--C_timer_interrupt_counter <= 0) C_raise_interrupt(C_TIMER_INTERRUPT_NUMBER) # endif #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, i, n) C_flonum(ptr, n) #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_double_to_num(ptr, n) C_double_to_number(C_flonum(ptr, n)) #define C_a_i_vector C_vector #define C_list C_a_i_list #define C_i_setslot(x, i, y) (C_mutate2(&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_mutate2(&C_u_i_car(p), x), C_SCHEME_UNDEFINED) #define C_u_i_set_cdr(p, x) (C_mutate2(&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_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 ) ) #define C_a_i_times( ptr, n, x, y) C_2_times( ptr, x, y) #define C_a_i_plus( ptr, n, x, y) C_2_plus( ptr, x, y) #define C_a_i_minus( ptr, n, x, y) C_2_minus( ptr, x, y) #define C_a_i_divide(ptr, n, x, y) C_2_divide(ptr, x, y) #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_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_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_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_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_bit_setp(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_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_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) ((n1) == (n2)) #define C_ub_i_flonum_greaterp(n1, n2) ((n1) > (n2)) #define C_ub_i_flonum_lessp(n1, n2) ((n1) < (n2)) #define C_ub_i_flonum_greater_or_equal_p(n1, n2) ((n1) >= (n2)) #define C_ub_i_flonum_less_or_equal_p(n1, n2) ((n1) <= (n2)) #define C_ub_i_pointer_inc(p, n) ((void *)((unsigned char *)(p) + (n))) #define C_ub_i_pointer_eqp(p1, p2) ((p1) == (p2)) #define C_ub_i_null_pointerp(p) ((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_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_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(fname) C_use_private_repository(C_path_to_executable(fname)) #else # define C_private_repository(fname) #endif /* left for backwards-compatibility */ #define C_gui_nongui_marker #ifdef C_GUI # define C_set_gui_mode C_gui_mode = 1 #else # define C_set_gui_mode #endif #if !defined(C_EMBEDDED) && !defined(C_SHARED) # if (defined(C_WINDOWS_GUI) || 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_private_repository(NULL); \ 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_private_repository(argv[ 0 ]); \ 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)))[ i ]) #define C_ub_i_f64vector_ref(b, i) (((double *)C_data_pointer(C_block_item((b), 1)))[ i ]) #define C_ub_i_f32vector_set(v, i, x) ((((float *)C_data_pointer(C_block_item((v), 1)))[ i ] = (x)), 0) #define C_ub_i_f64vector_set(v, i, x) ((((double *)C_data_pointer(C_block_item((v), 1)))[ 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_a_i_current_milliseconds(ptr, c, dummy) C_flonum(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 0 #define C_DEBUG_GLOBAL_ASSIGN 1 #define C_DEBUG_GC 2 #define C_DEBUG_ENTRY 3 #define C_DEBUG_SIGNAL 4 #define C_DEBUG_CONNECT 5 #define C_DEBUG_LISTEN 6 #define C_DEBUG_INTERRUPTED 7 #define C_debugger(cell, c, av) (C_debugger_hook != NULL ? C_debugger_hook(cell, c, av, __FILE__, __LINE__) : C_SCHEME_UNDEFINED) C_fctexport void C_register_debug_info(C_DEBUG_INFO *); /* 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_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 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, int cln); C_varextern C_TLS int C_abort_on_thread_exceptions, C_interrupts_enabled, C_disable_overflow_check, C_enable_gcweak, 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, *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 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_enable_interrupts(void) C_regparm; C_fctexport C_word C_fcall C_disable_interrupts(void) C_regparm; C_fctexport void C_fcall C_paranoid_check_for_interrupt(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_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_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_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(void) C_noret; C_fctexport void C_stack_overflow_with_loc(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 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_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_fcall C_swigmpointer(C_word **ptr, void *mp, void *sdata) 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 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 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 C_word C_fcall C_fudge(C_word fudge_factor) 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 void C_delete_symbol_table(C_SYMBOL_TABLE *st) C_regparm; C_fctexport void C_set_symbol_table(C_SYMBOL_TABLE *st) 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_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_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_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_divide) 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_expt) 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_build_symbol) C_noret; C_fctexport C_cpsproc(C_flonum_fraction) C_noret; C_fctexport C_cpsproc(C_flonum_rat) C_noret; C_fctexport C_cpsproc(C_quotient) 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_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_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_locative_ref) C_noret; /* DEPRECATED */ 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_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_a_i_abs(C_word **a, int c, C_word n) C_regparm; C_fctexport C_word C_fcall C_i_listp(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_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_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_u_i_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_u_i_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_u_i_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_u_i_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_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_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_inexact_to_exact(C_word n) 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_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_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_2_times(C_word **ptr, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_2_plus(C_word **ptr, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_2_minus(C_word **ptr, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_2_divide(C_word **ptr, 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_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_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_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_a_i_bitwise_and(C_word **a, int c, C_word n1, C_word n2) C_regparm; C_fctexport C_word C_fcall C_a_i_bitwise_ior(C_word **a, int c, C_word n1, C_word n2) C_regparm; C_fctexport C_word C_fcall C_a_i_bitwise_not(C_word **a, int c, C_word n1) C_regparm; C_fctexport C_word C_fcall C_i_bit_setp(C_word n, C_word i) C_regparm; C_fctexport C_word C_fcall C_a_i_bitwise_xor(C_word **a, int c, C_word n1, C_word n2) C_regparm; C_fctexport C_word C_fcall C_a_i_arithmetic_shift(C_word **a, int c, C_word n1, C_word n2) 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_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_get_keyword(C_word key, C_word args, C_word def) C_regparm; C_fctexport double C_fcall C_milliseconds(void) C_regparm; C_fctexport double C_fcall C_cpu_milliseconds(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_string_to_number(C_word **a, int c, C_word str, C_word radix) 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_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_integer_argumentp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_foreign_unsigned_integer_argumentp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_foreign_integer64_argumentp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_foreign_unsigned_integer64_argumentp(C_word x) 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_char *C_executable_path(); #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 C_inline C_word *C_a_i(C_word **a, int n) { C_word *p = *a; *a += n; return p; } #endif C_inline C_word C_mutate(C_word *slot, C_word val) { if(!C_immediatep(val)) return C_mutate_slot(slot, val); else return *slot = val; } C_inline C_word C_mutate2(C_word *slot, C_word val) /* OBSOLETE */ { if(!C_immediatep(val)) return C_mutate_slot(slot, val); else return *slot = val; } C_inline C_word C_permanentp(C_word x) { return C_mk_bool(!C_immediatep(x) && !C_in_stackp(x) && !C_in_heapp(x)); } C_inline 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; } C_inline C_word C_string_to_pbytevector(C_word s) { return C_pbytevector(C_header_size(s), (C_char *)C_data_pointer(s)); } C_inline C_word C_flonum_in_fixnum_range_p(C_word n) { double f = C_flonum_magnitude(n); return C_mk_bool(f <= (double)C_MOST_POSITIVE_FIXNUM && f >= (double)C_MOST_NEGATIVE_FIXNUM); } C_inline C_word C_double_to_number(C_word n) { double m, f = C_flonum_magnitude(n); if(f <= (double)C_MOST_POSITIVE_FIXNUM && f >= (double)C_MOST_NEGATIVE_FIXNUM && C_modf(f, &m) == 0.0) return C_fix(f); else return n; } C_inline C_word C_fits_in_int_p(C_word x) { double n, m; if(x & C_FIXNUM_BIT) return C_SCHEME_TRUE; n = C_flonum_magnitude(x); return C_mk_bool(C_modf(n, &m) == 0.0 && n >= C_WORD_MIN && n <= C_WORD_MAX); } C_inline C_word C_fits_in_unsigned_int_p(C_word x) { double n, m; if(x & C_FIXNUM_BIT) return C_SCHEME_TRUE; n = C_flonum_magnitude(x); return C_mk_bool(C_modf(n, &m) == 0.0 && n >= 0 && n <= C_UWORD_MAX); } C_inline double C_c_double(C_word x) { if(x & C_FIXNUM_BIT) return (double)C_unfix(x); else return C_flonum_magnitude(x); } C_inline C_word C_num_to_int(C_word x) { if(x & C_FIXNUM_BIT) return C_unfix(x); else return (int)C_flonum_magnitude(x); } C_inline C_s64 C_num_to_int64(C_word x) { if(x & C_FIXNUM_BIT) return (C_s64)C_unfix(x); else return (C_s64)C_flonum_magnitude(x); } C_inline C_u64 C_num_to_uint64(C_word x) { if(x & C_FIXNUM_BIT) return (C_u64)C_unfix(x); else return (C_u64)C_flonum_magnitude(x); } C_inline C_uword C_num_to_unsigned_int(C_word x) { if(x & C_FIXNUM_BIT) return C_unfix(x); else return (unsigned int)C_flonum_magnitude(x); } C_inline C_word C_int_to_num(C_word **ptr, C_word n) { if(C_fitsinfixnump(n)) return C_fix(n); else return C_flonum(ptr, (double)n); } C_inline C_word C_unsigned_int_to_num(C_word **ptr, C_uword n) { if(C_ufitsinfixnump(n)) return C_fix(n); else return C_flonum(ptr, (double)n); } C_inline C_word C_long_to_num(C_word **ptr, C_long n) { if(C_fitsinfixnump(n)) return C_fix(n); else return C_flonum(ptr, (double)n); } C_inline C_word C_unsigned_long_to_num(C_word **ptr, C_ulong n) { if(C_ufitsinfixnump(n)) return C_fix(n); else return C_flonum(ptr, (double)n); } C_inline C_word C_flonum_in_int_range_p(C_word n) { double m = C_flonum_magnitude(n); return C_mk_bool(m >= C_WORD_MIN && m <= C_WORD_MAX); } C_inline C_word C_flonum_in_uint_range_p(C_word n) { double m = C_flonum_magnitude(n); return C_mk_bool(m >= 0 && m <= C_UWORD_MAX); } C_inline char *C_string_or_null(C_word x) { return C_truep(x) ? C_c_string(x) : NULL; } C_inline void *C_data_pointer_or_null(C_word x) { return C_truep(x) ? C_data_pointer(x) : NULL; } C_inline void *C_srfi_4_vector_or_null(C_word x) { return C_truep(x) ? C_srfi_4_vector(x) : NULL; } C_inline void *C_c_pointer_vector_or_null(C_word x) { return C_truep(x) ? C_data_pointer(C_block_item(x, 2)) : NULL; } C_inline void *C_c_pointer_or_null(C_word x) { return C_truep(x) ? (void *)C_block_item(x, 0) : NULL; } C_inline void *C_scheme_or_c_pointer(C_word x) { return C_anypointerp(x) ? (void *)C_block_item(x, 0) : C_data_pointer(x); } C_inline C_long C_num_to_long(C_word x) { if(x & C_FIXNUM_BIT) return C_unfix(x); else return (C_long)C_flonum_magnitude(x); } C_inline C_ulong C_num_to_unsigned_long(C_word x) { if(x & C_FIXNUM_BIT) return C_unfix(x); else return (C_ulong)C_flonum_magnitude(x); } C_inline C_word C_u_i_string_equal_p(C_word x, C_word y) { C_word n; 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) */ C_inline 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; } C_inline C_word C_i_eqvp(C_word x, C_word y) { return C_mk_bool(x == y || (!C_immediatep(x) && !C_immediatep(y) && C_block_header(x) == C_FLONUM_TAG && C_block_header(y) == C_FLONUM_TAG && C_flonum_magnitude(x) == C_flonum_magnitude(y) ) ); } C_inline C_word C_i_symbolp(C_word x) { return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_SYMBOL_TAG); } C_inline C_word C_i_pairp(C_word x) { return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_PAIR_TAG); } C_inline C_word C_i_stringp(C_word x) { return C_mk_bool(!C_immediatep(x) && C_header_bits(x) == C_STRING_TYPE); } C_inline C_word C_i_locativep(C_word x) { return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_LOCATIVE_TAG); } C_inline C_word C_i_vectorp(C_word x) { return C_mk_bool(!C_immediatep(x) && C_header_bits(x) == C_VECTOR_TYPE); } C_inline C_word C_i_portp(C_word x) { return C_mk_bool(!C_immediatep(x) && C_header_bits(x) == C_PORT_TYPE); } C_inline C_word C_i_closurep(C_word x) { return C_mk_bool(!C_immediatep(x) && C_header_bits(x) == C_CLOSURE_TYPE); } C_inline 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_inline C_word C_i_rationalp(C_word x) { if((x & C_FIXNUM_BIT) != 0) return C_SCHEME_TRUE; if((!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG)) { double n = C_flonum_magnitude(x); if(!C_isinf(n) && !C_isnan(n)) return C_SCHEME_TRUE; } return C_SCHEME_FALSE; } C_inline 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); } C_inline int C_ub_i_fpintegerp(double x) { double dummy; return C_modf(x, &dummy) == 0.0; } C_inline C_word C_i_integerp(C_word x) { double dummy, val; if (x & C_FIXNUM_BIT) 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); } C_inline C_word C_i_flonump(C_word x) { return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG); } C_inline C_word C_i_finitep(C_word x) { double val; if((x & C_FIXNUM_BIT) != 0) return C_SCHEME_TRUE; val = C_flonum_magnitude(x); if(C_isnan(val) || C_isinf(val)) return C_SCHEME_FALSE; else return C_SCHEME_TRUE; } C_inline C_word C_i_fixnum_min(C_word x, C_word y) { return ((C_word)x < (C_word)y) ? x : y; } C_inline C_word C_i_fixnum_max(C_word x, C_word y) { return ((C_word)x > (C_word)y) ? x : y; } C_inline 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); } C_inline C_word C_fixnum_modulo(C_word x, C_word y) { if(y == C_fix(0)) C_div_by_zero_error(C_text("fxmod")); return C_u_fixnum_modulo(x, y); } C_inline 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); } C_inline 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; } C_inline 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; } C_inline 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); } C_inline 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; } C_inline 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_SWIG_POINTER_TAG: case C_TAGGED_POINTER_TAG: return C_SCHEME_TRUE; } return C_SCHEME_FALSE; } C_inline 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; } C_inline 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; } C_inline 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); } C_inline void * C_fast_retrieve_symbol_proc(C_word sym) { return C_fast_retrieve_proc(C_fast_retrieve(sym)); } C_inline 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; } C_inline 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; } C_inline 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; } C_inline 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; } C_inline 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; } C_inline 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; } C_inline 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; } C_inline 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; } C_inline 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; } C_inline C_word C_fcall C_a_bucket(C_word **ptr, C_word head, C_word tail) { C_word *p = *ptr, *p0 = p; *(p++) = C_BUCKET_TYPE | (C_SIZEOF_BUCKET - 1); *(p++) = head; *(p++) = tail; *ptr = p; return (C_word)p0; } C_inline 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); } C_inline 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); } C_inline 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); } C_inline 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); } C_inline 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); } C_inline 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); } C_inline 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); } C_inline 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); } C_inline 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; } C_inline 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; } C_inline 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; } C_inline 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; } C_inline 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; } C_inline 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; } C_inline 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; } C_inline 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; } /* These strl* functions are based on public domain code by C.B. Falconer */ #ifdef HAVE_STRLCPY # define C_strlcpy strlcpy #else C_inline 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 C_inline 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 #ifdef C_PRIVATE_REPOSITORY # if defined(C_MACOSX) && defined(C_GUI) # include # elif defined(__HAIKU__) # include # endif C_inline C_char * C_path_to_executable(C_char *fname) { 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//exe */ pid_t pid; int ret; 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 ret = C_readlink(linkname, buffer, C_MAX_PATH - 1); if(ret == -1 || ret >= C_MAX_PATH - 1) return NULL; for(--ret; ret > 0 && buffer[ ret ] != '/'; --ret); buffer[ ret ] = '\0'; return buffer; # elif defined(_WIN32) && !defined(__CYGWIN__) int i; int n = GetModuleFileName(NULL, buffer, C_MAX_PATH - 1); if(n == 0 || n >= C_MAX_PATH - 1) return NULL; for(i = n - 1; i >= 0 && buffer[ i ] != '\\'; --i); buffer[ i ] = '\0'; return buffer; # elif defined(C_MACOSX) && defined(C_GUI) CFBundleRef bundle = CFBundleGetMainBundle(); CFURLRef url = CFBundleCopyExecutableURL(bundle); int i; if(CFURLGetFileSystemRepresentation(url, true, buffer, C_MAX_PATH)) { for(i = C_strlen(buffer); i >= 0 && buffer[ i ] != '/'; --i); buffer[ i ] = '\0'; return buffer; } else return NULL; # elif defined(__unix__) || defined(__unix) || defined(C_XXXBSD) || defined(_AIX) int i, j, k, l; C_char *path, *dname; /* found on stackoverflow.com: */ /* no name given (execve) */ if(fname == NULL) return NULL; i = C_strlen(fname) - 1; while(i >= 0 && fname[ i ] != '/') --i; /* absolute path */ if(*fname == '/') { fname[ i ] = '\0'; C_strlcpy(buffer, fname, C_MAX_PATH); return buffer; } else { /* try current dir */ if(C_getcwd(buffer, C_MAX_PATH - 1) == NULL) return NULL; C_strlcat(buffer, "/", C_MAX_PATH); C_strlcat(buffer, fname, C_MAX_PATH); if(C_access(buffer, F_OK) == 0) { for(i = C_strlen(buffer); i >= 0 && buffer[ i ] != '/'; --i); buffer[ i ] = '\0'; return buffer; } /* walk PATH */ path = C_getenv("PATH"); if(path == NULL) return NULL; for(l = j = k = 0; !l; ++k) { switch(path[ k ]) { case '\0': if(k == 0) return NULL; /* empty PATH */ else l = 1; /* fall through */ case ':': C_strncpy(buffer, path + j, k - j); buffer[ k - j ] = '\0'; C_strlcat(buffer, "/", C_MAX_PATH); C_strlcat(buffer, fname, C_MAX_PATH); if(C_access(buffer, F_OK) == 0) { dname = C_strdup(buffer); l = C_readlink(dname, buffer, C_MAX_PATH - 1); if(l == -1) { /* not a symlink (we ignore other errors here */ buffer[ k - j ] = '\0'; } else { while(l > 0 && buffer[ l ] != '/') --l; C_free(dname); buffer[ l ] = '\0'; } return buffer; } else j = k + 1; break; default: ; } } return NULL; } # elif defined(__HAIKU__) { image_info info; int32 cookie = 0; int32 i; while (get_next_image_info(0, &cookie, &info) == B_OK) { if (info.type == B_APP_IMAGE) { C_strlcpy(buffer, info.name, C_MAX_PATH); for(i = C_strlen(buffer); i >= 0 && buffer[ i ] != '/'; --i); buffer[ i ] = '\0'; return buffer; } } } return NULL; # else return NULL; # endif } #endif C_END_C_DECLS #endif /* ___CHICKEN */ chicken-4.12.0/srfi-1.scm0000644000175000017500000015710113052306173014622 0ustar sjamaansjamaan;;;; srfi-1.scm - Shivers' reference implementation of SRFI-1 ; Some things to make it work with CHICKEN: (flw) ; (declare (unit srfi-1) (disable-interrupts) (hide ##srfi1#cars+cdrs/no-test ##srfi1#cdrs ##srfi1#cars+ ##srfi1#really-append-map ##srfi1#cars+cdrs+ ##srfi1#cars+cdrs ##srfi1#lset2<=) (not standard-bindings member assoc)) (include "common-declarations.scm") (register-feature! 'srfi-1) ;;; SRFI-1 list-processing library -*- Scheme -*- ;;; Reference implementation ;;; ;;; Copyright (c) 1998, 1999 by Olin Shivers. You may do as you please with ;;; this code as long as you do not remove this copyright notice or ;;; hold me liable for its use. Please send bug reports to shivers@ai.mit.edu. ;;; -Olin ;;; This is a library of list- and pair-processing functions. I wrote it after ;;; carefully considering the functions provided by the libraries found in ;;; R4RS/R5RS Scheme, MIT Scheme, Gambit, RScheme, MzScheme, slib, Common ;;; Lisp, Bigloo, guile, T, APL and the SML standard basis. It is a pretty ;;; rich toolkit, providing a superset of the functionality found in any of ;;; the various Schemes I considered. ;;; This implementation is intended as a portable reference implementation ;;; for SRFI-1. See the porting notes below for more information. ;;; Exported: ;;; xcons tree-copy make-list list-tabulate cons* list-copy ;;; proper-list? circular-list? dotted-list? not-pair? null-list? list= ;;; circular-list length+ ;;; iota ;;; first second third fourth fifth sixth seventh eighth ninth tenth ;;; car+cdr ;;; take drop ;;; take-right drop-right ;;; take! drop-right! ;;; split-at split-at! ;;; last last-pair ;;; zip unzip1 unzip2 unzip3 unzip4 unzip5 ;;; count ;;; append! append-reverse append-reverse! concatenate concatenate! ;;; unfold fold pair-fold reduce ;;; unfold-right fold-right pair-fold-right reduce-right ;;; append-map append-map! map! pair-for-each filter-map map-in-order ;;; filter partition remove ;;; filter! partition! remove! ;;; find find-tail any every list-index ;;; take-while drop-while take-while! ;;; span break span! break! ;;; In principle, the following R4RS list- and pair-processing procedures ;;; are also part of this package's exports, although they are not defined ;;; in this file: ;;; Primitives: cons pair? null? car cdr set-car! set-cdr! ;;; Non-primitives: list length append reverse cadr ... cddddr list-ref ;;; memq memv assq assv ;;; (The non-primitives are defined in this file, but commented out.) ;;; ;;; These R4RS procedures have extended definitions in SRFI-1 and are defined ;;; in this file: ;;; map for-each member assoc ;;; ;;; The remaining two R4RS list-processing procedures are not included: ;;; list-tail (use drop) ;;; list? (use proper-list?) ;;; A note on recursion and iteration/reversal: ;;; Many iterative list-processing algorithms naturally compute the elements ;;; of the answer list in the wrong order (left-to-right or head-to-tail) from ;;; the order needed to cons them into the proper answer (right-to-left, or ;;; tail-then-head). One style or idiom of programming these algorithms, then, ;;; loops, consing up the elements in reverse order, then destructively ;;; reverses the list at the end of the loop. I do not do this. The natural ;;; and efficient way to code these algorithms is recursively. This trades off ;;; intermediate temporary list structure for intermediate temporary stack ;;; structure. In a stack-based system, this improves cache locality and ;;; lightens the load on the GC system. Don't stand on your head to iterate! ;;; Recurse, where natural. Multiple-value returns make this even more ;;; convenient, when the recursion/iteration has multiple state values. ;;; Porting: ;;; This is carefully tuned code; do not modify casually. ;;; - It is careful to share storage when possible; ;;; - Side-effecting code tries not to perform redundant writes. ;;; ;;; That said, a port of this library to a specific Scheme system might wish ;;; to tune this code to exploit particulars of the implementation. ;;; The single most important compiler-specific optimisation you could make ;;; to this library would be to add rewrite rules or transforms to: ;;; - transform applications of n-ary procedures (e.g. LIST=, CONS*, APPEND, ;;; LSET-UNION) into multiple applications of a primitive two-argument ;;; variant. ;;; - transform applications of the mapping functions (MAP, FOR-EACH, FOLD, ;;; ANY, EVERY) into open-coded loops. The killer here is that these ;;; functions are n-ary. Handling the general case is quite inefficient, ;;; requiring many intermediate data structures to be allocated and ;;; discarded. ;;; - transform applications of procedures that take optional arguments ;;; into calls to variants that do not take optional arguments. This ;;; eliminates unnecessary consing and parsing of the rest parameter. ;;; ;;; These transforms would provide BIG speedups. In particular, the n-ary ;;; mapping functions are particularly slow and cons-intensive, and are good ;;; candidates for tuning. I have coded fast paths for the single-list cases, ;;; but what you really want to do is exploit the fact that the compiler ;;; usually knows how many arguments are being passed to a particular ;;; application of these functions -- they are usually explicitly called, not ;;; passed around as higher-order values. If you can arrange to have your ;;; compiler produce custom code or custom linkages based on the number of ;;; arguments in the call, you can speed these functions up a *lot*. But this ;;; kind of compiler technology no longer exists in the Scheme world as far as ;;; I can see. ;;; ;;; Note that this code is, of course, dependent upon standard bindings for ;;; the R5RS procedures -- i.e., it assumes that the variable CAR is bound ;;; to the procedure that takes the car of a list. If your Scheme ;;; implementation allows user code to alter the bindings of these procedures ;;; in a manner that would be visible to these definitions, then there might ;;; be trouble. You could consider horrible kludgery along the lines of ;;; (define fact ;;; (let ((= =) (- -) (* *)) ;;; (letrec ((real-fact (lambda (n) ;;; (if (= n 0) 1 (* n (real-fact (- n 1))))))) ;;; real-fact))) ;;; Or you could consider shifting to a reasonable Scheme system that, say, ;;; has a module system protecting code from this kind of lossage. ;;; ;;; This code does a fair amount of run-time argument checking. If your ;;; Scheme system has a sophisticated compiler that can eliminate redundant ;;; error checks, this is no problem. However, if not, these checks incur ;;; some performance overhead -- and, in a safe Scheme implementation, they ;;; are in some sense redundant: if we don't check to see that the PROC ;;; parameter is a procedure, we'll find out anyway three lines later when ;;; we try to call the value. It's pretty easy to rip all this argument ;;; checking code out if it's inappropriate for your implementation -- just ;;; nuke every call to CHECK-ARG. ;;; ;;; On the other hand, if you *do* have a sophisticated compiler that will ;;; actually perform soft-typing and eliminate redundant checks (Rice's systems ;;; being the only possible candidate of which I'm aware), leaving these checks ;;; in can *help*, since their presence can be elided in redundant cases, ;;; and in cases where they are needed, performing the checks early, at ;;; procedure entry, can "lift" a check out of a loop. ;;; ;;; Finally, I have only checked the properties that can portably be checked ;;; with R5RS Scheme -- and this is not complete. You may wish to alter ;;; the CHECK-ARG parameter checks to perform extra, implementation-specific ;;; checks, such as procedure arity for higher-order values. ;;; ;;; The code has only these non-R4RS dependencies: ;;; A few calls to an ERROR procedure; ;;; Uses of the R5RS multiple-value procedure VALUES and the m-v binding ;;; RECEIVE macro (which isn't R5RS, but is a trivial macro). ;;; Many calls to a parameter-checking procedure check-arg: ;;; (define (check-arg pred val caller) ;;; (let lp ((val val)) ;;; (if (pred val) val (lp (error "Bad argument" val pred caller))))) ;;; A few uses of the LET-OPTIONAL and :OPTIONAL macros for parsing ;;; optional arguments. ;;; ;;; Most of these procedures use the NULL-LIST? test to trigger the ;;; base case in the inner loop or recursion. The NULL-LIST? function ;;; is defined to be a careful one -- it raises an error if passed a ;;; non-nil, non-pair value. The spec allows an implementation to use ;;; a less-careful implementation that simply defines NULL-LIST? to ;;; be NOT-PAIR?. This would speed up the inner loops of these procedures ;;; at the expense of having them silently accept dotted lists. ;;; A note on dotted lists: ;;; I, personally, take the view that the only consistent view of lists ;;; in Scheme is the view that *everything* is a list -- values such as ;;; 3 or "foo" or 'bar are simply empty dotted lists. This is due to the ;;; fact that Scheme actually has no true list type. It has a pair type, ;;; and there is an *interpretation* of the trees built using this type ;;; as lists. ;;; ;;; I lobbied to have these list-processing procedures hew to this ;;; view, and accept any value as a list argument. I was overwhelmingly ;;; overruled during the SRFI discussion phase. So I am inserting this ;;; text in the reference lib and the SRFI spec as a sort of "minority ;;; opinion" dissent. ;;; ;;; Many of the procedures in this library can be trivially redefined ;;; to handle dotted lists, just by changing the NULL-LIST? base-case ;;; check to NOT-PAIR?, meaning that any non-pair value is taken to be ;;; an empty list. For most of these procedures, that's all that is ;;; required. ;;; ;;; However, we have to do a little more work for some procedures that ;;; *produce* lists from other lists. Were we to extend these procedures to ;;; accept dotted lists, we would have to define how they terminate the lists ;;; produced as results when passed a dotted list. I designed a coherent set ;;; of termination rules for these cases; this was posted to the SRFI-1 ;;; discussion list. I additionally wrote an earlier version of this library ;;; that implemented that spec. It has been discarded during later phases of ;;; the definition and implementation of this library. ;;; ;;; The argument *against* defining these procedures to work on dotted ;;; lists is that dotted lists are the rare, odd case, and that by ;;; arranging for the procedures to handle them, we lose error checking ;;; in the cases where a dotted list is passed by accident -- e.g., when ;;; the programmer swaps a two arguments to a list-processing function, ;;; one being a scalar and one being a list. For example, ;;; (member '(1 3 5 7 9) 7) ;;; This would quietly return #f if we extended MEMBER to accept dotted ;;; lists. ;;; ;;; The SRFI discussion record contains more discussion on this topic. ;;; Constructors ;;;;;;;;;;;;;;;; ;;; Occasionally useful as a value to be passed to a fold or other ;;; higher-order procedure. (define (xcons d a) (cons a d)) ;;;; Recursively copy every cons. ;(define (tree-copy x) ; (let recur ((x x)) ; (if (not (pair? x)) x ; (cons (recur (car x)) (recur (cdr x)))))) ;;; Make a list of length LEN. (define (make-list len . maybe-elt) ; (check-arg (lambda (n) (and (integer? n) (>= n 0))) len make-list) (##sys#check-exact len 'make-list) (let ((elt (cond ((null? maybe-elt) #f) ; Default value ((null? (cdr maybe-elt)) (car maybe-elt)) (else (##sys#error 'make-list "Too many arguments to MAKE-LIST" (cons len maybe-elt)))))) (do ((i len (fx- i 1)) (ans '() (cons elt ans))) ((fx<= i 0) ans)))) ;(define (list . ans) ans) ; R4RS ;;; Make a list of length LEN. Elt i is (PROC i) for 0 <= i < LEN. (define (list-tabulate len proc) ; (check-arg (lambda (n) (and (integer? n) (>= n 0))) len list-tabulate) ; (check-arg procedure? proc list-tabulate) (##sys#check-exact len 'list-tabulate) (do ((i (fx- len 1) (fx- i 1)) (ans '() (cons (proc i) ans))) ((fx< i 0) ans))) ;;; (cons* a1 a2 ... an) = (cons a1 (cons a2 (cons ... an))) ;;; (cons* a1) = a1 (cons* a1 a2 ...) = (cons a1 (cons* a2 ...)) ;;; ;;; (cons first (unfold not-pair? car cdr rest values)) (define (cons* first . rest) (let recur ((x first) (rest rest)) (if (pair? rest) (cons x (recur (car rest) (cdr rest))) x))) ;;; (unfold not-pair? car cdr lis values) (define (list-copy lis) (let recur ((lis lis)) (if (pair? lis) (cons (car lis) (recur (cdr lis))) lis))) ;;; IOTA count [start step] (start start+step ... start+(count-1)*step) (define (iota count . maybe-start+step) ; (check-arg integer? count iota) (##sys#check-number count 'iota) (if (< count 0) (##sys#error 'iota "Negative step count" iota count)) (let-optionals maybe-start+step ((start 0) ; Olin, I'm tired of fixing your stupid bugs - why didn't (step 1) ) ; you use your own macros, then? (##sys#check-number start 'iota) (##sys#check-number step 'iota) ; (check-arg number? start iota) ; (check-arg number? step iota) (let ((last-val (+ start (* (- count 1) step)))) (do ((count count (- count 1)) (val last-val (- val step)) (ans '() (cons val ans))) ((<= count 0) ans))))) ;;; I thought these were lovely, but the public at large did not share my ;;; enthusiasm... ;;; :IOTA to (0 ... to-1) ;;; :IOTA from to (from ... to-1) ;;; :IOTA from to step (from from+step ...) ;;; IOTA: to (1 ... to) ;;; IOTA: from to (from+1 ... to) ;;; IOTA: from to step (from+step from+2step ...) ;(define (##srfi1#parse-iota-args arg1 rest-args proc) ; (let ((check (lambda (n) (check-arg integer? n proc)))) ; (check arg1) ; (if (pair? rest-args) ; (let ((arg2 (check (car rest-args))) ; (rest (cdr rest-args))) ; (if (pair? rest) ; (let ((arg3 (check (car rest))) ; (rest (cdr rest))) ; (if (pair? rest) (error "Too many parameters" proc arg1 rest-args) ; (values arg1 arg2 arg3))) ; (values arg1 arg2 1))) ; (values 0 arg1 1)))) ; ;(define (iota: arg1 . rest-args) ; (receive (from to step) (##srfi1#parse-iota-args arg1 rest-args iota:) ; (let* ((numsteps (floor (/ (- to from) step))) ; (last-val (+ from (* step numsteps)))) ; (if (< numsteps 0) (error "Negative step count" iota: from to step)) ; (do ((steps-left numsteps (- steps-left 1)) ; (val last-val (- val step)) ; (ans '() (cons val ans))) ; ((<= steps-left 0) ans))))) ; ; ;(define (:iota arg1 . rest-args) ; (receive (from to step) (##srfi1#parse-iota-args arg1 rest-args :iota) ; (let* ((numsteps (ceiling (/ (- to from) step))) ; (last-val (+ from (* step (- numsteps 1))))) ; (if (< numsteps 0) (error "Negative step count" :iota from to step)) ; (do ((steps-left numsteps (- steps-left 1)) ; (val last-val (- val step)) ; (ans '() (cons val ans))) ; ((<= steps-left 0) ans))))) (define (circular-list val1 . vals) (let ((ans (cons val1 vals))) (set-cdr! (last-pair ans) ans) ans)) ;;; ::= () ; Empty proper list ;;; | (cons ) ; Proper-list pair ;;; Note that this definition rules out circular lists -- and this ;;; function is required to detect this case and return false. (define proper-list? list?) #;(define (proper-list? x) (let lp ((x x) (lag x)) (if (pair? x) (let ((x (cdr x))) (if (pair? x) (let ((x (cdr x)) (lag (cdr lag))) (and (not (eq? x lag)) (lp x lag))) (null? x))) (null? x)))) ;;; A dotted list is a finite list (possibly of length 0) terminated ;;; by a non-nil value. Any non-cons, non-nil value (e.g., "foo" or 5) ;;; is a dotted list of length 0. ;;; ;;; ::= ; Empty dotted list ;;; | (cons ) ; Proper-list pair (define (dotted-list? x) (let lp ((x x) (lag x)) (if (pair? x) (let ((x (cdr x))) (if (pair? x) (let ((x (cdr x)) (lag (cdr lag))) (and (not (eq? x lag)) (lp x lag))) (not (null? x)))) (not (null? x))))) (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 (not-pair? x) (##core#inline "C_i_not_pair_p" x)) ;;; This is a legal definition which is fast and sloppy: ;;; (define null-list? not-pair?) ;;; but we'll provide a more careful one: (define (null-list? l) (##core#inline "C_i_null_list_p" l)) (define (list= = . lists) (##sys#check-closure = 'list=) (or (null? lists) ; special case (let lp1 ((list-a (car lists)) (others (cdr lists))) (or (null? others) (let ((list-b (car others)) (others (cdr others))) (if (eq? list-a list-b) ; EQ? => LIST= (lp1 list-b others) (let lp2 ((la list-a) (lb list-b)) (if (null-list? la) (and (null-list? lb) (lp1 list-b others)) (and (not (null-list? lb)) (= (car la) (car lb)) (lp2 (cdr la) (cdr lb))))))))))) ;;; R4RS, so commented out. ;(define (length x) ; LENGTH may diverge or ; (let lp ((x x) (len 0)) ; raise an error if X is ; (if (pair? x) ; a circular list. This version ; (lp (cdr x) (+ len 1)) ; diverges. ; len))) (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 (zip list1 . more-lists) (apply map list list1 more-lists)) ;;; Selectors ;;;;;;;;;;;;; ;;; R4RS non-primitives: ;(define (caar x) (car (car x))) ;(define (cadr x) (car (cdr x))) ;(define (cdar x) (cdr (car x))) ;(define (cddr x) (cdr (cdr x))) ; ;(define (caaar x) (caar (car x))) ;(define (caadr x) (caar (cdr x))) ;(define (cadar x) (cadr (car x))) ;(define (caddr x) (cadr (cdr x))) ;(define (cdaar x) (cdar (car x))) ;(define (cdadr x) (cdar (cdr x))) ;(define (cddar x) (cddr (car x))) ;(define (cdddr x) (cddr (cdr x))) ; ;(define (caaaar x) (caaar (car x))) ;(define (caaadr x) (caaar (cdr x))) ;(define (caadar x) (caadr (car x))) ;(define (caaddr x) (caadr (cdr x))) ;(define (cadaar x) (cadar (car x))) ;(define (cadadr x) (cadar (cdr x))) ;(define (caddar x) (caddr (car x))) ;(define (cadddr x) (caddr (cdr x))) ;(define (cdaaar x) (cdaar (car x))) ;(define (cdaadr x) (cdaar (cdr x))) ;(define (cdadar x) (cdadr (car x))) ;(define (cdaddr x) (cdadr (cdr x))) ;(define (cddaar x) (cddar (car x))) ;(define (cddadr x) (cddar (cdr x))) ;(define (cdddar x) (cdddr (car x))) ;(define (cddddr x) (cdddr (cdr x))) (define first car) (define second cadr) (define third caddr) (define fourth cadddr) (define (fifth x) (car (cddddr x))) (define (sixth x) (cadr (cddddr x))) (define (seventh x) (caddr (cddddr x))) (define (eighth x) (cadddr (cddddr x))) (define (ninth x) (car (cddddr (cddddr x)))) (define (tenth x) (cadr (cddddr (cddddr x)))) (define (car+cdr pair) (##sys#check-pair pair 'car+cdr) (values (##sys#slot pair 0) (##sys#slot pair 1)) ) ;;; take & drop (define (take lis k) (##sys#check-exact k 'take) ; (check-arg integer? k take) (let recur ((lis lis) (k k)) (if (eq? 0 k) '() (cons (car lis) (recur (cdr lis) (fx- k 1)))))) (define (drop lis k) (##sys#check-exact k 'drop) ; (check-arg integer? k drop) (let iter ((lis lis) (k k)) (if (eq? 0 k) lis (iter (cdr lis) (fx- k 1))))) (define (take! lis k) (##sys#check-exact k 'take!) ; (check-arg integer? k take!) (if (eq? 0 k) '() (begin (set-cdr! (drop lis (fx- k 1)) '()) lis))) ;;; TAKE-RIGHT and DROP-RIGHT work by getting two pointers into the list, ;;; off by K, then chasing down the list until the lead pointer falls off ;;; the end. (define (take-right lis k) ; (check-arg integer? k take-right) (let lp ((lag lis) (lead (drop lis k))) (if (pair? lead) (lp (cdr lag) (cdr lead)) lag))) (define (drop-right lis k) ; (check-arg integer? k drop-right) (let recur ((lag lis) (lead (drop lis k))) (if (pair? lead) (cons (car lag) (recur (cdr lag) (cdr lead))) '()))) ;;; In this function, LEAD is actually K+1 ahead of LAG. This lets ;;; us stop LAG one step early, in time to smash its cdr to (). (define (drop-right! lis k) ; (check-arg integer? k drop-right!) (let ((lead (drop lis k))) (if (pair? lead) (let lp ((lag lis) (lead (cdr lead))) ; Standard case (if (pair? lead) (lp (cdr lag) (cdr lead)) (begin (set-cdr! lag '()) lis))) '()))) ; Special case dropping everything -- no cons to side-effect. ;(define (list-ref lis i) (car (drop lis i))) ; R4RS ;;; These use the APL convention, whereby negative indices mean ;;; "from the right." I liked them, but they didn't win over the ;;; SRFI reviewers. ;;; K >= 0: Take and drop K elts from the front of the list. ;;; K <= 0: Take and drop -K elts from the end of the list. ;(define (take lis k) ; (check-arg integer? k take) ; (if (negative? k) ; (list-tail lis (+ k (length lis))) ; (let recur ((lis lis) (k k)) ; (if (zero? k) '() ; (cons (car lis) ; (recur (cdr lis) (- k 1))))))) ; ;(define (drop lis k) ; (check-arg integer? k drop) ; (if (negative? k) ; (let recur ((lis lis) (nelts (+ k (length lis)))) ; (if (zero? nelts) '() ; (cons (car lis) ; (recur (cdr lis) (- nelts 1))))) ; (list-tail lis k))) ; ; ;(define (take! lis k) ; (check-arg integer? k take!) ; (cond ((zero? k) '()) ; ((positive? k) ; (set-cdr! (list-tail lis (- k 1)) '()) ; lis) ; (else (list-tail lis (+ k (length lis)))))) ; ;(define (drop! lis k) ; (check-arg integer? k drop!) ; (if (negative? k) ; (let ((nelts (+ k (length lis)))) ; (if (zero? nelts) '() ; (begin (set-cdr! (list-tail lis (- nelts 1)) '()) ; lis))) ; (list-tail lis k))) (define (split-at x k) (##sys#check-exact k 'split-at) ; (check-arg integer? k split-at) (let recur ((lis x) (k k)) (if (eq? 0 k) (values '() lis) (receive (prefix suffix) (recur (cdr lis) (fx- k 1)) (values (cons (car lis) prefix) suffix))))) (define (split-at! x k) (##sys#check-exact k 'split-at!) ; (check-arg integer? k split-at!) (if (eq? 0 k) (values '() x) (let* ((prev (drop x (fx- k 1))) (suffix (cdr prev))) (set-cdr! prev '()) (values x suffix)))) (define (last lis) (car (last-pair lis))) (define (last-pair lis) ; (check-arg pair? lis last-pair) (let lp ((lis lis)) (let ((tail (cdr lis))) (if (pair? tail) (lp tail) lis)))) ;;; Unzippers -- 1 through 5 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (unzip1 lis) (map car lis)) (define (unzip2 lis) (let recur ((lis lis)) (if (null-list? lis) (values lis lis) ; Use NOT-PAIR? to handle (let ((elt (car lis))) ; dotted lists. (receive (a b) (recur (cdr lis)) (values (cons (car elt) a) (cons (cadr elt) b))))))) (define (unzip3 lis) (let recur ((lis lis)) (if (null-list? lis) (values lis lis lis) (let ((elt (car lis))) (receive (a b c) (recur (cdr lis)) (values (cons (car elt) a) (cons (cadr elt) b) (cons (caddr elt) c))))))) (define (unzip4 lis) (let recur ((lis lis)) (if (null-list? lis) (values lis lis lis lis) (let ((elt (car lis))) (receive (a b c d) (recur (cdr lis)) (values (cons (car elt) a) (cons (cadr elt) b) (cons (caddr elt) c) (cons (cadddr elt) d))))))) (define (unzip5 lis) (let recur ((lis lis)) (if (null-list? lis) (values lis lis lis lis lis) (let ((elt (car lis))) (receive (a b c d e) (recur (cdr lis)) (values (cons (car elt) a) (cons (cadr elt) b) (cons (caddr elt) c) (cons (cadddr elt) d) (cons (car (cddddr elt)) e))))))) ;;; append! append-reverse append-reverse! concatenate concatenate! ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (append! . lists) ;; First, scan through lists looking for a non-empty one. (let lp ((lists lists) (prev '())) (if (not (pair? lists)) prev (let ((first (car lists)) (rest (cdr lists))) (if (not (pair? first)) (lp rest first) ;; Now, do the splicing. (let lp2 ((tail-cons (last-pair first)) (rest rest)) (if (pair? rest) (let ((next (car rest)) (rest (cdr rest))) (set-cdr! tail-cons next) (lp2 (if (pair? next) (last-pair next) tail-cons) rest)) first))))))) ;;; APPEND is R4RS. ;(define (append . lists) ; (if (pair? lists) ; (let recur ((list1 (car lists)) (lists (cdr lists))) ; (if (pair? lists) ; (let ((tail (recur (car lists) (cdr lists)))) ; (fold-right cons tail list1)) ; Append LIST1 & TAIL. ; list1)) ; '())) ;(define (append-reverse rev-head tail) (fold cons tail rev-head)) ;(define (append-reverse! rev-head tail) ; (pair-fold (lambda (pair tail) (set-cdr! pair tail) pair) ; tail ; rev-head)) ;;; Hand-inline the FOLD and PAIR-FOLD ops for speed. (define (append-reverse rev-head tail) (let lp ((rev-head rev-head) (tail tail)) (if (null-list? rev-head) tail (lp (cdr rev-head) (cons (car rev-head) tail))))) (define (append-reverse! rev-head tail) (let lp ((rev-head rev-head) (tail tail)) (if (null-list? rev-head) tail (let ((next-rev (cdr rev-head))) (set-cdr! rev-head tail) (lp next-rev rev-head))))) (define (concatenate lists) (reduce-right append '() lists)) (define (concatenate! lists) (reduce-right append! '() lists)) ;;; Fold/map internal utilities ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; These little internal utilities are used by the general ;;; fold & mapper funs for the n-ary cases . It'd be nice if they got inlined. ;;; One the other hand, the n-ary cases are painfully inefficient as it is. ;;; An aggressive implementation should simply re-write these functions ;;; for raw efficiency; I have written them for as much clarity, portability, ;;; and simplicity as can be achieved. ;;; ;;; I use the dreaded call/cc to do local aborts. A good compiler could ;;; handle this with extreme efficiency. An implementation that provides ;;; a one-shot, non-persistent continuation grabber could help the compiler ;;; out by using that in place of the call/cc's in these routines. ;;; ;;; These functions have funky definitions that are precisely tuned to ;;; the needs of the fold/map procs -- for example, to minimize the number ;;; of times the argument lists need to be examined. ;;; Return (map cdr lists). ;;; However, if any element of LISTS is empty, just abort and return '(). (define (##srfi1#cdrs lists) (##sys#call-with-current-continuation (lambda (abort) (let recur ((lists lists)) (if (pair? lists) (let ((lis (car lists))) (if (null-list? lis) (abort '()) (cons (cdr lis) (recur (cdr lists))))) '()))))) (define (##srfi1#cars+ lists last-elt) ; (append! (##sys#map car lists) (list last-elt)) (let recur ((lists lists)) (if (pair? lists) (cons (caar lists) (recur (cdr lists))) (list last-elt)))) ;;; LISTS is a (not very long) non-empty list of lists. ;;; Return two lists: the cars & the cdrs of the lists. ;;; However, if any of the lists is empty, just abort and return [() ()]. (define (##srfi1#cars+cdrs lists) (##sys#call-with-current-continuation (lambda (abort) (let recur ((lists lists)) (if (pair? lists) (receive (list other-lists) (car+cdr lists) (if (null-list? list) (abort '() '()) ; LIST is empty -- bail out (receive (a d) (car+cdr list) (receive (cars cdrs) (recur other-lists) (values (cons a cars) (cons d cdrs)))))) (values '() '())))))) ;;; Like ##srfi1#CARS+CDRS, but we pass in a final elt tacked onto the end of the ;;; cars list. What a hack. (define (##srfi1#cars+cdrs+ lists cars-final) (##sys#call-with-current-continuation (lambda (abort) (let recur ((lists lists)) (if (pair? lists) (receive (list other-lists) (car+cdr lists) (if (null-list? list) (abort '() '()) ; LIST is empty -- bail out (receive (a d) (car+cdr list) (receive (cars cdrs) (recur other-lists) (values (cons a cars) (cons d cdrs)))))) (values (list cars-final) '())))))) ;;; Like ##srfi1#CARS+CDRS, but blow up if any list is empty. (define (##srfi1#cars+cdrs/no-test lists) (let recur ((lists lists)) (if (pair? lists) (receive (list other-lists) (car+cdr lists) (receive (a d) (car+cdr list) (receive (cars cdrs) (recur other-lists) (values (cons a cars) (cons d cdrs))))) (values '() '())))) ;;; count ;;;;;;;;; (define (count pred list1 . lists) ; (check-arg procedure? pred count) (if (pair? lists) ;; N-ary case (let lp ((list1 list1) (lists lists) (i 0)) (if (null-list? list1) i (receive (as ds) (##srfi1#cars+cdrs lists) (if (null? as) i (lp (cdr list1) ds (if (apply pred (car list1) as) (fx+ i 1) i)))))) ;; Fast path (let lp ((lis list1) (i 0)) (if (null-list? lis) i (lp (cdr lis) (if (pred (car lis)) (fx+ i 1) i)))))) ;;; fold/unfold ;;;;;;;;;;;;;;; (define (unfold-right p f g seed . maybe-tail) ; (check-arg procedure? p unfold-right) ; (check-arg procedure? f unfold-right) ; (check-arg procedure? g unfold-right) (let lp ((seed seed) (ans (optional maybe-tail '()))) (if (p seed) ans (lp (g seed) (cons (f seed) ans))))) (define (unfold p f g seed . maybe-tail-gen) ; (check-arg procedure? p unfold) ; (check-arg procedure? f unfold) ; (check-arg procedure? g unfold) (if (pair? maybe-tail-gen) (let ((tail-gen (car maybe-tail-gen))) (if (pair? (cdr maybe-tail-gen)) (apply error "Too many arguments" unfold p f g seed maybe-tail-gen) (let recur ((seed seed)) (if (p seed) (tail-gen seed) (cons (f seed) (recur (g seed))))))) (let recur ((seed seed)) (if (p seed) '() (cons (f seed) (recur (g seed))))))) (define (fold kons knil lis1 . lists) ; (check-arg procedure? kons fold) (if (pair? lists) (let lp ((lists (cons lis1 lists)) (ans knil)) ; N-ary case (receive (cars+ans cdrs) (##srfi1#cars+cdrs+ lists ans) (if (null? cars+ans) ans ; Done. (lp cdrs (apply kons cars+ans))))) (let lp ((lis lis1) (ans knil)) ; Fast path (if (null-list? lis) ans (lp (cdr lis) (kons (car lis) ans)))))) (define (fold-right kons knil lis1 . lists) ; (check-arg procedure? kons fold-right) (if (pair? lists) (let recur ((lists (cons lis1 lists))) ; N-ary case (let ((cdrs (##srfi1#cdrs lists))) (if (null? cdrs) knil (apply kons (##srfi1#cars+ lists (recur cdrs)))))) (let recur ((lis lis1)) ; Fast path (if (null-list? lis) knil (let ((head (car lis))) (kons head (recur (cdr lis)))))))) (define (pair-fold-right f zero lis1 . lists) ; (check-arg procedure? f pair-fold-right) (if (pair? lists) (let recur ((lists (cons lis1 lists))) ; N-ary case (let ((cdrs (##srfi1#cdrs lists))) (if (null? cdrs) zero (apply f (append! lists (list (recur cdrs))))))) (let recur ((lis lis1)) ; Fast path (if (null-list? lis) zero (f lis (recur (cdr lis))))))) (define (pair-fold f zero lis1 . lists) ; (check-arg procedure? f pair-fold) (if (pair? lists) (let lp ((lists (cons lis1 lists)) (ans zero)) ; N-ary case (let ((tails (##srfi1#cdrs lists))) (if (null? tails) ans (lp tails (apply f (append! lists (list ans))))))) (let lp ((lis lis1) (ans zero)) (if (null-list? lis) ans (let ((tail (cdr lis))) ; Grab the cdr now, (lp tail (f lis ans))))))) ; in case F SET-CDR!s LIS. ;;; REDUCE and REDUCE-RIGHT only use RIDENTITY in the empty-list case. ;;; These cannot meaningfully be n-ary. (define (reduce f ridentity lis) ; (check-arg procedure? f reduce) (if (null-list? lis) ridentity (fold f (car lis) (cdr lis)))) (define (reduce-right f ridentity lis) ; (check-arg procedure? f reduce-right) (if (null-list? lis) ridentity (let recur ((head (car lis)) (lis (cdr lis))) (if (pair? lis) (f head (recur (car lis) (cdr lis))) head)))) ;;; Mappers: append-map append-map! pair-for-each map! filter-map map-in-order ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (append-map f lis1 . lists) (##srfi1#really-append-map append-map append f lis1 lists)) (define (append-map! f lis1 . lists) (##srfi1#really-append-map append-map! append! f lis1 lists)) (define (##srfi1#really-append-map who appender f lis1 lists) ; (check-arg procedure? f who) (if (pair? lists) (receive (cars cdrs) (##srfi1#cars+cdrs (cons lis1 lists)) (if (null? cars) '() (let recur ((cars cars) (cdrs cdrs)) (let ((vals (apply f cars))) (receive (cars2 cdrs2) (##srfi1#cars+cdrs cdrs) (if (null? cars2) vals (appender vals (recur cars2 cdrs2)))))))) ;; Fast path (if (null-list? lis1) '() (let recur ((elt (car lis1)) (rest (cdr lis1))) (let ((vals (f elt))) (if (null-list? rest) vals (appender vals (recur (car rest) (cdr rest))))))))) (define (pair-for-each proc lis1 . lists) ; (check-arg procedure? proc pair-for-each) (if (pair? lists) (let lp ((lists (cons lis1 lists))) (let ((tails (##srfi1#cdrs lists))) (if (pair? tails) (begin (apply proc lists) (lp tails))))) ;; Fast path. (let lp ((lis lis1)) (if (not (null-list? lis)) (let ((tail (cdr lis))) ; Grab the cdr now, (proc lis) ; in case PROC SET-CDR!s LIS. (lp tail)))))) ;;; We stop when LIS1 runs out, not when any list runs out. (define (map! f lis1 . lists) ; (check-arg procedure? f map!) (if (pair? lists) (let lp ((lis1 lis1) (lists lists)) (if (not (null-list? lis1)) (receive (heads tails) (##srfi1#cars+cdrs/no-test lists) (set-car! lis1 (apply f (car lis1) heads)) (lp (cdr lis1) tails)))) ;; Fast path. (pair-for-each (lambda (pair) (set-car! pair (f (car pair)))) lis1)) lis1) ;;; Map F across L, and save up all the non-false results. (define (filter-map f lis1 . lists) ; (check-arg procedure? f filter-map) (if (pair? lists) (let recur ((lists (cons lis1 lists))) (receive (cars cdrs) (##srfi1#cars+cdrs lists) (if (pair? cars) (cond ((apply f cars) => (lambda (x) (cons x (recur cdrs)))) (else (recur cdrs))) ; Tail call in this arm. '()))) ;; Fast path. (let recur ((lis lis1)) (if (null-list? lis) lis (let ((tail (recur (cdr lis)))) (cond ((f (car lis)) => (lambda (x) (cons x tail))) (else tail))))))) ;;; Map F across lists, guaranteeing to go left-to-right. ;;; NOTE: Some implementations of R5RS MAP are compliant with this spec; ;;; in which case this procedure may simply be defined as a synonym for MAP. (define (map-in-order f lis1 . lists) ; (check-arg procedure? f map-in-order) (if (pair? lists) (let recur ((lists (cons lis1 lists))) (receive (cars cdrs) (##srfi1#cars+cdrs lists) (if (pair? cars) (let ((x (apply f cars))) ; Do head first, (cons x (recur cdrs))) ; then tail. '()))) ;; Fast path. (let recur ((lis lis1)) (if (null-list? lis) lis (let ((tail (cdr lis)) (x (f (car lis)))) ; Do head first, (cons x (recur tail))))))) ; then tail. ;;; We extend MAP to handle arguments of unequal length. (define map map-in-order) ;;; filter, remove, partition ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; FILTER, REMOVE, PARTITION and their destructive counterparts do not ;;; disorder the elements of their argument. ;; This FILTER shares the longest tail of L that has no deleted elements. ;; If Scheme had multi-continuation calls, they could be made more efficient. (define (filter pred lis) ; Sleazing with EQ? makes this ; (check-arg procedure? pred filter) ; one faster. (let recur ((lis lis)) (if (null-list? lis) lis ; Use NOT-PAIR? to handle dotted lists. (let ((head (car lis)) (tail (cdr lis))) (if (pred head) (let ((new-tail (recur tail))) ; Replicate the RECUR call so (if (eq? tail new-tail) lis (cons head new-tail))) (recur tail)))))) ; this one can be a tail call. ;;; Another version that shares longest tail. ;(define (filter pred lis) ; (receive (ans no-del?) ; ;; (recur l) returns L with (pred x) values filtered. ; ;; It also returns a flag NO-DEL? if the returned value ; ;; is EQ? to L, i.e. if it didn't have to delete anything. ; (let recur ((l l)) ; (if (null-list? l) (values l #t) ; (let ((x (car l)) ; (tl (cdr l))) ; (if (pred x) ; (receive (ans no-del?) (recur tl) ; (if no-del? ; (values l #t) ; (values (cons x ans) #f))) ; (receive (ans no-del?) (recur tl) ; Delete X. ; (values ans #f)))))) ; ans)) ;(define (filter! pred lis) ; Things are much simpler ; (let recur ((lis lis)) ; if you are willing to ; (if (pair? lis) ; push N stack frames & do N ; (cond ((pred (car lis)) ; SET-CDR! writes, where N is ; (set-cdr! lis (recur (cdr lis))); the length of the answer. ; lis) ; (else (recur (cdr lis)))) ; lis))) ;;; This implementation of FILTER! ;;; - doesn't cons, and uses no stack; ;;; - is careful not to do redundant SET-CDR! writes, as writes to memory are ;;; usually expensive on modern machines, and can be extremely expensive on ;;; modern Schemes (e.g., ones that have generational GC's). ;;; It just zips down contiguous runs of in and out elts in LIS doing the ;;; minimal number of SET-CDR!s to splice the tail of one run of ins to the ;;; beginning of the next. (define (filter! pred lis) ; (check-arg procedure? pred filter!) (let lp ((ans lis)) (cond ((null-list? ans) ans) ; Scan looking for ((not (pred (car ans))) (lp (cdr ans))) ; first cons of result. ;; ANS is the eventual answer. ;; SCAN-IN: (CDR PREV) = LIS and (CAR PREV) satisfies PRED. ;; Scan over a contiguous segment of the list that ;; satisfies PRED. ;; SCAN-OUT: (CAR PREV) satisfies PRED. Scan over a contiguous ;; segment of the list that *doesn't* satisfy PRED. ;; When the segment ends, patch in a link from PREV ;; to the start of the next good segment, and jump to ;; SCAN-IN. (else (letrec ((scan-in (lambda (prev lis) (if (pair? lis) (if (pred (car lis)) (scan-in lis (cdr lis)) (scan-out prev (cdr lis)))))) (scan-out (lambda (prev lis) (let lp ((lis lis)) (if (pair? lis) (if (pred (car lis)) (begin (set-cdr! prev lis) (scan-in lis (cdr lis))) (lp (cdr lis))) (set-cdr! prev lis)))))) (scan-in ans (cdr ans)) ans))))) ;;; This version does not share common tails like the reference impl does. ;;; Kindly suggested by Joerg Wittenberger on 20-05-2013. (define (partition pred lst) ; (check-arg procedure? pred partition) (let ((t (cons #f '())) (f (cons #f '()))) (let ((tl t) (fl f)) (do ((lst lst (cdr lst))) ((null? lst) (values (cdr t) (cdr f))) (let ((elt (car lst))) (if (pred elt) (let ((p (cons elt (cdr tl)))) (set-cdr! tl p) (set! tl p)) (let ((p (cons elt (cdr fl)))) (set-cdr! fl p) (set! fl p)))))))) ;(define (partition! pred lis) ; Things are much simpler ; (let recur ((lis lis)) ; if you are willing to ; (if (null-list? lis) (values lis lis) ; push N stack frames & do N ; (let ((elt (car lis))) ; SET-CDR! writes, where N is ; (receive (in out) (recur (cdr lis)) ; the length of LIS. ; (cond ((pred elt) ; (set-cdr! lis in) ; (values lis out)) ; (else (set-cdr! lis out) ; (values in lis)))))))) ;;; This implementation of PARTITION! ;;; - doesn't cons, and uses no stack; ;;; - is careful not to do redundant SET-CDR! writes, as writes to memory are ;;; usually expensive on modern machines, and can be extremely expensive on ;;; modern Schemes (e.g., ones that have generational GC's). ;;; It just zips down contiguous runs of in and out elts in LIS doing the ;;; minimal number of SET-CDR!s to splice these runs together into the result ;;; lists. (define (partition! pred lis) ; (check-arg procedure? pred partition!) (if (null-list? lis) (values lis lis) ;; This pair of loops zips down contiguous in & out runs of the ;; list, splicing the runs together. The invariants are ;; SCAN-IN: (cdr in-prev) = LIS. ;; SCAN-OUT: (cdr out-prev) = LIS. (letrec ((scan-in (lambda (in-prev out-prev lis) (let lp ((in-prev in-prev) (lis lis)) (if (pair? lis) (if (pred (car lis)) (lp lis (cdr lis)) (begin (set-cdr! out-prev lis) (scan-out in-prev lis (cdr lis)))) (set-cdr! out-prev lis))))) ; Done. (scan-out (lambda (in-prev out-prev lis) (let lp ((out-prev out-prev) (lis lis)) (if (pair? lis) (if (pred (car lis)) (begin (set-cdr! in-prev lis) (scan-in lis out-prev (cdr lis))) (lp lis (cdr lis))) (set-cdr! in-prev lis)))))) ; Done. ;; Crank up the scan&splice loops. (if (pred (car lis)) ;; LIS begins in-list. Search for out-list's first pair. (let lp ((prev-l lis) (l (cdr lis))) (cond ((not (pair? l)) (values lis l)) ((pred (car l)) (lp l (cdr l))) (else (scan-out prev-l l (cdr l)) (values lis l)))) ; Done. ;; LIS begins out-list. Search for in-list's first pair. (let lp ((prev-l lis) (l (cdr lis))) (cond ((not (pair? l)) (values l lis)) ((pred (car l)) (scan-in l prev-l (cdr l)) (values l lis)) ; Done. (else (lp l (cdr l))))))))) ;;; Inline us, please. (define (remove pred l) (filter (lambda (x) (not (pred x))) l)) (define (remove! pred l) (filter! (lambda (x) (not (pred x))) l)) ;;; Here's the taxonomy for the DELETE/ASSOC/MEMBER functions. ;;; (I don't actually think these are the world's most important ;;; functions -- the procedural FILTER/REMOVE/FIND/FIND-TAIL variants ;;; are far more general.) ;;; ;;; Function Action ;;; --------------------------------------------------------------------------- ;;; remove pred lis Delete by general predicate ;;; delete x lis [=] Delete by element comparison ;;; ;;; find pred lis Search by general predicate ;;; find-tail pred lis Search by general predicate ;;; member x lis [=] Search by element comparison ;;; ;;; assoc key lis [=] Search alist by key comparison ;;; alist-delete key alist [=] Alist-delete by key comparison (define (delete x lis . maybe-=) (let ((= (optional maybe-= equal?))) (filter (lambda (y) (not (= x y))) lis))) (define (delete! x lis . maybe-=) (let ((= (optional maybe-= equal?))) (filter! (lambda (y) (not (= x y))) lis))) ;;; Extended from R4RS to take an optional comparison argument. (define (member x lis . maybe-=) (let ((= (optional maybe-= equal?))) (find-tail (lambda (y) (= x y)) lis))) ;;; R4RS, hence we don't bother to define. ;;; The MEMBER and then FIND-TAIL call should definitely ;;; be inlined for MEMQ & MEMV. ;(define (memq x lis) (member x lis eq?)) ;(define (memv x lis) (member x lis eqv?)) ;;; right-duplicate deletion ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; delete-duplicates delete-duplicates! ;;; ;;; Beware -- these are N^2 algorithms. To efficiently remove duplicates ;;; in long lists, sort the list to bring duplicates together, then use a ;;; linear-time algorithm to kill the dups. Or use an algorithm based on ;;; element-marking. The former gives you O(n lg n), the latter is linear. (define (delete-duplicates lis . maybe-=) (let ((elt= (optional maybe-= equal?))) ; (check-arg procedure? elt= delete-duplicates) (let recur ((lis lis)) (if (null-list? lis) lis (let* ((x (car lis)) (tail (cdr lis)) (new-tail (recur (delete x tail elt=)))) (if (eq? tail new-tail) lis (cons x new-tail))))))) (define (delete-duplicates! lis . maybe-=) (let ((elt= (optional maybe-= equal?))) ; (check-arg procedure? elt= delete-duplicates!) (let recur ((lis lis)) (if (null-list? lis) lis (let* ((x (car lis)) (tail (cdr lis)) (new-tail (recur (delete! x tail elt=)))) (if (eq? tail new-tail) lis (cons x new-tail))))))) ;;; alist stuff ;;;;;;;;;;;;;;; ;;; Extended from R4RS to take an optional comparison argument. (define (assoc x lis . maybe-=) (let ((= (optional maybe-= equal?))) (find (lambda (entry) (= x (car entry))) lis))) (define (alist-cons key datum alist) (cons (cons key datum) alist)) (define (alist-copy alist) (##sys#map (lambda (elt) (cons (car elt) (cdr elt))) alist)) (define (alist-delete key alist . maybe-=) (let ((= (optional maybe-= equal?))) (filter (lambda (elt) (not (= key (car elt)))) alist))) (define (alist-delete! key alist . maybe-=) (let ((= (optional maybe-= equal?))) (filter! (lambda (elt) (not (= key (car elt)))) alist))) ;;; find find-tail take-while drop-while span break any every list-index ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (find pred list) (cond ((find-tail pred list) => car) (else #f))) (define (find-tail pred list) ; (check-arg procedure? pred find-tail) (let lp ((list list)) (and (not (null-list? list)) (if (pred (car list)) list (lp (cdr list)))))) (define (take-while pred lis) ; (check-arg procedure? pred take-while) (let recur ((lis lis)) (if (null-list? lis) '() (let ((x (car lis))) (if (pred x) (cons x (recur (cdr lis))) '()))))) (define (drop-while pred lis) ; (check-arg procedure? pred drop-while) (let lp ((lis lis)) (if (null-list? lis) '() (if (pred (car lis)) (lp (cdr lis)) lis)))) (define (take-while! pred lis) ; (check-arg procedure? pred take-while!) (if (or (null-list? lis) (not (pred (car lis)))) '() (begin (let lp ((prev lis) (rest (cdr lis))) (if (pair? rest) (let ((x (car rest))) (if (pred x) (lp rest (cdr rest)) (set-cdr! prev '()))))) lis))) (define (span pred lis) ; (check-arg procedure? pred span) (let recur ((lis lis)) (if (null-list? lis) (values '() '()) (let ((x (car lis))) (if (pred x) (receive (prefix suffix) (recur (cdr lis)) (values (cons x prefix) suffix)) (values '() lis)))))) (define (span! pred lis) ; (check-arg procedure? pred span!) (if (or (null-list? lis) (not (pred (car lis)))) (values '() lis) (let ((suffix (let lp ((prev lis) (rest (cdr lis))) (if (null-list? rest) rest (let ((x (car rest))) (if (pred x) (lp rest (cdr rest)) (begin (set-cdr! prev '()) rest))))))) (values lis suffix)))) (define (break pred lis) (span (lambda (x) (not (pred x))) lis)) (define (break! pred lis) (span! (lambda (x) (not (pred x))) lis)) (define (any pred lis1 . lists) ; (check-arg procedure? pred any) (if (pair? lists) ;; N-ary case (receive (heads tails) (##srfi1#cars+cdrs (cons lis1 lists)) (and (pair? heads) (let lp ((heads heads) (tails tails)) (receive (next-heads next-tails) (##srfi1#cars+cdrs tails) (if (pair? next-heads) (or (apply pred heads) (lp next-heads next-tails)) (apply pred heads)))))) ; Last PRED app is tail call. ;; Fast path (and (not (null-list? lis1)) (let lp ((head (car lis1)) (tail (cdr lis1))) (if (null-list? tail) (pred head) ; Last PRED app is tail call. (or (pred head) (lp (car tail) (cdr tail)))))))) ;(define (every pred list) ; Simple definition. ; (let lp ((list list)) ; Doesn't return the last PRED value. ; (or (not (pair? list)) ; (and (pred (car list)) ; (lp (cdr list)))))) (define (every pred lis1 . lists) ; (check-arg procedure? pred every) (if (pair? lists) ;; N-ary case (receive (heads tails) (##srfi1#cars+cdrs (cons lis1 lists)) (or (not (pair? heads)) (let lp ((heads heads) (tails tails)) (receive (next-heads next-tails) (##srfi1#cars+cdrs tails) (if (pair? next-heads) (and (apply pred heads) (lp next-heads next-tails)) (apply pred heads)))))) ; Last PRED app is tail call. ;; Fast path (or (null-list? lis1) (let lp ((head (car lis1)) (tail (cdr lis1))) (if (null-list? tail) (pred head) ; Last PRED app is tail call. (and (pred head) (lp (car tail) (cdr tail)))))))) (define (list-index pred lis1 . lists) ; (check-arg procedure? pred list-index) (if (pair? lists) ;; N-ary case (let lp ((lists (cons lis1 lists)) (n 0)) (receive (heads tails) (##srfi1#cars+cdrs lists) (and (pair? heads) (if (apply pred heads) n (lp tails (fx+ n 1)))))) ;; Fast path (let lp ((lis lis1) (n 0)) (and (not (null-list? lis)) (if (pred (car lis)) n (lp (cdr lis) (fx+ n 1))))))) ;;; Reverse ;;;;;;;;;;; ;R4RS, so not defined here. ;(define (reverse lis) (fold cons '() lis)) ;(define (reverse! lis) ; (pair-fold (lambda (pair tail) (set-cdr! pair tail) pair) '() lis)) (define (reverse! lis) (let lp ((lis lis) (ans '())) (if (null-list? lis) ans (let ((tail (cdr lis))) (set-cdr! lis ans) (lp tail lis))))) ;;; Lists-as-sets ;;;;;;;;;;;;;;;;; ;;; This is carefully tuned code; do not modify casually. ;;; - It is careful to share storage when possible; ;;; - Side-effecting code tries not to perform redundant writes. ;;; - It tries to avoid linear-time scans in special cases where constant-time ;;; computations can be performed. ;;; - It relies on similar properties from the other list-lib procs it calls. ;;; For example, it uses the fact that the implementations of MEMBER and ;;; FILTER in this source code share longest common tails between args ;;; and results to get structure sharing in the lset procedures. (define (##srfi1#lset2<= = lis1 lis2) (every (lambda (x) (member x lis2 =)) lis1)) (define (lset<= = . lists) ; (check-arg procedure? = lset<=) (##sys#check-closure = 'lset<=) (or (not (pair? lists)) ; 0-ary case (let lp ((s1 (car lists)) (rest (cdr lists))) (or (not (pair? rest)) (let ((s2 (car rest)) (rest (cdr rest))) (and (or (eq? s2 s1) ; Fast path (##srfi1#lset2<= = s1 s2)) ; Real test (lp s2 rest))))))) (define (lset= = . lists) ; (check-arg procedure? = lset=) (##sys#check-closure = 'lset=) (or (not (pair? lists)) ; 0-ary case (let lp ((s1 (car lists)) (rest (cdr lists))) (or (not (pair? rest)) (let ((s2 (car rest)) (rest (cdr rest))) (and (or (eq? s1 s2) ; Fast path (and (##srfi1#lset2<= = s1 s2) (##srfi1#lset2<= = s2 s1))) ; Real test (lp s2 rest))))))) (define (lset-adjoin = lis . elts) ; (check-arg procedure? = lset-adjoin) (##sys#check-closure = 'lset-adjoin) (fold (lambda (elt ans) (if (member elt ans =) ans (cons elt ans))) lis elts)) (define (lset-union = . lists) ; (check-arg procedure? = lset-union) (##sys#check-closure = 'lset-union) (reduce (lambda (lis ans) ; Compute ANS + LIS. (cond ((null? lis) ans) ; Don't copy any lists ((null? ans) lis) ; if we don't have to. ((eq? lis ans) ans) (else (fold (lambda (elt ans) (if (any (lambda (x) (= x elt)) ans) ans (cons elt ans))) ans lis)))) '() lists)) (define (lset-union! = . lists) ; (check-arg procedure? = lset-union!) (##sys#check-closure = 'lset-union!) (reduce (lambda (lis ans) ; Splice new elts of LIS onto the front of ANS. (cond ((null? lis) ans) ; Don't copy any lists ((null? ans) lis) ; if we don't have to. ((eq? lis ans) ans) (else (pair-fold (lambda (pair ans) (let ((elt (car pair))) (if (any (lambda (x) (= x elt)) ans) ans (begin (set-cdr! pair ans) pair)))) ans lis)))) '() lists)) (define (lset-intersection = lis1 . lists) ; (check-arg procedure? = lset-intersection) (##sys#check-closure = 'lset-intersection) (let ((lists (delete lis1 lists eq?))) ; Throw out any LIS1 vals. (cond ((any null-list? lists) '()) ; Short cut ((null? lists) lis1) ; Short cut (else (filter (lambda (x) (every (lambda (lis) (member x lis =)) lists)) lis1))))) (define (lset-intersection! = lis1 . lists) ; (check-arg procedure? = lset-intersection!) (##sys#check-closure = 'lset-intersection!) (let ((lists (delete lis1 lists eq?))) ; Throw out any LIS1 vals. (cond ((any null-list? lists) '()) ; Short cut ((null? lists) lis1) ; Short cut (else (filter! (lambda (x) (every (lambda (lis) (member x lis =)) lists)) lis1))))) (define (lset-difference = lis1 . lists) ; (check-arg procedure? = lset-difference) (##sys#check-closure = 'lset-difference) (let ((lists (filter pair? lists))) ; Throw out empty lists. (cond ((null? lists) lis1) ; Short cut ((memq lis1 lists) '()) ; Short cut (else (filter (lambda (x) (every (lambda (lis) (not (member x lis =))) lists)) lis1))))) (define (lset-difference! = lis1 . lists) ; (check-arg procedure? = lset-difference!) (##sys#check-closure = 'lset-difference!) (let ((lists (filter pair? lists))) ; Throw out empty lists. (cond ((null? lists) lis1) ; Short cut ((memq lis1 lists) '()) ; Short cut (else (filter! (lambda (x) (every (lambda (lis) (not (member x lis =))) lists)) lis1))))) (define (lset-xor = . lists) ; (check-arg procedure? = lset-xor) (##sys#check-closure = 'lset-xor) (reduce (lambda (b a) ; Compute A xor B: ;; Note that this code relies on the constant-time ;; short-cuts provided by LSET-DIFF+INTERSECTION, ;; LSET-DIFFERENCE & APPEND to provide constant-time short ;; cuts for the cases A = (), B = (), and A eq? B. It takes ;; a careful case analysis to see it, but it's carefully ;; built in. ;; Compute a-b and a^b, then compute b-(a^b) and ;; cons it onto the front of a-b. (receive (a-b a-int-b) (lset-diff+intersection = a b) (cond ((null? a-b) (lset-difference = b a)) ((null? a-int-b) (append b a)) (else (fold (lambda (xb ans) (if (member xb a-int-b =) ans (cons xb ans))) a-b b))))) '() lists)) (define (lset-xor! = . lists) ; (check-arg procedure? = lset-xor!) (##sys#check-closure = 'lset-xor!) (reduce (lambda (b a) ; Compute A xor B: ;; Note that this code relies on the constant-time ;; short-cuts provided by LSET-DIFF+INTERSECTION, ;; LSET-DIFFERENCE & APPEND to provide constant-time short ;; cuts for the cases A = (), B = (), and A eq? B. It takes ;; a careful case analysis to see it, but it's carefully ;; built in. ;; Compute a-b and a^b, then compute b-(a^b) and ;; cons it onto the front of a-b. (receive (a-b a-int-b) (lset-diff+intersection! = a b) (cond ((null? a-b) (lset-difference! = b a)) ((null? a-int-b) (append! b a)) (else (pair-fold (lambda (b-pair ans) (if (member (car b-pair) a-int-b =) ans (begin (set-cdr! b-pair ans) b-pair))) a-b b))))) '() lists)) (define (lset-diff+intersection = lis1 . lists) ; (check-arg procedure? = lset-diff+intersection) (##sys#check-closure = 'lset-diff+intersection) (cond ((every null-list? lists) (values lis1 '())) ; Short cut ((memq lis1 lists) (values '() lis1)) ; Short cut (else (partition (lambda (elt) (not (any (lambda (lis) (member elt lis =)) lists))) lis1)))) (define (lset-diff+intersection! = lis1 . lists) ; (check-arg procedure? = lset-diff+intersection!) (##sys#check-closure = 'lset-diff+intersection!) (cond ((every null-list? lists) (values lis1 '())) ; Short cut ((memq lis1 lists) (values '() lis1)) ; Short cut (else (partition! (lambda (elt) (not (any (lambda (lis) (member elt lis =)) lists))) lis1)))) chicken-4.12.0/chicken.rc0000644000175000017500000000013013040667210014733 0ustar sjamaansjamaan/* chicken.rc - Resource script for Windoze - felix */ CHICKEN_ICON ICON "chicken.ico" chicken-4.12.0/types.db0000644000175000017500000044514413052302367014500 0ustar sjamaansjamaan;;;; types.db - Type-information for core library functions -*- Scheme -*- ; ; Copyright (c) 2009-2017, 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 ; #:predicate TYPE - procedure is a predicate on TYPE ; #: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) ;; scheme (not (#(procedure #:pure) not (*) boolean) ((true) (false) (let ((#(tmp) #(1))) '#f)) ((false) (true) (let ((#(tmp) #(1))) '#t)) (((not boolean)) (false) (let ((#(tmp) #(1))) '#f))) (boolean? (#(procedure #:pure #:predicate boolean) boolean? (*) boolean)) (eq? (#(procedure #:pure) eq? (* *) boolean)) (eqv? (#(procedure #:pure) eqv? (* *) boolean) (((not float) *) (eq? #(1) #(2))) ((* (not float)) (eq? #(1) #(2)))) (equal? (#(procedure #:pure) equal? (* *) boolean) (((or fixnum symbol char eof null) *) (eq? #(1) #(2))) ((* (or fixnum symbol char eof null)) (eq? #(1) #(2)))) (pair? (#(procedure #:pure #:predicate pair) pair? (*) boolean)) (cons (forall (a b) (#(procedure #:pure) cons (a b) (pair a b)))) (##sys#cons (forall (a b) (#(procedure #:pure) ##sys#cons (a b) (pair a b)))) (car (forall (a) (#(procedure #:clean #:enforce) car ((pair a *)) a)) ((pair) (##core#inline "C_u_i_car" #(1)))) (cdr (forall (a) (#(procedure #:clean #:enforce) cdr ((pair * a)) a)) ((pair) (##core#inline "C_u_i_cdr" #(1)))) (caar (forall (a) (#(procedure #:clean #:enforce) caar ((pair (pair a *) *)) a)) (((pair (pair * *) *)) (##core#inline "C_u_i_car" (##core#inline "C_u_i_car" #(1))))) (cadr (forall (a) (#(procedure #:clean #:enforce) cadr ((pair * (pair a *))) a)) (((pair * (pair * *))) (##core#inline "C_u_i_car" (##core#inline "C_u_i_cdr" #(1))))) (cdar (forall (a) (#(procedure #:clean #:enforce) cdar ((pair (pair * a) *)) a)) (((pair (pair * *) *)) (##core#inline "C_u_i_cdr" (##core#inline "C_u_i_car" #(1))))) (cddr (forall (a) (#(procedure #:clean #:enforce) cddr ((pair * (pair * a))) a)) (((pair * (pair * *))) (##core#inline "C_u_i_cdr" (##core#inline "C_u_i_cdr" #(1))))) (caaar (forall (a) (#(procedure #:clean #:enforce) 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)))))) (caadr (forall (a) (#(procedure #:clean #:enforce) 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)))))) (cadar (forall (a) (#(procedure #:clean #:enforce) 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)))))) (caddr (forall (a) (#(procedure #:clean #:enforce) 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)))))) (cdaar (forall (a) (#(procedure #:clean #:enforce) 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)))))) (cdadr (forall (a) (#(procedure #:clean #:enforce) 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)))))) (cddar (forall (a) (#(procedure #:clean #:enforce) 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)))))) (cdddr (forall (a) (#(procedure #:clean #:enforce) 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)))))) (caaaar (forall (a) (#(procedure #:clean #:enforce) caaaar ((pair (pair (pair (pair a *) *) *) *)) a))) (caaadr (forall (a) (#(procedure #:clean #:enforce) caaadr ((pair * (pair (pair (pair a *) *) *))) a))) (caadar (forall (a) (#(procedure #:clean #:enforce) caadar ((pair (pair * (pair (pair a *) *)) *)) a))) (caaddr (forall (a) (#(procedure #:clean #:enforce) caaddr ((pair * (pair * (pair (pair a *) *)))) a))) (cadaar (forall (a) (#(procedure #:clean #:enforce) cadaar ((pair (pair (pair * (pair a *)) *) *)) a))) (cadadr (forall (a) (#(procedure #:clean #:enforce) cadadr ((pair * (pair (pair * (pair a *)) *))) a))) (caddar (forall (a) (#(procedure #:clean #:enforce) caddar ((pair (pair * (pair * (pair a *))) *)) a))) (cadddr (forall (a) (#(procedure #:clean #:enforce) cadddr ((pair * (pair * (pair * (pair a *))))) a))) (cdaaar (forall (a) (#(procedure #:clean #:enforce) cdaaar ((pair (pair (pair (pair * a) *) *) *)) a))) (cdaadr (forall (a) (#(procedure #:clean #:enforce) cdaadr ((pair * (pair (pair (pair * a) *) *))) a))) (cdadar (forall (a) (#(procedure #:clean #:enforce) cdadar ((pair (pair * (pair (pair * a) *)) *)) a))) (cdaddr (forall (a) (#(procedure #:clean #:enforce) cdaddr ((pair * (pair * (pair (pair * a) *)))) a))) (cddaar (forall (a) (#(procedure #:clean #:enforce) cddaar ((pair (pair (pair * (pair * a)) *) *)) a))) (cddadr (forall (a) (#(procedure #:clean #:enforce) cddadr ((pair * (pair (pair * (pair * a)) *))) a))) (cdddar (forall (a) (#(procedure #:clean #:enforce) cdddar ((pair (pair * (pair * (pair * a))) *)) a))) (cddddr (forall (a) (#(procedure #:clean #:enforce) cddddr ((pair * (pair * (pair * (pair * a))))) a))) (set-car! (#(procedure #:enforce) set-car! (pair *) undefined) ((pair (or fixnum char boolean eof null undefined)) (##sys#setislot #(1) '0 #(2))) ((pair *) (##sys#setslot #(1) '0 #(2)))) (set-cdr! (#(procedure #:enforce) set-cdr! (pair *) undefined) ((pair (or fixnum char boolean eof null undefined)) (##sys#setislot #(1) '1 #(2))) ((pair *) (##sys#setslot #(1) '1 #(2)))) (null? (#(procedure #:pure #:predicate null) null? (*) boolean)) (list? (#(procedure #:pure #:predicate list) list? (*) boolean)) ;; special cased (see scrutinizer.scm) (list (#(procedure #:pure) list (#!rest) list)) (##sys#list (#(procedure #:pure) ##sys#list (#!rest) list)) (length (#(procedure #:clean #:enforce) length (list) fixnum) ; may loop ((null) (let ((#(tmp) #(1))) '0)) ((list) (##core#inline "C_u_i_length" #(1)))) (##sys#length (#(procedure #:clean #:enforce) ##sys#length (list) fixnum) ((null) (let ((#(tmp) #(1))) '0)) ((list) (##core#inline "C_u_i_length" #(1)))) ;; these are special cased (see scrutinizer.scm) (list-tail (forall (a) (#(procedure #:clean #:enforce) list-tail ((list-of a) fixnum) (list-of a)))) (list-ref (forall (a) (#(procedure #:clean #:enforce) list-ref ((list-of a) fixnum) a))) ;; special cased (see scrutinizer.scm) (append (#(procedure #:clean) append (#!rest *) *)) ; sic (##sys#append (#(procedure #:clean) ##sys#append (#!rest *) *)) ;; special cased (see scrutinizer.scm) (reverse (forall (a) (#(procedure #:clean #:enforce) reverse ((list-of a)) (list-of a))) ((null) (null) (let ((#(tmp) #(1))) '()))) (memq (forall (a b) (#(procedure #:clean) 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)))) (memv (forall (a b) (#(procedure #:clean) memv (a (list-of b)) (or false (pair a (list-of b))))) ((* null) (let ((#(tmp) #(1))) '#f)) (((or symbol procedure immediate) list) (##core#inline "C_u_i_memq" #(1) #(2)))) (member (forall (a b) (#(procedure #:clean) member (a (list-of b) #!optional (procedure (a b) *)) ; sic (or false (list-of b)))) ((* null) (let ((#(tmp) #(1))) '#f)) (((or symbol procedure immediate) list) (##core#inline "C_u_i_memq" #(1) #(2))) ((* (list-of (or symbol procedure immediate))) (##core#inline "C_u_i_memq" #(1) #(2)))) (assq (forall (a b c) (#(procedure #:clean) 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)))) (assv (forall (a b c) (#(procedure #:clean) assv (a (list-of (pair b c))) (or false (pair a c)))) ((* null) (let ((#(tmp) #(1))) '#f)) (((or symbol immediate procedure) (list-of pair)) (##core#inline "C_u_i_assq" #(1) #(2))) ((* (list-of (pair (or symbol procedure immediate) *))) (##core#inline "C_u_i_assq" #(1) #(2)))) (assoc (forall (a b c) (#(procedure #:clean) assoc (a (list-of (pair b c)) #!optional (procedure (a b) *)) (or false (pair b c)))) ; sic ((* null) (let ((#(tmp) #(1))) '#f)) (((or symbol procedure immediate) (list-of pair)) (##core#inline "C_u_i_assq" #(1) #(2))) ((* (list-of (pair (or symbol procedure immediate) *))) (##core#inline "C_u_i_assq" #(1) #(2)))) (symbol? (#(procedure #:pure #:predicate symbol) symbol? (*) boolean)) (symbol-append (#(procedure #:clean #:enforce) symbol-append (#!rest symbol) symbol)) (symbol->string (#(procedure #:clean #:enforce) symbol->string (symbol) string)) (string->symbol (#(procedure #:clean #:enforce) string->symbol (string) symbol)) (number? (#(procedure #:pure #:predicate number) number? (*) boolean)) ;;XXX predicate? (integer? (#(procedure #:pure) integer? (*) boolean) ((fixnum) (let ((#(tmp) #(1))) '#t)) ((float) (##core#inline "C_u_i_fpintegerp" #(1)))) (real? (#(procedure #:pure #:predicate number) real? (*) boolean)) (complex? (#(procedure #:pure #:predicate number) complex? (*) boolean)) (exact? (#(procedure #:clean #:enforce) exact? (number) boolean) ((fixnum) (let ((#(tmp) #(1))) '#t)) ((float) (let ((#(tmp) #(1))) '#f))) (inexact? (#(procedure #:clean #:enforce) inexact? (number) boolean) ((fixnum) (let ((#(tmp) #(1))) '#f)) ((float) (let ((#(tmp) #(1))) '#t))) ;;XXX predicate? (rational? (#(procedure #:pure) rational? (*) boolean) ((fixnum) (let ((#(tmp) #(1))) '#t))) (zero? (#(procedure #:clean #:enforce) zero? (number) boolean) ((fixnum) (eq? #(1) '0)) ((number) (##core#inline "C_u_i_zerop" #(1)))) (odd? (#(procedure #:clean #:enforce) odd? (number) boolean) ((fixnum) (fxodd? #(1)))) (even? (#(procedure #:clean #:enforce) even? (number) boolean) ((fixnum) (fxeven? #(1)))) (positive? (#(procedure #:clean #:enforce) positive? (number) boolean) ((fixnum) (##core#inline "C_fixnum_greaterp" #(1) '0)) ((number) (##core#inline "C_u_i_positivep" #(1)))) (negative? (#(procedure #:clean #:enforce) negative? (number) boolean) ((fixnum) (##core#inline "C_fixnum_lessp" #(1) '0)) ((number) (##core#inline "C_u_i_negativep" #(1)))) (max (#(procedure #:clean #:enforce) max (#!rest number) number) ((fixnum fixnum) (fxmax #(1) #(2))) ((float float) (##core#inline "C_i_flonum_max" #(1) #(2)))) (min (#(procedure #:clean #:enforce) min (#!rest number) number) ((fixnum fixnum) (fxmin #(1) #(2))) ((float float) (##core#inline "C_i_flonum_min" #(1) #(2)))) (+ (#(procedure #:clean #:enforce) + (#!rest number) number) (() (fixnum) '0) ((fixnum) (fixnum) #(1)) ((float) (float) #(1)) ((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)))) (- (#(procedure #:clean #:enforce) - (number #!rest number) number) ((fixnum) (fixnum) (##core#inline "C_u_fixnum_negate" #(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))) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_negate" 4) #(1)))) (* (#(procedure #:clean #:enforce) * (#!rest number) number) (() (fixnum) '1) ((fixnum) (fixnum) #(1)) ((float) (float) #(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)))) (/ (#(procedure #:clean #:enforce) / (number #!rest number) number) ((float fixnum) (float) (##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_checked" 4) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(1)) #(2))) ((float float) (float) (##core#inline_allocate ("C_a_i_flonum_quotient_checked" 4) #(1) #(2)))) (= (#(procedure #:clean #:enforce) = (#!rest number) boolean) (() '#t) ((number) (let ((#(tmp) #(1))) '#t)) ((fixnum fixnum) (eq? #(1) #(2))) ((float fixnum) (##core#inline "C_flonum_equalp" #(1) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(2)))) ((fixnum float) (##core#inline "C_flonum_equalp" (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(1)) #(2))) ((float float) (##core#inline "C_flonum_equalp" #(1) #(2)))) (> (#(procedure #:clean #:enforce) > (#!rest number) boolean) (() '#t) ((number) (let ((#(tmp) #(1))) '#t)) ((fixnum fixnum) (fx> #(1) #(2))) ((float fixnum) (##core#inline "C_flonum_greaterp" #(1) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(2)))) ((fixnum float) (##core#inline "C_flonum_greaterp" (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(1)) #(2))) ((float float) (##core#inline "C_flonum_greaterp" #(1) #(2)))) (< (#(procedure #:clean #:enforce) < (#!rest number) boolean) (() '#t) ((number) (let ((#(tmp) #(1))) '#t)) ((fixnum fixnum) (fx< #(1) #(2))) ((float fixnum) (##core#inline "C_flonum_lessp" #(1) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(2)))) ((fixnum float) (##core#inline "C_flonum_lessp" (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(1)) #(2))) ((float float) (##core#inline "C_flonum_lessp" #(1) #(2)))) (>= (#(procedure #:clean #:enforce) >= (#!rest number) boolean) (() '#t) ((number) (let ((#(tmp) #(1))) '#t)) ((fixnum fixnum) (fx>= #(1) #(2))) ((float fixnum) (##core#inline "C_flonum_greater_or_equal_p" #(1) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(2)))) ((fixnum float) (##core#inline "C_flonum_greater_or_equal_p" (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(1)) #(2))) ((float float) (##core#inline "C_flonum_greater_or_equal_p" #(1) #(2)))) (<= (#(procedure #:clean #:enforce) <= (#!rest number) boolean) (() '#t) ((number) (let ((#(tmp) #(1))) '#t)) ((fixnum fixnum) (fx<= #(1) #(2))) ((float fixnum) (##core#inline "C_flonum_less_or_equal_p" #(1) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(2)))) ((fixnum float) (##core#inline "C_flonum_less_or_equal_p" (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(1)) #(2))) ((float float) (##core#inline "C_flonum_less_or_equal_p" #(1) #(2)))) (quotient (#(procedure #:clean #:enforce) quotient (number number) number) ;;XXX flonum/mixed case ((fixnum fixnum) (fixnum) (##core#inline "C_fixnum_divide" #(1) #(2)))) (remainder (#(procedure #:clean #:enforce) remainder (number number) number) ;;XXX flonum/mixed case ((fixnum fixnum) (fixnum) (##core#inline "C_fixnum_modulo" #(1) #(2)))) (modulo (#(procedure #:clean #:enforce) modulo (number number) number)) (gcd (#(procedure #:clean #:enforce) gcd (#!rest number) number) ((* *) (##sys#gcd #(1) #(2)))) (lcm (#(procedure #:clean #:enforce) lcm (#!rest number) number) ((* *) (##sys#lcm #(1) #(2)))) (abs (#(procedure #:clean #:enforce) abs (number) number) ((fixnum) (fixnum) (##core#inline "C_fixnum_abs" #(1))) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_abs" 4) #(1)))) (floor (#(procedure #:clean #:enforce) floor (number) number) ((fixnum) (fixnum) #(1)) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_floor" 4) #(1)))) (ceiling (#(procedure #:clean #:enforce) ceiling (number) number) ((fixnum) (fixnum) #(1)) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_ceiling" 4) #(1)))) (truncate (#(procedure #:clean #:enforce) truncate (number) number) ((fixnum) (fixnum) #(1)) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_truncate" 4) #(1)))) (round (#(procedure #:clean #:enforce) round (number) number) ((fixnum) (fixnum) #(1)) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_round_proper" 4) #(1)))) (exact->inexact (#(procedure #:clean #:enforce) exact->inexact (number) float) ((float) #(1)) ((fixnum) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(1)))) (inexact->exact (#(procedure #:clean #:enforce) inexact->exact (number) fixnum) ((fixnum) #(1))) (exp (#(procedure #:clean #:enforce) exp (number) float) ((float) (##core#inline_allocate ("C_a_i_flonum_exp" 4) #(1)))) (log (#(procedure #:clean #:enforce) log (number) float) ((float) (##core#inline_allocate ("C_a_i_flonum_log" 4) #(1)))) (expt (#(procedure #:clean #:enforce) expt (number number) number) ((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)))) (sqrt (#(procedure #:clean #:enforce) sqrt (number) float) ((float) (##core#inline_allocate ("C_a_i_flonum_sqrt" 4) #(1)))) (sin (#(procedure #:clean #:enforce) sin (number) float) ((float) (##core#inline_allocate ("C_a_i_flonum_sin" 4) #(1)))) (cos (#(procedure #:clean #:enforce) cos (number) float) ((float) (##core#inline_allocate ("C_a_i_flonum_cos" 4) #(1)))) (tan (#(procedure #:clean #:enforce) tan (number) float) ((float) (##core#inline_allocate ("C_a_i_flonum_tan" 4) #(1)))) (asin (#(procedure #:clean #:enforce) asin (number) float) ((float) (##core#inline_allocate ("C_a_i_flonum_asin" 4) #(1)))) (acos (#(procedure #:clean #:enforce) acos (number) float) ((float) (##core#inline_allocate ("C_a_i_flonum_acos" 4) #(1)))) (atan (#(procedure #:clean #:enforce) atan (number #!optional number) float) ((float) (##core#inline_allocate ("C_a_i_flonum_atan" 4) #(1))) ((float fixnum) (##core#inline_allocate ("C_a_i_flonum_atan2" 4) #(1) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(2)))) ((fixnum float) (##core#inline_allocate ("C_a_i_flonum_atan2" 4) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(1)) #(2))) ((float float) (##core#inline_allocate ("C_a_i_flonum_atan2" 4) #(1) #(2)))) (number->string (#(procedure #:clean #:enforce) number->string (number #!optional fixnum) string) ((fixnum) (##sys#fixnum->string #(1)))) (string->number (#(procedure #:clean #:enforce) string->number (string #!optional fixnum) (or number false))) (char? (#(procedure #:pure #:predicate char) char? (*) boolean)) ;; safe rewrites are already done by the optimizer (char=? (#(procedure #:clean #:enforce) char=? (char char) boolean) ((char char) (##core#inline "C_u_i_char_equalp" #(1) #(2)))) (char>? (#(procedure #:clean #:enforce) char>? (char char) boolean) ((char char) (##core#inline "C_u_i_char_greaterp" #(1) #(2)))) (char=? (#(procedure #:clean #:enforce) char>=? (char char) boolean) ((char char) (##core#inline "C_u_i_char_greater_or_equal_p" #(1) #(2)))) (char<=? (#(procedure #:clean #:enforce) char<=? (char char) boolean) ((char char) (##core#inline "C_u_i_char_less_or_equal_p" #(1) #(2)))) (char-ci=? (#(procedure #:clean #:enforce) char-ci=? (char char) boolean)) (char-ci? (#(procedure #:clean #:enforce) char-ci>? (char char) boolean)) (char-ci>=? (#(procedure #:clean #:enforce) char-ci>=? (char char) boolean)) (char-ci<=? (#(procedure #:clean #:enforce) char-ci<=? (char char) boolean)) (char-alphabetic? (#(procedure #:clean #:enforce) char-alphabetic? (char) boolean)) (char-whitespace? (#(procedure #:clean #:enforce) char-whitespace? (char) boolean)) (char-numeric? (#(procedure #:clean #:enforce) char-numeric? (char) boolean)) (char-upper-case? (#(procedure #:clean #:enforce) char-upper-case? (char) boolean)) (char-lower-case? (#(procedure #:clean #:enforce) char-lower-case? (char) boolean)) (char-upcase (#(procedure #:clean #:enforce) char-upcase (char) char)) (char-downcase (#(procedure #:clean #:enforce) char-downcase (char) char)) (char->integer (#(procedure #:clean #:enforce) char->integer (char) fixnum)) (integer->char (#(procedure #:clean #:enforce) integer->char (fixnum) char)) (string? (#(procedure #:pure #:predicate string) string? (*) boolean)) (string=? (#(procedure #:clean #:enforce) string=? (string string) boolean) ((string string) (##core#inline "C_u_i_string_equal_p" #(1) #(2)))) (string>? (#(procedure #:clean #:enforce) string>? (string string) boolean)) (string=? (#(procedure #:clean #:enforce) string>=? (string string) boolean)) (string<=? (#(procedure #:clean #:enforce) string<=? (string string) boolean)) (string-ci=? (#(procedure #:clean #:enforce) string-ci=? (string string) boolean)) (string-ci? (#(procedure #:clean #:enforce) string-ci>? (string string) boolean)) (string-ci>=? (#(procedure #:clean #:enforce) string-ci>=? (string string) boolean)) (string-ci<=? (#(procedure #:clean #:enforce) string-ci<=? (string string) boolean)) (make-string (#(procedure #:clean #:enforce) make-string (fixnum #!optional char) string) ((fixnum char) (##sys#make-string #(1) #(2))) ((fixnum) (##sys#make-string #(1) '#\space))) (string-length (#(procedure #:clean #:enforce) string-length (string) fixnum) ((string) (##sys#size #(1)))) (string-ref (#(procedure #:clean #:enforce) string-ref (string fixnum) char) ((string fixnum) (##core#inline "C_i_string_ref" #(1) #(2)))) (string-set! (#(procedure #:enforce) string-set! (string fixnum char) undefined) ((string fixnum char) (##core#inline "C_i_string_set" #(1) #(2) #(3)))) (string-append (#(procedure #:clean #:enforce) string-append (#!rest string) string) ((string string) (##sys#string-append #(1) #(2)))) ;(string-copy (#(procedure #:clean #:enforce) string-copy (string) string)) - we use the more general version from srfi-13 (string->list (#(procedure #:clean #:enforce) string->list (string) (list-of char))) (list->string (#(procedure #:clean #:enforce) list->string ((list-of char)) string)) (substring (#(procedure #:clean #:enforce) substring (string fixnum #!optional fixnum) string)) ;(string-fill! (#(procedure #:clean #:enforce) string-fill! (string char) string)) - s.a. (string (#(procedure #:clean #:enforce) string (#!rest char) string)) (vector? (#(procedure #:pure #:predicate vector) vector? (*) boolean)) ;; special-cased (see scrutinizer.scm) (make-vector (forall (a) (#(procedure #:clean #:enforce) make-vector (fixnum #!optional a) (vector-of a)))) ;; these are special cased (see scrutinizer.scm) (vector-ref (forall (a) (#(procedure #:clean #:enforce) vector-ref ((vector-of a) fixnum) a))) (##sys#vector-ref (forall (a) (#(procedure #:clean #:enforce) ##sys#vector-ref ((vector-of a) fixnum) a))) ;; special-cased (see scrutinizer.scm) (vector-set! (#(procedure #:enforce) vector-set! (vector fixnum *) undefined)) ;; special cased (see scrutinizer.scm) (vector (#(procedure #:pure) vector (#!rest) vector)) (##sys#vector (#(procedure #:pure) ##sys#vector (#!rest) vector)) (vector-length (#(procedure #:clean #:enforce) vector-length (vector) fixnum) ((vector) (##sys#size #(1)))) (##sys#vector-length (#(procedure #:clean #:enforce) ##sys#vector-length (vector) fixnum) ((vector) (##sys#size #(1)))) (vector->list (forall (a) (#(procedure #:clean #:enforce) 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)))) (list->vector (forall (a) (#(procedure #:clean #:enforce) 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)))) (vector-fill! (#(procedure #:enforce) vector-fill! (vector *) undefined)) (procedure? (#(procedure #:pure #:predicate procedure) procedure? (*) boolean)) (vector-copy! (#(procedure #:enforce) vector-copy! (vector vector #!optional fixnum) undefined)) (map (forall (a b) (#(procedure #:enforce) map ((procedure (a #!rest) b) (list-of a) #!rest list) (list-of b)))) (for-each (forall (a) (#(procedure #:enforce) for-each ((procedure (a #!rest) . *) (list-of a) #!rest list) undefined))) (apply (#(procedure #:enforce) apply (procedure #!rest) . *)) (##sys#apply (#(procedure #:enforce) ##sys#apply (procedure #!rest) . *)) (force (procedure force (*) . *) (((not (struct promise))) #(1))) (call-with-current-continuation (#(procedure #:enforce) call-with-current-continuation ((procedure (procedure) . *)) . *)) (input-port? (#(procedure #:pure #:predicate input-port) input-port? (*) boolean)) (output-port? (#(procedure #:pure #:predicate output-port) output-port? (*) boolean)) (current-input-port (#(procedure #:clean #:enforce) current-input-port (#!optional input-port boolean boolean) input-port) ((input-port) (let ((#(tmp1) #(1))) (let ((#(tmp2) (set! ##sys#standard-input #(tmp1)))) #(tmp1)))) (() ##sys#standard-input)) (current-output-port (#(procedure #:clean #:enforce) current-output-port (#!optional output-port boolean boolean) output-port) ((output-port) (let ((#(tmp1) #(1))) (let ((#(tmp2) (set! ##sys#standard-output #(tmp1)))) #(tmp1)))) (() ##sys#standard-output)) (call-with-input-file (procedure call-with-input-file (string (procedure (input-port) . *) #!rest) . *)) (call-with-output-file (procedure call-with-output-file (string (procedure (output-port) . *) #!rest) . *)) (open-input-file (#(procedure #:clean #:enforce) open-input-file (string #!rest symbol) input-port)) (open-output-file (#(procedure #:clean #:enforce) open-output-file (string #!rest symbol) output-port)) (close-input-port (#(procedure #:enforce) close-input-port (input-port) undefined)) (close-output-port (#(procedure #:enforce) close-output-port (output-port) undefined)) (load (procedure load (string #!optional (procedure (*) . *)) undefined)) (read (#(procedure #:enforce) read (#!optional input-port) *)) (eof-object? (#(procedure #:pure #:predicate eof) eof-object? (*) boolean)) (read-char (#(procedure #:enforce) read-char (#!optional input-port) (or eof char))) (peek-char (#(procedure #:enforce) peek-char (#!optional input-port) (or eof char))) (write (#(procedure #:enforce) write (* #!optional output-port) undefined)) (display (#(procedure #:enforce) display (* #!optional output-port) undefined)) (write-char (#(procedure #:enforce) 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))))) (newline (#(procedure #:enforce) newline (#!optional output-port) undefined)) (with-input-from-file (#(procedure #:enforce) with-input-from-file (string (procedure () . *) #!rest symbol) . *)) (with-output-to-file (#(procedure #:enforce) with-output-to-file (string (procedure () . *) #!rest symbol) . *)) (dynamic-wind (#(procedure #:enforce) dynamic-wind ((procedure () . *) (procedure () . *) (procedure () . *)) . *)) (values (#(procedure #:clean) values (#!rest values) . *)) (##sys#values (#(procedure #:clean) ##sys#values (#!rest values) . *)) (call-with-values (#(procedure #:enforce) 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))))))) (eval (procedure eval (* #!optional (struct environment)) . *)) (char-ready? (#(procedure #:enforce) char-ready? (#!optional input-port) boolean)) (imag-part (#(procedure #:clean #:enforce) imag-part (number) number) (((or fixnum float number)) (let ((#(tmp) #(1))) '0))) (real-part (#(procedure #:clean #:enforce) real-part (number) number) (((or fixnum float number)) #(1))) (magnitude (#(procedure #:clean #:enforce) magnitude (number) number) ((fixnum) (fixnum) (##core#inline "C_fixnum_abs" #(1))) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_abs" 4) #(1)))) (numerator (#(procedure #:clean #:enforce) numerator (number) number) ((fixnum) (fixnum) #(1))) (denominator (#(procedure #:clean #:enforce) denominator (number) number) ((fixnum) (fixnum) (let ((#(tmp) #(1))) '1))) (scheme-report-environment (#(procedure #:clean #:enforce) scheme-report-environment (#!optional fixnum) (struct environment))) (null-environment (#(procedure #:clean #:enforce) null-environment (#!optional fixnum) (struct environment))) (interaction-environment (#(procedure #:clean) interaction-environment () (struct environment))) (port-closed? (#(procedure #:clean #:enforce) port-closed? (port) boolean) ((port) (##sys#slot #(1) '8))) ;; chicken (abort (procedure abort (*) noreturn)) (##sys#abort (procedure abort (*) noreturn)) (add1 (#(procedure #:clean #:enforce) add1 (number) number) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_plus" 4) #(1) '1.0))) (argc+argv (#(procedure #:clean) argc+argv () fixnum pointer)) (argv (#(procedure #:clean) argv () (list-of string))) (arithmetic-shift (#(procedure #:clean #:enforce) arithmetic-shift (number number) number)) (bit-set? (#(procedure #:clean #:enforce) bit-set? (number fixnum) boolean) ((fixnum fixnum) (##core#inline "C_i_bit_setp" #(1) #(2)))) (bitwise-and (#(procedure #:clean #:enforce) bitwise-and (#!rest number) number) ((fixnum fixnum) (fixnum) (##core#inline "C_fixnum_and" #(1) #(2)))) (bitwise-ior (#(procedure #:clean #:enforce) bitwise-ior (#!rest number) number) ((fixnum fixnum) (fixnum) (##core#inline "C_fixnum_or" #(1) #(2)))) (bitwise-not (#(procedure #:clean #:enforce) bitwise-not (number) number)) (bitwise-xor (#(procedure #:clean #:enforce) bitwise-xor (#!rest number) number) ((fixnum fixnum) (fixnum) (##core#inline "C_fixnum_xor" #(1) #(2)))) (blob->string (#(procedure #:clean #:enforce) blob->string (blob) string)) (blob-size (#(procedure #:clean #:enforce) blob-size (blob) fixnum) ((blob) (##sys#size #(1)))) (blob? (#(procedure #:pure #:predicate blob) blob? (*) boolean)) (blob=? (#(procedure #:clean #:enforce) blob=? (blob blob) boolean)) (build-platform (#(procedure #:pure) build-platform () symbol)) (call/cc (#(procedure #:enforce) call/cc ((procedure (*) . *)) . *)) (case-sensitive (#(procedure #:clean) case-sensitive (#!optional *) *)) (char-name (#(procedure #:clean #:enforce) char-name ((or char symbol) #!optional char) *)) ;XXX -> (or char symbol) ? (chicken-home (#(procedure #:clean) chicken-home () string)) (chicken-version (#(procedure #:pure) chicken-version (#!optional *) string)) (command-line-arguments (#(procedure #:clean) command-line-arguments (#!optional (list-of string)) (list-of string))) (condition-predicate (#(procedure #:clean #:enforce) condition-predicate (symbol) (procedure ((struct condition)) boolean))) (condition-property-accessor (#(procedure #:clean #:enforce) condition-property-accessor (symbol symbol #!optional *) (procedure ((struct condition)) *))) (condition? (#(procedure #:pure #:predicate (struct condition)) condition? (*) boolean)) (condition->list (#(procedure #:clean #:enforce) condition->list ((struct condition)) (list-of (pair symbol *)))) (continuation-capture (#(procedure #:enforce) continuation-capture ((procedure ((struct continuation)) . *)) *)) (continuation-graft (#(procedure #:clean #:enforce) continuation-graft ((struct continuation) (procedure () . *)) *)) (continuation-return (#(procedure #:enforce) continuation-return ((struct continuation) #!rest) . *)) ;XXX make return type more specific? (continuation? (#(procedure #:pure #:predicate (struct continuation)) continuation? (*) boolean)) (copy-read-table (#(procedure #:clean #:enforce) copy-read-table ((struct read-table)) (struct read-table))) (cpu-time (#(procedure #:clean) cpu-time () fixnum fixnum)) (current-error-port (#(procedure #:clean #:enforce) 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)) (current-exception-handler (#(procedure #:clean #:enforce) 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)) (current-gc-milliseconds (#(procedure #:clean) current-gc-milliseconds () fixnum)) (current-milliseconds (#(procedure #:clean) current-milliseconds () float)) (current-read-table (#(procedure #:clean) current-read-table (#!optional (struct read-table)) (struct read-table))) (current-seconds (#(procedure #:clean) current-seconds () float)) (define-reader-ctor (#(procedure #:clean #:enforce) define-reader-ctor (symbol procedure) undefined)) (delete-file (#(procedure #:clean #:enforce) delete-file (string) string)) (enable-warnings (#(procedure #:clean) enable-warnings (#!optional *) *)) (equal=? (#(procedure #:clean) equal=? (* *) boolean) ((fixnum fixnum) (eq? #(1) #(2))) (((or symbol char eof null) *) (eq? #(1) #(2))) ((* (or symbol char eof null undefined)) (eq? #(1) #(2))) (((or float fixnum number) (or float fixnum number)) (= #(1) #(2)))) (er-macro-transformer (#(procedure #:clean #:enforce) er-macro-transformer ((procedure (* (procedure (*) *) (procedure (* *) *)) *)) (struct transformer))) (errno (#(procedure #:clean) errno () fixnum)) (error (procedure error (* #!rest) noreturn)) (##sys#error (procedure ##sys#error (* #!rest) noreturn)) (##sys#signal-hook (procedure ##sys#signal-hook (* #!rest) noreturn)) (exit (procedure exit (#!optional fixnum) noreturn)) (exit-handler (#(procedure #:clean #:enforce) exit-handler (#!optional (procedure (fixnum) . *)) procedure)) (expand (procedure expand (* #!optional list) *)) (extension-information (#(procedure #:clean) extension-information (symbol) *)) (feature? (#(procedure #:clean) feature? (#!rest symbol) boolean)) (features (#(procedure #:clean) features () (list-of symbol))) (file-exists? (#(procedure #:clean #:enforce) file-exists? (string) (or false string))) (directory-exists? (#(procedure #:clean #:enforce) directory-exists? (string) (or false string))) (finite? (#(procedure #:clean #:enforce) finite? (number) boolean) ((fixnum) (let ((#(tmp) #(1))) '#t)) (((or float number)) (##core#inline "C_i_finitep" #(1)))) (fixnum-bits fixnum) (fixnum-precision fixnum) (fixnum? (#(procedure #:pure #:predicate fixnum) fixnum? (*) boolean)) (flonum-decimal-precision fixnum) (flonum-epsilon float) (flonum-maximum-decimal-exponent fixnum) (flonum-maximum-exponent fixnum) (flonum-minimum-decimal-exponent fixnum) (flonum-minimum-exponent fixnum) (flonum-precision fixnum) (flonum-print-precision (#(procedure #:clean #:enforce) (#!optional fixnum) fixnum)) (flonum-radix fixnum) (flonum? (#(procedure #:pure #:predicate float) flonum? (*) boolean)) (flush-output (#(procedure #:enforce) flush-output (#!optional output-port) undefined)) (foldl (forall (a b) (#(procedure #:enforce) foldl ((procedure (a b) a) a (list-of b)) a))) (foldr (forall (a b) (#(procedure #:enforce) foldr ((procedure (a b) b) b (list-of a)) b))) (force-finalizers (procedure force-finalizers () undefined)) (fp- (#(procedure #:clean #:enforce) fp- (float float) float) ((float float) (##core#inline_allocate ("C_a_i_flonum_difference" 4) #(1) #(2)) )) (fp* (#(procedure #:clean #:enforce) fp* (float float) float) ((float float) (##core#inline_allocate ("C_a_i_flonum_times" 4) #(1) #(2)) )) (fp/ (#(procedure #:clean #:enforce) fp/ (float float) float) ((float float) (##core#inline_allocate ("C_a_i_flonum_quotient" 4) #(1) #(2)) )) (fp+ (#(procedure #:clean #:enforce) fp+ (float float) float) ((float float) (##core#inline_allocate ("C_a_i_flonum_plus" 4) #(1) #(2)) )) (fp< (#(procedure #:clean #:enforce) fp< (float float) boolean) ((float float) (##core#inline "C_flonum_lessp" #(1) #(2)) )) (fp<= (#(procedure #:clean #:enforce) fp<= (float float) boolean) ((float float) (##core#inline "C_flonum_less_or_equal_p" #(1) #(2)) )) (fp= (#(procedure #:clean #:enforce) fp= (float float) boolean) ((float float) (##core#inline "C_flonum_equalp" #(1) #(2)) )) (fp> (#(procedure #:clean #:enforce) fp> (float float) boolean) ((float float) (##core#inline "C_flonum_greaterp" #(1) #(2)) )) (fp>= (#(procedure #:clean #:enforce) fp>= (float float) boolean) ((float float) (##core#inline "C_flonum_greater_or_equal_p" #(1) #(2)) )) (fpabs (#(procedure #:clean #:enforce) fpabs (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_abs" 4) #(1) ))) (fpacos (#(procedure #:clean #:enforce) fpacos (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_acos" 4) #(1) ))) (fpasin (#(procedure #:clean #:enforce) fpasin (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_asin" 4) #(1) ))) (fpatan (#(procedure #:clean #:enforce) fpatan (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_atan" 4) #(1) ))) (fpatan2 (#(procedure #:clean #:enforce) fpatan2 (float float) float) ((float float) (##core#inline_allocate ("C_a_i_flonum_atan2" 4) #(1) #(2)))) (fpceiling (#(procedure #:clean #:enforce) fpceiling (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_ceiling" 4) #(1) ))) (fpcos (#(procedure #:clean #:enforce) fpcos (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_cos" 4) #(1) ))) (fpexp (#(procedure #:clean #:enforce) fpexp (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_exp" 4) #(1) ))) (fpexpt (#(procedure #:clean #:enforce) fpexpt (float float) float) ((float float) (##core#inline_allocate ("C_a_i_flonum_expt" 4) #(1) #(2)))) (fpfloor (#(procedure #:clean #:enforce) fpfloor (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_floor" 4) #(1) ))) (fpinteger? (#(procedure #:clean #:enforce) fpinteger? (float) boolean) ((float) (##core#inline "C_u_i_fpintegerp" #(1) ))) (fplog (#(procedure #:clean #:enforce) fplog (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_log" 4) #(1) ))) (fpmax (#(procedure #:clean #:enforce) fpmax (float float) float) ((float float) (##core#inline "C_i_flonum_max" #(1) #(2)))) (fpmin (#(procedure #:clean #:enforce) fpmin (float float) float) ((float float) (##core#inline "C_i_flonum_min" #(1) #(2)))) (fpneg (#(procedure #:clean #:enforce) fpneg (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_negate" 4) #(1) ))) (fpround (#(procedure #:clean #:enforce) fpround (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_round" 4) #(1) ))) (fpsin (#(procedure #:clean #:enforce) fpsin (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_sin" 4) #(1) ))) (fpsqrt (#(procedure #:clean #:enforce) fpsqrt (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_sqrt" 4) #(1) ))) (fptan (#(procedure #:clean #:enforce) fptan (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_tan" 4) #(1) ))) (fptruncate (#(procedure #:clean #:enforce) fptruncate (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_truncate" 4) #(1) ))) ;;XXX should these be enforcing? (fx- (#(procedure #:clean) fx- (fixnum fixnum) fixnum)) (fx* (#(procedure #:clean) fx* (fixnum fixnum) fixnum)) (fx/ (#(procedure #:clean) fx/ (fixnum fixnum) fixnum)) (fx+ (#(procedure #:clean) fx+ (fixnum fixnum) fixnum)) (fx< (#(procedure #:clean) fx< (fixnum fixnum) boolean)) (fx<= (#(procedure #:clean) fx<= (fixnum fixnum) boolean)) (fx= (#(procedure #:clean) fx= (fixnum fixnum) boolean)) (fx> (#(procedure #:clean) fx> (fixnum fixnum) boolean)) (fx>= (#(procedure #:clean) fx>= (fixnum fixnum) boolean)) (fxand (#(procedure #:clean) fxand (fixnum fixnum) fixnum)) (fxeven? (#(procedure #:clean) fxeven? (fixnum) boolean)) (fxior (#(procedure #:clean) fxior (fixnum fixnum) fixnum)) (fxmax (#(procedure #:clean) fxmax (fixnum fixnum) fixnum)) (fxmin (#(procedure #:clean) fxmin (fixnum fixnum) fixnum)) (fxmod (#(procedure #:clean) fxmod (fixnum fixnum) fixnum)) (fxneg (#(procedure #:clean) fxneg (fixnum) fixnum)) (fxnot (#(procedure #:clean) fxnot (fixnum) fixnum)) (fxodd? (#(procedure #:clean) fxodd? (fixnum) boolean)) (fxshl (#(procedure #:clean) fxshl (fixnum fixnum) fixnum)) (fxshr (#(procedure #:clean) fxshr (fixnum fixnum) fixnum)) (fxxor (#(procedure #:clean) fxxor (fixnum fixnum) fixnum)) (gc (#(procedure #:clean) gc (#!optional *) fixnum)) (gensym (#(procedure #:clean) gensym (#!optional (or string symbol)) symbol)) (get (#(procedure #:clean #:enforce) get (symbol symbol #!optional *) *) ((symbol symbol *) (##core#inline "C_i_getprop" #(1) #(2) #(3)))) (get-call-chain (#(procedure #:clean #:enforce) get-call-chain (#!optional fixnum (struct thread)) (list-of vector))) (get-condition-property (#(procedure #:clean #:enforce) get-condition-property ((struct condition) symbol symbol #!optional *) *)) (get-environment-variable (#(procedure #:clean #:enforce) get-environment-variable (string) *)) (get-keyword (#(procedure #:clean #:enforce) get-keyword (symbol list #!optional *) *)) (get-output-string (#(procedure #:clean #:enforce) get-output-string (output-port) string)) (get-properties (#(procedure #:clean #:enforce) get-properties (symbol list) symbol * list)) (getter-with-setter (#(procedure #:clean #:enforce) getter-with-setter ((procedure (#!rest) *) (procedure (* #!rest) . *) #!optional string) procedure)) (implicit-exit-handler (#(procedure #:clean #:enforce) implicit-exit-handler (#!optional (procedure () . *)) procedure)) (ir-macro-transformer (#(procedure #:clean #:enforce) ir-macro-transformer ((procedure (* (procedure (*) *) (procedure (* *) *)) *)) (struct transformer))) (keyword->string (#(procedure #:clean #:enforce) keyword->string (symbol) string)) (keyword-style (#(procedure #:clean) keyword-style (#!optional symbol) symbol)) (keyword? (#(procedure #:pure) keyword? (*) boolean)) (load-library (#(procedure #:enforce) load-library (symbol #!optional string) undefined)) (load-relative (#(procedure #:enforce) load-relative (string #!optional (procedure (*) . *)) undefined)) (load-verbose (#(procedure #:clean) load-verbose (#!optional *) *)) (machine-byte-order (#(procedure #:pure) machine-byte-order () symbol)) (machine-type (#(procedure #:pure) machine-type () symbol)) (make-blob (#(procedure #:clean #:enforce) make-blob (fixnum) blob) ((fixnum) (##sys#make-blob #(1)))) (make-composite-condition (#(procedure #:clean #:enforce) make-composite-condition (#!rest (struct condition)) (struct condition))) (make-parameter (#(procedure #:clean #:enforce) make-parameter (* #!optional procedure) procedure)) (make-property-condition (#(procedure #:clean #:enforce) make-property-condition (symbol #!rest *) (struct condition))) (maximum-flonum float) (memory-statistics (#(procedure #:clean) memory-statistics () (vector-of fixnum))) (minimum-flonum float) (module-environment (#(procedure #:clean #:enforce) module-environment (symbol #!optional symbol) (struct environment))) (most-negative-fixnum fixnum) (most-positive-fixnum fixnum) (on-exit (#(procedure #:clean #:enforce) on-exit ((procedure () . *)) undefined)) (open-input-string (#(procedure #:clean #:enforce) open-input-string (string #!rest) input-port)) (open-output-string (#(procedure #:clean) open-output-string (#!rest) output-port)) (parentheses-synonyms (#(procedure #:clean) parentheses-synonyms (#!optional *) *)) (port-name (#(procedure #:clean #:enforce) port-name (#!optional port) *) ((port) (##sys#slot #(1) '3))) (port-position (#(procedure #:clean #:enforce) port-position (#!optional port) fixnum fixnum)) (port? (#(procedure #:pure #:predicate (or input-port output-port)) port? (*) boolean)) (print (procedure print (#!rest *) undefined)) (print-call-chain (#(procedure #:clean #:enforce) print-call-chain (#!optional output-port fixnum * string) undefined)) (print-error-message (#(procedure #:clean #:enforce) print-error-message (* #!optional output-port string) undefined)) (print* (procedure print* (#!rest) undefined)) (procedure-information (#(procedure #:clean #:enforce) procedure-information (procedure) *)) (program-name (#(procedure #:clean #:enforce) program-name (#!optional string) string)) (promise? (#(procedure #:pure #:predicate (struct promise)) promise? (*) boolean)) (make-promise (#(procedure #:enforce) make-promise (*) (struct promise)) (((struct promise)) #(1))) (put! (#(procedure #:clean #:enforce) put! (symbol symbol *) undefined) ((symbol symbol *) (##core#inline_allocate ("C_a_i_putprop" 8) #(1) #(2) #(3)))) (quit (procedure quit (#!optional *) noreturn)) (register-feature! (#(procedure #:clean #:enforce) register-feature! (#!rest symbol) undefined)) (remprop! (#(procedure #:clean #:enforce) remprop! (symbol symbol) undefined)) (rename-file (#(procedure #:clean #:enforce) rename-file (string string) string)) (repl (#(procedure #:enforce) repl (#!optional (procedure (*) . *)) undefined)) (repl-prompt (#(procedure #:clean #:enforce) repl-prompt (#!optional (procedure () string)) procedure)) (repository-path (#(procedure #:clean) repository-path (#!optional *) *)) (require (#(procedure #:clean) require (#!rest (or string symbol)) undefined)) (reset (procedure reset () noreturn)) (reset-handler (#(procedure #:clean #:enforce) reset-handler (#!optional (procedure () . *)) procedure)) (return-to-host (procedure return-to-host () . *)) (reverse-list->string (#(procedure #:clean #:enforce) reverse-list->string ((list-of char)) string)) (set-finalizer! (#(procedure #:clean #:enforce) set-finalizer! (* (procedure (*) . *)) *)) (set-gc-report! (#(procedure #:clean) set-gc-report! (*) undefined)) (set-parameterized-read-syntax! (#(procedure #:clean #:enforce) set-parameterized-read-syntax! (char (or false (procedure (input-port fixnum) . *))) undefined)) (set-port-name! (#(procedure #:clean #:enforce) set-port-name! (port string) undefined) ((port string) (##sys#setslot #(1) '3 #(2)))) (set-read-syntax! (#(procedure #:clean #:enforce) set-read-syntax! (char (or false (procedure (input-port) . *))) undefined)) (set-sharp-read-syntax! (#(procedure #:clean #:enforce) set-sharp-read-syntax! (char (or false (procedure (input-port) . *))) undefined)) (setter (#(procedure #:clean #:enforce) setter (procedure) procedure)) (signal (procedure signal (*) . *)) (signum (#(procedure #:clean #:enforce) signum (number) number)) (software-type (#(procedure #:pure) software-type () symbol)) (software-version (#(procedure #:pure) software-version () symbol)) (string->blob (#(procedure #:clean #:enforce) string->blob (string) blob)) (string->keyword (#(procedure #:clean #:enforce) string->keyword (string) symbol)) (string->uninterned-symbol (#(procedure #:clean #:enforce) string->uninterned-symbol (string) symbol)) (strip-syntax (#(procedure #:clean) strip-syntax (*) *)) (sub1 (#(procedure #:clean #:enforce) sub1 (number) number) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_difference" 4) #(1) '1.0))) (subvector (forall (a) (#(procedure #:clean #:enforce) subvector ((vector-of a) fixnum #!optional fixnum) (vector-of a)))) (symbol-escape (#(procedure #:clean) symbol-escape (#!optional *) *)) (symbol-plist (#(procedure #:clean #:enforce) symbol-plist (symbol) list) ((symbol) (##sys#slot #(1) '2))) (syntax-error (procedure syntax-error (* #!rest) noreturn)) (system (#(procedure #:clean #:enforce) system (string) fixnum)) (unregister-feature! (#(procedure #:clean #:enforce) unregister-feature! (#!rest symbol) undefined)) (vector-resize (forall (a b) (#(procedure #:clean #:enforce) vector-resize ((vector-of a) fixnum #!optional b) (vector-of (or a b))))) (void (#(procedure #:pure) void (#!rest) undefined)) (##sys#void (#(procedure #:pure) void (#!rest) undefined)) (warning (procedure warning (* #!rest) undefined)) (with-exception-handler (#(procedure #:enforce) with-exception-handler ((procedure (*) . *) (procedure () . *)) . *)) ;; 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-port (#(procedure #:clean #:enforce) ##sys#check-port ((or input-port output-port) #!optional *) *) (((or input-port output-port)) (let ((#(tmp) #(1))) '#t)) (((or input-port 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) '#t #(2))) ((* * *) (##core#inline "C_i_check_port_2" #(1) '#t #(2) #(3)))) (##sys#check-output-port (#(procedure #:clean #:enforce) ##sys#check-output-port (output-port * #!optional *) *) ((* *) (##core#inline "C_i_check_port" #(1) '#f #(2))) ((* * *) (##core#inline "C_i_check_port_2" #(1) '#f #(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#setslot (#(procedure #:enforce) ##sys#setslot (* fixnum *) *) #;((* fixnum immediate) (##sys#setislot #(1) #(2) #(3)))) ; too dangerous (##sys#size (#(procedure #:pure) ##sys#size (*) fixnum)) (##sys#standard-input input-port) (##sys#standard-output output-port) (##sys#standard-error output-port) ;; data-structures (->string (procedure ->string (*) string) ((string) #(1))) (alist-ref (forall (a b c d) (#(procedure #:clean) alist-ref (a (list-of (pair b c)) #!optional (procedure (a b) *) d) (or false c d)))) (alist-update! (forall (a b c d) (#(procedure) alist-update! (a b (list-of (pair c d)) #!optional (procedure (a c) *)) (list-of (pair c (or b d)))))) (alist-update (forall (a b c d) (#(procedure #:clean) alist-update (a b (list-of (pair c d)) #!optional (procedure (a c) *)) (list-of (pair c (or b d)))))) (any? (#(procedure #:pure) any? (*) boolean) ((*) (let ((#(tmp) #(1))) '#t))) (atom? (#(procedure #:pure) atom? (*) boolean) ((pair) (let ((#(tmp) #(1))) '#f)) (((not (or pair list))) (let ((#(tmp) #(1))) '#t))) (binary-search (forall (a) (#(procedure #:enforce) binary-search ((vector-of a) (procedure (a) *)) *))) (butlast (forall (a) (#(procedure #:clean #:enforce) butlast ((pair a *)) (list-of a)))) (chop (forall (a) (#(procedure #:clean #:enforce) chop ((list-of a) fixnum) (list-of a)))) (complement (#(procedure #:clean #:enforce) complement ((procedure (#!rest) *)) (procedure (#!rest) boolean))) (compose (#(procedure #:clean #:enforce) compose (#!rest procedure) procedure)) (compress (forall (a) (#(procedure #:clean #:enforce) compress (list (list-of a)) (list-of a)))) (conc (procedure conc (#!rest) string)) (conjoin (#(procedure #:clean #:enforce) conjoin (#!rest (procedure (*) *)) (procedure (*) *))) (constantly (forall (a) (#(procedure #:pure) constantly (a) (procedure (#!rest) a)))) (disjoin (#(procedure #:clean #:enforce) disjoin (#!rest (procedure (*) *)) (procedure (*) *))) (each (#(procedure #:clean #:enforce) each (#!rest procedure) procedure)) (flatten (#(procedure #:clean #:enforce) flatten (#!rest *) list)) (flip (#(procedure #:clean #:enforce) flip ((procedure (* *) . *)) (procedure (* *) . *))) (identity (forall (a) (#(procedure #:pure) identity (a) a))) (intersperse (#(procedure #:clean #:enforce) intersperse (list *) list)) (join (#(procedure #:clean #:enforce) join ((list-of list) #!optional list) list)) (list->queue (#(procedure #:clean #:enforce) list->queue (list) (struct queue))) (list-of? (#(procedure #:clean #:enforce) list-of? ((procedure (*) *)) (procedure (list) boolean))) (make-queue (#(procedure #:pure) make-queue () (struct queue))) (merge (forall (e) (#(procedure #:enforce) merge ((list-of e) (list-of e) (procedure (e e) *)) (list-of e)))) (merge! (forall (e) (#(procedure #:enforce) merge! ((list-of e) (list-of e) (procedure (e e) *)) (list-of e)))) (o (#(procedure #:clean #:enforce) o (#!rest (procedure (*) *)) (procedure (*) *))) (queue->list (#(procedure #:clean #:enforce) queue->list ((struct queue)) list)) (queue-add! (#(procedure #:clean #:enforce) queue-add! ((struct queue) *) undefined)) (queue-empty? (#(procedure #:clean #:enforce) queue-empty? ((struct queue)) boolean) (((struct queue)) (##core#inline "C_i_nullp" (##sys#slot #(1) '1)))) (queue-first (#(procedure #:clean #:enforce) queue-first ((struct queue)) *)) (queue-last (#(procedure #:clean #:enforce) queue-last ((struct queue)) *)) (queue-length (#(procedure #:clean #:enforce) queue-length ((struct queue)) fixnum) (((struct queue)) (##sys#slot #(1) '3))) (queue-push-back! (#(procedure #:clean #:enforce) queue-push-back! ((struct queue) *) undefined)) (queue-push-back-list! (#(procedure #:clean #:enforce) queue-push-back-list! ((struct queue) list) undefined)) (queue-remove! (#(procedure #:clean #:enforce) queue-remove! ((struct queue)) *)) (queue? (#(procedure #:pure #:predicate (struct queue)) queue? (*) boolean)) (rassoc (forall (a b c) (#(procedure #:clean) rassoc (a (list-of (pair b c)) #!optional (procedure (a b) *)) (or false (pair b c))))) (reverse-string-append (#(procedure #:clean #:enforce) reverse-string-append ((list-of string)) string)) (sort (forall (e (s (or (vector-of e) (list-of e)))) (#(procedure #:enforce) sort (s (procedure (e e) *)) s))) (sort! (forall (e (s (or (vector-of e) (list-of e)))) (#(procedure #:enforce) sort (s (procedure (e e) *)) s))) (sorted? (#(procedure #:enforce) sorted? ((or list vector) (procedure (* *) *)) boolean)) (topological-sort (#(procedure #:enforce) topological-sort ((list-of list) (procedure (* *) *)) list)) (string-chomp (#(procedure #:clean #:enforce) string-chomp (string #!optional string) string)) (string-chop (#(procedure #:clean #:enforce) string-chop (string fixnum) (list-of string))) (string-compare3 (#(procedure #:clean #:enforce) string-compare3 (string string) fixnum)) (string-compare3-ci (#(procedure #:clean #:enforce) string-compare3-ci (string string) fixnum)) (string-intersperse (#(procedure #:clean #:enforce) string-intersperse ((list-of string) #!optional string) string)) (string-split (#(procedure #:clean #:enforce) string-split (string #!optional string *) (list-of string))) (string-translate (#(procedure #:clean #:enforce) string-translate (string * #!optional *) string)) (string-translate* (#(procedure #:clean #:enforce) string-translate* (string (list-of (pair string string))) string)) (substring-ci=? (#(procedure #:clean #:enforce) substring-ci=? (string string #!optional fixnum fixnum fixnum) boolean)) (substring-index (#(procedure #:clean #:enforce) substring-index (string string #!optional fixnum) (or false fixnum)) ((* *) (##sys#substring-index #(1) #(2) '0)) ((* * *) (##sys#substring-index #(1) #(2) #(3)))) (substring-index-ci (#(procedure #:clean #:enforce) substring-index-ci (string string #!optional fixnum) (or false fixnum)) ((* *) (##sys#substring-index-ci #(1) #(2) '0)) ((* * *) (##sys#substring-index-ci #(1) #(2) #(3)))) (substring=? (#(procedure #:clean #:enforce) substring=? (string string #!optional fixnum fixnum fixnum) boolean)) (tail? (#(procedure #:clean) tail? (* *) boolean)) ;; extras (format (procedure format (#!rest) *)) (fprintf (#(procedure #:enforce) fprintf (output-port string #!rest) undefined)) (pp (#(procedure #:enforce) pp (* #!optional output-port) undefined)) (pretty-print (#(procedure #:enforce) pretty-print (* #!optional output-port) undefined)) (pretty-print-width (#(procedure #:clean) pretty-print-width (#!optional fixnum) *)) (printf (#(procedure #:enforce) printf (string #!rest) undefined)) (random (#(procedure #:clean #:enforce) random (fixnum) fixnum)) (randomize (#(procedure #:clean #:enforce) randomize (#!optional fixnum) undefined)) (read-buffered (#(procedure #:enforce) read-buffered (#!optional input-port) string)) (read-byte (#(procedure #:enforce) read-byte (#!optional input-port) *)) (read-file (#(procedure #:enforce) read-file (#!optional (or input-port string) (procedure (input-port) *) fixnum) list)) (read-line (#(procedure #:enforce) read-line (#!optional input-port (or false fixnum)) (or eof string))) (read-lines (#(procedure #:enforce) read-lines (#!optional (or input-port string) fixnum) (list-of string))) (read-string (#(procedure #:enforce) read-string (#!optional (or fixnum false) input-port) string)) (read-string! (#(procedure #:enforce) read-string! ((or fixnum false) string #!optional input-port fixnum) fixnum)) (read-token (#(procedure #:enforce) read-token ((procedure (char) *) #!optional input-port) string)) (sprintf (#(procedure #:enforce) sprintf (string #!rest) string)) (write-byte (#(procedure #:enforce) write-byte (fixnum #!optional output-port) undefined)) (write-line (#(procedure #:enforce) write-line (string #!optional output-port) undefined)) (write-string (#(procedure #:enforce) write-string (string #!optional (or fixnum false) output-port) undefined)) ;; files (delete-file* (#(procedure #:clean #:enforce) delete-file* (string) *)) (file-copy (#(procedure #:clean #:enforce) file-copy (string string #!optional * fixnum) fixnum)) (file-move (#(procedure #:clean #:enforce) file-move (string string #!optional * fixnum) fixnum)) (make-pathname (#(procedure #:clean #:enforce) make-pathname ((or string (list-of string) false) #!optional (or string false) (or string false)) string)) (directory-null? (#(procedure #:clean #:enforce) directory-null? (string) boolean)) (make-absolute-pathname (#(procedure #:clean #:enforce) make-absolute-pathname (* #!optional string string) string)) (create-temporary-directory (#(procedure #:clean #:enforce) create-temporary-directory () string)) (create-temporary-file (#(procedure #:clean #:enforce) create-temporary-file (#!optional string) string)) (decompose-directory (#(procedure #:clean #:enforce) decompose-directory (string) * * *)) (decompose-pathname (#(procedure #:clean #:enforce) decompose-pathname (string) * * *)) (absolute-pathname? (#(procedure #:clean #:enforce) absolute-pathname? (string) boolean)) (pathname-directory (#(procedure #:clean #:enforce) pathname-directory (string) *)) (pathname-extension (#(procedure #:clean #:enforce) pathname-extension (string) *)) (pathname-file (#(procedure #:clean #:enforce) pathname-file (string) *)) (pathname-replace-directory (#(procedure #:clean #:enforce) pathname-replace-directory (string string) string)) (pathname-replace-extension (#(procedure #:clean #:enforce) pathname-replace-extension (string string) string)) (pathname-replace-file (#(procedure #:clean #:enforce) pathname-replace-file (string string) string)) (pathname-strip-directory (#(procedure #:clean #:enforce) pathname-strip-directory (string) string)) (pathname-strip-extension (#(procedure #:clean #:enforce) pathname-strip-extension (string) string)) (normalize-pathname (#(procedure #:clean #:enforce) normalize-pathname (string #!optional symbol) string)) ;; irregex (irregex (#(procedure #:clean) 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... (irregex-dfa (#(procedure #:clean #:enforce) irregex-dfa ((struct regexp)) (or false vector)) (((struct regexp)) (##sys#slot #(1) '1))) (irregex-dfa/search (#(procedure #:clean #:enforce) 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. (irregex-nfa (#(procedure #:clean #:enforce) irregex-nfa ((struct regexp)) (or false procedure)) (((struct regexp)) (##sys#slot #(1) '3))) (irregex-flags (#(procedure #:clean #:enforce) irregex-flags ((struct regexp)) fixnum) (((struct regexp)) (##sys#slot #(1) '4))) (irregex-num-submatches (#(procedure #:clean #:enforce) irregex-num-submatches ((struct regexp)) fixnum) (((struct regexp)) (##sys#slot #(1) '5))) (irregex-lengths (#(procedure #:clean #:enforce) 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. (irregex-names (#(procedure #:clean #:enforce) irregex-names ((struct regexp)) (list-of (pair * fixnum))) (((struct regexp)) (##sys#slot #(1) '7))) ;; XXX: specialize these? (how?) (irregex-extract (#(procedure #:clean #:enforce) irregex-extract (* string #!optional fixnum fixnum) (list-of string))) (irregex-split (#(procedure #:clean #:enforce) irregex-split (* string #!optional fixnum fixnum) (list-of string))) (irregex-fold (forall (a) (#(procedure #:enforce) irregex-fold (* (procedure (fixnum (struct regexp-match) a) a) a string #!optional (procedure (fixnum *) *) fixnum fixnum) a))) ;; XXX TODO: chunker is a plain vector (irregex-fold/chunked (forall (a c) (#(procedure #:enforce) irregex-fold/chunked (* (procedure (c fixnum (struct regexp-match) a) a) a vector c #!optional (procedure (c fixnum a) a) fixnum fixnum) a))) (irregex-reset-matches! (procedure irregex-reset-matches! ((struct regexp-match)) (struct regexp-match))) ;; A silly procedure, but at least we can "inline" it like this (irregex-match? (#(procedure #:clean #:enforce) irregex-match? (* string #!optional fixnum fixnum) boolean) ((* string) (and (irregex-match #(1) #(2)) '#t)) ((* string fixnum) (and (irregex-match #(1) #(2) #(3)) '#t)) ((* string fixnum fixnum) (and (irregex-match #(1) #(2) #(3) #(4)) '#t))) ;; These two return #f or a match object (irregex-match (#(procedure #:clean #:enforce) 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 (irregex-match/chunked (#(procedure #:enforce) irregex-match/chunked (* vector * #!optional fixnum) (or false (struct regexp-match)))) (irregex-match-data? (#(procedure #:pure #:predicate (struct regexp-match)) irregex-match-data? (*) boolean)) (irregex-match-end-index (#(procedure #:clean #:enforce) irregex-match-end-index ((struct regexp-match) #!optional *) fixnum)) (irregex-match-end-chunk (#(procedure #:clean #:enforce) irregex-match-end-chunk ((struct regexp-match) #!optional *) *)) (irregex-match-start-index (#(procedure #:clean #:enforce) irregex-match-start-index ((struct regexp-match) #!optional *) fixnum)) (irregex-match-start-chunk (#(procedure #:clean #:enforce) irregex-match-start-chunk ((struct regexp-match) #!optional *) *)) (irregex-match-substring (#(procedure #:clean #:enforce) irregex-match-substring ((struct regexp-match) #!optional *) *)) (irregex-match-subchunk (#(procedure #:clean #:enforce) irregex-match-subchunk ((struct regexp-match) #!optional *) *)) (irregex-match-names (#(procedure #:clean #:enforce) irregex-match-names ((struct regexp-match)) list) (((struct regexp-match)) (##sys#slot #(1) '2))) (irregex-match-num-submatches (#(procedure #:enforce) irregex-match-num-submatches ((struct regexp-match)) fixnum) (((struct regexp-match)) (fx- (fx/ (##sys#size (##sys#slot #(1) '1)) '4) '2))) (irregex-new-matches (procedure irregex-new-matches (*) *)) ; really only for internal use.. (irregex-opt (#(procedure #:clean #:enforce) irregex-opt (list) *)) (irregex-quote (#(procedure #:clean #:enforce) irregex-quote (string) string)) (irregex-replace (#(procedure #:enforce) irregex-replace (* string #!rest) string)) (irregex-replace/all (#(procedure #:enforce) irregex-replace/all (* string #!rest) string)) ;; Returns a list of strings, but *only* when all user-procedures do (irregex-apply-match (procedure ((struct regexp-match) list) list)) ; internal use ;; These return #f or a match object (irregex-search (#(procedure #:clean #:enforce) irregex-search (* string #!optional fixnum fixnum) (or false (struct regexp-match)))) ;; XXX chunker is a plain vector (irregex-search/chunked (#(procedure #:enforce) irregex-search/chunked (* vector * #!optional fixnum *) (or false (struct regexp-match)))) (irregex-search/matches (#(procedure #:enforce) irregex-search/matches (* vector * * fixnum (struct regexp-match)) (or false (struct regexp-match)))) (irregex-match-valid-index? (#(procedure #:clean #:enforce) irregex-match-valid-index? ((struct regexp-match) *) boolean)) (irregex? (#(procedure #:pure #:predicate (struct regexp)) irregex? (*) boolean)) (make-irregex-chunker (#(procedure #:enforce) make-irregex-chunker ((procedure (*) *) (procedure (*) *) #!optional (procedure (*) *) (procedure (*) *) (procedure (* fixnum * fixnum) string) (procedure (* fixnum * fixnum) *)) *)) (maybe-string->sre (#(procedure #:clean) maybe-string->sre (*) *)) (sre->irregex (#(procedure #:clean) sre->irregex (#!rest) *)) (string->irregex (#(procedure #:clean #:enforce) string->irregex (string #!rest) *)) (string->sre (#(procedure #:clean #:enforce) string->sre (string #!rest) *)) ;; lolevel (address->pointer (#(procedure #:clean #:enforce) address->pointer (fixnum) pointer) ((fixnum) (##sys#address->pointer #(1)))) (align-to-word (#(procedure #:clean) align-to-word ((or number pointer locative procedure port)) (or pointer number))) (allocate (#(procedure #:clean #:enforce) allocate (fixnum) (or false pointer))) (block-ref (#(procedure #:clean #:enforce) block-ref (* fixnum) *)) (block-set! (#(procedure #:enforce) block-set! (* fixnum *) *)) (extend-procedure (#(procedure #:clean #:enforce) extend-procedure (procedure *) procedure)) (extended-procedure? (#(procedure #:clean) extended-procedure (*) boolean)) (free (#(procedure #:clean #:enforce) free (pointer) undefined)) (locative->object (#(procedure #:clean #:enforce) locative->object (locative) *)) (locative-ref (#(procedure #:clean #:enforce) locative-ref (locative) *) ((locative) (##core#inline_allocate ("C_a_i_locative_ref" 4) #(1)))) (locative-set! (#(procedure #:enforce) locative-set! (locative *) *)) (locative? (#(procedure #:pure #:predicate locative) locative? (*) boolean)) (make-locative (#(procedure #:clean #:enforce) make-locative (* #!optional fixnum) locative)) (make-pointer-vector (#(procedure #:clean #:enforce) make-pointer-vector (fixnum #!optional (or pointer false)) pointer-vector)) (make-record-instance (#(procedure #:clean) make-record-instance (symbol #!rest) *)) (make-weak-locative (#(procedure #:clean #:enforce) make-weak-locative (* #!optional fixnum) locative)) (move-memory! (#(procedure #:enforce) move-memory! (* * #!optional fixnum fixnum fixnum) *)) (mutate-procedure! (#(procedure #:enforce) mutate-procedure! (procedure (procedure (procedure) . *)) procedure)) (number-of-bytes (#(procedure #:clean) number-of-bytes (*) fixnum) (((or blob string)) (##sys#size #(1))) (((or port procedure symbol 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))))) (number-of-slots (#(procedure #:clean) number-of-slots (*) fixnum) (((or vector symbol pair)) (##sys#size #(1)))) (object->pointer (#(procedure #:clean) object->pointer (*) *)) (object-become! (procedure object-become! (list) *)) (object-copy (#(procedure #:clean) object-copy (*) *)) (object-evict (#(procedure #:clean #:enforce) object-evict (* #!optional (procedure (fixnum) pointer)) *)) (object-evict-to-location (#(procedure #:clean #:enforce) object-evict-to-location (* (or pointer locative procedure port) #!optional fixnum) * pointer)) (object-evicted? (#(procedure #:pure) object-evicted? (*) boolean)) (object-release (#(procedure #:enforce) object-release (* #!optional (procedure (pointer) *)) *)) (object-size (#(procedure #:clean) object-size (*) fixnum)) (object-unevict (procedure object-unevict (* #!optional *) *)) (pointer+ (#(procedure #:clean #:enforce) pointer+ ((or pointer procedure port locative) fixnum) pointer)) (pointer->address (#(procedure #:clean #:enforce) pointer->address ((or pointer procedure port locative)) number) ((pointer) (##sys#pointer->address #(1)))) (pointer->object (#(procedure #:clean #:enforce) pointer->object (pointer) *) ((pointer) (##core#inline "C_pointer_to_object" #(1)))) (pointer-like? (#(procedure #:pure #:predicate (or pointer locative procedure port)) pointer-like? (*) boolean) (((or pointer locative procedure port)) (let ((#(tmp) #(1))) '#t))) (pointer-f32-ref (#(procedure #:clean #:enforce) pointer-f32-ref (pointer) number)) (pointer-f32-set! (#(procedure #:clean #:enforce) pointer-f32-set! (pointer number) undefined)) (pointer-f64-ref (#(procedure #:clean #:enforce) pointer-f64-ref (pointer) number)) (pointer-f64-set! (#(procedure #:clean #:enforce) pointer-f64-set! (pointer number) undefined)) (pointer-vector (#(procedure #:clean #:enforce) pointer-vector (#!rest pointer-vector) boolean)) (pointer-vector? (#(procedure #:pure #:predicate pointer-vector) pointer-vector? (*) boolean)) (pointer-vector-fill! (#(procedure #:clean #:enforce) pointer-vector-fill! (pointer-vector (or pointer false)) undefined)) (pointer-vector-length (#(procedure #:clean #:enforce) pointer-vector-length (pointer-vector) fixnum) ((pointer-vector) (##sys#slot #(1) '1))) (pointer-vector-ref (#(procedure #:clean #:enforce) pointer-vector-ref (pointer-vector fixnum) (or pointer false))) (pointer-vector-set! (#(procedure #:clean #:enforce) pointer-vector-set! (pointer-vector fixnum (or pointer false)) undefined)) (pointer-s16-ref (#(procedure #:clean #:enforce) pointer-s16-ref (pointer) fixnum)) (pointer-s16-set! (#(procedure #:clean #:enforce) pointer-s16-set! (pointer fixnum) undefined)) (pointer-s32-ref (#(procedure #:clean #:enforce) pointer-s32-ref (pointer) number)) (pointer-s32-set! (#(procedure #:clean #:enforce) pointer-s32-set! (pointer number) undefined)) (pointer-s8-ref (#(procedure #:clean #:enforce) pointer-s8-ref (pointer) fixnum)) (pointer-s8-set! (#(procedure #:clean #:enforce) pointer-s8-set! (pointer fixnum) undefined)) (pointer-tag (#(procedure #:clean #:enforce) pointer-tag ((or pointer locative procedure port)) *) (((or locative procedure port)) (let ((#(tmp) #(1))) '#f))) (pointer-u16-ref (#(procedure #:clean #:enforce) pointer-u16-ref (pointer) fixnum)) (pointer-u16-set! (#(procedure #:clean #:enforce) pointer-u16-set! (pointer fixnum) undefined)) (pointer-u32-ref (#(procedure #:clean #:enforce) pointer-u32-ref (pointer) number)) (pointer-u32-set! (#(procedure #:clean #:enforce) pointer-u32-set! (pointer number) undefined)) (pointer-u8-ref (#(procedure #:clean #:enforce) pointer-u8-ref (pointer) fixnum)) (pointer-u8-set! (#(procedure #:clean #:enforce) pointer-u8-set! (pointer fixnum) undefined)) (pointer=? (#(procedure #:clean #:enforce) pointer=? ((or pointer locative procedure port) (or pointer locative procedure port)) boolean) ((pointer pointer) (##core#inline "C_pointer_eqp" #(1) #(2)))) (pointer? (#(procedure #:clean #:predicate pointer) pointer? (*) boolean)) (procedure-data (#(procedure #:clean #:enforce) procedure-data (procedure) *)) (record->vector (#(procedure #:clean) record->vector (*) vector)) (record-instance? (#(procedure #:clean) record-instance? (* #!optional symbol) boolean) ((* symbol) (##sys#structure? #(1) #(2))) ((*) (let ((#(tmp) #(1))) (if (##sys#immediate? #(tmp)) '#f (##sys#generic-structure? #(tmp)))))) (record-instance-length (#(procedure #:clean) record-instance-length (*) fixnum)) (record-instance-slot (#(procedure #:clean #:enforce) record-instance-slot (* fixnum) *)) (record-instance-slot-set! (#(procedure #:clean #:enforce) record-instance-slot-set! (* fixnum *) undefined)) (record-instance-type (#(procedure #:clean) record-instance-type (*) *)) (set-procedure-data! (#(procedure #:clean #:enforce) set-procedure-data! (procedure *) undefined)) (tag-pointer (#(procedure #:clean #:enforce) tag-pointer (pointer *) pointer)) (tagged-pointer? (#(procedure #:clean #:enforce) tagged-pointer? (* #!optional *) boolean)) ;; ports (call-with-input-string (#(procedure #:enforce) call-with-input-string (string (procedure (input-port) . *)) . *)) (call-with-output-string (#(procedure #:enforce) call-with-output-string ((procedure (output-port) . *)) string)) (copy-port (#(procedure #:enforce) copy-port (* * #!optional (procedure (*) *) (procedure (* output-port) *)) undefined)) (make-input-port (#(procedure #:clean #:enforce) make-input-port ((procedure () (or char eof)) (procedure () *) (procedure () . *) #!optional * * * *) input-port)) (make-output-port (#(procedure #:clean #:enforce) make-output-port ((procedure (string) . *) (procedure () . *) #!optional (procedure () . *)) output-port)) (port-for-each (#(procedure #:enforce) port-for-each ((procedure (*) *) (procedure () . *)) undefined)) (port-map (forall (a b) (#(procedure #:enforce) port-map ((procedure (a) b) (procedure () a)) (list-of b)))) (port-fold (#(procedure #:enforce) port-fold ((procedure (* *) *) * (procedure () *)) *)) (make-broadcast-port (#(procedure #:clean #:enforce) make-broadcast-port (#!rest output-port) output-port)) (make-concatenated-port (#(procedure #:clean #:enforce) make-concatenated-port (port #!rest input-port) input-port)) (with-error-output-to-port (#(procedure #:enforce) with-error-output-to-port (output-port (procedure () . *)) . *)) (with-input-from-port (#(procedure #:enforce) with-input-from-port (input-port (procedure () . *)) . *)) (with-input-from-string (#(procedure #:enforce) with-input-from-string (string (procedure () . *)) . *)) (with-output-to-port (#(procedure #:enforce) with-output-to-port (output-port (procedure () . *)) . *)) (with-output-to-string (#(procedure #:enforce) with-output-to-string ((procedure () . *)) . *)) ;; posix (_exit (procedure _exit (#!optional fixnum) noreturn)) (call-with-input-pipe (#(procedure #:enforce) call-with-input-pipe (string (procedure (input-port) . *) #!optional symbol) . *)) (call-with-output-pipe (#(procedure #:enforce) call-with-output-pipe (string (procedure (input-port) . *) #!optional symbol) . *)) (change-directory (#(procedure #:clean #:enforce) change-directory (string) string)) (change-directory* (#(procedure #:clean #:enforce) change-directory* (fixnum) fixnum)) (change-file-mode (#(procedure #:clean #:enforce) change-file-mode (string fixnum) undefined)) (change-file-owner (#(procedure #:clean #:enforce) change-file-owner (string fixnum fixnum) undefined)) (close-input-pipe (#(procedure #:clean #:enforce) close-input-pipe (input-port) fixnum)) (close-output-pipe (#(procedure #:clean #:enforce) close-output-pipe (output-port) fixnum)) (create-directory (#(procedure #:clean #:enforce) create-directory (string #!optional *) string)) (create-fifo (#(procedure #:clean #:enforce) create-fifo (string #!optional fixnum) undefined)) (create-pipe (procedure create-pipe () fixnum fixnum)) (create-session (#(procedure #:clean) create-session () fixnum)) (create-symbolic-link (#(procedure #:clean #:enforce) create-symbolic-link (string string) undefined)) ;; extra arg for "parameterize" - ugh, what a hack... (current-directory (#(procedure #:clean #:enforce) current-directory (#!optional string *) string)) (current-effective-group-id (#(procedure #:clean) current-effective-group-id () fixnum)) (current-effective-user-id (#(procedure #:clean) current-effective-user-id () fixnum)) (current-effective-user-name (#(procedure #:clean) current-effective-user-name () string)) (get-environment-variables (#(procedure #:clean) get-environment-variables () (list-of (pair string string)))) (current-group-id (#(procedure #:clean) current-group-id () fixnum)) (current-process-id (#(procedure #:clean) current-process-id () fixnum)) (current-user-id (#(procedure #:clean) current-user-id () fixnum)) (current-user-name (#(procedure #:clean) current-user-name () string)) (delete-directory (#(procedure #:clean #:enforce) delete-directory (string #!optional *) string)) (directory (#(procedure #:clean #:enforce) directory (#!optional string *) (list-of string))) (directory? (#(procedure #:clean #:enforce) directory? ((or string fixnum)) boolean)) (duplicate-fileno (#(procedure #:clean #:enforce) duplicate-fileno (fixnum #!optional fixnum) fixnum)) (errno/2big fixnum) (errno/acces fixnum) (errno/again fixnum) (errno/badf fixnum) (errno/busy fixnum) (errno/child fixnum) (errno/deadlk fixnum) (errno/dom fixnum) (errno/exist fixnum) (errno/fault fixnum) (errno/fbig fixnum) (errno/ilseq fixnum) (errno/intr fixnum) (errno/inval fixnum) (errno/io fixnum) (errno/isdir fixnum) (errno/mfile fixnum) (errno/mlink fixnum) (errno/nametoolong fixnum) (errno/nfile fixnum) (errno/nodev fixnum) (errno/noent fixnum) (errno/noexec fixnum) (errno/nolck fixnum) (errno/nomem fixnum) (errno/nospc fixnum) (errno/nosys fixnum) (errno/notdir fixnum) (errno/notempty fixnum) (errno/notty fixnum) (errno/nxio fixnum) (errno/perm fixnum) (errno/pipe fixnum) (errno/range fixnum) (errno/rofs fixnum) (errno/spipe fixnum) (errno/srch fixnum) (errno/wouldblock fixnum) (errno/xdev fixnum) (fcntl/dupfd fixnum) (fcntl/getfd fixnum) (fcntl/getfl fixnum) (fcntl/setfd fixnum) (fcntl/setfl fixnum) (file-access-time (#(procedure #:clean #:enforce) file-access-time ((or string fixnum)) number)) (file-change-time (#(procedure #:clean #:enforce) file-change-time ((or string fixnum)) number)) (file-close (#(procedure #:clean #:enforce) file-close (fixnum) undefined)) (file-control (#(procedure #:clean #:enforce) file-control (fixnum fixnum #!optional fixnum) fixnum)) (file-creation-mode (#(procedure #:clean #:enforce) file-creation-mode (#!optional fixnum) fixnum)) (file-execute-access? (#(procedure #:clean #:enforce) file-execute-access? (string) boolean)) (file-link (#(procedure #:clean #:enforce) file-link (string string) undefined)) (file-lock (#(procedure #:clean #:enforce) file-lock (port #!optional fixnum *) (struct lock))) (file-lock/blocking (#(procedure #:clean #:enforce) file-lock/blocking (port #!optional fixnum *) (struct lock))) (file-mkstemp (#(procedure #:clean #:enforce) file-mkstemp (string) fixnum string)) (file-modification-time (#(procedure #:clean #:enforce) file-modification-time ((or string fixnum)) number)) (file-open (#(procedure #:clean #:enforce) file-open (string fixnum #!optional fixnum) fixnum)) (file-owner (#(procedure #:clean #:enforce) file-owner ((or string fixnum)) fixnum)) (file-permissions (#(procedure #:clean #:enforce) file-permissions ((or string fixnum)) fixnum)) (file-position (#(procedure #:clean #:enforce) file-position ((or port fixnum)) fixnum)) (file-read (#(procedure #:clean #:enforce) file-read (fixnum fixnum #!optional *) list)) (file-read-access? (#(procedure #:clean #:enforce) file-read-access? (string) boolean)) (file-select (#(procedure #:clean #:enforce) file-select ((or (list-of fixnum) fixnum false) (or (list-of fixnum) fixnum false) #!optional fixnum) * *)) (file-size (#(procedure #:clean #:enforce) file-size ((or string fixnum)) number)) (file-stat (#(procedure #:clean #:enforce) file-stat ((or string fixnum) #!optional *) (vector-of number))) (file-test-lock (#(procedure #:clean #:enforce) file-test-lock (port #!optional fixnum *) boolean)) (file-truncate (#(procedure #:clean #:enforce) file-truncate ((or string fixnum) fixnum) undefined)) (file-type (#(procedure #:clean #:enforce) ((or string fixnum) #!optional * *) symbol)) (file-unlock (#(procedure #:clean #:enforce) file-unlock ((struct lock)) undefined)) (file-write (#(procedure #:clean #:enforce) file-write (fixnum * #!optional fixnum) fixnum)) (file-write-access? (#(procedure #:clean #:enforce) file-write-access? (string) boolean)) (fileno/stderr fixnum) (fileno/stdin fixnum) (fileno/stdout fixnum) (find-files (#(procedure #:enforce) find-files (string #!rest) list)) (get-groups (#(procedure #:clean) get-groups () list)) (get-host-name (#(procedure #:clean) get-host-name () string)) (glob (#(procedure #:clean #:enforce) glob (#!rest string) list)) (group-information (#(procedure #:clean #:enforce) group-information (fixnum #!optional *) *)) (initialize-groups (#(procedure #:clean #:enforce) initialize-groups (string fixnum) undefined)) (local-time->seconds (#(procedure #:clean #:enforce) local-time->seconds ((vector fixnum fixnum fixnum fixnum fixnum fixnum fixnum fixnum boolean fixnum)) number)) (local-timezone-abbreviation (#(procedure #:clean) local-timezone-abbreviation () string)) (map-file-to-memory (#(procedure #:clean #:enforce) map-file-to-memory (* fixnum fixnum fixnum fixnum #!optional fixnum) (struct mmap))) (map/anonymous fixnum) (map/file fixnum) (map/fixed fixnum) (map/private fixnum) (map/shared fixnum) (memory-mapped-file-pointer (#(procedure #:clean #:enforce) memory-mapped-file-pointer ((struct mmap)) pointer)) (memory-mapped-file? (#(procedure #:clean #:predicate (struct mmap)) memory-mapped-file? (*) boolean)) (open-input-file* (#(procedure #:clean #:enforce) open-input-file* (fixnum #!optional symbol) input-port)) (open-input-pipe (#(procedure #:clean #:enforce) open-input-pipe (string #!optional symbol) input-port)) (open-output-file* (#(procedure #:clean #:enforce) open-output-file* (fixnum #!optional symbol) output-port)) (open-output-pipe (#(procedure #:clean #:enforce) open-output-pipe (string #!optional symbol) output-port)) (open/append fixnum) (open/binary fixnum) (open/creat fixnum) (open/excl fixnum) (open/fsync fixnum) (open/noctty fixnum) (open/nonblock fixnum) (open/rdonly fixnum) (open/rdwr fixnum) (open/read fixnum) (open/sync fixnum) (open/text fixnum) (open/trunc fixnum) (open/write fixnum) (open/wronly fixnum) (parent-process-id (#(procedure #:clean) parent-process-id () fixnum)) (perm/irgrp fixnum) (perm/iroth fixnum) (perm/irusr fixnum) (perm/irwxg fixnum) (perm/irwxo fixnum) (perm/irwxu fixnum) (perm/isgid fixnum) (perm/isuid fixnum) (perm/isvtx fixnum) (perm/iwgrp fixnum) (perm/iwoth fixnum) (perm/iwusr fixnum) (perm/ixgrp fixnum) (perm/ixoth fixnum) (perm/ixusr fixnum) (pipe/buf fixnum) (port->fileno (#(procedure #:clean #:enforce) port->fileno (port) fixnum)) (process (#(procedure #:clean #:enforce) process (string #!optional (list-of string) (list-of string)) input-port output-port fixnum)) (process* (#(procedure #:clean #:enforce) process* (string #!optional (list-of string) (list-of string)) input-port output-port fixnum *)) (process-execute (#(procedure #:clean #:enforce) process-execute (string #!optional (list-of string) (list-of string)) noreturn)) (process-fork (#(procedure #:enforce) process-fork (#!optional (or (procedure () . *) false) *) fixnum)) (process-group-id (#(procedure #:clean #:enforce) process-group-id () fixnum)) (process-run (#(procedure #:clean #:enforce) process-run (string #!optional (list-of string)) fixnum)) (process-signal (#(procedure #:clean #:enforce) process-signal (fixnum #!optional fixnum) undefined)) (process-wait (#(procedure #:clean #:enforce) process-wait (#!optional fixnum *) fixnum fixnum fixnum)) (prot/exec fixnum) (prot/none fixnum) (prot/read fixnum) (prot/write fixnum) (read-symbolic-link (#(procedure #:clean #:enforce) read-symbolic-link (string #!optional boolean) string)) (regular-file? (#(procedure #:clean #:enforce) regular-file? ((or string fixnum)) boolean)) (seconds->local-time (#(procedure #:clean #:enforce) seconds->local-time (#!optional number) (vector fixnum fixnum fixnum fixnum fixnum fixnum fixnum fixnum boolean fixnum))) (seconds->string (#(procedure #:clean #:enforce) seconds->string (#!optional number) string)) (seconds->utc-time (#(procedure #:clean #:enforce) seconds->utc-time (#!optional number) (vector fixnum fixnum fixnum fixnum fixnum fixnum fixnum fixnum boolean fixnum))) (seek/cur fixnum) (seek/end fixnum) (seek/set fixnum) (set-alarm! (#(procedure #:clean #:enforce) set-alarm! (number) number)) (set-buffering-mode! (#(procedure #:clean #:enforce) set-buffering-mode! (port symbol #!optional fixnum) undefined)) (set-file-position! (#(procedure #:clean #:enforce) set-file-position! ((or port fixnum) fixnum #!optional fixnum) undefined)) (set-groups! (#(procedure #:clean #:enforce) set-groups! ((list-of fixnum)) undefined)) (set-root-directory! (#(procedure #:clean #:enforce) set-root-directory! (string) undefined)) (set-signal-handler! (#(procedure #:clean #:enforce) set-signal-handler! (fixnum (or false (procedure (fixnum) . *))) undefined)) (set-signal-mask! (#(procedure #:clean #:enforce) set-signal-mask! ((list-of fixnum)) undefined)) (setenv (#(procedure #:clean #:enforce) setenv (string string) undefined)) (signal-handler (#(procedure #:clean #:enforce) signal-handler (fixnum) (or false (procedure (fixnum) . *)))) (signal-mask (#(procedure #:clean) signal-mask () fixnum)) (signal-mask! (#(procedure #:clean #:enforce) signal-mask! (fixnum) undefined)) (signal-masked? (#(procedure #:clean #:enforce) signal-masked? (fixnum) boolean)) (signal-unmask! (#(procedure #:clean #:enforce) signal-unmask! (fixnum) undefined)) (signal/abrt fixnum) (signal/alrm fixnum) (signal/chld fixnum) (signal/cont fixnum) (signal/fpe fixnum) (signal/hup fixnum) (signal/ill fixnum) (signal/int fixnum) (signal/io fixnum) (signal/bus fixnum) (signal/kill fixnum) (signal/pipe fixnum) (signal/prof fixnum) (signal/quit fixnum) (signal/segv fixnum) (signal/stop fixnum) (signal/term fixnum) (signal/trap fixnum) (signal/tstp fixnum) (signal/urg fixnum) (signal/usr1 fixnum) (signal/usr2 fixnum) (signal/vtalrm fixnum) (signal/winch fixnum) (signal/xcpu fixnum) (signal/xfsz fixnum) (signals-list list) (sleep (#(procedure #:clean #:enforce) sleep (fixnum) fixnum)) (block-device? (#(procedure #:clean #:enforce) block-device? ((or string fixnum)) boolean)) (character-device? (#(procedure #:clean #:enforce) character-device? ((or string fixnum)) boolean)) (fifo? (#(procedure #:clean #:enforce) fifo? ((or string fixnum)) boolean)) (socket? (#(procedure #:clean #:enforce) socket? ((or string fixnum)) boolean)) (string->time (#(procedure #:clean #:enforce) string->time (string #!optional string) (vector fixnum fixnum fixnum fixnum fixnum fixnum fixnum fixnum boolean fixnum))) (symbolic-link? (#(procedure #:clean #:enforce) symbolic-link? ((or string fixnum)) boolean)) (system-information (#(procedure #:clean) system-information () list)) (terminal-name (#(procedure #:clean #:enforce) terminal-name (port) string)) (terminal-port? (#(procedure #:clean #:enforce) terminal-port? (port) boolean)) (terminal-size (#(procedure #:clean #:enforce) terminal-size (port) fixnum fixnum)) (time->string (#(procedure #:clean #:enforce) time->string ((vector fixnum fixnum fixnum fixnum fixnum fixnum fixnum fixnum boolean fixnum) #!optional string) string)) (unmap-file-from-memory (#(procedure #:clean #:enforce) unmap-file-from-memory ((struct mmap) #!optional fixnum) undefined)) (unsetenv (#(procedure #:clean #:enforce) unsetenv (string) undefined)) (user-information (#(procedure #:clean #:enforce) user-information ((or string fixnum) #!optional *) *)) (utc-time->seconds (#(procedure #:clean #:enforce) utc-time->seconds ((vector fixnum fixnum fixnum fixnum fixnum fixnum fixnum fixnum boolean fixnum)) number)) (with-input-from-pipe (#(procedure #:enforce) with-input-from-pipe (string (procedure () . *) #!optional symbol) . *)) (with-output-to-pipe (#(procedure #:enforce) with-output-to-pipe (string (procedure () . *) #!optional symbol) . *)) ;; srfi-1 (alist-cons (forall (a b c) (#(procedure #:pure) alist-cons (a b (list-of c)) (pair (pair a b) (list-of c))))) (alist-copy (forall (a b) (#(procedure #:clean #:enforce) alist-copy ((list-of (pair a b))) (list-of (pair a b))))) (alist-delete (forall (a b c) (#(procedure #:clean) alist-delete (a (list-of (pair b c)) #!optional (procedure (a b) *)) (list-of (pair b c))))) (alist-delete! (forall (a b c) (#(procedure) alist-delete! (a (list-of (pair b c)) #!optional (procedure (a b) *)) (list-of (pair b c))))) (any (forall (a) (#(procedure #:enforce) any ((procedure (a #!rest) *) (list-of a) #!rest list) *))) (append! (#(procedure #:enforce) append! (#!rest list) list)) (append-map (forall (a b) (#(procedure #:enforce) append-map ((procedure (a #!rest) (list-of b)) (list-of a) #!rest list) (list-of b)))) (append-map! (forall (a b) (#(procedure #:enforce) append-map! ((procedure (a #!rest) (list-of b)) (list-of a) #!rest list) (list-of b)))) (append-reverse (#(procedure #:clean #:enforce) append-reverse (list list) list)) (append-reverse! (#(procedure #:enforce) append-reverse! (list list) list)) (break (forall (a) (#(procedure #:enforce) break ((procedure (a) *) (list-of a)) (list-of a) (list-of a)))) (break! (forall (a) (#(procedure #:enforce) break! ((procedure (a) *) (list-of a)) (list-of a) (list-of a)))) (car+cdr (forall (a b) (#(procedure #:clean #:enforce) car+cdr ((pair a b)) a b))) (circular-list (#(procedure #:clean) circular-list (#!rest) list)) (circular-list? (#(procedure #:clean) circular-list? (*) boolean) ((null) (let ((#(tmp) #(1))) '#f))) (concatenate (#(procedure #:clean #:enforce) concatenate ((list-of list)) list)) (concatenate! (#(procedure #:enforce) concatenate! ((list-of list)) list)) (cons* (forall (a) (#(procedure #:clean) cons* (a #!rest) (pair a *)))) (count (forall (a) (#(procedure #:enforce) count ((procedure (a #!rest) *) (list-of a) #!rest list) fixnum))) (delete (forall (a b) (#(procedure #:enforce) delete (a (list-of b) #!optional (procedure (a *) *)) (list-of b)))) (delete! (forall (a b) (#(procedure #:enforce) delete! (a (list-of b) #!optional (procedure (a *) *)) (list-of b)))) (delete-duplicates (forall (a) (#(procedure #:enforce) delete-duplicates ((list-of a) #!optional (procedure (a *) *)) (list-of a)))) (delete-duplicates! (forall (a) (#(procedure #:enforce) delete-duplicates! ((list-of a) #!optional (procedure (a *) *)) (list-of a)))) (dotted-list? (#(procedure #:clean) dotted-list? (*) boolean)) (drop (forall (a) (#(procedure #:enforce) drop ((list-of a) fixnum) (list-of a)))) (drop-right (forall (a) (#(procedure #:enforce) drop-right ((list-of a) fixnum) (list-of a)))) (drop-right! (forall (a) (#(procedure #:enforce) drop-right! ((list-of a) fixnum) (list-of a)))) (drop-while (forall (a) (#(procedure #:enforce) drop-while ((procedure (a) *) (list-of a)) (list-of a)))) (eighth (#(procedure #:clean #:enforce) eighth (pair) *)) (every (forall (a) (#(procedure #:enforce) every ((procedure (a #!rest) *) (list-of a) #!rest list) *))) (fifth (#(procedure #:clean #:enforce) fifth (pair) *)) (filter (forall (a) (#(procedure #:enforce) filter ((procedure (a) *) (list-of a)) (list-of a)))) (filter! (forall (a) (#(procedure #:enforce) filter! ((procedure (a) *) (list-of a)) (list-of a)))) (filter-map (forall (a b) (#(procedure #:enforce) filter-map ((procedure (a #!rest) b) (list-of a) #!rest list) (list-of b)))) (find (forall (a) (#(procedure #:enforce) find ((procedure (a) *) (list-of a)) *))) (find-tail (forall (a) (#(procedure #:enforce) find-tail ((procedure (a) *) (list-of a)) *))) (first (forall (a) (#(procedure #:clean #:enforce) first ((pair a *)) a)) ((pair) (##core#inline "C_u_i_car" #(1)))) (fold (#(procedure #:enforce) fold ((procedure (* #!rest) *) * #!rest list) *)) ;XXX (fold-right (#(procedure #:enforce) fold-right ((procedure (* #!rest) *) * #!rest list) *)) ;XXX (fourth (forall (a) (#(procedure #:clean #:enforce) fourth ((pair * (pair * (pair * (pair a *))))) a)) (((pair * (pair * (pair * (pair * *))))) (##core#inline "C_u_i_car" (##core#inline "C_u_i_cdr" (##core#inline "C_u_i_cdr" (##core#inline "C_u_i_cdr" #(1))))))) (iota (#(procedure #:clean #:enforce) iota (fixnum #!optional fixnum fixnum) (list-of number))) (last (#(procedure #:clean #:enforce) last (pair) *)) (last-pair (#(procedure #:clean #:enforce) last-pair (pair) *)) (length+ (#(procedure #:clean #:enforce) length+ (list) *)) (list-copy (forall (a) (#(procedure #:pure) list-copy (a) a))) (list-index (forall (a) (#(procedure #:enforce) list-index ((procedure (a #!rest) *) (list-of a) #!rest list) *))) (list-tabulate (forall (a) (#(procedure #:enforce) list-tabulate (fixnum (procedure (fixnum) a)) (list-of a)))) (list= (#(procedure #:clean #:enforce) list= (#!optional (procedure (list list) *) #!rest list) boolean) (() '#t) ((procedure) (let ((#(tmp) #(1))) '#t))) (lset-adjoin (forall (a) (#(procedure #:enforce) lset-adjoin ((procedure (a a) *) (list-of a) #!rest a) (list-of a))) ((procedure list) (let ((#(tmp) #(1))) #(2)))) (lset-diff+intersection (forall (a) (#(procedure #:enforce) lset-diff+intersection ((procedure (a a) *) (list-of a) #!rest (list-of a)) (list-of a) (list-of a))) ((procedure list) (let ((#(tmp) #(1))) (##sys#values #(2) '())))) (lset-diff+intersection! (forall (a) (#(procedure #:enforce) lset-diff+intersection! ((procedure (a a) *) (list-of a) #!rest (list-of a)) (list-of a) (list-of a))) ((procedure list) (let ((#(tmp) #(1))) (##sys#values #(2) '())))) (lset-difference (forall (a) (#(procedure #:enforce) lset-difference ((procedure (a a) *) (list-of a) #!rest (list-of a)) (list-of a))) ((procedure list) (let ((#(tmp) #(1))) #(2)))) (lset-difference! (forall (a) (#(procedure #:enforce) lset-difference! ((procedure (a a) *) (list-of a) #!rest (list-of a)) (list-of a))) ((procedure list) (let ((#(tmp) #(1))) #(2)))) (lset-intersection (forall (a) (#(procedure #:enforce) lset-intersection ((procedure (a a) *) (list-of a) #!rest (list-of a)) (list-of a))) ((procedure list) (let ((#(tmp) #(1))) #(2)))) (lset-intersection! (forall (a) (#(procedure #:enforce) lset-intersection! ((procedure (a a) *) (list-of a) #!rest (list-of a)) (list-of a))) ((procedure list) (let ((#(tmp) #(1))) #(2)))) (lset-union (forall (a) (#(procedure #:enforce) lset-union ((procedure (a a) *) #!rest (list-of a)) (list-of a))) ((procedure) (let ((#(tmp) #(1))) '())) ((procedure list) (let ((#(tmp) #(1))) #(2)))) (lset-union! (forall (a) (#(procedure #:enforce) lset-union! ((procedure (a a) *) #!rest (list-of a)) (list-of a))) ((procedure) (let ((#(tmp) #(1))) '())) ((procedure list) (let ((#(tmp) #(1))) #(2)))) (lset-xor (forall (a) (#(procedure #:enforce) lset-xor ((procedure (a a) *) #!rest (list-of a)) (list-of a))) ((procedure) (let ((#(tmp) #(1))) '())) ((procedure list) (let ((#(tmp) #(1))) #(2)))) (lset-xor! (forall (a) (#(procedure #:enforce) lset-xor! ((procedure (a a) *) #!rest (list-of a)) (list-of a))) ((procedure) (let ((#(tmp) #(1))) '())) ((procedure list) (let ((#(tmp) #(1))) #(2)))) (lset<= (forall (a) (#(procedure #:enforce) lset<= ((procedure (a a) *) #!rest (list-of a)) boolean)) ((procedure) (let ((#(tmp) #(1))) '#t)) ((procedure list) (let ((#(tmp1) #(1)) (#(tmp2) #(2))) '#t))) (lset= (forall (a) (#(procedure #:enforce) lset= ((procedure (a a) *) #!rest (list-of a)) boolean)) ((procedure) (let ((#(tmp) #(1))) '#t)) ((procedure list) (let ((#(tmp1) #(1)) (#(tmp2) #(2))) '#t))) ;; special-cased (see scrutinizer.scm) (make-list (forall (a) (#(procedure #:clean #:enforce) make-list (fixnum #!optional a) (list-of a)))) (map! (forall (a b) (#(procedure #:enforce) map! ((procedure (a #!rest) b) (list-of a) #!rest list) (list-of b)))) (map-in-order (forall (a b) (#(procedure #:enforce) map-in-order ((procedure (a #!rest) b) (list-of a) #!rest list) (list-of b)))) (ninth (#(procedure #:clean #:enforce) ninth (pair) *)) (not-pair? (#(procedure #:clean) not-pair? (*) boolean) ((pair) (let ((#(tmp) #(1))) '#f)) (((not (or pair list))) (let ((#(tmp) #(1))) '#t))) (null-list? (#(procedure #:clean #:enforce) null-list? (list) boolean) ((pair) (let ((#(tmp) #(1))) '#f)) ((list) (let ((#(tmp) #(1))) '#f)) ((null) (let ((#(tmp) #(1))) '#t))) (pair-fold (#(procedure #:enforce) pair-fold (procedure * list #!rest list) *)) ;XXX do this (pair-fold-right (#(procedure #:enforce) pair-fold-right (procedure * list #!rest list) *)) ;XXX (pair-for-each (#(procedure #:enforce) pair-for-each ((procedure (#!rest) . *) list #!rest list) undefined)) ;XXX (partition (forall (a) (#(procedure #:enforce) partition ((procedure (a) *) (list-of a)) (list-of a) (list-of a)))) (partition! (forall (a) (#(procedure #:enforce) partition! ((procedure (a) *) (list-of a)) (list-of a) (list-of a)))) (proper-list? (#(procedure #:clean) proper-list? (*) boolean) ((null) (let ((#(tmp) #(1))) '#t))) (reduce (#(procedure #:enforce) reduce ((procedure (* *) *) * list) *)) ;XXX (reduce-right (#(procedure #:enforce) reduce-right ((procedure (* *) *) * list) *)) ;XXX (remove (forall (a) (#(procedure #:enforce) remove ((procedure (a) *) (list-of a)) (list-of a)))) (remove! (forall (a) (#(procedure #:enforce) remove! ((procedure (a) *) (list-of a)) (list-of a)))) (reverse! (forall (a) (#(procedure #:enforce) reverse! ((list-of a)) (list-of a)))) (second (forall (a) (#(procedure #:clean #:enforce) second ((pair * (pair a *))) a)) (((pair * (pair * *))) (##core#inline "C_u_i_car" (##core#inline "C_u_i_cdr" #(1))))) (seventh (#(procedure #:clean #:enforce) seventh (pair) *)) (sixth (#(procedure #:clean #:enforce) sixth (pair) *)) (span (forall (a) (#(procedure #:enforce) span ((procedure (a) *) (list-of a)) (list-of a) (list-of a)))) (span! (forall (a) (#(procedure #:enforce) span! ((procedure (a) *) (list-of a)) (list-of a) (list-of a)))) (split-at (forall (a) (#(procedure #:enforce) split-at ((list-of a) fixnum) (list-of a) (list-of a)))) (split-at! (forall (a) (#(procedure #:enforce) split-at! ((list-of a) fixnum) (list-of a) (list-of a)))) (take (forall (a) (#(procedure #:enforce) take ((list-of a) fixnum) (list-of a)))) (take! (forall (a) (#(procedure #:enforce) take! ((list-of a) fixnum) (list-of a)))) (take-right (forall (a) (#(procedure #:enforce) take-right ((list-of a) fixnum) (list-of a)))) (take-while (forall (a) (#(procedure #:enforce) take-while ((procedure (a) *) (list-of a)) (list-of a)))) (take-while! (forall (a) (#(procedure #:enforce) take-while! ((procedure (a) *) (list-of a)) (list-of a)))) (tenth (#(procedure #:clean #:enforce) tenth (pair) *)) (third (forall (a) (#(procedure #:clean #:enforce) third ((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)))))) (unfold (#(procedure #:enforce) unfold ((procedure (*) *) (procedure (*) *) (procedure (*) *) * #!optional (procedure (*) *)) *)) ;XXX (unfold-right (#(procedure #:enforce) unfold-right ((procedure (*) *) (procedure (*) *) (procedure (*) *) * #!optional (procedure (*) *)) *)) ;XXX (unzip1 (forall (a) (#(procedure #:clean #:enforce) unzip1 ((list-of (pair a *))) (list-of a)))) (unzip2 (forall (a b) (#(procedure #:clean #:enforce) unzip2 ((list-of (pair a (pair b *)))) (list-of a) (list-of b)))) (unzip3 (forall (a b c) (#(procedure #:clean #:enforce) unzip3 ((list-of (pair a (pair b (pair c *))))) (list-of a) (list-of b) (list-of c)))) (unzip4 (#(procedure #:clean #:enforce) unzip4 (list) list list list list)) ; yeah (unzip5 (#(procedure #:clean #:enforce) unzip5 (list) list list list list list)) ; yeah, too (xcons (forall (a b) (#(procedure #:pure) xcons (a b) (pair b a)))) (zip (forall (a) (#(procedure #:clean #:enforce) zip ((list-of a) #!rest list) (list-of (pair a *))))) ;; srfi-13 (check-substring-spec (#(procedure #:clean #:enforce) check-substring-spec (* string fixnum fixnum) undefined)) (kmp-step (#(procedure #:enforce) kmp-step (string vector char fixnum (procedure (char char) *) fixnum) fixnum)) (make-kmp-restart-vector (#(procedure #:clean #:enforce) make-kmp-restart-vector (string #!optional (procedure (* *) *) fixnum fixnum) vector)) (string-any (forall (a) (#(procedure #:enforce) string-any ((or char (struct char-set) (procedure (char) a)) string #!optional fixnum fixnum) (or boolean a)))) (string-append/shared (#(procedure #:clean #:enforce) string-append/shared (#!rest string) string) ((string string) (##sys#string-append #(1) #(2)))) (string-ci< (#(procedure #:clean #:enforce) string-ci< (string string #!optional fixnum fixnum) boolean) ((string string) (string-ci (#(procedure #:clean #:enforce) string-ci<> (string string #!optional fixnum fixnum) boolean) ((string string) (not (##core#inline "C_i_string_ci_equal_p" #(1) #(2))))) (string-ci= (#(procedure #:clean #:enforce) string-ci= (string string #!optional fixnum fixnum) boolean) ((string string) (##core#inline "C_i_string_ci_equal_p" #(1) #(2)))) (string-ci> (#(procedure #:clean #:enforce) string-ci> (string string #!optional fixnum fixnum) boolean) ((string string) (string-ci>? #(1) #(2)))) (string-ci>= (#(procedure #:clean #:enforce) string-ci>= (string string #!optional fixnum fixnum) boolean) ((string string) (string-ci>=? #(1) #(2)))) (string-compare (#(procedure #:enforce) string-compare (string string (procedure (fixnum) *) (procedure (fixnum) *) (procedure (fixnum) *) #!optional fixnum fixnum fixnum fixnum) *)) (string-compare-ci (#(procedure #:enforce) string-compare (string string (procedure (fixnum) *) (procedure (fixnum) *) (procedure (fixnum) *) #!optional fixnum fixnum fixnum fixnum) *)) (string-concatenate (#(procedure #:clean #:enforce) string-concatenate ((list-of string)) string)) (string-concatenate-reverse (#(procedure #:clean #:enforce) string-concatenate-reverse ((list-of string) #!optional string fixnum) string)) (string-concatenate-reverse/shared (#(procedure #:clean #:enforce) string-concatenate-reverse/shared ((list-of string) #!optional string fixnum) string)) (string-concatenate/shared (#(procedure #:clean #:enforce) string-concatenate/shared ((list-of string)) string)) (string-contains (#(procedure #:clean #:enforce) string-contains (string string #!optional fixnum fixnum fixnum fixnum) (or fixnum false))) (string-contains-ci (#(procedure #:clean #:enforce) string-contains-ci (string string #!optional fixnum fixnum fixnum fixnum) (or fixnum false))) (string-copy (#(procedure #:clean #:enforce) string-copy (string #!optional fixnum fixnum) string)) (string-copy! (#(procedure #:clean #:enforce) string-copy! (string fixnum string #!optional fixnum fixnum) undefined)) (string-count (#(procedure #:clean #:enforce) string-count (string * #!optional fixnum fixnum) fixnum)) (string-delete (#(procedure #:clean #:enforce) string-delete (* string #!optional fixnum fixnum) string)) (string-downcase (#(procedure #:clean #:enforce) string-downcase (string #!optional fixnum fixnum) string)) (string-downcase! (#(procedure #:clean #:enforce) string-downcase! (string #!optional fixnum fixnum) string)) (string-drop (#(procedure #:clean #:enforce) string-drop (string fixnum) string)) (string-drop-right (#(procedure #:clean #:enforce) string-drop-right (string fixnum) string)) (string-every (forall (a) (#(procedure #:enforce) string-every ((or char (struct char-set) (procedure (char) a)) string #!optional fixnum fixnum) (or boolean a)))) (string-fill! (#(procedure #:clean #:enforce) string-fill! (string char #!optional fixnum fixnum) string)) (string-filter (#(procedure #:enforce) string-filter ((or char (struct char-set) (procedure (char) *)) string #!optional fixnum fixnum) string)) (string-fold (#(procedure #:enforce) string-fold ((procedure (char *) *) * string #!optional fixnum fixnum) *)) ;XXX (string-fold-right (#(procedure #:enforce) string-fold-right ((procedure (char *) *) * string #!optional fixnum fixnum) *)) ;XXX (string-for-each (#(procedure #:enforce) string-for-each ((procedure (char) . *) string #!optional fixnum fixnum) undefined)) (string-for-each-index (#(procedure #:enforce) string-for-each-index ((procedure (fixnum) . *) string #!optional fixnum fixnum) undefined)) (string-index (#(procedure #:enforce) string-index (string (or char (struct char-set) (procedure (char) *)) #!optional fixnum fixnum) (or fixnum false))) (string-index-right (#(procedure #:enforce) string-index-right (string (or char (struct char-set) (procedure (char) *)) #!optional fixnum fixnum) (or fixnum false))) (string-join (#(procedure #:clean #:enforce) string-join (list #!optional string symbol) string)) (string-kmp-partial-search (#(procedure #:enforce) string-kmp-partial-search (string vector string fixnum #!optional (procedure (char char) *) fixnum fixnum fixnum) fixnum)) (string-map (#(procedure #:enforce) string-map ((procedure (char) char) string #!optional fixnum fixnum) string)) (string-map! (#(procedure #:enforce) string-map! ((procedure (char) char) string #!optional fixnum fixnum) string)) (string-null? (#(procedure #:clean #:enforce) string-null? (string) boolean) ((string) (##core#inline "C_zero_length_p" #(1)))) (string-pad (#(procedure #:clean #:enforce) string-pad (string fixnum #!optional char fixnum fixnum) string)) (string-pad-right (#(procedure #:clean #:enforce) string-pad-right (string fixnum #!optional char fixnum fixnum) string)) (string-parse-final-start+end (#(procedure #:enforce) string-parse-final-start+end (procedure string #!rest) . *)) (string-parse-start+end (#(procedure #:enforce) string-parse-start+end (procedure string #!rest) . *)) (string-prefix-ci? (#(procedure #:clean #:enforce) string-prefix-ci? (string string #!optional fixnum fixnum fixnum fixnum) boolean)) (string-prefix-length (#(procedure #:clean #:enforce) string-prefix-length (string string #!optional fixnum fixnum fixnum fixnum) fixnum)) (string-prefix-length-ci (#(procedure #:clean #:enforce) string-prefix-length-ci (string string #!optional fixnum fixnum fixnum fixnum) fixnum)) (string-prefix? (#(procedure #:clean #:enforce) string-prefix? (string string #!optional fixnum fixnum fixnum fixnum) boolean)) (string-replace (#(procedure #:clean #:enforce) string-replace (string string fixnum fixnum #!optional fixnum fixnum) string)) (string-reverse (#(procedure #:clean #:enforce) string-reverse (string #!optional fixnum fixnum) string)) (string-reverse! (#(procedure #:clean #:enforce) string-reverse! (string #!optional fixnum fixnum) string)) (string-skip (#(procedure #:enforce) string-skip (string (or char (struct char-set) (procedure (char) *)) #!optional fixnum fixnum) (or fixnum false))) (string-skip-right (#(procedure #:enforce) string-skip-right (string (or char (struct char-set) (procedure (char) *)) #!optional fixnum fixnum) (or fixnum false))) (string-suffix-ci? (#(procedure #:clean #:enforce) string-suffix-ci? (string string #!optional fixnum fixnum fixnum fixnum) boolean)) (string-suffix-length (#(procedure #:clean #:enforce) string-suffix-length (string string #!optional fixnum fixnum fixnum fixnum) fixnum)) (string-suffix-length-ci (#(procedure #:clean #:enforce) string-suffix-length-ci (string string #!optional fixnum fixnum fixnum fixnum) fixnum)) (string-suffix? (#(procedure #:clean #:enforce) string-suffix? (string string #!optional fixnum fixnum fixnum fixnum) boolean)) (string-tabulate (#(procedure #:enforce) string-tabulate ((procedure (fixnum) char) fixnum) string)) (string-take (#(procedure #:clean #:enforce) string-take (string fixnum) string)) (string-take-right (#(procedure #:clean #:enforce) string-take-right (string fixnum) string)) (string-titlecase (#(procedure #:clean #:enforce) string-titlecase (string #!optional fixnum fixnum) string)) (string-titlecase! (#(procedure #:clean #:enforce) string-titlecase! (string #!optional fixnum fixnum) string)) (string-tokenize (#(procedure #:clean #:enforce) string-tokenize (string #!optional (struct char-set) fixnum fixnum) list)) (string-trim (#(procedure #:enforce) string-trim (string #!optional (or char (struct char-set) (procedure (char) *)) fixnum fixnum) string)) (string-trim-both (#(procedure #:enforce) string-trim-both (string #!optional (or char (struct char-set) (procedure (char) *)) fixnum fixnum) string)) (string-trim-right (#(procedure #:enforce) string-trim-right (string #!optional (or char (struct char-set) (procedure (char) *)) fixnum fixnum) string)) (string-unfold (#(procedure #:enforce) string-unfold (procedure procedure procedure * #!optional * procedure) string)) ;XXX (string-unfold-right (#(procedure #:enforce) string-unfold-right (procedure procedure procedure * #!optional * procedure) string)) ;XXX (string-upcase (#(procedure #:clean #:enforce) string-upcase (string #!optional fixnum fixnum) string)) (string-upcase! (#(procedure #:clean #:enforce) string-upcase! (string #!optional fixnum fixnum) string)) (string-xcopy! (#(procedure #:clean #:enforce) string-xcopy! (string string string fixnum #!optional fixnum fixnum fixnum) string)) (string< (#(procedure #:clean #:enforce) string< (string string #!optional fixnum fixnum fixnum fixnum) boolean) ((string string) (string (#(procedure #:clean #:enforce) string<> (string string #!optional fixnum fixnum fixnum fixnum) boolean) ((string string) (not (##core#inline "C_i_string_equal_p" #(1) #(2))))) (string= (#(procedure #:clean #:enforce) string= (string string #!optional fixnum fixnum fixnum fixnum) boolean) ((string string) (##core#inline "C_i_string_equal_p" #(1) #(2)))) (string> (#(procedure #:clean #:enforce) string> (string string #!optional fixnum fixnum fixnum fixnum) boolean) ((string string) (string>? #(1) #(2)))) (string>= (#(procedure #:clean #:enforce) string>= (string string #!optional fixnum fixnum fixnum fixnum) boolean) ((string string) (string>=? #(1) #(2)))) (substring-spec-ok? (#(procedure #:clean #:enforce) substring-spec-ok? (string fixnum fixnum) boolean)) (substring/shared (#(procedure #:clean #:enforce) substring/shared (string fixnum #!optional fixnum) string)) (xsubstring (#(procedure #:clean #:enforce) xsubstring (string fixnum #!optional fixnum fixnum fixnum) string)) ;; srfi-14 (->char-set (procedure ->char-set (*) (struct char-set)) (((struct char-set)) #(1)) ((string) (string->char-set #(1))) ((char) (char-set #(1)))) (char-set (#(procedure #:enforce) char-set (#!rest char) (struct char-set))) (char-set->list (#(procedure #:clean #:enforce) char-set->list ((struct char-set)) list)) (char-set->string (#(procedure #:clean #:enforce) char-set->string ((struct char-set)) string)) (char-set-adjoin (#(procedure #:clean #:enforce) char-set-adjoin ((struct char-set) #!rest char) (struct char-set))) (char-set-adjoin! (#(procedure #:clean #:enforce) char-set-adjoin! ((struct char-set) #!rest char) (struct char-set))) (char-set-any (#(procedure #:enforce) char-set-any ((procedure (char) *) (struct char-set)) *)) (char-set-complement (#(procedure #:clean #:enforce) char-set-complement ((struct char-set)) (struct char-set))) (char-set-complement! (#(procedure #:clean #:enforce) char-set-complement! ((struct char-set)) (struct char-set))) (char-set-contains? (#(procedure #:clean #:enforce) char-set-contains? ((struct char-set) char) boolean)) (char-set-copy (#(procedure #:clean #:enforce) char-set-copy ((struct char-set)) (struct char-set))) (char-set-count (#(procedure #:clean #:enforce) char-set-count ((procedure (char) *) (struct char-set)) fixnum)) (char-set-cursor (#(procedure #:clean #:enforce) char-set-cursor ((struct char-set)) fixnum)) (char-set-cursor-next (#(procedure #:clean #:enforce) char-set-cursor-next ((struct char-set) fixnum) fixnum)) (char-set-delete (#(procedure #:clean #:enforce) char-set-delete ((struct char-set) #!rest char) (struct char-set))) (char-set-delete! (#(procedure #:clean #:enforce) char-set-delete! ((struct char-set) #!rest char) (struct char-set))) (char-set-diff+intersection (#(procedure #:clean #:enforce) char-set-diff+intersection ((struct char-set) #!rest (struct char-set)) (struct char-set) (struct char-set))) (char-set-diff+intersection! (#(procedure #:clean #:enforce) char-set-diff+intersection! ((struct char-set) #!rest (struct char-set)) (struct char-set) (struct char-set))) (char-set-difference (#(procedure #:clean #:enforce) char-set-difference ((struct char-set) #!rest (struct char-set)) (struct char-set))) (char-set-difference! (#(procedure #:clean #:enforce) char-set-difference! ((struct char-set) #!rest (struct char-set)) (struct char-set))) (char-set-every (#(procedure #:enforce) char-set-every ((procedure (char) *) (struct char-set)) boolean)) (char-set-filter (#(procedure #:enforce) char-set-filter ((procedure (char) *) (struct char-set) #!optional (struct char-set)) (struct char-set))) (char-set-filter! (#(procedure #:enforce) char-set-filter! ((procedure (char) *) (struct char-set) #!optional (struct char-set)) (struct char-set))) (char-set-fold (#(procedure #:enforce) char-set-fold ((procedure (char *) *) * (struct char-set)) *)) (char-set-for-each (#(procedure #:enforce) char-set-for-each ((procedure (char) . *) (struct char-set)) undefined)) (char-set-hash (#(procedure #:clean #:enforce) char-set-hash ((struct char-set) #!optional number) number)) (char-set-intersection (#(procedure #:clean #:enforce) char-set-intersection (#!rest (struct char-set)) (struct char-set))) (char-set-intersection! (#(procedure #:clean #:enforce) char-set-intersection! (#!rest (struct char-set)) (struct char-set))) (char-set-map (#(procedure #:enforce) char-set-map ((procedure (char) char) (struct char-set)) (struct char-set))) (char-set-ref (#(procedure #:clean #:enforce) char-set-ref ((struct char-set) fixnum) char)) (char-set-size (#(procedure #:clean #:enforce) char-set-size ((struct char-set)) fixnum)) (char-set-unfold (#(procedure #:enforce) char-set-unfold (procedure procedure procedure * #!optional (struct char-set)) (struct char-set))) (char-set-unfold! (#(procedure #:enforce) char-set-unfold! (procedure procedure procedure * (struct char-set)) (struct char-set))) (char-set-union (#(procedure #:clean #:enforce) char-set-union (#!rest (struct char-set)) (struct char-set))) (char-set-union! (#(procedure #:clean #:enforce) char-set-union! (#!rest (struct char-set)) (struct char-set))) (char-set-xor (#(procedure #:clean #:enforce) char-set-xor (#!rest (struct char-set)) (struct char-set))) (char-set-xor! (#(procedure #:clean #:enforce) char-set-xor! (#!rest (struct char-set)) (struct char-set))) (char-set:ascii (struct char-set)) (char-set:blank (struct char-set)) (char-set:digit (struct char-set)) (char-set:empty (struct char-set)) (char-set:full (struct char-set)) (char-set:graphic (struct char-set)) (char-set:hex-digit (struct char-set)) (char-set:iso-control (struct char-set)) (char-set:letter (struct char-set)) (char-set:letter+digit (struct char-set)) (char-set:lower-case (struct char-set)) (char-set:printing (struct char-set)) (char-set:punctuation (struct char-set)) (char-set:symbol (struct char-set)) (char-set:title-case (struct char-set)) (char-set:upper-case (struct char-set)) (char-set:whitespace (struct char-set)) (char-set<= (#(procedure #:clean #:enforce) char-set<= (#!rest (struct char-set)) boolean) (() '#t) (((struct char-set)) (let ((#(tmp) #(1))) '#t))) (char-set= (#(procedure #:clean #:enforce) char-set= (#!rest (struct char-set)) boolean) (() '#t) (((struct char-set)) (let ((#(tmp) #(1))) '#t))) (char-set? (#(procedure #:pure #:predicate (struct char-set)) char-set? (*) boolean)) (end-of-char-set? (#(procedure #:clean #:enforce) end-of-char-set? (fixnum) boolean)) (list->char-set (#(procedure #:clean #:enforce) list->char-set ((list-of char) #!optional (struct char-set)) (struct char-set))) (list->char-set! (#(procedure #:clean #:enforce) list->char-set! ((list-of char) #!optional (struct char-set)) (struct char-set))) (string->char-set (#(procedure #:clean #:enforce) string->char-set (string #!optional (struct char-set)) (struct char-set))) (string->char-set! (#(procedure #:clean #:enforce) string->char-set! (string #!optional (struct char-set)) (struct char-set))) (ucs-range->char-set (#(procedure #:clean #:enforce) ucs-range->char-set (fixnum fixnum #!optional * (struct char-set)) (struct char-set))) (ucs-range->char-set! (#(procedure #:clean #:enforce) ucs-range->char-set! (fixnum fixnum #!optional * (struct char-set)) (struct char-set))) ;; srfi-18 (abandoned-mutex-exception? (#(procedure #:pure) abandoned-mutex-exception? (*) boolean)) (condition-variable-broadcast! (#(procedure #:clean #:enforce) condition-variable-broadcast! ((struct condition-variable)) undefined)) (condition-variable-name (#(procedure #:clean #:enforce) condition-variable-name ((struct condition-variable)) *)) (condition-variable-signal! (#(procedure #:clean #:enforce) condition-variable-signal! ((struct condition-variable)) undefined)) (condition-variable-specific (#(procedure #:clean #:enforce) condition-variable-specific ((struct condition-variable)) *)) (condition-variable-specific-set! (#(procedure #:clean #:enforce) condition-variable-specific-set! ((struct condition-variable) *) undefined)) (condition-variable? (#(procedure #:pure #:predicate (struct condition-variable)) condition-variable? (*) boolean)) (current-thread (#(procedure #:clean) current-thread () (struct thread))) ;XXX (current-time (#(procedure #:clean) current-time () (struct time))) (join-timeout-exception? (#(procedure #:pure) join-timeout-exception? (*) boolean)) (make-condition-variable (#(procedure #:clean) make-condition-variable (#!optional *) (struct condition-variable))) (make-mutex (#(procedure #:clean) make-mutex (#!optional *) (struct mutex))) (make-thread (#(procedure #:clean #:enforce) make-thread ((procedure () . *) #!optional *) (struct thread))) (mutex-lock! (#(procedure #:clean #:enforce) mutex-lock! ((struct mutex) #!optional (or false number (struct time)) (or false (struct thread))) boolean)) (mutex-name (#(procedure #:clean #:enforce) mutex-name ((struct mutex)) *) (((struct mutex)) (##sys#slot #(1) '1))) (mutex-specific (#(procedure #:clean #:enforce) mutex-specific ((struct mutex)) *) (((struct mutex)) (##sys#slot #(1) '6))) (mutex-specific-set! (#(procedure #:clean #:enforce) mutex-specific-set! ((struct mutex) *) undefined) (((struct mutex) *) (##sys#setslot #(1) '6 #(2)))) (mutex-state (#(procedure #:clean #:enforce) mutex-state ((struct mutex)) (or symbol (struct thread)))) (mutex-unlock! (#(procedure #:clean #:enforce) mutex-unlock! ((struct mutex) #!optional (struct condition-variable) *) undefined)) (mutex? (#(procedure #:pure #:predicate (struct mutex)) mutex? (*) boolean)) (raise (procedure raise (*) noreturn)) (seconds->time (#(procedure #:clean #:enforce) seconds->time (number) (struct time))) (terminated-thread-exception? (#(procedure #:pure) terminated-thread-exception? (*) boolean)) (thread-join! (#(procedure #:clean #:enforce) thread-join! ((struct thread) #!optional * *) . *)) (thread-name (#(procedure #:clean #:enforce) thread-name ((struct thread)) *) (((struct thread)) (##sys#slot #(1) '6))) (thread-quantum (#(procedure #:clean #:enforce) thread-quantum ((struct thread)) fixnum) (((struct thread)) (##sys#slot #(1) '9))) (thread-quantum-set! (#(procedure #:clean #:enforce) thread-quantum-set! ((struct thread) fixnum) undefined)) (thread-resume! (#(procedure #:clean #:enforce) thread-resume! ((struct thread)) undefined)) (thread-signal! (#(procedure #:clean #:enforce) thread-signal! ((struct thread) *) undefined)) (thread-sleep! (#(procedure #:clean) thread-sleep! (*) undefined)) (thread-specific (#(procedure #:clean #:enforce) thread-specific ((struct thread)) *) (((struct thread)) (##sys#slot #(1) '10))) (thread-specific-set! (#(procedure #:clean #:enforce) thread-specific-set! ((struct thread) *) undefined) (((struct thread) *) (##sys#setslot #(1) '10 #(2)))) (thread-start! (#(procedure #:enforce) thread-start! ((or (struct thread) (procedure () . *))) (struct thread))) (thread-state (#(procedure #:clean #:enforce) thread-state ((struct thread)) symbol) (((struct thread)) (##sys#slot #(1) '3))) (thread-suspend! (#(procedure #:clean #:enforce) thread-suspend! ((struct thread)) undefined)) (thread-terminate! (#(procedure #:clean #:enforce) thread-terminate! ((struct thread)) undefined)) (thread-wait-for-i/o! (#(procedure #:clean #:enforce) thread-wait-for-i/o! (fixnum #!optional symbol) undefined)) (thread-yield! (#(procedure #:clean) thread-yield! () undefined)) (thread? (#(procedure #:pure #:predicate (struct thread)) thread? (*) boolean)) (time->seconds (#(procedure #:clean #:enforce) time->seconds ((struct time)) number)) (time? (#(procedure #:pure #:predicate (struct time)) time? (*) boolean)) (uncaught-exception-reason (#(procedure #:clean #:enforce) uncaught-exception-reason ((struct condition)) *)) (uncaught-exception? (#(procedure #:pure) uncaught-exception? (*) boolean)) ;; srfi-4 (blob->f32vector (#(procedure #:clean #:enforce) blob->f32vector (blob) (struct f32vector))) (blob->f32vector/shared (#(procedure #:clean #:enforce) blob->f32vector/shared (blob) (struct f32vector))) (blob->f64vector (#(procedure #:clean #:enforce) blob->f64vector (blob) (struct f64vector))) (blob->f64vector/shared (#(procedure #:clean #:enforce) blob->f64vector/shared (blob) (struct f64vector))) (blob->s16vector (#(procedure #:clean #:enforce) blob->s16vector (blob) (struct s16vector))) (blob->s16vector/shared (#(procedure #:clean #:enforce) blob->s16vector/shared (blob) (struct s16vector))) (blob->s32vector (#(procedure #:clean #:enforce) blob->s32vector (blob) (struct s32vector))) (blob->s32vector/shared (#(procedure #:clean #:enforce) blob->s32vector/shared (blob) (struct s32vector))) (blob->s8vector (#(procedure #:clean #:enforce) blob->s8vector (blob) (struct s8vector))) (blob->s8vector/shared (#(procedure #:clean #:enforce) blob->s8vector/shared (blob) (struct s8vector))) (blob->u16vector (#(procedure #:clean #:enforce) blob->u16vector (blob) (struct u16vector))) (blob->u16vector/shared (#(procedure #:clean #:enforce) blob->u16vector/shared (blob) (struct u16vector))) (blob->u32vector (#(procedure #:clean #:enforce) blob->u32vector (blob) (struct u32vector))) (blob->u32vector/shared (#(procedure #:clean #:enforce) blob->u32vector/shared (blob) (struct u32vector))) (blob->u8vector (#(procedure #:clean #:enforce) blob->u8vector (blob) (struct u8vector))) (blob->u8vector/shared (#(procedure #:clean #:enforce) blob->u8vector/shared (blob) (struct u8vector))) (f32vector (#(procedure #:clean #:enforce) f32vector (#!rest number) (struct f32vector))) (f32vector->blob (#(procedure #:clean #:enforce) f32vector->blob ((struct f32vector)) blob)) (f32vector->blob/shared (#(procedure #:clean #:enforce) f32vector->blob/shared ((struct f32vector)) blob)) (f32vector->list (#(procedure #:clean #:enforce) f32vector->list ((struct f32vector)) (list-of float))) (f32vector-length (#(procedure #:clean #:enforce) f32vector-length ((struct f32vector)) fixnum) (((struct f32vector)) (##core#inline "C_u_i_32vector_length" #(1)))) (f32vector-ref (#(procedure #:clean #:enforce) f32vector-ref ((struct f32vector) fixnum) float)) (f32vector-set! (#(procedure #:clean #:enforce) f32vector-set! ((struct f32vector) fixnum number) undefined)) (f32vector? (#(procedure #:pure #:predicate (struct f32vector)) f32vector? (*) boolean)) (f64vector (#(procedure #:clean #:enforce) f64vector (#!rest number) (struct f64vector))) (f64vector->blob (#(procedure #:clean #:enforce) f64vector->blob ((struct f64vector)) blob)) (f64vector->blob/shared (#(procedure #:clean #:enforce) f64vector->blob/shared ((struct f64vector)) blob)) (f64vector->list (#(procedure #:clean #:enforce) f64vector->list ((struct f64vector)) (list-of float))) (f64vector-length (#(procedure #:clean #:enforce) f64vector-length ((struct f64vector)) fixnum) (((struct f64vector)) (##core#inline "C_u_i_64vector_length" #(1)))) (f64vector-ref (#(procedure #:clean #:enforce) f64vector-ref ((struct f64vector) fixnum) float)) (f64vector-set! (#(procedure #:clean #:enforce) f64vector-set! ((struct f64vector) fixnum number) undefined)) (f64vector? (#(procedure #:pure #:predicate (struct f64vector)) f64vector? (*) boolean)) (list->f32vector (#(procedure #:clean #:enforce) list->f32vector ((list-of number)) (struct f32vector))) (list->f64vector (#(procedure #:clean #:enforce) list->f64vector ((list-of number)) (struct f64vector))) (list->s16vector (#(procedure #:clean #:enforce) list->s16vector ((list-of fixnum)) (struct s16vector))) (list->s32vector (#(procedure #:clean #:enforce) list->s32vector ((list-of number)) (struct s32vector))) (list->s8vector (#(procedure #:clean #:enforce) list->s8vector ((list-of fixnum)) (struct s8vector))) (list->u16vector (#(procedure #:clean #:enforce) list->u16vector ((list-of fixnum)) (struct u16vector))) (list->u32vector (#(procedure #:clean #:enforce) list->u32vector ((list-of number)) (struct u32vector))) (list->u8vector (#(procedure #:clean #:enforce) list->u8vector ((list-of fixnum)) (struct u8vector))) (make-f32vector (#(procedure #:clean #:enforce) make-f32vector (fixnum #!optional * * *) (struct f32vector))) (make-f64vector (#(procedure #:clean #:enforce) make-f64vector (fixnum #!optional * * *) (struct f64vector))) (make-s16vector (#(procedure #:clean #:enforce) make-s16vector (fixnum #!optional * * *) (struct s16vector))) (make-s32vector (#(procedure #:clean #:enforce) make-s32vector (fixnum #!optional * * *) (struct s32vector))) (make-s8vector (#(procedure #:clean #:enforce) make-s8vector (fixnum #!optional * * *) (struct s8vector))) (make-u16vector (#(procedure #:clean #:enforce) make-u16vector (fixnum #!optional * * *) (struct u16vector))) (make-u32vector (#(procedure #:clean #:enforce) make-u32vector (fixnum #!optional * * *) (struct u32vector))) (make-u8vector (#(procedure #:clean #:enforce) make-u8vector (fixnum #!optional * * *) (struct u8vector))) (read-u8vector (#(procedure #:enforce) read-u8vector (#!optional (or fixnum false) input-port) (struct u8vector))) (read-u8vector! (#(procedure #:enforce) read-u8vector! ((or fixnum false) (struct u8vector) #!optional input-port fixnum) number)) (release-number-vector (procedure release-number-vector (*) undefined)) (s16vector (#(procedure #:clean #:enforce) s16vector (#!rest fixnum) (struct s16vector))) (s16vector->blob (#(procedure #:clean #:enforce) s16vector->blob ((struct s16vector)) blob)) (s16vector->blob/shared (#(procedure #:clean #:enforce) s16vector->blob/shared ((struct s16vector)) blob)) (s16vector->list (#(procedure #:clean #:enforce) s16vector->list ((struct s16vector)) (list-of fixnum))) (s16vector-length (#(procedure #:clean #:enforce) s16vector-length ((struct s16vector)) fixnum) (((struct s16vector)) (##core#inline "C_u_i_16vector_length" #(1)))) (s16vector-ref (#(procedure #:clean #:enforce) s16vector-ref ((struct s16vector) fixnum) fixnum)) (s16vector-set! (#(procedure #:clean #:enforce) s16vector-set! ((struct s16vector) fixnum fixnum) undefined)) (s16vector? (#(procedure #:pure #:predicate (struct s16vector)) s16vector? (*) boolean)) (s32vector (#(procedure #:clean #:enforce) s32vector (#!rest number) (struct s32vector))) (s32vector->blob (#(procedure #:clean #:enforce) s32vector->blob ((struct s32vector)) blob)) (s32vector->blob/shared (#(procedure #:clean #:enforce) s32vector->blob/shared ((struct s32vector)) blob)) (s32vector->list (#(procedure #:clean #:enforce) s32vector->list ((struct s32vector)) (list-of number))) (s32vector-length (#(procedure #:clean #:enforce) s32vector-length ((struct s32vector)) fixnum) (((struct s32vector)) (##core#inline "C_u_i_32vector_length" #(1)))) (s32vector-ref (#(procedure #:clean #:enforce) s32vector-ref ((struct s32vector) fixnum) number)) (s32vector-set! (#(procedure #:clean #:enforce) s32vector-set! ((struct s32vector) fixnum number) undefined)) (s32vector? (#(procedure #:pure #:predicate (struct s32vector)) s32vector? (*) boolean)) (s8vector (#(procedure #:clean #:enforce) s8vector (#!rest fixnum) (struct s8vector))) (s8vector->blob (#(procedure #:clean #:enforce) s8vector->blob ((struct s8vector)) blob)) (s8vector->blob/shared (#(procedure #:clean #:enforce) s8vector->blob/shared ((struct s8vector)) blob)) (s8vector->list (#(procedure #:clean #:enforce) s8vector->list ((struct s8vector)) (list-of fixnum))) (s8vector-length (#(procedure #:clean #:enforce) s8vector-length ((struct s8vector)) fixnum) (((struct s8vector)) (##core#inline "C_u_i_8vector_length" #(1)))) (s8vector-ref (#(procedure #:clean #:enforce) s8vector-ref ((struct s8vector) fixnum) fixnum)) (s8vector-set! (#(procedure #:clean #:enforce) s8vector-set! ((struct s8vector) fixnum fixnum) undefined)) (s8vector? (#(procedure #:pure #:predicate (struct s8vector)) s8vector? (*) boolean)) (subf32vector (#(procedure #:clean #:enforce) subf32vector ((struct f32vector) fixnum fixnum) (struct f32vector))) (subf64vector (#(procedure #:clean #:enforce) subf64vector ((struct f64vector) fixnum fixnum) (struct f64vector))) (subs16vector (#(procedure #:clean #:enforce) subs16vector ((struct s16vector) fixnum fixnum) (struct s16vector))) (subs32vector (#(procedure #:clean #:enforce) subs32vector ((struct s32vector) fixnum fixnum) (struct s32vector))) (subs8vector (#(procedure #:clean #:enforce) subs8vector ((struct s8vector) fixnum fixnum) (struct s8vector))) (subu16vector (#(procedure #:clean #:enforce) subu16vector ((struct u16vector) fixnum fixnum) (struct u16vector))) (subu32vector (#(procedure #:clean #:enforce) subu32vector ((struct u32vector) fixnum fixnum) (struct u32vector))) (subu8vector (#(procedure #:clean #:enforce) subu8vector ((struct u8vector) fixnum fixnum) (struct u8vector))) (u16vector (#(procedure #:clean #:enforce) u16vector (#!rest fixnum) (struct u16vector))) (u16vector->blob (#(procedure #:clean #:enforce) u16vector->blob ((struct u16vector)) blob)) (u16vector->blob/shared (#(procedure #:clean #:enforce) u16vector->blob/shared ((struct u16vector)) blob)) (u16vector->list (#(procedure #:clean #:enforce) u16vector->list ((struct u16vector)) (list-of fixnum))) (u16vector-length (#(procedure #:clean #:enforce) u16vector-length ((struct u16vector)) fixnum) (((struct u16vector)) (##core#inline "C_u_i_16vector_length" #(1)))) (u16vector-ref (#(procedure #:clean #:enforce) u16vector-ref ((struct u16vector) fixnum) fixnum)) (u16vector-set! (#(procedure #:clean #:enforce) u16vector-set! ((struct u16vector) fixnum fixnum) undefined)) (u16vector? (#(procedure #:pure #:predicate (struct u16vector)) u16vector? (*) boolean)) (u32vector (#(procedure #:clean #:enforce) u32vector (#!rest number) (struct u32vector))) (u32vector->blob (#(procedure #:clean #:enforce) u32vector->blob ((struct u32vector)) blob)) (u32vector->blob/shared (#(procedure #:clean #:enforce) u32vector->blob/shared ((struct u32vector)) blob)) (u32vector->list (#(procedure #:clean #:enforce) u32vector->list ((struct u32vector)) (list-of number))) (u32vector-length (#(procedure #:clean #:enforce) u32vector-length ((struct u32vector)) fixnum) (((struct u32vector)) (##core#inline "C_u_i_32vector_length" #(1)))) (u32vector-ref (#(procedure #:clean #:enforce) u32vector-ref ((struct u32vector) fixnum) number)) (u32vector-set! (#(procedure #:clean #:enforce) u32vector-set! ((struct u32vector) fixnum number) undefined)) (u32vector? (#(procedure #:pure #:predicate (struct u32vector)) u32vector? (*) boolean)) (u8vector (#(procedure #:clean #:enforce) u8vector (#!rest fixnum) (struct u8vector))) (u8vector->blob (#(procedure #:clean #:enforce) u8vector->blob ((struct u8vector)) blob)) (u8vector->blob/shared (#(procedure #:clean #:enforce) u8vector->blob/shared ((struct u8vector)) blob)) (u8vector->list (#(procedure #:clean #:enforce) u8vector->list ((struct u8vector)) (list-of fixnum))) (u8vector-length (#(procedure #:clean #:enforce) u8vector-length ((struct u8vector)) fixnum) (((struct u8vector)) (##core#inline "C_u_i_8vector_length" #(1)))) (u8vector-ref (#(procedure #:clean #:enforce) u8vector-ref ((struct u8vector) fixnum) fixnum)) (u8vector-set! (#(procedure #:clean #:enforce) u8vector-set! ((struct u8vector) fixnum fixnum) undefined)) (u8vector? (#(procedure #:pure #:predicate (struct u8vector)) u8vector? (*) boolean)) (write-u8vector (#(procedure #:enforce) write-u8vector ((struct u8vector) #!optional output-port fixnum fixnum) undefined)) (number-vector? (#(procedure #:pure #:predicate (or (struct u8vector) (struct u16vector) (struct s8vector) (struct s16vector) (struct u32vector) (struct s32vector) (struct f32vector) (struct f64vector))) number-vector? (*) boolean)) (##sys#srfi-4-vector? (#(procedure #:pure #:predicate (or (struct u8vector) (struct u16vector) (struct s8vector) (struct s16vector) (struct u32vector) (struct s32vector) (struct f32vector) (struct f64vector))) ##sys#srfi-4-vector? (*) boolean)) ;; srfi-69 (alist->hash-table (#(procedure #:clean #:enforce) alist->hash-table ((list-of pair) #!rest) (struct hash-table))) (eq?-hash (#(procedure #:clean #:enforce) eq?-hash (* #!optional fixnum fixnum) fixnum)) (equal?-hash (#(procedure #:clean #:enforce) equal?-hash (* #!optional fixnum fixnum) fixnum)) (eqv?-hash (#(procedure #:clean #:enforce) eqv?-hash (* #!optional fixnum fixnum) fixnum)) (hash (#(procedure #:pure #:enforce) hash (* #!optional fixnum fixnum) fixnum)) (hash-by-identity (#(procedure #:pure #:enforce) hash-by-identity (* #!optional fixnum fixnum) fixnum)) (hash-table->alist (#(procedure #:clean #:enforce) hash-table->alist ((struct hash-table)) (list-of pair))) (hash-table-clear! (#(procedure #:clean #:enforce) hash-table-clear! ((struct hash-table)) undefined)) (hash-table-copy (#(procedure #:clean #:enforce) hash-table-copy ((struct hash-table)) (struct hash-table))) (hash-table-delete! (#(procedure #:clean #:enforce) hash-table-delete! ((struct hash-table) *) boolean)) (hash-table-equivalence-function (#(procedure #:clean #:enforce) hash-table-equivalence-function ((struct hash-table)) (procedure (* *) *))) (hash-table-exists? (#(procedure #:clean #:enforce) hash-table-exists? ((struct hash-table) *) boolean)) (hash-table-fold (#(procedure #:enforce) hash-table-fold ((struct hash-table) (procedure (* * *) *) *) *)) (hash-table-for-each (#(procedure #:enforce) hash-table-for-each ((struct hash-table) (procedure (* *) . *)) undefined)) (hash-table-has-initial? (#(procedure #:clean #:enforce) hash-table-has-initial? ((struct hash-table)) boolean) (((struct hash-table)) (##sys#slot #(1) '9))) ;XXX might return other than #t (hash-table-hash-function (#(procedure #:clean #:enforce) hash-table-hash-function ((struct hash-table)) (procedure (* fixnum) fixnum)) (((struct hash-table)) (##sys#slot #(1) '4))) (hash-table-initial (#(procedure #:clean #:enforce) hash-table-initial ((struct hash-table)) *)) (hash-table-keys (#(procedure #:clean #:enforce) hash-table-keys ((struct hash-table)) list)) (hash-table-map (#(procedure #:clean #:enforce) hash-table-map ((struct hash-table) (procedure (* *) *)) list)) (hash-table-max-load (#(procedure #:clean #:enforce) hash-table-max-load ((struct hash-table)) fixnum) (((struct hash-table)) (##sys#slot #(1) '6))) (hash-table-merge (#(procedure #:clean #:enforce) hash-table-merge ((struct hash-table) (struct hash-table)) (struct hash-table))) (hash-table-merge! (#(procedure #:clean #:enforce) hash-table-merge! ((struct hash-table) (struct hash-table)) undefined)) (hash-table-min-load (#(procedure #:clean #:enforce) hash-table-min-load ((struct hash-table)) fixnum) (((struct hash-table)) (##sys#slot #(1) '5))) (hash-table-ref (#(procedure #:clean #:enforce) hash-table-ref ((struct hash-table) * #!optional (procedure () *)) *)) (hash-table-ref/default (#(procedure #:clean #:enforce) hash-table-ref/default ((struct hash-table) * *) *)) (hash-table-remove! (#(procedure #:clean #:enforce) hash-table-remove! ((struct hash-table) (procedure (* *) *)) undefined)) (hash-table-set! (#(procedure #:clean #:enforce) hash-table-set! ((struct hash-table) * *) undefined)) (hash-table-size (#(procedure #:clean #:enforce) hash-table-size ((struct hash-table)) fixnum) (((struct hash-table)) (##sys#slot #(1) '2))) (hash-table-update! (#(procedure #:enforce) hash-table-update! ((struct hash-table) * (procedure (*) *) #!optional (procedure () *)) *)) (hash-table-update!/default (#(procedure #:clean #:enforce) hash-table-update!/default ((struct hash-table) * (procedure (*) *) *) *)) (hash-table-values (#(procedure #:clean #:enforce) hash-table-values ((struct hash-table)) list)) (hash-table-walk (#(procedure #:enforce) hash-table-walk ((struct hash-table) (procedure (* *) . *)) undefined)) (hash-table-weak-keys (#(procedure #:clean #:enforce) hash-table-weak-keys ((struct hash-table)) boolean) (((struct hash-table)) (##sys#slot #(1) '7))) (hash-table-weak-values (#(procedure #:clean #:enforce) hash-table-weak-values ((struct hash-table)) boolean) (((struct hash-table)) (##sys#slot #(1) '8))) (hash-table? (#(procedure #:pure #:predicate (struct hash-table)) hash-table? (*) boolean)) ;;XXX if we want to hardcode hash-default-bound here, we could rewrite the 1-arg case... ; (applies to all hash-functions) (keyword-hash (#(procedure #:clean #:enforce) keyword-hash (* #!optional fixnum fixnum) fixnum)) (make-hash-table (#(procedure #:clean #:enforce) make-hash-table (#!rest) (struct hash-table))) (number-hash (#(procedure #:clean #:enforce) number-hash (fixnum #!optional fixnum fixnum) fixnum)) (object-uid-hash (#(procedure #:clean #:enforce) object-uid-hash (* #!optional fixnum fixnum) fixnum)) (symbol-hash (#(procedure #:clean #:enforce) symbol-hash (symbol #!optional fixnum fixnum) fixnum)) (string-hash (#(procedure #:clean #:enforce) string-hash (string #!optional fixnum fixnum fixnum fixnum) number)) (string-hash-ci (#(procedure #:clean #:enforce) string-hash-ci (string #!optional fixnum fixnum fixnum fixnum) number)) (string-ci-hash (#(procedure #:clean #:enforce) string-ci-hash (string #!optional fixnum fixnum fixnum fixnum) number)) ;; tcp (tcp-abandon-port (#(procedure #:clean #:enforce) tcp-abandon-port (port) undefined)) (tcp-accept (#(procedure #:clean #:enforce) tcp-accept ((struct tcp-listener)) input-port output-port)) (tcp-accept-ready? (#(procedure #:clean #:enforce) tcp-accept-ready? ((struct tcp-listener)) boolean)) (tcp-accept-timeout (#(procedure #:clean #:enforce) tcp-accept-timeout (#!optional (or false number)) (or false number))) (tcp-addresses (#(procedure #:clean #:enforce) tcp-addresses (port) string string)) (tcp-buffer-size (#(procedure #:clean #:enforce) tcp-buffer-size (#!optional (or false fixnum)) (or false fixnum))) (tcp-close (#(procedure #:clean #:enforce) tcp-close ((struct tcp-listener)) undefined)) (tcp-connect (#(procedure #:clean #:enforce) tcp-connect (string #!optional fixnum) input-port output-port)) (tcp-connect-timeout (#(procedure #:clean #:enforce) tcp-connect-timeout (#!optional (or false number)) (or false number))) (tcp-listen (#(procedure #:clean #:enforce) tcp-listen (fixnum #!optional fixnum *) (struct tcp-listener))) (tcp-listener-fileno (#(procedure #:clean #:enforce) tcp-listener-fileno ((struct tcp-listener)) fixnum) (((struct tcp-listener)) (##sys#slot #(1) '1))) (tcp-listener-port (#(procedure #:clean #:enforce) tcp-listener-port ((struct tcp-listener)) fixnum)) (tcp-listener? (#(procedure #:clean #:predicate (struct tcp-listener)) tcp-listener? (*) boolean)) (tcp-port-numbers (#(procedure #:clean #:enforce) tcp-port-numbers (port) fixnum fixnum)) (tcp-read-timeout (#(procedure #:clean #:enforce) tcp-read-timeout (#!optional (or false number)) (or false number))) (tcp-write-timeout (#(procedure #:clean #:enforce) tcp-write-timeout (#!optional (or false number)) (or false number))) ;; utils (read-all (#(procedure #:enforce) read-all (#!optional (or input-port string)) string)) (system* (#(procedure #:clean #:enforce) system* (string #!rest) undefined)) (qs (#(procedure #:clean #:enforce) qs (string) string)) (compile-file (#(procedure #:clean #:enforce) compile-file (string #!rest) (or false string))) (compile-file-options (#(procedure #:clean #:enforce) compile-file-options (#!optional (list-of string)) (list-of string))) (scan-input-lines (#(procedure #:enforce) scan-input-lines (* #!optional input-port) *)) (yes-or-no? (#(procedure #:enforce) yes-or-no? (string #!rest) *)) chicken-4.12.0/irregex.c0000644000175000017500000644035713052306265014646 0ustar sjamaansjamaan/* Generated from irregex.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:16 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: irregex.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file irregex.c unit: irregex */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); static C_TLS C_word lf[479]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,18),40,118,101,99,116,111,114,45,99,111,112,121,32,118,54,55,49,41,0,0,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,15),40,105,114,114,101,103,101,120,63,32,120,54,56,54,41,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,18),40,105,114,114,101,103,101,120,45,100,102,97,32,120,54,56,56,41,0,0,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,25),40,105,114,114,101,103,101,120,45,100,102,97,47,115,101,97,114,99,104,32,120,54,57,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,18),40,105,114,114,101,103,101,120,45,110,102,97,32,120,54,57,52,41,0,0,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,20),40,105,114,114,101,103,101,120,45,102,108,97,103,115,32,120,54,57,55,41,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,29),40,105,114,114,101,103,101,120,45,110,117,109,45,115,117,98,109,97,116,99,104,101,115,32,120,55,48,48,41,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,22),40,105,114,114,101,103,101,120,45,108,101,110,103,116,104,115,32,120,55,48,51,41,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,20),40,105,114,114,101,103,101,120,45,110,97,109,101,115,32,120,55,48,54,41,0,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,28),40,105,114,114,101,103,101,120,45,110,101,119,45,109,97,116,99,104,101,115,32,105,114,120,55,48,57,41,0,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,29),40,105,114,114,101,103,101,120,45,114,101,115,101,116,45,109,97,116,99,104,101,115,33,32,109,55,49,54,41,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,27),40,105,114,114,101,103,101,120,45,99,111,112,121,45,109,97,116,99,104,101,115,32,109,55,50,48,41,0,0,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,28),40,105,114,114,101,103,101,120,45,109,97,116,99,104,45,100,97,116,97,63,32,111,98,106,55,50,51,41,0,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,35),40,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,55,50,53,41,0,0,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,26),40,105,114,114,101,103,101,120,45,109,97,116,99,104,45,110,97,109,101,115,32,109,55,51,48,41,0,0,0,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,41),40,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,55,55,56,32,46,32,111,112,116,55,55,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,41),40,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,55,56,55,32,46,32,111,112,116,55,56,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,39),40,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,55,57,54,32,46,32,111,112,116,55,57,55,41,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,39),40,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,56,48,53,32,46,32,111,112,116,56,48,54,41,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,22),40,108,112,32,108,115,56,53,53,32,117,110,107,110,111,119,110,63,56,53,54,41,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,53),40,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,56,51,50,32,109,56,51,51,32,111,112,116,56,51,52,41,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,38),40,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,56,54,56,32,110,56,54,57,41,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,39),40,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,56,55,56,32,46,32,111,112,116,56,55,57,41,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,38),40,105,114,114,101,103,101,120,45,109,97,116,99,104,45,115,117,98,99,104,117,110,107,32,109,56,57,56,32,46,32,111,112,116,56,57,57,41,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,15),40,102,95,56,53,55,49,32,99,110,107,57,50,53,41,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,15),40,102,95,56,53,53,52,32,99,110,107,57,51,50,41,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,99,110,107,57,52,52,32,114,101,115,57,52,53,41,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,40),40,102,95,56,52,53,51,32,99,110,107,49,57,51,57,32,115,116,97,114,116,57,52,48,32,99,110,107,50,57,52,49,32,101,110,100,57,52,50,41}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,52),40,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,57,49,55,32,103,101,116,45,115,116,114,57,49,56,32,46,32,111,57,49,57,41,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,13),40,108,112,32,115,116,97,114,116,57,55,50,41,0,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,42),40,99,104,117,110,107,101,114,45,112,114,101,118,45,99,104,97,114,32,99,110,107,57,55,55,32,115,116,97,114,116,57,55,56,32,101,110,100,57,55,57,41,0,0,0,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,33),40,99,104,117,110,107,101,114,45,110,101,120,116,45,99,104,97,114,32,99,110,107,57,56,55,32,115,114,99,57,56,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,6),40,115,99,97,110,41,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,30),40,102,95,56,55,57,56,32,115,116,114,49,48,50,51,32,99,49,48,50,52,32,46,32,111,49,48,50,53,41,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,49,49,49,51,41,0,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,19),40,97,57,49,48,55,32,115,49,49,48,53,32,97,49,49,48,54,41,0,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,36),40,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,49,49,48,52,41,0,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,18),40,108,112,32,105,49,49,51,52,32,114,101,115,49,49,51,53,41,0,0,0,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,15),40,122,101,114,111,45,116,111,32,110,49,49,51,50,41,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,49,49,52,49,41,0,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,22),40,102,105,110,100,32,112,114,101,100,49,49,51,56,32,108,115,49,49,51,57,41,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,13),40,108,97,115,116,32,108,115,49,49,53,56,41,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,22),40,108,112,32,104,101,97,100,49,49,54,55,32,116,97,105,108,49,49,54,56,41,0,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,21),40,97,110,121,32,112,114,101,100,49,49,54,51,32,108,115,49,49,54,52,41,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,22),40,108,112,32,104,101,97,100,49,49,56,48,32,116,97,105,108,49,49,56,49,41,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,23),40,101,118,101,114,121,32,112,114,101,100,49,49,55,52,32,108,115,49,49,55,53,41,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,19),40,108,112,32,108,115,49,49,56,57,32,114,101,115,49,49,57,48,41,0,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,31),40,102,111,108,100,32,107,111,110,115,49,49,56,53,32,107,110,105,108,49,49,56,54,32,108,115,49,49,56,55,41,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,23),40,102,108,97,103,45,106,111,105,110,32,97,49,50,54,54,32,98,49,50,54,55,41,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,24),40,102,108,97,103,45,99,108,101,97,114,32,97,49,50,55,48,32,98,49,50,55,49,41}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,20),40,97,57,56,52,48,32,122,49,51,48,56,32,106,51,49,51,48,57,41,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,20),40,97,57,56,51,52,32,121,49,51,48,54,32,106,50,49,51,48,55,41,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,19),40,97,57,56,48,48,32,120,49,51,48,48,32,106,49,51,48,49,41,0,0,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,17),40,108,112,32,105,49,50,57,56,32,108,115,49,50,57,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,12),40,115,107,105,112,32,105,49,51,49,50,41,0,0,0,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,22),40,97,57,57,54,48,32,115,101,120,112,49,51,50,48,32,106,49,51,50,49,41,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,22),40,97,57,57,57,57,32,115,101,120,112,49,51,50,55,32,106,49,51,50,56,41,0,0}; static C_char C_TLS li58[] 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 li59[] C_aligned={C_lihdr(0,0,29),40,115,99,97,110,32,102,114,111,109,49,51,51,48,32,105,49,51,51,49,32,114,101,115,49,51,51,50,41,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,23),40,97,49,48,49,53,55,32,115,101,120,112,49,51,52,56,32,106,49,51,52,57,41,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,23),40,97,49,48,49,55,54,32,115,101,120,112,49,51,53,48,32,106,49,51,53,49,41,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,12),40,115,99,97,110,32,106,49,51,54,55,41,0,0,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,20),40,102,95,57,55,54,55,32,105,49,50,56,53,32,107,49,50,56,54,41,0,0,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,22),40,97,49,48,51,53,49,32,114,101,115,49,51,56,52,32,106,49,51,56,53,41,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,46),40,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,49,50,56,48,32,105,49,50,56,49,32,112,114,111,99,49,50,56,50,41,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,19),40,108,112,32,108,115,49,51,57,55,32,114,101,115,49,51,57,56,41,0,0,0,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,27),40,115,121,109,98,111,108,45,108,105,115,116,45,62,102,108,97,103,115,32,108,115,49,51,57,53,41,0,0,0,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,27),40,109,97,121,98,101,45,115,116,114,105,110,103,45,62,115,114,101,32,111,98,106,49,52,50,53,41,0,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,19),40,99,97,115,101,100,45,99,104,97,114,32,99,104,49,52,52,51,41,0,0,0,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,52,53,49,32,103,49,52,54,51,49,52,54,57,41}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,22),40,99,97,115,101,100,45,115,116,114,105,110,103,32,115,116,114,49,52,52,56,41,0,0}; static C_char C_TLS li72[] 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 li73[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li74[] 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 li75[] C_aligned={C_lihdr(0,0,28),40,108,112,32,108,115,49,52,57,53,32,116,101,114,109,49,52,57,54,32,114,101,115,49,52,57,55,41,0,0,0,0}; static C_char C_TLS li76[] 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 li77[] C_aligned={C_lihdr(0,0,6),40,115,97,118,101,41,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,22),40,97,49,49,50,56,57,32,115,114,101,49,53,55,51,32,106,49,53,55,52,41,0,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,12),40,106,111,105,110,32,120,49,54,50,53,41,0,0,0,0}; static C_char C_TLS li80[] 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 li81[] C_aligned={C_lihdr(0,0,33),40,108,112,50,32,106,49,54,49,54,32,102,108,97,103,115,49,54,49,55,32,105,110,118,101,114,116,63,49,54,49,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,22),40,97,49,50,49,48,57,32,115,114,101,49,54,52,48,32,106,49,54,52,49,41,0,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,22),40,97,50,55,50,51,48,32,120,53,50,56,55,32,114,101,115,53,50,56,56,41,0,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,20),40,97,49,51,55,48,49,32,99,49,56,53,53,32,106,49,56,53,54,41,0,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,7),40,103,49,56,54,52,41,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,21),40,97,49,52,48,52,53,32,99,104,49,57,48,57,32,106,49,57,49,48,41,0,0,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,33),40,103,111,32,105,49,56,51,49,32,112,114,101,118,45,99,104,97,114,49,56,51,50,32,99,115,101,116,49,56,51,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li88[] 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 li89[] C_aligned={C_lihdr(0,0,27),40,108,112,32,105,49,48,54,51,32,102,114,111,109,49,48,54,52,32,114,101,115,49,48,54,53,41,0,0,0,0,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,21),40,97,49,50,55,57,56,32,99,104,49,55,51,56,32,106,49,55,51,57,41,0,0,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,11),40,108,112,50,32,106,49,55,53,52,41,0,0,0,0,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,22),40,97,49,51,48,52,52,32,115,114,101,49,55,54,52,32,106,49,55,54,53,41,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,14),40,97,49,51,49,48,50,32,99,49,55,55,52,41,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,12),40,115,99,97,110,32,105,49,48,53,50,41,0,0,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,44),40,108,112,32,105,49,52,51,50,32,102,114,111,109,49,52,51,51,32,102,108,97,103,115,49,52,51,52,32,114,101,115,49,52,51,53,32,115,116,49,52,51,54,41,0,0,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,29),40,115,116,114,105,110,103,45,62,115,114,101,32,115,116,114,49,52,50,55,32,46,32,111,49,52,50,56,41,0,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,6),40,115,99,97,110,41,0,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,47),40,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,49,56,49,48,32,105,49,56,49,49,32,101,110,100,49,56,49,50,41,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,18),40,104,105,103,104,45,99,104,97,114,63,32,99,49,57,50,50,41,0,0,0,0,0,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,6),40,98,121,116,101,41,0,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,39),40,117,116,102,56,45,115,116,114,105,110,103,45,114,101,102,32,115,116,114,49,57,50,55,32,105,49,57,50,56,32,108,101,110,49,57,50,57,41,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,37),40,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,49,57,54,53,41,0,0,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,23),40,99,104,97,114,45,62,117,116,102,56,45,108,105,115,116,32,99,49,57,56,49,41,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,48,53,55,32,103,50,48,54,57,50,48,55,57,41}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,48,51,49,32,103,50,48,52,51,50,48,52,57,41}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,56),40,117,110,105,99,111,100,101,45,114,97,110,103,101,45,104,101,108,112,101,114,32,111,110,101,50,48,50,50,32,108,115,50,48,50,51,32,112,114,101,102,105,120,50,48,50,52,32,114,101,115,50,48,50,53,41}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,14),40,97,49,52,57,57,53,32,99,50,48,56,55,41,0,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,48,57,51,32,103,50,49,48,53,50,49,49,49,41}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,33),40,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,50,48,56,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,14),40,97,49,53,49,52,50,32,99,50,49,50,50,41,0,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,49,50,56,32,103,50,49,52,48,50,49,52,54,41}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,31),40,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,50,49,50,49,41,0}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,50,57,53,32,103,50,51,48,55,50,51,49,55,41}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,24),40,108,112,32,108,111,45,108,115,50,48,49,52,32,104,105,45,108,115,50,48,49,53,41}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,50,49,55,32,103,50,50,50,57,50,50,51,57,41}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,13),40,103,50,50,48,48,32,105,50,50,49,49,41,0,0,0}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,50,53,55,32,103,50,50,54,57,50,50,55,57,41}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,49,57,52,32,103,50,50,48,54,50,50,52,54,41}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,49,54,52,32,103,50,49,55,54,50,49,56,54,41}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,32),40,108,112,32,108,115,50,51,50,54,32,97,108,116,115,50,51,50,55,32,108,111,45,99,115,101,116,50,51,50,56,41}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,29),40,99,115,101,116,45,62,117,116,102,56,45,112,97,116,116,101,114,110,32,99,115,101,116,50,51,50,52,41,0,0,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,23),40,105,114,114,101,103,101,120,32,120,50,53,52,55,32,46,32,111,50,53,52,56,41,0}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,33),40,115,116,114,105,110,103,45,62,105,114,114,101,103,101,120,32,115,116,114,50,53,55,52,32,46,32,111,50,53,55,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,76),40,97,50,51,54,50,57,32,99,110,107,53,48,55,51,32,105,110,105,116,53,48,55,52,32,115,114,99,53,48,55,53,32,115,116,114,53,48,55,54,32,105,53,48,55,55,32,101,110,100,53,48,55,56,32,109,97,116,99,104,101,115,53,48,55,57,32,102,97,105,108,53,48,56,48,41,0,0,0,0}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,13),40,114,101,99,32,115,114,101,52,51,54,52,41,0,0,0}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,77),40,102,95,50,51,55,54,55,32,99,110,107,52,51,56,54,32,105,110,105,116,52,51,56,55,32,115,114,99,52,51,56,56,32,115,116,114,52,51,56,57,32,105,52,51,57,48,32,101,110,100,52,51,57,49,32,109,97,116,99,104,101,115,52,51,57,50,32,102,97,105,108,52,51,57,51,41,0,0,0}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,8),40,97,50,51,55,57,54,41}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,77),40,102,95,50,51,55,57,49,32,99,110,107,52,51,57,54,32,105,110,105,116,52,51,57,55,32,115,114,99,52,51,57,56,32,115,116,114,52,51,57,57,32,105,52,52,48,48,32,101,110,100,52,52,48,49,32,109,97,116,99,104,101,115,52,52,48,50,32,102,97,105,108,52,52,48,51,41,0,0,0}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,8),40,97,50,51,57,56,57,41}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,77),40,102,95,50,51,57,56,52,32,99,110,107,52,52,49,53,32,105,110,105,116,52,52,49,54,32,115,114,99,52,52,49,55,32,115,116,114,52,52,49,56,32,105,52,52,49,57,32,101,110,100,52,52,50,48,32,109,97,116,99,104,101,115,52,52,50,49,32,102,97,105,108,52,52,50,50,41,0,0,0}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,8),40,97,50,52,48,49,53,41}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,77),40,102,95,50,52,48,49,48,32,99,110,107,52,52,50,52,32,105,110,105,116,52,52,50,53,32,115,114,99,52,52,50,54,32,115,116,114,52,52,50,55,32,105,52,52,50,56,32,101,110,100,52,52,50,57,32,109,97,116,99,104,101,115,52,52,51,48,32,102,97,105,108,52,52,51,49,41,0,0,0}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,8),40,97,50,52,48,53,48,41}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,77),40,102,95,50,52,48,52,53,32,99,110,107,52,52,51,55,32,105,110,105,116,52,52,51,56,32,115,114,99,52,52,51,57,32,115,116,114,52,52,52,48,32,105,52,52,52,49,32,101,110,100,52,52,52,50,32,109,97,116,99,104,101,115,52,52,52,51,32,102,97,105,108,52,52,52,52,41,0,0,0}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,8),40,97,50,52,48,57,54,41}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,77),40,102,95,50,52,48,57,49,32,99,110,107,52,52,54,48,32,105,110,105,116,52,52,54,49,32,115,114,99,52,52,54,50,32,115,116,114,52,52,54,51,32,105,52,52,54,52,32,101,110,100,52,52,54,53,32,109,97,116,99,104,101,115,52,52,54,54,32,102,97,105,108,52,52,54,55,41,0,0,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,8),40,97,50,52,49,49,50,41}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,76),40,97,50,52,49,48,54,32,99,110,107,52,52,53,50,32,105,110,105,116,52,52,53,51,32,115,114,99,52,52,53,52,32,115,116,114,52,52,53,53,32,105,52,52,53,54,32,101,110,100,52,52,53,55,32,109,97,116,99,104,101,115,52,52,53,56,32,102,97,105,108,52,52,53,57,41,0,0,0,0}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,8),40,97,50,52,49,53,53,41}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,76),40,97,50,52,49,52,57,32,99,110,107,52,52,55,54,32,105,110,105,116,52,52,55,55,32,115,114,99,52,52,55,56,32,115,116,114,52,52,55,57,32,105,52,52,56,48,32,101,110,100,52,52,56,49,32,109,97,116,99,104,101,115,52,52,56,50,32,102,97,105,108,52,52,56,51,41,0,0,0,0}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,77),40,102,95,50,52,50,52,51,32,99,110,107,52,53,48,49,32,105,110,105,116,52,53,48,50,32,115,114,99,52,53,48,51,32,115,116,114,52,53,48,52,32,105,52,53,48,53,32,101,110,100,52,53,48,54,32,109,97,116,99,104,101,115,52,53,48,55,32,102,97,105,108,52,53,48,56,41,0,0,0}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,8),40,97,50,52,50,55,57,41}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,76),40,97,50,52,50,54,49,32,99,110,107,52,53,50,50,32,105,110,105,116,52,53,50,51,32,115,114,99,52,53,50,52,32,115,116,114,52,53,50,53,32,105,52,53,50,54,32,101,110,100,52,53,50,55,32,109,97,116,99,104,101,115,52,53,50,56,32,102,97,105,108,52,53,50,57,41,0,0,0,0}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,20),40,98,111,100,121,52,53,49,50,32,99,111,117,110,116,52,53,50,49,41,0,0,0,0}; static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,8),40,97,50,52,51,49,57,41}; static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,77),40,102,95,50,52,51,49,49,32,99,110,107,52,53,51,53,32,105,110,105,116,52,53,51,54,32,115,114,99,52,53,51,55,32,115,116,114,52,53,51,56,32,105,52,53,51,57,32,101,110,100,52,53,52,48,32,109,97,116,99,104,101,115,52,53,52,49,32,102,97,105,108,52,53,52,50,41,0,0,0}; static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,77),40,102,95,50,52,52,48,49,32,99,110,107,52,53,53,57,32,105,110,105,116,52,53,54,48,32,115,114,99,52,53,54,49,32,115,116,114,52,53,54,50,32,105,52,53,54,51,32,101,110,100,52,53,54,52,32,109,97,116,99,104,101,115,52,53,54,53,32,102,97,105,108,52,53,54,54,41,0,0,0}; static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,8),40,97,50,52,52,52,49,41}; static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,76),40,97,50,52,52,49,57,32,99,110,107,52,53,56,48,32,105,110,105,116,52,53,56,49,32,115,114,99,52,53,56,50,32,115,116,114,52,53,56,51,32,105,52,53,56,52,32,101,110,100,52,53,56,53,32,109,97,116,99,104,101,115,52,53,56,54,32,102,97,105,108,52,53,56,55,41,0,0,0,0}; static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,20),40,98,111,100,121,52,53,55,48,32,99,111,117,110,116,52,53,55,57,41,0,0,0,0}; static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,8),40,97,50,52,52,56,55,41}; static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,77),40,102,95,50,52,52,55,54,32,99,110,107,52,53,57,53,32,105,110,105,116,52,53,57,54,32,115,114,99,52,53,57,55,32,115,116,114,52,53,57,56,32,105,52,53,57,57,32,101,110,100,52,54,48,48,32,109,97,116,99,104,101,115,52,54,48,49,32,102,97,105,108,52,54,48,50,41,0,0,0}; static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,8),40,97,50,52,54,53,50,41}; static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,77),40,102,95,50,52,54,51,56,32,99,110,107,52,54,50,54,32,105,110,105,116,52,54,50,55,32,115,114,99,52,54,50,56,32,115,116,114,52,54,50,57,32,105,52,54,51,48,32,101,110,100,52,54,51,49,32,109,97,116,99,104,101,115,52,54,51,50,32,102,97,105,108,52,54,51,51,41,0,0,0}; static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,76),40,97,50,52,54,53,57,32,99,110,107,52,54,49,56,32,105,110,105,116,52,54,49,57,32,115,114,99,52,54,50,48,32,115,116,114,52,54,50,49,32,105,52,54,50,50,32,101,110,100,52,54,50,51,32,109,97,116,99,104,101,115,52,54,50,52,32,102,97,105,108,52,54,50,53,41,0,0,0,0}; static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,8),40,97,50,52,54,56,55,41}; static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,77),40,102,95,50,52,54,55,51,32,99,110,107,52,54,52,51,32,105,110,105,116,52,54,52,52,32,115,114,99,52,54,52,53,32,115,116,114,52,54,52,54,32,105,52,54,52,55,32,101,110,100,52,54,52,56,32,109,97,116,99,104,101,115,52,54,52,57,32,102,97,105,108,52,54,53,48,41,0,0,0}; static C_char C_TLS li158[] C_aligned={C_lihdr(0,0,76),40,97,50,52,54,57,52,32,99,110,107,52,54,51,53,32,105,110,105,116,52,54,51,54,32,115,114,99,52,54,51,55,32,115,116,114,52,54,51,56,32,105,52,54,51,57,32,101,110,100,52,54,52,48,32,109,97,116,99,104,101,115,52,54,52,49,32,102,97,105,108,52,54,52,50,41,0,0,0,0}; static C_char C_TLS li159[] C_aligned={C_lihdr(0,0,15),40,102,95,50,52,55,53,54,32,120,52,54,56,49,41,0}; static C_char C_TLS li160[] C_aligned={C_lihdr(0,0,8),40,97,50,52,55,53,48,41}; static C_char C_TLS li161[] C_aligned={C_lihdr(0,0,13),40,97,56,55,52,50,32,120,49,48,49,48,41,0,0,0}; static C_char C_TLS li162[] C_aligned={C_lihdr(0,0,13),40,97,56,55,54,57,32,120,49,48,49,52,41,0,0,0}; static C_char C_TLS li163[] C_aligned={C_lihdr(0,0,77),40,102,95,50,52,55,49,49,32,99,110,107,52,54,54,51,32,105,110,105,116,52,54,54,52,32,115,114,99,52,54,54,53,32,115,116,114,52,54,54,54,32,105,52,54,54,55,32,101,110,100,52,54,54,56,32,109,97,116,99,104,101,115,52,54,54,57,32,102,97,105,108,52,54,55,48,41,0,0,0}; static C_char C_TLS li164[] C_aligned={C_lihdr(0,0,76),40,97,50,52,55,55,50,32,99,110,107,52,54,53,53,32,105,110,105,116,52,54,53,54,32,115,114,99,52,54,53,55,32,115,116,114,52,54,53,56,32,105,52,54,53,57,32,101,110,100,52,54,54,48,32,109,97,116,99,104,101,115,52,54,54,49,32,102,97,105,108,52,54,54,50,41,0,0,0,0}; static C_char C_TLS li165[] C_aligned={C_lihdr(0,0,8),40,97,50,52,56,48,56,41}; static C_char C_TLS li166[] C_aligned={C_lihdr(0,0,77),40,102,95,50,52,55,57,52,32,99,110,107,52,54,57,49,32,105,110,105,116,52,54,57,50,32,115,114,99,52,54,57,51,32,115,116,114,52,54,57,52,32,105,52,54,57,53,32,101,110,100,52,54,57,54,32,109,97,116,99,104,101,115,52,54,57,55,32,102,97,105,108,52,54,57,56,41,0,0,0}; static C_char C_TLS li167[] C_aligned={C_lihdr(0,0,76),40,97,50,52,56,49,53,32,99,110,107,52,54,56,51,32,105,110,105,116,52,54,56,52,32,115,114,99,52,54,56,53,32,115,116,114,52,54,56,54,32,105,52,54,56,55,32,101,110,100,52,54,56,56,32,109,97,116,99,104,101,115,52,54,56,57,32,102,97,105,108,52,54,57,48,41,0,0,0,0}; static C_char C_TLS li168[] C_aligned={C_lihdr(0,0,78),40,102,95,50,52,56,52,55,32,99,110,107,52,55,50,53,32,105,110,105,116,52,55,50,54,32,115,114,99,52,55,50,55,32,115,116,114,52,55,50,56,32,105,52,55,50,57,32,101,110,100,52,55,51,48,32,109,97,116,99,104,101,115,52,55,51,49,32,102,97,105,108,50,52,55,51,50,41,0,0}; static C_char C_TLS li169[] C_aligned={C_lihdr(0,0,8),40,97,50,52,57,49,48,41}; static C_char C_TLS li170[] C_aligned={C_lihdr(0,0,78),40,102,95,50,52,57,48,53,32,99,110,107,52,55,51,56,32,105,110,105,116,52,55,51,57,32,115,114,99,52,55,52,48,32,115,116,114,52,55,52,49,32,105,52,55,52,50,32,101,110,100,52,55,52,51,32,109,97,116,99,104,101,115,52,55,52,52,32,102,97,105,108,50,52,55,52,53,41,0,0}; static C_char C_TLS li171[] C_aligned={C_lihdr(0,0,77),40,102,95,50,52,57,53,50,32,99,110,107,52,55,48,51,32,105,110,105,116,52,55,48,52,32,115,114,99,52,55,48,53,32,115,116,114,52,55,48,54,32,105,52,55,48,55,32,101,110,100,52,55,48,56,32,109,97,116,99,104,101,115,52,55,48,57,32,102,97,105,108,52,55,49,48,41,0,0,0}; static C_char C_TLS li172[] C_aligned={C_lihdr(0,0,48),40,108,112,32,115,114,99,52,55,55,48,32,115,116,114,52,55,55,49,32,105,52,55,55,50,32,101,110,100,52,55,55,51,32,106,52,55,55,52,32,108,101,110,52,55,55,53,41}; static C_char C_TLS li173[] C_aligned={C_lihdr(0,0,77),40,102,95,50,52,57,56,56,32,99,110,107,52,55,54,48,32,105,110,105,116,52,55,54,49,32,115,114,99,52,55,54,50,32,115,116,114,52,55,54,51,32,105,52,55,54,52,32,101,110,100,52,55,54,53,32,109,97,116,99,104,101,115,52,55,54,54,32,102,97,105,108,52,55,54,55,41,0,0,0}; static C_char C_TLS li174[] C_aligned={C_lihdr(0,0,8),40,97,50,53,50,53,51,41}; static C_char C_TLS li175[] C_aligned={C_lihdr(0,0,77),40,102,95,50,53,50,48,54,32,99,110,107,52,56,51,50,32,105,110,105,116,52,56,51,51,32,115,114,99,52,56,51,52,32,115,116,114,52,56,51,53,32,105,52,56,51,54,32,101,110,100,52,56,51,55,32,109,97,116,99,104,101,115,52,56,51,56,32,102,97,105,108,52,56,51,57,41,0,0,0}; static C_char C_TLS li176[] C_aligned={C_lihdr(0,0,8),40,97,50,53,51,52,56,41}; static C_char C_TLS li177[] C_aligned={C_lihdr(0,0,76),40,97,50,53,51,49,51,32,99,110,107,52,56,48,50,32,105,110,105,116,52,56,48,51,32,115,114,99,52,56,48,52,32,115,116,114,52,56,48,53,32,105,52,56,48,54,32,101,110,100,52,56,48,55,32,109,97,116,99,104,101,115,52,56,48,56,32,102,97,105,108,52,56,48,57,41,0,0,0,0}; static C_char C_TLS li178[] C_aligned={C_lihdr(0,0,77),40,102,95,50,53,53,52,57,32,99,110,107,52,56,55,54,32,105,110,105,116,52,56,55,55,32,115,114,99,52,56,55,56,32,115,116,114,52,56,55,57,32,105,52,56,56,48,32,101,110,100,52,56,56,49,32,109,97,116,99,104,101,115,52,56,56,50,32,102,97,105,108,52,56,56,51,41,0,0,0}; static C_char C_TLS li179[] C_aligned={C_lihdr(0,0,77),40,102,95,50,53,54,48,55,32,99,110,107,52,56,57,54,32,105,110,105,116,52,56,57,55,32,115,114,99,52,56,57,56,32,115,116,114,52,56,57,57,32,105,52,57,48,48,32,101,110,100,52,57,48,49,32,109,97,116,99,104,101,115,52,57,48,50,32,102,97,105,108,52,57,48,51,41,0,0,0}; static C_char C_TLS li180[] C_aligned={C_lihdr(0,0,77),40,102,95,50,53,55,48,49,32,99,110,107,52,57,49,54,32,105,110,105,116,52,57,49,55,32,115,114,99,52,57,49,56,32,115,116,114,52,57,49,57,32,105,52,57,50,48,32,101,110,100,52,57,50,49,32,109,97,116,99,104,101,115,52,57,50,50,32,102,97,105,108,52,57,50,51,41,0,0,0}; static C_char C_TLS li181[] C_aligned={C_lihdr(0,0,77),40,102,95,50,53,55,51,51,32,99,110,107,52,57,50,53,32,105,110,105,116,52,57,50,54,32,115,114,99,52,57,50,55,32,115,116,114,52,57,50,56,32,105,52,57,50,57,32,101,110,100,52,57,51,48,32,109,97,116,99,104,101,115,52,57,51,49,32,102,97,105,108,52,57,51,50,41,0,0,0}; static C_char C_TLS li182[] C_aligned={C_lihdr(0,0,77),40,102,95,50,53,55,57,51,32,99,110,107,52,57,52,48,32,105,110,105,116,52,57,52,49,32,115,114,99,52,57,52,50,32,115,116,114,52,57,52,51,32,105,52,57,52,52,32,101,110,100,52,57,52,53,32,109,97,116,99,104,101,115,52,57,52,54,32,102,97,105,108,52,57,52,55,41,0,0,0}; static C_char C_TLS li183[] C_aligned={C_lihdr(0,0,77),40,102,95,50,53,57,48,48,32,99,110,107,52,57,54,51,32,105,110,105,116,52,57,54,52,32,115,114,99,52,57,54,53,32,115,116,114,52,57,54,54,32,105,52,57,54,55,32,101,110,100,52,57,54,56,32,109,97,116,99,104,101,115,52,57,54,57,32,102,97,105,108,52,57,55,48,41,0,0,0}; static C_char C_TLS li184[] C_aligned={C_lihdr(0,0,77),40,102,95,50,53,57,51,51,32,99,110,107,52,57,55,52,32,105,110,105,116,52,57,55,53,32,115,114,99,52,57,55,54,32,115,116,114,52,57,55,55,32,105,52,57,55,56,32,101,110,100,52,57,55,57,32,109,97,116,99,104,101,115,52,57,56,48,32,102,97,105,108,52,57,56,49,41,0,0,0}; static C_char C_TLS li185[] C_aligned={C_lihdr(0,0,77),40,102,95,50,53,57,57,56,32,99,110,107,52,57,56,57,32,105,110,105,116,52,57,57,48,32,115,114,99,52,57,57,49,32,115,116,114,52,57,57,50,32,105,52,57,57,51,32,101,110,100,52,57,57,52,32,109,97,116,99,104,101,115,52,57,57,53,32,102,97,105,108,52,57,57,54,41,0,0,0}; static C_char C_TLS li186[] C_aligned={C_lihdr(0,0,77),40,102,95,50,54,48,56,55,32,99,110,107,53,48,48,56,32,105,110,105,116,53,48,48,57,32,115,114,99,53,48,49,48,32,115,116,114,53,48,49,49,32,105,53,48,49,50,32,101,110,100,53,48,49,51,32,109,97,116,99,104,101,115,53,48,49,52,32,102,97,105,108,53,48,49,53,41,0,0,0}; static C_char C_TLS li187[] C_aligned={C_lihdr(0,0,13),40,108,112,32,115,114,99,50,53,48,51,50,41,0,0,0}; static C_char C_TLS li188[] C_aligned={C_lihdr(0,0,77),40,102,95,50,54,50,48,57,32,99,110,107,53,48,50,51,32,105,110,105,116,53,48,50,52,32,115,114,99,53,48,50,53,32,115,116,114,53,48,50,54,32,105,53,48,50,55,32,101,110,100,53,48,50,56,32,109,97,116,99,104,101,115,53,48,50,57,32,102,97,105,108,53,48,51,48,41,0,0,0}; static C_char C_TLS li189[] C_aligned={C_lihdr(0,0,13),40,108,112,32,115,114,99,50,53,48,53,54,41,0,0,0}; static C_char C_TLS li190[] C_aligned={C_lihdr(0,0,77),40,102,95,50,54,51,49,48,32,99,110,107,53,48,52,55,32,105,110,105,116,53,48,52,56,32,115,114,99,53,48,52,57,32,115,116,114,53,48,53,48,32,105,53,48,53,49,32,101,110,100,53,48,53,50,32,109,97,116,99,104,101,115,53,48,53,51,32,102,97,105,108,53,48,53,52,41,0,0,0}; static C_char C_TLS li191[] C_aligned={C_lihdr(0,0,37),40,108,112,32,115,114,101,52,51,53,53,32,110,52,51,53,54,32,102,108,97,103,115,52,51,53,55,32,110,101,120,116,52,51,53,56,41,0,0,0}; static C_char C_TLS li192[] C_aligned={C_lihdr(0,0,12),40,103,114,111,119,32,105,50,56,48,56,41,0,0,0,0}; static C_char C_TLS li193[] C_aligned={C_lihdr(0,0,24),40,97,49,55,51,56,52,32,108,111,51,50,56,52,52,32,104,105,51,50,56,52,53,41}; static C_char C_TLS li194[] C_aligned={C_lihdr(0,0,34),40,108,112,50,32,108,115,50,56,51,56,32,110,50,56,51,57,32,108,111,50,50,56,52,48,32,104,105,50,50,56,52,49,41,0,0,0,0,0,0}; static C_char C_TLS li195[] C_aligned={C_lihdr(0,0,24),40,97,49,55,52,54,54,32,108,111,51,50,56,53,57,32,104,105,51,50,56,54,48,41}; static C_char C_TLS li196[] C_aligned={C_lihdr(0,0,34),40,108,112,50,32,108,115,50,56,53,48,32,110,50,56,53,49,32,108,111,50,50,56,53,50,32,104,105,50,50,56,53,51,41,0,0,0,0,0,0}; static C_char C_TLS li197[] C_aligned={C_lihdr(0,0,24),40,97,49,55,53,54,50,32,108,111,52,50,56,56,48,32,104,105,52,50,56,56,49,41}; static C_char C_TLS li198[] C_aligned={C_lihdr(0,0,24),40,97,49,55,53,52,56,32,108,111,51,50,56,55,56,32,104,105,51,50,56,55,57,41}; static C_char C_TLS li199[] C_aligned={C_lihdr(0,0,24),40,97,49,55,53,51,52,32,108,111,50,50,56,55,54,32,104,105,50,50,56,55,55,41}; static C_char C_TLS li200[] C_aligned={C_lihdr(0,0,24),40,97,49,55,54,56,49,32,108,111,50,50,56,57,52,32,104,105,50,50,56,57,53,41}; static C_char C_TLS li201[] C_aligned={C_lihdr(0,0,22),40,97,49,55,56,51,55,32,108,111,50,57,50,49,32,104,105,50,57,50,50,41,0,0}; static C_char C_TLS li202[] C_aligned={C_lihdr(0,0,24),40,97,49,55,56,55,54,32,108,111,50,50,57,51,55,32,104,105,50,50,57,51,56,41}; static C_char C_TLS li203[] C_aligned={C_lihdr(0,0,24),40,97,49,55,57,50,51,32,108,111,50,50,57,52,49,32,104,105,50,50,57,52,50,41}; static C_char C_TLS li204[] C_aligned={C_lihdr(0,0,24),40,97,49,55,57,57,55,32,108,111,50,50,57,52,51,32,104,105,50,50,57,52,52,41}; static C_char C_TLS li205[] C_aligned={C_lihdr(0,0,24),40,97,49,56,48,50,53,32,108,111,50,50,57,52,56,32,104,105,50,50,57,52,57,41}; static C_char C_TLS li206[] C_aligned={C_lihdr(0,0,16),40,103,50,57,55,57,32,99,101,108,108,50,57,56,49,41}; static C_char C_TLS li207[] C_aligned={C_lihdr(0,0,43),40,108,112,32,115,114,101,50,55,57,56,32,110,50,55,57,57,32,108,111,50,56,48,48,32,104,105,50,56,48,49,32,114,101,116,117,114,110,50,56,48,50,41,0,0,0,0,0}; static C_char C_TLS li208[] C_aligned={C_lihdr(0,0,15),40,103,50,54,48,57,32,110,102,97,50,54,49,49,41,0}; static C_char C_TLS li209[] C_aligned={C_lihdr(0,0,15),40,103,50,53,57,56,32,110,102,97,50,54,48,48,41,0}; static C_char C_TLS li210[] C_aligned={C_lihdr(0,0,13),40,114,101,99,32,115,114,101,50,51,52,53,41,0,0,0}; static C_char C_TLS li211[] C_aligned={C_lihdr(0,0,13),40,103,50,51,54,48,32,115,50,51,55,49,41,0,0,0}; static C_char C_TLS li212[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,51,53,52,32,103,50,51,54,54,50,51,55,51,41}; static C_char C_TLS li213[] C_aligned={C_lihdr(0,0,13),40,103,50,51,56,55,32,115,50,51,57,56,41,0,0,0}; static C_char C_TLS li214[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,51,56,49,32,103,50,51,57,51,50,52,48,48,41}; static C_char C_TLS li215[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,52,50,52,32,103,50,52,51,54,50,52,52,50,41}; static C_char C_TLS li216[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,52,53,48,32,103,50,52,54,50,50,52,54,56,41}; static C_char C_TLS li217[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,52,56,52,32,103,50,52,57,54,50,53,48,50,41}; static C_char C_TLS li218[] C_aligned={C_lihdr(0,0,34),40,97,100,106,117,115,116,32,115,114,101,50,51,51,55,32,117,116,102,56,63,50,51,51,56,32,99,105,63,50,51,51,57,41,0,0,0,0,0,0}; static C_char C_TLS li219[] C_aligned={C_lihdr(0,0,30),40,115,114,101,45,62,105,114,114,101,103,101,120,32,115,114,101,50,53,55,55,32,46,32,111,50,53,55,56,41,0,0}; static C_char C_TLS li220[] C_aligned={C_lihdr(0,0,20),40,115,114,101,45,101,109,112,116,121,63,32,115,114,101,50,54,50,55,41,0,0,0,0}; static C_char C_TLS li221[] C_aligned={C_lihdr(0,0,18),40,115,114,101,45,97,110,121,63,32,115,114,101,50,54,55,52,41,0,0,0,0,0,0}; static C_char C_TLS li222[] C_aligned={C_lihdr(0,0,15),40,115,114,101,45,114,101,112,101,97,116,101,114,63,41,0}; static C_char C_TLS li223[] C_aligned={C_lihdr(0,0,23),40,115,114,101,45,115,101,97,114,99,104,101,114,63,32,115,114,101,50,55,49,50,41,0}; static C_char C_TLS li224[] C_aligned={C_lihdr(0,0,23),40,115,114,101,45,99,111,110,115,117,109,101,114,63,32,115,114,101,50,55,51,57,41,0}; static C_char C_TLS li225[] C_aligned={C_lihdr(0,0,29),40,115,114,101,45,104,97,115,45,115,117,98,109,97,116,99,104,101,115,63,32,115,114,101,50,55,54,54,41,0,0,0}; static C_char C_TLS li226[] C_aligned={C_lihdr(0,0,23),40,99,111,117,110,116,32,115,114,101,50,55,55,52,32,115,117,109,50,55,55,53,41,0}; static C_char C_TLS li227[] C_aligned={C_lihdr(0,0,30),40,115,114,101,45,99,111,117,110,116,45,115,117,98,109,97,116,99,104,101,115,32,115,114,101,50,55,55,50,41,0,0}; static C_char C_TLS li228[] C_aligned={C_lihdr(0,0,14),40,115,114,101,45,115,101,113,117,101,110,99,101,41,0,0}; static C_char C_TLS li229[] C_aligned={C_lihdr(0,0,15),40,115,114,101,45,97,108,116,101,114,110,97,116,101,41,0}; static C_char C_TLS li230[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,51,48,49,54,32,103,51,48,50,56,51,48,51,52,41}; static C_char C_TLS li231[] C_aligned={C_lihdr(0,0,30),40,115,114,101,45,115,116,114,105,112,45,115,117,98,109,97,116,99,104,101,115,32,115,114,101,51,48,48,49,41,0,0}; static C_char C_TLS li232[] C_aligned={C_lihdr(0,0,35),40,115,114,101,45,110,97,109,101,115,32,115,114,101,51,48,53,49,32,110,51,48,53,50,32,110,97,109,101,115,51,48,53,51,41,0,0,0,0,0}; static C_char C_TLS li233[] C_aligned={C_lihdr(0,0,43),40,115,114,101,45,115,101,113,117,101,110,99,101,45,110,97,109,101,115,32,108,115,51,49,49,53,32,110,51,49,49,54,32,110,97,109,101,115,51,49,49,55,41,0,0,0,0,0}; static C_char C_TLS li234[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,51,49,53,55,32,103,51,49,54,57,51,49,55,53,41}; static C_char C_TLS li235[] C_aligned={C_lihdr(0,0,32),40,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,51,49,49,57,41}; static C_char C_TLS li236[] C_aligned={C_lihdr(0,0,38),40,105,114,114,101,103,101,120,45,115,101,97,114,99,104,32,120,51,49,56,56,32,115,116,114,51,49,56,57,32,46,32,111,51,49,57,48,41,0,0}; static C_char C_TLS li237[] C_aligned={C_lihdr(0,0,54),40,105,114,114,101,103,101,120,45,115,101,97,114,99,104,47,99,104,117,110,107,101,100,32,120,51,50,48,56,32,99,110,107,51,50,48,57,32,115,114,99,51,50,49,48,32,46,32,111,51,50,49,49,41,0,0}; static C_char C_TLS li238[] C_aligned={C_lihdr(0,0,11),40,108,112,50,32,105,51,50,53,52,41,0,0,0,0,0}; static C_char C_TLS li239[] C_aligned={C_lihdr(0,0,19),40,108,112,49,32,115,114,99,51,50,53,48,32,105,51,50,53,49,41,0,0,0,0,0}; static C_char C_TLS li240[] C_aligned={C_lihdr(0,0,14),40,97,49,57,57,57,57,32,120,51,52,52,57,41,0,0}; static C_char C_TLS li241[] C_aligned={C_lihdr(0,0,21),40,108,112,50,32,105,51,52,51,48,32,115,116,97,116,101,51,52,51,49,41,0,0,0}; static C_char C_TLS li242[] C_aligned={C_lihdr(0,0,33),40,108,112,49,32,115,114,99,51,52,50,51,32,115,116,97,114,116,51,52,50,52,32,115,116,97,116,101,51,52,50,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li243[] C_aligned={C_lihdr(0,0,8),40,97,49,57,52,51,50,41}; static C_char C_TLS li244[] C_aligned={C_lihdr(0,0,8),40,97,49,57,53,49,54,41}; static C_char C_TLS li245[] C_aligned={C_lihdr(0,0,35),40,108,112,32,115,114,99,50,51,50,56,56,32,115,116,114,51,50,56,57,32,105,51,50,57,48,32,101,110,100,51,50,57,49,41,0,0,0,0,0}; static C_char C_TLS li246[] C_aligned={C_lihdr(0,0,75),40,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,51,50,50,48,32,99,110,107,51,50,50,49,32,105,110,105,116,51,50,50,50,32,115,114,99,51,50,50,51,32,105,51,50,50,52,32,109,97,116,99,104,101,115,51,50,50,53,41,0,0,0,0,0}; static C_char C_TLS li247[] C_aligned={C_lihdr(0,0,39),40,105,114,114,101,103,101,120,45,109,97,116,99,104,32,105,114,120,51,51,49,50,32,115,116,114,51,51,49,51,32,46,32,111,51,51,49,52,41,0}; static C_char C_TLS li248[] C_aligned={C_lihdr(0,0,10),40,108,112,32,109,51,51,55,50,41,0,0,0,0,0,0}; static C_char C_TLS li249[] C_aligned={C_lihdr(0,0,8),40,97,49,57,56,53,51,41}; static C_char C_TLS li250[] C_aligned={C_lihdr(0,0,47),40,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,51,51,51,50,32,99,110,107,51,51,51,51,32,115,114,99,51,51,51,52,41,0}; static C_char C_TLS li251[] C_aligned={C_lihdr(0,0,27),40,105,114,114,101,103,101,120,45,109,97,116,99,104,63,32,46,32,97,114,103,115,51,51,57,55,41,0,0,0,0,0}; static C_char C_TLS li252[] C_aligned={C_lihdr(0,0,20),40,103,51,52,54,54,32,116,97,103,38,115,108,111,116,51,52,55,53,41,0,0,0,0}; static C_char C_TLS li253[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,52,54,53,32,103,51,52,55,50,51,52,56,55,41,0,0,0}; static C_char C_TLS li254[] C_aligned={C_lihdr(0,0,48),40,102,105,110,97,108,105,122,101,33,32,102,105,110,97,108,105,122,101,114,51,52,54,48,32,109,101,109,111,114,121,51,52,54,49,32,109,97,116,99,104,101,115,51,52,54,50,41}; static C_char C_TLS li255[] C_aligned={C_lihdr(0,0,7),40,103,51,54,50,50,41,0}; static C_char C_TLS li256[] C_aligned={C_lihdr(0,0,7),40,103,51,54,52,50,41,0}; static C_char C_TLS li257[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,54,52,49,41,0,0,0,0,0}; static C_char C_TLS li258[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,54,50,49,32,103,51,54,50,56,51,54,51,53,41,0,0,0}; static C_char C_TLS li259[] C_aligned={C_lihdr(0,0,14),40,97,50,48,53,57,49,32,120,51,53,57,57,41,0,0}; static C_char C_TLS li260[] C_aligned={C_lihdr(0,0,61),40,108,112,50,32,105,51,53,54,51,32,115,116,97,116,101,51,53,54,52,32,114,101,115,45,115,114,99,51,53,54,53,32,114,101,115,45,105,110,100,101,120,51,53,54,54,32,102,105,110,97,108,105,122,101,114,51,53,54,55,41,0,0,0}; static C_char C_TLS li261[] C_aligned={C_lihdr(0,0,73),40,108,112,49,32,115,114,99,51,53,53,52,32,115,116,97,114,116,51,53,53,53,32,115,116,97,116,101,51,53,53,54,32,114,101,115,45,115,114,99,51,53,53,55,32,114,101,115,45,105,110,100,101,120,51,53,53,56,32,102,105,110,97,108,105,122,101,114,51,53,53,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li262[] C_aligned={C_lihdr(0,0,7),40,103,51,53,51,55,41,0}; static C_char C_TLS li263[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,53,51,54,32,103,51,53,52,51,51,53,52,57,41,0,0,0}; static C_char C_TLS li264[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,51,52,57,54,32,105,51,52,57,56,41,0,0,0,0,0,0}; static C_char C_TLS li265[] C_aligned={C_lihdr(0,0,95),40,100,102,97,45,109,97,116,99,104,47,108,111,110,103,101,115,116,32,100,102,97,51,53,48,50,32,99,110,107,51,53,48,51,32,115,114,99,51,53,48,52,32,115,116,97,114,116,51,53,48,53,32,101,110,100,45,115,114,99,51,53,48,54,32,101,110,100,51,53,48,55,32,109,97,116,99,104,101,115,51,53,48,56,32,105,110,100,101,120,51,53,48,57,41,0}; static C_char C_TLS li266[] C_aligned={C_lihdr(0,0,24),40,97,51,49,48,48,56,32,101,115,99,51,54,57,55,32,46,32,111,51,54,57,56,41}; static C_char C_TLS li267[] C_aligned={C_lihdr(0,0,24),40,110,102,97,45,103,101,116,45,101,112,115,105,108,111,110,115,32,105,51,55,50,52,41}; static C_char C_TLS li268[] C_aligned={C_lihdr(0,0,44),40,110,102,97,45,97,100,100,45,101,112,115,105,108,111,110,33,32,110,102,97,51,55,51,48,32,105,51,55,51,49,32,120,51,55,51,50,32,116,51,55,51,51,41,0,0,0,0}; static C_char C_TLS li269[] C_aligned={C_lihdr(0,0,28),40,110,101,119,45,115,116,97,116,101,45,110,117,109,98,101,114,32,115,116,97,116,101,51,56,48,51,41,0,0,0,0}; static C_char C_TLS li270[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,51,56,48,55,41,0,0,0,0}; static C_char C_TLS li271[] C_aligned={C_lihdr(0,0,32),40,97,100,100,45,115,116,97,116,101,33,32,110,50,51,56,48,52,32,116,114,97,110,115,45,108,115,51,56,48,53,41}; static C_char C_TLS li272[] C_aligned={C_lihdr(0,0,37),40,101,120,116,101,110,100,45,115,116,97,116,101,33,32,110,101,120,116,51,56,49,53,32,116,114,97,110,115,45,99,115,51,56,49,54,41,0,0,0}; static C_char C_TLS li273[] C_aligned={C_lihdr(0,0,33),40,97,100,100,45,99,104,97,114,45,115,116,97,116,101,33,32,110,101,120,116,51,56,49,56,32,99,104,51,56,49,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li274[] C_aligned={C_lihdr(0,0,20),40,108,112,50,32,105,51,56,51,53,32,110,101,120,116,51,56,51,54,41,0,0,0,0}; static C_char C_TLS li275[] C_aligned={C_lihdr(0,0,16),40,103,51,57,52,51,32,99,101,108,108,51,57,52,53,41}; static C_char C_TLS li276[] C_aligned={C_lihdr(0,0,36),40,108,112,32,108,115,51,55,57,53,32,110,51,55,57,54,32,102,108,97,103,115,51,55,57,55,32,110,101,120,116,51,55,57,56,41,0,0,0,0}; static C_char C_TLS li277[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,51,57,53,51,41,0,0,0,0}; static C_char C_TLS li278[] C_aligned={C_lihdr(0,0,28),40,108,112,32,115,114,101,51,55,54,57,32,109,97,120,51,55,55,48,32,114,101,115,51,55,55,49,41,0,0,0,0}; static C_char C_TLS li279[] C_aligned={C_lihdr(0,0,33),40,115,114,101,45,62,110,102,97,32,115,114,101,51,55,54,52,32,105,110,105,116,45,102,108,97,103,115,51,55,54,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li280[] C_aligned={C_lihdr(0,0,18),40,109,97,107,101,45,109,115,116,32,110,102,97,51,57,56,49,41,0,0,0,0,0,0}; static C_char C_TLS li281[] C_aligned={C_lihdr(0,0,18),40,109,115,116,45,99,111,112,121,32,109,115,116,51,57,56,55,41,0,0,0,0,0,0}; static C_char C_TLS li282[] C_aligned={C_lihdr(0,0,47),40,110,102,97,45,115,116,97,116,101,45,62,109,115,116,32,110,102,97,51,57,57,49,32,115,116,97,116,101,51,57,57,50,32,109,97,112,112,105,110,103,115,51,57,57,51,41,0}; static C_char C_TLS li283[] C_aligned={C_lihdr(0,0,7),40,103,52,48,49,49,41,0}; static C_char C_TLS li284[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,52,48,49,48,32,103,52,48,49,55,52,48,51,48,41,0,0,0}; static C_char C_TLS li285[] C_aligned={C_lihdr(0,0,49),40,109,115,116,45,97,100,100,33,32,110,102,97,51,57,57,55,32,109,115,116,51,57,57,56,32,115,116,97,116,101,51,57,57,57,32,109,97,112,112,105,110,103,115,52,48,48,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li286[] C_aligned={C_lihdr(0,0,18),40,108,112,32,105,52,49,48,48,32,97,99,99,52,49,48,49,41,0,0,0,0,0,0}; static C_char C_TLS li287[] C_aligned={C_lihdr(0,0,36),40,109,115,116,45,102,111,108,100,32,109,115,116,52,48,57,53,32,107,111,110,115,52,48,57,54,32,107,110,105,108,52,48,57,55,41,0,0,0,0}; static C_char C_TLS li288[] C_aligned={C_lihdr(0,0,14),40,103,52,49,56,50,32,116,114,52,49,57,51,41,0,0}; static C_char C_TLS li289[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,52,49,55,54,32,103,52,49,56,56,52,49,57,57,41}; static C_char C_TLS li290[] C_aligned={C_lihdr(0,0,29),40,100,111,108,111,111,112,52,49,54,56,32,105,52,49,55,48,32,115,116,97,116,101,115,52,49,55,49,41,0,0,0}; static C_char C_TLS li291[] C_aligned={C_lihdr(0,0,33),40,108,112,32,105,52,49,54,52,32,115,116,97,116,101,115,52,49,54,53,32,105,110,100,101,120,101,115,52,49,54,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li292[] C_aligned={C_lihdr(0,0,48),40,108,112,51,32,99,108,111,115,117,114,101,45,115,108,111,116,115,52,51,51,48,32,115,116,97,116,101,45,115,108,111,116,115,52,51,51,49,32,99,109,100,115,52,51,51,50,41}; static C_char C_TLS li293[] C_aligned={C_lihdr(0,0,38),40,108,112,50,32,115,116,97,116,101,45,115,117,109,109,97,114,121,52,51,50,54,32,116,52,51,50,55,32,99,109,100,115,52,51,50,56,41,0,0}; static C_char C_TLS li294[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li295[] C_aligned={C_lihdr(0,0,19),40,108,112,32,100,102,97,45,115,116,97,116,101,115,52,51,50,52,41,0,0,0,0,0}; static C_char C_TLS li296[] C_aligned={C_lihdr(0,0,49),40,108,112,50,32,116,114,97,110,115,52,49,52,53,32,117,110,109,97,114,107,101,100,45,115,116,97,116,101,115,52,49,52,54,32,100,102,97,45,116,114,97,110,115,52,49,52,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li297[] C_aligned={C_lihdr(0,0,24),40,103,52,50,51,49,32,105,110,116,101,114,115,101,99,116,105,111,110,52,50,51,51,41}; static C_char C_TLS li298[] C_aligned={C_lihdr(0,0,36),40,108,112,32,108,115,52,50,50,48,32,99,115,52,50,50,49,32,115,116,97,116,101,52,50,50,50,32,114,101,115,52,50,50,51,41,0,0,0,0}; static C_char C_TLS li299[] C_aligned={C_lihdr(0,0,36),40,97,50,50,57,55,54,32,115,116,52,50,49,53,32,109,97,112,112,105,110,103,115,52,50,49,54,32,114,101,115,52,50,49,55,41,0,0,0,0}; static C_char C_TLS li300[] C_aligned={C_lihdr(0,0,55),40,108,112,32,117,110,109,97,114,107,101,100,45,115,116,97,116,101,115,52,49,51,52,32,109,97,114,107,101,100,45,115,116,97,116,101,115,52,49,51,53,32,100,102,97,45,115,105,122,101,52,49,51,54,41,0}; static C_char C_TLS li301[] C_aligned={C_lihdr(0,0,24),40,110,102,97,45,62,100,102,97,32,110,102,97,52,49,50,49,32,111,52,49,50,50,41}; static C_char C_TLS li302[] C_aligned={C_lihdr(0,0,18),40,108,112,32,109,52,48,53,57,32,114,101,115,52,48,54,48,41,0,0,0,0,0,0}; static C_char C_TLS li303[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,52,49,49,49,41,0,0,0,0}; static C_char C_TLS li304[] C_aligned={C_lihdr(0,0,15),40,103,52,50,54,54,32,116,97,103,52,50,54,56,41,0}; static C_char C_TLS li305[] C_aligned={C_lihdr(0,0,25),40,108,112,50,32,116,114,97,110,115,52,50,53,51,32,115,116,97,99,107,52,50,53,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li306[] C_aligned={C_lihdr(0,0,41),40,108,112,32,115,116,97,99,107,52,50,52,55,32,112,114,105,111,114,105,116,105,101,115,52,50,52,56,32,99,108,111,115,117,114,101,52,50,52,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li307[] C_aligned={C_lihdr(0,0,29),40,97,50,51,50,54,52,32,115,116,52,50,55,53,32,109,52,50,55,54,32,114,101,115,52,50,55,55,41,0,0,0}; static C_char C_TLS li308[] C_aligned={C_lihdr(0,0,40),40,110,102,97,45,101,112,115,105,108,111,110,45,99,108,111,115,117,114,101,32,110,102,97,52,50,55,57,32,115,116,97,116,101,115,52,50,56,48,41}; static C_char C_TLS li309[] C_aligned={C_lihdr(0,0,14),40,97,50,51,51,56,56,32,99,52,51,49,50,41,0,0}; static C_char C_TLS li310[] C_aligned={C_lihdr(0,0,14),40,97,50,51,52,49,50,32,99,52,51,49,48,41,0,0}; static C_char C_TLS li311[] C_aligned={C_lihdr(0,0,28),40,108,112,50,32,115,49,52,50,57,56,32,115,50,52,50,57,57,32,99,109,100,115,52,51,48,48,41,0,0,0,0}; static C_char C_TLS li312[] C_aligned={C_lihdr(0,0,19),40,108,112,32,116,52,50,57,53,32,99,109,100,115,52,50,57,54,41,0,0,0,0,0}; static C_char C_TLS li313[] C_aligned={C_lihdr(0,0,79),40,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,52,50,56,55,32,111,114,105,103,45,115,116,97,116,101,52,50,56,56,32,99,108,111,115,117,114,101,52,50,56,57,32,99,111,112,121,45,99,109,100,115,52,50,57,48,41,0}; static C_char C_TLS li314[] C_aligned={C_lihdr(0,0,77),40,102,95,50,54,52,53,53,32,99,110,107,53,49,48,49,32,105,110,105,116,53,49,48,50,32,115,114,99,53,49,48,51,32,115,116,114,53,49,48,52,32,105,53,49,48,53,32,101,110,100,53,49,48,54,32,109,97,116,99,104,101,115,53,49,48,55,32,102,97,105,108,53,49,48,56,41,0,0,0}; static C_char C_TLS li315[] C_aligned={C_lihdr(0,0,39),40,115,114,101,45,99,115,101,116,45,62,112,114,111,99,101,100,117,114,101,32,99,115,101,116,53,48,57,57,32,110,101,120,116,53,49,48,48,41,0}; static C_char C_TLS li316[] C_aligned={C_lihdr(0,0,18),40,108,112,32,105,53,49,52,51,32,114,101,115,53,49,52,52,41,0,0,0,0,0,0}; static C_char C_TLS li317[] C_aligned={C_lihdr(0,0,20),40,99,115,101,116,45,62,112,108,105,115,116,32,99,115,53,49,52,49,41,0,0,0,0}; static C_char C_TLS li318[] C_aligned={C_lihdr(0,0,22),40,97,50,54,55,54,57,32,99,104,53,49,53,52,32,99,115,53,49,53,53,41,0,0}; static C_char C_TLS li319[] C_aligned={C_lihdr(0,0,20),40,115,116,114,105,110,103,45,62,99,115,101,116,32,115,53,49,53,51,41,0,0,0,0}; static C_char C_TLS li320[] C_aligned={C_lihdr(0,0,13),40,114,101,99,32,115,114,101,53,49,54,55,41,0,0,0}; static C_char C_TLS li321[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,53,49,55,54,32,103,53,49,56,56,53,49,57,52,41}; static C_char C_TLS li322[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,53,50,48,50,32,103,53,50,49,52,53,50,50,48,41}; static C_char C_TLS li323[] C_aligned={C_lihdr(0,0,22),40,97,50,54,57,55,51,32,120,53,50,50,54,32,114,101,115,53,50,50,55,41,0,0}; static C_char C_TLS li324[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,53,50,51,48,32,103,53,50,52,50,53,50,52,56,41}; static C_char C_TLS li325[] C_aligned={C_lihdr(0,0,19),40,108,112,32,108,115,53,49,52,57,32,114,101,115,53,49,53,48,41,0,0,0,0,0}; static C_char C_TLS li326[] C_aligned={C_lihdr(0,0,19),40,108,112,32,108,115,51,48,52,51,32,114,101,115,51,48,52,52,41,0,0,0,0,0}; static C_char C_TLS li327[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,53,50,53,55,32,103,53,50,54,57,53,50,55,53,41}; static C_char C_TLS li328[] C_aligned={C_lihdr(0,0,20),40,108,112,32,115,114,101,53,49,54,48,32,99,105,63,53,49,54,49,41,0,0,0,0}; static C_char C_TLS li329[] C_aligned={C_lihdr(0,0,25),40,115,114,101,45,62,99,115,101,116,32,115,114,101,53,49,53,55,32,111,53,49,53,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li330[] C_aligned={C_lihdr(0,0,14),40,108,112,32,117,112,112,101,114,53,51,48,55,41,0,0}; static C_char C_TLS li331[] C_aligned={C_lihdr(0,0,32),40,99,115,101,116,45,99,111,110,116,97,105,110,115,63,32,99,115,101,116,53,50,57,48,32,99,104,53,50,57,49,41}; static C_char C_TLS li332[] C_aligned={C_lihdr(0,0,31),40,99,104,97,114,45,114,97,110,103,101,115,45,117,110,105,111,110,32,97,53,51,49,57,32,98,53,51,50,48,41,0}; static C_char C_TLS li333[] C_aligned={C_lihdr(0,0,33),40,117,110,105,111,110,45,114,97,110,103,101,32,97,53,51,50,53,32,98,53,51,50,54,32,114,101,115,53,51,50,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li334[] C_aligned={C_lihdr(0,0,24),40,99,115,101,116,45,117,110,105,111,110,32,97,53,51,50,50,32,98,53,51,50,51,41}; static C_char C_TLS li335[] C_aligned={C_lihdr(0,0,26),40,100,105,102,102,32,97,53,51,53,48,32,98,53,51,53,49,32,114,101,115,53,51,53,50,41,0,0,0,0,0,0}; static C_char C_TLS li336[] C_aligned={C_lihdr(0,0,29),40,99,115,101,116,45,100,105,102,102,101,114,101,110,99,101,32,97,53,51,52,55,32,98,53,51,52,56,41,0,0,0}; static C_char C_TLS li337[] C_aligned={C_lihdr(0,0,31),40,105,110,116,101,114,115,101,99,116,32,97,53,51,55,57,32,98,53,51,56,48,32,114,101,115,53,51,56,49,41,0}; static C_char C_TLS li338[] C_aligned={C_lihdr(0,0,31),40,99,115,101,116,45,105,110,116,101,114,115,101,99,116,105,111,110,32,97,53,51,55,54,32,98,53,51,55,55,41,0}; static C_char C_TLS li339[] C_aligned={C_lihdr(0,0,23),40,99,115,101,116,45,99,111,109,112,108,101,109,101,110,116,32,97,53,51,57,52,41,0}; static C_char C_TLS li340[] C_aligned={C_lihdr(0,0,19),40,108,112,32,108,115,53,51,57,56,32,114,101,115,53,51,57,57,41,0,0,0,0,0}; static C_char C_TLS li341[] C_aligned={C_lihdr(0,0,29),40,99,115,101,116,45,99,97,115,101,45,105,110,115,101,110,115,105,116,105,118,101,32,97,53,51,57,54,41,0,0,0}; static C_char C_TLS li342[] C_aligned={C_lihdr(0,0,23),40,102,95,50,56,50,51,52,32,105,53,52,49,57,32,97,99,99,53,52,50,48,41,0}; static C_char C_TLS li343[] C_aligned={C_lihdr(0,0,26),40,108,112,32,115,114,99,53,52,51,49,32,105,53,52,51,50,32,97,99,99,53,52,51,51,41,0,0,0,0,0,0}; static C_char C_TLS li344[] C_aligned={C_lihdr(0,0,61),40,105,114,114,101,103,101,120,45,102,111,108,100,47,102,97,115,116,32,105,114,120,53,52,48,55,32,107,111,110,115,53,52,48,56,32,107,110,105,108,53,52,48,57,32,115,116,114,53,52,49,48,32,46,32,111,53,52,49,49,41,0,0,0}; static C_char C_TLS li345[] C_aligned={C_lihdr(0,0,27),40,107,111,110,115,50,32,105,53,52,52,56,32,109,53,52,52,57,32,97,99,99,53,52,53,48,41,0,0,0,0,0}; static C_char C_TLS li346[] C_aligned={C_lihdr(0,0,42),40,105,114,114,101,103,101,120,45,102,111,108,100,32,105,114,120,53,52,52,52,32,107,111,110,115,53,52,52,53,32,46,32,97,114,103,115,53,52,52,54,41,0,0,0,0,0,0}; static C_char C_TLS li347[] C_aligned={C_lihdr(0,0,31),40,102,95,50,56,52,53,54,32,115,114,99,53,52,54,54,32,105,53,52,54,55,32,97,99,99,53,52,54,56,41,0}; static C_char C_TLS li348[] C_aligned={C_lihdr(0,0,28),40,108,112,32,115,116,97,114,116,53,52,55,53,32,105,53,52,55,54,32,97,99,99,53,52,55,55,41,0,0,0,0}; static C_char C_TLS li349[] C_aligned={C_lihdr(0,0,79),40,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,53,52,53,51,32,107,111,110,115,53,52,53,52,32,107,110,105,108,53,52,53,53,32,99,110,107,53,52,53,54,32,115,116,97,114,116,53,52,53,55,32,46,32,111,53,52,53,56,41,0}; static C_char C_TLS li350[] C_aligned={C_lihdr(0,0,33),40,107,111,110,115,50,32,115,53,53,48,51,32,105,53,53,48,52,32,109,53,53,48,53,32,97,99,99,53,53,48,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li351[] C_aligned={C_lihdr(0,0,50),40,105,114,114,101,103,101,120,45,102,111,108,100,47,99,104,117,110,107,101,100,32,105,114,120,53,52,57,57,32,107,111,110,115,53,53,48,48,32,46,32,97,114,103,115,53,53,48,49,41,0,0,0,0,0,0}; static C_char C_TLS li352[] C_aligned={C_lihdr(0,0,41),40,105,114,114,101,103,101,120,45,114,101,112,108,97,99,101,32,105,114,120,53,53,48,57,32,115,116,114,53,53,49,48,32,46,32,111,53,53,49,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li353[] C_aligned={C_lihdr(0,0,28),40,97,50,56,53,55,56,32,105,53,53,50,50,32,109,53,53,50,51,32,97,99,99,53,53,50,52,41,0,0,0,0}; static C_char C_TLS li354[] C_aligned={C_lihdr(0,0,22),40,97,50,56,54,50,50,32,105,53,53,51,48,32,97,99,99,53,53,51,49,41,0,0}; static C_char C_TLS li355[] C_aligned={C_lihdr(0,0,45),40,105,114,114,101,103,101,120,45,114,101,112,108,97,99,101,47,97,108,108,32,105,114,120,53,53,49,57,32,115,116,114,53,53,50,48,32,46,32,111,53,53,50,49,41,0,0,0}; static C_char C_TLS li356[] C_aligned={C_lihdr(0,0,13),40,103,53,53,55,52,32,120,53,53,55,54,41,0,0,0}; static C_char C_TLS li357[] C_aligned={C_lihdr(0,0,19),40,108,112,32,108,115,53,53,51,56,32,114,101,115,53,53,51,57,41,0,0,0,0,0}; static C_char C_TLS li358[] C_aligned={C_lihdr(0,0,34),40,105,114,114,101,103,101,120,45,97,112,112,108,121,45,109,97,116,99,104,32,109,53,53,51,53,32,108,115,53,53,51,54,41,0,0,0,0,0,0}; static C_char C_TLS li359[] C_aligned={C_lihdr(0,0,26),40,97,50,56,56,57,56,32,105,53,53,56,50,32,109,53,53,56,51,32,97,53,53,56,52,41,0,0,0,0,0,0}; static C_char C_TLS li360[] C_aligned={C_lihdr(0,0,20),40,97,50,56,57,48,56,32,105,53,53,56,53,32,97,53,53,56,54,41,0,0,0,0}; static C_char C_TLS li361[] C_aligned={C_lihdr(0,0,41),40,105,114,114,101,103,101,120,45,101,120,116,114,97,99,116,32,105,114,120,53,53,55,57,32,115,116,114,53,53,56,48,32,46,32,111,53,53,56,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li362[] C_aligned={C_lihdr(0,0,26),40,97,50,56,57,51,57,32,105,53,53,57,53,32,109,53,53,57,54,32,97,53,53,57,55,41,0,0,0,0,0,0}; static C_char C_TLS li363[] C_aligned={C_lihdr(0,0,20),40,97,50,56,57,57,55,32,105,53,54,48,54,32,97,53,54,48,55,41,0,0,0,0}; static C_char C_TLS li364[] C_aligned={C_lihdr(0,0,39),40,105,114,114,101,103,101,120,45,115,112,108,105,116,32,105,114,120,53,53,56,57,32,115,116,114,53,53,57,48,32,46,32,111,53,53,57,49,41,0}; static C_char C_TLS li365[] C_aligned={C_lihdr(0,0,6),40,115,99,97,110,41,0,0}; static C_char C_TLS li366[] C_aligned={C_lihdr(0,0,40),40,115,116,114,105,110,103,45,115,99,97,110,45,99,104,97,114,32,115,116,114,53,56,49,52,32,99,53,56,49,53,32,46,32,111,53,56,49,54,41}; static C_char C_TLS li367[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,108,115,53,56,50,56,32,114,101,115,53,56,50,57,41,0,0,0}; static C_char C_TLS li368[] C_aligned={C_lihdr(0,0,23),40,105,114,114,101,103,101,120,45,113,117,111,116,101,32,115,116,114,53,56,50,54,41,0}; static C_char C_TLS li369[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,53,56,53,54,32,103,53,56,54,56,53,56,55,53,41}; static C_char C_TLS li370[] C_aligned={C_lihdr(0,0,14),40,97,50,57,50,53,55,32,120,53,56,53,48,41,0,0}; static C_char C_TLS li371[] C_aligned={C_lihdr(0,0,19),40,108,112,50,32,105,53,56,56,54,32,114,101,115,53,56,56,55,41,0,0,0,0,0}; static C_char C_TLS li372[] C_aligned={C_lihdr(0,0,23),40,108,112,49,32,108,115,53,56,56,51,32,101,109,112,116,121,63,53,56,56,52,41,0}; static C_char C_TLS li373[] C_aligned={C_lihdr(0,0,20),40,105,114,114,101,103,101,120,45,111,112,116,32,108,115,53,56,51,51,41,0,0,0,0}; static C_char C_TLS li374[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,53,57,49,54,41,0,0,0,0,0}; static C_char C_TLS li375[] C_aligned={C_lihdr(0,0,21),40,99,115,101,116,45,62,115,116,114,105,110,103,32,108,115,53,57,49,51,41,0,0,0}; static C_char C_TLS li376[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,53,57,53,54,32,103,53,57,54,51,53,57,54,55,41,0,0,0}; static C_char C_TLS li377[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,53,57,55,53,32,103,53,57,56,50,53,57,56,54,41,0,0,0}; static C_char C_TLS li378[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,53,57,57,50,32,103,53,57,57,57,54,48,48,51,41,0,0,0}; static C_char C_TLS li379[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,48,49,49,32,103,54,48,49,56,54,48,50,50,41,0,0,0}; static C_char C_TLS li380[] C_aligned={C_lihdr(0,0,13),40,103,54,48,51,51,32,120,54,48,52,50,41,0,0,0}; static C_char C_TLS li381[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,48,51,50,32,103,54,48,51,57,54,48,52,53,41,0,0,0}; static C_char C_TLS li382[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,48,55,48,32,103,54,48,55,55,54,48,56,49,41,0,0,0}; static C_char C_TLS li383[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,49,50,53,32,103,54,49,51,50,54,49,51,54,41,0,0,0}; static C_char C_TLS li384[] C_aligned={C_lihdr(0,0,10),40,108,112,32,120,53,57,51,52,41,0,0,0,0,0,0}; static C_char C_TLS li385[] C_aligned={C_lihdr(0,0,21),40,115,114,101,45,62,115,116,114,105,110,103,32,111,98,106,53,57,51,49,41,0,0,0}; static C_char C_TLS li386[] C_aligned={C_lihdr(0,0,22),40,108,111,111,112,50,32,114,101,115,116,54,50,48,48,32,115,54,50,48,49,41,0,0}; static C_char C_TLS li387[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,99,115,54,49,56,53,32,100,105,114,54,49,56,54,41,0,0,0}; static C_char C_TLS li388[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,103,108,111,98,45,62,114,101,103,101,120,112,32,115,54,49,55,54,32,46,32,116,109,112,54,49,55,53,54,49,55,55,41}; static C_char C_TLS li389[] C_aligned={C_lihdr(0,0,14),40,97,51,49,51,57,56,32,120,51,49,56,50,41,0,0}; static C_char C_TLS li390[] C_aligned={C_lihdr(0,0,38),40,97,51,49,52,48,49,32,115,114,99,49,51,49,56,51,32,105,51,49,56,52,32,115,114,99,50,51,49,56,53,32,106,51,49,56,54,41,0,0}; static C_char C_TLS li391[] C_aligned={C_lihdr(0,0,20),40,97,51,49,53,49,49,32,109,55,52,51,32,111,117,116,55,52,52,41,0,0,0,0}; static C_char C_TLS li392[] 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_22112) static void C_ccall f_22112(C_word c,C_word *av) C_noret; C_noret_decl(f_23016) static void C_ccall f_23016(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_22143) static void C_fcall f_22143(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11402) static void C_ccall f_11402(C_word c,C_word *av) C_noret; C_noret_decl(f_23043) static void C_ccall f_23043(C_word c,C_word *av) C_noret; C_noret_decl(f_23046) static void C_ccall f_23046(C_word c,C_word *av) C_noret; C_noret_decl(f_12688) static void C_ccall f_12688(C_word c,C_word *av) C_noret; C_noret_decl(f_23389) static void C_ccall f_23389(C_word c,C_word *av) C_noret; C_noret_decl(f_23387) static void C_ccall f_23387(C_word c,C_word *av) C_noret; C_noret_decl(f_22137) static void C_ccall f_22137(C_word c,C_word *av) C_noret; C_noret_decl(f_22130) static void C_ccall f_22130(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_22166) static C_word C_fcall f_22166(C_word *a,C_word t0,C_word t1); C_noret_decl(f_29127) static void C_ccall f_29127(C_word c,C_word *av) C_noret; C_noret_decl(f_22152) static void C_fcall f_22152(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_22159) static void C_fcall f_22159(C_word t0,C_word t1) 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_17332) static void C_ccall f_17332(C_word c,C_word *av) C_noret; C_noret_decl(f_27665) static void C_fcall f_27665(C_word t0,C_word t1) C_noret; C_noret_decl(f_16849) static C_word C_fcall f_16849(C_word t0); C_noret_decl(f_11549) static void C_ccall f_11549(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_9795) static void C_fcall f_9795(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_29151) static void C_ccall f_29151(C_word c,C_word *av) C_noret; C_noret_decl(f_26770) static void C_ccall f_26770(C_word c,C_word *av) C_noret; C_noret_decl(f_18491) static void C_fcall f_18491(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21965) static void C_fcall f_21965(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_11520) static void C_ccall f_11520(C_word c,C_word *av) C_noret; C_noret_decl(f_26784) static void C_fcall f_26784(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_26782) static void C_ccall f_26782(C_word c,C_word *av) C_noret; C_noret_decl(f_21930) static void C_fcall f_21930(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_27610) static void C_ccall f_27610(C_word c,C_word *av) C_noret; C_noret_decl(f_27623) static void C_ccall f_27623(C_word c,C_word *av) C_noret; C_noret_decl(f_12630) static void C_ccall f_12630(C_word c,C_word *av) C_noret; C_noret_decl(f_27627) static void C_ccall f_27627(C_word c,C_word *av) C_noret; C_noret_decl(f_12605) static void C_ccall f_12605(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_27683) static void C_fcall f_27683(C_word t0,C_word t1) C_noret; C_noret_decl(f_16894) static void C_ccall f_16894(C_word c,C_word *av) C_noret; C_noret_decl(f_29441) static void C_ccall f_29441(C_word c,C_word *av) C_noret; C_noret_decl(f_21998) static void C_ccall f_21998(C_word c,C_word *av) C_noret; C_noret_decl(f_29423) static void C_ccall f_29423(C_word c,C_word *av) C_noret; C_noret_decl(f_29419) static void C_fcall f_29419(C_word t0,C_word t1) C_noret; C_noret_decl(f_29426) static void C_ccall f_29426(C_word c,C_word *av) C_noret; C_noret_decl(f_21972) static void C_ccall f_21972(C_word c,C_word *av) C_noret; C_noret_decl(f_29455) static void C_ccall f_29455(C_word c,C_word *av) C_noret; C_noret_decl(f_29452) static void C_ccall f_29452(C_word c,C_word *av) C_noret; C_noret_decl(f_29489) static void C_ccall f_29489(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_31402) static void C_ccall f_31402(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_29431) static void C_fcall f_29431(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_25743) static void C_fcall f_25743(C_word t0,C_word t1) C_noret; C_noret_decl(f_25740) static void C_fcall f_25740(C_word t0,C_word t1) C_noret; C_noret_decl(f_29730) static void C_ccall f_29730(C_word c,C_word *av) C_noret; C_noret_decl(f_29731) static void C_fcall f_29731(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_29735) static void C_ccall f_29735(C_word c,C_word *av) C_noret; C_noret_decl(f_25733) static void C_ccall f_25733(C_word c,C_word *av) C_noret; C_noret_decl(f_29703) static void C_ccall f_29703(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_29752) static void C_fcall f_29752(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_29474) static void C_ccall f_29474(C_word c,C_word *av) C_noret; C_noret_decl(f_21743) static void C_ccall f_21743(C_word c,C_word *av) C_noret; C_noret_decl(f_29727) static void C_ccall f_29727(C_word c,C_word *av) C_noret; C_noret_decl(f_29747) static void C_ccall f_29747(C_word c,C_word *av) C_noret; C_noret_decl(f_24150) static void C_ccall f_24150(C_word c,C_word *av) C_noret; C_noret_decl(f_21706) static void C_ccall f_21706(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_29762) static void C_ccall f_29762(C_word c,C_word *av) C_noret; C_noret_decl(f_21702) static void C_ccall f_21702(C_word c,C_word *av) C_noret; C_noret_decl(f_16310) static void C_ccall f_16310(C_word c,C_word *av) C_noret; C_noret_decl(f_24156) static void C_ccall f_24156(C_word c,C_word *av) C_noret; C_noret_decl(f_13674) static void C_fcall f_13674(C_word t0,C_word t1) C_noret; C_noret_decl(f_15865) static void C_fcall f_15865(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_15868) static void C_ccall f_15868(C_word c,C_word *av) C_noret; C_noret_decl(f_16371) static void C_ccall f_16371(C_word c,C_word *av) C_noret; C_noret_decl(f_13646) static void C_ccall f_13646(C_word c,C_word *av) C_noret; C_noret_decl(f_29786) static void C_fcall f_29786(C_word t0,C_word t1) C_noret; C_noret_decl(f_13649) static void C_ccall f_13649(C_word c,C_word *av) C_noret; C_noret_decl(f_29789) static void C_ccall f_29789(C_word c,C_word *av) C_noret; C_noret_decl(f_24137) static void C_ccall f_24137(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_24143) static void C_ccall f_24143(C_word c,C_word *av) C_noret; C_noret_decl(f_25701) static void C_ccall f_25701(C_word c,C_word *av) C_noret; C_noret_decl(f_24113) static void C_ccall f_24113(C_word c,C_word *av) C_noret; C_noret_decl(f_25708) static void C_fcall f_25708(C_word t0,C_word t1) 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_13103) static void C_ccall f_13103(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_20209) static void C_ccall f_20209(C_word c,C_word *av) C_noret; C_noret_decl(f_17588) static void C_ccall f_17588(C_word c,C_word *av) C_noret; C_noret_decl(f_13600) static void C_fcall f_13600(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_17592) static void C_ccall f_17592(C_word c,C_word *av) C_noret; C_noret_decl(f_14443) static C_word C_fcall f_14443(C_word t0,C_word t1); C_noret_decl(f_13636) static void C_ccall f_13636(C_word c,C_word *av) C_noret; C_noret_decl(f_17563) static void C_ccall f_17563(C_word c,C_word *av) C_noret; C_noret_decl(f_11290) static void C_ccall f_11290(C_word c,C_word *av) C_noret; C_noret_decl(f_15813) static void C_ccall f_15813(C_word c,C_word *av) C_noret; C_noret_decl(f_13653) static void C_ccall f_13653(C_word c,C_word *av) C_noret; C_noret_decl(f_28662) static void C_fcall f_28662(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_19259) static void C_ccall f_19259(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_28656) static void C_ccall f_28656(C_word c,C_word *av) C_noret; C_noret_decl(f_19313) static void C_fcall f_19313(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_14482) static void C_fcall f_14482(C_word t0,C_word t1) C_noret; C_noret_decl(f_19317) static void C_ccall f_19317(C_word c,C_word *av) C_noret; C_noret_decl(f_10294) static void C_ccall f_10294(C_word c,C_word *av) C_noret; C_noret_decl(f_10291) static void C_fcall f_10291(C_word t0,C_word t1) C_noret; C_noret_decl(f_19322) static void C_fcall f_19322(C_word t0,C_word t1,C_word t2) 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_17533) static void C_fcall f_17533(C_word t0,C_word t1) 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_19205) static void C_ccall f_19205(C_word c,C_word *av) C_noret; C_noret_decl(f_19202) static void C_ccall f_19202(C_word c,C_word *av) C_noret; C_noret_decl(f_28644) static void C_ccall f_28644(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_28621) static void C_ccall f_28621(C_word c,C_word *av) C_noret; C_noret_decl(f_17500) static void C_ccall f_17500(C_word c,C_word *av) C_noret; C_noret_decl(f_17517) static void C_fcall f_17517(C_word t0,C_word t1) C_noret; C_noret_decl(f_10281) static void C_fcall f_10281(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_28623) static void C_ccall f_28623(C_word c,C_word *av) C_noret; C_noret_decl(f_21725) static void C_fcall f_21725(C_word t0,C_word t1,C_word t2) 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_10700) static void C_ccall f_10700(C_word c,C_word *av) C_noret; C_noret_decl(f_19240) static void C_ccall f_19240(C_word c,C_word *av) C_noret; C_noret_decl(f_19247) static void C_ccall f_19247(C_word c,C_word *av) C_noret; C_noret_decl(f_28607) static void C_ccall f_28607(C_word c,C_word *av) C_noret; C_noret_decl(f_19374) static void C_ccall f_19374(C_word c,C_word *av) C_noret; C_noret_decl(f_10709) static void C_ccall f_10709(C_word c,C_word *av) C_noret; C_noret_decl(f_10706) static void C_fcall f_10706(C_word t0,C_word t1) C_noret; C_noret_decl(f_10703) static void C_fcall f_10703(C_word t0,C_word t1) C_noret; C_noret_decl(f_20184) static void C_fcall f_20184(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_20182) static void C_ccall f_20182(C_word c,C_word *av) C_noret; C_noret_decl(f_10717) static C_word C_fcall f_10717(C_word *a,C_word t0); C_noret_decl(f_10714) static void C_fcall f_10714(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_17264) static void C_ccall f_17264(C_word c,C_word *av) C_noret; C_noret_decl(f_26671) static void C_fcall f_26671(C_word t0,C_word t1) C_noret; C_noret_decl(f_17261) static void C_ccall f_17261(C_word c,C_word *av) C_noret; C_noret_decl(f_23180) static void C_fcall f_23180(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20152) static void C_ccall f_20152(C_word c,C_word *av) C_noret; C_noret_decl(f_17276) static void C_fcall f_17276(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20157) static void C_fcall f_20157(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17273) static void C_fcall f_17273(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_26681) static void C_fcall f_26681(C_word t0,C_word t1,C_word t2,C_word t3) 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_12481) static void C_ccall f_12481(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_20132) static void C_ccall f_20132(C_word c,C_word *av) C_noret; C_noret_decl(f_23151) static void C_ccall f_23151(C_word c,C_word *av) C_noret; C_noret_decl(f_23155) static void C_ccall f_23155(C_word c,C_word *av) C_noret; C_noret_decl(f_20122) static void C_fcall f_20122(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17224) static void C_ccall f_17224(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_23157) static void C_fcall f_23157(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_28688) static void C_ccall f_28688(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_18101) static void C_fcall f_18101(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_23147) static void C_ccall f_23147(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_12932) static void C_fcall f_12932(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17523) static void C_ccall f_17523(C_word c,C_word *av) C_noret; C_noret_decl(f_17526) static void C_ccall f_17526(C_word c,C_word *av) C_noret; C_noret_decl(f_16248) static void C_fcall f_16248(C_word t0,C_word t1) 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_27381) static void C_ccall f_27381(C_word c,C_word *av) C_noret; C_noret_decl(f_27387) static void C_fcall f_27387(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_16258) static void C_ccall f_16258(C_word c,C_word *av) C_noret; C_noret_decl(f_16261) static void C_ccall f_16261(C_word c,C_word *av) C_noret; C_noret_decl(f_16263) static void C_fcall f_16263(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15045) static void C_ccall f_15045(C_word c,C_word *av) C_noret; C_noret_decl(f_12427) static void C_ccall f_12427(C_word c,C_word *av) C_noret; C_noret_decl(f_23209) static void C_fcall f_23209(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15032) static void C_ccall f_15032(C_word c,C_word *av) C_noret; C_noret_decl(f_15039) static void C_ccall f_15039(C_word c,C_word *av) C_noret; C_noret_decl(f_12095) static void C_ccall f_12095(C_word c,C_word *av) C_noret; C_noret_decl(f_15067) static void C_fcall f_15067(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15065) static void C_ccall f_15065(C_word c,C_word *av) C_noret; C_noret_decl(f_22923) static void C_fcall f_22923(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_24984) static void C_ccall f_24984(C_word c,C_word *av) C_noret; C_noret_decl(f_22910) static void C_ccall f_22910(C_word c,C_word *av) C_noret; C_noret_decl(f_24397) static void C_fcall f_24397(C_word t0,C_word t1) 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_27337) static void C_fcall f_27337(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_24987) static void C_fcall f_24987(C_word t0,C_word t1) C_noret; C_noret_decl(f_23237) static void C_ccall f_23237(C_word c,C_word *av) C_noret; C_noret_decl(f_27345) static void C_fcall f_27345(C_word t0,C_word t1) 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_22962) static void C_ccall f_22962(C_word c,C_word *av) C_noret; C_noret_decl(f_27999) static void C_ccall f_27999(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_13267) static void C_ccall f_13267(C_word c,C_word *av) C_noret; C_noret_decl(f_21009) static C_word C_fcall f_21009(C_word t0,C_word t1); C_noret_decl(f_15686) static void C_ccall f_15686(C_word c,C_word *av) C_noret; C_noret_decl(f_15688) static void C_fcall f_15688(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16641) static void C_fcall f_16641(C_word t0,C_word t1) C_noret; C_noret_decl(f_21156) static void C_fcall f_21156(C_word t0,C_word t1,C_word t2,C_word t3) 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_27944) static void C_fcall f_27944(C_word t0,C_word t1) C_noret; C_noret_decl(f_27953) static void C_ccall f_27953(C_word c,C_word *av) C_noret; C_noret_decl(f_13298) static void C_ccall f_13298(C_word c,C_word *av) C_noret; C_noret_decl(f_27957) static void C_ccall f_27957(C_word c,C_word *av) C_noret; C_noret_decl(f_21144) static void C_ccall f_21144(C_word c,C_word *av) C_noret; C_noret_decl(f_24315) static void C_ccall f_24315(C_word c,C_word *av) C_noret; C_noret_decl(f_24311) static void C_ccall f_24311(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_21117) static void C_fcall f_21117(C_word t0,C_word t1) 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_10570) static void C_fcall f_10570(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_27904) static void C_fcall f_27904(C_word t0,C_word t1) 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_21126) static void C_ccall f_21126(C_word c,C_word *av) C_noret; C_noret_decl(f_21120) static void C_ccall f_21120(C_word c,C_word *av) C_noret; C_noret_decl(f_21064) static void C_ccall f_21064(C_word c,C_word *av) C_noret; C_noret_decl(f_27912) static void C_ccall f_27912(C_word c,C_word *av) C_noret; C_noret_decl(f_27914) static void C_fcall f_27914(C_word t0,C_word t1) 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_21070) static void C_fcall f_21070(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_25828) static void C_ccall f_25828(C_word c,C_word *av) C_noret; C_noret_decl(f_27965) static void C_ccall f_27965(C_word c,C_word *av) C_noret; C_noret_decl(f_27961) static void C_ccall f_27961(C_word c,C_word *av) C_noret; C_noret_decl(f_21087) static void C_ccall f_21087(C_word c,C_word *av) C_noret; C_noret_decl(f_25800) static void C_fcall f_25800(C_word t0,C_word t1) C_noret; C_noret_decl(f_13057) static void C_ccall f_13057(C_word c,C_word *av) C_noret; C_noret_decl(f_24083) static void C_ccall f_24083(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_13066) static void C_ccall f_13066(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_10518) static void C_ccall f_10518(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_25852) static void C_ccall f_25852(C_word c,C_word *av) 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_10512) static void C_ccall f_10512(C_word c,C_word *av) C_noret; C_noret_decl(f_24091) static void C_ccall f_24091(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_27924) static void C_fcall f_27924(C_word t0,C_word t1,C_word t2,C_word t3) 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_21658) static void C_ccall f_21658(C_word c,C_word *av) C_noret; C_noret_decl(f_25845) static void C_ccall f_25845(C_word c,C_word *av) C_noret; C_noret_decl(f_10523) static void C_fcall f_10523(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_10055) static void C_fcall f_10055(C_word t0,C_word t1) C_noret; C_noret_decl(f_10052) static void C_fcall f_10052(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_13086) static void C_ccall f_13086(C_word c,C_word *av) C_noret; C_noret_decl(f_21667) static void C_ccall f_21667(C_word c,C_word *av) C_noret; C_noret_decl(f_21053) static void C_fcall f_21053(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_21664) static void C_ccall f_21664(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_21676) static void C_ccall f_21676(C_word c,C_word *av) C_noret; C_noret_decl(f_21673) static void C_ccall f_21673(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_24045) static void C_ccall f_24045(C_word c,C_word *av) C_noret; C_noret_decl(f_24044) static void C_ccall f_24044(C_word c,C_word *av) C_noret; C_noret_decl(f_21608) static void C_ccall f_21608(C_word c,C_word *av) 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_24051) static void C_ccall f_24051(C_word c,C_word *av) C_noret; C_noret_decl(f_10000) static void C_ccall f_10000(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_21616) static void C_ccall f_21616(C_word c,C_word *av) C_noret; C_noret_decl(f_10568) static void C_ccall f_10568(C_word c,C_word *av) C_noret; C_noret_decl(f_10565) static void C_ccall f_10565(C_word c,C_word *av) C_noret; C_noret_decl(f_24107) static void C_ccall f_24107(C_word c,C_word *av) C_noret; C_noret_decl(f_15376) static void C_ccall f_15376(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_20399) static C_word C_fcall f_20399(C_word *a,C_word t0,C_word t1); C_noret_decl(f_24038) static void C_ccall f_24038(C_word c,C_word *av) C_noret; C_noret_decl(f_25809) static void C_fcall f_25809(C_word t0,C_word t1) C_noret; C_noret_decl(f_19296) static void C_ccall f_19296(C_word c,C_word *av) C_noret; C_noret_decl(f_13553) static void C_ccall f_13553(C_word c,C_word *av) C_noret; C_noret_decl(f_20371) static void C_fcall f_20371(C_word t0,C_word t1) C_noret; C_noret_decl(f_10548) static void C_fcall f_10548(C_word t0,C_word t1,C_word t2) 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_24016) static void C_ccall f_24016(C_word c,C_word *av) C_noret; C_noret_decl(f_24010) static void C_ccall f_24010(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_7570) static void C_ccall f_7570(C_word c,C_word *av) C_noret; C_noret_decl(f_10069) static void C_ccall f_10069(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_15326) static void C_ccall f_15326(C_word c,C_word *av) C_noret; C_noret_decl(f_15328) static void C_fcall f_15328(C_word t0,C_word t1,C_word t2) 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_13595) static void C_fcall f_13595(C_word t0,C_word t1) C_noret; C_noret_decl(f_29102) static void C_ccall f_29102(C_word c,C_word *av) C_noret; C_noret_decl(f_21686) static void C_ccall f_21686(C_word c,C_word *av) C_noret; C_noret_decl(f_15391) static void C_ccall f_15391(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_29108) static void C_fcall f_29108(C_word t0,C_word t1,C_word t2,C_word t3) 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_19395) static void C_ccall f_19395(C_word c,C_word *av) C_noret; C_noret_decl(f_21694) static void C_ccall f_21694(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_19195) static void C_ccall f_19195(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_10094) static void C_ccall f_10094(C_word c,C_word *av) C_noret; C_noret_decl(f_19123) static void C_ccall f_19123(C_word c,C_word *av) C_noret; C_noret_decl(f_19120) static void C_ccall f_19120(C_word c,C_word *av) C_noret; C_noret_decl(f_10102) static void C_ccall f_10102(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_14558) static void C_fcall f_14558(C_word t0,C_word t1) C_noret; C_noret_decl(f_13239) static void C_ccall f_13239(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(f_17415) static void C_ccall f_17415(C_word c,C_word *av) C_noret; C_noret_decl(f_29168) static void C_ccall f_29168(C_word c,C_word *av) C_noret; C_noret_decl(f_29175) static void C_ccall f_29175(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_13517) static void C_ccall f_13517(C_word c,C_word *av) C_noret; C_noret_decl(f_10197) static void C_ccall f_10197(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_19108) static void C_fcall f_19108(C_word t0,C_word t1) 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_7552) static void C_ccall f_7552(C_word c,C_word *av) C_noret; C_noret_decl(f_29198) static void C_ccall f_29198(C_word c,C_word *av) C_noret; C_noret_decl(f_8426) static void C_fcall f_8426(C_word t0,C_word t1) C_noret; C_noret_decl(f_19114) static void C_fcall f_19114(C_word t0,C_word t1) 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_24905) static void C_ccall f_24905(C_word c,C_word *av) C_noret; C_noret_decl(f_24904) static void C_ccall f_24904(C_word c,C_word *av) C_noret; C_noret_decl(f_10177) static void C_ccall f_10177(C_word c,C_word *av) C_noret; C_noret_decl(f_21628) static void C_ccall f_21628(C_word c,C_word *av) C_noret; C_noret_decl(f_7537) static void C_ccall f_7537(C_word c,C_word *av) C_noret; C_noret_decl(f_7533) static void C_fcall f_7533(C_word t0,C_word t1) C_noret; C_noret_decl(f_8413) static void C_ccall f_8413(C_word c,C_word *av) C_noret; C_noret_decl(f_17467) static void C_ccall f_17467(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_26509) static void C_ccall f_26509(C_word c,C_word *av) C_noret; C_noret_decl(f_26503) static void C_ccall f_26503(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_7546) static void C_ccall f_7546(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_7597) static void C_ccall f_7597(C_word c,C_word *av) C_noret; C_noret_decl(f_24809) static void C_ccall f_24809(C_word c,C_word *av) C_noret; C_noret_decl(f_17430) static void C_fcall f_17430(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_24911) static void C_ccall f_24911(C_word c,C_word *av) C_noret; C_noret_decl(f_11958) static void C_ccall f_11958(C_word c,C_word *av) C_noret; C_noret_decl(f_24947) static void C_ccall f_24947(C_word c,C_word *av) C_noret; C_noret_decl(f_24680) static void C_ccall f_24680(C_word c,C_word *av) C_noret; C_noret_decl(f_24688) static void C_ccall f_24688(C_word c,C_word *av) C_noret; C_noret_decl(f_24695) static void C_ccall f_24695(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_17487) static void C_ccall f_17487(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_24952) static void C_ccall f_24952(C_word c,C_word *av) C_noret; C_noret_decl(f_16771) static void C_fcall f_16771(C_word t0,C_word t1) C_noret; C_noret_decl(f_11991) static void C_ccall f_11991(C_word c,C_word *av) C_noret; C_noret_decl(f_24992) static void C_ccall f_24992(C_word c,C_word *av) C_noret; C_noret_decl(f_17483) static void C_ccall f_17483(C_word c,C_word *av) C_noret; C_noret_decl(f_28100) static void C_ccall f_28100(C_word c,C_word *av) C_noret; C_noret_decl(f_18885) static void C_fcall f_18885(C_word t0,C_word t1,C_word t2,C_word t3) 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_22287) static void C_ccall f_22287(C_word c,C_word *av) 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_24843) static void C_fcall f_24843(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_24846) static void C_ccall f_24846(C_word c,C_word *av) C_noret; C_noret_decl(f_24847) static void C_ccall f_24847(C_word c,C_word *av) C_noret; C_noret_decl(f_26515) static void C_ccall f_26515(C_word c,C_word *av) C_noret; C_noret_decl(f_16748) static void C_ccall f_16748(C_word c,C_word *av) C_noret; C_noret_decl(f_24834) static void C_ccall f_24834(C_word c,C_word *av) C_noret; C_noret_decl(f_24831) static void C_ccall f_24831(C_word c,C_word *av) C_noret; C_noret_decl(f_23983) static void C_ccall f_23983(C_word c,C_word *av) C_noret; C_noret_decl(f_23984) static void C_ccall f_23984(C_word c,C_word *av) C_noret; C_noret_decl(f_27847) static void C_fcall f_27847(C_word t0,C_word t1) 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_28139) static void C_ccall f_28139(C_word c,C_word *av) C_noret; C_noret_decl(f_28136) static void C_ccall f_28136(C_word c,C_word *av) C_noret; C_noret_decl(f_24816) static void C_ccall f_24816(C_word c,C_word *av) C_noret; C_noret_decl(f_28739) static void C_ccall f_28739(C_word c,C_word *av) C_noret; C_noret_decl(f_23025) static void C_ccall f_23025(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_22214) static void C_fcall f_22214(C_word t0,C_word t1,C_word t2) 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_11909) static void C_ccall f_11909(C_word c,C_word *av) 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_11003) static void C_ccall f_11003(C_word c,C_word *av) C_noret; C_noret_decl(f_27809) static void C_ccall f_27809(C_word c,C_word *av) C_noret; C_noret_decl(f_22208) static void C_ccall f_22208(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_11034) static void C_fcall f_11034(C_word t0,C_word t1) 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_7665) static void C_ccall f_7665(C_word c,C_word *av) C_noret; C_noret_decl(f_20789) static C_word C_fcall f_20789(C_word t0,C_word t1); C_noret_decl(f_15999) static void C_fcall f_15999(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15997) static void C_ccall f_15997(C_word c,C_word *av) C_noret; C_noret_decl(f_22654) static void C_fcall f_22654(C_word t0,C_word t1) C_noret; C_noret_decl(f_12713) static void C_ccall f_12713(C_word c,C_word *av) C_noret; C_noret_decl(f_15986) static void C_fcall f_15986(C_word t0,C_word t1,C_word t2) 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_15963) static void C_ccall f_15963(C_word c,C_word *av) C_noret; C_noret_decl(f_20632) static C_word C_fcall f_20632(C_word *a,C_word t0,C_word t1); C_noret_decl(f_13368) static void C_ccall f_13368(C_word c,C_word *av) C_noret; C_noret_decl(f_22605) static void C_ccall f_22605(C_word c,C_word *av) C_noret; C_noret_decl(f_22602) static void C_ccall f_22602(C_word c,C_word *av) C_noret; C_noret_decl(f_21280) static void C_ccall f_21280(C_word c,C_word *av) C_noret; C_noret_decl(f_15936) static void C_ccall f_15936(C_word c,C_word *av) C_noret; C_noret_decl(f_22677) static void C_fcall f_22677(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_15938) static void C_fcall f_15938(C_word t0,C_word t1,C_word t2) 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_15925) static void C_fcall f_15925(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20660) static void C_fcall f_20660(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22998) static void C_fcall f_22998(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_13350) static void C_ccall f_13350(C_word c,C_word *av) C_noret; C_noret_decl(f_21268) static void C_ccall f_21268(C_word c,C_word *av) C_noret; C_noret_decl(f_21261) static void C_ccall f_21261(C_word c,C_word *av) C_noret; C_noret_decl(f_24275) static void C_ccall f_24275(C_word c,C_word *av) C_noret; C_noret_decl(f_21230) static void C_ccall f_21230(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_25569) static void C_ccall f_25569(C_word c,C_word *av) C_noret; C_noret_decl(f_21203) static void C_ccall f_21203(C_word c,C_word *av) C_noret; C_noret_decl(f_22981) static void C_fcall f_22981(C_word t0,C_word t1) C_noret; C_noret_decl(f_24256) static void C_ccall f_24256(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_10681) static void C_fcall f_10681(C_word t0,C_word t1) C_noret; C_noret_decl(f_24262) static void C_ccall f_24262(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_24269) static void C_fcall f_24269(C_word t0,C_word t1) C_noret; C_noret_decl(f_25549) static void C_ccall f_25549(C_word c,C_word *av) C_noret; C_noret_decl(f_10618) static void C_ccall f_10618(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_noret; C_noret_decl(f_16072) static void C_ccall f_16072(C_word c,C_word *av) C_noret; C_noret_decl(f_13150) static void C_ccall f_13150(C_word c,C_word *av) C_noret; C_noret_decl(f_10624) static void C_fcall f_10624(C_word t0,C_word t1) C_noret; C_noret_decl(f_7649) static void C_ccall f_7649(C_word c,C_word *av) C_noret; C_noret_decl(f_7642) static void C_ccall f_7642(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_10622) static void C_ccall f_10622(C_word c,C_word *av) C_noret; C_noret_decl(f_16065) static void C_ccall f_16065(C_word c,C_word *av) C_noret; C_noret_decl(f_17718) static void C_ccall f_17718(C_word c,C_word *av) C_noret; C_noret_decl(f_16055) static void C_ccall f_16055(C_word c,C_word *av) C_noret; C_noret_decl(f_7623) static void C_ccall f_7623(C_word c,C_word *av) C_noret; C_noret_decl(f_17727) static void C_fcall f_17727(C_word t0,C_word t1) C_noret; C_noret_decl(f_20486) static void C_fcall f_20486(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_25584) static void C_ccall f_25584(C_word c,C_word *av) C_noret; C_noret_decl(f_16040) static void C_fcall f_16040(C_word t0,C_word t1) C_noret; C_noret_decl(f_16049) static void C_ccall f_16049(C_word c,C_word *av) C_noret; C_noret_decl(f_25578) static void C_ccall f_25578(C_word c,C_word *av) C_noret; C_noret_decl(f_10668) static void C_ccall f_10668(C_word c,C_word *av) C_noret; C_noret_decl(f_10664) static void C_ccall f_10664(C_word c,C_word *av) C_noret; C_noret_decl(f_10660) static void C_ccall f_10660(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_13898) static void C_ccall f_13898(C_word c,C_word *av) C_noret; C_noret_decl(f_18026) static void C_ccall f_18026(C_word c,C_word *av) C_noret; C_noret_decl(f_13892) static void C_fcall f_13892(C_word t0,C_word t1) C_noret; C_noret_decl(f_18070) static void C_fcall f_18070(C_word t0,C_word t1) C_noret; C_noret_decl(f_10696) static void C_fcall f_10696(C_word t0,C_word t1) C_noret; C_noret_decl(f_24239) static void C_fcall f_24239(C_word t0,C_word t1) C_noret; C_noret_decl(f_24243) static void C_ccall f_24243(C_word c,C_word *av) C_noret; C_noret_decl(f_24242) static void C_fcall f_24242(C_word t0,C_word t1) C_noret; C_noret_decl(f_14802) static void C_ccall f_14802(C_word c,C_word *av) C_noret; C_noret_decl(f_10631) static void C_fcall f_10631(C_word t0,C_word t1) C_noret; C_noret_decl(f_22621) static void C_fcall f_22621(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_22638) static void C_ccall f_22638(C_word c,C_word *av) C_noret; C_noret_decl(f_14798) static void C_ccall f_14798(C_word c,C_word *av) C_noret; C_noret_decl(f_14794) static void C_ccall f_14794(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_14133) static void C_fcall f_14133(C_word t0,C_word t1) C_noret; C_noret_decl(f_19099) static void C_ccall f_19099(C_word c,C_word *av) C_noret; C_noret_decl(f_25774) static void C_ccall f_25774(C_word c,C_word *av) C_noret; C_noret_decl(f_19031) static void C_ccall f_19031(C_word c,C_word *av) C_noret; C_noret_decl(f_14783) static void C_ccall f_14783(C_word c,C_word *av) C_noret; C_noret_decl(f_28058) static void C_fcall f_28058(C_word t0,C_word t1) C_noret; C_noret_decl(f_28055) static void C_ccall f_28055(C_word c,C_word *av) 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_28052) static void C_ccall f_28052(C_word c,C_word *av) C_noret; C_noret_decl(f_28067) static void C_fcall f_28067(C_word t0,C_word t1) C_noret; C_noret_decl(f_28064) static void C_fcall f_28064(C_word t0,C_word t1) C_noret; C_noret_decl(f_14868) static void C_ccall f_14868(C_word c,C_word *av) C_noret; C_noret_decl(f_24638) static void C_ccall f_24638(C_word c,C_word *av) C_noret; C_noret_decl(f_24637) static void C_ccall f_24637(C_word c,C_word *av) C_noret; C_noret_decl(f_13883) static void C_ccall f_13883(C_word c,C_word *av) C_noret; C_noret_decl(f_23990) static void C_ccall f_23990(C_word c,C_word *av) C_noret; C_noret_decl(f_14719) static void C_ccall f_14719(C_word c,C_word *av) C_noret; C_noret_decl(f_14858) static void C_ccall f_14858(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_19006) static void C_fcall f_19006(C_word t0,C_word t1,C_word t2) 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_24645) static void C_ccall f_24645(C_word c,C_word *av) C_noret; C_noret_decl(f_10604) static void C_fcall f_10604(C_word t0,C_word t1) C_noret; C_noret_decl(f_14728) static void C_fcall f_14728(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_18551) static void C_fcall f_18551(C_word t0,C_word t1,C_word t2,C_word t3) 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_14723) static void C_ccall f_14723(C_word c,C_word *av) C_noret; C_noret_decl(f_23960) static void C_ccall f_23960(C_word c,C_word *av) C_noret; C_noret_decl(f_24673) static void C_ccall f_24673(C_word c,C_word *av) C_noret; C_noret_decl(f_24672) static void C_ccall f_24672(C_word c,C_word *av) C_noret; C_noret_decl(f_14756) static void C_ccall f_14756(C_word c,C_word *av) C_noret; C_noret_decl(f_24624) static void C_ccall f_24624(C_word c,C_word *av) C_noret; C_noret_decl(f_18574) static void C_ccall f_18574(C_word c,C_word *av) C_noret; C_noret_decl(f_18578) static void C_ccall f_18578(C_word c,C_word *av) C_noret; C_noret_decl(f_23941) static void C_ccall f_23941(C_word c,C_word *av) C_noret; C_noret_decl(f_14702) static void C_ccall f_14702(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_24798) static void C_ccall f_24798(C_word c,C_word *av) C_noret; C_noret_decl(f_24793) static void C_ccall f_24793(C_word c,C_word *av) C_noret; C_noret_decl(f_24794) static void C_ccall f_24794(C_word c,C_word *av) C_noret; C_noret_decl(f_28998) static void C_ccall f_28998(C_word c,C_word *av) C_noret; C_noret_decl(f_28030) static void C_ccall f_28030(C_word c,C_word *av) C_noret; C_noret_decl(f_24660) static void C_ccall f_24660(C_word c,C_word *av) C_noret; C_noret_decl(f_13829) static void C_fcall f_13829(C_word t0,C_word t1) C_noret; C_noret_decl(f_18091) static void C_fcall f_18091(C_word t0,C_word t1) C_noret; C_noret_decl(f_28045) static void C_ccall f_28045(C_word c,C_word *av) C_noret; C_noret_decl(f_28049) static void C_ccall f_28049(C_word c,C_word *av) C_noret; C_noret_decl(f_28012) static void C_ccall f_28012(C_word c,C_word *av) C_noret; C_noret_decl(f_24782) static void C_ccall f_24782(C_word c,C_word *av) C_noret; C_noret_decl(f_28016) static void C_ccall f_28016(C_word c,C_word *av) C_noret; C_noret_decl(f_28940) static void C_ccall f_28940(C_word c,C_word *av) C_noret; C_noret_decl(f_14828) static void C_fcall f_14828(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_28954) static void C_ccall f_28954(C_word c,C_word *av) C_noret; C_noret_decl(f_28020) static void C_ccall f_28020(C_word c,C_word *av) C_noret; C_noret_decl(f_28079) static void C_ccall f_28079(C_word c,C_word *av) C_noret; C_noret_decl(f_28925) static void C_ccall f_28925(C_word c,C_word *av) C_noret; C_noret_decl(f_28076) static void C_ccall f_28076(C_word c,C_word *av) C_noret; C_noret_decl(f_28929) static void C_ccall f_28929(C_word c,C_word *av) C_noret; C_noret_decl(f_28087) static void C_fcall f_28087(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_28935) static void C_fcall f_28935(C_word t0,C_word t1) C_noret; C_noret_decl(f_18051) static void C_fcall f_18051(C_word t0,C_word t1) C_noret; C_noret_decl(f_28932) static void C_fcall f_28932(C_word t0,C_word t1) 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_28907) static void C_ccall f_28907(C_word c,C_word *av) C_noret; C_noret_decl(f_28909) static void C_ccall f_28909(C_word c,C_word *av) C_noret; C_noret_decl(f_18599) static void C_fcall f_18599(C_word t0,C_word t1,C_word t2,C_word t3) 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_29503) static void C_ccall f_29503(C_word c,C_word *av) C_noret; C_noret_decl(f_29506) static void C_ccall f_29506(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_28008) static void C_ccall f_28008(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_22842) static void C_fcall f_22842(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8502) static void C_ccall f_8502(C_word c,C_word *av) C_noret; C_noret_decl(f_8506) static void C_ccall f_8506(C_word c,C_word *av) C_noret; C_noret_decl(f_30538) static void C_ccall f_30538(C_word c,C_word *av) C_noret; C_noret_decl(f_22883) static void C_ccall f_22883(C_word c,C_word *av) C_noret; C_noret_decl(f_22885) static void C_fcall f_22885(C_word t0,C_word t1,C_word t2) 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_8525) static void C_ccall f_8525(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_8521) static void C_ccall f_8521(C_word c,C_word *av) C_noret; C_noret_decl(f_22850) static void C_fcall f_22850(C_word t0,C_word t1) C_noret; C_noret_decl(f_27500) static void C_ccall f_27500(C_word c,C_word *av) C_noret; C_noret_decl(f_22808) static void C_fcall f_22808(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_22803) static void C_ccall f_22803(C_word c,C_word *av) C_noret; C_noret_decl(f_22800) static void C_ccall f_22800(C_word c,C_word *av) C_noret; C_noret_decl(f_23701) static void C_fcall f_23701(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19668) static void C_ccall f_19668(C_word c,C_word *av) C_noret; C_noret_decl(f_14166) static void C_ccall f_14166(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_27596) static void C_fcall f_27596(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_27594) static void C_ccall f_27594(C_word c,C_word *av) C_noret; C_noret_decl(f_27590) static void C_ccall f_27590(C_word c,C_word *av) C_noret; C_noret_decl(f_23747) static void C_ccall f_23747(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_14151) static void C_ccall f_14151(C_word c,C_word *av) C_noret; C_noret_decl(f_23740) static void C_fcall f_23740(C_word t0,C_word t1) C_noret; C_noret_decl(f_8480) static void C_fcall f_8480(C_word t0,C_word t1,C_word t2,C_word t3) 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_21381) static void C_ccall f_21381(C_word c,C_word *av) C_noret; C_noret_decl(f_23724) static void C_ccall f_23724(C_word c,C_word *av) C_noret; C_noret_decl(f_27582) static void C_fcall f_27582(C_word t0,C_word t1,C_word t2) 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_21398) static void C_ccall f_21398(C_word c,C_word *av) C_noret; C_noret_decl(f_30310) static void C_ccall f_30310(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_19799) static void C_ccall f_19799(C_word c,C_word *av) C_noret; C_noret_decl(f_21371) static void C_fcall f_21371(C_word t0,C_word t1) C_noret; C_noret_decl(f_21374) static void C_ccall f_21374(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_21347) static void C_ccall f_21347(C_word c,C_word *av) C_noret; C_noret_decl(f_20359) static void C_ccall f_20359(C_word c,C_word *av) C_noret; C_noret_decl(f_8467) static void C_ccall f_8467(C_word c,C_word *av) C_noret; C_noret_decl(f_23797) static void C_ccall f_23797(C_word c,C_word *av) C_noret; C_noret_decl(f_30357) static void C_ccall f_30357(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_23791) static void C_ccall f_23791(C_word c,C_word *av) C_noret; C_noret_decl(f_25607) static void C_ccall f_25607(C_word c,C_word *av) C_noret; C_noret_decl(f_8453) static void C_ccall f_8453(C_word c,C_word *av) C_noret; C_noret_decl(f_21327) static void C_ccall f_21327(C_word c,C_word *av) C_noret; C_noret_decl(f_21324) static void C_fcall f_21324(C_word t0,C_word t1) C_noret; C_noret_decl(f_17924) static void C_ccall f_17924(C_word c,C_word *av) C_noret; C_noret_decl(f_21333) static void C_ccall f_21333(C_word c,C_word *av) C_noret; C_noret_decl(f_13901) static void C_ccall f_13901(C_word c,C_word *av) C_noret; C_noret_decl(f_15113) static void C_ccall f_15113(C_word c,C_word *av) C_noret; C_noret_decl(f_25660) static void C_ccall f_25660(C_word c,C_word *av) C_noret; C_noret_decl(f_25666) static void C_ccall f_25666(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_15107) static void C_ccall f_15107(C_word c,C_word *av) C_noret; C_noret_decl(f_25654) static void C_ccall f_25654(C_word c,C_word *av) C_noret; C_noret_decl(f_8498) static void C_ccall f_8498(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_25645) static void C_ccall f_25645(C_word c,C_word *av) C_noret; C_noret_decl(f_21455) static void C_ccall f_21455(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_21463) static void C_ccall f_21463(C_word c,C_word *av) C_noret; C_noret_decl(f_27229) static void C_ccall f_27229(C_word c,C_word *av) C_noret; C_noret_decl(f_20592) static void C_ccall f_20592(C_word c,C_word *av) C_noret; C_noret_decl(f_21471) static void C_ccall f_21471(C_word c,C_word *av) C_noret; C_noret_decl(f_21486) static void C_ccall f_21486(C_word c,C_word *av) C_noret; C_noret_decl(f_27231) static void C_ccall f_27231(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_21492) static void C_ccall f_21492(C_word c,C_word *av) C_noret; C_noret_decl(f_21495) static void C_ccall f_21495(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_21586) static void C_ccall f_21586(C_word c,C_word *av) C_noret; C_noret_decl(f_21589) static void C_ccall f_21589(C_word c,C_word *av) C_noret; C_noret_decl(f_15192) static void C_ccall f_15192(C_word c,C_word *av) C_noret; C_noret_decl(f_14058) static void C_ccall f_14058(C_word c,C_word *av) C_noret; C_noret_decl(f_14054) static void C_ccall f_14054(C_word c,C_word *av) C_noret; C_noret_decl(f_13970) static void C_ccall f_13970(C_word c,C_word *av) C_noret; C_noret_decl(f_21592) static void C_ccall f_21592(C_word c,C_word *av) C_noret; C_noret_decl(f_21595) static void C_ccall f_21595(C_word c,C_word *av) C_noret; C_noret_decl(f_15186) static void C_ccall f_15186(C_word c,C_word *av) C_noret; C_noret_decl(f_21598) static void C_ccall f_21598(C_word c,C_word *av) C_noret; C_noret_decl(f_21560) static void C_ccall f_21560(C_word c,C_word *av) C_noret; C_noret_decl(f_15179) static void C_ccall f_15179(C_word c,C_word *av) C_noret; C_noret_decl(f_19619) static void C_ccall f_19619(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_14996) static void C_ccall f_14996(C_word c,C_word *av) C_noret; C_noret_decl(f_24009) static void C_ccall f_24009(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_9329) static void C_fcall f_9329(C_word t0,C_word t1,C_word t2) 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_15143) static void C_ccall f_15143(C_word c,C_word *av) C_noret; C_noret_decl(f_15141) static void C_ccall f_15141(C_word c,C_word *av) C_noret; C_noret_decl(f_26995) static void C_ccall f_26995(C_word c,C_word *av) C_noret; C_noret_decl(f_26997) static void C_fcall f_26997(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21529) static void C_ccall f_21529(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_21520) static void C_ccall f_21520(C_word c,C_word *av) C_noret; C_noret_decl(f_21535) static void C_ccall f_21535(C_word c,C_word *av) C_noret; C_noret_decl(f_21532) static void C_ccall f_21532(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_15121) static void C_fcall f_15121(C_word t0,C_word t1) C_noret; C_noret_decl(f_19626) static void C_ccall f_19626(C_word c,C_word *av) C_noret; C_noret_decl(f_19623) static void C_ccall f_19623(C_word c,C_word *av) C_noret; C_noret_decl(f_26974) static void C_ccall f_26974(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_14031) static void C_ccall f_14031(C_word c,C_word *av) C_noret; C_noret_decl(f_9921) static void C_fcall f_9921(C_word t0,C_word t1) C_noret; C_noret_decl(f_14938) static void C_fcall f_14938(C_word t0,C_word t1,C_word t2) 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_14023) static void C_ccall f_14023(C_word c,C_word *av) C_noret; C_noret_decl(f_14027) static void C_ccall f_14027(C_word c,C_word *av) C_noret; C_noret_decl(f_9911) static void C_fcall f_9911(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_30387) static void C_fcall f_30387(C_word t0,C_word t1,C_word t2,C_word t3) 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_17682) static void C_ccall f_17682(C_word c,C_word *av) C_noret; C_noret_decl(f_26272) static void C_ccall f_26272(C_word c,C_word *av) C_noret; C_noret_decl(f_17676) static void C_fcall f_17676(C_word t0,C_word t1) C_noret; C_noret_decl(f_14012) static void C_fcall f_14012(C_word t0,C_word t1) C_noret; C_noret_decl(f_30377) static void C_ccall f_30377(C_word c,C_word *av) C_noret; C_noret_decl(f_19723) static void C_ccall f_19723(C_word c,C_word *av) C_noret; C_noret_decl(f_19733) static void C_ccall f_19733(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_28396) static void C_ccall f_28396(C_word c,C_word *av) C_noret; C_noret_decl(f_28399) static void C_ccall f_28399(C_word c,C_word *av) C_noret; C_noret_decl(f_26982) static void C_ccall f_26982(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_14974) static void C_fcall f_14974(C_word t0,C_word t1) 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_19917) static void C_fcall f_19917(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_26266) static void C_ccall f_26266(C_word c,C_word *av) C_noret; C_noret_decl(f_28360) static void C_fcall f_28360(C_word t0,C_word t1) C_noret; C_noret_decl(f_17669) static void C_fcall f_17669(C_word t0,C_word t1) C_noret; C_noret_decl(f_19757) static void C_fcall f_19757(C_word t0,C_word t1,C_word t2) 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_19924) static void C_ccall f_19924(C_word c,C_word *av) 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_19927) static void C_ccall f_19927(C_word c,C_word *av) C_noret; C_noret_decl(f_28372) static void C_ccall f_28372(C_word c,C_word *av) C_noret; C_noret_decl(f_19767) static void C_fcall f_19767(C_word t0,C_word t1) C_noret; C_noret_decl(f_24728) static void C_ccall f_24728(C_word c,C_word *av) C_noret; C_noret_decl(f_13912) static void C_ccall f_13912(C_word c,C_word *av) C_noret; C_noret_decl(f_13919) static void C_ccall f_13919(C_word c,C_word *av) C_noret; C_noret_decl(f_19932) static void C_fcall f_19932(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_24721) static void C_ccall f_24721(C_word c,C_word *av) C_noret; C_noret_decl(f_24488) static void C_ccall f_24488(C_word c,C_word *av) C_noret; C_noret_decl(f_9858) static void C_ccall f_9858(C_word c,C_word *av) C_noret; C_noret_decl(f_24715) static void C_ccall f_24715(C_word c,C_word *av) 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_24710) static void C_ccall f_24710(C_word c,C_word *av) C_noret; C_noret_decl(f_24492) static void C_ccall f_24492(C_word c,C_word *av) 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_9841) static void C_ccall f_9841(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_8208) static void C_ccall f_8208(C_word c,C_word *av) C_noret; C_noret_decl(f_8206) static void C_ccall f_8206(C_word c,C_word *av) C_noret; C_noret_decl(f_26295) static void C_ccall f_26295(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_11872) static void C_ccall f_11872(C_word c,C_word *av) C_noret; C_noret_decl(f_26952) static void C_ccall f_26952(C_word c,C_word *av) C_noret; C_noret_decl(f_9835) static void C_ccall f_9835(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_24737) static void C_ccall f_24737(C_word c,C_word *av) C_noret; C_noret_decl(f_26927) static void C_fcall f_26927(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_26925) static void C_ccall f_26925(C_word c,C_word *av) C_noret; C_noret_decl(f_9815) static void C_ccall f_9815(C_word c,C_word *av) C_noret; C_noret_decl(f_26209) static void C_ccall f_26209(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_24756) static void C_ccall f_24756(C_word c,C_word *av) C_noret; C_noret_decl(f_24751) static void C_ccall f_24751(C_word c,C_word *av) C_noret; C_noret_decl(f_9801) static void C_ccall f_9801(C_word c,C_word *av) C_noret; C_noret_decl(f_8770) static void C_ccall f_8770(C_word c,C_word *av) C_noret; C_noret_decl(f_23813) static void C_ccall f_23813(C_word c,C_word *av) C_noret; C_noret_decl(f_24773) static void C_ccall f_24773(C_word c,C_word *av) C_noret; C_noret_decl(f_9862) static void C_ccall f_9862(C_word c,C_word *av) C_noret; C_noret_decl(f_26238) static void C_ccall f_26238(C_word c,C_word *av) C_noret; C_noret_decl(f_8798) static void C_ccall f_8798(C_word c,C_word *av) C_noret; C_noret_decl(f_26488) static void C_ccall f_26488(C_word c,C_word *av) C_noret; C_noret_decl(f_21417) static void C_ccall f_21417(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_26244) static void C_ccall f_26244(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_word t3) C_noret; C_noret_decl(f_22099) static void C_ccall f_22099(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_22095) static void C_fcall f_22095(C_word t0,C_word t1) C_noret; C_noret_decl(f_26497) static void C_ccall f_26497(C_word c,C_word *av) C_noret; C_noret_decl(f_21429) static void C_ccall f_21429(C_word c,C_word *av) C_noret; C_noret_decl(f_21426) static void C_ccall f_21426(C_word c,C_word *av) C_noret; C_noret_decl(f_21420) static void C_ccall f_21420(C_word c,C_word *av) C_noret; C_noret_decl(f_8977) static void C_ccall f_8977(C_word c,C_word *av) C_noret; C_noret_decl(f_26468) static void C_ccall f_26468(C_word c,C_word *av) C_noret; C_noret_decl(f_21436) static void C_ccall f_21436(C_word c,C_word *av) 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_28803) static void C_ccall f_28803(C_word c,C_word *av) C_noret; C_noret_decl(f_28322) static void C_ccall f_28322(C_word c,C_word *av) C_noret; C_noret_decl(f_26226) static void C_ccall f_26226(C_word c,C_word *av) C_noret; C_noret_decl(f_26228) static void C_fcall f_26228(C_word t0,C_word t1,C_word t2) 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_14902) static void C_fcall f_14902(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14900) static void C_ccall f_14900(C_word c,C_word *av) C_noret; C_noret_decl(f_27042) static void C_ccall f_27042(C_word c,C_word *av) C_noret; C_noret_decl(f_22315) static void C_ccall f_22315(C_word c,C_word *av) C_noret; C_noret_decl(f_11855) static void C_ccall f_11855(C_word c,C_word *av) C_noret; C_noret_decl(f_28865) static void C_ccall f_28865(C_word c,C_word *av) C_noret; C_noret_decl(f_28309) static void C_fcall f_28309(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_8998) static void C_ccall f_8998(C_word c,C_word *av) C_noret; C_noret_decl(f_28835) static void C_fcall f_28835(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22334) static void C_ccall f_22334(C_word c,C_word *av) C_noret; C_noret_decl(f_26250) static void C_ccall f_26250(C_word c,C_word *av) C_noret; C_noret_decl(f_26087) static void C_ccall f_26087(C_word c,C_word *av) C_noret; C_noret_decl(f_16109) static void C_fcall f_16109(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16107) static void C_ccall f_16107(C_word c,C_word *av) C_noret; C_noret_decl(f_26050) static void C_ccall f_26050(C_word c,C_word *av) C_noret; C_noret_decl(f_9989) static void C_fcall f_9989(C_word t0,C_word t1) C_noret; C_noret_decl(f_26067) static void C_ccall f_26067(C_word c,C_word *av) C_noret; C_noret_decl(f_26034) static void C_ccall f_26034(C_word c,C_word *av) C_noret; C_noret_decl(f_16163) static void C_ccall f_16163(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_noret; C_noret_decl(f_22327) static void C_fcall f_22327(C_word t0,C_word t1) C_noret; C_noret_decl(f_22321) static void C_fcall f_22321(C_word t0,C_word t1) C_noret; C_noret_decl(f_30067) static void C_ccall f_30067(C_word c,C_word *av) C_noret; C_noret_decl(f_8914) static void C_fcall f_8914(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_26094) static void C_ccall f_26094(C_word c,C_word *av) C_noret; C_noret_decl(f_7762) static void C_ccall f_7762(C_word c,C_word *av) C_noret; C_noret_decl(f_26455) static void C_ccall f_26455(C_word c,C_word *av) C_noret; C_noret_decl(f_26453) static void C_fcall f_26453(C_word t0,C_word t1,C_word t2) 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_26427) static void C_ccall f_26427(C_word c,C_word *av) C_noret; C_noret_decl(f_27284) static C_word C_fcall f_27284(C_word t0,C_word t1,C_word t2); C_noret_decl(f_7781) static void C_ccall f_7781(C_word c,C_word *av) C_noret; C_noret_decl(f_16190) static void C_ccall f_16190(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_8383) static void C_fcall f_8383(C_word t0,C_word t1) C_noret; C_noret_decl(f_20428) static void C_ccall f_20428(C_word c,C_word *av) C_noret; C_noret_decl(f_8389) static void C_fcall f_8389(C_word t0,C_word t1) C_noret; C_noret_decl(f_8953) static void C_fcall f_8953(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_20429) static C_word C_fcall f_20429(C_word t0,C_word t1); C_noret_decl(f_8956) static void C_fcall f_8956(C_word t0,C_word t1) C_noret; C_noret_decl(f_20823) static void C_fcall f_20823(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_30016) static void C_ccall f_30016(C_word c,C_word *av) C_noret; C_noret_decl(f_27249) static void C_ccall f_27249(C_word c,C_word *av) C_noret; C_noret_decl(f_23621) static void C_ccall f_23621(C_word c,C_word *av) 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_25984) static void C_ccall f_25984(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_11806) static C_word C_fcall f_11806(C_word *a,C_word t0,C_word t1); C_noret_decl(f_27251) static void C_fcall f_27251(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_23611) static void C_ccall f_23611(C_word c,C_word *av) C_noret; C_noret_decl(f_9380) static void C_fcall f_9380(C_word t0,C_word t1,C_word t2,C_word t3) 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_8212) static void C_ccall f_8212(C_word c,C_word *av) C_noret; C_noret_decl(f_25963) static void C_ccall f_25963(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_8743) static void C_ccall f_8743(C_word c,C_word *av) C_noret; C_noret_decl(f_9286) static void C_fcall f_9286(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_30021) static void C_fcall f_30021(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_28899) static void C_ccall f_28899(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_28890) static void C_ccall f_28890(C_word c,C_word *av) C_noret; C_noret_decl(f_9347) static void C_fcall f_9347(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_30031) static void C_ccall f_30031(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_9263) static C_word C_fcall f_9263(C_word t0); C_noret_decl(f_9374) static void C_fcall f_9374(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_30003) static void C_ccall f_30003(C_word c,C_word *av) C_noret; C_noret_decl(f_30009) static void C_ccall f_30009(C_word c,C_word *av) C_noret; C_noret_decl(f_30006) static void C_ccall f_30006(C_word c,C_word *av) C_noret; C_noret_decl(f_30414) static void C_ccall f_30414(C_word c,C_word *av) C_noret; C_noret_decl(f_20999) static void C_ccall f_20999(C_word c,C_word *av) C_noret; C_noret_decl(f_23630) static void C_ccall f_23630(C_word c,C_word *av) C_noret; C_noret_decl(f_9363) static void C_ccall f_9363(C_word c,C_word *av) C_noret; C_noret_decl(f_10929) static void C_fcall f_10929(C_word t0,C_word t1) C_noret; C_noret_decl(f_25991) static void C_ccall f_25991(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_25998) static void C_ccall f_25998(C_word c,C_word *av) C_noret; C_noret_decl(f_20990) static void C_fcall f_20990(C_word t0,C_word t1) 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_9398) static void C_ccall f_9398(C_word c,C_word *av) C_noret; C_noret_decl(f_25900) static void C_ccall f_25900(C_word c,C_word *av) C_noret; C_noret_decl(f_25907) static void C_fcall f_25907(C_word t0,C_word t1) C_noret; C_noret_decl(f_20463) static C_word C_fcall f_20463(C_word t0,C_word t1); C_noret_decl(f_16540) static void C_fcall f_16540(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20986) static void C_fcall f_20986(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9302) static void C_fcall f_9302(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_23698) static void C_fcall f_23698(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_29016) static void C_ccall f_29016(C_word c,C_word *av) C_noret; C_noret_decl(f_15789) static void C_ccall f_15789(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_16536) static void C_ccall f_16536(C_word c,C_word *av) C_noret; C_noret_decl(f_30463) static void C_fcall f_30463(C_word t0,C_word t1) C_noret; C_noret_decl(f_15771) static void C_ccall f_15771(C_word c,C_word *av) C_noret; C_noret_decl(f_15767) static void C_ccall f_15767(C_word c,C_word *av) C_noret; C_noret_decl(f_16595) static void C_fcall f_16595(C_word t0,C_word t1) C_noret; C_noret_decl(f_29050) static void C_ccall f_29050(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_15751) static void C_ccall f_15751(C_word c,C_word *av) C_noret; C_noret_decl(f_15753) static void C_fcall f_15753(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_25940) static void C_fcall f_25940(C_word t0,C_word t1) C_noret; C_noret_decl(f_22714) static void C_ccall f_22714(C_word c,C_word *av) C_noret; C_noret_decl(f_30436) static void C_fcall f_30436(C_word t0,C_word t1) 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_15743) static void C_fcall f_15743(C_word t0,C_word t1) C_noret; C_noret_decl(f_25933) static void C_ccall f_25933(C_word c,C_word *av) C_noret; C_noret_decl(f_17829) static void C_ccall f_17829(C_word c,C_word *av) C_noret; C_noret_decl(f_10941) static void C_ccall f_10941(C_word c,C_word *av) 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_22705) static void C_ccall f_22705(C_word c,C_word *av) C_noret; C_noret_decl(f_22708) static void C_ccall f_22708(C_word c,C_word *av) C_noret; C_noret_decl(f_10803) static void C_ccall f_10803(C_word c,C_word *av) C_noret; C_noret_decl(f_25926) static void C_ccall f_25926(C_word c,C_word *av) C_noret; C_noret_decl(f_29579) static void C_fcall f_29579(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_29094) static void C_ccall f_29094(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_29589) static void C_ccall f_29589(C_word c,C_word *av) C_noret; C_noret_decl(f_8545) static void C_ccall f_8545(C_word c,C_word *av) C_noret; C_noret_decl(f_29063) static C_word C_fcall f_29063(C_word t0,C_word t1); C_noret_decl(f_29061) static void C_fcall f_29061(C_word t0,C_word t1) 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_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_9108) static void C_ccall f_9108(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_8562) static void C_ccall f_8562(C_word c,C_word *av) C_noret; C_noret_decl(f_29534) static void C_fcall f_29534(C_word t0,C_word t1) C_noret; C_noret_decl(f_9106) static void C_ccall f_9106(C_word c,C_word *av) C_noret; C_noret_decl(f_29537) static void C_ccall f_29537(C_word c,C_word *av) C_noret; C_noret_decl(f_16510) static void C_fcall f_16510(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_29544) static void C_ccall f_29544(C_word c,C_word *av) C_noret; C_noret_decl(f_9127) static C_word C_fcall f_9127(C_word t0,C_word t1,C_word t2); C_noret_decl(f_9122) static void C_ccall f_9122(C_word c,C_word *av) C_noret; C_noret_decl(f_29549) static void C_fcall f_29549(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16505) static void C_ccall f_16505(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_9148) static void C_fcall f_9148(C_word t0,C_word t1) C_noret; C_noret_decl(f_17877) static void C_ccall f_17877(C_word c,C_word *av) C_noret; C_noret_decl(f_10893) static void C_fcall f_10893(C_word t0,C_word t1) 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_11358) static void C_ccall f_11358(C_word c,C_word *av) C_noret; C_noret_decl(f_9164) static void C_fcall f_9164(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_15798) static void C_fcall f_15798(C_word t0,C_word t1) C_noret; C_noret_decl(f_27792) static void C_fcall f_27792(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_27790) static void C_ccall f_27790(C_word c,C_word *av) C_noret; C_noret_decl(f_15489) static void C_ccall f_15489(C_word c,C_word *av) C_noret; C_noret_decl(f_9187) static void C_fcall f_9187(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15437) static void C_ccall f_15437(C_word c,C_word *av) C_noret; C_noret_decl(f_15439) static void C_fcall f_15439(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_27778) static void C_ccall f_27778(C_word c,C_word *av) C_noret; C_noret_decl(f_27786) static void C_ccall f_27786(C_word c,C_word *av) C_noret; C_noret_decl(f34064) static void C_ccall f34064(C_word c,C_word *av) C_noret; C_noret_decl(f34069) static void C_ccall f34069(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_13775) static void C_ccall f_13775(C_word c,C_word *av) C_noret; C_noret_decl(f_19859) static void C_ccall f_19859(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_13765) static void C_fcall f_13765(C_word t0,C_word t1) C_noret; C_noret_decl(f_17859) static void C_fcall f_17859(C_word t0,C_word t1) C_noret; C_noret_decl(f_17856) static void C_fcall f_17856(C_word t0,C_word t1) 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_28528) static void C_ccall f_28528(C_word c,C_word *av) C_noret; C_noret_decl(f_13752) static void C_fcall f_13752(C_word t0,C_word t1) C_noret; C_noret_decl(f_28520) static void C_ccall f_28520(C_word c,C_word *av) C_noret; C_noret_decl(f_25590) static void C_ccall f_25590(C_word c,C_word *av) C_noret; C_noret_decl(f_28264) static void C_ccall f_28264(C_word c,C_word *av) C_noret; C_noret_decl(f_13731) static C_word C_fcall f_13731(C_word *a,C_word t0,C_word t1); C_noret_decl(f_13730) static void C_ccall f_13730(C_word c,C_word *av) C_noret; C_noret_decl(f_28516) static void C_ccall f_28516(C_word c,C_word *av) C_noret; C_noret_decl(f_28279) static void C_ccall f_28279(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_20071) static void C_fcall f_20071(C_word t0,C_word t1) C_noret; C_noret_decl(f_13719) static void C_ccall f_13719(C_word c,C_word *av) C_noret; C_noret_decl(f_19831) static void C_ccall f_19831(C_word c,C_word *av) C_noret; C_noret_decl(f_13702) static void C_ccall f_13702(C_word c,C_word *av) C_noret; C_noret_decl(f_28283) static void C_ccall f_28283(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_11756) static void C_ccall f_11756(C_word c,C_word *av) C_noret; C_noret_decl(f_24455) static void C_ccall f_24455(C_word c,C_word *av) C_noret; C_noret_decl(f_17194) static void C_fcall f_17194(C_word t0,C_word t1) C_noret; C_noret_decl(f_28286) static void C_ccall f_28286(C_word c,C_word *av) C_noret; C_noret_decl(f_28289) static void C_fcall f_28289(C_word t0,C_word t1) C_noret; C_noret_decl(f_24442) static void C_ccall f_24442(C_word c,C_word *av) C_noret; C_noret_decl(f_20036) static void C_ccall f_20036(C_word c,C_word *av) C_noret; C_noret_decl(f_17161) static void C_fcall f_17161(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_28295) static void C_ccall f_28295(C_word c,C_word *av) C_noret; C_noret_decl(f_24449) static void C_fcall f_24449(C_word t0,C_word t1) C_noret; C_noret_decl(f_8677) static void C_fcall f_8677(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8675) static void C_ccall f_8675(C_word c,C_word *av) C_noret; C_noret_decl(f_20056) static void C_fcall f_20056(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20058) static void C_fcall f_20058(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_24420) static void C_ccall f_24420(C_word c,C_word *av) C_noret; C_noret_decl(f_8664) static void C_ccall f_8664(C_word c,C_word *av) C_noret; C_noret_decl(f_17148) static void C_ccall f_17148(C_word c,C_word *av) C_noret; C_noret_decl(f_26005) static void C_fcall f_26005(C_word t0,C_word t1) C_noret; C_noret_decl(f_24414) static void C_ccall f_24414(C_word c,C_word *av) C_noret; C_noret_decl(f_11797) static void C_fcall f_11797(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20046) static void C_ccall f_20046(C_word c,C_word *av) C_noret; C_noret_decl(f_11794) static void C_fcall f_11794(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_8697) static void C_ccall f_8697(C_word c,C_word *av) C_noret; C_noret_decl(f_24401) static void C_ccall f_24401(C_word c,C_word *av) C_noret; C_noret_decl(f_24400) static void C_fcall f_24400(C_word t0,C_word t1) 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_17122) static void C_ccall f_17122(C_word c,C_word *av) C_noret; C_noret_decl(f_18340) static void C_ccall f_18340(C_word c,C_word *av) C_noret; C_noret_decl(f_28579) static void C_ccall f_28579(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_28256) static void C_ccall f_28256(C_word c,C_word *av) C_noret; C_noret_decl(f_28255) static void C_ccall f_28255(C_word c,C_word *av) C_noret; C_noret_decl(f_24476) static void C_ccall f_24476(C_word c,C_word *av) C_noret; C_noret_decl(f_28570) static void C_ccall f_28570(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_12854) static void C_ccall f_12854(C_word c,C_word *av) C_noret; C_noret_decl(f_12851) static void C_ccall f_12851(C_word c,C_word *av) C_noret; C_noret_decl(f_14245) static void C_fcall f_14245(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_14248) static C_word C_fcall f_14248(C_word t0,C_word t1); C_noret_decl(f_26100) static void C_fcall f_26100(C_word t0,C_word t1) C_noret; C_noret_decl(f_18372) static C_word C_fcall f_18372(C_word *a,C_word t0); C_noret_decl(f_26014) static void C_fcall f_26014(C_word t0,C_word t1) C_noret; C_noret_decl(f_11725) static void C_ccall f_11725(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_26367) static void C_ccall f_26367(C_word c,C_word *av) C_noret; C_noret_decl(f_18363) static void C_ccall f_18363(C_word c,C_word *av) C_noret; C_noret_decl(f_14224) static void C_ccall f_14224(C_word c,C_word *av) C_noret; C_noret_decl(f_12848) static void C_fcall f_12848(C_word t0,C_word t1) C_noret; C_noret_decl(f_24430) static void C_ccall f_24430(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_11702) static void C_ccall f_11702(C_word c,C_word *av) C_noret; C_noret_decl(f_26145) static void C_ccall f_26145(C_word c,C_word *av) C_noret; C_noret_decl(f_18395) static C_word C_fcall f_18395(C_word *a,C_word t0); C_noret_decl(f_26310) static void C_ccall f_26310(C_word c,C_word *av) C_noret; C_noret_decl(f_29305) static void C_fcall f_29305(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8023) static void C_fcall f_8023(C_word t0,C_word t1) 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_28234) static void C_ccall f_28234(C_word c,C_word *av) C_noret; C_noret_decl(f_26351) static void C_ccall f_26351(C_word c,C_word *av) C_noret; C_noret_decl(f_23305) static void C_fcall f_23305(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8809) static void C_fcall f_8809(C_word t0,C_word t1) C_noret; C_noret_decl(f_7864) static void C_ccall f_7864(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_26339) static void C_ccall f_26339(C_word c,C_word *av) C_noret; C_noret_decl(f_27067) static void C_ccall f_27067(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_20522) static void C_fcall f_20522(C_word t0,C_word t1) 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_26345) static void C_ccall f_26345(C_word c,C_word *av) C_noret; C_noret_decl(f_8811) static C_word C_fcall f_8811(C_word t0,C_word t1); C_noret_decl(f_12823) static void C_ccall f_12823(C_word c,C_word *av) C_noret; C_noret_decl(f_27082) static void C_fcall f_27082(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_27080) static void C_ccall f_27080(C_word c,C_word *av) C_noret; C_noret_decl(f_23348) static void C_fcall f_23348(C_word t0,C_word t1) C_noret; C_noret_decl(f_27052) static void C_ccall f_27052(C_word c,C_word *av) C_noret; C_noret_decl(f_26329) static void C_fcall f_26329(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_26327) static void C_ccall f_26327(C_word c,C_word *av) C_noret; C_noret_decl(f_27022) static void C_ccall f_27022(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_8629) static void C_fcall f_8629(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8855) static C_word C_fcall f_8855(C_word t0,C_word t1); C_noret_decl(f_8651) static void C_ccall f_8651(C_word c,C_word *av) C_noret; C_noret_decl(f_8647) static void C_fcall f_8647(C_word t0,C_word t1,C_word t2,C_word t3) 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_22565) static C_word C_fcall f_22565(C_word t0,C_word t1); C_noret_decl(f_29966) static void C_ccall f_29966(C_word c,C_word *av) C_noret; C_noret_decl(f_16929) static void C_fcall f_16929(C_word t0,C_word t1) C_noret; C_noret_decl(f_29902) static void C_ccall f_29902(C_word c,C_word *av) C_noret; C_noret_decl(f_29909) static void C_ccall f_29909(C_word c,C_word *av) C_noret; C_noret_decl(f_20564) static void C_fcall f_20564(C_word t0,C_word t1) 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_20567) static void C_ccall f_20567(C_word c,C_word *av) C_noret; C_noret_decl(f_20964) static void C_fcall f_20964(C_word t0,C_word t1,C_word t2) 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_7806) static void C_ccall f_7806(C_word c,C_word *av) C_noret; C_noret_decl(f_20976) static void C_fcall f_20976(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20973) static void C_fcall f_20973(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_20971) static void C_ccall f_20971(C_word c,C_word *av) C_noret; C_noret_decl(f_29920) static void C_fcall f_29920(C_word t0,C_word t1) C_noret; C_noret_decl(f_29929) static void C_fcall f_29929(C_word t0,C_word t1) 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_7831) static void C_ccall f_7831(C_word c,C_word *av) C_noret; C_noret_decl(f_8293) static void C_ccall f_8293(C_word c,C_word *av) C_noret; C_noret_decl(f_29932) static void C_ccall f_29932(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_29822) static void C_ccall f_29822(C_word c,C_word *av) C_noret; C_noret_decl(f_22451) static C_word C_fcall f_22451(C_word t0,C_word t1); C_noret_decl(f_16491) static void C_ccall f_16491(C_word c,C_word *av) C_noret; C_noret_decl(f_9098) static void C_fcall f_9098(C_word t0,C_word t1) C_noret; C_noret_decl(f_29800) static void C_ccall f_29800(C_word c,C_word *av) C_noret; C_noret_decl(f_29807) static void C_ccall f_29807(C_word c,C_word *av) C_noret; C_noret_decl(f_16470) static void C_ccall f_16470(C_word c,C_word *av) C_noret; C_noret_decl(f_16479) static void C_ccall f_16479(C_word c,C_word *av) C_noret; C_noret_decl(f_16476) static void C_ccall f_16476(C_word c,C_word *av) C_noret; C_noret_decl(f_16473) static void C_ccall f_16473(C_word c,C_word *av) C_noret; C_noret_decl(f_29812) static void C_fcall f_29812(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8289) static void C_ccall f_8289(C_word c,C_word *av) C_noret; C_noret_decl(f_29862) static void C_ccall f_29862(C_word c,C_word *av) 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_16455) static void C_ccall f_16455(C_word c,C_word *av) C_noret; C_noret_decl(f_16458) static void C_ccall f_16458(C_word c,C_word *av) C_noret; C_noret_decl(f_15214) static void C_fcall f_15214(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15212) static void C_ccall f_15212(C_word c,C_word *av) C_noret; C_noret_decl(f_29873) static void C_ccall f_29873(C_word c,C_word *av) C_noret; C_noret_decl(f_29869) static void C_ccall f_29869(C_word c,C_word *av) C_noret; C_noret_decl(f_16443) static void C_ccall f_16443(C_word c,C_word *av) C_noret; C_noret_decl(f_16445) static void C_ccall f_16445(C_word c,C_word *av) C_noret; C_noret_decl(f_16449) static void C_ccall f_16449(C_word c,C_word *av) C_noret; C_noret_decl(f_16435) static void C_ccall f_16435(C_word c,C_word *av) C_noret; C_noret_decl(f_29856) static void C_fcall f_29856(C_word t0,C_word t1) C_noret; C_noret_decl(f_15260) static void C_ccall f_15260(C_word c,C_word *av) C_noret; C_noret_decl(f_29942) static void C_ccall f_29942(C_word c,C_word *av) C_noret; C_noret_decl(f_29859) static void C_ccall f_29859(C_word c,C_word *av) C_noret; C_noret_decl(f_15254) static void C_ccall f_15254(C_word c,C_word *av) C_noret; C_noret_decl(f_13486) static void C_fcall f_13486(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_15288) static void C_fcall f_15288(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_25114) static void C_ccall f_25114(C_word c,C_word *av) C_noret; C_noret_decl(f_25118) static void C_ccall f_25118(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_29886) static void C_ccall f_29886(C_word c,C_word *av) C_noret; C_noret_decl(f_16461) static void C_fcall f_16461(C_word t0,C_word t1) C_noret; C_noret_decl(f_16467) static void C_ccall f_16467(C_word c,C_word *av) C_noret; C_noret_decl(f_16464) static void C_ccall f_16464(C_word c,C_word *av) C_noret; C_noret_decl(f_25023) static void C_ccall f_25023(C_word c,C_word *av) C_noret; C_noret_decl(f_25037) static void C_ccall f_25037(C_word c,C_word *av) C_noret; C_noret_decl(f_29899) static void C_ccall f_29899(C_word c,C_word *av) C_noret; C_noret_decl(f_25010) static void C_fcall f_25010(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_29219) static void C_ccall f_29219(C_word c,C_word *av) C_noret; C_noret_decl(f_29221) static void C_fcall f_29221(C_word t0,C_word t1,C_word t2) 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_8069) static void C_fcall f_8069(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_23595) static void C_fcall f_23595(C_word t0,C_word t1) C_noret; C_noret_decl(f_29288) static void C_ccall f_29288(C_word c,C_word *av) C_noret; C_noret_decl(f_29258) static void C_ccall f_29258(C_word c,C_word *av) C_noret; C_noret_decl(f_28476) static void C_ccall f_28476(C_word c,C_word *av) C_noret; C_noret_decl(f_25314) static void C_ccall f_25314(C_word c,C_word *av) C_noret; C_noret_decl(f_22505) static void C_fcall f_22505(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_31009) static void C_ccall f_31009(C_word c,C_word *av) C_noret; C_noret_decl(f_25349) static void C_ccall f_25349(C_word c,C_word *av) C_noret; C_noret_decl(f_28467) static void C_ccall f_28467(C_word c,C_word *av) C_noret; C_noret_decl(f_28468) static void C_ccall f_28468(C_word c,C_word *av) C_noret; C_noret_decl(f_22514) static void C_fcall f_22514(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_28463) static void C_ccall f_28463(C_word c,C_word *av) C_noret; C_noret_decl(f_23514) static void C_fcall f_23514(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_29293) static void C_fcall f_29293(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_26844) static void C_ccall f_26844(C_word c,C_word *av) C_noret; C_noret_decl(f_26848) static void C_ccall f_26848(C_word c,C_word *av) C_noret; C_noret_decl(f_19544) static void C_ccall f_19544(C_word c,C_word *av) C_noret; C_noret_decl(f_19547) static void C_ccall f_19547(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_28498) static void C_ccall f_28498(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_19517) static void C_ccall f_19517(C_word c,C_word *av) C_noret; C_noret_decl(f_28491) static void C_ccall f_28491(C_word c,C_word *av) C_noret; C_noret_decl(f_26823) static void C_ccall f_26823(C_word c,C_word *av) C_noret; C_noret_decl(f_17008) static void C_ccall f_17008(C_word c,C_word *av) C_noret; C_noret_decl(f_19532) static void C_fcall f_19532(C_word t0,C_word t1) C_noret; C_noret_decl(f_19538) static void C_fcall f_19538(C_word t0,C_word t1) C_noret; C_noret_decl(f_28402) static void C_ccall f_28402(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_19501) static void C_ccall f_19501(C_word c,C_word *av) C_noret; C_noret_decl(f_26861) static void C_ccall f_26861(C_word c,C_word *av) C_noret; C_noret_decl(f_26863) static void C_fcall f_26863(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_23290) static void C_fcall f_23290(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_19525) static void C_ccall f_19525(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_31399) static void C_ccall f_31399(C_word c,C_word *av) C_noret; C_noret_decl(f_28438) static void C_fcall f_28438(C_word t0,C_word t1) C_noret; C_noret_decl(f_17043) static void C_fcall f_17043(C_word t0,C_word t1) C_noret; C_noret_decl(f_11643) static void C_ccall f_11643(C_word c,C_word *av) C_noret; C_noret_decl(f_11699) static void C_ccall f_11699(C_word c,C_word *av) C_noret; C_noret_decl(f_11682) static void C_ccall f_11682(C_word c,C_word *av) C_noret; C_noret_decl(f_17056) static void C_ccall f_17056(C_word c,C_word *av) C_noret; C_noret_decl(f_28456) static void C_ccall f_28456(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_23213) static void C_fcall f_23213(C_word t0,C_word t1) C_noret; C_noret_decl(f_23216) static void C_ccall f_23216(C_word c,C_word *av) C_noret; C_noret_decl(f_23285) static void C_ccall f_23285(C_word c,C_word *av) C_noret; C_noret_decl(f_23275) static void C_fcall f_23275(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_23265) static void C_ccall f_23265(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_29405) static void C_ccall f_29405(C_word c,C_word *av) C_noret; C_noret_decl(f_12543) static void C_ccall f_12543(C_word c,C_word *av) C_noret; C_noret_decl(f_11678) static void C_ccall f_11678(C_word c,C_word *av) C_noret; C_noret_decl(f_26888) static void C_ccall f_26888(C_word c,C_word *av) C_noret; C_noret_decl(f_27485) static void C_ccall f_27485(C_word c,C_word *av) C_noret; C_noret_decl(f_13328) static void C_ccall f_13328(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_12510) static void C_ccall f_12510(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_30277) static void C_ccall f_30277(C_word c,C_word *av) C_noret; C_noret_decl(f_30279) static void C_fcall f_30279(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_27409) static void C_ccall f_27409(C_word c,C_word *av) C_noret; C_noret_decl(f_27401) static void C_ccall f_27401(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_31522) static void C_ccall f_31522(C_word c,C_word *av) C_noret; C_noret_decl(f_12110) static void C_ccall f_12110(C_word c,C_word *av) C_noret; C_noret_decl(f_31525) static void C_ccall f_31525(C_word c,C_word *av) C_noret; C_noret_decl(f_31528) static void C_ccall f_31528(C_word c,C_word *av) C_noret; C_noret_decl(f_27426) static void C_ccall f_27426(C_word c,C_word *av) C_noret; C_noret_decl(f_27422) static void C_ccall f_27422(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_31512) static void C_ccall f_31512(C_word c,C_word *av) C_noret; C_noret_decl(f_30253) static void C_ccall f_30253(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_12134) static void C_ccall f_12134(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_31519) static void C_ccall f_31519(C_word c,C_word *av) C_noret; C_noret_decl(f_31516) static void C_ccall f_31516(C_word c,C_word *av) C_noret; C_noret_decl(f_30231) static void C_ccall f_30231(C_word c,C_word *av) C_noret; C_noret_decl(f_22589) static void C_fcall f_22589(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_30244) static void C_ccall f_30244(C_word c,C_word *av) C_noret; C_noret_decl(f_22593) static void C_fcall f_22593(C_word t0,C_word t1) C_noret; C_noret_decl(f_22596) static void C_ccall f_22596(C_word c,C_word *av) C_noret; C_noret_decl(f_22599) static void C_ccall f_22599(C_word c,C_word *av) C_noret; C_noret_decl(f_29653) static void C_ccall f_29653(C_word c,C_word *av) C_noret; C_noret_decl(f_10408) static void C_fcall f_10408(C_word t0,C_word t1) C_noret; C_noret_decl(f_29638) static void C_ccall f_29638(C_word c,C_word *av) C_noret; C_noret_decl(f_27676) static void C_fcall f_27676(C_word t0,C_word t1) C_noret; C_noret_decl(f_27673) static void C_fcall f_27673(C_word t0,C_word t1) C_noret; C_noret_decl(f_7953) static void C_fcall f_7953(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_29631) static void C_ccall f_29631(C_word c,C_word *av) C_noret; C_noret_decl(f_10304) static void C_ccall f_10304(C_word c,C_word *av) C_noret; C_noret_decl(f_29643) static void C_fcall f_29643(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_29693) static void C_fcall f_29693(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_29679) static void C_ccall f_29679(C_word c,C_word *av) C_noret; C_noret_decl(f_15532) static void C_ccall f_15532(C_word c,C_word *av) C_noret; C_noret_decl(f_29676) static void C_ccall f_29676(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_29688) static void C_ccall f_29688(C_word c,C_word *av) C_noret; C_noret_decl(f_18701) static void C_fcall f_18701(C_word t0,C_word t1) C_noret; C_noret_decl(f_10373) static void C_fcall f_10373(C_word t0,C_word t1) C_noret; C_noret_decl(f_10379) static void C_fcall f_10379(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_25254) static void C_ccall f_25254(C_word c,C_word *av) C_noret; C_noret_decl(f_25206) static void C_ccall f_25206(C_word c,C_word *av) C_noret; C_noret_decl(f_25205) static void C_ccall f_25205(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_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_11171) static void C_ccall f_11171(C_word c,C_word *av) C_noret; C_noret_decl(f_29315) static void C_ccall f_29315(C_word c,C_word *av) C_noret; C_noret_decl(f_11186) static void C_ccall f_11186(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_29325) static void C_ccall f_29325(C_word c,C_word *av) C_noret; C_noret_decl(f_21877) static void C_ccall f_21877(C_word c,C_word *av) C_noret; C_noret_decl(f_18934) static void C_fcall f_18934(C_word t0,C_word t1) C_noret; C_noret_decl(f_21886) static C_word C_fcall f_21886(C_word t0,C_word t1); C_noret_decl(f_25074) static void C_ccall f_25074(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_25088) static void C_ccall f_25088(C_word c,C_word *av) C_noret; C_noret_decl(f_8141) static void C_ccall f_8141(C_word c,C_word *av) 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_25873) static void C_ccall f_25873(C_word c,C_word *av) C_noret; C_noret_decl(f_25061) static void C_ccall f_25061(C_word c,C_word *av) C_noret; C_noret_decl(f_23487) static void C_fcall f_23487(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_29361) static void C_ccall f_29361(C_word c,C_word *av) C_noret; C_noret_decl(f_29369) static void C_ccall f_29369(C_word c,C_word *av) C_noret; C_noret_decl(f_25041) static void C_ccall f_25041(C_word c,C_word *av) C_noret; C_noret_decl(f_23460) static void C_fcall f_23460(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15507) static void C_fcall f_15507(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20000) static void C_ccall f_20000(C_word c,C_word *av) C_noret; C_noret_decl(f_25081) static void C_ccall f_25081(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_26735) static void C_fcall f_26735(C_word t0,C_word t1,C_word t2,C_word t3) 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_23413) static void C_ccall f_23413(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_19433) static void C_ccall f_19433(C_word c,C_word *av) C_noret; C_noret_decl(f_19439) static void C_fcall f_19439(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_18907) static void C_ccall f_18907(C_word c,C_word *av) C_noret; C_noret_decl(f_17316) static void C_fcall f_17316(C_word t0,C_word t1) C_noret; C_noret_decl(f_20272) static void C_ccall f_20272(C_word c,C_word *av) C_noret; C_noret_decl(f_18917) static void C_ccall f_18917(C_word c,C_word *av) C_noret; C_noret_decl(f_18913) static void C_ccall f_18913(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_9739) static void C_ccall f_9739(C_word c,C_word *av) C_noret; C_noret_decl(f_20262) static void C_ccall f_20262(C_word c,C_word *av) C_noret; C_noret_decl(f_26753) static void C_ccall f_26753(C_word c,C_word *av) C_noret; C_noret_decl(f_9760) static void C_fcall f_9760(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9767) static void C_fcall f_9767(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_26764) static void C_fcall f_26764(C_word t0,C_word t1) 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_17345) static void C_fcall f_17345(C_word t0,C_word t1) C_noret; C_noret_decl(f_9758) static void C_ccall f_9758(C_word c,C_word *av) C_noret; C_noret_decl(f_12197) static void C_fcall f_12197(C_word t0,C_word t1) C_noret; C_noret_decl(f_11557) static void C_ccall f_11557(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_19413) static void C_ccall f_19413(C_word c,C_word *av) C_noret; C_noret_decl(f_23075) static void C_ccall f_23075(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_word t4,C_word t5) C_noret; C_noret_decl(f_19419) static void C_ccall f_19419(C_word c,C_word *av) C_noret; C_noret_decl(f_12163) static void C_ccall f_12163(C_word c,C_word *av) C_noret; C_noret_decl(f_20237) static void C_fcall f_20237(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_20224) static void C_ccall f_20224(C_word c,C_word *av) C_noret; C_noret_decl(f_26797) static void C_ccall f_26797(C_word c,C_word *av) C_noret; C_noret_decl(f_26792) static void C_fcall f_26792(C_word t0,C_word t1) C_noret; C_noret_decl(f_26794) static void C_fcall f_26794(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20221) static void C_fcall f_20221(C_word t0,C_word t1) C_noret; C_noret_decl(f_23055) static void C_fcall f_23055(C_word t0,C_word t1) C_noret; C_noret_decl(f_23052) static void C_ccall f_23052(C_word c,C_word *av) C_noret; C_noret_decl(f_12188) static void C_fcall f_12188(C_word t0,C_word t1) 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_23058) static void C_ccall f_23058(C_word c,C_word *av) C_noret; C_noret_decl(f_20259) static void C_fcall f_20259(C_word t0,C_word t1) C_noret; C_noret_decl(f_17385) static void C_ccall f_17385(C_word c,C_word *av) C_noret; C_noret_decl(f_12153) static void C_fcall f_12153(C_word t0,C_word t1) 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_18418) static void C_ccall f_18418(C_word c,C_word *av) C_noret; C_noret_decl(f_20249) static void C_fcall f_20249(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_20241) static void C_ccall f_20241(C_word c,C_word *av) C_noret; C_noret_decl(f_11452) static void C_ccall f_11452(C_word c,C_word *av) C_noret; C_noret_decl(f_23039) static void C_fcall f_23039(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_23035) static void C_ccall f_23035(C_word c,C_word *av) C_noret; C_noret_decl(f_22126) static void C_fcall f_22126(C_word t0,C_word t1) C_noret; C_noret_decl(f_11300) static void C_fcall f_11300(C_word t0,C_word t1) C_noret; C_noret_decl(f_11427) static void C_ccall f_11427(C_word c,C_word *av) C_noret; C_noret_decl(f_12179) static void C_ccall f_12179(C_word c,C_word *av) C_noret; C_noret_decl(f_23325) static void C_fcall f_23325(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(trf_22143) static void C_ccall trf_22143(C_word c,C_word *av) C_noret; static void C_ccall trf_22143(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_22143(t0,t1,t2,t3);} C_noret_decl(trf_22152) static void C_ccall trf_22152(C_word c,C_word *av) C_noret; static void C_ccall trf_22152(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_22152(t0,t1,t2,t3,t4);} C_noret_decl(trf_22159) static void C_ccall trf_22159(C_word c,C_word *av) C_noret; static void C_ccall trf_22159(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22159(t0,t1);} C_noret_decl(trf_27665) static void C_ccall trf_27665(C_word c,C_word *av) C_noret; static void C_ccall trf_27665(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27665(t0,t1);} C_noret_decl(trf_9795) static void C_ccall trf_9795(C_word c,C_word *av) C_noret; static void C_ccall trf_9795(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9795(t0,t1,t2,t3);} C_noret_decl(trf_18491) static void C_ccall trf_18491(C_word c,C_word *av) C_noret; static void C_ccall trf_18491(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18491(t0,t1,t2);} C_noret_decl(trf_21965) static void C_ccall trf_21965(C_word c,C_word *av) C_noret; static void C_ccall trf_21965(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21965(t0,t1);} C_noret_decl(trf_26784) static void C_ccall trf_26784(C_word c,C_word *av) C_noret; static void C_ccall trf_26784(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26784(t0,t1,t2);} C_noret_decl(trf_21930) static void C_ccall trf_21930(C_word c,C_word *av) C_noret; static void C_ccall trf_21930(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_21930(t0,t1,t2,t3,t4);} C_noret_decl(trf_27683) static void C_ccall trf_27683(C_word c,C_word *av) C_noret; static void C_ccall trf_27683(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27683(t0,t1);} C_noret_decl(trf_29419) static void C_ccall trf_29419(C_word c,C_word *av) C_noret; static void C_ccall trf_29419(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_29419(t0,t1);} C_noret_decl(trf_29431) static void C_ccall trf_29431(C_word c,C_word *av) C_noret; static void C_ccall trf_29431(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_29431(t0,t1,t2);} C_noret_decl(trf_25743) static void C_ccall trf_25743(C_word c,C_word *av) C_noret; static void C_ccall trf_25743(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25743(t0,t1);} C_noret_decl(trf_25740) static void C_ccall trf_25740(C_word c,C_word *av) C_noret; static void C_ccall trf_25740(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25740(t0,t1);} C_noret_decl(trf_29731) static void C_ccall trf_29731(C_word c,C_word *av) C_noret; static void C_ccall trf_29731(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_29731(t0,t1,t2);} C_noret_decl(trf_29752) static void C_ccall trf_29752(C_word c,C_word *av) C_noret; static void C_ccall trf_29752(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_29752(t0,t1,t2);} C_noret_decl(trf_13674) static void C_ccall trf_13674(C_word c,C_word *av) C_noret; static void C_ccall trf_13674(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13674(t0,t1);} C_noret_decl(trf_15865) static void C_ccall trf_15865(C_word c,C_word *av) C_noret; static void C_ccall trf_15865(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_15865(t0,t1,t2,t3,t4);} C_noret_decl(trf_29786) static void C_ccall trf_29786(C_word c,C_word *av) C_noret; static void C_ccall trf_29786(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_29786(t0,t1);} C_noret_decl(trf_25708) static void C_ccall trf_25708(C_word c,C_word *av) C_noret; static void C_ccall trf_25708(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25708(t0,t1);} C_noret_decl(trf_13600) static void C_ccall trf_13600(C_word c,C_word *av) C_noret; static void C_ccall trf_13600(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_13600(t0,t1,t2,t3,t4);} C_noret_decl(trf_28662) static void C_ccall trf_28662(C_word c,C_word *av) C_noret; static void C_ccall trf_28662(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_28662(t0,t1,t2,t3);} C_noret_decl(trf_19313) static void C_ccall trf_19313(C_word c,C_word *av) C_noret; static void C_ccall trf_19313(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_19313(t0,t1,t2,t3);} C_noret_decl(trf_14482) static void C_ccall trf_14482(C_word c,C_word *av) C_noret; static void C_ccall trf_14482(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14482(t0,t1);} C_noret_decl(trf_10291) static void C_ccall trf_10291(C_word c,C_word *av) C_noret; static void C_ccall trf_10291(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10291(t0,t1);} C_noret_decl(trf_19322) static void C_ccall trf_19322(C_word c,C_word *av) C_noret; static void C_ccall trf_19322(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19322(t0,t1,t2);} C_noret_decl(trf_17533) static void C_ccall trf_17533(C_word c,C_word *av) C_noret; static void C_ccall trf_17533(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17533(t0,t1);} C_noret_decl(trf_17517) static void C_ccall trf_17517(C_word c,C_word *av) C_noret; static void C_ccall trf_17517(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17517(t0,t1);} C_noret_decl(trf_10281) static void C_ccall trf_10281(C_word c,C_word *av) C_noret; static void C_ccall trf_10281(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10281(t0,t1,t2);} C_noret_decl(trf_21725) static void C_ccall trf_21725(C_word c,C_word *av) C_noret; static void C_ccall trf_21725(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21725(t0,t1,t2);} C_noret_decl(trf_10706) static void C_ccall trf_10706(C_word c,C_word *av) C_noret; static void C_ccall trf_10706(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10706(t0,t1);} C_noret_decl(trf_10703) static void C_ccall trf_10703(C_word c,C_word *av) C_noret; static void C_ccall trf_10703(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10703(t0,t1);} C_noret_decl(trf_20184) static void C_ccall trf_20184(C_word c,C_word *av) C_noret; static void C_ccall trf_20184(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_20184(t0,t1,t2,t3,t4,t5,t6,t7,t8);} C_noret_decl(trf_10714) static void C_ccall trf_10714(C_word c,C_word *av) C_noret; static void C_ccall trf_10714(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_10714(t0,t1,t2,t3,t4);} C_noret_decl(trf_26671) static void C_ccall trf_26671(C_word c,C_word *av) C_noret; static void C_ccall trf_26671(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_26671(t0,t1);} C_noret_decl(trf_23180) static void C_ccall trf_23180(C_word c,C_word *av) C_noret; static void C_ccall trf_23180(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_23180(t0,t1,t2,t3);} C_noret_decl(trf_17276) static void C_ccall trf_17276(C_word c,C_word *av) C_noret; static void C_ccall trf_17276(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17276(t0,t1,t2);} C_noret_decl(trf_20157) static void C_ccall trf_20157(C_word c,C_word *av) C_noret; static void C_ccall trf_20157(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20157(t0,t1,t2);} C_noret_decl(trf_17273) static void C_ccall trf_17273(C_word c,C_word *av) C_noret; static void C_ccall trf_17273(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_17273(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_26681) static void C_ccall trf_26681(C_word c,C_word *av) C_noret; static void C_ccall trf_26681(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_26681(t0,t1,t2,t3);} C_noret_decl(trf_20122) static void C_ccall trf_20122(C_word c,C_word *av) C_noret; static void C_ccall trf_20122(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20122(t0,t1,t2);} C_noret_decl(trf_23157) static void C_ccall trf_23157(C_word c,C_word *av) C_noret; static void C_ccall trf_23157(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_23157(t0,t1,t2,t3,t4);} C_noret_decl(trf_18101) static void C_ccall trf_18101(C_word c,C_word *av) C_noret; static void C_ccall trf_18101(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18101(t0,t1,t2);} C_noret_decl(trf_12932) static void C_ccall trf_12932(C_word c,C_word *av) C_noret; static void C_ccall trf_12932(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12932(t0,t1,t2);} C_noret_decl(trf_16248) static void C_ccall trf_16248(C_word c,C_word *av) C_noret; static void C_ccall trf_16248(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16248(t0,t1);} C_noret_decl(trf_27387) static void C_ccall trf_27387(C_word c,C_word *av) C_noret; static void C_ccall trf_27387(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_27387(t0,t1,t2,t3,t4);} C_noret_decl(trf_16263) static void C_ccall trf_16263(C_word c,C_word *av) C_noret; static void C_ccall trf_16263(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16263(t0,t1,t2);} C_noret_decl(trf_23209) static void C_ccall trf_23209(C_word c,C_word *av) C_noret; static void C_ccall trf_23209(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23209(t0,t1,t2);} C_noret_decl(trf_15067) static void C_ccall trf_15067(C_word c,C_word *av) C_noret; static void C_ccall trf_15067(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15067(t0,t1,t2);} C_noret_decl(trf_22923) static void C_ccall trf_22923(C_word c,C_word *av) C_noret; static void C_ccall trf_22923(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_22923(t0,t1,t2,t3,t4);} C_noret_decl(trf_24397) static void C_ccall trf_24397(C_word c,C_word *av) C_noret; static void C_ccall trf_24397(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_24397(t0,t1);} C_noret_decl(trf_27337) static void C_ccall trf_27337(C_word c,C_word *av) C_noret; static void C_ccall trf_27337(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_27337(t0,t1,t2);} C_noret_decl(trf_24987) static void C_ccall trf_24987(C_word c,C_word *av) C_noret; static void C_ccall trf_24987(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_24987(t0,t1);} C_noret_decl(trf_27345) static void C_ccall trf_27345(C_word c,C_word *av) C_noret; static void C_ccall trf_27345(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27345(t0,t1);} C_noret_decl(trf_15688) static void C_ccall trf_15688(C_word c,C_word *av) C_noret; static void C_ccall trf_15688(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15688(t0,t1,t2);} C_noret_decl(trf_16641) static void C_ccall trf_16641(C_word c,C_word *av) C_noret; static void C_ccall trf_16641(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16641(t0,t1);} C_noret_decl(trf_21156) static void C_ccall trf_21156(C_word c,C_word *av) C_noret; static void C_ccall trf_21156(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_21156(t0,t1,t2,t3);} C_noret_decl(trf_27944) static void C_ccall trf_27944(C_word c,C_word *av) C_noret; static void C_ccall trf_27944(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27944(t0,t1);} C_noret_decl(trf_21117) static void C_ccall trf_21117(C_word c,C_word *av) C_noret; static void C_ccall trf_21117(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21117(t0,t1);} C_noret_decl(trf_10570) static void C_ccall trf_10570(C_word c,C_word *av) C_noret; static void C_ccall trf_10570(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10570(t0,t1,t2);} C_noret_decl(trf_27904) static void C_ccall trf_27904(C_word c,C_word *av) C_noret; static void C_ccall trf_27904(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27904(t0,t1);} C_noret_decl(trf_27914) static void C_ccall trf_27914(C_word c,C_word *av) C_noret; static void C_ccall trf_27914(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27914(t0,t1);} C_noret_decl(trf_21070) static void C_ccall trf_21070(C_word c,C_word *av) C_noret; static void C_ccall trf_21070(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_21070(t0,t1,t2,t3);} C_noret_decl(trf_25800) static void C_ccall trf_25800(C_word c,C_word *av) C_noret; static void C_ccall trf_25800(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25800(t0,t1);} C_noret_decl(trf_27924) static void C_ccall trf_27924(C_word c,C_word *av) C_noret; static void C_ccall trf_27924(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_27924(t0,t1,t2,t3);} C_noret_decl(trf_10523) static void C_ccall trf_10523(C_word c,C_word *av) C_noret; static void C_ccall trf_10523(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_10523(t0,t1,t2,t3,t4,t5,t6);} 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_10052) static void C_ccall trf_10052(C_word c,C_word *av) C_noret; static void C_ccall trf_10052(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_10052(t0,t1,t2,t3,t4);} C_noret_decl(trf_21053) static void C_ccall trf_21053(C_word c,C_word *av) C_noret; static void C_ccall trf_21053(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_21053(t0,t1,t2,t3);} C_noret_decl(trf_25809) static void C_ccall trf_25809(C_word c,C_word *av) C_noret; static void C_ccall trf_25809(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25809(t0,t1);} C_noret_decl(trf_20371) static void C_ccall trf_20371(C_word c,C_word *av) C_noret; static void C_ccall trf_20371(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20371(t0,t1);} C_noret_decl(trf_10548) static void C_ccall trf_10548(C_word c,C_word *av) C_noret; static void C_ccall trf_10548(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10548(t0,t1,t2);} C_noret_decl(trf_15328) static void C_ccall trf_15328(C_word c,C_word *av) C_noret; static void C_ccall trf_15328(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15328(t0,t1,t2);} C_noret_decl(trf_13595) static void C_ccall trf_13595(C_word c,C_word *av) C_noret; static void C_ccall trf_13595(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13595(t0,t1);} C_noret_decl(trf_29108) static void C_ccall trf_29108(C_word c,C_word *av) C_noret; static void C_ccall trf_29108(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_29108(t0,t1,t2,t3);} C_noret_decl(trf_14558) static void C_ccall trf_14558(C_word c,C_word *av) C_noret; static void C_ccall trf_14558(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14558(t0,t1);} C_noret_decl(trf_19108) static void C_ccall trf_19108(C_word c,C_word *av) C_noret; static void C_ccall trf_19108(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19108(t0,t1);} C_noret_decl(trf_8426) static void C_ccall trf_8426(C_word c,C_word *av) C_noret; static void C_ccall trf_8426(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8426(t0,t1);} C_noret_decl(trf_19114) static void C_ccall trf_19114(C_word c,C_word *av) C_noret; static void C_ccall trf_19114(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19114(t0,t1);} C_noret_decl(trf_7533) static void C_ccall trf_7533(C_word c,C_word *av) C_noret; static void C_ccall trf_7533(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7533(t0,t1);} C_noret_decl(trf_17430) static void C_ccall trf_17430(C_word c,C_word *av) C_noret; static void C_ccall trf_17430(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_17430(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_16771) static void C_ccall trf_16771(C_word c,C_word *av) C_noret; static void C_ccall trf_16771(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16771(t0,t1);} C_noret_decl(trf_18885) static void C_ccall trf_18885(C_word c,C_word *av) C_noret; static void C_ccall trf_18885(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18885(t0,t1,t2,t3);} C_noret_decl(trf_24843) static void C_ccall trf_24843(C_word c,C_word *av) C_noret; static void C_ccall trf_24843(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_24843(t0,t1);} C_noret_decl(trf_27847) static void C_ccall trf_27847(C_word c,C_word *av) C_noret; static void C_ccall trf_27847(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27847(t0,t1);} C_noret_decl(trf_22214) static void C_ccall trf_22214(C_word c,C_word *av) C_noret; static void C_ccall trf_22214(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22214(t0,t1,t2);} C_noret_decl(trf_11034) static void C_ccall trf_11034(C_word c,C_word *av) C_noret; static void C_ccall trf_11034(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11034(t0,t1);} C_noret_decl(trf_15999) static void C_ccall trf_15999(C_word c,C_word *av) C_noret; static void C_ccall trf_15999(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15999(t0,t1,t2);} C_noret_decl(trf_22654) static void C_ccall trf_22654(C_word c,C_word *av) C_noret; static void C_ccall trf_22654(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22654(t0,t1);} C_noret_decl(trf_15986) static void C_ccall trf_15986(C_word c,C_word *av) C_noret; static void C_ccall trf_15986(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15986(t0,t1,t2);} C_noret_decl(trf_22677) static void C_ccall trf_22677(C_word c,C_word *av) C_noret; static void C_ccall trf_22677(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_22677(t0,t1,t2,t3,t4);} C_noret_decl(trf_15938) static void C_ccall trf_15938(C_word c,C_word *av) C_noret; static void C_ccall trf_15938(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15938(t0,t1,t2);} C_noret_decl(trf_15925) static void C_ccall trf_15925(C_word c,C_word *av) C_noret; static void C_ccall trf_15925(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15925(t0,t1,t2);} C_noret_decl(trf_20660) static void C_ccall trf_20660(C_word c,C_word *av) C_noret; static void C_ccall trf_20660(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20660(t0,t1,t2);} C_noret_decl(trf_22998) static void C_ccall trf_22998(C_word c,C_word *av) C_noret; static void C_ccall trf_22998(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_22998(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_22981) static void C_ccall trf_22981(C_word c,C_word *av) C_noret; static void C_ccall trf_22981(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22981(t0,t1);} C_noret_decl(trf_10681) static void C_ccall trf_10681(C_word c,C_word *av) C_noret; static void C_ccall trf_10681(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10681(t0,t1);} C_noret_decl(trf_24269) static void C_ccall trf_24269(C_word c,C_word *av) C_noret; static void C_ccall trf_24269(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_24269(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[1]; C_word t1=av[0]; f_7651(t0,t1);} C_noret_decl(trf_10624) static void C_ccall trf_10624(C_word c,C_word *av) C_noret; static void C_ccall trf_10624(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10624(t0,t1);} C_noret_decl(trf_17727) static void C_ccall trf_17727(C_word c,C_word *av) C_noret; static void C_ccall trf_17727(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17727(t0,t1);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_20486(t0,t1,t2);} C_noret_decl(trf_16040) static void C_ccall trf_16040(C_word c,C_word *av) C_noret; static void C_ccall trf_16040(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16040(t0,t1);} C_noret_decl(trf_13892) static void C_ccall trf_13892(C_word c,C_word *av) C_noret; static void C_ccall trf_13892(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13892(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[1]; C_word t1=av[0]; f_18070(t0,t1);} C_noret_decl(trf_10696) static void C_ccall trf_10696(C_word c,C_word *av) C_noret; static void C_ccall trf_10696(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10696(t0,t1);} C_noret_decl(trf_24239) static void C_ccall trf_24239(C_word c,C_word *av) C_noret; static void C_ccall trf_24239(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_24239(t0,t1);} C_noret_decl(trf_24242) static void C_ccall trf_24242(C_word c,C_word *av) C_noret; static void C_ccall trf_24242(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_24242(t0,t1);} C_noret_decl(trf_10631) static void C_ccall trf_10631(C_word c,C_word *av) C_noret; static void C_ccall trf_10631(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10631(t0,t1);} C_noret_decl(trf_22621) static void C_ccall trf_22621(C_word c,C_word *av) C_noret; static void C_ccall trf_22621(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_22621(t0,t1,t2,t3,t4);} C_noret_decl(trf_14133) static void C_ccall trf_14133(C_word c,C_word *av) C_noret; static void C_ccall trf_14133(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14133(t0,t1);} C_noret_decl(trf_28058) static void C_ccall trf_28058(C_word c,C_word *av) C_noret; static void C_ccall trf_28058(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_28058(t0,t1);} C_noret_decl(trf_28067) static void C_ccall trf_28067(C_word c,C_word *av) C_noret; static void C_ccall trf_28067(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_28067(t0,t1);} C_noret_decl(trf_28064) static void C_ccall trf_28064(C_word c,C_word *av) C_noret; static void C_ccall trf_28064(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_28064(t0,t1);} C_noret_decl(trf_19006) static void C_ccall trf_19006(C_word c,C_word *av) C_noret; static void C_ccall trf_19006(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19006(t0,t1,t2);} C_noret_decl(trf_10604) static void C_ccall trf_10604(C_word c,C_word *av) C_noret; static void C_ccall trf_10604(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10604(t0,t1);} C_noret_decl(trf_14728) static void C_ccall trf_14728(C_word c,C_word *av) C_noret; static void C_ccall trf_14728(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14728(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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18551(t0,t1,t2,t3);} C_noret_decl(trf_13829) static void C_ccall trf_13829(C_word c,C_word *av) C_noret; static void C_ccall trf_13829(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13829(t0,t1);} C_noret_decl(trf_18091) static void C_ccall trf_18091(C_word c,C_word *av) C_noret; static void C_ccall trf_18091(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18091(t0,t1);} C_noret_decl(trf_14828) static void C_ccall trf_14828(C_word c,C_word *av) C_noret; static void C_ccall trf_14828(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_14828(t0,t1,t2,t3,t4);} C_noret_decl(trf_28087) static void C_ccall trf_28087(C_word c,C_word *av) C_noret; static void C_ccall trf_28087(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_28087(t0,t1,t2,t3,t4);} C_noret_decl(trf_28935) static void C_ccall trf_28935(C_word c,C_word *av) C_noret; static void C_ccall trf_28935(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_28935(t0,t1);} C_noret_decl(trf_18051) static void C_ccall trf_18051(C_word c,C_word *av) C_noret; static void C_ccall trf_18051(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18051(t0,t1);} C_noret_decl(trf_28932) static void C_ccall trf_28932(C_word c,C_word *av) C_noret; static void C_ccall trf_28932(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_28932(t0,t1);} C_noret_decl(trf_18599) static void C_ccall trf_18599(C_word c,C_word *av) C_noret; static void C_ccall trf_18599(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18599(t0,t1,t2,t3);} C_noret_decl(trf_22842) static void C_ccall trf_22842(C_word c,C_word *av) C_noret; static void C_ccall trf_22842(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22842(t0,t1,t2);} C_noret_decl(trf_22885) static void C_ccall trf_22885(C_word c,C_word *av) C_noret; static void C_ccall trf_22885(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22885(t0,t1,t2);} C_noret_decl(trf_22850) static void C_ccall trf_22850(C_word c,C_word *av) C_noret; static void C_ccall trf_22850(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22850(t0,t1);} C_noret_decl(trf_22808) static void C_ccall trf_22808(C_word c,C_word *av) C_noret; static void C_ccall trf_22808(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_22808(t0,t1,t2,t3);} C_noret_decl(trf_23701) static void C_ccall trf_23701(C_word c,C_word *av) C_noret; static void C_ccall trf_23701(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23701(t0,t1,t2);} C_noret_decl(trf_27596) static void C_ccall trf_27596(C_word c,C_word *av) C_noret; static void C_ccall trf_27596(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_27596(t0,t1,t2,t3,t4);} C_noret_decl(trf_23740) static void C_ccall trf_23740(C_word c,C_word *av) C_noret; static void C_ccall trf_23740(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23740(t0,t1);} C_noret_decl(trf_8480) static void C_ccall trf_8480(C_word c,C_word *av) C_noret; static void C_ccall trf_8480(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8480(t0,t1,t2,t3);} C_noret_decl(trf_27582) static void C_ccall trf_27582(C_word c,C_word *av) C_noret; static void C_ccall trf_27582(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_27582(t0,t1,t2);} C_noret_decl(trf_21371) static void C_ccall trf_21371(C_word c,C_word *av) C_noret; static void C_ccall trf_21371(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21371(t0,t1);} C_noret_decl(trf_21324) static void C_ccall trf_21324(C_word c,C_word *av) C_noret; static void C_ccall trf_21324(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21324(t0,t1);} C_noret_decl(trf_9329) static void C_ccall trf_9329(C_word c,C_word *av) C_noret; static void C_ccall trf_9329(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9329(t0,t1,t2);} C_noret_decl(trf_26997) static void C_ccall trf_26997(C_word c,C_word *av) C_noret; static void C_ccall trf_26997(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26997(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_15121) static void C_ccall trf_15121(C_word c,C_word *av) C_noret; static void C_ccall trf_15121(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15121(t0,t1);} C_noret_decl(trf_9921) static void C_ccall trf_9921(C_word c,C_word *av) C_noret; static void C_ccall trf_9921(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9921(t0,t1);} C_noret_decl(trf_14938) static void C_ccall trf_14938(C_word c,C_word *av) C_noret; static void C_ccall trf_14938(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14938(t0,t1,t2);} C_noret_decl(trf_9911) static void C_ccall trf_9911(C_word c,C_word *av) C_noret; static void C_ccall trf_9911(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9911(t0,t1,t2);} C_noret_decl(trf_30387) static void C_ccall trf_30387(C_word c,C_word *av) C_noret; static void C_ccall trf_30387(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_30387(t0,t1,t2,t3);} C_noret_decl(trf_17676) static void C_ccall trf_17676(C_word c,C_word *av) C_noret; static void C_ccall trf_17676(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17676(t0,t1);} C_noret_decl(trf_14012) static void C_ccall trf_14012(C_word c,C_word *av) C_noret; static void C_ccall trf_14012(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14012(t0,t1);} C_noret_decl(trf_14974) static void C_ccall trf_14974(C_word c,C_word *av) C_noret; static void C_ccall trf_14974(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14974(t0,t1);} C_noret_decl(trf_19917) static void C_ccall trf_19917(C_word c,C_word *av) C_noret; static void C_ccall trf_19917(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_19917(t0,t1,t2,t3,t4);} C_noret_decl(trf_28360) static void C_ccall trf_28360(C_word c,C_word *av) C_noret; static void C_ccall trf_28360(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_28360(t0,t1);} C_noret_decl(trf_17669) static void C_ccall trf_17669(C_word c,C_word *av) C_noret; static void C_ccall trf_17669(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17669(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_19757(t0,t1,t2);} C_noret_decl(trf_19767) static void C_ccall trf_19767(C_word c,C_word *av) C_noret; static void C_ccall trf_19767(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19767(t0,t1);} C_noret_decl(trf_19932) static void C_ccall trf_19932(C_word c,C_word *av) C_noret; static void C_ccall trf_19932(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_19932(t0,t1,t2,t3);} C_noret_decl(trf_26927) static void C_ccall trf_26927(C_word c,C_word *av) C_noret; static void C_ccall trf_26927(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26927(t0,t1,t2);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_22380(t0,t1,t2,t3);} C_noret_decl(trf_22095) static void C_ccall trf_22095(C_word c,C_word *av) C_noret; static void C_ccall trf_22095(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22095(t0,t1);} C_noret_decl(trf_26228) static void C_ccall trf_26228(C_word c,C_word *av) C_noret; static void C_ccall trf_26228(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26228(t0,t1,t2);} C_noret_decl(trf_14902) static void C_ccall trf_14902(C_word c,C_word *av) C_noret; static void C_ccall trf_14902(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14902(t0,t1,t2);} C_noret_decl(trf_28309) static void C_ccall trf_28309(C_word c,C_word *av) C_noret; static void C_ccall trf_28309(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_28309(t0,t1,t2,t3,t4);} C_noret_decl(trf_28835) static void C_ccall trf_28835(C_word c,C_word *av) C_noret; static void C_ccall trf_28835(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_28835(t0,t1,t2);} C_noret_decl(trf_16109) static void C_ccall trf_16109(C_word c,C_word *av) C_noret; static void C_ccall trf_16109(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16109(t0,t1,t2);} C_noret_decl(trf_9989) static void C_ccall trf_9989(C_word c,C_word *av) C_noret; static void C_ccall trf_9989(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9989(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_16165(t0,t1,t2);} C_noret_decl(trf_22327) static void C_ccall trf_22327(C_word c,C_word *av) C_noret; static void C_ccall trf_22327(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22327(t0,t1);} C_noret_decl(trf_22321) static void C_ccall trf_22321(C_word c,C_word *av) C_noret; static void C_ccall trf_22321(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22321(t0,t1);} C_noret_decl(trf_8914) static void C_ccall trf_8914(C_word c,C_word *av) C_noret; static void C_ccall trf_8914(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8914(t0,t1,t2);} C_noret_decl(trf_26453) static void C_ccall trf_26453(C_word c,C_word *av) C_noret; static void C_ccall trf_26453(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26453(t0,t1,t2);} C_noret_decl(trf_8383) static void C_ccall trf_8383(C_word c,C_word *av) C_noret; static void C_ccall trf_8383(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8383(t0,t1);} C_noret_decl(trf_8389) static void C_ccall trf_8389(C_word c,C_word *av) C_noret; static void C_ccall trf_8389(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8389(t0,t1);} C_noret_decl(trf_8953) static void C_ccall trf_8953(C_word c,C_word *av) C_noret; static void C_ccall trf_8953(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_8953(t0,t1,t2,t3,t4);} C_noret_decl(trf_8956) static void C_ccall trf_8956(C_word c,C_word *av) C_noret; static void C_ccall trf_8956(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8956(t0,t1);} C_noret_decl(trf_20823) static void C_ccall trf_20823(C_word c,C_word *av) C_noret; static void C_ccall trf_20823(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_20823(t0,t1,t2,t3,t4);} C_noret_decl(trf_27251) static void C_ccall trf_27251(C_word c,C_word *av) C_noret; static void C_ccall trf_27251(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_27251(t0,t1,t2);} C_noret_decl(trf_9380) static void C_ccall trf_9380(C_word c,C_word *av) C_noret; static void C_ccall trf_9380(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9380(t0,t1,t2,t3);} C_noret_decl(trf_9286) static void C_ccall trf_9286(C_word c,C_word *av) C_noret; static void C_ccall trf_9286(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9286(t0,t1,t2);} C_noret_decl(trf_30021) static void C_ccall trf_30021(C_word c,C_word *av) C_noret; static void C_ccall trf_30021(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_30021(t0,t1,t2);} C_noret_decl(trf_9347) static void C_ccall trf_9347(C_word c,C_word *av) C_noret; static void C_ccall trf_9347(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9347(t0,t1,t2,t3);} C_noret_decl(trf_9374) static void C_ccall trf_9374(C_word c,C_word *av) C_noret; static void C_ccall trf_9374(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9374(t0,t1,t2,t3);} C_noret_decl(trf_10929) static void C_ccall trf_10929(C_word c,C_word *av) C_noret; static void C_ccall trf_10929(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10929(t0,t1);} C_noret_decl(trf_20990) static void C_ccall trf_20990(C_word c,C_word *av) C_noret; static void C_ccall trf_20990(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20990(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_25907) static void C_ccall trf_25907(C_word c,C_word *av) C_noret; static void C_ccall trf_25907(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25907(t0,t1);} C_noret_decl(trf_16540) static void C_ccall trf_16540(C_word c,C_word *av) C_noret; static void C_ccall trf_16540(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16540(t0,t1,t2);} C_noret_decl(trf_20986) static void C_ccall trf_20986(C_word c,C_word *av) C_noret; static void C_ccall trf_20986(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_20986(t0,t1,t2,t3);} C_noret_decl(trf_9302) static void C_ccall trf_9302(C_word c,C_word *av) C_noret; static void C_ccall trf_9302(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9302(t0,t1,t2,t3);} C_noret_decl(trf_23698) static void C_ccall trf_23698(C_word c,C_word *av) C_noret; static void C_ccall trf_23698(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_23698(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_30463) static void C_ccall trf_30463(C_word c,C_word *av) C_noret; static void C_ccall trf_30463(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_30463(t0,t1);} C_noret_decl(trf_16595) static void C_ccall trf_16595(C_word c,C_word *av) C_noret; static void C_ccall trf_16595(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16595(t0,t1);} C_noret_decl(trf_15753) static void C_ccall trf_15753(C_word c,C_word *av) C_noret; static void C_ccall trf_15753(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_15753(t0,t1,t2,t3,t4);} C_noret_decl(trf_25940) static void C_ccall trf_25940(C_word c,C_word *av) C_noret; static void C_ccall trf_25940(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25940(t0,t1);} C_noret_decl(trf_30436) static void C_ccall trf_30436(C_word c,C_word *av) C_noret; static void C_ccall trf_30436(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_30436(t0,t1);} C_noret_decl(trf_15743) static void C_ccall trf_15743(C_word c,C_word *av) C_noret; static void C_ccall trf_15743(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15743(t0,t1);} C_noret_decl(trf_29579) static void C_ccall trf_29579(C_word c,C_word *av) C_noret; static void C_ccall trf_29579(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_29579(t0,t1,t2);} C_noret_decl(trf_29061) static void C_ccall trf_29061(C_word c,C_word *av) C_noret; static void C_ccall trf_29061(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_29061(t0,t1);} C_noret_decl(trf_29534) static void C_ccall trf_29534(C_word c,C_word *av) C_noret; static void C_ccall trf_29534(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_29534(t0,t1);} C_noret_decl(trf_16510) static void C_ccall trf_16510(C_word c,C_word *av) C_noret; static void C_ccall trf_16510(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16510(t0,t1,t2);} C_noret_decl(trf_29549) static void C_ccall trf_29549(C_word c,C_word *av) C_noret; static void C_ccall trf_29549(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_29549(t0,t1,t2);} C_noret_decl(trf_9148) static void C_ccall trf_9148(C_word c,C_word *av) C_noret; static void C_ccall trf_9148(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9148(t0,t1);} C_noret_decl(trf_10893) static void C_ccall trf_10893(C_word c,C_word *av) C_noret; static void C_ccall trf_10893(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10893(t0,t1);} C_noret_decl(trf_9164) static void C_ccall trf_9164(C_word c,C_word *av) C_noret; static void C_ccall trf_9164(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9164(t0,t1,t2,t3);} C_noret_decl(trf_15798) static void C_ccall trf_15798(C_word c,C_word *av) C_noret; static void C_ccall trf_15798(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15798(t0,t1);} C_noret_decl(trf_27792) static void C_ccall trf_27792(C_word c,C_word *av) C_noret; static void C_ccall trf_27792(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_27792(t0,t1,t2,t3,t4);} C_noret_decl(trf_9187) static void C_ccall trf_9187(C_word c,C_word *av) C_noret; static void C_ccall trf_9187(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9187(t0,t1,t2);} C_noret_decl(trf_15439) static void C_ccall trf_15439(C_word c,C_word *av) C_noret; static void C_ccall trf_15439(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15439(t0,t1,t2);} C_noret_decl(trf_13765) static void C_ccall trf_13765(C_word c,C_word *av) C_noret; static void C_ccall trf_13765(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13765(t0,t1);} C_noret_decl(trf_17859) static void C_ccall trf_17859(C_word c,C_word *av) C_noret; static void C_ccall trf_17859(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17859(t0,t1);} C_noret_decl(trf_17856) static void C_ccall trf_17856(C_word c,C_word *av) C_noret; static void C_ccall trf_17856(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17856(t0,t1);} C_noret_decl(trf_13752) static void C_ccall trf_13752(C_word c,C_word *av) C_noret; static void C_ccall trf_13752(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13752(t0,t1);} C_noret_decl(trf_20071) static void C_ccall trf_20071(C_word c,C_word *av) C_noret; static void C_ccall trf_20071(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20071(t0,t1);} C_noret_decl(trf_17194) static void C_ccall trf_17194(C_word c,C_word *av) C_noret; static void C_ccall trf_17194(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17194(t0,t1);} C_noret_decl(trf_28289) static void C_ccall trf_28289(C_word c,C_word *av) C_noret; static void C_ccall trf_28289(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_28289(t0,t1);} C_noret_decl(trf_17161) static void C_ccall trf_17161(C_word c,C_word *av) C_noret; static void C_ccall trf_17161(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17161(t0,t1);} C_noret_decl(trf_24449) static void C_ccall trf_24449(C_word c,C_word *av) C_noret; static void C_ccall trf_24449(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_24449(t0,t1);} C_noret_decl(trf_8677) static void C_ccall trf_8677(C_word c,C_word *av) C_noret; static void C_ccall trf_8677(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8677(t0,t1,t2);} C_noret_decl(trf_20056) static void C_ccall trf_20056(C_word c,C_word *av) C_noret; static void C_ccall trf_20056(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_20056(t0,t1,t2,t3);} C_noret_decl(trf_20058) static void C_ccall trf_20058(C_word c,C_word *av) C_noret; static void C_ccall trf_20058(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20058(t0,t1,t2);} C_noret_decl(trf_26005) static void C_ccall trf_26005(C_word c,C_word *av) C_noret; static void C_ccall trf_26005(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_26005(t0,t1);} C_noret_decl(trf_11797) static void C_ccall trf_11797(C_word c,C_word *av) C_noret; static void C_ccall trf_11797(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11797(t0,t1,t2);} C_noret_decl(trf_11794) static void C_ccall trf_11794(C_word c,C_word *av) C_noret; static void C_ccall trf_11794(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_11794(t0,t1,t2,t3,t4);} C_noret_decl(trf_24400) static void C_ccall trf_24400(C_word c,C_word *av) C_noret; static void C_ccall trf_24400(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_24400(t0,t1);} C_noret_decl(trf_14245) static void C_ccall trf_14245(C_word c,C_word *av) C_noret; static void C_ccall trf_14245(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14245(t0,t1,t2,t3);} C_noret_decl(trf_26100) static void C_ccall trf_26100(C_word c,C_word *av) C_noret; static void C_ccall trf_26100(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_26100(t0,t1);} C_noret_decl(trf_26014) static void C_ccall trf_26014(C_word c,C_word *av) C_noret; static void C_ccall trf_26014(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_26014(t0,t1);} C_noret_decl(trf_12848) static void C_ccall trf_12848(C_word c,C_word *av) C_noret; static void C_ccall trf_12848(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12848(t0,t1);} C_noret_decl(trf_29305) static void C_ccall trf_29305(C_word c,C_word *av) C_noret; static void C_ccall trf_29305(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_29305(t0,t1,t2,t3);} C_noret_decl(trf_8023) static void C_ccall trf_8023(C_word c,C_word *av) C_noret; static void C_ccall trf_8023(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8023(t0,t1);} C_noret_decl(trf_23305) static void C_ccall trf_23305(C_word c,C_word *av) C_noret; static void C_ccall trf_23305(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_23305(t0,t1,t2,t3);} C_noret_decl(trf_8809) static void C_ccall trf_8809(C_word c,C_word *av) C_noret; static void C_ccall trf_8809(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8809(t0,t1);} C_noret_decl(trf_20522) static void C_ccall trf_20522(C_word c,C_word *av) C_noret; static void C_ccall trf_20522(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20522(t0,t1);} C_noret_decl(trf_27082) static void C_ccall trf_27082(C_word c,C_word *av) C_noret; static void C_ccall trf_27082(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_27082(t0,t1,t2);} C_noret_decl(trf_23348) static void C_ccall trf_23348(C_word c,C_word *av) C_noret; static void C_ccall trf_23348(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23348(t0,t1);} C_noret_decl(trf_26329) static void C_ccall trf_26329(C_word c,C_word *av) C_noret; static void C_ccall trf_26329(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26329(t0,t1,t2);} C_noret_decl(trf_8629) static void C_ccall trf_8629(C_word c,C_word *av) C_noret; static void C_ccall trf_8629(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8629(t0,t1,t2);} C_noret_decl(trf_8647) static void C_ccall trf_8647(C_word c,C_word *av) C_noret; static void C_ccall trf_8647(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8647(t0,t1,t2,t3);} C_noret_decl(trf_16929) static void C_ccall trf_16929(C_word c,C_word *av) C_noret; static void C_ccall trf_16929(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16929(t0,t1);} C_noret_decl(trf_20564) static void C_ccall trf_20564(C_word c,C_word *av) C_noret; static void C_ccall trf_20564(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20564(t0,t1);} C_noret_decl(trf_20964) static void C_ccall trf_20964(C_word c,C_word *av) C_noret; static void C_ccall trf_20964(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20964(t0,t1,t2);} C_noret_decl(trf_20976) static void C_ccall trf_20976(C_word c,C_word *av) C_noret; static void C_ccall trf_20976(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20976(t0,t1,t2);} 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[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_20973(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_29920) static void C_ccall trf_29920(C_word c,C_word *av) C_noret; static void C_ccall trf_29920(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_29920(t0,t1);} C_noret_decl(trf_29929) static void C_ccall trf_29929(C_word c,C_word *av) C_noret; static void C_ccall trf_29929(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_29929(t0,t1);} C_noret_decl(trf_9098) static void C_ccall trf_9098(C_word c,C_word *av) C_noret; static void C_ccall trf_9098(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9098(t0,t1);} C_noret_decl(trf_29812) static void C_ccall trf_29812(C_word c,C_word *av) C_noret; static void C_ccall trf_29812(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_29812(t0,t1,t2);} C_noret_decl(trf_15214) static void C_ccall trf_15214(C_word c,C_word *av) C_noret; static void C_ccall trf_15214(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15214(t0,t1,t2);} C_noret_decl(trf_29856) static void C_ccall trf_29856(C_word c,C_word *av) C_noret; static void C_ccall trf_29856(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_29856(t0,t1);} C_noret_decl(trf_13486) static void C_ccall trf_13486(C_word c,C_word *av) C_noret; static void C_ccall trf_13486(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_13486(t0,t1,t2,t3);} C_noret_decl(trf_15288) static void C_ccall trf_15288(C_word c,C_word *av) C_noret; static void C_ccall trf_15288(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15288(t0,t1,t2);} C_noret_decl(trf_16461) static void C_ccall trf_16461(C_word c,C_word *av) C_noret; static void C_ccall trf_16461(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16461(t0,t1);} C_noret_decl(trf_25010) static void C_ccall trf_25010(C_word c,C_word *av) C_noret; static void C_ccall trf_25010(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_25010(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_29221) static void C_ccall trf_29221(C_word c,C_word *av) C_noret; static void C_ccall trf_29221(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_29221(t0,t1,t2);} C_noret_decl(trf_8069) static void C_ccall trf_8069(C_word c,C_word *av) C_noret; static void C_ccall trf_8069(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8069(t0,t1,t2,t3);} C_noret_decl(trf_23595) static void C_ccall trf_23595(C_word c,C_word *av) C_noret; static void C_ccall trf_23595(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23595(t0,t1);} C_noret_decl(trf_22505) static void C_ccall trf_22505(C_word c,C_word *av) C_noret; static void C_ccall trf_22505(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_22505(t0,t1,t2,t3);} C_noret_decl(trf_22514) static void C_ccall trf_22514(C_word c,C_word *av) C_noret; static void C_ccall trf_22514(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_22514(t0,t1,t2,t3);} C_noret_decl(trf_23514) static void C_ccall trf_23514(C_word c,C_word *av) C_noret; static void C_ccall trf_23514(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_23514(t0,t1,t2,t3,t4);} C_noret_decl(trf_29293) static void C_ccall trf_29293(C_word c,C_word *av) C_noret; static void C_ccall trf_29293(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_29293(t0,t1,t2,t3);} C_noret_decl(trf_19532) static void C_ccall trf_19532(C_word c,C_word *av) C_noret; static void C_ccall trf_19532(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19532(t0,t1);} C_noret_decl(trf_19538) static void C_ccall trf_19538(C_word c,C_word *av) C_noret; static void C_ccall trf_19538(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19538(t0,t1);} C_noret_decl(trf_26863) static void C_ccall trf_26863(C_word c,C_word *av) C_noret; static void C_ccall trf_26863(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26863(t0,t1,t2);} C_noret_decl(trf_23290) static void C_ccall trf_23290(C_word c,C_word *av) C_noret; static void C_ccall trf_23290(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_23290(t0,t1,t2,t3,t4);} C_noret_decl(trf_28438) static void C_ccall trf_28438(C_word c,C_word *av) C_noret; static void C_ccall trf_28438(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_28438(t0,t1);} C_noret_decl(trf_17043) static void C_ccall trf_17043(C_word c,C_word *av) C_noret; static void C_ccall trf_17043(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17043(t0,t1);} C_noret_decl(trf_23213) static void C_ccall trf_23213(C_word c,C_word *av) C_noret; static void C_ccall trf_23213(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23213(t0,t1);} C_noret_decl(trf_23275) static void C_ccall trf_23275(C_word c,C_word *av) C_noret; static void C_ccall trf_23275(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23275(t0,t1,t2);} C_noret_decl(trf_30279) static void C_ccall trf_30279(C_word c,C_word *av) C_noret; static void C_ccall trf_30279(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_30279(t0,t1,t2,t3);} C_noret_decl(trf_22589) static void C_ccall trf_22589(C_word c,C_word *av) C_noret; static void C_ccall trf_22589(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22589(t0,t1,t2);} C_noret_decl(trf_22593) static void C_ccall trf_22593(C_word c,C_word *av) C_noret; static void C_ccall trf_22593(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22593(t0,t1);} C_noret_decl(trf_10408) static void C_ccall trf_10408(C_word c,C_word *av) C_noret; static void C_ccall trf_10408(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10408(t0,t1);} C_noret_decl(trf_27676) static void C_ccall trf_27676(C_word c,C_word *av) C_noret; static void C_ccall trf_27676(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27676(t0,t1);} C_noret_decl(trf_27673) static void C_ccall trf_27673(C_word c,C_word *av) C_noret; static void C_ccall trf_27673(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27673(t0,t1);} C_noret_decl(trf_7953) static void C_ccall trf_7953(C_word c,C_word *av) C_noret; static void C_ccall trf_7953(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7953(t0,t1,t2,t3);} C_noret_decl(trf_29643) static void C_ccall trf_29643(C_word c,C_word *av) C_noret; static void C_ccall trf_29643(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_29643(t0,t1,t2);} C_noret_decl(trf_29693) static void C_ccall trf_29693(C_word c,C_word *av) C_noret; static void C_ccall trf_29693(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_29693(t0,t1,t2);} C_noret_decl(trf_18701) static void C_ccall trf_18701(C_word c,C_word *av) C_noret; static void C_ccall trf_18701(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18701(t0,t1);} C_noret_decl(trf_10373) static void C_ccall trf_10373(C_word c,C_word *av) C_noret; static void C_ccall trf_10373(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10373(t0,t1);} C_noret_decl(trf_10379) static void C_ccall trf_10379(C_word c,C_word *av) C_noret; static void C_ccall trf_10379(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10379(t0,t1,t2,t3);} 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_18934) static void C_ccall trf_18934(C_word c,C_word *av) C_noret; static void C_ccall trf_18934(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18934(t0,t1);} C_noret_decl(trf_23487) static void C_ccall trf_23487(C_word c,C_word *av) C_noret; static void C_ccall trf_23487(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_23487(t0,t1,t2,t3,t4);} C_noret_decl(trf_23460) static void C_ccall trf_23460(C_word c,C_word *av) C_noret; static void C_ccall trf_23460(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23460(t0,t1,t2);} C_noret_decl(trf_15507) static void C_ccall trf_15507(C_word c,C_word *av) C_noret; static void C_ccall trf_15507(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15507(t0,t1,t2);} C_noret_decl(trf_26735) static void C_ccall trf_26735(C_word c,C_word *av) C_noret; static void C_ccall trf_26735(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_26735(t0,t1,t2,t3);} C_noret_decl(trf_19439) static void C_ccall trf_19439(C_word c,C_word *av) C_noret; static void C_ccall trf_19439(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_19439(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_17316) static void C_ccall trf_17316(C_word c,C_word *av) C_noret; static void C_ccall trf_17316(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17316(t0,t1);} C_noret_decl(trf_9760) static void C_ccall trf_9760(C_word c,C_word *av) C_noret; static void C_ccall trf_9760(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9760(t0,t1,t2,t3);} C_noret_decl(trf_9767) static void C_ccall trf_9767(C_word c,C_word *av) C_noret; static void C_ccall trf_9767(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9767(t0,t1,t2,t3);} C_noret_decl(trf_26764) static void C_ccall trf_26764(C_word c,C_word *av) C_noret; static void C_ccall trf_26764(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_26764(t0,t1);} C_noret_decl(trf_17345) static void C_ccall trf_17345(C_word c,C_word *av) C_noret; static void C_ccall trf_17345(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17345(t0,t1);} C_noret_decl(trf_12197) static void C_ccall trf_12197(C_word c,C_word *av) C_noret; static void C_ccall trf_12197(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12197(t0,t1);} 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[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_17352(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_20237) static void C_ccall trf_20237(C_word c,C_word *av) C_noret; static void C_ccall trf_20237(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_20237(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_26792) static void C_ccall trf_26792(C_word c,C_word *av) C_noret; static void C_ccall trf_26792(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_26792(t0,t1);} C_noret_decl(trf_26794) static void C_ccall trf_26794(C_word c,C_word *av) C_noret; static void C_ccall trf_26794(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_26794(t0,t1,t2,t3);} C_noret_decl(trf_20221) static void C_ccall trf_20221(C_word c,C_word *av) C_noret; static void C_ccall trf_20221(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20221(t0,t1);} C_noret_decl(trf_23055) static void C_ccall trf_23055(C_word c,C_word *av) C_noret; static void C_ccall trf_23055(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23055(t0,t1);} C_noret_decl(trf_12188) static void C_ccall trf_12188(C_word c,C_word *av) C_noret; static void C_ccall trf_12188(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12188(t0,t1);} C_noret_decl(trf_20259) static void C_ccall trf_20259(C_word c,C_word *av) C_noret; static void C_ccall trf_20259(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20259(t0,t1);} C_noret_decl(trf_12153) static void C_ccall trf_12153(C_word c,C_word *av) C_noret; static void C_ccall trf_12153(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12153(t0,t1);} C_noret_decl(trf_20249) static void C_ccall trf_20249(C_word c,C_word *av) C_noret; static void C_ccall trf_20249(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_20249(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_23039) static void C_ccall trf_23039(C_word c,C_word *av) C_noret; static void C_ccall trf_23039(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23039(t0,t1,t2);} C_noret_decl(trf_22126) static void C_ccall trf_22126(C_word c,C_word *av) C_noret; static void C_ccall trf_22126(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22126(t0,t1);} 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[1]; C_word t1=av[0]; f_11300(t0,t1);} C_noret_decl(trf_23325) static void C_ccall trf_23325(C_word c,C_word *av) C_noret; static void C_ccall trf_23325(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_23325(t0,t1,t2,t3,t4);} /* k22110 in k22097 in make-mst in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22112(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_22112,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k23014 in lp in k22979 in a22976 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_23016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_23016,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; /* Re-use our own argvector */ 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);}} /* k22145 in nfa-state->mst in k19097 in k9756 in k7760 in k7529 */ 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 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_22147,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22150,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2722: mst-add! */ f_22152(t3,((C_word*)t0)[3],t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* nfa-state->mst in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22143(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_22143,4,t1,t2,t3,t4);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22147,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:2721: make-mst */ f_22095(t5,t2);} /* k11400 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_11402(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11402,2,av);} /* irregex-core.scm:895: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10523(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_END_OF_LIST,t1);} /* k23041 in g4231 in k23033 in lp in k22979 in a22976 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_23043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_23043,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23046,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:2948: cset-difference */ f_27582(t3,t4,((C_word*)t0)[10]);} /* k23044 in k23041 in g4231 in k23033 in lp in k22979 in a22976 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_23046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_23046,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_23052,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(t7)){ t8=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; f_23052(2,av2);}} else{ /* irregex-core.scm:2952: mst-copy */ f_22126(t5,t4);}} /* k12686 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_12688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_12688,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[176],t1); /* irregex-core.scm:1067: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10523(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* a23388 in k23378 in lp2 in lp in tag-set-commands-for-closure in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_23389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_23389,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k23385 in k23378 in lp2 in lp in tag-set-commands-for-closure in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_23387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_23387,2,av);} t2=((C_word*)t0)[2]; f_23348(t2,C_i_not(t1));} /* k22135 in k22128 in mst-copy in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22137(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_22137,2,av);} t2=C_i_vector_set(((C_word*)t0)[2],C_fix(0),t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k22128 in mst-copy in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_22130,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22137,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:2717: vector-copy */ f_7533(t3,t4);} /* k23378 in lp2 in lp in tag-set-commands-for-closure in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_23380,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23387,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23389,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li309),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:3039: any */ f_9286(t2,t3,((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[2]; f_23348(t2,C_SCHEME_FALSE);}} /* g4011 in k22157 in mst-add! in k19097 in k9756 in k7760 in k7529 */ static C_word C_fcall f_22166(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_i_car(t1); t3=t1; t4=C_u_i_cdr(t3); t5=C_i_vector_ref(((C_word*)t0)[2],t2); if(C_truep(C_i_memq(t4,t5))){ t6=C_SCHEME_UNDEFINED; return(t6);} else{ t6=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],t2); t7=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t6); t8=C_a_i_cons(&a,2,t4,t5); return(C_i_vector_set(((C_word*)t0)[2],t2,t8));}} /* k29125 in loop in k29104 in irregex-quote in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_29127,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_29108(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_29108(t5,((C_word*)t0)[6],t3,t4);}} /* mst-add! in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22152(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(10,0,2)))){ C_save_and_reclaim_args((void *)trf_22152,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_22159,a[2]=t3,a[3]=t4,a[4]=t5,a[5]=t9,a[6]=t1,a[7]=t2,tmp=(C_word)a,a+=8,tmp); t11=t3; t12=t4; t13=C_fixnum_plus(t12,C_fix(3)); if(C_truep(C_i_vector_ref(t11,t13))){ t14=t10; f_22159(t14,C_SCHEME_UNDEFINED);} else{ t14=C_fixnum_plus(((C_word*)t9)[1],t4); t15=C_set_block_item(t9,0,t14); t16=t3; t17=C_i_vector_ref(t16,C_fix(1)); t18=C_fixnum_plus(t17,C_fix(1)); t19=t3; t20=t10; f_22159(t20,C_i_vector_set(t19,C_fix(1),t18));}} /* k22157 in mst-add! in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22159(C_word t0,C_word t1){ C_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_22159,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_22166,a[2]=t9,a[3]=((C_word*)t0)[5],a[4]=((C_word)li283),tmp=(C_word)a,a+=5,tmp); t11=((C_word*)t0)[4]; t12=C_i_check_list_2(t11,lf[288]); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22201,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[5],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_22214,a[2]=t10,a[3]=t15,a[4]=((C_word)li284),tmp=(C_word)a,a+=5,tmp)); t17=((C_word*)t15)[1]; f_22214(t17,t13,t11);} /* k22148 in k22145 in nfa-state->mst in k19097 in k9756 in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_22150,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k17330 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_17332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_17332,2,av);} /* irregex-core.scm:1718: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17273(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k27663 in diff in k27592 in k27588 in cset-difference in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_27665(C_word t0,C_word t1){ C_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(12,0,4)))){ C_save_and_reclaim_args((void *)trf_27665,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* irregex-core.scm:3797: diff */ t4=((C_word*)((C_word*)t0)[3])[1]; f_27596(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_27673,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_fixnum_difference(t7,C_fix(1)); t9=C_make_character(C_unfix(t8)); t10=t2; f_27673(t10,C_a_i_cons(&a,2,t5,t9));} else{ t5=t2; f_27673(t5,C_SCHEME_FALSE);}}} /* sre-repeater? in k9756 in k7760 in k7529 */ static C_word C_fcall f_16849(C_word t1){ C_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[265]); if(C_truep(t4)){ return(t4);} else{ t5=t1; t6=C_u_i_car(t5); if(C_truep((C_truep(C_eqp(t6,lf[230]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[98]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[109]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[110]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[104]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[212]))?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);}} /* k11547 in k11551 in k11521 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11549,2,av);} /* irregex-core.scm:919: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10523(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);} /* k11320 in k11298 in a11289 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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_11322,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:887: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10523(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* lp */ static void C_fcall f_9795(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_9795,4,t0,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9801,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)li53),tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:623: read */ t5=((C_word*)((C_word*)t0)[4])[1]; f_9767(t5,t1,t2,t4);} /* irregex-opt in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29151(C_word c,C_word *av){ C_word tmp; C_word 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_29151,3,av);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[419]; ((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; /* Re-use our own argvector */ 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_29288,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-utils.scm:42: make-vector */ t5=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}}} /* a26769 in string->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_26770(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_26770,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:3773: cset-union */ t6=lf[151];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=t5; f_27373(4,av2);}} /* map-loop3016 in sre-strip-submatches in k9756 in k7760 in k7529 */ static void C_fcall f_18491(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_18491,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_18516,a[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:1868: g3022 */ 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);}}} /* k21963 in lp in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_21965(C_word t0,C_word t1){ C_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_21965,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21972,a[2]=((C_word*)t0)[2],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:2436: append */ t8=*((C_word*)lf[63]+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_21998,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:2438: append */ t7=*((C_word*)lf[63]+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);}}} /* k11521 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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,4)))){ C_save_and_reclaim((void *)f_11523,2,av);} a=C_alloc(11); 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_and(t6,C_fix(-2)); t8=t7; t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11553,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t5,a[6]=t8,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11557,a[2]=t9,tmp=(C_word)a,a+=3,tmp); t11=C_fixnum_plus(((C_word*)t0)[6],C_fix(3)); /* irregex-core.scm:920: substring */ t12=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t12; av2[1]=t10; av2[2]=((C_word*)t0)[7]; av2[3]=t11; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} else{ /* irregex-core.scm:923: error */ t2=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[139]; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k11518 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11520,2,av);} /* irregex-core.scm:912: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10523(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[138],t1);} /* sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_26784(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_26784,3,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26792,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_26792(t6,C_u_i_car(t5));} else{ t5=t4; f_26792(t5,C_SCHEME_FALSE);}} /* k26780 in string->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_26782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_26782,2,av);} /* irregex-core.scm:3671: fold */ f_9374(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* lp in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_21930(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: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_21930,5,t0,t1,t2,t3,t4);} a=C_alloc(7); if(C_truep(C_i_pairp(t2))){ t5=C_i_car(t2); if(C_truep(C_i_pairp(t5))){ t6=C_i_caar(t2); t7=C_eqp(t6,lf[230]); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21965,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); if(C_truep(t7)){ t9=t8; f_21965(t9,t7);} else{ t9=C_eqp(t6,lf[98]); if(C_truep(t9)){ t10=t8; f_21965(t10,t9);} else{ t10=C_eqp(t6,lf[109]); t11=t8; f_21965(t11,(C_truep(t10)?t10:C_eqp(t6,lf[110])));}}} else{ t6=t2; t7=C_u_i_cdr(t6); /* irregex-core.scm:2439: lp */ t12=t1; t13=t7; t14=t3; t15=t4; t1=t12; t2=t13; t3=t14; t4=t15; goto loop;}} else{ t5=C_fixnum_shift_left(t3,C_fix(1)); t6=C_i_vector_set(((C_word*)((C_word*)t0)[3])[1],C_fix(0),t5); t7=C_i_vector_set(((C_word*)((C_word*)t0)[3])[1],C_fix(1),C_fix(-1)); t8=t4; t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k27608 in diff in k27592 in k27588 in cset-difference in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27610,2,av);} /* irregex-core.scm:3785: list->vector */ t2=*((C_word*)lf[391]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k27621 in diff in k27592 in k27588 in cset-difference in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27623,2,av);} /* irregex-core.scm:3786: list->vector */ t2=*((C_word*)lf[391]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12628 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_12630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_12630,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[175],t1); /* irregex-core.scm:1062: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10523(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k27625 in diff in k27592 in k27588 in cset-difference in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_27627,2,av);} /* irregex-core.scm:3786: append */ t2=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12603 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_12605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_12605,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[174],t1); /* irregex-core.scm:1060: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10523(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k12661 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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_12663,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[176],t1); t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); /* irregex-core.scm:1064: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_10523(t4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t3,((C_word*)t0)[8]);} /* k27681 in k27674 in k27671 in k27663 in diff in k27592 in k27588 in cset-difference in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_27683(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_27683,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:3804: diff */ t3=((C_word*)((C_word*)t0)[4])[1]; f_27596(t3,((C_word*)t0)[5],t1,((C_word*)t0)[6],t2);} else{ t2=((C_word*)t0)[3]; /* irregex-core.scm:3804: diff */ t3=((C_word*)((C_word*)t0)[4])[1]; f_27596(t3,((C_word*)t0)[5],t1,((C_word*)t0)[6],t2);}} /* sre-searcher? in k9756 in k7760 in k7529 */ static void C_ccall f_16894(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16894,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[117]); t6=(C_truep(t5)?t5:C_eqp(t4,lf[119])); if(C_truep(t6)){ t7=t2; t8=C_u_i_cdr(t7); t9=( /* irregex-core.scm:1665: sre-sequence */ f_18372(C_a_i(&a,3),t8) ); /* irregex-core.scm:1665: sre-any? */ t10=lf[264];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t1; av2[2]=t9; f_16748(3,av2);}} else{ t7=C_eqp(t4,lf[104]); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16929,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(t7)){ t9=t8; f_16929(t9,t7);} else{ t9=C_eqp(t4,lf[212]); if(C_truep(t9)){ t10=t8; f_16929(t10,t9);} else{ t10=C_eqp(t4,lf[230]); if(C_truep(t10)){ t11=t8; f_16929(t11,t10);} else{ t11=C_eqp(t4,lf[98]); if(C_truep(t11)){ t12=t8; f_16929(t12,t11);} else{ t12=C_eqp(t4,lf[109]); t13=t8; f_16929(t13,(C_truep(t12)?t12:C_eqp(t4,lf[110])));}}}}}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_eqp(lf[175],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k29439 in lp in k29421 in cset->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_29441,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_29431(t4,((C_word*)t0)[4],t3);} /* k21996 in k21963 in lp in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21998,2,av);} /* irregex-core.scm:2438: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_21930(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k29421 in cset->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_29423,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29426,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_29431,a[2]=t5,a[3]=t2,a[4]=((C_word)li374),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_29431(t7,t3,((C_word*)t0)[3]);} /* cset->string in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29419(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_29419,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29423,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-utils.scm:71: open-output-string */ t4=*((C_word*)lf[427]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k29424 in k29421 in cset->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_29426,2,av);} /* irregex-utils.scm:82: get-output-string */ t2=*((C_word*)lf[424]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k21970 in k21963 in lp in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_21972,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:2436: lp */ t7=((C_word*)((C_word*)t0)[5])[1]; f_21930(t7,((C_word*)t0)[6],t1,t2,t6);} /* k29453 in k29450 in lp in k29421 in cset->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_29455,2,av);} a=C_alloc(6); 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); 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[415]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k29450 in lp in k29421 in cset->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_29452,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29455,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* write-char/port */ t3=*((C_word*)lf[426]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k29487 in lp in k29421 in cset->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29489,2,av);} /* irregex-utils.scm:80: display */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k27105 in map-loop5257 in k27065 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ 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 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_27107,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_27082(t6,((C_word*)t0)[5],t5);} /* a31401 in k9756 in k7760 in k7529 */ static void C_ccall f_31402(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_31402,6,av);} t6=C_i_car(t2); /* irregex-core.scm:1940: substring */ t7=*((C_word*)lf[38]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t1; av2[2]=t6; av2[3]=t3; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k29460 in k29453 in k29450 in lp in k29421 in cset->string in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29462,2,av);} /* irregex-utils.scm:79: display */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* lp in k29421 in cset->string in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29431(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_29431,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_29441,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_29452,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_29474,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[415]+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_29489,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[415]+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);}}} /* k25741 in k25738 */ static void C_fcall f_25743(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_25743,2,t0,t1);} if(C_truep(t1)){ /* irregex-core.scm:3490: 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:3491: 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);}}} /* k25738 */ static void C_fcall f_25740(C_word 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_25740,2,t0,t1);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|11,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],a[7]=((C_word*)t0)[7],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_25743(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_25774,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:3488: g4938 */ 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);}}} /* k29728 in k29725 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_29730,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29731,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li380),tmp=(C_word)a,a+=5,tmp); t3=C_i_cddr(((C_word*)t0)[4]); t4=C_i_check_list_2(t3,lf[288]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29747,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_29752,a[2]=t7,a[3]=t2,a[4]=((C_word)li381),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_29752(t9,t5,t3);} /* g6033 in k29728 in k29725 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29731(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_29731,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29735,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-utils.scm:103: display */ t4=*((C_word*)lf[425]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=lf[436]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k29733 in g6033 in k29728 in k29725 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_29735,2,av);} /* irregex-utils.scm:103: lp */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; f_29511(3,av2);}} /* f_25733 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_25733(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,2)))){ C_save_and_reclaim((void *)f_25733,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25740,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=t3; t14=C_u_i_cdr(t13); t15=t10; f_25740(t15,C_i_eqvp(t6,t14));} else{ t13=t10; f_25740(t13,C_SCHEME_FALSE);}} /* k29701 in for-each-loop6011 in k29677 in k29674 in k29671 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29703(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_29703,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_29693(t3,((C_word*)t0)[4],t2);} /* sre->string in k19097 in k9756 in k7760 in k7529 */ 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); C_check_for_interrupt; 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_29503,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-utils.scm:85: open-output-string */ t4=*((C_word*)lf[427]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* for-each-loop6032 in k29728 in k29725 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29752(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_29752,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_29762,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: g6033 */ t5=((C_word*)t0)[3]; f_29731(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);}}} /* k29472 in lp in k29421 in cset->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29474,2,av);} /* irregex-utils.scm:77: display */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k21741 in g3943 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_21743,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:2629: lp */ t5=((C_word*)((C_word*)t0)[3])[1]; f_20973(t5,((C_word*)t0)[4],t4,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k29725 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_29727,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29730,a[2]=((C_word*)t0)[2],a[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; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; f_29511(3,av2);}} /* k29745 in k29728 in k29725 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29747,2,av);} /* irregex-utils.scm:104: display */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[437]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a24149 in k24135 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24150(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24150,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24156,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)li139),tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3210: body */ t11=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k21704 in k21656 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21706,2,av);} /* irregex-core.scm:2616: add-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20986(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* k16315 in irregex in k9756 in k7760 in k7529 */ 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 t3; 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_16317,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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[205]; 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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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_16371,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:1585: string->irregex */ t10=*((C_word*)lf[206]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:1586: sre->irregex */ t10=*((C_word*)lf[207]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=*((C_word*)lf[206]+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; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=*((C_word*)lf[207]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[4]; C_apply(5,av2);}}}}} /* k29760 in for-each-loop6032 in k29728 in k29725 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_29762,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_29752(t3,((C_word*)t0)[4],t2);} /* k21700 in k21662 in k21656 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_21702,2,av);} a=C_alloc(13); t2=( /* irregex-core.scm:2617: sre-sequence */ f_18372(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_21694,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:2618: new-state-number */ t6=((C_word*)((C_word*)t0)[6])[1]; f_20976(t6,t5,((C_word*)t0)[5]);} /* irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16310(C_word c,C_word *av){ C_word tmp; C_word 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_16310,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_16317,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:1580: irregex? */ t5=*((C_word*)lf[3]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* a24155 in a24149 in k24135 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_ccall f_24156(C_word c,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_24156,2,av);} /* irregex-core.scm:3212: next */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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);}} /* k13672 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_13674(C_word t0,C_word t1){ C_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_13674,2,t0,t1);} a=C_alloc(20); if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13685,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:3773: cset-union */ t8=lf[151];{ C_word av2[4]; av2[0]=t8; av2[1]=t4; av2[2]=t5; av2[3]=t7; f_27373(4,av2);}} else{ t2=((C_word*)t0)[7]; if(C_truep(t2)){ t3=C_fixnum_plus(((C_word*)t0)[2],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_13702,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word)li84),tmp=(C_word)a,a+=6,tmp); t7=C_eqp(C_make_character(92),t5); t8=(C_truep(t7)?C_i_assq(t5,lf[156]):C_SCHEME_FALSE); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13730,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_13731,a[2]=((C_word*)t0)[2],a[3]=((C_word)li85),tmp=(C_word)a,a+=4,tmp); t11=( /* irregex-core.scm:1238: g1864 */ f_13731(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_13752,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_fixnum_plus(((C_word*)t0)[2],C_fix(2)); t13=C_i_string_ref(((C_word*)t0)[8],t12); t14=t10; f_13752(t14,C_eqp(t13,C_make_character(120)));} else{ t12=t10; f_13752(t12,C_SCHEME_FALSE);}}} else{ /* irregex-core.scm:1230: error */ t3=*((C_word*)lf[25]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=lf[159]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} /* adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_15865(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_15865,5,t0,t1,t2,t3,t4);} a=C_alloc(29); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15868,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=((C_word)li210),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[145]); if(C_truep(t8)){ t9=t2; t10=C_u_i_cdr(t9); t11=( /* irregex-core.scm:1534: sre-sequence */ f_18372(C_a_i(&a,3),t10) ); /* irregex-core.scm:1534: 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[146]); if(C_truep(t9)){ t10=t2; t11=C_u_i_cdr(t10); t12=( /* irregex-core.scm:1535: sre-sequence */ f_18372(C_a_i(&a,3),t11) ); /* irregex-core.scm:1535: 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[210]); 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_15925,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li211),tmp=(C_word)a,a+=5,tmp); t18=t2; t19=C_u_i_cdr(t18); t20=C_i_check_list_2(t19,lf[198]); t21=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15936,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_15938,a[2]=t15,a[3]=t23,a[4]=t17,a[5]=t16,a[6]=((C_word)li212),tmp=(C_word)a,a+=7,tmp)); t25=((C_word*)t23)[1]; f_15938(t25,t21,t19);} else{ t11=C_eqp(t7,lf[211]); 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_15986,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li213),tmp=(C_word)a,a+=5,tmp); t19=t2; t20=C_u_i_cdr(t19); t21=C_i_check_list_2(t20,lf[198]); t22=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15997,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_15999,a[2]=t16,a[3]=t24,a[4]=t18,a[5]=t17,a[6]=((C_word)li214),tmp=(C_word)a,a+=7,tmp)); t26=((C_word*)t24)[1]; f_15999(t26,t22,t20);} else{ t12=C_eqp(t7,lf[43]); t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16040,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=t2,a[6]=t7,a[7]=t5,tmp=(C_word)a,a+=8,tmp); if(C_truep(t12)){ t14=t13; f_16040(t14,t12);} else{ t14=C_eqp(t7,lf[168]); if(C_truep(t14)){ t15=t13; f_16040(t15,t14);} else{ t15=C_eqp(t7,lf[219]); t16=t13; f_16040(t16,(C_truep(t15)?t15:C_eqp(t7,lf[232])));}}}}}}} else{ t6=t2; t7=C_eqp(t6,lf[114]); if(C_truep(t7)){ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=lf[261]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(t6,lf[115]); if(C_truep(t8)){ t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=lf[262]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16248,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_16248(t12,C_fixnum_less_or_equal_p(C_fix(128),t11));} else{ t10=t9; f_16248(t10,C_SCHEME_FALSE);}} else{ t10=t9; f_16248(t10,C_SCHEME_FALSE);}}}}} /* rec in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_15868(C_word c,C_word *av){ C_word tmp; C_word 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_15868,3,av);} /* irregex-core.scm:1530: adjust */ t3=((C_word*)((C_word*)t0)[2])[1]; f_15865(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k16369 in k16315 in irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_16371,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_u_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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* k13644 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_13646,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13649,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_13653,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[4])){ /* irregex-core.scm:1221: cset-complement */ f_27904(t3,t1);} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; f_13653(2,av2);}}} /* k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29786(C_word t0,C_word t1){ C_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_29786,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29789,a[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_29800,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: display */ t5=*((C_word*)lf[425]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=lf[440]; 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_29511(3,av2);}}} else{ t2=C_eqp(((C_word*)t0)[6],lf[221]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29856,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_29886,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* irregex-utils.scm:113: caadr */ t6=*((C_word*)lf[446]+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_29856(t5,C_SCHEME_FALSE);}} else{ t3=C_eqp(((C_word*)t0)[6],lf[445]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29899,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: display */ t5=*((C_word*)lf[425]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=lf[448]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=C_eqp(((C_word*)t0)[6],lf[232]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_29920,a[2]=((C_word*)t0)[2],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_29920(t6,t4);} else{ t6=C_eqp(((C_word*)t0)[6],lf[219]); if(C_truep(t6)){ t7=t5; f_29920(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[6],lf[43]); t8=t5; f_29920(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[6],lf[168])));}}}}}} /* k13647 in k13644 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13649(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_13649,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k29787 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_29789,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); /* irregex-utils.scm:110: display */ t4=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k24135 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24137(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_24137,2,av);} a=C_alloc(14); if(C_truep(t1)){ /* irregex-core.scm:3202: error */ t2=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[215]; 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_24143,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:3206: sre-sequence */ f_18372(C_a_i(&a,3),t6) ); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24150,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word)li140),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:3206: lp */ t9=((C_word*)((C_word*)t0)[5])[1]; f_23698(t9,t4,t7,((C_word*)t0)[6],((C_word*)t0)[7],t8);}} /* f_25793 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ 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=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_25793,10,av);} a=C_alloc(28); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25800,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_25809,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_25893,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:3494: g4949 */ t15=t13;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} /* k24141 in k24135 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_24143,2,av);} t2=C_mutate2(((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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_25701 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_25701(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,2)))){ C_save_and_reclaim((void *)f_25701,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25708,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=t3; t14=C_u_i_cdr(t13); t15=t10; f_25708(t15,C_i_eqvp(t6,t14));} else{ t13=t10; f_25708(t13,C_SCHEME_FALSE);}} /* a24112 in a24106 in k24081 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_ccall f_24113(C_word c,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_24113,2,av);} /* irregex-core.scm:3193: body */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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);}} /* k25706 */ static void C_fcall f_25708(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_25708,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);}}} /* k13683 in k13672 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13685,2,av);} /* irregex-core.scm:1228: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13600(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* a13102 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13103(C_word c,C_word *av){ C_word tmp; C_word 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_13103,3,av);} t3=C_u_i_char_numericp(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_not(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11258 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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:878: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10523(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_END_OF_LIST,t1);} /* k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ 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 t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_20209,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_20221,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_20221(t19,C_i_vector_set(t16,t18,C_SCHEME_FALSE));} else{ t12=t11; f_20221(t12,C_SCHEME_UNDEFINED);}} /* k17586 in k17590 in a17562 in a17548 in a17534 in k17531 in k17524 in k17521 in k17515 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in ... */ static void C_ccall f_17588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_17588,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],t1); /* irregex-core.scm:1758: return */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_13600(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 t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,0,5)))){ C_save_and_reclaim_args((void *)trf_13600,5,t0,t1,t2,t3,t4);} a=C_alloc(16); t5=t2; if(C_truep(C_fixnum_greater_or_equal_p(t5,((C_word*)t0)[2]))){ /* irregex-core.scm:1212: error */ t6=*((C_word*)lf[25]+1);{ C_word av2[6]; av2[0]=t6; av2[1]=t1; av2[2]=lf[150]; 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=C_fixnum_plus(t2,C_fix(1)); t12=t11; t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13636,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:3773: cset-union */ t17=lf[151];{ C_word av2[4]; av2[0]=t17; av2[1]=t13; av2[2]=t14; av2[3]=t16; f_27373(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_13646,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:1220: cset-case-insensitive */ f_27914(t13,t4);} else{ t14=t13;{ C_word av2[2]; av2[0]=t14; av2[1]=t4; f_13646(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_13674,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_13674(t11,t9);} else{ t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13829,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_13829(t16,C_eqp(C_make_character(94),t15));} else{ t15=t11; f_13829(t15,C_SCHEME_FALSE);}} case C_make_character(91): t8=C_fixnum_plus(t2,C_fix(1)); t9=C_i_string_ref(((C_word*)t0)[3],t8); t10=C_eqp(C_make_character(94),t9); t11=t10; t12=(C_truep(t11)?C_fixnum_plus(t2,C_fix(2)):C_fixnum_plus(t2,C_fix(1))); t13=t12; t14=C_i_string_ref(((C_word*)t0)[3],t13); t15=C_eqp(t14,C_make_character(58)); if(C_truep(t15)){ t16=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13883,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=t11,a[7]=t13,tmp=(C_word)a,a+=8,tmp); t17=C_fixnum_plus(t13,C_fix(1)); /* irregex-core.scm:1254: string-scan-char */ t18=lf[45];{ C_word av2[5]; av2[0]=t18; av2[1]=t16; av2[2]=((C_word*)t0)[3]; av2[3]=C_make_character(58); av2[4]=t17; ((C_proc)(void*)(*((C_word*)t18+1)))(5,av2);}} else{ t16=C_eqp(t14,C_make_character(61)); t17=(C_truep(t16)?t16:C_eqp(t14,C_make_character(46))); if(C_truep(t17)){ /* irregex-core.scm:1263: error */ t18=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t18; av2[1]=t1; av2[2]=lf[162]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}} else{ t18=C_fixnum_plus(t2,C_fix(1)); t19=t18; t20=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13970,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t19,tmp=(C_word)a,a+=5,tmp); t21=t4; t22=C_a_i_cons(&a,2,C_make_character(91),C_make_character(91)); t23=C_a_i_vector1(&a,1,t22); /* irregex-core.scm:3773: cset-union */ t24=lf[151];{ C_word av2[4]; av2[0]=t24; av2[1]=t20; av2[2]=t21; av2[3]=t23; f_27373(4,av2);}}} case C_make_character(92): t8=C_fixnum_plus(t2,C_fix(1)); t9=C_i_string_ref(((C_word*)t0)[3],t8); t10=t9; t11=t10; t12=C_eqp(t11,C_make_character(100)); t13=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_14012,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t4,a[6]=t10,a[7]=t11,a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp); if(C_truep(t12)){ t14=t13; f_14012(t14,t12);} else{ t14=C_eqp(t11,C_make_character(68)); if(C_truep(t14)){ t15=t13; f_14012(t15,t14);} else{ t15=C_eqp(t11,C_make_character(115)); if(C_truep(t15)){ t16=t13; f_14012(t16,t15);} else{ t16=C_eqp(t11,C_make_character(83)); if(C_truep(t16)){ t17=t13; f_14012(t17,t16);} else{ t17=C_eqp(t11,C_make_character(119)); t18=t13; f_14012(t18,(C_truep(t17)?t17:C_eqp(t11,C_make_character(87))));}}}} default: t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14133,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_14133(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_14133(t9,C_SCHEME_FALSE);}}}} /* k17590 in a17562 in a17548 in a17534 in k17531 in k17524 in k17521 in k17515 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in ... */ static void C_ccall f_17592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_17592,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_17588,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:1760: max */ t5=*((C_word*)lf[239]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:1758: return */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:1758: return */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:1758: return */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* lp in k10679 in collect/single in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static C_word C_fcall f_14443(C_word t0,C_word t1){ C_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=t1; t3=C_eqp(t2,C_fix(0)); if(C_truep(t3)){ return(C_fix(0));} else{ t4=C_i_string_ref(((C_word*)t0)[2],t1); t5=C_fix(C_character_code(t4)); t6=C_fixnum_lessp(t5,C_fix(128)); t7=(C_truep(t6)?t6:C_fixnum_greater_or_equal_p(t5,C_fix(192))); if(C_truep(t7)){ return(t1);} else{ t8=C_fixnum_difference(t1,C_fix(1)); t10=t8; t1=t10; goto loop;}}} /* k13634 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13636,2,av);} /* irregex-core.scm:1217: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13600(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(93),t1);} /* a17562 in a17548 in a17534 in k17531 in k17524 in k17521 in k17515 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in ... */ static void C_ccall f_17563(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_17563,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17592,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:1758: min */ t5=*((C_word*)lf[240]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a11289 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_11290(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_11290,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_11300,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_11300(t7,t5);} else{ t7=C_i_string_ref(((C_word*)t0)[3],t3); t8=C_eqp(C_make_character(41),t7); t9=t6; f_11300(t9,C_i_not(t8));}} /* k15811 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_15813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_15813,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:1521: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_15753(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2,((C_word*)t0)[6]);} /* k13651 in k13644 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_13653,2,av);} a=C_alloc(10); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27229,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27231,a[2]=((C_word)li83),tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27249,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3722: vector->list */ t6=*((C_word*)lf[152]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* lp in irregex-apply-match in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_28662(C_word t0,C_word t1,C_word 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_28662,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_28688,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:3978: irregex-match-substring */ t10=*((C_word*)lf[34]+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_28713,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:3980: g5547 */ 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[408]); if(C_truep(t11)){ t12=t2; t13=C_u_i_cdr(t12); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28739,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:3985: substring */ t22=*((C_word*)lf[38]+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[409]); 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_28803,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:3992: substring */ t26=*((C_word*)lf[38]+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_28865,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:3998: 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:4003: lp */ t27=t1; t28=t10; t29=t13; t1=t27; t2=t28; t3=t29; goto loop;}}}}} /* k19257 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19259(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_19259,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a17548 in a17534 in k17531 in k17524 in k17521 in k17515 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex 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=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_17549,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[107]); 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_17563,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)li197),tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1753: lp */ t9=((C_word*)((C_word*)t0)[9])[1]; f_17273(t9,t1,t6,t7,C_fix(0),C_fix(0),t8);} /* irregex-apply-match in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28656(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_28656,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_28662,a[2]=t5,a[3]=t2,a[4]=((C_word)li357),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_28662(t7,t1,t3,C_SCHEME_END_OF_LIST);} /* lp1 in k19294 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_19313(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_19313,4,t0,t1,t2,t3);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19317,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:1984: 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);}} /* utf8-lowest-digit-of-length in k9756 in k7760 in k7529 */ static void C_fcall f_14482(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_14482,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:1377: error */ t4=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=lf[194]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k19315 in lp1 in k19294 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_19317,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_19322,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)li238),tmp=(C_word)a,a+=12,tmp)); t6=((C_word*)t4)[1]; f_19322(t6,((C_word*)t0)[9],((C_word*)t0)[10]);} /* k10292 in k10289 in scan */ static void C_ccall f_10294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_10294,2,av);} a=C_alloc(9); t2=C_a_i_string_to_number(&a,2,t1,C_fix(10)); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10304,a[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)){ /* irregex-core.scm:699: k */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* irregex-core.scm:699: string->symbol */ t4=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k10289 in scan */ static void C_fcall f_10291(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_10291,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10294,a[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:698: substring */ t3=*((C_word*)lf[38]+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:700: scan */ t3=((C_word*)((C_word*)t0)[7])[1]; f_10281(t3,((C_word*)t0)[3],t2);}} /* lp2 in k19315 in lp1 in k19294 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_19322(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_19322,3,t0,t1,t2);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19329,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:1987: dfa-match/longest */ f_20184(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));} /* k19327 in lp2 in k19315 in lp1 in k19294 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ 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(5,c,2)))){ C_save_and_reclaim((void *)f_19329,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; /* Re-use our own argvector */ 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_19364,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:1992: get-next */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:1995: lp2 */ t4=((C_word*)((C_word*)t0)[10])[1]; f_19322(t4,((C_word*)t0)[5],t3);}}} /* k17531 in k17524 in k17521 in k17515 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in ... */ static void C_fcall f_17533(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_17533,2,t0,t1);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17535,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li199),tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1746: lp */ t3=((C_word*)((C_word*)t0)[7])[1]; f_17273(t3,((C_word*)t0)[8],t1,((C_word*)t0)[3],((C_word*)t0)[9],((C_word*)t0)[10],t2);} /* k19206 in k19203 in k19200 in k19197 in irregex-search/chunked in k19097 in k9756 in k7760 in k7529 */ 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; 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_19208,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:1961: irregex-search/matches */ t5=*((C_word*)lf[277]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t5; av2[1]=((C_word*)t0)[6]; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[2]; av2[4]=t4; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; av2[7]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(8,av2);}} /* k19203 in k19200 in k19197 in irregex-search/chunked in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_19205,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19208,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_integerp(t2))){ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_19208(2,av2);}} else{ /* irregex-core.scm:1959: error */ t4=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[272]; av2[3]=lf[278]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k19200 in k19197 in irregex-search/chunked in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_19202,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19205,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_u_i_car(t4); f_19205(2,av2);}} else{ t4=((C_word*)t0)[2]; t5=C_i_vector_ref(t4,C_fix(2)); /* irregex-core.scm:1958: g3215 */ t6=t5;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k28642 in a28622 in k28572 in irregex-replace/all in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_28644,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:3967: string-cat-reverse */ f_9098(((C_word*)t0)[3],t2);} /* a17534 in k17531 in k17524 in k17521 in k17515 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in ... */ 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=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_17535,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_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]=t2,a[7]=t3,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word)li198),tmp=(C_word)a,a+=11,tmp); /* irregex-core.scm:1751: lp */ t7=((C_word*)((C_word*)t0)[7])[1]; f_17273(t7,t1,t4,t5,C_fix(0),C_fix(0),t6);} /* k28619 in k28605 in a28578 in k28572 in irregex-replace/all in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_28621,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:3959: append */ t3=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17498 in a17466 in lp2 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_ccall f_17500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_17500,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_17483,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:1737: min */ t5=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=((C_word*)t0)[9]; f_17483(2,av2);}}} /* k17515 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_17517(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_17517,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ /* irregex-core.scm:1742: 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_17523,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:1744: sre-count-submatches */ f_17161(t2,t4);}} /* scan */ static void C_fcall f_10281(C_word t0,C_word t1,C_word t2){ C_word 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_10281,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_10291,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_10291(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_10291(t8,t7);} else{ t8=C_u_i_memq(t6,lf[76]); t9=t5; f_10291(t9,t8);}}} /* a28622 in k28572 in irregex-replace/all in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28623(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_28623,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:3967: string-cat-reverse */ f_9098(t1,t6);} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28644,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3969: substring */ t7=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* g3943 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_21725(C_word t0,C_word t1,C_word 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_21725,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_21743,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:2631: error */ t5=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=lf[375]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k19362 in k19327 in lp2 in k19315 in lp1 in k19294 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ 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; 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_19364,2,av);} a=C_alloc(5); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19374,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:1993: get-start */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10698 in collect/terms in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_10700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_10700,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10703,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_10926,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:782: last */ f_9248(t4,t2);} else{ t4=t3; f_10703(t4,C_SCHEME_FALSE);}} /* irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19240(C_word c,C_word *av){ C_word tmp; C_word t0=av[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); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_19240,8,av);} a=C_alloc(9); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19247,a[2]=t2,a[3]=t7,a[4]=t5,a[5]=t6,a[6]=t1,a[7]=t3,a[8]=t4,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1967: irregex-dfa */ t9=*((C_word*)lf[5]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,9)))){ C_save_and_reclaim((void *)f_19247,2,av);} a=C_alloc(20); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_slot(t2,C_fix(4)); t4=C_fixnum_and(t3,C_fix(1)); t5=C_eqp(C_fix(1),t4); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19259,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); t7=((C_word*)t0)[2]; t8=C_slot(t7,C_fix(1)); /* irregex-core.scm:1971: dfa-match/longest */ f_20184(t6,t8,((C_word*)t0)[7],((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3],C_fix(0));} else{ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19296,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); t7=((C_word*)t0)[2]; t8=C_slot(t7,C_fix(2)); t9=t8; t10=((C_word*)t0)[7]; t11=((C_word*)t0)[4]; t12=((C_word*)t0)[5]; t13=((C_word*)t0)[3]; t14=C_i_vector_ref(t10,C_fix(1)); t15=t14; t16=C_i_vector_ref(t10,C_fix(2)); t17=t16; t18=C_i_vector_ref(t10,C_fix(3)); t19=t18; t20=C_i_vector_ref(t10,C_fix(0)); t21=t20; t22=C_i_vector_ref(t9,C_fix(0)); t23=C_i_cadr(t22); t24=C_i_cadr(t23); t25=C_i_vector_ref(t9,t24); 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|9,a[1]=(C_word)f_19917,a[2]=t13,a[3]=t9,a[4]=t27,a[5]=t17,a[6]=t21,a[7]=t19,a[8]=t15,a[9]=((C_word)li242),tmp=(C_word)a,a+=10,tmp)); t29=((C_word*)t27)[1]; f_19917(t29,t6,t11,t12,t25);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19395,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp); t3=t2; t4=((C_word*)t0)[2]; t5=((C_word*)t0)[7]; t6=((C_word*)t0)[8]; t7=((C_word*)t0)[4]; t8=((C_word*)t0)[5]; t9=((C_word*)t0)[3]; t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19407,a[2]=t5,a[3]=t4,a[4]=t3,a[5]=t6,a[6]=t7,a[7]=t8,a[8]=t9,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:2004: irregex-nfa */ t11=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}} /* k28605 in a28578 in k28572 in irregex-replace/all in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_28607,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:3959: append */ t5=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_28621,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:3962: substring */ t5=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k19372 in k19362 in k19327 in lp2 in k19315 in lp1 in k19294 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19374,2,av);} /* irregex-core.scm:1993: lp1 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_19313(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k10707 in k10704 in k10701 in k10698 in collect/terms in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_10709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_10709,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_10714,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word)li75),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_10714(t5,((C_word*)t0)[4],t1,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* k10704 in k10701 in k10698 in collect/terms in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_10706(C_word 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_10706,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10709,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[109]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[110]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10879,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:792: ##sys#fast-reverse */ t6=*((C_word*)lf[61]+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_10890,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:793: ##sys#fast-reverse */ t6=*((C_word*)lf[61]+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_10709(2,av2);}}} /* k10701 in k10698 in collect/terms in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_10703(C_word 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_10703,2,t0,t1);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10706,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_10893,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_10893(t6,C_u_i_memq(t5,lf[111]));} else{ t5=t4; f_10893(t5,C_SCHEME_FALSE);}} /* dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20184(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_20184,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_eqp(t25,C_fix(0)); t27=C_i_not(t26); t28=t27; t29=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_20209,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_20182,a[2]=t31,a[3]=t30,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2141: irregex-match-num-submatches */ t34=*((C_word*)lf[18]+1);{ C_word av2[3]; av2[0]=t34; av2[1]=t33; av2[2]=t32; ((C_proc)(void*)(*((C_word*)t34+1)))(3,av2);}} /* k20180 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_20182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_20182,2,av);} a=C_alloc(5); t2=C_fixnum_shift_left(t1,C_fix(1)); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20152,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:2142: make-vector */ t5=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* shift in lp in k10707 in k10704 in k10701 in k10698 in collect/terms in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static C_word C_fcall f_10717(C_word *a,C_word t0){ C_word tmp; C_word t1; C_word t2; C_stack_overflow_check;{} t1=( /* irregex-core.scm:797: sre-sequence */ f_18372(C_a_i(&a,3),((C_word*)t0)[2]) ); return(C_a_i_cons(&a,2,t1,((C_word*)t0)[3]));} /* lp in k10707 in k10704 in k10701 in k10698 in collect/terms in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_10714(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(31,0,4)))){ C_save_and_reclaim_args((void *)trf_10714,5,t0,t1,t2,t3,t4);} a=C_alloc(31); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10717,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t2))){ t6=( /* irregex-core.scm:800: shift */ f_10717(C_a_i(&a,6),t5) ); t7=( /* irregex-core.scm:800: sre-alternate */ f_18395(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[98],t7):t7); t12=t11; if(C_truep(((C_word*)t0)[3])){ t13=C_i_car(((C_word*)t0)[3]); t14=C_eqp(lf[99],t13); if(C_truep(t14)){ if(C_truep(C_i_pairp(t12))){ t15=C_i_car(t12); if(C_truep((C_truep(C_eqp(t15,lf[100]))?C_SCHEME_TRUE:(C_truep(C_eqp(t15,lf[101]))?C_SCHEME_TRUE:(C_truep(C_eqp(t15,lf[102]))?C_SCHEME_TRUE:(C_truep(C_eqp(t15,lf[103]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))){ t16=t1;{ C_word av2[2]; av2[0]=t16; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ t16=C_u_i_car(t12); t17=C_eqp(lf[104],t16); if(C_truep(t17)){ t18=C_i_cadr(t12); t19=C_u_i_cdr(t12); t20=C_u_i_cdr(t19); t21=( /* irregex-core.scm:815: sre-sequence */ f_18372(C_a_i(&a,3),t20) ); t22=t1;{ C_word av2[2]; av2[0]=t22; av2[1]=C_a_i_list(&a,3,lf[99],t18,t21); ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}} else{ t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10787,a[2]=t12,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:817: cadadr */ t19=*((C_word*)lf[106]+1);{ C_word av2[3]; av2[0]=t19; av2[1]=t18; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}}}} else{ t15=t1;{ C_word av2[2]; av2[0]=t15; av2[1]=lf[107]; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}} else{ t15=C_a_i_list(&a,1,t12); /* irregex.scm:239: ##sys#append */ t16=*((C_word*)lf[108]+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[93],t6); if(C_truep(t7)){ t8=t2; t9=C_u_i_cdr(t8); t10=( /* irregex-core.scm:822: shift */ f_10717(C_a_i(&a,6),t5) ); /* irregex-core.scm:822: lp */ t23=t1; t24=t9; t25=C_SCHEME_END_OF_LIST; t26=t10; t1=t23; t2=t24; t3=t25; t4=t26; 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:823: lp */ t23=t1; t24=t9; t25=t12; t26=t4; t1=t23; t2=t24; t3=t25; t4=t26; goto loop;}}} /* k20176 in doloop3496 in k20150 in k20180 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ 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 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_20178,2,av);} t2=C_i_vector_set(((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_20157(t4,((C_word*)t0)[5],t3);} /* k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_17264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_17264,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17271,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_17273,a[2]=t5,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word)li207),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_17273(t7,t3,((C_word*)t0)[4],C_fix(1),C_fix(0),C_fix(0),*((C_word*)lf[251]+1));} /* cset->plist in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_26671(C_word t1,C_word 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(7,0,4)))){ C_save_and_reclaim_args((void *)trf_26671,2,t1,t2);} a=C_alloc(7); t3=C_i_vector_length(t2); t4=C_fixnum_difference(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_26681,a[2]=t2,a[3]=t6,a[4]=((C_word)li316),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_26681(t8,t1,t4,C_SCHEME_END_OF_LIST);} /* k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_17261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_17261,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17264,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_18363,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:1704: sre-count-submatches */ f_17161(t4,((C_word*)t0)[3]);} /* lp2 in lp in k23153 in k23149 in k23145 in nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_23180(C_word t0,C_word t1,C_word 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(14,0,4)))){ C_save_and_reclaim_args((void *)trf_23180,4,t0,t1,t2,t3);} a=C_alloc(14); if(C_truep(C_i_nullp(t2))){ /* irregex-core.scm:2987: lp */ t4=((C_word*)((C_word*)t0)[2])[1]; f_23157(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_23209,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)li304),tmp=(C_word)a,a+=10,tmp); /* irregex-core.scm:2994: g4266 */ t10=t9; f_23209(t10,t1,t8);} else{ t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23237,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=t9; t11=((C_word*)t0)[4]; t12=t5; t13=((C_word*)t0)[8]; t14=C_fixnum_plus(t12,C_fix(3)); if(C_truep(C_i_vector_ref(t11,t14))){ t15=C_fixnum_plus(t12,C_fix(3)); t16=t10;{ C_word av2[2]; av2[0]=t16; av2[1]=C_i_vector_set(t11,t15,t13); ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22287,a[2]=t11,a[3]=t12,a[4]=t10,a[5]=t13,tmp=(C_word)a,a+=6,tmp); t16=C_i_vector_ref(t11,C_fix(2)); t17=C_fixnum_plus(t16,t12); t18=C_i_vector_length(((C_word*)t0)[7]); t19=C_fixnum_divide(t18,C_fix(4)); /* irregex-core.scm:2749: modulo */ t20=*((C_word*)lf[381]+1);{ C_word av2[4]; av2[0]=t20; av2[1]=t15; av2[2]=t17; av2[3]=t19; ((C_proc)(void*)(*((C_word*)t20+1)))(4,av2);}}}} else{ t7=t2; t8=C_u_i_cdr(t7); /* irregex-core.scm:3006: lp2 */ t21=t1; t22=t8; t23=t3; t1=t21; t2=t22; t3=t23; goto loop;}}} /* k20150 in k20180 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_20152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_20152,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_20157,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li264),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_20157(t6,((C_word*)t0)[4],C_fix(0));} /* grow in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_17276(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_17276,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:1709: 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:1709: 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);}}} /* doloop3496 in k20150 in k20180 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20157(C_word 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_20157,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_20178,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:2145: make-vector */ t6=*((C_word*)lf[2]+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);}}} /* lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_17273(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_17273,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(19); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17276,a[2]=t4,a[3]=t5,a[4]=t6,a[5]=((C_word)li192),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:1713: grow */ t10=t7; f_17276(t10,t1,C_fix(1));} else{ t10=t2; t11=C_u_i_car(t10); t12=C_eqp(t11,lf[43]); t13=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_17316,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_17316(t14,t12);} else{ t14=C_eqp(t11,lf[168]); if(C_truep(t14)){ t15=t13; f_17316(t15,t14);} else{ t15=C_eqp(t11,lf[219]); t16=t13; f_17316(t16,(C_truep(t15)?t15:C_eqp(t11,lf[232])));}}}} else{ if(C_truep(C_charp(t2))){ /* irregex-core.scm:1828: grow */ t8=t7; f_17276(t8,t1,C_fix(1));} else{ if(C_truep(C_i_stringp(t2))){ t8=t2; t9=C_block_size(t8); /* irregex-core.scm:1830: grow */ t10=t7; f_17276(t10,t1,t9);} else{ t8=t2; if(C_truep((C_truep(C_eqp(t8,lf[114]))?C_SCHEME_TRUE:(C_truep(C_eqp(t8,lf[115]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ /* irregex-core.scm:1832: grow */ t9=t7; f_17276(t9,t1,C_fix(1));} else{ t9=t2; if(C_truep((C_truep(C_eqp(t9,lf[107]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[175]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[176]))?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[172]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[173]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[174]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[249]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))))))){ /* irregex-core.scm:1834: 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[233]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18340,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:1838: g2983 */ 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:1838: 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:1840: error */ t11=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t1; av2[2]=lf[246]; av2[3]=lf[250]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}}}}}}} /* lp in cset->plist in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_26681(C_word t0,C_word t1,C_word 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_26681,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:3661: lp */ t14=t1; t15=t6; t16=t12; t1=t14; t2=t15; t3=t16; goto loop;}} /* k17269 in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ 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; 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_17271,2,av);} t2=C_i_vector_set(((C_word*)t0)[2],C_fix(0),t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k12479 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_12481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_12481,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_10523(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k12450 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12452,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[70],t1); /* irregex-core.scm:1047: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10523(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k20130 in for-each-loop3465 in finalize! in k19097 in k9756 in k7760 in k7529 */ 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 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_20132,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_20122(t3,((C_word*)t0)[4],t2);} /* k23149 in k23145 in nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_23151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_23151,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23155,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:2979: mst-copy */ f_22126(t3,((C_word*)t0)[5]);} /* k23153 in k23149 in k23145 in nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_23155(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_23155,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_23157,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li306),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_23157(t5,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* for-each-loop3465 in finalize! in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20122(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_20122,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_20132,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:2129: g3466 */ t5=((C_word*)t0)[3]; f_20058(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);}}} /* k17222 in k17192 in count in sre-count-submatches in k9756 in k7760 in k7529 */ static void C_ccall f_17224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17224,2,av);} /* irregex-core.scm:1697: sre-count-submatches */ f_17161(((C_word*)t0)[2],t1);} /* k12992 in lp2 in k12921 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12994,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:1110: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10523(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* lp in k23153 in k23149 in k23145 in nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_23157(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_23157,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:2984: nfa-get-epsilons */ f_20789(((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_23180,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)li305),tmp=(C_word)a,a+=10,tmp)); t16=((C_word*)t14)[1]; f_23180(t16,t1,t10,t12);}} /* k28686 in lp in irregex-apply-match in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_28688,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:3977: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_28662(t4,((C_word*)t0)[4],((C_word*)t0)[5],t3);} else{ t2=C_a_i_cons(&a,2,lf[407],((C_word*)t0)[2]); /* irregex-core.scm:3977: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_28662(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}} /* k18107 in g2979 in k18089 in k18049 in k17667 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_18109,2,av);} /* irregex-core.scm:1824: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17273(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* g2979 in k18089 in k18049 in k17667 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in ... */ static void C_fcall f_18101(C_word 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_18101,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18109,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);}} /* k23145 in nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_23147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_23147,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23151,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_fixnum_divide(t4,C_fix(4)); /* irregex-core.scm:2978: make-vector */ t6=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10785 in lp in k10707 in k10704 in k10701 in k10698 in collect/terms in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_10787,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10803,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:818: cddadr */ t4=*((C_word*)lf[105]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* lp2 in k12921 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_12932(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word 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,6)))){ C_save_and_reclaim_args((void *)trf_12932,3,t0,t1,t2);} a=C_alloc(9); 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:1104: lp */ t5=((C_word*)((C_word*)t0)[4])[1]; f_10523(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=C_fixnum_plus(t2,C_fix(1)); if(C_truep(C_fixnum_greater_or_equal_p(t6,((C_word*)t0)[2]))){ t7=C_fixnum_plus(t2,C_fix(1)); t8=C_fixnum_plus(((C_word*)t0)[3],C_fix(2)); /* irregex-core.scm:1108: lp */ t9=((C_word*)((C_word*)t0)[4])[1]; f_10523(t9,t1,t7,t8,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} else{ t7=C_fixnum_plus(t2,C_fix(1)); t8=C_i_string_ref(((C_word*)t0)[8],t7); t9=C_eqp(C_make_character(69),t8); if(C_truep(t9)){ t10=C_fixnum_plus(t2,C_fix(2)); t11=t10; t12=C_fixnum_plus(t2,C_fix(2)); t13=t12; t14=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12994,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t11,a[6]=t13,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t15=C_fixnum_plus(((C_word*)t0)[3],C_fix(2)); /* irregex-core.scm:1111: substring */ t16=*((C_word*)lf[38]+1);{ C_word av2[5]; av2[0]=t16; av2[1]=t14; av2[2]=((C_word*)t0)[8]; av2[3]=t15; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}} else{ t10=C_fixnum_plus(t2,C_fix(2)); /* irregex-core.scm:1113: lp2 */ t17=t1; t18=t10; t1=t17; t2=t18; goto loop;}}} else{ t6=C_fixnum_plus(t2,C_fix(1)); /* irregex-core.scm:1115: lp2 */ t17=t1; t18=t6; t1=t17; t2=t18; goto loop;}}} /* k17521 in k17515 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_17523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_17523,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17526,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:1745: sre-count-submatches */ f_17161(t3,t4);} /* k17524 in k17521 in k17515 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_ccall f_17526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_17526,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17533,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_17533(t6,lf[107]);} else{ t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=t3; f_17533(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_17533(t9,lf[107]);} else{ t9=((C_word*)t0)[2]; t10=C_u_i_cdr(t9); t11=t3; f_17533(t11,C_u_i_car(t10));}}} /* k16246 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_16248(C_word t0,C_word 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_16248,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_16258,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:1563: char->utf8-list */ f_14558(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);}}} /* cset-union in k19097 in k9756 in k7760 in k7529 */ 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=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_27373,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27381,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3749: vector->list */ t5=*((C_word*)lf[152]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k27379 in cset-union in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_27381,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27385,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3750: vector->list */ t4=*((C_word*)lf[152]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* union-range in k27383 in k27379 in cset-union in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_27387(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(10,0,4)))){ C_save_and_reclaim_args((void *)trf_27387,5,t0,t1,t2,t3,t4);} a=C_alloc(10); if(C_truep(C_i_nullp(t2))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27401,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27405,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27409,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3753: ##sys#fast-reverse */ t8=*((C_word*)lf[61]+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_27422,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27426,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27430,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3754: ##sys#fast-reverse */ t8=*((C_word*)lf[61]+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_fixnum_plus(t8,C_fix(1)); t10=C_i_car(t6); t11=C_fix(C_character_code(t10)); if(C_truep(C_fixnum_lessp(t9,t11))){ t12=t2; t13=C_u_i_cdr(t12); t14=C_a_i_cons(&a,2,t5,t4); /* irregex-core.scm:3762: 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_fixnum_plus(t15,C_fix(1)); if(C_truep(C_fixnum_greaterp(t13,t16))){ t17=t3; t18=C_u_i_cdr(t17); t19=C_a_i_cons(&a,2,t6,t4); /* irregex-core.scm:3764: 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_27485,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:3766: char-ranges-union */ f_27337(t19,t5,t6);} else{ t19=t2; t20=C_u_i_cdr(t19); t21=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27500,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:3770: char-ranges-union */ f_27337(t21,t5,t6);}}}}}} /* k27383 in k27379 in cset-union in k19097 in k9756 in k7760 in k7529 */ 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 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_27385,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_27387,a[2]=t3,a[3]=((C_word)li333),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_27387(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* k16256 in k16246 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_16258,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16261,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_16263,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word)li217),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_16263(t6,t2,t1);} /* k16259 in k16256 in k16246 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16261(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_16261,2,av);} a=C_alloc(3); /* irregex-core.scm:1563: sre-sequence */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=( /* irregex-core.scm:1563: sre-sequence */ f_18372(C_a_i(&a,3),t1) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop2484 in k16256 in k16246 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_16263(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_16263,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_mutate2(((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);}}} /* k15043 in k15037 in k15111 in unicode-range-up-from in k9756 in k7760 in k7529 */ static void C_ccall f_15045(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_15045,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15065,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1453: last */ f_9248(t3,((C_word*)t0)[3]);} /* k12425 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_12427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_12427,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1045: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10523(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* g4266 in lp2 in lp in k23153 in k23149 in k23145 in nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_23209(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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_23209,3,t0,t1,t2);} a=C_alloc(15); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23213,a[2]=((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_22565,a[2]=t9,a[3]=((C_word)li303),tmp=(C_word)a,a+=4,tmp); t11=( f_22565(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_23213(t13,t11);} else{ t12=t3; f_23213(t12,t11);}} /* k15030 in k15111 in unicode-range-up-from in k9756 in k7760 in k7529 */ static void C_ccall f_15032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_15032,2,av);} a=C_alloc(6); t2=( /* irregex-core.scm:1450: sre-sequence */ f_18372(C_a_i(&a,3),t1) ); t3=C_a_i_list1(&a,1,t2); /* irregex-core.scm:1444: unicode-range-helper */ f_14828(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_END_OF_LIST,t3);} /* k15037 in k15111 in unicode-range-up-from in k9756 in k7760 in k7529 */ static void C_ccall f_15039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_15039,2,av);} a=C_alloc(12); t2=C_i_check_list_2(t1,lf[198]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15045,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_15067,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_15067(t7,t3,t1);} /* k12093 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_12095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_12095,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:992: lp */ t6=((C_word*)((C_word*)t0)[3])[1]; f_10523(t6,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t3,t5);} /* map-loop2093 in k15037 in k15111 in unicode-range-up-from in k9756 in k7760 in k7529 */ static void C_fcall f_15067(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_15067,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_mutate2(((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);}}} /* k15063 in k15043 in k15037 in k15111 in unicode-range-up-from in k9756 in k7760 in k7529 */ static void C_ccall f_15065(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_15065,2,av);} a=C_alloc(12); t2=C_make_character(C_unfix(t1)); t3=C_a_i_list(&a,3,lf[43],t2,C_make_character(255)); t4=C_a_i_list(&a,1,t3); /* irregex-core.scm:1451: append */ t5=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* lp in k22636 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22923(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_22923,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:2900: lp */ t11=t1; t12=t5; t13=t6; t14=t9; t1=t11; t2=t12; t3=t13; t4=t14; goto loop;}} /* k24982 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_24984,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24987,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[178]); if(C_truep(t6)){ t7=t3; f_24987(t7,(C_truep(t6)?*((C_word*)lf[226]+1):*((C_word*)lf[227]+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_24987(t10,(C_truep(t9)?*((C_word*)lf[226]+1):*((C_word*)lf[227]+1)));}} /* k22908 in map-loop4176 in k22819 in k22816 in doloop4168 in k22801 in k22798 in k22636 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_22910,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_22885(t6,((C_word*)t0)[5],t5);} /* k24395 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_24397(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_24397,2,t0,t1);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24400,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_24400(t3,t1);} else{ t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=t2; f_24400(t5,(C_truep(C_u_i_car(t4))?C_SCHEME_FALSE:C_i_caddr(((C_word*)t0)[3])));}} /* f_24988 in k24985 in k24982 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 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=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_24988,10,av);} a=C_alloc(13); t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_24992,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t8,a[6]=t9,a[7]=((C_word*)t0)[3],a[8]=t1,a[9]=t4,a[10]=t5,a[11]=t6,a[12]=t7,tmp=(C_word)a,a+=13,tmp); /* irregex-core.scm:3382: irregex-match-substring */ t11=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t10; av2[2]=t8; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} /* char-ranges-union in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_27337(C_word t1,C_word 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_27337,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27345,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_27345(t8,C_u_i_car(t7));} else{ t7=t3; t8=t4; f_27345(t8,C_u_i_car(t7));}} /* k24985 in k24982 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_24987(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_24987,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24988,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word)li173),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);}} /* k23235 in lp2 in lp in k23153 in k23149 in k23145 in nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_23237(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_23237,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],((C_word*)t0)[4]); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[5]); /* irregex-core.scm:3005: lp2 */ t6=((C_word*)((C_word*)t0)[6])[1]; f_23180(t6,((C_word*)t0)[7],t3,t5);} /* k27343 in char-ranges-union in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_27345(C_word t0,C_word t1){ C_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_27345,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);}}} /* k27987 in k27942 in lp in k27920 in cset-case-insensitive in k19097 in k9756 in k7760 in k7529 */ 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; 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_27989,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:3848: cset-union */ t5=lf[151];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t4; f_27373(4,av2);}} /* k22960 in lp in k22979 in a22976 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_22962,2,av);} t2=C_i_vector_length(t1); t3=C_eqp(t2,C_fix(0)); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep(t3)?C_SCHEME_FALSE:t1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k27997 in k27942 in lp in k27920 in cset-case-insensitive in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27999,2,av);} /* irregex-core.scm:3848: list->vector */ t2=*((C_word*)lf[391]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12311 in k12177 in k12161 in k12151 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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_12313,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_8953,a[2]=t2,a[3]=t4,a[4]=t6,a[5]=((C_word)li89),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_8953(t8,((C_word*)t0)[2],C_fix(0),C_fix(0),C_SCHEME_END_OF_LIST);} /* k13265 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13267,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1152: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10523(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* doloop3807 in k20997 in add-state! in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static C_word C_fcall f_21009(C_word t0,C_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=t1; if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ t3=C_SCHEME_UNDEFINED; return(t3);} else{ t3=C_i_vector_ref(((C_word*)((C_word*)t0)[2])[1],t1); t4=C_i_vector_set(((C_word*)t0)[3],t1,t3); t5=C_fixnum_difference(t1,C_fix(1)); t7=t5; t1=t7; goto loop;}} /* k15684 in k14792 in lp in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_15686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_15686,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1507: sre-sequence */ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( /* irregex-core.scm:1507: sre-sequence */ f_18372(C_a_i(&a,3),t2) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop2295 in k14792 in lp in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_fcall f_15688(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_15688,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_a_i_list(&a,3,lf[43],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_mutate2(((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);}}} /* k16639 in k16593 in sre-empty? in k9756 in k7760 in k7529 */ static void C_fcall f_16641(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_16641,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* irregex-core.scm:1641: every */ f_9329(((C_word*)t0)[3],lf[129],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);}}} /* lp2 in k21142 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_21156(C_word t0,C_word t1,C_word 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_21156,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_21174,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:2480: add-char-state! */ t10=((C_word*)((C_word*)t0)[4])[1]; f_21070(t10,t7,t3,t9);}} /* k12921 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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_12923,2,av);} a=C_alloc(13); t2=t1; t3=C_fixnum_plus(((C_word*)t0)[2],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|10,a[1]=(C_word)f_12932,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]=t5,a[10]=((C_word)li91),tmp=(C_word)a,a+=11,tmp)); t7=((C_word*)t5)[1]; f_12932(t7,((C_word*)t0)[8],t3);} /* k27942 in lp in k27920 in cset-case-insensitive in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_27944(C_word t0,C_word t1){ C_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_27944,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_27953,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_27957,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27961,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27965,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_27989,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_27999,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3848: ##sys#fast-reverse */ t10=*((C_word*)lf[61]+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_28008,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_28012,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28016,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28020,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_28030,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3853: ##sys#fast-reverse */ t9=*((C_word*)lf[61]+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);}}} /* k27951 in k27942 in lp in k27920 in cset-case-insensitive in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27953(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_27953,2,av);} /* irregex-core.scm:3845: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_27924(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k13296 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13298(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13298,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1155: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10523(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k27955 in k27942 in lp in k27920 in cset-case-insensitive in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27957(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27957,2,av);} /* irregex-core.scm:3846: ##sys#fast-reverse */ t2=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k21142 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,4)))){ C_save_and_reclaim((void *)f_21144,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_i_string_length(t3); 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_21156,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li274),tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_21156(t9,((C_word*)t0)[4],t5,t1);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k24313 */ static void C_ccall f_24315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_24315,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_24320,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word)li145),tmp=(C_word)a,a+=13,tmp); /* irregex-core.scm:3247: g4543 */ t3=t1;{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_24311 in k24240 in k24237 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_ccall f_24311(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24311,10,av);} a=C_alloc(13); t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_24315,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:3248: body */ t11=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t10; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k27936 in lp in k27920 in cset-case-insensitive in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27938,2,av);} /* irregex-core.scm:3842: list->vector */ t2=*((C_word*)lf[391]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_21117(C_word t0,C_word t1){ C_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_21117,2,t0,t1);} a=C_alloc(14); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21120,a[2]=((C_word*)t0)[2],a[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:2466: lp */ t5=((C_word*)((C_word*)t0)[7])[1]; f_20973(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_21144,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:2473: lp */ t7=((C_word*)((C_word*)t0)[7])[1]; f_20973(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_21203,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:2483: lp */ t9=((C_word*)((C_word*)t0)[7])[1]; f_20973(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[233]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21230,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:2487: g3840 */ 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:2487: lp */ t17=((C_word*)((C_word*)t0)[7])[1]; f_20973(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_21261,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_21280,a[2]=t11,tmp=(C_word)a,a+=3,tmp); t16=C_i_caar(((C_word*)t0)[6]); /* irregex-core.scm:2498: string->cset */ f_26764(t15,t16);} else{ t15=C_i_caar(((C_word*)t0)[6]); /* irregex-core.scm:2499: string->cset */ f_26764(t11,t15);}} else{ t11=C_i_caar(((C_word*)t0)[6]); t12=t11; t13=C_eqp(t12,lf[104]); t14=(C_truep(t13)?t13:C_eqp(t12,lf[212])); if(C_truep(t14)){ t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21310,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:2505: append */ t21=*((C_word*)lf[63]+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[210]); t16=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_21324,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_21324(t17,t15);} else{ t17=C_eqp(t12,lf[211]); if(C_truep(t17)){ t18=t16; f_21324(t18,t17);} else{ t18=C_eqp(t12,lf[145]); t19=t16; f_21324(t19,(C_truep(t18)?t18:C_eqp(t12,lf[146])));}}}}} 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);}}}}}}} /* a24319 in k24313 */ 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 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_24320,2,av);} t2=C_eqp(((C_word*)((C_word*)t0)[2])[1],C_fix(0)); if(C_truep(t2)){ /* irregex-core.scm:3251: next */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(10); } av2[0]=t3; 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*)t3+1)))(10,av2);}} else{ /* irregex-core.scm:3252: fail */ t3=((C_word*)t0)[11];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop1451 in k10563 in cased-string in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_10570(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_10570,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_10595,a[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:749: g1457 */ 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);}}} /* cset-complement in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_27904(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_27904,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27912,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3837: sre->cset */ f_26784(t3,lf[44],C_SCHEME_END_OF_LIST);} /* k21127 in k21124 in k21118 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21129,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k21124 in k21118 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_21126,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21129,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2469: nfa-add-epsilon! */ f_20823(t3,((C_word*)((C_word*)t0)[3])[1],t2,((C_word*)t0)[4],C_SCHEME_FALSE);} /* k21118 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_21120,2,av);} a=C_alloc(9); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21126,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_21133,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2468: new-state-number */ t5=((C_word*)((C_word*)t0)[5])[1]; f_20976(t5,t4,t2);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k21062 in extend-state! in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_21064,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* irregex-core.scm:2455: add-state! */ t3=((C_word*)((C_word*)t0)[4])[1]; f_20986(t3,((C_word*)t0)[5],t1,t2);} /* k27910 in cset-complement in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_27912,2,av);} /* irregex-core.scm:3837: cset-difference */ f_27582(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* cset-case-insensitive in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_27914(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_27914,2,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27922,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3841: vector->list */ t4=*((C_word*)lf[152]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k21172 in lp2 in k21142 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21174,2,av);} /* irregex-core.scm:2479: lp2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_21156(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* add-char-state! in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_21070(C_word t0,C_word t1,C_word 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_21070,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_21087,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:2459: cset-union */ t16=lf[151];{ C_word av2[4]; av2[0]=t16; av2[1]=t10; av2[2]=t13; av2[3]=t15; f_27373(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:2460: extend-state! */ t13=((C_word*)((C_word*)t0)[3])[1]; f_21053(t13,t1,t2,t12);}} /* k25826 in k25807 */ static void C_ccall f_25828(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_25828,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_25845,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:3503: g4959 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_25800(t3,C_SCHEME_FALSE);}} /* k27963 in k27942 in lp in k27920 in cset-case-insensitive in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27965(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_27965,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:3848: cset-union */ t10=lf[151];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t9; f_27373(4,av2);}} /* k27959 in k27942 in lp in k27920 in cset-case-insensitive in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27961,2,av);} /* irregex-core.scm:3847: vector->list */ t2=*((C_word*)lf[152]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k21085 in add-char-state! in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21087(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21087,2,av);} /* irregex-core.scm:2459: extend-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_21053(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k25798 */ static void C_fcall f_25800(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_25800,2,t0,t1);} if(C_truep(t1)){ /* irregex-core.scm:3505: 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:3506: 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);}}} /* k13055 in a13044 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13057,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1119: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10523(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k24081 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24083(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_24083,2,av);} a=C_alloc(15); if(C_truep(t1)){ /* irregex-core.scm:3183: error */ t2=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[214]; 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_24089,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:3187: sre-sequence */ f_18372(C_a_i(&a,3),t6) ); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24107,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word)li138),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:3187: lp */ t9=((C_word*)((C_word*)t0)[5])[1]; f_23698(t9,t4,t7,((C_word*)t0)[6],((C_word*)t0)[7],t8);}} /* k24087 in k24081 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ 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=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24091,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word)li136),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k13064 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 t3; C_word t4; 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,4)))){ C_save_and_reclaim((void *)f_13066,2,av);} a=C_alloc(9); 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[178]:lf[179]); t8=t7; t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13094,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=C_fixnum_plus(((C_word*)t0)[8],C_fix(1)); /* irregex-core.scm:1137: substring */ t11=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t11; av2[1]=t9; av2[2]=((C_word*)t0)[9]; av2[3]=t10; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} /* k21131 in k21118 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ 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:2468: add-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20986(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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_10518,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_10523,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word)li95),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_10523(t5,((C_word*)t0)[4],C_fix(0),C_fix(0),t1,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* a24096 */ 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; 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_24097,2,av);} /* irregex-core.scm:3198: body */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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);}} /* k25850 in k25843 in k25826 in k25807 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_25852,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_25800(t4,(C_truep(t3)?t3:C_u_i_char_numericp(t2)));} /* a10157 */ 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=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_10158,4,av);} /* irregex-core.scm:671: read */ t4=((C_word*)((C_word*)t0)[2])[1]; f_9767(t4,t1,t3,((C_word*)t0)[3]);} /* k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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_10512,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_10518,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:737: symbol-list->flags */ f_10373(t4,((C_word*)t0)[4]);} /* f_24091 in k24087 in k24081 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_ccall f_24091(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24091,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24097,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)li135),tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3196: next */ t11=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k27920 in cset-case-insensitive in k19097 in k9756 in k7760 in k7529 */ 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(6,c,4)))){ C_save_and_reclaim((void *)f_27922,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_27924,a[2]=t3,a[3]=((C_word)li340),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_27924(t5,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* lp in k27920 in cset-case-insensitive in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_27924(C_word t0,C_word t1,C_word 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_27924,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_27938,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3842: ##sys#fast-reverse */ t5=*((C_word*)lf[61]+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_27944,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_27944(t9,C_u_i_char_alphabeticp(t8));} else{ t6=t4; f_27944(t6,C_SCHEME_FALSE);}}} /* cased-char in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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=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_10526,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; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_a_i_list(&a,3,lf[93],t2,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t7=t2; t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k21656 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_21658,2,av);} a=C_alloc(16); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21664,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_21706,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2616: new-state-number */ t5=((C_word*)((C_word*)t0)[7])[1]; f_20976(t5,t4,t2);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k25843 in k25826 in k25807 */ static void C_ccall f_25845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_25845,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_25852,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3503: g4961 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_10523(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 *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(75,0,6)))){ C_save_and_reclaim_args((void *)trf_10523,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(75); 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_10526,a[2]=t4,a[3]=((C_word)li69),tmp=(C_word)a,a+=4,tmp)); t19=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10548,a[2]=t4,a[3]=t8,a[4]=((C_word)li71),tmp=(C_word)a,a+=5,tmp)); t20=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10604,a[2]=t2,a[3]=t3,a[4]=t5,a[5]=t10,a[6]=((C_word*)t0)[2],a[7]=((C_word)li72),tmp=(C_word)a,a+=8,tmp)); t21=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10624,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)li74),tmp=(C_word)a,a+=10,tmp)); t22=t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10696,a[2]=t4,a[3]=t12,a[4]=((C_word)li76),tmp=(C_word)a,a+=5,tmp); t23=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10929,a[2]=t4,a[3]=t6,a[4]=t12,a[5]=((C_word)li77),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:830: error */ t25=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t25; av2[1]=t1; av2[2]=lf[113]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t25+1)))(4,av2);}} else{ /* irregex-core.scm:831: collect/terms */ t25=t15; f_10696(t25,t1);}} else{ t25=C_i_string_ref(((C_word*)t0)[2],t2); t26=t25; switch(t26){ case C_make_character(46): t27=C_fixnum_plus(t2,C_fix(1)); t28=t27; t29=C_fixnum_plus(t2,C_fix(1)); t30=t29; 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)f34064,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:837: collect */ t35=((C_word*)t12)[1]; f_10604(t35,t34);} else{ t34=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f34069,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:837: collect */ t35=((C_word*)t12)[1]; f_10604(t35,t34);} case C_make_character(63): t27=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11003,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:840: collect/single */ t28=((C_word*)t14)[1]; f_10624(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_11165,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:861: collect/single */ t30=((C_word*)t14)[1]; f_10624(t30,t29);} else{ switch(t26){ case C_make_character(40): t29=C_fixnum_plus(t2,C_fix(1)); if(C_truep(C_fixnum_greater_or_equal_p(t29,((C_word*)t0)[3]))){ /* irregex-core.scm:876: error */ t30=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t30; av2[1]=t1; av2[2]=lf[130]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t30+1)))(4,av2);}} else{ t30=C_fixnum_plus(t2,C_fix(1)); t31=C_i_string_ref(((C_word*)t0)[2],t30); if(C_truep((C_truep(C_eqp(t31,C_make_character(63)))?C_SCHEME_TRUE:(C_truep(C_eqp(t31,C_make_character(42)))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t32=C_fixnum_plus(t2,C_fix(2)); if(C_truep(C_fixnum_greater_or_equal_p(t32,((C_word*)t0)[3]))){ /* irregex-core.scm:880: error */ t33=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t33; av2[1]=t1; av2[2]=lf[131]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t33+1)))(4,av2);}} else{ t33=C_fixnum_plus(t2,C_fix(1)); t34=C_i_string_ref(((C_word*)t0)[2],t33); t35=C_eqp(t34,C_make_character(42)); if(C_truep(t35)){ t36=C_fixnum_plus(t2,C_fix(2)); t37=C_i_string_ref(((C_word*)t0)[2],t36); t38=C_eqp(C_make_character(39),t37); if(C_truep(t38)){ t39=C_fixnum_plus(t2,C_fix(3)); t40=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11290,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)li78),tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:883: with-read-from-string */ f_9760(t1,((C_word*)t0)[2],t39,t40);} else{ /* irregex-core.scm:888: error */ t39=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t39; av2[1]=t1; av2[2]=lf[133]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t39+1)))(4,av2);}}} else{ t36=C_fixnum_plus(t2,C_fix(2)); t37=C_i_string_ref(((C_word*)t0)[2],t36); switch(t37){ case C_make_character(35): t38=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11358,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); t39=C_fixnum_plus(t2,C_fix(3)); /* irregex-core.scm:892: string-scan-char */ t40=lf[45];{ C_word av2[5]; av2[0]=t40; av2[1]=t38; av2[2]=((C_word*)t0)[2]; av2[3]=C_make_character(41); av2[4]=t39; ((C_proc)(void*)(*((C_word*)t40+1)))(5,av2);} case C_make_character(58): t38=C_fixnum_plus(t2,C_fix(3)); t39=t38; t40=C_fixnum_plus(t2,C_fix(3)); t41=t40; t42=t4; t43=C_fixnum_and(t42,C_fix(-2)); t44=t43; t45=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11402,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t39,a[5]=t41,a[6]=t44,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:895: save */ t46=((C_word*)t17)[1]; f_10929(t46,t45); case C_make_character(61): t38=C_fixnum_plus(t2,C_fix(3)); t39=t38; t40=C_fixnum_plus(t2,C_fix(3)); t41=t40; t42=t4; t43=C_fixnum_and(t42,C_fix(-2)); t44=t43; t45=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11427,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t39,a[5]=t41,a[6]=t44,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:898: save */ t46=((C_word*)t17)[1]; f_10929(t46,t45); case C_make_character(33): t38=C_fixnum_plus(t2,C_fix(3)); t39=t38; t40=C_fixnum_plus(t2,C_fix(3)); t41=t40; t42=t4; t43=C_fixnum_and(t42,C_fix(-2)); t44=t43; t45=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11452,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t39,a[5]=t41,a[6]=t44,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:901: save */ t46=((C_word*)t17)[1]; f_10929(t46,t45); case C_make_character(60): t38=C_fixnum_plus(t2,C_fix(3)); if(C_truep(C_fixnum_greater_or_equal_p(t38,((C_word*)t0)[3]))){ /* irregex-core.scm:905: error */ t39=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t39; av2[1]=t1; av2[2]=lf[136]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t39+1)))(4,av2);}} else{ t39=C_fixnum_plus(t2,C_fix(3)); t40=C_i_string_ref(((C_word*)t0)[2],t39); switch(t40){ case C_make_character(61): t41=C_fixnum_plus(t2,C_fix(4)); t42=t41; t43=C_fixnum_plus(t2,C_fix(4)); t44=t43; t45=t4; t46=C_fixnum_and(t45,C_fix(-2)); t47=t46; t48=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11495,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t42,a[5]=t44,a[6]=t47,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:910: save */ t49=((C_word*)t17)[1]; f_10929(t49,t48); case C_make_character(33): t41=C_fixnum_plus(t2,C_fix(4)); t42=t41; t43=C_fixnum_plus(t2,C_fix(4)); t44=t43; t45=t4; t46=C_fixnum_and(t45,C_fix(-2)); t47=t46; t48=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11520,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t42,a[5]=t44,a[6]=t47,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:913: save */ t49=((C_word*)t17)[1]; f_10929(t49,t48); default: t41=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11523,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); t42=C_fixnum_plus(t2,C_fix(3)); t43=C_i_string_ref(((C_word*)t0)[2],t42); if(C_truep(C_u_i_char_alphabeticp(t43))){ t44=C_fixnum_plus(t2,C_fix(4)); /* irregex-core.scm:917: string-scan-char */ t45=lf[45];{ C_word av2[5]; av2[0]=t45; av2[1]=t41; av2[2]=((C_word*)t0)[2]; av2[3]=C_make_character(62); av2[4]=t44; ((C_proc)(void*)(*((C_word*)t45+1)))(5,av2);}} else{ t44=t41;{ C_word av2[2]; av2[0]=t44; av2[1]=C_SCHEME_FALSE; f_11523(2,av2);}}}} case C_make_character(62): t38=C_fixnum_plus(t2,C_fix(3)); t39=t38; t40=C_fixnum_plus(t2,C_fix(3)); t41=t40; t42=t4; t43=C_fixnum_and(t42,C_fix(-2)); t44=t43; t45=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11619,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t39,a[5]=t41,a[6]=t44,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:926: save */ t46=((C_word*)t17)[1]; f_10929(t46,t45); case C_make_character(40): t38=C_fixnum_plus(t2,C_fix(3)); if(C_truep(C_fixnum_greater_or_equal_p(t38,((C_word*)t0)[3]))){ /* irregex-core.scm:934: error */ t39=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t39; av2[1]=t1; av2[2]=lf[141]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t39+1)))(4,av2);}} else{ t39=C_fixnum_plus(t2,C_fix(3)); t40=C_i_string_ref(((C_word*)t0)[2],t39); if(C_truep(C_u_i_char_numericp(t40))){ t41=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11643,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t17,a[6]=((C_word*)t0)[2],a[7]=t2,tmp=(C_word)a,a+=8,tmp); t42=C_fixnum_plus(t2,C_fix(3)); /* irregex-core.scm:936: string-scan-char */ t43=lf[45];{ C_word av2[5]; av2[0]=t43; av2[1]=t41; av2[2]=((C_word*)t0)[2]; av2[3]=C_make_character(41); av2[4]=t42; ((C_proc)(void*)(*((C_word*)t43+1)))(5,av2);}} else{ t41=C_fixnum_plus(t2,C_fix(3)); t42=C_i_string_ref(((C_word*)t0)[2],t41); if(C_truep(C_u_i_char_alphabeticp(t42))){ t43=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11699,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); t44=C_fixnum_plus(t2,C_fix(3)); /* irregex-core.scm:943: string-scan-char */ t45=lf[45];{ C_word av2[5]; av2[0]=t45; av2[1]=t43; av2[2]=((C_word*)t0)[2]; av2[3]=C_make_character(41); av2[4]=t44; ((C_proc)(void*)(*((C_word*)t45+1)))(5,av2);}} else{ t43=C_fixnum_plus(t2,C_fix(2)); t44=t43; t45=C_fixnum_plus(t2,C_fix(2)); t46=t45; t47=t4; t48=C_fixnum_and(t47,C_fix(-2)); t49=t48; t50=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11756,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t44,a[5]=t46,a[6]=t49,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:949: save */ t51=((C_word*)t17)[1]; f_10929(t51,t50);}}} case C_make_character(123): /* irregex-core.scm:951: error */ t38=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t38; av2[1]=t1; av2[2]=lf[144]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t38+1)))(4,av2);} default: t38=t4; t39=C_fixnum_plus(t2,C_fix(2)); t40=C_SCHEME_UNDEFINED; t41=(*a=C_VECTOR_TYPE|1,a[1]=t40,tmp=(C_word)a,a+=2,tmp); t42=C_set_block_item(t41,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11794,a[2]=t38,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t41,a[7]=((C_word*)t0)[4],a[8]=t6,a[9]=t12,a[10]=((C_word)li81),tmp=(C_word)a,a+=11,tmp)); t43=((C_word*)t41)[1]; f_11794(t43,t1,t39,t4,C_SCHEME_FALSE);}}}} else{ t32=C_fixnum_plus(t2,C_fix(1)); t33=t32; t34=C_fixnum_plus(t2,C_fix(1)); t35=t34; t36=t4; t37=C_fixnum_or(t36,C_fix(1)); t38=t37; t39=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11260,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t33,a[5]=t35,a[6]=t38,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:878: save */ t40=((C_word*)t17)[1]; f_10929(t40,t39);}} case C_make_character(41): if(C_truep(C_i_nullp(t6))){ /* irregex-core.scm:991: error */ t29=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t29; av2[1]=t1; av2[2]=lf[149]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t29+1)))(4,av2);}} else{ t29=C_fixnum_plus(t2,C_fix(1)); t30=t29; t31=C_fixnum_plus(t2,C_fix(1)); t32=t31; t33=C_i_caar(t6); t34=t33; t35=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12095,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:995: collect/terms */ t36=t15; f_10696(t36,t35);} case C_make_character(91): t29=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12110,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t6,a[5]=t12,a[6]=((C_word)li82),tmp=(C_word)a,a+=7,tmp); t30=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12134,a[2]=t1,a[3]=t29,tmp=(C_word)a,a+=4,tmp); t31=C_fixnum_plus(t2,C_fix(1)); t32=t30; t33=((C_word*)t0)[2]; t34=t31; t35=t4; t36=C_i_string_length(t33); t37=t36; t38=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13595,a[2]=t35,a[3]=t37,a[4]=t33,a[5]=t34,a[6]=t32,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_fixnum_lessp(t34,t37))){ t39=C_i_string_ref(t33,t34); t40=t38; f_13595(t40,C_eqp(C_make_character(94),t39));} else{ t39=t38; f_13595(t39,C_SCHEME_FALSE);} case C_make_character(123): t29=C_fixnum_plus(t2,C_fix(1)); t30=C_fixnum_greater_or_equal_p(t29,((C_word*)t0)[3]); t31=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12153,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(t30)){ t32=t31; f_12153(t32,t30);} else{ t32=C_fixnum_plus(t2,C_fix(1)); t33=C_i_string_ref(((C_word*)t0)[2],t32); t34=C_u_i_char_numericp(t33); if(C_truep(t34)){ t35=t31; f_12153(t35,C_i_not(t34));} else{ t35=C_fixnum_plus(t2,C_fix(1)); t36=C_i_string_ref(((C_word*)t0)[2],t35); t37=C_eqp(C_make_character(44),t36); t38=t31; f_12153(t38,C_i_not(t37));}} case C_make_character(92): t29=C_fixnum_plus(t2,C_fix(1)); if(C_truep(C_fixnum_greater_or_equal_p(t29,((C_word*)t0)[3]))){ /* irregex-core.scm:1038: error */ t30=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t30; av2[1]=t1; av2[2]=lf[166]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t30+1)))(4,av2);}} else{ t30=C_fixnum_plus(t2,C_fix(1)); t31=C_i_string_ref(((C_word*)t0)[2],t30); switch(t31){ case C_make_character(100): t32=C_fixnum_plus(t2,C_fix(2)); t33=t32; t34=C_fixnum_plus(t2,C_fix(2)); t35=t34; t36=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12398,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:1043: collect */ t37=((C_word*)t12)[1]; f_10604(t37,t36); case C_make_character(68): t32=C_fixnum_plus(t2,C_fix(2)); t33=t32; t34=C_fixnum_plus(t2,C_fix(2)); t35=t34; t36=C_a_i_list(&a,2,lf[168],lf[167]); t37=t36; t38=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12427,a[2]=t37,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t33,a[6]=t35,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1045: collect */ t39=((C_word*)t12)[1]; f_10604(t39,t38); case C_make_character(115): t32=C_fixnum_plus(t2,C_fix(2)); t33=t32; t34=C_fixnum_plus(t2,C_fix(2)); t35=t34; t36=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12452,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:1047: collect */ t37=((C_word*)t12)[1]; f_10604(t37,t36); case C_make_character(83): t32=C_fixnum_plus(t2,C_fix(2)); t33=t32; t34=C_fixnum_plus(t2,C_fix(2)); t35=t34; t36=C_a_i_list(&a,2,lf[168],lf[70]); t37=t36; t38=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12481,a[2]=t37,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t33,a[6]=t35,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1049: collect */ t39=((C_word*)t12)[1]; f_10604(t39,t38); case C_make_character(119): t32=C_fixnum_plus(t2,C_fix(2)); t33=t32; t34=C_fixnum_plus(t2,C_fix(2)); t35=t34; t36=C_a_i_list(&a,1,lf[169]); t37=C_a_i_list(&a,3,lf[93],lf[170],t36); t38=t37; t39=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12510,a[2]=t38,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t33,a[6]=t35,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1052: collect */ t40=((C_word*)t12)[1]; f_10604(t40,t39); case C_make_character(87): t32=C_fixnum_plus(t2,C_fix(2)); t33=t32; t34=C_fixnum_plus(t2,C_fix(2)); t35=t34; t36=C_a_i_list(&a,1,lf[171]); t37=C_a_i_list(&a,3,lf[93],lf[170],t36); t38=C_a_i_list(&a,2,lf[168],t37); t39=t38; t40=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12543,a[2]=t39,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t33,a[6]=t35,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1055: collect */ t41=((C_word*)t12)[1]; f_10604(t41,t40); case C_make_character(98): t32=C_fixnum_plus(t2,C_fix(2)); t33=t32; t34=C_fixnum_plus(t2,C_fix(2)); t35=t34; t36=C_a_i_list(&a,3,lf[93],lf[172],lf[173]); t37=t36; t38=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12580,a[2]=t37,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t33,a[6]=t35,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1058: collect */ t39=((C_word*)t12)[1]; f_10604(t39,t38); case C_make_character(66): t32=C_fixnum_plus(t2,C_fix(2)); t33=t32; t34=C_fixnum_plus(t2,C_fix(2)); t35=t34; t36=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12605,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:1060: collect */ t37=((C_word*)t12)[1]; f_10604(t37,t36); case C_make_character(65): t32=C_fixnum_plus(t2,C_fix(2)); t33=t32; t34=C_fixnum_plus(t2,C_fix(2)); t35=t34; t36=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12630,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:1062: collect */ t37=((C_word*)t12)[1]; f_10604(t37,t36); case C_make_character(90): t32=C_fixnum_plus(t2,C_fix(2)); t33=t32; t34=C_fixnum_plus(t2,C_fix(2)); t35=t34; t36=C_a_i_list(&a,2,lf[121],C_make_character(10)); t37=t36; t38=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12663,a[2]=t37,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t33,a[6]=t35,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1065: collect */ t39=((C_word*)t12)[1]; f_10604(t39,t38); case C_make_character(122): t32=C_fixnum_plus(t2,C_fix(2)); t33=t32; t34=C_fixnum_plus(t2,C_fix(2)); t35=t34; t36=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12688,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:1067: collect */ t37=((C_word*)t12)[1]; f_10604(t37,t36); case C_make_character(82): t32=C_fixnum_plus(t2,C_fix(2)); t33=t32; t34=C_fixnum_plus(t2,C_fix(2)); t35=t34; t36=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12713,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:1069: collect */ t37=((C_word*)t12)[1]; f_10604(t37,t36); case C_make_character(75): t32=C_fixnum_plus(t2,C_fix(2)); t33=t32; t34=C_fixnum_plus(t2,C_fix(2)); t35=t34; t36=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12738,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:1071: collect */ t37=((C_word*)t12)[1]; f_10604(t37,t36); case C_make_character(60): t32=C_fixnum_plus(t2,C_fix(2)); t33=t32; t34=C_fixnum_plus(t2,C_fix(2)); t35=t34; t36=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12763,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:1074: collect */ t37=((C_word*)t12)[1]; f_10604(t37,t36); case C_make_character(62): t32=C_fixnum_plus(t2,C_fix(2)); t33=t32; t34=C_fixnum_plus(t2,C_fix(2)); t35=t34; t36=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12788,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:1076: collect */ t37=((C_word*)t12)[1]; f_10604(t37,t36); case C_make_character(120): t32=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12799,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t6,a[5]=t12,a[6]=((C_word)li90),tmp=(C_word)a,a+=7,tmp); t33=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12823,a[2]=t1,a[3]=t32,tmp=(C_word)a,a+=4,tmp); t34=C_fixnum_plus(t2,C_fix(2)); /* irregex-core.scm:1081: string-parse-hex-escape */ f_13486(t33,((C_word*)t0)[2],t34,((C_word*)t0)[3]); case C_make_character(107): t32=C_fixnum_plus(t2,C_fix(2)); t33=C_i_string_ref(((C_word*)t0)[2],t32); if(C_truep((C_truep(C_eqp(t33,C_make_character(60)))?C_SCHEME_TRUE:(C_truep(C_eqp(t33,C_make_character(123)))?C_SCHEME_TRUE:(C_truep(C_eqp(t33,C_make_character(39)))?C_SCHEME_TRUE:C_SCHEME_FALSE))))){ t34=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12848,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t6,a[6]=t12,a[7]=((C_word*)t0)[2],a[8]=t2,tmp=(C_word)a,a+=9,tmp); switch(t33){ case C_make_character(60): t35=t34; f_12848(t35,C_make_character(62)); case C_make_character(123): t35=t34; f_12848(t35,C_make_character(125)); case C_make_character(40): t35=t34; f_12848(t35,C_make_character(41)); default: t35=C_eqp(t33,C_make_character(91)); t36=t34; f_12848(t36,(C_truep(t35)?C_make_character(93):t33));}} else{ /* irregex-core.scm:1085: error */ t34=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t34; av2[1]=t1; av2[2]=lf[181]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t34+1)))(4,av2);}} case C_make_character(81): t32=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12923,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:1100: collect */ t33=((C_word*)t12)[1]; f_10604(t33,t32); case C_make_character(39): t32=C_fixnum_plus(t2,C_fix(2)); t33=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13045,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t6,a[5]=t12,a[6]=((C_word)li92),tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:1117: with-read-from-string */ f_9760(t1,((C_word*)t0)[2],t32,t33); default: if(C_truep(C_u_i_char_numericp(t31))){ t32=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13066,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); t33=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13103,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp); t34=C_fixnum_plus(t2,C_fix(2)); t35=((C_word*)t0)[2]; t36=t33; t37=C_a_i_list(&a,1,t34); t38=C_i_string_length(t35); t39=t38; t40=C_i_pairp(t37); t41=(C_truep(t40)?C_u_i_car(t37):C_fix(0)); t42=C_SCHEME_UNDEFINED; t43=(*a=C_VECTOR_TYPE|1,a[1]=t42,tmp=(C_word)a,a+=2,tmp); t44=C_set_block_item(t43,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8914,a[2]=t39,a[3]=t43,a[4]=t35,a[5]=t36,a[6]=((C_word)li94),tmp=(C_word)a,a+=7,tmp)); t45=((C_word*)t43)[1]; f_8914(t45,t32,t41);} else{ if(C_truep(C_u_i_char_alphabeticp(t31))){ t32=C_i_assq(t31,lf[156]); if(C_truep(t32)){ t33=C_fixnum_plus(t2,C_fix(2)); t34=t33; t35=C_fixnum_plus(t2,C_fix(2)); t36=t35; t37=C_i_cdr(t32); t38=t37; t39=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13150,a[2]=t38,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t34,a[6]=t36,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1144: collect */ t40=((C_word*)t12)[1]; f_10604(t40,t39);} else{ /* irregex-core.scm:1145: error */ t33=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t33; av2[1]=t1; av2[2]=lf[182]; av2[3]=((C_word*)t0)[2]; av2[4]=t31; ((C_proc)(void*)(*((C_word*)t33+1)))(5,av2);}}} else{ t32=C_fixnum_plus(t2,C_fix(2)); t33=t32; t34=C_fixnum_plus(t2,C_fix(1)); t35=t34; t36=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13168,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:1147: collect */ t37=((C_word*)t12)[1]; f_10604(t37,t36);}}}} case C_make_character(124): t29=C_fixnum_plus(t2,C_fix(1)); t30=t29; t31=C_fixnum_plus(t2,C_fix(1)); t32=t31; t33=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13239,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:1149: collect */ t34=((C_word*)t12)[1]; f_10604(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[183]:lf[175]); t33=t32; t34=C_fixnum_plus(t2,C_fix(1)); t35=t34; t36=C_fixnum_plus(t2,C_fix(1)); t37=t36; t38=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13267,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:1152: collect */ t39=((C_word*)t12)[1]; f_10604(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[184]:lf[176]); t33=t32; t34=C_fixnum_plus(t2,C_fix(1)); t35=t34; t36=C_fixnum_plus(t2,C_fix(1)); t37=t36; t38=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13298,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:1155: collect */ t39=((C_word*)t12)[1]; f_10604(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=C_fixnum_plus(t2,C_fix(1)); t33=t32; t34=C_fixnum_plus(t2,C_fix(1)); t35=t34; t36=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13328,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:1158: collect */ t37=((C_word*)t12)[1]; f_10604(t37,t36);} else{ t32=C_fixnum_plus(t2,C_fix(1)); /* irregex-core.scm:1159: lp */ t305=t1; t306=t32; t307=t3; t308=t4; t309=t5; t310=t6; t1=t305; t2=t306; t3=t307; t4=t308; t5=t309; t6=t310; 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_13350,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=C_fixnum_plus(t2,C_fix(1)); /* irregex-core.scm:1162: string-scan-char */ t34=lf[45];{ C_word av2[5]; av2[0]=t34; av2[1]=t32; av2[2]=((C_word*)t0)[2]; av2[3]=C_make_character(10); av2[4]=t33; ((C_proc)(void*)(*((C_word*)t34+1)))(5,av2);}} else{ t32=C_fixnum_plus(t2,C_fix(1)); /* irregex-core.scm:1165: lp */ t305=t1; t306=t32; t307=t3; t308=t4; t309=t5; t310=t6; t1=t305; t2=t306; t3=t307; t4=t308; t5=t309; t6=t310; goto loop;} default: t29=C_fixnum_plus(t2,C_fix(1)); /* irregex-core.scm:1167: lp */ t305=t1; t306=t29; t307=t3; t308=t4; t309=t5; t310=t6; t1=t305; t2=t306; t3=t307; t4=t308; t5=t309; t6=t310; goto loop;}}}}} /* collect in scan */ 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 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_10055,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_10069,a[2]=t1,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:661: substring */ t6=*((C_word*)lf[38]+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);}}} /* scan */ static void C_fcall f_10052(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: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ C_save_and_reclaim_args((void *)trf_10052,5,t0,t1,t2,t3,t4);} a=C_alloc(15); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10055,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=((C_word)li58),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:663: error */ t7=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=lf[69]; 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_10094,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_10102,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:665: collect */ t10=t5; f_10055(t10,t9); case C_make_character(92): t8=C_fixnum_plus(t3,C_fix(1)); t9=t8; t10=C_fixnum_plus(t3,C_fix(2)); t11=t10; t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10123,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:666: collect */ t13=t5; f_10055(t13,t12); default: t8=C_fixnum_plus(t3,C_fix(1)); /* irregex-core.scm:667: scan */ t17=t1; t18=t2; t19=t8; t20=t4; t1=t17; t2=t18; t3=t19; t4=t20; goto loop;}}} /* k13084 in k13092 in k13064 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13086(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13086,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1139: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10523(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k21665 in k21662 in k21656 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_21667,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21670,a[2]=((C_word*)t0)[2],a[3]=((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_21686,a[2]=((C_word*)t0)[8],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2619: new-state-number */ t5=((C_word*)((C_word*)t0)[9])[1]; f_20976(t5,t4,t2);} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_21670(2,av2);}}} /* extend-state! in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_21053(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_21053,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21064,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:2455: new-state-number */ t5=((C_word*)((C_word*)t0)[3])[1]; f_20976(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);}}} /* k21662 in k21656 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_21664,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21667,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_21702,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:2617: cddar */ t5=*((C_word*)lf[373]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k13092 in k13064 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_13094,2,av);} a=C_alloc(18); t2=C_a_i_string_to_number(&a,2,t1,C_fix(10)); t3=C_a_i_list(&a,2,((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13086,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],tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1138: collect */ t6=((C_word*)((C_word*)t0)[8])[1]; f_10604(t6,t5);} /* k21674 in k21668 in k21665 in k21662 in k21656 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21676,2,av);} /* irregex-core.scm:2622: nfa-add-epsilon! */ f_20823(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* k21671 in k21668 in k21665 in k21662 in k21656 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21673,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k21668 in k21665 in k21662 in k21656 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ 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 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_21670,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21673,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_21676,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:2621: nfa-add-epsilon! */ f_20823(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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* f_24045 in k24042 in k24036 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_ccall f_24045(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24045,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24051,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)li133),tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3177: body */ t11=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k24042 in k24036 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24044(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_24044,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24045,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li134),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k21606 in k21587 in k21584 in k21578 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21608,2,av);} /* irregex-core.scm:2606: add-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20986(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* k25891 */ 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; 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_25893,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_25809(t6,C_i_not(t5));} else{ t6=C_u_i_char_numericp(t4); t7=((C_word*)t0)[4]; f_25809(t7,C_i_not(t6));}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25873,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3496: chunker-prev-char */ f_8647(t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}} /* a24050 */ static void C_ccall f_24051(C_word c,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_24051,2,av);} /* irregex-core.scm:3179: next */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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);}} /* a9999 in k9987 */ static void C_ccall f_10000(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_10000,4,av);} a=C_alloc(6); t4=C_a_i_list2(&a,2,((C_word*)t0)[2],t2); /* irregex-core.scm:657: k */ t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k15382 in g2200 in k15585 in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ 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 t3; 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_15384,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_15376,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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_fix(127); f_15376(2,av2);} case C_fix(2): t6=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_fix(223); f_15376(2,av2);} case C_fix(3): t6=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_fix(239); f_15376(2,av2);} case C_fix(4): t6=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_fix(247); f_15376(2,av2);} default: /* irregex-core.scm:1382: error */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=lf[202]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k21614 in k21584 in k21578 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21616,2,av);} /* irregex-core.scm:2604: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20973(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k10566 in k10563 in cased-string in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_10568(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_10568,2,av);} a=C_alloc(3); /* irregex-core.scm:749: sre-sequence */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=( /* irregex-core.scm:749: sre-sequence */ f_18372(C_a_i(&a,3),t1) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10563 in cased-string in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_10565(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_10565,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10568,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_10570,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)li70),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_10570(t6,t2,t1);} /* a24106 in k24081 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24107(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24107,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24113,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)li137),tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3191: next */ t11=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k15374 in k15382 in g2200 in k15585 in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_15376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_15376,2,av);} a=C_alloc(20); t2=C_make_character(C_unfix(t1)); t3=C_a_i_list(&a,3,lf[43],((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_15320,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:1491: zero-to */ f_9148(t9,t10);} /* k20396 in k20357 in lp2 in k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ 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; 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_20398,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20399,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li255),tmp=(C_word)a,a+=6,tmp); t3=C_i_cdr(((C_word*)t0)[5]); t4=C_i_check_list_2(t3,lf[288]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20428,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_20486,a[2]=t2,a[3]=t7,a[4]=((C_word)li258),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_20486(t9,t5,t3);} /* g3622 in k20396 in k20357 in lp2 in k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static C_word C_fcall f_20399(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));} /* k24036 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_24038,2,av);} a=C_alloc(13); if(C_truep(t1)){ /* irregex-core.scm:3173: error */ t2=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[213]; 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_24044,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:3175: sre-sequence */ f_18372(C_a_i(&a,3),t4) ); t6=C_a_i_list2(&a,2,lf[119],t5); /* irregex-core.scm:3175: rec */ t7=((C_word*)t0)[5]; f_23701(t7,t2,t6);}} /* k25807 */ static void C_fcall f_25809(C_word t0,C_word 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_25809,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_25800(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_25828,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3500: g4956 */ 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_25800(t2,C_SCHEME_FALSE);}} /* k19294 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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_19296,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_19313,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)li239),tmp=(C_word)a,a+=10,tmp)); t17=((C_word*)t15)[1]; f_19313(t17,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k13551 in string-parse-hex-escape in k9756 in k7760 in k7529 */ static void C_ccall f_13553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_13553,2,av);} a=C_alloc(10); t2=C_a_i_string_to_number(&a,2,t1,C_fix(16)); if(C_truep(t2)){ t3=C_make_character(C_unfix(t2)); t4=C_fixnum_plus(((C_word*)t0)[2],C_fix(2)); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_list2(&a,2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* irregex-core.scm:1204: error */ t3=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[190]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k20369 in k20357 in lp2 in k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20371(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,6)))){ C_save_and_reclaim_args((void *)trf_20371,2,t0,t1);} if(C_truep(((C_word*)t0)[2])){ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* irregex-core.scm:2226: lp2 */ t4=((C_word*)((C_word*)t0)[4])[1]; f_20249(t4,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],t3,((C_word*)t0)[2]);} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* irregex-core.scm:2227: lp2 */ t3=((C_word*)((C_word*)t0)[4])[1]; f_20249(t3,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);}} /* cased-string in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_10548(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_10548,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_10565,a[2]=t1,a[3]=t8,a[4]=t10,a[5]=t9,tmp=(C_word)a,a+=6,tmp); /* string->list */ t12=*((C_word*)lf[95]+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);}}} /* k10593 in map-loop1451 in k10563 in cased-string in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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_10595,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10570(t6,((C_word*)t0)[5],t5);} /* a24015 */ static void C_ccall f_24016(C_word c,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_24016,2,av);} /* irregex-core.scm:3169: body */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_24010 in k24007 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24010(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24010,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24016,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)li131),tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3168: next */ t11=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* irregex-flags in k7529 */ 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=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_7579,3,av);} t3=C_i_check_structure_2(t2,lf[4],lf[8]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(4)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* irregex-nfa in k7529 */ 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=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_7570,3,av);} t3=C_i_check_structure_2(t2,lf[4],lf[7]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(3)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10067 in collect in scan */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10069,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k15318 in k15374 in k15382 in g2200 in k15585 in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ 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 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_15320,2,av);} a=C_alloc(12); t2=C_i_check_list_2(t1,lf[198]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15326,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_15328,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word)li115),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_15328(t7,t3,t1);} /* k15324 in k15318 in k15374 in k15382 in g2200 in k15585 in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_15326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_15326,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1485: sre-sequence */ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( /* irregex-core.scm:1485: sre-sequence */ f_18372(C_a_i(&a,3),t2) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop2217 in k15318 in k15374 in k15382 in g2200 in k15585 in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_fcall f_15328(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_15328,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_a_i_list(&a,3,lf[43],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_mutate2(((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);}}} /* irregex-num-submatches in k7529 */ 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=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_7588,3,av);} t3=C_i_check_structure_2(t2,lf[4],lf[9]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(5)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_13595(C_word t0,C_word t1){ C_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_13595,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_13600,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)li87),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:1290: go */ t14=((C_word*)t7)[1]; f_13600(t14,((C_word*)t0)[6],t9,C_SCHEME_FALSE,t13);} else{ t12=C_a_i_vector(&a,0); /* irregex-core.scm:1290: go */ t13=((C_word*)t7)[1]; f_13600(t13,((C_word*)t0)[6],t9,C_SCHEME_FALSE,t12);}} else{ t9=C_a_i_vector(&a,0); /* irregex-core.scm:1295: go */ t10=((C_word*)t7)[1]; f_13600(t10,((C_word*)t0)[6],((C_word*)t0)[5],C_SCHEME_FALSE,t9);}} /* k29100 in irregex-quote in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29102(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_29102,2,av);} /* list->string */ t2=*((C_word*)lf[416]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k21684 in k21665 in k21662 in k21656 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21686,2,av);} /* irregex-core.scm:2619: add-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20986(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* k15389 in k15585 in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_15391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_15391,2,av);} a=C_alloc(14); t2=C_i_check_list_2(t1,lf[198]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15397,a[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_15507,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)li118),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_15507(t7,t3,t1);} /* k29104 in irregex-quote in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_29106,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_29108,a[2]=t3,a[3]=((C_word)li367),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_29108(t5,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* loop in k29104 in irregex-quote in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29108(C_word t0,C_word 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_29108,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[61]+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_29127,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[45];{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=lf[417]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k15395 in k15389 in k15585 in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ 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 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_15397,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15489,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[158],t7); /* irregex-core.scm:1496: utf8-lowest-digit-of-length */ f_14482(t3,t8);} /* k19393 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19395,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k21692 in k21700 in k21662 in k21656 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21694,2,av);} /* irregex-core.scm:2617: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20973(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k10121 in scan */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10123,2,av);} /* irregex-core.scm:666: scan */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10052(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* irregex-search/chunked in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19195(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19195,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_19199,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:1956: irregex */ t7=*((C_word*)lf[204]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k19197 in irregex-search/chunked in k19097 in k9756 in k7760 in k7529 */ 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; 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_19199,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19202,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:1957: irregex-new-matches */ t4=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10092 in scan */ static void C_ccall f_10094(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10094,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* irregex-core.scm:665: k */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19121 in k19118 in k19112 in k19106 in k19103 in irregex-search in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_19123,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:1950: irregex-search/chunked */ t3=*((C_word*)lf[273]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=lf[271]; av2[4]=t2; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k19118 in k19112 in k19106 in k19103 in irregex-search in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_19120,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19123,a[2]=((C_word*)t0)[2],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]))){ if(C_truep(C_i_exactp(((C_word*)t0)[4]))){ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_19123(2,av2);}} else{ /* irregex-core.scm:1949: error */ t3=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[272]; av2[3]=lf[274]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} else{ /* irregex-core.scm:1949: error */ t3=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[272]; av2[3]=lf[274]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k10100 in scan */ static void C_ccall f_10102(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10102,2,av);} /* irregex-core.scm:665: string-cat-reverse */ f_9098(((C_word*)t0)[2],t1);} /* k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_14699,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14702,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1404: char->utf8-list */ f_14558(t3,((C_word*)t0)[3]);} /* char->utf8-list in k9756 in k7760 in k7529 */ static void C_fcall f_14558(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_14558,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:1400: error */ t4=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=lf[196]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}}}} /* k13237 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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_13239,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[93],t1); /* irregex-core.scm:1149: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10523(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* 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_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_irregex_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(2253))){ C_save(t1); C_rereclaim2(2253*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,479); lf[1]=C_h_intern(&lf[1],12,"vector-copy!"); lf[2]=C_h_intern(&lf[2],11,"make-vector"); lf[3]=C_h_intern(&lf[3],8,"irregex\077"); lf[4]=C_h_intern(&lf[4],6,"regexp"); lf[5]=C_h_intern(&lf[5],11,"irregex-dfa"); lf[6]=C_h_intern(&lf[6],18,"irregex-dfa/search"); lf[7]=C_h_intern(&lf[7],11,"irregex-nfa"); lf[8]=C_h_intern(&lf[8],13,"irregex-flags"); lf[9]=C_h_intern(&lf[9],22,"irregex-num-submatches"); lf[10]=C_h_intern(&lf[10],15,"irregex-lengths"); lf[11]=C_h_intern(&lf[11],13,"irregex-names"); lf[12]=C_h_intern(&lf[12],19,"irregex-new-matches"); lf[13]=C_h_intern(&lf[13],12,"regexp-match"); lf[14]=C_h_intern(&lf[14],22,"irregex-reset-matches!"); lf[15]=C_h_intern(&lf[15],12,"vector-fill!"); lf[17]=C_h_intern(&lf[17],19,"irregex-match-data\077"); lf[18]=C_h_intern(&lf[18],28,"irregex-match-num-submatches"); lf[19]=C_h_intern(&lf[19],19,"irregex-match-names"); lf[20]=C_h_intern(&lf[20],25,"irregex-match-start-chunk"); lf[22]=C_h_intern(&lf[22],25,"irregex-match-start-index"); lf[23]=C_h_intern(&lf[23],23,"irregex-match-end-chunk"); lf[24]=C_h_intern(&lf[24],23,"irregex-match-end-index"); lf[25]=C_h_intern(&lf[25],5,"error"); lf[26]=C_decode_literal(C_heaptop,"\376B\000\000\022too many arguments"); lf[27]=C_decode_literal(C_heaptop,"\376B\000\000\021not a valid index"); lf[28]=C_decode_literal(C_heaptop,"\376B\000\000\024not an exact integer"); lf[29]=C_decode_literal(C_heaptop,"\376B\000\000\022unknown match name"); lf[30]=C_decode_literal(C_heaptop,"\376B\000\000\016not match data"); lf[31]=C_h_intern(&lf[31],26,"irregex-match-valid-index\077"); lf[32]=C_decode_literal(C_heaptop,"\376B\000\000\024not an exact integer"); lf[33]=C_decode_literal(C_heaptop,"\376B\000\000\016not match data"); lf[34]=C_h_intern(&lf[34],23,"irregex-match-substring"); lf[35]=C_h_intern(&lf[35],22,"irregex-match-subchunk"); lf[36]=C_decode_literal(C_heaptop,"\376B\000\0000this chunk type does not support match subchunks"); lf[37]=C_h_intern(&lf[37],20,"make-irregex-chunker"); lf[38]=C_h_intern(&lf[38],9,"substring"); lf[40]=C_decode_literal(C_heaptop,"\376B\000\000\023expected a procdure"); lf[43]=C_h_intern(&lf[43],1,"/"); lf[46]=C_h_intern(&lf[46],11,"make-string"); lf[51]=C_decode_literal(C_heaptop,"\376B\000\000\035can\047t take last of empty list"); lf[56]=C_h_intern(&lf[56],5,"close"); lf[60]=C_decode_literal(C_heaptop,"\376B\000\000\031unterminated embedded SRE"); lf[61]=C_h_intern(&lf[61],16,"\003sysfast-reverse"); lf[62]=C_decode_literal(C_heaptop,"\376B\000\000\017bad dotted form"); lf[63]=C_h_intern(&lf[63],6,"append"); lf[64]=C_decode_literal(C_heaptop,"\376B\000\000\017bad dotted form"); lf[65]=C_h_intern(&lf[65],5,"quote"); lf[66]=C_h_intern(&lf[66],10,"quasiquote"); lf[67]=C_h_intern(&lf[67],15,"uquote-splicing"); lf[68]=C_h_intern(&lf[68],7,"unquote"); lf[69]=C_decode_literal(C_heaptop,"\376B\000\000#unterminated string in embedded SRE"); lf[70]=C_h_intern(&lf[70],5,"space"); lf[71]=C_h_intern(&lf[71],7,"newline"); lf[72]=C_h_intern(&lf[72],14,"number->string"); lf[73]=C_h_intern(&lf[73],14,"symbol->string"); lf[74]=C_decode_literal(C_heaptop,"\376B\000\000\036bad # syntax in simplified SRE"); lf[75]=C_h_intern(&lf[75],14,"string->symbol"); lf[76]=C_decode_literal(C_heaptop,"\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[77]=C_h_intern(&lf[77],11,"close-token"); lf[78]=C_decode_literal(C_heaptop,"\376B\000\000\025unexpected \047)\047 in SRE"); lf[80]=C_h_intern(&lf[80],1,"i"); lf[81]=C_h_intern(&lf[81],1,"m"); lf[82]=C_h_intern(&lf[82],10,"multi-line"); lf[83]=C_h_intern(&lf[83],1,"s"); lf[84]=C_h_intern(&lf[84],11,"single-line"); lf[85]=C_h_intern(&lf[85],1,"x"); lf[86]=C_h_intern(&lf[86],12,"ignore-space"); lf[87]=C_h_intern(&lf[87],1,"u"); lf[88]=C_h_intern(&lf[88],4,"utf8"); lf[89]=C_h_intern(&lf[89],2,"ci"); lf[90]=C_h_intern(&lf[90],16,"case-insensitive"); lf[91]=C_h_intern(&lf[91],17,"maybe-string->sre"); lf[92]=C_h_intern(&lf[92],11,"string->sre"); lf[93]=C_h_intern(&lf[93],2,"or"); lf[95]=C_h_intern(&lf[95],16,"\003sysstring->list"); lf[98]=C_h_intern(&lf[98],8,"submatch"); lf[99]=C_h_intern(&lf[99],2,"if"); lf[100]=C_h_intern(&lf[100],10,"look-ahead"); lf[101]=C_h_intern(&lf[101],14,"neg-look-ahead"); lf[102]=C_h_intern(&lf[102],11,"look-behind"); lf[103]=C_h_intern(&lf[103],15,"neg-look-behind"); lf[104]=C_h_intern(&lf[104],3,"seq"); lf[105]=C_h_intern(&lf[105],6,"cddadr"); lf[106]=C_h_intern(&lf[106],6,"cadadr"); lf[107]=C_h_intern(&lf[107],7,"epsilon"); lf[108]=C_h_intern(&lf[108],10,"\003sysappend"); lf[109]=C_h_intern(&lf[109],2,"=>"); lf[110]=C_h_intern(&lf[110],14,"submatch-named"); lf[111]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\002=>\376\003\000\000\002\376\001\000\000\016submatch-named\376\377\016"); lf[112]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006atomic\376\003\000\000\002\376\001\000\000\002if\376\003\000\000\002\376\001\000\000\012look-ahead\376\003\000\000\002\376\001\000\000\016neg-look-ahead\376\003\000\000\002\376\001\000" "\000\013look-behind\376\003\000\000\002\376\001\000\000\017neg-look-behind\376\003\000\000\002\376\001\000\000\002=>\376\003\000\000\002\376\001\000\000\016submatch-named\376\003\000\000\002\376" "\001\000\000\006w/utf8\376\003\000\000\002\376\001\000\000\010w/noutf8\376\377\016"); lf[113]=C_decode_literal(C_heaptop,"\376B\000\000\042unterminated parenthesis in regexp"); lf[114]=C_h_intern(&lf[114],3,"any"); lf[115]=C_h_intern(&lf[115],4,"nonl"); lf[116]=C_decode_literal(C_heaptop,"\376B\000\000\034\077 can\047t follow empty pattern"); lf[117]=C_h_intern(&lf[117],1,"\052"); lf[118]=C_h_intern(&lf[118],2,"\052\077"); lf[119]=C_h_intern(&lf[119],1,"+"); lf[120]=C_h_intern(&lf[120],3,"\052\052\077"); lf[121]=C_h_intern(&lf[121],1,"\077"); lf[122]=C_h_intern(&lf[122],2,"\077\077"); lf[123]=C_h_intern(&lf[123],2,"\052\052"); lf[124]=C_h_intern(&lf[124],1,"="); lf[125]=C_h_intern(&lf[125],2,">="); lf[127]=C_decode_literal(C_heaptop,"\376B\000\000)duplicate repetition (e.g. \052\052) in pattern"); lf[128]=C_decode_literal(C_heaptop,"\376B\000\000%can\047t repeat empty pattern (e.g. ()\052)"); lf[130]=C_decode_literal(C_heaptop,"\376B\000\000\042unterminated parenthesis in regexp"); lf[131]=C_decode_literal(C_heaptop,"\376B\000\000\042unterminated parenthesis in regexp"); lf[132]=C_decode_literal(C_heaptop,"\376B\000\000\037unterminated (\052\047...) SRE escape"); lf[133]=C_decode_literal(C_heaptop,"\376B\000\000\047bad regexp syntax: (\052FOO) not supported"); lf[134]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\012look-ahead\376\377\016"); lf[135]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016neg-look-ahead\376\377\016"); lf[136]=C_decode_literal(C_heaptop,"\376B\000\000\042unterminated parenthesis in regexp"); lf[137]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\013look-behind\376\377\016"); lf[138]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\017neg-look-behind\376\377\016"); lf[139]=C_decode_literal(C_heaptop,"\376B\000\000\024invalid (\077< sequence"); lf[140]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006atomic\376\377\016"); lf[141]=C_decode_literal(C_heaptop,"\376B\000\000\042unterminated parenthesis in regexp"); lf[142]=C_decode_literal(C_heaptop,"\376B\000\000\035invalid conditional reference"); lf[143]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\002if\376\377\016"); lf[144]=C_decode_literal(C_heaptop,"\376B\000\000\036unsupported Perl-style cluster"); lf[145]=C_h_intern(&lf[145],6,"w/utf8"); lf[146]=C_h_intern(&lf[146],8,"w/noutf8"); lf[147]=C_decode_literal(C_heaptop,"\376B\000\000\022incomplete cluster"); lf[148]=C_decode_literal(C_heaptop,"\376B\000\000\036unknown regex cluster modifier"); lf[149]=C_decode_literal(C_heaptop,"\376B\000\000\026too many )\047s in regexp"); lf[150]=C_decode_literal(C_heaptop,"\376B\000\000\023incomplete char set"); lf[152]=C_h_intern(&lf[152],12,"vector->list"); lf[155]=C_decode_literal(C_heaptop,"\376B\000\000\032inverted range in char-set"); lf[158]=C_decode_literal(C_heaptop,"\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[159]=C_decode_literal(C_heaptop,"\376B\000\000\014bad char-set"); lf[160]=C_decode_literal(C_heaptop,"\376B\000\000\032incomplete character class"); lf[162]=C_decode_literal(C_heaptop,"\376B\000\000!collating sequences not supported"); lf[163]=C_decode_literal(C_heaptop,"\376B\000\000\034{ can\047t follow empty pattern"); lf[164]=C_decode_literal(C_heaptop,"\376B\000\000\035invalid {n} repetition syntax"); lf[165]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[166]=C_decode_literal(C_heaptop,"\376B\000\000\032incomplete escape sequence"); lf[167]=C_h_intern(&lf[167],7,"numeric"); lf[168]=C_h_intern(&lf[168],1,"~"); lf[169]=C_decode_literal(C_heaptop,"\376B\000\000\001_"); lf[170]=C_h_intern(&lf[170],12,"alphanumeric"); lf[171]=C_decode_literal(C_heaptop,"\376B\000\000\001_"); lf[172]=C_h_intern(&lf[172],3,"bow"); lf[173]=C_h_intern(&lf[173],3,"eow"); lf[174]=C_h_intern(&lf[174],3,"nwb"); lf[175]=C_h_intern(&lf[175],3,"bos"); lf[176]=C_h_intern(&lf[176],3,"eos"); lf[177]=C_h_intern(&lf[177],5,"reset"); lf[178]=C_h_intern(&lf[178],10,"backref-ci"); lf[179]=C_h_intern(&lf[179],7,"backref"); lf[180]=C_decode_literal(C_heaptop,"\376B\000\000\032unterminated named backref"); lf[181]=C_decode_literal(C_heaptop,"\376B\000\000\036bad \134k usage, expected \134k<...>"); lf[182]=C_decode_literal(C_heaptop,"\376B\000\000\027unknown escape sequence"); lf[183]=C_h_intern(&lf[183],3,"bol"); lf[184]=C_h_intern(&lf[184],3,"eol"); lf[185]=C_decode_literal(C_heaptop,"\376B\000\000\021expected a string"); lf[186]=C_decode_literal(C_heaptop,"\376B\000\000\025incomplete hex escape"); lf[187]=C_decode_literal(C_heaptop,"\376B\000\000\024bad hex brace escape"); lf[188]=C_decode_literal(C_heaptop,"\376B\000\000\033incomplete hex brace escape"); lf[189]=C_decode_literal(C_heaptop,"\376B\000\000\025incomplete hex escape"); lf[190]=C_decode_literal(C_heaptop,"\376B\000\000\016bad hex escape"); lf[192]=C_decode_literal(C_heaptop,"\376B\000\000\023invalid utf8 length"); lf[194]=C_decode_literal(C_heaptop,"\376B\000\000\023invalid utf8 length"); lf[196]=C_decode_literal(C_heaptop,"\376B\000\000\037unicode codepoint out of range:"); lf[198]=C_h_intern(&lf[198],3,"map"); lf[202]=C_decode_literal(C_heaptop,"\376B\000\000\023invalid utf8 length"); lf[204]=C_h_intern(&lf[204],7,"irregex"); lf[205]=C_decode_literal(C_heaptop,"\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[206]=C_h_intern(&lf[206],15,"string->irregex"); lf[207]=C_h_intern(&lf[207],12,"sre->irregex"); lf[210]=C_h_intern(&lf[210],6,"w/case"); lf[211]=C_h_intern(&lf[211],8,"w/nocase"); lf[212]=C_h_intern(&lf[212],1,":"); lf[213]=C_decode_literal(C_heaptop,"\376B\000\000\024invalid sre: empty \052"); lf[214]=C_decode_literal(C_heaptop,"\376B\000\000\025invalid sre: empty \052\077"); lf[215]=C_decode_literal(C_heaptop,"\376B\000\000\024invalid sre: empty +"); lf[216]=C_h_intern(&lf[216],4,"word"); lf[217]=C_h_intern(&lf[217],5,"word+"); lf[218]=C_decode_literal(C_heaptop,"\376B\000\000\001_"); lf[219]=C_h_intern(&lf[219],1,"&"); lf[220]=C_h_intern(&lf[220],12,"posix-string"); lf[221]=C_h_intern(&lf[221],3,"not"); lf[222]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001\052\376\003\000\000\002\376\001\000\000\003any\376\377\016"); lf[223]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003eos\376\377\016"); lf[224]=C_h_intern(&lf[224],6,"atomic"); lf[225]=C_decode_literal(C_heaptop,"\376B\000\000\037unknown named backref in SRE IF"); lf[226]=C_h_intern(&lf[226],11,"string-ci=\077"); lf[227]=C_h_intern(&lf[227],8,"string=\077"); lf[228]=C_decode_literal(C_heaptop,"\376B\000\000\025unknown backreference"); lf[229]=C_h_intern(&lf[229],3,"dsm"); lf[230]=C_h_intern(&lf[230],1,"$"); lf[231]=C_decode_literal(C_heaptop,"\376B\000\000\027unknown regexp operator"); lf[232]=C_h_intern(&lf[232],1,"-"); lf[234]=C_decode_literal(C_heaptop,"\376B\000\000\016unknown regexp"); lf[235]=C_h_intern(&lf[235],9,"char-ci=\077"); lf[236]=C_decode_literal(C_heaptop,"\376B\000\000\016unknown regexp"); lf[239]=C_h_intern(&lf[239],3,"max"); lf[240]=C_h_intern(&lf[240],3,"min"); lf[241]=C_h_intern(&lf[241],10,"sre-length"); lf[242]=C_decode_literal(C_heaptop,"\376B\000\000\025invalid backreference"); lf[243]=C_decode_literal(C_heaptop,"\376B\000\000\035invalid forward backreference"); lf[244]=C_decode_literal(C_heaptop,"\376B\000\000\025unknown backreference"); lf[245]=C_h_intern(&lf[245],3,">=\077"); lf[246]=C_h_intern(&lf[246],17,"sre-length-ranges"); lf[247]=C_decode_literal(C_heaptop,"\376B\000\000\024unknown sre operator"); lf[248]=C_h_intern(&lf[248],2,"=\077"); lf[249]=C_h_intern(&lf[249],6,"commit"); lf[250]=C_decode_literal(C_heaptop,"\376B\000\000\013unknown sre"); lf[251]=C_h_intern(&lf[251],4,"cons"); lf[254]=C_h_intern(&lf[254],9,"backtrack"); lf[255]=C_h_intern(&lf[255],5,"small"); lf[256]=C_h_intern(&lf[256],4,"fast"); lf[259]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001\052\376\003\000\000\002\376\001\000\000\003any\376\377\016"); lf[260]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001\052\376\003\000\000\002\376\001\000\000\004nonl\376\377\016"); lf[261]=C_h_intern(&lf[261],8,"utf8-any"); lf[262]=C_h_intern(&lf[262],9,"utf8-nonl"); lf[263]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\007epsilon\376\003\000\000\002\376\001\000\000\003bos\376\003\000\000\002\376\001\000\000\003eos\376\003\000\000\002\376\001\000\000\003bol\376\003\000\000\002\376\001\000\000\003eol\376\003\000\000\002\376\001\000\000\003b" "ow\376\003\000\000\002\376\001\000\000\003eow\376\003\000\000\002\376\001\000\000\006commit\376\377\016"); lf[265]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001\052\376\003\000\000\002\376\001\000\000\001+\376\377\016"); lf[267]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001$\376\003\000\000\002\376\001\000\000\010submatch\376\003\000\000\002\376\001\000\000\002=>\376\003\000\000\002\376\001\000\000\016submatch-named\376\377\016"); lf[268]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\002or\376\377\016"); lf[272]=C_h_intern(&lf[272],14,"irregex-search"); lf[273]=C_h_intern(&lf[273],22,"irregex-search/chunked"); lf[274]=C_decode_literal(C_heaptop,"\376B\000\000\024not an exact integer"); lf[275]=C_decode_literal(C_heaptop,"\376B\000\000\024not an exact integer"); lf[276]=C_decode_literal(C_heaptop,"\376B\000\000\014not a string"); lf[277]=C_h_intern(&lf[277],22,"irregex-search/matches"); lf[278]=C_decode_literal(C_heaptop,"\376B\000\000\016not an integer"); lf[281]=C_h_intern(&lf[281],13,"irregex-match"); lf[282]=C_h_intern(&lf[282],21,"irregex-match/chunked"); lf[283]=C_decode_literal(C_heaptop,"\376B\000\000\024not an exact integer"); lf[284]=C_decode_literal(C_heaptop,"\376B\000\000\024not an exact integer"); lf[285]=C_decode_literal(C_heaptop,"\376B\000\000\014not a string"); lf[286]=C_h_intern(&lf[286],14,"irregex-match\077"); lf[288]=C_h_intern(&lf[288],8,"for-each"); lf[289]=C_h_intern(&lf[289],10,"alphabetic"); lf[290]=C_h_intern(&lf[290],5,"alpha"); lf[291]=C_h_intern(&lf[291],8,"alphanum"); lf[292]=C_h_intern(&lf[292],5,"alnum"); lf[293]=C_h_intern(&lf[293],10,"lower-case"); lf[294]=C_h_intern(&lf[294],5,"lower"); lf[295]=C_h_intern(&lf[295],10,"upper-case"); lf[296]=C_h_intern(&lf[296],5,"upper"); lf[297]=C_h_intern(&lf[297],3,"num"); lf[298]=C_h_intern(&lf[298],5,"digit"); lf[299]=C_h_intern(&lf[299],11,"punctuation"); lf[300]=C_h_intern(&lf[300],5,"punct"); lf[301]=C_h_intern(&lf[301],7,"graphic"); lf[302]=C_h_intern(&lf[302],5,"graph"); lf[303]=C_h_intern(&lf[303],5,"blank"); lf[304]=C_h_intern(&lf[304],10,"whitespace"); lf[305]=C_h_intern(&lf[305],5,"white"); lf[306]=C_h_intern(&lf[306],8,"printing"); lf[307]=C_h_intern(&lf[307],5,"print"); lf[308]=C_h_intern(&lf[308],7,"control"); lf[309]=C_h_intern(&lf[309],5,"cntrl"); lf[310]=C_h_intern(&lf[310],9,"hex-digit"); lf[311]=C_h_intern(&lf[311],6,"xdigit"); lf[312]=C_h_intern(&lf[312],5,"ascii"); lf[313]=C_h_intern(&lf[313],10,"ascii-nonl"); lf[314]=C_h_intern(&lf[314],14,"utf8-tail-char"); lf[315]=C_h_intern(&lf[315],11,"utf8-2-char"); lf[316]=C_h_intern(&lf[316],11,"utf8-3-char"); lf[317]=C_h_intern(&lf[317],11,"utf8-4-char"); lf[318]=C_h_intern(&lf[318],7,"integer"); lf[319]=C_h_intern(&lf[319],4,"real"); lf[320]=C_decode_literal(C_heaptop,"\376B\000\000\016!$%&\052/:<=>\077^_~"); lf[321]=C_h_intern(&lf[321],14,"symbol-initial"); lf[322]=C_decode_literal(C_heaptop,"\376B\000\000\004+-.@"); lf[323]=C_h_intern(&lf[323],17,"symbol-subsequent"); lf[324]=C_decode_literal(C_heaptop,"\376B\000\000\002+-"); lf[325]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[326]=C_decode_literal(C_heaptop,"\376B\000\000\002.."); lf[327]=C_h_intern(&lf[327],6,"symbol"); lf[328]=C_decode_literal(C_heaptop,"\376B\000\000\001;"); lf[329]=C_h_intern(&lf[329],10,"sexp-space"); lf[330]=C_h_intern(&lf[330],6,"escape"); lf[331]=C_h_intern(&lf[331],6,"string"); lf[332]=C_decode_literal(C_heaptop,"\376B\000\000\00212"); lf[333]=C_h_intern(&lf[333],10,"ipv4-digit"); lf[334]=C_h_intern(&lf[334],12,"ipv4-address"); lf[335]=C_h_intern(&lf[335],12,"ipv6-address"); lf[336]=C_h_intern(&lf[336],10,"ip-address"); lf[337]=C_h_intern(&lf[337],11,"domain-atom"); lf[338]=C_h_intern(&lf[338],6,"domain"); lf[339]=C_decode_literal(C_heaptop,"\376B\000\000\004arpa"); lf[340]=C_decode_literal(C_heaptop,"\376B\000\000\003com"); lf[341]=C_decode_literal(C_heaptop,"\376B\000\000\003gov"); lf[342]=C_decode_literal(C_heaptop,"\376B\000\000\003mil"); lf[343]=C_decode_literal(C_heaptop,"\376B\000\000\003net"); lf[344]=C_decode_literal(C_heaptop,"\376B\000\000\003org"); lf[345]=C_decode_literal(C_heaptop,"\376B\000\000\004aero"); lf[346]=C_decode_literal(C_heaptop,"\376B\000\000\003biz"); lf[347]=C_decode_literal(C_heaptop,"\376B\000\000\004coop"); lf[348]=C_decode_literal(C_heaptop,"\376B\000\000\004info"); lf[349]=C_decode_literal(C_heaptop,"\376B\000\000\006museum"); lf[350]=C_decode_literal(C_heaptop,"\376B\000\000\004name"); lf[351]=C_decode_literal(C_heaptop,"\376B\000\000\003pro"); lf[352]=C_h_intern(&lf[352],16,"top-level-domain"); lf[353]=C_h_intern(&lf[353],13,"domain/common"); lf[354]=C_h_intern(&lf[354],16,"email-local-part"); lf[355]=C_h_intern(&lf[355],5,"email"); lf[356]=C_decode_literal(C_heaptop,"\376B\000\000\001%"); lf[357]=C_h_intern(&lf[357],8,"url-char"); lf[358]=C_decode_literal(C_heaptop,"\376B\000\000\001%"); lf[359]=C_h_intern(&lf[359],14,"url-final-char"); lf[360]=C_decode_literal(C_heaptop,"\376B\000\000\001s"); lf[361]=C_decode_literal(C_heaptop,"\376B\000\000\001:"); lf[362]=C_decode_literal(C_heaptop,"\376B\000\000\001/"); lf[363]=C_decode_literal(C_heaptop,"\376B\000\000\001\077"); lf[364]=C_decode_literal(C_heaptop,"\376B\000\000\001#"); lf[365]=C_decode_literal(C_heaptop,"\376B\000\000\001/"); lf[366]=C_h_intern(&lf[366],8,"http-url"); lf[367]=C_decode_literal(C_heaptop,"\376B\000\000\004http"); lf[368]=C_decode_literal(C_heaptop,"\376B\000\000\003://"); lf[372]=C_h_intern(&lf[372],5,"cadar"); lf[373]=C_h_intern(&lf[373],5,"cddar"); lf[374]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\007epsilon\376\377\016"); lf[375]=C_decode_literal(C_heaptop,"\376B\000\000\034non-procedure in op position"); lf[376]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[381]=C_h_intern(&lf[381],6,"modulo"); lf[383]=C_h_intern(&lf[383],6,"caddar"); lf[388]=C_decode_literal(C_heaptop,"\376B\000\000!not a valid sre char-set operator"); lf[389]=C_decode_literal(C_heaptop,"\376B\000\000\030not a valid sre char-set"); lf[391]=C_h_intern(&lf[391],12,"list->vector"); lf[393]=C_h_intern(&lf[393],12,"irregex-fold"); lf[394]=C_decode_literal(C_heaptop,"\376B\000\000\024not an exact integer"); lf[395]=C_decode_literal(C_heaptop,"\376B\000\000\024not an exact integer"); lf[396]=C_decode_literal(C_heaptop,"\376B\000\000\014not a string"); lf[397]=C_decode_literal(C_heaptop,"\376B\000\000\017not a procedure"); lf[399]=C_h_intern(&lf[399],20,"irregex-fold/chunked"); lf[400]=C_decode_literal(C_heaptop,"\376B\000\000\016not an integer"); lf[401]=C_decode_literal(C_heaptop,"\376B\000\000\017not a procedure"); lf[402]=C_h_intern(&lf[402],15,"irregex-replace"); lf[403]=C_h_intern(&lf[403],19,"irregex-apply-match"); lf[404]=C_decode_literal(C_heaptop,"\376B\000\000\014not a string"); lf[405]=C_h_intern(&lf[405],19,"irregex-replace/all"); lf[406]=C_decode_literal(C_heaptop,"\376B\000\000\014not a string"); lf[407]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[408]=C_h_intern(&lf[408],3,"pre"); lf[409]=C_h_intern(&lf[409],4,"post"); lf[410]=C_decode_literal(C_heaptop,"\376B\000\000\031unknown match replacement"); lf[411]=C_h_intern(&lf[411],15,"irregex-extract"); lf[412]=C_decode_literal(C_heaptop,"\376B\000\000\014not a string"); lf[413]=C_h_intern(&lf[413],13,"irregex-split"); lf[414]=C_decode_literal(C_heaptop,"\376B\000\000\014not a string"); lf[415]=C_h_intern(&lf[415],13,"irregex-quote"); lf[416]=C_h_intern(&lf[416],16,"\003syslist->string"); lf[417]=C_decode_literal(C_heaptop,"\376B\000\000\017\134|[](){}.\052+\077^$#"); lf[418]=C_h_intern(&lf[418],11,"irregex-opt"); lf[419]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[420]=C_h_intern(&lf[420],5,"char\077"); lf[421]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\000\376\377\016"); lf[422]=C_h_intern(&lf[422],13,"string-append"); lf[424]=C_h_intern(&lf[424],17,"get-output-string"); lf[425]=C_h_intern(&lf[425],7,"display"); lf[426]=C_h_intern(&lf[426],19,"\003syswrite-char/port"); lf[427]=C_h_intern(&lf[427],18,"open-output-string"); lf[428]=C_h_intern(&lf[428],11,"sre->string"); lf[429]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[430]=C_decode_literal(C_heaptop,"\376B\000\000\003(\077:"); lf[431]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[432]=C_decode_literal(C_heaptop,"\376B\000\000\001("); lf[433]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[434]=C_decode_literal(C_heaptop,"\376B\000\000\001>"); lf[435]=C_decode_literal(C_heaptop,"\376B\000\000\003(\077<"); lf[436]=C_decode_literal(C_heaptop,"\376B\000\000\001|"); lf[437]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[438]=C_decode_literal(C_heaptop,"\376B\000\000\003(\077:"); lf[439]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[440]=C_decode_literal(C_heaptop,"\376B\000\000\003(\077:"); lf[441]=C_decode_literal(C_heaptop,"\376B\000\000\001]"); lf[442]=C_h_intern(&lf[442],5,"cdadr"); lf[443]=C_decode_literal(C_heaptop,"\376B\000\000\002[^"); lf[444]=C_decode_literal(C_heaptop,"\376B\000\000(can\047t represent general \047not\047 in strings"); lf[445]=C_h_intern(&lf[445],4,"cset"); lf[446]=C_h_intern(&lf[446],5,"caadr"); lf[447]=C_decode_literal(C_heaptop,"\376B\000\000\001]"); lf[448]=C_decode_literal(C_heaptop,"\376B\000\000\001["); lf[449]=C_decode_literal(C_heaptop,"\376B\000\000\001]"); lf[450]=C_decode_literal(C_heaptop,"\376B\000\000\002[^"); lf[451]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[452]=C_decode_literal(C_heaptop,"\376B\000\000\001:"); lf[453]=C_decode_literal(C_heaptop,"\376B\000\000\001-"); lf[454]=C_decode_literal(C_heaptop,"\376B\000\000\002(\077"); lf[455]=C_decode_literal(C_heaptop,"\376B\000\000\024unknown sre operator"); lf[456]=C_decode_literal(C_heaptop,"\376B\000\000\001^"); lf[457]=C_decode_literal(C_heaptop,"\376B\000\000\001$"); lf[458]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[459]=C_decode_literal(C_heaptop,"\376B\000\000\022unknown sre symbol"); lf[460]=C_decode_literal(C_heaptop,"\376B\000\000\023unknown sre pattern"); lf[461]=C_h_intern(&lf[461],16,"\003sysglob->regexp"); lf[462]=C_h_intern(&lf[462],12,"glob->regexp"); lf[463]=C_decode_literal(C_heaptop,"\376B\000\000\003./\134"); lf[464]=C_decode_literal(C_heaptop,"\376B\000\000\002/\134"); lf[465]=C_decode_literal(C_heaptop,"\376B\000\000\003./\134"); lf[466]=C_decode_literal(C_heaptop,"\376B\000\000\002/\134"); lf[467]=C_decode_literal(C_heaptop,"\376B\000\000!unexpected end of character class"); lf[468]=C_decode_literal(C_heaptop,"\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[469]=C_h_intern(&lf[469],3,"car"); lf[470]=C_h_intern(&lf[470],4,"cadr"); lf[471]=C_h_intern(&lf[471],5,"caddr"); lf[472]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[473]=C_decode_literal(C_heaptop,"\376B\000\000\002)>"); lf[474]=C_decode_literal(C_heaptop,"\376B\000\000\002es"); lf[475]=C_decode_literal(C_heaptop,"\376B\000\000\011 submatch"); lf[476]=C_decode_literal(C_heaptop,"\376B\000\000\020#= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[204]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k17413 in a17384 in lp2 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_ccall f_17415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_17415,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:1725: lp2 */ t5=((C_word*)((C_word*)t0)[7])[1]; f_17352(t5,((C_word*)t0)[8],((C_word*)t0)[9],t2,t3,t4);} else{ /* irregex-core.scm:1725: lp2 */ t4=((C_word*)((C_word*)t0)[7])[1]; f_17352(t4,((C_word*)t0)[8],((C_word*)t0)[9],t2,t3,C_SCHEME_FALSE);}} else{ /* irregex-core.scm:1725: lp2 */ t4=((C_word*)((C_word*)t0)[7])[1]; f_17352(t4,((C_word*)t0)[8],((C_word*)t0)[9],t2,t3,C_SCHEME_FALSE);}} /* k29166 in k29323 in lp2 in lp1 in k29286 in irregex-opt in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_29168,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29175,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* list->string */ t3=*((C_word*)lf[416]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[93],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k29173 in k29166 in k29323 in lp2 in lp1 in k29286 in irregex-opt in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29175(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_29175,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list1(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* string->sre in k9756 in k7760 in k7529 */ 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; 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_10508,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_10512,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_stringp(t2))){ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_10512(2,av2);}} else{ /* irregex-core.scm:735: error */ t5=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=lf[92]; av2[3]=lf[185]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k13515 in string-parse-hex-escape in k9756 in k7760 in k7529 */ static void C_ccall f_13517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_13517,2,av);} a=C_alloc(10); t2=C_a_i_string_to_number(&a,2,t1,C_fix(16)); if(C_truep(t2)){ t3=C_make_character(C_unfix(t2)); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list2(&a,2,t3,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* irregex-core.scm:1196: error */ t3=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[187]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k10195 in a10176 */ static void C_ccall f_10197(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10197,2,av);} t2=C_i_string_ref(t1,C_fix(0)); /* irregex-core.scm:675: k */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19103 in irregex-search in k19097 in k9756 in k7760 in k7529 */ 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 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_19105,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19108,a[2]=((C_word*)t0)[2],a[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_19108(t4,C_u_i_car(t3));} else{ t3=t2; f_19108(t3,C_SCHEME_FALSE);}} /* k19106 in k19103 in irregex-search in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_19108(C_word t0,C_word t1){ C_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_19108,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_19114,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_19114(t8,(C_truep(t7)?C_i_cadr(((C_word*)t0)[5]):C_SCHEME_FALSE));} else{ t5=t4; f_19114(t5,C_SCHEME_FALSE);}} /* irregex-search in k19097 in k9756 in k7760 in k7529 */ 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=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_19101,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_19105,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_stringp(t3))){ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_19105(2,av2);}} else{ /* irregex-core.scm:1943: error */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[272]; av2[3]=lf[276]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* irregex-dfa in k7529 */ 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=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_7552,3,av);} t3=C_i_check_structure_2(t2,lf[4],lf[5]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k29196 in k29367 in lp2 in lp1 in k29286 in irregex-opt in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_29198,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_29219,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_29221,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li369),tmp=(C_word)a,a+=6,tmp)); t10=((C_word*)t8)[1]; f_29221(t10,t6,((C_word*)t0)[3]);} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[104],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8424 in k8387 in k8381 in make-irregex-chunker in k7760 in k7529 */ static void C_fcall f_8426(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_8426,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_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);}} else{ /* irregex-core.scm:352: error */ t2=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[9]; av2[2]=lf[37]; av2[3]=lf[40]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k19112 in k19106 in k19103 in irregex-search in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_19114(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,4)))){ C_save_and_reclaim_args((void *)trf_19114,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_19120,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]))){ if(C_truep(C_i_exactp(((C_word*)t0)[3]))){ t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_19120(2,av2);}} else{ /* irregex-core.scm:1947: error */ t5=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=lf[272]; av2[3]=lf[275]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} else{ /* irregex-core.scm:1947: error */ t5=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=lf[272]; av2[3]=lf[275]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* irregex-dfa/search in k7529 */ 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=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_7561,3,av);} t3=C_i_check_structure_2(t2,lf[4],lf[6]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_24905 in k24902 in k24841 in k24832 in k24829 in k24826 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in ... */ static void C_ccall f_24905(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24905,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24911,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)li169),tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3370: test */ t11=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k24902 in k24841 in k24832 in k24829 in k24826 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in ... */ static void C_ccall f_24904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_24904,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24905,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a10176 */ static void C_ccall f_10177(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,3)))){ C_save_and_reclaim((void *)f_10177,4,av);} a=C_alloc(5); t4=t2; t5=C_eqp(t4,lf[70]); if(C_truep(t5)){ /* irregex-core.scm:675: k */ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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[71]); if(C_truep(t6)){ /* irregex-core.scm:675: k */ t7=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_10197,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))){ /* irregex-core.scm:679: number->string */ t8=*((C_word*)lf[72]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ /* irregex-core.scm:680: symbol->string */ t8=*((C_word*)lf[73]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}}} /* k21626 in k21578 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21628,2,av);} /* irregex-core.scm:2603: add-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20986(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* k7535 in vector-copy in k7529 */ static void C_ccall f_7537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_7537,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7540,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:82: vector-copy! */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* vector-copy in k7529 */ static void C_fcall f_7533(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_7533,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7537,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_vector_length(t2); /* irregex-core.scm:81: make-vector */ t5=*((C_word*)lf[2]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8411 in k8387 in k8381 in make-irregex-chunker in k7760 in k7529 */ static void C_ccall f_8413(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_8413,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* a17466 in lp2 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_17467(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_17467,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_17500,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:1736: sre-count-submatches */ f_17161(t6,t8);} /* k7529 */ 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 t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(51,c,4)))){ C_save_and_reclaim((void *)f_7531,2,av);} a=C_alloc(51); t2=C_mutate2(&lf[0] /* (set! vector-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7533,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[3]+1 /* (set! irregex? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7546,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[5]+1 /* (set! irregex-dfa ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7552,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[6]+1 /* (set! irregex-dfa/search ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7561,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[7]+1 /* (set! irregex-nfa ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7570,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[8]+1 /* (set! irregex-flags ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7579,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[9]+1 /* (set! irregex-num-submatches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7588,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[10]+1 /* (set! irregex-lengths ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7597,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[11]+1 /* (set! irregex-names ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7606,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[12]+1 /* (set! irregex-new-matches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7615,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[14]+1 /* (set! irregex-reset-matches! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7642,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2(&lf[16] /* (set! irregex-copy-matches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7651,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[17]+1 /* (set! irregex-match-data? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7683,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[18]+1 /* (set! irregex-match-num-submatches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7689,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[19]+1 /* (set! irregex-match-names ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7716,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7762,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31512,a[2]=((C_word)li391),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:154: ##sys#register-record-printer */ t19=*((C_word*)lf[477]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t19; av2[1]=t17; av2[2]=lf[13]; av2[3]=t18; ((C_proc)(void*)(*((C_word*)t19+1)))(4,av2);}} /* k26507 in k26501 in k26495 in k26486 */ static void C_ccall f_26509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_26509,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_26515,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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:3629: cset-contains? */ f_27251(t3,((C_word*)t0)[11],t4);} /* k26501 in k26495 in k26486 */ static void C_ccall f_26503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_26503,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_26509,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:3626: g5119 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k24572 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ 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 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_24574,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[172],t1); t3=C_a_i_cons(&a,2,lf[104],t2); /* irregex-core.scm:3289: rec */ t4=((C_word*)t0)[2]; f_23701(t4,((C_word*)t0)[3],t3);} /* irregex? in k7529 */ static void C_ccall f_7546(C_word c,C_word *av){ C_word tmp; C_word 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_7546,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[4]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7538 in k7535 in vector-copy in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7540,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* irregex-lengths in k7529 */ static void C_ccall f_7597(C_word c,C_word *av){ C_word tmp; C_word 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_7597,3,av);} t3=C_i_check_structure_2(t2,lf[4],lf[10]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(6)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a24808 */ static void C_ccall f_24809(C_word c,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_24809,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* lp2 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_17430(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_17430,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:1732: 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:1732: 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:1732: 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_17467,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=t5,a[6]=t4,a[7]=((C_word)li195),tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1733: lp */ t8=((C_word*)((C_word*)t0)[6])[1]; f_17273(t8,t1,t6,t3,C_fix(0),C_fix(0),t7);}} /* a24910 */ static void C_ccall f_24911(C_word c,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_24911,2,av);} /* irregex-core.scm:3371: fail */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11956 in lp2 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_11958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_11958,2,av);} a=C_alloc(6); t2=( /* irregex-core.scm:981: new-res */ f_11806(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],t1) ); /* irregex-core.scm:981: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10523(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k24945 in k24829 in k24826 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_ccall f_24947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_24947,2,av);} t2=C_fixnum_plus(C_fixnum_plus(((C_word*)t0)[2],((C_word*)t0)[3]),t1); /* irregex-core.scm:3347: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_23698(t3,((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7],((C_word*)t0)[8]);} /* k24678 */ static void C_ccall f_24680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_24680,2,av);} if(C_truep(t1)){ /* irregex-core.scm:3313: fail */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* irregex-core.scm:3314: next */ t2=((C_word*)t0)[4];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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);}}} /* a24687 */ static void C_ccall f_24688(C_word c,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_24688,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a24694 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24695(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24695,10,av);} t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k12396 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12398,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[167],t1); /* irregex-core.scm:1043: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10523(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k17485 in k17481 in k17498 in a17466 in lp2 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in ... */ static void C_ccall f_17487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_17487,2,av);} /* irregex-core.scm:1735: lp2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17430(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);} /* a13044 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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=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_13045,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13057,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:1119: collect */ t5=((C_word*)((C_word*)t0)[5])[1]; f_10604(t5,t4);} /* f_24952 in k24829 in k24826 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 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=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_24952,10,av);} /* irregex-core.scm:3353: fail */ t10=t9;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k16769 in sre-any? in k9756 in k7760 in k7529 */ static void C_fcall f_16771(C_word t0,C_word t1){ C_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_16771,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:1650: sre-any? */ t8=lf[264];{ C_word av2[3]; av2[0]=t8; av2[1]=((C_word*)t0)[3]; av2[2]=t7; f_16748(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[93]); if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); /* irregex-core.scm:1651: every */ f_9329(((C_word*)t0)[3],lf[264],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);}}}} /* k11989 in lp2 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_11991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_11991,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:984: lp */ t4=((C_word*)((C_word*)t0)[4])[1]; f_10523(t4,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],t3);} /* k24990 */ static void C_ccall f_24992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_24992,2,av);} a=C_alloc(13); t2=t1; if(C_truep(t2)){ 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_25010,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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]=t5,a[10]=((C_word)li172),tmp=(C_word)a,a+=11,tmp)); t7=((C_word*)t5)[1]; f_25010(t7,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12],C_fix(0),t3);} else{ /* irregex-core.scm:3384: fail */ t3=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k17481 in k17498 in a17466 in lp2 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in ... */ static void C_ccall f_17483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_17483,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17487,a[2]=((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:1738: max */ t4=*((C_word*)lf[239]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:1735: lp2 */ t4=((C_word*)((C_word*)t0)[2])[1]; f_17430(t4,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2,C_SCHEME_FALSE);}} else{ /* irregex-core.scm:1735: lp2 */ t4=((C_word*)((C_word*)t0)[2])[1]; f_17430(t4,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2,C_SCHEME_FALSE);}} /* k28098 in lp in k28077 in k28074 in k28065 in k28062 in k28056 in k28053 in k28050 in k28047 in irregex-fold/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_28100,2,av);} a=C_alloc(10); if(C_truep(t1)){ 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)[2]; 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)[3],t9,((C_word*)t0)[4]); t11=C_fixnum_plus(t6,C_fix(1)); /* irregex-core.scm:3890: lp */ t12=((C_word*)((C_word*)t0)[5])[1]; f_28087(t12,((C_word*)t0)[6],t10,t11,((C_word*)t0)[7]);} else{ t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_28136,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[6],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)[10],tmp=(C_word)a,a+=10,tmp); /* irregex-core.scm:3891: kons */ t10=((C_word*)t0)[11];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[2]; av2[3]=t1; av2[4]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}} else{ /* irregex-core.scm:3886: finish */ t2=((C_word*)t0)[9];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[6]; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* sre-sequence-names in k9756 in k7760 in k7529 */ static void C_fcall f_18885(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_18885,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_18913,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:1908: sre-count-submatches */ f_17161(t7,t9);}} /* k28711 in lp in irregex-apply-match in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_28713,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:3980: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_28662(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k22285 in lp2 in lp in k23153 in k23149 in k23145 in nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_22287,2,av);} t2=C_i_vector_set(((C_word*)t0)[2],C_fix(2),t1); t3=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); t4=C_fixnum_plus(t3,C_fix(1)); t5=C_i_vector_set(((C_word*)t0)[2],C_fix(1),t4); t6=C_fixnum_plus(((C_word*)t0)[3],C_fix(3)); t7=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_i_vector_set(((C_word*)t0)[2],t6,((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* irregex-new-matches in k7529 */ 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=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_7615,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7623,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7640,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:118: irregex-num-submatches */ t5=*((C_word*)lf[9]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k24841 in k24832 in k24829 in k24826 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in ... */ static void C_fcall f_24843(C_word t0,C_word t1){ C_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_24843,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24846,a[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_24846(2,av2);}} else{ /* irregex-core.scm:3361: error */ t10=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t2; av2[2]=lf[225]; 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_24846(2,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24904,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:3368: lp */ t4=((C_word*)((C_word*)t0)[7])[1]; f_23698(t4,t2,t3,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[2]);}} /* irregex-names in k7529 */ 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 *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_7606,3,av);} t3=C_i_check_structure_2(t2,lf[4],lf[11]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(7)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k24844 in k24841 in k24832 in k24829 in k24826 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in ... */ static void C_ccall f_24846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_24846,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24847,a[2]=t2,a[3]=((C_word*)t0)[2],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=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_24847 in k24844 in k24841 in k24832 in k24829 in k24826 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in ... */ static void C_ccall f_24847(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24847,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:3365: pass */ t14=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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:3366: fail */ t14=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ 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);}}} /* k26513 in k26507 in k26501 in k26495 in k26486 */ static void C_ccall f_26515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_26515,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* irregex-core.scm:3630: next */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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:3631: fail */ t2=((C_word*)t0)[11];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* sre-any? in k9756 in k7760 in k7529 */ static void C_ccall f_16748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16748,3,av);} a=C_alloc(5); t3=C_eqp(t2,lf[114]); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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[104]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16771,a[2]=t2,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); if(C_truep(t6)){ t8=t7; f_16771(t8,t6);} else{ t8=C_eqp(t5,lf[212]); if(C_truep(t8)){ t9=t7; f_16771(t9,t8);} else{ t9=C_eqp(t5,lf[230]); if(C_truep(t9)){ t10=t7; f_16771(t10,t9);} else{ t10=C_eqp(t5,lf[98]); if(C_truep(t10)){ t11=t7; f_16771(t11,t10);} else{ t11=C_eqp(t5,lf[109]); t12=t7; f_16771(t12,(C_truep(t11)?t11:C_eqp(t5,lf[110])));}}}}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k24832 in k24829 in k24826 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_ccall f_24834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_24834,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_24843,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_24843(t6,t4);} else{ t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=C_u_i_car(t7); t9=t5; f_24843(t9,C_i_symbolp(t8));}} /* k24829 in k24826 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24831(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_24831,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_24834,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_24947,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:3349: sre-count-submatches */ f_17161(t7,t11);} else{ t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24952,a[2]=((C_word)li171),tmp=(C_word)a,a+=3,tmp); f_24834(2,av2);}}} /* k23981 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_23983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_23983,2,av);} a=C_alloc(5); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23984,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word)li130),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_23984 in k23981 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_23984(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_23984,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23990,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)li129),tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3163: body */ t11=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k27845 in intersect in k27788 in k27784 in cset-intersection in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_27847(C_word t0,C_word 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_27847,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:3830: intersect */ t6=((C_word*)((C_word*)t0)[6])[1]; f_27792(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:3830: intersect */ t7=((C_word*)((C_word*)t0)[6])[1]; f_27792(t7,((C_word*)t0)[7],t1,t5,t6);}} /* k24826 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_24828,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24831,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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:3345: lp */ t6=((C_word*)((C_word*)t0)[5])[1]; f_23698(t6,t3,t4,((C_word*)t0)[7],t5,((C_word*)t0)[8]);} /* k28137 in k28134 in k28098 in lp in k28077 in k28074 in k28065 in k28062 in k28056 in k28053 in k28050 in k28047 in irregex-fold/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_28139,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:3897: finish */ t5=((C_word*)t0)[3];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:3898: lp */ t6=((C_word*)((C_word*)t0)[9])[1]; f_28087(t6,((C_word*)t0)[4],t5,((C_word*)t0)[5],((C_word*)t0)[6]);}} /* k28134 in k28098 in lp in k28077 in k28074 in k28065 in k28062 in k28056 in k28053 in k28050 in k28047 in irregex-fold/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_28136,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_28139,a[2]=((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:3892: irregex-reset-matches! */ t4=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a24815 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24816(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24816,10,av);} t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k28737 in lp in irregex-apply-match in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_28739,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_28662(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k23023 in lp in k22979 in a22976 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_23025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_23025,2,av);} /* irregex-core.scm:2944: append */ t2=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12786 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12788,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[173],t1); /* irregex-core.scm:1076: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10523(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* for-each-loop4010 in k22157 in mst-add! in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22214(C_word t0,C_word t1,C_word 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_22214,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:2732: g4011 */ f_22166(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);}}} /* a12798 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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=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_12799,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_12819,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:1080: collect */ t9=((C_word*)((C_word*)t0)[5])[1]; f_10604(t9,t8);} /* k11907 in lp2 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_11909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11909,2,av);} /* irregex-core.scm:976: lp2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11794(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} /* k22199 in k22157 in mst-add! in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_22201,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22208,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_vector_length(t3); t5=C_fixnum_divide(t4,C_fix(4)); /* irregex-core.scm:2742: modulo */ t6=*((C_word*)lf[381]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[5])[1]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k11001 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_11003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(18,c,4)))){ C_save_and_reclaim((void *)f_11003,2,av);} a=C_alloc(18); t2=t1; if(C_truep(C_i_nullp(t2))){ /* irregex-core.scm:842: error */ t3=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[116]; 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_fixnum_plus(((C_word*)t0)[4],C_fix(1)); t5=t4; t6=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); t7=t6; t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11034,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[117]); if(C_truep(t10)){ t11=C_u_i_cdr(t3); t12=t8; f_11034(t12,C_a_i_cons(&a,2,lf[118],t11));} else{ t11=C_eqp(t9,lf[119]); 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_11034(t15,C_a_i_cons(&a,2,lf[120],t14));} else{ t12=C_eqp(t9,lf[121]); if(C_truep(t12)){ t13=C_u_i_cdr(t3); t14=t8; f_11034(t14,C_a_i_cons(&a,2,lf[122],t13));} else{ t13=C_eqp(t9,lf[123]); if(C_truep(t13)){ t14=C_u_i_cdr(t3); t15=t8; f_11034(t15,C_a_i_cons(&a,2,lf[120],t14));} else{ t14=C_eqp(t9,lf[124]); 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_11034(t18,C_a_i_cons(&a,2,lf[120],t17));} else{ t15=C_eqp(t9,lf[125]); 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_11034(t21,C_a_i_cons(&a,2,lf[120],t20));} else{ t16=t8; f_11034(t16,C_a_i_list(&a,2,lf[121],t3));}}}}}}} else{ t9=t8; f_11034(t9,C_a_i_list(&a,2,lf[121],t3));}}} /* k27807 in intersect in k27788 in k27784 in cset-intersection in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27809(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27809,2,av);} /* irregex-core.scm:3819: list->vector */ t2=*((C_word*)lf[391]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k22206 in k22199 in k22157 in mst-add! in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_22208,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_vector_set(t3,C_fix(2),t1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* irregex-match-data? in k7529 */ 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=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_7683,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[13]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* irregex-match-num-submatches in k7529 */ 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=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_7689,3,av);} t3=C_i_check_structure_2(t2,lf[13],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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_fixnum_difference(t6,C_fix(2)); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k11032 in k11001 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_11034(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_11034,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:844: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_10523(t4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t3,((C_word*)t0)[8]);} /* k12761 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12763,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[172],t1); /* irregex-core.scm:1074: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10523(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k7663 in irregex-copy-matches in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_7665,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_record5(&a,5,lf[13],t1,t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* nfa-get-epsilons in k19097 in k9756 in k7760 in k7529 */ static C_word C_fcall f_20789(C_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));}} /* map-loop2381 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_15999(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_15999,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_16024,a[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:1539: g2387 */ t5=((C_word*)t0)[4]; f_15986(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);}}} /* k15995 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_15997(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_15997,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22654(C_word t0,C_word t1){ C_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_22654,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:2864: lp */ t5=((C_word*)((C_word*)t0)[5])[1]; f_22621(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_22673,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_22977,a[2]=t6,a[3]=((C_word)li299),tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2925: mst-fold */ f_22505(t5,t4,t7,C_SCHEME_END_OF_LIST);}}} /* k12711 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_12713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_12713,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[71],t1); /* irregex-core.scm:1069: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10523(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* g2387 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_15986(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_15986,3,t0,t1,t2);} /* irregex-core.scm:1539: adjust */ t3=((C_word*)((C_word*)t0)[2])[1]; f_15865(t3,t1,t2,((C_word*)t0)[3],C_SCHEME_TRUE);} /* k12736 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12738,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[177],t1); /* irregex-core.scm:1071: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10523(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k15961 in map-loop2354 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_15963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_15963,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_15938(t6,((C_word*)t0)[5],t5);} /* g3537 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static C_word C_fcall f_20632(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));} /* k13366 in k13348 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_13368,2,av);} /* irregex-core.scm:1164: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10523(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);} /* k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_22605,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_22621,a[2]=t7,a[3]=((C_word*)t0)[4],a[4]=t11,a[5]=((C_word*)t0)[5],a[6]=((C_word)li300),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_22621(t13,((C_word*)t0)[6],t8,t9,C_fix(0));} /* k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22602(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_22602,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22605,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:2849: make-mst */ f_22095(t3,((C_word*)t0)[3]);} /* k21278 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21280(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21280,2,av);} /* irregex-core.scm:2498: cset-case-insensitive */ f_27914(((C_word*)t0)[2],t1);} /* k15934 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_15936(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_15936,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* lp2 in k22671 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22677(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_22677,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:2872: lp */ t9=((C_word*)((C_word*)t0)[5])[1]; f_22621(t9,t1,t3,t7,t8);} else{ t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22705,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:2875: nfa-epsilon-closure */ f_23275(t5,((C_word*)t0)[7],t6);}} /* map-loop2354 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_15938(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_15938,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_15963,a[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:1537: g2360 */ t5=((C_word*)t0)[4]; f_15925(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);}}} /* k22671 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ 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 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_22673,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_22677,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)li296),tmp=(C_word)a,a+=9,tmp)); t7=((C_word*)t5)[1]; f_22677(t7,((C_word*)t0)[8],t1,t3,C_SCHEME_END_OF_LIST);} /* g2360 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_15925(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_15925,3,t0,t1,t2);} /* irregex-core.scm:1537: adjust */ t3=((C_word*)((C_word*)t0)[2])[1]; f_15865(t3,t1,t2,((C_word*)t0)[3],C_SCHEME_FALSE);} /* for-each-loop3536 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20660(C_word t0,C_word t1,C_word 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_20660,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:2166: g3537 */ f_20632(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);}}} /* lp in k22979 in a22976 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22998(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_22998,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_23016,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:2939: nfa-state->mst */ f_22143(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_23025,a[2]=t1,a[3]=t2,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t8=C_i_cdar(t2); /* irregex-core.scm:2943: mst-add! */ f_22152(t7,((C_word*)t0)[2],t8,t4,((C_word*)t0)[3]);} else{ t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_23035,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_22962,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:2923: cset-intersection */ t12=lf[387];{ C_word av2[4]; av2[0]=t12; av2[1]=t11; av2[2]=t10; av2[3]=t8; f_27778(4,av2);}}}} /* k13348 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,2)))){ C_save_and_reclaim((void *)f_13350,2,av);} a=C_alloc(8); t2=(C_truep(t1)?t1:C_fixnum_difference(((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_13368,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:1164: collect */ t8=((C_word*)((C_word*)t0)[7])[1]; f_10604(t8,t7);} /* k21266 in k21259 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21268,2,av);} /* irregex-core.scm:2500: extend-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_21053(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k21259 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_21261,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21268,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:2500: lp */ t6=((C_word*)((C_word*)t0)[5])[1]; f_20973(t6,t3,t5,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k24273 in k24267 in a24261 in body4512 in k24240 in k24237 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in ... */ static void C_ccall f_24275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_24275,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_24280,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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)li142),tmp=(C_word)a,a+=14,tmp); /* irregex-core.scm:3236: g4531 */ t3=t1;{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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);}} /* k21228 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21230(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_21230,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:2487: lp */ t5=((C_word*)((C_word*)t0)[3])[1]; f_20973(t5,((C_word*)t0)[4],t4,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* a24279 in k24273 in k24267 in a24261 in body4512 in k24240 in k24237 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 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 *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_24280,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:3243: next */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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:3244: fail */ t3=((C_word*)t0)[12];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k25567 */ static void C_ccall f_25569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_25569,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_25578,a[2]=((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:3460: g4890 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:3464: fail */ t3=((C_word*)t0)[7];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k21201 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_21203,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); /* irregex-core.scm:2483: add-char-state! */ t4=((C_word*)((C_word*)t0)[3])[1]; f_21070(t4,((C_word*)t0)[4],t1,t3);} /* k22979 in a22976 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22981(C_word t0,C_word 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_22981,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_22998,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t5,a[5]=((C_word)li298),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_22998(t7,((C_word*)t0)[3],((C_word*)t0)[2],t2,t3,C_SCHEME_END_OF_LIST);}} /* body4512 in k24240 in k24237 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_ccall f_24256(C_word c,C_word *av){ C_word tmp; C_word 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_24256,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24262,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)li143),tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:3233: lp */ t4=((C_word*)((C_word*)t0)[6])[1]; f_23698(t4,t1,((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[8],((C_word*)t0)[9],t3);} /* k7638 in irregex-new-matches in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7640,2,av);} t2=C_fixnum_plus(C_fix(2),t1); t3=C_fixnum_times(C_fix(4),t2); /* irregex-core.scm:117: make-vector */ t4=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10679 in collect/single in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_10681(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_10681,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14443,a[2]=t3,a[3]=((C_word)li73),tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[4]; f_10631(t5,( f_14443(t4,t2) ));} else{ t2=((C_word*)t0)[4]; f_10631(t2,C_fixnum_difference(((C_word*)t0)[2],C_fix(1)));}} /* a24261 in body4512 in k24240 in k24237 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in ... */ static void C_ccall f_24262(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24262,10,av);} a=C_alloc(15); t10=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_24269,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_24269(t12,C_eqp(t11,((C_word*)((C_word*)t0)[6])[1]));} else{ t11=t10; f_24269(t11,C_SCHEME_FALSE);}} /* a22976 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ 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=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_22977,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22981,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_22981(t7,C_SCHEME_END_OF_LIST);} else{ t7=C_fixnum_times(t2,C_fix(4)); t8=t5; f_22981(t8,C_i_vector_ref(((C_word*)t0)[2],t7));}} /* k24267 in a24261 in body4512 in k24240 in k24237 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in ... */ static void C_fcall f_24269(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_24269,2,t0,t1);} a=C_alloc(14); if(C_truep(t1)){ /* irregex-core.scm:3238: 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_24275,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:3239: 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);}}} /* f_25549 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_25549(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25549,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:3457: next */ t13=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_25569,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:3458: g4885 */ t15=t13;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}} /* k10616 in collect in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_10618(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_10618,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* irregex-copy-matches in k7529 */ static void C_fcall f_7651(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_7651,2,t1,t2);} a=C_alloc(4); if(C_truep(C_i_structurep(t2,lf[13]))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7665,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=C_slot(t2,C_fix(1)); /* irregex-core.scm:128: vector-copy */ f_7533(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);}}} /* k16070 in k16047 in k16038 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16072,2,av);} /* irregex-core.scm:1544: any */ f_9286(((C_word*)t0)[2],lf[191],t1);} /* k13148 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13150,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1143: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10523(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* collect/single in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_10624(C_word t0,C_word t1){ C_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_10624,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_10631,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_10681,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_10681(t9,C_fixnum_greaterp(t8,C_fix(1)));} else{ t8=t7; f_10681(t8,C_SCHEME_FALSE);}} /* k7647 in irregex-reset-matches! in k7529 */ static void C_ccall f_7649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7649,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* irregex-reset-matches! in k7529 */ static void C_ccall f_7642(C_word c,C_word *av){ C_word tmp; C_word 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_7642,3,av);} a=C_alloc(4); t3=C_slot(t2,C_fix(1)); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7649,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:121: vector-fill! */ t5=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k13166 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_13168,2,av);} /* irregex-core.scm:1147: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10523(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);} /* k10620 in collect in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_10622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10622,2,av);} /* irregex-core.scm:753: cased-string */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10548(t2,((C_word*)t0)[3],t1);} /* k16063 in k16053 in k16047 in k16038 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16065(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_16065,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list2(&a,2,lf[210],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k17716 in k17667 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_17718(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_17718,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_17727,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_17727(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_17727(t8,C_i_not(t7));}} /* k16053 in k16047 in k16038 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_16055,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_16065,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:1546: cset->utf8-pattern */ f_15743(t2,((C_word*)t0)[4]);} else{ /* irregex-core.scm:1547: cset->utf8-pattern */ f_15743(((C_word*)t0)[3],((C_word*)t0)[4]);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7621 in irregex-new-matches in k7529 */ static void C_ccall f_7623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_7623,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record5(&a,5,lf[13],t1,t3,C_SCHEME_FALSE,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k17725 in k17716 in k17667 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_fcall f_17727(C_word t0,C_word t1){ C_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_17727,2,t0,t1);} if(C_truep(t1)){ /* irregex-core.scm:1779: error */ t2=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[241]; av2[3]=lf[242]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ if(C_truep(C_i_vector_ref(((C_word*)t0)[4],((C_word*)t0)[5]))){ t2=C_i_vector_ref(((C_word*)t0)[4],((C_word*)t0)[5]); t3=C_i_car(t2); t4=C_i_vector_ref(((C_word*)t0)[4],((C_word*)t0)[5]); t5=C_i_cdr(t4); t6=C_fixnum_plus(((C_word*)t0)[6],t3); if(C_truep(((C_word*)t0)[7])){ if(C_truep(t5)){ t7=C_fixnum_plus(((C_word*)t0)[7],t5); /* irregex-core.scm:1785: return */ t8=((C_word*)t0)[8];{ 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{ /* irregex-core.scm:1785: return */ t7=((C_word*)t0)[8];{ C_word av2[4]; av2[0]=t7; av2[1]=((C_word*)t0)[2]; av2[2]=t6; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} else{ /* irregex-core.scm:1785: return */ t7=((C_word*)t0)[8];{ C_word av2[4]; av2[0]=t7; av2[1]=((C_word*)t0)[2]; av2[2]=t6; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} else{ /* irregex-core.scm:1781: error */ t2=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[241]; av2[3]=lf[243]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}} /* for-each-loop3621 in k20396 in k20357 in lp2 in k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20486(C_word t0,C_word t1,C_word 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_20486,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:2214: g3622 */ f_20399(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);}}} /* k25582 in k25576 in k25567 */ static void C_ccall f_25584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_25584,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_25590,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:3460: g4894 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16038 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_16040(C_word t0,C_word t1){ C_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_16040,2,t0,t1);} a=C_alloc(20); if(C_truep(t1)){ t2=((C_word*)t0)[2]; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16049,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); /* irregex-core.scm:1543: sre->cset */ f_26784(t3,((C_word*)t0)[5],C_a_i_list(&a,1,((C_word*)t0)[3]));} else{ t3=((C_word*)t0)[5]; 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_eqp(((C_word*)t0)[6],lf[117]); if(C_truep(t2)){ t3=((C_word*)t0)[5]; t4=C_u_i_cdr(t3); t5=( /* irregex-core.scm:1550: sre-sequence */ f_18372(C_a_i(&a,3),t4) ); t6=C_eqp(t5,lf[114]); if(C_truep(t6)){ t7=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t7; av2[1]=lf[259]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_eqp(t5,lf[115]); if(C_truep(t7)){ t8=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t8; av2[1]=lf[260]; ((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)[5]; t14=C_u_i_cdr(t13); t15=C_i_check_list_2(t14,lf[198]); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16107,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_16109,a[2]=t10,a[3]=t18,a[4]=t12,a[5]=t11,a[6]=((C_word)li215),tmp=(C_word)a,a+=7,tmp)); t20=((C_word*)t18)[1]; f_16109(t20,t16,t14);}}} else{ t3=((C_word*)t0)[5]; 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)[5]; t11=C_u_i_cdr(t10); t12=C_i_check_list_2(t11,lf[198]); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16163,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_16165,a[2]=t7,a[3]=t15,a[4]=t9,a[5]=t8,a[6]=((C_word)li216),tmp=(C_word)a,a+=7,tmp)); t17=((C_word*)t15)[1]; f_16165(t17,t13,t11);}}} /* k16047 in k16038 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_16049,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16055,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_16072,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:1544: cset->plist */ f_26671(t4,t2);} /* k25576 in k25567 */ static void C_ccall f_25578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_25578,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_25584,a[2]=((C_word*)t0)[2],a[3]=((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:3460: g4892 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10666 in k10629 in collect/single in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_10668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10668,2,av);} /* irregex-core.scm:765: cased-char */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; f_10526(3,av2);}} /* k10662 in k10638 in k10629 in collect/single in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_10664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10664,2,av);} /* irregex-core.scm:773: cased-string */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10548(t2,((C_word*)t0)[3],t1);} /* k10658 in k10638 in k10629 in collect/single in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_10660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_10660,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; /* Re-use our own argvector */ 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);}} /* k16022 in map-loop2381 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ 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 t3; 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_16024,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_15999(t6,((C_word*)t0)[5],t5);} /* k13896 in k13890 in k13881 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_13898,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13901,a[2]=((C_word*)t0)[2],a[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:1260: cset-complement */ f_27904(t2,t1);} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; f_13901(2,av2);}}} /* a18025 in k17667 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_18026(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_18026,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:1812: return */ t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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:1812: return */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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:1812: return */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}}} /* k13890 in k13881 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_13892(C_word 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(13,0,4)))){ C_save_and_reclaim_args((void *)trf_13892,2,t0,t1);} a=C_alloc(13); if(C_truep(t1)){ /* irregex-core.scm:1256: error */ t2=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[160]; 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_13898,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_13919,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13923,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_fixnum_plus(((C_word*)t0)[8],C_fix(1)); /* irregex-core.scm:1259: substring */ t6=*((C_word*)lf[38]+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);}}} /* k18068 in k18049 in k17667 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_fcall f_18070(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_18070,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[123],t2); /* irregex-core.scm:1814: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_17273(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* collect/terms in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_10696(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_10696,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10700,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:779: collect */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10604(t3,t2);} /* k24237 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_24239(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_24239,2,t0,t1);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24242,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_24242(t3,t1);} else{ t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=t2; f_24242(t5,(C_truep(C_u_i_car(t4))?C_SCHEME_FALSE:C_i_caddr(((C_word*)t0)[3])));}} /* f_24243 in k24240 in k24237 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_ccall f_24243(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24243,10,av);} /* irregex-core.scm:3225: fail */ t10=t9;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k24240 in k24237 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_24242(C_word t0,C_word t1){ C_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(28,0,10)))){ C_save_and_reclaim_args((void *)trf_24242,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_24243,a[2]=((C_word)li141),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:3230: sre-sequence */ f_18372(C_a_i(&a,3),t17) ); t19=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24256,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)li144),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=C_eqp(((C_word*)t3)[1],C_fix(0)); t25=(C_truep(t24)?(C_truep(((C_word*)t5)[1])?C_eqp(((C_word*)t5)[1],C_fix(0)):C_SCHEME_FALSE):C_SCHEME_FALSE); if(C_truep(t25)){ t26=((C_word*)t0)[4]; t27=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t27; av2[1]=t26; ((C_proc)(void*)(*((C_word*)t27+1)))(2,av2);}} else{ t26=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24311,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t9,a[5]=((C_word)li146),tmp=(C_word)a,a+=6,tmp); t27=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t27; av2[1]=t26; ((C_proc)(void*)(*((C_word*)t27+1)))(2,av2);}}}} /* k14800 in k14796 in k14792 in lp in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_14802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_14802,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:1420: sre-alternate */ t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( /* irregex-core.scm:1420: sre-alternate */ f_18395(C_a_i(&a,3),t2) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10629 in collect/single in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_10631(C_word t0,C_word 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(12,0,4)))){ C_save_and_reclaim_args((void *)trf_10631,2,t0,t1);} 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[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_10640,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_10668,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:766: utf8-string-ref */ f_14245(t5,((C_word*)t0)[6],t2,t6);} else{ t6=C_i_string_ref(((C_word*)t0)[6],t2); /* irregex-core.scm:765: cased-char */ t7=((C_word*)((C_word*)t0)[7])[1];{ C_word av2[3]; av2[0]=t7; av2[1]=t4; av2[2]=t6; f_10526(3,av2);}}}} /* lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22621(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_22621,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_22638,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:2860: ##sys#fast-reverse */ t11=*((C_word*)lf[61]+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_22654,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_22654(t7,C_fixnum_greaterp(t6,((C_word*)t0)[5]));} else{ t6=t5; f_22654(t6,C_SCHEME_FALSE);}}} /* k10638 in k10629 in collect/single in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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_10640,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; /* Re-use our own argvector */ 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_10660,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_10664,a[2]=((C_word*)t0)[6],a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:773: substring */ t7=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k22636 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22638(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_22638,2,av);} a=C_alloc(10); t2=((C_word*)t0)[2]; t3=t1; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22800,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_22923,a[2]=t6,a[3]=((C_word)li291),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_22923(t8,t4,C_fix(0),t3,C_SCHEME_END_OF_LIST);} /* k14796 in k14792 in lp in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_14798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_14798,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14802,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:1422: unicode-range-up-to */ f_15121(t3,((C_word*)t0)[4]);} /* k14792 in lp in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_14794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_14794,2,av);} a=C_alloc(31); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14798,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[43],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[198]); t21=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15686,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_15688,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_15688(t25,t21,t19);} /* k14777 in lp in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ 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 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_14779,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14783,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1418: unicode-range-up-to */ f_15121(t3,((C_word*)t0)[3]);} /* k14131 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_14133(C_word t0,C_word t1){ C_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_14133,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[158],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_14147,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:1286: utf8-string-ref */ f_14245(t7,((C_word*)t0)[7],((C_word*)t0)[3],t4);} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14166,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:3773: cset-union */ t8=lf[151];{ C_word av2[4]; av2[0]=t8; av2[1]=t4; av2[2]=t5; av2[3]=t7; f_27373(4,av2);}}} /* k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_19099,2,av);} a=C_alloc(1655); t2=C_mutate2(&lf[271] /* (set! irregex-basic-string-chunker ...) */,t1); t3=C_mutate2((C_word*)lf[272]+1 /* (set! irregex-search ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19101,a[2]=((C_word)li236),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[273]+1 /* (set! irregex-search/chunked ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19195,a[2]=((C_word)li237),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[277]+1 /* (set! irregex-search/matches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19240,a[2]=((C_word)li246),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[281]+1 /* (set! irregex-match ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19525,a[2]=((C_word)li247),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[282]+1 /* (set! irregex-match/chunked ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19619,a[2]=((C_word)li250),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[286]+1 /* (set! irregex-match? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19859,a[2]=((C_word)li251),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2(&lf[287] /* (set! finalize! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20056,a[2]=((C_word)li254),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2(&lf[279] /* (set! dfa-match/longest ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20184,a[2]=((C_word)li265),tmp=(C_word)a,a+=3,tmp)); t11=C_a_i_cons(&a,2,lf[114],lf[44]); 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[115],lf[232],lf[44],t13); t15=C_a_i_list(&a,6,lf[289],lf[43],C_make_character(97),C_make_character(122),C_make_character(65),C_make_character(90)); t16=C_a_i_cons(&a,2,lf[290],lf[289]); t17=C_a_i_list(&a,8,lf[170],lf[43],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[291],lf[170]); t19=C_a_i_cons(&a,2,lf[292],lf[170]); t20=C_a_i_list(&a,4,lf[293],lf[43],C_make_character(97),C_make_character(122)); t21=C_a_i_cons(&a,2,lf[294],lf[293]); t22=C_a_i_list(&a,4,lf[295],lf[43],C_make_character(65),C_make_character(90)); t23=C_a_i_cons(&a,2,lf[296],lf[295]); t24=C_a_i_list(&a,4,lf[167],lf[43],C_make_character(48),C_make_character(57)); t25=C_a_i_cons(&a,2,lf[297],lf[167]); t26=C_a_i_cons(&a,2,lf[298],lf[167]); t27=C_a_i_list(&a,25,lf[299],lf[93],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[300],lf[299]); t29=C_a_i_list(&a,13,lf[301],lf[93],lf[170],lf[299],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[302],lf[301]); t31=C_a_i_list(&a,4,lf[303],lf[93],C_make_character(32),C_make_character(9)); t32=C_a_i_list(&a,4,lf[304],lf[93],lf[303],C_make_character(10)); t33=C_a_i_cons(&a,2,lf[70],lf[304]); t34=C_a_i_cons(&a,2,lf[305],lf[304]); t35=C_a_i_list(&a,4,lf[306],lf[93],lf[301],lf[304]); t36=C_a_i_cons(&a,2,lf[307],lf[306]); t37=C_a_i_list(&a,4,lf[308],lf[43],C_make_character(0),C_make_character(31)); t38=C_a_i_cons(&a,2,lf[309],lf[308]); t39=C_a_i_list(&a,5,lf[43],C_make_character(97),C_make_character(102),C_make_character(65),C_make_character(70)); t40=C_a_i_list(&a,4,lf[310],lf[93],lf[167],t39); t41=C_a_i_cons(&a,2,lf[311],lf[310]); t42=C_a_i_list(&a,4,lf[312],lf[43],C_make_character(0),C_make_character(127)); t43=C_a_i_list(&a,6,lf[313],lf[43],C_make_character(0),C_make_character(9),C_make_character(11),C_make_character(127)); t44=C_a_i_list(&a,3,lf[104],C_make_character(13),C_make_character(10)); t45=C_a_i_list(&a,3,lf[43],C_make_character(10),C_make_character(13)); t46=C_a_i_list(&a,4,lf[71],lf[93],t44,t45); t47=C_a_i_list(&a,3,lf[93],lf[170],C_make_character(95)); t48=C_a_i_list(&a,2,lf[119],t47); t49=C_a_i_list(&a,5,lf[216],lf[104],lf[172],t48,lf[173]); t50=C_a_i_list(&a,4,lf[314],lf[43],C_make_character(128),C_make_character(193)); t51=C_a_i_list(&a,3,lf[43],C_make_character(194),C_make_character(223)); t52=C_a_i_list(&a,4,lf[315],lf[104],t51,lf[314]); t53=C_a_i_list(&a,3,lf[43],C_make_character(224),C_make_character(239)); t54=C_a_i_list(&a,5,lf[316],lf[104],t53,lf[314],lf[314]); t55=C_a_i_list(&a,3,lf[43],C_make_character(240),C_make_character(247)); t56=C_a_i_list(&a,6,lf[317],lf[104],t55,lf[314],lf[314],lf[314]); t57=C_a_i_list(&a,6,lf[261],lf[93],lf[312],lf[315],lf[316],lf[317]); t58=C_a_i_list(&a,6,lf[262],lf[93],lf[313],lf[315],lf[316],lf[317]); t59=C_a_i_list(&a,3,lf[93],C_make_character(43),C_make_character(45)); t60=C_a_i_list(&a,2,lf[121],t59); t61=C_a_i_list(&a,2,lf[119],lf[167]); t62=C_a_i_list(&a,4,lf[318],lf[104],t60,t61); t63=C_a_i_list(&a,3,lf[93],C_make_character(43),C_make_character(45)); t64=C_a_i_list(&a,2,lf[121],t63); t65=C_a_i_list(&a,2,lf[119],lf[167]); t66=C_a_i_list(&a,2,lf[119],lf[167]); t67=C_a_i_list(&a,3,lf[121],C_make_character(46),t66); t68=C_a_i_list(&a,3,lf[93],C_make_character(101),C_make_character(69)); t69=C_a_i_list(&a,3,lf[121],t68,lf[318]); t70=C_a_i_list(&a,6,lf[319],lf[104],t64,t65,t67,t69); t71=C_a_i_list(&a,1,lf[320]); t72=C_a_i_list(&a,4,lf[321],lf[93],lf[290],t71); t73=C_a_i_list(&a,1,lf[322]); t74=C_a_i_list(&a,5,lf[323],lf[93],lf[321],lf[298],t73); t75=C_a_i_list(&a,2,lf[117],lf[323]); t76=C_a_i_list(&a,3,lf[104],lf[321],t75); t77=C_a_i_list(&a,1,lf[324]); t78=C_a_i_list(&a,2,lf[117],lf[323]); t79=C_a_i_list(&a,3,lf[121],lf[321],t78); t80=C_a_i_list(&a,3,lf[104],t77,t79); t81=C_a_i_list(&a,2,lf[117],lf[325]); t82=C_a_i_list(&a,3,lf[104],lf[326],t81); t83=C_a_i_list(&a,5,lf[327],lf[93],t76,t80,t82); t84=C_a_i_list(&a,2,lf[117],lf[70]); t85=C_a_i_list(&a,2,lf[117],lf[115]); t86=C_a_i_list(&a,5,lf[117],t84,lf[328],t85,lf[71]); t87=C_a_i_list(&a,2,lf[119],lf[70]); t88=C_a_i_list(&a,4,lf[329],lf[104],t86,t87); t89=C_a_i_list(&a,3,lf[330],C_make_character(92),C_make_character(34)); t90=C_a_i_list(&a,5,lf[331],lf[104],C_make_character(34),t89,C_make_character(34)); t91=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31009,a[2]=((C_word)li266),tmp=(C_word)a,a+=3,tmp); t92=C_a_i_cons(&a,2,lf[330],t91); t93=C_a_i_list(&a,2,lf[43],lf[332]); t94=C_a_i_list(&a,2,lf[121],t93); t95=C_a_i_list(&a,2,lf[121],lf[167]); t96=C_a_i_list(&a,5,lf[333],lf[104],t94,t95,lf[167]); t97=C_a_i_list(&a,4,lf[124],C_fix(3),C_make_character(46),lf[333]); t98=C_a_i_list(&a,4,lf[334],lf[104],lf[333],t97); t99=C_a_i_list(&a,4,lf[123],C_fix(0),C_fix(4),lf[310]); t100=C_a_i_list(&a,2,lf[121],C_make_character(58)); t101=C_a_i_list(&a,4,lf[123],C_fix(0),C_fix(4),lf[310]); t102=C_a_i_list(&a,6,lf[123],C_fix(1),C_fix(7),C_make_character(58),t100,t101); t103=C_a_i_list(&a,4,lf[335],lf[104],t99,t102); t104=C_a_i_list(&a,4,lf[336],lf[93],lf[334],lf[335]); t105=C_a_i_list(&a,4,lf[93],lf[170],C_make_character(95),C_make_character(45)); t106=C_a_i_list(&a,3,lf[337],lf[119],t105); t107=C_a_i_list(&a,3,lf[119],C_make_character(46),lf[337]); t108=C_a_i_list(&a,4,lf[338],lf[104],lf[337],t107); t109=C_a_i_list(&a,3,lf[124],C_fix(2),lf[290]); t110=C_a_i_list(&a,15,lf[93],lf[339],lf[340],lf[341],lf[342],lf[343],lf[344],lf[345],lf[346],lf[347],lf[348],lf[349],lf[350],lf[351],t109); t111=C_a_i_list(&a,3,lf[352],lf[211],t110); t112=C_a_i_list(&a,3,lf[119],lf[337],C_make_character(46)); t113=C_a_i_list(&a,4,lf[353],lf[104],t112,lf[352]); t114=C_a_i_list(&a,6,lf[93],lf[170],C_make_character(95),C_make_character(45),C_make_character(46),C_make_character(43)); t115=C_a_i_list(&a,3,lf[354],lf[119],t114); t116=C_a_i_list(&a,5,lf[355],lf[104],lf[354],C_make_character(64),lf[338]); t117=C_a_i_list(&a,4,lf[104],lf[356],lf[310],lf[310]); t118=C_a_i_list(&a,14,lf[357],lf[93],lf[292],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[104],lf[358],lf[310],lf[310]); t120=C_a_i_list(&a,11,lf[359],lf[93],lf[292],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[121],lf[360]); t122=C_a_i_list(&a,3,lf[93],lf[353],lf[334]); t123=C_a_i_list(&a,2,lf[119],lf[167]); t124=C_a_i_list(&a,3,lf[121],lf[361],t123); t125=C_a_i_list(&a,3,lf[93],lf[357],lf[362]); t126=C_a_i_list(&a,2,lf[117],t125); t127=C_a_i_list(&a,2,lf[117],lf[357]); t128=C_a_i_list(&a,3,lf[121],lf[363],t127); t129=C_a_i_list(&a,2,lf[117],lf[357]); t130=C_a_i_list(&a,3,lf[121],t129,lf[359]); t131=C_a_i_list(&a,3,lf[121],lf[364],t130); t132=C_a_i_list(&a,5,lf[121],lf[365],t126,t128,t131); t133=C_a_i_list(&a,8,lf[366],lf[211],lf[367],t121,lf[368],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_mutate2(&lf[233] /* (set! sre-named-definitions ...) */,t162); t164=C_mutate2(&lf[369] /* (set! nfa-get-epsilons ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20789,a[2]=((C_word)li267),tmp=(C_word)a,a+=3,tmp)); t165=C_mutate2(&lf[370] /* (set! nfa-add-epsilon! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20823,a[2]=((C_word)li268),tmp=(C_word)a,a+=3,tmp)); t166=C_mutate2(&lf[253] /* (set! sre->nfa ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20964,a[2]=((C_word)li279),tmp=(C_word)a,a+=3,tmp)); t167=C_mutate2(&lf[377] /* (set! make-mst ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22095,a[2]=((C_word)li280),tmp=(C_word)a,a+=3,tmp)); t168=C_mutate2(&lf[378] /* (set! mst-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22126,a[2]=((C_word)li281),tmp=(C_word)a,a+=3,tmp)); t169=C_mutate2(&lf[379] /* (set! nfa-state->mst ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22143,a[2]=((C_word)li282),tmp=(C_word)a,a+=3,tmp)); t170=C_mutate2(&lf[380] /* (set! mst-add! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22152,a[2]=((C_word)li285),tmp=(C_word)a,a+=3,tmp)); t171=C_mutate2(&lf[382] /* (set! mst-fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22505,a[2]=((C_word)li287),tmp=(C_word)a,a+=3,tmp)); t172=C_mutate2(&lf[252] /* (set! nfa->dfa ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22589,a[2]=((C_word)li301),tmp=(C_word)a,a+=3,tmp)); t173=C_mutate2(&lf[385] /* (set! nfa-epsilon-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23275,a[2]=((C_word)li308),tmp=(C_word)a,a+=3,tmp)); t174=C_mutate2(&lf[384] /* (set! tag-set-commands-for-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23290,a[2]=((C_word)li313),tmp=(C_word)a,a+=3,tmp)); t175=C_mutate2(&lf[208] /* (set! sre-cset->procedure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26453,a[2]=((C_word)li315),tmp=(C_word)a,a+=3,tmp)); t176=C_mutate2(&lf[203] /* (set! cset->plist ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26671,a[2]=((C_word)li317),tmp=(C_word)a,a+=3,tmp)); t177=C_mutate2(&lf[371] /* (set! string->cset ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26764,a[2]=((C_word)li319),tmp=(C_word)a,a+=3,tmp)); t178=C_mutate2(&lf[161] /* (set! sre->cset ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26784,a[2]=((C_word)li329),tmp=(C_word)a,a+=3,tmp)); t179=C_mutate2(&lf[280] /* (set! cset-contains? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27251,a[2]=((C_word)li331),tmp=(C_word)a,a+=3,tmp)); t180=C_mutate2(&lf[390] /* (set! char-ranges-union ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27337,a[2]=((C_word)li332),tmp=(C_word)a,a+=3,tmp)); t181=C_mutate2(&lf[151] /* (set! cset-union ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27373,a[2]=((C_word)li334),tmp=(C_word)a,a+=3,tmp)); t182=C_mutate2(&lf[386] /* (set! cset-difference ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27582,a[2]=((C_word)li336),tmp=(C_word)a,a+=3,tmp)); t183=C_mutate2(&lf[387] /* (set! cset-intersection ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27778,a[2]=((C_word)li338),tmp=(C_word)a,a+=3,tmp)); t184=C_mutate2(&lf[153] /* (set! cset-complement ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27904,a[2]=((C_word)li339),tmp=(C_word)a,a+=3,tmp)); t185=C_mutate2(&lf[154] /* (set! cset-case-insensitive ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27914,a[2]=((C_word)li341),tmp=(C_word)a,a+=3,tmp)); t186=C_mutate2(&lf[392] /* (set! irregex-fold/fast ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28045,a[2]=((C_word)li344),tmp=(C_word)a,a+=3,tmp)); t187=C_mutate2((C_word*)lf[393]+1 /* (set! irregex-fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28251,a[2]=((C_word)li346),tmp=(C_word)a,a+=3,tmp)); t188=C_mutate2(&lf[398] /* (set! irregex-fold/chunked/fast ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28279,a[2]=((C_word)li349),tmp=(C_word)a,a+=3,tmp)); t189=C_mutate2((C_word*)lf[399]+1 /* (set! irregex-fold/chunked ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28463,a[2]=((C_word)li351),tmp=(C_word)a,a+=3,tmp)); t190=C_mutate2((C_word*)lf[402]+1 /* (set! irregex-replace ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28491,a[2]=((C_word)li352),tmp=(C_word)a,a+=3,tmp)); t191=C_mutate2((C_word*)lf[405]+1 /* (set! irregex-replace/all ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28570,a[2]=((C_word)li355),tmp=(C_word)a,a+=3,tmp)); t192=C_mutate2((C_word*)lf[403]+1 /* (set! irregex-apply-match ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28656,a[2]=((C_word)li358),tmp=(C_word)a,a+=3,tmp)); t193=C_mutate2((C_word*)lf[411]+1 /* (set! irregex-extract ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28890,a[2]=((C_word)li361),tmp=(C_word)a,a+=3,tmp)); t194=C_mutate2((C_word*)lf[413]+1 /* (set! irregex-split ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28925,a[2]=((C_word)li364),tmp=(C_word)a,a+=3,tmp)); t195=C_mutate2(&lf[45] /* (set! string-scan-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29050,a[2]=((C_word)li366),tmp=(C_word)a,a+=3,tmp)); t196=C_mutate2((C_word*)lf[415]+1 /* (set! irregex-quote ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29094,a[2]=((C_word)li368),tmp=(C_word)a,a+=3,tmp)); t197=C_mutate2((C_word*)lf[418]+1 /* (set! irregex-opt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29151,a[2]=((C_word)li373),tmp=(C_word)a,a+=3,tmp)); t198=C_mutate2(&lf[423] /* (set! cset->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29419,a[2]=((C_word)li375),tmp=(C_word)a,a+=3,tmp)); t199=C_mutate2((C_word*)lf[428]+1 /* (set! sre->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29499,a[2]=((C_word)li385),tmp=(C_word)a,a+=3,tmp)); t200=C_mutate2((C_word*)lf[461]+1 /* (set! ##sys#glob->regexp ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30253,a[2]=((C_word)li388),tmp=(C_word)a,a+=3,tmp)); t201=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t201; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t201+1)))(2,av2);}} /* k25772 in k25738 */ static void C_ccall f_25774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_25774,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_25743(t5,C_eqp(C_make_character(10),t4));} else{ t3=((C_word*)t0)[4]; f_25743(t3,C_SCHEME_FALSE);}} /* k19029 in map-loop3157 in k18932 in sre-remove-initial-bos in k9756 in k7760 in k7529 */ static void C_ccall f_19031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_19031,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_19006(t6,((C_word*)t0)[5],t5);} /* k14781 in k14777 in lp in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_14783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_14783,2,av);} a=C_alloc(9); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1417: sre-alternate */ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( /* irregex-core.scm:1417: sre-alternate */ f_18395(C_a_i(&a,3),t2) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k28056 in k28053 in k28050 in k28047 in irregex-fold/fast in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_28058(C_word t0,C_word t1){ C_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_28058,2,t0,t1);} a=C_alloc(13); t2=(C_truep(t1)?t1:(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28234,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_28064,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_28064(t8,(C_truep(t7)?C_i_cadr(((C_word*)t0)[8]):C_fix(0)));} else{ t5=t4; f_28064(t5,C_fix(0));}} /* k28053 in k28050 in k28047 in irregex-fold/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_28055,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_28058,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_28058(t5,C_u_i_car(t4));} else{ t4=t3; f_28058(t4,C_SCHEME_FALSE);}} /* k14874 in k14866 in unicode-range-helper in k9756 in k7760 in k7529 */ 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 t4; C_word t5; C_word t6; C_word 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_14876,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[198]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14900,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_14902,a[2]=t5,a[3]=t12,a[4]=t6,a[5]=((C_word)li104),tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_14902(t14,t10,t8);} /* k28050 in k28047 in irregex-fold/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28052(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_28052,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_28055,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:3862: irregex-new-matches */ t4=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k28065 in k28062 in k28056 in k28053 in k28050 in k28047 in irregex-fold/fast in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_28067(C_word t0,C_word t1){ C_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(25,0,4)))){ C_save_and_reclaim_args((void *)trf_28067,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_28076,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]))){ if(C_truep(C_i_exactp(((C_word*)t0)[3]))){ t8=t7;{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_28076(2,av2);}} else{ /* irregex-core.scm:3871: error */ t8=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t7; av2[2]=lf[393]; av2[3]=lf[395]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} else{ /* irregex-core.scm:3871: error */ t8=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t7; av2[2]=lf[393]; av2[3]=lf[395]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} /* k28062 in k28056 in k28053 in k28050 in k28047 in irregex-fold/fast in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_28064(C_word t0,C_word t1){ C_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_28064,2,t0,t1);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_28067,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_28067(t8,(C_truep(t7)?C_i_caddr(((C_word*)t0)[9]):C_i_string_length(((C_word*)t0)[2])));} else{ t6=t3; f_28067(t6,C_i_string_length(((C_word*)t0)[2]));}} else{ t4=t3; f_28067(t4,C_i_string_length(((C_word*)t0)[2]));}} /* k14866 in unicode-range-helper in k9756 in k7760 in k7529 */ static void C_ccall f_14868(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_14868,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14876,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:1433: one */ t6=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* f_24638 in k24635 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24638(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24638,10,av);} a=C_alloc(15); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24645,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_24653,a[2]=((C_word)li153),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3302: check */ t12=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k24635 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_24637,2,av);} a=C_alloc(5); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24638,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word)li154),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k13881 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13883(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_13883,2,av);} a=C_alloc(9); t2=t1; t3=C_i_not(t2); t4=(*a=C_CLOSURE_TYPE|8,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],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_13892(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_13892(t8,C_i_not(t7));}} /* a23989 */ static void C_ccall f_23990(C_word c,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_23990,2,av);} /* irregex-core.scm:3164: next */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14717 in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_14719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_14719,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14723,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1407: unicode-range-up-to */ f_15121(t3,((C_word*)t0)[3]);} /* k14856 in unicode-range-helper in k9756 in k7760 in k7529 */ static void C_ccall f_14858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_14858,2,av);} a=C_alloc(6); t2=( /* irregex-core.scm:1431: sre-sequence */ f_18372(C_a_i(&a,3),t1) ); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[2]); /* irregex-core.scm:1427: unicode-range-helper */ f_14828(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t3);} /* k14145 in k14131 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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_14147,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14151,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_14155,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1287: utf8-string-ref */ f_14245(t4,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* map-loop3157 in k18932 in sre-remove-initial-bos in k9756 in k7760 in k7529 */ static void C_fcall f_19006(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_19006,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_19031,a[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:1925: g3163 */ 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);}}} /* k19002 in k18932 in sre-remove-initial-bos in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_19004,2,av);} a=C_alloc(3); /* irregex-core.scm:1925: sre-alternate */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=( /* irregex-core.scm:1925: sre-alternate */ f_18395(C_a_i(&a,3),t1) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k24643 */ static void C_ccall f_24645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_24645,2,av);} if(C_truep(t1)){ /* irregex-core.scm:3303: next */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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:3304: fail */ t2=((C_word*)t0)[11];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* collect in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_10604(C_word t0,C_word 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_10604,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_10618,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_10622,a[2]=((C_word*)t0)[5],a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:753: substring */ t7=*((C_word*)lf[38]+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);}}} /* lp in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_fcall f_14728(C_word t0,C_word t1,C_word 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: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_14728,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_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ 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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14756,a[2]=t10,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t12=t2; t13=C_u_i_cdr(t12); t14=t3; t15=C_u_i_cdr(t14); /* irregex-core.scm:1415: lp */ t17=t11; t18=t13; t19=t15; t1=t17; t2=t18; t3=t19; 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_14779,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1417: unicode-range-up-from */ f_14974(t13,t2);} else{ t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14794,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:1420: unicode-range-up-from */ f_14974(t13,t2);}}}} /* lp in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_18551(C_word t0,C_word t1,C_word 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_18551,4,t0,t1,t2,t3);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ /* irregex-core.scm:1876: ##sys#fast-reverse */ t4=*((C_word*)lf[61]+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_18574,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_18578,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_car(t7); /* string->list */ t9=*((C_word*)lf[95]+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:1880: lp */ t11=t1; t12=t6; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;}}} /* k8511 in loop in k8535 in k8472 */ 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 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_8513,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8521,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_8525,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:344: get-str */ t5=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14721 in k14717 in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ 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 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_14723,2,av);} a=C_alloc(9); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1406: sre-alternate */ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( /* irregex-core.scm:1406: sre-alternate */ f_18395(C_a_i(&a,3),t2) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k23958 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_23960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_23960,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],t1); /* irregex-core.scm:3155: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_23698(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7]);} /* f_24673 in k24670 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24673(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24673,10,av);} a=C_alloc(15); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24680,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_24688,a[2]=((C_word)li156),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3312: check */ t12=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k24670 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24672(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_24672,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24673,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li157),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k14754 in lp in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_14756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_14756,2,av);} a=C_alloc(9); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1413: sre-sequence */ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( /* irregex-core.scm:1413: sre-sequence */ f_18372(C_a_i(&a,3),t2) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k24622 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24624(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24624,2,av);} /* irregex-core.scm:3294: rec */ t2=((C_word*)t0)[2]; f_23701(t2,((C_word*)t0)[3],t1);} /* k18572 in lp in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_18574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18574,2,av);} /* irregex-core.scm:1878: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_18551(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k18576 in lp in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_18578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_18578,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* irregex-core.scm:1878: append */ t4=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k23939 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_23941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_23941,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* irregex-core.scm:3159: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_23698(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5],((C_word*)t0)[6],t1);} /* k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_14702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_14702,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(t5)){ 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_14728,a[2]=t7,a[3]=((C_word)li114),tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_14728(t9,((C_word*)t0)[3],((C_word*)t0)[2],t2);} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14719,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_15279,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[43],t13,C_make_character(127)):C_a_i_list(&a,3,lf[43],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[198]); t24=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15587,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_15589,a[2]=t20,a[3]=t26,a[4]=t21,a[5]=((C_word)li119),tmp=(C_word)a,a+=6,tmp)); t28=((C_word*)t26)[1]; f_15589(t28,t24,t22);}} /* a24652 */ 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 *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_24653,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k24796 */ static void C_ccall f_24798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_24798,2,av);} if(C_truep(t1)){ /* irregex-core.scm:3341: next */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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:3342: fail */ t2=((C_word*)t0)[10];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k24791 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24793(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_24793,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24794,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li166),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_24794 in k24791 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24794(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24794,10,av);} a=C_alloc(14); t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24798,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_24809,a[2]=((C_word)li165),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3339: once */ t12=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* a28997 in k28933 in k28930 in k28927 in irregex-split in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28998(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_28998,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:4027: ##sys#fast-reverse */ t7=*((C_word*)lf[61]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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_29016,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:4028: substring */ t7=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k28028 in k27942 in lp in k27920 in cset-case-insensitive in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_28030,2,av);} /* irregex-core.scm:3853: list->vector */ t2=*((C_word*)lf[391]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a24659 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24660(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24660,10,av);} t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k13827 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_13829(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_13829,2,t0,t1);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_13674(t3,t2);} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t3=C_i_string_ref(((C_word*)t0)[4],t2); t4=((C_word*)t0)[2]; f_13674(t4,C_eqp(C_make_character(93),t3));}} /* k18089 in k18049 in k17667 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_fcall f_18091(C_word 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_18091,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ /* irregex-core.scm:1819: 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[233]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18101,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)li206),tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1821: g2979 */ t6=t5; f_18101(t6,((C_word*)t0)[3],t4);} else{ /* irregex-core.scm:1826: error */ t5=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=lf[246]; av2[3]=lf[247]; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}} /* irregex-fold/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28045(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_28045,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; t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_28049,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); if(C_truep(C_i_stringp(t5))){ t8=t7;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_28049(2,av2);}} else{ /* irregex-core.scm:3860: error */ t8=*((C_word*)lf[25]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=lf[393]; av2[3]=lf[396]; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} /* k28047 in irregex-fold/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_28049,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28052,a[2]=((C_word*)t0)[2],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:3861: irregex */ t3=*((C_word*)lf[204]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k28010 in k27942 in lp in k27920 in cset-case-insensitive in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_28012,2,av);} /* irregex-core.scm:3852: ##sys#fast-reverse */ t2=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k24780 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_24782,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,lf[222],t1); t3=( /* irregex-core.scm:3317: sre-sequence */ f_18372(C_a_i(&a,3),t2) ); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24773,a[2]=((C_word)li164),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3317: lp */ t5=((C_word*)((C_word*)t0)[2])[1]; f_23698(t5,((C_word*)t0)[3],t3,((C_word*)t0)[4],((C_word*)t0)[5],t4);} /* k28014 in k27942 in lp in k27920 in cset-case-insensitive in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_28016,2,av);} /* irregex-core.scm:3852: vector->list */ t2=*((C_word*)lf[152]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a28939 in k28933 in k28930 in k28927 in irregex-split in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_28940,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; /* Re-use our own argvector */ 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_28954,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:4024: substring */ t14=*((C_word*)lf[38]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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);}}} /* unicode-range-helper in k9756 in k7760 in k7529 */ static void C_fcall f_14828(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_14828,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_14858,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[198]); t19=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14868,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_14938,a[2]=t15,a[3]=t21,a[4]=t16,a[5]=((C_word)li105),tmp=(C_word)a,a+=6,tmp)); t23=((C_word*)t21)[1]; f_14938(t23,t19,t17);}} /* k28952 in a28939 in k28933 in k28930 in k28927 in irregex-split in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28954(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_28954,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k28018 in k27942 in lp in k27920 in cset-case-insensitive in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28020(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_28020,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:3853: cset-union */ t5=lf[151];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t4; f_27373(4,av2);}} /* k28077 in k28074 in k28065 in k28062 in k28056 in k28053 in k28050 in k28047 in irregex-fold/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28079(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_28079,2,av);} a=C_alloc(13); t2=lf[271]; t3=C_i_setslot(((C_word*)t0)[2],C_fix(3),lf[271]); 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_28087,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)li343),tmp=(C_word)a,a+=11,tmp)); t7=((C_word*)t5)[1]; f_28087(t7,((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12]);} /* irregex-split in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28925(C_word c,C_word *av){ C_word tmp; C_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_28925,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_28929,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_stringp(t3))){ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_28929(2,av2);}} else{ /* irregex-core.scm:4016: error */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[413]; av2[3]=lf[414]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k28074 in k28065 in k28062 in k28056 in k28053 in k28050 in k28047 in irregex-fold/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_28076,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_28079,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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]))){ if(C_truep(C_i_exactp(((C_word*)t0)[3]))){ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_28079(2,av2);}} else{ /* irregex-core.scm:3873: error */ t3=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[393]; av2[3]=lf[394]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} else{ /* irregex-core.scm:3873: error */ t3=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[393]; av2[3]=lf[394]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k28927 in irregex-split in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_28929,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28932,a[2]=((C_word*)t0)[2],a[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_28932(t4,C_u_i_car(t3));} else{ t3=t2; f_28932(t3,C_fix(0));}} /* lp in k28077 in k28074 in k28065 in k28062 in k28056 in k28053 in k28050 in k28047 in irregex-fold/fast in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_28087(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_28087,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:3877: 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_28100,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=t4,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3878: irregex-search/matches */ t7=*((C_word*)lf[277]+1);{ C_word av2[8]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[6]; av2[3]=lf[271]; av2[4]=((C_word*)t0)[9]; av2[5]=t2; av2[6]=t3; av2[7]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t7+1)))(8,av2);}}} /* k28933 in k28930 in k28927 in irregex-split in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_28935(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_28935,2,t0,t1);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28940,a[2]=((C_word*)t0)[2],a[3]=((C_word)li362),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28998,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li363),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:4019: irregex-fold/fast */ t5=lf[392];{ 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_28045(9,av2);}} /* k18049 in k17667 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_18051(C_word t0,C_word t1){ C_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_18051,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_18070,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[125]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[245]))?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_18070(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_18070(t13,C_a_i_cons(&a,2,t9,t12));}} else{ t2=C_eqp(((C_word*)t0)[9],lf[100]); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18091,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_18091(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[9],lf[101]); if(C_truep(t4)){ t5=t3; f_18091(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[9],lf[102]); t6=t3; f_18091(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[9],lf[103])));}}}} /* k28930 in k28927 in irregex-split in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_28932(C_word t0,C_word 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_28932,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28935,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_28935(t7,(C_truep(t6)?C_i_cadr(((C_word*)t0)[5]):C_i_string_length(((C_word*)t0)[2])));} else{ t4=t3; f_28935(t4,C_i_string_length(((C_word*)t0)[2]));}} /* k22816 in doloop4168 in k22801 in k22798 in k22636 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_22818,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22821,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:2907: caddar */ t4=*((C_word*)lf[383]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k28905 in a28898 in k28892 in irregex-extract in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28907(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_28907,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* a28908 in k28892 in irregex-extract in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28909(C_word c,C_word *av){ C_word tmp; C_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_28909,4,av);} /* irregex-core.scm:4012: ##sys#fast-reverse */ t4=*((C_word*)lf[61]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* sre-names in k9756 in k7760 in k7529 */ static void C_fcall f_18599(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 *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_18599,4,t1,t2,t3,t4);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t5=C_i_car(t2); t6=t5; t7=C_eqp(t6,lf[230]); t8=(C_truep(t7)?t7:C_eqp(t6,lf[98])); if(C_truep(t8)){ t9=t2; t10=C_u_i_cdr(t9); t11=( /* irregex-core.scm:1887: sre-sequence */ f_18372(C_a_i(&a,3),t10) ); t12=C_fixnum_plus(t3,C_fix(1)); /* irregex-core.scm:1887: sre-names */ t28=t1; t29=t11; t30=t12; t31=t4; t1=t28; t2=t29; t3=t30; t4=t31; goto loop;} else{ t9=C_eqp(t6,lf[109]); t10=(C_truep(t9)?t9:C_eqp(t6,lf[110])); if(C_truep(t10)){ t11=C_i_cddr(t2); t12=( /* irregex-core.scm:1889: sre-sequence */ f_18372(C_a_i(&a,3),t11) ); t13=C_fixnum_plus(t3,C_fix(1)); t14=C_i_cadr(t2); t15=C_a_i_cons(&a,2,t14,t3); t16=C_a_i_cons(&a,2,t15,t4); /* irregex-core.scm:1889: sre-names */ t28=t1; t29=t12; t30=t13; t31=t16; t1=t28; t2=t29; t3=t30; t4=t31; goto loop;} else{ t11=C_eqp(t6,lf[229]); if(C_truep(t11)){ t12=C_i_cdddr(t2); t13=( /* irregex-core.scm:1893: sre-sequence */ f_18372(C_a_i(&a,3),t12) ); t14=C_i_cadr(t2); t15=C_fixnum_plus(t3,t14); /* irregex-core.scm:1893: sre-names */ t28=t1; t29=t13; t30=t15; t31=t4; t1=t28; t2=t29; t3=t30; t4=t31; goto loop;} else{ t12=C_eqp(t6,lf[104]); t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18701,a[2]=t2,a[3]=t1,a[4]=t3,a[5]=t4,a[6]=t6,tmp=(C_word)a,a+=7,tmp); if(C_truep(t12)){ t14=t13; f_18701(t14,t12);} else{ t14=C_eqp(t6,lf[212]); if(C_truep(t14)){ t15=t13; f_18701(t15,t14);} else{ t15=C_eqp(t6,lf[93]); if(C_truep(t15)){ t16=t13; f_18701(t16,t15);} else{ t16=C_eqp(t6,lf[117]); if(C_truep(t16)){ t17=t13; f_18701(t17,t16);} else{ t17=C_eqp(t6,lf[119]); if(C_truep(t17)){ t18=t13; f_18701(t18,t17);} else{ t18=C_eqp(t6,lf[121]); if(C_truep(t18)){ t19=t13; f_18701(t19,t18);} else{ t19=C_eqp(t6,lf[118]); if(C_truep(t19)){ t20=t13; f_18701(t20,t19);} else{ t20=C_eqp(t6,lf[122]); if(C_truep(t20)){ t21=t13; f_18701(t21,t20);} else{ t21=C_eqp(t6,lf[210]); if(C_truep(t21)){ t22=t13; f_18701(t22,t21);} else{ t22=C_eqp(t6,lf[211]); if(C_truep(t22)){ t23=t13; f_18701(t23,t22);} else{ t23=C_eqp(t6,lf[224]); if(C_truep(t23)){ t24=t13; f_18701(t24,t23);} else{ t24=C_eqp(t6,lf[100]); if(C_truep(t24)){ t25=t13; f_18701(t25,t24);} else{ t25=C_eqp(t6,lf[102]); if(C_truep(t25)){ t26=t13; f_18701(t26,t25);} else{ t26=C_eqp(t6,lf[101]); t27=t13; f_18701(t27,(C_truep(t26)?t26:C_eqp(t6,lf[103])));}}}}}}}}}}}}}}}}} else{ t5=t4; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k22819 in k22816 in doloop4168 in k22801 in k22798 in k22636 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ 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 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_22821,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_22842,a[2]=((C_word*)t0)[2],a[3]=((C_word)li288),tmp=(C_word)a,a+=4,tmp); t7=C_i_check_list_2(t1,lf[198]); t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22883,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_22885,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,a[6]=((C_word)li289),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_22885(t12,t8,t1);} /* k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_29503,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29506,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_29511,a[2]=t5,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word)li384),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t3; av2[2]=((C_word*)t0)[3]; f_29511(3,av2);}} /* k29504 in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_29506,2,av);} /* irregex-utils.scm:153: get-output-string */ t2=*((C_word*)lf[424]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ 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=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_29511,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[212]); t6=(C_truep(t5)?t5:C_eqp(t4,lf[104])); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29534,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_29534(t12,C_i_not(t11));} else{ t11=t7; f_29534(t11,C_SCHEME_FALSE);}} else{ t10=t7; f_29534(t10,C_SCHEME_FALSE);}} else{ t7=C_eqp(t4,lf[98]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29631,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: display */ t9=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t8; av2[2]=lf[432]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t8=C_eqp(t4,lf[110]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29673,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: display */ t10=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t9; av2[2]=lf[435]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t9=C_eqp(t4,lf[93]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29727,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: display */ t11=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t11; av2[1]=t10; av2[2]=lf[438]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ t10=C_eqp(t4,lf[117]); t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_29786,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_29786(t12,t10);} else{ t12=C_eqp(t4,lf[119]); if(C_truep(t12)){ t13=t11; f_29786(t13,t12);} else{ t13=C_eqp(t4,lf[121]); if(C_truep(t13)){ t14=t11; f_29786(t14,t13);} else{ t14=C_eqp(t4,lf[118]); t15=t11; f_29786(t15,(C_truep(t14)?t14:C_eqp(t4,lf[122])));}}}}}}}} else{ if(C_truep(C_i_symbolp(t2))){ t3=t2; t4=C_eqp(t3,lf[175]); t5=(C_truep(t4)?t4:C_eqp(t3,lf[183])); if(C_truep(t5)){ /* irregex-utils.scm:143: display */ t6=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t1; av2[2]=lf[456]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=C_eqp(t3,lf[176]); t7=(C_truep(t6)?t6:C_eqp(t3,lf[184])); if(C_truep(t7)){ /* irregex-utils.scm:144: display */ t8=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t1; av2[2]=lf[457]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t8=C_eqp(t3,lf[114]); t9=(C_truep(t8)?t8:C_eqp(t3,lf[115])); if(C_truep(t9)){ /* irregex-utils.scm:145: display */ t10=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t1; av2[2]=lf[458]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ /* irregex-utils.scm:146: error */ t10=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t1; av2[2]=lf[459]; 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_30231,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[415]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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_30244,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[415]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* irregex-utils.scm:152: error */ t3=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=lf[460]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}}}} /* k28006 in k27942 in lp in k27920 in cset-case-insensitive in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28008(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_28008,2,av);} /* irregex-core.scm:3852: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_27924(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k18514 in map-loop3016 in sre-strip-submatches in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_18516,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18491(t6,((C_word*)t0)[5],t5);} /* g4182 in k22819 in k22816 in doloop4168 in k22801 in k22798 in k22636 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22842(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_22842,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22850,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_22850(t14,C_i_car(t13));} else{ t13=t3; f_22850(t13,t6);}} else{ t9=t3; f_22850(t9,t6);}} else{ t4=t3; f_22850(t4,C_SCHEME_FALSE);}} /* k8500 in loop in k8535 in k8472 */ static void C_ccall f_8502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_8502,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8506,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:340: get-start */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8504 in k8500 in loop in k8535 in k8472 */ static void C_ccall f_8506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8506,2,av);} /* irregex-core.scm:339: substring */ t2=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k30536 in loop in k30275 in glob->regexp in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_30538(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_30538,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k22881 in k22819 in k22816 in doloop4168 in k22801 in k22798 in k22636 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22883(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_22883,2,av);} a=C_alloc(3); 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_fixnum_plus(((C_word*)t0)[4],C_fix(1)); t5=((C_word*)t0)[5]; t6=C_u_i_cdr(t5); t7=((C_word*)((C_word*)t0)[6])[1]; f_22808(t7,((C_word*)t0)[7],t4,t6);} /* map-loop4176 in k22819 in k22816 in doloop4168 in k22801 in k22798 in k22636 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22885(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_22885,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_22910,a[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:2911: g4182 */ t5=((C_word*)t0)[4]; f_22842(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);}}} /* k20305 in k20260 in k20257 in lp2 in k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20307,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8523 in k8511 in loop in k8535 in k8472 */ 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 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_8525,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8529,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:345: get-start */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8527 in k8523 in k8511 in loop in k8535 in k8472 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8529,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8533,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:346: get-end */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8519 in k8511 in loop in k8535 in k8472 */ static void C_ccall f_8521(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8521,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:343: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_8480(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k22848 in g4182 in k22819 in k22816 in doloop4168 in k22801 in k22798 in k22636 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22850(C_word t0,C_word t1){ C_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_22850,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);}} /* k27498 in union-range in k27383 in k27379 in cset-union in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_27500,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:3769: union-range */ t5=((C_word*)((C_word*)t0)[3])[1]; f_27387(t5,((C_word*)t0)[4],((C_word*)t0)[5],t4,((C_word*)t0)[6]);} /* doloop4168 in k22801 in k22798 in k22636 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22808(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_22808,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_22818,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:2906: cadar */ t5=*((C_word*)lf[372]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k22801 in k22798 in k22636 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_22803,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_22808,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word)li290),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_22808(t6,((C_word*)t0)[3],C_fix(0),((C_word*)t0)[4]);} /* k22798 in k22636 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_22800,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22803,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:2902: make-vector */ t5=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* rec in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_23701(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_23701,3,t0,t1,t2);} /* irregex-core.scm:3110: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_23698(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* k19666 in k19685 in k19639 in k19624 in k19621 in irregex-match/chunked in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_19668,2,av);} t2=C_i_vector_set(((C_word*)t0)[2],C_fix(1),t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k14164 in k14131 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_14166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14166,2,av);} /* irregex-core.scm:1288: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13600(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k19685 in k19639 in k19624 in k19621 in irregex-match/chunked in k19097 in k9756 in k7760 in k7529 */ 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 t6; C_word 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_19687,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_19668,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:2055: g3356 */ t14=t12;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* diff in k27592 in k27588 in cset-difference in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_27596(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_27596,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_27610,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3785: ##sys#fast-reverse */ t6=*((C_word*)lf[61]+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_27623,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27627,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3786: ##sys#fast-reverse */ t7=*((C_word*)lf[61]+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:3792: 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:3794: 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_27665,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_27665(t18,C_i_char_greater_or_equal_p(t16,t17));} else{ t16=t13; f_27665(t16,C_SCHEME_FALSE);}}}}}} /* k27592 in k27588 in cset-difference in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_27594,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_27596,a[2]=t3,a[3]=((C_word)li335),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_27596(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* k27588 in cset-difference in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_27590,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27594,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3783: vector->list */ t4=*((C_word*)lf[152]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k23745 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_23747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_23747,2,av);} /* irregex-core.scm:3119: sre-cset->procedure */ f_26453(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* k14153 in k14145 in k14131 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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_14155,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:3773: cset-union */ t5=lf[151];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=t4; f_27373(4,av2);}} /* k14149 in k14145 in k14131 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_14151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14151,2,av);} /* irregex-core.scm:1285: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13600(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_23740(C_word t0,C_word t1){ C_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_23740,2,t0,t1);} a=C_alloc(39); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23747,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:3120: sre->cset */ f_26784(t2,((C_word*)t0)[5],C_a_i_list(&a,1,t5));} else{ t2=C_eqp(((C_word*)t0)[6],lf[93]); 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_23767,a[2]=((C_word)li126),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:3125: rec */ t7=((C_word*)t0)[7]; f_23701(t7,((C_word*)t0)[2],t6); default: t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23787,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:3127: rec */ t8=((C_word*)t0)[7]; f_23701(t8,t6,t7);}} else{ t3=C_eqp(((C_word*)t0)[6],lf[210]); if(C_truep(t3)){ t4=((C_word*)t0)[5]; t5=C_u_i_cdr(t4); t6=( /* irregex-core.scm:3137: sre-sequence */ f_18372(C_a_i(&a,3),t5) ); t7=((C_word*)t0)[4]; t8=C_fixnum_and(t7,C_fix(-3)); /* irregex-core.scm:3137: lp */ t9=((C_word*)((C_word*)t0)[9])[1]; f_23698(t9,((C_word*)t0)[2],t6,((C_word*)t0)[8],t8,((C_word*)t0)[3]);} else{ t4=C_eqp(((C_word*)t0)[6],lf[211]); if(C_truep(t4)){ t5=((C_word*)t0)[5]; t6=C_u_i_cdr(t5); t7=( /* irregex-core.scm:3142: sre-sequence */ f_18372(C_a_i(&a,3),t6) ); t8=((C_word*)t0)[4]; t9=C_fixnum_or(t8,C_fix(2)); /* irregex-core.scm:3142: lp */ t10=((C_word*)((C_word*)t0)[9])[1]; f_23698(t10,((C_word*)t0)[2],t7,((C_word*)t0)[8],t9,((C_word*)t0)[3]);} else{ t5=C_eqp(((C_word*)t0)[6],lf[145]); if(C_truep(t5)){ t6=((C_word*)t0)[5]; t7=C_u_i_cdr(t6); t8=( /* irregex-core.scm:3147: sre-sequence */ f_18372(C_a_i(&a,3),t7) ); t9=((C_word*)t0)[4]; t10=C_fixnum_or(t9,C_fix(32)); /* irregex-core.scm:3147: lp */ t11=((C_word*)((C_word*)t0)[9])[1]; f_23698(t11,((C_word*)t0)[2],t8,((C_word*)t0)[8],t10,((C_word*)t0)[3]);} else{ t6=C_eqp(((C_word*)t0)[6],lf[146]); if(C_truep(t6)){ t7=((C_word*)t0)[5]; t8=C_u_i_cdr(t7); t9=( /* irregex-core.scm:3149: sre-sequence */ f_18372(C_a_i(&a,3),t8) ); t10=((C_word*)t0)[4]; t11=C_fixnum_and(t10,C_fix(-33)); /* irregex-core.scm:3149: lp */ t12=((C_word*)((C_word*)t0)[9])[1]; f_23698(t12,((C_word*)t0)[2],t9,((C_word*)t0)[8],t11,((C_word*)t0)[3]);} else{ t7=C_eqp(((C_word*)t0)[6],lf[104]); t8=(C_truep(t7)?t7:C_eqp(((C_word*)t0)[6],lf[212])); 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:3153: rec */ t13=((C_word*)t0)[7]; f_23701(t13,((C_word*)t0)[2],t12); default: t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23941,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:3155: sre-sequence */ f_18372(C_a_i(&a,3),t13) ); t15=t14; t16=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23960,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:3156: sre-count-submatches */ f_17161(t16,t17);}} else{ t9=C_eqp(((C_word*)t0)[6],lf[121]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23983,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:3161: sre-sequence */ f_18372(C_a_i(&a,3),t12) ); /* irregex-core.scm:3161: rec */ t14=((C_word*)t0)[7]; f_23701(t14,t10,t13);} else{ t10=C_eqp(((C_word*)t0)[6],lf[122]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24009,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:3166: sre-sequence */ f_18372(C_a_i(&a,3),t13) ); /* irregex-core.scm:3166: rec */ t15=((C_word*)t0)[7]; f_23701(t15,t11,t14);} else{ t11=C_eqp(((C_word*)t0)[6],lf[117]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24038,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:3172: sre-sequence */ f_18372(C_a_i(&a,3),t14) ); /* irregex-core.scm:3172: sre-empty? */ t16=lf[129];{ C_word av2[3]; av2[0]=t16; av2[1]=t12; av2[2]=t15; f_16578(3,av2);}} else{ t12=C_eqp(((C_word*)t0)[6],lf[118]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24083,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:3182: sre-sequence */ f_18372(C_a_i(&a,3),t15) ); /* irregex-core.scm:3182: sre-empty? */ t17=lf[129];{ C_word av2[3]; av2[0]=t17; av2[1]=t13; av2[2]=t16; f_16578(3,av2);}} else{ t13=C_eqp(((C_word*)t0)[6],lf[119]); if(C_truep(t13)){ t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24137,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:3201: sre-sequence */ f_18372(C_a_i(&a,3),t16) ); /* irregex-core.scm:3201: sre-empty? */ t18=lf[129];{ C_word av2[3]; av2[0]=t18; av2[1]=t14; av2[2]=t17; f_16578(3,av2);}} else{ t14=C_eqp(((C_word*)t0)[6],lf[124]); 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[123],t23); /* irregex-core.scm:3216: rec */ t25=((C_word*)t0)[7]; f_23701(t25,((C_word*)t0)[2],t24);} else{ t15=C_eqp(((C_word*)t0)[6],lf[125]); 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[123],t21); /* irregex-core.scm:3218: rec */ t23=((C_word*)t0)[7]; f_23701(t23,((C_word*)t0)[2],t22);} else{ t16=C_eqp(((C_word*)t0)[6],lf[123]); if(C_truep(t16)){ t17=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24239,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_24239(t27,C_fixnum_greaterp(t22,t26));} else{ t20=t17; f_24239(t20,C_SCHEME_FALSE);}} else{ t19=t17; f_24239(t19,C_SCHEME_FALSE);}} else{ t17=C_eqp(((C_word*)t0)[6],lf[120]); if(C_truep(t17)){ t18=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24397,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_24397(t28,C_fixnum_greaterp(t23,t27));} else{ t21=t18; f_24397(t21,C_SCHEME_FALSE);}} else{ t20=t18; f_24397(t20,C_SCHEME_FALSE);}} else{ t18=C_eqp(((C_word*)t0)[6],lf[216]); if(C_truep(t18)){ t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24574,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[173]); /* irregex.scm:239: ##sys#append */ t23=*((C_word*)lf[108]+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[217]); if(C_truep(t19)){ t20=C_a_i_list(&a,3,lf[93],lf[170],lf[218]); t21=((C_word*)t0)[5]; t22=C_u_i_cdr(t21); t23=C_a_i_cons(&a,2,lf[93],t22); t24=C_a_i_list(&a,3,lf[219],t20,t23); t25=C_a_i_list(&a,2,lf[119],t24); t26=C_a_i_list(&a,4,lf[104],lf[172],t25,lf[173]); /* irregex-core.scm:3291: rec */ t27=((C_word*)t0)[7]; f_23701(t27,((C_word*)t0)[2],t26);} else{ t20=C_eqp(((C_word*)t0)[6],lf[220]); if(C_truep(t20)){ t21=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24624,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:3294: string->sre */ t23=*((C_word*)lf[92]+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[100]); if(C_truep(t21)){ t22=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24637,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:3297: sre-sequence */ f_18372(C_a_i(&a,3),t24) ); t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24660,a[2]=((C_word)li155),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3297: lp */ t27=((C_word*)((C_word*)t0)[9])[1]; f_23698(t27,t22,t25,((C_word*)t0)[8],((C_word*)t0)[4],t26);} else{ t22=C_eqp(((C_word*)t0)[6],lf[101]); if(C_truep(t22)){ t23=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24672,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:3307: sre-sequence */ f_18372(C_a_i(&a,3),t25) ); t27=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24695,a[2]=((C_word)li158),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3307: lp */ t28=((C_word*)((C_word*)t0)[9])[1]; f_23698(t28,t23,t26,((C_word*)t0)[8],((C_word*)t0)[4],t27);} else{ t23=C_eqp(((C_word*)t0)[6],lf[102]); t24=(C_truep(t23)?t23:C_eqp(((C_word*)t0)[6],lf[103])); if(C_truep(t24)){ t25=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24710,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_24782,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:3318: append */ t29=*((C_word*)lf[63]+1);{ C_word av2[4]; av2[0]=t29; av2[1]=t26; av2[2]=t28; av2[3]=lf[223]; ((C_proc)(void*)(*((C_word*)t29+1)))(4,av2);}} else{ t25=C_eqp(((C_word*)t0)[6],lf[224]); if(C_truep(t25)){ t26=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24793,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:3334: sre-sequence */ f_18372(C_a_i(&a,3),t28) ); t30=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24816,a[2]=((C_word)li167),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3334: lp */ t31=((C_word*)((C_word*)t0)[9])[1]; f_23698(t31,t26,t29,((C_word*)t0)[8],((C_word*)t0)[4],t30);} else{ t26=C_eqp(((C_word*)t0)[6],lf[99]); if(C_truep(t26)){ t27=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_24828,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:3344: sre-count-submatches */ f_17161(t27,t28);} else{ t27=C_eqp(((C_word*)t0)[6],lf[179]); t28=(C_truep(t27)?t27:C_eqp(((C_word*)t0)[6],lf[178])); if(C_truep(t28)){ t29=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24984,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_24984(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_24984(2,av2);}} else{ t35=((C_word*)t0)[5]; t36=C_u_i_cdr(t35); t37=C_u_i_car(t36); /* irregex-core.scm:3376: error */ t38=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t38; av2[1]=t29; av2[2]=lf[228]; av2[3]=t37; ((C_proc)(void*)(*((C_word*)t38+1)))(4,av2);}}}} else{ t29=C_eqp(((C_word*)t0)[6],lf[229]); if(C_truep(t29)){ t30=C_i_cdddr(((C_word*)t0)[5]); t31=( /* irregex-core.scm:3416: sre-sequence */ f_18372(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:3416: lp */ t34=((C_word*)((C_word*)t0)[9])[1]; f_23698(t34,((C_word*)t0)[2],t31,t33,((C_word*)t0)[4],((C_word*)t0)[3]);} else{ t30=C_eqp(((C_word*)t0)[6],lf[230]); t31=(C_truep(t30)?t30:C_eqp(((C_word*)t0)[6],lf[98])); if(C_truep(t31)){ t32=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25205,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:3419: sre-sequence */ f_18372(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_25314,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[3],a[4]=((C_word)li177),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:3419: lp */ t38=((C_word*)((C_word*)t0)[9])[1]; f_23698(t38,t32,t35,t36,((C_word*)t0)[4],t37);} else{ t32=C_eqp(((C_word*)t0)[6],lf[109]); t33=(C_truep(t32)?t32:C_eqp(((C_word*)t0)[6],lf[110])); if(C_truep(t33)){ t34=C_i_cddr(((C_word*)t0)[5]); t35=C_a_i_cons(&a,2,lf[98],t34); /* irregex-core.scm:3449: rec */ t36=((C_word*)t0)[7]; f_23701(t36,((C_word*)t0)[2],t35);} else{ /* irregex-core.scm:3451: error */ t34=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t34; av2[1]=((C_word*)t0)[2]; av2[2]=lf[231]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t34+1)))(4,av2);}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} /* loop in k8535 in k8472 */ static void C_fcall f_8480(C_word t0,C_word 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_8480,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_8498,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8502,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:339: 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_8513,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:343: 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);}}} /* k8472 */ 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; 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_8474,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8537,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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_8541,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:334: get-str */ t5=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k21379 in k21372 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21381,2,av);} /* irregex-core.scm:2520: extend-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_21053(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k23722 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_23724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_23724,2,av);} /* irregex-core.scm:3114: sre-cset->procedure */ f_26453(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* cset-difference in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_27582(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_27582,3,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27590,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3782: vector->list */ t5=*((C_word*)lf[152]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k19784 in k19765 in lp in k19753 in k19743 in k19737 in k19731 in k19624 in k19621 in irregex-match/chunked in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19786,2,av);} /* irregex-core.scm:2076: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_19757(t2,((C_word*)t0)[3],t1);} /* k21396 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21398(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_21398,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_21414,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2528: new-state-number */ t5=((C_word*)((C_word*)t0)[5])[1]; f_20976(t5,t4,t2);} else{ t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21417,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_21471,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:2531: cddar */ t6=*((C_word*)lf[373]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k30308 in loop in k30275 in glob->regexp in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_30310(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_30310,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k23785 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ 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 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_23787,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23790,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:3128: sre-alternate */ f_18395(C_a_i(&a,3),t4) ); t6=t5; t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23813,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:3129: sre-count-submatches */ f_17161(t7,t8);} /* k19797 in k19829 in lp in k19753 in k19743 in k19737 in k19731 in k19624 in k19621 in irregex-match/chunked in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_19799,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_19767(t7,C_eqp(t1,t6));} /* k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_21371(C_word t0,C_word t1){ C_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_21371,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21374,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:2518: sre->cset */ f_26784(t2,t4,C_a_i_list(&a,1,t7));} else{ t2=C_eqp(((C_word*)t0)[9],lf[93]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21398,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:2523: lp */ t6=((C_word*)((C_word*)t0)[5])[1]; f_20973(t6,t3,t5,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t3=C_eqp(((C_word*)t0)[9],lf[121]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21486,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:2547: lp */ t7=((C_word*)((C_word*)t0)[5])[1]; f_20973(t7,t4,t6,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t4=C_eqp(((C_word*)t0)[9],lf[119]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[9],lf[117])); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21520,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:2556: lp */ t9=((C_word*)((C_word*)t0)[5])[1]; f_20973(t9,t6,t8,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t6=C_eqp(((C_word*)t0)[9],lf[230]); t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[9],lf[98])); 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_21580,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:2601: lp */ t19=((C_word*)((C_word*)t0)[5])[1]; f_20973(t19,t16,t18,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t8=C_eqp(((C_word*)t0)[9],lf[109]); t9=(C_truep(t8)?t8:C_eqp(((C_word*)t0)[9],lf[110])); 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_21658,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:2614: lp */ t21=((C_word*)((C_word*)t0)[5])[1]; f_20973(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[233]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21725,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)li275),tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:2625: g3943 */ t13=t12; f_21725(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);}}}}}}}}} /* k21372 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_21374,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21381,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:2520: lp */ t6=((C_word*)((C_word*)t0)[5])[1]; f_20973(t6,t3,t5,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* f_23767 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ 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=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_23767,10,av);} /* irregex-core.scm:3124: fail */ t10=t9;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k21345 in k21331 in k21325 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21347,2,av);} /* irregex-core.scm:2516: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20973(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k20357 in lp2 in k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_20359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_20359,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_20371,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_20398,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(t7)){ t12=t11;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_UNDEFINED; f_20398(2,av2);}} else{ /* irregex-core.scm:2213: finalize! */ f_20056(t11,((C_word*)t0)[11],((C_word*)t0)[10],((C_word*)t0)[12]);}} else{ t12=t11;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_UNDEFINED; f_20398(2,av2);}}} else{ t9=t8; f_20371(t9,C_SCHEME_UNDEFINED);}} else{ if(C_truep(((C_word*)t0)[7])){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20522,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_20522(t10,C_i_vector_set(t7,t9,((C_word*)t0)[8]));} else{ t3=t2; f_20522(t3,C_SCHEME_UNDEFINED);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20564,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_20564(t8,C_slot(t5,t7));} else{ t3=t2; f_20564(t3,C_SCHEME_FALSE);}}}} /* k8465 */ static void C_ccall f_8467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8467,2,av);} /* irregex-core.scm:332: substring */ t2=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a23796 */ static void C_ccall f_23797(C_word c,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_23797,2,av);} /* irregex-core.scm:3135: rest */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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);}} /* k30355 in loop in k30275 in glob->regexp in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_30357(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_30357,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k23788 in k23785 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ C_save_and_reclaim((void *)f_23790,2,av);} a=C_alloc(5); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23791,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word)li128),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_23791 in k23788 in k23785 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_ccall f_23791(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_23791,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23797,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)li127),tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3133: first */ t11=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* f_25607 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_25607(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25607,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(t13)){ /* irregex-core.scm:3470: fail */ t14=t9;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t14=C_fixnum_plus(t6,C_fix(1)); /* irregex-core.scm:3469: next */ t15=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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{ t12=t2; t13=C_i_vector_ref(t12,C_fix(0)); t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25645,a[2]=t2,a[3]=t9,a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=t3,a[7]=t8,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:3471: g4905 */ t15=t13;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}} /* f_8453 in k8387 in k8381 in make-irregex-chunker in k7760 in k7529 */ static void C_ccall f_8453(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_8453,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_8467,a[2]=t1,a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:332: get-str */ t8=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_8474,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:333: get-next */ t8=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* k21325 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_21327,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[210]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[145]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))?lf[55]:lf[54]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21333,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[210]))?C_SCHEME_TRUE:(C_truep(C_eqp(t8,lf[211]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ /* irregex-core.scm:2507: g3867 */ t9=t4;{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:2507: g3867 */ t9=t4;{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_21324(C_word 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_21324,2,t0,t1);} a=C_alloc(14); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21327,a[2]=((C_word*)t0)[2],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:2507: lp */ t5=((C_word*)((C_word*)t0)[3])[1]; f_20973(t5,t2,t4,((C_word*)t0)[7],((C_word*)t0)[6],((C_word*)t0)[8]);} else{ t2=C_eqp(((C_word*)t0)[9],lf[43]); t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_21371,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_21371(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[9],lf[232]); if(C_truep(t4)){ t5=t3; f_21371(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[9],lf[219]); t6=t3; f_21371(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[9],lf[168])));}}}} /* a17923 in k17857 in k17854 in k17667 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in ... */ static void C_ccall f_17924(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_17924,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:1804: return */ t7=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t1; av2[2]=t6; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k21331 in k21325 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21333(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_21333,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_21347,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:2516: new-state-number */ t6=((C_word*)((C_word*)t0)[6])[1]; f_20976(t6,t5,((C_word*)t0)[2]);} else{ t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k13899 in k13896 in k13890 in k13881 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_13901,2,av);} a=C_alloc(5); t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(2)); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13912,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:1261: cset-union */ t5=lf[151];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=t1; f_27373(4,av2);}} /* k15111 in unicode-range-up-from in k9756 in k7760 in k7529 */ static void C_ccall f_15113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_15113,2,av);} a=C_alloc(19); t2=C_i_cdr(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15032,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_15039,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_15107,a[2]=t9,tmp=(C_word)a,a+=3,tmp); t11=((C_word*)t0)[4]; t12=C_u_i_cdr(t11); /* irregex-core.scm:1452: ##sys#fast-reverse */ t13=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t10; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} /* k25658 in k25652 in k25643 */ static void C_ccall f_25660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_25660,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_25666,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)[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:3473: g4914 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k25664 in k25658 in k25652 in k25643 */ static void C_ccall f_25666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_25666,2,av);} t2=C_i_string_ref(((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_eqp(C_make_character(10),t2); if(C_truep(t3)){ /* irregex-core.scm:3478: fail */ t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* irregex-core.scm:3477: next */ t5=((C_word*)t0)[6];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(10); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[8]; av2[4]=((C_word*)t0)[9]; av2[5]=((C_word*)t0)[2]; av2[6]=t4; av2[7]=t1; av2[8]=((C_word*)t0)[10]; av2[9]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(10,av2);}}} /* k21308 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_21310,2,av);} /* irregex-core.scm:2505: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20973(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* k15105 in k15111 in unicode-range-up-from in k9756 in k7760 in k7529 */ static void C_ccall f_15107(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_15107,2,av);} t2=C_i_cdr(t1); /* irregex-core.scm:1452: ##sys#fast-reverse */ t3=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k25652 in k25643 */ static void C_ccall f_25654(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_25654,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_25660,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:3473: g4912 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8496 in loop in k8535 in k8472 */ static void C_ccall f_8498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8498,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:338: string-cat-reverse */ f_9098(((C_word*)t0)[3],t2);} /* k21445 in k21453 in k21415 in k21396 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ 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,5)))){ C_save_and_reclaim((void *)f_21447,2,av);} /* irregex-core.scm:2536: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20973(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k25643 */ static void C_ccall f_25645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_25645,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_25654,a[2]=((C_word*)t0)[2],a[3]=((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:3473: g4910 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:3479: fail */ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k21453 in k21415 in k21396 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_21455,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_21447,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_21451,a[2]=((C_word*)t0)[6],a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2537: max */ t6=*((C_word*)lf[239]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k21449 in k21453 in k21415 in k21396 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21451,2,av);} /* irregex-core.scm:2537: new-state-number */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20976(t2,((C_word*)t0)[3],t1);} /* k21461 in k21469 in k21396 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21463(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21463,2,av);} /* irregex-core.scm:2531: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20973(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k27227 in k13651 in k13644 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_27229(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_27229,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[43],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a20591 in lp2 in k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_20592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(0,c,3)))){ C_save_and_reclaim((void *)f_20592,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; /* Re-use our own argvector */ 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_charp(t6))){ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=t2; t8=C_u_i_car(t7); /* irregex-core.scm:2201: cset-contains? */ f_27251(t1,t8,((C_word*)t0)[2]);}}} /* k21469 in k21396 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_21471,2,av);} a=C_alloc(13); t2=( /* irregex-core.scm:2531: sre-alternate */ f_18395(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_21463,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:2532: new-state-number */ t6=((C_word*)((C_word*)t0)[6])[1]; f_20976(t6,t5,((C_word*)t0)[5]);} /* k21484 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_21486,2,av);} a=C_alloc(12); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21492,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_21506,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:2551: new-state-number */ t7=((C_word*)((C_word*)t0)[7])[1]; f_20976(t7,t6,t2);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a27230 in k13651 in k13644 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_27231(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_27231,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; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_a_i_cons(&a,2,t4,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k14077 in k14010 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14079,2,av);} /* irregex-core.scm:1281: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13600(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k21490 in k21484 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_21492,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21495,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ /* irregex-core.scm:2553: nfa-add-epsilon! */ f_20823(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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k21493 in k21490 in k21484 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21495,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k21578 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ 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 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_21580,2,av);} a=C_alloc(16); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21586,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_21628,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2603: new-state-number */ t5=((C_word*)((C_word*)t0)[7])[1]; f_20976(t5,t4,t2);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k21584 in k21578 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_21586,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21589,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:2604: sre-sequence */ f_18372(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_21616,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:2605: new-state-number */ t9=((C_word*)((C_word*)t0)[8])[1]; f_20976(t9,t8,t2);} /* k21587 in k21584 in k21578 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_21589,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21592,a[2]=((C_word*)t0)[2],a[3]=((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_21608,a[2]=((C_word*)t0)[8],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2606: new-state-number */ t5=((C_word*)((C_word*)t0)[9])[1]; f_20976(t5,t4,t2);} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_21592(2,av2);}}} /* k15190 in k15184 in k15258 in unicode-range-up-to in k9756 in k7760 in k7529 */ static void C_ccall f_15192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_15192,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15212,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1470: last */ f_9248(t3,((C_word*)t0)[3]);} /* k14056 in k14010 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_14058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14058,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14052 in a14045 in k14010 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_14054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14054,2,av);} /* irregex-core.scm:1276: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13600(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k13968 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13970,2,av);} /* irregex-core.scm:1265: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13600(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(91),t1);} /* k21590 in k21587 in k21584 in k21578 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_21592,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21595,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_21598,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:2608: nfa-add-epsilon! */ f_20823(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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k21593 in k21590 in k21587 in k21584 in k21578 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21595,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15184 in k15258 in unicode-range-up-to in k9756 in k7760 in k7529 */ static void C_ccall f_15186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_15186,2,av);} a=C_alloc(12); t2=C_i_check_list_2(t1,lf[198]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15192,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_15214,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word)li111),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_15214(t7,t3,t1);} /* k21596 in k21590 in k21587 in k21584 in k21578 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21598,2,av);} /* irregex-core.scm:2609: nfa-add-epsilon! */ f_20823(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* k21558 in k21518 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21560,2,av);} /* irregex-core.scm:2559: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20973(t2,((C_word*)t0)[3],lf[374],t1,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k15177 in k15258 in unicode-range-up-to in k9756 in k7760 in k7529 */ static void C_ccall f_15179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_15179,2,av);} a=C_alloc(6); t2=( /* irregex-core.scm:1466: sre-sequence */ f_18372(C_a_i(&a,3),t1) ); t3=C_a_i_list1(&a,1,t2); /* irregex-core.scm:1460: unicode-range-helper */ f_14828(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_END_OF_LIST,t3);} /* irregex-match/chunked in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19619,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19623,a[2]=t3,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:2043: irregex */ t6=*((C_word*)lf[204]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k14992 in unicode-range-up-from in k9756 in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_14994,2,av);} a=C_alloc(12); t2=( /* irregex-core.scm:1443: sre-alternate */ f_18395(C_a_i(&a,3),t1) ); t3=C_a_i_list2(&a,2,((C_word*)t0)[2],t2); /* irregex-core.scm:1441: sre-sequence */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( /* irregex-core.scm:1441: sre-sequence */ f_18372(C_a_i(&a,3),t3) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a14995 in unicode-range-up-from in k9756 in k7760 in k7529 */ static void C_ccall f_14996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14996,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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_list(&a,3,lf[43],t5,C_make_character(255)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k24007 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_24009,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24010,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li132),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k19982 in lp2 in k19925 in k19922 in lp1 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ 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 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_19984,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=C_i_cadr(t1); t4=C_i_vector_ref(((C_word*)t0)[3],t3); /* irregex-core.scm:2124: lp2 */ t5=((C_word*)((C_word*)t0)[4])[1]; f_19932(t5,((C_word*)t0)[5],t2,t4);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* every in k7760 in k7529 */ static void C_fcall f_9329(C_word t1,C_word 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_9329,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_9347,a[2]=t2,a[3]=t9,a[4]=((C_word)li45),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_9347(t11,t1,t5,t7);}} /* k21554 in k21524 in k21518 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_21556,2,av);} /* irregex-core.scm:2563: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20973(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* a15142 in unicode-range-up-to in k9756 in k7760 in k7529 */ static void C_ccall f_15143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15143,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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_list(&a,3,lf[43],C_make_character(128),t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k15139 in unicode-range-up-to in k9756 in k7760 in k7529 */ static void C_ccall f_15141(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_15141,2,av);} a=C_alloc(12); t2=( /* irregex-core.scm:1459: sre-alternate */ f_18395(C_a_i(&a,3),t1) ); t3=C_a_i_list2(&a,2,((C_word*)t0)[2],t2); /* irregex-core.scm:1457: sre-sequence */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( /* irregex-core.scm:1457: sre-sequence */ f_18372(C_a_i(&a,3),t3) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k26993 in k26980 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_26995(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_26995,2,av);} /* irregex-core.scm:3692: fold */ f_9374(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* map-loop5230 in k26980 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_26997(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_26997,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_27022,a[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: g5236 */ 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);}}} /* k21527 in k21524 in k21518 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_21529,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21532,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_21535,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[117],t5); if(C_truep(t6)){ /* irregex-core.scm:2568: nfa-add-epsilon! */ f_20823(t4,((C_word*)((C_word*)t0)[3])[1],t2,((C_word*)t0)[4],C_SCHEME_FALSE);} else{ /* irregex-core.scm:2570: nfa-add-epsilon! */ f_20823(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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k21524 in k21518 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ 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 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_21526,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21529,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_21556,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:2563: new-state-number */ t7=((C_word*)((C_word*)t0)[7])[1]; f_20976(t7,t6,t2);} /* k21518 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_21520,2,av);} a=C_alloc(14); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21526,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_21560,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:2560: new-state-number */ t5=((C_word*)((C_word*)t0)[7])[1]; f_20976(t5,t4,t2);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k21533 in k21527 in k21524 in k21518 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21535,2,av);} /* irregex-core.scm:2570: nfa-add-epsilon! */ f_20823(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);} /* k21530 in k21527 in k21524 in k21518 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21532,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* lp in find in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9193,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_9206,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:500: 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);}}} /* unicode-range-up-to in k9756 in k7760 in k7529 */ static void C_fcall f_15121(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_15121,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_15141,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15143,a[2]=t2,a[3]=((C_word)li110),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15260,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:1463: ##sys#fast-reverse */ t11=*((C_word*)lf[61]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t8; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k19624 in k19621 in irregex-match/chunked in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_19626,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_19641,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_19723,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:2049: g3342 */ t11=t9;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_19733,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:2060: g3362 */ t10=t8;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k19621 in irregex-match/chunked in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_19623,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19626,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:2044: irregex-new-matches */ t4=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a26973 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_26974(C_word c,C_word *av){ C_word tmp; C_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_26974,4,av);} /* irregex-core.scm:3692: cset-difference */ f_27582(t1,t3,t2);} /* a14045 in k14010 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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=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_14046,4,av);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14054,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:3773: cset-union */ t9=lf[151];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t4; av2[2]=t5; av2[3]=t8; f_27373(4,av2);}} /* k14029 in k14010 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_14031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14031,2,av);} /* irregex-core.scm:1272: sre->cset */ f_26784(((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* k9919 in skip */ static void C_fcall f_9921(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_9921,2,t0,t1);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* irregex-core.scm:646: read */ t3=((C_word*)((C_word*)t0)[3])[1]; f_9767(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:647: skip */ t3=((C_word*)((C_word*)t0)[6])[1]; f_9911(t3,((C_word*)t0)[4],t2);}} /* map-loop2031 in unicode-range-helper in k9756 in k7760 in k7529 */ static void C_fcall f_14938(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_14938,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_mutate2(((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);}}} /* k19639 in k19624 in k19621 in irregex-match/chunked in k19097 in k9756 in k7760 in k7529 */ 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 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_19641,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_19687,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:2051: g3345 */ t7=t3;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k14021 in k14010 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_14023(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14023,2,av);} /* irregex-core.scm:1270: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13600(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,t1);} /* k14025 in k14010 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_14027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14027,2,av);} /* irregex-core.scm:1271: cset-union */ t2=lf[151];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; f_27373(4,av2);}} /* skip */ static void C_fcall f_9911(C_word t0,C_word 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_9911,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_9921,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_9921(t6,t4);} else{ t6=C_i_string_ref(((C_word*)t0)[6],t2); t7=t5; f_9921(t7,C_eqp(C_make_character(10),t6));}} /* loop2 in loop in k30275 in glob->regexp in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_30387(C_word t0,C_word t1,C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_30387,4,t0,t1,t2,t3);} a=C_alloc(7); if(C_truep(C_i_pairp(t2))){ t4=C_i_car(t2); if(C_truep(C_i_char_equalp(C_make_character(93),t4))){ t5=C_i_length(t3); t6=C_fixnum_greaterp(t5,C_fix(1)); t7=(C_truep(t6)?C_a_i_cons(&a,2,lf[93],t3):C_i_car(t3)); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30414,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=t2; t11=C_u_i_cdr(t10); /* irregex.scm:272: loop */ t12=((C_word*)((C_word*)t0)[2])[1]; f_30279(t12,t9,t11,C_SCHEME_FALSE);} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30436,a[2]=t2,a[3]=t3,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=C_i_cddr(t2); if(C_truep(C_i_pairp(t8))){ t9=t2; t10=C_u_i_cdr(t9); t11=C_u_i_car(t10); t12=t5; f_30436(t12,C_i_char_equalp(C_make_character(45),t11));} else{ t9=t5; f_30436(t9,C_SCHEME_FALSE);}} else{ t8=t5; f_30436(t8,C_SCHEME_FALSE);}}} else{ /* irregex.scm:266: error */ t4=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=lf[462]; av2[3]=lf[467]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* a17997 in k17667 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ 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=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_17998,4,av);} t4=C_fixnum_plus(((C_word*)t0)[2],t2); /* irregex-core.scm:1808: return */ t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a17681 in k17674 in k17667 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_ccall f_17682(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_17682,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:1770: return */ t6=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k26270 in k26248 in k26242 in k26236 in lp in k26224 */ static void C_ccall f_26272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_26272,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* irregex-core.scm:3570: next */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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:3572: fail */ t2=((C_word*)t0)[11];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k17674 in k17667 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_17676(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_17676,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_17682,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word)li200),tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:1765: lp */ t4=((C_word*)((C_word*)t0)[5])[1]; f_17273(t4,((C_word*)t0)[6],t1,t2,((C_word*)t0)[7],((C_word*)t0)[8],t3);} /* k14010 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_14012(C_word t0,C_word t1){ C_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(15,0,4)))){ C_save_and_reclaim_args((void *)trf_14012,2,t0,t1);} a=C_alloc(15); if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(2)); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14023,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_14027,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_14031,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:1272: string->sre */ t8=*((C_word*)lf[92]+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_14046,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word)li86),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14058,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_fixnum_plus(((C_word*)t0)[2],C_fix(2)); /* irregex-core.scm:1277: string-parse-hex-escape */ f_13486(t4,((C_word*)t0)[8],t5,((C_word*)t0)[9]);} else{ t3=C_i_assq(((C_word*)t0)[6],lf[156]); t4=(C_truep(t3)?C_i_cdr(t3):((C_word*)t0)[6]); t5=t4; t6=C_fixnum_plus(((C_word*)t0)[2],C_fix(2)); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14079,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:3773: cset-union */ t12=lf[151];{ C_word av2[4]; av2[0]=t12; av2[1]=t8; av2[2]=t9; av2[3]=t11; f_27373(4,av2);}}}} /* k30375 in loop in k30275 in glob->regexp in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_30377(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_30377,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[114],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19721 in k19624 in k19621 in irregex-match/chunked in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19723,2,av);} /* irregex-core.scm:2049: dfa-match/longest */ f_20184(((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));} /* k19731 in k19624 in k19621 in irregex-match/chunked in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_19733,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_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,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:2060: g3365 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19737 in k19731 in k19624 in k19621 in irregex-match/chunked in k19097 in k9756 in k7760 in k7529 */ 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 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_19739,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_19745,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:2060: g3368 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k28394 in k28358 in k28320 in lp in k28299 in k28293 in k28287 in k28284 in k28281 in irregex-fold/chunked/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_28396,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_28372,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:3925: g5489 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:3927: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_28309(t3,((C_word*)t0)[5],((C_word*)t0)[7],t2,((C_word*)t0)[6]);}} /* k28397 in k28358 in k28320 in lp in k28299 in k28293 in k28287 in k28284 in k28281 in irregex-fold/chunked/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_28399,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_28402,a[2]=((C_word*)t0)[2],a[3]=((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:3929: irregex-reset-matches! */ t4=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k26980 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_26982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_26982,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[198]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26995,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_26997,a[2]=t5,a[3]=t12,a[4]=t7,a[5]=t6,a[6]=((C_word)li324),tmp=(C_word)a,a+=7,tmp)); t14=((C_word*)t12)[1]; f_26997(t14,t10,t8);} /* a9960 */ 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=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_9961,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[65]:lf[66]); t7=C_a_i_list2(&a,2,t6,t2); /* irregex-core.scm:652: k */ t8=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t1; av2[2]=t7; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* unicode-range-up-from in k9756 in k7760 in k7529 */ static void C_fcall f_14974(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_14974,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_14994,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14996,a[2]=t2,a[3]=((C_word)li107),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15113,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:1447: ##sys#fast-reverse */ t11=*((C_word*)lf[61]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t8; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k19743 in k19737 in k19731 in k19624 in k19621 in irregex-match/chunked in k19097 in k9756 in k7760 in k7529 */ 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 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_19745,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_19755,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_19854,a[2]=((C_word)li249),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:2065: matcher */ t5=((C_word*)t0)[6];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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);}} /* lp1 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_19917(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_19917,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_19924,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:2107: 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);}}} /* k26910 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ 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 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_26912,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[198]); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26925,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_26927,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_26927(t14,t10,t8);} /* k26264 in k26248 in k26242 in k26236 in lp in k26224 */ static void C_ccall f_26266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_26266,2,av);} /* irregex-core.scm:3568: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_26228(t2,((C_word*)t0)[3],t1);} /* k28358 in k28320 in lp in k28299 in k28293 in k28287 in k28284 in k28281 in irregex-fold/chunked/fast in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_28360(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_28360,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_28396,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:3924: g5486 */ 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_28399,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:3928: 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);}}} /* k17667 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_17669(C_word t0,C_word t1){ C_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_17669,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17676,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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[98],t4); if(C_truep(t5)){ t6=((C_word*)t0)[9]; t7=C_u_i_cdr(t6); /* irregex-core.scm:1765: sre-sequence */ t8=t2; f_17676(t8,( /* irregex-core.scm:1765: sre-sequence */ f_18372(C_a_i(&a,3),t7) ));} else{ t6=C_i_cddr(((C_word*)t0)[9]); /* irregex-core.scm:1765: sre-sequence */ t7=t2; f_17676(t7,( /* irregex-core.scm:1765: sre-sequence */ f_18372(C_a_i(&a,3),t6) ));}} else{ t2=C_eqp(((C_word*)t0)[10],lf[179]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[10],lf[178])); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17718,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_17718(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_17718(2,av2);}} else{ t10=((C_word*)t0)[9]; t11=C_u_i_cdr(t10); t12=C_u_i_car(t11); /* irregex-core.scm:1775: error */ t13=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t13; av2[1]=t4; av2[2]=lf[244]; av2[3]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}}}} else{ t4=C_eqp(((C_word*)t0)[10],lf[117]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[10],lf[118])); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17829,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:1787: sre-sequence */ f_18372(C_a_i(&a,3),t8) ); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17838,a[2]=((C_word)li201),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:1787: lp */ t11=((C_word*)((C_word*)t0)[5])[1]; f_17273(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[123]); t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[10],lf[120])); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17856,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_17856(t18,C_fixnum_greaterp(t13,t17));} else{ t11=t8; f_17856(t11,C_SCHEME_FALSE);}} else{ t10=t8; f_17856(t10,C_SCHEME_FALSE);}} else{ t8=C_eqp(((C_word*)t0)[10],lf[119]); if(C_truep(t8)){ t9=((C_word*)t0)[9]; t10=C_u_i_cdr(t9); t11=( /* irregex-core.scm:1806: sre-sequence */ f_18372(C_a_i(&a,3),t10) ); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17998,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[4],a[4]=((C_word)li204),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:1806: lp */ t13=((C_word*)((C_word*)t0)[5])[1]; f_17273(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[121]); t10=(C_truep(t9)?t9:C_eqp(((C_word*)t0)[10],lf[122])); if(C_truep(t10)){ t11=((C_word*)t0)[9]; t12=C_u_i_cdr(t11); t13=( /* irregex-core.scm:1810: sre-sequence */ f_18372(C_a_i(&a,3),t12) ); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18026,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[7],a[5]=((C_word)li205),tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:1810: lp */ t15=((C_word*)((C_word*)t0)[5])[1]; f_17273(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[124]); t12=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18051,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_18051(t13,t11);} else{ t13=C_eqp(((C_word*)t0)[10],lf[248]); if(C_truep(t13)){ t14=t12; f_18051(t14,t13);} else{ t14=C_eqp(((C_word*)t0)[10],lf[125]); t15=t12; f_18051(t15,(C_truep(t14)?t14:C_eqp(((C_word*)t0)[10],lf[245])));}}}}}}}}} /* lp in k19753 in k19743 in k19737 in k19731 in k19624 in k19621 in irregex-match/chunked in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_19757(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_19757,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19767,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_19831,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,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:2068: g3379 */ 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);}}} /* k13921 in k13890 in k13881 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13923,2,av);} /* irregex-core.scm:1258: string->symbol */ t2=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19922 in lp1 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19924(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_19924,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19927,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:2108: get-end */ t4=((C_word*)t0)[11];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19753 in k19743 in k19737 in k19731 in k19624 in k19621 in irregex-match/chunked in k19097 in k9756 in k7760 in k7529 */ 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 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_19755,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_19757,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li248),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_19757(t5,((C_word*)t0)[3],t1);} /* k19925 in k19922 in lp1 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ 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 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_19927,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_19932,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)li241),tmp=(C_word)a,a+=12,tmp)); t6=((C_word*)t4)[1]; f_19932(t6,((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);} /* k28370 in k28394 in k28358 in k28320 in lp in k28299 in k28293 in k28287 in k28284 in k28281 in irregex-fold/chunked/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_28372,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_28382,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:3926: g5491 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k19765 in lp in k19753 in k19743 in k19737 in k19731 in k19624 in k19621 in irregex-match/chunked in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_19767(C_word 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_19767,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_19786,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2076: g3392 */ 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);}}}} /* k24726 in k24719 in k24713 */ static void C_ccall f_24728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_24728,2,av);} a=C_alloc(22); t2=C_i_car(((C_word*)t0)[2]); t3=C_eqp(t2,lf[102]); t4=(C_truep(t3)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24756,a[2]=((C_word)li159),tmp=(C_word)a,a+=3,tmp):*((C_word*)lf[221]+1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24737,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_24747,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_24751,a[2]=((C_word)li160),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3328: check */ t11=((C_word*)t0)[13];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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);}} /* k13910 in k13899 in k13896 in k13890 in k13881 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13912,2,av);} /* irregex-core.scm:1261: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13600(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,t1);} /* k13917 in k13890 in k13881 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13919,2,av);} /* irregex-core.scm:1257: sre->cset */ f_26784(((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* lp2 in k19925 in k19922 in lp1 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_19932(C_word t0,C_word t1,C_word 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_19932,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_19984,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_20000,a[2]=t7,a[3]=((C_word)li240),tmp=(C_word)a,a+=4,tmp); t10=C_i_cdr(t3); /* irregex-core.scm:2119: find */ f_9187(t8,t9,t10);} else{ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20036,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:2126: 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);}}}} /* k24719 in k24713 */ static void C_ccall f_24721(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_24721,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_24728,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: g4677 */ t9=t5;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t6; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* a24487 */ static void C_ccall f_24488(C_word c,C_word *av){ 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_24488,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24492,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:3286: body */ t3=((C_word*)((C_word*)t0)[10])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9856 in a9840 in a9834 in a9800 in lp */ static void C_ccall f_9858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9858,2,av);} /* irregex-core.scm:636: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k24713 */ static void C_ccall f_24715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_24715,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_24721,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: g4673 */ t6=t3;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* f_24711 in k24708 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ 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=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_24711,10,av);} a=C_alloc(25); t10=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_24715,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_8743,a[2]=t12,a[3]=t11,a[4]=((C_word)li161),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_8770,a[2]=t12,a[3]=t13,a[4]=t11,a[5]=((C_word)li162),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:395: make-irregex-chunker */ t20=*((C_word*)lf[37]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k24708 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_24710,2,av);} a=C_alloc(6); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24711,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word)li163),tmp=(C_word)a,a+=6,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k24490 in a24487 */ static void C_ccall f_24492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_24492,2,av);} /* irregex-core.scm:3285: g4603 */ t2=t1;{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8702 in k8695 in k8682 in chunker-next-char in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8704,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_string_ref(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a9840 in a9834 in a9800 in lp */ static void C_ccall f_9841(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_9841,4,av);} a=C_alloc(10); t4=C_eqp(t2,lf[57]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9858,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9862,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_i_cdr(((C_word*)t0)[3]); /* irregex-core.scm:636: ##sys#fast-reverse */ t8=*((C_word*)lf[61]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ /* irregex-core.scm:635: error */ t5=*((C_word*)lf[25]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=lf[64]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k24496 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_24498,2,av);} /* irregex-core.scm:3282: g4605 */ t2=t1;{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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);}} /* irregex-match-substring in k7760 in k7529 */ 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=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_8208,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_8212,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:299: irregex-match-numeric-index */ f_7953(t4,lf[34],t2,t3);} /* k8204 in irregex-match-valid-index? in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8206,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_8145(2,av2);}} else{ /* irregex-core.scm:291: error */ t2=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[31]; av2[3]=lf[33]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k26293 */ static void C_ccall f_26295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_26295,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* irregex-core.scm:3575: next */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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:3576: fail */ t2=((C_word*)t0)[11];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k24745 in k24726 in k24719 in k24713 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24747,2,av);} /* irregex-core.scm:3316: g4679 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11870 in lp2 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11872,2,av);} /* irregex-core.scm:971: lp2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11794(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} /* k26950 in map-loop5202 in k26910 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_26952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_26952,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_26927(t6,((C_word*)t0)[5],t5);} /* a9834 in a9800 in lp */ static void C_ccall f_9835(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_9835,4,av);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9841,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)li51),tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:633: read */ t5=((C_word*)((C_word*)t0)[5])[1]; f_9767(t5,t1,t3,t4);} /* k11887 in lp2 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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,4)))){ C_save_and_reclaim((void *)f_11889,2,av);} /* irregex-core.scm:973: lp2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11794(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} /* k24735 in k24726 in k24719 in k24713 */ static void C_ccall f_24737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_24737,2,av);} if(C_truep(t1)){ /* irregex-core.scm:3330: next */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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:3331: fail */ t2=((C_word*)t0)[11];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* map-loop5202 in k26910 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_26927(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_26927,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_26952,a[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:3690: g5208 */ 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);}}} /* k26923 in k26910 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_26925(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_26925,2,av);} /* irregex-core.scm:3690: fold */ f_9374(((C_word*)t0)[2],lf[387],((C_word*)t0)[3],t1);} /* k9813 in a9800 in lp */ static void C_ccall f_9815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9815,2,av);} /* irregex-core.scm:628: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_26209 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_26209(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_26209,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_26226,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:3562: g5045 */ t15=t13;{ C_word *av2=av; /* Re-use our own argvector */ 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_26295,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:3574: char-ci=? */ t14=*((C_word*)lf[235]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t12; av2[2]=((C_word*)t0)[3]; av2[3]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}}} /* k28380 in k28370 in k28394 in k28358 in k28320 in lp in k28299 in k28293 in k28287 in k28284 in k28281 in irregex-fold/chunked/fast in k19097 in k9756 in k7760 in k7529 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_28382,2,av);} /* irregex-core.scm:3926: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_28309(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} /* f_24756 in k24726 in k24719 in k24713 */ static void C_ccall f_24756(C_word c,C_word *av){ C_word tmp; C_word 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_24756,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a24750 in k24726 in k24719 in k24713 */ static void C_ccall f_24751(C_word c,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_24751,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a9800 in lp */ static void C_ccall f_9801(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_9801,4,av);} a=C_alloc(7); t4=C_eqp(t2,lf[57]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9815,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:628: ##sys#fast-reverse */ t6=*((C_word*)lf[61]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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[58]); if(C_truep(t5)){ if(C_truep(C_i_nullp(((C_word*)t0)[3]))){ /* irregex-core.scm:631: error */ t6=*((C_word*)lf[25]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=lf[62]; 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_9835,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word)li52),tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:632: read */ t7=((C_word*)((C_word*)t0)[5])[1]; f_9767(t7,t1,t3,t6);}} else{ t6=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); /* irregex-core.scm:640: lp */ t7=((C_word*)((C_word*)t0)[6])[1]; f_9795(t7,t1,t3,t6);}}} /* a8769 */ static void C_ccall f_8770(C_word c,C_word *av){ C_word tmp; C_word 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_8770,3,av);} t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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:399: g1015 */ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k23811 in k23785 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_23813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_23813,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],t1); /* irregex-core.scm:3128: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_23698(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7]);} /* a24772 in k24780 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_24773(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24773,10,av);} t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k9860 in a9840 in a9834 in a9800 in lp */ static void C_ccall f_9862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_9862,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:636: append */ t5=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k26236 in lp in k26224 */ static void C_ccall f_26238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_26238,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_26244,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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:3564: g5038 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_8798 in k7760 in k7529 */ static void C_ccall f_8798(C_word c,C_word *av){ C_word tmp; C_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_8798,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_8809,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_8809(t9,C_u_i_car(t8));} else{ t8=t7; f_8809(t8,C_fix(0));}} /* k26486 */ static void C_ccall f_26488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_26488,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_26497,a[2]=((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:3626: g5115 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:3632: fail */ t3=((C_word*)t0)[7];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k21415 in k21396 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_21417,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21420,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_21455,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:2536: cadar */ t5=*((C_word*)lf[372]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_21420(2,av2);}}} /* k21412 in k21396 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21414,2,av);} /* irregex-core.scm:2528: add-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20986(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* k26242 in k26236 in lp in k26224 */ static void C_ccall f_26244(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_26244,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_26250,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:3564: g5040 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* lp in k23211 in g4266 in lp2 in lp in k23153 in k23149 in k23145 in nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22380(C_word t0,C_word t1,C_word 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_22380,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:2764: append */ t10=*((C_word*)lf[63]+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:2765: lp */ t12=t1; t13=t7; t14=t10; t1=t12; t2=t13; t3=t14; goto loop;}}} /* k22097 in make-mst in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_22099,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22112,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:2709: make-vector */ t6=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k21504 in k21484 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_21506,2,av);} /* irregex-core.scm:2551: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20973(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* make-mst in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22095(C_word t1,C_word 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(4,0,3)))){ C_save_and_reclaim_args((void *)trf_22095,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22099,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; t5=C_i_vector_length(t4); t6=C_fixnum_divide(t5,C_fix(4)); t7=C_fixnum_plus(t6,C_fix(3)); /* irregex-core.scm:2708: make-vector */ t8=*((C_word*)lf[2]+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);}} /* k26495 in k26486 */ static void C_ccall f_26497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_26497,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_26503,a[2]=((C_word*)t0)[2],a[3]=((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:3626: g5117 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k21427 in k21424 in k21418 in k21415 in k21396 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_21429,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21432,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2544: nfa-add-epsilon! */ f_20823(t2,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[3],((C_word*)t0)[5],C_SCHEME_FALSE);} /* k21424 in k21418 in k21415 in k21396 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_21426,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21429,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:2543: nfa-add-epsilon! */ f_20823(t3,((C_word*)((C_word*)t0)[3])[1],t2,((C_word*)t0)[5],C_SCHEME_FALSE);} /* k21418 in k21415 in k21396 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_21420,2,av);} a=C_alloc(10); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21426,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_21436,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2541: new-state-number */ t5=((C_word*)((C_word*)t0)[6])[1]; f_20976(t5,t4,t2);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8975 in lp in k12311 in k12177 in k12161 in k12151 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_8977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8977,2,av);} /* irregex-core.scm:445: ##sys#fast-reverse */ t2=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k26466 */ static void C_ccall f_26468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_26468,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* irregex-core.scm:3622: next */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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:3623: fail */ t2=((C_word*)t0)[11];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k21434 in k21418 in k21415 in k21396 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21436,2,av);} /* irregex-core.scm:2541: add-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20986(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* k21430 in k21427 in k21424 in k21418 in k21415 in k21396 in k21369 in k21322 in k21115 in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21432,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k28801 in lp in irregex-apply-match in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_28803,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:3991: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_28662(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k28320 in lp in k28299 in k28293 in k28287 in k28284 in k28281 in irregex-fold/chunked/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_28322,2,av);} a=C_alloc(15); t2=t1; if(C_truep(t2)){ 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_28360,a[2]=((C_word*)t0)[2],a[3]=t10,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t5,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]=t2,tmp=(C_word)a,a+=15,tmp); t12=C_eqp(t5,((C_word*)t0)[10]); if(C_truep(t12)){ t13=((C_word*)t0)[11]; t14=t11; f_28360(t14,C_eqp(t10,t13));} else{ t13=t11; f_28360(t13,C_SCHEME_FALSE);}} else{ /* irregex-core.scm:3920: finish */ t3=((C_word*)t0)[7];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[10]; av2[3]=((C_word*)t0)[11]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k26224 */ static void C_ccall f_26226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_26226,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_26228,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)li187),tmp=(C_word)a,a+=10,tmp)); t5=((C_word*)t3)[1]; f_26228(t5,((C_word*)t0)[8],t1);} /* lp in k26224 */ static void C_fcall f_26228(C_word 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_26228,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_26238,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:3564: g5036 */ 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:3573: 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);}}} /* k8962 in collect in lp in k12311 in k12177 in k12161 in k12151 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8964,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* map-loop2057 in k14874 in k14866 in unicode-range-helper in k9756 in k7760 in k7529 */ static void C_fcall f_14902(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_14902,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_a_i_list(&a,3,lf[43],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_mutate2(((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);}}} /* k14898 in k14874 in k14866 in unicode-range-helper in k9756 in k7760 in k7529 */ static void C_ccall f_14900(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_14900,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex.scm:239: ##sys#append */ t3=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k27040 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_27042,2,av);} if(C_truep(((C_word*)t0)[2])){ /* irregex-core.scm:3698: cset-case-insensitive */ f_27914(((C_word*)t0)[3],t1);} else{ t2=t1; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k22313 in k23211 in g4266 in lp2 in lp in k23153 in k23149 in k23145 in nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_22315,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_22321,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t5,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)); if(C_truep(C_i_vector_ref(((C_word*)t0)[2],t7))){ t8=t6; f_22321(t8,C_SCHEME_UNDEFINED);} else{ t8=C_fixnum_plus(((C_word*)t5)[1],((C_word*)t0)[3]); t9=C_set_block_item(t5,0,t8); t10=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); t11=C_fixnum_plus(t10,C_fix(1)); t12=t6; f_22321(t12,C_i_vector_set(((C_word*)t0)[2],C_fix(1),t11));}} /* k11853 in lp2 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_11855(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11855,2,av);} /* irregex-core.scm:969: lp2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11794(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} /* k28863 in lp in irregex-apply-match in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_28865,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_28835,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word)li356),tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:3997: g5574 */ t4=t3; f_28835(t4,((C_word*)t0)[6],t2);} else{ t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); /* irregex-core.scm:4001: error */ t5=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[6]; av2[2]=lf[410]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* lp in k28299 in k28293 in k28287 in k28284 in k28281 in irregex-fold/chunked/fast in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_28309(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_28309,5,t0,t1,t2,t3,t4);} a=C_alloc(12); t5=t2; if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_28322,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,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*)t0)[7],a[10]=t2,a[11]=t3,tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3918: irregex-search/matches */ t7=*((C_word*)lf[277]+1);{ C_word av2[8]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[8]; av2[5]=t2; av2[6]=t3; av2[7]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t7+1)))(8,av2);}} else{ /* irregex-core.scm:3917: finish */ t6=((C_word*)t0)[5];{ C_word av2[5]; av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k28299 in k28293 in k28287 in k28284 in k28281 in irregex-fold/chunked/fast in k19097 in k9756 in k7760 in k7529 */ 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 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_28301,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_28309,a[2]=((C_word*)t0)[2],a[3]=t5,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)li348),tmp=(C_word)a,a+=10,tmp)); t7=((C_word*)t5)[1]; f_28309(t7,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);} /* k8996 in lp in k12311 in k12177 in k12161 in k12151 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_8998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8998,2,av);} /* irregex-core.scm:446: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8953(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* g5574 in k28863 in lp in irregex-apply-match in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_28835(C_word 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_28835,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:3999: lp */ t6=((C_word*)((C_word*)t0)[3])[1]; f_28662(t6,t1,t5,((C_word*)t0)[4]);} /* k22332 in k22325 in k22319 in k22313 in k23211 in g4266 in lp2 in lp in k23153 in k23149 in k23145 in nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22334(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_22334,2,av);} t2=C_i_vector_set(((C_word*)t0)[2],C_fix(2),t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k26248 in k26242 in k26236 in lp in k26224 */ static void C_ccall f_26250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_26250,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_26266,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3568: g5042 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_26272,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:3569: char-ci=? */ t5=*((C_word*)lf[235]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* f_26087 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_26087(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_26087,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_26091,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; /* Re-use our own argvector */ av2[0]=t13; av2[1]=C_i_string_ref(t5,t6); f_26091(2,av2);}} else{ /* irregex-core.scm:3540: chunker-next-char */ f_8677(t10,t2,t4);}} /* map-loop2424 in k16038 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_16109(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_16109,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_16134,a[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:1554: g2430 */ 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);}}} /* k16105 in k16038 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16107(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_16107,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[117],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k26048 in k26012 */ static void C_ccall f_26050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_26050,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_26005(t6,(C_truep(t5)?t5:C_u_i_char_numericp(t4)));} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26034,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3532: chunker-prev-char */ f_8647(t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}} /* k9987 */ static void C_fcall f_9989(C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_9989,2,t0,t1);} a=C_alloc(5); t2=(C_truep(t1)?lf[67]:lf[68]); t3=t2; t4=(C_truep(t1)?C_fixnum_plus(((C_word*)t0)[2],C_fix(2)):C_fixnum_plus(((C_word*)t0)[2],C_fix(1))); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10000,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word)li57),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:657: read */ t6=((C_word*)((C_word*)t0)[4])[1]; f_9767(t6,((C_word*)t0)[5],t4,t5);} /* k26065 */ static void C_ccall f_26067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_26067,2,av);} t2=C_i_not(t1); if(C_truep(t2)){ t3=((C_word*)t0)[2]; f_26014(t3,t2);} else{ t3=t1; t4=C_u_i_char_alphabeticp(t3); if(C_truep(t4)){ t5=((C_word*)t0)[2]; f_26014(t5,C_i_not(t4));} else{ t5=C_u_i_char_numericp(t3); t6=((C_word*)t0)[2]; f_26014(t6,C_i_not(t5));}}} /* k26032 in k26048 in k26012 */ static void C_ccall f_26034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_26034,2,av);} t2=C_i_not(t1); if(C_truep(t2)){ t3=((C_word*)t0)[2]; f_26005(t3,t2);} else{ t3=t1; t4=C_u_i_char_alphabeticp(t3); t5=((C_word*)t0)[2]; f_26005(t5,(C_truep(t4)?t4:C_u_i_char_numericp(t3)));}} /* k16161 in k16038 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16163(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_16163,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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-loop2450 in k16038 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_16165(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_16165,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_16190,a[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:1556: g2456 */ 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);}}} /* k22325 in k22319 in k22313 in k23211 in g4266 in lp2 in lp in k23153 in k23149 in k23145 in nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22327(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_22327,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22334,a[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_vector_length(((C_word*)t0)[5]); t4=C_fixnum_divide(t3,C_fix(4)); /* irregex-core.scm:2774: modulo */ t5=*((C_word*)lf[381]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[6])[1]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k22319 in k22313 in k23211 in g4266 in lp2 in lp in k23153 in k23149 in k23145 in nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22321(C_word t0,C_word t1){ C_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_22321,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_22327,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],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(C_i_memq(((C_word*)t0)[8],((C_word*)t0)[9]))){ t5=t4; f_22327(t5,C_SCHEME_UNDEFINED);} else{ t5=C_fixnum_plus(((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[10]); t6=C_mutate2(((C_word *)((C_word*)t0)[7])+1,t5); t7=C_a_i_cons(&a,2,((C_word*)t0)[8],((C_word*)t0)[9]); t8=t4; f_22327(t8,C_i_vector_set(((C_word*)t0)[11],((C_word*)t0)[10],t7));}} /* k30065 in k29918 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_30067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_30067,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[445],t1); /* irregex-utils.scm:139: lp */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; f_29511(3,av2);}} /* scan in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_8914(C_word t0,C_word 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_8914,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_8927,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:438: 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);}}} /* k26089 */ 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 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_26091,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_26094,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((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_26145,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:3541: g5018 */ t7=t5;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k26092 in k26089 */ static void C_ccall f_26094(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_26094,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_26100,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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_26100(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_26100(t6,C_i_not(t5));} else{ t6=C_u_i_char_numericp(t1); t7=t2; f_26100(t7,C_i_not(t6));}}} else{ t3=t2; f_26100(t3,C_SCHEME_FALSE);}} else{ t3=t2; f_26100(t3,C_SCHEME_FALSE);}} /* k7760 in k7529 */ static void C_ccall f_7762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(84,c,5)))){ C_save_and_reclaim((void *)f_7762,2,av);} a=C_alloc(84); t2=C_mutate2((C_word*)lf[20]+1 /* (set! irregex-match-start-chunk ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7777,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[22]+1 /* (set! irregex-match-start-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7802,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[23]+1 /* (set! irregex-match-end-chunk ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7831,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[24]+1 /* (set! irregex-match-end-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7860,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2(&lf[21] /* (set! irregex-match-numeric-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7953,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[31]+1 /* (set! irregex-match-valid-index? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8141,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[34]+1 /* (set! irregex-match-substring ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8208,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[35]+1 /* (set! irregex-match-subchunk ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8289,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[37]+1 /* (set! make-irregex-chunker ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8379,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2(&lf[41] /* (set! chunker-prev-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8647,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2(&lf[42] /* (set! chunker-next-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8677,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); t13=C_a_i_list(&a,5,lf[43],C_make_character(0),C_make_character(55295),C_make_character(57344),C_make_character(1114111)); t14=C_mutate2(&lf[44] /* (set! *all-chars* ...) */,t13); t15=C_mutate2(&lf[45] /* (set! string-scan-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8798,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2(&lf[39] /* (set! string-cat-reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9098,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2(&lf[48] /* (set! zero-to ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9148,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2(&lf[49] /* (set! find ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9187,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2(&lf[50] /* (set! last ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9248,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2(&lf[52] /* (set! any ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9286,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate2(&lf[53] /* (set! every ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9329,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate2(&lf[47] /* (set! fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9374,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate2(&lf[54] /* (set! flag-join ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9730,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate2(&lf[55] /* (set! flag-clear ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9739,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp)); t25=C_a_i_list1(&a,1,lf[56]); t26=C_mutate2(&lf[57] /* (set! close-token ...) */,t25); t27=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9758,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:612: string->symbol */ t28=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t28; av2[1]=t27; av2[2]=lf[472]; ((C_proc)(void*)(*((C_word*)t28+1)))(3,av2);}} /* f_26455 in sre-cset->procedure in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_26455(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_26455,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_26468,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:3621: cset-contains? */ f_27251(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_26488,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:3624: g5110 */ t15=t13;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}} /* sre-cset->procedure in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_26453(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_26453,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_26455,a[2]=t3,a[3]=t2,a[4]=((C_word)li314),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k16132 in map-loop2424 in k16038 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ 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 t3; 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_16134,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_16109(t6,((C_word*)t0)[5],t5);} /* k26425 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_26427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_26427,2,av);} a=C_alloc(3); t2=( /* irregex-core.scm:3597: sre-sequence */ f_18372(C_a_i(&a,3),t1) ); /* irregex-core.scm:3597: rec */ t3=((C_word*)t0)[2]; f_23701(t3,((C_word*)t0)[3],t2);} /* lp in cset-contains? in k19097 in k9756 in k7760 in k7529 */ static C_word C_fcall f_27284(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_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_fixnum_plus(t2,t1); t4=C_fixnum_shift_right(t3,C_fix(1)); t5=C_i_vector_ref(((C_word*)t0)[2],t4); t6=C_u_i_cdr(t5); if(C_truep(C_u_i_char_lessp(t6,((C_word*)t0)[3]))){ t7=C_fixnum_plus(t4,C_fix(1)); t8=t2; if(C_truep(C_fixnum_lessp(t7,t8))){ t10=t7; t11=t2; t1=t10; t2=t11; goto loop;} else{ return(C_SCHEME_FALSE);}} else{ t7=C_u_i_car(t5); if(C_truep(C_i_char_lessp(((C_word*)t0)[3],t7))){ t8=t1; if(C_truep(C_fixnum_lessp(t8,t4))){ t10=t1; t11=t4; t1=t10; t2=t11; goto loop;} else{ return(C_SCHEME_FALSE);}} else{ return(C_SCHEME_TRUE);}}} /* k7779 in irregex-match-start-chunk in k7760 in k7529 */ 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 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_7781,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k16188 in map-loop2450 in k16038 in adjust in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_16190,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_16165(t6,((C_word*)t0)[5],t5);} /* k9204 in lp in find in k7760 in k7529 */ 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 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_9206,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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:501: lp */ t4=((C_word*)((C_word*)t0)[4])[1]; f_9193(t4,((C_word*)t0)[3],t3);}} /* k8381 in make-irregex-chunker in k7760 in k7529 */ static void C_fcall f_8383(C_word 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_8383,2,t0,t1);} a=C_alloc(9); t2=(C_truep(t1)?t1:(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8571,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8389,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_8389(t6,C_u_i_cdr(t5));} else{ t5=t4; f_8389(t5,((C_word*)t0)[5]);}} /* k20426 in k20396 in k20357 in lp2 in k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_20428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_20428,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20429,a[2]=((C_word*)t0)[2],a[3]=((C_word)li256),tmp=(C_word)a,a+=4,tmp); t3=C_u_i_car(((C_word*)t0)[3]); t4=C_i_check_list_2(t3,lf[288]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20463,a[2]=t2,a[3]=((C_word)li257),tmp=(C_word)a,a+=4,tmp); t6=((C_word*)t0)[4]; f_20371(t6,( f_20463(t5,t3) ));} /* k8387 in k8381 in make-irregex-chunker in k7760 in k7529 */ static void C_fcall f_8389(C_word t0,C_word t1){ C_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_8389,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_8554,a[2]=((C_word*)t0)[2],a[3]=((C_word)li25),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_8453,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)li27),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_8413,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_8426,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,a[9]=t17,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]))){ t19=C_i_closurep(((C_word*)t0)[3]); t20=t18; f_8426(t20,(C_truep(t19)?C_i_closurep(t11):C_SCHEME_FALSE));} else{ t19=t18; f_8426(t19,C_SCHEME_FALSE);}} else{ t19=t18; f_8426(t19,C_SCHEME_FALSE);}} /* lp in k12311 in k12177 in k12161 in k12151 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_8953(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(13,0,4)))){ C_save_and_reclaim_args((void *)trf_8953,5,t0,t1,t2,t3,t4);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8956,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t2,a[6]=((C_word)li88),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_8977,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:445: collect */ t8=t5; f_8956(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=C_fixnum_plus(t2,C_fix(1)); t10=t9; t11=C_fixnum_plus(t2,C_fix(1)); t12=t11; t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8998,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:446: collect */ t14=t5; f_8956(t14,t13);} else{ t9=C_fixnum_plus(t2,C_fix(1)); /* irregex-core.scm:447: lp */ t15=t1; t16=t9; t17=t3; t18=t4; t1=t15; t2=t16; t3=t17; t4=t18; goto loop;}}} /* k8925 in scan in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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_8927,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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)); /* irregex-core.scm:439: scan */ t3=((C_word*)((C_word*)t0)[4])[1]; f_8914(t3,((C_word*)t0)[2],t2);}} /* g3642 in k20426 in k20396 in k20357 in lp2 in k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static C_word C_fcall f_20429(C_word t0,C_word t1){ C_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));} /* collect in lp in k12311 in k12177 in k12161 in k12151 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_8956(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_8956,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8964,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:444: substring */ t3=*((C_word*)lf[38]+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);}} /* nfa-add-epsilon! in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20823(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(6,0,1)))){ C_save_and_reclaim_args((void *)trf_20823,5,t1,t2,t3,t4,t5);} a=C_alloc(6); t6=( /* irregex-core.scm:2392: nfa-get-epsilons */ f_20789(t2,t3) ); if(C_truep(C_i_assq(t4,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{ t7=C_a_i_cons(&a,2,t4,t5); t8=C_a_i_cons(&a,2,t7,t6); t9=t1; t10=t2; t11=t3; t12=C_fixnum_times(t11,C_fix(4)); t13=C_fixnum_plus(t12,C_fix(1)); t14=t9;{ C_word av2[2]; av2[0]=t14; av2[1]=C_i_vector_set(t10,t13,t8); ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} /* k30014 in k30007 in k30004 in k30001 in k29918 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_30016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_30016,2,av);} /* irregex-utils.scm:136: display */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k27247 in k13651 in k13644 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_27249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_27249,2,av);} /* irregex-core.scm:3720: fold */ f_9374(((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_END_OF_LIST,t1);} /* k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_23621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_23621,2,av);} a=C_alloc(10); t2=C_mutate2(((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_23630,a[2]=((C_word)li124),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_23698,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=((C_word)li191),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_23698(t9,((C_word*)t0)[4],((C_word*)t0)[5],C_fix(1),t4,t5);} /* irregex-match-start-chunk in k7760 in k7529 */ 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=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_7777,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_7781,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:228: irregex-match-numeric-index */ f_7953(t4,lf[20],t2,t3);} /* k25982 in k25961 */ static void C_ccall f_25984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_25984,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_25991,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3520: g4987 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7773 in k8143 in irregex-match-valid-index? in k7760 in k7529 */ 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 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_7775,2,av);} t2=C_i_assq(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* new-res in lp2 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static C_word C_fcall f_11806(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[145],t1):C_a_i_cons(&a,2,lf[146],t1)));}} /* cset-contains? in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_27251(C_word t1,C_word 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(5,0,3)))){ C_save_and_reclaim_args((void *)trf_27251,3,t1,t2,t3);} a=C_alloc(5); 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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27284,a[2]=t4,a[3]=t5,a[4]=((C_word)li330),tmp=(C_word)a,a+=5,tmp); t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=( f_27284(t7,C_fix(0),t6) ); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k23609 in k22703 in lp2 in k22671 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_23611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_23611,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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* lp in fold in k7760 in k7529 */ static void C_fcall f_9380(C_word t0,C_word t1,C_word 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_9380,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_9398,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:535: 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);}}} /* make-irregex-chunker in k7760 in k7529 */ 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=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_8379,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_8383,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_8383(t7,C_u_i_car(t6));} else{ t6=t5; f_8383(t6,C_SCHEME_FALSE);}} /* k8210 in irregex-match-substring in k7760 in k7529 */ 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 t11; C_word 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_8212,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:298: g883 */ t24=t4;{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k25961 */ static void C_ccall f_25963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_25963,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_25984,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:3520: g4985 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_25940(t3,C_SCHEME_TRUE);}} /* irregex-match-names in k7529 */ 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=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_7716,3,av);} t3=C_i_check_structure_2(t2,lf[13],lf[19]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a8742 */ 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); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8743,3,av);} t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_vector_ref(((C_word*)t0)[3],C_fix(0)); /* irregex-core.scm:396: g1012 */ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* any in k7760 in k7529 */ static void C_fcall f_9286(C_word t1,C_word 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_9286,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_9302,a[2]=t2,a[3]=t9,a[4]=((C_word)li43),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_9302(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);}}} /* for-each-loop6125 in k30007 in k30004 in k30001 in k29918 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_30021(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_30021,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_30031,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: g6126 */ 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);}}} /* a28898 in k28892 in irregex-extract in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_28899,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28907,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:4009: irregex-match-substring */ t6=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k28892 in irregex-extract in k19097 in k9756 in k7760 in k7529 */ 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 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_28894,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28899,a[2]=((C_word)li359),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28909,a[2]=((C_word)li360),tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=lf[392]; 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);}} /* irregex-extract in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28890(C_word c,C_word *av){ C_word tmp; C_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_28890,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_28894,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_stringp(t3))){ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_28894(2,av2);}} else{ /* irregex-core.scm:4006: error */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[411]; av2[3]=lf[412]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* lp in every in k7760 in k7529 */ static void C_fcall f_9347(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_9347,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_nullp(t3))){ /* irregex-core.scm:528: 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_9363,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:529: 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);}}} /* k30029 in for-each-loop6125 in k30007 in k30004 in k30001 in k29918 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_30031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_30031,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_30021(t3,((C_word*)t0)[4],t2);} /* f_8571 in k8381 in make-irregex-chunker in k7760 in k7529 */ 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=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_8571,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* lp in last in k7760 in k7529 */ static C_word C_fcall f_9263(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);}} /* fold in k7760 in k7529 */ static void C_fcall f_9374(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_9374,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_9380,a[2]=t6,a[3]=t2,a[4]=((C_word)li47),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_9380(t8,t1,t4,t3);} /* k30001 in k29918 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_30003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_30003,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30006,a[2]=((C_word*)t0)[2],a[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[210]); if(C_truep(t5)){ /* irregex-utils.scm:133: display */ t6=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t2; av2[2]=lf[453]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_30006(2,av2);}}} /* k30007 in k30004 in k30001 in k29918 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_30009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_30009,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[288]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30016,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_30021,a[2]=t8,a[3]=t2,a[4]=((C_word)li383),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_30021(t10,t6,t4);} /* k30004 in k30001 in k29918 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_30006,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30009,a[2]=((C_word*)t0)[2],a[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: display */ t3=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(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);}} /* k30412 in loop2 in loop in k30275 in glob->regexp in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_30414(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_30414,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k20997 in add-state! in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_20999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,2)))){ C_save_and_reclaim((void *)f_20999,2,av);} a=C_alloc(5); t2=t1; t3=((C_word*)((C_word*)t0)[2])[1]; t4=C_block_size(t3); t5=C_fixnum_difference(t4,C_fix(1)); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21009,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li270),tmp=(C_word)a,a+=5,tmp); t7=( f_21009(t6,t5) ); t8=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t9=((C_word*)t0)[3]; f_20990(t9,t8);} /* a23629 in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_23630(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_23630,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; /* Re-use our own argvector */ av2[0]=t23; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}} /* k9361 in lp in every in k7760 in k7529 */ static void C_ccall f_9363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_9363,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:529: lp */ t5=((C_word*)((C_word*)t0)[3])[1]; f_9347(t5,((C_word*)t0)[4],t2,t4);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* save in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_10929(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_10929,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10941,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:825: collect */ t3=((C_word*)((C_word*)t0)[4])[1]; f_10604(t3,t2);} /* k25989 in k25982 in k25961 */ static void C_ccall f_25991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_25991,2,av);} t2=C_i_string_ref(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; f_25940(t3,C_eqp(C_make_character(10),t2));} /* k10924 in k10698 in collect/terms in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10926,2,av);} t2=((C_word*)t0)[2]; f_10703(t2,C_u_i_memq(t1,lf[112]));} /* f_25998 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_25998(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25998,10,av);} a=C_alloc(23); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_26005,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_26014,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_26014(t16,C_i_not(t15));} else{ t16=C_u_i_char_numericp(t14); t17=t11; f_26014(t17,C_i_not(t16));}} else{ t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26067,a[2]=t11,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3528: chunker-next-char */ f_8677(t14,t2,t4);}} /* k20988 in add-state! in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20990(C_word t0,C_word 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_20990,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);}} /* last in k7760 in k7529 */ static void C_fcall f_9248(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_9248,2,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9263,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp); t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=( f_9263(t2) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* irregex-core.scm:511: error */ t3=*((C_word*)lf[25]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t1; av2[2]=lf[51]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k9396 in lp in fold in k7760 in k7529 */ static void C_ccall f_9398(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9398,2,av);} /* irregex-core.scm:535: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9380(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* f_25900 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_25900(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25900,10,av);} a=C_alloc(15); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25907,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_25926,a[2]=t10,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3509: g4972 */ t16=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t15; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}} else{ t13=t10; f_25907(t13,C_SCHEME_FALSE);}} /* k25905 */ static void C_fcall f_25907(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_25907,2,t0,t1);} if(C_truep(t1)){ /* irregex-core.scm:3510: 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:3511: 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);}}} /* for-each-loop3641 in k20426 in k20396 in k20357 in lp2 in k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static C_word C_fcall f_20463(C_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:2219: g3642 */ f_20429(((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);}} /* g2598 in k16534 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_16540(C_word t0,C_word 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(3,0,3)))){ C_save_and_reclaim_args((void *)trf_16540,3,t0,t1,t2);} a=C_alloc(3); t3=t2; t4=C_i_vector_length(t3); t5=C_fixnum_divide(t4,C_fix(4)); t6=C_fixnum_times(((C_word*)t0)[2],t5); /* irregex-core.scm:1611: nfa->dfa */ f_22589(t1,t2,C_a_i_list(&a,1,t6));} /* add-state! in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20986(C_word t0,C_word t1,C_word 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_20986,4,t0,t1,t2,t3);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20990,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_20999,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_fixnum_times(C_fix(2),t8); /* irregex-core.scm:2446: make-vector */ t10=*((C_word*)lf[2]+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_20990(t7,C_SCHEME_UNDEFINED);}} /* lp in any in k7760 in k7529 */ static void C_fcall f_9302(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_9302,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_nullp(t3))){ /* irregex-core.scm:521: 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_9315,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:522: 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);}}} /* lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_23698(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_23698,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(18); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23701,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=t5,a[6]=((C_word)li125),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_23724,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:3115: sre->cset */ f_26784(t9,t11,C_a_i_list(&a,1,t14));} else{ t9=t2; t10=C_u_i_car(t9); t11=C_eqp(t10,lf[168]); t12=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23740,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_23740(t13,t11);} else{ t13=C_eqp(t10,lf[232]); if(C_truep(t13)){ t14=t12; f_23740(t14,t13);} else{ t14=C_eqp(t10,lf[219]); t15=t12; f_23740(t15,(C_truep(t14)?t14:C_eqp(t10,lf[43])));}}}} else{ if(C_truep(C_i_symbolp(t2))){ t7=t2; t8=C_eqp(t7,lf[114]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25549,a[2]=t5,a[3]=((C_word)li178),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[115]); 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_25607,a[2]=t5,a[3]=((C_word)li179),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_eqp(t7,lf[175]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25701,a[2]=t5,a[3]=((C_word)li180),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[183]); 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_25733,a[2]=t5,a[3]=((C_word)li181),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t12=C_eqp(t7,lf[172]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25793,a[2]=t5,a[3]=((C_word)li182),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[176]); 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_25900,a[2]=t5,a[3]=((C_word)li183),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t14=C_eqp(t7,lf[184]); if(C_truep(t14)){ t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25933,a[2]=t5,a[3]=((C_word)li184),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[173]); 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_25998,a[2]=t5,a[3]=((C_word)li185),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ t16=C_eqp(t7,lf[174]); if(C_truep(t16)){ t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26087,a[2]=t5,a[3]=((C_word)li186),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[107]); 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[233]); if(C_truep(t18)){ t19=C_i_cdr(t18); /* irregex-core.scm:3555: rec */ t20=t6; f_23701(t20,t1,t19);} else{ /* irregex-core.scm:3556: error */ t19=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t19; av2[1]=t1; av2[2]=lf[234]; 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_26209,a[2]=t5,a[3]=t2,a[4]=((C_word)li188),tmp=(C_word)a,a+=5,tmp):(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26310,a[2]=t2,a[3]=t5,a[4]=((C_word)li190),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_26427,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* string->list */ t8=*((C_word*)lf[95]+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:3609: error */ t7=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=lf[236]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}}}} /* k29014 in a28997 in k28933 in k28930 in k28927 in irregex-split in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_29016,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:4027: ##sys#fast-reverse */ t3=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15787 in k15769 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_15789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_15789,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[43],t1); t3=C_a_i_list1(&a,1,t2); /* irregex-core.scm:1516: append */ t4=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10902 in k10891 in k10701 in k10698 in collect/terms in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_10904,2,av);} a=C_alloc(6); t2=C_i_cadr(t1); t3=((C_word*)t0)[2]; f_10706(t3,C_a_i_list2(&a,2,lf[110],t2));} /* k16534 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_16536,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16540,a[2]=((C_word*)t0)[2],a[3]=((C_word)li209),tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1607: g2598 */ t3=t2; f_16540(t3,((C_word*)t0)[3],t1);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_16464(2,av2);}}} /* k30461 in k30434 in loop2 in loop in k30275 in glob->regexp in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_30463(C_word t0,C_word t1){ C_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_30463,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[168],t5); t7=C_a_i_cons(&a,2,t6,((C_word*)t0)[3]); /* irregex.scm:280: loop2 */ t8=((C_word*)((C_word*)t0)[4])[1]; f_30387(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:283: loop2 */ t7=((C_word*)((C_word*)t0)[4])[1]; f_30387(t7,((C_word*)t0)[5],t3,t6);}} /* k15769 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_15771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_15771,2,av);} a=C_alloc(4); t2=t1; if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ /* irregex-core.scm:1516: append */ t3=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_15789,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1519: ##sys#fast-reverse */ t4=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k15765 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_15767(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_15767,2,av);} a=C_alloc(3); /* irregex-core.scm:1516: sre-alternate */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=( /* irregex-core.scm:1516: sre-alternate */ f_18395(C_a_i(&a,3),t1) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k16593 in sre-empty? in k9756 in k7760 in k7529 */ static void C_fcall f_16595(C_word t0,C_word t1){ C_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_16595,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[123]); 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_eqp(t8,C_fix(0)); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t3=C_eqp(((C_word*)t0)[3],lf[93]); if(C_truep(t3)){ t4=((C_word*)t0)[4]; t5=C_u_i_cdr(t4); /* irregex-core.scm:1639: any */ f_9286(((C_word*)t0)[2],lf[129],t5);} else{ t4=C_eqp(((C_word*)t0)[3],lf[212]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16641,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_16641(t6,t4);} else{ t6=C_eqp(((C_word*)t0)[3],lf[104]); if(C_truep(t6)){ t7=t5; f_16641(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[3],lf[230]); if(C_truep(t7)){ t8=t5; f_16641(t8,t7);} else{ t8=C_eqp(((C_word*)t0)[3],lf[98]); if(C_truep(t8)){ t9=t5; f_16641(t9,t8);} else{ t9=C_eqp(((C_word*)t0)[3],lf[109]); if(C_truep(t9)){ t10=t5; f_16641(t10,t9);} else{ t10=C_eqp(((C_word*)t0)[3],lf[110]); if(C_truep(t10)){ t11=t5; f_16641(t11,t10);} else{ t11=C_eqp(((C_word*)t0)[3],lf[119]); t12=t5; f_16641(t12,(C_truep(t11)?t11:C_eqp(((C_word*)t0)[3],lf[224])));}}}}}}}}}} /* string-scan-char in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29050(C_word c,C_word *av){ C_word tmp; C_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_29050,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_29061,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_29061(t9,C_u_i_car(t8));} else{ t8=t7; f_29061(t8,C_fix(0));}} /* f_8554 in k8387 in k8381 in make-irregex-chunker in k7760 in k7529 */ 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=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_8554,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8562,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:326: get-str */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_15751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_15751,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_15753,a[2]=t3,a[3]=((C_word)li120),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_15753(t5,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_fcall f_15753(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_15753,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_15767,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15771,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1516: ##sys#fast-reverse */ t7=*((C_word*)lf[61]+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_15798,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_15798(t9,t7);} else{ t9=C_i_cadr(t2); t10=C_fix(C_character_code(t9)); t11=t8; f_15798(t11,C_fixnum_less_or_equal_p(C_fix(128),t10));}}} /* k25938 */ static void C_fcall f_25940(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_25940,2,t0,t1);} if(C_truep(t1)){ /* irregex-core.scm:3522: 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:3523: 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);}}} /* k22712 in k22706 in k22703 in lp2 in k22671 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_22714,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:2884: lp2 */ t11=((C_word*)((C_word*)t0)[8])[1]; f_22677(t11,((C_word*)t0)[9],t4,t5,t10);} /* k30434 in loop2 in loop in k30275 in glob->regexp in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_30436(C_word t0,C_word t1){ C_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_30436,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[43],t4,t8); t10=C_a_i_cons(&a,2,t9,((C_word*)t0)[3]); /* irregex.scm:276: loop2 */ t11=((C_word*)((C_word*)t0)[4])[1]; f_30387(t11,((C_word*)t0)[5],t2,t10);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30463,a[2]=((C_word*)t0)[2],a[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_30463(t7,C_i_char_equalp(C_make_character(45),t6));} else{ t5=t2; f_30463(t5,C_SCHEME_FALSE);}}} /* k10877 in k10704 in k10701 in k10698 in collect/terms in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10879,2,av);} t2=C_i_cddr(t1); /* irregex-core.scm:792: ##sys#fast-reverse */ t3=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_fcall f_15743(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_15743,2,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15751,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:1514: cset->plist */ f_26671(t3,t2);} /* f_25933 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_25933(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25933,10,av);} a=C_alloc(16); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25940,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_25940(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_25963,a[2]=t2,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3516: g4983 */ t16=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t15; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}}} /* k17827 in k17667 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_17829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17829,2,av);} /* irregex-core.scm:1788: return */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10939 in save in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_10941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_10941,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; /* Re-use our own argvector */ 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);}} /* sre-empty? in k9756 in k7760 in k7529 */ 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=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_16578,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[117]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16595,a[2]=t1,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ t7=t6; f_16595(t7,t5);} else{ t7=C_eqp(t4,lf[121]); if(C_truep(t7)){ t8=t6; f_16595(t8,t7);} else{ t8=C_eqp(t4,lf[100]); if(C_truep(t8)){ t9=t6; f_16595(t9,t8);} else{ t9=C_eqp(t4,lf[102]); if(C_truep(t9)){ t10=t6; f_16595(t10,t9);} else{ t10=C_eqp(t4,lf[101]); t11=t6; f_16595(t11,(C_truep(t10)?t10:C_eqp(t4,lf[103])));}}}}} else{ t3=t2; t4=C_u_i_memq(t3,lf[263]); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k22703 in lp2 in k22671 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(23,c,3)))){ C_save_and_reclaim((void *)f_22705,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22708,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; /* Re-use our own argvector */ 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_23611,a[2]=t6,a[3]=t5,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t15=t6; t16=C_i_vector_length(t5); t17=C_fixnum_divide(t16,C_fix(4)); t18=C_i_vector_ref(t5,C_fix(0)); t19=t18; t20=C_i_vector_ref(t15,C_fix(0)); t21=t20; 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_23460,a[2]=t19,a[3]=t21,a[4]=t23,a[5]=t15,a[6]=((C_word)li295),tmp=(C_word)a,a+=7,tmp)); t25=((C_word*)t23)[1]; f_23460(t25,t14,t7);}} /* k22706 in k22703 in lp2 in k22671 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_22708,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_22714,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:2881: tag-set-commands-for-closure */ f_23290(t5,((C_word*)t0)[8],t6,((C_word*)t0)[2],t4);} /* k10801 in k10785 in lp in k10707 in k10704 in k10701 in k10698 in collect/terms in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_10803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_10803,2,av);} a=C_alloc(18); t2=( /* irregex-core.scm:818: sre-sequence */ f_18372(C_a_i(&a,3),t1) ); t3=C_i_cddr(((C_word*)t0)[2]); t4=( /* irregex-core.scm:819: sre-alternate */ f_18395(C_a_i(&a,3),t3) ); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_list(&a,4,lf[99],((C_word*)t0)[4],t2,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k25924 */ static void C_ccall f_25926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_25926,2,av);} t2=((C_word*)t0)[2]; f_25907(t2,C_i_not(t1));} /* for-each-loop5975 in k29532 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29579(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_29579,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_29589,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: g5976 */ 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);}}} /* irregex-quote in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29094(C_word c,C_word *av){ C_word tmp; C_word 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_29094,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29102,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29106,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* string->list */ t5=*((C_word*)lf[95]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k9313 in lp in any in k7760 in k7529 */ 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 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_9315,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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:522: lp */ t5=((C_word*)((C_word*)t0)[4])[1]; f_9302(t5,((C_word*)t0)[2],t2,t4);}} /* k29587 in for-each-loop5975 in k29532 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_29589,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_29579(t3,((C_word*)t0)[4],t2);} /* k8543 in k8539 in k8472 */ static void C_ccall f_8545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8545,2,av);} /* irregex-core.scm:334: substring */ t2=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* scan in k29059 in string-scan-char in k19097 in k9756 in k7760 in k7529 */ static C_word C_fcall f_29063(C_word t0,C_word t1){ C_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:{} t2=t1; t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ return(C_SCHEME_FALSE);} else{ t4=((C_word*)t0)[3]; t5=C_i_string_ref(((C_word*)t0)[4],t1); t6=C_eqp(t4,t5); if(C_truep(t6)){ return(t1);} else{ t7=C_fixnum_plus(t1,C_fix(1)); t9=t7; t1=t9; goto loop;}}} /* k29059 in string-scan-char in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29061(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_29061,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29063,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li365),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t3; av2[1]=( f_29063(t2,t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8539 in k8472 */ 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; 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_8541,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8545,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:336: get-end */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8531 in k8527 in k8523 in k8511 in loop in k8535 in k8472 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8533,2,av);} /* irregex-core.scm:344: substring */ t2=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8535 in k8472 */ 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 t3; 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_8537,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_8480,a[2]=((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)li26),tmp=(C_word)a,a+=10,tmp)); t6=((C_word*)t4)[1]; f_8480(t6,((C_word*)t0)[8],((C_word*)t0)[9],t2);} /* a9107 in string-cat-reverse in k7760 in k7529 */ 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=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_9108,4,av);} t4=C_i_string_length(t2); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_fixnum_plus(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a17837 in k17667 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ 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=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_17838,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8560 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8562,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_string_length(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k29532 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29534(C_word t0,C_word t1){ C_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_29534,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29537,a[2]=((C_word*)t0)[2],a[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: display */ t3=*((C_word*)lf[425]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=lf[430]; 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[288]); 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_29579,a[2]=t7,a[3]=t2,a[4]=((C_word)li377),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_29579(t9,((C_word*)t0)[4],t4);}} /* k9104 in string-cat-reverse in k7760 in k7529 */ static void C_ccall f_9106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_9106,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_9122,a[2]=t3,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:475: make-string */ t6=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k29535 in k29532 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_29537,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[288]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29544,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_29549,a[2]=t8,a[3]=t2,a[4]=((C_word)li376),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_29549(t10,t6,t4);} /* g2609 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_16510(C_word t0,C_word 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(3,0,3)))){ C_save_and_reclaim_args((void *)trf_16510,3,t0,t1,t2);} a=C_alloc(3); t3=t2; t4=C_i_vector_length(t3); t5=C_fixnum_divide(t4,C_fix(4)); t6=C_fixnum_times(((C_word*)t0)[2],t5); /* irregex-core.scm:1615: nfa->dfa */ f_22589(t1,t2,C_a_i_list(&a,1,t6));} /* k29542 in k29535 in k29532 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29544,2,av);} /* irregex-utils.scm:93: display */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[429]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* lp in k9120 in k9104 in string-cat-reverse in k7760 in k7529 */ static C_word C_fcall f_9127(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_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);}} /* k9120 in k9104 in string-cat-reverse in k7760 in k7529 */ 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 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_9122,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9127,a[2]=t2,a[3]=((C_word)li34),tmp=(C_word)a,a+=4,tmp); t4=( f_9127(t3,((C_word*)t0)[2],((C_word*)t0)[3]) ); t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* for-each-loop5956 in k29535 in k29532 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29549(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_29549,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_29559,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: g5957 */ 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);}}} /* k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_16505,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record8(&a,8,lf[4],((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_16491,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_23621,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; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_i_cadr(t7); f_23621(2,av2);}} else{ /* irregex-core.scm:3098: sre-names */ f_18599(t10,t6,C_fix(1),C_SCHEME_END_OF_LIST);}} else{ /* irregex-core.scm:3098: sre-names */ f_18599(t10,t6,C_fix(1),C_SCHEME_END_OF_LIST);}}} /* k29557 in for-each-loop5956 in k29535 in k29532 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_29559,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_29549(t3,((C_word*)t0)[4],t2);} /* zero-to in k7760 in k7529 */ static void C_fcall f_9148(C_word t1,C_word 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_9148,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_9164,a[2]=t6,a[3]=((C_word)li37),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_9164(t8,t1,t4,C_SCHEME_END_OF_LIST);}} /* a17876 in k17857 in k17854 in k17667 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in ... */ static void C_ccall f_17877(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_17877,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:1800: return */ t10=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ 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:1800: return */ t7=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ 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:1800: return */ t7=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t1; av2[2]=t6; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k10891 in k10701 in k10698 in collect/terms in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_10893(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_10893,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10904,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:788: ##sys#fast-reverse */ t3=*((C_word*)lf[61]+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_10706(t3,C_a_i_list1(&a,1,t2));} else{ t2=((C_word*)t0)[2]; f_10706(t2,C_SCHEME_FALSE);}}} /* k10888 in k10704 in k10701 in k10698 in collect/terms in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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_10890,2,av);} t2=C_i_cdr(t1); /* irregex-core.scm:793: ##sys#fast-reverse */ t3=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11356 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_11358,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_11373,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:893: collect */ t7=((C_word*)((C_word*)t0)[7])[1]; f_10604(t7,t6);} /* lp in zero-to in k7760 in k7529 */ static void C_fcall f_9164(C_word t0,C_word t1,C_word 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_9164,4,t0,t1,t2,t3);} a=C_alloc(3); t4=C_eqp(t2,C_fix(0)); if(C_truep(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:493: lp */ t8=t1; t9=t5; t10=t6; t1=t8; t2=t9; t3=t10; goto loop;}} /* k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_fcall f_15798(C_word t0,C_word t1){ C_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_15798,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_15813,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_14699,a[2]=t10,a[3]=t11,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1403: char->utf8-list */ f_14558(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:1524: lp */ t10=((C_word*)((C_word*)t0)[4])[1]; f_15753(t10,((C_word*)t0)[5],t2,((C_word*)t0)[3],t9);}} /* intersect in k27788 in k27784 in cset-intersection in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_27792(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_27792,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_27809,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3819: ##sys#fast-reverse */ t8=*((C_word*)lf[61]+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:3824: 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:3826: 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_27847,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_27847(t27,t2);} else{ t27=t2; t28=t24; f_27847(t28,C_u_i_cdr(t27));}}}}} /* k27788 in k27784 in cset-intersection in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_27790,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_27792,a[2]=t3,a[3]=((C_word)li337),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_27792(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* k15487 in k15395 in k15389 in k15585 in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_15489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word 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_15489,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[43],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[198]); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15437,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_15439,a[2]=t10,a[3]=t16,a[4]=t11,a[5]=((C_word)li117),tmp=(C_word)a,a+=6,tmp)); t18=((C_word*)t16)[1]; f_15439(t18,t14,t12);} /* find in k7760 in k7529 */ static void C_fcall f_9187(C_word 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_9187,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_9193,a[2]=t5,a[3]=t2,a[4]=((C_word)li39),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_9193(t7,t1,t3);} /* k15435 in k15487 in k15395 in k15389 in k15585 in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_15437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_15437,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=( /* irregex-core.scm:1494: sre-sequence */ f_18372(C_a_i(&a,3),t2) ); t4=C_a_i_list1(&a,1,t3); /* irregex-core.scm:1475: append */ t5=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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-loop2257 in k15487 in k15395 in k15389 in k15585 in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_fcall f_15439(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_15439,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_a_i_list(&a,3,lf[43],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_mutate2(((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);}}} /* cset-intersection in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27778(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_27778,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27786,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3815: vector->list */ t5=*((C_word*)lf[152]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k27784 in cset-intersection in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27786(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_27786,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27790,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3816: vector->list */ t4=*((C_word*)lf[152]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f34064 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f34064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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 *)f34064,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[114],t1); /* irregex-core.scm:835: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10523(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* f34069 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f34069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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 *)f34069,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[115],t1); /* irregex-core.scm:835: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10523(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k11371 in k11356 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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(0,c,6)))){ C_save_and_reclaim((void *)f_11373,2,av);} /* irregex-core.scm:893: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10523(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);} /* k13773 in k13763 in k13750 in k13672 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_13775,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; /* Re-use our own argvector */ } 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);}} /* irregex-match? in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19859(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_19859,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_19866,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t3; av2[2]=*((C_word*)lf[281]+1); av2[3]=t2; C_apply(4,av2);}} /* a19853 in k19743 in k19737 in k19731 in k19624 in k19621 in irregex-match/chunked in k19097 in k9756 in k7760 in k7529 */ 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 *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_19854,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k13763 in k13750 in k13672 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_13765(C_word t0,C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_13765,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=C_fix(C_character_code(((C_word*)t0)[2])); t3=C_i_vector_ref(lf[158],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13775,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_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* irregex-core.scm:1246: utf8-string-ref */ f_14245(t5,((C_word*)t0)[6],t6,t4);} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(2)); t3=C_a_i_list2(&a,2,((C_word*)t0)[2],t2);{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t3; C_apply(4,av2);}}} /* k17857 in k17854 in k17667 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_fcall f_17859(C_word t0,C_word t1){ C_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_17859,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ /* irregex-core.scm:1795: 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:1798: sre-sequence */ f_18372(C_a_i(&a,3),t5) ); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17877,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)li202),tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:1798: lp */ t8=((C_word*)((C_word*)t0)[7])[1]; f_17273(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:1802: sre-sequence */ f_18372(C_a_i(&a,3),t2) ); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17924,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word)li203),tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:1802: lp */ t5=((C_word*)((C_word*)t0)[7])[1]; f_17273(t5,((C_word*)t0)[3],t3,((C_word*)t0)[8],C_fix(0),C_fix(0),t4);}}} /* k17854 in k17667 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_17856(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_17856,2,t0,t1);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17859,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_17859(t3,t1);} else{ t3=((C_word*)t0)[6]; t4=C_u_i_cdr(t3); t5=t2; f_17859(t5,(C_truep(C_u_i_car(t4))?C_SCHEME_FALSE:C_i_caddr(((C_word*)t0)[6])));}} /* k19864 in irregex-match? in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19866,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k28526 in k28518 in k28510 in k28496 in k28493 in irregex-replace in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_28528,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* irregex-core.scm:3948: append */ t3=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k13750 in k13672 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_13752(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_13752,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(3)); /* irregex-core.scm:1243: string-parse-hex-escape */ f_13486(((C_word*)t0)[3],((C_word*)t0)[4],t2,((C_word*)t0)[5]);} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13765,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_13765(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_13765(t3,C_SCHEME_FALSE);}}} /* k28518 in k28510 in k28496 in k28493 in irregex-replace in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_28520,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28528,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:3949: substring */ t6=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k25588 in k25582 in k25576 in k25567 */ static void C_ccall f_25590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_25590,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* irregex-core.scm:3463: next */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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);}} /* k28262 in kons2 in k28253 in irregex-fold in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_28264,2,av);} /* irregex-core.scm:3902: kons */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* g1864 in k13672 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static C_word C_fcall f_13731(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));} /* k13728 in k13672 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13730,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k28514 in k28510 in k28496 in k28493 in irregex-replace in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_28516,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:3946: string-cat-reverse */ f_9098(((C_word*)t0)[3],t2);} /* irregex-fold/chunked/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28279(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_28279,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_28283,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:3906: irregex */ t9=*((C_word*)lf[204]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k28510 in k28496 in k28493 in irregex-replace in k19097 in k9756 in k7760 in k7529 */ 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(9,c,3)))){ C_save_and_reclaim((void *)f_28512,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28516,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_28520,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:3948: irregex-apply-match */ t5=*((C_word*)lf[403]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k20069 in g3466 in finalize! in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20071(C_word 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,1)))){ C_save_and_reclaim_args((void *)trf_20071,2,t0,t1);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_fixnum_shift_left(((C_word*)t0)[3],C_fix(1)); t4=C_fixnum_plus(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);}}} /* k13717 in a13701 in k13672 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13719,2,av);} /* irregex-core.scm:1237: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13600(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,t1);} /* k19829 in lp in k19753 in k19743 in k19737 in k19731 in k19624 in k19621 in irregex-match/chunked in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19831(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_19831,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_19767(t2,C_SCHEME_FALSE);} else{ t2=((C_word*)t0)[3]; t3=C_i_vector_ref(t2,C_fix(3)); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19799,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[4]; t6=C_slot(t5,C_fix(1)); t7=C_slot(t6,C_fix(2)); /* irregex-core.scm:2070: g3385 */ t8=t3;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t4; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* a13701 in k13672 in go in k13593 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13702(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_13702,4,av);} a=C_alloc(10); if(C_truep(C_i_char_lessp(t2,((C_word*)t0)[2]))){ /* irregex-core.scm:1236: error */ t4=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=lf[155]; 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_13719,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:1237: cset-union */ t9=lf[151];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=t8; f_27373(4,av2);}}} /* k28281 in irregex-fold/chunked/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_28283,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_28286,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:3907: irregex-new-matches */ t4=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k17186 in count in sre-count-submatches in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_17188,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:1692: fold */ f_9374(((C_word*)t0)[4],((C_word*)((C_word*)t0)[5])[1],t2,t4);} /* k11754 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11756,2,av);} /* irregex-core.scm:948: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10523(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[143],t1);} /* k24453 in k24447 in a24441 in a24419 in body4570 in k24398 in k24395 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in ... */ static void C_ccall f_24455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_24455,2,av);} /* irregex-core.scm:3275: g4591 */ t2=t1;{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17192 in count in sre-count-submatches in k9756 in k7760 in k7529 */ static void C_fcall f_17194(C_word t0,C_word 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_17194,2,t0,t1);} a=C_alloc(3); 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:1692: fold */ f_9374(((C_word*)t0)[4],((C_word*)((C_word*)t0)[5])[1],t2,t4);} else{ t2=C_eqp(((C_word*)t0)[6],lf[229]); 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_17188(2,av2);}} else{ t3=C_eqp(((C_word*)t0)[6],lf[220]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17224,a[2]=((C_word*)t0)[7],tmp=(C_word)a,a+=3,tmp); t5=C_i_cadr(((C_word*)t0)[3]); /* irregex-core.scm:1697: string->sre */ t6=*((C_word*)lf[92]+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_word*)t0)[2]; t5=((C_word*)t0)[3]; t6=C_u_i_cdr(t5); /* irregex-core.scm:1692: fold */ f_9374(((C_word*)t0)[4],((C_word*)((C_word*)t0)[5])[1],t4,t6);}}}} /* k28284 in k28281 in irregex-fold/chunked/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_28286,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_28289,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_28289(t5,C_u_i_car(t4));} else{ t4=t3; f_28289(t4,C_SCHEME_FALSE);}} /* k28287 in k28284 in k28281 in irregex-fold/chunked/fast in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_28289(C_word t0,C_word t1){ C_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_28289,2,t0,t1);} a=C_alloc(19); t2=(C_truep(t1)?t1:(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28456,a[2]=((C_word)li347),tmp=(C_word)a,a+=3,tmp)); t3=t2; t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_28295,a[2]=((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); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28438,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_28438(t8,C_i_pairp(t7));} else{ t6=t5; f_28438(t6,C_SCHEME_FALSE);}} /* a24441 in a24419 in body4570 in k24398 in k24395 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in ... */ static void C_ccall f_24442(C_word c,C_word *av){ C_word tmp; 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_24442,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_24449,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_24449(t4,C_eqp(t3,((C_word*)((C_word*)t0)[12])[1]));} else{ t3=t2; f_24449(t3,C_SCHEME_FALSE);}} /* k20034 in lp2 in k19925 in k19922 in lp1 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_20036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_20036,2,av);} a=C_alloc(6); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20046,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:2127: get-start */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* sre-count-submatches in k9756 in k7760 in k7529 */ static void C_fcall f_17161(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_17161,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_17167,a[2]=t4,a[3]=((C_word)li226),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_17167(4,av2);}} /* count in sre-count-submatches in k9756 in k7760 in k7529 */ 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=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_17167,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_17188,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[230]); t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17194,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_17194(t9,t7);} else{ t9=C_eqp(t5,lf[98]); if(C_truep(t9)){ t10=t8; f_17194(t10,t9);} else{ t10=C_eqp(t5,lf[109]); t11=t8; f_17194(t11,(C_truep(t10)?t10:C_eqp(t5,lf[110])));}}} else{ t4=t3; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k28293 in k28287 in k28284 in k28281 in irregex-fold/chunked/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_28295,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_28301,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); if(C_truep(C_i_integerp(t2))){ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_28301(2,av2);}} else{ /* irregex-core.scm:3913: error */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[399]; av2[3]=lf[400]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k24447 in a24441 in a24419 in body4570 in k24398 in k24395 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in ... */ static void C_fcall f_24449(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_24449,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ /* irregex-core.scm:3277: 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_24455,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:3278: 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);}}} /* chunker-next-char in k7760 in k7529 */ static void C_fcall f_8677(C_word 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_8677,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_8684,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:378: g990 */ t7=t5;{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k8673 in k8662 in k8649 in chunker-prev-char in k7760 in k7529 */ static void C_ccall f_8675(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8675,2,av);} t2=C_fixnum_difference(t1,C_fix(1)); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_string_ref(((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* finalize! in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20056(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_20056,4,t1,t2,t3,t4);} a=C_alloc(12); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20058,a[2]=t3,a[3]=t4,a[4]=((C_word)li252),tmp=(C_word)a,a+=5,tmp); t6=C_i_check_list_2(t2,lf[288]); 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_20122,a[2]=t8,a[3]=t5,a[4]=((C_word)li253),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_20122(t10,t1,t2);} /* g3466 in finalize! in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20058(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_20058,3,t0,t1,t2);} a=C_alloc(6); 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_20071,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_fixnum_shift_left(t4,C_fix(1)); t13=C_fixnum_plus(C_fix(4),t12); if(C_truep(t9)){ t14=C_i_car(t9); t15=t10; f_20071(t15,C_i_vector_set(t11,t13,t14));} else{ t14=t10; f_20071(t14,C_i_vector_set(t11,t13,C_SCHEME_FALSE));}} /* a24419 in body4570 in k24398 in k24395 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in ... */ static void C_ccall f_24420(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24420,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_24430,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:3272: body */ t13=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2=av; /* Re-use our own argvector */ 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_24442,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)li148),tmp=(C_word)a,a+=14,tmp); /* irregex-core.scm:3274: next */ t12=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ 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);}}} /* k8662 in k8649 in chunker-prev-char in k7760 in k7529 */ static void C_ccall f_8664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_8664,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_8675,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:376: g984 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17146 in sre-has-submatches? in k9756 in k7760 in k7529 */ static void C_ccall f_17148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17148,2,av);} /* irregex-core.scm:1686: sre-has-submatches? */ t2=lf[266];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_17122(3,av2);}} /* k26003 */ static void C_fcall f_26005(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_26005,2,t0,t1);} if(C_truep(t1)){ /* irregex-core.scm:3534: 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:3535: 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);}}} /* body4570 in k24398 in k24395 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_ccall f_24414(C_word c,C_word *av){ C_word tmp; C_word 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_24414,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24420,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)li149),tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:3267: lp */ t4=((C_word*)((C_word*)t0)[6])[1]; f_23698(t4,t1,((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[8],((C_word*)t0)[9],t3);} /* join in lp2 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_11797(C_word t0,C_word t1,C_word t2){ C_word 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_11797,3,t0,t1,t2);} if(C_truep(((C_word*)t0)[2])){ t3=lf[55]; t4=lf[55]; 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[54]; t4=lf[54]; 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);}}} /* k20044 in k20034 in lp2 in k19925 in k19922 in lp1 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_20046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_20046,2,av);} /* irregex-core.scm:2127: lp1 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_19917(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} /* lp2 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_11794(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 *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(28,0,4)))){ C_save_and_reclaim_args((void *)trf_11794,5,t0,t1,t2,t3,t4);} a=C_alloc(28); 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_11797,a[2]=t4,a[3]=t3,a[4]=((C_word)li79),tmp=(C_word)a,a+=5,tmp); t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11806,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li80),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:965: error */ t11=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t1; av2[2]=lf[147]; 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=C_fixnum_plus(t2,C_fix(1)); t13=t12; t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11855,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:969: join */ t15=t5; f_11797(t15,t14,C_fix(2)); case C_make_character(109): t12=C_fixnum_plus(t2,C_fix(1)); t13=t12; t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11872,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_11797(t15,t14,C_fix(4)); case C_make_character(120): t12=C_fixnum_plus(t2,C_fix(1)); t13=t12; t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11889,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:973: join */ t15=t5; f_11797(t15,t14,C_fix(16)); case C_make_character(117): t12=C_fixnum_plus(t2,C_fix(1)); t13=t12; t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11909,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:976: join */ t15=t5; f_11797(t15,t14,C_fix(32)); case C_make_character(45): t12=C_fixnum_plus(t2,C_fix(1)); t13=C_i_not(t4); /* irregex-core.scm:979: lp2 */ t39=t1; t40=t12; t41=t3; t42=t13; t1=t39; t2=t40; t3=t41; t4=t42; goto loop; case C_make_character(41): t12=C_fixnum_plus(t2,C_fix(1)); t13=t12; t14=C_fixnum_plus(t2,C_fix(1)); t15=t14; t16=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11958,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:981: collect */ t17=((C_word*)((C_word*)t0)[9])[1]; f_10604(t17,t16); case C_make_character(58): t12=C_fixnum_plus(t2,C_fix(1)); t13=t12; t14=C_fixnum_plus(t2,C_fix(1)); t15=t14; t16=( /* irregex-core.scm:984: new-res */ f_11806(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_11991,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:985: collect */ t19=((C_word*)((C_word*)t0)[9])[1]; f_10604(t19,t18); default: /* irregex-core.scm:987: error */ t12=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t12; av2[1]=t1; av2[2]=lf[148]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}}}} /* k8695 in k8682 in chunker-next-char in k7760 in k7529 */ static void C_ccall f_8697(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_8697,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_8704,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:381: g995 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_24401 in k24398 in k24395 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_ccall f_24401(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24401,10,av);} /* irregex-core.scm:3259: fail */ t10=t9;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k24398 in k24395 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_24400(C_word t0,C_word t1){ C_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_24400,2,t0,t1);} a=C_alloc(28); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24401,a[2]=((C_word)li147),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:3264: sre-sequence */ f_18372(C_a_i(&a,3),t17) ); t19=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24414,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)li150),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=C_eqp(((C_word*)t3)[1],C_fix(0)); t25=(C_truep(t24)?(C_truep(((C_word*)t5)[1])?C_eqp(((C_word*)t5)[1],C_fix(0)):C_SCHEME_FALSE):C_SCHEME_FALSE); t26=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t26; av2[1]=(C_truep(t25)?((C_word*)t0)[4]:(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24476,a[2]=t3,a[3]=t9,a[4]=((C_word*)t0)[4],a[5]=((C_word)li152),tmp=(C_word)a,a+=6,tmp)); ((C_proc)(void*)(*((C_word*)t26+1)))(2,av2);}}} /* k8682 in chunker-next-char in k7760 in k7529 */ 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 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_8684,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_8697,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:381: g993 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* sre-has-submatches? in k9756 in k7760 in k7529 */ 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 t4; 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_17122,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[267]); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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[220],t7); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17148,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t10=C_i_cadr(t2); /* irregex-core.scm:1686: string->sre */ t11=*((C_word*)lf[92]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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:1687: any */ f_9286(t1,lf[266],t10);}}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18338 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_18340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18340,2,av);} /* irregex-core.scm:1838: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17273(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* a28578 in k28572 in irregex-replace/all in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_28579,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_28607,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:3959: irregex-apply-match */ t10=*((C_word*)lf[403]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=t3; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} /* k28572 in irregex-replace/all in k19097 in k9756 in k7760 in k7529 */ 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 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_28574,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28579,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li353),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28623,a[2]=((C_word*)t0)[2],a[3]=((C_word)li354),tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3955: irregex-fold/fast */ t4=lf[392];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_28045(7,av2);}} /* kons2 in k28253 in irregex-fold in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28256(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_28256,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28264,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:3902: irregex-copy-matches */ f_7651(t5,t3);} /* k28253 in irregex-fold in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_28255,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28256,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; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=lf[392]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; av2[5]=((C_word*)t0)[5]; C_apply(6,av2);}} /* f_24476 in k24398 in k24395 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 in ... */ static void C_ccall f_24476(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(12,c,9)))){ C_save_and_reclaim((void *)f_24476,10,av);} a=C_alloc(12); t10=C_eqp(((C_word*)((C_word*)t0)[2])[1],C_fix(0)); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24488,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)li151),tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3284: next */ t12=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} else{ t11=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24498,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:3287: body */ t12=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t11; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}} /* irregex-replace/all in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28570(C_word c,C_word *av){ C_word tmp; C_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_28570,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_28574,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_stringp(t3))){ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_28574(2,av2);}} else{ /* irregex-core.scm:3954: error */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[405]; av2[3]=lf[406]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* irregex-fold in k19097 in k9756 in k7760 in k7529 */ 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 *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_28251,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_28255,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_closurep(t3))){ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_28255(2,av2);}} else{ /* irregex-core.scm:3901: error */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[393]; av2[3]=lf[397]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k12852 in k12849 in k12846 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_12854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_12854,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[178]:lf[179]); t6=t5; if(C_truep(((C_word*)t0)[3])){ 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_12893,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t8,a[6]=t10,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); /* irregex-core.scm:1096: string->symbol */ t12=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t11; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ /* irregex-core.scm:1094: error */ t7=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=((C_word*)t0)[5]; av2[2]=lf[180]; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k12849 in k12846 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_12851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_12851,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12854,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_fixnum_plus(((C_word*)t0)[8],C_fix(3)); /* irregex-core.scm:1088: substring */ t5=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=t4; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_12854(2,av2);}}} /* utf8-string-ref in k9756 in k7760 in k7529 */ static void C_fcall f_14245(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(4,0,5)))){ C_save_and_reclaim_args((void *)trf_14245,4,t1,t2,t3,t4);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14248,a[2]=t2,a[3]=((C_word)li100),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:1349: byte */ f_14248(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:1350: byte */ f_14248(t5,t10) ); t12=C_fixnum_and(t11,C_fix(63)); t13=C_fixnum_plus(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:1353: byte */ f_14248(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:1354: byte */ f_14248(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:1355: byte */ f_14248(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:1358: byte */ f_14248(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:1359: byte */ f_14248(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:1360: byte */ f_14248(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:1361: byte */ f_14248(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:1363: error */ t7=*((C_word*)lf[25]+1);{ C_word av2[6]; av2[0]=t7; av2[1]=t1; av2[2]=lf[192]; av2[3]=t2; av2[4]=t4; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}} /* byte in utf8-string-ref in k9756 in k7760 in k7529 */ static C_word C_fcall f_14248(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)));} /* k26098 in k26092 in k26089 */ static void C_fcall f_26100(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_26100,2,t0,t1);} if(C_truep(t1)){ /* irregex-core.scm:3548: 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:3549: 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);}}} /* sre-sequence in k9756 in k7760 in k7529 */ static C_word C_fcall f_18372(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[107]);} 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[104],t1));}}} /* k26012 */ static void C_fcall f_26014(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_26014,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_26050,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:3530: g5002 */ 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_26005(t2,C_SCHEME_FALSE);}} /* k11723 in k11700 in k11697 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_11725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11725,2,av);} /* irregex-core.scm:945: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10523(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);} /* k11727 in k11697 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11729,2,av);} /* irregex-core.scm:944: string->symbol */ t2=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k26365 in k26349 in k26343 in k26337 in lp in k26325 */ static void C_ccall f_26367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_26367,2,av);} /* irregex-core.scm:3586: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_26329(t2,((C_word*)t0)[3],t1);} /* k18361 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_18363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_18363,2,av);} t2=C_fixnum_plus(C_fix(1),t1); /* irregex-core.scm:1704: make-vector */ t3=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* high-char? in k9756 in k7760 in k7529 */ static void C_ccall f_14224(C_word c,C_word *av){ C_word tmp; C_word 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_14224,3,av);} t3=C_fix(C_character_code(t2)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fixnum_less_or_equal_p(C_fix(128),t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k12846 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_12848(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,4)))){ C_save_and_reclaim_args((void *)trf_12848,2,t0,t1);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12851,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_fixnum_plus(((C_word*)t0)[8],C_fix(2)); /* irregex-core.scm:1087: string-scan-char */ t4=lf[45];{ C_word av2[5]; av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=t1; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k24428 in a24419 in body4570 in k24398 in k24395 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in ... */ static void C_ccall f_24430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_24430,2,av);} /* irregex-core.scm:3270: g4588 */ t2=t1;{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12891 in k12852 in k12849 in k12846 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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_12893,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_12889,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:1097: collect */ t5=((C_word*)((C_word*)t0)[9])[1]; f_10604(t5,t4);} /* k11700 in k11697 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_11702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_11702,2,av);} a=C_alloc(14); t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=t2; t4=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t5=t4; t6=((C_word*)t0)[3]; t7=C_fixnum_and(t6,C_fix(-2)); t8=t7; t9=C_a_i_list(&a,2,t1,lf[99]); t10=t9; t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11725,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=t5,a[6]=t8,a[7]=t10,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:946: save */ t12=((C_word*)((C_word*)t0)[6])[1]; f_10929(t12,t11);} /* k26143 in k26089 */ static void C_ccall f_26145(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_26145,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_string_ref(((C_word*)t0)[4],t3); f_26094(2,av2);}} else{ /* irregex-core.scm:3543: chunker-prev-char */ f_8647(((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}} /* sre-alternate in k9756 in k7760 in k7529 */ static C_word C_fcall f_18395(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[268]);} 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[93],t1));}}} /* f_26310 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_26310(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_26310,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_26327,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:3580: g5069 */ t15=t13;{ C_word *av2=av; /* Re-use our own argvector */ 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=C_fixnum_plus(t6,C_fix(1)); /* irregex-core.scm:3593: next */ t14=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t13; av2[7]=t7; av2[8]=t8; av2[9]=t9; ((C_proc)(void*)(*((C_word*)t14+1)))(10,av2);}} else{ /* irregex-core.scm:3594: fail */ t13=t9;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}}} /* lp2 in lp1 in k29286 in irregex-opt in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29305(C_word t0,C_word t1,C_word 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(10,0,3)))){ C_save_and_reclaim_args((void *)trf_29305,4,t0,t1,t2,t3);} a=C_alloc(10); t4=t2; t5=C_eqp(t4,C_fix(256)); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29315,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_29325,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* irregex-utils.scm:47: ##sys#fast-reverse */ t8=*((C_word*)lf[61]+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=C_fixnum_plus(t2,C_fix(1)); t10=t9; 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[421]))){ 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_29361,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_29369,a[2]=t7,a[3]=t11,tmp=(C_word)a,a+=4,tmp); /* irregex-utils.scm:55: irregex-opt */ t13=*((C_word*)lf[418]+1);{ C_word av2[3]; av2[0]=t13; av2[1]=t12; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}}}} /* k8021 in k8137 in irregex-match-numeric-index in k7760 in k7529 */ static void C_fcall f_8023(C_word t0,C_word t1){ C_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_8023,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:275: error */ t2=*((C_word*)lf[25]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[27]; av2[4]=((C_word*)t0)[2]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k12887 in k12891 in k12852 in k12849 in k12846 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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_12889,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1095: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10523(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* f_28234 in k28056 in k28053 in k28050 in k28047 in irregex-fold/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28234(C_word c,C_word *av){ C_word tmp; C_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_28234,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k26349 in k26343 in k26337 in lp in k26325 */ static void C_ccall f_26351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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,9)))){ C_save_and_reclaim((void *)f_26351,2,av);} a=C_alloc(4); 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_26367,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3586: g5066 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* irregex-core.scm:3588: next */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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:3590: fail */ t3=((C_word*)t0)[12];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* lp in tag-set-commands-for-closure in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_23305(C_word t0,C_word t1,C_word 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_23305,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_23325,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=t9,a[5]=((C_word*)t0)[6],a[6]=((C_word)li311),tmp=(C_word)a,a+=7,tmp)); t11=((C_word*)t9)[1]; f_23325(t11,t1,t6,t7,t3);}} /* k8807 */ static void C_fcall f_8809(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_8809,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8811,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li32),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t3; av2[1]=( f_8811(t2,t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7862 in irregex-match-end-index in k7760 in k7529 */ static void C_ccall f_7864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_7864,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* irregex-match-end-index in k7760 in k7529 */ 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=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_7860,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_7864,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:237: irregex-match-numeric-index */ f_7953(t4,lf[24],t2,t3);} /* k26337 in lp in k26325 */ static void C_ccall f_26339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_26339,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_26345,a[2]=((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:3582: g5062 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k27065 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_27067,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[198]); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27080,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_27082,a[2]=t5,a[3]=t12,a[4]=t7,a[5]=t6,a[6]=((C_word)li327),tmp=(C_word)a,a+=7,tmp)); t14=((C_word*)t12)[1]; f_27082(t14,t10,t8);} /* k20523 in k20520 in k20357 in lp2 in k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20525,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k20520 in k20357 in lp2 in k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20522(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_20522,2,t0,t1);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20525,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ /* irregex-core.scm:2233: finalize! */ f_20056(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);}}} /* k12817 in a12798 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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_12819,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1080: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10523(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k26343 in k26337 in lp in k26325 */ static void C_ccall f_26345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_26345,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_26351,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:3582: g5064 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* scan in k8807 */ static C_word C_fcall f_8811(C_word t0,C_word t1){ C_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:{} t2=t1; t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ return(C_SCHEME_FALSE);} else{ t4=((C_word*)t0)[3]; t5=C_i_string_ref(((C_word*)t0)[4],t1); t6=C_eqp(t4,t5); if(C_truep(t6)){ return(t1);} else{ t7=C_fixnum_plus(t1,C_fix(1)); t9=t7; t1=t9; goto loop;}}} /* k12821 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_12823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12823,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop5257 in k27065 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_27082(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_27082,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_27107,a[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:3701: g5263 */ 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);}}} /* k27078 in k27065 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_27080,2,av);} /* irregex-core.scm:3701: fold */ f_9374(((C_word*)t0)[2],lf[151],((C_word*)t0)[3],t1);} /* k23346 in lp2 in lp in tag-set-commands-for-closure in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_23348(C_word t0,C_word t1){ C_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_23348,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:3043: lp2 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_23325(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:3044: lp2 */ t8=((C_word*)((C_word*)t0)[3])[1]; f_23325(t8,((C_word*)t0)[4],t3,((C_word*)t0)[5],t7);}} /* k27050 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27052(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_27052,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_26735,a[2]=t4,a[3]=((C_word)li325),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_26735(t6,((C_word*)t0)[2],t1,t2);} /* lp in k26325 */ static void C_fcall f_26329(C_word 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_26329,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_26339,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:3582: g5060 */ 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:3591: 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);}}} /* k26325 */ static void C_ccall f_26327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_26327,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_26329,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)li189),tmp=(C_word)a,a+=10,tmp)); t5=((C_word*)t3)[1]; f_26329(t5,((C_word*)t0)[8],t1);} /* k27020 in map-loop5230 in k26980 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_27022,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_26997(t6,((C_word*)t0)[5],t5);} /* k8631 in lp in chunker-prev-char in k7760 in k7529 */ 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 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_8633,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(t1)){ /* irregex-core.scm:370: lp */ t3=((C_word*)((C_word*)t0)[5])[1]; f_8629(t3,((C_word*)t0)[4],t1);} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* lp in chunker-prev-char in k7760 in k7529 */ static void C_fcall f_8629(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_8629,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8633,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:367: 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);}} /* scan in string-parse-hex-escape in k9756 in k7760 in k7529 */ static C_word C_fcall f_8855(C_word t0,C_word t1){ C_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=t1; t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ return(C_SCHEME_FALSE);} else{ t4=C_i_string_ref(((C_word*)t0)[3],t1); t5=C_eqp(C_make_character(125),t4); if(C_truep(t5)){ return(t1);} else{ t6=C_fixnum_plus(t1,C_fix(1)); t8=t6; t1=t8; goto loop;}}} /* k8649 in chunker-prev-char in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8651,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_8664,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:375: g982 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chunker-prev-char in k7760 in k7529 */ static void C_fcall f_8647(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_8647,4,t1,t2,t3,t4);} a=C_alloc(12); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8651,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_8651(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_8629,a[2]=t7,a[3]=t12,a[4]=t10,a[5]=((C_word)li29),tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_8629(t14,t5,t3);}} /* k22533 in lp in mst-fold in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_22535,2,av);} /* irregex-core.scm:2795: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_22514(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* doloop4111 in g4266 in lp2 in lp in k23153 in k23149 in k23145 in nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static C_word C_fcall f_22565(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_i_memq(t1,((C_word*)t0)[2]))){ t2=C_fixnum_plus(t1,C_fix(1)); t4=t2; t1=t4; goto loop;} else{ t2=t1; return(t2);}} /* k29964 in k29927 in k29918 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_29966,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[445],t1); /* irregex-utils.scm:130: lp */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; f_29511(3,av2);}} /* k16927 in sre-searcher? in k9756 in k7760 in k7529 */ static void C_fcall f_16929(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_16929,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:1667: sre-searcher? */ t5=lf[258];{ C_word av2[3]; av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t4; f_16894(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[93]); if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); /* irregex-core.scm:1668: every */ f_9329(((C_word*)t0)[3],lf[258],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);}}}} /* k29900 in k29897 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29902(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29902,2,av);} /* irregex-utils.scm:121: display */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[447]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k29907 in k29897 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29909,2,av);} /* irregex-utils.scm:120: display */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20562 in k20357 in lp2 in k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20564(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_20564,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20567,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ /* irregex-core.scm:2236: finalize! */ f_20056(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);}}} /* k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ 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 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_20968,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_20971,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_21930,a[2]=t7,a[3]=t3,a[4]=((C_word)li278),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_21930(t9,t4,t5,C_fix(0),C_SCHEME_END_OF_LIST);} /* k20565 in k20562 in k20357 in lp2 in k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_20567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_20567,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20964(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,3)))){ C_save_and_reclaim_args((void *)trf_20964,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20968,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:2418: make-vector */ t5=*((C_word*)lf[2]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=C_fix(512); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* irregex-match-start-index in k7760 in k7529 */ 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=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_7802,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_7806,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:231: irregex-match-numeric-index */ f_7953(t4,lf[22],t2,t3);} /* k7804 in irregex-match-start-index in k7760 in k7529 */ 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 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_7806,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* new-state-number in lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20976(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_20976,3,t0,t1,t2);} t3=C_fixnum_plus(C_fix(1),t2); /* irregex-core.scm:2443: max */ t4=*((C_word*)lf[239]+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);}} /* lp in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20973(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_20973,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_20976,a[2]=t3,a[3]=((C_word)li269),tmp=(C_word)a,a+=4,tmp)); t15=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20986,a[2]=((C_word*)t0)[2],a[3]=((C_word)li271),tmp=(C_word)a,a+=4,tmp)); t16=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21053,a[2]=t9,a[3]=t7,a[4]=((C_word)li272),tmp=(C_word)a,a+=5,tmp)); t17=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21070,a[2]=t4,a[3]=t11,a[4]=((C_word)li273),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[107],t18); t20=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_21117,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_21117(t21,t19);} else{ t21=t2; t22=C_u_i_car(t21); t23=t20; f_21117(t23,C_i_equalp(lf[376],t22));}}} /* k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_20971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_20971,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_20973,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t2,a[5]=((C_word)li276),tmp=(C_word)a,a+=6,tmp)); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21871,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t7=C_a_i_list1(&a,1,((C_word*)t0)[4]); /* irregex-core.scm:2635: lp */ t8=((C_word*)t4)[1]; f_20973(t8,t6,t7,C_fix(1),((C_word*)t0)[5],C_fix(0));} /* k29918 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29920(C_word t0,C_word t1){ C_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_29920,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_29929,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_29929(t6,t4);} else{ t6=((C_word*)t0)[2]; t7=C_u_i_car(t6); t8=C_eqp(lf[232],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_29929(t12,C_eqp(lf[114],t11));} else{ t11=t5; f_29929(t11,C_SCHEME_FALSE);}} else{ t9=t5; f_29929(t9,C_SCHEME_FALSE);}}} else{ t2=C_eqp(((C_word*)t0)[6],lf[210]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[6],lf[211])); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30003,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: display */ t5=*((C_word*)lf[425]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=lf[454]; 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_30067,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); /* string->list */ t9=*((C_word*)lf[95]+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: error */ t6=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=lf[455]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}} /* k29927 in k29918 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29929(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_29929,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29932,a[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: display */ t3=*((C_word*)lf[425]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=lf[450]; 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_29966,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_26784(t2,((C_word*)t0)[4],C_SCHEME_END_OF_LIST);}} /* k7833 in irregex-match-end-chunk in k7760 in k7529 */ 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 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_7835,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* irregex-match-end-chunk in k7760 in k7529 */ static void C_ccall f_7831(C_word c,C_word *av){ C_word tmp; C_word 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_7831,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_7835,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:234: irregex-match-numeric-index */ f_7953(t4,lf[23],t2,t3);} /* k8291 in irregex-match-subchunk in k7760 in k7529 */ static void C_ccall f_8293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_8293,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(t4)){ 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:314: get-subchunk */ t24=t4;{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ /* irregex-core.scm:313: error */ t5=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=lf[36]; av2[3]=((C_word*)t0)[2]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k29930 in k29927 in k29918 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_29932,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29935,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_29942,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_29419(t3,t8);} else{ t7=C_i_cddr(((C_word*)t0)[4]); /* irregex-utils.scm:127: cset->string */ f_29419(t3,t7);}} /* k29933 in k29930 in k29927 in k29918 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29935,2,av);} /* irregex-utils.scm:128: display */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[449]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k29820 in for-each-loop6070 in k29798 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_29822,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_29812(t3,((C_word*)t0)[4],t2);} /* lp in lp in k22703 in lp2 in k22671 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static C_word C_fcall f_22451(C_word t0,C_word t1){ C_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=t1; t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ return(t3);} else{ t4=C_i_vector_ref(((C_word*)t0)[3],t1); t5=C_i_not(t4); t6=C_i_vector_ref(((C_word*)t0)[4],t1); t7=C_i_not(t6); if(C_truep(C_i_equalp(t5,t7))){ t8=C_fixnum_plus(t1,C_fix(1)); t10=t8; t1=t10; goto loop;} else{ return(C_SCHEME_FALSE);}}} /* k16489 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16491(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_16491,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_record8(&a,8,lf[4],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);}} /* string-cat-reverse in k7760 in k7529 */ static void C_fcall f_9098(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_9098,2,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9106,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9108,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:471: fold */ f_9374(t3,t4,C_fix(0),t2);} /* k29798 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_29800,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[288]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29807,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_29812,a[2]=t8,a[3]=t2,a[4]=((C_word)li382),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_29812(t10,t6,t4);} /* k29805 in k29798 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29807(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29807,2,av);} /* irregex-utils.scm:108: display */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[439]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16470(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_16470,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16473,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:1617: sre-count-submatches */ f_17161(t3,((C_word*)t0)[7]);} /* k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_16479,2,av);} a=C_alloc(11); t2=t1; t3=(C_truep(((C_word*)t0)[2])?C_fix(1):C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_16505,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:1622: sre-consumer? */ t6=lf[238];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[8]; f_17008(3,av2);}} /* k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_16476,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_16479,a[2]=((C_word*)t0)[2],a[3]=((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_17261,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; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_u_i_car(t6); f_17261(2,av2);}} else{ /* irregex-core.scm:1703: sre-names */ f_18599(t7,t5,C_fix(1),C_SCHEME_END_OF_LIST);}} /* k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16473(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_16473,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_16476,a[2]=((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:1618: sre-names */ f_18599(t3,((C_word*)t0)[8],C_fix(1),C_SCHEME_END_OF_LIST);} /* for-each-loop6070 in k29798 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29812(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_29812,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_29822,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: g6071 */ 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);}}} /* irregex-match-subchunk in k7760 in k7529 */ static void C_ccall f_8289(C_word c,C_word *av){ C_word tmp; C_word 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_8289,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_8293,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:309: irregex-match-numeric-index */ f_7953(t4,lf[35],t2,t3);} /* k29860 in k29857 in k29854 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29862,2,av);} /* irregex-utils.scm:116: display */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[441]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ 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 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_16452,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16455,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:1600: sre-searcher? */ t4=lf[258];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; f_16894(3,av2);}} /* k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_16455,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16458,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:1601: sre-remove-initial-bos */ t4=lf[257];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; f_18917(3,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)t0)[3]; f_16458(2,av2);}}} /* k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_16458,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16461,a[2]=((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[255],t4))){ t5=t3; f_16461(t5,C_fix(1));} else{ t5=((C_word*)t0)[6]; t6=t3; f_16461(t6,(C_truep(C_u_i_memq(lf[256],t5))?C_fix(50):C_fix(10)));}} /* map-loop2128 in k15184 in k15258 in unicode-range-up-to in k9756 in k7760 in k7529 */ static void C_fcall f_15214(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_15214,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_mutate2(((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);}}} /* k15210 in k15190 in k15184 in k15258 in unicode-range-up-to in k9756 in k7760 in k7529 */ static void C_ccall f_15212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_15212,2,av);} a=C_alloc(12); t2=C_make_character(C_unfix(t1)); t3=C_a_i_list(&a,3,lf[43],C_make_character(128),t2); t4=C_a_i_list(&a,1,t3); /* irregex-core.scm:1467: append */ t5=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k29871 in k29857 in k29854 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_29873,2,av);} /* irregex-utils.scm:115: cset->string */ f_29419(((C_word*)t0)[2],t1);} /* k29867 in k29857 in k29854 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29869(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29869,2,av);} /* irregex-utils.scm:115: display */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16441 in string->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16443,2,av);}{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[207]+1); av2[3]=t1; av2[4]=((C_word*)t0)[3]; C_apply(5,av2);}} /* sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16445(C_word c,C_word *av){ C_word tmp; C_word 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_16445,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_16449,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:1596: symbol-list->flags */ f_10373(t4,t3);} /* k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_16449,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16452,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_15865,a[2]=t10,a[3]=((C_word)li218),tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_15865(t12,t3,t4,t6,t8);} /* string->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16435(C_word c,C_word *av){ C_word tmp; C_word 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_16435,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_16443,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t4; av2[2]=*((C_word*)lf[92]+1); av2[3]=t2; av2[4]=t3; C_apply(5,av2);}} /* k29854 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29856(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_29856,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29859,a[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: display */ t3=*((C_word*)lf[425]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=lf[443]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* irregex-utils.scm:117: error */ t2=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[444]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k15258 in unicode-range-up-to in k9756 in k7760 in k7529 */ static void C_ccall f_15260(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_15260,2,av);} a=C_alloc(19); t2=C_i_cdr(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15179,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_15186,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_15254,a[2]=t9,tmp=(C_word)a,a+=3,tmp); t11=((C_word*)t0)[4]; t12=C_u_i_cdr(t11); /* irregex-core.scm:1468: ##sys#fast-reverse */ t13=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t10; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} /* k29940 in k29930 in k29927 in k29918 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29942,2,av);} /* irregex-utils.scm:127: display */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k29857 in k29854 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29859(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_29859,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29862,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_29869,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_29873,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* irregex-utils.scm:115: cdadr */ t5=*((C_word*)lf[442]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15252 in k15258 in unicode-range-up-to in k9756 in k7760 in k7529 */ static void C_ccall f_15254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_15254,2,av);} t2=C_i_cdr(t1); /* irregex-core.scm:1468: ##sys#fast-reverse */ t3=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* string-parse-hex-escape in k9756 in k7760 in k7529 */ static void C_fcall f_13486(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(12,0,4)))){ C_save_and_reclaim_args((void *)trf_13486,4,t1,t2,t3,t4);} a=C_alloc(12); t5=t3; t6=t4; if(C_truep(C_fixnum_greater_or_equal_p(t5,t6))){ /* irregex-core.scm:1187: error */ t7=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t1; av2[2]=lf[186]; 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=C_fixnum_plus(t3,C_fix(1)); t10=t2; t11=C_a_i_list(&a,1,t9); t12=C_i_string_length(t10); t13=t12; t14=C_i_pairp(t11); t15=(C_truep(t14)?C_u_i_car(t11):C_fix(0)); t16=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8855,a[2]=t13,a[3]=t10,a[4]=((C_word)li97),tmp=(C_word)a,a+=5,tmp); t17=( f_8855(t16,t15) ); t18=t17; if(C_truep(t18)){ t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13517,a[2]=t1,a[3]=t18,tmp=(C_word)a,a+=4,tmp); t20=C_fixnum_plus(t3,C_fix(1)); /* irregex-core.scm:1192: substring */ t21=*((C_word*)lf[38]+1);{ C_word av2[5]; av2[0]=t21; av2[1]=t19; av2[2]=t2; av2[3]=t20; av2[4]=t18; ((C_proc)(void*)(*((C_word*)t21+1)))(5,av2);}} else{ /* irregex-core.scm:1191: error */ t19=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t19; av2[1]=t1; av2[2]=lf[188]; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}}} else{ t9=C_fixnum_plus(t3,C_fix(1)); t10=t4; if(C_truep(C_fixnum_greater_or_equal_p(t9,t10))){ /* irregex-core.scm:1198: error */ t11=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t1; av2[2]=lf[189]; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13553,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t12=C_fixnum_plus(t3,C_fix(2)); /* irregex-core.scm:1200: substring */ t13=*((C_word*)lf[38]+1);{ C_word av2[5]; av2[0]=t13; av2[1]=t11; av2[2]=t2; av2[3]=t3; av2[4]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}}}}} /* g2200 in k15585 in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_fcall f_15288(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_15288,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15384,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:1487: utf8-lowest-digit-of-length */ f_14482(t3,t4);} /* k25112 in lp in k24990 */ static void C_ccall f_25114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_25114,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25118,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:3403: substring */ t4=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k25116 in k25112 in lp in k24990 */ static void C_ccall f_25118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_25118,2,av);} /* irregex-core.scm:3402: compare */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15277 in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ 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(3,c,1)))){ C_save_and_reclaim((void *)f_15279,2,av);} a=C_alloc(3); /* irregex-core.scm:1474: sre-alternate */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=( /* irregex-core.scm:1474: sre-alternate */ f_18395(C_a_i(&a,3),t1) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k29884 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_29886,2,av);} t2=((C_word*)t0)[2]; f_29856(t2,C_eqp(lf[445],t1));} /* k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_16461(C_word t0,C_word t1){ C_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_16461,2,t0,t1);} a=C_alloc(27); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16464,a[2]=((C_word*)t0)[2],a[3]=((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[254],t4))){ t5=t3;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_16464(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_16464(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16536,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=C_a_i_list(&a,2,lf[117],lf[114]); t7=C_a_i_list(&a,3,lf[104],t6,((C_word*)t0)[6]); /* irregex-core.scm:1609: sre->nfa */ f_20964(t5,t7,((C_word*)t0)[5]);}}} /* k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_16467,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16470,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_16510,a[2]=((C_word*)t0)[8],a[3]=((C_word)li208),tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1613: g2609 */ t4=t3; f_16510(t4,t2,t1);} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_16470(2,av2);}}} /* k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_16464(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_16464,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16467,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:1613: sre->nfa */ f_20964(t3,((C_word*)t0)[6],((C_word*)t0)[5]);} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_16467(2,av2);}}} /* k25021 in lp in k24990 */ static void C_ccall f_25023(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_25023,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],((C_word*)t0)[3]); /* irregex-core.scm:3397: next */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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:3399: fail */ t2=((C_word*)t0)[12];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k25035 in lp in k24990 */ static void C_ccall f_25037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_25037,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25041,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:3396: substring */ t5=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k29897 in k29784 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_29899,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29902,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_29909,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_29419(t3,t5);} /* lp in k24990 */ static void C_fcall f_25010(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_25010,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_25023,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_25037,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:3395: substring */ t13=*((C_word*)lf[38]+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_25055,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=t4,a[5]=t6,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_25114,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:3402: substring */ t14=*((C_word*)lf[38]+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);}}} /* k29217 in k29196 in k29367 in lp2 in lp1 in k29286 in irregex-opt in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29219,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[422]+1); av2[3]=t1; C_apply(4,av2);}} /* map-loop5856 in k29196 in k29367 in lp2 in lp1 in k29286 in irregex-opt in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29221(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_29221,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_mutate2(((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);}}} /* k8065 in k8137 in irregex-match-numeric-index in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_8067,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_8069,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)li19),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_8069(t5,((C_word*)t0)[5],t1,C_SCHEME_TRUE);} /* lp in k8065 in k8137 in irregex-match-numeric-index in k7760 in k7529 */ static void C_fcall f_8069(C_word t0,C_word t1,C_word 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_8069,4,t0,t1,t2,t3);} if(C_truep(C_i_nullp(t2))){ if(C_truep(t3)){ /* irregex-core.scm:282: error */ t4=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[29]; 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:286: 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:287: lp */ t15=t1; t16=t7; t17=t3; t1=t15; t2=t16; t3=t17; goto loop;}}} /* k23593 in lp in k22703 in lp2 in k22671 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_23595(C_word t0,C_word 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,5)))){ C_save_and_reclaim_args((void *)trf_23595,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ 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_23487,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t5,a[6]=((C_word*)t0)[5],a[7]=((C_word)li293),tmp=(C_word)a,a+=8,tmp)); t7=((C_word*)t5)[1]; f_23487(t7,((C_word*)t0)[6],t3,C_fix(0),C_SCHEME_END_OF_LIST);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* irregex-core.scm:3062: lp */ t4=((C_word*)((C_word*)t0)[5])[1]; f_23460(t4,((C_word*)t0)[6],t3);}} /* k29286 in irregex-opt in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_29288,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_29293,a[2]=t2,a[3]=t4,a[4]=((C_word)li372),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_29293(t6,((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_FALSE);} /* a29257 in k29367 in lp2 in lp1 in k29286 in irregex-opt in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29258(C_word c,C_word *av){ C_word tmp; C_word 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_29258,3,av);} t3=C_i_stringp(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep(t3)?t3:C_charp(t2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k28474 in kons2 in k28465 in irregex-fold/chunked in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_28476,2,av);} /* irregex-core.scm:3939: kons */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* a25313 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_25314(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25314,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_25349,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=t16,a[5]=t23,a[6]=t9,a[7]=((C_word)li176),tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:3429: next */ t33=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* mst-fold in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22505(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_22505,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_22514,a[2]=t6,a[3]=t2,a[4]=t8,a[5]=t3,a[6]=((C_word)li286),tmp=(C_word)a,a+=7,tmp)); t10=((C_word*)t8)[1]; f_22514(t10,t1,C_fix(3),t4);} /* a31008 in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_31009(C_word c,C_word *av){ C_word tmp; C_word 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_31009,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[168],t4); t6=C_a_i_list(&a,3,lf[104],t2,lf[114]); t7=C_a_i_list(&a,3,lf[93],t5,t6); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_a_i_list(&a,2,lf[117],t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* a25348 in a25313 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_25349(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_25349,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:3435: fail */ t10=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k28465 in irregex-fold/chunked in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_28467,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28468,a[2]=((C_word*)t0)[2],a[3]=((C_word)li350),tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=lf[398]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; av2[5]=((C_word*)t0)[5]; C_apply(6,av2);}} /* kons2 in k28465 in irregex-fold/chunked in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28468(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_28468,6,av);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28476,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:3939: irregex-copy-matches */ f_7651(t6,t4);} /* lp in mst-fold in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22514(C_word t0,C_word t1,C_word 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(5,0,4)))){ C_save_and_reclaim_args((void *)trf_22514,4,t0,t1,t2,t3);} a=C_alloc(5); 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_fixnum_plus(t2,C_fix(1)); t8=t7; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22535,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t8,tmp=(C_word)a,a+=5,tmp); if(C_truep(t6)){ t10=C_fixnum_difference(t2,C_fix(3)); /* irregex-core.scm:2795: kons */ t11=((C_word*)t0)[5];{ C_word av2[5]; av2[0]=t11; av2[1]=t9; av2[2]=t10; av2[3]=t6; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ t10=t3; /* irregex-core.scm:2795: lp */ t12=t1; t13=t8; t14=t10; t1=t12; t2=t13; t3=t14; goto loop;}}} /* irregex-fold/chunked in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28463(C_word c,C_word *av){ C_word tmp; C_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_28463,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_28467,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_closurep(t3))){ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_28467(2,av2);}} else{ /* irregex-core.scm:3938: error */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[399]; av2[3]=lf[401]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* lp3 in lp2 in k23593 in lp in k22703 in lp2 in k22671 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_23514(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_23514,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:3072: lp2 */ t6=((C_word*)((C_word*)t0)[3])[1]; f_23487(t6,t1,((C_word*)t0)[4],t5,t4);} else{ t5=C_i_cdr(((C_word*)t0)[5]); /* irregex-core.scm:3073: lp */ t6=((C_word*)((C_word*)t0)[6])[1]; f_23460(t6,t1,t5);}} else{ if(C_truep(C_i_nullp(t3))){ t5=C_i_cdr(((C_word*)t0)[5]); /* irregex-core.scm:3074: lp */ t6=((C_word*)((C_word*)t0)[6])[1]; f_23460(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:3075: 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:3075: lp3 */ t19=t1; t20=t5; t21=t6; t22=t17; t1=t19; t2=t20; t3=t21; t4=t22; goto loop;}}}} /* lp1 in k29286 in irregex-opt in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29293(C_word t0,C_word t1,C_word 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_29293,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_29305,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word)li371),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_29305(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_29405,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: substring */ t11=*((C_word*)lf[38]+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);}}}} /* k26842 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_26844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_26844,2,av);} /* irregex-core.scm:3687: cset-complement */ f_27904(((C_word*)t0)[2],t1);} /* k26846 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_26848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_26848,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[198]); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26861,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_26863,a[2]=t5,a[3]=t12,a[4]=t7,a[5]=t6,a[6]=((C_word)li321),tmp=(C_word)a,a+=7,tmp)); t14=((C_word*)t12)[1]; f_26863(t14,t10,t8);} /* k19542 in k19536 in k19530 in k19527 in irregex-match in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_19544,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19547,a[2]=((C_word*)t0)[2],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]))){ if(C_truep(C_i_exactp(((C_word*)t0)[4]))){ t3=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); /* irregex-core.scm:2038: irregex-match/chunked */ t4=*((C_word*)lf[282]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=lf[271]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ /* irregex-core.scm:2037: error */ t3=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[281]; av2[3]=lf[283]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} else{ /* irregex-core.scm:2037: error */ t3=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[281]; av2[3]=lf[283]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k19545 in k19542 in k19536 in k19530 in k19527 in irregex-match in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_19547,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:2038: irregex-match/chunked */ t3=*((C_word*)lf[282]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=lf[271]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k28493 in irregex-replace in k19097 in k9756 in k7760 in k7529 */ 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 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_28495,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28498,a[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:3944: irregex-search */ t3=*((C_word*)lf[272]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k28496 in k28493 in irregex-replace in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_28498,2,av);} a=C_alloc(6); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28512,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:3947: substring */ t10=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k19513 in k19506 in k19499 in k19486 in k19444 in lp in k19417 in k19411 in k19405 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_19515,2,av);} /* irregex-core.scm:2024: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_19439(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);} /* a19516 in lp in k19417 in k19411 in k19405 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19517(C_word c,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_19517,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* irregex-replace in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28491(C_word c,C_word *av){ C_word tmp; C_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_28491,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_28495,a[2]=t1,a[3]=t3,a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_stringp(t3))){ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_28495(2,av2);}} else{ /* irregex-core.scm:3943: error */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[402]; av2[3]=lf[404]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k26821 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_26823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_26823,2,av);} /* irregex-core.scm:3683: cset-case-insensitive */ f_27914(((C_word*)t0)[2],t1);} /* sre-consumer? in k9756 in k7760 in k7529 */ static void C_ccall f_17008(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_17008,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[117]); t6=(C_truep(t5)?t5:C_eqp(t4,lf[119])); if(C_truep(t6)){ t7=t2; t8=C_u_i_cdr(t7); t9=( /* irregex-core.scm:1675: sre-sequence */ f_18372(C_a_i(&a,3),t8) ); /* irregex-core.scm:1675: sre-any? */ t10=lf[264];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t1; av2[2]=t9; f_16748(3,av2);}} else{ t7=C_eqp(t4,lf[104]); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17043,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(t7)){ t9=t8; f_17043(t9,t7);} else{ t9=C_eqp(t4,lf[212]); if(C_truep(t9)){ t10=t8; f_17043(t10,t9);} else{ t10=C_eqp(t4,lf[230]); if(C_truep(t10)){ t11=t8; f_17043(t11,t10);} else{ t11=C_eqp(t4,lf[98]); if(C_truep(t11)){ t12=t8; f_17043(t12,t11);} else{ t12=C_eqp(t4,lf[109]); t13=t8; f_17043(t13,(C_truep(t12)?t12:C_eqp(t4,lf[110])));}}}}}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_eqp(lf[176],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19530 in k19527 in irregex-match in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_19532(C_word t0,C_word t1){ C_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_19532,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_19538,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_19538(t8,(C_truep(t7)?C_i_cadr(((C_word*)t0)[5]):C_SCHEME_FALSE));} else{ t5=t4; f_19538(t5,C_SCHEME_FALSE);}} /* k19536 in k19530 in k19527 in irregex-match in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_19538(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,4)))){ C_save_and_reclaim_args((void *)trf_19538,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_19544,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]))){ if(C_truep(C_i_exactp(((C_word*)t0)[3]))){ t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_19544(2,av2);}} else{ /* irregex-core.scm:2035: error */ t5=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=lf[281]; av2[3]=lf[284]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} else{ /* irregex-core.scm:2035: error */ t5=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=lf[281]; av2[3]=lf[284]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k28400 in k28397 in k28358 in k28320 in lp in k28299 in k28293 in k28287 in k28284 in k28281 in irregex-fold/chunked/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28402(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_28402,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:3934: finish */ t5=((C_word*)t0)[3];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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:3935: lp */ t5=((C_word*)((C_word*)t0)[8])[1]; f_28309(t5,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}} /* k19506 in k19499 in k19486 in k19444 in lp in k19417 in k19411 in k19405 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_19508,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_19515,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:2024: g3308 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19499 in k19486 in k19444 in lp in k19417 in k19411 in k19405 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_19501,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_19508,a[2]=((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:2024: g3306 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k26859 in k26846 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_26861(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_26861,2,av);} /* irregex-core.scm:3688: fold */ f_9374(((C_word*)t0)[2],lf[151],((C_word*)t0)[3],t1);} /* map-loop5176 in k26846 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_26863(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_26863,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_26888,a[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:3688: g5182 */ 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);}}} /* tag-set-commands-for-closure in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_23290(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_23290,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_23305,a[2]=t7,a[3]=t9,a[4]=t11,a[5]=t13,a[6]=t5,a[7]=((C_word)li312),tmp=(C_word)a,a+=8,tmp)); t15=((C_word*)t13)[1]; f_23305(t15,t1,C_fix(0),C_SCHEME_END_OF_LIST);} /* irregex-match in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19525(C_word c,C_word *av){ C_word tmp; C_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_19525,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_19529,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_stringp(t3))){ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_19529(2,av2);}} else{ /* irregex-core.scm:2031: error */ t6=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[281]; av2[3]=lf[285]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k19527 in irregex-match in k19097 in k9756 in k7760 in k7529 */ 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(6,c,2)))){ C_save_and_reclaim((void *)f_19529,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19532,a[2]=((C_word*)t0)[2],a[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_19532(t4,C_u_i_car(t3));} else{ t3=t2; f_19532(t3,C_SCHEME_FALSE);}} /* a31398 in k9756 in k7760 in k7529 */ static void C_ccall f_31399(C_word c,C_word *av){ C_word tmp; C_word 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_31399,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k28436 in k28287 in k28284 in k28281 in irregex-fold/chunked/fast in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_28438(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_28438,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_28295(2,av2);}} else{ t2=((C_word*)t0)[4]; t3=C_i_vector_ref(t2,C_fix(2)); /* irregex-core.scm:3909: g5471 */ 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);}}} /* k17041 in sre-consumer? in k9756 in k7760 in k7529 */ static void C_fcall f_17043(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_17043,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_17056,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:1677: last */ f_9248(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[93]); if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); /* irregex-core.scm:1678: every */ f_9329(((C_word*)t0)[3],lf[238],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);}}}} /* k11641 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_11643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_11643,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11682,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(((C_word*)t0)[7],C_fix(3)); /* irregex-core.scm:937: substring */ t5=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=t4; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k11697 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_11699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_11699,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11702,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_11729,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_fixnum_plus(((C_word*)t0)[6],C_fix(3)); /* irregex-core.scm:944: substring */ t6=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=t5; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11680 in k11641 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_11682(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_11682,2,av);} a=C_alloc(18); t2=C_a_i_string_to_number(&a,2,t1,C_fix(10)); if(C_truep(t2)){ 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=((C_word*)t0)[3]; t8=C_fixnum_and(t7,C_fix(-2)); t9=t8; t10=C_a_i_list(&a,2,t2,lf[99]); t11=t10; t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11678,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t4,a[5]=t6,a[6]=t9,a[7]=t11,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:941: save */ t13=((C_word*)((C_word*)t0)[6])[1]; f_10929(t13,t12);} else{ /* irregex-core.scm:939: error */ t3=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[5]; av2[2]=lf[142]; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k17054 in k17041 in sre-consumer? in k9756 in k7760 in k7529 */ static void C_ccall f_17056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17056,2,av);} /* irregex-core.scm:1677: sre-consumer? */ t2=lf[238];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_17008(3,av2);}} /* f_28456 in k28287 in k28284 in k28281 in irregex-fold/chunked/fast in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_28456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_28456,5,av);} t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k12578 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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(3,c,6)))){ C_save_and_reclaim((void *)f_12580,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1057: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10523(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k23211 in g4266 in lp2 in lp in k23153 in k23149 in k23145 in nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_23213(C_word t0,C_word t1){ C_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_23213,2,t0,t1);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23216,a[2]=((C_word*)t0)[2],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_22315,a[2]=t5,a[3]=t6,a[4]=t3,a[5]=t4,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_22380,a[2]=t7,a[3]=t8,a[4]=t15,a[5]=((C_word)li302),tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_22380(t17,t13,((C_word*)t0)[10],C_SCHEME_END_OF_LIST);} /* k23214 in k23211 in g4266 in lp2 in lp in k23153 in k23149 in k23145 in nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_23216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_23216,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:3001: lp2 */ t5=((C_word*)((C_word*)t0)[5])[1]; f_23180(t5,((C_word*)t0)[6],t2,t4);} /* k23283 in nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_23285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_23285,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; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} /* nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_23275(C_word t1,C_word 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_23275,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_23285,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_23147,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_23265,a[2]=((C_word)li307),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:2974: mst-fold */ f_22505(t16,t15,t17,C_SCHEME_END_OF_LIST);}} /* a23264 in nfa-epsilon-closure in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_23265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_23265,5,av);} a=C_alloc(6); t5=C_a_i_cons(&a,2,t2,t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_cons(&a,2,t5,t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k11617 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11619,2,av);} /* irregex-core.scm:925: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10523(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[140],t1);} /* k29403 in lp1 in k29286 in irregex-opt in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_29405,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_29293(t7,((C_word*)t0)[6],t6,((C_word*)t0)[7]);} /* k12541 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_12543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_12543,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1054: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10523(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k11676 in k11680 in k11641 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_11678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11678,2,av);} /* irregex-core.scm:940: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10523(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);} /* k26886 in map-loop5176 in k26846 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_26888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_26888,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_26863(t6,((C_word*)t0)[5],t5);} /* k27483 in union-range in k27383 in k27379 in cset-union in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_27485,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:3766: union-range */ t7=((C_word*)((C_word*)t0)[4])[1]; f_27387(t7,((C_word*)t0)[5],t4,t6,((C_word*)t0)[6]);} /* k13326 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_13328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13328,2,av);} /* irregex-core.scm:1158: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10523(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);} /* k8137 in irregex-match-numeric-index in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_8139,2,av);} a=C_alloc(6); if(C_truep(t1)){ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=C_i_cdr(((C_word*)t0)[2]); if(C_truep(C_i_pairp(t2))){{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=*((C_word*)lf[25]+1); av2[3]=((C_word*)t0)[4]; av2[4]=lf[26]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[2]; C_apply(7,av2);}} else{ t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); if(C_truep(C_i_numberp(t4))){ t5=C_i_integerp(t4); t6=(C_truep(t5)?C_i_exactp(t4):C_SCHEME_FALSE); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8023,a[2]=((C_word*)t0)[5],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t8=((C_word*)t0)[5]; t9=C_slot(t8,C_fix(1)); if(C_truep(C_fixnum_greater_or_equal_p(t4,C_fix(0)))){ t10=C_fixnum_times(t4,C_fix(4)); t11=C_block_size(t9); t12=C_fixnum_difference(t11,C_fix(4)); t13=t7; f_8023(t13,C_fixnum_lessp(t10,t12));} else{ t10=t7; f_8023(t10,C_SCHEME_FALSE);}} else{ /* irregex-core.scm:276: error */ t7=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[28]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8067,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:277: irregex-match-names */ t6=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ /* irregex-core.scm:265: error */ t2=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[30]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k12508 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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_12510,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1051: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10523(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k30271 in glob->regexp in k19097 in k9756 in k7760 in k7529 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_30273,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[212],t1); if(C_truep(((C_word*)t0)[2])){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* irregex.scm:285: irregex */ t3=*((C_word*)lf[204]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k30275 in glob->regexp in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_30277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_30277,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_30279,a[2]=t3,a[3]=((C_word)li387),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_30279(t5,((C_word*)t0)[2],t1,C_SCHEME_TRUE);} /* loop in k30275 in glob->regexp in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_30279(C_word t0,C_word t1,C_word 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_30279,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[463]); t9=C_a_i_list(&a,2,lf[168],t8); t10=C_a_i_list(&a,1,lf[464]); t11=C_a_i_list(&a,2,lf[168],t10); t12=C_a_i_list(&a,2,lf[117],t11); t13=C_a_i_list(&a,3,lf[212],t9,t12); t14=C_a_i_list(&a,1,lf[465]); t15=C_a_i_list(&a,2,lf[168],t14); t16=C_a_i_list(&a,2,lf[117],t15); t17=C_a_i_list(&a,3,lf[93],t13,t16); t18=t17; t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30310,a[2]=t1,a[3]=t18,tmp=(C_word)a,a+=4,tmp); /* irregex.scm:260: 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[466]); t9=C_a_i_list(&a,2,lf[168],t8); t10=C_a_i_list(&a,2,lf[117],t9); t11=t10; t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30357,a[2]=t1,a[3]=t11,tmp=(C_word)a,a+=4,tmp); /* irregex.scm:261: 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_30377,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* irregex.scm:262: 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_30387,a[2]=((C_word*)t0)[2],a[3]=t9,a[4]=((C_word)li386),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_30387(t11,t1,t7,C_SCHEME_END_OF_LIST);} else{ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30538,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t9=C_u_i_memq(t5,lf[468]); /* irregex.scm:284: loop */ t21=t8; t22=t7; t23=t9; t1=t21; t2=t22; t3=t23; goto loop;}}}}} /* k27407 in union-range in k27383 in k27379 in cset-union in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_27409,2,av);} /* irregex-core.scm:3753: append */ t2=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k27399 in union-range in k27383 in k27379 in cset-union in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27401(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27401,2,av);} /* irregex-core.scm:3753: list->vector */ t2=*((C_word*)lf[391]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k27403 in union-range in k27383 in k27379 in cset-union in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27405,2,av);} /* irregex-core.scm:3753: ##sys#fast-reverse */ t2=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k31520 in k31517 in k31514 in a31511 in k7529 */ static void C_ccall f_31522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_31522,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31525,a[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:158: display */ t3=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[475]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a12109 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_12110(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_12110,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_12130,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:1000: collect */ t9=((C_word*)((C_word*)t0)[5])[1]; f_10604(t9,t8);} /* k31523 in k31520 in k31517 in k31514 in a31511 in k7529 */ static void C_ccall f_31525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_31525,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31528,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:159: display */ t5=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t2; av2[2]=lf[474]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* irregex-core.scm:160: display */ t5=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=lf[473]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k31526 in k31523 in k31520 in k31517 in k31514 in a31511 in k7529 */ static void C_ccall f_31528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_31528,2,av);} /* irregex-core.scm:160: display */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[473]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k27424 in union-range in k27383 in k27379 in cset-union in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27426,2,av);} /* irregex-core.scm:3754: ##sys#fast-reverse */ t2=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k27420 in union-range in k27383 in k27379 in cset-union in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_27422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27422,2,av);} /* irregex-core.scm:3754: list->vector */ t2=*((C_word*)lf[391]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k27428 in union-range in k27383 in k27379 in cset-union in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_27430,2,av);} /* irregex-core.scm:3754: append */ t2=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a31511 in k7529 */ static void C_ccall f_31512(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_31512,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31516,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:155: irregex-match-num-submatches */ t5=*((C_word*)lf[18]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* ##sys#glob->regexp in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_30253(C_word c,C_word *av){ C_word tmp; C_word 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,2)))){ C_save_and_reclaim((void*)f_30253,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=C_i_check_string_2(t2,lf[462]); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30273,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30277,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* string->list */ t10=*((C_word*)lf[95]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k12128 in a12109 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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; 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_12130,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1000: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10523(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k12132 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_12134(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12134,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* maybe-string->sre in k9756 in k7760 in k7529 */ 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=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_10496,3,av);} if(C_truep(C_i_stringp(t2))){ /* irregex-core.scm:732: string->sre */ t3=*((C_word*)lf[92]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k31517 in k31514 in a31511 in k7529 */ static void C_ccall f_31519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_31519,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31522,a[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:157: display */ t3=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k31514 in a31511 in k7529 */ static void C_ccall f_31516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_31516,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31519,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:156: display */ t4=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[476]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k30229 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_30231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_30231,2,av);} /* irregex-utils.scm:148: display */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22589(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_22589,3,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22593,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_22593(t6,C_u_i_car(t5));} else{ t5=t4; f_22593(t5,C_SCHEME_FALSE);}} /* k30242 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_30244(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_30244,2,av);} /* irregex-utils.scm:150: display */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22593(C_word t0,C_word t1){ C_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,4)))){ C_save_and_reclaim_args((void *)trf_22593,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22596,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_fixnum_divide(t5,C_fix(4)); t7=C_fixnum_difference(t6,C_fix(1)); /* irregex-core.scm:2844: nfa-state->mst */ f_22143(t3,((C_word*)t0)[2],t7,C_SCHEME_END_OF_LIST);} /* k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_22596,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22599,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:2845: nfa-epsilon-closure */ f_23275(t3,((C_word*)t0)[2],t2);} /* k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_22599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_22599,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22602,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:2848: tag-set-commands-for-closure */ f_23290(t3,((C_word*)t0)[2],((C_word*)t0)[5],t2,C_SCHEME_END_OF_LIST);} /* k29651 in for-each-loop5992 in k29629 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_29653,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_29643(t3,((C_word*)t0)[4],t2);} /* k10406 in lp in symbol-list->flags in k9756 in k7760 in k7529 */ static void C_fcall f_10408(C_word t0,C_word t1){ C_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_10408,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_fixnum_or(t2,C_fix(2)); /* irregex-core.scm:720: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_10379(t4,((C_word*)t0)[4],((C_word*)t0)[5],t3);} else{ t2=C_eqp(((C_word*)t0)[6],lf[81]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[6],lf[82])); if(C_truep(t3)){ t4=((C_word*)t0)[2]; t5=C_fixnum_or(t4,C_fix(4)); /* irregex-core.scm:720: lp */ t6=((C_word*)((C_word*)t0)[3])[1]; f_10379(t6,((C_word*)t0)[4],((C_word*)t0)[5],t5);} else{ t4=C_eqp(((C_word*)t0)[6],lf[83]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[6],lf[84])); if(C_truep(t5)){ t6=((C_word*)t0)[2]; t7=C_fixnum_or(t6,C_fix(8)); /* irregex-core.scm:720: lp */ t8=((C_word*)((C_word*)t0)[3])[1]; f_10379(t8,((C_word*)t0)[4],((C_word*)t0)[5],t7);} else{ t6=C_eqp(((C_word*)t0)[6],lf[85]); t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[6],lf[86])); if(C_truep(t7)){ t8=((C_word*)t0)[2]; t9=C_fixnum_or(t8,C_fix(16)); /* irregex-core.scm:720: lp */ t10=((C_word*)((C_word*)t0)[3])[1]; f_10379(t10,((C_word*)t0)[4],((C_word*)t0)[5],t9);} else{ t8=C_eqp(((C_word*)t0)[6],lf[87]); t9=(C_truep(t8)?t8:C_eqp(((C_word*)t0)[6],lf[88])); if(C_truep(t9)){ t10=((C_word*)t0)[2]; t11=C_fixnum_or(t10,C_fix(32)); /* irregex-core.scm:720: lp */ t12=((C_word*)((C_word*)t0)[3])[1]; f_10379(t12,((C_word*)t0)[4],((C_word*)t0)[5],t11);} else{ t10=((C_word*)t0)[2]; /* irregex-core.scm:720: lp */ t11=((C_word*)((C_word*)t0)[3])[1]; f_10379(t11,((C_word*)t0)[4],((C_word*)t0)[5],t10);}}}}}} /* k29636 in k29629 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29638(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29638,2,av);} /* irregex-utils.scm:96: display */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[431]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k27674 in k27671 in k27663 in diff in k27592 in k27588 in cset-difference in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_27676(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_27676,2,t0,t1);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27683,a[2]=((C_word*)t0)[2],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_27683(t5,C_a_i_cons(&a,2,t1,t4));} else{ t3=((C_word*)t0)[7]; t4=t2; f_27683(t4,C_u_i_cdr(t3));}} /* k27671 in k27663 in diff in k27592 in k27588 in cset-difference in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_27673(C_word t0,C_word t1){ C_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(11,0,2)))){ C_save_and_reclaim_args((void *)trf_27673,2,t0,t1);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27676,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_fixnum_plus(t7,C_fix(1)); t9=C_make_character(C_unfix(t8)); t10=C_u_i_cdr(((C_word*)t0)[7]); t11=t3; f_27676(t11,C_a_i_cons(&a,2,t9,t10));} else{ t6=t3; f_27676(t6,C_SCHEME_FALSE);}} /* irregex-match-numeric-index in k7760 in k7529 */ static void C_fcall f_7953(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_7953,4,t1,t2,t3,t4);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8139,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:264: irregex-match-data? */ t6=*((C_word*)lf[17]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k29629 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_29631,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[288]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29638,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_29643,a[2]=t8,a[3]=t2,a[4]=((C_word)li378),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_29643(t10,t6,t4);} /* k10302 in k10292 in k10289 in scan */ static void C_ccall f_10304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10304,2,av);} /* irregex-core.scm:699: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop5992 in k29629 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29643(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_29643,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_29653,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: g5993 */ 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);}}} /* for-each-loop6011 in k29677 in k29674 in k29671 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_29693(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_29693,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_29703,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: g6012 */ 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);}}} /* k29677 in k29674 in k29671 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_29679,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[288]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29688,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_29693,a[2]=t7,a[3]=t2,a[4]=((C_word)li379),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_29693(t9,t5,t3);} /* k15530 in map-loop2194 in k15389 in k15585 in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_ccall f_15532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_15532,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_15507(t6,((C_word*)t0)[5],t5);} /* k29674 in k29671 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_29676,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29679,a[2]=((C_word*)t0)[2],a[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: display */ t3=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[434]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k29671 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_29673,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29676,a[2]=((C_word*)t0)[2],a[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: display */ t4=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k29686 in k29677 in k29674 in k29671 in lp in k29501 in sre->string in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29688,2,av);} /* irregex-utils.scm:99: display */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[433]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k18699 in sre-names in k9756 in k7760 in k7529 */ static void C_fcall f_18701(C_word t0,C_word 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_18701,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* irregex-core.scm:1896: sre-sequence-names */ f_18885(((C_word*)t0)[3],t3,((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t2=C_eqp(((C_word*)t0)[6],lf[124]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[6],lf[125])); if(C_truep(t3)){ t4=C_i_cddr(((C_word*)t0)[2]); /* irregex-core.scm:1898: sre-sequence-names */ f_18885(((C_word*)t0)[3],t4,((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t4=C_eqp(((C_word*)t0)[6],lf[123]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[6],lf[120])); if(C_truep(t5)){ t6=C_i_cdddr(((C_word*)t0)[2]); /* irregex-core.scm:1900: sre-sequence-names */ f_18885(((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);}}}}} /* symbol-list->flags in k9756 in k7760 in k7529 */ static void C_fcall f_10373(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_10373,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_10379,a[2]=t4,a[3]=((C_word)li66),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_10379(t6,t1,t2,C_fix(0));} /* lp in symbol-list->flags in k9756 in k7760 in k7529 */ static void C_fcall f_10379(C_word t0,C_word t1,C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_10379,4,t0,t1,t2,t3);} a=C_alloc(7); if(C_truep(C_i_pairp(t2))){ t4=C_i_cdr(t2); t5=t4; t6=t2; t7=C_u_i_car(t6); t8=C_eqp(t7,lf[80]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10408,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t5,a[6]=t7,tmp=(C_word)a,a+=7,tmp); if(C_truep(t8)){ t10=t9; f_10408(t10,t8);} else{ t10=C_eqp(t7,lf[89]); t11=t9; f_10408(t11,(C_truep(t10)?t10:C_eqp(t7,lf[90])));}} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a25253 */ static void C_ccall f_25254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_25254,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:3447: fail */ t9=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* f_25206 in k25203 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_25206(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25206,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_25254,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=t15,a[5]=t22,a[6]=t9,a[7]=((C_word)li174),tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:3441: body */ t31=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k25203 in k23738 in lp in k23619 in k16503 in k16477 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_25205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_25205,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25206,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li175),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a10351 in with-read-from-string in k9756 in k7760 in k7529 */ 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; 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_10352,4,av);} t4=C_eqp(t2,lf[77]); if(C_truep(t4)){ /* irregex-core.scm:703: error */ t5=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=lf[78]; av2[3]=((C_word*)t0)[2]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ /* irregex-core.scm:704: proc */ t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k15585 in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ 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 t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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(26,c,3)))){ C_save_and_reclaim((void *)f_15587,2,av);} a=C_alloc(26); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=( /* irregex-core.scm:1477: sre-sequence */ f_18372(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_15288,a[2]=((C_word*)t0)[3],a[3]=((C_word)li116),tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15391,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_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t14=C_fixnum_difference(t12,t13); /* irregex-core.scm:1492: zero-to */ f_9148(t11,t14);} /* map-loop2164 in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ 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 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_15589,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_a_i_list(&a,3,lf[43],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_mutate2(((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);}}} /* k11169 in k11163 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 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_11171,2,av);} a=C_alloc(11); t2=t1; t3=( /* irregex-core.scm:865: sre-repeater? */ f_16849(((C_word*)t0)[2]) ); if(C_truep(t3)){ /* irregex-core.scm:866: error */ t4=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[127]; 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_11186,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:867: sre-empty? */ t5=lf[129];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; f_16578(3,av2);}}} /* k29313 in lp2 in lp1 in k29286 in irregex-opt in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29315(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_29315,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(((C_word*)t0)[3])?C_a_i_list(&a,2,lf[121],t1):t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11184 in k11169 in k11163 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_11186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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,6)))){ C_save_and_reclaim((void *)f_11186,2,av);} a=C_alloc(9); if(C_truep(t1)){ /* irregex-core.scm:868: error */ t2=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[128]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); t3=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); t4=C_a_i_list2(&a,2,((C_word*)t0)[6],((C_word*)t0)[7]); t5=C_i_cdr(((C_word*)t0)[4]); t6=C_a_i_cons(&a,2,t4,t5); /* irregex-core.scm:870: lp */ t7=((C_word*)((C_word*)t0)[8])[1]; f_10523(t7,((C_word*)t0)[2],t2,t3,((C_word*)t0)[9],t6,((C_word*)t0)[10]);}} /* k21869 in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_21871,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21877,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:2637: make-vector */ t5=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k29323 in lp2 in lp1 in k29286 in irregex-opt in k19097 in k9756 in k7760 in k7529 */ 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; C_word t3; 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_29325,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; /* Re-use our own argvector */ 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_29168,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-utils.scm:31: every */ f_9329(t5,*((C_word*)lf[420]+1),t3);}} /* k21875 in k21869 in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_21877(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_21877,2,av);} a=C_alloc(5); t2=t1; t3=C_block_size(t2); t4=C_fixnum_difference(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21886,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li277),tmp=(C_word)a,a+=5,tmp); t6=( f_21886(t5,t4) ); t7=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k18932 in sre-remove-initial-bos in k9756 in k7760 in k7529 */ static void C_fcall f_18934(C_word t0,C_word t1){ C_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_18934,2,t0,t1);} a=C_alloc(17); 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]); t5=C_eqp(lf[175],t4); if(C_truep(t5)){ t6=((C_word*)t0)[2]; t7=C_u_i_car(t6); t8=((C_word*)t0)[2]; t9=C_u_i_cdr(t8); t10=C_u_i_cdr(t9); t11=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t11; av2[1]=C_a_i_cons(&a,2,t7,t10); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t6=((C_word*)t0)[2]; t7=C_u_i_car(t6); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18967,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t7,tmp=(C_word)a,a+=5,tmp); t9=((C_word*)t0)[2]; t10=C_u_i_cdr(t9); t11=C_u_i_car(t10); /* irregex-core.scm:1923: sre-remove-initial-bos */ t12=lf[257];{ C_word av2[3]; av2[0]=t12; av2[1]=t8; av2[2]=t11; f_18917(3,av2);}}} else{ t4=((C_word*)t0)[2]; 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=C_eqp(((C_word*)t0)[4],lf[93]); 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[257]; t8=((C_word*)t0)[2]; t9=C_u_i_cdr(t8); t10=C_i_check_list_2(t9,lf[198]); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19004,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_19006,a[2]=t5,a[3]=t13,a[4]=t7,a[5]=t6,a[6]=((C_word)li234),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_19006(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);}}}} /* doloop3953 in k21875 in k21869 in k20969 in k20966 in sre->nfa in k19097 in k9756 in k7760 in k7529 */ static C_word C_fcall f_21886(C_word t0,C_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=t1; if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ t3=C_SCHEME_UNDEFINED; return(t3);} else{ t3=C_i_vector_ref(((C_word*)((C_word*)t0)[2])[1],t1); t4=C_i_vector_set(((C_word*)t0)[3],t1,t3); t5=C_fixnum_difference(t1,C_fix(1)); t7=t5; t1=t7; goto loop;}} /* k25072 in k25059 in k25053 in lp in k24990 */ static void C_ccall f_25074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_25074,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_25081,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((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:3406: g4793 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11163 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_11165,2,av);} a=C_alloc(12); t2=t1; t3=C_i_pairp(t2); t4=(C_truep(t3)?C_u_i_car(t2):lf[107]); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11171,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:863: string->symbol */ t8=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k25086 in k25079 in k25072 in k25059 in k25053 in lp in k24990 */ 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 t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_25088,2,av);} t2=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_fixnum_plus(((C_word*)t0)[4],t2); t4=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t5=C_fixnum_difference(((C_word*)t0)[5],t4); /* irregex-core.scm:3406: lp */ t6=((C_word*)((C_word*)t0)[6])[1]; f_25010(t6,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],t1,t3,t5);} /* irregex-match-valid-index? in k7760 in k7529 */ static void C_ccall f_8141(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_8141,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8145,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_8206,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:290: irregex-match-data? */ t6=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k8143 in irregex-match-valid-index? in k7760 in k7529 */ 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 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_8145,2,av);} a=C_alloc(4); if(C_truep(C_i_integerp(((C_word*)t0)[2]))){ if(C_truep(C_i_exactp(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[4]; t4=((C_word*)t0)[2]; t5=C_slot(t3,C_fix(1)); if(C_truep(C_fixnum_greater_or_equal_p(t4,C_fix(0)))){ t6=C_fixnum_times(t4,C_fix(4)); t7=C_block_size(t5); t8=C_fixnum_difference(t7,C_fix(4)); t9=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_fixnum_lessp(t6,t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t6=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ /* irregex-core.scm:294: error */ t2=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[31]; av2[3]=lf[32]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[4]; t4=((C_word*)t0)[2]; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7775,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:223: irregex-match-names */ t6=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k25871 in k25891 */ static void C_ccall f_25873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_25873,2,av);} t2=C_i_not(t1); if(C_truep(t2)){ t3=((C_word*)t0)[2]; f_25809(t3,t2);} else{ t3=t1; t4=C_u_i_char_alphabeticp(t3); if(C_truep(t4)){ t5=((C_word*)t0)[2]; f_25809(t5,C_i_not(t4));} else{ t5=C_u_i_char_numericp(t3); t6=((C_word*)t0)[2]; f_25809(t6,C_i_not(t5));}}} /* k25059 in k25053 in lp in k24990 */ static void C_ccall f_25061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_25061,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_25074,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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:3406: g4791 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:3412: fail */ t3=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* lp2 in k23593 in lp in k22703 in lp2 in k22671 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_23487(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_23487,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_23514,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)li292),tmp=(C_word)a,a+=9,tmp)); t12=((C_word*)t10)[1]; f_23514(t12,t1,t7,t8,t4);}} /* k25053 in lp in k24990 */ 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; 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_25055,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_25061,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:3404: g4789 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:3414: fail */ t2=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k29359 in lp2 in lp1 in k29286 in irregex-opt in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29361(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_29361,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_29305(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k29367 in lp2 in lp1 in k29286 in irregex-opt in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_29369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_29369,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; /* Re-use our own argvector */ 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_29198,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29258,a[2]=((C_word)li370),tmp=(C_word)a,a+=3,tmp); /* irregex-utils.scm:35: every */ f_9329(t6,t7,t4);}} /* k25039 in k25035 in lp in k24990 */ static void C_ccall f_25041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_25041,2,av);} /* irregex-core.scm:3395: compare */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* lp in k22703 in lp2 in k22671 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_23460(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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(13,0,2)))){ C_save_and_reclaim_args((void *)trf_23460,3,t0,t1,t2);} a=C_alloc(13); 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_23595,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t1,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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22451,a[2]=t14,a[3]=t5,a[4]=t6,a[5]=((C_word)li294),tmp=(C_word)a,a+=6,tmp); t16=t3; f_23595(t16,( f_22451(t15,C_fix(3)) ));} else{ t13=t3; f_23595(t13,C_SCHEME_FALSE);}} else{ t10=t3; f_23595(t10,C_SCHEME_FALSE);}}} /* map-loop2194 in k15389 in k15585 in k14700 in k14697 in k15796 in lp in k15749 in cset->utf8-pattern in k9756 in k7760 in k7529 */ static void C_fcall f_15507(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_15507,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_15532,a[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:1483: g2200 */ t5=((C_word*)t0)[4]; f_15288(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);}}} /* a19999 in lp2 in k19925 in k19922 in lp1 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_20000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(0,c,3)))){ C_save_and_reclaim((void *)f_20000,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; /* Re-use our own argvector */ 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_charp(t6))){ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=t2; t8=C_u_i_car(t7); /* irregex-core.scm:2122: cset-contains? */ f_27251(t1,t8,((C_word*)t0)[2]);}}} /* k25079 in k25072 in k25059 in k25053 in lp in k24990 */ static void C_ccall f_25081(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_25081,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_25088,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:3406: g4795 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19486 in k19444 in lp in k19417 in k19411 in k19405 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ 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 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_19488,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_19501,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:2024: g3304 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* lp in k27050 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_26735(C_word t0,C_word t1,C_word 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_26735,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_26753,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:3668: cset-union */ t14=lf[151];{ C_word av2[4]; av2[0]=t14; av2[1]=t6; av2[2]=t13; av2[3]=t3; f_27373(4,av2);}}} /* k11493 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11495,2,av);} /* irregex-core.scm:909: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10523(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[137],t1);} /* a23412 in lp2 in lp in tag-set-commands-for-closure in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_23413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_23413,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k18965 in k18932 in sre-remove-initial-bos in k9756 in k7760 in k7529 */ 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 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_18967,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; /* Re-use our own argvector */ 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);}} /* a19432 in k19417 in k19411 in k19405 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19433(C_word c,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_19433,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* lp in k19417 in k19411 in k19405 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_19439(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_19439,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(14); t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19446,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_19517,a[2]=((C_word)li244),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:2015: 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);}} /* k19444 in lp in k19417 in k19411 in k19405 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ 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; C_word t3; 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_19446,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; /* Re-use our own argvector */ 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:2020: lp */ t5=((C_word*)((C_word*)t0)[7])[1]; f_19439(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_19488,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:2022: get-next */ t5=((C_word*)t0)[10];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}}} /* k18905 in k18911 in sre-sequence-names in k9756 in k7760 in k7529 */ static void C_ccall f_18907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18907,2,av);} /* irregex-core.scm:1907: sre-sequence-names */ f_18885(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_17316(C_word t0,C_word t1){ C_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_17316,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ /* irregex-core.scm:1716: grow */ t2=((C_word*)t0)[2]; f_17276(t2,((C_word*)t0)[3],C_fix(1));} else{ t2=C_eqp(((C_word*)t0)[4],lf[220]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17332,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:1718: string->sre */ t5=*((C_word*)lf[92]+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[104]); t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17345,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_17345(t5,t3);} else{ t5=C_eqp(((C_word*)t0)[4],lf[212]); if(C_truep(t5)){ t6=t4; f_17345(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[4],lf[210]); if(C_truep(t6)){ t7=t4; f_17345(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[4],lf[211]); t8=t4; f_17345(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[4],lf[224])));}}}}}} /* k20270 in k20260 in k20257 in lp2 in k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_20272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_20272,2,av);} /* irregex-core.scm:2191: lp1 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20237(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]);} /* sre-remove-initial-bos in k9756 in k7760 in k7529 */ static void C_ccall f_18917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_18917,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[104]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18934,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ t7=t6; f_18934(t7,t5);} else{ t7=C_eqp(t4,lf[212]); if(C_truep(t7)){ t8=t6; f_18934(t8,t7);} else{ t8=C_eqp(t4,lf[230]); if(C_truep(t8)){ t9=t6; f_18934(t9,t8);} else{ t9=C_eqp(t4,lf[98]); if(C_truep(t9)){ t10=t6; f_18934(t10,t9);} else{ t10=C_eqp(t4,lf[109]); if(C_truep(t10)){ t11=t6; f_18934(t11,t10);} else{ t11=C_eqp(t4,lf[110]); if(C_truep(t11)){ t12=t6; f_18934(t12,t11);} else{ t12=C_eqp(t4,lf[117]); t13=t6; f_18934(t13,(C_truep(t12)?t12:C_eqp(t4,lf[119])));}}}}}}} else{ t3=t2; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k18911 in sre-sequence-names in k9756 in k7760 in k7529 */ static void C_ccall f_18913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_18913,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_18907,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:1909: sre-names */ f_18599(t4,t6,((C_word*)t0)[2],((C_word*)t0)[6]);} /* flag-join in k7760 in k7529 */ 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=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_9730,4,av);} if(C_truep(t3)){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* flag-clear in k7760 in k7529 */ 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=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_9739,4,av);} t4=C_fixnum_not(t3); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_fixnum_and(t2,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k20260 in k20257 in lp2 in k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_20262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_20262,2,av);} a=C_alloc(9); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20272,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:2191: get-start */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_20307,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; /* Re-use our own argvector */ 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:2194: finalize! */ f_20056(t9,((C_word*)t0)[7],((C_word*)t0)[11],((C_word*)t0)[10]);}} else{ t8=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* k26751 in lp in k27050 in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_26753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_26753,2,av);} /* irregex-core.scm:3668: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_26735(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* with-read-from-string in k9756 in k7760 in k7529 */ static void C_fcall f_9760(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_9760,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_9767,a[2]=t6,a[3]=t2,a[4]=t8,a[5]=((C_word)li63),tmp=(C_word)a,a+=6,tmp)); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10352,a[2]=t2,a[3]=t4,a[4]=((C_word)li64),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:701: read */ t13=((C_word*)t8)[1]; f_9767(t13,t1,t3,t12);} /* f_9767 in with-read-from-string in k9756 in k7760 in k7529 */ static void C_fcall f_9767(C_word t0,C_word t1,C_word 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 *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){ C_save_and_reclaim_args((void *)trf_9767,4,t0,t1,t2,t3);} a=C_alloc(10); t4=t2; if(C_truep(C_fixnum_greater_or_equal_p(t4,((C_word*)((C_word*)t0)[2])[1]))){ /* irregex-core.scm:618: error */ t5=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=lf[60]; 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=C_fixnum_plus(t2,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|6,a[1]=(C_word)f_9795,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t8,a[6]=((C_word)li54),tmp=(C_word)a,a+=7,tmp)); t10=((C_word*)t8)[1]; f_9795(t10,t1,t6,C_SCHEME_END_OF_LIST); case C_make_character(41): t6=C_fixnum_plus(t2,C_fix(1)); /* irregex-core.scm:642: k */ t7=t3;{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=lf[57]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);} case C_make_character(59): t6=C_fixnum_plus(t2,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|7,a[1]=(C_word)f_9911,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t8,a[6]=((C_word*)t0)[3],a[7]=((C_word)li55),tmp=(C_word)a,a+=8,tmp)); t10=((C_word*)t8)[1]; f_9911(t10,t1,t6); 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=C_fixnum_plus(t2,C_fix(1)); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9961,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t3,a[5]=((C_word)li56),tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:649: read */ t46=t1; t47=t8; t48=t9; t1=t46; t2=t47; t3=t48; goto loop;} else{ switch(t5){ case C_make_character(44): t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9989,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t9=C_fixnum_plus(t2,C_fix(1)); if(C_truep(C_fixnum_lessp(t9,((C_word*)((C_word*)t0)[2])[1]))){ t10=C_fixnum_plus(t2,C_fix(1)); t11=C_i_string_ref(((C_word*)t0)[3],t10); t12=t8; f_9989(t12,C_eqp(C_make_character(64),t11));} else{ t10=t8; f_9989(t10,C_SCHEME_FALSE);} case C_make_character(34): t8=C_fixnum_plus(t2,C_fix(1)); t9=C_fixnum_plus(t2,C_fix(1)); 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_10052,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t11,a[6]=((C_word)li59),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_10052(t13,t1,t8,t9,C_SCHEME_END_OF_LIST); case C_make_character(35): t8=C_fixnum_plus(t2,C_fix(1)); t9=C_i_string_ref(((C_word*)t0)[3],t8); switch(t9){ case C_make_character(59): t10=C_fixnum_plus(t2,C_fix(2)); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10158,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word)li60),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:671: read */ t46=t1; t47=t10; t48=t11; t1=t46; t2=t47; t3=t48; goto loop; case C_make_character(92): t10=C_fixnum_plus(t2,C_fix(2)); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10177,a[2]=t3,a[3]=((C_word)li61),tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:673: read */ t46=t1; t47=t10; t48=t11; t1=t46; t2=t47; t3=t48; goto loop; default: t10=C_eqp(t9,C_make_character(116)); t11=(C_truep(t10)?t10:C_eqp(t9,C_make_character(102))); if(C_truep(t11)){ t12=C_fixnum_plus(t2,C_fix(1)); t13=C_i_string_ref(((C_word*)t0)[3],t12); t14=C_eqp(C_make_character(116),t13); t15=C_fixnum_plus(t2,C_fix(2)); /* irregex-core.scm:684: k */ t16=t3;{ C_word av2[4]; av2[0]=t16; av2[1]=t1; av2[2]=t14; av2[3]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}} else{ /* irregex-core.scm:686: error */ t12=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t12; av2[1]=t1; av2[2]=lf[74]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t12+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=C_fixnum_plus(t2,C_fix(1)); /* irregex-core.scm:690: read */ t46=t1; t47=t11; t48=t3; t1=t46; t2=t47; t3=t48; goto loop;} else{ t11=C_fixnum_plus(t2,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|7,a[1]=(C_word)f_10281,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t13,a[7]=((C_word)li62),tmp=(C_word)a,a+=8,tmp)); t15=((C_word*)t13)[1]; f_10281(t15,t1,t11);}}}}}} /* string->cset in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_26764(C_word 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_26764,2,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26770,a[2]=((C_word)li318),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_26782,a[2]=t1,a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* string->list */ t7=*((C_word*)lf[95]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k19405 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ 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 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_19407,2,av);} a=C_alloc(10); t2=t1; t3=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19413,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); /* irregex-core.scm:2003: g3283 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_17345(C_word t0,C_word t1){ C_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_17345,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_17352,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)li194),tmp=(C_word)a,a+=8,tmp)); t7=((C_word*)t5)[1]; f_17352(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[93]); 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_17430,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)li196),tmp=(C_word)a,a+=8,tmp)); t8=((C_word*)t6)[1]; f_17430(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[99]); 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_17517,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_17517(t8,t6);} else{ t8=C_i_cddr(((C_word*)t0)[2]); t9=t7; f_17517(t9,C_i_nullp(t8));}} else{ t4=C_eqp(((C_word*)t0)[9],lf[229]); if(C_truep(t4)){ t5=C_i_cdddr(((C_word*)t0)[2]); t6=( /* irregex-core.scm:1763: sre-sequence */ f_18372(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:1763: lp */ t9=((C_word*)((C_word*)t0)[6])[1]; f_17273(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[230]); t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17669,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_17669(t7,t5);} else{ t7=C_eqp(((C_word*)t0)[9],lf[98]); if(C_truep(t7)){ t8=t6; f_17669(t8,t7);} else{ t8=C_eqp(((C_word*)t0)[9],lf[109]); t9=t6; f_17669(t9,(C_truep(t8)?t8:C_eqp(((C_word*)t0)[9],lf[110])));}}}}}}} /* k9756 in k7760 in k7529 */ static void C_ccall f_9758(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(132,c,6)))){ C_save_and_reclaim((void *)f_9758,2,av);} a=C_alloc(132); t2=C_mutate2(&lf[58] /* (set! dot-token ...) */,t1); t3=C_mutate2(&lf[59] /* (set! with-read-from-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9760,a[2]=((C_word)li65),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2(&lf[79] /* (set! symbol-list->flags ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10373,a[2]=((C_word)li67),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[91]+1 /* (set! maybe-string->sre ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10496,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[92]+1 /* (set! string->sre ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10508,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp)); t7=C_a_i_cons(&a,2,C_make_character(110),C_make_character(10)); t8=C_a_i_cons(&a,2,C_make_character(114),C_make_character(13)); t9=C_a_i_cons(&a,2,C_make_character(116),C_make_character(9)); t10=C_a_i_cons(&a,2,C_make_character(97),C_make_character(7)); t11=C_a_i_cons(&a,2,C_make_character(101),C_make_character(27)); t12=C_a_i_cons(&a,2,C_make_character(102),C_make_character(12)); t13=C_a_i_list(&a,6,t7,t8,t9,t10,t11,t12); t14=C_mutate2(&lf[156] /* (set! posix-escape-sequences ...) */,t13); t15=C_mutate2(&lf[157] /* (set! string-parse-hex-escape ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13486,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2(&lf[191] /* (set! high-char? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14224,a[2]=((C_word)li99),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2(&lf[96] /* (set! utf8-string-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14245,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2(&lf[193] /* (set! utf8-lowest-digit-of-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14482,a[2]=((C_word)li102),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2(&lf[195] /* (set! char->utf8-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14558,a[2]=((C_word)li103),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2(&lf[197] /* (set! unicode-range-helper ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14828,a[2]=((C_word)li106),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate2(&lf[199] /* (set! unicode-range-up-from ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14974,a[2]=((C_word)li109),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate2(&lf[200] /* (set! unicode-range-up-to ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15121,a[2]=((C_word)li112),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate2(&lf[201] /* (set! cset->utf8-pattern ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15743,a[2]=((C_word)li121),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate2((C_word*)lf[204]+1 /* (set! irregex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16310,a[2]=((C_word)li122),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate2((C_word*)lf[206]+1 /* (set! string->irregex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16435,a[2]=((C_word)li123),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate2((C_word*)lf[207]+1 /* (set! sre->irregex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16445,a[2]=((C_word)li219),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate2(&lf[129] /* (set! sre-empty? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16578,a[2]=((C_word)li220),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate2(&lf[264] /* (set! sre-any? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16748,a[2]=((C_word)li221),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate2(&lf[126] /* (set! sre-repeater? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16849,a[2]=((C_word)li222),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate2(&lf[258] /* (set! sre-searcher? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16894,a[2]=((C_word)li223),tmp=(C_word)a,a+=3,tmp)); t31=C_mutate2(&lf[238] /* (set! sre-consumer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17008,a[2]=((C_word)li224),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate2(&lf[266] /* (set! sre-has-submatches? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17122,a[2]=((C_word)li225),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate2(&lf[209] /* (set! sre-count-submatches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17161,a[2]=((C_word)li227),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate2(&lf[94] /* (set! sre-sequence ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18372,a[2]=((C_word)li228),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate2(&lf[97] /* (set! sre-alternate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18395,a[2]=((C_word)li229),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate2(&lf[269] /* (set! sre-strip-submatches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18418,a[2]=((C_word)li231),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate2(&lf[237] /* (set! sre-names ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18599,a[2]=((C_word)li232),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate2(&lf[270] /* (set! sre-sequence-names ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18885,a[2]=((C_word)li233),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate2(&lf[257] /* (set! sre-remove-initial-bos ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18917,a[2]=((C_word)li235),tmp=(C_word)a,a+=3,tmp)); t40=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19099,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t41=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31399,a[2]=((C_word)li389),tmp=(C_word)a,a+=3,tmp); t42=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31402,a[2]=((C_word)li390),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:1935: make-irregex-chunker */ t43=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t43; av2[1]=t40; av2[2]=t41; av2[3]=*((C_word*)lf[469]+1); av2[4]=*((C_word*)lf[470]+1); av2[5]=*((C_word*)lf[471]+1); av2[6]=t42; ((C_proc)(void*)(*((C_word*)t43+1)))(7,av2);}} /* k12195 in k12186 in k12180 in k12177 in k12161 in k12151 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_12197(C_word t0,C_word 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(15,0,6)))){ C_save_and_reclaim_args((void *)trf_12197,2,t0,t1);} a=C_alloc(15); if(C_truep(t1)){ /* irregex-core.scm:1027: error */ t2=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[164]; 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_fixnum_plus(((C_word*)t0)[4],C_fix(1)); t4=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); t5=C_a_i_list(&a,3,lf[124],((C_word*)t0)[5],((C_word*)t0)[6]); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[7]); /* irregex-core.scm:1029: lp */ t7=((C_word*)((C_word*)t0)[8])[1]; f_10523(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_fixnum_plus(((C_word*)t0)[4],C_fix(1)); t4=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); t5=C_a_i_list(&a,4,lf[123],((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:1031: lp */ t7=((C_word*)((C_word*)t0)[8])[1]; f_10523(t7,((C_word*)t0)[2],t3,t4,((C_word*)t0)[9],t6,((C_word*)t0)[10]);} else{ t3=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); t4=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); t5=C_a_i_list(&a,3,lf[125],((C_word*)t0)[5],((C_word*)t0)[6]); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[7]); /* irregex-core.scm:1033: lp */ t7=((C_word*)((C_word*)t0)[8])[1]; f_10523(t7,((C_word*)t0)[2],t3,t4,((C_word*)t0)[9],t6,((C_word*)t0)[10]);}}}} /* k11555 in k11521 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_11557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11557,2,av);} /* irregex-core.scm:920: string->symbol */ t2=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11551 in k11521 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_11553,2,av);} a=C_alloc(14); t2=C_a_i_list(&a,2,t1,lf[110]); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11549,a[2]=((C_word*)t0)[2],a[3]=((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:922: save */ t5=((C_word*)((C_word*)t0)[7])[1]; f_10929(t5,t4);} /* k19411 in k19405 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_19413,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_19419,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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:2003: g3285 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k23073 in k23056 in k23053 in k23050 in k23044 in k23041 in g4231 in k23033 in lp in k22979 in a22976 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in ... */ static void C_ccall f_23075(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_23075,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* lp2 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_fcall f_17352(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_17352,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:1722: 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:1722: 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:1722: 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_17385,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t5,a[6]=((C_word*)t0)[5],a[7]=((C_word)li193),tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1723: lp */ t8=((C_word*)((C_word*)t0)[6])[1]; f_17273(t8,t1,t6,t3,C_fix(0),C_fix(0),t7);}} /* k19417 in k19411 in k19405 in k19245 in irregex-search/matches in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_19419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_19419,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_19433,a[2]=((C_word)li243),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:2009: matcher */ t8=((C_word*)t0)[4];{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } 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_19439,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)li245),tmp=(C_word)a,a+=9,tmp)); t10=((C_word*)t8)[1]; f_19439(t10,((C_word*)t0)[5],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],t1);}} /* k12161 in k12151 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_12163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_12163,2,av);} a=C_alloc(10); if(C_truep(C_i_nullp(t1))){ /* irregex-core.scm:1012: error */ t2=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[163]; ((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_12179,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_fixnum_plus(((C_word*)t0)[6],C_fix(1)); /* irregex-core.scm:1016: string-scan-char */ t7=lf[45];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[7]; av2[3]=C_make_character(125); av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20237(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_20237,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(20); t8=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_20241,a[2]=((C_word*)t0)[2],a[3]=((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:2176: 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);}} /* k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_20224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_20224,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_20237,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)li261),tmp=(C_word)a,a+=15,tmp)); t7=((C_word*)t5)[1]; f_20237(t7,((C_word*)t0)[16],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[17],t2,t3,((C_word*)t0)[2]);} /* rec in lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ 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_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_26797,3,av);} /* irregex-core.scm:3678: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_26794(t3,t1,t2,((C_word*)t0)[3]);} /* k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_26792(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_26792,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_26794,a[2]=t3,a[3]=((C_word)li328),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_26794(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1);} /* lp in k26790 in sre->cset in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_26794(C_word t0,C_word t1,C_word 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_26794,4,t0,t1,t2,t3);} a=C_alloc(18); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26797,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li320),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_26823,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t8=t2; t9=C_u_i_car(t8); /* irregex-core.scm:3683: string->cset */ f_26764(t7,t9);} else{ t7=t2; t8=C_u_i_car(t7); /* irregex-core.scm:3684: string->cset */ f_26764(t1,t8);}} else{ t7=t2; t8=C_u_i_car(t7); t9=C_eqp(t8,lf[168]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26844,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26848,a[2]=t4,a[3]=t2,a[4]=t10,tmp=(C_word)a,a+=5,tmp); t12=C_i_cadr(t2); /* irregex-core.scm:3688: rec */ t13=t4;{ C_word av2[3]; av2[0]=t13; av2[1]=t11; av2[2]=t12; f_26797(3,av2);}} else{ t10=C_eqp(t8,lf[219]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26912,a[2]=t4,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t12=C_i_cadr(t2); /* irregex-core.scm:3690: rec */ t13=t4;{ C_word av2[3]; av2[0]=t13; av2[1]=t11; av2[2]=t12; f_26797(3,av2);}} else{ t11=C_eqp(t8,lf[232]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26974,a[2]=((C_word)li323),tmp=(C_word)a,a+=3,tmp); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26982,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:3693: rec */ t15=t4;{ C_word av2[3]; av2[0]=t15; av2[1]=t13; av2[2]=t14; f_26797(3,av2);}} else{ t12=C_eqp(t8,lf[43]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27042,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27052,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_18551,a[2]=t18,a[3]=((C_word)li326),tmp=(C_word)a,a+=4,tmp)); t20=((C_word*)t18)[1]; f_18551(t20,t14,t16,C_SCHEME_END_OF_LIST);} else{ t13=C_eqp(t8,lf[93]); if(C_truep(t13)){ t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27067,a[2]=t4,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t15=C_i_cadr(t2); /* irregex-core.scm:3701: rec */ t16=t4;{ C_word av2[3]; av2[0]=t16; av2[1]=t14; av2[2]=t15; f_26797(3,av2);}} else{ t14=C_eqp(t8,lf[210]); if(C_truep(t14)){ t15=t2; t16=C_u_i_cdr(t15); t17=( /* irregex-core.scm:3703: sre-alternate */ f_18395(C_a_i(&a,3),t16) ); /* irregex-core.scm:3703: lp */ t21=t1; t22=t17; t23=C_SCHEME_FALSE; t1=t21; t2=t22; t3=t23; goto loop;} else{ t15=C_eqp(t8,lf[211]); if(C_truep(t15)){ t16=t2; t17=C_u_i_cdr(t16); t18=( /* irregex-core.scm:3705: sre-alternate */ f_18395(C_a_i(&a,3),t17) ); /* irregex-core.scm:3705: lp */ t21=t1; t22=t18; t23=C_SCHEME_TRUE; t1=t21; t2=t22; t3=t23; goto loop;} else{ /* irregex-core.scm:3707: error */ t16=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t16; av2[1]=t1; av2[2]=lf[388]; 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:3709: cset-case-insensitive */ f_27914(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:3711: rec */ t6=t4;{ C_word av2[3]; av2[0]=t6; av2[1]=t1; av2[2]=t5; f_26797(3,av2);}} else{ t5=C_i_assq(t2,lf[233]); if(C_truep(t5)){ t6=C_i_cdr(t5); /* irregex-core.scm:3715: rec */ t7=t4;{ C_word av2[3]; av2[0]=t7; av2[1]=t1; av2[2]=t6; f_26797(3,av2);}} else{ /* irregex-core.scm:3716: error */ t6=*((C_word*)lf[25]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t1; av2[2]=lf[389]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}}} /* k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20221(C_word t0,C_word t1){ C_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_20221,2,t0,t1);} a=C_alloc(31); t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_20224,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_20632,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li262),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[288]); 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_20660,a[2]=t3,a[3]=t8,a[4]=((C_word)li263),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_20660(t10,t2,t5);} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_20224(2,av2);}}} /* k23053 in k23050 in k23044 in k23041 in g4231 in k23033 in lp in k22979 in a22976 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_23055(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_23055,2,t0,t1);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_23058,a[2]=((C_word*)t0)[2],a[3]=((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:2956: mst-add! */ f_22152(t3,((C_word*)t0)[9],((C_word*)t0)[4],((C_word*)t0)[8],((C_word*)t0)[10]);} /* k23050 in k23044 in k23041 in g4231 in k23033 in lp in k22979 in a22976 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_23052(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_23052,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23055,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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_23055(t4,C_a_i_cons(&a,2,t3,((C_word*)t0)[12]));} else{ t3=t2; f_23055(t3,((C_word*)t0)[12]);}} /* k12186 in k12180 in k12177 in k12161 in k12151 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_12188(C_word t0,C_word t1){ C_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_12188,2,t0,t1);} 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_12197,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_12197(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[165],t6); t8=t4; f_12197(t8,(C_truep(t7)?C_SCHEME_FALSE:C_i_not(t2)));} else{ t6=t4; f_12197(t6,C_SCHEME_FALSE);}}} /* k12180 in k12177 in k12161 in k12151 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ 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 t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_12182,2,av);} a=C_alloc(19); t2=t1; t3=C_i_car(t2); t4=C_a_i_string_to_number(&a,2,t3,C_fix(10)); t5=t4; t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12188,a[2]=t5,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]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); t7=C_u_i_cdr(t2); if(C_truep(C_i_pairp(t7))){ t8=C_i_cadr(t2); t9=t6; f_12188(t9,C_a_i_string_to_number(&a,2,t8,C_fix(10)));} else{ t8=t6; f_12188(t8,C_SCHEME_FALSE);}} /* k23056 in k23053 in k23050 in k23044 in k23041 in g4231 in k23033 in lp in k22979 in a22976 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 in ... */ static void C_ccall f_23058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_23058,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_23075,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:2963: append */ t9=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:2964: lp */ t8=((C_word*)((C_word*)t0)[8])[1]; f_22998(t8,((C_word*)t0)[5],t5,((C_word*)t0)[2],((C_word*)t0)[9],t7);}} /* k20257 in lp2 in k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20259(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_20259,2,t0,t1);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_20262,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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(t3)){ t4=t2;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_20262(2,av2);}} else{ /* irregex-core.scm:2189: 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);}}} /* a17384 in lp2 in k17343 in k17314 in lp in k17262 in k17259 in k16474 in k16471 in k16468 in k16465 in k16462 in k16459 in k16456 in k16453 in k16450 in k16447 in sre->irregex in k9756 in k7760 in k7529 */ static void C_ccall f_17385(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_17385,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_17415,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:1726: sre-count-submatches */ f_17161(t6,t8);} /* k12151 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_12153(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,6)))){ C_save_and_reclaim_args((void *)trf_12153,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* irregex-core.scm:1007: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10523(t3,((C_word*)t0)[4],t2,((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_12163,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:1009: collect/single */ t3=((C_word*)((C_word*)t0)[10])[1]; f_10624(t3,t2);}} /* k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ 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 t3; 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_20244,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_20249,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)li260),tmp=(C_word)a,a+=16,tmp)); t6=((C_word*)t4)[1]; f_20249(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]);} /* sre-strip-submatches in k9756 in k7760 in k7529 */ static void C_ccall f_18418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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; 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_18418,3,av);} a=C_alloc(14); if(C_truep(C_i_pairp(t2))){ t3=C_i_car(t2); t4=C_eqp(t3,lf[230]); t5=(C_truep(t4)?t4:C_eqp(t3,lf[98])); if(C_truep(t5)){ t6=t2; t7=C_u_i_cdr(t6); t8=( /* irregex-core.scm:1865: sre-sequence */ f_18372(C_a_i(&a,3),t7) ); /* irregex-core.scm:1865: sre-strip-submatches */ t19=t1; t20=t8; t1=t19; t2=t20; c=3; goto loop;} else{ t6=C_eqp(t3,lf[109]); t7=(C_truep(t6)?t6:C_eqp(t3,lf[110])); if(C_truep(t7)){ t8=C_i_cddr(t2); t9=( /* irregex-core.scm:1866: sre-sequence */ f_18372(C_a_i(&a,3),t8) ); /* irregex-core.scm:1866: sre-strip-submatches */ t19=t1; t20=t9; t1=t19; t2=t20; c=3; goto loop;} else{ t8=C_eqp(t3,lf[229]); if(C_truep(t8)){ t9=C_i_cdddr(t2); t10=( /* irregex-core.scm:1867: sre-sequence */ f_18372(C_a_i(&a,3),t9) ); /* irregex-core.scm:1867: sre-strip-submatches */ t19=t1; t20=t10; t1=t19; t2=t20; c=3; goto loop;} 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=lf[269]; t14=t2; 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_18491,a[2]=t11,a[3]=t16,a[4]=t13,a[5]=t12,a[6]=((C_word)li230),tmp=(C_word)a,a+=7,tmp)); t18=((C_word*)t16)[1]; f_18491(t18,t1,t14);}}}} else{ t3=t2; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* lp2 in k20242 in k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_20249(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_20249,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_20259,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_20259(t17,C_i_vector_set(t14,t16,t5));} else{ t10=t8; f_20259(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_20359,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_20592,a[2]=t9,a[3]=((C_word)li259),tmp=(C_word)a,a+=4,tmp); t12=C_i_cdr(t3); /* irregex-core.scm:2198: find */ f_9187(t10,t11,t12);}} /* k20239 in lp1 in k20222 in k20219 in k20207 in dfa-match/longest in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_20241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_20241,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_20244,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=((C_word*)t0)[18]; f_20244(2,av2);}} else{ /* irregex-core.scm:2177: get-end */ t5=((C_word*)t0)[19];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k11450 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_11452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11452,2,av);} /* irregex-core.scm:900: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10523(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[135],t1);} /* g4231 in k23033 in lp in k22979 in a22976 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_23039(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_23039,3,t0,t1,t2);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23043,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:2947: cset-difference */ f_27582(t3,((C_word*)t0)[8],t4);} /* k23033 in lp in k22979 in a22976 in k22652 in lp in k22603 in k22600 in k22597 in k22594 in k22591 in nfa->dfa in k19097 in k9756 in k7760 in k7529 */ static void C_ccall f_23035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_23035,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_23039,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word)li297),tmp=(C_word)a,a+=10,tmp); /* irregex-core.scm:2931: g4231 */ t3=t2; f_23039(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:2967: lp */ t7=((C_word*)((C_word*)t0)[3])[1]; f_22998(t7,((C_word*)t0)[9],t3,((C_word*)t0)[8],((C_word*)t0)[4],t6);}} /* mst-copy in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_22126(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_22126,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22130,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2716: vector-copy */ f_7533(t3,t2);} /* k11298 in a11289 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_fcall f_11300(C_word t0,C_word 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_11300,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ /* irregex-core.scm:886: error */ t2=*((C_word*)lf[25]+1);{ C_word av2[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);}} 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_11322,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:887: collect */ t7=((C_word*)((C_word*)t0)[9])[1]; f_10604(t7,t6);}} /* k11425 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_11427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11427,2,av);} /* irregex-core.scm:897: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10523(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[134],t1);} /* k12177 in k12161 in k12151 in lp in k10516 in k10510 in string->sre in k9756 in k7760 in k7529 */ static void C_ccall f_12179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_12179,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12182,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_12313,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_fixnum_plus(((C_word*)t0)[8],C_fix(1)); /* irregex-core.scm:1017: substring */ t6=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t4; av2[2]=((C_word*)t0)[9]; av2[3]=t5; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* lp2 in lp in tag-set-commands-for-closure in k19097 in k9756 in k7760 in k7529 */ static void C_fcall f_23325(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(19,0,3)))){ C_save_and_reclaim_args((void *)trf_23325,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:3026: lp */ t6=((C_word*)((C_word*)t0)[3])[1]; f_23305(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_23348,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_23348(t8,t6);} else{ if(C_truep(C_i_nullp(((C_word*)t0)[5]))){ t8=t7; f_23348(t8,C_SCHEME_FALSE);} else{ t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23380,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); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23413,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li310),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:3033: any */ f_9286(t8,t9,((C_word*)t0)[5]);}}}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[1252] = { {"f_22112:irregex_2escm",(void*)f_22112}, {"f_23016:irregex_2escm",(void*)f_23016}, {"f_22147:irregex_2escm",(void*)f_22147}, {"f_22143:irregex_2escm",(void*)f_22143}, {"f_11402:irregex_2escm",(void*)f_11402}, {"f_23043:irregex_2escm",(void*)f_23043}, {"f_23046:irregex_2escm",(void*)f_23046}, {"f_12688:irregex_2escm",(void*)f_12688}, {"f_23389:irregex_2escm",(void*)f_23389}, {"f_23387:irregex_2escm",(void*)f_23387}, {"f_22137:irregex_2escm",(void*)f_22137}, {"f_22130:irregex_2escm",(void*)f_22130}, {"f_23380:irregex_2escm",(void*)f_23380}, {"f_22166:irregex_2escm",(void*)f_22166}, {"f_29127:irregex_2escm",(void*)f_29127}, {"f_22152:irregex_2escm",(void*)f_22152}, {"f_22159:irregex_2escm",(void*)f_22159}, {"f_22150:irregex_2escm",(void*)f_22150}, {"f_17332:irregex_2escm",(void*)f_17332}, {"f_27665:irregex_2escm",(void*)f_27665}, {"f_16849:irregex_2escm",(void*)f_16849}, {"f_11549:irregex_2escm",(void*)f_11549}, {"f_11322:irregex_2escm",(void*)f_11322}, {"f_9795:irregex_2escm",(void*)f_9795}, {"f_29151:irregex_2escm",(void*)f_29151}, {"f_26770:irregex_2escm",(void*)f_26770}, {"f_18491:irregex_2escm",(void*)f_18491}, {"f_21965:irregex_2escm",(void*)f_21965}, {"f_11523:irregex_2escm",(void*)f_11523}, {"f_11520:irregex_2escm",(void*)f_11520}, {"f_26784:irregex_2escm",(void*)f_26784}, {"f_26782:irregex_2escm",(void*)f_26782}, {"f_21930:irregex_2escm",(void*)f_21930}, {"f_27610:irregex_2escm",(void*)f_27610}, {"f_27623:irregex_2escm",(void*)f_27623}, {"f_12630:irregex_2escm",(void*)f_12630}, {"f_27627:irregex_2escm",(void*)f_27627}, {"f_12605:irregex_2escm",(void*)f_12605}, {"f_12663:irregex_2escm",(void*)f_12663}, {"f_27683:irregex_2escm",(void*)f_27683}, {"f_16894:irregex_2escm",(void*)f_16894}, {"f_29441:irregex_2escm",(void*)f_29441}, {"f_21998:irregex_2escm",(void*)f_21998}, {"f_29423:irregex_2escm",(void*)f_29423}, {"f_29419:irregex_2escm",(void*)f_29419}, {"f_29426:irregex_2escm",(void*)f_29426}, {"f_21972:irregex_2escm",(void*)f_21972}, {"f_29455:irregex_2escm",(void*)f_29455}, {"f_29452:irregex_2escm",(void*)f_29452}, {"f_29489:irregex_2escm",(void*)f_29489}, {"f_27107:irregex_2escm",(void*)f_27107}, {"f_31402:irregex_2escm",(void*)f_31402}, {"f_29462:irregex_2escm",(void*)f_29462}, {"f_29431:irregex_2escm",(void*)f_29431}, {"f_25743:irregex_2escm",(void*)f_25743}, {"f_25740:irregex_2escm",(void*)f_25740}, {"f_29730:irregex_2escm",(void*)f_29730}, {"f_29731:irregex_2escm",(void*)f_29731}, {"f_29735:irregex_2escm",(void*)f_29735}, {"f_25733:irregex_2escm",(void*)f_25733}, {"f_29703:irregex_2escm",(void*)f_29703}, {"f_29499:irregex_2escm",(void*)f_29499}, {"f_29752:irregex_2escm",(void*)f_29752}, {"f_29474:irregex_2escm",(void*)f_29474}, {"f_21743:irregex_2escm",(void*)f_21743}, {"f_29727:irregex_2escm",(void*)f_29727}, {"f_29747:irregex_2escm",(void*)f_29747}, {"f_24150:irregex_2escm",(void*)f_24150}, {"f_21706:irregex_2escm",(void*)f_21706}, {"f_16317:irregex_2escm",(void*)f_16317}, {"f_29762:irregex_2escm",(void*)f_29762}, {"f_21702:irregex_2escm",(void*)f_21702}, {"f_16310:irregex_2escm",(void*)f_16310}, {"f_24156:irregex_2escm",(void*)f_24156}, {"f_13674:irregex_2escm",(void*)f_13674}, {"f_15865:irregex_2escm",(void*)f_15865}, {"f_15868:irregex_2escm",(void*)f_15868}, {"f_16371:irregex_2escm",(void*)f_16371}, {"f_13646:irregex_2escm",(void*)f_13646}, {"f_29786:irregex_2escm",(void*)f_29786}, {"f_13649:irregex_2escm",(void*)f_13649}, {"f_29789:irregex_2escm",(void*)f_29789}, {"f_24137:irregex_2escm",(void*)f_24137}, {"f_25793:irregex_2escm",(void*)f_25793}, {"f_24143:irregex_2escm",(void*)f_24143}, {"f_25701:irregex_2escm",(void*)f_25701}, {"f_24113:irregex_2escm",(void*)f_24113}, {"f_25708:irregex_2escm",(void*)f_25708}, {"f_13685:irregex_2escm",(void*)f_13685}, {"f_13103:irregex_2escm",(void*)f_13103}, {"f_11260:irregex_2escm",(void*)f_11260}, {"f_20209:irregex_2escm",(void*)f_20209}, {"f_17588:irregex_2escm",(void*)f_17588}, {"f_13600:irregex_2escm",(void*)f_13600}, {"f_17592:irregex_2escm",(void*)f_17592}, {"f_14443:irregex_2escm",(void*)f_14443}, {"f_13636:irregex_2escm",(void*)f_13636}, {"f_17563:irregex_2escm",(void*)f_17563}, {"f_11290:irregex_2escm",(void*)f_11290}, {"f_15813:irregex_2escm",(void*)f_15813}, {"f_13653:irregex_2escm",(void*)f_13653}, {"f_28662:irregex_2escm",(void*)f_28662}, {"f_19259:irregex_2escm",(void*)f_19259}, {"f_17549:irregex_2escm",(void*)f_17549}, {"f_28656:irregex_2escm",(void*)f_28656}, {"f_19313:irregex_2escm",(void*)f_19313}, {"f_14482:irregex_2escm",(void*)f_14482}, {"f_19317:irregex_2escm",(void*)f_19317}, {"f_10294:irregex_2escm",(void*)f_10294}, {"f_10291:irregex_2escm",(void*)f_10291}, {"f_19322:irregex_2escm",(void*)f_19322}, {"f_19329:irregex_2escm",(void*)f_19329}, {"f_17533:irregex_2escm",(void*)f_17533}, {"f_19208:irregex_2escm",(void*)f_19208}, {"f_19205:irregex_2escm",(void*)f_19205}, {"f_19202:irregex_2escm",(void*)f_19202}, {"f_28644:irregex_2escm",(void*)f_28644}, {"f_17535:irregex_2escm",(void*)f_17535}, {"f_28621:irregex_2escm",(void*)f_28621}, {"f_17500:irregex_2escm",(void*)f_17500}, {"f_17517:irregex_2escm",(void*)f_17517}, {"f_10281:irregex_2escm",(void*)f_10281}, {"f_28623:irregex_2escm",(void*)f_28623}, {"f_21725:irregex_2escm",(void*)f_21725}, {"f_19364:irregex_2escm",(void*)f_19364}, {"f_10700:irregex_2escm",(void*)f_10700}, {"f_19240:irregex_2escm",(void*)f_19240}, {"f_19247:irregex_2escm",(void*)f_19247}, {"f_28607:irregex_2escm",(void*)f_28607}, {"f_19374:irregex_2escm",(void*)f_19374}, {"f_10709:irregex_2escm",(void*)f_10709}, {"f_10706:irregex_2escm",(void*)f_10706}, {"f_10703:irregex_2escm",(void*)f_10703}, {"f_20184:irregex_2escm",(void*)f_20184}, {"f_20182:irregex_2escm",(void*)f_20182}, {"f_10717:irregex_2escm",(void*)f_10717}, {"f_10714:irregex_2escm",(void*)f_10714}, {"f_20178:irregex_2escm",(void*)f_20178}, {"f_17264:irregex_2escm",(void*)f_17264}, {"f_26671:irregex_2escm",(void*)f_26671}, {"f_17261:irregex_2escm",(void*)f_17261}, {"f_23180:irregex_2escm",(void*)f_23180}, {"f_20152:irregex_2escm",(void*)f_20152}, {"f_17276:irregex_2escm",(void*)f_17276}, {"f_20157:irregex_2escm",(void*)f_20157}, {"f_17273:irregex_2escm",(void*)f_17273}, {"f_26681:irregex_2escm",(void*)f_26681}, {"f_17271:irregex_2escm",(void*)f_17271}, {"f_12481:irregex_2escm",(void*)f_12481}, {"f_12452:irregex_2escm",(void*)f_12452}, {"f_20132:irregex_2escm",(void*)f_20132}, {"f_23151:irregex_2escm",(void*)f_23151}, {"f_23155:irregex_2escm",(void*)f_23155}, {"f_20122:irregex_2escm",(void*)f_20122}, {"f_17224:irregex_2escm",(void*)f_17224}, {"f_12994:irregex_2escm",(void*)f_12994}, {"f_23157:irregex_2escm",(void*)f_23157}, {"f_28688:irregex_2escm",(void*)f_28688}, {"f_18109:irregex_2escm",(void*)f_18109}, {"f_18101:irregex_2escm",(void*)f_18101}, {"f_23147:irregex_2escm",(void*)f_23147}, {"f_10787:irregex_2escm",(void*)f_10787}, {"f_12932:irregex_2escm",(void*)f_12932}, {"f_17523:irregex_2escm",(void*)f_17523}, {"f_17526:irregex_2escm",(void*)f_17526}, {"f_16248:irregex_2escm",(void*)f_16248}, {"f_27373:irregex_2escm",(void*)f_27373}, {"f_27381:irregex_2escm",(void*)f_27381}, {"f_27387:irregex_2escm",(void*)f_27387}, {"f_27385:irregex_2escm",(void*)f_27385}, {"f_16258:irregex_2escm",(void*)f_16258}, {"f_16261:irregex_2escm",(void*)f_16261}, {"f_16263:irregex_2escm",(void*)f_16263}, {"f_15045:irregex_2escm",(void*)f_15045}, {"f_12427:irregex_2escm",(void*)f_12427}, {"f_23209:irregex_2escm",(void*)f_23209}, {"f_15032:irregex_2escm",(void*)f_15032}, {"f_15039:irregex_2escm",(void*)f_15039}, {"f_12095:irregex_2escm",(void*)f_12095}, {"f_15067:irregex_2escm",(void*)f_15067}, {"f_15065:irregex_2escm",(void*)f_15065}, {"f_22923:irregex_2escm",(void*)f_22923}, {"f_24984:irregex_2escm",(void*)f_24984}, {"f_22910:irregex_2escm",(void*)f_22910}, {"f_24397:irregex_2escm",(void*)f_24397}, {"f_24988:irregex_2escm",(void*)f_24988}, {"f_27337:irregex_2escm",(void*)f_27337}, {"f_24987:irregex_2escm",(void*)f_24987}, {"f_23237:irregex_2escm",(void*)f_23237}, {"f_27345:irregex_2escm",(void*)f_27345}, {"f_27989:irregex_2escm",(void*)f_27989}, {"f_22962:irregex_2escm",(void*)f_22962}, {"f_27999:irregex_2escm",(void*)f_27999}, {"f_12313:irregex_2escm",(void*)f_12313}, {"f_13267:irregex_2escm",(void*)f_13267}, {"f_21009:irregex_2escm",(void*)f_21009}, {"f_15686:irregex_2escm",(void*)f_15686}, {"f_15688:irregex_2escm",(void*)f_15688}, {"f_16641:irregex_2escm",(void*)f_16641}, {"f_21156:irregex_2escm",(void*)f_21156}, {"f_12923:irregex_2escm",(void*)f_12923}, {"f_27944:irregex_2escm",(void*)f_27944}, {"f_27953:irregex_2escm",(void*)f_27953}, {"f_13298:irregex_2escm",(void*)f_13298}, {"f_27957:irregex_2escm",(void*)f_27957}, {"f_21144:irregex_2escm",(void*)f_21144}, {"f_24315:irregex_2escm",(void*)f_24315}, {"f_24311:irregex_2escm",(void*)f_24311}, {"f_27938:irregex_2escm",(void*)f_27938}, {"f_21117:irregex_2escm",(void*)f_21117}, {"f_24320:irregex_2escm",(void*)f_24320}, {"f_10570:irregex_2escm",(void*)f_10570}, {"f_27904:irregex_2escm",(void*)f_27904}, {"f_21129:irregex_2escm",(void*)f_21129}, {"f_21126:irregex_2escm",(void*)f_21126}, {"f_21120:irregex_2escm",(void*)f_21120}, {"f_21064:irregex_2escm",(void*)f_21064}, {"f_27912:irregex_2escm",(void*)f_27912}, {"f_27914:irregex_2escm",(void*)f_27914}, {"f_21174:irregex_2escm",(void*)f_21174}, {"f_21070:irregex_2escm",(void*)f_21070}, {"f_25828:irregex_2escm",(void*)f_25828}, {"f_27965:irregex_2escm",(void*)f_27965}, {"f_27961:irregex_2escm",(void*)f_27961}, {"f_21087:irregex_2escm",(void*)f_21087}, {"f_25800:irregex_2escm",(void*)f_25800}, {"f_13057:irregex_2escm",(void*)f_13057}, {"f_24083:irregex_2escm",(void*)f_24083}, {"f_24089:irregex_2escm",(void*)f_24089}, {"f_13066:irregex_2escm",(void*)f_13066}, {"f_21133:irregex_2escm",(void*)f_21133}, {"f_10518:irregex_2escm",(void*)f_10518}, {"f_24097:irregex_2escm",(void*)f_24097}, {"f_25852:irregex_2escm",(void*)f_25852}, {"f_10158:irregex_2escm",(void*)f_10158}, {"f_10512:irregex_2escm",(void*)f_10512}, {"f_24091:irregex_2escm",(void*)f_24091}, {"f_27922:irregex_2escm",(void*)f_27922}, {"f_27924:irregex_2escm",(void*)f_27924}, {"f_10526:irregex_2escm",(void*)f_10526}, {"f_21658:irregex_2escm",(void*)f_21658}, {"f_25845:irregex_2escm",(void*)f_25845}, {"f_10523:irregex_2escm",(void*)f_10523}, {"f_10055:irregex_2escm",(void*)f_10055}, {"f_10052:irregex_2escm",(void*)f_10052}, {"f_13086:irregex_2escm",(void*)f_13086}, {"f_21667:irregex_2escm",(void*)f_21667}, {"f_21053:irregex_2escm",(void*)f_21053}, {"f_21664:irregex_2escm",(void*)f_21664}, {"f_13094:irregex_2escm",(void*)f_13094}, {"f_21676:irregex_2escm",(void*)f_21676}, {"f_21673:irregex_2escm",(void*)f_21673}, {"f_21670:irregex_2escm",(void*)f_21670}, {"f_24045:irregex_2escm",(void*)f_24045}, {"f_24044:irregex_2escm",(void*)f_24044}, {"f_21608:irregex_2escm",(void*)f_21608}, {"f_25893:irregex_2escm",(void*)f_25893}, {"f_24051:irregex_2escm",(void*)f_24051}, {"f_10000:irregex_2escm",(void*)f_10000}, {"f_15384:irregex_2escm",(void*)f_15384}, {"f_21616:irregex_2escm",(void*)f_21616}, {"f_10568:irregex_2escm",(void*)f_10568}, {"f_10565:irregex_2escm",(void*)f_10565}, {"f_24107:irregex_2escm",(void*)f_24107}, {"f_15376:irregex_2escm",(void*)f_15376}, {"f_20398:irregex_2escm",(void*)f_20398}, {"f_20399:irregex_2escm",(void*)f_20399}, {"f_24038:irregex_2escm",(void*)f_24038}, {"f_25809:irregex_2escm",(void*)f_25809}, {"f_19296:irregex_2escm",(void*)f_19296}, {"f_13553:irregex_2escm",(void*)f_13553}, {"f_20371:irregex_2escm",(void*)f_20371}, {"f_10548:irregex_2escm",(void*)f_10548}, {"f_10595:irregex_2escm",(void*)f_10595}, {"f_24016:irregex_2escm",(void*)f_24016}, {"f_24010:irregex_2escm",(void*)f_24010}, {"f_7579:irregex_2escm",(void*)f_7579}, {"f_7570:irregex_2escm",(void*)f_7570}, {"f_10069:irregex_2escm",(void*)f_10069}, {"f_15320:irregex_2escm",(void*)f_15320}, {"f_15326:irregex_2escm",(void*)f_15326}, {"f_15328:irregex_2escm",(void*)f_15328}, {"f_7588:irregex_2escm",(void*)f_7588}, {"f_13595:irregex_2escm",(void*)f_13595}, {"f_29102:irregex_2escm",(void*)f_29102}, {"f_21686:irregex_2escm",(void*)f_21686}, {"f_15391:irregex_2escm",(void*)f_15391}, {"f_29106:irregex_2escm",(void*)f_29106}, {"f_29108:irregex_2escm",(void*)f_29108}, {"f_15397:irregex_2escm",(void*)f_15397}, {"f_19395:irregex_2escm",(void*)f_19395}, {"f_21694:irregex_2escm",(void*)f_21694}, {"f_10123:irregex_2escm",(void*)f_10123}, {"f_19195:irregex_2escm",(void*)f_19195}, {"f_19199:irregex_2escm",(void*)f_19199}, {"f_10094:irregex_2escm",(void*)f_10094}, {"f_19123:irregex_2escm",(void*)f_19123}, {"f_19120:irregex_2escm",(void*)f_19120}, {"f_10102:irregex_2escm",(void*)f_10102}, {"f_14699:irregex_2escm",(void*)f_14699}, {"f_14558:irregex_2escm",(void*)f_14558}, {"f_13239:irregex_2escm",(void*)f_13239}, {"toplevel:irregex_2escm",(void*)C_irregex_toplevel}, {"f_17415:irregex_2escm",(void*)f_17415}, {"f_29168:irregex_2escm",(void*)f_29168}, {"f_29175:irregex_2escm",(void*)f_29175}, {"f_10508:irregex_2escm",(void*)f_10508}, {"f_13517:irregex_2escm",(void*)f_13517}, {"f_10197:irregex_2escm",(void*)f_10197}, {"f_19105:irregex_2escm",(void*)f_19105}, {"f_19108:irregex_2escm",(void*)f_19108}, {"f_19101:irregex_2escm",(void*)f_19101}, {"f_7552:irregex_2escm",(void*)f_7552}, {"f_29198:irregex_2escm",(void*)f_29198}, {"f_8426:irregex_2escm",(void*)f_8426}, {"f_19114:irregex_2escm",(void*)f_19114}, {"f_7561:irregex_2escm",(void*)f_7561}, {"f_24905:irregex_2escm",(void*)f_24905}, {"f_24904:irregex_2escm",(void*)f_24904}, {"f_10177:irregex_2escm",(void*)f_10177}, {"f_21628:irregex_2escm",(void*)f_21628}, {"f_7537:irregex_2escm",(void*)f_7537}, {"f_7533:irregex_2escm",(void*)f_7533}, {"f_8413:irregex_2escm",(void*)f_8413}, {"f_17467:irregex_2escm",(void*)f_17467}, {"f_7531:irregex_2escm",(void*)f_7531}, {"f_26509:irregex_2escm",(void*)f_26509}, {"f_26503:irregex_2escm",(void*)f_26503}, {"f_24574:irregex_2escm",(void*)f_24574}, {"f_7546:irregex_2escm",(void*)f_7546}, {"f_7540:irregex_2escm",(void*)f_7540}, {"f_7597:irregex_2escm",(void*)f_7597}, {"f_24809:irregex_2escm",(void*)f_24809}, {"f_17430:irregex_2escm",(void*)f_17430}, {"f_24911:irregex_2escm",(void*)f_24911}, {"f_11958:irregex_2escm",(void*)f_11958}, {"f_24947:irregex_2escm",(void*)f_24947}, {"f_24680:irregex_2escm",(void*)f_24680}, {"f_24688:irregex_2escm",(void*)f_24688}, {"f_24695:irregex_2escm",(void*)f_24695}, {"f_12398:irregex_2escm",(void*)f_12398}, {"f_17487:irregex_2escm",(void*)f_17487}, {"f_13045:irregex_2escm",(void*)f_13045}, {"f_24952:irregex_2escm",(void*)f_24952}, {"f_16771:irregex_2escm",(void*)f_16771}, {"f_11991:irregex_2escm",(void*)f_11991}, {"f_24992:irregex_2escm",(void*)f_24992}, {"f_17483:irregex_2escm",(void*)f_17483}, {"f_28100:irregex_2escm",(void*)f_28100}, {"f_18885:irregex_2escm",(void*)f_18885}, {"f_28713:irregex_2escm",(void*)f_28713}, {"f_22287:irregex_2escm",(void*)f_22287}, {"f_7615:irregex_2escm",(void*)f_7615}, {"f_24843:irregex_2escm",(void*)f_24843}, {"f_7606:irregex_2escm",(void*)f_7606}, {"f_24846:irregex_2escm",(void*)f_24846}, {"f_24847:irregex_2escm",(void*)f_24847}, {"f_26515:irregex_2escm",(void*)f_26515}, {"f_16748:irregex_2escm",(void*)f_16748}, {"f_24834:irregex_2escm",(void*)f_24834}, {"f_24831:irregex_2escm",(void*)f_24831}, {"f_23983:irregex_2escm",(void*)f_23983}, {"f_23984:irregex_2escm",(void*)f_23984}, {"f_27847:irregex_2escm",(void*)f_27847}, {"f_24828:irregex_2escm",(void*)f_24828}, {"f_28139:irregex_2escm",(void*)f_28139}, {"f_28136:irregex_2escm",(void*)f_28136}, {"f_24816:irregex_2escm",(void*)f_24816}, {"f_28739:irregex_2escm",(void*)f_28739}, {"f_23025:irregex_2escm",(void*)f_23025}, {"f_12788:irregex_2escm",(void*)f_12788}, {"f_22214:irregex_2escm",(void*)f_22214}, {"f_12799:irregex_2escm",(void*)f_12799}, {"f_11909:irregex_2escm",(void*)f_11909}, {"f_22201:irregex_2escm",(void*)f_22201}, {"f_11003:irregex_2escm",(void*)f_11003}, {"f_27809:irregex_2escm",(void*)f_27809}, {"f_22208:irregex_2escm",(void*)f_22208}, {"f_7683:irregex_2escm",(void*)f_7683}, {"f_7689:irregex_2escm",(void*)f_7689}, {"f_11034:irregex_2escm",(void*)f_11034}, {"f_12763:irregex_2escm",(void*)f_12763}, {"f_7665:irregex_2escm",(void*)f_7665}, {"f_20789:irregex_2escm",(void*)f_20789}, {"f_15999:irregex_2escm",(void*)f_15999}, {"f_15997:irregex_2escm",(void*)f_15997}, {"f_22654:irregex_2escm",(void*)f_22654}, {"f_12713:irregex_2escm",(void*)f_12713}, {"f_15986:irregex_2escm",(void*)f_15986}, {"f_12738:irregex_2escm",(void*)f_12738}, {"f_15963:irregex_2escm",(void*)f_15963}, {"f_20632:irregex_2escm",(void*)f_20632}, {"f_13368:irregex_2escm",(void*)f_13368}, {"f_22605:irregex_2escm",(void*)f_22605}, {"f_22602:irregex_2escm",(void*)f_22602}, {"f_21280:irregex_2escm",(void*)f_21280}, {"f_15936:irregex_2escm",(void*)f_15936}, {"f_22677:irregex_2escm",(void*)f_22677}, {"f_15938:irregex_2escm",(void*)f_15938}, {"f_22673:irregex_2escm",(void*)f_22673}, {"f_15925:irregex_2escm",(void*)f_15925}, {"f_20660:irregex_2escm",(void*)f_20660}, {"f_22998:irregex_2escm",(void*)f_22998}, {"f_13350:irregex_2escm",(void*)f_13350}, {"f_21268:irregex_2escm",(void*)f_21268}, {"f_21261:irregex_2escm",(void*)f_21261}, {"f_24275:irregex_2escm",(void*)f_24275}, {"f_21230:irregex_2escm",(void*)f_21230}, {"f_24280:irregex_2escm",(void*)f_24280}, {"f_25569:irregex_2escm",(void*)f_25569}, {"f_21203:irregex_2escm",(void*)f_21203}, {"f_22981:irregex_2escm",(void*)f_22981}, {"f_24256:irregex_2escm",(void*)f_24256}, {"f_7640:irregex_2escm",(void*)f_7640}, {"f_10681:irregex_2escm",(void*)f_10681}, {"f_24262:irregex_2escm",(void*)f_24262}, {"f_22977:irregex_2escm",(void*)f_22977}, {"f_24269:irregex_2escm",(void*)f_24269}, {"f_25549:irregex_2escm",(void*)f_25549}, {"f_10618:irregex_2escm",(void*)f_10618}, {"f_7651:irregex_2escm",(void*)f_7651}, {"f_16072:irregex_2escm",(void*)f_16072}, {"f_13150:irregex_2escm",(void*)f_13150}, {"f_10624:irregex_2escm",(void*)f_10624}, {"f_7649:irregex_2escm",(void*)f_7649}, {"f_7642:irregex_2escm",(void*)f_7642}, {"f_13168:irregex_2escm",(void*)f_13168}, {"f_10622:irregex_2escm",(void*)f_10622}, {"f_16065:irregex_2escm",(void*)f_16065}, {"f_17718:irregex_2escm",(void*)f_17718}, {"f_16055:irregex_2escm",(void*)f_16055}, {"f_7623:irregex_2escm",(void*)f_7623}, {"f_17727:irregex_2escm",(void*)f_17727}, {"f_20486:irregex_2escm",(void*)f_20486}, {"f_25584:irregex_2escm",(void*)f_25584}, {"f_16040:irregex_2escm",(void*)f_16040}, {"f_16049:irregex_2escm",(void*)f_16049}, {"f_25578:irregex_2escm",(void*)f_25578}, {"f_10668:irregex_2escm",(void*)f_10668}, {"f_10664:irregex_2escm",(void*)f_10664}, {"f_10660:irregex_2escm",(void*)f_10660}, {"f_16024:irregex_2escm",(void*)f_16024}, {"f_13898:irregex_2escm",(void*)f_13898}, {"f_18026:irregex_2escm",(void*)f_18026}, {"f_13892:irregex_2escm",(void*)f_13892}, {"f_18070:irregex_2escm",(void*)f_18070}, {"f_10696:irregex_2escm",(void*)f_10696}, {"f_24239:irregex_2escm",(void*)f_24239}, {"f_24243:irregex_2escm",(void*)f_24243}, {"f_24242:irregex_2escm",(void*)f_24242}, {"f_14802:irregex_2escm",(void*)f_14802}, {"f_10631:irregex_2escm",(void*)f_10631}, {"f_22621:irregex_2escm",(void*)f_22621}, {"f_10640:irregex_2escm",(void*)f_10640}, {"f_22638:irregex_2escm",(void*)f_22638}, {"f_14798:irregex_2escm",(void*)f_14798}, {"f_14794:irregex_2escm",(void*)f_14794}, {"f_14779:irregex_2escm",(void*)f_14779}, {"f_14133:irregex_2escm",(void*)f_14133}, {"f_19099:irregex_2escm",(void*)f_19099}, {"f_25774:irregex_2escm",(void*)f_25774}, {"f_19031:irregex_2escm",(void*)f_19031}, {"f_14783:irregex_2escm",(void*)f_14783}, {"f_28058:irregex_2escm",(void*)f_28058}, {"f_28055:irregex_2escm",(void*)f_28055}, {"f_14876:irregex_2escm",(void*)f_14876}, {"f_28052:irregex_2escm",(void*)f_28052}, {"f_28067:irregex_2escm",(void*)f_28067}, {"f_28064:irregex_2escm",(void*)f_28064}, {"f_14868:irregex_2escm",(void*)f_14868}, {"f_24638:irregex_2escm",(void*)f_24638}, {"f_24637:irregex_2escm",(void*)f_24637}, {"f_13883:irregex_2escm",(void*)f_13883}, {"f_23990:irregex_2escm",(void*)f_23990}, {"f_14719:irregex_2escm",(void*)f_14719}, {"f_14858:irregex_2escm",(void*)f_14858}, {"f_14147:irregex_2escm",(void*)f_14147}, {"f_19006:irregex_2escm",(void*)f_19006}, {"f_19004:irregex_2escm",(void*)f_19004}, {"f_24645:irregex_2escm",(void*)f_24645}, {"f_10604:irregex_2escm",(void*)f_10604}, {"f_14728:irregex_2escm",(void*)f_14728}, {"f_18551:irregex_2escm",(void*)f_18551}, {"f_8513:irregex_2escm",(void*)f_8513}, {"f_14723:irregex_2escm",(void*)f_14723}, {"f_23960:irregex_2escm",(void*)f_23960}, {"f_24673:irregex_2escm",(void*)f_24673}, {"f_24672:irregex_2escm",(void*)f_24672}, {"f_14756:irregex_2escm",(void*)f_14756}, {"f_24624:irregex_2escm",(void*)f_24624}, {"f_18574:irregex_2escm",(void*)f_18574}, {"f_18578:irregex_2escm",(void*)f_18578}, {"f_23941:irregex_2escm",(void*)f_23941}, {"f_14702:irregex_2escm",(void*)f_14702}, {"f_24653:irregex_2escm",(void*)f_24653}, {"f_24798:irregex_2escm",(void*)f_24798}, {"f_24793:irregex_2escm",(void*)f_24793}, {"f_24794:irregex_2escm",(void*)f_24794}, {"f_28998:irregex_2escm",(void*)f_28998}, {"f_28030:irregex_2escm",(void*)f_28030}, {"f_24660:irregex_2escm",(void*)f_24660}, {"f_13829:irregex_2escm",(void*)f_13829}, {"f_18091:irregex_2escm",(void*)f_18091}, {"f_28045:irregex_2escm",(void*)f_28045}, {"f_28049:irregex_2escm",(void*)f_28049}, {"f_28012:irregex_2escm",(void*)f_28012}, {"f_24782:irregex_2escm",(void*)f_24782}, {"f_28016:irregex_2escm",(void*)f_28016}, {"f_28940:irregex_2escm",(void*)f_28940}, {"f_14828:irregex_2escm",(void*)f_14828}, {"f_28954:irregex_2escm",(void*)f_28954}, {"f_28020:irregex_2escm",(void*)f_28020}, {"f_28079:irregex_2escm",(void*)f_28079}, {"f_28925:irregex_2escm",(void*)f_28925}, {"f_28076:irregex_2escm",(void*)f_28076}, {"f_28929:irregex_2escm",(void*)f_28929}, {"f_28087:irregex_2escm",(void*)f_28087}, {"f_28935:irregex_2escm",(void*)f_28935}, {"f_18051:irregex_2escm",(void*)f_18051}, {"f_28932:irregex_2escm",(void*)f_28932}, {"f_22818:irregex_2escm",(void*)f_22818}, {"f_28907:irregex_2escm",(void*)f_28907}, {"f_28909:irregex_2escm",(void*)f_28909}, {"f_18599:irregex_2escm",(void*)f_18599}, {"f_22821:irregex_2escm",(void*)f_22821}, {"f_29503:irregex_2escm",(void*)f_29503}, {"f_29506:irregex_2escm",(void*)f_29506}, {"f_29511:irregex_2escm",(void*)f_29511}, {"f_28008:irregex_2escm",(void*)f_28008}, {"f_18516:irregex_2escm",(void*)f_18516}, {"f_22842:irregex_2escm",(void*)f_22842}, {"f_8502:irregex_2escm",(void*)f_8502}, {"f_8506:irregex_2escm",(void*)f_8506}, {"f_30538:irregex_2escm",(void*)f_30538}, {"f_22883:irregex_2escm",(void*)f_22883}, {"f_22885:irregex_2escm",(void*)f_22885}, {"f_20307:irregex_2escm",(void*)f_20307}, {"f_8525:irregex_2escm",(void*)f_8525}, {"f_8529:irregex_2escm",(void*)f_8529}, {"f_8521:irregex_2escm",(void*)f_8521}, {"f_22850:irregex_2escm",(void*)f_22850}, {"f_27500:irregex_2escm",(void*)f_27500}, {"f_22808:irregex_2escm",(void*)f_22808}, {"f_22803:irregex_2escm",(void*)f_22803}, {"f_22800:irregex_2escm",(void*)f_22800}, {"f_23701:irregex_2escm",(void*)f_23701}, {"f_19668:irregex_2escm",(void*)f_19668}, {"f_14166:irregex_2escm",(void*)f_14166}, {"f_19687:irregex_2escm",(void*)f_19687}, {"f_27596:irregex_2escm",(void*)f_27596}, {"f_27594:irregex_2escm",(void*)f_27594}, {"f_27590:irregex_2escm",(void*)f_27590}, {"f_23747:irregex_2escm",(void*)f_23747}, {"f_14155:irregex_2escm",(void*)f_14155}, {"f_14151:irregex_2escm",(void*)f_14151}, {"f_23740:irregex_2escm",(void*)f_23740}, {"f_8480:irregex_2escm",(void*)f_8480}, {"f_8474:irregex_2escm",(void*)f_8474}, {"f_21381:irregex_2escm",(void*)f_21381}, {"f_23724:irregex_2escm",(void*)f_23724}, {"f_27582:irregex_2escm",(void*)f_27582}, {"f_19786:irregex_2escm",(void*)f_19786}, {"f_21398:irregex_2escm",(void*)f_21398}, {"f_30310:irregex_2escm",(void*)f_30310}, {"f_23787:irregex_2escm",(void*)f_23787}, {"f_19799:irregex_2escm",(void*)f_19799}, {"f_21371:irregex_2escm",(void*)f_21371}, {"f_21374:irregex_2escm",(void*)f_21374}, {"f_23767:irregex_2escm",(void*)f_23767}, {"f_21347:irregex_2escm",(void*)f_21347}, {"f_20359:irregex_2escm",(void*)f_20359}, {"f_8467:irregex_2escm",(void*)f_8467}, {"f_23797:irregex_2escm",(void*)f_23797}, {"f_30357:irregex_2escm",(void*)f_30357}, {"f_23790:irregex_2escm",(void*)f_23790}, {"f_23791:irregex_2escm",(void*)f_23791}, {"f_25607:irregex_2escm",(void*)f_25607}, {"f_8453:irregex_2escm",(void*)f_8453}, {"f_21327:irregex_2escm",(void*)f_21327}, {"f_21324:irregex_2escm",(void*)f_21324}, {"f_17924:irregex_2escm",(void*)f_17924}, {"f_21333:irregex_2escm",(void*)f_21333}, {"f_13901:irregex_2escm",(void*)f_13901}, {"f_15113:irregex_2escm",(void*)f_15113}, {"f_25660:irregex_2escm",(void*)f_25660}, {"f_25666:irregex_2escm",(void*)f_25666}, {"f_21310:irregex_2escm",(void*)f_21310}, {"f_15107:irregex_2escm",(void*)f_15107}, {"f_25654:irregex_2escm",(void*)f_25654}, {"f_8498:irregex_2escm",(void*)f_8498}, {"f_21447:irregex_2escm",(void*)f_21447}, {"f_25645:irregex_2escm",(void*)f_25645}, {"f_21455:irregex_2escm",(void*)f_21455}, {"f_21451:irregex_2escm",(void*)f_21451}, {"f_21463:irregex_2escm",(void*)f_21463}, {"f_27229:irregex_2escm",(void*)f_27229}, {"f_20592:irregex_2escm",(void*)f_20592}, {"f_21471:irregex_2escm",(void*)f_21471}, {"f_21486:irregex_2escm",(void*)f_21486}, {"f_27231:irregex_2escm",(void*)f_27231}, {"f_14079:irregex_2escm",(void*)f_14079}, {"f_21492:irregex_2escm",(void*)f_21492}, {"f_21495:irregex_2escm",(void*)f_21495}, {"f_21580:irregex_2escm",(void*)f_21580}, {"f_21586:irregex_2escm",(void*)f_21586}, {"f_21589:irregex_2escm",(void*)f_21589}, {"f_15192:irregex_2escm",(void*)f_15192}, {"f_14058:irregex_2escm",(void*)f_14058}, {"f_14054:irregex_2escm",(void*)f_14054}, {"f_13970:irregex_2escm",(void*)f_13970}, {"f_21592:irregex_2escm",(void*)f_21592}, {"f_21595:irregex_2escm",(void*)f_21595}, {"f_15186:irregex_2escm",(void*)f_15186}, {"f_21598:irregex_2escm",(void*)f_21598}, {"f_21560:irregex_2escm",(void*)f_21560}, {"f_15179:irregex_2escm",(void*)f_15179}, {"f_19619:irregex_2escm",(void*)f_19619}, {"f_14994:irregex_2escm",(void*)f_14994}, {"f_14996:irregex_2escm",(void*)f_14996}, {"f_24009:irregex_2escm",(void*)f_24009}, {"f_19984:irregex_2escm",(void*)f_19984}, {"f_9329:irregex_2escm",(void*)f_9329}, {"f_21556:irregex_2escm",(void*)f_21556}, {"f_15143:irregex_2escm",(void*)f_15143}, {"f_15141:irregex_2escm",(void*)f_15141}, {"f_26995:irregex_2escm",(void*)f_26995}, {"f_26997:irregex_2escm",(void*)f_26997}, {"f_21529:irregex_2escm",(void*)f_21529}, {"f_21526:irregex_2escm",(void*)f_21526}, {"f_21520:irregex_2escm",(void*)f_21520}, {"f_21535:irregex_2escm",(void*)f_21535}, {"f_21532:irregex_2escm",(void*)f_21532}, {"f_9193:irregex_2escm",(void*)f_9193}, {"f_15121:irregex_2escm",(void*)f_15121}, {"f_19626:irregex_2escm",(void*)f_19626}, {"f_19623:irregex_2escm",(void*)f_19623}, {"f_26974:irregex_2escm",(void*)f_26974}, {"f_14046:irregex_2escm",(void*)f_14046}, {"f_14031:irregex_2escm",(void*)f_14031}, {"f_9921:irregex_2escm",(void*)f_9921}, {"f_14938:irregex_2escm",(void*)f_14938}, {"f_19641:irregex_2escm",(void*)f_19641}, {"f_14023:irregex_2escm",(void*)f_14023}, {"f_14027:irregex_2escm",(void*)f_14027}, {"f_9911:irregex_2escm",(void*)f_9911}, {"f_30387:irregex_2escm",(void*)f_30387}, {"f_17998:irregex_2escm",(void*)f_17998}, {"f_17682:irregex_2escm",(void*)f_17682}, {"f_26272:irregex_2escm",(void*)f_26272}, {"f_17676:irregex_2escm",(void*)f_17676}, {"f_14012:irregex_2escm",(void*)f_14012}, {"f_30377:irregex_2escm",(void*)f_30377}, {"f_19723:irregex_2escm",(void*)f_19723}, {"f_19733:irregex_2escm",(void*)f_19733}, {"f_19739:irregex_2escm",(void*)f_19739}, {"f_28396:irregex_2escm",(void*)f_28396}, {"f_28399:irregex_2escm",(void*)f_28399}, {"f_26982:irregex_2escm",(void*)f_26982}, {"f_9961:irregex_2escm",(void*)f_9961}, {"f_14974:irregex_2escm",(void*)f_14974}, {"f_19745:irregex_2escm",(void*)f_19745}, {"f_19917:irregex_2escm",(void*)f_19917}, {"f_26912:irregex_2escm",(void*)f_26912}, {"f_26266:irregex_2escm",(void*)f_26266}, {"f_28360:irregex_2escm",(void*)f_28360}, {"f_17669:irregex_2escm",(void*)f_17669}, {"f_19757:irregex_2escm",(void*)f_19757}, {"f_13923:irregex_2escm",(void*)f_13923}, {"f_19924:irregex_2escm",(void*)f_19924}, {"f_19755:irregex_2escm",(void*)f_19755}, {"f_19927:irregex_2escm",(void*)f_19927}, {"f_28372:irregex_2escm",(void*)f_28372}, {"f_19767:irregex_2escm",(void*)f_19767}, {"f_24728:irregex_2escm",(void*)f_24728}, {"f_13912:irregex_2escm",(void*)f_13912}, {"f_13919:irregex_2escm",(void*)f_13919}, {"f_19932:irregex_2escm",(void*)f_19932}, {"f_24721:irregex_2escm",(void*)f_24721}, {"f_24488:irregex_2escm",(void*)f_24488}, {"f_9858:irregex_2escm",(void*)f_9858}, {"f_24715:irregex_2escm",(void*)f_24715}, {"f_24711:irregex_2escm",(void*)f_24711}, {"f_24710:irregex_2escm",(void*)f_24710}, {"f_24492:irregex_2escm",(void*)f_24492}, {"f_8704:irregex_2escm",(void*)f_8704}, {"f_9841:irregex_2escm",(void*)f_9841}, {"f_24498:irregex_2escm",(void*)f_24498}, {"f_8208:irregex_2escm",(void*)f_8208}, {"f_8206:irregex_2escm",(void*)f_8206}, {"f_26295:irregex_2escm",(void*)f_26295}, {"f_24747:irregex_2escm",(void*)f_24747}, {"f_11872:irregex_2escm",(void*)f_11872}, {"f_26952:irregex_2escm",(void*)f_26952}, {"f_9835:irregex_2escm",(void*)f_9835}, {"f_11889:irregex_2escm",(void*)f_11889}, {"f_24737:irregex_2escm",(void*)f_24737}, {"f_26927:irregex_2escm",(void*)f_26927}, {"f_26925:irregex_2escm",(void*)f_26925}, {"f_9815:irregex_2escm",(void*)f_9815}, {"f_26209:irregex_2escm",(void*)f_26209}, {"f_28382:irregex_2escm",(void*)f_28382}, {"f_24756:irregex_2escm",(void*)f_24756}, {"f_24751:irregex_2escm",(void*)f_24751}, {"f_9801:irregex_2escm",(void*)f_9801}, {"f_8770:irregex_2escm",(void*)f_8770}, {"f_23813:irregex_2escm",(void*)f_23813}, {"f_24773:irregex_2escm",(void*)f_24773}, {"f_9862:irregex_2escm",(void*)f_9862}, {"f_26238:irregex_2escm",(void*)f_26238}, {"f_8798:irregex_2escm",(void*)f_8798}, {"f_26488:irregex_2escm",(void*)f_26488}, {"f_21417:irregex_2escm",(void*)f_21417}, {"f_21414:irregex_2escm",(void*)f_21414}, {"f_26244:irregex_2escm",(void*)f_26244}, {"f_22380:irregex_2escm",(void*)f_22380}, {"f_22099:irregex_2escm",(void*)f_22099}, {"f_21506:irregex_2escm",(void*)f_21506}, {"f_22095:irregex_2escm",(void*)f_22095}, {"f_26497:irregex_2escm",(void*)f_26497}, {"f_21429:irregex_2escm",(void*)f_21429}, {"f_21426:irregex_2escm",(void*)f_21426}, {"f_21420:irregex_2escm",(void*)f_21420}, {"f_8977:irregex_2escm",(void*)f_8977}, {"f_26468:irregex_2escm",(void*)f_26468}, {"f_21436:irregex_2escm",(void*)f_21436}, {"f_21432:irregex_2escm",(void*)f_21432}, {"f_28803:irregex_2escm",(void*)f_28803}, {"f_28322:irregex_2escm",(void*)f_28322}, {"f_26226:irregex_2escm",(void*)f_26226}, {"f_26228:irregex_2escm",(void*)f_26228}, {"f_8964:irregex_2escm",(void*)f_8964}, {"f_14902:irregex_2escm",(void*)f_14902}, {"f_14900:irregex_2escm",(void*)f_14900}, {"f_27042:irregex_2escm",(void*)f_27042}, {"f_22315:irregex_2escm",(void*)f_22315}, {"f_11855:irregex_2escm",(void*)f_11855}, {"f_28865:irregex_2escm",(void*)f_28865}, {"f_28309:irregex_2escm",(void*)f_28309}, {"f_28301:irregex_2escm",(void*)f_28301}, {"f_8998:irregex_2escm",(void*)f_8998}, {"f_28835:irregex_2escm",(void*)f_28835}, {"f_22334:irregex_2escm",(void*)f_22334}, {"f_26250:irregex_2escm",(void*)f_26250}, {"f_26087:irregex_2escm",(void*)f_26087}, {"f_16109:irregex_2escm",(void*)f_16109}, {"f_16107:irregex_2escm",(void*)f_16107}, {"f_26050:irregex_2escm",(void*)f_26050}, {"f_9989:irregex_2escm",(void*)f_9989}, {"f_26067:irregex_2escm",(void*)f_26067}, {"f_26034:irregex_2escm",(void*)f_26034}, {"f_16163:irregex_2escm",(void*)f_16163}, {"f_16165:irregex_2escm",(void*)f_16165}, {"f_22327:irregex_2escm",(void*)f_22327}, {"f_22321:irregex_2escm",(void*)f_22321}, {"f_30067:irregex_2escm",(void*)f_30067}, {"f_8914:irregex_2escm",(void*)f_8914}, {"f_26091:irregex_2escm",(void*)f_26091}, {"f_26094:irregex_2escm",(void*)f_26094}, {"f_7762:irregex_2escm",(void*)f_7762}, {"f_26455:irregex_2escm",(void*)f_26455}, {"f_26453:irregex_2escm",(void*)f_26453}, {"f_16134:irregex_2escm",(void*)f_16134}, {"f_26427:irregex_2escm",(void*)f_26427}, {"f_27284:irregex_2escm",(void*)f_27284}, {"f_7781:irregex_2escm",(void*)f_7781}, {"f_16190:irregex_2escm",(void*)f_16190}, {"f_9206:irregex_2escm",(void*)f_9206}, {"f_8383:irregex_2escm",(void*)f_8383}, {"f_20428:irregex_2escm",(void*)f_20428}, {"f_8389:irregex_2escm",(void*)f_8389}, {"f_8953:irregex_2escm",(void*)f_8953}, {"f_8927:irregex_2escm",(void*)f_8927}, {"f_20429:irregex_2escm",(void*)f_20429}, {"f_8956:irregex_2escm",(void*)f_8956}, {"f_20823:irregex_2escm",(void*)f_20823}, {"f_30016:irregex_2escm",(void*)f_30016}, {"f_27249:irregex_2escm",(void*)f_27249}, {"f_23621:irregex_2escm",(void*)f_23621}, {"f_7777:irregex_2escm",(void*)f_7777}, {"f_25984:irregex_2escm",(void*)f_25984}, {"f_7775:irregex_2escm",(void*)f_7775}, {"f_11806:irregex_2escm",(void*)f_11806}, {"f_27251:irregex_2escm",(void*)f_27251}, {"f_23611:irregex_2escm",(void*)f_23611}, {"f_9380:irregex_2escm",(void*)f_9380}, {"f_8379:irregex_2escm",(void*)f_8379}, {"f_8212:irregex_2escm",(void*)f_8212}, {"f_25963:irregex_2escm",(void*)f_25963}, {"f_7716:irregex_2escm",(void*)f_7716}, {"f_8743:irregex_2escm",(void*)f_8743}, {"f_9286:irregex_2escm",(void*)f_9286}, {"f_30021:irregex_2escm",(void*)f_30021}, {"f_28899:irregex_2escm",(void*)f_28899}, {"f_28894:irregex_2escm",(void*)f_28894}, {"f_28890:irregex_2escm",(void*)f_28890}, {"f_9347:irregex_2escm",(void*)f_9347}, {"f_30031:irregex_2escm",(void*)f_30031}, {"f_8571:irregex_2escm",(void*)f_8571}, {"f_9263:irregex_2escm",(void*)f_9263}, {"f_9374:irregex_2escm",(void*)f_9374}, {"f_30003:irregex_2escm",(void*)f_30003}, {"f_30009:irregex_2escm",(void*)f_30009}, {"f_30006:irregex_2escm",(void*)f_30006}, {"f_30414:irregex_2escm",(void*)f_30414}, {"f_20999:irregex_2escm",(void*)f_20999}, {"f_23630:irregex_2escm",(void*)f_23630}, {"f_9363:irregex_2escm",(void*)f_9363}, {"f_10929:irregex_2escm",(void*)f_10929}, {"f_25991:irregex_2escm",(void*)f_25991}, {"f_10926:irregex_2escm",(void*)f_10926}, {"f_25998:irregex_2escm",(void*)f_25998}, {"f_20990:irregex_2escm",(void*)f_20990}, {"f_9248:irregex_2escm",(void*)f_9248}, {"f_9398:irregex_2escm",(void*)f_9398}, {"f_25900:irregex_2escm",(void*)f_25900}, {"f_25907:irregex_2escm",(void*)f_25907}, {"f_20463:irregex_2escm",(void*)f_20463}, {"f_16540:irregex_2escm",(void*)f_16540}, {"f_20986:irregex_2escm",(void*)f_20986}, {"f_9302:irregex_2escm",(void*)f_9302}, {"f_23698:irregex_2escm",(void*)f_23698}, {"f_29016:irregex_2escm",(void*)f_29016}, {"f_15789:irregex_2escm",(void*)f_15789}, {"f_10904:irregex_2escm",(void*)f_10904}, {"f_16536:irregex_2escm",(void*)f_16536}, {"f_30463:irregex_2escm",(void*)f_30463}, {"f_15771:irregex_2escm",(void*)f_15771}, {"f_15767:irregex_2escm",(void*)f_15767}, {"f_16595:irregex_2escm",(void*)f_16595}, {"f_29050:irregex_2escm",(void*)f_29050}, {"f_8554:irregex_2escm",(void*)f_8554}, {"f_15751:irregex_2escm",(void*)f_15751}, {"f_15753:irregex_2escm",(void*)f_15753}, {"f_25940:irregex_2escm",(void*)f_25940}, {"f_22714:irregex_2escm",(void*)f_22714}, {"f_30436:irregex_2escm",(void*)f_30436}, {"f_10879:irregex_2escm",(void*)f_10879}, {"f_15743:irregex_2escm",(void*)f_15743}, {"f_25933:irregex_2escm",(void*)f_25933}, {"f_17829:irregex_2escm",(void*)f_17829}, {"f_10941:irregex_2escm",(void*)f_10941}, {"f_16578:irregex_2escm",(void*)f_16578}, {"f_22705:irregex_2escm",(void*)f_22705}, {"f_22708:irregex_2escm",(void*)f_22708}, {"f_10803:irregex_2escm",(void*)f_10803}, {"f_25926:irregex_2escm",(void*)f_25926}, {"f_29579:irregex_2escm",(void*)f_29579}, {"f_29094:irregex_2escm",(void*)f_29094}, {"f_9315:irregex_2escm",(void*)f_9315}, {"f_29589:irregex_2escm",(void*)f_29589}, {"f_8545:irregex_2escm",(void*)f_8545}, {"f_29063:irregex_2escm",(void*)f_29063}, {"f_29061:irregex_2escm",(void*)f_29061}, {"f_8541:irregex_2escm",(void*)f_8541}, {"f_8533:irregex_2escm",(void*)f_8533}, {"f_8537:irregex_2escm",(void*)f_8537}, {"f_9108:irregex_2escm",(void*)f_9108}, {"f_17838:irregex_2escm",(void*)f_17838}, {"f_8562:irregex_2escm",(void*)f_8562}, {"f_29534:irregex_2escm",(void*)f_29534}, {"f_9106:irregex_2escm",(void*)f_9106}, {"f_29537:irregex_2escm",(void*)f_29537}, {"f_16510:irregex_2escm",(void*)f_16510}, {"f_29544:irregex_2escm",(void*)f_29544}, {"f_9127:irregex_2escm",(void*)f_9127}, {"f_9122:irregex_2escm",(void*)f_9122}, {"f_29549:irregex_2escm",(void*)f_29549}, {"f_16505:irregex_2escm",(void*)f_16505}, {"f_29559:irregex_2escm",(void*)f_29559}, {"f_9148:irregex_2escm",(void*)f_9148}, {"f_17877:irregex_2escm",(void*)f_17877}, {"f_10893:irregex_2escm",(void*)f_10893}, {"f_10890:irregex_2escm",(void*)f_10890}, {"f_11358:irregex_2escm",(void*)f_11358}, {"f_9164:irregex_2escm",(void*)f_9164}, {"f_15798:irregex_2escm",(void*)f_15798}, {"f_27792:irregex_2escm",(void*)f_27792}, {"f_27790:irregex_2escm",(void*)f_27790}, {"f_15489:irregex_2escm",(void*)f_15489}, {"f_9187:irregex_2escm",(void*)f_9187}, {"f_15437:irregex_2escm",(void*)f_15437}, {"f_15439:irregex_2escm",(void*)f_15439}, {"f_27778:irregex_2escm",(void*)f_27778}, {"f_27786:irregex_2escm",(void*)f_27786}, {"f34064:irregex_2escm",(void*)f34064}, {"f34069:irregex_2escm",(void*)f34069}, {"f_11373:irregex_2escm",(void*)f_11373}, {"f_13775:irregex_2escm",(void*)f_13775}, {"f_19859:irregex_2escm",(void*)f_19859}, {"f_19854:irregex_2escm",(void*)f_19854}, {"f_13765:irregex_2escm",(void*)f_13765}, {"f_17859:irregex_2escm",(void*)f_17859}, {"f_17856:irregex_2escm",(void*)f_17856}, {"f_19866:irregex_2escm",(void*)f_19866}, {"f_28528:irregex_2escm",(void*)f_28528}, {"f_13752:irregex_2escm",(void*)f_13752}, {"f_28520:irregex_2escm",(void*)f_28520}, {"f_25590:irregex_2escm",(void*)f_25590}, {"f_28264:irregex_2escm",(void*)f_28264}, {"f_13731:irregex_2escm",(void*)f_13731}, {"f_13730:irregex_2escm",(void*)f_13730}, {"f_28516:irregex_2escm",(void*)f_28516}, {"f_28279:irregex_2escm",(void*)f_28279}, {"f_28512:irregex_2escm",(void*)f_28512}, {"f_20071:irregex_2escm",(void*)f_20071}, {"f_13719:irregex_2escm",(void*)f_13719}, {"f_19831:irregex_2escm",(void*)f_19831}, {"f_13702:irregex_2escm",(void*)f_13702}, {"f_28283:irregex_2escm",(void*)f_28283}, {"f_17188:irregex_2escm",(void*)f_17188}, {"f_11756:irregex_2escm",(void*)f_11756}, {"f_24455:irregex_2escm",(void*)f_24455}, {"f_17194:irregex_2escm",(void*)f_17194}, {"f_28286:irregex_2escm",(void*)f_28286}, {"f_28289:irregex_2escm",(void*)f_28289}, {"f_24442:irregex_2escm",(void*)f_24442}, {"f_20036:irregex_2escm",(void*)f_20036}, {"f_17161:irregex_2escm",(void*)f_17161}, {"f_17167:irregex_2escm",(void*)f_17167}, {"f_28295:irregex_2escm",(void*)f_28295}, {"f_24449:irregex_2escm",(void*)f_24449}, {"f_8677:irregex_2escm",(void*)f_8677}, {"f_8675:irregex_2escm",(void*)f_8675}, {"f_20056:irregex_2escm",(void*)f_20056}, {"f_20058:irregex_2escm",(void*)f_20058}, {"f_24420:irregex_2escm",(void*)f_24420}, {"f_8664:irregex_2escm",(void*)f_8664}, {"f_17148:irregex_2escm",(void*)f_17148}, {"f_26005:irregex_2escm",(void*)f_26005}, {"f_24414:irregex_2escm",(void*)f_24414}, {"f_11797:irregex_2escm",(void*)f_11797}, {"f_20046:irregex_2escm",(void*)f_20046}, {"f_11794:irregex_2escm",(void*)f_11794}, {"f_8697:irregex_2escm",(void*)f_8697}, {"f_24401:irregex_2escm",(void*)f_24401}, {"f_24400:irregex_2escm",(void*)f_24400}, {"f_8684:irregex_2escm",(void*)f_8684}, {"f_17122:irregex_2escm",(void*)f_17122}, {"f_18340:irregex_2escm",(void*)f_18340}, {"f_28579:irregex_2escm",(void*)f_28579}, {"f_28574:irregex_2escm",(void*)f_28574}, {"f_28256:irregex_2escm",(void*)f_28256}, {"f_28255:irregex_2escm",(void*)f_28255}, {"f_24476:irregex_2escm",(void*)f_24476}, {"f_28570:irregex_2escm",(void*)f_28570}, {"f_28251:irregex_2escm",(void*)f_28251}, {"f_12854:irregex_2escm",(void*)f_12854}, {"f_12851:irregex_2escm",(void*)f_12851}, {"f_14245:irregex_2escm",(void*)f_14245}, {"f_14248:irregex_2escm",(void*)f_14248}, {"f_26100:irregex_2escm",(void*)f_26100}, {"f_18372:irregex_2escm",(void*)f_18372}, {"f_26014:irregex_2escm",(void*)f_26014}, {"f_11725:irregex_2escm",(void*)f_11725}, {"f_11729:irregex_2escm",(void*)f_11729}, {"f_26367:irregex_2escm",(void*)f_26367}, {"f_18363:irregex_2escm",(void*)f_18363}, {"f_14224:irregex_2escm",(void*)f_14224}, {"f_12848:irregex_2escm",(void*)f_12848}, {"f_24430:irregex_2escm",(void*)f_24430}, {"f_12893:irregex_2escm",(void*)f_12893}, {"f_11702:irregex_2escm",(void*)f_11702}, {"f_26145:irregex_2escm",(void*)f_26145}, {"f_18395:irregex_2escm",(void*)f_18395}, {"f_26310:irregex_2escm",(void*)f_26310}, {"f_29305:irregex_2escm",(void*)f_29305}, {"f_8023:irregex_2escm",(void*)f_8023}, {"f_12889:irregex_2escm",(void*)f_12889}, {"f_28234:irregex_2escm",(void*)f_28234}, {"f_26351:irregex_2escm",(void*)f_26351}, {"f_23305:irregex_2escm",(void*)f_23305}, {"f_8809:irregex_2escm",(void*)f_8809}, {"f_7864:irregex_2escm",(void*)f_7864}, {"f_7860:irregex_2escm",(void*)f_7860}, {"f_26339:irregex_2escm",(void*)f_26339}, {"f_27067:irregex_2escm",(void*)f_27067}, {"f_20525:irregex_2escm",(void*)f_20525}, {"f_20522:irregex_2escm",(void*)f_20522}, {"f_12819:irregex_2escm",(void*)f_12819}, {"f_26345:irregex_2escm",(void*)f_26345}, {"f_8811:irregex_2escm",(void*)f_8811}, {"f_12823:irregex_2escm",(void*)f_12823}, {"f_27082:irregex_2escm",(void*)f_27082}, {"f_27080:irregex_2escm",(void*)f_27080}, {"f_23348:irregex_2escm",(void*)f_23348}, {"f_27052:irregex_2escm",(void*)f_27052}, {"f_26329:irregex_2escm",(void*)f_26329}, {"f_26327:irregex_2escm",(void*)f_26327}, {"f_27022:irregex_2escm",(void*)f_27022}, {"f_8633:irregex_2escm",(void*)f_8633}, {"f_8629:irregex_2escm",(void*)f_8629}, {"f_8855:irregex_2escm",(void*)f_8855}, {"f_8651:irregex_2escm",(void*)f_8651}, {"f_8647:irregex_2escm",(void*)f_8647}, {"f_22535:irregex_2escm",(void*)f_22535}, {"f_22565:irregex_2escm",(void*)f_22565}, {"f_29966:irregex_2escm",(void*)f_29966}, {"f_16929:irregex_2escm",(void*)f_16929}, {"f_29902:irregex_2escm",(void*)f_29902}, {"f_29909:irregex_2escm",(void*)f_29909}, {"f_20564:irregex_2escm",(void*)f_20564}, {"f_20968:irregex_2escm",(void*)f_20968}, {"f_20567:irregex_2escm",(void*)f_20567}, {"f_20964:irregex_2escm",(void*)f_20964}, {"f_7802:irregex_2escm",(void*)f_7802}, {"f_7806:irregex_2escm",(void*)f_7806}, {"f_20976:irregex_2escm",(void*)f_20976}, {"f_20973:irregex_2escm",(void*)f_20973}, {"f_20971:irregex_2escm",(void*)f_20971}, {"f_29920:irregex_2escm",(void*)f_29920}, {"f_29929:irregex_2escm",(void*)f_29929}, {"f_7835:irregex_2escm",(void*)f_7835}, {"f_7831:irregex_2escm",(void*)f_7831}, {"f_8293:irregex_2escm",(void*)f_8293}, {"f_29932:irregex_2escm",(void*)f_29932}, {"f_29935:irregex_2escm",(void*)f_29935}, {"f_29822:irregex_2escm",(void*)f_29822}, {"f_22451:irregex_2escm",(void*)f_22451}, {"f_16491:irregex_2escm",(void*)f_16491}, {"f_9098:irregex_2escm",(void*)f_9098}, {"f_29800:irregex_2escm",(void*)f_29800}, {"f_29807:irregex_2escm",(void*)f_29807}, {"f_16470:irregex_2escm",(void*)f_16470}, {"f_16479:irregex_2escm",(void*)f_16479}, {"f_16476:irregex_2escm",(void*)f_16476}, {"f_16473:irregex_2escm",(void*)f_16473}, {"f_29812:irregex_2escm",(void*)f_29812}, {"f_8289:irregex_2escm",(void*)f_8289}, {"f_29862:irregex_2escm",(void*)f_29862}, {"f_16452:irregex_2escm",(void*)f_16452}, {"f_16455:irregex_2escm",(void*)f_16455}, {"f_16458:irregex_2escm",(void*)f_16458}, {"f_15214:irregex_2escm",(void*)f_15214}, {"f_15212:irregex_2escm",(void*)f_15212}, {"f_29873:irregex_2escm",(void*)f_29873}, {"f_29869:irregex_2escm",(void*)f_29869}, {"f_16443:irregex_2escm",(void*)f_16443}, {"f_16445:irregex_2escm",(void*)f_16445}, {"f_16449:irregex_2escm",(void*)f_16449}, {"f_16435:irregex_2escm",(void*)f_16435}, {"f_29856:irregex_2escm",(void*)f_29856}, {"f_15260:irregex_2escm",(void*)f_15260}, {"f_29942:irregex_2escm",(void*)f_29942}, {"f_29859:irregex_2escm",(void*)f_29859}, {"f_15254:irregex_2escm",(void*)f_15254}, {"f_13486:irregex_2escm",(void*)f_13486}, {"f_15288:irregex_2escm",(void*)f_15288}, {"f_25114:irregex_2escm",(void*)f_25114}, {"f_25118:irregex_2escm",(void*)f_25118}, {"f_15279:irregex_2escm",(void*)f_15279}, {"f_29886:irregex_2escm",(void*)f_29886}, {"f_16461:irregex_2escm",(void*)f_16461}, {"f_16467:irregex_2escm",(void*)f_16467}, {"f_16464:irregex_2escm",(void*)f_16464}, {"f_25023:irregex_2escm",(void*)f_25023}, {"f_25037:irregex_2escm",(void*)f_25037}, {"f_29899:irregex_2escm",(void*)f_29899}, {"f_25010:irregex_2escm",(void*)f_25010}, {"f_29219:irregex_2escm",(void*)f_29219}, {"f_29221:irregex_2escm",(void*)f_29221}, {"f_8067:irregex_2escm",(void*)f_8067}, {"f_8069:irregex_2escm",(void*)f_8069}, {"f_23595:irregex_2escm",(void*)f_23595}, {"f_29288:irregex_2escm",(void*)f_29288}, {"f_29258:irregex_2escm",(void*)f_29258}, {"f_28476:irregex_2escm",(void*)f_28476}, {"f_25314:irregex_2escm",(void*)f_25314}, {"f_22505:irregex_2escm",(void*)f_22505}, {"f_31009:irregex_2escm",(void*)f_31009}, {"f_25349:irregex_2escm",(void*)f_25349}, {"f_28467:irregex_2escm",(void*)f_28467}, {"f_28468:irregex_2escm",(void*)f_28468}, {"f_22514:irregex_2escm",(void*)f_22514}, {"f_28463:irregex_2escm",(void*)f_28463}, {"f_23514:irregex_2escm",(void*)f_23514}, {"f_29293:irregex_2escm",(void*)f_29293}, {"f_26844:irregex_2escm",(void*)f_26844}, {"f_26848:irregex_2escm",(void*)f_26848}, {"f_19544:irregex_2escm",(void*)f_19544}, {"f_19547:irregex_2escm",(void*)f_19547}, {"f_28495:irregex_2escm",(void*)f_28495}, {"f_28498:irregex_2escm",(void*)f_28498}, {"f_19515:irregex_2escm",(void*)f_19515}, {"f_19517:irregex_2escm",(void*)f_19517}, {"f_28491:irregex_2escm",(void*)f_28491}, {"f_26823:irregex_2escm",(void*)f_26823}, {"f_17008:irregex_2escm",(void*)f_17008}, {"f_19532:irregex_2escm",(void*)f_19532}, {"f_19538:irregex_2escm",(void*)f_19538}, {"f_28402:irregex_2escm",(void*)f_28402}, {"f_19508:irregex_2escm",(void*)f_19508}, {"f_19501:irregex_2escm",(void*)f_19501}, {"f_26861:irregex_2escm",(void*)f_26861}, {"f_26863:irregex_2escm",(void*)f_26863}, {"f_23290:irregex_2escm",(void*)f_23290}, {"f_19525:irregex_2escm",(void*)f_19525}, {"f_19529:irregex_2escm",(void*)f_19529}, {"f_31399:irregex_2escm",(void*)f_31399}, {"f_28438:irregex_2escm",(void*)f_28438}, {"f_17043:irregex_2escm",(void*)f_17043}, {"f_11643:irregex_2escm",(void*)f_11643}, {"f_11699:irregex_2escm",(void*)f_11699}, {"f_11682:irregex_2escm",(void*)f_11682}, {"f_17056:irregex_2escm",(void*)f_17056}, {"f_28456:irregex_2escm",(void*)f_28456}, {"f_12580:irregex_2escm",(void*)f_12580}, {"f_23213:irregex_2escm",(void*)f_23213}, {"f_23216:irregex_2escm",(void*)f_23216}, {"f_23285:irregex_2escm",(void*)f_23285}, {"f_23275:irregex_2escm",(void*)f_23275}, {"f_23265:irregex_2escm",(void*)f_23265}, {"f_11619:irregex_2escm",(void*)f_11619}, {"f_29405:irregex_2escm",(void*)f_29405}, {"f_12543:irregex_2escm",(void*)f_12543}, {"f_11678:irregex_2escm",(void*)f_11678}, {"f_26888:irregex_2escm",(void*)f_26888}, {"f_27485:irregex_2escm",(void*)f_27485}, {"f_13328:irregex_2escm",(void*)f_13328}, {"f_8139:irregex_2escm",(void*)f_8139}, {"f_12510:irregex_2escm",(void*)f_12510}, {"f_30273:irregex_2escm",(void*)f_30273}, {"f_30277:irregex_2escm",(void*)f_30277}, {"f_30279:irregex_2escm",(void*)f_30279}, {"f_27409:irregex_2escm",(void*)f_27409}, {"f_27401:irregex_2escm",(void*)f_27401}, {"f_27405:irregex_2escm",(void*)f_27405}, {"f_31522:irregex_2escm",(void*)f_31522}, {"f_12110:irregex_2escm",(void*)f_12110}, {"f_31525:irregex_2escm",(void*)f_31525}, {"f_31528:irregex_2escm",(void*)f_31528}, {"f_27426:irregex_2escm",(void*)f_27426}, {"f_27422:irregex_2escm",(void*)f_27422}, {"f_27430:irregex_2escm",(void*)f_27430}, {"f_31512:irregex_2escm",(void*)f_31512}, {"f_30253:irregex_2escm",(void*)f_30253}, {"f_12130:irregex_2escm",(void*)f_12130}, {"f_12134:irregex_2escm",(void*)f_12134}, {"f_10496:irregex_2escm",(void*)f_10496}, {"f_31519:irregex_2escm",(void*)f_31519}, {"f_31516:irregex_2escm",(void*)f_31516}, {"f_30231:irregex_2escm",(void*)f_30231}, {"f_22589:irregex_2escm",(void*)f_22589}, {"f_30244:irregex_2escm",(void*)f_30244}, {"f_22593:irregex_2escm",(void*)f_22593}, {"f_22596:irregex_2escm",(void*)f_22596}, {"f_22599:irregex_2escm",(void*)f_22599}, {"f_29653:irregex_2escm",(void*)f_29653}, {"f_10408:irregex_2escm",(void*)f_10408}, {"f_29638:irregex_2escm",(void*)f_29638}, {"f_27676:irregex_2escm",(void*)f_27676}, {"f_27673:irregex_2escm",(void*)f_27673}, {"f_7953:irregex_2escm",(void*)f_7953}, {"f_29631:irregex_2escm",(void*)f_29631}, {"f_10304:irregex_2escm",(void*)f_10304}, {"f_29643:irregex_2escm",(void*)f_29643}, {"f_29693:irregex_2escm",(void*)f_29693}, {"f_29679:irregex_2escm",(void*)f_29679}, {"f_15532:irregex_2escm",(void*)f_15532}, {"f_29676:irregex_2escm",(void*)f_29676}, {"f_29673:irregex_2escm",(void*)f_29673}, {"f_29688:irregex_2escm",(void*)f_29688}, {"f_18701:irregex_2escm",(void*)f_18701}, {"f_10373:irregex_2escm",(void*)f_10373}, {"f_10379:irregex_2escm",(void*)f_10379}, {"f_25254:irregex_2escm",(void*)f_25254}, {"f_25206:irregex_2escm",(void*)f_25206}, {"f_25205:irregex_2escm",(void*)f_25205}, {"f_10352:irregex_2escm",(void*)f_10352}, {"f_15587:irregex_2escm",(void*)f_15587}, {"f_15589:irregex_2escm",(void*)f_15589}, {"f_11171:irregex_2escm",(void*)f_11171}, {"f_29315:irregex_2escm",(void*)f_29315}, {"f_11186:irregex_2escm",(void*)f_11186}, {"f_21871:irregex_2escm",(void*)f_21871}, {"f_29325:irregex_2escm",(void*)f_29325}, {"f_21877:irregex_2escm",(void*)f_21877}, {"f_18934:irregex_2escm",(void*)f_18934}, {"f_21886:irregex_2escm",(void*)f_21886}, {"f_25074:irregex_2escm",(void*)f_25074}, {"f_11165:irregex_2escm",(void*)f_11165}, {"f_25088:irregex_2escm",(void*)f_25088}, {"f_8141:irregex_2escm",(void*)f_8141}, {"f_8145:irregex_2escm",(void*)f_8145}, {"f_25873:irregex_2escm",(void*)f_25873}, {"f_25061:irregex_2escm",(void*)f_25061}, {"f_23487:irregex_2escm",(void*)f_23487}, {"f_25055:irregex_2escm",(void*)f_25055}, {"f_29361:irregex_2escm",(void*)f_29361}, {"f_29369:irregex_2escm",(void*)f_29369}, {"f_25041:irregex_2escm",(void*)f_25041}, {"f_23460:irregex_2escm",(void*)f_23460}, {"f_15507:irregex_2escm",(void*)f_15507}, {"f_20000:irregex_2escm",(void*)f_20000}, {"f_25081:irregex_2escm",(void*)f_25081}, {"f_19488:irregex_2escm",(void*)f_19488}, {"f_26735:irregex_2escm",(void*)f_26735}, {"f_11495:irregex_2escm",(void*)f_11495}, {"f_23413:irregex_2escm",(void*)f_23413}, {"f_18967:irregex_2escm",(void*)f_18967}, {"f_19433:irregex_2escm",(void*)f_19433}, {"f_19439:irregex_2escm",(void*)f_19439}, {"f_19446:irregex_2escm",(void*)f_19446}, {"f_18907:irregex_2escm",(void*)f_18907}, {"f_17316:irregex_2escm",(void*)f_17316}, {"f_20272:irregex_2escm",(void*)f_20272}, {"f_18917:irregex_2escm",(void*)f_18917}, {"f_18913:irregex_2escm",(void*)f_18913}, {"f_9730:irregex_2escm",(void*)f_9730}, {"f_9739:irregex_2escm",(void*)f_9739}, {"f_20262:irregex_2escm",(void*)f_20262}, {"f_26753:irregex_2escm",(void*)f_26753}, {"f_9760:irregex_2escm",(void*)f_9760}, {"f_9767:irregex_2escm",(void*)f_9767}, {"f_26764:irregex_2escm",(void*)f_26764}, {"f_19407:irregex_2escm",(void*)f_19407}, {"f_17345:irregex_2escm",(void*)f_17345}, {"f_9758:irregex_2escm",(void*)f_9758}, {"f_12197:irregex_2escm",(void*)f_12197}, {"f_11557:irregex_2escm",(void*)f_11557}, {"f_11553:irregex_2escm",(void*)f_11553}, {"f_19413:irregex_2escm",(void*)f_19413}, {"f_23075:irregex_2escm",(void*)f_23075}, {"f_17352:irregex_2escm",(void*)f_17352}, {"f_19419:irregex_2escm",(void*)f_19419}, {"f_12163:irregex_2escm",(void*)f_12163}, {"f_20237:irregex_2escm",(void*)f_20237}, {"f_20224:irregex_2escm",(void*)f_20224}, {"f_26797:irregex_2escm",(void*)f_26797}, {"f_26792:irregex_2escm",(void*)f_26792}, {"f_26794:irregex_2escm",(void*)f_26794}, {"f_20221:irregex_2escm",(void*)f_20221}, {"f_23055:irregex_2escm",(void*)f_23055}, {"f_23052:irregex_2escm",(void*)f_23052}, {"f_12188:irregex_2escm",(void*)f_12188}, {"f_12182:irregex_2escm",(void*)f_12182}, {"f_23058:irregex_2escm",(void*)f_23058}, {"f_20259:irregex_2escm",(void*)f_20259}, {"f_17385:irregex_2escm",(void*)f_17385}, {"f_12153:irregex_2escm",(void*)f_12153}, {"f_20244:irregex_2escm",(void*)f_20244}, {"f_18418:irregex_2escm",(void*)f_18418}, {"f_20249:irregex_2escm",(void*)f_20249}, {"f_20241:irregex_2escm",(void*)f_20241}, {"f_11452:irregex_2escm",(void*)f_11452}, {"f_23039:irregex_2escm",(void*)f_23039}, {"f_23035:irregex_2escm",(void*)f_23035}, {"f_22126:irregex_2escm",(void*)f_22126}, {"f_11300:irregex_2escm",(void*)f_11300}, {"f_11427:irregex_2escm",(void*)f_11427}, {"f_12179:irregex_2escm",(void*)f_12179}, {"f_23325:irregex_2escm",(void*)f_23325}, {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| irregex-match-chunk&index-from-tag-set! 1 S| 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| 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| reverse 36 S| make-irregex-match 1 o|eliminated procedure checks: 1179 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|specializations: o| 1 (> fixnum fixnum) o| 1 (char= fixnum fixnum) o| 1 (< fixnum fixnum) o| 5 (<= fixnum fixnum) o| 6 (cddr (pair * pair)) o| 17 (memq * list) o| 4 (##sys#check-list (or pair list) *) o| 3 (memv (or symbol procedure eof null fixnum char boolean) list) o| 3 (string-ref string fixnum) o| 126 (eqv? (not float) *) o| 4 (char=? char char) o| 257 (eqv? * (not float)) o| 210 (cdr pair) o| 5 (cdar (pair pair *)) o| 155 (car pair) o| 1 (irregex-names (struct regexp)) (o e)|safe calls: 3765 (o e)|assignments to immediate values: 13 o|Removed `not' forms: 70 o|inlining procedure: k7653 o|inlining procedure: k7653 o|inlining procedure: k7782 o|contracted procedure: "(irregex-core.scm:229) g782783" o|inlining procedure: k7782 o|inlining procedure: k7807 o|contracted procedure: "(irregex-core.scm:232) g791792" o|inlining procedure: k7807 o|inlining procedure: k7836 o|contracted procedure: "(irregex-core.scm:235) g800801" o|inlining procedure: k7836 o|inlining procedure: k7865 o|inlining procedure: k7865 o|removed side-effect free assignment to unused variable: irregex-match-start-chunk-set! o|removed side-effect free assignment to unused variable: irregex-match-start-index-set! o|removed side-effect free assignment to unused variable: irregex-match-end-chunk-set! o|removed side-effect free assignment to unused variable: irregex-match-end-index-set! o|removed side-effect free assignment to unused variable: irregex-match-chunk&index-from-tag-set! o|contracted procedure: k7958 o|inlining procedure: k7955 o|contracted procedure: k7967 o|inlining procedure: k7970 o|inlining procedure: k7970 o|inlining procedure: k7986 o|inlining procedure: k8024 o|inlining procedure: k8024 o|contracted procedure: "(irregex-core.scm:274) g848849" o|inlining procedure: k8032 o|inlining procedure: k8032 o|contracted procedure: "(irregex-core.scm:273) g841842" o|inlining procedure: k8000 o|inlining procedure: k8000 o|inlining procedure: k7986 o|inlining procedure: k8071 o|inlining procedure: k8071 o|inlining procedure: k8089 o|inlining procedure: k8089 o|contracted procedure: "(irregex-core.scm:284) g862863" o|inlining procedure: k7955 o|inlining procedure: k8146 o|contracted procedure: k8155 o|contracted procedure: "(irregex-core.scm:295) g870871" o|inlining procedure: k8166 o|inlining procedure: k8166 o|inlining procedure: k8146 o|contracted procedure: "(irregex-core.scm:296) irregex-match-valid-named-index?" o|inlining procedure: k7766 o|inlining procedure: k7766 o|contracted procedure: k8197 o|inlining procedure: k8216 o|contracted procedure: "(irregex-core.scm:305) g893894" o|contracted procedure: "(irregex-core.scm:304) g889890" o|contracted procedure: "(irregex-core.scm:303) g885886" o|inlining procedure: "(irregex-core.scm:302) chunker-get-substring" o|inlining procedure: k8216 o|inlining procedure: "(irregex-core.scm:300) irregex-match-chunker" o|contracted procedure: k8303 o|inlining procedure: k8300 o|contracted procedure: "(irregex-core.scm:317) g912913" o|contracted procedure: "(irregex-core.scm:316) g908909" o|contracted procedure: "(irregex-core.scm:315) g904905" o|inlining procedure: k8300 o|inlining procedure: "(irregex-core.scm:311) chunker-get-subchunk" o|inlining procedure: "(irregex-core.scm:310) irregex-match-chunker" o|contracted procedure: k8417 o|inlining procedure: k8430 o|inlining procedure: k8430 o|inlining procedure: k8455 o|inlining procedure: k8455 o|inlining procedure: k8482 o|inlining procedure: k8482 o|inlining procedure: k8652 o|inlining procedure: "(irregex-core.scm:376) chunker-get-end" o|inlining procedure: "(irregex-core.scm:375) chunker-get-str" o|inlining procedure: k8652 o|contracted procedure: "(irregex-core.scm:373) chunker-prev-chunk" o|inlining procedure: k8616 o|inlining procedure: k8616 o|inlining procedure: k8634 o|inlining procedure: k8634 o|inlining procedure: "(irregex-core.scm:365) chunker-get-next" o|inlining procedure: k8685 o|inlining procedure: "(irregex-core.scm:382) chunker-get-start" o|inlining procedure: "(irregex-core.scm:381) chunker-get-str" o|inlining procedure: k8685 o|inlining procedure: "(irregex-core.scm:379) chunker-get-next" o|inlining procedure: k8813 o|inlining procedure: k8813 o|inlining procedure: k9017 o|inlining procedure: k9017 o|removed side-effect free assignment to unused variable: %substring=? o|removed side-effect free assignment to unused variable: %%string-copy! o|contracted procedure: "(irregex-core.scm:470) string-cat-reverse/aux" o|substituted constant variable: u11211126 o|inlining procedure: k9129 o|inlining procedure: k9129 o|inlining procedure: k9150 o|inlining procedure: k9150 o|inlining procedure: k9166 o|inlining procedure: k9166 o|inlining procedure: k9195 o|inlining procedure: k9195 o|removed side-effect free assignment to unused variable: find-tail o|contracted procedure: k9253 o|inlining procedure: k9250 o|inlining procedure: k9265 o|inlining procedure: k9265 o|inlining procedure: k9250 o|inlining procedure: k9288 o|inlining procedure: k9304 o|inlining procedure: k9304 o|inlining procedure: k9288 o|inlining procedure: k9334 o|inlining procedure: k9334 o|inlining procedure: k9349 o|inlining procedure: k9349 o|inlining procedure: k9382 o|inlining procedure: k9382 o|removed side-effect free assignment to unused variable: filter o|removed side-effect free assignment to unused variable: remove o|removed side-effect free assignment to unused variable: bit-shr o|removed side-effect free assignment to unused variable: bit-shl o|removed side-effect free assignment to unused variable: bit-not o|removed side-effect free assignment to unused variable: bit-ior o|removed side-effect free assignment to unused variable: bit-and o|removed side-effect free assignment to unused variable: integer-log o|inlining procedure: k9732 o|inlining procedure: k9732 o|inlining procedure: k9769 o|inlining procedure: k9769 o|inlining procedure: k9803 o|inlining procedure: k9803 o|inlining procedure: k9822 o|inlining procedure: k9822 o|contracted procedure: k9846 o|inlining procedure: k9843 o|inlining procedure: k9843 o|inlining procedure: k9884 o|inlining procedure: k9884 o|inlining procedure: k9913 o|inlining procedure: k9913 o|substituted constant variable: a9939 o|inlining procedure: k9944 o|substituted constant variable: a9976 o|inlining procedure: k9944 o|substituted constant variable: a10021 o|inlining procedure: k10034 o|inlining procedure: k10057 o|inlining procedure: k10057 o|inlining procedure: k10070 o|inlining procedure: k10070 o|inlining procedure: k10103 o|inlining procedure: k10103 o|substituted constant variable: a10132 o|substituted constant variable: a10134 o|inlining procedure: k10034 o|inlining procedure: k10144 o|inlining procedure: k10144 o|inlining procedure: k10183 o|inlining procedure: k10183 o|substituted constant variable: a10199 o|inlining procedure: k10195 o|inlining procedure: k10195 o|substituted constant variable: a10210 o|substituted constant variable: a10212 o|inlining procedure: k10213 o|substituted constant variable: a10233 o|inlining procedure: k10213 o|substituted constant variable: a10249 o|substituted constant variable: a10251 o|substituted constant variable: a10253 o|substituted constant variable: a10255 o|inlining procedure: k10260 o|inlining procedure: k10260 o|inlining procedure: k10283 o|inlining procedure: k10302 o|inlining procedure: k10302 o|inlining procedure: k10283 o|inlining procedure: k10321 o|inlining procedure: k10321 o|substituted constant variable: a10325 o|substituted constant variable: a10330 o|substituted constant variable: a10332 o|substituted constant variable: a10334 o|substituted constant variable: a10339 o|substituted constant variable: a10341 o|substituted constant variable: a10343 o|substituted constant variable: a10345 o|substituted constant variable: a10347 o|inlining procedure: k10354 o|inlining procedure: k10354 o|contracted procedure: k10384 o|inlining procedure: k10381 o|inlining procedure: k10400 o|substituted constant variable: ~case-insensitive? o|propagated global variable: r1040131723 ~case-insensitive? o|inlining procedure: k10400 o|substituted constant variable: ~multi-line? o|inlining procedure: k10418 o|substituted constant variable: ~single-line? o|propagated global variable: r1041931727 ~single-line? o|inlining procedure: k10418 o|substituted constant variable: ~ignore-space? o|inlining procedure: k10436 o|substituted constant variable: *allow-utf8-mode?* o|substituted constant variable: ~utf8? o|substituted constant variable: ~none o|inlining procedure: k10400 o|inlining procedure: k10436 o|substituted constant variable: a10452 o|substituted constant variable: a10454 o|substituted constant variable: a10459 o|substituted constant variable: a10461 o|substituted constant variable: a10466 o|substituted constant variable: a10468 o|substituted constant variable: a10473 o|substituted constant variable: a10475 o|inlining procedure: k10479 o|inlining procedure: k10479 o|substituted constant variable: a10486 o|substituted constant variable: a10488 o|substituted constant variable: a10490 o|inlining procedure: k10381 o|substituted constant variable: ~none o|inlining procedure: k10498 o|inlining procedure: k10498 o|inlining procedure: k10528 o|inlining procedure: k10528 o|substituted constant variable: ~case-insensitive? o|inlining procedure: k10550 o|inlining procedure: k10572 o|inlining procedure: k10572 o|inlining procedure: k10550 o|substituted constant variable: ~case-insensitive? o|inlining procedure: k10606 o|inlining procedure: k10606 o|inlining procedure: k10632 o|inlining procedure: k10632 o|inlining procedure: k10666 o|inlining procedure: k10666 o|contracted procedure: "(irregex-core.scm:759) utf8-backup-to-initial-char" o|inlining procedure: k14445 o|inlining procedure: k14445 o|substituted constant variable: a14474 o|substituted constant variable: a14476 o|substituted constant variable: ~utf8? o|inlining procedure: k10726 o|inlining procedure: k10741 o|contracted procedure: k10750 o|substituted constant variable: a10760 o|inlining procedure: k10753 o|inlining procedure: k10753 o|inlining procedure: k10741 o|substituted constant variable: ~save? o|inlining procedure: k10726 o|substituted constant variable: a10868 o|inlining procedure: k10861 o|inlining procedure: k10861 o|inlining procedure: k10905 o|inlining procedure: k10905 o|substituted constant variable: a10919 o|substituted constant variable: a10927 o|inlining procedure: k10942 o|inlining procedure: k10942 o|substituted constant variable: ~single-line? o|inlining procedure: k10995 o|inlining procedure: k11032 o|inlining procedure: k11052 o|inlining procedure: k11052 o|inlining procedure: k11082 o|inlining procedure: k11082 o|inlining procedure: k11112 o|inlining procedure: k11112 o|substituted constant variable: a11140 o|substituted constant variable: a11142 o|substituted constant variable: a11144 o|substituted constant variable: a11146 o|substituted constant variable: a11148 o|substituted constant variable: a11150 o|inlining procedure: k11032 o|inlining procedure: k10995 o|inlining procedure: k11172 o|inlining procedure: k11172 o|inlining procedure: k11221 o|substituted constant variable: a12047 o|contracted procedure: k11239 o|inlining procedure: k11236 o|inlining procedure: k11270 o|inlining procedure: k11292 o|inlining procedure: k11292 o|substituted constant variable: a11330 o|substituted constant variable: a11338 o|inlining procedure: k11270 o|inlining procedure: k11378 o|substituted constant variable: ~save? o|inlining procedure: k11378 o|substituted constant variable: ~save? o|inlining procedure: k11428 o|substituted constant variable: ~save? o|inlining procedure: k11428 o|inlining procedure: k11459 o|inlining procedure: k11459 o|substituted constant variable: ~save? o|inlining procedure: k11496 o|substituted constant variable: ~save? o|inlining procedure: k11496 o|substituted constant variable: ~save? o|substituted constant variable: a11584 o|substituted constant variable: a11586 o|inlining procedure: k11595 o|substituted constant variable: ~save? o|inlining procedure: k11595 o|inlining procedure: k11626 o|inlining procedure: k11626 o|contracted procedure: k11650 o|inlining procedure: k11647 o|substituted constant variable: ~save? o|inlining procedure: k11647 o|inlining procedure: k11691 o|substituted constant variable: ~save? o|inlining procedure: k11691 o|substituted constant variable: ~save? o|inlining procedure: k11777 o|inlining procedure: k11777 o|inlining procedure: k11799 o|propagated global variable: r1180031810 flag-clear o|inlining procedure: k11799 o|propagated global variable: r1180031815 flag-join o|inlining procedure: k11814 o|inlining procedure: k11814 o|inlining procedure: k11824 o|inlining procedure: k11824 o|substituted constant variable: ~utf8? o|substituted constant variable: ~utf8? o|inlining procedure: k11827 o|inlining procedure: k11827 o|substituted constant variable: ~case-insensitive? o|inlining procedure: k11856 o|substituted constant variable: ~multi-line? o|inlining procedure: k11856 o|substituted constant variable: ~ignore-space? o|inlining procedure: k11890 o|substituted constant variable: *allow-utf8-mode?* o|substituted constant variable: ~utf8? o|inlining procedure: k11890 o|inlining procedure: k11934 o|inlining procedure: k11934 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: a12033 o|inlining procedure: k11236 o|substituted constant variable: ~save? o|inlining procedure: k11221 o|inlining procedure: k12062 o|inlining procedure: k12062 o|inlining procedure: k12100 o|contracted procedure: "(irregex-core.scm:1001) string-parse-cset" o|inlining procedure: k13602 o|inlining procedure: k13602 o|inlining procedure: k13620 o|inlining procedure: k13620 o|contracted procedure: "(irregex-core.scm:1221) cset->sre" o|substituted constant variable: ~case-insensitive? o|inlining procedure: k13660 o|contracted procedure: k13689 o|inlining procedure: k13686 o|inlining procedure: k13704 o|inlining procedure: k13704 o|inlining procedure: k13728 o|inlining procedure: k13728 o|inlining procedure: k13760 o|inlining procedure: k13760 o|substituted constant variable: a13808 o|substituted constant variable: a13813 o|substituted constant variable: a13821 o|inlining procedure: k13686 o|inlining procedure: k13830 o|inlining procedure: k13830 o|substituted constant variable: a13836 o|substituted constant variable: a13851 o|inlining procedure: k13660 o|inlining procedure: k13875 o|consed rest parameter at call site: "(irregex-core.scm:1257) sre->cset" 2 o|substituted constant variable: a13935 o|inlining procedure: k13875 o|substituted constant variable: a13975 o|substituted constant variable: a13977 o|substituted constant variable: a13979 o|substituted constant variable: a13986 o|inlining procedure: k13995 o|consed rest parameter at call site: "(irregex-core.scm:1272) sre->cset" 2 o|inlining procedure: k14036 o|inlining procedure: k14036 o|substituted constant variable: a14084 o|inlining procedure: k14088 o|inlining procedure: k14088 o|inlining procedure: k14100 o|inlining procedure: k14100 o|substituted constant variable: a14113 o|substituted constant variable: a14115 o|substituted constant variable: a14117 o|substituted constant variable: a14119 o|substituted constant variable: a14121 o|substituted constant variable: a14123 o|inlining procedure: k13995 o|substituted constant variable: a14175 o|substituted constant variable: a14177 o|substituted constant variable: a14179 o|substituted constant variable: a14181 o|inlining procedure: k14182 o|inlining procedure: k14193 o|inlining procedure: k14193 o|inlining procedure: "(irregex-core.scm:1294) make-cset" o|substituted constant variable: ~multi-line? o|inlining procedure: k14182 o|inlining procedure: "(irregex-core.scm:1295) make-cset" o|substituted constant variable: ~utf8? o|substituted constant variable: a14218 o|inlining procedure: k12100 o|inlining procedure: k12145 o|inlining procedure: k12145 o|inlining procedure: k12189 o|inlining procedure: k12189 o|inlining procedure: k12226 o|inlining procedure: k12226 o|inlining procedure: k12269 o|contracted procedure: k12278 o|inlining procedure: k12269 o|contracted procedure: "(irregex-core.scm:1017) string-split-char" o|inlining procedure: k8965 o|inlining procedure: k8965 o|inlining procedure: k12329 o|inlining procedure: k12329 o|substituted constant variable: a12335 o|inlining procedure: k12356 o|inlining procedure: k12374 o|inlining procedure: k12374 o|inlining procedure: k12428 o|inlining procedure: k12428 o|inlining procedure: k12482 o|inlining procedure: k12482 o|inlining procedure: k12552 o|inlining procedure: k12552 o|inlining procedure: k12606 o|inlining procedure: k12606 o|inlining procedure: k12664 o|inlining procedure: k12664 o|inlining procedure: k12714 o|inlining procedure: k12714 o|inlining procedure: k12764 o|inlining procedure: k12764 o|inlining procedure: k12828 o|substituted constant variable: a12910 o|contracted procedure: k12840 o|contracted procedure: k12861 o|inlining procedure: k12858 o|inlining procedure: k12858 o|substituted constant variable: ~case-insensitive? o|contracted procedure: "(irregex-core.scm:1086) char-mirror" o|inlining procedure: k13453 o|inlining procedure: k13453 o|inlining procedure: k13465 o|inlining procedure: k13465 o|substituted constant variable: a13478 o|substituted constant variable: a13480 o|substituted constant variable: a13482 o|substituted constant variable: a13484 o|inlining procedure: k12828 o|inlining procedure: k12934 o|inlining procedure: k12934 o|inlining procedure: k12953 o|inlining procedure: k12953 o|substituted constant variable: a13006 o|substituted constant variable: a13026 o|inlining procedure: k13031 o|inlining procedure: k13031 o|substituted constant variable: ~case-insensitive? o|contracted procedure: "(irregex-core.scm:1127) string-scan-pred" o|inlining procedure: k8916 o|inlining procedure: k8916 o|inlining procedure: k13116 o|inlining procedure: k13116 o|substituted constant variable: a13170 o|substituted constant variable: a13172 o|substituted constant variable: a13174 o|substituted constant variable: a13176 o|substituted constant variable: a13178 o|substituted constant variable: a13180 o|substituted constant variable: a13182 o|substituted constant variable: a13184 o|substituted constant variable: a13186 o|substituted constant variable: a13188 o|substituted constant variable: a13190 o|substituted constant variable: a13192 o|substituted constant variable: a13194 o|substituted constant variable: a13196 o|substituted constant variable: a13198 o|substituted constant variable: a13200 o|substituted constant variable: a13202 o|substituted constant variable: a13204 o|substituted constant variable: a13206 o|inlining procedure: k12356 o|inlining procedure: k13240 o|substituted constant variable: ~multi-line? o|inlining procedure: k13240 o|substituted constant variable: ~multi-line? o|inlining procedure: k13302 o|substituted constant variable: ~ignore-space? o|inlining procedure: k13302 o|inlining procedure: k13342 o|inlining procedure: k13342 o|substituted constant variable: ~ignore-space? o|substituted constant variable: a13391 o|substituted constant variable: a13393 o|substituted constant variable: a13395 o|substituted constant variable: a13397 o|substituted constant variable: a13399 o|substituted constant variable: a13401 o|substituted constant variable: a13403 o|substituted constant variable: a13405 o|substituted constant variable: a13407 o|substituted constant variable: a13409 o|substituted constant variable: a13414 o|substituted constant variable: a13416 o|substituted constant variable: a13418 o|substituted constant variable: a13420 o|contracted procedure: k13421 o|inlining procedure: k13438 o|inlining procedure: k13438 o|inlining procedure: k13488 o|inlining procedure: k13488 o|contracted procedure: k13509 o|inlining procedure: k13506 o|inlining procedure: k13506 o|contracted procedure: "(irregex-core.scm:1189) string-scan-char-escape" o|inlining procedure: k8857 o|inlining procedure: k8857 o|inlining procedure: k8869 o|inlining procedure: k8869 o|substituted constant variable: a8890 o|inlining procedure: k13542 o|inlining procedure: k13542 o|substituted constant variable: a13582 o|substituted constant variable: a14229 o|substituted constant variable: table1924 o|inlining procedure: k14257 o|inlining procedure: k14257 o|inlining procedure: k14303 o|inlining procedure: k14303 o|substituted constant variable: a14429 o|substituted constant variable: a14431 o|substituted constant variable: a14433 o|substituted constant variable: a14435 o|inlining procedure: k14484 o|inlining procedure: k14484 o|inlining procedure: k14496 o|inlining procedure: k14496 o|substituted constant variable: a14512 o|substituted constant variable: a14514 o|substituted constant variable: a14516 o|substituted constant variable: a14518 o|inlining procedure: k14563 o|inlining procedure: k14563 o|inlining procedure: k14597 o|inlining procedure: k14597 o|substituted constant variable: a14687 o|substituted constant variable: a14689 o|substituted constant variable: a14691 o|substituted constant variable: a14693 o|inlining procedure: k14830 o|inlining procedure: k14830 o|inlining procedure: k14904 o|contracted procedure: "(irregex-core.scm:1434) g20632072" o|folded constant expression: (integer->char (quote 255)) o|folded constant expression: (integer->char (quote 128)) o|inlining procedure: k14904 o|inlining procedure: k14940 o|inlining procedure: k14940 o|folded constant expression: (integer->char (quote 255)) o|folded constant expression: (integer->char (quote 255)) o|inlining procedure: k15069 o|inlining procedure: k15069 o|folded constant expression: (integer->char (quote 128)) o|folded constant expression: (integer->char (quote 128)) o|inlining procedure: k15216 o|inlining procedure: k15216 o|inlining procedure: k15755 o|inlining procedure: k15773 o|inlining procedure: k15773 o|inlining procedure: k15755 o|contracted procedure: "(irregex-core.scm:1522) unicode-range->utf8-pattern" o|contracted procedure: k14706 o|inlining procedure: k14703 o|inlining procedure: k14730 o|inlining procedure: k14730 o|inlining procedure: k14763 o|inlining procedure: k14763 o|contracted procedure: "(irregex-core.scm:1421) unicode-range-middle" o|inlining procedure: k15690 o|contracted procedure: "(irregex-core.scm:1509) g23012310" o|folded constant expression: (integer->char (quote 255)) o|folded constant expression: (integer->char (quote 128)) o|inlining procedure: k15690 o|inlining procedure: k14703 o|contracted procedure: "(irregex-core.scm:1406) unicode-range-climb-digits" o|inlining procedure: k15330 o|contracted procedure: "(irregex-core.scm:1489) g22232232" o|folded constant expression: (integer->char (quote 255)) o|folded constant expression: (integer->char (quote 128)) o|inlining procedure: k15330 o|contracted procedure: "(irregex-core.scm:1488) utf8-highest-digit-of-length" o|inlining procedure: k14522 o|inlining procedure: k14522 o|inlining procedure: k14534 o|inlining procedure: k14534 o|substituted constant variable: a14550 o|substituted constant variable: a14552 o|substituted constant variable: a14554 o|substituted constant variable: a14556 o|inlining procedure: k15441 o|contracted procedure: "(irregex-core.scm:1500) g22632272" o|folded constant expression: (integer->char (quote 255)) o|folded constant expression: (integer->char (quote 128)) o|inlining procedure: k15441 o|inlining procedure: k15509 o|inlining procedure: k15509 o|inlining procedure: k15591 o|contracted procedure: "(irregex-core.scm:1480) g21702179" o|folded constant expression: (integer->char (quote 255)) o|folded constant expression: (integer->char (quote 128)) o|inlining procedure: k15591 o|inlining procedure: k15631 o|inlining procedure: k15631 o|inlining procedure: k16312 o|inlining procedure: k16312 o|inlining procedure: k16324 o|inlining procedure: k16324 o|inlining procedure: k16342 o|inlining procedure: k16342 o|inlining procedure: k16360 o|inlining procedure: k16360 o|inlining procedure: k16422 o|inlining procedure: k16422 o|inlining procedure: k16483 o|inlining procedure: k16483 o|contracted procedure: "(irregex-core.scm:1627) sre->procedure" o|inlining procedure: "(irregex-core.scm:3107) %irregex-match-fail-set!" o|folded constant expression: (* (quote 0) (quote 4)) o|folded constant expression: (* (quote 0) (quote 4)) o|folded constant expression: (* (quote 0) (quote 4)) o|folded constant expression: (* (quote 0) (quote 4)) o|inlining procedure: k23706 o|consed rest parameter at call site: "(irregex-core.scm:3115) sre->cset" 2 o|substituted constant variable: ~case-insensitive? o|inlining procedure: k23732 o|consed rest parameter at call site: "(irregex-core.scm:3120) sre->cset" 2 o|substituted constant variable: ~case-insensitive? o|inlining procedure: k23732 o|inlining procedure: k23761 o|inlining procedure: k23761 o|substituted constant variable: a23827 o|substituted constant variable: a23829 o|inlining procedure: k23832 o|substituted constant variable: ~case-insensitive? o|inlining procedure: k23832 o|substituted constant variable: ~case-insensitive? o|inlining procedure: k23870 o|substituted constant variable: ~utf8? o|inlining procedure: k23870 o|substituted constant variable: ~utf8? o|inlining procedure: k23908 o|inlining procedure: k23926 o|inlining procedure: k23926 o|substituted constant variable: a23970 o|substituted constant variable: a23972 o|inlining procedure: k23908 o|inlining procedure: k24001 o|inlining procedure: k24001 o|inlining procedure: k24033 o|inlining procedure: k24033 o|inlining procedure: k24072 o|inlining procedure: k24072 o|inlining procedure: k24132 o|inlining procedure: k24132 o|inlining procedure: k24169 o|inlining procedure: k24169 o|inlining procedure: k24228 o|inlining procedure: k24264 o|inlining procedure: k24264 o|inlining procedure: k24282 o|inlining procedure: k24282 o|inlining procedure: k24305 o|inlining procedure: k24305 o|inlining procedure: k24322 o|inlining procedure: k24322 o|inlining procedure: k24337 o|inlining procedure: k24337 o|contracted procedure: k24350 o|inlining procedure: k24347 o|inlining procedure: k24347 o|inlining procedure: k24362 o|inlining procedure: k24362 o|inlining procedure: k24228 o|inlining procedure: k24392 o|inlining procedure: k24422 o|inlining procedure: k24422 o|inlining procedure: k24444 o|inlining procedure: k24444 o|inlining procedure: k24392 o|inlining procedure: k24478 o|inlining procedure: k24478 o|inlining procedure: k24505 o|inlining procedure: k24505 o|contracted procedure: k24518 o|inlining procedure: k24515 o|inlining procedure: k24515 o|inlining procedure: k24530 o|inlining procedure: k24530 o|inlining procedure: k24554 o|inlining procedure: k24554 o|inlining procedure: k24612 o|inlining procedure: k24612 o|inlining procedure: k24640 o|inlining procedure: k24640 o|inlining procedure: k24664 o|inlining procedure: k24675 o|inlining procedure: k24675 o|inlining procedure: k24664 o|inlining procedure: k24729 o|inlining procedure: k24729 o|inlining procedure: "(irregex-core.scm:3326) chunker-get-end" o|inlining procedure: "(irregex-core.scm:3324) chunker-get-str" o|contracted procedure: "(irregex-core.scm:3323) wrap-end-chunker" o|contracted procedure: k8748 o|inlining procedure: k8745 o|inlining procedure: k8745 o|inlining procedure: "(irregex-core.scm:396) chunker-get-next" o|inlining procedure: k8772 o|inlining procedure: k8772 o|inlining procedure: "(irregex-core.scm:399) chunker-get-end" o|inlining procedure: "(irregex-core.scm:401) chunker-get-subchunk" o|inlining procedure: "(irregex-core.scm:400) chunker-get-substring" o|inlining procedure: "(irregex-core.scm:398) chunker-get-start" o|inlining procedure: "(irregex-core.scm:397) chunker-get-str" o|inlining procedure: k24785 o|inlining procedure: k24799 o|inlining procedure: k24799 o|inlining procedure: k24785 o|inlining procedure: k24835 o|inlining procedure: k24849 o|inlining procedure: k24849 o|contracted procedure: "(irregex-core.scm:3364) g47334734" o|inlining procedure: k24884 o|inlining procedure: k24884 o|inlining procedure: k24835 o|inlining procedure: k24973 o|contracted procedure: k24996 o|inlining procedure: k24993 o|inlining procedure: k25012 o|inlining procedure: k25012 o|inlining procedure: k25062 o|inlining procedure: "(irregex-core.scm:3409) chunker-get-end" o|inlining procedure: "(irregex-core.scm:3408) chunker-get-start" o|inlining procedure: "(irregex-core.scm:3407) chunker-get-str" o|inlining procedure: k25062 o|inlining procedure: "(irregex-core.scm:3404) chunker-get-next" o|inlining procedure: k24993 o|inlining procedure: k25134 o|inlining procedure: k25134 o|substituted constant variable: ~case-insensitive? o|inlining procedure: k25150 o|inlining procedure: k25150 o|inlining procedure: k24973 o|inlining procedure: k25194 o|contracted procedure: "(irregex-core.scm:3438) g48464847" o|contracted procedure: "(irregex-core.scm:3437) g48424843" o|contracted procedure: "(irregex-core.scm:3424) g48124813" o|inlining procedure: k25194 o|substituted constant variable: a25437 o|substituted constant variable: a25439 o|substituted constant variable: a25444 o|substituted constant variable: a25446 o|substituted constant variable: a25448 o|substituted constant variable: a25453 o|substituted constant variable: a25455 o|substituted constant variable: a25457 o|substituted constant variable: a25459 o|substituted constant variable: a25464 o|substituted constant variable: a25466 o|substituted constant variable: a25468 o|substituted constant variable: a25470 o|substituted constant variable: a25472 o|substituted constant variable: a25474 o|substituted constant variable: a25476 o|substituted constant variable: a25478 o|substituted constant variable: a25480 o|substituted constant variable: a25482 o|substituted constant variable: a25484 o|substituted constant variable: a25486 o|substituted constant variable: a25488 o|substituted constant variable: a25490 o|substituted constant variable: a25492 o|substituted constant variable: a25494 o|substituted constant variable: a25499 o|substituted constant variable: a25501 o|substituted constant variable: a25503 o|substituted constant variable: a25505 o|substituted constant variable: a25507 o|substituted constant variable: a25509 o|substituted constant variable: a25511 o|inlining procedure: k25515 o|inlining procedure: k25515 o|substituted constant variable: a25528 o|substituted constant variable: a25530 o|substituted constant variable: a25532 o|substituted constant variable: a25534 o|inlining procedure: k23706 o|inlining procedure: k25543 o|inlining procedure: k25551 o|inlining procedure: k25551 o|inlining procedure: "(irregex-core.scm:3462) chunker-get-end" o|inlining procedure: "(irregex-core.scm:3461) chunker-get-start" o|inlining procedure: "(irregex-core.scm:3460) chunker-get-str" o|inlining procedure: "(irregex-core.scm:3458) chunker-get-next" o|inlining procedure: k25543 o|inlining procedure: k25609 o|contracted procedure: k25618 o|substituted constant variable: a25635 o|inlining procedure: k25609 o|contracted procedure: k25670 o|inlining procedure: k25667 o|inlining procedure: k25667 o|substituted constant variable: a25687 o|inlining procedure: "(irregex-core.scm:3475) chunker-get-end" o|inlining procedure: "(irregex-core.scm:3474) chunker-get-start" o|inlining procedure: "(irregex-core.scm:3473) chunker-get-str" o|inlining procedure: "(irregex-core.scm:3471) chunker-get-next" o|inlining procedure: k25695 o|inlining procedure: k25703 o|inlining procedure: k25703 o|inlining procedure: k25695 o|inlining procedure: k25735 o|inlining procedure: k25735 o|inlining procedure: k25750 o|substituted constant variable: a25759 o|inlining procedure: k25750 o|inlining procedure: "(irregex-core.scm:3488) chunker-get-start" o|inlining procedure: k25787 o|inlining procedure: k25795 o|inlining procedure: k25795 o|inlining procedure: k25810 o|inlining procedure: k25810 o|inlining procedure: "(irregex-core.scm:3504) chunker-get-start" o|inlining procedure: "(irregex-core.scm:3503) chunker-get-str" o|inlining procedure: "(irregex-core.scm:3500) chunker-get-next" o|inlining procedure: k25877 o|inlining procedure: k25877 o|inlining procedure: "(irregex-core.scm:3494) chunker-get-start" o|inlining procedure: k25787 o|inlining procedure: k25902 o|inlining procedure: k25902 o|inlining procedure: "(irregex-core.scm:3509) chunker-get-next" o|inlining procedure: k25927 o|inlining procedure: k25935 o|inlining procedure: k25935 o|substituted constant variable: a25953 o|contracted procedure: k25967 o|inlining procedure: k25964 o|substituted constant variable: a25973 o|inlining procedure: "(irregex-core.scm:3521) chunker-get-start" o|inlining procedure: "(irregex-core.scm:3520) chunker-get-str" o|inlining procedure: k25964 o|inlining procedure: "(irregex-core.scm:3516) chunker-get-next" o|inlining procedure: k25927 o|inlining procedure: k26000 o|inlining procedure: k26000 o|inlining procedure: k26015 o|inlining procedure: k26015 o|inlining procedure: "(irregex-core.scm:3530) chunker-get-start" o|inlining procedure: k26071 o|inlining procedure: k26071 o|inlining procedure: k26081 o|inlining procedure: k26095 o|inlining procedure: k26095 o|inlining procedure: k26107 o|inlining procedure: k26107 o|inlining procedure: "(irregex-core.scm:3541) chunker-get-start" o|inlining procedure: k26081 o|inlining procedure: k26164 o|inlining procedure: k26164 o|substituted constant variable: a26178 o|substituted constant variable: a26180 o|substituted constant variable: a26182 o|substituted constant variable: a26184 o|substituted constant variable: a26186 o|substituted constant variable: a26188 o|substituted constant variable: a26190 o|substituted constant variable: a26192 o|substituted constant variable: a26194 o|substituted constant variable: a26196 o|inlining procedure: k26197 o|inlining procedure: k26211 o|inlining procedure: k26230 o|inlining procedure: "(irregex-core.scm:3568) chunker-get-next" o|inlining procedure: k26267 o|inlining procedure: k26267 o|inlining procedure: "(irregex-core.scm:3566) chunker-get-end" o|inlining procedure: "(irregex-core.scm:3565) chunker-get-start" o|inlining procedure: "(irregex-core.scm:3564) chunker-get-str" o|inlining procedure: k26230 o|inlining procedure: "(irregex-core.scm:3562) chunker-get-next" o|inlining procedure: k26211 o|inlining procedure: k26312 o|inlining procedure: k26331 o|inlining procedure: "(irregex-core.scm:3586) chunker-get-next" o|inlining procedure: k26368 o|inlining procedure: k26368 o|inlining procedure: "(irregex-core.scm:3584) chunker-get-end" o|inlining procedure: "(irregex-core.scm:3583) chunker-get-start" o|inlining procedure: "(irregex-core.scm:3582) chunker-get-str" o|inlining procedure: k26331 o|inlining procedure: "(irregex-core.scm:3580) chunker-get-next" o|inlining procedure: k26312 o|substituted constant variable: ~case-insensitive? o|inlining procedure: k26197 o|substituted constant variable: ~none o|inlining procedure: k16500 o|substituted constant variable: ~consumer? o|propagated global variable: r1650132381 ~consumer? o|inlining procedure: k16500 o|substituted constant variable: ~none o|inlining procedure: k16507 o|substituted constant variable: ~searcher? o|propagated global variable: r1650832385 ~searcher? o|substituted constant variable: ~none o|inlining procedure: k16507 o|substituted constant variable: ~none o|contracted procedure: "(irregex-core.scm:1619) sre-length-ranges" o|inlining procedure: k17286 o|inlining procedure: k17286 o|inlining procedure: k17292 o|inlining procedure: k17308 o|inlining procedure: k17308 o|inlining procedure: k17337 o|inlining procedure: k17354 o|inlining procedure: k17368 o|inlining procedure: k17368 o|inlining procedure: k17354 o|inlining procedure: k17403 o|inlining procedure: k17403 o|inlining procedure: k17337 o|inlining procedure: k17432 o|inlining procedure: k17446 o|inlining procedure: k17446 o|inlining procedure: k17456 o|inlining procedure: k17456 o|inlining procedure: k17432 o|inlining procedure: k17485 o|inlining procedure: k17485 o|inlining procedure: k17503 o|inlining procedure: k17573 o|inlining procedure: k17579 o|inlining procedure: k17579 o|inlining procedure: k17573 o|inlining procedure: k17606 o|inlining procedure: k17606 o|inlining procedure: k17503 o|inlining procedure: k17661 o|inlining procedure: k17695 o|inlining procedure: k17695 o|inlining procedure: k17661 o|inlining procedure: k17719 o|inlining procedure: k17719 o|contracted procedure: k17734 o|inlining procedure: k17754 o|inlining procedure: k17754 o|inlining procedure: k17799 o|inlining procedure: k17799 o|inlining procedure: k17818 o|inlining procedure: k17818 o|inlining procedure: k17851 o|inlining procedure: k17851 o|inlining procedure: k17887 o|inlining procedure: k17887 o|contracted procedure: k17948 o|inlining procedure: k17945 o|inlining procedure: k17945 o|inlining procedure: k17960 o|inlining procedure: k17960 o|inlining procedure: k17984 o|inlining procedure: k17984 o|inlining procedure: k18032 o|inlining procedure: k18032 o|inlining procedure: k18043 o|substituted constant variable: a18080 o|inlining procedure: k18072 o|inlining procedure: k18072 o|inlining procedure: k18043 o|inlining procedure: k18098 o|inlining procedure: k18098 o|inlining procedure: k18129 o|inlining procedure: k18129 o|substituted constant variable: a18142 o|substituted constant variable: a18144 o|substituted constant variable: a18146 o|substituted constant variable: a18148 o|inlining procedure: k18152 o|inlining procedure: k18152 o|substituted constant variable: a18165 o|substituted constant variable: a18167 o|substituted constant variable: a18169 o|substituted constant variable: a18171 o|substituted constant variable: a18176 o|substituted constant variable: a18178 o|substituted constant variable: a18180 o|substituted constant variable: a18185 o|substituted constant variable: a18187 o|substituted constant variable: a18192 o|substituted constant variable: a18194 o|substituted constant variable: a18199 o|substituted constant variable: a18201 o|inlining procedure: k18205 o|inlining procedure: k18205 o|substituted constant variable: a18218 o|substituted constant variable: a18220 o|substituted constant variable: a18222 o|substituted constant variable: a18224 o|substituted constant variable: a18226 o|substituted constant variable: a18228 o|substituted constant variable: a18230 o|inlining procedure: k18234 o|inlining procedure: k18234 o|inlining procedure: k18246 o|inlining procedure: k18246 o|substituted constant variable: a18253 o|substituted constant variable: a18255 o|substituted constant variable: a18257 o|substituted constant variable: a18259 o|substituted constant variable: a18261 o|substituted constant variable: a18263 o|inlining procedure: k18267 o|inlining procedure: k18267 o|substituted constant variable: a18280 o|substituted constant variable: a18282 o|substituted constant variable: a18284 o|substituted constant variable: a18286 o|inlining procedure: k17292 o|inlining procedure: k18298 o|inlining procedure: k18298 o|substituted constant variable: a18316 o|substituted constant variable: a18324 o|inlining procedure: k18320 o|inlining procedure: k18320 o|inlining procedure: k18338 o|inlining procedure: k18338 o|consed rest parameter at call site: "(irregex-core.scm:1615) nfa->dfa" 2 o|substituted constant variable: a16529 o|inlining procedure: k16531 o|inlining procedure: k16531 o|consed rest parameter at call site: "(irregex-core.scm:1611) nfa->dfa" 2 o|substituted constant variable: a16564 o|substituted constant variable: a16569 o|inlining procedure: k16566 o|inlining procedure: k16566 o|substituted constant variable: *allow-utf8-mode?* o|contracted procedure: "(irregex-core.scm:1598) sre-adjust-utf8" o|inlining procedure: k15873 o|inlining procedure: k15895 o|inlining procedure: k15895 o|inlining procedure: k15940 o|inlining procedure: k15940 o|inlining procedure: k15971 o|inlining procedure: k16001 o|inlining procedure: k16001 o|inlining procedure: k15971 o|contracted procedure: k16044 o|inlining procedure: k16041 o|inlining procedure: k16056 o|inlining procedure: k16056 o|consed rest parameter at call site: "(irregex-core.scm:1543) sre->cset" 2 o|inlining procedure: k16041 o|inlining procedure: k16073 o|inlining procedure: k16088 o|inlining procedure: k16088 o|inlining procedure: k16111 o|inlining procedure: k16111 o|substituted constant variable: a16143 o|substituted constant variable: a16145 o|inlining procedure: k16073 o|inlining procedure: k16167 o|inlining procedure: k16167 o|substituted constant variable: a16199 o|inlining procedure: k16203 o|inlining procedure: k16203 o|substituted constant variable: a16216 o|substituted constant variable: a16218 o|substituted constant variable: a16220 o|substituted constant variable: a16222 o|substituted constant variable: a16224 o|substituted constant variable: a16226 o|substituted constant variable: a16228 o|substituted constant variable: a16230 o|inlining procedure: k15873 o|inlining procedure: k16237 o|inlining procedure: k16237 o|inlining procedure: k16265 o|inlining procedure: k16265 o|inlining procedure: k16296 o|inlining procedure: k16296 o|substituted constant variable: a16306 o|substituted constant variable: a16308 o|substituted constant variable: ~case-insensitive? o|substituted constant variable: ~utf8? o|inlining procedure: k16580 o|inlining procedure: k16596 o|inlining procedure: k16596 o|inlining procedure: k16633 o|inlining procedure: k16633 o|inlining procedure: k16650 o|inlining procedure: k16650 o|inlining procedure: k16662 o|inlining procedure: k16662 o|inlining procedure: k16674 o|inlining procedure: k16674 o|substituted constant variable: a16687 o|substituted constant variable: a16689 o|substituted constant variable: a16691 o|substituted constant variable: a16693 o|substituted constant variable: a16695 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|inlining procedure: k16709 o|inlining procedure: k16709 o|inlining procedure: k16721 o|inlining procedure: k16721 o|substituted constant variable: a16734 o|substituted constant variable: a16736 o|substituted constant variable: a16738 o|substituted constant variable: a16740 o|substituted constant variable: a16742 o|substituted constant variable: a16744 o|inlining procedure: k16580 o|substituted constant variable: a16746 o|inlining procedure: k16753 o|inlining procedure: k16753 o|inlining procedure: k16763 o|inlining procedure: k16778 o|inlining procedure: k16778 o|inlining procedure: k16763 o|substituted constant variable: a16808 o|inlining procedure: k16812 o|inlining procedure: k16812 o|inlining procedure: k16824 o|inlining procedure: k16824 o|substituted constant variable: a16837 o|substituted constant variable: a16839 o|substituted constant variable: a16841 o|substituted constant variable: a16843 o|substituted constant variable: a16845 o|substituted constant variable: a16847 o|substituted constant variable: a16859 o|inlining procedure: k16851 o|substituted constant variable: a16868 o|inlining procedure: k16863 o|inlining procedure: k16875 o|inlining procedure: k16875 o|inlining procedure: k16863 o|inlining procedure: k16851 o|inlining procedure: k16896 o|inlining procedure: k16921 o|inlining procedure: k16921 o|substituted constant variable: a16957 o|inlining procedure: k16961 o|inlining procedure: k16961 o|inlining procedure: k16973 o|inlining procedure: k16973 o|substituted constant variable: a16986 o|substituted constant variable: a16988 o|substituted constant variable: a16990 o|substituted constant variable: a16992 o|substituted constant variable: a16994 o|substituted constant variable: a16996 o|substituted constant variable: a17001 o|substituted constant variable: a17003 o|inlining procedure: k16896 o|inlining procedure: k17010 o|inlining procedure: k17035 o|inlining procedure: k17035 o|substituted constant variable: a17071 o|inlining procedure: k17075 o|inlining procedure: k17075 o|inlining procedure: k17087 o|inlining procedure: k17087 o|substituted constant variable: a17100 o|substituted constant variable: a17102 o|substituted constant variable: a17104 o|substituted constant variable: a17106 o|substituted constant variable: a17108 o|substituted constant variable: a17110 o|substituted constant variable: a17115 o|substituted constant variable: a17117 o|inlining procedure: k17010 o|substituted constant variable: a17132 o|inlining procedure: k17124 o|inlining procedure: k17136 o|inlining procedure: k17136 o|inlining procedure: k17124 o|inlining procedure: k17169 o|inlining procedure: k17186 o|inlining procedure: k17186 o|inlining procedure: k17212 o|inlining procedure: k17212 o|substituted constant variable: a17230 o|substituted constant variable: a17232 o|inlining procedure: k17236 o|inlining procedure: k17236 o|substituted constant variable: a17249 o|substituted constant variable: a17251 o|substituted constant variable: a17253 o|substituted constant variable: a17255 o|inlining procedure: k17169 o|inlining procedure: k18374 o|inlining procedure: k18374 o|inlining procedure: k18397 o|inlining procedure: k18397 o|contracted procedure: k18423 o|inlining procedure: k18420 o|inlining procedure: k18447 o|inlining procedure: k18447 o|inlining procedure: k18493 o|inlining procedure: k18493 o|substituted constant variable: a18525 o|substituted constant variable: a18530 o|substituted constant variable: a18532 o|substituted constant variable: a18537 o|substituted constant variable: a18539 o|inlining procedure: k18420 o|contracted procedure: k18604 o|inlining procedure: k18601 o|inlining procedure: k18632 o|inlining procedure: k18632 o|inlining procedure: k18693 o|inlining procedure: k18693 o|inlining procedure: k18723 o|inlining procedure: k18723 o|substituted constant variable: a18743 o|substituted constant variable: a18745 o|substituted constant variable: a18750 o|substituted constant variable: a18752 o|inlining procedure: k18756 o|inlining procedure: k18756 o|inlining procedure: k18768 o|inlining procedure: k18768 o|inlining procedure: k18780 o|inlining procedure: k18780 o|inlining procedure: k18792 o|inlining procedure: k18792 o|inlining procedure: k18804 o|inlining procedure: k18804 o|inlining procedure: k18816 o|inlining procedure: k18816 o|inlining procedure: k18828 o|inlining procedure: k18828 o|substituted constant variable: a18835 o|substituted constant variable: a18837 o|substituted constant variable: a18839 o|substituted constant variable: a18841 o|substituted constant variable: a18843 o|substituted constant variable: a18845 o|substituted constant variable: a18847 o|substituted constant variable: a18849 o|substituted constant variable: a18851 o|substituted constant variable: a18853 o|substituted constant variable: a18855 o|substituted constant variable: a18857 o|substituted constant variable: a18859 o|substituted constant variable: a18861 o|substituted constant variable: a18863 o|substituted constant variable: a18865 o|substituted constant variable: a18870 o|substituted constant variable: a18872 o|substituted constant variable: a18877 o|substituted constant variable: a18879 o|inlining procedure: k18601 o|inlining procedure: k18887 o|inlining procedure: k18887 o|inlining procedure: k18919 o|contracted procedure: k18938 o|inlining procedure: k18935 o|inlining procedure: k18935 o|inlining procedure: k18985 o|inlining procedure: k19008 o|inlining procedure: k19008 o|inlining procedure: k18985 o|substituted constant variable: a19040 o|inlining procedure: k19044 o|inlining procedure: k19044 o|inlining procedure: k19056 o|inlining procedure: k19056 o|inlining procedure: k19068 o|inlining procedure: k19068 o|substituted constant variable: a19081 o|substituted constant variable: a19083 o|substituted constant variable: a19085 o|substituted constant variable: a19087 o|substituted constant variable: a19089 o|substituted constant variable: a19091 o|substituted constant variable: a19093 o|substituted constant variable: a19095 o|inlining procedure: k18919 o|contracted procedure: k19131 o|contracted procedure: k19147 o|inlining procedure: k19169 o|inlining procedure: k19169 o|contracted procedure: k19184 o|inlining procedure: "(irregex-core.scm:1960) irregex-match-chunker-set!" o|contracted procedure: k19219 o|inlining procedure: "(irregex-core.scm:1958) chunker-get-start" o|inlining procedure: k19242 o|inlining procedure: k19254 o|folded constant expression: (* (quote 0) (quote 4)) o|folded constant expression: (* (quote 0) (quote 4)) o|inlining procedure: k19254 o|inlining procedure: k19291 o|inlining procedure: k19324 o|folded constant expression: (* (quote 0) (quote 4)) o|folded constant expression: (* (quote 0) (quote 4)) o|inlining procedure: k19324 o|inlining procedure: k19365 o|inlining procedure: k19365 o|inlining procedure: "(irregex-core.scm:1982) chunker-get-next" o|inlining procedure: "(irregex-core.scm:1981) chunker-get-end" o|inlining procedure: "(irregex-core.scm:1980) chunker-get-start" o|inlining procedure: k19291 o|contracted procedure: "(irregex-core.scm:1977) dfa-match/shortest" o|inlining procedure: k19919 o|inlining procedure: k19934 o|inlining procedure: k19934 o|inlining procedure: k19985 o|inlining procedure: k19985 o|inlining procedure: k20005 o|inlining procedure: k20005 o|contracted procedure: k20011 o|inlining procedure: k20037 o|inlining procedure: k20037 o|inlining procedure: "(irregex-core.scm:2111) dfa-finalizer" o|inlining procedure: k19919 o|inlining procedure: "(irregex-core.scm:2103) dfa-init-state" o|inlining procedure: "(irregex-core.scm:2101) chunker-get-next" o|inlining procedure: "(irregex-core.scm:2100) chunker-get-end" o|inlining procedure: "(irregex-core.scm:2099) chunker-get-start" o|inlining procedure: "(irregex-core.scm:2098) chunker-get-str" o|substituted constant variable: ~searcher? o|inlining procedure: k19242 o|inlining procedure: "(irregex-core.scm:2000) %irregex-match-fail-set!" o|contracted procedure: "(irregex-core.scm:1999) irregex-search/backtrack" o|inlining procedure: k19423 o|inlining procedure: k19423 o|inlining procedure: k19441 o|folded constant expression: (* (quote 0) (quote 4)) o|folded constant expression: (* (quote 0) (quote 4)) o|inlining procedure: k19441 o|inlining procedure: k19489 o|inlining procedure: "(irregex-core.scm:2027) chunker-get-end" o|inlining procedure: "(irregex-core.scm:2026) chunker-get-start" o|inlining procedure: "(irregex-core.scm:2025) chunker-get-str" o|inlining procedure: k19489 o|substituted constant variable: ~searcher? o|inlining procedure: "(irregex-core.scm:2007) chunker-get-next" o|inlining procedure: "(irregex-core.scm:2006) chunker-get-end" o|inlining procedure: "(irregex-core.scm:2005) chunker-get-str" o|contracted procedure: k19555 o|contracted procedure: k19571 o|inlining procedure: k19593 o|inlining procedure: k19593 o|contracted procedure: k19608 o|inlining procedure: k19630 o|inlining procedure: k19642 o|inlining procedure: "(irregex-core.scm:2057) chunker-get-start" o|folded constant expression: (* (quote 0) (quote 4)) o|folded constant expression: (* (quote 0) (quote 4)) o|inlining procedure: k19642 o|contracted procedure: "(irregex-core.scm:2051) g33473348" o|inlining procedure: "(irregex-core.scm:2051) chunker-get-end" o|inlining procedure: "(irregex-core.scm:2050) chunker-get-start" o|inlining procedure: k19630 o|inlining procedure: k19759 o|inlining procedure: "(irregex-core.scm:2073) %irregex-match-fail-set!" o|inlining procedure: k19771 o|inlining procedure: "(irregex-core.scm:2076) %irregex-match-fail" o|inlining procedure: k19771 o|inlining procedure: "(irregex-core.scm:2075) %irregex-match-fail" o|contracted procedure: k19787 o|contracted procedure: "(irregex-core.scm:2071) g33873388" o|inlining procedure: "(irregex-core.scm:2070) chunker-get-end" o|contracted procedure: "(irregex-core.scm:2069) g33813382" o|inlining procedure: "(irregex-core.scm:2068) chunker-get-next" o|inlining procedure: k19759 o|inlining procedure: "(irregex-core.scm:2063) chunker-get-end" o|inlining procedure: "(irregex-core.scm:2062) chunker-get-start" o|inlining procedure: "(irregex-core.scm:2061) chunker-get-str" o|inlining procedure: "(irregex-core.scm:2045) irregex-match-chunker-set!" o|inlining procedure: k19861 o|inlining procedure: k19861 o|removed unused formal parameters: (dfa3405) o|removed unused formal parameters: (dfa3408) o|inlining procedure: k20084 o|inlining procedure: k20084 o|inlining procedure: k20103 o|inlining procedure: k20103 o|inlining procedure: k20124 o|inlining procedure: k20124 o|inlining procedure: k20251 o|inlining procedure: k20273 o|inlining procedure: k20299 o|inlining procedure: k20299 o|contracted procedure: "(irregex-core.scm:2193) g35883589" o|inlining procedure: k20273 o|contracted procedure: k20311 o|inlining procedure: k20251 o|inlining procedure: k20372 o|inlining procedure: k20372 o|inlining procedure: k20465 o|inlining procedure: k20465 o|inlining procedure: k20488 o|inlining procedure: k20488 o|inlining procedure: "(irregex-core.scm:2209) dfa-cell-commands" o|inlining procedure: "(irregex-core.scm:2206) dfa-finalizer" o|inlining procedure: k20517 o|inlining procedure: k20517 o|inlining procedure: k20565 o|inlining procedure: k20565 o|contracted procedure: "(irregex-core.scm:2235) g36793680" o|inlining procedure: k20597 o|inlining procedure: k20597 o|contracted procedure: k20603 o|inlining procedure: k20662 o|inlining procedure: k20662 o|inlining procedure: "(irregex-core.scm:2169) dfa-cell-commands" o|inlining procedure: "(irregex-core.scm:2160) dfa-finalizer" o|contracted procedure: "(irregex-core.scm:2157) make-initial-memory" o|inlining procedure: k20159 o|inlining procedure: k20159 o|inlining procedure: "(irregex-core.scm:2153) dfa-init-state" o|inlining procedure: "(irregex-core.scm:2152) chunker-get-next" o|inlining procedure: "(irregex-core.scm:2151) chunker-get-end" o|inlining procedure: "(irregex-core.scm:2150) chunker-get-start" o|inlining procedure: "(irregex-core.scm:2149) chunker-get-str" o|substituted constant variable: *nfa-num-fields* o|substituted constant variable: *nfa-num-fields* o|inlining procedure: k20791 o|inlining procedure: k20791 o|substituted constant variable: *nfa-num-fields* o|contracted procedure: k20831 o|inlining procedure: k20828 o|inlining procedure: k20828 o|contracted procedure: "(irregex-core.scm:2394) nfa-set-epsilons!" o|substituted constant variable: *nfa-num-fields* o|contracted procedure: "(irregex-core.scm:2451) nfa-set-state-trans!" o|substituted constant variable: *nfa-num-fields* o|inlining procedure: k21011 o|inlining procedure: k21011 o|substituted constant variable: *nfa-num-fields* o|inlining procedure: k21055 o|inlining procedure: k21055 o|inlining procedure: k21075 o|inlining procedure: k21075 o|substituted constant variable: ~case-insensitive? o|inlining procedure: k21103 o|inlining procedure: k21103 o|inlining procedure: k21121 o|inlining procedure: k21121 o|inlining procedure: k21136 o|inlining procedure: k21158 o|inlining procedure: k21158 o|inlining procedure: k21136 o|inlining procedure: k21208 o|inlining procedure: k21228 o|inlining procedure: k21228 o|inlining procedure: k21208 o|inlining procedure: k21253 o|substituted constant variable: ~case-insensitive? o|inlining procedure: k21253 o|inlining procedure: k21316 o|substituted constant variable: a21355 o|inlining procedure: k21349 o|substituted constant variable: ~case-insensitive? o|propagated global variable: r2135032960 ~case-insensitive? o|inlining procedure: k21349 o|substituted constant variable: ~utf8? o|propagated global variable: r2135032962 ~utf8? o|substituted constant variable: a21360 o|inlining procedure: k21316 o|consed rest parameter at call site: "(irregex-core.scm:2518) sre->cset" 2 o|substituted constant variable: ~case-insensitive? o|inlining procedure: k21390 o|inlining procedure: k21402 o|inlining procedure: k21402 o|inlining procedure: k21390 o|inlining procedure: k21487 o|inlining procedure: k21487 o|inlining procedure: k21509 o|inlining procedure: k21530 o|inlining procedure: k21530 o|inlining procedure: k21509 o|inlining procedure: k21581 o|inlining procedure: k21581 o|inlining procedure: k21641 o|inlining procedure: k21671 o|inlining procedure: k21671 o|inlining procedure: k21641 o|inlining procedure: k21727 o|inlining procedure: k21727 o|substituted constant variable: a21774 o|substituted constant variable: a21776 o|substituted constant variable: a21781 o|substituted constant variable: a21783 o|substituted constant variable: a21788 o|substituted constant variable: a21790 o|substituted constant variable: a21792 o|substituted constant variable: a21794 o|inlining procedure: k21798 o|inlining procedure: k21798 o|substituted constant variable: a21811 o|substituted constant variable: a21813 o|substituted constant variable: a21815 o|substituted constant variable: a21817 o|inlining procedure: k21821 o|inlining procedure: k21821 o|substituted constant variable: a21834 o|substituted constant variable: a21836 o|substituted constant variable: a21838 o|substituted constant variable: a21840 o|substituted constant variable: a21845 o|substituted constant variable: a21847 o|inlining procedure: k21872 o|inlining procedure: k21888 o|inlining procedure: k21888 o|substituted constant variable: *nfa-num-fields* o|inlining procedure: k21872 o|contracted procedure: k21935 o|inlining procedure: k21932 o|inlining procedure: k21957 o|inlining procedure: k21957 o|inlining procedure: k22006 o|inlining procedure: k22006 o|substituted constant variable: a22019 o|substituted constant variable: a22021 o|substituted constant variable: a22023 o|substituted constant variable: a22025 o|inlining procedure: k21932 o|substituted constant variable: *nfa-presize* o|substituted constant variable: *nfa-num-fields* o|folded constant expression: (* (quote 128) (quote 4)) o|substituted constant variable: *mst-first-state-index* o|substituted constant variable: *mst-first-state-index* o|inlining procedure: "(irregex-core.scm:2709) nfa-num-tags" o|substituted constant variable: *mst-first-state-index* o|contracted procedure: k22178 o|inlining procedure: k22175 o|inlining procedure: k22175 o|inlining procedure: "(irregex-core.scm:2742) mst-hash-set!" o|inlining procedure: k22216 o|inlining procedure: k22216 o|inlining procedure: "(irregex-core.scm:2732) mst-mappings-summary" o|contracted procedure: k22236 o|inlining procedure: "(irregex-core.scm:2730) mst-num-states-set!" o|inlining procedure: "(irregex-core.scm:2730) mst-num-states" o|inlining procedure: "(irregex-core.scm:2727) mst-hash" o|inlining procedure: k22516 o|inlining procedure: k22516 o|inlining procedure: k22533 o|substituted constant variable: *mst-first-state-index* o|inlining procedure: k22533 o|substituted constant variable: *mst-first-state-index* o|merged explicitly consed rest parameter: o4122 o|inlining procedure: k22623 o|contracted procedure: "(irregex-core.scm:2860) dfa-renumber" o|inlining procedure: k22810 o|inlining procedure: k22810 o|contracted procedure: "(irregex-core.scm:2912) maybe-cset->char" o|inlining procedure: k26572 o|inlining procedure: k26572 o|substituted constant variable: a26611 o|inlining procedure: k22887 o|inlining procedure: k22887 o|inlining procedure: k22925 o|inlining procedure: k22925 o|inlining procedure: "(irregex-core.scm:2859) nfa-highest-map-index" o|inlining procedure: k22623 o|inlining procedure: k22655 o|inlining procedure: k22655 o|inlining procedure: k22679 o|inlining procedure: k22679 o|contracted procedure: "(irregex-core.scm:2877) find-reorder-commands" o|inlining procedure: k23606 o|inlining procedure: k23606 o|contracted procedure: "(irregex-core.scm:3085) nfa-set-reorder-commands!" o|substituted constant variable: *nfa-num-fields* o|inlining procedure: "(irregex-core.scm:2401) mst-hash" o|contracted procedure: "(irregex-core.scm:3084) find-reorder-commands-internal" o|inlining procedure: k23462 o|inlining procedure: k23462 o|contracted procedure: k23471 o|inlining procedure: k23489 o|inlining procedure: k23489 o|inlining procedure: k23516 o|inlining procedure: k23516 o|inlining procedure: k23567 o|inlining procedure: k23567 o|inlining procedure: "(irregex-core.scm:3063) mst-mappings-summary" o|contracted procedure: "(irregex-core.scm:3061) mst-same-states?" o|inlining procedure: k22432 o|inlining procedure: k22456 o|inlining procedure: k22456 o|substituted constant variable: *mst-first-state-index* o|inlining procedure: "(irregex-core.scm:2780) mst-num-states" o|inlining procedure: "(irregex-core.scm:2780) mst-num-states" o|inlining procedure: k22432 o|inlining procedure: "(irregex-core.scm:2779) mst-hash" o|inlining procedure: "(irregex-core.scm:2779) mst-hash" o|inlining procedure: "(irregex-core.scm:3057) mst-mappings-summary" o|inlining procedure: "(irregex-core.scm:3056) nfa-num-tags" o|contracted procedure: "(irregex-core.scm:3083) nfa-get-reorder-commands" o|inlining procedure: k20855 o|inlining procedure: k20855 o|substituted constant variable: *nfa-num-fields* o|inlining procedure: "(irregex-core.scm:2397) mst-hash" o|contracted procedure: "(irregex-core.scm:2867) get-distinct-transitions" o|inlining procedure: k22982 o|inlining procedure: k22982 o|inlining procedure: k23000 o|inlining procedure: k23000 o|inlining procedure: k23059 o|inlining procedure: k23059 o|contracted procedure: k23098 o|inlining procedure: k23036 o|inlining procedure: k23036 o|contracted procedure: "(irregex-core.scm:2945) csets-intersect?4210" o|contracted procedure: k22966 o|inlining procedure: k22963 o|inlining procedure: k22963 o|contracted procedure: "(irregex-core.scm:2928) nfa-get-state-trans" o|inlining procedure: k20765 o|inlining procedure: k20765 o|substituted constant variable: *nfa-num-fields* o|contracted procedure: "(irregex-core.scm:2844) nfa-start-state" o|inlining procedure: k23280 o|inlining procedure: k23280 o|contracted procedure: "(irregex-core.scm:3011) nfa-add-closure!" o|substituted constant variable: *nfa-num-fields* o|inlining procedure: "(irregex-core.scm:2409) mst-hash" o|contracted procedure: "(irregex-core.scm:3010) nfa-epsilon-closure-internal" o|inlining procedure: k23159 o|inlining procedure: k23159 o|inlining procedure: k23182 o|inlining procedure: k23182 o|contracted procedure: "(irregex-core.scm:2999) mst-add-tagged!" o|inlining procedure: "(irregex-core.scm:2774) mst-hash-set!" o|contracted procedure: k22339 o|contracted procedure: k22357 o|inlining procedure: "(irregex-core.scm:2769) mst-num-states-set!" o|inlining procedure: "(irregex-core.scm:2769) mst-num-states" o|inlining procedure: "(irregex-core.scm:2766) mst-hash" o|inlining procedure: k22382 o|inlining procedure: k22382 o|inlining procedure: "(irregex-core.scm:2758) mst-mappings-summary" o|contracted procedure: "(irregex-core.scm:2997) next-index-for-tag!" o|inlining procedure: k22555 o|contracted procedure: "(irregex-core.scm:2806) nfa-set-highest-map-index!" o|inlining procedure: k22555 o|contracted procedure: k22570 o|inlining procedure: k22567 o|inlining procedure: k22567 o|inlining procedure: "(irregex-core.scm:2802) mst-mappings-summary" o|inlining procedure: "(irregex-core.scm:2801) nfa-highest-map-index" o|inlining procedure: k23206 o|inlining procedure: k23206 o|contracted procedure: "(irregex-core.scm:3004) mst-add/fast!" o|contracted procedure: k22267 o|inlining procedure: "(irregex-core.scm:2751) mst-num-states-set!" o|inlining procedure: "(irregex-core.scm:2751) mst-num-states" o|inlining procedure: "(irregex-core.scm:2748) mst-hash-set!" o|inlining procedure: "(irregex-core.scm:2749) mst-hash" o|contracted procedure: "(irregex-core.scm:3009) nfa-get-closure" o|inlining procedure: k20912 o|inlining procedure: k20912 o|substituted constant variable: *nfa-num-fields* o|inlining procedure: "(irregex-core.scm:2405) mst-hash" o|inlining procedure: k23307 o|inlining procedure: k23307 o|inlining procedure: k23327 o|inlining procedure: k23327 o|contracted procedure: k23372 o|inlining procedure: k23369 o|inlining procedure: k23369 o|inlining procedure: k23391 o|inlining procedure: k23391 o|inlining procedure: k23415 o|inlining procedure: k23415 o|inlining procedure: "(irregex-core.scm:3019) mst-mappings-summary" o|inlining procedure: "(irregex-core.scm:3018) mst-mappings-summary" o|inlining procedure: "(irregex-core.scm:3017) nfa-num-tags" o|inlining procedure: k26457 o|inlining procedure: k26457 o|inlining procedure: k26510 o|inlining procedure: k26510 o|inlining procedure: "(irregex-core.scm:3628) chunker-get-end" o|inlining procedure: "(irregex-core.scm:3627) chunker-get-start" o|inlining procedure: "(irregex-core.scm:3626) chunker-get-str" o|inlining procedure: "(irregex-core.scm:3624) chunker-get-next" o|removed side-effect free assignment to unused variable: cset-size o|inlining procedure: k26683 o|inlining procedure: k26683 o|inlining procedure: "(irregex-core.scm:3673) make-cset" o|merged explicitly consed rest parameter: o5158 o|inlining procedure: k26802 o|inlining procedure: k26814 o|inlining procedure: k26814 o|inlining procedure: k26832 o|inlining procedure: k26865 o|inlining procedure: k26865 o|inlining procedure: k26832 o|inlining procedure: k26929 o|inlining procedure: k26929 o|inlining procedure: k26964 o|inlining procedure: k26999 o|inlining procedure: k26999 o|inlining procedure: k26964 o|inlining procedure: k27043 o|inlining procedure: k27043 o|contracted procedure: "(irregex-core.scm:3696) plist->cset" o|inlining procedure: k26737 o|inlining procedure: k26737 o|inlining procedure: "(irregex-core.scm:3665) make-cset" o|contracted procedure: "(irregex-core.scm:3696) sre-flatten-ranges" o|inlining procedure: k18553 o|inlining procedure: k18553 o|inlining procedure: k27055 o|inlining procedure: k27084 o|inlining procedure: k27084 o|inlining procedure: k27055 o|inlining procedure: k27134 o|inlining procedure: k27134 o|substituted constant variable: a27153 o|substituted constant variable: a27155 o|substituted constant variable: a27157 o|substituted constant variable: a27159 o|substituted constant variable: a27161 o|substituted constant variable: a27163 o|substituted constant variable: a27165 o|inlining procedure: k26802 o|inlining procedure: k27174 o|inlining procedure: k27174 o|inlining procedure: k27187 o|inlining procedure: k27187 o|inlining procedure: k27256 o|inlining procedure: k27256 o|inlining procedure: k27271 o|inlining procedure: k27271 o|inlining procedure: k27292 o|inlining procedure: k27292 o|inlining procedure: k27316 o|inlining procedure: k27316 o|substituted constant variable: a27332 o|substituted constant variable: a27334 o|inlining procedure: k27347 o|inlining procedure: k27347 o|inlining procedure: k27389 o|inlining procedure: k27389 o|inlining procedure: k27437 o|inlining procedure: k27437 o|inlining procedure: k27467 o|inlining procedure: k27467 o|inlining procedure: k27598 o|inlining procedure: k27598 o|inlining procedure: k27634 o|inlining procedure: k27634 o|inlining procedure: k27660 o|inlining procedure: k27660 o|inlining procedure: k27685 o|inlining procedure: k27685 o|contracted procedure: "(irregex-core.scm:3802) next-char" o|contracted procedure: "(irregex-core.scm:3800) prev-char" o|inlining procedure: k27794 o|inlining procedure: k27794 o|inlining procedure: k27827 o|inlining procedure: k27827 o|contracted procedure: "(irregex-core.scm:3829) min-char" o|inlining procedure: k27762 o|inlining procedure: k27762 o|contracted procedure: "(irregex-core.scm:3828) max-char" o|inlining procedure: k27771 o|inlining procedure: k27771 o|consed rest parameter at call site: "(irregex-core.scm:3837) sre->cset" 2 o|inlining procedure: k27926 o|inlining procedure: k27926 o|inlining procedure: k28089 o|inlining procedure: k28089 o|contracted procedure: k28104 o|inlining procedure: k28113 o|inlining procedure: k28113 o|substituted constant variable: ~searcher? o|inlining procedure: "(irregex-core.scm:3874) irregex-match-chunker-set!" o|propagated global variable: str73433359 irregex-basic-string-chunker o|contracted procedure: k28161 o|contracted procedure: k28177 o|inlining procedure: k28205 o|inlining procedure: k28205 o|contracted procedure: k28240 o|contracted procedure: k28268 o|contracted procedure: k28314 o|inlining procedure: k28311 o|contracted procedure: k28326 o|inlining procedure: k28355 o|inlining procedure: "(irregex-core.scm:3926) chunker-get-start" o|inlining procedure: "(irregex-core.scm:3925) chunker-get-next" o|inlining procedure: "(irregex-core.scm:3924) chunker-get-end" o|inlining procedure: k28355 o|substituted constant variable: ~searcher? o|contracted procedure: "(irregex-core.scm:3921) g54815482" o|inlining procedure: k28311 o|inlining procedure: "(irregex-core.scm:3914) irregex-match-chunker-set!" o|contracted procedure: k28426 o|inlining procedure: "(irregex-core.scm:3911) chunker-get-start" o|contracted procedure: k28480 o|inlining procedure: k28499 o|contracted procedure: "(irregex-core.scm:3949) g55135514" o|inlining procedure: k28499 o|contracted procedure: k28559 o|inlining procedure: k28609 o|inlining procedure: k28609 o|contracted procedure: "(irregex-core.scm:3958) g55265527" o|inlining procedure: k28632 o|inlining procedure: k28632 o|contracted procedure: k28645 o|inlining procedure: k28664 o|inlining procedure: k28664 o|inlining procedure: k28689 o|inlining procedure: k28689 o|inlining procedure: k28694 o|inlining procedure: k28694 o|inlining procedure: k28721 o|contracted procedure: "(irregex-core.scm:3987) g55595560" o|contracted procedure: "(irregex-core.scm:3985) g55555556" o|inlining procedure: k28721 o|contracted procedure: "(irregex-core.scm:3990) g55645565" o|inlining procedure: k28832 o|inlining procedure: k28832 o|substituted constant variable: a28867 o|substituted constant variable: a28869 o|contracted procedure: k28914 o|inlining procedure: k28942 o|inlining procedure: k28942 o|contracted procedure: "(irregex-core.scm:4024) g56025603" o|contracted procedure: "(irregex-core.scm:4022) g55985599" o|inlining procedure: k29004 o|inlining procedure: k29004 o|contracted procedure: k29038 o|inlining procedure: k29065 o|inlining procedure: k29065 o|inlining procedure: k29110 o|inlining procedure: k29110 o|substituted constant variable: rx-special-chars o|inlining procedure: k29273 o|inlining procedure: k29273 o|inlining procedure: k29295 o|inlining procedure: k29307 o|contracted procedure: "(irregex-utils.scm:47) make-alt5838" o|inlining procedure: k29156 o|inlining procedure: k29156 o|inlining procedure: k29307 o|inlining procedure: k29340 o|inlining procedure: k29340 o|contracted procedure: "(irregex-utils.scm:55) make-seq5839" o|inlining procedure: k29186 o|inlining procedure: k29186 o|inlining procedure: k29223 o|contracted procedure: "(irregex-utils.scm:36) g58625871" o|inlining procedure: k29208 o|inlining procedure: k29208 o|inlining procedure: k29223 o|inlining procedure: k29263 o|inlining procedure: k29263 o|inlining procedure: k29295 o|substituted constant variable: a29412 o|inlining procedure: k29433 o|inlining procedure: k29433 o|inlining procedure: k29513 o|inlining procedure: k29529 o|inlining procedure: k29551 o|inlining procedure: k29551 o|inlining procedure: k29529 o|inlining procedure: k29581 o|inlining procedure: k29581 o|inlining procedure: k29604 o|inlining procedure: k29604 o|inlining procedure: k29623 o|inlining procedure: k29645 o|inlining procedure: k29645 o|inlining procedure: k29623 o|inlining procedure: k29695 o|inlining procedure: k29695 o|inlining procedure: k29719 o|inlining procedure: k29754 o|inlining procedure: k29754 o|inlining procedure: k29719 o|inlining procedure: k29814 o|inlining procedure: k29814 o|inlining procedure: k29845 o|inlining procedure: k29845 o|inlining procedure: k29912 o|inlining procedure: k29944 o|inlining procedure: k29944 o|consed rest parameter at call site: "(irregex-utils.scm:130) sre->cset" 2 o|inlining procedure: k29967 o|inlining procedure: k29967 o|inlining procedure: k29912 o|inlining procedure: k30023 o|inlining procedure: k30023 o|inlining procedure: k30051 o|inlining procedure: k30051 o|substituted constant variable: a30079 o|substituted constant variable: a30081 o|inlining procedure: k30085 o|inlining procedure: k30085 o|substituted constant variable: a30098 o|substituted constant variable: a30100 o|substituted constant variable: a30102 o|substituted constant variable: a30104 o|substituted constant variable: a30106 o|substituted constant variable: a30108 o|inlining procedure: k30112 o|inlining procedure: k30112 o|inlining procedure: k30124 o|inlining procedure: k30124 o|substituted constant variable: a30131 o|substituted constant variable: a30133 o|substituted constant variable: a30135 o|substituted constant variable: a30137 o|substituted constant variable: a30139 o|substituted constant variable: a30141 o|substituted constant variable: a30143 o|substituted constant variable: a30145 o|substituted constant variable: a30150 o|substituted constant variable: a30152 o|inlining procedure: k29513 o|inlining procedure: k30159 o|inlining procedure: k30159 o|inlining procedure: k30183 o|inlining procedure: k30183 o|substituted constant variable: a30202 o|substituted constant variable: a30204 o|substituted constant variable: a30209 o|substituted constant variable: a30211 o|substituted constant variable: a30216 o|substituted constant variable: a30218 o|inlining procedure: k30219 o|inlining procedure: k30219 o|inlining procedure: k30264 o|inlining procedure: k30264 o|inlining procedure: k30281 o|inlining procedure: k30281 o|inlining procedure: k30297 o|inlining procedure: k30297 o|substituted constant variable: a30370 o|inlining procedure: k30366 o|inlining procedure: k30366 o|substituted constant variable: a30382 o|contracted procedure: k30392 o|inlining procedure: k30389 o|substituted constant variable: a30430 o|inlining procedure: k30431 o|inlining procedure: k30431 o|inlining procedure: k30506 o|inlining procedure: k30506 o|inlining procedure: k30389 o|substituted constant variable: a30541 o|folded constant expression: (char->integer (quote #\space)) o|folded constant expression: (char->integer (quote #\space)) o|folded constant expression: (char->integer (quote #\space)) o|folded constant expression: (char->integer (quote #\space)) o|folded constant expression: (char->integer (quote #\space)) o|folded constant expression: (char->integer (quote #\space)) o|folded constant expression: (char->integer (quote #\space)) o|folded constant expression: (char->integer (quote #\space)) o|folded constant expression: (char->integer (quote #\newline)) o|folded constant expression: (char->integer (quote #\newline)) o|folded constant expression: (char->integer (quote #\space)) o|folded constant expression: (char->integer (quote #\newline)) o|folded constant expression: (char->integer (quote #\newline)) o|folded constant expression: (char->integer (quote #\space)) o|folded constant expression: (char->integer (quote #\space)) o|folded constant expression: (char->integer (quote #\space)) o|folded constant expression: (char->integer (quote #\space)) o|folded constant expression: (char->integer (quote #\space)) o|folded constant expression: (char->integer (quote #\space)) o|folded constant expression: (char->integer (quote #\newline)) o|folded constant expression: (char->integer (quote #\newline)) o|folded constant expression: (char->integer (quote #\newline)) o|folded constant expression: (char->integer (quote #\newline)) o|folded constant expression: (char->integer (quote #\newline)) o|folded constant expression: (integer->char (quote 1114111)) o|folded constant expression: (integer->char (quote 57344)) o|folded constant expression: (integer->char (quote 55295)) o|folded constant expression: (integer->char (quote 0)) o|inlining procedure: k31526 o|inlining procedure: k31526 o|simplifications: ((if . 8)) o|replaced variables: 4994 o|removed binding forms: 760 o|removed conditional forms: 3 o|substituted constant variable: r765431545 o|removed side-effect free assignment to unused variable: irregex-match-chunker o|removed side-effect free assignment to unused variable: irregex-match-chunker-set! o|removed side-effect free assignment to unused variable: %irregex-match-fail o|removed side-effect free assignment to unused variable: %irregex-match-fail-set! o|substituted constant variable: r778331547 o|substituted constant variable: r780831549 o|substituted constant variable: r783731551 o|substituted constant variable: r786631553 o|substituted constant variable: r802531559 o|substituted constant variable: r803331560 o|substituted constant variable: r803331561 o|substituted constant variable: r800131563 o|substituted constant variable: r816731572 o|substituted constant variable: r776731574 o|substituted constant variable: r776731575 o|substituted constant variable: r821731582 o|substituted constant variable: r843131601 o|removed side-effect free assignment to unused variable: chunker-get-next o|removed side-effect free assignment to unused variable: chunker-get-str o|removed side-effect free assignment to unused variable: chunker-get-start o|removed side-effect free assignment to unused variable: chunker-get-end o|removed side-effect free assignment to unused variable: chunker-get-substring o|removed side-effect free assignment to unused variable: chunker-get-subchunk o|substituted constant variable: r865331617 o|substituted constant variable: r861731618 o|substituted constant variable: r868631638 o|removed side-effect free assignment to unused variable: *allow-utf8-mode?* o|substituted constant variable: r881431644 o|substituted constant variable: r915131650 o|substituted constant variable: r919631654 o|substituted constant variable: r928931663 o|removed side-effect free assignment to unused variable: ~none o|converted assignments to bindings: (collect1333) o|substituted constant variable: r1018431696 o|substituted constant variable: r1018431696 o|inlining procedure: k10183 o|inlining procedure: k10183 o|removed side-effect free assignment to unused variable: ~save? o|removed side-effect free assignment to unused variable: ~multi-line? o|removed side-effect free assignment to unused variable: ~ignore-space? o|substituted constant variable: ~case-insensitive? o|substituted constant variable: ~case-insensitive? o|inlining procedure: k10400 o|inlining procedure: k10400 o|substituted constant variable: ~single-line? o|propagated global variable: r1040133582 ~single-line? o|propagated global variable: r1040133582 ~single-line? o|inlining procedure: k10400 o|substituted constant variable: r1040131730 o|substituted constant variable: r1040131730 o|inlining procedure: k10400 o|substituted constant variable: r1043731732 o|substituted constant variable: r1444631752 o|converted assignments to bindings: (shift1502) o|substituted constant variable: r1090631765 o|substituted constant variable: r1182531822 o|substituted constant variable: r1182531822 o|substituted constant variable: r1182531824 o|substituted constant variable: r1182531824 o|substituted constant variable: r1227031889 o|substituted constant variable: c1060 o|converted assignments to bindings: (collect1070) o|substituted constant variable: r1345431916 o|substituted constant variable: r1346631918 o|substituted constant variable: r891731927 o|substituted constant variable: r885831944 o|substituted constant variable: c1036 o|substituted constant variable: c1036 o|folded constant expression: (eq? (quote #\}) (quote #\\)) o|substituted constant variable: c1036 o|converted assignments to bindings: (byte1935) o|substituted constant variable: r1448531954 o|substituted constant variable: r1449731956 o|contracted procedure: k14887 o|contracted procedure: k14891 o|contracted procedure: k15006 o|contracted procedure: k15059 o|contracted procedure: k15149 o|contracted procedure: k15202 o|substituted constant variable: r1577431973 o|substituted constant variable: r1577431973 o|substituted constant variable: r1473131979 o|contracted procedure: k15673 o|contracted procedure: k15677 o|contracted procedure: k15311 o|contracted procedure: k15315 o|substituted constant variable: r1452331988 o|substituted constant variable: r1453531990 o|contracted procedure: k15424 o|contracted procedure: k15428 o|contracted procedure: k15574 o|contracted procedure: k15578 o|substituted constant variable: r1563231998 o|substituted constant variable: r1563231998 o|folded constant expression: (integer->char (quote 127)) o|substituted constant variable: r1563232000 o|substituted constant variable: r1563232000 o|folded constant expression: (integer->char (quote 255)) o|contracted procedure: k23656 o|contracted procedure: k23668 o|contracted procedure: k23682 o|contracted procedure: k23690 o|substituted constant variable: r2433832053 o|substituted constant variable: r2434832054 o|substituted constant variable: r2436332057 o|substituted constant variable: r2450632068 o|substituted constant variable: r2451632069 o|substituted constant variable: r2453132072 o|substituted constant variable: r874632095 o|substituted constant variable: r2575132231 o|substituted constant variable: r2596532286 o|substituted constant variable: r2610832308 o|converted assignments to bindings: (rec4363) o|substituted constant variable: ~consumer? o|substituted constant variable: ~consumer? o|substituted constant variable: r1650132383 o|substituted constant variable: r1650132383 o|substituted constant variable: ~searcher? o|substituted constant variable: ~searcher? o|substituted constant variable: r1650832387 o|substituted constant variable: r1650832387 o|substituted constant variable: r1728732391 o|substituted constant variable: r1728732391 o|inlining procedure: k17368 o|substituted constant variable: r1736932400 o|substituted constant variable: r1736932400 o|inlining procedure: k17403 o|substituted constant variable: r1740432405 o|substituted constant variable: r1740432405 o|inlining procedure: k17446 o|substituted constant variable: r1744732411 o|substituted constant variable: r1744732411 o|substituted constant variable: r1745732415 o|substituted constant variable: r1745732415 o|inlining procedure: k17485 o|substituted constant variable: r1748632420 o|substituted constant variable: r1748632420 o|inlining procedure: k17573 o|substituted constant variable: r1758032426 o|inlining procedure: k17573 o|substituted constant variable: r1757432427 o|substituted constant variable: r1757432427 o|inlining procedure: k17754 o|substituted constant variable: r1775532446 o|substituted constant variable: r1775532446 o|inlining procedure: k17887 o|substituted constant variable: r1788832456 o|substituted constant variable: r1788832456 o|substituted constant variable: r1794632458 o|substituted constant variable: r1796132461 o|inlining procedure: k18032 o|substituted constant variable: r1803332466 o|substituted constant variable: r1803332466 o|substituted constant variable: r1807332469 o|substituted constant variable: r1807332469 o|converted assignments to bindings: (grow2807) o|substituted constant variable: r1653232506 o|substituted constant variable: r1656732508 o|substituted constant variable: r1656732509 o|substituted constant variable: r1608932524 o|substituted constant variable: r1623832534 o|substituted constant variable: r1629732539 o|converted assignments to bindings: (rec2344) o|substituted constant variable: r1663432544 o|substituted constant variable: r1677932560 o|substituted constant variable: r1687632569 o|substituted constant variable: r1686432570 o|substituted constant variable: r1685232572 o|substituted constant variable: r1712532592 o|substituted constant variable: r1718732594 o|substituted constant variable: r1718732594 o|inlining procedure: k17186 o|substituted constant variable: r1721332599 o|substituted constant variable: r1837532603 o|substituted constant variable: r1839832605 o|substituted constant variable: r1917032652 o|contracted procedure: k19275 o|contracted procedure: k19283 o|substituted constant variable: r1925532666 o|contracted procedure: k19345 o|contracted procedure: k19353 o|substituted constant variable: r1936632671 o|substituted constant variable: r1929232687 o|substituted constant variable: r1993532689 o|substituted constant variable: index3416 o|substituted constant variable: index3416 o|folded constant expression: (* (quote 0) (quote 4)) o|substituted constant variable: index3416 o|folded constant expression: (* (quote 0) (quote 4)) o|inlining procedure: k19940 o|inlining procedure: k19958 o|inlining procedure: k19970 o|substituted constant variable: r1998632692 o|substituted constant variable: r2003832696 o|substituted constant variable: r1992032703 o|substituted constant variable: x74232732 o|inlining procedure: k19396 o|contracted procedure: k19462 o|contracted procedure: k19470 o|substituted constant variable: r1949032756 o|substituted constant variable: r1959432773 o|contracted procedure: k19670 o|contracted procedure: k19678 o|substituted constant variable: r1964332781 o|substituted constant variable: n3350 o|folded constant expression: (* (quote 0) (quote 4)) o|substituted constant variable: x74232796 o|substituted constant variable: r1977232806 o|substituted constant variable: n3390 o|folded constant expression: (* (quote 0) (quote 4)) o|substituted constant variable: n3384 o|folded constant expression: (* (quote 0) (quote 4)) o|substituted constant variable: r1976032822 o|substituted constant variable: r1986232844 o|substituted constant variable: r1986232845 o|removed side-effect free assignment to unused variable: dfa-init-state o|removed side-effect free assignment to unused variable: dfa-cell-commands o|removed side-effect free assignment to unused variable: dfa-finalizer o|substituted constant variable: r2008532848 o|substituted constant variable: r2008532848 o|substituted constant variable: r2010432852 o|substituted constant variable: r2010432852 o|substituted constant variable: r2030032858 o|substituted constant variable: r2030032859 o|inlining procedure: k20305 o|substituted constant variable: r2027432860 o|substituted constant variable: r2051832880 o|inlining procedure: k20523 o|removed side-effect free assignment to unused variable: *nfa-presize* o|removed side-effect free assignment to unused variable: *nfa-num-fields* o|removed side-effect free assignment to unused variable: nfa-num-tags o|removed side-effect free assignment to unused variable: nfa-highest-map-index o|substituted constant variable: r2079232929 o|substituted constant variable: r2105632936 o|substituted constant variable: r2112232942 o|substituted constant variable: ~case-insensitive? o|substituted constant variable: ~case-insensitive? o|substituted constant variable: ~utf8? o|substituted constant variable: ~utf8? o|inlining procedure: k21493 o|substituted constant variable: r2148832972 o|inlining procedure: k21593 o|substituted constant variable: r2158232980 o|substituted constant variable: r2187332996 o|contracted procedure: k22040 o|removed side-effect free assignment to unused variable: *mst-first-state-index* o|removed side-effect free assignment to unused variable: mst-mappings-summary o|removed side-effect free assignment to unused variable: mst-num-states o|removed side-effect free assignment to unused variable: mst-num-states-set! o|removed side-effect free assignment to unused variable: mst-hash o|removed side-effect free assignment to unused variable: mst-hash-set! o|substituted constant variable: r2346333071 o|substituted constant variable: r2243333099 o|substituted constant variable: r2085633121 o|substituted constant variable: r2296433135 o|substituted constant variable: r2076633137 o|substituted constant variable: r2091333220 o|substituted constant variable: r2337033230 o|substituted constant variable: r2339233233 o|substituted constant variable: r2341633235 o|removed side-effect free assignment to unused variable: make-cset o|removed side-effect free assignment to unused variable: cset=? o|converted assignments to bindings: (rec5166) o|substituted constant variable: r2725733315 o|substituted constant variable: r2727233318 o|substituted constant variable: r2731733322 o|substituted constant variable: r2820633364 o|substituted constant variable: n5484 o|folded constant expression: (* (quote 0) (quote 4)) o|substituted constant variable: n5516 o|folded constant expression: (* (quote 0) (quote 4)) o|substituted constant variable: n5529 o|folded constant expression: (* (quote 0) (quote 4)) o|substituted constant variable: r2869033409 o|substituted constant variable: r2869033409 o|substituted constant variable: n5562 o|folded constant expression: (* (quote 0) (quote 4)) o|substituted constant variable: n5558 o|folded constant expression: (* (quote 0) (quote 4)) o|substituted constant variable: n5567 o|folded constant expression: (* (quote 0) (quote 4)) o|substituted constant variable: n5605 o|folded constant expression: (* (quote 0) (quote 4)) o|substituted constant variable: n5601 o|folded constant expression: (* (quote 0) (quote 4)) o|removed side-effect free assignment to unused variable: rx-special-chars o|substituted constant variable: r2906633423 o|substituted constant variable: r2927433427 o|substituted constant variable: r2960533457 o|substituted constant variable: r2996833478 o|substituted constant variable: r3028233499 o|substituted constant variable: r3050733509 o|contracted procedure: k31147 o|contracted procedure: k31155 o|contracted procedure: k31175 o|contracted procedure: k31183 o|contracted procedure: k31203 o|contracted procedure: k31211 o|contracted procedure: k31227 o|contracted procedure: k31235 o|contracted procedure: k31263 o|contracted procedure: k31275 o|contracted procedure: k31299 o|contracted procedure: k31307 o|contracted procedure: k31315 o|contracted procedure: k31323 o|contracted procedure: k31339 o|contracted procedure: k31347 o|contracted procedure: k31367 o|contracted procedure: k31375 o|contracted procedure: k31387 o|contracted procedure: k31444 o|contracted procedure: k31456 o|contracted procedure: k31468 o|contracted procedure: k31480 o|contracted procedure: k31492 o|contracted procedure: k31496 o|contracted procedure: k31500 o|contracted procedure: k31504 o|contracted procedure: k31508 o|simplifications: ((let . 8)) o|replaced variables: 294 o|removed binding forms: 5003 o|removed conditional forms: 1 o|inlining procedure: k8411 o|removed side-effect free assignment to unused variable: ~searcher? o|removed side-effect free assignment to unused variable: ~consumer? o|substituted constant variable: r1018433572 o|removed side-effect free assignment to unused variable: ~case-insensitive? o|removed side-effect free assignment to unused variable: ~utf8? o|inlining procedure: "(irregex-core.scm:721) flag-join" o|inlining procedure: "(irregex-core.scm:721) flag-join" o|substituted constant variable: r1040133580 o|substituted constant variable: ~single-line? o|inlining procedure: "(irregex-core.scm:721) flag-join" o|substituted constant variable: ~single-line? o|propagated global variable: b126734015 ~single-line? o|propagated global variable: b126734015 ~single-line? o|inlining procedure: "(irregex-core.scm:721) flag-join" o|substituted constant variable: r1040133584 o|inlining procedure: "(irregex-core.scm:721) flag-join" o|inlining procedure: "(irregex-core.scm:721) flag-join" o|substituted constant variable: r1040133586 o|inlining procedure: "(irregex-core.scm:743) flag-set?" o|inlining procedure: "(irregex-core.scm:748) flag-set?" o|inlining procedure: "(irregex-core.scm:757) flag-set?" o|inlining procedure: "(irregex-core.scm:801) flag-set?" o|inlining procedure: k10985 o|inlining procedure: k10985 o|inlining procedure: "(irregex-core.scm:836) flag-set?" o|inlining procedure: "(irregex-core.scm:895) flag-clear" o|inlining procedure: "(irregex-core.scm:897) flag-clear" o|inlining procedure: "(irregex-core.scm:900) flag-clear" o|inlining procedure: "(irregex-core.scm:909) flag-clear" o|inlining procedure: "(irregex-core.scm:912) flag-clear" o|inlining procedure: "(irregex-core.scm:919) flag-clear" o|inlining procedure: "(irregex-core.scm:925) flag-clear" o|inlining procedure: "(irregex-core.scm:940) flag-clear" o|inlining procedure: "(irregex-core.scm:945) flag-clear" o|inlining procedure: "(irregex-core.scm:948) flag-clear" o|inlining procedure: "(irregex-core.scm:953) flag-clear" o|inlining procedure: "(irregex-core.scm:953) flag-join" o|inlining procedure: "(irregex-core.scm:959) flag-set?" o|inlining procedure: "(irregex-core.scm:958) flag-set?" o|inlining procedure: "(irregex-core.scm:878) flag-join" o|inlining procedure: "(irregex-core.scm:1217) cset-adjoin" o|inlining procedure: "(irregex-core.scm:3773) char->cset" o|inlining procedure: "(irregex-core.scm:1218) flag-set?" o|inlining procedure: "(irregex-core.scm:1216) cset-empty?" o|inlining procedure: "(irregex-core.scm:1228) cset-adjoin" o|inlining procedure: "(irregex-core.scm:3773) char->cset" o|inlining procedure: "(irregex-core.scm:1237) range->cset" o|inlining procedure: "(irregex-core.scm:1245) utf8-start-char->length" o|inlining procedure: "(irregex-core.scm:1265) cset-adjoin" o|inlining procedure: "(irregex-core.scm:3773) char->cset" o|inlining procedure: "(irregex-core.scm:1276) cset-adjoin" o|inlining procedure: "(irregex-core.scm:3773) char->cset" o|inlining procedure: "(irregex-core.scm:1281) cset-adjoin" o|inlining procedure: "(irregex-core.scm:3773) char->cset" o|inlining procedure: "(irregex-core.scm:1287) cset-adjoin" o|inlining procedure: "(irregex-core.scm:3773) char->cset" o|inlining procedure: "(irregex-core.scm:1284) utf8-start-char->length" o|inlining procedure: "(irregex-core.scm:1288) cset-adjoin" o|inlining procedure: "(irregex-core.scm:3773) char->cset" o|inlining procedure: "(irregex-core.scm:1293) char->cset" o|inlining procedure: "(irregex-core.scm:1292) flag-set?" o|inlining procedure: "(irregex-core.scm:1209) flag-set?" o|substituted constant variable: a9006 o|inlining procedure: "(irregex-core.scm:1090) flag-set?" o|inlining procedure: "(irregex-core.scm:1133) flag-set?" o|inlining procedure: "(irregex-core.scm:1151) flag-set?" o|inlining procedure: "(irregex-core.scm:1154) flag-set?" o|inlining procedure: "(irregex-core.scm:1157) flag-set?" o|inlining procedure: "(irregex-core.scm:1161) flag-set?" o|contracted procedure: k8872 o|substituted constant variable: a8891 o|substituted constant variable: r14888 o|substituted constant variable: r14888 o|substituted constant variable: r14892 o|removed call to pure procedure with unused result: "(irregex-core.scm:1434) slot" o|substituted constant variable: r15007 o|substituted constant variable: r15060 o|substituted constant variable: r15150 o|substituted constant variable: r15203 o|substituted constant variable: r15674 o|substituted constant variable: r15674 o|substituted constant variable: r15678 o|removed call to pure procedure with unused result: "(irregex-core.scm:1509) slot" o|substituted constant variable: r15312 o|substituted constant variable: r15312 o|substituted constant variable: r15316 o|removed call to pure procedure with unused result: "(irregex-core.scm:1489) slot" o|substituted constant variable: r15425 o|substituted constant variable: r15425 o|substituted constant variable: r15429 o|removed call to pure procedure with unused result: "(irregex-core.scm:1500) slot" o|inlining procedure: "(irregex-core.scm:1497) utf8-start-char->length" o|substituted constant variable: r15575 o|substituted constant variable: r15575 o|substituted constant variable: r15579 o|removed call to pure procedure with unused result: "(irregex-core.scm:1480) slot" o|inlining procedure: k15627 o|inlining procedure: k15627 o|inlining procedure: "(irregex-core.scm:1520) high-char?" o|inlining procedure: "(irregex-core.scm:1520) high-char?" o|substituted constant variable: r23657 o|folded constant expression: (+ (quote 3) (quote 0)) o|substituted constant variable: r23669 o|folded constant expression: (+ (quote 2) (quote 0)) o|substituted constant variable: r23683 o|folded constant expression: (+ (quote 1) (quote 0)) o|substituted constant variable: r23691 o|inlining procedure: "(irregex-core.scm:3115) flag-set?" o|inlining procedure: "(irregex-core.scm:3120) flag-set?" o|inlining procedure: "(irregex-core.scm:3139) flag-clear" o|inlining procedure: "(irregex-core.scm:3144) flag-join" o|inlining procedure: "(irregex-core.scm:3147) flag-join" o|inlining procedure: "(irregex-core.scm:3149) flag-clear" o|inlining procedure: "(irregex-core.scm:3378) flag-set?" o|inlining procedure: "(irregex-core.scm:3558) flag-set?" o|inlining procedure: "(irregex-core.scm:1620) flag-join" o|inlining procedure: "(irregex-core.scm:1620) flag-join" o|inlining procedure: "(irregex-core.scm:1621) flag-join" o|inlining procedure: "(irregex-core.scm:1621) flag-join" o|substituted constant variable: r1736933676 o|substituted constant variable: r1740433678 o|substituted constant variable: r1744733682 o|substituted constant variable: r1748633684 o|substituted constant variable: r1757433688 o|substituted constant variable: r1757433690 o|substituted constant variable: r1775533692 o|substituted constant variable: r1788833694 o|substituted constant variable: r1803333696 o|inlining procedure: "(irregex-core.scm:1615) nfa-num-states" o|inlining procedure: "(irregex-core.scm:1611) nfa-num-states" o|inlining procedure: "(irregex-core.scm:1562) high-char?" o|inlining procedure: "(irregex-core.scm:1529) flag-set?" o|inlining procedure: "(irregex-core.scm:1528) flag-set?" o|substituted constant variable: r1718733716 o|inlining procedure: k19138 o|inlining procedure: k19154 o|substituted constant variable: r19276 o|folded constant expression: (+ (quote 1) (quote 0)) o|substituted constant variable: r19284 o|substituted constant variable: r19346 o|folded constant expression: (+ (quote 1) (quote 0)) o|substituted constant variable: r19354 o|substituted constant variable: r1995933738 o|folded constant expression: (+ (quote 3) (quote 0)) o|substituted constant variable: r1997133740 o|folded constant expression: (+ (quote 2) (quote 0)) o|inlining procedure: "(irregex-core.scm:2124) dfa-next-state" o|inlining procedure: "(irregex-core.scm:2103) dfa-next-state" o|inlining procedure: "(irregex-core.scm:1969) flag-set?" o|substituted constant variable: r19463 o|folded constant expression: (+ (quote 1) (quote 0)) o|substituted constant variable: r19471 o|inlining procedure: "(irregex-core.scm:2008) flag-set?" o|inlining procedure: k19562 o|inlining procedure: k19578 o|substituted constant variable: r19671 o|folded constant expression: (+ (quote 1) (quote 0)) o|substituted constant variable: r19679 o|contracted procedure: k19707 o|contracted procedure: k19819 o|contracted procedure: k19847 o|substituted constant variable: r203003285833767 o|substituted constant variable: r203003285933768 o|inlining procedure: k20508 o|inlining procedure: "(irregex-core.scm:2205) dfa-next-state" o|substituted constant variable: r205183288033776 o|inlining procedure: "(irregex-core.scm:2159) dfa-next-state" o|inlining procedure: "(irregex-core.scm:2459) char->cset" o|inlining procedure: "(irregex-core.scm:2459) char->cset" o|inlining procedure: "(irregex-core.scm:2460) char->cset" o|inlining procedure: "(irregex-core.scm:2458) flag-set?" o|inlining procedure: "(irregex-core.scm:2497) flag-set?" o|inlining procedure: "(irregex-core.scm:2519) flag-set?" o|inlining procedure: k21533 o|substituted constant variable: r22041 o|inlining procedure: "(irregex-core.scm:2708) nfa-num-states" o|inlining procedure: "(irregex-core.scm:2742) nfa-num-states" o|inlining procedure: "(irregex-core.scm:2728) mst-state-mappings" o|inlining procedure: "(irregex-core.scm:2871) mst-state-mappings" o|inlining procedure: "(irregex-core.scm:3055) nfa-num-states" o|inlining procedure: "(irregex-core.scm:2961) cset-empty?" o|inlining procedure: "(irregex-core.scm:2951) cset-empty?" o|inlining procedure: "(irregex-core.scm:2924) cset-empty?" o|inlining procedure: "(irregex-core.scm:2373) nfa-num-states" o|inlining procedure: "(irregex-core.scm:2774) nfa-num-states" o|inlining procedure: "(irregex-core.scm:2767) mst-state-mappings" o|inlining procedure: k22261 o|inlining procedure: "(irregex-core.scm:2750) nfa-num-states" o|inlining procedure: "(irregex-core.scm:2747) mst-state-mappings" o|inlining procedure: "(irregex-core.scm:2978) nfa-num-states" o|inlining procedure: "(irregex-core.scm:3672) cset-adjoin" o|inlining procedure: "(irregex-core.scm:3773) char->cset" o|inlining procedure: "(irregex-core.scm:3668) range->cset" o|inlining procedure: "(irregex-core.scm:3709) range->cset" o|inlining procedure: "(irregex-core.scm:3710) range->cset" o|inlining procedure: "(irregex-core.scm:3773) char->cset" o|inlining procedure: "(irregex-core.scm:3850) range->cset" o|inlining procedure: "(irregex-core.scm:3896) flag-set?" o|inlining procedure: k28168 o|inlining procedure: k28184 o|inlining procedure: k28193 o|inlining procedure: k28193 o|inlining procedure: k28220 o|inlining procedure: "(irregex-core.scm:3933) flag-set?" o|contracted procedure: k28346 o|contracted procedure: k28544 o|contracted procedure: k28595 o|contracted procedure: k28759 o|contracted procedure: k28776 o|contracted procedure: k28823 o|contracted procedure: k28970 o|contracted procedure: k28991 o|inlining procedure: k29017 o|substituted constant variable: r31148 o|folded constant expression: (+ (quote 32) (quote 215)) o|substituted constant variable: r31156 o|folded constant expression: (+ (quote 32) (quote 208)) o|substituted constant variable: r31176 o|folded constant expression: (+ (quote 32) (quote 207)) o|substituted constant variable: r31184 o|folded constant expression: (+ (quote 32) (quote 192)) o|substituted constant variable: r31204 o|folded constant expression: (+ (quote 32) (quote 191)) o|substituted constant variable: r31212 o|folded constant expression: (+ (quote 32) (quote 162)) o|substituted constant variable: r31228 o|folded constant expression: (+ (quote 32) (quote 161)) o|substituted constant variable: r31236 o|folded constant expression: (+ (quote 32) (quote 96)) o|substituted constant variable: r31264 o|folded constant expression: (+ (quote 10) (quote 3)) o|substituted constant variable: r31276 o|folded constant expression: (+ (quote 10) (quote 3)) o|substituted constant variable: r31300 o|folded constant expression: (+ (quote 32) (quote 95)) o|substituted constant variable: r31308 o|folded constant expression: (+ (quote 10) (quote 1)) o|substituted constant variable: r31316 o|folded constant expression: (- (quote 10) (quote 1)) o|substituted constant variable: r31324 o|folded constant expression: (- (quote 32) (quote 32)) o|substituted constant variable: r31340 o|folded constant expression: (+ (quote 32) (quote 95)) o|substituted constant variable: r31348 o|folded constant expression: (- (quote 32) (quote 32)) o|substituted constant variable: r31368 o|folded constant expression: (- (quote 32) (quote 1)) o|substituted constant variable: r31376 o|folded constant expression: (- (quote 32) (quote 32)) o|substituted constant variable: r31388 o|folded constant expression: (- (quote 32) (quote 23)) o|substituted constant variable: r31445 o|folded constant expression: (+ (quote 10) (quote 2)) o|substituted constant variable: r31457 o|folded constant expression: (+ (quote 10) (quote 17)) o|substituted constant variable: r31469 o|folded constant expression: (- (quote 10) (quote 3)) o|substituted constant variable: r31481 o|folded constant expression: (- (quote 10) (quote 1)) o|substituted constant variable: r31493 o|folded constant expression: (+ (quote 10) (quote 3)) o|substituted constant variable: r31497 o|substituted constant variable: r31501 o|substituted constant variable: r31505 o|substituted constant variable: r31497 o|substituted constant variable: r31501 o|substituted constant variable: r31505 o|substituted constant variable: r31509 o|replaced variables: 93 o|removed binding forms: 525 o|Removed `not' forms: 1 o|removed side-effect free assignment to unused variable: flag-set? o|substituted constant variable: b126734007 o|substituted constant variable: b126734007 o|substituted constant variable: b126734011 o|substituted constant variable: b126734011 o|substituted constant variable: ~single-line? o|substituted constant variable: ~single-line? o|substituted constant variable: b126734019 o|substituted constant variable: b126734019 o|substituted constant variable: b126734023 o|substituted constant variable: b126734023 o|substituted constant variable: b126734027 o|substituted constant variable: b126734027 o|inlining procedure: k10395 o|substituted constant variable: i126334033 o|substituted constant variable: i126334033 o|substituted constant variable: i126334041 o|substituted constant variable: i126334041 o|substituted constant variable: i126334049 o|substituted constant variable: i126334049 o|substituted constant variable: i126334055 o|substituted constant variable: i126334055 o|substituted constant variable: r1098634061 o|substituted constant variable: r1098634066 o|substituted constant variable: i126334073 o|substituted constant variable: i126334073 o|substituted constant variable: b127134079 o|folded constant expression: (fxnot (quote 1)) o|substituted constant variable: b127134085 o|folded constant expression: (fxnot (quote 1)) o|substituted constant variable: b127134091 o|folded constant expression: (fxnot (quote 1)) o|substituted constant variable: b127134097 o|folded constant expression: (fxnot (quote 1)) o|substituted constant variable: b127134103 o|folded constant expression: (fxnot (quote 1)) o|substituted constant variable: b127134109 o|folded constant expression: (fxnot (quote 1)) o|substituted constant variable: b127134115 o|folded constant expression: (fxnot (quote 1)) o|substituted constant variable: b127134121 o|folded constant expression: (fxnot (quote 1)) o|substituted constant variable: b127134127 o|folded constant expression: (fxnot (quote 1)) o|substituted constant variable: b127134133 o|folded constant expression: (fxnot (quote 1)) o|substituted constant variable: i126334149 o|substituted constant variable: i126334149 o|substituted constant variable: i126334155 o|substituted constant variable: i126334155 o|substituted constant variable: b126734163 o|substituted constant variable: b126734163 o|substituted constant variable: ch534134167 o|substituted constant variable: ch534134167 o|substituted constant variable: ch534134167 o|substituted constant variable: i126334178 o|substituted constant variable: i126334178 o|substituted constant variable: ch534134211 o|substituted constant variable: ch534134211 o|substituted constant variable: ch534134211 o|substituted constant variable: ch512634270 o|substituted constant variable: ch512634270 o|substituted constant variable: i126334276 o|substituted constant variable: i126334276 o|substituted constant variable: i126334284 o|substituted constant variable: i126334284 o|substituted constant variable: i126334292 o|substituted constant variable: i126334292 o|substituted constant variable: i126334300 o|substituted constant variable: i126334300 o|substituted constant variable: i126334308 o|substituted constant variable: i126334308 o|substituted constant variable: i126334314 o|substituted constant variable: i126334314 o|substituted constant variable: i126334320 o|substituted constant variable: i126334320 o|substituted constant variable: i126334326 o|substituted constant variable: i126334326 o|substituted constant variable: r8873 o|removed side-effect free assignment to unused variable: utf8-start-char->length o|contracted procedure: k14929 o|substituted constant variable: a15148 o|substituted constant variable: a15201 o|contracted procedure: k15715 o|contracted procedure: k15355 o|contracted procedure: k15466 o|contracted procedure: k15616 o|substituted constant variable: r1562834359 o|substituted constant variable: r1562834360 o|contracted procedure: k23652 o|contracted procedure: k23664 o|contracted procedure: k23676 o|substituted constant variable: a23689 o|substituted constant variable: i126334375 o|substituted constant variable: i126334375 o|substituted constant variable: i126334381 o|substituted constant variable: i126334381 o|substituted constant variable: b127134387 o|folded constant expression: (fxnot (quote 2)) o|substituted constant variable: b126734393 o|substituted constant variable: b126734393 o|substituted constant variable: b126734397 o|substituted constant variable: b126734397 o|substituted constant variable: b127134401 o|folded constant expression: (fxnot (quote 32)) o|substituted constant variable: i126334409 o|substituted constant variable: i126334409 o|substituted constant variable: i126334419 o|substituted constant variable: i126334419 o|substituted constant variable: b126734427 o|substituted constant variable: b126734427 o|substituted constant variable: b126734431 o|substituted constant variable: b126734431 o|substituted constant variable: b126734435 o|substituted constant variable: a126634434 o|substituted constant variable: b126734435 o|folded constant expression: (fxior (quote 0) (quote 1)) o|substituted constant variable: a126634434 o|substituted constant variable: a126634434 o|substituted constant variable: b126734439 o|substituted constant variable: a126634438 o|substituted constant variable: b126734439 o|folded constant expression: (fxior (quote 0) (quote #f)) o|substituted constant variable: a126634438 o|substituted constant variable: a126634438 o|substituted constant variable: i126334476 o|substituted constant variable: i126334476 o|substituted constant variable: i126334482 o|substituted constant variable: i126334482 o|substituted constant variable: r1913934492 o|substituted constant variable: r1913934492 o|substituted constant variable: r1915534494 o|substituted constant variable: r1915534494 o|contracted procedure: k19271 o|contracted procedure: k19341 o|contracted procedure: k19954 o|contracted procedure: k19966 o|substituted constant variable: i126334518 o|substituted constant variable: i126334518 o|contracted procedure: k19458 o|substituted constant variable: i126334526 o|substituted constant variable: i126334526 o|substituted constant variable: r1956334530 o|substituted constant variable: r1956334530 o|substituted constant variable: r1957934532 o|substituted constant variable: r1957934532 o|contracted procedure: k19659 o|substituted constant variable: r19708 o|folded constant expression: (+ (quote 2) (quote 0)) o|substituted constant variable: r19820 o|folded constant expression: (+ (quote 2) (quote 0)) o|substituted constant variable: r19848 o|folded constant expression: (+ (quote 2) (quote 0)) o|removed side-effect free assignment to unused variable: dfa-next-state o|contracted procedure: k20508 o|substituted constant variable: r2050934542 o|removed side-effect free assignment to unused variable: nfa-num-states o|substituted constant variable: i126334582 o|substituted constant variable: i126334582 o|substituted constant variable: i126334590 o|substituted constant variable: i126334590 o|substituted constant variable: i126334596 o|substituted constant variable: i126334596 o|removed side-effect free assignment to unused variable: mst-state-mappings o|substituted constant variable: state397534635 o|folded constant expression: (+ (quote 0) (quote 3)) o|removed side-effect free assignment to unused variable: range->cset o|removed side-effect free assignment to unused variable: char->cset o|removed side-effect free assignment to unused variable: cset-empty? o|removed side-effect free assignment to unused variable: cset-adjoin o|substituted constant variable: i126334788 o|substituted constant variable: i126334788 o|substituted constant variable: r2816934794 o|substituted constant variable: r2816934794 o|substituted constant variable: r2818534796 o|substituted constant variable: r2818534796 o|substituted constant variable: r2819434798 o|substituted constant variable: r2819434799 o|substituted constant variable: r2822134800 o|substituted constant variable: i126334803 o|substituted constant variable: i126334803 o|substituted constant variable: r28347 o|folded constant expression: (+ (quote 2) (quote 0)) o|substituted constant variable: r28545 o|folded constant expression: (+ (quote 1) (quote 0)) o|substituted constant variable: r28596 o|folded constant expression: (+ (quote 1) (quote 0)) o|substituted constant variable: r28760 o|folded constant expression: (+ (quote 1) (quote 0)) o|substituted constant variable: r28777 o|substituted constant variable: r28824 o|substituted constant variable: r28971 o|folded constant expression: (+ (quote 1) (quote 0)) o|substituted constant variable: r28992 o|folded constant expression: (+ (quote 1) (quote 0)) o|substituted constant variable: r2901834811 o|contracted procedure: k31143 o|contracted procedure: k31151 o|contracted procedure: k31171 o|contracted procedure: k31179 o|contracted procedure: k31199 o|contracted procedure: k31207 o|contracted procedure: k31223 o|contracted procedure: k31231 o|contracted procedure: k31259 o|contracted procedure: k31271 o|contracted procedure: k31295 o|contracted procedure: k31303 o|contracted procedure: k31311 o|contracted procedure: k31319 o|contracted procedure: k31335 o|contracted procedure: k31343 o|contracted procedure: k31363 o|contracted procedure: k31371 o|contracted procedure: k31383 o|contracted procedure: k31440 o|contracted procedure: k31452 o|contracted procedure: k31464 o|contracted procedure: k31476 o|contracted procedure: k31488 o|simplifications: ((if . 2) (let . 5)) o|replaced variables: 232 o|removed binding forms: 221 o|removed conditional forms: 25 o|removed side-effect free assignment to unused variable: ~single-line? o|substituted constant variable: a1098434062 o|substituted constant variable: a1098434067 o|contracted procedure: k974534082 o|contracted procedure: k974534088 o|contracted procedure: k974534094 o|contracted procedure: k974534100 o|contracted procedure: k974534106 o|contracted procedure: k974534112 o|contracted procedure: k974534118 o|contracted procedure: k974534124 o|contracted procedure: k974534130 o|contracted procedure: k974534136 o|substituted constant variable: r23653 o|substituted constant variable: r23665 o|substituted constant variable: r23677 o|contracted procedure: k974534390 o|contracted procedure: k974534404 o|substituted constant variable: r19272 o|substituted constant variable: r19342 o|substituted constant variable: r19955 o|substituted constant variable: r19967 o|substituted constant variable: r19459 o|substituted constant variable: r19660 o|contracted procedure: k19703 o|contracted procedure: k19815 o|contracted procedure: k19843 o|contracted procedure: k2208134638 o|contracted procedure: k28342 o|contracted procedure: k28540 o|contracted procedure: k28591 o|contracted procedure: k28755 o|contracted procedure: k28966 o|contracted procedure: k28987 o|substituted constant variable: r31144 o|folded constant expression: (integer->char (quote 247)) o|substituted constant variable: r31152 o|folded constant expression: (integer->char (quote 240)) o|substituted constant variable: r31172 o|folded constant expression: (integer->char (quote 239)) o|substituted constant variable: r31180 o|folded constant expression: (integer->char (quote 224)) o|substituted constant variable: r31200 o|folded constant expression: (integer->char (quote 223)) o|substituted constant variable: r31208 o|folded constant expression: (integer->char (quote 194)) o|substituted constant variable: r31224 o|folded constant expression: (integer->char (quote 193)) o|substituted constant variable: r31232 o|folded constant expression: (integer->char (quote 128)) o|substituted constant variable: r31260 o|folded constant expression: (integer->char (quote 13)) o|substituted constant variable: r31272 o|folded constant expression: (integer->char (quote 13)) o|substituted constant variable: r31296 o|folded constant expression: (integer->char (quote 127)) o|substituted constant variable: r31304 o|folded constant expression: (integer->char (quote 11)) o|substituted constant variable: r31312 o|folded constant expression: (integer->char (quote 9)) o|substituted constant variable: r31320 o|folded constant expression: (integer->char (quote 0)) o|substituted constant variable: r31336 o|folded constant expression: (integer->char (quote 127)) o|substituted constant variable: r31344 o|folded constant expression: (integer->char (quote 0)) o|substituted constant variable: r31364 o|folded constant expression: (integer->char (quote 31)) o|substituted constant variable: r31372 o|folded constant expression: (integer->char (quote 0)) o|substituted constant variable: r31384 o|folded constant expression: (integer->char (quote 9)) o|substituted constant variable: r31441 o|folded constant expression: (integer->char (quote 12)) o|substituted constant variable: r31453 o|folded constant expression: (integer->char (quote 27)) o|substituted constant variable: r31465 o|folded constant expression: (integer->char (quote 7)) o|substituted constant variable: r31477 o|folded constant expression: (integer->char (quote 9)) o|substituted constant variable: r31489 o|folded constant expression: (integer->char (quote 13)) o|replaced variables: 12 o|removed binding forms: 335 o|substituted constant variable: r974634080 o|substituted constant variable: r974634086 o|substituted constant variable: r974634092 o|substituted constant variable: r974634098 o|substituted constant variable: r974634104 o|substituted constant variable: r974634110 o|substituted constant variable: r974634116 o|substituted constant variable: r974634122 o|substituted constant variable: r974634128 o|substituted constant variable: r974634134 o|substituted constant variable: r974634388 o|substituted constant variable: r974634402 o|substituted constant variable: a19658 o|substituted constant variable: r19704 o|substituted constant variable: r19816 o|substituted constant variable: r19844 o|substituted constant variable: r2208234636 o|substituted constant variable: r28343 o|substituted constant variable: r28541 o|substituted constant variable: r28592 o|substituted constant variable: r28756 o|substituted constant variable: r28967 o|substituted constant variable: r28988 o|contracted procedure: k31135 o|contracted procedure: k31139 o|contracted procedure: k31163 o|contracted procedure: k31167 o|contracted procedure: k31191 o|contracted procedure: k31195 o|contracted procedure: k31215 o|contracted procedure: k31219 o|contracted procedure: k31255 o|contracted procedure: k31267 o|contracted procedure: k31279 o|contracted procedure: k31283 o|contracted procedure: k31287 o|contracted procedure: k31291 o|contracted procedure: k31327 o|contracted procedure: k31331 o|contracted procedure: k31355 o|contracted procedure: k31359 o|contracted procedure: k31379 o|contracted procedure: k31436 o|contracted procedure: k31448 o|contracted procedure: k31460 o|contracted procedure: k31472 o|contracted procedure: k31484 o|replaced variables: 23 o|removed binding forms: 71 o|substituted constant variable: r31136 o|substituted constant variable: r31136 o|substituted constant variable: r31140 o|substituted constant variable: r31164 o|substituted constant variable: r31164 o|substituted constant variable: r31168 o|substituted constant variable: r31192 o|substituted constant variable: r31192 o|substituted constant variable: r31196 o|substituted constant variable: r31216 o|substituted constant variable: r31216 o|substituted constant variable: r31220 o|substituted constant variable: r31256 o|substituted constant variable: r31268 o|substituted constant variable: r31280 o|substituted constant variable: r31284 o|substituted constant variable: r31288 o|substituted constant variable: r31280 o|substituted constant variable: r31284 o|substituted constant variable: r31288 o|substituted constant variable: r31292 o|substituted constant variable: r31328 o|substituted constant variable: r31328 o|substituted constant variable: r31332 o|substituted constant variable: r31356 o|substituted constant variable: r31356 o|substituted constant variable: r31360 o|substituted constant variable: r31380 o|substituted constant variable: r31437 o|substituted constant variable: r31449 o|substituted constant variable: r31461 o|substituted constant variable: r31473 o|substituted constant variable: r31485 o|removed binding forms: 46 o|removed binding forms: 33 o|simplifications: ((if . 140) (##core#call . 3136)) o| call simplifications: o| ##sys#check-string o| fx> 2 o| write-char o| list->string 2 o| char>? 5 o| char<=? 2 o| char>=? 3 o| quotient o| assoc 4 o| memv 4 o| char? 10 o| char=? 7 o| eqv? 2 o| cdddr 9 o| cadddr 2 o| symbol? 7 o| caddr 14 o| vector-set! 63 o| fx+ 2 o| ##sys#setislot o| length 6 o| ##sys#check-list 31 o| fxshr 6 o| fxshl 6 o| fx<= 8 o| integer->char 27 o| char-upper-case? o| char-upcase o| char-downcase o| equal? 10 o| assv 4 o| char 12 o| char->integer 19 o| fx< o| fx>= o| string->list 7 o| ##sys#setslot 33 o| ##sys#list 174 o| string? 23 o| char-whitespace? 2 o| string->number 7 o| fxnot 2 o| fxand 58 o| fxior 20 o| car 78 o| <= 5 o| zero? 9 o| char-alphabetic? 7 o| char-numeric? 5 o| = 66 o| string-ref 68 o| string-length 24 o| list 50 o| cons 213 o| procedure? 10 o| vector 26 o| vector-ref 168 o| assq 13 o| cdr 60 o| pair? 121 o| number? 13 o| null? 64 o| caar 26 o| eq? 427 o| cdar 15 o| integer? 12 o| exact? 8 o| >= 34 o| < 22 o| apply 16 o| ##sys#size 9 o| fx/ o| - 37 o| + 364 o| * 57 o| ##sys#make-structure 4 o| ##sys#check-structure 9 o| ##sys#slot 218 o| ##sys#structure? 3 o| vector-length 20 o|contracted procedure: k7542 o|contracted procedure: k7554 o|contracted procedure: k7563 o|contracted procedure: k7572 o|contracted procedure: k7581 o|contracted procedure: k7590 o|contracted procedure: k7599 o|contracted procedure: k7608 o|contracted procedure: k7625 o|contracted procedure: k7634 o|contracted procedure: k7630 o|contracted procedure: k7644 o|contracted procedure: k7656 o|contracted procedure: k7667 o|contracted procedure: k7671 o|contracted procedure: k7675 o|contracted procedure: k7679 o|contracted procedure: k7691 o|contracted procedure: k7706 o|contracted procedure: k7702 o|contracted procedure: k7698 o|contracted procedure: k7718 o|contracted procedure: k7737 o|contracted procedure: k7745 o|contracted procedure: k7741 o|contracted procedure: k7791 o|contracted procedure: k7795 o|contracted procedure: k7816 o|contracted procedure: k7824 o|contracted procedure: k7820 o|contracted procedure: k7845 o|contracted procedure: k7853 o|contracted procedure: k7849 o|contracted procedure: k8133 o|contracted procedure: k8129 o|contracted procedure: k7973 o|contracted procedure: k7983 o|contracted procedure: k8055 o|contracted procedure: k7989 o|contracted procedure: k8029 o|contracted procedure: k8043 o|contracted procedure: k8039 o|contracted procedure: k8035 o|contracted procedure: k7997 o|contracted procedure: k8003 o|substituted constant variable: g36306 o|contracted procedure: k8010 o|contracted procedure: k8018 o|contracted procedure: k8014 o|contracted procedure: k8074 o|contracted procedure: k8125 o|contracted procedure: k8086 o|contracted procedure: k8098 o|contracted procedure: k8102 o|contracted procedure: k8149 o|contracted procedure: k8191 o|contracted procedure: k8163 o|contracted procedure: k8169 o|substituted constant variable: g36312 o|contracted procedure: k8176 o|contracted procedure: k8184 o|contracted procedure: k8180 o|contracted procedure: k7769 o|contracted procedure: k8213 o|contracted procedure: k8219 o|contracted procedure: k8270 o|contracted procedure: k8278 o|contracted procedure: k8274 o|contracted procedure: k8249 o|contracted procedure: k8257 o|contracted procedure: k8253 o|contracted procedure: k8232 o|contracted procedure: k8236 o|contracted procedure: k8294 o|contracted procedure: k8297 o|contracted procedure: k8360 o|contracted procedure: k8368 o|contracted procedure: k8364 o|contracted procedure: k8339 o|contracted procedure: k8347 o|contracted procedure: k8343 o|contracted procedure: k8322 o|contracted procedure: k8326 o|contracted procedure: k8384 o|contracted procedure: k8563 o|contracted procedure: k8390 o|contracted procedure: k8393 o|contracted procedure: k8550 o|contracted procedure: k8396 o|contracted procedure: k8546 o|contracted procedure: k8399 o|contracted procedure: k8402 o|contracted procedure: k8458 o|contracted procedure: k8476 o|contracted procedure: k8485 o|contracted procedure: k8492 o|contracted procedure: k8515 o|contracted procedure: k8449 o|contracted procedure: k8405 o|contracted procedure: k8445 o|contracted procedure: k8408 o|contracted procedure: k8427 o|contracted procedure: k8433 o|contracted procedure: k8439 o|contracted procedure: k8567 o|contracted procedure: k8573 o|contracted procedure: k8659 o|contracted procedure: k8670 o|contracted procedure: k8666 o|contracted procedure: k8619 o|contracted procedure: k8622 o|contracted procedure: k8637 o|contracted procedure: k8679 o|contracted procedure: k8692 o|contracted procedure: k8699 o|contracted procedure: k8793 o|contracted procedure: k8800 o|contracted procedure: k8816 o|contracted procedure: k8834 o|contracted procedure: k8822 o|contracted procedure: k8829 o|contracted procedure: k8837 o|contracted procedure: k9014 o|contracted procedure: k9132 o|contracted procedure: k9136 o|contracted procedure: k9139 o|contracted procedure: k9114 o|contracted procedure: k9153 o|substituted constant variable: g36326 o|contracted procedure: k9160 o|contracted procedure: k9169 o|contracted procedure: k9179 o|contracted procedure: k9183 o|contracted procedure: k9198 o|contracted procedure: k9214 o|contracted procedure: k9282 o|contracted procedure: k9278 o|contracted procedure: k9268 o|contracted procedure: k9291 o|contracted procedure: k9307 o|contracted procedure: k9323 o|contracted procedure: k9331 o|contracted procedure: k9341 o|contracted procedure: k9352 o|contracted procedure: k9368 o|contracted procedure: k9385 o|contracted procedure: k9392 o|contracted procedure: k9745 o|contracted procedure: k9752 o|contracted procedure: k9763 o|contracted procedure: k9772 o|contracted procedure: k9778 o|contracted procedure: k9784 o|contracted procedure: k9791 o|contracted procedure: k9806 o|contracted procedure: k9819 o|contracted procedure: k9825 o|contracted procedure: k9874 o|contracted procedure: k9864 o|contracted procedure: k9870 o|contracted procedure: k9881 o|contracted procedure: k9887 o|contracted procedure: k9894 o|contracted procedure: k9900 o|contracted procedure: k9907 o|contracted procedure: k9916 o|contracted procedure: k9926 o|contracted procedure: k9933 o|contracted procedure: k9941 o|contracted procedure: k9947 o|contracted procedure: k9950 o|contracted procedure: k9957 o|contracted procedure: k9978 o|contracted procedure: k9973 o|contracted procedure: k9963 o|contracted procedure: k9970 o|contracted procedure: k9984 o|contracted procedure: k9990 o|contracted procedure: k9993 o|contracted procedure: k10006 o|contracted procedure: k10031 o|contracted procedure: k10015 o|contracted procedure: k10027 o|contracted procedure: k10023 o|contracted procedure: k10037 o|contracted procedure: k10044 o|contracted procedure: k10048 o|contracted procedure: k10060 o|contracted procedure: k10073 o|contracted procedure: k10079 o|contracted procedure: k10085 o|contracted procedure: k10096 o|contracted procedure: k10106 o|contracted procedure: k10113 o|contracted procedure: k10117 o|contracted procedure: k10128 o|contracted procedure: k10138 o|contracted procedure: k10257 o|contracted procedure: k10141 o|contracted procedure: k10147 o|contracted procedure: k10154 o|contracted procedure: k10166 o|contracted procedure: k10173 o|contracted procedure: k10186 o|contracted procedure: k10192 o|contracted procedure: k10200 o|contracted procedure: k10216 o|contracted procedure: k10219 o|contracted procedure: k10239 o|contracted procedure: k10235 o|contracted procedure: k10226 o|contracted procedure: k10230 o|contracted procedure: k10263 o|contracted procedure: k10270 o|contracted procedure: k10277 o|contracted procedure: k10286 o|contracted procedure: k10299 o|contracted procedure: k10312 o|contracted procedure: k10315 o|contracted procedure: k10318 o|contracted procedure: k10357 o|contracted procedure: k10492 o|contracted procedure: k10391 o|contracted procedure: k10403 o|inlining procedure: k10395 o|contracted procedure: k10412 o|contracted procedure: k10415 o|inlining procedure: k10395 o|contracted procedure: k10421 o|contracted procedure: k10424 o|inlining procedure: k10395 o|contracted procedure: k10430 o|contracted procedure: k10433 o|inlining procedure: k10395 o|contracted procedure: k10439 o|contracted procedure: k10442 o|inlining procedure: k10395 o|contracted procedure: k10476 o|contracted procedure: k10501 o|contracted procedure: k10513 o|contracted procedure: k10531 o|contracted procedure: k972634036 o|substituted constant variable: g36359 o|contracted procedure: k10560 o|contracted procedure: k10575 o|contracted procedure: k10578 o|contracted procedure: k10581 o|contracted procedure: k10589 o|contracted procedure: k10597 o|contracted procedure: k972634044 o|substituted constant variable: g36363 o|contracted procedure: k10609 o|contracted procedure: k10635 o|contracted procedure: k10644 o|contracted procedure: k10654 o|contracted procedure: k10673 o|inlining procedure: k10666 o|contracted procedure: k10686 o|contracted procedure: k14448 o|substituted constant variable: g36372 o|contracted procedure: k14478 o|contracted procedure: k14451 o|contracted procedure: k14457 o|contracted procedure: k14460 o|contracted procedure: k14467 o|substituted constant variable: g36376 o|contracted procedure: k972634052 o|substituted constant variable: g36377 o|contracted procedure: k10729 o|contracted procedure: k10735 o|contracted procedure: k10818 o|contracted procedure: k10744 o|contracted procedure: k10807 o|contracted procedure: k10757 o|contracted procedure: k10764 o|contracted procedure: k10771 o|contracted procedure: k10797 o|contracted procedure: k10814 o|contracted procedure: k972634058 o|substituted constant variable: g36379 o|contracted procedure: k10858 o|contracted procedure: k10834 o|contracted procedure: k10852 o|contracted procedure: k10865 o|contracted procedure: k10873 o|contracted procedure: k10884 o|contracted procedure: k10898 o|contracted procedure: k10912 o|contracted procedure: k10916 o|contracted procedure: k10920 o|contracted procedure: k10935 o|contracted procedure: k10945 o|contracted procedure: k10951 o|contracted procedure: k10960 o|contracted procedure: k10966 o|contracted procedure: k10973 o|contracted procedure: k10977 o|inlining procedure: k10981 o|inlining procedure: k10981 o|contracted procedure: k972634076 o|substituted constant variable: g36383 o|contracted procedure: k10998 o|contracted procedure: k11007 o|contracted procedure: k11013 o|contracted procedure: k11020 o|contracted procedure: k11024 o|contracted procedure: k11028 o|contracted procedure: k11037 o|contracted procedure: k11044 o|contracted procedure: k11055 o|contracted procedure: k11066 o|contracted procedure: k11062 o|contracted procedure: k11074 o|contracted procedure: k11085 o|contracted procedure: k11096 o|contracted procedure: k11107 o|contracted procedure: k11103 o|contracted procedure: k11115 o|contracted procedure: k11126 o|contracted procedure: k11130 o|contracted procedure: k11122 o|contracted procedure: k11157 o|contracted procedure: k11160 o|contracted procedure: k11217 o|contracted procedure: k11166 o|contracted procedure: k11194 o|contracted procedure: k11198 o|contracted procedure: k11206 o|contracted procedure: k11210 o|contracted procedure: k11202 o|contracted procedure: k11214 o|contracted procedure: k11224 o|contracted procedure: k12053 o|contracted procedure: k11230 o|contracted procedure: k12049 o|contracted procedure: k12044 o|contracted procedure: k12039 o|contracted procedure: k11264 o|contracted procedure: k12035 o|contracted procedure: k12030 o|contracted procedure: k11273 o|contracted procedure: k11344 o|contracted procedure: k11340 o|contracted procedure: k11279 o|contracted procedure: k11286 o|contracted procedure: k11295 o|contracted procedure: k11308 o|contracted procedure: k11312 o|contracted procedure: k11316 o|contracted procedure: k11332 o|contracted procedure: k11327 o|contracted procedure: k12026 o|contracted procedure: k11347 o|contracted procedure: k11353 o|contracted procedure: k11363 o|contracted procedure: k11367 o|contracted procedure: k11375 o|contracted procedure: k11381 o|contracted procedure: k11388 o|contracted procedure: k11392 o|contracted procedure: k11396 o|contracted procedure: k11406 o|contracted procedure: k11413 o|contracted procedure: k11417 o|contracted procedure: k11421 o|contracted procedure: k11431 o|contracted procedure: k11438 o|contracted procedure: k11442 o|contracted procedure: k11446 o|contracted procedure: k11456 o|contracted procedure: k11592 o|contracted procedure: k11462 o|contracted procedure: k11588 o|contracted procedure: k11468 o|contracted procedure: k11474 o|contracted procedure: k11481 o|contracted procedure: k11485 o|contracted procedure: k11489 o|contracted procedure: k11499 o|contracted procedure: k11506 o|contracted procedure: k11510 o|contracted procedure: k11514 o|contracted procedure: k11531 o|contracted procedure: k11535 o|contracted procedure: k11539 o|contracted procedure: k11543 o|contracted procedure: k11559 o|contracted procedure: k11580 o|contracted procedure: k11576 o|contracted procedure: k11565 o|contracted procedure: k11572 o|contracted procedure: k11598 o|contracted procedure: k11605 o|contracted procedure: k11609 o|contracted procedure: k11613 o|contracted procedure: k11623 o|contracted procedure: k11774 o|contracted procedure: k11629 o|contracted procedure: k11770 o|contracted procedure: k11766 o|contracted procedure: k11638 o|contracted procedure: k11644 o|contracted procedure: k11660 o|contracted procedure: k11664 o|contracted procedure: k11668 o|contracted procedure: k11672 o|contracted procedure: k11684 o|contracted procedure: k11688 o|contracted procedure: k11762 o|contracted procedure: k11758 o|contracted procedure: k11694 o|contracted procedure: k11707 o|contracted procedure: k11711 o|contracted procedure: k11715 o|contracted procedure: k11719 o|contracted procedure: k11731 o|contracted procedure: k11735 o|contracted procedure: k11742 o|contracted procedure: k11746 o|contracted procedure: k11750 o|contracted procedure: k11780 o|contracted procedure: k11790 o|contracted procedure: k974534142 o|contracted procedure: k11817 o|contracted procedure: k972634152 o|substituted constant variable: g36391 o|contracted procedure: k972634158 o|substituted constant variable: g36393 o|contracted procedure: k11830 o|contracted procedure: k11836 o|contracted procedure: k11842 o|contracted procedure: k11849 o|contracted procedure: k11859 o|contracted procedure: k11866 o|contracted procedure: k11876 o|contracted procedure: k11883 o|contracted procedure: k11893 o|contracted procedure: k11903 o|contracted procedure: k11920 o|contracted procedure: k11927 o|contracted procedure: k11931 o|contracted procedure: k11937 o|contracted procedure: k11944 o|contracted procedure: k11948 o|contracted procedure: k11962 o|contracted procedure: k11969 o|contracted procedure: k11973 o|contracted procedure: k11985 o|contracted procedure: k11981 o|contracted procedure: k11246 o|contracted procedure: k11250 o|contracted procedure: k11254 o|contracted procedure: k12059 o|contracted procedure: k12065 o|contracted procedure: k12075 o|contracted procedure: k12079 o|contracted procedure: k12083 o|contracted procedure: k12097 o|contracted procedure: k12087 o|contracted procedure: k12103 o|contracted procedure: k12116 o|contracted procedure: k12120 o|contracted procedure: k12124 o|contracted procedure: k12136 o|contracted procedure: k13590 o|contracted procedure: k13605 o|contracted procedure: k13611 o|contracted procedure: k13617 o|contracted procedure: k13630 o|contracted procedure: k2655634175 o|contracted procedure: k27237 o|contracted procedure: k27241 o|contracted procedure: k972634181 o|substituted constant variable: g36403 o|contracted procedure: k2656634186 o|contracted procedure: k13663 o|contracted procedure: k13669 o|contracted procedure: k13679 o|contracted procedure: k2655634197 o|contracted procedure: k13824 o|contracted procedure: k13695 o|contracted procedure: k13707 o|contracted procedure: k2654634203 o|contracted procedure: k13815 o|contracted procedure: k13725 o|contracted procedure: k13737 o|contracted procedure: k13741 o|contracted procedure: k13757 o|contracted procedure: k13777 o|inlining procedure: k13728 o|contracted procedure: k13781 o|contracted procedure: k1424134208 o|contracted procedure: k13788 o|inlining procedure: k13728 o|contracted procedure: k13795 o|substituted constant variable: g36405 o|substituted constant variable: g36407 o|contracted procedure: k13798 o|contracted procedure: k13810 o|contracted procedure: k13805 o|contracted procedure: k13842 o|contracted procedure: k13838 o|contracted procedure: k13857 o|contracted procedure: k13845 o|contracted procedure: k13853 o|contracted procedure: k13863 o|contracted procedure: k13992 o|contracted procedure: k13988 o|contracted procedure: k13866 o|contracted procedure: k13869 o|contracted procedure: k13872 o|contracted procedure: k13878 o|contracted procedure: k13887 o|contracted procedure: k13906 o|contracted procedure: k13925 o|contracted procedure: k13941 o|contracted procedure: k13937 o|contracted procedure: k13932 o|contracted procedure: k13945 o|contracted procedure: k13951 o|contracted procedure: k13954 o|contracted procedure: k13964 o|contracted procedure: k2655634219 o|contracted procedure: k13998 o|contracted procedure: k14125 o|contracted procedure: k14001 o|contracted procedure: k14007 o|contracted procedure: k14017 o|contracted procedure: k14033 o|contracted procedure: k14039 o|contracted procedure: k2655634230 o|contracted procedure: k14060 o|contracted procedure: k14063 o|contracted procedure: k14066 o|contracted procedure: k14073 o|contracted procedure: k2655634241 o|contracted procedure: k14085 o|contracted procedure: k14091 o|contracted procedure: k14097 o|contracted procedure: k14103 o|contracted procedure: k14141 o|contracted procedure: k2655634252 o|contracted procedure: k1424134257 o|contracted procedure: k14160 o|contracted procedure: k2655634268 o|contracted procedure: k14171 o|substituted constant variable: g36412 o|substituted constant variable: g36414 o|contracted procedure: k14189 o|contracted procedure: k2655634273 o|inlining procedure: k14193 o|contracted procedure: k972634279 o|substituted constant variable: g36417 o|contracted procedure: k14209 o|contracted procedure: k972634287 o|substituted constant variable: g36421 o|contracted procedure: k14212 o|contracted procedure: k14220 o|contracted procedure: k12142 o|contracted procedure: k12353 o|contracted procedure: k12148 o|contracted procedure: k12158 o|contracted procedure: k12167 o|contracted procedure: k12173 o|contracted procedure: k12307 o|contracted procedure: k12183 o|contracted procedure: k12192 o|contracted procedure: k12204 o|contracted procedure: k12211 o|contracted procedure: k12215 o|contracted procedure: k12223 o|contracted procedure: k12219 o|contracted procedure: k12233 o|contracted procedure: k12237 o|contracted procedure: k12245 o|contracted procedure: k12241 o|contracted procedure: k12252 o|contracted procedure: k12256 o|contracted procedure: k12264 o|contracted procedure: k12260 o|contracted procedure: k12272 o|contracted procedure: k12289 o|contracted procedure: k12285 o|contracted procedure: k12294 o|contracted procedure: k12301 o|contracted procedure: k8946 o|contracted procedure: k8968 o|contracted procedure: k9008 o|contracted procedure: k8981 o|contracted procedure: k8988 o|contracted procedure: k8992 o|contracted procedure: k9003 o|contracted procedure: k12315 o|contracted procedure: k12319 o|contracted procedure: k12349 o|contracted procedure: k12345 o|contracted procedure: k12326 o|contracted procedure: k12341 o|contracted procedure: k12337 o|contracted procedure: k12329 o|contracted procedure: k12359 o|contracted procedure: k13212 o|contracted procedure: k12365 o|contracted procedure: k13208 o|contracted procedure: k12371 o|contracted procedure: k12377 o|contracted procedure: k12384 o|contracted procedure: k12388 o|contracted procedure: k12392 o|contracted procedure: k12402 o|contracted procedure: k12409 o|contracted procedure: k12413 o|contracted procedure: k12421 o|contracted procedure: k12417 o|contracted procedure: k12431 o|contracted procedure: k12438 o|contracted procedure: k12442 o|contracted procedure: k12446 o|contracted procedure: k12456 o|contracted procedure: k12463 o|contracted procedure: k12467 o|contracted procedure: k12475 o|contracted procedure: k12471 o|contracted procedure: k12485 o|contracted procedure: k12492 o|contracted procedure: k12496 o|contracted procedure: k12512 o|contracted procedure: k12504 o|contracted procedure: k12500 o|contracted procedure: k12518 o|contracted procedure: k12525 o|contracted procedure: k12529 o|contracted procedure: k12549 o|contracted procedure: k12545 o|contracted procedure: k12537 o|contracted procedure: k12533 o|contracted procedure: k12555 o|contracted procedure: k12562 o|contracted procedure: k12566 o|contracted procedure: k12574 o|contracted procedure: k12570 o|contracted procedure: k12584 o|contracted procedure: k12591 o|contracted procedure: k12595 o|contracted procedure: k12599 o|contracted procedure: k12609 o|contracted procedure: k12616 o|contracted procedure: k12620 o|contracted procedure: k12624 o|contracted procedure: k12634 o|contracted procedure: k12641 o|contracted procedure: k12645 o|contracted procedure: k12653 o|contracted procedure: k12657 o|contracted procedure: k12649 o|contracted procedure: k12667 o|contracted procedure: k12674 o|contracted procedure: k12678 o|contracted procedure: k12682 o|contracted procedure: k12692 o|contracted procedure: k12699 o|contracted procedure: k12703 o|contracted procedure: k12707 o|contracted procedure: k12717 o|contracted procedure: k12724 o|contracted procedure: k12728 o|contracted procedure: k12732 o|contracted procedure: k12742 o|contracted procedure: k12749 o|contracted procedure: k12753 o|contracted procedure: k12757 o|contracted procedure: k12767 o|contracted procedure: k12774 o|contracted procedure: k12778 o|contracted procedure: k12782 o|contracted procedure: k12792 o|contracted procedure: k12805 o|contracted procedure: k12809 o|contracted procedure: k12813 o|contracted procedure: k12825 o|contracted procedure: k12831 o|contracted procedure: k12912 o|contracted procedure: k12834 o|contracted procedure: k12855 o|contracted procedure: k12871 o|contracted procedure: k12875 o|contracted procedure: k12883 o|contracted procedure: k12879 o|contracted procedure: k972634295 o|substituted constant variable: g36431 o|contracted procedure: k12901 o|contracted procedure: k12905 o|contracted procedure: k13456 o|contracted procedure: k13462 o|contracted procedure: k13468 o|contracted procedure: k13474 o|contracted procedure: k12918 o|contracted procedure: k12928 o|contracted procedure: k12937 o|contracted procedure: k12944 o|contracted procedure: k13028 o|contracted procedure: k12950 o|contracted procedure: k13016 o|contracted procedure: k12956 o|contracted procedure: k12963 o|contracted procedure: k12967 o|contracted procedure: k13012 o|contracted procedure: k13008 o|contracted procedure: k12973 o|contracted procedure: k12980 o|contracted procedure: k12984 o|contracted procedure: k12988 o|contracted procedure: k12996 o|contracted procedure: k13003 o|contracted procedure: k13023 o|contracted procedure: k13034 o|contracted procedure: k13041 o|contracted procedure: k13051 o|contracted procedure: k13061 o|contracted procedure: k13067 o|contracted procedure: k13070 o|contracted procedure: k13088 o|contracted procedure: k13080 o|contracted procedure: k13073 o|contracted procedure: k13096 o|contracted procedure: k972634303 o|substituted constant variable: g36439 o|contracted procedure: k13109 o|contracted procedure: k13113 o|contracted procedure: k8903 o|contracted procedure: k8939 o|contracted procedure: k8910 o|contracted procedure: k8919 o|contracted procedure: k8932 o|contracted procedure: k8936 o|contracted procedure: k13119 o|contracted procedure: k13122 o|contracted procedure: k13132 o|contracted procedure: k13136 o|contracted procedure: k13144 o|contracted procedure: k13140 o|contracted procedure: k13158 o|contracted procedure: k13162 o|contracted procedure: k13218 o|contracted procedure: k13225 o|contracted procedure: k13229 o|contracted procedure: k13233 o|contracted procedure: k13243 o|contracted procedure: k13246 o|contracted procedure: k13253 o|contracted procedure: k13257 o|contracted procedure: k13261 o|contracted procedure: k972634311 o|substituted constant variable: g36447 o|contracted procedure: k13274 o|contracted procedure: k13277 o|contracted procedure: k13284 o|contracted procedure: k13288 o|contracted procedure: k13292 o|contracted procedure: k972634317 o|substituted constant variable: g36449 o|contracted procedure: k13305 o|contracted procedure: k13318 o|contracted procedure: k13322 o|contracted procedure: k13333 o|contracted procedure: k972634323 o|substituted constant variable: g36451 o|contracted procedure: k13339 o|contracted procedure: k13351 o|contracted procedure: k13358 o|contracted procedure: k13362 o|contracted procedure: k13373 o|contracted procedure: k13380 o|contracted procedure: k972634329 o|substituted constant variable: g36453 o|contracted procedure: k13387 o|contracted procedure: k13428 o|contracted procedure: k31412 o|contracted procedure: k31416 o|contracted procedure: k31420 o|contracted procedure: k31424 o|contracted procedure: k31428 o|contracted procedure: k31432 o|contracted procedure: k13432 o|contracted procedure: k13441 o|contracted procedure: k13491 o|contracted procedure: k13584 o|contracted procedure: k13500 o|contracted procedure: k13518 o|contracted procedure: k13528 o|contracted procedure: k13535 o|contracted procedure: k13539 o|contracted procedure: k8844 o|contracted procedure: k8896 o|contracted procedure: k8851 o|contracted procedure: k8860 o|contracted procedure: k8893 o|contracted procedure: k8866 o|contracted procedure: k8886 o|contracted procedure: k13579 o|contracted procedure: k13545 o|contracted procedure: k13554 o|contracted procedure: k13564 o|contracted procedure: k13568 o|contracted procedure: k13575 o|contracted procedure: k14231 o|contracted procedure: k14254 o|contracted procedure: k14260 o|contracted procedure: k14269 o|contracted procedure: k14296 o|contracted procedure: k14280 o|contracted procedure: k14284 o|contracted procedure: k14276 o|contracted procedure: k14292 o|contracted procedure: k14306 o|contracted procedure: k14349 o|contracted procedure: k14317 o|contracted procedure: k14337 o|contracted procedure: k14321 o|contracted procedure: k14325 o|contracted procedure: k14313 o|contracted procedure: k14333 o|contracted procedure: k14345 o|contracted procedure: k14359 o|contracted procedure: k14418 o|contracted procedure: k14370 o|contracted procedure: k14406 o|contracted procedure: k14374 o|contracted procedure: k14394 o|contracted procedure: k14378 o|contracted procedure: k14382 o|contracted procedure: k14366 o|contracted procedure: k14390 o|contracted procedure: k14402 o|contracted procedure: k14414 o|contracted procedure: k14487 o|contracted procedure: k14493 o|contracted procedure: k14499 o|contracted procedure: k14505 o|contracted procedure: k14560 o|contracted procedure: k14566 o|contracted procedure: k14575 o|contracted procedure: k14594 o|contracted procedure: k14582 o|contracted procedure: k14590 o|contracted procedure: k14586 o|contracted procedure: k14600 o|contracted procedure: k14631 o|contracted procedure: k14607 o|contracted procedure: k14627 o|contracted procedure: k14623 o|contracted procedure: k14611 o|contracted procedure: k14619 o|contracted procedure: k14615 o|contracted procedure: k14637 o|contracted procedure: k14680 o|contracted procedure: k14644 o|contracted procedure: k14676 o|contracted procedure: k14672 o|contracted procedure: k14648 o|contracted procedure: k14668 o|contracted procedure: k14664 o|contracted procedure: k14652 o|contracted procedure: k14660 o|contracted procedure: k14656 o|contracted procedure: k14833 o|contracted procedure: k14840 o|contracted procedure: k14844 o|contracted procedure: k14848 o|contracted procedure: k14860 o|contracted procedure: k14863 o|contracted procedure: k14878 o|contracted procedure: k14895 o|contracted procedure: k14870 o|contracted procedure: k14907 o|contracted procedure: k14925 o|contracted procedure: k14910 o|contracted procedure: k14913 o|contracted procedure: k14921 o|contracted procedure: k14943 o|contracted procedure: k14965 o|contracted procedure: k14961 o|contracted procedure: k14946 o|contracted procedure: k14949 o|contracted procedure: k14957 o|contracted procedure: k15117 o|contracted procedure: k14984 o|contracted procedure: k14980 o|contracted procedure: k15014 o|contracted procedure: k15010 o|contracted procedure: k15002 o|contracted procedure: k15018 o|contracted procedure: k15022 o|contracted procedure: k15034 o|contracted procedure: k15040 o|contracted procedure: k15055 o|contracted procedure: k15051 o|contracted procedure: k15047 o|contracted procedure: k15072 o|contracted procedure: k15094 o|contracted procedure: k15090 o|contracted procedure: k15075 o|contracted procedure: k15078 o|contracted procedure: k15086 o|contracted procedure: k15101 o|contracted procedure: k15264 o|contracted procedure: k15131 o|contracted procedure: k15127 o|contracted procedure: k15161 o|contracted procedure: k15157 o|contracted procedure: k15153 o|contracted procedure: k15165 o|contracted procedure: k15169 o|contracted procedure: k15181 o|contracted procedure: k15187 o|contracted procedure: k15206 o|contracted procedure: k15198 o|contracted procedure: k15194 o|contracted procedure: k15219 o|contracted procedure: k15241 o|contracted procedure: k15237 o|contracted procedure: k15222 o|contracted procedure: k15225 o|contracted procedure: k15233 o|contracted procedure: k15248 o|contracted procedure: k15758 o|contracted procedure: k15776 o|contracted procedure: k15783 o|contracted procedure: k15773 o|contracted procedure: k15803 o|contracted procedure: k15807 o|contracted procedure: k14820 o|contracted procedure: k14733 o|contracted procedure: k14812 o|contracted procedure: k14816 o|contracted procedure: k14739 o|contracted procedure: k14750 o|contracted procedure: k14746 o|contracted procedure: k14804 o|contracted procedure: k14766 o|contracted procedure: k14773 o|contracted procedure: k14788 o|contracted procedure: k15739 o|contracted procedure: k15735 o|contracted procedure: k15646 o|contracted procedure: k15731 o|contracted procedure: k15727 o|contracted procedure: k15649 o|contracted procedure: k15660 o|contracted procedure: k15664 o|contracted procedure: k15681 o|contracted procedure: k15656 o|contracted procedure: k15693 o|contracted procedure: k15711 o|contracted procedure: k15696 o|contracted procedure: k15699 o|contracted procedure: k15707 o|contracted procedure: k14713 o|contracted procedure: k15270 o|contracted procedure: k15281 o|contracted procedure: k15285 o|contracted procedure: k15366 o|contracted procedure: k15370 o|contracted procedure: k15298 o|contracted procedure: k15302 o|contracted procedure: k15321 o|contracted procedure: k15294 o|contracted procedure: k15333 o|contracted procedure: k15351 o|contracted procedure: k15336 o|contracted procedure: k15339 o|contracted procedure: k15347 o|contracted procedure: k15362 o|contracted procedure: k15378 o|contracted procedure: k14525 o|contracted procedure: k14531 o|contracted procedure: k14537 o|contracted procedure: k14543 o|contracted procedure: k15386 o|contracted procedure: k15392 o|contracted procedure: k15399 o|contracted procedure: k15473 o|contracted procedure: k15481 o|contracted procedure: k15477 o|contracted procedure: k15411 o|contracted procedure: k15415 o|contracted procedure: k15432 o|contracted procedure: k15407 o|contracted procedure: k15444 o|contracted procedure: k15462 o|contracted procedure: k15447 o|contracted procedure: k15450 o|contracted procedure: k15458 o|contracted procedure: k15503 o|contracted procedure: k15499 o|contracted procedure: k15495 o|contracted procedure: k1424134354 o|contracted procedure: k15512 o|contracted procedure: k15515 o|contracted procedure: k15518 o|contracted procedure: k15526 o|contracted procedure: k15534 o|contracted procedure: k15545 o|contracted procedure: k15549 o|contracted procedure: k15541 o|contracted procedure: k15640 o|contracted procedure: k15623 o|contracted procedure: k15634 o|substituted constant variable: g36492 o|contracted procedure: k15561 o|contracted procedure: k15565 o|contracted procedure: k15582 o|contracted procedure: k15557 o|contracted procedure: k15594 o|contracted procedure: k15612 o|contracted procedure: k15597 o|contracted procedure: k15600 o|contracted procedure: k15608 o|contracted procedure: k15823 o|contracted procedure: k15834 o|contracted procedure: k15827 o|contracted procedure: k15843 o|contracted procedure: k1423134365 o|contracted procedure: k15847 o|contracted procedure: k1423134370 o|contracted procedure: k16321 o|contracted procedure: k16419 o|contracted procedure: k16327 o|contracted procedure: k16415 o|contracted procedure: k16336 o|contracted procedure: k16411 o|contracted procedure: k16345 o|contracted procedure: k16407 o|contracted procedure: k16354 o|contracted procedure: k16403 o|contracted procedure: k16363 o|contracted procedure: k16372 o|contracted procedure: k16375 o|contracted procedure: k16390 o|contracted procedure: k16378 o|contracted procedure: k16386 o|contracted procedure: k16381 o|contracted procedure: k16393 o|contracted procedure: k16425 o|contracted procedure: k16496 o|contracted procedure: k16480 o|contracted procedure: k26431 o|contracted procedure: k23626 o|contracted procedure: k23686 o|contracted procedure: k23694 o|contracted procedure: k23632 o|contracted procedure: k23672 o|contracted procedure: k23635 o|contracted procedure: k23660 o|contracted procedure: k23638 o|contracted procedure: k23648 o|contracted procedure: k23641 o|contracted procedure: k23644 o|contracted procedure: k23709 o|contracted procedure: k23715 o|contracted procedure: k972634378 o|substituted constant variable: g36495 o|contracted procedure: k23735 o|contracted procedure: k972634384 o|substituted constant variable: g36497 o|contracted procedure: k23755 o|contracted procedure: k23758 o|contracted procedure: k23764 o|contracted procedure: k23775 o|contracted procedure: k23782 o|contracted procedure: k23807 o|contracted procedure: k23815 o|contracted procedure: k23819 o|contracted procedure: k23823 o|contracted procedure: k23835 o|contracted procedure: k23846 o|contracted procedure: k23854 o|contracted procedure: k23865 o|contracted procedure: k23873 o|contracted procedure: k23884 o|contracted procedure: k23892 o|contracted procedure: k23903 o|contracted procedure: k23911 o|contracted procedure: k23914 o|contracted procedure: k23917 o|contracted procedure: k23923 o|contracted procedure: k23929 o|contracted procedure: k23936 o|contracted procedure: k23946 o|contracted procedure: k23954 o|contracted procedure: k23962 o|contracted procedure: k23966 o|contracted procedure: k23978 o|contracted procedure: k24004 o|contracted procedure: k24030 o|contracted procedure: k24057 o|contracted procedure: k24075 o|contracted procedure: k24129 o|contracted procedure: k24172 o|contracted procedure: k24187 o|contracted procedure: k24191 o|contracted procedure: k24183 o|contracted procedure: k24179 o|contracted procedure: k24203 o|contracted procedure: k24218 o|contracted procedure: k24222 o|contracted procedure: k24214 o|contracted procedure: k24210 o|contracted procedure: k24231 o|contracted procedure: k24250 o|contracted procedure: k24285 o|contracted procedure: k24295 o|contracted procedure: k24334 o|contracted procedure: k24308 o|contracted procedure: k24325 o|contracted procedure: k24383 o|contracted procedure: k24359 o|contracted procedure: k24379 o|contracted procedure: k24365 o|contracted procedure: k24389 o|contracted procedure: k24408 o|contracted procedure: k24425 o|contracted procedure: k24435 o|contracted procedure: k24460 o|contracted procedure: k24502 o|contracted procedure: k24473 o|contracted procedure: k24481 o|contracted procedure: k24551 o|contracted procedure: k24527 o|contracted procedure: k24547 o|contracted procedure: k24533 o|contracted procedure: k24557 o|contracted procedure: k24568 o|contracted procedure: k24564 o|contracted procedure: k24578 o|contracted procedure: k24584 o|contracted procedure: k24603 o|contracted procedure: k24607 o|contracted procedure: k24599 o|contracted procedure: k24595 o|contracted procedure: k24591 o|contracted procedure: k24615 o|contracted procedure: k24626 o|contracted procedure: k24632 o|contracted procedure: k24667 o|contracted procedure: k24702 o|contracted procedure: k24705 o|contracted procedure: k24716 o|contracted procedure: k24723 o|contracted procedure: k24759 o|contracted procedure: k24753 o|contracted procedure: k24732 o|contracted procedure: k24765 o|contracted procedure: k8758 o|contracted procedure: k8751 o|contracted procedure: k8762 o|contracted procedure: k8766 o|contracted procedure: k8775 o|contracted procedure: k8778 o|contracted procedure: k8785 o|contracted procedure: k8789 o|contracted procedure: k24776 o|contracted procedure: k24788 o|contracted procedure: k24823 o|contracted procedure: k24927 o|contracted procedure: k24838 o|contracted procedure: k24858 o|contracted procedure: k24866 o|contracted procedure: k24862 o|contracted procedure: k24878 o|contracted procedure: k24881 o|contracted procedure: k24917 o|contracted procedure: k24958 o|contracted procedure: k24930 o|contracted procedure: k24937 o|contracted procedure: k24941 o|contracted procedure: k24962 o|contracted procedure: k24966 o|contracted procedure: k24970 o|contracted procedure: k24976 o|contracted procedure: k24979 o|contracted procedure: k25006 o|contracted procedure: k25128 o|contracted procedure: k25015 o|contracted procedure: k25028 o|contracted procedure: k25043 o|contracted procedure: k25047 o|contracted procedure: k25056 o|contracted procedure: k25069 o|contracted procedure: k25076 o|contracted procedure: k25083 o|contracted procedure: k25102 o|contracted procedure: k25090 o|contracted procedure: k25098 o|contracted procedure: k25094 o|contracted procedure: k25124 o|contracted procedure: k25120 o|contracted procedure: k25131 o|contracted procedure: k972634412 o|substituted constant variable: g36515 o|contracted procedure: k25166 o|contracted procedure: k25142 o|contracted procedure: k25147 o|contracted procedure: k25172 o|contracted procedure: k25187 o|contracted procedure: k25183 o|contracted procedure: k25191 o|contracted procedure: k25197 o|contracted procedure: k25200 o|contracted procedure: k25298 o|contracted procedure: k25302 o|contracted procedure: k25244 o|contracted procedure: k25286 o|contracted procedure: k25294 o|contracted procedure: k25290 o|contracted procedure: k25247 o|contracted procedure: k25278 o|contracted procedure: k25282 o|contracted procedure: k25256 o|contracted procedure: k25266 o|contracted procedure: k25274 o|contracted procedure: k25270 o|contracted procedure: k25259 o|contracted procedure: k25230 o|contracted procedure: k25238 o|contracted procedure: k25234 o|contracted procedure: k25214 o|contracted procedure: k25218 o|contracted procedure: k25310 o|contracted procedure: k25397 o|contracted procedure: k25405 o|contracted procedure: k25401 o|contracted procedure: k25339 o|contracted procedure: k25385 o|contracted procedure: k25393 o|contracted procedure: k25389 o|contracted procedure: k25342 o|contracted procedure: k25373 o|contracted procedure: k25381 o|contracted procedure: k25377 o|contracted procedure: k25351 o|contracted procedure: k25361 o|contracted procedure: k25369 o|contracted procedure: k25365 o|contracted procedure: k25354 o|contracted procedure: k25322 o|contracted procedure: k25330 o|contracted procedure: k25326 o|contracted procedure: k25413 o|contracted procedure: k25416 o|contracted procedure: k25427 o|contracted procedure: k25423 o|contracted procedure: k25512 o|contracted procedure: k25518 o|contracted procedure: k25540 o|contracted procedure: k25546 o|contracted procedure: k25554 o|contracted procedure: k25561 o|contracted procedure: k25564 o|contracted procedure: k25573 o|contracted procedure: k25579 o|contracted procedure: k25585 o|contracted procedure: k25595 o|contracted procedure: k25604 o|contracted procedure: k25612 o|contracted procedure: k25637 o|contracted procedure: k25632 o|contracted procedure: k25625 o|contracted procedure: k25640 o|contracted procedure: k25649 o|contracted procedure: k25655 o|contracted procedure: k25661 o|contracted procedure: k25689 o|contracted procedure: k25684 o|contracted procedure: k25677 o|contracted procedure: k25698 o|contracted procedure: k25724 o|contracted procedure: k25715 o|contracted procedure: k25730 o|contracted procedure: k25769 o|contracted procedure: k25753 o|contracted procedure: k25765 o|contracted procedure: k25761 o|contracted procedure: k25784 o|contracted procedure: k25775 o|contracted procedure: k25790 o|contracted procedure: k25813 o|contracted procedure: k25820 o|contracted procedure: k25823 o|contracted procedure: k25840 o|contracted procedure: k25847 o|contracted procedure: k25836 o|contracted procedure: k25888 o|contracted procedure: k25853 o|contracted procedure: k25868 o|contracted procedure: k25864 o|contracted procedure: k25874 o|contracted procedure: k25897 o|contracted procedure: k25914 o|contracted procedure: k25921 o|contracted procedure: k25930 o|contracted procedure: k25947 o|contracted procedure: k25955 o|contracted procedure: k25958 o|contracted procedure: k25979 o|contracted procedure: k25986 o|contracted procedure: k25975 o|contracted procedure: k25995 o|contracted procedure: k26045 o|contracted procedure: k26018 o|contracted procedure: k26029 o|contracted procedure: k26025 o|contracted procedure: k26035 o|contracted procedure: k26051 o|contracted procedure: k26062 o|contracted procedure: k26068 o|contracted procedure: k26084 o|contracted procedure: k26140 o|contracted procedure: k26126 o|contracted procedure: k26133 o|contracted procedure: k26146 o|contracted procedure: k26158 o|contracted procedure: k26161 o|contracted procedure: k26171 o|contracted procedure: k26200 o|contracted procedure: k26214 o|contracted procedure: k26221 o|contracted procedure: k26233 o|contracted procedure: k26239 o|contracted procedure: k26245 o|contracted procedure: k26254 o|contracted procedure: k26261 o|contracted procedure: k26277 o|contracted procedure: k26284 o|contracted procedure: k26300 o|contracted procedure: k26307 o|contracted procedure: k26315 o|contracted procedure: k26322 o|contracted procedure: k26334 o|contracted procedure: k26340 o|contracted procedure: k26346 o|contracted procedure: k26355 o|contracted procedure: k26362 o|contracted procedure: k26385 o|contracted procedure: k26371 o|contracted procedure: k26378 o|contracted procedure: k26408 o|contracted procedure: k26394 o|contracted procedure: k26401 o|contracted procedure: k972634422 o|substituted constant variable: g36551 o|contracted procedure: k26414 o|contracted procedure: k26444 o|inlining procedure: k26435 o|inlining procedure: k26435 o|contracted procedure: k17265 o|contracted procedure: k17282 o|contracted procedure: k17286 o|contracted procedure: k17295 o|contracted procedure: k17301 o|contracted procedure: k17311 o|contracted procedure: k17323 o|contracted procedure: k17334 o|contracted procedure: k17340 o|contracted procedure: k17357 o|contracted procedure: k17364 o|contracted procedure: k17368 o|contracted procedure: k17381 o|contracted procedure: k17391 o|contracted procedure: k17395 o|contracted procedure: k17399 o|contracted procedure: k17403 o|contracted procedure: k17421 o|contracted procedure: k17435 o|contracted procedure: k17442 o|contracted procedure: k17446 o|contracted procedure: k17463 o|contracted procedure: k17473 o|contracted procedure: k17477 o|contracted procedure: k17506 o|contracted procedure: k17512 o|contracted procedure: k17541 o|contracted procedure: k17545 o|contracted procedure: k17600 o|contracted procedure: k17593 o|contracted procedure: k17555 o|contracted procedure: k17559 o|contracted procedure: k17569 o|contracted procedure: k17573 o|contracted procedure: k17618 o|contracted procedure: k17603 o|contracted procedure: k17606 o|contracted procedure: k17622 o|contracted procedure: k17631 o|contracted procedure: k17639 o|contracted procedure: k17654 o|contracted procedure: k17650 o|contracted procedure: k17658 o|contracted procedure: k17664 o|contracted procedure: k17678 o|contracted procedure: k17691 o|contracted procedure: k17684 o|contracted procedure: k17698 o|contracted procedure: k17695 o|contracted procedure: k17710 o|contracted procedure: k17713 o|contracted procedure: k17788 o|contracted procedure: k17722 o|contracted procedure: k17772 o|contracted procedure: k17768 o|contracted procedure: k17740 o|contracted procedure: k17764 o|contracted procedure: k17743 o|contracted procedure: k17750 o|contracted procedure: k17754 o|contracted procedure: k17783 o|contracted procedure: k17779 o|substituted constant variable: g36559 o|contracted procedure: k17815 o|contracted procedure: k17791 o|contracted procedure: k17796 o|contracted procedure: k17821 o|contracted procedure: k17824 o|contracted procedure: k17845 o|contracted procedure: k17848 o|contracted procedure: k17866 o|contracted procedure: k17909 o|contracted procedure: k17905 o|contracted procedure: k17883 o|contracted procedure: k17901 o|contracted procedure: k17897 o|contracted procedure: k17887 o|contracted procedure: k17938 o|contracted procedure: k17934 o|contracted procedure: k17930 o|contracted procedure: k17942 o|contracted procedure: k17981 o|contracted procedure: k17957 o|contracted procedure: k17977 o|contracted procedure: k17963 o|contracted procedure: k17987 o|contracted procedure: k18004 o|contracted procedure: k18012 o|contracted procedure: k18015 o|contracted procedure: k18032 o|contracted procedure: k18046 o|contracted procedure: k18064 o|contracted procedure: k18060 o|contracted procedure: k18056 o|contracted procedure: k18086 o|contracted procedure: k18095 o|contracted procedure: k18111 o|contracted procedure: k18115 o|contracted procedure: k18126 o|contracted procedure: k18132 o|contracted procedure: k18149 o|contracted procedure: k18155 o|contracted procedure: k18202 o|contracted procedure: k18208 o|contracted procedure: k18231 o|contracted procedure: k18237 o|contracted procedure: k18243 o|contracted procedure: k18264 o|contracted procedure: k18270 o|contracted procedure: k18292 o|contracted procedure: k18301 o|contracted procedure: k18308 o|contracted procedure: k18328 o|contracted procedure: k18350 o|contracted procedure: k18341 o|contracted procedure: k18357 o|contracted procedure: k18364 o|contracted procedure: k16516 o|contracted procedure: k2073034451 o|contracted procedure: k16546 o|contracted procedure: k2073034456 o|contracted procedure: k16561 o|contracted procedure: k16557 o|contracted procedure: k15876 o|contracted procedure: k15883 o|contracted procedure: k15898 o|contracted procedure: k15913 o|contracted procedure: k15922 o|contracted procedure: k15931 o|contracted procedure: k15943 o|contracted procedure: k15946 o|contracted procedure: k15949 o|contracted procedure: k15957 o|contracted procedure: k15965 o|contracted procedure: k15974 o|contracted procedure: k15983 o|contracted procedure: k15992 o|contracted procedure: k16004 o|contracted procedure: k16007 o|contracted procedure: k16010 o|contracted procedure: k16018 o|contracted procedure: k16026 o|contracted procedure: k16035 o|contracted procedure: k16076 o|contracted procedure: k16085 o|contracted procedure: k16091 o|contracted procedure: k16098 o|contracted procedure: k16102 o|contracted procedure: k16114 o|contracted procedure: k16117 o|contracted procedure: k16120 o|contracted procedure: k16128 o|contracted procedure: k16136 o|contracted procedure: k16154 o|contracted procedure: k16158 o|contracted procedure: k16170 o|contracted procedure: k16173 o|contracted procedure: k16176 o|contracted procedure: k16184 o|contracted procedure: k16192 o|contracted procedure: k16200 o|contracted procedure: k16206 o|contracted procedure: k16234 o|contracted procedure: k16240 o|contracted procedure: k16253 o|contracted procedure: k16268 o|contracted procedure: k16290 o|contracted procedure: k16286 o|contracted procedure: k16271 o|contracted procedure: k16274 o|contracted procedure: k16282 o|contracted procedure: k16299 o|contracted procedure: k1423134471 o|contracted procedure: k972634479 o|substituted constant variable: g36578 o|contracted procedure: k972634485 o|substituted constant variable: g36580 o|contracted procedure: k16583 o|contracted procedure: k16590 o|contracted procedure: k16599 o|contracted procedure: k16619 o|contracted procedure: k16615 o|contracted procedure: k16602 o|contracted procedure: k16625 o|contracted procedure: k16636 o|contracted procedure: k16647 o|contracted procedure: k16653 o|contracted procedure: k16659 o|contracted procedure: k16665 o|contracted procedure: k16671 o|contracted procedure: k16677 o|contracted procedure: k16706 o|contracted procedure: k16712 o|contracted procedure: k16718 o|contracted procedure: k16724 o|contracted procedure: k16750 o|contracted procedure: k16759 o|contracted procedure: k16766 o|contracted procedure: k16775 o|contracted procedure: k16791 o|contracted procedure: k16781 o|contracted procedure: k16799 o|contracted procedure: k16809 o|contracted procedure: k16815 o|contracted procedure: k16821 o|contracted procedure: k16827 o|contracted procedure: k16854 o|contracted procedure: k16872 o|contracted procedure: k16888 o|contracted procedure: k16878 o|contracted procedure: k16899 o|contracted procedure: k16906 o|contracted procedure: k16909 o|contracted procedure: k16924 o|contracted procedure: k16933 o|contracted procedure: k16940 o|contracted procedure: k16948 o|contracted procedure: k16958 o|contracted procedure: k16964 o|contracted procedure: k16970 o|contracted procedure: k16976 o|contracted procedure: k17013 o|contracted procedure: k17020 o|contracted procedure: k17023 o|contracted procedure: k17038 o|contracted procedure: k17047 o|contracted procedure: k17062 o|contracted procedure: k17072 o|contracted procedure: k17078 o|contracted procedure: k17084 o|contracted procedure: k17090 o|contracted procedure: k17127 o|contracted procedure: k17139 o|contracted procedure: k17150 o|contracted procedure: k17172 o|inlining procedure: k17179 o|contracted procedure: k17189 o|inlining procedure: k17179 o|contracted procedure: k17198 o|contracted procedure: k17205 o|contracted procedure: k17209 o|contracted procedure: k17215 o|contracted procedure: k17226 o|inlining procedure: k17179 o|contracted procedure: k17233 o|contracted procedure: k17239 o|contracted procedure: k18377 o|contracted procedure: k18391 o|contracted procedure: k18383 o|contracted procedure: k18400 o|contracted procedure: k18414 o|contracted procedure: k18406 o|contracted procedure: k18541 o|contracted procedure: k18426 o|contracted procedure: k18432 o|contracted procedure: k18435 o|contracted procedure: k18450 o|contracted procedure: k18453 o|contracted procedure: k18464 o|contracted procedure: k18470 o|contracted procedure: k18481 o|contracted procedure: k18484 o|contracted procedure: k18496 o|contracted procedure: k18499 o|contracted procedure: k18502 o|contracted procedure: k18510 o|contracted procedure: k18518 o|contracted procedure: k18881 o|contracted procedure: k18607 o|contracted procedure: k18613 o|contracted procedure: k18616 o|contracted procedure: k18627 o|contracted procedure: k18635 o|contracted procedure: k18638 o|contracted procedure: k18649 o|contracted procedure: k18661 o|contracted procedure: k18657 o|contracted procedure: k18653 o|contracted procedure: k18665 o|contracted procedure: k18671 o|contracted procedure: k18686 o|contracted procedure: k18682 o|contracted procedure: k18690 o|contracted procedure: k18696 o|contracted procedure: k18710 o|contracted procedure: k18713 o|contracted procedure: k18720 o|contracted procedure: k18726 o|contracted procedure: k18729 o|contracted procedure: k18736 o|contracted procedure: k18753 o|contracted procedure: k18759 o|contracted procedure: k18765 o|contracted procedure: k18771 o|contracted procedure: k18777 o|contracted procedure: k18783 o|contracted procedure: k18789 o|contracted procedure: k18795 o|contracted procedure: k18801 o|contracted procedure: k18807 o|contracted procedure: k18813 o|contracted procedure: k18819 o|contracted procedure: k18825 o|contracted procedure: k18890 o|contracted procedure: k18897 o|contracted procedure: k18901 o|contracted procedure: k18922 o|contracted procedure: k18929 o|contracted procedure: k18980 o|contracted procedure: k18976 o|contracted procedure: k18944 o|contracted procedure: k18969 o|contracted procedure: k18961 o|contracted procedure: k18988 o|contracted procedure: k18995 o|contracted procedure: k18999 o|contracted procedure: k19011 o|contracted procedure: k19014 o|contracted procedure: k19017 o|contracted procedure: k19025 o|contracted procedure: k19033 o|contracted procedure: k19041 o|contracted procedure: k19047 o|contracted procedure: k19053 o|contracted procedure: k19059 o|contracted procedure: k19065 o|contracted procedure: k19071 o|contracted procedure: k19109 o|contracted procedure: k19115 o|contracted procedure: k19128 o|contracted procedure: k19141 o|contracted procedure: k19138 o|contracted procedure: k19157 o|contracted procedure: k19154 o|contracted procedure: k19166 o|contracted procedure: k19172 o|contracted procedure: k19180 o|contracted procedure: k19191 o|contracted procedure: k19209 o|contracted procedure: k19216 o|contracted procedure: k19226 o|contracted procedure: k19229 o|contracted procedure: k19233 o|contracted procedure: k19279 o|contracted procedure: k19260 o|contracted procedure: k19267 o|contracted procedure: k19263 o|contracted procedure: k19287 o|contracted procedure: k19297 o|contracted procedure: k19300 o|contracted procedure: k19303 o|contracted procedure: k19306 o|contracted procedure: k19349 o|contracted procedure: k19330 o|contracted procedure: k19337 o|contracted procedure: k19333 o|contracted procedure: k19359 o|contracted procedure: k19379 o|contracted procedure: k19384 o|contracted procedure: k19898 o|contracted procedure: k19901 o|contracted procedure: k19904 o|contracted procedure: k19907 o|contracted procedure: k19937 o|contracted procedure: k19962 o|contracted procedure: k19943 o|contracted procedure: k19950 o|contracted procedure: k19940 o|contracted procedure: k19976 o|contracted procedure: k19979 o|contracted procedure: k19992 o|contracted procedure: k1988034505 o|contracted procedure: k20027 o|contracted procedure: k20002 o|contracted procedure: k20020 o|contracted procedure: k20031 o|contracted procedure: k20052 o|contracted procedure: k20048 o|contracted procedure: k1988034515 o|contracted procedure: k19389 o|contracted procedure: k972634521 o|substituted constant variable: g36600 o|contracted procedure: k19396 o|contracted procedure: k19408 o|contracted procedure: k19414 o|contracted procedure: k19420 o|contracted procedure: k19466 o|contracted procedure: k19447 o|contracted procedure: k19454 o|contracted procedure: k19450 o|contracted procedure: k19476 o|contracted procedure: k19483 o|contracted procedure: k19496 o|contracted procedure: k19503 o|contracted procedure: k19510 o|contracted procedure: k19520 o|contracted procedure: k972634529 o|substituted constant variable: g36606 o|contracted procedure: k19533 o|contracted procedure: k19539 o|contracted procedure: k19552 o|contracted procedure: k19565 o|contracted procedure: k19562 o|contracted procedure: k19581 o|contracted procedure: k19578 o|contracted procedure: k19590 o|contracted procedure: k19596 o|contracted procedure: k19604 o|contracted procedure: k19615 o|contracted procedure: k19627 o|contracted procedure: k19633 o|contracted procedure: k19682 o|contracted procedure: k19645 o|contracted procedure: k19674 o|contracted procedure: k19648 o|contracted procedure: k19655 o|contracted procedure: k19663 o|contracted procedure: k19651 o|contracted procedure: k19699 o|contracted procedure: k19714 o|contracted procedure: k19718 o|contracted procedure: k19725 o|contracted procedure: k19728 o|contracted procedure: k19734 o|contracted procedure: k19740 o|contracted procedure: k19746 o|contracted procedure: k19768 o|contracted procedure: k19774 o|contracted procedure: k19781 o|contracted procedure: k19826 o|contracted procedure: k19794 o|contracted procedure: k19811 o|contracted procedure: k19839 o|contracted procedure: k20060 o|contracted procedure: k20063 o|contracted procedure: k20066 o|contracted procedure: k20076 o|contracted procedure: k20091 o|contracted procedure: k20080 o|contracted procedure: k20084 o|contracted procedure: k20095 o|contracted procedure: k20110 o|contracted procedure: k20099 o|contracted procedure: k20103 o|contracted procedure: k20115 o|contracted procedure: k20127 o|contracted procedure: k20137 o|contracted procedure: k20141 o|contracted procedure: k20186 o|contracted procedure: k20189 o|contracted procedure: k20192 o|contracted procedure: k20195 o|contracted procedure: k20198 o|contracted procedure: k20201 o|contracted procedure: k20717 o|contracted procedure: k20204 o|contracted procedure: k20210 o|contracted procedure: k20216 o|contracted procedure: k20229 o|contracted procedure: k20233 o|contracted procedure: k20254 o|contracted procedure: k20302 o|contracted procedure: k20285 o|contracted procedure: k20293 o|contracted procedure: k20289 o|contracted procedure: k20318 o|contracted procedure: k20321 o|contracted procedure: k20343 o|contracted procedure: k20351 o|contracted procedure: k20347 o|contracted procedure: k20324 o|contracted procedure: k20331 o|contracted procedure: k20339 o|contracted procedure: k20335 o|contracted procedure: k20354 o|contracted procedure: k20366 o|contracted procedure: k20379 o|contracted procedure: k20383 o|contracted procedure: k20390 o|contracted procedure: k20393 o|contracted procedure: k20417 o|contracted procedure: k20401 o|contracted procedure: k20413 o|contracted procedure: k20404 o|contracted procedure: k20420 o|contracted procedure: k20423 o|contracted procedure: k20431 o|contracted procedure: k20452 o|contracted procedure: k20434 o|contracted procedure: k20448 o|contracted procedure: k20437 o|contracted procedure: k20444 o|contracted procedure: k20456 o|contracted procedure: k20468 o|contracted procedure: k20478 o|contracted procedure: k20482 o|contracted procedure: k20491 o|contracted procedure: k20501 o|contracted procedure: k20505 o|contracted procedure: k1988034548 o|contracted procedure: k20548 o|contracted procedure: k20556 o|contracted procedure: k20552 o|contracted procedure: k20529 o|contracted procedure: k20536 o|contracted procedure: k20544 o|contracted procedure: k20540 o|contracted procedure: k20577 o|contracted procedure: k20585 o|contracted procedure: k20581 o|contracted procedure: k20619 o|contracted procedure: k20594 o|contracted procedure: k20612 o|contracted procedure: k20623 o|contracted procedure: k20626 o|contracted procedure: k20647 o|contracted procedure: k20634 o|contracted procedure: k20643 o|contracted procedure: k20683 o|contracted procedure: k20650 o|contracted procedure: k20653 o|contracted procedure: k20665 o|contracted procedure: k20675 o|contracted procedure: k20679 o|contracted procedure: k20705 o|contracted procedure: k20713 o|contracted procedure: k20709 o|contracted procedure: k20686 o|contracted procedure: k20693 o|contracted procedure: k20701 o|contracted procedure: k20697 o|contracted procedure: k1988034560 o|contracted procedure: k20147 o|contracted procedure: k20162 o|contracted procedure: k20165 o|contracted procedure: k20172 o|contracted procedure: k30549 o|contracted procedure: k31395 o|contracted procedure: k31391 o|contracted procedure: k30557 o|contracted procedure: k30565 o|contracted procedure: k30573 o|contracted procedure: k30581 o|contracted procedure: k30589 o|contracted procedure: k30597 o|contracted procedure: k30605 o|contracted procedure: k30613 o|contracted procedure: k30621 o|contracted procedure: k30629 o|contracted procedure: k30637 o|contracted procedure: k30645 o|contracted procedure: k30653 o|contracted procedure: k30661 o|contracted procedure: k30669 o|contracted procedure: k30677 o|contracted procedure: k30685 o|contracted procedure: k30693 o|contracted procedure: k30701 o|contracted procedure: k30709 o|contracted procedure: k30717 o|contracted procedure: k30725 o|contracted procedure: k30733 o|contracted procedure: k30741 o|contracted procedure: k30749 o|contracted procedure: k31351 o|contracted procedure: k30757 o|contracted procedure: k30765 o|contracted procedure: k30773 o|contracted procedure: k30777 o|contracted procedure: k31247 o|contracted procedure: k31251 o|contracted procedure: k30781 o|contracted procedure: k31243 o|contracted procedure: k31239 o|contracted procedure: k30785 o|contracted procedure: k30789 o|contracted procedure: k31187 o|contracted procedure: k30793 o|contracted procedure: k31159 o|contracted procedure: k30797 o|contracted procedure: k31131 o|contracted procedure: k30801 o|contracted procedure: k30805 o|contracted procedure: k30809 o|contracted procedure: k31127 o|contracted procedure: k31119 o|contracted procedure: k31123 o|contracted procedure: k30813 o|contracted procedure: k31115 o|contracted procedure: k31091 o|contracted procedure: k31095 o|contracted procedure: k31111 o|contracted procedure: k31099 o|contracted procedure: k31107 o|contracted procedure: k31103 o|contracted procedure: k30817 o|contracted procedure: k31087 o|contracted procedure: k30821 o|contracted procedure: k31083 o|contracted procedure: k30825 o|contracted procedure: k31079 o|contracted procedure: k31051 o|contracted procedure: k31067 o|contracted procedure: k31075 o|contracted procedure: k31071 o|contracted procedure: k31055 o|contracted procedure: k31063 o|contracted procedure: k31059 o|contracted procedure: k30829 o|contracted procedure: k31043 o|contracted procedure: k31047 o|contracted procedure: k31035 o|contracted procedure: k31039 o|contracted procedure: k30833 o|contracted procedure: k31031 o|contracted procedure: k30837 o|contracted procedure: k31027 o|contracted procedure: k31019 o|contracted procedure: k31023 o|contracted procedure: k31015 o|contracted procedure: k30841 o|contracted procedure: k31005 o|contracted procedure: k30997 o|contracted procedure: k31001 o|contracted procedure: k30845 o|contracted procedure: k30993 o|contracted procedure: k30849 o|contracted procedure: k30977 o|contracted procedure: k30985 o|contracted procedure: k30989 o|contracted procedure: k30981 o|contracted procedure: k30853 o|contracted procedure: k30857 o|contracted procedure: k30973 o|contracted procedure: k30861 o|contracted procedure: k30969 o|contracted procedure: k30865 o|contracted procedure: k30965 o|contracted procedure: k30961 o|contracted procedure: k30869 o|contracted procedure: k30957 o|contracted procedure: k30873 o|contracted procedure: k30953 o|contracted procedure: k30877 o|contracted procedure: k30881 o|contracted procedure: k30949 o|contracted procedure: k30885 o|contracted procedure: k30945 o|contracted procedure: k30889 o|contracted procedure: k30897 o|contracted procedure: k30901 o|contracted procedure: k30941 o|contracted procedure: k30905 o|contracted procedure: k30937 o|contracted procedure: k30913 o|contracted procedure: k30933 o|contracted procedure: k30917 o|contracted procedure: k30929 o|contracted procedure: k30925 o|contracted procedure: k30921 o|contracted procedure: k30909 o|contracted procedure: k30893 o|contracted procedure: k30769 o|contracted procedure: k30761 o|contracted procedure: k30753 o|contracted procedure: k30745 o|contracted procedure: k30737 o|contracted procedure: k30729 o|contracted procedure: k30721 o|contracted procedure: k30713 o|contracted procedure: k30705 o|contracted procedure: k30697 o|contracted procedure: k30689 o|contracted procedure: k30681 o|contracted procedure: k30673 o|contracted procedure: k30665 o|contracted procedure: k30657 o|contracted procedure: k30649 o|contracted procedure: k30641 o|contracted procedure: k30633 o|contracted procedure: k30625 o|contracted procedure: k30617 o|contracted procedure: k30609 o|contracted procedure: k30601 o|contracted procedure: k30593 o|contracted procedure: k30585 o|contracted procedure: k30577 o|contracted procedure: k30569 o|contracted procedure: k30561 o|contracted procedure: k30553 o|contracted procedure: k20721 o|contracted procedure: k20794 o|substituted constant variable: g36633 o|contracted procedure: k20805 o|contracted procedure: k20801 o|contracted procedure: k20846 o|contracted procedure: k20842 o|contracted procedure: k20838 o|contracted procedure: k20819 o|contracted procedure: k20815 o|contracted procedure: k20982 o|contracted procedure: k20785 o|contracted procedure: k21045 o|contracted procedure: k21049 o|contracted procedure: k20994 o|contracted procedure: k21032 o|contracted procedure: k21005 o|contracted procedure: k21014 o|substituted constant variable: g36635 o|contracted procedure: k21028 o|contracted procedure: k21017 o|contracted procedure: k21024 o|contracted procedure: k21041 o|contracted procedure: k21037 o|contracted procedure: k21066 o|contracted procedure: k2655634569 o|contracted procedure: k2655634574 o|contracted procedure: k2655634579 o|contracted procedure: k972634585 o|substituted constant variable: g36640 o|contracted procedure: k21106 o|contracted procedure: k21866 o|contracted procedure: k21112 o|contracted procedure: k21139 o|contracted procedure: k21184 o|contracted procedure: k21152 o|contracted procedure: k21161 o|substituted constant variable: g36643 o|contracted procedure: k21168 o|contracted procedure: k21180 o|contracted procedure: k21176 o|contracted procedure: k21194 o|contracted procedure: k21211 o|contracted procedure: k21214 o|inlining procedure: k21224 o|contracted procedure: k21242 o|contracted procedure: k21233 o|inlining procedure: k21224 o|contracted procedure: k21250 o|contracted procedure: k21849 o|contracted procedure: k21256 o|contracted procedure: k21282 o|contracted procedure: k21289 o|contracted procedure: k972634593 o|substituted constant variable: g36646 o|contracted procedure: k21292 o|contracted procedure: k21298 o|contracted procedure: k21301 o|contracted procedure: k21319 o|contracted procedure: k21357 o|contracted procedure: k21328 o|contracted procedure: k21341 o|contracted procedure: k21366 o|contracted procedure: k972634599 o|substituted constant variable: g36648 o|contracted procedure: k21393 o|contracted procedure: k21473 o|contracted procedure: k21405 o|contracted procedure: k21441 o|contracted procedure: k21457 o|contracted procedure: k21481 o|contracted procedure: k21500 o|contracted procedure: k21512 o|contracted procedure: k21515 o|contracted procedure: k21546 o|contracted procedure: k21539 o|contracted procedure: k21550 o|contracted procedure: k21566 o|contracted procedure: k21569 o|contracted procedure: k21636 o|contracted procedure: k21632 o|contracted procedure: k21572 o|contracted procedure: k21575 o|contracted procedure: k21610 o|contracted procedure: k21622 o|contracted procedure: k21644 o|contracted procedure: k21647 o|contracted procedure: k21714 o|contracted procedure: k21710 o|contracted procedure: k21650 o|contracted procedure: k21653 o|contracted procedure: k21688 o|contracted procedure: k21767 o|contracted procedure: k21719 o|contracted procedure: k21760 o|contracted procedure: k21730 o|contracted procedure: k21737 o|contracted procedure: k21749 o|contracted procedure: k21756 o|contracted procedure: k21795 o|contracted procedure: k21801 o|contracted procedure: k21818 o|contracted procedure: k21824 o|contracted procedure: k21909 o|contracted procedure: k21882 o|contracted procedure: k21891 o|substituted constant variable: g36651 o|contracted procedure: k21905 o|contracted procedure: k21894 o|contracted procedure: k21901 o|contracted procedure: k21918 o|contracted procedure: k21914 o|contracted procedure: k21922 o|contracted procedure: k21926 o|contracted procedure: k22036 o|contracted procedure: k22032 o|contracted procedure: k21951 o|contracted procedure: k21954 o|contracted procedure: k21960 o|contracted procedure: k21974 o|contracted procedure: k21982 o|contracted procedure: k21978 o|contracted procedure: k22003 o|contracted procedure: k22009 o|contracted procedure: k21945 o|contracted procedure: k21938 o|contracted procedure: k21941 o|contracted procedure: k22091 o|contracted procedure: k22100 o|contracted procedure: k22103 o|contracted procedure: k22106 o|contracted procedure: k22114 o|contracted procedure: k22118 o|contracted procedure: k2073034611 o|contracted procedure: k22131 o|contracted procedure: k22139 o|contracted procedure: k22154 o|contracted procedure: k22163 o|contracted procedure: k22168 o|contracted procedure: k22172 o|contracted procedure: k22193 o|contracted procedure: k22182 o|contracted procedure: k22189 o|contracted procedure: k22196 o|contracted procedure: k2073034616 o|contracted procedure: k22219 o|contracted procedure: k22229 o|contracted procedure: k22233 o|contracted procedure: k22240 o|contracted procedure: k22251 o|contracted procedure: k22247 o|contracted procedure: k2208134624 o|contracted procedure: k22507 o|contracted procedure: k22519 o|contracted procedure: k22522 o|contracted procedure: k22529 o|contracted procedure: k22540 o|contracted procedure: k22784 o|contracted procedure: k22780 o|contracted procedure: k22776 o|contracted procedure: k22772 o|contracted procedure: k22606 o|contracted procedure: k22613 o|contracted procedure: k22617 o|contracted procedure: k22626 o|contracted procedure: k22646 o|contracted procedure: k22642 o|contracted procedure: k22629 o|contracted procedure: k22813 o|contracted procedure: k22839 o|contracted procedure: k22864 o|contracted procedure: k22856 o|contracted procedure: k22860 o|contracted procedure: k22852 o|contracted procedure: k22869 o|contracted procedure: k26582 o|contracted procedure: k26608 o|contracted procedure: k26585 o|contracted procedure: k26604 o|contracted procedure: k26592 o|contracted procedure: k26600 o|contracted procedure: k26596 o|contracted procedure: k22878 o|contracted procedure: k22835 o|contracted procedure: k22822 o|contracted procedure: k22829 o|contracted procedure: k22890 o|contracted procedure: k22893 o|contracted procedure: k22896 o|contracted procedure: k22904 o|contracted procedure: k22912 o|contracted procedure: k22919 o|contracted procedure: k22928 o|contracted procedure: k22935 o|contracted procedure: k22939 o|contracted procedure: k22951 o|contracted procedure: k22947 o|contracted procedure: k22943 o|contracted procedure: k22765 o|contracted procedure: k22658 o|contracted procedure: k22682 o|contracted procedure: k22685 o|contracted procedure: k22700 o|contracted procedure: k22692 o|contracted procedure: k22696 o|contracted procedure: k22709 o|contracted procedure: k22715 o|contracted procedure: k22724 o|contracted procedure: k22740 o|contracted procedure: k22744 o|contracted procedure: k22736 o|contracted procedure: k22732 o|contracted procedure: k22728 o|contracted procedure: k22754 o|contracted procedure: k20903 o|contracted procedure: k20899 o|contracted procedure: k20880 o|contracted procedure: k20891 o|contracted procedure: k20895 o|contracted procedure: k20887 o|contracted procedure: k23450 o|contracted procedure: k23453 o|contracted procedure: k23465 o|contracted procedure: k23589 o|contracted procedure: k23483 o|contracted procedure: k23492 o|contracted procedure: k23499 o|contracted procedure: k23506 o|contracted procedure: k23510 o|contracted procedure: k23519 o|contracted procedure: k23525 o|contracted procedure: k23532 o|contracted procedure: k23539 o|contracted procedure: k23545 o|contracted procedure: k23552 o|contracted procedure: k23559 o|contracted procedure: k23563 o|contracted procedure: k23570 o|contracted procedure: k23577 o|contracted procedure: k23567 o|contracted procedure: k23597 o|contracted procedure: k22497 o|contracted procedure: k22501 o|contracted procedure: k22435 o|contracted procedure: k22489 o|contracted procedure: k22493 o|contracted procedure: k22441 o|contracted procedure: k22444 o|contracted procedure: k22453 o|contracted procedure: k22485 o|contracted procedure: k22473 o|contracted procedure: k22481 o|contracted procedure: k22477 o|contracted procedure: k22462 o|contracted procedure: k22469 o|contracted procedure: k2073034651 o|contracted procedure: k20874 o|contracted procedure: k20870 o|contracted procedure: k20866 o|contracted procedure: k20862 o|contracted procedure: k20852 o|contracted procedure: k22761 o|contracted procedure: k22985 o|contracted procedure: k22992 o|contracted procedure: k23003 o|contracted procedure: k23010 o|contracted procedure: k23135 o|contracted procedure: k23020 o|contracted procedure: k23030 o|contracted procedure: k23047 o|contracted procedure: k23069 o|contracted procedure: k23088 o|contracted procedure: k23084 o|contracted procedure: k2656634658 o|contracted procedure: k23095 o|contracted procedure: k2656634663 o|contracted procedure: k23109 o|contracted procedure: k23113 o|contracted procedure: k23125 o|contracted procedure: k23131 o|contracted procedure: k2656634668 o|contracted procedure: k20768 o|substituted constant variable: g36694 o|contracted procedure: k20775 o|contracted procedure: k2073034677 o|contracted procedure: k22791 o|contracted procedure: k20960 o|contracted procedure: k20956 o|contracted procedure: k20937 o|contracted procedure: k20948 o|contracted procedure: k20952 o|contracted procedure: k20944 o|contracted procedure: k23162 o|contracted procedure: k23165 o|contracted procedure: k23185 o|contracted procedure: k23191 o|contracted procedure: k23257 o|contracted procedure: k23197 o|contracted procedure: k23200 o|contracted procedure: k23203 o|contracted procedure: k23221 o|contracted procedure: k23229 o|contracted procedure: k23225 o|contracted procedure: k22307 o|contracted procedure: k22310 o|contracted procedure: k22316 o|contracted procedure: k22328 o|contracted procedure: k2073034682 o|contracted procedure: k22354 o|contracted procedure: k22343 o|contracted procedure: k22350 o|contracted procedure: k22361 o|contracted procedure: k22372 o|contracted procedure: k22368 o|contracted procedure: k2208134688 o|contracted procedure: k22385 o|contracted procedure: k22392 o|contracted procedure: k22426 o|contracted procedure: k22398 o|contracted procedure: k22409 o|contracted procedure: k22405 o|contracted procedure: k22420 o|contracted procedure: k22546 o|contracted procedure: k22585 o|contracted procedure: k22549 o|contracted procedure: k22558 o|contracted procedure: k22555 o|contracted procedure: k22581 o|contracted procedure: k22577 o|contracted procedure: k23248 o|contracted procedure: k23244 o|contracted procedure: k22270 o|contracted procedure: k22281 o|contracted procedure: k22277 o|contracted procedure: k22261 o|contracted procedure: k22297 o|contracted procedure: k22289 o|contracted procedure: k2073034698 o|contracted procedure: k2208134704 o|contracted procedure: k2073034713 o|contracted procedure: k23271 o|contracted procedure: k20931 o|contracted procedure: k20927 o|contracted procedure: k20923 o|contracted procedure: k20919 o|contracted procedure: k20909 o|contracted procedure: k23292 o|contracted procedure: k23295 o|contracted procedure: k23298 o|contracted procedure: k23310 o|contracted procedure: k23317 o|contracted procedure: k23321 o|contracted procedure: k23330 o|contracted procedure: k23337 o|contracted procedure: k23441 o|contracted procedure: k23343 o|contracted procedure: k23364 o|contracted procedure: k23360 o|contracted procedure: k23437 o|contracted procedure: k23409 o|contracted procedure: k23394 o|contracted procedure: k23401 o|contracted procedure: k23405 o|contracted procedure: k23433 o|contracted procedure: k23418 o|contracted procedure: k23425 o|contracted procedure: k23429 o|contracted procedure: k26460 o|contracted procedure: k26473 o|contracted procedure: k26480 o|contracted procedure: k26483 o|contracted procedure: k26492 o|contracted procedure: k26498 o|contracted procedure: k26504 o|contracted procedure: k26520 o|contracted procedure: k26527 o|contracted procedure: k26721 o|contracted procedure: k26677 o|contracted procedure: k26686 o|substituted constant variable: g36730 o|contracted procedure: k26693 o|contracted procedure: k26717 o|contracted procedure: k26701 o|contracted procedure: k26713 o|contracted procedure: k26709 o|contracted procedure: k26705 o|contracted procedure: k26697 o|contracted procedure: k2655634730 o|contracted procedure: k26776 o|contracted procedure: k26805 o|contracted procedure: k26811 o|contracted procedure: k26835 o|contracted procedure: k26850 o|contracted procedure: k26853 o|contracted procedure: k26856 o|contracted procedure: k26868 o|contracted procedure: k26871 o|contracted procedure: k26874 o|contracted procedure: k26882 o|contracted procedure: k26890 o|contracted procedure: k26897 o|contracted procedure: k26903 o|contracted procedure: k26914 o|contracted procedure: k26917 o|contracted procedure: k26920 o|contracted procedure: k26932 o|contracted procedure: k26935 o|contracted procedure: k26938 o|contracted procedure: k26946 o|contracted procedure: k26954 o|contracted procedure: k26961 o|contracted procedure: k26967 o|contracted procedure: k26984 o|contracted procedure: k26987 o|contracted procedure: k26990 o|contracted procedure: k27002 o|contracted procedure: k27005 o|contracted procedure: k27008 o|contracted procedure: k27016 o|contracted procedure: k27024 o|contracted procedure: k27031 o|contracted procedure: k27037 o|contracted procedure: k26731 o|contracted procedure: k26740 o|contracted procedure: k26747 o|contracted procedure: k2654634742 o|contracted procedure: k18556 o|contracted procedure: k18595 o|contracted procedure: k18565 o|contracted procedure: k18589 o|contracted procedure: k27058 o|contracted procedure: k27069 o|contracted procedure: k27072 o|contracted procedure: k27075 o|contracted procedure: k27087 o|contracted procedure: k27090 o|contracted procedure: k27093 o|contracted procedure: k27101 o|contracted procedure: k27109 o|contracted procedure: k27116 o|contracted procedure: k27122 o|contracted procedure: k27137 o|contracted procedure: k27171 o|contracted procedure: k2654634756 o|contracted procedure: k2654634762 o|contracted procedure: k27190 o|contracted procedure: k27197 o|contracted procedure: k27200 o|contracted procedure: k27210 o|contracted procedure: k27216 o|contracted procedure: k27253 o|contracted procedure: k27259 o|contracted procedure: k27265 o|contracted procedure: k27268 o|contracted procedure: k27328 o|contracted procedure: k27286 o|contracted procedure: k27289 o|contracted procedure: k27298 o|contracted procedure: k27304 o|contracted procedure: k27313 o|contracted procedure: k27319 o|contracted procedure: k27350 o|contracted procedure: k27365 o|contracted procedure: k27369 o|contracted procedure: k27359 o|contracted procedure: k27392 o|contracted procedure: k27413 o|contracted procedure: k27431 o|contracted procedure: k27434 o|contracted procedure: k27540 o|contracted procedure: k27536 o|contracted procedure: k27524 o|contracted procedure: k27532 o|contracted procedure: k27528 o|contracted procedure: k27440 o|contracted procedure: k27449 o|contracted procedure: k27508 o|contracted procedure: k27516 o|contracted procedure: k27512 o|contracted procedure: k27455 o|contracted procedure: k27464 o|contracted procedure: k27470 o|contracted procedure: k27477 o|contracted procedure: k27494 o|contracted procedure: k27601 o|contracted procedure: k27614 o|contracted procedure: k27628 o|contracted procedure: k27631 o|contracted procedure: k27752 o|contracted procedure: k27756 o|contracted procedure: k27637 o|contracted procedure: k27646 o|contracted procedure: k27652 o|contracted procedure: k27685 o|contracted procedure: k27697 o|contracted procedure: k27564 o|contracted procedure: k27560 o|contracted procedure: k27715 o|contracted procedure: k27578 o|contracted procedure: k27574 o|contracted procedure: k27733 o|contracted procedure: k27797 o|contracted procedure: k27800 o|contracted procedure: k27810 o|contracted procedure: k27813 o|contracted procedure: k27893 o|contracted procedure: k27897 o|contracted procedure: k27819 o|contracted procedure: k27830 o|contracted procedure: k27838 o|contracted procedure: k27853 o|contracted procedure: k27856 o|contracted procedure: k27864 o|contracted procedure: k27765 o|contracted procedure: k27774 o|contracted procedure: k27929 o|contracted procedure: k2654634783 o|contracted procedure: k27979 o|contracted procedure: k27983 o|contracted procedure: k27991 o|contracted procedure: k28022 o|contracted procedure: k28041 o|contracted procedure: k28031 o|contracted procedure: k28059 o|contracted procedure: k28068 o|contracted procedure: k28071 o|contracted procedure: k28080 o|contracted procedure: k28092 o|contracted procedure: k28116 o|contracted procedure: k28131 o|contracted procedure: k28123 o|contracted procedure: k28127 o|contracted procedure: k28153 o|contracted procedure: k28157 o|contracted procedure: k972634791 o|substituted constant variable: g36765 o|contracted procedure: k28171 o|contracted procedure: k28168 o|contracted procedure: k28187 o|contracted procedure: k28184 o|contracted procedure: k28202 o|contracted procedure: k28208 o|contracted procedure: k28215 o|contracted procedure: k28193 o|contracted procedure: k28226 o|contracted procedure: k28220 o|contracted procedure: k28236 o|contracted procedure: k28247 o|contracted procedure: k28275 o|contracted procedure: k28290 o|contracted procedure: k28296 o|contracted procedure: k28302 o|contracted procedure: k28391 o|contracted procedure: k28364 o|contracted procedure: k28367 o|contracted procedure: k28377 o|contracted procedure: k28387 o|contracted procedure: k28416 o|contracted procedure: k972634806 o|substituted constant variable: g36775 o|contracted procedure: k28420 o|contracted procedure: k28338 o|contracted procedure: k28433 o|contracted procedure: k28442 o|contracted procedure: k28448 o|contracted procedure: k28458 o|contracted procedure: k28487 o|contracted procedure: k28506 o|contracted procedure: k28522 o|contracted procedure: k28536 o|contracted procedure: k28555 o|contracted procedure: k28566 o|contracted procedure: k28612 o|contracted procedure: k28609 o|contracted procedure: k28587 o|contracted procedure: k28625 o|contracted procedure: k28635 o|contracted procedure: k28632 o|contracted procedure: k28652 o|contracted procedure: k28667 o|contracted procedure: k28886 o|contracted procedure: k28673 o|inlining procedure: k28682 o|inlining procedure: k28682 o|contracted procedure: k28697 o|contracted procedure: k28706 o|contracted procedure: k28717 o|contracted procedure: k28724 o|contracted procedure: k28733 o|contracted procedure: k28741 o|contracted procedure: k28751 o|contracted procedure: k28772 o|contracted procedure: k28785 o|contracted procedure: k28788 o|contracted procedure: k28797 o|contracted procedure: k28809 o|contracted procedure: k28819 o|contracted procedure: k28829 o|contracted procedure: k28845 o|contracted procedure: k28849 o|contracted procedure: k28841 o|contracted procedure: k28876 o|contracted procedure: k28921 o|contracted procedure: k28945 o|contracted procedure: k28962 o|contracted procedure: k28983 o|contracted procedure: k29007 o|contracted procedure: k29004 o|contracted procedure: k29026 o|contracted procedure: k29017 o|contracted procedure: k29034 o|contracted procedure: k29045 o|contracted procedure: k29052 o|contracted procedure: k29068 o|contracted procedure: k29086 o|contracted procedure: k29074 o|contracted procedure: k29081 o|contracted procedure: k29089 o|contracted procedure: k29113 o|contracted procedure: k29119 o|contracted procedure: k29138 o|contracted procedure: k29134 o|contracted procedure: k29147 o|contracted procedure: k29276 o|contracted procedure: k29415 o|contracted procedure: k29282 o|contracted procedure: k29298 o|contracted procedure: k29310 o|substituted constant variable: g36800 o|contracted procedure: k29180 o|contracted procedure: k29159 o|contracted procedure: k29326 o|contracted procedure: k29329 o|contracted procedure: k29336 o|contracted procedure: k29343 o|contracted procedure: k29349 o|inlining procedure: k29340 o|inlining procedure: k29340 o|contracted procedure: k29363 o|contracted procedure: k29270 o|contracted procedure: k29189 o|contracted procedure: k29203 o|contracted procedure: k29226 o|contracted procedure: k29229 o|contracted procedure: k29232 o|contracted procedure: k29240 o|contracted procedure: k29248 o|contracted procedure: k29211 o|contracted procedure: k29260 o|contracted procedure: k29370 o|contracted procedure: k29373 o|contracted procedure: k29379 o|contracted procedure: k29387 o|contracted procedure: k29407 o|contracted procedure: k29399 o|contracted procedure: k29390 o|contracted procedure: k29436 o|contracted procedure: k29447 o|contracted procedure: k29468 o|contracted procedure: k29464 o|contracted procedure: k29480 o|contracted procedure: k29476 o|contracted procedure: k29491 o|contracted procedure: k29516 o|contracted procedure: k29523 o|contracted procedure: k29526 o|contracted procedure: k29539 o|contracted procedure: k29554 o|contracted procedure: k29564 o|contracted procedure: k29568 o|contracted procedure: k29572 o|contracted procedure: k29584 o|contracted procedure: k29594 o|contracted procedure: k29598 o|contracted procedure: k29601 o|contracted procedure: k29618 o|contracted procedure: k29607 o|contracted procedure: k29614 o|contracted procedure: k29626 o|contracted procedure: k29633 o|contracted procedure: k29648 o|contracted procedure: k29658 o|contracted procedure: k29662 o|contracted procedure: k29668 o|contracted procedure: k29680 o|contracted procedure: k29683 o|contracted procedure: k29698 o|contracted procedure: k29708 o|contracted procedure: k29712 o|contracted procedure: k29716 o|contracted procedure: k29722 o|contracted procedure: k29739 o|contracted procedure: k29742 o|contracted procedure: k29757 o|contracted procedure: k29767 o|contracted procedure: k29771 o|contracted procedure: k29775 o|contracted procedure: k29781 o|contracted procedure: k29842 o|contracted procedure: k29795 o|contracted procedure: k29802 o|contracted procedure: k29817 o|contracted procedure: k29827 o|contracted procedure: k29831 o|contracted procedure: k29838 o|contracted procedure: k29848 o|contracted procedure: k29888 o|contracted procedure: k29877 o|contracted procedure: k29894 o|contracted procedure: k29915 o|contracted procedure: k29924 o|contracted procedure: k29947 o|contracted procedure: k29944 o|contracted procedure: k29960 o|contracted procedure: k29970 o|contracted procedure: k29976 o|contracted procedure: k29983 o|contracted procedure: k29995 o|contracted procedure: k29998 o|contracted procedure: k30011 o|contracted procedure: k30026 o|contracted procedure: k30036 o|contracted procedure: k30040 o|contracted procedure: k30043 o|contracted procedure: k30054 o|contracted procedure: k30061 o|contracted procedure: k30082 o|contracted procedure: k30088 o|contracted procedure: k30109 o|contracted procedure: k30115 o|contracted procedure: k30121 o|contracted procedure: k30156 o|contracted procedure: k30162 o|contracted procedure: k30165 o|contracted procedure: k30174 o|contracted procedure: k30177 o|contracted procedure: k30186 o|contracted procedure: k30189 o|contracted procedure: k30222 o|contracted procedure: k30235 o|contracted procedure: k30246 o|contracted procedure: k30542 o|contracted procedure: k30255 o|contracted procedure: k30258 o|contracted procedure: k30261 o|contracted procedure: k30284 o|contracted procedure: k30287 o|contracted procedure: k30294 o|contracted procedure: k30344 o|contracted procedure: k30328 o|contracted procedure: k30340 o|contracted procedure: k30336 o|contracted procedure: k30332 o|contracted procedure: k30312 o|contracted procedure: k30324 o|contracted procedure: k30320 o|contracted procedure: k30316 o|contracted procedure: k30304 o|contracted procedure: k30363 o|contracted procedure: k30359 o|contracted procedure: k30351 o|contracted procedure: k30529 o|contracted procedure: k30525 o|contracted procedure: k30401 o|contracted procedure: k30427 o|contracted procedure: k30417 o|contracted procedure: k30408 o|contracted procedure: k30441 o|contracted procedure: k30449 o|contracted procedure: k30445 o|contracted procedure: k30468 o|contracted procedure: k30476 o|contracted procedure: k30472 o|contracted procedure: k30488 o|contracted procedure: k30493 o|contracted procedure: k30503 o|contracted procedure: k30519 o|contracted procedure: k30509 o|contracted procedure: k31408 o|contracted procedure: k31532 o|contracted procedure: k31535 o|simplifications: ((let . 405)) o|replaced variables: 143 o|removed binding forms: 2757 o|inlining procedure: "(irregex-core.scm:745) char-altcase" o|inlining procedure: "(irregex-core.scm:3499) char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3502) char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3495) char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3497) char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3531) char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3533) char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3527) char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3529) char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3546) char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3547) char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3545) char-alphanumeric?" o|substituted constant variable: r2643636922 o|inlining procedure: k19545 o|inlining procedure: "(irregex-core.scm:2457) char-altcase" o|inlining procedure: "(irregex-core.scm:2731) mst-state-mappings-set!" o|inlining procedure: k26575 o|inlining procedure: k26575 o|inlining procedure: "(irregex-core.scm:2770) mst-state-mappings-set!" o|inlining procedure: "(irregex-core.scm:2752) mst-state-mappings-set!" o|inlining procedure: "(irregex-core.scm:2752) mst-state-mappings-set!" o|inlining procedure: k27849 o|inlining procedure: k27849 o|inlining procedure: "(irregex-core.scm:3851) char-altcase" o|inlining procedure: "(irregex-core.scm:3850) char-altcase" o|simplifications: ((let . 1)) o|replaced variables: 810 o|removed binding forms: 194 o|removed conditional forms: 1 o|inlining procedure: k8046 o|removed side-effect free assignment to unused variable: char-alphanumeric? o|inlining procedure: k2755034170 o|inlining procedure: k2755034192 o|inlining procedure: k13721 o|inlining procedure: k2755034214 o|inlining procedure: k2755034225 o|inlining procedure: k2755034236 o|inlining procedure: k2755034247 o|inlining procedure: k2755034263 o|inlining procedure: k14193 o|removed side-effect free assignment to unused variable: char-altcase o|inlining procedure: k15491 o|inlining procedure: k23728 o|inlining procedure: k23749 o|inlining procedure: k25134 o|inlining procedure: k16520 o|inlining procedure: k16550 o|inlining procedure: k19996 o|inlining procedure: k19710 o|inlining procedure: k19822 o|inlining procedure: k19850 o|inlining procedure: k20991 o|inlining procedure: k21093 o|inlining procedure: k21100 o|inlining procedure: k21387 o|removed side-effect free assignment to unused variable: mst-state-mappings-set! o|inlining procedure: k22122 o|inlining procedure: k22210 o|substituted constant variable: r2657637306 o|inlining procedure: k23612 o|inlining procedure: k23105 o|inlining procedure: k22970 o|inlining procedure: k20741 o|inlining procedure: k23286 o|inlining procedure: k22336 o|inlining procedure: k22293 o|inlining procedure: k23261 o|inlining procedure: k2755034725 o|inlining procedure: k26755 o|inlining procedure: k27181 o|inlining procedure: k27704 o|inlining procedure: k27724 o|inlining procedure: k27967 o|inlining procedure: k28547 o|inlining procedure: k28762 o|inlining procedure: k28973 o|simplifications: ((let . 1) (if . 5)) o|replaced variables: 74 o|removed binding forms: 588 o|removed conditional forms: 1 o|inlining procedure: "(irregex-core.scm:238) %irregex-match-end-index" o|contracted procedure: k8105 o|contracted procedure: k8239 o|contracted procedure: k8260 o|contracted procedure: k8281 o|inlining procedure: "(irregex-core.scm:306) %irregex-match-end-index" o|contracted procedure: k8329 o|contracted procedure: k8350 o|contracted procedure: k8371 o|inlining procedure: "(irregex-core.scm:318) %irregex-match-end-index" o|contracted procedure: k10541 o|inlining procedure: k10538 o|contracted procedure: k10553 o|contracted procedure: k10626 o|contracted procedure: k10821 o|contracted procedure: k10992 o|contracted procedure: k11808 o|contracted procedure: k11811 o|contracted procedure: k13596 o|contracted procedure: k13623 o|contracted procedure: k13637 o|contracted procedure: k13766 o|contracted procedure: k14134 o|contracted procedure: k14196 o|contracted procedure: k12894 o|contracted procedure: k13099 o|contracted procedure: k13268 o|contracted procedure: k13299 o|contracted procedure: k13311 o|contracted procedure: k13345 o|contracted procedure: k15793 o|contracted procedure: k24869 o|contracted procedure: k25221 o|contracted procedure: k25241 o|contracted procedure: k25333 o|inlining procedure: "(irregex-core.scm:3426) %irregex-match-end-index" o|inlining procedure: k25860 o|inlining procedure: k25860 o|inlining procedure: k25884 o|inlining procedure: k25884 o|inlining procedure: k26058 o|inlining procedure: k26058 o|inlining procedure: k26078 o|inlining procedure: k26078 o|inlining procedure: k26123 o|inlining procedure: k26123 o|contracted procedure: k26206 o|contracted procedure: k15857 o|contracted procedure: k15861 o|contracted procedure: k19251 o|contracted procedure: k19910 o|contracted procedure: k19426 o|inlining procedure: "(irregex-core.scm:2052) %irregex-match-end-index" o|inlining procedure: "(irregex-core.scm:2072) %irregex-match-end-index" o|contracted procedure: k20213 o|contracted procedure: k20296 o|contracted procedure: k20363 o|contracted procedure: k21078 o|contracted procedure: k21089 o|contracted procedure: k21271 o|contracted procedure: k22255 o|contracted procedure: k23603 o|contracted procedure: k23447 o|contracted procedure: k23062 o|contracted procedure: k23277 o|contracted procedure: k22376 o|contracted procedure: k22301 o|contracted procedure: k27873 o|contracted procedure: k27877 o|inlining procedure: k27975 o|contracted procedure: k28143 o|inlining procedure: "(irregex-core.scm:3887) %irregex-match-end-index" o|contracted procedure: k28349 o|contracted procedure: k28406 o|inlining procedure: "(irregex-core.scm:3922) %irregex-match-end-index" o|inlining procedure: "(irregex-core.scm:3947) %irregex-match-end-index" o|contracted procedure: k28598 o|contracted procedure: k28779 o|contracted procedure: k28826 o|inlining procedure: "(irregex-core.scm:3993) %irregex-match-end-index" o|contracted procedure: k28994 o|contracted procedure: k29244 o|simplifications: ((if . 6) (let . 6)) o|replaced variables: 11 o|removed binding forms: 158 o|removed side-effect free assignment to unused variable: %irregex-match-end-index o|contracted procedure: k26113 o|substituted constant variable: n73737876 o|substituted constant variable: n73737882 o|contracted procedure: k21072 o|contracted procedure: k22160 o|contracted procedure: k22322 o|contracted procedure: k27971 o|substituted constant variable: n73737980 o|substituted constant variable: n73737988 o|substituted constant variable: n73737996 o|substituted constant variable: n73738002 o|replaced variables: 85 o|removed binding forms: 15 o|inlining procedure: k8285 o|inlining procedure: k8375 o|inlining procedure: k19801 o|inlining procedure: k22788 o|inlining procedure: k28551 o|inlining procedure: k28805 o|replaced variables: 7 o|removed binding forms: 68 o|contracted procedure: k25336 o|contracted procedure: k19689 o|contracted procedure: k28110 o|contracted procedure: k28352 o|removed binding forms: 13 o|replaced variables: 16 o|removed binding forms: 12 o|direct leaf routine/allocation: scan1027 0 o|direct leaf routine/allocation: lp1111 0 o|direct leaf routine/allocation: lp1159 0 o|direct leaf routine/allocation: lp1957 0 o|direct leaf routine/allocation: new-res1624 6 o|direct leaf routine/allocation: g18641865 6 o|direct leaf routine/allocation: scan1039 0 o|direct leaf routine/allocation: byte1935 0 o|direct leaf routine/allocation: sre-repeater? 0 o|direct leaf routine/allocation: sre-sequence 3 o|direct leaf routine/allocation: sre-alternate 3 o|direct leaf routine/allocation: g36223629 3 o|direct leaf routine/allocation: g36423649 0 o|direct leaf routine/allocation: g35373544 3 o|direct leaf routine/allocation: nfa-get-epsilons 0 o|direct leaf routine/allocation: doloop38073808 0 o|direct leaf routine/allocation: doloop39533954 0 o|direct leaf routine/allocation: g40114018 3 o|direct leaf routine/allocation: lp4087 0 o|direct leaf routine/allocation: doloop41114112 0 o|direct leaf routine/allocation: lp5305 0 o|direct leaf routine/allocation: scan5818 0 o|converted assignments to bindings: (scan1027) o|contracted procedure: k9123 o|converted assignments to bindings: (lp1111) o|converted assignments to bindings: (lp1159) o|converted assignments to bindings: (lp1957) o|contracted procedure: "(irregex-core.scm:797) k10723" o|contracted procedure: "(irregex-core.scm:800) k10732" o|contracted procedure: "(irregex-core.scm:815) k10775" o|contracted procedure: "(irregex-core.scm:818) k10789" o|contracted procedure: "(irregex-core.scm:819) k10793" o|contracted procedure: "(irregex-core.scm:865) k11175" o|contracted procedure: "(irregex-core.scm:981) k11952" o|contracted procedure: "(irregex-core.scm:984) k11977" o|inlining procedure: "(irregex-core.scm:1238) k13728" o|contracted procedure: k13503 o|converted assignments to bindings: (scan1039) o|contracted procedure: "(irregex-core.scm:1349) k14300" o|contracted procedure: "(irregex-core.scm:1350) k14288" o|contracted procedure: "(irregex-core.scm:1353) k14353" o|contracted procedure: "(irregex-core.scm:1354) k14341" o|contracted procedure: "(irregex-core.scm:1355) k14329" o|contracted procedure: "(irregex-core.scm:1358) k14422" o|contracted procedure: "(irregex-core.scm:1359) k14410" o|contracted procedure: "(irregex-core.scm:1360) k14398" o|contracted procedure: "(irregex-core.scm:1361) k14386" o|contracted procedure: "(irregex-core.scm:1431) k14852" o|contracted procedure: "(irregex-core.scm:1443) k14988" o|contracted procedure: "(irregex-core.scm:1450) k15026" o|contracted procedure: "(irregex-core.scm:1459) k15135" o|contracted procedure: "(irregex-core.scm:1466) k15173" o|contracted procedure: "(irregex-core.scm:1477) k15553" o|contracted procedure: "(irregex-core.scm:1494) k15403" o|contracted procedure: "(irregex-core.scm:3128) k23803" o|contracted procedure: "(irregex-core.scm:3137) k23842" o|contracted procedure: "(irregex-core.scm:3142) k23861" o|contracted procedure: "(irregex-core.scm:3147) k23880" o|contracted procedure: "(irregex-core.scm:3149) k23899" o|contracted procedure: "(irregex-core.scm:3155) k23950" o|contracted procedure: "(irregex-core.scm:3161) k23996" o|contracted procedure: "(irregex-core.scm:3166) k24022" o|contracted procedure: "(irregex-core.scm:3175) k24061" o|contracted procedure: "(irregex-core.scm:3172) k24067" o|contracted procedure: "(irregex-core.scm:3187) k24103" o|contracted procedure: "(irregex-core.scm:3182) k24121" o|contracted procedure: "(irregex-core.scm:3206) k24146" o|contracted procedure: "(irregex-core.scm:3201) k24164" o|contracted procedure: "(irregex-core.scm:3230) k24253" o|contracted procedure: "(irregex-core.scm:3264) k24411" o|contracted procedure: "(irregex-core.scm:3297) k24656" o|contracted procedure: "(irregex-core.scm:3307) k24691" o|contracted procedure: "(irregex-core.scm:3317) k24769" o|contracted procedure: "(irregex-core.scm:3334) k24812" o|contracted procedure: "(irregex-core.scm:3416) k25179" o|contracted procedure: "(irregex-core.scm:3419) k25306" o|contracted procedure: "(irregex-core.scm:3597) k26421" o|contracted procedure: "(irregex-core.scm:1763) k17646" o|contracted procedure: "(irregex-core.scm:1787) k17834" o|contracted procedure: "(irregex-core.scm:1798) k17873" o|contracted procedure: "(irregex-core.scm:1802) k17920" o|contracted procedure: "(irregex-core.scm:1806) k17994" o|contracted procedure: "(irregex-core.scm:1810) k18022" o|contracted procedure: "(irregex-core.scm:1534) k15890" o|contracted procedure: "(irregex-core.scm:1535) k15905" o|contracted procedure: "(irregex-core.scm:1550) k16079" o|contracted procedure: "(irregex-core.scm:1665) k16916" o|contracted procedure: "(irregex-core.scm:1675) k17030" o|contracted procedure: "(irregex-core.scm:1865) k18442" o|contracted procedure: "(irregex-core.scm:1866) k18460" o|contracted procedure: "(irregex-core.scm:1867) k18477" o|contracted procedure: "(irregex-core.scm:1887) k18623" o|contracted procedure: "(irregex-core.scm:1889) k18645" o|contracted procedure: "(irregex-core.scm:1893) k18678" o|contracted procedure: "(irregex-core.scm:2219) k20471" o|contracted procedure: "(irregex-core.scm:2214) k20494" o|contracted procedure: "(irregex-core.scm:2166) k20668" o|contracted procedure: "(irregex-core.scm:2392) k20825" o|contracted procedure: k21000 o|converted assignments to bindings: (doloop38073808) o|contracted procedure: "(irregex-core.scm:2531) k21465" o|contracted procedure: "(irregex-core.scm:2604) k21618" o|contracted procedure: "(irregex-core.scm:2617) k21696" o|contracted procedure: k21878 o|converted assignments to bindings: (doloop39533954) o|contracted procedure: "(irregex-core.scm:2732) k22222" o|converted assignments to bindings: (lp4087) o|contracted procedure: "(irregex-core.scm:2984) k23174" o|contracted procedure: k22552 o|converted assignments to bindings: (doloop41114112) o|contracted procedure: "(irregex-core.scm:3703) k27129" o|contracted procedure: "(irregex-core.scm:3705) k27144" o|converted assignments to bindings: (lp5305) o|converted assignments to bindings: (scan5818) o|simplifications: ((let . 11)) o|removed binding forms: 80 o|replaced variables: 19 o|removed binding forms: 17 o|direct leaf routine/allocation: shift1502 6 o|direct leaf routine/allocation: for-each-loop36413655 0 o|contracted procedure: "(irregex-core.scm:800) k10828" o|contracted procedure: "(irregex-core.scm:822) k10843" o|converted assignments to bindings: (for-each-loop36413655) o|simplifications: ((let . 1)) o|removed binding forms: 2 o|customizable procedures: (k30434 k30461 loop26199 loop6184 k29784 k29918 for-each-loop61256135 k29927 k29854 cset->string for-each-loop60706080 g60336040 for-each-loop60326044 for-each-loop60116021 for-each-loop59926002 k29532 for-each-loop59755985 for-each-loop59565966 lp5915 lp15882 map-loop58565874 lp25885 loop5827 k29059 k28930 k28933 g55745575 lp5537 k28287 k28436 k28358 lp5474 irregex-copy-matches k28056 k28062 k28065 lp5430 k27942 lp5397 k27845 intersect5378 k27663 k27671 k27674 k27681 diff5349 char-ranges-union union-range5324 k27343 k26790 map-loop52575274 lp3042 lp5148 map-loop52305247 map-loop52025219 map-loop51765193 lp5159 lp5142 k23346 lp24297 lp4294 g42664267 k23211 lp4058 k22319 k22325 lp24252 lp4246 k22591 k22652 mst-fold k22979 g42314232 cset-difference mst-copy k23053 lp4219 nfa-state->mst nfa-epsilon-closure k23593 lp34329 lp4323 lp24325 tag-set-commands-for-closure lp24144 lp4133 lp4163 g41824191 map-loop41764198 doloop41684169 k22848 lp4099 k22157 for-each-loop40104029 make-mst mst-add! k21963 lp3768 k21115 k21322 k21369 g39433944 string->cset add-char-state!3802 lp23834 lp3794 nfa-add-epsilon! extend-state!3801 new-state-number3799 add-state!3800 k20988 doloop34963497 k20219 for-each-loop35363548 k20562 k20520 for-each-loop36213634 k20369 lp23562 k20257 finalize! lp13553 g34663473 for-each-loop34653486 k20069 k19765 lp3371 k19530 k19536 lp3287 lp13422 find cset-contains? lp23429 lp23253 lp13249 dfa-match/longest k19106 k19112 k18932 map-loop31573174 k18699 sre-sequence-names map-loop30163033 k17192 k17041 k16927 k16769 k16593 k16639 every k16246 map-loop24842501 k16038 map-loop24502467 map-loop24242441 any cset->utf8-pattern g23872396 map-loop23812399 g23602369 map-loop23542372 adjust2336 k16459 g25982599 sre->nfa g26092610 nfa->dfa k17314 k17343 k17667 k18049 k18089 g29792980 k18068 k17854 k17857 k17725 k17674 k17515 k17531 lp22849 lp22837 lp2797 grow2807 sre-names lp5055 lp5031 k26098 chunker-next-char k26012 k26003 k25938 k25905 chunker-prev-char k25807 k25798 k25738 k25741 k25706 k23738 k24985 lp4769 k24841 k24395 k24398 k24447 k24237 k24240 k24267 sre-count-submatches rec4363 sre-cset->procedure lp4354 cset->plist k15796 char->utf8-list map-loop21642185 g22002209 map-loop21942245 map-loop22572278 utf8-lowest-digit-of-length zero-to map-loop22172238 map-loop22952316 unicode-range-up-from unicode-range-up-to lp2013 lp2325 map-loop21282145 map-loop20932110 map-loop20312048 map-loop20572078 unicode-range-helper symbol-list->flags scan1051 lp21753 k12846 k12151 lp1062 collect1070 k12186 k12195 k13593 k14131 k14010 k13890 sre->cset k13827 k13672 k13750 k13763 string-parse-hex-escape cset-case-insensitive cset-complement go1830 join1623 lp21615 save1442 with-read-from-string k11298 collect/single1440 k11032 lp1431 collect/terms1441 collect1439 last k10701 k10891 k10704 lp1494 k10679 k10629 utf8-string-ref cased-string1438 map-loop14511468 k10406 lp1396 k10289 scan1366 scan1329 collect1333 k9987 k9919 skip1311 lp1297 read1284 lp1188 lp1179 lp1166 lp1140 lp1133 fold k8807 lp971 k8381 k8387 k8424 loop943 string-cat-reverse lp854 k8021 irregex-match-numeric-index vector-copy) o|calls to known targets: 1170 o|identified direct recursive calls: f_8069 2 o|identified direct recursive calls: f_8811 1 o|identified direct recursive calls: f_9127 1 o|identified direct recursive calls: f_9164 1 o|identified direct recursive calls: f_9263 1 o|identified direct recursive calls: f_10052 1 o|identified direct recursive calls: f_9767 4 o|identified direct recursive calls: f_14443 1 o|identified direct recursive calls: f_10714 2 o|identified direct recursive calls: f_11794 1 o|identified direct recursive calls: f_8953 1 o|identified direct recursive calls: f_12932 2 o|identified direct recursive calls: f_10523 3 o|identified direct recursive calls: f_8855 1 o|identified direct recursive calls: f_14902 1 o|identified direct recursive calls: f_14938 1 o|identified direct recursive calls: f_15067 1 o|identified direct recursive calls: f_15214 1 o|identified direct recursive calls: f_15688 1 o|identified direct recursive calls: f_14728 1 o|identified direct recursive calls: f_15328 1 o|identified direct recursive calls: f_15439 1 o|identified direct recursive calls: f_15589 1 o|identified direct recursive calls: f_17273 1 o|identified direct recursive calls: f_16263 1 o|identified direct recursive calls: f_15865 2 o|identified direct recursive calls: f_16849 1 o|identified direct recursive calls: f_18418 3 o|identified direct recursive calls: f_18599 3 o|identified direct recursive calls: f_20463 1 o|identified direct recursive calls: f_20486 1 o|identified direct recursive calls: f_20660 1 o|identified direct recursive calls: f_21009 1 o|identified direct recursive calls: f_21886 1 o|identified direct recursive calls: f_21930 1 o|identified direct recursive calls: f_22214 1 o|identified direct recursive calls: f_22514 1 o|identified direct recursive calls: f_22923 1 o|identified direct recursive calls: f_23514 2 o|identified direct recursive calls: f_22451 1 o|identified direct recursive calls: f_22380 1 o|identified direct recursive calls: f_22565 1 o|identified direct recursive calls: f_23180 1 o|identified direct recursive calls: f_26681 1 o|identified direct recursive calls: f_18551 1 o|identified direct recursive calls: f_26794 2 o|identified direct recursive calls: f_27284 2 o|identified direct recursive calls: f_27387 2 o|identified direct recursive calls: f_27596 2 o|identified direct recursive calls: f_27792 2 o|identified direct recursive calls: f_28662 1 o|identified direct recursive calls: f_29063 1 o|identified direct recursive calls: f_29221 1 o|identified direct recursive calls: f_29305 2 o|identified direct recursive calls: f_29293 1 o|identified direct recursive calls: f_30279 4 o|fast box initializations: 130 o|fast global references: 338 o|fast global assignments: 73 o|dropping unused closure argument: f_22143 o|dropping unused closure argument: f_22152 o|dropping unused closure argument: f_16849 o|dropping unused closure argument: f_26784 o|dropping unused closure argument: f_29419 o|dropping unused closure argument: f_14482 o|dropping unused closure argument: f_20184 o|dropping unused closure argument: f_26671 o|dropping unused closure argument: f_27337 o|dropping unused closure argument: f_27904 o|dropping unused closure argument: f_27914 o|dropping unused closure argument: f_14558 o|dropping unused closure argument: f_7533 o|dropping unused closure argument: f_18885 o|dropping unused closure argument: f_20789 o|dropping unused closure argument: f_7651 o|dropping unused closure argument: f_14828 o|dropping unused closure argument: f_18599 o|dropping unused closure argument: f_27582 o|dropping unused closure argument: f_9329 o|dropping unused closure argument: f_15121 o|dropping unused closure argument: f_14974 o|dropping unused closure argument: f_22095 o|dropping unused closure argument: f_26453 o|dropping unused closure argument: f_20823 o|dropping unused closure argument: f_27251 o|dropping unused closure argument: f_9286 o|dropping unused closure argument: f_9263 o|dropping unused closure argument: f_9374 o|dropping unused closure argument: f_9248 o|dropping unused closure argument: f_15743 o|dropping unused closure argument: f_9148 o|dropping unused closure argument: f_9187 o|dropping unused closure argument: f_17161 o|dropping unused closure argument: f_8677 o|dropping unused closure argument: f_20056 o|dropping unused closure argument: f_14245 o|dropping unused closure argument: f_18372 o|dropping unused closure argument: f_18395 o|dropping unused closure argument: f_8647 o|dropping unused closure argument: f_20964 o|dropping unused closure argument: f_9098 o|dropping unused closure argument: f_13486 o|dropping unused closure argument: f_22505 o|dropping unused closure argument: f_23290 o|dropping unused closure argument: f_23275 o|dropping unused closure argument: f_22589 o|dropping unused closure argument: f_7953 o|dropping unused closure argument: f_10373 o|dropping unused closure argument: f_9760 o|dropping unused closure argument: f_26764 o|dropping unused closure argument: f_22126 */ /* end of file */ chicken-4.12.0/debugger-client.scm0000644000175000017500000000331313052306173016554 0ustar sjamaansjamaan;;;; debugger-client.scm - client-side support for debugging ; ; Copyright (c) 2014-2017, 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-4.12.0/utils.import.scm0000644000175000017500000000331613052306173016170 0ustar sjamaansjamaan;;;; utils.import.scm - import library for "utils" module ; ; Copyright (c) 2008-2017, 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 'utils '(read-all system* qs compile-file compile-file-options scan-input-lines yes-or-no?)) chicken-4.12.0/data-structures.import.scm0000644000175000017500000000464313052306173020166 0ustar sjamaansjamaan;;;; data-structures.import.scm - import library for "data-structures" module ; ; Copyright (c) 2008-2017, 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 'data-structures '(->string alist-ref alist-update! alist-update any? atom? binary-search butlast chop complement compose compress conc conjoin constantly disjoin each flatten flip identity intersperse join list->queue list-of? make-queue merge merge! o queue->list queue-add! queue-empty? queue-first queue-last queue-length queue-push-back! queue-push-back-list! queue-remove! queue? rassoc reverse-string-append sort sort! sorted? topological-sort string-chomp string-chop string-compare3 string-compare3-ci string-intersperse string-split string-translate string-translate* substring-ci=? substring-index substring-index-ci substring=? tail?)) chicken-4.12.0/tests/0000755000175000017500000000000013052306551014152 5ustar sjamaansjamaanchicken-4.12.0/tests/gobble.scm0000644000175000017500000000101513052302315016077 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#fudge 13)) (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-4.12.0/tests/runbench.sh0000755000175000017500000000362213052302315016312 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 "======================================== threads ... " $compile thread-list.scm -f run 1000000 echo "======================================== allocation ... " $compile gobble.scm run 1000000000 echo "======================================== irregex ... " /usr/bin/time "$timeopts" $interpret -bnq test-irregex.scm >/dev/null chicken-4.12.0/tests/syntax-tests-2.scm0000644000175000017500000000023713040667210017504 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-4.12.0/tests/srfi-18-signal-test.scm0000644000175000017500000000365613052302315020303 0ustar sjamaansjamaan#+mingw32 (begin (print "this test can not be run on Windows/mingw unless we find a way to send signals") (exit)) (use srfi-18 posix utils) (define done #f) ; set done = true on timer expiration (set-signal-handler! signal/alrm (lambda (signal) (set! done #t))) (define (work-loop count) (cond ((> count 100) (error "Loop limit exceeded")) ((not done) (display ".") (thread-sleep! 0.25) (work-loop (add1 count))))) (define (new-thread) (set! done #f) (make-thread (lambda () (work-loop 0)))) ;; Needs external signal (not from another thread) it seems, ;; so let the OS deliver it to us when we're ready: (foreign-declare "#include ") ((foreign-lambda* void () "#ifndef __MINGW32__ \n" "struct itimerval timer;" "timer.it_value.tv_sec = 1;" "timer.it_value.tv_usec = 0;" "timer.it_interval.tv_sec = 0;" "timer.it_interval.tv_usec = 0;" "setitimer(ITIMER_REAL, &timer, NULL);\n" "#endif")) (display "Testing correct handling of thread-join! with external signals:") (flush-output) (let ((t (new-thread))) (thread-start! t) (thread-join! t)) (print " thread terminated gracefully, this is good") (display "thread-join with timeout: ") (flush-output) (let ((t (new-thread))) (condition-case (begin (thread-start! t) (thread-join! t 1)) ((join-timeout-exception) (print "timeout exception as expected") (thread-terminate! t)) (exn () (thread-terminate! t) (signal exn)))) (display "thread-join with return value:") (flush-output) (let ((t (new-thread))) (assert (condition-case (begin (thread-start! t) (thread-join! t 1 'bla)) ((join-timeout-exception) (print " timeout exception as expected") (thread-terminate! t)) (exn () (thread-terminate! t) (signal exn))) 'bla)) (print " done.") chicken-4.12.0/tests/QUEUE.scm0000644000175000017500000000014213040667210015536 0ustar sjamaansjamaan;;;; QUEUE.scm (define-interface QUEUE (empty-queue enqueue head empty? dequeue)) chicken-4.12.0/tests/re-tests.txt0000644000175000017500000001013213040667210016455 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)(? 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 (random random-range)) (+ y (random 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)) (or (= x y) (and (flonum? x) (flonum? y) (string=? (number->string x) (number->string 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)) #+check (load (cond-expand (check-numbers "arithmetic-test.numbers.expected") (else (if (##sys#fudge 3) "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) (print "FAIL: " c/total1 " " exp1 " -> expected: " res1 ", but got: " res2))) (car result)) (set! result (cdr result))) x))) chicken-4.12.0/tests/fft.scm0000644000175000017500000023573513052302315015446 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)) ;;; 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 (use 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) (declare (not interrupts-enabled)) (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. (declare (not interrupts-enabled)) (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) (declare (not interrupts-enabled)) (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-4.12.0/tests/dwindtst.scm0000644000175000017500000000440513040667210016520 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-4.12.0/tests/functor-tests.scm0000644000175000017500000001003613052302315017470 0ustar sjamaansjamaan;;;; functor-tests.scm (use srfi-1 data-structures extras) (include "test.scm") (test-begin) ;; (include "test-queue") (include "breadth-first") (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) (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) (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 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 ;; 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 X) yibble) (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)) ;; (test-end) chicken-4.12.0/tests/scrutiny-tests-2.scm0000644000175000017500000000110413040667210020030 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-4.12.0/tests/finalizer-error-test.scm0000644000175000017500000000054313052302315020741 0ustar sjamaansjamaan;;;; finalizer-error-test.scm - by "megane" (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-4.12.0/tests/use-square-functor.scm0000644000175000017500000000054513040667210020431 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-4.12.0/tests/loopy-test.scm0000644000175000017500000001211113052302315016763 0ustar sjamaansjamaan(load-relative "loopy-loop.scm") (load-relative "matchable.scm") (require-extension srfi-69) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; 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-equal "in-hash-table" (loop ((k v <- in-hash-table (alist->hash-table '((a . 1)))) (res <- collecting (cons k v))) => res) '((a . 1))) (test-end "loop") chicken-4.12.0/tests/syntax-rule-stress-test.scm0000644000175000017500000001513113040667210021447 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-4.12.0/tests/ec-tests.scm0000644000175000017500000004565213040667210016420 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"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (my-call-with-input-file "tmp1" (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"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (my-call-with-input-file "tmp1" (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"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (my-call-with-input-file "tmp1" (lambda (port) (list-ec (: x port read) x)) )) => (list-ec (:range n 10) n) ) (my-check (begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (my-call-with-input-file "tmp1" (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"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (my-call-with-input-file "tmp1" (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"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (read-lines "tmp1") ) => (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-4.12.0/tests/srfi-45-tests.scm��������������������������������������������������������������0000644�0001750�0001750�00000004323�13052302315�017203� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; Tests adapted from SRFI 45 (for "lazy" -> "delay-force"). ;;; That SRFI Copyright (C) André van Tonder (2003). (use (only ports 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-4.12.0/tests/srfi-13-tests.scm��������������������������������������������������������������0000644�0001750�0001750�00000074562�13052302315�017212� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(define (fill text) (let* ((len (string-length text)) (max-text-len 60) (last-col 70) (text (if (> len max-text-len) (begin (set! len max-text-len) (substring text 0 max-text-len)) text))) (string-append text (make-string (- last-col len) #\.)))) (define-syntax test (syntax-rules () ((_ comment expect form) (begin (display (fill (or comment ""))) (cond ((equal? expect form) (display "[ok]")) (else (display "[fail]") (newline) (exit 13))) (newline) (flush-output))))) (define-syntax test-assert (syntax-rules () ((_ comment form) (test comment #t (and form #t))))) (use srfi-13) ; Tests for SRFI-13 as implemented by the Gauche scheme system. ;; ;; Copyright (c) 2000-2003 Shiro Kawai, 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. 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. ;; ;; See http://sourceforge.net/projects/gauche/ (test "string-null?" #f (string-null? "abc")) (test "string-null?" #t (string-null? "")) (test "string-every" #t (string-every #\a "")) (test "string-every" #t (string-every #\a "aaaa")) (test "string-every" #f (string-every #\a "aaba")) (test "string-every" #t (string-every char-set:lower-case "aaba")) (test "string-every" #f (string-every char-set:lower-case "aAba")) (test "string-every" #t (string-every char-set:lower-case "")) (test "string-every" #t (string-every (lambda (x) (char-ci=? x #\a)) "aAaA")) (test "string-every" #f (string-every (lambda (x) (char-ci=? x #\a)) "aAbA")) (test "string-every" (char->integer #\A) (string-every (lambda (x) (char->integer x)) "aAbA")) (test "string-every" #t (string-every (lambda (x) (error "hoge")) "")) (test "string-any" #t (string-any #\a "aaaa")) (test "string-any" #f (string-any #\a "Abcd")) (test "string-any" #f (string-any #\a "")) (test "string-any" #t (string-any char-set:lower-case "ABcD")) (test "string-any" #f (string-any char-set:lower-case "ABCD")) (test "string-any" #f (string-any char-set:lower-case "")) (test "string-any" #t (string-any (lambda (x) (char-ci=? x #\a)) "CAaA")) (test "string-any" #f (string-any (lambda (x) (char-ci=? x #\a)) "ZBRC")) (test "string-any" #f (string-any (lambda (x) (char-ci=? x #\a)) "")) (test "string-any" (char->integer #\a) (string-any (lambda (x) (char->integer x)) "aAbA")) (test "string-tabulate" "0123456789" (string-tabulate (lambda (code) (integer->char (+ code (char->integer #\0)))) 10)) (test "string-tabulate" "" (string-tabulate (lambda (code) (integer->char (+ code (char->integer #\0)))) 0)) (test "reverse-list->string" "cBa" (reverse-list->string '(#\a #\B #\c))) (test "reverse-list->string" "" (reverse-list->string '())) ; string-join : Gauche builtin. (test "substring/shared" "cde" (substring/shared "abcde" 2)) (test "substring/shared" "cd" (substring/shared "abcde" 2 4)) (test "string-copy!" "abCDEfg" (let ((x (string-copy "abcdefg"))) (string-copy! x 2 "CDE") x)) (test "string-copy!" "abCDEfg" (let ((x (string-copy "abcdefg"))) (string-copy! x 2 "ZABCDE" 3) x)) (test "string-copy!" "abCDEfg" (let ((x (string-copy "abcdefg"))) (string-copy! x 2 "ZABCDEFG" 3 6) x)) ;; From Guile. Thanks to Mark H Weaver. (test "string-copy!: overlapping src and dest, moving right" "aabce" (let ((str (string-copy "abcde"))) (string-copy! str 1 str 0 3) str)) (test "string-copy!: overlapping src and dest, moving left" "bcdde" (let ((str (string-copy "abcde"))) (string-copy! str 0 str 1 4) str)) (test "string-take" "Pete S" (string-take "Pete Szilagyi" 6)) (test "string-take" "" (string-take "Pete Szilagyi" 0)) (test "string-take" "Pete Szilagyi" (string-take "Pete Szilagyi" 13)) (test "string-drop" "zilagyi" (string-drop "Pete Szilagyi" 6)) (test "string-drop" "Pete Szilagyi" (string-drop "Pete Szilagyi" 0)) (test "string-drop" "" (string-drop "Pete Szilagyi" 13)) (test "string-take-right" "rules" (string-take-right "Beta rules" 5)) (test "string-take-right" "" (string-take-right "Beta rules" 0)) (test "string-take-right" "Beta rules" (string-take-right "Beta rules" 10)) (test "string-drop-right" "Beta " (string-drop-right "Beta rules" 5)) (test "string-drop-right" "Beta rules" (string-drop-right "Beta rules" 0)) (test "string-drop-right" "" (string-drop-right "Beta rules" 10)) (test "string-pad" " 325" (string-pad "325" 5)) (test "string-pad" "71325" (string-pad "71325" 5)) (test "string-pad" "71325" (string-pad "8871325" 5)) (test "string-pad" "~~325" (string-pad "325" 5 #\~)) (test "string-pad" "~~~25" (string-pad "325" 5 #\~ 1)) (test "string-pad" "~~~~2" (string-pad "325" 5 #\~ 1 2)) (test "string-pad-right" "325 " (string-pad-right "325" 5)) (test "string-pad-right" "71325" (string-pad-right "71325" 5)) (test "string-pad-right" "88713" (string-pad-right "8871325" 5)) (test "string-pad-right" "325~~" (string-pad-right "325" 5 #\~)) (test "string-pad-right" "25~~~" (string-pad-right "325" 5 #\~ 1)) (test "string-pad-right" "2~~~~" (string-pad-right "325" 5 #\~ 1 2)) (test "string-trim" "a b c d \n" (string-trim " \t a b c d \n")) (test "string-trim" "\t a b c d \n" (string-trim " \t a b c d \n" #\space)) (test "string-trim" "a b c d \n" (string-trim "4358948a b c d \n" char-set:digit)) (test "string-trim-right" " \t a b c d" (string-trim-right " \t a b c d \n")) (test "string-trim-right" " \t a b c d " (string-trim-right " \t a b c d \n" (char-set #\newline))) (test "string-trim-right" "349853a b c d" (string-trim-right "349853a b c d03490" char-set:digit)) (test "string-trim-both" "a b c d" (string-trim-both " \t a b c d \n")) (test "string-trim-both" " \t a b c d " (string-trim-both " \t a b c d \n" (char-set #\newline))) (test "string-trim-both" "a b c d" (string-trim-both "349853a b c d03490" char-set:digit)) ;; string-fill - in string.scm (test "string-compare" 5 (string-compare "The cat in the hat" "abcdefgh" values values values 4 6 2 4)) (test "string-compare-ci" 5 (string-compare-ci "The cat in the hat" "ABCDEFGH" values values values 4 6 2 4)) ;; TODO: bunch of string= families (test "string-prefix-length" 5 (string-prefix-length "cancaNCAM" "cancancan")) (test "string-prefix-length-ci" 8 (string-prefix-length-ci "cancaNCAM" "cancancan")) (test "string-suffix-length" 2 (string-suffix-length "CanCan" "cankancan")) (test "string-suffix-length-ci" 5 (string-suffix-length-ci "CanCan" "cankancan")) (test "string-prefix?" #t (string-prefix? "abcd" "abcdefg")) (test "string-prefix?" #f (string-prefix? "abcf" "abcdefg")) (test "string-prefix-ci?" #t (string-prefix-ci? "abcd" "aBCDEfg")) (test "string-prefix-ci?" #f (string-prefix-ci? "abcf" "aBCDEfg")) (test "string-suffix?" #t (string-suffix? "defg" "abcdefg")) (test "string-suffix?" #f (string-suffix? "aefg" "abcdefg")) (test "string-suffix-ci?" #t (string-suffix-ci? "defg" "aBCDEfg")) (test "string-suffix-ci?" #f (string-suffix-ci? "aefg" "aBCDEfg")) (test "string-index #1" 4 (string-index "abcd:efgh:ijkl" #\:)) (test "string-index #2" 4 (string-index "abcd:efgh;ijkl" (char-set-complement char-set:letter))) (test "string-index #3" #f (string-index "abcd:efgh;ijkl" char-set:digit)) (test "string-index #4" 9 (string-index "abcd:efgh:ijkl" #\: 5)) (test "string-index-right #1" 4 (string-index-right "abcd:efgh;ijkl" #\:)) (test "string-index-right #2" 9 (string-index-right "abcd:efgh;ijkl" (char-set-complement char-set:letter))) (test "string-index-right #3" #f (string-index-right "abcd:efgh;ijkl" char-set:digit)) (test "string-index-right #4" 4 (string-index-right "abcd:efgh;ijkl" (char-set-complement char-set:letter) 2 5)) (test "string-count #1" 2 (string-count "abc def\tghi jkl" #\space)) (test "string-count #2" 3 (string-count "abc def\tghi jkl" char-set:whitespace)) (test "string-count #3" 2 (string-count "abc def\tghi jkl" char-set:whitespace 4)) (test "string-count #4" 1 (string-count "abc def\tghi jkl" char-set:whitespace 4 9)) (test "string-contains" 3 (string-contains "Ma mere l'oye" "mer")) (test "string-contains" #f (string-contains "Ma mere l'oye" "Mer")) (test "string-contains-ci" 3 (string-contains-ci "Ma mere l'oye" "Mer")) (test "string-contains-ci" #f (string-contains-ci "Ma mere l'oye" "Meer")) (test "string-titlecase" "--Capitalize This Sentence." (string-titlecase "--capitalize tHIS sentence.")) (test "string-titlecase" "3Com Makes Routers." (string-titlecase "3com makes routers.")) (test "string-titlecase!" "alSo Whatever" (let ((s (string-copy "also whatever"))) (string-titlecase! s 2 9) s)) (test "string-upcase" "SPEAK LOUDLY" (string-upcase "speak loudly")) (test "string-upcase" "PEAK" (string-upcase "speak loudly" 1 5)) (test "string-upcase!" "sPEAK loudly" (let ((s (string-copy "speak loudly"))) (string-upcase! s 1 5) s)) (test "string-downcase" "speak softly" (string-downcase "SPEAK SOFTLY")) (test "string-downcase" "peak" (string-downcase "SPEAK SOFTLY" 1 5)) (test "string-downcase!" "Speak SOFTLY" (let ((s (string-copy "SPEAK SOFTLY"))) (string-downcase! s 1 5) s)) (test "string-reverse" "nomel on nolem on" (string-reverse "no melon no lemon")) (test "string-reverse" "nomel on" (string-reverse "no melon no lemon" 9)) (test "string-reverse" "on" (string-reverse "no melon no lemon" 9 11)) (test "string-reverse!" "nomel on nolem on" (let ((s (string-copy "no melon no lemon"))) (string-reverse! s) s)) (test "string-reverse!" "no melon nomel on" (let ((s (string-copy "no melon no lemon"))) (string-reverse! s 9) s)) (test "string-reverse!" "no melon on lemon" (let ((s (string-copy "no melon no lemon"))) (string-reverse! s 9 11) s)) (test "string-append" #f (let ((s "test")) (eq? s (string-append s)))) (test "string-concatenate" #f (let ((s "test")) (eq? s (string-concatenate (list s))))) (test "string-concatenate" "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" (string-concatenate '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z" "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"))) (test "string-concatenate/shared" "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" (string-concatenate/shared '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z" "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"))) (test "string-concatenate-reverse" "zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA" (string-concatenate-reverse '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z" "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"))) (test "string-concatenate-reverse" #f (let ((s "test")) (eq? s (string-concatenate-reverse (list s))))) (test "string-concatenate-reverse/shared" "zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA" (string-concatenate-reverse/shared '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z" "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"))) (test "string-map" "svool" (string-map (lambda (c) (integer->char (- 219 (char->integer c)))) "hello")) (test "string-map" "vool" (string-map (lambda (c) (integer->char (- 219 (char->integer c)))) "hello" 1)) (test "string-map" "vo" (string-map (lambda (c) (integer->char (- 219 (char->integer c)))) "hello" 1 3)) (test "string-map!" "svool" (let ((s (string-copy "hello"))) (string-map! (lambda (c) (integer->char (- 219 (char->integer c)))) s) s)) (test "string-map!" "hvool" (let ((s (string-copy "hello"))) (string-map! (lambda (c) (integer->char (- 219 (char->integer c)))) s 1) s)) (test "string-map!" "hvolo" (let ((s (string-copy "hello"))) (string-map! (lambda (c) (integer->char (- 219 (char->integer c)))) s 1 3) s)) (test "string-fold" '(#\o #\l #\l #\e #\h . #t) (string-fold cons #t "hello")) (test "string-fold" '(#\l #\e . #t) (string-fold cons #t "hello" 1 3)) (test "string-fold-right" '(#\h #\e #\l #\l #\o . #t) (string-fold-right cons #t "hello")) (test "string-fold-right" '(#\e #\l . #t) (string-fold-right cons #t "hello" 1 3)) (test "string-unfold" "hello" (string-unfold null? car cdr '(#\h #\e #\l #\l #\o))) (test "string-unfold" "hi hello" (string-unfold null? car cdr '(#\h #\e #\l #\l #\o) "hi ")) (test "string-unfold" "hi hello ho" (string-unfold null? car cdr '(#\h #\e #\l #\l #\o) "hi " (lambda (x) " ho"))) (test "string-unfold-right" "olleh" (string-unfold-right null? car cdr '(#\h #\e #\l #\l #\o))) (test "string-unfold-right" "olleh hi" (string-unfold-right null? car cdr '(#\h #\e #\l #\l #\o) " hi")) (test "string-unfold-right" "ho olleh hi" (string-unfold-right null? car cdr '(#\h #\e #\l #\l #\o) " hi" (lambda (x) "ho "))) (test "string-for-each" "CLtL" (let ((out (open-output-string)) (prev #f)) (string-for-each (lambda (c) (if (or (not prev) (char-whitespace? prev)) (write-char c out)) (set! prev c)) "Common Lisp, the Language") (get-output-string out))) (test "string-for-each" "oLtL" (let ((out (open-output-string)) (prev #f)) (string-for-each (lambda (c) (if (or (not prev) (char-whitespace? prev)) (write-char c out)) (set! prev c)) "Common Lisp, the Language" 1) (get-output-string out))) (test "string-for-each" "oL" (let ((out (open-output-string)) (prev #f)) (string-for-each (lambda (c) (if (or (not prev) (char-whitespace? prev)) (write-char c out)) (set! prev c)) "Common Lisp, the Language" 1 10) (get-output-string out))) (test "string-for-each-index" '(4 3 2 1 0) (let ((r '())) (string-for-each-index (lambda (i) (set! r (cons i r))) "hello") r)) (test "string-for-each-index" '(4 3 2 1) (let ((r '())) (string-for-each-index (lambda (i) (set! r (cons i r))) "hello" 1) r)) (test "string-for-each-index" '(2 1) (let ((r '())) (string-for-each-index (lambda (i) (set! r (cons i r))) "hello" 1 3) r)) (test "xsubstring" "cdefab" (xsubstring "abcdef" 2)) (test "xsubstring" "efabcd" (xsubstring "abcdef" -2)) (test "xsubstring" "abcabca" (xsubstring "abc" 0 7)) ;; (test "xsubstring" "abcabca" ;; (xsubstring "abc" ;; 30000000000000000000000000000000 ;; 30000000000000000000000000000007)) (test "xsubstring" "defdefd" (xsubstring "abcdefg" 0 7 3 6)) (test "xsubstring" "" (xsubstring "abcdefg" 9 9 3 6)) (test "string-xcopy!" "ZZcdefabZZ" (let ((s (make-string 10 #\Z))) (string-xcopy! s 2 "abcdef" 2) s)) (test "string-xcopy!" "ZZdefdefZZ" (let ((s (make-string 10 #\Z))) (string-xcopy! s 2 "abcdef" 0 6 3) s)) (test "string-replace" "abcdXYZghi" (string-replace "abcdefghi" "XYZ" 4 6)) (test "string-replace" "abcdZghi" (string-replace "abcdefghi" "XYZ" 4 6 2)) (test "string-replace" "abcdZefghi" (string-replace "abcdefghi" "XYZ" 4 4 2)) (test "string-replace" "abcdefghi" (string-replace "abcdefghi" "XYZ" 4 4 1 1)) (test "string-replace" "abcdhi" (string-replace "abcdefghi" "" 4 7)) (test "string-tokenize" '("Help" "make" "programs" "run," "run," "RUN!") (string-tokenize "Help make programs run, run, RUN!")) (test "string-tokenize" '("Help" "make" "programs" "run" "run" "RUN") (string-tokenize "Help make programs run, run, RUN!" char-set:letter)) (test "string-tokenize" '("programs" "run" "run" "RUN") (string-tokenize "Help make programs run, run, RUN!" char-set:letter 10)) (test "string-tokenize" '("elp" "make" "programs" "run" "run") (string-tokenize "Help make programs run, run, RUN!" char-set:lower-case)) (test "string-filter" "rrrr" (string-filter #\r "Help make programs run, run, RUN!")) (test "string-filter" "HelpmakeprogramsrunrunRUN" (string-filter char-set:letter "Help make programs run, run, RUN!")) (test "string-filter" "programsrunrun" (string-filter (lambda (c) (char-lower-case? c)) "Help make programs run, run, RUN!" 10)) (test "string-filter" "" (string-filter (lambda (c) (char-lower-case? c)) "")) (test "string-delete" "Help make pogams un, un, RUN!" (string-delete #\r "Help make programs run, run, RUN!")) (test "string-delete" " , , !" (string-delete char-set:letter "Help make programs run, run, RUN!")) (test "string-delete" " , , RUN!" (string-delete (lambda (c) (char-lower-case? c)) "Help make programs run, run, RUN!" 10)) (test "string-delete" "" (string-delete (lambda (c) (char-lower-case? c)) "")) ;;; Additional tests so that the suite at least touches all ;;; the functions. (test "string-hash" #t (<= 0 (string-hash "abracadabra" 20) 19)) (test "string-hash" #t (= (string-hash "abracadabra" 20) (string-hash "abracadabra" 20))) (test "string-hash" #t (= (string-hash "abracadabra" 20 2 7) (string-hash (substring "abracadabra" 2 7) 20))) (test "string-hash-ci" #t (= (string-hash-ci "aBrAcAdAbRa" 20) (string-hash-ci "AbRaCaDaBrA" 20))) (test "string-hash-ci" #t (= (string-hash-ci "aBrAcAdAbRa" 20 2 7) (string-hash-ci (substring "AbRaCaDaBrA" 2 7) 20))) (test "string=" #t (string= "foo" "foo")) (test "string=" #t (string= "foobar" "foo" 0 3)) (test "string=" #t (string= "foobar" "barfoo" 0 3 3)) (test "string=" #t (not (string= "foobar" "barfoo" 0 3 2 5))) (test "string<>" #t (string<> "flo" "foo")) (test "string<>" #t (string<> "flobar" "foo" 0 3)) (test "string<>" #t (string<> "flobar" "barfoo" 0 3 3)) (test "string<>" #t (not (string<> "foobar" "foobar" 0 3 0 3))) (test "string<=" #t (string<= "fol" "foo")) (test "string<=" #t (string<= "folbar" "foo" 0 3)) (test "string<=" #t (string<= "foobar" "barfoo" 0 3 3)) (test "string<=" #f (string<= "foobar" "barfoo" 0 3 1 4)) (test "string<" #t (string< "fol" "foo")) (test "string<" #t (string< "folbar" "foo" 0 3)) (test "string<" #t (string< "folbar" "barfoo" 0 3 3)) (test "string<" #t (not (string< "foobar" "barfoo" 0 3 1 4))) (test "string>=" #t (string>= "foo" "fol")) (test "string>=" #t (string>= "foo" "folbar" 0 3 0 3)) (test "string>=" #t (string>= "barfoo" "foo" 3 6 0)) (test "string>=" #t (not (string>= "barfoo" "foobar" 1 4 0 3))) (test "string>" #t (string> "foo" "fol")) (test "string>" #t (string> "foo" "folbar" 0 3 0 3)) (test "string>" #t (string> "barfoo" "fol" 3 6 0)) (test "string>" #t (not (string> "barfoo" "foobar" 1 4 0 3))) (test "string-ci=" #t (string-ci= "Foo" "foO")) (test "string-ci=" #t (string-ci= "Foobar" "fOo" 0 3)) (test "string-ci=" #t (string-ci= "Foobar" "bArfOo" 0 3 3)) (test "string-ci=" #t (not (string-ci= "foobar" "BARFOO" 0 3 2 5))) (test "string-ci<>" #t (string-ci<> "flo" "FOO")) (test "string-ci<>" #t (string-ci<> "FLOBAR" "foo" 0 3)) (test "string-ci<>" #t (string-ci<> "flobar" "BARFOO" 0 3 3)) (test "string-ci<>" #t (not (string-ci<> "foobar" "FOOBAR" 0 3 0 3))) (test "string-ci<=" #t (string-ci<= "FOL" "foo")) (test "string-ci<=" #t (string-ci<= "folBAR" "fOO" 0 3)) (test "string-ci<=" #t (string-ci<= "fOOBAR" "BARFOO" 0 3 3)) (test "string-ci<=" #t (not (string-ci<= "foobar" "BARFOO" 0 3 1 4))) (test "string-ci<" #t (string-ci< "fol" "FOO")) (test "string-ci<" #t (string-ci< "folbar" "FOO" 0 3)) (test "string-ci<" #t (string-ci< "folbar" "BARFOO" 0 3 3)) (test "string-ci<" #t (not (string-ci< "foobar" "BARFOO" 0 3 1 4))) (test "string-ci>=" #t (string-ci>= "FOO" "fol")) (test "string-ci>=" #t (string-ci>= "foo" "FOLBAR" 0 3 0 3)) (test "string-ci>=" #t (string-ci>= "BARFOO" "foo" 3 6 0)) (test "string-ci>=" #t (not (string-ci>= "barfoo" "FOOBAR" 1 4 0 3))) (test "string-ci>" #t (string-ci> "FOO" "fol")) (test "string-ci>" #t (string-ci> "foo" "FOLBAR" 0 3 0 3)) (test "string-ci>" #t (string-ci> "barfoo" "FOL" 3 6 0)) (test "string-ci>" #t (not (string-ci> "barfoo" "FOOBAR" 1 4 0 3))) (test "string=?" #t (string=? "abcd" (string-append/shared "a" "b" "c" "d"))) (test "string-parse-start+end" #t (let-values (((rest start end) (string-parse-start+end #t "foo" '(1 3 fnord)))) (and (= start 1) (= end 3) (equal? rest '(fnord))))) (test "string-parse-start+end" #t (call-with-current-continuation (lambda (k) (handle-exceptions exn (k #t) (string-parse-start+end #t "foo" '(1 4)) #f)))) (test "string-parse-start+end" #t (let-values (((start end) (string-parse-final-start+end #t "foo" '(1 3)))) (and (= start 1) (= end 3)))) (test "string-parse-start+end" #t (let-string-start+end (start end rest) #t "foo" '(1 3 fnord) (and (= start 1) (= end 3) (equal? rest '(fnord))))) (test-assert "check-substring-spec" (check-substring-spec #t "foo" 1 3)) (test-assert "check-substring-spec" (call-with-current-continuation (lambda (k) (handle-exceptions exn (k #t) (check-substring-spec #t "foo" 1 4) #f)))) (test-assert "substring-spec-ok?" (substring-spec-ok? "foo" 1 3)) (test-assert "substring-spec-ok?" (not (substring-spec-ok? "foo" 1 4))) (test "make-kmp-restart-vector" '#() (make-kmp-restart-vector "")) (test "make-kmp-restart-vector" '#(-1) (make-kmp-restart-vector "a")) (test "make-kmp-restart-vector" '#(-1 0) (make-kmp-restart-vector "ab")) ; The following is from an example in the code. It is the "optimised" ; version; it's also valid to return #(-1 0 0 0 1 2), but that will ; needlessly check the "a" twice before giving up. (test "make-kmp-restart-vector" '#(-1 0 0 -1 1 2) (make-kmp-restart-vector "abdabx")) ;; Each entry in kmp-cases is a pattern, a string to match against and ;; the expected run of the algorithm through the positions in the ;; pattern. So for example 0 1 2 means it looks at position 0 first, ;; then at 1 and then at 2. ;; ;; This is easy to verify in simple cases; If there's a shared ;; substring and matching fails, you try matching again starting at ;; the end of the shared substring, otherwise you rewind. For more ;; complex cases, it's increasingly difficult for humans to verify :) (define kmp-cases '(("abc" "xx" #f 0 0) ("abc" "abc" #t 0 1 2) ("abcd" "abc" #f 0 1 2) ("abc" "abcd" #t 0 1 2) ("abc" "aabc" #t 0 1 1 2) ("ab" "aa" #f 0 1) ("ab" "aab" #t 0 1 1) ("abdabx" "abdbbabda" #f 0 1 2 3 0 0 1 2 3) ("aabc" "axaabc" #t 0 1 0 1 2 3) ("aabac" "aabaabac" #t 0 1 2 3 4 2 3 4))) (for-each (lambda (test-case) (let* ((pat (car test-case)) (n (string-length pat)) (str (cadr test-case)) (match? (caddr test-case)) (steps (cdddr test-case)) (rv (make-kmp-restart-vector pat))) (call-with-input-string str (lambda (p) (let lp ((i 0) (step 0) (steps steps)) (cond ((or (= i n) (eof-object? (peek-char p))) (test-assert (sprintf "KMP match? ~S, case: ~S" match? test-case) (eq? (= i n) match?)) (test-assert (sprintf "KMP empty remaining steps: ~S, case: ~S" steps test-case) (null? steps))) (else (let ((new-i (kmp-step pat rv (read-char p) i char=? 0)) (expected-i (and (not (null? steps)) (car steps)))) (test (sprintf "KMP step ~S (exp: ~S, act: ~S), case: ~S" step expected-i i test-case) expected-i i) (lp new-i (add1 step) (cdr steps)))))))))) kmp-cases) ; FIXME! Implement tests for these: ; string-kmp-partial-search ; kmp-step ;;; Regression tests: check that reported bugs have been fixed ; From: Matthias Radestock <matthias@sorted.org> ; Date: Wed, 10 Dec 2003 21:05:22 +0100 ; ; Chris Double has found the following bug in the reference implementation: ; ; (string-contains "xabc" "ab") => 1 ;good ; (string-contains "aabc" "ab") => #f ;bad ; ; Matthias. (test "string-contains" 1 (string-contains "aabc" "ab")) (test "string-contains" 5 (string-contains "ababdabdabxxas" "abdabx")) (test "string-contains-ci" 1 (string-contains-ci "aabc" "ab")) ; (message continues) ; ; PS: There is also an off-by-one error in the bounds check of the ; unoptimized version of string-contains that is included as commented out ; code in the reference implementation. This breaks things like ; (string-contains "xab" "ab") and (string-contains "ab" "ab"). ; This off-by-one bug has been fixed in the comments of the version ; of SRFI-13 shipped with Larceny. In a version of the code without ; the fix the following test will catch the bug: (test "string-contains" 0 (string-contains "ab" "ab")) ; From: dvanhorn@emba.uvm.edu ; Date: Wed, 26 Mar 2003 08:46:41 +0100 ; ; The SRFI document gives, ; ; string-filter s char/char-set/pred [start end] -> string ; string-delete s char/char-set/pred [start end] -> string ; ; Yet the reference implementation switches the order giving, ; ; ;;; string-delete char/char-set/pred string [start end] ; ;;; string-filter char/char-set/pred string [start end] ; ... ; (define (string-delete criterion s . maybe-start+end) ; ... ; (define (string-filter criterion s . maybe-start+end) ; ; I reviewed the SRFI-13 mailing list and c.l.scheme, but found no mention of ; this issue. Apologies if I've missed something. (test-assert "string=? + string-filter" (call-with-current-continuation (lambda (k) (handle-exceptions exn (k #f) (string=? "ADR" (string-filter char-set:upper-case "abrAcaDabRa")))))) (test-assert "string=? + string-delete" (call-with-current-continuation (lambda (k) (handle-exceptions exn (k #f) (string=? "abrcaaba" (string-delete char-set:upper-case "abrAcaDabRa")))))) ; http://srfi.schemers.org/srfi-13/post-mail-archive/msg00007.html ; From: David Van Horn <address@hidden> ; Date: Wed, 01 Nov 2006 07:53:34 +0100 ; ; Both string-index-right and string-skip-right will continue to search ; left past a given start index. ; ; (string-index-right "abbb" #\a 1) ;; => 0, but should be #f ; (string-skip-right "abbb" #\b 1) ;; => 0, but should be #f ; ; This also causes incorrect results for string-trim-right, ; string-trim-both and string-tokenize when given a non-zero start ; argument. (test "string-index-right" #f (string-index-right "abbb" #\a 1)) (test "string-skip-right" #f (string-skip-right "abbb" #\b 1)) ;; Tests to check the string-trim-right issue found by Seth Alves ;; http://lists.gnu.org/archive/html/chicken-hackers/2014-01/msg00016.html (test "string-trim-right" "" (string-trim-right "" char-whitespace? 0 0)) (test "string-trim-right" "" (string-trim-right "a" char-whitespace? 0 0)) (test "string-trim-right" "" (string-trim-right "a " char-whitespace? 0 0)) (test "string-trim-right" "bc" (string-trim-right "abc " char-whitespace? 1)) (test "string-trim-right" "" (string-trim-right "abc " char-whitespace? 4 4)) ����������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/reexport-tests.scm�������������������������������������������������������������0000644�0001750�0001750�00000002037�13052302315�017662� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; reexport-tests.scm (module my-r4rs () (import scheme chicken) (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 scheme) (reexport imp ...))))) (compound-module big-chicken chicken ports files extras data-structures) (require-library extras data-structures) (module m3 () (import scheme big-chicken) (pp (string-intersperse '("abc" "def" "ghi") "-"))) ;;; #901 - reexport with "*" export list (module m4 (foo-m4) (import chicken scheme) (define-syntax foo-m4 (ir-macro-transformer (lambda (e i c) ''1)))) (module m5 * ; () works here (import chicken scheme) (reexport m4)) (import m5) (print (foo-m4)) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/slatex.sty���������������������������������������������������������������������0000644�0001750�0001750�00000040115�13040667210�016213� 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-4.12.0/tests/null.scm�����������������������������������������������������������������������0000644�0001750�0001750�00000003042�13052302367�015630� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; null.scm - the empty program ; ; Copyright (c) 2010-2017, 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-4.12.0/tests/specialization-test-2.types����������������������������������������������������0000644�0001750�0001750�00000000144�13040667210�021370� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;; -*- Scheme -*- (specialize-me (procedure specialize-me (fixnum) fixnum) ((fixnum) #(1))) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/apply-test.scm�����������������������������������������������������������������0000644�0001750�0001750�00000001564�13052302367�016767� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(require-extension srfi-1) ;; Non-manyarg CHICKENs are no longer made (assert (feature? 'manyargs)) (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 (iota i 1))) (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-4.12.0/tests/srfi-14-tests.scm��������������������������������������������������������������0000644�0001750�0001750�00000015505�13052302315�017203� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; This is a regression testing suite for the SRFI-14 char-set library. ;;; Olin Shivers (use srfi-14) (let-syntax ((test (syntax-rules () ((test form ...) (cond ((not form) (error "Test failed" 'form)) ... (else 'OK)))))) (let ((vowel? (lambda (c) (member c '(#\a #\e #\i #\o #\u))))) (test (not (char-set? 5)) (char-set? (char-set #\a #\e #\i #\o #\u)) (char-set=) (char-set= (char-set)) (char-set= (char-set #\a #\e #\i #\o #\u) (string->char-set "ioeauaiii")) (not (char-set= (char-set #\e #\i #\o #\u) (string->char-set "ioeauaiii"))) (char-set<=) (char-set<= (char-set)) (char-set<= (char-set #\a #\e #\i #\o #\u) (string->char-set "ioeauaiii")) (char-set<= (char-set #\e #\i #\o #\u) (string->char-set "ioeauaiii")) (<= 0 (char-set-hash char-set:graphic 100) 99) (= 4 (char-set-fold (lambda (c i) (+ i 1)) 0 (char-set #\e #\i #\o #\u #\e #\e))) (char-set= (string->char-set "eiaou2468013579999") (char-set-unfold null? car cdr '(#\a #\e #\i #\o #\u #\u #\u) char-set:digit)) (char-set= (string->char-set "eiaou246801357999") (char-set-unfold! null? car cdr '(#\a #\e #\i #\o #\u) (string->char-set "0123456789"))) (not (char-set= (string->char-set "eiaou246801357") (char-set-unfold! null? car cdr '(#\a #\e #\i #\o #\u) (string->char-set "0123456789")))) (let ((cs (string->char-set "0123456789"))) (char-set-for-each (lambda (c) (set! cs (char-set-delete cs c))) (string->char-set "02468000")) (char-set= cs (string->char-set "97531"))) (not (let ((cs (string->char-set "0123456789"))) (char-set-for-each (lambda (c) (set! cs (char-set-delete cs c))) (string->char-set "02468")) (char-set= cs (string->char-set "7531")))) (char-set= (char-set-map char-upcase (string->char-set "aeiou")) (string->char-set "IOUAEEEE")) (not (char-set= (char-set-map char-upcase (string->char-set "aeiou")) (string->char-set "OUAEEEE"))) (char-set= (char-set-copy (string->char-set "aeiou")) (string->char-set "aeiou")) (char-set= (char-set #\x #\y) (string->char-set "xy")) (not (char-set= (char-set #\x #\y #\z) (string->char-set "xy"))) (char-set= (string->char-set "xy") (list->char-set '(#\x #\y))) (not (char-set= (string->char-set "axy") (list->char-set '(#\x #\y)))) (char-set= (string->char-set "xy12345") (list->char-set '(#\x #\y) (string->char-set "12345"))) (not (char-set= (string->char-set "y12345") (list->char-set '(#\x #\y) (string->char-set "12345")))) (char-set= (string->char-set "xy12345") (list->char-set! '(#\x #\y) (string->char-set "12345"))) (not (char-set= (string->char-set "y12345") (list->char-set! '(#\x #\y) (string->char-set "12345")))) (char-set= (string->char-set "aeiou12345") (char-set-filter vowel? char-set:ascii (string->char-set "12345"))) (not (char-set= (string->char-set "aeou12345") (char-set-filter vowel? char-set:ascii (string->char-set "12345")))) (char-set= (string->char-set "aeiou12345") (char-set-filter! vowel? char-set:ascii (string->char-set "12345"))) (not (char-set= (string->char-set "aeou12345") (char-set-filter! vowel? char-set:ascii (string->char-set "12345")))) (char-set= (string->char-set "abcdef12345") (ucs-range->char-set 97 103 #t (string->char-set "12345"))) (not (char-set= (string->char-set "abcef12345") (ucs-range->char-set 97 103 #t (string->char-set "12345")))) (char-set= (string->char-set "abcdef12345") (ucs-range->char-set! 97 103 #t (string->char-set "12345"))) (not (char-set= (string->char-set "abcef12345") (ucs-range->char-set! 97 103 #t (string->char-set "12345")))) (char-set= (->char-set #\x) (->char-set "x") (->char-set (char-set #\x))) (not (char-set= (->char-set #\x) (->char-set "y") (->char-set (char-set #\x)))) (= 10 (char-set-size (char-set-intersection char-set:ascii char-set:digit))) (= 5 (char-set-count vowel? char-set:ascii)) (equal? '(#\x) (char-set->list (char-set #\x))) (not (equal? '(#\X) (char-set->list (char-set #\x)))) (equal? "x" (char-set->string (char-set #\x))) (not (equal? "X" (char-set->string (char-set #\x)))) (char-set-contains? (->char-set "xyz") #\x) (not (char-set-contains? (->char-set "xyz") #\a)) (char-set-every char-lower-case? (->char-set "abcd")) (not (char-set-every char-lower-case? (->char-set "abcD"))) (char-set-any char-lower-case? (->char-set "abcd")) (not (char-set-any char-lower-case? (->char-set "ABCD"))) (char-set= (->char-set "ABCD") (let ((cs (->char-set "abcd"))) (let lp ((cur (char-set-cursor cs)) (ans '())) (if (end-of-char-set? cur) (list->char-set ans) (lp (char-set-cursor-next cs cur) (cons (char-upcase (char-set-ref cs cur)) ans)))))) (char-set= (char-set-adjoin (->char-set "123") #\x #\a) (->char-set "123xa")) (not (char-set= (char-set-adjoin (->char-set "123") #\x #\a) (->char-set "123x"))) (char-set= (char-set-adjoin! (->char-set "123") #\x #\a) (->char-set "123xa")) (not (char-set= (char-set-adjoin! (->char-set "123") #\x #\a) (->char-set "123x"))) (char-set= (char-set-delete (->char-set "123") #\2 #\a #\2) (->char-set "13")) (not (char-set= (char-set-delete (->char-set "123") #\2 #\a #\2) (->char-set "13a"))) (char-set= (char-set-delete! (->char-set "123") #\2 #\a #\2) (->char-set "13")) (not (char-set= (char-set-delete! (->char-set "123") #\2 #\a #\2) (->char-set "13a"))) (char-set= (char-set-intersection char-set:hex-digit (char-set-complement char-set:digit)) (->char-set "abcdefABCDEF")) (char-set= (char-set-intersection! (char-set-complement! (->char-set "0123456789")) char-set:hex-digit) (->char-set "abcdefABCDEF")) (char-set= (char-set-union char-set:hex-digit (->char-set "abcdefghijkl")) (->char-set "abcdefABCDEFghijkl0123456789")) (char-set= (char-set-union! (->char-set "abcdefghijkl") char-set:hex-digit) (->char-set "abcdefABCDEFghijkl0123456789")) (char-set= (char-set-difference (->char-set "abcdefghijklmn") char-set:hex-digit) (->char-set "ghijklmn")) (char-set= (char-set-difference! (->char-set "abcdefghijklmn") char-set:hex-digit) (->char-set "ghijklmn")) (char-set= (char-set-xor (->char-set "0123456789") char-set:hex-digit) (->char-set "abcdefABCDEF")) (char-set= (char-set-xor! (->char-set "0123456789") char-set:hex-digit) (->char-set "abcdefABCDEF")) (call-with-values (lambda () (char-set-diff+intersection char-set:hex-digit char-set:letter)) (lambda (d i) (and (char-set= d (->char-set "0123456789")) (char-set= i (->char-set "abcdefABCDEF"))))) (call-with-values (lambda () (char-set-diff+intersection! (char-set-copy char-set:hex-digit) (char-set-copy char-set:letter))) (lambda (d i) (and (char-set= d (->char-set "0123456789")) (char-set= i (->char-set "abcdefABCDEF")))))) )) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/version-tests.scm��������������������������������������������������������������0000644�0001750�0001750�00000002225�13052302315�017476� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(use irregex) (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... ") ;; Those fudges are mapped to C_MAJOR_VERSION and C_MINOR_VERSION (assert (= (##sys#fudge 41) major)) (assert (= (##sys#fudge 43) 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 (symbol->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))))))) (print "ok")) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/signal-tests.scm���������������������������������������������������������������0000644�0001750�0001750�00000005235�13052302315�017272� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; signal-tests.scm #+mingw32 (begin (print "this test can not be run on Windows/mingw") (exit)) (use posix srfi-18 extras) (define all-go? (make-parameter #f)) ;; This is set before starting the child to avoid the race condition ;; from #877. The child itself overwrites these signal handlers ;; before sending the "all go" signal (usr1) to the parent. (set-signal-handler! signal/usr1 (lambda (sig) (all-go? #t))) (define received1 0) (define received2 0) (define (tick c) (write-char c) (flush-output)) (define (handler sig) (select sig ((signal/usr1) (tick #\1) (set! received1 (add1 received1))) ((signal/usr2) (tick #\2) (set! received2 (add1 received2))))) (define (fini _) (printf "~%child terminating, received: ~a USR1, ~a USR2~%" received1 received2) (thread-sleep! 0.5) (process-signal (parent-process-id) signal/usr1) (exit)) (define (child) (print "child started") (thread-start! (lambda () (do () (#f) (thread-sleep! 0.5) (tick #\_)))) (set-signal-handler! signal/usr1 handler) (set-signal-handler! signal/usr2 handler) (set-signal-handler! signal/term fini) (process-signal (parent-process-id) signal/usr1) (do () (#f) (thread-sleep! 1) (tick #\.))) (let ((pid (process-fork child)) (sent1 0) (sent2 0)) (print "Sleeping until child wakes us up") ; signal *should* interrupt the sleep (print "would have slept for " (sleep 5) " more seconds") (cond ((all-go?) (print "sending signals to " pid) (do ((i 1000 (sub1 i))) ((zero? i)) (thread-sleep! (/ (random 10) 1000)) (do ((j (random 4) (sub1 j))) ((zero? j)) (case (random 2) ((0) (tick #\A) (set! sent1 (add1 sent1)) (process-signal pid signal/usr1)) ((1) (tick #\B) (set! sent2 (add1 sent2)) (process-signal pid signal/usr2))))) (printf "~%signals sent: ~a USR1, ~a USR2~%" sent1 sent2) (print "terminating child process ...") (all-go? #f) (print "Sending signal and waiting for acknowledgement from child") (process-signal pid signal/term) (unless (all-go?) ; There's a bit of a race condition here, but that's okay (print "Would've slept for " (sleep 5) " more seconds")) (cond ((all-go?) (print "Everything is ok!") (exit 0)) (else (print "ERROR! Did not receive acknowledgement of child shutdown within 5 seconds, or another process awoke us") (print "Attempting to kill child forcefully via SIGKILL") (process-signal pid signal/kill) (exit 1)))) (else (print "ERROR! Did not receive a signal from child within 10 seconds, or another process awoke us") (print "terminating child process ...") (exit 1)))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/test.scm�����������������������������������������������������������������������0000644�0001750�0001750�00000006026�13052302315�015633� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; test.scm - minimal testing framework ; ; by Alex Shinn, lifted from match-test by felix (define *pass* 0) (define *fail* 0) (define *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! *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*))) (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") (exit (if (zero? *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-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 equal?)) ((_ expr value) (run-equal (->string 'expr) (lambda () expr) value equal?)))) (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-4.12.0/tests/specialization-test-2.scm������������������������������������������������������0000644�0001750�0001750�00000001312�13052302315�020777� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; specialization-test-2.scm (module main () (import scheme chicken foreign 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-4.12.0/tests/embedded2.scm������������������������������������������������������������������0000644�0001750�0001750�00000000650�13052302315�016464� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(use extras) #> #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; } <# (##sys#fudge 36) (gc) (print "starting...") (define (oink x) (pp x) (vector-length x)) (return-to-host) ����������������������������������������������������������������������������������������chicken-4.12.0/tests/scrutiny-tests-3.scm�����������������������������������������������������������0000644�0001750�0001750�00000001634�13040667210�020041� 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)))) ����������������������������������������������������������������������������������������������������chicken-4.12.0/tests/reexport-m5.scm����������������������������������������������������������������0000644�0001750�0001750�00000000411�13040667210�017040� 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-4.12.0/tests/arithmetic-test.64.expected����������������������������������������������������0000644�0001750�0001750�00005156730�13052302315�021246� 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 4.61168601842739e+18) -> 4.61168601842739e+18) ((130 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((131 . 5625) (+ -1 4611686018427387901) -> 4611686018427387900) ((132 . 5625) (+ -1 4611686018427387902) -> 4611686018427387901) ((133 . 5625) (+ -1 4611686018427387903) -> 4611686018427387902) ((134 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((135 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((136 . 5625) (+ 0 4611686018427387901) -> 4611686018427387901) ((137 . 5625) (+ 0 4611686018427387902) -> 4611686018427387902) ((138 . 5625) (+ 0 4611686018427387903) -> 4611686018427387903) ((139 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((140 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((141 . 5625) (+ 1 4611686018427387901) -> 4611686018427387902) ((142 . 5625) (+ 1 4611686018427387902) -> 4611686018427387903) ((143 . 5625) (+ 1 4611686018427387903) -> 4.61168601842739e+18) ((144 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((145 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((146 . 5625) (+ 2 4611686018427387901) -> 4611686018427387903) ((147 . 5625) (+ 2 4611686018427387902) -> 4.61168601842739e+18) ((148 . 5625) (+ 2 4611686018427387903) -> 4.61168601842739e+18) ((149 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((150 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((151 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((152 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((153 . 5625) (+ -2 -4611686018427387904) -> -4.61168601842739e+18) ((154 . 5625) (+ -2 -4611686018427387903) -> -4.61168601842739e+18) ((155 . 5625) (+ -2 -4611686018427387902) -> -4611686018427387904) ((156 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((157 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((158 . 5625) (+ -1 -4611686018427387904) -> -4.61168601842739e+18) ((159 . 5625) (+ -1 -4611686018427387903) -> -4611686018427387904) ((160 . 5625) (+ -1 -4611686018427387902) -> -4611686018427387903) ((161 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((162 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((163 . 5625) (+ 0 -4611686018427387904) -> -4611686018427387904) ((164 . 5625) (+ 0 -4611686018427387903) -> -4611686018427387903) ((165 . 5625) (+ 0 -4611686018427387902) -> -4611686018427387902) ((166 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((167 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((168 . 5625) (+ 1 -4611686018427387904) -> -4611686018427387903) ((169 . 5625) (+ 1 -4611686018427387903) -> -4611686018427387902) ((170 . 5625) (+ 1 -4611686018427387902) -> -4611686018427387901) ((171 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((172 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((173 . 5625) (+ 2 -4611686018427387904) -> -4611686018427387902) ((174 . 5625) (+ 2 -4611686018427387903) -> -4611686018427387901) ((175 . 5625) (+ 2 -4611686018427387902) -> -4611686018427387900) ((176 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((177 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((178 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((179 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((180 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((181 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((182 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((183 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((184 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((185 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((186 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((187 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((188 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((189 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((190 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((191 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((192 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((193 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((194 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((195 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((196 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((197 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((198 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((199 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((200 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((201 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((202 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((203 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((204 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((205 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((206 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((207 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((208 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((209 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((210 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((211 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((212 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((213 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((214 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((215 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((216 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((217 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((218 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((219 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((220 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((221 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((222 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((223 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((224 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((225 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((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 4.61168601842739e+18) -> 4.61168601842739e+18) ((505 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((506 . 5625) (+ 0 4611686018427387901) -> 4611686018427387901) ((507 . 5625) (+ 0 4611686018427387902) -> 4611686018427387902) ((508 . 5625) (+ 0 4611686018427387903) -> 4611686018427387903) ((509 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((510 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((511 . 5625) (+ 1 4611686018427387901) -> 4611686018427387902) ((512 . 5625) (+ 1 4611686018427387902) -> 4611686018427387903) ((513 . 5625) (+ 1 4611686018427387903) -> 4.61168601842739e+18) ((514 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((515 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((516 . 5625) (+ 2 4611686018427387901) -> 4611686018427387903) ((517 . 5625) (+ 2 4611686018427387902) -> 4.61168601842739e+18) ((518 . 5625) (+ 2 4611686018427387903) -> 4.61168601842739e+18) ((519 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((520 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((521 . 5625) (+ 3 4611686018427387901) -> 4.61168601842739e+18) ((522 . 5625) (+ 3 4611686018427387902) -> 4.61168601842739e+18) ((523 . 5625) (+ 3 4611686018427387903) -> 4.61168601842739e+18) ((524 . 5625) (+ 3 4.61168601842739e+18) -> 4.61168601842739e+18) ((525 . 5625) (+ 3 4.61168601842739e+18) -> 4.61168601842739e+18) ((526 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((527 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((528 . 5625) (+ -1 -4611686018427387904) -> -4.61168601842739e+18) ((529 . 5625) (+ -1 -4611686018427387903) -> -4611686018427387904) ((530 . 5625) (+ -1 -4611686018427387902) -> -4611686018427387903) ((531 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((532 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((533 . 5625) (+ 0 -4611686018427387904) -> -4611686018427387904) ((534 . 5625) (+ 0 -4611686018427387903) -> -4611686018427387903) ((535 . 5625) (+ 0 -4611686018427387902) -> -4611686018427387902) ((536 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((537 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((538 . 5625) (+ 1 -4611686018427387904) -> -4611686018427387903) ((539 . 5625) (+ 1 -4611686018427387903) -> -4611686018427387902) ((540 . 5625) (+ 1 -4611686018427387902) -> -4611686018427387901) ((541 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((542 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((543 . 5625) (+ 2 -4611686018427387904) -> -4611686018427387902) ((544 . 5625) (+ 2 -4611686018427387903) -> -4611686018427387901) ((545 . 5625) (+ 2 -4611686018427387902) -> -4611686018427387900) ((546 . 5625) (+ 3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((547 . 5625) (+ 3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((548 . 5625) (+ 3 -4611686018427387904) -> -4611686018427387901) ((549 . 5625) (+ 3 -4611686018427387903) -> -4611686018427387900) ((550 . 5625) (+ 3 -4611686018427387902) -> -4611686018427387899) ((551 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((552 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((553 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((554 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((555 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((556 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((557 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((558 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((559 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((560 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((561 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((562 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((563 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((564 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((565 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((566 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((567 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((568 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((569 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((570 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((571 . 5625) (+ 3 4.61168601842739e+18) -> 4.61168601842739e+18) ((572 . 5625) (+ 3 4.61168601842739e+18) -> 4.61168601842739e+18) ((573 . 5625) (+ 3 4.61168601842739e+18) -> 4.61168601842739e+18) ((574 . 5625) (+ 3 4.61168601842739e+18) -> 4.61168601842739e+18) ((575 . 5625) (+ 3 4.61168601842739e+18) -> 4.61168601842739e+18) ((576 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((577 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((578 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((579 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((580 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((581 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((582 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((583 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((584 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((585 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((586 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((587 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((588 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((589 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((590 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((591 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((592 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((593 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((594 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((595 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((596 . 5625) (+ 3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((597 . 5625) (+ 3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((598 . 5625) (+ 3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((599 . 5625) (+ 3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((600 . 5625) (+ 3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((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 4.61168601842739e+18) -> 4.61168601842739e+18) ((880 . 5625) (+ -3 4.61168601842739e+18) -> 4.61168601842739e+18) ((881 . 5625) (+ -2 4611686018427387901) -> 4611686018427387899) ((882 . 5625) (+ -2 4611686018427387902) -> 4611686018427387900) ((883 . 5625) (+ -2 4611686018427387903) -> 4611686018427387901) ((884 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((885 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((886 . 5625) (+ -1 4611686018427387901) -> 4611686018427387900) ((887 . 5625) (+ -1 4611686018427387902) -> 4611686018427387901) ((888 . 5625) (+ -1 4611686018427387903) -> 4611686018427387902) ((889 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((890 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((891 . 5625) (+ 0 4611686018427387901) -> 4611686018427387901) ((892 . 5625) (+ 0 4611686018427387902) -> 4611686018427387902) ((893 . 5625) (+ 0 4611686018427387903) -> 4611686018427387903) ((894 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((895 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((896 . 5625) (+ 1 4611686018427387901) -> 4611686018427387902) ((897 . 5625) (+ 1 4611686018427387902) -> 4611686018427387903) ((898 . 5625) (+ 1 4611686018427387903) -> 4.61168601842739e+18) ((899 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((900 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((901 . 5625) (+ -3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((902 . 5625) (+ -3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((903 . 5625) (+ -3 -4611686018427387904) -> -4.61168601842739e+18) ((904 . 5625) (+ -3 -4611686018427387903) -> -4.61168601842739e+18) ((905 . 5625) (+ -3 -4611686018427387902) -> -4.61168601842739e+18) ((906 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((907 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((908 . 5625) (+ -2 -4611686018427387904) -> -4.61168601842739e+18) ((909 . 5625) (+ -2 -4611686018427387903) -> -4.61168601842739e+18) ((910 . 5625) (+ -2 -4611686018427387902) -> -4611686018427387904) ((911 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((912 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((913 . 5625) (+ -1 -4611686018427387904) -> -4.61168601842739e+18) ((914 . 5625) (+ -1 -4611686018427387903) -> -4611686018427387904) ((915 . 5625) (+ -1 -4611686018427387902) -> -4611686018427387903) ((916 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((917 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((918 . 5625) (+ 0 -4611686018427387904) -> -4611686018427387904) ((919 . 5625) (+ 0 -4611686018427387903) -> -4611686018427387903) ((920 . 5625) (+ 0 -4611686018427387902) -> -4611686018427387902) ((921 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((922 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((923 . 5625) (+ 1 -4611686018427387904) -> -4611686018427387903) ((924 . 5625) (+ 1 -4611686018427387903) -> -4611686018427387902) ((925 . 5625) (+ 1 -4611686018427387902) -> -4611686018427387901) ((926 . 5625) (+ -3 4.61168601842739e+18) -> 4.61168601842739e+18) ((927 . 5625) (+ -3 4.61168601842739e+18) -> 4.61168601842739e+18) ((928 . 5625) (+ -3 4.61168601842739e+18) -> 4.61168601842739e+18) ((929 . 5625) (+ -3 4.61168601842739e+18) -> 4.61168601842739e+18) ((930 . 5625) (+ -3 4.61168601842739e+18) -> 4.61168601842739e+18) ((931 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((932 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((933 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((934 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((935 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((936 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((937 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((938 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((939 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((940 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((941 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((942 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((943 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((944 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((945 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((946 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((947 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((948 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((949 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((950 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((951 . 5625) (+ -3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((952 . 5625) (+ -3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((953 . 5625) (+ -3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((954 . 5625) (+ -3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((955 . 5625) (+ -3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((956 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((957 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((958 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((959 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((960 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((961 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((962 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((963 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((964 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((965 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((966 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((967 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((968 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((969 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((970 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((971 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((972 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((973 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((974 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((975 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((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 4.61168601842739e+18) -> 4.61168601842739e+18) ((1255 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((1256 . 5625) (+ 1 4611686018427387901) -> 4611686018427387902) ((1257 . 5625) (+ 1 4611686018427387902) -> 4611686018427387903) ((1258 . 5625) (+ 1 4611686018427387903) -> 4.61168601842739e+18) ((1259 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1260 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1261 . 5625) (+ 2 4611686018427387901) -> 4611686018427387903) ((1262 . 5625) (+ 2 4611686018427387902) -> 4.61168601842739e+18) ((1263 . 5625) (+ 2 4611686018427387903) -> 4.61168601842739e+18) ((1264 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((1265 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((1266 . 5625) (+ 3 4611686018427387901) -> 4.61168601842739e+18) ((1267 . 5625) (+ 3 4611686018427387902) -> 4.61168601842739e+18) ((1268 . 5625) (+ 3 4611686018427387903) -> 4.61168601842739e+18) ((1269 . 5625) (+ 3 4.61168601842739e+18) -> 4.61168601842739e+18) ((1270 . 5625) (+ 3 4.61168601842739e+18) -> 4.61168601842739e+18) ((1271 . 5625) (+ 4 4611686018427387901) -> 4.61168601842739e+18) ((1272 . 5625) (+ 4 4611686018427387902) -> 4.61168601842739e+18) ((1273 . 5625) (+ 4 4611686018427387903) -> 4.61168601842739e+18) ((1274 . 5625) (+ 4 4.61168601842739e+18) -> 4.61168601842739e+18) ((1275 . 5625) (+ 4 4.61168601842739e+18) -> 4.61168601842739e+18) ((1276 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1277 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1278 . 5625) (+ 0 -4611686018427387904) -> -4611686018427387904) ((1279 . 5625) (+ 0 -4611686018427387903) -> -4611686018427387903) ((1280 . 5625) (+ 0 -4611686018427387902) -> -4611686018427387902) ((1281 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1282 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1283 . 5625) (+ 1 -4611686018427387904) -> -4611686018427387903) ((1284 . 5625) (+ 1 -4611686018427387903) -> -4611686018427387902) ((1285 . 5625) (+ 1 -4611686018427387902) -> -4611686018427387901) ((1286 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1287 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1288 . 5625) (+ 2 -4611686018427387904) -> -4611686018427387902) ((1289 . 5625) (+ 2 -4611686018427387903) -> -4611686018427387901) ((1290 . 5625) (+ 2 -4611686018427387902) -> -4611686018427387900) ((1291 . 5625) (+ 3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1292 . 5625) (+ 3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1293 . 5625) (+ 3 -4611686018427387904) -> -4611686018427387901) ((1294 . 5625) (+ 3 -4611686018427387903) -> -4611686018427387900) ((1295 . 5625) (+ 3 -4611686018427387902) -> -4611686018427387899) ((1296 . 5625) (+ 4 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1297 . 5625) (+ 4 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1298 . 5625) (+ 4 -4611686018427387904) -> -4611686018427387900) ((1299 . 5625) (+ 4 -4611686018427387903) -> -4611686018427387899) ((1300 . 5625) (+ 4 -4611686018427387902) -> -4611686018427387898) ((1301 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((1302 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((1303 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((1304 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((1305 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((1306 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1307 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1308 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1309 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1310 . 5625) (+ 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1311 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((1312 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((1313 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((1314 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((1315 . 5625) (+ 2 4.61168601842739e+18) -> 4.61168601842739e+18) ((1316 . 5625) (+ 3 4.61168601842739e+18) -> 4.61168601842739e+18) ((1317 . 5625) (+ 3 4.61168601842739e+18) -> 4.61168601842739e+18) ((1318 . 5625) (+ 3 4.61168601842739e+18) -> 4.61168601842739e+18) ((1319 . 5625) (+ 3 4.61168601842739e+18) -> 4.61168601842739e+18) ((1320 . 5625) (+ 3 4.61168601842739e+18) -> 4.61168601842739e+18) ((1321 . 5625) (+ 4 4.61168601842739e+18) -> 4.61168601842739e+18) ((1322 . 5625) (+ 4 4.61168601842739e+18) -> 4.61168601842739e+18) ((1323 . 5625) (+ 4 4.61168601842739e+18) -> 4.61168601842739e+18) ((1324 . 5625) (+ 4 4.61168601842739e+18) -> 4.61168601842739e+18) ((1325 . 5625) (+ 4 4.61168601842739e+18) -> 4.61168601842739e+18) ((1326 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1327 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1328 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1329 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1330 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1331 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1332 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1333 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1334 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1335 . 5625) (+ 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1336 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1337 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1338 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1339 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1340 . 5625) (+ 2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1341 . 5625) (+ 3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1342 . 5625) (+ 3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1343 . 5625) (+ 3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1344 . 5625) (+ 3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1345 . 5625) (+ 3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1346 . 5625) (+ 4 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1347 . 5625) (+ 4 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1348 . 5625) (+ 4 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1349 . 5625) (+ 4 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1350 . 5625) (+ 4 -4.61168601842739e+18) -> -4.61168601842739e+18) ((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 4.61168601842739e+18) -> 4.61168601842739e+18) ((1630 . 5625) (+ -4 4.61168601842739e+18) -> 4.61168601842739e+18) ((1631 . 5625) (+ -3 4611686018427387901) -> 4611686018427387898) ((1632 . 5625) (+ -3 4611686018427387902) -> 4611686018427387899) ((1633 . 5625) (+ -3 4611686018427387903) -> 4611686018427387900) ((1634 . 5625) (+ -3 4.61168601842739e+18) -> 4.61168601842739e+18) ((1635 . 5625) (+ -3 4.61168601842739e+18) -> 4.61168601842739e+18) ((1636 . 5625) (+ -2 4611686018427387901) -> 4611686018427387899) ((1637 . 5625) (+ -2 4611686018427387902) -> 4611686018427387900) ((1638 . 5625) (+ -2 4611686018427387903) -> 4611686018427387901) ((1639 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((1640 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((1641 . 5625) (+ -1 4611686018427387901) -> 4611686018427387900) ((1642 . 5625) (+ -1 4611686018427387902) -> 4611686018427387901) ((1643 . 5625) (+ -1 4611686018427387903) -> 4611686018427387902) ((1644 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1645 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1646 . 5625) (+ 0 4611686018427387901) -> 4611686018427387901) ((1647 . 5625) (+ 0 4611686018427387902) -> 4611686018427387902) ((1648 . 5625) (+ 0 4611686018427387903) -> 4611686018427387903) ((1649 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((1650 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((1651 . 5625) (+ -4 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1652 . 5625) (+ -4 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1653 . 5625) (+ -4 -4611686018427387904) -> -4.61168601842739e+18) ((1654 . 5625) (+ -4 -4611686018427387903) -> -4.61168601842739e+18) ((1655 . 5625) (+ -4 -4611686018427387902) -> -4.61168601842739e+18) ((1656 . 5625) (+ -3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1657 . 5625) (+ -3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1658 . 5625) (+ -3 -4611686018427387904) -> -4.61168601842739e+18) ((1659 . 5625) (+ -3 -4611686018427387903) -> -4.61168601842739e+18) ((1660 . 5625) (+ -3 -4611686018427387902) -> -4.61168601842739e+18) ((1661 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1662 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1663 . 5625) (+ -2 -4611686018427387904) -> -4.61168601842739e+18) ((1664 . 5625) (+ -2 -4611686018427387903) -> -4.61168601842739e+18) ((1665 . 5625) (+ -2 -4611686018427387902) -> -4611686018427387904) ((1666 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1667 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1668 . 5625) (+ -1 -4611686018427387904) -> -4.61168601842739e+18) ((1669 . 5625) (+ -1 -4611686018427387903) -> -4611686018427387904) ((1670 . 5625) (+ -1 -4611686018427387902) -> -4611686018427387903) ((1671 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1672 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1673 . 5625) (+ 0 -4611686018427387904) -> -4611686018427387904) ((1674 . 5625) (+ 0 -4611686018427387903) -> -4611686018427387903) ((1675 . 5625) (+ 0 -4611686018427387902) -> -4611686018427387902) ((1676 . 5625) (+ -4 4.61168601842739e+18) -> 4.61168601842739e+18) ((1677 . 5625) (+ -4 4.61168601842739e+18) -> 4.61168601842739e+18) ((1678 . 5625) (+ -4 4.61168601842739e+18) -> 4.61168601842739e+18) ((1679 . 5625) (+ -4 4.61168601842739e+18) -> 4.61168601842739e+18) ((1680 . 5625) (+ -4 4.61168601842739e+18) -> 4.61168601842739e+18) ((1681 . 5625) (+ -3 4.61168601842739e+18) -> 4.61168601842739e+18) ((1682 . 5625) (+ -3 4.61168601842739e+18) -> 4.61168601842739e+18) ((1683 . 5625) (+ -3 4.61168601842739e+18) -> 4.61168601842739e+18) ((1684 . 5625) (+ -3 4.61168601842739e+18) -> 4.61168601842739e+18) ((1685 . 5625) (+ -3 4.61168601842739e+18) -> 4.61168601842739e+18) ((1686 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((1687 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((1688 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((1689 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((1690 . 5625) (+ -2 4.61168601842739e+18) -> 4.61168601842739e+18) ((1691 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1692 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1693 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1694 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1695 . 5625) (+ -1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1696 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((1697 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((1698 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((1699 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((1700 . 5625) (+ 0 4.61168601842739e+18) -> 4.61168601842739e+18) ((1701 . 5625) (+ -4 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1702 . 5625) (+ -4 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1703 . 5625) (+ -4 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1704 . 5625) (+ -4 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1705 . 5625) (+ -4 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1706 . 5625) (+ -3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1707 . 5625) (+ -3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1708 . 5625) (+ -3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1709 . 5625) (+ -3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1710 . 5625) (+ -3 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1711 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1712 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1713 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1714 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1715 . 5625) (+ -2 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1716 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1717 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1718 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1719 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1720 . 5625) (+ -1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1721 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1722 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1723 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1724 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1725 . 5625) (+ 0 -4.61168601842739e+18) -> -4.61168601842739e+18) ((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) -> 4.61168601842739e+18) ((1886 . 5625) (+ 4611686018427387903 -2) -> 4611686018427387901) ((1887 . 5625) (+ 4611686018427387903 -1) -> 4611686018427387902) ((1888 . 5625) (+ 4611686018427387903 0) -> 4611686018427387903) ((1889 . 5625) (+ 4611686018427387903 1) -> 4.61168601842739e+18) ((1890 . 5625) (+ 4611686018427387903 2) -> 4.61168601842739e+18) ((1891 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((1892 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((1893 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((1894 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1895 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((1896 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((1897 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((1898 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((1899 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1900 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((1901 . 5625) (+ 4611686018427387901 -1) -> 4611686018427387900) ((1902 . 5625) (+ 4611686018427387901 0) -> 4611686018427387901) ((1903 . 5625) (+ 4611686018427387901 1) -> 4611686018427387902) ((1904 . 5625) (+ 4611686018427387901 2) -> 4611686018427387903) ((1905 . 5625) (+ 4611686018427387901 3) -> 4.61168601842739e+18) ((1906 . 5625) (+ 4611686018427387902 -1) -> 4611686018427387901) ((1907 . 5625) (+ 4611686018427387902 0) -> 4611686018427387902) ((1908 . 5625) (+ 4611686018427387902 1) -> 4611686018427387903) ((1909 . 5625) (+ 4611686018427387902 2) -> 4.61168601842739e+18) ((1910 . 5625) (+ 4611686018427387902 3) -> 4.61168601842739e+18) ((1911 . 5625) (+ 4611686018427387903 -1) -> 4611686018427387902) ((1912 . 5625) (+ 4611686018427387903 0) -> 4611686018427387903) ((1913 . 5625) (+ 4611686018427387903 1) -> 4.61168601842739e+18) ((1914 . 5625) (+ 4611686018427387903 2) -> 4.61168601842739e+18) ((1915 . 5625) (+ 4611686018427387903 3) -> 4.61168601842739e+18) ((1916 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((1917 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((1918 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1919 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((1920 . 5625) (+ 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((1921 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((1922 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((1923 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1924 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((1925 . 5625) (+ 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((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) -> 4.61168601842739e+18) ((1941 . 5625) (+ 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((1942 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((1943 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((1944 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((1945 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1946 . 5625) (+ 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((1947 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((1948 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((1949 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((1950 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1951 . 5625) (+ 4611686018427387901 0) -> 4611686018427387901) ((1952 . 5625) (+ 4611686018427387901 1) -> 4611686018427387902) ((1953 . 5625) (+ 4611686018427387901 2) -> 4611686018427387903) ((1954 . 5625) (+ 4611686018427387901 3) -> 4.61168601842739e+18) ((1955 . 5625) (+ 4611686018427387901 4) -> 4.61168601842739e+18) ((1956 . 5625) (+ 4611686018427387902 0) -> 4611686018427387902) ((1957 . 5625) (+ 4611686018427387902 1) -> 4611686018427387903) ((1958 . 5625) (+ 4611686018427387902 2) -> 4.61168601842739e+18) ((1959 . 5625) (+ 4611686018427387902 3) -> 4.61168601842739e+18) ((1960 . 5625) (+ 4611686018427387902 4) -> 4.61168601842739e+18) ((1961 . 5625) (+ 4611686018427387903 0) -> 4611686018427387903) ((1962 . 5625) (+ 4611686018427387903 1) -> 4.61168601842739e+18) ((1963 . 5625) (+ 4611686018427387903 2) -> 4.61168601842739e+18) ((1964 . 5625) (+ 4611686018427387903 3) -> 4.61168601842739e+18) ((1965 . 5625) (+ 4611686018427387903 4) -> 4.61168601842739e+18) ((1966 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((1967 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1968 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((1969 . 5625) (+ 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((1970 . 5625) (+ 4.61168601842739e+18 4) -> 4.61168601842739e+18) ((1971 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((1972 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1973 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((1974 . 5625) (+ 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((1975 . 5625) (+ 4.61168601842739e+18 4) -> 4.61168601842739e+18) ((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) (+ 4.61168601842739e+18 -4) -> 4.61168601842739e+18) ((1992 . 5625) (+ 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((1993 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((1994 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((1995 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((1996 . 5625) (+ 4.61168601842739e+18 -4) -> 4.61168601842739e+18) ((1997 . 5625) (+ 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((1998 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((1999 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2000 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2001 . 5625) (+ 4611686018427387901 4611686018427387901) -> 9.22337203685478e+18) ((2002 . 5625) (+ 4611686018427387901 4611686018427387902) -> 9.22337203685478e+18) ((2003 . 5625) (+ 4611686018427387901 4611686018427387903) -> 9.22337203685478e+18) ((2004 . 5625) (+ 4611686018427387901 4.61168601842739e+18) -> 9.22337203685478e+18) ((2005 . 5625) (+ 4611686018427387901 4.61168601842739e+18) -> 9.22337203685478e+18) ((2006 . 5625) (+ 4611686018427387902 4611686018427387901) -> 9.22337203685478e+18) ((2007 . 5625) (+ 4611686018427387902 4611686018427387902) -> 9.22337203685478e+18) ((2008 . 5625) (+ 4611686018427387902 4611686018427387903) -> 9.22337203685478e+18) ((2009 . 5625) (+ 4611686018427387902 4.61168601842739e+18) -> 9.22337203685478e+18) ((2010 . 5625) (+ 4611686018427387902 4.61168601842739e+18) -> 9.22337203685478e+18) ((2011 . 5625) (+ 4611686018427387903 4611686018427387901) -> 9.22337203685478e+18) ((2012 . 5625) (+ 4611686018427387903 4611686018427387902) -> 9.22337203685478e+18) ((2013 . 5625) (+ 4611686018427387903 4611686018427387903) -> 9.22337203685478e+18) ((2014 . 5625) (+ 4611686018427387903 4.61168601842739e+18) -> 9.22337203685478e+18) ((2015 . 5625) (+ 4611686018427387903 4.61168601842739e+18) -> 9.22337203685478e+18) ((2016 . 5625) (+ 4.61168601842739e+18 4611686018427387901) -> 9.22337203685478e+18) ((2017 . 5625) (+ 4.61168601842739e+18 4611686018427387902) -> 9.22337203685478e+18) ((2018 . 5625) (+ 4.61168601842739e+18 4611686018427387903) -> 9.22337203685478e+18) ((2019 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2020 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2021 . 5625) (+ 4.61168601842739e+18 4611686018427387901) -> 9.22337203685478e+18) ((2022 . 5625) (+ 4.61168601842739e+18 4611686018427387902) -> 9.22337203685478e+18) ((2023 . 5625) (+ 4.61168601842739e+18 4611686018427387903) -> 9.22337203685478e+18) ((2024 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2025 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2026 . 5625) (+ 4611686018427387901 -4.61168601842739e+18) -> 0.0) ((2027 . 5625) (+ 4611686018427387901 -4.61168601842739e+18) -> 0.0) ((2028 . 5625) (+ 4611686018427387901 -4611686018427387904) -> -3) ((2029 . 5625) (+ 4611686018427387901 -4611686018427387903) -> -2) ((2030 . 5625) (+ 4611686018427387901 -4611686018427387902) -> -1) ((2031 . 5625) (+ 4611686018427387902 -4.61168601842739e+18) -> 0.0) ((2032 . 5625) (+ 4611686018427387902 -4.61168601842739e+18) -> 0.0) ((2033 . 5625) (+ 4611686018427387902 -4611686018427387904) -> -2) ((2034 . 5625) (+ 4611686018427387902 -4611686018427387903) -> -1) ((2035 . 5625) (+ 4611686018427387902 -4611686018427387902) -> 0) ((2036 . 5625) (+ 4611686018427387903 -4.61168601842739e+18) -> 0.0) ((2037 . 5625) (+ 4611686018427387903 -4.61168601842739e+18) -> 0.0) ((2038 . 5625) (+ 4611686018427387903 -4611686018427387904) -> -1) ((2039 . 5625) (+ 4611686018427387903 -4611686018427387903) -> 0) ((2040 . 5625) (+ 4611686018427387903 -4611686018427387902) -> 1) ((2041 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2042 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2043 . 5625) (+ 4.61168601842739e+18 -4611686018427387904) -> 0.0) ((2044 . 5625) (+ 4.61168601842739e+18 -4611686018427387903) -> 0.0) ((2045 . 5625) (+ 4.61168601842739e+18 -4611686018427387902) -> 0.0) ((2046 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2047 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2048 . 5625) (+ 4.61168601842739e+18 -4611686018427387904) -> 0.0) ((2049 . 5625) (+ 4.61168601842739e+18 -4611686018427387903) -> 0.0) ((2050 . 5625) (+ 4.61168601842739e+18 -4611686018427387902) -> 0.0) ((2051 . 5625) (+ 4611686018427387901 4.61168601842739e+18) -> 9.22337203685478e+18) ((2052 . 5625) (+ 4611686018427387901 4.61168601842739e+18) -> 9.22337203685478e+18) ((2053 . 5625) (+ 4611686018427387901 4.61168601842739e+18) -> 9.22337203685478e+18) ((2054 . 5625) (+ 4611686018427387901 4.61168601842739e+18) -> 9.22337203685478e+18) ((2055 . 5625) (+ 4611686018427387901 4.61168601842739e+18) -> 9.22337203685478e+18) ((2056 . 5625) (+ 4611686018427387902 4.61168601842739e+18) -> 9.22337203685478e+18) ((2057 . 5625) (+ 4611686018427387902 4.61168601842739e+18) -> 9.22337203685478e+18) ((2058 . 5625) (+ 4611686018427387902 4.61168601842739e+18) -> 9.22337203685478e+18) ((2059 . 5625) (+ 4611686018427387902 4.61168601842739e+18) -> 9.22337203685478e+18) ((2060 . 5625) (+ 4611686018427387902 4.61168601842739e+18) -> 9.22337203685478e+18) ((2061 . 5625) (+ 4611686018427387903 4.61168601842739e+18) -> 9.22337203685478e+18) ((2062 . 5625) (+ 4611686018427387903 4.61168601842739e+18) -> 9.22337203685478e+18) ((2063 . 5625) (+ 4611686018427387903 4.61168601842739e+18) -> 9.22337203685478e+18) ((2064 . 5625) (+ 4611686018427387903 4.61168601842739e+18) -> 9.22337203685478e+18) ((2065 . 5625) (+ 4611686018427387903 4.61168601842739e+18) -> 9.22337203685478e+18) ((2066 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2067 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2068 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2069 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2070 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2071 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2072 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2073 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2074 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2075 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2076 . 5625) (+ 4611686018427387901 -4.61168601842739e+18) -> 0.0) ((2077 . 5625) (+ 4611686018427387901 -4.61168601842739e+18) -> 0.0) ((2078 . 5625) (+ 4611686018427387901 -4.61168601842739e+18) -> 0.0) ((2079 . 5625) (+ 4611686018427387901 -4.61168601842739e+18) -> 0.0) ((2080 . 5625) (+ 4611686018427387901 -4.61168601842739e+18) -> 0.0) ((2081 . 5625) (+ 4611686018427387902 -4.61168601842739e+18) -> 0.0) ((2082 . 5625) (+ 4611686018427387902 -4.61168601842739e+18) -> 0.0) ((2083 . 5625) (+ 4611686018427387902 -4.61168601842739e+18) -> 0.0) ((2084 . 5625) (+ 4611686018427387902 -4.61168601842739e+18) -> 0.0) ((2085 . 5625) (+ 4611686018427387902 -4.61168601842739e+18) -> 0.0) ((2086 . 5625) (+ 4611686018427387903 -4.61168601842739e+18) -> 0.0) ((2087 . 5625) (+ 4611686018427387903 -4.61168601842739e+18) -> 0.0) ((2088 . 5625) (+ 4611686018427387903 -4.61168601842739e+18) -> 0.0) ((2089 . 5625) (+ 4611686018427387903 -4.61168601842739e+18) -> 0.0) ((2090 . 5625) (+ 4611686018427387903 -4.61168601842739e+18) -> 0.0) ((2091 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2092 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2093 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2094 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2095 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2096 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2097 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2098 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2099 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2100 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2101 . 5625) (+ 4611686018427387901 1103515243) -> 4.6116860195309e+18) ((2102 . 5625) (+ 4611686018427387901 1103515244) -> 4.6116860195309e+18) ((2103 . 5625) (+ 4611686018427387901 1103515245) -> 4.6116860195309e+18) ((2104 . 5625) (+ 4611686018427387901 1103515246) -> 4.6116860195309e+18) ((2105 . 5625) (+ 4611686018427387901 1103515247) -> 4.6116860195309e+18) ((2106 . 5625) (+ 4611686018427387902 1103515243) -> 4.6116860195309e+18) ((2107 . 5625) (+ 4611686018427387902 1103515244) -> 4.6116860195309e+18) ((2108 . 5625) (+ 4611686018427387902 1103515245) -> 4.6116860195309e+18) ((2109 . 5625) (+ 4611686018427387902 1103515246) -> 4.6116860195309e+18) ((2110 . 5625) (+ 4611686018427387902 1103515247) -> 4.6116860195309e+18) ((2111 . 5625) (+ 4611686018427387903 1103515243) -> 4.6116860195309e+18) ((2112 . 5625) (+ 4611686018427387903 1103515244) -> 4.6116860195309e+18) ((2113 . 5625) (+ 4611686018427387903 1103515245) -> 4.6116860195309e+18) ((2114 . 5625) (+ 4611686018427387903 1103515246) -> 4.6116860195309e+18) ((2115 . 5625) (+ 4611686018427387903 1103515247) -> 4.6116860195309e+18) ((2116 . 5625) (+ 4.61168601842739e+18 1103515243) -> 4.6116860195309e+18) ((2117 . 5625) (+ 4.61168601842739e+18 1103515244) -> 4.6116860195309e+18) ((2118 . 5625) (+ 4.61168601842739e+18 1103515245) -> 4.6116860195309e+18) ((2119 . 5625) (+ 4.61168601842739e+18 1103515246) -> 4.6116860195309e+18) ((2120 . 5625) (+ 4.61168601842739e+18 1103515247) -> 4.6116860195309e+18) ((2121 . 5625) (+ 4.61168601842739e+18 1103515243) -> 4.6116860195309e+18) ((2122 . 5625) (+ 4.61168601842739e+18 1103515244) -> 4.6116860195309e+18) ((2123 . 5625) (+ 4.61168601842739e+18 1103515245) -> 4.6116860195309e+18) ((2124 . 5625) (+ 4.61168601842739e+18 1103515246) -> 4.6116860195309e+18) ((2125 . 5625) (+ 4.61168601842739e+18 1103515247) -> 4.6116860195309e+18) ((2126 . 5625) (+ 4611686018427387901 631629063) -> 4.61168601905902e+18) ((2127 . 5625) (+ 4611686018427387901 631629064) -> 4.61168601905902e+18) ((2128 . 5625) (+ 4611686018427387901 631629065) -> 4.61168601905902e+18) ((2129 . 5625) (+ 4611686018427387901 631629066) -> 4.61168601905902e+18) ((2130 . 5625) (+ 4611686018427387901 631629067) -> 4.61168601905902e+18) ((2131 . 5625) (+ 4611686018427387902 631629063) -> 4.61168601905902e+18) ((2132 . 5625) (+ 4611686018427387902 631629064) -> 4.61168601905902e+18) ((2133 . 5625) (+ 4611686018427387902 631629065) -> 4.61168601905902e+18) ((2134 . 5625) (+ 4611686018427387902 631629066) -> 4.61168601905902e+18) ((2135 . 5625) (+ 4611686018427387902 631629067) -> 4.61168601905902e+18) ((2136 . 5625) (+ 4611686018427387903 631629063) -> 4.61168601905902e+18) ((2137 . 5625) (+ 4611686018427387903 631629064) -> 4.61168601905902e+18) ((2138 . 5625) (+ 4611686018427387903 631629065) -> 4.61168601905902e+18) ((2139 . 5625) (+ 4611686018427387903 631629066) -> 4.61168601905902e+18) ((2140 . 5625) (+ 4611686018427387903 631629067) -> 4.61168601905902e+18) ((2141 . 5625) (+ 4.61168601842739e+18 631629063) -> 4.61168601905902e+18) ((2142 . 5625) (+ 4.61168601842739e+18 631629064) -> 4.61168601905902e+18) ((2143 . 5625) (+ 4.61168601842739e+18 631629065) -> 4.61168601905902e+18) ((2144 . 5625) (+ 4.61168601842739e+18 631629066) -> 4.61168601905902e+18) ((2145 . 5625) (+ 4.61168601842739e+18 631629067) -> 4.61168601905902e+18) ((2146 . 5625) (+ 4.61168601842739e+18 631629063) -> 4.61168601905902e+18) ((2147 . 5625) (+ 4.61168601842739e+18 631629064) -> 4.61168601905902e+18) ((2148 . 5625) (+ 4.61168601842739e+18 631629065) -> 4.61168601905902e+18) ((2149 . 5625) (+ 4.61168601842739e+18 631629066) -> 4.61168601905902e+18) ((2150 . 5625) (+ 4.61168601842739e+18 631629067) -> 4.61168601905902e+18) ((2151 . 5625) (+ 4611686018427387901 9007199254740990) -> 4.62069321768213e+18) ((2152 . 5625) (+ 4611686018427387901 9007199254740991) -> 4.62069321768213e+18) ((2153 . 5625) (+ 4611686018427387901 9007199254740992) -> 4.62069321768213e+18) ((2154 . 5625) (+ 4611686018427387901 9007199254740993) -> 4.62069321768213e+18) ((2155 . 5625) (+ 4611686018427387901 9007199254740994) -> 4.62069321768213e+18) ((2156 . 5625) (+ 4611686018427387902 9007199254740990) -> 4.62069321768213e+18) ((2157 . 5625) (+ 4611686018427387902 9007199254740991) -> 4.62069321768213e+18) ((2158 . 5625) (+ 4611686018427387902 9007199254740992) -> 4.62069321768213e+18) ((2159 . 5625) (+ 4611686018427387902 9007199254740993) -> 4.62069321768213e+18) ((2160 . 5625) (+ 4611686018427387902 9007199254740994) -> 4.62069321768213e+18) ((2161 . 5625) (+ 4611686018427387903 9007199254740990) -> 4.62069321768213e+18) ((2162 . 5625) (+ 4611686018427387903 9007199254740991) -> 4.62069321768213e+18) ((2163 . 5625) (+ 4611686018427387903 9007199254740992) -> 4.62069321768213e+18) ((2164 . 5625) (+ 4611686018427387903 9007199254740993) -> 4.62069321768213e+18) ((2165 . 5625) (+ 4611686018427387903 9007199254740994) -> 4.62069321768213e+18) ((2166 . 5625) (+ 4.61168601842739e+18 9007199254740990) -> 4.62069321768213e+18) ((2167 . 5625) (+ 4.61168601842739e+18 9007199254740991) -> 4.62069321768213e+18) ((2168 . 5625) (+ 4.61168601842739e+18 9007199254740992) -> 4.62069321768213e+18) ((2169 . 5625) (+ 4.61168601842739e+18 9007199254740993) -> 4.62069321768213e+18) ((2170 . 5625) (+ 4.61168601842739e+18 9007199254740994) -> 4.62069321768213e+18) ((2171 . 5625) (+ 4.61168601842739e+18 9007199254740990) -> 4.62069321768213e+18) ((2172 . 5625) (+ 4.61168601842739e+18 9007199254740991) -> 4.62069321768213e+18) ((2173 . 5625) (+ 4.61168601842739e+18 9007199254740992) -> 4.62069321768213e+18) ((2174 . 5625) (+ 4.61168601842739e+18 9007199254740993) -> 4.62069321768213e+18) ((2175 . 5625) (+ 4.61168601842739e+18 9007199254740994) -> 4.62069321768213e+18) ((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) (+ 4.61168601842739e+18 -9007199254740994) -> 4.60267881917265e+18) ((2192 . 5625) (+ 4.61168601842739e+18 -9007199254740993) -> 4.60267881917265e+18) ((2193 . 5625) (+ 4.61168601842739e+18 -9007199254740992) -> 4.60267881917265e+18) ((2194 . 5625) (+ 4.61168601842739e+18 -9007199254740991) -> 4.60267881917265e+18) ((2195 . 5625) (+ 4.61168601842739e+18 -9007199254740990) -> 4.60267881917265e+18) ((2196 . 5625) (+ 4.61168601842739e+18 -9007199254740994) -> 4.60267881917265e+18) ((2197 . 5625) (+ 4.61168601842739e+18 -9007199254740993) -> 4.60267881917265e+18) ((2198 . 5625) (+ 4.61168601842739e+18 -9007199254740992) -> 4.60267881917265e+18) ((2199 . 5625) (+ 4.61168601842739e+18 -9007199254740991) -> 4.60267881917265e+18) ((2200 . 5625) (+ 4.61168601842739e+18 -9007199254740990) -> 4.60267881917265e+18) ((2201 . 5625) (+ 4611686018427387901 12343) -> 4.6116860184274e+18) ((2202 . 5625) (+ 4611686018427387901 12344) -> 4.6116860184274e+18) ((2203 . 5625) (+ 4611686018427387901 12345) -> 4.6116860184274e+18) ((2204 . 5625) (+ 4611686018427387901 12346) -> 4.6116860184274e+18) ((2205 . 5625) (+ 4611686018427387901 12347) -> 4.6116860184274e+18) ((2206 . 5625) (+ 4611686018427387902 12343) -> 4.6116860184274e+18) ((2207 . 5625) (+ 4611686018427387902 12344) -> 4.6116860184274e+18) ((2208 . 5625) (+ 4611686018427387902 12345) -> 4.6116860184274e+18) ((2209 . 5625) (+ 4611686018427387902 12346) -> 4.6116860184274e+18) ((2210 . 5625) (+ 4611686018427387902 12347) -> 4.6116860184274e+18) ((2211 . 5625) (+ 4611686018427387903 12343) -> 4.6116860184274e+18) ((2212 . 5625) (+ 4611686018427387903 12344) -> 4.6116860184274e+18) ((2213 . 5625) (+ 4611686018427387903 12345) -> 4.6116860184274e+18) ((2214 . 5625) (+ 4611686018427387903 12346) -> 4.6116860184274e+18) ((2215 . 5625) (+ 4611686018427387903 12347) -> 4.6116860184274e+18) ((2216 . 5625) (+ 4.61168601842739e+18 12343) -> 4.6116860184274e+18) ((2217 . 5625) (+ 4.61168601842739e+18 12344) -> 4.6116860184274e+18) ((2218 . 5625) (+ 4.61168601842739e+18 12345) -> 4.6116860184274e+18) ((2219 . 5625) (+ 4.61168601842739e+18 12346) -> 4.6116860184274e+18) ((2220 . 5625) (+ 4.61168601842739e+18 12347) -> 4.6116860184274e+18) ((2221 . 5625) (+ 4.61168601842739e+18 12343) -> 4.6116860184274e+18) ((2222 . 5625) (+ 4.61168601842739e+18 12344) -> 4.6116860184274e+18) ((2223 . 5625) (+ 4.61168601842739e+18 12345) -> 4.6116860184274e+18) ((2224 . 5625) (+ 4.61168601842739e+18 12346) -> 4.6116860184274e+18) ((2225 . 5625) (+ 4.61168601842739e+18 12347) -> 4.6116860184274e+18) ((2226 . 5625) (+ 4611686018427387901 4294967294) -> 4.61168602272236e+18) ((2227 . 5625) (+ 4611686018427387901 4294967295) -> 4.61168602272236e+18) ((2228 . 5625) (+ 4611686018427387901 4294967296) -> 4.61168602272236e+18) ((2229 . 5625) (+ 4611686018427387901 4294967297) -> 4.61168602272236e+18) ((2230 . 5625) (+ 4611686018427387901 4294967298) -> 4.61168602272236e+18) ((2231 . 5625) (+ 4611686018427387902 4294967294) -> 4.61168602272236e+18) ((2232 . 5625) (+ 4611686018427387902 4294967295) -> 4.61168602272236e+18) ((2233 . 5625) (+ 4611686018427387902 4294967296) -> 4.61168602272236e+18) ((2234 . 5625) (+ 4611686018427387902 4294967297) -> 4.61168602272236e+18) ((2235 . 5625) (+ 4611686018427387902 4294967298) -> 4.61168602272236e+18) ((2236 . 5625) (+ 4611686018427387903 4294967294) -> 4.61168602272236e+18) ((2237 . 5625) (+ 4611686018427387903 4294967295) -> 4.61168602272236e+18) ((2238 . 5625) (+ 4611686018427387903 4294967296) -> 4.61168602272236e+18) ((2239 . 5625) (+ 4611686018427387903 4294967297) -> 4.61168602272236e+18) ((2240 . 5625) (+ 4611686018427387903 4294967298) -> 4.61168602272236e+18) ((2241 . 5625) (+ 4.61168601842739e+18 4294967294) -> 4.61168602272236e+18) ((2242 . 5625) (+ 4.61168601842739e+18 4294967295) -> 4.61168602272236e+18) ((2243 . 5625) (+ 4.61168601842739e+18 4294967296) -> 4.61168602272236e+18) ((2244 . 5625) (+ 4.61168601842739e+18 4294967297) -> 4.61168602272236e+18) ((2245 . 5625) (+ 4.61168601842739e+18 4294967298) -> 4.61168602272236e+18) ((2246 . 5625) (+ 4.61168601842739e+18 4294967294) -> 4.61168602272236e+18) ((2247 . 5625) (+ 4.61168601842739e+18 4294967295) -> 4.61168602272236e+18) ((2248 . 5625) (+ 4.61168601842739e+18 4294967296) -> 4.61168602272236e+18) ((2249 . 5625) (+ 4.61168601842739e+18 4294967297) -> 4.61168602272236e+18) ((2250 . 5625) (+ 4.61168601842739e+18 4294967298) -> 4.61168602272236e+18) ((2251 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((2252 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2253 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2254 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2255 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((2256 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((2257 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2258 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2259 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2260 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((2261 . 5625) (+ -4611686018427387904 -2) -> -4.61168601842739e+18) ((2262 . 5625) (+ -4611686018427387904 -1) -> -4.61168601842739e+18) ((2263 . 5625) (+ -4611686018427387904 0) -> -4611686018427387904) ((2264 . 5625) (+ -4611686018427387904 1) -> -4611686018427387903) ((2265 . 5625) (+ -4611686018427387904 2) -> -4611686018427387902) ((2266 . 5625) (+ -4611686018427387903 -2) -> -4.61168601842739e+18) ((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) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2277 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2278 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2279 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((2280 . 5625) (+ -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((2281 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2282 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2283 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2284 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((2285 . 5625) (+ -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((2286 . 5625) (+ -4611686018427387904 -1) -> -4.61168601842739e+18) ((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) (+ -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((2302 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((2303 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2304 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2305 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2306 . 5625) (+ -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((2307 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((2308 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2309 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2310 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2311 . 5625) (+ -4611686018427387904 -3) -> -4.61168601842739e+18) ((2312 . 5625) (+ -4611686018427387904 -2) -> -4.61168601842739e+18) ((2313 . 5625) (+ -4611686018427387904 -1) -> -4.61168601842739e+18) ((2314 . 5625) (+ -4611686018427387904 0) -> -4611686018427387904) ((2315 . 5625) (+ -4611686018427387904 1) -> -4611686018427387903) ((2316 . 5625) (+ -4611686018427387903 -3) -> -4.61168601842739e+18) ((2317 . 5625) (+ -4611686018427387903 -2) -> -4.61168601842739e+18) ((2318 . 5625) (+ -4611686018427387903 -1) -> -4611686018427387904) ((2319 . 5625) (+ -4611686018427387903 0) -> -4611686018427387903) ((2320 . 5625) (+ -4611686018427387903 1) -> -4611686018427387902) ((2321 . 5625) (+ -4611686018427387902 -3) -> -4.61168601842739e+18) ((2322 . 5625) (+ -4611686018427387902 -2) -> -4611686018427387904) ((2323 . 5625) (+ -4611686018427387902 -1) -> -4611686018427387903) ((2324 . 5625) (+ -4611686018427387902 0) -> -4611686018427387902) ((2325 . 5625) (+ -4611686018427387902 1) -> -4611686018427387901) ((2326 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2327 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2328 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((2329 . 5625) (+ -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((2330 . 5625) (+ -4.61168601842739e+18 4) -> -4.61168601842739e+18) ((2331 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2332 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2333 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((2334 . 5625) (+ -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((2335 . 5625) (+ -4.61168601842739e+18 4) -> -4.61168601842739e+18) ((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) (+ -4.61168601842739e+18 -4) -> -4.61168601842739e+18) ((2352 . 5625) (+ -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((2353 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((2354 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2355 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2356 . 5625) (+ -4.61168601842739e+18 -4) -> -4.61168601842739e+18) ((2357 . 5625) (+ -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((2358 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((2359 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2360 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2361 . 5625) (+ -4611686018427387904 -4) -> -4.61168601842739e+18) ((2362 . 5625) (+ -4611686018427387904 -3) -> -4.61168601842739e+18) ((2363 . 5625) (+ -4611686018427387904 -2) -> -4.61168601842739e+18) ((2364 . 5625) (+ -4611686018427387904 -1) -> -4.61168601842739e+18) ((2365 . 5625) (+ -4611686018427387904 0) -> -4611686018427387904) ((2366 . 5625) (+ -4611686018427387903 -4) -> -4.61168601842739e+18) ((2367 . 5625) (+ -4611686018427387903 -3) -> -4.61168601842739e+18) ((2368 . 5625) (+ -4611686018427387903 -2) -> -4.61168601842739e+18) ((2369 . 5625) (+ -4611686018427387903 -1) -> -4611686018427387904) ((2370 . 5625) (+ -4611686018427387903 0) -> -4611686018427387903) ((2371 . 5625) (+ -4611686018427387902 -4) -> -4.61168601842739e+18) ((2372 . 5625) (+ -4611686018427387902 -3) -> -4.61168601842739e+18) ((2373 . 5625) (+ -4611686018427387902 -2) -> -4611686018427387904) ((2374 . 5625) (+ -4611686018427387902 -1) -> -4611686018427387903) ((2375 . 5625) (+ -4611686018427387902 0) -> -4611686018427387902) ((2376 . 5625) (+ -4.61168601842739e+18 4611686018427387901) -> 0.0) ((2377 . 5625) (+ -4.61168601842739e+18 4611686018427387902) -> 0.0) ((2378 . 5625) (+ -4.61168601842739e+18 4611686018427387903) -> 0.0) ((2379 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2380 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2381 . 5625) (+ -4.61168601842739e+18 4611686018427387901) -> 0.0) ((2382 . 5625) (+ -4.61168601842739e+18 4611686018427387902) -> 0.0) ((2383 . 5625) (+ -4.61168601842739e+18 4611686018427387903) -> 0.0) ((2384 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2385 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2386 . 5625) (+ -4611686018427387904 4611686018427387901) -> -3) ((2387 . 5625) (+ -4611686018427387904 4611686018427387902) -> -2) ((2388 . 5625) (+ -4611686018427387904 4611686018427387903) -> -1) ((2389 . 5625) (+ -4611686018427387904 4.61168601842739e+18) -> 0.0) ((2390 . 5625) (+ -4611686018427387904 4.61168601842739e+18) -> 0.0) ((2391 . 5625) (+ -4611686018427387903 4611686018427387901) -> -2) ((2392 . 5625) (+ -4611686018427387903 4611686018427387902) -> -1) ((2393 . 5625) (+ -4611686018427387903 4611686018427387903) -> 0) ((2394 . 5625) (+ -4611686018427387903 4.61168601842739e+18) -> 0.0) ((2395 . 5625) (+ -4611686018427387903 4.61168601842739e+18) -> 0.0) ((2396 . 5625) (+ -4611686018427387902 4611686018427387901) -> -1) ((2397 . 5625) (+ -4611686018427387902 4611686018427387902) -> 0) ((2398 . 5625) (+ -4611686018427387902 4611686018427387903) -> 1) ((2399 . 5625) (+ -4611686018427387902 4.61168601842739e+18) -> 0.0) ((2400 . 5625) (+ -4611686018427387902 4.61168601842739e+18) -> 0.0) ((2401 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2402 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2403 . 5625) (+ -4.61168601842739e+18 -4611686018427387904) -> -9.22337203685478e+18) ((2404 . 5625) (+ -4.61168601842739e+18 -4611686018427387903) -> -9.22337203685478e+18) ((2405 . 5625) (+ -4.61168601842739e+18 -4611686018427387902) -> -9.22337203685478e+18) ((2406 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2407 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2408 . 5625) (+ -4.61168601842739e+18 -4611686018427387904) -> -9.22337203685478e+18) ((2409 . 5625) (+ -4.61168601842739e+18 -4611686018427387903) -> -9.22337203685478e+18) ((2410 . 5625) (+ -4.61168601842739e+18 -4611686018427387902) -> -9.22337203685478e+18) ((2411 . 5625) (+ -4611686018427387904 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2412 . 5625) (+ -4611686018427387904 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2413 . 5625) (+ -4611686018427387904 -4611686018427387904) -> -9.22337203685478e+18) ((2414 . 5625) (+ -4611686018427387904 -4611686018427387903) -> -9.22337203685478e+18) ((2415 . 5625) (+ -4611686018427387904 -4611686018427387902) -> -9.22337203685478e+18) ((2416 . 5625) (+ -4611686018427387903 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2417 . 5625) (+ -4611686018427387903 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2418 . 5625) (+ -4611686018427387903 -4611686018427387904) -> -9.22337203685478e+18) ((2419 . 5625) (+ -4611686018427387903 -4611686018427387903) -> -9.22337203685478e+18) ((2420 . 5625) (+ -4611686018427387903 -4611686018427387902) -> -9.22337203685478e+18) ((2421 . 5625) (+ -4611686018427387902 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2422 . 5625) (+ -4611686018427387902 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2423 . 5625) (+ -4611686018427387902 -4611686018427387904) -> -9.22337203685478e+18) ((2424 . 5625) (+ -4611686018427387902 -4611686018427387903) -> -9.22337203685478e+18) ((2425 . 5625) (+ -4611686018427387902 -4611686018427387902) -> -9.22337203685478e+18) ((2426 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2427 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2428 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2429 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2430 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2431 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2432 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2433 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2434 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2435 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2436 . 5625) (+ -4611686018427387904 4.61168601842739e+18) -> 0.0) ((2437 . 5625) (+ -4611686018427387904 4.61168601842739e+18) -> 0.0) ((2438 . 5625) (+ -4611686018427387904 4.61168601842739e+18) -> 0.0) ((2439 . 5625) (+ -4611686018427387904 4.61168601842739e+18) -> 0.0) ((2440 . 5625) (+ -4611686018427387904 4.61168601842739e+18) -> 0.0) ((2441 . 5625) (+ -4611686018427387903 4.61168601842739e+18) -> 0.0) ((2442 . 5625) (+ -4611686018427387903 4.61168601842739e+18) -> 0.0) ((2443 . 5625) (+ -4611686018427387903 4.61168601842739e+18) -> 0.0) ((2444 . 5625) (+ -4611686018427387903 4.61168601842739e+18) -> 0.0) ((2445 . 5625) (+ -4611686018427387903 4.61168601842739e+18) -> 0.0) ((2446 . 5625) (+ -4611686018427387902 4.61168601842739e+18) -> 0.0) ((2447 . 5625) (+ -4611686018427387902 4.61168601842739e+18) -> 0.0) ((2448 . 5625) (+ -4611686018427387902 4.61168601842739e+18) -> 0.0) ((2449 . 5625) (+ -4611686018427387902 4.61168601842739e+18) -> 0.0) ((2450 . 5625) (+ -4611686018427387902 4.61168601842739e+18) -> 0.0) ((2451 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2452 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2453 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2454 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2455 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2456 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2457 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2458 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2459 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2460 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2461 . 5625) (+ -4611686018427387904 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2462 . 5625) (+ -4611686018427387904 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2463 . 5625) (+ -4611686018427387904 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2464 . 5625) (+ -4611686018427387904 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2465 . 5625) (+ -4611686018427387904 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2466 . 5625) (+ -4611686018427387903 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2467 . 5625) (+ -4611686018427387903 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2468 . 5625) (+ -4611686018427387903 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2469 . 5625) (+ -4611686018427387903 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2470 . 5625) (+ -4611686018427387903 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2471 . 5625) (+ -4611686018427387902 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2472 . 5625) (+ -4611686018427387902 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2473 . 5625) (+ -4611686018427387902 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2474 . 5625) (+ -4611686018427387902 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2475 . 5625) (+ -4611686018427387902 -4.61168601842739e+18) -> -9.22337203685478e+18) ((2476 . 5625) (+ -4.61168601842739e+18 1103515243) -> -4.61168601732387e+18) ((2477 . 5625) (+ -4.61168601842739e+18 1103515244) -> -4.61168601732387e+18) ((2478 . 5625) (+ -4.61168601842739e+18 1103515245) -> -4.61168601732387e+18) ((2479 . 5625) (+ -4.61168601842739e+18 1103515246) -> -4.61168601732387e+18) ((2480 . 5625) (+ -4.61168601842739e+18 1103515247) -> -4.61168601732387e+18) ((2481 . 5625) (+ -4.61168601842739e+18 1103515243) -> -4.61168601732387e+18) ((2482 . 5625) (+ -4.61168601842739e+18 1103515244) -> -4.61168601732387e+18) ((2483 . 5625) (+ -4.61168601842739e+18 1103515245) -> -4.61168601732387e+18) ((2484 . 5625) (+ -4.61168601842739e+18 1103515246) -> -4.61168601732387e+18) ((2485 . 5625) (+ -4.61168601842739e+18 1103515247) -> -4.61168601732387e+18) ((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) (+ -4.61168601842739e+18 631629063) -> -4.61168601779576e+18) ((2502 . 5625) (+ -4.61168601842739e+18 631629064) -> -4.61168601779576e+18) ((2503 . 5625) (+ -4.61168601842739e+18 631629065) -> -4.61168601779576e+18) ((2504 . 5625) (+ -4.61168601842739e+18 631629066) -> -4.61168601779576e+18) ((2505 . 5625) (+ -4.61168601842739e+18 631629067) -> -4.61168601779576e+18) ((2506 . 5625) (+ -4.61168601842739e+18 631629063) -> -4.61168601779576e+18) ((2507 . 5625) (+ -4.61168601842739e+18 631629064) -> -4.61168601779576e+18) ((2508 . 5625) (+ -4.61168601842739e+18 631629065) -> -4.61168601779576e+18) ((2509 . 5625) (+ -4.61168601842739e+18 631629066) -> -4.61168601779576e+18) ((2510 . 5625) (+ -4.61168601842739e+18 631629067) -> -4.61168601779576e+18) ((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) (+ -4.61168601842739e+18 9007199254740990) -> -4.60267881917265e+18) ((2527 . 5625) (+ -4.61168601842739e+18 9007199254740991) -> -4.60267881917265e+18) ((2528 . 5625) (+ -4.61168601842739e+18 9007199254740992) -> -4.60267881917265e+18) ((2529 . 5625) (+ -4.61168601842739e+18 9007199254740993) -> -4.60267881917265e+18) ((2530 . 5625) (+ -4.61168601842739e+18 9007199254740994) -> -4.60267881917265e+18) ((2531 . 5625) (+ -4.61168601842739e+18 9007199254740990) -> -4.60267881917265e+18) ((2532 . 5625) (+ -4.61168601842739e+18 9007199254740991) -> -4.60267881917265e+18) ((2533 . 5625) (+ -4.61168601842739e+18 9007199254740992) -> -4.60267881917265e+18) ((2534 . 5625) (+ -4.61168601842739e+18 9007199254740993) -> -4.60267881917265e+18) ((2535 . 5625) (+ -4.61168601842739e+18 9007199254740994) -> -4.60267881917265e+18) ((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) (+ -4.61168601842739e+18 -9007199254740994) -> -4.62069321768213e+18) ((2552 . 5625) (+ -4.61168601842739e+18 -9007199254740993) -> -4.62069321768213e+18) ((2553 . 5625) (+ -4.61168601842739e+18 -9007199254740992) -> -4.62069321768213e+18) ((2554 . 5625) (+ -4.61168601842739e+18 -9007199254740991) -> -4.62069321768213e+18) ((2555 . 5625) (+ -4.61168601842739e+18 -9007199254740990) -> -4.62069321768213e+18) ((2556 . 5625) (+ -4.61168601842739e+18 -9007199254740994) -> -4.62069321768213e+18) ((2557 . 5625) (+ -4.61168601842739e+18 -9007199254740993) -> -4.62069321768213e+18) ((2558 . 5625) (+ -4.61168601842739e+18 -9007199254740992) -> -4.62069321768213e+18) ((2559 . 5625) (+ -4.61168601842739e+18 -9007199254740991) -> -4.62069321768213e+18) ((2560 . 5625) (+ -4.61168601842739e+18 -9007199254740990) -> -4.62069321768213e+18) ((2561 . 5625) (+ -4611686018427387904 -9007199254740994) -> -4.62069321768213e+18) ((2562 . 5625) (+ -4611686018427387904 -9007199254740993) -> -4.62069321768213e+18) ((2563 . 5625) (+ -4611686018427387904 -9007199254740992) -> -4.62069321768213e+18) ((2564 . 5625) (+ -4611686018427387904 -9007199254740991) -> -4.62069321768213e+18) ((2565 . 5625) (+ -4611686018427387904 -9007199254740990) -> -4.62069321768213e+18) ((2566 . 5625) (+ -4611686018427387903 -9007199254740994) -> -4.62069321768213e+18) ((2567 . 5625) (+ -4611686018427387903 -9007199254740993) -> -4.62069321768213e+18) ((2568 . 5625) (+ -4611686018427387903 -9007199254740992) -> -4.62069321768213e+18) ((2569 . 5625) (+ -4611686018427387903 -9007199254740991) -> -4.62069321768213e+18) ((2570 . 5625) (+ -4611686018427387903 -9007199254740990) -> -4.62069321768213e+18) ((2571 . 5625) (+ -4611686018427387902 -9007199254740994) -> -4.62069321768213e+18) ((2572 . 5625) (+ -4611686018427387902 -9007199254740993) -> -4.62069321768213e+18) ((2573 . 5625) (+ -4611686018427387902 -9007199254740992) -> -4.62069321768213e+18) ((2574 . 5625) (+ -4611686018427387902 -9007199254740991) -> -4.62069321768213e+18) ((2575 . 5625) (+ -4611686018427387902 -9007199254740990) -> -4.62069321768213e+18) ((2576 . 5625) (+ -4.61168601842739e+18 12343) -> -4.61168601842738e+18) ((2577 . 5625) (+ -4.61168601842739e+18 12344) -> -4.61168601842738e+18) ((2578 . 5625) (+ -4.61168601842739e+18 12345) -> -4.61168601842738e+18) ((2579 . 5625) (+ -4.61168601842739e+18 12346) -> -4.61168601842738e+18) ((2580 . 5625) (+ -4.61168601842739e+18 12347) -> -4.61168601842738e+18) ((2581 . 5625) (+ -4.61168601842739e+18 12343) -> -4.61168601842738e+18) ((2582 . 5625) (+ -4.61168601842739e+18 12344) -> -4.61168601842738e+18) ((2583 . 5625) (+ -4.61168601842739e+18 12345) -> -4.61168601842738e+18) ((2584 . 5625) (+ -4.61168601842739e+18 12346) -> -4.61168601842738e+18) ((2585 . 5625) (+ -4.61168601842739e+18 12347) -> -4.61168601842738e+18) ((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) (+ -4.61168601842739e+18 4294967294) -> -4.61168601413242e+18) ((2602 . 5625) (+ -4.61168601842739e+18 4294967295) -> -4.61168601413242e+18) ((2603 . 5625) (+ -4.61168601842739e+18 4294967296) -> -4.61168601413242e+18) ((2604 . 5625) (+ -4.61168601842739e+18 4294967297) -> -4.61168601413242e+18) ((2605 . 5625) (+ -4.61168601842739e+18 4294967298) -> -4.61168601413242e+18) ((2606 . 5625) (+ -4.61168601842739e+18 4294967294) -> -4.61168601413242e+18) ((2607 . 5625) (+ -4.61168601842739e+18 4294967295) -> -4.61168601413242e+18) ((2608 . 5625) (+ -4.61168601842739e+18 4294967296) -> -4.61168601413242e+18) ((2609 . 5625) (+ -4.61168601842739e+18 4294967297) -> -4.61168601413242e+18) ((2610 . 5625) (+ -4.61168601842739e+18 4294967298) -> -4.61168601413242e+18) ((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) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2627 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2628 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2629 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2630 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2631 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2632 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2633 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2634 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2635 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2636 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2637 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2638 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2639 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2640 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2641 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2642 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2643 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2644 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2645 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2646 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2647 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2648 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2649 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2650 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2651 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2652 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2653 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2654 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2655 . 5625) (+ 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2656 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2657 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2658 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2659 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2660 . 5625) (+ 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2661 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2662 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2663 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2664 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2665 . 5625) (+ 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2666 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2667 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2668 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2669 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2670 . 5625) (+ 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2671 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2672 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2673 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2674 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2675 . 5625) (+ 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2676 . 5625) (+ 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2677 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2678 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2679 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2680 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2681 . 5625) (+ 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2682 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2683 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2684 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2685 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2686 . 5625) (+ 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2687 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2688 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2689 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2690 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2691 . 5625) (+ 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2692 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2693 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2694 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2695 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2696 . 5625) (+ 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2697 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2698 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2699 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2700 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2701 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2702 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2703 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2704 . 5625) (+ 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2705 . 5625) (+ 4.61168601842739e+18 4) -> 4.61168601842739e+18) ((2706 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2707 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2708 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2709 . 5625) (+ 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2710 . 5625) (+ 4.61168601842739e+18 4) -> 4.61168601842739e+18) ((2711 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2712 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2713 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2714 . 5625) (+ 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2715 . 5625) (+ 4.61168601842739e+18 4) -> 4.61168601842739e+18) ((2716 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2717 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2718 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2719 . 5625) (+ 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2720 . 5625) (+ 4.61168601842739e+18 4) -> 4.61168601842739e+18) ((2721 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2722 . 5625) (+ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2723 . 5625) (+ 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2724 . 5625) (+ 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2725 . 5625) (+ 4.61168601842739e+18 4) -> 4.61168601842739e+18) ((2726 . 5625) (+ 4.61168601842739e+18 -4) -> 4.61168601842739e+18) ((2727 . 5625) (+ 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2728 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2729 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2730 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2731 . 5625) (+ 4.61168601842739e+18 -4) -> 4.61168601842739e+18) ((2732 . 5625) (+ 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2733 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2734 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2735 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2736 . 5625) (+ 4.61168601842739e+18 -4) -> 4.61168601842739e+18) ((2737 . 5625) (+ 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2738 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2739 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2740 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2741 . 5625) (+ 4.61168601842739e+18 -4) -> 4.61168601842739e+18) ((2742 . 5625) (+ 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2743 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2744 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2745 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2746 . 5625) (+ 4.61168601842739e+18 -4) -> 4.61168601842739e+18) ((2747 . 5625) (+ 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2748 . 5625) (+ 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2749 . 5625) (+ 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2750 . 5625) (+ 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2751 . 5625) (+ 4.61168601842739e+18 4611686018427387901) -> 9.22337203685478e+18) ((2752 . 5625) (+ 4.61168601842739e+18 4611686018427387902) -> 9.22337203685478e+18) ((2753 . 5625) (+ 4.61168601842739e+18 4611686018427387903) -> 9.22337203685478e+18) ((2754 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2755 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2756 . 5625) (+ 4.61168601842739e+18 4611686018427387901) -> 9.22337203685478e+18) ((2757 . 5625) (+ 4.61168601842739e+18 4611686018427387902) -> 9.22337203685478e+18) ((2758 . 5625) (+ 4.61168601842739e+18 4611686018427387903) -> 9.22337203685478e+18) ((2759 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2760 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2761 . 5625) (+ 4.61168601842739e+18 4611686018427387901) -> 9.22337203685478e+18) ((2762 . 5625) (+ 4.61168601842739e+18 4611686018427387902) -> 9.22337203685478e+18) ((2763 . 5625) (+ 4.61168601842739e+18 4611686018427387903) -> 9.22337203685478e+18) ((2764 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2765 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2766 . 5625) (+ 4.61168601842739e+18 4611686018427387901) -> 9.22337203685478e+18) ((2767 . 5625) (+ 4.61168601842739e+18 4611686018427387902) -> 9.22337203685478e+18) ((2768 . 5625) (+ 4.61168601842739e+18 4611686018427387903) -> 9.22337203685478e+18) ((2769 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2770 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2771 . 5625) (+ 4.61168601842739e+18 4611686018427387901) -> 9.22337203685478e+18) ((2772 . 5625) (+ 4.61168601842739e+18 4611686018427387902) -> 9.22337203685478e+18) ((2773 . 5625) (+ 4.61168601842739e+18 4611686018427387903) -> 9.22337203685478e+18) ((2774 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2775 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2776 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2777 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2778 . 5625) (+ 4.61168601842739e+18 -4611686018427387904) -> 0.0) ((2779 . 5625) (+ 4.61168601842739e+18 -4611686018427387903) -> 0.0) ((2780 . 5625) (+ 4.61168601842739e+18 -4611686018427387902) -> 0.0) ((2781 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2782 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2783 . 5625) (+ 4.61168601842739e+18 -4611686018427387904) -> 0.0) ((2784 . 5625) (+ 4.61168601842739e+18 -4611686018427387903) -> 0.0) ((2785 . 5625) (+ 4.61168601842739e+18 -4611686018427387902) -> 0.0) ((2786 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2787 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2788 . 5625) (+ 4.61168601842739e+18 -4611686018427387904) -> 0.0) ((2789 . 5625) (+ 4.61168601842739e+18 -4611686018427387903) -> 0.0) ((2790 . 5625) (+ 4.61168601842739e+18 -4611686018427387902) -> 0.0) ((2791 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2792 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2793 . 5625) (+ 4.61168601842739e+18 -4611686018427387904) -> 0.0) ((2794 . 5625) (+ 4.61168601842739e+18 -4611686018427387903) -> 0.0) ((2795 . 5625) (+ 4.61168601842739e+18 -4611686018427387902) -> 0.0) ((2796 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2797 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2798 . 5625) (+ 4.61168601842739e+18 -4611686018427387904) -> 0.0) ((2799 . 5625) (+ 4.61168601842739e+18 -4611686018427387903) -> 0.0) ((2800 . 5625) (+ 4.61168601842739e+18 -4611686018427387902) -> 0.0) ((2801 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2802 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2803 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2804 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2805 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2806 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2807 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2808 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2809 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2810 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2811 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2812 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2813 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2814 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2815 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2816 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2817 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2818 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2819 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2820 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2821 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2822 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2823 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2824 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2825 . 5625) (+ 4.61168601842739e+18 4.61168601842739e+18) -> 9.22337203685478e+18) ((2826 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2827 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2828 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2829 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2830 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2831 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2832 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2833 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2834 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2835 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2836 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2837 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2838 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2839 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2840 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2841 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2842 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2843 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2844 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2845 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2846 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2847 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2848 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2849 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2850 . 5625) (+ 4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2851 . 5625) (+ 4.61168601842739e+18 1103515243) -> 4.6116860195309e+18) ((2852 . 5625) (+ 4.61168601842739e+18 1103515244) -> 4.6116860195309e+18) ((2853 . 5625) (+ 4.61168601842739e+18 1103515245) -> 4.6116860195309e+18) ((2854 . 5625) (+ 4.61168601842739e+18 1103515246) -> 4.6116860195309e+18) ((2855 . 5625) (+ 4.61168601842739e+18 1103515247) -> 4.6116860195309e+18) ((2856 . 5625) (+ 4.61168601842739e+18 1103515243) -> 4.6116860195309e+18) ((2857 . 5625) (+ 4.61168601842739e+18 1103515244) -> 4.6116860195309e+18) ((2858 . 5625) (+ 4.61168601842739e+18 1103515245) -> 4.6116860195309e+18) ((2859 . 5625) (+ 4.61168601842739e+18 1103515246) -> 4.6116860195309e+18) ((2860 . 5625) (+ 4.61168601842739e+18 1103515247) -> 4.6116860195309e+18) ((2861 . 5625) (+ 4.61168601842739e+18 1103515243) -> 4.6116860195309e+18) ((2862 . 5625) (+ 4.61168601842739e+18 1103515244) -> 4.6116860195309e+18) ((2863 . 5625) (+ 4.61168601842739e+18 1103515245) -> 4.6116860195309e+18) ((2864 . 5625) (+ 4.61168601842739e+18 1103515246) -> 4.6116860195309e+18) ((2865 . 5625) (+ 4.61168601842739e+18 1103515247) -> 4.6116860195309e+18) ((2866 . 5625) (+ 4.61168601842739e+18 1103515243) -> 4.6116860195309e+18) ((2867 . 5625) (+ 4.61168601842739e+18 1103515244) -> 4.6116860195309e+18) ((2868 . 5625) (+ 4.61168601842739e+18 1103515245) -> 4.6116860195309e+18) ((2869 . 5625) (+ 4.61168601842739e+18 1103515246) -> 4.6116860195309e+18) ((2870 . 5625) (+ 4.61168601842739e+18 1103515247) -> 4.6116860195309e+18) ((2871 . 5625) (+ 4.61168601842739e+18 1103515243) -> 4.6116860195309e+18) ((2872 . 5625) (+ 4.61168601842739e+18 1103515244) -> 4.6116860195309e+18) ((2873 . 5625) (+ 4.61168601842739e+18 1103515245) -> 4.6116860195309e+18) ((2874 . 5625) (+ 4.61168601842739e+18 1103515246) -> 4.6116860195309e+18) ((2875 . 5625) (+ 4.61168601842739e+18 1103515247) -> 4.6116860195309e+18) ((2876 . 5625) (+ 4.61168601842739e+18 631629063) -> 4.61168601905902e+18) ((2877 . 5625) (+ 4.61168601842739e+18 631629064) -> 4.61168601905902e+18) ((2878 . 5625) (+ 4.61168601842739e+18 631629065) -> 4.61168601905902e+18) ((2879 . 5625) (+ 4.61168601842739e+18 631629066) -> 4.61168601905902e+18) ((2880 . 5625) (+ 4.61168601842739e+18 631629067) -> 4.61168601905902e+18) ((2881 . 5625) (+ 4.61168601842739e+18 631629063) -> 4.61168601905902e+18) ((2882 . 5625) (+ 4.61168601842739e+18 631629064) -> 4.61168601905902e+18) ((2883 . 5625) (+ 4.61168601842739e+18 631629065) -> 4.61168601905902e+18) ((2884 . 5625) (+ 4.61168601842739e+18 631629066) -> 4.61168601905902e+18) ((2885 . 5625) (+ 4.61168601842739e+18 631629067) -> 4.61168601905902e+18) ((2886 . 5625) (+ 4.61168601842739e+18 631629063) -> 4.61168601905902e+18) ((2887 . 5625) (+ 4.61168601842739e+18 631629064) -> 4.61168601905902e+18) ((2888 . 5625) (+ 4.61168601842739e+18 631629065) -> 4.61168601905902e+18) ((2889 . 5625) (+ 4.61168601842739e+18 631629066) -> 4.61168601905902e+18) ((2890 . 5625) (+ 4.61168601842739e+18 631629067) -> 4.61168601905902e+18) ((2891 . 5625) (+ 4.61168601842739e+18 631629063) -> 4.61168601905902e+18) ((2892 . 5625) (+ 4.61168601842739e+18 631629064) -> 4.61168601905902e+18) ((2893 . 5625) (+ 4.61168601842739e+18 631629065) -> 4.61168601905902e+18) ((2894 . 5625) (+ 4.61168601842739e+18 631629066) -> 4.61168601905902e+18) ((2895 . 5625) (+ 4.61168601842739e+18 631629067) -> 4.61168601905902e+18) ((2896 . 5625) (+ 4.61168601842739e+18 631629063) -> 4.61168601905902e+18) ((2897 . 5625) (+ 4.61168601842739e+18 631629064) -> 4.61168601905902e+18) ((2898 . 5625) (+ 4.61168601842739e+18 631629065) -> 4.61168601905902e+18) ((2899 . 5625) (+ 4.61168601842739e+18 631629066) -> 4.61168601905902e+18) ((2900 . 5625) (+ 4.61168601842739e+18 631629067) -> 4.61168601905902e+18) ((2901 . 5625) (+ 4.61168601842739e+18 9007199254740990) -> 4.62069321768213e+18) ((2902 . 5625) (+ 4.61168601842739e+18 9007199254740991) -> 4.62069321768213e+18) ((2903 . 5625) (+ 4.61168601842739e+18 9007199254740992) -> 4.62069321768213e+18) ((2904 . 5625) (+ 4.61168601842739e+18 9007199254740993) -> 4.62069321768213e+18) ((2905 . 5625) (+ 4.61168601842739e+18 9007199254740994) -> 4.62069321768213e+18) ((2906 . 5625) (+ 4.61168601842739e+18 9007199254740990) -> 4.62069321768213e+18) ((2907 . 5625) (+ 4.61168601842739e+18 9007199254740991) -> 4.62069321768213e+18) ((2908 . 5625) (+ 4.61168601842739e+18 9007199254740992) -> 4.62069321768213e+18) ((2909 . 5625) (+ 4.61168601842739e+18 9007199254740993) -> 4.62069321768213e+18) ((2910 . 5625) (+ 4.61168601842739e+18 9007199254740994) -> 4.62069321768213e+18) ((2911 . 5625) (+ 4.61168601842739e+18 9007199254740990) -> 4.62069321768213e+18) ((2912 . 5625) (+ 4.61168601842739e+18 9007199254740991) -> 4.62069321768213e+18) ((2913 . 5625) (+ 4.61168601842739e+18 9007199254740992) -> 4.62069321768213e+18) ((2914 . 5625) (+ 4.61168601842739e+18 9007199254740993) -> 4.62069321768213e+18) ((2915 . 5625) (+ 4.61168601842739e+18 9007199254740994) -> 4.62069321768213e+18) ((2916 . 5625) (+ 4.61168601842739e+18 9007199254740990) -> 4.62069321768213e+18) ((2917 . 5625) (+ 4.61168601842739e+18 9007199254740991) -> 4.62069321768213e+18) ((2918 . 5625) (+ 4.61168601842739e+18 9007199254740992) -> 4.62069321768213e+18) ((2919 . 5625) (+ 4.61168601842739e+18 9007199254740993) -> 4.62069321768213e+18) ((2920 . 5625) (+ 4.61168601842739e+18 9007199254740994) -> 4.62069321768213e+18) ((2921 . 5625) (+ 4.61168601842739e+18 9007199254740990) -> 4.62069321768213e+18) ((2922 . 5625) (+ 4.61168601842739e+18 9007199254740991) -> 4.62069321768213e+18) ((2923 . 5625) (+ 4.61168601842739e+18 9007199254740992) -> 4.62069321768213e+18) ((2924 . 5625) (+ 4.61168601842739e+18 9007199254740993) -> 4.62069321768213e+18) ((2925 . 5625) (+ 4.61168601842739e+18 9007199254740994) -> 4.62069321768213e+18) ((2926 . 5625) (+ 4.61168601842739e+18 -9007199254740994) -> 4.60267881917265e+18) ((2927 . 5625) (+ 4.61168601842739e+18 -9007199254740993) -> 4.60267881917265e+18) ((2928 . 5625) (+ 4.61168601842739e+18 -9007199254740992) -> 4.60267881917265e+18) ((2929 . 5625) (+ 4.61168601842739e+18 -9007199254740991) -> 4.60267881917265e+18) ((2930 . 5625) (+ 4.61168601842739e+18 -9007199254740990) -> 4.60267881917265e+18) ((2931 . 5625) (+ 4.61168601842739e+18 -9007199254740994) -> 4.60267881917265e+18) ((2932 . 5625) (+ 4.61168601842739e+18 -9007199254740993) -> 4.60267881917265e+18) ((2933 . 5625) (+ 4.61168601842739e+18 -9007199254740992) -> 4.60267881917265e+18) ((2934 . 5625) (+ 4.61168601842739e+18 -9007199254740991) -> 4.60267881917265e+18) ((2935 . 5625) (+ 4.61168601842739e+18 -9007199254740990) -> 4.60267881917265e+18) ((2936 . 5625) (+ 4.61168601842739e+18 -9007199254740994) -> 4.60267881917265e+18) ((2937 . 5625) (+ 4.61168601842739e+18 -9007199254740993) -> 4.60267881917265e+18) ((2938 . 5625) (+ 4.61168601842739e+18 -9007199254740992) -> 4.60267881917265e+18) ((2939 . 5625) (+ 4.61168601842739e+18 -9007199254740991) -> 4.60267881917265e+18) ((2940 . 5625) (+ 4.61168601842739e+18 -9007199254740990) -> 4.60267881917265e+18) ((2941 . 5625) (+ 4.61168601842739e+18 -9007199254740994) -> 4.60267881917265e+18) ((2942 . 5625) (+ 4.61168601842739e+18 -9007199254740993) -> 4.60267881917265e+18) ((2943 . 5625) (+ 4.61168601842739e+18 -9007199254740992) -> 4.60267881917265e+18) ((2944 . 5625) (+ 4.61168601842739e+18 -9007199254740991) -> 4.60267881917265e+18) ((2945 . 5625) (+ 4.61168601842739e+18 -9007199254740990) -> 4.60267881917265e+18) ((2946 . 5625) (+ 4.61168601842739e+18 -9007199254740994) -> 4.60267881917265e+18) ((2947 . 5625) (+ 4.61168601842739e+18 -9007199254740993) -> 4.60267881917265e+18) ((2948 . 5625) (+ 4.61168601842739e+18 -9007199254740992) -> 4.60267881917265e+18) ((2949 . 5625) (+ 4.61168601842739e+18 -9007199254740991) -> 4.60267881917265e+18) ((2950 . 5625) (+ 4.61168601842739e+18 -9007199254740990) -> 4.60267881917265e+18) ((2951 . 5625) (+ 4.61168601842739e+18 12343) -> 4.6116860184274e+18) ((2952 . 5625) (+ 4.61168601842739e+18 12344) -> 4.6116860184274e+18) ((2953 . 5625) (+ 4.61168601842739e+18 12345) -> 4.6116860184274e+18) ((2954 . 5625) (+ 4.61168601842739e+18 12346) -> 4.6116860184274e+18) ((2955 . 5625) (+ 4.61168601842739e+18 12347) -> 4.6116860184274e+18) ((2956 . 5625) (+ 4.61168601842739e+18 12343) -> 4.6116860184274e+18) ((2957 . 5625) (+ 4.61168601842739e+18 12344) -> 4.6116860184274e+18) ((2958 . 5625) (+ 4.61168601842739e+18 12345) -> 4.6116860184274e+18) ((2959 . 5625) (+ 4.61168601842739e+18 12346) -> 4.6116860184274e+18) ((2960 . 5625) (+ 4.61168601842739e+18 12347) -> 4.6116860184274e+18) ((2961 . 5625) (+ 4.61168601842739e+18 12343) -> 4.6116860184274e+18) ((2962 . 5625) (+ 4.61168601842739e+18 12344) -> 4.6116860184274e+18) ((2963 . 5625) (+ 4.61168601842739e+18 12345) -> 4.6116860184274e+18) ((2964 . 5625) (+ 4.61168601842739e+18 12346) -> 4.6116860184274e+18) ((2965 . 5625) (+ 4.61168601842739e+18 12347) -> 4.6116860184274e+18) ((2966 . 5625) (+ 4.61168601842739e+18 12343) -> 4.6116860184274e+18) ((2967 . 5625) (+ 4.61168601842739e+18 12344) -> 4.6116860184274e+18) ((2968 . 5625) (+ 4.61168601842739e+18 12345) -> 4.6116860184274e+18) ((2969 . 5625) (+ 4.61168601842739e+18 12346) -> 4.6116860184274e+18) ((2970 . 5625) (+ 4.61168601842739e+18 12347) -> 4.6116860184274e+18) ((2971 . 5625) (+ 4.61168601842739e+18 12343) -> 4.6116860184274e+18) ((2972 . 5625) (+ 4.61168601842739e+18 12344) -> 4.6116860184274e+18) ((2973 . 5625) (+ 4.61168601842739e+18 12345) -> 4.6116860184274e+18) ((2974 . 5625) (+ 4.61168601842739e+18 12346) -> 4.6116860184274e+18) ((2975 . 5625) (+ 4.61168601842739e+18 12347) -> 4.6116860184274e+18) ((2976 . 5625) (+ 4.61168601842739e+18 4294967294) -> 4.61168602272236e+18) ((2977 . 5625) (+ 4.61168601842739e+18 4294967295) -> 4.61168602272236e+18) ((2978 . 5625) (+ 4.61168601842739e+18 4294967296) -> 4.61168602272236e+18) ((2979 . 5625) (+ 4.61168601842739e+18 4294967297) -> 4.61168602272236e+18) ((2980 . 5625) (+ 4.61168601842739e+18 4294967298) -> 4.61168602272236e+18) ((2981 . 5625) (+ 4.61168601842739e+18 4294967294) -> 4.61168602272236e+18) ((2982 . 5625) (+ 4.61168601842739e+18 4294967295) -> 4.61168602272236e+18) ((2983 . 5625) (+ 4.61168601842739e+18 4294967296) -> 4.61168602272236e+18) ((2984 . 5625) (+ 4.61168601842739e+18 4294967297) -> 4.61168602272236e+18) ((2985 . 5625) (+ 4.61168601842739e+18 4294967298) -> 4.61168602272236e+18) ((2986 . 5625) (+ 4.61168601842739e+18 4294967294) -> 4.61168602272236e+18) ((2987 . 5625) (+ 4.61168601842739e+18 4294967295) -> 4.61168602272236e+18) ((2988 . 5625) (+ 4.61168601842739e+18 4294967296) -> 4.61168602272236e+18) ((2989 . 5625) (+ 4.61168601842739e+18 4294967297) -> 4.61168602272236e+18) ((2990 . 5625) (+ 4.61168601842739e+18 4294967298) -> 4.61168602272236e+18) ((2991 . 5625) (+ 4.61168601842739e+18 4294967294) -> 4.61168602272236e+18) ((2992 . 5625) (+ 4.61168601842739e+18 4294967295) -> 4.61168602272236e+18) ((2993 . 5625) (+ 4.61168601842739e+18 4294967296) -> 4.61168602272236e+18) ((2994 . 5625) (+ 4.61168601842739e+18 4294967297) -> 4.61168602272236e+18) ((2995 . 5625) (+ 4.61168601842739e+18 4294967298) -> 4.61168602272236e+18) ((2996 . 5625) (+ 4.61168601842739e+18 4294967294) -> 4.61168602272236e+18) ((2997 . 5625) (+ 4.61168601842739e+18 4294967295) -> 4.61168602272236e+18) ((2998 . 5625) (+ 4.61168601842739e+18 4294967296) -> 4.61168602272236e+18) ((2999 . 5625) (+ 4.61168601842739e+18 4294967297) -> 4.61168602272236e+18) ((3000 . 5625) (+ 4.61168601842739e+18 4294967298) -> 4.61168602272236e+18) ((3001 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3002 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3003 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3004 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3005 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3006 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3007 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3008 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3009 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3010 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3011 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3012 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3013 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3014 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3015 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3016 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3017 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3018 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3019 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3020 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3021 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3022 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3023 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3024 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3025 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3026 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3027 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3028 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3029 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3030 . 5625) (+ -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3031 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3032 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3033 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3034 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3035 . 5625) (+ -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3036 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3037 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3038 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3039 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3040 . 5625) (+ -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3041 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3042 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3043 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3044 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3045 . 5625) (+ -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3046 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3047 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3048 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3049 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3050 . 5625) (+ -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3051 . 5625) (+ -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3052 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3053 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3054 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3055 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3056 . 5625) (+ -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3057 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3058 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3059 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3060 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3061 . 5625) (+ -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3062 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3063 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3064 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3065 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3066 . 5625) (+ -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3067 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3068 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3069 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3070 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3071 . 5625) (+ -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3072 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3073 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3074 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3075 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3076 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3077 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3078 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3079 . 5625) (+ -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3080 . 5625) (+ -4.61168601842739e+18 4) -> -4.61168601842739e+18) ((3081 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3082 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3083 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3084 . 5625) (+ -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3085 . 5625) (+ -4.61168601842739e+18 4) -> -4.61168601842739e+18) ((3086 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3087 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3088 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3089 . 5625) (+ -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3090 . 5625) (+ -4.61168601842739e+18 4) -> -4.61168601842739e+18) ((3091 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3092 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3093 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3094 . 5625) (+ -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3095 . 5625) (+ -4.61168601842739e+18 4) -> -4.61168601842739e+18) ((3096 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3097 . 5625) (+ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3098 . 5625) (+ -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3099 . 5625) (+ -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3100 . 5625) (+ -4.61168601842739e+18 4) -> -4.61168601842739e+18) ((3101 . 5625) (+ -4.61168601842739e+18 -4) -> -4.61168601842739e+18) ((3102 . 5625) (+ -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3103 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3104 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3105 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3106 . 5625) (+ -4.61168601842739e+18 -4) -> -4.61168601842739e+18) ((3107 . 5625) (+ -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3108 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3109 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3110 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3111 . 5625) (+ -4.61168601842739e+18 -4) -> -4.61168601842739e+18) ((3112 . 5625) (+ -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3113 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3114 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3115 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3116 . 5625) (+ -4.61168601842739e+18 -4) -> -4.61168601842739e+18) ((3117 . 5625) (+ -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3118 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3119 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3120 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3121 . 5625) (+ -4.61168601842739e+18 -4) -> -4.61168601842739e+18) ((3122 . 5625) (+ -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3123 . 5625) (+ -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3124 . 5625) (+ -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3125 . 5625) (+ -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3126 . 5625) (+ -4.61168601842739e+18 4611686018427387901) -> 0.0) ((3127 . 5625) (+ -4.61168601842739e+18 4611686018427387902) -> 0.0) ((3128 . 5625) (+ -4.61168601842739e+18 4611686018427387903) -> 0.0) ((3129 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3130 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3131 . 5625) (+ -4.61168601842739e+18 4611686018427387901) -> 0.0) ((3132 . 5625) (+ -4.61168601842739e+18 4611686018427387902) -> 0.0) ((3133 . 5625) (+ -4.61168601842739e+18 4611686018427387903) -> 0.0) ((3134 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3135 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3136 . 5625) (+ -4.61168601842739e+18 4611686018427387901) -> 0.0) ((3137 . 5625) (+ -4.61168601842739e+18 4611686018427387902) -> 0.0) ((3138 . 5625) (+ -4.61168601842739e+18 4611686018427387903) -> 0.0) ((3139 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3140 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3141 . 5625) (+ -4.61168601842739e+18 4611686018427387901) -> 0.0) ((3142 . 5625) (+ -4.61168601842739e+18 4611686018427387902) -> 0.0) ((3143 . 5625) (+ -4.61168601842739e+18 4611686018427387903) -> 0.0) ((3144 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3145 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3146 . 5625) (+ -4.61168601842739e+18 4611686018427387901) -> 0.0) ((3147 . 5625) (+ -4.61168601842739e+18 4611686018427387902) -> 0.0) ((3148 . 5625) (+ -4.61168601842739e+18 4611686018427387903) -> 0.0) ((3149 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3150 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3151 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3152 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3153 . 5625) (+ -4.61168601842739e+18 -4611686018427387904) -> -9.22337203685478e+18) ((3154 . 5625) (+ -4.61168601842739e+18 -4611686018427387903) -> -9.22337203685478e+18) ((3155 . 5625) (+ -4.61168601842739e+18 -4611686018427387902) -> -9.22337203685478e+18) ((3156 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3157 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3158 . 5625) (+ -4.61168601842739e+18 -4611686018427387904) -> -9.22337203685478e+18) ((3159 . 5625) (+ -4.61168601842739e+18 -4611686018427387903) -> -9.22337203685478e+18) ((3160 . 5625) (+ -4.61168601842739e+18 -4611686018427387902) -> -9.22337203685478e+18) ((3161 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3162 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3163 . 5625) (+ -4.61168601842739e+18 -4611686018427387904) -> -9.22337203685478e+18) ((3164 . 5625) (+ -4.61168601842739e+18 -4611686018427387903) -> -9.22337203685478e+18) ((3165 . 5625) (+ -4.61168601842739e+18 -4611686018427387902) -> -9.22337203685478e+18) ((3166 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3167 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3168 . 5625) (+ -4.61168601842739e+18 -4611686018427387904) -> -9.22337203685478e+18) ((3169 . 5625) (+ -4.61168601842739e+18 -4611686018427387903) -> -9.22337203685478e+18) ((3170 . 5625) (+ -4.61168601842739e+18 -4611686018427387902) -> -9.22337203685478e+18) ((3171 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3172 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3173 . 5625) (+ -4.61168601842739e+18 -4611686018427387904) -> -9.22337203685478e+18) ((3174 . 5625) (+ -4.61168601842739e+18 -4611686018427387903) -> -9.22337203685478e+18) ((3175 . 5625) (+ -4.61168601842739e+18 -4611686018427387902) -> -9.22337203685478e+18) ((3176 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3177 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3178 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3179 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3180 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3181 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3182 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3183 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3184 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3185 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3186 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3187 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3188 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3189 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3190 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3191 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3192 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3193 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3194 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3195 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3196 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3197 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3198 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3199 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3200 . 5625) (+ -4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((3201 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3202 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3203 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3204 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3205 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3206 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3207 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3208 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3209 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3210 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3211 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3212 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3213 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3214 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3215 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3216 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3217 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3218 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3219 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3220 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3221 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3222 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3223 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3224 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3225 . 5625) (+ -4.61168601842739e+18 -4.61168601842739e+18) -> -9.22337203685478e+18) ((3226 . 5625) (+ -4.61168601842739e+18 1103515243) -> -4.61168601732387e+18) ((3227 . 5625) (+ -4.61168601842739e+18 1103515244) -> -4.61168601732387e+18) ((3228 . 5625) (+ -4.61168601842739e+18 1103515245) -> -4.61168601732387e+18) ((3229 . 5625) (+ -4.61168601842739e+18 1103515246) -> -4.61168601732387e+18) ((3230 . 5625) (+ -4.61168601842739e+18 1103515247) -> -4.61168601732387e+18) ((3231 . 5625) (+ -4.61168601842739e+18 1103515243) -> -4.61168601732387e+18) ((3232 . 5625) (+ -4.61168601842739e+18 1103515244) -> -4.61168601732387e+18) ((3233 . 5625) (+ -4.61168601842739e+18 1103515245) -> -4.61168601732387e+18) ((3234 . 5625) (+ -4.61168601842739e+18 1103515246) -> -4.61168601732387e+18) ((3235 . 5625) (+ -4.61168601842739e+18 1103515247) -> -4.61168601732387e+18) ((3236 . 5625) (+ -4.61168601842739e+18 1103515243) -> -4.61168601732387e+18) ((3237 . 5625) (+ -4.61168601842739e+18 1103515244) -> -4.61168601732387e+18) ((3238 . 5625) (+ -4.61168601842739e+18 1103515245) -> -4.61168601732387e+18) ((3239 . 5625) (+ -4.61168601842739e+18 1103515246) -> -4.61168601732387e+18) ((3240 . 5625) (+ -4.61168601842739e+18 1103515247) -> -4.61168601732387e+18) ((3241 . 5625) (+ -4.61168601842739e+18 1103515243) -> -4.61168601732387e+18) ((3242 . 5625) (+ -4.61168601842739e+18 1103515244) -> -4.61168601732387e+18) ((3243 . 5625) (+ -4.61168601842739e+18 1103515245) -> -4.61168601732387e+18) ((3244 . 5625) (+ -4.61168601842739e+18 1103515246) -> -4.61168601732387e+18) ((3245 . 5625) (+ -4.61168601842739e+18 1103515247) -> -4.61168601732387e+18) ((3246 . 5625) (+ -4.61168601842739e+18 1103515243) -> -4.61168601732387e+18) ((3247 . 5625) (+ -4.61168601842739e+18 1103515244) -> -4.61168601732387e+18) ((3248 . 5625) (+ -4.61168601842739e+18 1103515245) -> -4.61168601732387e+18) ((3249 . 5625) (+ -4.61168601842739e+18 1103515246) -> -4.61168601732387e+18) ((3250 . 5625) (+ -4.61168601842739e+18 1103515247) -> -4.61168601732387e+18) ((3251 . 5625) (+ -4.61168601842739e+18 631629063) -> -4.61168601779576e+18) ((3252 . 5625) (+ -4.61168601842739e+18 631629064) -> -4.61168601779576e+18) ((3253 . 5625) (+ -4.61168601842739e+18 631629065) -> -4.61168601779576e+18) ((3254 . 5625) (+ -4.61168601842739e+18 631629066) -> -4.61168601779576e+18) ((3255 . 5625) (+ -4.61168601842739e+18 631629067) -> -4.61168601779576e+18) ((3256 . 5625) (+ -4.61168601842739e+18 631629063) -> -4.61168601779576e+18) ((3257 . 5625) (+ -4.61168601842739e+18 631629064) -> -4.61168601779576e+18) ((3258 . 5625) (+ -4.61168601842739e+18 631629065) -> -4.61168601779576e+18) ((3259 . 5625) (+ -4.61168601842739e+18 631629066) -> -4.61168601779576e+18) ((3260 . 5625) (+ -4.61168601842739e+18 631629067) -> -4.61168601779576e+18) ((3261 . 5625) (+ -4.61168601842739e+18 631629063) -> -4.61168601779576e+18) ((3262 . 5625) (+ -4.61168601842739e+18 631629064) -> -4.61168601779576e+18) ((3263 . 5625) (+ -4.61168601842739e+18 631629065) -> -4.61168601779576e+18) ((3264 . 5625) (+ -4.61168601842739e+18 631629066) -> -4.61168601779576e+18) ((3265 . 5625) (+ -4.61168601842739e+18 631629067) -> -4.61168601779576e+18) ((3266 . 5625) (+ -4.61168601842739e+18 631629063) -> -4.61168601779576e+18) ((3267 . 5625) (+ -4.61168601842739e+18 631629064) -> -4.61168601779576e+18) ((3268 . 5625) (+ -4.61168601842739e+18 631629065) -> -4.61168601779576e+18) ((3269 . 5625) (+ -4.61168601842739e+18 631629066) -> -4.61168601779576e+18) ((3270 . 5625) (+ -4.61168601842739e+18 631629067) -> -4.61168601779576e+18) ((3271 . 5625) (+ -4.61168601842739e+18 631629063) -> -4.61168601779576e+18) ((3272 . 5625) (+ -4.61168601842739e+18 631629064) -> -4.61168601779576e+18) ((3273 . 5625) (+ -4.61168601842739e+18 631629065) -> -4.61168601779576e+18) ((3274 . 5625) (+ -4.61168601842739e+18 631629066) -> -4.61168601779576e+18) ((3275 . 5625) (+ -4.61168601842739e+18 631629067) -> -4.61168601779576e+18) ((3276 . 5625) (+ -4.61168601842739e+18 9007199254740990) -> -4.60267881917265e+18) ((3277 . 5625) (+ -4.61168601842739e+18 9007199254740991) -> -4.60267881917265e+18) ((3278 . 5625) (+ -4.61168601842739e+18 9007199254740992) -> -4.60267881917265e+18) ((3279 . 5625) (+ -4.61168601842739e+18 9007199254740993) -> -4.60267881917265e+18) ((3280 . 5625) (+ -4.61168601842739e+18 9007199254740994) -> -4.60267881917265e+18) ((3281 . 5625) (+ -4.61168601842739e+18 9007199254740990) -> -4.60267881917265e+18) ((3282 . 5625) (+ -4.61168601842739e+18 9007199254740991) -> -4.60267881917265e+18) ((3283 . 5625) (+ -4.61168601842739e+18 9007199254740992) -> -4.60267881917265e+18) ((3284 . 5625) (+ -4.61168601842739e+18 9007199254740993) -> -4.60267881917265e+18) ((3285 . 5625) (+ -4.61168601842739e+18 9007199254740994) -> -4.60267881917265e+18) ((3286 . 5625) (+ -4.61168601842739e+18 9007199254740990) -> -4.60267881917265e+18) ((3287 . 5625) (+ -4.61168601842739e+18 9007199254740991) -> -4.60267881917265e+18) ((3288 . 5625) (+ -4.61168601842739e+18 9007199254740992) -> -4.60267881917265e+18) ((3289 . 5625) (+ -4.61168601842739e+18 9007199254740993) -> -4.60267881917265e+18) ((3290 . 5625) (+ -4.61168601842739e+18 9007199254740994) -> -4.60267881917265e+18) ((3291 . 5625) (+ -4.61168601842739e+18 9007199254740990) -> -4.60267881917265e+18) ((3292 . 5625) (+ -4.61168601842739e+18 9007199254740991) -> -4.60267881917265e+18) ((3293 . 5625) (+ -4.61168601842739e+18 9007199254740992) -> -4.60267881917265e+18) ((3294 . 5625) (+ -4.61168601842739e+18 9007199254740993) -> -4.60267881917265e+18) ((3295 . 5625) (+ -4.61168601842739e+18 9007199254740994) -> -4.60267881917265e+18) ((3296 . 5625) (+ -4.61168601842739e+18 9007199254740990) -> -4.60267881917265e+18) ((3297 . 5625) (+ -4.61168601842739e+18 9007199254740991) -> -4.60267881917265e+18) ((3298 . 5625) (+ -4.61168601842739e+18 9007199254740992) -> -4.60267881917265e+18) ((3299 . 5625) (+ -4.61168601842739e+18 9007199254740993) -> -4.60267881917265e+18) ((3300 . 5625) (+ -4.61168601842739e+18 9007199254740994) -> -4.60267881917265e+18) ((3301 . 5625) (+ -4.61168601842739e+18 -9007199254740994) -> -4.62069321768213e+18) ((3302 . 5625) (+ -4.61168601842739e+18 -9007199254740993) -> -4.62069321768213e+18) ((3303 . 5625) (+ -4.61168601842739e+18 -9007199254740992) -> -4.62069321768213e+18) ((3304 . 5625) (+ -4.61168601842739e+18 -9007199254740991) -> -4.62069321768213e+18) ((3305 . 5625) (+ -4.61168601842739e+18 -9007199254740990) -> -4.62069321768213e+18) ((3306 . 5625) (+ -4.61168601842739e+18 -9007199254740994) -> -4.62069321768213e+18) ((3307 . 5625) (+ -4.61168601842739e+18 -9007199254740993) -> -4.62069321768213e+18) ((3308 . 5625) (+ -4.61168601842739e+18 -9007199254740992) -> -4.62069321768213e+18) ((3309 . 5625) (+ -4.61168601842739e+18 -9007199254740991) -> -4.62069321768213e+18) ((3310 . 5625) (+ -4.61168601842739e+18 -9007199254740990) -> -4.62069321768213e+18) ((3311 . 5625) (+ -4.61168601842739e+18 -9007199254740994) -> -4.62069321768213e+18) ((3312 . 5625) (+ -4.61168601842739e+18 -9007199254740993) -> -4.62069321768213e+18) ((3313 . 5625) (+ -4.61168601842739e+18 -9007199254740992) -> -4.62069321768213e+18) ((3314 . 5625) (+ -4.61168601842739e+18 -9007199254740991) -> -4.62069321768213e+18) ((3315 . 5625) (+ -4.61168601842739e+18 -9007199254740990) -> -4.62069321768213e+18) ((3316 . 5625) (+ -4.61168601842739e+18 -9007199254740994) -> -4.62069321768213e+18) ((3317 . 5625) (+ -4.61168601842739e+18 -9007199254740993) -> -4.62069321768213e+18) ((3318 . 5625) (+ -4.61168601842739e+18 -9007199254740992) -> -4.62069321768213e+18) ((3319 . 5625) (+ -4.61168601842739e+18 -9007199254740991) -> -4.62069321768213e+18) ((3320 . 5625) (+ -4.61168601842739e+18 -9007199254740990) -> -4.62069321768213e+18) ((3321 . 5625) (+ -4.61168601842739e+18 -9007199254740994) -> -4.62069321768213e+18) ((3322 . 5625) (+ -4.61168601842739e+18 -9007199254740993) -> -4.62069321768213e+18) ((3323 . 5625) (+ -4.61168601842739e+18 -9007199254740992) -> -4.62069321768213e+18) ((3324 . 5625) (+ -4.61168601842739e+18 -9007199254740991) -> -4.62069321768213e+18) ((3325 . 5625) (+ -4.61168601842739e+18 -9007199254740990) -> -4.62069321768213e+18) ((3326 . 5625) (+ -4.61168601842739e+18 12343) -> -4.61168601842738e+18) ((3327 . 5625) (+ -4.61168601842739e+18 12344) -> -4.61168601842738e+18) ((3328 . 5625) (+ -4.61168601842739e+18 12345) -> -4.61168601842738e+18) ((3329 . 5625) (+ -4.61168601842739e+18 12346) -> -4.61168601842738e+18) ((3330 . 5625) (+ -4.61168601842739e+18 12347) -> -4.61168601842738e+18) ((3331 . 5625) (+ -4.61168601842739e+18 12343) -> -4.61168601842738e+18) ((3332 . 5625) (+ -4.61168601842739e+18 12344) -> -4.61168601842738e+18) ((3333 . 5625) (+ -4.61168601842739e+18 12345) -> -4.61168601842738e+18) ((3334 . 5625) (+ -4.61168601842739e+18 12346) -> -4.61168601842738e+18) ((3335 . 5625) (+ -4.61168601842739e+18 12347) -> -4.61168601842738e+18) ((3336 . 5625) (+ -4.61168601842739e+18 12343) -> -4.61168601842738e+18) ((3337 . 5625) (+ -4.61168601842739e+18 12344) -> -4.61168601842738e+18) ((3338 . 5625) (+ -4.61168601842739e+18 12345) -> -4.61168601842738e+18) ((3339 . 5625) (+ -4.61168601842739e+18 12346) -> -4.61168601842738e+18) ((3340 . 5625) (+ -4.61168601842739e+18 12347) -> -4.61168601842738e+18) ((3341 . 5625) (+ -4.61168601842739e+18 12343) -> -4.61168601842738e+18) ((3342 . 5625) (+ -4.61168601842739e+18 12344) -> -4.61168601842738e+18) ((3343 . 5625) (+ -4.61168601842739e+18 12345) -> -4.61168601842738e+18) ((3344 . 5625) (+ -4.61168601842739e+18 12346) -> -4.61168601842738e+18) ((3345 . 5625) (+ -4.61168601842739e+18 12347) -> -4.61168601842738e+18) ((3346 . 5625) (+ -4.61168601842739e+18 12343) -> -4.61168601842738e+18) ((3347 . 5625) (+ -4.61168601842739e+18 12344) -> -4.61168601842738e+18) ((3348 . 5625) (+ -4.61168601842739e+18 12345) -> -4.61168601842738e+18) ((3349 . 5625) (+ -4.61168601842739e+18 12346) -> -4.61168601842738e+18) ((3350 . 5625) (+ -4.61168601842739e+18 12347) -> -4.61168601842738e+18) ((3351 . 5625) (+ -4.61168601842739e+18 4294967294) -> -4.61168601413242e+18) ((3352 . 5625) (+ -4.61168601842739e+18 4294967295) -> -4.61168601413242e+18) ((3353 . 5625) (+ -4.61168601842739e+18 4294967296) -> -4.61168601413242e+18) ((3354 . 5625) (+ -4.61168601842739e+18 4294967297) -> -4.61168601413242e+18) ((3355 . 5625) (+ -4.61168601842739e+18 4294967298) -> -4.61168601413242e+18) ((3356 . 5625) (+ -4.61168601842739e+18 4294967294) -> -4.61168601413242e+18) ((3357 . 5625) (+ -4.61168601842739e+18 4294967295) -> -4.61168601413242e+18) ((3358 . 5625) (+ -4.61168601842739e+18 4294967296) -> -4.61168601413242e+18) ((3359 . 5625) (+ -4.61168601842739e+18 4294967297) -> -4.61168601413242e+18) ((3360 . 5625) (+ -4.61168601842739e+18 4294967298) -> -4.61168601413242e+18) ((3361 . 5625) (+ -4.61168601842739e+18 4294967294) -> -4.61168601413242e+18) ((3362 . 5625) (+ -4.61168601842739e+18 4294967295) -> -4.61168601413242e+18) ((3363 . 5625) (+ -4.61168601842739e+18 4294967296) -> -4.61168601413242e+18) ((3364 . 5625) (+ -4.61168601842739e+18 4294967297) -> -4.61168601413242e+18) ((3365 . 5625) (+ -4.61168601842739e+18 4294967298) -> -4.61168601413242e+18) ((3366 . 5625) (+ -4.61168601842739e+18 4294967294) -> -4.61168601413242e+18) ((3367 . 5625) (+ -4.61168601842739e+18 4294967295) -> -4.61168601413242e+18) ((3368 . 5625) (+ -4.61168601842739e+18 4294967296) -> -4.61168601413242e+18) ((3369 . 5625) (+ -4.61168601842739e+18 4294967297) -> -4.61168601413242e+18) ((3370 . 5625) (+ -4.61168601842739e+18 4294967298) -> -4.61168601413242e+18) ((3371 . 5625) (+ -4.61168601842739e+18 4294967294) -> -4.61168601413242e+18) ((3372 . 5625) (+ -4.61168601842739e+18 4294967295) -> -4.61168601413242e+18) ((3373 . 5625) (+ -4.61168601842739e+18 4294967296) -> -4.61168601413242e+18) ((3374 . 5625) (+ -4.61168601842739e+18 4294967297) -> -4.61168601413242e+18) ((3375 . 5625) (+ -4.61168601842739e+18 4294967298) -> -4.61168601413242e+18) ((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) -> 4.6116860195309e+18) ((3502 . 5625) (+ 1103515243 4611686018427387902) -> 4.6116860195309e+18) ((3503 . 5625) (+ 1103515243 4611686018427387903) -> 4.6116860195309e+18) ((3504 . 5625) (+ 1103515243 4.61168601842739e+18) -> 4.6116860195309e+18) ((3505 . 5625) (+ 1103515243 4.61168601842739e+18) -> 4.6116860195309e+18) ((3506 . 5625) (+ 1103515244 4611686018427387901) -> 4.6116860195309e+18) ((3507 . 5625) (+ 1103515244 4611686018427387902) -> 4.6116860195309e+18) ((3508 . 5625) (+ 1103515244 4611686018427387903) -> 4.6116860195309e+18) ((3509 . 5625) (+ 1103515244 4.61168601842739e+18) -> 4.6116860195309e+18) ((3510 . 5625) (+ 1103515244 4.61168601842739e+18) -> 4.6116860195309e+18) ((3511 . 5625) (+ 1103515245 4611686018427387901) -> 4.6116860195309e+18) ((3512 . 5625) (+ 1103515245 4611686018427387902) -> 4.6116860195309e+18) ((3513 . 5625) (+ 1103515245 4611686018427387903) -> 4.6116860195309e+18) ((3514 . 5625) (+ 1103515245 4.61168601842739e+18) -> 4.6116860195309e+18) ((3515 . 5625) (+ 1103515245 4.61168601842739e+18) -> 4.6116860195309e+18) ((3516 . 5625) (+ 1103515246 4611686018427387901) -> 4.6116860195309e+18) ((3517 . 5625) (+ 1103515246 4611686018427387902) -> 4.6116860195309e+18) ((3518 . 5625) (+ 1103515246 4611686018427387903) -> 4.6116860195309e+18) ((3519 . 5625) (+ 1103515246 4.61168601842739e+18) -> 4.6116860195309e+18) ((3520 . 5625) (+ 1103515246 4.61168601842739e+18) -> 4.6116860195309e+18) ((3521 . 5625) (+ 1103515247 4611686018427387901) -> 4.6116860195309e+18) ((3522 . 5625) (+ 1103515247 4611686018427387902) -> 4.6116860195309e+18) ((3523 . 5625) (+ 1103515247 4611686018427387903) -> 4.6116860195309e+18) ((3524 . 5625) (+ 1103515247 4.61168601842739e+18) -> 4.6116860195309e+18) ((3525 . 5625) (+ 1103515247 4.61168601842739e+18) -> 4.6116860195309e+18) ((3526 . 5625) (+ 1103515243 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3527 . 5625) (+ 1103515243 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3528 . 5625) (+ 1103515243 -4611686018427387904) -> -4611686017323872661) ((3529 . 5625) (+ 1103515243 -4611686018427387903) -> -4611686017323872660) ((3530 . 5625) (+ 1103515243 -4611686018427387902) -> -4611686017323872659) ((3531 . 5625) (+ 1103515244 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3532 . 5625) (+ 1103515244 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3533 . 5625) (+ 1103515244 -4611686018427387904) -> -4611686017323872660) ((3534 . 5625) (+ 1103515244 -4611686018427387903) -> -4611686017323872659) ((3535 . 5625) (+ 1103515244 -4611686018427387902) -> -4611686017323872658) ((3536 . 5625) (+ 1103515245 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3537 . 5625) (+ 1103515245 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3538 . 5625) (+ 1103515245 -4611686018427387904) -> -4611686017323872659) ((3539 . 5625) (+ 1103515245 -4611686018427387903) -> -4611686017323872658) ((3540 . 5625) (+ 1103515245 -4611686018427387902) -> -4611686017323872657) ((3541 . 5625) (+ 1103515246 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3542 . 5625) (+ 1103515246 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3543 . 5625) (+ 1103515246 -4611686018427387904) -> -4611686017323872658) ((3544 . 5625) (+ 1103515246 -4611686018427387903) -> -4611686017323872657) ((3545 . 5625) (+ 1103515246 -4611686018427387902) -> -4611686017323872656) ((3546 . 5625) (+ 1103515247 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3547 . 5625) (+ 1103515247 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3548 . 5625) (+ 1103515247 -4611686018427387904) -> -4611686017323872657) ((3549 . 5625) (+ 1103515247 -4611686018427387903) -> -4611686017323872656) ((3550 . 5625) (+ 1103515247 -4611686018427387902) -> -4611686017323872655) ((3551 . 5625) (+ 1103515243 4.61168601842739e+18) -> 4.6116860195309e+18) ((3552 . 5625) (+ 1103515243 4.61168601842739e+18) -> 4.6116860195309e+18) ((3553 . 5625) (+ 1103515243 4.61168601842739e+18) -> 4.6116860195309e+18) ((3554 . 5625) (+ 1103515243 4.61168601842739e+18) -> 4.6116860195309e+18) ((3555 . 5625) (+ 1103515243 4.61168601842739e+18) -> 4.6116860195309e+18) ((3556 . 5625) (+ 1103515244 4.61168601842739e+18) -> 4.6116860195309e+18) ((3557 . 5625) (+ 1103515244 4.61168601842739e+18) -> 4.6116860195309e+18) ((3558 . 5625) (+ 1103515244 4.61168601842739e+18) -> 4.6116860195309e+18) ((3559 . 5625) (+ 1103515244 4.61168601842739e+18) -> 4.6116860195309e+18) ((3560 . 5625) (+ 1103515244 4.61168601842739e+18) -> 4.6116860195309e+18) ((3561 . 5625) (+ 1103515245 4.61168601842739e+18) -> 4.6116860195309e+18) ((3562 . 5625) (+ 1103515245 4.61168601842739e+18) -> 4.6116860195309e+18) ((3563 . 5625) (+ 1103515245 4.61168601842739e+18) -> 4.6116860195309e+18) ((3564 . 5625) (+ 1103515245 4.61168601842739e+18) -> 4.6116860195309e+18) ((3565 . 5625) (+ 1103515245 4.61168601842739e+18) -> 4.6116860195309e+18) ((3566 . 5625) (+ 1103515246 4.61168601842739e+18) -> 4.6116860195309e+18) ((3567 . 5625) (+ 1103515246 4.61168601842739e+18) -> 4.6116860195309e+18) ((3568 . 5625) (+ 1103515246 4.61168601842739e+18) -> 4.6116860195309e+18) ((3569 . 5625) (+ 1103515246 4.61168601842739e+18) -> 4.6116860195309e+18) ((3570 . 5625) (+ 1103515246 4.61168601842739e+18) -> 4.6116860195309e+18) ((3571 . 5625) (+ 1103515247 4.61168601842739e+18) -> 4.6116860195309e+18) ((3572 . 5625) (+ 1103515247 4.61168601842739e+18) -> 4.6116860195309e+18) ((3573 . 5625) (+ 1103515247 4.61168601842739e+18) -> 4.6116860195309e+18) ((3574 . 5625) (+ 1103515247 4.61168601842739e+18) -> 4.6116860195309e+18) ((3575 . 5625) (+ 1103515247 4.61168601842739e+18) -> 4.6116860195309e+18) ((3576 . 5625) (+ 1103515243 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3577 . 5625) (+ 1103515243 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3578 . 5625) (+ 1103515243 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3579 . 5625) (+ 1103515243 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3580 . 5625) (+ 1103515243 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3581 . 5625) (+ 1103515244 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3582 . 5625) (+ 1103515244 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3583 . 5625) (+ 1103515244 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3584 . 5625) (+ 1103515244 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3585 . 5625) (+ 1103515244 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3586 . 5625) (+ 1103515245 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3587 . 5625) (+ 1103515245 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3588 . 5625) (+ 1103515245 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3589 . 5625) (+ 1103515245 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3590 . 5625) (+ 1103515245 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3591 . 5625) (+ 1103515246 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3592 . 5625) (+ 1103515246 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3593 . 5625) (+ 1103515246 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3594 . 5625) (+ 1103515246 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3595 . 5625) (+ 1103515246 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3596 . 5625) (+ 1103515247 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3597 . 5625) (+ 1103515247 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3598 . 5625) (+ 1103515247 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3599 . 5625) (+ 1103515247 -4.61168601842739e+18) -> -4.61168601732387e+18) ((3600 . 5625) (+ 1103515247 -4.61168601842739e+18) -> -4.61168601732387e+18) ((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) -> 4.61168601905902e+18) ((3877 . 5625) (+ 631629063 4611686018427387902) -> 4.61168601905902e+18) ((3878 . 5625) (+ 631629063 4611686018427387903) -> 4.61168601905902e+18) ((3879 . 5625) (+ 631629063 4.61168601842739e+18) -> 4.61168601905902e+18) ((3880 . 5625) (+ 631629063 4.61168601842739e+18) -> 4.61168601905902e+18) ((3881 . 5625) (+ 631629064 4611686018427387901) -> 4.61168601905902e+18) ((3882 . 5625) (+ 631629064 4611686018427387902) -> 4.61168601905902e+18) ((3883 . 5625) (+ 631629064 4611686018427387903) -> 4.61168601905902e+18) ((3884 . 5625) (+ 631629064 4.61168601842739e+18) -> 4.61168601905902e+18) ((3885 . 5625) (+ 631629064 4.61168601842739e+18) -> 4.61168601905902e+18) ((3886 . 5625) (+ 631629065 4611686018427387901) -> 4.61168601905902e+18) ((3887 . 5625) (+ 631629065 4611686018427387902) -> 4.61168601905902e+18) ((3888 . 5625) (+ 631629065 4611686018427387903) -> 4.61168601905902e+18) ((3889 . 5625) (+ 631629065 4.61168601842739e+18) -> 4.61168601905902e+18) ((3890 . 5625) (+ 631629065 4.61168601842739e+18) -> 4.61168601905902e+18) ((3891 . 5625) (+ 631629066 4611686018427387901) -> 4.61168601905902e+18) ((3892 . 5625) (+ 631629066 4611686018427387902) -> 4.61168601905902e+18) ((3893 . 5625) (+ 631629066 4611686018427387903) -> 4.61168601905902e+18) ((3894 . 5625) (+ 631629066 4.61168601842739e+18) -> 4.61168601905902e+18) ((3895 . 5625) (+ 631629066 4.61168601842739e+18) -> 4.61168601905902e+18) ((3896 . 5625) (+ 631629067 4611686018427387901) -> 4.61168601905902e+18) ((3897 . 5625) (+ 631629067 4611686018427387902) -> 4.61168601905902e+18) ((3898 . 5625) (+ 631629067 4611686018427387903) -> 4.61168601905902e+18) ((3899 . 5625) (+ 631629067 4.61168601842739e+18) -> 4.61168601905902e+18) ((3900 . 5625) (+ 631629067 4.61168601842739e+18) -> 4.61168601905902e+18) ((3901 . 5625) (+ 631629063 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3902 . 5625) (+ 631629063 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3903 . 5625) (+ 631629063 -4611686018427387904) -> -4611686017795758841) ((3904 . 5625) (+ 631629063 -4611686018427387903) -> -4611686017795758840) ((3905 . 5625) (+ 631629063 -4611686018427387902) -> -4611686017795758839) ((3906 . 5625) (+ 631629064 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3907 . 5625) (+ 631629064 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3908 . 5625) (+ 631629064 -4611686018427387904) -> -4611686017795758840) ((3909 . 5625) (+ 631629064 -4611686018427387903) -> -4611686017795758839) ((3910 . 5625) (+ 631629064 -4611686018427387902) -> -4611686017795758838) ((3911 . 5625) (+ 631629065 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3912 . 5625) (+ 631629065 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3913 . 5625) (+ 631629065 -4611686018427387904) -> -4611686017795758839) ((3914 . 5625) (+ 631629065 -4611686018427387903) -> -4611686017795758838) ((3915 . 5625) (+ 631629065 -4611686018427387902) -> -4611686017795758837) ((3916 . 5625) (+ 631629066 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3917 . 5625) (+ 631629066 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3918 . 5625) (+ 631629066 -4611686018427387904) -> -4611686017795758838) ((3919 . 5625) (+ 631629066 -4611686018427387903) -> -4611686017795758837) ((3920 . 5625) (+ 631629066 -4611686018427387902) -> -4611686017795758836) ((3921 . 5625) (+ 631629067 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3922 . 5625) (+ 631629067 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3923 . 5625) (+ 631629067 -4611686018427387904) -> -4611686017795758837) ((3924 . 5625) (+ 631629067 -4611686018427387903) -> -4611686017795758836) ((3925 . 5625) (+ 631629067 -4611686018427387902) -> -4611686017795758835) ((3926 . 5625) (+ 631629063 4.61168601842739e+18) -> 4.61168601905902e+18) ((3927 . 5625) (+ 631629063 4.61168601842739e+18) -> 4.61168601905902e+18) ((3928 . 5625) (+ 631629063 4.61168601842739e+18) -> 4.61168601905902e+18) ((3929 . 5625) (+ 631629063 4.61168601842739e+18) -> 4.61168601905902e+18) ((3930 . 5625) (+ 631629063 4.61168601842739e+18) -> 4.61168601905902e+18) ((3931 . 5625) (+ 631629064 4.61168601842739e+18) -> 4.61168601905902e+18) ((3932 . 5625) (+ 631629064 4.61168601842739e+18) -> 4.61168601905902e+18) ((3933 . 5625) (+ 631629064 4.61168601842739e+18) -> 4.61168601905902e+18) ((3934 . 5625) (+ 631629064 4.61168601842739e+18) -> 4.61168601905902e+18) ((3935 . 5625) (+ 631629064 4.61168601842739e+18) -> 4.61168601905902e+18) ((3936 . 5625) (+ 631629065 4.61168601842739e+18) -> 4.61168601905902e+18) ((3937 . 5625) (+ 631629065 4.61168601842739e+18) -> 4.61168601905902e+18) ((3938 . 5625) (+ 631629065 4.61168601842739e+18) -> 4.61168601905902e+18) ((3939 . 5625) (+ 631629065 4.61168601842739e+18) -> 4.61168601905902e+18) ((3940 . 5625) (+ 631629065 4.61168601842739e+18) -> 4.61168601905902e+18) ((3941 . 5625) (+ 631629066 4.61168601842739e+18) -> 4.61168601905902e+18) ((3942 . 5625) (+ 631629066 4.61168601842739e+18) -> 4.61168601905902e+18) ((3943 . 5625) (+ 631629066 4.61168601842739e+18) -> 4.61168601905902e+18) ((3944 . 5625) (+ 631629066 4.61168601842739e+18) -> 4.61168601905902e+18) ((3945 . 5625) (+ 631629066 4.61168601842739e+18) -> 4.61168601905902e+18) ((3946 . 5625) (+ 631629067 4.61168601842739e+18) -> 4.61168601905902e+18) ((3947 . 5625) (+ 631629067 4.61168601842739e+18) -> 4.61168601905902e+18) ((3948 . 5625) (+ 631629067 4.61168601842739e+18) -> 4.61168601905902e+18) ((3949 . 5625) (+ 631629067 4.61168601842739e+18) -> 4.61168601905902e+18) ((3950 . 5625) (+ 631629067 4.61168601842739e+18) -> 4.61168601905902e+18) ((3951 . 5625) (+ 631629063 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3952 . 5625) (+ 631629063 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3953 . 5625) (+ 631629063 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3954 . 5625) (+ 631629063 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3955 . 5625) (+ 631629063 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3956 . 5625) (+ 631629064 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3957 . 5625) (+ 631629064 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3958 . 5625) (+ 631629064 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3959 . 5625) (+ 631629064 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3960 . 5625) (+ 631629064 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3961 . 5625) (+ 631629065 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3962 . 5625) (+ 631629065 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3963 . 5625) (+ 631629065 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3964 . 5625) (+ 631629065 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3965 . 5625) (+ 631629065 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3966 . 5625) (+ 631629066 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3967 . 5625) (+ 631629066 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3968 . 5625) (+ 631629066 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3969 . 5625) (+ 631629066 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3970 . 5625) (+ 631629066 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3971 . 5625) (+ 631629067 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3972 . 5625) (+ 631629067 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3973 . 5625) (+ 631629067 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3974 . 5625) (+ 631629067 -4.61168601842739e+18) -> -4.61168601779576e+18) ((3975 . 5625) (+ 631629067 -4.61168601842739e+18) -> -4.61168601779576e+18) ((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) -> 4.62069321768213e+18) ((4252 . 5625) (+ 9007199254740990 4611686018427387902) -> 4.62069321768213e+18) ((4253 . 5625) (+ 9007199254740990 4611686018427387903) -> 4.62069321768213e+18) ((4254 . 5625) (+ 9007199254740990 4.61168601842739e+18) -> 4.62069321768213e+18) ((4255 . 5625) (+ 9007199254740990 4.61168601842739e+18) -> 4.62069321768213e+18) ((4256 . 5625) (+ 9007199254740991 4611686018427387901) -> 4.62069321768213e+18) ((4257 . 5625) (+ 9007199254740991 4611686018427387902) -> 4.62069321768213e+18) ((4258 . 5625) (+ 9007199254740991 4611686018427387903) -> 4.62069321768213e+18) ((4259 . 5625) (+ 9007199254740991 4.61168601842739e+18) -> 4.62069321768213e+18) ((4260 . 5625) (+ 9007199254740991 4.61168601842739e+18) -> 4.62069321768213e+18) ((4261 . 5625) (+ 9007199254740992 4611686018427387901) -> 4.62069321768213e+18) ((4262 . 5625) (+ 9007199254740992 4611686018427387902) -> 4.62069321768213e+18) ((4263 . 5625) (+ 9007199254740992 4611686018427387903) -> 4.62069321768213e+18) ((4264 . 5625) (+ 9007199254740992 4.61168601842739e+18) -> 4.62069321768213e+18) ((4265 . 5625) (+ 9007199254740992 4.61168601842739e+18) -> 4.62069321768213e+18) ((4266 . 5625) (+ 9007199254740993 4611686018427387901) -> 4.62069321768213e+18) ((4267 . 5625) (+ 9007199254740993 4611686018427387902) -> 4.62069321768213e+18) ((4268 . 5625) (+ 9007199254740993 4611686018427387903) -> 4.62069321768213e+18) ((4269 . 5625) (+ 9007199254740993 4.61168601842739e+18) -> 4.62069321768213e+18) ((4270 . 5625) (+ 9007199254740993 4.61168601842739e+18) -> 4.62069321768213e+18) ((4271 . 5625) (+ 9007199254740994 4611686018427387901) -> 4.62069321768213e+18) ((4272 . 5625) (+ 9007199254740994 4611686018427387902) -> 4.62069321768213e+18) ((4273 . 5625) (+ 9007199254740994 4611686018427387903) -> 4.62069321768213e+18) ((4274 . 5625) (+ 9007199254740994 4.61168601842739e+18) -> 4.62069321768213e+18) ((4275 . 5625) (+ 9007199254740994 4.61168601842739e+18) -> 4.62069321768213e+18) ((4276 . 5625) (+ 9007199254740990 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4277 . 5625) (+ 9007199254740990 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4278 . 5625) (+ 9007199254740990 -4611686018427387904) -> -4602678819172646914) ((4279 . 5625) (+ 9007199254740990 -4611686018427387903) -> -4602678819172646913) ((4280 . 5625) (+ 9007199254740990 -4611686018427387902) -> -4602678819172646912) ((4281 . 5625) (+ 9007199254740991 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4282 . 5625) (+ 9007199254740991 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4283 . 5625) (+ 9007199254740991 -4611686018427387904) -> -4602678819172646913) ((4284 . 5625) (+ 9007199254740991 -4611686018427387903) -> -4602678819172646912) ((4285 . 5625) (+ 9007199254740991 -4611686018427387902) -> -4602678819172646911) ((4286 . 5625) (+ 9007199254740992 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4287 . 5625) (+ 9007199254740992 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4288 . 5625) (+ 9007199254740992 -4611686018427387904) -> -4602678819172646912) ((4289 . 5625) (+ 9007199254740992 -4611686018427387903) -> -4602678819172646911) ((4290 . 5625) (+ 9007199254740992 -4611686018427387902) -> -4602678819172646910) ((4291 . 5625) (+ 9007199254740993 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4292 . 5625) (+ 9007199254740993 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4293 . 5625) (+ 9007199254740993 -4611686018427387904) -> -4602678819172646911) ((4294 . 5625) (+ 9007199254740993 -4611686018427387903) -> -4602678819172646910) ((4295 . 5625) (+ 9007199254740993 -4611686018427387902) -> -4602678819172646909) ((4296 . 5625) (+ 9007199254740994 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4297 . 5625) (+ 9007199254740994 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4298 . 5625) (+ 9007199254740994 -4611686018427387904) -> -4602678819172646910) ((4299 . 5625) (+ 9007199254740994 -4611686018427387903) -> -4602678819172646909) ((4300 . 5625) (+ 9007199254740994 -4611686018427387902) -> -4602678819172646908) ((4301 . 5625) (+ 9007199254740990 4.61168601842739e+18) -> 4.62069321768213e+18) ((4302 . 5625) (+ 9007199254740990 4.61168601842739e+18) -> 4.62069321768213e+18) ((4303 . 5625) (+ 9007199254740990 4.61168601842739e+18) -> 4.62069321768213e+18) ((4304 . 5625) (+ 9007199254740990 4.61168601842739e+18) -> 4.62069321768213e+18) ((4305 . 5625) (+ 9007199254740990 4.61168601842739e+18) -> 4.62069321768213e+18) ((4306 . 5625) (+ 9007199254740991 4.61168601842739e+18) -> 4.62069321768213e+18) ((4307 . 5625) (+ 9007199254740991 4.61168601842739e+18) -> 4.62069321768213e+18) ((4308 . 5625) (+ 9007199254740991 4.61168601842739e+18) -> 4.62069321768213e+18) ((4309 . 5625) (+ 9007199254740991 4.61168601842739e+18) -> 4.62069321768213e+18) ((4310 . 5625) (+ 9007199254740991 4.61168601842739e+18) -> 4.62069321768213e+18) ((4311 . 5625) (+ 9007199254740992 4.61168601842739e+18) -> 4.62069321768213e+18) ((4312 . 5625) (+ 9007199254740992 4.61168601842739e+18) -> 4.62069321768213e+18) ((4313 . 5625) (+ 9007199254740992 4.61168601842739e+18) -> 4.62069321768213e+18) ((4314 . 5625) (+ 9007199254740992 4.61168601842739e+18) -> 4.62069321768213e+18) ((4315 . 5625) (+ 9007199254740992 4.61168601842739e+18) -> 4.62069321768213e+18) ((4316 . 5625) (+ 9007199254740993 4.61168601842739e+18) -> 4.62069321768213e+18) ((4317 . 5625) (+ 9007199254740993 4.61168601842739e+18) -> 4.62069321768213e+18) ((4318 . 5625) (+ 9007199254740993 4.61168601842739e+18) -> 4.62069321768213e+18) ((4319 . 5625) (+ 9007199254740993 4.61168601842739e+18) -> 4.62069321768213e+18) ((4320 . 5625) (+ 9007199254740993 4.61168601842739e+18) -> 4.62069321768213e+18) ((4321 . 5625) (+ 9007199254740994 4.61168601842739e+18) -> 4.62069321768213e+18) ((4322 . 5625) (+ 9007199254740994 4.61168601842739e+18) -> 4.62069321768213e+18) ((4323 . 5625) (+ 9007199254740994 4.61168601842739e+18) -> 4.62069321768213e+18) ((4324 . 5625) (+ 9007199254740994 4.61168601842739e+18) -> 4.62069321768213e+18) ((4325 . 5625) (+ 9007199254740994 4.61168601842739e+18) -> 4.62069321768213e+18) ((4326 . 5625) (+ 9007199254740990 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4327 . 5625) (+ 9007199254740990 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4328 . 5625) (+ 9007199254740990 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4329 . 5625) (+ 9007199254740990 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4330 . 5625) (+ 9007199254740990 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4331 . 5625) (+ 9007199254740991 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4332 . 5625) (+ 9007199254740991 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4333 . 5625) (+ 9007199254740991 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4334 . 5625) (+ 9007199254740991 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4335 . 5625) (+ 9007199254740991 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4336 . 5625) (+ 9007199254740992 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4337 . 5625) (+ 9007199254740992 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4338 . 5625) (+ 9007199254740992 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4339 . 5625) (+ 9007199254740992 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4340 . 5625) (+ 9007199254740992 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4341 . 5625) (+ 9007199254740993 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4342 . 5625) (+ 9007199254740993 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4343 . 5625) (+ 9007199254740993 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4344 . 5625) (+ 9007199254740993 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4345 . 5625) (+ 9007199254740993 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4346 . 5625) (+ 9007199254740994 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4347 . 5625) (+ 9007199254740994 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4348 . 5625) (+ 9007199254740994 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4349 . 5625) (+ 9007199254740994 -4.61168601842739e+18) -> -4.60267881917265e+18) ((4350 . 5625) (+ 9007199254740994 -4.61168601842739e+18) -> -4.60267881917265e+18) ((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 4.61168601842739e+18) -> 4.60267881917265e+18) ((4630 . 5625) (+ -9007199254740994 4.61168601842739e+18) -> 4.60267881917265e+18) ((4631 . 5625) (+ -9007199254740993 4611686018427387901) -> 4602678819172646908) ((4632 . 5625) (+ -9007199254740993 4611686018427387902) -> 4602678819172646909) ((4633 . 5625) (+ -9007199254740993 4611686018427387903) -> 4602678819172646910) ((4634 . 5625) (+ -9007199254740993 4.61168601842739e+18) -> 4.60267881917265e+18) ((4635 . 5625) (+ -9007199254740993 4.61168601842739e+18) -> 4.60267881917265e+18) ((4636 . 5625) (+ -9007199254740992 4611686018427387901) -> 4602678819172646909) ((4637 . 5625) (+ -9007199254740992 4611686018427387902) -> 4602678819172646910) ((4638 . 5625) (+ -9007199254740992 4611686018427387903) -> 4602678819172646911) ((4639 . 5625) (+ -9007199254740992 4.61168601842739e+18) -> 4.60267881917265e+18) ((4640 . 5625) (+ -9007199254740992 4.61168601842739e+18) -> 4.60267881917265e+18) ((4641 . 5625) (+ -9007199254740991 4611686018427387901) -> 4602678819172646910) ((4642 . 5625) (+ -9007199254740991 4611686018427387902) -> 4602678819172646911) ((4643 . 5625) (+ -9007199254740991 4611686018427387903) -> 4602678819172646912) ((4644 . 5625) (+ -9007199254740991 4.61168601842739e+18) -> 4.60267881917265e+18) ((4645 . 5625) (+ -9007199254740991 4.61168601842739e+18) -> 4.60267881917265e+18) ((4646 . 5625) (+ -9007199254740990 4611686018427387901) -> 4602678819172646911) ((4647 . 5625) (+ -9007199254740990 4611686018427387902) -> 4602678819172646912) ((4648 . 5625) (+ -9007199254740990 4611686018427387903) -> 4602678819172646913) ((4649 . 5625) (+ -9007199254740990 4.61168601842739e+18) -> 4.60267881917265e+18) ((4650 . 5625) (+ -9007199254740990 4.61168601842739e+18) -> 4.60267881917265e+18) ((4651 . 5625) (+ -9007199254740994 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4652 . 5625) (+ -9007199254740994 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4653 . 5625) (+ -9007199254740994 -4611686018427387904) -> -4.62069321768213e+18) ((4654 . 5625) (+ -9007199254740994 -4611686018427387903) -> -4.62069321768213e+18) ((4655 . 5625) (+ -9007199254740994 -4611686018427387902) -> -4.62069321768213e+18) ((4656 . 5625) (+ -9007199254740993 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4657 . 5625) (+ -9007199254740993 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4658 . 5625) (+ -9007199254740993 -4611686018427387904) -> -4.62069321768213e+18) ((4659 . 5625) (+ -9007199254740993 -4611686018427387903) -> -4.62069321768213e+18) ((4660 . 5625) (+ -9007199254740993 -4611686018427387902) -> -4.62069321768213e+18) ((4661 . 5625) (+ -9007199254740992 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4662 . 5625) (+ -9007199254740992 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4663 . 5625) (+ -9007199254740992 -4611686018427387904) -> -4.62069321768213e+18) ((4664 . 5625) (+ -9007199254740992 -4611686018427387903) -> -4.62069321768213e+18) ((4665 . 5625) (+ -9007199254740992 -4611686018427387902) -> -4.62069321768213e+18) ((4666 . 5625) (+ -9007199254740991 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4667 . 5625) (+ -9007199254740991 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4668 . 5625) (+ -9007199254740991 -4611686018427387904) -> -4.62069321768213e+18) ((4669 . 5625) (+ -9007199254740991 -4611686018427387903) -> -4.62069321768213e+18) ((4670 . 5625) (+ -9007199254740991 -4611686018427387902) -> -4.62069321768213e+18) ((4671 . 5625) (+ -9007199254740990 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4672 . 5625) (+ -9007199254740990 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4673 . 5625) (+ -9007199254740990 -4611686018427387904) -> -4.62069321768213e+18) ((4674 . 5625) (+ -9007199254740990 -4611686018427387903) -> -4.62069321768213e+18) ((4675 . 5625) (+ -9007199254740990 -4611686018427387902) -> -4.62069321768213e+18) ((4676 . 5625) (+ -9007199254740994 4.61168601842739e+18) -> 4.60267881917265e+18) ((4677 . 5625) (+ -9007199254740994 4.61168601842739e+18) -> 4.60267881917265e+18) ((4678 . 5625) (+ -9007199254740994 4.61168601842739e+18) -> 4.60267881917265e+18) ((4679 . 5625) (+ -9007199254740994 4.61168601842739e+18) -> 4.60267881917265e+18) ((4680 . 5625) (+ -9007199254740994 4.61168601842739e+18) -> 4.60267881917265e+18) ((4681 . 5625) (+ -9007199254740993 4.61168601842739e+18) -> 4.60267881917265e+18) ((4682 . 5625) (+ -9007199254740993 4.61168601842739e+18) -> 4.60267881917265e+18) ((4683 . 5625) (+ -9007199254740993 4.61168601842739e+18) -> 4.60267881917265e+18) ((4684 . 5625) (+ -9007199254740993 4.61168601842739e+18) -> 4.60267881917265e+18) ((4685 . 5625) (+ -9007199254740993 4.61168601842739e+18) -> 4.60267881917265e+18) ((4686 . 5625) (+ -9007199254740992 4.61168601842739e+18) -> 4.60267881917265e+18) ((4687 . 5625) (+ -9007199254740992 4.61168601842739e+18) -> 4.60267881917265e+18) ((4688 . 5625) (+ -9007199254740992 4.61168601842739e+18) -> 4.60267881917265e+18) ((4689 . 5625) (+ -9007199254740992 4.61168601842739e+18) -> 4.60267881917265e+18) ((4690 . 5625) (+ -9007199254740992 4.61168601842739e+18) -> 4.60267881917265e+18) ((4691 . 5625) (+ -9007199254740991 4.61168601842739e+18) -> 4.60267881917265e+18) ((4692 . 5625) (+ -9007199254740991 4.61168601842739e+18) -> 4.60267881917265e+18) ((4693 . 5625) (+ -9007199254740991 4.61168601842739e+18) -> 4.60267881917265e+18) ((4694 . 5625) (+ -9007199254740991 4.61168601842739e+18) -> 4.60267881917265e+18) ((4695 . 5625) (+ -9007199254740991 4.61168601842739e+18) -> 4.60267881917265e+18) ((4696 . 5625) (+ -9007199254740990 4.61168601842739e+18) -> 4.60267881917265e+18) ((4697 . 5625) (+ -9007199254740990 4.61168601842739e+18) -> 4.60267881917265e+18) ((4698 . 5625) (+ -9007199254740990 4.61168601842739e+18) -> 4.60267881917265e+18) ((4699 . 5625) (+ -9007199254740990 4.61168601842739e+18) -> 4.60267881917265e+18) ((4700 . 5625) (+ -9007199254740990 4.61168601842739e+18) -> 4.60267881917265e+18) ((4701 . 5625) (+ -9007199254740994 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4702 . 5625) (+ -9007199254740994 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4703 . 5625) (+ -9007199254740994 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4704 . 5625) (+ -9007199254740994 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4705 . 5625) (+ -9007199254740994 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4706 . 5625) (+ -9007199254740993 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4707 . 5625) (+ -9007199254740993 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4708 . 5625) (+ -9007199254740993 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4709 . 5625) (+ -9007199254740993 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4710 . 5625) (+ -9007199254740993 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4711 . 5625) (+ -9007199254740992 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4712 . 5625) (+ -9007199254740992 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4713 . 5625) (+ -9007199254740992 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4714 . 5625) (+ -9007199254740992 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4715 . 5625) (+ -9007199254740992 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4716 . 5625) (+ -9007199254740991 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4717 . 5625) (+ -9007199254740991 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4718 . 5625) (+ -9007199254740991 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4719 . 5625) (+ -9007199254740991 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4720 . 5625) (+ -9007199254740991 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4721 . 5625) (+ -9007199254740990 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4722 . 5625) (+ -9007199254740990 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4723 . 5625) (+ -9007199254740990 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4724 . 5625) (+ -9007199254740990 -4.61168601842739e+18) -> -4.62069321768213e+18) ((4725 . 5625) (+ -9007199254740990 -4.61168601842739e+18) -> -4.62069321768213e+18) ((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) -> 4.6116860184274e+18) ((5002 . 5625) (+ 12343 4611686018427387902) -> 4.6116860184274e+18) ((5003 . 5625) (+ 12343 4611686018427387903) -> 4.6116860184274e+18) ((5004 . 5625) (+ 12343 4.61168601842739e+18) -> 4.6116860184274e+18) ((5005 . 5625) (+ 12343 4.61168601842739e+18) -> 4.6116860184274e+18) ((5006 . 5625) (+ 12344 4611686018427387901) -> 4.6116860184274e+18) ((5007 . 5625) (+ 12344 4611686018427387902) -> 4.6116860184274e+18) ((5008 . 5625) (+ 12344 4611686018427387903) -> 4.6116860184274e+18) ((5009 . 5625) (+ 12344 4.61168601842739e+18) -> 4.6116860184274e+18) ((5010 . 5625) (+ 12344 4.61168601842739e+18) -> 4.6116860184274e+18) ((5011 . 5625) (+ 12345 4611686018427387901) -> 4.6116860184274e+18) ((5012 . 5625) (+ 12345 4611686018427387902) -> 4.6116860184274e+18) ((5013 . 5625) (+ 12345 4611686018427387903) -> 4.6116860184274e+18) ((5014 . 5625) (+ 12345 4.61168601842739e+18) -> 4.6116860184274e+18) ((5015 . 5625) (+ 12345 4.61168601842739e+18) -> 4.6116860184274e+18) ((5016 . 5625) (+ 12346 4611686018427387901) -> 4.6116860184274e+18) ((5017 . 5625) (+ 12346 4611686018427387902) -> 4.6116860184274e+18) ((5018 . 5625) (+ 12346 4611686018427387903) -> 4.6116860184274e+18) ((5019 . 5625) (+ 12346 4.61168601842739e+18) -> 4.6116860184274e+18) ((5020 . 5625) (+ 12346 4.61168601842739e+18) -> 4.6116860184274e+18) ((5021 . 5625) (+ 12347 4611686018427387901) -> 4.6116860184274e+18) ((5022 . 5625) (+ 12347 4611686018427387902) -> 4.6116860184274e+18) ((5023 . 5625) (+ 12347 4611686018427387903) -> 4.6116860184274e+18) ((5024 . 5625) (+ 12347 4.61168601842739e+18) -> 4.6116860184274e+18) ((5025 . 5625) (+ 12347 4.61168601842739e+18) -> 4.6116860184274e+18) ((5026 . 5625) (+ 12343 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5027 . 5625) (+ 12343 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5028 . 5625) (+ 12343 -4611686018427387904) -> -4611686018427375561) ((5029 . 5625) (+ 12343 -4611686018427387903) -> -4611686018427375560) ((5030 . 5625) (+ 12343 -4611686018427387902) -> -4611686018427375559) ((5031 . 5625) (+ 12344 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5032 . 5625) (+ 12344 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5033 . 5625) (+ 12344 -4611686018427387904) -> -4611686018427375560) ((5034 . 5625) (+ 12344 -4611686018427387903) -> -4611686018427375559) ((5035 . 5625) (+ 12344 -4611686018427387902) -> -4611686018427375558) ((5036 . 5625) (+ 12345 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5037 . 5625) (+ 12345 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5038 . 5625) (+ 12345 -4611686018427387904) -> -4611686018427375559) ((5039 . 5625) (+ 12345 -4611686018427387903) -> -4611686018427375558) ((5040 . 5625) (+ 12345 -4611686018427387902) -> -4611686018427375557) ((5041 . 5625) (+ 12346 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5042 . 5625) (+ 12346 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5043 . 5625) (+ 12346 -4611686018427387904) -> -4611686018427375558) ((5044 . 5625) (+ 12346 -4611686018427387903) -> -4611686018427375557) ((5045 . 5625) (+ 12346 -4611686018427387902) -> -4611686018427375556) ((5046 . 5625) (+ 12347 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5047 . 5625) (+ 12347 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5048 . 5625) (+ 12347 -4611686018427387904) -> -4611686018427375557) ((5049 . 5625) (+ 12347 -4611686018427387903) -> -4611686018427375556) ((5050 . 5625) (+ 12347 -4611686018427387902) -> -4611686018427375555) ((5051 . 5625) (+ 12343 4.61168601842739e+18) -> 4.6116860184274e+18) ((5052 . 5625) (+ 12343 4.61168601842739e+18) -> 4.6116860184274e+18) ((5053 . 5625) (+ 12343 4.61168601842739e+18) -> 4.6116860184274e+18) ((5054 . 5625) (+ 12343 4.61168601842739e+18) -> 4.6116860184274e+18) ((5055 . 5625) (+ 12343 4.61168601842739e+18) -> 4.6116860184274e+18) ((5056 . 5625) (+ 12344 4.61168601842739e+18) -> 4.6116860184274e+18) ((5057 . 5625) (+ 12344 4.61168601842739e+18) -> 4.6116860184274e+18) ((5058 . 5625) (+ 12344 4.61168601842739e+18) -> 4.6116860184274e+18) ((5059 . 5625) (+ 12344 4.61168601842739e+18) -> 4.6116860184274e+18) ((5060 . 5625) (+ 12344 4.61168601842739e+18) -> 4.6116860184274e+18) ((5061 . 5625) (+ 12345 4.61168601842739e+18) -> 4.6116860184274e+18) ((5062 . 5625) (+ 12345 4.61168601842739e+18) -> 4.6116860184274e+18) ((5063 . 5625) (+ 12345 4.61168601842739e+18) -> 4.6116860184274e+18) ((5064 . 5625) (+ 12345 4.61168601842739e+18) -> 4.6116860184274e+18) ((5065 . 5625) (+ 12345 4.61168601842739e+18) -> 4.6116860184274e+18) ((5066 . 5625) (+ 12346 4.61168601842739e+18) -> 4.6116860184274e+18) ((5067 . 5625) (+ 12346 4.61168601842739e+18) -> 4.6116860184274e+18) ((5068 . 5625) (+ 12346 4.61168601842739e+18) -> 4.6116860184274e+18) ((5069 . 5625) (+ 12346 4.61168601842739e+18) -> 4.6116860184274e+18) ((5070 . 5625) (+ 12346 4.61168601842739e+18) -> 4.6116860184274e+18) ((5071 . 5625) (+ 12347 4.61168601842739e+18) -> 4.6116860184274e+18) ((5072 . 5625) (+ 12347 4.61168601842739e+18) -> 4.6116860184274e+18) ((5073 . 5625) (+ 12347 4.61168601842739e+18) -> 4.6116860184274e+18) ((5074 . 5625) (+ 12347 4.61168601842739e+18) -> 4.6116860184274e+18) ((5075 . 5625) (+ 12347 4.61168601842739e+18) -> 4.6116860184274e+18) ((5076 . 5625) (+ 12343 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5077 . 5625) (+ 12343 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5078 . 5625) (+ 12343 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5079 . 5625) (+ 12343 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5080 . 5625) (+ 12343 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5081 . 5625) (+ 12344 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5082 . 5625) (+ 12344 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5083 . 5625) (+ 12344 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5084 . 5625) (+ 12344 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5085 . 5625) (+ 12344 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5086 . 5625) (+ 12345 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5087 . 5625) (+ 12345 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5088 . 5625) (+ 12345 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5089 . 5625) (+ 12345 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5090 . 5625) (+ 12345 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5091 . 5625) (+ 12346 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5092 . 5625) (+ 12346 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5093 . 5625) (+ 12346 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5094 . 5625) (+ 12346 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5095 . 5625) (+ 12346 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5096 . 5625) (+ 12347 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5097 . 5625) (+ 12347 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5098 . 5625) (+ 12347 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5099 . 5625) (+ 12347 -4.61168601842739e+18) -> -4.61168601842738e+18) ((5100 . 5625) (+ 12347 -4.61168601842739e+18) -> -4.61168601842738e+18) ((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) -> 4.61168602272236e+18) ((5377 . 5625) (+ 4294967294 4611686018427387902) -> 4.61168602272236e+18) ((5378 . 5625) (+ 4294967294 4611686018427387903) -> 4.61168602272236e+18) ((5379 . 5625) (+ 4294967294 4.61168601842739e+18) -> 4.61168602272236e+18) ((5380 . 5625) (+ 4294967294 4.61168601842739e+18) -> 4.61168602272236e+18) ((5381 . 5625) (+ 4294967295 4611686018427387901) -> 4.61168602272236e+18) ((5382 . 5625) (+ 4294967295 4611686018427387902) -> 4.61168602272236e+18) ((5383 . 5625) (+ 4294967295 4611686018427387903) -> 4.61168602272236e+18) ((5384 . 5625) (+ 4294967295 4.61168601842739e+18) -> 4.61168602272236e+18) ((5385 . 5625) (+ 4294967295 4.61168601842739e+18) -> 4.61168602272236e+18) ((5386 . 5625) (+ 4294967296 4611686018427387901) -> 4.61168602272236e+18) ((5387 . 5625) (+ 4294967296 4611686018427387902) -> 4.61168602272236e+18) ((5388 . 5625) (+ 4294967296 4611686018427387903) -> 4.61168602272236e+18) ((5389 . 5625) (+ 4294967296 4.61168601842739e+18) -> 4.61168602272236e+18) ((5390 . 5625) (+ 4294967296 4.61168601842739e+18) -> 4.61168602272236e+18) ((5391 . 5625) (+ 4294967297 4611686018427387901) -> 4.61168602272236e+18) ((5392 . 5625) (+ 4294967297 4611686018427387902) -> 4.61168602272236e+18) ((5393 . 5625) (+ 4294967297 4611686018427387903) -> 4.61168602272236e+18) ((5394 . 5625) (+ 4294967297 4.61168601842739e+18) -> 4.61168602272236e+18) ((5395 . 5625) (+ 4294967297 4.61168601842739e+18) -> 4.61168602272236e+18) ((5396 . 5625) (+ 4294967298 4611686018427387901) -> 4.61168602272236e+18) ((5397 . 5625) (+ 4294967298 4611686018427387902) -> 4.61168602272236e+18) ((5398 . 5625) (+ 4294967298 4611686018427387903) -> 4.61168602272236e+18) ((5399 . 5625) (+ 4294967298 4.61168601842739e+18) -> 4.61168602272236e+18) ((5400 . 5625) (+ 4294967298 4.61168601842739e+18) -> 4.61168602272236e+18) ((5401 . 5625) (+ 4294967294 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5402 . 5625) (+ 4294967294 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5403 . 5625) (+ 4294967294 -4611686018427387904) -> -4611686014132420610) ((5404 . 5625) (+ 4294967294 -4611686018427387903) -> -4611686014132420609) ((5405 . 5625) (+ 4294967294 -4611686018427387902) -> -4611686014132420608) ((5406 . 5625) (+ 4294967295 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5407 . 5625) (+ 4294967295 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5408 . 5625) (+ 4294967295 -4611686018427387904) -> -4611686014132420609) ((5409 . 5625) (+ 4294967295 -4611686018427387903) -> -4611686014132420608) ((5410 . 5625) (+ 4294967295 -4611686018427387902) -> -4611686014132420607) ((5411 . 5625) (+ 4294967296 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5412 . 5625) (+ 4294967296 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5413 . 5625) (+ 4294967296 -4611686018427387904) -> -4611686014132420608) ((5414 . 5625) (+ 4294967296 -4611686018427387903) -> -4611686014132420607) ((5415 . 5625) (+ 4294967296 -4611686018427387902) -> -4611686014132420606) ((5416 . 5625) (+ 4294967297 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5417 . 5625) (+ 4294967297 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5418 . 5625) (+ 4294967297 -4611686018427387904) -> -4611686014132420607) ((5419 . 5625) (+ 4294967297 -4611686018427387903) -> -4611686014132420606) ((5420 . 5625) (+ 4294967297 -4611686018427387902) -> -4611686014132420605) ((5421 . 5625) (+ 4294967298 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5422 . 5625) (+ 4294967298 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5423 . 5625) (+ 4294967298 -4611686018427387904) -> -4611686014132420606) ((5424 . 5625) (+ 4294967298 -4611686018427387903) -> -4611686014132420605) ((5425 . 5625) (+ 4294967298 -4611686018427387902) -> -4611686014132420604) ((5426 . 5625) (+ 4294967294 4.61168601842739e+18) -> 4.61168602272236e+18) ((5427 . 5625) (+ 4294967294 4.61168601842739e+18) -> 4.61168602272236e+18) ((5428 . 5625) (+ 4294967294 4.61168601842739e+18) -> 4.61168602272236e+18) ((5429 . 5625) (+ 4294967294 4.61168601842739e+18) -> 4.61168602272236e+18) ((5430 . 5625) (+ 4294967294 4.61168601842739e+18) -> 4.61168602272236e+18) ((5431 . 5625) (+ 4294967295 4.61168601842739e+18) -> 4.61168602272236e+18) ((5432 . 5625) (+ 4294967295 4.61168601842739e+18) -> 4.61168602272236e+18) ((5433 . 5625) (+ 4294967295 4.61168601842739e+18) -> 4.61168602272236e+18) ((5434 . 5625) (+ 4294967295 4.61168601842739e+18) -> 4.61168602272236e+18) ((5435 . 5625) (+ 4294967295 4.61168601842739e+18) -> 4.61168602272236e+18) ((5436 . 5625) (+ 4294967296 4.61168601842739e+18) -> 4.61168602272236e+18) ((5437 . 5625) (+ 4294967296 4.61168601842739e+18) -> 4.61168602272236e+18) ((5438 . 5625) (+ 4294967296 4.61168601842739e+18) -> 4.61168602272236e+18) ((5439 . 5625) (+ 4294967296 4.61168601842739e+18) -> 4.61168602272236e+18) ((5440 . 5625) (+ 4294967296 4.61168601842739e+18) -> 4.61168602272236e+18) ((5441 . 5625) (+ 4294967297 4.61168601842739e+18) -> 4.61168602272236e+18) ((5442 . 5625) (+ 4294967297 4.61168601842739e+18) -> 4.61168602272236e+18) ((5443 . 5625) (+ 4294967297 4.61168601842739e+18) -> 4.61168602272236e+18) ((5444 . 5625) (+ 4294967297 4.61168601842739e+18) -> 4.61168602272236e+18) ((5445 . 5625) (+ 4294967297 4.61168601842739e+18) -> 4.61168602272236e+18) ((5446 . 5625) (+ 4294967298 4.61168601842739e+18) -> 4.61168602272236e+18) ((5447 . 5625) (+ 4294967298 4.61168601842739e+18) -> 4.61168602272236e+18) ((5448 . 5625) (+ 4294967298 4.61168601842739e+18) -> 4.61168602272236e+18) ((5449 . 5625) (+ 4294967298 4.61168601842739e+18) -> 4.61168602272236e+18) ((5450 . 5625) (+ 4294967298 4.61168601842739e+18) -> 4.61168602272236e+18) ((5451 . 5625) (+ 4294967294 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5452 . 5625) (+ 4294967294 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5453 . 5625) (+ 4294967294 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5454 . 5625) (+ 4294967294 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5455 . 5625) (+ 4294967294 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5456 . 5625) (+ 4294967295 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5457 . 5625) (+ 4294967295 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5458 . 5625) (+ 4294967295 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5459 . 5625) (+ 4294967295 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5460 . 5625) (+ 4294967295 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5461 . 5625) (+ 4294967296 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5462 . 5625) (+ 4294967296 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5463 . 5625) (+ 4294967296 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5464 . 5625) (+ 4294967296 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5465 . 5625) (+ 4294967296 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5466 . 5625) (+ 4294967297 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5467 . 5625) (+ 4294967297 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5468 . 5625) (+ 4294967297 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5469 . 5625) (+ 4294967297 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5470 . 5625) (+ 4294967297 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5471 . 5625) (+ 4294967298 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5472 . 5625) (+ 4294967298 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5473 . 5625) (+ 4294967298 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5474 . 5625) (+ 4294967298 -4.61168601842739e+18) -> -4.61168601413242e+18) ((5475 . 5625) (+ 4294967298 -4.61168601842739e+18) -> -4.61168601413242e+18) ((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) -> -4.61168601842739e+18) ((129 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((130 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((131 . 5625) (- -1 4611686018427387901) -> -4611686018427387902) ((132 . 5625) (- -1 4611686018427387902) -> -4611686018427387903) ((133 . 5625) (- -1 4611686018427387903) -> -4611686018427387904) ((134 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((135 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((136 . 5625) (- 0 4611686018427387901) -> -4611686018427387901) ((137 . 5625) (- 0 4611686018427387902) -> -4611686018427387902) ((138 . 5625) (- 0 4611686018427387903) -> -4611686018427387903) ((139 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((140 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((141 . 5625) (- 1 4611686018427387901) -> -4611686018427387900) ((142 . 5625) (- 1 4611686018427387902) -> -4611686018427387901) ((143 . 5625) (- 1 4611686018427387903) -> -4611686018427387902) ((144 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((145 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((146 . 5625) (- 2 4611686018427387901) -> -4611686018427387899) ((147 . 5625) (- 2 4611686018427387902) -> -4611686018427387900) ((148 . 5625) (- 2 4611686018427387903) -> -4611686018427387901) ((149 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((150 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((151 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((152 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((153 . 5625) (- -2 -4611686018427387904) -> 4611686018427387902) ((154 . 5625) (- -2 -4611686018427387903) -> 4611686018427387901) ((155 . 5625) (- -2 -4611686018427387902) -> 4611686018427387900) ((156 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((157 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((158 . 5625) (- -1 -4611686018427387904) -> 4611686018427387903) ((159 . 5625) (- -1 -4611686018427387903) -> 4611686018427387902) ((160 . 5625) (- -1 -4611686018427387902) -> 4611686018427387901) ((161 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((162 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((163 . 5625) (- 0 -4611686018427387904) -> 4.61168601842739e+18) ((164 . 5625) (- 0 -4611686018427387903) -> 4611686018427387903) ((165 . 5625) (- 0 -4611686018427387902) -> 4611686018427387902) ((166 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((167 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((168 . 5625) (- 1 -4611686018427387904) -> 4.61168601842739e+18) ((169 . 5625) (- 1 -4611686018427387903) -> 4.61168601842739e+18) ((170 . 5625) (- 1 -4611686018427387902) -> 4611686018427387903) ((171 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((172 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((173 . 5625) (- 2 -4611686018427387904) -> 4.61168601842739e+18) ((174 . 5625) (- 2 -4611686018427387903) -> 4.61168601842739e+18) ((175 . 5625) (- 2 -4611686018427387902) -> 4.61168601842739e+18) ((176 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((177 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((178 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((179 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((180 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((181 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((182 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((183 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((184 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((185 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((186 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((187 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((188 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((189 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((190 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((191 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((192 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((193 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((194 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((195 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((196 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((197 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((198 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((199 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((200 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((201 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((202 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((203 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((204 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((205 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((206 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((207 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((208 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((209 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((210 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((211 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((212 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((213 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((214 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((215 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((216 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((217 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((218 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((219 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((220 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((221 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((222 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((223 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((224 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((225 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((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 4.61168601842739e+18) -> -4.61168601842739e+18) ((505 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((506 . 5625) (- 0 4611686018427387901) -> -4611686018427387901) ((507 . 5625) (- 0 4611686018427387902) -> -4611686018427387902) ((508 . 5625) (- 0 4611686018427387903) -> -4611686018427387903) ((509 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((510 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((511 . 5625) (- 1 4611686018427387901) -> -4611686018427387900) ((512 . 5625) (- 1 4611686018427387902) -> -4611686018427387901) ((513 . 5625) (- 1 4611686018427387903) -> -4611686018427387902) ((514 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((515 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((516 . 5625) (- 2 4611686018427387901) -> -4611686018427387899) ((517 . 5625) (- 2 4611686018427387902) -> -4611686018427387900) ((518 . 5625) (- 2 4611686018427387903) -> -4611686018427387901) ((519 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((520 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((521 . 5625) (- 3 4611686018427387901) -> -4611686018427387898) ((522 . 5625) (- 3 4611686018427387902) -> -4611686018427387899) ((523 . 5625) (- 3 4611686018427387903) -> -4611686018427387900) ((524 . 5625) (- 3 4.61168601842739e+18) -> -4.61168601842739e+18) ((525 . 5625) (- 3 4.61168601842739e+18) -> -4.61168601842739e+18) ((526 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((527 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((528 . 5625) (- -1 -4611686018427387904) -> 4611686018427387903) ((529 . 5625) (- -1 -4611686018427387903) -> 4611686018427387902) ((530 . 5625) (- -1 -4611686018427387902) -> 4611686018427387901) ((531 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((532 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((533 . 5625) (- 0 -4611686018427387904) -> 4.61168601842739e+18) ((534 . 5625) (- 0 -4611686018427387903) -> 4611686018427387903) ((535 . 5625) (- 0 -4611686018427387902) -> 4611686018427387902) ((536 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((537 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((538 . 5625) (- 1 -4611686018427387904) -> 4.61168601842739e+18) ((539 . 5625) (- 1 -4611686018427387903) -> 4.61168601842739e+18) ((540 . 5625) (- 1 -4611686018427387902) -> 4611686018427387903) ((541 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((542 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((543 . 5625) (- 2 -4611686018427387904) -> 4.61168601842739e+18) ((544 . 5625) (- 2 -4611686018427387903) -> 4.61168601842739e+18) ((545 . 5625) (- 2 -4611686018427387902) -> 4.61168601842739e+18) ((546 . 5625) (- 3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((547 . 5625) (- 3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((548 . 5625) (- 3 -4611686018427387904) -> 4.61168601842739e+18) ((549 . 5625) (- 3 -4611686018427387903) -> 4.61168601842739e+18) ((550 . 5625) (- 3 -4611686018427387902) -> 4.61168601842739e+18) ((551 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((552 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((553 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((554 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((555 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((556 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((557 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((558 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((559 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((560 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((561 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((562 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((563 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((564 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((565 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((566 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((567 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((568 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((569 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((570 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((571 . 5625) (- 3 4.61168601842739e+18) -> -4.61168601842739e+18) ((572 . 5625) (- 3 4.61168601842739e+18) -> -4.61168601842739e+18) ((573 . 5625) (- 3 4.61168601842739e+18) -> -4.61168601842739e+18) ((574 . 5625) (- 3 4.61168601842739e+18) -> -4.61168601842739e+18) ((575 . 5625) (- 3 4.61168601842739e+18) -> -4.61168601842739e+18) ((576 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((577 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((578 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((579 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((580 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((581 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((582 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((583 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((584 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((585 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((586 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((587 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((588 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((589 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((590 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((591 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((592 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((593 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((594 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((595 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((596 . 5625) (- 3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((597 . 5625) (- 3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((598 . 5625) (- 3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((599 . 5625) (- 3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((600 . 5625) (- 3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((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) -> -4.61168601842739e+18) ((878 . 5625) (- -3 4611686018427387903) -> -4.61168601842739e+18) ((879 . 5625) (- -3 4.61168601842739e+18) -> -4.61168601842739e+18) ((880 . 5625) (- -3 4.61168601842739e+18) -> -4.61168601842739e+18) ((881 . 5625) (- -2 4611686018427387901) -> -4611686018427387903) ((882 . 5625) (- -2 4611686018427387902) -> -4611686018427387904) ((883 . 5625) (- -2 4611686018427387903) -> -4.61168601842739e+18) ((884 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((885 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((886 . 5625) (- -1 4611686018427387901) -> -4611686018427387902) ((887 . 5625) (- -1 4611686018427387902) -> -4611686018427387903) ((888 . 5625) (- -1 4611686018427387903) -> -4611686018427387904) ((889 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((890 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((891 . 5625) (- 0 4611686018427387901) -> -4611686018427387901) ((892 . 5625) (- 0 4611686018427387902) -> -4611686018427387902) ((893 . 5625) (- 0 4611686018427387903) -> -4611686018427387903) ((894 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((895 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((896 . 5625) (- 1 4611686018427387901) -> -4611686018427387900) ((897 . 5625) (- 1 4611686018427387902) -> -4611686018427387901) ((898 . 5625) (- 1 4611686018427387903) -> -4611686018427387902) ((899 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((900 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((901 . 5625) (- -3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((902 . 5625) (- -3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((903 . 5625) (- -3 -4611686018427387904) -> 4611686018427387901) ((904 . 5625) (- -3 -4611686018427387903) -> 4611686018427387900) ((905 . 5625) (- -3 -4611686018427387902) -> 4611686018427387899) ((906 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((907 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((908 . 5625) (- -2 -4611686018427387904) -> 4611686018427387902) ((909 . 5625) (- -2 -4611686018427387903) -> 4611686018427387901) ((910 . 5625) (- -2 -4611686018427387902) -> 4611686018427387900) ((911 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((912 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((913 . 5625) (- -1 -4611686018427387904) -> 4611686018427387903) ((914 . 5625) (- -1 -4611686018427387903) -> 4611686018427387902) ((915 . 5625) (- -1 -4611686018427387902) -> 4611686018427387901) ((916 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((917 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((918 . 5625) (- 0 -4611686018427387904) -> 4.61168601842739e+18) ((919 . 5625) (- 0 -4611686018427387903) -> 4611686018427387903) ((920 . 5625) (- 0 -4611686018427387902) -> 4611686018427387902) ((921 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((922 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((923 . 5625) (- 1 -4611686018427387904) -> 4.61168601842739e+18) ((924 . 5625) (- 1 -4611686018427387903) -> 4.61168601842739e+18) ((925 . 5625) (- 1 -4611686018427387902) -> 4611686018427387903) ((926 . 5625) (- -3 4.61168601842739e+18) -> -4.61168601842739e+18) ((927 . 5625) (- -3 4.61168601842739e+18) -> -4.61168601842739e+18) ((928 . 5625) (- -3 4.61168601842739e+18) -> -4.61168601842739e+18) ((929 . 5625) (- -3 4.61168601842739e+18) -> -4.61168601842739e+18) ((930 . 5625) (- -3 4.61168601842739e+18) -> -4.61168601842739e+18) ((931 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((932 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((933 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((934 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((935 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((936 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((937 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((938 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((939 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((940 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((941 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((942 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((943 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((944 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((945 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((946 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((947 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((948 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((949 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((950 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((951 . 5625) (- -3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((952 . 5625) (- -3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((953 . 5625) (- -3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((954 . 5625) (- -3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((955 . 5625) (- -3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((956 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((957 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((958 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((959 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((960 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((961 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((962 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((963 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((964 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((965 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((966 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((967 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((968 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((969 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((970 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((971 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((972 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((973 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((974 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((975 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((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 4.61168601842739e+18) -> -4.61168601842739e+18) ((1255 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((1256 . 5625) (- 1 4611686018427387901) -> -4611686018427387900) ((1257 . 5625) (- 1 4611686018427387902) -> -4611686018427387901) ((1258 . 5625) (- 1 4611686018427387903) -> -4611686018427387902) ((1259 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1260 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1261 . 5625) (- 2 4611686018427387901) -> -4611686018427387899) ((1262 . 5625) (- 2 4611686018427387902) -> -4611686018427387900) ((1263 . 5625) (- 2 4611686018427387903) -> -4611686018427387901) ((1264 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((1265 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((1266 . 5625) (- 3 4611686018427387901) -> -4611686018427387898) ((1267 . 5625) (- 3 4611686018427387902) -> -4611686018427387899) ((1268 . 5625) (- 3 4611686018427387903) -> -4611686018427387900) ((1269 . 5625) (- 3 4.61168601842739e+18) -> -4.61168601842739e+18) ((1270 . 5625) (- 3 4.61168601842739e+18) -> -4.61168601842739e+18) ((1271 . 5625) (- 4 4611686018427387901) -> -4611686018427387897) ((1272 . 5625) (- 4 4611686018427387902) -> -4611686018427387898) ((1273 . 5625) (- 4 4611686018427387903) -> -4611686018427387899) ((1274 . 5625) (- 4 4.61168601842739e+18) -> -4.61168601842739e+18) ((1275 . 5625) (- 4 4.61168601842739e+18) -> -4.61168601842739e+18) ((1276 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1277 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1278 . 5625) (- 0 -4611686018427387904) -> 4.61168601842739e+18) ((1279 . 5625) (- 0 -4611686018427387903) -> 4611686018427387903) ((1280 . 5625) (- 0 -4611686018427387902) -> 4611686018427387902) ((1281 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1282 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1283 . 5625) (- 1 -4611686018427387904) -> 4.61168601842739e+18) ((1284 . 5625) (- 1 -4611686018427387903) -> 4.61168601842739e+18) ((1285 . 5625) (- 1 -4611686018427387902) -> 4611686018427387903) ((1286 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1287 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1288 . 5625) (- 2 -4611686018427387904) -> 4.61168601842739e+18) ((1289 . 5625) (- 2 -4611686018427387903) -> 4.61168601842739e+18) ((1290 . 5625) (- 2 -4611686018427387902) -> 4.61168601842739e+18) ((1291 . 5625) (- 3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1292 . 5625) (- 3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1293 . 5625) (- 3 -4611686018427387904) -> 4.61168601842739e+18) ((1294 . 5625) (- 3 -4611686018427387903) -> 4.61168601842739e+18) ((1295 . 5625) (- 3 -4611686018427387902) -> 4.61168601842739e+18) ((1296 . 5625) (- 4 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1297 . 5625) (- 4 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1298 . 5625) (- 4 -4611686018427387904) -> 4.61168601842739e+18) ((1299 . 5625) (- 4 -4611686018427387903) -> 4.61168601842739e+18) ((1300 . 5625) (- 4 -4611686018427387902) -> 4.61168601842739e+18) ((1301 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((1302 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((1303 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((1304 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((1305 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((1306 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1307 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1308 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1309 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1310 . 5625) (- 1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1311 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((1312 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((1313 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((1314 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((1315 . 5625) (- 2 4.61168601842739e+18) -> -4.61168601842739e+18) ((1316 . 5625) (- 3 4.61168601842739e+18) -> -4.61168601842739e+18) ((1317 . 5625) (- 3 4.61168601842739e+18) -> -4.61168601842739e+18) ((1318 . 5625) (- 3 4.61168601842739e+18) -> -4.61168601842739e+18) ((1319 . 5625) (- 3 4.61168601842739e+18) -> -4.61168601842739e+18) ((1320 . 5625) (- 3 4.61168601842739e+18) -> -4.61168601842739e+18) ((1321 . 5625) (- 4 4.61168601842739e+18) -> -4.61168601842739e+18) ((1322 . 5625) (- 4 4.61168601842739e+18) -> -4.61168601842739e+18) ((1323 . 5625) (- 4 4.61168601842739e+18) -> -4.61168601842739e+18) ((1324 . 5625) (- 4 4.61168601842739e+18) -> -4.61168601842739e+18) ((1325 . 5625) (- 4 4.61168601842739e+18) -> -4.61168601842739e+18) ((1326 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1327 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1328 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1329 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1330 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1331 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1332 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1333 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1334 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1335 . 5625) (- 1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1336 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1337 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1338 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1339 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1340 . 5625) (- 2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1341 . 5625) (- 3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1342 . 5625) (- 3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1343 . 5625) (- 3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1344 . 5625) (- 3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1345 . 5625) (- 3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1346 . 5625) (- 4 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1347 . 5625) (- 4 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1348 . 5625) (- 4 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1349 . 5625) (- 4 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1350 . 5625) (- 4 -4.61168601842739e+18) -> 4.61168601842739e+18) ((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) -> -4.61168601842739e+18) ((1627 . 5625) (- -4 4611686018427387902) -> -4.61168601842739e+18) ((1628 . 5625) (- -4 4611686018427387903) -> -4.61168601842739e+18) ((1629 . 5625) (- -4 4.61168601842739e+18) -> -4.61168601842739e+18) ((1630 . 5625) (- -4 4.61168601842739e+18) -> -4.61168601842739e+18) ((1631 . 5625) (- -3 4611686018427387901) -> -4611686018427387904) ((1632 . 5625) (- -3 4611686018427387902) -> -4.61168601842739e+18) ((1633 . 5625) (- -3 4611686018427387903) -> -4.61168601842739e+18) ((1634 . 5625) (- -3 4.61168601842739e+18) -> -4.61168601842739e+18) ((1635 . 5625) (- -3 4.61168601842739e+18) -> -4.61168601842739e+18) ((1636 . 5625) (- -2 4611686018427387901) -> -4611686018427387903) ((1637 . 5625) (- -2 4611686018427387902) -> -4611686018427387904) ((1638 . 5625) (- -2 4611686018427387903) -> -4.61168601842739e+18) ((1639 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((1640 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((1641 . 5625) (- -1 4611686018427387901) -> -4611686018427387902) ((1642 . 5625) (- -1 4611686018427387902) -> -4611686018427387903) ((1643 . 5625) (- -1 4611686018427387903) -> -4611686018427387904) ((1644 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1645 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1646 . 5625) (- 0 4611686018427387901) -> -4611686018427387901) ((1647 . 5625) (- 0 4611686018427387902) -> -4611686018427387902) ((1648 . 5625) (- 0 4611686018427387903) -> -4611686018427387903) ((1649 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((1650 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((1651 . 5625) (- -4 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1652 . 5625) (- -4 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1653 . 5625) (- -4 -4611686018427387904) -> 4611686018427387900) ((1654 . 5625) (- -4 -4611686018427387903) -> 4611686018427387899) ((1655 . 5625) (- -4 -4611686018427387902) -> 4611686018427387898) ((1656 . 5625) (- -3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1657 . 5625) (- -3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1658 . 5625) (- -3 -4611686018427387904) -> 4611686018427387901) ((1659 . 5625) (- -3 -4611686018427387903) -> 4611686018427387900) ((1660 . 5625) (- -3 -4611686018427387902) -> 4611686018427387899) ((1661 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1662 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1663 . 5625) (- -2 -4611686018427387904) -> 4611686018427387902) ((1664 . 5625) (- -2 -4611686018427387903) -> 4611686018427387901) ((1665 . 5625) (- -2 -4611686018427387902) -> 4611686018427387900) ((1666 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1667 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1668 . 5625) (- -1 -4611686018427387904) -> 4611686018427387903) ((1669 . 5625) (- -1 -4611686018427387903) -> 4611686018427387902) ((1670 . 5625) (- -1 -4611686018427387902) -> 4611686018427387901) ((1671 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1672 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1673 . 5625) (- 0 -4611686018427387904) -> 4.61168601842739e+18) ((1674 . 5625) (- 0 -4611686018427387903) -> 4611686018427387903) ((1675 . 5625) (- 0 -4611686018427387902) -> 4611686018427387902) ((1676 . 5625) (- -4 4.61168601842739e+18) -> -4.61168601842739e+18) ((1677 . 5625) (- -4 4.61168601842739e+18) -> -4.61168601842739e+18) ((1678 . 5625) (- -4 4.61168601842739e+18) -> -4.61168601842739e+18) ((1679 . 5625) (- -4 4.61168601842739e+18) -> -4.61168601842739e+18) ((1680 . 5625) (- -4 4.61168601842739e+18) -> -4.61168601842739e+18) ((1681 . 5625) (- -3 4.61168601842739e+18) -> -4.61168601842739e+18) ((1682 . 5625) (- -3 4.61168601842739e+18) -> -4.61168601842739e+18) ((1683 . 5625) (- -3 4.61168601842739e+18) -> -4.61168601842739e+18) ((1684 . 5625) (- -3 4.61168601842739e+18) -> -4.61168601842739e+18) ((1685 . 5625) (- -3 4.61168601842739e+18) -> -4.61168601842739e+18) ((1686 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((1687 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((1688 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((1689 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((1690 . 5625) (- -2 4.61168601842739e+18) -> -4.61168601842739e+18) ((1691 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1692 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1693 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1694 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1695 . 5625) (- -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1696 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((1697 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((1698 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((1699 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((1700 . 5625) (- 0 4.61168601842739e+18) -> -4.61168601842739e+18) ((1701 . 5625) (- -4 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1702 . 5625) (- -4 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1703 . 5625) (- -4 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1704 . 5625) (- -4 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1705 . 5625) (- -4 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1706 . 5625) (- -3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1707 . 5625) (- -3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1708 . 5625) (- -3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1709 . 5625) (- -3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1710 . 5625) (- -3 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1711 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1712 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1713 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1714 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1715 . 5625) (- -2 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1716 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1717 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1718 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1719 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1720 . 5625) (- -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1721 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1722 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1723 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1724 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1725 . 5625) (- 0 -4.61168601842739e+18) -> 4.61168601842739e+18) ((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) -> 4.61168601842739e+18) ((1882 . 5625) (- 4611686018427387902 -1) -> 4611686018427387903) ((1883 . 5625) (- 4611686018427387902 0) -> 4611686018427387902) ((1884 . 5625) (- 4611686018427387902 1) -> 4611686018427387901) ((1885 . 5625) (- 4611686018427387902 2) -> 4611686018427387900) ((1886 . 5625) (- 4611686018427387903 -2) -> 4.61168601842739e+18) ((1887 . 5625) (- 4611686018427387903 -1) -> 4.61168601842739e+18) ((1888 . 5625) (- 4611686018427387903 0) -> 4611686018427387903) ((1889 . 5625) (- 4611686018427387903 1) -> 4611686018427387902) ((1890 . 5625) (- 4611686018427387903 2) -> 4611686018427387901) ((1891 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((1892 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((1893 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((1894 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1895 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((1896 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((1897 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((1898 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((1899 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1900 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((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) -> 4.61168601842739e+18) ((1912 . 5625) (- 4611686018427387903 0) -> 4611686018427387903) ((1913 . 5625) (- 4611686018427387903 1) -> 4611686018427387902) ((1914 . 5625) (- 4611686018427387903 2) -> 4611686018427387901) ((1915 . 5625) (- 4611686018427387903 3) -> 4611686018427387900) ((1916 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((1917 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((1918 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1919 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((1920 . 5625) (- 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((1921 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((1922 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((1923 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1924 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((1925 . 5625) (- 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((1926 . 5625) (- 4611686018427387901 -3) -> 4.61168601842739e+18) ((1927 . 5625) (- 4611686018427387901 -2) -> 4611686018427387903) ((1928 . 5625) (- 4611686018427387901 -1) -> 4611686018427387902) ((1929 . 5625) (- 4611686018427387901 0) -> 4611686018427387901) ((1930 . 5625) (- 4611686018427387901 1) -> 4611686018427387900) ((1931 . 5625) (- 4611686018427387902 -3) -> 4.61168601842739e+18) ((1932 . 5625) (- 4611686018427387902 -2) -> 4.61168601842739e+18) ((1933 . 5625) (- 4611686018427387902 -1) -> 4611686018427387903) ((1934 . 5625) (- 4611686018427387902 0) -> 4611686018427387902) ((1935 . 5625) (- 4611686018427387902 1) -> 4611686018427387901) ((1936 . 5625) (- 4611686018427387903 -3) -> 4.61168601842739e+18) ((1937 . 5625) (- 4611686018427387903 -2) -> 4.61168601842739e+18) ((1938 . 5625) (- 4611686018427387903 -1) -> 4.61168601842739e+18) ((1939 . 5625) (- 4611686018427387903 0) -> 4611686018427387903) ((1940 . 5625) (- 4611686018427387903 1) -> 4611686018427387902) ((1941 . 5625) (- 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((1942 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((1943 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((1944 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((1945 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1946 . 5625) (- 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((1947 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((1948 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((1949 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((1950 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((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) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((1967 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1968 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((1969 . 5625) (- 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((1970 . 5625) (- 4.61168601842739e+18 4) -> 4.61168601842739e+18) ((1971 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((1972 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1973 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((1974 . 5625) (- 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((1975 . 5625) (- 4.61168601842739e+18 4) -> 4.61168601842739e+18) ((1976 . 5625) (- 4611686018427387901 -4) -> 4.61168601842739e+18) ((1977 . 5625) (- 4611686018427387901 -3) -> 4.61168601842739e+18) ((1978 . 5625) (- 4611686018427387901 -2) -> 4611686018427387903) ((1979 . 5625) (- 4611686018427387901 -1) -> 4611686018427387902) ((1980 . 5625) (- 4611686018427387901 0) -> 4611686018427387901) ((1981 . 5625) (- 4611686018427387902 -4) -> 4.61168601842739e+18) ((1982 . 5625) (- 4611686018427387902 -3) -> 4.61168601842739e+18) ((1983 . 5625) (- 4611686018427387902 -2) -> 4.61168601842739e+18) ((1984 . 5625) (- 4611686018427387902 -1) -> 4611686018427387903) ((1985 . 5625) (- 4611686018427387902 0) -> 4611686018427387902) ((1986 . 5625) (- 4611686018427387903 -4) -> 4.61168601842739e+18) ((1987 . 5625) (- 4611686018427387903 -3) -> 4.61168601842739e+18) ((1988 . 5625) (- 4611686018427387903 -2) -> 4.61168601842739e+18) ((1989 . 5625) (- 4611686018427387903 -1) -> 4.61168601842739e+18) ((1990 . 5625) (- 4611686018427387903 0) -> 4611686018427387903) ((1991 . 5625) (- 4.61168601842739e+18 -4) -> 4.61168601842739e+18) ((1992 . 5625) (- 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((1993 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((1994 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((1995 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((1996 . 5625) (- 4.61168601842739e+18 -4) -> 4.61168601842739e+18) ((1997 . 5625) (- 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((1998 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((1999 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2000 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2001 . 5625) (- 4611686018427387901 4611686018427387901) -> 0) ((2002 . 5625) (- 4611686018427387901 4611686018427387902) -> -1) ((2003 . 5625) (- 4611686018427387901 4611686018427387903) -> -2) ((2004 . 5625) (- 4611686018427387901 4.61168601842739e+18) -> 0.0) ((2005 . 5625) (- 4611686018427387901 4.61168601842739e+18) -> 0.0) ((2006 . 5625) (- 4611686018427387902 4611686018427387901) -> 1) ((2007 . 5625) (- 4611686018427387902 4611686018427387902) -> 0) ((2008 . 5625) (- 4611686018427387902 4611686018427387903) -> -1) ((2009 . 5625) (- 4611686018427387902 4.61168601842739e+18) -> 0.0) ((2010 . 5625) (- 4611686018427387902 4.61168601842739e+18) -> 0.0) ((2011 . 5625) (- 4611686018427387903 4611686018427387901) -> 2) ((2012 . 5625) (- 4611686018427387903 4611686018427387902) -> 1) ((2013 . 5625) (- 4611686018427387903 4611686018427387903) -> 0) ((2014 . 5625) (- 4611686018427387903 4.61168601842739e+18) -> 0.0) ((2015 . 5625) (- 4611686018427387903 4.61168601842739e+18) -> 0.0) ((2016 . 5625) (- 4.61168601842739e+18 4611686018427387901) -> 0.0) ((2017 . 5625) (- 4.61168601842739e+18 4611686018427387902) -> 0.0) ((2018 . 5625) (- 4.61168601842739e+18 4611686018427387903) -> 0.0) ((2019 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2020 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2021 . 5625) (- 4.61168601842739e+18 4611686018427387901) -> 0.0) ((2022 . 5625) (- 4.61168601842739e+18 4611686018427387902) -> 0.0) ((2023 . 5625) (- 4.61168601842739e+18 4611686018427387903) -> 0.0) ((2024 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2025 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2026 . 5625) (- 4611686018427387901 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2027 . 5625) (- 4611686018427387901 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2028 . 5625) (- 4611686018427387901 -4611686018427387904) -> 9.22337203685478e+18) ((2029 . 5625) (- 4611686018427387901 -4611686018427387903) -> 9.22337203685478e+18) ((2030 . 5625) (- 4611686018427387901 -4611686018427387902) -> 9.22337203685478e+18) ((2031 . 5625) (- 4611686018427387902 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2032 . 5625) (- 4611686018427387902 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2033 . 5625) (- 4611686018427387902 -4611686018427387904) -> 9.22337203685478e+18) ((2034 . 5625) (- 4611686018427387902 -4611686018427387903) -> 9.22337203685478e+18) ((2035 . 5625) (- 4611686018427387902 -4611686018427387902) -> 9.22337203685478e+18) ((2036 . 5625) (- 4611686018427387903 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2037 . 5625) (- 4611686018427387903 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2038 . 5625) (- 4611686018427387903 -4611686018427387904) -> 9.22337203685478e+18) ((2039 . 5625) (- 4611686018427387903 -4611686018427387903) -> 9.22337203685478e+18) ((2040 . 5625) (- 4611686018427387903 -4611686018427387902) -> 9.22337203685478e+18) ((2041 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2042 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2043 . 5625) (- 4.61168601842739e+18 -4611686018427387904) -> 9.22337203685478e+18) ((2044 . 5625) (- 4.61168601842739e+18 -4611686018427387903) -> 9.22337203685478e+18) ((2045 . 5625) (- 4.61168601842739e+18 -4611686018427387902) -> 9.22337203685478e+18) ((2046 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2047 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2048 . 5625) (- 4.61168601842739e+18 -4611686018427387904) -> 9.22337203685478e+18) ((2049 . 5625) (- 4.61168601842739e+18 -4611686018427387903) -> 9.22337203685478e+18) ((2050 . 5625) (- 4.61168601842739e+18 -4611686018427387902) -> 9.22337203685478e+18) ((2051 . 5625) (- 4611686018427387901 4.61168601842739e+18) -> 0.0) ((2052 . 5625) (- 4611686018427387901 4.61168601842739e+18) -> 0.0) ((2053 . 5625) (- 4611686018427387901 4.61168601842739e+18) -> 0.0) ((2054 . 5625) (- 4611686018427387901 4.61168601842739e+18) -> 0.0) ((2055 . 5625) (- 4611686018427387901 4.61168601842739e+18) -> 0.0) ((2056 . 5625) (- 4611686018427387902 4.61168601842739e+18) -> 0.0) ((2057 . 5625) (- 4611686018427387902 4.61168601842739e+18) -> 0.0) ((2058 . 5625) (- 4611686018427387902 4.61168601842739e+18) -> 0.0) ((2059 . 5625) (- 4611686018427387902 4.61168601842739e+18) -> 0.0) ((2060 . 5625) (- 4611686018427387902 4.61168601842739e+18) -> 0.0) ((2061 . 5625) (- 4611686018427387903 4.61168601842739e+18) -> 0.0) ((2062 . 5625) (- 4611686018427387903 4.61168601842739e+18) -> 0.0) ((2063 . 5625) (- 4611686018427387903 4.61168601842739e+18) -> 0.0) ((2064 . 5625) (- 4611686018427387903 4.61168601842739e+18) -> 0.0) ((2065 . 5625) (- 4611686018427387903 4.61168601842739e+18) -> 0.0) ((2066 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2067 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2068 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2069 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2070 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2071 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2072 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2073 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2074 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2075 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2076 . 5625) (- 4611686018427387901 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2077 . 5625) (- 4611686018427387901 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2078 . 5625) (- 4611686018427387901 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2079 . 5625) (- 4611686018427387901 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2080 . 5625) (- 4611686018427387901 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2081 . 5625) (- 4611686018427387902 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2082 . 5625) (- 4611686018427387902 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2083 . 5625) (- 4611686018427387902 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2084 . 5625) (- 4611686018427387902 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2085 . 5625) (- 4611686018427387902 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2086 . 5625) (- 4611686018427387903 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2087 . 5625) (- 4611686018427387903 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2088 . 5625) (- 4611686018427387903 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2089 . 5625) (- 4611686018427387903 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2090 . 5625) (- 4611686018427387903 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2091 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2092 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2093 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2094 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2095 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2096 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2097 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2098 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2099 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2100 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((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) (- 4.61168601842739e+18 1103515243) -> 4.61168601732387e+18) ((2117 . 5625) (- 4.61168601842739e+18 1103515244) -> 4.61168601732387e+18) ((2118 . 5625) (- 4.61168601842739e+18 1103515245) -> 4.61168601732387e+18) ((2119 . 5625) (- 4.61168601842739e+18 1103515246) -> 4.61168601732387e+18) ((2120 . 5625) (- 4.61168601842739e+18 1103515247) -> 4.61168601732387e+18) ((2121 . 5625) (- 4.61168601842739e+18 1103515243) -> 4.61168601732387e+18) ((2122 . 5625) (- 4.61168601842739e+18 1103515244) -> 4.61168601732387e+18) ((2123 . 5625) (- 4.61168601842739e+18 1103515245) -> 4.61168601732387e+18) ((2124 . 5625) (- 4.61168601842739e+18 1103515246) -> 4.61168601732387e+18) ((2125 . 5625) (- 4.61168601842739e+18 1103515247) -> 4.61168601732387e+18) ((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) (- 4.61168601842739e+18 631629063) -> 4.61168601779576e+18) ((2142 . 5625) (- 4.61168601842739e+18 631629064) -> 4.61168601779576e+18) ((2143 . 5625) (- 4.61168601842739e+18 631629065) -> 4.61168601779576e+18) ((2144 . 5625) (- 4.61168601842739e+18 631629066) -> 4.61168601779576e+18) ((2145 . 5625) (- 4.61168601842739e+18 631629067) -> 4.61168601779576e+18) ((2146 . 5625) (- 4.61168601842739e+18 631629063) -> 4.61168601779576e+18) ((2147 . 5625) (- 4.61168601842739e+18 631629064) -> 4.61168601779576e+18) ((2148 . 5625) (- 4.61168601842739e+18 631629065) -> 4.61168601779576e+18) ((2149 . 5625) (- 4.61168601842739e+18 631629066) -> 4.61168601779576e+18) ((2150 . 5625) (- 4.61168601842739e+18 631629067) -> 4.61168601779576e+18) ((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) (- 4.61168601842739e+18 9007199254740990) -> 4.60267881917265e+18) ((2167 . 5625) (- 4.61168601842739e+18 9007199254740991) -> 4.60267881917265e+18) ((2168 . 5625) (- 4.61168601842739e+18 9007199254740992) -> 4.60267881917265e+18) ((2169 . 5625) (- 4.61168601842739e+18 9007199254740993) -> 4.60267881917265e+18) ((2170 . 5625) (- 4.61168601842739e+18 9007199254740994) -> 4.60267881917265e+18) ((2171 . 5625) (- 4.61168601842739e+18 9007199254740990) -> 4.60267881917265e+18) ((2172 . 5625) (- 4.61168601842739e+18 9007199254740991) -> 4.60267881917265e+18) ((2173 . 5625) (- 4.61168601842739e+18 9007199254740992) -> 4.60267881917265e+18) ((2174 . 5625) (- 4.61168601842739e+18 9007199254740993) -> 4.60267881917265e+18) ((2175 . 5625) (- 4.61168601842739e+18 9007199254740994) -> 4.60267881917265e+18) ((2176 . 5625) (- 4611686018427387901 -9007199254740994) -> 4.62069321768213e+18) ((2177 . 5625) (- 4611686018427387901 -9007199254740993) -> 4.62069321768213e+18) ((2178 . 5625) (- 4611686018427387901 -9007199254740992) -> 4.62069321768213e+18) ((2179 . 5625) (- 4611686018427387901 -9007199254740991) -> 4.62069321768213e+18) ((2180 . 5625) (- 4611686018427387901 -9007199254740990) -> 4.62069321768213e+18) ((2181 . 5625) (- 4611686018427387902 -9007199254740994) -> 4.62069321768213e+18) ((2182 . 5625) (- 4611686018427387902 -9007199254740993) -> 4.62069321768213e+18) ((2183 . 5625) (- 4611686018427387902 -9007199254740992) -> 4.62069321768213e+18) ((2184 . 5625) (- 4611686018427387902 -9007199254740991) -> 4.62069321768213e+18) ((2185 . 5625) (- 4611686018427387902 -9007199254740990) -> 4.62069321768213e+18) ((2186 . 5625) (- 4611686018427387903 -9007199254740994) -> 4.62069321768213e+18) ((2187 . 5625) (- 4611686018427387903 -9007199254740993) -> 4.62069321768213e+18) ((2188 . 5625) (- 4611686018427387903 -9007199254740992) -> 4.62069321768213e+18) ((2189 . 5625) (- 4611686018427387903 -9007199254740991) -> 4.62069321768213e+18) ((2190 . 5625) (- 4611686018427387903 -9007199254740990) -> 4.62069321768213e+18) ((2191 . 5625) (- 4.61168601842739e+18 -9007199254740994) -> 4.62069321768213e+18) ((2192 . 5625) (- 4.61168601842739e+18 -9007199254740993) -> 4.62069321768213e+18) ((2193 . 5625) (- 4.61168601842739e+18 -9007199254740992) -> 4.62069321768213e+18) ((2194 . 5625) (- 4.61168601842739e+18 -9007199254740991) -> 4.62069321768213e+18) ((2195 . 5625) (- 4.61168601842739e+18 -9007199254740990) -> 4.62069321768213e+18) ((2196 . 5625) (- 4.61168601842739e+18 -9007199254740994) -> 4.62069321768213e+18) ((2197 . 5625) (- 4.61168601842739e+18 -9007199254740993) -> 4.62069321768213e+18) ((2198 . 5625) (- 4.61168601842739e+18 -9007199254740992) -> 4.62069321768213e+18) ((2199 . 5625) (- 4.61168601842739e+18 -9007199254740991) -> 4.62069321768213e+18) ((2200 . 5625) (- 4.61168601842739e+18 -9007199254740990) -> 4.62069321768213e+18) ((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) (- 4.61168601842739e+18 12343) -> 4.61168601842738e+18) ((2217 . 5625) (- 4.61168601842739e+18 12344) -> 4.61168601842738e+18) ((2218 . 5625) (- 4.61168601842739e+18 12345) -> 4.61168601842738e+18) ((2219 . 5625) (- 4.61168601842739e+18 12346) -> 4.61168601842738e+18) ((2220 . 5625) (- 4.61168601842739e+18 12347) -> 4.61168601842738e+18) ((2221 . 5625) (- 4.61168601842739e+18 12343) -> 4.61168601842738e+18) ((2222 . 5625) (- 4.61168601842739e+18 12344) -> 4.61168601842738e+18) ((2223 . 5625) (- 4.61168601842739e+18 12345) -> 4.61168601842738e+18) ((2224 . 5625) (- 4.61168601842739e+18 12346) -> 4.61168601842738e+18) ((2225 . 5625) (- 4.61168601842739e+18 12347) -> 4.61168601842738e+18) ((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) (- 4.61168601842739e+18 4294967294) -> 4.61168601413242e+18) ((2242 . 5625) (- 4.61168601842739e+18 4294967295) -> 4.61168601413242e+18) ((2243 . 5625) (- 4.61168601842739e+18 4294967296) -> 4.61168601413242e+18) ((2244 . 5625) (- 4.61168601842739e+18 4294967297) -> 4.61168601413242e+18) ((2245 . 5625) (- 4.61168601842739e+18 4294967298) -> 4.61168601413242e+18) ((2246 . 5625) (- 4.61168601842739e+18 4294967294) -> 4.61168601413242e+18) ((2247 . 5625) (- 4.61168601842739e+18 4294967295) -> 4.61168601413242e+18) ((2248 . 5625) (- 4.61168601842739e+18 4294967296) -> 4.61168601413242e+18) ((2249 . 5625) (- 4.61168601842739e+18 4294967297) -> 4.61168601413242e+18) ((2250 . 5625) (- 4.61168601842739e+18 4294967298) -> 4.61168601413242e+18) ((2251 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((2252 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2253 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2254 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2255 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((2256 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((2257 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2258 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2259 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2260 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((2261 . 5625) (- -4611686018427387904 -2) -> -4611686018427387902) ((2262 . 5625) (- -4611686018427387904 -1) -> -4611686018427387903) ((2263 . 5625) (- -4611686018427387904 0) -> -4611686018427387904) ((2264 . 5625) (- -4611686018427387904 1) -> -4.61168601842739e+18) ((2265 . 5625) (- -4611686018427387904 2) -> -4.61168601842739e+18) ((2266 . 5625) (- -4611686018427387903 -2) -> -4611686018427387901) ((2267 . 5625) (- -4611686018427387903 -1) -> -4611686018427387902) ((2268 . 5625) (- -4611686018427387903 0) -> -4611686018427387903) ((2269 . 5625) (- -4611686018427387903 1) -> -4611686018427387904) ((2270 . 5625) (- -4611686018427387903 2) -> -4.61168601842739e+18) ((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) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2277 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2278 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2279 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((2280 . 5625) (- -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((2281 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2282 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2283 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2284 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((2285 . 5625) (- -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((2286 . 5625) (- -4611686018427387904 -1) -> -4611686018427387903) ((2287 . 5625) (- -4611686018427387904 0) -> -4611686018427387904) ((2288 . 5625) (- -4611686018427387904 1) -> -4.61168601842739e+18) ((2289 . 5625) (- -4611686018427387904 2) -> -4.61168601842739e+18) ((2290 . 5625) (- -4611686018427387904 3) -> -4.61168601842739e+18) ((2291 . 5625) (- -4611686018427387903 -1) -> -4611686018427387902) ((2292 . 5625) (- -4611686018427387903 0) -> -4611686018427387903) ((2293 . 5625) (- -4611686018427387903 1) -> -4611686018427387904) ((2294 . 5625) (- -4611686018427387903 2) -> -4.61168601842739e+18) ((2295 . 5625) (- -4611686018427387903 3) -> -4.61168601842739e+18) ((2296 . 5625) (- -4611686018427387902 -1) -> -4611686018427387901) ((2297 . 5625) (- -4611686018427387902 0) -> -4611686018427387902) ((2298 . 5625) (- -4611686018427387902 1) -> -4611686018427387903) ((2299 . 5625) (- -4611686018427387902 2) -> -4611686018427387904) ((2300 . 5625) (- -4611686018427387902 3) -> -4.61168601842739e+18) ((2301 . 5625) (- -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((2302 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((2303 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2304 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2305 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2306 . 5625) (- -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((2307 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((2308 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2309 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2310 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2311 . 5625) (- -4611686018427387904 -3) -> -4611686018427387901) ((2312 . 5625) (- -4611686018427387904 -2) -> -4611686018427387902) ((2313 . 5625) (- -4611686018427387904 -1) -> -4611686018427387903) ((2314 . 5625) (- -4611686018427387904 0) -> -4611686018427387904) ((2315 . 5625) (- -4611686018427387904 1) -> -4.61168601842739e+18) ((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) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2327 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2328 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((2329 . 5625) (- -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((2330 . 5625) (- -4.61168601842739e+18 4) -> -4.61168601842739e+18) ((2331 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2332 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2333 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((2334 . 5625) (- -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((2335 . 5625) (- -4.61168601842739e+18 4) -> -4.61168601842739e+18) ((2336 . 5625) (- -4611686018427387904 0) -> -4611686018427387904) ((2337 . 5625) (- -4611686018427387904 1) -> -4.61168601842739e+18) ((2338 . 5625) (- -4611686018427387904 2) -> -4.61168601842739e+18) ((2339 . 5625) (- -4611686018427387904 3) -> -4.61168601842739e+18) ((2340 . 5625) (- -4611686018427387904 4) -> -4.61168601842739e+18) ((2341 . 5625) (- -4611686018427387903 0) -> -4611686018427387903) ((2342 . 5625) (- -4611686018427387903 1) -> -4611686018427387904) ((2343 . 5625) (- -4611686018427387903 2) -> -4.61168601842739e+18) ((2344 . 5625) (- -4611686018427387903 3) -> -4.61168601842739e+18) ((2345 . 5625) (- -4611686018427387903 4) -> -4.61168601842739e+18) ((2346 . 5625) (- -4611686018427387902 0) -> -4611686018427387902) ((2347 . 5625) (- -4611686018427387902 1) -> -4611686018427387903) ((2348 . 5625) (- -4611686018427387902 2) -> -4611686018427387904) ((2349 . 5625) (- -4611686018427387902 3) -> -4.61168601842739e+18) ((2350 . 5625) (- -4611686018427387902 4) -> -4.61168601842739e+18) ((2351 . 5625) (- -4.61168601842739e+18 -4) -> -4.61168601842739e+18) ((2352 . 5625) (- -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((2353 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((2354 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2355 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((2356 . 5625) (- -4.61168601842739e+18 -4) -> -4.61168601842739e+18) ((2357 . 5625) (- -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((2358 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((2359 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2360 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((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) (- -4.61168601842739e+18 4611686018427387901) -> -9.22337203685478e+18) ((2377 . 5625) (- -4.61168601842739e+18 4611686018427387902) -> -9.22337203685478e+18) ((2378 . 5625) (- -4.61168601842739e+18 4611686018427387903) -> -9.22337203685478e+18) ((2379 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((2380 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((2381 . 5625) (- -4.61168601842739e+18 4611686018427387901) -> -9.22337203685478e+18) ((2382 . 5625) (- -4.61168601842739e+18 4611686018427387902) -> -9.22337203685478e+18) ((2383 . 5625) (- -4.61168601842739e+18 4611686018427387903) -> -9.22337203685478e+18) ((2384 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((2385 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((2386 . 5625) (- -4611686018427387904 4611686018427387901) -> -9.22337203685478e+18) ((2387 . 5625) (- -4611686018427387904 4611686018427387902) -> -9.22337203685478e+18) ((2388 . 5625) (- -4611686018427387904 4611686018427387903) -> -9.22337203685478e+18) ((2389 . 5625) (- -4611686018427387904 4.61168601842739e+18) -> -9.22337203685478e+18) ((2390 . 5625) (- -4611686018427387904 4.61168601842739e+18) -> -9.22337203685478e+18) ((2391 . 5625) (- -4611686018427387903 4611686018427387901) -> -9.22337203685478e+18) ((2392 . 5625) (- -4611686018427387903 4611686018427387902) -> -9.22337203685478e+18) ((2393 . 5625) (- -4611686018427387903 4611686018427387903) -> -9.22337203685478e+18) ((2394 . 5625) (- -4611686018427387903 4.61168601842739e+18) -> -9.22337203685478e+18) ((2395 . 5625) (- -4611686018427387903 4.61168601842739e+18) -> -9.22337203685478e+18) ((2396 . 5625) (- -4611686018427387902 4611686018427387901) -> -9.22337203685478e+18) ((2397 . 5625) (- -4611686018427387902 4611686018427387902) -> -9.22337203685478e+18) ((2398 . 5625) (- -4611686018427387902 4611686018427387903) -> -9.22337203685478e+18) ((2399 . 5625) (- -4611686018427387902 4.61168601842739e+18) -> -9.22337203685478e+18) ((2400 . 5625) (- -4611686018427387902 4.61168601842739e+18) -> -9.22337203685478e+18) ((2401 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2402 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2403 . 5625) (- -4.61168601842739e+18 -4611686018427387904) -> 0.0) ((2404 . 5625) (- -4.61168601842739e+18 -4611686018427387903) -> 0.0) ((2405 . 5625) (- -4.61168601842739e+18 -4611686018427387902) -> 0.0) ((2406 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2407 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2408 . 5625) (- -4.61168601842739e+18 -4611686018427387904) -> 0.0) ((2409 . 5625) (- -4.61168601842739e+18 -4611686018427387903) -> 0.0) ((2410 . 5625) (- -4.61168601842739e+18 -4611686018427387902) -> 0.0) ((2411 . 5625) (- -4611686018427387904 -4.61168601842739e+18) -> 0.0) ((2412 . 5625) (- -4611686018427387904 -4.61168601842739e+18) -> 0.0) ((2413 . 5625) (- -4611686018427387904 -4611686018427387904) -> 0) ((2414 . 5625) (- -4611686018427387904 -4611686018427387903) -> -1) ((2415 . 5625) (- -4611686018427387904 -4611686018427387902) -> -2) ((2416 . 5625) (- -4611686018427387903 -4.61168601842739e+18) -> 0.0) ((2417 . 5625) (- -4611686018427387903 -4.61168601842739e+18) -> 0.0) ((2418 . 5625) (- -4611686018427387903 -4611686018427387904) -> 1) ((2419 . 5625) (- -4611686018427387903 -4611686018427387903) -> 0) ((2420 . 5625) (- -4611686018427387903 -4611686018427387902) -> -1) ((2421 . 5625) (- -4611686018427387902 -4.61168601842739e+18) -> 0.0) ((2422 . 5625) (- -4611686018427387902 -4.61168601842739e+18) -> 0.0) ((2423 . 5625) (- -4611686018427387902 -4611686018427387904) -> 2) ((2424 . 5625) (- -4611686018427387902 -4611686018427387903) -> 1) ((2425 . 5625) (- -4611686018427387902 -4611686018427387902) -> 0) ((2426 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((2427 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((2428 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((2429 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((2430 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((2431 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((2432 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((2433 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((2434 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((2435 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((2436 . 5625) (- -4611686018427387904 4.61168601842739e+18) -> -9.22337203685478e+18) ((2437 . 5625) (- -4611686018427387904 4.61168601842739e+18) -> -9.22337203685478e+18) ((2438 . 5625) (- -4611686018427387904 4.61168601842739e+18) -> -9.22337203685478e+18) ((2439 . 5625) (- -4611686018427387904 4.61168601842739e+18) -> -9.22337203685478e+18) ((2440 . 5625) (- -4611686018427387904 4.61168601842739e+18) -> -9.22337203685478e+18) ((2441 . 5625) (- -4611686018427387903 4.61168601842739e+18) -> -9.22337203685478e+18) ((2442 . 5625) (- -4611686018427387903 4.61168601842739e+18) -> -9.22337203685478e+18) ((2443 . 5625) (- -4611686018427387903 4.61168601842739e+18) -> -9.22337203685478e+18) ((2444 . 5625) (- -4611686018427387903 4.61168601842739e+18) -> -9.22337203685478e+18) ((2445 . 5625) (- -4611686018427387903 4.61168601842739e+18) -> -9.22337203685478e+18) ((2446 . 5625) (- -4611686018427387902 4.61168601842739e+18) -> -9.22337203685478e+18) ((2447 . 5625) (- -4611686018427387902 4.61168601842739e+18) -> -9.22337203685478e+18) ((2448 . 5625) (- -4611686018427387902 4.61168601842739e+18) -> -9.22337203685478e+18) ((2449 . 5625) (- -4611686018427387902 4.61168601842739e+18) -> -9.22337203685478e+18) ((2450 . 5625) (- -4611686018427387902 4.61168601842739e+18) -> -9.22337203685478e+18) ((2451 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2452 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2453 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2454 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2455 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2456 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2457 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2458 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2459 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2460 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((2461 . 5625) (- -4611686018427387904 -4.61168601842739e+18) -> 0.0) ((2462 . 5625) (- -4611686018427387904 -4.61168601842739e+18) -> 0.0) ((2463 . 5625) (- -4611686018427387904 -4.61168601842739e+18) -> 0.0) ((2464 . 5625) (- -4611686018427387904 -4.61168601842739e+18) -> 0.0) ((2465 . 5625) (- -4611686018427387904 -4.61168601842739e+18) -> 0.0) ((2466 . 5625) (- -4611686018427387903 -4.61168601842739e+18) -> 0.0) ((2467 . 5625) (- -4611686018427387903 -4.61168601842739e+18) -> 0.0) ((2468 . 5625) (- -4611686018427387903 -4.61168601842739e+18) -> 0.0) ((2469 . 5625) (- -4611686018427387903 -4.61168601842739e+18) -> 0.0) ((2470 . 5625) (- -4611686018427387903 -4.61168601842739e+18) -> 0.0) ((2471 . 5625) (- -4611686018427387902 -4.61168601842739e+18) -> 0.0) ((2472 . 5625) (- -4611686018427387902 -4.61168601842739e+18) -> 0.0) ((2473 . 5625) (- -4611686018427387902 -4.61168601842739e+18) -> 0.0) ((2474 . 5625) (- -4611686018427387902 -4.61168601842739e+18) -> 0.0) ((2475 . 5625) (- -4611686018427387902 -4.61168601842739e+18) -> 0.0) ((2476 . 5625) (- -4.61168601842739e+18 1103515243) -> -4.6116860195309e+18) ((2477 . 5625) (- -4.61168601842739e+18 1103515244) -> -4.6116860195309e+18) ((2478 . 5625) (- -4.61168601842739e+18 1103515245) -> -4.6116860195309e+18) ((2479 . 5625) (- -4.61168601842739e+18 1103515246) -> -4.6116860195309e+18) ((2480 . 5625) (- -4.61168601842739e+18 1103515247) -> -4.6116860195309e+18) ((2481 . 5625) (- -4.61168601842739e+18 1103515243) -> -4.6116860195309e+18) ((2482 . 5625) (- -4.61168601842739e+18 1103515244) -> -4.6116860195309e+18) ((2483 . 5625) (- -4.61168601842739e+18 1103515245) -> -4.6116860195309e+18) ((2484 . 5625) (- -4.61168601842739e+18 1103515246) -> -4.6116860195309e+18) ((2485 . 5625) (- -4.61168601842739e+18 1103515247) -> -4.6116860195309e+18) ((2486 . 5625) (- -4611686018427387904 1103515243) -> -4.6116860195309e+18) ((2487 . 5625) (- -4611686018427387904 1103515244) -> -4.6116860195309e+18) ((2488 . 5625) (- -4611686018427387904 1103515245) -> -4.6116860195309e+18) ((2489 . 5625) (- -4611686018427387904 1103515246) -> -4.6116860195309e+18) ((2490 . 5625) (- -4611686018427387904 1103515247) -> -4.6116860195309e+18) ((2491 . 5625) (- -4611686018427387903 1103515243) -> -4.6116860195309e+18) ((2492 . 5625) (- -4611686018427387903 1103515244) -> -4.6116860195309e+18) ((2493 . 5625) (- -4611686018427387903 1103515245) -> -4.6116860195309e+18) ((2494 . 5625) (- -4611686018427387903 1103515246) -> -4.6116860195309e+18) ((2495 . 5625) (- -4611686018427387903 1103515247) -> -4.6116860195309e+18) ((2496 . 5625) (- -4611686018427387902 1103515243) -> -4.6116860195309e+18) ((2497 . 5625) (- -4611686018427387902 1103515244) -> -4.6116860195309e+18) ((2498 . 5625) (- -4611686018427387902 1103515245) -> -4.6116860195309e+18) ((2499 . 5625) (- -4611686018427387902 1103515246) -> -4.6116860195309e+18) ((2500 . 5625) (- -4611686018427387902 1103515247) -> -4.6116860195309e+18) ((2501 . 5625) (- -4.61168601842739e+18 631629063) -> -4.61168601905902e+18) ((2502 . 5625) (- -4.61168601842739e+18 631629064) -> -4.61168601905902e+18) ((2503 . 5625) (- -4.61168601842739e+18 631629065) -> -4.61168601905902e+18) ((2504 . 5625) (- -4.61168601842739e+18 631629066) -> -4.61168601905902e+18) ((2505 . 5625) (- -4.61168601842739e+18 631629067) -> -4.61168601905902e+18) ((2506 . 5625) (- -4.61168601842739e+18 631629063) -> -4.61168601905902e+18) ((2507 . 5625) (- -4.61168601842739e+18 631629064) -> -4.61168601905902e+18) ((2508 . 5625) (- -4.61168601842739e+18 631629065) -> -4.61168601905902e+18) ((2509 . 5625) (- -4.61168601842739e+18 631629066) -> -4.61168601905902e+18) ((2510 . 5625) (- -4.61168601842739e+18 631629067) -> -4.61168601905902e+18) ((2511 . 5625) (- -4611686018427387904 631629063) -> -4.61168601905902e+18) ((2512 . 5625) (- -4611686018427387904 631629064) -> -4.61168601905902e+18) ((2513 . 5625) (- -4611686018427387904 631629065) -> -4.61168601905902e+18) ((2514 . 5625) (- -4611686018427387904 631629066) -> -4.61168601905902e+18) ((2515 . 5625) (- -4611686018427387904 631629067) -> -4.61168601905902e+18) ((2516 . 5625) (- -4611686018427387903 631629063) -> -4.61168601905902e+18) ((2517 . 5625) (- -4611686018427387903 631629064) -> -4.61168601905902e+18) ((2518 . 5625) (- -4611686018427387903 631629065) -> -4.61168601905902e+18) ((2519 . 5625) (- -4611686018427387903 631629066) -> -4.61168601905902e+18) ((2520 . 5625) (- -4611686018427387903 631629067) -> -4.61168601905902e+18) ((2521 . 5625) (- -4611686018427387902 631629063) -> -4.61168601905902e+18) ((2522 . 5625) (- -4611686018427387902 631629064) -> -4.61168601905902e+18) ((2523 . 5625) (- -4611686018427387902 631629065) -> -4.61168601905902e+18) ((2524 . 5625) (- -4611686018427387902 631629066) -> -4.61168601905902e+18) ((2525 . 5625) (- -4611686018427387902 631629067) -> -4.61168601905902e+18) ((2526 . 5625) (- -4.61168601842739e+18 9007199254740990) -> -4.62069321768213e+18) ((2527 . 5625) (- -4.61168601842739e+18 9007199254740991) -> -4.62069321768213e+18) ((2528 . 5625) (- -4.61168601842739e+18 9007199254740992) -> -4.62069321768213e+18) ((2529 . 5625) (- -4.61168601842739e+18 9007199254740993) -> -4.62069321768213e+18) ((2530 . 5625) (- -4.61168601842739e+18 9007199254740994) -> -4.62069321768213e+18) ((2531 . 5625) (- -4.61168601842739e+18 9007199254740990) -> -4.62069321768213e+18) ((2532 . 5625) (- -4.61168601842739e+18 9007199254740991) -> -4.62069321768213e+18) ((2533 . 5625) (- -4.61168601842739e+18 9007199254740992) -> -4.62069321768213e+18) ((2534 . 5625) (- -4.61168601842739e+18 9007199254740993) -> -4.62069321768213e+18) ((2535 . 5625) (- -4.61168601842739e+18 9007199254740994) -> -4.62069321768213e+18) ((2536 . 5625) (- -4611686018427387904 9007199254740990) -> -4.62069321768213e+18) ((2537 . 5625) (- -4611686018427387904 9007199254740991) -> -4.62069321768213e+18) ((2538 . 5625) (- -4611686018427387904 9007199254740992) -> -4.62069321768213e+18) ((2539 . 5625) (- -4611686018427387904 9007199254740993) -> -4.62069321768213e+18) ((2540 . 5625) (- -4611686018427387904 9007199254740994) -> -4.62069321768213e+18) ((2541 . 5625) (- -4611686018427387903 9007199254740990) -> -4.62069321768213e+18) ((2542 . 5625) (- -4611686018427387903 9007199254740991) -> -4.62069321768213e+18) ((2543 . 5625) (- -4611686018427387903 9007199254740992) -> -4.62069321768213e+18) ((2544 . 5625) (- -4611686018427387903 9007199254740993) -> -4.62069321768213e+18) ((2545 . 5625) (- -4611686018427387903 9007199254740994) -> -4.62069321768213e+18) ((2546 . 5625) (- -4611686018427387902 9007199254740990) -> -4.62069321768213e+18) ((2547 . 5625) (- -4611686018427387902 9007199254740991) -> -4.62069321768213e+18) ((2548 . 5625) (- -4611686018427387902 9007199254740992) -> -4.62069321768213e+18) ((2549 . 5625) (- -4611686018427387902 9007199254740993) -> -4.62069321768213e+18) ((2550 . 5625) (- -4611686018427387902 9007199254740994) -> -4.62069321768213e+18) ((2551 . 5625) (- -4.61168601842739e+18 -9007199254740994) -> -4.60267881917265e+18) ((2552 . 5625) (- -4.61168601842739e+18 -9007199254740993) -> -4.60267881917265e+18) ((2553 . 5625) (- -4.61168601842739e+18 -9007199254740992) -> -4.60267881917265e+18) ((2554 . 5625) (- -4.61168601842739e+18 -9007199254740991) -> -4.60267881917265e+18) ((2555 . 5625) (- -4.61168601842739e+18 -9007199254740990) -> -4.60267881917265e+18) ((2556 . 5625) (- -4.61168601842739e+18 -9007199254740994) -> -4.60267881917265e+18) ((2557 . 5625) (- -4.61168601842739e+18 -9007199254740993) -> -4.60267881917265e+18) ((2558 . 5625) (- -4.61168601842739e+18 -9007199254740992) -> -4.60267881917265e+18) ((2559 . 5625) (- -4.61168601842739e+18 -9007199254740991) -> -4.60267881917265e+18) ((2560 . 5625) (- -4.61168601842739e+18 -9007199254740990) -> -4.60267881917265e+18) ((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) (- -4.61168601842739e+18 12343) -> -4.6116860184274e+18) ((2577 . 5625) (- -4.61168601842739e+18 12344) -> -4.6116860184274e+18) ((2578 . 5625) (- -4.61168601842739e+18 12345) -> -4.6116860184274e+18) ((2579 . 5625) (- -4.61168601842739e+18 12346) -> -4.6116860184274e+18) ((2580 . 5625) (- -4.61168601842739e+18 12347) -> -4.6116860184274e+18) ((2581 . 5625) (- -4.61168601842739e+18 12343) -> -4.6116860184274e+18) ((2582 . 5625) (- -4.61168601842739e+18 12344) -> -4.6116860184274e+18) ((2583 . 5625) (- -4.61168601842739e+18 12345) -> -4.6116860184274e+18) ((2584 . 5625) (- -4.61168601842739e+18 12346) -> -4.6116860184274e+18) ((2585 . 5625) (- -4.61168601842739e+18 12347) -> -4.6116860184274e+18) ((2586 . 5625) (- -4611686018427387904 12343) -> -4.6116860184274e+18) ((2587 . 5625) (- -4611686018427387904 12344) -> -4.6116860184274e+18) ((2588 . 5625) (- -4611686018427387904 12345) -> -4.6116860184274e+18) ((2589 . 5625) (- -4611686018427387904 12346) -> -4.6116860184274e+18) ((2590 . 5625) (- -4611686018427387904 12347) -> -4.6116860184274e+18) ((2591 . 5625) (- -4611686018427387903 12343) -> -4.6116860184274e+18) ((2592 . 5625) (- -4611686018427387903 12344) -> -4.6116860184274e+18) ((2593 . 5625) (- -4611686018427387903 12345) -> -4.6116860184274e+18) ((2594 . 5625) (- -4611686018427387903 12346) -> -4.6116860184274e+18) ((2595 . 5625) (- -4611686018427387903 12347) -> -4.6116860184274e+18) ((2596 . 5625) (- -4611686018427387902 12343) -> -4.6116860184274e+18) ((2597 . 5625) (- -4611686018427387902 12344) -> -4.6116860184274e+18) ((2598 . 5625) (- -4611686018427387902 12345) -> -4.6116860184274e+18) ((2599 . 5625) (- -4611686018427387902 12346) -> -4.6116860184274e+18) ((2600 . 5625) (- -4611686018427387902 12347) -> -4.6116860184274e+18) ((2601 . 5625) (- -4.61168601842739e+18 4294967294) -> -4.61168602272236e+18) ((2602 . 5625) (- -4.61168601842739e+18 4294967295) -> -4.61168602272236e+18) ((2603 . 5625) (- -4.61168601842739e+18 4294967296) -> -4.61168602272236e+18) ((2604 . 5625) (- -4.61168601842739e+18 4294967297) -> -4.61168602272236e+18) ((2605 . 5625) (- -4.61168601842739e+18 4294967298) -> -4.61168602272236e+18) ((2606 . 5625) (- -4.61168601842739e+18 4294967294) -> -4.61168602272236e+18) ((2607 . 5625) (- -4.61168601842739e+18 4294967295) -> -4.61168602272236e+18) ((2608 . 5625) (- -4.61168601842739e+18 4294967296) -> -4.61168602272236e+18) ((2609 . 5625) (- -4.61168601842739e+18 4294967297) -> -4.61168602272236e+18) ((2610 . 5625) (- -4.61168601842739e+18 4294967298) -> -4.61168602272236e+18) ((2611 . 5625) (- -4611686018427387904 4294967294) -> -4.61168602272236e+18) ((2612 . 5625) (- -4611686018427387904 4294967295) -> -4.61168602272236e+18) ((2613 . 5625) (- -4611686018427387904 4294967296) -> -4.61168602272236e+18) ((2614 . 5625) (- -4611686018427387904 4294967297) -> -4.61168602272236e+18) ((2615 . 5625) (- -4611686018427387904 4294967298) -> -4.61168602272236e+18) ((2616 . 5625) (- -4611686018427387903 4294967294) -> -4.61168602272236e+18) ((2617 . 5625) (- -4611686018427387903 4294967295) -> -4.61168602272236e+18) ((2618 . 5625) (- -4611686018427387903 4294967296) -> -4.61168602272236e+18) ((2619 . 5625) (- -4611686018427387903 4294967297) -> -4.61168602272236e+18) ((2620 . 5625) (- -4611686018427387903 4294967298) -> -4.61168602272236e+18) ((2621 . 5625) (- -4611686018427387902 4294967294) -> -4.61168602272236e+18) ((2622 . 5625) (- -4611686018427387902 4294967295) -> -4.61168602272236e+18) ((2623 . 5625) (- -4611686018427387902 4294967296) -> -4.61168602272236e+18) ((2624 . 5625) (- -4611686018427387902 4294967297) -> -4.61168602272236e+18) ((2625 . 5625) (- -4611686018427387902 4294967298) -> -4.61168602272236e+18) ((2626 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2627 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2628 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2629 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2630 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2631 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2632 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2633 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2634 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2635 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2636 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2637 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2638 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2639 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2640 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2641 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2642 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2643 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2644 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2645 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2646 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2647 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2648 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2649 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2650 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2651 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2652 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2653 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2654 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2655 . 5625) (- 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2656 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2657 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2658 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2659 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2660 . 5625) (- 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2661 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2662 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2663 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2664 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2665 . 5625) (- 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2666 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2667 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2668 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2669 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2670 . 5625) (- 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2671 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2672 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2673 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2674 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2675 . 5625) (- 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2676 . 5625) (- 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2677 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2678 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2679 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2680 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2681 . 5625) (- 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2682 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2683 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2684 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2685 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2686 . 5625) (- 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2687 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2688 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2689 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2690 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2691 . 5625) (- 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2692 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2693 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2694 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2695 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2696 . 5625) (- 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2697 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2698 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2699 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2700 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2701 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2702 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2703 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2704 . 5625) (- 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2705 . 5625) (- 4.61168601842739e+18 4) -> 4.61168601842739e+18) ((2706 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2707 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2708 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2709 . 5625) (- 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2710 . 5625) (- 4.61168601842739e+18 4) -> 4.61168601842739e+18) ((2711 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2712 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2713 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2714 . 5625) (- 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2715 . 5625) (- 4.61168601842739e+18 4) -> 4.61168601842739e+18) ((2716 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2717 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2718 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2719 . 5625) (- 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2720 . 5625) (- 4.61168601842739e+18 4) -> 4.61168601842739e+18) ((2721 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2722 . 5625) (- 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2723 . 5625) (- 4.61168601842739e+18 2) -> 4.61168601842739e+18) ((2724 . 5625) (- 4.61168601842739e+18 3) -> 4.61168601842739e+18) ((2725 . 5625) (- 4.61168601842739e+18 4) -> 4.61168601842739e+18) ((2726 . 5625) (- 4.61168601842739e+18 -4) -> 4.61168601842739e+18) ((2727 . 5625) (- 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2728 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2729 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2730 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2731 . 5625) (- 4.61168601842739e+18 -4) -> 4.61168601842739e+18) ((2732 . 5625) (- 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2733 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2734 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2735 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2736 . 5625) (- 4.61168601842739e+18 -4) -> 4.61168601842739e+18) ((2737 . 5625) (- 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2738 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2739 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2740 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2741 . 5625) (- 4.61168601842739e+18 -4) -> 4.61168601842739e+18) ((2742 . 5625) (- 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2743 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2744 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2745 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2746 . 5625) (- 4.61168601842739e+18 -4) -> 4.61168601842739e+18) ((2747 . 5625) (- 4.61168601842739e+18 -3) -> 4.61168601842739e+18) ((2748 . 5625) (- 4.61168601842739e+18 -2) -> 4.61168601842739e+18) ((2749 . 5625) (- 4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2750 . 5625) (- 4.61168601842739e+18 0) -> 4.61168601842739e+18) ((2751 . 5625) (- 4.61168601842739e+18 4611686018427387901) -> 0.0) ((2752 . 5625) (- 4.61168601842739e+18 4611686018427387902) -> 0.0) ((2753 . 5625) (- 4.61168601842739e+18 4611686018427387903) -> 0.0) ((2754 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2755 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2756 . 5625) (- 4.61168601842739e+18 4611686018427387901) -> 0.0) ((2757 . 5625) (- 4.61168601842739e+18 4611686018427387902) -> 0.0) ((2758 . 5625) (- 4.61168601842739e+18 4611686018427387903) -> 0.0) ((2759 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2760 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2761 . 5625) (- 4.61168601842739e+18 4611686018427387901) -> 0.0) ((2762 . 5625) (- 4.61168601842739e+18 4611686018427387902) -> 0.0) ((2763 . 5625) (- 4.61168601842739e+18 4611686018427387903) -> 0.0) ((2764 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2765 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2766 . 5625) (- 4.61168601842739e+18 4611686018427387901) -> 0.0) ((2767 . 5625) (- 4.61168601842739e+18 4611686018427387902) -> 0.0) ((2768 . 5625) (- 4.61168601842739e+18 4611686018427387903) -> 0.0) ((2769 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2770 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2771 . 5625) (- 4.61168601842739e+18 4611686018427387901) -> 0.0) ((2772 . 5625) (- 4.61168601842739e+18 4611686018427387902) -> 0.0) ((2773 . 5625) (- 4.61168601842739e+18 4611686018427387903) -> 0.0) ((2774 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2775 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2776 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2777 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2778 . 5625) (- 4.61168601842739e+18 -4611686018427387904) -> 9.22337203685478e+18) ((2779 . 5625) (- 4.61168601842739e+18 -4611686018427387903) -> 9.22337203685478e+18) ((2780 . 5625) (- 4.61168601842739e+18 -4611686018427387902) -> 9.22337203685478e+18) ((2781 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2782 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2783 . 5625) (- 4.61168601842739e+18 -4611686018427387904) -> 9.22337203685478e+18) ((2784 . 5625) (- 4.61168601842739e+18 -4611686018427387903) -> 9.22337203685478e+18) ((2785 . 5625) (- 4.61168601842739e+18 -4611686018427387902) -> 9.22337203685478e+18) ((2786 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2787 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2788 . 5625) (- 4.61168601842739e+18 -4611686018427387904) -> 9.22337203685478e+18) ((2789 . 5625) (- 4.61168601842739e+18 -4611686018427387903) -> 9.22337203685478e+18) ((2790 . 5625) (- 4.61168601842739e+18 -4611686018427387902) -> 9.22337203685478e+18) ((2791 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2792 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2793 . 5625) (- 4.61168601842739e+18 -4611686018427387904) -> 9.22337203685478e+18) ((2794 . 5625) (- 4.61168601842739e+18 -4611686018427387903) -> 9.22337203685478e+18) ((2795 . 5625) (- 4.61168601842739e+18 -4611686018427387902) -> 9.22337203685478e+18) ((2796 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2797 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2798 . 5625) (- 4.61168601842739e+18 -4611686018427387904) -> 9.22337203685478e+18) ((2799 . 5625) (- 4.61168601842739e+18 -4611686018427387903) -> 9.22337203685478e+18) ((2800 . 5625) (- 4.61168601842739e+18 -4611686018427387902) -> 9.22337203685478e+18) ((2801 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2802 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2803 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2804 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2805 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2806 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2807 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2808 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2809 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2810 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2811 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2812 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2813 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2814 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2815 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2816 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2817 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2818 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2819 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2820 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2821 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2822 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2823 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2824 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2825 . 5625) (- 4.61168601842739e+18 4.61168601842739e+18) -> 0.0) ((2826 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2827 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2828 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2829 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2830 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2831 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2832 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2833 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2834 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2835 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2836 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2837 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2838 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2839 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2840 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2841 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2842 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2843 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2844 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2845 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2846 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2847 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2848 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2849 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2850 . 5625) (- 4.61168601842739e+18 -4.61168601842739e+18) -> 9.22337203685478e+18) ((2851 . 5625) (- 4.61168601842739e+18 1103515243) -> 4.61168601732387e+18) ((2852 . 5625) (- 4.61168601842739e+18 1103515244) -> 4.61168601732387e+18) ((2853 . 5625) (- 4.61168601842739e+18 1103515245) -> 4.61168601732387e+18) ((2854 . 5625) (- 4.61168601842739e+18 1103515246) -> 4.61168601732387e+18) ((2855 . 5625) (- 4.61168601842739e+18 1103515247) -> 4.61168601732387e+18) ((2856 . 5625) (- 4.61168601842739e+18 1103515243) -> 4.61168601732387e+18) ((2857 . 5625) (- 4.61168601842739e+18 1103515244) -> 4.61168601732387e+18) ((2858 . 5625) (- 4.61168601842739e+18 1103515245) -> 4.61168601732387e+18) ((2859 . 5625) (- 4.61168601842739e+18 1103515246) -> 4.61168601732387e+18) ((2860 . 5625) (- 4.61168601842739e+18 1103515247) -> 4.61168601732387e+18) ((2861 . 5625) (- 4.61168601842739e+18 1103515243) -> 4.61168601732387e+18) ((2862 . 5625) (- 4.61168601842739e+18 1103515244) -> 4.61168601732387e+18) ((2863 . 5625) (- 4.61168601842739e+18 1103515245) -> 4.61168601732387e+18) ((2864 . 5625) (- 4.61168601842739e+18 1103515246) -> 4.61168601732387e+18) ((2865 . 5625) (- 4.61168601842739e+18 1103515247) -> 4.61168601732387e+18) ((2866 . 5625) (- 4.61168601842739e+18 1103515243) -> 4.61168601732387e+18) ((2867 . 5625) (- 4.61168601842739e+18 1103515244) -> 4.61168601732387e+18) ((2868 . 5625) (- 4.61168601842739e+18 1103515245) -> 4.61168601732387e+18) ((2869 . 5625) (- 4.61168601842739e+18 1103515246) -> 4.61168601732387e+18) ((2870 . 5625) (- 4.61168601842739e+18 1103515247) -> 4.61168601732387e+18) ((2871 . 5625) (- 4.61168601842739e+18 1103515243) -> 4.61168601732387e+18) ((2872 . 5625) (- 4.61168601842739e+18 1103515244) -> 4.61168601732387e+18) ((2873 . 5625) (- 4.61168601842739e+18 1103515245) -> 4.61168601732387e+18) ((2874 . 5625) (- 4.61168601842739e+18 1103515246) -> 4.61168601732387e+18) ((2875 . 5625) (- 4.61168601842739e+18 1103515247) -> 4.61168601732387e+18) ((2876 . 5625) (- 4.61168601842739e+18 631629063) -> 4.61168601779576e+18) ((2877 . 5625) (- 4.61168601842739e+18 631629064) -> 4.61168601779576e+18) ((2878 . 5625) (- 4.61168601842739e+18 631629065) -> 4.61168601779576e+18) ((2879 . 5625) (- 4.61168601842739e+18 631629066) -> 4.61168601779576e+18) ((2880 . 5625) (- 4.61168601842739e+18 631629067) -> 4.61168601779576e+18) ((2881 . 5625) (- 4.61168601842739e+18 631629063) -> 4.61168601779576e+18) ((2882 . 5625) (- 4.61168601842739e+18 631629064) -> 4.61168601779576e+18) ((2883 . 5625) (- 4.61168601842739e+18 631629065) -> 4.61168601779576e+18) ((2884 . 5625) (- 4.61168601842739e+18 631629066) -> 4.61168601779576e+18) ((2885 . 5625) (- 4.61168601842739e+18 631629067) -> 4.61168601779576e+18) ((2886 . 5625) (- 4.61168601842739e+18 631629063) -> 4.61168601779576e+18) ((2887 . 5625) (- 4.61168601842739e+18 631629064) -> 4.61168601779576e+18) ((2888 . 5625) (- 4.61168601842739e+18 631629065) -> 4.61168601779576e+18) ((2889 . 5625) (- 4.61168601842739e+18 631629066) -> 4.61168601779576e+18) ((2890 . 5625) (- 4.61168601842739e+18 631629067) -> 4.61168601779576e+18) ((2891 . 5625) (- 4.61168601842739e+18 631629063) -> 4.61168601779576e+18) ((2892 . 5625) (- 4.61168601842739e+18 631629064) -> 4.61168601779576e+18) ((2893 . 5625) (- 4.61168601842739e+18 631629065) -> 4.61168601779576e+18) ((2894 . 5625) (- 4.61168601842739e+18 631629066) -> 4.61168601779576e+18) ((2895 . 5625) (- 4.61168601842739e+18 631629067) -> 4.61168601779576e+18) ((2896 . 5625) (- 4.61168601842739e+18 631629063) -> 4.61168601779576e+18) ((2897 . 5625) (- 4.61168601842739e+18 631629064) -> 4.61168601779576e+18) ((2898 . 5625) (- 4.61168601842739e+18 631629065) -> 4.61168601779576e+18) ((2899 . 5625) (- 4.61168601842739e+18 631629066) -> 4.61168601779576e+18) ((2900 . 5625) (- 4.61168601842739e+18 631629067) -> 4.61168601779576e+18) ((2901 . 5625) (- 4.61168601842739e+18 9007199254740990) -> 4.60267881917265e+18) ((2902 . 5625) (- 4.61168601842739e+18 9007199254740991) -> 4.60267881917265e+18) ((2903 . 5625) (- 4.61168601842739e+18 9007199254740992) -> 4.60267881917265e+18) ((2904 . 5625) (- 4.61168601842739e+18 9007199254740993) -> 4.60267881917265e+18) ((2905 . 5625) (- 4.61168601842739e+18 9007199254740994) -> 4.60267881917265e+18) ((2906 . 5625) (- 4.61168601842739e+18 9007199254740990) -> 4.60267881917265e+18) ((2907 . 5625) (- 4.61168601842739e+18 9007199254740991) -> 4.60267881917265e+18) ((2908 . 5625) (- 4.61168601842739e+18 9007199254740992) -> 4.60267881917265e+18) ((2909 . 5625) (- 4.61168601842739e+18 9007199254740993) -> 4.60267881917265e+18) ((2910 . 5625) (- 4.61168601842739e+18 9007199254740994) -> 4.60267881917265e+18) ((2911 . 5625) (- 4.61168601842739e+18 9007199254740990) -> 4.60267881917265e+18) ((2912 . 5625) (- 4.61168601842739e+18 9007199254740991) -> 4.60267881917265e+18) ((2913 . 5625) (- 4.61168601842739e+18 9007199254740992) -> 4.60267881917265e+18) ((2914 . 5625) (- 4.61168601842739e+18 9007199254740993) -> 4.60267881917265e+18) ((2915 . 5625) (- 4.61168601842739e+18 9007199254740994) -> 4.60267881917265e+18) ((2916 . 5625) (- 4.61168601842739e+18 9007199254740990) -> 4.60267881917265e+18) ((2917 . 5625) (- 4.61168601842739e+18 9007199254740991) -> 4.60267881917265e+18) ((2918 . 5625) (- 4.61168601842739e+18 9007199254740992) -> 4.60267881917265e+18) ((2919 . 5625) (- 4.61168601842739e+18 9007199254740993) -> 4.60267881917265e+18) ((2920 . 5625) (- 4.61168601842739e+18 9007199254740994) -> 4.60267881917265e+18) ((2921 . 5625) (- 4.61168601842739e+18 9007199254740990) -> 4.60267881917265e+18) ((2922 . 5625) (- 4.61168601842739e+18 9007199254740991) -> 4.60267881917265e+18) ((2923 . 5625) (- 4.61168601842739e+18 9007199254740992) -> 4.60267881917265e+18) ((2924 . 5625) (- 4.61168601842739e+18 9007199254740993) -> 4.60267881917265e+18) ((2925 . 5625) (- 4.61168601842739e+18 9007199254740994) -> 4.60267881917265e+18) ((2926 . 5625) (- 4.61168601842739e+18 -9007199254740994) -> 4.62069321768213e+18) ((2927 . 5625) (- 4.61168601842739e+18 -9007199254740993) -> 4.62069321768213e+18) ((2928 . 5625) (- 4.61168601842739e+18 -9007199254740992) -> 4.62069321768213e+18) ((2929 . 5625) (- 4.61168601842739e+18 -9007199254740991) -> 4.62069321768213e+18) ((2930 . 5625) (- 4.61168601842739e+18 -9007199254740990) -> 4.62069321768213e+18) ((2931 . 5625) (- 4.61168601842739e+18 -9007199254740994) -> 4.62069321768213e+18) ((2932 . 5625) (- 4.61168601842739e+18 -9007199254740993) -> 4.62069321768213e+18) ((2933 . 5625) (- 4.61168601842739e+18 -9007199254740992) -> 4.62069321768213e+18) ((2934 . 5625) (- 4.61168601842739e+18 -9007199254740991) -> 4.62069321768213e+18) ((2935 . 5625) (- 4.61168601842739e+18 -9007199254740990) -> 4.62069321768213e+18) ((2936 . 5625) (- 4.61168601842739e+18 -9007199254740994) -> 4.62069321768213e+18) ((2937 . 5625) (- 4.61168601842739e+18 -9007199254740993) -> 4.62069321768213e+18) ((2938 . 5625) (- 4.61168601842739e+18 -9007199254740992) -> 4.62069321768213e+18) ((2939 . 5625) (- 4.61168601842739e+18 -9007199254740991) -> 4.62069321768213e+18) ((2940 . 5625) (- 4.61168601842739e+18 -9007199254740990) -> 4.62069321768213e+18) ((2941 . 5625) (- 4.61168601842739e+18 -9007199254740994) -> 4.62069321768213e+18) ((2942 . 5625) (- 4.61168601842739e+18 -9007199254740993) -> 4.62069321768213e+18) ((2943 . 5625) (- 4.61168601842739e+18 -9007199254740992) -> 4.62069321768213e+18) ((2944 . 5625) (- 4.61168601842739e+18 -9007199254740991) -> 4.62069321768213e+18) ((2945 . 5625) (- 4.61168601842739e+18 -9007199254740990) -> 4.62069321768213e+18) ((2946 . 5625) (- 4.61168601842739e+18 -9007199254740994) -> 4.62069321768213e+18) ((2947 . 5625) (- 4.61168601842739e+18 -9007199254740993) -> 4.62069321768213e+18) ((2948 . 5625) (- 4.61168601842739e+18 -9007199254740992) -> 4.62069321768213e+18) ((2949 . 5625) (- 4.61168601842739e+18 -9007199254740991) -> 4.62069321768213e+18) ((2950 . 5625) (- 4.61168601842739e+18 -9007199254740990) -> 4.62069321768213e+18) ((2951 . 5625) (- 4.61168601842739e+18 12343) -> 4.61168601842738e+18) ((2952 . 5625) (- 4.61168601842739e+18 12344) -> 4.61168601842738e+18) ((2953 . 5625) (- 4.61168601842739e+18 12345) -> 4.61168601842738e+18) ((2954 . 5625) (- 4.61168601842739e+18 12346) -> 4.61168601842738e+18) ((2955 . 5625) (- 4.61168601842739e+18 12347) -> 4.61168601842738e+18) ((2956 . 5625) (- 4.61168601842739e+18 12343) -> 4.61168601842738e+18) ((2957 . 5625) (- 4.61168601842739e+18 12344) -> 4.61168601842738e+18) ((2958 . 5625) (- 4.61168601842739e+18 12345) -> 4.61168601842738e+18) ((2959 . 5625) (- 4.61168601842739e+18 12346) -> 4.61168601842738e+18) ((2960 . 5625) (- 4.61168601842739e+18 12347) -> 4.61168601842738e+18) ((2961 . 5625) (- 4.61168601842739e+18 12343) -> 4.61168601842738e+18) ((2962 . 5625) (- 4.61168601842739e+18 12344) -> 4.61168601842738e+18) ((2963 . 5625) (- 4.61168601842739e+18 12345) -> 4.61168601842738e+18) ((2964 . 5625) (- 4.61168601842739e+18 12346) -> 4.61168601842738e+18) ((2965 . 5625) (- 4.61168601842739e+18 12347) -> 4.61168601842738e+18) ((2966 . 5625) (- 4.61168601842739e+18 12343) -> 4.61168601842738e+18) ((2967 . 5625) (- 4.61168601842739e+18 12344) -> 4.61168601842738e+18) ((2968 . 5625) (- 4.61168601842739e+18 12345) -> 4.61168601842738e+18) ((2969 . 5625) (- 4.61168601842739e+18 12346) -> 4.61168601842738e+18) ((2970 . 5625) (- 4.61168601842739e+18 12347) -> 4.61168601842738e+18) ((2971 . 5625) (- 4.61168601842739e+18 12343) -> 4.61168601842738e+18) ((2972 . 5625) (- 4.61168601842739e+18 12344) -> 4.61168601842738e+18) ((2973 . 5625) (- 4.61168601842739e+18 12345) -> 4.61168601842738e+18) ((2974 . 5625) (- 4.61168601842739e+18 12346) -> 4.61168601842738e+18) ((2975 . 5625) (- 4.61168601842739e+18 12347) -> 4.61168601842738e+18) ((2976 . 5625) (- 4.61168601842739e+18 4294967294) -> 4.61168601413242e+18) ((2977 . 5625) (- 4.61168601842739e+18 4294967295) -> 4.61168601413242e+18) ((2978 . 5625) (- 4.61168601842739e+18 4294967296) -> 4.61168601413242e+18) ((2979 . 5625) (- 4.61168601842739e+18 4294967297) -> 4.61168601413242e+18) ((2980 . 5625) (- 4.61168601842739e+18 4294967298) -> 4.61168601413242e+18) ((2981 . 5625) (- 4.61168601842739e+18 4294967294) -> 4.61168601413242e+18) ((2982 . 5625) (- 4.61168601842739e+18 4294967295) -> 4.61168601413242e+18) ((2983 . 5625) (- 4.61168601842739e+18 4294967296) -> 4.61168601413242e+18) ((2984 . 5625) (- 4.61168601842739e+18 4294967297) -> 4.61168601413242e+18) ((2985 . 5625) (- 4.61168601842739e+18 4294967298) -> 4.61168601413242e+18) ((2986 . 5625) (- 4.61168601842739e+18 4294967294) -> 4.61168601413242e+18) ((2987 . 5625) (- 4.61168601842739e+18 4294967295) -> 4.61168601413242e+18) ((2988 . 5625) (- 4.61168601842739e+18 4294967296) -> 4.61168601413242e+18) ((2989 . 5625) (- 4.61168601842739e+18 4294967297) -> 4.61168601413242e+18) ((2990 . 5625) (- 4.61168601842739e+18 4294967298) -> 4.61168601413242e+18) ((2991 . 5625) (- 4.61168601842739e+18 4294967294) -> 4.61168601413242e+18) ((2992 . 5625) (- 4.61168601842739e+18 4294967295) -> 4.61168601413242e+18) ((2993 . 5625) (- 4.61168601842739e+18 4294967296) -> 4.61168601413242e+18) ((2994 . 5625) (- 4.61168601842739e+18 4294967297) -> 4.61168601413242e+18) ((2995 . 5625) (- 4.61168601842739e+18 4294967298) -> 4.61168601413242e+18) ((2996 . 5625) (- 4.61168601842739e+18 4294967294) -> 4.61168601413242e+18) ((2997 . 5625) (- 4.61168601842739e+18 4294967295) -> 4.61168601413242e+18) ((2998 . 5625) (- 4.61168601842739e+18 4294967296) -> 4.61168601413242e+18) ((2999 . 5625) (- 4.61168601842739e+18 4294967297) -> 4.61168601413242e+18) ((3000 . 5625) (- 4.61168601842739e+18 4294967298) -> 4.61168601413242e+18) ((3001 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3002 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3003 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3004 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3005 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3006 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3007 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3008 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3009 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3010 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3011 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3012 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3013 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3014 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3015 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3016 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3017 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3018 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3019 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3020 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3021 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3022 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3023 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3024 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3025 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3026 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3027 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3028 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3029 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3030 . 5625) (- -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3031 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3032 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3033 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3034 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3035 . 5625) (- -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3036 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3037 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3038 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3039 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3040 . 5625) (- -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3041 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3042 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3043 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3044 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3045 . 5625) (- -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3046 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3047 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3048 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3049 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3050 . 5625) (- -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3051 . 5625) (- -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3052 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3053 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3054 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3055 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3056 . 5625) (- -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3057 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3058 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3059 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3060 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3061 . 5625) (- -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3062 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3063 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3064 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3065 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3066 . 5625) (- -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3067 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3068 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3069 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3070 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3071 . 5625) (- -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3072 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3073 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3074 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3075 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3076 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3077 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3078 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3079 . 5625) (- -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3080 . 5625) (- -4.61168601842739e+18 4) -> -4.61168601842739e+18) ((3081 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3082 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3083 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3084 . 5625) (- -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3085 . 5625) (- -4.61168601842739e+18 4) -> -4.61168601842739e+18) ((3086 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3087 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3088 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3089 . 5625) (- -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3090 . 5625) (- -4.61168601842739e+18 4) -> -4.61168601842739e+18) ((3091 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3092 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3093 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3094 . 5625) (- -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3095 . 5625) (- -4.61168601842739e+18 4) -> -4.61168601842739e+18) ((3096 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3097 . 5625) (- -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3098 . 5625) (- -4.61168601842739e+18 2) -> -4.61168601842739e+18) ((3099 . 5625) (- -4.61168601842739e+18 3) -> -4.61168601842739e+18) ((3100 . 5625) (- -4.61168601842739e+18 4) -> -4.61168601842739e+18) ((3101 . 5625) (- -4.61168601842739e+18 -4) -> -4.61168601842739e+18) ((3102 . 5625) (- -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3103 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3104 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3105 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3106 . 5625) (- -4.61168601842739e+18 -4) -> -4.61168601842739e+18) ((3107 . 5625) (- -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3108 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3109 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3110 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3111 . 5625) (- -4.61168601842739e+18 -4) -> -4.61168601842739e+18) ((3112 . 5625) (- -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3113 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3114 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3115 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3116 . 5625) (- -4.61168601842739e+18 -4) -> -4.61168601842739e+18) ((3117 . 5625) (- -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3118 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3119 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3120 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3121 . 5625) (- -4.61168601842739e+18 -4) -> -4.61168601842739e+18) ((3122 . 5625) (- -4.61168601842739e+18 -3) -> -4.61168601842739e+18) ((3123 . 5625) (- -4.61168601842739e+18 -2) -> -4.61168601842739e+18) ((3124 . 5625) (- -4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((3125 . 5625) (- -4.61168601842739e+18 0) -> -4.61168601842739e+18) ((3126 . 5625) (- -4.61168601842739e+18 4611686018427387901) -> -9.22337203685478e+18) ((3127 . 5625) (- -4.61168601842739e+18 4611686018427387902) -> -9.22337203685478e+18) ((3128 . 5625) (- -4.61168601842739e+18 4611686018427387903) -> -9.22337203685478e+18) ((3129 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3130 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3131 . 5625) (- -4.61168601842739e+18 4611686018427387901) -> -9.22337203685478e+18) ((3132 . 5625) (- -4.61168601842739e+18 4611686018427387902) -> -9.22337203685478e+18) ((3133 . 5625) (- -4.61168601842739e+18 4611686018427387903) -> -9.22337203685478e+18) ((3134 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3135 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3136 . 5625) (- -4.61168601842739e+18 4611686018427387901) -> -9.22337203685478e+18) ((3137 . 5625) (- -4.61168601842739e+18 4611686018427387902) -> -9.22337203685478e+18) ((3138 . 5625) (- -4.61168601842739e+18 4611686018427387903) -> -9.22337203685478e+18) ((3139 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3140 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3141 . 5625) (- -4.61168601842739e+18 4611686018427387901) -> -9.22337203685478e+18) ((3142 . 5625) (- -4.61168601842739e+18 4611686018427387902) -> -9.22337203685478e+18) ((3143 . 5625) (- -4.61168601842739e+18 4611686018427387903) -> -9.22337203685478e+18) ((3144 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3145 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3146 . 5625) (- -4.61168601842739e+18 4611686018427387901) -> -9.22337203685478e+18) ((3147 . 5625) (- -4.61168601842739e+18 4611686018427387902) -> -9.22337203685478e+18) ((3148 . 5625) (- -4.61168601842739e+18 4611686018427387903) -> -9.22337203685478e+18) ((3149 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3150 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3151 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3152 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3153 . 5625) (- -4.61168601842739e+18 -4611686018427387904) -> 0.0) ((3154 . 5625) (- -4.61168601842739e+18 -4611686018427387903) -> 0.0) ((3155 . 5625) (- -4.61168601842739e+18 -4611686018427387902) -> 0.0) ((3156 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3157 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3158 . 5625) (- -4.61168601842739e+18 -4611686018427387904) -> 0.0) ((3159 . 5625) (- -4.61168601842739e+18 -4611686018427387903) -> 0.0) ((3160 . 5625) (- -4.61168601842739e+18 -4611686018427387902) -> 0.0) ((3161 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3162 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3163 . 5625) (- -4.61168601842739e+18 -4611686018427387904) -> 0.0) ((3164 . 5625) (- -4.61168601842739e+18 -4611686018427387903) -> 0.0) ((3165 . 5625) (- -4.61168601842739e+18 -4611686018427387902) -> 0.0) ((3166 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3167 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3168 . 5625) (- -4.61168601842739e+18 -4611686018427387904) -> 0.0) ((3169 . 5625) (- -4.61168601842739e+18 -4611686018427387903) -> 0.0) ((3170 . 5625) (- -4.61168601842739e+18 -4611686018427387902) -> 0.0) ((3171 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3172 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3173 . 5625) (- -4.61168601842739e+18 -4611686018427387904) -> 0.0) ((3174 . 5625) (- -4.61168601842739e+18 -4611686018427387903) -> 0.0) ((3175 . 5625) (- -4.61168601842739e+18 -4611686018427387902) -> 0.0) ((3176 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3177 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3178 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3179 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3180 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3181 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3182 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3183 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3184 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3185 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3186 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3187 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3188 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3189 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3190 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3191 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3192 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3193 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3194 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3195 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3196 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3197 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3198 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3199 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3200 . 5625) (- -4.61168601842739e+18 4.61168601842739e+18) -> -9.22337203685478e+18) ((3201 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3202 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3203 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3204 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3205 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3206 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3207 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3208 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3209 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3210 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3211 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3212 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3213 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3214 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3215 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3216 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3217 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3218 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3219 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3220 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3221 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3222 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3223 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3224 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3225 . 5625) (- -4.61168601842739e+18 -4.61168601842739e+18) -> 0.0) ((3226 . 5625) (- -4.61168601842739e+18 1103515243) -> -4.6116860195309e+18) ((3227 . 5625) (- -4.61168601842739e+18 1103515244) -> -4.6116860195309e+18) ((3228 . 5625) (- -4.61168601842739e+18 1103515245) -> -4.6116860195309e+18) ((3229 . 5625) (- -4.61168601842739e+18 1103515246) -> -4.6116860195309e+18) ((3230 . 5625) (- -4.61168601842739e+18 1103515247) -> -4.6116860195309e+18) ((3231 . 5625) (- -4.61168601842739e+18 1103515243) -> -4.6116860195309e+18) ((3232 . 5625) (- -4.61168601842739e+18 1103515244) -> -4.6116860195309e+18) ((3233 . 5625) (- -4.61168601842739e+18 1103515245) -> -4.6116860195309e+18) ((3234 . 5625) (- -4.61168601842739e+18 1103515246) -> -4.6116860195309e+18) ((3235 . 5625) (- -4.61168601842739e+18 1103515247) -> -4.6116860195309e+18) ((3236 . 5625) (- -4.61168601842739e+18 1103515243) -> -4.6116860195309e+18) ((3237 . 5625) (- -4.61168601842739e+18 1103515244) -> -4.6116860195309e+18) ((3238 . 5625) (- -4.61168601842739e+18 1103515245) -> -4.6116860195309e+18) ((3239 . 5625) (- -4.61168601842739e+18 1103515246) -> -4.6116860195309e+18) ((3240 . 5625) (- -4.61168601842739e+18 1103515247) -> -4.6116860195309e+18) ((3241 . 5625) (- -4.61168601842739e+18 1103515243) -> -4.6116860195309e+18) ((3242 . 5625) (- -4.61168601842739e+18 1103515244) -> -4.6116860195309e+18) ((3243 . 5625) (- -4.61168601842739e+18 1103515245) -> -4.6116860195309e+18) ((3244 . 5625) (- -4.61168601842739e+18 1103515246) -> -4.6116860195309e+18) ((3245 . 5625) (- -4.61168601842739e+18 1103515247) -> -4.6116860195309e+18) ((3246 . 5625) (- -4.61168601842739e+18 1103515243) -> -4.6116860195309e+18) ((3247 . 5625) (- -4.61168601842739e+18 1103515244) -> -4.6116860195309e+18) ((3248 . 5625) (- -4.61168601842739e+18 1103515245) -> -4.6116860195309e+18) ((3249 . 5625) (- -4.61168601842739e+18 1103515246) -> -4.6116860195309e+18) ((3250 . 5625) (- -4.61168601842739e+18 1103515247) -> -4.6116860195309e+18) ((3251 . 5625) (- -4.61168601842739e+18 631629063) -> -4.61168601905902e+18) ((3252 . 5625) (- -4.61168601842739e+18 631629064) -> -4.61168601905902e+18) ((3253 . 5625) (- -4.61168601842739e+18 631629065) -> -4.61168601905902e+18) ((3254 . 5625) (- -4.61168601842739e+18 631629066) -> -4.61168601905902e+18) ((3255 . 5625) (- -4.61168601842739e+18 631629067) -> -4.61168601905902e+18) ((3256 . 5625) (- -4.61168601842739e+18 631629063) -> -4.61168601905902e+18) ((3257 . 5625) (- -4.61168601842739e+18 631629064) -> -4.61168601905902e+18) ((3258 . 5625) (- -4.61168601842739e+18 631629065) -> -4.61168601905902e+18) ((3259 . 5625) (- -4.61168601842739e+18 631629066) -> -4.61168601905902e+18) ((3260 . 5625) (- -4.61168601842739e+18 631629067) -> -4.61168601905902e+18) ((3261 . 5625) (- -4.61168601842739e+18 631629063) -> -4.61168601905902e+18) ((3262 . 5625) (- -4.61168601842739e+18 631629064) -> -4.61168601905902e+18) ((3263 . 5625) (- -4.61168601842739e+18 631629065) -> -4.61168601905902e+18) ((3264 . 5625) (- -4.61168601842739e+18 631629066) -> -4.61168601905902e+18) ((3265 . 5625) (- -4.61168601842739e+18 631629067) -> -4.61168601905902e+18) ((3266 . 5625) (- -4.61168601842739e+18 631629063) -> -4.61168601905902e+18) ((3267 . 5625) (- -4.61168601842739e+18 631629064) -> -4.61168601905902e+18) ((3268 . 5625) (- -4.61168601842739e+18 631629065) -> -4.61168601905902e+18) ((3269 . 5625) (- -4.61168601842739e+18 631629066) -> -4.61168601905902e+18) ((3270 . 5625) (- -4.61168601842739e+18 631629067) -> -4.61168601905902e+18) ((3271 . 5625) (- -4.61168601842739e+18 631629063) -> -4.61168601905902e+18) ((3272 . 5625) (- -4.61168601842739e+18 631629064) -> -4.61168601905902e+18) ((3273 . 5625) (- -4.61168601842739e+18 631629065) -> -4.61168601905902e+18) ((3274 . 5625) (- -4.61168601842739e+18 631629066) -> -4.61168601905902e+18) ((3275 . 5625) (- -4.61168601842739e+18 631629067) -> -4.61168601905902e+18) ((3276 . 5625) (- -4.61168601842739e+18 9007199254740990) -> -4.62069321768213e+18) ((3277 . 5625) (- -4.61168601842739e+18 9007199254740991) -> -4.62069321768213e+18) ((3278 . 5625) (- -4.61168601842739e+18 9007199254740992) -> -4.62069321768213e+18) ((3279 . 5625) (- -4.61168601842739e+18 9007199254740993) -> -4.62069321768213e+18) ((3280 . 5625) (- -4.61168601842739e+18 9007199254740994) -> -4.62069321768213e+18) ((3281 . 5625) (- -4.61168601842739e+18 9007199254740990) -> -4.62069321768213e+18) ((3282 . 5625) (- -4.61168601842739e+18 9007199254740991) -> -4.62069321768213e+18) ((3283 . 5625) (- -4.61168601842739e+18 9007199254740992) -> -4.62069321768213e+18) ((3284 . 5625) (- -4.61168601842739e+18 9007199254740993) -> -4.62069321768213e+18) ((3285 . 5625) (- -4.61168601842739e+18 9007199254740994) -> -4.62069321768213e+18) ((3286 . 5625) (- -4.61168601842739e+18 9007199254740990) -> -4.62069321768213e+18) ((3287 . 5625) (- -4.61168601842739e+18 9007199254740991) -> -4.62069321768213e+18) ((3288 . 5625) (- -4.61168601842739e+18 9007199254740992) -> -4.62069321768213e+18) ((3289 . 5625) (- -4.61168601842739e+18 9007199254740993) -> -4.62069321768213e+18) ((3290 . 5625) (- -4.61168601842739e+18 9007199254740994) -> -4.62069321768213e+18) ((3291 . 5625) (- -4.61168601842739e+18 9007199254740990) -> -4.62069321768213e+18) ((3292 . 5625) (- -4.61168601842739e+18 9007199254740991) -> -4.62069321768213e+18) ((3293 . 5625) (- -4.61168601842739e+18 9007199254740992) -> -4.62069321768213e+18) ((3294 . 5625) (- -4.61168601842739e+18 9007199254740993) -> -4.62069321768213e+18) ((3295 . 5625) (- -4.61168601842739e+18 9007199254740994) -> -4.62069321768213e+18) ((3296 . 5625) (- -4.61168601842739e+18 9007199254740990) -> -4.62069321768213e+18) ((3297 . 5625) (- -4.61168601842739e+18 9007199254740991) -> -4.62069321768213e+18) ((3298 . 5625) (- -4.61168601842739e+18 9007199254740992) -> -4.62069321768213e+18) ((3299 . 5625) (- -4.61168601842739e+18 9007199254740993) -> -4.62069321768213e+18) ((3300 . 5625) (- -4.61168601842739e+18 9007199254740994) -> -4.62069321768213e+18) ((3301 . 5625) (- -4.61168601842739e+18 -9007199254740994) -> -4.60267881917265e+18) ((3302 . 5625) (- -4.61168601842739e+18 -9007199254740993) -> -4.60267881917265e+18) ((3303 . 5625) (- -4.61168601842739e+18 -9007199254740992) -> -4.60267881917265e+18) ((3304 . 5625) (- -4.61168601842739e+18 -9007199254740991) -> -4.60267881917265e+18) ((3305 . 5625) (- -4.61168601842739e+18 -9007199254740990) -> -4.60267881917265e+18) ((3306 . 5625) (- -4.61168601842739e+18 -9007199254740994) -> -4.60267881917265e+18) ((3307 . 5625) (- -4.61168601842739e+18 -9007199254740993) -> -4.60267881917265e+18) ((3308 . 5625) (- -4.61168601842739e+18 -9007199254740992) -> -4.60267881917265e+18) ((3309 . 5625) (- -4.61168601842739e+18 -9007199254740991) -> -4.60267881917265e+18) ((3310 . 5625) (- -4.61168601842739e+18 -9007199254740990) -> -4.60267881917265e+18) ((3311 . 5625) (- -4.61168601842739e+18 -9007199254740994) -> -4.60267881917265e+18) ((3312 . 5625) (- -4.61168601842739e+18 -9007199254740993) -> -4.60267881917265e+18) ((3313 . 5625) (- -4.61168601842739e+18 -9007199254740992) -> -4.60267881917265e+18) ((3314 . 5625) (- -4.61168601842739e+18 -9007199254740991) -> -4.60267881917265e+18) ((3315 . 5625) (- -4.61168601842739e+18 -9007199254740990) -> -4.60267881917265e+18) ((3316 . 5625) (- -4.61168601842739e+18 -9007199254740994) -> -4.60267881917265e+18) ((3317 . 5625) (- -4.61168601842739e+18 -9007199254740993) -> -4.60267881917265e+18) ((3318 . 5625) (- -4.61168601842739e+18 -9007199254740992) -> -4.60267881917265e+18) ((3319 . 5625) (- -4.61168601842739e+18 -9007199254740991) -> -4.60267881917265e+18) ((3320 . 5625) (- -4.61168601842739e+18 -9007199254740990) -> -4.60267881917265e+18) ((3321 . 5625) (- -4.61168601842739e+18 -9007199254740994) -> -4.60267881917265e+18) ((3322 . 5625) (- -4.61168601842739e+18 -9007199254740993) -> -4.60267881917265e+18) ((3323 . 5625) (- -4.61168601842739e+18 -9007199254740992) -> -4.60267881917265e+18) ((3324 . 5625) (- -4.61168601842739e+18 -9007199254740991) -> -4.60267881917265e+18) ((3325 . 5625) (- -4.61168601842739e+18 -9007199254740990) -> -4.60267881917265e+18) ((3326 . 5625) (- -4.61168601842739e+18 12343) -> -4.6116860184274e+18) ((3327 . 5625) (- -4.61168601842739e+18 12344) -> -4.6116860184274e+18) ((3328 . 5625) (- -4.61168601842739e+18 12345) -> -4.6116860184274e+18) ((3329 . 5625) (- -4.61168601842739e+18 12346) -> -4.6116860184274e+18) ((3330 . 5625) (- -4.61168601842739e+18 12347) -> -4.6116860184274e+18) ((3331 . 5625) (- -4.61168601842739e+18 12343) -> -4.6116860184274e+18) ((3332 . 5625) (- -4.61168601842739e+18 12344) -> -4.6116860184274e+18) ((3333 . 5625) (- -4.61168601842739e+18 12345) -> -4.6116860184274e+18) ((3334 . 5625) (- -4.61168601842739e+18 12346) -> -4.6116860184274e+18) ((3335 . 5625) (- -4.61168601842739e+18 12347) -> -4.6116860184274e+18) ((3336 . 5625) (- -4.61168601842739e+18 12343) -> -4.6116860184274e+18) ((3337 . 5625) (- -4.61168601842739e+18 12344) -> -4.6116860184274e+18) ((3338 . 5625) (- -4.61168601842739e+18 12345) -> -4.6116860184274e+18) ((3339 . 5625) (- -4.61168601842739e+18 12346) -> -4.6116860184274e+18) ((3340 . 5625) (- -4.61168601842739e+18 12347) -> -4.6116860184274e+18) ((3341 . 5625) (- -4.61168601842739e+18 12343) -> -4.6116860184274e+18) ((3342 . 5625) (- -4.61168601842739e+18 12344) -> -4.6116860184274e+18) ((3343 . 5625) (- -4.61168601842739e+18 12345) -> -4.6116860184274e+18) ((3344 . 5625) (- -4.61168601842739e+18 12346) -> -4.6116860184274e+18) ((3345 . 5625) (- -4.61168601842739e+18 12347) -> -4.6116860184274e+18) ((3346 . 5625) (- -4.61168601842739e+18 12343) -> -4.6116860184274e+18) ((3347 . 5625) (- -4.61168601842739e+18 12344) -> -4.6116860184274e+18) ((3348 . 5625) (- -4.61168601842739e+18 12345) -> -4.6116860184274e+18) ((3349 . 5625) (- -4.61168601842739e+18 12346) -> -4.6116860184274e+18) ((3350 . 5625) (- -4.61168601842739e+18 12347) -> -4.6116860184274e+18) ((3351 . 5625) (- -4.61168601842739e+18 4294967294) -> -4.61168602272236e+18) ((3352 . 5625) (- -4.61168601842739e+18 4294967295) -> -4.61168602272236e+18) ((3353 . 5625) (- -4.61168601842739e+18 4294967296) -> -4.61168602272236e+18) ((3354 . 5625) (- -4.61168601842739e+18 4294967297) -> -4.61168602272236e+18) ((3355 . 5625) (- -4.61168601842739e+18 4294967298) -> -4.61168602272236e+18) ((3356 . 5625) (- -4.61168601842739e+18 4294967294) -> -4.61168602272236e+18) ((3357 . 5625) (- -4.61168601842739e+18 4294967295) -> -4.61168602272236e+18) ((3358 . 5625) (- -4.61168601842739e+18 4294967296) -> -4.61168602272236e+18) ((3359 . 5625) (- -4.61168601842739e+18 4294967297) -> -4.61168602272236e+18) ((3360 . 5625) (- -4.61168601842739e+18 4294967298) -> -4.61168602272236e+18) ((3361 . 5625) (- -4.61168601842739e+18 4294967294) -> -4.61168602272236e+18) ((3362 . 5625) (- -4.61168601842739e+18 4294967295) -> -4.61168602272236e+18) ((3363 . 5625) (- -4.61168601842739e+18 4294967296) -> -4.61168602272236e+18) ((3364 . 5625) (- -4.61168601842739e+18 4294967297) -> -4.61168602272236e+18) ((3365 . 5625) (- -4.61168601842739e+18 4294967298) -> -4.61168602272236e+18) ((3366 . 5625) (- -4.61168601842739e+18 4294967294) -> -4.61168602272236e+18) ((3367 . 5625) (- -4.61168601842739e+18 4294967295) -> -4.61168602272236e+18) ((3368 . 5625) (- -4.61168601842739e+18 4294967296) -> -4.61168602272236e+18) ((3369 . 5625) (- -4.61168601842739e+18 4294967297) -> -4.61168602272236e+18) ((3370 . 5625) (- -4.61168601842739e+18 4294967298) -> -4.61168602272236e+18) ((3371 . 5625) (- -4.61168601842739e+18 4294967294) -> -4.61168602272236e+18) ((3372 . 5625) (- -4.61168601842739e+18 4294967295) -> -4.61168602272236e+18) ((3373 . 5625) (- -4.61168601842739e+18 4294967296) -> -4.61168602272236e+18) ((3374 . 5625) (- -4.61168601842739e+18 4294967297) -> -4.61168602272236e+18) ((3375 . 5625) (- -4.61168601842739e+18 4294967298) -> -4.61168602272236e+18) ((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 4.61168601842739e+18) -> -4.61168601732387e+18) ((3505 . 5625) (- 1103515243 4.61168601842739e+18) -> -4.61168601732387e+18) ((3506 . 5625) (- 1103515244 4611686018427387901) -> -4611686017323872657) ((3507 . 5625) (- 1103515244 4611686018427387902) -> -4611686017323872658) ((3508 . 5625) (- 1103515244 4611686018427387903) -> -4611686017323872659) ((3509 . 5625) (- 1103515244 4.61168601842739e+18) -> -4.61168601732387e+18) ((3510 . 5625) (- 1103515244 4.61168601842739e+18) -> -4.61168601732387e+18) ((3511 . 5625) (- 1103515245 4611686018427387901) -> -4611686017323872656) ((3512 . 5625) (- 1103515245 4611686018427387902) -> -4611686017323872657) ((3513 . 5625) (- 1103515245 4611686018427387903) -> -4611686017323872658) ((3514 . 5625) (- 1103515245 4.61168601842739e+18) -> -4.61168601732387e+18) ((3515 . 5625) (- 1103515245 4.61168601842739e+18) -> -4.61168601732387e+18) ((3516 . 5625) (- 1103515246 4611686018427387901) -> -4611686017323872655) ((3517 . 5625) (- 1103515246 4611686018427387902) -> -4611686017323872656) ((3518 . 5625) (- 1103515246 4611686018427387903) -> -4611686017323872657) ((3519 . 5625) (- 1103515246 4.61168601842739e+18) -> -4.61168601732387e+18) ((3520 . 5625) (- 1103515246 4.61168601842739e+18) -> -4.61168601732387e+18) ((3521 . 5625) (- 1103515247 4611686018427387901) -> -4611686017323872654) ((3522 . 5625) (- 1103515247 4611686018427387902) -> -4611686017323872655) ((3523 . 5625) (- 1103515247 4611686018427387903) -> -4611686017323872656) ((3524 . 5625) (- 1103515247 4.61168601842739e+18) -> -4.61168601732387e+18) ((3525 . 5625) (- 1103515247 4.61168601842739e+18) -> -4.61168601732387e+18) ((3526 . 5625) (- 1103515243 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3527 . 5625) (- 1103515243 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3528 . 5625) (- 1103515243 -4611686018427387904) -> 4.6116860195309e+18) ((3529 . 5625) (- 1103515243 -4611686018427387903) -> 4.6116860195309e+18) ((3530 . 5625) (- 1103515243 -4611686018427387902) -> 4.6116860195309e+18) ((3531 . 5625) (- 1103515244 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3532 . 5625) (- 1103515244 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3533 . 5625) (- 1103515244 -4611686018427387904) -> 4.6116860195309e+18) ((3534 . 5625) (- 1103515244 -4611686018427387903) -> 4.6116860195309e+18) ((3535 . 5625) (- 1103515244 -4611686018427387902) -> 4.6116860195309e+18) ((3536 . 5625) (- 1103515245 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3537 . 5625) (- 1103515245 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3538 . 5625) (- 1103515245 -4611686018427387904) -> 4.6116860195309e+18) ((3539 . 5625) (- 1103515245 -4611686018427387903) -> 4.6116860195309e+18) ((3540 . 5625) (- 1103515245 -4611686018427387902) -> 4.6116860195309e+18) ((3541 . 5625) (- 1103515246 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3542 . 5625) (- 1103515246 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3543 . 5625) (- 1103515246 -4611686018427387904) -> 4.6116860195309e+18) ((3544 . 5625) (- 1103515246 -4611686018427387903) -> 4.6116860195309e+18) ((3545 . 5625) (- 1103515246 -4611686018427387902) -> 4.6116860195309e+18) ((3546 . 5625) (- 1103515247 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3547 . 5625) (- 1103515247 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3548 . 5625) (- 1103515247 -4611686018427387904) -> 4.6116860195309e+18) ((3549 . 5625) (- 1103515247 -4611686018427387903) -> 4.6116860195309e+18) ((3550 . 5625) (- 1103515247 -4611686018427387902) -> 4.6116860195309e+18) ((3551 . 5625) (- 1103515243 4.61168601842739e+18) -> -4.61168601732387e+18) ((3552 . 5625) (- 1103515243 4.61168601842739e+18) -> -4.61168601732387e+18) ((3553 . 5625) (- 1103515243 4.61168601842739e+18) -> -4.61168601732387e+18) ((3554 . 5625) (- 1103515243 4.61168601842739e+18) -> -4.61168601732387e+18) ((3555 . 5625) (- 1103515243 4.61168601842739e+18) -> -4.61168601732387e+18) ((3556 . 5625) (- 1103515244 4.61168601842739e+18) -> -4.61168601732387e+18) ((3557 . 5625) (- 1103515244 4.61168601842739e+18) -> -4.61168601732387e+18) ((3558 . 5625) (- 1103515244 4.61168601842739e+18) -> -4.61168601732387e+18) ((3559 . 5625) (- 1103515244 4.61168601842739e+18) -> -4.61168601732387e+18) ((3560 . 5625) (- 1103515244 4.61168601842739e+18) -> -4.61168601732387e+18) ((3561 . 5625) (- 1103515245 4.61168601842739e+18) -> -4.61168601732387e+18) ((3562 . 5625) (- 1103515245 4.61168601842739e+18) -> -4.61168601732387e+18) ((3563 . 5625) (- 1103515245 4.61168601842739e+18) -> -4.61168601732387e+18) ((3564 . 5625) (- 1103515245 4.61168601842739e+18) -> -4.61168601732387e+18) ((3565 . 5625) (- 1103515245 4.61168601842739e+18) -> -4.61168601732387e+18) ((3566 . 5625) (- 1103515246 4.61168601842739e+18) -> -4.61168601732387e+18) ((3567 . 5625) (- 1103515246 4.61168601842739e+18) -> -4.61168601732387e+18) ((3568 . 5625) (- 1103515246 4.61168601842739e+18) -> -4.61168601732387e+18) ((3569 . 5625) (- 1103515246 4.61168601842739e+18) -> -4.61168601732387e+18) ((3570 . 5625) (- 1103515246 4.61168601842739e+18) -> -4.61168601732387e+18) ((3571 . 5625) (- 1103515247 4.61168601842739e+18) -> -4.61168601732387e+18) ((3572 . 5625) (- 1103515247 4.61168601842739e+18) -> -4.61168601732387e+18) ((3573 . 5625) (- 1103515247 4.61168601842739e+18) -> -4.61168601732387e+18) ((3574 . 5625) (- 1103515247 4.61168601842739e+18) -> -4.61168601732387e+18) ((3575 . 5625) (- 1103515247 4.61168601842739e+18) -> -4.61168601732387e+18) ((3576 . 5625) (- 1103515243 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3577 . 5625) (- 1103515243 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3578 . 5625) (- 1103515243 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3579 . 5625) (- 1103515243 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3580 . 5625) (- 1103515243 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3581 . 5625) (- 1103515244 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3582 . 5625) (- 1103515244 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3583 . 5625) (- 1103515244 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3584 . 5625) (- 1103515244 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3585 . 5625) (- 1103515244 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3586 . 5625) (- 1103515245 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3587 . 5625) (- 1103515245 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3588 . 5625) (- 1103515245 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3589 . 5625) (- 1103515245 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3590 . 5625) (- 1103515245 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3591 . 5625) (- 1103515246 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3592 . 5625) (- 1103515246 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3593 . 5625) (- 1103515246 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3594 . 5625) (- 1103515246 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3595 . 5625) (- 1103515246 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3596 . 5625) (- 1103515247 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3597 . 5625) (- 1103515247 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3598 . 5625) (- 1103515247 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3599 . 5625) (- 1103515247 -4.61168601842739e+18) -> 4.6116860195309e+18) ((3600 . 5625) (- 1103515247 -4.61168601842739e+18) -> 4.6116860195309e+18) ((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 4.61168601842739e+18) -> -4.61168601779576e+18) ((3880 . 5625) (- 631629063 4.61168601842739e+18) -> -4.61168601779576e+18) ((3881 . 5625) (- 631629064 4611686018427387901) -> -4611686017795758837) ((3882 . 5625) (- 631629064 4611686018427387902) -> -4611686017795758838) ((3883 . 5625) (- 631629064 4611686018427387903) -> -4611686017795758839) ((3884 . 5625) (- 631629064 4.61168601842739e+18) -> -4.61168601779576e+18) ((3885 . 5625) (- 631629064 4.61168601842739e+18) -> -4.61168601779576e+18) ((3886 . 5625) (- 631629065 4611686018427387901) -> -4611686017795758836) ((3887 . 5625) (- 631629065 4611686018427387902) -> -4611686017795758837) ((3888 . 5625) (- 631629065 4611686018427387903) -> -4611686017795758838) ((3889 . 5625) (- 631629065 4.61168601842739e+18) -> -4.61168601779576e+18) ((3890 . 5625) (- 631629065 4.61168601842739e+18) -> -4.61168601779576e+18) ((3891 . 5625) (- 631629066 4611686018427387901) -> -4611686017795758835) ((3892 . 5625) (- 631629066 4611686018427387902) -> -4611686017795758836) ((3893 . 5625) (- 631629066 4611686018427387903) -> -4611686017795758837) ((3894 . 5625) (- 631629066 4.61168601842739e+18) -> -4.61168601779576e+18) ((3895 . 5625) (- 631629066 4.61168601842739e+18) -> -4.61168601779576e+18) ((3896 . 5625) (- 631629067 4611686018427387901) -> -4611686017795758834) ((3897 . 5625) (- 631629067 4611686018427387902) -> -4611686017795758835) ((3898 . 5625) (- 631629067 4611686018427387903) -> -4611686017795758836) ((3899 . 5625) (- 631629067 4.61168601842739e+18) -> -4.61168601779576e+18) ((3900 . 5625) (- 631629067 4.61168601842739e+18) -> -4.61168601779576e+18) ((3901 . 5625) (- 631629063 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3902 . 5625) (- 631629063 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3903 . 5625) (- 631629063 -4611686018427387904) -> 4.61168601905902e+18) ((3904 . 5625) (- 631629063 -4611686018427387903) -> 4.61168601905902e+18) ((3905 . 5625) (- 631629063 -4611686018427387902) -> 4.61168601905902e+18) ((3906 . 5625) (- 631629064 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3907 . 5625) (- 631629064 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3908 . 5625) (- 631629064 -4611686018427387904) -> 4.61168601905902e+18) ((3909 . 5625) (- 631629064 -4611686018427387903) -> 4.61168601905902e+18) ((3910 . 5625) (- 631629064 -4611686018427387902) -> 4.61168601905902e+18) ((3911 . 5625) (- 631629065 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3912 . 5625) (- 631629065 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3913 . 5625) (- 631629065 -4611686018427387904) -> 4.61168601905902e+18) ((3914 . 5625) (- 631629065 -4611686018427387903) -> 4.61168601905902e+18) ((3915 . 5625) (- 631629065 -4611686018427387902) -> 4.61168601905902e+18) ((3916 . 5625) (- 631629066 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3917 . 5625) (- 631629066 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3918 . 5625) (- 631629066 -4611686018427387904) -> 4.61168601905902e+18) ((3919 . 5625) (- 631629066 -4611686018427387903) -> 4.61168601905902e+18) ((3920 . 5625) (- 631629066 -4611686018427387902) -> 4.61168601905902e+18) ((3921 . 5625) (- 631629067 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3922 . 5625) (- 631629067 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3923 . 5625) (- 631629067 -4611686018427387904) -> 4.61168601905902e+18) ((3924 . 5625) (- 631629067 -4611686018427387903) -> 4.61168601905902e+18) ((3925 . 5625) (- 631629067 -4611686018427387902) -> 4.61168601905902e+18) ((3926 . 5625) (- 631629063 4.61168601842739e+18) -> -4.61168601779576e+18) ((3927 . 5625) (- 631629063 4.61168601842739e+18) -> -4.61168601779576e+18) ((3928 . 5625) (- 631629063 4.61168601842739e+18) -> -4.61168601779576e+18) ((3929 . 5625) (- 631629063 4.61168601842739e+18) -> -4.61168601779576e+18) ((3930 . 5625) (- 631629063 4.61168601842739e+18) -> -4.61168601779576e+18) ((3931 . 5625) (- 631629064 4.61168601842739e+18) -> -4.61168601779576e+18) ((3932 . 5625) (- 631629064 4.61168601842739e+18) -> -4.61168601779576e+18) ((3933 . 5625) (- 631629064 4.61168601842739e+18) -> -4.61168601779576e+18) ((3934 . 5625) (- 631629064 4.61168601842739e+18) -> -4.61168601779576e+18) ((3935 . 5625) (- 631629064 4.61168601842739e+18) -> -4.61168601779576e+18) ((3936 . 5625) (- 631629065 4.61168601842739e+18) -> -4.61168601779576e+18) ((3937 . 5625) (- 631629065 4.61168601842739e+18) -> -4.61168601779576e+18) ((3938 . 5625) (- 631629065 4.61168601842739e+18) -> -4.61168601779576e+18) ((3939 . 5625) (- 631629065 4.61168601842739e+18) -> -4.61168601779576e+18) ((3940 . 5625) (- 631629065 4.61168601842739e+18) -> -4.61168601779576e+18) ((3941 . 5625) (- 631629066 4.61168601842739e+18) -> -4.61168601779576e+18) ((3942 . 5625) (- 631629066 4.61168601842739e+18) -> -4.61168601779576e+18) ((3943 . 5625) (- 631629066 4.61168601842739e+18) -> -4.61168601779576e+18) ((3944 . 5625) (- 631629066 4.61168601842739e+18) -> -4.61168601779576e+18) ((3945 . 5625) (- 631629066 4.61168601842739e+18) -> -4.61168601779576e+18) ((3946 . 5625) (- 631629067 4.61168601842739e+18) -> -4.61168601779576e+18) ((3947 . 5625) (- 631629067 4.61168601842739e+18) -> -4.61168601779576e+18) ((3948 . 5625) (- 631629067 4.61168601842739e+18) -> -4.61168601779576e+18) ((3949 . 5625) (- 631629067 4.61168601842739e+18) -> -4.61168601779576e+18) ((3950 . 5625) (- 631629067 4.61168601842739e+18) -> -4.61168601779576e+18) ((3951 . 5625) (- 631629063 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3952 . 5625) (- 631629063 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3953 . 5625) (- 631629063 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3954 . 5625) (- 631629063 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3955 . 5625) (- 631629063 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3956 . 5625) (- 631629064 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3957 . 5625) (- 631629064 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3958 . 5625) (- 631629064 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3959 . 5625) (- 631629064 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3960 . 5625) (- 631629064 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3961 . 5625) (- 631629065 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3962 . 5625) (- 631629065 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3963 . 5625) (- 631629065 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3964 . 5625) (- 631629065 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3965 . 5625) (- 631629065 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3966 . 5625) (- 631629066 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3967 . 5625) (- 631629066 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3968 . 5625) (- 631629066 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3969 . 5625) (- 631629066 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3970 . 5625) (- 631629066 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3971 . 5625) (- 631629067 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3972 . 5625) (- 631629067 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3973 . 5625) (- 631629067 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3974 . 5625) (- 631629067 -4.61168601842739e+18) -> 4.61168601905902e+18) ((3975 . 5625) (- 631629067 -4.61168601842739e+18) -> 4.61168601905902e+18) ((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 4.61168601842739e+18) -> -4.60267881917265e+18) ((4255 . 5625) (- 9007199254740990 4.61168601842739e+18) -> -4.60267881917265e+18) ((4256 . 5625) (- 9007199254740991 4611686018427387901) -> -4602678819172646910) ((4257 . 5625) (- 9007199254740991 4611686018427387902) -> -4602678819172646911) ((4258 . 5625) (- 9007199254740991 4611686018427387903) -> -4602678819172646912) ((4259 . 5625) (- 9007199254740991 4.61168601842739e+18) -> -4.60267881917265e+18) ((4260 . 5625) (- 9007199254740991 4.61168601842739e+18) -> -4.60267881917265e+18) ((4261 . 5625) (- 9007199254740992 4611686018427387901) -> -4602678819172646909) ((4262 . 5625) (- 9007199254740992 4611686018427387902) -> -4602678819172646910) ((4263 . 5625) (- 9007199254740992 4611686018427387903) -> -4602678819172646911) ((4264 . 5625) (- 9007199254740992 4.61168601842739e+18) -> -4.60267881917265e+18) ((4265 . 5625) (- 9007199254740992 4.61168601842739e+18) -> -4.60267881917265e+18) ((4266 . 5625) (- 9007199254740993 4611686018427387901) -> -4602678819172646908) ((4267 . 5625) (- 9007199254740993 4611686018427387902) -> -4602678819172646909) ((4268 . 5625) (- 9007199254740993 4611686018427387903) -> -4602678819172646910) ((4269 . 5625) (- 9007199254740993 4.61168601842739e+18) -> -4.60267881917265e+18) ((4270 . 5625) (- 9007199254740993 4.61168601842739e+18) -> -4.60267881917265e+18) ((4271 . 5625) (- 9007199254740994 4611686018427387901) -> -4602678819172646907) ((4272 . 5625) (- 9007199254740994 4611686018427387902) -> -4602678819172646908) ((4273 . 5625) (- 9007199254740994 4611686018427387903) -> -4602678819172646909) ((4274 . 5625) (- 9007199254740994 4.61168601842739e+18) -> -4.60267881917265e+18) ((4275 . 5625) (- 9007199254740994 4.61168601842739e+18) -> -4.60267881917265e+18) ((4276 . 5625) (- 9007199254740990 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4277 . 5625) (- 9007199254740990 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4278 . 5625) (- 9007199254740990 -4611686018427387904) -> 4.62069321768213e+18) ((4279 . 5625) (- 9007199254740990 -4611686018427387903) -> 4.62069321768213e+18) ((4280 . 5625) (- 9007199254740990 -4611686018427387902) -> 4.62069321768213e+18) ((4281 . 5625) (- 9007199254740991 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4282 . 5625) (- 9007199254740991 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4283 . 5625) (- 9007199254740991 -4611686018427387904) -> 4.62069321768213e+18) ((4284 . 5625) (- 9007199254740991 -4611686018427387903) -> 4.62069321768213e+18) ((4285 . 5625) (- 9007199254740991 -4611686018427387902) -> 4.62069321768213e+18) ((4286 . 5625) (- 9007199254740992 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4287 . 5625) (- 9007199254740992 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4288 . 5625) (- 9007199254740992 -4611686018427387904) -> 4.62069321768213e+18) ((4289 . 5625) (- 9007199254740992 -4611686018427387903) -> 4.62069321768213e+18) ((4290 . 5625) (- 9007199254740992 -4611686018427387902) -> 4.62069321768213e+18) ((4291 . 5625) (- 9007199254740993 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4292 . 5625) (- 9007199254740993 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4293 . 5625) (- 9007199254740993 -4611686018427387904) -> 4.62069321768213e+18) ((4294 . 5625) (- 9007199254740993 -4611686018427387903) -> 4.62069321768213e+18) ((4295 . 5625) (- 9007199254740993 -4611686018427387902) -> 4.62069321768213e+18) ((4296 . 5625) (- 9007199254740994 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4297 . 5625) (- 9007199254740994 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4298 . 5625) (- 9007199254740994 -4611686018427387904) -> 4.62069321768213e+18) ((4299 . 5625) (- 9007199254740994 -4611686018427387903) -> 4.62069321768213e+18) ((4300 . 5625) (- 9007199254740994 -4611686018427387902) -> 4.62069321768213e+18) ((4301 . 5625) (- 9007199254740990 4.61168601842739e+18) -> -4.60267881917265e+18) ((4302 . 5625) (- 9007199254740990 4.61168601842739e+18) -> -4.60267881917265e+18) ((4303 . 5625) (- 9007199254740990 4.61168601842739e+18) -> -4.60267881917265e+18) ((4304 . 5625) (- 9007199254740990 4.61168601842739e+18) -> -4.60267881917265e+18) ((4305 . 5625) (- 9007199254740990 4.61168601842739e+18) -> -4.60267881917265e+18) ((4306 . 5625) (- 9007199254740991 4.61168601842739e+18) -> -4.60267881917265e+18) ((4307 . 5625) (- 9007199254740991 4.61168601842739e+18) -> -4.60267881917265e+18) ((4308 . 5625) (- 9007199254740991 4.61168601842739e+18) -> -4.60267881917265e+18) ((4309 . 5625) (- 9007199254740991 4.61168601842739e+18) -> -4.60267881917265e+18) ((4310 . 5625) (- 9007199254740991 4.61168601842739e+18) -> -4.60267881917265e+18) ((4311 . 5625) (- 9007199254740992 4.61168601842739e+18) -> -4.60267881917265e+18) ((4312 . 5625) (- 9007199254740992 4.61168601842739e+18) -> -4.60267881917265e+18) ((4313 . 5625) (- 9007199254740992 4.61168601842739e+18) -> -4.60267881917265e+18) ((4314 . 5625) (- 9007199254740992 4.61168601842739e+18) -> -4.60267881917265e+18) ((4315 . 5625) (- 9007199254740992 4.61168601842739e+18) -> -4.60267881917265e+18) ((4316 . 5625) (- 9007199254740993 4.61168601842739e+18) -> -4.60267881917265e+18) ((4317 . 5625) (- 9007199254740993 4.61168601842739e+18) -> -4.60267881917265e+18) ((4318 . 5625) (- 9007199254740993 4.61168601842739e+18) -> -4.60267881917265e+18) ((4319 . 5625) (- 9007199254740993 4.61168601842739e+18) -> -4.60267881917265e+18) ((4320 . 5625) (- 9007199254740993 4.61168601842739e+18) -> -4.60267881917265e+18) ((4321 . 5625) (- 9007199254740994 4.61168601842739e+18) -> -4.60267881917265e+18) ((4322 . 5625) (- 9007199254740994 4.61168601842739e+18) -> -4.60267881917265e+18) ((4323 . 5625) (- 9007199254740994 4.61168601842739e+18) -> -4.60267881917265e+18) ((4324 . 5625) (- 9007199254740994 4.61168601842739e+18) -> -4.60267881917265e+18) ((4325 . 5625) (- 9007199254740994 4.61168601842739e+18) -> -4.60267881917265e+18) ((4326 . 5625) (- 9007199254740990 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4327 . 5625) (- 9007199254740990 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4328 . 5625) (- 9007199254740990 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4329 . 5625) (- 9007199254740990 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4330 . 5625) (- 9007199254740990 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4331 . 5625) (- 9007199254740991 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4332 . 5625) (- 9007199254740991 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4333 . 5625) (- 9007199254740991 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4334 . 5625) (- 9007199254740991 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4335 . 5625) (- 9007199254740991 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4336 . 5625) (- 9007199254740992 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4337 . 5625) (- 9007199254740992 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4338 . 5625) (- 9007199254740992 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4339 . 5625) (- 9007199254740992 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4340 . 5625) (- 9007199254740992 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4341 . 5625) (- 9007199254740993 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4342 . 5625) (- 9007199254740993 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4343 . 5625) (- 9007199254740993 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4344 . 5625) (- 9007199254740993 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4345 . 5625) (- 9007199254740993 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4346 . 5625) (- 9007199254740994 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4347 . 5625) (- 9007199254740994 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4348 . 5625) (- 9007199254740994 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4349 . 5625) (- 9007199254740994 -4.61168601842739e+18) -> 4.62069321768213e+18) ((4350 . 5625) (- 9007199254740994 -4.61168601842739e+18) -> 4.62069321768213e+18) ((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) -> -4.62069321768213e+18) ((4627 . 5625) (- -9007199254740994 4611686018427387902) -> -4.62069321768213e+18) ((4628 . 5625) (- -9007199254740994 4611686018427387903) -> -4.62069321768213e+18) ((4629 . 5625) (- -9007199254740994 4.61168601842739e+18) -> -4.62069321768213e+18) ((4630 . 5625) (- -9007199254740994 4.61168601842739e+18) -> -4.62069321768213e+18) ((4631 . 5625) (- -9007199254740993 4611686018427387901) -> -4.62069321768213e+18) ((4632 . 5625) (- -9007199254740993 4611686018427387902) -> -4.62069321768213e+18) ((4633 . 5625) (- -9007199254740993 4611686018427387903) -> -4.62069321768213e+18) ((4634 . 5625) (- -9007199254740993 4.61168601842739e+18) -> -4.62069321768213e+18) ((4635 . 5625) (- -9007199254740993 4.61168601842739e+18) -> -4.62069321768213e+18) ((4636 . 5625) (- -9007199254740992 4611686018427387901) -> -4.62069321768213e+18) ((4637 . 5625) (- -9007199254740992 4611686018427387902) -> -4.62069321768213e+18) ((4638 . 5625) (- -9007199254740992 4611686018427387903) -> -4.62069321768213e+18) ((4639 . 5625) (- -9007199254740992 4.61168601842739e+18) -> -4.62069321768213e+18) ((4640 . 5625) (- -9007199254740992 4.61168601842739e+18) -> -4.62069321768213e+18) ((4641 . 5625) (- -9007199254740991 4611686018427387901) -> -4.62069321768213e+18) ((4642 . 5625) (- -9007199254740991 4611686018427387902) -> -4.62069321768213e+18) ((4643 . 5625) (- -9007199254740991 4611686018427387903) -> -4.62069321768213e+18) ((4644 . 5625) (- -9007199254740991 4.61168601842739e+18) -> -4.62069321768213e+18) ((4645 . 5625) (- -9007199254740991 4.61168601842739e+18) -> -4.62069321768213e+18) ((4646 . 5625) (- -9007199254740990 4611686018427387901) -> -4.62069321768213e+18) ((4647 . 5625) (- -9007199254740990 4611686018427387902) -> -4.62069321768213e+18) ((4648 . 5625) (- -9007199254740990 4611686018427387903) -> -4.62069321768213e+18) ((4649 . 5625) (- -9007199254740990 4.61168601842739e+18) -> -4.62069321768213e+18) ((4650 . 5625) (- -9007199254740990 4.61168601842739e+18) -> -4.62069321768213e+18) ((4651 . 5625) (- -9007199254740994 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4652 . 5625) (- -9007199254740994 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4653 . 5625) (- -9007199254740994 -4611686018427387904) -> 4602678819172646910) ((4654 . 5625) (- -9007199254740994 -4611686018427387903) -> 4602678819172646909) ((4655 . 5625) (- -9007199254740994 -4611686018427387902) -> 4602678819172646908) ((4656 . 5625) (- -9007199254740993 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4657 . 5625) (- -9007199254740993 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4658 . 5625) (- -9007199254740993 -4611686018427387904) -> 4602678819172646911) ((4659 . 5625) (- -9007199254740993 -4611686018427387903) -> 4602678819172646910) ((4660 . 5625) (- -9007199254740993 -4611686018427387902) -> 4602678819172646909) ((4661 . 5625) (- -9007199254740992 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4662 . 5625) (- -9007199254740992 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4663 . 5625) (- -9007199254740992 -4611686018427387904) -> 4602678819172646912) ((4664 . 5625) (- -9007199254740992 -4611686018427387903) -> 4602678819172646911) ((4665 . 5625) (- -9007199254740992 -4611686018427387902) -> 4602678819172646910) ((4666 . 5625) (- -9007199254740991 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4667 . 5625) (- -9007199254740991 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4668 . 5625) (- -9007199254740991 -4611686018427387904) -> 4602678819172646913) ((4669 . 5625) (- -9007199254740991 -4611686018427387903) -> 4602678819172646912) ((4670 . 5625) (- -9007199254740991 -4611686018427387902) -> 4602678819172646911) ((4671 . 5625) (- -9007199254740990 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4672 . 5625) (- -9007199254740990 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4673 . 5625) (- -9007199254740990 -4611686018427387904) -> 4602678819172646914) ((4674 . 5625) (- -9007199254740990 -4611686018427387903) -> 4602678819172646913) ((4675 . 5625) (- -9007199254740990 -4611686018427387902) -> 4602678819172646912) ((4676 . 5625) (- -9007199254740994 4.61168601842739e+18) -> -4.62069321768213e+18) ((4677 . 5625) (- -9007199254740994 4.61168601842739e+18) -> -4.62069321768213e+18) ((4678 . 5625) (- -9007199254740994 4.61168601842739e+18) -> -4.62069321768213e+18) ((4679 . 5625) (- -9007199254740994 4.61168601842739e+18) -> -4.62069321768213e+18) ((4680 . 5625) (- -9007199254740994 4.61168601842739e+18) -> -4.62069321768213e+18) ((4681 . 5625) (- -9007199254740993 4.61168601842739e+18) -> -4.62069321768213e+18) ((4682 . 5625) (- -9007199254740993 4.61168601842739e+18) -> -4.62069321768213e+18) ((4683 . 5625) (- -9007199254740993 4.61168601842739e+18) -> -4.62069321768213e+18) ((4684 . 5625) (- -9007199254740993 4.61168601842739e+18) -> -4.62069321768213e+18) ((4685 . 5625) (- -9007199254740993 4.61168601842739e+18) -> -4.62069321768213e+18) ((4686 . 5625) (- -9007199254740992 4.61168601842739e+18) -> -4.62069321768213e+18) ((4687 . 5625) (- -9007199254740992 4.61168601842739e+18) -> -4.62069321768213e+18) ((4688 . 5625) (- -9007199254740992 4.61168601842739e+18) -> -4.62069321768213e+18) ((4689 . 5625) (- -9007199254740992 4.61168601842739e+18) -> -4.62069321768213e+18) ((4690 . 5625) (- -9007199254740992 4.61168601842739e+18) -> -4.62069321768213e+18) ((4691 . 5625) (- -9007199254740991 4.61168601842739e+18) -> -4.62069321768213e+18) ((4692 . 5625) (- -9007199254740991 4.61168601842739e+18) -> -4.62069321768213e+18) ((4693 . 5625) (- -9007199254740991 4.61168601842739e+18) -> -4.62069321768213e+18) ((4694 . 5625) (- -9007199254740991 4.61168601842739e+18) -> -4.62069321768213e+18) ((4695 . 5625) (- -9007199254740991 4.61168601842739e+18) -> -4.62069321768213e+18) ((4696 . 5625) (- -9007199254740990 4.61168601842739e+18) -> -4.62069321768213e+18) ((4697 . 5625) (- -9007199254740990 4.61168601842739e+18) -> -4.62069321768213e+18) ((4698 . 5625) (- -9007199254740990 4.61168601842739e+18) -> -4.62069321768213e+18) ((4699 . 5625) (- -9007199254740990 4.61168601842739e+18) -> -4.62069321768213e+18) ((4700 . 5625) (- -9007199254740990 4.61168601842739e+18) -> -4.62069321768213e+18) ((4701 . 5625) (- -9007199254740994 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4702 . 5625) (- -9007199254740994 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4703 . 5625) (- -9007199254740994 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4704 . 5625) (- -9007199254740994 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4705 . 5625) (- -9007199254740994 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4706 . 5625) (- -9007199254740993 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4707 . 5625) (- -9007199254740993 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4708 . 5625) (- -9007199254740993 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4709 . 5625) (- -9007199254740993 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4710 . 5625) (- -9007199254740993 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4711 . 5625) (- -9007199254740992 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4712 . 5625) (- -9007199254740992 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4713 . 5625) (- -9007199254740992 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4714 . 5625) (- -9007199254740992 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4715 . 5625) (- -9007199254740992 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4716 . 5625) (- -9007199254740991 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4717 . 5625) (- -9007199254740991 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4718 . 5625) (- -9007199254740991 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4719 . 5625) (- -9007199254740991 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4720 . 5625) (- -9007199254740991 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4721 . 5625) (- -9007199254740990 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4722 . 5625) (- -9007199254740990 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4723 . 5625) (- -9007199254740990 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4724 . 5625) (- -9007199254740990 -4.61168601842739e+18) -> 4.60267881917265e+18) ((4725 . 5625) (- -9007199254740990 -4.61168601842739e+18) -> 4.60267881917265e+18) ((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 4.61168601842739e+18) -> -4.61168601842738e+18) ((5005 . 5625) (- 12343 4.61168601842739e+18) -> -4.61168601842738e+18) ((5006 . 5625) (- 12344 4611686018427387901) -> -4611686018427375557) ((5007 . 5625) (- 12344 4611686018427387902) -> -4611686018427375558) ((5008 . 5625) (- 12344 4611686018427387903) -> -4611686018427375559) ((5009 . 5625) (- 12344 4.61168601842739e+18) -> -4.61168601842738e+18) ((5010 . 5625) (- 12344 4.61168601842739e+18) -> -4.61168601842738e+18) ((5011 . 5625) (- 12345 4611686018427387901) -> -4611686018427375556) ((5012 . 5625) (- 12345 4611686018427387902) -> -4611686018427375557) ((5013 . 5625) (- 12345 4611686018427387903) -> -4611686018427375558) ((5014 . 5625) (- 12345 4.61168601842739e+18) -> -4.61168601842738e+18) ((5015 . 5625) (- 12345 4.61168601842739e+18) -> -4.61168601842738e+18) ((5016 . 5625) (- 12346 4611686018427387901) -> -4611686018427375555) ((5017 . 5625) (- 12346 4611686018427387902) -> -4611686018427375556) ((5018 . 5625) (- 12346 4611686018427387903) -> -4611686018427375557) ((5019 . 5625) (- 12346 4.61168601842739e+18) -> -4.61168601842738e+18) ((5020 . 5625) (- 12346 4.61168601842739e+18) -> -4.61168601842738e+18) ((5021 . 5625) (- 12347 4611686018427387901) -> -4611686018427375554) ((5022 . 5625) (- 12347 4611686018427387902) -> -4611686018427375555) ((5023 . 5625) (- 12347 4611686018427387903) -> -4611686018427375556) ((5024 . 5625) (- 12347 4.61168601842739e+18) -> -4.61168601842738e+18) ((5025 . 5625) (- 12347 4.61168601842739e+18) -> -4.61168601842738e+18) ((5026 . 5625) (- 12343 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5027 . 5625) (- 12343 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5028 . 5625) (- 12343 -4611686018427387904) -> 4.6116860184274e+18) ((5029 . 5625) (- 12343 -4611686018427387903) -> 4.6116860184274e+18) ((5030 . 5625) (- 12343 -4611686018427387902) -> 4.6116860184274e+18) ((5031 . 5625) (- 12344 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5032 . 5625) (- 12344 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5033 . 5625) (- 12344 -4611686018427387904) -> 4.6116860184274e+18) ((5034 . 5625) (- 12344 -4611686018427387903) -> 4.6116860184274e+18) ((5035 . 5625) (- 12344 -4611686018427387902) -> 4.6116860184274e+18) ((5036 . 5625) (- 12345 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5037 . 5625) (- 12345 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5038 . 5625) (- 12345 -4611686018427387904) -> 4.6116860184274e+18) ((5039 . 5625) (- 12345 -4611686018427387903) -> 4.6116860184274e+18) ((5040 . 5625) (- 12345 -4611686018427387902) -> 4.6116860184274e+18) ((5041 . 5625) (- 12346 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5042 . 5625) (- 12346 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5043 . 5625) (- 12346 -4611686018427387904) -> 4.6116860184274e+18) ((5044 . 5625) (- 12346 -4611686018427387903) -> 4.6116860184274e+18) ((5045 . 5625) (- 12346 -4611686018427387902) -> 4.6116860184274e+18) ((5046 . 5625) (- 12347 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5047 . 5625) (- 12347 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5048 . 5625) (- 12347 -4611686018427387904) -> 4.6116860184274e+18) ((5049 . 5625) (- 12347 -4611686018427387903) -> 4.6116860184274e+18) ((5050 . 5625) (- 12347 -4611686018427387902) -> 4.6116860184274e+18) ((5051 . 5625) (- 12343 4.61168601842739e+18) -> -4.61168601842738e+18) ((5052 . 5625) (- 12343 4.61168601842739e+18) -> -4.61168601842738e+18) ((5053 . 5625) (- 12343 4.61168601842739e+18) -> -4.61168601842738e+18) ((5054 . 5625) (- 12343 4.61168601842739e+18) -> -4.61168601842738e+18) ((5055 . 5625) (- 12343 4.61168601842739e+18) -> -4.61168601842738e+18) ((5056 . 5625) (- 12344 4.61168601842739e+18) -> -4.61168601842738e+18) ((5057 . 5625) (- 12344 4.61168601842739e+18) -> -4.61168601842738e+18) ((5058 . 5625) (- 12344 4.61168601842739e+18) -> -4.61168601842738e+18) ((5059 . 5625) (- 12344 4.61168601842739e+18) -> -4.61168601842738e+18) ((5060 . 5625) (- 12344 4.61168601842739e+18) -> -4.61168601842738e+18) ((5061 . 5625) (- 12345 4.61168601842739e+18) -> -4.61168601842738e+18) ((5062 . 5625) (- 12345 4.61168601842739e+18) -> -4.61168601842738e+18) ((5063 . 5625) (- 12345 4.61168601842739e+18) -> -4.61168601842738e+18) ((5064 . 5625) (- 12345 4.61168601842739e+18) -> -4.61168601842738e+18) ((5065 . 5625) (- 12345 4.61168601842739e+18) -> -4.61168601842738e+18) ((5066 . 5625) (- 12346 4.61168601842739e+18) -> -4.61168601842738e+18) ((5067 . 5625) (- 12346 4.61168601842739e+18) -> -4.61168601842738e+18) ((5068 . 5625) (- 12346 4.61168601842739e+18) -> -4.61168601842738e+18) ((5069 . 5625) (- 12346 4.61168601842739e+18) -> -4.61168601842738e+18) ((5070 . 5625) (- 12346 4.61168601842739e+18) -> -4.61168601842738e+18) ((5071 . 5625) (- 12347 4.61168601842739e+18) -> -4.61168601842738e+18) ((5072 . 5625) (- 12347 4.61168601842739e+18) -> -4.61168601842738e+18) ((5073 . 5625) (- 12347 4.61168601842739e+18) -> -4.61168601842738e+18) ((5074 . 5625) (- 12347 4.61168601842739e+18) -> -4.61168601842738e+18) ((5075 . 5625) (- 12347 4.61168601842739e+18) -> -4.61168601842738e+18) ((5076 . 5625) (- 12343 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5077 . 5625) (- 12343 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5078 . 5625) (- 12343 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5079 . 5625) (- 12343 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5080 . 5625) (- 12343 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5081 . 5625) (- 12344 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5082 . 5625) (- 12344 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5083 . 5625) (- 12344 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5084 . 5625) (- 12344 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5085 . 5625) (- 12344 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5086 . 5625) (- 12345 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5087 . 5625) (- 12345 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5088 . 5625) (- 12345 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5089 . 5625) (- 12345 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5090 . 5625) (- 12345 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5091 . 5625) (- 12346 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5092 . 5625) (- 12346 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5093 . 5625) (- 12346 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5094 . 5625) (- 12346 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5095 . 5625) (- 12346 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5096 . 5625) (- 12347 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5097 . 5625) (- 12347 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5098 . 5625) (- 12347 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5099 . 5625) (- 12347 -4.61168601842739e+18) -> 4.6116860184274e+18) ((5100 . 5625) (- 12347 -4.61168601842739e+18) -> 4.6116860184274e+18) ((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 4.61168601842739e+18) -> -4.61168601413242e+18) ((5380 . 5625) (- 4294967294 4.61168601842739e+18) -> -4.61168601413242e+18) ((5381 . 5625) (- 4294967295 4611686018427387901) -> -4611686014132420606) ((5382 . 5625) (- 4294967295 4611686018427387902) -> -4611686014132420607) ((5383 . 5625) (- 4294967295 4611686018427387903) -> -4611686014132420608) ((5384 . 5625) (- 4294967295 4.61168601842739e+18) -> -4.61168601413242e+18) ((5385 . 5625) (- 4294967295 4.61168601842739e+18) -> -4.61168601413242e+18) ((5386 . 5625) (- 4294967296 4611686018427387901) -> -4611686014132420605) ((5387 . 5625) (- 4294967296 4611686018427387902) -> -4611686014132420606) ((5388 . 5625) (- 4294967296 4611686018427387903) -> -4611686014132420607) ((5389 . 5625) (- 4294967296 4.61168601842739e+18) -> -4.61168601413242e+18) ((5390 . 5625) (- 4294967296 4.61168601842739e+18) -> -4.61168601413242e+18) ((5391 . 5625) (- 4294967297 4611686018427387901) -> -4611686014132420604) ((5392 . 5625) (- 4294967297 4611686018427387902) -> -4611686014132420605) ((5393 . 5625) (- 4294967297 4611686018427387903) -> -4611686014132420606) ((5394 . 5625) (- 4294967297 4.61168601842739e+18) -> -4.61168601413242e+18) ((5395 . 5625) (- 4294967297 4.61168601842739e+18) -> -4.61168601413242e+18) ((5396 . 5625) (- 4294967298 4611686018427387901) -> -4611686014132420603) ((5397 . 5625) (- 4294967298 4611686018427387902) -> -4611686014132420604) ((5398 . 5625) (- 4294967298 4611686018427387903) -> -4611686014132420605) ((5399 . 5625) (- 4294967298 4.61168601842739e+18) -> -4.61168601413242e+18) ((5400 . 5625) (- 4294967298 4.61168601842739e+18) -> -4.61168601413242e+18) ((5401 . 5625) (- 4294967294 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5402 . 5625) (- 4294967294 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5403 . 5625) (- 4294967294 -4611686018427387904) -> 4.61168602272236e+18) ((5404 . 5625) (- 4294967294 -4611686018427387903) -> 4.61168602272236e+18) ((5405 . 5625) (- 4294967294 -4611686018427387902) -> 4.61168602272236e+18) ((5406 . 5625) (- 4294967295 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5407 . 5625) (- 4294967295 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5408 . 5625) (- 4294967295 -4611686018427387904) -> 4.61168602272236e+18) ((5409 . 5625) (- 4294967295 -4611686018427387903) -> 4.61168602272236e+18) ((5410 . 5625) (- 4294967295 -4611686018427387902) -> 4.61168602272236e+18) ((5411 . 5625) (- 4294967296 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5412 . 5625) (- 4294967296 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5413 . 5625) (- 4294967296 -4611686018427387904) -> 4.61168602272236e+18) ((5414 . 5625) (- 4294967296 -4611686018427387903) -> 4.61168602272236e+18) ((5415 . 5625) (- 4294967296 -4611686018427387902) -> 4.61168602272236e+18) ((5416 . 5625) (- 4294967297 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5417 . 5625) (- 4294967297 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5418 . 5625) (- 4294967297 -4611686018427387904) -> 4.61168602272236e+18) ((5419 . 5625) (- 4294967297 -4611686018427387903) -> 4.61168602272236e+18) ((5420 . 5625) (- 4294967297 -4611686018427387902) -> 4.61168602272236e+18) ((5421 . 5625) (- 4294967298 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5422 . 5625) (- 4294967298 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5423 . 5625) (- 4294967298 -4611686018427387904) -> 4.61168602272236e+18) ((5424 . 5625) (- 4294967298 -4611686018427387903) -> 4.61168602272236e+18) ((5425 . 5625) (- 4294967298 -4611686018427387902) -> 4.61168602272236e+18) ((5426 . 5625) (- 4294967294 4.61168601842739e+18) -> -4.61168601413242e+18) ((5427 . 5625) (- 4294967294 4.61168601842739e+18) -> -4.61168601413242e+18) ((5428 . 5625) (- 4294967294 4.61168601842739e+18) -> -4.61168601413242e+18) ((5429 . 5625) (- 4294967294 4.61168601842739e+18) -> -4.61168601413242e+18) ((5430 . 5625) (- 4294967294 4.61168601842739e+18) -> -4.61168601413242e+18) ((5431 . 5625) (- 4294967295 4.61168601842739e+18) -> -4.61168601413242e+18) ((5432 . 5625) (- 4294967295 4.61168601842739e+18) -> -4.61168601413242e+18) ((5433 . 5625) (- 4294967295 4.61168601842739e+18) -> -4.61168601413242e+18) ((5434 . 5625) (- 4294967295 4.61168601842739e+18) -> -4.61168601413242e+18) ((5435 . 5625) (- 4294967295 4.61168601842739e+18) -> -4.61168601413242e+18) ((5436 . 5625) (- 4294967296 4.61168601842739e+18) -> -4.61168601413242e+18) ((5437 . 5625) (- 4294967296 4.61168601842739e+18) -> -4.61168601413242e+18) ((5438 . 5625) (- 4294967296 4.61168601842739e+18) -> -4.61168601413242e+18) ((5439 . 5625) (- 4294967296 4.61168601842739e+18) -> -4.61168601413242e+18) ((5440 . 5625) (- 4294967296 4.61168601842739e+18) -> -4.61168601413242e+18) ((5441 . 5625) (- 4294967297 4.61168601842739e+18) -> -4.61168601413242e+18) ((5442 . 5625) (- 4294967297 4.61168601842739e+18) -> -4.61168601413242e+18) ((5443 . 5625) (- 4294967297 4.61168601842739e+18) -> -4.61168601413242e+18) ((5444 . 5625) (- 4294967297 4.61168601842739e+18) -> -4.61168601413242e+18) ((5445 . 5625) (- 4294967297 4.61168601842739e+18) -> -4.61168601413242e+18) ((5446 . 5625) (- 4294967298 4.61168601842739e+18) -> -4.61168601413242e+18) ((5447 . 5625) (- 4294967298 4.61168601842739e+18) -> -4.61168601413242e+18) ((5448 . 5625) (- 4294967298 4.61168601842739e+18) -> -4.61168601413242e+18) ((5449 . 5625) (- 4294967298 4.61168601842739e+18) -> -4.61168601413242e+18) ((5450 . 5625) (- 4294967298 4.61168601842739e+18) -> -4.61168601413242e+18) ((5451 . 5625) (- 4294967294 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5452 . 5625) (- 4294967294 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5453 . 5625) (- 4294967294 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5454 . 5625) (- 4294967294 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5455 . 5625) (- 4294967294 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5456 . 5625) (- 4294967295 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5457 . 5625) (- 4294967295 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5458 . 5625) (- 4294967295 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5459 . 5625) (- 4294967295 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5460 . 5625) (- 4294967295 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5461 . 5625) (- 4294967296 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5462 . 5625) (- 4294967296 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5463 . 5625) (- 4294967296 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5464 . 5625) (- 4294967296 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5465 . 5625) (- 4294967296 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5466 . 5625) (- 4294967297 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5467 . 5625) (- 4294967297 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5468 . 5625) (- 4294967297 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5469 . 5625) (- 4294967297 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5470 . 5625) (- 4294967297 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5471 . 5625) (- 4294967298 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5472 . 5625) (- 4294967298 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5473 . 5625) (- 4294967298 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5474 . 5625) (- 4294967298 -4.61168601842739e+18) -> 4.61168602272236e+18) ((5475 . 5625) (- 4294967298 -4.61168601842739e+18) -> 4.61168602272236e+18) ((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) -> -9.22337203685478e+18) ((127 . 5625) (* -2 4611686018427387902) -> -9.22337203685478e+18) ((128 . 5625) (* -2 4611686018427387903) -> -9.22337203685478e+18) ((129 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((130 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((131 . 5625) (* -1 4611686018427387901) -> -4611686018427387901) ((132 . 5625) (* -1 4611686018427387902) -> -4611686018427387902) ((133 . 5625) (* -1 4611686018427387903) -> -4611686018427387903) ((134 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((135 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((136 . 5625) (* 0 4611686018427387901) -> 0) ((137 . 5625) (* 0 4611686018427387902) -> 0) ((138 . 5625) (* 0 4611686018427387903) -> 0) ((139 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((140 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((141 . 5625) (* 1 4611686018427387901) -> 4611686018427387901) ((142 . 5625) (* 1 4611686018427387902) -> 4611686018427387902) ((143 . 5625) (* 1 4611686018427387903) -> 4611686018427387903) ((144 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((145 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((146 . 5625) (* 2 4611686018427387901) -> 9.22337203685478e+18) ((147 . 5625) (* 2 4611686018427387902) -> 9.22337203685478e+18) ((148 . 5625) (* 2 4611686018427387903) -> 9.22337203685478e+18) ((149 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((150 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((151 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((152 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((153 . 5625) (* -2 -4611686018427387904) -> 9.22337203685478e+18) ((154 . 5625) (* -2 -4611686018427387903) -> 9.22337203685478e+18) ((155 . 5625) (* -2 -4611686018427387902) -> 9.22337203685478e+18) ((156 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((157 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((158 . 5625) (* -1 -4611686018427387904) -> 4.61168601842739e+18) ((159 . 5625) (* -1 -4611686018427387903) -> 4611686018427387903) ((160 . 5625) (* -1 -4611686018427387902) -> 4611686018427387902) ((161 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((162 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((163 . 5625) (* 0 -4611686018427387904) -> 0) ((164 . 5625) (* 0 -4611686018427387903) -> 0) ((165 . 5625) (* 0 -4611686018427387902) -> 0) ((166 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((167 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((168 . 5625) (* 1 -4611686018427387904) -> -4611686018427387904) ((169 . 5625) (* 1 -4611686018427387903) -> -4611686018427387903) ((170 . 5625) (* 1 -4611686018427387902) -> -4611686018427387902) ((171 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((172 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((173 . 5625) (* 2 -4611686018427387904) -> -9.22337203685478e+18) ((174 . 5625) (* 2 -4611686018427387903) -> -9.22337203685478e+18) ((175 . 5625) (* 2 -4611686018427387902) -> -9.22337203685478e+18) ((176 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((177 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((178 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((179 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((180 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((181 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((182 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((183 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((184 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((185 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((186 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((187 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((188 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((189 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((190 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((191 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((192 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((193 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((194 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((195 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((196 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((197 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((198 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((199 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((200 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((201 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((202 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((203 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((204 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((205 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((206 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((207 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((208 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((209 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((210 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((211 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((212 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((213 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((214 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((215 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((216 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((217 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((218 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((219 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((220 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((221 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((222 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((223 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((224 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((225 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((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 4.61168601842739e+18) -> -4.61168601842739e+18) ((505 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((506 . 5625) (* 0 4611686018427387901) -> 0) ((507 . 5625) (* 0 4611686018427387902) -> 0) ((508 . 5625) (* 0 4611686018427387903) -> 0) ((509 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((510 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((511 . 5625) (* 1 4611686018427387901) -> 4611686018427387901) ((512 . 5625) (* 1 4611686018427387902) -> 4611686018427387902) ((513 . 5625) (* 1 4611686018427387903) -> 4611686018427387903) ((514 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((515 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((516 . 5625) (* 2 4611686018427387901) -> 9.22337203685478e+18) ((517 . 5625) (* 2 4611686018427387902) -> 9.22337203685478e+18) ((518 . 5625) (* 2 4611686018427387903) -> 9.22337203685478e+18) ((519 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((520 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((521 . 5625) (* 3 4611686018427387901) -> 1.38350580552822e+19) ((522 . 5625) (* 3 4611686018427387902) -> 1.38350580552822e+19) ((523 . 5625) (* 3 4611686018427387903) -> 1.38350580552822e+19) ((524 . 5625) (* 3 4.61168601842739e+18) -> 1.38350580552822e+19) ((525 . 5625) (* 3 4.61168601842739e+18) -> 1.38350580552822e+19) ((526 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((527 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((528 . 5625) (* -1 -4611686018427387904) -> 4.61168601842739e+18) ((529 . 5625) (* -1 -4611686018427387903) -> 4611686018427387903) ((530 . 5625) (* -1 -4611686018427387902) -> 4611686018427387902) ((531 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((532 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((533 . 5625) (* 0 -4611686018427387904) -> 0) ((534 . 5625) (* 0 -4611686018427387903) -> 0) ((535 . 5625) (* 0 -4611686018427387902) -> 0) ((536 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((537 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((538 . 5625) (* 1 -4611686018427387904) -> -4611686018427387904) ((539 . 5625) (* 1 -4611686018427387903) -> -4611686018427387903) ((540 . 5625) (* 1 -4611686018427387902) -> -4611686018427387902) ((541 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((542 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((543 . 5625) (* 2 -4611686018427387904) -> -9.22337203685478e+18) ((544 . 5625) (* 2 -4611686018427387903) -> -9.22337203685478e+18) ((545 . 5625) (* 2 -4611686018427387902) -> -9.22337203685478e+18) ((546 . 5625) (* 3 -4.61168601842739e+18) -> -1.38350580552822e+19) ((547 . 5625) (* 3 -4.61168601842739e+18) -> -1.38350580552822e+19) ((548 . 5625) (* 3 -4611686018427387904) -> -1.38350580552822e+19) ((549 . 5625) (* 3 -4611686018427387903) -> -1.38350580552822e+19) ((550 . 5625) (* 3 -4611686018427387902) -> -1.38350580552822e+19) ((551 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((552 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((553 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((554 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((555 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((556 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((557 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((558 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((559 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((560 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((561 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((562 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((563 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((564 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((565 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((566 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((567 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((568 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((569 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((570 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((571 . 5625) (* 3 4.61168601842739e+18) -> 1.38350580552822e+19) ((572 . 5625) (* 3 4.61168601842739e+18) -> 1.38350580552822e+19) ((573 . 5625) (* 3 4.61168601842739e+18) -> 1.38350580552822e+19) ((574 . 5625) (* 3 4.61168601842739e+18) -> 1.38350580552822e+19) ((575 . 5625) (* 3 4.61168601842739e+18) -> 1.38350580552822e+19) ((576 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((577 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((578 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((579 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((580 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((581 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((582 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((583 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((584 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((585 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((586 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((587 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((588 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((589 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((590 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((591 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((592 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((593 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((594 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((595 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((596 . 5625) (* 3 -4.61168601842739e+18) -> -1.38350580552822e+19) ((597 . 5625) (* 3 -4.61168601842739e+18) -> -1.38350580552822e+19) ((598 . 5625) (* 3 -4.61168601842739e+18) -> -1.38350580552822e+19) ((599 . 5625) (* 3 -4.61168601842739e+18) -> -1.38350580552822e+19) ((600 . 5625) (* 3 -4.61168601842739e+18) -> -1.38350580552822e+19) ((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) -> -1.38350580552822e+19) ((877 . 5625) (* -3 4611686018427387902) -> -1.38350580552822e+19) ((878 . 5625) (* -3 4611686018427387903) -> -1.38350580552822e+19) ((879 . 5625) (* -3 4.61168601842739e+18) -> -1.38350580552822e+19) ((880 . 5625) (* -3 4.61168601842739e+18) -> -1.38350580552822e+19) ((881 . 5625) (* -2 4611686018427387901) -> -9.22337203685478e+18) ((882 . 5625) (* -2 4611686018427387902) -> -9.22337203685478e+18) ((883 . 5625) (* -2 4611686018427387903) -> -9.22337203685478e+18) ((884 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((885 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((886 . 5625) (* -1 4611686018427387901) -> -4611686018427387901) ((887 . 5625) (* -1 4611686018427387902) -> -4611686018427387902) ((888 . 5625) (* -1 4611686018427387903) -> -4611686018427387903) ((889 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((890 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((891 . 5625) (* 0 4611686018427387901) -> 0) ((892 . 5625) (* 0 4611686018427387902) -> 0) ((893 . 5625) (* 0 4611686018427387903) -> 0) ((894 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((895 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((896 . 5625) (* 1 4611686018427387901) -> 4611686018427387901) ((897 . 5625) (* 1 4611686018427387902) -> 4611686018427387902) ((898 . 5625) (* 1 4611686018427387903) -> 4611686018427387903) ((899 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((900 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((901 . 5625) (* -3 -4.61168601842739e+18) -> 1.38350580552822e+19) ((902 . 5625) (* -3 -4.61168601842739e+18) -> 1.38350580552822e+19) ((903 . 5625) (* -3 -4611686018427387904) -> 1.38350580552822e+19) ((904 . 5625) (* -3 -4611686018427387903) -> 1.38350580552822e+19) ((905 . 5625) (* -3 -4611686018427387902) -> 1.38350580552822e+19) ((906 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((907 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((908 . 5625) (* -2 -4611686018427387904) -> 9.22337203685478e+18) ((909 . 5625) (* -2 -4611686018427387903) -> 9.22337203685478e+18) ((910 . 5625) (* -2 -4611686018427387902) -> 9.22337203685478e+18) ((911 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((912 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((913 . 5625) (* -1 -4611686018427387904) -> 4.61168601842739e+18) ((914 . 5625) (* -1 -4611686018427387903) -> 4611686018427387903) ((915 . 5625) (* -1 -4611686018427387902) -> 4611686018427387902) ((916 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((917 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((918 . 5625) (* 0 -4611686018427387904) -> 0) ((919 . 5625) (* 0 -4611686018427387903) -> 0) ((920 . 5625) (* 0 -4611686018427387902) -> 0) ((921 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((922 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((923 . 5625) (* 1 -4611686018427387904) -> -4611686018427387904) ((924 . 5625) (* 1 -4611686018427387903) -> -4611686018427387903) ((925 . 5625) (* 1 -4611686018427387902) -> -4611686018427387902) ((926 . 5625) (* -3 4.61168601842739e+18) -> -1.38350580552822e+19) ((927 . 5625) (* -3 4.61168601842739e+18) -> -1.38350580552822e+19) ((928 . 5625) (* -3 4.61168601842739e+18) -> -1.38350580552822e+19) ((929 . 5625) (* -3 4.61168601842739e+18) -> -1.38350580552822e+19) ((930 . 5625) (* -3 4.61168601842739e+18) -> -1.38350580552822e+19) ((931 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((932 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((933 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((934 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((935 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((936 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((937 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((938 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((939 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((940 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((941 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((942 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((943 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((944 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((945 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((946 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((947 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((948 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((949 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((950 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((951 . 5625) (* -3 -4.61168601842739e+18) -> 1.38350580552822e+19) ((952 . 5625) (* -3 -4.61168601842739e+18) -> 1.38350580552822e+19) ((953 . 5625) (* -3 -4.61168601842739e+18) -> 1.38350580552822e+19) ((954 . 5625) (* -3 -4.61168601842739e+18) -> 1.38350580552822e+19) ((955 . 5625) (* -3 -4.61168601842739e+18) -> 1.38350580552822e+19) ((956 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((957 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((958 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((959 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((960 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((961 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((962 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((963 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((964 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((965 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((966 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((967 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((968 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((969 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((970 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((971 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((972 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((973 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((974 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((975 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((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 4.61168601842739e+18) -> 0.0) ((1255 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((1256 . 5625) (* 1 4611686018427387901) -> 4611686018427387901) ((1257 . 5625) (* 1 4611686018427387902) -> 4611686018427387902) ((1258 . 5625) (* 1 4611686018427387903) -> 4611686018427387903) ((1259 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1260 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1261 . 5625) (* 2 4611686018427387901) -> 9.22337203685478e+18) ((1262 . 5625) (* 2 4611686018427387902) -> 9.22337203685478e+18) ((1263 . 5625) (* 2 4611686018427387903) -> 9.22337203685478e+18) ((1264 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((1265 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((1266 . 5625) (* 3 4611686018427387901) -> 1.38350580552822e+19) ((1267 . 5625) (* 3 4611686018427387902) -> 1.38350580552822e+19) ((1268 . 5625) (* 3 4611686018427387903) -> 1.38350580552822e+19) ((1269 . 5625) (* 3 4.61168601842739e+18) -> 1.38350580552822e+19) ((1270 . 5625) (* 3 4.61168601842739e+18) -> 1.38350580552822e+19) ((1271 . 5625) (* 4 4611686018427387901) -> 1.84467440737096e+19) ((1272 . 5625) (* 4 4611686018427387902) -> 1.84467440737096e+19) ((1273 . 5625) (* 4 4611686018427387903) -> 1.84467440737096e+19) ((1274 . 5625) (* 4 4.61168601842739e+18) -> 1.84467440737096e+19) ((1275 . 5625) (* 4 4.61168601842739e+18) -> 1.84467440737096e+19) ((1276 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((1277 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((1278 . 5625) (* 0 -4611686018427387904) -> 0) ((1279 . 5625) (* 0 -4611686018427387903) -> 0) ((1280 . 5625) (* 0 -4611686018427387902) -> 0) ((1281 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1282 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1283 . 5625) (* 1 -4611686018427387904) -> -4611686018427387904) ((1284 . 5625) (* 1 -4611686018427387903) -> -4611686018427387903) ((1285 . 5625) (* 1 -4611686018427387902) -> -4611686018427387902) ((1286 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((1287 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((1288 . 5625) (* 2 -4611686018427387904) -> -9.22337203685478e+18) ((1289 . 5625) (* 2 -4611686018427387903) -> -9.22337203685478e+18) ((1290 . 5625) (* 2 -4611686018427387902) -> -9.22337203685478e+18) ((1291 . 5625) (* 3 -4.61168601842739e+18) -> -1.38350580552822e+19) ((1292 . 5625) (* 3 -4.61168601842739e+18) -> -1.38350580552822e+19) ((1293 . 5625) (* 3 -4611686018427387904) -> -1.38350580552822e+19) ((1294 . 5625) (* 3 -4611686018427387903) -> -1.38350580552822e+19) ((1295 . 5625) (* 3 -4611686018427387902) -> -1.38350580552822e+19) ((1296 . 5625) (* 4 -4.61168601842739e+18) -> -1.84467440737096e+19) ((1297 . 5625) (* 4 -4.61168601842739e+18) -> -1.84467440737096e+19) ((1298 . 5625) (* 4 -4611686018427387904) -> -1.84467440737096e+19) ((1299 . 5625) (* 4 -4611686018427387903) -> -1.84467440737096e+19) ((1300 . 5625) (* 4 -4611686018427387902) -> -1.84467440737096e+19) ((1301 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((1302 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((1303 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((1304 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((1305 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((1306 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1307 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1308 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1309 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1310 . 5625) (* 1 4.61168601842739e+18) -> 4.61168601842739e+18) ((1311 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((1312 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((1313 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((1314 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((1315 . 5625) (* 2 4.61168601842739e+18) -> 9.22337203685478e+18) ((1316 . 5625) (* 3 4.61168601842739e+18) -> 1.38350580552822e+19) ((1317 . 5625) (* 3 4.61168601842739e+18) -> 1.38350580552822e+19) ((1318 . 5625) (* 3 4.61168601842739e+18) -> 1.38350580552822e+19) ((1319 . 5625) (* 3 4.61168601842739e+18) -> 1.38350580552822e+19) ((1320 . 5625) (* 3 4.61168601842739e+18) -> 1.38350580552822e+19) ((1321 . 5625) (* 4 4.61168601842739e+18) -> 1.84467440737096e+19) ((1322 . 5625) (* 4 4.61168601842739e+18) -> 1.84467440737096e+19) ((1323 . 5625) (* 4 4.61168601842739e+18) -> 1.84467440737096e+19) ((1324 . 5625) (* 4 4.61168601842739e+18) -> 1.84467440737096e+19) ((1325 . 5625) (* 4 4.61168601842739e+18) -> 1.84467440737096e+19) ((1326 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((1327 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((1328 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((1329 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((1330 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((1331 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1332 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1333 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1334 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1335 . 5625) (* 1 -4.61168601842739e+18) -> -4.61168601842739e+18) ((1336 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((1337 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((1338 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((1339 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((1340 . 5625) (* 2 -4.61168601842739e+18) -> -9.22337203685478e+18) ((1341 . 5625) (* 3 -4.61168601842739e+18) -> -1.38350580552822e+19) ((1342 . 5625) (* 3 -4.61168601842739e+18) -> -1.38350580552822e+19) ((1343 . 5625) (* 3 -4.61168601842739e+18) -> -1.38350580552822e+19) ((1344 . 5625) (* 3 -4.61168601842739e+18) -> -1.38350580552822e+19) ((1345 . 5625) (* 3 -4.61168601842739e+18) -> -1.38350580552822e+19) ((1346 . 5625) (* 4 -4.61168601842739e+18) -> -1.84467440737096e+19) ((1347 . 5625) (* 4 -4.61168601842739e+18) -> -1.84467440737096e+19) ((1348 . 5625) (* 4 -4.61168601842739e+18) -> -1.84467440737096e+19) ((1349 . 5625) (* 4 -4.61168601842739e+18) -> -1.84467440737096e+19) ((1350 . 5625) (* 4 -4.61168601842739e+18) -> -1.84467440737096e+19) ((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) -> -1.84467440737096e+19) ((1627 . 5625) (* -4 4611686018427387902) -> -1.84467440737096e+19) ((1628 . 5625) (* -4 4611686018427387903) -> -1.84467440737096e+19) ((1629 . 5625) (* -4 4.61168601842739e+18) -> -1.84467440737096e+19) ((1630 . 5625) (* -4 4.61168601842739e+18) -> -1.84467440737096e+19) ((1631 . 5625) (* -3 4611686018427387901) -> -1.38350580552822e+19) ((1632 . 5625) (* -3 4611686018427387902) -> -1.38350580552822e+19) ((1633 . 5625) (* -3 4611686018427387903) -> -1.38350580552822e+19) ((1634 . 5625) (* -3 4.61168601842739e+18) -> -1.38350580552822e+19) ((1635 . 5625) (* -3 4.61168601842739e+18) -> -1.38350580552822e+19) ((1636 . 5625) (* -2 4611686018427387901) -> -9.22337203685478e+18) ((1637 . 5625) (* -2 4611686018427387902) -> -9.22337203685478e+18) ((1638 . 5625) (* -2 4611686018427387903) -> -9.22337203685478e+18) ((1639 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((1640 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((1641 . 5625) (* -1 4611686018427387901) -> -4611686018427387901) ((1642 . 5625) (* -1 4611686018427387902) -> -4611686018427387902) ((1643 . 5625) (* -1 4611686018427387903) -> -4611686018427387903) ((1644 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1645 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1646 . 5625) (* 0 4611686018427387901) -> 0) ((1647 . 5625) (* 0 4611686018427387902) -> 0) ((1648 . 5625) (* 0 4611686018427387903) -> 0) ((1649 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((1650 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((1651 . 5625) (* -4 -4.61168601842739e+18) -> 1.84467440737096e+19) ((1652 . 5625) (* -4 -4.61168601842739e+18) -> 1.84467440737096e+19) ((1653 . 5625) (* -4 -4611686018427387904) -> 1.84467440737096e+19) ((1654 . 5625) (* -4 -4611686018427387903) -> 1.84467440737096e+19) ((1655 . 5625) (* -4 -4611686018427387902) -> 1.84467440737096e+19) ((1656 . 5625) (* -3 -4.61168601842739e+18) -> 1.38350580552822e+19) ((1657 . 5625) (* -3 -4.61168601842739e+18) -> 1.38350580552822e+19) ((1658 . 5625) (* -3 -4611686018427387904) -> 1.38350580552822e+19) ((1659 . 5625) (* -3 -4611686018427387903) -> 1.38350580552822e+19) ((1660 . 5625) (* -3 -4611686018427387902) -> 1.38350580552822e+19) ((1661 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((1662 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((1663 . 5625) (* -2 -4611686018427387904) -> 9.22337203685478e+18) ((1664 . 5625) (* -2 -4611686018427387903) -> 9.22337203685478e+18) ((1665 . 5625) (* -2 -4611686018427387902) -> 9.22337203685478e+18) ((1666 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1667 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1668 . 5625) (* -1 -4611686018427387904) -> 4.61168601842739e+18) ((1669 . 5625) (* -1 -4611686018427387903) -> 4611686018427387903) ((1670 . 5625) (* -1 -4611686018427387902) -> 4611686018427387902) ((1671 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((1672 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((1673 . 5625) (* 0 -4611686018427387904) -> 0) ((1674 . 5625) (* 0 -4611686018427387903) -> 0) ((1675 . 5625) (* 0 -4611686018427387902) -> 0) ((1676 . 5625) (* -4 4.61168601842739e+18) -> -1.84467440737096e+19) ((1677 . 5625) (* -4 4.61168601842739e+18) -> -1.84467440737096e+19) ((1678 . 5625) (* -4 4.61168601842739e+18) -> -1.84467440737096e+19) ((1679 . 5625) (* -4 4.61168601842739e+18) -> -1.84467440737096e+19) ((1680 . 5625) (* -4 4.61168601842739e+18) -> -1.84467440737096e+19) ((1681 . 5625) (* -3 4.61168601842739e+18) -> -1.38350580552822e+19) ((1682 . 5625) (* -3 4.61168601842739e+18) -> -1.38350580552822e+19) ((1683 . 5625) (* -3 4.61168601842739e+18) -> -1.38350580552822e+19) ((1684 . 5625) (* -3 4.61168601842739e+18) -> -1.38350580552822e+19) ((1685 . 5625) (* -3 4.61168601842739e+18) -> -1.38350580552822e+19) ((1686 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((1687 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((1688 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((1689 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((1690 . 5625) (* -2 4.61168601842739e+18) -> -9.22337203685478e+18) ((1691 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1692 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1693 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1694 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1695 . 5625) (* -1 4.61168601842739e+18) -> -4.61168601842739e+18) ((1696 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((1697 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((1698 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((1699 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((1700 . 5625) (* 0 4.61168601842739e+18) -> 0.0) ((1701 . 5625) (* -4 -4.61168601842739e+18) -> 1.84467440737096e+19) ((1702 . 5625) (* -4 -4.61168601842739e+18) -> 1.84467440737096e+19) ((1703 . 5625) (* -4 -4.61168601842739e+18) -> 1.84467440737096e+19) ((1704 . 5625) (* -4 -4.61168601842739e+18) -> 1.84467440737096e+19) ((1705 . 5625) (* -4 -4.61168601842739e+18) -> 1.84467440737096e+19) ((1706 . 5625) (* -3 -4.61168601842739e+18) -> 1.38350580552822e+19) ((1707 . 5625) (* -3 -4.61168601842739e+18) -> 1.38350580552822e+19) ((1708 . 5625) (* -3 -4.61168601842739e+18) -> 1.38350580552822e+19) ((1709 . 5625) (* -3 -4.61168601842739e+18) -> 1.38350580552822e+19) ((1710 . 5625) (* -3 -4.61168601842739e+18) -> 1.38350580552822e+19) ((1711 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((1712 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((1713 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((1714 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((1715 . 5625) (* -2 -4.61168601842739e+18) -> 9.22337203685478e+18) ((1716 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1717 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1718 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1719 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1720 . 5625) (* -1 -4.61168601842739e+18) -> 4.61168601842739e+18) ((1721 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((1722 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((1723 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((1724 . 5625) (* 0 -4.61168601842739e+18) -> -0.0) ((1725 . 5625) (* 0 -4.61168601842739e+18) -> -0.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) -> -9.22337203685478e+18) ((1877 . 5625) (* 4611686018427387901 -1) -> -4611686018427387901) ((1878 . 5625) (* 4611686018427387901 0) -> 0) ((1879 . 5625) (* 4611686018427387901 1) -> 4611686018427387901) ((1880 . 5625) (* 4611686018427387901 2) -> 9.22337203685478e+18) ((1881 . 5625) (* 4611686018427387902 -2) -> -9.22337203685478e+18) ((1882 . 5625) (* 4611686018427387902 -1) -> -4611686018427387902) ((1883 . 5625) (* 4611686018427387902 0) -> 0) ((1884 . 5625) (* 4611686018427387902 1) -> 4611686018427387902) ((1885 . 5625) (* 4611686018427387902 2) -> 9.22337203685478e+18) ((1886 . 5625) (* 4611686018427387903 -2) -> -9.22337203685478e+18) ((1887 . 5625) (* 4611686018427387903 -1) -> -4611686018427387903) ((1888 . 5625) (* 4611686018427387903 0) -> 0) ((1889 . 5625) (* 4611686018427387903 1) -> 4611686018427387903) ((1890 . 5625) (* 4611686018427387903 2) -> 9.22337203685478e+18) ((1891 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((1892 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((1893 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((1894 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1895 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((1896 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((1897 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((1898 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((1899 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1900 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((1901 . 5625) (* 4611686018427387901 -1) -> -4611686018427387901) ((1902 . 5625) (* 4611686018427387901 0) -> 0) ((1903 . 5625) (* 4611686018427387901 1) -> 4611686018427387901) ((1904 . 5625) (* 4611686018427387901 2) -> 9.22337203685478e+18) ((1905 . 5625) (* 4611686018427387901 3) -> 1.38350580552822e+19) ((1906 . 5625) (* 4611686018427387902 -1) -> -4611686018427387902) ((1907 . 5625) (* 4611686018427387902 0) -> 0) ((1908 . 5625) (* 4611686018427387902 1) -> 4611686018427387902) ((1909 . 5625) (* 4611686018427387902 2) -> 9.22337203685478e+18) ((1910 . 5625) (* 4611686018427387902 3) -> 1.38350580552822e+19) ((1911 . 5625) (* 4611686018427387903 -1) -> -4611686018427387903) ((1912 . 5625) (* 4611686018427387903 0) -> 0) ((1913 . 5625) (* 4611686018427387903 1) -> 4611686018427387903) ((1914 . 5625) (* 4611686018427387903 2) -> 9.22337203685478e+18) ((1915 . 5625) (* 4611686018427387903 3) -> 1.38350580552822e+19) ((1916 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((1917 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((1918 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1919 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((1920 . 5625) (* 4.61168601842739e+18 3) -> 1.38350580552822e+19) ((1921 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((1922 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((1923 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1924 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((1925 . 5625) (* 4.61168601842739e+18 3) -> 1.38350580552822e+19) ((1926 . 5625) (* 4611686018427387901 -3) -> -1.38350580552822e+19) ((1927 . 5625) (* 4611686018427387901 -2) -> -9.22337203685478e+18) ((1928 . 5625) (* 4611686018427387901 -1) -> -4611686018427387901) ((1929 . 5625) (* 4611686018427387901 0) -> 0) ((1930 . 5625) (* 4611686018427387901 1) -> 4611686018427387901) ((1931 . 5625) (* 4611686018427387902 -3) -> -1.38350580552822e+19) ((1932 . 5625) (* 4611686018427387902 -2) -> -9.22337203685478e+18) ((1933 . 5625) (* 4611686018427387902 -1) -> -4611686018427387902) ((1934 . 5625) (* 4611686018427387902 0) -> 0) ((1935 . 5625) (* 4611686018427387902 1) -> 4611686018427387902) ((1936 . 5625) (* 4611686018427387903 -3) -> -1.38350580552822e+19) ((1937 . 5625) (* 4611686018427387903 -2) -> -9.22337203685478e+18) ((1938 . 5625) (* 4611686018427387903 -1) -> -4611686018427387903) ((1939 . 5625) (* 4611686018427387903 0) -> 0) ((1940 . 5625) (* 4611686018427387903 1) -> 4611686018427387903) ((1941 . 5625) (* 4.61168601842739e+18 -3) -> -1.38350580552822e+19) ((1942 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((1943 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((1944 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((1945 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1946 . 5625) (* 4.61168601842739e+18 -3) -> -1.38350580552822e+19) ((1947 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((1948 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((1949 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((1950 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1951 . 5625) (* 4611686018427387901 0) -> 0) ((1952 . 5625) (* 4611686018427387901 1) -> 4611686018427387901) ((1953 . 5625) (* 4611686018427387901 2) -> 9.22337203685478e+18) ((1954 . 5625) (* 4611686018427387901 3) -> 1.38350580552822e+19) ((1955 . 5625) (* 4611686018427387901 4) -> 1.84467440737096e+19) ((1956 . 5625) (* 4611686018427387902 0) -> 0) ((1957 . 5625) (* 4611686018427387902 1) -> 4611686018427387902) ((1958 . 5625) (* 4611686018427387902 2) -> 9.22337203685478e+18) ((1959 . 5625) (* 4611686018427387902 3) -> 1.38350580552822e+19) ((1960 . 5625) (* 4611686018427387902 4) -> 1.84467440737096e+19) ((1961 . 5625) (* 4611686018427387903 0) -> 0) ((1962 . 5625) (* 4611686018427387903 1) -> 4611686018427387903) ((1963 . 5625) (* 4611686018427387903 2) -> 9.22337203685478e+18) ((1964 . 5625) (* 4611686018427387903 3) -> 1.38350580552822e+19) ((1965 . 5625) (* 4611686018427387903 4) -> 1.84467440737096e+19) ((1966 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((1967 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1968 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((1969 . 5625) (* 4.61168601842739e+18 3) -> 1.38350580552822e+19) ((1970 . 5625) (* 4.61168601842739e+18 4) -> 1.84467440737096e+19) ((1971 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((1972 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1973 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((1974 . 5625) (* 4.61168601842739e+18 3) -> 1.38350580552822e+19) ((1975 . 5625) (* 4.61168601842739e+18 4) -> 1.84467440737096e+19) ((1976 . 5625) (* 4611686018427387901 -4) -> -1.84467440737096e+19) ((1977 . 5625) (* 4611686018427387901 -3) -> -1.38350580552822e+19) ((1978 . 5625) (* 4611686018427387901 -2) -> -9.22337203685478e+18) ((1979 . 5625) (* 4611686018427387901 -1) -> -4611686018427387901) ((1980 . 5625) (* 4611686018427387901 0) -> 0) ((1981 . 5625) (* 4611686018427387902 -4) -> -1.84467440737096e+19) ((1982 . 5625) (* 4611686018427387902 -3) -> -1.38350580552822e+19) ((1983 . 5625) (* 4611686018427387902 -2) -> -9.22337203685478e+18) ((1984 . 5625) (* 4611686018427387902 -1) -> -4611686018427387902) ((1985 . 5625) (* 4611686018427387902 0) -> 0) ((1986 . 5625) (* 4611686018427387903 -4) -> -1.84467440737096e+19) ((1987 . 5625) (* 4611686018427387903 -3) -> -1.38350580552822e+19) ((1988 . 5625) (* 4611686018427387903 -2) -> -9.22337203685478e+18) ((1989 . 5625) (* 4611686018427387903 -1) -> -4611686018427387903) ((1990 . 5625) (* 4611686018427387903 0) -> 0) ((1991 . 5625) (* 4.61168601842739e+18 -4) -> -1.84467440737096e+19) ((1992 . 5625) (* 4.61168601842739e+18 -3) -> -1.38350580552822e+19) ((1993 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((1994 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((1995 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((1996 . 5625) (* 4.61168601842739e+18 -4) -> -1.84467440737096e+19) ((1997 . 5625) (* 4.61168601842739e+18 -3) -> -1.38350580552822e+19) ((1998 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((1999 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2000 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2001 . 5625) (* 4611686018427387901 4611686018427387901) -> 2.12676479325587e+37) ((2002 . 5625) (* 4611686018427387901 4611686018427387902) -> 2.12676479325587e+37) ((2003 . 5625) (* 4611686018427387901 4611686018427387903) -> 2.12676479325587e+37) ((2004 . 5625) (* 4611686018427387901 4.61168601842739e+18) -> 2.12676479325587e+37) ((2005 . 5625) (* 4611686018427387901 4.61168601842739e+18) -> 2.12676479325587e+37) ((2006 . 5625) (* 4611686018427387902 4611686018427387901) -> 2.12676479325587e+37) ((2007 . 5625) (* 4611686018427387902 4611686018427387902) -> 2.12676479325587e+37) ((2008 . 5625) (* 4611686018427387902 4611686018427387903) -> 2.12676479325587e+37) ((2009 . 5625) (* 4611686018427387902 4.61168601842739e+18) -> 2.12676479325587e+37) ((2010 . 5625) (* 4611686018427387902 4.61168601842739e+18) -> 2.12676479325587e+37) ((2011 . 5625) (* 4611686018427387903 4611686018427387901) -> 2.12676479325587e+37) ((2012 . 5625) (* 4611686018427387903 4611686018427387902) -> 2.12676479325587e+37) ((2013 . 5625) (* 4611686018427387903 4611686018427387903) -> 2.12676479325587e+37) ((2014 . 5625) (* 4611686018427387903 4.61168601842739e+18) -> 2.12676479325587e+37) ((2015 . 5625) (* 4611686018427387903 4.61168601842739e+18) -> 2.12676479325587e+37) ((2016 . 5625) (* 4.61168601842739e+18 4611686018427387901) -> 2.12676479325587e+37) ((2017 . 5625) (* 4.61168601842739e+18 4611686018427387902) -> 2.12676479325587e+37) ((2018 . 5625) (* 4.61168601842739e+18 4611686018427387903) -> 2.12676479325587e+37) ((2019 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2020 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2021 . 5625) (* 4.61168601842739e+18 4611686018427387901) -> 2.12676479325587e+37) ((2022 . 5625) (* 4.61168601842739e+18 4611686018427387902) -> 2.12676479325587e+37) ((2023 . 5625) (* 4.61168601842739e+18 4611686018427387903) -> 2.12676479325587e+37) ((2024 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2025 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2026 . 5625) (* 4611686018427387901 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2027 . 5625) (* 4611686018427387901 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2028 . 5625) (* 4611686018427387901 -4611686018427387904) -> -2.12676479325587e+37) ((2029 . 5625) (* 4611686018427387901 -4611686018427387903) -> -2.12676479325587e+37) ((2030 . 5625) (* 4611686018427387901 -4611686018427387902) -> -2.12676479325587e+37) ((2031 . 5625) (* 4611686018427387902 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2032 . 5625) (* 4611686018427387902 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2033 . 5625) (* 4611686018427387902 -4611686018427387904) -> -2.12676479325587e+37) ((2034 . 5625) (* 4611686018427387902 -4611686018427387903) -> -2.12676479325587e+37) ((2035 . 5625) (* 4611686018427387902 -4611686018427387902) -> -2.12676479325587e+37) ((2036 . 5625) (* 4611686018427387903 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2037 . 5625) (* 4611686018427387903 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2038 . 5625) (* 4611686018427387903 -4611686018427387904) -> -2.12676479325587e+37) ((2039 . 5625) (* 4611686018427387903 -4611686018427387903) -> -2.12676479325587e+37) ((2040 . 5625) (* 4611686018427387903 -4611686018427387902) -> -2.12676479325587e+37) ((2041 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2042 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2043 . 5625) (* 4.61168601842739e+18 -4611686018427387904) -> -2.12676479325587e+37) ((2044 . 5625) (* 4.61168601842739e+18 -4611686018427387903) -> -2.12676479325587e+37) ((2045 . 5625) (* 4.61168601842739e+18 -4611686018427387902) -> -2.12676479325587e+37) ((2046 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2047 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2048 . 5625) (* 4.61168601842739e+18 -4611686018427387904) -> -2.12676479325587e+37) ((2049 . 5625) (* 4.61168601842739e+18 -4611686018427387903) -> -2.12676479325587e+37) ((2050 . 5625) (* 4.61168601842739e+18 -4611686018427387902) -> -2.12676479325587e+37) ((2051 . 5625) (* 4611686018427387901 4.61168601842739e+18) -> 2.12676479325587e+37) ((2052 . 5625) (* 4611686018427387901 4.61168601842739e+18) -> 2.12676479325587e+37) ((2053 . 5625) (* 4611686018427387901 4.61168601842739e+18) -> 2.12676479325587e+37) ((2054 . 5625) (* 4611686018427387901 4.61168601842739e+18) -> 2.12676479325587e+37) ((2055 . 5625) (* 4611686018427387901 4.61168601842739e+18) -> 2.12676479325587e+37) ((2056 . 5625) (* 4611686018427387902 4.61168601842739e+18) -> 2.12676479325587e+37) ((2057 . 5625) (* 4611686018427387902 4.61168601842739e+18) -> 2.12676479325587e+37) ((2058 . 5625) (* 4611686018427387902 4.61168601842739e+18) -> 2.12676479325587e+37) ((2059 . 5625) (* 4611686018427387902 4.61168601842739e+18) -> 2.12676479325587e+37) ((2060 . 5625) (* 4611686018427387902 4.61168601842739e+18) -> 2.12676479325587e+37) ((2061 . 5625) (* 4611686018427387903 4.61168601842739e+18) -> 2.12676479325587e+37) ((2062 . 5625) (* 4611686018427387903 4.61168601842739e+18) -> 2.12676479325587e+37) ((2063 . 5625) (* 4611686018427387903 4.61168601842739e+18) -> 2.12676479325587e+37) ((2064 . 5625) (* 4611686018427387903 4.61168601842739e+18) -> 2.12676479325587e+37) ((2065 . 5625) (* 4611686018427387903 4.61168601842739e+18) -> 2.12676479325587e+37) ((2066 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2067 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2068 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2069 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2070 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2071 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2072 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2073 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2074 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2075 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2076 . 5625) (* 4611686018427387901 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2077 . 5625) (* 4611686018427387901 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2078 . 5625) (* 4611686018427387901 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2079 . 5625) (* 4611686018427387901 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2080 . 5625) (* 4611686018427387901 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2081 . 5625) (* 4611686018427387902 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2082 . 5625) (* 4611686018427387902 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2083 . 5625) (* 4611686018427387902 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2084 . 5625) (* 4611686018427387902 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2085 . 5625) (* 4611686018427387902 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2086 . 5625) (* 4611686018427387903 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2087 . 5625) (* 4611686018427387903 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2088 . 5625) (* 4611686018427387903 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2089 . 5625) (* 4611686018427387903 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2090 . 5625) (* 4611686018427387903 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2091 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2092 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2093 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2094 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2095 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2096 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2097 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2098 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2099 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2100 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2101 . 5625) (* 4611686018427387901 1103515243) -> 5.0890658172646e+27) ((2102 . 5625) (* 4611686018427387901 1103515244) -> 5.08906582187629e+27) ((2103 . 5625) (* 4611686018427387901 1103515245) -> 5.08906582648797e+27) ((2104 . 5625) (* 4611686018427387901 1103515246) -> 5.08906583109966e+27) ((2105 . 5625) (* 4611686018427387901 1103515247) -> 5.08906583571135e+27) ((2106 . 5625) (* 4611686018427387902 1103515243) -> 5.0890658172646e+27) ((2107 . 5625) (* 4611686018427387902 1103515244) -> 5.08906582187629e+27) ((2108 . 5625) (* 4611686018427387902 1103515245) -> 5.08906582648797e+27) ((2109 . 5625) (* 4611686018427387902 1103515246) -> 5.08906583109966e+27) ((2110 . 5625) (* 4611686018427387902 1103515247) -> 5.08906583571135e+27) ((2111 . 5625) (* 4611686018427387903 1103515243) -> 5.0890658172646e+27) ((2112 . 5625) (* 4611686018427387903 1103515244) -> 5.08906582187629e+27) ((2113 . 5625) (* 4611686018427387903 1103515245) -> 5.08906582648797e+27) ((2114 . 5625) (* 4611686018427387903 1103515246) -> 5.08906583109966e+27) ((2115 . 5625) (* 4611686018427387903 1103515247) -> 5.08906583571135e+27) ((2116 . 5625) (* 4.61168601842739e+18 1103515243) -> 5.0890658172646e+27) ((2117 . 5625) (* 4.61168601842739e+18 1103515244) -> 5.08906582187629e+27) ((2118 . 5625) (* 4.61168601842739e+18 1103515245) -> 5.08906582648797e+27) ((2119 . 5625) (* 4.61168601842739e+18 1103515246) -> 5.08906583109966e+27) ((2120 . 5625) (* 4.61168601842739e+18 1103515247) -> 5.08906583571135e+27) ((2121 . 5625) (* 4.61168601842739e+18 1103515243) -> 5.0890658172646e+27) ((2122 . 5625) (* 4.61168601842739e+18 1103515244) -> 5.08906582187629e+27) ((2123 . 5625) (* 4.61168601842739e+18 1103515245) -> 5.08906582648797e+27) ((2124 . 5625) (* 4.61168601842739e+18 1103515246) -> 5.08906583109966e+27) ((2125 . 5625) (* 4.61168601842739e+18 1103515247) -> 5.08906583571135e+27) ((2126 . 5625) (* 4611686018427387901 631629063) -> 2.91287491866949e+27) ((2127 . 5625) (* 4611686018427387901 631629064) -> 2.91287492328118e+27) ((2128 . 5625) (* 4611686018427387901 631629065) -> 2.91287492789286e+27) ((2129 . 5625) (* 4611686018427387901 631629066) -> 2.91287493250455e+27) ((2130 . 5625) (* 4611686018427387901 631629067) -> 2.91287493711624e+27) ((2131 . 5625) (* 4611686018427387902 631629063) -> 2.91287491866949e+27) ((2132 . 5625) (* 4611686018427387902 631629064) -> 2.91287492328118e+27) ((2133 . 5625) (* 4611686018427387902 631629065) -> 2.91287492789286e+27) ((2134 . 5625) (* 4611686018427387902 631629066) -> 2.91287493250455e+27) ((2135 . 5625) (* 4611686018427387902 631629067) -> 2.91287493711624e+27) ((2136 . 5625) (* 4611686018427387903 631629063) -> 2.91287491866949e+27) ((2137 . 5625) (* 4611686018427387903 631629064) -> 2.91287492328118e+27) ((2138 . 5625) (* 4611686018427387903 631629065) -> 2.91287492789286e+27) ((2139 . 5625) (* 4611686018427387903 631629066) -> 2.91287493250455e+27) ((2140 . 5625) (* 4611686018427387903 631629067) -> 2.91287493711624e+27) ((2141 . 5625) (* 4.61168601842739e+18 631629063) -> 2.91287491866949e+27) ((2142 . 5625) (* 4.61168601842739e+18 631629064) -> 2.91287492328118e+27) ((2143 . 5625) (* 4.61168601842739e+18 631629065) -> 2.91287492789286e+27) ((2144 . 5625) (* 4.61168601842739e+18 631629066) -> 2.91287493250455e+27) ((2145 . 5625) (* 4.61168601842739e+18 631629067) -> 2.91287493711624e+27) ((2146 . 5625) (* 4.61168601842739e+18 631629063) -> 2.91287491866949e+27) ((2147 . 5625) (* 4.61168601842739e+18 631629064) -> 2.91287492328118e+27) ((2148 . 5625) (* 4.61168601842739e+18 631629065) -> 2.91287492789286e+27) ((2149 . 5625) (* 4.61168601842739e+18 631629066) -> 2.91287493250455e+27) ((2150 . 5625) (* 4.61168601842739e+18 631629067) -> 2.91287493711624e+27) ((2151 . 5625) (* 4611686018427387901 9007199254740990) -> 4.15383748682786e+34) ((2152 . 5625) (* 4611686018427387901 9007199254740991) -> 4.15383748682786e+34) ((2153 . 5625) (* 4611686018427387901 9007199254740992) -> 4.15383748682786e+34) ((2154 . 5625) (* 4611686018427387901 9007199254740993) -> 4.15383748682786e+34) ((2155 . 5625) (* 4611686018427387901 9007199254740994) -> 4.15383748682786e+34) ((2156 . 5625) (* 4611686018427387902 9007199254740990) -> 4.15383748682786e+34) ((2157 . 5625) (* 4611686018427387902 9007199254740991) -> 4.15383748682786e+34) ((2158 . 5625) (* 4611686018427387902 9007199254740992) -> 4.15383748682786e+34) ((2159 . 5625) (* 4611686018427387902 9007199254740993) -> 4.15383748682786e+34) ((2160 . 5625) (* 4611686018427387902 9007199254740994) -> 4.15383748682786e+34) ((2161 . 5625) (* 4611686018427387903 9007199254740990) -> 4.15383748682786e+34) ((2162 . 5625) (* 4611686018427387903 9007199254740991) -> 4.15383748682786e+34) ((2163 . 5625) (* 4611686018427387903 9007199254740992) -> 4.15383748682786e+34) ((2164 . 5625) (* 4611686018427387903 9007199254740993) -> 4.15383748682786e+34) ((2165 . 5625) (* 4611686018427387903 9007199254740994) -> 4.15383748682786e+34) ((2166 . 5625) (* 4.61168601842739e+18 9007199254740990) -> 4.15383748682786e+34) ((2167 . 5625) (* 4.61168601842739e+18 9007199254740991) -> 4.15383748682786e+34) ((2168 . 5625) (* 4.61168601842739e+18 9007199254740992) -> 4.15383748682786e+34) ((2169 . 5625) (* 4.61168601842739e+18 9007199254740993) -> 4.15383748682786e+34) ((2170 . 5625) (* 4.61168601842739e+18 9007199254740994) -> 4.15383748682786e+34) ((2171 . 5625) (* 4.61168601842739e+18 9007199254740990) -> 4.15383748682786e+34) ((2172 . 5625) (* 4.61168601842739e+18 9007199254740991) -> 4.15383748682786e+34) ((2173 . 5625) (* 4.61168601842739e+18 9007199254740992) -> 4.15383748682786e+34) ((2174 . 5625) (* 4.61168601842739e+18 9007199254740993) -> 4.15383748682786e+34) ((2175 . 5625) (* 4.61168601842739e+18 9007199254740994) -> 4.15383748682786e+34) ((2176 . 5625) (* 4611686018427387901 -9007199254740994) -> -4.15383748682786e+34) ((2177 . 5625) (* 4611686018427387901 -9007199254740993) -> -4.15383748682786e+34) ((2178 . 5625) (* 4611686018427387901 -9007199254740992) -> -4.15383748682786e+34) ((2179 . 5625) (* 4611686018427387901 -9007199254740991) -> -4.15383748682786e+34) ((2180 . 5625) (* 4611686018427387901 -9007199254740990) -> -4.15383748682786e+34) ((2181 . 5625) (* 4611686018427387902 -9007199254740994) -> -4.15383748682786e+34) ((2182 . 5625) (* 4611686018427387902 -9007199254740993) -> -4.15383748682786e+34) ((2183 . 5625) (* 4611686018427387902 -9007199254740992) -> -4.15383748682786e+34) ((2184 . 5625) (* 4611686018427387902 -9007199254740991) -> -4.15383748682786e+34) ((2185 . 5625) (* 4611686018427387902 -9007199254740990) -> -4.15383748682786e+34) ((2186 . 5625) (* 4611686018427387903 -9007199254740994) -> -4.15383748682786e+34) ((2187 . 5625) (* 4611686018427387903 -9007199254740993) -> -4.15383748682786e+34) ((2188 . 5625) (* 4611686018427387903 -9007199254740992) -> -4.15383748682786e+34) ((2189 . 5625) (* 4611686018427387903 -9007199254740991) -> -4.15383748682786e+34) ((2190 . 5625) (* 4611686018427387903 -9007199254740990) -> -4.15383748682786e+34) ((2191 . 5625) (* 4.61168601842739e+18 -9007199254740994) -> -4.15383748682786e+34) ((2192 . 5625) (* 4.61168601842739e+18 -9007199254740993) -> -4.15383748682786e+34) ((2193 . 5625) (* 4.61168601842739e+18 -9007199254740992) -> -4.15383748682786e+34) ((2194 . 5625) (* 4.61168601842739e+18 -9007199254740991) -> -4.15383748682786e+34) ((2195 . 5625) (* 4.61168601842739e+18 -9007199254740990) -> -4.15383748682786e+34) ((2196 . 5625) (* 4.61168601842739e+18 -9007199254740994) -> -4.15383748682786e+34) ((2197 . 5625) (* 4.61168601842739e+18 -9007199254740993) -> -4.15383748682786e+34) ((2198 . 5625) (* 4.61168601842739e+18 -9007199254740992) -> -4.15383748682786e+34) ((2199 . 5625) (* 4.61168601842739e+18 -9007199254740991) -> -4.15383748682786e+34) ((2200 . 5625) (* 4.61168601842739e+18 -9007199254740990) -> -4.15383748682786e+34) ((2201 . 5625) (* 4611686018427387901 12343) -> 5.69220405254492e+22) ((2202 . 5625) (* 4611686018427387901 12344) -> 5.69266522114677e+22) ((2203 . 5625) (* 4611686018427387901 12345) -> 5.69312638974861e+22) ((2204 . 5625) (* 4611686018427387901 12346) -> 5.69358755835045e+22) ((2205 . 5625) (* 4611686018427387901 12347) -> 5.6940487269523e+22) ((2206 . 5625) (* 4611686018427387902 12343) -> 5.69220405254492e+22) ((2207 . 5625) (* 4611686018427387902 12344) -> 5.69266522114677e+22) ((2208 . 5625) (* 4611686018427387902 12345) -> 5.69312638974861e+22) ((2209 . 5625) (* 4611686018427387902 12346) -> 5.69358755835045e+22) ((2210 . 5625) (* 4611686018427387902 12347) -> 5.6940487269523e+22) ((2211 . 5625) (* 4611686018427387903 12343) -> 5.69220405254492e+22) ((2212 . 5625) (* 4611686018427387903 12344) -> 5.69266522114677e+22) ((2213 . 5625) (* 4611686018427387903 12345) -> 5.69312638974861e+22) ((2214 . 5625) (* 4611686018427387903 12346) -> 5.69358755835045e+22) ((2215 . 5625) (* 4611686018427387903 12347) -> 5.6940487269523e+22) ((2216 . 5625) (* 4.61168601842739e+18 12343) -> 5.69220405254492e+22) ((2217 . 5625) (* 4.61168601842739e+18 12344) -> 5.69266522114677e+22) ((2218 . 5625) (* 4.61168601842739e+18 12345) -> 5.69312638974861e+22) ((2219 . 5625) (* 4.61168601842739e+18 12346) -> 5.69358755835045e+22) ((2220 . 5625) (* 4.61168601842739e+18 12347) -> 5.6940487269523e+22) ((2221 . 5625) (* 4.61168601842739e+18 12343) -> 5.69220405254492e+22) ((2222 . 5625) (* 4.61168601842739e+18 12344) -> 5.69266522114677e+22) ((2223 . 5625) (* 4.61168601842739e+18 12345) -> 5.69312638974861e+22) ((2224 . 5625) (* 4.61168601842739e+18 12346) -> 5.69358755835045e+22) ((2225 . 5625) (* 4.61168601842739e+18 12347) -> 5.6940487269523e+22) ((2226 . 5625) (* 4611686018427387901 4294967294) -> 1.98070406193427e+28) ((2227 . 5625) (* 4611686018427387901 4294967295) -> 1.98070406239544e+28) ((2228 . 5625) (* 4611686018427387901 4294967296) -> 1.98070406285661e+28) ((2229 . 5625) (* 4611686018427387901 4294967297) -> 1.98070406331778e+28) ((2230 . 5625) (* 4611686018427387901 4294967298) -> 1.98070406377895e+28) ((2231 . 5625) (* 4611686018427387902 4294967294) -> 1.98070406193427e+28) ((2232 . 5625) (* 4611686018427387902 4294967295) -> 1.98070406239544e+28) ((2233 . 5625) (* 4611686018427387902 4294967296) -> 1.98070406285661e+28) ((2234 . 5625) (* 4611686018427387902 4294967297) -> 1.98070406331778e+28) ((2235 . 5625) (* 4611686018427387902 4294967298) -> 1.98070406377895e+28) ((2236 . 5625) (* 4611686018427387903 4294967294) -> 1.98070406193427e+28) ((2237 . 5625) (* 4611686018427387903 4294967295) -> 1.98070406239544e+28) ((2238 . 5625) (* 4611686018427387903 4294967296) -> 1.98070406285661e+28) ((2239 . 5625) (* 4611686018427387903 4294967297) -> 1.98070406331778e+28) ((2240 . 5625) (* 4611686018427387903 4294967298) -> 1.98070406377895e+28) ((2241 . 5625) (* 4.61168601842739e+18 4294967294) -> 1.98070406193427e+28) ((2242 . 5625) (* 4.61168601842739e+18 4294967295) -> 1.98070406239544e+28) ((2243 . 5625) (* 4.61168601842739e+18 4294967296) -> 1.98070406285661e+28) ((2244 . 5625) (* 4.61168601842739e+18 4294967297) -> 1.98070406331778e+28) ((2245 . 5625) (* 4.61168601842739e+18 4294967298) -> 1.98070406377895e+28) ((2246 . 5625) (* 4.61168601842739e+18 4294967294) -> 1.98070406193427e+28) ((2247 . 5625) (* 4.61168601842739e+18 4294967295) -> 1.98070406239544e+28) ((2248 . 5625) (* 4.61168601842739e+18 4294967296) -> 1.98070406285661e+28) ((2249 . 5625) (* 4.61168601842739e+18 4294967297) -> 1.98070406331778e+28) ((2250 . 5625) (* 4.61168601842739e+18 4294967298) -> 1.98070406377895e+28) ((2251 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((2252 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2253 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((2254 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2255 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((2256 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((2257 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2258 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((2259 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2260 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((2261 . 5625) (* -4611686018427387904 -2) -> 9.22337203685478e+18) ((2262 . 5625) (* -4611686018427387904 -1) -> 4.61168601842739e+18) ((2263 . 5625) (* -4611686018427387904 0) -> 0) ((2264 . 5625) (* -4611686018427387904 1) -> -4611686018427387904) ((2265 . 5625) (* -4611686018427387904 2) -> -9.22337203685478e+18) ((2266 . 5625) (* -4611686018427387903 -2) -> 9.22337203685478e+18) ((2267 . 5625) (* -4611686018427387903 -1) -> 4611686018427387903) ((2268 . 5625) (* -4611686018427387903 0) -> 0) ((2269 . 5625) (* -4611686018427387903 1) -> -4611686018427387903) ((2270 . 5625) (* -4611686018427387903 2) -> -9.22337203685478e+18) ((2271 . 5625) (* -4611686018427387902 -2) -> 9.22337203685478e+18) ((2272 . 5625) (* -4611686018427387902 -1) -> 4611686018427387902) ((2273 . 5625) (* -4611686018427387902 0) -> 0) ((2274 . 5625) (* -4611686018427387902 1) -> -4611686018427387902) ((2275 . 5625) (* -4611686018427387902 2) -> -9.22337203685478e+18) ((2276 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2277 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((2278 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2279 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((2280 . 5625) (* -4.61168601842739e+18 3) -> -1.38350580552822e+19) ((2281 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2282 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((2283 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2284 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((2285 . 5625) (* -4.61168601842739e+18 3) -> -1.38350580552822e+19) ((2286 . 5625) (* -4611686018427387904 -1) -> 4.61168601842739e+18) ((2287 . 5625) (* -4611686018427387904 0) -> 0) ((2288 . 5625) (* -4611686018427387904 1) -> -4611686018427387904) ((2289 . 5625) (* -4611686018427387904 2) -> -9.22337203685478e+18) ((2290 . 5625) (* -4611686018427387904 3) -> -1.38350580552822e+19) ((2291 . 5625) (* -4611686018427387903 -1) -> 4611686018427387903) ((2292 . 5625) (* -4611686018427387903 0) -> 0) ((2293 . 5625) (* -4611686018427387903 1) -> -4611686018427387903) ((2294 . 5625) (* -4611686018427387903 2) -> -9.22337203685478e+18) ((2295 . 5625) (* -4611686018427387903 3) -> -1.38350580552822e+19) ((2296 . 5625) (* -4611686018427387902 -1) -> 4611686018427387902) ((2297 . 5625) (* -4611686018427387902 0) -> 0) ((2298 . 5625) (* -4611686018427387902 1) -> -4611686018427387902) ((2299 . 5625) (* -4611686018427387902 2) -> -9.22337203685478e+18) ((2300 . 5625) (* -4611686018427387902 3) -> -1.38350580552822e+19) ((2301 . 5625) (* -4.61168601842739e+18 -3) -> 1.38350580552822e+19) ((2302 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((2303 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2304 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((2305 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2306 . 5625) (* -4.61168601842739e+18 -3) -> 1.38350580552822e+19) ((2307 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((2308 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2309 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((2310 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2311 . 5625) (* -4611686018427387904 -3) -> 1.38350580552822e+19) ((2312 . 5625) (* -4611686018427387904 -2) -> 9.22337203685478e+18) ((2313 . 5625) (* -4611686018427387904 -1) -> 4.61168601842739e+18) ((2314 . 5625) (* -4611686018427387904 0) -> 0) ((2315 . 5625) (* -4611686018427387904 1) -> -4611686018427387904) ((2316 . 5625) (* -4611686018427387903 -3) -> 1.38350580552822e+19) ((2317 . 5625) (* -4611686018427387903 -2) -> 9.22337203685478e+18) ((2318 . 5625) (* -4611686018427387903 -1) -> 4611686018427387903) ((2319 . 5625) (* -4611686018427387903 0) -> 0) ((2320 . 5625) (* -4611686018427387903 1) -> -4611686018427387903) ((2321 . 5625) (* -4611686018427387902 -3) -> 1.38350580552822e+19) ((2322 . 5625) (* -4611686018427387902 -2) -> 9.22337203685478e+18) ((2323 . 5625) (* -4611686018427387902 -1) -> 4611686018427387902) ((2324 . 5625) (* -4611686018427387902 0) -> 0) ((2325 . 5625) (* -4611686018427387902 1) -> -4611686018427387902) ((2326 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((2327 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2328 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((2329 . 5625) (* -4.61168601842739e+18 3) -> -1.38350580552822e+19) ((2330 . 5625) (* -4.61168601842739e+18 4) -> -1.84467440737096e+19) ((2331 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((2332 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2333 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((2334 . 5625) (* -4.61168601842739e+18 3) -> -1.38350580552822e+19) ((2335 . 5625) (* -4.61168601842739e+18 4) -> -1.84467440737096e+19) ((2336 . 5625) (* -4611686018427387904 0) -> 0) ((2337 . 5625) (* -4611686018427387904 1) -> -4611686018427387904) ((2338 . 5625) (* -4611686018427387904 2) -> -9.22337203685478e+18) ((2339 . 5625) (* -4611686018427387904 3) -> -1.38350580552822e+19) ((2340 . 5625) (* -4611686018427387904 4) -> -1.84467440737096e+19) ((2341 . 5625) (* -4611686018427387903 0) -> 0) ((2342 . 5625) (* -4611686018427387903 1) -> -4611686018427387903) ((2343 . 5625) (* -4611686018427387903 2) -> -9.22337203685478e+18) ((2344 . 5625) (* -4611686018427387903 3) -> -1.38350580552822e+19) ((2345 . 5625) (* -4611686018427387903 4) -> -1.84467440737096e+19) ((2346 . 5625) (* -4611686018427387902 0) -> 0) ((2347 . 5625) (* -4611686018427387902 1) -> -4611686018427387902) ((2348 . 5625) (* -4611686018427387902 2) -> -9.22337203685478e+18) ((2349 . 5625) (* -4611686018427387902 3) -> -1.38350580552822e+19) ((2350 . 5625) (* -4611686018427387902 4) -> -1.84467440737096e+19) ((2351 . 5625) (* -4.61168601842739e+18 -4) -> 1.84467440737096e+19) ((2352 . 5625) (* -4.61168601842739e+18 -3) -> 1.38350580552822e+19) ((2353 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((2354 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2355 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((2356 . 5625) (* -4.61168601842739e+18 -4) -> 1.84467440737096e+19) ((2357 . 5625) (* -4.61168601842739e+18 -3) -> 1.38350580552822e+19) ((2358 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((2359 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2360 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((2361 . 5625) (* -4611686018427387904 -4) -> 1.84467440737096e+19) ((2362 . 5625) (* -4611686018427387904 -3) -> 1.38350580552822e+19) ((2363 . 5625) (* -4611686018427387904 -2) -> 9.22337203685478e+18) ((2364 . 5625) (* -4611686018427387904 -1) -> 4.61168601842739e+18) ((2365 . 5625) (* -4611686018427387904 0) -> 0) ((2366 . 5625) (* -4611686018427387903 -4) -> 1.84467440737096e+19) ((2367 . 5625) (* -4611686018427387903 -3) -> 1.38350580552822e+19) ((2368 . 5625) (* -4611686018427387903 -2) -> 9.22337203685478e+18) ((2369 . 5625) (* -4611686018427387903 -1) -> 4611686018427387903) ((2370 . 5625) (* -4611686018427387903 0) -> 0) ((2371 . 5625) (* -4611686018427387902 -4) -> 1.84467440737096e+19) ((2372 . 5625) (* -4611686018427387902 -3) -> 1.38350580552822e+19) ((2373 . 5625) (* -4611686018427387902 -2) -> 9.22337203685478e+18) ((2374 . 5625) (* -4611686018427387902 -1) -> 4611686018427387902) ((2375 . 5625) (* -4611686018427387902 0) -> 0) ((2376 . 5625) (* -4.61168601842739e+18 4611686018427387901) -> -2.12676479325587e+37) ((2377 . 5625) (* -4.61168601842739e+18 4611686018427387902) -> -2.12676479325587e+37) ((2378 . 5625) (* -4.61168601842739e+18 4611686018427387903) -> -2.12676479325587e+37) ((2379 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((2380 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((2381 . 5625) (* -4.61168601842739e+18 4611686018427387901) -> -2.12676479325587e+37) ((2382 . 5625) (* -4.61168601842739e+18 4611686018427387902) -> -2.12676479325587e+37) ((2383 . 5625) (* -4.61168601842739e+18 4611686018427387903) -> -2.12676479325587e+37) ((2384 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((2385 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((2386 . 5625) (* -4611686018427387904 4611686018427387901) -> -2.12676479325587e+37) ((2387 . 5625) (* -4611686018427387904 4611686018427387902) -> -2.12676479325587e+37) ((2388 . 5625) (* -4611686018427387904 4611686018427387903) -> -2.12676479325587e+37) ((2389 . 5625) (* -4611686018427387904 4.61168601842739e+18) -> -2.12676479325587e+37) ((2390 . 5625) (* -4611686018427387904 4.61168601842739e+18) -> -2.12676479325587e+37) ((2391 . 5625) (* -4611686018427387903 4611686018427387901) -> -2.12676479325587e+37) ((2392 . 5625) (* -4611686018427387903 4611686018427387902) -> -2.12676479325587e+37) ((2393 . 5625) (* -4611686018427387903 4611686018427387903) -> -2.12676479325587e+37) ((2394 . 5625) (* -4611686018427387903 4.61168601842739e+18) -> -2.12676479325587e+37) ((2395 . 5625) (* -4611686018427387903 4.61168601842739e+18) -> -2.12676479325587e+37) ((2396 . 5625) (* -4611686018427387902 4611686018427387901) -> -2.12676479325587e+37) ((2397 . 5625) (* -4611686018427387902 4611686018427387902) -> -2.12676479325587e+37) ((2398 . 5625) (* -4611686018427387902 4611686018427387903) -> -2.12676479325587e+37) ((2399 . 5625) (* -4611686018427387902 4.61168601842739e+18) -> -2.12676479325587e+37) ((2400 . 5625) (* -4611686018427387902 4.61168601842739e+18) -> -2.12676479325587e+37) ((2401 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2402 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2403 . 5625) (* -4.61168601842739e+18 -4611686018427387904) -> 2.12676479325587e+37) ((2404 . 5625) (* -4.61168601842739e+18 -4611686018427387903) -> 2.12676479325587e+37) ((2405 . 5625) (* -4.61168601842739e+18 -4611686018427387902) -> 2.12676479325587e+37) ((2406 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2407 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2408 . 5625) (* -4.61168601842739e+18 -4611686018427387904) -> 2.12676479325587e+37) ((2409 . 5625) (* -4.61168601842739e+18 -4611686018427387903) -> 2.12676479325587e+37) ((2410 . 5625) (* -4.61168601842739e+18 -4611686018427387902) -> 2.12676479325587e+37) ((2411 . 5625) (* -4611686018427387904 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2412 . 5625) (* -4611686018427387904 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2413 . 5625) (* -4611686018427387904 -4611686018427387904) -> 2.12676479325587e+37) ((2414 . 5625) (* -4611686018427387904 -4611686018427387903) -> 2.12676479325587e+37) ((2415 . 5625) (* -4611686018427387904 -4611686018427387902) -> 2.12676479325587e+37) ((2416 . 5625) (* -4611686018427387903 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2417 . 5625) (* -4611686018427387903 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2418 . 5625) (* -4611686018427387903 -4611686018427387904) -> 2.12676479325587e+37) ((2419 . 5625) (* -4611686018427387903 -4611686018427387903) -> 2.12676479325587e+37) ((2420 . 5625) (* -4611686018427387903 -4611686018427387902) -> 2.12676479325587e+37) ((2421 . 5625) (* -4611686018427387902 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2422 . 5625) (* -4611686018427387902 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2423 . 5625) (* -4611686018427387902 -4611686018427387904) -> 2.12676479325587e+37) ((2424 . 5625) (* -4611686018427387902 -4611686018427387903) -> 2.12676479325587e+37) ((2425 . 5625) (* -4611686018427387902 -4611686018427387902) -> 2.12676479325587e+37) ((2426 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((2427 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((2428 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((2429 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((2430 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((2431 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((2432 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((2433 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((2434 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((2435 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((2436 . 5625) (* -4611686018427387904 4.61168601842739e+18) -> -2.12676479325587e+37) ((2437 . 5625) (* -4611686018427387904 4.61168601842739e+18) -> -2.12676479325587e+37) ((2438 . 5625) (* -4611686018427387904 4.61168601842739e+18) -> -2.12676479325587e+37) ((2439 . 5625) (* -4611686018427387904 4.61168601842739e+18) -> -2.12676479325587e+37) ((2440 . 5625) (* -4611686018427387904 4.61168601842739e+18) -> -2.12676479325587e+37) ((2441 . 5625) (* -4611686018427387903 4.61168601842739e+18) -> -2.12676479325587e+37) ((2442 . 5625) (* -4611686018427387903 4.61168601842739e+18) -> -2.12676479325587e+37) ((2443 . 5625) (* -4611686018427387903 4.61168601842739e+18) -> -2.12676479325587e+37) ((2444 . 5625) (* -4611686018427387903 4.61168601842739e+18) -> -2.12676479325587e+37) ((2445 . 5625) (* -4611686018427387903 4.61168601842739e+18) -> -2.12676479325587e+37) ((2446 . 5625) (* -4611686018427387902 4.61168601842739e+18) -> -2.12676479325587e+37) ((2447 . 5625) (* -4611686018427387902 4.61168601842739e+18) -> -2.12676479325587e+37) ((2448 . 5625) (* -4611686018427387902 4.61168601842739e+18) -> -2.12676479325587e+37) ((2449 . 5625) (* -4611686018427387902 4.61168601842739e+18) -> -2.12676479325587e+37) ((2450 . 5625) (* -4611686018427387902 4.61168601842739e+18) -> -2.12676479325587e+37) ((2451 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2452 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2453 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2454 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2455 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2456 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2457 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2458 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2459 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2460 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2461 . 5625) (* -4611686018427387904 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2462 . 5625) (* -4611686018427387904 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2463 . 5625) (* -4611686018427387904 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2464 . 5625) (* -4611686018427387904 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2465 . 5625) (* -4611686018427387904 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2466 . 5625) (* -4611686018427387903 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2467 . 5625) (* -4611686018427387903 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2468 . 5625) (* -4611686018427387903 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2469 . 5625) (* -4611686018427387903 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2470 . 5625) (* -4611686018427387903 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2471 . 5625) (* -4611686018427387902 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2472 . 5625) (* -4611686018427387902 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2473 . 5625) (* -4611686018427387902 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2474 . 5625) (* -4611686018427387902 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2475 . 5625) (* -4611686018427387902 -4.61168601842739e+18) -> 2.12676479325587e+37) ((2476 . 5625) (* -4.61168601842739e+18 1103515243) -> -5.0890658172646e+27) ((2477 . 5625) (* -4.61168601842739e+18 1103515244) -> -5.08906582187629e+27) ((2478 . 5625) (* -4.61168601842739e+18 1103515245) -> -5.08906582648797e+27) ((2479 . 5625) (* -4.61168601842739e+18 1103515246) -> -5.08906583109966e+27) ((2480 . 5625) (* -4.61168601842739e+18 1103515247) -> -5.08906583571135e+27) ((2481 . 5625) (* -4.61168601842739e+18 1103515243) -> -5.0890658172646e+27) ((2482 . 5625) (* -4.61168601842739e+18 1103515244) -> -5.08906582187629e+27) ((2483 . 5625) (* -4.61168601842739e+18 1103515245) -> -5.08906582648797e+27) ((2484 . 5625) (* -4.61168601842739e+18 1103515246) -> -5.08906583109966e+27) ((2485 . 5625) (* -4.61168601842739e+18 1103515247) -> -5.08906583571135e+27) ((2486 . 5625) (* -4611686018427387904 1103515243) -> -5.0890658172646e+27) ((2487 . 5625) (* -4611686018427387904 1103515244) -> -5.08906582187629e+27) ((2488 . 5625) (* -4611686018427387904 1103515245) -> -5.08906582648797e+27) ((2489 . 5625) (* -4611686018427387904 1103515246) -> -5.08906583109966e+27) ((2490 . 5625) (* -4611686018427387904 1103515247) -> -5.08906583571135e+27) ((2491 . 5625) (* -4611686018427387903 1103515243) -> -5.0890658172646e+27) ((2492 . 5625) (* -4611686018427387903 1103515244) -> -5.08906582187629e+27) ((2493 . 5625) (* -4611686018427387903 1103515245) -> -5.08906582648797e+27) ((2494 . 5625) (* -4611686018427387903 1103515246) -> -5.08906583109966e+27) ((2495 . 5625) (* -4611686018427387903 1103515247) -> -5.08906583571135e+27) ((2496 . 5625) (* -4611686018427387902 1103515243) -> -5.0890658172646e+27) ((2497 . 5625) (* -4611686018427387902 1103515244) -> -5.08906582187629e+27) ((2498 . 5625) (* -4611686018427387902 1103515245) -> -5.08906582648797e+27) ((2499 . 5625) (* -4611686018427387902 1103515246) -> -5.08906583109966e+27) ((2500 . 5625) (* -4611686018427387902 1103515247) -> -5.08906583571135e+27) ((2501 . 5625) (* -4.61168601842739e+18 631629063) -> -2.91287491866949e+27) ((2502 . 5625) (* -4.61168601842739e+18 631629064) -> -2.91287492328118e+27) ((2503 . 5625) (* -4.61168601842739e+18 631629065) -> -2.91287492789286e+27) ((2504 . 5625) (* -4.61168601842739e+18 631629066) -> -2.91287493250455e+27) ((2505 . 5625) (* -4.61168601842739e+18 631629067) -> -2.91287493711624e+27) ((2506 . 5625) (* -4.61168601842739e+18 631629063) -> -2.91287491866949e+27) ((2507 . 5625) (* -4.61168601842739e+18 631629064) -> -2.91287492328118e+27) ((2508 . 5625) (* -4.61168601842739e+18 631629065) -> -2.91287492789286e+27) ((2509 . 5625) (* -4.61168601842739e+18 631629066) -> -2.91287493250455e+27) ((2510 . 5625) (* -4.61168601842739e+18 631629067) -> -2.91287493711624e+27) ((2511 . 5625) (* -4611686018427387904 631629063) -> -2.91287491866949e+27) ((2512 . 5625) (* -4611686018427387904 631629064) -> -2.91287492328118e+27) ((2513 . 5625) (* -4611686018427387904 631629065) -> -2.91287492789286e+27) ((2514 . 5625) (* -4611686018427387904 631629066) -> -2.91287493250455e+27) ((2515 . 5625) (* -4611686018427387904 631629067) -> -2.91287493711624e+27) ((2516 . 5625) (* -4611686018427387903 631629063) -> -2.91287491866949e+27) ((2517 . 5625) (* -4611686018427387903 631629064) -> -2.91287492328118e+27) ((2518 . 5625) (* -4611686018427387903 631629065) -> -2.91287492789286e+27) ((2519 . 5625) (* -4611686018427387903 631629066) -> -2.91287493250455e+27) ((2520 . 5625) (* -4611686018427387903 631629067) -> -2.91287493711624e+27) ((2521 . 5625) (* -4611686018427387902 631629063) -> -2.91287491866949e+27) ((2522 . 5625) (* -4611686018427387902 631629064) -> -2.91287492328118e+27) ((2523 . 5625) (* -4611686018427387902 631629065) -> -2.91287492789286e+27) ((2524 . 5625) (* -4611686018427387902 631629066) -> -2.91287493250455e+27) ((2525 . 5625) (* -4611686018427387902 631629067) -> -2.91287493711624e+27) ((2526 . 5625) (* -4.61168601842739e+18 9007199254740990) -> -4.15383748682786e+34) ((2527 . 5625) (* -4.61168601842739e+18 9007199254740991) -> -4.15383748682786e+34) ((2528 . 5625) (* -4.61168601842739e+18 9007199254740992) -> -4.15383748682786e+34) ((2529 . 5625) (* -4.61168601842739e+18 9007199254740993) -> -4.15383748682786e+34) ((2530 . 5625) (* -4.61168601842739e+18 9007199254740994) -> -4.15383748682786e+34) ((2531 . 5625) (* -4.61168601842739e+18 9007199254740990) -> -4.15383748682786e+34) ((2532 . 5625) (* -4.61168601842739e+18 9007199254740991) -> -4.15383748682786e+34) ((2533 . 5625) (* -4.61168601842739e+18 9007199254740992) -> -4.15383748682786e+34) ((2534 . 5625) (* -4.61168601842739e+18 9007199254740993) -> -4.15383748682786e+34) ((2535 . 5625) (* -4.61168601842739e+18 9007199254740994) -> -4.15383748682786e+34) ((2536 . 5625) (* -4611686018427387904 9007199254740990) -> -4.15383748682786e+34) ((2537 . 5625) (* -4611686018427387904 9007199254740991) -> -4.15383748682786e+34) ((2538 . 5625) (* -4611686018427387904 9007199254740992) -> -4.15383748682786e+34) ((2539 . 5625) (* -4611686018427387904 9007199254740993) -> -4.15383748682786e+34) ((2540 . 5625) (* -4611686018427387904 9007199254740994) -> -4.15383748682786e+34) ((2541 . 5625) (* -4611686018427387903 9007199254740990) -> -4.15383748682786e+34) ((2542 . 5625) (* -4611686018427387903 9007199254740991) -> -4.15383748682786e+34) ((2543 . 5625) (* -4611686018427387903 9007199254740992) -> -4.15383748682786e+34) ((2544 . 5625) (* -4611686018427387903 9007199254740993) -> -4.15383748682786e+34) ((2545 . 5625) (* -4611686018427387903 9007199254740994) -> -4.15383748682786e+34) ((2546 . 5625) (* -4611686018427387902 9007199254740990) -> -4.15383748682786e+34) ((2547 . 5625) (* -4611686018427387902 9007199254740991) -> -4.15383748682786e+34) ((2548 . 5625) (* -4611686018427387902 9007199254740992) -> -4.15383748682786e+34) ((2549 . 5625) (* -4611686018427387902 9007199254740993) -> -4.15383748682786e+34) ((2550 . 5625) (* -4611686018427387902 9007199254740994) -> -4.15383748682786e+34) ((2551 . 5625) (* -4.61168601842739e+18 -9007199254740994) -> 4.15383748682786e+34) ((2552 . 5625) (* -4.61168601842739e+18 -9007199254740993) -> 4.15383748682786e+34) ((2553 . 5625) (* -4.61168601842739e+18 -9007199254740992) -> 4.15383748682786e+34) ((2554 . 5625) (* -4.61168601842739e+18 -9007199254740991) -> 4.15383748682786e+34) ((2555 . 5625) (* -4.61168601842739e+18 -9007199254740990) -> 4.15383748682786e+34) ((2556 . 5625) (* -4.61168601842739e+18 -9007199254740994) -> 4.15383748682786e+34) ((2557 . 5625) (* -4.61168601842739e+18 -9007199254740993) -> 4.15383748682786e+34) ((2558 . 5625) (* -4.61168601842739e+18 -9007199254740992) -> 4.15383748682786e+34) ((2559 . 5625) (* -4.61168601842739e+18 -9007199254740991) -> 4.15383748682786e+34) ((2560 . 5625) (* -4.61168601842739e+18 -9007199254740990) -> 4.15383748682786e+34) ((2561 . 5625) (* -4611686018427387904 -9007199254740994) -> 4.15383748682786e+34) ((2562 . 5625) (* -4611686018427387904 -9007199254740993) -> 4.15383748682786e+34) ((2563 . 5625) (* -4611686018427387904 -9007199254740992) -> 4.15383748682786e+34) ((2564 . 5625) (* -4611686018427387904 -9007199254740991) -> 4.15383748682786e+34) ((2565 . 5625) (* -4611686018427387904 -9007199254740990) -> 4.15383748682786e+34) ((2566 . 5625) (* -4611686018427387903 -9007199254740994) -> 4.15383748682786e+34) ((2567 . 5625) (* -4611686018427387903 -9007199254740993) -> 4.15383748682786e+34) ((2568 . 5625) (* -4611686018427387903 -9007199254740992) -> 4.15383748682786e+34) ((2569 . 5625) (* -4611686018427387903 -9007199254740991) -> 4.15383748682786e+34) ((2570 . 5625) (* -4611686018427387903 -9007199254740990) -> 4.15383748682786e+34) ((2571 . 5625) (* -4611686018427387902 -9007199254740994) -> 4.15383748682786e+34) ((2572 . 5625) (* -4611686018427387902 -9007199254740993) -> 4.15383748682786e+34) ((2573 . 5625) (* -4611686018427387902 -9007199254740992) -> 4.15383748682786e+34) ((2574 . 5625) (* -4611686018427387902 -9007199254740991) -> 4.15383748682786e+34) ((2575 . 5625) (* -4611686018427387902 -9007199254740990) -> 4.15383748682786e+34) ((2576 . 5625) (* -4.61168601842739e+18 12343) -> -5.69220405254492e+22) ((2577 . 5625) (* -4.61168601842739e+18 12344) -> -5.69266522114677e+22) ((2578 . 5625) (* -4.61168601842739e+18 12345) -> -5.69312638974861e+22) ((2579 . 5625) (* -4.61168601842739e+18 12346) -> -5.69358755835045e+22) ((2580 . 5625) (* -4.61168601842739e+18 12347) -> -5.6940487269523e+22) ((2581 . 5625) (* -4.61168601842739e+18 12343) -> -5.69220405254492e+22) ((2582 . 5625) (* -4.61168601842739e+18 12344) -> -5.69266522114677e+22) ((2583 . 5625) (* -4.61168601842739e+18 12345) -> -5.69312638974861e+22) ((2584 . 5625) (* -4.61168601842739e+18 12346) -> -5.69358755835045e+22) ((2585 . 5625) (* -4.61168601842739e+18 12347) -> -5.6940487269523e+22) ((2586 . 5625) (* -4611686018427387904 12343) -> -5.69220405254492e+22) ((2587 . 5625) (* -4611686018427387904 12344) -> -5.69266522114677e+22) ((2588 . 5625) (* -4611686018427387904 12345) -> -5.69312638974861e+22) ((2589 . 5625) (* -4611686018427387904 12346) -> -5.69358755835045e+22) ((2590 . 5625) (* -4611686018427387904 12347) -> -5.6940487269523e+22) ((2591 . 5625) (* -4611686018427387903 12343) -> -5.69220405254492e+22) ((2592 . 5625) (* -4611686018427387903 12344) -> -5.69266522114677e+22) ((2593 . 5625) (* -4611686018427387903 12345) -> -5.69312638974861e+22) ((2594 . 5625) (* -4611686018427387903 12346) -> -5.69358755835045e+22) ((2595 . 5625) (* -4611686018427387903 12347) -> -5.6940487269523e+22) ((2596 . 5625) (* -4611686018427387902 12343) -> -5.69220405254492e+22) ((2597 . 5625) (* -4611686018427387902 12344) -> -5.69266522114677e+22) ((2598 . 5625) (* -4611686018427387902 12345) -> -5.69312638974861e+22) ((2599 . 5625) (* -4611686018427387902 12346) -> -5.69358755835045e+22) ((2600 . 5625) (* -4611686018427387902 12347) -> -5.6940487269523e+22) ((2601 . 5625) (* -4.61168601842739e+18 4294967294) -> -1.98070406193427e+28) ((2602 . 5625) (* -4.61168601842739e+18 4294967295) -> -1.98070406239544e+28) ((2603 . 5625) (* -4.61168601842739e+18 4294967296) -> -1.98070406285661e+28) ((2604 . 5625) (* -4.61168601842739e+18 4294967297) -> -1.98070406331778e+28) ((2605 . 5625) (* -4.61168601842739e+18 4294967298) -> -1.98070406377895e+28) ((2606 . 5625) (* -4.61168601842739e+18 4294967294) -> -1.98070406193427e+28) ((2607 . 5625) (* -4.61168601842739e+18 4294967295) -> -1.98070406239544e+28) ((2608 . 5625) (* -4.61168601842739e+18 4294967296) -> -1.98070406285661e+28) ((2609 . 5625) (* -4.61168601842739e+18 4294967297) -> -1.98070406331778e+28) ((2610 . 5625) (* -4.61168601842739e+18 4294967298) -> -1.98070406377895e+28) ((2611 . 5625) (* -4611686018427387904 4294967294) -> -1.98070406193427e+28) ((2612 . 5625) (* -4611686018427387904 4294967295) -> -1.98070406239544e+28) ((2613 . 5625) (* -4611686018427387904 4294967296) -> -1.98070406285661e+28) ((2614 . 5625) (* -4611686018427387904 4294967297) -> -1.98070406331778e+28) ((2615 . 5625) (* -4611686018427387904 4294967298) -> -1.98070406377895e+28) ((2616 . 5625) (* -4611686018427387903 4294967294) -> -1.98070406193427e+28) ((2617 . 5625) (* -4611686018427387903 4294967295) -> -1.98070406239544e+28) ((2618 . 5625) (* -4611686018427387903 4294967296) -> -1.98070406285661e+28) ((2619 . 5625) (* -4611686018427387903 4294967297) -> -1.98070406331778e+28) ((2620 . 5625) (* -4611686018427387903 4294967298) -> -1.98070406377895e+28) ((2621 . 5625) (* -4611686018427387902 4294967294) -> -1.98070406193427e+28) ((2622 . 5625) (* -4611686018427387902 4294967295) -> -1.98070406239544e+28) ((2623 . 5625) (* -4611686018427387902 4294967296) -> -1.98070406285661e+28) ((2624 . 5625) (* -4611686018427387902 4294967297) -> -1.98070406331778e+28) ((2625 . 5625) (* -4611686018427387902 4294967298) -> -1.98070406377895e+28) ((2626 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((2627 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2628 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2629 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2630 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((2631 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((2632 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2633 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2634 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2635 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((2636 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((2637 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2638 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2639 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2640 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((2641 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((2642 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2643 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2644 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2645 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((2646 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((2647 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2648 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2649 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2650 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((2651 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2652 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2653 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2654 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((2655 . 5625) (* 4.61168601842739e+18 3) -> 1.38350580552822e+19) ((2656 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2657 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2658 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2659 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((2660 . 5625) (* 4.61168601842739e+18 3) -> 1.38350580552822e+19) ((2661 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2662 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2663 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2664 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((2665 . 5625) (* 4.61168601842739e+18 3) -> 1.38350580552822e+19) ((2666 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2667 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2668 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2669 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((2670 . 5625) (* 4.61168601842739e+18 3) -> 1.38350580552822e+19) ((2671 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2672 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2673 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2674 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((2675 . 5625) (* 4.61168601842739e+18 3) -> 1.38350580552822e+19) ((2676 . 5625) (* 4.61168601842739e+18 -3) -> -1.38350580552822e+19) ((2677 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((2678 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2679 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2680 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2681 . 5625) (* 4.61168601842739e+18 -3) -> -1.38350580552822e+19) ((2682 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((2683 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2684 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2685 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2686 . 5625) (* 4.61168601842739e+18 -3) -> -1.38350580552822e+19) ((2687 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((2688 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2689 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2690 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2691 . 5625) (* 4.61168601842739e+18 -3) -> -1.38350580552822e+19) ((2692 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((2693 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2694 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2695 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2696 . 5625) (* 4.61168601842739e+18 -3) -> -1.38350580552822e+19) ((2697 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((2698 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2699 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2700 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2701 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2702 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2703 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((2704 . 5625) (* 4.61168601842739e+18 3) -> 1.38350580552822e+19) ((2705 . 5625) (* 4.61168601842739e+18 4) -> 1.84467440737096e+19) ((2706 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2707 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2708 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((2709 . 5625) (* 4.61168601842739e+18 3) -> 1.38350580552822e+19) ((2710 . 5625) (* 4.61168601842739e+18 4) -> 1.84467440737096e+19) ((2711 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2712 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2713 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((2714 . 5625) (* 4.61168601842739e+18 3) -> 1.38350580552822e+19) ((2715 . 5625) (* 4.61168601842739e+18 4) -> 1.84467440737096e+19) ((2716 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2717 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2718 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((2719 . 5625) (* 4.61168601842739e+18 3) -> 1.38350580552822e+19) ((2720 . 5625) (* 4.61168601842739e+18 4) -> 1.84467440737096e+19) ((2721 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2722 . 5625) (* 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2723 . 5625) (* 4.61168601842739e+18 2) -> 9.22337203685478e+18) ((2724 . 5625) (* 4.61168601842739e+18 3) -> 1.38350580552822e+19) ((2725 . 5625) (* 4.61168601842739e+18 4) -> 1.84467440737096e+19) ((2726 . 5625) (* 4.61168601842739e+18 -4) -> -1.84467440737096e+19) ((2727 . 5625) (* 4.61168601842739e+18 -3) -> -1.38350580552822e+19) ((2728 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((2729 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2730 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2731 . 5625) (* 4.61168601842739e+18 -4) -> -1.84467440737096e+19) ((2732 . 5625) (* 4.61168601842739e+18 -3) -> -1.38350580552822e+19) ((2733 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((2734 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2735 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2736 . 5625) (* 4.61168601842739e+18 -4) -> -1.84467440737096e+19) ((2737 . 5625) (* 4.61168601842739e+18 -3) -> -1.38350580552822e+19) ((2738 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((2739 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2740 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2741 . 5625) (* 4.61168601842739e+18 -4) -> -1.84467440737096e+19) ((2742 . 5625) (* 4.61168601842739e+18 -3) -> -1.38350580552822e+19) ((2743 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((2744 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2745 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2746 . 5625) (* 4.61168601842739e+18 -4) -> -1.84467440737096e+19) ((2747 . 5625) (* 4.61168601842739e+18 -3) -> -1.38350580552822e+19) ((2748 . 5625) (* 4.61168601842739e+18 -2) -> -9.22337203685478e+18) ((2749 . 5625) (* 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2750 . 5625) (* 4.61168601842739e+18 0) -> 0.0) ((2751 . 5625) (* 4.61168601842739e+18 4611686018427387901) -> 2.12676479325587e+37) ((2752 . 5625) (* 4.61168601842739e+18 4611686018427387902) -> 2.12676479325587e+37) ((2753 . 5625) (* 4.61168601842739e+18 4611686018427387903) -> 2.12676479325587e+37) ((2754 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2755 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2756 . 5625) (* 4.61168601842739e+18 4611686018427387901) -> 2.12676479325587e+37) ((2757 . 5625) (* 4.61168601842739e+18 4611686018427387902) -> 2.12676479325587e+37) ((2758 . 5625) (* 4.61168601842739e+18 4611686018427387903) -> 2.12676479325587e+37) ((2759 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2760 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2761 . 5625) (* 4.61168601842739e+18 4611686018427387901) -> 2.12676479325587e+37) ((2762 . 5625) (* 4.61168601842739e+18 4611686018427387902) -> 2.12676479325587e+37) ((2763 . 5625) (* 4.61168601842739e+18 4611686018427387903) -> 2.12676479325587e+37) ((2764 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2765 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2766 . 5625) (* 4.61168601842739e+18 4611686018427387901) -> 2.12676479325587e+37) ((2767 . 5625) (* 4.61168601842739e+18 4611686018427387902) -> 2.12676479325587e+37) ((2768 . 5625) (* 4.61168601842739e+18 4611686018427387903) -> 2.12676479325587e+37) ((2769 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2770 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2771 . 5625) (* 4.61168601842739e+18 4611686018427387901) -> 2.12676479325587e+37) ((2772 . 5625) (* 4.61168601842739e+18 4611686018427387902) -> 2.12676479325587e+37) ((2773 . 5625) (* 4.61168601842739e+18 4611686018427387903) -> 2.12676479325587e+37) ((2774 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2775 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2776 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2777 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2778 . 5625) (* 4.61168601842739e+18 -4611686018427387904) -> -2.12676479325587e+37) ((2779 . 5625) (* 4.61168601842739e+18 -4611686018427387903) -> -2.12676479325587e+37) ((2780 . 5625) (* 4.61168601842739e+18 -4611686018427387902) -> -2.12676479325587e+37) ((2781 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2782 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2783 . 5625) (* 4.61168601842739e+18 -4611686018427387904) -> -2.12676479325587e+37) ((2784 . 5625) (* 4.61168601842739e+18 -4611686018427387903) -> -2.12676479325587e+37) ((2785 . 5625) (* 4.61168601842739e+18 -4611686018427387902) -> -2.12676479325587e+37) ((2786 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2787 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2788 . 5625) (* 4.61168601842739e+18 -4611686018427387904) -> -2.12676479325587e+37) ((2789 . 5625) (* 4.61168601842739e+18 -4611686018427387903) -> -2.12676479325587e+37) ((2790 . 5625) (* 4.61168601842739e+18 -4611686018427387902) -> -2.12676479325587e+37) ((2791 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2792 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2793 . 5625) (* 4.61168601842739e+18 -4611686018427387904) -> -2.12676479325587e+37) ((2794 . 5625) (* 4.61168601842739e+18 -4611686018427387903) -> -2.12676479325587e+37) ((2795 . 5625) (* 4.61168601842739e+18 -4611686018427387902) -> -2.12676479325587e+37) ((2796 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2797 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2798 . 5625) (* 4.61168601842739e+18 -4611686018427387904) -> -2.12676479325587e+37) ((2799 . 5625) (* 4.61168601842739e+18 -4611686018427387903) -> -2.12676479325587e+37) ((2800 . 5625) (* 4.61168601842739e+18 -4611686018427387902) -> -2.12676479325587e+37) ((2801 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2802 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2803 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2804 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2805 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2806 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2807 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2808 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2809 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2810 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2811 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2812 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2813 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2814 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2815 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2816 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2817 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2818 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2819 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2820 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2821 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2822 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2823 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2824 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2825 . 5625) (* 4.61168601842739e+18 4.61168601842739e+18) -> 2.12676479325587e+37) ((2826 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2827 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2828 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2829 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2830 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2831 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2832 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2833 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2834 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2835 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2836 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2837 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2838 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2839 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2840 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2841 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2842 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2843 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2844 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2845 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2846 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2847 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2848 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2849 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2850 . 5625) (* 4.61168601842739e+18 -4.61168601842739e+18) -> -2.12676479325587e+37) ((2851 . 5625) (* 4.61168601842739e+18 1103515243) -> 5.0890658172646e+27) ((2852 . 5625) (* 4.61168601842739e+18 1103515244) -> 5.08906582187629e+27) ((2853 . 5625) (* 4.61168601842739e+18 1103515245) -> 5.08906582648797e+27) ((2854 . 5625) (* 4.61168601842739e+18 1103515246) -> 5.08906583109966e+27) ((2855 . 5625) (* 4.61168601842739e+18 1103515247) -> 5.08906583571135e+27) ((2856 . 5625) (* 4.61168601842739e+18 1103515243) -> 5.0890658172646e+27) ((2857 . 5625) (* 4.61168601842739e+18 1103515244) -> 5.08906582187629e+27) ((2858 . 5625) (* 4.61168601842739e+18 1103515245) -> 5.08906582648797e+27) ((2859 . 5625) (* 4.61168601842739e+18 1103515246) -> 5.08906583109966e+27) ((2860 . 5625) (* 4.61168601842739e+18 1103515247) -> 5.08906583571135e+27) ((2861 . 5625) (* 4.61168601842739e+18 1103515243) -> 5.0890658172646e+27) ((2862 . 5625) (* 4.61168601842739e+18 1103515244) -> 5.08906582187629e+27) ((2863 . 5625) (* 4.61168601842739e+18 1103515245) -> 5.08906582648797e+27) ((2864 . 5625) (* 4.61168601842739e+18 1103515246) -> 5.08906583109966e+27) ((2865 . 5625) (* 4.61168601842739e+18 1103515247) -> 5.08906583571135e+27) ((2866 . 5625) (* 4.61168601842739e+18 1103515243) -> 5.0890658172646e+27) ((2867 . 5625) (* 4.61168601842739e+18 1103515244) -> 5.08906582187629e+27) ((2868 . 5625) (* 4.61168601842739e+18 1103515245) -> 5.08906582648797e+27) ((2869 . 5625) (* 4.61168601842739e+18 1103515246) -> 5.08906583109966e+27) ((2870 . 5625) (* 4.61168601842739e+18 1103515247) -> 5.08906583571135e+27) ((2871 . 5625) (* 4.61168601842739e+18 1103515243) -> 5.0890658172646e+27) ((2872 . 5625) (* 4.61168601842739e+18 1103515244) -> 5.08906582187629e+27) ((2873 . 5625) (* 4.61168601842739e+18 1103515245) -> 5.08906582648797e+27) ((2874 . 5625) (* 4.61168601842739e+18 1103515246) -> 5.08906583109966e+27) ((2875 . 5625) (* 4.61168601842739e+18 1103515247) -> 5.08906583571135e+27) ((2876 . 5625) (* 4.61168601842739e+18 631629063) -> 2.91287491866949e+27) ((2877 . 5625) (* 4.61168601842739e+18 631629064) -> 2.91287492328118e+27) ((2878 . 5625) (* 4.61168601842739e+18 631629065) -> 2.91287492789286e+27) ((2879 . 5625) (* 4.61168601842739e+18 631629066) -> 2.91287493250455e+27) ((2880 . 5625) (* 4.61168601842739e+18 631629067) -> 2.91287493711624e+27) ((2881 . 5625) (* 4.61168601842739e+18 631629063) -> 2.91287491866949e+27) ((2882 . 5625) (* 4.61168601842739e+18 631629064) -> 2.91287492328118e+27) ((2883 . 5625) (* 4.61168601842739e+18 631629065) -> 2.91287492789286e+27) ((2884 . 5625) (* 4.61168601842739e+18 631629066) -> 2.91287493250455e+27) ((2885 . 5625) (* 4.61168601842739e+18 631629067) -> 2.91287493711624e+27) ((2886 . 5625) (* 4.61168601842739e+18 631629063) -> 2.91287491866949e+27) ((2887 . 5625) (* 4.61168601842739e+18 631629064) -> 2.91287492328118e+27) ((2888 . 5625) (* 4.61168601842739e+18 631629065) -> 2.91287492789286e+27) ((2889 . 5625) (* 4.61168601842739e+18 631629066) -> 2.91287493250455e+27) ((2890 . 5625) (* 4.61168601842739e+18 631629067) -> 2.91287493711624e+27) ((2891 . 5625) (* 4.61168601842739e+18 631629063) -> 2.91287491866949e+27) ((2892 . 5625) (* 4.61168601842739e+18 631629064) -> 2.91287492328118e+27) ((2893 . 5625) (* 4.61168601842739e+18 631629065) -> 2.91287492789286e+27) ((2894 . 5625) (* 4.61168601842739e+18 631629066) -> 2.91287493250455e+27) ((2895 . 5625) (* 4.61168601842739e+18 631629067) -> 2.91287493711624e+27) ((2896 . 5625) (* 4.61168601842739e+18 631629063) -> 2.91287491866949e+27) ((2897 . 5625) (* 4.61168601842739e+18 631629064) -> 2.91287492328118e+27) ((2898 . 5625) (* 4.61168601842739e+18 631629065) -> 2.91287492789286e+27) ((2899 . 5625) (* 4.61168601842739e+18 631629066) -> 2.91287493250455e+27) ((2900 . 5625) (* 4.61168601842739e+18 631629067) -> 2.91287493711624e+27) ((2901 . 5625) (* 4.61168601842739e+18 9007199254740990) -> 4.15383748682786e+34) ((2902 . 5625) (* 4.61168601842739e+18 9007199254740991) -> 4.15383748682786e+34) ((2903 . 5625) (* 4.61168601842739e+18 9007199254740992) -> 4.15383748682786e+34) ((2904 . 5625) (* 4.61168601842739e+18 9007199254740993) -> 4.15383748682786e+34) ((2905 . 5625) (* 4.61168601842739e+18 9007199254740994) -> 4.15383748682786e+34) ((2906 . 5625) (* 4.61168601842739e+18 9007199254740990) -> 4.15383748682786e+34) ((2907 . 5625) (* 4.61168601842739e+18 9007199254740991) -> 4.15383748682786e+34) ((2908 . 5625) (* 4.61168601842739e+18 9007199254740992) -> 4.15383748682786e+34) ((2909 . 5625) (* 4.61168601842739e+18 9007199254740993) -> 4.15383748682786e+34) ((2910 . 5625) (* 4.61168601842739e+18 9007199254740994) -> 4.15383748682786e+34) ((2911 . 5625) (* 4.61168601842739e+18 9007199254740990) -> 4.15383748682786e+34) ((2912 . 5625) (* 4.61168601842739e+18 9007199254740991) -> 4.15383748682786e+34) ((2913 . 5625) (* 4.61168601842739e+18 9007199254740992) -> 4.15383748682786e+34) ((2914 . 5625) (* 4.61168601842739e+18 9007199254740993) -> 4.15383748682786e+34) ((2915 . 5625) (* 4.61168601842739e+18 9007199254740994) -> 4.15383748682786e+34) ((2916 . 5625) (* 4.61168601842739e+18 9007199254740990) -> 4.15383748682786e+34) ((2917 . 5625) (* 4.61168601842739e+18 9007199254740991) -> 4.15383748682786e+34) ((2918 . 5625) (* 4.61168601842739e+18 9007199254740992) -> 4.15383748682786e+34) ((2919 . 5625) (* 4.61168601842739e+18 9007199254740993) -> 4.15383748682786e+34) ((2920 . 5625) (* 4.61168601842739e+18 9007199254740994) -> 4.15383748682786e+34) ((2921 . 5625) (* 4.61168601842739e+18 9007199254740990) -> 4.15383748682786e+34) ((2922 . 5625) (* 4.61168601842739e+18 9007199254740991) -> 4.15383748682786e+34) ((2923 . 5625) (* 4.61168601842739e+18 9007199254740992) -> 4.15383748682786e+34) ((2924 . 5625) (* 4.61168601842739e+18 9007199254740993) -> 4.15383748682786e+34) ((2925 . 5625) (* 4.61168601842739e+18 9007199254740994) -> 4.15383748682786e+34) ((2926 . 5625) (* 4.61168601842739e+18 -9007199254740994) -> -4.15383748682786e+34) ((2927 . 5625) (* 4.61168601842739e+18 -9007199254740993) -> -4.15383748682786e+34) ((2928 . 5625) (* 4.61168601842739e+18 -9007199254740992) -> -4.15383748682786e+34) ((2929 . 5625) (* 4.61168601842739e+18 -9007199254740991) -> -4.15383748682786e+34) ((2930 . 5625) (* 4.61168601842739e+18 -9007199254740990) -> -4.15383748682786e+34) ((2931 . 5625) (* 4.61168601842739e+18 -9007199254740994) -> -4.15383748682786e+34) ((2932 . 5625) (* 4.61168601842739e+18 -9007199254740993) -> -4.15383748682786e+34) ((2933 . 5625) (* 4.61168601842739e+18 -9007199254740992) -> -4.15383748682786e+34) ((2934 . 5625) (* 4.61168601842739e+18 -9007199254740991) -> -4.15383748682786e+34) ((2935 . 5625) (* 4.61168601842739e+18 -9007199254740990) -> -4.15383748682786e+34) ((2936 . 5625) (* 4.61168601842739e+18 -9007199254740994) -> -4.15383748682786e+34) ((2937 . 5625) (* 4.61168601842739e+18 -9007199254740993) -> -4.15383748682786e+34) ((2938 . 5625) (* 4.61168601842739e+18 -9007199254740992) -> -4.15383748682786e+34) ((2939 . 5625) (* 4.61168601842739e+18 -9007199254740991) -> -4.15383748682786e+34) ((2940 . 5625) (* 4.61168601842739e+18 -9007199254740990) -> -4.15383748682786e+34) ((2941 . 5625) (* 4.61168601842739e+18 -9007199254740994) -> -4.15383748682786e+34) ((2942 . 5625) (* 4.61168601842739e+18 -9007199254740993) -> -4.15383748682786e+34) ((2943 . 5625) (* 4.61168601842739e+18 -9007199254740992) -> -4.15383748682786e+34) ((2944 . 5625) (* 4.61168601842739e+18 -9007199254740991) -> -4.15383748682786e+34) ((2945 . 5625) (* 4.61168601842739e+18 -9007199254740990) -> -4.15383748682786e+34) ((2946 . 5625) (* 4.61168601842739e+18 -9007199254740994) -> -4.15383748682786e+34) ((2947 . 5625) (* 4.61168601842739e+18 -9007199254740993) -> -4.15383748682786e+34) ((2948 . 5625) (* 4.61168601842739e+18 -9007199254740992) -> -4.15383748682786e+34) ((2949 . 5625) (* 4.61168601842739e+18 -9007199254740991) -> -4.15383748682786e+34) ((2950 . 5625) (* 4.61168601842739e+18 -9007199254740990) -> -4.15383748682786e+34) ((2951 . 5625) (* 4.61168601842739e+18 12343) -> 5.69220405254492e+22) ((2952 . 5625) (* 4.61168601842739e+18 12344) -> 5.69266522114677e+22) ((2953 . 5625) (* 4.61168601842739e+18 12345) -> 5.69312638974861e+22) ((2954 . 5625) (* 4.61168601842739e+18 12346) -> 5.69358755835045e+22) ((2955 . 5625) (* 4.61168601842739e+18 12347) -> 5.6940487269523e+22) ((2956 . 5625) (* 4.61168601842739e+18 12343) -> 5.69220405254492e+22) ((2957 . 5625) (* 4.61168601842739e+18 12344) -> 5.69266522114677e+22) ((2958 . 5625) (* 4.61168601842739e+18 12345) -> 5.69312638974861e+22) ((2959 . 5625) (* 4.61168601842739e+18 12346) -> 5.69358755835045e+22) ((2960 . 5625) (* 4.61168601842739e+18 12347) -> 5.6940487269523e+22) ((2961 . 5625) (* 4.61168601842739e+18 12343) -> 5.69220405254492e+22) ((2962 . 5625) (* 4.61168601842739e+18 12344) -> 5.69266522114677e+22) ((2963 . 5625) (* 4.61168601842739e+18 12345) -> 5.69312638974861e+22) ((2964 . 5625) (* 4.61168601842739e+18 12346) -> 5.69358755835045e+22) ((2965 . 5625) (* 4.61168601842739e+18 12347) -> 5.6940487269523e+22) ((2966 . 5625) (* 4.61168601842739e+18 12343) -> 5.69220405254492e+22) ((2967 . 5625) (* 4.61168601842739e+18 12344) -> 5.69266522114677e+22) ((2968 . 5625) (* 4.61168601842739e+18 12345) -> 5.69312638974861e+22) ((2969 . 5625) (* 4.61168601842739e+18 12346) -> 5.69358755835045e+22) ((2970 . 5625) (* 4.61168601842739e+18 12347) -> 5.6940487269523e+22) ((2971 . 5625) (* 4.61168601842739e+18 12343) -> 5.69220405254492e+22) ((2972 . 5625) (* 4.61168601842739e+18 12344) -> 5.69266522114677e+22) ((2973 . 5625) (* 4.61168601842739e+18 12345) -> 5.69312638974861e+22) ((2974 . 5625) (* 4.61168601842739e+18 12346) -> 5.69358755835045e+22) ((2975 . 5625) (* 4.61168601842739e+18 12347) -> 5.6940487269523e+22) ((2976 . 5625) (* 4.61168601842739e+18 4294967294) -> 1.98070406193427e+28) ((2977 . 5625) (* 4.61168601842739e+18 4294967295) -> 1.98070406239544e+28) ((2978 . 5625) (* 4.61168601842739e+18 4294967296) -> 1.98070406285661e+28) ((2979 . 5625) (* 4.61168601842739e+18 4294967297) -> 1.98070406331778e+28) ((2980 . 5625) (* 4.61168601842739e+18 4294967298) -> 1.98070406377895e+28) ((2981 . 5625) (* 4.61168601842739e+18 4294967294) -> 1.98070406193427e+28) ((2982 . 5625) (* 4.61168601842739e+18 4294967295) -> 1.98070406239544e+28) ((2983 . 5625) (* 4.61168601842739e+18 4294967296) -> 1.98070406285661e+28) ((2984 . 5625) (* 4.61168601842739e+18 4294967297) -> 1.98070406331778e+28) ((2985 . 5625) (* 4.61168601842739e+18 4294967298) -> 1.98070406377895e+28) ((2986 . 5625) (* 4.61168601842739e+18 4294967294) -> 1.98070406193427e+28) ((2987 . 5625) (* 4.61168601842739e+18 4294967295) -> 1.98070406239544e+28) ((2988 . 5625) (* 4.61168601842739e+18 4294967296) -> 1.98070406285661e+28) ((2989 . 5625) (* 4.61168601842739e+18 4294967297) -> 1.98070406331778e+28) ((2990 . 5625) (* 4.61168601842739e+18 4294967298) -> 1.98070406377895e+28) ((2991 . 5625) (* 4.61168601842739e+18 4294967294) -> 1.98070406193427e+28) ((2992 . 5625) (* 4.61168601842739e+18 4294967295) -> 1.98070406239544e+28) ((2993 . 5625) (* 4.61168601842739e+18 4294967296) -> 1.98070406285661e+28) ((2994 . 5625) (* 4.61168601842739e+18 4294967297) -> 1.98070406331778e+28) ((2995 . 5625) (* 4.61168601842739e+18 4294967298) -> 1.98070406377895e+28) ((2996 . 5625) (* 4.61168601842739e+18 4294967294) -> 1.98070406193427e+28) ((2997 . 5625) (* 4.61168601842739e+18 4294967295) -> 1.98070406239544e+28) ((2998 . 5625) (* 4.61168601842739e+18 4294967296) -> 1.98070406285661e+28) ((2999 . 5625) (* 4.61168601842739e+18 4294967297) -> 1.98070406331778e+28) ((3000 . 5625) (* 4.61168601842739e+18 4294967298) -> 1.98070406377895e+28) ((3001 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((3002 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3003 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3004 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3005 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((3006 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((3007 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3008 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3009 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3010 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((3011 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((3012 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3013 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3014 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3015 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((3016 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((3017 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3018 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3019 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3020 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((3021 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((3022 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3023 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3024 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3025 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((3026 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3027 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3028 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3029 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((3030 . 5625) (* -4.61168601842739e+18 3) -> -1.38350580552822e+19) ((3031 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3032 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3033 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3034 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((3035 . 5625) (* -4.61168601842739e+18 3) -> -1.38350580552822e+19) ((3036 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3037 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3038 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3039 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((3040 . 5625) (* -4.61168601842739e+18 3) -> -1.38350580552822e+19) ((3041 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3042 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3043 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3044 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((3045 . 5625) (* -4.61168601842739e+18 3) -> -1.38350580552822e+19) ((3046 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3047 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3048 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3049 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((3050 . 5625) (* -4.61168601842739e+18 3) -> -1.38350580552822e+19) ((3051 . 5625) (* -4.61168601842739e+18 -3) -> 1.38350580552822e+19) ((3052 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((3053 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3054 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3055 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3056 . 5625) (* -4.61168601842739e+18 -3) -> 1.38350580552822e+19) ((3057 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((3058 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3059 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3060 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3061 . 5625) (* -4.61168601842739e+18 -3) -> 1.38350580552822e+19) ((3062 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((3063 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3064 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3065 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3066 . 5625) (* -4.61168601842739e+18 -3) -> 1.38350580552822e+19) ((3067 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((3068 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3069 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3070 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3071 . 5625) (* -4.61168601842739e+18 -3) -> 1.38350580552822e+19) ((3072 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((3073 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3074 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3075 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3076 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3077 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3078 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((3079 . 5625) (* -4.61168601842739e+18 3) -> -1.38350580552822e+19) ((3080 . 5625) (* -4.61168601842739e+18 4) -> -1.84467440737096e+19) ((3081 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3082 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3083 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((3084 . 5625) (* -4.61168601842739e+18 3) -> -1.38350580552822e+19) ((3085 . 5625) (* -4.61168601842739e+18 4) -> -1.84467440737096e+19) ((3086 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3087 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3088 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((3089 . 5625) (* -4.61168601842739e+18 3) -> -1.38350580552822e+19) ((3090 . 5625) (* -4.61168601842739e+18 4) -> -1.84467440737096e+19) ((3091 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3092 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3093 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((3094 . 5625) (* -4.61168601842739e+18 3) -> -1.38350580552822e+19) ((3095 . 5625) (* -4.61168601842739e+18 4) -> -1.84467440737096e+19) ((3096 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3097 . 5625) (* -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3098 . 5625) (* -4.61168601842739e+18 2) -> -9.22337203685478e+18) ((3099 . 5625) (* -4.61168601842739e+18 3) -> -1.38350580552822e+19) ((3100 . 5625) (* -4.61168601842739e+18 4) -> -1.84467440737096e+19) ((3101 . 5625) (* -4.61168601842739e+18 -4) -> 1.84467440737096e+19) ((3102 . 5625) (* -4.61168601842739e+18 -3) -> 1.38350580552822e+19) ((3103 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((3104 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3105 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3106 . 5625) (* -4.61168601842739e+18 -4) -> 1.84467440737096e+19) ((3107 . 5625) (* -4.61168601842739e+18 -3) -> 1.38350580552822e+19) ((3108 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((3109 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3110 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3111 . 5625) (* -4.61168601842739e+18 -4) -> 1.84467440737096e+19) ((3112 . 5625) (* -4.61168601842739e+18 -3) -> 1.38350580552822e+19) ((3113 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((3114 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3115 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3116 . 5625) (* -4.61168601842739e+18 -4) -> 1.84467440737096e+19) ((3117 . 5625) (* -4.61168601842739e+18 -3) -> 1.38350580552822e+19) ((3118 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((3119 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3120 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3121 . 5625) (* -4.61168601842739e+18 -4) -> 1.84467440737096e+19) ((3122 . 5625) (* -4.61168601842739e+18 -3) -> 1.38350580552822e+19) ((3123 . 5625) (* -4.61168601842739e+18 -2) -> 9.22337203685478e+18) ((3124 . 5625) (* -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3125 . 5625) (* -4.61168601842739e+18 0) -> -0.0) ((3126 . 5625) (* -4.61168601842739e+18 4611686018427387901) -> -2.12676479325587e+37) ((3127 . 5625) (* -4.61168601842739e+18 4611686018427387902) -> -2.12676479325587e+37) ((3128 . 5625) (* -4.61168601842739e+18 4611686018427387903) -> -2.12676479325587e+37) ((3129 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3130 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3131 . 5625) (* -4.61168601842739e+18 4611686018427387901) -> -2.12676479325587e+37) ((3132 . 5625) (* -4.61168601842739e+18 4611686018427387902) -> -2.12676479325587e+37) ((3133 . 5625) (* -4.61168601842739e+18 4611686018427387903) -> -2.12676479325587e+37) ((3134 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3135 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3136 . 5625) (* -4.61168601842739e+18 4611686018427387901) -> -2.12676479325587e+37) ((3137 . 5625) (* -4.61168601842739e+18 4611686018427387902) -> -2.12676479325587e+37) ((3138 . 5625) (* -4.61168601842739e+18 4611686018427387903) -> -2.12676479325587e+37) ((3139 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3140 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3141 . 5625) (* -4.61168601842739e+18 4611686018427387901) -> -2.12676479325587e+37) ((3142 . 5625) (* -4.61168601842739e+18 4611686018427387902) -> -2.12676479325587e+37) ((3143 . 5625) (* -4.61168601842739e+18 4611686018427387903) -> -2.12676479325587e+37) ((3144 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3145 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3146 . 5625) (* -4.61168601842739e+18 4611686018427387901) -> -2.12676479325587e+37) ((3147 . 5625) (* -4.61168601842739e+18 4611686018427387902) -> -2.12676479325587e+37) ((3148 . 5625) (* -4.61168601842739e+18 4611686018427387903) -> -2.12676479325587e+37) ((3149 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3150 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3151 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3152 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3153 . 5625) (* -4.61168601842739e+18 -4611686018427387904) -> 2.12676479325587e+37) ((3154 . 5625) (* -4.61168601842739e+18 -4611686018427387903) -> 2.12676479325587e+37) ((3155 . 5625) (* -4.61168601842739e+18 -4611686018427387902) -> 2.12676479325587e+37) ((3156 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3157 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3158 . 5625) (* -4.61168601842739e+18 -4611686018427387904) -> 2.12676479325587e+37) ((3159 . 5625) (* -4.61168601842739e+18 -4611686018427387903) -> 2.12676479325587e+37) ((3160 . 5625) (* -4.61168601842739e+18 -4611686018427387902) -> 2.12676479325587e+37) ((3161 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3162 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3163 . 5625) (* -4.61168601842739e+18 -4611686018427387904) -> 2.12676479325587e+37) ((3164 . 5625) (* -4.61168601842739e+18 -4611686018427387903) -> 2.12676479325587e+37) ((3165 . 5625) (* -4.61168601842739e+18 -4611686018427387902) -> 2.12676479325587e+37) ((3166 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3167 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3168 . 5625) (* -4.61168601842739e+18 -4611686018427387904) -> 2.12676479325587e+37) ((3169 . 5625) (* -4.61168601842739e+18 -4611686018427387903) -> 2.12676479325587e+37) ((3170 . 5625) (* -4.61168601842739e+18 -4611686018427387902) -> 2.12676479325587e+37) ((3171 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3172 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3173 . 5625) (* -4.61168601842739e+18 -4611686018427387904) -> 2.12676479325587e+37) ((3174 . 5625) (* -4.61168601842739e+18 -4611686018427387903) -> 2.12676479325587e+37) ((3175 . 5625) (* -4.61168601842739e+18 -4611686018427387902) -> 2.12676479325587e+37) ((3176 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3177 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3178 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3179 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3180 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3181 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3182 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3183 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3184 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3185 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3186 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3187 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3188 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3189 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3190 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3191 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3192 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3193 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3194 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3195 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3196 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3197 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3198 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3199 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3200 . 5625) (* -4.61168601842739e+18 4.61168601842739e+18) -> -2.12676479325587e+37) ((3201 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3202 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3203 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3204 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3205 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3206 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3207 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3208 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3209 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3210 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3211 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3212 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3213 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3214 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3215 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3216 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3217 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3218 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3219 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3220 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3221 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3222 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3223 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3224 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3225 . 5625) (* -4.61168601842739e+18 -4.61168601842739e+18) -> 2.12676479325587e+37) ((3226 . 5625) (* -4.61168601842739e+18 1103515243) -> -5.0890658172646e+27) ((3227 . 5625) (* -4.61168601842739e+18 1103515244) -> -5.08906582187629e+27) ((3228 . 5625) (* -4.61168601842739e+18 1103515245) -> -5.08906582648797e+27) ((3229 . 5625) (* -4.61168601842739e+18 1103515246) -> -5.08906583109966e+27) ((3230 . 5625) (* -4.61168601842739e+18 1103515247) -> -5.08906583571135e+27) ((3231 . 5625) (* -4.61168601842739e+18 1103515243) -> -5.0890658172646e+27) ((3232 . 5625) (* -4.61168601842739e+18 1103515244) -> -5.08906582187629e+27) ((3233 . 5625) (* -4.61168601842739e+18 1103515245) -> -5.08906582648797e+27) ((3234 . 5625) (* -4.61168601842739e+18 1103515246) -> -5.08906583109966e+27) ((3235 . 5625) (* -4.61168601842739e+18 1103515247) -> -5.08906583571135e+27) ((3236 . 5625) (* -4.61168601842739e+18 1103515243) -> -5.0890658172646e+27) ((3237 . 5625) (* -4.61168601842739e+18 1103515244) -> -5.08906582187629e+27) ((3238 . 5625) (* -4.61168601842739e+18 1103515245) -> -5.08906582648797e+27) ((3239 . 5625) (* -4.61168601842739e+18 1103515246) -> -5.08906583109966e+27) ((3240 . 5625) (* -4.61168601842739e+18 1103515247) -> -5.08906583571135e+27) ((3241 . 5625) (* -4.61168601842739e+18 1103515243) -> -5.0890658172646e+27) ((3242 . 5625) (* -4.61168601842739e+18 1103515244) -> -5.08906582187629e+27) ((3243 . 5625) (* -4.61168601842739e+18 1103515245) -> -5.08906582648797e+27) ((3244 . 5625) (* -4.61168601842739e+18 1103515246) -> -5.08906583109966e+27) ((3245 . 5625) (* -4.61168601842739e+18 1103515247) -> -5.08906583571135e+27) ((3246 . 5625) (* -4.61168601842739e+18 1103515243) -> -5.0890658172646e+27) ((3247 . 5625) (* -4.61168601842739e+18 1103515244) -> -5.08906582187629e+27) ((3248 . 5625) (* -4.61168601842739e+18 1103515245) -> -5.08906582648797e+27) ((3249 . 5625) (* -4.61168601842739e+18 1103515246) -> -5.08906583109966e+27) ((3250 . 5625) (* -4.61168601842739e+18 1103515247) -> -5.08906583571135e+27) ((3251 . 5625) (* -4.61168601842739e+18 631629063) -> -2.91287491866949e+27) ((3252 . 5625) (* -4.61168601842739e+18 631629064) -> -2.91287492328118e+27) ((3253 . 5625) (* -4.61168601842739e+18 631629065) -> -2.91287492789286e+27) ((3254 . 5625) (* -4.61168601842739e+18 631629066) -> -2.91287493250455e+27) ((3255 . 5625) (* -4.61168601842739e+18 631629067) -> -2.91287493711624e+27) ((3256 . 5625) (* -4.61168601842739e+18 631629063) -> -2.91287491866949e+27) ((3257 . 5625) (* -4.61168601842739e+18 631629064) -> -2.91287492328118e+27) ((3258 . 5625) (* -4.61168601842739e+18 631629065) -> -2.91287492789286e+27) ((3259 . 5625) (* -4.61168601842739e+18 631629066) -> -2.91287493250455e+27) ((3260 . 5625) (* -4.61168601842739e+18 631629067) -> -2.91287493711624e+27) ((3261 . 5625) (* -4.61168601842739e+18 631629063) -> -2.91287491866949e+27) ((3262 . 5625) (* -4.61168601842739e+18 631629064) -> -2.91287492328118e+27) ((3263 . 5625) (* -4.61168601842739e+18 631629065) -> -2.91287492789286e+27) ((3264 . 5625) (* -4.61168601842739e+18 631629066) -> -2.91287493250455e+27) ((3265 . 5625) (* -4.61168601842739e+18 631629067) -> -2.91287493711624e+27) ((3266 . 5625) (* -4.61168601842739e+18 631629063) -> -2.91287491866949e+27) ((3267 . 5625) (* -4.61168601842739e+18 631629064) -> -2.91287492328118e+27) ((3268 . 5625) (* -4.61168601842739e+18 631629065) -> -2.91287492789286e+27) ((3269 . 5625) (* -4.61168601842739e+18 631629066) -> -2.91287493250455e+27) ((3270 . 5625) (* -4.61168601842739e+18 631629067) -> -2.91287493711624e+27) ((3271 . 5625) (* -4.61168601842739e+18 631629063) -> -2.91287491866949e+27) ((3272 . 5625) (* -4.61168601842739e+18 631629064) -> -2.91287492328118e+27) ((3273 . 5625) (* -4.61168601842739e+18 631629065) -> -2.91287492789286e+27) ((3274 . 5625) (* -4.61168601842739e+18 631629066) -> -2.91287493250455e+27) ((3275 . 5625) (* -4.61168601842739e+18 631629067) -> -2.91287493711624e+27) ((3276 . 5625) (* -4.61168601842739e+18 9007199254740990) -> -4.15383748682786e+34) ((3277 . 5625) (* -4.61168601842739e+18 9007199254740991) -> -4.15383748682786e+34) ((3278 . 5625) (* -4.61168601842739e+18 9007199254740992) -> -4.15383748682786e+34) ((3279 . 5625) (* -4.61168601842739e+18 9007199254740993) -> -4.15383748682786e+34) ((3280 . 5625) (* -4.61168601842739e+18 9007199254740994) -> -4.15383748682786e+34) ((3281 . 5625) (* -4.61168601842739e+18 9007199254740990) -> -4.15383748682786e+34) ((3282 . 5625) (* -4.61168601842739e+18 9007199254740991) -> -4.15383748682786e+34) ((3283 . 5625) (* -4.61168601842739e+18 9007199254740992) -> -4.15383748682786e+34) ((3284 . 5625) (* -4.61168601842739e+18 9007199254740993) -> -4.15383748682786e+34) ((3285 . 5625) (* -4.61168601842739e+18 9007199254740994) -> -4.15383748682786e+34) ((3286 . 5625) (* -4.61168601842739e+18 9007199254740990) -> -4.15383748682786e+34) ((3287 . 5625) (* -4.61168601842739e+18 9007199254740991) -> -4.15383748682786e+34) ((3288 . 5625) (* -4.61168601842739e+18 9007199254740992) -> -4.15383748682786e+34) ((3289 . 5625) (* -4.61168601842739e+18 9007199254740993) -> -4.15383748682786e+34) ((3290 . 5625) (* -4.61168601842739e+18 9007199254740994) -> -4.15383748682786e+34) ((3291 . 5625) (* -4.61168601842739e+18 9007199254740990) -> -4.15383748682786e+34) ((3292 . 5625) (* -4.61168601842739e+18 9007199254740991) -> -4.15383748682786e+34) ((3293 . 5625) (* -4.61168601842739e+18 9007199254740992) -> -4.15383748682786e+34) ((3294 . 5625) (* -4.61168601842739e+18 9007199254740993) -> -4.15383748682786e+34) ((3295 . 5625) (* -4.61168601842739e+18 9007199254740994) -> -4.15383748682786e+34) ((3296 . 5625) (* -4.61168601842739e+18 9007199254740990) -> -4.15383748682786e+34) ((3297 . 5625) (* -4.61168601842739e+18 9007199254740991) -> -4.15383748682786e+34) ((3298 . 5625) (* -4.61168601842739e+18 9007199254740992) -> -4.15383748682786e+34) ((3299 . 5625) (* -4.61168601842739e+18 9007199254740993) -> -4.15383748682786e+34) ((3300 . 5625) (* -4.61168601842739e+18 9007199254740994) -> -4.15383748682786e+34) ((3301 . 5625) (* -4.61168601842739e+18 -9007199254740994) -> 4.15383748682786e+34) ((3302 . 5625) (* -4.61168601842739e+18 -9007199254740993) -> 4.15383748682786e+34) ((3303 . 5625) (* -4.61168601842739e+18 -9007199254740992) -> 4.15383748682786e+34) ((3304 . 5625) (* -4.61168601842739e+18 -9007199254740991) -> 4.15383748682786e+34) ((3305 . 5625) (* -4.61168601842739e+18 -9007199254740990) -> 4.15383748682786e+34) ((3306 . 5625) (* -4.61168601842739e+18 -9007199254740994) -> 4.15383748682786e+34) ((3307 . 5625) (* -4.61168601842739e+18 -9007199254740993) -> 4.15383748682786e+34) ((3308 . 5625) (* -4.61168601842739e+18 -9007199254740992) -> 4.15383748682786e+34) ((3309 . 5625) (* -4.61168601842739e+18 -9007199254740991) -> 4.15383748682786e+34) ((3310 . 5625) (* -4.61168601842739e+18 -9007199254740990) -> 4.15383748682786e+34) ((3311 . 5625) (* -4.61168601842739e+18 -9007199254740994) -> 4.15383748682786e+34) ((3312 . 5625) (* -4.61168601842739e+18 -9007199254740993) -> 4.15383748682786e+34) ((3313 . 5625) (* -4.61168601842739e+18 -9007199254740992) -> 4.15383748682786e+34) ((3314 . 5625) (* -4.61168601842739e+18 -9007199254740991) -> 4.15383748682786e+34) ((3315 . 5625) (* -4.61168601842739e+18 -9007199254740990) -> 4.15383748682786e+34) ((3316 . 5625) (* -4.61168601842739e+18 -9007199254740994) -> 4.15383748682786e+34) ((3317 . 5625) (* -4.61168601842739e+18 -9007199254740993) -> 4.15383748682786e+34) ((3318 . 5625) (* -4.61168601842739e+18 -9007199254740992) -> 4.15383748682786e+34) ((3319 . 5625) (* -4.61168601842739e+18 -9007199254740991) -> 4.15383748682786e+34) ((3320 . 5625) (* -4.61168601842739e+18 -9007199254740990) -> 4.15383748682786e+34) ((3321 . 5625) (* -4.61168601842739e+18 -9007199254740994) -> 4.15383748682786e+34) ((3322 . 5625) (* -4.61168601842739e+18 -9007199254740993) -> 4.15383748682786e+34) ((3323 . 5625) (* -4.61168601842739e+18 -9007199254740992) -> 4.15383748682786e+34) ((3324 . 5625) (* -4.61168601842739e+18 -9007199254740991) -> 4.15383748682786e+34) ((3325 . 5625) (* -4.61168601842739e+18 -9007199254740990) -> 4.15383748682786e+34) ((3326 . 5625) (* -4.61168601842739e+18 12343) -> -5.69220405254492e+22) ((3327 . 5625) (* -4.61168601842739e+18 12344) -> -5.69266522114677e+22) ((3328 . 5625) (* -4.61168601842739e+18 12345) -> -5.69312638974861e+22) ((3329 . 5625) (* -4.61168601842739e+18 12346) -> -5.69358755835045e+22) ((3330 . 5625) (* -4.61168601842739e+18 12347) -> -5.6940487269523e+22) ((3331 . 5625) (* -4.61168601842739e+18 12343) -> -5.69220405254492e+22) ((3332 . 5625) (* -4.61168601842739e+18 12344) -> -5.69266522114677e+22) ((3333 . 5625) (* -4.61168601842739e+18 12345) -> -5.69312638974861e+22) ((3334 . 5625) (* -4.61168601842739e+18 12346) -> -5.69358755835045e+22) ((3335 . 5625) (* -4.61168601842739e+18 12347) -> -5.6940487269523e+22) ((3336 . 5625) (* -4.61168601842739e+18 12343) -> -5.69220405254492e+22) ((3337 . 5625) (* -4.61168601842739e+18 12344) -> -5.69266522114677e+22) ((3338 . 5625) (* -4.61168601842739e+18 12345) -> -5.69312638974861e+22) ((3339 . 5625) (* -4.61168601842739e+18 12346) -> -5.69358755835045e+22) ((3340 . 5625) (* -4.61168601842739e+18 12347) -> -5.6940487269523e+22) ((3341 . 5625) (* -4.61168601842739e+18 12343) -> -5.69220405254492e+22) ((3342 . 5625) (* -4.61168601842739e+18 12344) -> -5.69266522114677e+22) ((3343 . 5625) (* -4.61168601842739e+18 12345) -> -5.69312638974861e+22) ((3344 . 5625) (* -4.61168601842739e+18 12346) -> -5.69358755835045e+22) ((3345 . 5625) (* -4.61168601842739e+18 12347) -> -5.6940487269523e+22) ((3346 . 5625) (* -4.61168601842739e+18 12343) -> -5.69220405254492e+22) ((3347 . 5625) (* -4.61168601842739e+18 12344) -> -5.69266522114677e+22) ((3348 . 5625) (* -4.61168601842739e+18 12345) -> -5.69312638974861e+22) ((3349 . 5625) (* -4.61168601842739e+18 12346) -> -5.69358755835045e+22) ((3350 . 5625) (* -4.61168601842739e+18 12347) -> -5.6940487269523e+22) ((3351 . 5625) (* -4.61168601842739e+18 4294967294) -> -1.98070406193427e+28) ((3352 . 5625) (* -4.61168601842739e+18 4294967295) -> -1.98070406239544e+28) ((3353 . 5625) (* -4.61168601842739e+18 4294967296) -> -1.98070406285661e+28) ((3354 . 5625) (* -4.61168601842739e+18 4294967297) -> -1.98070406331778e+28) ((3355 . 5625) (* -4.61168601842739e+18 4294967298) -> -1.98070406377895e+28) ((3356 . 5625) (* -4.61168601842739e+18 4294967294) -> -1.98070406193427e+28) ((3357 . 5625) (* -4.61168601842739e+18 4294967295) -> -1.98070406239544e+28) ((3358 . 5625) (* -4.61168601842739e+18 4294967296) -> -1.98070406285661e+28) ((3359 . 5625) (* -4.61168601842739e+18 4294967297) -> -1.98070406331778e+28) ((3360 . 5625) (* -4.61168601842739e+18 4294967298) -> -1.98070406377895e+28) ((3361 . 5625) (* -4.61168601842739e+18 4294967294) -> -1.98070406193427e+28) ((3362 . 5625) (* -4.61168601842739e+18 4294967295) -> -1.98070406239544e+28) ((3363 . 5625) (* -4.61168601842739e+18 4294967296) -> -1.98070406285661e+28) ((3364 . 5625) (* -4.61168601842739e+18 4294967297) -> -1.98070406331778e+28) ((3365 . 5625) (* -4.61168601842739e+18 4294967298) -> -1.98070406377895e+28) ((3366 . 5625) (* -4.61168601842739e+18 4294967294) -> -1.98070406193427e+28) ((3367 . 5625) (* -4.61168601842739e+18 4294967295) -> -1.98070406239544e+28) ((3368 . 5625) (* -4.61168601842739e+18 4294967296) -> -1.98070406285661e+28) ((3369 . 5625) (* -4.61168601842739e+18 4294967297) -> -1.98070406331778e+28) ((3370 . 5625) (* -4.61168601842739e+18 4294967298) -> -1.98070406377895e+28) ((3371 . 5625) (* -4.61168601842739e+18 4294967294) -> -1.98070406193427e+28) ((3372 . 5625) (* -4.61168601842739e+18 4294967295) -> -1.98070406239544e+28) ((3373 . 5625) (* -4.61168601842739e+18 4294967296) -> -1.98070406285661e+28) ((3374 . 5625) (* -4.61168601842739e+18 4294967297) -> -1.98070406331778e+28) ((3375 . 5625) (* -4.61168601842739e+18 4294967298) -> -1.98070406377895e+28) ((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) -> 5.0890658172646e+27) ((3502 . 5625) (* 1103515243 4611686018427387902) -> 5.0890658172646e+27) ((3503 . 5625) (* 1103515243 4611686018427387903) -> 5.0890658172646e+27) ((3504 . 5625) (* 1103515243 4.61168601842739e+18) -> 5.0890658172646e+27) ((3505 . 5625) (* 1103515243 4.61168601842739e+18) -> 5.0890658172646e+27) ((3506 . 5625) (* 1103515244 4611686018427387901) -> 5.08906582187629e+27) ((3507 . 5625) (* 1103515244 4611686018427387902) -> 5.08906582187629e+27) ((3508 . 5625) (* 1103515244 4611686018427387903) -> 5.08906582187629e+27) ((3509 . 5625) (* 1103515244 4.61168601842739e+18) -> 5.08906582187629e+27) ((3510 . 5625) (* 1103515244 4.61168601842739e+18) -> 5.08906582187629e+27) ((3511 . 5625) (* 1103515245 4611686018427387901) -> 5.08906582648797e+27) ((3512 . 5625) (* 1103515245 4611686018427387902) -> 5.08906582648797e+27) ((3513 . 5625) (* 1103515245 4611686018427387903) -> 5.08906582648797e+27) ((3514 . 5625) (* 1103515245 4.61168601842739e+18) -> 5.08906582648797e+27) ((3515 . 5625) (* 1103515245 4.61168601842739e+18) -> 5.08906582648797e+27) ((3516 . 5625) (* 1103515246 4611686018427387901) -> 5.08906583109966e+27) ((3517 . 5625) (* 1103515246 4611686018427387902) -> 5.08906583109966e+27) ((3518 . 5625) (* 1103515246 4611686018427387903) -> 5.08906583109966e+27) ((3519 . 5625) (* 1103515246 4.61168601842739e+18) -> 5.08906583109966e+27) ((3520 . 5625) (* 1103515246 4.61168601842739e+18) -> 5.08906583109966e+27) ((3521 . 5625) (* 1103515247 4611686018427387901) -> 5.08906583571135e+27) ((3522 . 5625) (* 1103515247 4611686018427387902) -> 5.08906583571135e+27) ((3523 . 5625) (* 1103515247 4611686018427387903) -> 5.08906583571135e+27) ((3524 . 5625) (* 1103515247 4.61168601842739e+18) -> 5.08906583571135e+27) ((3525 . 5625) (* 1103515247 4.61168601842739e+18) -> 5.08906583571135e+27) ((3526 . 5625) (* 1103515243 -4.61168601842739e+18) -> -5.0890658172646e+27) ((3527 . 5625) (* 1103515243 -4.61168601842739e+18) -> -5.0890658172646e+27) ((3528 . 5625) (* 1103515243 -4611686018427387904) -> -5.0890658172646e+27) ((3529 . 5625) (* 1103515243 -4611686018427387903) -> -5.0890658172646e+27) ((3530 . 5625) (* 1103515243 -4611686018427387902) -> -5.0890658172646e+27) ((3531 . 5625) (* 1103515244 -4.61168601842739e+18) -> -5.08906582187629e+27) ((3532 . 5625) (* 1103515244 -4.61168601842739e+18) -> -5.08906582187629e+27) ((3533 . 5625) (* 1103515244 -4611686018427387904) -> -5.08906582187629e+27) ((3534 . 5625) (* 1103515244 -4611686018427387903) -> -5.08906582187629e+27) ((3535 . 5625) (* 1103515244 -4611686018427387902) -> -5.08906582187629e+27) ((3536 . 5625) (* 1103515245 -4.61168601842739e+18) -> -5.08906582648797e+27) ((3537 . 5625) (* 1103515245 -4.61168601842739e+18) -> -5.08906582648797e+27) ((3538 . 5625) (* 1103515245 -4611686018427387904) -> -5.08906582648797e+27) ((3539 . 5625) (* 1103515245 -4611686018427387903) -> -5.08906582648797e+27) ((3540 . 5625) (* 1103515245 -4611686018427387902) -> -5.08906582648797e+27) ((3541 . 5625) (* 1103515246 -4.61168601842739e+18) -> -5.08906583109966e+27) ((3542 . 5625) (* 1103515246 -4.61168601842739e+18) -> -5.08906583109966e+27) ((3543 . 5625) (* 1103515246 -4611686018427387904) -> -5.08906583109966e+27) ((3544 . 5625) (* 1103515246 -4611686018427387903) -> -5.08906583109966e+27) ((3545 . 5625) (* 1103515246 -4611686018427387902) -> -5.08906583109966e+27) ((3546 . 5625) (* 1103515247 -4.61168601842739e+18) -> -5.08906583571135e+27) ((3547 . 5625) (* 1103515247 -4.61168601842739e+18) -> -5.08906583571135e+27) ((3548 . 5625) (* 1103515247 -4611686018427387904) -> -5.08906583571135e+27) ((3549 . 5625) (* 1103515247 -4611686018427387903) -> -5.08906583571135e+27) ((3550 . 5625) (* 1103515247 -4611686018427387902) -> -5.08906583571135e+27) ((3551 . 5625) (* 1103515243 4.61168601842739e+18) -> 5.0890658172646e+27) ((3552 . 5625) (* 1103515243 4.61168601842739e+18) -> 5.0890658172646e+27) ((3553 . 5625) (* 1103515243 4.61168601842739e+18) -> 5.0890658172646e+27) ((3554 . 5625) (* 1103515243 4.61168601842739e+18) -> 5.0890658172646e+27) ((3555 . 5625) (* 1103515243 4.61168601842739e+18) -> 5.0890658172646e+27) ((3556 . 5625) (* 1103515244 4.61168601842739e+18) -> 5.08906582187629e+27) ((3557 . 5625) (* 1103515244 4.61168601842739e+18) -> 5.08906582187629e+27) ((3558 . 5625) (* 1103515244 4.61168601842739e+18) -> 5.08906582187629e+27) ((3559 . 5625) (* 1103515244 4.61168601842739e+18) -> 5.08906582187629e+27) ((3560 . 5625) (* 1103515244 4.61168601842739e+18) -> 5.08906582187629e+27) ((3561 . 5625) (* 1103515245 4.61168601842739e+18) -> 5.08906582648797e+27) ((3562 . 5625) (* 1103515245 4.61168601842739e+18) -> 5.08906582648797e+27) ((3563 . 5625) (* 1103515245 4.61168601842739e+18) -> 5.08906582648797e+27) ((3564 . 5625) (* 1103515245 4.61168601842739e+18) -> 5.08906582648797e+27) ((3565 . 5625) (* 1103515245 4.61168601842739e+18) -> 5.08906582648797e+27) ((3566 . 5625) (* 1103515246 4.61168601842739e+18) -> 5.08906583109966e+27) ((3567 . 5625) (* 1103515246 4.61168601842739e+18) -> 5.08906583109966e+27) ((3568 . 5625) (* 1103515246 4.61168601842739e+18) -> 5.08906583109966e+27) ((3569 . 5625) (* 1103515246 4.61168601842739e+18) -> 5.08906583109966e+27) ((3570 . 5625) (* 1103515246 4.61168601842739e+18) -> 5.08906583109966e+27) ((3571 . 5625) (* 1103515247 4.61168601842739e+18) -> 5.08906583571135e+27) ((3572 . 5625) (* 1103515247 4.61168601842739e+18) -> 5.08906583571135e+27) ((3573 . 5625) (* 1103515247 4.61168601842739e+18) -> 5.08906583571135e+27) ((3574 . 5625) (* 1103515247 4.61168601842739e+18) -> 5.08906583571135e+27) ((3575 . 5625) (* 1103515247 4.61168601842739e+18) -> 5.08906583571135e+27) ((3576 . 5625) (* 1103515243 -4.61168601842739e+18) -> -5.0890658172646e+27) ((3577 . 5625) (* 1103515243 -4.61168601842739e+18) -> -5.0890658172646e+27) ((3578 . 5625) (* 1103515243 -4.61168601842739e+18) -> -5.0890658172646e+27) ((3579 . 5625) (* 1103515243 -4.61168601842739e+18) -> -5.0890658172646e+27) ((3580 . 5625) (* 1103515243 -4.61168601842739e+18) -> -5.0890658172646e+27) ((3581 . 5625) (* 1103515244 -4.61168601842739e+18) -> -5.08906582187629e+27) ((3582 . 5625) (* 1103515244 -4.61168601842739e+18) -> -5.08906582187629e+27) ((3583 . 5625) (* 1103515244 -4.61168601842739e+18) -> -5.08906582187629e+27) ((3584 . 5625) (* 1103515244 -4.61168601842739e+18) -> -5.08906582187629e+27) ((3585 . 5625) (* 1103515244 -4.61168601842739e+18) -> -5.08906582187629e+27) ((3586 . 5625) (* 1103515245 -4.61168601842739e+18) -> -5.08906582648797e+27) ((3587 . 5625) (* 1103515245 -4.61168601842739e+18) -> -5.08906582648797e+27) ((3588 . 5625) (* 1103515245 -4.61168601842739e+18) -> -5.08906582648797e+27) ((3589 . 5625) (* 1103515245 -4.61168601842739e+18) -> -5.08906582648797e+27) ((3590 . 5625) (* 1103515245 -4.61168601842739e+18) -> -5.08906582648797e+27) ((3591 . 5625) (* 1103515246 -4.61168601842739e+18) -> -5.08906583109966e+27) ((3592 . 5625) (* 1103515246 -4.61168601842739e+18) -> -5.08906583109966e+27) ((3593 . 5625) (* 1103515246 -4.61168601842739e+18) -> -5.08906583109966e+27) ((3594 . 5625) (* 1103515246 -4.61168601842739e+18) -> -5.08906583109966e+27) ((3595 . 5625) (* 1103515246 -4.61168601842739e+18) -> -5.08906583109966e+27) ((3596 . 5625) (* 1103515247 -4.61168601842739e+18) -> -5.08906583571135e+27) ((3597 . 5625) (* 1103515247 -4.61168601842739e+18) -> -5.08906583571135e+27) ((3598 . 5625) (* 1103515247 -4.61168601842739e+18) -> -5.08906583571135e+27) ((3599 . 5625) (* 1103515247 -4.61168601842739e+18) -> -5.08906583571135e+27) ((3600 . 5625) (* 1103515247 -4.61168601842739e+18) -> -5.08906583571135e+27) ((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) -> 9.93958167434492e+24) ((3652 . 5625) (* 1103515243 9007199254740991) -> 9.93958167434492e+24) ((3653 . 5625) (* 1103515243 9007199254740992) -> 9.93958167434492e+24) ((3654 . 5625) (* 1103515243 9007199254740993) -> 9.93958167434492e+24) ((3655 . 5625) (* 1103515243 9007199254740994) -> 9.93958167434493e+24) ((3656 . 5625) (* 1103515244 9007199254740990) -> 9.93958168335212e+24) ((3657 . 5625) (* 1103515244 9007199254740991) -> 9.93958168335212e+24) ((3658 . 5625) (* 1103515244 9007199254740992) -> 9.93958168335212e+24) ((3659 . 5625) (* 1103515244 9007199254740993) -> 9.93958168335212e+24) ((3660 . 5625) (* 1103515244 9007199254740994) -> 9.93958168335213e+24) ((3661 . 5625) (* 1103515245 9007199254740990) -> 9.93958169235932e+24) ((3662 . 5625) (* 1103515245 9007199254740991) -> 9.93958169235932e+24) ((3663 . 5625) (* 1103515245 9007199254740992) -> 9.93958169235932e+24) ((3664 . 5625) (* 1103515245 9007199254740993) -> 9.93958169235932e+24) ((3665 . 5625) (* 1103515245 9007199254740994) -> 9.93958169235933e+24) ((3666 . 5625) (* 1103515246 9007199254740990) -> 9.93958170136652e+24) ((3667 . 5625) (* 1103515246 9007199254740991) -> 9.93958170136652e+24) ((3668 . 5625) (* 1103515246 9007199254740992) -> 9.93958170136652e+24) ((3669 . 5625) (* 1103515246 9007199254740993) -> 9.93958170136652e+24) ((3670 . 5625) (* 1103515246 9007199254740994) -> 9.93958170136652e+24) ((3671 . 5625) (* 1103515247 9007199254740990) -> 9.93958171037372e+24) ((3672 . 5625) (* 1103515247 9007199254740991) -> 9.93958171037372e+24) ((3673 . 5625) (* 1103515247 9007199254740992) -> 9.93958171037372e+24) ((3674 . 5625) (* 1103515247 9007199254740993) -> 9.93958171037372e+24) ((3675 . 5625) (* 1103515247 9007199254740994) -> 9.93958171037372e+24) ((3676 . 5625) (* 1103515243 -9007199254740994) -> -9.93958167434493e+24) ((3677 . 5625) (* 1103515243 -9007199254740993) -> -9.93958167434492e+24) ((3678 . 5625) (* 1103515243 -9007199254740992) -> -9.93958167434492e+24) ((3679 . 5625) (* 1103515243 -9007199254740991) -> -9.93958167434492e+24) ((3680 . 5625) (* 1103515243 -9007199254740990) -> -9.93958167434492e+24) ((3681 . 5625) (* 1103515244 -9007199254740994) -> -9.93958168335213e+24) ((3682 . 5625) (* 1103515244 -9007199254740993) -> -9.93958168335212e+24) ((3683 . 5625) (* 1103515244 -9007199254740992) -> -9.93958168335212e+24) ((3684 . 5625) (* 1103515244 -9007199254740991) -> -9.93958168335212e+24) ((3685 . 5625) (* 1103515244 -9007199254740990) -> -9.93958168335212e+24) ((3686 . 5625) (* 1103515245 -9007199254740994) -> -9.93958169235933e+24) ((3687 . 5625) (* 1103515245 -9007199254740993) -> -9.93958169235932e+24) ((3688 . 5625) (* 1103515245 -9007199254740992) -> -9.93958169235932e+24) ((3689 . 5625) (* 1103515245 -9007199254740991) -> -9.93958169235932e+24) ((3690 . 5625) (* 1103515245 -9007199254740990) -> -9.93958169235932e+24) ((3691 . 5625) (* 1103515246 -9007199254740994) -> -9.93958170136652e+24) ((3692 . 5625) (* 1103515246 -9007199254740993) -> -9.93958170136652e+24) ((3693 . 5625) (* 1103515246 -9007199254740992) -> -9.93958170136652e+24) ((3694 . 5625) (* 1103515246 -9007199254740991) -> -9.93958170136652e+24) ((3695 . 5625) (* 1103515246 -9007199254740990) -> -9.93958170136652e+24) ((3696 . 5625) (* 1103515247 -9007199254740994) -> -9.93958171037372e+24) ((3697 . 5625) (* 1103515247 -9007199254740993) -> -9.93958171037372e+24) ((3698 . 5625) (* 1103515247 -9007199254740992) -> -9.93958171037372e+24) ((3699 . 5625) (* 1103515247 -9007199254740991) -> -9.93958171037372e+24) ((3700 . 5625) (* 1103515247 -9007199254740990) -> -9.93958171037372e+24) ((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) -> 4.73956187711546e+18) ((3727 . 5625) (* 1103515243 4294967295) -> 4.73956187821898e+18) ((3728 . 5625) (* 1103515243 4294967296) -> 4.73956187932249e+18) ((3729 . 5625) (* 1103515243 4294967297) -> 4.73956188042601e+18) ((3730 . 5625) (* 1103515243 4294967298) -> 4.73956188152952e+18) ((3731 . 5625) (* 1103515244 4294967294) -> 4.73956188141043e+18) ((3732 . 5625) (* 1103515244 4294967295) -> 4.73956188251394e+18) ((3733 . 5625) (* 1103515244 4294967296) -> 4.73956188361746e+18) ((3734 . 5625) (* 1103515244 4294967297) -> 4.73956188472098e+18) ((3735 . 5625) (* 1103515244 4294967298) -> 4.73956188582449e+18) ((3736 . 5625) (* 1103515245 4294967294) -> 4.7395618857054e+18) ((3737 . 5625) (* 1103515245 4294967295) -> 4.73956188680891e+18) ((3738 . 5625) (* 1103515245 4294967296) -> 4.73956188791243e+18) ((3739 . 5625) (* 1103515245 4294967297) -> 4.73956188901594e+18) ((3740 . 5625) (* 1103515245 4294967298) -> 4.73956189011946e+18) ((3741 . 5625) (* 1103515246 4294967294) -> 4.73956189000036e+18) ((3742 . 5625) (* 1103515246 4294967295) -> 4.73956189110388e+18) ((3743 . 5625) (* 1103515246 4294967296) -> 4.73956189220739e+18) ((3744 . 5625) (* 1103515246 4294967297) -> 4.73956189331091e+18) ((3745 . 5625) (* 1103515246 4294967298) -> 4.73956189441443e+18) ((3746 . 5625) (* 1103515247 4294967294) -> 4.73956189429533e+18) ((3747 . 5625) (* 1103515247 4294967295) -> 4.73956189539885e+18) ((3748 . 5625) (* 1103515247 4294967296) -> 4.73956189650236e+18) ((3749 . 5625) (* 1103515247 4294967297) -> 4.73956189760588e+18) ((3750 . 5625) (* 1103515247 4294967298) -> 4.73956189870939e+18) ((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) -> 2.91287491866949e+27) ((3877 . 5625) (* 631629063 4611686018427387902) -> 2.91287491866949e+27) ((3878 . 5625) (* 631629063 4611686018427387903) -> 2.91287491866949e+27) ((3879 . 5625) (* 631629063 4.61168601842739e+18) -> 2.91287491866949e+27) ((3880 . 5625) (* 631629063 4.61168601842739e+18) -> 2.91287491866949e+27) ((3881 . 5625) (* 631629064 4611686018427387901) -> 2.91287492328118e+27) ((3882 . 5625) (* 631629064 4611686018427387902) -> 2.91287492328118e+27) ((3883 . 5625) (* 631629064 4611686018427387903) -> 2.91287492328118e+27) ((3884 . 5625) (* 631629064 4.61168601842739e+18) -> 2.91287492328118e+27) ((3885 . 5625) (* 631629064 4.61168601842739e+18) -> 2.91287492328118e+27) ((3886 . 5625) (* 631629065 4611686018427387901) -> 2.91287492789286e+27) ((3887 . 5625) (* 631629065 4611686018427387902) -> 2.91287492789286e+27) ((3888 . 5625) (* 631629065 4611686018427387903) -> 2.91287492789286e+27) ((3889 . 5625) (* 631629065 4.61168601842739e+18) -> 2.91287492789286e+27) ((3890 . 5625) (* 631629065 4.61168601842739e+18) -> 2.91287492789286e+27) ((3891 . 5625) (* 631629066 4611686018427387901) -> 2.91287493250455e+27) ((3892 . 5625) (* 631629066 4611686018427387902) -> 2.91287493250455e+27) ((3893 . 5625) (* 631629066 4611686018427387903) -> 2.91287493250455e+27) ((3894 . 5625) (* 631629066 4.61168601842739e+18) -> 2.91287493250455e+27) ((3895 . 5625) (* 631629066 4.61168601842739e+18) -> 2.91287493250455e+27) ((3896 . 5625) (* 631629067 4611686018427387901) -> 2.91287493711624e+27) ((3897 . 5625) (* 631629067 4611686018427387902) -> 2.91287493711624e+27) ((3898 . 5625) (* 631629067 4611686018427387903) -> 2.91287493711624e+27) ((3899 . 5625) (* 631629067 4.61168601842739e+18) -> 2.91287493711624e+27) ((3900 . 5625) (* 631629067 4.61168601842739e+18) -> 2.91287493711624e+27) ((3901 . 5625) (* 631629063 -4.61168601842739e+18) -> -2.91287491866949e+27) ((3902 . 5625) (* 631629063 -4.61168601842739e+18) -> -2.91287491866949e+27) ((3903 . 5625) (* 631629063 -4611686018427387904) -> -2.91287491866949e+27) ((3904 . 5625) (* 631629063 -4611686018427387903) -> -2.91287491866949e+27) ((3905 . 5625) (* 631629063 -4611686018427387902) -> -2.91287491866949e+27) ((3906 . 5625) (* 631629064 -4.61168601842739e+18) -> -2.91287492328118e+27) ((3907 . 5625) (* 631629064 -4.61168601842739e+18) -> -2.91287492328118e+27) ((3908 . 5625) (* 631629064 -4611686018427387904) -> -2.91287492328118e+27) ((3909 . 5625) (* 631629064 -4611686018427387903) -> -2.91287492328118e+27) ((3910 . 5625) (* 631629064 -4611686018427387902) -> -2.91287492328118e+27) ((3911 . 5625) (* 631629065 -4.61168601842739e+18) -> -2.91287492789286e+27) ((3912 . 5625) (* 631629065 -4.61168601842739e+18) -> -2.91287492789286e+27) ((3913 . 5625) (* 631629065 -4611686018427387904) -> -2.91287492789286e+27) ((3914 . 5625) (* 631629065 -4611686018427387903) -> -2.91287492789286e+27) ((3915 . 5625) (* 631629065 -4611686018427387902) -> -2.91287492789286e+27) ((3916 . 5625) (* 631629066 -4.61168601842739e+18) -> -2.91287493250455e+27) ((3917 . 5625) (* 631629066 -4.61168601842739e+18) -> -2.91287493250455e+27) ((3918 . 5625) (* 631629066 -4611686018427387904) -> -2.91287493250455e+27) ((3919 . 5625) (* 631629066 -4611686018427387903) -> -2.91287493250455e+27) ((3920 . 5625) (* 631629066 -4611686018427387902) -> -2.91287493250455e+27) ((3921 . 5625) (* 631629067 -4.61168601842739e+18) -> -2.91287493711624e+27) ((3922 . 5625) (* 631629067 -4.61168601842739e+18) -> -2.91287493711624e+27) ((3923 . 5625) (* 631629067 -4611686018427387904) -> -2.91287493711624e+27) ((3924 . 5625) (* 631629067 -4611686018427387903) -> -2.91287493711624e+27) ((3925 . 5625) (* 631629067 -4611686018427387902) -> -2.91287493711624e+27) ((3926 . 5625) (* 631629063 4.61168601842739e+18) -> 2.91287491866949e+27) ((3927 . 5625) (* 631629063 4.61168601842739e+18) -> 2.91287491866949e+27) ((3928 . 5625) (* 631629063 4.61168601842739e+18) -> 2.91287491866949e+27) ((3929 . 5625) (* 631629063 4.61168601842739e+18) -> 2.91287491866949e+27) ((3930 . 5625) (* 631629063 4.61168601842739e+18) -> 2.91287491866949e+27) ((3931 . 5625) (* 631629064 4.61168601842739e+18) -> 2.91287492328118e+27) ((3932 . 5625) (* 631629064 4.61168601842739e+18) -> 2.91287492328118e+27) ((3933 . 5625) (* 631629064 4.61168601842739e+18) -> 2.91287492328118e+27) ((3934 . 5625) (* 631629064 4.61168601842739e+18) -> 2.91287492328118e+27) ((3935 . 5625) (* 631629064 4.61168601842739e+18) -> 2.91287492328118e+27) ((3936 . 5625) (* 631629065 4.61168601842739e+18) -> 2.91287492789286e+27) ((3937 . 5625) (* 631629065 4.61168601842739e+18) -> 2.91287492789286e+27) ((3938 . 5625) (* 631629065 4.61168601842739e+18) -> 2.91287492789286e+27) ((3939 . 5625) (* 631629065 4.61168601842739e+18) -> 2.91287492789286e+27) ((3940 . 5625) (* 631629065 4.61168601842739e+18) -> 2.91287492789286e+27) ((3941 . 5625) (* 631629066 4.61168601842739e+18) -> 2.91287493250455e+27) ((3942 . 5625) (* 631629066 4.61168601842739e+18) -> 2.91287493250455e+27) ((3943 . 5625) (* 631629066 4.61168601842739e+18) -> 2.91287493250455e+27) ((3944 . 5625) (* 631629066 4.61168601842739e+18) -> 2.91287493250455e+27) ((3945 . 5625) (* 631629066 4.61168601842739e+18) -> 2.91287493250455e+27) ((3946 . 5625) (* 631629067 4.61168601842739e+18) -> 2.91287493711624e+27) ((3947 . 5625) (* 631629067 4.61168601842739e+18) -> 2.91287493711624e+27) ((3948 . 5625) (* 631629067 4.61168601842739e+18) -> 2.91287493711624e+27) ((3949 . 5625) (* 631629067 4.61168601842739e+18) -> 2.91287493711624e+27) ((3950 . 5625) (* 631629067 4.61168601842739e+18) -> 2.91287493711624e+27) ((3951 . 5625) (* 631629063 -4.61168601842739e+18) -> -2.91287491866949e+27) ((3952 . 5625) (* 631629063 -4.61168601842739e+18) -> -2.91287491866949e+27) ((3953 . 5625) (* 631629063 -4.61168601842739e+18) -> -2.91287491866949e+27) ((3954 . 5625) (* 631629063 -4.61168601842739e+18) -> -2.91287491866949e+27) ((3955 . 5625) (* 631629063 -4.61168601842739e+18) -> -2.91287491866949e+27) ((3956 . 5625) (* 631629064 -4.61168601842739e+18) -> -2.91287492328118e+27) ((3957 . 5625) (* 631629064 -4.61168601842739e+18) -> -2.91287492328118e+27) ((3958 . 5625) (* 631629064 -4.61168601842739e+18) -> -2.91287492328118e+27) ((3959 . 5625) (* 631629064 -4.61168601842739e+18) -> -2.91287492328118e+27) ((3960 . 5625) (* 631629064 -4.61168601842739e+18) -> -2.91287492328118e+27) ((3961 . 5625) (* 631629065 -4.61168601842739e+18) -> -2.91287492789286e+27) ((3962 . 5625) (* 631629065 -4.61168601842739e+18) -> -2.91287492789286e+27) ((3963 . 5625) (* 631629065 -4.61168601842739e+18) -> -2.91287492789286e+27) ((3964 . 5625) (* 631629065 -4.61168601842739e+18) -> -2.91287492789286e+27) ((3965 . 5625) (* 631629065 -4.61168601842739e+18) -> -2.91287492789286e+27) ((3966 . 5625) (* 631629066 -4.61168601842739e+18) -> -2.91287493250455e+27) ((3967 . 5625) (* 631629066 -4.61168601842739e+18) -> -2.91287493250455e+27) ((3968 . 5625) (* 631629066 -4.61168601842739e+18) -> -2.91287493250455e+27) ((3969 . 5625) (* 631629066 -4.61168601842739e+18) -> -2.91287493250455e+27) ((3970 . 5625) (* 631629066 -4.61168601842739e+18) -> -2.91287493250455e+27) ((3971 . 5625) (* 631629067 -4.61168601842739e+18) -> -2.91287493711624e+27) ((3972 . 5625) (* 631629067 -4.61168601842739e+18) -> -2.91287493711624e+27) ((3973 . 5625) (* 631629067 -4.61168601842739e+18) -> -2.91287493711624e+27) ((3974 . 5625) (* 631629067 -4.61168601842739e+18) -> -2.91287493711624e+27) ((3975 . 5625) (* 631629067 -4.61168601842739e+18) -> -2.91287493711624e+27) ((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) -> 5.68920882552635e+24) ((4027 . 5625) (* 631629063 9007199254740991) -> 5.68920882552635e+24) ((4028 . 5625) (* 631629063 9007199254740992) -> 5.68920882552635e+24) ((4029 . 5625) (* 631629063 9007199254740993) -> 5.68920882552635e+24) ((4030 . 5625) (* 631629063 9007199254740994) -> 5.68920882552635e+24) ((4031 . 5625) (* 631629064 9007199254740990) -> 5.68920883453355e+24) ((4032 . 5625) (* 631629064 9007199254740991) -> 5.68920883453355e+24) ((4033 . 5625) (* 631629064 9007199254740992) -> 5.68920883453355e+24) ((4034 . 5625) (* 631629064 9007199254740993) -> 5.68920883453355e+24) ((4035 . 5625) (* 631629064 9007199254740994) -> 5.68920883453355e+24) ((4036 . 5625) (* 631629065 9007199254740990) -> 5.68920884354075e+24) ((4037 . 5625) (* 631629065 9007199254740991) -> 5.68920884354075e+24) ((4038 . 5625) (* 631629065 9007199254740992) -> 5.68920884354075e+24) ((4039 . 5625) (* 631629065 9007199254740993) -> 5.68920884354075e+24) ((4040 . 5625) (* 631629065 9007199254740994) -> 5.68920884354075e+24) ((4041 . 5625) (* 631629066 9007199254740990) -> 5.68920885254795e+24) ((4042 . 5625) (* 631629066 9007199254740991) -> 5.68920885254795e+24) ((4043 . 5625) (* 631629066 9007199254740992) -> 5.68920885254795e+24) ((4044 . 5625) (* 631629066 9007199254740993) -> 5.68920885254795e+24) ((4045 . 5625) (* 631629066 9007199254740994) -> 5.68920885254795e+24) ((4046 . 5625) (* 631629067 9007199254740990) -> 5.68920886155515e+24) ((4047 . 5625) (* 631629067 9007199254740991) -> 5.68920886155515e+24) ((4048 . 5625) (* 631629067 9007199254740992) -> 5.68920886155515e+24) ((4049 . 5625) (* 631629067 9007199254740993) -> 5.68920886155515e+24) ((4050 . 5625) (* 631629067 9007199254740994) -> 5.68920886155515e+24) ((4051 . 5625) (* 631629063 -9007199254740994) -> -5.68920882552635e+24) ((4052 . 5625) (* 631629063 -9007199254740993) -> -5.68920882552635e+24) ((4053 . 5625) (* 631629063 -9007199254740992) -> -5.68920882552635e+24) ((4054 . 5625) (* 631629063 -9007199254740991) -> -5.68920882552635e+24) ((4055 . 5625) (* 631629063 -9007199254740990) -> -5.68920882552635e+24) ((4056 . 5625) (* 631629064 -9007199254740994) -> -5.68920883453355e+24) ((4057 . 5625) (* 631629064 -9007199254740993) -> -5.68920883453355e+24) ((4058 . 5625) (* 631629064 -9007199254740992) -> -5.68920883453355e+24) ((4059 . 5625) (* 631629064 -9007199254740991) -> -5.68920883453355e+24) ((4060 . 5625) (* 631629064 -9007199254740990) -> -5.68920883453355e+24) ((4061 . 5625) (* 631629065 -9007199254740994) -> -5.68920884354075e+24) ((4062 . 5625) (* 631629065 -9007199254740993) -> -5.68920884354075e+24) ((4063 . 5625) (* 631629065 -9007199254740992) -> -5.68920884354075e+24) ((4064 . 5625) (* 631629065 -9007199254740991) -> -5.68920884354075e+24) ((4065 . 5625) (* 631629065 -9007199254740990) -> -5.68920884354075e+24) ((4066 . 5625) (* 631629066 -9007199254740994) -> -5.68920885254795e+24) ((4067 . 5625) (* 631629066 -9007199254740993) -> -5.68920885254795e+24) ((4068 . 5625) (* 631629066 -9007199254740992) -> -5.68920885254795e+24) ((4069 . 5625) (* 631629066 -9007199254740991) -> -5.68920885254795e+24) ((4070 . 5625) (* 631629066 -9007199254740990) -> -5.68920885254795e+24) ((4071 . 5625) (* 631629067 -9007199254740994) -> -5.68920886155515e+24) ((4072 . 5625) (* 631629067 -9007199254740993) -> -5.68920886155515e+24) ((4073 . 5625) (* 631629067 -9007199254740992) -> -5.68920886155515e+24) ((4074 . 5625) (* 631629067 -9007199254740991) -> -5.68920886155515e+24) ((4075 . 5625) (* 631629067 -9007199254740990) -> -5.68920886155515e+24) ((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) -> 4.15383748682786e+34) ((4252 . 5625) (* 9007199254740990 4611686018427387902) -> 4.15383748682786e+34) ((4253 . 5625) (* 9007199254740990 4611686018427387903) -> 4.15383748682786e+34) ((4254 . 5625) (* 9007199254740990 4.61168601842739e+18) -> 4.15383748682786e+34) ((4255 . 5625) (* 9007199254740990 4.61168601842739e+18) -> 4.15383748682786e+34) ((4256 . 5625) (* 9007199254740991 4611686018427387901) -> 4.15383748682786e+34) ((4257 . 5625) (* 9007199254740991 4611686018427387902) -> 4.15383748682786e+34) ((4258 . 5625) (* 9007199254740991 4611686018427387903) -> 4.15383748682786e+34) ((4259 . 5625) (* 9007199254740991 4.61168601842739e+18) -> 4.15383748682786e+34) ((4260 . 5625) (* 9007199254740991 4.61168601842739e+18) -> 4.15383748682786e+34) ((4261 . 5625) (* 9007199254740992 4611686018427387901) -> 4.15383748682786e+34) ((4262 . 5625) (* 9007199254740992 4611686018427387902) -> 4.15383748682786e+34) ((4263 . 5625) (* 9007199254740992 4611686018427387903) -> 4.15383748682786e+34) ((4264 . 5625) (* 9007199254740992 4.61168601842739e+18) -> 4.15383748682786e+34) ((4265 . 5625) (* 9007199254740992 4.61168601842739e+18) -> 4.15383748682786e+34) ((4266 . 5625) (* 9007199254740993 4611686018427387901) -> 4.15383748682786e+34) ((4267 . 5625) (* 9007199254740993 4611686018427387902) -> 4.15383748682786e+34) ((4268 . 5625) (* 9007199254740993 4611686018427387903) -> 4.15383748682786e+34) ((4269 . 5625) (* 9007199254740993 4.61168601842739e+18) -> 4.15383748682786e+34) ((4270 . 5625) (* 9007199254740993 4.61168601842739e+18) -> 4.15383748682786e+34) ((4271 . 5625) (* 9007199254740994 4611686018427387901) -> 4.15383748682786e+34) ((4272 . 5625) (* 9007199254740994 4611686018427387902) -> 4.15383748682786e+34) ((4273 . 5625) (* 9007199254740994 4611686018427387903) -> 4.15383748682786e+34) ((4274 . 5625) (* 9007199254740994 4.61168601842739e+18) -> 4.15383748682786e+34) ((4275 . 5625) (* 9007199254740994 4.61168601842739e+18) -> 4.15383748682786e+34) ((4276 . 5625) (* 9007199254740990 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4277 . 5625) (* 9007199254740990 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4278 . 5625) (* 9007199254740990 -4611686018427387904) -> -4.15383748682786e+34) ((4279 . 5625) (* 9007199254740990 -4611686018427387903) -> -4.15383748682786e+34) ((4280 . 5625) (* 9007199254740990 -4611686018427387902) -> -4.15383748682786e+34) ((4281 . 5625) (* 9007199254740991 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4282 . 5625) (* 9007199254740991 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4283 . 5625) (* 9007199254740991 -4611686018427387904) -> -4.15383748682786e+34) ((4284 . 5625) (* 9007199254740991 -4611686018427387903) -> -4.15383748682786e+34) ((4285 . 5625) (* 9007199254740991 -4611686018427387902) -> -4.15383748682786e+34) ((4286 . 5625) (* 9007199254740992 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4287 . 5625) (* 9007199254740992 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4288 . 5625) (* 9007199254740992 -4611686018427387904) -> -4.15383748682786e+34) ((4289 . 5625) (* 9007199254740992 -4611686018427387903) -> -4.15383748682786e+34) ((4290 . 5625) (* 9007199254740992 -4611686018427387902) -> -4.15383748682786e+34) ((4291 . 5625) (* 9007199254740993 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4292 . 5625) (* 9007199254740993 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4293 . 5625) (* 9007199254740993 -4611686018427387904) -> -4.15383748682786e+34) ((4294 . 5625) (* 9007199254740993 -4611686018427387903) -> -4.15383748682786e+34) ((4295 . 5625) (* 9007199254740993 -4611686018427387902) -> -4.15383748682786e+34) ((4296 . 5625) (* 9007199254740994 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4297 . 5625) (* 9007199254740994 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4298 . 5625) (* 9007199254740994 -4611686018427387904) -> -4.15383748682786e+34) ((4299 . 5625) (* 9007199254740994 -4611686018427387903) -> -4.15383748682786e+34) ((4300 . 5625) (* 9007199254740994 -4611686018427387902) -> -4.15383748682786e+34) ((4301 . 5625) (* 9007199254740990 4.61168601842739e+18) -> 4.15383748682786e+34) ((4302 . 5625) (* 9007199254740990 4.61168601842739e+18) -> 4.15383748682786e+34) ((4303 . 5625) (* 9007199254740990 4.61168601842739e+18) -> 4.15383748682786e+34) ((4304 . 5625) (* 9007199254740990 4.61168601842739e+18) -> 4.15383748682786e+34) ((4305 . 5625) (* 9007199254740990 4.61168601842739e+18) -> 4.15383748682786e+34) ((4306 . 5625) (* 9007199254740991 4.61168601842739e+18) -> 4.15383748682786e+34) ((4307 . 5625) (* 9007199254740991 4.61168601842739e+18) -> 4.15383748682786e+34) ((4308 . 5625) (* 9007199254740991 4.61168601842739e+18) -> 4.15383748682786e+34) ((4309 . 5625) (* 9007199254740991 4.61168601842739e+18) -> 4.15383748682786e+34) ((4310 . 5625) (* 9007199254740991 4.61168601842739e+18) -> 4.15383748682786e+34) ((4311 . 5625) (* 9007199254740992 4.61168601842739e+18) -> 4.15383748682786e+34) ((4312 . 5625) (* 9007199254740992 4.61168601842739e+18) -> 4.15383748682786e+34) ((4313 . 5625) (* 9007199254740992 4.61168601842739e+18) -> 4.15383748682786e+34) ((4314 . 5625) (* 9007199254740992 4.61168601842739e+18) -> 4.15383748682786e+34) ((4315 . 5625) (* 9007199254740992 4.61168601842739e+18) -> 4.15383748682786e+34) ((4316 . 5625) (* 9007199254740993 4.61168601842739e+18) -> 4.15383748682786e+34) ((4317 . 5625) (* 9007199254740993 4.61168601842739e+18) -> 4.15383748682786e+34) ((4318 . 5625) (* 9007199254740993 4.61168601842739e+18) -> 4.15383748682786e+34) ((4319 . 5625) (* 9007199254740993 4.61168601842739e+18) -> 4.15383748682786e+34) ((4320 . 5625) (* 9007199254740993 4.61168601842739e+18) -> 4.15383748682786e+34) ((4321 . 5625) (* 9007199254740994 4.61168601842739e+18) -> 4.15383748682786e+34) ((4322 . 5625) (* 9007199254740994 4.61168601842739e+18) -> 4.15383748682786e+34) ((4323 . 5625) (* 9007199254740994 4.61168601842739e+18) -> 4.15383748682786e+34) ((4324 . 5625) (* 9007199254740994 4.61168601842739e+18) -> 4.15383748682786e+34) ((4325 . 5625) (* 9007199254740994 4.61168601842739e+18) -> 4.15383748682786e+34) ((4326 . 5625) (* 9007199254740990 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4327 . 5625) (* 9007199254740990 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4328 . 5625) (* 9007199254740990 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4329 . 5625) (* 9007199254740990 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4330 . 5625) (* 9007199254740990 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4331 . 5625) (* 9007199254740991 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4332 . 5625) (* 9007199254740991 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4333 . 5625) (* 9007199254740991 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4334 . 5625) (* 9007199254740991 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4335 . 5625) (* 9007199254740991 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4336 . 5625) (* 9007199254740992 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4337 . 5625) (* 9007199254740992 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4338 . 5625) (* 9007199254740992 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4339 . 5625) (* 9007199254740992 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4340 . 5625) (* 9007199254740992 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4341 . 5625) (* 9007199254740993 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4342 . 5625) (* 9007199254740993 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4343 . 5625) (* 9007199254740993 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4344 . 5625) (* 9007199254740993 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4345 . 5625) (* 9007199254740993 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4346 . 5625) (* 9007199254740994 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4347 . 5625) (* 9007199254740994 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4348 . 5625) (* 9007199254740994 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4349 . 5625) (* 9007199254740994 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4350 . 5625) (* 9007199254740994 -4.61168601842739e+18) -> -4.15383748682786e+34) ((4351 . 5625) (* 9007199254740990 1103515243) -> 9.93958167434492e+24) ((4352 . 5625) (* 9007199254740990 1103515244) -> 9.93958168335212e+24) ((4353 . 5625) (* 9007199254740990 1103515245) -> 9.93958169235932e+24) ((4354 . 5625) (* 9007199254740990 1103515246) -> 9.93958170136652e+24) ((4355 . 5625) (* 9007199254740990 1103515247) -> 9.93958171037372e+24) ((4356 . 5625) (* 9007199254740991 1103515243) -> 9.93958167434492e+24) ((4357 . 5625) (* 9007199254740991 1103515244) -> 9.93958168335212e+24) ((4358 . 5625) (* 9007199254740991 1103515245) -> 9.93958169235932e+24) ((4359 . 5625) (* 9007199254740991 1103515246) -> 9.93958170136652e+24) ((4360 . 5625) (* 9007199254740991 1103515247) -> 9.93958171037372e+24) ((4361 . 5625) (* 9007199254740992 1103515243) -> 9.93958167434492e+24) ((4362 . 5625) (* 9007199254740992 1103515244) -> 9.93958168335212e+24) ((4363 . 5625) (* 9007199254740992 1103515245) -> 9.93958169235932e+24) ((4364 . 5625) (* 9007199254740992 1103515246) -> 9.93958170136652e+24) ((4365 . 5625) (* 9007199254740992 1103515247) -> 9.93958171037372e+24) ((4366 . 5625) (* 9007199254740993 1103515243) -> 9.93958167434492e+24) ((4367 . 5625) (* 9007199254740993 1103515244) -> 9.93958168335212e+24) ((4368 . 5625) (* 9007199254740993 1103515245) -> 9.93958169235932e+24) ((4369 . 5625) (* 9007199254740993 1103515246) -> 9.93958170136652e+24) ((4370 . 5625) (* 9007199254740993 1103515247) -> 9.93958171037372e+24) ((4371 . 5625) (* 9007199254740994 1103515243) -> 9.93958167434493e+24) ((4372 . 5625) (* 9007199254740994 1103515244) -> 9.93958168335213e+24) ((4373 . 5625) (* 9007199254740994 1103515245) -> 9.93958169235933e+24) ((4374 . 5625) (* 9007199254740994 1103515246) -> 9.93958170136652e+24) ((4375 . 5625) (* 9007199254740994 1103515247) -> 9.93958171037372e+24) ((4376 . 5625) (* 9007199254740990 631629063) -> 5.68920882552635e+24) ((4377 . 5625) (* 9007199254740990 631629064) -> 5.68920883453355e+24) ((4378 . 5625) (* 9007199254740990 631629065) -> 5.68920884354075e+24) ((4379 . 5625) (* 9007199254740990 631629066) -> 5.68920885254795e+24) ((4380 . 5625) (* 9007199254740990 631629067) -> 5.68920886155515e+24) ((4381 . 5625) (* 9007199254740991 631629063) -> 5.68920882552635e+24) ((4382 . 5625) (* 9007199254740991 631629064) -> 5.68920883453355e+24) ((4383 . 5625) (* 9007199254740991 631629065) -> 5.68920884354075e+24) ((4384 . 5625) (* 9007199254740991 631629066) -> 5.68920885254795e+24) ((4385 . 5625) (* 9007199254740991 631629067) -> 5.68920886155515e+24) ((4386 . 5625) (* 9007199254740992 631629063) -> 5.68920882552635e+24) ((4387 . 5625) (* 9007199254740992 631629064) -> 5.68920883453355e+24) ((4388 . 5625) (* 9007199254740992 631629065) -> 5.68920884354075e+24) ((4389 . 5625) (* 9007199254740992 631629066) -> 5.68920885254795e+24) ((4390 . 5625) (* 9007199254740992 631629067) -> 5.68920886155515e+24) ((4391 . 5625) (* 9007199254740993 631629063) -> 5.68920882552635e+24) ((4392 . 5625) (* 9007199254740993 631629064) -> 5.68920883453355e+24) ((4393 . 5625) (* 9007199254740993 631629065) -> 5.68920884354075e+24) ((4394 . 5625) (* 9007199254740993 631629066) -> 5.68920885254795e+24) ((4395 . 5625) (* 9007199254740993 631629067) -> 5.68920886155515e+24) ((4396 . 5625) (* 9007199254740994 631629063) -> 5.68920882552635e+24) ((4397 . 5625) (* 9007199254740994 631629064) -> 5.68920883453355e+24) ((4398 . 5625) (* 9007199254740994 631629065) -> 5.68920884354075e+24) ((4399 . 5625) (* 9007199254740994 631629066) -> 5.68920885254795e+24) ((4400 . 5625) (* 9007199254740994 631629067) -> 5.68920886155515e+24) ((4401 . 5625) (* 9007199254740990 9007199254740990) -> 8.11296384146066e+31) ((4402 . 5625) (* 9007199254740990 9007199254740991) -> 8.11296384146067e+31) ((4403 . 5625) (* 9007199254740990 9007199254740992) -> 8.11296384146067e+31) ((4404 . 5625) (* 9007199254740990 9007199254740993) -> 8.11296384146067e+31) ((4405 . 5625) (* 9007199254740990 9007199254740994) -> 8.11296384146067e+31) ((4406 . 5625) (* 9007199254740991 9007199254740990) -> 8.11296384146067e+31) ((4407 . 5625) (* 9007199254740991 9007199254740991) -> 8.11296384146067e+31) ((4408 . 5625) (* 9007199254740991 9007199254740992) -> 8.11296384146067e+31) ((4409 . 5625) (* 9007199254740991 9007199254740993) -> 8.11296384146067e+31) ((4410 . 5625) (* 9007199254740991 9007199254740994) -> 8.11296384146067e+31) ((4411 . 5625) (* 9007199254740992 9007199254740990) -> 8.11296384146067e+31) ((4412 . 5625) (* 9007199254740992 9007199254740991) -> 8.11296384146067e+31) ((4413 . 5625) (* 9007199254740992 9007199254740992) -> 8.11296384146067e+31) ((4414 . 5625) (* 9007199254740992 9007199254740993) -> 8.11296384146067e+31) ((4415 . 5625) (* 9007199254740992 9007199254740994) -> 8.11296384146067e+31) ((4416 . 5625) (* 9007199254740993 9007199254740990) -> 8.11296384146067e+31) ((4417 . 5625) (* 9007199254740993 9007199254740991) -> 8.11296384146067e+31) ((4418 . 5625) (* 9007199254740993 9007199254740992) -> 8.11296384146067e+31) ((4419 . 5625) (* 9007199254740993 9007199254740993) -> 8.11296384146067e+31) ((4420 . 5625) (* 9007199254740993 9007199254740994) -> 8.11296384146067e+31) ((4421 . 5625) (* 9007199254740994 9007199254740990) -> 8.11296384146067e+31) ((4422 . 5625) (* 9007199254740994 9007199254740991) -> 8.11296384146067e+31) ((4423 . 5625) (* 9007199254740994 9007199254740992) -> 8.11296384146067e+31) ((4424 . 5625) (* 9007199254740994 9007199254740993) -> 8.11296384146067e+31) ((4425 . 5625) (* 9007199254740994 9007199254740994) -> 8.11296384146067e+31) ((4426 . 5625) (* 9007199254740990 -9007199254740994) -> -8.11296384146067e+31) ((4427 . 5625) (* 9007199254740990 -9007199254740993) -> -8.11296384146067e+31) ((4428 . 5625) (* 9007199254740990 -9007199254740992) -> -8.11296384146067e+31) ((4429 . 5625) (* 9007199254740990 -9007199254740991) -> -8.11296384146067e+31) ((4430 . 5625) (* 9007199254740990 -9007199254740990) -> -8.11296384146066e+31) ((4431 . 5625) (* 9007199254740991 -9007199254740994) -> -8.11296384146067e+31) ((4432 . 5625) (* 9007199254740991 -9007199254740993) -> -8.11296384146067e+31) ((4433 . 5625) (* 9007199254740991 -9007199254740992) -> -8.11296384146067e+31) ((4434 . 5625) (* 9007199254740991 -9007199254740991) -> -8.11296384146067e+31) ((4435 . 5625) (* 9007199254740991 -9007199254740990) -> -8.11296384146067e+31) ((4436 . 5625) (* 9007199254740992 -9007199254740994) -> -8.11296384146067e+31) ((4437 . 5625) (* 9007199254740992 -9007199254740993) -> -8.11296384146067e+31) ((4438 . 5625) (* 9007199254740992 -9007199254740992) -> -8.11296384146067e+31) ((4439 . 5625) (* 9007199254740992 -9007199254740991) -> -8.11296384146067e+31) ((4440 . 5625) (* 9007199254740992 -9007199254740990) -> -8.11296384146067e+31) ((4441 . 5625) (* 9007199254740993 -9007199254740994) -> -8.11296384146067e+31) ((4442 . 5625) (* 9007199254740993 -9007199254740993) -> -8.11296384146067e+31) ((4443 . 5625) (* 9007199254740993 -9007199254740992) -> -8.11296384146067e+31) ((4444 . 5625) (* 9007199254740993 -9007199254740991) -> -8.11296384146067e+31) ((4445 . 5625) (* 9007199254740993 -9007199254740990) -> -8.11296384146067e+31) ((4446 . 5625) (* 9007199254740994 -9007199254740994) -> -8.11296384146067e+31) ((4447 . 5625) (* 9007199254740994 -9007199254740993) -> -8.11296384146067e+31) ((4448 . 5625) (* 9007199254740994 -9007199254740992) -> -8.11296384146067e+31) ((4449 . 5625) (* 9007199254740994 -9007199254740991) -> -8.11296384146067e+31) ((4450 . 5625) (* 9007199254740994 -9007199254740990) -> -8.11296384146067e+31) ((4451 . 5625) (* 9007199254740990 12343) -> 1.11175860401268e+20) ((4452 . 5625) (* 9007199254740990 12344) -> 1.11184867600523e+20) ((4453 . 5625) (* 9007199254740990 12345) -> 1.11193874799778e+20) ((4454 . 5625) (* 9007199254740990 12346) -> 1.11202881999032e+20) ((4455 . 5625) (* 9007199254740990 12347) -> 1.11211889198287e+20) ((4456 . 5625) (* 9007199254740991 12343) -> 1.11175860401268e+20) ((4457 . 5625) (* 9007199254740991 12344) -> 1.11184867600523e+20) ((4458 . 5625) (* 9007199254740991 12345) -> 1.11193874799778e+20) ((4459 . 5625) (* 9007199254740991 12346) -> 1.11202881999032e+20) ((4460 . 5625) (* 9007199254740991 12347) -> 1.11211889198287e+20) ((4461 . 5625) (* 9007199254740992 12343) -> 1.11175860401268e+20) ((4462 . 5625) (* 9007199254740992 12344) -> 1.11184867600523e+20) ((4463 . 5625) (* 9007199254740992 12345) -> 1.11193874799778e+20) ((4464 . 5625) (* 9007199254740992 12346) -> 1.11202881999032e+20) ((4465 . 5625) (* 9007199254740992 12347) -> 1.11211889198287e+20) ((4466 . 5625) (* 9007199254740993 12343) -> 1.11175860401268e+20) ((4467 . 5625) (* 9007199254740993 12344) -> 1.11184867600523e+20) ((4468 . 5625) (* 9007199254740993 12345) -> 1.11193874799778e+20) ((4469 . 5625) (* 9007199254740993 12346) -> 1.11202881999032e+20) ((4470 . 5625) (* 9007199254740993 12347) -> 1.11211889198287e+20) ((4471 . 5625) (* 9007199254740994 12343) -> 1.11175860401268e+20) ((4472 . 5625) (* 9007199254740994 12344) -> 1.11184867600523e+20) ((4473 . 5625) (* 9007199254740994 12345) -> 1.11193874799778e+20) ((4474 . 5625) (* 9007199254740994 12346) -> 1.11202881999032e+20) ((4475 . 5625) (* 9007199254740994 12347) -> 1.11211889198287e+20) ((4476 . 5625) (* 9007199254740990 4294967294) -> 3.86856262096537e+25) ((4477 . 5625) (* 9007199254740990 4294967295) -> 3.86856262186609e+25) ((4478 . 5625) (* 9007199254740990 4294967296) -> 3.86856262276681e+25) ((4479 . 5625) (* 9007199254740990 4294967297) -> 3.86856262366753e+25) ((4480 . 5625) (* 9007199254740990 4294967298) -> 3.86856262456825e+25) ((4481 . 5625) (* 9007199254740991 4294967294) -> 3.86856262096537e+25) ((4482 . 5625) (* 9007199254740991 4294967295) -> 3.86856262186609e+25) ((4483 . 5625) (* 9007199254740991 4294967296) -> 3.86856262276681e+25) ((4484 . 5625) (* 9007199254740991 4294967297) -> 3.86856262366753e+25) ((4485 . 5625) (* 9007199254740991 4294967298) -> 3.86856262456825e+25) ((4486 . 5625) (* 9007199254740992 4294967294) -> 3.86856262096537e+25) ((4487 . 5625) (* 9007199254740992 4294967295) -> 3.86856262186609e+25) ((4488 . 5625) (* 9007199254740992 4294967296) -> 3.86856262276681e+25) ((4489 . 5625) (* 9007199254740992 4294967297) -> 3.86856262366753e+25) ((4490 . 5625) (* 9007199254740992 4294967298) -> 3.86856262456825e+25) ((4491 . 5625) (* 9007199254740993 4294967294) -> 3.86856262096537e+25) ((4492 . 5625) (* 9007199254740993 4294967295) -> 3.86856262186609e+25) ((4493 . 5625) (* 9007199254740993 4294967296) -> 3.86856262276681e+25) ((4494 . 5625) (* 9007199254740993 4294967297) -> 3.86856262366753e+25) ((4495 . 5625) (* 9007199254740993 4294967298) -> 3.86856262456825e+25) ((4496 . 5625) (* 9007199254740994 4294967294) -> 3.86856262096537e+25) ((4497 . 5625) (* 9007199254740994 4294967295) -> 3.86856262186609e+25) ((4498 . 5625) (* 9007199254740994 4294967296) -> 3.86856262276681e+25) ((4499 . 5625) (* 9007199254740994 4294967297) -> 3.86856262366753e+25) ((4500 . 5625) (* 9007199254740994 4294967298) -> 3.86856262456825e+25) ((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) -> -4.15383748682786e+34) ((4627 . 5625) (* -9007199254740994 4611686018427387902) -> -4.15383748682786e+34) ((4628 . 5625) (* -9007199254740994 4611686018427387903) -> -4.15383748682786e+34) ((4629 . 5625) (* -9007199254740994 4.61168601842739e+18) -> -4.15383748682786e+34) ((4630 . 5625) (* -9007199254740994 4.61168601842739e+18) -> -4.15383748682786e+34) ((4631 . 5625) (* -9007199254740993 4611686018427387901) -> -4.15383748682786e+34) ((4632 . 5625) (* -9007199254740993 4611686018427387902) -> -4.15383748682786e+34) ((4633 . 5625) (* -9007199254740993 4611686018427387903) -> -4.15383748682786e+34) ((4634 . 5625) (* -9007199254740993 4.61168601842739e+18) -> -4.15383748682786e+34) ((4635 . 5625) (* -9007199254740993 4.61168601842739e+18) -> -4.15383748682786e+34) ((4636 . 5625) (* -9007199254740992 4611686018427387901) -> -4.15383748682786e+34) ((4637 . 5625) (* -9007199254740992 4611686018427387902) -> -4.15383748682786e+34) ((4638 . 5625) (* -9007199254740992 4611686018427387903) -> -4.15383748682786e+34) ((4639 . 5625) (* -9007199254740992 4.61168601842739e+18) -> -4.15383748682786e+34) ((4640 . 5625) (* -9007199254740992 4.61168601842739e+18) -> -4.15383748682786e+34) ((4641 . 5625) (* -9007199254740991 4611686018427387901) -> -4.15383748682786e+34) ((4642 . 5625) (* -9007199254740991 4611686018427387902) -> -4.15383748682786e+34) ((4643 . 5625) (* -9007199254740991 4611686018427387903) -> -4.15383748682786e+34) ((4644 . 5625) (* -9007199254740991 4.61168601842739e+18) -> -4.15383748682786e+34) ((4645 . 5625) (* -9007199254740991 4.61168601842739e+18) -> -4.15383748682786e+34) ((4646 . 5625) (* -9007199254740990 4611686018427387901) -> -4.15383748682786e+34) ((4647 . 5625) (* -9007199254740990 4611686018427387902) -> -4.15383748682786e+34) ((4648 . 5625) (* -9007199254740990 4611686018427387903) -> -4.15383748682786e+34) ((4649 . 5625) (* -9007199254740990 4.61168601842739e+18) -> -4.15383748682786e+34) ((4650 . 5625) (* -9007199254740990 4.61168601842739e+18) -> -4.15383748682786e+34) ((4651 . 5625) (* -9007199254740994 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4652 . 5625) (* -9007199254740994 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4653 . 5625) (* -9007199254740994 -4611686018427387904) -> 4.15383748682786e+34) ((4654 . 5625) (* -9007199254740994 -4611686018427387903) -> 4.15383748682786e+34) ((4655 . 5625) (* -9007199254740994 -4611686018427387902) -> 4.15383748682786e+34) ((4656 . 5625) (* -9007199254740993 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4657 . 5625) (* -9007199254740993 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4658 . 5625) (* -9007199254740993 -4611686018427387904) -> 4.15383748682786e+34) ((4659 . 5625) (* -9007199254740993 -4611686018427387903) -> 4.15383748682786e+34) ((4660 . 5625) (* -9007199254740993 -4611686018427387902) -> 4.15383748682786e+34) ((4661 . 5625) (* -9007199254740992 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4662 . 5625) (* -9007199254740992 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4663 . 5625) (* -9007199254740992 -4611686018427387904) -> 4.15383748682786e+34) ((4664 . 5625) (* -9007199254740992 -4611686018427387903) -> 4.15383748682786e+34) ((4665 . 5625) (* -9007199254740992 -4611686018427387902) -> 4.15383748682786e+34) ((4666 . 5625) (* -9007199254740991 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4667 . 5625) (* -9007199254740991 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4668 . 5625) (* -9007199254740991 -4611686018427387904) -> 4.15383748682786e+34) ((4669 . 5625) (* -9007199254740991 -4611686018427387903) -> 4.15383748682786e+34) ((4670 . 5625) (* -9007199254740991 -4611686018427387902) -> 4.15383748682786e+34) ((4671 . 5625) (* -9007199254740990 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4672 . 5625) (* -9007199254740990 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4673 . 5625) (* -9007199254740990 -4611686018427387904) -> 4.15383748682786e+34) ((4674 . 5625) (* -9007199254740990 -4611686018427387903) -> 4.15383748682786e+34) ((4675 . 5625) (* -9007199254740990 -4611686018427387902) -> 4.15383748682786e+34) ((4676 . 5625) (* -9007199254740994 4.61168601842739e+18) -> -4.15383748682786e+34) ((4677 . 5625) (* -9007199254740994 4.61168601842739e+18) -> -4.15383748682786e+34) ((4678 . 5625) (* -9007199254740994 4.61168601842739e+18) -> -4.15383748682786e+34) ((4679 . 5625) (* -9007199254740994 4.61168601842739e+18) -> -4.15383748682786e+34) ((4680 . 5625) (* -9007199254740994 4.61168601842739e+18) -> -4.15383748682786e+34) ((4681 . 5625) (* -9007199254740993 4.61168601842739e+18) -> -4.15383748682786e+34) ((4682 . 5625) (* -9007199254740993 4.61168601842739e+18) -> -4.15383748682786e+34) ((4683 . 5625) (* -9007199254740993 4.61168601842739e+18) -> -4.15383748682786e+34) ((4684 . 5625) (* -9007199254740993 4.61168601842739e+18) -> -4.15383748682786e+34) ((4685 . 5625) (* -9007199254740993 4.61168601842739e+18) -> -4.15383748682786e+34) ((4686 . 5625) (* -9007199254740992 4.61168601842739e+18) -> -4.15383748682786e+34) ((4687 . 5625) (* -9007199254740992 4.61168601842739e+18) -> -4.15383748682786e+34) ((4688 . 5625) (* -9007199254740992 4.61168601842739e+18) -> -4.15383748682786e+34) ((4689 . 5625) (* -9007199254740992 4.61168601842739e+18) -> -4.15383748682786e+34) ((4690 . 5625) (* -9007199254740992 4.61168601842739e+18) -> -4.15383748682786e+34) ((4691 . 5625) (* -9007199254740991 4.61168601842739e+18) -> -4.15383748682786e+34) ((4692 . 5625) (* -9007199254740991 4.61168601842739e+18) -> -4.15383748682786e+34) ((4693 . 5625) (* -9007199254740991 4.61168601842739e+18) -> -4.15383748682786e+34) ((4694 . 5625) (* -9007199254740991 4.61168601842739e+18) -> -4.15383748682786e+34) ((4695 . 5625) (* -9007199254740991 4.61168601842739e+18) -> -4.15383748682786e+34) ((4696 . 5625) (* -9007199254740990 4.61168601842739e+18) -> -4.15383748682786e+34) ((4697 . 5625) (* -9007199254740990 4.61168601842739e+18) -> -4.15383748682786e+34) ((4698 . 5625) (* -9007199254740990 4.61168601842739e+18) -> -4.15383748682786e+34) ((4699 . 5625) (* -9007199254740990 4.61168601842739e+18) -> -4.15383748682786e+34) ((4700 . 5625) (* -9007199254740990 4.61168601842739e+18) -> -4.15383748682786e+34) ((4701 . 5625) (* -9007199254740994 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4702 . 5625) (* -9007199254740994 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4703 . 5625) (* -9007199254740994 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4704 . 5625) (* -9007199254740994 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4705 . 5625) (* -9007199254740994 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4706 . 5625) (* -9007199254740993 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4707 . 5625) (* -9007199254740993 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4708 . 5625) (* -9007199254740993 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4709 . 5625) (* -9007199254740993 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4710 . 5625) (* -9007199254740993 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4711 . 5625) (* -9007199254740992 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4712 . 5625) (* -9007199254740992 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4713 . 5625) (* -9007199254740992 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4714 . 5625) (* -9007199254740992 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4715 . 5625) (* -9007199254740992 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4716 . 5625) (* -9007199254740991 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4717 . 5625) (* -9007199254740991 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4718 . 5625) (* -9007199254740991 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4719 . 5625) (* -9007199254740991 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4720 . 5625) (* -9007199254740991 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4721 . 5625) (* -9007199254740990 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4722 . 5625) (* -9007199254740990 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4723 . 5625) (* -9007199254740990 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4724 . 5625) (* -9007199254740990 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4725 . 5625) (* -9007199254740990 -4.61168601842739e+18) -> 4.15383748682786e+34) ((4726 . 5625) (* -9007199254740994 1103515243) -> -9.93958167434493e+24) ((4727 . 5625) (* -9007199254740994 1103515244) -> -9.93958168335213e+24) ((4728 . 5625) (* -9007199254740994 1103515245) -> -9.93958169235933e+24) ((4729 . 5625) (* -9007199254740994 1103515246) -> -9.93958170136652e+24) ((4730 . 5625) (* -9007199254740994 1103515247) -> -9.93958171037372e+24) ((4731 . 5625) (* -9007199254740993 1103515243) -> -9.93958167434492e+24) ((4732 . 5625) (* -9007199254740993 1103515244) -> -9.93958168335212e+24) ((4733 . 5625) (* -9007199254740993 1103515245) -> -9.93958169235932e+24) ((4734 . 5625) (* -9007199254740993 1103515246) -> -9.93958170136652e+24) ((4735 . 5625) (* -9007199254740993 1103515247) -> -9.93958171037372e+24) ((4736 . 5625) (* -9007199254740992 1103515243) -> -9.93958167434492e+24) ((4737 . 5625) (* -9007199254740992 1103515244) -> -9.93958168335212e+24) ((4738 . 5625) (* -9007199254740992 1103515245) -> -9.93958169235932e+24) ((4739 . 5625) (* -9007199254740992 1103515246) -> -9.93958170136652e+24) ((4740 . 5625) (* -9007199254740992 1103515247) -> -9.93958171037372e+24) ((4741 . 5625) (* -9007199254740991 1103515243) -> -9.93958167434492e+24) ((4742 . 5625) (* -9007199254740991 1103515244) -> -9.93958168335212e+24) ((4743 . 5625) (* -9007199254740991 1103515245) -> -9.93958169235932e+24) ((4744 . 5625) (* -9007199254740991 1103515246) -> -9.93958170136652e+24) ((4745 . 5625) (* -9007199254740991 1103515247) -> -9.93958171037372e+24) ((4746 . 5625) (* -9007199254740990 1103515243) -> -9.93958167434492e+24) ((4747 . 5625) (* -9007199254740990 1103515244) -> -9.93958168335212e+24) ((4748 . 5625) (* -9007199254740990 1103515245) -> -9.93958169235932e+24) ((4749 . 5625) (* -9007199254740990 1103515246) -> -9.93958170136652e+24) ((4750 . 5625) (* -9007199254740990 1103515247) -> -9.93958171037372e+24) ((4751 . 5625) (* -9007199254740994 631629063) -> -5.68920882552635e+24) ((4752 . 5625) (* -9007199254740994 631629064) -> -5.68920883453355e+24) ((4753 . 5625) (* -9007199254740994 631629065) -> -5.68920884354075e+24) ((4754 . 5625) (* -9007199254740994 631629066) -> -5.68920885254795e+24) ((4755 . 5625) (* -9007199254740994 631629067) -> -5.68920886155515e+24) ((4756 . 5625) (* -9007199254740993 631629063) -> -5.68920882552635e+24) ((4757 . 5625) (* -9007199254740993 631629064) -> -5.68920883453355e+24) ((4758 . 5625) (* -9007199254740993 631629065) -> -5.68920884354075e+24) ((4759 . 5625) (* -9007199254740993 631629066) -> -5.68920885254795e+24) ((4760 . 5625) (* -9007199254740993 631629067) -> -5.68920886155515e+24) ((4761 . 5625) (* -9007199254740992 631629063) -> -5.68920882552635e+24) ((4762 . 5625) (* -9007199254740992 631629064) -> -5.68920883453355e+24) ((4763 . 5625) (* -9007199254740992 631629065) -> -5.68920884354075e+24) ((4764 . 5625) (* -9007199254740992 631629066) -> -5.68920885254795e+24) ((4765 . 5625) (* -9007199254740992 631629067) -> -5.68920886155515e+24) ((4766 . 5625) (* -9007199254740991 631629063) -> -5.68920882552635e+24) ((4767 . 5625) (* -9007199254740991 631629064) -> -5.68920883453355e+24) ((4768 . 5625) (* -9007199254740991 631629065) -> -5.68920884354075e+24) ((4769 . 5625) (* -9007199254740991 631629066) -> -5.68920885254795e+24) ((4770 . 5625) (* -9007199254740991 631629067) -> -5.68920886155515e+24) ((4771 . 5625) (* -9007199254740990 631629063) -> -5.68920882552635e+24) ((4772 . 5625) (* -9007199254740990 631629064) -> -5.68920883453355e+24) ((4773 . 5625) (* -9007199254740990 631629065) -> -5.68920884354075e+24) ((4774 . 5625) (* -9007199254740990 631629066) -> -5.68920885254795e+24) ((4775 . 5625) (* -9007199254740990 631629067) -> -5.68920886155515e+24) ((4776 . 5625) (* -9007199254740994 9007199254740990) -> -8.11296384146067e+31) ((4777 . 5625) (* -9007199254740994 9007199254740991) -> -8.11296384146067e+31) ((4778 . 5625) (* -9007199254740994 9007199254740992) -> -8.11296384146067e+31) ((4779 . 5625) (* -9007199254740994 9007199254740993) -> -8.11296384146067e+31) ((4780 . 5625) (* -9007199254740994 9007199254740994) -> -8.11296384146067e+31) ((4781 . 5625) (* -9007199254740993 9007199254740990) -> -8.11296384146067e+31) ((4782 . 5625) (* -9007199254740993 9007199254740991) -> -8.11296384146067e+31) ((4783 . 5625) (* -9007199254740993 9007199254740992) -> -8.11296384146067e+31) ((4784 . 5625) (* -9007199254740993 9007199254740993) -> -8.11296384146067e+31) ((4785 . 5625) (* -9007199254740993 9007199254740994) -> -8.11296384146067e+31) ((4786 . 5625) (* -9007199254740992 9007199254740990) -> -8.11296384146067e+31) ((4787 . 5625) (* -9007199254740992 9007199254740991) -> -8.11296384146067e+31) ((4788 . 5625) (* -9007199254740992 9007199254740992) -> -8.11296384146067e+31) ((4789 . 5625) (* -9007199254740992 9007199254740993) -> -8.11296384146067e+31) ((4790 . 5625) (* -9007199254740992 9007199254740994) -> -8.11296384146067e+31) ((4791 . 5625) (* -9007199254740991 9007199254740990) -> -8.11296384146067e+31) ((4792 . 5625) (* -9007199254740991 9007199254740991) -> -8.11296384146067e+31) ((4793 . 5625) (* -9007199254740991 9007199254740992) -> -8.11296384146067e+31) ((4794 . 5625) (* -9007199254740991 9007199254740993) -> -8.11296384146067e+31) ((4795 . 5625) (* -9007199254740991 9007199254740994) -> -8.11296384146067e+31) ((4796 . 5625) (* -9007199254740990 9007199254740990) -> -8.11296384146066e+31) ((4797 . 5625) (* -9007199254740990 9007199254740991) -> -8.11296384146067e+31) ((4798 . 5625) (* -9007199254740990 9007199254740992) -> -8.11296384146067e+31) ((4799 . 5625) (* -9007199254740990 9007199254740993) -> -8.11296384146067e+31) ((4800 . 5625) (* -9007199254740990 9007199254740994) -> -8.11296384146067e+31) ((4801 . 5625) (* -9007199254740994 -9007199254740994) -> 8.11296384146067e+31) ((4802 . 5625) (* -9007199254740994 -9007199254740993) -> 8.11296384146067e+31) ((4803 . 5625) (* -9007199254740994 -9007199254740992) -> 8.11296384146067e+31) ((4804 . 5625) (* -9007199254740994 -9007199254740991) -> 8.11296384146067e+31) ((4805 . 5625) (* -9007199254740994 -9007199254740990) -> 8.11296384146067e+31) ((4806 . 5625) (* -9007199254740993 -9007199254740994) -> 8.11296384146067e+31) ((4807 . 5625) (* -9007199254740993 -9007199254740993) -> 8.11296384146067e+31) ((4808 . 5625) (* -9007199254740993 -9007199254740992) -> 8.11296384146067e+31) ((4809 . 5625) (* -9007199254740993 -9007199254740991) -> 8.11296384146067e+31) ((4810 . 5625) (* -9007199254740993 -9007199254740990) -> 8.11296384146067e+31) ((4811 . 5625) (* -9007199254740992 -9007199254740994) -> 8.11296384146067e+31) ((4812 . 5625) (* -9007199254740992 -9007199254740993) -> 8.11296384146067e+31) ((4813 . 5625) (* -9007199254740992 -9007199254740992) -> 8.11296384146067e+31) ((4814 . 5625) (* -9007199254740992 -9007199254740991) -> 8.11296384146067e+31) ((4815 . 5625) (* -9007199254740992 -9007199254740990) -> 8.11296384146067e+31) ((4816 . 5625) (* -9007199254740991 -9007199254740994) -> 8.11296384146067e+31) ((4817 . 5625) (* -9007199254740991 -9007199254740993) -> 8.11296384146067e+31) ((4818 . 5625) (* -9007199254740991 -9007199254740992) -> 8.11296384146067e+31) ((4819 . 5625) (* -9007199254740991 -9007199254740991) -> 8.11296384146067e+31) ((4820 . 5625) (* -9007199254740991 -9007199254740990) -> 8.11296384146067e+31) ((4821 . 5625) (* -9007199254740990 -9007199254740994) -> 8.11296384146067e+31) ((4822 . 5625) (* -9007199254740990 -9007199254740993) -> 8.11296384146067e+31) ((4823 . 5625) (* -9007199254740990 -9007199254740992) -> 8.11296384146067e+31) ((4824 . 5625) (* -9007199254740990 -9007199254740991) -> 8.11296384146067e+31) ((4825 . 5625) (* -9007199254740990 -9007199254740990) -> 8.11296384146066e+31) ((4826 . 5625) (* -9007199254740994 12343) -> -1.11175860401268e+20) ((4827 . 5625) (* -9007199254740994 12344) -> -1.11184867600523e+20) ((4828 . 5625) (* -9007199254740994 12345) -> -1.11193874799778e+20) ((4829 . 5625) (* -9007199254740994 12346) -> -1.11202881999032e+20) ((4830 . 5625) (* -9007199254740994 12347) -> -1.11211889198287e+20) ((4831 . 5625) (* -9007199254740993 12343) -> -1.11175860401268e+20) ((4832 . 5625) (* -9007199254740993 12344) -> -1.11184867600523e+20) ((4833 . 5625) (* -9007199254740993 12345) -> -1.11193874799778e+20) ((4834 . 5625) (* -9007199254740993 12346) -> -1.11202881999032e+20) ((4835 . 5625) (* -9007199254740993 12347) -> -1.11211889198287e+20) ((4836 . 5625) (* -9007199254740992 12343) -> -1.11175860401268e+20) ((4837 . 5625) (* -9007199254740992 12344) -> -1.11184867600523e+20) ((4838 . 5625) (* -9007199254740992 12345) -> -1.11193874799778e+20) ((4839 . 5625) (* -9007199254740992 12346) -> -1.11202881999032e+20) ((4840 . 5625) (* -9007199254740992 12347) -> -1.11211889198287e+20) ((4841 . 5625) (* -9007199254740991 12343) -> -1.11175860401268e+20) ((4842 . 5625) (* -9007199254740991 12344) -> -1.11184867600523e+20) ((4843 . 5625) (* -9007199254740991 12345) -> -1.11193874799778e+20) ((4844 . 5625) (* -9007199254740991 12346) -> -1.11202881999032e+20) ((4845 . 5625) (* -9007199254740991 12347) -> -1.11211889198287e+20) ((4846 . 5625) (* -9007199254740990 12343) -> -1.11175860401268e+20) ((4847 . 5625) (* -9007199254740990 12344) -> -1.11184867600523e+20) ((4848 . 5625) (* -9007199254740990 12345) -> -1.11193874799778e+20) ((4849 . 5625) (* -9007199254740990 12346) -> -1.11202881999032e+20) ((4850 . 5625) (* -9007199254740990 12347) -> -1.11211889198287e+20) ((4851 . 5625) (* -9007199254740994 4294967294) -> -3.86856262096537e+25) ((4852 . 5625) (* -9007199254740994 4294967295) -> -3.86856262186609e+25) ((4853 . 5625) (* -9007199254740994 4294967296) -> -3.86856262276681e+25) ((4854 . 5625) (* -9007199254740994 4294967297) -> -3.86856262366753e+25) ((4855 . 5625) (* -9007199254740994 4294967298) -> -3.86856262456825e+25) ((4856 . 5625) (* -9007199254740993 4294967294) -> -3.86856262096537e+25) ((4857 . 5625) (* -9007199254740993 4294967295) -> -3.86856262186609e+25) ((4858 . 5625) (* -9007199254740993 4294967296) -> -3.86856262276681e+25) ((4859 . 5625) (* -9007199254740993 4294967297) -> -3.86856262366753e+25) ((4860 . 5625) (* -9007199254740993 4294967298) -> -3.86856262456825e+25) ((4861 . 5625) (* -9007199254740992 4294967294) -> -3.86856262096537e+25) ((4862 . 5625) (* -9007199254740992 4294967295) -> -3.86856262186609e+25) ((4863 . 5625) (* -9007199254740992 4294967296) -> -3.86856262276681e+25) ((4864 . 5625) (* -9007199254740992 4294967297) -> -3.86856262366753e+25) ((4865 . 5625) (* -9007199254740992 4294967298) -> -3.86856262456825e+25) ((4866 . 5625) (* -9007199254740991 4294967294) -> -3.86856262096537e+25) ((4867 . 5625) (* -9007199254740991 4294967295) -> -3.86856262186609e+25) ((4868 . 5625) (* -9007199254740991 4294967296) -> -3.86856262276681e+25) ((4869 . 5625) (* -9007199254740991 4294967297) -> -3.86856262366753e+25) ((4870 . 5625) (* -9007199254740991 4294967298) -> -3.86856262456825e+25) ((4871 . 5625) (* -9007199254740990 4294967294) -> -3.86856262096537e+25) ((4872 . 5625) (* -9007199254740990 4294967295) -> -3.86856262186609e+25) ((4873 . 5625) (* -9007199254740990 4294967296) -> -3.86856262276681e+25) ((4874 . 5625) (* -9007199254740990 4294967297) -> -3.86856262366753e+25) ((4875 . 5625) (* -9007199254740990 4294967298) -> -3.86856262456825e+25) ((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) -> 5.69220405254492e+22) ((5002 . 5625) (* 12343 4611686018427387902) -> 5.69220405254492e+22) ((5003 . 5625) (* 12343 4611686018427387903) -> 5.69220405254492e+22) ((5004 . 5625) (* 12343 4.61168601842739e+18) -> 5.69220405254492e+22) ((5005 . 5625) (* 12343 4.61168601842739e+18) -> 5.69220405254492e+22) ((5006 . 5625) (* 12344 4611686018427387901) -> 5.69266522114677e+22) ((5007 . 5625) (* 12344 4611686018427387902) -> 5.69266522114677e+22) ((5008 . 5625) (* 12344 4611686018427387903) -> 5.69266522114677e+22) ((5009 . 5625) (* 12344 4.61168601842739e+18) -> 5.69266522114677e+22) ((5010 . 5625) (* 12344 4.61168601842739e+18) -> 5.69266522114677e+22) ((5011 . 5625) (* 12345 4611686018427387901) -> 5.69312638974861e+22) ((5012 . 5625) (* 12345 4611686018427387902) -> 5.69312638974861e+22) ((5013 . 5625) (* 12345 4611686018427387903) -> 5.69312638974861e+22) ((5014 . 5625) (* 12345 4.61168601842739e+18) -> 5.69312638974861e+22) ((5015 . 5625) (* 12345 4.61168601842739e+18) -> 5.69312638974861e+22) ((5016 . 5625) (* 12346 4611686018427387901) -> 5.69358755835045e+22) ((5017 . 5625) (* 12346 4611686018427387902) -> 5.69358755835045e+22) ((5018 . 5625) (* 12346 4611686018427387903) -> 5.69358755835045e+22) ((5019 . 5625) (* 12346 4.61168601842739e+18) -> 5.69358755835045e+22) ((5020 . 5625) (* 12346 4.61168601842739e+18) -> 5.69358755835045e+22) ((5021 . 5625) (* 12347 4611686018427387901) -> 5.6940487269523e+22) ((5022 . 5625) (* 12347 4611686018427387902) -> 5.6940487269523e+22) ((5023 . 5625) (* 12347 4611686018427387903) -> 5.6940487269523e+22) ((5024 . 5625) (* 12347 4.61168601842739e+18) -> 5.6940487269523e+22) ((5025 . 5625) (* 12347 4.61168601842739e+18) -> 5.6940487269523e+22) ((5026 . 5625) (* 12343 -4.61168601842739e+18) -> -5.69220405254492e+22) ((5027 . 5625) (* 12343 -4.61168601842739e+18) -> -5.69220405254492e+22) ((5028 . 5625) (* 12343 -4611686018427387904) -> -5.69220405254492e+22) ((5029 . 5625) (* 12343 -4611686018427387903) -> -5.69220405254492e+22) ((5030 . 5625) (* 12343 -4611686018427387902) -> -5.69220405254492e+22) ((5031 . 5625) (* 12344 -4.61168601842739e+18) -> -5.69266522114677e+22) ((5032 . 5625) (* 12344 -4.61168601842739e+18) -> -5.69266522114677e+22) ((5033 . 5625) (* 12344 -4611686018427387904) -> -5.69266522114677e+22) ((5034 . 5625) (* 12344 -4611686018427387903) -> -5.69266522114677e+22) ((5035 . 5625) (* 12344 -4611686018427387902) -> -5.69266522114677e+22) ((5036 . 5625) (* 12345 -4.61168601842739e+18) -> -5.69312638974861e+22) ((5037 . 5625) (* 12345 -4.61168601842739e+18) -> -5.69312638974861e+22) ((5038 . 5625) (* 12345 -4611686018427387904) -> -5.69312638974861e+22) ((5039 . 5625) (* 12345 -4611686018427387903) -> -5.69312638974861e+22) ((5040 . 5625) (* 12345 -4611686018427387902) -> -5.69312638974861e+22) ((5041 . 5625) (* 12346 -4.61168601842739e+18) -> -5.69358755835045e+22) ((5042 . 5625) (* 12346 -4.61168601842739e+18) -> -5.69358755835045e+22) ((5043 . 5625) (* 12346 -4611686018427387904) -> -5.69358755835045e+22) ((5044 . 5625) (* 12346 -4611686018427387903) -> -5.69358755835045e+22) ((5045 . 5625) (* 12346 -4611686018427387902) -> -5.69358755835045e+22) ((5046 . 5625) (* 12347 -4.61168601842739e+18) -> -5.6940487269523e+22) ((5047 . 5625) (* 12347 -4.61168601842739e+18) -> -5.6940487269523e+22) ((5048 . 5625) (* 12347 -4611686018427387904) -> -5.6940487269523e+22) ((5049 . 5625) (* 12347 -4611686018427387903) -> -5.6940487269523e+22) ((5050 . 5625) (* 12347 -4611686018427387902) -> -5.6940487269523e+22) ((5051 . 5625) (* 12343 4.61168601842739e+18) -> 5.69220405254492e+22) ((5052 . 5625) (* 12343 4.61168601842739e+18) -> 5.69220405254492e+22) ((5053 . 5625) (* 12343 4.61168601842739e+18) -> 5.69220405254492e+22) ((5054 . 5625) (* 12343 4.61168601842739e+18) -> 5.69220405254492e+22) ((5055 . 5625) (* 12343 4.61168601842739e+18) -> 5.69220405254492e+22) ((5056 . 5625) (* 12344 4.61168601842739e+18) -> 5.69266522114677e+22) ((5057 . 5625) (* 12344 4.61168601842739e+18) -> 5.69266522114677e+22) ((5058 . 5625) (* 12344 4.61168601842739e+18) -> 5.69266522114677e+22) ((5059 . 5625) (* 12344 4.61168601842739e+18) -> 5.69266522114677e+22) ((5060 . 5625) (* 12344 4.61168601842739e+18) -> 5.69266522114677e+22) ((5061 . 5625) (* 12345 4.61168601842739e+18) -> 5.69312638974861e+22) ((5062 . 5625) (* 12345 4.61168601842739e+18) -> 5.69312638974861e+22) ((5063 . 5625) (* 12345 4.61168601842739e+18) -> 5.69312638974861e+22) ((5064 . 5625) (* 12345 4.61168601842739e+18) -> 5.69312638974861e+22) ((5065 . 5625) (* 12345 4.61168601842739e+18) -> 5.69312638974861e+22) ((5066 . 5625) (* 12346 4.61168601842739e+18) -> 5.69358755835045e+22) ((5067 . 5625) (* 12346 4.61168601842739e+18) -> 5.69358755835045e+22) ((5068 . 5625) (* 12346 4.61168601842739e+18) -> 5.69358755835045e+22) ((5069 . 5625) (* 12346 4.61168601842739e+18) -> 5.69358755835045e+22) ((5070 . 5625) (* 12346 4.61168601842739e+18) -> 5.69358755835045e+22) ((5071 . 5625) (* 12347 4.61168601842739e+18) -> 5.6940487269523e+22) ((5072 . 5625) (* 12347 4.61168601842739e+18) -> 5.6940487269523e+22) ((5073 . 5625) (* 12347 4.61168601842739e+18) -> 5.6940487269523e+22) ((5074 . 5625) (* 12347 4.61168601842739e+18) -> 5.6940487269523e+22) ((5075 . 5625) (* 12347 4.61168601842739e+18) -> 5.6940487269523e+22) ((5076 . 5625) (* 12343 -4.61168601842739e+18) -> -5.69220405254492e+22) ((5077 . 5625) (* 12343 -4.61168601842739e+18) -> -5.69220405254492e+22) ((5078 . 5625) (* 12343 -4.61168601842739e+18) -> -5.69220405254492e+22) ((5079 . 5625) (* 12343 -4.61168601842739e+18) -> -5.69220405254492e+22) ((5080 . 5625) (* 12343 -4.61168601842739e+18) -> -5.69220405254492e+22) ((5081 . 5625) (* 12344 -4.61168601842739e+18) -> -5.69266522114677e+22) ((5082 . 5625) (* 12344 -4.61168601842739e+18) -> -5.69266522114677e+22) ((5083 . 5625) (* 12344 -4.61168601842739e+18) -> -5.69266522114677e+22) ((5084 . 5625) (* 12344 -4.61168601842739e+18) -> -5.69266522114677e+22) ((5085 . 5625) (* 12344 -4.61168601842739e+18) -> -5.69266522114677e+22) ((5086 . 5625) (* 12345 -4.61168601842739e+18) -> -5.69312638974861e+22) ((5087 . 5625) (* 12345 -4.61168601842739e+18) -> -5.69312638974861e+22) ((5088 . 5625) (* 12345 -4.61168601842739e+18) -> -5.69312638974861e+22) ((5089 . 5625) (* 12345 -4.61168601842739e+18) -> -5.69312638974861e+22) ((5090 . 5625) (* 12345 -4.61168601842739e+18) -> -5.69312638974861e+22) ((5091 . 5625) (* 12346 -4.61168601842739e+18) -> -5.69358755835045e+22) ((5092 . 5625) (* 12346 -4.61168601842739e+18) -> -5.69358755835045e+22) ((5093 . 5625) (* 12346 -4.61168601842739e+18) -> -5.69358755835045e+22) ((5094 . 5625) (* 12346 -4.61168601842739e+18) -> -5.69358755835045e+22) ((5095 . 5625) (* 12346 -4.61168601842739e+18) -> -5.69358755835045e+22) ((5096 . 5625) (* 12347 -4.61168601842739e+18) -> -5.6940487269523e+22) ((5097 . 5625) (* 12347 -4.61168601842739e+18) -> -5.6940487269523e+22) ((5098 . 5625) (* 12347 -4.61168601842739e+18) -> -5.6940487269523e+22) ((5099 . 5625) (* 12347 -4.61168601842739e+18) -> -5.6940487269523e+22) ((5100 . 5625) (* 12347 -4.61168601842739e+18) -> -5.6940487269523e+22) ((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) -> 1.11175860401268e+20) ((5152 . 5625) (* 12343 9007199254740991) -> 1.11175860401268e+20) ((5153 . 5625) (* 12343 9007199254740992) -> 1.11175860401268e+20) ((5154 . 5625) (* 12343 9007199254740993) -> 1.11175860401268e+20) ((5155 . 5625) (* 12343 9007199254740994) -> 1.11175860401268e+20) ((5156 . 5625) (* 12344 9007199254740990) -> 1.11184867600523e+20) ((5157 . 5625) (* 12344 9007199254740991) -> 1.11184867600523e+20) ((5158 . 5625) (* 12344 9007199254740992) -> 1.11184867600523e+20) ((5159 . 5625) (* 12344 9007199254740993) -> 1.11184867600523e+20) ((5160 . 5625) (* 12344 9007199254740994) -> 1.11184867600523e+20) ((5161 . 5625) (* 12345 9007199254740990) -> 1.11193874799778e+20) ((5162 . 5625) (* 12345 9007199254740991) -> 1.11193874799778e+20) ((5163 . 5625) (* 12345 9007199254740992) -> 1.11193874799778e+20) ((5164 . 5625) (* 12345 9007199254740993) -> 1.11193874799778e+20) ((5165 . 5625) (* 12345 9007199254740994) -> 1.11193874799778e+20) ((5166 . 5625) (* 12346 9007199254740990) -> 1.11202881999032e+20) ((5167 . 5625) (* 12346 9007199254740991) -> 1.11202881999032e+20) ((5168 . 5625) (* 12346 9007199254740992) -> 1.11202881999032e+20) ((5169 . 5625) (* 12346 9007199254740993) -> 1.11202881999032e+20) ((5170 . 5625) (* 12346 9007199254740994) -> 1.11202881999032e+20) ((5171 . 5625) (* 12347 9007199254740990) -> 1.11211889198287e+20) ((5172 . 5625) (* 12347 9007199254740991) -> 1.11211889198287e+20) ((5173 . 5625) (* 12347 9007199254740992) -> 1.11211889198287e+20) ((5174 . 5625) (* 12347 9007199254740993) -> 1.11211889198287e+20) ((5175 . 5625) (* 12347 9007199254740994) -> 1.11211889198287e+20) ((5176 . 5625) (* 12343 -9007199254740994) -> -1.11175860401268e+20) ((5177 . 5625) (* 12343 -9007199254740993) -> -1.11175860401268e+20) ((5178 . 5625) (* 12343 -9007199254740992) -> -1.11175860401268e+20) ((5179 . 5625) (* 12343 -9007199254740991) -> -1.11175860401268e+20) ((5180 . 5625) (* 12343 -9007199254740990) -> -1.11175860401268e+20) ((5181 . 5625) (* 12344 -9007199254740994) -> -1.11184867600523e+20) ((5182 . 5625) (* 12344 -9007199254740993) -> -1.11184867600523e+20) ((5183 . 5625) (* 12344 -9007199254740992) -> -1.11184867600523e+20) ((5184 . 5625) (* 12344 -9007199254740991) -> -1.11184867600523e+20) ((5185 . 5625) (* 12344 -9007199254740990) -> -1.11184867600523e+20) ((5186 . 5625) (* 12345 -9007199254740994) -> -1.11193874799778e+20) ((5187 . 5625) (* 12345 -9007199254740993) -> -1.11193874799778e+20) ((5188 . 5625) (* 12345 -9007199254740992) -> -1.11193874799778e+20) ((5189 . 5625) (* 12345 -9007199254740991) -> -1.11193874799778e+20) ((5190 . 5625) (* 12345 -9007199254740990) -> -1.11193874799778e+20) ((5191 . 5625) (* 12346 -9007199254740994) -> -1.11202881999032e+20) ((5192 . 5625) (* 12346 -9007199254740993) -> -1.11202881999032e+20) ((5193 . 5625) (* 12346 -9007199254740992) -> -1.11202881999032e+20) ((5194 . 5625) (* 12346 -9007199254740991) -> -1.11202881999032e+20) ((5195 . 5625) (* 12346 -9007199254740990) -> -1.11202881999032e+20) ((5196 . 5625) (* 12347 -9007199254740994) -> -1.11211889198287e+20) ((5197 . 5625) (* 12347 -9007199254740993) -> -1.11211889198287e+20) ((5198 . 5625) (* 12347 -9007199254740992) -> -1.11211889198287e+20) ((5199 . 5625) (* 12347 -9007199254740991) -> -1.11211889198287e+20) ((5200 . 5625) (* 12347 -9007199254740990) -> -1.11211889198287e+20) ((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) -> 1.98070406193427e+28) ((5377 . 5625) (* 4294967294 4611686018427387902) -> 1.98070406193427e+28) ((5378 . 5625) (* 4294967294 4611686018427387903) -> 1.98070406193427e+28) ((5379 . 5625) (* 4294967294 4.61168601842739e+18) -> 1.98070406193427e+28) ((5380 . 5625) (* 4294967294 4.61168601842739e+18) -> 1.98070406193427e+28) ((5381 . 5625) (* 4294967295 4611686018427387901) -> 1.98070406239544e+28) ((5382 . 5625) (* 4294967295 4611686018427387902) -> 1.98070406239544e+28) ((5383 . 5625) (* 4294967295 4611686018427387903) -> 1.98070406239544e+28) ((5384 . 5625) (* 4294967295 4.61168601842739e+18) -> 1.98070406239544e+28) ((5385 . 5625) (* 4294967295 4.61168601842739e+18) -> 1.98070406239544e+28) ((5386 . 5625) (* 4294967296 4611686018427387901) -> 1.98070406285661e+28) ((5387 . 5625) (* 4294967296 4611686018427387902) -> 1.98070406285661e+28) ((5388 . 5625) (* 4294967296 4611686018427387903) -> 1.98070406285661e+28) ((5389 . 5625) (* 4294967296 4.61168601842739e+18) -> 1.98070406285661e+28) ((5390 . 5625) (* 4294967296 4.61168601842739e+18) -> 1.98070406285661e+28) ((5391 . 5625) (* 4294967297 4611686018427387901) -> 1.98070406331778e+28) ((5392 . 5625) (* 4294967297 4611686018427387902) -> 1.98070406331778e+28) ((5393 . 5625) (* 4294967297 4611686018427387903) -> 1.98070406331778e+28) ((5394 . 5625) (* 4294967297 4.61168601842739e+18) -> 1.98070406331778e+28) ((5395 . 5625) (* 4294967297 4.61168601842739e+18) -> 1.98070406331778e+28) ((5396 . 5625) (* 4294967298 4611686018427387901) -> 1.98070406377895e+28) ((5397 . 5625) (* 4294967298 4611686018427387902) -> 1.98070406377895e+28) ((5398 . 5625) (* 4294967298 4611686018427387903) -> 1.98070406377895e+28) ((5399 . 5625) (* 4294967298 4.61168601842739e+18) -> 1.98070406377895e+28) ((5400 . 5625) (* 4294967298 4.61168601842739e+18) -> 1.98070406377895e+28) ((5401 . 5625) (* 4294967294 -4.61168601842739e+18) -> -1.98070406193427e+28) ((5402 . 5625) (* 4294967294 -4.61168601842739e+18) -> -1.98070406193427e+28) ((5403 . 5625) (* 4294967294 -4611686018427387904) -> -1.98070406193427e+28) ((5404 . 5625) (* 4294967294 -4611686018427387903) -> -1.98070406193427e+28) ((5405 . 5625) (* 4294967294 -4611686018427387902) -> -1.98070406193427e+28) ((5406 . 5625) (* 4294967295 -4.61168601842739e+18) -> -1.98070406239544e+28) ((5407 . 5625) (* 4294967295 -4.61168601842739e+18) -> -1.98070406239544e+28) ((5408 . 5625) (* 4294967295 -4611686018427387904) -> -1.98070406239544e+28) ((5409 . 5625) (* 4294967295 -4611686018427387903) -> -1.98070406239544e+28) ((5410 . 5625) (* 4294967295 -4611686018427387902) -> -1.98070406239544e+28) ((5411 . 5625) (* 4294967296 -4.61168601842739e+18) -> -1.98070406285661e+28) ((5412 . 5625) (* 4294967296 -4.61168601842739e+18) -> -1.98070406285661e+28) ((5413 . 5625) (* 4294967296 -4611686018427387904) -> -1.98070406285661e+28) ((5414 . 5625) (* 4294967296 -4611686018427387903) -> -1.98070406285661e+28) ((5415 . 5625) (* 4294967296 -4611686018427387902) -> -1.98070406285661e+28) ((5416 . 5625) (* 4294967297 -4.61168601842739e+18) -> -1.98070406331778e+28) ((5417 . 5625) (* 4294967297 -4.61168601842739e+18) -> -1.98070406331778e+28) ((5418 . 5625) (* 4294967297 -4611686018427387904) -> -1.98070406331778e+28) ((5419 . 5625) (* 4294967297 -4611686018427387903) -> -1.98070406331778e+28) ((5420 . 5625) (* 4294967297 -4611686018427387902) -> -1.98070406331778e+28) ((5421 . 5625) (* 4294967298 -4.61168601842739e+18) -> -1.98070406377895e+28) ((5422 . 5625) (* 4294967298 -4.61168601842739e+18) -> -1.98070406377895e+28) ((5423 . 5625) (* 4294967298 -4611686018427387904) -> -1.98070406377895e+28) ((5424 . 5625) (* 4294967298 -4611686018427387903) -> -1.98070406377895e+28) ((5425 . 5625) (* 4294967298 -4611686018427387902) -> -1.98070406377895e+28) ((5426 . 5625) (* 4294967294 4.61168601842739e+18) -> 1.98070406193427e+28) ((5427 . 5625) (* 4294967294 4.61168601842739e+18) -> 1.98070406193427e+28) ((5428 . 5625) (* 4294967294 4.61168601842739e+18) -> 1.98070406193427e+28) ((5429 . 5625) (* 4294967294 4.61168601842739e+18) -> 1.98070406193427e+28) ((5430 . 5625) (* 4294967294 4.61168601842739e+18) -> 1.98070406193427e+28) ((5431 . 5625) (* 4294967295 4.61168601842739e+18) -> 1.98070406239544e+28) ((5432 . 5625) (* 4294967295 4.61168601842739e+18) -> 1.98070406239544e+28) ((5433 . 5625) (* 4294967295 4.61168601842739e+18) -> 1.98070406239544e+28) ((5434 . 5625) (* 4294967295 4.61168601842739e+18) -> 1.98070406239544e+28) ((5435 . 5625) (* 4294967295 4.61168601842739e+18) -> 1.98070406239544e+28) ((5436 . 5625) (* 4294967296 4.61168601842739e+18) -> 1.98070406285661e+28) ((5437 . 5625) (* 4294967296 4.61168601842739e+18) -> 1.98070406285661e+28) ((5438 . 5625) (* 4294967296 4.61168601842739e+18) -> 1.98070406285661e+28) ((5439 . 5625) (* 4294967296 4.61168601842739e+18) -> 1.98070406285661e+28) ((5440 . 5625) (* 4294967296 4.61168601842739e+18) -> 1.98070406285661e+28) ((5441 . 5625) (* 4294967297 4.61168601842739e+18) -> 1.98070406331778e+28) ((5442 . 5625) (* 4294967297 4.61168601842739e+18) -> 1.98070406331778e+28) ((5443 . 5625) (* 4294967297 4.61168601842739e+18) -> 1.98070406331778e+28) ((5444 . 5625) (* 4294967297 4.61168601842739e+18) -> 1.98070406331778e+28) ((5445 . 5625) (* 4294967297 4.61168601842739e+18) -> 1.98070406331778e+28) ((5446 . 5625) (* 4294967298 4.61168601842739e+18) -> 1.98070406377895e+28) ((5447 . 5625) (* 4294967298 4.61168601842739e+18) -> 1.98070406377895e+28) ((5448 . 5625) (* 4294967298 4.61168601842739e+18) -> 1.98070406377895e+28) ((5449 . 5625) (* 4294967298 4.61168601842739e+18) -> 1.98070406377895e+28) ((5450 . 5625) (* 4294967298 4.61168601842739e+18) -> 1.98070406377895e+28) ((5451 . 5625) (* 4294967294 -4.61168601842739e+18) -> -1.98070406193427e+28) ((5452 . 5625) (* 4294967294 -4.61168601842739e+18) -> -1.98070406193427e+28) ((5453 . 5625) (* 4294967294 -4.61168601842739e+18) -> -1.98070406193427e+28) ((5454 . 5625) (* 4294967294 -4.61168601842739e+18) -> -1.98070406193427e+28) ((5455 . 5625) (* 4294967294 -4.61168601842739e+18) -> -1.98070406193427e+28) ((5456 . 5625) (* 4294967295 -4.61168601842739e+18) -> -1.98070406239544e+28) ((5457 . 5625) (* 4294967295 -4.61168601842739e+18) -> -1.98070406239544e+28) ((5458 . 5625) (* 4294967295 -4.61168601842739e+18) -> -1.98070406239544e+28) ((5459 . 5625) (* 4294967295 -4.61168601842739e+18) -> -1.98070406239544e+28) ((5460 . 5625) (* 4294967295 -4.61168601842739e+18) -> -1.98070406239544e+28) ((5461 . 5625) (* 4294967296 -4.61168601842739e+18) -> -1.98070406285661e+28) ((5462 . 5625) (* 4294967296 -4.61168601842739e+18) -> -1.98070406285661e+28) ((5463 . 5625) (* 4294967296 -4.61168601842739e+18) -> -1.98070406285661e+28) ((5464 . 5625) (* 4294967296 -4.61168601842739e+18) -> -1.98070406285661e+28) ((5465 . 5625) (* 4294967296 -4.61168601842739e+18) -> -1.98070406285661e+28) ((5466 . 5625) (* 4294967297 -4.61168601842739e+18) -> -1.98070406331778e+28) ((5467 . 5625) (* 4294967297 -4.61168601842739e+18) -> -1.98070406331778e+28) ((5468 . 5625) (* 4294967297 -4.61168601842739e+18) -> -1.98070406331778e+28) ((5469 . 5625) (* 4294967297 -4.61168601842739e+18) -> -1.98070406331778e+28) ((5470 . 5625) (* 4294967297 -4.61168601842739e+18) -> -1.98070406331778e+28) ((5471 . 5625) (* 4294967298 -4.61168601842739e+18) -> -1.98070406377895e+28) ((5472 . 5625) (* 4294967298 -4.61168601842739e+18) -> -1.98070406377895e+28) ((5473 . 5625) (* 4294967298 -4.61168601842739e+18) -> -1.98070406377895e+28) ((5474 . 5625) (* 4294967298 -4.61168601842739e+18) -> -1.98070406377895e+28) ((5475 . 5625) (* 4294967298 -4.61168601842739e+18) -> -1.98070406377895e+28) ((5476 . 5625) (* 4294967294 1103515243) -> 4.73956187711546e+18) ((5477 . 5625) (* 4294967294 1103515244) -> 4.73956188141043e+18) ((5478 . 5625) (* 4294967294 1103515245) -> 4.7395618857054e+18) ((5479 . 5625) (* 4294967294 1103515246) -> 4.73956189000036e+18) ((5480 . 5625) (* 4294967294 1103515247) -> 4.73956189429533e+18) ((5481 . 5625) (* 4294967295 1103515243) -> 4.73956187821898e+18) ((5482 . 5625) (* 4294967295 1103515244) -> 4.73956188251394e+18) ((5483 . 5625) (* 4294967295 1103515245) -> 4.73956188680891e+18) ((5484 . 5625) (* 4294967295 1103515246) -> 4.73956189110388e+18) ((5485 . 5625) (* 4294967295 1103515247) -> 4.73956189539885e+18) ((5486 . 5625) (* 4294967296 1103515243) -> 4.73956187932249e+18) ((5487 . 5625) (* 4294967296 1103515244) -> 4.73956188361746e+18) ((5488 . 5625) (* 4294967296 1103515245) -> 4.73956188791243e+18) ((5489 . 5625) (* 4294967296 1103515246) -> 4.73956189220739e+18) ((5490 . 5625) (* 4294967296 1103515247) -> 4.73956189650236e+18) ((5491 . 5625) (* 4294967297 1103515243) -> 4.73956188042601e+18) ((5492 . 5625) (* 4294967297 1103515244) -> 4.73956188472098e+18) ((5493 . 5625) (* 4294967297 1103515245) -> 4.73956188901594e+18) ((5494 . 5625) (* 4294967297 1103515246) -> 4.73956189331091e+18) ((5495 . 5625) (* 4294967297 1103515247) -> 4.73956189760588e+18) ((5496 . 5625) (* 4294967298 1103515243) -> 4.73956188152952e+18) ((5497 . 5625) (* 4294967298 1103515244) -> 4.73956188582449e+18) ((5498 . 5625) (* 4294967298 1103515245) -> 4.73956189011946e+18) ((5499 . 5625) (* 4294967298 1103515246) -> 4.73956189441443e+18) ((5500 . 5625) (* 4294967298 1103515247) -> 4.73956189870939e+18) ((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) -> 3.86856262096537e+25) ((5527 . 5625) (* 4294967294 9007199254740991) -> 3.86856262096537e+25) ((5528 . 5625) (* 4294967294 9007199254740992) -> 3.86856262096537e+25) ((5529 . 5625) (* 4294967294 9007199254740993) -> 3.86856262096537e+25) ((5530 . 5625) (* 4294967294 9007199254740994) -> 3.86856262096537e+25) ((5531 . 5625) (* 4294967295 9007199254740990) -> 3.86856262186609e+25) ((5532 . 5625) (* 4294967295 9007199254740991) -> 3.86856262186609e+25) ((5533 . 5625) (* 4294967295 9007199254740992) -> 3.86856262186609e+25) ((5534 . 5625) (* 4294967295 9007199254740993) -> 3.86856262186609e+25) ((5535 . 5625) (* 4294967295 9007199254740994) -> 3.86856262186609e+25) ((5536 . 5625) (* 4294967296 9007199254740990) -> 3.86856262276681e+25) ((5537 . 5625) (* 4294967296 9007199254740991) -> 3.86856262276681e+25) ((5538 . 5625) (* 4294967296 9007199254740992) -> 3.86856262276681e+25) ((5539 . 5625) (* 4294967296 9007199254740993) -> 3.86856262276681e+25) ((5540 . 5625) (* 4294967296 9007199254740994) -> 3.86856262276681e+25) ((5541 . 5625) (* 4294967297 9007199254740990) -> 3.86856262366753e+25) ((5542 . 5625) (* 4294967297 9007199254740991) -> 3.86856262366753e+25) ((5543 . 5625) (* 4294967297 9007199254740992) -> 3.86856262366753e+25) ((5544 . 5625) (* 4294967297 9007199254740993) -> 3.86856262366753e+25) ((5545 . 5625) (* 4294967297 9007199254740994) -> 3.86856262366753e+25) ((5546 . 5625) (* 4294967298 9007199254740990) -> 3.86856262456825e+25) ((5547 . 5625) (* 4294967298 9007199254740991) -> 3.86856262456825e+25) ((5548 . 5625) (* 4294967298 9007199254740992) -> 3.86856262456825e+25) ((5549 . 5625) (* 4294967298 9007199254740993) -> 3.86856262456825e+25) ((5550 . 5625) (* 4294967298 9007199254740994) -> 3.86856262456825e+25) ((5551 . 5625) (* 4294967294 -9007199254740994) -> -3.86856262096537e+25) ((5552 . 5625) (* 4294967294 -9007199254740993) -> -3.86856262096537e+25) ((5553 . 5625) (* 4294967294 -9007199254740992) -> -3.86856262096537e+25) ((5554 . 5625) (* 4294967294 -9007199254740991) -> -3.86856262096537e+25) ((5555 . 5625) (* 4294967294 -9007199254740990) -> -3.86856262096537e+25) ((5556 . 5625) (* 4294967295 -9007199254740994) -> -3.86856262186609e+25) ((5557 . 5625) (* 4294967295 -9007199254740993) -> -3.86856262186609e+25) ((5558 . 5625) (* 4294967295 -9007199254740992) -> -3.86856262186609e+25) ((5559 . 5625) (* 4294967295 -9007199254740991) -> -3.86856262186609e+25) ((5560 . 5625) (* 4294967295 -9007199254740990) -> -3.86856262186609e+25) ((5561 . 5625) (* 4294967296 -9007199254740994) -> -3.86856262276681e+25) ((5562 . 5625) (* 4294967296 -9007199254740993) -> -3.86856262276681e+25) ((5563 . 5625) (* 4294967296 -9007199254740992) -> -3.86856262276681e+25) ((5564 . 5625) (* 4294967296 -9007199254740991) -> -3.86856262276681e+25) ((5565 . 5625) (* 4294967296 -9007199254740990) -> -3.86856262276681e+25) ((5566 . 5625) (* 4294967297 -9007199254740994) -> -3.86856262366753e+25) ((5567 . 5625) (* 4294967297 -9007199254740993) -> -3.86856262366753e+25) ((5568 . 5625) (* 4294967297 -9007199254740992) -> -3.86856262366753e+25) ((5569 . 5625) (* 4294967297 -9007199254740991) -> -3.86856262366753e+25) ((5570 . 5625) (* 4294967297 -9007199254740990) -> -3.86856262366753e+25) ((5571 . 5625) (* 4294967298 -9007199254740994) -> -3.86856262456825e+25) ((5572 . 5625) (* 4294967298 -9007199254740993) -> -3.86856262456825e+25) ((5573 . 5625) (* 4294967298 -9007199254740992) -> -3.86856262456825e+25) ((5574 . 5625) (* 4294967298 -9007199254740991) -> -3.86856262456825e+25) ((5575 . 5625) (* 4294967298 -9007199254740990) -> -3.86856262456825e+25) ((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) -> 1.84467440565297e+19) ((5602 . 5625) (* 4294967294 4294967295) -> 1.84467440608246e+19) ((5603 . 5625) (* 4294967294 4294967296) -> 1.84467440651196e+19) ((5604 . 5625) (* 4294967294 4294967297) -> 1.84467440694146e+19) ((5605 . 5625) (* 4294967294 4294967298) -> 1.84467440737096e+19) ((5606 . 5625) (* 4294967295 4294967294) -> 1.84467440608246e+19) ((5607 . 5625) (* 4294967295 4294967295) -> 1.84467440651196e+19) ((5608 . 5625) (* 4294967295 4294967296) -> 1.84467440694146e+19) ((5609 . 5625) (* 4294967295 4294967297) -> 1.84467440737096e+19) ((5610 . 5625) (* 4294967295 4294967298) -> 1.84467440780045e+19) ((5611 . 5625) (* 4294967296 4294967294) -> 1.84467440651196e+19) ((5612 . 5625) (* 4294967296 4294967295) -> 1.84467440694146e+19) ((5613 . 5625) (* 4294967296 4294967296) -> 1.84467440737096e+19) ((5614 . 5625) (* 4294967296 4294967297) -> 1.84467440780045e+19) ((5615 . 5625) (* 4294967296 4294967298) -> 1.84467440822995e+19) ((5616 . 5625) (* 4294967297 4294967294) -> 1.84467440694146e+19) ((5617 . 5625) (* 4294967297 4294967295) -> 1.84467440737096e+19) ((5618 . 5625) (* 4294967297 4294967296) -> 1.84467440780045e+19) ((5619 . 5625) (* 4294967297 4294967297) -> 1.84467440822995e+19) ((5620 . 5625) (* 4294967297 4294967298) -> 1.84467440865945e+19) ((5621 . 5625) (* 4294967298 4294967294) -> 1.84467440737096e+19) ((5622 . 5625) (* 4294967298 4294967295) -> 1.84467440780045e+19) ((5623 . 5625) (* 4294967298 4294967296) -> 1.84467440822995e+19) ((5624 . 5625) (* 4294967298 4294967297) -> 1.84467440865945e+19) ((5625 . 5625) (* 4294967298 4294967298) -> 1.84467440908894e+19) ((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) -> 0.5) ((7 . 5625) (/ -1 -1) -> 1) ((8 . 5625) (/ -1 0) -> "division by zero") ((9 . 5625) (/ -1 1) -> -1) ((10 . 5625) (/ -1 2) -> -0.5) ((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) -> -0.5) ((17 . 5625) (/ 1 -1) -> -1) ((18 . 5625) (/ 1 0) -> "division by zero") ((19 . 5625) (/ 1 1) -> 1) ((20 . 5625) (/ 1 2) -> 0.5) ((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) -> -0.666666666666667) ((31 . 5625) (/ -1 -1) -> 1) ((32 . 5625) (/ -1 0) -> "division by zero") ((33 . 5625) (/ -1 1) -> -1) ((34 . 5625) (/ -1 2) -> -0.5) ((35 . 5625) (/ -1 3) -> -0.333333333333333) ((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) -> 0.5) ((45 . 5625) (/ 1 3) -> 0.333333333333333) ((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) -> 0.666666666666667) ((51 . 5625) (/ -2 -3) -> 0.666666666666667) ((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) -> 0.333333333333333) ((57 . 5625) (/ -1 -2) -> 0.5) ((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) -> -0.333333333333333) ((67 . 5625) (/ 1 -2) -> -0.5) ((68 . 5625) (/ 1 -1) -> -1) ((69 . 5625) (/ 1 0) -> "division by zero") ((70 . 5625) (/ 1 1) -> 1) ((71 . 5625) (/ 2 -3) -> -0.666666666666667) ((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) -> -0.666666666666667) ((80 . 5625) (/ -2 4) -> -0.5) ((81 . 5625) (/ -1 0) -> "division by zero") ((82 . 5625) (/ -1 1) -> -1) ((83 . 5625) (/ -1 2) -> -0.5) ((84 . 5625) (/ -1 3) -> -0.333333333333333) ((85 . 5625) (/ -1 4) -> -0.25) ((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) -> 0.5) ((94 . 5625) (/ 1 3) -> 0.333333333333333) ((95 . 5625) (/ 1 4) -> 0.25) ((96 . 5625) (/ 2 0) -> "division by zero") ((97 . 5625) (/ 2 1) -> 2) ((98 . 5625) (/ 2 2) -> 1) ((99 . 5625) (/ 2 3) -> 0.666666666666667) ((100 . 5625) (/ 2 4) -> 0.5) ((101 . 5625) (/ -2 -4) -> 0.5) ((102 . 5625) (/ -2 -3) -> 0.666666666666667) ((103 . 5625) (/ -2 -2) -> 1) ((104 . 5625) (/ -2 -1) -> 2) ((105 . 5625) (/ -2 0) -> "division by zero") ((106 . 5625) (/ -1 -4) -> 0.25) ((107 . 5625) (/ -1 -3) -> 0.333333333333333) ((108 . 5625) (/ -1 -2) -> 0.5) ((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) -> -0.25) ((117 . 5625) (/ 1 -3) -> -0.333333333333333) ((118 . 5625) (/ 1 -2) -> -0.5) ((119 . 5625) (/ 1 -1) -> -1) ((120 . 5625) (/ 1 0) -> "division by zero") ((121 . 5625) (/ 2 -4) -> -0.5) ((122 . 5625) (/ 2 -3) -> -0.666666666666667) ((123 . 5625) (/ 2 -2) -> -1) ((124 . 5625) (/ 2 -1) -> -2) ((125 . 5625) (/ 2 0) -> "division by zero") ((126 . 5625) (/ -2 4611686018427387901) -> -4.33680868994202e-19) ((127 . 5625) (/ -2 4611686018427387902) -> -4.33680868994202e-19) ((128 . 5625) (/ -2 4611686018427387903) -> -4.33680868994202e-19) ((129 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((130 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((131 . 5625) (/ -1 4611686018427387901) -> -2.16840434497101e-19) ((132 . 5625) (/ -1 4611686018427387902) -> -2.16840434497101e-19) ((133 . 5625) (/ -1 4611686018427387903) -> -2.16840434497101e-19) ((134 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((135 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((136 . 5625) (/ 0 4611686018427387901) -> 0) ((137 . 5625) (/ 0 4611686018427387902) -> 0) ((138 . 5625) (/ 0 4611686018427387903) -> 0) ((139 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((140 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((141 . 5625) (/ 1 4611686018427387901) -> 2.16840434497101e-19) ((142 . 5625) (/ 1 4611686018427387902) -> 2.16840434497101e-19) ((143 . 5625) (/ 1 4611686018427387903) -> 2.16840434497101e-19) ((144 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((145 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((146 . 5625) (/ 2 4611686018427387901) -> 4.33680868994202e-19) ((147 . 5625) (/ 2 4611686018427387902) -> 4.33680868994202e-19) ((148 . 5625) (/ 2 4611686018427387903) -> 4.33680868994202e-19) ((149 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((150 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((151 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((152 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((153 . 5625) (/ -2 -4611686018427387904) -> 4.33680868994202e-19) ((154 . 5625) (/ -2 -4611686018427387903) -> 4.33680868994202e-19) ((155 . 5625) (/ -2 -4611686018427387902) -> 4.33680868994202e-19) ((156 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((157 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((158 . 5625) (/ -1 -4611686018427387904) -> 2.16840434497101e-19) ((159 . 5625) (/ -1 -4611686018427387903) -> 2.16840434497101e-19) ((160 . 5625) (/ -1 -4611686018427387902) -> 2.16840434497101e-19) ((161 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((162 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((163 . 5625) (/ 0 -4611686018427387904) -> 0) ((164 . 5625) (/ 0 -4611686018427387903) -> 0) ((165 . 5625) (/ 0 -4611686018427387902) -> 0) ((166 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((167 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((168 . 5625) (/ 1 -4611686018427387904) -> -2.16840434497101e-19) ((169 . 5625) (/ 1 -4611686018427387903) -> -2.16840434497101e-19) ((170 . 5625) (/ 1 -4611686018427387902) -> -2.16840434497101e-19) ((171 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((172 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((173 . 5625) (/ 2 -4611686018427387904) -> -4.33680868994202e-19) ((174 . 5625) (/ 2 -4611686018427387903) -> -4.33680868994202e-19) ((175 . 5625) (/ 2 -4611686018427387902) -> -4.33680868994202e-19) ((176 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((177 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((178 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((179 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((180 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((181 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((182 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((183 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((184 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((185 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((186 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((187 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((188 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((189 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((190 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((191 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((192 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((193 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((194 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((195 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((196 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((197 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((198 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((199 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((200 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((201 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((202 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((203 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((204 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((205 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((206 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((207 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((208 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((209 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((210 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((211 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((212 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((213 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((214 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((215 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((216 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((217 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((218 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((219 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((220 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((221 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((222 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((223 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((224 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((225 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((226 . 5625) (/ -2 1103515243) -> -1.81239000791945e-09) ((227 . 5625) (/ -2 1103515244) -> -1.81239000627707e-09) ((228 . 5625) (/ -2 1103515245) -> -1.81239000463469e-09) ((229 . 5625) (/ -2 1103515246) -> -1.81239000299231e-09) ((230 . 5625) (/ -2 1103515247) -> -1.81239000134993e-09) ((231 . 5625) (/ -1 1103515243) -> -9.06195003959723e-10) ((232 . 5625) (/ -1 1103515244) -> -9.06195003138534e-10) ((233 . 5625) (/ -1 1103515245) -> -9.06195002317345e-10) ((234 . 5625) (/ -1 1103515246) -> -9.06195001496155e-10) ((235 . 5625) (/ -1 1103515247) -> -9.06195000674966e-10) ((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) -> 9.06195003959723e-10) ((242 . 5625) (/ 1 1103515244) -> 9.06195003138534e-10) ((243 . 5625) (/ 1 1103515245) -> 9.06195002317345e-10) ((244 . 5625) (/ 1 1103515246) -> 9.06195001496155e-10) ((245 . 5625) (/ 1 1103515247) -> 9.06195000674966e-10) ((246 . 5625) (/ 2 1103515243) -> 1.81239000791945e-09) ((247 . 5625) (/ 2 1103515244) -> 1.81239000627707e-09) ((248 . 5625) (/ 2 1103515245) -> 1.81239000463469e-09) ((249 . 5625) (/ 2 1103515246) -> 1.81239000299231e-09) ((250 . 5625) (/ 2 1103515247) -> 1.81239000134993e-09) ((251 . 5625) (/ -2 631629063) -> -3.1664154123953e-09) ((252 . 5625) (/ -2 631629064) -> -3.1664154073822e-09) ((253 . 5625) (/ -2 631629065) -> -3.16641540236911e-09) ((254 . 5625) (/ -2 631629066) -> -3.16641539735602e-09) ((255 . 5625) (/ -2 631629067) -> -3.16641539234292e-09) ((256 . 5625) (/ -1 631629063) -> -1.58320770619765e-09) ((257 . 5625) (/ -1 631629064) -> -1.5832077036911e-09) ((258 . 5625) (/ -1 631629065) -> -1.58320770118456e-09) ((259 . 5625) (/ -1 631629066) -> -1.58320769867801e-09) ((260 . 5625) (/ -1 631629067) -> -1.58320769617146e-09) ((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.58320770619765e-09) ((267 . 5625) (/ 1 631629064) -> 1.5832077036911e-09) ((268 . 5625) (/ 1 631629065) -> 1.58320770118456e-09) ((269 . 5625) (/ 1 631629066) -> 1.58320769867801e-09) ((270 . 5625) (/ 1 631629067) -> 1.58320769617146e-09) ((271 . 5625) (/ 2 631629063) -> 3.1664154123953e-09) ((272 . 5625) (/ 2 631629064) -> 3.1664154073822e-09) ((273 . 5625) (/ 2 631629065) -> 3.16641540236911e-09) ((274 . 5625) (/ 2 631629066) -> 3.16641539735602e-09) ((275 . 5625) (/ 2 631629067) -> 3.16641539234292e-09) ((276 . 5625) (/ -2 9007199254740990) -> -2.22044604925031e-16) ((277 . 5625) (/ -2 9007199254740991) -> -2.22044604925031e-16) ((278 . 5625) (/ -2 9007199254740992) -> -2.22044604925031e-16) ((279 . 5625) (/ -2 9007199254740993) -> -2.22044604925031e-16) ((280 . 5625) (/ -2 9007199254740994) -> -2.22044604925031e-16) ((281 . 5625) (/ -1 9007199254740990) -> -1.11022302462516e-16) ((282 . 5625) (/ -1 9007199254740991) -> -1.11022302462516e-16) ((283 . 5625) (/ -1 9007199254740992) -> -1.11022302462516e-16) ((284 . 5625) (/ -1 9007199254740993) -> -1.11022302462516e-16) ((285 . 5625) (/ -1 9007199254740994) -> -1.11022302462516e-16) ((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.11022302462516e-16) ((292 . 5625) (/ 1 9007199254740991) -> 1.11022302462516e-16) ((293 . 5625) (/ 1 9007199254740992) -> 1.11022302462516e-16) ((294 . 5625) (/ 1 9007199254740993) -> 1.11022302462516e-16) ((295 . 5625) (/ 1 9007199254740994) -> 1.11022302462516e-16) ((296 . 5625) (/ 2 9007199254740990) -> 2.22044604925031e-16) ((297 . 5625) (/ 2 9007199254740991) -> 2.22044604925031e-16) ((298 . 5625) (/ 2 9007199254740992) -> 2.22044604925031e-16) ((299 . 5625) (/ 2 9007199254740993) -> 2.22044604925031e-16) ((300 . 5625) (/ 2 9007199254740994) -> 2.22044604925031e-16) ((301 . 5625) (/ -2 -9007199254740994) -> 2.22044604925031e-16) ((302 . 5625) (/ -2 -9007199254740993) -> 2.22044604925031e-16) ((303 . 5625) (/ -2 -9007199254740992) -> 2.22044604925031e-16) ((304 . 5625) (/ -2 -9007199254740991) -> 2.22044604925031e-16) ((305 . 5625) (/ -2 -9007199254740990) -> 2.22044604925031e-16) ((306 . 5625) (/ -1 -9007199254740994) -> 1.11022302462516e-16) ((307 . 5625) (/ -1 -9007199254740993) -> 1.11022302462516e-16) ((308 . 5625) (/ -1 -9007199254740992) -> 1.11022302462516e-16) ((309 . 5625) (/ -1 -9007199254740991) -> 1.11022302462516e-16) ((310 . 5625) (/ -1 -9007199254740990) -> 1.11022302462516e-16) ((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.11022302462516e-16) ((317 . 5625) (/ 1 -9007199254740993) -> -1.11022302462516e-16) ((318 . 5625) (/ 1 -9007199254740992) -> -1.11022302462516e-16) ((319 . 5625) (/ 1 -9007199254740991) -> -1.11022302462516e-16) ((320 . 5625) (/ 1 -9007199254740990) -> -1.11022302462516e-16) ((321 . 5625) (/ 2 -9007199254740994) -> -2.22044604925031e-16) ((322 . 5625) (/ 2 -9007199254740993) -> -2.22044604925031e-16) ((323 . 5625) (/ 2 -9007199254740992) -> -2.22044604925031e-16) ((324 . 5625) (/ 2 -9007199254740991) -> -2.22044604925031e-16) ((325 . 5625) (/ 2 -9007199254740990) -> -2.22044604925031e-16) ((326 . 5625) (/ -2 12343) -> -0.000162035161630074) ((327 . 5625) (/ -2 12344) -> -0.00016202203499676) ((328 . 5625) (/ -2 12345) -> -0.000162008910490077) ((329 . 5625) (/ -2 12346) -> -0.000161995788109509) ((330 . 5625) (/ -2 12347) -> -0.00016198266785454) ((331 . 5625) (/ -1 12343) -> -8.10175808150369e-05) ((332 . 5625) (/ -1 12344) -> -8.10110174983798e-05) ((333 . 5625) (/ -1 12345) -> -8.10044552450385e-05) ((334 . 5625) (/ -1 12346) -> -8.09978940547546e-05) ((335 . 5625) (/ -1 12347) -> -8.09913339272698e-05) ((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) -> 8.10175808150369e-05) ((342 . 5625) (/ 1 12344) -> 8.10110174983798e-05) ((343 . 5625) (/ 1 12345) -> 8.10044552450385e-05) ((344 . 5625) (/ 1 12346) -> 8.09978940547546e-05) ((345 . 5625) (/ 1 12347) -> 8.09913339272698e-05) ((346 . 5625) (/ 2 12343) -> 0.000162035161630074) ((347 . 5625) (/ 2 12344) -> 0.00016202203499676) ((348 . 5625) (/ 2 12345) -> 0.000162008910490077) ((349 . 5625) (/ 2 12346) -> 0.000161995788109509) ((350 . 5625) (/ 2 12347) -> 0.00016198266785454) ((351 . 5625) (/ -2 4294967294) -> -4.6566128752458e-10) ((352 . 5625) (/ -2 4294967295) -> -4.65661287416159e-10) ((353 . 5625) (/ -2 4294967296) -> -4.65661287307739e-10) ((354 . 5625) (/ -2 4294967297) -> -4.65661287199319e-10) ((355 . 5625) (/ -2 4294967298) -> -4.65661287090899e-10) ((356 . 5625) (/ -1 4294967294) -> -2.3283064376229e-10) ((357 . 5625) (/ -1 4294967295) -> -2.3283064370808e-10) ((358 . 5625) (/ -1 4294967296) -> -2.3283064365387e-10) ((359 . 5625) (/ -1 4294967297) -> -2.3283064359966e-10) ((360 . 5625) (/ -1 4294967298) -> -2.32830643545449e-10) ((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) -> 2.3283064376229e-10) ((367 . 5625) (/ 1 4294967295) -> 2.3283064370808e-10) ((368 . 5625) (/ 1 4294967296) -> 2.3283064365387e-10) ((369 . 5625) (/ 1 4294967297) -> 2.3283064359966e-10) ((370 . 5625) (/ 1 4294967298) -> 2.32830643545449e-10) ((371 . 5625) (/ 2 4294967294) -> 4.6566128752458e-10) ((372 . 5625) (/ 2 4294967295) -> 4.65661287416159e-10) ((373 . 5625) (/ 2 4294967296) -> 4.65661287307739e-10) ((374 . 5625) (/ 2 4294967297) -> 4.65661287199319e-10) ((375 . 5625) (/ 2 4294967298) -> 4.65661287090899e-10) ((376 . 5625) (/ -1 -2) -> 0.5) ((377 . 5625) (/ -1 -1) -> 1) ((378 . 5625) (/ -1 0) -> "division by zero") ((379 . 5625) (/ -1 1) -> -1) ((380 . 5625) (/ -1 2) -> -0.5) ((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) -> -0.5) ((387 . 5625) (/ 1 -1) -> -1) ((388 . 5625) (/ 1 0) -> "division by zero") ((389 . 5625) (/ 1 1) -> 1) ((390 . 5625) (/ 1 2) -> 0.5) ((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) -> -1.5) ((397 . 5625) (/ 3 -1) -> -3) ((398 . 5625) (/ 3 0) -> "division by zero") ((399 . 5625) (/ 3 1) -> 3) ((400 . 5625) (/ 3 2) -> 1.5) ((401 . 5625) (/ -1 -1) -> 1) ((402 . 5625) (/ -1 0) -> "division by zero") ((403 . 5625) (/ -1 1) -> -1) ((404 . 5625) (/ -1 2) -> -0.5) ((405 . 5625) (/ -1 3) -> -0.333333333333333) ((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) -> 0.5) ((415 . 5625) (/ 1 3) -> 0.333333333333333) ((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) -> 0.666666666666667) ((421 . 5625) (/ 3 -1) -> -3) ((422 . 5625) (/ 3 0) -> "division by zero") ((423 . 5625) (/ 3 1) -> 3) ((424 . 5625) (/ 3 2) -> 1.5) ((425 . 5625) (/ 3 3) -> 1) ((426 . 5625) (/ -1 -3) -> 0.333333333333333) ((427 . 5625) (/ -1 -2) -> 0.5) ((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) -> -0.333333333333333) ((437 . 5625) (/ 1 -2) -> -0.5) ((438 . 5625) (/ 1 -1) -> -1) ((439 . 5625) (/ 1 0) -> "division by zero") ((440 . 5625) (/ 1 1) -> 1) ((441 . 5625) (/ 2 -3) -> -0.666666666666667) ((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) -> -1.5) ((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) -> -0.5) ((454 . 5625) (/ -1 3) -> -0.333333333333333) ((455 . 5625) (/ -1 4) -> -0.25) ((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) -> 0.5) ((464 . 5625) (/ 1 3) -> 0.333333333333333) ((465 . 5625) (/ 1 4) -> 0.25) ((466 . 5625) (/ 2 0) -> "division by zero") ((467 . 5625) (/ 2 1) -> 2) ((468 . 5625) (/ 2 2) -> 1) ((469 . 5625) (/ 2 3) -> 0.666666666666667) ((470 . 5625) (/ 2 4) -> 0.5) ((471 . 5625) (/ 3 0) -> "division by zero") ((472 . 5625) (/ 3 1) -> 3) ((473 . 5625) (/ 3 2) -> 1.5) ((474 . 5625) (/ 3 3) -> 1) ((475 . 5625) (/ 3 4) -> 0.75) ((476 . 5625) (/ -1 -4) -> 0.25) ((477 . 5625) (/ -1 -3) -> 0.333333333333333) ((478 . 5625) (/ -1 -2) -> 0.5) ((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) -> -0.25) ((487 . 5625) (/ 1 -3) -> -0.333333333333333) ((488 . 5625) (/ 1 -2) -> -0.5) ((489 . 5625) (/ 1 -1) -> -1) ((490 . 5625) (/ 1 0) -> "division by zero") ((491 . 5625) (/ 2 -4) -> -0.5) ((492 . 5625) (/ 2 -3) -> -0.666666666666667) ((493 . 5625) (/ 2 -2) -> -1) ((494 . 5625) (/ 2 -1) -> -2) ((495 . 5625) (/ 2 0) -> "division by zero") ((496 . 5625) (/ 3 -4) -> -0.75) ((497 . 5625) (/ 3 -3) -> -1) ((498 . 5625) (/ 3 -2) -> -1.5) ((499 . 5625) (/ 3 -1) -> -3) ((500 . 5625) (/ 3 0) -> "division by zero") ((501 . 5625) (/ -1 4611686018427387901) -> -2.16840434497101e-19) ((502 . 5625) (/ -1 4611686018427387902) -> -2.16840434497101e-19) ((503 . 5625) (/ -1 4611686018427387903) -> -2.16840434497101e-19) ((504 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((505 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((506 . 5625) (/ 0 4611686018427387901) -> 0) ((507 . 5625) (/ 0 4611686018427387902) -> 0) ((508 . 5625) (/ 0 4611686018427387903) -> 0) ((509 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((510 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((511 . 5625) (/ 1 4611686018427387901) -> 2.16840434497101e-19) ((512 . 5625) (/ 1 4611686018427387902) -> 2.16840434497101e-19) ((513 . 5625) (/ 1 4611686018427387903) -> 2.16840434497101e-19) ((514 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((515 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((516 . 5625) (/ 2 4611686018427387901) -> 4.33680868994202e-19) ((517 . 5625) (/ 2 4611686018427387902) -> 4.33680868994202e-19) ((518 . 5625) (/ 2 4611686018427387903) -> 4.33680868994202e-19) ((519 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((520 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((521 . 5625) (/ 3 4611686018427387901) -> 6.50521303491303e-19) ((522 . 5625) (/ 3 4611686018427387902) -> 6.50521303491303e-19) ((523 . 5625) (/ 3 4611686018427387903) -> 6.50521303491303e-19) ((524 . 5625) (/ 3 4.61168601842739e+18) -> 6.50521303491303e-19) ((525 . 5625) (/ 3 4.61168601842739e+18) -> 6.50521303491303e-19) ((526 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((527 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((528 . 5625) (/ -1 -4611686018427387904) -> 2.16840434497101e-19) ((529 . 5625) (/ -1 -4611686018427387903) -> 2.16840434497101e-19) ((530 . 5625) (/ -1 -4611686018427387902) -> 2.16840434497101e-19) ((531 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((532 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((533 . 5625) (/ 0 -4611686018427387904) -> 0) ((534 . 5625) (/ 0 -4611686018427387903) -> 0) ((535 . 5625) (/ 0 -4611686018427387902) -> 0) ((536 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((537 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((538 . 5625) (/ 1 -4611686018427387904) -> -2.16840434497101e-19) ((539 . 5625) (/ 1 -4611686018427387903) -> -2.16840434497101e-19) ((540 . 5625) (/ 1 -4611686018427387902) -> -2.16840434497101e-19) ((541 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((542 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((543 . 5625) (/ 2 -4611686018427387904) -> -4.33680868994202e-19) ((544 . 5625) (/ 2 -4611686018427387903) -> -4.33680868994202e-19) ((545 . 5625) (/ 2 -4611686018427387902) -> -4.33680868994202e-19) ((546 . 5625) (/ 3 -4.61168601842739e+18) -> -6.50521303491303e-19) ((547 . 5625) (/ 3 -4.61168601842739e+18) -> -6.50521303491303e-19) ((548 . 5625) (/ 3 -4611686018427387904) -> -6.50521303491303e-19) ((549 . 5625) (/ 3 -4611686018427387903) -> -6.50521303491303e-19) ((550 . 5625) (/ 3 -4611686018427387902) -> -6.50521303491303e-19) ((551 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((552 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((553 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((554 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((555 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((556 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((557 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((558 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((559 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((560 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((561 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((562 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((563 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((564 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((565 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((566 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((567 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((568 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((569 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((570 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((571 . 5625) (/ 3 4.61168601842739e+18) -> 6.50521303491303e-19) ((572 . 5625) (/ 3 4.61168601842739e+18) -> 6.50521303491303e-19) ((573 . 5625) (/ 3 4.61168601842739e+18) -> 6.50521303491303e-19) ((574 . 5625) (/ 3 4.61168601842739e+18) -> 6.50521303491303e-19) ((575 . 5625) (/ 3 4.61168601842739e+18) -> 6.50521303491303e-19) ((576 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((577 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((578 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((579 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((580 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((581 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((582 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((583 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((584 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((585 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((586 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((587 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((588 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((589 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((590 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((591 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((592 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((593 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((594 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((595 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((596 . 5625) (/ 3 -4.61168601842739e+18) -> -6.50521303491303e-19) ((597 . 5625) (/ 3 -4.61168601842739e+18) -> -6.50521303491303e-19) ((598 . 5625) (/ 3 -4.61168601842739e+18) -> -6.50521303491303e-19) ((599 . 5625) (/ 3 -4.61168601842739e+18) -> -6.50521303491303e-19) ((600 . 5625) (/ 3 -4.61168601842739e+18) -> -6.50521303491303e-19) ((601 . 5625) (/ -1 1103515243) -> -9.06195003959723e-10) ((602 . 5625) (/ -1 1103515244) -> -9.06195003138534e-10) ((603 . 5625) (/ -1 1103515245) -> -9.06195002317345e-10) ((604 . 5625) (/ -1 1103515246) -> -9.06195001496155e-10) ((605 . 5625) (/ -1 1103515247) -> -9.06195000674966e-10) ((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) -> 9.06195003959723e-10) ((612 . 5625) (/ 1 1103515244) -> 9.06195003138534e-10) ((613 . 5625) (/ 1 1103515245) -> 9.06195002317345e-10) ((614 . 5625) (/ 1 1103515246) -> 9.06195001496155e-10) ((615 . 5625) (/ 1 1103515247) -> 9.06195000674966e-10) ((616 . 5625) (/ 2 1103515243) -> 1.81239000791945e-09) ((617 . 5625) (/ 2 1103515244) -> 1.81239000627707e-09) ((618 . 5625) (/ 2 1103515245) -> 1.81239000463469e-09) ((619 . 5625) (/ 2 1103515246) -> 1.81239000299231e-09) ((620 . 5625) (/ 2 1103515247) -> 1.81239000134993e-09) ((621 . 5625) (/ 3 1103515243) -> 2.71858501187917e-09) ((622 . 5625) (/ 3 1103515244) -> 2.7185850094156e-09) ((623 . 5625) (/ 3 1103515245) -> 2.71858500695203e-09) ((624 . 5625) (/ 3 1103515246) -> 2.71858500448847e-09) ((625 . 5625) (/ 3 1103515247) -> 2.7185850020249e-09) ((626 . 5625) (/ -1 631629063) -> -1.58320770619765e-09) ((627 . 5625) (/ -1 631629064) -> -1.5832077036911e-09) ((628 . 5625) (/ -1 631629065) -> -1.58320770118456e-09) ((629 . 5625) (/ -1 631629066) -> -1.58320769867801e-09) ((630 . 5625) (/ -1 631629067) -> -1.58320769617146e-09) ((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.58320770619765e-09) ((637 . 5625) (/ 1 631629064) -> 1.5832077036911e-09) ((638 . 5625) (/ 1 631629065) -> 1.58320770118456e-09) ((639 . 5625) (/ 1 631629066) -> 1.58320769867801e-09) ((640 . 5625) (/ 1 631629067) -> 1.58320769617146e-09) ((641 . 5625) (/ 2 631629063) -> 3.1664154123953e-09) ((642 . 5625) (/ 2 631629064) -> 3.1664154073822e-09) ((643 . 5625) (/ 2 631629065) -> 3.16641540236911e-09) ((644 . 5625) (/ 2 631629066) -> 3.16641539735602e-09) ((645 . 5625) (/ 2 631629067) -> 3.16641539234292e-09) ((646 . 5625) (/ 3 631629063) -> 4.74962311859295e-09) ((647 . 5625) (/ 3 631629064) -> 4.74962311107331e-09) ((648 . 5625) (/ 3 631629065) -> 4.74962310355367e-09) ((649 . 5625) (/ 3 631629066) -> 4.74962309603403e-09) ((650 . 5625) (/ 3 631629067) -> 4.74962308851439e-09) ((651 . 5625) (/ -1 9007199254740990) -> -1.11022302462516e-16) ((652 . 5625) (/ -1 9007199254740991) -> -1.11022302462516e-16) ((653 . 5625) (/ -1 9007199254740992) -> -1.11022302462516e-16) ((654 . 5625) (/ -1 9007199254740993) -> -1.11022302462516e-16) ((655 . 5625) (/ -1 9007199254740994) -> -1.11022302462516e-16) ((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.11022302462516e-16) ((662 . 5625) (/ 1 9007199254740991) -> 1.11022302462516e-16) ((663 . 5625) (/ 1 9007199254740992) -> 1.11022302462516e-16) ((664 . 5625) (/ 1 9007199254740993) -> 1.11022302462516e-16) ((665 . 5625) (/ 1 9007199254740994) -> 1.11022302462516e-16) ((666 . 5625) (/ 2 9007199254740990) -> 2.22044604925031e-16) ((667 . 5625) (/ 2 9007199254740991) -> 2.22044604925031e-16) ((668 . 5625) (/ 2 9007199254740992) -> 2.22044604925031e-16) ((669 . 5625) (/ 2 9007199254740993) -> 2.22044604925031e-16) ((670 . 5625) (/ 2 9007199254740994) -> 2.22044604925031e-16) ((671 . 5625) (/ 3 9007199254740990) -> 3.33066907387547e-16) ((672 . 5625) (/ 3 9007199254740991) -> 3.33066907387547e-16) ((673 . 5625) (/ 3 9007199254740992) -> 3.33066907387547e-16) ((674 . 5625) (/ 3 9007199254740993) -> 3.33066907387547e-16) ((675 . 5625) (/ 3 9007199254740994) -> 3.33066907387547e-16) ((676 . 5625) (/ -1 -9007199254740994) -> 1.11022302462516e-16) ((677 . 5625) (/ -1 -9007199254740993) -> 1.11022302462516e-16) ((678 . 5625) (/ -1 -9007199254740992) -> 1.11022302462516e-16) ((679 . 5625) (/ -1 -9007199254740991) -> 1.11022302462516e-16) ((680 . 5625) (/ -1 -9007199254740990) -> 1.11022302462516e-16) ((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.11022302462516e-16) ((687 . 5625) (/ 1 -9007199254740993) -> -1.11022302462516e-16) ((688 . 5625) (/ 1 -9007199254740992) -> -1.11022302462516e-16) ((689 . 5625) (/ 1 -9007199254740991) -> -1.11022302462516e-16) ((690 . 5625) (/ 1 -9007199254740990) -> -1.11022302462516e-16) ((691 . 5625) (/ 2 -9007199254740994) -> -2.22044604925031e-16) ((692 . 5625) (/ 2 -9007199254740993) -> -2.22044604925031e-16) ((693 . 5625) (/ 2 -9007199254740992) -> -2.22044604925031e-16) ((694 . 5625) (/ 2 -9007199254740991) -> -2.22044604925031e-16) ((695 . 5625) (/ 2 -9007199254740990) -> -2.22044604925031e-16) ((696 . 5625) (/ 3 -9007199254740994) -> -3.33066907387547e-16) ((697 . 5625) (/ 3 -9007199254740993) -> -3.33066907387547e-16) ((698 . 5625) (/ 3 -9007199254740992) -> -3.33066907387547e-16) ((699 . 5625) (/ 3 -9007199254740991) -> -3.33066907387547e-16) ((700 . 5625) (/ 3 -9007199254740990) -> -3.33066907387547e-16) ((701 . 5625) (/ -1 12343) -> -8.10175808150369e-05) ((702 . 5625) (/ -1 12344) -> -8.10110174983798e-05) ((703 . 5625) (/ -1 12345) -> -8.10044552450385e-05) ((704 . 5625) (/ -1 12346) -> -8.09978940547546e-05) ((705 . 5625) (/ -1 12347) -> -8.09913339272698e-05) ((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) -> 8.10175808150369e-05) ((712 . 5625) (/ 1 12344) -> 8.10110174983798e-05) ((713 . 5625) (/ 1 12345) -> 8.10044552450385e-05) ((714 . 5625) (/ 1 12346) -> 8.09978940547546e-05) ((715 . 5625) (/ 1 12347) -> 8.09913339272698e-05) ((716 . 5625) (/ 2 12343) -> 0.000162035161630074) ((717 . 5625) (/ 2 12344) -> 0.00016202203499676) ((718 . 5625) (/ 2 12345) -> 0.000162008910490077) ((719 . 5625) (/ 2 12346) -> 0.000161995788109509) ((720 . 5625) (/ 2 12347) -> 0.00016198266785454) ((721 . 5625) (/ 3 12343) -> 0.000243052742445111) ((722 . 5625) (/ 3 12344) -> 0.000243033052495139) ((723 . 5625) (/ 3 12345) -> 0.000243013365735115) ((724 . 5625) (/ 3 12346) -> 0.000242993682164264) ((725 . 5625) (/ 3 12347) -> 0.000242974001781809) ((726 . 5625) (/ -1 4294967294) -> -2.3283064376229e-10) ((727 . 5625) (/ -1 4294967295) -> -2.3283064370808e-10) ((728 . 5625) (/ -1 4294967296) -> -2.3283064365387e-10) ((729 . 5625) (/ -1 4294967297) -> -2.3283064359966e-10) ((730 . 5625) (/ -1 4294967298) -> -2.32830643545449e-10) ((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) -> 2.3283064376229e-10) ((737 . 5625) (/ 1 4294967295) -> 2.3283064370808e-10) ((738 . 5625) (/ 1 4294967296) -> 2.3283064365387e-10) ((739 . 5625) (/ 1 4294967297) -> 2.3283064359966e-10) ((740 . 5625) (/ 1 4294967298) -> 2.32830643545449e-10) ((741 . 5625) (/ 2 4294967294) -> 4.6566128752458e-10) ((742 . 5625) (/ 2 4294967295) -> 4.65661287416159e-10) ((743 . 5625) (/ 2 4294967296) -> 4.65661287307739e-10) ((744 . 5625) (/ 2 4294967297) -> 4.65661287199319e-10) ((745 . 5625) (/ 2 4294967298) -> 4.65661287090899e-10) ((746 . 5625) (/ 3 4294967294) -> 6.9849193128687e-10) ((747 . 5625) (/ 3 4294967295) -> 6.98491931124239e-10) ((748 . 5625) (/ 3 4294967296) -> 6.98491930961609e-10) ((749 . 5625) (/ 3 4294967297) -> 6.98491930798979e-10) ((750 . 5625) (/ 3 4294967298) -> 6.98491930636348e-10) ((751 . 5625) (/ -3 -2) -> 1.5) ((752 . 5625) (/ -3 -1) -> 3) ((753 . 5625) (/ -3 0) -> "division by zero") ((754 . 5625) (/ -3 1) -> -3) ((755 . 5625) (/ -3 2) -> -1.5) ((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) -> 0.5) ((762 . 5625) (/ -1 -1) -> 1) ((763 . 5625) (/ -1 0) -> "division by zero") ((764 . 5625) (/ -1 1) -> -1) ((765 . 5625) (/ -1 2) -> -0.5) ((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) -> -0.5) ((772 . 5625) (/ 1 -1) -> -1) ((773 . 5625) (/ 1 0) -> "division by zero") ((774 . 5625) (/ 1 1) -> 1) ((775 . 5625) (/ 1 2) -> 0.5) ((776 . 5625) (/ -3 -1) -> 3) ((777 . 5625) (/ -3 0) -> "division by zero") ((778 . 5625) (/ -3 1) -> -3) ((779 . 5625) (/ -3 2) -> -1.5) ((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) -> -0.666666666666667) ((786 . 5625) (/ -1 -1) -> 1) ((787 . 5625) (/ -1 0) -> "division by zero") ((788 . 5625) (/ -1 1) -> -1) ((789 . 5625) (/ -1 2) -> -0.5) ((790 . 5625) (/ -1 3) -> -0.333333333333333) ((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) -> 0.5) ((800 . 5625) (/ 1 3) -> 0.333333333333333) ((801 . 5625) (/ -3 -3) -> 1) ((802 . 5625) (/ -3 -2) -> 1.5) ((803 . 5625) (/ -3 -1) -> 3) ((804 . 5625) (/ -3 0) -> "division by zero") ((805 . 5625) (/ -3 1) -> -3) ((806 . 5625) (/ -2 -3) -> 0.666666666666667) ((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) -> 0.333333333333333) ((812 . 5625) (/ -1 -2) -> 0.5) ((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) -> -0.333333333333333) ((822 . 5625) (/ 1 -2) -> -0.5) ((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) -> -1.5) ((829 . 5625) (/ -3 3) -> -1) ((830 . 5625) (/ -3 4) -> -0.75) ((831 . 5625) (/ -2 0) -> "division by zero") ((832 . 5625) (/ -2 1) -> -2) ((833 . 5625) (/ -2 2) -> -1) ((834 . 5625) (/ -2 3) -> -0.666666666666667) ((835 . 5625) (/ -2 4) -> -0.5) ((836 . 5625) (/ -1 0) -> "division by zero") ((837 . 5625) (/ -1 1) -> -1) ((838 . 5625) (/ -1 2) -> -0.5) ((839 . 5625) (/ -1 3) -> -0.333333333333333) ((840 . 5625) (/ -1 4) -> -0.25) ((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) -> 0.5) ((849 . 5625) (/ 1 3) -> 0.333333333333333) ((850 . 5625) (/ 1 4) -> 0.25) ((851 . 5625) (/ -3 -4) -> 0.75) ((852 . 5625) (/ -3 -3) -> 1) ((853 . 5625) (/ -3 -2) -> 1.5) ((854 . 5625) (/ -3 -1) -> 3) ((855 . 5625) (/ -3 0) -> "division by zero") ((856 . 5625) (/ -2 -4) -> 0.5) ((857 . 5625) (/ -2 -3) -> 0.666666666666667) ((858 . 5625) (/ -2 -2) -> 1) ((859 . 5625) (/ -2 -1) -> 2) ((860 . 5625) (/ -2 0) -> "division by zero") ((861 . 5625) (/ -1 -4) -> 0.25) ((862 . 5625) (/ -1 -3) -> 0.333333333333333) ((863 . 5625) (/ -1 -2) -> 0.5) ((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) -> -0.25) ((872 . 5625) (/ 1 -3) -> -0.333333333333333) ((873 . 5625) (/ 1 -2) -> -0.5) ((874 . 5625) (/ 1 -1) -> -1) ((875 . 5625) (/ 1 0) -> "division by zero") ((876 . 5625) (/ -3 4611686018427387901) -> -6.50521303491303e-19) ((877 . 5625) (/ -3 4611686018427387902) -> -6.50521303491303e-19) ((878 . 5625) (/ -3 4611686018427387903) -> -6.50521303491303e-19) ((879 . 5625) (/ -3 4.61168601842739e+18) -> -6.50521303491303e-19) ((880 . 5625) (/ -3 4.61168601842739e+18) -> -6.50521303491303e-19) ((881 . 5625) (/ -2 4611686018427387901) -> -4.33680868994202e-19) ((882 . 5625) (/ -2 4611686018427387902) -> -4.33680868994202e-19) ((883 . 5625) (/ -2 4611686018427387903) -> -4.33680868994202e-19) ((884 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((885 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((886 . 5625) (/ -1 4611686018427387901) -> -2.16840434497101e-19) ((887 . 5625) (/ -1 4611686018427387902) -> -2.16840434497101e-19) ((888 . 5625) (/ -1 4611686018427387903) -> -2.16840434497101e-19) ((889 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((890 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((891 . 5625) (/ 0 4611686018427387901) -> 0) ((892 . 5625) (/ 0 4611686018427387902) -> 0) ((893 . 5625) (/ 0 4611686018427387903) -> 0) ((894 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((895 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((896 . 5625) (/ 1 4611686018427387901) -> 2.16840434497101e-19) ((897 . 5625) (/ 1 4611686018427387902) -> 2.16840434497101e-19) ((898 . 5625) (/ 1 4611686018427387903) -> 2.16840434497101e-19) ((899 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((900 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((901 . 5625) (/ -3 -4.61168601842739e+18) -> 6.50521303491303e-19) ((902 . 5625) (/ -3 -4.61168601842739e+18) -> 6.50521303491303e-19) ((903 . 5625) (/ -3 -4611686018427387904) -> 6.50521303491303e-19) ((904 . 5625) (/ -3 -4611686018427387903) -> 6.50521303491303e-19) ((905 . 5625) (/ -3 -4611686018427387902) -> 6.50521303491303e-19) ((906 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((907 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((908 . 5625) (/ -2 -4611686018427387904) -> 4.33680868994202e-19) ((909 . 5625) (/ -2 -4611686018427387903) -> 4.33680868994202e-19) ((910 . 5625) (/ -2 -4611686018427387902) -> 4.33680868994202e-19) ((911 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((912 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((913 . 5625) (/ -1 -4611686018427387904) -> 2.16840434497101e-19) ((914 . 5625) (/ -1 -4611686018427387903) -> 2.16840434497101e-19) ((915 . 5625) (/ -1 -4611686018427387902) -> 2.16840434497101e-19) ((916 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((917 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((918 . 5625) (/ 0 -4611686018427387904) -> 0) ((919 . 5625) (/ 0 -4611686018427387903) -> 0) ((920 . 5625) (/ 0 -4611686018427387902) -> 0) ((921 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((922 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((923 . 5625) (/ 1 -4611686018427387904) -> -2.16840434497101e-19) ((924 . 5625) (/ 1 -4611686018427387903) -> -2.16840434497101e-19) ((925 . 5625) (/ 1 -4611686018427387902) -> -2.16840434497101e-19) ((926 . 5625) (/ -3 4.61168601842739e+18) -> -6.50521303491303e-19) ((927 . 5625) (/ -3 4.61168601842739e+18) -> -6.50521303491303e-19) ((928 . 5625) (/ -3 4.61168601842739e+18) -> -6.50521303491303e-19) ((929 . 5625) (/ -3 4.61168601842739e+18) -> -6.50521303491303e-19) ((930 . 5625) (/ -3 4.61168601842739e+18) -> -6.50521303491303e-19) ((931 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((932 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((933 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((934 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((935 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((936 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((937 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((938 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((939 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((940 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((941 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((942 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((943 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((944 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((945 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((946 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((947 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((948 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((949 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((950 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((951 . 5625) (/ -3 -4.61168601842739e+18) -> 6.50521303491303e-19) ((952 . 5625) (/ -3 -4.61168601842739e+18) -> 6.50521303491303e-19) ((953 . 5625) (/ -3 -4.61168601842739e+18) -> 6.50521303491303e-19) ((954 . 5625) (/ -3 -4.61168601842739e+18) -> 6.50521303491303e-19) ((955 . 5625) (/ -3 -4.61168601842739e+18) -> 6.50521303491303e-19) ((956 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((957 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((958 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((959 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((960 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((961 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((962 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((963 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((964 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((965 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((966 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((967 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((968 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((969 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((970 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((971 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((972 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((973 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((974 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((975 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((976 . 5625) (/ -3 1103515243) -> -2.71858501187917e-09) ((977 . 5625) (/ -3 1103515244) -> -2.7185850094156e-09) ((978 . 5625) (/ -3 1103515245) -> -2.71858500695203e-09) ((979 . 5625) (/ -3 1103515246) -> -2.71858500448847e-09) ((980 . 5625) (/ -3 1103515247) -> -2.7185850020249e-09) ((981 . 5625) (/ -2 1103515243) -> -1.81239000791945e-09) ((982 . 5625) (/ -2 1103515244) -> -1.81239000627707e-09) ((983 . 5625) (/ -2 1103515245) -> -1.81239000463469e-09) ((984 . 5625) (/ -2 1103515246) -> -1.81239000299231e-09) ((985 . 5625) (/ -2 1103515247) -> -1.81239000134993e-09) ((986 . 5625) (/ -1 1103515243) -> -9.06195003959723e-10) ((987 . 5625) (/ -1 1103515244) -> -9.06195003138534e-10) ((988 . 5625) (/ -1 1103515245) -> -9.06195002317345e-10) ((989 . 5625) (/ -1 1103515246) -> -9.06195001496155e-10) ((990 . 5625) (/ -1 1103515247) -> -9.06195000674966e-10) ((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) -> 9.06195003959723e-10) ((997 . 5625) (/ 1 1103515244) -> 9.06195003138534e-10) ((998 . 5625) (/ 1 1103515245) -> 9.06195002317345e-10) ((999 . 5625) (/ 1 1103515246) -> 9.06195001496155e-10) ((1000 . 5625) (/ 1 1103515247) -> 9.06195000674966e-10) ((1001 . 5625) (/ -3 631629063) -> -4.74962311859295e-09) ((1002 . 5625) (/ -3 631629064) -> -4.74962311107331e-09) ((1003 . 5625) (/ -3 631629065) -> -4.74962310355367e-09) ((1004 . 5625) (/ -3 631629066) -> -4.74962309603403e-09) ((1005 . 5625) (/ -3 631629067) -> -4.74962308851439e-09) ((1006 . 5625) (/ -2 631629063) -> -3.1664154123953e-09) ((1007 . 5625) (/ -2 631629064) -> -3.1664154073822e-09) ((1008 . 5625) (/ -2 631629065) -> -3.16641540236911e-09) ((1009 . 5625) (/ -2 631629066) -> -3.16641539735602e-09) ((1010 . 5625) (/ -2 631629067) -> -3.16641539234292e-09) ((1011 . 5625) (/ -1 631629063) -> -1.58320770619765e-09) ((1012 . 5625) (/ -1 631629064) -> -1.5832077036911e-09) ((1013 . 5625) (/ -1 631629065) -> -1.58320770118456e-09) ((1014 . 5625) (/ -1 631629066) -> -1.58320769867801e-09) ((1015 . 5625) (/ -1 631629067) -> -1.58320769617146e-09) ((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.58320770619765e-09) ((1022 . 5625) (/ 1 631629064) -> 1.5832077036911e-09) ((1023 . 5625) (/ 1 631629065) -> 1.58320770118456e-09) ((1024 . 5625) (/ 1 631629066) -> 1.58320769867801e-09) ((1025 . 5625) (/ 1 631629067) -> 1.58320769617146e-09) ((1026 . 5625) (/ -3 9007199254740990) -> -3.33066907387547e-16) ((1027 . 5625) (/ -3 9007199254740991) -> -3.33066907387547e-16) ((1028 . 5625) (/ -3 9007199254740992) -> -3.33066907387547e-16) ((1029 . 5625) (/ -3 9007199254740993) -> -3.33066907387547e-16) ((1030 . 5625) (/ -3 9007199254740994) -> -3.33066907387547e-16) ((1031 . 5625) (/ -2 9007199254740990) -> -2.22044604925031e-16) ((1032 . 5625) (/ -2 9007199254740991) -> -2.22044604925031e-16) ((1033 . 5625) (/ -2 9007199254740992) -> -2.22044604925031e-16) ((1034 . 5625) (/ -2 9007199254740993) -> -2.22044604925031e-16) ((1035 . 5625) (/ -2 9007199254740994) -> -2.22044604925031e-16) ((1036 . 5625) (/ -1 9007199254740990) -> -1.11022302462516e-16) ((1037 . 5625) (/ -1 9007199254740991) -> -1.11022302462516e-16) ((1038 . 5625) (/ -1 9007199254740992) -> -1.11022302462516e-16) ((1039 . 5625) (/ -1 9007199254740993) -> -1.11022302462516e-16) ((1040 . 5625) (/ -1 9007199254740994) -> -1.11022302462516e-16) ((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.11022302462516e-16) ((1047 . 5625) (/ 1 9007199254740991) -> 1.11022302462516e-16) ((1048 . 5625) (/ 1 9007199254740992) -> 1.11022302462516e-16) ((1049 . 5625) (/ 1 9007199254740993) -> 1.11022302462516e-16) ((1050 . 5625) (/ 1 9007199254740994) -> 1.11022302462516e-16) ((1051 . 5625) (/ -3 -9007199254740994) -> 3.33066907387547e-16) ((1052 . 5625) (/ -3 -9007199254740993) -> 3.33066907387547e-16) ((1053 . 5625) (/ -3 -9007199254740992) -> 3.33066907387547e-16) ((1054 . 5625) (/ -3 -9007199254740991) -> 3.33066907387547e-16) ((1055 . 5625) (/ -3 -9007199254740990) -> 3.33066907387547e-16) ((1056 . 5625) (/ -2 -9007199254740994) -> 2.22044604925031e-16) ((1057 . 5625) (/ -2 -9007199254740993) -> 2.22044604925031e-16) ((1058 . 5625) (/ -2 -9007199254740992) -> 2.22044604925031e-16) ((1059 . 5625) (/ -2 -9007199254740991) -> 2.22044604925031e-16) ((1060 . 5625) (/ -2 -9007199254740990) -> 2.22044604925031e-16) ((1061 . 5625) (/ -1 -9007199254740994) -> 1.11022302462516e-16) ((1062 . 5625) (/ -1 -9007199254740993) -> 1.11022302462516e-16) ((1063 . 5625) (/ -1 -9007199254740992) -> 1.11022302462516e-16) ((1064 . 5625) (/ -1 -9007199254740991) -> 1.11022302462516e-16) ((1065 . 5625) (/ -1 -9007199254740990) -> 1.11022302462516e-16) ((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.11022302462516e-16) ((1072 . 5625) (/ 1 -9007199254740993) -> -1.11022302462516e-16) ((1073 . 5625) (/ 1 -9007199254740992) -> -1.11022302462516e-16) ((1074 . 5625) (/ 1 -9007199254740991) -> -1.11022302462516e-16) ((1075 . 5625) (/ 1 -9007199254740990) -> -1.11022302462516e-16) ((1076 . 5625) (/ -3 12343) -> -0.000243052742445111) ((1077 . 5625) (/ -3 12344) -> -0.000243033052495139) ((1078 . 5625) (/ -3 12345) -> -0.000243013365735115) ((1079 . 5625) (/ -3 12346) -> -0.000242993682164264) ((1080 . 5625) (/ -3 12347) -> -0.000242974001781809) ((1081 . 5625) (/ -2 12343) -> -0.000162035161630074) ((1082 . 5625) (/ -2 12344) -> -0.00016202203499676) ((1083 . 5625) (/ -2 12345) -> -0.000162008910490077) ((1084 . 5625) (/ -2 12346) -> -0.000161995788109509) ((1085 . 5625) (/ -2 12347) -> -0.00016198266785454) ((1086 . 5625) (/ -1 12343) -> -8.10175808150369e-05) ((1087 . 5625) (/ -1 12344) -> -8.10110174983798e-05) ((1088 . 5625) (/ -1 12345) -> -8.10044552450385e-05) ((1089 . 5625) (/ -1 12346) -> -8.09978940547546e-05) ((1090 . 5625) (/ -1 12347) -> -8.09913339272698e-05) ((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) -> 8.10175808150369e-05) ((1097 . 5625) (/ 1 12344) -> 8.10110174983798e-05) ((1098 . 5625) (/ 1 12345) -> 8.10044552450385e-05) ((1099 . 5625) (/ 1 12346) -> 8.09978940547546e-05) ((1100 . 5625) (/ 1 12347) -> 8.09913339272698e-05) ((1101 . 5625) (/ -3 4294967294) -> -6.9849193128687e-10) ((1102 . 5625) (/ -3 4294967295) -> -6.98491931124239e-10) ((1103 . 5625) (/ -3 4294967296) -> -6.98491930961609e-10) ((1104 . 5625) (/ -3 4294967297) -> -6.98491930798979e-10) ((1105 . 5625) (/ -3 4294967298) -> -6.98491930636348e-10) ((1106 . 5625) (/ -2 4294967294) -> -4.6566128752458e-10) ((1107 . 5625) (/ -2 4294967295) -> -4.65661287416159e-10) ((1108 . 5625) (/ -2 4294967296) -> -4.65661287307739e-10) ((1109 . 5625) (/ -2 4294967297) -> -4.65661287199319e-10) ((1110 . 5625) (/ -2 4294967298) -> -4.65661287090899e-10) ((1111 . 5625) (/ -1 4294967294) -> -2.3283064376229e-10) ((1112 . 5625) (/ -1 4294967295) -> -2.3283064370808e-10) ((1113 . 5625) (/ -1 4294967296) -> -2.3283064365387e-10) ((1114 . 5625) (/ -1 4294967297) -> -2.3283064359966e-10) ((1115 . 5625) (/ -1 4294967298) -> -2.32830643545449e-10) ((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) -> 2.3283064376229e-10) ((1122 . 5625) (/ 1 4294967295) -> 2.3283064370808e-10) ((1123 . 5625) (/ 1 4294967296) -> 2.3283064365387e-10) ((1124 . 5625) (/ 1 4294967297) -> 2.3283064359966e-10) ((1125 . 5625) (/ 1 4294967298) -> 2.32830643545449e-10) ((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) -> -0.5) ((1132 . 5625) (/ 1 -1) -> -1) ((1133 . 5625) (/ 1 0) -> "division by zero") ((1134 . 5625) (/ 1 1) -> 1) ((1135 . 5625) (/ 1 2) -> 0.5) ((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) -> -1.5) ((1142 . 5625) (/ 3 -1) -> -3) ((1143 . 5625) (/ 3 0) -> "division by zero") ((1144 . 5625) (/ 3 1) -> 3) ((1145 . 5625) (/ 3 2) -> 1.5) ((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) -> 0.5) ((1160 . 5625) (/ 1 3) -> 0.333333333333333) ((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) -> 0.666666666666667) ((1166 . 5625) (/ 3 -1) -> -3) ((1167 . 5625) (/ 3 0) -> "division by zero") ((1168 . 5625) (/ 3 1) -> 3) ((1169 . 5625) (/ 3 2) -> 1.5) ((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) -> 1.33333333333333) ((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) -> -0.333333333333333) ((1182 . 5625) (/ 1 -2) -> -0.5) ((1183 . 5625) (/ 1 -1) -> -1) ((1184 . 5625) (/ 1 0) -> "division by zero") ((1185 . 5625) (/ 1 1) -> 1) ((1186 . 5625) (/ 2 -3) -> -0.666666666666667) ((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) -> -1.5) ((1193 . 5625) (/ 3 -1) -> -3) ((1194 . 5625) (/ 3 0) -> "division by zero") ((1195 . 5625) (/ 3 1) -> 3) ((1196 . 5625) (/ 4 -3) -> -1.33333333333333) ((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) -> 0.5) ((1209 . 5625) (/ 1 3) -> 0.333333333333333) ((1210 . 5625) (/ 1 4) -> 0.25) ((1211 . 5625) (/ 2 0) -> "division by zero") ((1212 . 5625) (/ 2 1) -> 2) ((1213 . 5625) (/ 2 2) -> 1) ((1214 . 5625) (/ 2 3) -> 0.666666666666667) ((1215 . 5625) (/ 2 4) -> 0.5) ((1216 . 5625) (/ 3 0) -> "division by zero") ((1217 . 5625) (/ 3 1) -> 3) ((1218 . 5625) (/ 3 2) -> 1.5) ((1219 . 5625) (/ 3 3) -> 1) ((1220 . 5625) (/ 3 4) -> 0.75) ((1221 . 5625) (/ 4 0) -> "division by zero") ((1222 . 5625) (/ 4 1) -> 4) ((1223 . 5625) (/ 4 2) -> 2) ((1224 . 5625) (/ 4 3) -> 1.33333333333333) ((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) -> -0.25) ((1232 . 5625) (/ 1 -3) -> -0.333333333333333) ((1233 . 5625) (/ 1 -2) -> -0.5) ((1234 . 5625) (/ 1 -1) -> -1) ((1235 . 5625) (/ 1 0) -> "division by zero") ((1236 . 5625) (/ 2 -4) -> -0.5) ((1237 . 5625) (/ 2 -3) -> -0.666666666666667) ((1238 . 5625) (/ 2 -2) -> -1) ((1239 . 5625) (/ 2 -1) -> -2) ((1240 . 5625) (/ 2 0) -> "division by zero") ((1241 . 5625) (/ 3 -4) -> -0.75) ((1242 . 5625) (/ 3 -3) -> -1) ((1243 . 5625) (/ 3 -2) -> -1.5) ((1244 . 5625) (/ 3 -1) -> -3) ((1245 . 5625) (/ 3 0) -> "division by zero") ((1246 . 5625) (/ 4 -4) -> -1) ((1247 . 5625) (/ 4 -3) -> -1.33333333333333) ((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 4.61168601842739e+18) -> 0.0) ((1255 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((1256 . 5625) (/ 1 4611686018427387901) -> 2.16840434497101e-19) ((1257 . 5625) (/ 1 4611686018427387902) -> 2.16840434497101e-19) ((1258 . 5625) (/ 1 4611686018427387903) -> 2.16840434497101e-19) ((1259 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((1260 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((1261 . 5625) (/ 2 4611686018427387901) -> 4.33680868994202e-19) ((1262 . 5625) (/ 2 4611686018427387902) -> 4.33680868994202e-19) ((1263 . 5625) (/ 2 4611686018427387903) -> 4.33680868994202e-19) ((1264 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((1265 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((1266 . 5625) (/ 3 4611686018427387901) -> 6.50521303491303e-19) ((1267 . 5625) (/ 3 4611686018427387902) -> 6.50521303491303e-19) ((1268 . 5625) (/ 3 4611686018427387903) -> 6.50521303491303e-19) ((1269 . 5625) (/ 3 4.61168601842739e+18) -> 6.50521303491303e-19) ((1270 . 5625) (/ 3 4.61168601842739e+18) -> 6.50521303491303e-19) ((1271 . 5625) (/ 4 4611686018427387901) -> 8.67361737988404e-19) ((1272 . 5625) (/ 4 4611686018427387902) -> 8.67361737988404e-19) ((1273 . 5625) (/ 4 4611686018427387903) -> 8.67361737988404e-19) ((1274 . 5625) (/ 4 4.61168601842739e+18) -> 8.67361737988404e-19) ((1275 . 5625) (/ 4 4.61168601842739e+18) -> 8.67361737988404e-19) ((1276 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((1277 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((1278 . 5625) (/ 0 -4611686018427387904) -> 0) ((1279 . 5625) (/ 0 -4611686018427387903) -> 0) ((1280 . 5625) (/ 0 -4611686018427387902) -> 0) ((1281 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((1282 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((1283 . 5625) (/ 1 -4611686018427387904) -> -2.16840434497101e-19) ((1284 . 5625) (/ 1 -4611686018427387903) -> -2.16840434497101e-19) ((1285 . 5625) (/ 1 -4611686018427387902) -> -2.16840434497101e-19) ((1286 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((1287 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((1288 . 5625) (/ 2 -4611686018427387904) -> -4.33680868994202e-19) ((1289 . 5625) (/ 2 -4611686018427387903) -> -4.33680868994202e-19) ((1290 . 5625) (/ 2 -4611686018427387902) -> -4.33680868994202e-19) ((1291 . 5625) (/ 3 -4.61168601842739e+18) -> -6.50521303491303e-19) ((1292 . 5625) (/ 3 -4.61168601842739e+18) -> -6.50521303491303e-19) ((1293 . 5625) (/ 3 -4611686018427387904) -> -6.50521303491303e-19) ((1294 . 5625) (/ 3 -4611686018427387903) -> -6.50521303491303e-19) ((1295 . 5625) (/ 3 -4611686018427387902) -> -6.50521303491303e-19) ((1296 . 5625) (/ 4 -4.61168601842739e+18) -> -8.67361737988404e-19) ((1297 . 5625) (/ 4 -4.61168601842739e+18) -> -8.67361737988404e-19) ((1298 . 5625) (/ 4 -4611686018427387904) -> -8.67361737988404e-19) ((1299 . 5625) (/ 4 -4611686018427387903) -> -8.67361737988404e-19) ((1300 . 5625) (/ 4 -4611686018427387902) -> -8.67361737988404e-19) ((1301 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((1302 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((1303 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((1304 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((1305 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((1306 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((1307 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((1308 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((1309 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((1310 . 5625) (/ 1 4.61168601842739e+18) -> 2.16840434497101e-19) ((1311 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((1312 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((1313 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((1314 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((1315 . 5625) (/ 2 4.61168601842739e+18) -> 4.33680868994202e-19) ((1316 . 5625) (/ 3 4.61168601842739e+18) -> 6.50521303491303e-19) ((1317 . 5625) (/ 3 4.61168601842739e+18) -> 6.50521303491303e-19) ((1318 . 5625) (/ 3 4.61168601842739e+18) -> 6.50521303491303e-19) ((1319 . 5625) (/ 3 4.61168601842739e+18) -> 6.50521303491303e-19) ((1320 . 5625) (/ 3 4.61168601842739e+18) -> 6.50521303491303e-19) ((1321 . 5625) (/ 4 4.61168601842739e+18) -> 8.67361737988404e-19) ((1322 . 5625) (/ 4 4.61168601842739e+18) -> 8.67361737988404e-19) ((1323 . 5625) (/ 4 4.61168601842739e+18) -> 8.67361737988404e-19) ((1324 . 5625) (/ 4 4.61168601842739e+18) -> 8.67361737988404e-19) ((1325 . 5625) (/ 4 4.61168601842739e+18) -> 8.67361737988404e-19) ((1326 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((1327 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((1328 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((1329 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((1330 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((1331 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((1332 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((1333 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((1334 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((1335 . 5625) (/ 1 -4.61168601842739e+18) -> -2.16840434497101e-19) ((1336 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((1337 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((1338 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((1339 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((1340 . 5625) (/ 2 -4.61168601842739e+18) -> -4.33680868994202e-19) ((1341 . 5625) (/ 3 -4.61168601842739e+18) -> -6.50521303491303e-19) ((1342 . 5625) (/ 3 -4.61168601842739e+18) -> -6.50521303491303e-19) ((1343 . 5625) (/ 3 -4.61168601842739e+18) -> -6.50521303491303e-19) ((1344 . 5625) (/ 3 -4.61168601842739e+18) -> -6.50521303491303e-19) ((1345 . 5625) (/ 3 -4.61168601842739e+18) -> -6.50521303491303e-19) ((1346 . 5625) (/ 4 -4.61168601842739e+18) -> -8.67361737988404e-19) ((1347 . 5625) (/ 4 -4.61168601842739e+18) -> -8.67361737988404e-19) ((1348 . 5625) (/ 4 -4.61168601842739e+18) -> -8.67361737988404e-19) ((1349 . 5625) (/ 4 -4.61168601842739e+18) -> -8.67361737988404e-19) ((1350 . 5625) (/ 4 -4.61168601842739e+18) -> -8.67361737988404e-19) ((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) -> 9.06195003959723e-10) ((1357 . 5625) (/ 1 1103515244) -> 9.06195003138534e-10) ((1358 . 5625) (/ 1 1103515245) -> 9.06195002317345e-10) ((1359 . 5625) (/ 1 1103515246) -> 9.06195001496155e-10) ((1360 . 5625) (/ 1 1103515247) -> 9.06195000674966e-10) ((1361 . 5625) (/ 2 1103515243) -> 1.81239000791945e-09) ((1362 . 5625) (/ 2 1103515244) -> 1.81239000627707e-09) ((1363 . 5625) (/ 2 1103515245) -> 1.81239000463469e-09) ((1364 . 5625) (/ 2 1103515246) -> 1.81239000299231e-09) ((1365 . 5625) (/ 2 1103515247) -> 1.81239000134993e-09) ((1366 . 5625) (/ 3 1103515243) -> 2.71858501187917e-09) ((1367 . 5625) (/ 3 1103515244) -> 2.7185850094156e-09) ((1368 . 5625) (/ 3 1103515245) -> 2.71858500695203e-09) ((1369 . 5625) (/ 3 1103515246) -> 2.71858500448847e-09) ((1370 . 5625) (/ 3 1103515247) -> 2.7185850020249e-09) ((1371 . 5625) (/ 4 1103515243) -> 3.62478001583889e-09) ((1372 . 5625) (/ 4 1103515244) -> 3.62478001255414e-09) ((1373 . 5625) (/ 4 1103515245) -> 3.62478000926938e-09) ((1374 . 5625) (/ 4 1103515246) -> 3.62478000598462e-09) ((1375 . 5625) (/ 4 1103515247) -> 3.62478000269986e-09) ((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.58320770619765e-09) ((1382 . 5625) (/ 1 631629064) -> 1.5832077036911e-09) ((1383 . 5625) (/ 1 631629065) -> 1.58320770118456e-09) ((1384 . 5625) (/ 1 631629066) -> 1.58320769867801e-09) ((1385 . 5625) (/ 1 631629067) -> 1.58320769617146e-09) ((1386 . 5625) (/ 2 631629063) -> 3.1664154123953e-09) ((1387 . 5625) (/ 2 631629064) -> 3.1664154073822e-09) ((1388 . 5625) (/ 2 631629065) -> 3.16641540236911e-09) ((1389 . 5625) (/ 2 631629066) -> 3.16641539735602e-09) ((1390 . 5625) (/ 2 631629067) -> 3.16641539234292e-09) ((1391 . 5625) (/ 3 631629063) -> 4.74962311859295e-09) ((1392 . 5625) (/ 3 631629064) -> 4.74962311107331e-09) ((1393 . 5625) (/ 3 631629065) -> 4.74962310355367e-09) ((1394 . 5625) (/ 3 631629066) -> 4.74962309603403e-09) ((1395 . 5625) (/ 3 631629067) -> 4.74962308851439e-09) ((1396 . 5625) (/ 4 631629063) -> 6.33283082479059e-09) ((1397 . 5625) (/ 4 631629064) -> 6.33283081476441e-09) ((1398 . 5625) (/ 4 631629065) -> 6.33283080473822e-09) ((1399 . 5625) (/ 4 631629066) -> 6.33283079471203e-09) ((1400 . 5625) (/ 4 631629067) -> 6.33283078468585e-09) ((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.11022302462516e-16) ((1407 . 5625) (/ 1 9007199254740991) -> 1.11022302462516e-16) ((1408 . 5625) (/ 1 9007199254740992) -> 1.11022302462516e-16) ((1409 . 5625) (/ 1 9007199254740993) -> 1.11022302462516e-16) ((1410 . 5625) (/ 1 9007199254740994) -> 1.11022302462516e-16) ((1411 . 5625) (/ 2 9007199254740990) -> 2.22044604925031e-16) ((1412 . 5625) (/ 2 9007199254740991) -> 2.22044604925031e-16) ((1413 . 5625) (/ 2 9007199254740992) -> 2.22044604925031e-16) ((1414 . 5625) (/ 2 9007199254740993) -> 2.22044604925031e-16) ((1415 . 5625) (/ 2 9007199254740994) -> 2.22044604925031e-16) ((1416 . 5625) (/ 3 9007199254740990) -> 3.33066907387547e-16) ((1417 . 5625) (/ 3 9007199254740991) -> 3.33066907387547e-16) ((1418 . 5625) (/ 3 9007199254740992) -> 3.33066907387547e-16) ((1419 . 5625) (/ 3 9007199254740993) -> 3.33066907387547e-16) ((1420 . 5625) (/ 3 9007199254740994) -> 3.33066907387547e-16) ((1421 . 5625) (/ 4 9007199254740990) -> 4.44089209850063e-16) ((1422 . 5625) (/ 4 9007199254740991) -> 4.44089209850063e-16) ((1423 . 5625) (/ 4 9007199254740992) -> 4.44089209850063e-16) ((1424 . 5625) (/ 4 9007199254740993) -> 4.44089209850063e-16) ((1425 . 5625) (/ 4 9007199254740994) -> 4.44089209850063e-16) ((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.11022302462516e-16) ((1432 . 5625) (/ 1 -9007199254740993) -> -1.11022302462516e-16) ((1433 . 5625) (/ 1 -9007199254740992) -> -1.11022302462516e-16) ((1434 . 5625) (/ 1 -9007199254740991) -> -1.11022302462516e-16) ((1435 . 5625) (/ 1 -9007199254740990) -> -1.11022302462516e-16) ((1436 . 5625) (/ 2 -9007199254740994) -> -2.22044604925031e-16) ((1437 . 5625) (/ 2 -9007199254740993) -> -2.22044604925031e-16) ((1438 . 5625) (/ 2 -9007199254740992) -> -2.22044604925031e-16) ((1439 . 5625) (/ 2 -9007199254740991) -> -2.22044604925031e-16) ((1440 . 5625) (/ 2 -9007199254740990) -> -2.22044604925031e-16) ((1441 . 5625) (/ 3 -9007199254740994) -> -3.33066907387547e-16) ((1442 . 5625) (/ 3 -9007199254740993) -> -3.33066907387547e-16) ((1443 . 5625) (/ 3 -9007199254740992) -> -3.33066907387547e-16) ((1444 . 5625) (/ 3 -9007199254740991) -> -3.33066907387547e-16) ((1445 . 5625) (/ 3 -9007199254740990) -> -3.33066907387547e-16) ((1446 . 5625) (/ 4 -9007199254740994) -> -4.44089209850063e-16) ((1447 . 5625) (/ 4 -9007199254740993) -> -4.44089209850063e-16) ((1448 . 5625) (/ 4 -9007199254740992) -> -4.44089209850063e-16) ((1449 . 5625) (/ 4 -9007199254740991) -> -4.44089209850063e-16) ((1450 . 5625) (/ 4 -9007199254740990) -> -4.44089209850063e-16) ((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) -> 8.10175808150369e-05) ((1457 . 5625) (/ 1 12344) -> 8.10110174983798e-05) ((1458 . 5625) (/ 1 12345) -> 8.10044552450385e-05) ((1459 . 5625) (/ 1 12346) -> 8.09978940547546e-05) ((1460 . 5625) (/ 1 12347) -> 8.09913339272698e-05) ((1461 . 5625) (/ 2 12343) -> 0.000162035161630074) ((1462 . 5625) (/ 2 12344) -> 0.00016202203499676) ((1463 . 5625) (/ 2 12345) -> 0.000162008910490077) ((1464 . 5625) (/ 2 12346) -> 0.000161995788109509) ((1465 . 5625) (/ 2 12347) -> 0.00016198266785454) ((1466 . 5625) (/ 3 12343) -> 0.000243052742445111) ((1467 . 5625) (/ 3 12344) -> 0.000243033052495139) ((1468 . 5625) (/ 3 12345) -> 0.000243013365735115) ((1469 . 5625) (/ 3 12346) -> 0.000242993682164264) ((1470 . 5625) (/ 3 12347) -> 0.000242974001781809) ((1471 . 5625) (/ 4 12343) -> 0.000324070323260147) ((1472 . 5625) (/ 4 12344) -> 0.000324044069993519) ((1473 . 5625) (/ 4 12345) -> 0.000324017820980154) ((1474 . 5625) (/ 4 12346) -> 0.000323991576219018) ((1475 . 5625) (/ 4 12347) -> 0.000323965335709079) ((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) -> 2.3283064376229e-10) ((1482 . 5625) (/ 1 4294967295) -> 2.3283064370808e-10) ((1483 . 5625) (/ 1 4294967296) -> 2.3283064365387e-10) ((1484 . 5625) (/ 1 4294967297) -> 2.3283064359966e-10) ((1485 . 5625) (/ 1 4294967298) -> 2.32830643545449e-10) ((1486 . 5625) (/ 2 4294967294) -> 4.6566128752458e-10) ((1487 . 5625) (/ 2 4294967295) -> 4.65661287416159e-10) ((1488 . 5625) (/ 2 4294967296) -> 4.65661287307739e-10) ((1489 . 5625) (/ 2 4294967297) -> 4.65661287199319e-10) ((1490 . 5625) (/ 2 4294967298) -> 4.65661287090899e-10) ((1491 . 5625) (/ 3 4294967294) -> 6.9849193128687e-10) ((1492 . 5625) (/ 3 4294967295) -> 6.98491931124239e-10) ((1493 . 5625) (/ 3 4294967296) -> 6.98491930961609e-10) ((1494 . 5625) (/ 3 4294967297) -> 6.98491930798979e-10) ((1495 . 5625) (/ 3 4294967298) -> 6.98491930636348e-10) ((1496 . 5625) (/ 4 4294967294) -> 9.31322575049159e-10) ((1497 . 5625) (/ 4 4294967295) -> 9.31322574832319e-10) ((1498 . 5625) (/ 4 4294967296) -> 9.31322574615479e-10) ((1499 . 5625) (/ 4 4294967297) -> 9.31322574398638e-10) ((1500 . 5625) (/ 4 4294967298) -> 9.31322574181798e-10) ((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) -> 1.5) ((1507 . 5625) (/ -3 -1) -> 3) ((1508 . 5625) (/ -3 0) -> "division by zero") ((1509 . 5625) (/ -3 1) -> -3) ((1510 . 5625) (/ -3 2) -> -1.5) ((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) -> 0.5) ((1517 . 5625) (/ -1 -1) -> 1) ((1518 . 5625) (/ -1 0) -> "division by zero") ((1519 . 5625) (/ -1 1) -> -1) ((1520 . 5625) (/ -1 2) -> -0.5) ((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) -> -1.33333333333333) ((1531 . 5625) (/ -3 -1) -> 3) ((1532 . 5625) (/ -3 0) -> "division by zero") ((1533 . 5625) (/ -3 1) -> -3) ((1534 . 5625) (/ -3 2) -> -1.5) ((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) -> -0.666666666666667) ((1541 . 5625) (/ -1 -1) -> 1) ((1542 . 5625) (/ -1 0) -> "division by zero") ((1543 . 5625) (/ -1 1) -> -1) ((1544 . 5625) (/ -1 2) -> -0.5) ((1545 . 5625) (/ -1 3) -> -0.333333333333333) ((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) -> 1.33333333333333) ((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) -> 1.5) ((1558 . 5625) (/ -3 -1) -> 3) ((1559 . 5625) (/ -3 0) -> "division by zero") ((1560 . 5625) (/ -3 1) -> -3) ((1561 . 5625) (/ -2 -3) -> 0.666666666666667) ((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) -> 0.333333333333333) ((1567 . 5625) (/ -1 -2) -> 0.5) ((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) -> -1.33333333333333) ((1580 . 5625) (/ -4 4) -> -1) ((1581 . 5625) (/ -3 0) -> "division by zero") ((1582 . 5625) (/ -3 1) -> -3) ((1583 . 5625) (/ -3 2) -> -1.5) ((1584 . 5625) (/ -3 3) -> -1) ((1585 . 5625) (/ -3 4) -> -0.75) ((1586 . 5625) (/ -2 0) -> "division by zero") ((1587 . 5625) (/ -2 1) -> -2) ((1588 . 5625) (/ -2 2) -> -1) ((1589 . 5625) (/ -2 3) -> -0.666666666666667) ((1590 . 5625) (/ -2 4) -> -0.5) ((1591 . 5625) (/ -1 0) -> "division by zero") ((1592 . 5625) (/ -1 1) -> -1) ((1593 . 5625) (/ -1 2) -> -0.5) ((1594 . 5625) (/ -1 3) -> -0.333333333333333) ((1595 . 5625) (/ -1 4) -> -0.25) ((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) -> 1.33333333333333) ((1603 . 5625) (/ -4 -2) -> 2) ((1604 . 5625) (/ -4 -1) -> 4) ((1605 . 5625) (/ -4 0) -> "division by zero") ((1606 . 5625) (/ -3 -4) -> 0.75) ((1607 . 5625) (/ -3 -3) -> 1) ((1608 . 5625) (/ -3 -2) -> 1.5) ((1609 . 5625) (/ -3 -1) -> 3) ((1610 . 5625) (/ -3 0) -> "division by zero") ((1611 . 5625) (/ -2 -4) -> 0.5) ((1612 . 5625) (/ -2 -3) -> 0.666666666666667) ((1613 . 5625) (/ -2 -2) -> 1) ((1614 . 5625) (/ -2 -1) -> 2) ((1615 . 5625) (/ -2 0) -> "division by zero") ((1616 . 5625) (/ -1 -4) -> 0.25) ((1617 . 5625) (/ -1 -3) -> 0.333333333333333) ((1618 . 5625) (/ -1 -2) -> 0.5) ((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) -> -8.67361737988404e-19) ((1627 . 5625) (/ -4 4611686018427387902) -> -8.67361737988404e-19) ((1628 . 5625) (/ -4 4611686018427387903) -> -8.67361737988404e-19) ((1629 . 5625) (/ -4 4.61168601842739e+18) -> -8.67361737988404e-19) ((1630 . 5625) (/ -4 4.61168601842739e+18) -> -8.67361737988404e-19) ((1631 . 5625) (/ -3 4611686018427387901) -> -6.50521303491303e-19) ((1632 . 5625) (/ -3 4611686018427387902) -> -6.50521303491303e-19) ((1633 . 5625) (/ -3 4611686018427387903) -> -6.50521303491303e-19) ((1634 . 5625) (/ -3 4.61168601842739e+18) -> -6.50521303491303e-19) ((1635 . 5625) (/ -3 4.61168601842739e+18) -> -6.50521303491303e-19) ((1636 . 5625) (/ -2 4611686018427387901) -> -4.33680868994202e-19) ((1637 . 5625) (/ -2 4611686018427387902) -> -4.33680868994202e-19) ((1638 . 5625) (/ -2 4611686018427387903) -> -4.33680868994202e-19) ((1639 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((1640 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((1641 . 5625) (/ -1 4611686018427387901) -> -2.16840434497101e-19) ((1642 . 5625) (/ -1 4611686018427387902) -> -2.16840434497101e-19) ((1643 . 5625) (/ -1 4611686018427387903) -> -2.16840434497101e-19) ((1644 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((1645 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((1646 . 5625) (/ 0 4611686018427387901) -> 0) ((1647 . 5625) (/ 0 4611686018427387902) -> 0) ((1648 . 5625) (/ 0 4611686018427387903) -> 0) ((1649 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((1650 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((1651 . 5625) (/ -4 -4.61168601842739e+18) -> 8.67361737988404e-19) ((1652 . 5625) (/ -4 -4.61168601842739e+18) -> 8.67361737988404e-19) ((1653 . 5625) (/ -4 -4611686018427387904) -> 8.67361737988404e-19) ((1654 . 5625) (/ -4 -4611686018427387903) -> 8.67361737988404e-19) ((1655 . 5625) (/ -4 -4611686018427387902) -> 8.67361737988404e-19) ((1656 . 5625) (/ -3 -4.61168601842739e+18) -> 6.50521303491303e-19) ((1657 . 5625) (/ -3 -4.61168601842739e+18) -> 6.50521303491303e-19) ((1658 . 5625) (/ -3 -4611686018427387904) -> 6.50521303491303e-19) ((1659 . 5625) (/ -3 -4611686018427387903) -> 6.50521303491303e-19) ((1660 . 5625) (/ -3 -4611686018427387902) -> 6.50521303491303e-19) ((1661 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((1662 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((1663 . 5625) (/ -2 -4611686018427387904) -> 4.33680868994202e-19) ((1664 . 5625) (/ -2 -4611686018427387903) -> 4.33680868994202e-19) ((1665 . 5625) (/ -2 -4611686018427387902) -> 4.33680868994202e-19) ((1666 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((1667 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((1668 . 5625) (/ -1 -4611686018427387904) -> 2.16840434497101e-19) ((1669 . 5625) (/ -1 -4611686018427387903) -> 2.16840434497101e-19) ((1670 . 5625) (/ -1 -4611686018427387902) -> 2.16840434497101e-19) ((1671 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((1672 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((1673 . 5625) (/ 0 -4611686018427387904) -> 0) ((1674 . 5625) (/ 0 -4611686018427387903) -> 0) ((1675 . 5625) (/ 0 -4611686018427387902) -> 0) ((1676 . 5625) (/ -4 4.61168601842739e+18) -> -8.67361737988404e-19) ((1677 . 5625) (/ -4 4.61168601842739e+18) -> -8.67361737988404e-19) ((1678 . 5625) (/ -4 4.61168601842739e+18) -> -8.67361737988404e-19) ((1679 . 5625) (/ -4 4.61168601842739e+18) -> -8.67361737988404e-19) ((1680 . 5625) (/ -4 4.61168601842739e+18) -> -8.67361737988404e-19) ((1681 . 5625) (/ -3 4.61168601842739e+18) -> -6.50521303491303e-19) ((1682 . 5625) (/ -3 4.61168601842739e+18) -> -6.50521303491303e-19) ((1683 . 5625) (/ -3 4.61168601842739e+18) -> -6.50521303491303e-19) ((1684 . 5625) (/ -3 4.61168601842739e+18) -> -6.50521303491303e-19) ((1685 . 5625) (/ -3 4.61168601842739e+18) -> -6.50521303491303e-19) ((1686 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((1687 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((1688 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((1689 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((1690 . 5625) (/ -2 4.61168601842739e+18) -> -4.33680868994202e-19) ((1691 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((1692 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((1693 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((1694 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((1695 . 5625) (/ -1 4.61168601842739e+18) -> -2.16840434497101e-19) ((1696 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((1697 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((1698 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((1699 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((1700 . 5625) (/ 0 4.61168601842739e+18) -> 0.0) ((1701 . 5625) (/ -4 -4.61168601842739e+18) -> 8.67361737988404e-19) ((1702 . 5625) (/ -4 -4.61168601842739e+18) -> 8.67361737988404e-19) ((1703 . 5625) (/ -4 -4.61168601842739e+18) -> 8.67361737988404e-19) ((1704 . 5625) (/ -4 -4.61168601842739e+18) -> 8.67361737988404e-19) ((1705 . 5625) (/ -4 -4.61168601842739e+18) -> 8.67361737988404e-19) ((1706 . 5625) (/ -3 -4.61168601842739e+18) -> 6.50521303491303e-19) ((1707 . 5625) (/ -3 -4.61168601842739e+18) -> 6.50521303491303e-19) ((1708 . 5625) (/ -3 -4.61168601842739e+18) -> 6.50521303491303e-19) ((1709 . 5625) (/ -3 -4.61168601842739e+18) -> 6.50521303491303e-19) ((1710 . 5625) (/ -3 -4.61168601842739e+18) -> 6.50521303491303e-19) ((1711 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((1712 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((1713 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((1714 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((1715 . 5625) (/ -2 -4.61168601842739e+18) -> 4.33680868994202e-19) ((1716 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((1717 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((1718 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((1719 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((1720 . 5625) (/ -1 -4.61168601842739e+18) -> 2.16840434497101e-19) ((1721 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((1722 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((1723 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((1724 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((1725 . 5625) (/ 0 -4.61168601842739e+18) -> -0.0) ((1726 . 5625) (/ -4 1103515243) -> -3.62478001583889e-09) ((1727 . 5625) (/ -4 1103515244) -> -3.62478001255414e-09) ((1728 . 5625) (/ -4 1103515245) -> -3.62478000926938e-09) ((1729 . 5625) (/ -4 1103515246) -> -3.62478000598462e-09) ((1730 . 5625) (/ -4 1103515247) -> -3.62478000269986e-09) ((1731 . 5625) (/ -3 1103515243) -> -2.71858501187917e-09) ((1732 . 5625) (/ -3 1103515244) -> -2.7185850094156e-09) ((1733 . 5625) (/ -3 1103515245) -> -2.71858500695203e-09) ((1734 . 5625) (/ -3 1103515246) -> -2.71858500448847e-09) ((1735 . 5625) (/ -3 1103515247) -> -2.7185850020249e-09) ((1736 . 5625) (/ -2 1103515243) -> -1.81239000791945e-09) ((1737 . 5625) (/ -2 1103515244) -> -1.81239000627707e-09) ((1738 . 5625) (/ -2 1103515245) -> -1.81239000463469e-09) ((1739 . 5625) (/ -2 1103515246) -> -1.81239000299231e-09) ((1740 . 5625) (/ -2 1103515247) -> -1.81239000134993e-09) ((1741 . 5625) (/ -1 1103515243) -> -9.06195003959723e-10) ((1742 . 5625) (/ -1 1103515244) -> -9.06195003138534e-10) ((1743 . 5625) (/ -1 1103515245) -> -9.06195002317345e-10) ((1744 . 5625) (/ -1 1103515246) -> -9.06195001496155e-10) ((1745 . 5625) (/ -1 1103515247) -> -9.06195000674966e-10) ((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) -> -6.33283082479059e-09) ((1752 . 5625) (/ -4 631629064) -> -6.33283081476441e-09) ((1753 . 5625) (/ -4 631629065) -> -6.33283080473822e-09) ((1754 . 5625) (/ -4 631629066) -> -6.33283079471203e-09) ((1755 . 5625) (/ -4 631629067) -> -6.33283078468585e-09) ((1756 . 5625) (/ -3 631629063) -> -4.74962311859295e-09) ((1757 . 5625) (/ -3 631629064) -> -4.74962311107331e-09) ((1758 . 5625) (/ -3 631629065) -> -4.74962310355367e-09) ((1759 . 5625) (/ -3 631629066) -> -4.74962309603403e-09) ((1760 . 5625) (/ -3 631629067) -> -4.74962308851439e-09) ((1761 . 5625) (/ -2 631629063) -> -3.1664154123953e-09) ((1762 . 5625) (/ -2 631629064) -> -3.1664154073822e-09) ((1763 . 5625) (/ -2 631629065) -> -3.16641540236911e-09) ((1764 . 5625) (/ -2 631629066) -> -3.16641539735602e-09) ((1765 . 5625) (/ -2 631629067) -> -3.16641539234292e-09) ((1766 . 5625) (/ -1 631629063) -> -1.58320770619765e-09) ((1767 . 5625) (/ -1 631629064) -> -1.5832077036911e-09) ((1768 . 5625) (/ -1 631629065) -> -1.58320770118456e-09) ((1769 . 5625) (/ -1 631629066) -> -1.58320769867801e-09) ((1770 . 5625) (/ -1 631629067) -> -1.58320769617146e-09) ((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) -> -4.44089209850063e-16) ((1777 . 5625) (/ -4 9007199254740991) -> -4.44089209850063e-16) ((1778 . 5625) (/ -4 9007199254740992) -> -4.44089209850063e-16) ((1779 . 5625) (/ -4 9007199254740993) -> -4.44089209850063e-16) ((1780 . 5625) (/ -4 9007199254740994) -> -4.44089209850063e-16) ((1781 . 5625) (/ -3 9007199254740990) -> -3.33066907387547e-16) ((1782 . 5625) (/ -3 9007199254740991) -> -3.33066907387547e-16) ((1783 . 5625) (/ -3 9007199254740992) -> -3.33066907387547e-16) ((1784 . 5625) (/ -3 9007199254740993) -> -3.33066907387547e-16) ((1785 . 5625) (/ -3 9007199254740994) -> -3.33066907387547e-16) ((1786 . 5625) (/ -2 9007199254740990) -> -2.22044604925031e-16) ((1787 . 5625) (/ -2 9007199254740991) -> -2.22044604925031e-16) ((1788 . 5625) (/ -2 9007199254740992) -> -2.22044604925031e-16) ((1789 . 5625) (/ -2 9007199254740993) -> -2.22044604925031e-16) ((1790 . 5625) (/ -2 9007199254740994) -> -2.22044604925031e-16) ((1791 . 5625) (/ -1 9007199254740990) -> -1.11022302462516e-16) ((1792 . 5625) (/ -1 9007199254740991) -> -1.11022302462516e-16) ((1793 . 5625) (/ -1 9007199254740992) -> -1.11022302462516e-16) ((1794 . 5625) (/ -1 9007199254740993) -> -1.11022302462516e-16) ((1795 . 5625) (/ -1 9007199254740994) -> -1.11022302462516e-16) ((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) -> 4.44089209850063e-16) ((1802 . 5625) (/ -4 -9007199254740993) -> 4.44089209850063e-16) ((1803 . 5625) (/ -4 -9007199254740992) -> 4.44089209850063e-16) ((1804 . 5625) (/ -4 -9007199254740991) -> 4.44089209850063e-16) ((1805 . 5625) (/ -4 -9007199254740990) -> 4.44089209850063e-16) ((1806 . 5625) (/ -3 -9007199254740994) -> 3.33066907387547e-16) ((1807 . 5625) (/ -3 -9007199254740993) -> 3.33066907387547e-16) ((1808 . 5625) (/ -3 -9007199254740992) -> 3.33066907387547e-16) ((1809 . 5625) (/ -3 -9007199254740991) -> 3.33066907387547e-16) ((1810 . 5625) (/ -3 -9007199254740990) -> 3.33066907387547e-16) ((1811 . 5625) (/ -2 -9007199254740994) -> 2.22044604925031e-16) ((1812 . 5625) (/ -2 -9007199254740993) -> 2.22044604925031e-16) ((1813 . 5625) (/ -2 -9007199254740992) -> 2.22044604925031e-16) ((1814 . 5625) (/ -2 -9007199254740991) -> 2.22044604925031e-16) ((1815 . 5625) (/ -2 -9007199254740990) -> 2.22044604925031e-16) ((1816 . 5625) (/ -1 -9007199254740994) -> 1.11022302462516e-16) ((1817 . 5625) (/ -1 -9007199254740993) -> 1.11022302462516e-16) ((1818 . 5625) (/ -1 -9007199254740992) -> 1.11022302462516e-16) ((1819 . 5625) (/ -1 -9007199254740991) -> 1.11022302462516e-16) ((1820 . 5625) (/ -1 -9007199254740990) -> 1.11022302462516e-16) ((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) -> -0.000324070323260147) ((1827 . 5625) (/ -4 12344) -> -0.000324044069993519) ((1828 . 5625) (/ -4 12345) -> -0.000324017820980154) ((1829 . 5625) (/ -4 12346) -> -0.000323991576219018) ((1830 . 5625) (/ -4 12347) -> -0.000323965335709079) ((1831 . 5625) (/ -3 12343) -> -0.000243052742445111) ((1832 . 5625) (/ -3 12344) -> -0.000243033052495139) ((1833 . 5625) (/ -3 12345) -> -0.000243013365735115) ((1834 . 5625) (/ -3 12346) -> -0.000242993682164264) ((1835 . 5625) (/ -3 12347) -> -0.000242974001781809) ((1836 . 5625) (/ -2 12343) -> -0.000162035161630074) ((1837 . 5625) (/ -2 12344) -> -0.00016202203499676) ((1838 . 5625) (/ -2 12345) -> -0.000162008910490077) ((1839 . 5625) (/ -2 12346) -> -0.000161995788109509) ((1840 . 5625) (/ -2 12347) -> -0.00016198266785454) ((1841 . 5625) (/ -1 12343) -> -8.10175808150369e-05) ((1842 . 5625) (/ -1 12344) -> -8.10110174983798e-05) ((1843 . 5625) (/ -1 12345) -> -8.10044552450385e-05) ((1844 . 5625) (/ -1 12346) -> -8.09978940547546e-05) ((1845 . 5625) (/ -1 12347) -> -8.09913339272698e-05) ((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) -> -9.31322575049159e-10) ((1852 . 5625) (/ -4 4294967295) -> -9.31322574832319e-10) ((1853 . 5625) (/ -4 4294967296) -> -9.31322574615479e-10) ((1854 . 5625) (/ -4 4294967297) -> -9.31322574398638e-10) ((1855 . 5625) (/ -4 4294967298) -> -9.31322574181798e-10) ((1856 . 5625) (/ -3 4294967294) -> -6.9849193128687e-10) ((1857 . 5625) (/ -3 4294967295) -> -6.98491931124239e-10) ((1858 . 5625) (/ -3 4294967296) -> -6.98491930961609e-10) ((1859 . 5625) (/ -3 4294967297) -> -6.98491930798979e-10) ((1860 . 5625) (/ -3 4294967298) -> -6.98491930636348e-10) ((1861 . 5625) (/ -2 4294967294) -> -4.6566128752458e-10) ((1862 . 5625) (/ -2 4294967295) -> -4.65661287416159e-10) ((1863 . 5625) (/ -2 4294967296) -> -4.65661287307739e-10) ((1864 . 5625) (/ -2 4294967297) -> -4.65661287199319e-10) ((1865 . 5625) (/ -2 4294967298) -> -4.65661287090899e-10) ((1866 . 5625) (/ -1 4294967294) -> -2.3283064376229e-10) ((1867 . 5625) (/ -1 4294967295) -> -2.3283064370808e-10) ((1868 . 5625) (/ -1 4294967296) -> -2.3283064365387e-10) ((1869 . 5625) (/ -1 4294967297) -> -2.3283064359966e-10) ((1870 . 5625) (/ -1 4294967298) -> -2.32830643545449e-10) ((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) -> -2305843009213693950) ((1877 . 5625) (/ 4611686018427387901 -1) -> -4611686018427387901) ((1878 . 5625) (/ 4611686018427387901 0) -> "division by zero") ((1879 . 5625) (/ 4611686018427387901 1) -> 4611686018427387901) ((1880 . 5625) (/ 4611686018427387901 2) -> 2305843009213693950) ((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) -> -2305843009213693951) ((1887 . 5625) (/ 4611686018427387903 -1) -> -4611686018427387903) ((1888 . 5625) (/ 4611686018427387903 0) -> "division by zero") ((1889 . 5625) (/ 4611686018427387903 1) -> 4611686018427387903) ((1890 . 5625) (/ 4611686018427387903 2) -> 2305843009213693951) ((1891 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((1892 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((1893 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((1894 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1895 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((1896 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((1897 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((1898 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((1899 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1900 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((1901 . 5625) (/ 4611686018427387901 -1) -> -4611686018427387901) ((1902 . 5625) (/ 4611686018427387901 0) -> "division by zero") ((1903 . 5625) (/ 4611686018427387901 1) -> 4611686018427387901) ((1904 . 5625) (/ 4611686018427387901 2) -> 2305843009213693950) ((1905 . 5625) (/ 4611686018427387901 3) -> 1537228672809129300) ((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) -> 1537228672809129300) ((1911 . 5625) (/ 4611686018427387903 -1) -> -4611686018427387903) ((1912 . 5625) (/ 4611686018427387903 0) -> "division by zero") ((1913 . 5625) (/ 4611686018427387903 1) -> 4611686018427387903) ((1914 . 5625) (/ 4611686018427387903 2) -> 2305843009213693951) ((1915 . 5625) (/ 4611686018427387903 3) -> 1537228672809129301) ((1916 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((1917 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((1918 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1919 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((1920 . 5625) (/ 4.61168601842739e+18 3) -> 1.53722867280913e+18) ((1921 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((1922 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((1923 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1924 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((1925 . 5625) (/ 4.61168601842739e+18 3) -> 1.53722867280913e+18) ((1926 . 5625) (/ 4611686018427387901 -3) -> -1537228672809129300) ((1927 . 5625) (/ 4611686018427387901 -2) -> -2305843009213693950) ((1928 . 5625) (/ 4611686018427387901 -1) -> -4611686018427387901) ((1929 . 5625) (/ 4611686018427387901 0) -> "division by zero") ((1930 . 5625) (/ 4611686018427387901 1) -> 4611686018427387901) ((1931 . 5625) (/ 4611686018427387902 -3) -> -1537228672809129300) ((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) -> -2305843009213693951) ((1938 . 5625) (/ 4611686018427387903 -1) -> -4611686018427387903) ((1939 . 5625) (/ 4611686018427387903 0) -> "division by zero") ((1940 . 5625) (/ 4611686018427387903 1) -> 4611686018427387903) ((1941 . 5625) (/ 4.61168601842739e+18 -3) -> -1.53722867280913e+18) ((1942 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((1943 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((1944 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((1945 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1946 . 5625) (/ 4.61168601842739e+18 -3) -> -1.53722867280913e+18) ((1947 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((1948 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((1949 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((1950 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1951 . 5625) (/ 4611686018427387901 0) -> "division by zero") ((1952 . 5625) (/ 4611686018427387901 1) -> 4611686018427387901) ((1953 . 5625) (/ 4611686018427387901 2) -> 2305843009213693950) ((1954 . 5625) (/ 4611686018427387901 3) -> 1537228672809129300) ((1955 . 5625) (/ 4611686018427387901 4) -> 1152921504606846975) ((1956 . 5625) (/ 4611686018427387902 0) -> "division by zero") ((1957 . 5625) (/ 4611686018427387902 1) -> 4611686018427387902) ((1958 . 5625) (/ 4611686018427387902 2) -> 2305843009213693951) ((1959 . 5625) (/ 4611686018427387902 3) -> 1537228672809129300) ((1960 . 5625) (/ 4611686018427387902 4) -> 1152921504606846975) ((1961 . 5625) (/ 4611686018427387903 0) -> "division by zero") ((1962 . 5625) (/ 4611686018427387903 1) -> 4611686018427387903) ((1963 . 5625) (/ 4611686018427387903 2) -> 2305843009213693951) ((1964 . 5625) (/ 4611686018427387903 3) -> 1537228672809129301) ((1965 . 5625) (/ 4611686018427387903 4) -> 1152921504606846975) ((1966 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((1967 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1968 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((1969 . 5625) (/ 4.61168601842739e+18 3) -> 1.53722867280913e+18) ((1970 . 5625) (/ 4.61168601842739e+18 4) -> 1.15292150460685e+18) ((1971 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((1972 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((1973 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((1974 . 5625) (/ 4.61168601842739e+18 3) -> 1.53722867280913e+18) ((1975 . 5625) (/ 4.61168601842739e+18 4) -> 1.15292150460685e+18) ((1976 . 5625) (/ 4611686018427387901 -4) -> -1152921504606846975) ((1977 . 5625) (/ 4611686018427387901 -3) -> -1537228672809129300) ((1978 . 5625) (/ 4611686018427387901 -2) -> -2305843009213693950) ((1979 . 5625) (/ 4611686018427387901 -1) -> -4611686018427387901) ((1980 . 5625) (/ 4611686018427387901 0) -> "division by zero") ((1981 . 5625) (/ 4611686018427387902 -4) -> -1152921504606846975) ((1982 . 5625) (/ 4611686018427387902 -3) -> -1537228672809129300) ((1983 . 5625) (/ 4611686018427387902 -2) -> -2305843009213693951) ((1984 . 5625) (/ 4611686018427387902 -1) -> -4611686018427387902) ((1985 . 5625) (/ 4611686018427387902 0) -> "division by zero") ((1986 . 5625) (/ 4611686018427387903 -4) -> -1152921504606846975) ((1987 . 5625) (/ 4611686018427387903 -3) -> -1537228672809129301) ((1988 . 5625) (/ 4611686018427387903 -2) -> -2305843009213693951) ((1989 . 5625) (/ 4611686018427387903 -1) -> -4611686018427387903) ((1990 . 5625) (/ 4611686018427387903 0) -> "division by zero") ((1991 . 5625) (/ 4.61168601842739e+18 -4) -> -1.15292150460685e+18) ((1992 . 5625) (/ 4.61168601842739e+18 -3) -> -1.53722867280913e+18) ((1993 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((1994 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((1995 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((1996 . 5625) (/ 4.61168601842739e+18 -4) -> -1.15292150460685e+18) ((1997 . 5625) (/ 4.61168601842739e+18 -3) -> -1.53722867280913e+18) ((1998 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((1999 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2000 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2001 . 5625) (/ 4611686018427387901 4611686018427387901) -> 1) ((2002 . 5625) (/ 4611686018427387901 4611686018427387902) -> 1.0) ((2003 . 5625) (/ 4611686018427387901 4611686018427387903) -> 1.0) ((2004 . 5625) (/ 4611686018427387901 4.61168601842739e+18) -> 1.0) ((2005 . 5625) (/ 4611686018427387901 4.61168601842739e+18) -> 1.0) ((2006 . 5625) (/ 4611686018427387902 4611686018427387901) -> 1) ((2007 . 5625) (/ 4611686018427387902 4611686018427387902) -> 1) ((2008 . 5625) (/ 4611686018427387902 4611686018427387903) -> 1.0) ((2009 . 5625) (/ 4611686018427387902 4.61168601842739e+18) -> 1.0) ((2010 . 5625) (/ 4611686018427387902 4.61168601842739e+18) -> 1.0) ((2011 . 5625) (/ 4611686018427387903 4611686018427387901) -> 1) ((2012 . 5625) (/ 4611686018427387903 4611686018427387902) -> 1) ((2013 . 5625) (/ 4611686018427387903 4611686018427387903) -> 1) ((2014 . 5625) (/ 4611686018427387903 4.61168601842739e+18) -> 1.0) ((2015 . 5625) (/ 4611686018427387903 4.61168601842739e+18) -> 1.0) ((2016 . 5625) (/ 4.61168601842739e+18 4611686018427387901) -> 1.0) ((2017 . 5625) (/ 4.61168601842739e+18 4611686018427387902) -> 1.0) ((2018 . 5625) (/ 4.61168601842739e+18 4611686018427387903) -> 1.0) ((2019 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2020 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2021 . 5625) (/ 4.61168601842739e+18 4611686018427387901) -> 1.0) ((2022 . 5625) (/ 4.61168601842739e+18 4611686018427387902) -> 1.0) ((2023 . 5625) (/ 4.61168601842739e+18 4611686018427387903) -> 1.0) ((2024 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2025 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2026 . 5625) (/ 4611686018427387901 -4.61168601842739e+18) -> -1.0) ((2027 . 5625) (/ 4611686018427387901 -4.61168601842739e+18) -> -1.0) ((2028 . 5625) (/ 4611686018427387901 -4611686018427387904) -> -1.0) ((2029 . 5625) (/ 4611686018427387901 -4611686018427387903) -> -1.0) ((2030 . 5625) (/ 4611686018427387901 -4611686018427387902) -> -1.0) ((2031 . 5625) (/ 4611686018427387902 -4.61168601842739e+18) -> -1.0) ((2032 . 5625) (/ 4611686018427387902 -4.61168601842739e+18) -> -1.0) ((2033 . 5625) (/ 4611686018427387902 -4611686018427387904) -> -1.0) ((2034 . 5625) (/ 4611686018427387902 -4611686018427387903) -> -1.0) ((2035 . 5625) (/ 4611686018427387902 -4611686018427387902) -> -1) ((2036 . 5625) (/ 4611686018427387903 -4.61168601842739e+18) -> -1.0) ((2037 . 5625) (/ 4611686018427387903 -4.61168601842739e+18) -> -1.0) ((2038 . 5625) (/ 4611686018427387903 -4611686018427387904) -> -1.0) ((2039 . 5625) (/ 4611686018427387903 -4611686018427387903) -> -1) ((2040 . 5625) (/ 4611686018427387903 -4611686018427387902) -> -1) ((2041 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2042 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2043 . 5625) (/ 4.61168601842739e+18 -4611686018427387904) -> -1.0) ((2044 . 5625) (/ 4.61168601842739e+18 -4611686018427387903) -> -1.0) ((2045 . 5625) (/ 4.61168601842739e+18 -4611686018427387902) -> -1.0) ((2046 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2047 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2048 . 5625) (/ 4.61168601842739e+18 -4611686018427387904) -> -1.0) ((2049 . 5625) (/ 4.61168601842739e+18 -4611686018427387903) -> -1.0) ((2050 . 5625) (/ 4.61168601842739e+18 -4611686018427387902) -> -1.0) ((2051 . 5625) (/ 4611686018427387901 4.61168601842739e+18) -> 1.0) ((2052 . 5625) (/ 4611686018427387901 4.61168601842739e+18) -> 1.0) ((2053 . 5625) (/ 4611686018427387901 4.61168601842739e+18) -> 1.0) ((2054 . 5625) (/ 4611686018427387901 4.61168601842739e+18) -> 1.0) ((2055 . 5625) (/ 4611686018427387901 4.61168601842739e+18) -> 1.0) ((2056 . 5625) (/ 4611686018427387902 4.61168601842739e+18) -> 1.0) ((2057 . 5625) (/ 4611686018427387902 4.61168601842739e+18) -> 1.0) ((2058 . 5625) (/ 4611686018427387902 4.61168601842739e+18) -> 1.0) ((2059 . 5625) (/ 4611686018427387902 4.61168601842739e+18) -> 1.0) ((2060 . 5625) (/ 4611686018427387902 4.61168601842739e+18) -> 1.0) ((2061 . 5625) (/ 4611686018427387903 4.61168601842739e+18) -> 1.0) ((2062 . 5625) (/ 4611686018427387903 4.61168601842739e+18) -> 1.0) ((2063 . 5625) (/ 4611686018427387903 4.61168601842739e+18) -> 1.0) ((2064 . 5625) (/ 4611686018427387903 4.61168601842739e+18) -> 1.0) ((2065 . 5625) (/ 4611686018427387903 4.61168601842739e+18) -> 1.0) ((2066 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2067 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2068 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2069 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2070 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2071 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2072 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2073 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2074 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2075 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2076 . 5625) (/ 4611686018427387901 -4.61168601842739e+18) -> -1.0) ((2077 . 5625) (/ 4611686018427387901 -4.61168601842739e+18) -> -1.0) ((2078 . 5625) (/ 4611686018427387901 -4.61168601842739e+18) -> -1.0) ((2079 . 5625) (/ 4611686018427387901 -4.61168601842739e+18) -> -1.0) ((2080 . 5625) (/ 4611686018427387901 -4.61168601842739e+18) -> -1.0) ((2081 . 5625) (/ 4611686018427387902 -4.61168601842739e+18) -> -1.0) ((2082 . 5625) (/ 4611686018427387902 -4.61168601842739e+18) -> -1.0) ((2083 . 5625) (/ 4611686018427387902 -4.61168601842739e+18) -> -1.0) ((2084 . 5625) (/ 4611686018427387902 -4.61168601842739e+18) -> -1.0) ((2085 . 5625) (/ 4611686018427387902 -4.61168601842739e+18) -> -1.0) ((2086 . 5625) (/ 4611686018427387903 -4.61168601842739e+18) -> -1.0) ((2087 . 5625) (/ 4611686018427387903 -4.61168601842739e+18) -> -1.0) ((2088 . 5625) (/ 4611686018427387903 -4.61168601842739e+18) -> -1.0) ((2089 . 5625) (/ 4611686018427387903 -4.61168601842739e+18) -> -1.0) ((2090 . 5625) (/ 4611686018427387903 -4.61168601842739e+18) -> -1.0) ((2091 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2092 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2093 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2094 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2095 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2096 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2097 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2098 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2099 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2100 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2101 . 5625) (/ 4611686018427387901 1103515243) -> 4179086829.72981) ((2102 . 5625) (/ 4611686018427387901 1103515244) -> 4179086825.94274) ((2103 . 5625) (/ 4611686018427387901 1103515245) -> 4179086822.15567) ((2104 . 5625) (/ 4611686018427387901 1103515246) -> 4179086818.3686) ((2105 . 5625) (/ 4611686018427387901 1103515247) -> 4179086814.58154) ((2106 . 5625) (/ 4611686018427387902 1103515243) -> 4179086829.72981) ((2107 . 5625) (/ 4611686018427387902 1103515244) -> 4179086825.94274) ((2108 . 5625) (/ 4611686018427387902 1103515245) -> 4179086822.15567) ((2109 . 5625) (/ 4611686018427387902 1103515246) -> 4179086818.3686) ((2110 . 5625) (/ 4611686018427387902 1103515247) -> 4179086814.58154) ((2111 . 5625) (/ 4611686018427387903 1103515243) -> 4179086829.72981) ((2112 . 5625) (/ 4611686018427387903 1103515244) -> 4179086825.94274) ((2113 . 5625) (/ 4611686018427387903 1103515245) -> 4179086822.15567) ((2114 . 5625) (/ 4611686018427387903 1103515246) -> 4179086818.3686) ((2115 . 5625) (/ 4611686018427387903 1103515247) -> 4179086814.58154) ((2116 . 5625) (/ 4.61168601842739e+18 1103515243) -> 4179086829.72981) ((2117 . 5625) (/ 4.61168601842739e+18 1103515244) -> 4179086825.94274) ((2118 . 5625) (/ 4.61168601842739e+18 1103515245) -> 4179086822.15567) ((2119 . 5625) (/ 4.61168601842739e+18 1103515246) -> 4179086818.3686) ((2120 . 5625) (/ 4.61168601842739e+18 1103515247) -> 4179086814.58154) ((2121 . 5625) (/ 4.61168601842739e+18 1103515243) -> 4179086829.72981) ((2122 . 5625) (/ 4.61168601842739e+18 1103515244) -> 4179086825.94274) ((2123 . 5625) (/ 4.61168601842739e+18 1103515245) -> 4179086822.15567) ((2124 . 5625) (/ 4.61168601842739e+18 1103515246) -> 4179086818.3686) ((2125 . 5625) (/ 4.61168601842739e+18 1103515247) -> 4179086814.58154) ((2126 . 5625) (/ 4611686018427387901 631629063) -> 7301256842.93819) ((2127 . 5625) (/ 4611686018427387901 631629064) -> 7301256831.37879) ((2128 . 5625) (/ 4611686018427387901 631629065) -> 7301256819.81938) ((2129 . 5625) (/ 4611686018427387901 631629066) -> 7301256808.25997) ((2130 . 5625) (/ 4611686018427387901 631629067) -> 7301256796.70057) ((2131 . 5625) (/ 4611686018427387902 631629063) -> 7301256842.93819) ((2132 . 5625) (/ 4611686018427387902 631629064) -> 7301256831.37879) ((2133 . 5625) (/ 4611686018427387902 631629065) -> 7301256819.81938) ((2134 . 5625) (/ 4611686018427387902 631629066) -> 7301256808.25997) ((2135 . 5625) (/ 4611686018427387902 631629067) -> 7301256796.70057) ((2136 . 5625) (/ 4611686018427387903 631629063) -> 7301256842.93819) ((2137 . 5625) (/ 4611686018427387903 631629064) -> 7301256831.37879) ((2138 . 5625) (/ 4611686018427387903 631629065) -> 7301256819.81938) ((2139 . 5625) (/ 4611686018427387903 631629066) -> 7301256808.25997) ((2140 . 5625) (/ 4611686018427387903 631629067) -> 7301256796.70057) ((2141 . 5625) (/ 4.61168601842739e+18 631629063) -> 7301256842.93819) ((2142 . 5625) (/ 4.61168601842739e+18 631629064) -> 7301256831.37879) ((2143 . 5625) (/ 4.61168601842739e+18 631629065) -> 7301256819.81938) ((2144 . 5625) (/ 4.61168601842739e+18 631629066) -> 7301256808.25997) ((2145 . 5625) (/ 4.61168601842739e+18 631629067) -> 7301256796.70057) ((2146 . 5625) (/ 4.61168601842739e+18 631629063) -> 7301256842.93819) ((2147 . 5625) (/ 4.61168601842739e+18 631629064) -> 7301256831.37879) ((2148 . 5625) (/ 4.61168601842739e+18 631629065) -> 7301256819.81938) ((2149 . 5625) (/ 4.61168601842739e+18 631629066) -> 7301256808.25997) ((2150 . 5625) (/ 4.61168601842739e+18 631629067) -> 7301256796.70057) ((2151 . 5625) (/ 4611686018427387901 9007199254740990) -> 512.0) ((2152 . 5625) (/ 4611686018427387901 9007199254740991) -> 512.0) ((2153 . 5625) (/ 4611686018427387901 9007199254740992) -> 512.0) ((2154 . 5625) (/ 4611686018427387901 9007199254740993) -> 512.0) ((2155 . 5625) (/ 4611686018427387901 9007199254740994) -> 512.0) ((2156 . 5625) (/ 4611686018427387902 9007199254740990) -> 512.0) ((2157 . 5625) (/ 4611686018427387902 9007199254740991) -> 512.0) ((2158 . 5625) (/ 4611686018427387902 9007199254740992) -> 512.0) ((2159 . 5625) (/ 4611686018427387902 9007199254740993) -> 512.0) ((2160 . 5625) (/ 4611686018427387902 9007199254740994) -> 512.0) ((2161 . 5625) (/ 4611686018427387903 9007199254740990) -> 512.0) ((2162 . 5625) (/ 4611686018427387903 9007199254740991) -> 512.0) ((2163 . 5625) (/ 4611686018427387903 9007199254740992) -> 512.0) ((2164 . 5625) (/ 4611686018427387903 9007199254740993) -> 512.0) ((2165 . 5625) (/ 4611686018427387903 9007199254740994) -> 512.0) ((2166 . 5625) (/ 4.61168601842739e+18 9007199254740990) -> 512.0) ((2167 . 5625) (/ 4.61168601842739e+18 9007199254740991) -> 512.0) ((2168 . 5625) (/ 4.61168601842739e+18 9007199254740992) -> 512.0) ((2169 . 5625) (/ 4.61168601842739e+18 9007199254740993) -> 512.0) ((2170 . 5625) (/ 4.61168601842739e+18 9007199254740994) -> 512.0) ((2171 . 5625) (/ 4.61168601842739e+18 9007199254740990) -> 512.0) ((2172 . 5625) (/ 4.61168601842739e+18 9007199254740991) -> 512.0) ((2173 . 5625) (/ 4.61168601842739e+18 9007199254740992) -> 512.0) ((2174 . 5625) (/ 4.61168601842739e+18 9007199254740993) -> 512.0) ((2175 . 5625) (/ 4.61168601842739e+18 9007199254740994) -> 512.0) ((2176 . 5625) (/ 4611686018427387901 -9007199254740994) -> -512.0) ((2177 . 5625) (/ 4611686018427387901 -9007199254740993) -> -512.0) ((2178 . 5625) (/ 4611686018427387901 -9007199254740992) -> -512.0) ((2179 . 5625) (/ 4611686018427387901 -9007199254740991) -> -512.0) ((2180 . 5625) (/ 4611686018427387901 -9007199254740990) -> -512.0) ((2181 . 5625) (/ 4611686018427387902 -9007199254740994) -> -512.0) ((2182 . 5625) (/ 4611686018427387902 -9007199254740993) -> -512.0) ((2183 . 5625) (/ 4611686018427387902 -9007199254740992) -> -512.0) ((2184 . 5625) (/ 4611686018427387902 -9007199254740991) -> -512.0) ((2185 . 5625) (/ 4611686018427387902 -9007199254740990) -> -512.0) ((2186 . 5625) (/ 4611686018427387903 -9007199254740994) -> -512.0) ((2187 . 5625) (/ 4611686018427387903 -9007199254740993) -> -512.0) ((2188 . 5625) (/ 4611686018427387903 -9007199254740992) -> -512.0) ((2189 . 5625) (/ 4611686018427387903 -9007199254740991) -> -512.0) ((2190 . 5625) (/ 4611686018427387903 -9007199254740990) -> -512.0) ((2191 . 5625) (/ 4.61168601842739e+18 -9007199254740994) -> -512.0) ((2192 . 5625) (/ 4.61168601842739e+18 -9007199254740993) -> -512.0) ((2193 . 5625) (/ 4.61168601842739e+18 -9007199254740992) -> -512.0) ((2194 . 5625) (/ 4.61168601842739e+18 -9007199254740991) -> -512.0) ((2195 . 5625) (/ 4.61168601842739e+18 -9007199254740990) -> -512.0) ((2196 . 5625) (/ 4.61168601842739e+18 -9007199254740994) -> -512.0) ((2197 . 5625) (/ 4.61168601842739e+18 -9007199254740993) -> -512.0) ((2198 . 5625) (/ 4.61168601842739e+18 -9007199254740992) -> -512.0) ((2199 . 5625) (/ 4.61168601842739e+18 -9007199254740991) -> -512.0) ((2200 . 5625) (/ 4.61168601842739e+18 -9007199254740990) -> -512.0) ((2201 . 5625) (/ 4611686018427387901 12343) -> 373627644691516.0) ((2202 . 5625) (/ 4611686018427387901 12344) -> 373597376735854.0) ((2203 . 5625) (/ 4611686018427387901 12345) -> 373567113683871.0) ((2204 . 5625) (/ 4611686018427387901 12346) -> 373536855534374.0) ((2205 . 5625) (/ 4611686018427387901 12347) -> 373506602286174.0) ((2206 . 5625) (/ 4611686018427387902 12343) -> 373627644691516.0) ((2207 . 5625) (/ 4611686018427387902 12344) -> 373597376735854.0) ((2208 . 5625) (/ 4611686018427387902 12345) -> 373567113683871.0) ((2209 . 5625) (/ 4611686018427387902 12346) -> 373536855534374.0) ((2210 . 5625) (/ 4611686018427387902 12347) -> 373506602286174.0) ((2211 . 5625) (/ 4611686018427387903 12343) -> 373627644691516.0) ((2212 . 5625) (/ 4611686018427387903 12344) -> 373597376735854.0) ((2213 . 5625) (/ 4611686018427387903 12345) -> 373567113683871.0) ((2214 . 5625) (/ 4611686018427387903 12346) -> 373536855534374.0) ((2215 . 5625) (/ 4611686018427387903 12347) -> 373506602286174.0) ((2216 . 5625) (/ 4.61168601842739e+18 12343) -> 373627644691516.0) ((2217 . 5625) (/ 4.61168601842739e+18 12344) -> 373597376735854.0) ((2218 . 5625) (/ 4.61168601842739e+18 12345) -> 373567113683871.0) ((2219 . 5625) (/ 4.61168601842739e+18 12346) -> 373536855534374.0) ((2220 . 5625) (/ 4.61168601842739e+18 12347) -> 373506602286174.0) ((2221 . 5625) (/ 4.61168601842739e+18 12343) -> 373627644691516.0) ((2222 . 5625) (/ 4.61168601842739e+18 12344) -> 373597376735854.0) ((2223 . 5625) (/ 4.61168601842739e+18 12345) -> 373567113683871.0) ((2224 . 5625) (/ 4.61168601842739e+18 12346) -> 373536855534374.0) ((2225 . 5625) (/ 4.61168601842739e+18 12347) -> 373506602286174.0) ((2226 . 5625) (/ 4611686018427387901 4294967294) -> 1073741824.5) ((2227 . 5625) (/ 4611686018427387901 4294967295) -> 1073741824.25) ((2228 . 5625) (/ 4611686018427387901 4294967296) -> 1073741824.0) ((2229 . 5625) (/ 4611686018427387901 4294967297) -> 1073741823.75) ((2230 . 5625) (/ 4611686018427387901 4294967298) -> 1073741823.5) ((2231 . 5625) (/ 4611686018427387902 4294967294) -> 1073741824.5) ((2232 . 5625) (/ 4611686018427387902 4294967295) -> 1073741824.25) ((2233 . 5625) (/ 4611686018427387902 4294967296) -> 1073741824.0) ((2234 . 5625) (/ 4611686018427387902 4294967297) -> 1073741823.75) ((2235 . 5625) (/ 4611686018427387902 4294967298) -> 1073741823.5) ((2236 . 5625) (/ 4611686018427387903 4294967294) -> 1073741824.5) ((2237 . 5625) (/ 4611686018427387903 4294967295) -> 1073741824.25) ((2238 . 5625) (/ 4611686018427387903 4294967296) -> 1073741824.0) ((2239 . 5625) (/ 4611686018427387903 4294967297) -> 1073741823.75) ((2240 . 5625) (/ 4611686018427387903 4294967298) -> 1073741823.5) ((2241 . 5625) (/ 4.61168601842739e+18 4294967294) -> 1073741824.5) ((2242 . 5625) (/ 4.61168601842739e+18 4294967295) -> 1073741824.25) ((2243 . 5625) (/ 4.61168601842739e+18 4294967296) -> 1073741824.0) ((2244 . 5625) (/ 4.61168601842739e+18 4294967297) -> 1073741823.75) ((2245 . 5625) (/ 4.61168601842739e+18 4294967298) -> 1073741823.5) ((2246 . 5625) (/ 4.61168601842739e+18 4294967294) -> 1073741824.5) ((2247 . 5625) (/ 4.61168601842739e+18 4294967295) -> 1073741824.25) ((2248 . 5625) (/ 4.61168601842739e+18 4294967296) -> 1073741824.0) ((2249 . 5625) (/ 4.61168601842739e+18 4294967297) -> 1073741823.75) ((2250 . 5625) (/ 4.61168601842739e+18 4294967298) -> 1073741823.5) ((2251 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((2252 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2253 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((2254 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2255 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((2256 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((2257 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2258 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((2259 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2260 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((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) -> 2305843009213693951) ((2267 . 5625) (/ -4611686018427387903 -1) -> 4611686018427387903) ((2268 . 5625) (/ -4611686018427387903 0) -> "division by zero") ((2269 . 5625) (/ -4611686018427387903 1) -> -4611686018427387903) ((2270 . 5625) (/ -4611686018427387903 2) -> -2305843009213693951) ((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) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2277 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((2278 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2279 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((2280 . 5625) (/ -4.61168601842739e+18 3) -> -1.53722867280913e+18) ((2281 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2282 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((2283 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2284 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((2285 . 5625) (/ -4.61168601842739e+18 3) -> -1.53722867280913e+18) ((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) -> -1537228672809129301) ((2291 . 5625) (/ -4611686018427387903 -1) -> 4611686018427387903) ((2292 . 5625) (/ -4611686018427387903 0) -> "division by zero") ((2293 . 5625) (/ -4611686018427387903 1) -> -4611686018427387903) ((2294 . 5625) (/ -4611686018427387903 2) -> -2305843009213693951) ((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) -> -1537228672809129300) ((2301 . 5625) (/ -4.61168601842739e+18 -3) -> 1.53722867280913e+18) ((2302 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((2303 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2304 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((2305 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2306 . 5625) (/ -4.61168601842739e+18 -3) -> 1.53722867280913e+18) ((2307 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((2308 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2309 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((2310 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2311 . 5625) (/ -4611686018427387904 -3) -> 1537228672809129301) ((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) -> 2305843009213693951) ((2318 . 5625) (/ -4611686018427387903 -1) -> 4611686018427387903) ((2319 . 5625) (/ -4611686018427387903 0) -> "division by zero") ((2320 . 5625) (/ -4611686018427387903 1) -> -4611686018427387903) ((2321 . 5625) (/ -4611686018427387902 -3) -> 1537228672809129300) ((2322 . 5625) (/ -4611686018427387902 -2) -> 2305843009213693951) ((2323 . 5625) (/ -4611686018427387902 -1) -> 4611686018427387902) ((2324 . 5625) (/ -4611686018427387902 0) -> "division by zero") ((2325 . 5625) (/ -4611686018427387902 1) -> -4611686018427387902) ((2326 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((2327 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2328 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((2329 . 5625) (/ -4.61168601842739e+18 3) -> -1.53722867280913e+18) ((2330 . 5625) (/ -4.61168601842739e+18 4) -> -1.15292150460685e+18) ((2331 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((2332 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((2333 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((2334 . 5625) (/ -4.61168601842739e+18 3) -> -1.53722867280913e+18) ((2335 . 5625) (/ -4.61168601842739e+18 4) -> -1.15292150460685e+18) ((2336 . 5625) (/ -4611686018427387904 0) -> "division by zero") ((2337 . 5625) (/ -4611686018427387904 1) -> -4611686018427387904) ((2338 . 5625) (/ -4611686018427387904 2) -> -2305843009213693952) ((2339 . 5625) (/ -4611686018427387904 3) -> -1537228672809129301) ((2340 . 5625) (/ -4611686018427387904 4) -> -1152921504606846976) ((2341 . 5625) (/ -4611686018427387903 0) -> "division by zero") ((2342 . 5625) (/ -4611686018427387903 1) -> -4611686018427387903) ((2343 . 5625) (/ -4611686018427387903 2) -> -2305843009213693951) ((2344 . 5625) (/ -4611686018427387903 3) -> -1537228672809129301) ((2345 . 5625) (/ -4611686018427387903 4) -> -1152921504606846975) ((2346 . 5625) (/ -4611686018427387902 0) -> "division by zero") ((2347 . 5625) (/ -4611686018427387902 1) -> -4611686018427387902) ((2348 . 5625) (/ -4611686018427387902 2) -> -2305843009213693951) ((2349 . 5625) (/ -4611686018427387902 3) -> -1537228672809129300) ((2350 . 5625) (/ -4611686018427387902 4) -> -1152921504606846975) ((2351 . 5625) (/ -4.61168601842739e+18 -4) -> 1.15292150460685e+18) ((2352 . 5625) (/ -4.61168601842739e+18 -3) -> 1.53722867280913e+18) ((2353 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((2354 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2355 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((2356 . 5625) (/ -4.61168601842739e+18 -4) -> 1.15292150460685e+18) ((2357 . 5625) (/ -4.61168601842739e+18 -3) -> 1.53722867280913e+18) ((2358 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((2359 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((2360 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((2361 . 5625) (/ -4611686018427387904 -4) -> 1152921504606846976) ((2362 . 5625) (/ -4611686018427387904 -3) -> 1537228672809129301) ((2363 . 5625) (/ -4611686018427387904 -2) -> 2305843009213693952) ((2364 . 5625) (/ -4611686018427387904 -1) -> -4611686018427387904) ((2365 . 5625) (/ -4611686018427387904 0) -> "division by zero") ((2366 . 5625) (/ -4611686018427387903 -4) -> 1152921504606846975) ((2367 . 5625) (/ -4611686018427387903 -3) -> 1537228672809129301) ((2368 . 5625) (/ -4611686018427387903 -2) -> 2305843009213693951) ((2369 . 5625) (/ -4611686018427387903 -1) -> 4611686018427387903) ((2370 . 5625) (/ -4611686018427387903 0) -> "division by zero") ((2371 . 5625) (/ -4611686018427387902 -4) -> 1152921504606846975) ((2372 . 5625) (/ -4611686018427387902 -3) -> 1537228672809129300) ((2373 . 5625) (/ -4611686018427387902 -2) -> 2305843009213693951) ((2374 . 5625) (/ -4611686018427387902 -1) -> 4611686018427387902) ((2375 . 5625) (/ -4611686018427387902 0) -> "division by zero") ((2376 . 5625) (/ -4.61168601842739e+18 4611686018427387901) -> -1.0) ((2377 . 5625) (/ -4.61168601842739e+18 4611686018427387902) -> -1.0) ((2378 . 5625) (/ -4.61168601842739e+18 4611686018427387903) -> -1.0) ((2379 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((2380 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((2381 . 5625) (/ -4.61168601842739e+18 4611686018427387901) -> -1.0) ((2382 . 5625) (/ -4.61168601842739e+18 4611686018427387902) -> -1.0) ((2383 . 5625) (/ -4.61168601842739e+18 4611686018427387903) -> -1.0) ((2384 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((2385 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((2386 . 5625) (/ -4611686018427387904 4611686018427387901) -> -1) ((2387 . 5625) (/ -4611686018427387904 4611686018427387902) -> -1) ((2388 . 5625) (/ -4611686018427387904 4611686018427387903) -> -1) ((2389 . 5625) (/ -4611686018427387904 4.61168601842739e+18) -> -1.0) ((2390 . 5625) (/ -4611686018427387904 4.61168601842739e+18) -> -1.0) ((2391 . 5625) (/ -4611686018427387903 4611686018427387901) -> -1) ((2392 . 5625) (/ -4611686018427387903 4611686018427387902) -> -1) ((2393 . 5625) (/ -4611686018427387903 4611686018427387903) -> -1) ((2394 . 5625) (/ -4611686018427387903 4.61168601842739e+18) -> -1.0) ((2395 . 5625) (/ -4611686018427387903 4.61168601842739e+18) -> -1.0) ((2396 . 5625) (/ -4611686018427387902 4611686018427387901) -> -1) ((2397 . 5625) (/ -4611686018427387902 4611686018427387902) -> -1) ((2398 . 5625) (/ -4611686018427387902 4611686018427387903) -> -1.0) ((2399 . 5625) (/ -4611686018427387902 4.61168601842739e+18) -> -1.0) ((2400 . 5625) (/ -4611686018427387902 4.61168601842739e+18) -> -1.0) ((2401 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((2402 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((2403 . 5625) (/ -4.61168601842739e+18 -4611686018427387904) -> 1.0) ((2404 . 5625) (/ -4.61168601842739e+18 -4611686018427387903) -> 1.0) ((2405 . 5625) (/ -4.61168601842739e+18 -4611686018427387902) -> 1.0) ((2406 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((2407 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((2408 . 5625) (/ -4.61168601842739e+18 -4611686018427387904) -> 1.0) ((2409 . 5625) (/ -4.61168601842739e+18 -4611686018427387903) -> 1.0) ((2410 . 5625) (/ -4.61168601842739e+18 -4611686018427387902) -> 1.0) ((2411 . 5625) (/ -4611686018427387904 -4.61168601842739e+18) -> 1.0) ((2412 . 5625) (/ -4611686018427387904 -4.61168601842739e+18) -> 1.0) ((2413 . 5625) (/ -4611686018427387904 -4611686018427387904) -> 1) ((2414 . 5625) (/ -4611686018427387904 -4611686018427387903) -> 1) ((2415 . 5625) (/ -4611686018427387904 -4611686018427387902) -> 1) ((2416 . 5625) (/ -4611686018427387903 -4.61168601842739e+18) -> 1.0) ((2417 . 5625) (/ -4611686018427387903 -4.61168601842739e+18) -> 1.0) ((2418 . 5625) (/ -4611686018427387903 -4611686018427387904) -> 1.0) ((2419 . 5625) (/ -4611686018427387903 -4611686018427387903) -> 1) ((2420 . 5625) (/ -4611686018427387903 -4611686018427387902) -> 1) ((2421 . 5625) (/ -4611686018427387902 -4.61168601842739e+18) -> 1.0) ((2422 . 5625) (/ -4611686018427387902 -4.61168601842739e+18) -> 1.0) ((2423 . 5625) (/ -4611686018427387902 -4611686018427387904) -> 1.0) ((2424 . 5625) (/ -4611686018427387902 -4611686018427387903) -> 1.0) ((2425 . 5625) (/ -4611686018427387902 -4611686018427387902) -> 1) ((2426 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((2427 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((2428 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((2429 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((2430 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((2431 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((2432 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((2433 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((2434 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((2435 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((2436 . 5625) (/ -4611686018427387904 4.61168601842739e+18) -> -1.0) ((2437 . 5625) (/ -4611686018427387904 4.61168601842739e+18) -> -1.0) ((2438 . 5625) (/ -4611686018427387904 4.61168601842739e+18) -> -1.0) ((2439 . 5625) (/ -4611686018427387904 4.61168601842739e+18) -> -1.0) ((2440 . 5625) (/ -4611686018427387904 4.61168601842739e+18) -> -1.0) ((2441 . 5625) (/ -4611686018427387903 4.61168601842739e+18) -> -1.0) ((2442 . 5625) (/ -4611686018427387903 4.61168601842739e+18) -> -1.0) ((2443 . 5625) (/ -4611686018427387903 4.61168601842739e+18) -> -1.0) ((2444 . 5625) (/ -4611686018427387903 4.61168601842739e+18) -> -1.0) ((2445 . 5625) (/ -4611686018427387903 4.61168601842739e+18) -> -1.0) ((2446 . 5625) (/ -4611686018427387902 4.61168601842739e+18) -> -1.0) ((2447 . 5625) (/ -4611686018427387902 4.61168601842739e+18) -> -1.0) ((2448 . 5625) (/ -4611686018427387902 4.61168601842739e+18) -> -1.0) ((2449 . 5625) (/ -4611686018427387902 4.61168601842739e+18) -> -1.0) ((2450 . 5625) (/ -4611686018427387902 4.61168601842739e+18) -> -1.0) ((2451 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((2452 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((2453 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((2454 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((2455 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((2456 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((2457 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((2458 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((2459 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((2460 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((2461 . 5625) (/ -4611686018427387904 -4.61168601842739e+18) -> 1.0) ((2462 . 5625) (/ -4611686018427387904 -4.61168601842739e+18) -> 1.0) ((2463 . 5625) (/ -4611686018427387904 -4.61168601842739e+18) -> 1.0) ((2464 . 5625) (/ -4611686018427387904 -4.61168601842739e+18) -> 1.0) ((2465 . 5625) (/ -4611686018427387904 -4.61168601842739e+18) -> 1.0) ((2466 . 5625) (/ -4611686018427387903 -4.61168601842739e+18) -> 1.0) ((2467 . 5625) (/ -4611686018427387903 -4.61168601842739e+18) -> 1.0) ((2468 . 5625) (/ -4611686018427387903 -4.61168601842739e+18) -> 1.0) ((2469 . 5625) (/ -4611686018427387903 -4.61168601842739e+18) -> 1.0) ((2470 . 5625) (/ -4611686018427387903 -4.61168601842739e+18) -> 1.0) ((2471 . 5625) (/ -4611686018427387902 -4.61168601842739e+18) -> 1.0) ((2472 . 5625) (/ -4611686018427387902 -4.61168601842739e+18) -> 1.0) ((2473 . 5625) (/ -4611686018427387902 -4.61168601842739e+18) -> 1.0) ((2474 . 5625) (/ -4611686018427387902 -4.61168601842739e+18) -> 1.0) ((2475 . 5625) (/ -4611686018427387902 -4.61168601842739e+18) -> 1.0) ((2476 . 5625) (/ -4.61168601842739e+18 1103515243) -> -4179086829.72981) ((2477 . 5625) (/ -4.61168601842739e+18 1103515244) -> -4179086825.94274) ((2478 . 5625) (/ -4.61168601842739e+18 1103515245) -> -4179086822.15567) ((2479 . 5625) (/ -4.61168601842739e+18 1103515246) -> -4179086818.3686) ((2480 . 5625) (/ -4.61168601842739e+18 1103515247) -> -4179086814.58154) ((2481 . 5625) (/ -4.61168601842739e+18 1103515243) -> -4179086829.72981) ((2482 . 5625) (/ -4.61168601842739e+18 1103515244) -> -4179086825.94274) ((2483 . 5625) (/ -4.61168601842739e+18 1103515245) -> -4179086822.15567) ((2484 . 5625) (/ -4.61168601842739e+18 1103515246) -> -4179086818.3686) ((2485 . 5625) (/ -4.61168601842739e+18 1103515247) -> -4179086814.58154) ((2486 . 5625) (/ -4611686018427387904 1103515243) -> -4179086829.72981) ((2487 . 5625) (/ -4611686018427387904 1103515244) -> -4179086825.94274) ((2488 . 5625) (/ -4611686018427387904 1103515245) -> -4179086822.15567) ((2489 . 5625) (/ -4611686018427387904 1103515246) -> -4179086818.3686) ((2490 . 5625) (/ -4611686018427387904 1103515247) -> -4179086814.58154) ((2491 . 5625) (/ -4611686018427387903 1103515243) -> -4179086829.72981) ((2492 . 5625) (/ -4611686018427387903 1103515244) -> -4179086825.94274) ((2493 . 5625) (/ -4611686018427387903 1103515245) -> -4179086822.15567) ((2494 . 5625) (/ -4611686018427387903 1103515246) -> -4179086818.3686) ((2495 . 5625) (/ -4611686018427387903 1103515247) -> -4179086814.58154) ((2496 . 5625) (/ -4611686018427387902 1103515243) -> -4179086829.72981) ((2497 . 5625) (/ -4611686018427387902 1103515244) -> -4179086825.94274) ((2498 . 5625) (/ -4611686018427387902 1103515245) -> -4179086822.15567) ((2499 . 5625) (/ -4611686018427387902 1103515246) -> -4179086818.3686) ((2500 . 5625) (/ -4611686018427387902 1103515247) -> -4179086814.58154) ((2501 . 5625) (/ -4.61168601842739e+18 631629063) -> -7301256842.93819) ((2502 . 5625) (/ -4.61168601842739e+18 631629064) -> -7301256831.37879) ((2503 . 5625) (/ -4.61168601842739e+18 631629065) -> -7301256819.81938) ((2504 . 5625) (/ -4.61168601842739e+18 631629066) -> -7301256808.25997) ((2505 . 5625) (/ -4.61168601842739e+18 631629067) -> -7301256796.70057) ((2506 . 5625) (/ -4.61168601842739e+18 631629063) -> -7301256842.93819) ((2507 . 5625) (/ -4.61168601842739e+18 631629064) -> -7301256831.37879) ((2508 . 5625) (/ -4.61168601842739e+18 631629065) -> -7301256819.81938) ((2509 . 5625) (/ -4.61168601842739e+18 631629066) -> -7301256808.25997) ((2510 . 5625) (/ -4.61168601842739e+18 631629067) -> -7301256796.70057) ((2511 . 5625) (/ -4611686018427387904 631629063) -> -7301256842.93819) ((2512 . 5625) (/ -4611686018427387904 631629064) -> -7301256831.37879) ((2513 . 5625) (/ -4611686018427387904 631629065) -> -7301256819.81938) ((2514 . 5625) (/ -4611686018427387904 631629066) -> -7301256808.25997) ((2515 . 5625) (/ -4611686018427387904 631629067) -> -7301256796.70057) ((2516 . 5625) (/ -4611686018427387903 631629063) -> -7301256842.93819) ((2517 . 5625) (/ -4611686018427387903 631629064) -> -7301256831.37879) ((2518 . 5625) (/ -4611686018427387903 631629065) -> -7301256819.81938) ((2519 . 5625) (/ -4611686018427387903 631629066) -> -7301256808.25997) ((2520 . 5625) (/ -4611686018427387903 631629067) -> -7301256796.70057) ((2521 . 5625) (/ -4611686018427387902 631629063) -> -7301256842.93819) ((2522 . 5625) (/ -4611686018427387902 631629064) -> -7301256831.37879) ((2523 . 5625) (/ -4611686018427387902 631629065) -> -7301256819.81938) ((2524 . 5625) (/ -4611686018427387902 631629066) -> -7301256808.25997) ((2525 . 5625) (/ -4611686018427387902 631629067) -> -7301256796.70057) ((2526 . 5625) (/ -4.61168601842739e+18 9007199254740990) -> -512.0) ((2527 . 5625) (/ -4.61168601842739e+18 9007199254740991) -> -512.0) ((2528 . 5625) (/ -4.61168601842739e+18 9007199254740992) -> -512.0) ((2529 . 5625) (/ -4.61168601842739e+18 9007199254740993) -> -512.0) ((2530 . 5625) (/ -4.61168601842739e+18 9007199254740994) -> -512.0) ((2531 . 5625) (/ -4.61168601842739e+18 9007199254740990) -> -512.0) ((2532 . 5625) (/ -4.61168601842739e+18 9007199254740991) -> -512.0) ((2533 . 5625) (/ -4.61168601842739e+18 9007199254740992) -> -512.0) ((2534 . 5625) (/ -4.61168601842739e+18 9007199254740993) -> -512.0) ((2535 . 5625) (/ -4.61168601842739e+18 9007199254740994) -> -512.0) ((2536 . 5625) (/ -4611686018427387904 9007199254740990) -> -512.0) ((2537 . 5625) (/ -4611686018427387904 9007199254740991) -> -512.0) ((2538 . 5625) (/ -4611686018427387904 9007199254740992) -> -512) ((2539 . 5625) (/ -4611686018427387904 9007199254740993) -> -512.0) ((2540 . 5625) (/ -4611686018427387904 9007199254740994) -> -512.0) ((2541 . 5625) (/ -4611686018427387903 9007199254740990) -> -512.0) ((2542 . 5625) (/ -4611686018427387903 9007199254740991) -> -512.0) ((2543 . 5625) (/ -4611686018427387903 9007199254740992) -> -512.0) ((2544 . 5625) (/ -4611686018427387903 9007199254740993) -> -512.0) ((2545 . 5625) (/ -4611686018427387903 9007199254740994) -> -512.0) ((2546 . 5625) (/ -4611686018427387902 9007199254740990) -> -512.0) ((2547 . 5625) (/ -4611686018427387902 9007199254740991) -> -512.0) ((2548 . 5625) (/ -4611686018427387902 9007199254740992) -> -512.0) ((2549 . 5625) (/ -4611686018427387902 9007199254740993) -> -512.0) ((2550 . 5625) (/ -4611686018427387902 9007199254740994) -> -512.0) ((2551 . 5625) (/ -4.61168601842739e+18 -9007199254740994) -> 512.0) ((2552 . 5625) (/ -4.61168601842739e+18 -9007199254740993) -> 512.0) ((2553 . 5625) (/ -4.61168601842739e+18 -9007199254740992) -> 512.0) ((2554 . 5625) (/ -4.61168601842739e+18 -9007199254740991) -> 512.0) ((2555 . 5625) (/ -4.61168601842739e+18 -9007199254740990) -> 512.0) ((2556 . 5625) (/ -4.61168601842739e+18 -9007199254740994) -> 512.0) ((2557 . 5625) (/ -4.61168601842739e+18 -9007199254740993) -> 512.0) ((2558 . 5625) (/ -4.61168601842739e+18 -9007199254740992) -> 512.0) ((2559 . 5625) (/ -4.61168601842739e+18 -9007199254740991) -> 512.0) ((2560 . 5625) (/ -4.61168601842739e+18 -9007199254740990) -> 512.0) ((2561 . 5625) (/ -4611686018427387904 -9007199254740994) -> 512.0) ((2562 . 5625) (/ -4611686018427387904 -9007199254740993) -> 512.0) ((2563 . 5625) (/ -4611686018427387904 -9007199254740992) -> 512) ((2564 . 5625) (/ -4611686018427387904 -9007199254740991) -> 512.0) ((2565 . 5625) (/ -4611686018427387904 -9007199254740990) -> 512.0) ((2566 . 5625) (/ -4611686018427387903 -9007199254740994) -> 512.0) ((2567 . 5625) (/ -4611686018427387903 -9007199254740993) -> 512.0) ((2568 . 5625) (/ -4611686018427387903 -9007199254740992) -> 512.0) ((2569 . 5625) (/ -4611686018427387903 -9007199254740991) -> 512.0) ((2570 . 5625) (/ -4611686018427387903 -9007199254740990) -> 512.0) ((2571 . 5625) (/ -4611686018427387902 -9007199254740994) -> 512.0) ((2572 . 5625) (/ -4611686018427387902 -9007199254740993) -> 512.0) ((2573 . 5625) (/ -4611686018427387902 -9007199254740992) -> 512.0) ((2574 . 5625) (/ -4611686018427387902 -9007199254740991) -> 512.0) ((2575 . 5625) (/ -4611686018427387902 -9007199254740990) -> 512.0) ((2576 . 5625) (/ -4.61168601842739e+18 12343) -> -373627644691516.0) ((2577 . 5625) (/ -4.61168601842739e+18 12344) -> -373597376735854.0) ((2578 . 5625) (/ -4.61168601842739e+18 12345) -> -373567113683871.0) ((2579 . 5625) (/ -4.61168601842739e+18 12346) -> -373536855534374.0) ((2580 . 5625) (/ -4.61168601842739e+18 12347) -> -373506602286174.0) ((2581 . 5625) (/ -4.61168601842739e+18 12343) -> -373627644691516.0) ((2582 . 5625) (/ -4.61168601842739e+18 12344) -> -373597376735854.0) ((2583 . 5625) (/ -4.61168601842739e+18 12345) -> -373567113683871.0) ((2584 . 5625) (/ -4.61168601842739e+18 12346) -> -373536855534374.0) ((2585 . 5625) (/ -4.61168601842739e+18 12347) -> -373506602286174.0) ((2586 . 5625) (/ -4611686018427387904 12343) -> -373627644691516.0) ((2587 . 5625) (/ -4611686018427387904 12344) -> -373597376735854.0) ((2588 . 5625) (/ -4611686018427387904 12345) -> -373567113683871.0) ((2589 . 5625) (/ -4611686018427387904 12346) -> -373536855534374.0) ((2590 . 5625) (/ -4611686018427387904 12347) -> -373506602286174.0) ((2591 . 5625) (/ -4611686018427387903 12343) -> -373627644691516.0) ((2592 . 5625) (/ -4611686018427387903 12344) -> -373597376735854.0) ((2593 . 5625) (/ -4611686018427387903 12345) -> -373567113683871.0) ((2594 . 5625) (/ -4611686018427387903 12346) -> -373536855534374.0) ((2595 . 5625) (/ -4611686018427387903 12347) -> -373506602286174.0) ((2596 . 5625) (/ -4611686018427387902 12343) -> -373627644691516.0) ((2597 . 5625) (/ -4611686018427387902 12344) -> -373597376735854.0) ((2598 . 5625) (/ -4611686018427387902 12345) -> -373567113683871.0) ((2599 . 5625) (/ -4611686018427387902 12346) -> -373536855534374.0) ((2600 . 5625) (/ -4611686018427387902 12347) -> -373506602286174.0) ((2601 . 5625) (/ -4.61168601842739e+18 4294967294) -> -1073741824.5) ((2602 . 5625) (/ -4.61168601842739e+18 4294967295) -> -1073741824.25) ((2603 . 5625) (/ -4.61168601842739e+18 4294967296) -> -1073741824.0) ((2604 . 5625) (/ -4.61168601842739e+18 4294967297) -> -1073741823.75) ((2605 . 5625) (/ -4.61168601842739e+18 4294967298) -> -1073741823.5) ((2606 . 5625) (/ -4.61168601842739e+18 4294967294) -> -1073741824.5) ((2607 . 5625) (/ -4.61168601842739e+18 4294967295) -> -1073741824.25) ((2608 . 5625) (/ -4.61168601842739e+18 4294967296) -> -1073741824.0) ((2609 . 5625) (/ -4.61168601842739e+18 4294967297) -> -1073741823.75) ((2610 . 5625) (/ -4.61168601842739e+18 4294967298) -> -1073741823.5) ((2611 . 5625) (/ -4611686018427387904 4294967294) -> -1073741824.5) ((2612 . 5625) (/ -4611686018427387904 4294967295) -> -1073741824.25) ((2613 . 5625) (/ -4611686018427387904 4294967296) -> -1073741824) ((2614 . 5625) (/ -4611686018427387904 4294967297) -> -1073741823.75) ((2615 . 5625) (/ -4611686018427387904 4294967298) -> -1073741823.5) ((2616 . 5625) (/ -4611686018427387903 4294967294) -> -1073741824.5) ((2617 . 5625) (/ -4611686018427387903 4294967295) -> -1073741824.25) ((2618 . 5625) (/ -4611686018427387903 4294967296) -> -1073741824.0) ((2619 . 5625) (/ -4611686018427387903 4294967297) -> -1073741823.75) ((2620 . 5625) (/ -4611686018427387903 4294967298) -> -1073741823.5) ((2621 . 5625) (/ -4611686018427387902 4294967294) -> -1073741824.5) ((2622 . 5625) (/ -4611686018427387902 4294967295) -> -1073741824.25) ((2623 . 5625) (/ -4611686018427387902 4294967296) -> -1073741824.0) ((2624 . 5625) (/ -4611686018427387902 4294967297) -> -1073741823.75) ((2625 . 5625) (/ -4611686018427387902 4294967298) -> -1073741823.5) ((2626 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((2627 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2628 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2629 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2630 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((2631 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((2632 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2633 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2634 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2635 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((2636 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((2637 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2638 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2639 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2640 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((2641 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((2642 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2643 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2644 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2645 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((2646 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((2647 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2648 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2649 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2650 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((2651 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2652 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2653 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2654 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((2655 . 5625) (/ 4.61168601842739e+18 3) -> 1.53722867280913e+18) ((2656 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2657 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2658 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2659 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((2660 . 5625) (/ 4.61168601842739e+18 3) -> 1.53722867280913e+18) ((2661 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2662 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2663 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2664 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((2665 . 5625) (/ 4.61168601842739e+18 3) -> 1.53722867280913e+18) ((2666 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2667 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2668 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2669 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((2670 . 5625) (/ 4.61168601842739e+18 3) -> 1.53722867280913e+18) ((2671 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2672 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2673 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2674 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((2675 . 5625) (/ 4.61168601842739e+18 3) -> 1.53722867280913e+18) ((2676 . 5625) (/ 4.61168601842739e+18 -3) -> -1.53722867280913e+18) ((2677 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((2678 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2679 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2680 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2681 . 5625) (/ 4.61168601842739e+18 -3) -> -1.53722867280913e+18) ((2682 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((2683 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2684 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2685 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2686 . 5625) (/ 4.61168601842739e+18 -3) -> -1.53722867280913e+18) ((2687 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((2688 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2689 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2690 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2691 . 5625) (/ 4.61168601842739e+18 -3) -> -1.53722867280913e+18) ((2692 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((2693 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2694 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2695 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2696 . 5625) (/ 4.61168601842739e+18 -3) -> -1.53722867280913e+18) ((2697 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((2698 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2699 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2700 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2701 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2702 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2703 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((2704 . 5625) (/ 4.61168601842739e+18 3) -> 1.53722867280913e+18) ((2705 . 5625) (/ 4.61168601842739e+18 4) -> 1.15292150460685e+18) ((2706 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2707 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2708 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((2709 . 5625) (/ 4.61168601842739e+18 3) -> 1.53722867280913e+18) ((2710 . 5625) (/ 4.61168601842739e+18 4) -> 1.15292150460685e+18) ((2711 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2712 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2713 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((2714 . 5625) (/ 4.61168601842739e+18 3) -> 1.53722867280913e+18) ((2715 . 5625) (/ 4.61168601842739e+18 4) -> 1.15292150460685e+18) ((2716 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2717 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2718 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((2719 . 5625) (/ 4.61168601842739e+18 3) -> 1.53722867280913e+18) ((2720 . 5625) (/ 4.61168601842739e+18 4) -> 1.15292150460685e+18) ((2721 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2722 . 5625) (/ 4.61168601842739e+18 1) -> 4.61168601842739e+18) ((2723 . 5625) (/ 4.61168601842739e+18 2) -> 2.30584300921369e+18) ((2724 . 5625) (/ 4.61168601842739e+18 3) -> 1.53722867280913e+18) ((2725 . 5625) (/ 4.61168601842739e+18 4) -> 1.15292150460685e+18) ((2726 . 5625) (/ 4.61168601842739e+18 -4) -> -1.15292150460685e+18) ((2727 . 5625) (/ 4.61168601842739e+18 -3) -> -1.53722867280913e+18) ((2728 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((2729 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2730 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2731 . 5625) (/ 4.61168601842739e+18 -4) -> -1.15292150460685e+18) ((2732 . 5625) (/ 4.61168601842739e+18 -3) -> -1.53722867280913e+18) ((2733 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((2734 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2735 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2736 . 5625) (/ 4.61168601842739e+18 -4) -> -1.15292150460685e+18) ((2737 . 5625) (/ 4.61168601842739e+18 -3) -> -1.53722867280913e+18) ((2738 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((2739 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2740 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2741 . 5625) (/ 4.61168601842739e+18 -4) -> -1.15292150460685e+18) ((2742 . 5625) (/ 4.61168601842739e+18 -3) -> -1.53722867280913e+18) ((2743 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((2744 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2745 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2746 . 5625) (/ 4.61168601842739e+18 -4) -> -1.15292150460685e+18) ((2747 . 5625) (/ 4.61168601842739e+18 -3) -> -1.53722867280913e+18) ((2748 . 5625) (/ 4.61168601842739e+18 -2) -> -2.30584300921369e+18) ((2749 . 5625) (/ 4.61168601842739e+18 -1) -> -4.61168601842739e+18) ((2750 . 5625) (/ 4.61168601842739e+18 0) -> "division by zero") ((2751 . 5625) (/ 4.61168601842739e+18 4611686018427387901) -> 1.0) ((2752 . 5625) (/ 4.61168601842739e+18 4611686018427387902) -> 1.0) ((2753 . 5625) (/ 4.61168601842739e+18 4611686018427387903) -> 1.0) ((2754 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2755 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2756 . 5625) (/ 4.61168601842739e+18 4611686018427387901) -> 1.0) ((2757 . 5625) (/ 4.61168601842739e+18 4611686018427387902) -> 1.0) ((2758 . 5625) (/ 4.61168601842739e+18 4611686018427387903) -> 1.0) ((2759 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2760 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2761 . 5625) (/ 4.61168601842739e+18 4611686018427387901) -> 1.0) ((2762 . 5625) (/ 4.61168601842739e+18 4611686018427387902) -> 1.0) ((2763 . 5625) (/ 4.61168601842739e+18 4611686018427387903) -> 1.0) ((2764 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2765 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2766 . 5625) (/ 4.61168601842739e+18 4611686018427387901) -> 1.0) ((2767 . 5625) (/ 4.61168601842739e+18 4611686018427387902) -> 1.0) ((2768 . 5625) (/ 4.61168601842739e+18 4611686018427387903) -> 1.0) ((2769 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2770 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2771 . 5625) (/ 4.61168601842739e+18 4611686018427387901) -> 1.0) ((2772 . 5625) (/ 4.61168601842739e+18 4611686018427387902) -> 1.0) ((2773 . 5625) (/ 4.61168601842739e+18 4611686018427387903) -> 1.0) ((2774 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2775 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2776 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2777 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2778 . 5625) (/ 4.61168601842739e+18 -4611686018427387904) -> -1.0) ((2779 . 5625) (/ 4.61168601842739e+18 -4611686018427387903) -> -1.0) ((2780 . 5625) (/ 4.61168601842739e+18 -4611686018427387902) -> -1.0) ((2781 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2782 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2783 . 5625) (/ 4.61168601842739e+18 -4611686018427387904) -> -1.0) ((2784 . 5625) (/ 4.61168601842739e+18 -4611686018427387903) -> -1.0) ((2785 . 5625) (/ 4.61168601842739e+18 -4611686018427387902) -> -1.0) ((2786 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2787 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2788 . 5625) (/ 4.61168601842739e+18 -4611686018427387904) -> -1.0) ((2789 . 5625) (/ 4.61168601842739e+18 -4611686018427387903) -> -1.0) ((2790 . 5625) (/ 4.61168601842739e+18 -4611686018427387902) -> -1.0) ((2791 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2792 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2793 . 5625) (/ 4.61168601842739e+18 -4611686018427387904) -> -1.0) ((2794 . 5625) (/ 4.61168601842739e+18 -4611686018427387903) -> -1.0) ((2795 . 5625) (/ 4.61168601842739e+18 -4611686018427387902) -> -1.0) ((2796 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2797 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2798 . 5625) (/ 4.61168601842739e+18 -4611686018427387904) -> -1.0) ((2799 . 5625) (/ 4.61168601842739e+18 -4611686018427387903) -> -1.0) ((2800 . 5625) (/ 4.61168601842739e+18 -4611686018427387902) -> -1.0) ((2801 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2802 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2803 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2804 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2805 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2806 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2807 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2808 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2809 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2810 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2811 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2812 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2813 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2814 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2815 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2816 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2817 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2818 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2819 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2820 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2821 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2822 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2823 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2824 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2825 . 5625) (/ 4.61168601842739e+18 4.61168601842739e+18) -> 1.0) ((2826 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2827 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2828 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2829 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2830 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2831 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2832 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2833 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2834 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2835 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2836 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2837 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2838 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2839 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2840 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2841 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2842 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2843 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2844 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2845 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2846 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2847 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2848 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2849 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2850 . 5625) (/ 4.61168601842739e+18 -4.61168601842739e+18) -> -1.0) ((2851 . 5625) (/ 4.61168601842739e+18 1103515243) -> 4179086829.72981) ((2852 . 5625) (/ 4.61168601842739e+18 1103515244) -> 4179086825.94274) ((2853 . 5625) (/ 4.61168601842739e+18 1103515245) -> 4179086822.15567) ((2854 . 5625) (/ 4.61168601842739e+18 1103515246) -> 4179086818.3686) ((2855 . 5625) (/ 4.61168601842739e+18 1103515247) -> 4179086814.58154) ((2856 . 5625) (/ 4.61168601842739e+18 1103515243) -> 4179086829.72981) ((2857 . 5625) (/ 4.61168601842739e+18 1103515244) -> 4179086825.94274) ((2858 . 5625) (/ 4.61168601842739e+18 1103515245) -> 4179086822.15567) ((2859 . 5625) (/ 4.61168601842739e+18 1103515246) -> 4179086818.3686) ((2860 . 5625) (/ 4.61168601842739e+18 1103515247) -> 4179086814.58154) ((2861 . 5625) (/ 4.61168601842739e+18 1103515243) -> 4179086829.72981) ((2862 . 5625) (/ 4.61168601842739e+18 1103515244) -> 4179086825.94274) ((2863 . 5625) (/ 4.61168601842739e+18 1103515245) -> 4179086822.15567) ((2864 . 5625) (/ 4.61168601842739e+18 1103515246) -> 4179086818.3686) ((2865 . 5625) (/ 4.61168601842739e+18 1103515247) -> 4179086814.58154) ((2866 . 5625) (/ 4.61168601842739e+18 1103515243) -> 4179086829.72981) ((2867 . 5625) (/ 4.61168601842739e+18 1103515244) -> 4179086825.94274) ((2868 . 5625) (/ 4.61168601842739e+18 1103515245) -> 4179086822.15567) ((2869 . 5625) (/ 4.61168601842739e+18 1103515246) -> 4179086818.3686) ((2870 . 5625) (/ 4.61168601842739e+18 1103515247) -> 4179086814.58154) ((2871 . 5625) (/ 4.61168601842739e+18 1103515243) -> 4179086829.72981) ((2872 . 5625) (/ 4.61168601842739e+18 1103515244) -> 4179086825.94274) ((2873 . 5625) (/ 4.61168601842739e+18 1103515245) -> 4179086822.15567) ((2874 . 5625) (/ 4.61168601842739e+18 1103515246) -> 4179086818.3686) ((2875 . 5625) (/ 4.61168601842739e+18 1103515247) -> 4179086814.58154) ((2876 . 5625) (/ 4.61168601842739e+18 631629063) -> 7301256842.93819) ((2877 . 5625) (/ 4.61168601842739e+18 631629064) -> 7301256831.37879) ((2878 . 5625) (/ 4.61168601842739e+18 631629065) -> 7301256819.81938) ((2879 . 5625) (/ 4.61168601842739e+18 631629066) -> 7301256808.25997) ((2880 . 5625) (/ 4.61168601842739e+18 631629067) -> 7301256796.70057) ((2881 . 5625) (/ 4.61168601842739e+18 631629063) -> 7301256842.93819) ((2882 . 5625) (/ 4.61168601842739e+18 631629064) -> 7301256831.37879) ((2883 . 5625) (/ 4.61168601842739e+18 631629065) -> 7301256819.81938) ((2884 . 5625) (/ 4.61168601842739e+18 631629066) -> 7301256808.25997) ((2885 . 5625) (/ 4.61168601842739e+18 631629067) -> 7301256796.70057) ((2886 . 5625) (/ 4.61168601842739e+18 631629063) -> 7301256842.93819) ((2887 . 5625) (/ 4.61168601842739e+18 631629064) -> 7301256831.37879) ((2888 . 5625) (/ 4.61168601842739e+18 631629065) -> 7301256819.81938) ((2889 . 5625) (/ 4.61168601842739e+18 631629066) -> 7301256808.25997) ((2890 . 5625) (/ 4.61168601842739e+18 631629067) -> 7301256796.70057) ((2891 . 5625) (/ 4.61168601842739e+18 631629063) -> 7301256842.93819) ((2892 . 5625) (/ 4.61168601842739e+18 631629064) -> 7301256831.37879) ((2893 . 5625) (/ 4.61168601842739e+18 631629065) -> 7301256819.81938) ((2894 . 5625) (/ 4.61168601842739e+18 631629066) -> 7301256808.25997) ((2895 . 5625) (/ 4.61168601842739e+18 631629067) -> 7301256796.70057) ((2896 . 5625) (/ 4.61168601842739e+18 631629063) -> 7301256842.93819) ((2897 . 5625) (/ 4.61168601842739e+18 631629064) -> 7301256831.37879) ((2898 . 5625) (/ 4.61168601842739e+18 631629065) -> 7301256819.81938) ((2899 . 5625) (/ 4.61168601842739e+18 631629066) -> 7301256808.25997) ((2900 . 5625) (/ 4.61168601842739e+18 631629067) -> 7301256796.70057) ((2901 . 5625) (/ 4.61168601842739e+18 9007199254740990) -> 512.0) ((2902 . 5625) (/ 4.61168601842739e+18 9007199254740991) -> 512.0) ((2903 . 5625) (/ 4.61168601842739e+18 9007199254740992) -> 512.0) ((2904 . 5625) (/ 4.61168601842739e+18 9007199254740993) -> 512.0) ((2905 . 5625) (/ 4.61168601842739e+18 9007199254740994) -> 512.0) ((2906 . 5625) (/ 4.61168601842739e+18 9007199254740990) -> 512.0) ((2907 . 5625) (/ 4.61168601842739e+18 9007199254740991) -> 512.0) ((2908 . 5625) (/ 4.61168601842739e+18 9007199254740992) -> 512.0) ((2909 . 5625) (/ 4.61168601842739e+18 9007199254740993) -> 512.0) ((2910 . 5625) (/ 4.61168601842739e+18 9007199254740994) -> 512.0) ((2911 . 5625) (/ 4.61168601842739e+18 9007199254740990) -> 512.0) ((2912 . 5625) (/ 4.61168601842739e+18 9007199254740991) -> 512.0) ((2913 . 5625) (/ 4.61168601842739e+18 9007199254740992) -> 512.0) ((2914 . 5625) (/ 4.61168601842739e+18 9007199254740993) -> 512.0) ((2915 . 5625) (/ 4.61168601842739e+18 9007199254740994) -> 512.0) ((2916 . 5625) (/ 4.61168601842739e+18 9007199254740990) -> 512.0) ((2917 . 5625) (/ 4.61168601842739e+18 9007199254740991) -> 512.0) ((2918 . 5625) (/ 4.61168601842739e+18 9007199254740992) -> 512.0) ((2919 . 5625) (/ 4.61168601842739e+18 9007199254740993) -> 512.0) ((2920 . 5625) (/ 4.61168601842739e+18 9007199254740994) -> 512.0) ((2921 . 5625) (/ 4.61168601842739e+18 9007199254740990) -> 512.0) ((2922 . 5625) (/ 4.61168601842739e+18 9007199254740991) -> 512.0) ((2923 . 5625) (/ 4.61168601842739e+18 9007199254740992) -> 512.0) ((2924 . 5625) (/ 4.61168601842739e+18 9007199254740993) -> 512.0) ((2925 . 5625) (/ 4.61168601842739e+18 9007199254740994) -> 512.0) ((2926 . 5625) (/ 4.61168601842739e+18 -9007199254740994) -> -512.0) ((2927 . 5625) (/ 4.61168601842739e+18 -9007199254740993) -> -512.0) ((2928 . 5625) (/ 4.61168601842739e+18 -9007199254740992) -> -512.0) ((2929 . 5625) (/ 4.61168601842739e+18 -9007199254740991) -> -512.0) ((2930 . 5625) (/ 4.61168601842739e+18 -9007199254740990) -> -512.0) ((2931 . 5625) (/ 4.61168601842739e+18 -9007199254740994) -> -512.0) ((2932 . 5625) (/ 4.61168601842739e+18 -9007199254740993) -> -512.0) ((2933 . 5625) (/ 4.61168601842739e+18 -9007199254740992) -> -512.0) ((2934 . 5625) (/ 4.61168601842739e+18 -9007199254740991) -> -512.0) ((2935 . 5625) (/ 4.61168601842739e+18 -9007199254740990) -> -512.0) ((2936 . 5625) (/ 4.61168601842739e+18 -9007199254740994) -> -512.0) ((2937 . 5625) (/ 4.61168601842739e+18 -9007199254740993) -> -512.0) ((2938 . 5625) (/ 4.61168601842739e+18 -9007199254740992) -> -512.0) ((2939 . 5625) (/ 4.61168601842739e+18 -9007199254740991) -> -512.0) ((2940 . 5625) (/ 4.61168601842739e+18 -9007199254740990) -> -512.0) ((2941 . 5625) (/ 4.61168601842739e+18 -9007199254740994) -> -512.0) ((2942 . 5625) (/ 4.61168601842739e+18 -9007199254740993) -> -512.0) ((2943 . 5625) (/ 4.61168601842739e+18 -9007199254740992) -> -512.0) ((2944 . 5625) (/ 4.61168601842739e+18 -9007199254740991) -> -512.0) ((2945 . 5625) (/ 4.61168601842739e+18 -9007199254740990) -> -512.0) ((2946 . 5625) (/ 4.61168601842739e+18 -9007199254740994) -> -512.0) ((2947 . 5625) (/ 4.61168601842739e+18 -9007199254740993) -> -512.0) ((2948 . 5625) (/ 4.61168601842739e+18 -9007199254740992) -> -512.0) ((2949 . 5625) (/ 4.61168601842739e+18 -9007199254740991) -> -512.0) ((2950 . 5625) (/ 4.61168601842739e+18 -9007199254740990) -> -512.0) ((2951 . 5625) (/ 4.61168601842739e+18 12343) -> 373627644691516.0) ((2952 . 5625) (/ 4.61168601842739e+18 12344) -> 373597376735854.0) ((2953 . 5625) (/ 4.61168601842739e+18 12345) -> 373567113683871.0) ((2954 . 5625) (/ 4.61168601842739e+18 12346) -> 373536855534374.0) ((2955 . 5625) (/ 4.61168601842739e+18 12347) -> 373506602286174.0) ((2956 . 5625) (/ 4.61168601842739e+18 12343) -> 373627644691516.0) ((2957 . 5625) (/ 4.61168601842739e+18 12344) -> 373597376735854.0) ((2958 . 5625) (/ 4.61168601842739e+18 12345) -> 373567113683871.0) ((2959 . 5625) (/ 4.61168601842739e+18 12346) -> 373536855534374.0) ((2960 . 5625) (/ 4.61168601842739e+18 12347) -> 373506602286174.0) ((2961 . 5625) (/ 4.61168601842739e+18 12343) -> 373627644691516.0) ((2962 . 5625) (/ 4.61168601842739e+18 12344) -> 373597376735854.0) ((2963 . 5625) (/ 4.61168601842739e+18 12345) -> 373567113683871.0) ((2964 . 5625) (/ 4.61168601842739e+18 12346) -> 373536855534374.0) ((2965 . 5625) (/ 4.61168601842739e+18 12347) -> 373506602286174.0) ((2966 . 5625) (/ 4.61168601842739e+18 12343) -> 373627644691516.0) ((2967 . 5625) (/ 4.61168601842739e+18 12344) -> 373597376735854.0) ((2968 . 5625) (/ 4.61168601842739e+18 12345) -> 373567113683871.0) ((2969 . 5625) (/ 4.61168601842739e+18 12346) -> 373536855534374.0) ((2970 . 5625) (/ 4.61168601842739e+18 12347) -> 373506602286174.0) ((2971 . 5625) (/ 4.61168601842739e+18 12343) -> 373627644691516.0) ((2972 . 5625) (/ 4.61168601842739e+18 12344) -> 373597376735854.0) ((2973 . 5625) (/ 4.61168601842739e+18 12345) -> 373567113683871.0) ((2974 . 5625) (/ 4.61168601842739e+18 12346) -> 373536855534374.0) ((2975 . 5625) (/ 4.61168601842739e+18 12347) -> 373506602286174.0) ((2976 . 5625) (/ 4.61168601842739e+18 4294967294) -> 1073741824.5) ((2977 . 5625) (/ 4.61168601842739e+18 4294967295) -> 1073741824.25) ((2978 . 5625) (/ 4.61168601842739e+18 4294967296) -> 1073741824.0) ((2979 . 5625) (/ 4.61168601842739e+18 4294967297) -> 1073741823.75) ((2980 . 5625) (/ 4.61168601842739e+18 4294967298) -> 1073741823.5) ((2981 . 5625) (/ 4.61168601842739e+18 4294967294) -> 1073741824.5) ((2982 . 5625) (/ 4.61168601842739e+18 4294967295) -> 1073741824.25) ((2983 . 5625) (/ 4.61168601842739e+18 4294967296) -> 1073741824.0) ((2984 . 5625) (/ 4.61168601842739e+18 4294967297) -> 1073741823.75) ((2985 . 5625) (/ 4.61168601842739e+18 4294967298) -> 1073741823.5) ((2986 . 5625) (/ 4.61168601842739e+18 4294967294) -> 1073741824.5) ((2987 . 5625) (/ 4.61168601842739e+18 4294967295) -> 1073741824.25) ((2988 . 5625) (/ 4.61168601842739e+18 4294967296) -> 1073741824.0) ((2989 . 5625) (/ 4.61168601842739e+18 4294967297) -> 1073741823.75) ((2990 . 5625) (/ 4.61168601842739e+18 4294967298) -> 1073741823.5) ((2991 . 5625) (/ 4.61168601842739e+18 4294967294) -> 1073741824.5) ((2992 . 5625) (/ 4.61168601842739e+18 4294967295) -> 1073741824.25) ((2993 . 5625) (/ 4.61168601842739e+18 4294967296) -> 1073741824.0) ((2994 . 5625) (/ 4.61168601842739e+18 4294967297) -> 1073741823.75) ((2995 . 5625) (/ 4.61168601842739e+18 4294967298) -> 1073741823.5) ((2996 . 5625) (/ 4.61168601842739e+18 4294967294) -> 1073741824.5) ((2997 . 5625) (/ 4.61168601842739e+18 4294967295) -> 1073741824.25) ((2998 . 5625) (/ 4.61168601842739e+18 4294967296) -> 1073741824.0) ((2999 . 5625) (/ 4.61168601842739e+18 4294967297) -> 1073741823.75) ((3000 . 5625) (/ 4.61168601842739e+18 4294967298) -> 1073741823.5) ((3001 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((3002 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3003 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3004 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3005 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((3006 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((3007 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3008 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3009 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3010 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((3011 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((3012 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3013 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3014 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3015 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((3016 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((3017 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3018 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3019 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3020 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((3021 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((3022 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3023 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3024 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3025 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((3026 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3027 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3028 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3029 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((3030 . 5625) (/ -4.61168601842739e+18 3) -> -1.53722867280913e+18) ((3031 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3032 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3033 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3034 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((3035 . 5625) (/ -4.61168601842739e+18 3) -> -1.53722867280913e+18) ((3036 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3037 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3038 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3039 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((3040 . 5625) (/ -4.61168601842739e+18 3) -> -1.53722867280913e+18) ((3041 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3042 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3043 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3044 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((3045 . 5625) (/ -4.61168601842739e+18 3) -> -1.53722867280913e+18) ((3046 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3047 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3048 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3049 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((3050 . 5625) (/ -4.61168601842739e+18 3) -> -1.53722867280913e+18) ((3051 . 5625) (/ -4.61168601842739e+18 -3) -> 1.53722867280913e+18) ((3052 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((3053 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3054 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3055 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3056 . 5625) (/ -4.61168601842739e+18 -3) -> 1.53722867280913e+18) ((3057 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((3058 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3059 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3060 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3061 . 5625) (/ -4.61168601842739e+18 -3) -> 1.53722867280913e+18) ((3062 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((3063 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3064 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3065 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3066 . 5625) (/ -4.61168601842739e+18 -3) -> 1.53722867280913e+18) ((3067 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((3068 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3069 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3070 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3071 . 5625) (/ -4.61168601842739e+18 -3) -> 1.53722867280913e+18) ((3072 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((3073 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3074 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3075 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3076 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3077 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3078 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((3079 . 5625) (/ -4.61168601842739e+18 3) -> -1.53722867280913e+18) ((3080 . 5625) (/ -4.61168601842739e+18 4) -> -1.15292150460685e+18) ((3081 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3082 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3083 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((3084 . 5625) (/ -4.61168601842739e+18 3) -> -1.53722867280913e+18) ((3085 . 5625) (/ -4.61168601842739e+18 4) -> -1.15292150460685e+18) ((3086 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3087 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3088 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((3089 . 5625) (/ -4.61168601842739e+18 3) -> -1.53722867280913e+18) ((3090 . 5625) (/ -4.61168601842739e+18 4) -> -1.15292150460685e+18) ((3091 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3092 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3093 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((3094 . 5625) (/ -4.61168601842739e+18 3) -> -1.53722867280913e+18) ((3095 . 5625) (/ -4.61168601842739e+18 4) -> -1.15292150460685e+18) ((3096 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3097 . 5625) (/ -4.61168601842739e+18 1) -> -4.61168601842739e+18) ((3098 . 5625) (/ -4.61168601842739e+18 2) -> -2.30584300921369e+18) ((3099 . 5625) (/ -4.61168601842739e+18 3) -> -1.53722867280913e+18) ((3100 . 5625) (/ -4.61168601842739e+18 4) -> -1.15292150460685e+18) ((3101 . 5625) (/ -4.61168601842739e+18 -4) -> 1.15292150460685e+18) ((3102 . 5625) (/ -4.61168601842739e+18 -3) -> 1.53722867280913e+18) ((3103 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((3104 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3105 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3106 . 5625) (/ -4.61168601842739e+18 -4) -> 1.15292150460685e+18) ((3107 . 5625) (/ -4.61168601842739e+18 -3) -> 1.53722867280913e+18) ((3108 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((3109 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3110 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3111 . 5625) (/ -4.61168601842739e+18 -4) -> 1.15292150460685e+18) ((3112 . 5625) (/ -4.61168601842739e+18 -3) -> 1.53722867280913e+18) ((3113 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((3114 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3115 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3116 . 5625) (/ -4.61168601842739e+18 -4) -> 1.15292150460685e+18) ((3117 . 5625) (/ -4.61168601842739e+18 -3) -> 1.53722867280913e+18) ((3118 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((3119 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3120 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3121 . 5625) (/ -4.61168601842739e+18 -4) -> 1.15292150460685e+18) ((3122 . 5625) (/ -4.61168601842739e+18 -3) -> 1.53722867280913e+18) ((3123 . 5625) (/ -4.61168601842739e+18 -2) -> 2.30584300921369e+18) ((3124 . 5625) (/ -4.61168601842739e+18 -1) -> 4.61168601842739e+18) ((3125 . 5625) (/ -4.61168601842739e+18 0) -> "division by zero") ((3126 . 5625) (/ -4.61168601842739e+18 4611686018427387901) -> -1.0) ((3127 . 5625) (/ -4.61168601842739e+18 4611686018427387902) -> -1.0) ((3128 . 5625) (/ -4.61168601842739e+18 4611686018427387903) -> -1.0) ((3129 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3130 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3131 . 5625) (/ -4.61168601842739e+18 4611686018427387901) -> -1.0) ((3132 . 5625) (/ -4.61168601842739e+18 4611686018427387902) -> -1.0) ((3133 . 5625) (/ -4.61168601842739e+18 4611686018427387903) -> -1.0) ((3134 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3135 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3136 . 5625) (/ -4.61168601842739e+18 4611686018427387901) -> -1.0) ((3137 . 5625) (/ -4.61168601842739e+18 4611686018427387902) -> -1.0) ((3138 . 5625) (/ -4.61168601842739e+18 4611686018427387903) -> -1.0) ((3139 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3140 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3141 . 5625) (/ -4.61168601842739e+18 4611686018427387901) -> -1.0) ((3142 . 5625) (/ -4.61168601842739e+18 4611686018427387902) -> -1.0) ((3143 . 5625) (/ -4.61168601842739e+18 4611686018427387903) -> -1.0) ((3144 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3145 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3146 . 5625) (/ -4.61168601842739e+18 4611686018427387901) -> -1.0) ((3147 . 5625) (/ -4.61168601842739e+18 4611686018427387902) -> -1.0) ((3148 . 5625) (/ -4.61168601842739e+18 4611686018427387903) -> -1.0) ((3149 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3150 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3151 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3152 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3153 . 5625) (/ -4.61168601842739e+18 -4611686018427387904) -> 1.0) ((3154 . 5625) (/ -4.61168601842739e+18 -4611686018427387903) -> 1.0) ((3155 . 5625) (/ -4.61168601842739e+18 -4611686018427387902) -> 1.0) ((3156 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3157 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3158 . 5625) (/ -4.61168601842739e+18 -4611686018427387904) -> 1.0) ((3159 . 5625) (/ -4.61168601842739e+18 -4611686018427387903) -> 1.0) ((3160 . 5625) (/ -4.61168601842739e+18 -4611686018427387902) -> 1.0) ((3161 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3162 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3163 . 5625) (/ -4.61168601842739e+18 -4611686018427387904) -> 1.0) ((3164 . 5625) (/ -4.61168601842739e+18 -4611686018427387903) -> 1.0) ((3165 . 5625) (/ -4.61168601842739e+18 -4611686018427387902) -> 1.0) ((3166 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3167 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3168 . 5625) (/ -4.61168601842739e+18 -4611686018427387904) -> 1.0) ((3169 . 5625) (/ -4.61168601842739e+18 -4611686018427387903) -> 1.0) ((3170 . 5625) (/ -4.61168601842739e+18 -4611686018427387902) -> 1.0) ((3171 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3172 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3173 . 5625) (/ -4.61168601842739e+18 -4611686018427387904) -> 1.0) ((3174 . 5625) (/ -4.61168601842739e+18 -4611686018427387903) -> 1.0) ((3175 . 5625) (/ -4.61168601842739e+18 -4611686018427387902) -> 1.0) ((3176 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3177 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3178 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3179 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3180 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3181 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3182 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3183 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3184 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3185 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3186 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3187 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3188 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3189 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3190 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3191 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3192 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3193 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3194 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3195 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3196 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3197 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3198 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3199 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3200 . 5625) (/ -4.61168601842739e+18 4.61168601842739e+18) -> -1.0) ((3201 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3202 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3203 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3204 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3205 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3206 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3207 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3208 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3209 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3210 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3211 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3212 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3213 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3214 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3215 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3216 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3217 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3218 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3219 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3220 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3221 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3222 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3223 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3224 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3225 . 5625) (/ -4.61168601842739e+18 -4.61168601842739e+18) -> 1.0) ((3226 . 5625) (/ -4.61168601842739e+18 1103515243) -> -4179086829.72981) ((3227 . 5625) (/ -4.61168601842739e+18 1103515244) -> -4179086825.94274) ((3228 . 5625) (/ -4.61168601842739e+18 1103515245) -> -4179086822.15567) ((3229 . 5625) (/ -4.61168601842739e+18 1103515246) -> -4179086818.3686) ((3230 . 5625) (/ -4.61168601842739e+18 1103515247) -> -4179086814.58154) ((3231 . 5625) (/ -4.61168601842739e+18 1103515243) -> -4179086829.72981) ((3232 . 5625) (/ -4.61168601842739e+18 1103515244) -> -4179086825.94274) ((3233 . 5625) (/ -4.61168601842739e+18 1103515245) -> -4179086822.15567) ((3234 . 5625) (/ -4.61168601842739e+18 1103515246) -> -4179086818.3686) ((3235 . 5625) (/ -4.61168601842739e+18 1103515247) -> -4179086814.58154) ((3236 . 5625) (/ -4.61168601842739e+18 1103515243) -> -4179086829.72981) ((3237 . 5625) (/ -4.61168601842739e+18 1103515244) -> -4179086825.94274) ((3238 . 5625) (/ -4.61168601842739e+18 1103515245) -> -4179086822.15567) ((3239 . 5625) (/ -4.61168601842739e+18 1103515246) -> -4179086818.3686) ((3240 . 5625) (/ -4.61168601842739e+18 1103515247) -> -4179086814.58154) ((3241 . 5625) (/ -4.61168601842739e+18 1103515243) -> -4179086829.72981) ((3242 . 5625) (/ -4.61168601842739e+18 1103515244) -> -4179086825.94274) ((3243 . 5625) (/ -4.61168601842739e+18 1103515245) -> -4179086822.15567) ((3244 . 5625) (/ -4.61168601842739e+18 1103515246) -> -4179086818.3686) ((3245 . 5625) (/ -4.61168601842739e+18 1103515247) -> -4179086814.58154) ((3246 . 5625) (/ -4.61168601842739e+18 1103515243) -> -4179086829.72981) ((3247 . 5625) (/ -4.61168601842739e+18 1103515244) -> -4179086825.94274) ((3248 . 5625) (/ -4.61168601842739e+18 1103515245) -> -4179086822.15567) ((3249 . 5625) (/ -4.61168601842739e+18 1103515246) -> -4179086818.3686) ((3250 . 5625) (/ -4.61168601842739e+18 1103515247) -> -4179086814.58154) ((3251 . 5625) (/ -4.61168601842739e+18 631629063) -> -7301256842.93819) ((3252 . 5625) (/ -4.61168601842739e+18 631629064) -> -7301256831.37879) ((3253 . 5625) (/ -4.61168601842739e+18 631629065) -> -7301256819.81938) ((3254 . 5625) (/ -4.61168601842739e+18 631629066) -> -7301256808.25997) ((3255 . 5625) (/ -4.61168601842739e+18 631629067) -> -7301256796.70057) ((3256 . 5625) (/ -4.61168601842739e+18 631629063) -> -7301256842.93819) ((3257 . 5625) (/ -4.61168601842739e+18 631629064) -> -7301256831.37879) ((3258 . 5625) (/ -4.61168601842739e+18 631629065) -> -7301256819.81938) ((3259 . 5625) (/ -4.61168601842739e+18 631629066) -> -7301256808.25997) ((3260 . 5625) (/ -4.61168601842739e+18 631629067) -> -7301256796.70057) ((3261 . 5625) (/ -4.61168601842739e+18 631629063) -> -7301256842.93819) ((3262 . 5625) (/ -4.61168601842739e+18 631629064) -> -7301256831.37879) ((3263 . 5625) (/ -4.61168601842739e+18 631629065) -> -7301256819.81938) ((3264 . 5625) (/ -4.61168601842739e+18 631629066) -> -7301256808.25997) ((3265 . 5625) (/ -4.61168601842739e+18 631629067) -> -7301256796.70057) ((3266 . 5625) (/ -4.61168601842739e+18 631629063) -> -7301256842.93819) ((3267 . 5625) (/ -4.61168601842739e+18 631629064) -> -7301256831.37879) ((3268 . 5625) (/ -4.61168601842739e+18 631629065) -> -7301256819.81938) ((3269 . 5625) (/ -4.61168601842739e+18 631629066) -> -7301256808.25997) ((3270 . 5625) (/ -4.61168601842739e+18 631629067) -> -7301256796.70057) ((3271 . 5625) (/ -4.61168601842739e+18 631629063) -> -7301256842.93819) ((3272 . 5625) (/ -4.61168601842739e+18 631629064) -> -7301256831.37879) ((3273 . 5625) (/ -4.61168601842739e+18 631629065) -> -7301256819.81938) ((3274 . 5625) (/ -4.61168601842739e+18 631629066) -> -7301256808.25997) ((3275 . 5625) (/ -4.61168601842739e+18 631629067) -> -7301256796.70057) ((3276 . 5625) (/ -4.61168601842739e+18 9007199254740990) -> -512.0) ((3277 . 5625) (/ -4.61168601842739e+18 9007199254740991) -> -512.0) ((3278 . 5625) (/ -4.61168601842739e+18 9007199254740992) -> -512.0) ((3279 . 5625) (/ -4.61168601842739e+18 9007199254740993) -> -512.0) ((3280 . 5625) (/ -4.61168601842739e+18 9007199254740994) -> -512.0) ((3281 . 5625) (/ -4.61168601842739e+18 9007199254740990) -> -512.0) ((3282 . 5625) (/ -4.61168601842739e+18 9007199254740991) -> -512.0) ((3283 . 5625) (/ -4.61168601842739e+18 9007199254740992) -> -512.0) ((3284 . 5625) (/ -4.61168601842739e+18 9007199254740993) -> -512.0) ((3285 . 5625) (/ -4.61168601842739e+18 9007199254740994) -> -512.0) ((3286 . 5625) (/ -4.61168601842739e+18 9007199254740990) -> -512.0) ((3287 . 5625) (/ -4.61168601842739e+18 9007199254740991) -> -512.0) ((3288 . 5625) (/ -4.61168601842739e+18 9007199254740992) -> -512.0) ((3289 . 5625) (/ -4.61168601842739e+18 9007199254740993) -> -512.0) ((3290 . 5625) (/ -4.61168601842739e+18 9007199254740994) -> -512.0) ((3291 . 5625) (/ -4.61168601842739e+18 9007199254740990) -> -512.0) ((3292 . 5625) (/ -4.61168601842739e+18 9007199254740991) -> -512.0) ((3293 . 5625) (/ -4.61168601842739e+18 9007199254740992) -> -512.0) ((3294 . 5625) (/ -4.61168601842739e+18 9007199254740993) -> -512.0) ((3295 . 5625) (/ -4.61168601842739e+18 9007199254740994) -> -512.0) ((3296 . 5625) (/ -4.61168601842739e+18 9007199254740990) -> -512.0) ((3297 . 5625) (/ -4.61168601842739e+18 9007199254740991) -> -512.0) ((3298 . 5625) (/ -4.61168601842739e+18 9007199254740992) -> -512.0) ((3299 . 5625) (/ -4.61168601842739e+18 9007199254740993) -> -512.0) ((3300 . 5625) (/ -4.61168601842739e+18 9007199254740994) -> -512.0) ((3301 . 5625) (/ -4.61168601842739e+18 -9007199254740994) -> 512.0) ((3302 . 5625) (/ -4.61168601842739e+18 -9007199254740993) -> 512.0) ((3303 . 5625) (/ -4.61168601842739e+18 -9007199254740992) -> 512.0) ((3304 . 5625) (/ -4.61168601842739e+18 -9007199254740991) -> 512.0) ((3305 . 5625) (/ -4.61168601842739e+18 -9007199254740990) -> 512.0) ((3306 . 5625) (/ -4.61168601842739e+18 -9007199254740994) -> 512.0) ((3307 . 5625) (/ -4.61168601842739e+18 -9007199254740993) -> 512.0) ((3308 . 5625) (/ -4.61168601842739e+18 -9007199254740992) -> 512.0) ((3309 . 5625) (/ -4.61168601842739e+18 -9007199254740991) -> 512.0) ((3310 . 5625) (/ -4.61168601842739e+18 -9007199254740990) -> 512.0) ((3311 . 5625) (/ -4.61168601842739e+18 -9007199254740994) -> 512.0) ((3312 . 5625) (/ -4.61168601842739e+18 -9007199254740993) -> 512.0) ((3313 . 5625) (/ -4.61168601842739e+18 -9007199254740992) -> 512.0) ((3314 . 5625) (/ -4.61168601842739e+18 -9007199254740991) -> 512.0) ((3315 . 5625) (/ -4.61168601842739e+18 -9007199254740990) -> 512.0) ((3316 . 5625) (/ -4.61168601842739e+18 -9007199254740994) -> 512.0) ((3317 . 5625) (/ -4.61168601842739e+18 -9007199254740993) -> 512.0) ((3318 . 5625) (/ -4.61168601842739e+18 -9007199254740992) -> 512.0) ((3319 . 5625) (/ -4.61168601842739e+18 -9007199254740991) -> 512.0) ((3320 . 5625) (/ -4.61168601842739e+18 -9007199254740990) -> 512.0) ((3321 . 5625) (/ -4.61168601842739e+18 -9007199254740994) -> 512.0) ((3322 . 5625) (/ -4.61168601842739e+18 -9007199254740993) -> 512.0) ((3323 . 5625) (/ -4.61168601842739e+18 -9007199254740992) -> 512.0) ((3324 . 5625) (/ -4.61168601842739e+18 -9007199254740991) -> 512.0) ((3325 . 5625) (/ -4.61168601842739e+18 -9007199254740990) -> 512.0) ((3326 . 5625) (/ -4.61168601842739e+18 12343) -> -373627644691516.0) ((3327 . 5625) (/ -4.61168601842739e+18 12344) -> -373597376735854.0) ((3328 . 5625) (/ -4.61168601842739e+18 12345) -> -373567113683871.0) ((3329 . 5625) (/ -4.61168601842739e+18 12346) -> -373536855534374.0) ((3330 . 5625) (/ -4.61168601842739e+18 12347) -> -373506602286174.0) ((3331 . 5625) (/ -4.61168601842739e+18 12343) -> -373627644691516.0) ((3332 . 5625) (/ -4.61168601842739e+18 12344) -> -373597376735854.0) ((3333 . 5625) (/ -4.61168601842739e+18 12345) -> -373567113683871.0) ((3334 . 5625) (/ -4.61168601842739e+18 12346) -> -373536855534374.0) ((3335 . 5625) (/ -4.61168601842739e+18 12347) -> -373506602286174.0) ((3336 . 5625) (/ -4.61168601842739e+18 12343) -> -373627644691516.0) ((3337 . 5625) (/ -4.61168601842739e+18 12344) -> -373597376735854.0) ((3338 . 5625) (/ -4.61168601842739e+18 12345) -> -373567113683871.0) ((3339 . 5625) (/ -4.61168601842739e+18 12346) -> -373536855534374.0) ((3340 . 5625) (/ -4.61168601842739e+18 12347) -> -373506602286174.0) ((3341 . 5625) (/ -4.61168601842739e+18 12343) -> -373627644691516.0) ((3342 . 5625) (/ -4.61168601842739e+18 12344) -> -373597376735854.0) ((3343 . 5625) (/ -4.61168601842739e+18 12345) -> -373567113683871.0) ((3344 . 5625) (/ -4.61168601842739e+18 12346) -> -373536855534374.0) ((3345 . 5625) (/ -4.61168601842739e+18 12347) -> -373506602286174.0) ((3346 . 5625) (/ -4.61168601842739e+18 12343) -> -373627644691516.0) ((3347 . 5625) (/ -4.61168601842739e+18 12344) -> -373597376735854.0) ((3348 . 5625) (/ -4.61168601842739e+18 12345) -> -373567113683871.0) ((3349 . 5625) (/ -4.61168601842739e+18 12346) -> -373536855534374.0) ((3350 . 5625) (/ -4.61168601842739e+18 12347) -> -373506602286174.0) ((3351 . 5625) (/ -4.61168601842739e+18 4294967294) -> -1073741824.5) ((3352 . 5625) (/ -4.61168601842739e+18 4294967295) -> -1073741824.25) ((3353 . 5625) (/ -4.61168601842739e+18 4294967296) -> -1073741824.0) ((3354 . 5625) (/ -4.61168601842739e+18 4294967297) -> -1073741823.75) ((3355 . 5625) (/ -4.61168601842739e+18 4294967298) -> -1073741823.5) ((3356 . 5625) (/ -4.61168601842739e+18 4294967294) -> -1073741824.5) ((3357 . 5625) (/ -4.61168601842739e+18 4294967295) -> -1073741824.25) ((3358 . 5625) (/ -4.61168601842739e+18 4294967296) -> -1073741824.0) ((3359 . 5625) (/ -4.61168601842739e+18 4294967297) -> -1073741823.75) ((3360 . 5625) (/ -4.61168601842739e+18 4294967298) -> -1073741823.5) ((3361 . 5625) (/ -4.61168601842739e+18 4294967294) -> -1073741824.5) ((3362 . 5625) (/ -4.61168601842739e+18 4294967295) -> -1073741824.25) ((3363 . 5625) (/ -4.61168601842739e+18 4294967296) -> -1073741824.0) ((3364 . 5625) (/ -4.61168601842739e+18 4294967297) -> -1073741823.75) ((3365 . 5625) (/ -4.61168601842739e+18 4294967298) -> -1073741823.5) ((3366 . 5625) (/ -4.61168601842739e+18 4294967294) -> -1073741824.5) ((3367 . 5625) (/ -4.61168601842739e+18 4294967295) -> -1073741824.25) ((3368 . 5625) (/ -4.61168601842739e+18 4294967296) -> -1073741824.0) ((3369 . 5625) (/ -4.61168601842739e+18 4294967297) -> -1073741823.75) ((3370 . 5625) (/ -4.61168601842739e+18 4294967298) -> -1073741823.5) ((3371 . 5625) (/ -4.61168601842739e+18 4294967294) -> -1073741824.5) ((3372 . 5625) (/ -4.61168601842739e+18 4294967295) -> -1073741824.25) ((3373 . 5625) (/ -4.61168601842739e+18 4294967296) -> -1073741824.0) ((3374 . 5625) (/ -4.61168601842739e+18 4294967297) -> -1073741823.75) ((3375 . 5625) (/ -4.61168601842739e+18 4294967298) -> -1073741823.5) ((3376 . 5625) (/ 1103515243 -2) -> -551757621.5) ((3377 . 5625) (/ 1103515243 -1) -> -1103515243) ((3378 . 5625) (/ 1103515243 0) -> "division by zero") ((3379 . 5625) (/ 1103515243 1) -> 1103515243) ((3380 . 5625) (/ 1103515243 2) -> 551757621.5) ((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) -> -551757622.5) ((3387 . 5625) (/ 1103515245 -1) -> -1103515245) ((3388 . 5625) (/ 1103515245 0) -> "division by zero") ((3389 . 5625) (/ 1103515245 1) -> 1103515245) ((3390 . 5625) (/ 1103515245 2) -> 551757622.5) ((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) -> -551757623.5) ((3397 . 5625) (/ 1103515247 -1) -> -1103515247) ((3398 . 5625) (/ 1103515247 0) -> "division by zero") ((3399 . 5625) (/ 1103515247 1) -> 1103515247) ((3400 . 5625) (/ 1103515247 2) -> 551757623.5) ((3401 . 5625) (/ 1103515243 -1) -> -1103515243) ((3402 . 5625) (/ 1103515243 0) -> "division by zero") ((3403 . 5625) (/ 1103515243 1) -> 1103515243) ((3404 . 5625) (/ 1103515243 2) -> 551757621.5) ((3405 . 5625) (/ 1103515243 3) -> 367838414.333333) ((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) -> 367838414.666667) ((3411 . 5625) (/ 1103515245 -1) -> -1103515245) ((3412 . 5625) (/ 1103515245 0) -> "division by zero") ((3413 . 5625) (/ 1103515245 1) -> 1103515245) ((3414 . 5625) (/ 1103515245 2) -> 551757622.5) ((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) -> 367838415.333333) ((3421 . 5625) (/ 1103515247 -1) -> -1103515247) ((3422 . 5625) (/ 1103515247 0) -> "division by zero") ((3423 . 5625) (/ 1103515247 1) -> 1103515247) ((3424 . 5625) (/ 1103515247 2) -> 551757623.5) ((3425 . 5625) (/ 1103515247 3) -> 367838415.666667) ((3426 . 5625) (/ 1103515243 -3) -> -367838414.333333) ((3427 . 5625) (/ 1103515243 -2) -> -551757621.5) ((3428 . 5625) (/ 1103515243 -1) -> -1103515243) ((3429 . 5625) (/ 1103515243 0) -> "division by zero") ((3430 . 5625) (/ 1103515243 1) -> 1103515243) ((3431 . 5625) (/ 1103515244 -3) -> -367838414.666667) ((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) -> -551757622.5) ((3438 . 5625) (/ 1103515245 -1) -> -1103515245) ((3439 . 5625) (/ 1103515245 0) -> "division by zero") ((3440 . 5625) (/ 1103515245 1) -> 1103515245) ((3441 . 5625) (/ 1103515246 -3) -> -367838415.333333) ((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) -> -367838415.666667) ((3447 . 5625) (/ 1103515247 -2) -> -551757623.5) ((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) -> 551757621.5) ((3454 . 5625) (/ 1103515243 3) -> 367838414.333333) ((3455 . 5625) (/ 1103515243 4) -> 275878810.75) ((3456 . 5625) (/ 1103515244 0) -> "division by zero") ((3457 . 5625) (/ 1103515244 1) -> 1103515244) ((3458 . 5625) (/ 1103515244 2) -> 551757622) ((3459 . 5625) (/ 1103515244 3) -> 367838414.666667) ((3460 . 5625) (/ 1103515244 4) -> 275878811) ((3461 . 5625) (/ 1103515245 0) -> "division by zero") ((3462 . 5625) (/ 1103515245 1) -> 1103515245) ((3463 . 5625) (/ 1103515245 2) -> 551757622.5) ((3464 . 5625) (/ 1103515245 3) -> 367838415) ((3465 . 5625) (/ 1103515245 4) -> 275878811.25) ((3466 . 5625) (/ 1103515246 0) -> "division by zero") ((3467 . 5625) (/ 1103515246 1) -> 1103515246) ((3468 . 5625) (/ 1103515246 2) -> 551757623) ((3469 . 5625) (/ 1103515246 3) -> 367838415.333333) ((3470 . 5625) (/ 1103515246 4) -> 275878811.5) ((3471 . 5625) (/ 1103515247 0) -> "division by zero") ((3472 . 5625) (/ 1103515247 1) -> 1103515247) ((3473 . 5625) (/ 1103515247 2) -> 551757623.5) ((3474 . 5625) (/ 1103515247 3) -> 367838415.666667) ((3475 . 5625) (/ 1103515247 4) -> 275878811.75) ((3476 . 5625) (/ 1103515243 -4) -> -275878810.75) ((3477 . 5625) (/ 1103515243 -3) -> -367838414.333333) ((3478 . 5625) (/ 1103515243 -2) -> -551757621.5) ((3479 . 5625) (/ 1103515243 -1) -> -1103515243) ((3480 . 5625) (/ 1103515243 0) -> "division by zero") ((3481 . 5625) (/ 1103515244 -4) -> -275878811) ((3482 . 5625) (/ 1103515244 -3) -> -367838414.666667) ((3483 . 5625) (/ 1103515244 -2) -> -551757622) ((3484 . 5625) (/ 1103515244 -1) -> -1103515244) ((3485 . 5625) (/ 1103515244 0) -> "division by zero") ((3486 . 5625) (/ 1103515245 -4) -> -275878811.25) ((3487 . 5625) (/ 1103515245 -3) -> -367838415) ((3488 . 5625) (/ 1103515245 -2) -> -551757622.5) ((3489 . 5625) (/ 1103515245 -1) -> -1103515245) ((3490 . 5625) (/ 1103515245 0) -> "division by zero") ((3491 . 5625) (/ 1103515246 -4) -> -275878811.5) ((3492 . 5625) (/ 1103515246 -3) -> -367838415.333333) ((3493 . 5625) (/ 1103515246 -2) -> -551757623) ((3494 . 5625) (/ 1103515246 -1) -> -1103515246) ((3495 . 5625) (/ 1103515246 0) -> "division by zero") ((3496 . 5625) (/ 1103515247 -4) -> -275878811.75) ((3497 . 5625) (/ 1103515247 -3) -> -367838415.666667) ((3498 . 5625) (/ 1103515247 -2) -> -551757623.5) ((3499 . 5625) (/ 1103515247 -1) -> -1103515247) ((3500 . 5625) (/ 1103515247 0) -> "division by zero") ((3501 . 5625) (/ 1103515243 4611686018427387901) -> 2.39286724766294e-10) ((3502 . 5625) (/ 1103515243 4611686018427387902) -> 2.39286724766294e-10) ((3503 . 5625) (/ 1103515243 4611686018427387903) -> 2.39286724766294e-10) ((3504 . 5625) (/ 1103515243 4.61168601842739e+18) -> 2.39286724766294e-10) ((3505 . 5625) (/ 1103515243 4.61168601842739e+18) -> 2.39286724766294e-10) ((3506 . 5625) (/ 1103515244 4611686018427387901) -> 2.39286724983134e-10) ((3507 . 5625) (/ 1103515244 4611686018427387902) -> 2.39286724983134e-10) ((3508 . 5625) (/ 1103515244 4611686018427387903) -> 2.39286724983134e-10) ((3509 . 5625) (/ 1103515244 4.61168601842739e+18) -> 2.39286724983134e-10) ((3510 . 5625) (/ 1103515244 4.61168601842739e+18) -> 2.39286724983134e-10) ((3511 . 5625) (/ 1103515245 4611686018427387901) -> 2.39286725199975e-10) ((3512 . 5625) (/ 1103515245 4611686018427387902) -> 2.39286725199975e-10) ((3513 . 5625) (/ 1103515245 4611686018427387903) -> 2.39286725199975e-10) ((3514 . 5625) (/ 1103515245 4.61168601842739e+18) -> 2.39286725199975e-10) ((3515 . 5625) (/ 1103515245 4.61168601842739e+18) -> 2.39286725199975e-10) ((3516 . 5625) (/ 1103515246 4611686018427387901) -> 2.39286725416815e-10) ((3517 . 5625) (/ 1103515246 4611686018427387902) -> 2.39286725416815e-10) ((3518 . 5625) (/ 1103515246 4611686018427387903) -> 2.39286725416815e-10) ((3519 . 5625) (/ 1103515246 4.61168601842739e+18) -> 2.39286725416815e-10) ((3520 . 5625) (/ 1103515246 4.61168601842739e+18) -> 2.39286725416815e-10) ((3521 . 5625) (/ 1103515247 4611686018427387901) -> 2.39286725633656e-10) ((3522 . 5625) (/ 1103515247 4611686018427387902) -> 2.39286725633656e-10) ((3523 . 5625) (/ 1103515247 4611686018427387903) -> 2.39286725633656e-10) ((3524 . 5625) (/ 1103515247 4.61168601842739e+18) -> 2.39286725633656e-10) ((3525 . 5625) (/ 1103515247 4.61168601842739e+18) -> 2.39286725633656e-10) ((3526 . 5625) (/ 1103515243 -4.61168601842739e+18) -> -2.39286724766294e-10) ((3527 . 5625) (/ 1103515243 -4.61168601842739e+18) -> -2.39286724766294e-10) ((3528 . 5625) (/ 1103515243 -4611686018427387904) -> -2.39286724766294e-10) ((3529 . 5625) (/ 1103515243 -4611686018427387903) -> -2.39286724766294e-10) ((3530 . 5625) (/ 1103515243 -4611686018427387902) -> -2.39286724766294e-10) ((3531 . 5625) (/ 1103515244 -4.61168601842739e+18) -> -2.39286724983134e-10) ((3532 . 5625) (/ 1103515244 -4.61168601842739e+18) -> -2.39286724983134e-10) ((3533 . 5625) (/ 1103515244 -4611686018427387904) -> -2.39286724983134e-10) ((3534 . 5625) (/ 1103515244 -4611686018427387903) -> -2.39286724983134e-10) ((3535 . 5625) (/ 1103515244 -4611686018427387902) -> -2.39286724983134e-10) ((3536 . 5625) (/ 1103515245 -4.61168601842739e+18) -> -2.39286725199975e-10) ((3537 . 5625) (/ 1103515245 -4.61168601842739e+18) -> -2.39286725199975e-10) ((3538 . 5625) (/ 1103515245 -4611686018427387904) -> -2.39286725199975e-10) ((3539 . 5625) (/ 1103515245 -4611686018427387903) -> -2.39286725199975e-10) ((3540 . 5625) (/ 1103515245 -4611686018427387902) -> -2.39286725199975e-10) ((3541 . 5625) (/ 1103515246 -4.61168601842739e+18) -> -2.39286725416815e-10) ((3542 . 5625) (/ 1103515246 -4.61168601842739e+18) -> -2.39286725416815e-10) ((3543 . 5625) (/ 1103515246 -4611686018427387904) -> -2.39286725416815e-10) ((3544 . 5625) (/ 1103515246 -4611686018427387903) -> -2.39286725416815e-10) ((3545 . 5625) (/ 1103515246 -4611686018427387902) -> -2.39286725416815e-10) ((3546 . 5625) (/ 1103515247 -4.61168601842739e+18) -> -2.39286725633656e-10) ((3547 . 5625) (/ 1103515247 -4.61168601842739e+18) -> -2.39286725633656e-10) ((3548 . 5625) (/ 1103515247 -4611686018427387904) -> -2.39286725633656e-10) ((3549 . 5625) (/ 1103515247 -4611686018427387903) -> -2.39286725633656e-10) ((3550 . 5625) (/ 1103515247 -4611686018427387902) -> -2.39286725633656e-10) ((3551 . 5625) (/ 1103515243 4.61168601842739e+18) -> 2.39286724766294e-10) ((3552 . 5625) (/ 1103515243 4.61168601842739e+18) -> 2.39286724766294e-10) ((3553 . 5625) (/ 1103515243 4.61168601842739e+18) -> 2.39286724766294e-10) ((3554 . 5625) (/ 1103515243 4.61168601842739e+18) -> 2.39286724766294e-10) ((3555 . 5625) (/ 1103515243 4.61168601842739e+18) -> 2.39286724766294e-10) ((3556 . 5625) (/ 1103515244 4.61168601842739e+18) -> 2.39286724983134e-10) ((3557 . 5625) (/ 1103515244 4.61168601842739e+18) -> 2.39286724983134e-10) ((3558 . 5625) (/ 1103515244 4.61168601842739e+18) -> 2.39286724983134e-10) ((3559 . 5625) (/ 1103515244 4.61168601842739e+18) -> 2.39286724983134e-10) ((3560 . 5625) (/ 1103515244 4.61168601842739e+18) -> 2.39286724983134e-10) ((3561 . 5625) (/ 1103515245 4.61168601842739e+18) -> 2.39286725199975e-10) ((3562 . 5625) (/ 1103515245 4.61168601842739e+18) -> 2.39286725199975e-10) ((3563 . 5625) (/ 1103515245 4.61168601842739e+18) -> 2.39286725199975e-10) ((3564 . 5625) (/ 1103515245 4.61168601842739e+18) -> 2.39286725199975e-10) ((3565 . 5625) (/ 1103515245 4.61168601842739e+18) -> 2.39286725199975e-10) ((3566 . 5625) (/ 1103515246 4.61168601842739e+18) -> 2.39286725416815e-10) ((3567 . 5625) (/ 1103515246 4.61168601842739e+18) -> 2.39286725416815e-10) ((3568 . 5625) (/ 1103515246 4.61168601842739e+18) -> 2.39286725416815e-10) ((3569 . 5625) (/ 1103515246 4.61168601842739e+18) -> 2.39286725416815e-10) ((3570 . 5625) (/ 1103515246 4.61168601842739e+18) -> 2.39286725416815e-10) ((3571 . 5625) (/ 1103515247 4.61168601842739e+18) -> 2.39286725633656e-10) ((3572 . 5625) (/ 1103515247 4.61168601842739e+18) -> 2.39286725633656e-10) ((3573 . 5625) (/ 1103515247 4.61168601842739e+18) -> 2.39286725633656e-10) ((3574 . 5625) (/ 1103515247 4.61168601842739e+18) -> 2.39286725633656e-10) ((3575 . 5625) (/ 1103515247 4.61168601842739e+18) -> 2.39286725633656e-10) ((3576 . 5625) (/ 1103515243 -4.61168601842739e+18) -> -2.39286724766294e-10) ((3577 . 5625) (/ 1103515243 -4.61168601842739e+18) -> -2.39286724766294e-10) ((3578 . 5625) (/ 1103515243 -4.61168601842739e+18) -> -2.39286724766294e-10) ((3579 . 5625) (/ 1103515243 -4.61168601842739e+18) -> -2.39286724766294e-10) ((3580 . 5625) (/ 1103515243 -4.61168601842739e+18) -> -2.39286724766294e-10) ((3581 . 5625) (/ 1103515244 -4.61168601842739e+18) -> -2.39286724983134e-10) ((3582 . 5625) (/ 1103515244 -4.61168601842739e+18) -> -2.39286724983134e-10) ((3583 . 5625) (/ 1103515244 -4.61168601842739e+18) -> -2.39286724983134e-10) ((3584 . 5625) (/ 1103515244 -4.61168601842739e+18) -> -2.39286724983134e-10) ((3585 . 5625) (/ 1103515244 -4.61168601842739e+18) -> -2.39286724983134e-10) ((3586 . 5625) (/ 1103515245 -4.61168601842739e+18) -> -2.39286725199975e-10) ((3587 . 5625) (/ 1103515245 -4.61168601842739e+18) -> -2.39286725199975e-10) ((3588 . 5625) (/ 1103515245 -4.61168601842739e+18) -> -2.39286725199975e-10) ((3589 . 5625) (/ 1103515245 -4.61168601842739e+18) -> -2.39286725199975e-10) ((3590 . 5625) (/ 1103515245 -4.61168601842739e+18) -> -2.39286725199975e-10) ((3591 . 5625) (/ 1103515246 -4.61168601842739e+18) -> -2.39286725416815e-10) ((3592 . 5625) (/ 1103515246 -4.61168601842739e+18) -> -2.39286725416815e-10) ((3593 . 5625) (/ 1103515246 -4.61168601842739e+18) -> -2.39286725416815e-10) ((3594 . 5625) (/ 1103515246 -4.61168601842739e+18) -> -2.39286725416815e-10) ((3595 . 5625) (/ 1103515246 -4.61168601842739e+18) -> -2.39286725416815e-10) ((3596 . 5625) (/ 1103515247 -4.61168601842739e+18) -> -2.39286725633656e-10) ((3597 . 5625) (/ 1103515247 -4.61168601842739e+18) -> -2.39286725633656e-10) ((3598 . 5625) (/ 1103515247 -4.61168601842739e+18) -> -2.39286725633656e-10) ((3599 . 5625) (/ 1103515247 -4.61168601842739e+18) -> -2.39286725633656e-10) ((3600 . 5625) (/ 1103515247 -4.61168601842739e+18) -> -2.39286725633656e-10) ((3601 . 5625) (/ 1103515243 1103515243) -> 1) ((3602 . 5625) (/ 1103515243 1103515244) -> 0.999999999093805) ((3603 . 5625) (/ 1103515243 1103515245) -> 0.99999999818761) ((3604 . 5625) (/ 1103515243 1103515246) -> 0.999999997281415) ((3605 . 5625) (/ 1103515243 1103515247) -> 0.99999999637522) ((3606 . 5625) (/ 1103515244 1103515243) -> 1.00000000090619) ((3607 . 5625) (/ 1103515244 1103515244) -> 1) ((3608 . 5625) (/ 1103515244 1103515245) -> 0.999999999093805) ((3609 . 5625) (/ 1103515244 1103515246) -> 0.99999999818761) ((3610 . 5625) (/ 1103515244 1103515247) -> 0.999999997281415) ((3611 . 5625) (/ 1103515245 1103515243) -> 1.00000000181239) ((3612 . 5625) (/ 1103515245 1103515244) -> 1.00000000090619) ((3613 . 5625) (/ 1103515245 1103515245) -> 1) ((3614 . 5625) (/ 1103515245 1103515246) -> 0.999999999093805) ((3615 . 5625) (/ 1103515245 1103515247) -> 0.99999999818761) ((3616 . 5625) (/ 1103515246 1103515243) -> 1.00000000271858) ((3617 . 5625) (/ 1103515246 1103515244) -> 1.00000000181239) ((3618 . 5625) (/ 1103515246 1103515245) -> 1.00000000090619) ((3619 . 5625) (/ 1103515246 1103515246) -> 1) ((3620 . 5625) (/ 1103515246 1103515247) -> 0.999999999093805) ((3621 . 5625) (/ 1103515247 1103515243) -> 1.00000000362478) ((3622 . 5625) (/ 1103515247 1103515244) -> 1.00000000271858) ((3623 . 5625) (/ 1103515247 1103515245) -> 1.00000000181239) ((3624 . 5625) (/ 1103515247 1103515246) -> 1.00000000090619) ((3625 . 5625) (/ 1103515247 1103515247) -> 1) ((3626 . 5625) (/ 1103515243 631629063) -> 1.74709383662417) ((3627 . 5625) (/ 1103515243 631629064) -> 1.74709383385816) ((3628 . 5625) (/ 1103515243 631629065) -> 1.74709383109215) ((3629 . 5625) (/ 1103515243 631629066) -> 1.74709382832613) ((3630 . 5625) (/ 1103515243 631629067) -> 1.74709382556012) ((3631 . 5625) (/ 1103515244 631629063) -> 1.74709383820738) ((3632 . 5625) (/ 1103515244 631629064) -> 1.74709383544137) ((3633 . 5625) (/ 1103515244 631629065) -> 1.74709383267535) ((3634 . 5625) (/ 1103515244 631629066) -> 1.74709382990934) ((3635 . 5625) (/ 1103515244 631629067) -> 1.74709382714333) ((3636 . 5625) (/ 1103515245 631629063) -> 1.74709383979059) ((3637 . 5625) (/ 1103515245 631629064) -> 1.74709383702457) ((3638 . 5625) (/ 1103515245 631629065) -> 1.74709383425856) ((3639 . 5625) (/ 1103515245 631629066) -> 1.74709383149255) ((3640 . 5625) (/ 1103515245 631629067) -> 1.74709382872654) ((3641 . 5625) (/ 1103515246 631629063) -> 1.74709384137379) ((3642 . 5625) (/ 1103515246 631629064) -> 1.74709383860778) ((3643 . 5625) (/ 1103515246 631629065) -> 1.74709383584177) ((3644 . 5625) (/ 1103515246 631629066) -> 1.74709383307576) ((3645 . 5625) (/ 1103515246 631629067) -> 1.74709383030974) ((3646 . 5625) (/ 1103515247 631629063) -> 1.747093842957) ((3647 . 5625) (/ 1103515247 631629064) -> 1.74709384019099) ((3648 . 5625) (/ 1103515247 631629065) -> 1.74709383742498) ((3649 . 5625) (/ 1103515247 631629066) -> 1.74709383465896) ((3650 . 5625) (/ 1103515247 631629067) -> 1.74709383189295) ((3651 . 5625) (/ 1103515243 9007199254740990) -> 1.22514803080342e-07) ((3652 . 5625) (/ 1103515243 9007199254740991) -> 1.22514803080342e-07) ((3653 . 5625) (/ 1103515243 9007199254740992) -> 1.22514803080342e-07) ((3654 . 5625) (/ 1103515243 9007199254740993) -> 1.22514803080342e-07) ((3655 . 5625) (/ 1103515243 9007199254740994) -> 1.22514803080342e-07) ((3656 . 5625) (/ 1103515244 9007199254740990) -> 1.22514803191365e-07) ((3657 . 5625) (/ 1103515244 9007199254740991) -> 1.22514803191365e-07) ((3658 . 5625) (/ 1103515244 9007199254740992) -> 1.22514803191365e-07) ((3659 . 5625) (/ 1103515244 9007199254740993) -> 1.22514803191365e-07) ((3660 . 5625) (/ 1103515244 9007199254740994) -> 1.22514803191365e-07) ((3661 . 5625) (/ 1103515245 9007199254740990) -> 1.22514803302387e-07) ((3662 . 5625) (/ 1103515245 9007199254740991) -> 1.22514803302387e-07) ((3663 . 5625) (/ 1103515245 9007199254740992) -> 1.22514803302387e-07) ((3664 . 5625) (/ 1103515245 9007199254740993) -> 1.22514803302387e-07) ((3665 . 5625) (/ 1103515245 9007199254740994) -> 1.22514803302387e-07) ((3666 . 5625) (/ 1103515246 9007199254740990) -> 1.22514803413409e-07) ((3667 . 5625) (/ 1103515246 9007199254740991) -> 1.22514803413409e-07) ((3668 . 5625) (/ 1103515246 9007199254740992) -> 1.22514803413409e-07) ((3669 . 5625) (/ 1103515246 9007199254740993) -> 1.22514803413409e-07) ((3670 . 5625) (/ 1103515246 9007199254740994) -> 1.22514803413409e-07) ((3671 . 5625) (/ 1103515247 9007199254740990) -> 1.22514803524432e-07) ((3672 . 5625) (/ 1103515247 9007199254740991) -> 1.22514803524432e-07) ((3673 . 5625) (/ 1103515247 9007199254740992) -> 1.22514803524432e-07) ((3674 . 5625) (/ 1103515247 9007199254740993) -> 1.22514803524432e-07) ((3675 . 5625) (/ 1103515247 9007199254740994) -> 1.22514803524432e-07) ((3676 . 5625) (/ 1103515243 -9007199254740994) -> -1.22514803080342e-07) ((3677 . 5625) (/ 1103515243 -9007199254740993) -> -1.22514803080342e-07) ((3678 . 5625) (/ 1103515243 -9007199254740992) -> -1.22514803080342e-07) ((3679 . 5625) (/ 1103515243 -9007199254740991) -> -1.22514803080342e-07) ((3680 . 5625) (/ 1103515243 -9007199254740990) -> -1.22514803080342e-07) ((3681 . 5625) (/ 1103515244 -9007199254740994) -> -1.22514803191365e-07) ((3682 . 5625) (/ 1103515244 -9007199254740993) -> -1.22514803191365e-07) ((3683 . 5625) (/ 1103515244 -9007199254740992) -> -1.22514803191365e-07) ((3684 . 5625) (/ 1103515244 -9007199254740991) -> -1.22514803191365e-07) ((3685 . 5625) (/ 1103515244 -9007199254740990) -> -1.22514803191365e-07) ((3686 . 5625) (/ 1103515245 -9007199254740994) -> -1.22514803302387e-07) ((3687 . 5625) (/ 1103515245 -9007199254740993) -> -1.22514803302387e-07) ((3688 . 5625) (/ 1103515245 -9007199254740992) -> -1.22514803302387e-07) ((3689 . 5625) (/ 1103515245 -9007199254740991) -> -1.22514803302387e-07) ((3690 . 5625) (/ 1103515245 -9007199254740990) -> -1.22514803302387e-07) ((3691 . 5625) (/ 1103515246 -9007199254740994) -> -1.22514803413409e-07) ((3692 . 5625) (/ 1103515246 -9007199254740993) -> -1.22514803413409e-07) ((3693 . 5625) (/ 1103515246 -9007199254740992) -> -1.22514803413409e-07) ((3694 . 5625) (/ 1103515246 -9007199254740991) -> -1.22514803413409e-07) ((3695 . 5625) (/ 1103515246 -9007199254740990) -> -1.22514803413409e-07) ((3696 . 5625) (/ 1103515247 -9007199254740994) -> -1.22514803524432e-07) ((3697 . 5625) (/ 1103515247 -9007199254740993) -> -1.22514803524432e-07) ((3698 . 5625) (/ 1103515247 -9007199254740992) -> -1.22514803524432e-07) ((3699 . 5625) (/ 1103515247 -9007199254740991) -> -1.22514803524432e-07) ((3700 . 5625) (/ 1103515247 -9007199254740990) -> -1.22514803524432e-07) ((3701 . 5625) (/ 1103515243 12343) -> 89404.1353803775) ((3702 . 5625) (/ 1103515243 12344) -> 89396.8926604018) ((3703 . 5625) (/ 1103515243 12345) -> 89389.6511138113) ((3704 . 5625) (/ 1103515243 12346) -> 89382.4107403207) ((3705 . 5625) (/ 1103515243 12347) -> 89375.1715396453) ((3706 . 5625) (/ 1103515244 12343) -> 89404.1354613951) ((3707 . 5625) (/ 1103515244 12344) -> 89396.8927414128) ((3708 . 5625) (/ 1103515244 12345) -> 89389.6511948157) ((3709 . 5625) (/ 1103515244 12346) -> 89382.4108213186) ((3710 . 5625) (/ 1103515244 12347) -> 89375.1716206366) ((3711 . 5625) (/ 1103515245 12343) -> 89404.1355424127) ((3712 . 5625) (/ 1103515245 12344) -> 89396.8928224238) ((3713 . 5625) (/ 1103515245 12345) -> 89389.6512758202) ((3714 . 5625) (/ 1103515245 12346) -> 89382.4109023165) ((3715 . 5625) (/ 1103515245 12347) -> 89375.1717016279) ((3716 . 5625) (/ 1103515246 12343) -> 89404.1356234303) ((3717 . 5625) (/ 1103515246 12344) -> 89396.8929034349) ((3718 . 5625) (/ 1103515246 12345) -> 89389.6513568246) ((3719 . 5625) (/ 1103515246 12346) -> 89382.4109833144) ((3720 . 5625) (/ 1103515246 12347) -> 89375.1717826193) ((3721 . 5625) (/ 1103515247 12343) -> 89404.1357044479) ((3722 . 5625) (/ 1103515247 12344) -> 89396.8929844459) ((3723 . 5625) (/ 1103515247 12345) -> 89389.6514378291) ((3724 . 5625) (/ 1103515247 12346) -> 89382.4110643123) ((3725 . 5625) (/ 1103515247 12347) -> 89375.1718636106) ((3726 . 5625) (/ 1103515243 4294967294) -> 0.25693216442919) ((3727 . 5625) (/ 1103515243 4294967295) -> 0.256932164369368) ((3728 . 5625) (/ 1103515243 4294967296) -> 0.256932164309546) ((3729 . 5625) (/ 1103515243 4294967297) -> 0.256932164249725) ((3730 . 5625) (/ 1103515243 4294967298) -> 0.256932164189903) ((3731 . 5625) (/ 1103515244 4294967294) -> 0.25693216466202) ((3732 . 5625) (/ 1103515244 4294967295) -> 0.256932164602199) ((3733 . 5625) (/ 1103515244 4294967296) -> 0.256932164542377) ((3734 . 5625) (/ 1103515244 4294967297) -> 0.256932164482555) ((3735 . 5625) (/ 1103515244 4294967298) -> 0.256932164422734) ((3736 . 5625) (/ 1103515245 4294967294) -> 0.256932164894851) ((3737 . 5625) (/ 1103515245 4294967295) -> 0.256932164835029) ((3738 . 5625) (/ 1103515245 4294967296) -> 0.256932164775208) ((3739 . 5625) (/ 1103515245 4294967297) -> 0.256932164715386) ((3740 . 5625) (/ 1103515245 4294967298) -> 0.256932164655564) ((3741 . 5625) (/ 1103515246 4294967294) -> 0.256932165127682) ((3742 . 5625) (/ 1103515246 4294967295) -> 0.25693216506786) ((3743 . 5625) (/ 1103515246 4294967296) -> 0.256932165008038) ((3744 . 5625) (/ 1103515246 4294967297) -> 0.256932164948217) ((3745 . 5625) (/ 1103515246 4294967298) -> 0.256932164888395) ((3746 . 5625) (/ 1103515247 4294967294) -> 0.256932165360512) ((3747 . 5625) (/ 1103515247 4294967295) -> 0.256932165300691) ((3748 . 5625) (/ 1103515247 4294967296) -> 0.256932165240869) ((3749 . 5625) (/ 1103515247 4294967297) -> 0.256932165181047) ((3750 . 5625) (/ 1103515247 4294967298) -> 0.256932165121226) ((3751 . 5625) (/ 631629063 -2) -> -315814531.5) ((3752 . 5625) (/ 631629063 -1) -> -631629063) ((3753 . 5625) (/ 631629063 0) -> "division by zero") ((3754 . 5625) (/ 631629063 1) -> 631629063) ((3755 . 5625) (/ 631629063 2) -> 315814531.5) ((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) -> -315814532.5) ((3762 . 5625) (/ 631629065 -1) -> -631629065) ((3763 . 5625) (/ 631629065 0) -> "division by zero") ((3764 . 5625) (/ 631629065 1) -> 631629065) ((3765 . 5625) (/ 631629065 2) -> 315814532.5) ((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) -> -315814533.5) ((3772 . 5625) (/ 631629067 -1) -> -631629067) ((3773 . 5625) (/ 631629067 0) -> "division by zero") ((3774 . 5625) (/ 631629067 1) -> 631629067) ((3775 . 5625) (/ 631629067 2) -> 315814533.5) ((3776 . 5625) (/ 631629063 -1) -> -631629063) ((3777 . 5625) (/ 631629063 0) -> "division by zero") ((3778 . 5625) (/ 631629063 1) -> 631629063) ((3779 . 5625) (/ 631629063 2) -> 315814531.5) ((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) -> 210543021.333333) ((3786 . 5625) (/ 631629065 -1) -> -631629065) ((3787 . 5625) (/ 631629065 0) -> "division by zero") ((3788 . 5625) (/ 631629065 1) -> 631629065) ((3789 . 5625) (/ 631629065 2) -> 315814532.5) ((3790 . 5625) (/ 631629065 3) -> 210543021.666667) ((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) -> 315814533.5) ((3800 . 5625) (/ 631629067 3) -> 210543022.333333) ((3801 . 5625) (/ 631629063 -3) -> -210543021) ((3802 . 5625) (/ 631629063 -2) -> -315814531.5) ((3803 . 5625) (/ 631629063 -1) -> -631629063) ((3804 . 5625) (/ 631629063 0) -> "division by zero") ((3805 . 5625) (/ 631629063 1) -> 631629063) ((3806 . 5625) (/ 631629064 -3) -> -210543021.333333) ((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) -> -210543021.666667) ((3812 . 5625) (/ 631629065 -2) -> -315814532.5) ((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) -> -210543022.333333) ((3822 . 5625) (/ 631629067 -2) -> -315814533.5) ((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) -> 315814531.5) ((3829 . 5625) (/ 631629063 3) -> 210543021) ((3830 . 5625) (/ 631629063 4) -> 157907265.75) ((3831 . 5625) (/ 631629064 0) -> "division by zero") ((3832 . 5625) (/ 631629064 1) -> 631629064) ((3833 . 5625) (/ 631629064 2) -> 315814532) ((3834 . 5625) (/ 631629064 3) -> 210543021.333333) ((3835 . 5625) (/ 631629064 4) -> 157907266) ((3836 . 5625) (/ 631629065 0) -> "division by zero") ((3837 . 5625) (/ 631629065 1) -> 631629065) ((3838 . 5625) (/ 631629065 2) -> 315814532.5) ((3839 . 5625) (/ 631629065 3) -> 210543021.666667) ((3840 . 5625) (/ 631629065 4) -> 157907266.25) ((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) -> 157907266.5) ((3846 . 5625) (/ 631629067 0) -> "division by zero") ((3847 . 5625) (/ 631629067 1) -> 631629067) ((3848 . 5625) (/ 631629067 2) -> 315814533.5) ((3849 . 5625) (/ 631629067 3) -> 210543022.333333) ((3850 . 5625) (/ 631629067 4) -> 157907266.75) ((3851 . 5625) (/ 631629063 -4) -> -157907265.75) ((3852 . 5625) (/ 631629063 -3) -> -210543021) ((3853 . 5625) (/ 631629063 -2) -> -315814531.5) ((3854 . 5625) (/ 631629063 -1) -> -631629063) ((3855 . 5625) (/ 631629063 0) -> "division by zero") ((3856 . 5625) (/ 631629064 -4) -> -157907266) ((3857 . 5625) (/ 631629064 -3) -> -210543021.333333) ((3858 . 5625) (/ 631629064 -2) -> -315814532) ((3859 . 5625) (/ 631629064 -1) -> -631629064) ((3860 . 5625) (/ 631629064 0) -> "division by zero") ((3861 . 5625) (/ 631629065 -4) -> -157907266.25) ((3862 . 5625) (/ 631629065 -3) -> -210543021.666667) ((3863 . 5625) (/ 631629065 -2) -> -315814532.5) ((3864 . 5625) (/ 631629065 -1) -> -631629065) ((3865 . 5625) (/ 631629065 0) -> "division by zero") ((3866 . 5625) (/ 631629066 -4) -> -157907266.5) ((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) -> -157907266.75) ((3872 . 5625) (/ 631629067 -3) -> -210543022.333333) ((3873 . 5625) (/ 631629067 -2) -> -315814533.5) ((3874 . 5625) (/ 631629067 -1) -> -631629067) ((3875 . 5625) (/ 631629067 0) -> "division by zero") ((3876 . 5625) (/ 631629063 4611686018427387901) -> 1.36962720461917e-10) ((3877 . 5625) (/ 631629063 4611686018427387902) -> 1.36962720461917e-10) ((3878 . 5625) (/ 631629063 4611686018427387903) -> 1.36962720461917e-10) ((3879 . 5625) (/ 631629063 4.61168601842739e+18) -> 1.36962720461917e-10) ((3880 . 5625) (/ 631629063 4.61168601842739e+18) -> 1.36962720461917e-10) ((3881 . 5625) (/ 631629064 4611686018427387901) -> 1.36962720678757e-10) ((3882 . 5625) (/ 631629064 4611686018427387902) -> 1.36962720678757e-10) ((3883 . 5625) (/ 631629064 4611686018427387903) -> 1.36962720678757e-10) ((3884 . 5625) (/ 631629064 4.61168601842739e+18) -> 1.36962720678757e-10) ((3885 . 5625) (/ 631629064 4.61168601842739e+18) -> 1.36962720678757e-10) ((3886 . 5625) (/ 631629065 4611686018427387901) -> 1.36962720895598e-10) ((3887 . 5625) (/ 631629065 4611686018427387902) -> 1.36962720895598e-10) ((3888 . 5625) (/ 631629065 4611686018427387903) -> 1.36962720895598e-10) ((3889 . 5625) (/ 631629065 4.61168601842739e+18) -> 1.36962720895598e-10) ((3890 . 5625) (/ 631629065 4.61168601842739e+18) -> 1.36962720895598e-10) ((3891 . 5625) (/ 631629066 4611686018427387901) -> 1.36962721112438e-10) ((3892 . 5625) (/ 631629066 4611686018427387902) -> 1.36962721112438e-10) ((3893 . 5625) (/ 631629066 4611686018427387903) -> 1.36962721112438e-10) ((3894 . 5625) (/ 631629066 4.61168601842739e+18) -> 1.36962721112438e-10) ((3895 . 5625) (/ 631629066 4.61168601842739e+18) -> 1.36962721112438e-10) ((3896 . 5625) (/ 631629067 4611686018427387901) -> 1.36962721329278e-10) ((3897 . 5625) (/ 631629067 4611686018427387902) -> 1.36962721329278e-10) ((3898 . 5625) (/ 631629067 4611686018427387903) -> 1.36962721329278e-10) ((3899 . 5625) (/ 631629067 4.61168601842739e+18) -> 1.36962721329278e-10) ((3900 . 5625) (/ 631629067 4.61168601842739e+18) -> 1.36962721329278e-10) ((3901 . 5625) (/ 631629063 -4.61168601842739e+18) -> -1.36962720461917e-10) ((3902 . 5625) (/ 631629063 -4.61168601842739e+18) -> -1.36962720461917e-10) ((3903 . 5625) (/ 631629063 -4611686018427387904) -> -1.36962720461917e-10) ((3904 . 5625) (/ 631629063 -4611686018427387903) -> -1.36962720461917e-10) ((3905 . 5625) (/ 631629063 -4611686018427387902) -> -1.36962720461917e-10) ((3906 . 5625) (/ 631629064 -4.61168601842739e+18) -> -1.36962720678757e-10) ((3907 . 5625) (/ 631629064 -4.61168601842739e+18) -> -1.36962720678757e-10) ((3908 . 5625) (/ 631629064 -4611686018427387904) -> -1.36962720678757e-10) ((3909 . 5625) (/ 631629064 -4611686018427387903) -> -1.36962720678757e-10) ((3910 . 5625) (/ 631629064 -4611686018427387902) -> -1.36962720678757e-10) ((3911 . 5625) (/ 631629065 -4.61168601842739e+18) -> -1.36962720895598e-10) ((3912 . 5625) (/ 631629065 -4.61168601842739e+18) -> -1.36962720895598e-10) ((3913 . 5625) (/ 631629065 -4611686018427387904) -> -1.36962720895598e-10) ((3914 . 5625) (/ 631629065 -4611686018427387903) -> -1.36962720895598e-10) ((3915 . 5625) (/ 631629065 -4611686018427387902) -> -1.36962720895598e-10) ((3916 . 5625) (/ 631629066 -4.61168601842739e+18) -> -1.36962721112438e-10) ((3917 . 5625) (/ 631629066 -4.61168601842739e+18) -> -1.36962721112438e-10) ((3918 . 5625) (/ 631629066 -4611686018427387904) -> -1.36962721112438e-10) ((3919 . 5625) (/ 631629066 -4611686018427387903) -> -1.36962721112438e-10) ((3920 . 5625) (/ 631629066 -4611686018427387902) -> -1.36962721112438e-10) ((3921 . 5625) (/ 631629067 -4.61168601842739e+18) -> -1.36962721329278e-10) ((3922 . 5625) (/ 631629067 -4.61168601842739e+18) -> -1.36962721329278e-10) ((3923 . 5625) (/ 631629067 -4611686018427387904) -> -1.36962721329278e-10) ((3924 . 5625) (/ 631629067 -4611686018427387903) -> -1.36962721329278e-10) ((3925 . 5625) (/ 631629067 -4611686018427387902) -> -1.36962721329278e-10) ((3926 . 5625) (/ 631629063 4.61168601842739e+18) -> 1.36962720461917e-10) ((3927 . 5625) (/ 631629063 4.61168601842739e+18) -> 1.36962720461917e-10) ((3928 . 5625) (/ 631629063 4.61168601842739e+18) -> 1.36962720461917e-10) ((3929 . 5625) (/ 631629063 4.61168601842739e+18) -> 1.36962720461917e-10) ((3930 . 5625) (/ 631629063 4.61168601842739e+18) -> 1.36962720461917e-10) ((3931 . 5625) (/ 631629064 4.61168601842739e+18) -> 1.36962720678757e-10) ((3932 . 5625) (/ 631629064 4.61168601842739e+18) -> 1.36962720678757e-10) ((3933 . 5625) (/ 631629064 4.61168601842739e+18) -> 1.36962720678757e-10) ((3934 . 5625) (/ 631629064 4.61168601842739e+18) -> 1.36962720678757e-10) ((3935 . 5625) (/ 631629064 4.61168601842739e+18) -> 1.36962720678757e-10) ((3936 . 5625) (/ 631629065 4.61168601842739e+18) -> 1.36962720895598e-10) ((3937 . 5625) (/ 631629065 4.61168601842739e+18) -> 1.36962720895598e-10) ((3938 . 5625) (/ 631629065 4.61168601842739e+18) -> 1.36962720895598e-10) ((3939 . 5625) (/ 631629065 4.61168601842739e+18) -> 1.36962720895598e-10) ((3940 . 5625) (/ 631629065 4.61168601842739e+18) -> 1.36962720895598e-10) ((3941 . 5625) (/ 631629066 4.61168601842739e+18) -> 1.36962721112438e-10) ((3942 . 5625) (/ 631629066 4.61168601842739e+18) -> 1.36962721112438e-10) ((3943 . 5625) (/ 631629066 4.61168601842739e+18) -> 1.36962721112438e-10) ((3944 . 5625) (/ 631629066 4.61168601842739e+18) -> 1.36962721112438e-10) ((3945 . 5625) (/ 631629066 4.61168601842739e+18) -> 1.36962721112438e-10) ((3946 . 5625) (/ 631629067 4.61168601842739e+18) -> 1.36962721329278e-10) ((3947 . 5625) (/ 631629067 4.61168601842739e+18) -> 1.36962721329278e-10) ((3948 . 5625) (/ 631629067 4.61168601842739e+18) -> 1.36962721329278e-10) ((3949 . 5625) (/ 631629067 4.61168601842739e+18) -> 1.36962721329278e-10) ((3950 . 5625) (/ 631629067 4.61168601842739e+18) -> 1.36962721329278e-10) ((3951 . 5625) (/ 631629063 -4.61168601842739e+18) -> -1.36962720461917e-10) ((3952 . 5625) (/ 631629063 -4.61168601842739e+18) -> -1.36962720461917e-10) ((3953 . 5625) (/ 631629063 -4.61168601842739e+18) -> -1.36962720461917e-10) ((3954 . 5625) (/ 631629063 -4.61168601842739e+18) -> -1.36962720461917e-10) ((3955 . 5625) (/ 631629063 -4.61168601842739e+18) -> -1.36962720461917e-10) ((3956 . 5625) (/ 631629064 -4.61168601842739e+18) -> -1.36962720678757e-10) ((3957 . 5625) (/ 631629064 -4.61168601842739e+18) -> -1.36962720678757e-10) ((3958 . 5625) (/ 631629064 -4.61168601842739e+18) -> -1.36962720678757e-10) ((3959 . 5625) (/ 631629064 -4.61168601842739e+18) -> -1.36962720678757e-10) ((3960 . 5625) (/ 631629064 -4.61168601842739e+18) -> -1.36962720678757e-10) ((3961 . 5625) (/ 631629065 -4.61168601842739e+18) -> -1.36962720895598e-10) ((3962 . 5625) (/ 631629065 -4.61168601842739e+18) -> -1.36962720895598e-10) ((3963 . 5625) (/ 631629065 -4.61168601842739e+18) -> -1.36962720895598e-10) ((3964 . 5625) (/ 631629065 -4.61168601842739e+18) -> -1.36962720895598e-10) ((3965 . 5625) (/ 631629065 -4.61168601842739e+18) -> -1.36962720895598e-10) ((3966 . 5625) (/ 631629066 -4.61168601842739e+18) -> -1.36962721112438e-10) ((3967 . 5625) (/ 631629066 -4.61168601842739e+18) -> -1.36962721112438e-10) ((3968 . 5625) (/ 631629066 -4.61168601842739e+18) -> -1.36962721112438e-10) ((3969 . 5625) (/ 631629066 -4.61168601842739e+18) -> -1.36962721112438e-10) ((3970 . 5625) (/ 631629066 -4.61168601842739e+18) -> -1.36962721112438e-10) ((3971 . 5625) (/ 631629067 -4.61168601842739e+18) -> -1.36962721329278e-10) ((3972 . 5625) (/ 631629067 -4.61168601842739e+18) -> -1.36962721329278e-10) ((3973 . 5625) (/ 631629067 -4.61168601842739e+18) -> -1.36962721329278e-10) ((3974 . 5625) (/ 631629067 -4.61168601842739e+18) -> -1.36962721329278e-10) ((3975 . 5625) (/ 631629067 -4.61168601842739e+18) -> -1.36962721329278e-10) ((3976 . 5625) (/ 631629063 1103515243) -> 0.572379101246361) ((3977 . 5625) (/ 631629063 1103515244) -> 0.572379100727674) ((3978 . 5625) (/ 631629063 1103515245) -> 0.572379100208987) ((3979 . 5625) (/ 631629063 1103515246) -> 0.5723790996903) ((3980 . 5625) (/ 631629063 1103515247) -> 0.572379099171613) ((3981 . 5625) (/ 631629064 1103515243) -> 0.572379102152556) ((3982 . 5625) (/ 631629064 1103515244) -> 0.572379101633869) ((3983 . 5625) (/ 631629064 1103515245) -> 0.572379101115182) ((3984 . 5625) (/ 631629064 1103515246) -> 0.572379100596495) ((3985 . 5625) (/ 631629064 1103515247) -> 0.572379100077808) ((3986 . 5625) (/ 631629065 1103515243) -> 0.572379103058751) ((3987 . 5625) (/ 631629065 1103515244) -> 0.572379102540064) ((3988 . 5625) (/ 631629065 1103515245) -> 0.572379102021377) ((3989 . 5625) (/ 631629065 1103515246) -> 0.57237910150269) ((3990 . 5625) (/ 631629065 1103515247) -> 0.572379100984003) ((3991 . 5625) (/ 631629066 1103515243) -> 0.572379103964946) ((3992 . 5625) (/ 631629066 1103515244) -> 0.572379103446259) ((3993 . 5625) (/ 631629066 1103515245) -> 0.572379102927572) ((3994 . 5625) (/ 631629066 1103515246) -> 0.572379102408885) ((3995 . 5625) (/ 631629066 1103515247) -> 0.572379101890198) ((3996 . 5625) (/ 631629067 1103515243) -> 0.572379104871141) ((3997 . 5625) (/ 631629067 1103515244) -> 0.572379104352454) ((3998 . 5625) (/ 631629067 1103515245) -> 0.572379103833767) ((3999 . 5625) (/ 631629067 1103515246) -> 0.57237910331508) ((4000 . 5625) (/ 631629067 1103515247) -> 0.572379102796393) ((4001 . 5625) (/ 631629063 631629063) -> 1) ((4002 . 5625) (/ 631629063 631629064) -> 0.999999998416792) ((4003 . 5625) (/ 631629063 631629065) -> 0.999999996833585) ((4004 . 5625) (/ 631629063 631629066) -> 0.999999995250377) ((4005 . 5625) (/ 631629063 631629067) -> 0.999999993667169) ((4006 . 5625) (/ 631629064 631629063) -> 1.00000000158321) ((4007 . 5625) (/ 631629064 631629064) -> 1) ((4008 . 5625) (/ 631629064 631629065) -> 0.999999998416792) ((4009 . 5625) (/ 631629064 631629066) -> 0.999999996833585) ((4010 . 5625) (/ 631629064 631629067) -> 0.999999995250377) ((4011 . 5625) (/ 631629065 631629063) -> 1.00000000316642) ((4012 . 5625) (/ 631629065 631629064) -> 1.00000000158321) ((4013 . 5625) (/ 631629065 631629065) -> 1) ((4014 . 5625) (/ 631629065 631629066) -> 0.999999998416792) ((4015 . 5625) (/ 631629065 631629067) -> 0.999999996833585) ((4016 . 5625) (/ 631629066 631629063) -> 1.00000000474962) ((4017 . 5625) (/ 631629066 631629064) -> 1.00000000316642) ((4018 . 5625) (/ 631629066 631629065) -> 1.00000000158321) ((4019 . 5625) (/ 631629066 631629066) -> 1) ((4020 . 5625) (/ 631629066 631629067) -> 0.999999998416792) ((4021 . 5625) (/ 631629067 631629063) -> 1.00000000633283) ((4022 . 5625) (/ 631629067 631629064) -> 1.00000000474962) ((4023 . 5625) (/ 631629067 631629065) -> 1.00000000316642) ((4024 . 5625) (/ 631629067 631629066) -> 1.00000000158321) ((4025 . 5625) (/ 631629067 631629067) -> 1) ((4026 . 5625) (/ 631629063 9007199254740990) -> 7.01249128765014e-08) ((4027 . 5625) (/ 631629063 9007199254740991) -> 7.01249128765014e-08) ((4028 . 5625) (/ 631629063 9007199254740992) -> 7.01249128765014e-08) ((4029 . 5625) (/ 631629063 9007199254740993) -> 7.01249128765014e-08) ((4030 . 5625) (/ 631629063 9007199254740994) -> 7.01249128765013e-08) ((4031 . 5625) (/ 631629064 9007199254740990) -> 7.01249129875237e-08) ((4032 . 5625) (/ 631629064 9007199254740991) -> 7.01249129875237e-08) ((4033 . 5625) (/ 631629064 9007199254740992) -> 7.01249129875237e-08) ((4034 . 5625) (/ 631629064 9007199254740993) -> 7.01249129875237e-08) ((4035 . 5625) (/ 631629064 9007199254740994) -> 7.01249129875236e-08) ((4036 . 5625) (/ 631629065 9007199254740990) -> 7.0124913098546e-08) ((4037 . 5625) (/ 631629065 9007199254740991) -> 7.0124913098546e-08) ((4038 . 5625) (/ 631629065 9007199254740992) -> 7.0124913098546e-08) ((4039 . 5625) (/ 631629065 9007199254740993) -> 7.0124913098546e-08) ((4040 . 5625) (/ 631629065 9007199254740994) -> 7.01249130985459e-08) ((4041 . 5625) (/ 631629066 9007199254740990) -> 7.01249132095683e-08) ((4042 . 5625) (/ 631629066 9007199254740991) -> 7.01249132095683e-08) ((4043 . 5625) (/ 631629066 9007199254740992) -> 7.01249132095683e-08) ((4044 . 5625) (/ 631629066 9007199254740993) -> 7.01249132095683e-08) ((4045 . 5625) (/ 631629066 9007199254740994) -> 7.01249132095682e-08) ((4046 . 5625) (/ 631629067 9007199254740990) -> 7.01249133205906e-08) ((4047 . 5625) (/ 631629067 9007199254740991) -> 7.01249133205906e-08) ((4048 . 5625) (/ 631629067 9007199254740992) -> 7.01249133205906e-08) ((4049 . 5625) (/ 631629067 9007199254740993) -> 7.01249133205906e-08) ((4050 . 5625) (/ 631629067 9007199254740994) -> 7.01249133205906e-08) ((4051 . 5625) (/ 631629063 -9007199254740994) -> -7.01249128765013e-08) ((4052 . 5625) (/ 631629063 -9007199254740993) -> -7.01249128765014e-08) ((4053 . 5625) (/ 631629063 -9007199254740992) -> -7.01249128765014e-08) ((4054 . 5625) (/ 631629063 -9007199254740991) -> -7.01249128765014e-08) ((4055 . 5625) (/ 631629063 -9007199254740990) -> -7.01249128765014e-08) ((4056 . 5625) (/ 631629064 -9007199254740994) -> -7.01249129875236e-08) ((4057 . 5625) (/ 631629064 -9007199254740993) -> -7.01249129875237e-08) ((4058 . 5625) (/ 631629064 -9007199254740992) -> -7.01249129875237e-08) ((4059 . 5625) (/ 631629064 -9007199254740991) -> -7.01249129875237e-08) ((4060 . 5625) (/ 631629064 -9007199254740990) -> -7.01249129875237e-08) ((4061 . 5625) (/ 631629065 -9007199254740994) -> -7.01249130985459e-08) ((4062 . 5625) (/ 631629065 -9007199254740993) -> -7.0124913098546e-08) ((4063 . 5625) (/ 631629065 -9007199254740992) -> -7.0124913098546e-08) ((4064 . 5625) (/ 631629065 -9007199254740991) -> -7.0124913098546e-08) ((4065 . 5625) (/ 631629065 -9007199254740990) -> -7.0124913098546e-08) ((4066 . 5625) (/ 631629066 -9007199254740994) -> -7.01249132095682e-08) ((4067 . 5625) (/ 631629066 -9007199254740993) -> -7.01249132095683e-08) ((4068 . 5625) (/ 631629066 -9007199254740992) -> -7.01249132095683e-08) ((4069 . 5625) (/ 631629066 -9007199254740991) -> -7.01249132095683e-08) ((4070 . 5625) (/ 631629066 -9007199254740990) -> -7.01249132095683e-08) ((4071 . 5625) (/ 631629067 -9007199254740994) -> -7.01249133205906e-08) ((4072 . 5625) (/ 631629067 -9007199254740993) -> -7.01249133205906e-08) ((4073 . 5625) (/ 631629067 -9007199254740992) -> -7.01249133205906e-08) ((4074 . 5625) (/ 631629067 -9007199254740991) -> -7.01249133205906e-08) ((4075 . 5625) (/ 631629067 -9007199254740990) -> -7.01249133205906e-08) ((4076 . 5625) (/ 631629063 12343) -> 51173.0586567285) ((4077 . 5625) (/ 631629063 12344) -> 51168.9130751782) ((4078 . 5625) (/ 631629063 12345) -> 51164.7681652491) ((4079 . 5625) (/ 631629063 12346) -> 51160.6239267779) ((4080 . 5625) (/ 631629063 12347) -> 51156.4803596015) ((4081 . 5625) (/ 631629064 12343) -> 51173.0587377461) ((4082 . 5625) (/ 631629064 12344) -> 51168.9131561892) ((4083 . 5625) (/ 631629064 12345) -> 51164.7682462535) ((4084 . 5625) (/ 631629064 12346) -> 51160.6240077758) ((4085 . 5625) (/ 631629064 12347) -> 51156.4804405929) ((4086 . 5625) (/ 631629065 12343) -> 51173.0588187637) ((4087 . 5625) (/ 631629065 12344) -> 51168.9132372003) ((4088 . 5625) (/ 631629065 12345) -> 51164.768327258) ((4089 . 5625) (/ 631629065 12346) -> 51160.6240887737) ((4090 . 5625) (/ 631629065 12347) -> 51156.4805215842) ((4091 . 5625) (/ 631629066 12343) -> 51173.0588997813) ((4092 . 5625) (/ 631629066 12344) -> 51168.9133182113) ((4093 . 5625) (/ 631629066 12345) -> 51164.7684082625) ((4094 . 5625) (/ 631629066 12346) -> 51160.6241697716) ((4095 . 5625) (/ 631629066 12347) -> 51156.4806025755) ((4096 . 5625) (/ 631629067 12343) -> 51173.0589807988) ((4097 . 5625) (/ 631629067 12344) -> 51168.9133992223) ((4098 . 5625) (/ 631629067 12345) -> 51164.7684892669) ((4099 . 5625) (/ 631629067 12346) -> 51160.6242507695) ((4100 . 5625) (/ 631629067 12347) -> 51156.4806835669) ((4101 . 5625) (/ 631629063 4294967294) -> 0.147062601357262) ((4102 . 5625) (/ 631629063 4294967295) -> 0.147062601323021) ((4103 . 5625) (/ 631629063 4294967296) -> 0.147062601288781) ((4104 . 5625) (/ 631629063 4294967297) -> 0.14706260125454) ((4105 . 5625) (/ 631629063 4294967298) -> 0.147062601220299) ((4106 . 5625) (/ 631629064 4294967294) -> 0.147062601590093) ((4107 . 5625) (/ 631629064 4294967295) -> 0.147062601555852) ((4108 . 5625) (/ 631629064 4294967296) -> 0.147062601521611) ((4109 . 5625) (/ 631629064 4294967297) -> 0.147062601487371) ((4110 . 5625) (/ 631629064 4294967298) -> 0.14706260145313) ((4111 . 5625) (/ 631629065 4294967294) -> 0.147062601822923) ((4112 . 5625) (/ 631629065 4294967295) -> 0.147062601788683) ((4113 . 5625) (/ 631629065 4294967296) -> 0.147062601754442) ((4114 . 5625) (/ 631629065 4294967297) -> 0.147062601720201) ((4115 . 5625) (/ 631629065 4294967298) -> 0.14706260168596) ((4116 . 5625) (/ 631629066 4294967294) -> 0.147062602055754) ((4117 . 5625) (/ 631629066 4294967295) -> 0.147062602021513) ((4118 . 5625) (/ 631629066 4294967296) -> 0.147062601987273) ((4119 . 5625) (/ 631629066 4294967297) -> 0.147062601953032) ((4120 . 5625) (/ 631629066 4294967298) -> 0.147062601918791) ((4121 . 5625) (/ 631629067 4294967294) -> 0.147062602288585) ((4122 . 5625) (/ 631629067 4294967295) -> 0.147062602254344) ((4123 . 5625) (/ 631629067 4294967296) -> 0.147062602220103) ((4124 . 5625) (/ 631629067 4294967297) -> 0.147062602185862) ((4125 . 5625) (/ 631629067 4294967298) -> 0.147062602151622) ((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) -> -4.5035996273705e+15) ((4132 . 5625) (/ 9007199254740991 -1) -> -9007199254740991) ((4133 . 5625) (/ 9007199254740991 0) -> "division by zero") ((4134 . 5625) (/ 9007199254740991 1) -> 9007199254740991) ((4135 . 5625) (/ 9007199254740991 2) -> 4.5035996273705e+15) ((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) -> -4503599627370496) ((4142 . 5625) (/ 9007199254740993 -1) -> -9007199254740993) ((4143 . 5625) (/ 9007199254740993 0) -> "division by zero") ((4144 . 5625) (/ 9007199254740993 1) -> 9007199254740993) ((4145 . 5625) (/ 9007199254740993 2) -> 4503599627370496) ((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) -> 4.5035996273705e+15) ((4160 . 5625) (/ 9007199254740991 3) -> 3.00239975158033e+15) ((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) -> 3.00239975158033e+15) ((4166 . 5625) (/ 9007199254740993 -1) -> -9007199254740993) ((4167 . 5625) (/ 9007199254740993 0) -> "division by zero") ((4168 . 5625) (/ 9007199254740993 1) -> 9007199254740993) ((4169 . 5625) (/ 9007199254740993 2) -> 4503599627370496) ((4170 . 5625) (/ 9007199254740993 3) -> 3.00239975158033e+15) ((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) -> 3.00239975158033e+15) ((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) -> -3.00239975158033e+15) ((4182 . 5625) (/ 9007199254740991 -2) -> -4.5035996273705e+15) ((4183 . 5625) (/ 9007199254740991 -1) -> -9007199254740991) ((4184 . 5625) (/ 9007199254740991 0) -> "division by zero") ((4185 . 5625) (/ 9007199254740991 1) -> 9007199254740991) ((4186 . 5625) (/ 9007199254740992 -3) -> -3.00239975158033e+15) ((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) -> -3.00239975158033e+15) ((4192 . 5625) (/ 9007199254740993 -2) -> -4503599627370496) ((4193 . 5625) (/ 9007199254740993 -1) -> -9007199254740993) ((4194 . 5625) (/ 9007199254740993 0) -> "division by zero") ((4195 . 5625) (/ 9007199254740993 1) -> 9007199254740993) ((4196 . 5625) (/ 9007199254740994 -3) -> -3.00239975158033e+15) ((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) -> 2.25179981368525e+15) ((4206 . 5625) (/ 9007199254740991 0) -> "division by zero") ((4207 . 5625) (/ 9007199254740991 1) -> 9007199254740991) ((4208 . 5625) (/ 9007199254740991 2) -> 4.5035996273705e+15) ((4209 . 5625) (/ 9007199254740991 3) -> 3.00239975158033e+15) ((4210 . 5625) (/ 9007199254740991 4) -> 2.25179981368525e+15) ((4211 . 5625) (/ 9007199254740992 0) -> "division by zero") ((4212 . 5625) (/ 9007199254740992 1) -> 9007199254740992) ((4213 . 5625) (/ 9007199254740992 2) -> 4503599627370496) ((4214 . 5625) (/ 9007199254740992 3) -> 3.00239975158033e+15) ((4215 . 5625) (/ 9007199254740992 4) -> 2251799813685248) ((4216 . 5625) (/ 9007199254740993 0) -> "division by zero") ((4217 . 5625) (/ 9007199254740993 1) -> 9007199254740993) ((4218 . 5625) (/ 9007199254740993 2) -> 4503599627370496) ((4219 . 5625) (/ 9007199254740993 3) -> 3.00239975158033e+15) ((4220 . 5625) (/ 9007199254740993 4) -> 2251799813685248) ((4221 . 5625) (/ 9007199254740994 0) -> "division by zero") ((4222 . 5625) (/ 9007199254740994 1) -> 9007199254740994) ((4223 . 5625) (/ 9007199254740994 2) -> 4503599627370497) ((4224 . 5625) (/ 9007199254740994 3) -> 3.00239975158033e+15) ((4225 . 5625) (/ 9007199254740994 4) -> 2.25179981368525e+15) ((4226 . 5625) (/ 9007199254740990 -4) -> -2.25179981368525e+15) ((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) -> -2.25179981368525e+15) ((4232 . 5625) (/ 9007199254740991 -3) -> -3.00239975158033e+15) ((4233 . 5625) (/ 9007199254740991 -2) -> -4.5035996273705e+15) ((4234 . 5625) (/ 9007199254740991 -1) -> -9007199254740991) ((4235 . 5625) (/ 9007199254740991 0) -> "division by zero") ((4236 . 5625) (/ 9007199254740992 -4) -> -2251799813685248) ((4237 . 5625) (/ 9007199254740992 -3) -> -3.00239975158033e+15) ((4238 . 5625) (/ 9007199254740992 -2) -> -4503599627370496) ((4239 . 5625) (/ 9007199254740992 -1) -> -9007199254740992) ((4240 . 5625) (/ 9007199254740992 0) -> "division by zero") ((4241 . 5625) (/ 9007199254740993 -4) -> -2251799813685248) ((4242 . 5625) (/ 9007199254740993 -3) -> -3.00239975158033e+15) ((4243 . 5625) (/ 9007199254740993 -2) -> -4503599627370496) ((4244 . 5625) (/ 9007199254740993 -1) -> -9007199254740993) ((4245 . 5625) (/ 9007199254740993 0) -> "division by zero") ((4246 . 5625) (/ 9007199254740994 -4) -> -2.25179981368525e+15) ((4247 . 5625) (/ 9007199254740994 -3) -> -3.00239975158033e+15) ((4248 . 5625) (/ 9007199254740994 -2) -> -4503599627370497) ((4249 . 5625) (/ 9007199254740994 -1) -> -9007199254740994) ((4250 . 5625) (/ 9007199254740994 0) -> "division by zero") ((4251 . 5625) (/ 9007199254740990 4611686018427387901) -> 0.001953125) ((4252 . 5625) (/ 9007199254740990 4611686018427387902) -> 0.001953125) ((4253 . 5625) (/ 9007199254740990 4611686018427387903) -> 0.001953125) ((4254 . 5625) (/ 9007199254740990 4.61168601842739e+18) -> 0.001953125) ((4255 . 5625) (/ 9007199254740990 4.61168601842739e+18) -> 0.001953125) ((4256 . 5625) (/ 9007199254740991 4611686018427387901) -> 0.001953125) ((4257 . 5625) (/ 9007199254740991 4611686018427387902) -> 0.001953125) ((4258 . 5625) (/ 9007199254740991 4611686018427387903) -> 0.001953125) ((4259 . 5625) (/ 9007199254740991 4.61168601842739e+18) -> 0.001953125) ((4260 . 5625) (/ 9007199254740991 4.61168601842739e+18) -> 0.001953125) ((4261 . 5625) (/ 9007199254740992 4611686018427387901) -> 0.001953125) ((4262 . 5625) (/ 9007199254740992 4611686018427387902) -> 0.001953125) ((4263 . 5625) (/ 9007199254740992 4611686018427387903) -> 0.001953125) ((4264 . 5625) (/ 9007199254740992 4.61168601842739e+18) -> 0.001953125) ((4265 . 5625) (/ 9007199254740992 4.61168601842739e+18) -> 0.001953125) ((4266 . 5625) (/ 9007199254740993 4611686018427387901) -> 0.001953125) ((4267 . 5625) (/ 9007199254740993 4611686018427387902) -> 0.001953125) ((4268 . 5625) (/ 9007199254740993 4611686018427387903) -> 0.001953125) ((4269 . 5625) (/ 9007199254740993 4.61168601842739e+18) -> 0.001953125) ((4270 . 5625) (/ 9007199254740993 4.61168601842739e+18) -> 0.001953125) ((4271 . 5625) (/ 9007199254740994 4611686018427387901) -> 0.001953125) ((4272 . 5625) (/ 9007199254740994 4611686018427387902) -> 0.001953125) ((4273 . 5625) (/ 9007199254740994 4611686018427387903) -> 0.001953125) ((4274 . 5625) (/ 9007199254740994 4.61168601842739e+18) -> 0.001953125) ((4275 . 5625) (/ 9007199254740994 4.61168601842739e+18) -> 0.001953125) ((4276 . 5625) (/ 9007199254740990 -4.61168601842739e+18) -> -0.001953125) ((4277 . 5625) (/ 9007199254740990 -4.61168601842739e+18) -> -0.001953125) ((4278 . 5625) (/ 9007199254740990 -4611686018427387904) -> -0.001953125) ((4279 . 5625) (/ 9007199254740990 -4611686018427387903) -> -0.001953125) ((4280 . 5625) (/ 9007199254740990 -4611686018427387902) -> -0.001953125) ((4281 . 5625) (/ 9007199254740991 -4.61168601842739e+18) -> -0.001953125) ((4282 . 5625) (/ 9007199254740991 -4.61168601842739e+18) -> -0.001953125) ((4283 . 5625) (/ 9007199254740991 -4611686018427387904) -> -0.001953125) ((4284 . 5625) (/ 9007199254740991 -4611686018427387903) -> -0.001953125) ((4285 . 5625) (/ 9007199254740991 -4611686018427387902) -> -0.001953125) ((4286 . 5625) (/ 9007199254740992 -4.61168601842739e+18) -> -0.001953125) ((4287 . 5625) (/ 9007199254740992 -4.61168601842739e+18) -> -0.001953125) ((4288 . 5625) (/ 9007199254740992 -4611686018427387904) -> -0.001953125) ((4289 . 5625) (/ 9007199254740992 -4611686018427387903) -> -0.001953125) ((4290 . 5625) (/ 9007199254740992 -4611686018427387902) -> -0.001953125) ((4291 . 5625) (/ 9007199254740993 -4.61168601842739e+18) -> -0.001953125) ((4292 . 5625) (/ 9007199254740993 -4.61168601842739e+18) -> -0.001953125) ((4293 . 5625) (/ 9007199254740993 -4611686018427387904) -> -0.001953125) ((4294 . 5625) (/ 9007199254740993 -4611686018427387903) -> -0.001953125) ((4295 . 5625) (/ 9007199254740993 -4611686018427387902) -> -0.001953125) ((4296 . 5625) (/ 9007199254740994 -4.61168601842739e+18) -> -0.001953125) ((4297 . 5625) (/ 9007199254740994 -4.61168601842739e+18) -> -0.001953125) ((4298 . 5625) (/ 9007199254740994 -4611686018427387904) -> -0.001953125) ((4299 . 5625) (/ 9007199254740994 -4611686018427387903) -> -0.001953125) ((4300 . 5625) (/ 9007199254740994 -4611686018427387902) -> -0.001953125) ((4301 . 5625) (/ 9007199254740990 4.61168601842739e+18) -> 0.001953125) ((4302 . 5625) (/ 9007199254740990 4.61168601842739e+18) -> 0.001953125) ((4303 . 5625) (/ 9007199254740990 4.61168601842739e+18) -> 0.001953125) ((4304 . 5625) (/ 9007199254740990 4.61168601842739e+18) -> 0.001953125) ((4305 . 5625) (/ 9007199254740990 4.61168601842739e+18) -> 0.001953125) ((4306 . 5625) (/ 9007199254740991 4.61168601842739e+18) -> 0.001953125) ((4307 . 5625) (/ 9007199254740991 4.61168601842739e+18) -> 0.001953125) ((4308 . 5625) (/ 9007199254740991 4.61168601842739e+18) -> 0.001953125) ((4309 . 5625) (/ 9007199254740991 4.61168601842739e+18) -> 0.001953125) ((4310 . 5625) (/ 9007199254740991 4.61168601842739e+18) -> 0.001953125) ((4311 . 5625) (/ 9007199254740992 4.61168601842739e+18) -> 0.001953125) ((4312 . 5625) (/ 9007199254740992 4.61168601842739e+18) -> 0.001953125) ((4313 . 5625) (/ 9007199254740992 4.61168601842739e+18) -> 0.001953125) ((4314 . 5625) (/ 9007199254740992 4.61168601842739e+18) -> 0.001953125) ((4315 . 5625) (/ 9007199254740992 4.61168601842739e+18) -> 0.001953125) ((4316 . 5625) (/ 9007199254740993 4.61168601842739e+18) -> 0.001953125) ((4317 . 5625) (/ 9007199254740993 4.61168601842739e+18) -> 0.001953125) ((4318 . 5625) (/ 9007199254740993 4.61168601842739e+18) -> 0.001953125) ((4319 . 5625) (/ 9007199254740993 4.61168601842739e+18) -> 0.001953125) ((4320 . 5625) (/ 9007199254740993 4.61168601842739e+18) -> 0.001953125) ((4321 . 5625) (/ 9007199254740994 4.61168601842739e+18) -> 0.001953125) ((4322 . 5625) (/ 9007199254740994 4.61168601842739e+18) -> 0.001953125) ((4323 . 5625) (/ 9007199254740994 4.61168601842739e+18) -> 0.001953125) ((4324 . 5625) (/ 9007199254740994 4.61168601842739e+18) -> 0.001953125) ((4325 . 5625) (/ 9007199254740994 4.61168601842739e+18) -> 0.001953125) ((4326 . 5625) (/ 9007199254740990 -4.61168601842739e+18) -> -0.001953125) ((4327 . 5625) (/ 9007199254740990 -4.61168601842739e+18) -> -0.001953125) ((4328 . 5625) (/ 9007199254740990 -4.61168601842739e+18) -> -0.001953125) ((4329 . 5625) (/ 9007199254740990 -4.61168601842739e+18) -> -0.001953125) ((4330 . 5625) (/ 9007199254740990 -4.61168601842739e+18) -> -0.001953125) ((4331 . 5625) (/ 9007199254740991 -4.61168601842739e+18) -> -0.001953125) ((4332 . 5625) (/ 9007199254740991 -4.61168601842739e+18) -> -0.001953125) ((4333 . 5625) (/ 9007199254740991 -4.61168601842739e+18) -> -0.001953125) ((4334 . 5625) (/ 9007199254740991 -4.61168601842739e+18) -> -0.001953125) ((4335 . 5625) (/ 9007199254740991 -4.61168601842739e+18) -> -0.001953125) ((4336 . 5625) (/ 9007199254740992 -4.61168601842739e+18) -> -0.001953125) ((4337 . 5625) (/ 9007199254740992 -4.61168601842739e+18) -> -0.001953125) ((4338 . 5625) (/ 9007199254740992 -4.61168601842739e+18) -> -0.001953125) ((4339 . 5625) (/ 9007199254740992 -4.61168601842739e+18) -> -0.001953125) ((4340 . 5625) (/ 9007199254740992 -4.61168601842739e+18) -> -0.001953125) ((4341 . 5625) (/ 9007199254740993 -4.61168601842739e+18) -> -0.001953125) ((4342 . 5625) (/ 9007199254740993 -4.61168601842739e+18) -> -0.001953125) ((4343 . 5625) (/ 9007199254740993 -4.61168601842739e+18) -> -0.001953125) ((4344 . 5625) (/ 9007199254740993 -4.61168601842739e+18) -> -0.001953125) ((4345 . 5625) (/ 9007199254740993 -4.61168601842739e+18) -> -0.001953125) ((4346 . 5625) (/ 9007199254740994 -4.61168601842739e+18) -> -0.001953125) ((4347 . 5625) (/ 9007199254740994 -4.61168601842739e+18) -> -0.001953125) ((4348 . 5625) (/ 9007199254740994 -4.61168601842739e+18) -> -0.001953125) ((4349 . 5625) (/ 9007199254740994 -4.61168601842739e+18) -> -0.001953125) ((4350 . 5625) (/ 9007199254740994 -4.61168601842739e+18) -> -0.001953125) ((4351 . 5625) (/ 9007199254740990 1103515243) -> 8162278.96431603) ((4352 . 5625) (/ 9007199254740990 1103515244) -> 8162278.95691941) ((4353 . 5625) (/ 9007199254740990 1103515245) -> 8162278.9495228) ((4354 . 5625) (/ 9007199254740990 1103515246) -> 8162278.94212618) ((4355 . 5625) (/ 9007199254740990 1103515247) -> 8162278.93472956) ((4356 . 5625) (/ 9007199254740991 1103515243) -> 8162278.96431603) ((4357 . 5625) (/ 9007199254740991 1103515244) -> 8162278.95691941) ((4358 . 5625) (/ 9007199254740991 1103515245) -> 8162278.9495228) ((4359 . 5625) (/ 9007199254740991 1103515246) -> 8162278.94212618) ((4360 . 5625) (/ 9007199254740991 1103515247) -> 8162278.93472956) ((4361 . 5625) (/ 9007199254740992 1103515243) -> 8162278.96431603) ((4362 . 5625) (/ 9007199254740992 1103515244) -> 8162278.95691941) ((4363 . 5625) (/ 9007199254740992 1103515245) -> 8162278.9495228) ((4364 . 5625) (/ 9007199254740992 1103515246) -> 8162278.94212618) ((4365 . 5625) (/ 9007199254740992 1103515247) -> 8162278.93472956) ((4366 . 5625) (/ 9007199254740993 1103515243) -> 8162278.96431603) ((4367 . 5625) (/ 9007199254740993 1103515244) -> 8162278.95691941) ((4368 . 5625) (/ 9007199254740993 1103515245) -> 8162278.9495228) ((4369 . 5625) (/ 9007199254740993 1103515246) -> 8162278.94212618) ((4370 . 5625) (/ 9007199254740993 1103515247) -> 8162278.93472956) ((4371 . 5625) (/ 9007199254740994 1103515243) -> 8162278.96431603) ((4372 . 5625) (/ 9007199254740994 1103515244) -> 8162278.95691941) ((4373 . 5625) (/ 9007199254740994 1103515245) -> 8162278.9495228) ((4374 . 5625) (/ 9007199254740994 1103515246) -> 8162278.94212618) ((4375 . 5625) (/ 9007199254740994 1103515247) -> 8162278.93472957) ((4376 . 5625) (/ 9007199254740990 631629063) -> 14260267.2713637) ((4377 . 5625) (/ 9007199254740990 631629064) -> 14260267.2487867) ((4378 . 5625) (/ 9007199254740990 631629065) -> 14260267.2262097) ((4379 . 5625) (/ 9007199254740990 631629066) -> 14260267.2036328) ((4380 . 5625) (/ 9007199254740990 631629067) -> 14260267.1810558) ((4381 . 5625) (/ 9007199254740991 631629063) -> 14260267.2713637) ((4382 . 5625) (/ 9007199254740991 631629064) -> 14260267.2487867) ((4383 . 5625) (/ 9007199254740991 631629065) -> 14260267.2262097) ((4384 . 5625) (/ 9007199254740991 631629066) -> 14260267.2036328) ((4385 . 5625) (/ 9007199254740991 631629067) -> 14260267.1810558) ((4386 . 5625) (/ 9007199254740992 631629063) -> 14260267.2713637) ((4387 . 5625) (/ 9007199254740992 631629064) -> 14260267.2487867) ((4388 . 5625) (/ 9007199254740992 631629065) -> 14260267.2262097) ((4389 . 5625) (/ 9007199254740992 631629066) -> 14260267.2036328) ((4390 . 5625) (/ 9007199254740992 631629067) -> 14260267.1810558) ((4391 . 5625) (/ 9007199254740993 631629063) -> 14260267.2713637) ((4392 . 5625) (/ 9007199254740993 631629064) -> 14260267.2487867) ((4393 . 5625) (/ 9007199254740993 631629065) -> 14260267.2262097) ((4394 . 5625) (/ 9007199254740993 631629066) -> 14260267.2036328) ((4395 . 5625) (/ 9007199254740993 631629067) -> 14260267.1810558) ((4396 . 5625) (/ 9007199254740994 631629063) -> 14260267.2713637) ((4397 . 5625) (/ 9007199254740994 631629064) -> 14260267.2487867) ((4398 . 5625) (/ 9007199254740994 631629065) -> 14260267.2262097) ((4399 . 5625) (/ 9007199254740994 631629066) -> 14260267.2036328) ((4400 . 5625) (/ 9007199254740994 631629067) -> 14260267.1810558) ((4401 . 5625) (/ 9007199254740990 9007199254740990) -> 1) ((4402 . 5625) (/ 9007199254740990 9007199254740991) -> 1.0) ((4403 . 5625) (/ 9007199254740990 9007199254740992) -> 1.0) ((4404 . 5625) (/ 9007199254740990 9007199254740993) -> 1.0) ((4405 . 5625) (/ 9007199254740990 9007199254740994) -> 1.0) ((4406 . 5625) (/ 9007199254740991 9007199254740990) -> 1.0) ((4407 . 5625) (/ 9007199254740991 9007199254740991) -> 1) ((4408 . 5625) (/ 9007199254740991 9007199254740992) -> 1.0) ((4409 . 5625) (/ 9007199254740991 9007199254740993) -> 1.0) ((4410 . 5625) (/ 9007199254740991 9007199254740994) -> 1.0) ((4411 . 5625) (/ 9007199254740992 9007199254740990) -> 1.0) ((4412 . 5625) (/ 9007199254740992 9007199254740991) -> 1.0) ((4413 . 5625) (/ 9007199254740992 9007199254740992) -> 1) ((4414 . 5625) (/ 9007199254740992 9007199254740993) -> 1.0) ((4415 . 5625) (/ 9007199254740992 9007199254740994) -> 1.0) ((4416 . 5625) (/ 9007199254740993 9007199254740990) -> 1.0) ((4417 . 5625) (/ 9007199254740993 9007199254740991) -> 1.0) ((4418 . 5625) (/ 9007199254740993 9007199254740992) -> 1) ((4419 . 5625) (/ 9007199254740993 9007199254740993) -> 1) ((4420 . 5625) (/ 9007199254740993 9007199254740994) -> 1.0) ((4421 . 5625) (/ 9007199254740994 9007199254740990) -> 1.0) ((4422 . 5625) (/ 9007199254740994 9007199254740991) -> 1.0) ((4423 . 5625) (/ 9007199254740994 9007199254740992) -> 1.0) ((4424 . 5625) (/ 9007199254740994 9007199254740993) -> 1.0) ((4425 . 5625) (/ 9007199254740994 9007199254740994) -> 1) ((4426 . 5625) (/ 9007199254740990 -9007199254740994) -> -1.0) ((4427 . 5625) (/ 9007199254740990 -9007199254740993) -> -1.0) ((4428 . 5625) (/ 9007199254740990 -9007199254740992) -> -1.0) ((4429 . 5625) (/ 9007199254740990 -9007199254740991) -> -1.0) ((4430 . 5625) (/ 9007199254740990 -9007199254740990) -> -1) ((4431 . 5625) (/ 9007199254740991 -9007199254740994) -> -1.0) ((4432 . 5625) (/ 9007199254740991 -9007199254740993) -> -1.0) ((4433 . 5625) (/ 9007199254740991 -9007199254740992) -> -1.0) ((4434 . 5625) (/ 9007199254740991 -9007199254740991) -> -1) ((4435 . 5625) (/ 9007199254740991 -9007199254740990) -> -1.0) ((4436 . 5625) (/ 9007199254740992 -9007199254740994) -> -1.0) ((4437 . 5625) (/ 9007199254740992 -9007199254740993) -> -1.0) ((4438 . 5625) (/ 9007199254740992 -9007199254740992) -> -1) ((4439 . 5625) (/ 9007199254740992 -9007199254740991) -> -1.0) ((4440 . 5625) (/ 9007199254740992 -9007199254740990) -> -1.0) ((4441 . 5625) (/ 9007199254740993 -9007199254740994) -> -1.0) ((4442 . 5625) (/ 9007199254740993 -9007199254740993) -> -1) ((4443 . 5625) (/ 9007199254740993 -9007199254740992) -> -1) ((4444 . 5625) (/ 9007199254740993 -9007199254740991) -> -1.0) ((4445 . 5625) (/ 9007199254740993 -9007199254740990) -> -1.0) ((4446 . 5625) (/ 9007199254740994 -9007199254740994) -> -1) ((4447 . 5625) (/ 9007199254740994 -9007199254740993) -> -1.0) ((4448 . 5625) (/ 9007199254740994 -9007199254740992) -> -1.0) ((4449 . 5625) (/ 9007199254740994 -9007199254740991) -> -1.0) ((4450 . 5625) (/ 9007199254740994 -9007199254740990) -> -1.0) ((4451 . 5625) (/ 9007199254740990 12343) -> 729741493538.118) ((4452 . 5625) (/ 9007199254740990 12344) -> 729682376437.216) ((4453 . 5625) (/ 9007199254740990 12345) -> 729623268913.81) ((4454 . 5625) (/ 9007199254740990 12346) -> 729564170965.575) ((4455 . 5625) (/ 9007199254740990 12347) -> 729505082590.183) ((4456 . 5625) (/ 9007199254740991 12343) -> 729741493538.118) ((4457 . 5625) (/ 9007199254740991 12344) -> 729682376437.216) ((4458 . 5625) (/ 9007199254740991 12345) -> 729623268913.811) ((4459 . 5625) (/ 9007199254740991 12346) -> 729564170965.575) ((4460 . 5625) (/ 9007199254740991 12347) -> 729505082590.183) ((4461 . 5625) (/ 9007199254740992 12343) -> 729741493538.118) ((4462 . 5625) (/ 9007199254740992 12344) -> 729682376437.216) ((4463 . 5625) (/ 9007199254740992 12345) -> 729623268913.811) ((4464 . 5625) (/ 9007199254740992 12346) -> 729564170965.575) ((4465 . 5625) (/ 9007199254740992 12347) -> 729505082590.183) ((4466 . 5625) (/ 9007199254740993 12343) -> 729741493538.118) ((4467 . 5625) (/ 9007199254740993 12344) -> 729682376437.216) ((4468 . 5625) (/ 9007199254740993 12345) -> 729623268913.811) ((4469 . 5625) (/ 9007199254740993 12346) -> 729564170965.575) ((4470 . 5625) (/ 9007199254740993 12347) -> 729505082590.183) ((4471 . 5625) (/ 9007199254740994 12343) -> 729741493538.118) ((4472 . 5625) (/ 9007199254740994 12344) -> 729682376437.216) ((4473 . 5625) (/ 9007199254740994 12345) -> 729623268913.811) ((4474 . 5625) (/ 9007199254740994 12346) -> 729564170965.575) ((4475 . 5625) (/ 9007199254740994 12347) -> 729505082590.183) ((4476 . 5625) (/ 9007199254740990 4294967294) -> 2097152.00097656) ((4477 . 5625) (/ 9007199254740990 4294967295) -> 2097152.00048828) ((4478 . 5625) (/ 9007199254740990 4294967296) -> 2097152.0) ((4479 . 5625) (/ 9007199254740990 4294967297) -> 2097151.99951172) ((4480 . 5625) (/ 9007199254740990 4294967298) -> 2097151.99902344) ((4481 . 5625) (/ 9007199254740991 4294967294) -> 2097152.00097656) ((4482 . 5625) (/ 9007199254740991 4294967295) -> 2097152.00048828) ((4483 . 5625) (/ 9007199254740991 4294967296) -> 2097152.0) ((4484 . 5625) (/ 9007199254740991 4294967297) -> 2097151.99951172) ((4485 . 5625) (/ 9007199254740991 4294967298) -> 2097151.99902344) ((4486 . 5625) (/ 9007199254740992 4294967294) -> 2097152.00097656) ((4487 . 5625) (/ 9007199254740992 4294967295) -> 2097152.00048828) ((4488 . 5625) (/ 9007199254740992 4294967296) -> 2097152) ((4489 . 5625) (/ 9007199254740992 4294967297) -> 2097151.99951172) ((4490 . 5625) (/ 9007199254740992 4294967298) -> 2097151.99902344) ((4491 . 5625) (/ 9007199254740993 4294967294) -> 2097152.00097656) ((4492 . 5625) (/ 9007199254740993 4294967295) -> 2097152.00048828) ((4493 . 5625) (/ 9007199254740993 4294967296) -> 2097152) ((4494 . 5625) (/ 9007199254740993 4294967297) -> 2097151.99951172) ((4495 . 5625) (/ 9007199254740993 4294967298) -> 2097151.99902344) ((4496 . 5625) (/ 9007199254740994 4294967294) -> 2097152.00097656) ((4497 . 5625) (/ 9007199254740994 4294967295) -> 2097152.00048828) ((4498 . 5625) (/ 9007199254740994 4294967296) -> 2097152.0) ((4499 . 5625) (/ 9007199254740994 4294967297) -> 2097151.99951172) ((4500 . 5625) (/ 9007199254740994 4294967298) -> 2097151.99902344) ((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) -> 4503599627370496) ((4507 . 5625) (/ -9007199254740993 -1) -> 9007199254740993) ((4508 . 5625) (/ -9007199254740993 0) -> "division by zero") ((4509 . 5625) (/ -9007199254740993 1) -> -9007199254740993) ((4510 . 5625) (/ -9007199254740993 2) -> -4503599627370496) ((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) -> 4.5035996273705e+15) ((4517 . 5625) (/ -9007199254740991 -1) -> 9007199254740991) ((4518 . 5625) (/ -9007199254740991 0) -> "division by zero") ((4519 . 5625) (/ -9007199254740991 1) -> -9007199254740991) ((4520 . 5625) (/ -9007199254740991 2) -> -4.5035996273705e+15) ((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) -> -3.00239975158033e+15) ((4531 . 5625) (/ -9007199254740993 -1) -> 9007199254740993) ((4532 . 5625) (/ -9007199254740993 0) -> "division by zero") ((4533 . 5625) (/ -9007199254740993 1) -> -9007199254740993) ((4534 . 5625) (/ -9007199254740993 2) -> -4503599627370496) ((4535 . 5625) (/ -9007199254740993 3) -> -3.00239975158033e+15) ((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) -> -3.00239975158033e+15) ((4541 . 5625) (/ -9007199254740991 -1) -> 9007199254740991) ((4542 . 5625) (/ -9007199254740991 0) -> "division by zero") ((4543 . 5625) (/ -9007199254740991 1) -> -9007199254740991) ((4544 . 5625) (/ -9007199254740991 2) -> -4.5035996273705e+15) ((4545 . 5625) (/ -9007199254740991 3) -> -3.00239975158033e+15) ((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) -> 3.00239975158033e+15) ((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) -> 3.00239975158033e+15) ((4557 . 5625) (/ -9007199254740993 -2) -> 4503599627370496) ((4558 . 5625) (/ -9007199254740993 -1) -> 9007199254740993) ((4559 . 5625) (/ -9007199254740993 0) -> "division by zero") ((4560 . 5625) (/ -9007199254740993 1) -> -9007199254740993) ((4561 . 5625) (/ -9007199254740992 -3) -> 3.00239975158033e+15) ((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) -> 3.00239975158033e+15) ((4567 . 5625) (/ -9007199254740991 -2) -> 4.5035996273705e+15) ((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) -> -3.00239975158033e+15) ((4580 . 5625) (/ -9007199254740994 4) -> -2.25179981368525e+15) ((4581 . 5625) (/ -9007199254740993 0) -> "division by zero") ((4582 . 5625) (/ -9007199254740993 1) -> -9007199254740993) ((4583 . 5625) (/ -9007199254740993 2) -> -4503599627370496) ((4584 . 5625) (/ -9007199254740993 3) -> -3.00239975158033e+15) ((4585 . 5625) (/ -9007199254740993 4) -> -2251799813685248) ((4586 . 5625) (/ -9007199254740992 0) -> "division by zero") ((4587 . 5625) (/ -9007199254740992 1) -> -9007199254740992) ((4588 . 5625) (/ -9007199254740992 2) -> -4503599627370496) ((4589 . 5625) (/ -9007199254740992 3) -> -3.00239975158033e+15) ((4590 . 5625) (/ -9007199254740992 4) -> -2251799813685248) ((4591 . 5625) (/ -9007199254740991 0) -> "division by zero") ((4592 . 5625) (/ -9007199254740991 1) -> -9007199254740991) ((4593 . 5625) (/ -9007199254740991 2) -> -4.5035996273705e+15) ((4594 . 5625) (/ -9007199254740991 3) -> -3.00239975158033e+15) ((4595 . 5625) (/ -9007199254740991 4) -> -2.25179981368525e+15) ((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) -> -2.25179981368525e+15) ((4601 . 5625) (/ -9007199254740994 -4) -> 2.25179981368525e+15) ((4602 . 5625) (/ -9007199254740994 -3) -> 3.00239975158033e+15) ((4603 . 5625) (/ -9007199254740994 -2) -> 4503599627370497) ((4604 . 5625) (/ -9007199254740994 -1) -> 9007199254740994) ((4605 . 5625) (/ -9007199254740994 0) -> "division by zero") ((4606 . 5625) (/ -9007199254740993 -4) -> 2251799813685248) ((4607 . 5625) (/ -9007199254740993 -3) -> 3.00239975158033e+15) ((4608 . 5625) (/ -9007199254740993 -2) -> 4503599627370496) ((4609 . 5625) (/ -9007199254740993 -1) -> 9007199254740993) ((4610 . 5625) (/ -9007199254740993 0) -> "division by zero") ((4611 . 5625) (/ -9007199254740992 -4) -> 2251799813685248) ((4612 . 5625) (/ -9007199254740992 -3) -> 3.00239975158033e+15) ((4613 . 5625) (/ -9007199254740992 -2) -> 4503599627370496) ((4614 . 5625) (/ -9007199254740992 -1) -> 9007199254740992) ((4615 . 5625) (/ -9007199254740992 0) -> "division by zero") ((4616 . 5625) (/ -9007199254740991 -4) -> 2.25179981368525e+15) ((4617 . 5625) (/ -9007199254740991 -3) -> 3.00239975158033e+15) ((4618 . 5625) (/ -9007199254740991 -2) -> 4.5035996273705e+15) ((4619 . 5625) (/ -9007199254740991 -1) -> 9007199254740991) ((4620 . 5625) (/ -9007199254740991 0) -> "division by zero") ((4621 . 5625) (/ -9007199254740990 -4) -> 2.25179981368525e+15) ((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) -> -0.001953125) ((4627 . 5625) (/ -9007199254740994 4611686018427387902) -> -0.001953125) ((4628 . 5625) (/ -9007199254740994 4611686018427387903) -> -0.001953125) ((4629 . 5625) (/ -9007199254740994 4.61168601842739e+18) -> -0.001953125) ((4630 . 5625) (/ -9007199254740994 4.61168601842739e+18) -> -0.001953125) ((4631 . 5625) (/ -9007199254740993 4611686018427387901) -> -0.001953125) ((4632 . 5625) (/ -9007199254740993 4611686018427387902) -> -0.001953125) ((4633 . 5625) (/ -9007199254740993 4611686018427387903) -> -0.001953125) ((4634 . 5625) (/ -9007199254740993 4.61168601842739e+18) -> -0.001953125) ((4635 . 5625) (/ -9007199254740993 4.61168601842739e+18) -> -0.001953125) ((4636 . 5625) (/ -9007199254740992 4611686018427387901) -> -0.001953125) ((4637 . 5625) (/ -9007199254740992 4611686018427387902) -> -0.001953125) ((4638 . 5625) (/ -9007199254740992 4611686018427387903) -> -0.001953125) ((4639 . 5625) (/ -9007199254740992 4.61168601842739e+18) -> -0.001953125) ((4640 . 5625) (/ -9007199254740992 4.61168601842739e+18) -> -0.001953125) ((4641 . 5625) (/ -9007199254740991 4611686018427387901) -> -0.001953125) ((4642 . 5625) (/ -9007199254740991 4611686018427387902) -> -0.001953125) ((4643 . 5625) (/ -9007199254740991 4611686018427387903) -> -0.001953125) ((4644 . 5625) (/ -9007199254740991 4.61168601842739e+18) -> -0.001953125) ((4645 . 5625) (/ -9007199254740991 4.61168601842739e+18) -> -0.001953125) ((4646 . 5625) (/ -9007199254740990 4611686018427387901) -> -0.001953125) ((4647 . 5625) (/ -9007199254740990 4611686018427387902) -> -0.001953125) ((4648 . 5625) (/ -9007199254740990 4611686018427387903) -> -0.001953125) ((4649 . 5625) (/ -9007199254740990 4.61168601842739e+18) -> -0.001953125) ((4650 . 5625) (/ -9007199254740990 4.61168601842739e+18) -> -0.001953125) ((4651 . 5625) (/ -9007199254740994 -4.61168601842739e+18) -> 0.001953125) ((4652 . 5625) (/ -9007199254740994 -4.61168601842739e+18) -> 0.001953125) ((4653 . 5625) (/ -9007199254740994 -4611686018427387904) -> 0.001953125) ((4654 . 5625) (/ -9007199254740994 -4611686018427387903) -> 0.001953125) ((4655 . 5625) (/ -9007199254740994 -4611686018427387902) -> 0.001953125) ((4656 . 5625) (/ -9007199254740993 -4.61168601842739e+18) -> 0.001953125) ((4657 . 5625) (/ -9007199254740993 -4.61168601842739e+18) -> 0.001953125) ((4658 . 5625) (/ -9007199254740993 -4611686018427387904) -> 0.001953125) ((4659 . 5625) (/ -9007199254740993 -4611686018427387903) -> 0.001953125) ((4660 . 5625) (/ -9007199254740993 -4611686018427387902) -> 0.001953125) ((4661 . 5625) (/ -9007199254740992 -4.61168601842739e+18) -> 0.001953125) ((4662 . 5625) (/ -9007199254740992 -4.61168601842739e+18) -> 0.001953125) ((4663 . 5625) (/ -9007199254740992 -4611686018427387904) -> 0.001953125) ((4664 . 5625) (/ -9007199254740992 -4611686018427387903) -> 0.001953125) ((4665 . 5625) (/ -9007199254740992 -4611686018427387902) -> 0.001953125) ((4666 . 5625) (/ -9007199254740991 -4.61168601842739e+18) -> 0.001953125) ((4667 . 5625) (/ -9007199254740991 -4.61168601842739e+18) -> 0.001953125) ((4668 . 5625) (/ -9007199254740991 -4611686018427387904) -> 0.001953125) ((4669 . 5625) (/ -9007199254740991 -4611686018427387903) -> 0.001953125) ((4670 . 5625) (/ -9007199254740991 -4611686018427387902) -> 0.001953125) ((4671 . 5625) (/ -9007199254740990 -4.61168601842739e+18) -> 0.001953125) ((4672 . 5625) (/ -9007199254740990 -4.61168601842739e+18) -> 0.001953125) ((4673 . 5625) (/ -9007199254740990 -4611686018427387904) -> 0.001953125) ((4674 . 5625) (/ -9007199254740990 -4611686018427387903) -> 0.001953125) ((4675 . 5625) (/ -9007199254740990 -4611686018427387902) -> 0.001953125) ((4676 . 5625) (/ -9007199254740994 4.61168601842739e+18) -> -0.001953125) ((4677 . 5625) (/ -9007199254740994 4.61168601842739e+18) -> -0.001953125) ((4678 . 5625) (/ -9007199254740994 4.61168601842739e+18) -> -0.001953125) ((4679 . 5625) (/ -9007199254740994 4.61168601842739e+18) -> -0.001953125) ((4680 . 5625) (/ -9007199254740994 4.61168601842739e+18) -> -0.001953125) ((4681 . 5625) (/ -9007199254740993 4.61168601842739e+18) -> -0.001953125) ((4682 . 5625) (/ -9007199254740993 4.61168601842739e+18) -> -0.001953125) ((4683 . 5625) (/ -9007199254740993 4.61168601842739e+18) -> -0.001953125) ((4684 . 5625) (/ -9007199254740993 4.61168601842739e+18) -> -0.001953125) ((4685 . 5625) (/ -9007199254740993 4.61168601842739e+18) -> -0.001953125) ((4686 . 5625) (/ -9007199254740992 4.61168601842739e+18) -> -0.001953125) ((4687 . 5625) (/ -9007199254740992 4.61168601842739e+18) -> -0.001953125) ((4688 . 5625) (/ -9007199254740992 4.61168601842739e+18) -> -0.001953125) ((4689 . 5625) (/ -9007199254740992 4.61168601842739e+18) -> -0.001953125) ((4690 . 5625) (/ -9007199254740992 4.61168601842739e+18) -> -0.001953125) ((4691 . 5625) (/ -9007199254740991 4.61168601842739e+18) -> -0.001953125) ((4692 . 5625) (/ -9007199254740991 4.61168601842739e+18) -> -0.001953125) ((4693 . 5625) (/ -9007199254740991 4.61168601842739e+18) -> -0.001953125) ((4694 . 5625) (/ -9007199254740991 4.61168601842739e+18) -> -0.001953125) ((4695 . 5625) (/ -9007199254740991 4.61168601842739e+18) -> -0.001953125) ((4696 . 5625) (/ -9007199254740990 4.61168601842739e+18) -> -0.001953125) ((4697 . 5625) (/ -9007199254740990 4.61168601842739e+18) -> -0.001953125) ((4698 . 5625) (/ -9007199254740990 4.61168601842739e+18) -> -0.001953125) ((4699 . 5625) (/ -9007199254740990 4.61168601842739e+18) -> -0.001953125) ((4700 . 5625) (/ -9007199254740990 4.61168601842739e+18) -> -0.001953125) ((4701 . 5625) (/ -9007199254740994 -4.61168601842739e+18) -> 0.001953125) ((4702 . 5625) (/ -9007199254740994 -4.61168601842739e+18) -> 0.001953125) ((4703 . 5625) (/ -9007199254740994 -4.61168601842739e+18) -> 0.001953125) ((4704 . 5625) (/ -9007199254740994 -4.61168601842739e+18) -> 0.001953125) ((4705 . 5625) (/ -9007199254740994 -4.61168601842739e+18) -> 0.001953125) ((4706 . 5625) (/ -9007199254740993 -4.61168601842739e+18) -> 0.001953125) ((4707 . 5625) (/ -9007199254740993 -4.61168601842739e+18) -> 0.001953125) ((4708 . 5625) (/ -9007199254740993 -4.61168601842739e+18) -> 0.001953125) ((4709 . 5625) (/ -9007199254740993 -4.61168601842739e+18) -> 0.001953125) ((4710 . 5625) (/ -9007199254740993 -4.61168601842739e+18) -> 0.001953125) ((4711 . 5625) (/ -9007199254740992 -4.61168601842739e+18) -> 0.001953125) ((4712 . 5625) (/ -9007199254740992 -4.61168601842739e+18) -> 0.001953125) ((4713 . 5625) (/ -9007199254740992 -4.61168601842739e+18) -> 0.001953125) ((4714 . 5625) (/ -9007199254740992 -4.61168601842739e+18) -> 0.001953125) ((4715 . 5625) (/ -9007199254740992 -4.61168601842739e+18) -> 0.001953125) ((4716 . 5625) (/ -9007199254740991 -4.61168601842739e+18) -> 0.001953125) ((4717 . 5625) (/ -9007199254740991 -4.61168601842739e+18) -> 0.001953125) ((4718 . 5625) (/ -9007199254740991 -4.61168601842739e+18) -> 0.001953125) ((4719 . 5625) (/ -9007199254740991 -4.61168601842739e+18) -> 0.001953125) ((4720 . 5625) (/ -9007199254740991 -4.61168601842739e+18) -> 0.001953125) ((4721 . 5625) (/ -9007199254740990 -4.61168601842739e+18) -> 0.001953125) ((4722 . 5625) (/ -9007199254740990 -4.61168601842739e+18) -> 0.001953125) ((4723 . 5625) (/ -9007199254740990 -4.61168601842739e+18) -> 0.001953125) ((4724 . 5625) (/ -9007199254740990 -4.61168601842739e+18) -> 0.001953125) ((4725 . 5625) (/ -9007199254740990 -4.61168601842739e+18) -> 0.001953125) ((4726 . 5625) (/ -9007199254740994 1103515243) -> -8162278.96431603) ((4727 . 5625) (/ -9007199254740994 1103515244) -> -8162278.95691941) ((4728 . 5625) (/ -9007199254740994 1103515245) -> -8162278.9495228) ((4729 . 5625) (/ -9007199254740994 1103515246) -> -8162278.94212618) ((4730 . 5625) (/ -9007199254740994 1103515247) -> -8162278.93472957) ((4731 . 5625) (/ -9007199254740993 1103515243) -> -8162278.96431603) ((4732 . 5625) (/ -9007199254740993 1103515244) -> -8162278.95691941) ((4733 . 5625) (/ -9007199254740993 1103515245) -> -8162278.9495228) ((4734 . 5625) (/ -9007199254740993 1103515246) -> -8162278.94212618) ((4735 . 5625) (/ -9007199254740993 1103515247) -> -8162278.93472956) ((4736 . 5625) (/ -9007199254740992 1103515243) -> -8162278.96431603) ((4737 . 5625) (/ -9007199254740992 1103515244) -> -8162278.95691941) ((4738 . 5625) (/ -9007199254740992 1103515245) -> -8162278.9495228) ((4739 . 5625) (/ -9007199254740992 1103515246) -> -8162278.94212618) ((4740 . 5625) (/ -9007199254740992 1103515247) -> -8162278.93472956) ((4741 . 5625) (/ -9007199254740991 1103515243) -> -8162278.96431603) ((4742 . 5625) (/ -9007199254740991 1103515244) -> -8162278.95691941) ((4743 . 5625) (/ -9007199254740991 1103515245) -> -8162278.9495228) ((4744 . 5625) (/ -9007199254740991 1103515246) -> -8162278.94212618) ((4745 . 5625) (/ -9007199254740991 1103515247) -> -8162278.93472956) ((4746 . 5625) (/ -9007199254740990 1103515243) -> -8162278.96431603) ((4747 . 5625) (/ -9007199254740990 1103515244) -> -8162278.95691941) ((4748 . 5625) (/ -9007199254740990 1103515245) -> -8162278.9495228) ((4749 . 5625) (/ -9007199254740990 1103515246) -> -8162278.94212618) ((4750 . 5625) (/ -9007199254740990 1103515247) -> -8162278.93472956) ((4751 . 5625) (/ -9007199254740994 631629063) -> -14260267.2713637) ((4752 . 5625) (/ -9007199254740994 631629064) -> -14260267.2487867) ((4753 . 5625) (/ -9007199254740994 631629065) -> -14260267.2262097) ((4754 . 5625) (/ -9007199254740994 631629066) -> -14260267.2036328) ((4755 . 5625) (/ -9007199254740994 631629067) -> -14260267.1810558) ((4756 . 5625) (/ -9007199254740993 631629063) -> -14260267.2713637) ((4757 . 5625) (/ -9007199254740993 631629064) -> -14260267.2487867) ((4758 . 5625) (/ -9007199254740993 631629065) -> -14260267.2262097) ((4759 . 5625) (/ -9007199254740993 631629066) -> -14260267.2036328) ((4760 . 5625) (/ -9007199254740993 631629067) -> -14260267.1810558) ((4761 . 5625) (/ -9007199254740992 631629063) -> -14260267.2713637) ((4762 . 5625) (/ -9007199254740992 631629064) -> -14260267.2487867) ((4763 . 5625) (/ -9007199254740992 631629065) -> -14260267.2262097) ((4764 . 5625) (/ -9007199254740992 631629066) -> -14260267.2036328) ((4765 . 5625) (/ -9007199254740992 631629067) -> -14260267.1810558) ((4766 . 5625) (/ -9007199254740991 631629063) -> -14260267.2713637) ((4767 . 5625) (/ -9007199254740991 631629064) -> -14260267.2487867) ((4768 . 5625) (/ -9007199254740991 631629065) -> -14260267.2262097) ((4769 . 5625) (/ -9007199254740991 631629066) -> -14260267.2036328) ((4770 . 5625) (/ -9007199254740991 631629067) -> -14260267.1810558) ((4771 . 5625) (/ -9007199254740990 631629063) -> -14260267.2713637) ((4772 . 5625) (/ -9007199254740990 631629064) -> -14260267.2487867) ((4773 . 5625) (/ -9007199254740990 631629065) -> -14260267.2262097) ((4774 . 5625) (/ -9007199254740990 631629066) -> -14260267.2036328) ((4775 . 5625) (/ -9007199254740990 631629067) -> -14260267.1810558) ((4776 . 5625) (/ -9007199254740994 9007199254740990) -> -1.0) ((4777 . 5625) (/ -9007199254740994 9007199254740991) -> -1.0) ((4778 . 5625) (/ -9007199254740994 9007199254740992) -> -1.0) ((4779 . 5625) (/ -9007199254740994 9007199254740993) -> -1.0) ((4780 . 5625) (/ -9007199254740994 9007199254740994) -> -1) ((4781 . 5625) (/ -9007199254740993 9007199254740990) -> -1.0) ((4782 . 5625) (/ -9007199254740993 9007199254740991) -> -1.0) ((4783 . 5625) (/ -9007199254740993 9007199254740992) -> -1) ((4784 . 5625) (/ -9007199254740993 9007199254740993) -> -1) ((4785 . 5625) (/ -9007199254740993 9007199254740994) -> -1.0) ((4786 . 5625) (/ -9007199254740992 9007199254740990) -> -1.0) ((4787 . 5625) (/ -9007199254740992 9007199254740991) -> -1.0) ((4788 . 5625) (/ -9007199254740992 9007199254740992) -> -1) ((4789 . 5625) (/ -9007199254740992 9007199254740993) -> -1.0) ((4790 . 5625) (/ -9007199254740992 9007199254740994) -> -1.0) ((4791 . 5625) (/ -9007199254740991 9007199254740990) -> -1.0) ((4792 . 5625) (/ -9007199254740991 9007199254740991) -> -1) ((4793 . 5625) (/ -9007199254740991 9007199254740992) -> -1.0) ((4794 . 5625) (/ -9007199254740991 9007199254740993) -> -1.0) ((4795 . 5625) (/ -9007199254740991 9007199254740994) -> -1.0) ((4796 . 5625) (/ -9007199254740990 9007199254740990) -> -1) ((4797 . 5625) (/ -9007199254740990 9007199254740991) -> -1.0) ((4798 . 5625) (/ -9007199254740990 9007199254740992) -> -1.0) ((4799 . 5625) (/ -9007199254740990 9007199254740993) -> -1.0) ((4800 . 5625) (/ -9007199254740990 9007199254740994) -> -1.0) ((4801 . 5625) (/ -9007199254740994 -9007199254740994) -> 1) ((4802 . 5625) (/ -9007199254740994 -9007199254740993) -> 1.0) ((4803 . 5625) (/ -9007199254740994 -9007199254740992) -> 1.0) ((4804 . 5625) (/ -9007199254740994 -9007199254740991) -> 1.0) ((4805 . 5625) (/ -9007199254740994 -9007199254740990) -> 1.0) ((4806 . 5625) (/ -9007199254740993 -9007199254740994) -> 1.0) ((4807 . 5625) (/ -9007199254740993 -9007199254740993) -> 1) ((4808 . 5625) (/ -9007199254740993 -9007199254740992) -> 1) ((4809 . 5625) (/ -9007199254740993 -9007199254740991) -> 1.0) ((4810 . 5625) (/ -9007199254740993 -9007199254740990) -> 1.0) ((4811 . 5625) (/ -9007199254740992 -9007199254740994) -> 1.0) ((4812 . 5625) (/ -9007199254740992 -9007199254740993) -> 1.0) ((4813 . 5625) (/ -9007199254740992 -9007199254740992) -> 1) ((4814 . 5625) (/ -9007199254740992 -9007199254740991) -> 1.0) ((4815 . 5625) (/ -9007199254740992 -9007199254740990) -> 1.0) ((4816 . 5625) (/ -9007199254740991 -9007199254740994) -> 1.0) ((4817 . 5625) (/ -9007199254740991 -9007199254740993) -> 1.0) ((4818 . 5625) (/ -9007199254740991 -9007199254740992) -> 1.0) ((4819 . 5625) (/ -9007199254740991 -9007199254740991) -> 1) ((4820 . 5625) (/ -9007199254740991 -9007199254740990) -> 1.0) ((4821 . 5625) (/ -9007199254740990 -9007199254740994) -> 1.0) ((4822 . 5625) (/ -9007199254740990 -9007199254740993) -> 1.0) ((4823 . 5625) (/ -9007199254740990 -9007199254740992) -> 1.0) ((4824 . 5625) (/ -9007199254740990 -9007199254740991) -> 1.0) ((4825 . 5625) (/ -9007199254740990 -9007199254740990) -> 1) ((4826 . 5625) (/ -9007199254740994 12343) -> -729741493538.118) ((4827 . 5625) (/ -9007199254740994 12344) -> -729682376437.216) ((4828 . 5625) (/ -9007199254740994 12345) -> -729623268913.811) ((4829 . 5625) (/ -9007199254740994 12346) -> -729564170965.575) ((4830 . 5625) (/ -9007199254740994 12347) -> -729505082590.183) ((4831 . 5625) (/ -9007199254740993 12343) -> -729741493538.118) ((4832 . 5625) (/ -9007199254740993 12344) -> -729682376437.216) ((4833 . 5625) (/ -9007199254740993 12345) -> -729623268913.811) ((4834 . 5625) (/ -9007199254740993 12346) -> -729564170965.575) ((4835 . 5625) (/ -9007199254740993 12347) -> -729505082590.183) ((4836 . 5625) (/ -9007199254740992 12343) -> -729741493538.118) ((4837 . 5625) (/ -9007199254740992 12344) -> -729682376437.216) ((4838 . 5625) (/ -9007199254740992 12345) -> -729623268913.811) ((4839 . 5625) (/ -9007199254740992 12346) -> -729564170965.575) ((4840 . 5625) (/ -9007199254740992 12347) -> -729505082590.183) ((4841 . 5625) (/ -9007199254740991 12343) -> -729741493538.118) ((4842 . 5625) (/ -9007199254740991 12344) -> -729682376437.216) ((4843 . 5625) (/ -9007199254740991 12345) -> -729623268913.811) ((4844 . 5625) (/ -9007199254740991 12346) -> -729564170965.575) ((4845 . 5625) (/ -9007199254740991 12347) -> -729505082590.183) ((4846 . 5625) (/ -9007199254740990 12343) -> -729741493538.118) ((4847 . 5625) (/ -9007199254740990 12344) -> -729682376437.216) ((4848 . 5625) (/ -9007199254740990 12345) -> -729623268913.81) ((4849 . 5625) (/ -9007199254740990 12346) -> -729564170965.575) ((4850 . 5625) (/ -9007199254740990 12347) -> -729505082590.183) ((4851 . 5625) (/ -9007199254740994 4294967294) -> -2097152.00097656) ((4852 . 5625) (/ -9007199254740994 4294967295) -> -2097152.00048828) ((4853 . 5625) (/ -9007199254740994 4294967296) -> -2097152.0) ((4854 . 5625) (/ -9007199254740994 4294967297) -> -2097151.99951172) ((4855 . 5625) (/ -9007199254740994 4294967298) -> -2097151.99902344) ((4856 . 5625) (/ -9007199254740993 4294967294) -> -2097152.00097656) ((4857 . 5625) (/ -9007199254740993 4294967295) -> -2097152.00048828) ((4858 . 5625) (/ -9007199254740993 4294967296) -> -2097152) ((4859 . 5625) (/ -9007199254740993 4294967297) -> -2097151.99951172) ((4860 . 5625) (/ -9007199254740993 4294967298) -> -2097151.99902344) ((4861 . 5625) (/ -9007199254740992 4294967294) -> -2097152.00097656) ((4862 . 5625) (/ -9007199254740992 4294967295) -> -2097152.00048828) ((4863 . 5625) (/ -9007199254740992 4294967296) -> -2097152) ((4864 . 5625) (/ -9007199254740992 4294967297) -> -2097151.99951172) ((4865 . 5625) (/ -9007199254740992 4294967298) -> -2097151.99902344) ((4866 . 5625) (/ -9007199254740991 4294967294) -> -2097152.00097656) ((4867 . 5625) (/ -9007199254740991 4294967295) -> -2097152.00048828) ((4868 . 5625) (/ -9007199254740991 4294967296) -> -2097152.0) ((4869 . 5625) (/ -9007199254740991 4294967297) -> -2097151.99951172) ((4870 . 5625) (/ -9007199254740991 4294967298) -> -2097151.99902344) ((4871 . 5625) (/ -9007199254740990 4294967294) -> -2097152.00097656) ((4872 . 5625) (/ -9007199254740990 4294967295) -> -2097152.00048828) ((4873 . 5625) (/ -9007199254740990 4294967296) -> -2097152.0) ((4874 . 5625) (/ -9007199254740990 4294967297) -> -2097151.99951172) ((4875 . 5625) (/ -9007199254740990 4294967298) -> -2097151.99902344) ((4876 . 5625) (/ 12343 -2) -> -6171.5) ((4877 . 5625) (/ 12343 -1) -> -12343) ((4878 . 5625) (/ 12343 0) -> "division by zero") ((4879 . 5625) (/ 12343 1) -> 12343) ((4880 . 5625) (/ 12343 2) -> 6171.5) ((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) -> -6172.5) ((4887 . 5625) (/ 12345 -1) -> -12345) ((4888 . 5625) (/ 12345 0) -> "division by zero") ((4889 . 5625) (/ 12345 1) -> 12345) ((4890 . 5625) (/ 12345 2) -> 6172.5) ((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) -> -6173.5) ((4897 . 5625) (/ 12347 -1) -> -12347) ((4898 . 5625) (/ 12347 0) -> "division by zero") ((4899 . 5625) (/ 12347 1) -> 12347) ((4900 . 5625) (/ 12347 2) -> 6173.5) ((4901 . 5625) (/ 12343 -1) -> -12343) ((4902 . 5625) (/ 12343 0) -> "division by zero") ((4903 . 5625) (/ 12343 1) -> 12343) ((4904 . 5625) (/ 12343 2) -> 6171.5) ((4905 . 5625) (/ 12343 3) -> 4114.33333333333) ((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) -> 4114.66666666667) ((4911 . 5625) (/ 12345 -1) -> -12345) ((4912 . 5625) (/ 12345 0) -> "division by zero") ((4913 . 5625) (/ 12345 1) -> 12345) ((4914 . 5625) (/ 12345 2) -> 6172.5) ((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) -> 4115.33333333333) ((4921 . 5625) (/ 12347 -1) -> -12347) ((4922 . 5625) (/ 12347 0) -> "division by zero") ((4923 . 5625) (/ 12347 1) -> 12347) ((4924 . 5625) (/ 12347 2) -> 6173.5) ((4925 . 5625) (/ 12347 3) -> 4115.66666666667) ((4926 . 5625) (/ 12343 -3) -> -4114.33333333333) ((4927 . 5625) (/ 12343 -2) -> -6171.5) ((4928 . 5625) (/ 12343 -1) -> -12343) ((4929 . 5625) (/ 12343 0) -> "division by zero") ((4930 . 5625) (/ 12343 1) -> 12343) ((4931 . 5625) (/ 12344 -3) -> -4114.66666666667) ((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) -> -6172.5) ((4938 . 5625) (/ 12345 -1) -> -12345) ((4939 . 5625) (/ 12345 0) -> "division by zero") ((4940 . 5625) (/ 12345 1) -> 12345) ((4941 . 5625) (/ 12346 -3) -> -4115.33333333333) ((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) -> -4115.66666666667) ((4947 . 5625) (/ 12347 -2) -> -6173.5) ((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) -> 6171.5) ((4954 . 5625) (/ 12343 3) -> 4114.33333333333) ((4955 . 5625) (/ 12343 4) -> 3085.75) ((4956 . 5625) (/ 12344 0) -> "division by zero") ((4957 . 5625) (/ 12344 1) -> 12344) ((4958 . 5625) (/ 12344 2) -> 6172) ((4959 . 5625) (/ 12344 3) -> 4114.66666666667) ((4960 . 5625) (/ 12344 4) -> 3086) ((4961 . 5625) (/ 12345 0) -> "division by zero") ((4962 . 5625) (/ 12345 1) -> 12345) ((4963 . 5625) (/ 12345 2) -> 6172.5) ((4964 . 5625) (/ 12345 3) -> 4115) ((4965 . 5625) (/ 12345 4) -> 3086.25) ((4966 . 5625) (/ 12346 0) -> "division by zero") ((4967 . 5625) (/ 12346 1) -> 12346) ((4968 . 5625) (/ 12346 2) -> 6173) ((4969 . 5625) (/ 12346 3) -> 4115.33333333333) ((4970 . 5625) (/ 12346 4) -> 3086.5) ((4971 . 5625) (/ 12347 0) -> "division by zero") ((4972 . 5625) (/ 12347 1) -> 12347) ((4973 . 5625) (/ 12347 2) -> 6173.5) ((4974 . 5625) (/ 12347 3) -> 4115.66666666667) ((4975 . 5625) (/ 12347 4) -> 3086.75) ((4976 . 5625) (/ 12343 -4) -> -3085.75) ((4977 . 5625) (/ 12343 -3) -> -4114.33333333333) ((4978 . 5625) (/ 12343 -2) -> -6171.5) ((4979 . 5625) (/ 12343 -1) -> -12343) ((4980 . 5625) (/ 12343 0) -> "division by zero") ((4981 . 5625) (/ 12344 -4) -> -3086) ((4982 . 5625) (/ 12344 -3) -> -4114.66666666667) ((4983 . 5625) (/ 12344 -2) -> -6172) ((4984 . 5625) (/ 12344 -1) -> -12344) ((4985 . 5625) (/ 12344 0) -> "division by zero") ((4986 . 5625) (/ 12345 -4) -> -3086.25) ((4987 . 5625) (/ 12345 -3) -> -4115) ((4988 . 5625) (/ 12345 -2) -> -6172.5) ((4989 . 5625) (/ 12345 -1) -> -12345) ((4990 . 5625) (/ 12345 0) -> "division by zero") ((4991 . 5625) (/ 12346 -4) -> -3086.5) ((4992 . 5625) (/ 12346 -3) -> -4115.33333333333) ((4993 . 5625) (/ 12346 -2) -> -6173) ((4994 . 5625) (/ 12346 -1) -> -12346) ((4995 . 5625) (/ 12346 0) -> "division by zero") ((4996 . 5625) (/ 12347 -4) -> -3086.75) ((4997 . 5625) (/ 12347 -3) -> -4115.66666666667) ((4998 . 5625) (/ 12347 -2) -> -6173.5) ((4999 . 5625) (/ 12347 -1) -> -12347) ((5000 . 5625) (/ 12347 0) -> "division by zero") ((5001 . 5625) (/ 12343 4611686018427387901) -> 2.67646148299772e-15) ((5002 . 5625) (/ 12343 4611686018427387902) -> 2.67646148299772e-15) ((5003 . 5625) (/ 12343 4611686018427387903) -> 2.67646148299772e-15) ((5004 . 5625) (/ 12343 4.61168601842739e+18) -> 2.67646148299772e-15) ((5005 . 5625) (/ 12343 4.61168601842739e+18) -> 2.67646148299772e-15) ((5006 . 5625) (/ 12344 4611686018427387901) -> 2.67667832343221e-15) ((5007 . 5625) (/ 12344 4611686018427387902) -> 2.67667832343221e-15) ((5008 . 5625) (/ 12344 4611686018427387903) -> 2.67667832343221e-15) ((5009 . 5625) (/ 12344 4.61168601842739e+18) -> 2.67667832343221e-15) ((5010 . 5625) (/ 12344 4.61168601842739e+18) -> 2.67667832343221e-15) ((5011 . 5625) (/ 12345 4611686018427387901) -> 2.67689516386671e-15) ((5012 . 5625) (/ 12345 4611686018427387902) -> 2.67689516386671e-15) ((5013 . 5625) (/ 12345 4611686018427387903) -> 2.67689516386671e-15) ((5014 . 5625) (/ 12345 4.61168601842739e+18) -> 2.67689516386671e-15) ((5015 . 5625) (/ 12345 4.61168601842739e+18) -> 2.67689516386671e-15) ((5016 . 5625) (/ 12346 4611686018427387901) -> 2.67711200430121e-15) ((5017 . 5625) (/ 12346 4611686018427387902) -> 2.67711200430121e-15) ((5018 . 5625) (/ 12346 4611686018427387903) -> 2.67711200430121e-15) ((5019 . 5625) (/ 12346 4.61168601842739e+18) -> 2.67711200430121e-15) ((5020 . 5625) (/ 12346 4.61168601842739e+18) -> 2.67711200430121e-15) ((5021 . 5625) (/ 12347 4611686018427387901) -> 2.6773288447357e-15) ((5022 . 5625) (/ 12347 4611686018427387902) -> 2.6773288447357e-15) ((5023 . 5625) (/ 12347 4611686018427387903) -> 2.6773288447357e-15) ((5024 . 5625) (/ 12347 4.61168601842739e+18) -> 2.6773288447357e-15) ((5025 . 5625) (/ 12347 4.61168601842739e+18) -> 2.6773288447357e-15) ((5026 . 5625) (/ 12343 -4.61168601842739e+18) -> -2.67646148299772e-15) ((5027 . 5625) (/ 12343 -4.61168601842739e+18) -> -2.67646148299772e-15) ((5028 . 5625) (/ 12343 -4611686018427387904) -> -2.67646148299772e-15) ((5029 . 5625) (/ 12343 -4611686018427387903) -> -2.67646148299772e-15) ((5030 . 5625) (/ 12343 -4611686018427387902) -> -2.67646148299772e-15) ((5031 . 5625) (/ 12344 -4.61168601842739e+18) -> -2.67667832343221e-15) ((5032 . 5625) (/ 12344 -4.61168601842739e+18) -> -2.67667832343221e-15) ((5033 . 5625) (/ 12344 -4611686018427387904) -> -2.67667832343221e-15) ((5034 . 5625) (/ 12344 -4611686018427387903) -> -2.67667832343221e-15) ((5035 . 5625) (/ 12344 -4611686018427387902) -> -2.67667832343221e-15) ((5036 . 5625) (/ 12345 -4.61168601842739e+18) -> -2.67689516386671e-15) ((5037 . 5625) (/ 12345 -4.61168601842739e+18) -> -2.67689516386671e-15) ((5038 . 5625) (/ 12345 -4611686018427387904) -> -2.67689516386671e-15) ((5039 . 5625) (/ 12345 -4611686018427387903) -> -2.67689516386671e-15) ((5040 . 5625) (/ 12345 -4611686018427387902) -> -2.67689516386671e-15) ((5041 . 5625) (/ 12346 -4.61168601842739e+18) -> -2.67711200430121e-15) ((5042 . 5625) (/ 12346 -4.61168601842739e+18) -> -2.67711200430121e-15) ((5043 . 5625) (/ 12346 -4611686018427387904) -> -2.67711200430121e-15) ((5044 . 5625) (/ 12346 -4611686018427387903) -> -2.67711200430121e-15) ((5045 . 5625) (/ 12346 -4611686018427387902) -> -2.67711200430121e-15) ((5046 . 5625) (/ 12347 -4.61168601842739e+18) -> -2.6773288447357e-15) ((5047 . 5625) (/ 12347 -4.61168601842739e+18) -> -2.6773288447357e-15) ((5048 . 5625) (/ 12347 -4611686018427387904) -> -2.6773288447357e-15) ((5049 . 5625) (/ 12347 -4611686018427387903) -> -2.6773288447357e-15) ((5050 . 5625) (/ 12347 -4611686018427387902) -> -2.6773288447357e-15) ((5051 . 5625) (/ 12343 4.61168601842739e+18) -> 2.67646148299772e-15) ((5052 . 5625) (/ 12343 4.61168601842739e+18) -> 2.67646148299772e-15) ((5053 . 5625) (/ 12343 4.61168601842739e+18) -> 2.67646148299772e-15) ((5054 . 5625) (/ 12343 4.61168601842739e+18) -> 2.67646148299772e-15) ((5055 . 5625) (/ 12343 4.61168601842739e+18) -> 2.67646148299772e-15) ((5056 . 5625) (/ 12344 4.61168601842739e+18) -> 2.67667832343221e-15) ((5057 . 5625) (/ 12344 4.61168601842739e+18) -> 2.67667832343221e-15) ((5058 . 5625) (/ 12344 4.61168601842739e+18) -> 2.67667832343221e-15) ((5059 . 5625) (/ 12344 4.61168601842739e+18) -> 2.67667832343221e-15) ((5060 . 5625) (/ 12344 4.61168601842739e+18) -> 2.67667832343221e-15) ((5061 . 5625) (/ 12345 4.61168601842739e+18) -> 2.67689516386671e-15) ((5062 . 5625) (/ 12345 4.61168601842739e+18) -> 2.67689516386671e-15) ((5063 . 5625) (/ 12345 4.61168601842739e+18) -> 2.67689516386671e-15) ((5064 . 5625) (/ 12345 4.61168601842739e+18) -> 2.67689516386671e-15) ((5065 . 5625) (/ 12345 4.61168601842739e+18) -> 2.67689516386671e-15) ((5066 . 5625) (/ 12346 4.61168601842739e+18) -> 2.67711200430121e-15) ((5067 . 5625) (/ 12346 4.61168601842739e+18) -> 2.67711200430121e-15) ((5068 . 5625) (/ 12346 4.61168601842739e+18) -> 2.67711200430121e-15) ((5069 . 5625) (/ 12346 4.61168601842739e+18) -> 2.67711200430121e-15) ((5070 . 5625) (/ 12346 4.61168601842739e+18) -> 2.67711200430121e-15) ((5071 . 5625) (/ 12347 4.61168601842739e+18) -> 2.6773288447357e-15) ((5072 . 5625) (/ 12347 4.61168601842739e+18) -> 2.6773288447357e-15) ((5073 . 5625) (/ 12347 4.61168601842739e+18) -> 2.6773288447357e-15) ((5074 . 5625) (/ 12347 4.61168601842739e+18) -> 2.6773288447357e-15) ((5075 . 5625) (/ 12347 4.61168601842739e+18) -> 2.6773288447357e-15) ((5076 . 5625) (/ 12343 -4.61168601842739e+18) -> -2.67646148299772e-15) ((5077 . 5625) (/ 12343 -4.61168601842739e+18) -> -2.67646148299772e-15) ((5078 . 5625) (/ 12343 -4.61168601842739e+18) -> -2.67646148299772e-15) ((5079 . 5625) (/ 12343 -4.61168601842739e+18) -> -2.67646148299772e-15) ((5080 . 5625) (/ 12343 -4.61168601842739e+18) -> -2.67646148299772e-15) ((5081 . 5625) (/ 12344 -4.61168601842739e+18) -> -2.67667832343221e-15) ((5082 . 5625) (/ 12344 -4.61168601842739e+18) -> -2.67667832343221e-15) ((5083 . 5625) (/ 12344 -4.61168601842739e+18) -> -2.67667832343221e-15) ((5084 . 5625) (/ 12344 -4.61168601842739e+18) -> -2.67667832343221e-15) ((5085 . 5625) (/ 12344 -4.61168601842739e+18) -> -2.67667832343221e-15) ((5086 . 5625) (/ 12345 -4.61168601842739e+18) -> -2.67689516386671e-15) ((5087 . 5625) (/ 12345 -4.61168601842739e+18) -> -2.67689516386671e-15) ((5088 . 5625) (/ 12345 -4.61168601842739e+18) -> -2.67689516386671e-15) ((5089 . 5625) (/ 12345 -4.61168601842739e+18) -> -2.67689516386671e-15) ((5090 . 5625) (/ 12345 -4.61168601842739e+18) -> -2.67689516386671e-15) ((5091 . 5625) (/ 12346 -4.61168601842739e+18) -> -2.67711200430121e-15) ((5092 . 5625) (/ 12346 -4.61168601842739e+18) -> -2.67711200430121e-15) ((5093 . 5625) (/ 12346 -4.61168601842739e+18) -> -2.67711200430121e-15) ((5094 . 5625) (/ 12346 -4.61168601842739e+18) -> -2.67711200430121e-15) ((5095 . 5625) (/ 12346 -4.61168601842739e+18) -> -2.67711200430121e-15) ((5096 . 5625) (/ 12347 -4.61168601842739e+18) -> -2.6773288447357e-15) ((5097 . 5625) (/ 12347 -4.61168601842739e+18) -> -2.6773288447357e-15) ((5098 . 5625) (/ 12347 -4.61168601842739e+18) -> -2.6773288447357e-15) ((5099 . 5625) (/ 12347 -4.61168601842739e+18) -> -2.6773288447357e-15) ((5100 . 5625) (/ 12347 -4.61168601842739e+18) -> -2.6773288447357e-15) ((5101 . 5625) (/ 12343 1103515243) -> 1.11851649338749e-05) ((5102 . 5625) (/ 12343 1103515244) -> 1.11851649237389e-05) ((5103 . 5625) (/ 12343 1103515245) -> 1.1185164913603e-05) ((5104 . 5625) (/ 12343 1103515246) -> 1.1185164903467e-05) ((5105 . 5625) (/ 12343 1103515247) -> 1.11851648933311e-05) ((5106 . 5625) (/ 12344 1103515243) -> 1.11860711288788e-05) ((5107 . 5625) (/ 12344 1103515244) -> 1.11860711187421e-05) ((5108 . 5625) (/ 12344 1103515245) -> 1.11860711086053e-05) ((5109 . 5625) (/ 12344 1103515246) -> 1.11860710984685e-05) ((5110 . 5625) (/ 12344 1103515247) -> 1.11860710883318e-05) ((5111 . 5625) (/ 12345 1103515243) -> 1.11869773238828e-05) ((5112 . 5625) (/ 12345 1103515244) -> 1.11869773137452e-05) ((5113 . 5625) (/ 12345 1103515245) -> 1.11869773036076e-05) ((5114 . 5625) (/ 12345 1103515246) -> 1.118697729347e-05) ((5115 . 5625) (/ 12345 1103515247) -> 1.11869772833325e-05) ((5116 . 5625) (/ 12346 1103515243) -> 1.11878835188867e-05) ((5117 . 5625) (/ 12346 1103515244) -> 1.11878835087483e-05) ((5118 . 5625) (/ 12346 1103515245) -> 1.11878834986099e-05) ((5119 . 5625) (/ 12346 1103515246) -> 1.11878834884715e-05) ((5120 . 5625) (/ 12346 1103515247) -> 1.11878834783331e-05) ((5121 . 5625) (/ 12347 1103515243) -> 1.11887897138907e-05) ((5122 . 5625) (/ 12347 1103515244) -> 1.11887897037515e-05) ((5123 . 5625) (/ 12347 1103515245) -> 1.11887896936123e-05) ((5124 . 5625) (/ 12347 1103515246) -> 1.1188789683473e-05) ((5125 . 5625) (/ 12347 1103515247) -> 1.11887896733338e-05) ((5126 . 5625) (/ 12343 631629063) -> 1.95415327175976e-05) ((5127 . 5625) (/ 12343 631629064) -> 1.95415326866593e-05) ((5128 . 5625) (/ 12343 631629065) -> 1.9541532655721e-05) ((5129 . 5625) (/ 12343 631629066) -> 1.95415326247827e-05) ((5130 . 5625) (/ 12343 631629067) -> 1.95415325938444e-05) ((5131 . 5625) (/ 12344 631629063) -> 1.95431159253038e-05) ((5132 . 5625) (/ 12344 631629064) -> 1.9543115894363e-05) ((5133 . 5625) (/ 12344 631629065) -> 1.95431158634222e-05) ((5134 . 5625) (/ 12344 631629066) -> 1.95431158324813e-05) ((5135 . 5625) (/ 12344 631629067) -> 1.95431158015405e-05) ((5136 . 5625) (/ 12345 631629063) -> 1.954469913301e-05) ((5137 . 5625) (/ 12345 631629064) -> 1.95446991020667e-05) ((5138 . 5625) (/ 12345 631629065) -> 1.95446990711233e-05) ((5139 . 5625) (/ 12345 631629066) -> 1.954469904018e-05) ((5140 . 5625) (/ 12345 631629067) -> 1.95446990092367e-05) ((5141 . 5625) (/ 12346 631629063) -> 1.95462823407162e-05) ((5142 . 5625) (/ 12346 631629064) -> 1.95462823097703e-05) ((5143 . 5625) (/ 12346 631629065) -> 1.95462822788245e-05) ((5144 . 5625) (/ 12346 631629066) -> 1.95462822478787e-05) ((5145 . 5625) (/ 12346 631629067) -> 1.95462822169329e-05) ((5146 . 5625) (/ 12347 631629063) -> 1.95478655484224e-05) ((5147 . 5625) (/ 12347 631629064) -> 1.9547865517474e-05) ((5148 . 5625) (/ 12347 631629065) -> 1.95478654865257e-05) ((5149 . 5625) (/ 12347 631629066) -> 1.95478654555774e-05) ((5150 . 5625) (/ 12347 631629067) -> 1.9547865424629e-05) ((5151 . 5625) (/ 12343 9007199254740990) -> 1.37034827929483e-12) ((5152 . 5625) (/ 12343 9007199254740991) -> 1.37034827929483e-12) ((5153 . 5625) (/ 12343 9007199254740992) -> 1.37034827929483e-12) ((5154 . 5625) (/ 12343 9007199254740993) -> 1.37034827929483e-12) ((5155 . 5625) (/ 12343 9007199254740994) -> 1.37034827929483e-12) ((5156 . 5625) (/ 12344 9007199254740990) -> 1.37045930159729e-12) ((5157 . 5625) (/ 12344 9007199254740991) -> 1.37045930159729e-12) ((5158 . 5625) (/ 12344 9007199254740992) -> 1.37045930159729e-12) ((5159 . 5625) (/ 12344 9007199254740993) -> 1.37045930159729e-12) ((5160 . 5625) (/ 12344 9007199254740994) -> 1.37045930159729e-12) ((5161 . 5625) (/ 12345 9007199254740990) -> 1.37057032389976e-12) ((5162 . 5625) (/ 12345 9007199254740991) -> 1.37057032389976e-12) ((5163 . 5625) (/ 12345 9007199254740992) -> 1.37057032389976e-12) ((5164 . 5625) (/ 12345 9007199254740993) -> 1.37057032389976e-12) ((5165 . 5625) (/ 12345 9007199254740994) -> 1.37057032389976e-12) ((5166 . 5625) (/ 12346 9007199254740990) -> 1.37068134620222e-12) ((5167 . 5625) (/ 12346 9007199254740991) -> 1.37068134620222e-12) ((5168 . 5625) (/ 12346 9007199254740992) -> 1.37068134620222e-12) ((5169 . 5625) (/ 12346 9007199254740993) -> 1.37068134620222e-12) ((5170 . 5625) (/ 12346 9007199254740994) -> 1.37068134620222e-12) ((5171 . 5625) (/ 12347 9007199254740990) -> 1.37079236850468e-12) ((5172 . 5625) (/ 12347 9007199254740991) -> 1.37079236850468e-12) ((5173 . 5625) (/ 12347 9007199254740992) -> 1.37079236850468e-12) ((5174 . 5625) (/ 12347 9007199254740993) -> 1.37079236850468e-12) ((5175 . 5625) (/ 12347 9007199254740994) -> 1.37079236850468e-12) ((5176 . 5625) (/ 12343 -9007199254740994) -> -1.37034827929483e-12) ((5177 . 5625) (/ 12343 -9007199254740993) -> -1.37034827929483e-12) ((5178 . 5625) (/ 12343 -9007199254740992) -> -1.37034827929483e-12) ((5179 . 5625) (/ 12343 -9007199254740991) -> -1.37034827929483e-12) ((5180 . 5625) (/ 12343 -9007199254740990) -> -1.37034827929483e-12) ((5181 . 5625) (/ 12344 -9007199254740994) -> -1.37045930159729e-12) ((5182 . 5625) (/ 12344 -9007199254740993) -> -1.37045930159729e-12) ((5183 . 5625) (/ 12344 -9007199254740992) -> -1.37045930159729e-12) ((5184 . 5625) (/ 12344 -9007199254740991) -> -1.37045930159729e-12) ((5185 . 5625) (/ 12344 -9007199254740990) -> -1.37045930159729e-12) ((5186 . 5625) (/ 12345 -9007199254740994) -> -1.37057032389976e-12) ((5187 . 5625) (/ 12345 -9007199254740993) -> -1.37057032389976e-12) ((5188 . 5625) (/ 12345 -9007199254740992) -> -1.37057032389976e-12) ((5189 . 5625) (/ 12345 -9007199254740991) -> -1.37057032389976e-12) ((5190 . 5625) (/ 12345 -9007199254740990) -> -1.37057032389976e-12) ((5191 . 5625) (/ 12346 -9007199254740994) -> -1.37068134620222e-12) ((5192 . 5625) (/ 12346 -9007199254740993) -> -1.37068134620222e-12) ((5193 . 5625) (/ 12346 -9007199254740992) -> -1.37068134620222e-12) ((5194 . 5625) (/ 12346 -9007199254740991) -> -1.37068134620222e-12) ((5195 . 5625) (/ 12346 -9007199254740990) -> -1.37068134620222e-12) ((5196 . 5625) (/ 12347 -9007199254740994) -> -1.37079236850468e-12) ((5197 . 5625) (/ 12347 -9007199254740993) -> -1.37079236850468e-12) ((5198 . 5625) (/ 12347 -9007199254740992) -> -1.37079236850468e-12) ((5199 . 5625) (/ 12347 -9007199254740991) -> -1.37079236850468e-12) ((5200 . 5625) (/ 12347 -9007199254740990) -> -1.37079236850468e-12) ((5201 . 5625) (/ 12343 12343) -> 1) ((5202 . 5625) (/ 12343 12344) -> 0.999918988982502) ((5203 . 5625) (/ 12343 12345) -> 0.99983799108951) ((5204 . 5625) (/ 12343 12346) -> 0.999757006317836) ((5205 . 5625) (/ 12343 12347) -> 0.999676034664291) ((5206 . 5625) (/ 12344 12343) -> 1.00008101758082) ((5207 . 5625) (/ 12344 12344) -> 1) ((5208 . 5625) (/ 12344 12345) -> 0.999918995544755) ((5209 . 5625) (/ 12344 12346) -> 0.999838004211891) ((5210 . 5625) (/ 12344 12347) -> 0.999757025998218) ((5211 . 5625) (/ 12345 12343) -> 1.00016203516163) ((5212 . 5625) (/ 12345 12344) -> 1.0000810110175) ((5213 . 5625) (/ 12345 12345) -> 1) ((5214 . 5625) (/ 12345 12346) -> 0.999919002105945) ((5215 . 5625) (/ 12345 12347) -> 0.999838017332146) ((5216 . 5625) (/ 12346 12343) -> 1.00024305274245) ((5217 . 5625) (/ 12346 12344) -> 1.000162022035) ((5218 . 5625) (/ 12346 12345) -> 1.00008100445525) ((5219 . 5625) (/ 12346 12346) -> 1) ((5220 . 5625) (/ 12346 12347) -> 0.999919008666073) ((5221 . 5625) (/ 12347 12343) -> 1.00032407032326) ((5222 . 5625) (/ 12347 12344) -> 1.0002430330525) ((5223 . 5625) (/ 12347 12345) -> 1.00016200891049) ((5224 . 5625) (/ 12347 12346) -> 1.00008099789405) ((5225 . 5625) (/ 12347 12347) -> 1) ((5226 . 5625) (/ 12343 4294967294) -> 2.87382863595794e-06) ((5227 . 5625) (/ 12343 4294967295) -> 2.87382863528883e-06) ((5228 . 5625) (/ 12343 4294967296) -> 2.87382863461971e-06) ((5229 . 5625) (/ 12343 4294967297) -> 2.8738286339506e-06) ((5230 . 5625) (/ 12343 4294967298) -> 2.87382863328148e-06) ((5231 . 5625) (/ 12344 4294967294) -> 2.87406146660171e-06) ((5232 . 5625) (/ 12344 4294967295) -> 2.87406146593254e-06) ((5233 . 5625) (/ 12344 4294967296) -> 2.87406146526337e-06) ((5234 . 5625) (/ 12344 4294967297) -> 2.8740614645942e-06) ((5235 . 5625) (/ 12344 4294967298) -> 2.87406146392503e-06) ((5236 . 5625) (/ 12345 4294967294) -> 2.87429429724547e-06) ((5237 . 5625) (/ 12345 4294967295) -> 2.87429429657624e-06) ((5238 . 5625) (/ 12345 4294967296) -> 2.87429429590702e-06) ((5239 . 5625) (/ 12345 4294967297) -> 2.8742942952378e-06) ((5240 . 5625) (/ 12345 4294967298) -> 2.87429429456857e-06) ((5241 . 5625) (/ 12346 4294967294) -> 2.87452712788923e-06) ((5242 . 5625) (/ 12346 4294967295) -> 2.87452712721995e-06) ((5243 . 5625) (/ 12346 4294967296) -> 2.87452712655067e-06) ((5244 . 5625) (/ 12346 4294967297) -> 2.8745271258814e-06) ((5245 . 5625) (/ 12346 4294967298) -> 2.87452712521212e-06) ((5246 . 5625) (/ 12347 4294967294) -> 2.87475995853299e-06) ((5247 . 5625) (/ 12347 4294967295) -> 2.87475995786366e-06) ((5248 . 5625) (/ 12347 4294967296) -> 2.87475995719433e-06) ((5249 . 5625) (/ 12347 4294967297) -> 2.874759956525e-06) ((5250 . 5625) (/ 12347 4294967298) -> 2.87475995585566e-06) ((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) -> -2147483647.5) ((5257 . 5625) (/ 4294967295 -1) -> -4294967295) ((5258 . 5625) (/ 4294967295 0) -> "division by zero") ((5259 . 5625) (/ 4294967295 1) -> 4294967295) ((5260 . 5625) (/ 4294967295 2) -> 2147483647.5) ((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) -> -2147483648.5) ((5267 . 5625) (/ 4294967297 -1) -> -4294967297) ((5268 . 5625) (/ 4294967297 0) -> "division by zero") ((5269 . 5625) (/ 4294967297 1) -> 4294967297) ((5270 . 5625) (/ 4294967297 2) -> 2147483648.5) ((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) -> 1431655764.66667) ((5281 . 5625) (/ 4294967295 -1) -> -4294967295) ((5282 . 5625) (/ 4294967295 0) -> "division by zero") ((5283 . 5625) (/ 4294967295 1) -> 4294967295) ((5284 . 5625) (/ 4294967295 2) -> 2147483647.5) ((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) -> 1431655765.33333) ((5291 . 5625) (/ 4294967297 -1) -> -4294967297) ((5292 . 5625) (/ 4294967297 0) -> "division by zero") ((5293 . 5625) (/ 4294967297 1) -> 4294967297) ((5294 . 5625) (/ 4294967297 2) -> 2147483648.5) ((5295 . 5625) (/ 4294967297 3) -> 1431655765.66667) ((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) -> -1431655764.66667) ((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) -> -2147483647.5) ((5308 . 5625) (/ 4294967295 -1) -> -4294967295) ((5309 . 5625) (/ 4294967295 0) -> "division by zero") ((5310 . 5625) (/ 4294967295 1) -> 4294967295) ((5311 . 5625) (/ 4294967296 -3) -> -1431655765.33333) ((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) -> -1431655765.66667) ((5317 . 5625) (/ 4294967297 -2) -> -2147483648.5) ((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) -> 1431655764.66667) ((5330 . 5625) (/ 4294967294 4) -> 1073741823.5) ((5331 . 5625) (/ 4294967295 0) -> "division by zero") ((5332 . 5625) (/ 4294967295 1) -> 4294967295) ((5333 . 5625) (/ 4294967295 2) -> 2147483647.5) ((5334 . 5625) (/ 4294967295 3) -> 1431655765) ((5335 . 5625) (/ 4294967295 4) -> 1073741823.75) ((5336 . 5625) (/ 4294967296 0) -> "division by zero") ((5337 . 5625) (/ 4294967296 1) -> 4294967296) ((5338 . 5625) (/ 4294967296 2) -> 2147483648) ((5339 . 5625) (/ 4294967296 3) -> 1431655765.33333) ((5340 . 5625) (/ 4294967296 4) -> 1073741824) ((5341 . 5625) (/ 4294967297 0) -> "division by zero") ((5342 . 5625) (/ 4294967297 1) -> 4294967297) ((5343 . 5625) (/ 4294967297 2) -> 2147483648.5) ((5344 . 5625) (/ 4294967297 3) -> 1431655765.66667) ((5345 . 5625) (/ 4294967297 4) -> 1073741824.25) ((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) -> 1073741824.5) ((5351 . 5625) (/ 4294967294 -4) -> -1073741823.5) ((5352 . 5625) (/ 4294967294 -3) -> -1431655764.66667) ((5353 . 5625) (/ 4294967294 -2) -> -2147483647) ((5354 . 5625) (/ 4294967294 -1) -> -4294967294) ((5355 . 5625) (/ 4294967294 0) -> "division by zero") ((5356 . 5625) (/ 4294967295 -4) -> -1073741823.75) ((5357 . 5625) (/ 4294967295 -3) -> -1431655765) ((5358 . 5625) (/ 4294967295 -2) -> -2147483647.5) ((5359 . 5625) (/ 4294967295 -1) -> -4294967295) ((5360 . 5625) (/ 4294967295 0) -> "division by zero") ((5361 . 5625) (/ 4294967296 -4) -> -1073741824) ((5362 . 5625) (/ 4294967296 -3) -> -1431655765.33333) ((5363 . 5625) (/ 4294967296 -2) -> -2147483648) ((5364 . 5625) (/ 4294967296 -1) -> -4294967296) ((5365 . 5625) (/ 4294967296 0) -> "division by zero") ((5366 . 5625) (/ 4294967297 -4) -> -1073741824.25) ((5367 . 5625) (/ 4294967297 -3) -> -1431655765.66667) ((5368 . 5625) (/ 4294967297 -2) -> -2147483648.5) ((5369 . 5625) (/ 4294967297 -1) -> -4294967297) ((5370 . 5625) (/ 4294967297 0) -> "division by zero") ((5371 . 5625) (/ 4294967298 -4) -> -1073741824.5) ((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) -> 9.31322574181798e-10) ((5377 . 5625) (/ 4294967294 4611686018427387902) -> 9.31322574181798e-10) ((5378 . 5625) (/ 4294967294 4611686018427387903) -> 9.31322574181798e-10) ((5379 . 5625) (/ 4294967294 4.61168601842739e+18) -> 9.31322574181798e-10) ((5380 . 5625) (/ 4294967294 4.61168601842739e+18) -> 9.31322574181798e-10) ((5381 . 5625) (/ 4294967295 4611686018427387901) -> 9.31322574398638e-10) ((5382 . 5625) (/ 4294967295 4611686018427387902) -> 9.31322574398638e-10) ((5383 . 5625) (/ 4294967295 4611686018427387903) -> 9.31322574398638e-10) ((5384 . 5625) (/ 4294967295 4.61168601842739e+18) -> 9.31322574398638e-10) ((5385 . 5625) (/ 4294967295 4.61168601842739e+18) -> 9.31322574398638e-10) ((5386 . 5625) (/ 4294967296 4611686018427387901) -> 9.31322574615479e-10) ((5387 . 5625) (/ 4294967296 4611686018427387902) -> 9.31322574615479e-10) ((5388 . 5625) (/ 4294967296 4611686018427387903) -> 9.31322574615479e-10) ((5389 . 5625) (/ 4294967296 4.61168601842739e+18) -> 9.31322574615479e-10) ((5390 . 5625) (/ 4294967296 4.61168601842739e+18) -> 9.31322574615479e-10) ((5391 . 5625) (/ 4294967297 4611686018427387901) -> 9.31322574832319e-10) ((5392 . 5625) (/ 4294967297 4611686018427387902) -> 9.31322574832319e-10) ((5393 . 5625) (/ 4294967297 4611686018427387903) -> 9.31322574832319e-10) ((5394 . 5625) (/ 4294967297 4.61168601842739e+18) -> 9.31322574832319e-10) ((5395 . 5625) (/ 4294967297 4.61168601842739e+18) -> 9.31322574832319e-10) ((5396 . 5625) (/ 4294967298 4611686018427387901) -> 9.31322575049159e-10) ((5397 . 5625) (/ 4294967298 4611686018427387902) -> 9.31322575049159e-10) ((5398 . 5625) (/ 4294967298 4611686018427387903) -> 9.31322575049159e-10) ((5399 . 5625) (/ 4294967298 4.61168601842739e+18) -> 9.31322575049159e-10) ((5400 . 5625) (/ 4294967298 4.61168601842739e+18) -> 9.31322575049159e-10) ((5401 . 5625) (/ 4294967294 -4.61168601842739e+18) -> -9.31322574181798e-10) ((5402 . 5625) (/ 4294967294 -4.61168601842739e+18) -> -9.31322574181798e-10) ((5403 . 5625) (/ 4294967294 -4611686018427387904) -> -9.31322574181798e-10) ((5404 . 5625) (/ 4294967294 -4611686018427387903) -> -9.31322574181798e-10) ((5405 . 5625) (/ 4294967294 -4611686018427387902) -> -9.31322574181798e-10) ((5406 . 5625) (/ 4294967295 -4.61168601842739e+18) -> -9.31322574398638e-10) ((5407 . 5625) (/ 4294967295 -4.61168601842739e+18) -> -9.31322574398638e-10) ((5408 . 5625) (/ 4294967295 -4611686018427387904) -> -9.31322574398638e-10) ((5409 . 5625) (/ 4294967295 -4611686018427387903) -> -9.31322574398638e-10) ((5410 . 5625) (/ 4294967295 -4611686018427387902) -> -9.31322574398638e-10) ((5411 . 5625) (/ 4294967296 -4.61168601842739e+18) -> -9.31322574615479e-10) ((5412 . 5625) (/ 4294967296 -4.61168601842739e+18) -> -9.31322574615479e-10) ((5413 . 5625) (/ 4294967296 -4611686018427387904) -> -9.31322574615479e-10) ((5414 . 5625) (/ 4294967296 -4611686018427387903) -> -9.31322574615479e-10) ((5415 . 5625) (/ 4294967296 -4611686018427387902) -> -9.31322574615479e-10) ((5416 . 5625) (/ 4294967297 -4.61168601842739e+18) -> -9.31322574832319e-10) ((5417 . 5625) (/ 4294967297 -4.61168601842739e+18) -> -9.31322574832319e-10) ((5418 . 5625) (/ 4294967297 -4611686018427387904) -> -9.31322574832319e-10) ((5419 . 5625) (/ 4294967297 -4611686018427387903) -> -9.31322574832319e-10) ((5420 . 5625) (/ 4294967297 -4611686018427387902) -> -9.31322574832319e-10) ((5421 . 5625) (/ 4294967298 -4.61168601842739e+18) -> -9.31322575049159e-10) ((5422 . 5625) (/ 4294967298 -4.61168601842739e+18) -> -9.31322575049159e-10) ((5423 . 5625) (/ 4294967298 -4611686018427387904) -> -9.31322575049159e-10) ((5424 . 5625) (/ 4294967298 -4611686018427387903) -> -9.31322575049159e-10) ((5425 . 5625) (/ 4294967298 -4611686018427387902) -> -9.31322575049159e-10) ((5426 . 5625) (/ 4294967294 4.61168601842739e+18) -> 9.31322574181798e-10) ((5427 . 5625) (/ 4294967294 4.61168601842739e+18) -> 9.31322574181798e-10) ((5428 . 5625) (/ 4294967294 4.61168601842739e+18) -> 9.31322574181798e-10) ((5429 . 5625) (/ 4294967294 4.61168601842739e+18) -> 9.31322574181798e-10) ((5430 . 5625) (/ 4294967294 4.61168601842739e+18) -> 9.31322574181798e-10) ((5431 . 5625) (/ 4294967295 4.61168601842739e+18) -> 9.31322574398638e-10) ((5432 . 5625) (/ 4294967295 4.61168601842739e+18) -> 9.31322574398638e-10) ((5433 . 5625) (/ 4294967295 4.61168601842739e+18) -> 9.31322574398638e-10) ((5434 . 5625) (/ 4294967295 4.61168601842739e+18) -> 9.31322574398638e-10) ((5435 . 5625) (/ 4294967295 4.61168601842739e+18) -> 9.31322574398638e-10) ((5436 . 5625) (/ 4294967296 4.61168601842739e+18) -> 9.31322574615479e-10) ((5437 . 5625) (/ 4294967296 4.61168601842739e+18) -> 9.31322574615479e-10) ((5438 . 5625) (/ 4294967296 4.61168601842739e+18) -> 9.31322574615479e-10) ((5439 . 5625) (/ 4294967296 4.61168601842739e+18) -> 9.31322574615479e-10) ((5440 . 5625) (/ 4294967296 4.61168601842739e+18) -> 9.31322574615479e-10) ((5441 . 5625) (/ 4294967297 4.61168601842739e+18) -> 9.31322574832319e-10) ((5442 . 5625) (/ 4294967297 4.61168601842739e+18) -> 9.31322574832319e-10) ((5443 . 5625) (/ 4294967297 4.61168601842739e+18) -> 9.31322574832319e-10) ((5444 . 5625) (/ 4294967297 4.61168601842739e+18) -> 9.31322574832319e-10) ((5445 . 5625) (/ 4294967297 4.61168601842739e+18) -> 9.31322574832319e-10) ((5446 . 5625) (/ 4294967298 4.61168601842739e+18) -> 9.31322575049159e-10) ((5447 . 5625) (/ 4294967298 4.61168601842739e+18) -> 9.31322575049159e-10) ((5448 . 5625) (/ 4294967298 4.61168601842739e+18) -> 9.31322575049159e-10) ((5449 . 5625) (/ 4294967298 4.61168601842739e+18) -> 9.31322575049159e-10) ((5450 . 5625) (/ 4294967298 4.61168601842739e+18) -> 9.31322575049159e-10) ((5451 . 5625) (/ 4294967294 -4.61168601842739e+18) -> -9.31322574181798e-10) ((5452 . 5625) (/ 4294967294 -4.61168601842739e+18) -> -9.31322574181798e-10) ((5453 . 5625) (/ 4294967294 -4.61168601842739e+18) -> -9.31322574181798e-10) ((5454 . 5625) (/ 4294967294 -4.61168601842739e+18) -> -9.31322574181798e-10) ((5455 . 5625) (/ 4294967294 -4.61168601842739e+18) -> -9.31322574181798e-10) ((5456 . 5625) (/ 4294967295 -4.61168601842739e+18) -> -9.31322574398638e-10) ((5457 . 5625) (/ 4294967295 -4.61168601842739e+18) -> -9.31322574398638e-10) ((5458 . 5625) (/ 4294967295 -4.61168601842739e+18) -> -9.31322574398638e-10) ((5459 . 5625) (/ 4294967295 -4.61168601842739e+18) -> -9.31322574398638e-10) ((5460 . 5625) (/ 4294967295 -4.61168601842739e+18) -> -9.31322574398638e-10) ((5461 . 5625) (/ 4294967296 -4.61168601842739e+18) -> -9.31322574615479e-10) ((5462 . 5625) (/ 4294967296 -4.61168601842739e+18) -> -9.31322574615479e-10) ((5463 . 5625) (/ 4294967296 -4.61168601842739e+18) -> -9.31322574615479e-10) ((5464 . 5625) (/ 4294967296 -4.61168601842739e+18) -> -9.31322574615479e-10) ((5465 . 5625) (/ 4294967296 -4.61168601842739e+18) -> -9.31322574615479e-10) ((5466 . 5625) (/ 4294967297 -4.61168601842739e+18) -> -9.31322574832319e-10) ((5467 . 5625) (/ 4294967297 -4.61168601842739e+18) -> -9.31322574832319e-10) ((5468 . 5625) (/ 4294967297 -4.61168601842739e+18) -> -9.31322574832319e-10) ((5469 . 5625) (/ 4294967297 -4.61168601842739e+18) -> -9.31322574832319e-10) ((5470 . 5625) (/ 4294967297 -4.61168601842739e+18) -> -9.31322574832319e-10) ((5471 . 5625) (/ 4294967298 -4.61168601842739e+18) -> -9.31322575049159e-10) ((5472 . 5625) (/ 4294967298 -4.61168601842739e+18) -> -9.31322575049159e-10) ((5473 . 5625) (/ 4294967298 -4.61168601842739e+18) -> -9.31322575049159e-10) ((5474 . 5625) (/ 4294967298 -4.61168601842739e+18) -> -9.31322575049159e-10) ((5475 . 5625) (/ 4294967298 -4.61168601842739e+18) -> -9.31322575049159e-10) ((5476 . 5625) (/ 4294967294 1103515243) -> 3.89207790399321) ((5477 . 5625) (/ 4294967294 1103515244) -> 3.89207790046623) ((5478 . 5625) (/ 4294967294 1103515245) -> 3.89207789693925) ((5479 . 5625) (/ 4294967294 1103515246) -> 3.89207789341227) ((5480 . 5625) (/ 4294967294 1103515247) -> 3.89207788988529) ((5481 . 5625) (/ 4294967295 1103515243) -> 3.89207790489941) ((5482 . 5625) (/ 4294967295 1103515244) -> 3.89207790137243) ((5483 . 5625) (/ 4294967295 1103515245) -> 3.89207789784544) ((5484 . 5625) (/ 4294967295 1103515246) -> 3.89207789431846) ((5485 . 5625) (/ 4294967295 1103515247) -> 3.89207789079148) ((5486 . 5625) (/ 4294967296 1103515243) -> 3.8920779058056) ((5487 . 5625) (/ 4294967296 1103515244) -> 3.89207790227862) ((5488 . 5625) (/ 4294967296 1103515245) -> 3.89207789875164) ((5489 . 5625) (/ 4294967296 1103515246) -> 3.89207789522466) ((5490 . 5625) (/ 4294967296 1103515247) -> 3.89207789169768) ((5491 . 5625) (/ 4294967297 1103515243) -> 3.8920779067118) ((5492 . 5625) (/ 4294967297 1103515244) -> 3.89207790318482) ((5493 . 5625) (/ 4294967297 1103515245) -> 3.89207789965783) ((5494 . 5625) (/ 4294967297 1103515246) -> 3.89207789613085) ((5495 . 5625) (/ 4294967297 1103515247) -> 3.89207789260387) ((5496 . 5625) (/ 4294967298 1103515243) -> 3.89207790761799) ((5497 . 5625) (/ 4294967298 1103515244) -> 3.89207790409101) ((5498 . 5625) (/ 4294967298 1103515245) -> 3.89207790056403) ((5499 . 5625) (/ 4294967298 1103515246) -> 3.89207789703705) ((5500 . 5625) (/ 4294967298 1103515247) -> 3.89207789351007) ((5501 . 5625) (/ 4294967294 631629063) -> 6.79982531772766) ((5502 . 5625) (/ 4294967294 631629064) -> 6.79982530696213) ((5503 . 5625) (/ 4294967294 631629065) -> 6.79982529619659) ((5504 . 5625) (/ 4294967294 631629066) -> 6.79982528543105) ((5505 . 5625) (/ 4294967294 631629067) -> 6.79982527466552) ((5506 . 5625) (/ 4294967295 631629063) -> 6.79982531931087) ((5507 . 5625) (/ 4294967295 631629064) -> 6.79982530854533) ((5508 . 5625) (/ 4294967295 631629065) -> 6.7998252977798) ((5509 . 5625) (/ 4294967295 631629066) -> 6.79982528701426) ((5510 . 5625) (/ 4294967295 631629067) -> 6.79982527624873) ((5511 . 5625) (/ 4294967296 631629063) -> 6.79982532089408) ((5512 . 5625) (/ 4294967296 631629064) -> 6.79982531012854) ((5513 . 5625) (/ 4294967296 631629065) -> 6.799825299363) ((5514 . 5625) (/ 4294967296 631629066) -> 6.79982528859747) ((5515 . 5625) (/ 4294967296 631629067) -> 6.79982527783193) ((5516 . 5625) (/ 4294967297 631629063) -> 6.79982532247728) ((5517 . 5625) (/ 4294967297 631629064) -> 6.79982531171175) ((5518 . 5625) (/ 4294967297 631629065) -> 6.79982530094621) ((5519 . 5625) (/ 4294967297 631629066) -> 6.79982529018068) ((5520 . 5625) (/ 4294967297 631629067) -> 6.79982527941514) ((5521 . 5625) (/ 4294967298 631629063) -> 6.79982532406049) ((5522 . 5625) (/ 4294967298 631629064) -> 6.79982531329496) ((5523 . 5625) (/ 4294967298 631629065) -> 6.79982530252942) ((5524 . 5625) (/ 4294967298 631629066) -> 6.79982529176388) ((5525 . 5625) (/ 4294967298 631629067) -> 6.79982528099835) ((5526 . 5625) (/ 4294967294 9007199254740990) -> 4.76837157981081e-07) ((5527 . 5625) (/ 4294967294 9007199254740991) -> 4.7683715798108e-07) ((5528 . 5625) (/ 4294967294 9007199254740992) -> 4.7683715798108e-07) ((5529 . 5625) (/ 4294967294 9007199254740993) -> 4.7683715798108e-07) ((5530 . 5625) (/ 4294967294 9007199254740994) -> 4.7683715798108e-07) ((5531 . 5625) (/ 4294967295 9007199254740990) -> 4.76837158092103e-07) ((5532 . 5625) (/ 4294967295 9007199254740991) -> 4.76837158092103e-07) ((5533 . 5625) (/ 4294967295 9007199254740992) -> 4.76837158092103e-07) ((5534 . 5625) (/ 4294967295 9007199254740993) -> 4.76837158092103e-07) ((5535 . 5625) (/ 4294967295 9007199254740994) -> 4.76837158092103e-07) ((5536 . 5625) (/ 4294967296 9007199254740990) -> 4.76837158203125e-07) ((5537 . 5625) (/ 4294967296 9007199254740991) -> 4.76837158203125e-07) ((5538 . 5625) (/ 4294967296 9007199254740992) -> 4.76837158203125e-07) ((5539 . 5625) (/ 4294967296 9007199254740993) -> 4.76837158203125e-07) ((5540 . 5625) (/ 4294967296 9007199254740994) -> 4.76837158203125e-07) ((5541 . 5625) (/ 4294967297 9007199254740990) -> 4.76837158314147e-07) ((5542 . 5625) (/ 4294967297 9007199254740991) -> 4.76837158314147e-07) ((5543 . 5625) (/ 4294967297 9007199254740992) -> 4.76837158314147e-07) ((5544 . 5625) (/ 4294967297 9007199254740993) -> 4.76837158314147e-07) ((5545 . 5625) (/ 4294967297 9007199254740994) -> 4.76837158314147e-07) ((5546 . 5625) (/ 4294967298 9007199254740990) -> 4.7683715842517e-07) ((5547 . 5625) (/ 4294967298 9007199254740991) -> 4.7683715842517e-07) ((5548 . 5625) (/ 4294967298 9007199254740992) -> 4.7683715842517e-07) ((5549 . 5625) (/ 4294967298 9007199254740993) -> 4.7683715842517e-07) ((5550 . 5625) (/ 4294967298 9007199254740994) -> 4.76837158425169e-07) ((5551 . 5625) (/ 4294967294 -9007199254740994) -> -4.7683715798108e-07) ((5552 . 5625) (/ 4294967294 -9007199254740993) -> -4.7683715798108e-07) ((5553 . 5625) (/ 4294967294 -9007199254740992) -> -4.7683715798108e-07) ((5554 . 5625) (/ 4294967294 -9007199254740991) -> -4.7683715798108e-07) ((5555 . 5625) (/ 4294967294 -9007199254740990) -> -4.76837157981081e-07) ((5556 . 5625) (/ 4294967295 -9007199254740994) -> -4.76837158092103e-07) ((5557 . 5625) (/ 4294967295 -9007199254740993) -> -4.76837158092103e-07) ((5558 . 5625) (/ 4294967295 -9007199254740992) -> -4.76837158092103e-07) ((5559 . 5625) (/ 4294967295 -9007199254740991) -> -4.76837158092103e-07) ((5560 . 5625) (/ 4294967295 -9007199254740990) -> -4.76837158092103e-07) ((5561 . 5625) (/ 4294967296 -9007199254740994) -> -4.76837158203125e-07) ((5562 . 5625) (/ 4294967296 -9007199254740993) -> -4.76837158203125e-07) ((5563 . 5625) (/ 4294967296 -9007199254740992) -> -4.76837158203125e-07) ((5564 . 5625) (/ 4294967296 -9007199254740991) -> -4.76837158203125e-07) ((5565 . 5625) (/ 4294967296 -9007199254740990) -> -4.76837158203125e-07) ((5566 . 5625) (/ 4294967297 -9007199254740994) -> -4.76837158314147e-07) ((5567 . 5625) (/ 4294967297 -9007199254740993) -> -4.76837158314147e-07) ((5568 . 5625) (/ 4294967297 -9007199254740992) -> -4.76837158314147e-07) ((5569 . 5625) (/ 4294967297 -9007199254740991) -> -4.76837158314147e-07) ((5570 . 5625) (/ 4294967297 -9007199254740990) -> -4.76837158314147e-07) ((5571 . 5625) (/ 4294967298 -9007199254740994) -> -4.76837158425169e-07) ((5572 . 5625) (/ 4294967298 -9007199254740993) -> -4.7683715842517e-07) ((5573 . 5625) (/ 4294967298 -9007199254740992) -> -4.7683715842517e-07) ((5574 . 5625) (/ 4294967298 -9007199254740991) -> -4.7683715842517e-07) ((5575 . 5625) (/ 4294967298 -9007199254740990) -> -4.7683715842517e-07) ((5576 . 5625) (/ 4294967294 12343) -> 347967.859839585) ((5577 . 5625) (/ 4294967294 12344) -> 347939.670609203) ((5578 . 5625) (/ 4294967294 12345) -> 347911.485945727) ((5579 . 5625) (/ 4294967294 12346) -> 347883.305848048) ((5580 . 5625) (/ 4294967294 12347) -> 347855.130315056) ((5581 . 5625) (/ 4294967295 12343) -> 347967.859920603) ((5582 . 5625) (/ 4294967295 12344) -> 347939.670690214) ((5583 . 5625) (/ 4294967295 12345) -> 347911.486026731) ((5584 . 5625) (/ 4294967295 12346) -> 347883.305929046) ((5585 . 5625) (/ 4294967295 12347) -> 347855.130396048) ((5586 . 5625) (/ 4294967296 12343) -> 347967.86000162) ((5587 . 5625) (/ 4294967296 12344) -> 347939.670771225) ((5588 . 5625) (/ 4294967296 12345) -> 347911.486107736) ((5589 . 5625) (/ 4294967296 12346) -> 347883.306010044) ((5590 . 5625) (/ 4294967296 12347) -> 347855.130477039) ((5591 . 5625) (/ 4294967297 12343) -> 347967.860082638) ((5592 . 5625) (/ 4294967297 12344) -> 347939.670852236) ((5593 . 5625) (/ 4294967297 12345) -> 347911.48618874) ((5594 . 5625) (/ 4294967297 12346) -> 347883.306091042) ((5595 . 5625) (/ 4294967297 12347) -> 347855.13055803) ((5596 . 5625) (/ 4294967298 12343) -> 347967.860163656) ((5597 . 5625) (/ 4294967298 12344) -> 347939.670933247) ((5598 . 5625) (/ 4294967298 12345) -> 347911.486269745) ((5599 . 5625) (/ 4294967298 12346) -> 347883.30617204) ((5600 . 5625) (/ 4294967298 12347) -> 347855.130639022) ((5601 . 5625) (/ 4294967294 4294967294) -> 1) ((5602 . 5625) (/ 4294967294 4294967295) -> 0.999999999767169) ((5603 . 5625) (/ 4294967294 4294967296) -> 0.999999999534339) ((5604 . 5625) (/ 4294967294 4294967297) -> 0.999999999301508) ((5605 . 5625) (/ 4294967294 4294967298) -> 0.999999999068677) ((5606 . 5625) (/ 4294967295 4294967294) -> 1.00000000023283) ((5607 . 5625) (/ 4294967295 4294967295) -> 1) ((5608 . 5625) (/ 4294967295 4294967296) -> 0.999999999767169) ((5609 . 5625) (/ 4294967295 4294967297) -> 0.999999999534339) ((5610 . 5625) (/ 4294967295 4294967298) -> 0.999999999301508) ((5611 . 5625) (/ 4294967296 4294967294) -> 1.00000000046566) ((5612 . 5625) (/ 4294967296 4294967295) -> 1.00000000023283) ((5613 . 5625) (/ 4294967296 4294967296) -> 1) ((5614 . 5625) (/ 4294967296 4294967297) -> 0.999999999767169) ((5615 . 5625) (/ 4294967296 4294967298) -> 0.999999999534339) ((5616 . 5625) (/ 4294967297 4294967294) -> 1.00000000069849) ((5617 . 5625) (/ 4294967297 4294967295) -> 1.00000000046566) ((5618 . 5625) (/ 4294967297 4294967296) -> 1.00000000023283) ((5619 . 5625) (/ 4294967297 4294967297) -> 1) ((5620 . 5625) (/ 4294967297 4294967298) -> 0.999999999767169) ((5621 . 5625) (/ 4294967298 4294967294) -> 1.00000000093132) ((5622 . 5625) (/ 4294967298 4294967295) -> 1.00000000069849) ((5623 . 5625) (/ 4294967298 4294967296) -> 1.00000000046566) ((5624 . 5625) (/ 4294967298 4294967297) -> 1.00000000023283) ((5625 . 5625) (/ 4294967298 4294967298) -> 1) ����������������������������������������chicken-4.12.0/tests/inlining-tests.scm�������������������������������������������������������������0000644�0001750�0001750�00000000761�13040667210�017630� 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-4.12.0/tests/module-tests.scm���������������������������������������������������������������0000644�0001750�0001750�00000013257�13052302315�017305� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; module-tests.scm (cond-expand (compiling (include "test.scm") ) (else (load-relative "test.scm"))) (test-begin "modules") (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 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) (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 chicken 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) (use (prefix (rename srfi-1 (filter f)) 99:)) (print 99:f)) ;;; expansion of macros into modules: (module m16 (foo-module) (import scheme chicken) (define-syntax foo-module (syntax-rules () ((_ name) (module name (maker definer) (import scheme chicken) (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)) (module 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) (module 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 chicken scheme) (define b 2)) (module m23 * (import chicken scheme) (import m22) (export b) ) (test-equal "`*' export-list + explicit export" (module m24 () (import m23) b) 2) ;; (contributed by "megane") (module m25 * (import chicken scheme) (define foo 1)) (module m26 (bar) (import chicken scheme) (reexport m25) (define bar 2)) (module m27 * (import chicken scheme) (reexport m25) ;; <- oops, bar not exported anymore (define bar 2)) (test-equal "handle star-exporting module with reexport" (module m28 () (import scheme chicken) (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 scheme) (define-syntax m29-baz (er-macro-transformer (lambda _ ''foo)))) (module m30 * (import chicken scheme) (import m29) (export m29-baz)) (test-equal "star-export with explicit re-export of syntax" (module m31 () (import scheme chicken) (import m30) (m29-baz)) 'foo) (test-end "modules") �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/data-structures-tests.scm������������������������������������������������������0000644�0001750�0001750�00000015204�13052302315�021144� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; data-structures-tests.scm (use data-structures) (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?)) ;; Queues. ;; These are tested extensively (and probably still not enough) ;; because of the strange dealings with the front and end lists stored ;; internally. If we run into errors, add more regression tests here. (let ((q (make-queue))) (assert (queue? q)) (assert (queue-empty? q)) (assert (= 0 (queue-length q))) (assert (null? (queue->list q))) (assert-error (queue-first q)) (assert-error (queue-last q)) (assert-error (queue-remove! q)) (queue-add! q 'foo) (assert (eq? 'foo (queue-first q))) (assert (eq? 'foo (queue-last q))) (assert (not (queue-empty? q))) (assert (= (queue-length q) 1)) (let ((l1 (queue->list q)) (l2 (queue->list q))) (assert (equal? l1 '(foo))) (assert (equal? l2 '(foo))) (assert (not (eq? l1 l2))) ; Do not share memory (queue-add! q 'end) (queue-push-back! q 'front) (assert (equal? l1 '(foo)))) ; Does not share memory w/ queue (assert (equal? (queue->list q) '(front foo end))) (assert (eq? 'front (queue-remove! q))) (assert (eq? 'foo (queue-first q))) (assert (eq? 'end (queue-last q))) (queue-push-back-list! q '(one two)) (assert (equal? (queue->list q) '(one two foo end))) (assert (= 4 (queue-length q))) (assert (eq? 'one (queue-remove! q))) (assert (eq? 'two (queue-remove! q))) (assert (= 2 (queue-length q))) (assert (eq? 'foo (queue-first q))) (assert (eq? 'end (queue-last q))) (assert (not (queue-empty? q))) (assert (eq? 'foo (queue-remove! q))) (assert (eq? 'end (queue-first q))) (assert (eq? 'end (queue-last q))) (assert (= (queue-length q) 1)) (assert (not (queue-empty? q))) (assert (eq? 'end (queue-remove! q))) (assert (queue-empty? q)) (assert (= (queue-length q) 0)) (assert-error (queue-first q)) (assert-error (queue-last q)) (assert-error (queue-remove! q))) (let ((q (list->queue (list 'one 'two)))) (assert (queue? q)) (assert (not (queue-empty? q))) (assert (= (queue-length q) 2)) (assert (eq? 'one (queue-first q))) (assert (eq? 'two (queue-last q))) (assert (eq? 'one (queue-remove! q))) (assert (eq? 'two (queue-first q))) (assert (eq? 'two (queue-last q))) (assert (= (queue-length q) 1)) (assert (not (queue-empty? q))) (assert (eq? 'two (queue-remove! q))) (assert-error (queue-first q)) (assert-error (queue-last q)) (assert (= (queue-length q) 0)) (assert (queue-empty? q))) (let ((q (list->queue (list 'one)))) (assert (queue? q)) (assert (not (queue-empty? q))) (assert (= (queue-length q) 1)) (assert (eq? 'one (queue-first q))) (assert (eq? 'one (queue-last q))) (queue-push-back! q 'zero) (assert (eq? 'zero (queue-first q))) (assert (eq? 'one (queue-last q))) (queue-add! q 'two) (assert (eq? 'zero (queue-first q))) (assert (eq? 'two (queue-last q))) (queue-add! q 'three) (assert (eq? 'zero (queue-first q))) (assert (eq? 'three (queue-last q))) (assert (equal? '(zero one two three) (queue->list q))) (assert (eq? 'zero (queue-remove! q))) (assert (eq? 'one (queue-first q))) (assert (eq? 'three (queue-last q))) (assert (= (queue-length q) 3)) (assert (not (queue-empty? q))) (assert (eq? 'one (queue-remove! q))) (assert (eq? 'two (queue-remove! q))) (assert (eq? 'three (queue-remove! q))) (assert-error (queue-first q)) (assert-error (queue-last q)) (assert (= (queue-length q) 0)) (assert (queue-empty? q))) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/compiler.scm�������������������������������������������������������������������0000644�0001750�0001750�00001612446�13040667210�016505� 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-4.12.0/tests/test-chained-modules.scm�������������������������������������������������������0000644�0001750�0001750�00000000575�13040667210�020702� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(module m1 ((s1 f1)) (import scheme chicken) (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-4.12.0/tests/srfi-4-tests.scm���������������������������������������������������������������0000644�0001750�0001750�00000005630�13052302315�017120� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; srfi-4-tests.scm (use srfi-1 srfi-4 ports) (define-syntax test1 (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))) (print x) (assert (= 100 (,(conc "vector-ref") x 0))) (assert (,(conc "vector?") x)) (assert (number-vector? x)) (,(conc "vector-set!") x 1 99) (assert (= 99 (,(conc "vector-ref") x 1))) (assert (= 2 (,(conc "vector-length") x))) (assert (every = '(100 99) (,(conc "vector->list") x)))))))) (test1 u8) (test1 u16) (test1 u32) (test1 s8) (test1 s16) (test1 s32) (test1 f32) (test1 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? #s32(-1 2 3) '#s32(-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()))))) ��������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/ec.scm�������������������������������������������������������������������������0000644�0001750�0001750�00000104700�13040667210�015246� 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 (except chicken :)) ; <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-4.12.0/tests/thread-list.scm����������������������������������������������������������������0000644�0001750�0001750�00000001501�13052302315�017065� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; thread-list.scm ; ; usage: csi -s thread-list.scm [COUNT] (use srfi-18) (define count #f) (define (run n) (set! count n) (print "creating " n " threads ...") (let loop ((n n) (prev #f)) (cond ((negative? n) (print "starting ...") (thread-start! prev)) (else (loop (sub1 n) (make-thread (lambda () (bump n) (thread-start! prev)))))))) (define (bump n) (set! count (sub1 count)) (cond ((zero? count) (newline) (exit)) ((and (zero? (modulo n 10000)) (##sys#fudge 13)) (print* ".")))) (run (string->number (optional (command-line-arguments) "250000"))) (thread-sleep! 604800) ; time csi -s thread-list.scm 1000000 -:h1g ; 11 secs ; ; csc thread-list.scm -o a.out -v -O4 -f -d0 ; time a.out 1000000 -:h1g ; 4 secs ; ; (x86, Core2 Duo, 2.4Ghz, 2GB RAM) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/heap-literal-stress-test.scm���������������������������������������������������0000644�0001750�0001750�00000000736�13040667210�021530� 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-4.12.0/tests/callback-tests.scm�������������������������������������������������������������0000644�0001750�0001750�00000000453�13040667210�017553� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; callback-tests.scm (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-4.12.0/tests/reexport-m2.scm����������������������������������������������������������������0000644�0001750�0001750�00000000225�13052302315�017033� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; module importing from module that reexports core binding (module foo () (import scheme chicken) (use reexport-m1) (print (cons* 1 2 3))) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/simple-functors-test.scm�������������������������������������������������������0000644�0001750�0001750�00000000534�13052302315�020761� 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)) (module f = foo) (functor (do-things (arg STUFF)) (do-it) (import scheme arg) (define (do-it) (list a b))) (module bar = (do-things f)) (import bar) (assert (equal? '(1 2) (do-it))) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/import-library-test2.scm�������������������������������������������������������0000644�0001750�0001750�00000000325�13052302315�020663� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(require-library import-library-test1) (module bar (xcase) (import scheme chicken extras foo) (assert (equal? '(123) (foo))) (assert (= 2 (xcase 1 ((1) 2))))) (import bar) (assert (= 2 (xcase 1 ((1) 2)))) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/lolevel-tests.scm��������������������������������������������������������������0000644�0001750�0001750�00000016565�13052302315�017467� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; Unit lolevel testing (require-extension lolevel srfi-4 extras) (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-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-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) ;; 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)) (assert (eq? foo (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 (##sys#fudge 3) 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-evict ; object-evicted? ; object-size ; object-release (define tstvec (vector #f)) (let ((sz (object-size tstvec))) (assert (and (integer? sz) (positive? sz))) ) (define ev-tstvec (object-evict tstvec)) (assert (not (eq? tstvec ev-tstvec))) (assert (object-evicted? ev-tstvec)) (set! ev-tstvec (let ((old ev-tstvec)) (object-release old) #f)) ; object-evict-to-location ; object-unevict ; 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-4.12.0/tests/test-optional.scm��������������������������������������������������������������0000644�0001750�0001750�00000007342�13040667210�017465� 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-4.12.0/tests/r4rstest.scm�������������������������������������������������������������������0000644�0001750�0001750�00000105656�13052302315�016457� 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', `tmp2' and `tmp3' 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" (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") (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) (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" (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") (define test-file (open-output-file "tmp2")) (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") (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") (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-4.12.0/tests/specialization-test-1.scm������������������������������������������������������0000644�0001750�0001750�00000003147�13040667210�021013� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; specialization-test-1.scm (module foo (foo bar) (import scheme chicken foreign) #> 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 (define-specialization (+) 1) (assert (= (+) 1)) ) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/typematch-tests.scm������������������������������������������������������������0000644�0001750�0001750�00000021641�13052302315�020012� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; typematch-tests.scm (use srfi-1 lolevel data-structures) (define-syntax check (syntax-rules () ((_ x not-x t) (begin (print "check " 't " " 'x) (compiler-typecase x (t 'ok)) (compiler-typecase not-x ((not t) 'ok)))))) (define-syntax checkp (syntax-rules () ((_ p x t) (let ((tmp x)) (print "check predicate " 't " " 'p) (if (p tmp) (compiler-typecase tmp (t 'ok))) (compiler-typecase (##sys#make-structure 'foo) ((not t) 'ok)))))) (define (bar) 42) (define-syntax type<= (er-macro-transformer (lambda (x r c) (let ((t1 (cadr x)) (t2 (caddr x)) (foo (gensym 'foo))) `(begin (print ',t1 " = " ',t2) (: ,foo (-> ,t1)) (define (,foo) (bar)) (compiler-typecase (,foo) (,t2 'ok))))))) (define-syntax type> (er-macro-transformer (lambda (x r c) (let ((t1 (cadr x)) (t2 (caddr x)) (foo (gensym 'foo))) `(begin (print ',t1 " != " ',t2) (: ,foo (-> ,t1)) (define (,foo) (bar)) (compiler-typecase (,foo) (,t2 (bomb)) (else 'ok))))))) (define-syntax m (er-macro-transformer (lambda (x r c) (let ((t1 (cadr x)) (t2 (caddr x))) `(begin (type<= ,t1 ,t2) (type<= ,t2 ,t1)))))) (define-syntax mn (er-macro-transformer (lambda (x r c) (let ((t1 (cadr x)) (t2 (caddr x))) `(begin (type> ,t1 ,t2) (type> ,t2 ,t1)))))) (define-syntax mx (syntax-rules () ((_ t x) (begin (print 'x " = " 't) (compiler-typecase x (t 'ok)))))) (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)))))) ;;; (check 123 1.2 fixnum) (check "abc" 1.2 string) (check 'abc 1.2 symbol) (check #\x 1.2 char) (check #t #f true) (check #f #t false) (check (+ 1 2) 'a number) (check '(1) 1.2 (list fixnum)) (check '(a) 1.2 (list symbol)) (check (list 1) '(1 . 2) (list fixnum)) (check '(1 . 2) '() pair) (check + 1.2 procedure) (check '#(1) 1.2 vector) (check '() 1 null) (check (current-input-port) 1.2 input-port) (check (make-blob 10) 1.2 blob) (check (address->pointer 0) 1.2 pointer) (check (make-pointer-vector 1) 1.2 pointer-vector) (check (make-locative "a") 1.2 locative) (check (##sys#make-structure 'promise) 1 (struct promise)) (check '(1 . 2.3) '(a) (pair fixnum float)) (check '#(a) 1 (vector symbol)) (check '("ok") 1 (list string)) (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) (checkp boolean? #t true) (checkp boolean? #f false) (checkp pair? '(1 . 2) pair) (checkp null? '() null) (checkp symbol? 'a symbol) (checkp number? (+ n) number) (checkp number? (+ n) number) (checkp exact? '1 fixnum) (checkp real? (+ n) number) (checkp complex? (+ n) number) (checkp inexact? '1.2 float) (checkp char? #\a char) (checkp string? "a" string) (checkp vector? '#() vector) (checkp procedure? + procedure) (checkp blob? (make-blob 1) blob) (checkp condition? (##sys#make-structure 'condition) (struct condition)) (checkp fixnum? 1 fixnum) (checkp flonum? 1.2 float) (checkp input-port? (current-input-port) input-port) (checkp pointer-vector? (make-pointer-vector 1) pointer-vector) (checkp pointer? (address->pointer 1) pointer) (type<= null list) (type<= (list *) list) (type<= (vector *) vector) (type> list null) (type> list (list *)) (type> vector (vector *)) (mn pair null) (mn pair list) (mn (procedure (*) *) (procedure () *)) (m (procedure (#!rest) . *) (procedure (*) . *)) (mn (procedure () *) (procedure () * *)) (mx (forall (a) (procedure (#!rest a) a)) +) (mx (list fixnum) '(1)) ;;; 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)) (mx fixnum (car-alike l)) (mx fixnum (car-alike p)) (mx fixnum (cadr-alike l)) (mx fixnum (cadr-alike p)) (mx list (cddr-alike l)) (mx 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))) (m (pair * null) (list *)) (m (pair * (list *)) (list * *)) (m (pair * (list fixnum)) (list * fixnum)) (m (pair fixnum (list *)) (list fixnum *)) (m (pair fixnum (pair * null)) (list fixnum *)) (m (pair fixnum (pair fixnum null)) (list fixnum fixnum)) (m (pair char (list fixnum)) (list char fixnum)) (m (pair fixnum (list char)) (list fixnum char)) (m (pair fixnum (list fixnum)) (list fixnum fixnum)) (mn (pair * *) list) (mn (pair * list) list) (mn (pair fixnum *) (list-of *)) (mn (pair fixnum *) (list-of fixnum)) (mn (pair fixnum (list-of *)) (list-of fixnum)) (mn (pair fixnum (list-of fixnum)) (list-of fixnum)) (mn (pair char (list-of fixnum)) (list-of fixnum)) (mn (pair fixnum (list-of char)) (list-of fixnum)) (mn (pair fixnum (list-of fixnum)) (list-of fixnum)) ;;; special cases (let ((x (##sys#make-structure 'foo))) (mx (struct foo) x)) (define x 1) (assert (eq? 'number (compiler-typecase (vector-ref '#(1 2 3.4) x) (fixnum 'fixnum) (float 'float) (number 'number)))) (assert (eq? 'boolean (compiler-typecase (vector-ref '#(#t #f) x) (true 'true) (false 'false) (boolean 'boolean)))) (mx float (vector-ref '#(1 2 3.4) 2)) (mx fixnum (vector-ref '#(1 2 3.4) 0)) (mx float (##sys#vector-ref '#(1 2 3.4) 2)) (mx fixnum (##sys#vector-ref '#(1 2 3.4) 0)) (mx (vector fixnum float) (vector 1 2.3)) (mx (list fixnum float) (list 1 2.3)) (mx (list fixnum float) (list-copy (list 1 2.3))) (mx (pair fixnum float) (list-copy (cons 1 2.3))) (mx fixnum (list-copy 1)) (mx fixnum (list-ref (list 1 2.3) 0)) (mx fixnum (list-ref (cons 1 2.3) 0)) (mx float (list-ref (list 1 2.3) 1)) (mx (list fixnum float) (list-tail (list 1 2.3) 0)) (mx (pair fixnum float) (list-tail (cons 1 2.3) 0)) (mx (list float) (list-tail (list 1 2.3) 1)) (mx float (list-tail (cons 1 2.3) 1)) (mx null (list-tail (list 1 2.3) 2)) (mx (list fixnum float) (drop (list 1 2.3) 0)) (mx (pair fixnum float) (drop (cons 1 2.3) 0)) (mx (list float) (drop (list 1 2.3) 1)) (mx float (drop (cons 1 2.3) 1)) (mx null (drop (list 1 2.3) 2)) (mx null (take (list 1 2.3) 0)) (mx null (take (cons 1 2.3) 0)) (mx (list fixnum) (take (list 1 2.3) 1)) (mx (list fixnum) (take (cons 1 2.3) 1)) (mx (list fixnum float) (take (list 1 2.3) 2)) (mx (list * *) (make-list 2)) (mx (list string string) (make-list 2 "a")) (mx (vector * *) (make-vector 2)) (mx (vector string string) (make-vector 2 "a")) (mx null (reverse '())) (mx list (reverse (the list (list 1 "2")))) (mx (list string fixnum) (reverse (list 1 "2"))) (mx (list fixnum string) (reverse (cons "1" (cons 2 '())))) (: f1 (forall (a) ((list-of a) -> a))) (define (f1 x) (car x)) (mx fixnum (f1 '(1))) (: f2 (forall (a) ((list-of a) -> a))) (define (f2 x) (car x)) (assert (eq? 'sf (compiler-typecase (f2 (list (if bar 1 'a))) (symbol 's) (fixnum 'f) ((or fixnum symbol) 'sf)))) (: f3 (forall (a) ((list-of a) -> a))) (define f3 car) (define xxx '(1)) (compiler-typecase (f3 (the (or (vector-of fixnum) (list-of fixnum)) xxx)) (fixnum 'ok)) (assert (eq? 'ok (compiler-typecase (list 123) ((forall (a) (or (vector-of a) (list-of a))) 'ok) (else 'not-ok)))) (: f4 (forall (a) ((or fixnum (list-of a)) -> a))) (define f4 identity) (compiler-typecase (f4 '(1)) (fixnum 'ok)) (assert (eq? 'ok (compiler-typecase (f4 1) (fixnum 'not-ok) (else 'ok)))) (assert ; clause order is respected (compiler-typecase 1 (number #t) (fixnum #f))) �����������������������������������������������������������������������������������������������chicken-4.12.0/tests/scrutiny-tests-strict.scm������������������������������������������������������0000644�0001750�0001750�00000001053�13040667210�021202� 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-4.12.0/tests/specialization-tests.scm�������������������������������������������������������0000644�0001750�0001750�00000000177�13052302367�021042� 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)) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/meta-syntax-test.scm�����������������������������������������������������������0000755�0001750�0001750�00000001330�13052302315�020077� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; meta-syntax-test.scm (module foo (bar listify) (import scheme chicken) (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 foo-usage (foo-user) (import chicken scheme) (begin-for-syntax (import (prefix foo foo:))) (define-syntax testing (er-macro-transformer (lambda (x r c) `(,(r 'quote) ,@(foo:bar 1 2))))) (define (foo-user) (testing))) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/dwindtst.expected��������������������������������������������������������������0000644�0001750�0001750�00000001030�13040667210�017526� 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-4.12.0/tests/r4rstest.out�������������������������������������������������������������������0000644�0001750�0001750�00000047024�13052302315�016476� 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 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" #<procedure>) ==> #t (#<procedure> #<input port "tmp1">) ==> (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">) ==> #\; (#<procedure> #<input port "tmp1">) ==> #\; (#<procedure> #<input port "tmp1">) ==> #\; (#<procedure> #<input port "tmp1">) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (#<procedure> #<input port "tmp1">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (#<procedure> #<output port "tmp2">) ==> #t (#<procedure> #<input port "tmp2">) ==> (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">) ==> #\; (#<procedure> #<input port "tmp2">) ==> #\; (#<procedure> #<input port "tmp2">) ==> #\; (#<procedure> #<input port "tmp2">) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (#<procedure> #<input port "tmp2">) ==> (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" #<procedure>) ==> #t (#<procedure> #<input port "tmp3">) ==> (define foo (quote (0.25 -3.25))) (#<procedure> #!eof) ==> #t (#<procedure> #!eof) ==> #t (input-port? #t) ==> #t (#<procedure> #<input port "tmp3">) ==> #\; (#<procedure> #<input port "tmp3">) ==> #\; (#<procedure> #<input port "tmp3">) ==> #\; (#<procedure> #<input port "tmp3">) ==> (0.25 -3.25) (#<procedure> #<input port "tmp3">) ==> (define foo (quote (0.25 -3.25))) (pentium-fdiv-bug #t) ==> #t Passed all tests 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-4.12.0/tests/matchable.scm������������������������������������������������������������������0000644�0001750�0001750�00000046771�13040667210�016614� 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-4.12.0/tests/symbolgc-tests.scm�������������������������������������������������������������0000644�0001750�0001750�00000001510�13052302315�017624� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; symbolgc-tests.scm ; ; - run this with the "-:w" option (use extras) (assert (##sys#fudge 15) "please run this test with the `-:w' runtime option") (define (gcsome #!optional (n 100)) (do ((i n (sub1 i))) ((zero? i)) (gc #t))) (gcsome) (define *count1* (vector-ref (##sys#symbol-table-info) 2)) (print "starting with " *count1* " symbols") (print "interning 10000 symbols ...") (do ((i 10000 (sub1 i))) ((zero? i)) (string->symbol (sprintf "%%%~a%%%" i))) (print "recovering ...") (let loop ((i 0)) (let ((n (vector-ref (##sys#symbol-table-info) 2))) (print* (- n *count1*) " ") (cond ((> i 100) (unless (<= n *count1*) (error "unable to reclaim all symbols"))) ((< (- n *count1*) 100) ; allow some (gc #t) (loop (+ i 1))) (else (gc #t) (loop 0))))) (print "\ndone.") ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/condition-tests.scm������������������������������������������������������������0000644�0001750�0001750�00000002453�13040667210�020007� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� (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 (location test) (arguments ("bar")) (message "foo"))))) (assert (equal? (condition->list condition3) '((exn (location test) (arguments ("bar")) (message "foo")) (sam (partner "max") (age 23))))) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/embedded1.c��������������������������������������������������������������������0000644�0001750�0001750�00000000211�13040667210�016121� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������#include <stdio.h> #include <stdlib.h> #include <chicken.h> int main() { CHICKEN_run((void*)CHICKEN_default_toplevel); return 0; } ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/specialization.expected��������������������������������������������������������0000644�0001750�0001750�00000001223�13052302367�020712� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� Note: at toplevel: (specialization-tests.scm:3) in procedure call to `string?', the predicate is called with an argument of type `string' and will always return true Note: at toplevel: (specialization-tests.scm:3) expected a value of type boolean in conditional, but was given a value of type `true' which is always true: (if (string? a) 'ok 'no) Note: at toplevel: (specialization-tests.scm:4) in procedure call to `string?', the predicate is called with an argument of type `symbol' and will always return false Note: at toplevel: (specialization-tests.scm:4) in conditional, test expression will always return false: (if (string? a) 'ok 'no) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/test-find-files.scm������������������������������������������������������������0000644�0001750�0001750�00000014145�13040667210�017657� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(use data-structures posix) (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) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/test-queue.scm�����������������������������������������������������������������0000644�0001750�0001750�00000000461�13052302315�016752� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; test-queue.scm (include "QUEUE") (functor (test-queue (Q QUEUE)) * (import scheme chicken Q) (use srfi-1) (define (list->queue lst) (fold (lambda (x q) (enqueue q x)) empty-queue lst)) (define (queue->list q) (if (empty? q) '() (cons (head q) (queue->list (dequeue q))))) ) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/test.tex�����������������������������������������������������������������������0000644�0001750�0001750�00000147165�13040667210�015670� 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-4.12.0/tests/compiler-syntax-tests.scm������������������������������������������������������0000644�0001750�0001750�00000003272�13040667210�021157� 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) (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 (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) (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) (define-compiler-syntax f1 (syntax-rules () ((_ x) (list x)))) ) (assert (= 2 (f1 2))) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/reexport-tests-2.scm�����������������������������������������������������������0000644�0001750�0001750�00000000427�13052302315�020022� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; export of syntax referring to reexported syntax binding (use 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-4.12.0/tests/simple-thread-test.scm���������������������������������������������������������0000644�0001750�0001750�00000000532�13052302315�020363� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; simple-thread-test.scm (use srfi-18 extras) (define (spin) (do ((i 0 (add1 i))) ((>= i 10)) (print (current-thread) " sleeps ...") (thread-sleep! (random 3))) (print (current-thread) " finished.")) (thread-start! spin) (thread-start! spin) (spin) (print (current-thread) " waits ...") (thread-sleep! 3) (print "end.") ����������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/test-finalizers-2.scm����������������������������������������������������������0000644�0001750�0001750�00000002325�13052302315�020134� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; test-finalizers-2.scm - test finalizers + GC roots (use srfi-1) (define *n* 1000) (define *count* 0) #> static void * makef(int f, ___scheme_value 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 (circular-list #t #f)) (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-4.12.0/tests/embedded3.c��������������������������������������������������������������������0000644�0001750�0001750�00000002001�13040667210�016122� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* embedded3-c.c */ #include <chicken.h> #include <assert.h> #ifdef C_SIXTY_FOUR # define UWORD_FORMAT_STRING "0x%016lx" #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-4.12.0/tests/scrutiny-tests.scm�������������������������������������������������������������0000644�0001750�0001750�00000024471�13052302367�017707� 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 (pp) ; expected 1 argument, got 0 (print (cpu-time)) ; 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 chicken scheme) (define (blabla) (+ 1 'x))) ;; Reported by megane in #884: ;; ;; Custom types defined in modules need to be resolved during canonicalization (module bar () (import chicken scheme) (define-type footype string) (the footype "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 not report (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)))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/breadth-first.scm��������������������������������������������������������������0000644�0001750�0001750�00000000627�13052302315�017413� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; breadth-first.scm (include "QUEUE") (functor (breadth-first (Q QUEUE)) (search) (import scheme chicken Q) (use srfi-1) (define (enqlist q xs) (fold (lambda (x q) (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-4.12.0/tests/hash-table-tests.scm�����������������������������������������������������������0000644�0001750�0001750�00000022466�13052302315�020032� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; hash-table-tests.scm (require-extension srfi-69 data-structures extras) (print "SRFI 69 procedures") (assert (eq? hash equal?-hash)) (assert (eq? hash-by-identity eq?-hash)) ;; Re-use variable (define ht) (print "HT - No Parameters") (set! ht (make-hash-table)) (assert (hash-table? ht)) (assert (eq? equal? (hash-table-equivalence-function ht))) (assert (eq? equal?-hash (hash-table-hash-function ht))) (assert (not (hash-table-has-initial? ht))) (print "HT - Test Parameter") (set! ht (make-hash-table eq?)) (assert (hash-table? ht)) (assert (eq? eq? (hash-table-equivalence-function ht))) (assert (eq? eq?-hash (hash-table-hash-function ht))) (assert (not (hash-table-has-initial? ht))) (print "HT - Number Test Parameter") (set! ht (make-hash-table =)) (assert (hash-table? ht)) (assert (eq? = (hash-table-equivalence-function ht))) (assert (eq? number-hash (hash-table-hash-function ht))) (assert (not (hash-table-has-initial? ht))) (print "HT - All Optional Parameters") (set! ht (make-hash-table eqv? eqv?-hash 23)) (assert (hash-table? ht)) (assert (not (hash-table-has-initial? ht))) (print "HT - All Parameters") (set! ht (make-hash-table eqv? eqv?-hash 23 #:test equal? #:hash equal?-hash #:initial 'foo #:size 500 #:min-load 0.45 #:max-load 0.85 #:weak-keys #t #:weak-values #t)) (assert (hash-table? ht)) (assert (not (hash-table-weak-keys ht))) (assert (not (hash-table-weak-values ht))) (assert (eq? equal? (hash-table-equivalence-function ht))) (assert (eq? equal?-hash (hash-table-hash-function ht))) (assert (hash-table-has-initial? ht)) (assert (eq? (hash-table-initial ht) 'foo)) (print "HT - Insert with setter") (set! (hash-table-ref ht 23.0) 'bar) (assert (eq? (hash-table-ref ht 23.0) 'bar)) (print "HT - Insert with update!") (hash-table-update! ht 'baz identity (lambda () 'foo)) (assert (eq? (hash-table-ref ht 'baz) 'foo)) (assert (= (hash-table-size ht) 2)) (print "HT - A-List") (let ([alist (hash-table->alist ht)]) (assert (list? alist)) (assert (= (length alist) 2)) (assert (eq? (alist-ref 23.0 alist) 'bar)) (assert (eq? (alist-ref 'baz alist) 'foo)) ) (print "HT - set! overwrites") (hash-table-set! ht 23.0 'foo-bar) (assert (eq? (hash-table-ref ht 23.0) 'foo-bar)) (print "HT - Delete") (assert (hash-table-delete! ht 23.0)) (assert (not (hash-table-exists? ht 23.0))) (assert (= (hash-table-size ht) 1)) (print "HT - Remove") (assert (hash-table-remove! ht (lambda (k v) (eq? k 'baz)))) (assert (not (hash-table-exists? ht 'baz))) (assert (= (hash-table-size ht) 0)) (print "HT - Make from A-List") (set! ht (alist->hash-table '(("abc" . #t) ("cbs" . #t) ("cnn" . #f)))) (assert (hash-table? ht)) (assert (= (hash-table-size ht) 3)) (print "HT - Merge!") (let ([ht2 (make-hash-table)]) (set! (hash-table-ref ht2 23.0) 'bar) (set! (hash-table-ref ht2 'baz) 'foo) (let ([ht3 (hash-table-merge! ht2 ht)]) (assert (eq? ht3 ht2)) (assert (not (eq? ht3 ht))) (let ([alist (hash-table->alist ht3)]) (assert (list? alist)) (assert (= (length alist) 5)) (assert (eq? (alist-ref "abc" alist equal?) #t)) (assert (eq? (alist-ref "cbs" alist equal?) #t)) (assert (eq? (alist-ref "cnn" alist equal?) #f)) (assert (eq? (alist-ref 23.0 alist) 'bar)) (assert (eq? (alist-ref 'baz alist) 'foo)) ) ) ) (print "HT - Merge") (let ([ht2 (make-hash-table)]) (set! (hash-table-ref ht2 23.0) 'bar) (set! (hash-table-ref ht2 'baz) 'foo) (let ([ht3 (hash-table-merge ht2 ht)]) (assert (not (eq? ht3 ht2))) (assert (not (eq? ht3 ht))) (let ([alist (hash-table->alist ht3)]) (assert (list? alist)) (assert (= (length alist) 5)) (assert (eq? (alist-ref "abc" alist equal?) #t)) (assert (eq? (alist-ref "cbs" alist equal?) #t)) (assert (eq? (alist-ref "cnn" alist equal?) #f)) (assert (eq? (alist-ref 23.0 alist) 'bar)) (assert (eq? (alist-ref 'baz alist) 'foo)) ) ) ) (print "HT - Map") (let ([alist (hash-table-map ht (lambda (k v) (cons k v)))]) (assert (list? alist)) (assert (= (length alist) 3)) ) (print "HT - Fold") (let ([alist (hash-table-fold ht (lambda (k v a) (cons (cons k v) a)) '())]) (assert (list? alist)) (assert (= (length alist) 3)) ) (print "HT - Built-in string hash function") (set! ht (make-hash-table string=?)) (hash-table-set! ht "test" 123) (hash-table-set! ht "one" 1) (assert (= 123 (hash-table-ref ht "test"))) (assert (= 1 (hash-table-ref ht "one"))) ;; Issue #818, found by Jim Ursetto (srfi-13 defines its own string-hash) (print "HT - After overwriting 'string-hash' should still work") (set! string-hash (lambda (x) (error "Wrong string-hash called"))) (set! ht (make-hash-table string=?)) (hash-table-set! ht "foo" "bar") (assert (string=? (hash-table-ref ht "foo") "bar")) (set! ht (make-hash-table equal? (lambda (object bounds) (case object ((test) 0) ((one two) 1) (else (+ bounds 1)))))) (print "HT - custom hash function") (hash-table-set! ht 'test 123) (hash-table-set! ht 'one 1) (hash-table-set! ht 'two 2) (assert (= 123 (hash-table-ref ht 'test))) (assert (= 1 (hash-table-ref ht 'one))) (assert (= 2 (hash-table-ref ht 'two))) (print "HT - out of bounds value is caught") (assert (handle-exceptions exn #t (hash-table-set! ht 'out-of-bounds 123) #f)) (print "Hash collision weaknesses") ;; If these fail, it might be bad luck caused by the randomization/modulo combo ;; So don't *immediately* dismiss a hash implementation when it fails here (assert (not (= (hash "a" 10 1) (hash "a" 10 2)))) (assert (not (= (hash (make-string 1 #\nul) 10 10) 0))) ;; Long identical suffixes should not hash to the same value (assert (not (= (hash (string-append (make-string 1000000 #\a) (make-string 1000000 #\c)) 10 1) (hash (string-append (make-string 1000000 #\b) (make-string 1000000 #\c)) 10 1)))) ;; Same for prefixes (assert (not (= (hash (string-append (make-string 1000000 #\a) (make-string 1000000 #\b)) 10 1) (hash (string-append (make-string 1000000 #\a) (make-string 1000000 #\c)) 10 1)))) ;; And palindromes, too (assert (not (= (hash (string-append (make-string 1000000 #\a) (make-string 1000000 #\b) (make-string 1000000 #\a)) 10 1) (hash (string-append (make-string 1000000 #\a) (make-string 1000000 #\c) (make-string 1000000 #\a)) 10 1)))) ;; differing number of nul bytes should not be identical (assert (not (= (hash (make-string 1 #\nul) 10 1) (hash (make-string 2 #\nul) 10 1)))) ;; ensure very long NUL strings don't cause the random value to get pushed out (assert (not (= (hash (make-string 1000000 #\nul) 10 1) (hash (make-string 1000001 #\nul) 10 1)))) ;; Stress Test (set! ht (make-hash-table)) (define-constant stress-size 100000) (print "HT - Stress Insert " stress-size " Fixnum Key Items") (time (do ([i 0 (fx+ i 1)]) [(fx= i stress-size)] (set! (hash-table-ref ht i) i) ) ) (print "HT - Stress Retrieve " stress-size " Fixnum Key Items") (time (do ([i 0 (fx+ i 1)]) [(fx= i stress-size)] (assert (fx= i (hash-table-ref ht i))) ) ) (print "HT - copy") (define l '((1 a) (2 b) (3 c))) (set! ht (alist->hash-table l)) (define ht2 (hash-table-copy ht)) (assert (= (hash-table-size ht2) (hash-table-size ht))) (print l " -- " (hash-table->alist ht2)) (assert (equal? l (sort (hash-table->alist ht2) (lambda (e1 e2) (< (car e1) (car e2)))))) ;; Ensure that lookup still works (#905, randomization value was reset) (assert (equal? '(a) (hash-table-ref ht2 1))) (print "HT - recursive depth/length") (assert (fixnum? (recursive-hash-max-depth))) (assert (positive? (recursive-hash-max-depth))) (assert (fixnum? (recursive-hash-max-length))) (assert (positive? (recursive-hash-max-length))) (let ((dd (recursive-hash-max-depth)) (tls (list (random 100000) (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000)))))))))))))))) (let ((hsh1 (equal?-hash tls 536870912 0))) (recursive-hash-max-depth 10) (assert (fx= 10 (recursive-hash-max-depth))) (let ((hsh2 (equal?-hash tls 536870912 0))) (recursive-hash-max-depth dd) (print hsh1 " <?> " hsh2) (assert (not (= hsh1 hsh2))) ) ) ) (let ((dl (recursive-hash-max-length)) (tv (vector (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000)))) (let ((hsh1 (equal?-hash tv 536870912 0))) (recursive-hash-max-length 10) (assert (fx= 10 (recursive-hash-max-length))) (let ((hsh2 (equal?-hash tv 536870912 0))) (recursive-hash-max-length dl) (print hsh1 " <?> " hsh2) (assert (not (= hsh1 hsh2))) ) ) ) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/records-and-setters-test.scm���������������������������������������������������0000644�0001750�0001750�00000001235�13040667210�021523� 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-4.12.0/tests/reader-tests.scm���������������������������������������������������������������0000644�0001750�0001750�00000001061�13052302315�017250� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; reader-tests.scm (use utils) (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-all))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/compiler-tests.scm�������������������������������������������������������������0000644�0001750�0001750�00000025512�13052302367�017636� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; compiler-tests.scm (import foreign) (use srfi-4) ;; 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))) ;; test hiding of unexported toplevel variables (module foo (bar) (import scheme chicken) (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 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)))) ;;; 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\"); }") (module foo () (import chicken scheme foreign) ; "chicken" includes an export for "void" (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 chicken scheme foreign) (define-external (blabla (int a) (c-string b) (int c) (int d) (c-string e) (int f)) int f) (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))))) ;; 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. #+64bit (assert (= #xAB54A98CEB1F0AD2 ((foreign-lambda* unsigned-integer64 ((unsigned-integer64 x)) "C_return(x);") #xAB54A98CEB1F0AD2))) ;; #1059: foreign vector types use wrong lolevel accessors, causing ;; paranoid DEBUGBUILD assertions to fail. (define-syntax srfi-4-vector-length (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" 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" 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" 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 (= 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) (: 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)) ) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/syntax-tests.scm���������������������������������������������������������������0000644�0001750�0001750�00000070751�13052302367�017357� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; syntax-tests.scm - various macro tests (use extras) (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)) ;; 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 "#%void" (symbol->string '#%void)) (t "foo#bar" (symbol->string (strip-syntax 'foo#bar))) (t "#%void" (symbol->string (strip-syntax '#%void))) ;;; 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 (only chicken assert)) ((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 (only chicken assert setter)) (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 c:)) (c:define-values (a b c) (values 1 2 3)) ) (module prefixed-self-reference2 () (import scheme (prefix chicken 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) (import (prefix scheme s.) (prefix chicken 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 extras) (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)))) ;; Literal quotation of a symbol, injected or not, should always result in that symbol (module ir-se-test (run) (import chicken scheme) (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) (reexport (only scheme define))) (module m0b () (import chicken) (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 ())) ) |# ;;; 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) ;;; Internal hash-prefixed names shouldn't work within modules (module one (always-one) (import scheme) (define (always-one) 1)) (f (eval '(module two () (import scheme) (define (always-two) (+ (one#always-one) 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"))) ;;; 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 error)) (define (+ . _) (error "failed."))) (import foonumbers) (define-syntax foo (er-macro-transformer (lambda (x r c) `(print ,(+ (cadr x) 1))))) (foo 3) ;; #578: "use" with import-specifier has no effect for internal modules on csi's top-level (use (prefix srfi-1 list-)) take ;; #805: case-lambda is unhygienic (as well as ensure, see 4706afb4 and bc5cc698) (module case-lambda-and-ensure-hygiene () (import (prefix chicken c/) (prefix scheme s/)) (c/case-lambda ((a) a)) (c/ensure s/even? 2)) ;; #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 chicken scheme) (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 chicken scheme) (define-syntax strip-syntax-on-* (ir-macro-transformer (lambda (e r c) '(quote *))))) (import rename-builtins) (assert (eq? '* (strip-syntax-on-*))) ;; #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))) ;; 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)) �����������������������chicken-4.12.0/tests/test-irregex.scm���������������������������������������������������������������0000644�0001750�0001750�00000053250�13052302367�017306� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;: test-irregex.scm (use extras irregex) (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 (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) (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-end) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/import-tests.scm���������������������������������������������������������������0000644�0001750�0001750�00000000671�13052302315�017326� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; import-tests.scm (require-library (srfi 4)) (module m1 () (import scheme (only srfi-4 u8vector?)) u8vector?) (print "expect warning ...") (assert (handle-exceptions ex #t (eval ' (module m2 () (import scheme chicken (only (srfi 4) u8vector?)) s8vector?)) #f)) (module m3 () (import scheme (rename (srfi 4) (u8vector? u8v?))) u8v?) (module m4 () (import scheme chicken) (require-extension (prefix (srfi 4) s4:)) s4:f32vector) �����������������������������������������������������������������������chicken-4.12.0/tests/reexport-m4.scm����������������������������������������������������������������0000644�0001750�0001750�00000000373�13052302315�017041� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; export syntax that refers to reexported syntax (reexport-test-2.scm) (module reexport-m4 (baz) (import chicken scheme) (use reexport-m3) (reexport reexport-m3) (define-syntax baz (ir-macro-transformer (lambda (e i c) `(foo))))) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/test-finalizers.scm������������������������������������������������������������0000644�0001750�0001750�00000002567�13052302315�020005� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; test-finalizers.scm (use extras) (##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". (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-4.12.0/tests/pp-test.scm��������������������������������������������������������������������0000644�0001750�0001750�00000000765�13052302315�016254� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; pp-test.scm (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-4.12.0/tests/posix-tests.scm����������������������������������������������������������������0000644�0001750�0001750�00000005255�13052302315�017161� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(use files posix lolevel) (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 (setenv "with\x00embedded-NUL" "blabla")) (assert-error (setenv "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" '("-n" "-e" "(write 'err (current-error-port)) (write 'ok)")) (assert (equal? 'ok (read in)))) (receive (in out pid err) (process* "../csi" '("-n" "-e" "(write 'err (current-error-port)) (write 'ok)")) (assert (equal? 'ok (read in))) (assert (equal? 'err (read err)))) (let ((tnpfilpn (create-temporary-file))) (let ((tmpfilno (file-open tnpfilpn (+ open/rdwr open/creat))) (data "abcde") (size 5)) (file-write tmpfilno data) (let ((mmap (map-file-to-memory #f size prot/read (+ map/shared map/file) tmpfilno)) (str (make-string size))) (move-memory! (memory-mapped-file-pointer mmap) str size) (assert (blob=? (string->blob data) (string->blob str))) (unmap-file-from-memory mmap) (file-close tmpfilno) (delete-file* tnpfilpn)))) (let* ((tmp-dir (create-temporary-directory)) (tmp-dot (make-pathname (list tmp-dir "foo" "bar") ".baz"))) (create-directory tmp-dot 'recursively) (assert (directory-exists? tmp-dot)) (delete-directory tmp-dir 'recursively) (assert (not (directory-exists? tmp-dot))) (assert (not (directory-exists? tmp-dir)))) ;; unsetenv (setenv "FOO" "bar") (assert (equal? (get-environment-variable "FOO") "bar")) (unsetenv "FOO") (assert (not (get-environment-variable "FOO"))) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/reexport-m1.scm����������������������������������������������������������������0000644�0001750�0001750�00000000251�13052302315�017031� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; module re-exporting from core module (module reexport-m1 () (import scheme chicken) (require-library srfi-1 srfi-13) (reexport (only srfi-1 cons*) srfi-13)) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/scrutiny.expected��������������������������������������������������������������0000644�0001750�0001750�00000025364�13052302367�017570� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� Note: in local procedure `c', in local procedure `b', in toplevel procedure `a': expected a value of type boolean in conditional, but was given a value of type `number' which is always true: (if x 1 2) Note: in toplevel procedure `b': expected a value of type boolean in conditional, but was given a value of type `true' which is always true: (if x 1 2) Warning: in toplevel procedure `foo': branches in conditional expression differ in the number of results: (if x (values 1 2) (values 1 2 (+ (+ ...)))) Warning: at toplevel: (scrutiny-tests.scm:19) in procedure call to `bar', expected argument #2 of type `number' but was given an argument of type `symbol' Warning: at toplevel: (scrutiny-tests.scm:21) in procedure call to `pp', expected 1 argument but was given 0 arguments Warning: at toplevel: (scrutiny-tests.scm:23) expected a single result in argument #1 of procedure call `(print (cpu-time))', but received 2 results Warning: at toplevel: (scrutiny-tests.scm:24) expected a single result in argument #1 of procedure call `(print (values))', but received zero results Warning: at toplevel: (scrutiny-tests.scm:27) in procedure call to `x', expected a value of type `(procedure () *)' but was given a value of type `fixnum' Warning: at toplevel: (scrutiny-tests.scm:29) in procedure call to `+', expected argument #1 of type `number' but was given an argument of type `symbol' Warning: at toplevel: (scrutiny-tests.scm:29) in procedure call to `+', expected argument #2 of type `number' but was given an argument of type `symbol' Warning: at toplevel: assignment of value of type `fixnum' to toplevel variable `car' does not match declared type `(forall (a) (procedure car ((pair a *)) a))' Warning: at toplevel: expected a single result in `let' binding of `g10', but received 2 results Warning: at toplevel: in procedure call to `g10', expected a value of type `(procedure () *)' but was given a value of type `fixnum' Note: in toplevel procedure `foo': expected a value of type boolean in conditional, but was given a value of type `(procedure bar () *)' which is always true: (if bar 3 (##core#undefined)) Warning: in toplevel procedure `foo2': (scrutiny-tests.scm:58) in procedure call to `string-append', expected argument #1 of type `string' but was given an argument of type `number' Warning: at toplevel: (scrutiny-tests.scm:66) in procedure call to `foo3', expected argument #1 of type `string' but was given an argument of type `fixnum' Warning: in toplevel procedure `foo4': (scrutiny-tests.scm:71) in procedure call to `+', expected argument #1 of type `number' but was given an argument of type `string' Warning: in toplevel procedure `foo5': (scrutiny-tests.scm:77) in procedure call to `+', expected argument #1 of type `number' but was given an argument of type `string' Warning: in toplevel procedure `foo6': (scrutiny-tests.scm:83) in procedure call to `+', expected argument #1 of type `number' but was given an argument of type `string' Warning: at toplevel: (scrutiny-tests.scm:90) in procedure call to `+', expected argument #1 of type `number' but was given an argument of type `string' Warning: in toplevel procedure `foo10': (scrutiny-tests.scm:104) in procedure call to `foo9', expected argument #1 of type `string' but was given an argument of type `number' Warning: in toplevel procedure `foo10': (scrutiny-tests.scm:105) in procedure call to `+', expected argument #1 of type `number' but was given an argument of type `string' Note: in toplevel procedure `foo10': expression returns a result of type `string' but is declared to return `pair', which is not compatible Warning: in toplevel procedure `foo10': (scrutiny-tests.scm:109) in procedure call to `string-append', expected argument #1 of type `string' but was given an argument of type `pair' Warning: in toplevel procedure `foo10': expression returns 2 values but is declared to have a single result Warning: in toplevel procedure `foo10': expression returns zero values but is declared to have a single result of type `*' Warning: in toplevel procedure `foo10': (scrutiny-tests.scm:112) in procedure call to `*', expected argument #1 of type `number' but was given an argument of type `string' Warning: in toplevel procedure `foo#blabla': (scrutiny-tests.scm:137) in procedure call to `+', expected argument #2 of type `number' but was given an argument of type `symbol' Warning: at toplevel: use of deprecated `deprecated-procedure' Warning: at toplevel: use of deprecated `another-deprecated-procedure' - consider `replacement-procedure' Warning: at toplevel: (scrutiny-tests.scm:162) in procedure call to `apply1', expected argument #2 of type `(list-of number)' but was given an argument of type `(list symbol fixnum fixnum)' Warning: at toplevel: (scrutiny-tests.scm:163) in procedure call to `apply1', expected argument #2 of type `(list-of number)' but was given an argument of type `(list symbol fixnum fixnum)' Note: at toplevel: (scrutiny-tests.scm:176) in procedure call to `fixnum?', the predicate is called with an argument of type `fixnum' and will always return true Note: at toplevel: (scrutiny-tests.scm:184) in procedure call to `symbol?', the predicate is called with an argument of type `(or char string)' and will always return false Note: at toplevel: (scrutiny-tests.scm:188) in procedure call to `char-or-string?', the predicate is called with an argument of type `fixnum' and will always return false Note: at toplevel: (scrutiny-tests.scm:189) in procedure call to `symbol?', the predicate is called with an argument of type `(or char string)' and will always return false Note: at toplevel: (scrutiny-tests.scm:190) in procedure call to `string?', the predicate is called with an argument of type `fixnum' and will always return false Note: at toplevel: (scrutiny-tests.scm:194) in procedure call to `symbol?', the predicate is called with an argument of type `char' and will always return false Note: at toplevel: (scrutiny-tests.scm:195) in procedure call to `string?', the predicate is called with an argument of type `symbol' and will always return false Note: at toplevel: (scrutiny-tests.scm:199) in procedure call to `symbol?', the predicate is called with an argument of type `(or char string)' and will always return false Note: at toplevel: (scrutiny-tests.scm:200) in procedure call to `string?', the predicate is called with an argument of type `symbol' and will always return false Warning: at toplevel: (scrutiny-tests.scm:204) in procedure call to `f', expected argument #1 of type `pair' but was given an argument of type `null' Warning: at toplevel: (scrutiny-tests.scm:206) in procedure call to `f', expected argument #1 of type `null' but was given an argument of type `(list fixnum)' Warning: at toplevel: (scrutiny-tests.scm:208) in procedure call to `f', expected argument #1 of type `list' but was given an argument of type `(pair fixnum fixnum)' Warning: in toplevel procedure `vector-ref-warn1': (scrutiny-tests.scm:214) in procedure call to `vector-ref', index -1 out of range for vector of length 3 Warning: in toplevel procedure `vector-ref-warn2': (scrutiny-tests.scm:216) in procedure call to `vector-ref', index 3 out of range for vector of length 3 Warning: in toplevel procedure `vector-ref-warn3': (scrutiny-tests.scm:217) in procedure call to `vector-ref', index 4 out of range for vector of length 3 Warning: in toplevel procedure `vector-ref-standard-warn1': (scrutiny-tests.scm:220) in procedure call to `vector-ref', expected argument #2 of type `fixnum' but was given an argument of type `symbol' Warning: in toplevel procedure `vector-set!-warn1': (scrutiny-tests.scm:221) in procedure call to `vector-set!', index -1 out of range for vector of length 3 Warning: in toplevel procedure `vector-set!-warn2': (scrutiny-tests.scm:222) in procedure call to `vector-set!', index 3 out of range for vector of length 3 Warning: in toplevel procedure `vector-set!-warn3': (scrutiny-tests.scm:223) in procedure call to `vector-set!', index 4 out of range for vector of length 3 Warning: in toplevel procedure `vector-set!-standard-warn1': (scrutiny-tests.scm:226) in procedure call to `vector-set!', expected argument #2 of type `fixnum' but was given an argument of type `symbol' Warning: in toplevel procedure `list-ref-warn1': (scrutiny-tests.scm:232) in procedure call to `list-ref', index -1 is negative, which is never valid Warning: in toplevel procedure `list-ref-warn2': (scrutiny-tests.scm:235) in procedure call to `list-ref', index -1 is negative, which is never valid Warning: in toplevel procedure `list-ref-warn3': (scrutiny-tests.scm:238) in procedure call to `list-ref', index -1 is negative, which is never valid Warning: in toplevel procedure `list-ref-warn4': (scrutiny-tests.scm:240) in procedure call to `list-ref', index 3 out of range for proper list of length 3 Warning: in toplevel procedure `list-ref-warn5': (scrutiny-tests.scm:246) in procedure call to `list-ref', index 4 out of range for proper list of length 3 Warning: in toplevel procedure `list-ref-standard-warn1': (scrutiny-tests.scm:275) in procedure call to `list-ref', expected argument #2 of type `fixnum' but was given an argument of type `symbol' Warning: in toplevel procedure `list-ref-standard-warn2': (scrutiny-tests.scm:276) in procedure call to `list-ref', expected argument #2 of type `fixnum' but was given an argument of type `symbol' Warning: in toplevel procedure `list-ref-standard-warn3': (scrutiny-tests.scm:278) in procedure call to `list-ref', expected argument #2 of type `fixnum' but was given an argument of type `symbol' Warning: in toplevel procedure `list-ref-standard-warn4': (scrutiny-tests.scm:279) in procedure call to `list-ref', expected argument #2 of type `fixnum' but was given an argument of type `symbol' Warning: in toplevel procedure `list-ref-type-warn1': (scrutiny-tests.scm:283) in procedure call to `add1', expected argument #1 of type `number' but was given an argument of type `symbol' Warning: in toplevel procedure `list-ref-type-warn2': (scrutiny-tests.scm:285) in procedure call to `add1', expected argument #1 of type `number' but was given an argument of type `symbol' Warning: in toplevel procedure `list-ref-type-warn3': (scrutiny-tests.scm:289) in procedure call to `add1', expected argument #1 of type `number' but was given an argument of type `symbol' Warning: in toplevel procedure `append-result-type-warn1': (scrutiny-tests.scm:301) in procedure call to `add1', expected argument #1 of type `number' but was given an argument of type `symbol' Warning: in toplevel procedure `append-result-type-warn2': (scrutiny-tests.scm:306) in procedure call to `add1', expected argument #1 of type `number' but was given an argument of type `symbol' Warning: redefinition of standard binding: car ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/match-test.scm�����������������������������������������������������������������0000644�0001750�0001750�00000007367�13040667210�016743� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(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") �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/private-repository-test.scm����������������������������������������������������0000644�0001750�0001750�00000000640�13052302315�021514� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; private-repository-test.scm (use files 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* (repository-path) #t))) (define dir (normalize-pathname (read-symbolic-link* (car (command-line-arguments)) #t))) (print (list dir repo)) (assert (string=? repo dir)) ������������������������������������������������������������������������������������������������chicken-4.12.0/tests/runtests.sh��������������������������������������������������������������������0000755�0001750�0001750�00000041155�13052302367�016407� 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` 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` fi OS_NAME=`uname -s` 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 rm -fr test-repository mkdir -p test-repository # copy files into test-repository (by hand to avoid calling `chicken-install'): for x in setup-api.so setup-api.import.so setup-download.so \ setup-download.import.so chicken.import.so lolevel.import.so \ srfi-1.import.so srfi-4.import.so data-structures.import.so \ ports.import.so files.import.so posix.import.so \ srfi-13.import.so srfi-69.import.so extras.import.so \ irregex.import.so srfi-14.import.so tcp.import.so \ foreign.import.so srfi-18.import.so \ utils.import.so csi.import.so irregex.import.so types.db; do cp ../$x test-repository done CHICKEN_REPOSITORY=${TEST_DIR}/test-repository CHICKEN=${TEST_DIR}/../chicken CHICKEN_INSTALL=${TEST_DIR}/../chicken-install CHICKEN_UNINSTALL=${TEST_DIR}/../chicken-uninstall ASMFLAGS= FAST_OPTIONS="-O5 -d0 -b -disable-interrupts" COMPILE_OPTIONS="-compiler ${TEST_DIR}/../chicken -v -I${TEST_DIR}/.. -L${TEST_DIR}/.. -rpath ${TEST_DIR}/.. -include-path ${TEST_DIR}/.." TEST_DIR_SEXPR=`../csi -n -include-path .. -e "(use posix) (write (current-directory))"` SETUP_PREFIX="-e (use files setup-api)" SETUP_PREFIX="${SETUP_PREFIX} -e (register-program \"csc\" (make-pathname ${TEST_DIR_SEXPR} \"../csc\"))" SETUP_PREFIX="${SETUP_PREFIX} -e (register-program \"chicken\" (make-pathname ${TEST_DIR_SEXPR} \"../chicken\"))" SETUP_PREFIX="${SETUP_PREFIX} -e (register-program \"csi\" (make-pathname ${TEST_DIR_SEXPR} \"../csi\"))" TYPESDB=../types.db cp $TYPESDB test-repository/types.db time=time compile="../csc -types ${TYPESDB} -ignore-repository ${COMPILE_OPTIONS} -o a.out" compile2="../csc -compiler $CHICKEN -v -I${TEST_DIR}/.. -L${TEST_DIR}/.. -include-path ${TEST_DIR}/.." compile_s="../csc -s -types ${TYPESDB} -ignore-repository ${COMPILE_OPTIONS} -v -I${TEST_DIR}/.. -L${TEST_DIR}/.. -include-path ${TEST_DIR}/.." interpret="../csi -n -include-path ${TEST_DIR}/.." # 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(1), # etc. NOTE `time' must be called from a variable here. set +e $time true >/dev/null 2>/dev/null if [ $? -eq 127 ]; then time=; fi set -e rm -f *.exe *.so *.o *.import.* a.out ../foo.import.* echo "======================================== version tests ..." $interpret -s version-tests.scm echo "======================================== compiler tests ..." $compile compiler-tests.scm ./a.out echo "======================================== compiler inlining tests ..." $compile inlining-tests.scm -optimize-level 3 ./a.out echo "======================================== scrutiny tests ..." $compile typematch-tests.scm -specialize -no-warnings ./a.out $compile scrutiny-tests.scm -analyze-only -verbose 2>scrutiny.out $compile specialization-tests.scm -analyze-only -verbose -specialize 2>specialization.out # these are sensitive to gensym-names, so make them optional if test \! -f scrutiny.expected; then cp scrutiny.out scrutiny.expected fi if test \! -f specialization.expected; then cp specialization.out specialization.expected fi diff $DIFF_OPTS scrutiny.expected scrutiny.out diff $DIFF_OPTS specialization.expected specialization.out $compile scrutiny-tests-2.scm -A -scrutinize -analyze-only 2>scrutiny-2.out -verbose # this is sensitive to gensym-names, so make it optional if test \! -f scrutiny-2.expected; then cp scrutiny-2.out scrutiny-2.expected fi diff $DIFF_OPTS scrutiny-2.expected scrutiny-2.out $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-type-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 -feature chicken-bootstrap -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 $compile fft.scm -O2 -local -specialize -debug x -d0 -disable-interrupts -b -o fft2 -specialize echo "normal:" $time ./fft1 1000 7 echo "specialized:" $time ./fft2 1000 7 echo "======================================== callback tests ..." $compile 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 "*** Skipping \"feeley-dynwind\" for now ***" # $interpret -s feeley-dynwind.scm 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 foo-usage)" -e "(assert (equal? '(1) (foo-user)))" $compile_s meta-syntax-test.scm -j foo $compile_s foo.import.scm $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 foo-usage)" -e "(assert (equal? '(1) (foo-user)))" 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 '(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.log diff $DIFF_OPTS r4rstest.out r4rstest.log 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 (compiled) ..." $compile module-tests-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 "======================================== hash-table tests ..." $interpret -s hash-table-tests.scm echo "======================================== port tests ..." $interpret -s port-tests.scm echo "======================================== fixnum tests ..." $compile fixnum-tests.scm ./a.out echo "======================================== string->number tests ..." $compile numbers-string-conversion-tests.scm ./a.out echo "======================================== srfi-4 tests ..." $interpret -s srfi-4-tests.scm echo "======================================== srfi-13 tests ..." $interpret -s srfi-13-tests.scm echo "======================================== srfi-14 tests ..." $compile srfi-14-tests.scm ./a.out echo "======================================== condition tests ..." $interpret -s condition-tests.scm echo "======================================== srfi-18 tests ..." $interpret -s simple-thread-test.scm $interpret -s mutex-test.scm $compile srfi-18-signal-test.scm ./a.out 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 rm -fr tmpdir mkdir tmpdir touch tmpdir/.dotfile echo "======================================== find-files tests ..." $interpret -bnq test-find-files.scm if test -z "$MSYSTEM"; then ln -s /usr tmpdir/symlink fi $interpret -R posix -e '(delete-directory "tmpdir" #t)' echo "======================================== signal tests ..." $compile signal-tests.scm ./a.out 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 ../utils.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 # Currently disabled, because this may leave 1 symbol unreclaimed. ./a.out -:w || echo "*** FAILED ***" 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 "======================================== 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 "======================================== 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 rm -fr rev-app rev-app-2 reverser/*.import.* reverser/*.so echo "======================================== reinstall tests" CHICKEN_REPOSITORY=$CHICKEN_REPOSITORY $CHICKEN_UNINSTALL -force reverser CHICKEN_REPOSITORY=$CHICKEN_REPOSITORY CSC_OPTIONS=$COMPILE_OPTIONS \ CSI_OPTIONS=$SETUP_PREFIX $CHICKEN_INSTALL -t local -l $TEST_DIR \ -csi ${TEST_DIR}/../csi reverser:1.0 CHICKEN_REPOSITORY=$CHICKEN_REPOSITORY $interpret -bnq rev-app.scm 1.0 CHICKEN_REPOSITORY=$CHICKEN_REPOSITORY CSC_OPTIONS=$COMPILE_OPTIONS \ CSI_OPTIONS=$SETUP_PREFIX $CHICKEN_INSTALL -t local -l $TEST_DIR \ -reinstall -force -csi ${TEST_DIR}/../csi CHICKEN_REPOSITORY=$CHICKEN_REPOSITORY $interpret -bnq rev-app.scm 1.0 if test $OS_NAME != AIX -a $OS_NAME != SunOS -a $OS_NAME != GNU; then echo "======================================== deployment tests" mkdir rev-app TARGET_LIB_PATH=${TEST_DIR}/.. CHICKEN_REPOSITORY=$CHICKEN_REPOSITORY CSC_OPTIONS=$COMPILE_OPTIONS \ CSI_OPTIONS=$SETUP_PREFIX $CHICKEN_INSTALL -csi ${TEST_DIR}/../csi -t local -l $TEST_DIR reverser TARGET_LIB_PATH=${TEST_DIR}/.. CHICKEN_REPOSITORY=$CHICKEN_REPOSITORY CSC_OPTIONS=$COMPILE_OPTIONS \ CSI_OPTIONS=$SETUP_PREFIX $compile2 -deploy rev-app.scm TARGET_LIB_PATH=${TEST_DIR}/.. CHICKEN_REPOSITORY=$CHICKEN_REPOSITORY CSC_OPTIONS=$COMPILE_OPTIONS \ CSI_OPTIONS=$SETUP_PREFIX $CHICKEN_INSTALL -csi ${TEST_DIR}/../csi -deploy -prefix rev-app -t local -l $TEST_DIR reverser unset LD_LIBRARY_PATH DYLD_LIBRARY_PATH CHICKEN_REPOSITORY # An absolute path is required on NetBSD with $ORIGIN, hence `pwd` `pwd`/rev-app/rev-app 1.1 mv rev-app rev-app-2 `pwd`/rev-app-2/rev-app 1.1 else echo "Skipping deployment tests: deployment is currently unsupported on your platform." fi echo "======================================== done." �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/reexport-m3.scm����������������������������������������������������������������0000644�0001750�0001750�00000000342�13040667210�017041� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; export syntax with implicit value export (reexport-test-2.scm) (module reexport-m3 ((foo bar)) (import chicken scheme) (define (bar) 1) (define-syntax foo (ir-macro-transformer (lambda (e i c) `(bar))))) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/numbers-string-conversion-tests.scm��������������������������������������������0000644�0001750�0001750�00000022151�13052302315�023153� 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). ;;; (use srfi-1 ports) (define the-nan (fp/ 0.0 0.0)) (define pos-inf (fp/ 1.0 0.0)) (define neg-inf (fp/ -1.0 0.0)) (define neg-zero (/ -1.0 +inf.0)) (define (nan? x) (and (number? x) (not (= x x)))) (define total-errors 0) (define (check-string-against-values! str . possible-values) (define (none? pred) (not (any pred possible-values))) (let ((res (string->number str))) (cond ((none? (lambda (value) (or (and (not (string? value)) (equal? res value)) (and res (nan? res) (or (and value (nan? value))))))) (display "PARSE ERROR ") (write (cons str possible-values)) (display " => ") (write res) (newline) (set! total-errors (+ total-errors 1))) ((let ((re-str (and res (number->string res)))) (and (none? (lambda (value) (or (and res (string=? re-str str)) (and (not res) (not value)) (and res (string? value) (string=? re-str value))))) re-str)) => (lambda (re-str) (display "SERIALIZATION ERROR ") (write (cons str possible-values)) (display " => ") (write re-str) (newline) (set! total-errors (+ total-errors 1)))) ((handle-exceptions exn (and res exn) (let ((re-read (with-input-from-string str read))) (and (not (symbol? re-read)) (not (eof-object? re-read)) (or (not res) (and (not (and (nan? res) (nan? re-read))) (not (equal? res re-read)))) re-read))) => (lambda (obj) (display (if (condition? obj) "READBACK EXN ERROR " "READBACK ERROR ")) (write (cons str possible-values)) (display " => ") (if (condition? obj) (write ((condition-property-accessor 'exn 'message #f) obj)) (write obj)) (newline) (set! total-errors (+ total-errors 1)))) ((let ((written&read (with-input-from-string (with-output-to-string (lambda () (write res))) read))) (and (not (or (and (nan? res) (nan? written&read)) (equal? res written&read))) written&read)) => (lambda (read-back) (display "R/W VARIANCE ERROR ") (write (cons str possible-values)) (display " => ") (write read-back) (newline) (set! total-errors (+ total-errors 1)))) (else (display "OK ") (write (cons str possible-values)) (newline))))) (define-syntax test-numbers (syntax-rules () ((_ (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) (error total-errors)))))) (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, negative zero" ("+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) ;; 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") ("-0.0" neg-zero "-.0" "-0.") ;; These used to be accepted but are invalid ("+nan" #f) ("+inf" #f) ("-inf" #f) ("nan.0" #f) ("inf.0" #f) "Fractions" ("1/2" (/ 1 2) "0.5" ".5" "500.0e-3") ("#e1/2" #f) ("10/2" 5.0 "5.0" "5.") ("#i10/2" 5.0 "5.0" "5.") ("-1/2" (- (/ 1 2)) "-0.5" "-.5" "-500.0e-3") ("1/-2" #f) ("10/0" +inf.0 "+inf.0") ("0/10" 0.0 "0.0" "0.") ("#e0/10" 0 "0") ("#e1#/2" 5 "5") ("#e1/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") ("#i3/2" (/ 3.0 2.0) "1.5") ("1#/#" #f) ("1/" #f) ("1/+" #f) ("+/1" #f) ("/1" #f) ("/" #f) ("#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 (but isn't as pretty) ;("#i1/0" #f) ;("#i-1/0" #f) ;("#i0/0" #f) "Some invalid complex numbers syntax (not supported at all)" ("2i" #f) ("+-i" #f) ("i" #f) ("1+2i1" #f) ("1+2" #f) ("1#+#i" #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" ("#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") ("#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") ) ;; #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-4.12.0/tests/test-gc-hooks.scm��������������������������������������������������������������0000644�0001750�0001750�00000001163�13052302315�017340� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; test-gc-hooks.scm #> 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-4.12.0/tests/reexport-m6.scm����������������������������������������������������������������0000644�0001750�0001750�00000000073�13040667210�017045� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(module reexport-m6 () (reexport (prefix reexport-m5 f:))) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/feeley-dynwind.scm�������������������������������������������������������������0000644�0001750�0001750�00000003065�13052302315�017577� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; by Marc Feeley ; ; This fails. Currently to heavy stuff to debug (use srfi-18) (define (dw tag thunk) (dynamic-wind (lambda () (pp (list 'before tag (current-thread)))) thunk (lambda () (pp (list 'after tag (current-thread)))))) (define c1 #f) (define c2 #f) (define c3 #f) (define c4 #f) (define (f) (call/cc (lambda (k1) (set! c1 k1) (dw 111 (lambda () (call/cc (lambda (k2) (set! c2 k2) (dw 222 (lambda () (call/cc (lambda (k3) (set! c3 k3) (dw 333 (lambda () (call/cc (lambda (k4) (set! c4 k4) ; (xxx) ;; error (pp 'inner))))))))))))))) (pp (list 'done (current-thread)))) (thread-join! (thread-start! (make-thread (lambda () (f))))) (thread-join! (thread-start! (make-thread (lambda () (c4 'dummy))))) (thread-join! (thread-start! (make-thread (lambda () (c1 'dummy))))) ;; expected result: ;; (before 111 #<thread #2>) ;; (before 222 #<thread #2>) ;; (before 333 #<thread #2>) ;; inner ;; (after 333 #<thread #2>) ;; (after 222 #<thread #2>) ;; (after 111 #<thread #2>) ;; (done #<thread #2>) ;; (before 111 #<thread #3>) ;; (before 222 #<thread #3>) ;; (before 333 #<thread #3>) ;; (after 333 #<thread #3>) ;; (after 222 #<thread #3>) ;; (after 111 #<thread #3>) ;; (done #<thread #3>) ;; (done #<thread #4>) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/port-tests.scm�����������������������������������������������������������������0000644�0001750�0001750�00000030200�13052302315�016767� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(require-extension srfi-1 ports utils srfi-4 extras tcp posix) (include "test.scm") (test-begin) (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*))))) (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)))) ;; fill buffers (read-all "compiler.scm") (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)) (use srfi-18) (define (read-tcp-line/pos str limit) (let ((pn 8079)) (thread-start! (lambda () (let ((L (tcp-listen pn))) (let-values (((i o) (tcp-accept L))) (display str o) (close-input-port i) (close-output-port o) (tcp-close L))))) (let-values (((i o) (let lp ((n 10)) (if (zero? n) (error "timeout connecting to server") (condition-case (tcp-connect "localhost" pn) ((exn i/o net) (thread-sleep! 0.1) (lp (- n 1)))))))) (let ((rc (read-line/pos i limit))) (close-input-port i) (close-output-port o) rc)))) (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)) ;; Disabled because currently fragile if port is already taken by ;; another service. ;; Uncomment locally to run. #; (test-group "read-line TCP port position tests" (test-port-position read-tcp-line/pos)) ;;; (test-end) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/mutex-test.scm�����������������������������������������������������������������0000644�0001750�0001750�00000011325�13052302315�016771� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; mutex-test.scm (require-extension srfi-18) (define test-has-failed #f) (define (test-error x . more) (set! test-has-failed #t) (apply print x more)) (define (test-exit x) (set! test-has-failed #t) x) #| The mutex data structure. Slot Type Meaning 1 * name 2 (or false (struct thread)) owner 3 (list-of (struct thread)) waiting thread 4 boolean abandoned 5 boolean blocked |# (define-record-printer (mutex x out) (format out "<mutex ~a ~a~a ~a (owner ~a) waiting ~a>" (mutex-name x) (if (##sys#slot x 5) "LOCKED" "FREE") (if (##sys#slot x 4) "/ABANDONED" "") (mutex-state x) (if (##sys#slot x 2) (##sys#slot x 2) "none") (##sys#slot x 3) )) (define (dbg l v) (format (current-error-port) "D ~a: ~a\n" l v) v) (define mux1 (make-mutex 'test-lock-fail-with-timeout)) (mutex-lock! mux1) (define owner1 (mutex-state mux1)) (thread-join! (thread-start! (lambda () (assert (eq? (mutex-lock! mux1 0.1) #f)) (when (memq (current-thread) (##sys#slot mux1 3)) (print "Got " mux1 " found this thread still waiting!\n") (test-exit 1)) (when (not (eq? (mutex-state mux1) owner1)) (print "Got " mux1 " state " (mutex-state mux1) " expected " owner1 "\n") (test-exit 1))))) (set! mux1 (make-mutex 'unlock-leaves-no-memory-leak)) (mutex-lock! mux1) (mutex-unlock! mux1) (when (not (eq? (##sys#slot mux1 2) #f)) (test-error "thread still held in mutex after unlock: " mux1)) ;;============ ; Make a locked mutex (define mux (make-mutex 'foo)) (mutex-lock! mux #f #f) ;; Have a thread waiting for it. (define t1 (thread-start! (lambda () (mutex-lock! mux #f #f) (when (not (eq? (mutex-state mux) 'not-owned)) (print "Got " mux " state " (mutex-state mux) " expected " 'not-owned "\n") (test-exit 1))))) ;; Give it time to actually wait. (thread-yield!) ;; Let it lock the mux (mutex-unlock! mux) (thread-yield!) (or (eq? (mutex-state mux) 'not-owned) (test-error "Expected 'not-owned got " (mutex-state mux) mux)) (set! t1 (thread-start! (lambda () (mutex-lock! mux) (when (not (eq? (mutex-state mux) (current-thread))) (print "Got " mux " state " (mutex-state mux) " expected " (current-thread) "\n") (test-exit 1))))) (mutex-unlock! mux) (thread-yield!) ;; check that it is properly abandoned (when (not (handle-exceptions ex (abandoned-mutex-exception? ex) (and (mutex-lock! mux #f) #f))) (print "Abandoned Mutex not abandoned " mux "\n") (test-exit 1)) (mutex-unlock! mux) (mutex-lock! mux) (when (not (eq? (mutex-state mux) (current-thread))) (print "Got " mux " state " (mutex-state mux) " expected " (current-thread) "\n") (test-exit 1)) (cond-expand (dribble (define-for-syntax count 0) (define-syntax trail (lambda (form r c) ; doesn't bother much with renaming (let ((loc (cadr form)) (expr (caddr form))) (set! count (add1 count)) `(,(r 'begin) (print "(" ,count ") " ,loc ": " ',expr ": get: " (##sys#slot get-mutex 5) ", put: " (##sys#slot put-mutex 5)) (let ((xxx ,expr)) (print " (" ,count ") " ,loc ": " ',expr ": get: " (##sys#slot get-mutex 5) ", put: " (##sys#slot put-mutex 5)) xxx) ) )))) (else (define-syntax trail (syntax-rules () ((_ loc expr) expr))))) (define (tprint . x) (printf "~a " (current-milliseconds)) (apply print x)) (define (make-empty-mailbox) (let ((put-mutex (make-mutex)) ; allow put! operation (get-mutex (make-mutex)) (cell #f)) (define (put! obj) (trail 'put! (mutex-lock! put-mutex #f #f)) ; prevent put! operation (set! cell obj) (trail 'put! (mutex-unlock! get-mutex)) ) (define (get!) (trail 'get! (mutex-lock! get-mutex #f #f)) ; wait until object in mailbox (let ((result cell)) (set! cell #f) ; prevent space leaks (trail 'get! (mutex-unlock! put-mutex)) ; allow put! operation result)) (trail 'main (mutex-lock! get-mutex #f #f)) ; prevent get! operation (lambda (print) (case print ((put!) put!) ((get!) get!) (else (error "unknown message")))))) (define (mailbox-put! m obj) ((m 'put!) obj)) (define (mailbox-get! m) ((m 'get!))) ;(tprint 'start) (define mb (make-empty-mailbox)) (thread-start! (make-thread (lambda () (let lp () ;(print "1: get") (let ((x (mailbox-get! mb))) ;(tprint "read: " x) (assert x) (lp)))))) (thread-start! (make-thread (lambda () (thread-sleep! 1) ;(tprint 'put) ;(print "2: put") (mailbox-put! mb 'test) #;(print "2: endput")))) (thread-sleep! 3) ;(tprint 'exit) (if test-has-failed (exit 1) (exit 0)) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/environment-tests.scm����������������������������������������������������������0000644�0001750�0001750�00000003460�13052302315�020357� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; environment-tests.scm (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) (define baz 100) (module foo (bar) (import r5rs) (define (bar) 99)) (define foo-env (module-environment 'foo)) (define srfi-1-env (module-environment 'srfi-1)) (require-library srfi-1) (test-equal (eval '(bar) foo-env) 99) (test-error (eval 'baz foo-env)) (test-equal (eval '(xcons 1 2) srfi-1-env) '(2 . 1)) (test-error (eval 'baz srf-1-env)) (test-end) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/loopy-loop.scm�����������������������������������������������������������������0000644�0001750�0001750�00000052640�13052302315�016770� 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-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 (/ (random MAX_RAND) MAX_RAND) (/ (random MAX_RAND) MAX_RAND))) () () . rest)) ((in-random ((var) (n)) next . rest) (next ((tmp-n n)) ((var (random tmp-n) (random tmp-n))) () () () . rest)) ((in-random ((var) (n lo)) next . rest) (next ((tmp-n n) (tmp-lo lo)) ((var (+ tmp-lo (random tmp-n)) (+ tmp-lo (random 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 (random tmp-len)) (vector-ref tmp-vec (random 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-4.12.0/tests/sgrep.scm����������������������������������������������������������������������0000644�0001750�0001750�00000001373�13052302315�015774� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; sgrep.scm - grepping benchmark (use irregex extras utils posix srfi-1) (define big-string (read-all (optional (command-line-arguments) "compiler.scm"))) (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)) (scan-input-lines (lambda (line) (set! c (fx+ c 1)) ;(when (zero? (fxmod c 500)) (print* ".")) (when (irregex-search expr line) (set! h (fx+ h 1))) #f)) ;(newline) h)))))))) (define-syntax rx1 (syntax-rules () ((_) "\\((.*), (.*)\\)"))) (define-syntax rx2 (syntax-rules () ((_) '(: #\( (submatch (* any)) ", " (submatch (* any)))))) (bgrep 1 (rx1)) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/slatex.scm���������������������������������������������������������������������0000644�0001750�0001750�00000277523�13040667210�016175� 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-4.12.0/tests/square-functor.scm�������������������������������������������������������������0000644�0001750�0001750�00000000160�13040667210�017630� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; square-functor.scm (functor (square-functor (M (*))) * (import scheme M) (define (square x) (* x x))) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/test-glob.scm������������������������������������������������������������������0000644�0001750�0001750�00000002114�13040667210�016553� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; test-glob.scm - test glob-pattern -> regex translation (use irregex) (assert (irregex-match (##sys#glob->regexp "foo.bar") "foo.bar")) (assert (irregex-match (##sys#glob->regexp "foo*") "foo.bar")) (assert (irregex-match (##sys#glob->regexp "foo/*") "foo/bar")) (assert (not (irregex-match (##sys#glob->regexp "foo/*") "foo/bar/baz"))) (assert (irregex-match (##sys#glob->regexp "foo/*/*") "foo/bar/baz")) (assert (not (irregex-match (##sys#glob->regexp "foo/*") "foo/.bar"))) (assert (irregex-match (##sys#glob->regexp "*foo") "xyzfoo")) (assert (not (irregex-match (##sys#glob->regexp "*foo") ".foo"))) (assert (not (irregex-match (##sys#glob->regexp "*foo*") "a.fooxxx/yyy"))) (assert (irregex-match (##sys#glob->regexp "*foo*") "fooxxx")) (assert (irregex-match (##sys#glob->regexp "main.[ch]") "main.c")) (assert (irregex-match (##sys#glob->regexp "main.[ch]") "main.h")) (assert (not (irregex-match (##sys#glob->regexp "main.[ch]") "main.cpp"))) (assert (irregex-match (##sys#glob->regexp "main.[-c]") "main.h")) (assert (not (irregex-match (##sys#glob->regexp "main.[-h]") "main.h"))) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/reverser/����������������������������������������������������������������������0000755�0001750�0001750�00000000000�13052306551�016007� 5����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/reverser/tags/�����������������������������������������������������������������0000755�0001750�0001750�00000000000�13052306551�016745� 5����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/reverser/tags/1.0/�������������������������������������������������������������0000755�0001750�0001750�00000000000�13052306551�017243� 5����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/reverser/tags/1.0/reverser.setup�����������������������������������������������0000644�0001750�0001750�00000000037�13040667210�022161� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(standard-extension 'reverser) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/reverser/tags/1.0/reverser.meta������������������������������������������������0000644�0001750�0001750�00000000003�13040667210�021740� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������() �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/reverser/tags/1.0/reverser.scm�������������������������������������������������0000644�0001750�0001750�00000000511�13052302315�021573� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(module reverser * (import scheme chicken) (use srfi-13) (define rev-version 1.0) (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-4.12.0/tests/reverser/tags/1.1/�������������������������������������������������������������0000755�0001750�0001750�00000000000�13052306551�017244� 5����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/reverser/tags/1.1/reverser.setup�����������������������������������������������0000644�0001750�0001750�00000000037�13040667210�022162� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(standard-extension 'reverser) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/reverser/tags/1.1/reverser.meta������������������������������������������������0000644�0001750�0001750�00000000003�13040667210�021741� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������() �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/reverser/tags/1.1/reverser.scm�������������������������������������������������0000644�0001750�0001750�00000000511�13052302315�021574� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(module reverser * (import scheme chicken) (use srfi-13) (define rev-version 1.1) (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-4.12.0/tests/embedded4.scm������������������������������������������������������������������0000644�0001750�0001750�00000000160�13052302315�016462� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; x.scm (define (bar x) (gc) (* x x)) (define-external (baz (int i)) double (sqrt i)) (return-to-host) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/path-tests.scm�����������������������������������������������������������������0000644�0001750�0001750�00000022073�13052302315�016750� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(use files) (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-4.12.0/tests/library-tests.scm��������������������������������������������������������������0000644�0001750�0001750�00000051617�13052302367�017475� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; library-tests.scm (use srfi-1 extras ports) (define-syntax assert-fail (syntax-rules () ((_ exp) (assert (handle-exceptions ex #t exp #f))))) ;; 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)) (assert-fail (/ 1 1 0)) (assert-fail (/ 1 1 0.0)) (assert-fail (/ 1 0.0)) (assert-fail (/ 1 0)) (assert-fail (/ 0)) (assert-fail (/ 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)) (iota 15 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))) ;;; 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" (symbol->string (with-input-from-string "|abc|:" read)))) ; keyword (let ((kw (with-input-from-string "|foo bar|:" read))) (assert (eq? kw (with-input-from-string "#:|foo bar|" read))) (assert (string=? "foo bar" (symbol->string kw))) (assert (string=? "foo bar:" (with-output-to-string (lambda () (display kw))))) (assert (string=? "|foo bar|:" (with-output-to-string (lambda () (write kw))))))) (parameterize ((keyword-style #:prefix)) (assert (string=? "abc" (symbol->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))) (assert (eq? kw (with-input-from-string "#:|foo bar|" read))) (assert (string=? "foo bar" (symbol->string kw))) (assert (string=? ":foo bar" (with-output-to-string (lambda () (display kw))))) (assert (string=? ":|foo bar|" (with-output-to-string (lambda () (write kw))))))) (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 (keyword? empty-kw)) (assert (string=? "" (keyword->string empty-kw)))) (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))) ;;; 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")) ;;; 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")) �����������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/arithmetic-test.32.expected����������������������������������������������������0000644�0001750�0001750�00004677460�13052302315�021250� 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.0) -> 1073741822.0) ((130 . 5625) (+ -2 1073741825.0) -> 1073741823.0) ((131 . 5625) (+ -1 1073741821) -> 1073741820) ((132 . 5625) (+ -1 1073741822) -> 1073741821) ((133 . 5625) (+ -1 1073741823) -> 1073741822) ((134 . 5625) (+ -1 1073741824.0) -> 1073741823.0) ((135 . 5625) (+ -1 1073741825.0) -> 1073741824.0) ((136 . 5625) (+ 0 1073741821) -> 1073741821) ((137 . 5625) (+ 0 1073741822) -> 1073741822) ((138 . 5625) (+ 0 1073741823) -> 1073741823) ((139 . 5625) (+ 0 1073741824.0) -> 1073741824.0) ((140 . 5625) (+ 0 1073741825.0) -> 1073741825.0) ((141 . 5625) (+ 1 1073741821) -> 1073741822) ((142 . 5625) (+ 1 1073741822) -> 1073741823) ((143 . 5625) (+ 1 1073741823) -> 1073741824.0) ((144 . 5625) (+ 1 1073741824.0) -> 1073741825.0) ((145 . 5625) (+ 1 1073741825.0) -> 1073741826.0) ((146 . 5625) (+ 2 1073741821) -> 1073741823) ((147 . 5625) (+ 2 1073741822) -> 1073741824.0) ((148 . 5625) (+ 2 1073741823) -> 1073741825.0) ((149 . 5625) (+ 2 1073741824.0) -> 1073741826.0) ((150 . 5625) (+ 2 1073741825.0) -> 1073741827.0) ((151 . 5625) (+ -2 -1073741826.0) -> -1073741828.0) ((152 . 5625) (+ -2 -1073741825.0) -> -1073741827.0) ((153 . 5625) (+ -2 -1073741824) -> -1073741826.0) ((154 . 5625) (+ -2 -1073741823) -> -1073741825.0) ((155 . 5625) (+ -2 -1073741822) -> -1073741824) ((156 . 5625) (+ -1 -1073741826.0) -> -1073741827.0) ((157 . 5625) (+ -1 -1073741825.0) -> -1073741826.0) ((158 . 5625) (+ -1 -1073741824) -> -1073741825.0) ((159 . 5625) (+ -1 -1073741823) -> -1073741824) ((160 . 5625) (+ -1 -1073741822) -> -1073741823) ((161 . 5625) (+ 0 -1073741826.0) -> -1073741826.0) ((162 . 5625) (+ 0 -1073741825.0) -> -1073741825.0) ((163 . 5625) (+ 0 -1073741824) -> -1073741824) ((164 . 5625) (+ 0 -1073741823) -> -1073741823) ((165 . 5625) (+ 0 -1073741822) -> -1073741822) ((166 . 5625) (+ 1 -1073741826.0) -> -1073741825.0) ((167 . 5625) (+ 1 -1073741825.0) -> -1073741824.0) ((168 . 5625) (+ 1 -1073741824) -> -1073741823) ((169 . 5625) (+ 1 -1073741823) -> -1073741822) ((170 . 5625) (+ 1 -1073741822) -> -1073741821) ((171 . 5625) (+ 2 -1073741826.0) -> -1073741824.0) ((172 . 5625) (+ 2 -1073741825.0) -> -1073741823.0) ((173 . 5625) (+ 2 -1073741824) -> -1073741822) ((174 . 5625) (+ 2 -1073741823) -> -1073741821) ((175 . 5625) (+ 2 -1073741822) -> -1073741820) ((176 . 5625) (+ -2 1073741822.0) -> 1073741820.0) ((177 . 5625) (+ -2 1073741823.0) -> 1073741821.0) ((178 . 5625) (+ -2 1073741824.0) -> 1073741822.0) ((179 . 5625) (+ -2 1073741825.0) -> 1073741823.0) ((180 . 5625) (+ -2 1073741826.0) -> 1073741824.0) ((181 . 5625) (+ -1 1073741822.0) -> 1073741821.0) ((182 . 5625) (+ -1 1073741823.0) -> 1073741822.0) ((183 . 5625) (+ -1 1073741824.0) -> 1073741823.0) ((184 . 5625) (+ -1 1073741825.0) -> 1073741824.0) ((185 . 5625) (+ -1 1073741826.0) -> 1073741825.0) ((186 . 5625) (+ 0 1073741822.0) -> 1073741822.0) ((187 . 5625) (+ 0 1073741823.0) -> 1073741823.0) ((188 . 5625) (+ 0 1073741824.0) -> 1073741824.0) ((189 . 5625) (+ 0 1073741825.0) -> 1073741825.0) ((190 . 5625) (+ 0 1073741826.0) -> 1073741826.0) ((191 . 5625) (+ 1 1073741822.0) -> 1073741823.0) ((192 . 5625) (+ 1 1073741823.0) -> 1073741824.0) ((193 . 5625) (+ 1 1073741824.0) -> 1073741825.0) ((194 . 5625) (+ 1 1073741825.0) -> 1073741826.0) ((195 . 5625) (+ 1 1073741826.0) -> 1073741827.0) ((196 . 5625) (+ 2 1073741822.0) -> 1073741824.0) ((197 . 5625) (+ 2 1073741823.0) -> 1073741825.0) ((198 . 5625) (+ 2 1073741824.0) -> 1073741826.0) ((199 . 5625) (+ 2 1073741825.0) -> 1073741827.0) ((200 . 5625) (+ 2 1073741826.0) -> 1073741828.0) ((201 . 5625) (+ -2 -1073741827.0) -> -1073741829.0) ((202 . 5625) (+ -2 -1073741826.0) -> -1073741828.0) ((203 . 5625) (+ -2 -1073741825.0) -> -1073741827.0) ((204 . 5625) (+ -2 -1073741824.0) -> -1073741826.0) ((205 . 5625) (+ -2 -1073741823.0) -> -1073741825.0) ((206 . 5625) (+ -1 -1073741827.0) -> -1073741828.0) ((207 . 5625) (+ -1 -1073741826.0) -> -1073741827.0) ((208 . 5625) (+ -1 -1073741825.0) -> -1073741826.0) ((209 . 5625) (+ -1 -1073741824.0) -> -1073741825.0) ((210 . 5625) (+ -1 -1073741823.0) -> -1073741824.0) ((211 . 5625) (+ 0 -1073741827.0) -> -1073741827.0) ((212 . 5625) (+ 0 -1073741826.0) -> -1073741826.0) ((213 . 5625) (+ 0 -1073741825.0) -> -1073741825.0) ((214 . 5625) (+ 0 -1073741824.0) -> -1073741824.0) ((215 . 5625) (+ 0 -1073741823.0) -> -1073741823.0) ((216 . 5625) (+ 1 -1073741827.0) -> -1073741826.0) ((217 . 5625) (+ 1 -1073741826.0) -> -1073741825.0) ((218 . 5625) (+ 1 -1073741825.0) -> -1073741824.0) ((219 . 5625) (+ 1 -1073741824.0) -> -1073741823.0) ((220 . 5625) (+ 1 -1073741823.0) -> -1073741822.0) ((221 . 5625) (+ 2 -1073741827.0) -> -1073741825.0) ((222 . 5625) (+ 2 -1073741826.0) -> -1073741824.0) ((223 . 5625) (+ 2 -1073741825.0) -> -1073741823.0) ((224 . 5625) (+ 2 -1073741824.0) -> -1073741822.0) ((225 . 5625) (+ 2 -1073741823.0) -> -1073741821.0) ((226 . 5625) (+ -2 1103515243.0) -> 1103515241.0) ((227 . 5625) (+ -2 1103515244.0) -> 1103515242.0) ((228 . 5625) (+ -2 1103515245.0) -> 1103515243.0) ((229 . 5625) (+ -2 1103515246.0) -> 1103515244.0) ((230 . 5625) (+ -2 1103515247.0) -> 1103515245.0) ((231 . 5625) (+ -1 1103515243.0) -> 1103515242.0) ((232 . 5625) (+ -1 1103515244.0) -> 1103515243.0) ((233 . 5625) (+ -1 1103515245.0) -> 1103515244.0) ((234 . 5625) (+ -1 1103515246.0) -> 1103515245.0) ((235 . 5625) (+ -1 1103515247.0) -> 1103515246.0) ((236 . 5625) (+ 0 1103515243.0) -> 1103515243.0) ((237 . 5625) (+ 0 1103515244.0) -> 1103515244.0) ((238 . 5625) (+ 0 1103515245.0) -> 1103515245.0) ((239 . 5625) (+ 0 1103515246.0) -> 1103515246.0) ((240 . 5625) (+ 0 1103515247.0) -> 1103515247.0) ((241 . 5625) (+ 1 1103515243.0) -> 1103515244.0) ((242 . 5625) (+ 1 1103515244.0) -> 1103515245.0) ((243 . 5625) (+ 1 1103515245.0) -> 1103515246.0) ((244 . 5625) (+ 1 1103515246.0) -> 1103515247.0) ((245 . 5625) (+ 1 1103515247.0) -> 1103515248.0) ((246 . 5625) (+ 2 1103515243.0) -> 1103515245.0) ((247 . 5625) (+ 2 1103515244.0) -> 1103515246.0) ((248 . 5625) (+ 2 1103515245.0) -> 1103515247.0) ((249 . 5625) (+ 2 1103515246.0) -> 1103515248.0) ((250 . 5625) (+ 2 1103515247.0) -> 1103515249.0) ((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 9.00719925474099e+15) -> 9.00719925474099e+15) ((277 . 5625) (+ -2 9.00719925474099e+15) -> 9.00719925474099e+15) ((278 . 5625) (+ -2 9.00719925474099e+15) -> 9.00719925474099e+15) ((279 . 5625) (+ -2 9.00719925474099e+15) -> 9.00719925474099e+15) ((280 . 5625) (+ -2 9.00719925474099e+15) -> 9.00719925474099e+15) ((281 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((282 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((283 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((284 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((285 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((286 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((287 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((288 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((289 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((290 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((291 . 5625) (+ 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((292 . 5625) (+ 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((293 . 5625) (+ 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((294 . 5625) (+ 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((295 . 5625) (+ 1 9.00719925474099e+15) -> 9.007199254741e+15) ((296 . 5625) (+ 2 9.00719925474099e+15) -> 9.00719925474099e+15) ((297 . 5625) (+ 2 9.00719925474099e+15) -> 9.00719925474099e+15) ((298 . 5625) (+ 2 9.00719925474099e+15) -> 9.00719925474099e+15) ((299 . 5625) (+ 2 9.00719925474099e+15) -> 9.00719925474099e+15) ((300 . 5625) (+ 2 9.00719925474099e+15) -> 9.007199254741e+15) ((301 . 5625) (+ -2 -9.00719925474099e+15) -> -9.007199254741e+15) ((302 . 5625) (+ -2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((303 . 5625) (+ -2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((304 . 5625) (+ -2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((305 . 5625) (+ -2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((306 . 5625) (+ -1 -9.00719925474099e+15) -> -9.007199254741e+15) ((307 . 5625) (+ -1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((308 . 5625) (+ -1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((309 . 5625) (+ -1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((310 . 5625) (+ -1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((311 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((312 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((313 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((314 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((315 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((316 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((317 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((318 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((319 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((320 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((321 . 5625) (+ 2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((322 . 5625) (+ 2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((323 . 5625) (+ 2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((324 . 5625) (+ 2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((325 . 5625) (+ 2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((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.0) -> 4294967292.0) ((352 . 5625) (+ -2 4294967295.0) -> 4294967293.0) ((353 . 5625) (+ -2 4294967296.0) -> 4294967294.0) ((354 . 5625) (+ -2 4294967297.0) -> 4294967295.0) ((355 . 5625) (+ -2 4294967298.0) -> 4294967296.0) ((356 . 5625) (+ -1 4294967294.0) -> 4294967293.0) ((357 . 5625) (+ -1 4294967295.0) -> 4294967294.0) ((358 . 5625) (+ -1 4294967296.0) -> 4294967295.0) ((359 . 5625) (+ -1 4294967297.0) -> 4294967296.0) ((360 . 5625) (+ -1 4294967298.0) -> 4294967297.0) ((361 . 5625) (+ 0 4294967294.0) -> 4294967294.0) ((362 . 5625) (+ 0 4294967295.0) -> 4294967295.0) ((363 . 5625) (+ 0 4294967296.0) -> 4294967296.0) ((364 . 5625) (+ 0 4294967297.0) -> 4294967297.0) ((365 . 5625) (+ 0 4294967298.0) -> 4294967298.0) ((366 . 5625) (+ 1 4294967294.0) -> 4294967295.0) ((367 . 5625) (+ 1 4294967295.0) -> 4294967296.0) ((368 . 5625) (+ 1 4294967296.0) -> 4294967297.0) ((369 . 5625) (+ 1 4294967297.0) -> 4294967298.0) ((370 . 5625) (+ 1 4294967298.0) -> 4294967299.0) ((371 . 5625) (+ 2 4294967294.0) -> 4294967296.0) ((372 . 5625) (+ 2 4294967295.0) -> 4294967297.0) ((373 . 5625) (+ 2 4294967296.0) -> 4294967298.0) ((374 . 5625) (+ 2 4294967297.0) -> 4294967299.0) ((375 . 5625) (+ 2 4294967298.0) -> 4294967300.0) ((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.0) -> 1073741823.0) ((505 . 5625) (+ -1 1073741825.0) -> 1073741824.0) ((506 . 5625) (+ 0 1073741821) -> 1073741821) ((507 . 5625) (+ 0 1073741822) -> 1073741822) ((508 . 5625) (+ 0 1073741823) -> 1073741823) ((509 . 5625) (+ 0 1073741824.0) -> 1073741824.0) ((510 . 5625) (+ 0 1073741825.0) -> 1073741825.0) ((511 . 5625) (+ 1 1073741821) -> 1073741822) ((512 . 5625) (+ 1 1073741822) -> 1073741823) ((513 . 5625) (+ 1 1073741823) -> 1073741824.0) ((514 . 5625) (+ 1 1073741824.0) -> 1073741825.0) ((515 . 5625) (+ 1 1073741825.0) -> 1073741826.0) ((516 . 5625) (+ 2 1073741821) -> 1073741823) ((517 . 5625) (+ 2 1073741822) -> 1073741824.0) ((518 . 5625) (+ 2 1073741823) -> 1073741825.0) ((519 . 5625) (+ 2 1073741824.0) -> 1073741826.0) ((520 . 5625) (+ 2 1073741825.0) -> 1073741827.0) ((521 . 5625) (+ 3 1073741821) -> 1073741824.0) ((522 . 5625) (+ 3 1073741822) -> 1073741825.0) ((523 . 5625) (+ 3 1073741823) -> 1073741826.0) ((524 . 5625) (+ 3 1073741824.0) -> 1073741827.0) ((525 . 5625) (+ 3 1073741825.0) -> 1073741828.0) ((526 . 5625) (+ -1 -1073741826.0) -> -1073741827.0) ((527 . 5625) (+ -1 -1073741825.0) -> -1073741826.0) ((528 . 5625) (+ -1 -1073741824) -> -1073741825.0) ((529 . 5625) (+ -1 -1073741823) -> -1073741824) ((530 . 5625) (+ -1 -1073741822) -> -1073741823) ((531 . 5625) (+ 0 -1073741826.0) -> -1073741826.0) ((532 . 5625) (+ 0 -1073741825.0) -> -1073741825.0) ((533 . 5625) (+ 0 -1073741824) -> -1073741824) ((534 . 5625) (+ 0 -1073741823) -> -1073741823) ((535 . 5625) (+ 0 -1073741822) -> -1073741822) ((536 . 5625) (+ 1 -1073741826.0) -> -1073741825.0) ((537 . 5625) (+ 1 -1073741825.0) -> -1073741824.0) ((538 . 5625) (+ 1 -1073741824) -> -1073741823) ((539 . 5625) (+ 1 -1073741823) -> -1073741822) ((540 . 5625) (+ 1 -1073741822) -> -1073741821) ((541 . 5625) (+ 2 -1073741826.0) -> -1073741824.0) ((542 . 5625) (+ 2 -1073741825.0) -> -1073741823.0) ((543 . 5625) (+ 2 -1073741824) -> -1073741822) ((544 . 5625) (+ 2 -1073741823) -> -1073741821) ((545 . 5625) (+ 2 -1073741822) -> -1073741820) ((546 . 5625) (+ 3 -1073741826.0) -> -1073741823.0) ((547 . 5625) (+ 3 -1073741825.0) -> -1073741822.0) ((548 . 5625) (+ 3 -1073741824) -> -1073741821) ((549 . 5625) (+ 3 -1073741823) -> -1073741820) ((550 . 5625) (+ 3 -1073741822) -> -1073741819) ((551 . 5625) (+ -1 1073741822.0) -> 1073741821.0) ((552 . 5625) (+ -1 1073741823.0) -> 1073741822.0) ((553 . 5625) (+ -1 1073741824.0) -> 1073741823.0) ((554 . 5625) (+ -1 1073741825.0) -> 1073741824.0) ((555 . 5625) (+ -1 1073741826.0) -> 1073741825.0) ((556 . 5625) (+ 0 1073741822.0) -> 1073741822.0) ((557 . 5625) (+ 0 1073741823.0) -> 1073741823.0) ((558 . 5625) (+ 0 1073741824.0) -> 1073741824.0) ((559 . 5625) (+ 0 1073741825.0) -> 1073741825.0) ((560 . 5625) (+ 0 1073741826.0) -> 1073741826.0) ((561 . 5625) (+ 1 1073741822.0) -> 1073741823.0) ((562 . 5625) (+ 1 1073741823.0) -> 1073741824.0) ((563 . 5625) (+ 1 1073741824.0) -> 1073741825.0) ((564 . 5625) (+ 1 1073741825.0) -> 1073741826.0) ((565 . 5625) (+ 1 1073741826.0) -> 1073741827.0) ((566 . 5625) (+ 2 1073741822.0) -> 1073741824.0) ((567 . 5625) (+ 2 1073741823.0) -> 1073741825.0) ((568 . 5625) (+ 2 1073741824.0) -> 1073741826.0) ((569 . 5625) (+ 2 1073741825.0) -> 1073741827.0) ((570 . 5625) (+ 2 1073741826.0) -> 1073741828.0) ((571 . 5625) (+ 3 1073741822.0) -> 1073741825.0) ((572 . 5625) (+ 3 1073741823.0) -> 1073741826.0) ((573 . 5625) (+ 3 1073741824.0) -> 1073741827.0) ((574 . 5625) (+ 3 1073741825.0) -> 1073741828.0) ((575 . 5625) (+ 3 1073741826.0) -> 1073741829.0) ((576 . 5625) (+ -1 -1073741827.0) -> -1073741828.0) ((577 . 5625) (+ -1 -1073741826.0) -> -1073741827.0) ((578 . 5625) (+ -1 -1073741825.0) -> -1073741826.0) ((579 . 5625) (+ -1 -1073741824.0) -> -1073741825.0) ((580 . 5625) (+ -1 -1073741823.0) -> -1073741824.0) ((581 . 5625) (+ 0 -1073741827.0) -> -1073741827.0) ((582 . 5625) (+ 0 -1073741826.0) -> -1073741826.0) ((583 . 5625) (+ 0 -1073741825.0) -> -1073741825.0) ((584 . 5625) (+ 0 -1073741824.0) -> -1073741824.0) ((585 . 5625) (+ 0 -1073741823.0) -> -1073741823.0) ((586 . 5625) (+ 1 -1073741827.0) -> -1073741826.0) ((587 . 5625) (+ 1 -1073741826.0) -> -1073741825.0) ((588 . 5625) (+ 1 -1073741825.0) -> -1073741824.0) ((589 . 5625) (+ 1 -1073741824.0) -> -1073741823.0) ((590 . 5625) (+ 1 -1073741823.0) -> -1073741822.0) ((591 . 5625) (+ 2 -1073741827.0) -> -1073741825.0) ((592 . 5625) (+ 2 -1073741826.0) -> -1073741824.0) ((593 . 5625) (+ 2 -1073741825.0) -> -1073741823.0) ((594 . 5625) (+ 2 -1073741824.0) -> -1073741822.0) ((595 . 5625) (+ 2 -1073741823.0) -> -1073741821.0) ((596 . 5625) (+ 3 -1073741827.0) -> -1073741824.0) ((597 . 5625) (+ 3 -1073741826.0) -> -1073741823.0) ((598 . 5625) (+ 3 -1073741825.0) -> -1073741822.0) ((599 . 5625) (+ 3 -1073741824.0) -> -1073741821.0) ((600 . 5625) (+ 3 -1073741823.0) -> -1073741820.0) ((601 . 5625) (+ -1 1103515243.0) -> 1103515242.0) ((602 . 5625) (+ -1 1103515244.0) -> 1103515243.0) ((603 . 5625) (+ -1 1103515245.0) -> 1103515244.0) ((604 . 5625) (+ -1 1103515246.0) -> 1103515245.0) ((605 . 5625) (+ -1 1103515247.0) -> 1103515246.0) ((606 . 5625) (+ 0 1103515243.0) -> 1103515243.0) ((607 . 5625) (+ 0 1103515244.0) -> 1103515244.0) ((608 . 5625) (+ 0 1103515245.0) -> 1103515245.0) ((609 . 5625) (+ 0 1103515246.0) -> 1103515246.0) ((610 . 5625) (+ 0 1103515247.0) -> 1103515247.0) ((611 . 5625) (+ 1 1103515243.0) -> 1103515244.0) ((612 . 5625) (+ 1 1103515244.0) -> 1103515245.0) ((613 . 5625) (+ 1 1103515245.0) -> 1103515246.0) ((614 . 5625) (+ 1 1103515246.0) -> 1103515247.0) ((615 . 5625) (+ 1 1103515247.0) -> 1103515248.0) ((616 . 5625) (+ 2 1103515243.0) -> 1103515245.0) ((617 . 5625) (+ 2 1103515244.0) -> 1103515246.0) ((618 . 5625) (+ 2 1103515245.0) -> 1103515247.0) ((619 . 5625) (+ 2 1103515246.0) -> 1103515248.0) ((620 . 5625) (+ 2 1103515247.0) -> 1103515249.0) ((621 . 5625) (+ 3 1103515243.0) -> 1103515246.0) ((622 . 5625) (+ 3 1103515244.0) -> 1103515247.0) ((623 . 5625) (+ 3 1103515245.0) -> 1103515248.0) ((624 . 5625) (+ 3 1103515246.0) -> 1103515249.0) ((625 . 5625) (+ 3 1103515247.0) -> 1103515250.0) ((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 9.00719925474099e+15) -> 9.00719925474099e+15) ((652 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((653 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((654 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((655 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((656 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((657 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((658 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((659 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((660 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((661 . 5625) (+ 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((662 . 5625) (+ 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((663 . 5625) (+ 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((664 . 5625) (+ 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((665 . 5625) (+ 1 9.00719925474099e+15) -> 9.007199254741e+15) ((666 . 5625) (+ 2 9.00719925474099e+15) -> 9.00719925474099e+15) ((667 . 5625) (+ 2 9.00719925474099e+15) -> 9.00719925474099e+15) ((668 . 5625) (+ 2 9.00719925474099e+15) -> 9.00719925474099e+15) ((669 . 5625) (+ 2 9.00719925474099e+15) -> 9.00719925474099e+15) ((670 . 5625) (+ 2 9.00719925474099e+15) -> 9.007199254741e+15) ((671 . 5625) (+ 3 9.00719925474099e+15) -> 9.00719925474099e+15) ((672 . 5625) (+ 3 9.00719925474099e+15) -> 9.00719925474099e+15) ((673 . 5625) (+ 3 9.00719925474099e+15) -> 9.007199254741e+15) ((674 . 5625) (+ 3 9.00719925474099e+15) -> 9.007199254741e+15) ((675 . 5625) (+ 3 9.00719925474099e+15) -> 9.007199254741e+15) ((676 . 5625) (+ -1 -9.00719925474099e+15) -> -9.007199254741e+15) ((677 . 5625) (+ -1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((678 . 5625) (+ -1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((679 . 5625) (+ -1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((680 . 5625) (+ -1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((681 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((682 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((683 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((684 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((685 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((686 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((687 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((688 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((689 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((690 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((691 . 5625) (+ 2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((692 . 5625) (+ 2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((693 . 5625) (+ 2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((694 . 5625) (+ 2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((695 . 5625) (+ 2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((696 . 5625) (+ 3 -9.00719925474099e+15) -> -9.00719925474099e+15) ((697 . 5625) (+ 3 -9.00719925474099e+15) -> -9.00719925474099e+15) ((698 . 5625) (+ 3 -9.00719925474099e+15) -> -9.00719925474099e+15) ((699 . 5625) (+ 3 -9.00719925474099e+15) -> -9.00719925474099e+15) ((700 . 5625) (+ 3 -9.00719925474099e+15) -> -9.00719925474099e+15) ((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.0) -> 4294967293.0) ((727 . 5625) (+ -1 4294967295.0) -> 4294967294.0) ((728 . 5625) (+ -1 4294967296.0) -> 4294967295.0) ((729 . 5625) (+ -1 4294967297.0) -> 4294967296.0) ((730 . 5625) (+ -1 4294967298.0) -> 4294967297.0) ((731 . 5625) (+ 0 4294967294.0) -> 4294967294.0) ((732 . 5625) (+ 0 4294967295.0) -> 4294967295.0) ((733 . 5625) (+ 0 4294967296.0) -> 4294967296.0) ((734 . 5625) (+ 0 4294967297.0) -> 4294967297.0) ((735 . 5625) (+ 0 4294967298.0) -> 4294967298.0) ((736 . 5625) (+ 1 4294967294.0) -> 4294967295.0) ((737 . 5625) (+ 1 4294967295.0) -> 4294967296.0) ((738 . 5625) (+ 1 4294967296.0) -> 4294967297.0) ((739 . 5625) (+ 1 4294967297.0) -> 4294967298.0) ((740 . 5625) (+ 1 4294967298.0) -> 4294967299.0) ((741 . 5625) (+ 2 4294967294.0) -> 4294967296.0) ((742 . 5625) (+ 2 4294967295.0) -> 4294967297.0) ((743 . 5625) (+ 2 4294967296.0) -> 4294967298.0) ((744 . 5625) (+ 2 4294967297.0) -> 4294967299.0) ((745 . 5625) (+ 2 4294967298.0) -> 4294967300.0) ((746 . 5625) (+ 3 4294967294.0) -> 4294967297.0) ((747 . 5625) (+ 3 4294967295.0) -> 4294967298.0) ((748 . 5625) (+ 3 4294967296.0) -> 4294967299.0) ((749 . 5625) (+ 3 4294967297.0) -> 4294967300.0) ((750 . 5625) (+ 3 4294967298.0) -> 4294967301.0) ((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.0) -> 1073741821.0) ((880 . 5625) (+ -3 1073741825.0) -> 1073741822.0) ((881 . 5625) (+ -2 1073741821) -> 1073741819) ((882 . 5625) (+ -2 1073741822) -> 1073741820) ((883 . 5625) (+ -2 1073741823) -> 1073741821) ((884 . 5625) (+ -2 1073741824.0) -> 1073741822.0) ((885 . 5625) (+ -2 1073741825.0) -> 1073741823.0) ((886 . 5625) (+ -1 1073741821) -> 1073741820) ((887 . 5625) (+ -1 1073741822) -> 1073741821) ((888 . 5625) (+ -1 1073741823) -> 1073741822) ((889 . 5625) (+ -1 1073741824.0) -> 1073741823.0) ((890 . 5625) (+ -1 1073741825.0) -> 1073741824.0) ((891 . 5625) (+ 0 1073741821) -> 1073741821) ((892 . 5625) (+ 0 1073741822) -> 1073741822) ((893 . 5625) (+ 0 1073741823) -> 1073741823) ((894 . 5625) (+ 0 1073741824.0) -> 1073741824.0) ((895 . 5625) (+ 0 1073741825.0) -> 1073741825.0) ((896 . 5625) (+ 1 1073741821) -> 1073741822) ((897 . 5625) (+ 1 1073741822) -> 1073741823) ((898 . 5625) (+ 1 1073741823) -> 1073741824.0) ((899 . 5625) (+ 1 1073741824.0) -> 1073741825.0) ((900 . 5625) (+ 1 1073741825.0) -> 1073741826.0) ((901 . 5625) (+ -3 -1073741826.0) -> -1073741829.0) ((902 . 5625) (+ -3 -1073741825.0) -> -1073741828.0) ((903 . 5625) (+ -3 -1073741824) -> -1073741827.0) ((904 . 5625) (+ -3 -1073741823) -> -1073741826.0) ((905 . 5625) (+ -3 -1073741822) -> -1073741825.0) ((906 . 5625) (+ -2 -1073741826.0) -> -1073741828.0) ((907 . 5625) (+ -2 -1073741825.0) -> -1073741827.0) ((908 . 5625) (+ -2 -1073741824) -> -1073741826.0) ((909 . 5625) (+ -2 -1073741823) -> -1073741825.0) ((910 . 5625) (+ -2 -1073741822) -> -1073741824) ((911 . 5625) (+ -1 -1073741826.0) -> -1073741827.0) ((912 . 5625) (+ -1 -1073741825.0) -> -1073741826.0) ((913 . 5625) (+ -1 -1073741824) -> -1073741825.0) ((914 . 5625) (+ -1 -1073741823) -> -1073741824) ((915 . 5625) (+ -1 -1073741822) -> -1073741823) ((916 . 5625) (+ 0 -1073741826.0) -> -1073741826.0) ((917 . 5625) (+ 0 -1073741825.0) -> -1073741825.0) ((918 . 5625) (+ 0 -1073741824) -> -1073741824) ((919 . 5625) (+ 0 -1073741823) -> -1073741823) ((920 . 5625) (+ 0 -1073741822) -> -1073741822) ((921 . 5625) (+ 1 -1073741826.0) -> -1073741825.0) ((922 . 5625) (+ 1 -1073741825.0) -> -1073741824.0) ((923 . 5625) (+ 1 -1073741824) -> -1073741823) ((924 . 5625) (+ 1 -1073741823) -> -1073741822) ((925 . 5625) (+ 1 -1073741822) -> -1073741821) ((926 . 5625) (+ -3 1073741822.0) -> 1073741819.0) ((927 . 5625) (+ -3 1073741823.0) -> 1073741820.0) ((928 . 5625) (+ -3 1073741824.0) -> 1073741821.0) ((929 . 5625) (+ -3 1073741825.0) -> 1073741822.0) ((930 . 5625) (+ -3 1073741826.0) -> 1073741823.0) ((931 . 5625) (+ -2 1073741822.0) -> 1073741820.0) ((932 . 5625) (+ -2 1073741823.0) -> 1073741821.0) ((933 . 5625) (+ -2 1073741824.0) -> 1073741822.0) ((934 . 5625) (+ -2 1073741825.0) -> 1073741823.0) ((935 . 5625) (+ -2 1073741826.0) -> 1073741824.0) ((936 . 5625) (+ -1 1073741822.0) -> 1073741821.0) ((937 . 5625) (+ -1 1073741823.0) -> 1073741822.0) ((938 . 5625) (+ -1 1073741824.0) -> 1073741823.0) ((939 . 5625) (+ -1 1073741825.0) -> 1073741824.0) ((940 . 5625) (+ -1 1073741826.0) -> 1073741825.0) ((941 . 5625) (+ 0 1073741822.0) -> 1073741822.0) ((942 . 5625) (+ 0 1073741823.0) -> 1073741823.0) ((943 . 5625) (+ 0 1073741824.0) -> 1073741824.0) ((944 . 5625) (+ 0 1073741825.0) -> 1073741825.0) ((945 . 5625) (+ 0 1073741826.0) -> 1073741826.0) ((946 . 5625) (+ 1 1073741822.0) -> 1073741823.0) ((947 . 5625) (+ 1 1073741823.0) -> 1073741824.0) ((948 . 5625) (+ 1 1073741824.0) -> 1073741825.0) ((949 . 5625) (+ 1 1073741825.0) -> 1073741826.0) ((950 . 5625) (+ 1 1073741826.0) -> 1073741827.0) ((951 . 5625) (+ -3 -1073741827.0) -> -1073741830.0) ((952 . 5625) (+ -3 -1073741826.0) -> -1073741829.0) ((953 . 5625) (+ -3 -1073741825.0) -> -1073741828.0) ((954 . 5625) (+ -3 -1073741824.0) -> -1073741827.0) ((955 . 5625) (+ -3 -1073741823.0) -> -1073741826.0) ((956 . 5625) (+ -2 -1073741827.0) -> -1073741829.0) ((957 . 5625) (+ -2 -1073741826.0) -> -1073741828.0) ((958 . 5625) (+ -2 -1073741825.0) -> -1073741827.0) ((959 . 5625) (+ -2 -1073741824.0) -> -1073741826.0) ((960 . 5625) (+ -2 -1073741823.0) -> -1073741825.0) ((961 . 5625) (+ -1 -1073741827.0) -> -1073741828.0) ((962 . 5625) (+ -1 -1073741826.0) -> -1073741827.0) ((963 . 5625) (+ -1 -1073741825.0) -> -1073741826.0) ((964 . 5625) (+ -1 -1073741824.0) -> -1073741825.0) ((965 . 5625) (+ -1 -1073741823.0) -> -1073741824.0) ((966 . 5625) (+ 0 -1073741827.0) -> -1073741827.0) ((967 . 5625) (+ 0 -1073741826.0) -> -1073741826.0) ((968 . 5625) (+ 0 -1073741825.0) -> -1073741825.0) ((969 . 5625) (+ 0 -1073741824.0) -> -1073741824.0) ((970 . 5625) (+ 0 -1073741823.0) -> -1073741823.0) ((971 . 5625) (+ 1 -1073741827.0) -> -1073741826.0) ((972 . 5625) (+ 1 -1073741826.0) -> -1073741825.0) ((973 . 5625) (+ 1 -1073741825.0) -> -1073741824.0) ((974 . 5625) (+ 1 -1073741824.0) -> -1073741823.0) ((975 . 5625) (+ 1 -1073741823.0) -> -1073741822.0) ((976 . 5625) (+ -3 1103515243.0) -> 1103515240.0) ((977 . 5625) (+ -3 1103515244.0) -> 1103515241.0) ((978 . 5625) (+ -3 1103515245.0) -> 1103515242.0) ((979 . 5625) (+ -3 1103515246.0) -> 1103515243.0) ((980 . 5625) (+ -3 1103515247.0) -> 1103515244.0) ((981 . 5625) (+ -2 1103515243.0) -> 1103515241.0) ((982 . 5625) (+ -2 1103515244.0) -> 1103515242.0) ((983 . 5625) (+ -2 1103515245.0) -> 1103515243.0) ((984 . 5625) (+ -2 1103515246.0) -> 1103515244.0) ((985 . 5625) (+ -2 1103515247.0) -> 1103515245.0) ((986 . 5625) (+ -1 1103515243.0) -> 1103515242.0) ((987 . 5625) (+ -1 1103515244.0) -> 1103515243.0) ((988 . 5625) (+ -1 1103515245.0) -> 1103515244.0) ((989 . 5625) (+ -1 1103515246.0) -> 1103515245.0) ((990 . 5625) (+ -1 1103515247.0) -> 1103515246.0) ((991 . 5625) (+ 0 1103515243.0) -> 1103515243.0) ((992 . 5625) (+ 0 1103515244.0) -> 1103515244.0) ((993 . 5625) (+ 0 1103515245.0) -> 1103515245.0) ((994 . 5625) (+ 0 1103515246.0) -> 1103515246.0) ((995 . 5625) (+ 0 1103515247.0) -> 1103515247.0) ((996 . 5625) (+ 1 1103515243.0) -> 1103515244.0) ((997 . 5625) (+ 1 1103515244.0) -> 1103515245.0) ((998 . 5625) (+ 1 1103515245.0) -> 1103515246.0) ((999 . 5625) (+ 1 1103515246.0) -> 1103515247.0) ((1000 . 5625) (+ 1 1103515247.0) -> 1103515248.0) ((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 9.00719925474099e+15) -> 9.00719925474099e+15) ((1027 . 5625) (+ -3 9.00719925474099e+15) -> 9.00719925474099e+15) ((1028 . 5625) (+ -3 9.00719925474099e+15) -> 9.00719925474099e+15) ((1029 . 5625) (+ -3 9.00719925474099e+15) -> 9.00719925474099e+15) ((1030 . 5625) (+ -3 9.00719925474099e+15) -> 9.00719925474099e+15) ((1031 . 5625) (+ -2 9.00719925474099e+15) -> 9.00719925474099e+15) ((1032 . 5625) (+ -2 9.00719925474099e+15) -> 9.00719925474099e+15) ((1033 . 5625) (+ -2 9.00719925474099e+15) -> 9.00719925474099e+15) ((1034 . 5625) (+ -2 9.00719925474099e+15) -> 9.00719925474099e+15) ((1035 . 5625) (+ -2 9.00719925474099e+15) -> 9.00719925474099e+15) ((1036 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1037 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1038 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1039 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1040 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1041 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((1042 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((1043 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((1044 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((1045 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((1046 . 5625) (+ 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1047 . 5625) (+ 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1048 . 5625) (+ 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1049 . 5625) (+ 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1050 . 5625) (+ 1 9.00719925474099e+15) -> 9.007199254741e+15) ((1051 . 5625) (+ -3 -9.00719925474099e+15) -> -9.007199254741e+15) ((1052 . 5625) (+ -3 -9.00719925474099e+15) -> -9.007199254741e+15) ((1053 . 5625) (+ -3 -9.00719925474099e+15) -> -9.007199254741e+15) ((1054 . 5625) (+ -3 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1055 . 5625) (+ -3 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1056 . 5625) (+ -2 -9.00719925474099e+15) -> -9.007199254741e+15) ((1057 . 5625) (+ -2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1058 . 5625) (+ -2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1059 . 5625) (+ -2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1060 . 5625) (+ -2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1061 . 5625) (+ -1 -9.00719925474099e+15) -> -9.007199254741e+15) ((1062 . 5625) (+ -1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1063 . 5625) (+ -1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1064 . 5625) (+ -1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1065 . 5625) (+ -1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1066 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1067 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1068 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1069 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1070 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1071 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1072 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1073 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1074 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1075 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((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.0) -> 4294967291.0) ((1102 . 5625) (+ -3 4294967295.0) -> 4294967292.0) ((1103 . 5625) (+ -3 4294967296.0) -> 4294967293.0) ((1104 . 5625) (+ -3 4294967297.0) -> 4294967294.0) ((1105 . 5625) (+ -3 4294967298.0) -> 4294967295.0) ((1106 . 5625) (+ -2 4294967294.0) -> 4294967292.0) ((1107 . 5625) (+ -2 4294967295.0) -> 4294967293.0) ((1108 . 5625) (+ -2 4294967296.0) -> 4294967294.0) ((1109 . 5625) (+ -2 4294967297.0) -> 4294967295.0) ((1110 . 5625) (+ -2 4294967298.0) -> 4294967296.0) ((1111 . 5625) (+ -1 4294967294.0) -> 4294967293.0) ((1112 . 5625) (+ -1 4294967295.0) -> 4294967294.0) ((1113 . 5625) (+ -1 4294967296.0) -> 4294967295.0) ((1114 . 5625) (+ -1 4294967297.0) -> 4294967296.0) ((1115 . 5625) (+ -1 4294967298.0) -> 4294967297.0) ((1116 . 5625) (+ 0 4294967294.0) -> 4294967294.0) ((1117 . 5625) (+ 0 4294967295.0) -> 4294967295.0) ((1118 . 5625) (+ 0 4294967296.0) -> 4294967296.0) ((1119 . 5625) (+ 0 4294967297.0) -> 4294967297.0) ((1120 . 5625) (+ 0 4294967298.0) -> 4294967298.0) ((1121 . 5625) (+ 1 4294967294.0) -> 4294967295.0) ((1122 . 5625) (+ 1 4294967295.0) -> 4294967296.0) ((1123 . 5625) (+ 1 4294967296.0) -> 4294967297.0) ((1124 . 5625) (+ 1 4294967297.0) -> 4294967298.0) ((1125 . 5625) (+ 1 4294967298.0) -> 4294967299.0) ((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.0) -> 1073741824.0) ((1255 . 5625) (+ 0 1073741825.0) -> 1073741825.0) ((1256 . 5625) (+ 1 1073741821) -> 1073741822) ((1257 . 5625) (+ 1 1073741822) -> 1073741823) ((1258 . 5625) (+ 1 1073741823) -> 1073741824.0) ((1259 . 5625) (+ 1 1073741824.0) -> 1073741825.0) ((1260 . 5625) (+ 1 1073741825.0) -> 1073741826.0) ((1261 . 5625) (+ 2 1073741821) -> 1073741823) ((1262 . 5625) (+ 2 1073741822) -> 1073741824.0) ((1263 . 5625) (+ 2 1073741823) -> 1073741825.0) ((1264 . 5625) (+ 2 1073741824.0) -> 1073741826.0) ((1265 . 5625) (+ 2 1073741825.0) -> 1073741827.0) ((1266 . 5625) (+ 3 1073741821) -> 1073741824.0) ((1267 . 5625) (+ 3 1073741822) -> 1073741825.0) ((1268 . 5625) (+ 3 1073741823) -> 1073741826.0) ((1269 . 5625) (+ 3 1073741824.0) -> 1073741827.0) ((1270 . 5625) (+ 3 1073741825.0) -> 1073741828.0) ((1271 . 5625) (+ 4 1073741821) -> 1073741825.0) ((1272 . 5625) (+ 4 1073741822) -> 1073741826.0) ((1273 . 5625) (+ 4 1073741823) -> 1073741827.0) ((1274 . 5625) (+ 4 1073741824.0) -> 1073741828.0) ((1275 . 5625) (+ 4 1073741825.0) -> 1073741829.0) ((1276 . 5625) (+ 0 -1073741826.0) -> -1073741826.0) ((1277 . 5625) (+ 0 -1073741825.0) -> -1073741825.0) ((1278 . 5625) (+ 0 -1073741824) -> -1073741824) ((1279 . 5625) (+ 0 -1073741823) -> -1073741823) ((1280 . 5625) (+ 0 -1073741822) -> -1073741822) ((1281 . 5625) (+ 1 -1073741826.0) -> -1073741825.0) ((1282 . 5625) (+ 1 -1073741825.0) -> -1073741824.0) ((1283 . 5625) (+ 1 -1073741824) -> -1073741823) ((1284 . 5625) (+ 1 -1073741823) -> -1073741822) ((1285 . 5625) (+ 1 -1073741822) -> -1073741821) ((1286 . 5625) (+ 2 -1073741826.0) -> -1073741824.0) ((1287 . 5625) (+ 2 -1073741825.0) -> -1073741823.0) ((1288 . 5625) (+ 2 -1073741824) -> -1073741822) ((1289 . 5625) (+ 2 -1073741823) -> -1073741821) ((1290 . 5625) (+ 2 -1073741822) -> -1073741820) ((1291 . 5625) (+ 3 -1073741826.0) -> -1073741823.0) ((1292 . 5625) (+ 3 -1073741825.0) -> -1073741822.0) ((1293 . 5625) (+ 3 -1073741824) -> -1073741821) ((1294 . 5625) (+ 3 -1073741823) -> -1073741820) ((1295 . 5625) (+ 3 -1073741822) -> -1073741819) ((1296 . 5625) (+ 4 -1073741826.0) -> -1073741822.0) ((1297 . 5625) (+ 4 -1073741825.0) -> -1073741821.0) ((1298 . 5625) (+ 4 -1073741824) -> -1073741820) ((1299 . 5625) (+ 4 -1073741823) -> -1073741819) ((1300 . 5625) (+ 4 -1073741822) -> -1073741818) ((1301 . 5625) (+ 0 1073741822.0) -> 1073741822.0) ((1302 . 5625) (+ 0 1073741823.0) -> 1073741823.0) ((1303 . 5625) (+ 0 1073741824.0) -> 1073741824.0) ((1304 . 5625) (+ 0 1073741825.0) -> 1073741825.0) ((1305 . 5625) (+ 0 1073741826.0) -> 1073741826.0) ((1306 . 5625) (+ 1 1073741822.0) -> 1073741823.0) ((1307 . 5625) (+ 1 1073741823.0) -> 1073741824.0) ((1308 . 5625) (+ 1 1073741824.0) -> 1073741825.0) ((1309 . 5625) (+ 1 1073741825.0) -> 1073741826.0) ((1310 . 5625) (+ 1 1073741826.0) -> 1073741827.0) ((1311 . 5625) (+ 2 1073741822.0) -> 1073741824.0) ((1312 . 5625) (+ 2 1073741823.0) -> 1073741825.0) ((1313 . 5625) (+ 2 1073741824.0) -> 1073741826.0) ((1314 . 5625) (+ 2 1073741825.0) -> 1073741827.0) ((1315 . 5625) (+ 2 1073741826.0) -> 1073741828.0) ((1316 . 5625) (+ 3 1073741822.0) -> 1073741825.0) ((1317 . 5625) (+ 3 1073741823.0) -> 1073741826.0) ((1318 . 5625) (+ 3 1073741824.0) -> 1073741827.0) ((1319 . 5625) (+ 3 1073741825.0) -> 1073741828.0) ((1320 . 5625) (+ 3 1073741826.0) -> 1073741829.0) ((1321 . 5625) (+ 4 1073741822.0) -> 1073741826.0) ((1322 . 5625) (+ 4 1073741823.0) -> 1073741827.0) ((1323 . 5625) (+ 4 1073741824.0) -> 1073741828.0) ((1324 . 5625) (+ 4 1073741825.0) -> 1073741829.0) ((1325 . 5625) (+ 4 1073741826.0) -> 1073741830.0) ((1326 . 5625) (+ 0 -1073741827.0) -> -1073741827.0) ((1327 . 5625) (+ 0 -1073741826.0) -> -1073741826.0) ((1328 . 5625) (+ 0 -1073741825.0) -> -1073741825.0) ((1329 . 5625) (+ 0 -1073741824.0) -> -1073741824.0) ((1330 . 5625) (+ 0 -1073741823.0) -> -1073741823.0) ((1331 . 5625) (+ 1 -1073741827.0) -> -1073741826.0) ((1332 . 5625) (+ 1 -1073741826.0) -> -1073741825.0) ((1333 . 5625) (+ 1 -1073741825.0) -> -1073741824.0) ((1334 . 5625) (+ 1 -1073741824.0) -> -1073741823.0) ((1335 . 5625) (+ 1 -1073741823.0) -> -1073741822.0) ((1336 . 5625) (+ 2 -1073741827.0) -> -1073741825.0) ((1337 . 5625) (+ 2 -1073741826.0) -> -1073741824.0) ((1338 . 5625) (+ 2 -1073741825.0) -> -1073741823.0) ((1339 . 5625) (+ 2 -1073741824.0) -> -1073741822.0) ((1340 . 5625) (+ 2 -1073741823.0) -> -1073741821.0) ((1341 . 5625) (+ 3 -1073741827.0) -> -1073741824.0) ((1342 . 5625) (+ 3 -1073741826.0) -> -1073741823.0) ((1343 . 5625) (+ 3 -1073741825.0) -> -1073741822.0) ((1344 . 5625) (+ 3 -1073741824.0) -> -1073741821.0) ((1345 . 5625) (+ 3 -1073741823.0) -> -1073741820.0) ((1346 . 5625) (+ 4 -1073741827.0) -> -1073741823.0) ((1347 . 5625) (+ 4 -1073741826.0) -> -1073741822.0) ((1348 . 5625) (+ 4 -1073741825.0) -> -1073741821.0) ((1349 . 5625) (+ 4 -1073741824.0) -> -1073741820.0) ((1350 . 5625) (+ 4 -1073741823.0) -> -1073741819.0) ((1351 . 5625) (+ 0 1103515243.0) -> 1103515243.0) ((1352 . 5625) (+ 0 1103515244.0) -> 1103515244.0) ((1353 . 5625) (+ 0 1103515245.0) -> 1103515245.0) ((1354 . 5625) (+ 0 1103515246.0) -> 1103515246.0) ((1355 . 5625) (+ 0 1103515247.0) -> 1103515247.0) ((1356 . 5625) (+ 1 1103515243.0) -> 1103515244.0) ((1357 . 5625) (+ 1 1103515244.0) -> 1103515245.0) ((1358 . 5625) (+ 1 1103515245.0) -> 1103515246.0) ((1359 . 5625) (+ 1 1103515246.0) -> 1103515247.0) ((1360 . 5625) (+ 1 1103515247.0) -> 1103515248.0) ((1361 . 5625) (+ 2 1103515243.0) -> 1103515245.0) ((1362 . 5625) (+ 2 1103515244.0) -> 1103515246.0) ((1363 . 5625) (+ 2 1103515245.0) -> 1103515247.0) ((1364 . 5625) (+ 2 1103515246.0) -> 1103515248.0) ((1365 . 5625) (+ 2 1103515247.0) -> 1103515249.0) ((1366 . 5625) (+ 3 1103515243.0) -> 1103515246.0) ((1367 . 5625) (+ 3 1103515244.0) -> 1103515247.0) ((1368 . 5625) (+ 3 1103515245.0) -> 1103515248.0) ((1369 . 5625) (+ 3 1103515246.0) -> 1103515249.0) ((1370 . 5625) (+ 3 1103515247.0) -> 1103515250.0) ((1371 . 5625) (+ 4 1103515243.0) -> 1103515247.0) ((1372 . 5625) (+ 4 1103515244.0) -> 1103515248.0) ((1373 . 5625) (+ 4 1103515245.0) -> 1103515249.0) ((1374 . 5625) (+ 4 1103515246.0) -> 1103515250.0) ((1375 . 5625) (+ 4 1103515247.0) -> 1103515251.0) ((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 9.00719925474099e+15) -> 9.00719925474099e+15) ((1402 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((1403 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((1404 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((1405 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((1406 . 5625) (+ 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1407 . 5625) (+ 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1408 . 5625) (+ 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1409 . 5625) (+ 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1410 . 5625) (+ 1 9.00719925474099e+15) -> 9.007199254741e+15) ((1411 . 5625) (+ 2 9.00719925474099e+15) -> 9.00719925474099e+15) ((1412 . 5625) (+ 2 9.00719925474099e+15) -> 9.00719925474099e+15) ((1413 . 5625) (+ 2 9.00719925474099e+15) -> 9.00719925474099e+15) ((1414 . 5625) (+ 2 9.00719925474099e+15) -> 9.00719925474099e+15) ((1415 . 5625) (+ 2 9.00719925474099e+15) -> 9.007199254741e+15) ((1416 . 5625) (+ 3 9.00719925474099e+15) -> 9.00719925474099e+15) ((1417 . 5625) (+ 3 9.00719925474099e+15) -> 9.00719925474099e+15) ((1418 . 5625) (+ 3 9.00719925474099e+15) -> 9.007199254741e+15) ((1419 . 5625) (+ 3 9.00719925474099e+15) -> 9.007199254741e+15) ((1420 . 5625) (+ 3 9.00719925474099e+15) -> 9.007199254741e+15) ((1421 . 5625) (+ 4 9.00719925474099e+15) -> 9.00719925474099e+15) ((1422 . 5625) (+ 4 9.00719925474099e+15) -> 9.007199254741e+15) ((1423 . 5625) (+ 4 9.00719925474099e+15) -> 9.007199254741e+15) ((1424 . 5625) (+ 4 9.00719925474099e+15) -> 9.007199254741e+15) ((1425 . 5625) (+ 4 9.00719925474099e+15) -> 9.007199254741e+15) ((1426 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1427 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1428 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1429 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1430 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1431 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1432 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1433 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1434 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1435 . 5625) (+ 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1436 . 5625) (+ 2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1437 . 5625) (+ 2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1438 . 5625) (+ 2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1439 . 5625) (+ 2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1440 . 5625) (+ 2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1441 . 5625) (+ 3 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1442 . 5625) (+ 3 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1443 . 5625) (+ 3 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1444 . 5625) (+ 3 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1445 . 5625) (+ 3 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1446 . 5625) (+ 4 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1447 . 5625) (+ 4 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1448 . 5625) (+ 4 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1449 . 5625) (+ 4 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1450 . 5625) (+ 4 -9.00719925474099e+15) -> -9.00719925474099e+15) ((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.0) -> 4294967294.0) ((1477 . 5625) (+ 0 4294967295.0) -> 4294967295.0) ((1478 . 5625) (+ 0 4294967296.0) -> 4294967296.0) ((1479 . 5625) (+ 0 4294967297.0) -> 4294967297.0) ((1480 . 5625) (+ 0 4294967298.0) -> 4294967298.0) ((1481 . 5625) (+ 1 4294967294.0) -> 4294967295.0) ((1482 . 5625) (+ 1 4294967295.0) -> 4294967296.0) ((1483 . 5625) (+ 1 4294967296.0) -> 4294967297.0) ((1484 . 5625) (+ 1 4294967297.0) -> 4294967298.0) ((1485 . 5625) (+ 1 4294967298.0) -> 4294967299.0) ((1486 . 5625) (+ 2 4294967294.0) -> 4294967296.0) ((1487 . 5625) (+ 2 4294967295.0) -> 4294967297.0) ((1488 . 5625) (+ 2 4294967296.0) -> 4294967298.0) ((1489 . 5625) (+ 2 4294967297.0) -> 4294967299.0) ((1490 . 5625) (+ 2 4294967298.0) -> 4294967300.0) ((1491 . 5625) (+ 3 4294967294.0) -> 4294967297.0) ((1492 . 5625) (+ 3 4294967295.0) -> 4294967298.0) ((1493 . 5625) (+ 3 4294967296.0) -> 4294967299.0) ((1494 . 5625) (+ 3 4294967297.0) -> 4294967300.0) ((1495 . 5625) (+ 3 4294967298.0) -> 4294967301.0) ((1496 . 5625) (+ 4 4294967294.0) -> 4294967298.0) ((1497 . 5625) (+ 4 4294967295.0) -> 4294967299.0) ((1498 . 5625) (+ 4 4294967296.0) -> 4294967300.0) ((1499 . 5625) (+ 4 4294967297.0) -> 4294967301.0) ((1500 . 5625) (+ 4 4294967298.0) -> 4294967302.0) ((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.0) -> 1073741820.0) ((1630 . 5625) (+ -4 1073741825.0) -> 1073741821.0) ((1631 . 5625) (+ -3 1073741821) -> 1073741818) ((1632 . 5625) (+ -3 1073741822) -> 1073741819) ((1633 . 5625) (+ -3 1073741823) -> 1073741820) ((1634 . 5625) (+ -3 1073741824.0) -> 1073741821.0) ((1635 . 5625) (+ -3 1073741825.0) -> 1073741822.0) ((1636 . 5625) (+ -2 1073741821) -> 1073741819) ((1637 . 5625) (+ -2 1073741822) -> 1073741820) ((1638 . 5625) (+ -2 1073741823) -> 1073741821) ((1639 . 5625) (+ -2 1073741824.0) -> 1073741822.0) ((1640 . 5625) (+ -2 1073741825.0) -> 1073741823.0) ((1641 . 5625) (+ -1 1073741821) -> 1073741820) ((1642 . 5625) (+ -1 1073741822) -> 1073741821) ((1643 . 5625) (+ -1 1073741823) -> 1073741822) ((1644 . 5625) (+ -1 1073741824.0) -> 1073741823.0) ((1645 . 5625) (+ -1 1073741825.0) -> 1073741824.0) ((1646 . 5625) (+ 0 1073741821) -> 1073741821) ((1647 . 5625) (+ 0 1073741822) -> 1073741822) ((1648 . 5625) (+ 0 1073741823) -> 1073741823) ((1649 . 5625) (+ 0 1073741824.0) -> 1073741824.0) ((1650 . 5625) (+ 0 1073741825.0) -> 1073741825.0) ((1651 . 5625) (+ -4 -1073741826.0) -> -1073741830.0) ((1652 . 5625) (+ -4 -1073741825.0) -> -1073741829.0) ((1653 . 5625) (+ -4 -1073741824) -> -1073741828.0) ((1654 . 5625) (+ -4 -1073741823) -> -1073741827.0) ((1655 . 5625) (+ -4 -1073741822) -> -1073741826.0) ((1656 . 5625) (+ -3 -1073741826.0) -> -1073741829.0) ((1657 . 5625) (+ -3 -1073741825.0) -> -1073741828.0) ((1658 . 5625) (+ -3 -1073741824) -> -1073741827.0) ((1659 . 5625) (+ -3 -1073741823) -> -1073741826.0) ((1660 . 5625) (+ -3 -1073741822) -> -1073741825.0) ((1661 . 5625) (+ -2 -1073741826.0) -> -1073741828.0) ((1662 . 5625) (+ -2 -1073741825.0) -> -1073741827.0) ((1663 . 5625) (+ -2 -1073741824) -> -1073741826.0) ((1664 . 5625) (+ -2 -1073741823) -> -1073741825.0) ((1665 . 5625) (+ -2 -1073741822) -> -1073741824) ((1666 . 5625) (+ -1 -1073741826.0) -> -1073741827.0) ((1667 . 5625) (+ -1 -1073741825.0) -> -1073741826.0) ((1668 . 5625) (+ -1 -1073741824) -> -1073741825.0) ((1669 . 5625) (+ -1 -1073741823) -> -1073741824) ((1670 . 5625) (+ -1 -1073741822) -> -1073741823) ((1671 . 5625) (+ 0 -1073741826.0) -> -1073741826.0) ((1672 . 5625) (+ 0 -1073741825.0) -> -1073741825.0) ((1673 . 5625) (+ 0 -1073741824) -> -1073741824) ((1674 . 5625) (+ 0 -1073741823) -> -1073741823) ((1675 . 5625) (+ 0 -1073741822) -> -1073741822) ((1676 . 5625) (+ -4 1073741822.0) -> 1073741818.0) ((1677 . 5625) (+ -4 1073741823.0) -> 1073741819.0) ((1678 . 5625) (+ -4 1073741824.0) -> 1073741820.0) ((1679 . 5625) (+ -4 1073741825.0) -> 1073741821.0) ((1680 . 5625) (+ -4 1073741826.0) -> 1073741822.0) ((1681 . 5625) (+ -3 1073741822.0) -> 1073741819.0) ((1682 . 5625) (+ -3 1073741823.0) -> 1073741820.0) ((1683 . 5625) (+ -3 1073741824.0) -> 1073741821.0) ((1684 . 5625) (+ -3 1073741825.0) -> 1073741822.0) ((1685 . 5625) (+ -3 1073741826.0) -> 1073741823.0) ((1686 . 5625) (+ -2 1073741822.0) -> 1073741820.0) ((1687 . 5625) (+ -2 1073741823.0) -> 1073741821.0) ((1688 . 5625) (+ -2 1073741824.0) -> 1073741822.0) ((1689 . 5625) (+ -2 1073741825.0) -> 1073741823.0) ((1690 . 5625) (+ -2 1073741826.0) -> 1073741824.0) ((1691 . 5625) (+ -1 1073741822.0) -> 1073741821.0) ((1692 . 5625) (+ -1 1073741823.0) -> 1073741822.0) ((1693 . 5625) (+ -1 1073741824.0) -> 1073741823.0) ((1694 . 5625) (+ -1 1073741825.0) -> 1073741824.0) ((1695 . 5625) (+ -1 1073741826.0) -> 1073741825.0) ((1696 . 5625) (+ 0 1073741822.0) -> 1073741822.0) ((1697 . 5625) (+ 0 1073741823.0) -> 1073741823.0) ((1698 . 5625) (+ 0 1073741824.0) -> 1073741824.0) ((1699 . 5625) (+ 0 1073741825.0) -> 1073741825.0) ((1700 . 5625) (+ 0 1073741826.0) -> 1073741826.0) ((1701 . 5625) (+ -4 -1073741827.0) -> -1073741831.0) ((1702 . 5625) (+ -4 -1073741826.0) -> -1073741830.0) ((1703 . 5625) (+ -4 -1073741825.0) -> -1073741829.0) ((1704 . 5625) (+ -4 -1073741824.0) -> -1073741828.0) ((1705 . 5625) (+ -4 -1073741823.0) -> -1073741827.0) ((1706 . 5625) (+ -3 -1073741827.0) -> -1073741830.0) ((1707 . 5625) (+ -3 -1073741826.0) -> -1073741829.0) ((1708 . 5625) (+ -3 -1073741825.0) -> -1073741828.0) ((1709 . 5625) (+ -3 -1073741824.0) -> -1073741827.0) ((1710 . 5625) (+ -3 -1073741823.0) -> -1073741826.0) ((1711 . 5625) (+ -2 -1073741827.0) -> -1073741829.0) ((1712 . 5625) (+ -2 -1073741826.0) -> -1073741828.0) ((1713 . 5625) (+ -2 -1073741825.0) -> -1073741827.0) ((1714 . 5625) (+ -2 -1073741824.0) -> -1073741826.0) ((1715 . 5625) (+ -2 -1073741823.0) -> -1073741825.0) ((1716 . 5625) (+ -1 -1073741827.0) -> -1073741828.0) ((1717 . 5625) (+ -1 -1073741826.0) -> -1073741827.0) ((1718 . 5625) (+ -1 -1073741825.0) -> -1073741826.0) ((1719 . 5625) (+ -1 -1073741824.0) -> -1073741825.0) ((1720 . 5625) (+ -1 -1073741823.0) -> -1073741824.0) ((1721 . 5625) (+ 0 -1073741827.0) -> -1073741827.0) ((1722 . 5625) (+ 0 -1073741826.0) -> -1073741826.0) ((1723 . 5625) (+ 0 -1073741825.0) -> -1073741825.0) ((1724 . 5625) (+ 0 -1073741824.0) -> -1073741824.0) ((1725 . 5625) (+ 0 -1073741823.0) -> -1073741823.0) ((1726 . 5625) (+ -4 1103515243.0) -> 1103515239.0) ((1727 . 5625) (+ -4 1103515244.0) -> 1103515240.0) ((1728 . 5625) (+ -4 1103515245.0) -> 1103515241.0) ((1729 . 5625) (+ -4 1103515246.0) -> 1103515242.0) ((1730 . 5625) (+ -4 1103515247.0) -> 1103515243.0) ((1731 . 5625) (+ -3 1103515243.0) -> 1103515240.0) ((1732 . 5625) (+ -3 1103515244.0) -> 1103515241.0) ((1733 . 5625) (+ -3 1103515245.0) -> 1103515242.0) ((1734 . 5625) (+ -3 1103515246.0) -> 1103515243.0) ((1735 . 5625) (+ -3 1103515247.0) -> 1103515244.0) ((1736 . 5625) (+ -2 1103515243.0) -> 1103515241.0) ((1737 . 5625) (+ -2 1103515244.0) -> 1103515242.0) ((1738 . 5625) (+ -2 1103515245.0) -> 1103515243.0) ((1739 . 5625) (+ -2 1103515246.0) -> 1103515244.0) ((1740 . 5625) (+ -2 1103515247.0) -> 1103515245.0) ((1741 . 5625) (+ -1 1103515243.0) -> 1103515242.0) ((1742 . 5625) (+ -1 1103515244.0) -> 1103515243.0) ((1743 . 5625) (+ -1 1103515245.0) -> 1103515244.0) ((1744 . 5625) (+ -1 1103515246.0) -> 1103515245.0) ((1745 . 5625) (+ -1 1103515247.0) -> 1103515246.0) ((1746 . 5625) (+ 0 1103515243.0) -> 1103515243.0) ((1747 . 5625) (+ 0 1103515244.0) -> 1103515244.0) ((1748 . 5625) (+ 0 1103515245.0) -> 1103515245.0) ((1749 . 5625) (+ 0 1103515246.0) -> 1103515246.0) ((1750 . 5625) (+ 0 1103515247.0) -> 1103515247.0) ((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 9.00719925474099e+15) -> 9.00719925474099e+15) ((1777 . 5625) (+ -4 9.00719925474099e+15) -> 9.00719925474099e+15) ((1778 . 5625) (+ -4 9.00719925474099e+15) -> 9.00719925474099e+15) ((1779 . 5625) (+ -4 9.00719925474099e+15) -> 9.00719925474099e+15) ((1780 . 5625) (+ -4 9.00719925474099e+15) -> 9.00719925474099e+15) ((1781 . 5625) (+ -3 9.00719925474099e+15) -> 9.00719925474099e+15) ((1782 . 5625) (+ -3 9.00719925474099e+15) -> 9.00719925474099e+15) ((1783 . 5625) (+ -3 9.00719925474099e+15) -> 9.00719925474099e+15) ((1784 . 5625) (+ -3 9.00719925474099e+15) -> 9.00719925474099e+15) ((1785 . 5625) (+ -3 9.00719925474099e+15) -> 9.00719925474099e+15) ((1786 . 5625) (+ -2 9.00719925474099e+15) -> 9.00719925474099e+15) ((1787 . 5625) (+ -2 9.00719925474099e+15) -> 9.00719925474099e+15) ((1788 . 5625) (+ -2 9.00719925474099e+15) -> 9.00719925474099e+15) ((1789 . 5625) (+ -2 9.00719925474099e+15) -> 9.00719925474099e+15) ((1790 . 5625) (+ -2 9.00719925474099e+15) -> 9.00719925474099e+15) ((1791 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1792 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1793 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1794 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1795 . 5625) (+ -1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1796 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((1797 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((1798 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((1799 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((1800 . 5625) (+ 0 9.00719925474099e+15) -> 9.00719925474099e+15) ((1801 . 5625) (+ -4 -9.00719925474099e+15) -> -9.007199254741e+15) ((1802 . 5625) (+ -4 -9.00719925474099e+15) -> -9.007199254741e+15) ((1803 . 5625) (+ -4 -9.00719925474099e+15) -> -9.007199254741e+15) ((1804 . 5625) (+ -4 -9.00719925474099e+15) -> -9.007199254741e+15) ((1805 . 5625) (+ -4 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1806 . 5625) (+ -3 -9.00719925474099e+15) -> -9.007199254741e+15) ((1807 . 5625) (+ -3 -9.00719925474099e+15) -> -9.007199254741e+15) ((1808 . 5625) (+ -3 -9.00719925474099e+15) -> -9.007199254741e+15) ((1809 . 5625) (+ -3 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1810 . 5625) (+ -3 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1811 . 5625) (+ -2 -9.00719925474099e+15) -> -9.007199254741e+15) ((1812 . 5625) (+ -2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1813 . 5625) (+ -2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1814 . 5625) (+ -2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1815 . 5625) (+ -2 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1816 . 5625) (+ -1 -9.00719925474099e+15) -> -9.007199254741e+15) ((1817 . 5625) (+ -1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1818 . 5625) (+ -1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1819 . 5625) (+ -1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1820 . 5625) (+ -1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1821 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1822 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1823 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1824 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1825 . 5625) (+ 0 -9.00719925474099e+15) -> -9.00719925474099e+15) ((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.0) -> 4294967290.0) ((1852 . 5625) (+ -4 4294967295.0) -> 4294967291.0) ((1853 . 5625) (+ -4 4294967296.0) -> 4294967292.0) ((1854 . 5625) (+ -4 4294967297.0) -> 4294967293.0) ((1855 . 5625) (+ -4 4294967298.0) -> 4294967294.0) ((1856 . 5625) (+ -3 4294967294.0) -> 4294967291.0) ((1857 . 5625) (+ -3 4294967295.0) -> 4294967292.0) ((1858 . 5625) (+ -3 4294967296.0) -> 4294967293.0) ((1859 . 5625) (+ -3 4294967297.0) -> 4294967294.0) ((1860 . 5625) (+ -3 4294967298.0) -> 4294967295.0) ((1861 . 5625) (+ -2 4294967294.0) -> 4294967292.0) ((1862 . 5625) (+ -2 4294967295.0) -> 4294967293.0) ((1863 . 5625) (+ -2 4294967296.0) -> 4294967294.0) ((1864 . 5625) (+ -2 4294967297.0) -> 4294967295.0) ((1865 . 5625) (+ -2 4294967298.0) -> 4294967296.0) ((1866 . 5625) (+ -1 4294967294.0) -> 4294967293.0) ((1867 . 5625) (+ -1 4294967295.0) -> 4294967294.0) ((1868 . 5625) (+ -1 4294967296.0) -> 4294967295.0) ((1869 . 5625) (+ -1 4294967297.0) -> 4294967296.0) ((1870 . 5625) (+ -1 4294967298.0) -> 4294967297.0) ((1871 . 5625) (+ 0 4294967294.0) -> 4294967294.0) ((1872 . 5625) (+ 0 4294967295.0) -> 4294967295.0) ((1873 . 5625) (+ 0 4294967296.0) -> 4294967296.0) ((1874 . 5625) (+ 0 4294967297.0) -> 4294967297.0) ((1875 . 5625) (+ 0 4294967298.0) -> 4294967298.0) ((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.0) ((1886 . 5625) (+ 1073741823 -2) -> 1073741821) ((1887 . 5625) (+ 1073741823 -1) -> 1073741822) ((1888 . 5625) (+ 1073741823 0) -> 1073741823) ((1889 . 5625) (+ 1073741823 1) -> 1073741824.0) ((1890 . 5625) (+ 1073741823 2) -> 1073741825.0) ((1891 . 5625) (+ 1073741824.0 -2) -> 1073741822.0) ((1892 . 5625) (+ 1073741824.0 -1) -> 1073741823.0) ((1893 . 5625) (+ 1073741824.0 0) -> 1073741824.0) ((1894 . 5625) (+ 1073741824.0 1) -> 1073741825.0) ((1895 . 5625) (+ 1073741824.0 2) -> 1073741826.0) ((1896 . 5625) (+ 1073741825.0 -2) -> 1073741823.0) ((1897 . 5625) (+ 1073741825.0 -1) -> 1073741824.0) ((1898 . 5625) (+ 1073741825.0 0) -> 1073741825.0) ((1899 . 5625) (+ 1073741825.0 1) -> 1073741826.0) ((1900 . 5625) (+ 1073741825.0 2) -> 1073741827.0) ((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.0) ((1906 . 5625) (+ 1073741822 -1) -> 1073741821) ((1907 . 5625) (+ 1073741822 0) -> 1073741822) ((1908 . 5625) (+ 1073741822 1) -> 1073741823) ((1909 . 5625) (+ 1073741822 2) -> 1073741824.0) ((1910 . 5625) (+ 1073741822 3) -> 1073741825.0) ((1911 . 5625) (+ 1073741823 -1) -> 1073741822) ((1912 . 5625) (+ 1073741823 0) -> 1073741823) ((1913 . 5625) (+ 1073741823 1) -> 1073741824.0) ((1914 . 5625) (+ 1073741823 2) -> 1073741825.0) ((1915 . 5625) (+ 1073741823 3) -> 1073741826.0) ((1916 . 5625) (+ 1073741824.0 -1) -> 1073741823.0) ((1917 . 5625) (+ 1073741824.0 0) -> 1073741824.0) ((1918 . 5625) (+ 1073741824.0 1) -> 1073741825.0) ((1919 . 5625) (+ 1073741824.0 2) -> 1073741826.0) ((1920 . 5625) (+ 1073741824.0 3) -> 1073741827.0) ((1921 . 5625) (+ 1073741825.0 -1) -> 1073741824.0) ((1922 . 5625) (+ 1073741825.0 0) -> 1073741825.0) ((1923 . 5625) (+ 1073741825.0 1) -> 1073741826.0) ((1924 . 5625) (+ 1073741825.0 2) -> 1073741827.0) ((1925 . 5625) (+ 1073741825.0 3) -> 1073741828.0) ((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.0) ((1941 . 5625) (+ 1073741824.0 -3) -> 1073741821.0) ((1942 . 5625) (+ 1073741824.0 -2) -> 1073741822.0) ((1943 . 5625) (+ 1073741824.0 -1) -> 1073741823.0) ((1944 . 5625) (+ 1073741824.0 0) -> 1073741824.0) ((1945 . 5625) (+ 1073741824.0 1) -> 1073741825.0) ((1946 . 5625) (+ 1073741825.0 -3) -> 1073741822.0) ((1947 . 5625) (+ 1073741825.0 -2) -> 1073741823.0) ((1948 . 5625) (+ 1073741825.0 -1) -> 1073741824.0) ((1949 . 5625) (+ 1073741825.0 0) -> 1073741825.0) ((1950 . 5625) (+ 1073741825.0 1) -> 1073741826.0) ((1951 . 5625) (+ 1073741821 0) -> 1073741821) ((1952 . 5625) (+ 1073741821 1) -> 1073741822) ((1953 . 5625) (+ 1073741821 2) -> 1073741823) ((1954 . 5625) (+ 1073741821 3) -> 1073741824.0) ((1955 . 5625) (+ 1073741821 4) -> 1073741825.0) ((1956 . 5625) (+ 1073741822 0) -> 1073741822) ((1957 . 5625) (+ 1073741822 1) -> 1073741823) ((1958 . 5625) (+ 1073741822 2) -> 1073741824.0) ((1959 . 5625) (+ 1073741822 3) -> 1073741825.0) ((1960 . 5625) (+ 1073741822 4) -> 1073741826.0) ((1961 . 5625) (+ 1073741823 0) -> 1073741823) ((1962 . 5625) (+ 1073741823 1) -> 1073741824.0) ((1963 . 5625) (+ 1073741823 2) -> 1073741825.0) ((1964 . 5625) (+ 1073741823 3) -> 1073741826.0) ((1965 . 5625) (+ 1073741823 4) -> 1073741827.0) ((1966 . 5625) (+ 1073741824.0 0) -> 1073741824.0) ((1967 . 5625) (+ 1073741824.0 1) -> 1073741825.0) ((1968 . 5625) (+ 1073741824.0 2) -> 1073741826.0) ((1969 . 5625) (+ 1073741824.0 3) -> 1073741827.0) ((1970 . 5625) (+ 1073741824.0 4) -> 1073741828.0) ((1971 . 5625) (+ 1073741825.0 0) -> 1073741825.0) ((1972 . 5625) (+ 1073741825.0 1) -> 1073741826.0) ((1973 . 5625) (+ 1073741825.0 2) -> 1073741827.0) ((1974 . 5625) (+ 1073741825.0 3) -> 1073741828.0) ((1975 . 5625) (+ 1073741825.0 4) -> 1073741829.0) ((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.0 -4) -> 1073741820.0) ((1992 . 5625) (+ 1073741824.0 -3) -> 1073741821.0) ((1993 . 5625) (+ 1073741824.0 -2) -> 1073741822.0) ((1994 . 5625) (+ 1073741824.0 -1) -> 1073741823.0) ((1995 . 5625) (+ 1073741824.0 0) -> 1073741824.0) ((1996 . 5625) (+ 1073741825.0 -4) -> 1073741821.0) ((1997 . 5625) (+ 1073741825.0 -3) -> 1073741822.0) ((1998 . 5625) (+ 1073741825.0 -2) -> 1073741823.0) ((1999 . 5625) (+ 1073741825.0 -1) -> 1073741824.0) ((2000 . 5625) (+ 1073741825.0 0) -> 1073741825.0) ((2001 . 5625) (+ 1073741821 1073741821) -> 2147483642.0) ((2002 . 5625) (+ 1073741821 1073741822) -> 2147483643.0) ((2003 . 5625) (+ 1073741821 1073741823) -> 2147483644.0) ((2004 . 5625) (+ 1073741821 1073741824.0) -> 2147483645.0) ((2005 . 5625) (+ 1073741821 1073741825.0) -> 2147483646.0) ((2006 . 5625) (+ 1073741822 1073741821) -> 2147483643.0) ((2007 . 5625) (+ 1073741822 1073741822) -> 2147483644.0) ((2008 . 5625) (+ 1073741822 1073741823) -> 2147483645.0) ((2009 . 5625) (+ 1073741822 1073741824.0) -> 2147483646.0) ((2010 . 5625) (+ 1073741822 1073741825.0) -> 2147483647.0) ((2011 . 5625) (+ 1073741823 1073741821) -> 2147483644.0) ((2012 . 5625) (+ 1073741823 1073741822) -> 2147483645.0) ((2013 . 5625) (+ 1073741823 1073741823) -> 2147483646.0) ((2014 . 5625) (+ 1073741823 1073741824.0) -> 2147483647.0) ((2015 . 5625) (+ 1073741823 1073741825.0) -> 2147483648.0) ((2016 . 5625) (+ 1073741824.0 1073741821) -> 2147483645.0) ((2017 . 5625) (+ 1073741824.0 1073741822) -> 2147483646.0) ((2018 . 5625) (+ 1073741824.0 1073741823) -> 2147483647.0) ((2019 . 5625) (+ 1073741824.0 1073741824.0) -> 2147483648.0) ((2020 . 5625) (+ 1073741824.0 1073741825.0) -> 2147483649.0) ((2021 . 5625) (+ 1073741825.0 1073741821) -> 2147483646.0) ((2022 . 5625) (+ 1073741825.0 1073741822) -> 2147483647.0) ((2023 . 5625) (+ 1073741825.0 1073741823) -> 2147483648.0) ((2024 . 5625) (+ 1073741825.0 1073741824.0) -> 2147483649.0) ((2025 . 5625) (+ 1073741825.0 1073741825.0) -> 2147483650.0) ((2026 . 5625) (+ 1073741821 -1073741826.0) -> -5.0) ((2027 . 5625) (+ 1073741821 -1073741825.0) -> -4.0) ((2028 . 5625) (+ 1073741821 -1073741824) -> -3) ((2029 . 5625) (+ 1073741821 -1073741823) -> -2) ((2030 . 5625) (+ 1073741821 -1073741822) -> -1) ((2031 . 5625) (+ 1073741822 -1073741826.0) -> -4.0) ((2032 . 5625) (+ 1073741822 -1073741825.0) -> -3.0) ((2033 . 5625) (+ 1073741822 -1073741824) -> -2) ((2034 . 5625) (+ 1073741822 -1073741823) -> -1) ((2035 . 5625) (+ 1073741822 -1073741822) -> 0) ((2036 . 5625) (+ 1073741823 -1073741826.0) -> -3.0) ((2037 . 5625) (+ 1073741823 -1073741825.0) -> -2.0) ((2038 . 5625) (+ 1073741823 -1073741824) -> -1) ((2039 . 5625) (+ 1073741823 -1073741823) -> 0) ((2040 . 5625) (+ 1073741823 -1073741822) -> 1) ((2041 . 5625) (+ 1073741824.0 -1073741826.0) -> -2.0) ((2042 . 5625) (+ 1073741824.0 -1073741825.0) -> -1.0) ((2043 . 5625) (+ 1073741824.0 -1073741824) -> 0.0) ((2044 . 5625) (+ 1073741824.0 -1073741823) -> 1.0) ((2045 . 5625) (+ 1073741824.0 -1073741822) -> 2.0) ((2046 . 5625) (+ 1073741825.0 -1073741826.0) -> -1.0) ((2047 . 5625) (+ 1073741825.0 -1073741825.0) -> 0.0) ((2048 . 5625) (+ 1073741825.0 -1073741824) -> 1.0) ((2049 . 5625) (+ 1073741825.0 -1073741823) -> 2.0) ((2050 . 5625) (+ 1073741825.0 -1073741822) -> 3.0) ((2051 . 5625) (+ 1073741821 1073741822.0) -> 2147483643.0) ((2052 . 5625) (+ 1073741821 1073741823.0) -> 2147483644.0) ((2053 . 5625) (+ 1073741821 1073741824.0) -> 2147483645.0) ((2054 . 5625) (+ 1073741821 1073741825.0) -> 2147483646.0) ((2055 . 5625) (+ 1073741821 1073741826.0) -> 2147483647.0) ((2056 . 5625) (+ 1073741822 1073741822.0) -> 2147483644.0) ((2057 . 5625) (+ 1073741822 1073741823.0) -> 2147483645.0) ((2058 . 5625) (+ 1073741822 1073741824.0) -> 2147483646.0) ((2059 . 5625) (+ 1073741822 1073741825.0) -> 2147483647.0) ((2060 . 5625) (+ 1073741822 1073741826.0) -> 2147483648.0) ((2061 . 5625) (+ 1073741823 1073741822.0) -> 2147483645.0) ((2062 . 5625) (+ 1073741823 1073741823.0) -> 2147483646.0) ((2063 . 5625) (+ 1073741823 1073741824.0) -> 2147483647.0) ((2064 . 5625) (+ 1073741823 1073741825.0) -> 2147483648.0) ((2065 . 5625) (+ 1073741823 1073741826.0) -> 2147483649.0) ((2066 . 5625) (+ 1073741824.0 1073741822.0) -> 2147483646.0) ((2067 . 5625) (+ 1073741824.0 1073741823.0) -> 2147483647.0) ((2068 . 5625) (+ 1073741824.0 1073741824.0) -> 2147483648.0) ((2069 . 5625) (+ 1073741824.0 1073741825.0) -> 2147483649.0) ((2070 . 5625) (+ 1073741824.0 1073741826.0) -> 2147483650.0) ((2071 . 5625) (+ 1073741825.0 1073741822.0) -> 2147483647.0) ((2072 . 5625) (+ 1073741825.0 1073741823.0) -> 2147483648.0) ((2073 . 5625) (+ 1073741825.0 1073741824.0) -> 2147483649.0) ((2074 . 5625) (+ 1073741825.0 1073741825.0) -> 2147483650.0) ((2075 . 5625) (+ 1073741825.0 1073741826.0) -> 2147483651.0) ((2076 . 5625) (+ 1073741821 -1073741827.0) -> -6.0) ((2077 . 5625) (+ 1073741821 -1073741826.0) -> -5.0) ((2078 . 5625) (+ 1073741821 -1073741825.0) -> -4.0) ((2079 . 5625) (+ 1073741821 -1073741824.0) -> -3.0) ((2080 . 5625) (+ 1073741821 -1073741823.0) -> -2.0) ((2081 . 5625) (+ 1073741822 -1073741827.0) -> -5.0) ((2082 . 5625) (+ 1073741822 -1073741826.0) -> -4.0) ((2083 . 5625) (+ 1073741822 -1073741825.0) -> -3.0) ((2084 . 5625) (+ 1073741822 -1073741824.0) -> -2.0) ((2085 . 5625) (+ 1073741822 -1073741823.0) -> -1.0) ((2086 . 5625) (+ 1073741823 -1073741827.0) -> -4.0) ((2087 . 5625) (+ 1073741823 -1073741826.0) -> -3.0) ((2088 . 5625) (+ 1073741823 -1073741825.0) -> -2.0) ((2089 . 5625) (+ 1073741823 -1073741824.0) -> -1.0) ((2090 . 5625) (+ 1073741823 -1073741823.0) -> 0.0) ((2091 . 5625) (+ 1073741824.0 -1073741827.0) -> -3.0) ((2092 . 5625) (+ 1073741824.0 -1073741826.0) -> -2.0) ((2093 . 5625) (+ 1073741824.0 -1073741825.0) -> -1.0) ((2094 . 5625) (+ 1073741824.0 -1073741824.0) -> 0.0) ((2095 . 5625) (+ 1073741824.0 -1073741823.0) -> 1.0) ((2096 . 5625) (+ 1073741825.0 -1073741827.0) -> -2.0) ((2097 . 5625) (+ 1073741825.0 -1073741826.0) -> -1.0) ((2098 . 5625) (+ 1073741825.0 -1073741825.0) -> 0.0) ((2099 . 5625) (+ 1073741825.0 -1073741824.0) -> 1.0) ((2100 . 5625) (+ 1073741825.0 -1073741823.0) -> 2.0) ((2101 . 5625) (+ 1073741821 1103515243.0) -> 2177257064.0) ((2102 . 5625) (+ 1073741821 1103515244.0) -> 2177257065.0) ((2103 . 5625) (+ 1073741821 1103515245.0) -> 2177257066.0) ((2104 . 5625) (+ 1073741821 1103515246.0) -> 2177257067.0) ((2105 . 5625) (+ 1073741821 1103515247.0) -> 2177257068.0) ((2106 . 5625) (+ 1073741822 1103515243.0) -> 2177257065.0) ((2107 . 5625) (+ 1073741822 1103515244.0) -> 2177257066.0) ((2108 . 5625) (+ 1073741822 1103515245.0) -> 2177257067.0) ((2109 . 5625) (+ 1073741822 1103515246.0) -> 2177257068.0) ((2110 . 5625) (+ 1073741822 1103515247.0) -> 2177257069.0) ((2111 . 5625) (+ 1073741823 1103515243.0) -> 2177257066.0) ((2112 . 5625) (+ 1073741823 1103515244.0) -> 2177257067.0) ((2113 . 5625) (+ 1073741823 1103515245.0) -> 2177257068.0) ((2114 . 5625) (+ 1073741823 1103515246.0) -> 2177257069.0) ((2115 . 5625) (+ 1073741823 1103515247.0) -> 2177257070.0) ((2116 . 5625) (+ 1073741824.0 1103515243.0) -> 2177257067.0) ((2117 . 5625) (+ 1073741824.0 1103515244.0) -> 2177257068.0) ((2118 . 5625) (+ 1073741824.0 1103515245.0) -> 2177257069.0) ((2119 . 5625) (+ 1073741824.0 1103515246.0) -> 2177257070.0) ((2120 . 5625) (+ 1073741824.0 1103515247.0) -> 2177257071.0) ((2121 . 5625) (+ 1073741825.0 1103515243.0) -> 2177257068.0) ((2122 . 5625) (+ 1073741825.0 1103515244.0) -> 2177257069.0) ((2123 . 5625) (+ 1073741825.0 1103515245.0) -> 2177257070.0) ((2124 . 5625) (+ 1073741825.0 1103515246.0) -> 2177257071.0) ((2125 . 5625) (+ 1073741825.0 1103515247.0) -> 2177257072.0) ((2126 . 5625) (+ 1073741821 631629063) -> 1705370884.0) ((2127 . 5625) (+ 1073741821 631629064) -> 1705370885.0) ((2128 . 5625) (+ 1073741821 631629065) -> 1705370886.0) ((2129 . 5625) (+ 1073741821 631629066) -> 1705370887.0) ((2130 . 5625) (+ 1073741821 631629067) -> 1705370888.0) ((2131 . 5625) (+ 1073741822 631629063) -> 1705370885.0) ((2132 . 5625) (+ 1073741822 631629064) -> 1705370886.0) ((2133 . 5625) (+ 1073741822 631629065) -> 1705370887.0) ((2134 . 5625) (+ 1073741822 631629066) -> 1705370888.0) ((2135 . 5625) (+ 1073741822 631629067) -> 1705370889.0) ((2136 . 5625) (+ 1073741823 631629063) -> 1705370886.0) ((2137 . 5625) (+ 1073741823 631629064) -> 1705370887.0) ((2138 . 5625) (+ 1073741823 631629065) -> 1705370888.0) ((2139 . 5625) (+ 1073741823 631629066) -> 1705370889.0) ((2140 . 5625) (+ 1073741823 631629067) -> 1705370890.0) ((2141 . 5625) (+ 1073741824.0 631629063) -> 1705370887.0) ((2142 . 5625) (+ 1073741824.0 631629064) -> 1705370888.0) ((2143 . 5625) (+ 1073741824.0 631629065) -> 1705370889.0) ((2144 . 5625) (+ 1073741824.0 631629066) -> 1705370890.0) ((2145 . 5625) (+ 1073741824.0 631629067) -> 1705370891.0) ((2146 . 5625) (+ 1073741825.0 631629063) -> 1705370888.0) ((2147 . 5625) (+ 1073741825.0 631629064) -> 1705370889.0) ((2148 . 5625) (+ 1073741825.0 631629065) -> 1705370890.0) ((2149 . 5625) (+ 1073741825.0 631629066) -> 1705370891.0) ((2150 . 5625) (+ 1073741825.0 631629067) -> 1705370892.0) ((2151 . 5625) (+ 1073741821 9.00719925474099e+15) -> 9.00720032848281e+15) ((2152 . 5625) (+ 1073741821 9.00719925474099e+15) -> 9.00720032848281e+15) ((2153 . 5625) (+ 1073741821 9.00719925474099e+15) -> 9.00720032848281e+15) ((2154 . 5625) (+ 1073741821 9.00719925474099e+15) -> 9.00720032848281e+15) ((2155 . 5625) (+ 1073741821 9.00719925474099e+15) -> 9.00720032848282e+15) ((2156 . 5625) (+ 1073741822 9.00719925474099e+15) -> 9.00720032848281e+15) ((2157 . 5625) (+ 1073741822 9.00719925474099e+15) -> 9.00720032848281e+15) ((2158 . 5625) (+ 1073741822 9.00719925474099e+15) -> 9.00720032848281e+15) ((2159 . 5625) (+ 1073741822 9.00719925474099e+15) -> 9.00720032848281e+15) ((2160 . 5625) (+ 1073741822 9.00719925474099e+15) -> 9.00720032848282e+15) ((2161 . 5625) (+ 1073741823 9.00719925474099e+15) -> 9.00720032848281e+15) ((2162 . 5625) (+ 1073741823 9.00719925474099e+15) -> 9.00720032848281e+15) ((2163 . 5625) (+ 1073741823 9.00719925474099e+15) -> 9.00720032848282e+15) ((2164 . 5625) (+ 1073741823 9.00719925474099e+15) -> 9.00720032848282e+15) ((2165 . 5625) (+ 1073741823 9.00719925474099e+15) -> 9.00720032848282e+15) ((2166 . 5625) (+ 1073741824.0 9.00719925474099e+15) -> 9.00720032848281e+15) ((2167 . 5625) (+ 1073741824.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2168 . 5625) (+ 1073741824.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2169 . 5625) (+ 1073741824.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2170 . 5625) (+ 1073741824.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2171 . 5625) (+ 1073741825.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2172 . 5625) (+ 1073741825.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2173 . 5625) (+ 1073741825.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2174 . 5625) (+ 1073741825.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2175 . 5625) (+ 1073741825.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2176 . 5625) (+ 1073741821 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2177 . 5625) (+ 1073741821 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2178 . 5625) (+ 1073741821 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2179 . 5625) (+ 1073741821 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2180 . 5625) (+ 1073741821 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2181 . 5625) (+ 1073741822 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2182 . 5625) (+ 1073741822 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2183 . 5625) (+ 1073741822 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2184 . 5625) (+ 1073741822 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2185 . 5625) (+ 1073741822 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2186 . 5625) (+ 1073741823 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2187 . 5625) (+ 1073741823 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2188 . 5625) (+ 1073741823 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2189 . 5625) (+ 1073741823 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2190 . 5625) (+ 1073741823 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2191 . 5625) (+ 1073741824.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2192 . 5625) (+ 1073741824.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2193 . 5625) (+ 1073741824.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2194 . 5625) (+ 1073741824.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2195 . 5625) (+ 1073741824.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2196 . 5625) (+ 1073741825.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2197 . 5625) (+ 1073741825.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2198 . 5625) (+ 1073741825.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2199 . 5625) (+ 1073741825.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2200 . 5625) (+ 1073741825.0 -9.00719925474099e+15) -> -9.00719818099916e+15) ((2201 . 5625) (+ 1073741821 12343) -> 1073754164.0) ((2202 . 5625) (+ 1073741821 12344) -> 1073754165.0) ((2203 . 5625) (+ 1073741821 12345) -> 1073754166.0) ((2204 . 5625) (+ 1073741821 12346) -> 1073754167.0) ((2205 . 5625) (+ 1073741821 12347) -> 1073754168.0) ((2206 . 5625) (+ 1073741822 12343) -> 1073754165.0) ((2207 . 5625) (+ 1073741822 12344) -> 1073754166.0) ((2208 . 5625) (+ 1073741822 12345) -> 1073754167.0) ((2209 . 5625) (+ 1073741822 12346) -> 1073754168.0) ((2210 . 5625) (+ 1073741822 12347) -> 1073754169.0) ((2211 . 5625) (+ 1073741823 12343) -> 1073754166.0) ((2212 . 5625) (+ 1073741823 12344) -> 1073754167.0) ((2213 . 5625) (+ 1073741823 12345) -> 1073754168.0) ((2214 . 5625) (+ 1073741823 12346) -> 1073754169.0) ((2215 . 5625) (+ 1073741823 12347) -> 1073754170.0) ((2216 . 5625) (+ 1073741824.0 12343) -> 1073754167.0) ((2217 . 5625) (+ 1073741824.0 12344) -> 1073754168.0) ((2218 . 5625) (+ 1073741824.0 12345) -> 1073754169.0) ((2219 . 5625) (+ 1073741824.0 12346) -> 1073754170.0) ((2220 . 5625) (+ 1073741824.0 12347) -> 1073754171.0) ((2221 . 5625) (+ 1073741825.0 12343) -> 1073754168.0) ((2222 . 5625) (+ 1073741825.0 12344) -> 1073754169.0) ((2223 . 5625) (+ 1073741825.0 12345) -> 1073754170.0) ((2224 . 5625) (+ 1073741825.0 12346) -> 1073754171.0) ((2225 . 5625) (+ 1073741825.0 12347) -> 1073754172.0) ((2226 . 5625) (+ 1073741821 4294967294.0) -> 5368709115.0) ((2227 . 5625) (+ 1073741821 4294967295.0) -> 5368709116.0) ((2228 . 5625) (+ 1073741821 4294967296.0) -> 5368709117.0) ((2229 . 5625) (+ 1073741821 4294967297.0) -> 5368709118.0) ((2230 . 5625) (+ 1073741821 4294967298.0) -> 5368709119.0) ((2231 . 5625) (+ 1073741822 4294967294.0) -> 5368709116.0) ((2232 . 5625) (+ 1073741822 4294967295.0) -> 5368709117.0) ((2233 . 5625) (+ 1073741822 4294967296.0) -> 5368709118.0) ((2234 . 5625) (+ 1073741822 4294967297.0) -> 5368709119.0) ((2235 . 5625) (+ 1073741822 4294967298.0) -> 5368709120.0) ((2236 . 5625) (+ 1073741823 4294967294.0) -> 5368709117.0) ((2237 . 5625) (+ 1073741823 4294967295.0) -> 5368709118.0) ((2238 . 5625) (+ 1073741823 4294967296.0) -> 5368709119.0) ((2239 . 5625) (+ 1073741823 4294967297.0) -> 5368709120.0) ((2240 . 5625) (+ 1073741823 4294967298.0) -> 5368709121.0) ((2241 . 5625) (+ 1073741824.0 4294967294.0) -> 5368709118.0) ((2242 . 5625) (+ 1073741824.0 4294967295.0) -> 5368709119.0) ((2243 . 5625) (+ 1073741824.0 4294967296.0) -> 5368709120.0) ((2244 . 5625) (+ 1073741824.0 4294967297.0) -> 5368709121.0) ((2245 . 5625) (+ 1073741824.0 4294967298.0) -> 5368709122.0) ((2246 . 5625) (+ 1073741825.0 4294967294.0) -> 5368709119.0) ((2247 . 5625) (+ 1073741825.0 4294967295.0) -> 5368709120.0) ((2248 . 5625) (+ 1073741825.0 4294967296.0) -> 5368709121.0) ((2249 . 5625) (+ 1073741825.0 4294967297.0) -> 5368709122.0) ((2250 . 5625) (+ 1073741825.0 4294967298.0) -> 5368709123.0) ((2251 . 5625) (+ -1073741826.0 -2) -> -1073741828.0) ((2252 . 5625) (+ -1073741826.0 -1) -> -1073741827.0) ((2253 . 5625) (+ -1073741826.0 0) -> -1073741826.0) ((2254 . 5625) (+ -1073741826.0 1) -> -1073741825.0) ((2255 . 5625) (+ -1073741826.0 2) -> -1073741824.0) ((2256 . 5625) (+ -1073741825.0 -2) -> -1073741827.0) ((2257 . 5625) (+ -1073741825.0 -1) -> -1073741826.0) ((2258 . 5625) (+ -1073741825.0 0) -> -1073741825.0) ((2259 . 5625) (+ -1073741825.0 1) -> -1073741824.0) ((2260 . 5625) (+ -1073741825.0 2) -> -1073741823.0) ((2261 . 5625) (+ -1073741824 -2) -> -1073741826.0) ((2262 . 5625) (+ -1073741824 -1) -> -1073741825.0) ((2263 . 5625) (+ -1073741824 0) -> -1073741824) ((2264 . 5625) (+ -1073741824 1) -> -1073741823) ((2265 . 5625) (+ -1073741824 2) -> -1073741822) ((2266 . 5625) (+ -1073741823 -2) -> -1073741825.0) ((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.0 -1) -> -1073741827.0) ((2277 . 5625) (+ -1073741826.0 0) -> -1073741826.0) ((2278 . 5625) (+ -1073741826.0 1) -> -1073741825.0) ((2279 . 5625) (+ -1073741826.0 2) -> -1073741824.0) ((2280 . 5625) (+ -1073741826.0 3) -> -1073741823.0) ((2281 . 5625) (+ -1073741825.0 -1) -> -1073741826.0) ((2282 . 5625) (+ -1073741825.0 0) -> -1073741825.0) ((2283 . 5625) (+ -1073741825.0 1) -> -1073741824.0) ((2284 . 5625) (+ -1073741825.0 2) -> -1073741823.0) ((2285 . 5625) (+ -1073741825.0 3) -> -1073741822.0) ((2286 . 5625) (+ -1073741824 -1) -> -1073741825.0) ((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.0 -3) -> -1073741829.0) ((2302 . 5625) (+ -1073741826.0 -2) -> -1073741828.0) ((2303 . 5625) (+ -1073741826.0 -1) -> -1073741827.0) ((2304 . 5625) (+ -1073741826.0 0) -> -1073741826.0) ((2305 . 5625) (+ -1073741826.0 1) -> -1073741825.0) ((2306 . 5625) (+ -1073741825.0 -3) -> -1073741828.0) ((2307 . 5625) (+ -1073741825.0 -2) -> -1073741827.0) ((2308 . 5625) (+ -1073741825.0 -1) -> -1073741826.0) ((2309 . 5625) (+ -1073741825.0 0) -> -1073741825.0) ((2310 . 5625) (+ -1073741825.0 1) -> -1073741824.0) ((2311 . 5625) (+ -1073741824 -3) -> -1073741827.0) ((2312 . 5625) (+ -1073741824 -2) -> -1073741826.0) ((2313 . 5625) (+ -1073741824 -1) -> -1073741825.0) ((2314 . 5625) (+ -1073741824 0) -> -1073741824) ((2315 . 5625) (+ -1073741824 1) -> -1073741823) ((2316 . 5625) (+ -1073741823 -3) -> -1073741826.0) ((2317 . 5625) (+ -1073741823 -2) -> -1073741825.0) ((2318 . 5625) (+ -1073741823 -1) -> -1073741824) ((2319 . 5625) (+ -1073741823 0) -> -1073741823) ((2320 . 5625) (+ -1073741823 1) -> -1073741822) ((2321 . 5625) (+ -1073741822 -3) -> -1073741825.0) ((2322 . 5625) (+ -1073741822 -2) -> -1073741824) ((2323 . 5625) (+ -1073741822 -1) -> -1073741823) ((2324 . 5625) (+ -1073741822 0) -> -1073741822) ((2325 . 5625) (+ -1073741822 1) -> -1073741821) ((2326 . 5625) (+ -1073741826.0 0) -> -1073741826.0) ((2327 . 5625) (+ -1073741826.0 1) -> -1073741825.0) ((2328 . 5625) (+ -1073741826.0 2) -> -1073741824.0) ((2329 . 5625) (+ -1073741826.0 3) -> -1073741823.0) ((2330 . 5625) (+ -1073741826.0 4) -> -1073741822.0) ((2331 . 5625) (+ -1073741825.0 0) -> -1073741825.0) ((2332 . 5625) (+ -1073741825.0 1) -> -1073741824.0) ((2333 . 5625) (+ -1073741825.0 2) -> -1073741823.0) ((2334 . 5625) (+ -1073741825.0 3) -> -1073741822.0) ((2335 . 5625) (+ -1073741825.0 4) -> -1073741821.0) ((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.0 -4) -> -1073741830.0) ((2352 . 5625) (+ -1073741826.0 -3) -> -1073741829.0) ((2353 . 5625) (+ -1073741826.0 -2) -> -1073741828.0) ((2354 . 5625) (+ -1073741826.0 -1) -> -1073741827.0) ((2355 . 5625) (+ -1073741826.0 0) -> -1073741826.0) ((2356 . 5625) (+ -1073741825.0 -4) -> -1073741829.0) ((2357 . 5625) (+ -1073741825.0 -3) -> -1073741828.0) ((2358 . 5625) (+ -1073741825.0 -2) -> -1073741827.0) ((2359 . 5625) (+ -1073741825.0 -1) -> -1073741826.0) ((2360 . 5625) (+ -1073741825.0 0) -> -1073741825.0) ((2361 . 5625) (+ -1073741824 -4) -> -1073741828.0) ((2362 . 5625) (+ -1073741824 -3) -> -1073741827.0) ((2363 . 5625) (+ -1073741824 -2) -> -1073741826.0) ((2364 . 5625) (+ -1073741824 -1) -> -1073741825.0) ((2365 . 5625) (+ -1073741824 0) -> -1073741824) ((2366 . 5625) (+ -1073741823 -4) -> -1073741827.0) ((2367 . 5625) (+ -1073741823 -3) -> -1073741826.0) ((2368 . 5625) (+ -1073741823 -2) -> -1073741825.0) ((2369 . 5625) (+ -1073741823 -1) -> -1073741824) ((2370 . 5625) (+ -1073741823 0) -> -1073741823) ((2371 . 5625) (+ -1073741822 -4) -> -1073741826.0) ((2372 . 5625) (+ -1073741822 -3) -> -1073741825.0) ((2373 . 5625) (+ -1073741822 -2) -> -1073741824) ((2374 . 5625) (+ -1073741822 -1) -> -1073741823) ((2375 . 5625) (+ -1073741822 0) -> -1073741822) ((2376 . 5625) (+ -1073741826.0 1073741821) -> -5.0) ((2377 . 5625) (+ -1073741826.0 1073741822) -> -4.0) ((2378 . 5625) (+ -1073741826.0 1073741823) -> -3.0) ((2379 . 5625) (+ -1073741826.0 1073741824.0) -> -2.0) ((2380 . 5625) (+ -1073741826.0 1073741825.0) -> -1.0) ((2381 . 5625) (+ -1073741825.0 1073741821) -> -4.0) ((2382 . 5625) (+ -1073741825.0 1073741822) -> -3.0) ((2383 . 5625) (+ -1073741825.0 1073741823) -> -2.0) ((2384 . 5625) (+ -1073741825.0 1073741824.0) -> -1.0) ((2385 . 5625) (+ -1073741825.0 1073741825.0) -> 0.0) ((2386 . 5625) (+ -1073741824 1073741821) -> -3) ((2387 . 5625) (+ -1073741824 1073741822) -> -2) ((2388 . 5625) (+ -1073741824 1073741823) -> -1) ((2389 . 5625) (+ -1073741824 1073741824.0) -> 0.0) ((2390 . 5625) (+ -1073741824 1073741825.0) -> 1.0) ((2391 . 5625) (+ -1073741823 1073741821) -> -2) ((2392 . 5625) (+ -1073741823 1073741822) -> -1) ((2393 . 5625) (+ -1073741823 1073741823) -> 0) ((2394 . 5625) (+ -1073741823 1073741824.0) -> 1.0) ((2395 . 5625) (+ -1073741823 1073741825.0) -> 2.0) ((2396 . 5625) (+ -1073741822 1073741821) -> -1) ((2397 . 5625) (+ -1073741822 1073741822) -> 0) ((2398 . 5625) (+ -1073741822 1073741823) -> 1) ((2399 . 5625) (+ -1073741822 1073741824.0) -> 2.0) ((2400 . 5625) (+ -1073741822 1073741825.0) -> 3.0) ((2401 . 5625) (+ -1073741826.0 -1073741826.0) -> -2147483652.0) ((2402 . 5625) (+ -1073741826.0 -1073741825.0) -> -2147483651.0) ((2403 . 5625) (+ -1073741826.0 -1073741824) -> -2147483650.0) ((2404 . 5625) (+ -1073741826.0 -1073741823) -> -2147483649.0) ((2405 . 5625) (+ -1073741826.0 -1073741822) -> -2147483648.0) ((2406 . 5625) (+ -1073741825.0 -1073741826.0) -> -2147483651.0) ((2407 . 5625) (+ -1073741825.0 -1073741825.0) -> -2147483650.0) ((2408 . 5625) (+ -1073741825.0 -1073741824) -> -2147483649.0) ((2409 . 5625) (+ -1073741825.0 -1073741823) -> -2147483648.0) ((2410 . 5625) (+ -1073741825.0 -1073741822) -> -2147483647.0) ((2411 . 5625) (+ -1073741824 -1073741826.0) -> -2147483650.0) ((2412 . 5625) (+ -1073741824 -1073741825.0) -> -2147483649.0) ((2413 . 5625) (+ -1073741824 -1073741824) -> -2147483648.0) ((2414 . 5625) (+ -1073741824 -1073741823) -> -2147483647.0) ((2415 . 5625) (+ -1073741824 -1073741822) -> -2147483646.0) ((2416 . 5625) (+ -1073741823 -1073741826.0) -> -2147483649.0) ((2417 . 5625) (+ -1073741823 -1073741825.0) -> -2147483648.0) ((2418 . 5625) (+ -1073741823 -1073741824) -> -2147483647.0) ((2419 . 5625) (+ -1073741823 -1073741823) -> -2147483646.0) ((2420 . 5625) (+ -1073741823 -1073741822) -> -2147483645.0) ((2421 . 5625) (+ -1073741822 -1073741826.0) -> -2147483648.0) ((2422 . 5625) (+ -1073741822 -1073741825.0) -> -2147483647.0) ((2423 . 5625) (+ -1073741822 -1073741824) -> -2147483646.0) ((2424 . 5625) (+ -1073741822 -1073741823) -> -2147483645.0) ((2425 . 5625) (+ -1073741822 -1073741822) -> -2147483644.0) ((2426 . 5625) (+ -1073741826.0 1073741822.0) -> -4.0) ((2427 . 5625) (+ -1073741826.0 1073741823.0) -> -3.0) ((2428 . 5625) (+ -1073741826.0 1073741824.0) -> -2.0) ((2429 . 5625) (+ -1073741826.0 1073741825.0) -> -1.0) ((2430 . 5625) (+ -1073741826.0 1073741826.0) -> 0.0) ((2431 . 5625) (+ -1073741825.0 1073741822.0) -> -3.0) ((2432 . 5625) (+ -1073741825.0 1073741823.0) -> -2.0) ((2433 . 5625) (+ -1073741825.0 1073741824.0) -> -1.0) ((2434 . 5625) (+ -1073741825.0 1073741825.0) -> 0.0) ((2435 . 5625) (+ -1073741825.0 1073741826.0) -> 1.0) ((2436 . 5625) (+ -1073741824 1073741822.0) -> -2.0) ((2437 . 5625) (+ -1073741824 1073741823.0) -> -1.0) ((2438 . 5625) (+ -1073741824 1073741824.0) -> 0.0) ((2439 . 5625) (+ -1073741824 1073741825.0) -> 1.0) ((2440 . 5625) (+ -1073741824 1073741826.0) -> 2.0) ((2441 . 5625) (+ -1073741823 1073741822.0) -> -1.0) ((2442 . 5625) (+ -1073741823 1073741823.0) -> 0.0) ((2443 . 5625) (+ -1073741823 1073741824.0) -> 1.0) ((2444 . 5625) (+ -1073741823 1073741825.0) -> 2.0) ((2445 . 5625) (+ -1073741823 1073741826.0) -> 3.0) ((2446 . 5625) (+ -1073741822 1073741822.0) -> 0.0) ((2447 . 5625) (+ -1073741822 1073741823.0) -> 1.0) ((2448 . 5625) (+ -1073741822 1073741824.0) -> 2.0) ((2449 . 5625) (+ -1073741822 1073741825.0) -> 3.0) ((2450 . 5625) (+ -1073741822 1073741826.0) -> 4.0) ((2451 . 5625) (+ -1073741826.0 -1073741827.0) -> -2147483653.0) ((2452 . 5625) (+ -1073741826.0 -1073741826.0) -> -2147483652.0) ((2453 . 5625) (+ -1073741826.0 -1073741825.0) -> -2147483651.0) ((2454 . 5625) (+ -1073741826.0 -1073741824.0) -> -2147483650.0) ((2455 . 5625) (+ -1073741826.0 -1073741823.0) -> -2147483649.0) ((2456 . 5625) (+ -1073741825.0 -1073741827.0) -> -2147483652.0) ((2457 . 5625) (+ -1073741825.0 -1073741826.0) -> -2147483651.0) ((2458 . 5625) (+ -1073741825.0 -1073741825.0) -> -2147483650.0) ((2459 . 5625) (+ -1073741825.0 -1073741824.0) -> -2147483649.0) ((2460 . 5625) (+ -1073741825.0 -1073741823.0) -> -2147483648.0) ((2461 . 5625) (+ -1073741824 -1073741827.0) -> -2147483651.0) ((2462 . 5625) (+ -1073741824 -1073741826.0) -> -2147483650.0) ((2463 . 5625) (+ -1073741824 -1073741825.0) -> -2147483649.0) ((2464 . 5625) (+ -1073741824 -1073741824.0) -> -2147483648.0) ((2465 . 5625) (+ -1073741824 -1073741823.0) -> -2147483647.0) ((2466 . 5625) (+ -1073741823 -1073741827.0) -> -2147483650.0) ((2467 . 5625) (+ -1073741823 -1073741826.0) -> -2147483649.0) ((2468 . 5625) (+ -1073741823 -1073741825.0) -> -2147483648.0) ((2469 . 5625) (+ -1073741823 -1073741824.0) -> -2147483647.0) ((2470 . 5625) (+ -1073741823 -1073741823.0) -> -2147483646.0) ((2471 . 5625) (+ -1073741822 -1073741827.0) -> -2147483649.0) ((2472 . 5625) (+ -1073741822 -1073741826.0) -> -2147483648.0) ((2473 . 5625) (+ -1073741822 -1073741825.0) -> -2147483647.0) ((2474 . 5625) (+ -1073741822 -1073741824.0) -> -2147483646.0) ((2475 . 5625) (+ -1073741822 -1073741823.0) -> -2147483645.0) ((2476 . 5625) (+ -1073741826.0 1103515243.0) -> 29773417.0) ((2477 . 5625) (+ -1073741826.0 1103515244.0) -> 29773418.0) ((2478 . 5625) (+ -1073741826.0 1103515245.0) -> 29773419.0) ((2479 . 5625) (+ -1073741826.0 1103515246.0) -> 29773420.0) ((2480 . 5625) (+ -1073741826.0 1103515247.0) -> 29773421.0) ((2481 . 5625) (+ -1073741825.0 1103515243.0) -> 29773418.0) ((2482 . 5625) (+ -1073741825.0 1103515244.0) -> 29773419.0) ((2483 . 5625) (+ -1073741825.0 1103515245.0) -> 29773420.0) ((2484 . 5625) (+ -1073741825.0 1103515246.0) -> 29773421.0) ((2485 . 5625) (+ -1073741825.0 1103515247.0) -> 29773422.0) ((2486 . 5625) (+ -1073741824 1103515243.0) -> 29773419.0) ((2487 . 5625) (+ -1073741824 1103515244.0) -> 29773420.0) ((2488 . 5625) (+ -1073741824 1103515245.0) -> 29773421.0) ((2489 . 5625) (+ -1073741824 1103515246.0) -> 29773422.0) ((2490 . 5625) (+ -1073741824 1103515247.0) -> 29773423.0) ((2491 . 5625) (+ -1073741823 1103515243.0) -> 29773420.0) ((2492 . 5625) (+ -1073741823 1103515244.0) -> 29773421.0) ((2493 . 5625) (+ -1073741823 1103515245.0) -> 29773422.0) ((2494 . 5625) (+ -1073741823 1103515246.0) -> 29773423.0) ((2495 . 5625) (+ -1073741823 1103515247.0) -> 29773424.0) ((2496 . 5625) (+ -1073741822 1103515243.0) -> 29773421.0) ((2497 . 5625) (+ -1073741822 1103515244.0) -> 29773422.0) ((2498 . 5625) (+ -1073741822 1103515245.0) -> 29773423.0) ((2499 . 5625) (+ -1073741822 1103515246.0) -> 29773424.0) ((2500 . 5625) (+ -1073741822 1103515247.0) -> 29773425.0) ((2501 . 5625) (+ -1073741826.0 631629063) -> -442112763.0) ((2502 . 5625) (+ -1073741826.0 631629064) -> -442112762.0) ((2503 . 5625) (+ -1073741826.0 631629065) -> -442112761.0) ((2504 . 5625) (+ -1073741826.0 631629066) -> -442112760.0) ((2505 . 5625) (+ -1073741826.0 631629067) -> -442112759.0) ((2506 . 5625) (+ -1073741825.0 631629063) -> -442112762.0) ((2507 . 5625) (+ -1073741825.0 631629064) -> -442112761.0) ((2508 . 5625) (+ -1073741825.0 631629065) -> -442112760.0) ((2509 . 5625) (+ -1073741825.0 631629066) -> -442112759.0) ((2510 . 5625) (+ -1073741825.0 631629067) -> -442112758.0) ((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.0 9.00719925474099e+15) -> 9.00719818099916e+15) ((2527 . 5625) (+ -1073741826.0 9.00719925474099e+15) -> 9.00719818099916e+15) ((2528 . 5625) (+ -1073741826.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((2529 . 5625) (+ -1073741826.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((2530 . 5625) (+ -1073741826.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((2531 . 5625) (+ -1073741825.0 9.00719925474099e+15) -> 9.00719818099916e+15) ((2532 . 5625) (+ -1073741825.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((2533 . 5625) (+ -1073741825.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((2534 . 5625) (+ -1073741825.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((2535 . 5625) (+ -1073741825.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((2536 . 5625) (+ -1073741824 9.00719925474099e+15) -> 9.00719818099917e+15) ((2537 . 5625) (+ -1073741824 9.00719925474099e+15) -> 9.00719818099917e+15) ((2538 . 5625) (+ -1073741824 9.00719925474099e+15) -> 9.00719818099917e+15) ((2539 . 5625) (+ -1073741824 9.00719925474099e+15) -> 9.00719818099917e+15) ((2540 . 5625) (+ -1073741824 9.00719925474099e+15) -> 9.00719818099917e+15) ((2541 . 5625) (+ -1073741823 9.00719925474099e+15) -> 9.00719818099917e+15) ((2542 . 5625) (+ -1073741823 9.00719925474099e+15) -> 9.00719818099917e+15) ((2543 . 5625) (+ -1073741823 9.00719925474099e+15) -> 9.00719818099917e+15) ((2544 . 5625) (+ -1073741823 9.00719925474099e+15) -> 9.00719818099917e+15) ((2545 . 5625) (+ -1073741823 9.00719925474099e+15) -> 9.00719818099917e+15) ((2546 . 5625) (+ -1073741822 9.00719925474099e+15) -> 9.00719818099917e+15) ((2547 . 5625) (+ -1073741822 9.00719925474099e+15) -> 9.00719818099917e+15) ((2548 . 5625) (+ -1073741822 9.00719925474099e+15) -> 9.00719818099917e+15) ((2549 . 5625) (+ -1073741822 9.00719925474099e+15) -> 9.00719818099917e+15) ((2550 . 5625) (+ -1073741822 9.00719925474099e+15) -> 9.00719818099917e+15) ((2551 . 5625) (+ -1073741826.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((2552 . 5625) (+ -1073741826.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((2553 . 5625) (+ -1073741826.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((2554 . 5625) (+ -1073741826.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((2555 . 5625) (+ -1073741826.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((2556 . 5625) (+ -1073741825.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((2557 . 5625) (+ -1073741825.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((2558 . 5625) (+ -1073741825.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((2559 . 5625) (+ -1073741825.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((2560 . 5625) (+ -1073741825.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((2561 . 5625) (+ -1073741824 -9.00719925474099e+15) -> -9.00720032848282e+15) ((2562 . 5625) (+ -1073741824 -9.00719925474099e+15) -> -9.00720032848282e+15) ((2563 . 5625) (+ -1073741824 -9.00719925474099e+15) -> -9.00720032848282e+15) ((2564 . 5625) (+ -1073741824 -9.00719925474099e+15) -> -9.00720032848282e+15) ((2565 . 5625) (+ -1073741824 -9.00719925474099e+15) -> -9.00720032848281e+15) ((2566 . 5625) (+ -1073741823 -9.00719925474099e+15) -> -9.00720032848282e+15) ((2567 . 5625) (+ -1073741823 -9.00719925474099e+15) -> -9.00720032848282e+15) ((2568 . 5625) (+ -1073741823 -9.00719925474099e+15) -> -9.00720032848282e+15) ((2569 . 5625) (+ -1073741823 -9.00719925474099e+15) -> -9.00720032848281e+15) ((2570 . 5625) (+ -1073741823 -9.00719925474099e+15) -> -9.00720032848281e+15) ((2571 . 5625) (+ -1073741822 -9.00719925474099e+15) -> -9.00720032848282e+15) ((2572 . 5625) (+ -1073741822 -9.00719925474099e+15) -> -9.00720032848281e+15) ((2573 . 5625) (+ -1073741822 -9.00719925474099e+15) -> -9.00720032848281e+15) ((2574 . 5625) (+ -1073741822 -9.00719925474099e+15) -> -9.00720032848281e+15) ((2575 . 5625) (+ -1073741822 -9.00719925474099e+15) -> -9.00720032848281e+15) ((2576 . 5625) (+ -1073741826.0 12343) -> -1073729483.0) ((2577 . 5625) (+ -1073741826.0 12344) -> -1073729482.0) ((2578 . 5625) (+ -1073741826.0 12345) -> -1073729481.0) ((2579 . 5625) (+ -1073741826.0 12346) -> -1073729480.0) ((2580 . 5625) (+ -1073741826.0 12347) -> -1073729479.0) ((2581 . 5625) (+ -1073741825.0 12343) -> -1073729482.0) ((2582 . 5625) (+ -1073741825.0 12344) -> -1073729481.0) ((2583 . 5625) (+ -1073741825.0 12345) -> -1073729480.0) ((2584 . 5625) (+ -1073741825.0 12346) -> -1073729479.0) ((2585 . 5625) (+ -1073741825.0 12347) -> -1073729478.0) ((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.0 4294967294.0) -> 3221225468.0) ((2602 . 5625) (+ -1073741826.0 4294967295.0) -> 3221225469.0) ((2603 . 5625) (+ -1073741826.0 4294967296.0) -> 3221225470.0) ((2604 . 5625) (+ -1073741826.0 4294967297.0) -> 3221225471.0) ((2605 . 5625) (+ -1073741826.0 4294967298.0) -> 3221225472.0) ((2606 . 5625) (+ -1073741825.0 4294967294.0) -> 3221225469.0) ((2607 . 5625) (+ -1073741825.0 4294967295.0) -> 3221225470.0) ((2608 . 5625) (+ -1073741825.0 4294967296.0) -> 3221225471.0) ((2609 . 5625) (+ -1073741825.0 4294967297.0) -> 3221225472.0) ((2610 . 5625) (+ -1073741825.0 4294967298.0) -> 3221225473.0) ((2611 . 5625) (+ -1073741824 4294967294.0) -> 3221225470.0) ((2612 . 5625) (+ -1073741824 4294967295.0) -> 3221225471.0) ((2613 . 5625) (+ -1073741824 4294967296.0) -> 3221225472.0) ((2614 . 5625) (+ -1073741824 4294967297.0) -> 3221225473.0) ((2615 . 5625) (+ -1073741824 4294967298.0) -> 3221225474.0) ((2616 . 5625) (+ -1073741823 4294967294.0) -> 3221225471.0) ((2617 . 5625) (+ -1073741823 4294967295.0) -> 3221225472.0) ((2618 . 5625) (+ -1073741823 4294967296.0) -> 3221225473.0) ((2619 . 5625) (+ -1073741823 4294967297.0) -> 3221225474.0) ((2620 . 5625) (+ -1073741823 4294967298.0) -> 3221225475.0) ((2621 . 5625) (+ -1073741822 4294967294.0) -> 3221225472.0) ((2622 . 5625) (+ -1073741822 4294967295.0) -> 3221225473.0) ((2623 . 5625) (+ -1073741822 4294967296.0) -> 3221225474.0) ((2624 . 5625) (+ -1073741822 4294967297.0) -> 3221225475.0) ((2625 . 5625) (+ -1073741822 4294967298.0) -> 3221225476.0) ((2626 . 5625) (+ 1073741822.0 -2) -> 1073741820.0) ((2627 . 5625) (+ 1073741822.0 -1) -> 1073741821.0) ((2628 . 5625) (+ 1073741822.0 0) -> 1073741822.0) ((2629 . 5625) (+ 1073741822.0 1) -> 1073741823.0) ((2630 . 5625) (+ 1073741822.0 2) -> 1073741824.0) ((2631 . 5625) (+ 1073741823.0 -2) -> 1073741821.0) ((2632 . 5625) (+ 1073741823.0 -1) -> 1073741822.0) ((2633 . 5625) (+ 1073741823.0 0) -> 1073741823.0) ((2634 . 5625) (+ 1073741823.0 1) -> 1073741824.0) ((2635 . 5625) (+ 1073741823.0 2) -> 1073741825.0) ((2636 . 5625) (+ 1073741824.0 -2) -> 1073741822.0) ((2637 . 5625) (+ 1073741824.0 -1) -> 1073741823.0) ((2638 . 5625) (+ 1073741824.0 0) -> 1073741824.0) ((2639 . 5625) (+ 1073741824.0 1) -> 1073741825.0) ((2640 . 5625) (+ 1073741824.0 2) -> 1073741826.0) ((2641 . 5625) (+ 1073741825.0 -2) -> 1073741823.0) ((2642 . 5625) (+ 1073741825.0 -1) -> 1073741824.0) ((2643 . 5625) (+ 1073741825.0 0) -> 1073741825.0) ((2644 . 5625) (+ 1073741825.0 1) -> 1073741826.0) ((2645 . 5625) (+ 1073741825.0 2) -> 1073741827.0) ((2646 . 5625) (+ 1073741826.0 -2) -> 1073741824.0) ((2647 . 5625) (+ 1073741826.0 -1) -> 1073741825.0) ((2648 . 5625) (+ 1073741826.0 0) -> 1073741826.0) ((2649 . 5625) (+ 1073741826.0 1) -> 1073741827.0) ((2650 . 5625) (+ 1073741826.0 2) -> 1073741828.0) ((2651 . 5625) (+ 1073741822.0 -1) -> 1073741821.0) ((2652 . 5625) (+ 1073741822.0 0) -> 1073741822.0) ((2653 . 5625) (+ 1073741822.0 1) -> 1073741823.0) ((2654 . 5625) (+ 1073741822.0 2) -> 1073741824.0) ((2655 . 5625) (+ 1073741822.0 3) -> 1073741825.0) ((2656 . 5625) (+ 1073741823.0 -1) -> 1073741822.0) ((2657 . 5625) (+ 1073741823.0 0) -> 1073741823.0) ((2658 . 5625) (+ 1073741823.0 1) -> 1073741824.0) ((2659 . 5625) (+ 1073741823.0 2) -> 1073741825.0) ((2660 . 5625) (+ 1073741823.0 3) -> 1073741826.0) ((2661 . 5625) (+ 1073741824.0 -1) -> 1073741823.0) ((2662 . 5625) (+ 1073741824.0 0) -> 1073741824.0) ((2663 . 5625) (+ 1073741824.0 1) -> 1073741825.0) ((2664 . 5625) (+ 1073741824.0 2) -> 1073741826.0) ((2665 . 5625) (+ 1073741824.0 3) -> 1073741827.0) ((2666 . 5625) (+ 1073741825.0 -1) -> 1073741824.0) ((2667 . 5625) (+ 1073741825.0 0) -> 1073741825.0) ((2668 . 5625) (+ 1073741825.0 1) -> 1073741826.0) ((2669 . 5625) (+ 1073741825.0 2) -> 1073741827.0) ((2670 . 5625) (+ 1073741825.0 3) -> 1073741828.0) ((2671 . 5625) (+ 1073741826.0 -1) -> 1073741825.0) ((2672 . 5625) (+ 1073741826.0 0) -> 1073741826.0) ((2673 . 5625) (+ 1073741826.0 1) -> 1073741827.0) ((2674 . 5625) (+ 1073741826.0 2) -> 1073741828.0) ((2675 . 5625) (+ 1073741826.0 3) -> 1073741829.0) ((2676 . 5625) (+ 1073741822.0 -3) -> 1073741819.0) ((2677 . 5625) (+ 1073741822.0 -2) -> 1073741820.0) ((2678 . 5625) (+ 1073741822.0 -1) -> 1073741821.0) ((2679 . 5625) (+ 1073741822.0 0) -> 1073741822.0) ((2680 . 5625) (+ 1073741822.0 1) -> 1073741823.0) ((2681 . 5625) (+ 1073741823.0 -3) -> 1073741820.0) ((2682 . 5625) (+ 1073741823.0 -2) -> 1073741821.0) ((2683 . 5625) (+ 1073741823.0 -1) -> 1073741822.0) ((2684 . 5625) (+ 1073741823.0 0) -> 1073741823.0) ((2685 . 5625) (+ 1073741823.0 1) -> 1073741824.0) ((2686 . 5625) (+ 1073741824.0 -3) -> 1073741821.0) ((2687 . 5625) (+ 1073741824.0 -2) -> 1073741822.0) ((2688 . 5625) (+ 1073741824.0 -1) -> 1073741823.0) ((2689 . 5625) (+ 1073741824.0 0) -> 1073741824.0) ((2690 . 5625) (+ 1073741824.0 1) -> 1073741825.0) ((2691 . 5625) (+ 1073741825.0 -3) -> 1073741822.0) ((2692 . 5625) (+ 1073741825.0 -2) -> 1073741823.0) ((2693 . 5625) (+ 1073741825.0 -1) -> 1073741824.0) ((2694 . 5625) (+ 1073741825.0 0) -> 1073741825.0) ((2695 . 5625) (+ 1073741825.0 1) -> 1073741826.0) ((2696 . 5625) (+ 1073741826.0 -3) -> 1073741823.0) ((2697 . 5625) (+ 1073741826.0 -2) -> 1073741824.0) ((2698 . 5625) (+ 1073741826.0 -1) -> 1073741825.0) ((2699 . 5625) (+ 1073741826.0 0) -> 1073741826.0) ((2700 . 5625) (+ 1073741826.0 1) -> 1073741827.0) ((2701 . 5625) (+ 1073741822.0 0) -> 1073741822.0) ((2702 . 5625) (+ 1073741822.0 1) -> 1073741823.0) ((2703 . 5625) (+ 1073741822.0 2) -> 1073741824.0) ((2704 . 5625) (+ 1073741822.0 3) -> 1073741825.0) ((2705 . 5625) (+ 1073741822.0 4) -> 1073741826.0) ((2706 . 5625) (+ 1073741823.0 0) -> 1073741823.0) ((2707 . 5625) (+ 1073741823.0 1) -> 1073741824.0) ((2708 . 5625) (+ 1073741823.0 2) -> 1073741825.0) ((2709 . 5625) (+ 1073741823.0 3) -> 1073741826.0) ((2710 . 5625) (+ 1073741823.0 4) -> 1073741827.0) ((2711 . 5625) (+ 1073741824.0 0) -> 1073741824.0) ((2712 . 5625) (+ 1073741824.0 1) -> 1073741825.0) ((2713 . 5625) (+ 1073741824.0 2) -> 1073741826.0) ((2714 . 5625) (+ 1073741824.0 3) -> 1073741827.0) ((2715 . 5625) (+ 1073741824.0 4) -> 1073741828.0) ((2716 . 5625) (+ 1073741825.0 0) -> 1073741825.0) ((2717 . 5625) (+ 1073741825.0 1) -> 1073741826.0) ((2718 . 5625) (+ 1073741825.0 2) -> 1073741827.0) ((2719 . 5625) (+ 1073741825.0 3) -> 1073741828.0) ((2720 . 5625) (+ 1073741825.0 4) -> 1073741829.0) ((2721 . 5625) (+ 1073741826.0 0) -> 1073741826.0) ((2722 . 5625) (+ 1073741826.0 1) -> 1073741827.0) ((2723 . 5625) (+ 1073741826.0 2) -> 1073741828.0) ((2724 . 5625) (+ 1073741826.0 3) -> 1073741829.0) ((2725 . 5625) (+ 1073741826.0 4) -> 1073741830.0) ((2726 . 5625) (+ 1073741822.0 -4) -> 1073741818.0) ((2727 . 5625) (+ 1073741822.0 -3) -> 1073741819.0) ((2728 . 5625) (+ 1073741822.0 -2) -> 1073741820.0) ((2729 . 5625) (+ 1073741822.0 -1) -> 1073741821.0) ((2730 . 5625) (+ 1073741822.0 0) -> 1073741822.0) ((2731 . 5625) (+ 1073741823.0 -4) -> 1073741819.0) ((2732 . 5625) (+ 1073741823.0 -3) -> 1073741820.0) ((2733 . 5625) (+ 1073741823.0 -2) -> 1073741821.0) ((2734 . 5625) (+ 1073741823.0 -1) -> 1073741822.0) ((2735 . 5625) (+ 1073741823.0 0) -> 1073741823.0) ((2736 . 5625) (+ 1073741824.0 -4) -> 1073741820.0) ((2737 . 5625) (+ 1073741824.0 -3) -> 1073741821.0) ((2738 . 5625) (+ 1073741824.0 -2) -> 1073741822.0) ((2739 . 5625) (+ 1073741824.0 -1) -> 1073741823.0) ((2740 . 5625) (+ 1073741824.0 0) -> 1073741824.0) ((2741 . 5625) (+ 1073741825.0 -4) -> 1073741821.0) ((2742 . 5625) (+ 1073741825.0 -3) -> 1073741822.0) ((2743 . 5625) (+ 1073741825.0 -2) -> 1073741823.0) ((2744 . 5625) (+ 1073741825.0 -1) -> 1073741824.0) ((2745 . 5625) (+ 1073741825.0 0) -> 1073741825.0) ((2746 . 5625) (+ 1073741826.0 -4) -> 1073741822.0) ((2747 . 5625) (+ 1073741826.0 -3) -> 1073741823.0) ((2748 . 5625) (+ 1073741826.0 -2) -> 1073741824.0) ((2749 . 5625) (+ 1073741826.0 -1) -> 1073741825.0) ((2750 . 5625) (+ 1073741826.0 0) -> 1073741826.0) ((2751 . 5625) (+ 1073741822.0 1073741821) -> 2147483643.0) ((2752 . 5625) (+ 1073741822.0 1073741822) -> 2147483644.0) ((2753 . 5625) (+ 1073741822.0 1073741823) -> 2147483645.0) ((2754 . 5625) (+ 1073741822.0 1073741824.0) -> 2147483646.0) ((2755 . 5625) (+ 1073741822.0 1073741825.0) -> 2147483647.0) ((2756 . 5625) (+ 1073741823.0 1073741821) -> 2147483644.0) ((2757 . 5625) (+ 1073741823.0 1073741822) -> 2147483645.0) ((2758 . 5625) (+ 1073741823.0 1073741823) -> 2147483646.0) ((2759 . 5625) (+ 1073741823.0 1073741824.0) -> 2147483647.0) ((2760 . 5625) (+ 1073741823.0 1073741825.0) -> 2147483648.0) ((2761 . 5625) (+ 1073741824.0 1073741821) -> 2147483645.0) ((2762 . 5625) (+ 1073741824.0 1073741822) -> 2147483646.0) ((2763 . 5625) (+ 1073741824.0 1073741823) -> 2147483647.0) ((2764 . 5625) (+ 1073741824.0 1073741824.0) -> 2147483648.0) ((2765 . 5625) (+ 1073741824.0 1073741825.0) -> 2147483649.0) ((2766 . 5625) (+ 1073741825.0 1073741821) -> 2147483646.0) ((2767 . 5625) (+ 1073741825.0 1073741822) -> 2147483647.0) ((2768 . 5625) (+ 1073741825.0 1073741823) -> 2147483648.0) ((2769 . 5625) (+ 1073741825.0 1073741824.0) -> 2147483649.0) ((2770 . 5625) (+ 1073741825.0 1073741825.0) -> 2147483650.0) ((2771 . 5625) (+ 1073741826.0 1073741821) -> 2147483647.0) ((2772 . 5625) (+ 1073741826.0 1073741822) -> 2147483648.0) ((2773 . 5625) (+ 1073741826.0 1073741823) -> 2147483649.0) ((2774 . 5625) (+ 1073741826.0 1073741824.0) -> 2147483650.0) ((2775 . 5625) (+ 1073741826.0 1073741825.0) -> 2147483651.0) ((2776 . 5625) (+ 1073741822.0 -1073741826.0) -> -4.0) ((2777 . 5625) (+ 1073741822.0 -1073741825.0) -> -3.0) ((2778 . 5625) (+ 1073741822.0 -1073741824) -> -2.0) ((2779 . 5625) (+ 1073741822.0 -1073741823) -> -1.0) ((2780 . 5625) (+ 1073741822.0 -1073741822) -> 0.0) ((2781 . 5625) (+ 1073741823.0 -1073741826.0) -> -3.0) ((2782 . 5625) (+ 1073741823.0 -1073741825.0) -> -2.0) ((2783 . 5625) (+ 1073741823.0 -1073741824) -> -1.0) ((2784 . 5625) (+ 1073741823.0 -1073741823) -> 0.0) ((2785 . 5625) (+ 1073741823.0 -1073741822) -> 1.0) ((2786 . 5625) (+ 1073741824.0 -1073741826.0) -> -2.0) ((2787 . 5625) (+ 1073741824.0 -1073741825.0) -> -1.0) ((2788 . 5625) (+ 1073741824.0 -1073741824) -> 0.0) ((2789 . 5625) (+ 1073741824.0 -1073741823) -> 1.0) ((2790 . 5625) (+ 1073741824.0 -1073741822) -> 2.0) ((2791 . 5625) (+ 1073741825.0 -1073741826.0) -> -1.0) ((2792 . 5625) (+ 1073741825.0 -1073741825.0) -> 0.0) ((2793 . 5625) (+ 1073741825.0 -1073741824) -> 1.0) ((2794 . 5625) (+ 1073741825.0 -1073741823) -> 2.0) ((2795 . 5625) (+ 1073741825.0 -1073741822) -> 3.0) ((2796 . 5625) (+ 1073741826.0 -1073741826.0) -> 0.0) ((2797 . 5625) (+ 1073741826.0 -1073741825.0) -> 1.0) ((2798 . 5625) (+ 1073741826.0 -1073741824) -> 2.0) ((2799 . 5625) (+ 1073741826.0 -1073741823) -> 3.0) ((2800 . 5625) (+ 1073741826.0 -1073741822) -> 4.0) ((2801 . 5625) (+ 1073741822.0 1073741822.0) -> 2147483644.0) ((2802 . 5625) (+ 1073741822.0 1073741823.0) -> 2147483645.0) ((2803 . 5625) (+ 1073741822.0 1073741824.0) -> 2147483646.0) ((2804 . 5625) (+ 1073741822.0 1073741825.0) -> 2147483647.0) ((2805 . 5625) (+ 1073741822.0 1073741826.0) -> 2147483648.0) ((2806 . 5625) (+ 1073741823.0 1073741822.0) -> 2147483645.0) ((2807 . 5625) (+ 1073741823.0 1073741823.0) -> 2147483646.0) ((2808 . 5625) (+ 1073741823.0 1073741824.0) -> 2147483647.0) ((2809 . 5625) (+ 1073741823.0 1073741825.0) -> 2147483648.0) ((2810 . 5625) (+ 1073741823.0 1073741826.0) -> 2147483649.0) ((2811 . 5625) (+ 1073741824.0 1073741822.0) -> 2147483646.0) ((2812 . 5625) (+ 1073741824.0 1073741823.0) -> 2147483647.0) ((2813 . 5625) (+ 1073741824.0 1073741824.0) -> 2147483648.0) ((2814 . 5625) (+ 1073741824.0 1073741825.0) -> 2147483649.0) ((2815 . 5625) (+ 1073741824.0 1073741826.0) -> 2147483650.0) ((2816 . 5625) (+ 1073741825.0 1073741822.0) -> 2147483647.0) ((2817 . 5625) (+ 1073741825.0 1073741823.0) -> 2147483648.0) ((2818 . 5625) (+ 1073741825.0 1073741824.0) -> 2147483649.0) ((2819 . 5625) (+ 1073741825.0 1073741825.0) -> 2147483650.0) ((2820 . 5625) (+ 1073741825.0 1073741826.0) -> 2147483651.0) ((2821 . 5625) (+ 1073741826.0 1073741822.0) -> 2147483648.0) ((2822 . 5625) (+ 1073741826.0 1073741823.0) -> 2147483649.0) ((2823 . 5625) (+ 1073741826.0 1073741824.0) -> 2147483650.0) ((2824 . 5625) (+ 1073741826.0 1073741825.0) -> 2147483651.0) ((2825 . 5625) (+ 1073741826.0 1073741826.0) -> 2147483652.0) ((2826 . 5625) (+ 1073741822.0 -1073741827.0) -> -5.0) ((2827 . 5625) (+ 1073741822.0 -1073741826.0) -> -4.0) ((2828 . 5625) (+ 1073741822.0 -1073741825.0) -> -3.0) ((2829 . 5625) (+ 1073741822.0 -1073741824.0) -> -2.0) ((2830 . 5625) (+ 1073741822.0 -1073741823.0) -> -1.0) ((2831 . 5625) (+ 1073741823.0 -1073741827.0) -> -4.0) ((2832 . 5625) (+ 1073741823.0 -1073741826.0) -> -3.0) ((2833 . 5625) (+ 1073741823.0 -1073741825.0) -> -2.0) ((2834 . 5625) (+ 1073741823.0 -1073741824.0) -> -1.0) ((2835 . 5625) (+ 1073741823.0 -1073741823.0) -> 0.0) ((2836 . 5625) (+ 1073741824.0 -1073741827.0) -> -3.0) ((2837 . 5625) (+ 1073741824.0 -1073741826.0) -> -2.0) ((2838 . 5625) (+ 1073741824.0 -1073741825.0) -> -1.0) ((2839 . 5625) (+ 1073741824.0 -1073741824.0) -> 0.0) ((2840 . 5625) (+ 1073741824.0 -1073741823.0) -> 1.0) ((2841 . 5625) (+ 1073741825.0 -1073741827.0) -> -2.0) ((2842 . 5625) (+ 1073741825.0 -1073741826.0) -> -1.0) ((2843 . 5625) (+ 1073741825.0 -1073741825.0) -> 0.0) ((2844 . 5625) (+ 1073741825.0 -1073741824.0) -> 1.0) ((2845 . 5625) (+ 1073741825.0 -1073741823.0) -> 2.0) ((2846 . 5625) (+ 1073741826.0 -1073741827.0) -> -1.0) ((2847 . 5625) (+ 1073741826.0 -1073741826.0) -> 0.0) ((2848 . 5625) (+ 1073741826.0 -1073741825.0) -> 1.0) ((2849 . 5625) (+ 1073741826.0 -1073741824.0) -> 2.0) ((2850 . 5625) (+ 1073741826.0 -1073741823.0) -> 3.0) ((2851 . 5625) (+ 1073741822.0 1103515243.0) -> 2177257065.0) ((2852 . 5625) (+ 1073741822.0 1103515244.0) -> 2177257066.0) ((2853 . 5625) (+ 1073741822.0 1103515245.0) -> 2177257067.0) ((2854 . 5625) (+ 1073741822.0 1103515246.0) -> 2177257068.0) ((2855 . 5625) (+ 1073741822.0 1103515247.0) -> 2177257069.0) ((2856 . 5625) (+ 1073741823.0 1103515243.0) -> 2177257066.0) ((2857 . 5625) (+ 1073741823.0 1103515244.0) -> 2177257067.0) ((2858 . 5625) (+ 1073741823.0 1103515245.0) -> 2177257068.0) ((2859 . 5625) (+ 1073741823.0 1103515246.0) -> 2177257069.0) ((2860 . 5625) (+ 1073741823.0 1103515247.0) -> 2177257070.0) ((2861 . 5625) (+ 1073741824.0 1103515243.0) -> 2177257067.0) ((2862 . 5625) (+ 1073741824.0 1103515244.0) -> 2177257068.0) ((2863 . 5625) (+ 1073741824.0 1103515245.0) -> 2177257069.0) ((2864 . 5625) (+ 1073741824.0 1103515246.0) -> 2177257070.0) ((2865 . 5625) (+ 1073741824.0 1103515247.0) -> 2177257071.0) ((2866 . 5625) (+ 1073741825.0 1103515243.0) -> 2177257068.0) ((2867 . 5625) (+ 1073741825.0 1103515244.0) -> 2177257069.0) ((2868 . 5625) (+ 1073741825.0 1103515245.0) -> 2177257070.0) ((2869 . 5625) (+ 1073741825.0 1103515246.0) -> 2177257071.0) ((2870 . 5625) (+ 1073741825.0 1103515247.0) -> 2177257072.0) ((2871 . 5625) (+ 1073741826.0 1103515243.0) -> 2177257069.0) ((2872 . 5625) (+ 1073741826.0 1103515244.0) -> 2177257070.0) ((2873 . 5625) (+ 1073741826.0 1103515245.0) -> 2177257071.0) ((2874 . 5625) (+ 1073741826.0 1103515246.0) -> 2177257072.0) ((2875 . 5625) (+ 1073741826.0 1103515247.0) -> 2177257073.0) ((2876 . 5625) (+ 1073741822.0 631629063) -> 1705370885.0) ((2877 . 5625) (+ 1073741822.0 631629064) -> 1705370886.0) ((2878 . 5625) (+ 1073741822.0 631629065) -> 1705370887.0) ((2879 . 5625) (+ 1073741822.0 631629066) -> 1705370888.0) ((2880 . 5625) (+ 1073741822.0 631629067) -> 1705370889.0) ((2881 . 5625) (+ 1073741823.0 631629063) -> 1705370886.0) ((2882 . 5625) (+ 1073741823.0 631629064) -> 1705370887.0) ((2883 . 5625) (+ 1073741823.0 631629065) -> 1705370888.0) ((2884 . 5625) (+ 1073741823.0 631629066) -> 1705370889.0) ((2885 . 5625) (+ 1073741823.0 631629067) -> 1705370890.0) ((2886 . 5625) (+ 1073741824.0 631629063) -> 1705370887.0) ((2887 . 5625) (+ 1073741824.0 631629064) -> 1705370888.0) ((2888 . 5625) (+ 1073741824.0 631629065) -> 1705370889.0) ((2889 . 5625) (+ 1073741824.0 631629066) -> 1705370890.0) ((2890 . 5625) (+ 1073741824.0 631629067) -> 1705370891.0) ((2891 . 5625) (+ 1073741825.0 631629063) -> 1705370888.0) ((2892 . 5625) (+ 1073741825.0 631629064) -> 1705370889.0) ((2893 . 5625) (+ 1073741825.0 631629065) -> 1705370890.0) ((2894 . 5625) (+ 1073741825.0 631629066) -> 1705370891.0) ((2895 . 5625) (+ 1073741825.0 631629067) -> 1705370892.0) ((2896 . 5625) (+ 1073741826.0 631629063) -> 1705370889.0) ((2897 . 5625) (+ 1073741826.0 631629064) -> 1705370890.0) ((2898 . 5625) (+ 1073741826.0 631629065) -> 1705370891.0) ((2899 . 5625) (+ 1073741826.0 631629066) -> 1705370892.0) ((2900 . 5625) (+ 1073741826.0 631629067) -> 1705370893.0) ((2901 . 5625) (+ 1073741822.0 9.00719925474099e+15) -> 9.00720032848281e+15) ((2902 . 5625) (+ 1073741822.0 9.00719925474099e+15) -> 9.00720032848281e+15) ((2903 . 5625) (+ 1073741822.0 9.00719925474099e+15) -> 9.00720032848281e+15) ((2904 . 5625) (+ 1073741822.0 9.00719925474099e+15) -> 9.00720032848281e+15) ((2905 . 5625) (+ 1073741822.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2906 . 5625) (+ 1073741823.0 9.00719925474099e+15) -> 9.00720032848281e+15) ((2907 . 5625) (+ 1073741823.0 9.00719925474099e+15) -> 9.00720032848281e+15) ((2908 . 5625) (+ 1073741823.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2909 . 5625) (+ 1073741823.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2910 . 5625) (+ 1073741823.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2911 . 5625) (+ 1073741824.0 9.00719925474099e+15) -> 9.00720032848281e+15) ((2912 . 5625) (+ 1073741824.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2913 . 5625) (+ 1073741824.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2914 . 5625) (+ 1073741824.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2915 . 5625) (+ 1073741824.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2916 . 5625) (+ 1073741825.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2917 . 5625) (+ 1073741825.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2918 . 5625) (+ 1073741825.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2919 . 5625) (+ 1073741825.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2920 . 5625) (+ 1073741825.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2921 . 5625) (+ 1073741826.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2922 . 5625) (+ 1073741826.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2923 . 5625) (+ 1073741826.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2924 . 5625) (+ 1073741826.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2925 . 5625) (+ 1073741826.0 9.00719925474099e+15) -> 9.00720032848282e+15) ((2926 . 5625) (+ 1073741822.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2927 . 5625) (+ 1073741822.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2928 . 5625) (+ 1073741822.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2929 . 5625) (+ 1073741822.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2930 . 5625) (+ 1073741822.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2931 . 5625) (+ 1073741823.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2932 . 5625) (+ 1073741823.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2933 . 5625) (+ 1073741823.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2934 . 5625) (+ 1073741823.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2935 . 5625) (+ 1073741823.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2936 . 5625) (+ 1073741824.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2937 . 5625) (+ 1073741824.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2938 . 5625) (+ 1073741824.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2939 . 5625) (+ 1073741824.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2940 . 5625) (+ 1073741824.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2941 . 5625) (+ 1073741825.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2942 . 5625) (+ 1073741825.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2943 . 5625) (+ 1073741825.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2944 . 5625) (+ 1073741825.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2945 . 5625) (+ 1073741825.0 -9.00719925474099e+15) -> -9.00719818099916e+15) ((2946 . 5625) (+ 1073741826.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2947 . 5625) (+ 1073741826.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2948 . 5625) (+ 1073741826.0 -9.00719925474099e+15) -> -9.00719818099917e+15) ((2949 . 5625) (+ 1073741826.0 -9.00719925474099e+15) -> -9.00719818099916e+15) ((2950 . 5625) (+ 1073741826.0 -9.00719925474099e+15) -> -9.00719818099916e+15) ((2951 . 5625) (+ 1073741822.0 12343) -> 1073754165.0) ((2952 . 5625) (+ 1073741822.0 12344) -> 1073754166.0) ((2953 . 5625) (+ 1073741822.0 12345) -> 1073754167.0) ((2954 . 5625) (+ 1073741822.0 12346) -> 1073754168.0) ((2955 . 5625) (+ 1073741822.0 12347) -> 1073754169.0) ((2956 . 5625) (+ 1073741823.0 12343) -> 1073754166.0) ((2957 . 5625) (+ 1073741823.0 12344) -> 1073754167.0) ((2958 . 5625) (+ 1073741823.0 12345) -> 1073754168.0) ((2959 . 5625) (+ 1073741823.0 12346) -> 1073754169.0) ((2960 . 5625) (+ 1073741823.0 12347) -> 1073754170.0) ((2961 . 5625) (+ 1073741824.0 12343) -> 1073754167.0) ((2962 . 5625) (+ 1073741824.0 12344) -> 1073754168.0) ((2963 . 5625) (+ 1073741824.0 12345) -> 1073754169.0) ((2964 . 5625) (+ 1073741824.0 12346) -> 1073754170.0) ((2965 . 5625) (+ 1073741824.0 12347) -> 1073754171.0) ((2966 . 5625) (+ 1073741825.0 12343) -> 1073754168.0) ((2967 . 5625) (+ 1073741825.0 12344) -> 1073754169.0) ((2968 . 5625) (+ 1073741825.0 12345) -> 1073754170.0) ((2969 . 5625) (+ 1073741825.0 12346) -> 1073754171.0) ((2970 . 5625) (+ 1073741825.0 12347) -> 1073754172.0) ((2971 . 5625) (+ 1073741826.0 12343) -> 1073754169.0) ((2972 . 5625) (+ 1073741826.0 12344) -> 1073754170.0) ((2973 . 5625) (+ 1073741826.0 12345) -> 1073754171.0) ((2974 . 5625) (+ 1073741826.0 12346) -> 1073754172.0) ((2975 . 5625) (+ 1073741826.0 12347) -> 1073754173.0) ((2976 . 5625) (+ 1073741822.0 4294967294.0) -> 5368709116.0) ((2977 . 5625) (+ 1073741822.0 4294967295.0) -> 5368709117.0) ((2978 . 5625) (+ 1073741822.0 4294967296.0) -> 5368709118.0) ((2979 . 5625) (+ 1073741822.0 4294967297.0) -> 5368709119.0) ((2980 . 5625) (+ 1073741822.0 4294967298.0) -> 5368709120.0) ((2981 . 5625) (+ 1073741823.0 4294967294.0) -> 5368709117.0) ((2982 . 5625) (+ 1073741823.0 4294967295.0) -> 5368709118.0) ((2983 . 5625) (+ 1073741823.0 4294967296.0) -> 5368709119.0) ((2984 . 5625) (+ 1073741823.0 4294967297.0) -> 5368709120.0) ((2985 . 5625) (+ 1073741823.0 4294967298.0) -> 5368709121.0) ((2986 . 5625) (+ 1073741824.0 4294967294.0) -> 5368709118.0) ((2987 . 5625) (+ 1073741824.0 4294967295.0) -> 5368709119.0) ((2988 . 5625) (+ 1073741824.0 4294967296.0) -> 5368709120.0) ((2989 . 5625) (+ 1073741824.0 4294967297.0) -> 5368709121.0) ((2990 . 5625) (+ 1073741824.0 4294967298.0) -> 5368709122.0) ((2991 . 5625) (+ 1073741825.0 4294967294.0) -> 5368709119.0) ((2992 . 5625) (+ 1073741825.0 4294967295.0) -> 5368709120.0) ((2993 . 5625) (+ 1073741825.0 4294967296.0) -> 5368709121.0) ((2994 . 5625) (+ 1073741825.0 4294967297.0) -> 5368709122.0) ((2995 . 5625) (+ 1073741825.0 4294967298.0) -> 5368709123.0) ((2996 . 5625) (+ 1073741826.0 4294967294.0) -> 5368709120.0) ((2997 . 5625) (+ 1073741826.0 4294967295.0) -> 5368709121.0) ((2998 . 5625) (+ 1073741826.0 4294967296.0) -> 5368709122.0) ((2999 . 5625) (+ 1073741826.0 4294967297.0) -> 5368709123.0) ((3000 . 5625) (+ 1073741826.0 4294967298.0) -> 5368709124.0) ((3001 . 5625) (+ -1073741827.0 -2) -> -1073741829.0) ((3002 . 5625) (+ -1073741827.0 -1) -> -1073741828.0) ((3003 . 5625) (+ -1073741827.0 0) -> -1073741827.0) ((3004 . 5625) (+ -1073741827.0 1) -> -1073741826.0) ((3005 . 5625) (+ -1073741827.0 2) -> -1073741825.0) ((3006 . 5625) (+ -1073741826.0 -2) -> -1073741828.0) ((3007 . 5625) (+ -1073741826.0 -1) -> -1073741827.0) ((3008 . 5625) (+ -1073741826.0 0) -> -1073741826.0) ((3009 . 5625) (+ -1073741826.0 1) -> -1073741825.0) ((3010 . 5625) (+ -1073741826.0 2) -> -1073741824.0) ((3011 . 5625) (+ -1073741825.0 -2) -> -1073741827.0) ((3012 . 5625) (+ -1073741825.0 -1) -> -1073741826.0) ((3013 . 5625) (+ -1073741825.0 0) -> -1073741825.0) ((3014 . 5625) (+ -1073741825.0 1) -> -1073741824.0) ((3015 . 5625) (+ -1073741825.0 2) -> -1073741823.0) ((3016 . 5625) (+ -1073741824.0 -2) -> -1073741826.0) ((3017 . 5625) (+ -1073741824.0 -1) -> -1073741825.0) ((3018 . 5625) (+ -1073741824.0 0) -> -1073741824.0) ((3019 . 5625) (+ -1073741824.0 1) -> -1073741823.0) ((3020 . 5625) (+ -1073741824.0 2) -> -1073741822.0) ((3021 . 5625) (+ -1073741823.0 -2) -> -1073741825.0) ((3022 . 5625) (+ -1073741823.0 -1) -> -1073741824.0) ((3023 . 5625) (+ -1073741823.0 0) -> -1073741823.0) ((3024 . 5625) (+ -1073741823.0 1) -> -1073741822.0) ((3025 . 5625) (+ -1073741823.0 2) -> -1073741821.0) ((3026 . 5625) (+ -1073741827.0 -1) -> -1073741828.0) ((3027 . 5625) (+ -1073741827.0 0) -> -1073741827.0) ((3028 . 5625) (+ -1073741827.0 1) -> -1073741826.0) ((3029 . 5625) (+ -1073741827.0 2) -> -1073741825.0) ((3030 . 5625) (+ -1073741827.0 3) -> -1073741824.0) ((3031 . 5625) (+ -1073741826.0 -1) -> -1073741827.0) ((3032 . 5625) (+ -1073741826.0 0) -> -1073741826.0) ((3033 . 5625) (+ -1073741826.0 1) -> -1073741825.0) ((3034 . 5625) (+ -1073741826.0 2) -> -1073741824.0) ((3035 . 5625) (+ -1073741826.0 3) -> -1073741823.0) ((3036 . 5625) (+ -1073741825.0 -1) -> -1073741826.0) ((3037 . 5625) (+ -1073741825.0 0) -> -1073741825.0) ((3038 . 5625) (+ -1073741825.0 1) -> -1073741824.0) ((3039 . 5625) (+ -1073741825.0 2) -> -1073741823.0) ((3040 . 5625) (+ -1073741825.0 3) -> -1073741822.0) ((3041 . 5625) (+ -1073741824.0 -1) -> -1073741825.0) ((3042 . 5625) (+ -1073741824.0 0) -> -1073741824.0) ((3043 . 5625) (+ -1073741824.0 1) -> -1073741823.0) ((3044 . 5625) (+ -1073741824.0 2) -> -1073741822.0) ((3045 . 5625) (+ -1073741824.0 3) -> -1073741821.0) ((3046 . 5625) (+ -1073741823.0 -1) -> -1073741824.0) ((3047 . 5625) (+ -1073741823.0 0) -> -1073741823.0) ((3048 . 5625) (+ -1073741823.0 1) -> -1073741822.0) ((3049 . 5625) (+ -1073741823.0 2) -> -1073741821.0) ((3050 . 5625) (+ -1073741823.0 3) -> -1073741820.0) ((3051 . 5625) (+ -1073741827.0 -3) -> -1073741830.0) ((3052 . 5625) (+ -1073741827.0 -2) -> -1073741829.0) ((3053 . 5625) (+ -1073741827.0 -1) -> -1073741828.0) ((3054 . 5625) (+ -1073741827.0 0) -> -1073741827.0) ((3055 . 5625) (+ -1073741827.0 1) -> -1073741826.0) ((3056 . 5625) (+ -1073741826.0 -3) -> -1073741829.0) ((3057 . 5625) (+ -1073741826.0 -2) -> -1073741828.0) ((3058 . 5625) (+ -1073741826.0 -1) -> -1073741827.0) ((3059 . 5625) (+ -1073741826.0 0) -> -1073741826.0) ((3060 . 5625) (+ -1073741826.0 1) -> -1073741825.0) ((3061 . 5625) (+ -1073741825.0 -3) -> -1073741828.0) ((3062 . 5625) (+ -1073741825.0 -2) -> -1073741827.0) ((3063 . 5625) (+ -1073741825.0 -1) -> -1073741826.0) ((3064 . 5625) (+ -1073741825.0 0) -> -1073741825.0) ((3065 . 5625) (+ -1073741825.0 1) -> -1073741824.0) ((3066 . 5625) (+ -1073741824.0 -3) -> -1073741827.0) ((3067 . 5625) (+ -1073741824.0 -2) -> -1073741826.0) ((3068 . 5625) (+ -1073741824.0 -1) -> -1073741825.0) ((3069 . 5625) (+ -1073741824.0 0) -> -1073741824.0) ((3070 . 5625) (+ -1073741824.0 1) -> -1073741823.0) ((3071 . 5625) (+ -1073741823.0 -3) -> -1073741826.0) ((3072 . 5625) (+ -1073741823.0 -2) -> -1073741825.0) ((3073 . 5625) (+ -1073741823.0 -1) -> -1073741824.0) ((3074 . 5625) (+ -1073741823.0 0) -> -1073741823.0) ((3075 . 5625) (+ -1073741823.0 1) -> -1073741822.0) ((3076 . 5625) (+ -1073741827.0 0) -> -1073741827.0) ((3077 . 5625) (+ -1073741827.0 1) -> -1073741826.0) ((3078 . 5625) (+ -1073741827.0 2) -> -1073741825.0) ((3079 . 5625) (+ -1073741827.0 3) -> -1073741824.0) ((3080 . 5625) (+ -1073741827.0 4) -> -1073741823.0) ((3081 . 5625) (+ -1073741826.0 0) -> -1073741826.0) ((3082 . 5625) (+ -1073741826.0 1) -> -1073741825.0) ((3083 . 5625) (+ -1073741826.0 2) -> -1073741824.0) ((3084 . 5625) (+ -1073741826.0 3) -> -1073741823.0) ((3085 . 5625) (+ -1073741826.0 4) -> -1073741822.0) ((3086 . 5625) (+ -1073741825.0 0) -> -1073741825.0) ((3087 . 5625) (+ -1073741825.0 1) -> -1073741824.0) ((3088 . 5625) (+ -1073741825.0 2) -> -1073741823.0) ((3089 . 5625) (+ -1073741825.0 3) -> -1073741822.0) ((3090 . 5625) (+ -1073741825.0 4) -> -1073741821.0) ((3091 . 5625) (+ -1073741824.0 0) -> -1073741824.0) ((3092 . 5625) (+ -1073741824.0 1) -> -1073741823.0) ((3093 . 5625) (+ -1073741824.0 2) -> -1073741822.0) ((3094 . 5625) (+ -1073741824.0 3) -> -1073741821.0) ((3095 . 5625) (+ -1073741824.0 4) -> -1073741820.0) ((3096 . 5625) (+ -1073741823.0 0) -> -1073741823.0) ((3097 . 5625) (+ -1073741823.0 1) -> -1073741822.0) ((3098 . 5625) (+ -1073741823.0 2) -> -1073741821.0) ((3099 . 5625) (+ -1073741823.0 3) -> -1073741820.0) ((3100 . 5625) (+ -1073741823.0 4) -> -1073741819.0) ((3101 . 5625) (+ -1073741827.0 -4) -> -1073741831.0) ((3102 . 5625) (+ -1073741827.0 -3) -> -1073741830.0) ((3103 . 5625) (+ -1073741827.0 -2) -> -1073741829.0) ((3104 . 5625) (+ -1073741827.0 -1) -> -1073741828.0) ((3105 . 5625) (+ -1073741827.0 0) -> -1073741827.0) ((3106 . 5625) (+ -1073741826.0 -4) -> -1073741830.0) ((3107 . 5625) (+ -1073741826.0 -3) -> -1073741829.0) ((3108 . 5625) (+ -1073741826.0 -2) -> -1073741828.0) ((3109 . 5625) (+ -1073741826.0 -1) -> -1073741827.0) ((3110 . 5625) (+ -1073741826.0 0) -> -1073741826.0) ((3111 . 5625) (+ -1073741825.0 -4) -> -1073741829.0) ((3112 . 5625) (+ -1073741825.0 -3) -> -1073741828.0) ((3113 . 5625) (+ -1073741825.0 -2) -> -1073741827.0) ((3114 . 5625) (+ -1073741825.0 -1) -> -1073741826.0) ((3115 . 5625) (+ -1073741825.0 0) -> -1073741825.0) ((3116 . 5625) (+ -1073741824.0 -4) -> -1073741828.0) ((3117 . 5625) (+ -1073741824.0 -3) -> -1073741827.0) ((3118 . 5625) (+ -1073741824.0 -2) -> -1073741826.0) ((3119 . 5625) (+ -1073741824.0 -1) -> -1073741825.0) ((3120 . 5625) (+ -1073741824.0 0) -> -1073741824.0) ((3121 . 5625) (+ -1073741823.0 -4) -> -1073741827.0) ((3122 . 5625) (+ -1073741823.0 -3) -> -1073741826.0) ((3123 . 5625) (+ -1073741823.0 -2) -> -1073741825.0) ((3124 . 5625) (+ -1073741823.0 -1) -> -1073741824.0) ((3125 . 5625) (+ -1073741823.0 0) -> -1073741823.0) ((3126 . 5625) (+ -1073741827.0 1073741821) -> -6.0) ((3127 . 5625) (+ -1073741827.0 1073741822) -> -5.0) ((3128 . 5625) (+ -1073741827.0 1073741823) -> -4.0) ((3129 . 5625) (+ -1073741827.0 1073741824.0) -> -3.0) ((3130 . 5625) (+ -1073741827.0 1073741825.0) -> -2.0) ((3131 . 5625) (+ -1073741826.0 1073741821) -> -5.0) ((3132 . 5625) (+ -1073741826.0 1073741822) -> -4.0) ((3133 . 5625) (+ -1073741826.0 1073741823) -> -3.0) ((3134 . 5625) (+ -1073741826.0 1073741824.0) -> -2.0) ((3135 . 5625) (+ -1073741826.0 1073741825.0) -> -1.0) ((3136 . 5625) (+ -1073741825.0 1073741821) -> -4.0) ((3137 . 5625) (+ -1073741825.0 1073741822) -> -3.0) ((3138 . 5625) (+ -1073741825.0 1073741823) -> -2.0) ((3139 . 5625) (+ -1073741825.0 1073741824.0) -> -1.0) ((3140 . 5625) (+ -1073741825.0 1073741825.0) -> 0.0) ((3141 . 5625) (+ -1073741824.0 1073741821) -> -3.0) ((3142 . 5625) (+ -1073741824.0 1073741822) -> -2.0) ((3143 . 5625) (+ -1073741824.0 1073741823) -> -1.0) ((3144 . 5625) (+ -1073741824.0 1073741824.0) -> 0.0) ((3145 . 5625) (+ -1073741824.0 1073741825.0) -> 1.0) ((3146 . 5625) (+ -1073741823.0 1073741821) -> -2.0) ((3147 . 5625) (+ -1073741823.0 1073741822) -> -1.0) ((3148 . 5625) (+ -1073741823.0 1073741823) -> 0.0) ((3149 . 5625) (+ -1073741823.0 1073741824.0) -> 1.0) ((3150 . 5625) (+ -1073741823.0 1073741825.0) -> 2.0) ((3151 . 5625) (+ -1073741827.0 -1073741826.0) -> -2147483653.0) ((3152 . 5625) (+ -1073741827.0 -1073741825.0) -> -2147483652.0) ((3153 . 5625) (+ -1073741827.0 -1073741824) -> -2147483651.0) ((3154 . 5625) (+ -1073741827.0 -1073741823) -> -2147483650.0) ((3155 . 5625) (+ -1073741827.0 -1073741822) -> -2147483649.0) ((3156 . 5625) (+ -1073741826.0 -1073741826.0) -> -2147483652.0) ((3157 . 5625) (+ -1073741826.0 -1073741825.0) -> -2147483651.0) ((3158 . 5625) (+ -1073741826.0 -1073741824) -> -2147483650.0) ((3159 . 5625) (+ -1073741826.0 -1073741823) -> -2147483649.0) ((3160 . 5625) (+ -1073741826.0 -1073741822) -> -2147483648.0) ((3161 . 5625) (+ -1073741825.0 -1073741826.0) -> -2147483651.0) ((3162 . 5625) (+ -1073741825.0 -1073741825.0) -> -2147483650.0) ((3163 . 5625) (+ -1073741825.0 -1073741824) -> -2147483649.0) ((3164 . 5625) (+ -1073741825.0 -1073741823) -> -2147483648.0) ((3165 . 5625) (+ -1073741825.0 -1073741822) -> -2147483647.0) ((3166 . 5625) (+ -1073741824.0 -1073741826.0) -> -2147483650.0) ((3167 . 5625) (+ -1073741824.0 -1073741825.0) -> -2147483649.0) ((3168 . 5625) (+ -1073741824.0 -1073741824) -> -2147483648.0) ((3169 . 5625) (+ -1073741824.0 -1073741823) -> -2147483647.0) ((3170 . 5625) (+ -1073741824.0 -1073741822) -> -2147483646.0) ((3171 . 5625) (+ -1073741823.0 -1073741826.0) -> -2147483649.0) ((3172 . 5625) (+ -1073741823.0 -1073741825.0) -> -2147483648.0) ((3173 . 5625) (+ -1073741823.0 -1073741824) -> -2147483647.0) ((3174 . 5625) (+ -1073741823.0 -1073741823) -> -2147483646.0) ((3175 . 5625) (+ -1073741823.0 -1073741822) -> -2147483645.0) ((3176 . 5625) (+ -1073741827.0 1073741822.0) -> -5.0) ((3177 . 5625) (+ -1073741827.0 1073741823.0) -> -4.0) ((3178 . 5625) (+ -1073741827.0 1073741824.0) -> -3.0) ((3179 . 5625) (+ -1073741827.0 1073741825.0) -> -2.0) ((3180 . 5625) (+ -1073741827.0 1073741826.0) -> -1.0) ((3181 . 5625) (+ -1073741826.0 1073741822.0) -> -4.0) ((3182 . 5625) (+ -1073741826.0 1073741823.0) -> -3.0) ((3183 . 5625) (+ -1073741826.0 1073741824.0) -> -2.0) ((3184 . 5625) (+ -1073741826.0 1073741825.0) -> -1.0) ((3185 . 5625) (+ -1073741826.0 1073741826.0) -> 0.0) ((3186 . 5625) (+ -1073741825.0 1073741822.0) -> -3.0) ((3187 . 5625) (+ -1073741825.0 1073741823.0) -> -2.0) ((3188 . 5625) (+ -1073741825.0 1073741824.0) -> -1.0) ((3189 . 5625) (+ -1073741825.0 1073741825.0) -> 0.0) ((3190 . 5625) (+ -1073741825.0 1073741826.0) -> 1.0) ((3191 . 5625) (+ -1073741824.0 1073741822.0) -> -2.0) ((3192 . 5625) (+ -1073741824.0 1073741823.0) -> -1.0) ((3193 . 5625) (+ -1073741824.0 1073741824.0) -> 0.0) ((3194 . 5625) (+ -1073741824.0 1073741825.0) -> 1.0) ((3195 . 5625) (+ -1073741824.0 1073741826.0) -> 2.0) ((3196 . 5625) (+ -1073741823.0 1073741822.0) -> -1.0) ((3197 . 5625) (+ -1073741823.0 1073741823.0) -> 0.0) ((3198 . 5625) (+ -1073741823.0 1073741824.0) -> 1.0) ((3199 . 5625) (+ -1073741823.0 1073741825.0) -> 2.0) ((3200 . 5625) (+ -1073741823.0 1073741826.0) -> 3.0) ((3201 . 5625) (+ -1073741827.0 -1073741827.0) -> -2147483654.0) ((3202 . 5625) (+ -1073741827.0 -1073741826.0) -> -2147483653.0) ((3203 . 5625) (+ -1073741827.0 -1073741825.0) -> -2147483652.0) ((3204 . 5625) (+ -1073741827.0 -1073741824.0) -> -2147483651.0) ((3205 . 5625) (+ -1073741827.0 -1073741823.0) -> -2147483650.0) ((3206 . 5625) (+ -1073741826.0 -1073741827.0) -> -2147483653.0) ((3207 . 5625) (+ -1073741826.0 -1073741826.0) -> -2147483652.0) ((3208 . 5625) (+ -1073741826.0 -1073741825.0) -> -2147483651.0) ((3209 . 5625) (+ -1073741826.0 -1073741824.0) -> -2147483650.0) ((3210 . 5625) (+ -1073741826.0 -1073741823.0) -> -2147483649.0) ((3211 . 5625) (+ -1073741825.0 -1073741827.0) -> -2147483652.0) ((3212 . 5625) (+ -1073741825.0 -1073741826.0) -> -2147483651.0) ((3213 . 5625) (+ -1073741825.0 -1073741825.0) -> -2147483650.0) ((3214 . 5625) (+ -1073741825.0 -1073741824.0) -> -2147483649.0) ((3215 . 5625) (+ -1073741825.0 -1073741823.0) -> -2147483648.0) ((3216 . 5625) (+ -1073741824.0 -1073741827.0) -> -2147483651.0) ((3217 . 5625) (+ -1073741824.0 -1073741826.0) -> -2147483650.0) ((3218 . 5625) (+ -1073741824.0 -1073741825.0) -> -2147483649.0) ((3219 . 5625) (+ -1073741824.0 -1073741824.0) -> -2147483648.0) ((3220 . 5625) (+ -1073741824.0 -1073741823.0) -> -2147483647.0) ((3221 . 5625) (+ -1073741823.0 -1073741827.0) -> -2147483650.0) ((3222 . 5625) (+ -1073741823.0 -1073741826.0) -> -2147483649.0) ((3223 . 5625) (+ -1073741823.0 -1073741825.0) -> -2147483648.0) ((3224 . 5625) (+ -1073741823.0 -1073741824.0) -> -2147483647.0) ((3225 . 5625) (+ -1073741823.0 -1073741823.0) -> -2147483646.0) ((3226 . 5625) (+ -1073741827.0 1103515243.0) -> 29773416.0) ((3227 . 5625) (+ -1073741827.0 1103515244.0) -> 29773417.0) ((3228 . 5625) (+ -1073741827.0 1103515245.0) -> 29773418.0) ((3229 . 5625) (+ -1073741827.0 1103515246.0) -> 29773419.0) ((3230 . 5625) (+ -1073741827.0 1103515247.0) -> 29773420.0) ((3231 . 5625) (+ -1073741826.0 1103515243.0) -> 29773417.0) ((3232 . 5625) (+ -1073741826.0 1103515244.0) -> 29773418.0) ((3233 . 5625) (+ -1073741826.0 1103515245.0) -> 29773419.0) ((3234 . 5625) (+ -1073741826.0 1103515246.0) -> 29773420.0) ((3235 . 5625) (+ -1073741826.0 1103515247.0) -> 29773421.0) ((3236 . 5625) (+ -1073741825.0 1103515243.0) -> 29773418.0) ((3237 . 5625) (+ -1073741825.0 1103515244.0) -> 29773419.0) ((3238 . 5625) (+ -1073741825.0 1103515245.0) -> 29773420.0) ((3239 . 5625) (+ -1073741825.0 1103515246.0) -> 29773421.0) ((3240 . 5625) (+ -1073741825.0 1103515247.0) -> 29773422.0) ((3241 . 5625) (+ -1073741824.0 1103515243.0) -> 29773419.0) ((3242 . 5625) (+ -1073741824.0 1103515244.0) -> 29773420.0) ((3243 . 5625) (+ -1073741824.0 1103515245.0) -> 29773421.0) ((3244 . 5625) (+ -1073741824.0 1103515246.0) -> 29773422.0) ((3245 . 5625) (+ -1073741824.0 1103515247.0) -> 29773423.0) ((3246 . 5625) (+ -1073741823.0 1103515243.0) -> 29773420.0) ((3247 . 5625) (+ -1073741823.0 1103515244.0) -> 29773421.0) ((3248 . 5625) (+ -1073741823.0 1103515245.0) -> 29773422.0) ((3249 . 5625) (+ -1073741823.0 1103515246.0) -> 29773423.0) ((3250 . 5625) (+ -1073741823.0 1103515247.0) -> 29773424.0) ((3251 . 5625) (+ -1073741827.0 631629063) -> -442112764.0) ((3252 . 5625) (+ -1073741827.0 631629064) -> -442112763.0) ((3253 . 5625) (+ -1073741827.0 631629065) -> -442112762.0) ((3254 . 5625) (+ -1073741827.0 631629066) -> -442112761.0) ((3255 . 5625) (+ -1073741827.0 631629067) -> -442112760.0) ((3256 . 5625) (+ -1073741826.0 631629063) -> -442112763.0) ((3257 . 5625) (+ -1073741826.0 631629064) -> -442112762.0) ((3258 . 5625) (+ -1073741826.0 631629065) -> -442112761.0) ((3259 . 5625) (+ -1073741826.0 631629066) -> -442112760.0) ((3260 . 5625) (+ -1073741826.0 631629067) -> -442112759.0) ((3261 . 5625) (+ -1073741825.0 631629063) -> -442112762.0) ((3262 . 5625) (+ -1073741825.0 631629064) -> -442112761.0) ((3263 . 5625) (+ -1073741825.0 631629065) -> -442112760.0) ((3264 . 5625) (+ -1073741825.0 631629066) -> -442112759.0) ((3265 . 5625) (+ -1073741825.0 631629067) -> -442112758.0) ((3266 . 5625) (+ -1073741824.0 631629063) -> -442112761.0) ((3267 . 5625) (+ -1073741824.0 631629064) -> -442112760.0) ((3268 . 5625) (+ -1073741824.0 631629065) -> -442112759.0) ((3269 . 5625) (+ -1073741824.0 631629066) -> -442112758.0) ((3270 . 5625) (+ -1073741824.0 631629067) -> -442112757.0) ((3271 . 5625) (+ -1073741823.0 631629063) -> -442112760.0) ((3272 . 5625) (+ -1073741823.0 631629064) -> -442112759.0) ((3273 . 5625) (+ -1073741823.0 631629065) -> -442112758.0) ((3274 . 5625) (+ -1073741823.0 631629066) -> -442112757.0) ((3275 . 5625) (+ -1073741823.0 631629067) -> -442112756.0) ((3276 . 5625) (+ -1073741827.0 9.00719925474099e+15) -> 9.00719818099916e+15) ((3277 . 5625) (+ -1073741827.0 9.00719925474099e+15) -> 9.00719818099916e+15) ((3278 . 5625) (+ -1073741827.0 9.00719925474099e+15) -> 9.00719818099916e+15) ((3279 . 5625) (+ -1073741827.0 9.00719925474099e+15) -> 9.00719818099916e+15) ((3280 . 5625) (+ -1073741827.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((3281 . 5625) (+ -1073741826.0 9.00719925474099e+15) -> 9.00719818099916e+15) ((3282 . 5625) (+ -1073741826.0 9.00719925474099e+15) -> 9.00719818099916e+15) ((3283 . 5625) (+ -1073741826.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((3284 . 5625) (+ -1073741826.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((3285 . 5625) (+ -1073741826.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((3286 . 5625) (+ -1073741825.0 9.00719925474099e+15) -> 9.00719818099916e+15) ((3287 . 5625) (+ -1073741825.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((3288 . 5625) (+ -1073741825.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((3289 . 5625) (+ -1073741825.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((3290 . 5625) (+ -1073741825.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((3291 . 5625) (+ -1073741824.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((3292 . 5625) (+ -1073741824.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((3293 . 5625) (+ -1073741824.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((3294 . 5625) (+ -1073741824.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((3295 . 5625) (+ -1073741824.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((3296 . 5625) (+ -1073741823.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((3297 . 5625) (+ -1073741823.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((3298 . 5625) (+ -1073741823.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((3299 . 5625) (+ -1073741823.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((3300 . 5625) (+ -1073741823.0 9.00719925474099e+15) -> 9.00719818099917e+15) ((3301 . 5625) (+ -1073741827.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3302 . 5625) (+ -1073741827.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3303 . 5625) (+ -1073741827.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3304 . 5625) (+ -1073741827.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3305 . 5625) (+ -1073741827.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3306 . 5625) (+ -1073741826.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3307 . 5625) (+ -1073741826.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3308 . 5625) (+ -1073741826.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3309 . 5625) (+ -1073741826.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3310 . 5625) (+ -1073741826.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3311 . 5625) (+ -1073741825.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3312 . 5625) (+ -1073741825.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3313 . 5625) (+ -1073741825.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3314 . 5625) (+ -1073741825.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3315 . 5625) (+ -1073741825.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3316 . 5625) (+ -1073741824.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3317 . 5625) (+ -1073741824.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3318 . 5625) (+ -1073741824.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3319 . 5625) (+ -1073741824.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3320 . 5625) (+ -1073741824.0 -9.00719925474099e+15) -> -9.00720032848281e+15) ((3321 . 5625) (+ -1073741823.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3322 . 5625) (+ -1073741823.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3323 . 5625) (+ -1073741823.0 -9.00719925474099e+15) -> -9.00720032848282e+15) ((3324 . 5625) (+ -1073741823.0 -9.00719925474099e+15) -> -9.00720032848281e+15) ((3325 . 5625) (+ -1073741823.0 -9.00719925474099e+15) -> -9.00720032848281e+15) ((3326 . 5625) (+ -1073741827.0 12343) -> -1073729484.0) ((3327 . 5625) (+ -1073741827.0 12344) -> -1073729483.0) ((3328 . 5625) (+ -1073741827.0 12345) -> -1073729482.0) ((3329 . 5625) (+ -1073741827.0 12346) -> -1073729481.0) ((3330 . 5625) (+ -1073741827.0 12347) -> -1073729480.0) ((3331 . 5625) (+ -1073741826.0 12343) -> -1073729483.0) ((3332 . 5625) (+ -1073741826.0 12344) -> -1073729482.0) ((3333 . 5625) (+ -1073741826.0 12345) -> -1073729481.0) ((3334 . 5625) (+ -1073741826.0 12346) -> -1073729480.0) ((3335 . 5625) (+ -1073741826.0 12347) -> -1073729479.0) ((3336 . 5625) (+ -1073741825.0 12343) -> -1073729482.0) ((3337 . 5625) (+ -1073741825.0 12344) -> -1073729481.0) ((3338 . 5625) (+ -1073741825.0 12345) -> -1073729480.0) ((3339 . 5625) (+ -1073741825.0 12346) -> -1073729479.0) ((3340 . 5625) (+ -1073741825.0 12347) -> -1073729478.0) ((3341 . 5625) (+ -1073741824.0 12343) -> -1073729481.0) ((3342 . 5625) (+ -1073741824.0 12344) -> -1073729480.0) ((3343 . 5625) (+ -1073741824.0 12345) -> -1073729479.0) ((3344 . 5625) (+ -1073741824.0 12346) -> -1073729478.0) ((3345 . 5625) (+ -1073741824.0 12347) -> -1073729477.0) ((3346 . 5625) (+ -1073741823.0 12343) -> -1073729480.0) ((3347 . 5625) (+ -1073741823.0 12344) -> -1073729479.0) ((3348 . 5625) (+ -1073741823.0 12345) -> -1073729478.0) ((3349 . 5625) (+ -1073741823.0 12346) -> -1073729477.0) ((3350 . 5625) (+ -1073741823.0 12347) -> -1073729476.0) ((3351 . 5625) (+ -1073741827.0 4294967294.0) -> 3221225467.0) ((3352 . 5625) (+ -1073741827.0 4294967295.0) -> 3221225468.0) ((3353 . 5625) (+ -1073741827.0 4294967296.0) -> 3221225469.0) ((3354 . 5625) (+ -1073741827.0 4294967297.0) -> 3221225470.0) ((3355 . 5625) (+ -1073741827.0 4294967298.0) -> 3221225471.0) ((3356 . 5625) (+ -1073741826.0 4294967294.0) -> 3221225468.0) ((3357 . 5625) (+ -1073741826.0 4294967295.0) -> 3221225469.0) ((3358 . 5625) (+ -1073741826.0 4294967296.0) -> 3221225470.0) ((3359 . 5625) (+ -1073741826.0 4294967297.0) -> 3221225471.0) ((3360 . 5625) (+ -1073741826.0 4294967298.0) -> 3221225472.0) ((3361 . 5625) (+ -1073741825.0 4294967294.0) -> 3221225469.0) ((3362 . 5625) (+ -1073741825.0 4294967295.0) -> 3221225470.0) ((3363 . 5625) (+ -1073741825.0 4294967296.0) -> 3221225471.0) ((3364 . 5625) (+ -1073741825.0 4294967297.0) -> 3221225472.0) ((3365 . 5625) (+ -1073741825.0 4294967298.0) -> 3221225473.0) ((3366 . 5625) (+ -1073741824.0 4294967294.0) -> 3221225470.0) ((3367 . 5625) (+ -1073741824.0 4294967295.0) -> 3221225471.0) ((3368 . 5625) (+ -1073741824.0 4294967296.0) -> 3221225472.0) ((3369 . 5625) (+ -1073741824.0 4294967297.0) -> 3221225473.0) ((3370 . 5625) (+ -1073741824.0 4294967298.0) -> 3221225474.0) ((3371 . 5625) (+ -1073741823.0 4294967294.0) -> 3221225471.0) ((3372 . 5625) (+ -1073741823.0 4294967295.0) -> 3221225472.0) ((3373 . 5625) (+ -1073741823.0 4294967296.0) -> 3221225473.0) ((3374 . 5625) (+ -1073741823.0 4294967297.0) -> 3221225474.0) ((3375 . 5625) (+ -1073741823.0 4294967298.0) -> 3221225475.0) ((3376 . 5625) (+ 1103515243.0 -2) -> 1103515241.0) ((3377 . 5625) (+ 1103515243.0 -1) -> 1103515242.0) ((3378 . 5625) (+ 1103515243.0 0) -> 1103515243.0) ((3379 . 5625) (+ 1103515243.0 1) -> 1103515244.0) ((3380 . 5625) (+ 1103515243.0 2) -> 1103515245.0) ((3381 . 5625) (+ 1103515244.0 -2) -> 1103515242.0) ((3382 . 5625) (+ 1103515244.0 -1) -> 1103515243.0) ((3383 . 5625) (+ 1103515244.0 0) -> 1103515244.0) ((3384 . 5625) (+ 1103515244.0 1) -> 1103515245.0) ((3385 . 5625) (+ 1103515244.0 2) -> 1103515246.0) ((3386 . 5625) (+ 1103515245.0 -2) -> 1103515243.0) ((3387 . 5625) (+ 1103515245.0 -1) -> 1103515244.0) ((3388 . 5625) (+ 1103515245.0 0) -> 1103515245.0) ((3389 . 5625) (+ 1103515245.0 1) -> 1103515246.0) ((3390 . 5625) (+ 1103515245.0 2) -> 1103515247.0) ((3391 . 5625) (+ 1103515246.0 -2) -> 1103515244.0) ((3392 . 5625) (+ 1103515246.0 -1) -> 1103515245.0) ((3393 . 5625) (+ 1103515246.0 0) -> 1103515246.0) ((3394 . 5625) (+ 1103515246.0 1) -> 1103515247.0) ((3395 . 5625) (+ 1103515246.0 2) -> 1103515248.0) ((3396 . 5625) (+ 1103515247.0 -2) -> 1103515245.0) ((3397 . 5625) (+ 1103515247.0 -1) -> 1103515246.0) ((3398 . 5625) (+ 1103515247.0 0) -> 1103515247.0) ((3399 . 5625) (+ 1103515247.0 1) -> 1103515248.0) ((3400 . 5625) (+ 1103515247.0 2) -> 1103515249.0) ((3401 . 5625) (+ 1103515243.0 -1) -> 1103515242.0) ((3402 . 5625) (+ 1103515243.0 0) -> 1103515243.0) ((3403 . 5625) (+ 1103515243.0 1) -> 1103515244.0) ((3404 . 5625) (+ 1103515243.0 2) -> 1103515245.0) ((3405 . 5625) (+ 1103515243.0 3) -> 1103515246.0) ((3406 . 5625) (+ 1103515244.0 -1) -> 1103515243.0) ((3407 . 5625) (+ 1103515244.0 0) -> 1103515244.0) ((3408 . 5625) (+ 1103515244.0 1) -> 1103515245.0) ((3409 . 5625) (+ 1103515244.0 2) -> 1103515246.0) ((3410 . 5625) (+ 1103515244.0 3) -> 1103515247.0) ((3411 . 5625) (+ 1103515245.0 -1) -> 1103515244.0) ((3412 . 5625) (+ 1103515245.0 0) -> 1103515245.0) ((3413 . 5625) (+ 1103515245.0 1) -> 1103515246.0) ((3414 . 5625) (+ 1103515245.0 2) -> 1103515247.0) ((3415 . 5625) (+ 1103515245.0 3) -> 1103515248.0) ((3416 . 5625) (+ 1103515246.0 -1) -> 1103515245.0) ((3417 . 5625) (+ 1103515246.0 0) -> 1103515246.0) ((3418 . 5625) (+ 1103515246.0 1) -> 1103515247.0) ((3419 . 5625) (+ 1103515246.0 2) -> 1103515248.0) ((3420 . 5625) (+ 1103515246.0 3) -> 1103515249.0) ((3421 . 5625) (+ 1103515247.0 -1) -> 1103515246.0) ((3422 . 5625) (+ 1103515247.0 0) -> 1103515247.0) ((3423 . 5625) (+ 1103515247.0 1) -> 1103515248.0) ((3424 . 5625) (+ 1103515247.0 2) -> 1103515249.0) ((3425 . 5625) (+ 1103515247.0 3) -> 1103515250.0) ((3426 . 5625) (+ 1103515243.0 -3) -> 1103515240.0) ((3427 . 5625) (+ 1103515243.0 -2) -> 1103515241.0) ((3428 . 5625) (+ 1103515243.0 -1) -> 1103515242.0) ((3429 . 5625) (+ 1103515243.0 0) -> 1103515243.0) ((3430 . 5625) (+ 1103515243.0 1) -> 1103515244.0) ((3431 . 5625) (+ 1103515244.0 -3) -> 1103515241.0) ((3432 . 5625) (+ 1103515244.0 -2) -> 1103515242.0) ((3433 . 5625) (+ 1103515244.0 -1) -> 1103515243.0) ((3434 . 5625) (+ 1103515244.0 0) -> 1103515244.0) ((3435 . 5625) (+ 1103515244.0 1) -> 1103515245.0) ((3436 . 5625) (+ 1103515245.0 -3) -> 1103515242.0) ((3437 . 5625) (+ 1103515245.0 -2) -> 1103515243.0) ((3438 . 5625) (+ 1103515245.0 -1) -> 1103515244.0) ((3439 . 5625) (+ 1103515245.0 0) -> 1103515245.0) ((3440 . 5625) (+ 1103515245.0 1) -> 1103515246.0) ((3441 . 5625) (+ 1103515246.0 -3) -> 1103515243.0) ((3442 . 5625) (+ 1103515246.0 -2) -> 1103515244.0) ((3443 . 5625) (+ 1103515246.0 -1) -> 1103515245.0) ((3444 . 5625) (+ 1103515246.0 0) -> 1103515246.0) ((3445 . 5625) (+ 1103515246.0 1) -> 1103515247.0) ((3446 . 5625) (+ 1103515247.0 -3) -> 1103515244.0) ((3447 . 5625) (+ 1103515247.0 -2) -> 1103515245.0) ((3448 . 5625) (+ 1103515247.0 -1) -> 1103515246.0) ((3449 . 5625) (+ 1103515247.0 0) -> 1103515247.0) ((3450 . 5625) (+ 1103515247.0 1) -> 1103515248.0) ((3451 . 5625) (+ 1103515243.0 0) -> 1103515243.0) ((3452 . 5625) (+ 1103515243.0 1) -> 1103515244.0) ((3453 . 5625) (+ 1103515243.0 2) -> 1103515245.0) ((3454 . 5625) (+ 1103515243.0 3) -> 1103515246.0) ((3455 . 5625) (+ 1103515243.0 4) -> 1103515247.0) ((3456 . 5625) (+ 1103515244.0 0) -> 1103515244.0) ((3457 . 5625) (+ 1103515244.0 1) -> 1103515245.0) ((3458 . 5625) (+ 1103515244.0 2) -> 1103515246.0) ((3459 . 5625) (+ 1103515244.0 3) -> 1103515247.0) ((3460 . 5625) (+ 1103515244.0 4) -> 1103515248.0) ((3461 . 5625) (+ 1103515245.0 0) -> 1103515245.0) ((3462 . 5625) (+ 1103515245.0 1) -> 1103515246.0) ((3463 . 5625) (+ 1103515245.0 2) -> 1103515247.0) ((3464 . 5625) (+ 1103515245.0 3) -> 1103515248.0) ((3465 . 5625) (+ 1103515245.0 4) -> 1103515249.0) ((3466 . 5625) (+ 1103515246.0 0) -> 1103515246.0) ((3467 . 5625) (+ 1103515246.0 1) -> 1103515247.0) ((3468 . 5625) (+ 1103515246.0 2) -> 1103515248.0) ((3469 . 5625) (+ 1103515246.0 3) -> 1103515249.0) ((3470 . 5625) (+ 1103515246.0 4) -> 1103515250.0) ((3471 . 5625) (+ 1103515247.0 0) -> 1103515247.0) ((3472 . 5625) (+ 1103515247.0 1) -> 1103515248.0) ((3473 . 5625) (+ 1103515247.0 2) -> 1103515249.0) ((3474 . 5625) (+ 1103515247.0 3) -> 1103515250.0) ((3475 . 5625) (+ 1103515247.0 4) -> 1103515251.0) ((3476 . 5625) (+ 1103515243.0 -4) -> 1103515239.0) ((3477 . 5625) (+ 1103515243.0 -3) -> 1103515240.0) ((3478 . 5625) (+ 1103515243.0 -2) -> 1103515241.0) ((3479 . 5625) (+ 1103515243.0 -1) -> 1103515242.0) ((3480 . 5625) (+ 1103515243.0 0) -> 1103515243.0) ((3481 . 5625) (+ 1103515244.0 -4) -> 1103515240.0) ((3482 . 5625) (+ 1103515244.0 -3) -> 1103515241.0) ((3483 . 5625) (+ 1103515244.0 -2) -> 1103515242.0) ((3484 . 5625) (+ 1103515244.0 -1) -> 1103515243.0) ((3485 . 5625) (+ 1103515244.0 0) -> 1103515244.0) ((3486 . 5625) (+ 1103515245.0 -4) -> 1103515241.0) ((3487 . 5625) (+ 1103515245.0 -3) -> 1103515242.0) ((3488 . 5625) (+ 1103515245.0 -2) -> 1103515243.0) ((3489 . 5625) (+ 1103515245.0 -1) -> 1103515244.0) ((3490 . 5625) (+ 1103515245.0 0) -> 1103515245.0) ((3491 . 5625) (+ 1103515246.0 -4) -> 1103515242.0) ((3492 . 5625) (+ 1103515246.0 -3) -> 1103515243.0) ((3493 . 5625) (+ 1103515246.0 -2) -> 1103515244.0) ((3494 . 5625) (+ 1103515246.0 -1) -> 1103515245.0) ((3495 . 5625) (+ 1103515246.0 0) -> 1103515246.0) ((3496 . 5625) (+ 1103515247.0 -4) -> 1103515243.0) ((3497 . 5625) (+ 1103515247.0 -3) -> 1103515244.0) ((3498 . 5625) (+ 1103515247.0 -2) -> 1103515245.0) ((3499 . 5625) (+ 1103515247.0 -1) -> 1103515246.0) ((3500 . 5625) (+ 1103515247.0 0) -> 1103515247.0) ((3501 . 5625) (+ 1103515243.0 1073741821) -> 2177257064.0) ((3502 . 5625) (+ 1103515243.0 1073741822) -> 2177257065.0) ((3503 . 5625) (+ 1103515243.0 1073741823) -> 2177257066.0) ((3504 . 5625) (+ 1103515243.0 1073741824.0) -> 2177257067.0) ((3505 . 5625) (+ 1103515243.0 1073741825.0) -> 2177257068.0) ((3506 . 5625) (+ 1103515244.0 1073741821) -> 2177257065.0) ((3507 . 5625) (+ 1103515244.0 1073741822) -> 2177257066.0) ((3508 . 5625) (+ 1103515244.0 1073741823) -> 2177257067.0) ((3509 . 5625) (+ 1103515244.0 1073741824.0) -> 2177257068.0) ((3510 . 5625) (+ 1103515244.0 1073741825.0) -> 2177257069.0) ((3511 . 5625) (+ 1103515245.0 1073741821) -> 2177257066.0) ((3512 . 5625) (+ 1103515245.0 1073741822) -> 2177257067.0) ((3513 . 5625) (+ 1103515245.0 1073741823) -> 2177257068.0) ((3514 . 5625) (+ 1103515245.0 1073741824.0) -> 2177257069.0) ((3515 . 5625) (+ 1103515245.0 1073741825.0) -> 2177257070.0) ((3516 . 5625) (+ 1103515246.0 1073741821) -> 2177257067.0) ((3517 . 5625) (+ 1103515246.0 1073741822) -> 2177257068.0) ((3518 . 5625) (+ 1103515246.0 1073741823) -> 2177257069.0) ((3519 . 5625) (+ 1103515246.0 1073741824.0) -> 2177257070.0) ((3520 . 5625) (+ 1103515246.0 1073741825.0) -> 2177257071.0) ((3521 . 5625) (+ 1103515247.0 1073741821) -> 2177257068.0) ((3522 . 5625) (+ 1103515247.0 1073741822) -> 2177257069.0) ((3523 . 5625) (+ 1103515247.0 1073741823) -> 2177257070.0) ((3524 . 5625) (+ 1103515247.0 1073741824.0) -> 2177257071.0) ((3525 . 5625) (+ 1103515247.0 1073741825.0) -> 2177257072.0) ((3526 . 5625) (+ 1103515243.0 -1073741826.0) -> 29773417.0) ((3527 . 5625) (+ 1103515243.0 -1073741825.0) -> 29773418.0) ((3528 . 5625) (+ 1103515243.0 -1073741824) -> 29773419.0) ((3529 . 5625) (+ 1103515243.0 -1073741823) -> 29773420.0) ((3530 . 5625) (+ 1103515243.0 -1073741822) -> 29773421.0) ((3531 . 5625) (+ 1103515244.0 -1073741826.0) -> 29773418.0) ((3532 . 5625) (+ 1103515244.0 -1073741825.0) -> 29773419.0) ((3533 . 5625) (+ 1103515244.0 -1073741824) -> 29773420.0) ((3534 . 5625) (+ 1103515244.0 -1073741823) -> 29773421.0) ((3535 . 5625) (+ 1103515244.0 -1073741822) -> 29773422.0) ((3536 . 5625) (+ 1103515245.0 -1073741826.0) -> 29773419.0) ((3537 . 5625) (+ 1103515245.0 -1073741825.0) -> 29773420.0) ((3538 . 5625) (+ 1103515245.0 -1073741824) -> 29773421.0) ((3539 . 5625) (+ 1103515245.0 -1073741823) -> 29773422.0) ((3540 . 5625) (+ 1103515245.0 -1073741822) -> 29773423.0) ((3541 . 5625) (+ 1103515246.0 -1073741826.0) -> 29773420.0) ((3542 . 5625) (+ 1103515246.0 -1073741825.0) -> 29773421.0) ((3543 . 5625) (+ 1103515246.0 -1073741824) -> 29773422.0) ((3544 . 5625) (+ 1103515246.0 -1073741823) -> 29773423.0) ((3545 . 5625) (+ 1103515246.0 -1073741822) -> 29773424.0) ((3546 . 5625) (+ 1103515247.0 -1073741826.0) -> 29773421.0) ((3547 . 5625) (+ 1103515247.0 -1073741825.0) -> 29773422.0) ((3548 . 5625) (+ 1103515247.0 -1073741824) -> 29773423.0) ((3549 . 5625) (+ 1103515247.0 -1073741823) -> 29773424.0) ((3550 . 5625) (+ 1103515247.0 -1073741822) -> 29773425.0) ((3551 . 5625) (+ 1103515243.0 1073741822.0) -> 2177257065.0) ((3552 . 5625) (+ 1103515243.0 1073741823.0) -> 2177257066.0) ((3553 . 5625) (+ 1103515243.0 1073741824.0) -> 2177257067.0) ((3554 . 5625) (+ 1103515243.0 1073741825.0) -> 2177257068.0) ((3555 . 5625) (+ 1103515243.0 1073741826.0) -> 2177257069.0) ((3556 . 5625) (+ 1103515244.0 1073741822.0) -> 2177257066.0) ((3557 . 5625) (+ 1103515244.0 1073741823.0) -> 2177257067.0) ((3558 . 5625) (+ 1103515244.0 1073741824.0) -> 2177257068.0) ((3559 . 5625) (+ 1103515244.0 1073741825.0) -> 2177257069.0) ((3560 . 5625) (+ 1103515244.0 1073741826.0) -> 2177257070.0) ((3561 . 5625) (+ 1103515245.0 1073741822.0) -> 2177257067.0) ((3562 . 5625) (+ 1103515245.0 1073741823.0) -> 2177257068.0) ((3563 . 5625) (+ 1103515245.0 1073741824.0) -> 2177257069.0) ((3564 . 5625) (+ 1103515245.0 1073741825.0) -> 2177257070.0) ((3565 . 5625) (+ 1103515245.0 1073741826.0) -> 2177257071.0) ((3566 . 5625) (+ 1103515246.0 1073741822.0) -> 2177257068.0) ((3567 . 5625) (+ 1103515246.0 1073741823.0) -> 2177257069.0) ((3568 . 5625) (+ 1103515246.0 1073741824.0) -> 2177257070.0) ((3569 . 5625) (+ 1103515246.0 1073741825.0) -> 2177257071.0) ((3570 . 5625) (+ 1103515246.0 1073741826.0) -> 2177257072.0) ((3571 . 5625) (+ 1103515247.0 1073741822.0) -> 2177257069.0) ((3572 . 5625) (+ 1103515247.0 1073741823.0) -> 2177257070.0) ((3573 . 5625) (+ 1103515247.0 1073741824.0) -> 2177257071.0) ((3574 . 5625) (+ 1103515247.0 1073741825.0) -> 2177257072.0) ((3575 . 5625) (+ 1103515247.0 1073741826.0) -> 2177257073.0) ((3576 . 5625) (+ 1103515243.0 -1073741827.0) -> 29773416.0) ((3577 . 5625) (+ 1103515243.0 -1073741826.0) -> 29773417.0) ((3578 . 5625) (+ 1103515243.0 -1073741825.0) -> 29773418.0) ((3579 . 5625) (+ 1103515243.0 -1073741824.0) -> 29773419.0) ((3580 . 5625) (+ 1103515243.0 -1073741823.0) -> 29773420.0) ((3581 . 5625) (+ 1103515244.0 -1073741827.0) -> 29773417.0) ((3582 . 5625) (+ 1103515244.0 -1073741826.0) -> 29773418.0) ((3583 . 5625) (+ 1103515244.0 -1073741825.0) -> 29773419.0) ((3584 . 5625) (+ 1103515244.0 -1073741824.0) -> 29773420.0) ((3585 . 5625) (+ 1103515244.0 -1073741823.0) -> 29773421.0) ((3586 . 5625) (+ 1103515245.0 -1073741827.0) -> 29773418.0) ((3587 . 5625) (+ 1103515245.0 -1073741826.0) -> 29773419.0) ((3588 . 5625) (+ 1103515245.0 -1073741825.0) -> 29773420.0) ((3589 . 5625) (+ 1103515245.0 -1073741824.0) -> 29773421.0) ((3590 . 5625) (+ 1103515245.0 -1073741823.0) -> 29773422.0) ((3591 . 5625) (+ 1103515246.0 -1073741827.0) -> 29773419.0) ((3592 . 5625) (+ 1103515246.0 -1073741826.0) -> 29773420.0) ((3593 . 5625) (+ 1103515246.0 -1073741825.0) -> 29773421.0) ((3594 . 5625) (+ 1103515246.0 -1073741824.0) -> 29773422.0) ((3595 . 5625) (+ 1103515246.0 -1073741823.0) -> 29773423.0) ((3596 . 5625) (+ 1103515247.0 -1073741827.0) -> 29773420.0) ((3597 . 5625) (+ 1103515247.0 -1073741826.0) -> 29773421.0) ((3598 . 5625) (+ 1103515247.0 -1073741825.0) -> 29773422.0) ((3599 . 5625) (+ 1103515247.0 -1073741824.0) -> 29773423.0) ((3600 . 5625) (+ 1103515247.0 -1073741823.0) -> 29773424.0) ((3601 . 5625) (+ 1103515243.0 1103515243.0) -> 2207030486.0) ((3602 . 5625) (+ 1103515243.0 1103515244.0) -> 2207030487.0) ((3603 . 5625) (+ 1103515243.0 1103515245.0) -> 2207030488.0) ((3604 . 5625) (+ 1103515243.0 1103515246.0) -> 2207030489.0) ((3605 . 5625) (+ 1103515243.0 1103515247.0) -> 2207030490.0) ((3606 . 5625) (+ 1103515244.0 1103515243.0) -> 2207030487.0) ((3607 . 5625) (+ 1103515244.0 1103515244.0) -> 2207030488.0) ((3608 . 5625) (+ 1103515244.0 1103515245.0) -> 2207030489.0) ((3609 . 5625) (+ 1103515244.0 1103515246.0) -> 2207030490.0) ((3610 . 5625) (+ 1103515244.0 1103515247.0) -> 2207030491.0) ((3611 . 5625) (+ 1103515245.0 1103515243.0) -> 2207030488.0) ((3612 . 5625) (+ 1103515245.0 1103515244.0) -> 2207030489.0) ((3613 . 5625) (+ 1103515245.0 1103515245.0) -> 2207030490.0) ((3614 . 5625) (+ 1103515245.0 1103515246.0) -> 2207030491.0) ((3615 . 5625) (+ 1103515245.0 1103515247.0) -> 2207030492.0) ((3616 . 5625) (+ 1103515246.0 1103515243.0) -> 2207030489.0) ((3617 . 5625) (+ 1103515246.0 1103515244.0) -> 2207030490.0) ((3618 . 5625) (+ 1103515246.0 1103515245.0) -> 2207030491.0) ((3619 . 5625) (+ 1103515246.0 1103515246.0) -> 2207030492.0) ((3620 . 5625) (+ 1103515246.0 1103515247.0) -> 2207030493.0) ((3621 . 5625) (+ 1103515247.0 1103515243.0) -> 2207030490.0) ((3622 . 5625) (+ 1103515247.0 1103515244.0) -> 2207030491.0) ((3623 . 5625) (+ 1103515247.0 1103515245.0) -> 2207030492.0) ((3624 . 5625) (+ 1103515247.0 1103515246.0) -> 2207030493.0) ((3625 . 5625) (+ 1103515247.0 1103515247.0) -> 2207030494.0) ((3626 . 5625) (+ 1103515243.0 631629063) -> 1735144306.0) ((3627 . 5625) (+ 1103515243.0 631629064) -> 1735144307.0) ((3628 . 5625) (+ 1103515243.0 631629065) -> 1735144308.0) ((3629 . 5625) (+ 1103515243.0 631629066) -> 1735144309.0) ((3630 . 5625) (+ 1103515243.0 631629067) -> 1735144310.0) ((3631 . 5625) (+ 1103515244.0 631629063) -> 1735144307.0) ((3632 . 5625) (+ 1103515244.0 631629064) -> 1735144308.0) ((3633 . 5625) (+ 1103515244.0 631629065) -> 1735144309.0) ((3634 . 5625) (+ 1103515244.0 631629066) -> 1735144310.0) ((3635 . 5625) (+ 1103515244.0 631629067) -> 1735144311.0) ((3636 . 5625) (+ 1103515245.0 631629063) -> 1735144308.0) ((3637 . 5625) (+ 1103515245.0 631629064) -> 1735144309.0) ((3638 . 5625) (+ 1103515245.0 631629065) -> 1735144310.0) ((3639 . 5625) (+ 1103515245.0 631629066) -> 1735144311.0) ((3640 . 5625) (+ 1103515245.0 631629067) -> 1735144312.0) ((3641 . 5625) (+ 1103515246.0 631629063) -> 1735144309.0) ((3642 . 5625) (+ 1103515246.0 631629064) -> 1735144310.0) ((3643 . 5625) (+ 1103515246.0 631629065) -> 1735144311.0) ((3644 . 5625) (+ 1103515246.0 631629066) -> 1735144312.0) ((3645 . 5625) (+ 1103515246.0 631629067) -> 1735144313.0) ((3646 . 5625) (+ 1103515247.0 631629063) -> 1735144310.0) ((3647 . 5625) (+ 1103515247.0 631629064) -> 1735144311.0) ((3648 . 5625) (+ 1103515247.0 631629065) -> 1735144312.0) ((3649 . 5625) (+ 1103515247.0 631629066) -> 1735144313.0) ((3650 . 5625) (+ 1103515247.0 631629067) -> 1735144314.0) ((3651 . 5625) (+ 1103515243.0 9.00719925474099e+15) -> 9.00720035825623e+15) ((3652 . 5625) (+ 1103515243.0 9.00719925474099e+15) -> 9.00720035825623e+15) ((3653 . 5625) (+ 1103515243.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3654 . 5625) (+ 1103515243.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3655 . 5625) (+ 1103515243.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3656 . 5625) (+ 1103515244.0 9.00719925474099e+15) -> 9.00720035825623e+15) ((3657 . 5625) (+ 1103515244.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3658 . 5625) (+ 1103515244.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3659 . 5625) (+ 1103515244.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3660 . 5625) (+ 1103515244.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3661 . 5625) (+ 1103515245.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3662 . 5625) (+ 1103515245.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3663 . 5625) (+ 1103515245.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3664 . 5625) (+ 1103515245.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3665 . 5625) (+ 1103515245.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3666 . 5625) (+ 1103515246.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3667 . 5625) (+ 1103515246.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3668 . 5625) (+ 1103515246.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3669 . 5625) (+ 1103515246.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3670 . 5625) (+ 1103515246.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3671 . 5625) (+ 1103515247.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3672 . 5625) (+ 1103515247.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3673 . 5625) (+ 1103515247.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3674 . 5625) (+ 1103515247.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3675 . 5625) (+ 1103515247.0 9.00719925474099e+15) -> 9.00720035825624e+15) ((3676 . 5625) (+ 1103515243.0 -9.00719925474099e+15) -> -9.00719815122575e+15) ((3677 . 5625) (+ 1103515243.0 -9.00719925474099e+15) -> -9.00719815122575e+15) ((3678 . 5625) (+ 1103515243.0 -9.00719925474099e+15) -> -9.00719815122575e+15) ((3679 . 5625) (+ 1103515243.0 -9.00719925474099e+15) -> -9.00719815122575e+15) ((3680 . 5625) (+ 1103515243.0 -9.00719925474099e+15) -> -9.00719815122575e+15) ((3681 . 5625) (+ 1103515244.0 -9.00719925474099e+15) -> -9.00719815122575e+15) ((3682 . 5625) (+ 1103515244.0 -9.00719925474099e+15) -> -9.00719815122575e+15) ((3683 . 5625) (+ 1103515244.0 -9.00719925474099e+15) -> -9.00719815122575e+15) ((3684 . 5625) (+ 1103515244.0 -9.00719925474099e+15) -> -9.00719815122575e+15) ((3685 . 5625) (+ 1103515244.0 -9.00719925474099e+15) -> -9.00719815122575e+15) ((3686 . 5625) (+ 1103515245.0 -9.00719925474099e+15) -> -9.00719815122575e+15) ((3687 . 5625) (+ 1103515245.0 -9.00719925474099e+15) -> -9.00719815122575e+15) ((3688 . 5625) (+ 1103515245.0 -9.00719925474099e+15) -> -9.00719815122575e+15) ((3689 . 5625) (+ 1103515245.0 -9.00719925474099e+15) -> -9.00719815122575e+15) ((3690 . 5625) (+ 1103515245.0 -9.00719925474099e+15) -> -9.00719815122574e+15) ((3691 . 5625) (+ 1103515246.0 -9.00719925474099e+15) -> -9.00719815122575e+15) ((3692 . 5625) (+ 1103515246.0 -9.00719925474099e+15) -> -9.00719815122575e+15) ((3693 . 5625) (+ 1103515246.0 -9.00719925474099e+15) -> -9.00719815122575e+15) ((3694 . 5625) (+ 1103515246.0 -9.00719925474099e+15) -> -9.00719815122574e+15) ((3695 . 5625) (+ 1103515246.0 -9.00719925474099e+15) -> -9.00719815122574e+15) ((3696 . 5625) (+ 1103515247.0 -9.00719925474099e+15) -> -9.00719815122575e+15) ((3697 . 5625) (+ 1103515247.0 -9.00719925474099e+15) -> -9.00719815122574e+15) ((3698 . 5625) (+ 1103515247.0 -9.00719925474099e+15) -> -9.00719815122574e+15) ((3699 . 5625) (+ 1103515247.0 -9.00719925474099e+15) -> -9.00719815122574e+15) ((3700 . 5625) (+ 1103515247.0 -9.00719925474099e+15) -> -9.00719815122574e+15) ((3701 . 5625) (+ 1103515243.0 12343) -> 1103527586.0) ((3702 . 5625) (+ 1103515243.0 12344) -> 1103527587.0) ((3703 . 5625) (+ 1103515243.0 12345) -> 1103527588.0) ((3704 . 5625) (+ 1103515243.0 12346) -> 1103527589.0) ((3705 . 5625) (+ 1103515243.0 12347) -> 1103527590.0) ((3706 . 5625) (+ 1103515244.0 12343) -> 1103527587.0) ((3707 . 5625) (+ 1103515244.0 12344) -> 1103527588.0) ((3708 . 5625) (+ 1103515244.0 12345) -> 1103527589.0) ((3709 . 5625) (+ 1103515244.0 12346) -> 1103527590.0) ((3710 . 5625) (+ 1103515244.0 12347) -> 1103527591.0) ((3711 . 5625) (+ 1103515245.0 12343) -> 1103527588.0) ((3712 . 5625) (+ 1103515245.0 12344) -> 1103527589.0) ((3713 . 5625) (+ 1103515245.0 12345) -> 1103527590.0) ((3714 . 5625) (+ 1103515245.0 12346) -> 1103527591.0) ((3715 . 5625) (+ 1103515245.0 12347) -> 1103527592.0) ((3716 . 5625) (+ 1103515246.0 12343) -> 1103527589.0) ((3717 . 5625) (+ 1103515246.0 12344) -> 1103527590.0) ((3718 . 5625) (+ 1103515246.0 12345) -> 1103527591.0) ((3719 . 5625) (+ 1103515246.0 12346) -> 1103527592.0) ((3720 . 5625) (+ 1103515246.0 12347) -> 1103527593.0) ((3721 . 5625) (+ 1103515247.0 12343) -> 1103527590.0) ((3722 . 5625) (+ 1103515247.0 12344) -> 1103527591.0) ((3723 . 5625) (+ 1103515247.0 12345) -> 1103527592.0) ((3724 . 5625) (+ 1103515247.0 12346) -> 1103527593.0) ((3725 . 5625) (+ 1103515247.0 12347) -> 1103527594.0) ((3726 . 5625) (+ 1103515243.0 4294967294.0) -> 5398482537.0) ((3727 . 5625) (+ 1103515243.0 4294967295.0) -> 5398482538.0) ((3728 . 5625) (+ 1103515243.0 4294967296.0) -> 5398482539.0) ((3729 . 5625) (+ 1103515243.0 4294967297.0) -> 5398482540.0) ((3730 . 5625) (+ 1103515243.0 4294967298.0) -> 5398482541.0) ((3731 . 5625) (+ 1103515244.0 4294967294.0) -> 5398482538.0) ((3732 . 5625) (+ 1103515244.0 4294967295.0) -> 5398482539.0) ((3733 . 5625) (+ 1103515244.0 4294967296.0) -> 5398482540.0) ((3734 . 5625) (+ 1103515244.0 4294967297.0) -> 5398482541.0) ((3735 . 5625) (+ 1103515244.0 4294967298.0) -> 5398482542.0) ((3736 . 5625) (+ 1103515245.0 4294967294.0) -> 5398482539.0) ((3737 . 5625) (+ 1103515245.0 4294967295.0) -> 5398482540.0) ((3738 . 5625) (+ 1103515245.0 4294967296.0) -> 5398482541.0) ((3739 . 5625) (+ 1103515245.0 4294967297.0) -> 5398482542.0) ((3740 . 5625) (+ 1103515245.0 4294967298.0) -> 5398482543.0) ((3741 . 5625) (+ 1103515246.0 4294967294.0) -> 5398482540.0) ((3742 . 5625) (+ 1103515246.0 4294967295.0) -> 5398482541.0) ((3743 . 5625) (+ 1103515246.0 4294967296.0) -> 5398482542.0) ((3744 . 5625) (+ 1103515246.0 4294967297.0) -> 5398482543.0) ((3745 . 5625) (+ 1103515246.0 4294967298.0) -> 5398482544.0) ((3746 . 5625) (+ 1103515247.0 4294967294.0) -> 5398482541.0) ((3747 . 5625) (+ 1103515247.0 4294967295.0) -> 5398482542.0) ((3748 . 5625) (+ 1103515247.0 4294967296.0) -> 5398482543.0) ((3749 . 5625) (+ 1103515247.0 4294967297.0) -> 5398482544.0) ((3750 . 5625) (+ 1103515247.0 4294967298.0) -> 5398482545.0) ((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.0) ((3877 . 5625) (+ 631629063 1073741822) -> 1705370885.0) ((3878 . 5625) (+ 631629063 1073741823) -> 1705370886.0) ((3879 . 5625) (+ 631629063 1073741824.0) -> 1705370887.0) ((3880 . 5625) (+ 631629063 1073741825.0) -> 1705370888.0) ((3881 . 5625) (+ 631629064 1073741821) -> 1705370885.0) ((3882 . 5625) (+ 631629064 1073741822) -> 1705370886.0) ((3883 . 5625) (+ 631629064 1073741823) -> 1705370887.0) ((3884 . 5625) (+ 631629064 1073741824.0) -> 1705370888.0) ((3885 . 5625) (+ 631629064 1073741825.0) -> 1705370889.0) ((3886 . 5625) (+ 631629065 1073741821) -> 1705370886.0) ((3887 . 5625) (+ 631629065 1073741822) -> 1705370887.0) ((3888 . 5625) (+ 631629065 1073741823) -> 1705370888.0) ((3889 . 5625) (+ 631629065 1073741824.0) -> 1705370889.0) ((3890 . 5625) (+ 631629065 1073741825.0) -> 1705370890.0) ((3891 . 5625) (+ 631629066 1073741821) -> 1705370887.0) ((3892 . 5625) (+ 631629066 1073741822) -> 1705370888.0) ((3893 . 5625) (+ 631629066 1073741823) -> 1705370889.0) ((3894 . 5625) (+ 631629066 1073741824.0) -> 1705370890.0) ((3895 . 5625) (+ 631629066 1073741825.0) -> 1705370891.0) ((3896 . 5625) (+ 631629067 1073741821) -> 1705370888.0) ((3897 . 5625) (+ 631629067 1073741822) -> 1705370889.0) ((3898 . 5625) (+ 631629067 1073741823) -> 1705370890.0) ((3899 . 5625) (+ 631629067 1073741824.0) -> 1705370891.0) ((3900 . 5625) (+ 631629067 1073741825.0) -> 1705370892.0) ((3901 . 5625) (+ 631629063 -1073741826.0) -> -442112763.0) ((3902 . 5625) (+ 631629063 -1073741825.0) -> -442112762.0) ((3903 . 5625) (+ 631629063 -1073741824) -> -442112761) ((3904 . 5625) (+ 631629063 -1073741823) -> -442112760) ((3905 . 5625) (+ 631629063 -1073741822) -> -442112759) ((3906 . 5625) (+ 631629064 -1073741826.0) -> -442112762.0) ((3907 . 5625) (+ 631629064 -1073741825.0) -> -442112761.0) ((3908 . 5625) (+ 631629064 -1073741824) -> -442112760) ((3909 . 5625) (+ 631629064 -1073741823) -> -442112759) ((3910 . 5625) (+ 631629064 -1073741822) -> -442112758) ((3911 . 5625) (+ 631629065 -1073741826.0) -> -442112761.0) ((3912 . 5625) (+ 631629065 -1073741825.0) -> -442112760.0) ((3913 . 5625) (+ 631629065 -1073741824) -> -442112759) ((3914 . 5625) (+ 631629065 -1073741823) -> -442112758) ((3915 . 5625) (+ 631629065 -1073741822) -> -442112757) ((3916 . 5625) (+ 631629066 -1073741826.0) -> -442112760.0) ((3917 . 5625) (+ 631629066 -1073741825.0) -> -442112759.0) ((3918 . 5625) (+ 631629066 -1073741824) -> -442112758) ((3919 . 5625) (+ 631629066 -1073741823) -> -442112757) ((3920 . 5625) (+ 631629066 -1073741822) -> -442112756) ((3921 . 5625) (+ 631629067 -1073741826.0) -> -442112759.0) ((3922 . 5625) (+ 631629067 -1073741825.0) -> -442112758.0) ((3923 . 5625) (+ 631629067 -1073741824) -> -442112757) ((3924 . 5625) (+ 631629067 -1073741823) -> -442112756) ((3925 . 5625) (+ 631629067 -1073741822) -> -442112755) ((3926 . 5625) (+ 631629063 1073741822.0) -> 1705370885.0) ((3927 . 5625) (+ 631629063 1073741823.0) -> 1705370886.0) ((3928 . 5625) (+ 631629063 1073741824.0) -> 1705370887.0) ((3929 . 5625) (+ 631629063 1073741825.0) -> 1705370888.0) ((3930 . 5625) (+ 631629063 1073741826.0) -> 1705370889.0) ((3931 . 5625) (+ 631629064 1073741822.0) -> 1705370886.0) ((3932 . 5625) (+ 631629064 1073741823.0) -> 1705370887.0) ((3933 . 5625) (+ 631629064 1073741824.0) -> 1705370888.0) ((3934 . 5625) (+ 631629064 1073741825.0) -> 1705370889.0) ((3935 . 5625) (+ 631629064 1073741826.0) -> 1705370890.0) ((3936 . 5625) (+ 631629065 1073741822.0) -> 1705370887.0) ((3937 . 5625) (+ 631629065 1073741823.0) -> 1705370888.0) ((3938 . 5625) (+ 631629065 1073741824.0) -> 1705370889.0) ((3939 . 5625) (+ 631629065 1073741825.0) -> 1705370890.0) ((3940 . 5625) (+ 631629065 1073741826.0) -> 1705370891.0) ((3941 . 5625) (+ 631629066 1073741822.0) -> 1705370888.0) ((3942 . 5625) (+ 631629066 1073741823.0) -> 1705370889.0) ((3943 . 5625) (+ 631629066 1073741824.0) -> 1705370890.0) ((3944 . 5625) (+ 631629066 1073741825.0) -> 1705370891.0) ((3945 . 5625) (+ 631629066 1073741826.0) -> 1705370892.0) ((3946 . 5625) (+ 631629067 1073741822.0) -> 1705370889.0) ((3947 . 5625) (+ 631629067 1073741823.0) -> 1705370890.0) ((3948 . 5625) (+ 631629067 1073741824.0) -> 1705370891.0) ((3949 . 5625) (+ 631629067 1073741825.0) -> 1705370892.0) ((3950 . 5625) (+ 631629067 1073741826.0) -> 1705370893.0) ((3951 . 5625) (+ 631629063 -1073741827.0) -> -442112764.0) ((3952 . 5625) (+ 631629063 -1073741826.0) -> -442112763.0) ((3953 . 5625) (+ 631629063 -1073741825.0) -> -442112762.0) ((3954 . 5625) (+ 631629063 -1073741824.0) -> -442112761.0) ((3955 . 5625) (+ 631629063 -1073741823.0) -> -442112760.0) ((3956 . 5625) (+ 631629064 -1073741827.0) -> -442112763.0) ((3957 . 5625) (+ 631629064 -1073741826.0) -> -442112762.0) ((3958 . 5625) (+ 631629064 -1073741825.0) -> -442112761.0) ((3959 . 5625) (+ 631629064 -1073741824.0) -> -442112760.0) ((3960 . 5625) (+ 631629064 -1073741823.0) -> -442112759.0) ((3961 . 5625) (+ 631629065 -1073741827.0) -> -442112762.0) ((3962 . 5625) (+ 631629065 -1073741826.0) -> -442112761.0) ((3963 . 5625) (+ 631629065 -1073741825.0) -> -442112760.0) ((3964 . 5625) (+ 631629065 -1073741824.0) -> -442112759.0) ((3965 . 5625) (+ 631629065 -1073741823.0) -> -442112758.0) ((3966 . 5625) (+ 631629066 -1073741827.0) -> -442112761.0) ((3967 . 5625) (+ 631629066 -1073741826.0) -> -442112760.0) ((3968 . 5625) (+ 631629066 -1073741825.0) -> -442112759.0) ((3969 . 5625) (+ 631629066 -1073741824.0) -> -442112758.0) ((3970 . 5625) (+ 631629066 -1073741823.0) -> -442112757.0) ((3971 . 5625) (+ 631629067 -1073741827.0) -> -442112760.0) ((3972 . 5625) (+ 631629067 -1073741826.0) -> -442112759.0) ((3973 . 5625) (+ 631629067 -1073741825.0) -> -442112758.0) ((3974 . 5625) (+ 631629067 -1073741824.0) -> -442112757.0) ((3975 . 5625) (+ 631629067 -1073741823.0) -> -442112756.0) ((3976 . 5625) (+ 631629063 1103515243.0) -> 1735144306.0) ((3977 . 5625) (+ 631629063 1103515244.0) -> 1735144307.0) ((3978 . 5625) (+ 631629063 1103515245.0) -> 1735144308.0) ((3979 . 5625) (+ 631629063 1103515246.0) -> 1735144309.0) ((3980 . 5625) (+ 631629063 1103515247.0) -> 1735144310.0) ((3981 . 5625) (+ 631629064 1103515243.0) -> 1735144307.0) ((3982 . 5625) (+ 631629064 1103515244.0) -> 1735144308.0) ((3983 . 5625) (+ 631629064 1103515245.0) -> 1735144309.0) ((3984 . 5625) (+ 631629064 1103515246.0) -> 1735144310.0) ((3985 . 5625) (+ 631629064 1103515247.0) -> 1735144311.0) ((3986 . 5625) (+ 631629065 1103515243.0) -> 1735144308.0) ((3987 . 5625) (+ 631629065 1103515244.0) -> 1735144309.0) ((3988 . 5625) (+ 631629065 1103515245.0) -> 1735144310.0) ((3989 . 5625) (+ 631629065 1103515246.0) -> 1735144311.0) ((3990 . 5625) (+ 631629065 1103515247.0) -> 1735144312.0) ((3991 . 5625) (+ 631629066 1103515243.0) -> 1735144309.0) ((3992 . 5625) (+ 631629066 1103515244.0) -> 1735144310.0) ((3993 . 5625) (+ 631629066 1103515245.0) -> 1735144311.0) ((3994 . 5625) (+ 631629066 1103515246.0) -> 1735144312.0) ((3995 . 5625) (+ 631629066 1103515247.0) -> 1735144313.0) ((3996 . 5625) (+ 631629067 1103515243.0) -> 1735144310.0) ((3997 . 5625) (+ 631629067 1103515244.0) -> 1735144311.0) ((3998 . 5625) (+ 631629067 1103515245.0) -> 1735144312.0) ((3999 . 5625) (+ 631629067 1103515246.0) -> 1735144313.0) ((4000 . 5625) (+ 631629067 1103515247.0) -> 1735144314.0) ((4001 . 5625) (+ 631629063 631629063) -> 1263258126.0) ((4002 . 5625) (+ 631629063 631629064) -> 1263258127.0) ((4003 . 5625) (+ 631629063 631629065) -> 1263258128.0) ((4004 . 5625) (+ 631629063 631629066) -> 1263258129.0) ((4005 . 5625) (+ 631629063 631629067) -> 1263258130.0) ((4006 . 5625) (+ 631629064 631629063) -> 1263258127.0) ((4007 . 5625) (+ 631629064 631629064) -> 1263258128.0) ((4008 . 5625) (+ 631629064 631629065) -> 1263258129.0) ((4009 . 5625) (+ 631629064 631629066) -> 1263258130.0) ((4010 . 5625) (+ 631629064 631629067) -> 1263258131.0) ((4011 . 5625) (+ 631629065 631629063) -> 1263258128.0) ((4012 . 5625) (+ 631629065 631629064) -> 1263258129.0) ((4013 . 5625) (+ 631629065 631629065) -> 1263258130.0) ((4014 . 5625) (+ 631629065 631629066) -> 1263258131.0) ((4015 . 5625) (+ 631629065 631629067) -> 1263258132.0) ((4016 . 5625) (+ 631629066 631629063) -> 1263258129.0) ((4017 . 5625) (+ 631629066 631629064) -> 1263258130.0) ((4018 . 5625) (+ 631629066 631629065) -> 1263258131.0) ((4019 . 5625) (+ 631629066 631629066) -> 1263258132.0) ((4020 . 5625) (+ 631629066 631629067) -> 1263258133.0) ((4021 . 5625) (+ 631629067 631629063) -> 1263258130.0) ((4022 . 5625) (+ 631629067 631629064) -> 1263258131.0) ((4023 . 5625) (+ 631629067 631629065) -> 1263258132.0) ((4024 . 5625) (+ 631629067 631629066) -> 1263258133.0) ((4025 . 5625) (+ 631629067 631629067) -> 1263258134.0) ((4026 . 5625) (+ 631629063 9.00719925474099e+15) -> 9.00719988637005e+15) ((4027 . 5625) (+ 631629063 9.00719925474099e+15) -> 9.00719988637005e+15) ((4028 . 5625) (+ 631629063 9.00719925474099e+15) -> 9.00719988637006e+15) ((4029 . 5625) (+ 631629063 9.00719925474099e+15) -> 9.00719988637006e+15) ((4030 . 5625) (+ 631629063 9.00719925474099e+15) -> 9.00719988637006e+15) ((4031 . 5625) (+ 631629064 9.00719925474099e+15) -> 9.00719988637005e+15) ((4032 . 5625) (+ 631629064 9.00719925474099e+15) -> 9.00719988637006e+15) ((4033 . 5625) (+ 631629064 9.00719925474099e+15) -> 9.00719988637006e+15) ((4034 . 5625) (+ 631629064 9.00719925474099e+15) -> 9.00719988637006e+15) ((4035 . 5625) (+ 631629064 9.00719925474099e+15) -> 9.00719988637006e+15) ((4036 . 5625) (+ 631629065 9.00719925474099e+15) -> 9.00719988637006e+15) ((4037 . 5625) (+ 631629065 9.00719925474099e+15) -> 9.00719988637006e+15) ((4038 . 5625) (+ 631629065 9.00719925474099e+15) -> 9.00719988637006e+15) ((4039 . 5625) (+ 631629065 9.00719925474099e+15) -> 9.00719988637006e+15) ((4040 . 5625) (+ 631629065 9.00719925474099e+15) -> 9.00719988637006e+15) ((4041 . 5625) (+ 631629066 9.00719925474099e+15) -> 9.00719988637006e+15) ((4042 . 5625) (+ 631629066 9.00719925474099e+15) -> 9.00719988637006e+15) ((4043 . 5625) (+ 631629066 9.00719925474099e+15) -> 9.00719988637006e+15) ((4044 . 5625) (+ 631629066 9.00719925474099e+15) -> 9.00719988637006e+15) ((4045 . 5625) (+ 631629066 9.00719925474099e+15) -> 9.00719988637006e+15) ((4046 . 5625) (+ 631629067 9.00719925474099e+15) -> 9.00719988637006e+15) ((4047 . 5625) (+ 631629067 9.00719925474099e+15) -> 9.00719988637006e+15) ((4048 . 5625) (+ 631629067 9.00719925474099e+15) -> 9.00719988637006e+15) ((4049 . 5625) (+ 631629067 9.00719925474099e+15) -> 9.00719988637006e+15) ((4050 . 5625) (+ 631629067 9.00719925474099e+15) -> 9.00719988637006e+15) ((4051 . 5625) (+ 631629063 -9.00719925474099e+15) -> -9.00719862311193e+15) ((4052 . 5625) (+ 631629063 -9.00719925474099e+15) -> -9.00719862311193e+15) ((4053 . 5625) (+ 631629063 -9.00719925474099e+15) -> -9.00719862311193e+15) ((4054 . 5625) (+ 631629063 -9.00719925474099e+15) -> -9.00719862311193e+15) ((4055 . 5625) (+ 631629063 -9.00719925474099e+15) -> -9.00719862311193e+15) ((4056 . 5625) (+ 631629064 -9.00719925474099e+15) -> -9.00719862311193e+15) ((4057 . 5625) (+ 631629064 -9.00719925474099e+15) -> -9.00719862311193e+15) ((4058 . 5625) (+ 631629064 -9.00719925474099e+15) -> -9.00719862311193e+15) ((4059 . 5625) (+ 631629064 -9.00719925474099e+15) -> -9.00719862311193e+15) ((4060 . 5625) (+ 631629064 -9.00719925474099e+15) -> -9.00719862311193e+15) ((4061 . 5625) (+ 631629065 -9.00719925474099e+15) -> -9.00719862311193e+15) ((4062 . 5625) (+ 631629065 -9.00719925474099e+15) -> -9.00719862311193e+15) ((4063 . 5625) (+ 631629065 -9.00719925474099e+15) -> -9.00719862311193e+15) ((4064 . 5625) (+ 631629065 -9.00719925474099e+15) -> -9.00719862311193e+15) ((4065 . 5625) (+ 631629065 -9.00719925474099e+15) -> -9.00719862311192e+15) ((4066 . 5625) (+ 631629066 -9.00719925474099e+15) -> -9.00719862311193e+15) ((4067 . 5625) (+ 631629066 -9.00719925474099e+15) -> -9.00719862311193e+15) ((4068 . 5625) (+ 631629066 -9.00719925474099e+15) -> -9.00719862311193e+15) ((4069 . 5625) (+ 631629066 -9.00719925474099e+15) -> -9.00719862311192e+15) ((4070 . 5625) (+ 631629066 -9.00719925474099e+15) -> -9.00719862311192e+15) ((4071 . 5625) (+ 631629067 -9.00719925474099e+15) -> -9.00719862311193e+15) ((4072 . 5625) (+ 631629067 -9.00719925474099e+15) -> -9.00719862311192e+15) ((4073 . 5625) (+ 631629067 -9.00719925474099e+15) -> -9.00719862311192e+15) ((4074 . 5625) (+ 631629067 -9.00719925474099e+15) -> -9.00719862311192e+15) ((4075 . 5625) (+ 631629067 -9.00719925474099e+15) -> -9.00719862311192e+15) ((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.0) -> 4926596357.0) ((4102 . 5625) (+ 631629063 4294967295.0) -> 4926596358.0) ((4103 . 5625) (+ 631629063 4294967296.0) -> 4926596359.0) ((4104 . 5625) (+ 631629063 4294967297.0) -> 4926596360.0) ((4105 . 5625) (+ 631629063 4294967298.0) -> 4926596361.0) ((4106 . 5625) (+ 631629064 4294967294.0) -> 4926596358.0) ((4107 . 5625) (+ 631629064 4294967295.0) -> 4926596359.0) ((4108 . 5625) (+ 631629064 4294967296.0) -> 4926596360.0) ((4109 . 5625) (+ 631629064 4294967297.0) -> 4926596361.0) ((4110 . 5625) (+ 631629064 4294967298.0) -> 4926596362.0) ((4111 . 5625) (+ 631629065 4294967294.0) -> 4926596359.0) ((4112 . 5625) (+ 631629065 4294967295.0) -> 4926596360.0) ((4113 . 5625) (+ 631629065 4294967296.0) -> 4926596361.0) ((4114 . 5625) (+ 631629065 4294967297.0) -> 4926596362.0) ((4115 . 5625) (+ 631629065 4294967298.0) -> 4926596363.0) ((4116 . 5625) (+ 631629066 4294967294.0) -> 4926596360.0) ((4117 . 5625) (+ 631629066 4294967295.0) -> 4926596361.0) ((4118 . 5625) (+ 631629066 4294967296.0) -> 4926596362.0) ((4119 . 5625) (+ 631629066 4294967297.0) -> 4926596363.0) ((4120 . 5625) (+ 631629066 4294967298.0) -> 4926596364.0) ((4121 . 5625) (+ 631629067 4294967294.0) -> 4926596361.0) ((4122 . 5625) (+ 631629067 4294967295.0) -> 4926596362.0) ((4123 . 5625) (+ 631629067 4294967296.0) -> 4926596363.0) ((4124 . 5625) (+ 631629067 4294967297.0) -> 4926596364.0) ((4125 . 5625) (+ 631629067 4294967298.0) -> 4926596365.0) ((4126 . 5625) (+ 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4127 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4128 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4129 . 5625) (+ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4130 . 5625) (+ 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4131 . 5625) (+ 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4132 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4133 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4134 . 5625) (+ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4135 . 5625) (+ 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4136 . 5625) (+ 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4137 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4138 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4139 . 5625) (+ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4140 . 5625) (+ 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4141 . 5625) (+ 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4142 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4143 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4144 . 5625) (+ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4145 . 5625) (+ 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4146 . 5625) (+ 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4147 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4148 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4149 . 5625) (+ 9.00719925474099e+15 1) -> 9.007199254741e+15) ((4150 . 5625) (+ 9.00719925474099e+15 2) -> 9.007199254741e+15) ((4151 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4152 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4153 . 5625) (+ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4154 . 5625) (+ 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4155 . 5625) (+ 9.00719925474099e+15 3) -> 9.00719925474099e+15) ((4156 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4157 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4158 . 5625) (+ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4159 . 5625) (+ 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4160 . 5625) (+ 9.00719925474099e+15 3) -> 9.00719925474099e+15) ((4161 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4162 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4163 . 5625) (+ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4164 . 5625) (+ 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4165 . 5625) (+ 9.00719925474099e+15 3) -> 9.007199254741e+15) ((4166 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4167 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4168 . 5625) (+ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4169 . 5625) (+ 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4170 . 5625) (+ 9.00719925474099e+15 3) -> 9.007199254741e+15) ((4171 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4172 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4173 . 5625) (+ 9.00719925474099e+15 1) -> 9.007199254741e+15) ((4174 . 5625) (+ 9.00719925474099e+15 2) -> 9.007199254741e+15) ((4175 . 5625) (+ 9.00719925474099e+15 3) -> 9.007199254741e+15) ((4176 . 5625) (+ 9.00719925474099e+15 -3) -> 9.00719925474099e+15) ((4177 . 5625) (+ 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4178 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4179 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4180 . 5625) (+ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4181 . 5625) (+ 9.00719925474099e+15 -3) -> 9.00719925474099e+15) ((4182 . 5625) (+ 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4183 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4184 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4185 . 5625) (+ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4186 . 5625) (+ 9.00719925474099e+15 -3) -> 9.00719925474099e+15) ((4187 . 5625) (+ 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4188 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4189 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4190 . 5625) (+ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4191 . 5625) (+ 9.00719925474099e+15 -3) -> 9.00719925474099e+15) ((4192 . 5625) (+ 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4193 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4194 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4195 . 5625) (+ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4196 . 5625) (+ 9.00719925474099e+15 -3) -> 9.00719925474099e+15) ((4197 . 5625) (+ 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4198 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4199 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4200 . 5625) (+ 9.00719925474099e+15 1) -> 9.007199254741e+15) ((4201 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4202 . 5625) (+ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4203 . 5625) (+ 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4204 . 5625) (+ 9.00719925474099e+15 3) -> 9.00719925474099e+15) ((4205 . 5625) (+ 9.00719925474099e+15 4) -> 9.00719925474099e+15) ((4206 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4207 . 5625) (+ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4208 . 5625) (+ 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4209 . 5625) (+ 9.00719925474099e+15 3) -> 9.00719925474099e+15) ((4210 . 5625) (+ 9.00719925474099e+15 4) -> 9.007199254741e+15) ((4211 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4212 . 5625) (+ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4213 . 5625) (+ 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4214 . 5625) (+ 9.00719925474099e+15 3) -> 9.007199254741e+15) ((4215 . 5625) (+ 9.00719925474099e+15 4) -> 9.007199254741e+15) ((4216 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4217 . 5625) (+ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4218 . 5625) (+ 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4219 . 5625) (+ 9.00719925474099e+15 3) -> 9.007199254741e+15) ((4220 . 5625) (+ 9.00719925474099e+15 4) -> 9.007199254741e+15) ((4221 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4222 . 5625) (+ 9.00719925474099e+15 1) -> 9.007199254741e+15) ((4223 . 5625) (+ 9.00719925474099e+15 2) -> 9.007199254741e+15) ((4224 . 5625) (+ 9.00719925474099e+15 3) -> 9.007199254741e+15) ((4225 . 5625) (+ 9.00719925474099e+15 4) -> 9.007199254741e+15) ((4226 . 5625) (+ 9.00719925474099e+15 -4) -> 9.00719925474099e+15) ((4227 . 5625) (+ 9.00719925474099e+15 -3) -> 9.00719925474099e+15) ((4228 . 5625) (+ 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4229 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4230 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4231 . 5625) (+ 9.00719925474099e+15 -4) -> 9.00719925474099e+15) ((4232 . 5625) (+ 9.00719925474099e+15 -3) -> 9.00719925474099e+15) ((4233 . 5625) (+ 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4234 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4235 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4236 . 5625) (+ 9.00719925474099e+15 -4) -> 9.00719925474099e+15) ((4237 . 5625) (+ 9.00719925474099e+15 -3) -> 9.00719925474099e+15) ((4238 . 5625) (+ 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4239 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4240 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4241 . 5625) (+ 9.00719925474099e+15 -4) -> 9.00719925474099e+15) ((4242 . 5625) (+ 9.00719925474099e+15 -3) -> 9.00719925474099e+15) ((4243 . 5625) (+ 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4244 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4245 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4246 . 5625) (+ 9.00719925474099e+15 -4) -> 9.00719925474099e+15) ((4247 . 5625) (+ 9.00719925474099e+15 -3) -> 9.00719925474099e+15) ((4248 . 5625) (+ 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4249 . 5625) (+ 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4250 . 5625) (+ 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4251 . 5625) (+ 9.00719925474099e+15 1073741821) -> 9.00720032848281e+15) ((4252 . 5625) (+ 9.00719925474099e+15 1073741822) -> 9.00720032848281e+15) ((4253 . 5625) (+ 9.00719925474099e+15 1073741823) -> 9.00720032848281e+15) ((4254 . 5625) (+ 9.00719925474099e+15 1073741824.0) -> 9.00720032848281e+15) ((4255 . 5625) (+ 9.00719925474099e+15 1073741825.0) -> 9.00720032848282e+15) ((4256 . 5625) (+ 9.00719925474099e+15 1073741821) -> 9.00720032848281e+15) ((4257 . 5625) (+ 9.00719925474099e+15 1073741822) -> 9.00720032848281e+15) ((4258 . 5625) (+ 9.00719925474099e+15 1073741823) -> 9.00720032848281e+15) ((4259 . 5625) (+ 9.00719925474099e+15 1073741824.0) -> 9.00720032848282e+15) ((4260 . 5625) (+ 9.00719925474099e+15 1073741825.0) -> 9.00720032848282e+15) ((4261 . 5625) (+ 9.00719925474099e+15 1073741821) -> 9.00720032848281e+15) ((4262 . 5625) (+ 9.00719925474099e+15 1073741822) -> 9.00720032848281e+15) ((4263 . 5625) (+ 9.00719925474099e+15 1073741823) -> 9.00720032848282e+15) ((4264 . 5625) (+ 9.00719925474099e+15 1073741824.0) -> 9.00720032848282e+15) ((4265 . 5625) (+ 9.00719925474099e+15 1073741825.0) -> 9.00720032848282e+15) ((4266 . 5625) (+ 9.00719925474099e+15 1073741821) -> 9.00720032848281e+15) ((4267 . 5625) (+ 9.00719925474099e+15 1073741822) -> 9.00720032848281e+15) ((4268 . 5625) (+ 9.00719925474099e+15 1073741823) -> 9.00720032848282e+15) ((4269 . 5625) (+ 9.00719925474099e+15 1073741824.0) -> 9.00720032848282e+15) ((4270 . 5625) (+ 9.00719925474099e+15 1073741825.0) -> 9.00720032848282e+15) ((4271 . 5625) (+ 9.00719925474099e+15 1073741821) -> 9.00720032848282e+15) ((4272 . 5625) (+ 9.00719925474099e+15 1073741822) -> 9.00720032848282e+15) ((4273 . 5625) (+ 9.00719925474099e+15 1073741823) -> 9.00720032848282e+15) ((4274 . 5625) (+ 9.00719925474099e+15 1073741824.0) -> 9.00720032848282e+15) ((4275 . 5625) (+ 9.00719925474099e+15 1073741825.0) -> 9.00720032848282e+15) ((4276 . 5625) (+ 9.00719925474099e+15 -1073741826.0) -> 9.00719818099916e+15) ((4277 . 5625) (+ 9.00719925474099e+15 -1073741825.0) -> 9.00719818099916e+15) ((4278 . 5625) (+ 9.00719925474099e+15 -1073741824) -> 9.00719818099917e+15) ((4279 . 5625) (+ 9.00719925474099e+15 -1073741823) -> 9.00719818099917e+15) ((4280 . 5625) (+ 9.00719925474099e+15 -1073741822) -> 9.00719818099917e+15) ((4281 . 5625) (+ 9.00719925474099e+15 -1073741826.0) -> 9.00719818099916e+15) ((4282 . 5625) (+ 9.00719925474099e+15 -1073741825.0) -> 9.00719818099917e+15) ((4283 . 5625) (+ 9.00719925474099e+15 -1073741824) -> 9.00719818099917e+15) ((4284 . 5625) (+ 9.00719925474099e+15 -1073741823) -> 9.00719818099917e+15) ((4285 . 5625) (+ 9.00719925474099e+15 -1073741822) -> 9.00719818099917e+15) ((4286 . 5625) (+ 9.00719925474099e+15 -1073741826.0) -> 9.00719818099917e+15) ((4287 . 5625) (+ 9.00719925474099e+15 -1073741825.0) -> 9.00719818099917e+15) ((4288 . 5625) (+ 9.00719925474099e+15 -1073741824) -> 9.00719818099917e+15) ((4289 . 5625) (+ 9.00719925474099e+15 -1073741823) -> 9.00719818099917e+15) ((4290 . 5625) (+ 9.00719925474099e+15 -1073741822) -> 9.00719818099917e+15) ((4291 . 5625) (+ 9.00719925474099e+15 -1073741826.0) -> 9.00719818099917e+15) ((4292 . 5625) (+ 9.00719925474099e+15 -1073741825.0) -> 9.00719818099917e+15) ((4293 . 5625) (+ 9.00719925474099e+15 -1073741824) -> 9.00719818099917e+15) ((4294 . 5625) (+ 9.00719925474099e+15 -1073741823) -> 9.00719818099917e+15) ((4295 . 5625) (+ 9.00719925474099e+15 -1073741822) -> 9.00719818099917e+15) ((4296 . 5625) (+ 9.00719925474099e+15 -1073741826.0) -> 9.00719818099917e+15) ((4297 . 5625) (+ 9.00719925474099e+15 -1073741825.0) -> 9.00719818099917e+15) ((4298 . 5625) (+ 9.00719925474099e+15 -1073741824) -> 9.00719818099917e+15) ((4299 . 5625) (+ 9.00719925474099e+15 -1073741823) -> 9.00719818099917e+15) ((4300 . 5625) (+ 9.00719925474099e+15 -1073741822) -> 9.00719818099917e+15) ((4301 . 5625) (+ 9.00719925474099e+15 1073741822.0) -> 9.00720032848281e+15) ((4302 . 5625) (+ 9.00719925474099e+15 1073741823.0) -> 9.00720032848281e+15) ((4303 . 5625) (+ 9.00719925474099e+15 1073741824.0) -> 9.00720032848281e+15) ((4304 . 5625) (+ 9.00719925474099e+15 1073741825.0) -> 9.00720032848282e+15) ((4305 . 5625) (+ 9.00719925474099e+15 1073741826.0) -> 9.00720032848282e+15) ((4306 . 5625) (+ 9.00719925474099e+15 1073741822.0) -> 9.00720032848281e+15) ((4307 . 5625) (+ 9.00719925474099e+15 1073741823.0) -> 9.00720032848281e+15) ((4308 . 5625) (+ 9.00719925474099e+15 1073741824.0) -> 9.00720032848282e+15) ((4309 . 5625) (+ 9.00719925474099e+15 1073741825.0) -> 9.00720032848282e+15) ((4310 . 5625) (+ 9.00719925474099e+15 1073741826.0) -> 9.00720032848282e+15) ((4311 . 5625) (+ 9.00719925474099e+15 1073741822.0) -> 9.00720032848281e+15) ((4312 . 5625) (+ 9.00719925474099e+15 1073741823.0) -> 9.00720032848282e+15) ((4313 . 5625) (+ 9.00719925474099e+15 1073741824.0) -> 9.00720032848282e+15) ((4314 . 5625) (+ 9.00719925474099e+15 1073741825.0) -> 9.00720032848282e+15) ((4315 . 5625) (+ 9.00719925474099e+15 1073741826.0) -> 9.00720032848282e+15) ((4316 . 5625) (+ 9.00719925474099e+15 1073741822.0) -> 9.00720032848281e+15) ((4317 . 5625) (+ 9.00719925474099e+15 1073741823.0) -> 9.00720032848282e+15) ((4318 . 5625) (+ 9.00719925474099e+15 1073741824.0) -> 9.00720032848282e+15) ((4319 . 5625) (+ 9.00719925474099e+15 1073741825.0) -> 9.00720032848282e+15) ((4320 . 5625) (+ 9.00719925474099e+15 1073741826.0) -> 9.00720032848282e+15) ((4321 . 5625) (+ 9.00719925474099e+15 1073741822.0) -> 9.00720032848282e+15) ((4322 . 5625) (+ 9.00719925474099e+15 1073741823.0) -> 9.00720032848282e+15) ((4323 . 5625) (+ 9.00719925474099e+15 1073741824.0) -> 9.00720032848282e+15) ((4324 . 5625) (+ 9.00719925474099e+15 1073741825.0) -> 9.00720032848282e+15) ((4325 . 5625) (+ 9.00719925474099e+15 1073741826.0) -> 9.00720032848282e+15) ((4326 . 5625) (+ 9.00719925474099e+15 -1073741827.0) -> 9.00719818099916e+15) ((4327 . 5625) (+ 9.00719925474099e+15 -1073741826.0) -> 9.00719818099916e+15) ((4328 . 5625) (+ 9.00719925474099e+15 -1073741825.0) -> 9.00719818099916e+15) ((4329 . 5625) (+ 9.00719925474099e+15 -1073741824.0) -> 9.00719818099917e+15) ((4330 . 5625) (+ 9.00719925474099e+15 -1073741823.0) -> 9.00719818099917e+15) ((4331 . 5625) (+ 9.00719925474099e+15 -1073741827.0) -> 9.00719818099916e+15) ((4332 . 5625) (+ 9.00719925474099e+15 -1073741826.0) -> 9.00719818099916e+15) ((4333 . 5625) (+ 9.00719925474099e+15 -1073741825.0) -> 9.00719818099917e+15) ((4334 . 5625) (+ 9.00719925474099e+15 -1073741824.0) -> 9.00719818099917e+15) ((4335 . 5625) (+ 9.00719925474099e+15 -1073741823.0) -> 9.00719818099917e+15) ((4336 . 5625) (+ 9.00719925474099e+15 -1073741827.0) -> 9.00719818099916e+15) ((4337 . 5625) (+ 9.00719925474099e+15 -1073741826.0) -> 9.00719818099917e+15) ((4338 . 5625) (+ 9.00719925474099e+15 -1073741825.0) -> 9.00719818099917e+15) ((4339 . 5625) (+ 9.00719925474099e+15 -1073741824.0) -> 9.00719818099917e+15) ((4340 . 5625) (+ 9.00719925474099e+15 -1073741823.0) -> 9.00719818099917e+15) ((4341 . 5625) (+ 9.00719925474099e+15 -1073741827.0) -> 9.00719818099916e+15) ((4342 . 5625) (+ 9.00719925474099e+15 -1073741826.0) -> 9.00719818099917e+15) ((4343 . 5625) (+ 9.00719925474099e+15 -1073741825.0) -> 9.00719818099917e+15) ((4344 . 5625) (+ 9.00719925474099e+15 -1073741824.0) -> 9.00719818099917e+15) ((4345 . 5625) (+ 9.00719925474099e+15 -1073741823.0) -> 9.00719818099917e+15) ((4346 . 5625) (+ 9.00719925474099e+15 -1073741827.0) -> 9.00719818099917e+15) ((4347 . 5625) (+ 9.00719925474099e+15 -1073741826.0) -> 9.00719818099917e+15) ((4348 . 5625) (+ 9.00719925474099e+15 -1073741825.0) -> 9.00719818099917e+15) ((4349 . 5625) (+ 9.00719925474099e+15 -1073741824.0) -> 9.00719818099917e+15) ((4350 . 5625) (+ 9.00719925474099e+15 -1073741823.0) -> 9.00719818099917e+15) ((4351 . 5625) (+ 9.00719925474099e+15 1103515243.0) -> 9.00720035825623e+15) ((4352 . 5625) (+ 9.00719925474099e+15 1103515244.0) -> 9.00720035825623e+15) ((4353 . 5625) (+ 9.00719925474099e+15 1103515245.0) -> 9.00720035825624e+15) ((4354 . 5625) (+ 9.00719925474099e+15 1103515246.0) -> 9.00720035825624e+15) ((4355 . 5625) (+ 9.00719925474099e+15 1103515247.0) -> 9.00720035825624e+15) ((4356 . 5625) (+ 9.00719925474099e+15 1103515243.0) -> 9.00720035825623e+15) ((4357 . 5625) (+ 9.00719925474099e+15 1103515244.0) -> 9.00720035825624e+15) ((4358 . 5625) (+ 9.00719925474099e+15 1103515245.0) -> 9.00720035825624e+15) ((4359 . 5625) (+ 9.00719925474099e+15 1103515246.0) -> 9.00720035825624e+15) ((4360 . 5625) (+ 9.00719925474099e+15 1103515247.0) -> 9.00720035825624e+15) ((4361 . 5625) (+ 9.00719925474099e+15 1103515243.0) -> 9.00720035825624e+15) ((4362 . 5625) (+ 9.00719925474099e+15 1103515244.0) -> 9.00720035825624e+15) ((4363 . 5625) (+ 9.00719925474099e+15 1103515245.0) -> 9.00720035825624e+15) ((4364 . 5625) (+ 9.00719925474099e+15 1103515246.0) -> 9.00720035825624e+15) ((4365 . 5625) (+ 9.00719925474099e+15 1103515247.0) -> 9.00720035825624e+15) ((4366 . 5625) (+ 9.00719925474099e+15 1103515243.0) -> 9.00720035825624e+15) ((4367 . 5625) (+ 9.00719925474099e+15 1103515244.0) -> 9.00720035825624e+15) ((4368 . 5625) (+ 9.00719925474099e+15 1103515245.0) -> 9.00720035825624e+15) ((4369 . 5625) (+ 9.00719925474099e+15 1103515246.0) -> 9.00720035825624e+15) ((4370 . 5625) (+ 9.00719925474099e+15 1103515247.0) -> 9.00720035825624e+15) ((4371 . 5625) (+ 9.00719925474099e+15 1103515243.0) -> 9.00720035825624e+15) ((4372 . 5625) (+ 9.00719925474099e+15 1103515244.0) -> 9.00720035825624e+15) ((4373 . 5625) (+ 9.00719925474099e+15 1103515245.0) -> 9.00720035825624e+15) ((4374 . 5625) (+ 9.00719925474099e+15 1103515246.0) -> 9.00720035825624e+15) ((4375 . 5625) (+ 9.00719925474099e+15 1103515247.0) -> 9.00720035825624e+15) ((4376 . 5625) (+ 9.00719925474099e+15 631629063) -> 9.00719988637005e+15) ((4377 . 5625) (+ 9.00719925474099e+15 631629064) -> 9.00719988637005e+15) ((4378 . 5625) (+ 9.00719925474099e+15 631629065) -> 9.00719988637006e+15) ((4379 . 5625) (+ 9.00719925474099e+15 631629066) -> 9.00719988637006e+15) ((4380 . 5625) (+ 9.00719925474099e+15 631629067) -> 9.00719988637006e+15) ((4381 . 5625) (+ 9.00719925474099e+15 631629063) -> 9.00719988637005e+15) ((4382 . 5625) (+ 9.00719925474099e+15 631629064) -> 9.00719988637006e+15) ((4383 . 5625) (+ 9.00719925474099e+15 631629065) -> 9.00719988637006e+15) ((4384 . 5625) (+ 9.00719925474099e+15 631629066) -> 9.00719988637006e+15) ((4385 . 5625) (+ 9.00719925474099e+15 631629067) -> 9.00719988637006e+15) ((4386 . 5625) (+ 9.00719925474099e+15 631629063) -> 9.00719988637006e+15) ((4387 . 5625) (+ 9.00719925474099e+15 631629064) -> 9.00719988637006e+15) ((4388 . 5625) (+ 9.00719925474099e+15 631629065) -> 9.00719988637006e+15) ((4389 . 5625) (+ 9.00719925474099e+15 631629066) -> 9.00719988637006e+15) ((4390 . 5625) (+ 9.00719925474099e+15 631629067) -> 9.00719988637006e+15) ((4391 . 5625) (+ 9.00719925474099e+15 631629063) -> 9.00719988637006e+15) ((4392 . 5625) (+ 9.00719925474099e+15 631629064) -> 9.00719988637006e+15) ((4393 . 5625) (+ 9.00719925474099e+15 631629065) -> 9.00719988637006e+15) ((4394 . 5625) (+ 9.00719925474099e+15 631629066) -> 9.00719988637006e+15) ((4395 . 5625) (+ 9.00719925474099e+15 631629067) -> 9.00719988637006e+15) ((4396 . 5625) (+ 9.00719925474099e+15 631629063) -> 9.00719988637006e+15) ((4397 . 5625) (+ 9.00719925474099e+15 631629064) -> 9.00719988637006e+15) ((4398 . 5625) (+ 9.00719925474099e+15 631629065) -> 9.00719988637006e+15) ((4399 . 5625) (+ 9.00719925474099e+15 631629066) -> 9.00719988637006e+15) ((4400 . 5625) (+ 9.00719925474099e+15 631629067) -> 9.00719988637006e+15) ((4401 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4402 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4403 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4404 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4405 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4406 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4407 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4408 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4409 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4410 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4411 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4412 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4413 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4414 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4415 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4416 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4417 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4418 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4419 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4420 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4421 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4422 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4423 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4424 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4425 . 5625) (+ 9.00719925474099e+15 9.00719925474099e+15) -> 1.8014398509482e+16) ((4426 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> -4.0) ((4427 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> -2.0) ((4428 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> -2.0) ((4429 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4430 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> 0.0) ((4431 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> -3.0) ((4432 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4433 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4434 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> 0.0) ((4435 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4436 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> -2.0) ((4437 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> 0.0) ((4438 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> 0.0) ((4439 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4440 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> 2.0) ((4441 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> -2.0) ((4442 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> 0.0) ((4443 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> 0.0) ((4444 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4445 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> 2.0) ((4446 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> 0.0) ((4447 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> 2.0) ((4448 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> 2.0) ((4449 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> 3.0) ((4450 . 5625) (+ 9.00719925474099e+15 -9.00719925474099e+15) -> 4.0) ((4451 . 5625) (+ 9.00719925474099e+15 12343) -> 9.00719925475333e+15) ((4452 . 5625) (+ 9.00719925474099e+15 12344) -> 9.00719925475333e+15) ((4453 . 5625) (+ 9.00719925474099e+15 12345) -> 9.00719925475334e+15) ((4454 . 5625) (+ 9.00719925474099e+15 12346) -> 9.00719925475334e+15) ((4455 . 5625) (+ 9.00719925474099e+15 12347) -> 9.00719925475334e+15) ((4456 . 5625) (+ 9.00719925474099e+15 12343) -> 9.00719925475333e+15) ((4457 . 5625) (+ 9.00719925474099e+15 12344) -> 9.00719925475334e+15) ((4458 . 5625) (+ 9.00719925474099e+15 12345) -> 9.00719925475334e+15) ((4459 . 5625) (+ 9.00719925474099e+15 12346) -> 9.00719925475334e+15) ((4460 . 5625) (+ 9.00719925474099e+15 12347) -> 9.00719925475334e+15) ((4461 . 5625) (+ 9.00719925474099e+15 12343) -> 9.00719925475334e+15) ((4462 . 5625) (+ 9.00719925474099e+15 12344) -> 9.00719925475334e+15) ((4463 . 5625) (+ 9.00719925474099e+15 12345) -> 9.00719925475334e+15) ((4464 . 5625) (+ 9.00719925474099e+15 12346) -> 9.00719925475334e+15) ((4465 . 5625) (+ 9.00719925474099e+15 12347) -> 9.00719925475334e+15) ((4466 . 5625) (+ 9.00719925474099e+15 12343) -> 9.00719925475334e+15) ((4467 . 5625) (+ 9.00719925474099e+15 12344) -> 9.00719925475334e+15) ((4468 . 5625) (+ 9.00719925474099e+15 12345) -> 9.00719925475334e+15) ((4469 . 5625) (+ 9.00719925474099e+15 12346) -> 9.00719925475334e+15) ((4470 . 5625) (+ 9.00719925474099e+15 12347) -> 9.00719925475334e+15) ((4471 . 5625) (+ 9.00719925474099e+15 12343) -> 9.00719925475334e+15) ((4472 . 5625) (+ 9.00719925474099e+15 12344) -> 9.00719925475334e+15) ((4473 . 5625) (+ 9.00719925474099e+15 12345) -> 9.00719925475334e+15) ((4474 . 5625) (+ 9.00719925474099e+15 12346) -> 9.00719925475334e+15) ((4475 . 5625) (+ 9.00719925474099e+15 12347) -> 9.00719925475334e+15) ((4476 . 5625) (+ 9.00719925474099e+15 4294967294.0) -> 9.00720354970828e+15) ((4477 . 5625) (+ 9.00719925474099e+15 4294967295.0) -> 9.00720354970828e+15) ((4478 . 5625) (+ 9.00719925474099e+15 4294967296.0) -> 9.00720354970829e+15) ((4479 . 5625) (+ 9.00719925474099e+15 4294967297.0) -> 9.00720354970829e+15) ((4480 . 5625) (+ 9.00719925474099e+15 4294967298.0) -> 9.00720354970829e+15) ((4481 . 5625) (+ 9.00719925474099e+15 4294967294.0) -> 9.00720354970828e+15) ((4482 . 5625) (+ 9.00719925474099e+15 4294967295.0) -> 9.00720354970829e+15) ((4483 . 5625) (+ 9.00719925474099e+15 4294967296.0) -> 9.00720354970829e+15) ((4484 . 5625) (+ 9.00719925474099e+15 4294967297.0) -> 9.00720354970829e+15) ((4485 . 5625) (+ 9.00719925474099e+15 4294967298.0) -> 9.00720354970829e+15) ((4486 . 5625) (+ 9.00719925474099e+15 4294967294.0) -> 9.00720354970829e+15) ((4487 . 5625) (+ 9.00719925474099e+15 4294967295.0) -> 9.00720354970829e+15) ((4488 . 5625) (+ 9.00719925474099e+15 4294967296.0) -> 9.00720354970829e+15) ((4489 . 5625) (+ 9.00719925474099e+15 4294967297.0) -> 9.00720354970829e+15) ((4490 . 5625) (+ 9.00719925474099e+15 4294967298.0) -> 9.00720354970829e+15) ((4491 . 5625) (+ 9.00719925474099e+15 4294967294.0) -> 9.00720354970829e+15) ((4492 . 5625) (+ 9.00719925474099e+15 4294967295.0) -> 9.00720354970829e+15) ((4493 . 5625) (+ 9.00719925474099e+15 4294967296.0) -> 9.00720354970829e+15) ((4494 . 5625) (+ 9.00719925474099e+15 4294967297.0) -> 9.00720354970829e+15) ((4495 . 5625) (+ 9.00719925474099e+15 4294967298.0) -> 9.00720354970829e+15) ((4496 . 5625) (+ 9.00719925474099e+15 4294967294.0) -> 9.00720354970829e+15) ((4497 . 5625) (+ 9.00719925474099e+15 4294967295.0) -> 9.00720354970829e+15) ((4498 . 5625) (+ 9.00719925474099e+15 4294967296.0) -> 9.00720354970829e+15) ((4499 . 5625) (+ 9.00719925474099e+15 4294967297.0) -> 9.00720354970829e+15) ((4500 . 5625) (+ 9.00719925474099e+15 4294967298.0) -> 9.00720354970829e+15) ((4501 . 5625) (+ -9.00719925474099e+15 -2) -> -9.007199254741e+15) ((4502 . 5625) (+ -9.00719925474099e+15 -1) -> -9.007199254741e+15) ((4503 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4504 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4505 . 5625) (+ -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4506 . 5625) (+ -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4507 . 5625) (+ -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4508 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4509 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4510 . 5625) (+ -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4511 . 5625) (+ -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4512 . 5625) (+ -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4513 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4514 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4515 . 5625) (+ -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4516 . 5625) (+ -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4517 . 5625) (+ -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4518 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4519 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4520 . 5625) (+ -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4521 . 5625) (+ -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4522 . 5625) (+ -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4523 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4524 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4525 . 5625) (+ -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4526 . 5625) (+ -9.00719925474099e+15 -1) -> -9.007199254741e+15) ((4527 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4528 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4529 . 5625) (+ -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4530 . 5625) (+ -9.00719925474099e+15 3) -> -9.00719925474099e+15) ((4531 . 5625) (+ -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4532 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4533 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4534 . 5625) (+ -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4535 . 5625) (+ -9.00719925474099e+15 3) -> -9.00719925474099e+15) ((4536 . 5625) (+ -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4537 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4538 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4539 . 5625) (+ -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4540 . 5625) (+ -9.00719925474099e+15 3) -> -9.00719925474099e+15) ((4541 . 5625) (+ -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4542 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4543 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4544 . 5625) (+ -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4545 . 5625) (+ -9.00719925474099e+15 3) -> -9.00719925474099e+15) ((4546 . 5625) (+ -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4547 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4548 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4549 . 5625) (+ -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4550 . 5625) (+ -9.00719925474099e+15 3) -> -9.00719925474099e+15) ((4551 . 5625) (+ -9.00719925474099e+15 -3) -> -9.007199254741e+15) ((4552 . 5625) (+ -9.00719925474099e+15 -2) -> -9.007199254741e+15) ((4553 . 5625) (+ -9.00719925474099e+15 -1) -> -9.007199254741e+15) ((4554 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4555 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4556 . 5625) (+ -9.00719925474099e+15 -3) -> -9.007199254741e+15) ((4557 . 5625) (+ -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4558 . 5625) (+ -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4559 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4560 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4561 . 5625) (+ -9.00719925474099e+15 -3) -> -9.007199254741e+15) ((4562 . 5625) (+ -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4563 . 5625) (+ -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4564 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4565 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4566 . 5625) (+ -9.00719925474099e+15 -3) -> -9.00719925474099e+15) ((4567 . 5625) (+ -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4568 . 5625) (+ -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4569 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4570 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4571 . 5625) (+ -9.00719925474099e+15 -3) -> -9.00719925474099e+15) ((4572 . 5625) (+ -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4573 . 5625) (+ -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4574 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4575 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4576 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4577 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4578 . 5625) (+ -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4579 . 5625) (+ -9.00719925474099e+15 3) -> -9.00719925474099e+15) ((4580 . 5625) (+ -9.00719925474099e+15 4) -> -9.00719925474099e+15) ((4581 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4582 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4583 . 5625) (+ -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4584 . 5625) (+ -9.00719925474099e+15 3) -> -9.00719925474099e+15) ((4585 . 5625) (+ -9.00719925474099e+15 4) -> -9.00719925474099e+15) ((4586 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4587 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4588 . 5625) (+ -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4589 . 5625) (+ -9.00719925474099e+15 3) -> -9.00719925474099e+15) ((4590 . 5625) (+ -9.00719925474099e+15 4) -> -9.00719925474099e+15) ((4591 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4592 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4593 . 5625) (+ -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4594 . 5625) (+ -9.00719925474099e+15 3) -> -9.00719925474099e+15) ((4595 . 5625) (+ -9.00719925474099e+15 4) -> -9.00719925474099e+15) ((4596 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4597 . 5625) (+ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4598 . 5625) (+ -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4599 . 5625) (+ -9.00719925474099e+15 3) -> -9.00719925474099e+15) ((4600 . 5625) (+ -9.00719925474099e+15 4) -> -9.00719925474099e+15) ((4601 . 5625) (+ -9.00719925474099e+15 -4) -> -9.007199254741e+15) ((4602 . 5625) (+ -9.00719925474099e+15 -3) -> -9.007199254741e+15) ((4603 . 5625) (+ -9.00719925474099e+15 -2) -> -9.007199254741e+15) ((4604 . 5625) (+ -9.00719925474099e+15 -1) -> -9.007199254741e+15) ((4605 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4606 . 5625) (+ -9.00719925474099e+15 -4) -> -9.007199254741e+15) ((4607 . 5625) (+ -9.00719925474099e+15 -3) -> -9.007199254741e+15) ((4608 . 5625) (+ -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4609 . 5625) (+ -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4610 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4611 . 5625) (+ -9.00719925474099e+15 -4) -> -9.007199254741e+15) ((4612 . 5625) (+ -9.00719925474099e+15 -3) -> -9.007199254741e+15) ((4613 . 5625) (+ -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4614 . 5625) (+ -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4615 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4616 . 5625) (+ -9.00719925474099e+15 -4) -> -9.007199254741e+15) ((4617 . 5625) (+ -9.00719925474099e+15 -3) -> -9.00719925474099e+15) ((4618 . 5625) (+ -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4619 . 5625) (+ -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4620 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4621 . 5625) (+ -9.00719925474099e+15 -4) -> -9.00719925474099e+15) ((4622 . 5625) (+ -9.00719925474099e+15 -3) -> -9.00719925474099e+15) ((4623 . 5625) (+ -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4624 . 5625) (+ -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4625 . 5625) (+ -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4626 . 5625) (+ -9.00719925474099e+15 1073741821) -> -9.00719818099917e+15) ((4627 . 5625) (+ -9.00719925474099e+15 1073741822) -> -9.00719818099917e+15) ((4628 . 5625) (+ -9.00719925474099e+15 1073741823) -> -9.00719818099917e+15) ((4629 . 5625) (+ -9.00719925474099e+15 1073741824.0) -> -9.00719818099917e+15) ((4630 . 5625) (+ -9.00719925474099e+15 1073741825.0) -> -9.00719818099917e+15) ((4631 . 5625) (+ -9.00719925474099e+15 1073741821) -> -9.00719818099917e+15) ((4632 . 5625) (+ -9.00719925474099e+15 1073741822) -> -9.00719818099917e+15) ((4633 . 5625) (+ -9.00719925474099e+15 1073741823) -> -9.00719818099917e+15) ((4634 . 5625) (+ -9.00719925474099e+15 1073741824.0) -> -9.00719818099917e+15) ((4635 . 5625) (+ -9.00719925474099e+15 1073741825.0) -> -9.00719818099917e+15) ((4636 . 5625) (+ -9.00719925474099e+15 1073741821) -> -9.00719818099917e+15) ((4637 . 5625) (+ -9.00719925474099e+15 1073741822) -> -9.00719818099917e+15) ((4638 . 5625) (+ -9.00719925474099e+15 1073741823) -> -9.00719818099917e+15) ((4639 . 5625) (+ -9.00719925474099e+15 1073741824.0) -> -9.00719818099917e+15) ((4640 . 5625) (+ -9.00719925474099e+15 1073741825.0) -> -9.00719818099917e+15) ((4641 . 5625) (+ -9.00719925474099e+15 1073741821) -> -9.00719818099917e+15) ((4642 . 5625) (+ -9.00719925474099e+15 1073741822) -> -9.00719818099917e+15) ((4643 . 5625) (+ -9.00719925474099e+15 1073741823) -> -9.00719818099917e+15) ((4644 . 5625) (+ -9.00719925474099e+15 1073741824.0) -> -9.00719818099917e+15) ((4645 . 5625) (+ -9.00719925474099e+15 1073741825.0) -> -9.00719818099917e+15) ((4646 . 5625) (+ -9.00719925474099e+15 1073741821) -> -9.00719818099917e+15) ((4647 . 5625) (+ -9.00719925474099e+15 1073741822) -> -9.00719818099917e+15) ((4648 . 5625) (+ -9.00719925474099e+15 1073741823) -> -9.00719818099917e+15) ((4649 . 5625) (+ -9.00719925474099e+15 1073741824.0) -> -9.00719818099917e+15) ((4650 . 5625) (+ -9.00719925474099e+15 1073741825.0) -> -9.00719818099916e+15) ((4651 . 5625) (+ -9.00719925474099e+15 -1073741826.0) -> -9.00720032848282e+15) ((4652 . 5625) (+ -9.00719925474099e+15 -1073741825.0) -> -9.00720032848282e+15) ((4653 . 5625) (+ -9.00719925474099e+15 -1073741824) -> -9.00720032848282e+15) ((4654 . 5625) (+ -9.00719925474099e+15 -1073741823) -> -9.00720032848282e+15) ((4655 . 5625) (+ -9.00719925474099e+15 -1073741822) -> -9.00720032848282e+15) ((4656 . 5625) (+ -9.00719925474099e+15 -1073741826.0) -> -9.00720032848282e+15) ((4657 . 5625) (+ -9.00719925474099e+15 -1073741825.0) -> -9.00720032848282e+15) ((4658 . 5625) (+ -9.00719925474099e+15 -1073741824) -> -9.00720032848282e+15) ((4659 . 5625) (+ -9.00719925474099e+15 -1073741823) -> -9.00720032848282e+15) ((4660 . 5625) (+ -9.00719925474099e+15 -1073741822) -> -9.00720032848281e+15) ((4661 . 5625) (+ -9.00719925474099e+15 -1073741826.0) -> -9.00720032848282e+15) ((4662 . 5625) (+ -9.00719925474099e+15 -1073741825.0) -> -9.00720032848282e+15) ((4663 . 5625) (+ -9.00719925474099e+15 -1073741824) -> -9.00720032848282e+15) ((4664 . 5625) (+ -9.00719925474099e+15 -1073741823) -> -9.00720032848282e+15) ((4665 . 5625) (+ -9.00719925474099e+15 -1073741822) -> -9.00720032848281e+15) ((4666 . 5625) (+ -9.00719925474099e+15 -1073741826.0) -> -9.00720032848282e+15) ((4667 . 5625) (+ -9.00719925474099e+15 -1073741825.0) -> -9.00720032848282e+15) ((4668 . 5625) (+ -9.00719925474099e+15 -1073741824) -> -9.00720032848282e+15) ((4669 . 5625) (+ -9.00719925474099e+15 -1073741823) -> -9.00720032848281e+15) ((4670 . 5625) (+ -9.00719925474099e+15 -1073741822) -> -9.00720032848281e+15) ((4671 . 5625) (+ -9.00719925474099e+15 -1073741826.0) -> -9.00720032848282e+15) ((4672 . 5625) (+ -9.00719925474099e+15 -1073741825.0) -> -9.00720032848282e+15) ((4673 . 5625) (+ -9.00719925474099e+15 -1073741824) -> -9.00720032848281e+15) ((4674 . 5625) (+ -9.00719925474099e+15 -1073741823) -> -9.00720032848281e+15) ((4675 . 5625) (+ -9.00719925474099e+15 -1073741822) -> -9.00720032848281e+15) ((4676 . 5625) (+ -9.00719925474099e+15 1073741822.0) -> -9.00719818099917e+15) ((4677 . 5625) (+ -9.00719925474099e+15 1073741823.0) -> -9.00719818099917e+15) ((4678 . 5625) (+ -9.00719925474099e+15 1073741824.0) -> -9.00719818099917e+15) ((4679 . 5625) (+ -9.00719925474099e+15 1073741825.0) -> -9.00719818099917e+15) ((4680 . 5625) (+ -9.00719925474099e+15 1073741826.0) -> -9.00719818099917e+15) ((4681 . 5625) (+ -9.00719925474099e+15 1073741822.0) -> -9.00719818099917e+15) ((4682 . 5625) (+ -9.00719925474099e+15 1073741823.0) -> -9.00719818099917e+15) ((4683 . 5625) (+ -9.00719925474099e+15 1073741824.0) -> -9.00719818099917e+15) ((4684 . 5625) (+ -9.00719925474099e+15 1073741825.0) -> -9.00719818099917e+15) ((4685 . 5625) (+ -9.00719925474099e+15 1073741826.0) -> -9.00719818099917e+15) ((4686 . 5625) (+ -9.00719925474099e+15 1073741822.0) -> -9.00719818099917e+15) ((4687 . 5625) (+ -9.00719925474099e+15 1073741823.0) -> -9.00719818099917e+15) ((4688 . 5625) (+ -9.00719925474099e+15 1073741824.0) -> -9.00719818099917e+15) ((4689 . 5625) (+ -9.00719925474099e+15 1073741825.0) -> -9.00719818099917e+15) ((4690 . 5625) (+ -9.00719925474099e+15 1073741826.0) -> -9.00719818099917e+15) ((4691 . 5625) (+ -9.00719925474099e+15 1073741822.0) -> -9.00719818099917e+15) ((4692 . 5625) (+ -9.00719925474099e+15 1073741823.0) -> -9.00719818099917e+15) ((4693 . 5625) (+ -9.00719925474099e+15 1073741824.0) -> -9.00719818099917e+15) ((4694 . 5625) (+ -9.00719925474099e+15 1073741825.0) -> -9.00719818099917e+15) ((4695 . 5625) (+ -9.00719925474099e+15 1073741826.0) -> -9.00719818099916e+15) ((4696 . 5625) (+ -9.00719925474099e+15 1073741822.0) -> -9.00719818099917e+15) ((4697 . 5625) (+ -9.00719925474099e+15 1073741823.0) -> -9.00719818099917e+15) ((4698 . 5625) (+ -9.00719925474099e+15 1073741824.0) -> -9.00719818099917e+15) ((4699 . 5625) (+ -9.00719925474099e+15 1073741825.0) -> -9.00719818099916e+15) ((4700 . 5625) (+ -9.00719925474099e+15 1073741826.0) -> -9.00719818099916e+15) ((4701 . 5625) (+ -9.00719925474099e+15 -1073741827.0) -> -9.00720032848282e+15) ((4702 . 5625) (+ -9.00719925474099e+15 -1073741826.0) -> -9.00720032848282e+15) ((4703 . 5625) (+ -9.00719925474099e+15 -1073741825.0) -> -9.00720032848282e+15) ((4704 . 5625) (+ -9.00719925474099e+15 -1073741824.0) -> -9.00720032848282e+15) ((4705 . 5625) (+ -9.00719925474099e+15 -1073741823.0) -> -9.00720032848282e+15) ((4706 . 5625) (+ -9.00719925474099e+15 -1073741827.0) -> -9.00720032848282e+15) ((4707 . 5625) (+ -9.00719925474099e+15 -1073741826.0) -> -9.00720032848282e+15) ((4708 . 5625) (+ -9.00719925474099e+15 -1073741825.0) -> -9.00720032848282e+15) ((4709 . 5625) (+ -9.00719925474099e+15 -1073741824.0) -> -9.00720032848282e+15) ((4710 . 5625) (+ -9.00719925474099e+15 -1073741823.0) -> -9.00720032848282e+15) ((4711 . 5625) (+ -9.00719925474099e+15 -1073741827.0) -> -9.00720032848282e+15) ((4712 . 5625) (+ -9.00719925474099e+15 -1073741826.0) -> -9.00720032848282e+15) ((4713 . 5625) (+ -9.00719925474099e+15 -1073741825.0) -> -9.00720032848282e+15) ((4714 . 5625) (+ -9.00719925474099e+15 -1073741824.0) -> -9.00720032848282e+15) ((4715 . 5625) (+ -9.00719925474099e+15 -1073741823.0) -> -9.00720032848282e+15) ((4716 . 5625) (+ -9.00719925474099e+15 -1073741827.0) -> -9.00720032848282e+15) ((4717 . 5625) (+ -9.00719925474099e+15 -1073741826.0) -> -9.00720032848282e+15) ((4718 . 5625) (+ -9.00719925474099e+15 -1073741825.0) -> -9.00720032848282e+15) ((4719 . 5625) (+ -9.00719925474099e+15 -1073741824.0) -> -9.00720032848282e+15) ((4720 . 5625) (+ -9.00719925474099e+15 -1073741823.0) -> -9.00720032848281e+15) ((4721 . 5625) (+ -9.00719925474099e+15 -1073741827.0) -> -9.00720032848282e+15) ((4722 . 5625) (+ -9.00719925474099e+15 -1073741826.0) -> -9.00720032848282e+15) ((4723 . 5625) (+ -9.00719925474099e+15 -1073741825.0) -> -9.00720032848282e+15) ((4724 . 5625) (+ -9.00719925474099e+15 -1073741824.0) -> -9.00720032848281e+15) ((4725 . 5625) (+ -9.00719925474099e+15 -1073741823.0) -> -9.00720032848281e+15) ((4726 . 5625) (+ -9.00719925474099e+15 1103515243.0) -> -9.00719815122575e+15) ((4727 . 5625) (+ -9.00719925474099e+15 1103515244.0) -> -9.00719815122575e+15) ((4728 . 5625) (+ -9.00719925474099e+15 1103515245.0) -> -9.00719815122575e+15) ((4729 . 5625) (+ -9.00719925474099e+15 1103515246.0) -> -9.00719815122575e+15) ((4730 . 5625) (+ -9.00719925474099e+15 1103515247.0) -> -9.00719815122575e+15) ((4731 . 5625) (+ -9.00719925474099e+15 1103515243.0) -> -9.00719815122575e+15) ((4732 . 5625) (+ -9.00719925474099e+15 1103515244.0) -> -9.00719815122575e+15) ((4733 . 5625) (+ -9.00719925474099e+15 1103515245.0) -> -9.00719815122575e+15) ((4734 . 5625) (+ -9.00719925474099e+15 1103515246.0) -> -9.00719815122575e+15) ((4735 . 5625) (+ -9.00719925474099e+15 1103515247.0) -> -9.00719815122574e+15) ((4736 . 5625) (+ -9.00719925474099e+15 1103515243.0) -> -9.00719815122575e+15) ((4737 . 5625) (+ -9.00719925474099e+15 1103515244.0) -> -9.00719815122575e+15) ((4738 . 5625) (+ -9.00719925474099e+15 1103515245.0) -> -9.00719815122575e+15) ((4739 . 5625) (+ -9.00719925474099e+15 1103515246.0) -> -9.00719815122575e+15) ((4740 . 5625) (+ -9.00719925474099e+15 1103515247.0) -> -9.00719815122574e+15) ((4741 . 5625) (+ -9.00719925474099e+15 1103515243.0) -> -9.00719815122575e+15) ((4742 . 5625) (+ -9.00719925474099e+15 1103515244.0) -> -9.00719815122575e+15) ((4743 . 5625) (+ -9.00719925474099e+15 1103515245.0) -> -9.00719815122575e+15) ((4744 . 5625) (+ -9.00719925474099e+15 1103515246.0) -> -9.00719815122574e+15) ((4745 . 5625) (+ -9.00719925474099e+15 1103515247.0) -> -9.00719815122574e+15) ((4746 . 5625) (+ -9.00719925474099e+15 1103515243.0) -> -9.00719815122575e+15) ((4747 . 5625) (+ -9.00719925474099e+15 1103515244.0) -> -9.00719815122575e+15) ((4748 . 5625) (+ -9.00719925474099e+15 1103515245.0) -> -9.00719815122574e+15) ((4749 . 5625) (+ -9.00719925474099e+15 1103515246.0) -> -9.00719815122574e+15) ((4750 . 5625) (+ -9.00719925474099e+15 1103515247.0) -> -9.00719815122574e+15) ((4751 . 5625) (+ -9.00719925474099e+15 631629063) -> -9.00719862311193e+15) ((4752 . 5625) (+ -9.00719925474099e+15 631629064) -> -9.00719862311193e+15) ((4753 . 5625) (+ -9.00719925474099e+15 631629065) -> -9.00719862311193e+15) ((4754 . 5625) (+ -9.00719925474099e+15 631629066) -> -9.00719862311193e+15) ((4755 . 5625) (+ -9.00719925474099e+15 631629067) -> -9.00719862311193e+15) ((4756 . 5625) (+ -9.00719925474099e+15 631629063) -> -9.00719862311193e+15) ((4757 . 5625) (+ -9.00719925474099e+15 631629064) -> -9.00719862311193e+15) ((4758 . 5625) (+ -9.00719925474099e+15 631629065) -> -9.00719862311193e+15) ((4759 . 5625) (+ -9.00719925474099e+15 631629066) -> -9.00719862311193e+15) ((4760 . 5625) (+ -9.00719925474099e+15 631629067) -> -9.00719862311192e+15) ((4761 . 5625) (+ -9.00719925474099e+15 631629063) -> -9.00719862311193e+15) ((4762 . 5625) (+ -9.00719925474099e+15 631629064) -> -9.00719862311193e+15) ((4763 . 5625) (+ -9.00719925474099e+15 631629065) -> -9.00719862311193e+15) ((4764 . 5625) (+ -9.00719925474099e+15 631629066) -> -9.00719862311193e+15) ((4765 . 5625) (+ -9.00719925474099e+15 631629067) -> -9.00719862311192e+15) ((4766 . 5625) (+ -9.00719925474099e+15 631629063) -> -9.00719862311193e+15) ((4767 . 5625) (+ -9.00719925474099e+15 631629064) -> -9.00719862311193e+15) ((4768 . 5625) (+ -9.00719925474099e+15 631629065) -> -9.00719862311193e+15) ((4769 . 5625) (+ -9.00719925474099e+15 631629066) -> -9.00719862311192e+15) ((4770 . 5625) (+ -9.00719925474099e+15 631629067) -> -9.00719862311192e+15) ((4771 . 5625) (+ -9.00719925474099e+15 631629063) -> -9.00719862311193e+15) ((4772 . 5625) (+ -9.00719925474099e+15 631629064) -> -9.00719862311193e+15) ((4773 . 5625) (+ -9.00719925474099e+15 631629065) -> -9.00719862311192e+15) ((4774 . 5625) (+ -9.00719925474099e+15 631629066) -> -9.00719862311192e+15) ((4775 . 5625) (+ -9.00719925474099e+15 631629067) -> -9.00719862311192e+15) ((4776 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> -4.0) ((4777 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> -3.0) ((4778 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> -2.0) ((4779 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> -2.0) ((4780 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> 0.0) ((4781 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> -2.0) ((4782 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4783 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> 0.0) ((4784 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> 0.0) ((4785 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> 2.0) ((4786 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> -2.0) ((4787 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4788 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> 0.0) ((4789 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> 0.0) ((4790 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> 2.0) ((4791 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4792 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> 0.0) ((4793 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4794 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4795 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> 3.0) ((4796 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> 0.0) ((4797 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4798 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> 2.0) ((4799 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> 2.0) ((4800 . 5625) (+ -9.00719925474099e+15 9.00719925474099e+15) -> 4.0) ((4801 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4802 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4803 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4804 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4805 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4806 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4807 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4808 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4809 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4810 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4811 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4812 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4813 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4814 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4815 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4816 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4817 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4818 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4819 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4820 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4821 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4822 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4823 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4824 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4825 . 5625) (+ -9.00719925474099e+15 -9.00719925474099e+15) -> -1.8014398509482e+16) ((4826 . 5625) (+ -9.00719925474099e+15 12343) -> -9.00719925472865e+15) ((4827 . 5625) (+ -9.00719925474099e+15 12344) -> -9.00719925472865e+15) ((4828 . 5625) (+ -9.00719925474099e+15 12345) -> -9.00719925472865e+15) ((4829 . 5625) (+ -9.00719925474099e+15 12346) -> -9.00719925472865e+15) ((4830 . 5625) (+ -9.00719925474099e+15 12347) -> -9.00719925472865e+15) ((4831 . 5625) (+ -9.00719925474099e+15 12343) -> -9.00719925472865e+15) ((4832 . 5625) (+ -9.00719925474099e+15 12344) -> -9.00719925472865e+15) ((4833 . 5625) (+ -9.00719925474099e+15 12345) -> -9.00719925472865e+15) ((4834 . 5625) (+ -9.00719925474099e+15 12346) -> -9.00719925472865e+15) ((4835 . 5625) (+ -9.00719925474099e+15 12347) -> -9.00719925472864e+15) ((4836 . 5625) (+ -9.00719925474099e+15 12343) -> -9.00719925472865e+15) ((4837 . 5625) (+ -9.00719925474099e+15 12344) -> -9.00719925472865e+15) ((4838 . 5625) (+ -9.00719925474099e+15 12345) -> -9.00719925472865e+15) ((4839 . 5625) (+ -9.00719925474099e+15 12346) -> -9.00719925472865e+15) ((4840 . 5625) (+ -9.00719925474099e+15 12347) -> -9.00719925472864e+15) ((4841 . 5625) (+ -9.00719925474099e+15 12343) -> -9.00719925472865e+15) ((4842 . 5625) (+ -9.00719925474099e+15 12344) -> -9.00719925472865e+15) ((4843 . 5625) (+ -9.00719925474099e+15 12345) -> -9.00719925472865e+15) ((4844 . 5625) (+ -9.00719925474099e+15 12346) -> -9.00719925472864e+15) ((4845 . 5625) (+ -9.00719925474099e+15 12347) -> -9.00719925472864e+15) ((4846 . 5625) (+ -9.00719925474099e+15 12343) -> -9.00719925472865e+15) ((4847 . 5625) (+ -9.00719925474099e+15 12344) -> -9.00719925472865e+15) ((4848 . 5625) (+ -9.00719925474099e+15 12345) -> -9.00719925472864e+15) ((4849 . 5625) (+ -9.00719925474099e+15 12346) -> -9.00719925472864e+15) ((4850 . 5625) (+ -9.00719925474099e+15 12347) -> -9.00719925472864e+15) ((4851 . 5625) (+ -9.00719925474099e+15 4294967294.0) -> -9.0071949597737e+15) ((4852 . 5625) (+ -9.00719925474099e+15 4294967295.0) -> -9.0071949597737e+15) ((4853 . 5625) (+ -9.00719925474099e+15 4294967296.0) -> -9.0071949597737e+15) ((4854 . 5625) (+ -9.00719925474099e+15 4294967297.0) -> -9.0071949597737e+15) ((4855 . 5625) (+ -9.00719925474099e+15 4294967298.0) -> -9.0071949597737e+15) ((4856 . 5625) (+ -9.00719925474099e+15 4294967294.0) -> -9.0071949597737e+15) ((4857 . 5625) (+ -9.00719925474099e+15 4294967295.0) -> -9.0071949597737e+15) ((4858 . 5625) (+ -9.00719925474099e+15 4294967296.0) -> -9.0071949597737e+15) ((4859 . 5625) (+ -9.00719925474099e+15 4294967297.0) -> -9.0071949597737e+15) ((4860 . 5625) (+ -9.00719925474099e+15 4294967298.0) -> -9.00719495977369e+15) ((4861 . 5625) (+ -9.00719925474099e+15 4294967294.0) -> -9.0071949597737e+15) ((4862 . 5625) (+ -9.00719925474099e+15 4294967295.0) -> -9.0071949597737e+15) ((4863 . 5625) (+ -9.00719925474099e+15 4294967296.0) -> -9.0071949597737e+15) ((4864 . 5625) (+ -9.00719925474099e+15 4294967297.0) -> -9.0071949597737e+15) ((4865 . 5625) (+ -9.00719925474099e+15 4294967298.0) -> -9.00719495977369e+15) ((4866 . 5625) (+ -9.00719925474099e+15 4294967294.0) -> -9.0071949597737e+15) ((4867 . 5625) (+ -9.00719925474099e+15 4294967295.0) -> -9.0071949597737e+15) ((4868 . 5625) (+ -9.00719925474099e+15 4294967296.0) -> -9.0071949597737e+15) ((4869 . 5625) (+ -9.00719925474099e+15 4294967297.0) -> -9.00719495977369e+15) ((4870 . 5625) (+ -9.00719925474099e+15 4294967298.0) -> -9.00719495977369e+15) ((4871 . 5625) (+ -9.00719925474099e+15 4294967294.0) -> -9.0071949597737e+15) ((4872 . 5625) (+ -9.00719925474099e+15 4294967295.0) -> -9.0071949597737e+15) ((4873 . 5625) (+ -9.00719925474099e+15 4294967296.0) -> -9.00719495977369e+15) ((4874 . 5625) (+ -9.00719925474099e+15 4294967297.0) -> -9.00719495977369e+15) ((4875 . 5625) (+ -9.00719925474099e+15 4294967298.0) -> -9.00719495977369e+15) ((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.0) ((5002 . 5625) (+ 12343 1073741822) -> 1073754165.0) ((5003 . 5625) (+ 12343 1073741823) -> 1073754166.0) ((5004 . 5625) (+ 12343 1073741824.0) -> 1073754167.0) ((5005 . 5625) (+ 12343 1073741825.0) -> 1073754168.0) ((5006 . 5625) (+ 12344 1073741821) -> 1073754165.0) ((5007 . 5625) (+ 12344 1073741822) -> 1073754166.0) ((5008 . 5625) (+ 12344 1073741823) -> 1073754167.0) ((5009 . 5625) (+ 12344 1073741824.0) -> 1073754168.0) ((5010 . 5625) (+ 12344 1073741825.0) -> 1073754169.0) ((5011 . 5625) (+ 12345 1073741821) -> 1073754166.0) ((5012 . 5625) (+ 12345 1073741822) -> 1073754167.0) ((5013 . 5625) (+ 12345 1073741823) -> 1073754168.0) ((5014 . 5625) (+ 12345 1073741824.0) -> 1073754169.0) ((5015 . 5625) (+ 12345 1073741825.0) -> 1073754170.0) ((5016 . 5625) (+ 12346 1073741821) -> 1073754167.0) ((5017 . 5625) (+ 12346 1073741822) -> 1073754168.0) ((5018 . 5625) (+ 12346 1073741823) -> 1073754169.0) ((5019 . 5625) (+ 12346 1073741824.0) -> 1073754170.0) ((5020 . 5625) (+ 12346 1073741825.0) -> 1073754171.0) ((5021 . 5625) (+ 12347 1073741821) -> 1073754168.0) ((5022 . 5625) (+ 12347 1073741822) -> 1073754169.0) ((5023 . 5625) (+ 12347 1073741823) -> 1073754170.0) ((5024 . 5625) (+ 12347 1073741824.0) -> 1073754171.0) ((5025 . 5625) (+ 12347 1073741825.0) -> 1073754172.0) ((5026 . 5625) (+ 12343 -1073741826.0) -> -1073729483.0) ((5027 . 5625) (+ 12343 -1073741825.0) -> -1073729482.0) ((5028 . 5625) (+ 12343 -1073741824) -> -1073729481) ((5029 . 5625) (+ 12343 -1073741823) -> -1073729480) ((5030 . 5625) (+ 12343 -1073741822) -> -1073729479) ((5031 . 5625) (+ 12344 -1073741826.0) -> -1073729482.0) ((5032 . 5625) (+ 12344 -1073741825.0) -> -1073729481.0) ((5033 . 5625) (+ 12344 -1073741824) -> -1073729480) ((5034 . 5625) (+ 12344 -1073741823) -> -1073729479) ((5035 . 5625) (+ 12344 -1073741822) -> -1073729478) ((5036 . 5625) (+ 12345 -1073741826.0) -> -1073729481.0) ((5037 . 5625) (+ 12345 -1073741825.0) -> -1073729480.0) ((5038 . 5625) (+ 12345 -1073741824) -> -1073729479) ((5039 . 5625) (+ 12345 -1073741823) -> -1073729478) ((5040 . 5625) (+ 12345 -1073741822) -> -1073729477) ((5041 . 5625) (+ 12346 -1073741826.0) -> -1073729480.0) ((5042 . 5625) (+ 12346 -1073741825.0) -> -1073729479.0) ((5043 . 5625) (+ 12346 -1073741824) -> -1073729478) ((5044 . 5625) (+ 12346 -1073741823) -> -1073729477) ((5045 . 5625) (+ 12346 -1073741822) -> -1073729476) ((5046 . 5625) (+ 12347 -1073741826.0) -> -1073729479.0) ((5047 . 5625) (+ 12347 -1073741825.0) -> -1073729478.0) ((5048 . 5625) (+ 12347 -1073741824) -> -1073729477) ((5049 . 5625) (+ 12347 -1073741823) -> -1073729476) ((5050 . 5625) (+ 12347 -1073741822) -> -1073729475) ((5051 . 5625) (+ 12343 1073741822.0) -> 1073754165.0) ((5052 . 5625) (+ 12343 1073741823.0) -> 1073754166.0) ((5053 . 5625) (+ 12343 1073741824.0) -> 1073754167.0) ((5054 . 5625) (+ 12343 1073741825.0) -> 1073754168.0) ((5055 . 5625) (+ 12343 1073741826.0) -> 1073754169.0) ((5056 . 5625) (+ 12344 1073741822.0) -> 1073754166.0) ((5057 . 5625) (+ 12344 1073741823.0) -> 1073754167.0) ((5058 . 5625) (+ 12344 1073741824.0) -> 1073754168.0) ((5059 . 5625) (+ 12344 1073741825.0) -> 1073754169.0) ((5060 . 5625) (+ 12344 1073741826.0) -> 1073754170.0) ((5061 . 5625) (+ 12345 1073741822.0) -> 1073754167.0) ((5062 . 5625) (+ 12345 1073741823.0) -> 1073754168.0) ((5063 . 5625) (+ 12345 1073741824.0) -> 1073754169.0) ((5064 . 5625) (+ 12345 1073741825.0) -> 1073754170.0) ((5065 . 5625) (+ 12345 1073741826.0) -> 1073754171.0) ((5066 . 5625) (+ 12346 1073741822.0) -> 1073754168.0) ((5067 . 5625) (+ 12346 1073741823.0) -> 1073754169.0) ((5068 . 5625) (+ 12346 1073741824.0) -> 1073754170.0) ((5069 . 5625) (+ 12346 1073741825.0) -> 1073754171.0) ((5070 . 5625) (+ 12346 1073741826.0) -> 1073754172.0) ((5071 . 5625) (+ 12347 1073741822.0) -> 1073754169.0) ((5072 . 5625) (+ 12347 1073741823.0) -> 1073754170.0) ((5073 . 5625) (+ 12347 1073741824.0) -> 1073754171.0) ((5074 . 5625) (+ 12347 1073741825.0) -> 1073754172.0) ((5075 . 5625) (+ 12347 1073741826.0) -> 1073754173.0) ((5076 . 5625) (+ 12343 -1073741827.0) -> -1073729484.0) ((5077 . 5625) (+ 12343 -1073741826.0) -> -1073729483.0) ((5078 . 5625) (+ 12343 -1073741825.0) -> -1073729482.0) ((5079 . 5625) (+ 12343 -1073741824.0) -> -1073729481.0) ((5080 . 5625) (+ 12343 -1073741823.0) -> -1073729480.0) ((5081 . 5625) (+ 12344 -1073741827.0) -> -1073729483.0) ((5082 . 5625) (+ 12344 -1073741826.0) -> -1073729482.0) ((5083 . 5625) (+ 12344 -1073741825.0) -> -1073729481.0) ((5084 . 5625) (+ 12344 -1073741824.0) -> -1073729480.0) ((5085 . 5625) (+ 12344 -1073741823.0) -> -1073729479.0) ((5086 . 5625) (+ 12345 -1073741827.0) -> -1073729482.0) ((5087 . 5625) (+ 12345 -1073741826.0) -> -1073729481.0) ((5088 . 5625) (+ 12345 -1073741825.0) -> -1073729480.0) ((5089 . 5625) (+ 12345 -1073741824.0) -> -1073729479.0) ((5090 . 5625) (+ 12345 -1073741823.0) -> -1073729478.0) ((5091 . 5625) (+ 12346 -1073741827.0) -> -1073729481.0) ((5092 . 5625) (+ 12346 -1073741826.0) -> -1073729480.0) ((5093 . 5625) (+ 12346 -1073741825.0) -> -1073729479.0) ((5094 . 5625) (+ 12346 -1073741824.0) -> -1073729478.0) ((5095 . 5625) (+ 12346 -1073741823.0) -> -1073729477.0) ((5096 . 5625) (+ 12347 -1073741827.0) -> -1073729480.0) ((5097 . 5625) (+ 12347 -1073741826.0) -> -1073729479.0) ((5098 . 5625) (+ 12347 -1073741825.0) -> -1073729478.0) ((5099 . 5625) (+ 12347 -1073741824.0) -> -1073729477.0) ((5100 . 5625) (+ 12347 -1073741823.0) -> -1073729476.0) ((5101 . 5625) (+ 12343 1103515243.0) -> 1103527586.0) ((5102 . 5625) (+ 12343 1103515244.0) -> 1103527587.0) ((5103 . 5625) (+ 12343 1103515245.0) -> 1103527588.0) ((5104 . 5625) (+ 12343 1103515246.0) -> 1103527589.0) ((5105 . 5625) (+ 12343 1103515247.0) -> 1103527590.0) ((5106 . 5625) (+ 12344 1103515243.0) -> 1103527587.0) ((5107 . 5625) (+ 12344 1103515244.0) -> 1103527588.0) ((5108 . 5625) (+ 12344 1103515245.0) -> 1103527589.0) ((5109 . 5625) (+ 12344 1103515246.0) -> 1103527590.0) ((5110 . 5625) (+ 12344 1103515247.0) -> 1103527591.0) ((5111 . 5625) (+ 12345 1103515243.0) -> 1103527588.0) ((5112 . 5625) (+ 12345 1103515244.0) -> 1103527589.0) ((5113 . 5625) (+ 12345 1103515245.0) -> 1103527590.0) ((5114 . 5625) (+ 12345 1103515246.0) -> 1103527591.0) ((5115 . 5625) (+ 12345 1103515247.0) -> 1103527592.0) ((5116 . 5625) (+ 12346 1103515243.0) -> 1103527589.0) ((5117 . 5625) (+ 12346 1103515244.0) -> 1103527590.0) ((5118 . 5625) (+ 12346 1103515245.0) -> 1103527591.0) ((5119 . 5625) (+ 12346 1103515246.0) -> 1103527592.0) ((5120 . 5625) (+ 12346 1103515247.0) -> 1103527593.0) ((5121 . 5625) (+ 12347 1103515243.0) -> 1103527590.0) ((5122 . 5625) (+ 12347 1103515244.0) -> 1103527591.0) ((5123 . 5625) (+ 12347 1103515245.0) -> 1103527592.0) ((5124 . 5625) (+ 12347 1103515246.0) -> 1103527593.0) ((5125 . 5625) (+ 12347 1103515247.0) -> 1103527594.0) ((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 9.00719925474099e+15) -> 9.00719925475333e+15) ((5152 . 5625) (+ 12343 9.00719925474099e+15) -> 9.00719925475333e+15) ((5153 . 5625) (+ 12343 9.00719925474099e+15) -> 9.00719925475334e+15) ((5154 . 5625) (+ 12343 9.00719925474099e+15) -> 9.00719925475334e+15) ((5155 . 5625) (+ 12343 9.00719925474099e+15) -> 9.00719925475334e+15) ((5156 . 5625) (+ 12344 9.00719925474099e+15) -> 9.00719925475333e+15) ((5157 . 5625) (+ 12344 9.00719925474099e+15) -> 9.00719925475334e+15) ((5158 . 5625) (+ 12344 9.00719925474099e+15) -> 9.00719925475334e+15) ((5159 . 5625) (+ 12344 9.00719925474099e+15) -> 9.00719925475334e+15) ((5160 . 5625) (+ 12344 9.00719925474099e+15) -> 9.00719925475334e+15) ((5161 . 5625) (+ 12345 9.00719925474099e+15) -> 9.00719925475334e+15) ((5162 . 5625) (+ 12345 9.00719925474099e+15) -> 9.00719925475334e+15) ((5163 . 5625) (+ 12345 9.00719925474099e+15) -> 9.00719925475334e+15) ((5164 . 5625) (+ 12345 9.00719925474099e+15) -> 9.00719925475334e+15) ((5165 . 5625) (+ 12345 9.00719925474099e+15) -> 9.00719925475334e+15) ((5166 . 5625) (+ 12346 9.00719925474099e+15) -> 9.00719925475334e+15) ((5167 . 5625) (+ 12346 9.00719925474099e+15) -> 9.00719925475334e+15) ((5168 . 5625) (+ 12346 9.00719925474099e+15) -> 9.00719925475334e+15) ((5169 . 5625) (+ 12346 9.00719925474099e+15) -> 9.00719925475334e+15) ((5170 . 5625) (+ 12346 9.00719925474099e+15) -> 9.00719925475334e+15) ((5171 . 5625) (+ 12347 9.00719925474099e+15) -> 9.00719925475334e+15) ((5172 . 5625) (+ 12347 9.00719925474099e+15) -> 9.00719925475334e+15) ((5173 . 5625) (+ 12347 9.00719925474099e+15) -> 9.00719925475334e+15) ((5174 . 5625) (+ 12347 9.00719925474099e+15) -> 9.00719925475334e+15) ((5175 . 5625) (+ 12347 9.00719925474099e+15) -> 9.00719925475334e+15) ((5176 . 5625) (+ 12343 -9.00719925474099e+15) -> -9.00719925472865e+15) ((5177 . 5625) (+ 12343 -9.00719925474099e+15) -> -9.00719925472865e+15) ((5178 . 5625) (+ 12343 -9.00719925474099e+15) -> -9.00719925472865e+15) ((5179 . 5625) (+ 12343 -9.00719925474099e+15) -> -9.00719925472865e+15) ((5180 . 5625) (+ 12343 -9.00719925474099e+15) -> -9.00719925472865e+15) ((5181 . 5625) (+ 12344 -9.00719925474099e+15) -> -9.00719925472865e+15) ((5182 . 5625) (+ 12344 -9.00719925474099e+15) -> -9.00719925472865e+15) ((5183 . 5625) (+ 12344 -9.00719925474099e+15) -> -9.00719925472865e+15) ((5184 . 5625) (+ 12344 -9.00719925474099e+15) -> -9.00719925472865e+15) ((5185 . 5625) (+ 12344 -9.00719925474099e+15) -> -9.00719925472865e+15) ((5186 . 5625) (+ 12345 -9.00719925474099e+15) -> -9.00719925472865e+15) ((5187 . 5625) (+ 12345 -9.00719925474099e+15) -> -9.00719925472865e+15) ((5188 . 5625) (+ 12345 -9.00719925474099e+15) -> -9.00719925472865e+15) ((5189 . 5625) (+ 12345 -9.00719925474099e+15) -> -9.00719925472865e+15) ((5190 . 5625) (+ 12345 -9.00719925474099e+15) -> -9.00719925472864e+15) ((5191 . 5625) (+ 12346 -9.00719925474099e+15) -> -9.00719925472865e+15) ((5192 . 5625) (+ 12346 -9.00719925474099e+15) -> -9.00719925472865e+15) ((5193 . 5625) (+ 12346 -9.00719925474099e+15) -> -9.00719925472865e+15) ((5194 . 5625) (+ 12346 -9.00719925474099e+15) -> -9.00719925472864e+15) ((5195 . 5625) (+ 12346 -9.00719925474099e+15) -> -9.00719925472864e+15) ((5196 . 5625) (+ 12347 -9.00719925474099e+15) -> -9.00719925472865e+15) ((5197 . 5625) (+ 12347 -9.00719925474099e+15) -> -9.00719925472864e+15) ((5198 . 5625) (+ 12347 -9.00719925474099e+15) -> -9.00719925472864e+15) ((5199 . 5625) (+ 12347 -9.00719925474099e+15) -> -9.00719925472864e+15) ((5200 . 5625) (+ 12347 -9.00719925474099e+15) -> -9.00719925472864e+15) ((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.0) -> 4294979637.0) ((5227 . 5625) (+ 12343 4294967295.0) -> 4294979638.0) ((5228 . 5625) (+ 12343 4294967296.0) -> 4294979639.0) ((5229 . 5625) (+ 12343 4294967297.0) -> 4294979640.0) ((5230 . 5625) (+ 12343 4294967298.0) -> 4294979641.0) ((5231 . 5625) (+ 12344 4294967294.0) -> 4294979638.0) ((5232 . 5625) (+ 12344 4294967295.0) -> 4294979639.0) ((5233 . 5625) (+ 12344 4294967296.0) -> 4294979640.0) ((5234 . 5625) (+ 12344 4294967297.0) -> 4294979641.0) ((5235 . 5625) (+ 12344 4294967298.0) -> 4294979642.0) ((5236 . 5625) (+ 12345 4294967294.0) -> 4294979639.0) ((5237 . 5625) (+ 12345 4294967295.0) -> 4294979640.0) ((5238 . 5625) (+ 12345 4294967296.0) -> 4294979641.0) ((5239 . 5625) (+ 12345 4294967297.0) -> 4294979642.0) ((5240 . 5625) (+ 12345 4294967298.0) -> 4294979643.0) ((5241 . 5625) (+ 12346 4294967294.0) -> 4294979640.0) ((5242 . 5625) (+ 12346 4294967295.0) -> 4294979641.0) ((5243 . 5625) (+ 12346 4294967296.0) -> 4294979642.0) ((5244 . 5625) (+ 12346 4294967297.0) -> 4294979643.0) ((5245 . 5625) (+ 12346 4294967298.0) -> 4294979644.0) ((5246 . 5625) (+ 12347 4294967294.0) -> 4294979641.0) ((5247 . 5625) (+ 12347 4294967295.0) -> 4294979642.0) ((5248 . 5625) (+ 12347 4294967296.0) -> 4294979643.0) ((5249 . 5625) (+ 12347 4294967297.0) -> 4294979644.0) ((5250 . 5625) (+ 12347 4294967298.0) -> 4294979645.0) ((5251 . 5625) (+ 4294967294.0 -2) -> 4294967292.0) ((5252 . 5625) (+ 4294967294.0 -1) -> 4294967293.0) ((5253 . 5625) (+ 4294967294.0 0) -> 4294967294.0) ((5254 . 5625) (+ 4294967294.0 1) -> 4294967295.0) ((5255 . 5625) (+ 4294967294.0 2) -> 4294967296.0) ((5256 . 5625) (+ 4294967295.0 -2) -> 4294967293.0) ((5257 . 5625) (+ 4294967295.0 -1) -> 4294967294.0) ((5258 . 5625) (+ 4294967295.0 0) -> 4294967295.0) ((5259 . 5625) (+ 4294967295.0 1) -> 4294967296.0) ((5260 . 5625) (+ 4294967295.0 2) -> 4294967297.0) ((5261 . 5625) (+ 4294967296.0 -2) -> 4294967294.0) ((5262 . 5625) (+ 4294967296.0 -1) -> 4294967295.0) ((5263 . 5625) (+ 4294967296.0 0) -> 4294967296.0) ((5264 . 5625) (+ 4294967296.0 1) -> 4294967297.0) ((5265 . 5625) (+ 4294967296.0 2) -> 4294967298.0) ((5266 . 5625) (+ 4294967297.0 -2) -> 4294967295.0) ((5267 . 5625) (+ 4294967297.0 -1) -> 4294967296.0) ((5268 . 5625) (+ 4294967297.0 0) -> 4294967297.0) ((5269 . 5625) (+ 4294967297.0 1) -> 4294967298.0) ((5270 . 5625) (+ 4294967297.0 2) -> 4294967299.0) ((5271 . 5625) (+ 4294967298.0 -2) -> 4294967296.0) ((5272 . 5625) (+ 4294967298.0 -1) -> 4294967297.0) ((5273 . 5625) (+ 4294967298.0 0) -> 4294967298.0) ((5274 . 5625) (+ 4294967298.0 1) -> 4294967299.0) ((5275 . 5625) (+ 4294967298.0 2) -> 4294967300.0) ((5276 . 5625) (+ 4294967294.0 -1) -> 4294967293.0) ((5277 . 5625) (+ 4294967294.0 0) -> 4294967294.0) ((5278 . 5625) (+ 4294967294.0 1) -> 4294967295.0) ((5279 . 5625) (+ 4294967294.0 2) -> 4294967296.0) ((5280 . 5625) (+ 4294967294.0 3) -> 4294967297.0) ((5281 . 5625) (+ 4294967295.0 -1) -> 4294967294.0) ((5282 . 5625) (+ 4294967295.0 0) -> 4294967295.0) ((5283 . 5625) (+ 4294967295.0 1) -> 4294967296.0) ((5284 . 5625) (+ 4294967295.0 2) -> 4294967297.0) ((5285 . 5625) (+ 4294967295.0 3) -> 4294967298.0) ((5286 . 5625) (+ 4294967296.0 -1) -> 4294967295.0) ((5287 . 5625) (+ 4294967296.0 0) -> 4294967296.0) ((5288 . 5625) (+ 4294967296.0 1) -> 4294967297.0) ((5289 . 5625) (+ 4294967296.0 2) -> 4294967298.0) ((5290 . 5625) (+ 4294967296.0 3) -> 4294967299.0) ((5291 . 5625) (+ 4294967297.0 -1) -> 4294967296.0) ((5292 . 5625) (+ 4294967297.0 0) -> 4294967297.0) ((5293 . 5625) (+ 4294967297.0 1) -> 4294967298.0) ((5294 . 5625) (+ 4294967297.0 2) -> 4294967299.0) ((5295 . 5625) (+ 4294967297.0 3) -> 4294967300.0) ((5296 . 5625) (+ 4294967298.0 -1) -> 4294967297.0) ((5297 . 5625) (+ 4294967298.0 0) -> 4294967298.0) ((5298 . 5625) (+ 4294967298.0 1) -> 4294967299.0) ((5299 . 5625) (+ 4294967298.0 2) -> 4294967300.0) ((5300 . 5625) (+ 4294967298.0 3) -> 4294967301.0) ((5301 . 5625) (+ 4294967294.0 -3) -> 4294967291.0) ((5302 . 5625) (+ 4294967294.0 -2) -> 4294967292.0) ((5303 . 5625) (+ 4294967294.0 -1) -> 4294967293.0) ((5304 . 5625) (+ 4294967294.0 0) -> 4294967294.0) ((5305 . 5625) (+ 4294967294.0 1) -> 4294967295.0) ((5306 . 5625) (+ 4294967295.0 -3) -> 4294967292.0) ((5307 . 5625) (+ 4294967295.0 -2) -> 4294967293.0) ((5308 . 5625) (+ 4294967295.0 -1) -> 4294967294.0) ((5309 . 5625) (+ 4294967295.0 0) -> 4294967295.0) ((5310 . 5625) (+ 4294967295.0 1) -> 4294967296.0) ((5311 . 5625) (+ 4294967296.0 -3) -> 4294967293.0) ((5312 . 5625) (+ 4294967296.0 -2) -> 4294967294.0) ((5313 . 5625) (+ 4294967296.0 -1) -> 4294967295.0) ((5314 . 5625) (+ 4294967296.0 0) -> 4294967296.0) ((5315 . 5625) (+ 4294967296.0 1) -> 4294967297.0) ((5316 . 5625) (+ 4294967297.0 -3) -> 4294967294.0) ((5317 . 5625) (+ 4294967297.0 -2) -> 4294967295.0) ((5318 . 5625) (+ 4294967297.0 -1) -> 4294967296.0) ((5319 . 5625) (+ 4294967297.0 0) -> 4294967297.0) ((5320 . 5625) (+ 4294967297.0 1) -> 4294967298.0) ((5321 . 5625) (+ 4294967298.0 -3) -> 4294967295.0) ((5322 . 5625) (+ 4294967298.0 -2) -> 4294967296.0) ((5323 . 5625) (+ 4294967298.0 -1) -> 4294967297.0) ((5324 . 5625) (+ 4294967298.0 0) -> 4294967298.0) ((5325 . 5625) (+ 4294967298.0 1) -> 4294967299.0) ((5326 . 5625) (+ 4294967294.0 0) -> 4294967294.0) ((5327 . 5625) (+ 4294967294.0 1) -> 4294967295.0) ((5328 . 5625) (+ 4294967294.0 2) -> 4294967296.0) ((5329 . 5625) (+ 4294967294.0 3) -> 4294967297.0) ((5330 . 5625) (+ 4294967294.0 4) -> 4294967298.0) ((5331 . 5625) (+ 4294967295.0 0) -> 4294967295.0) ((5332 . 5625) (+ 4294967295.0 1) -> 4294967296.0) ((5333 . 5625) (+ 4294967295.0 2) -> 4294967297.0) ((5334 . 5625) (+ 4294967295.0 3) -> 4294967298.0) ((5335 . 5625) (+ 4294967295.0 4) -> 4294967299.0) ((5336 . 5625) (+ 4294967296.0 0) -> 4294967296.0) ((5337 . 5625) (+ 4294967296.0 1) -> 4294967297.0) ((5338 . 5625) (+ 4294967296.0 2) -> 4294967298.0) ((5339 . 5625) (+ 4294967296.0 3) -> 4294967299.0) ((5340 . 5625) (+ 4294967296.0 4) -> 4294967300.0) ((5341 . 5625) (+ 4294967297.0 0) -> 4294967297.0) ((5342 . 5625) (+ 4294967297.0 1) -> 4294967298.0) ((5343 . 5625) (+ 4294967297.0 2) -> 4294967299.0) ((5344 . 5625) (+ 4294967297.0 3) -> 4294967300.0) ((5345 . 5625) (+ 4294967297.0 4) -> 4294967301.0) ((5346 . 5625) (+ 4294967298.0 0) -> 4294967298.0) ((5347 . 5625) (+ 4294967298.0 1) -> 4294967299.0) ((5348 . 5625) (+ 4294967298.0 2) -> 4294967300.0) ((5349 . 5625) (+ 4294967298.0 3) -> 4294967301.0) ((5350 . 5625) (+ 4294967298.0 4) -> 4294967302.0) ((5351 . 5625) (+ 4294967294.0 -4) -> 4294967290.0) ((5352 . 5625) (+ 4294967294.0 -3) -> 4294967291.0) ((5353 . 5625) (+ 4294967294.0 -2) -> 4294967292.0) ((5354 . 5625) (+ 4294967294.0 -1) -> 4294967293.0) ((5355 . 5625) (+ 4294967294.0 0) -> 4294967294.0) ((5356 . 5625) (+ 4294967295.0 -4) -> 4294967291.0) ((5357 . 5625) (+ 4294967295.0 -3) -> 4294967292.0) ((5358 . 5625) (+ 4294967295.0 -2) -> 4294967293.0) ((5359 . 5625) (+ 4294967295.0 -1) -> 4294967294.0) ((5360 . 5625) (+ 4294967295.0 0) -> 4294967295.0) ((5361 . 5625) (+ 4294967296.0 -4) -> 4294967292.0) ((5362 . 5625) (+ 4294967296.0 -3) -> 4294967293.0) ((5363 . 5625) (+ 4294967296.0 -2) -> 4294967294.0) ((5364 . 5625) (+ 4294967296.0 -1) -> 4294967295.0) ((5365 . 5625) (+ 4294967296.0 0) -> 4294967296.0) ((5366 . 5625) (+ 4294967297.0 -4) -> 4294967293.0) ((5367 . 5625) (+ 4294967297.0 -3) -> 4294967294.0) ((5368 . 5625) (+ 4294967297.0 -2) -> 4294967295.0) ((5369 . 5625) (+ 4294967297.0 -1) -> 4294967296.0) ((5370 . 5625) (+ 4294967297.0 0) -> 4294967297.0) ((5371 . 5625) (+ 4294967298.0 -4) -> 4294967294.0) ((5372 . 5625) (+ 4294967298.0 -3) -> 4294967295.0) ((5373 . 5625) (+ 4294967298.0 -2) -> 4294967296.0) ((5374 . 5625) (+ 4294967298.0 -1) -> 4294967297.0) ((5375 . 5625) (+ 4294967298.0 0) -> 4294967298.0) ((5376 . 5625) (+ 4294967294.0 1073741821) -> 5368709115.0) ((5377 . 5625) (+ 4294967294.0 1073741822) -> 5368709116.0) ((5378 . 5625) (+ 4294967294.0 1073741823) -> 5368709117.0) ((5379 . 5625) (+ 4294967294.0 1073741824.0) -> 5368709118.0) ((5380 . 5625) (+ 4294967294.0 1073741825.0) -> 5368709119.0) ((5381 . 5625) (+ 4294967295.0 1073741821) -> 5368709116.0) ((5382 . 5625) (+ 4294967295.0 1073741822) -> 5368709117.0) ((5383 . 5625) (+ 4294967295.0 1073741823) -> 5368709118.0) ((5384 . 5625) (+ 4294967295.0 1073741824.0) -> 5368709119.0) ((5385 . 5625) (+ 4294967295.0 1073741825.0) -> 5368709120.0) ((5386 . 5625) (+ 4294967296.0 1073741821) -> 5368709117.0) ((5387 . 5625) (+ 4294967296.0 1073741822) -> 5368709118.0) ((5388 . 5625) (+ 4294967296.0 1073741823) -> 5368709119.0) ((5389 . 5625) (+ 4294967296.0 1073741824.0) -> 5368709120.0) ((5390 . 5625) (+ 4294967296.0 1073741825.0) -> 5368709121.0) ((5391 . 5625) (+ 4294967297.0 1073741821) -> 5368709118.0) ((5392 . 5625) (+ 4294967297.0 1073741822) -> 5368709119.0) ((5393 . 5625) (+ 4294967297.0 1073741823) -> 5368709120.0) ((5394 . 5625) (+ 4294967297.0 1073741824.0) -> 5368709121.0) ((5395 . 5625) (+ 4294967297.0 1073741825.0) -> 5368709122.0) ((5396 . 5625) (+ 4294967298.0 1073741821) -> 5368709119.0) ((5397 . 5625) (+ 4294967298.0 1073741822) -> 5368709120.0) ((5398 . 5625) (+ 4294967298.0 1073741823) -> 5368709121.0) ((5399 . 5625) (+ 4294967298.0 1073741824.0) -> 5368709122.0) ((5400 . 5625) (+ 4294967298.0 1073741825.0) -> 5368709123.0) ((5401 . 5625) (+ 4294967294.0 -1073741826.0) -> 3221225468.0) ((5402 . 5625) (+ 4294967294.0 -1073741825.0) -> 3221225469.0) ((5403 . 5625) (+ 4294967294.0 -1073741824) -> 3221225470.0) ((5404 . 5625) (+ 4294967294.0 -1073741823) -> 3221225471.0) ((5405 . 5625) (+ 4294967294.0 -1073741822) -> 3221225472.0) ((5406 . 5625) (+ 4294967295.0 -1073741826.0) -> 3221225469.0) ((5407 . 5625) (+ 4294967295.0 -1073741825.0) -> 3221225470.0) ((5408 . 5625) (+ 4294967295.0 -1073741824) -> 3221225471.0) ((5409 . 5625) (+ 4294967295.0 -1073741823) -> 3221225472.0) ((5410 . 5625) (+ 4294967295.0 -1073741822) -> 3221225473.0) ((5411 . 5625) (+ 4294967296.0 -1073741826.0) -> 3221225470.0) ((5412 . 5625) (+ 4294967296.0 -1073741825.0) -> 3221225471.0) ((5413 . 5625) (+ 4294967296.0 -1073741824) -> 3221225472.0) ((5414 . 5625) (+ 4294967296.0 -1073741823) -> 3221225473.0) ((5415 . 5625) (+ 4294967296.0 -1073741822) -> 3221225474.0) ((5416 . 5625) (+ 4294967297.0 -1073741826.0) -> 3221225471.0) ((5417 . 5625) (+ 4294967297.0 -1073741825.0) -> 3221225472.0) ((5418 . 5625) (+ 4294967297.0 -1073741824) -> 3221225473.0) ((5419 . 5625) (+ 4294967297.0 -1073741823) -> 3221225474.0) ((5420 . 5625) (+ 4294967297.0 -1073741822) -> 3221225475.0) ((5421 . 5625) (+ 4294967298.0 -1073741826.0) -> 3221225472.0) ((5422 . 5625) (+ 4294967298.0 -1073741825.0) -> 3221225473.0) ((5423 . 5625) (+ 4294967298.0 -1073741824) -> 3221225474.0) ((5424 . 5625) (+ 4294967298.0 -1073741823) -> 3221225475.0) ((5425 . 5625) (+ 4294967298.0 -1073741822) -> 3221225476.0) ((5426 . 5625) (+ 4294967294.0 1073741822.0) -> 5368709116.0) ((5427 . 5625) (+ 4294967294.0 1073741823.0) -> 5368709117.0) ((5428 . 5625) (+ 4294967294.0 1073741824.0) -> 5368709118.0) ((5429 . 5625) (+ 4294967294.0 1073741825.0) -> 5368709119.0) ((5430 . 5625) (+ 4294967294.0 1073741826.0) -> 5368709120.0) ((5431 . 5625) (+ 4294967295.0 1073741822.0) -> 5368709117.0) ((5432 . 5625) (+ 4294967295.0 1073741823.0) -> 5368709118.0) ((5433 . 5625) (+ 4294967295.0 1073741824.0) -> 5368709119.0) ((5434 . 5625) (+ 4294967295.0 1073741825.0) -> 5368709120.0) ((5435 . 5625) (+ 4294967295.0 1073741826.0) -> 5368709121.0) ((5436 . 5625) (+ 4294967296.0 1073741822.0) -> 5368709118.0) ((5437 . 5625) (+ 4294967296.0 1073741823.0) -> 5368709119.0) ((5438 . 5625) (+ 4294967296.0 1073741824.0) -> 5368709120.0) ((5439 . 5625) (+ 4294967296.0 1073741825.0) -> 5368709121.0) ((5440 . 5625) (+ 4294967296.0 1073741826.0) -> 5368709122.0) ((5441 . 5625) (+ 4294967297.0 1073741822.0) -> 5368709119.0) ((5442 . 5625) (+ 4294967297.0 1073741823.0) -> 5368709120.0) ((5443 . 5625) (+ 4294967297.0 1073741824.0) -> 5368709121.0) ((5444 . 5625) (+ 4294967297.0 1073741825.0) -> 5368709122.0) ((5445 . 5625) (+ 4294967297.0 1073741826.0) -> 5368709123.0) ((5446 . 5625) (+ 4294967298.0 1073741822.0) -> 5368709120.0) ((5447 . 5625) (+ 4294967298.0 1073741823.0) -> 5368709121.0) ((5448 . 5625) (+ 4294967298.0 1073741824.0) -> 5368709122.0) ((5449 . 5625) (+ 4294967298.0 1073741825.0) -> 5368709123.0) ((5450 . 5625) (+ 4294967298.0 1073741826.0) -> 5368709124.0) ((5451 . 5625) (+ 4294967294.0 -1073741827.0) -> 3221225467.0) ((5452 . 5625) (+ 4294967294.0 -1073741826.0) -> 3221225468.0) ((5453 . 5625) (+ 4294967294.0 -1073741825.0) -> 3221225469.0) ((5454 . 5625) (+ 4294967294.0 -1073741824.0) -> 3221225470.0) ((5455 . 5625) (+ 4294967294.0 -1073741823.0) -> 3221225471.0) ((5456 . 5625) (+ 4294967295.0 -1073741827.0) -> 3221225468.0) ((5457 . 5625) (+ 4294967295.0 -1073741826.0) -> 3221225469.0) ((5458 . 5625) (+ 4294967295.0 -1073741825.0) -> 3221225470.0) ((5459 . 5625) (+ 4294967295.0 -1073741824.0) -> 3221225471.0) ((5460 . 5625) (+ 4294967295.0 -1073741823.0) -> 3221225472.0) ((5461 . 5625) (+ 4294967296.0 -1073741827.0) -> 3221225469.0) ((5462 . 5625) (+ 4294967296.0 -1073741826.0) -> 3221225470.0) ((5463 . 5625) (+ 4294967296.0 -1073741825.0) -> 3221225471.0) ((5464 . 5625) (+ 4294967296.0 -1073741824.0) -> 3221225472.0) ((5465 . 5625) (+ 4294967296.0 -1073741823.0) -> 3221225473.0) ((5466 . 5625) (+ 4294967297.0 -1073741827.0) -> 3221225470.0) ((5467 . 5625) (+ 4294967297.0 -1073741826.0) -> 3221225471.0) ((5468 . 5625) (+ 4294967297.0 -1073741825.0) -> 3221225472.0) ((5469 . 5625) (+ 4294967297.0 -1073741824.0) -> 3221225473.0) ((5470 . 5625) (+ 4294967297.0 -1073741823.0) -> 3221225474.0) ((5471 . 5625) (+ 4294967298.0 -1073741827.0) -> 3221225471.0) ((5472 . 5625) (+ 4294967298.0 -1073741826.0) -> 3221225472.0) ((5473 . 5625) (+ 4294967298.0 -1073741825.0) -> 3221225473.0) ((5474 . 5625) (+ 4294967298.0 -1073741824.0) -> 3221225474.0) ((5475 . 5625) (+ 4294967298.0 -1073741823.0) -> 3221225475.0) ((5476 . 5625) (+ 4294967294.0 1103515243.0) -> 5398482537.0) ((5477 . 5625) (+ 4294967294.0 1103515244.0) -> 5398482538.0) ((5478 . 5625) (+ 4294967294.0 1103515245.0) -> 5398482539.0) ((5479 . 5625) (+ 4294967294.0 1103515246.0) -> 5398482540.0) ((5480 . 5625) (+ 4294967294.0 1103515247.0) -> 5398482541.0) ((5481 . 5625) (+ 4294967295.0 1103515243.0) -> 5398482538.0) ((5482 . 5625) (+ 4294967295.0 1103515244.0) -> 5398482539.0) ((5483 . 5625) (+ 4294967295.0 1103515245.0) -> 5398482540.0) ((5484 . 5625) (+ 4294967295.0 1103515246.0) -> 5398482541.0) ((5485 . 5625) (+ 4294967295.0 1103515247.0) -> 5398482542.0) ((5486 . 5625) (+ 4294967296.0 1103515243.0) -> 5398482539.0) ((5487 . 5625) (+ 4294967296.0 1103515244.0) -> 5398482540.0) ((5488 . 5625) (+ 4294967296.0 1103515245.0) -> 5398482541.0) ((5489 . 5625) (+ 4294967296.0 1103515246.0) -> 5398482542.0) ((5490 . 5625) (+ 4294967296.0 1103515247.0) -> 5398482543.0) ((5491 . 5625) (+ 4294967297.0 1103515243.0) -> 5398482540.0) ((5492 . 5625) (+ 4294967297.0 1103515244.0) -> 5398482541.0) ((5493 . 5625) (+ 4294967297.0 1103515245.0) -> 5398482542.0) ((5494 . 5625) (+ 4294967297.0 1103515246.0) -> 5398482543.0) ((5495 . 5625) (+ 4294967297.0 1103515247.0) -> 5398482544.0) ((5496 . 5625) (+ 4294967298.0 1103515243.0) -> 5398482541.0) ((5497 . 5625) (+ 4294967298.0 1103515244.0) -> 5398482542.0) ((5498 . 5625) (+ 4294967298.0 1103515245.0) -> 5398482543.0) ((5499 . 5625) (+ 4294967298.0 1103515246.0) -> 5398482544.0) ((5500 . 5625) (+ 4294967298.0 1103515247.0) -> 5398482545.0) ((5501 . 5625) (+ 4294967294.0 631629063) -> 4926596357.0) ((5502 . 5625) (+ 4294967294.0 631629064) -> 4926596358.0) ((5503 . 5625) (+ 4294967294.0 631629065) -> 4926596359.0) ((5504 . 5625) (+ 4294967294.0 631629066) -> 4926596360.0) ((5505 . 5625) (+ 4294967294.0 631629067) -> 4926596361.0) ((5506 . 5625) (+ 4294967295.0 631629063) -> 4926596358.0) ((5507 . 5625) (+ 4294967295.0 631629064) -> 4926596359.0) ((5508 . 5625) (+ 4294967295.0 631629065) -> 4926596360.0) ((5509 . 5625) (+ 4294967295.0 631629066) -> 4926596361.0) ((5510 . 5625) (+ 4294967295.0 631629067) -> 4926596362.0) ((5511 . 5625) (+ 4294967296.0 631629063) -> 4926596359.0) ((5512 . 5625) (+ 4294967296.0 631629064) -> 4926596360.0) ((5513 . 5625) (+ 4294967296.0 631629065) -> 4926596361.0) ((5514 . 5625) (+ 4294967296.0 631629066) -> 4926596362.0) ((5515 . 5625) (+ 4294967296.0 631629067) -> 4926596363.0) ((5516 . 5625) (+ 4294967297.0 631629063) -> 4926596360.0) ((5517 . 5625) (+ 4294967297.0 631629064) -> 4926596361.0) ((5518 . 5625) (+ 4294967297.0 631629065) -> 4926596362.0) ((5519 . 5625) (+ 4294967297.0 631629066) -> 4926596363.0) ((5520 . 5625) (+ 4294967297.0 631629067) -> 4926596364.0) ((5521 . 5625) (+ 4294967298.0 631629063) -> 4926596361.0) ((5522 . 5625) (+ 4294967298.0 631629064) -> 4926596362.0) ((5523 . 5625) (+ 4294967298.0 631629065) -> 4926596363.0) ((5524 . 5625) (+ 4294967298.0 631629066) -> 4926596364.0) ((5525 . 5625) (+ 4294967298.0 631629067) -> 4926596365.0) ((5526 . 5625) (+ 4294967294.0 9.00719925474099e+15) -> 9.00720354970828e+15) ((5527 . 5625) (+ 4294967294.0 9.00719925474099e+15) -> 9.00720354970828e+15) ((5528 . 5625) (+ 4294967294.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5529 . 5625) (+ 4294967294.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5530 . 5625) (+ 4294967294.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5531 . 5625) (+ 4294967295.0 9.00719925474099e+15) -> 9.00720354970828e+15) ((5532 . 5625) (+ 4294967295.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5533 . 5625) (+ 4294967295.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5534 . 5625) (+ 4294967295.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5535 . 5625) (+ 4294967295.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5536 . 5625) (+ 4294967296.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5537 . 5625) (+ 4294967296.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5538 . 5625) (+ 4294967296.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5539 . 5625) (+ 4294967296.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5540 . 5625) (+ 4294967296.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5541 . 5625) (+ 4294967297.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5542 . 5625) (+ 4294967297.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5543 . 5625) (+ 4294967297.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5544 . 5625) (+ 4294967297.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5545 . 5625) (+ 4294967297.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5546 . 5625) (+ 4294967298.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5547 . 5625) (+ 4294967298.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5548 . 5625) (+ 4294967298.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5549 . 5625) (+ 4294967298.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5550 . 5625) (+ 4294967298.0 9.00719925474099e+15) -> 9.00720354970829e+15) ((5551 . 5625) (+ 4294967294.0 -9.00719925474099e+15) -> -9.0071949597737e+15) ((5552 . 5625) (+ 4294967294.0 -9.00719925474099e+15) -> -9.0071949597737e+15) ((5553 . 5625) (+ 4294967294.0 -9.00719925474099e+15) -> -9.0071949597737e+15) ((5554 . 5625) (+ 4294967294.0 -9.00719925474099e+15) -> -9.0071949597737e+15) ((5555 . 5625) (+ 4294967294.0 -9.00719925474099e+15) -> -9.0071949597737e+15) ((5556 . 5625) (+ 4294967295.0 -9.00719925474099e+15) -> -9.0071949597737e+15) ((5557 . 5625) (+ 4294967295.0 -9.00719925474099e+15) -> -9.0071949597737e+15) ((5558 . 5625) (+ 4294967295.0 -9.00719925474099e+15) -> -9.0071949597737e+15) ((5559 . 5625) (+ 4294967295.0 -9.00719925474099e+15) -> -9.0071949597737e+15) ((5560 . 5625) (+ 4294967295.0 -9.00719925474099e+15) -> -9.0071949597737e+15) ((5561 . 5625) (+ 4294967296.0 -9.00719925474099e+15) -> -9.0071949597737e+15) ((5562 . 5625) (+ 4294967296.0 -9.00719925474099e+15) -> -9.0071949597737e+15) ((5563 . 5625) (+ 4294967296.0 -9.00719925474099e+15) -> -9.0071949597737e+15) ((5564 . 5625) (+ 4294967296.0 -9.00719925474099e+15) -> -9.0071949597737e+15) ((5565 . 5625) (+ 4294967296.0 -9.00719925474099e+15) -> -9.00719495977369e+15) ((5566 . 5625) (+ 4294967297.0 -9.00719925474099e+15) -> -9.0071949597737e+15) ((5567 . 5625) (+ 4294967297.0 -9.00719925474099e+15) -> -9.0071949597737e+15) ((5568 . 5625) (+ 4294967297.0 -9.00719925474099e+15) -> -9.0071949597737e+15) ((5569 . 5625) (+ 4294967297.0 -9.00719925474099e+15) -> -9.00719495977369e+15) ((5570 . 5625) (+ 4294967297.0 -9.00719925474099e+15) -> -9.00719495977369e+15) ((5571 . 5625) (+ 4294967298.0 -9.00719925474099e+15) -> -9.0071949597737e+15) ((5572 . 5625) (+ 4294967298.0 -9.00719925474099e+15) -> -9.00719495977369e+15) ((5573 . 5625) (+ 4294967298.0 -9.00719925474099e+15) -> -9.00719495977369e+15) ((5574 . 5625) (+ 4294967298.0 -9.00719925474099e+15) -> -9.00719495977369e+15) ((5575 . 5625) (+ 4294967298.0 -9.00719925474099e+15) -> -9.00719495977369e+15) ((5576 . 5625) (+ 4294967294.0 12343) -> 4294979637.0) ((5577 . 5625) (+ 4294967294.0 12344) -> 4294979638.0) ((5578 . 5625) (+ 4294967294.0 12345) -> 4294979639.0) ((5579 . 5625) (+ 4294967294.0 12346) -> 4294979640.0) ((5580 . 5625) (+ 4294967294.0 12347) -> 4294979641.0) ((5581 . 5625) (+ 4294967295.0 12343) -> 4294979638.0) ((5582 . 5625) (+ 4294967295.0 12344) -> 4294979639.0) ((5583 . 5625) (+ 4294967295.0 12345) -> 4294979640.0) ((5584 . 5625) (+ 4294967295.0 12346) -> 4294979641.0) ((5585 . 5625) (+ 4294967295.0 12347) -> 4294979642.0) ((5586 . 5625) (+ 4294967296.0 12343) -> 4294979639.0) ((5587 . 5625) (+ 4294967296.0 12344) -> 4294979640.0) ((5588 . 5625) (+ 4294967296.0 12345) -> 4294979641.0) ((5589 . 5625) (+ 4294967296.0 12346) -> 4294979642.0) ((5590 . 5625) (+ 4294967296.0 12347) -> 4294979643.0) ((5591 . 5625) (+ 4294967297.0 12343) -> 4294979640.0) ((5592 . 5625) (+ 4294967297.0 12344) -> 4294979641.0) ((5593 . 5625) (+ 4294967297.0 12345) -> 4294979642.0) ((5594 . 5625) (+ 4294967297.0 12346) -> 4294979643.0) ((5595 . 5625) (+ 4294967297.0 12347) -> 4294979644.0) ((5596 . 5625) (+ 4294967298.0 12343) -> 4294979641.0) ((5597 . 5625) (+ 4294967298.0 12344) -> 4294979642.0) ((5598 . 5625) (+ 4294967298.0 12345) -> 4294979643.0) ((5599 . 5625) (+ 4294967298.0 12346) -> 4294979644.0) ((5600 . 5625) (+ 4294967298.0 12347) -> 4294979645.0) ((5601 . 5625) (+ 4294967294.0 4294967294.0) -> 8589934588.0) ((5602 . 5625) (+ 4294967294.0 4294967295.0) -> 8589934589.0) ((5603 . 5625) (+ 4294967294.0 4294967296.0) -> 8589934590.0) ((5604 . 5625) (+ 4294967294.0 4294967297.0) -> 8589934591.0) ((5605 . 5625) (+ 4294967294.0 4294967298.0) -> 8589934592.0) ((5606 . 5625) (+ 4294967295.0 4294967294.0) -> 8589934589.0) ((5607 . 5625) (+ 4294967295.0 4294967295.0) -> 8589934590.0) ((5608 . 5625) (+ 4294967295.0 4294967296.0) -> 8589934591.0) ((5609 . 5625) (+ 4294967295.0 4294967297.0) -> 8589934592.0) ((5610 . 5625) (+ 4294967295.0 4294967298.0) -> 8589934593.0) ((5611 . 5625) (+ 4294967296.0 4294967294.0) -> 8589934590.0) ((5612 . 5625) (+ 4294967296.0 4294967295.0) -> 8589934591.0) ((5613 . 5625) (+ 4294967296.0 4294967296.0) -> 8589934592.0) ((5614 . 5625) (+ 4294967296.0 4294967297.0) -> 8589934593.0) ((5615 . 5625) (+ 4294967296.0 4294967298.0) -> 8589934594.0) ((5616 . 5625) (+ 4294967297.0 4294967294.0) -> 8589934591.0) ((5617 . 5625) (+ 4294967297.0 4294967295.0) -> 8589934592.0) ((5618 . 5625) (+ 4294967297.0 4294967296.0) -> 8589934593.0) ((5619 . 5625) (+ 4294967297.0 4294967297.0) -> 8589934594.0) ((5620 . 5625) (+ 4294967297.0 4294967298.0) -> 8589934595.0) ((5621 . 5625) (+ 4294967298.0 4294967294.0) -> 8589934592.0) ((5622 . 5625) (+ 4294967298.0 4294967295.0) -> 8589934593.0) ((5623 . 5625) (+ 4294967298.0 4294967296.0) -> 8589934594.0) ((5624 . 5625) (+ 4294967298.0 4294967297.0) -> 8589934595.0) ((5625 . 5625) (+ 4294967298.0 4294967298.0) -> 8589934596.0) ((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.0) ((129 . 5625) (- -2 1073741824.0) -> -1073741826.0) ((130 . 5625) (- -2 1073741825.0) -> -1073741827.0) ((131 . 5625) (- -1 1073741821) -> -1073741822) ((132 . 5625) (- -1 1073741822) -> -1073741823) ((133 . 5625) (- -1 1073741823) -> -1073741824) ((134 . 5625) (- -1 1073741824.0) -> -1073741825.0) ((135 . 5625) (- -1 1073741825.0) -> -1073741826.0) ((136 . 5625) (- 0 1073741821) -> -1073741821) ((137 . 5625) (- 0 1073741822) -> -1073741822) ((138 . 5625) (- 0 1073741823) -> -1073741823) ((139 . 5625) (- 0 1073741824.0) -> -1073741824.0) ((140 . 5625) (- 0 1073741825.0) -> -1073741825.0) ((141 . 5625) (- 1 1073741821) -> -1073741820) ((142 . 5625) (- 1 1073741822) -> -1073741821) ((143 . 5625) (- 1 1073741823) -> -1073741822) ((144 . 5625) (- 1 1073741824.0) -> -1073741823.0) ((145 . 5625) (- 1 1073741825.0) -> -1073741824.0) ((146 . 5625) (- 2 1073741821) -> -1073741819) ((147 . 5625) (- 2 1073741822) -> -1073741820) ((148 . 5625) (- 2 1073741823) -> -1073741821) ((149 . 5625) (- 2 1073741824.0) -> -1073741822.0) ((150 . 5625) (- 2 1073741825.0) -> -1073741823.0) ((151 . 5625) (- -2 -1073741826.0) -> 1073741824.0) ((152 . 5625) (- -2 -1073741825.0) -> 1073741823.0) ((153 . 5625) (- -2 -1073741824) -> 1073741822) ((154 . 5625) (- -2 -1073741823) -> 1073741821) ((155 . 5625) (- -2 -1073741822) -> 1073741820) ((156 . 5625) (- -1 -1073741826.0) -> 1073741825.0) ((157 . 5625) (- -1 -1073741825.0) -> 1073741824.0) ((158 . 5625) (- -1 -1073741824) -> 1073741823) ((159 . 5625) (- -1 -1073741823) -> 1073741822) ((160 . 5625) (- -1 -1073741822) -> 1073741821) ((161 . 5625) (- 0 -1073741826.0) -> 1073741826.0) ((162 . 5625) (- 0 -1073741825.0) -> 1073741825.0) ((163 . 5625) (- 0 -1073741824) -> 1073741824.0) ((164 . 5625) (- 0 -1073741823) -> 1073741823) ((165 . 5625) (- 0 -1073741822) -> 1073741822) ((166 . 5625) (- 1 -1073741826.0) -> 1073741827.0) ((167 . 5625) (- 1 -1073741825.0) -> 1073741826.0) ((168 . 5625) (- 1 -1073741824) -> 1073741825.0) ((169 . 5625) (- 1 -1073741823) -> 1073741824.0) ((170 . 5625) (- 1 -1073741822) -> 1073741823) ((171 . 5625) (- 2 -1073741826.0) -> 1073741828.0) ((172 . 5625) (- 2 -1073741825.0) -> 1073741827.0) ((173 . 5625) (- 2 -1073741824) -> 1073741826.0) ((174 . 5625) (- 2 -1073741823) -> 1073741825.0) ((175 . 5625) (- 2 -1073741822) -> 1073741824.0) ((176 . 5625) (- -2 1073741822.0) -> -1073741824.0) ((177 . 5625) (- -2 1073741823.0) -> -1073741825.0) ((178 . 5625) (- -2 1073741824.0) -> -1073741826.0) ((179 . 5625) (- -2 1073741825.0) -> -1073741827.0) ((180 . 5625) (- -2 1073741826.0) -> -1073741828.0) ((181 . 5625) (- -1 1073741822.0) -> -1073741823.0) ((182 . 5625) (- -1 1073741823.0) -> -1073741824.0) ((183 . 5625) (- -1 1073741824.0) -> -1073741825.0) ((184 . 5625) (- -1 1073741825.0) -> -1073741826.0) ((185 . 5625) (- -1 1073741826.0) -> -1073741827.0) ((186 . 5625) (- 0 1073741822.0) -> -1073741822.0) ((187 . 5625) (- 0 1073741823.0) -> -1073741823.0) ((188 . 5625) (- 0 1073741824.0) -> -1073741824.0) ((189 . 5625) (- 0 1073741825.0) -> -1073741825.0) ((190 . 5625) (- 0 1073741826.0) -> -1073741826.0) ((191 . 5625) (- 1 1073741822.0) -> -1073741821.0) ((192 . 5625) (- 1 1073741823.0) -> -1073741822.0) ((193 . 5625) (- 1 1073741824.0) -> -1073741823.0) ((194 . 5625) (- 1 1073741825.0) -> -1073741824.0) ((195 . 5625) (- 1 1073741826.0) -> -1073741825.0) ((196 . 5625) (- 2 1073741822.0) -> -1073741820.0) ((197 . 5625) (- 2 1073741823.0) -> -1073741821.0) ((198 . 5625) (- 2 1073741824.0) -> -1073741822.0) ((199 . 5625) (- 2 1073741825.0) -> -1073741823.0) ((200 . 5625) (- 2 1073741826.0) -> -1073741824.0) ((201 . 5625) (- -2 -1073741827.0) -> 1073741825.0) ((202 . 5625) (- -2 -1073741826.0) -> 1073741824.0) ((203 . 5625) (- -2 -1073741825.0) -> 1073741823.0) ((204 . 5625) (- -2 -1073741824.0) -> 1073741822.0) ((205 . 5625) (- -2 -1073741823.0) -> 1073741821.0) ((206 . 5625) (- -1 -1073741827.0) -> 1073741826.0) ((207 . 5625) (- -1 -1073741826.0) -> 1073741825.0) ((208 . 5625) (- -1 -1073741825.0) -> 1073741824.0) ((209 . 5625) (- -1 -1073741824.0) -> 1073741823.0) ((210 . 5625) (- -1 -1073741823.0) -> 1073741822.0) ((211 . 5625) (- 0 -1073741827.0) -> 1073741827.0) ((212 . 5625) (- 0 -1073741826.0) -> 1073741826.0) ((213 . 5625) (- 0 -1073741825.0) -> 1073741825.0) ((214 . 5625) (- 0 -1073741824.0) -> 1073741824.0) ((215 . 5625) (- 0 -1073741823.0) -> 1073741823.0) ((216 . 5625) (- 1 -1073741827.0) -> 1073741828.0) ((217 . 5625) (- 1 -1073741826.0) -> 1073741827.0) ((218 . 5625) (- 1 -1073741825.0) -> 1073741826.0) ((219 . 5625) (- 1 -1073741824.0) -> 1073741825.0) ((220 . 5625) (- 1 -1073741823.0) -> 1073741824.0) ((221 . 5625) (- 2 -1073741827.0) -> 1073741829.0) ((222 . 5625) (- 2 -1073741826.0) -> 1073741828.0) ((223 . 5625) (- 2 -1073741825.0) -> 1073741827.0) ((224 . 5625) (- 2 -1073741824.0) -> 1073741826.0) ((225 . 5625) (- 2 -1073741823.0) -> 1073741825.0) ((226 . 5625) (- -2 1103515243.0) -> -1103515245.0) ((227 . 5625) (- -2 1103515244.0) -> -1103515246.0) ((228 . 5625) (- -2 1103515245.0) -> -1103515247.0) ((229 . 5625) (- -2 1103515246.0) -> -1103515248.0) ((230 . 5625) (- -2 1103515247.0) -> -1103515249.0) ((231 . 5625) (- -1 1103515243.0) -> -1103515244.0) ((232 . 5625) (- -1 1103515244.0) -> -1103515245.0) ((233 . 5625) (- -1 1103515245.0) -> -1103515246.0) ((234 . 5625) (- -1 1103515246.0) -> -1103515247.0) ((235 . 5625) (- -1 1103515247.0) -> -1103515248.0) ((236 . 5625) (- 0 1103515243.0) -> -1103515243.0) ((237 . 5625) (- 0 1103515244.0) -> -1103515244.0) ((238 . 5625) (- 0 1103515245.0) -> -1103515245.0) ((239 . 5625) (- 0 1103515246.0) -> -1103515246.0) ((240 . 5625) (- 0 1103515247.0) -> -1103515247.0) ((241 . 5625) (- 1 1103515243.0) -> -1103515242.0) ((242 . 5625) (- 1 1103515244.0) -> -1103515243.0) ((243 . 5625) (- 1 1103515245.0) -> -1103515244.0) ((244 . 5625) (- 1 1103515246.0) -> -1103515245.0) ((245 . 5625) (- 1 1103515247.0) -> -1103515246.0) ((246 . 5625) (- 2 1103515243.0) -> -1103515241.0) ((247 . 5625) (- 2 1103515244.0) -> -1103515242.0) ((248 . 5625) (- 2 1103515245.0) -> -1103515243.0) ((249 . 5625) (- 2 1103515246.0) -> -1103515244.0) ((250 . 5625) (- 2 1103515247.0) -> -1103515245.0) ((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 9.00719925474099e+15) -> -9.00719925474099e+15) ((277 . 5625) (- -2 9.00719925474099e+15) -> -9.00719925474099e+15) ((278 . 5625) (- -2 9.00719925474099e+15) -> -9.00719925474099e+15) ((279 . 5625) (- -2 9.00719925474099e+15) -> -9.00719925474099e+15) ((280 . 5625) (- -2 9.00719925474099e+15) -> -9.007199254741e+15) ((281 . 5625) (- -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((282 . 5625) (- -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((283 . 5625) (- -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((284 . 5625) (- -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((285 . 5625) (- -1 9.00719925474099e+15) -> -9.007199254741e+15) ((286 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((287 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((288 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((289 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((290 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((291 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((292 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((293 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((294 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((295 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((296 . 5625) (- 2 9.00719925474099e+15) -> -9.00719925474099e+15) ((297 . 5625) (- 2 9.00719925474099e+15) -> -9.00719925474099e+15) ((298 . 5625) (- 2 9.00719925474099e+15) -> -9.00719925474099e+15) ((299 . 5625) (- 2 9.00719925474099e+15) -> -9.00719925474099e+15) ((300 . 5625) (- 2 9.00719925474099e+15) -> -9.00719925474099e+15) ((301 . 5625) (- -2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((302 . 5625) (- -2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((303 . 5625) (- -2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((304 . 5625) (- -2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((305 . 5625) (- -2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((306 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((307 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((308 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((309 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((310 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((311 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((312 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((313 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((314 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((315 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((316 . 5625) (- 1 -9.00719925474099e+15) -> 9.007199254741e+15) ((317 . 5625) (- 1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((318 . 5625) (- 1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((319 . 5625) (- 1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((320 . 5625) (- 1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((321 . 5625) (- 2 -9.00719925474099e+15) -> 9.007199254741e+15) ((322 . 5625) (- 2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((323 . 5625) (- 2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((324 . 5625) (- 2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((325 . 5625) (- 2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((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.0) -> -4294967296.0) ((352 . 5625) (- -2 4294967295.0) -> -4294967297.0) ((353 . 5625) (- -2 4294967296.0) -> -4294967298.0) ((354 . 5625) (- -2 4294967297.0) -> -4294967299.0) ((355 . 5625) (- -2 4294967298.0) -> -4294967300.0) ((356 . 5625) (- -1 4294967294.0) -> -4294967295.0) ((357 . 5625) (- -1 4294967295.0) -> -4294967296.0) ((358 . 5625) (- -1 4294967296.0) -> -4294967297.0) ((359 . 5625) (- -1 4294967297.0) -> -4294967298.0) ((360 . 5625) (- -1 4294967298.0) -> -4294967299.0) ((361 . 5625) (- 0 4294967294.0) -> -4294967294.0) ((362 . 5625) (- 0 4294967295.0) -> -4294967295.0) ((363 . 5625) (- 0 4294967296.0) -> -4294967296.0) ((364 . 5625) (- 0 4294967297.0) -> -4294967297.0) ((365 . 5625) (- 0 4294967298.0) -> -4294967298.0) ((366 . 5625) (- 1 4294967294.0) -> -4294967293.0) ((367 . 5625) (- 1 4294967295.0) -> -4294967294.0) ((368 . 5625) (- 1 4294967296.0) -> -4294967295.0) ((369 . 5625) (- 1 4294967297.0) -> -4294967296.0) ((370 . 5625) (- 1 4294967298.0) -> -4294967297.0) ((371 . 5625) (- 2 4294967294.0) -> -4294967292.0) ((372 . 5625) (- 2 4294967295.0) -> -4294967293.0) ((373 . 5625) (- 2 4294967296.0) -> -4294967294.0) ((374 . 5625) (- 2 4294967297.0) -> -4294967295.0) ((375 . 5625) (- 2 4294967298.0) -> -4294967296.0) ((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.0) -> -1073741825.0) ((505 . 5625) (- -1 1073741825.0) -> -1073741826.0) ((506 . 5625) (- 0 1073741821) -> -1073741821) ((507 . 5625) (- 0 1073741822) -> -1073741822) ((508 . 5625) (- 0 1073741823) -> -1073741823) ((509 . 5625) (- 0 1073741824.0) -> -1073741824.0) ((510 . 5625) (- 0 1073741825.0) -> -1073741825.0) ((511 . 5625) (- 1 1073741821) -> -1073741820) ((512 . 5625) (- 1 1073741822) -> -1073741821) ((513 . 5625) (- 1 1073741823) -> -1073741822) ((514 . 5625) (- 1 1073741824.0) -> -1073741823.0) ((515 . 5625) (- 1 1073741825.0) -> -1073741824.0) ((516 . 5625) (- 2 1073741821) -> -1073741819) ((517 . 5625) (- 2 1073741822) -> -1073741820) ((518 . 5625) (- 2 1073741823) -> -1073741821) ((519 . 5625) (- 2 1073741824.0) -> -1073741822.0) ((520 . 5625) (- 2 1073741825.0) -> -1073741823.0) ((521 . 5625) (- 3 1073741821) -> -1073741818) ((522 . 5625) (- 3 1073741822) -> -1073741819) ((523 . 5625) (- 3 1073741823) -> -1073741820) ((524 . 5625) (- 3 1073741824.0) -> -1073741821.0) ((525 . 5625) (- 3 1073741825.0) -> -1073741822.0) ((526 . 5625) (- -1 -1073741826.0) -> 1073741825.0) ((527 . 5625) (- -1 -1073741825.0) -> 1073741824.0) ((528 . 5625) (- -1 -1073741824) -> 1073741823) ((529 . 5625) (- -1 -1073741823) -> 1073741822) ((530 . 5625) (- -1 -1073741822) -> 1073741821) ((531 . 5625) (- 0 -1073741826.0) -> 1073741826.0) ((532 . 5625) (- 0 -1073741825.0) -> 1073741825.0) ((533 . 5625) (- 0 -1073741824) -> 1073741824.0) ((534 . 5625) (- 0 -1073741823) -> 1073741823) ((535 . 5625) (- 0 -1073741822) -> 1073741822) ((536 . 5625) (- 1 -1073741826.0) -> 1073741827.0) ((537 . 5625) (- 1 -1073741825.0) -> 1073741826.0) ((538 . 5625) (- 1 -1073741824) -> 1073741825.0) ((539 . 5625) (- 1 -1073741823) -> 1073741824.0) ((540 . 5625) (- 1 -1073741822) -> 1073741823) ((541 . 5625) (- 2 -1073741826.0) -> 1073741828.0) ((542 . 5625) (- 2 -1073741825.0) -> 1073741827.0) ((543 . 5625) (- 2 -1073741824) -> 1073741826.0) ((544 . 5625) (- 2 -1073741823) -> 1073741825.0) ((545 . 5625) (- 2 -1073741822) -> 1073741824.0) ((546 . 5625) (- 3 -1073741826.0) -> 1073741829.0) ((547 . 5625) (- 3 -1073741825.0) -> 1073741828.0) ((548 . 5625) (- 3 -1073741824) -> 1073741827.0) ((549 . 5625) (- 3 -1073741823) -> 1073741826.0) ((550 . 5625) (- 3 -1073741822) -> 1073741825.0) ((551 . 5625) (- -1 1073741822.0) -> -1073741823.0) ((552 . 5625) (- -1 1073741823.0) -> -1073741824.0) ((553 . 5625) (- -1 1073741824.0) -> -1073741825.0) ((554 . 5625) (- -1 1073741825.0) -> -1073741826.0) ((555 . 5625) (- -1 1073741826.0) -> -1073741827.0) ((556 . 5625) (- 0 1073741822.0) -> -1073741822.0) ((557 . 5625) (- 0 1073741823.0) -> -1073741823.0) ((558 . 5625) (- 0 1073741824.0) -> -1073741824.0) ((559 . 5625) (- 0 1073741825.0) -> -1073741825.0) ((560 . 5625) (- 0 1073741826.0) -> -1073741826.0) ((561 . 5625) (- 1 1073741822.0) -> -1073741821.0) ((562 . 5625) (- 1 1073741823.0) -> -1073741822.0) ((563 . 5625) (- 1 1073741824.0) -> -1073741823.0) ((564 . 5625) (- 1 1073741825.0) -> -1073741824.0) ((565 . 5625) (- 1 1073741826.0) -> -1073741825.0) ((566 . 5625) (- 2 1073741822.0) -> -1073741820.0) ((567 . 5625) (- 2 1073741823.0) -> -1073741821.0) ((568 . 5625) (- 2 1073741824.0) -> -1073741822.0) ((569 . 5625) (- 2 1073741825.0) -> -1073741823.0) ((570 . 5625) (- 2 1073741826.0) -> -1073741824.0) ((571 . 5625) (- 3 1073741822.0) -> -1073741819.0) ((572 . 5625) (- 3 1073741823.0) -> -1073741820.0) ((573 . 5625) (- 3 1073741824.0) -> -1073741821.0) ((574 . 5625) (- 3 1073741825.0) -> -1073741822.0) ((575 . 5625) (- 3 1073741826.0) -> -1073741823.0) ((576 . 5625) (- -1 -1073741827.0) -> 1073741826.0) ((577 . 5625) (- -1 -1073741826.0) -> 1073741825.0) ((578 . 5625) (- -1 -1073741825.0) -> 1073741824.0) ((579 . 5625) (- -1 -1073741824.0) -> 1073741823.0) ((580 . 5625) (- -1 -1073741823.0) -> 1073741822.0) ((581 . 5625) (- 0 -1073741827.0) -> 1073741827.0) ((582 . 5625) (- 0 -1073741826.0) -> 1073741826.0) ((583 . 5625) (- 0 -1073741825.0) -> 1073741825.0) ((584 . 5625) (- 0 -1073741824.0) -> 1073741824.0) ((585 . 5625) (- 0 -1073741823.0) -> 1073741823.0) ((586 . 5625) (- 1 -1073741827.0) -> 1073741828.0) ((587 . 5625) (- 1 -1073741826.0) -> 1073741827.0) ((588 . 5625) (- 1 -1073741825.0) -> 1073741826.0) ((589 . 5625) (- 1 -1073741824.0) -> 1073741825.0) ((590 . 5625) (- 1 -1073741823.0) -> 1073741824.0) ((591 . 5625) (- 2 -1073741827.0) -> 1073741829.0) ((592 . 5625) (- 2 -1073741826.0) -> 1073741828.0) ((593 . 5625) (- 2 -1073741825.0) -> 1073741827.0) ((594 . 5625) (- 2 -1073741824.0) -> 1073741826.0) ((595 . 5625) (- 2 -1073741823.0) -> 1073741825.0) ((596 . 5625) (- 3 -1073741827.0) -> 1073741830.0) ((597 . 5625) (- 3 -1073741826.0) -> 1073741829.0) ((598 . 5625) (- 3 -1073741825.0) -> 1073741828.0) ((599 . 5625) (- 3 -1073741824.0) -> 1073741827.0) ((600 . 5625) (- 3 -1073741823.0) -> 1073741826.0) ((601 . 5625) (- -1 1103515243.0) -> -1103515244.0) ((602 . 5625) (- -1 1103515244.0) -> -1103515245.0) ((603 . 5625) (- -1 1103515245.0) -> -1103515246.0) ((604 . 5625) (- -1 1103515246.0) -> -1103515247.0) ((605 . 5625) (- -1 1103515247.0) -> -1103515248.0) ((606 . 5625) (- 0 1103515243.0) -> -1103515243.0) ((607 . 5625) (- 0 1103515244.0) -> -1103515244.0) ((608 . 5625) (- 0 1103515245.0) -> -1103515245.0) ((609 . 5625) (- 0 1103515246.0) -> -1103515246.0) ((610 . 5625) (- 0 1103515247.0) -> -1103515247.0) ((611 . 5625) (- 1 1103515243.0) -> -1103515242.0) ((612 . 5625) (- 1 1103515244.0) -> -1103515243.0) ((613 . 5625) (- 1 1103515245.0) -> -1103515244.0) ((614 . 5625) (- 1 1103515246.0) -> -1103515245.0) ((615 . 5625) (- 1 1103515247.0) -> -1103515246.0) ((616 . 5625) (- 2 1103515243.0) -> -1103515241.0) ((617 . 5625) (- 2 1103515244.0) -> -1103515242.0) ((618 . 5625) (- 2 1103515245.0) -> -1103515243.0) ((619 . 5625) (- 2 1103515246.0) -> -1103515244.0) ((620 . 5625) (- 2 1103515247.0) -> -1103515245.0) ((621 . 5625) (- 3 1103515243.0) -> -1103515240.0) ((622 . 5625) (- 3 1103515244.0) -> -1103515241.0) ((623 . 5625) (- 3 1103515245.0) -> -1103515242.0) ((624 . 5625) (- 3 1103515246.0) -> -1103515243.0) ((625 . 5625) (- 3 1103515247.0) -> -1103515244.0) ((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 9.00719925474099e+15) -> -9.00719925474099e+15) ((652 . 5625) (- -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((653 . 5625) (- -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((654 . 5625) (- -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((655 . 5625) (- -1 9.00719925474099e+15) -> -9.007199254741e+15) ((656 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((657 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((658 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((659 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((660 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((661 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((662 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((663 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((664 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((665 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((666 . 5625) (- 2 9.00719925474099e+15) -> -9.00719925474099e+15) ((667 . 5625) (- 2 9.00719925474099e+15) -> -9.00719925474099e+15) ((668 . 5625) (- 2 9.00719925474099e+15) -> -9.00719925474099e+15) ((669 . 5625) (- 2 9.00719925474099e+15) -> -9.00719925474099e+15) ((670 . 5625) (- 2 9.00719925474099e+15) -> -9.00719925474099e+15) ((671 . 5625) (- 3 9.00719925474099e+15) -> -9.00719925474099e+15) ((672 . 5625) (- 3 9.00719925474099e+15) -> -9.00719925474099e+15) ((673 . 5625) (- 3 9.00719925474099e+15) -> -9.00719925474099e+15) ((674 . 5625) (- 3 9.00719925474099e+15) -> -9.00719925474099e+15) ((675 . 5625) (- 3 9.00719925474099e+15) -> -9.00719925474099e+15) ((676 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((677 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((678 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((679 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((680 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((681 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((682 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((683 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((684 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((685 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((686 . 5625) (- 1 -9.00719925474099e+15) -> 9.007199254741e+15) ((687 . 5625) (- 1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((688 . 5625) (- 1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((689 . 5625) (- 1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((690 . 5625) (- 1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((691 . 5625) (- 2 -9.00719925474099e+15) -> 9.007199254741e+15) ((692 . 5625) (- 2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((693 . 5625) (- 2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((694 . 5625) (- 2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((695 . 5625) (- 2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((696 . 5625) (- 3 -9.00719925474099e+15) -> 9.007199254741e+15) ((697 . 5625) (- 3 -9.00719925474099e+15) -> 9.007199254741e+15) ((698 . 5625) (- 3 -9.00719925474099e+15) -> 9.007199254741e+15) ((699 . 5625) (- 3 -9.00719925474099e+15) -> 9.00719925474099e+15) ((700 . 5625) (- 3 -9.00719925474099e+15) -> 9.00719925474099e+15) ((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.0) -> -4294967295.0) ((727 . 5625) (- -1 4294967295.0) -> -4294967296.0) ((728 . 5625) (- -1 4294967296.0) -> -4294967297.0) ((729 . 5625) (- -1 4294967297.0) -> -4294967298.0) ((730 . 5625) (- -1 4294967298.0) -> -4294967299.0) ((731 . 5625) (- 0 4294967294.0) -> -4294967294.0) ((732 . 5625) (- 0 4294967295.0) -> -4294967295.0) ((733 . 5625) (- 0 4294967296.0) -> -4294967296.0) ((734 . 5625) (- 0 4294967297.0) -> -4294967297.0) ((735 . 5625) (- 0 4294967298.0) -> -4294967298.0) ((736 . 5625) (- 1 4294967294.0) -> -4294967293.0) ((737 . 5625) (- 1 4294967295.0) -> -4294967294.0) ((738 . 5625) (- 1 4294967296.0) -> -4294967295.0) ((739 . 5625) (- 1 4294967297.0) -> -4294967296.0) ((740 . 5625) (- 1 4294967298.0) -> -4294967297.0) ((741 . 5625) (- 2 4294967294.0) -> -4294967292.0) ((742 . 5625) (- 2 4294967295.0) -> -4294967293.0) ((743 . 5625) (- 2 4294967296.0) -> -4294967294.0) ((744 . 5625) (- 2 4294967297.0) -> -4294967295.0) ((745 . 5625) (- 2 4294967298.0) -> -4294967296.0) ((746 . 5625) (- 3 4294967294.0) -> -4294967291.0) ((747 . 5625) (- 3 4294967295.0) -> -4294967292.0) ((748 . 5625) (- 3 4294967296.0) -> -4294967293.0) ((749 . 5625) (- 3 4294967297.0) -> -4294967294.0) ((750 . 5625) (- 3 4294967298.0) -> -4294967295.0) ((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.0) ((878 . 5625) (- -3 1073741823) -> -1073741826.0) ((879 . 5625) (- -3 1073741824.0) -> -1073741827.0) ((880 . 5625) (- -3 1073741825.0) -> -1073741828.0) ((881 . 5625) (- -2 1073741821) -> -1073741823) ((882 . 5625) (- -2 1073741822) -> -1073741824) ((883 . 5625) (- -2 1073741823) -> -1073741825.0) ((884 . 5625) (- -2 1073741824.0) -> -1073741826.0) ((885 . 5625) (- -2 1073741825.0) -> -1073741827.0) ((886 . 5625) (- -1 1073741821) -> -1073741822) ((887 . 5625) (- -1 1073741822) -> -1073741823) ((888 . 5625) (- -1 1073741823) -> -1073741824) ((889 . 5625) (- -1 1073741824.0) -> -1073741825.0) ((890 . 5625) (- -1 1073741825.0) -> -1073741826.0) ((891 . 5625) (- 0 1073741821) -> -1073741821) ((892 . 5625) (- 0 1073741822) -> -1073741822) ((893 . 5625) (- 0 1073741823) -> -1073741823) ((894 . 5625) (- 0 1073741824.0) -> -1073741824.0) ((895 . 5625) (- 0 1073741825.0) -> -1073741825.0) ((896 . 5625) (- 1 1073741821) -> -1073741820) ((897 . 5625) (- 1 1073741822) -> -1073741821) ((898 . 5625) (- 1 1073741823) -> -1073741822) ((899 . 5625) (- 1 1073741824.0) -> -1073741823.0) ((900 . 5625) (- 1 1073741825.0) -> -1073741824.0) ((901 . 5625) (- -3 -1073741826.0) -> 1073741823.0) ((902 . 5625) (- -3 -1073741825.0) -> 1073741822.0) ((903 . 5625) (- -3 -1073741824) -> 1073741821) ((904 . 5625) (- -3 -1073741823) -> 1073741820) ((905 . 5625) (- -3 -1073741822) -> 1073741819) ((906 . 5625) (- -2 -1073741826.0) -> 1073741824.0) ((907 . 5625) (- -2 -1073741825.0) -> 1073741823.0) ((908 . 5625) (- -2 -1073741824) -> 1073741822) ((909 . 5625) (- -2 -1073741823) -> 1073741821) ((910 . 5625) (- -2 -1073741822) -> 1073741820) ((911 . 5625) (- -1 -1073741826.0) -> 1073741825.0) ((912 . 5625) (- -1 -1073741825.0) -> 1073741824.0) ((913 . 5625) (- -1 -1073741824) -> 1073741823) ((914 . 5625) (- -1 -1073741823) -> 1073741822) ((915 . 5625) (- -1 -1073741822) -> 1073741821) ((916 . 5625) (- 0 -1073741826.0) -> 1073741826.0) ((917 . 5625) (- 0 -1073741825.0) -> 1073741825.0) ((918 . 5625) (- 0 -1073741824) -> 1073741824.0) ((919 . 5625) (- 0 -1073741823) -> 1073741823) ((920 . 5625) (- 0 -1073741822) -> 1073741822) ((921 . 5625) (- 1 -1073741826.0) -> 1073741827.0) ((922 . 5625) (- 1 -1073741825.0) -> 1073741826.0) ((923 . 5625) (- 1 -1073741824) -> 1073741825.0) ((924 . 5625) (- 1 -1073741823) -> 1073741824.0) ((925 . 5625) (- 1 -1073741822) -> 1073741823) ((926 . 5625) (- -3 1073741822.0) -> -1073741825.0) ((927 . 5625) (- -3 1073741823.0) -> -1073741826.0) ((928 . 5625) (- -3 1073741824.0) -> -1073741827.0) ((929 . 5625) (- -3 1073741825.0) -> -1073741828.0) ((930 . 5625) (- -3 1073741826.0) -> -1073741829.0) ((931 . 5625) (- -2 1073741822.0) -> -1073741824.0) ((932 . 5625) (- -2 1073741823.0) -> -1073741825.0) ((933 . 5625) (- -2 1073741824.0) -> -1073741826.0) ((934 . 5625) (- -2 1073741825.0) -> -1073741827.0) ((935 . 5625) (- -2 1073741826.0) -> -1073741828.0) ((936 . 5625) (- -1 1073741822.0) -> -1073741823.0) ((937 . 5625) (- -1 1073741823.0) -> -1073741824.0) ((938 . 5625) (- -1 1073741824.0) -> -1073741825.0) ((939 . 5625) (- -1 1073741825.0) -> -1073741826.0) ((940 . 5625) (- -1 1073741826.0) -> -1073741827.0) ((941 . 5625) (- 0 1073741822.0) -> -1073741822.0) ((942 . 5625) (- 0 1073741823.0) -> -1073741823.0) ((943 . 5625) (- 0 1073741824.0) -> -1073741824.0) ((944 . 5625) (- 0 1073741825.0) -> -1073741825.0) ((945 . 5625) (- 0 1073741826.0) -> -1073741826.0) ((946 . 5625) (- 1 1073741822.0) -> -1073741821.0) ((947 . 5625) (- 1 1073741823.0) -> -1073741822.0) ((948 . 5625) (- 1 1073741824.0) -> -1073741823.0) ((949 . 5625) (- 1 1073741825.0) -> -1073741824.0) ((950 . 5625) (- 1 1073741826.0) -> -1073741825.0) ((951 . 5625) (- -3 -1073741827.0) -> 1073741824.0) ((952 . 5625) (- -3 -1073741826.0) -> 1073741823.0) ((953 . 5625) (- -3 -1073741825.0) -> 1073741822.0) ((954 . 5625) (- -3 -1073741824.0) -> 1073741821.0) ((955 . 5625) (- -3 -1073741823.0) -> 1073741820.0) ((956 . 5625) (- -2 -1073741827.0) -> 1073741825.0) ((957 . 5625) (- -2 -1073741826.0) -> 1073741824.0) ((958 . 5625) (- -2 -1073741825.0) -> 1073741823.0) ((959 . 5625) (- -2 -1073741824.0) -> 1073741822.0) ((960 . 5625) (- -2 -1073741823.0) -> 1073741821.0) ((961 . 5625) (- -1 -1073741827.0) -> 1073741826.0) ((962 . 5625) (- -1 -1073741826.0) -> 1073741825.0) ((963 . 5625) (- -1 -1073741825.0) -> 1073741824.0) ((964 . 5625) (- -1 -1073741824.0) -> 1073741823.0) ((965 . 5625) (- -1 -1073741823.0) -> 1073741822.0) ((966 . 5625) (- 0 -1073741827.0) -> 1073741827.0) ((967 . 5625) (- 0 -1073741826.0) -> 1073741826.0) ((968 . 5625) (- 0 -1073741825.0) -> 1073741825.0) ((969 . 5625) (- 0 -1073741824.0) -> 1073741824.0) ((970 . 5625) (- 0 -1073741823.0) -> 1073741823.0) ((971 . 5625) (- 1 -1073741827.0) -> 1073741828.0) ((972 . 5625) (- 1 -1073741826.0) -> 1073741827.0) ((973 . 5625) (- 1 -1073741825.0) -> 1073741826.0) ((974 . 5625) (- 1 -1073741824.0) -> 1073741825.0) ((975 . 5625) (- 1 -1073741823.0) -> 1073741824.0) ((976 . 5625) (- -3 1103515243.0) -> -1103515246.0) ((977 . 5625) (- -3 1103515244.0) -> -1103515247.0) ((978 . 5625) (- -3 1103515245.0) -> -1103515248.0) ((979 . 5625) (- -3 1103515246.0) -> -1103515249.0) ((980 . 5625) (- -3 1103515247.0) -> -1103515250.0) ((981 . 5625) (- -2 1103515243.0) -> -1103515245.0) ((982 . 5625) (- -2 1103515244.0) -> -1103515246.0) ((983 . 5625) (- -2 1103515245.0) -> -1103515247.0) ((984 . 5625) (- -2 1103515246.0) -> -1103515248.0) ((985 . 5625) (- -2 1103515247.0) -> -1103515249.0) ((986 . 5625) (- -1 1103515243.0) -> -1103515244.0) ((987 . 5625) (- -1 1103515244.0) -> -1103515245.0) ((988 . 5625) (- -1 1103515245.0) -> -1103515246.0) ((989 . 5625) (- -1 1103515246.0) -> -1103515247.0) ((990 . 5625) (- -1 1103515247.0) -> -1103515248.0) ((991 . 5625) (- 0 1103515243.0) -> -1103515243.0) ((992 . 5625) (- 0 1103515244.0) -> -1103515244.0) ((993 . 5625) (- 0 1103515245.0) -> -1103515245.0) ((994 . 5625) (- 0 1103515246.0) -> -1103515246.0) ((995 . 5625) (- 0 1103515247.0) -> -1103515247.0) ((996 . 5625) (- 1 1103515243.0) -> -1103515242.0) ((997 . 5625) (- 1 1103515244.0) -> -1103515243.0) ((998 . 5625) (- 1 1103515245.0) -> -1103515244.0) ((999 . 5625) (- 1 1103515246.0) -> -1103515245.0) ((1000 . 5625) (- 1 1103515247.0) -> -1103515246.0) ((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 9.00719925474099e+15) -> -9.00719925474099e+15) ((1027 . 5625) (- -3 9.00719925474099e+15) -> -9.00719925474099e+15) ((1028 . 5625) (- -3 9.00719925474099e+15) -> -9.007199254741e+15) ((1029 . 5625) (- -3 9.00719925474099e+15) -> -9.007199254741e+15) ((1030 . 5625) (- -3 9.00719925474099e+15) -> -9.007199254741e+15) ((1031 . 5625) (- -2 9.00719925474099e+15) -> -9.00719925474099e+15) ((1032 . 5625) (- -2 9.00719925474099e+15) -> -9.00719925474099e+15) ((1033 . 5625) (- -2 9.00719925474099e+15) -> -9.00719925474099e+15) ((1034 . 5625) (- -2 9.00719925474099e+15) -> -9.00719925474099e+15) ((1035 . 5625) (- -2 9.00719925474099e+15) -> -9.007199254741e+15) ((1036 . 5625) (- -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1037 . 5625) (- -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1038 . 5625) (- -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1039 . 5625) (- -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1040 . 5625) (- -1 9.00719925474099e+15) -> -9.007199254741e+15) ((1041 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((1042 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((1043 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((1044 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((1045 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((1046 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1047 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1048 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1049 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1050 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1051 . 5625) (- -3 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1052 . 5625) (- -3 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1053 . 5625) (- -3 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1054 . 5625) (- -3 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1055 . 5625) (- -3 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1056 . 5625) (- -2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1057 . 5625) (- -2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1058 . 5625) (- -2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1059 . 5625) (- -2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1060 . 5625) (- -2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1061 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1062 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1063 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1064 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1065 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1066 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1067 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1068 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1069 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1070 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1071 . 5625) (- 1 -9.00719925474099e+15) -> 9.007199254741e+15) ((1072 . 5625) (- 1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1073 . 5625) (- 1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1074 . 5625) (- 1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1075 . 5625) (- 1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((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.0) -> -4294967297.0) ((1102 . 5625) (- -3 4294967295.0) -> -4294967298.0) ((1103 . 5625) (- -3 4294967296.0) -> -4294967299.0) ((1104 . 5625) (- -3 4294967297.0) -> -4294967300.0) ((1105 . 5625) (- -3 4294967298.0) -> -4294967301.0) ((1106 . 5625) (- -2 4294967294.0) -> -4294967296.0) ((1107 . 5625) (- -2 4294967295.0) -> -4294967297.0) ((1108 . 5625) (- -2 4294967296.0) -> -4294967298.0) ((1109 . 5625) (- -2 4294967297.0) -> -4294967299.0) ((1110 . 5625) (- -2 4294967298.0) -> -4294967300.0) ((1111 . 5625) (- -1 4294967294.0) -> -4294967295.0) ((1112 . 5625) (- -1 4294967295.0) -> -4294967296.0) ((1113 . 5625) (- -1 4294967296.0) -> -4294967297.0) ((1114 . 5625) (- -1 4294967297.0) -> -4294967298.0) ((1115 . 5625) (- -1 4294967298.0) -> -4294967299.0) ((1116 . 5625) (- 0 4294967294.0) -> -4294967294.0) ((1117 . 5625) (- 0 4294967295.0) -> -4294967295.0) ((1118 . 5625) (- 0 4294967296.0) -> -4294967296.0) ((1119 . 5625) (- 0 4294967297.0) -> -4294967297.0) ((1120 . 5625) (- 0 4294967298.0) -> -4294967298.0) ((1121 . 5625) (- 1 4294967294.0) -> -4294967293.0) ((1122 . 5625) (- 1 4294967295.0) -> -4294967294.0) ((1123 . 5625) (- 1 4294967296.0) -> -4294967295.0) ((1124 . 5625) (- 1 4294967297.0) -> -4294967296.0) ((1125 . 5625) (- 1 4294967298.0) -> -4294967297.0) ((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.0) -> -1073741824.0) ((1255 . 5625) (- 0 1073741825.0) -> -1073741825.0) ((1256 . 5625) (- 1 1073741821) -> -1073741820) ((1257 . 5625) (- 1 1073741822) -> -1073741821) ((1258 . 5625) (- 1 1073741823) -> -1073741822) ((1259 . 5625) (- 1 1073741824.0) -> -1073741823.0) ((1260 . 5625) (- 1 1073741825.0) -> -1073741824.0) ((1261 . 5625) (- 2 1073741821) -> -1073741819) ((1262 . 5625) (- 2 1073741822) -> -1073741820) ((1263 . 5625) (- 2 1073741823) -> -1073741821) ((1264 . 5625) (- 2 1073741824.0) -> -1073741822.0) ((1265 . 5625) (- 2 1073741825.0) -> -1073741823.0) ((1266 . 5625) (- 3 1073741821) -> -1073741818) ((1267 . 5625) (- 3 1073741822) -> -1073741819) ((1268 . 5625) (- 3 1073741823) -> -1073741820) ((1269 . 5625) (- 3 1073741824.0) -> -1073741821.0) ((1270 . 5625) (- 3 1073741825.0) -> -1073741822.0) ((1271 . 5625) (- 4 1073741821) -> -1073741817) ((1272 . 5625) (- 4 1073741822) -> -1073741818) ((1273 . 5625) (- 4 1073741823) -> -1073741819) ((1274 . 5625) (- 4 1073741824.0) -> -1073741820.0) ((1275 . 5625) (- 4 1073741825.0) -> -1073741821.0) ((1276 . 5625) (- 0 -1073741826.0) -> 1073741826.0) ((1277 . 5625) (- 0 -1073741825.0) -> 1073741825.0) ((1278 . 5625) (- 0 -1073741824) -> 1073741824.0) ((1279 . 5625) (- 0 -1073741823) -> 1073741823) ((1280 . 5625) (- 0 -1073741822) -> 1073741822) ((1281 . 5625) (- 1 -1073741826.0) -> 1073741827.0) ((1282 . 5625) (- 1 -1073741825.0) -> 1073741826.0) ((1283 . 5625) (- 1 -1073741824) -> 1073741825.0) ((1284 . 5625) (- 1 -1073741823) -> 1073741824.0) ((1285 . 5625) (- 1 -1073741822) -> 1073741823) ((1286 . 5625) (- 2 -1073741826.0) -> 1073741828.0) ((1287 . 5625) (- 2 -1073741825.0) -> 1073741827.0) ((1288 . 5625) (- 2 -1073741824) -> 1073741826.0) ((1289 . 5625) (- 2 -1073741823) -> 1073741825.0) ((1290 . 5625) (- 2 -1073741822) -> 1073741824.0) ((1291 . 5625) (- 3 -1073741826.0) -> 1073741829.0) ((1292 . 5625) (- 3 -1073741825.0) -> 1073741828.0) ((1293 . 5625) (- 3 -1073741824) -> 1073741827.0) ((1294 . 5625) (- 3 -1073741823) -> 1073741826.0) ((1295 . 5625) (- 3 -1073741822) -> 1073741825.0) ((1296 . 5625) (- 4 -1073741826.0) -> 1073741830.0) ((1297 . 5625) (- 4 -1073741825.0) -> 1073741829.0) ((1298 . 5625) (- 4 -1073741824) -> 1073741828.0) ((1299 . 5625) (- 4 -1073741823) -> 1073741827.0) ((1300 . 5625) (- 4 -1073741822) -> 1073741826.0) ((1301 . 5625) (- 0 1073741822.0) -> -1073741822.0) ((1302 . 5625) (- 0 1073741823.0) -> -1073741823.0) ((1303 . 5625) (- 0 1073741824.0) -> -1073741824.0) ((1304 . 5625) (- 0 1073741825.0) -> -1073741825.0) ((1305 . 5625) (- 0 1073741826.0) -> -1073741826.0) ((1306 . 5625) (- 1 1073741822.0) -> -1073741821.0) ((1307 . 5625) (- 1 1073741823.0) -> -1073741822.0) ((1308 . 5625) (- 1 1073741824.0) -> -1073741823.0) ((1309 . 5625) (- 1 1073741825.0) -> -1073741824.0) ((1310 . 5625) (- 1 1073741826.0) -> -1073741825.0) ((1311 . 5625) (- 2 1073741822.0) -> -1073741820.0) ((1312 . 5625) (- 2 1073741823.0) -> -1073741821.0) ((1313 . 5625) (- 2 1073741824.0) -> -1073741822.0) ((1314 . 5625) (- 2 1073741825.0) -> -1073741823.0) ((1315 . 5625) (- 2 1073741826.0) -> -1073741824.0) ((1316 . 5625) (- 3 1073741822.0) -> -1073741819.0) ((1317 . 5625) (- 3 1073741823.0) -> -1073741820.0) ((1318 . 5625) (- 3 1073741824.0) -> -1073741821.0) ((1319 . 5625) (- 3 1073741825.0) -> -1073741822.0) ((1320 . 5625) (- 3 1073741826.0) -> -1073741823.0) ((1321 . 5625) (- 4 1073741822.0) -> -1073741818.0) ((1322 . 5625) (- 4 1073741823.0) -> -1073741819.0) ((1323 . 5625) (- 4 1073741824.0) -> -1073741820.0) ((1324 . 5625) (- 4 1073741825.0) -> -1073741821.0) ((1325 . 5625) (- 4 1073741826.0) -> -1073741822.0) ((1326 . 5625) (- 0 -1073741827.0) -> 1073741827.0) ((1327 . 5625) (- 0 -1073741826.0) -> 1073741826.0) ((1328 . 5625) (- 0 -1073741825.0) -> 1073741825.0) ((1329 . 5625) (- 0 -1073741824.0) -> 1073741824.0) ((1330 . 5625) (- 0 -1073741823.0) -> 1073741823.0) ((1331 . 5625) (- 1 -1073741827.0) -> 1073741828.0) ((1332 . 5625) (- 1 -1073741826.0) -> 1073741827.0) ((1333 . 5625) (- 1 -1073741825.0) -> 1073741826.0) ((1334 . 5625) (- 1 -1073741824.0) -> 1073741825.0) ((1335 . 5625) (- 1 -1073741823.0) -> 1073741824.0) ((1336 . 5625) (- 2 -1073741827.0) -> 1073741829.0) ((1337 . 5625) (- 2 -1073741826.0) -> 1073741828.0) ((1338 . 5625) (- 2 -1073741825.0) -> 1073741827.0) ((1339 . 5625) (- 2 -1073741824.0) -> 1073741826.0) ((1340 . 5625) (- 2 -1073741823.0) -> 1073741825.0) ((1341 . 5625) (- 3 -1073741827.0) -> 1073741830.0) ((1342 . 5625) (- 3 -1073741826.0) -> 1073741829.0) ((1343 . 5625) (- 3 -1073741825.0) -> 1073741828.0) ((1344 . 5625) (- 3 -1073741824.0) -> 1073741827.0) ((1345 . 5625) (- 3 -1073741823.0) -> 1073741826.0) ((1346 . 5625) (- 4 -1073741827.0) -> 1073741831.0) ((1347 . 5625) (- 4 -1073741826.0) -> 1073741830.0) ((1348 . 5625) (- 4 -1073741825.0) -> 1073741829.0) ((1349 . 5625) (- 4 -1073741824.0) -> 1073741828.0) ((1350 . 5625) (- 4 -1073741823.0) -> 1073741827.0) ((1351 . 5625) (- 0 1103515243.0) -> -1103515243.0) ((1352 . 5625) (- 0 1103515244.0) -> -1103515244.0) ((1353 . 5625) (- 0 1103515245.0) -> -1103515245.0) ((1354 . 5625) (- 0 1103515246.0) -> -1103515246.0) ((1355 . 5625) (- 0 1103515247.0) -> -1103515247.0) ((1356 . 5625) (- 1 1103515243.0) -> -1103515242.0) ((1357 . 5625) (- 1 1103515244.0) -> -1103515243.0) ((1358 . 5625) (- 1 1103515245.0) -> -1103515244.0) ((1359 . 5625) (- 1 1103515246.0) -> -1103515245.0) ((1360 . 5625) (- 1 1103515247.0) -> -1103515246.0) ((1361 . 5625) (- 2 1103515243.0) -> -1103515241.0) ((1362 . 5625) (- 2 1103515244.0) -> -1103515242.0) ((1363 . 5625) (- 2 1103515245.0) -> -1103515243.0) ((1364 . 5625) (- 2 1103515246.0) -> -1103515244.0) ((1365 . 5625) (- 2 1103515247.0) -> -1103515245.0) ((1366 . 5625) (- 3 1103515243.0) -> -1103515240.0) ((1367 . 5625) (- 3 1103515244.0) -> -1103515241.0) ((1368 . 5625) (- 3 1103515245.0) -> -1103515242.0) ((1369 . 5625) (- 3 1103515246.0) -> -1103515243.0) ((1370 . 5625) (- 3 1103515247.0) -> -1103515244.0) ((1371 . 5625) (- 4 1103515243.0) -> -1103515239.0) ((1372 . 5625) (- 4 1103515244.0) -> -1103515240.0) ((1373 . 5625) (- 4 1103515245.0) -> -1103515241.0) ((1374 . 5625) (- 4 1103515246.0) -> -1103515242.0) ((1375 . 5625) (- 4 1103515247.0) -> -1103515243.0) ((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 9.00719925474099e+15) -> -9.00719925474099e+15) ((1402 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((1403 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((1404 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((1405 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((1406 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1407 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1408 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1409 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1410 . 5625) (- 1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1411 . 5625) (- 2 9.00719925474099e+15) -> -9.00719925474099e+15) ((1412 . 5625) (- 2 9.00719925474099e+15) -> -9.00719925474099e+15) ((1413 . 5625) (- 2 9.00719925474099e+15) -> -9.00719925474099e+15) ((1414 . 5625) (- 2 9.00719925474099e+15) -> -9.00719925474099e+15) ((1415 . 5625) (- 2 9.00719925474099e+15) -> -9.00719925474099e+15) ((1416 . 5625) (- 3 9.00719925474099e+15) -> -9.00719925474099e+15) ((1417 . 5625) (- 3 9.00719925474099e+15) -> -9.00719925474099e+15) ((1418 . 5625) (- 3 9.00719925474099e+15) -> -9.00719925474099e+15) ((1419 . 5625) (- 3 9.00719925474099e+15) -> -9.00719925474099e+15) ((1420 . 5625) (- 3 9.00719925474099e+15) -> -9.00719925474099e+15) ((1421 . 5625) (- 4 9.00719925474099e+15) -> -9.00719925474099e+15) ((1422 . 5625) (- 4 9.00719925474099e+15) -> -9.00719925474099e+15) ((1423 . 5625) (- 4 9.00719925474099e+15) -> -9.00719925474099e+15) ((1424 . 5625) (- 4 9.00719925474099e+15) -> -9.00719925474099e+15) ((1425 . 5625) (- 4 9.00719925474099e+15) -> -9.00719925474099e+15) ((1426 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1427 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1428 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1429 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1430 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1431 . 5625) (- 1 -9.00719925474099e+15) -> 9.007199254741e+15) ((1432 . 5625) (- 1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1433 . 5625) (- 1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1434 . 5625) (- 1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1435 . 5625) (- 1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1436 . 5625) (- 2 -9.00719925474099e+15) -> 9.007199254741e+15) ((1437 . 5625) (- 2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1438 . 5625) (- 2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1439 . 5625) (- 2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1440 . 5625) (- 2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1441 . 5625) (- 3 -9.00719925474099e+15) -> 9.007199254741e+15) ((1442 . 5625) (- 3 -9.00719925474099e+15) -> 9.007199254741e+15) ((1443 . 5625) (- 3 -9.00719925474099e+15) -> 9.007199254741e+15) ((1444 . 5625) (- 3 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1445 . 5625) (- 3 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1446 . 5625) (- 4 -9.00719925474099e+15) -> 9.007199254741e+15) ((1447 . 5625) (- 4 -9.00719925474099e+15) -> 9.007199254741e+15) ((1448 . 5625) (- 4 -9.00719925474099e+15) -> 9.007199254741e+15) ((1449 . 5625) (- 4 -9.00719925474099e+15) -> 9.007199254741e+15) ((1450 . 5625) (- 4 -9.00719925474099e+15) -> 9.00719925474099e+15) ((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.0) -> -4294967294.0) ((1477 . 5625) (- 0 4294967295.0) -> -4294967295.0) ((1478 . 5625) (- 0 4294967296.0) -> -4294967296.0) ((1479 . 5625) (- 0 4294967297.0) -> -4294967297.0) ((1480 . 5625) (- 0 4294967298.0) -> -4294967298.0) ((1481 . 5625) (- 1 4294967294.0) -> -4294967293.0) ((1482 . 5625) (- 1 4294967295.0) -> -4294967294.0) ((1483 . 5625) (- 1 4294967296.0) -> -4294967295.0) ((1484 . 5625) (- 1 4294967297.0) -> -4294967296.0) ((1485 . 5625) (- 1 4294967298.0) -> -4294967297.0) ((1486 . 5625) (- 2 4294967294.0) -> -4294967292.0) ((1487 . 5625) (- 2 4294967295.0) -> -4294967293.0) ((1488 . 5625) (- 2 4294967296.0) -> -4294967294.0) ((1489 . 5625) (- 2 4294967297.0) -> -4294967295.0) ((1490 . 5625) (- 2 4294967298.0) -> -4294967296.0) ((1491 . 5625) (- 3 4294967294.0) -> -4294967291.0) ((1492 . 5625) (- 3 4294967295.0) -> -4294967292.0) ((1493 . 5625) (- 3 4294967296.0) -> -4294967293.0) ((1494 . 5625) (- 3 4294967297.0) -> -4294967294.0) ((1495 . 5625) (- 3 4294967298.0) -> -4294967295.0) ((1496 . 5625) (- 4 4294967294.0) -> -4294967290.0) ((1497 . 5625) (- 4 4294967295.0) -> -4294967291.0) ((1498 . 5625) (- 4 4294967296.0) -> -4294967292.0) ((1499 . 5625) (- 4 4294967297.0) -> -4294967293.0) ((1500 . 5625) (- 4 4294967298.0) -> -4294967294.0) ((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.0) ((1627 . 5625) (- -4 1073741822) -> -1073741826.0) ((1628 . 5625) (- -4 1073741823) -> -1073741827.0) ((1629 . 5625) (- -4 1073741824.0) -> -1073741828.0) ((1630 . 5625) (- -4 1073741825.0) -> -1073741829.0) ((1631 . 5625) (- -3 1073741821) -> -1073741824) ((1632 . 5625) (- -3 1073741822) -> -1073741825.0) ((1633 . 5625) (- -3 1073741823) -> -1073741826.0) ((1634 . 5625) (- -3 1073741824.0) -> -1073741827.0) ((1635 . 5625) (- -3 1073741825.0) -> -1073741828.0) ((1636 . 5625) (- -2 1073741821) -> -1073741823) ((1637 . 5625) (- -2 1073741822) -> -1073741824) ((1638 . 5625) (- -2 1073741823) -> -1073741825.0) ((1639 . 5625) (- -2 1073741824.0) -> -1073741826.0) ((1640 . 5625) (- -2 1073741825.0) -> -1073741827.0) ((1641 . 5625) (- -1 1073741821) -> -1073741822) ((1642 . 5625) (- -1 1073741822) -> -1073741823) ((1643 . 5625) (- -1 1073741823) -> -1073741824) ((1644 . 5625) (- -1 1073741824.0) -> -1073741825.0) ((1645 . 5625) (- -1 1073741825.0) -> -1073741826.0) ((1646 . 5625) (- 0 1073741821) -> -1073741821) ((1647 . 5625) (- 0 1073741822) -> -1073741822) ((1648 . 5625) (- 0 1073741823) -> -1073741823) ((1649 . 5625) (- 0 1073741824.0) -> -1073741824.0) ((1650 . 5625) (- 0 1073741825.0) -> -1073741825.0) ((1651 . 5625) (- -4 -1073741826.0) -> 1073741822.0) ((1652 . 5625) (- -4 -1073741825.0) -> 1073741821.0) ((1653 . 5625) (- -4 -1073741824) -> 1073741820) ((1654 . 5625) (- -4 -1073741823) -> 1073741819) ((1655 . 5625) (- -4 -1073741822) -> 1073741818) ((1656 . 5625) (- -3 -1073741826.0) -> 1073741823.0) ((1657 . 5625) (- -3 -1073741825.0) -> 1073741822.0) ((1658 . 5625) (- -3 -1073741824) -> 1073741821) ((1659 . 5625) (- -3 -1073741823) -> 1073741820) ((1660 . 5625) (- -3 -1073741822) -> 1073741819) ((1661 . 5625) (- -2 -1073741826.0) -> 1073741824.0) ((1662 . 5625) (- -2 -1073741825.0) -> 1073741823.0) ((1663 . 5625) (- -2 -1073741824) -> 1073741822) ((1664 . 5625) (- -2 -1073741823) -> 1073741821) ((1665 . 5625) (- -2 -1073741822) -> 1073741820) ((1666 . 5625) (- -1 -1073741826.0) -> 1073741825.0) ((1667 . 5625) (- -1 -1073741825.0) -> 1073741824.0) ((1668 . 5625) (- -1 -1073741824) -> 1073741823) ((1669 . 5625) (- -1 -1073741823) -> 1073741822) ((1670 . 5625) (- -1 -1073741822) -> 1073741821) ((1671 . 5625) (- 0 -1073741826.0) -> 1073741826.0) ((1672 . 5625) (- 0 -1073741825.0) -> 1073741825.0) ((1673 . 5625) (- 0 -1073741824) -> 1073741824.0) ((1674 . 5625) (- 0 -1073741823) -> 1073741823) ((1675 . 5625) (- 0 -1073741822) -> 1073741822) ((1676 . 5625) (- -4 1073741822.0) -> -1073741826.0) ((1677 . 5625) (- -4 1073741823.0) -> -1073741827.0) ((1678 . 5625) (- -4 1073741824.0) -> -1073741828.0) ((1679 . 5625) (- -4 1073741825.0) -> -1073741829.0) ((1680 . 5625) (- -4 1073741826.0) -> -1073741830.0) ((1681 . 5625) (- -3 1073741822.0) -> -1073741825.0) ((1682 . 5625) (- -3 1073741823.0) -> -1073741826.0) ((1683 . 5625) (- -3 1073741824.0) -> -1073741827.0) ((1684 . 5625) (- -3 1073741825.0) -> -1073741828.0) ((1685 . 5625) (- -3 1073741826.0) -> -1073741829.0) ((1686 . 5625) (- -2 1073741822.0) -> -1073741824.0) ((1687 . 5625) (- -2 1073741823.0) -> -1073741825.0) ((1688 . 5625) (- -2 1073741824.0) -> -1073741826.0) ((1689 . 5625) (- -2 1073741825.0) -> -1073741827.0) ((1690 . 5625) (- -2 1073741826.0) -> -1073741828.0) ((1691 . 5625) (- -1 1073741822.0) -> -1073741823.0) ((1692 . 5625) (- -1 1073741823.0) -> -1073741824.0) ((1693 . 5625) (- -1 1073741824.0) -> -1073741825.0) ((1694 . 5625) (- -1 1073741825.0) -> -1073741826.0) ((1695 . 5625) (- -1 1073741826.0) -> -1073741827.0) ((1696 . 5625) (- 0 1073741822.0) -> -1073741822.0) ((1697 . 5625) (- 0 1073741823.0) -> -1073741823.0) ((1698 . 5625) (- 0 1073741824.0) -> -1073741824.0) ((1699 . 5625) (- 0 1073741825.0) -> -1073741825.0) ((1700 . 5625) (- 0 1073741826.0) -> -1073741826.0) ((1701 . 5625) (- -4 -1073741827.0) -> 1073741823.0) ((1702 . 5625) (- -4 -1073741826.0) -> 1073741822.0) ((1703 . 5625) (- -4 -1073741825.0) -> 1073741821.0) ((1704 . 5625) (- -4 -1073741824.0) -> 1073741820.0) ((1705 . 5625) (- -4 -1073741823.0) -> 1073741819.0) ((1706 . 5625) (- -3 -1073741827.0) -> 1073741824.0) ((1707 . 5625) (- -3 -1073741826.0) -> 1073741823.0) ((1708 . 5625) (- -3 -1073741825.0) -> 1073741822.0) ((1709 . 5625) (- -3 -1073741824.0) -> 1073741821.0) ((1710 . 5625) (- -3 -1073741823.0) -> 1073741820.0) ((1711 . 5625) (- -2 -1073741827.0) -> 1073741825.0) ((1712 . 5625) (- -2 -1073741826.0) -> 1073741824.0) ((1713 . 5625) (- -2 -1073741825.0) -> 1073741823.0) ((1714 . 5625) (- -2 -1073741824.0) -> 1073741822.0) ((1715 . 5625) (- -2 -1073741823.0) -> 1073741821.0) ((1716 . 5625) (- -1 -1073741827.0) -> 1073741826.0) ((1717 . 5625) (- -1 -1073741826.0) -> 1073741825.0) ((1718 . 5625) (- -1 -1073741825.0) -> 1073741824.0) ((1719 . 5625) (- -1 -1073741824.0) -> 1073741823.0) ((1720 . 5625) (- -1 -1073741823.0) -> 1073741822.0) ((1721 . 5625) (- 0 -1073741827.0) -> 1073741827.0) ((1722 . 5625) (- 0 -1073741826.0) -> 1073741826.0) ((1723 . 5625) (- 0 -1073741825.0) -> 1073741825.0) ((1724 . 5625) (- 0 -1073741824.0) -> 1073741824.0) ((1725 . 5625) (- 0 -1073741823.0) -> 1073741823.0) ((1726 . 5625) (- -4 1103515243.0) -> -1103515247.0) ((1727 . 5625) (- -4 1103515244.0) -> -1103515248.0) ((1728 . 5625) (- -4 1103515245.0) -> -1103515249.0) ((1729 . 5625) (- -4 1103515246.0) -> -1103515250.0) ((1730 . 5625) (- -4 1103515247.0) -> -1103515251.0) ((1731 . 5625) (- -3 1103515243.0) -> -1103515246.0) ((1732 . 5625) (- -3 1103515244.0) -> -1103515247.0) ((1733 . 5625) (- -3 1103515245.0) -> -1103515248.0) ((1734 . 5625) (- -3 1103515246.0) -> -1103515249.0) ((1735 . 5625) (- -3 1103515247.0) -> -1103515250.0) ((1736 . 5625) (- -2 1103515243.0) -> -1103515245.0) ((1737 . 5625) (- -2 1103515244.0) -> -1103515246.0) ((1738 . 5625) (- -2 1103515245.0) -> -1103515247.0) ((1739 . 5625) (- -2 1103515246.0) -> -1103515248.0) ((1740 . 5625) (- -2 1103515247.0) -> -1103515249.0) ((1741 . 5625) (- -1 1103515243.0) -> -1103515244.0) ((1742 . 5625) (- -1 1103515244.0) -> -1103515245.0) ((1743 . 5625) (- -1 1103515245.0) -> -1103515246.0) ((1744 . 5625) (- -1 1103515246.0) -> -1103515247.0) ((1745 . 5625) (- -1 1103515247.0) -> -1103515248.0) ((1746 . 5625) (- 0 1103515243.0) -> -1103515243.0) ((1747 . 5625) (- 0 1103515244.0) -> -1103515244.0) ((1748 . 5625) (- 0 1103515245.0) -> -1103515245.0) ((1749 . 5625) (- 0 1103515246.0) -> -1103515246.0) ((1750 . 5625) (- 0 1103515247.0) -> -1103515247.0) ((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 9.00719925474099e+15) -> -9.00719925474099e+15) ((1777 . 5625) (- -4 9.00719925474099e+15) -> -9.007199254741e+15) ((1778 . 5625) (- -4 9.00719925474099e+15) -> -9.007199254741e+15) ((1779 . 5625) (- -4 9.00719925474099e+15) -> -9.007199254741e+15) ((1780 . 5625) (- -4 9.00719925474099e+15) -> -9.007199254741e+15) ((1781 . 5625) (- -3 9.00719925474099e+15) -> -9.00719925474099e+15) ((1782 . 5625) (- -3 9.00719925474099e+15) -> -9.00719925474099e+15) ((1783 . 5625) (- -3 9.00719925474099e+15) -> -9.007199254741e+15) ((1784 . 5625) (- -3 9.00719925474099e+15) -> -9.007199254741e+15) ((1785 . 5625) (- -3 9.00719925474099e+15) -> -9.007199254741e+15) ((1786 . 5625) (- -2 9.00719925474099e+15) -> -9.00719925474099e+15) ((1787 . 5625) (- -2 9.00719925474099e+15) -> -9.00719925474099e+15) ((1788 . 5625) (- -2 9.00719925474099e+15) -> -9.00719925474099e+15) ((1789 . 5625) (- -2 9.00719925474099e+15) -> -9.00719925474099e+15) ((1790 . 5625) (- -2 9.00719925474099e+15) -> -9.007199254741e+15) ((1791 . 5625) (- -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1792 . 5625) (- -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1793 . 5625) (- -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1794 . 5625) (- -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1795 . 5625) (- -1 9.00719925474099e+15) -> -9.007199254741e+15) ((1796 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((1797 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((1798 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((1799 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((1800 . 5625) (- 0 9.00719925474099e+15) -> -9.00719925474099e+15) ((1801 . 5625) (- -4 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1802 . 5625) (- -4 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1803 . 5625) (- -4 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1804 . 5625) (- -4 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1805 . 5625) (- -4 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1806 . 5625) (- -3 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1807 . 5625) (- -3 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1808 . 5625) (- -3 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1809 . 5625) (- -3 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1810 . 5625) (- -3 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1811 . 5625) (- -2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1812 . 5625) (- -2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1813 . 5625) (- -2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1814 . 5625) (- -2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1815 . 5625) (- -2 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1816 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1817 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1818 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1819 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1820 . 5625) (- -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1821 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1822 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1823 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1824 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1825 . 5625) (- 0 -9.00719925474099e+15) -> 9.00719925474099e+15) ((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.0) -> -4294967298.0) ((1852 . 5625) (- -4 4294967295.0) -> -4294967299.0) ((1853 . 5625) (- -4 4294967296.0) -> -4294967300.0) ((1854 . 5625) (- -4 4294967297.0) -> -4294967301.0) ((1855 . 5625) (- -4 4294967298.0) -> -4294967302.0) ((1856 . 5625) (- -3 4294967294.0) -> -4294967297.0) ((1857 . 5625) (- -3 4294967295.0) -> -4294967298.0) ((1858 . 5625) (- -3 4294967296.0) -> -4294967299.0) ((1859 . 5625) (- -3 4294967297.0) -> -4294967300.0) ((1860 . 5625) (- -3 4294967298.0) -> -4294967301.0) ((1861 . 5625) (- -2 4294967294.0) -> -4294967296.0) ((1862 . 5625) (- -2 4294967295.0) -> -4294967297.0) ((1863 . 5625) (- -2 4294967296.0) -> -4294967298.0) ((1864 . 5625) (- -2 4294967297.0) -> -4294967299.0) ((1865 . 5625) (- -2 4294967298.0) -> -4294967300.0) ((1866 . 5625) (- -1 4294967294.0) -> -4294967295.0) ((1867 . 5625) (- -1 4294967295.0) -> -4294967296.0) ((1868 . 5625) (- -1 4294967296.0) -> -4294967297.0) ((1869 . 5625) (- -1 4294967297.0) -> -4294967298.0) ((1870 . 5625) (- -1 4294967298.0) -> -4294967299.0) ((1871 . 5625) (- 0 4294967294.0) -> -4294967294.0) ((1872 . 5625) (- 0 4294967295.0) -> -4294967295.0) ((1873 . 5625) (- 0 4294967296.0) -> -4294967296.0) ((1874 . 5625) (- 0 4294967297.0) -> -4294967297.0) ((1875 . 5625) (- 0 4294967298.0) -> -4294967298.0) ((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.0) ((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.0) ((1887 . 5625) (- 1073741823 -1) -> 1073741824.0) ((1888 . 5625) (- 1073741823 0) -> 1073741823) ((1889 . 5625) (- 1073741823 1) -> 1073741822) ((1890 . 5625) (- 1073741823 2) -> 1073741821) ((1891 . 5625) (- 1073741824.0 -2) -> 1073741826.0) ((1892 . 5625) (- 1073741824.0 -1) -> 1073741825.0) ((1893 . 5625) (- 1073741824.0 0) -> 1073741824.0) ((1894 . 5625) (- 1073741824.0 1) -> 1073741823.0) ((1895 . 5625) (- 1073741824.0 2) -> 1073741822.0) ((1896 . 5625) (- 1073741825.0 -2) -> 1073741827.0) ((1897 . 5625) (- 1073741825.0 -1) -> 1073741826.0) ((1898 . 5625) (- 1073741825.0 0) -> 1073741825.0) ((1899 . 5625) (- 1073741825.0 1) -> 1073741824.0) ((1900 . 5625) (- 1073741825.0 2) -> 1073741823.0) ((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.0) ((1912 . 5625) (- 1073741823 0) -> 1073741823) ((1913 . 5625) (- 1073741823 1) -> 1073741822) ((1914 . 5625) (- 1073741823 2) -> 1073741821) ((1915 . 5625) (- 1073741823 3) -> 1073741820) ((1916 . 5625) (- 1073741824.0 -1) -> 1073741825.0) ((1917 . 5625) (- 1073741824.0 0) -> 1073741824.0) ((1918 . 5625) (- 1073741824.0 1) -> 1073741823.0) ((1919 . 5625) (- 1073741824.0 2) -> 1073741822.0) ((1920 . 5625) (- 1073741824.0 3) -> 1073741821.0) ((1921 . 5625) (- 1073741825.0 -1) -> 1073741826.0) ((1922 . 5625) (- 1073741825.0 0) -> 1073741825.0) ((1923 . 5625) (- 1073741825.0 1) -> 1073741824.0) ((1924 . 5625) (- 1073741825.0 2) -> 1073741823.0) ((1925 . 5625) (- 1073741825.0 3) -> 1073741822.0) ((1926 . 5625) (- 1073741821 -3) -> 1073741824.0) ((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.0) ((1932 . 5625) (- 1073741822 -2) -> 1073741824.0) ((1933 . 5625) (- 1073741822 -1) -> 1073741823) ((1934 . 5625) (- 1073741822 0) -> 1073741822) ((1935 . 5625) (- 1073741822 1) -> 1073741821) ((1936 . 5625) (- 1073741823 -3) -> 1073741826.0) ((1937 . 5625) (- 1073741823 -2) -> 1073741825.0) ((1938 . 5625) (- 1073741823 -1) -> 1073741824.0) ((1939 . 5625) (- 1073741823 0) -> 1073741823) ((1940 . 5625) (- 1073741823 1) -> 1073741822) ((1941 . 5625) (- 1073741824.0 -3) -> 1073741827.0) ((1942 . 5625) (- 1073741824.0 -2) -> 1073741826.0) ((1943 . 5625) (- 1073741824.0 -1) -> 1073741825.0) ((1944 . 5625) (- 1073741824.0 0) -> 1073741824.0) ((1945 . 5625) (- 1073741824.0 1) -> 1073741823.0) ((1946 . 5625) (- 1073741825.0 -3) -> 1073741828.0) ((1947 . 5625) (- 1073741825.0 -2) -> 1073741827.0) ((1948 . 5625) (- 1073741825.0 -1) -> 1073741826.0) ((1949 . 5625) (- 1073741825.0 0) -> 1073741825.0) ((1950 . 5625) (- 1073741825.0 1) -> 1073741824.0) ((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 0) -> 1073741824.0) ((1967 . 5625) (- 1073741824.0 1) -> 1073741823.0) ((1968 . 5625) (- 1073741824.0 2) -> 1073741822.0) ((1969 . 5625) (- 1073741824.0 3) -> 1073741821.0) ((1970 . 5625) (- 1073741824.0 4) -> 1073741820.0) ((1971 . 5625) (- 1073741825.0 0) -> 1073741825.0) ((1972 . 5625) (- 1073741825.0 1) -> 1073741824.0) ((1973 . 5625) (- 1073741825.0 2) -> 1073741823.0) ((1974 . 5625) (- 1073741825.0 3) -> 1073741822.0) ((1975 . 5625) (- 1073741825.0 4) -> 1073741821.0) ((1976 . 5625) (- 1073741821 -4) -> 1073741825.0) ((1977 . 5625) (- 1073741821 -3) -> 1073741824.0) ((1978 . 5625) (- 1073741821 -2) -> 1073741823) ((1979 . 5625) (- 1073741821 -1) -> 1073741822) ((1980 . 5625) (- 1073741821 0) -> 1073741821) ((1981 . 5625) (- 1073741822 -4) -> 1073741826.0) ((1982 . 5625) (- 1073741822 -3) -> 1073741825.0) ((1983 . 5625) (- 1073741822 -2) -> 1073741824.0) ((1984 . 5625) (- 1073741822 -1) -> 1073741823) ((1985 . 5625) (- 1073741822 0) -> 1073741822) ((1986 . 5625) (- 1073741823 -4) -> 1073741827.0) ((1987 . 5625) (- 1073741823 -3) -> 1073741826.0) ((1988 . 5625) (- 1073741823 -2) -> 1073741825.0) ((1989 . 5625) (- 1073741823 -1) -> 1073741824.0) ((1990 . 5625) (- 1073741823 0) -> 1073741823) ((1991 . 5625) (- 1073741824.0 -4) -> 1073741828.0) ((1992 . 5625) (- 1073741824.0 -3) -> 1073741827.0) ((1993 . 5625) (- 1073741824.0 -2) -> 1073741826.0) ((1994 . 5625) (- 1073741824.0 -1) -> 1073741825.0) ((1995 . 5625) (- 1073741824.0 0) -> 1073741824.0) ((1996 . 5625) (- 1073741825.0 -4) -> 1073741829.0) ((1997 . 5625) (- 1073741825.0 -3) -> 1073741828.0) ((1998 . 5625) (- 1073741825.0 -2) -> 1073741827.0) ((1999 . 5625) (- 1073741825.0 -1) -> 1073741826.0) ((2000 . 5625) (- 1073741825.0 0) -> 1073741825.0) ((2001 . 5625) (- 1073741821 1073741821) -> 0) ((2002 . 5625) (- 1073741821 1073741822) -> -1) ((2003 . 5625) (- 1073741821 1073741823) -> -2) ((2004 . 5625) (- 1073741821 1073741824.0) -> -3.0) ((2005 . 5625) (- 1073741821 1073741825.0) -> -4.0) ((2006 . 5625) (- 1073741822 1073741821) -> 1) ((2007 . 5625) (- 1073741822 1073741822) -> 0) ((2008 . 5625) (- 1073741822 1073741823) -> -1) ((2009 . 5625) (- 1073741822 1073741824.0) -> -2.0) ((2010 . 5625) (- 1073741822 1073741825.0) -> -3.0) ((2011 . 5625) (- 1073741823 1073741821) -> 2) ((2012 . 5625) (- 1073741823 1073741822) -> 1) ((2013 . 5625) (- 1073741823 1073741823) -> 0) ((2014 . 5625) (- 1073741823 1073741824.0) -> -1.0) ((2015 . 5625) (- 1073741823 1073741825.0) -> -2.0) ((2016 . 5625) (- 1073741824.0 1073741821) -> 3.0) ((2017 . 5625) (- 1073741824.0 1073741822) -> 2.0) ((2018 . 5625) (- 1073741824.0 1073741823) -> 1.0) ((2019 . 5625) (- 1073741824.0 1073741824.0) -> 0.0) ((2020 . 5625) (- 1073741824.0 1073741825.0) -> -1.0) ((2021 . 5625) (- 1073741825.0 1073741821) -> 4.0) ((2022 . 5625) (- 1073741825.0 1073741822) -> 3.0) ((2023 . 5625) (- 1073741825.0 1073741823) -> 2.0) ((2024 . 5625) (- 1073741825.0 1073741824.0) -> 1.0) ((2025 . 5625) (- 1073741825.0 1073741825.0) -> 0.0) ((2026 . 5625) (- 1073741821 -1073741826.0) -> 2147483647.0) ((2027 . 5625) (- 1073741821 -1073741825.0) -> 2147483646.0) ((2028 . 5625) (- 1073741821 -1073741824) -> 2147483645.0) ((2029 . 5625) (- 1073741821 -1073741823) -> 2147483644.0) ((2030 . 5625) (- 1073741821 -1073741822) -> 2147483643.0) ((2031 . 5625) (- 1073741822 -1073741826.0) -> 2147483648.0) ((2032 . 5625) (- 1073741822 -1073741825.0) -> 2147483647.0) ((2033 . 5625) (- 1073741822 -1073741824) -> 2147483646.0) ((2034 . 5625) (- 1073741822 -1073741823) -> 2147483645.0) ((2035 . 5625) (- 1073741822 -1073741822) -> 2147483644.0) ((2036 . 5625) (- 1073741823 -1073741826.0) -> 2147483649.0) ((2037 . 5625) (- 1073741823 -1073741825.0) -> 2147483648.0) ((2038 . 5625) (- 1073741823 -1073741824) -> 2147483647.0) ((2039 . 5625) (- 1073741823 -1073741823) -> 2147483646.0) ((2040 . 5625) (- 1073741823 -1073741822) -> 2147483645.0) ((2041 . 5625) (- 1073741824.0 -1073741826.0) -> 2147483650.0) ((2042 . 5625) (- 1073741824.0 -1073741825.0) -> 2147483649.0) ((2043 . 5625) (- 1073741824.0 -1073741824) -> 2147483648.0) ((2044 . 5625) (- 1073741824.0 -1073741823) -> 2147483647.0) ((2045 . 5625) (- 1073741824.0 -1073741822) -> 2147483646.0) ((2046 . 5625) (- 1073741825.0 -1073741826.0) -> 2147483651.0) ((2047 . 5625) (- 1073741825.0 -1073741825.0) -> 2147483650.0) ((2048 . 5625) (- 1073741825.0 -1073741824) -> 2147483649.0) ((2049 . 5625) (- 1073741825.0 -1073741823) -> 2147483648.0) ((2050 . 5625) (- 1073741825.0 -1073741822) -> 2147483647.0) ((2051 . 5625) (- 1073741821 1073741822.0) -> -1.0) ((2052 . 5625) (- 1073741821 1073741823.0) -> -2.0) ((2053 . 5625) (- 1073741821 1073741824.0) -> -3.0) ((2054 . 5625) (- 1073741821 1073741825.0) -> -4.0) ((2055 . 5625) (- 1073741821 1073741826.0) -> -5.0) ((2056 . 5625) (- 1073741822 1073741822.0) -> 0.0) ((2057 . 5625) (- 1073741822 1073741823.0) -> -1.0) ((2058 . 5625) (- 1073741822 1073741824.0) -> -2.0) ((2059 . 5625) (- 1073741822 1073741825.0) -> -3.0) ((2060 . 5625) (- 1073741822 1073741826.0) -> -4.0) ((2061 . 5625) (- 1073741823 1073741822.0) -> 1.0) ((2062 . 5625) (- 1073741823 1073741823.0) -> 0.0) ((2063 . 5625) (- 1073741823 1073741824.0) -> -1.0) ((2064 . 5625) (- 1073741823 1073741825.0) -> -2.0) ((2065 . 5625) (- 1073741823 1073741826.0) -> -3.0) ((2066 . 5625) (- 1073741824.0 1073741822.0) -> 2.0) ((2067 . 5625) (- 1073741824.0 1073741823.0) -> 1.0) ((2068 . 5625) (- 1073741824.0 1073741824.0) -> 0.0) ((2069 . 5625) (- 1073741824.0 1073741825.0) -> -1.0) ((2070 . 5625) (- 1073741824.0 1073741826.0) -> -2.0) ((2071 . 5625) (- 1073741825.0 1073741822.0) -> 3.0) ((2072 . 5625) (- 1073741825.0 1073741823.0) -> 2.0) ((2073 . 5625) (- 1073741825.0 1073741824.0) -> 1.0) ((2074 . 5625) (- 1073741825.0 1073741825.0) -> 0.0) ((2075 . 5625) (- 1073741825.0 1073741826.0) -> -1.0) ((2076 . 5625) (- 1073741821 -1073741827.0) -> 2147483648.0) ((2077 . 5625) (- 1073741821 -1073741826.0) -> 2147483647.0) ((2078 . 5625) (- 1073741821 -1073741825.0) -> 2147483646.0) ((2079 . 5625) (- 1073741821 -1073741824.0) -> 2147483645.0) ((2080 . 5625) (- 1073741821 -1073741823.0) -> 2147483644.0) ((2081 . 5625) (- 1073741822 -1073741827.0) -> 2147483649.0) ((2082 . 5625) (- 1073741822 -1073741826.0) -> 2147483648.0) ((2083 . 5625) (- 1073741822 -1073741825.0) -> 2147483647.0) ((2084 . 5625) (- 1073741822 -1073741824.0) -> 2147483646.0) ((2085 . 5625) (- 1073741822 -1073741823.0) -> 2147483645.0) ((2086 . 5625) (- 1073741823 -1073741827.0) -> 2147483650.0) ((2087 . 5625) (- 1073741823 -1073741826.0) -> 2147483649.0) ((2088 . 5625) (- 1073741823 -1073741825.0) -> 2147483648.0) ((2089 . 5625) (- 1073741823 -1073741824.0) -> 2147483647.0) ((2090 . 5625) (- 1073741823 -1073741823.0) -> 2147483646.0) ((2091 . 5625) (- 1073741824.0 -1073741827.0) -> 2147483651.0) ((2092 . 5625) (- 1073741824.0 -1073741826.0) -> 2147483650.0) ((2093 . 5625) (- 1073741824.0 -1073741825.0) -> 2147483649.0) ((2094 . 5625) (- 1073741824.0 -1073741824.0) -> 2147483648.0) ((2095 . 5625) (- 1073741824.0 -1073741823.0) -> 2147483647.0) ((2096 . 5625) (- 1073741825.0 -1073741827.0) -> 2147483652.0) ((2097 . 5625) (- 1073741825.0 -1073741826.0) -> 2147483651.0) ((2098 . 5625) (- 1073741825.0 -1073741825.0) -> 2147483650.0) ((2099 . 5625) (- 1073741825.0 -1073741824.0) -> 2147483649.0) ((2100 . 5625) (- 1073741825.0 -1073741823.0) -> 2147483648.0) ((2101 . 5625) (- 1073741821 1103515243.0) -> -29773422.0) ((2102 . 5625) (- 1073741821 1103515244.0) -> -29773423.0) ((2103 . 5625) (- 1073741821 1103515245.0) -> -29773424.0) ((2104 . 5625) (- 1073741821 1103515246.0) -> -29773425.0) ((2105 . 5625) (- 1073741821 1103515247.0) -> -29773426.0) ((2106 . 5625) (- 1073741822 1103515243.0) -> -29773421.0) ((2107 . 5625) (- 1073741822 1103515244.0) -> -29773422.0) ((2108 . 5625) (- 1073741822 1103515245.0) -> -29773423.0) ((2109 . 5625) (- 1073741822 1103515246.0) -> -29773424.0) ((2110 . 5625) (- 1073741822 1103515247.0) -> -29773425.0) ((2111 . 5625) (- 1073741823 1103515243.0) -> -29773420.0) ((2112 . 5625) (- 1073741823 1103515244.0) -> -29773421.0) ((2113 . 5625) (- 1073741823 1103515245.0) -> -29773422.0) ((2114 . 5625) (- 1073741823 1103515246.0) -> -29773423.0) ((2115 . 5625) (- 1073741823 1103515247.0) -> -29773424.0) ((2116 . 5625) (- 1073741824.0 1103515243.0) -> -29773419.0) ((2117 . 5625) (- 1073741824.0 1103515244.0) -> -29773420.0) ((2118 . 5625) (- 1073741824.0 1103515245.0) -> -29773421.0) ((2119 . 5625) (- 1073741824.0 1103515246.0) -> -29773422.0) ((2120 . 5625) (- 1073741824.0 1103515247.0) -> -29773423.0) ((2121 . 5625) (- 1073741825.0 1103515243.0) -> -29773418.0) ((2122 . 5625) (- 1073741825.0 1103515244.0) -> -29773419.0) ((2123 . 5625) (- 1073741825.0 1103515245.0) -> -29773420.0) ((2124 . 5625) (- 1073741825.0 1103515246.0) -> -29773421.0) ((2125 . 5625) (- 1073741825.0 1103515247.0) -> -29773422.0) ((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.0 631629063) -> 442112761.0) ((2142 . 5625) (- 1073741824.0 631629064) -> 442112760.0) ((2143 . 5625) (- 1073741824.0 631629065) -> 442112759.0) ((2144 . 5625) (- 1073741824.0 631629066) -> 442112758.0) ((2145 . 5625) (- 1073741824.0 631629067) -> 442112757.0) ((2146 . 5625) (- 1073741825.0 631629063) -> 442112762.0) ((2147 . 5625) (- 1073741825.0 631629064) -> 442112761.0) ((2148 . 5625) (- 1073741825.0 631629065) -> 442112760.0) ((2149 . 5625) (- 1073741825.0 631629066) -> 442112759.0) ((2150 . 5625) (- 1073741825.0 631629067) -> 442112758.0) ((2151 . 5625) (- 1073741821 9.00719925474099e+15) -> -9.00719818099917e+15) ((2152 . 5625) (- 1073741821 9.00719925474099e+15) -> -9.00719818099917e+15) ((2153 . 5625) (- 1073741821 9.00719925474099e+15) -> -9.00719818099917e+15) ((2154 . 5625) (- 1073741821 9.00719925474099e+15) -> -9.00719818099917e+15) ((2155 . 5625) (- 1073741821 9.00719925474099e+15) -> -9.00719818099917e+15) ((2156 . 5625) (- 1073741822 9.00719925474099e+15) -> -9.00719818099917e+15) ((2157 . 5625) (- 1073741822 9.00719925474099e+15) -> -9.00719818099917e+15) ((2158 . 5625) (- 1073741822 9.00719925474099e+15) -> -9.00719818099917e+15) ((2159 . 5625) (- 1073741822 9.00719925474099e+15) -> -9.00719818099917e+15) ((2160 . 5625) (- 1073741822 9.00719925474099e+15) -> -9.00719818099917e+15) ((2161 . 5625) (- 1073741823 9.00719925474099e+15) -> -9.00719818099917e+15) ((2162 . 5625) (- 1073741823 9.00719925474099e+15) -> -9.00719818099917e+15) ((2163 . 5625) (- 1073741823 9.00719925474099e+15) -> -9.00719818099917e+15) ((2164 . 5625) (- 1073741823 9.00719925474099e+15) -> -9.00719818099917e+15) ((2165 . 5625) (- 1073741823 9.00719925474099e+15) -> -9.00719818099917e+15) ((2166 . 5625) (- 1073741824.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2167 . 5625) (- 1073741824.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2168 . 5625) (- 1073741824.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2169 . 5625) (- 1073741824.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2170 . 5625) (- 1073741824.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2171 . 5625) (- 1073741825.0 9.00719925474099e+15) -> -9.00719818099916e+15) ((2172 . 5625) (- 1073741825.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2173 . 5625) (- 1073741825.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2174 . 5625) (- 1073741825.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2175 . 5625) (- 1073741825.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2176 . 5625) (- 1073741821 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2177 . 5625) (- 1073741821 -9.00719925474099e+15) -> 9.00720032848281e+15) ((2178 . 5625) (- 1073741821 -9.00719925474099e+15) -> 9.00720032848281e+15) ((2179 . 5625) (- 1073741821 -9.00719925474099e+15) -> 9.00720032848281e+15) ((2180 . 5625) (- 1073741821 -9.00719925474099e+15) -> 9.00720032848281e+15) ((2181 . 5625) (- 1073741822 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2182 . 5625) (- 1073741822 -9.00719925474099e+15) -> 9.00720032848281e+15) ((2183 . 5625) (- 1073741822 -9.00719925474099e+15) -> 9.00720032848281e+15) ((2184 . 5625) (- 1073741822 -9.00719925474099e+15) -> 9.00720032848281e+15) ((2185 . 5625) (- 1073741822 -9.00719925474099e+15) -> 9.00720032848281e+15) ((2186 . 5625) (- 1073741823 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2187 . 5625) (- 1073741823 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2188 . 5625) (- 1073741823 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2189 . 5625) (- 1073741823 -9.00719925474099e+15) -> 9.00720032848281e+15) ((2190 . 5625) (- 1073741823 -9.00719925474099e+15) -> 9.00720032848281e+15) ((2191 . 5625) (- 1073741824.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2192 . 5625) (- 1073741824.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2193 . 5625) (- 1073741824.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2194 . 5625) (- 1073741824.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2195 . 5625) (- 1073741824.0 -9.00719925474099e+15) -> 9.00720032848281e+15) ((2196 . 5625) (- 1073741825.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2197 . 5625) (- 1073741825.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2198 . 5625) (- 1073741825.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2199 . 5625) (- 1073741825.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2200 . 5625) (- 1073741825.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((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.0 12343) -> 1073729481.0) ((2217 . 5625) (- 1073741824.0 12344) -> 1073729480.0) ((2218 . 5625) (- 1073741824.0 12345) -> 1073729479.0) ((2219 . 5625) (- 1073741824.0 12346) -> 1073729478.0) ((2220 . 5625) (- 1073741824.0 12347) -> 1073729477.0) ((2221 . 5625) (- 1073741825.0 12343) -> 1073729482.0) ((2222 . 5625) (- 1073741825.0 12344) -> 1073729481.0) ((2223 . 5625) (- 1073741825.0 12345) -> 1073729480.0) ((2224 . 5625) (- 1073741825.0 12346) -> 1073729479.0) ((2225 . 5625) (- 1073741825.0 12347) -> 1073729478.0) ((2226 . 5625) (- 1073741821 4294967294.0) -> -3221225473.0) ((2227 . 5625) (- 1073741821 4294967295.0) -> -3221225474.0) ((2228 . 5625) (- 1073741821 4294967296.0) -> -3221225475.0) ((2229 . 5625) (- 1073741821 4294967297.0) -> -3221225476.0) ((2230 . 5625) (- 1073741821 4294967298.0) -> -3221225477.0) ((2231 . 5625) (- 1073741822 4294967294.0) -> -3221225472.0) ((2232 . 5625) (- 1073741822 4294967295.0) -> -3221225473.0) ((2233 . 5625) (- 1073741822 4294967296.0) -> -3221225474.0) ((2234 . 5625) (- 1073741822 4294967297.0) -> -3221225475.0) ((2235 . 5625) (- 1073741822 4294967298.0) -> -3221225476.0) ((2236 . 5625) (- 1073741823 4294967294.0) -> -3221225471.0) ((2237 . 5625) (- 1073741823 4294967295.0) -> -3221225472.0) ((2238 . 5625) (- 1073741823 4294967296.0) -> -3221225473.0) ((2239 . 5625) (- 1073741823 4294967297.0) -> -3221225474.0) ((2240 . 5625) (- 1073741823 4294967298.0) -> -3221225475.0) ((2241 . 5625) (- 1073741824.0 4294967294.0) -> -3221225470.0) ((2242 . 5625) (- 1073741824.0 4294967295.0) -> -3221225471.0) ((2243 . 5625) (- 1073741824.0 4294967296.0) -> -3221225472.0) ((2244 . 5625) (- 1073741824.0 4294967297.0) -> -3221225473.0) ((2245 . 5625) (- 1073741824.0 4294967298.0) -> -3221225474.0) ((2246 . 5625) (- 1073741825.0 4294967294.0) -> -3221225469.0) ((2247 . 5625) (- 1073741825.0 4294967295.0) -> -3221225470.0) ((2248 . 5625) (- 1073741825.0 4294967296.0) -> -3221225471.0) ((2249 . 5625) (- 1073741825.0 4294967297.0) -> -3221225472.0) ((2250 . 5625) (- 1073741825.0 4294967298.0) -> -3221225473.0) ((2251 . 5625) (- -1073741826.0 -2) -> -1073741824.0) ((2252 . 5625) (- -1073741826.0 -1) -> -1073741825.0) ((2253 . 5625) (- -1073741826.0 0) -> -1073741826.0) ((2254 . 5625) (- -1073741826.0 1) -> -1073741827.0) ((2255 . 5625) (- -1073741826.0 2) -> -1073741828.0) ((2256 . 5625) (- -1073741825.0 -2) -> -1073741823.0) ((2257 . 5625) (- -1073741825.0 -1) -> -1073741824.0) ((2258 . 5625) (- -1073741825.0 0) -> -1073741825.0) ((2259 . 5625) (- -1073741825.0 1) -> -1073741826.0) ((2260 . 5625) (- -1073741825.0 2) -> -1073741827.0) ((2261 . 5625) (- -1073741824 -2) -> -1073741822) ((2262 . 5625) (- -1073741824 -1) -> -1073741823) ((2263 . 5625) (- -1073741824 0) -> -1073741824) ((2264 . 5625) (- -1073741824 1) -> -1073741825.0) ((2265 . 5625) (- -1073741824 2) -> -1073741826.0) ((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.0) ((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.0 -1) -> -1073741825.0) ((2277 . 5625) (- -1073741826.0 0) -> -1073741826.0) ((2278 . 5625) (- -1073741826.0 1) -> -1073741827.0) ((2279 . 5625) (- -1073741826.0 2) -> -1073741828.0) ((2280 . 5625) (- -1073741826.0 3) -> -1073741829.0) ((2281 . 5625) (- -1073741825.0 -1) -> -1073741824.0) ((2282 . 5625) (- -1073741825.0 0) -> -1073741825.0) ((2283 . 5625) (- -1073741825.0 1) -> -1073741826.0) ((2284 . 5625) (- -1073741825.0 2) -> -1073741827.0) ((2285 . 5625) (- -1073741825.0 3) -> -1073741828.0) ((2286 . 5625) (- -1073741824 -1) -> -1073741823) ((2287 . 5625) (- -1073741824 0) -> -1073741824) ((2288 . 5625) (- -1073741824 1) -> -1073741825.0) ((2289 . 5625) (- -1073741824 2) -> -1073741826.0) ((2290 . 5625) (- -1073741824 3) -> -1073741827.0) ((2291 . 5625) (- -1073741823 -1) -> -1073741822) ((2292 . 5625) (- -1073741823 0) -> -1073741823) ((2293 . 5625) (- -1073741823 1) -> -1073741824) ((2294 . 5625) (- -1073741823 2) -> -1073741825.0) ((2295 . 5625) (- -1073741823 3) -> -1073741826.0) ((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.0) ((2301 . 5625) (- -1073741826.0 -3) -> -1073741823.0) ((2302 . 5625) (- -1073741826.0 -2) -> -1073741824.0) ((2303 . 5625) (- -1073741826.0 -1) -> -1073741825.0) ((2304 . 5625) (- -1073741826.0 0) -> -1073741826.0) ((2305 . 5625) (- -1073741826.0 1) -> -1073741827.0) ((2306 . 5625) (- -1073741825.0 -3) -> -1073741822.0) ((2307 . 5625) (- -1073741825.0 -2) -> -1073741823.0) ((2308 . 5625) (- -1073741825.0 -1) -> -1073741824.0) ((2309 . 5625) (- -1073741825.0 0) -> -1073741825.0) ((2310 . 5625) (- -1073741825.0 1) -> -1073741826.0) ((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.0) ((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 0) -> -1073741826.0) ((2327 . 5625) (- -1073741826.0 1) -> -1073741827.0) ((2328 . 5625) (- -1073741826.0 2) -> -1073741828.0) ((2329 . 5625) (- -1073741826.0 3) -> -1073741829.0) ((2330 . 5625) (- -1073741826.0 4) -> -1073741830.0) ((2331 . 5625) (- -1073741825.0 0) -> -1073741825.0) ((2332 . 5625) (- -1073741825.0 1) -> -1073741826.0) ((2333 . 5625) (- -1073741825.0 2) -> -1073741827.0) ((2334 . 5625) (- -1073741825.0 3) -> -1073741828.0) ((2335 . 5625) (- -1073741825.0 4) -> -1073741829.0) ((2336 . 5625) (- -1073741824 0) -> -1073741824) ((2337 . 5625) (- -1073741824 1) -> -1073741825.0) ((2338 . 5625) (- -1073741824 2) -> -1073741826.0) ((2339 . 5625) (- -1073741824 3) -> -1073741827.0) ((2340 . 5625) (- -1073741824 4) -> -1073741828.0) ((2341 . 5625) (- -1073741823 0) -> -1073741823) ((2342 . 5625) (- -1073741823 1) -> -1073741824) ((2343 . 5625) (- -1073741823 2) -> -1073741825.0) ((2344 . 5625) (- -1073741823 3) -> -1073741826.0) ((2345 . 5625) (- -1073741823 4) -> -1073741827.0) ((2346 . 5625) (- -1073741822 0) -> -1073741822) ((2347 . 5625) (- -1073741822 1) -> -1073741823) ((2348 . 5625) (- -1073741822 2) -> -1073741824) ((2349 . 5625) (- -1073741822 3) -> -1073741825.0) ((2350 . 5625) (- -1073741822 4) -> -1073741826.0) ((2351 . 5625) (- -1073741826.0 -4) -> -1073741822.0) ((2352 . 5625) (- -1073741826.0 -3) -> -1073741823.0) ((2353 . 5625) (- -1073741826.0 -2) -> -1073741824.0) ((2354 . 5625) (- -1073741826.0 -1) -> -1073741825.0) ((2355 . 5625) (- -1073741826.0 0) -> -1073741826.0) ((2356 . 5625) (- -1073741825.0 -4) -> -1073741821.0) ((2357 . 5625) (- -1073741825.0 -3) -> -1073741822.0) ((2358 . 5625) (- -1073741825.0 -2) -> -1073741823.0) ((2359 . 5625) (- -1073741825.0 -1) -> -1073741824.0) ((2360 . 5625) (- -1073741825.0 0) -> -1073741825.0) ((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.0 1073741821) -> -2147483647.0) ((2377 . 5625) (- -1073741826.0 1073741822) -> -2147483648.0) ((2378 . 5625) (- -1073741826.0 1073741823) -> -2147483649.0) ((2379 . 5625) (- -1073741826.0 1073741824.0) -> -2147483650.0) ((2380 . 5625) (- -1073741826.0 1073741825.0) -> -2147483651.0) ((2381 . 5625) (- -1073741825.0 1073741821) -> -2147483646.0) ((2382 . 5625) (- -1073741825.0 1073741822) -> -2147483647.0) ((2383 . 5625) (- -1073741825.0 1073741823) -> -2147483648.0) ((2384 . 5625) (- -1073741825.0 1073741824.0) -> -2147483649.0) ((2385 . 5625) (- -1073741825.0 1073741825.0) -> -2147483650.0) ((2386 . 5625) (- -1073741824 1073741821) -> -2147483645.0) ((2387 . 5625) (- -1073741824 1073741822) -> -2147483646.0) ((2388 . 5625) (- -1073741824 1073741823) -> -2147483647.0) ((2389 . 5625) (- -1073741824 1073741824.0) -> -2147483648.0) ((2390 . 5625) (- -1073741824 1073741825.0) -> -2147483649.0) ((2391 . 5625) (- -1073741823 1073741821) -> -2147483644.0) ((2392 . 5625) (- -1073741823 1073741822) -> -2147483645.0) ((2393 . 5625) (- -1073741823 1073741823) -> -2147483646.0) ((2394 . 5625) (- -1073741823 1073741824.0) -> -2147483647.0) ((2395 . 5625) (- -1073741823 1073741825.0) -> -2147483648.0) ((2396 . 5625) (- -1073741822 1073741821) -> -2147483643.0) ((2397 . 5625) (- -1073741822 1073741822) -> -2147483644.0) ((2398 . 5625) (- -1073741822 1073741823) -> -2147483645.0) ((2399 . 5625) (- -1073741822 1073741824.0) -> -2147483646.0) ((2400 . 5625) (- -1073741822 1073741825.0) -> -2147483647.0) ((2401 . 5625) (- -1073741826.0 -1073741826.0) -> 0.0) ((2402 . 5625) (- -1073741826.0 -1073741825.0) -> -1.0) ((2403 . 5625) (- -1073741826.0 -1073741824) -> -2.0) ((2404 . 5625) (- -1073741826.0 -1073741823) -> -3.0) ((2405 . 5625) (- -1073741826.0 -1073741822) -> -4.0) ((2406 . 5625) (- -1073741825.0 -1073741826.0) -> 1.0) ((2407 . 5625) (- -1073741825.0 -1073741825.0) -> 0.0) ((2408 . 5625) (- -1073741825.0 -1073741824) -> -1.0) ((2409 . 5625) (- -1073741825.0 -1073741823) -> -2.0) ((2410 . 5625) (- -1073741825.0 -1073741822) -> -3.0) ((2411 . 5625) (- -1073741824 -1073741826.0) -> 2.0) ((2412 . 5625) (- -1073741824 -1073741825.0) -> 1.0) ((2413 . 5625) (- -1073741824 -1073741824) -> 0) ((2414 . 5625) (- -1073741824 -1073741823) -> -1) ((2415 . 5625) (- -1073741824 -1073741822) -> -2) ((2416 . 5625) (- -1073741823 -1073741826.0) -> 3.0) ((2417 . 5625) (- -1073741823 -1073741825.0) -> 2.0) ((2418 . 5625) (- -1073741823 -1073741824) -> 1) ((2419 . 5625) (- -1073741823 -1073741823) -> 0) ((2420 . 5625) (- -1073741823 -1073741822) -> -1) ((2421 . 5625) (- -1073741822 -1073741826.0) -> 4.0) ((2422 . 5625) (- -1073741822 -1073741825.0) -> 3.0) ((2423 . 5625) (- -1073741822 -1073741824) -> 2) ((2424 . 5625) (- -1073741822 -1073741823) -> 1) ((2425 . 5625) (- -1073741822 -1073741822) -> 0) ((2426 . 5625) (- -1073741826.0 1073741822.0) -> -2147483648.0) ((2427 . 5625) (- -1073741826.0 1073741823.0) -> -2147483649.0) ((2428 . 5625) (- -1073741826.0 1073741824.0) -> -2147483650.0) ((2429 . 5625) (- -1073741826.0 1073741825.0) -> -2147483651.0) ((2430 . 5625) (- -1073741826.0 1073741826.0) -> -2147483652.0) ((2431 . 5625) (- -1073741825.0 1073741822.0) -> -2147483647.0) ((2432 . 5625) (- -1073741825.0 1073741823.0) -> -2147483648.0) ((2433 . 5625) (- -1073741825.0 1073741824.0) -> -2147483649.0) ((2434 . 5625) (- -1073741825.0 1073741825.0) -> -2147483650.0) ((2435 . 5625) (- -1073741825.0 1073741826.0) -> -2147483651.0) ((2436 . 5625) (- -1073741824 1073741822.0) -> -2147483646.0) ((2437 . 5625) (- -1073741824 1073741823.0) -> -2147483647.0) ((2438 . 5625) (- -1073741824 1073741824.0) -> -2147483648.0) ((2439 . 5625) (- -1073741824 1073741825.0) -> -2147483649.0) ((2440 . 5625) (- -1073741824 1073741826.0) -> -2147483650.0) ((2441 . 5625) (- -1073741823 1073741822.0) -> -2147483645.0) ((2442 . 5625) (- -1073741823 1073741823.0) -> -2147483646.0) ((2443 . 5625) (- -1073741823 1073741824.0) -> -2147483647.0) ((2444 . 5625) (- -1073741823 1073741825.0) -> -2147483648.0) ((2445 . 5625) (- -1073741823 1073741826.0) -> -2147483649.0) ((2446 . 5625) (- -1073741822 1073741822.0) -> -2147483644.0) ((2447 . 5625) (- -1073741822 1073741823.0) -> -2147483645.0) ((2448 . 5625) (- -1073741822 1073741824.0) -> -2147483646.0) ((2449 . 5625) (- -1073741822 1073741825.0) -> -2147483647.0) ((2450 . 5625) (- -1073741822 1073741826.0) -> -2147483648.0) ((2451 . 5625) (- -1073741826.0 -1073741827.0) -> 1.0) ((2452 . 5625) (- -1073741826.0 -1073741826.0) -> 0.0) ((2453 . 5625) (- -1073741826.0 -1073741825.0) -> -1.0) ((2454 . 5625) (- -1073741826.0 -1073741824.0) -> -2.0) ((2455 . 5625) (- -1073741826.0 -1073741823.0) -> -3.0) ((2456 . 5625) (- -1073741825.0 -1073741827.0) -> 2.0) ((2457 . 5625) (- -1073741825.0 -1073741826.0) -> 1.0) ((2458 . 5625) (- -1073741825.0 -1073741825.0) -> 0.0) ((2459 . 5625) (- -1073741825.0 -1073741824.0) -> -1.0) ((2460 . 5625) (- -1073741825.0 -1073741823.0) -> -2.0) ((2461 . 5625) (- -1073741824 -1073741827.0) -> 3.0) ((2462 . 5625) (- -1073741824 -1073741826.0) -> 2.0) ((2463 . 5625) (- -1073741824 -1073741825.0) -> 1.0) ((2464 . 5625) (- -1073741824 -1073741824.0) -> 0.0) ((2465 . 5625) (- -1073741824 -1073741823.0) -> -1.0) ((2466 . 5625) (- -1073741823 -1073741827.0) -> 4.0) ((2467 . 5625) (- -1073741823 -1073741826.0) -> 3.0) ((2468 . 5625) (- -1073741823 -1073741825.0) -> 2.0) ((2469 . 5625) (- -1073741823 -1073741824.0) -> 1.0) ((2470 . 5625) (- -1073741823 -1073741823.0) -> 0.0) ((2471 . 5625) (- -1073741822 -1073741827.0) -> 5.0) ((2472 . 5625) (- -1073741822 -1073741826.0) -> 4.0) ((2473 . 5625) (- -1073741822 -1073741825.0) -> 3.0) ((2474 . 5625) (- -1073741822 -1073741824.0) -> 2.0) ((2475 . 5625) (- -1073741822 -1073741823.0) -> 1.0) ((2476 . 5625) (- -1073741826.0 1103515243.0) -> -2177257069.0) ((2477 . 5625) (- -1073741826.0 1103515244.0) -> -2177257070.0) ((2478 . 5625) (- -1073741826.0 1103515245.0) -> -2177257071.0) ((2479 . 5625) (- -1073741826.0 1103515246.0) -> -2177257072.0) ((2480 . 5625) (- -1073741826.0 1103515247.0) -> -2177257073.0) ((2481 . 5625) (- -1073741825.0 1103515243.0) -> -2177257068.0) ((2482 . 5625) (- -1073741825.0 1103515244.0) -> -2177257069.0) ((2483 . 5625) (- -1073741825.0 1103515245.0) -> -2177257070.0) ((2484 . 5625) (- -1073741825.0 1103515246.0) -> -2177257071.0) ((2485 . 5625) (- -1073741825.0 1103515247.0) -> -2177257072.0) ((2486 . 5625) (- -1073741824 1103515243.0) -> -2177257067.0) ((2487 . 5625) (- -1073741824 1103515244.0) -> -2177257068.0) ((2488 . 5625) (- -1073741824 1103515245.0) -> -2177257069.0) ((2489 . 5625) (- -1073741824 1103515246.0) -> -2177257070.0) ((2490 . 5625) (- -1073741824 1103515247.0) -> -2177257071.0) ((2491 . 5625) (- -1073741823 1103515243.0) -> -2177257066.0) ((2492 . 5625) (- -1073741823 1103515244.0) -> -2177257067.0) ((2493 . 5625) (- -1073741823 1103515245.0) -> -2177257068.0) ((2494 . 5625) (- -1073741823 1103515246.0) -> -2177257069.0) ((2495 . 5625) (- -1073741823 1103515247.0) -> -2177257070.0) ((2496 . 5625) (- -1073741822 1103515243.0) -> -2177257065.0) ((2497 . 5625) (- -1073741822 1103515244.0) -> -2177257066.0) ((2498 . 5625) (- -1073741822 1103515245.0) -> -2177257067.0) ((2499 . 5625) (- -1073741822 1103515246.0) -> -2177257068.0) ((2500 . 5625) (- -1073741822 1103515247.0) -> -2177257069.0) ((2501 . 5625) (- -1073741826.0 631629063) -> -1705370889.0) ((2502 . 5625) (- -1073741826.0 631629064) -> -1705370890.0) ((2503 . 5625) (- -1073741826.0 631629065) -> -1705370891.0) ((2504 . 5625) (- -1073741826.0 631629066) -> -1705370892.0) ((2505 . 5625) (- -1073741826.0 631629067) -> -1705370893.0) ((2506 . 5625) (- -1073741825.0 631629063) -> -1705370888.0) ((2507 . 5625) (- -1073741825.0 631629064) -> -1705370889.0) ((2508 . 5625) (- -1073741825.0 631629065) -> -1705370890.0) ((2509 . 5625) (- -1073741825.0 631629066) -> -1705370891.0) ((2510 . 5625) (- -1073741825.0 631629067) -> -1705370892.0) ((2511 . 5625) (- -1073741824 631629063) -> -1705370887.0) ((2512 . 5625) (- -1073741824 631629064) -> -1705370888.0) ((2513 . 5625) (- -1073741824 631629065) -> -1705370889.0) ((2514 . 5625) (- -1073741824 631629066) -> -1705370890.0) ((2515 . 5625) (- -1073741824 631629067) -> -1705370891.0) ((2516 . 5625) (- -1073741823 631629063) -> -1705370886.0) ((2517 . 5625) (- -1073741823 631629064) -> -1705370887.0) ((2518 . 5625) (- -1073741823 631629065) -> -1705370888.0) ((2519 . 5625) (- -1073741823 631629066) -> -1705370889.0) ((2520 . 5625) (- -1073741823 631629067) -> -1705370890.0) ((2521 . 5625) (- -1073741822 631629063) -> -1705370885.0) ((2522 . 5625) (- -1073741822 631629064) -> -1705370886.0) ((2523 . 5625) (- -1073741822 631629065) -> -1705370887.0) ((2524 . 5625) (- -1073741822 631629066) -> -1705370888.0) ((2525 . 5625) (- -1073741822 631629067) -> -1705370889.0) ((2526 . 5625) (- -1073741826.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((2527 . 5625) (- -1073741826.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((2528 . 5625) (- -1073741826.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((2529 . 5625) (- -1073741826.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((2530 . 5625) (- -1073741826.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((2531 . 5625) (- -1073741825.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((2532 . 5625) (- -1073741825.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((2533 . 5625) (- -1073741825.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((2534 . 5625) (- -1073741825.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((2535 . 5625) (- -1073741825.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((2536 . 5625) (- -1073741824 9.00719925474099e+15) -> -9.00720032848281e+15) ((2537 . 5625) (- -1073741824 9.00719925474099e+15) -> -9.00720032848282e+15) ((2538 . 5625) (- -1073741824 9.00719925474099e+15) -> -9.00720032848282e+15) ((2539 . 5625) (- -1073741824 9.00719925474099e+15) -> -9.00720032848282e+15) ((2540 . 5625) (- -1073741824 9.00719925474099e+15) -> -9.00720032848282e+15) ((2541 . 5625) (- -1073741823 9.00719925474099e+15) -> -9.00720032848281e+15) ((2542 . 5625) (- -1073741823 9.00719925474099e+15) -> -9.00720032848281e+15) ((2543 . 5625) (- -1073741823 9.00719925474099e+15) -> -9.00720032848282e+15) ((2544 . 5625) (- -1073741823 9.00719925474099e+15) -> -9.00720032848282e+15) ((2545 . 5625) (- -1073741823 9.00719925474099e+15) -> -9.00720032848282e+15) ((2546 . 5625) (- -1073741822 9.00719925474099e+15) -> -9.00720032848281e+15) ((2547 . 5625) (- -1073741822 9.00719925474099e+15) -> -9.00720032848281e+15) ((2548 . 5625) (- -1073741822 9.00719925474099e+15) -> -9.00720032848281e+15) ((2549 . 5625) (- -1073741822 9.00719925474099e+15) -> -9.00720032848281e+15) ((2550 . 5625) (- -1073741822 9.00719925474099e+15) -> -9.00720032848282e+15) ((2551 . 5625) (- -1073741826.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2552 . 5625) (- -1073741826.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2553 . 5625) (- -1073741826.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2554 . 5625) (- -1073741826.0 -9.00719925474099e+15) -> 9.00719818099916e+15) ((2555 . 5625) (- -1073741826.0 -9.00719925474099e+15) -> 9.00719818099916e+15) ((2556 . 5625) (- -1073741825.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2557 . 5625) (- -1073741825.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2558 . 5625) (- -1073741825.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2559 . 5625) (- -1073741825.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2560 . 5625) (- -1073741825.0 -9.00719925474099e+15) -> 9.00719818099916e+15) ((2561 . 5625) (- -1073741824 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2562 . 5625) (- -1073741824 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2563 . 5625) (- -1073741824 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2564 . 5625) (- -1073741824 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2565 . 5625) (- -1073741824 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2566 . 5625) (- -1073741823 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2567 . 5625) (- -1073741823 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2568 . 5625) (- -1073741823 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2569 . 5625) (- -1073741823 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2570 . 5625) (- -1073741823 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2571 . 5625) (- -1073741822 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2572 . 5625) (- -1073741822 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2573 . 5625) (- -1073741822 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2574 . 5625) (- -1073741822 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2575 . 5625) (- -1073741822 -9.00719925474099e+15) -> 9.00719818099917e+15) ((2576 . 5625) (- -1073741826.0 12343) -> -1073754169.0) ((2577 . 5625) (- -1073741826.0 12344) -> -1073754170.0) ((2578 . 5625) (- -1073741826.0 12345) -> -1073754171.0) ((2579 . 5625) (- -1073741826.0 12346) -> -1073754172.0) ((2580 . 5625) (- -1073741826.0 12347) -> -1073754173.0) ((2581 . 5625) (- -1073741825.0 12343) -> -1073754168.0) ((2582 . 5625) (- -1073741825.0 12344) -> -1073754169.0) ((2583 . 5625) (- -1073741825.0 12345) -> -1073754170.0) ((2584 . 5625) (- -1073741825.0 12346) -> -1073754171.0) ((2585 . 5625) (- -1073741825.0 12347) -> -1073754172.0) ((2586 . 5625) (- -1073741824 12343) -> -1073754167.0) ((2587 . 5625) (- -1073741824 12344) -> -1073754168.0) ((2588 . 5625) (- -1073741824 12345) -> -1073754169.0) ((2589 . 5625) (- -1073741824 12346) -> -1073754170.0) ((2590 . 5625) (- -1073741824 12347) -> -1073754171.0) ((2591 . 5625) (- -1073741823 12343) -> -1073754166.0) ((2592 . 5625) (- -1073741823 12344) -> -1073754167.0) ((2593 . 5625) (- -1073741823 12345) -> -1073754168.0) ((2594 . 5625) (- -1073741823 12346) -> -1073754169.0) ((2595 . 5625) (- -1073741823 12347) -> -1073754170.0) ((2596 . 5625) (- -1073741822 12343) -> -1073754165.0) ((2597 . 5625) (- -1073741822 12344) -> -1073754166.0) ((2598 . 5625) (- -1073741822 12345) -> -1073754167.0) ((2599 . 5625) (- -1073741822 12346) -> -1073754168.0) ((2600 . 5625) (- -1073741822 12347) -> -1073754169.0) ((2601 . 5625) (- -1073741826.0 4294967294.0) -> -5368709120.0) ((2602 . 5625) (- -1073741826.0 4294967295.0) -> -5368709121.0) ((2603 . 5625) (- -1073741826.0 4294967296.0) -> -5368709122.0) ((2604 . 5625) (- -1073741826.0 4294967297.0) -> -5368709123.0) ((2605 . 5625) (- -1073741826.0 4294967298.0) -> -5368709124.0) ((2606 . 5625) (- -1073741825.0 4294967294.0) -> -5368709119.0) ((2607 . 5625) (- -1073741825.0 4294967295.0) -> -5368709120.0) ((2608 . 5625) (- -1073741825.0 4294967296.0) -> -5368709121.0) ((2609 . 5625) (- -1073741825.0 4294967297.0) -> -5368709122.0) ((2610 . 5625) (- -1073741825.0 4294967298.0) -> -5368709123.0) ((2611 . 5625) (- -1073741824 4294967294.0) -> -5368709118.0) ((2612 . 5625) (- -1073741824 4294967295.0) -> -5368709119.0) ((2613 . 5625) (- -1073741824 4294967296.0) -> -5368709120.0) ((2614 . 5625) (- -1073741824 4294967297.0) -> -5368709121.0) ((2615 . 5625) (- -1073741824 4294967298.0) -> -5368709122.0) ((2616 . 5625) (- -1073741823 4294967294.0) -> -5368709117.0) ((2617 . 5625) (- -1073741823 4294967295.0) -> -5368709118.0) ((2618 . 5625) (- -1073741823 4294967296.0) -> -5368709119.0) ((2619 . 5625) (- -1073741823 4294967297.0) -> -5368709120.0) ((2620 . 5625) (- -1073741823 4294967298.0) -> -5368709121.0) ((2621 . 5625) (- -1073741822 4294967294.0) -> -5368709116.0) ((2622 . 5625) (- -1073741822 4294967295.0) -> -5368709117.0) ((2623 . 5625) (- -1073741822 4294967296.0) -> -5368709118.0) ((2624 . 5625) (- -1073741822 4294967297.0) -> -5368709119.0) ((2625 . 5625) (- -1073741822 4294967298.0) -> -5368709120.0) ((2626 . 5625) (- 1073741822.0 -2) -> 1073741824.0) ((2627 . 5625) (- 1073741822.0 -1) -> 1073741823.0) ((2628 . 5625) (- 1073741822.0 0) -> 1073741822.0) ((2629 . 5625) (- 1073741822.0 1) -> 1073741821.0) ((2630 . 5625) (- 1073741822.0 2) -> 1073741820.0) ((2631 . 5625) (- 1073741823.0 -2) -> 1073741825.0) ((2632 . 5625) (- 1073741823.0 -1) -> 1073741824.0) ((2633 . 5625) (- 1073741823.0 0) -> 1073741823.0) ((2634 . 5625) (- 1073741823.0 1) -> 1073741822.0) ((2635 . 5625) (- 1073741823.0 2) -> 1073741821.0) ((2636 . 5625) (- 1073741824.0 -2) -> 1073741826.0) ((2637 . 5625) (- 1073741824.0 -1) -> 1073741825.0) ((2638 . 5625) (- 1073741824.0 0) -> 1073741824.0) ((2639 . 5625) (- 1073741824.0 1) -> 1073741823.0) ((2640 . 5625) (- 1073741824.0 2) -> 1073741822.0) ((2641 . 5625) (- 1073741825.0 -2) -> 1073741827.0) ((2642 . 5625) (- 1073741825.0 -1) -> 1073741826.0) ((2643 . 5625) (- 1073741825.0 0) -> 1073741825.0) ((2644 . 5625) (- 1073741825.0 1) -> 1073741824.0) ((2645 . 5625) (- 1073741825.0 2) -> 1073741823.0) ((2646 . 5625) (- 1073741826.0 -2) -> 1073741828.0) ((2647 . 5625) (- 1073741826.0 -1) -> 1073741827.0) ((2648 . 5625) (- 1073741826.0 0) -> 1073741826.0) ((2649 . 5625) (- 1073741826.0 1) -> 1073741825.0) ((2650 . 5625) (- 1073741826.0 2) -> 1073741824.0) ((2651 . 5625) (- 1073741822.0 -1) -> 1073741823.0) ((2652 . 5625) (- 1073741822.0 0) -> 1073741822.0) ((2653 . 5625) (- 1073741822.0 1) -> 1073741821.0) ((2654 . 5625) (- 1073741822.0 2) -> 1073741820.0) ((2655 . 5625) (- 1073741822.0 3) -> 1073741819.0) ((2656 . 5625) (- 1073741823.0 -1) -> 1073741824.0) ((2657 . 5625) (- 1073741823.0 0) -> 1073741823.0) ((2658 . 5625) (- 1073741823.0 1) -> 1073741822.0) ((2659 . 5625) (- 1073741823.0 2) -> 1073741821.0) ((2660 . 5625) (- 1073741823.0 3) -> 1073741820.0) ((2661 . 5625) (- 1073741824.0 -1) -> 1073741825.0) ((2662 . 5625) (- 1073741824.0 0) -> 1073741824.0) ((2663 . 5625) (- 1073741824.0 1) -> 1073741823.0) ((2664 . 5625) (- 1073741824.0 2) -> 1073741822.0) ((2665 . 5625) (- 1073741824.0 3) -> 1073741821.0) ((2666 . 5625) (- 1073741825.0 -1) -> 1073741826.0) ((2667 . 5625) (- 1073741825.0 0) -> 1073741825.0) ((2668 . 5625) (- 1073741825.0 1) -> 1073741824.0) ((2669 . 5625) (- 1073741825.0 2) -> 1073741823.0) ((2670 . 5625) (- 1073741825.0 3) -> 1073741822.0) ((2671 . 5625) (- 1073741826.0 -1) -> 1073741827.0) ((2672 . 5625) (- 1073741826.0 0) -> 1073741826.0) ((2673 . 5625) (- 1073741826.0 1) -> 1073741825.0) ((2674 . 5625) (- 1073741826.0 2) -> 1073741824.0) ((2675 . 5625) (- 1073741826.0 3) -> 1073741823.0) ((2676 . 5625) (- 1073741822.0 -3) -> 1073741825.0) ((2677 . 5625) (- 1073741822.0 -2) -> 1073741824.0) ((2678 . 5625) (- 1073741822.0 -1) -> 1073741823.0) ((2679 . 5625) (- 1073741822.0 0) -> 1073741822.0) ((2680 . 5625) (- 1073741822.0 1) -> 1073741821.0) ((2681 . 5625) (- 1073741823.0 -3) -> 1073741826.0) ((2682 . 5625) (- 1073741823.0 -2) -> 1073741825.0) ((2683 . 5625) (- 1073741823.0 -1) -> 1073741824.0) ((2684 . 5625) (- 1073741823.0 0) -> 1073741823.0) ((2685 . 5625) (- 1073741823.0 1) -> 1073741822.0) ((2686 . 5625) (- 1073741824.0 -3) -> 1073741827.0) ((2687 . 5625) (- 1073741824.0 -2) -> 1073741826.0) ((2688 . 5625) (- 1073741824.0 -1) -> 1073741825.0) ((2689 . 5625) (- 1073741824.0 0) -> 1073741824.0) ((2690 . 5625) (- 1073741824.0 1) -> 1073741823.0) ((2691 . 5625) (- 1073741825.0 -3) -> 1073741828.0) ((2692 . 5625) (- 1073741825.0 -2) -> 1073741827.0) ((2693 . 5625) (- 1073741825.0 -1) -> 1073741826.0) ((2694 . 5625) (- 1073741825.0 0) -> 1073741825.0) ((2695 . 5625) (- 1073741825.0 1) -> 1073741824.0) ((2696 . 5625) (- 1073741826.0 -3) -> 1073741829.0) ((2697 . 5625) (- 1073741826.0 -2) -> 1073741828.0) ((2698 . 5625) (- 1073741826.0 -1) -> 1073741827.0) ((2699 . 5625) (- 1073741826.0 0) -> 1073741826.0) ((2700 . 5625) (- 1073741826.0 1) -> 1073741825.0) ((2701 . 5625) (- 1073741822.0 0) -> 1073741822.0) ((2702 . 5625) (- 1073741822.0 1) -> 1073741821.0) ((2703 . 5625) (- 1073741822.0 2) -> 1073741820.0) ((2704 . 5625) (- 1073741822.0 3) -> 1073741819.0) ((2705 . 5625) (- 1073741822.0 4) -> 1073741818.0) ((2706 . 5625) (- 1073741823.0 0) -> 1073741823.0) ((2707 . 5625) (- 1073741823.0 1) -> 1073741822.0) ((2708 . 5625) (- 1073741823.0 2) -> 1073741821.0) ((2709 . 5625) (- 1073741823.0 3) -> 1073741820.0) ((2710 . 5625) (- 1073741823.0 4) -> 1073741819.0) ((2711 . 5625) (- 1073741824.0 0) -> 1073741824.0) ((2712 . 5625) (- 1073741824.0 1) -> 1073741823.0) ((2713 . 5625) (- 1073741824.0 2) -> 1073741822.0) ((2714 . 5625) (- 1073741824.0 3) -> 1073741821.0) ((2715 . 5625) (- 1073741824.0 4) -> 1073741820.0) ((2716 . 5625) (- 1073741825.0 0) -> 1073741825.0) ((2717 . 5625) (- 1073741825.0 1) -> 1073741824.0) ((2718 . 5625) (- 1073741825.0 2) -> 1073741823.0) ((2719 . 5625) (- 1073741825.0 3) -> 1073741822.0) ((2720 . 5625) (- 1073741825.0 4) -> 1073741821.0) ((2721 . 5625) (- 1073741826.0 0) -> 1073741826.0) ((2722 . 5625) (- 1073741826.0 1) -> 1073741825.0) ((2723 . 5625) (- 1073741826.0 2) -> 1073741824.0) ((2724 . 5625) (- 1073741826.0 3) -> 1073741823.0) ((2725 . 5625) (- 1073741826.0 4) -> 1073741822.0) ((2726 . 5625) (- 1073741822.0 -4) -> 1073741826.0) ((2727 . 5625) (- 1073741822.0 -3) -> 1073741825.0) ((2728 . 5625) (- 1073741822.0 -2) -> 1073741824.0) ((2729 . 5625) (- 1073741822.0 -1) -> 1073741823.0) ((2730 . 5625) (- 1073741822.0 0) -> 1073741822.0) ((2731 . 5625) (- 1073741823.0 -4) -> 1073741827.0) ((2732 . 5625) (- 1073741823.0 -3) -> 1073741826.0) ((2733 . 5625) (- 1073741823.0 -2) -> 1073741825.0) ((2734 . 5625) (- 1073741823.0 -1) -> 1073741824.0) ((2735 . 5625) (- 1073741823.0 0) -> 1073741823.0) ((2736 . 5625) (- 1073741824.0 -4) -> 1073741828.0) ((2737 . 5625) (- 1073741824.0 -3) -> 1073741827.0) ((2738 . 5625) (- 1073741824.0 -2) -> 1073741826.0) ((2739 . 5625) (- 1073741824.0 -1) -> 1073741825.0) ((2740 . 5625) (- 1073741824.0 0) -> 1073741824.0) ((2741 . 5625) (- 1073741825.0 -4) -> 1073741829.0) ((2742 . 5625) (- 1073741825.0 -3) -> 1073741828.0) ((2743 . 5625) (- 1073741825.0 -2) -> 1073741827.0) ((2744 . 5625) (- 1073741825.0 -1) -> 1073741826.0) ((2745 . 5625) (- 1073741825.0 0) -> 1073741825.0) ((2746 . 5625) (- 1073741826.0 -4) -> 1073741830.0) ((2747 . 5625) (- 1073741826.0 -3) -> 1073741829.0) ((2748 . 5625) (- 1073741826.0 -2) -> 1073741828.0) ((2749 . 5625) (- 1073741826.0 -1) -> 1073741827.0) ((2750 . 5625) (- 1073741826.0 0) -> 1073741826.0) ((2751 . 5625) (- 1073741822.0 1073741821) -> 1.0) ((2752 . 5625) (- 1073741822.0 1073741822) -> 0.0) ((2753 . 5625) (- 1073741822.0 1073741823) -> -1.0) ((2754 . 5625) (- 1073741822.0 1073741824.0) -> -2.0) ((2755 . 5625) (- 1073741822.0 1073741825.0) -> -3.0) ((2756 . 5625) (- 1073741823.0 1073741821) -> 2.0) ((2757 . 5625) (- 1073741823.0 1073741822) -> 1.0) ((2758 . 5625) (- 1073741823.0 1073741823) -> 0.0) ((2759 . 5625) (- 1073741823.0 1073741824.0) -> -1.0) ((2760 . 5625) (- 1073741823.0 1073741825.0) -> -2.0) ((2761 . 5625) (- 1073741824.0 1073741821) -> 3.0) ((2762 . 5625) (- 1073741824.0 1073741822) -> 2.0) ((2763 . 5625) (- 1073741824.0 1073741823) -> 1.0) ((2764 . 5625) (- 1073741824.0 1073741824.0) -> 0.0) ((2765 . 5625) (- 1073741824.0 1073741825.0) -> -1.0) ((2766 . 5625) (- 1073741825.0 1073741821) -> 4.0) ((2767 . 5625) (- 1073741825.0 1073741822) -> 3.0) ((2768 . 5625) (- 1073741825.0 1073741823) -> 2.0) ((2769 . 5625) (- 1073741825.0 1073741824.0) -> 1.0) ((2770 . 5625) (- 1073741825.0 1073741825.0) -> 0.0) ((2771 . 5625) (- 1073741826.0 1073741821) -> 5.0) ((2772 . 5625) (- 1073741826.0 1073741822) -> 4.0) ((2773 . 5625) (- 1073741826.0 1073741823) -> 3.0) ((2774 . 5625) (- 1073741826.0 1073741824.0) -> 2.0) ((2775 . 5625) (- 1073741826.0 1073741825.0) -> 1.0) ((2776 . 5625) (- 1073741822.0 -1073741826.0) -> 2147483648.0) ((2777 . 5625) (- 1073741822.0 -1073741825.0) -> 2147483647.0) ((2778 . 5625) (- 1073741822.0 -1073741824) -> 2147483646.0) ((2779 . 5625) (- 1073741822.0 -1073741823) -> 2147483645.0) ((2780 . 5625) (- 1073741822.0 -1073741822) -> 2147483644.0) ((2781 . 5625) (- 1073741823.0 -1073741826.0) -> 2147483649.0) ((2782 . 5625) (- 1073741823.0 -1073741825.0) -> 2147483648.0) ((2783 . 5625) (- 1073741823.0 -1073741824) -> 2147483647.0) ((2784 . 5625) (- 1073741823.0 -1073741823) -> 2147483646.0) ((2785 . 5625) (- 1073741823.0 -1073741822) -> 2147483645.0) ((2786 . 5625) (- 1073741824.0 -1073741826.0) -> 2147483650.0) ((2787 . 5625) (- 1073741824.0 -1073741825.0) -> 2147483649.0) ((2788 . 5625) (- 1073741824.0 -1073741824) -> 2147483648.0) ((2789 . 5625) (- 1073741824.0 -1073741823) -> 2147483647.0) ((2790 . 5625) (- 1073741824.0 -1073741822) -> 2147483646.0) ((2791 . 5625) (- 1073741825.0 -1073741826.0) -> 2147483651.0) ((2792 . 5625) (- 1073741825.0 -1073741825.0) -> 2147483650.0) ((2793 . 5625) (- 1073741825.0 -1073741824) -> 2147483649.0) ((2794 . 5625) (- 1073741825.0 -1073741823) -> 2147483648.0) ((2795 . 5625) (- 1073741825.0 -1073741822) -> 2147483647.0) ((2796 . 5625) (- 1073741826.0 -1073741826.0) -> 2147483652.0) ((2797 . 5625) (- 1073741826.0 -1073741825.0) -> 2147483651.0) ((2798 . 5625) (- 1073741826.0 -1073741824) -> 2147483650.0) ((2799 . 5625) (- 1073741826.0 -1073741823) -> 2147483649.0) ((2800 . 5625) (- 1073741826.0 -1073741822) -> 2147483648.0) ((2801 . 5625) (- 1073741822.0 1073741822.0) -> 0.0) ((2802 . 5625) (- 1073741822.0 1073741823.0) -> -1.0) ((2803 . 5625) (- 1073741822.0 1073741824.0) -> -2.0) ((2804 . 5625) (- 1073741822.0 1073741825.0) -> -3.0) ((2805 . 5625) (- 1073741822.0 1073741826.0) -> -4.0) ((2806 . 5625) (- 1073741823.0 1073741822.0) -> 1.0) ((2807 . 5625) (- 1073741823.0 1073741823.0) -> 0.0) ((2808 . 5625) (- 1073741823.0 1073741824.0) -> -1.0) ((2809 . 5625) (- 1073741823.0 1073741825.0) -> -2.0) ((2810 . 5625) (- 1073741823.0 1073741826.0) -> -3.0) ((2811 . 5625) (- 1073741824.0 1073741822.0) -> 2.0) ((2812 . 5625) (- 1073741824.0 1073741823.0) -> 1.0) ((2813 . 5625) (- 1073741824.0 1073741824.0) -> 0.0) ((2814 . 5625) (- 1073741824.0 1073741825.0) -> -1.0) ((2815 . 5625) (- 1073741824.0 1073741826.0) -> -2.0) ((2816 . 5625) (- 1073741825.0 1073741822.0) -> 3.0) ((2817 . 5625) (- 1073741825.0 1073741823.0) -> 2.0) ((2818 . 5625) (- 1073741825.0 1073741824.0) -> 1.0) ((2819 . 5625) (- 1073741825.0 1073741825.0) -> 0.0) ((2820 . 5625) (- 1073741825.0 1073741826.0) -> -1.0) ((2821 . 5625) (- 1073741826.0 1073741822.0) -> 4.0) ((2822 . 5625) (- 1073741826.0 1073741823.0) -> 3.0) ((2823 . 5625) (- 1073741826.0 1073741824.0) -> 2.0) ((2824 . 5625) (- 1073741826.0 1073741825.0) -> 1.0) ((2825 . 5625) (- 1073741826.0 1073741826.0) -> 0.0) ((2826 . 5625) (- 1073741822.0 -1073741827.0) -> 2147483649.0) ((2827 . 5625) (- 1073741822.0 -1073741826.0) -> 2147483648.0) ((2828 . 5625) (- 1073741822.0 -1073741825.0) -> 2147483647.0) ((2829 . 5625) (- 1073741822.0 -1073741824.0) -> 2147483646.0) ((2830 . 5625) (- 1073741822.0 -1073741823.0) -> 2147483645.0) ((2831 . 5625) (- 1073741823.0 -1073741827.0) -> 2147483650.0) ((2832 . 5625) (- 1073741823.0 -1073741826.0) -> 2147483649.0) ((2833 . 5625) (- 1073741823.0 -1073741825.0) -> 2147483648.0) ((2834 . 5625) (- 1073741823.0 -1073741824.0) -> 2147483647.0) ((2835 . 5625) (- 1073741823.0 -1073741823.0) -> 2147483646.0) ((2836 . 5625) (- 1073741824.0 -1073741827.0) -> 2147483651.0) ((2837 . 5625) (- 1073741824.0 -1073741826.0) -> 2147483650.0) ((2838 . 5625) (- 1073741824.0 -1073741825.0) -> 2147483649.0) ((2839 . 5625) (- 1073741824.0 -1073741824.0) -> 2147483648.0) ((2840 . 5625) (- 1073741824.0 -1073741823.0) -> 2147483647.0) ((2841 . 5625) (- 1073741825.0 -1073741827.0) -> 2147483652.0) ((2842 . 5625) (- 1073741825.0 -1073741826.0) -> 2147483651.0) ((2843 . 5625) (- 1073741825.0 -1073741825.0) -> 2147483650.0) ((2844 . 5625) (- 1073741825.0 -1073741824.0) -> 2147483649.0) ((2845 . 5625) (- 1073741825.0 -1073741823.0) -> 2147483648.0) ((2846 . 5625) (- 1073741826.0 -1073741827.0) -> 2147483653.0) ((2847 . 5625) (- 1073741826.0 -1073741826.0) -> 2147483652.0) ((2848 . 5625) (- 1073741826.0 -1073741825.0) -> 2147483651.0) ((2849 . 5625) (- 1073741826.0 -1073741824.0) -> 2147483650.0) ((2850 . 5625) (- 1073741826.0 -1073741823.0) -> 2147483649.0) ((2851 . 5625) (- 1073741822.0 1103515243.0) -> -29773421.0) ((2852 . 5625) (- 1073741822.0 1103515244.0) -> -29773422.0) ((2853 . 5625) (- 1073741822.0 1103515245.0) -> -29773423.0) ((2854 . 5625) (- 1073741822.0 1103515246.0) -> -29773424.0) ((2855 . 5625) (- 1073741822.0 1103515247.0) -> -29773425.0) ((2856 . 5625) (- 1073741823.0 1103515243.0) -> -29773420.0) ((2857 . 5625) (- 1073741823.0 1103515244.0) -> -29773421.0) ((2858 . 5625) (- 1073741823.0 1103515245.0) -> -29773422.0) ((2859 . 5625) (- 1073741823.0 1103515246.0) -> -29773423.0) ((2860 . 5625) (- 1073741823.0 1103515247.0) -> -29773424.0) ((2861 . 5625) (- 1073741824.0 1103515243.0) -> -29773419.0) ((2862 . 5625) (- 1073741824.0 1103515244.0) -> -29773420.0) ((2863 . 5625) (- 1073741824.0 1103515245.0) -> -29773421.0) ((2864 . 5625) (- 1073741824.0 1103515246.0) -> -29773422.0) ((2865 . 5625) (- 1073741824.0 1103515247.0) -> -29773423.0) ((2866 . 5625) (- 1073741825.0 1103515243.0) -> -29773418.0) ((2867 . 5625) (- 1073741825.0 1103515244.0) -> -29773419.0) ((2868 . 5625) (- 1073741825.0 1103515245.0) -> -29773420.0) ((2869 . 5625) (- 1073741825.0 1103515246.0) -> -29773421.0) ((2870 . 5625) (- 1073741825.0 1103515247.0) -> -29773422.0) ((2871 . 5625) (- 1073741826.0 1103515243.0) -> -29773417.0) ((2872 . 5625) (- 1073741826.0 1103515244.0) -> -29773418.0) ((2873 . 5625) (- 1073741826.0 1103515245.0) -> -29773419.0) ((2874 . 5625) (- 1073741826.0 1103515246.0) -> -29773420.0) ((2875 . 5625) (- 1073741826.0 1103515247.0) -> -29773421.0) ((2876 . 5625) (- 1073741822.0 631629063) -> 442112759.0) ((2877 . 5625) (- 1073741822.0 631629064) -> 442112758.0) ((2878 . 5625) (- 1073741822.0 631629065) -> 442112757.0) ((2879 . 5625) (- 1073741822.0 631629066) -> 442112756.0) ((2880 . 5625) (- 1073741822.0 631629067) -> 442112755.0) ((2881 . 5625) (- 1073741823.0 631629063) -> 442112760.0) ((2882 . 5625) (- 1073741823.0 631629064) -> 442112759.0) ((2883 . 5625) (- 1073741823.0 631629065) -> 442112758.0) ((2884 . 5625) (- 1073741823.0 631629066) -> 442112757.0) ((2885 . 5625) (- 1073741823.0 631629067) -> 442112756.0) ((2886 . 5625) (- 1073741824.0 631629063) -> 442112761.0) ((2887 . 5625) (- 1073741824.0 631629064) -> 442112760.0) ((2888 . 5625) (- 1073741824.0 631629065) -> 442112759.0) ((2889 . 5625) (- 1073741824.0 631629066) -> 442112758.0) ((2890 . 5625) (- 1073741824.0 631629067) -> 442112757.0) ((2891 . 5625) (- 1073741825.0 631629063) -> 442112762.0) ((2892 . 5625) (- 1073741825.0 631629064) -> 442112761.0) ((2893 . 5625) (- 1073741825.0 631629065) -> 442112760.0) ((2894 . 5625) (- 1073741825.0 631629066) -> 442112759.0) ((2895 . 5625) (- 1073741825.0 631629067) -> 442112758.0) ((2896 . 5625) (- 1073741826.0 631629063) -> 442112763.0) ((2897 . 5625) (- 1073741826.0 631629064) -> 442112762.0) ((2898 . 5625) (- 1073741826.0 631629065) -> 442112761.0) ((2899 . 5625) (- 1073741826.0 631629066) -> 442112760.0) ((2900 . 5625) (- 1073741826.0 631629067) -> 442112759.0) ((2901 . 5625) (- 1073741822.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2902 . 5625) (- 1073741822.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2903 . 5625) (- 1073741822.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2904 . 5625) (- 1073741822.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2905 . 5625) (- 1073741822.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2906 . 5625) (- 1073741823.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2907 . 5625) (- 1073741823.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2908 . 5625) (- 1073741823.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2909 . 5625) (- 1073741823.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2910 . 5625) (- 1073741823.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2911 . 5625) (- 1073741824.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2912 . 5625) (- 1073741824.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2913 . 5625) (- 1073741824.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2914 . 5625) (- 1073741824.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2915 . 5625) (- 1073741824.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2916 . 5625) (- 1073741825.0 9.00719925474099e+15) -> -9.00719818099916e+15) ((2917 . 5625) (- 1073741825.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2918 . 5625) (- 1073741825.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2919 . 5625) (- 1073741825.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2920 . 5625) (- 1073741825.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2921 . 5625) (- 1073741826.0 9.00719925474099e+15) -> -9.00719818099916e+15) ((2922 . 5625) (- 1073741826.0 9.00719925474099e+15) -> -9.00719818099916e+15) ((2923 . 5625) (- 1073741826.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2924 . 5625) (- 1073741826.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2925 . 5625) (- 1073741826.0 9.00719925474099e+15) -> -9.00719818099917e+15) ((2926 . 5625) (- 1073741822.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2927 . 5625) (- 1073741822.0 -9.00719925474099e+15) -> 9.00720032848281e+15) ((2928 . 5625) (- 1073741822.0 -9.00719925474099e+15) -> 9.00720032848281e+15) ((2929 . 5625) (- 1073741822.0 -9.00719925474099e+15) -> 9.00720032848281e+15) ((2930 . 5625) (- 1073741822.0 -9.00719925474099e+15) -> 9.00720032848281e+15) ((2931 . 5625) (- 1073741823.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2932 . 5625) (- 1073741823.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2933 . 5625) (- 1073741823.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2934 . 5625) (- 1073741823.0 -9.00719925474099e+15) -> 9.00720032848281e+15) ((2935 . 5625) (- 1073741823.0 -9.00719925474099e+15) -> 9.00720032848281e+15) ((2936 . 5625) (- 1073741824.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2937 . 5625) (- 1073741824.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2938 . 5625) (- 1073741824.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2939 . 5625) (- 1073741824.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2940 . 5625) (- 1073741824.0 -9.00719925474099e+15) -> 9.00720032848281e+15) ((2941 . 5625) (- 1073741825.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2942 . 5625) (- 1073741825.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2943 . 5625) (- 1073741825.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2944 . 5625) (- 1073741825.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2945 . 5625) (- 1073741825.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2946 . 5625) (- 1073741826.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2947 . 5625) (- 1073741826.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2948 . 5625) (- 1073741826.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2949 . 5625) (- 1073741826.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2950 . 5625) (- 1073741826.0 -9.00719925474099e+15) -> 9.00720032848282e+15) ((2951 . 5625) (- 1073741822.0 12343) -> 1073729479.0) ((2952 . 5625) (- 1073741822.0 12344) -> 1073729478.0) ((2953 . 5625) (- 1073741822.0 12345) -> 1073729477.0) ((2954 . 5625) (- 1073741822.0 12346) -> 1073729476.0) ((2955 . 5625) (- 1073741822.0 12347) -> 1073729475.0) ((2956 . 5625) (- 1073741823.0 12343) -> 1073729480.0) ((2957 . 5625) (- 1073741823.0 12344) -> 1073729479.0) ((2958 . 5625) (- 1073741823.0 12345) -> 1073729478.0) ((2959 . 5625) (- 1073741823.0 12346) -> 1073729477.0) ((2960 . 5625) (- 1073741823.0 12347) -> 1073729476.0) ((2961 . 5625) (- 1073741824.0 12343) -> 1073729481.0) ((2962 . 5625) (- 1073741824.0 12344) -> 1073729480.0) ((2963 . 5625) (- 1073741824.0 12345) -> 1073729479.0) ((2964 . 5625) (- 1073741824.0 12346) -> 1073729478.0) ((2965 . 5625) (- 1073741824.0 12347) -> 1073729477.0) ((2966 . 5625) (- 1073741825.0 12343) -> 1073729482.0) ((2967 . 5625) (- 1073741825.0 12344) -> 1073729481.0) ((2968 . 5625) (- 1073741825.0 12345) -> 1073729480.0) ((2969 . 5625) (- 1073741825.0 12346) -> 1073729479.0) ((2970 . 5625) (- 1073741825.0 12347) -> 1073729478.0) ((2971 . 5625) (- 1073741826.0 12343) -> 1073729483.0) ((2972 . 5625) (- 1073741826.0 12344) -> 1073729482.0) ((2973 . 5625) (- 1073741826.0 12345) -> 1073729481.0) ((2974 . 5625) (- 1073741826.0 12346) -> 1073729480.0) ((2975 . 5625) (- 1073741826.0 12347) -> 1073729479.0) ((2976 . 5625) (- 1073741822.0 4294967294.0) -> -3221225472.0) ((2977 . 5625) (- 1073741822.0 4294967295.0) -> -3221225473.0) ((2978 . 5625) (- 1073741822.0 4294967296.0) -> -3221225474.0) ((2979 . 5625) (- 1073741822.0 4294967297.0) -> -3221225475.0) ((2980 . 5625) (- 1073741822.0 4294967298.0) -> -3221225476.0) ((2981 . 5625) (- 1073741823.0 4294967294.0) -> -3221225471.0) ((2982 . 5625) (- 1073741823.0 4294967295.0) -> -3221225472.0) ((2983 . 5625) (- 1073741823.0 4294967296.0) -> -3221225473.0) ((2984 . 5625) (- 1073741823.0 4294967297.0) -> -3221225474.0) ((2985 . 5625) (- 1073741823.0 4294967298.0) -> -3221225475.0) ((2986 . 5625) (- 1073741824.0 4294967294.0) -> -3221225470.0) ((2987 . 5625) (- 1073741824.0 4294967295.0) -> -3221225471.0) ((2988 . 5625) (- 1073741824.0 4294967296.0) -> -3221225472.0) ((2989 . 5625) (- 1073741824.0 4294967297.0) -> -3221225473.0) ((2990 . 5625) (- 1073741824.0 4294967298.0) -> -3221225474.0) ((2991 . 5625) (- 1073741825.0 4294967294.0) -> -3221225469.0) ((2992 . 5625) (- 1073741825.0 4294967295.0) -> -3221225470.0) ((2993 . 5625) (- 1073741825.0 4294967296.0) -> -3221225471.0) ((2994 . 5625) (- 1073741825.0 4294967297.0) -> -3221225472.0) ((2995 . 5625) (- 1073741825.0 4294967298.0) -> -3221225473.0) ((2996 . 5625) (- 1073741826.0 4294967294.0) -> -3221225468.0) ((2997 . 5625) (- 1073741826.0 4294967295.0) -> -3221225469.0) ((2998 . 5625) (- 1073741826.0 4294967296.0) -> -3221225470.0) ((2999 . 5625) (- 1073741826.0 4294967297.0) -> -3221225471.0) ((3000 . 5625) (- 1073741826.0 4294967298.0) -> -3221225472.0) ((3001 . 5625) (- -1073741827.0 -2) -> -1073741825.0) ((3002 . 5625) (- -1073741827.0 -1) -> -1073741826.0) ((3003 . 5625) (- -1073741827.0 0) -> -1073741827.0) ((3004 . 5625) (- -1073741827.0 1) -> -1073741828.0) ((3005 . 5625) (- -1073741827.0 2) -> -1073741829.0) ((3006 . 5625) (- -1073741826.0 -2) -> -1073741824.0) ((3007 . 5625) (- -1073741826.0 -1) -> -1073741825.0) ((3008 . 5625) (- -1073741826.0 0) -> -1073741826.0) ((3009 . 5625) (- -1073741826.0 1) -> -1073741827.0) ((3010 . 5625) (- -1073741826.0 2) -> -1073741828.0) ((3011 . 5625) (- -1073741825.0 -2) -> -1073741823.0) ((3012 . 5625) (- -1073741825.0 -1) -> -1073741824.0) ((3013 . 5625) (- -1073741825.0 0) -> -1073741825.0) ((3014 . 5625) (- -1073741825.0 1) -> -1073741826.0) ((3015 . 5625) (- -1073741825.0 2) -> -1073741827.0) ((3016 . 5625) (- -1073741824.0 -2) -> -1073741822.0) ((3017 . 5625) (- -1073741824.0 -1) -> -1073741823.0) ((3018 . 5625) (- -1073741824.0 0) -> -1073741824.0) ((3019 . 5625) (- -1073741824.0 1) -> -1073741825.0) ((3020 . 5625) (- -1073741824.0 2) -> -1073741826.0) ((3021 . 5625) (- -1073741823.0 -2) -> -1073741821.0) ((3022 . 5625) (- -1073741823.0 -1) -> -1073741822.0) ((3023 . 5625) (- -1073741823.0 0) -> -1073741823.0) ((3024 . 5625) (- -1073741823.0 1) -> -1073741824.0) ((3025 . 5625) (- -1073741823.0 2) -> -1073741825.0) ((3026 . 5625) (- -1073741827.0 -1) -> -1073741826.0) ((3027 . 5625) (- -1073741827.0 0) -> -1073741827.0) ((3028 . 5625) (- -1073741827.0 1) -> -1073741828.0) ((3029 . 5625) (- -1073741827.0 2) -> -1073741829.0) ((3030 . 5625) (- -1073741827.0 3) -> -1073741830.0) ((3031 . 5625) (- -1073741826.0 -1) -> -1073741825.0) ((3032 . 5625) (- -1073741826.0 0) -> -1073741826.0) ((3033 . 5625) (- -1073741826.0 1) -> -1073741827.0) ((3034 . 5625) (- -1073741826.0 2) -> -1073741828.0) ((3035 . 5625) (- -1073741826.0 3) -> -1073741829.0) ((3036 . 5625) (- -1073741825.0 -1) -> -1073741824.0) ((3037 . 5625) (- -1073741825.0 0) -> -1073741825.0) ((3038 . 5625) (- -1073741825.0 1) -> -1073741826.0) ((3039 . 5625) (- -1073741825.0 2) -> -1073741827.0) ((3040 . 5625) (- -1073741825.0 3) -> -1073741828.0) ((3041 . 5625) (- -1073741824.0 -1) -> -1073741823.0) ((3042 . 5625) (- -1073741824.0 0) -> -1073741824.0) ((3043 . 5625) (- -1073741824.0 1) -> -1073741825.0) ((3044 . 5625) (- -1073741824.0 2) -> -1073741826.0) ((3045 . 5625) (- -1073741824.0 3) -> -1073741827.0) ((3046 . 5625) (- -1073741823.0 -1) -> -1073741822.0) ((3047 . 5625) (- -1073741823.0 0) -> -1073741823.0) ((3048 . 5625) (- -1073741823.0 1) -> -1073741824.0) ((3049 . 5625) (- -1073741823.0 2) -> -1073741825.0) ((3050 . 5625) (- -1073741823.0 3) -> -1073741826.0) ((3051 . 5625) (- -1073741827.0 -3) -> -1073741824.0) ((3052 . 5625) (- -1073741827.0 -2) -> -1073741825.0) ((3053 . 5625) (- -1073741827.0 -1) -> -1073741826.0) ((3054 . 5625) (- -1073741827.0 0) -> -1073741827.0) ((3055 . 5625) (- -1073741827.0 1) -> -1073741828.0) ((3056 . 5625) (- -1073741826.0 -3) -> -1073741823.0) ((3057 . 5625) (- -1073741826.0 -2) -> -1073741824.0) ((3058 . 5625) (- -1073741826.0 -1) -> -1073741825.0) ((3059 . 5625) (- -1073741826.0 0) -> -1073741826.0) ((3060 . 5625) (- -1073741826.0 1) -> -1073741827.0) ((3061 . 5625) (- -1073741825.0 -3) -> -1073741822.0) ((3062 . 5625) (- -1073741825.0 -2) -> -1073741823.0) ((3063 . 5625) (- -1073741825.0 -1) -> -1073741824.0) ((3064 . 5625) (- -1073741825.0 0) -> -1073741825.0) ((3065 . 5625) (- -1073741825.0 1) -> -1073741826.0) ((3066 . 5625) (- -1073741824.0 -3) -> -1073741821.0) ((3067 . 5625) (- -1073741824.0 -2) -> -1073741822.0) ((3068 . 5625) (- -1073741824.0 -1) -> -1073741823.0) ((3069 . 5625) (- -1073741824.0 0) -> -1073741824.0) ((3070 . 5625) (- -1073741824.0 1) -> -1073741825.0) ((3071 . 5625) (- -1073741823.0 -3) -> -1073741820.0) ((3072 . 5625) (- -1073741823.0 -2) -> -1073741821.0) ((3073 . 5625) (- -1073741823.0 -1) -> -1073741822.0) ((3074 . 5625) (- -1073741823.0 0) -> -1073741823.0) ((3075 . 5625) (- -1073741823.0 1) -> -1073741824.0) ((3076 . 5625) (- -1073741827.0 0) -> -1073741827.0) ((3077 . 5625) (- -1073741827.0 1) -> -1073741828.0) ((3078 . 5625) (- -1073741827.0 2) -> -1073741829.0) ((3079 . 5625) (- -1073741827.0 3) -> -1073741830.0) ((3080 . 5625) (- -1073741827.0 4) -> -1073741831.0) ((3081 . 5625) (- -1073741826.0 0) -> -1073741826.0) ((3082 . 5625) (- -1073741826.0 1) -> -1073741827.0) ((3083 . 5625) (- -1073741826.0 2) -> -1073741828.0) ((3084 . 5625) (- -1073741826.0 3) -> -1073741829.0) ((3085 . 5625) (- -1073741826.0 4) -> -1073741830.0) ((3086 . 5625) (- -1073741825.0 0) -> -1073741825.0) ((3087 . 5625) (- -1073741825.0 1) -> -1073741826.0) ((3088 . 5625) (- -1073741825.0 2) -> -1073741827.0) ((3089 . 5625) (- -1073741825.0 3) -> -1073741828.0) ((3090 . 5625) (- -1073741825.0 4) -> -1073741829.0) ((3091 . 5625) (- -1073741824.0 0) -> -1073741824.0) ((3092 . 5625) (- -1073741824.0 1) -> -1073741825.0) ((3093 . 5625) (- -1073741824.0 2) -> -1073741826.0) ((3094 . 5625) (- -1073741824.0 3) -> -1073741827.0) ((3095 . 5625) (- -1073741824.0 4) -> -1073741828.0) ((3096 . 5625) (- -1073741823.0 0) -> -1073741823.0) ((3097 . 5625) (- -1073741823.0 1) -> -1073741824.0) ((3098 . 5625) (- -1073741823.0 2) -> -1073741825.0) ((3099 . 5625) (- -1073741823.0 3) -> -1073741826.0) ((3100 . 5625) (- -1073741823.0 4) -> -1073741827.0) ((3101 . 5625) (- -1073741827.0 -4) -> -1073741823.0) ((3102 . 5625) (- -1073741827.0 -3) -> -1073741824.0) ((3103 . 5625) (- -1073741827.0 -2) -> -1073741825.0) ((3104 . 5625) (- -1073741827.0 -1) -> -1073741826.0) ((3105 . 5625) (- -1073741827.0 0) -> -1073741827.0) ((3106 . 5625) (- -1073741826.0 -4) -> -1073741822.0) ((3107 . 5625) (- -1073741826.0 -3) -> -1073741823.0) ((3108 . 5625) (- -1073741826.0 -2) -> -1073741824.0) ((3109 . 5625) (- -1073741826.0 -1) -> -1073741825.0) ((3110 . 5625) (- -1073741826.0 0) -> -1073741826.0) ((3111 . 5625) (- -1073741825.0 -4) -> -1073741821.0) ((3112 . 5625) (- -1073741825.0 -3) -> -1073741822.0) ((3113 . 5625) (- -1073741825.0 -2) -> -1073741823.0) ((3114 . 5625) (- -1073741825.0 -1) -> -1073741824.0) ((3115 . 5625) (- -1073741825.0 0) -> -1073741825.0) ((3116 . 5625) (- -1073741824.0 -4) -> -1073741820.0) ((3117 . 5625) (- -1073741824.0 -3) -> -1073741821.0) ((3118 . 5625) (- -1073741824.0 -2) -> -1073741822.0) ((3119 . 5625) (- -1073741824.0 -1) -> -1073741823.0) ((3120 . 5625) (- -1073741824.0 0) -> -1073741824.0) ((3121 . 5625) (- -1073741823.0 -4) -> -1073741819.0) ((3122 . 5625) (- -1073741823.0 -3) -> -1073741820.0) ((3123 . 5625) (- -1073741823.0 -2) -> -1073741821.0) ((3124 . 5625) (- -1073741823.0 -1) -> -1073741822.0) ((3125 . 5625) (- -1073741823.0 0) -> -1073741823.0) ((3126 . 5625) (- -1073741827.0 1073741821) -> -2147483648.0) ((3127 . 5625) (- -1073741827.0 1073741822) -> -2147483649.0) ((3128 . 5625) (- -1073741827.0 1073741823) -> -2147483650.0) ((3129 . 5625) (- -1073741827.0 1073741824.0) -> -2147483651.0) ((3130 . 5625) (- -1073741827.0 1073741825.0) -> -2147483652.0) ((3131 . 5625) (- -1073741826.0 1073741821) -> -2147483647.0) ((3132 . 5625) (- -1073741826.0 1073741822) -> -2147483648.0) ((3133 . 5625) (- -1073741826.0 1073741823) -> -2147483649.0) ((3134 . 5625) (- -1073741826.0 1073741824.0) -> -2147483650.0) ((3135 . 5625) (- -1073741826.0 1073741825.0) -> -2147483651.0) ((3136 . 5625) (- -1073741825.0 1073741821) -> -2147483646.0) ((3137 . 5625) (- -1073741825.0 1073741822) -> -2147483647.0) ((3138 . 5625) (- -1073741825.0 1073741823) -> -2147483648.0) ((3139 . 5625) (- -1073741825.0 1073741824.0) -> -2147483649.0) ((3140 . 5625) (- -1073741825.0 1073741825.0) -> -2147483650.0) ((3141 . 5625) (- -1073741824.0 1073741821) -> -2147483645.0) ((3142 . 5625) (- -1073741824.0 1073741822) -> -2147483646.0) ((3143 . 5625) (- -1073741824.0 1073741823) -> -2147483647.0) ((3144 . 5625) (- -1073741824.0 1073741824.0) -> -2147483648.0) ((3145 . 5625) (- -1073741824.0 1073741825.0) -> -2147483649.0) ((3146 . 5625) (- -1073741823.0 1073741821) -> -2147483644.0) ((3147 . 5625) (- -1073741823.0 1073741822) -> -2147483645.0) ((3148 . 5625) (- -1073741823.0 1073741823) -> -2147483646.0) ((3149 . 5625) (- -1073741823.0 1073741824.0) -> -2147483647.0) ((3150 . 5625) (- -1073741823.0 1073741825.0) -> -2147483648.0) ((3151 . 5625) (- -1073741827.0 -1073741826.0) -> -1.0) ((3152 . 5625) (- -1073741827.0 -1073741825.0) -> -2.0) ((3153 . 5625) (- -1073741827.0 -1073741824) -> -3.0) ((3154 . 5625) (- -1073741827.0 -1073741823) -> -4.0) ((3155 . 5625) (- -1073741827.0 -1073741822) -> -5.0) ((3156 . 5625) (- -1073741826.0 -1073741826.0) -> 0.0) ((3157 . 5625) (- -1073741826.0 -1073741825.0) -> -1.0) ((3158 . 5625) (- -1073741826.0 -1073741824) -> -2.0) ((3159 . 5625) (- -1073741826.0 -1073741823) -> -3.0) ((3160 . 5625) (- -1073741826.0 -1073741822) -> -4.0) ((3161 . 5625) (- -1073741825.0 -1073741826.0) -> 1.0) ((3162 . 5625) (- -1073741825.0 -1073741825.0) -> 0.0) ((3163 . 5625) (- -1073741825.0 -1073741824) -> -1.0) ((3164 . 5625) (- -1073741825.0 -1073741823) -> -2.0) ((3165 . 5625) (- -1073741825.0 -1073741822) -> -3.0) ((3166 . 5625) (- -1073741824.0 -1073741826.0) -> 2.0) ((3167 . 5625) (- -1073741824.0 -1073741825.0) -> 1.0) ((3168 . 5625) (- -1073741824.0 -1073741824) -> 0.0) ((3169 . 5625) (- -1073741824.0 -1073741823) -> -1.0) ((3170 . 5625) (- -1073741824.0 -1073741822) -> -2.0) ((3171 . 5625) (- -1073741823.0 -1073741826.0) -> 3.0) ((3172 . 5625) (- -1073741823.0 -1073741825.0) -> 2.0) ((3173 . 5625) (- -1073741823.0 -1073741824) -> 1.0) ((3174 . 5625) (- -1073741823.0 -1073741823) -> 0.0) ((3175 . 5625) (- -1073741823.0 -1073741822) -> -1.0) ((3176 . 5625) (- -1073741827.0 1073741822.0) -> -2147483649.0) ((3177 . 5625) (- -1073741827.0 1073741823.0) -> -2147483650.0) ((3178 . 5625) (- -1073741827.0 1073741824.0) -> -2147483651.0) ((3179 . 5625) (- -1073741827.0 1073741825.0) -> -2147483652.0) ((3180 . 5625) (- -1073741827.0 1073741826.0) -> -2147483653.0) ((3181 . 5625) (- -1073741826.0 1073741822.0) -> -2147483648.0) ((3182 . 5625) (- -1073741826.0 1073741823.0) -> -2147483649.0) ((3183 . 5625) (- -1073741826.0 1073741824.0) -> -2147483650.0) ((3184 . 5625) (- -1073741826.0 1073741825.0) -> -2147483651.0) ((3185 . 5625) (- -1073741826.0 1073741826.0) -> -2147483652.0) ((3186 . 5625) (- -1073741825.0 1073741822.0) -> -2147483647.0) ((3187 . 5625) (- -1073741825.0 1073741823.0) -> -2147483648.0) ((3188 . 5625) (- -1073741825.0 1073741824.0) -> -2147483649.0) ((3189 . 5625) (- -1073741825.0 1073741825.0) -> -2147483650.0) ((3190 . 5625) (- -1073741825.0 1073741826.0) -> -2147483651.0) ((3191 . 5625) (- -1073741824.0 1073741822.0) -> -2147483646.0) ((3192 . 5625) (- -1073741824.0 1073741823.0) -> -2147483647.0) ((3193 . 5625) (- -1073741824.0 1073741824.0) -> -2147483648.0) ((3194 . 5625) (- -1073741824.0 1073741825.0) -> -2147483649.0) ((3195 . 5625) (- -1073741824.0 1073741826.0) -> -2147483650.0) ((3196 . 5625) (- -1073741823.0 1073741822.0) -> -2147483645.0) ((3197 . 5625) (- -1073741823.0 1073741823.0) -> -2147483646.0) ((3198 . 5625) (- -1073741823.0 1073741824.0) -> -2147483647.0) ((3199 . 5625) (- -1073741823.0 1073741825.0) -> -2147483648.0) ((3200 . 5625) (- -1073741823.0 1073741826.0) -> -2147483649.0) ((3201 . 5625) (- -1073741827.0 -1073741827.0) -> 0.0) ((3202 . 5625) (- -1073741827.0 -1073741826.0) -> -1.0) ((3203 . 5625) (- -1073741827.0 -1073741825.0) -> -2.0) ((3204 . 5625) (- -1073741827.0 -1073741824.0) -> -3.0) ((3205 . 5625) (- -1073741827.0 -1073741823.0) -> -4.0) ((3206 . 5625) (- -1073741826.0 -1073741827.0) -> 1.0) ((3207 . 5625) (- -1073741826.0 -1073741826.0) -> 0.0) ((3208 . 5625) (- -1073741826.0 -1073741825.0) -> -1.0) ((3209 . 5625) (- -1073741826.0 -1073741824.0) -> -2.0) ((3210 . 5625) (- -1073741826.0 -1073741823.0) -> -3.0) ((3211 . 5625) (- -1073741825.0 -1073741827.0) -> 2.0) ((3212 . 5625) (- -1073741825.0 -1073741826.0) -> 1.0) ((3213 . 5625) (- -1073741825.0 -1073741825.0) -> 0.0) ((3214 . 5625) (- -1073741825.0 -1073741824.0) -> -1.0) ((3215 . 5625) (- -1073741825.0 -1073741823.0) -> -2.0) ((3216 . 5625) (- -1073741824.0 -1073741827.0) -> 3.0) ((3217 . 5625) (- -1073741824.0 -1073741826.0) -> 2.0) ((3218 . 5625) (- -1073741824.0 -1073741825.0) -> 1.0) ((3219 . 5625) (- -1073741824.0 -1073741824.0) -> 0.0) ((3220 . 5625) (- -1073741824.0 -1073741823.0) -> -1.0) ((3221 . 5625) (- -1073741823.0 -1073741827.0) -> 4.0) ((3222 . 5625) (- -1073741823.0 -1073741826.0) -> 3.0) ((3223 . 5625) (- -1073741823.0 -1073741825.0) -> 2.0) ((3224 . 5625) (- -1073741823.0 -1073741824.0) -> 1.0) ((3225 . 5625) (- -1073741823.0 -1073741823.0) -> 0.0) ((3226 . 5625) (- -1073741827.0 1103515243.0) -> -2177257070.0) ((3227 . 5625) (- -1073741827.0 1103515244.0) -> -2177257071.0) ((3228 . 5625) (- -1073741827.0 1103515245.0) -> -2177257072.0) ((3229 . 5625) (- -1073741827.0 1103515246.0) -> -2177257073.0) ((3230 . 5625) (- -1073741827.0 1103515247.0) -> -2177257074.0) ((3231 . 5625) (- -1073741826.0 1103515243.0) -> -2177257069.0) ((3232 . 5625) (- -1073741826.0 1103515244.0) -> -2177257070.0) ((3233 . 5625) (- -1073741826.0 1103515245.0) -> -2177257071.0) ((3234 . 5625) (- -1073741826.0 1103515246.0) -> -2177257072.0) ((3235 . 5625) (- -1073741826.0 1103515247.0) -> -2177257073.0) ((3236 . 5625) (- -1073741825.0 1103515243.0) -> -2177257068.0) ((3237 . 5625) (- -1073741825.0 1103515244.0) -> -2177257069.0) ((3238 . 5625) (- -1073741825.0 1103515245.0) -> -2177257070.0) ((3239 . 5625) (- -1073741825.0 1103515246.0) -> -2177257071.0) ((3240 . 5625) (- -1073741825.0 1103515247.0) -> -2177257072.0) ((3241 . 5625) (- -1073741824.0 1103515243.0) -> -2177257067.0) ((3242 . 5625) (- -1073741824.0 1103515244.0) -> -2177257068.0) ((3243 . 5625) (- -1073741824.0 1103515245.0) -> -2177257069.0) ((3244 . 5625) (- -1073741824.0 1103515246.0) -> -2177257070.0) ((3245 . 5625) (- -1073741824.0 1103515247.0) -> -2177257071.0) ((3246 . 5625) (- -1073741823.0 1103515243.0) -> -2177257066.0) ((3247 . 5625) (- -1073741823.0 1103515244.0) -> -2177257067.0) ((3248 . 5625) (- -1073741823.0 1103515245.0) -> -2177257068.0) ((3249 . 5625) (- -1073741823.0 1103515246.0) -> -2177257069.0) ((3250 . 5625) (- -1073741823.0 1103515247.0) -> -2177257070.0) ((3251 . 5625) (- -1073741827.0 631629063) -> -1705370890.0) ((3252 . 5625) (- -1073741827.0 631629064) -> -1705370891.0) ((3253 . 5625) (- -1073741827.0 631629065) -> -1705370892.0) ((3254 . 5625) (- -1073741827.0 631629066) -> -1705370893.0) ((3255 . 5625) (- -1073741827.0 631629067) -> -1705370894.0) ((3256 . 5625) (- -1073741826.0 631629063) -> -1705370889.0) ((3257 . 5625) (- -1073741826.0 631629064) -> -1705370890.0) ((3258 . 5625) (- -1073741826.0 631629065) -> -1705370891.0) ((3259 . 5625) (- -1073741826.0 631629066) -> -1705370892.0) ((3260 . 5625) (- -1073741826.0 631629067) -> -1705370893.0) ((3261 . 5625) (- -1073741825.0 631629063) -> -1705370888.0) ((3262 . 5625) (- -1073741825.0 631629064) -> -1705370889.0) ((3263 . 5625) (- -1073741825.0 631629065) -> -1705370890.0) ((3264 . 5625) (- -1073741825.0 631629066) -> -1705370891.0) ((3265 . 5625) (- -1073741825.0 631629067) -> -1705370892.0) ((3266 . 5625) (- -1073741824.0 631629063) -> -1705370887.0) ((3267 . 5625) (- -1073741824.0 631629064) -> -1705370888.0) ((3268 . 5625) (- -1073741824.0 631629065) -> -1705370889.0) ((3269 . 5625) (- -1073741824.0 631629066) -> -1705370890.0) ((3270 . 5625) (- -1073741824.0 631629067) -> -1705370891.0) ((3271 . 5625) (- -1073741823.0 631629063) -> -1705370886.0) ((3272 . 5625) (- -1073741823.0 631629064) -> -1705370887.0) ((3273 . 5625) (- -1073741823.0 631629065) -> -1705370888.0) ((3274 . 5625) (- -1073741823.0 631629066) -> -1705370889.0) ((3275 . 5625) (- -1073741823.0 631629067) -> -1705370890.0) ((3276 . 5625) (- -1073741827.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3277 . 5625) (- -1073741827.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3278 . 5625) (- -1073741827.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3279 . 5625) (- -1073741827.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3280 . 5625) (- -1073741827.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3281 . 5625) (- -1073741826.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3282 . 5625) (- -1073741826.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3283 . 5625) (- -1073741826.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3284 . 5625) (- -1073741826.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3285 . 5625) (- -1073741826.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3286 . 5625) (- -1073741825.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3287 . 5625) (- -1073741825.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3288 . 5625) (- -1073741825.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3289 . 5625) (- -1073741825.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3290 . 5625) (- -1073741825.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3291 . 5625) (- -1073741824.0 9.00719925474099e+15) -> -9.00720032848281e+15) ((3292 . 5625) (- -1073741824.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3293 . 5625) (- -1073741824.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3294 . 5625) (- -1073741824.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3295 . 5625) (- -1073741824.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3296 . 5625) (- -1073741823.0 9.00719925474099e+15) -> -9.00720032848281e+15) ((3297 . 5625) (- -1073741823.0 9.00719925474099e+15) -> -9.00720032848281e+15) ((3298 . 5625) (- -1073741823.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3299 . 5625) (- -1073741823.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3300 . 5625) (- -1073741823.0 9.00719925474099e+15) -> -9.00720032848282e+15) ((3301 . 5625) (- -1073741827.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((3302 . 5625) (- -1073741827.0 -9.00719925474099e+15) -> 9.00719818099916e+15) ((3303 . 5625) (- -1073741827.0 -9.00719925474099e+15) -> 9.00719818099916e+15) ((3304 . 5625) (- -1073741827.0 -9.00719925474099e+15) -> 9.00719818099916e+15) ((3305 . 5625) (- -1073741827.0 -9.00719925474099e+15) -> 9.00719818099916e+15) ((3306 . 5625) (- -1073741826.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((3307 . 5625) (- -1073741826.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((3308 . 5625) (- -1073741826.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((3309 . 5625) (- -1073741826.0 -9.00719925474099e+15) -> 9.00719818099916e+15) ((3310 . 5625) (- -1073741826.0 -9.00719925474099e+15) -> 9.00719818099916e+15) ((3311 . 5625) (- -1073741825.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((3312 . 5625) (- -1073741825.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((3313 . 5625) (- -1073741825.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((3314 . 5625) (- -1073741825.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((3315 . 5625) (- -1073741825.0 -9.00719925474099e+15) -> 9.00719818099916e+15) ((3316 . 5625) (- -1073741824.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((3317 . 5625) (- -1073741824.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((3318 . 5625) (- -1073741824.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((3319 . 5625) (- -1073741824.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((3320 . 5625) (- -1073741824.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((3321 . 5625) (- -1073741823.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((3322 . 5625) (- -1073741823.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((3323 . 5625) (- -1073741823.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((3324 . 5625) (- -1073741823.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((3325 . 5625) (- -1073741823.0 -9.00719925474099e+15) -> 9.00719818099917e+15) ((3326 . 5625) (- -1073741827.0 12343) -> -1073754170.0) ((3327 . 5625) (- -1073741827.0 12344) -> -1073754171.0) ((3328 . 5625) (- -1073741827.0 12345) -> -1073754172.0) ((3329 . 5625) (- -1073741827.0 12346) -> -1073754173.0) ((3330 . 5625) (- -1073741827.0 12347) -> -1073754174.0) ((3331 . 5625) (- -1073741826.0 12343) -> -1073754169.0) ((3332 . 5625) (- -1073741826.0 12344) -> -1073754170.0) ((3333 . 5625) (- -1073741826.0 12345) -> -1073754171.0) ((3334 . 5625) (- -1073741826.0 12346) -> -1073754172.0) ((3335 . 5625) (- -1073741826.0 12347) -> -1073754173.0) ((3336 . 5625) (- -1073741825.0 12343) -> -1073754168.0) ((3337 . 5625) (- -1073741825.0 12344) -> -1073754169.0) ((3338 . 5625) (- -1073741825.0 12345) -> -1073754170.0) ((3339 . 5625) (- -1073741825.0 12346) -> -1073754171.0) ((3340 . 5625) (- -1073741825.0 12347) -> -1073754172.0) ((3341 . 5625) (- -1073741824.0 12343) -> -1073754167.0) ((3342 . 5625) (- -1073741824.0 12344) -> -1073754168.0) ((3343 . 5625) (- -1073741824.0 12345) -> -1073754169.0) ((3344 . 5625) (- -1073741824.0 12346) -> -1073754170.0) ((3345 . 5625) (- -1073741824.0 12347) -> -1073754171.0) ((3346 . 5625) (- -1073741823.0 12343) -> -1073754166.0) ((3347 . 5625) (- -1073741823.0 12344) -> -1073754167.0) ((3348 . 5625) (- -1073741823.0 12345) -> -1073754168.0) ((3349 . 5625) (- -1073741823.0 12346) -> -1073754169.0) ((3350 . 5625) (- -1073741823.0 12347) -> -1073754170.0) ((3351 . 5625) (- -1073741827.0 4294967294.0) -> -5368709121.0) ((3352 . 5625) (- -1073741827.0 4294967295.0) -> -5368709122.0) ((3353 . 5625) (- -1073741827.0 4294967296.0) -> -5368709123.0) ((3354 . 5625) (- -1073741827.0 4294967297.0) -> -5368709124.0) ((3355 . 5625) (- -1073741827.0 4294967298.0) -> -5368709125.0) ((3356 . 5625) (- -1073741826.0 4294967294.0) -> -5368709120.0) ((3357 . 5625) (- -1073741826.0 4294967295.0) -> -5368709121.0) ((3358 . 5625) (- -1073741826.0 4294967296.0) -> -5368709122.0) ((3359 . 5625) (- -1073741826.0 4294967297.0) -> -5368709123.0) ((3360 . 5625) (- -1073741826.0 4294967298.0) -> -5368709124.0) ((3361 . 5625) (- -1073741825.0 4294967294.0) -> -5368709119.0) ((3362 . 5625) (- -1073741825.0 4294967295.0) -> -5368709120.0) ((3363 . 5625) (- -1073741825.0 4294967296.0) -> -5368709121.0) ((3364 . 5625) (- -1073741825.0 4294967297.0) -> -5368709122.0) ((3365 . 5625) (- -1073741825.0 4294967298.0) -> -5368709123.0) ((3366 . 5625) (- -1073741824.0 4294967294.0) -> -5368709118.0) ((3367 . 5625) (- -1073741824.0 4294967295.0) -> -5368709119.0) ((3368 . 5625) (- -1073741824.0 4294967296.0) -> -5368709120.0) ((3369 . 5625) (- -1073741824.0 4294967297.0) -> -5368709121.0) ((3370 . 5625) (- -1073741824.0 4294967298.0) -> -5368709122.0) ((3371 . 5625) (- -1073741823.0 4294967294.0) -> -5368709117.0) ((3372 . 5625) (- -1073741823.0 4294967295.0) -> -5368709118.0) ((3373 . 5625) (- -1073741823.0 4294967296.0) -> -5368709119.0) ((3374 . 5625) (- -1073741823.0 4294967297.0) -> -5368709120.0) ((3375 . 5625) (- -1073741823.0 4294967298.0) -> -5368709121.0) ((3376 . 5625) (- 1103515243.0 -2) -> 1103515245.0) ((3377 . 5625) (- 1103515243.0 -1) -> 1103515244.0) ((3378 . 5625) (- 1103515243.0 0) -> 1103515243.0) ((3379 . 5625) (- 1103515243.0 1) -> 1103515242.0) ((3380 . 5625) (- 1103515243.0 2) -> 1103515241.0) ((3381 . 5625) (- 1103515244.0 -2) -> 1103515246.0) ((3382 . 5625) (- 1103515244.0 -1) -> 1103515245.0) ((3383 . 5625) (- 1103515244.0 0) -> 1103515244.0) ((3384 . 5625) (- 1103515244.0 1) -> 1103515243.0) ((3385 . 5625) (- 1103515244.0 2) -> 1103515242.0) ((3386 . 5625) (- 1103515245.0 -2) -> 1103515247.0) ((3387 . 5625) (- 1103515245.0 -1) -> 1103515246.0) ((3388 . 5625) (- 1103515245.0 0) -> 1103515245.0) ((3389 . 5625) (- 1103515245.0 1) -> 1103515244.0) ((3390 . 5625) (- 1103515245.0 2) -> 1103515243.0) ((3391 . 5625) (- 1103515246.0 -2) -> 1103515248.0) ((3392 . 5625) (- 1103515246.0 -1) -> 1103515247.0) ((3393 . 5625) (- 1103515246.0 0) -> 1103515246.0) ((3394 . 5625) (- 1103515246.0 1) -> 1103515245.0) ((3395 . 5625) (- 1103515246.0 2) -> 1103515244.0) ((3396 . 5625) (- 1103515247.0 -2) -> 1103515249.0) ((3397 . 5625) (- 1103515247.0 -1) -> 1103515248.0) ((3398 . 5625) (- 1103515247.0 0) -> 1103515247.0) ((3399 . 5625) (- 1103515247.0 1) -> 1103515246.0) ((3400 . 5625) (- 1103515247.0 2) -> 1103515245.0) ((3401 . 5625) (- 1103515243.0 -1) -> 1103515244.0) ((3402 . 5625) (- 1103515243.0 0) -> 1103515243.0) ((3403 . 5625) (- 1103515243.0 1) -> 1103515242.0) ((3404 . 5625) (- 1103515243.0 2) -> 1103515241.0) ((3405 . 5625) (- 1103515243.0 3) -> 1103515240.0) ((3406 . 5625) (- 1103515244.0 -1) -> 1103515245.0) ((3407 . 5625) (- 1103515244.0 0) -> 1103515244.0) ((3408 . 5625) (- 1103515244.0 1) -> 1103515243.0) ((3409 . 5625) (- 1103515244.0 2) -> 1103515242.0) ((3410 . 5625) (- 1103515244.0 3) -> 1103515241.0) ((3411 . 5625) (- 1103515245.0 -1) -> 1103515246.0) ((3412 . 5625) (- 1103515245.0 0) -> 1103515245.0) ((3413 . 5625) (- 1103515245.0 1) -> 1103515244.0) ((3414 . 5625) (- 1103515245.0 2) -> 1103515243.0) ((3415 . 5625) (- 1103515245.0 3) -> 1103515242.0) ((3416 . 5625) (- 1103515246.0 -1) -> 1103515247.0) ((3417 . 5625) (- 1103515246.0 0) -> 1103515246.0) ((3418 . 5625) (- 1103515246.0 1) -> 1103515245.0) ((3419 . 5625) (- 1103515246.0 2) -> 1103515244.0) ((3420 . 5625) (- 1103515246.0 3) -> 1103515243.0) ((3421 . 5625) (- 1103515247.0 -1) -> 1103515248.0) ((3422 . 5625) (- 1103515247.0 0) -> 1103515247.0) ((3423 . 5625) (- 1103515247.0 1) -> 1103515246.0) ((3424 . 5625) (- 1103515247.0 2) -> 1103515245.0) ((3425 . 5625) (- 1103515247.0 3) -> 1103515244.0) ((3426 . 5625) (- 1103515243.0 -3) -> 1103515246.0) ((3427 . 5625) (- 1103515243.0 -2) -> 1103515245.0) ((3428 . 5625) (- 1103515243.0 -1) -> 1103515244.0) ((3429 . 5625) (- 1103515243.0 0) -> 1103515243.0) ((3430 . 5625) (- 1103515243.0 1) -> 1103515242.0) ((3431 . 5625) (- 1103515244.0 -3) -> 1103515247.0) ((3432 . 5625) (- 1103515244.0 -2) -> 1103515246.0) ((3433 . 5625) (- 1103515244.0 -1) -> 1103515245.0) ((3434 . 5625) (- 1103515244.0 0) -> 1103515244.0) ((3435 . 5625) (- 1103515244.0 1) -> 1103515243.0) ((3436 . 5625) (- 1103515245.0 -3) -> 1103515248.0) ((3437 . 5625) (- 1103515245.0 -2) -> 1103515247.0) ((3438 . 5625) (- 1103515245.0 -1) -> 1103515246.0) ((3439 . 5625) (- 1103515245.0 0) -> 1103515245.0) ((3440 . 5625) (- 1103515245.0 1) -> 1103515244.0) ((3441 . 5625) (- 1103515246.0 -3) -> 1103515249.0) ((3442 . 5625) (- 1103515246.0 -2) -> 1103515248.0) ((3443 . 5625) (- 1103515246.0 -1) -> 1103515247.0) ((3444 . 5625) (- 1103515246.0 0) -> 1103515246.0) ((3445 . 5625) (- 1103515246.0 1) -> 1103515245.0) ((3446 . 5625) (- 1103515247.0 -3) -> 1103515250.0) ((3447 . 5625) (- 1103515247.0 -2) -> 1103515249.0) ((3448 . 5625) (- 1103515247.0 -1) -> 1103515248.0) ((3449 . 5625) (- 1103515247.0 0) -> 1103515247.0) ((3450 . 5625) (- 1103515247.0 1) -> 1103515246.0) ((3451 . 5625) (- 1103515243.0 0) -> 1103515243.0) ((3452 . 5625) (- 1103515243.0 1) -> 1103515242.0) ((3453 . 5625) (- 1103515243.0 2) -> 1103515241.0) ((3454 . 5625) (- 1103515243.0 3) -> 1103515240.0) ((3455 . 5625) (- 1103515243.0 4) -> 1103515239.0) ((3456 . 5625) (- 1103515244.0 0) -> 1103515244.0) ((3457 . 5625) (- 1103515244.0 1) -> 1103515243.0) ((3458 . 5625) (- 1103515244.0 2) -> 1103515242.0) ((3459 . 5625) (- 1103515244.0 3) -> 1103515241.0) ((3460 . 5625) (- 1103515244.0 4) -> 1103515240.0) ((3461 . 5625) (- 1103515245.0 0) -> 1103515245.0) ((3462 . 5625) (- 1103515245.0 1) -> 1103515244.0) ((3463 . 5625) (- 1103515245.0 2) -> 1103515243.0) ((3464 . 5625) (- 1103515245.0 3) -> 1103515242.0) ((3465 . 5625) (- 1103515245.0 4) -> 1103515241.0) ((3466 . 5625) (- 1103515246.0 0) -> 1103515246.0) ((3467 . 5625) (- 1103515246.0 1) -> 1103515245.0) ((3468 . 5625) (- 1103515246.0 2) -> 1103515244.0) ((3469 . 5625) (- 1103515246.0 3) -> 1103515243.0) ((3470 . 5625) (- 1103515246.0 4) -> 1103515242.0) ((3471 . 5625) (- 1103515247.0 0) -> 1103515247.0) ((3472 . 5625) (- 1103515247.0 1) -> 1103515246.0) ((3473 . 5625) (- 1103515247.0 2) -> 1103515245.0) ((3474 . 5625) (- 1103515247.0 3) -> 1103515244.0) ((3475 . 5625) (- 1103515247.0 4) -> 1103515243.0) ((3476 . 5625) (- 1103515243.0 -4) -> 1103515247.0) ((3477 . 5625) (- 1103515243.0 -3) -> 1103515246.0) ((3478 . 5625) (- 1103515243.0 -2) -> 1103515245.0) ((3479 . 5625) (- 1103515243.0 -1) -> 1103515244.0) ((3480 . 5625) (- 1103515243.0 0) -> 1103515243.0) ((3481 . 5625) (- 1103515244.0 -4) -> 1103515248.0) ((3482 . 5625) (- 1103515244.0 -3) -> 1103515247.0) ((3483 . 5625) (- 1103515244.0 -2) -> 1103515246.0) ((3484 . 5625) (- 1103515244.0 -1) -> 1103515245.0) ((3485 . 5625) (- 1103515244.0 0) -> 1103515244.0) ((3486 . 5625) (- 1103515245.0 -4) -> 1103515249.0) ((3487 . 5625) (- 1103515245.0 -3) -> 1103515248.0) ((3488 . 5625) (- 1103515245.0 -2) -> 1103515247.0) ((3489 . 5625) (- 1103515245.0 -1) -> 1103515246.0) ((3490 . 5625) (- 1103515245.0 0) -> 1103515245.0) ((3491 . 5625) (- 1103515246.0 -4) -> 1103515250.0) ((3492 . 5625) (- 1103515246.0 -3) -> 1103515249.0) ((3493 . 5625) (- 1103515246.0 -2) -> 1103515248.0) ((3494 . 5625) (- 1103515246.0 -1) -> 1103515247.0) ((3495 . 5625) (- 1103515246.0 0) -> 1103515246.0) ((3496 . 5625) (- 1103515247.0 -4) -> 1103515251.0) ((3497 . 5625) (- 1103515247.0 -3) -> 1103515250.0) ((3498 . 5625) (- 1103515247.0 -2) -> 1103515249.0) ((3499 . 5625) (- 1103515247.0 -1) -> 1103515248.0) ((3500 . 5625) (- 1103515247.0 0) -> 1103515247.0) ((3501 . 5625) (- 1103515243.0 1073741821) -> 29773422.0) ((3502 . 5625) (- 1103515243.0 1073741822) -> 29773421.0) ((3503 . 5625) (- 1103515243.0 1073741823) -> 29773420.0) ((3504 . 5625) (- 1103515243.0 1073741824.0) -> 29773419.0) ((3505 . 5625) (- 1103515243.0 1073741825.0) -> 29773418.0) ((3506 . 5625) (- 1103515244.0 1073741821) -> 29773423.0) ((3507 . 5625) (- 1103515244.0 1073741822) -> 29773422.0) ((3508 . 5625) (- 1103515244.0 1073741823) -> 29773421.0) ((3509 . 5625) (- 1103515244.0 1073741824.0) -> 29773420.0) ((3510 . 5625) (- 1103515244.0 1073741825.0) -> 29773419.0) ((3511 . 5625) (- 1103515245.0 1073741821) -> 29773424.0) ((3512 . 5625) (- 1103515245.0 1073741822) -> 29773423.0) ((3513 . 5625) (- 1103515245.0 1073741823) -> 29773422.0) ((3514 . 5625) (- 1103515245.0 1073741824.0) -> 29773421.0) ((3515 . 5625) (- 1103515245.0 1073741825.0) -> 29773420.0) ((3516 . 5625) (- 1103515246.0 1073741821) -> 29773425.0) ((3517 . 5625) (- 1103515246.0 1073741822) -> 29773424.0) ((3518 . 5625) (- 1103515246.0 1073741823) -> 29773423.0) ((3519 . 5625) (- 1103515246.0 1073741824.0) -> 29773422.0) ((3520 . 5625) (- 1103515246.0 1073741825.0) -> 29773421.0) ((3521 . 5625) (- 1103515247.0 1073741821) -> 29773426.0) ((3522 . 5625) (- 1103515247.0 1073741822) -> 29773425.0) ((3523 . 5625) (- 1103515247.0 1073741823) -> 29773424.0) ((3524 . 5625) (- 1103515247.0 1073741824.0) -> 29773423.0) ((3525 . 5625) (- 1103515247.0 1073741825.0) -> 29773422.0) ((3526 . 5625) (- 1103515243.0 -1073741826.0) -> 2177257069.0) ((3527 . 5625) (- 1103515243.0 -1073741825.0) -> 2177257068.0) ((3528 . 5625) (- 1103515243.0 -1073741824) -> 2177257067.0) ((3529 . 5625) (- 1103515243.0 -1073741823) -> 2177257066.0) ((3530 . 5625) (- 1103515243.0 -1073741822) -> 2177257065.0) ((3531 . 5625) (- 1103515244.0 -1073741826.0) -> 2177257070.0) ((3532 . 5625) (- 1103515244.0 -1073741825.0) -> 2177257069.0) ((3533 . 5625) (- 1103515244.0 -1073741824) -> 2177257068.0) ((3534 . 5625) (- 1103515244.0 -1073741823) -> 2177257067.0) ((3535 . 5625) (- 1103515244.0 -1073741822) -> 2177257066.0) ((3536 . 5625) (- 1103515245.0 -1073741826.0) -> 2177257071.0) ((3537 . 5625) (- 1103515245.0 -1073741825.0) -> 2177257070.0) ((3538 . 5625) (- 1103515245.0 -1073741824) -> 2177257069.0) ((3539 . 5625) (- 1103515245.0 -1073741823) -> 2177257068.0) ((3540 . 5625) (- 1103515245.0 -1073741822) -> 2177257067.0) ((3541 . 5625) (- 1103515246.0 -1073741826.0) -> 2177257072.0) ((3542 . 5625) (- 1103515246.0 -1073741825.0) -> 2177257071.0) ((3543 . 5625) (- 1103515246.0 -1073741824) -> 2177257070.0) ((3544 . 5625) (- 1103515246.0 -1073741823) -> 2177257069.0) ((3545 . 5625) (- 1103515246.0 -1073741822) -> 2177257068.0) ((3546 . 5625) (- 1103515247.0 -1073741826.0) -> 2177257073.0) ((3547 . 5625) (- 1103515247.0 -1073741825.0) -> 2177257072.0) ((3548 . 5625) (- 1103515247.0 -1073741824) -> 2177257071.0) ((3549 . 5625) (- 1103515247.0 -1073741823) -> 2177257070.0) ((3550 . 5625) (- 1103515247.0 -1073741822) -> 2177257069.0) ((3551 . 5625) (- 1103515243.0 1073741822.0) -> 29773421.0) ((3552 . 5625) (- 1103515243.0 1073741823.0) -> 29773420.0) ((3553 . 5625) (- 1103515243.0 1073741824.0) -> 29773419.0) ((3554 . 5625) (- 1103515243.0 1073741825.0) -> 29773418.0) ((3555 . 5625) (- 1103515243.0 1073741826.0) -> 29773417.0) ((3556 . 5625) (- 1103515244.0 1073741822.0) -> 29773422.0) ((3557 . 5625) (- 1103515244.0 1073741823.0) -> 29773421.0) ((3558 . 5625) (- 1103515244.0 1073741824.0) -> 29773420.0) ((3559 . 5625) (- 1103515244.0 1073741825.0) -> 29773419.0) ((3560 . 5625) (- 1103515244.0 1073741826.0) -> 29773418.0) ((3561 . 5625) (- 1103515245.0 1073741822.0) -> 29773423.0) ((3562 . 5625) (- 1103515245.0 1073741823.0) -> 29773422.0) ((3563 . 5625) (- 1103515245.0 1073741824.0) -> 29773421.0) ((3564 . 5625) (- 1103515245.0 1073741825.0) -> 29773420.0) ((3565 . 5625) (- 1103515245.0 1073741826.0) -> 29773419.0) ((3566 . 5625) (- 1103515246.0 1073741822.0) -> 29773424.0) ((3567 . 5625) (- 1103515246.0 1073741823.0) -> 29773423.0) ((3568 . 5625) (- 1103515246.0 1073741824.0) -> 29773422.0) ((3569 . 5625) (- 1103515246.0 1073741825.0) -> 29773421.0) ((3570 . 5625) (- 1103515246.0 1073741826.0) -> 29773420.0) ((3571 . 5625) (- 1103515247.0 1073741822.0) -> 29773425.0) ((3572 . 5625) (- 1103515247.0 1073741823.0) -> 29773424.0) ((3573 . 5625) (- 1103515247.0 1073741824.0) -> 29773423.0) ((3574 . 5625) (- 1103515247.0 1073741825.0) -> 29773422.0) ((3575 . 5625) (- 1103515247.0 1073741826.0) -> 29773421.0) ((3576 . 5625) (- 1103515243.0 -1073741827.0) -> 2177257070.0) ((3577 . 5625) (- 1103515243.0 -1073741826.0) -> 2177257069.0) ((3578 . 5625) (- 1103515243.0 -1073741825.0) -> 2177257068.0) ((3579 . 5625) (- 1103515243.0 -1073741824.0) -> 2177257067.0) ((3580 . 5625) (- 1103515243.0 -1073741823.0) -> 2177257066.0) ((3581 . 5625) (- 1103515244.0 -1073741827.0) -> 2177257071.0) ((3582 . 5625) (- 1103515244.0 -1073741826.0) -> 2177257070.0) ((3583 . 5625) (- 1103515244.0 -1073741825.0) -> 2177257069.0) ((3584 . 5625) (- 1103515244.0 -1073741824.0) -> 2177257068.0) ((3585 . 5625) (- 1103515244.0 -1073741823.0) -> 2177257067.0) ((3586 . 5625) (- 1103515245.0 -1073741827.0) -> 2177257072.0) ((3587 . 5625) (- 1103515245.0 -1073741826.0) -> 2177257071.0) ((3588 . 5625) (- 1103515245.0 -1073741825.0) -> 2177257070.0) ((3589 . 5625) (- 1103515245.0 -1073741824.0) -> 2177257069.0) ((3590 . 5625) (- 1103515245.0 -1073741823.0) -> 2177257068.0) ((3591 . 5625) (- 1103515246.0 -1073741827.0) -> 2177257073.0) ((3592 . 5625) (- 1103515246.0 -1073741826.0) -> 2177257072.0) ((3593 . 5625) (- 1103515246.0 -1073741825.0) -> 2177257071.0) ((3594 . 5625) (- 1103515246.0 -1073741824.0) -> 2177257070.0) ((3595 . 5625) (- 1103515246.0 -1073741823.0) -> 2177257069.0) ((3596 . 5625) (- 1103515247.0 -1073741827.0) -> 2177257074.0) ((3597 . 5625) (- 1103515247.0 -1073741826.0) -> 2177257073.0) ((3598 . 5625) (- 1103515247.0 -1073741825.0) -> 2177257072.0) ((3599 . 5625) (- 1103515247.0 -1073741824.0) -> 2177257071.0) ((3600 . 5625) (- 1103515247.0 -1073741823.0) -> 2177257070.0) ((3601 . 5625) (- 1103515243.0 1103515243.0) -> 0.0) ((3602 . 5625) (- 1103515243.0 1103515244.0) -> -1.0) ((3603 . 5625) (- 1103515243.0 1103515245.0) -> -2.0) ((3604 . 5625) (- 1103515243.0 1103515246.0) -> -3.0) ((3605 . 5625) (- 1103515243.0 1103515247.0) -> -4.0) ((3606 . 5625) (- 1103515244.0 1103515243.0) -> 1.0) ((3607 . 5625) (- 1103515244.0 1103515244.0) -> 0.0) ((3608 . 5625) (- 1103515244.0 1103515245.0) -> -1.0) ((3609 . 5625) (- 1103515244.0 1103515246.0) -> -2.0) ((3610 . 5625) (- 1103515244.0 1103515247.0) -> -3.0) ((3611 . 5625) (- 1103515245.0 1103515243.0) -> 2.0) ((3612 . 5625) (- 1103515245.0 1103515244.0) -> 1.0) ((3613 . 5625) (- 1103515245.0 1103515245.0) -> 0.0) ((3614 . 5625) (- 1103515245.0 1103515246.0) -> -1.0) ((3615 . 5625) (- 1103515245.0 1103515247.0) -> -2.0) ((3616 . 5625) (- 1103515246.0 1103515243.0) -> 3.0) ((3617 . 5625) (- 1103515246.0 1103515244.0) -> 2.0) ((3618 . 5625) (- 1103515246.0 1103515245.0) -> 1.0) ((3619 . 5625) (- 1103515246.0 1103515246.0) -> 0.0) ((3620 . 5625) (- 1103515246.0 1103515247.0) -> -1.0) ((3621 . 5625) (- 1103515247.0 1103515243.0) -> 4.0) ((3622 . 5625) (- 1103515247.0 1103515244.0) -> 3.0) ((3623 . 5625) (- 1103515247.0 1103515245.0) -> 2.0) ((3624 . 5625) (- 1103515247.0 1103515246.0) -> 1.0) ((3625 . 5625) (- 1103515247.0 1103515247.0) -> 0.0) ((3626 . 5625) (- 1103515243.0 631629063) -> 471886180.0) ((3627 . 5625) (- 1103515243.0 631629064) -> 471886179.0) ((3628 . 5625) (- 1103515243.0 631629065) -> 471886178.0) ((3629 . 5625) (- 1103515243.0 631629066) -> 471886177.0) ((3630 . 5625) (- 1103515243.0 631629067) -> 471886176.0) ((3631 . 5625) (- 1103515244.0 631629063) -> 471886181.0) ((3632 . 5625) (- 1103515244.0 631629064) -> 471886180.0) ((3633 . 5625) (- 1103515244.0 631629065) -> 471886179.0) ((3634 . 5625) (- 1103515244.0 631629066) -> 471886178.0) ((3635 . 5625) (- 1103515244.0 631629067) -> 471886177.0) ((3636 . 5625) (- 1103515245.0 631629063) -> 471886182.0) ((3637 . 5625) (- 1103515245.0 631629064) -> 471886181.0) ((3638 . 5625) (- 1103515245.0 631629065) -> 471886180.0) ((3639 . 5625) (- 1103515245.0 631629066) -> 471886179.0) ((3640 . 5625) (- 1103515245.0 631629067) -> 471886178.0) ((3641 . 5625) (- 1103515246.0 631629063) -> 471886183.0) ((3642 . 5625) (- 1103515246.0 631629064) -> 471886182.0) ((3643 . 5625) (- 1103515246.0 631629065) -> 471886181.0) ((3644 . 5625) (- 1103515246.0 631629066) -> 471886180.0) ((3645 . 5625) (- 1103515246.0 631629067) -> 471886179.0) ((3646 . 5625) (- 1103515247.0 631629063) -> 471886184.0) ((3647 . 5625) (- 1103515247.0 631629064) -> 471886183.0) ((3648 . 5625) (- 1103515247.0 631629065) -> 471886182.0) ((3649 . 5625) (- 1103515247.0 631629066) -> 471886181.0) ((3650 . 5625) (- 1103515247.0 631629067) -> 471886180.0) ((3651 . 5625) (- 1103515243.0 9.00719925474099e+15) -> -9.00719815122575e+15) ((3652 . 5625) (- 1103515243.0 9.00719925474099e+15) -> -9.00719815122575e+15) ((3653 . 5625) (- 1103515243.0 9.00719925474099e+15) -> -9.00719815122575e+15) ((3654 . 5625) (- 1103515243.0 9.00719925474099e+15) -> -9.00719815122575e+15) ((3655 . 5625) (- 1103515243.0 9.00719925474099e+15) -> -9.00719815122575e+15) ((3656 . 5625) (- 1103515244.0 9.00719925474099e+15) -> -9.00719815122575e+15) ((3657 . 5625) (- 1103515244.0 9.00719925474099e+15) -> -9.00719815122575e+15) ((3658 . 5625) (- 1103515244.0 9.00719925474099e+15) -> -9.00719815122575e+15) ((3659 . 5625) (- 1103515244.0 9.00719925474099e+15) -> -9.00719815122575e+15) ((3660 . 5625) (- 1103515244.0 9.00719925474099e+15) -> -9.00719815122575e+15) ((3661 . 5625) (- 1103515245.0 9.00719925474099e+15) -> -9.00719815122574e+15) ((3662 . 5625) (- 1103515245.0 9.00719925474099e+15) -> -9.00719815122575e+15) ((3663 . 5625) (- 1103515245.0 9.00719925474099e+15) -> -9.00719815122575e+15) ((3664 . 5625) (- 1103515245.0 9.00719925474099e+15) -> -9.00719815122575e+15) ((3665 . 5625) (- 1103515245.0 9.00719925474099e+15) -> -9.00719815122575e+15) ((3666 . 5625) (- 1103515246.0 9.00719925474099e+15) -> -9.00719815122574e+15) ((3667 . 5625) (- 1103515246.0 9.00719925474099e+15) -> -9.00719815122574e+15) ((3668 . 5625) (- 1103515246.0 9.00719925474099e+15) -> -9.00719815122575e+15) ((3669 . 5625) (- 1103515246.0 9.00719925474099e+15) -> -9.00719815122575e+15) ((3670 . 5625) (- 1103515246.0 9.00719925474099e+15) -> -9.00719815122575e+15) ((3671 . 5625) (- 1103515247.0 9.00719925474099e+15) -> -9.00719815122574e+15) ((3672 . 5625) (- 1103515247.0 9.00719925474099e+15) -> -9.00719815122574e+15) ((3673 . 5625) (- 1103515247.0 9.00719925474099e+15) -> -9.00719815122574e+15) ((3674 . 5625) (- 1103515247.0 9.00719925474099e+15) -> -9.00719815122574e+15) ((3675 . 5625) (- 1103515247.0 9.00719925474099e+15) -> -9.00719815122575e+15) ((3676 . 5625) (- 1103515243.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3677 . 5625) (- 1103515243.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3678 . 5625) (- 1103515243.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3679 . 5625) (- 1103515243.0 -9.00719925474099e+15) -> 9.00720035825623e+15) ((3680 . 5625) (- 1103515243.0 -9.00719925474099e+15) -> 9.00720035825623e+15) ((3681 . 5625) (- 1103515244.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3682 . 5625) (- 1103515244.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3683 . 5625) (- 1103515244.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3684 . 5625) (- 1103515244.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3685 . 5625) (- 1103515244.0 -9.00719925474099e+15) -> 9.00720035825623e+15) ((3686 . 5625) (- 1103515245.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3687 . 5625) (- 1103515245.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3688 . 5625) (- 1103515245.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3689 . 5625) (- 1103515245.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3690 . 5625) (- 1103515245.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3691 . 5625) (- 1103515246.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3692 . 5625) (- 1103515246.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3693 . 5625) (- 1103515246.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3694 . 5625) (- 1103515246.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3695 . 5625) (- 1103515246.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3696 . 5625) (- 1103515247.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3697 . 5625) (- 1103515247.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3698 . 5625) (- 1103515247.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3699 . 5625) (- 1103515247.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3700 . 5625) (- 1103515247.0 -9.00719925474099e+15) -> 9.00720035825624e+15) ((3701 . 5625) (- 1103515243.0 12343) -> 1103502900.0) ((3702 . 5625) (- 1103515243.0 12344) -> 1103502899.0) ((3703 . 5625) (- 1103515243.0 12345) -> 1103502898.0) ((3704 . 5625) (- 1103515243.0 12346) -> 1103502897.0) ((3705 . 5625) (- 1103515243.0 12347) -> 1103502896.0) ((3706 . 5625) (- 1103515244.0 12343) -> 1103502901.0) ((3707 . 5625) (- 1103515244.0 12344) -> 1103502900.0) ((3708 . 5625) (- 1103515244.0 12345) -> 1103502899.0) ((3709 . 5625) (- 1103515244.0 12346) -> 1103502898.0) ((3710 . 5625) (- 1103515244.0 12347) -> 1103502897.0) ((3711 . 5625) (- 1103515245.0 12343) -> 1103502902.0) ((3712 . 5625) (- 1103515245.0 12344) -> 1103502901.0) ((3713 . 5625) (- 1103515245.0 12345) -> 1103502900.0) ((3714 . 5625) (- 1103515245.0 12346) -> 1103502899.0) ((3715 . 5625) (- 1103515245.0 12347) -> 1103502898.0) ((3716 . 5625) (- 1103515246.0 12343) -> 1103502903.0) ((3717 . 5625) (- 1103515246.0 12344) -> 1103502902.0) ((3718 . 5625) (- 1103515246.0 12345) -> 1103502901.0) ((3719 . 5625) (- 1103515246.0 12346) -> 1103502900.0) ((3720 . 5625) (- 1103515246.0 12347) -> 1103502899.0) ((3721 . 5625) (- 1103515247.0 12343) -> 1103502904.0) ((3722 . 5625) (- 1103515247.0 12344) -> 1103502903.0) ((3723 . 5625) (- 1103515247.0 12345) -> 1103502902.0) ((3724 . 5625) (- 1103515247.0 12346) -> 1103502901.0) ((3725 . 5625) (- 1103515247.0 12347) -> 1103502900.0) ((3726 . 5625) (- 1103515243.0 4294967294.0) -> -3191452051.0) ((3727 . 5625) (- 1103515243.0 4294967295.0) -> -3191452052.0) ((3728 . 5625) (- 1103515243.0 4294967296.0) -> -3191452053.0) ((3729 . 5625) (- 1103515243.0 4294967297.0) -> -3191452054.0) ((3730 . 5625) (- 1103515243.0 4294967298.0) -> -3191452055.0) ((3731 . 5625) (- 1103515244.0 4294967294.0) -> -3191452050.0) ((3732 . 5625) (- 1103515244.0 4294967295.0) -> -3191452051.0) ((3733 . 5625) (- 1103515244.0 4294967296.0) -> -3191452052.0) ((3734 . 5625) (- 1103515244.0 4294967297.0) -> -3191452053.0) ((3735 . 5625) (- 1103515244.0 4294967298.0) -> -3191452054.0) ((3736 . 5625) (- 1103515245.0 4294967294.0) -> -3191452049.0) ((3737 . 5625) (- 1103515245.0 4294967295.0) -> -3191452050.0) ((3738 . 5625) (- 1103515245.0 4294967296.0) -> -3191452051.0) ((3739 . 5625) (- 1103515245.0 4294967297.0) -> -3191452052.0) ((3740 . 5625) (- 1103515245.0 4294967298.0) -> -3191452053.0) ((3741 . 5625) (- 1103515246.0 4294967294.0) -> -3191452048.0) ((3742 . 5625) (- 1103515246.0 4294967295.0) -> -3191452049.0) ((3743 . 5625) (- 1103515246.0 4294967296.0) -> -3191452050.0) ((3744 . 5625) (- 1103515246.0 4294967297.0) -> -3191452051.0) ((3745 . 5625) (- 1103515246.0 4294967298.0) -> -3191452052.0) ((3746 . 5625) (- 1103515247.0 4294967294.0) -> -3191452047.0) ((3747 . 5625) (- 1103515247.0 4294967295.0) -> -3191452048.0) ((3748 . 5625) (- 1103515247.0 4294967296.0) -> -3191452049.0) ((3749 . 5625) (- 1103515247.0 4294967297.0) -> -3191452050.0) ((3750 . 5625) (- 1103515247.0 4294967298.0) -> -3191452051.0) ((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.0) -> -442112761.0) ((3880 . 5625) (- 631629063 1073741825.0) -> -442112762.0) ((3881 . 5625) (- 631629064 1073741821) -> -442112757) ((3882 . 5625) (- 631629064 1073741822) -> -442112758) ((3883 . 5625) (- 631629064 1073741823) -> -442112759) ((3884 . 5625) (- 631629064 1073741824.0) -> -442112760.0) ((3885 . 5625) (- 631629064 1073741825.0) -> -442112761.0) ((3886 . 5625) (- 631629065 1073741821) -> -442112756) ((3887 . 5625) (- 631629065 1073741822) -> -442112757) ((3888 . 5625) (- 631629065 1073741823) -> -442112758) ((3889 . 5625) (- 631629065 1073741824.0) -> -442112759.0) ((3890 . 5625) (- 631629065 1073741825.0) -> -442112760.0) ((3891 . 5625) (- 631629066 1073741821) -> -442112755) ((3892 . 5625) (- 631629066 1073741822) -> -442112756) ((3893 . 5625) (- 631629066 1073741823) -> -442112757) ((3894 . 5625) (- 631629066 1073741824.0) -> -442112758.0) ((3895 . 5625) (- 631629066 1073741825.0) -> -442112759.0) ((3896 . 5625) (- 631629067 1073741821) -> -442112754) ((3897 . 5625) (- 631629067 1073741822) -> -442112755) ((3898 . 5625) (- 631629067 1073741823) -> -442112756) ((3899 . 5625) (- 631629067 1073741824.0) -> -442112757.0) ((3900 . 5625) (- 631629067 1073741825.0) -> -442112758.0) ((3901 . 5625) (- 631629063 -1073741826.0) -> 1705370889.0) ((3902 . 5625) (- 631629063 -1073741825.0) -> 1705370888.0) ((3903 . 5625) (- 631629063 -1073741824) -> 1705370887.0) ((3904 . 5625) (- 631629063 -1073741823) -> 1705370886.0) ((3905 . 5625) (- 631629063 -1073741822) -> 1705370885.0) ((3906 . 5625) (- 631629064 -1073741826.0) -> 1705370890.0) ((3907 . 5625) (- 631629064 -1073741825.0) -> 1705370889.0) ((3908 . 5625) (- 631629064 -1073741824) -> 1705370888.0) ((3909 . 5625) (- 631629064 -1073741823) -> 1705370887.0) ((3910 . 5625) (- 631629064 -1073741822) -> 1705370886.0) ((3911 . 5625) (- 631629065 -1073741826.0) -> 1705370891.0) ((3912 . 5625) (- 631629065 -1073741825.0) -> 1705370890.0) ((3913 . 5625) (- 631629065 -1073741824) -> 1705370889.0) ((3914 . 5625) (- 631629065 -1073741823) -> 1705370888.0) ((3915 . 5625) (- 631629065 -1073741822) -> 1705370887.0) ((3916 . 5625) (- 631629066 -1073741826.0) -> 1705370892.0) ((3917 . 5625) (- 631629066 -1073741825.0) -> 1705370891.0) ((3918 . 5625) (- 631629066 -1073741824) -> 1705370890.0) ((3919 . 5625) (- 631629066 -1073741823) -> 1705370889.0) ((3920 . 5625) (- 631629066 -1073741822) -> 1705370888.0) ((3921 . 5625) (- 631629067 -1073741826.0) -> 1705370893.0) ((3922 . 5625) (- 631629067 -1073741825.0) -> 1705370892.0) ((3923 . 5625) (- 631629067 -1073741824) -> 1705370891.0) ((3924 . 5625) (- 631629067 -1073741823) -> 1705370890.0) ((3925 . 5625) (- 631629067 -1073741822) -> 1705370889.0) ((3926 . 5625) (- 631629063 1073741822.0) -> -442112759.0) ((3927 . 5625) (- 631629063 1073741823.0) -> -442112760.0) ((3928 . 5625) (- 631629063 1073741824.0) -> -442112761.0) ((3929 . 5625) (- 631629063 1073741825.0) -> -442112762.0) ((3930 . 5625) (- 631629063 1073741826.0) -> -442112763.0) ((3931 . 5625) (- 631629064 1073741822.0) -> -442112758.0) ((3932 . 5625) (- 631629064 1073741823.0) -> -442112759.0) ((3933 . 5625) (- 631629064 1073741824.0) -> -442112760.0) ((3934 . 5625) (- 631629064 1073741825.0) -> -442112761.0) ((3935 . 5625) (- 631629064 1073741826.0) -> -442112762.0) ((3936 . 5625) (- 631629065 1073741822.0) -> -442112757.0) ((3937 . 5625) (- 631629065 1073741823.0) -> -442112758.0) ((3938 . 5625) (- 631629065 1073741824.0) -> -442112759.0) ((3939 . 5625) (- 631629065 1073741825.0) -> -442112760.0) ((3940 . 5625) (- 631629065 1073741826.0) -> -442112761.0) ((3941 . 5625) (- 631629066 1073741822.0) -> -442112756.0) ((3942 . 5625) (- 631629066 1073741823.0) -> -442112757.0) ((3943 . 5625) (- 631629066 1073741824.0) -> -442112758.0) ((3944 . 5625) (- 631629066 1073741825.0) -> -442112759.0) ((3945 . 5625) (- 631629066 1073741826.0) -> -442112760.0) ((3946 . 5625) (- 631629067 1073741822.0) -> -442112755.0) ((3947 . 5625) (- 631629067 1073741823.0) -> -442112756.0) ((3948 . 5625) (- 631629067 1073741824.0) -> -442112757.0) ((3949 . 5625) (- 631629067 1073741825.0) -> -442112758.0) ((3950 . 5625) (- 631629067 1073741826.0) -> -442112759.0) ((3951 . 5625) (- 631629063 -1073741827.0) -> 1705370890.0) ((3952 . 5625) (- 631629063 -1073741826.0) -> 1705370889.0) ((3953 . 5625) (- 631629063 -1073741825.0) -> 1705370888.0) ((3954 . 5625) (- 631629063 -1073741824.0) -> 1705370887.0) ((3955 . 5625) (- 631629063 -1073741823.0) -> 1705370886.0) ((3956 . 5625) (- 631629064 -1073741827.0) -> 1705370891.0) ((3957 . 5625) (- 631629064 -1073741826.0) -> 1705370890.0) ((3958 . 5625) (- 631629064 -1073741825.0) -> 1705370889.0) ((3959 . 5625) (- 631629064 -1073741824.0) -> 1705370888.0) ((3960 . 5625) (- 631629064 -1073741823.0) -> 1705370887.0) ((3961 . 5625) (- 631629065 -1073741827.0) -> 1705370892.0) ((3962 . 5625) (- 631629065 -1073741826.0) -> 1705370891.0) ((3963 . 5625) (- 631629065 -1073741825.0) -> 1705370890.0) ((3964 . 5625) (- 631629065 -1073741824.0) -> 1705370889.0) ((3965 . 5625) (- 631629065 -1073741823.0) -> 1705370888.0) ((3966 . 5625) (- 631629066 -1073741827.0) -> 1705370893.0) ((3967 . 5625) (- 631629066 -1073741826.0) -> 1705370892.0) ((3968 . 5625) (- 631629066 -1073741825.0) -> 1705370891.0) ((3969 . 5625) (- 631629066 -1073741824.0) -> 1705370890.0) ((3970 . 5625) (- 631629066 -1073741823.0) -> 1705370889.0) ((3971 . 5625) (- 631629067 -1073741827.0) -> 1705370894.0) ((3972 . 5625) (- 631629067 -1073741826.0) -> 1705370893.0) ((3973 . 5625) (- 631629067 -1073741825.0) -> 1705370892.0) ((3974 . 5625) (- 631629067 -1073741824.0) -> 1705370891.0) ((3975 . 5625) (- 631629067 -1073741823.0) -> 1705370890.0) ((3976 . 5625) (- 631629063 1103515243.0) -> -471886180.0) ((3977 . 5625) (- 631629063 1103515244.0) -> -471886181.0) ((3978 . 5625) (- 631629063 1103515245.0) -> -471886182.0) ((3979 . 5625) (- 631629063 1103515246.0) -> -471886183.0) ((3980 . 5625) (- 631629063 1103515247.0) -> -471886184.0) ((3981 . 5625) (- 631629064 1103515243.0) -> -471886179.0) ((3982 . 5625) (- 631629064 1103515244.0) -> -471886180.0) ((3983 . 5625) (- 631629064 1103515245.0) -> -471886181.0) ((3984 . 5625) (- 631629064 1103515246.0) -> -471886182.0) ((3985 . 5625) (- 631629064 1103515247.0) -> -471886183.0) ((3986 . 5625) (- 631629065 1103515243.0) -> -471886178.0) ((3987 . 5625) (- 631629065 1103515244.0) -> -471886179.0) ((3988 . 5625) (- 631629065 1103515245.0) -> -471886180.0) ((3989 . 5625) (- 631629065 1103515246.0) -> -471886181.0) ((3990 . 5625) (- 631629065 1103515247.0) -> -471886182.0) ((3991 . 5625) (- 631629066 1103515243.0) -> -471886177.0) ((3992 . 5625) (- 631629066 1103515244.0) -> -471886178.0) ((3993 . 5625) (- 631629066 1103515245.0) -> -471886179.0) ((3994 . 5625) (- 631629066 1103515246.0) -> -471886180.0) ((3995 . 5625) (- 631629066 1103515247.0) -> -471886181.0) ((3996 . 5625) (- 631629067 1103515243.0) -> -471886176.0) ((3997 . 5625) (- 631629067 1103515244.0) -> -471886177.0) ((3998 . 5625) (- 631629067 1103515245.0) -> -471886178.0) ((3999 . 5625) (- 631629067 1103515246.0) -> -471886179.0) ((4000 . 5625) (- 631629067 1103515247.0) -> -471886180.0) ((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 9.00719925474099e+15) -> -9.00719862311193e+15) ((4027 . 5625) (- 631629063 9.00719925474099e+15) -> -9.00719862311193e+15) ((4028 . 5625) (- 631629063 9.00719925474099e+15) -> -9.00719862311193e+15) ((4029 . 5625) (- 631629063 9.00719925474099e+15) -> -9.00719862311193e+15) ((4030 . 5625) (- 631629063 9.00719925474099e+15) -> -9.00719862311193e+15) ((4031 . 5625) (- 631629064 9.00719925474099e+15) -> -9.00719862311193e+15) ((4032 . 5625) (- 631629064 9.00719925474099e+15) -> -9.00719862311193e+15) ((4033 . 5625) (- 631629064 9.00719925474099e+15) -> -9.00719862311193e+15) ((4034 . 5625) (- 631629064 9.00719925474099e+15) -> -9.00719862311193e+15) ((4035 . 5625) (- 631629064 9.00719925474099e+15) -> -9.00719862311193e+15) ((4036 . 5625) (- 631629065 9.00719925474099e+15) -> -9.00719862311192e+15) ((4037 . 5625) (- 631629065 9.00719925474099e+15) -> -9.00719862311193e+15) ((4038 . 5625) (- 631629065 9.00719925474099e+15) -> -9.00719862311193e+15) ((4039 . 5625) (- 631629065 9.00719925474099e+15) -> -9.00719862311193e+15) ((4040 . 5625) (- 631629065 9.00719925474099e+15) -> -9.00719862311193e+15) ((4041 . 5625) (- 631629066 9.00719925474099e+15) -> -9.00719862311192e+15) ((4042 . 5625) (- 631629066 9.00719925474099e+15) -> -9.00719862311192e+15) ((4043 . 5625) (- 631629066 9.00719925474099e+15) -> -9.00719862311193e+15) ((4044 . 5625) (- 631629066 9.00719925474099e+15) -> -9.00719862311193e+15) ((4045 . 5625) (- 631629066 9.00719925474099e+15) -> -9.00719862311193e+15) ((4046 . 5625) (- 631629067 9.00719925474099e+15) -> -9.00719862311192e+15) ((4047 . 5625) (- 631629067 9.00719925474099e+15) -> -9.00719862311192e+15) ((4048 . 5625) (- 631629067 9.00719925474099e+15) -> -9.00719862311192e+15) ((4049 . 5625) (- 631629067 9.00719925474099e+15) -> -9.00719862311192e+15) ((4050 . 5625) (- 631629067 9.00719925474099e+15) -> -9.00719862311193e+15) ((4051 . 5625) (- 631629063 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4052 . 5625) (- 631629063 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4053 . 5625) (- 631629063 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4054 . 5625) (- 631629063 -9.00719925474099e+15) -> 9.00719988637005e+15) ((4055 . 5625) (- 631629063 -9.00719925474099e+15) -> 9.00719988637005e+15) ((4056 . 5625) (- 631629064 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4057 . 5625) (- 631629064 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4058 . 5625) (- 631629064 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4059 . 5625) (- 631629064 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4060 . 5625) (- 631629064 -9.00719925474099e+15) -> 9.00719988637005e+15) ((4061 . 5625) (- 631629065 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4062 . 5625) (- 631629065 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4063 . 5625) (- 631629065 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4064 . 5625) (- 631629065 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4065 . 5625) (- 631629065 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4066 . 5625) (- 631629066 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4067 . 5625) (- 631629066 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4068 . 5625) (- 631629066 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4069 . 5625) (- 631629066 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4070 . 5625) (- 631629066 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4071 . 5625) (- 631629067 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4072 . 5625) (- 631629067 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4073 . 5625) (- 631629067 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4074 . 5625) (- 631629067 -9.00719925474099e+15) -> 9.00719988637006e+15) ((4075 . 5625) (- 631629067 -9.00719925474099e+15) -> 9.00719988637006e+15) ((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.0) -> -3663338231.0) ((4102 . 5625) (- 631629063 4294967295.0) -> -3663338232.0) ((4103 . 5625) (- 631629063 4294967296.0) -> -3663338233.0) ((4104 . 5625) (- 631629063 4294967297.0) -> -3663338234.0) ((4105 . 5625) (- 631629063 4294967298.0) -> -3663338235.0) ((4106 . 5625) (- 631629064 4294967294.0) -> -3663338230.0) ((4107 . 5625) (- 631629064 4294967295.0) -> -3663338231.0) ((4108 . 5625) (- 631629064 4294967296.0) -> -3663338232.0) ((4109 . 5625) (- 631629064 4294967297.0) -> -3663338233.0) ((4110 . 5625) (- 631629064 4294967298.0) -> -3663338234.0) ((4111 . 5625) (- 631629065 4294967294.0) -> -3663338229.0) ((4112 . 5625) (- 631629065 4294967295.0) -> -3663338230.0) ((4113 . 5625) (- 631629065 4294967296.0) -> -3663338231.0) ((4114 . 5625) (- 631629065 4294967297.0) -> -3663338232.0) ((4115 . 5625) (- 631629065 4294967298.0) -> -3663338233.0) ((4116 . 5625) (- 631629066 4294967294.0) -> -3663338228.0) ((4117 . 5625) (- 631629066 4294967295.0) -> -3663338229.0) ((4118 . 5625) (- 631629066 4294967296.0) -> -3663338230.0) ((4119 . 5625) (- 631629066 4294967297.0) -> -3663338231.0) ((4120 . 5625) (- 631629066 4294967298.0) -> -3663338232.0) ((4121 . 5625) (- 631629067 4294967294.0) -> -3663338227.0) ((4122 . 5625) (- 631629067 4294967295.0) -> -3663338228.0) ((4123 . 5625) (- 631629067 4294967296.0) -> -3663338229.0) ((4124 . 5625) (- 631629067 4294967297.0) -> -3663338230.0) ((4125 . 5625) (- 631629067 4294967298.0) -> -3663338231.0) ((4126 . 5625) (- 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4127 . 5625) (- 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4128 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4129 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4130 . 5625) (- 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4131 . 5625) (- 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4132 . 5625) (- 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4133 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4134 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4135 . 5625) (- 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4136 . 5625) (- 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4137 . 5625) (- 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4138 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4139 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4140 . 5625) (- 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4141 . 5625) (- 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4142 . 5625) (- 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4143 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4144 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4145 . 5625) (- 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4146 . 5625) (- 9.00719925474099e+15 -2) -> 9.007199254741e+15) ((4147 . 5625) (- 9.00719925474099e+15 -1) -> 9.007199254741e+15) ((4148 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4149 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4150 . 5625) (- 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4151 . 5625) (- 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4152 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4153 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4154 . 5625) (- 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4155 . 5625) (- 9.00719925474099e+15 3) -> 9.00719925474099e+15) ((4156 . 5625) (- 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4157 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4158 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4159 . 5625) (- 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4160 . 5625) (- 9.00719925474099e+15 3) -> 9.00719925474099e+15) ((4161 . 5625) (- 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4162 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4163 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4164 . 5625) (- 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4165 . 5625) (- 9.00719925474099e+15 3) -> 9.00719925474099e+15) ((4166 . 5625) (- 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4167 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4168 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4169 . 5625) (- 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4170 . 5625) (- 9.00719925474099e+15 3) -> 9.00719925474099e+15) ((4171 . 5625) (- 9.00719925474099e+15 -1) -> 9.007199254741e+15) ((4172 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4173 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4174 . 5625) (- 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4175 . 5625) (- 9.00719925474099e+15 3) -> 9.00719925474099e+15) ((4176 . 5625) (- 9.00719925474099e+15 -3) -> 9.00719925474099e+15) ((4177 . 5625) (- 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4178 . 5625) (- 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4179 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4180 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4181 . 5625) (- 9.00719925474099e+15 -3) -> 9.00719925474099e+15) ((4182 . 5625) (- 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4183 . 5625) (- 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4184 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4185 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4186 . 5625) (- 9.00719925474099e+15 -3) -> 9.007199254741e+15) ((4187 . 5625) (- 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4188 . 5625) (- 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4189 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4190 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4191 . 5625) (- 9.00719925474099e+15 -3) -> 9.007199254741e+15) ((4192 . 5625) (- 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4193 . 5625) (- 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4194 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4195 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4196 . 5625) (- 9.00719925474099e+15 -3) -> 9.007199254741e+15) ((4197 . 5625) (- 9.00719925474099e+15 -2) -> 9.007199254741e+15) ((4198 . 5625) (- 9.00719925474099e+15 -1) -> 9.007199254741e+15) ((4199 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4200 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4201 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4202 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4203 . 5625) (- 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4204 . 5625) (- 9.00719925474099e+15 3) -> 9.00719925474099e+15) ((4205 . 5625) (- 9.00719925474099e+15 4) -> 9.00719925474099e+15) ((4206 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4207 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4208 . 5625) (- 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4209 . 5625) (- 9.00719925474099e+15 3) -> 9.00719925474099e+15) ((4210 . 5625) (- 9.00719925474099e+15 4) -> 9.00719925474099e+15) ((4211 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4212 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4213 . 5625) (- 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4214 . 5625) (- 9.00719925474099e+15 3) -> 9.00719925474099e+15) ((4215 . 5625) (- 9.00719925474099e+15 4) -> 9.00719925474099e+15) ((4216 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4217 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4218 . 5625) (- 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4219 . 5625) (- 9.00719925474099e+15 3) -> 9.00719925474099e+15) ((4220 . 5625) (- 9.00719925474099e+15 4) -> 9.00719925474099e+15) ((4221 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4222 . 5625) (- 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4223 . 5625) (- 9.00719925474099e+15 2) -> 9.00719925474099e+15) ((4224 . 5625) (- 9.00719925474099e+15 3) -> 9.00719925474099e+15) ((4225 . 5625) (- 9.00719925474099e+15 4) -> 9.00719925474099e+15) ((4226 . 5625) (- 9.00719925474099e+15 -4) -> 9.00719925474099e+15) ((4227 . 5625) (- 9.00719925474099e+15 -3) -> 9.00719925474099e+15) ((4228 . 5625) (- 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4229 . 5625) (- 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4230 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4231 . 5625) (- 9.00719925474099e+15 -4) -> 9.007199254741e+15) ((4232 . 5625) (- 9.00719925474099e+15 -3) -> 9.00719925474099e+15) ((4233 . 5625) (- 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4234 . 5625) (- 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4235 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4236 . 5625) (- 9.00719925474099e+15 -4) -> 9.007199254741e+15) ((4237 . 5625) (- 9.00719925474099e+15 -3) -> 9.007199254741e+15) ((4238 . 5625) (- 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4239 . 5625) (- 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4240 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4241 . 5625) (- 9.00719925474099e+15 -4) -> 9.007199254741e+15) ((4242 . 5625) (- 9.00719925474099e+15 -3) -> 9.007199254741e+15) ((4243 . 5625) (- 9.00719925474099e+15 -2) -> 9.00719925474099e+15) ((4244 . 5625) (- 9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4245 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4246 . 5625) (- 9.00719925474099e+15 -4) -> 9.007199254741e+15) ((4247 . 5625) (- 9.00719925474099e+15 -3) -> 9.007199254741e+15) ((4248 . 5625) (- 9.00719925474099e+15 -2) -> 9.007199254741e+15) ((4249 . 5625) (- 9.00719925474099e+15 -1) -> 9.007199254741e+15) ((4250 . 5625) (- 9.00719925474099e+15 0) -> 9.00719925474099e+15) ((4251 . 5625) (- 9.00719925474099e+15 1073741821) -> 9.00719818099917e+15) ((4252 . 5625) (- 9.00719925474099e+15 1073741822) -> 9.00719818099917e+15) ((4253 . 5625) (- 9.00719925474099e+15 1073741823) -> 9.00719818099917e+15) ((4254 . 5625) (- 9.00719925474099e+15 1073741824.0) -> 9.00719818099917e+15) ((4255 . 5625) (- 9.00719925474099e+15 1073741825.0) -> 9.00719818099916e+15) ((4256 . 5625) (- 9.00719925474099e+15 1073741821) -> 9.00719818099917e+15) ((4257 . 5625) (- 9.00719925474099e+15 1073741822) -> 9.00719818099917e+15) ((4258 . 5625) (- 9.00719925474099e+15 1073741823) -> 9.00719818099917e+15) ((4259 . 5625) (- 9.00719925474099e+15 1073741824.0) -> 9.00719818099917e+15) ((4260 . 5625) (- 9.00719925474099e+15 1073741825.0) -> 9.00719818099917e+15) ((4261 . 5625) (- 9.00719925474099e+15 1073741821) -> 9.00719818099917e+15) ((4262 . 5625) (- 9.00719925474099e+15 1073741822) -> 9.00719818099917e+15) ((4263 . 5625) (- 9.00719925474099e+15 1073741823) -> 9.00719818099917e+15) ((4264 . 5625) (- 9.00719925474099e+15 1073741824.0) -> 9.00719818099917e+15) ((4265 . 5625) (- 9.00719925474099e+15 1073741825.0) -> 9.00719818099917e+15) ((4266 . 5625) (- 9.00719925474099e+15 1073741821) -> 9.00719818099917e+15) ((4267 . 5625) (- 9.00719925474099e+15 1073741822) -> 9.00719818099917e+15) ((4268 . 5625) (- 9.00719925474099e+15 1073741823) -> 9.00719818099917e+15) ((4269 . 5625) (- 9.00719925474099e+15 1073741824.0) -> 9.00719818099917e+15) ((4270 . 5625) (- 9.00719925474099e+15 1073741825.0) -> 9.00719818099917e+15) ((4271 . 5625) (- 9.00719925474099e+15 1073741821) -> 9.00719818099917e+15) ((4272 . 5625) (- 9.00719925474099e+15 1073741822) -> 9.00719818099917e+15) ((4273 . 5625) (- 9.00719925474099e+15 1073741823) -> 9.00719818099917e+15) ((4274 . 5625) (- 9.00719925474099e+15 1073741824.0) -> 9.00719818099917e+15) ((4275 . 5625) (- 9.00719925474099e+15 1073741825.0) -> 9.00719818099917e+15) ((4276 . 5625) (- 9.00719925474099e+15 -1073741826.0) -> 9.00720032848282e+15) ((4277 . 5625) (- 9.00719925474099e+15 -1073741825.0) -> 9.00720032848282e+15) ((4278 . 5625) (- 9.00719925474099e+15 -1073741824) -> 9.00720032848281e+15) ((4279 . 5625) (- 9.00719925474099e+15 -1073741823) -> 9.00720032848281e+15) ((4280 . 5625) (- 9.00719925474099e+15 -1073741822) -> 9.00720032848281e+15) ((4281 . 5625) (- 9.00719925474099e+15 -1073741826.0) -> 9.00720032848282e+15) ((4282 . 5625) (- 9.00719925474099e+15 -1073741825.0) -> 9.00720032848282e+15) ((4283 . 5625) (- 9.00719925474099e+15 -1073741824) -> 9.00720032848282e+15) ((4284 . 5625) (- 9.00719925474099e+15 -1073741823) -> 9.00720032848281e+15) ((4285 . 5625) (- 9.00719925474099e+15 -1073741822) -> 9.00720032848281e+15) ((4286 . 5625) (- 9.00719925474099e+15 -1073741826.0) -> 9.00720032848282e+15) ((4287 . 5625) (- 9.00719925474099e+15 -1073741825.0) -> 9.00720032848282e+15) ((4288 . 5625) (- 9.00719925474099e+15 -1073741824) -> 9.00720032848282e+15) ((4289 . 5625) (- 9.00719925474099e+15 -1073741823) -> 9.00720032848282e+15) ((4290 . 5625) (- 9.00719925474099e+15 -1073741822) -> 9.00720032848281e+15) ((4291 . 5625) (- 9.00719925474099e+15 -1073741826.0) -> 9.00720032848282e+15) ((4292 . 5625) (- 9.00719925474099e+15 -1073741825.0) -> 9.00720032848282e+15) ((4293 . 5625) (- 9.00719925474099e+15 -1073741824) -> 9.00720032848282e+15) ((4294 . 5625) (- 9.00719925474099e+15 -1073741823) -> 9.00720032848282e+15) ((4295 . 5625) (- 9.00719925474099e+15 -1073741822) -> 9.00720032848281e+15) ((4296 . 5625) (- 9.00719925474099e+15 -1073741826.0) -> 9.00720032848282e+15) ((4297 . 5625) (- 9.00719925474099e+15 -1073741825.0) -> 9.00720032848282e+15) ((4298 . 5625) (- 9.00719925474099e+15 -1073741824) -> 9.00720032848282e+15) ((4299 . 5625) (- 9.00719925474099e+15 -1073741823) -> 9.00720032848282e+15) ((4300 . 5625) (- 9.00719925474099e+15 -1073741822) -> 9.00720032848282e+15) ((4301 . 5625) (- 9.00719925474099e+15 1073741822.0) -> 9.00719818099917e+15) ((4302 . 5625) (- 9.00719925474099e+15 1073741823.0) -> 9.00719818099917e+15) ((4303 . 5625) (- 9.00719925474099e+15 1073741824.0) -> 9.00719818099917e+15) ((4304 . 5625) (- 9.00719925474099e+15 1073741825.0) -> 9.00719818099916e+15) ((4305 . 5625) (- 9.00719925474099e+15 1073741826.0) -> 9.00719818099916e+15) ((4306 . 5625) (- 9.00719925474099e+15 1073741822.0) -> 9.00719818099917e+15) ((4307 . 5625) (- 9.00719925474099e+15 1073741823.0) -> 9.00719818099917e+15) ((4308 . 5625) (- 9.00719925474099e+15 1073741824.0) -> 9.00719818099917e+15) ((4309 . 5625) (- 9.00719925474099e+15 1073741825.0) -> 9.00719818099917e+15) ((4310 . 5625) (- 9.00719925474099e+15 1073741826.0) -> 9.00719818099916e+15) ((4311 . 5625) (- 9.00719925474099e+15 1073741822.0) -> 9.00719818099917e+15) ((4312 . 5625) (- 9.00719925474099e+15 1073741823.0) -> 9.00719818099917e+15) ((4313 . 5625) (- 9.00719925474099e+15 1073741824.0) -> 9.00719818099917e+15) ((4314 . 5625) (- 9.00719925474099e+15 1073741825.0) -> 9.00719818099917e+15) ((4315 . 5625) (- 9.00719925474099e+15 1073741826.0) -> 9.00719818099917e+15) ((4316 . 5625) (- 9.00719925474099e+15 1073741822.0) -> 9.00719818099917e+15) ((4317 . 5625) (- 9.00719925474099e+15 1073741823.0) -> 9.00719818099917e+15) ((4318 . 5625) (- 9.00719925474099e+15 1073741824.0) -> 9.00719818099917e+15) ((4319 . 5625) (- 9.00719925474099e+15 1073741825.0) -> 9.00719818099917e+15) ((4320 . 5625) (- 9.00719925474099e+15 1073741826.0) -> 9.00719818099917e+15) ((4321 . 5625) (- 9.00719925474099e+15 1073741822.0) -> 9.00719818099917e+15) ((4322 . 5625) (- 9.00719925474099e+15 1073741823.0) -> 9.00719818099917e+15) ((4323 . 5625) (- 9.00719925474099e+15 1073741824.0) -> 9.00719818099917e+15) ((4324 . 5625) (- 9.00719925474099e+15 1073741825.0) -> 9.00719818099917e+15) ((4325 . 5625) (- 9.00719925474099e+15 1073741826.0) -> 9.00719818099917e+15) ((4326 . 5625) (- 9.00719925474099e+15 -1073741827.0) -> 9.00720032848282e+15) ((4327 . 5625) (- 9.00719925474099e+15 -1073741826.0) -> 9.00720032848282e+15) ((4328 . 5625) (- 9.00719925474099e+15 -1073741825.0) -> 9.00720032848282e+15) ((4329 . 5625) (- 9.00719925474099e+15 -1073741824.0) -> 9.00720032848281e+15) ((4330 . 5625) (- 9.00719925474099e+15 -1073741823.0) -> 9.00720032848281e+15) ((4331 . 5625) (- 9.00719925474099e+15 -1073741827.0) -> 9.00720032848282e+15) ((4332 . 5625) (- 9.00719925474099e+15 -1073741826.0) -> 9.00720032848282e+15) ((4333 . 5625) (- 9.00719925474099e+15 -1073741825.0) -> 9.00720032848282e+15) ((4334 . 5625) (- 9.00719925474099e+15 -1073741824.0) -> 9.00720032848282e+15) ((4335 . 5625) (- 9.00719925474099e+15 -1073741823.0) -> 9.00720032848281e+15) ((4336 . 5625) (- 9.00719925474099e+15 -1073741827.0) -> 9.00720032848282e+15) ((4337 . 5625) (- 9.00719925474099e+15 -1073741826.0) -> 9.00720032848282e+15) ((4338 . 5625) (- 9.00719925474099e+15 -1073741825.0) -> 9.00720032848282e+15) ((4339 . 5625) (- 9.00719925474099e+15 -1073741824.0) -> 9.00720032848282e+15) ((4340 . 5625) (- 9.00719925474099e+15 -1073741823.0) -> 9.00720032848282e+15) ((4341 . 5625) (- 9.00719925474099e+15 -1073741827.0) -> 9.00720032848282e+15) ((4342 . 5625) (- 9.00719925474099e+15 -1073741826.0) -> 9.00720032848282e+15) ((4343 . 5625) (- 9.00719925474099e+15 -1073741825.0) -> 9.00720032848282e+15) ((4344 . 5625) (- 9.00719925474099e+15 -1073741824.0) -> 9.00720032848282e+15) ((4345 . 5625) (- 9.00719925474099e+15 -1073741823.0) -> 9.00720032848282e+15) ((4346 . 5625) (- 9.00719925474099e+15 -1073741827.0) -> 9.00720032848282e+15) ((4347 . 5625) (- 9.00719925474099e+15 -1073741826.0) -> 9.00720032848282e+15) ((4348 . 5625) (- 9.00719925474099e+15 -1073741825.0) -> 9.00720032848282e+15) ((4349 . 5625) (- 9.00719925474099e+15 -1073741824.0) -> 9.00720032848282e+15) ((4350 . 5625) (- 9.00719925474099e+15 -1073741823.0) -> 9.00720032848282e+15) ((4351 . 5625) (- 9.00719925474099e+15 1103515243.0) -> 9.00719815122575e+15) ((4352 . 5625) (- 9.00719925474099e+15 1103515244.0) -> 9.00719815122575e+15) ((4353 . 5625) (- 9.00719925474099e+15 1103515245.0) -> 9.00719815122574e+15) ((4354 . 5625) (- 9.00719925474099e+15 1103515246.0) -> 9.00719815122574e+15) ((4355 . 5625) (- 9.00719925474099e+15 1103515247.0) -> 9.00719815122574e+15) ((4356 . 5625) (- 9.00719925474099e+15 1103515243.0) -> 9.00719815122575e+15) ((4357 . 5625) (- 9.00719925474099e+15 1103515244.0) -> 9.00719815122575e+15) ((4358 . 5625) (- 9.00719925474099e+15 1103515245.0) -> 9.00719815122575e+15) ((4359 . 5625) (- 9.00719925474099e+15 1103515246.0) -> 9.00719815122574e+15) ((4360 . 5625) (- 9.00719925474099e+15 1103515247.0) -> 9.00719815122574e+15) ((4361 . 5625) (- 9.00719925474099e+15 1103515243.0) -> 9.00719815122575e+15) ((4362 . 5625) (- 9.00719925474099e+15 1103515244.0) -> 9.00719815122575e+15) ((4363 . 5625) (- 9.00719925474099e+15 1103515245.0) -> 9.00719815122575e+15) ((4364 . 5625) (- 9.00719925474099e+15 1103515246.0) -> 9.00719815122575e+15) ((4365 . 5625) (- 9.00719925474099e+15 1103515247.0) -> 9.00719815122574e+15) ((4366 . 5625) (- 9.00719925474099e+15 1103515243.0) -> 9.00719815122575e+15) ((4367 . 5625) (- 9.00719925474099e+15 1103515244.0) -> 9.00719815122575e+15) ((4368 . 5625) (- 9.00719925474099e+15 1103515245.0) -> 9.00719815122575e+15) ((4369 . 5625) (- 9.00719925474099e+15 1103515246.0) -> 9.00719815122575e+15) ((4370 . 5625) (- 9.00719925474099e+15 1103515247.0) -> 9.00719815122574e+15) ((4371 . 5625) (- 9.00719925474099e+15 1103515243.0) -> 9.00719815122575e+15) ((4372 . 5625) (- 9.00719925474099e+15 1103515244.0) -> 9.00719815122575e+15) ((4373 . 5625) (- 9.00719925474099e+15 1103515245.0) -> 9.00719815122575e+15) ((4374 . 5625) (- 9.00719925474099e+15 1103515246.0) -> 9.00719815122575e+15) ((4375 . 5625) (- 9.00719925474099e+15 1103515247.0) -> 9.00719815122575e+15) ((4376 . 5625) (- 9.00719925474099e+15 631629063) -> 9.00719862311193e+15) ((4377 . 5625) (- 9.00719925474099e+15 631629064) -> 9.00719862311193e+15) ((4378 . 5625) (- 9.00719925474099e+15 631629065) -> 9.00719862311192e+15) ((4379 . 5625) (- 9.00719925474099e+15 631629066) -> 9.00719862311192e+15) ((4380 . 5625) (- 9.00719925474099e+15 631629067) -> 9.00719862311192e+15) ((4381 . 5625) (- 9.00719925474099e+15 631629063) -> 9.00719862311193e+15) ((4382 . 5625) (- 9.00719925474099e+15 631629064) -> 9.00719862311193e+15) ((4383 . 5625) (- 9.00719925474099e+15 631629065) -> 9.00719862311193e+15) ((4384 . 5625) (- 9.00719925474099e+15 631629066) -> 9.00719862311192e+15) ((4385 . 5625) (- 9.00719925474099e+15 631629067) -> 9.00719862311192e+15) ((4386 . 5625) (- 9.00719925474099e+15 631629063) -> 9.00719862311193e+15) ((4387 . 5625) (- 9.00719925474099e+15 631629064) -> 9.00719862311193e+15) ((4388 . 5625) (- 9.00719925474099e+15 631629065) -> 9.00719862311193e+15) ((4389 . 5625) (- 9.00719925474099e+15 631629066) -> 9.00719862311193e+15) ((4390 . 5625) (- 9.00719925474099e+15 631629067) -> 9.00719862311192e+15) ((4391 . 5625) (- 9.00719925474099e+15 631629063) -> 9.00719862311193e+15) ((4392 . 5625) (- 9.00719925474099e+15 631629064) -> 9.00719862311193e+15) ((4393 . 5625) (- 9.00719925474099e+15 631629065) -> 9.00719862311193e+15) ((4394 . 5625) (- 9.00719925474099e+15 631629066) -> 9.00719862311193e+15) ((4395 . 5625) (- 9.00719925474099e+15 631629067) -> 9.00719862311192e+15) ((4396 . 5625) (- 9.00719925474099e+15 631629063) -> 9.00719862311193e+15) ((4397 . 5625) (- 9.00719925474099e+15 631629064) -> 9.00719862311193e+15) ((4398 . 5625) (- 9.00719925474099e+15 631629065) -> 9.00719862311193e+15) ((4399 . 5625) (- 9.00719925474099e+15 631629066) -> 9.00719862311193e+15) ((4400 . 5625) (- 9.00719925474099e+15 631629067) -> 9.00719862311193e+15) ((4401 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> 0.0) ((4402 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4403 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> -2.0) ((4404 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> -2.0) ((4405 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> -4.0) ((4406 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4407 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> 0.0) ((4408 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4409 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4410 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> -3.0) ((4411 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> 2.0) ((4412 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4413 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> 0.0) ((4414 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> 0.0) ((4415 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> -2.0) ((4416 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> 2.0) ((4417 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4418 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> 0.0) ((4419 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> 0.0) ((4420 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> -2.0) ((4421 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> 4.0) ((4422 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> 3.0) ((4423 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> 2.0) ((4424 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> 2.0) ((4425 . 5625) (- 9.00719925474099e+15 9.00719925474099e+15) -> 0.0) ((4426 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4427 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4428 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4429 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4430 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4431 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4432 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4433 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4434 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4435 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4436 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4437 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4438 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4439 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4440 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4441 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4442 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4443 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4444 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4445 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4446 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4447 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4448 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4449 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4450 . 5625) (- 9.00719925474099e+15 -9.00719925474099e+15) -> 1.8014398509482e+16) ((4451 . 5625) (- 9.00719925474099e+15 12343) -> 9.00719925472865e+15) ((4452 . 5625) (- 9.00719925474099e+15 12344) -> 9.00719925472865e+15) ((4453 . 5625) (- 9.00719925474099e+15 12345) -> 9.00719925472864e+15) ((4454 . 5625) (- 9.00719925474099e+15 12346) -> 9.00719925472864e+15) ((4455 . 5625) (- 9.00719925474099e+15 12347) -> 9.00719925472864e+15) ((4456 . 5625) (- 9.00719925474099e+15 12343) -> 9.00719925472865e+15) ((4457 . 5625) (- 9.00719925474099e+15 12344) -> 9.00719925472865e+15) ((4458 . 5625) (- 9.00719925474099e+15 12345) -> 9.00719925472865e+15) ((4459 . 5625) (- 9.00719925474099e+15 12346) -> 9.00719925472864e+15) ((4460 . 5625) (- 9.00719925474099e+15 12347) -> 9.00719925472864e+15) ((4461 . 5625) (- 9.00719925474099e+15 12343) -> 9.00719925472865e+15) ((4462 . 5625) (- 9.00719925474099e+15 12344) -> 9.00719925472865e+15) ((4463 . 5625) (- 9.00719925474099e+15 12345) -> 9.00719925472865e+15) ((4464 . 5625) (- 9.00719925474099e+15 12346) -> 9.00719925472865e+15) ((4465 . 5625) (- 9.00719925474099e+15 12347) -> 9.00719925472864e+15) ((4466 . 5625) (- 9.00719925474099e+15 12343) -> 9.00719925472865e+15) ((4467 . 5625) (- 9.00719925474099e+15 12344) -> 9.00719925472865e+15) ((4468 . 5625) (- 9.00719925474099e+15 12345) -> 9.00719925472865e+15) ((4469 . 5625) (- 9.00719925474099e+15 12346) -> 9.00719925472865e+15) ((4470 . 5625) (- 9.00719925474099e+15 12347) -> 9.00719925472864e+15) ((4471 . 5625) (- 9.00719925474099e+15 12343) -> 9.00719925472865e+15) ((4472 . 5625) (- 9.00719925474099e+15 12344) -> 9.00719925472865e+15) ((4473 . 5625) (- 9.00719925474099e+15 12345) -> 9.00719925472865e+15) ((4474 . 5625) (- 9.00719925474099e+15 12346) -> 9.00719925472865e+15) ((4475 . 5625) (- 9.00719925474099e+15 12347) -> 9.00719925472865e+15) ((4476 . 5625) (- 9.00719925474099e+15 4294967294.0) -> 9.0071949597737e+15) ((4477 . 5625) (- 9.00719925474099e+15 4294967295.0) -> 9.0071949597737e+15) ((4478 . 5625) (- 9.00719925474099e+15 4294967296.0) -> 9.00719495977369e+15) ((4479 . 5625) (- 9.00719925474099e+15 4294967297.0) -> 9.00719495977369e+15) ((4480 . 5625) (- 9.00719925474099e+15 4294967298.0) -> 9.00719495977369e+15) ((4481 . 5625) (- 9.00719925474099e+15 4294967294.0) -> 9.0071949597737e+15) ((4482 . 5625) (- 9.00719925474099e+15 4294967295.0) -> 9.0071949597737e+15) ((4483 . 5625) (- 9.00719925474099e+15 4294967296.0) -> 9.0071949597737e+15) ((4484 . 5625) (- 9.00719925474099e+15 4294967297.0) -> 9.00719495977369e+15) ((4485 . 5625) (- 9.00719925474099e+15 4294967298.0) -> 9.00719495977369e+15) ((4486 . 5625) (- 9.00719925474099e+15 4294967294.0) -> 9.0071949597737e+15) ((4487 . 5625) (- 9.00719925474099e+15 4294967295.0) -> 9.0071949597737e+15) ((4488 . 5625) (- 9.00719925474099e+15 4294967296.0) -> 9.0071949597737e+15) ((4489 . 5625) (- 9.00719925474099e+15 4294967297.0) -> 9.0071949597737e+15) ((4490 . 5625) (- 9.00719925474099e+15 4294967298.0) -> 9.00719495977369e+15) ((4491 . 5625) (- 9.00719925474099e+15 4294967294.0) -> 9.0071949597737e+15) ((4492 . 5625) (- 9.00719925474099e+15 4294967295.0) -> 9.0071949597737e+15) ((4493 . 5625) (- 9.00719925474099e+15 4294967296.0) -> 9.0071949597737e+15) ((4494 . 5625) (- 9.00719925474099e+15 4294967297.0) -> 9.0071949597737e+15) ((4495 . 5625) (- 9.00719925474099e+15 4294967298.0) -> 9.00719495977369e+15) ((4496 . 5625) (- 9.00719925474099e+15 4294967294.0) -> 9.0071949597737e+15) ((4497 . 5625) (- 9.00719925474099e+15 4294967295.0) -> 9.0071949597737e+15) ((4498 . 5625) (- 9.00719925474099e+15 4294967296.0) -> 9.0071949597737e+15) ((4499 . 5625) (- 9.00719925474099e+15 4294967297.0) -> 9.0071949597737e+15) ((4500 . 5625) (- 9.00719925474099e+15 4294967298.0) -> 9.0071949597737e+15) ((4501 . 5625) (- -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4502 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4503 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4504 . 5625) (- -9.00719925474099e+15 1) -> -9.007199254741e+15) ((4505 . 5625) (- -9.00719925474099e+15 2) -> -9.007199254741e+15) ((4506 . 5625) (- -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4507 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4508 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4509 . 5625) (- -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4510 . 5625) (- -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4511 . 5625) (- -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4512 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4513 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4514 . 5625) (- -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4515 . 5625) (- -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4516 . 5625) (- -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4517 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4518 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4519 . 5625) (- -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4520 . 5625) (- -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4521 . 5625) (- -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4522 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4523 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4524 . 5625) (- -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4525 . 5625) (- -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4526 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4527 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4528 . 5625) (- -9.00719925474099e+15 1) -> -9.007199254741e+15) ((4529 . 5625) (- -9.00719925474099e+15 2) -> -9.007199254741e+15) ((4530 . 5625) (- -9.00719925474099e+15 3) -> -9.007199254741e+15) ((4531 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4532 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4533 . 5625) (- -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4534 . 5625) (- -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4535 . 5625) (- -9.00719925474099e+15 3) -> -9.007199254741e+15) ((4536 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4537 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4538 . 5625) (- -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4539 . 5625) (- -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4540 . 5625) (- -9.00719925474099e+15 3) -> -9.007199254741e+15) ((4541 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4542 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4543 . 5625) (- -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4544 . 5625) (- -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4545 . 5625) (- -9.00719925474099e+15 3) -> -9.00719925474099e+15) ((4546 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4547 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4548 . 5625) (- -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4549 . 5625) (- -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4550 . 5625) (- -9.00719925474099e+15 3) -> -9.00719925474099e+15) ((4551 . 5625) (- -9.00719925474099e+15 -3) -> -9.00719925474099e+15) ((4552 . 5625) (- -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4553 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4554 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4555 . 5625) (- -9.00719925474099e+15 1) -> -9.007199254741e+15) ((4556 . 5625) (- -9.00719925474099e+15 -3) -> -9.00719925474099e+15) ((4557 . 5625) (- -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4558 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4559 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4560 . 5625) (- -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4561 . 5625) (- -9.00719925474099e+15 -3) -> -9.00719925474099e+15) ((4562 . 5625) (- -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4563 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4564 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4565 . 5625) (- -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4566 . 5625) (- -9.00719925474099e+15 -3) -> -9.00719925474099e+15) ((4567 . 5625) (- -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4568 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4569 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4570 . 5625) (- -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4571 . 5625) (- -9.00719925474099e+15 -3) -> -9.00719925474099e+15) ((4572 . 5625) (- -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4573 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4574 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4575 . 5625) (- -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4576 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4577 . 5625) (- -9.00719925474099e+15 1) -> -9.007199254741e+15) ((4578 . 5625) (- -9.00719925474099e+15 2) -> -9.007199254741e+15) ((4579 . 5625) (- -9.00719925474099e+15 3) -> -9.007199254741e+15) ((4580 . 5625) (- -9.00719925474099e+15 4) -> -9.007199254741e+15) ((4581 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4582 . 5625) (- -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4583 . 5625) (- -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4584 . 5625) (- -9.00719925474099e+15 3) -> -9.007199254741e+15) ((4585 . 5625) (- -9.00719925474099e+15 4) -> -9.007199254741e+15) ((4586 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4587 . 5625) (- -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4588 . 5625) (- -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4589 . 5625) (- -9.00719925474099e+15 3) -> -9.007199254741e+15) ((4590 . 5625) (- -9.00719925474099e+15 4) -> -9.007199254741e+15) ((4591 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4592 . 5625) (- -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4593 . 5625) (- -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4594 . 5625) (- -9.00719925474099e+15 3) -> -9.00719925474099e+15) ((4595 . 5625) (- -9.00719925474099e+15 4) -> -9.007199254741e+15) ((4596 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4597 . 5625) (- -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4598 . 5625) (- -9.00719925474099e+15 2) -> -9.00719925474099e+15) ((4599 . 5625) (- -9.00719925474099e+15 3) -> -9.00719925474099e+15) ((4600 . 5625) (- -9.00719925474099e+15 4) -> -9.00719925474099e+15) ((4601 . 5625) (- -9.00719925474099e+15 -4) -> -9.00719925474099e+15) ((4602 . 5625) (- -9.00719925474099e+15 -3) -> -9.00719925474099e+15) ((4603 . 5625) (- -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4604 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4605 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4606 . 5625) (- -9.00719925474099e+15 -4) -> -9.00719925474099e+15) ((4607 . 5625) (- -9.00719925474099e+15 -3) -> -9.00719925474099e+15) ((4608 . 5625) (- -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4609 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4610 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4611 . 5625) (- -9.00719925474099e+15 -4) -> -9.00719925474099e+15) ((4612 . 5625) (- -9.00719925474099e+15 -3) -> -9.00719925474099e+15) ((4613 . 5625) (- -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4614 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4615 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4616 . 5625) (- -9.00719925474099e+15 -4) -> -9.00719925474099e+15) ((4617 . 5625) (- -9.00719925474099e+15 -3) -> -9.00719925474099e+15) ((4618 . 5625) (- -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4619 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4620 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4621 . 5625) (- -9.00719925474099e+15 -4) -> -9.00719925474099e+15) ((4622 . 5625) (- -9.00719925474099e+15 -3) -> -9.00719925474099e+15) ((4623 . 5625) (- -9.00719925474099e+15 -2) -> -9.00719925474099e+15) ((4624 . 5625) (- -9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4625 . 5625) (- -9.00719925474099e+15 0) -> -9.00719925474099e+15) ((4626 . 5625) (- -9.00719925474099e+15 1073741821) -> -9.00720032848282e+15) ((4627 . 5625) (- -9.00719925474099e+15 1073741822) -> -9.00720032848282e+15) ((4628 . 5625) (- -9.00719925474099e+15 1073741823) -> -9.00720032848282e+15) ((4629 . 5625) (- -9.00719925474099e+15 1073741824.0) -> -9.00720032848282e+15) ((4630 . 5625) (- -9.00719925474099e+15 1073741825.0) -> -9.00720032848282e+15) ((4631 . 5625) (- -9.00719925474099e+15 1073741821) -> -9.00720032848281e+15) ((4632 . 5625) (- -9.00719925474099e+15 1073741822) -> -9.00720032848281e+15) ((4633 . 5625) (- -9.00719925474099e+15 1073741823) -> -9.00720032848282e+15) ((4634 . 5625) (- -9.00719925474099e+15 1073741824.0) -> -9.00720032848282e+15) ((4635 . 5625) (- -9.00719925474099e+15 1073741825.0) -> -9.00720032848282e+15) ((4636 . 5625) (- -9.00719925474099e+15 1073741821) -> -9.00720032848281e+15) ((4637 . 5625) (- -9.00719925474099e+15 1073741822) -> -9.00720032848281e+15) ((4638 . 5625) (- -9.00719925474099e+15 1073741823) -> -9.00720032848282e+15) ((4639 . 5625) (- -9.00719925474099e+15 1073741824.0) -> -9.00720032848282e+15) ((4640 . 5625) (- -9.00719925474099e+15 1073741825.0) -> -9.00720032848282e+15) ((4641 . 5625) (- -9.00719925474099e+15 1073741821) -> -9.00720032848281e+15) ((4642 . 5625) (- -9.00719925474099e+15 1073741822) -> -9.00720032848281e+15) ((4643 . 5625) (- -9.00719925474099e+15 1073741823) -> -9.00720032848281e+15) ((4644 . 5625) (- -9.00719925474099e+15 1073741824.0) -> -9.00720032848282e+15) ((4645 . 5625) (- -9.00719925474099e+15 1073741825.0) -> -9.00720032848282e+15) ((4646 . 5625) (- -9.00719925474099e+15 1073741821) -> -9.00720032848281e+15) ((4647 . 5625) (- -9.00719925474099e+15 1073741822) -> -9.00720032848281e+15) ((4648 . 5625) (- -9.00719925474099e+15 1073741823) -> -9.00720032848281e+15) ((4649 . 5625) (- -9.00719925474099e+15 1073741824.0) -> -9.00720032848281e+15) ((4650 . 5625) (- -9.00719925474099e+15 1073741825.0) -> -9.00720032848282e+15) ((4651 . 5625) (- -9.00719925474099e+15 -1073741826.0) -> -9.00719818099917e+15) ((4652 . 5625) (- -9.00719925474099e+15 -1073741825.0) -> -9.00719818099917e+15) ((4653 . 5625) (- -9.00719925474099e+15 -1073741824) -> -9.00719818099917e+15) ((4654 . 5625) (- -9.00719925474099e+15 -1073741823) -> -9.00719818099917e+15) ((4655 . 5625) (- -9.00719925474099e+15 -1073741822) -> -9.00719818099917e+15) ((4656 . 5625) (- -9.00719925474099e+15 -1073741826.0) -> -9.00719818099917e+15) ((4657 . 5625) (- -9.00719925474099e+15 -1073741825.0) -> -9.00719818099917e+15) ((4658 . 5625) (- -9.00719925474099e+15 -1073741824) -> -9.00719818099917e+15) ((4659 . 5625) (- -9.00719925474099e+15 -1073741823) -> -9.00719818099917e+15) ((4660 . 5625) (- -9.00719925474099e+15 -1073741822) -> -9.00719818099917e+15) ((4661 . 5625) (- -9.00719925474099e+15 -1073741826.0) -> -9.00719818099917e+15) ((4662 . 5625) (- -9.00719925474099e+15 -1073741825.0) -> -9.00719818099917e+15) ((4663 . 5625) (- -9.00719925474099e+15 -1073741824) -> -9.00719818099917e+15) ((4664 . 5625) (- -9.00719925474099e+15 -1073741823) -> -9.00719818099917e+15) ((4665 . 5625) (- -9.00719925474099e+15 -1073741822) -> -9.00719818099917e+15) ((4666 . 5625) (- -9.00719925474099e+15 -1073741826.0) -> -9.00719818099916e+15) ((4667 . 5625) (- -9.00719925474099e+15 -1073741825.0) -> -9.00719818099917e+15) ((4668 . 5625) (- -9.00719925474099e+15 -1073741824) -> -9.00719818099917e+15) ((4669 . 5625) (- -9.00719925474099e+15 -1073741823) -> -9.00719818099917e+15) ((4670 . 5625) (- -9.00719925474099e+15 -1073741822) -> -9.00719818099917e+15) ((4671 . 5625) (- -9.00719925474099e+15 -1073741826.0) -> -9.00719818099916e+15) ((4672 . 5625) (- -9.00719925474099e+15 -1073741825.0) -> -9.00719818099916e+15) ((4673 . 5625) (- -9.00719925474099e+15 -1073741824) -> -9.00719818099917e+15) ((4674 . 5625) (- -9.00719925474099e+15 -1073741823) -> -9.00719818099917e+15) ((4675 . 5625) (- -9.00719925474099e+15 -1073741822) -> -9.00719818099917e+15) ((4676 . 5625) (- -9.00719925474099e+15 1073741822.0) -> -9.00720032848282e+15) ((4677 . 5625) (- -9.00719925474099e+15 1073741823.0) -> -9.00720032848282e+15) ((4678 . 5625) (- -9.00719925474099e+15 1073741824.0) -> -9.00720032848282e+15) ((4679 . 5625) (- -9.00719925474099e+15 1073741825.0) -> -9.00720032848282e+15) ((4680 . 5625) (- -9.00719925474099e+15 1073741826.0) -> -9.00720032848282e+15) ((4681 . 5625) (- -9.00719925474099e+15 1073741822.0) -> -9.00720032848281e+15) ((4682 . 5625) (- -9.00719925474099e+15 1073741823.0) -> -9.00720032848282e+15) ((4683 . 5625) (- -9.00719925474099e+15 1073741824.0) -> -9.00720032848282e+15) ((4684 . 5625) (- -9.00719925474099e+15 1073741825.0) -> -9.00720032848282e+15) ((4685 . 5625) (- -9.00719925474099e+15 1073741826.0) -> -9.00720032848282e+15) ((4686 . 5625) (- -9.00719925474099e+15 1073741822.0) -> -9.00720032848281e+15) ((4687 . 5625) (- -9.00719925474099e+15 1073741823.0) -> -9.00720032848282e+15) ((4688 . 5625) (- -9.00719925474099e+15 1073741824.0) -> -9.00720032848282e+15) ((4689 . 5625) (- -9.00719925474099e+15 1073741825.0) -> -9.00720032848282e+15) ((4690 . 5625) (- -9.00719925474099e+15 1073741826.0) -> -9.00720032848282e+15) ((4691 . 5625) (- -9.00719925474099e+15 1073741822.0) -> -9.00720032848281e+15) ((4692 . 5625) (- -9.00719925474099e+15 1073741823.0) -> -9.00720032848281e+15) ((4693 . 5625) (- -9.00719925474099e+15 1073741824.0) -> -9.00720032848282e+15) ((4694 . 5625) (- -9.00719925474099e+15 1073741825.0) -> -9.00720032848282e+15) ((4695 . 5625) (- -9.00719925474099e+15 1073741826.0) -> -9.00720032848282e+15) ((4696 . 5625) (- -9.00719925474099e+15 1073741822.0) -> -9.00720032848281e+15) ((4697 . 5625) (- -9.00719925474099e+15 1073741823.0) -> -9.00720032848281e+15) ((4698 . 5625) (- -9.00719925474099e+15 1073741824.0) -> -9.00720032848281e+15) ((4699 . 5625) (- -9.00719925474099e+15 1073741825.0) -> -9.00720032848282e+15) ((4700 . 5625) (- -9.00719925474099e+15 1073741826.0) -> -9.00720032848282e+15) ((4701 . 5625) (- -9.00719925474099e+15 -1073741827.0) -> -9.00719818099917e+15) ((4702 . 5625) (- -9.00719925474099e+15 -1073741826.0) -> -9.00719818099917e+15) ((4703 . 5625) (- -9.00719925474099e+15 -1073741825.0) -> -9.00719818099917e+15) ((4704 . 5625) (- -9.00719925474099e+15 -1073741824.0) -> -9.00719818099917e+15) ((4705 . 5625) (- -9.00719925474099e+15 -1073741823.0) -> -9.00719818099917e+15) ((4706 . 5625) (- -9.00719925474099e+15 -1073741827.0) -> -9.00719818099916e+15) ((4707 . 5625) (- -9.00719925474099e+15 -1073741826.0) -> -9.00719818099917e+15) ((4708 . 5625) (- -9.00719925474099e+15 -1073741825.0) -> -9.00719818099917e+15) ((4709 . 5625) (- -9.00719925474099e+15 -1073741824.0) -> -9.00719818099917e+15) ((4710 . 5625) (- -9.00719925474099e+15 -1073741823.0) -> -9.00719818099917e+15) ((4711 . 5625) (- -9.00719925474099e+15 -1073741827.0) -> -9.00719818099916e+15) ((4712 . 5625) (- -9.00719925474099e+15 -1073741826.0) -> -9.00719818099917e+15) ((4713 . 5625) (- -9.00719925474099e+15 -1073741825.0) -> -9.00719818099917e+15) ((4714 . 5625) (- -9.00719925474099e+15 -1073741824.0) -> -9.00719818099917e+15) ((4715 . 5625) (- -9.00719925474099e+15 -1073741823.0) -> -9.00719818099917e+15) ((4716 . 5625) (- -9.00719925474099e+15 -1073741827.0) -> -9.00719818099916e+15) ((4717 . 5625) (- -9.00719925474099e+15 -1073741826.0) -> -9.00719818099916e+15) ((4718 . 5625) (- -9.00719925474099e+15 -1073741825.0) -> -9.00719818099917e+15) ((4719 . 5625) (- -9.00719925474099e+15 -1073741824.0) -> -9.00719818099917e+15) ((4720 . 5625) (- -9.00719925474099e+15 -1073741823.0) -> -9.00719818099917e+15) ((4721 . 5625) (- -9.00719925474099e+15 -1073741827.0) -> -9.00719818099916e+15) ((4722 . 5625) (- -9.00719925474099e+15 -1073741826.0) -> -9.00719818099916e+15) ((4723 . 5625) (- -9.00719925474099e+15 -1073741825.0) -> -9.00719818099916e+15) ((4724 . 5625) (- -9.00719925474099e+15 -1073741824.0) -> -9.00719818099917e+15) ((4725 . 5625) (- -9.00719925474099e+15 -1073741823.0) -> -9.00719818099917e+15) ((4726 . 5625) (- -9.00719925474099e+15 1103515243.0) -> -9.00720035825624e+15) ((4727 . 5625) (- -9.00719925474099e+15 1103515244.0) -> -9.00720035825624e+15) ((4728 . 5625) (- -9.00719925474099e+15 1103515245.0) -> -9.00720035825624e+15) ((4729 . 5625) (- -9.00719925474099e+15 1103515246.0) -> -9.00720035825624e+15) ((4730 . 5625) (- -9.00719925474099e+15 1103515247.0) -> -9.00720035825624e+15) ((4731 . 5625) (- -9.00719925474099e+15 1103515243.0) -> -9.00720035825624e+15) ((4732 . 5625) (- -9.00719925474099e+15 1103515244.0) -> -9.00720035825624e+15) ((4733 . 5625) (- -9.00719925474099e+15 1103515245.0) -> -9.00720035825624e+15) ((4734 . 5625) (- -9.00719925474099e+15 1103515246.0) -> -9.00720035825624e+15) ((4735 . 5625) (- -9.00719925474099e+15 1103515247.0) -> -9.00720035825624e+15) ((4736 . 5625) (- -9.00719925474099e+15 1103515243.0) -> -9.00720035825624e+15) ((4737 . 5625) (- -9.00719925474099e+15 1103515244.0) -> -9.00720035825624e+15) ((4738 . 5625) (- -9.00719925474099e+15 1103515245.0) -> -9.00720035825624e+15) ((4739 . 5625) (- -9.00719925474099e+15 1103515246.0) -> -9.00720035825624e+15) ((4740 . 5625) (- -9.00719925474099e+15 1103515247.0) -> -9.00720035825624e+15) ((4741 . 5625) (- -9.00719925474099e+15 1103515243.0) -> -9.00720035825623e+15) ((4742 . 5625) (- -9.00719925474099e+15 1103515244.0) -> -9.00720035825624e+15) ((4743 . 5625) (- -9.00719925474099e+15 1103515245.0) -> -9.00720035825624e+15) ((4744 . 5625) (- -9.00719925474099e+15 1103515246.0) -> -9.00720035825624e+15) ((4745 . 5625) (- -9.00719925474099e+15 1103515247.0) -> -9.00720035825624e+15) ((4746 . 5625) (- -9.00719925474099e+15 1103515243.0) -> -9.00720035825623e+15) ((4747 . 5625) (- -9.00719925474099e+15 1103515244.0) -> -9.00720035825623e+15) ((4748 . 5625) (- -9.00719925474099e+15 1103515245.0) -> -9.00720035825624e+15) ((4749 . 5625) (- -9.00719925474099e+15 1103515246.0) -> -9.00720035825624e+15) ((4750 . 5625) (- -9.00719925474099e+15 1103515247.0) -> -9.00720035825624e+15) ((4751 . 5625) (- -9.00719925474099e+15 631629063) -> -9.00719988637006e+15) ((4752 . 5625) (- -9.00719925474099e+15 631629064) -> -9.00719988637006e+15) ((4753 . 5625) (- -9.00719925474099e+15 631629065) -> -9.00719988637006e+15) ((4754 . 5625) (- -9.00719925474099e+15 631629066) -> -9.00719988637006e+15) ((4755 . 5625) (- -9.00719925474099e+15 631629067) -> -9.00719988637006e+15) ((4756 . 5625) (- -9.00719925474099e+15 631629063) -> -9.00719988637006e+15) ((4757 . 5625) (- -9.00719925474099e+15 631629064) -> -9.00719988637006e+15) ((4758 . 5625) (- -9.00719925474099e+15 631629065) -> -9.00719988637006e+15) ((4759 . 5625) (- -9.00719925474099e+15 631629066) -> -9.00719988637006e+15) ((4760 . 5625) (- -9.00719925474099e+15 631629067) -> -9.00719988637006e+15) ((4761 . 5625) (- -9.00719925474099e+15 631629063) -> -9.00719988637006e+15) ((4762 . 5625) (- -9.00719925474099e+15 631629064) -> -9.00719988637006e+15) ((4763 . 5625) (- -9.00719925474099e+15 631629065) -> -9.00719988637006e+15) ((4764 . 5625) (- -9.00719925474099e+15 631629066) -> -9.00719988637006e+15) ((4765 . 5625) (- -9.00719925474099e+15 631629067) -> -9.00719988637006e+15) ((4766 . 5625) (- -9.00719925474099e+15 631629063) -> -9.00719988637005e+15) ((4767 . 5625) (- -9.00719925474099e+15 631629064) -> -9.00719988637006e+15) ((4768 . 5625) (- -9.00719925474099e+15 631629065) -> -9.00719988637006e+15) ((4769 . 5625) (- -9.00719925474099e+15 631629066) -> -9.00719988637006e+15) ((4770 . 5625) (- -9.00719925474099e+15 631629067) -> -9.00719988637006e+15) ((4771 . 5625) (- -9.00719925474099e+15 631629063) -> -9.00719988637005e+15) ((4772 . 5625) (- -9.00719925474099e+15 631629064) -> -9.00719988637005e+15) ((4773 . 5625) (- -9.00719925474099e+15 631629065) -> -9.00719988637006e+15) ((4774 . 5625) (- -9.00719925474099e+15 631629066) -> -9.00719988637006e+15) ((4775 . 5625) (- -9.00719925474099e+15 631629067) -> -9.00719988637006e+15) ((4776 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4777 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4778 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4779 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4780 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4781 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4782 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4783 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4784 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4785 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4786 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4787 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4788 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4789 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4790 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4791 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4792 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4793 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4794 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4795 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4796 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4797 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4798 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4799 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4800 . 5625) (- -9.00719925474099e+15 9.00719925474099e+15) -> -1.8014398509482e+16) ((4801 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> 0.0) ((4802 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> -2.0) ((4803 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> -2.0) ((4804 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> -3.0) ((4805 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> -4.0) ((4806 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> 2.0) ((4807 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> 0.0) ((4808 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> 0.0) ((4809 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4810 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> -2.0) ((4811 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> 2.0) ((4812 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> 0.0) ((4813 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> 0.0) ((4814 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4815 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> -2.0) ((4816 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> 3.0) ((4817 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4818 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4819 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> 0.0) ((4820 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4821 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> 4.0) ((4822 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> 2.0) ((4823 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> 2.0) ((4824 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4825 . 5625) (- -9.00719925474099e+15 -9.00719925474099e+15) -> 0.0) ((4826 . 5625) (- -9.00719925474099e+15 12343) -> -9.00719925475334e+15) ((4827 . 5625) (- -9.00719925474099e+15 12344) -> -9.00719925475334e+15) ((4828 . 5625) (- -9.00719925474099e+15 12345) -> -9.00719925475334e+15) ((4829 . 5625) (- -9.00719925474099e+15 12346) -> -9.00719925475334e+15) ((4830 . 5625) (- -9.00719925474099e+15 12347) -> -9.00719925475334e+15) ((4831 . 5625) (- -9.00719925474099e+15 12343) -> -9.00719925475334e+15) ((4832 . 5625) (- -9.00719925474099e+15 12344) -> -9.00719925475334e+15) ((4833 . 5625) (- -9.00719925474099e+15 12345) -> -9.00719925475334e+15) ((4834 . 5625) (- -9.00719925474099e+15 12346) -> -9.00719925475334e+15) ((4835 . 5625) (- -9.00719925474099e+15 12347) -> -9.00719925475334e+15) ((4836 . 5625) (- -9.00719925474099e+15 12343) -> -9.00719925475334e+15) ((4837 . 5625) (- -9.00719925474099e+15 12344) -> -9.00719925475334e+15) ((4838 . 5625) (- -9.00719925474099e+15 12345) -> -9.00719925475334e+15) ((4839 . 5625) (- -9.00719925474099e+15 12346) -> -9.00719925475334e+15) ((4840 . 5625) (- -9.00719925474099e+15 12347) -> -9.00719925475334e+15) ((4841 . 5625) (- -9.00719925474099e+15 12343) -> -9.00719925475333e+15) ((4842 . 5625) (- -9.00719925474099e+15 12344) -> -9.00719925475334e+15) ((4843 . 5625) (- -9.00719925474099e+15 12345) -> -9.00719925475334e+15) ((4844 . 5625) (- -9.00719925474099e+15 12346) -> -9.00719925475334e+15) ((4845 . 5625) (- -9.00719925474099e+15 12347) -> -9.00719925475334e+15) ((4846 . 5625) (- -9.00719925474099e+15 12343) -> -9.00719925475333e+15) ((4847 . 5625) (- -9.00719925474099e+15 12344) -> -9.00719925475333e+15) ((4848 . 5625) (- -9.00719925474099e+15 12345) -> -9.00719925475334e+15) ((4849 . 5625) (- -9.00719925474099e+15 12346) -> -9.00719925475334e+15) ((4850 . 5625) (- -9.00719925474099e+15 12347) -> -9.00719925475334e+15) ((4851 . 5625) (- -9.00719925474099e+15 4294967294.0) -> -9.00720354970829e+15) ((4852 . 5625) (- -9.00719925474099e+15 4294967295.0) -> -9.00720354970829e+15) ((4853 . 5625) (- -9.00719925474099e+15 4294967296.0) -> -9.00720354970829e+15) ((4854 . 5625) (- -9.00719925474099e+15 4294967297.0) -> -9.00720354970829e+15) ((4855 . 5625) (- -9.00719925474099e+15 4294967298.0) -> -9.00720354970829e+15) ((4856 . 5625) (- -9.00719925474099e+15 4294967294.0) -> -9.00720354970829e+15) ((4857 . 5625) (- -9.00719925474099e+15 4294967295.0) -> -9.00720354970829e+15) ((4858 . 5625) (- -9.00719925474099e+15 4294967296.0) -> -9.00720354970829e+15) ((4859 . 5625) (- -9.00719925474099e+15 4294967297.0) -> -9.00720354970829e+15) ((4860 . 5625) (- -9.00719925474099e+15 4294967298.0) -> -9.00720354970829e+15) ((4861 . 5625) (- -9.00719925474099e+15 4294967294.0) -> -9.00720354970829e+15) ((4862 . 5625) (- -9.00719925474099e+15 4294967295.0) -> -9.00720354970829e+15) ((4863 . 5625) (- -9.00719925474099e+15 4294967296.0) -> -9.00720354970829e+15) ((4864 . 5625) (- -9.00719925474099e+15 4294967297.0) -> -9.00720354970829e+15) ((4865 . 5625) (- -9.00719925474099e+15 4294967298.0) -> -9.00720354970829e+15) ((4866 . 5625) (- -9.00719925474099e+15 4294967294.0) -> -9.00720354970828e+15) ((4867 . 5625) (- -9.00719925474099e+15 4294967295.0) -> -9.00720354970829e+15) ((4868 . 5625) (- -9.00719925474099e+15 4294967296.0) -> -9.00720354970829e+15) ((4869 . 5625) (- -9.00719925474099e+15 4294967297.0) -> -9.00720354970829e+15) ((4870 . 5625) (- -9.00719925474099e+15 4294967298.0) -> -9.00720354970829e+15) ((4871 . 5625) (- -9.00719925474099e+15 4294967294.0) -> -9.00720354970828e+15) ((4872 . 5625) (- -9.00719925474099e+15 4294967295.0) -> -9.00720354970828e+15) ((4873 . 5625) (- -9.00719925474099e+15 4294967296.0) -> -9.00720354970829e+15) ((4874 . 5625) (- -9.00719925474099e+15 4294967297.0) -> -9.00720354970829e+15) ((4875 . 5625) (- -9.00719925474099e+15 4294967298.0) -> -9.00720354970829e+15) ((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.0) -> -1073729481.0) ((5005 . 5625) (- 12343 1073741825.0) -> -1073729482.0) ((5006 . 5625) (- 12344 1073741821) -> -1073729477) ((5007 . 5625) (- 12344 1073741822) -> -1073729478) ((5008 . 5625) (- 12344 1073741823) -> -1073729479) ((5009 . 5625) (- 12344 1073741824.0) -> -1073729480.0) ((5010 . 5625) (- 12344 1073741825.0) -> -1073729481.0) ((5011 . 5625) (- 12345 1073741821) -> -1073729476) ((5012 . 5625) (- 12345 1073741822) -> -1073729477) ((5013 . 5625) (- 12345 1073741823) -> -1073729478) ((5014 . 5625) (- 12345 1073741824.0) -> -1073729479.0) ((5015 . 5625) (- 12345 1073741825.0) -> -1073729480.0) ((5016 . 5625) (- 12346 1073741821) -> -1073729475) ((5017 . 5625) (- 12346 1073741822) -> -1073729476) ((5018 . 5625) (- 12346 1073741823) -> -1073729477) ((5019 . 5625) (- 12346 1073741824.0) -> -1073729478.0) ((5020 . 5625) (- 12346 1073741825.0) -> -1073729479.0) ((5021 . 5625) (- 12347 1073741821) -> -1073729474) ((5022 . 5625) (- 12347 1073741822) -> -1073729475) ((5023 . 5625) (- 12347 1073741823) -> -1073729476) ((5024 . 5625) (- 12347 1073741824.0) -> -1073729477.0) ((5025 . 5625) (- 12347 1073741825.0) -> -1073729478.0) ((5026 . 5625) (- 12343 -1073741826.0) -> 1073754169.0) ((5027 . 5625) (- 12343 -1073741825.0) -> 1073754168.0) ((5028 . 5625) (- 12343 -1073741824) -> 1073754167.0) ((5029 . 5625) (- 12343 -1073741823) -> 1073754166.0) ((5030 . 5625) (- 12343 -1073741822) -> 1073754165.0) ((5031 . 5625) (- 12344 -1073741826.0) -> 1073754170.0) ((5032 . 5625) (- 12344 -1073741825.0) -> 1073754169.0) ((5033 . 5625) (- 12344 -1073741824) -> 1073754168.0) ((5034 . 5625) (- 12344 -1073741823) -> 1073754167.0) ((5035 . 5625) (- 12344 -1073741822) -> 1073754166.0) ((5036 . 5625) (- 12345 -1073741826.0) -> 1073754171.0) ((5037 . 5625) (- 12345 -1073741825.0) -> 1073754170.0) ((5038 . 5625) (- 12345 -1073741824) -> 1073754169.0) ((5039 . 5625) (- 12345 -1073741823) -> 1073754168.0) ((5040 . 5625) (- 12345 -1073741822) -> 1073754167.0) ((5041 . 5625) (- 12346 -1073741826.0) -> 1073754172.0) ((5042 . 5625) (- 12346 -1073741825.0) -> 1073754171.0) ((5043 . 5625) (- 12346 -1073741824) -> 1073754170.0) ((5044 . 5625) (- 12346 -1073741823) -> 1073754169.0) ((5045 . 5625) (- 12346 -1073741822) -> 1073754168.0) ((5046 . 5625) (- 12347 -1073741826.0) -> 1073754173.0) ((5047 . 5625) (- 12347 -1073741825.0) -> 1073754172.0) ((5048 . 5625) (- 12347 -1073741824) -> 1073754171.0) ((5049 . 5625) (- 12347 -1073741823) -> 1073754170.0) ((5050 . 5625) (- 12347 -1073741822) -> 1073754169.0) ((5051 . 5625) (- 12343 1073741822.0) -> -1073729479.0) ((5052 . 5625) (- 12343 1073741823.0) -> -1073729480.0) ((5053 . 5625) (- 12343 1073741824.0) -> -1073729481.0) ((5054 . 5625) (- 12343 1073741825.0) -> -1073729482.0) ((5055 . 5625) (- 12343 1073741826.0) -> -1073729483.0) ((5056 . 5625) (- 12344 1073741822.0) -> -1073729478.0) ((5057 . 5625) (- 12344 1073741823.0) -> -1073729479.0) ((5058 . 5625) (- 12344 1073741824.0) -> -1073729480.0) ((5059 . 5625) (- 12344 1073741825.0) -> -1073729481.0) ((5060 . 5625) (- 12344 1073741826.0) -> -1073729482.0) ((5061 . 5625) (- 12345 1073741822.0) -> -1073729477.0) ((5062 . 5625) (- 12345 1073741823.0) -> -1073729478.0) ((5063 . 5625) (- 12345 1073741824.0) -> -1073729479.0) ((5064 . 5625) (- 12345 1073741825.0) -> -1073729480.0) ((5065 . 5625) (- 12345 1073741826.0) -> -1073729481.0) ((5066 . 5625) (- 12346 1073741822.0) -> -1073729476.0) ((5067 . 5625) (- 12346 1073741823.0) -> -1073729477.0) ((5068 . 5625) (- 12346 1073741824.0) -> -1073729478.0) ((5069 . 5625) (- 12346 1073741825.0) -> -1073729479.0) ((5070 . 5625) (- 12346 1073741826.0) -> -1073729480.0) ((5071 . 5625) (- 12347 1073741822.0) -> -1073729475.0) ((5072 . 5625) (- 12347 1073741823.0) -> -1073729476.0) ((5073 . 5625) (- 12347 1073741824.0) -> -1073729477.0) ((5074 . 5625) (- 12347 1073741825.0) -> -1073729478.0) ((5075 . 5625) (- 12347 1073741826.0) -> -1073729479.0) ((5076 . 5625) (- 12343 -1073741827.0) -> 1073754170.0) ((5077 . 5625) (- 12343 -1073741826.0) -> 1073754169.0) ((5078 . 5625) (- 12343 -1073741825.0) -> 1073754168.0) ((5079 . 5625) (- 12343 -1073741824.0) -> 1073754167.0) ((5080 . 5625) (- 12343 -1073741823.0) -> 1073754166.0) ((5081 . 5625) (- 12344 -1073741827.0) -> 1073754171.0) ((5082 . 5625) (- 12344 -1073741826.0) -> 1073754170.0) ((5083 . 5625) (- 12344 -1073741825.0) -> 1073754169.0) ((5084 . 5625) (- 12344 -1073741824.0) -> 1073754168.0) ((5085 . 5625) (- 12344 -1073741823.0) -> 1073754167.0) ((5086 . 5625) (- 12345 -1073741827.0) -> 1073754172.0) ((5087 . 5625) (- 12345 -1073741826.0) -> 1073754171.0) ((5088 . 5625) (- 12345 -1073741825.0) -> 1073754170.0) ((5089 . 5625) (- 12345 -1073741824.0) -> 1073754169.0) ((5090 . 5625) (- 12345 -1073741823.0) -> 1073754168.0) ((5091 . 5625) (- 12346 -1073741827.0) -> 1073754173.0) ((5092 . 5625) (- 12346 -1073741826.0) -> 1073754172.0) ((5093 . 5625) (- 12346 -1073741825.0) -> 1073754171.0) ((5094 . 5625) (- 12346 -1073741824.0) -> 1073754170.0) ((5095 . 5625) (- 12346 -1073741823.0) -> 1073754169.0) ((5096 . 5625) (- 12347 -1073741827.0) -> 1073754174.0) ((5097 . 5625) (- 12347 -1073741826.0) -> 1073754173.0) ((5098 . 5625) (- 12347 -1073741825.0) -> 1073754172.0) ((5099 . 5625) (- 12347 -1073741824.0) -> 1073754171.0) ((5100 . 5625) (- 12347 -1073741823.0) -> 1073754170.0) ((5101 . 5625) (- 12343 1103515243.0) -> -1103502900.0) ((5102 . 5625) (- 12343 1103515244.0) -> -1103502901.0) ((5103 . 5625) (- 12343 1103515245.0) -> -1103502902.0) ((5104 . 5625) (- 12343 1103515246.0) -> -1103502903.0) ((5105 . 5625) (- 12343 1103515247.0) -> -1103502904.0) ((5106 . 5625) (- 12344 1103515243.0) -> -1103502899.0) ((5107 . 5625) (- 12344 1103515244.0) -> -1103502900.0) ((5108 . 5625) (- 12344 1103515245.0) -> -1103502901.0) ((5109 . 5625) (- 12344 1103515246.0) -> -1103502902.0) ((5110 . 5625) (- 12344 1103515247.0) -> -1103502903.0) ((5111 . 5625) (- 12345 1103515243.0) -> -1103502898.0) ((5112 . 5625) (- 12345 1103515244.0) -> -1103502899.0) ((5113 . 5625) (- 12345 1103515245.0) -> -1103502900.0) ((5114 . 5625) (- 12345 1103515246.0) -> -1103502901.0) ((5115 . 5625) (- 12345 1103515247.0) -> -1103502902.0) ((5116 . 5625) (- 12346 1103515243.0) -> -1103502897.0) ((5117 . 5625) (- 12346 1103515244.0) -> -1103502898.0) ((5118 . 5625) (- 12346 1103515245.0) -> -1103502899.0) ((5119 . 5625) (- 12346 1103515246.0) -> -1103502900.0) ((5120 . 5625) (- 12346 1103515247.0) -> -1103502901.0) ((5121 . 5625) (- 12347 1103515243.0) -> -1103502896.0) ((5122 . 5625) (- 12347 1103515244.0) -> -1103502897.0) ((5123 . 5625) (- 12347 1103515245.0) -> -1103502898.0) ((5124 . 5625) (- 12347 1103515246.0) -> -1103502899.0) ((5125 . 5625) (- 12347 1103515247.0) -> -1103502900.0) ((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 9.00719925474099e+15) -> -9.00719925472865e+15) ((5152 . 5625) (- 12343 9.00719925474099e+15) -> -9.00719925472865e+15) ((5153 . 5625) (- 12343 9.00719925474099e+15) -> -9.00719925472865e+15) ((5154 . 5625) (- 12343 9.00719925474099e+15) -> -9.00719925472865e+15) ((5155 . 5625) (- 12343 9.00719925474099e+15) -> -9.00719925472865e+15) ((5156 . 5625) (- 12344 9.00719925474099e+15) -> -9.00719925472865e+15) ((5157 . 5625) (- 12344 9.00719925474099e+15) -> -9.00719925472865e+15) ((5158 . 5625) (- 12344 9.00719925474099e+15) -> -9.00719925472865e+15) ((5159 . 5625) (- 12344 9.00719925474099e+15) -> -9.00719925472865e+15) ((5160 . 5625) (- 12344 9.00719925474099e+15) -> -9.00719925472865e+15) ((5161 . 5625) (- 12345 9.00719925474099e+15) -> -9.00719925472864e+15) ((5162 . 5625) (- 12345 9.00719925474099e+15) -> -9.00719925472865e+15) ((5163 . 5625) (- 12345 9.00719925474099e+15) -> -9.00719925472865e+15) ((5164 . 5625) (- 12345 9.00719925474099e+15) -> -9.00719925472865e+15) ((5165 . 5625) (- 12345 9.00719925474099e+15) -> -9.00719925472865e+15) ((5166 . 5625) (- 12346 9.00719925474099e+15) -> -9.00719925472864e+15) ((5167 . 5625) (- 12346 9.00719925474099e+15) -> -9.00719925472864e+15) ((5168 . 5625) (- 12346 9.00719925474099e+15) -> -9.00719925472865e+15) ((5169 . 5625) (- 12346 9.00719925474099e+15) -> -9.00719925472865e+15) ((5170 . 5625) (- 12346 9.00719925474099e+15) -> -9.00719925472865e+15) ((5171 . 5625) (- 12347 9.00719925474099e+15) -> -9.00719925472864e+15) ((5172 . 5625) (- 12347 9.00719925474099e+15) -> -9.00719925472864e+15) ((5173 . 5625) (- 12347 9.00719925474099e+15) -> -9.00719925472864e+15) ((5174 . 5625) (- 12347 9.00719925474099e+15) -> -9.00719925472864e+15) ((5175 . 5625) (- 12347 9.00719925474099e+15) -> -9.00719925472865e+15) ((5176 . 5625) (- 12343 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5177 . 5625) (- 12343 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5178 . 5625) (- 12343 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5179 . 5625) (- 12343 -9.00719925474099e+15) -> 9.00719925475333e+15) ((5180 . 5625) (- 12343 -9.00719925474099e+15) -> 9.00719925475333e+15) ((5181 . 5625) (- 12344 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5182 . 5625) (- 12344 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5183 . 5625) (- 12344 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5184 . 5625) (- 12344 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5185 . 5625) (- 12344 -9.00719925474099e+15) -> 9.00719925475333e+15) ((5186 . 5625) (- 12345 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5187 . 5625) (- 12345 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5188 . 5625) (- 12345 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5189 . 5625) (- 12345 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5190 . 5625) (- 12345 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5191 . 5625) (- 12346 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5192 . 5625) (- 12346 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5193 . 5625) (- 12346 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5194 . 5625) (- 12346 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5195 . 5625) (- 12346 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5196 . 5625) (- 12347 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5197 . 5625) (- 12347 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5198 . 5625) (- 12347 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5199 . 5625) (- 12347 -9.00719925474099e+15) -> 9.00719925475334e+15) ((5200 . 5625) (- 12347 -9.00719925474099e+15) -> 9.00719925475334e+15) ((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.0) -> -4294954951.0) ((5227 . 5625) (- 12343 4294967295.0) -> -4294954952.0) ((5228 . 5625) (- 12343 4294967296.0) -> -4294954953.0) ((5229 . 5625) (- 12343 4294967297.0) -> -4294954954.0) ((5230 . 5625) (- 12343 4294967298.0) -> -4294954955.0) ((5231 . 5625) (- 12344 4294967294.0) -> -4294954950.0) ((5232 . 5625) (- 12344 4294967295.0) -> -4294954951.0) ((5233 . 5625) (- 12344 4294967296.0) -> -4294954952.0) ((5234 . 5625) (- 12344 4294967297.0) -> -4294954953.0) ((5235 . 5625) (- 12344 4294967298.0) -> -4294954954.0) ((5236 . 5625) (- 12345 4294967294.0) -> -4294954949.0) ((5237 . 5625) (- 12345 4294967295.0) -> -4294954950.0) ((5238 . 5625) (- 12345 4294967296.0) -> -4294954951.0) ((5239 . 5625) (- 12345 4294967297.0) -> -4294954952.0) ((5240 . 5625) (- 12345 4294967298.0) -> -4294954953.0) ((5241 . 5625) (- 12346 4294967294.0) -> -4294954948.0) ((5242 . 5625) (- 12346 4294967295.0) -> -4294954949.0) ((5243 . 5625) (- 12346 4294967296.0) -> -4294954950.0) ((5244 . 5625) (- 12346 4294967297.0) -> -4294954951.0) ((5245 . 5625) (- 12346 4294967298.0) -> -4294954952.0) ((5246 . 5625) (- 12347 4294967294.0) -> -4294954947.0) ((5247 . 5625) (- 12347 4294967295.0) -> -4294954948.0) ((5248 . 5625) (- 12347 4294967296.0) -> -4294954949.0) ((5249 . 5625) (- 12347 4294967297.0) -> -4294954950.0) ((5250 . 5625) (- 12347 4294967298.0) -> -4294954951.0) ((5251 . 5625) (- 4294967294.0 -2) -> 4294967296.0) ((5252 . 5625) (- 4294967294.0 -1) -> 4294967295.0) ((5253 . 5625) (- 4294967294.0 0) -> 4294967294.0) ((5254 . 5625) (- 4294967294.0 1) -> 4294967293.0) ((5255 . 5625) (- 4294967294.0 2) -> 4294967292.0) ((5256 . 5625) (- 4294967295.0 -2) -> 4294967297.0) ((5257 . 5625) (- 4294967295.0 -1) -> 4294967296.0) ((5258 . 5625) (- 4294967295.0 0) -> 4294967295.0) ((5259 . 5625) (- 4294967295.0 1) -> 4294967294.0) ((5260 . 5625) (- 4294967295.0 2) -> 4294967293.0) ((5261 . 5625) (- 4294967296.0 -2) -> 4294967298.0) ((5262 . 5625) (- 4294967296.0 -1) -> 4294967297.0) ((5263 . 5625) (- 4294967296.0 0) -> 4294967296.0) ((5264 . 5625) (- 4294967296.0 1) -> 4294967295.0) ((5265 . 5625) (- 4294967296.0 2) -> 4294967294.0) ((5266 . 5625) (- 4294967297.0 -2) -> 4294967299.0) ((5267 . 5625) (- 4294967297.0 -1) -> 4294967298.0) ((5268 . 5625) (- 4294967297.0 0) -> 4294967297.0) ((5269 . 5625) (- 4294967297.0 1) -> 4294967296.0) ((5270 . 5625) (- 4294967297.0 2) -> 4294967295.0) ((5271 . 5625) (- 4294967298.0 -2) -> 4294967300.0) ((5272 . 5625) (- 4294967298.0 -1) -> 4294967299.0) ((5273 . 5625) (- 4294967298.0 0) -> 4294967298.0) ((5274 . 5625) (- 4294967298.0 1) -> 4294967297.0) ((5275 . 5625) (- 4294967298.0 2) -> 4294967296.0) ((5276 . 5625) (- 4294967294.0 -1) -> 4294967295.0) ((5277 . 5625) (- 4294967294.0 0) -> 4294967294.0) ((5278 . 5625) (- 4294967294.0 1) -> 4294967293.0) ((5279 . 5625) (- 4294967294.0 2) -> 4294967292.0) ((5280 . 5625) (- 4294967294.0 3) -> 4294967291.0) ((5281 . 5625) (- 4294967295.0 -1) -> 4294967296.0) ((5282 . 5625) (- 4294967295.0 0) -> 4294967295.0) ((5283 . 5625) (- 4294967295.0 1) -> 4294967294.0) ((5284 . 5625) (- 4294967295.0 2) -> 4294967293.0) ((5285 . 5625) (- 4294967295.0 3) -> 4294967292.0) ((5286 . 5625) (- 4294967296.0 -1) -> 4294967297.0) ((5287 . 5625) (- 4294967296.0 0) -> 4294967296.0) ((5288 . 5625) (- 4294967296.0 1) -> 4294967295.0) ((5289 . 5625) (- 4294967296.0 2) -> 4294967294.0) ((5290 . 5625) (- 4294967296.0 3) -> 4294967293.0) ((5291 . 5625) (- 4294967297.0 -1) -> 4294967298.0) ((5292 . 5625) (- 4294967297.0 0) -> 4294967297.0) ((5293 . 5625) (- 4294967297.0 1) -> 4294967296.0) ((5294 . 5625) (- 4294967297.0 2) -> 4294967295.0) ((5295 . 5625) (- 4294967297.0 3) -> 4294967294.0) ((5296 . 5625) (- 4294967298.0 -1) -> 4294967299.0) ((5297 . 5625) (- 4294967298.0 0) -> 4294967298.0) ((5298 . 5625) (- 4294967298.0 1) -> 4294967297.0) ((5299 . 5625) (- 4294967298.0 2) -> 4294967296.0) ((5300 . 5625) (- 4294967298.0 3) -> 4294967295.0) ((5301 . 5625) (- 4294967294.0 -3) -> 4294967297.0) ((5302 . 5625) (- 4294967294.0 -2) -> 4294967296.0) ((5303 . 5625) (- 4294967294.0 -1) -> 4294967295.0) ((5304 . 5625) (- 4294967294.0 0) -> 4294967294.0) ((5305 . 5625) (- 4294967294.0 1) -> 4294967293.0) ((5306 . 5625) (- 4294967295.0 -3) -> 4294967298.0) ((5307 . 5625) (- 4294967295.0 -2) -> 4294967297.0) ((5308 . 5625) (- 4294967295.0 -1) -> 4294967296.0) ((5309 . 5625) (- 4294967295.0 0) -> 4294967295.0) ((5310 . 5625) (- 4294967295.0 1) -> 4294967294.0) ((5311 . 5625) (- 4294967296.0 -3) -> 4294967299.0) ((5312 . 5625) (- 4294967296.0 -2) -> 4294967298.0) ((5313 . 5625) (- 4294967296.0 -1) -> 4294967297.0) ((5314 . 5625) (- 4294967296.0 0) -> 4294967296.0) ((5315 . 5625) (- 4294967296.0 1) -> 4294967295.0) ((5316 . 5625) (- 4294967297.0 -3) -> 4294967300.0) ((5317 . 5625) (- 4294967297.0 -2) -> 4294967299.0) ((5318 . 5625) (- 4294967297.0 -1) -> 4294967298.0) ((5319 . 5625) (- 4294967297.0 0) -> 4294967297.0) ((5320 . 5625) (- 4294967297.0 1) -> 4294967296.0) ((5321 . 5625) (- 4294967298.0 -3) -> 4294967301.0) ((5322 . 5625) (- 4294967298.0 -2) -> 4294967300.0) ((5323 . 5625) (- 4294967298.0 -1) -> 4294967299.0) ((5324 . 5625) (- 4294967298.0 0) -> 4294967298.0) ((5325 . 5625) (- 4294967298.0 1) -> 4294967297.0) ((5326 . 5625) (- 4294967294.0 0) -> 4294967294.0) ((5327 . 5625) (- 4294967294.0 1) -> 4294967293.0) ((5328 . 5625) (- 4294967294.0 2) -> 4294967292.0) ((5329 . 5625) (- 4294967294.0 3) -> 4294967291.0) ((5330 . 5625) (- 4294967294.0 4) -> 4294967290.0) ((5331 . 5625) (- 4294967295.0 0) -> 4294967295.0) ((5332 . 5625) (- 4294967295.0 1) -> 4294967294.0) ((5333 . 5625) (- 4294967295.0 2) -> 4294967293.0) ((5334 . 5625) (- 4294967295.0 3) -> 4294967292.0) ((5335 . 5625) (- 4294967295.0 4) -> 4294967291.0) ((5336 . 5625) (- 4294967296.0 0) -> 4294967296.0) ((5337 . 5625) (- 4294967296.0 1) -> 4294967295.0) ((5338 . 5625) (- 4294967296.0 2) -> 4294967294.0) ((5339 . 5625) (- 4294967296.0 3) -> 4294967293.0) ((5340 . 5625) (- 4294967296.0 4) -> 4294967292.0) ((5341 . 5625) (- 4294967297.0 0) -> 4294967297.0) ((5342 . 5625) (- 4294967297.0 1) -> 4294967296.0) ((5343 . 5625) (- 4294967297.0 2) -> 4294967295.0) ((5344 . 5625) (- 4294967297.0 3) -> 4294967294.0) ((5345 . 5625) (- 4294967297.0 4) -> 4294967293.0) ((5346 . 5625) (- 4294967298.0 0) -> 4294967298.0) ((5347 . 5625) (- 4294967298.0 1) -> 4294967297.0) ((5348 . 5625) (- 4294967298.0 2) -> 4294967296.0) ((5349 . 5625) (- 4294967298.0 3) -> 4294967295.0) ((5350 . 5625) (- 4294967298.0 4) -> 4294967294.0) ((5351 . 5625) (- 4294967294.0 -4) -> 4294967298.0) ((5352 . 5625) (- 4294967294.0 -3) -> 4294967297.0) ((5353 . 5625) (- 4294967294.0 -2) -> 4294967296.0) ((5354 . 5625) (- 4294967294.0 -1) -> 4294967295.0) ((5355 . 5625) (- 4294967294.0 0) -> 4294967294.0) ((5356 . 5625) (- 4294967295.0 -4) -> 4294967299.0) ((5357 . 5625) (- 4294967295.0 -3) -> 4294967298.0) ((5358 . 5625) (- 4294967295.0 -2) -> 4294967297.0) ((5359 . 5625) (- 4294967295.0 -1) -> 4294967296.0) ((5360 . 5625) (- 4294967295.0 0) -> 4294967295.0) ((5361 . 5625) (- 4294967296.0 -4) -> 4294967300.0) ((5362 . 5625) (- 4294967296.0 -3) -> 4294967299.0) ((5363 . 5625) (- 4294967296.0 -2) -> 4294967298.0) ((5364 . 5625) (- 4294967296.0 -1) -> 4294967297.0) ((5365 . 5625) (- 4294967296.0 0) -> 4294967296.0) ((5366 . 5625) (- 4294967297.0 -4) -> 4294967301.0) ((5367 . 5625) (- 4294967297.0 -3) -> 4294967300.0) ((5368 . 5625) (- 4294967297.0 -2) -> 4294967299.0) ((5369 . 5625) (- 4294967297.0 -1) -> 4294967298.0) ((5370 . 5625) (- 4294967297.0 0) -> 4294967297.0) ((5371 . 5625) (- 4294967298.0 -4) -> 4294967302.0) ((5372 . 5625) (- 4294967298.0 -3) -> 4294967301.0) ((5373 . 5625) (- 4294967298.0 -2) -> 4294967300.0) ((5374 . 5625) (- 4294967298.0 -1) -> 4294967299.0) ((5375 . 5625) (- 4294967298.0 0) -> 4294967298.0) ((5376 . 5625) (- 4294967294.0 1073741821) -> 3221225473.0) ((5377 . 5625) (- 4294967294.0 1073741822) -> 3221225472.0) ((5378 . 5625) (- 4294967294.0 1073741823) -> 3221225471.0) ((5379 . 5625) (- 4294967294.0 1073741824.0) -> 3221225470.0) ((5380 . 5625) (- 4294967294.0 1073741825.0) -> 3221225469.0) ((5381 . 5625) (- 4294967295.0 1073741821) -> 3221225474.0) ((5382 . 5625) (- 4294967295.0 1073741822) -> 3221225473.0) ((5383 . 5625) (- 4294967295.0 1073741823) -> 3221225472.0) ((5384 . 5625) (- 4294967295.0 1073741824.0) -> 3221225471.0) ((5385 . 5625) (- 4294967295.0 1073741825.0) -> 3221225470.0) ((5386 . 5625) (- 4294967296.0 1073741821) -> 3221225475.0) ((5387 . 5625) (- 4294967296.0 1073741822) -> 3221225474.0) ((5388 . 5625) (- 4294967296.0 1073741823) -> 3221225473.0) ((5389 . 5625) (- 4294967296.0 1073741824.0) -> 3221225472.0) ((5390 . 5625) (- 4294967296.0 1073741825.0) -> 3221225471.0) ((5391 . 5625) (- 4294967297.0 1073741821) -> 3221225476.0) ((5392 . 5625) (- 4294967297.0 1073741822) -> 3221225475.0) ((5393 . 5625) (- 4294967297.0 1073741823) -> 3221225474.0) ((5394 . 5625) (- 4294967297.0 1073741824.0) -> 3221225473.0) ((5395 . 5625) (- 4294967297.0 1073741825.0) -> 3221225472.0) ((5396 . 5625) (- 4294967298.0 1073741821) -> 3221225477.0) ((5397 . 5625) (- 4294967298.0 1073741822) -> 3221225476.0) ((5398 . 5625) (- 4294967298.0 1073741823) -> 3221225475.0) ((5399 . 5625) (- 4294967298.0 1073741824.0) -> 3221225474.0) ((5400 . 5625) (- 4294967298.0 1073741825.0) -> 3221225473.0) ((5401 . 5625) (- 4294967294.0 -1073741826.0) -> 5368709120.0) ((5402 . 5625) (- 4294967294.0 -1073741825.0) -> 5368709119.0) ((5403 . 5625) (- 4294967294.0 -1073741824) -> 5368709118.0) ((5404 . 5625) (- 4294967294.0 -1073741823) -> 5368709117.0) ((5405 . 5625) (- 4294967294.0 -1073741822) -> 5368709116.0) ((5406 . 5625) (- 4294967295.0 -1073741826.0) -> 5368709121.0) ((5407 . 5625) (- 4294967295.0 -1073741825.0) -> 5368709120.0) ((5408 . 5625) (- 4294967295.0 -1073741824) -> 5368709119.0) ((5409 . 5625) (- 4294967295.0 -1073741823) -> 5368709118.0) ((5410 . 5625) (- 4294967295.0 -1073741822) -> 5368709117.0) ((5411 . 5625) (- 4294967296.0 -1073741826.0) -> 5368709122.0) ((5412 . 5625) (- 4294967296.0 -1073741825.0) -> 5368709121.0) ((5413 . 5625) (- 4294967296.0 -1073741824) -> 5368709120.0) ((5414 . 5625) (- 4294967296.0 -1073741823) -> 5368709119.0) ((5415 . 5625) (- 4294967296.0 -1073741822) -> 5368709118.0) ((5416 . 5625) (- 4294967297.0 -1073741826.0) -> 5368709123.0) ((5417 . 5625) (- 4294967297.0 -1073741825.0) -> 5368709122.0) ((5418 . 5625) (- 4294967297.0 -1073741824) -> 5368709121.0) ((5419 . 5625) (- 4294967297.0 -1073741823) -> 5368709120.0) ((5420 . 5625) (- 4294967297.0 -1073741822) -> 5368709119.0) ((5421 . 5625) (- 4294967298.0 -1073741826.0) -> 5368709124.0) ((5422 . 5625) (- 4294967298.0 -1073741825.0) -> 5368709123.0) ((5423 . 5625) (- 4294967298.0 -1073741824) -> 5368709122.0) ((5424 . 5625) (- 4294967298.0 -1073741823) -> 5368709121.0) ((5425 . 5625) (- 4294967298.0 -1073741822) -> 5368709120.0) ((5426 . 5625) (- 4294967294.0 1073741822.0) -> 3221225472.0) ((5427 . 5625) (- 4294967294.0 1073741823.0) -> 3221225471.0) ((5428 . 5625) (- 4294967294.0 1073741824.0) -> 3221225470.0) ((5429 . 5625) (- 4294967294.0 1073741825.0) -> 3221225469.0) ((5430 . 5625) (- 4294967294.0 1073741826.0) -> 3221225468.0) ((5431 . 5625) (- 4294967295.0 1073741822.0) -> 3221225473.0) ((5432 . 5625) (- 4294967295.0 1073741823.0) -> 3221225472.0) ((5433 . 5625) (- 4294967295.0 1073741824.0) -> 3221225471.0) ((5434 . 5625) (- 4294967295.0 1073741825.0) -> 3221225470.0) ((5435 . 5625) (- 4294967295.0 1073741826.0) -> 3221225469.0) ((5436 . 5625) (- 4294967296.0 1073741822.0) -> 3221225474.0) ((5437 . 5625) (- 4294967296.0 1073741823.0) -> 3221225473.0) ((5438 . 5625) (- 4294967296.0 1073741824.0) -> 3221225472.0) ((5439 . 5625) (- 4294967296.0 1073741825.0) -> 3221225471.0) ((5440 . 5625) (- 4294967296.0 1073741826.0) -> 3221225470.0) ((5441 . 5625) (- 4294967297.0 1073741822.0) -> 3221225475.0) ((5442 . 5625) (- 4294967297.0 1073741823.0) -> 3221225474.0) ((5443 . 5625) (- 4294967297.0 1073741824.0) -> 3221225473.0) ((5444 . 5625) (- 4294967297.0 1073741825.0) -> 3221225472.0) ((5445 . 5625) (- 4294967297.0 1073741826.0) -> 3221225471.0) ((5446 . 5625) (- 4294967298.0 1073741822.0) -> 3221225476.0) ((5447 . 5625) (- 4294967298.0 1073741823.0) -> 3221225475.0) ((5448 . 5625) (- 4294967298.0 1073741824.0) -> 3221225474.0) ((5449 . 5625) (- 4294967298.0 1073741825.0) -> 3221225473.0) ((5450 . 5625) (- 4294967298.0 1073741826.0) -> 3221225472.0) ((5451 . 5625) (- 4294967294.0 -1073741827.0) -> 5368709121.0) ((5452 . 5625) (- 4294967294.0 -1073741826.0) -> 5368709120.0) ((5453 . 5625) (- 4294967294.0 -1073741825.0) -> 5368709119.0) ((5454 . 5625) (- 4294967294.0 -1073741824.0) -> 5368709118.0) ((5455 . 5625) (- 4294967294.0 -1073741823.0) -> 5368709117.0) ((5456 . 5625) (- 4294967295.0 -1073741827.0) -> 5368709122.0) ((5457 . 5625) (- 4294967295.0 -1073741826.0) -> 5368709121.0) ((5458 . 5625) (- 4294967295.0 -1073741825.0) -> 5368709120.0) ((5459 . 5625) (- 4294967295.0 -1073741824.0) -> 5368709119.0) ((5460 . 5625) (- 4294967295.0 -1073741823.0) -> 5368709118.0) ((5461 . 5625) (- 4294967296.0 -1073741827.0) -> 5368709123.0) ((5462 . 5625) (- 4294967296.0 -1073741826.0) -> 5368709122.0) ((5463 . 5625) (- 4294967296.0 -1073741825.0) -> 5368709121.0) ((5464 . 5625) (- 4294967296.0 -1073741824.0) -> 5368709120.0) ((5465 . 5625) (- 4294967296.0 -1073741823.0) -> 5368709119.0) ((5466 . 5625) (- 4294967297.0 -1073741827.0) -> 5368709124.0) ((5467 . 5625) (- 4294967297.0 -1073741826.0) -> 5368709123.0) ((5468 . 5625) (- 4294967297.0 -1073741825.0) -> 5368709122.0) ((5469 . 5625) (- 4294967297.0 -1073741824.0) -> 5368709121.0) ((5470 . 5625) (- 4294967297.0 -1073741823.0) -> 5368709120.0) ((5471 . 5625) (- 4294967298.0 -1073741827.0) -> 5368709125.0) ((5472 . 5625) (- 4294967298.0 -1073741826.0) -> 5368709124.0) ((5473 . 5625) (- 4294967298.0 -1073741825.0) -> 5368709123.0) ((5474 . 5625) (- 4294967298.0 -1073741824.0) -> 5368709122.0) ((5475 . 5625) (- 4294967298.0 -1073741823.0) -> 5368709121.0) ((5476 . 5625) (- 4294967294.0 1103515243.0) -> 3191452051.0) ((5477 . 5625) (- 4294967294.0 1103515244.0) -> 3191452050.0) ((5478 . 5625) (- 4294967294.0 1103515245.0) -> 3191452049.0) ((5479 . 5625) (- 4294967294.0 1103515246.0) -> 3191452048.0) ((5480 . 5625) (- 4294967294.0 1103515247.0) -> 3191452047.0) ((5481 . 5625) (- 4294967295.0 1103515243.0) -> 3191452052.0) ((5482 . 5625) (- 4294967295.0 1103515244.0) -> 3191452051.0) ((5483 . 5625) (- 4294967295.0 1103515245.0) -> 3191452050.0) ((5484 . 5625) (- 4294967295.0 1103515246.0) -> 3191452049.0) ((5485 . 5625) (- 4294967295.0 1103515247.0) -> 3191452048.0) ((5486 . 5625) (- 4294967296.0 1103515243.0) -> 3191452053.0) ((5487 . 5625) (- 4294967296.0 1103515244.0) -> 3191452052.0) ((5488 . 5625) (- 4294967296.0 1103515245.0) -> 3191452051.0) ((5489 . 5625) (- 4294967296.0 1103515246.0) -> 3191452050.0) ((5490 . 5625) (- 4294967296.0 1103515247.0) -> 3191452049.0) ((5491 . 5625) (- 4294967297.0 1103515243.0) -> 3191452054.0) ((5492 . 5625) (- 4294967297.0 1103515244.0) -> 3191452053.0) ((5493 . 5625) (- 4294967297.0 1103515245.0) -> 3191452052.0) ((5494 . 5625) (- 4294967297.0 1103515246.0) -> 3191452051.0) ((5495 . 5625) (- 4294967297.0 1103515247.0) -> 3191452050.0) ((5496 . 5625) (- 4294967298.0 1103515243.0) -> 3191452055.0) ((5497 . 5625) (- 4294967298.0 1103515244.0) -> 3191452054.0) ((5498 . 5625) (- 4294967298.0 1103515245.0) -> 3191452053.0) ((5499 . 5625) (- 4294967298.0 1103515246.0) -> 3191452052.0) ((5500 . 5625) (- 4294967298.0 1103515247.0) -> 3191452051.0) ((5501 . 5625) (- 4294967294.0 631629063) -> 3663338231.0) ((5502 . 5625) (- 4294967294.0 631629064) -> 3663338230.0) ((5503 . 5625) (- 4294967294.0 631629065) -> 3663338229.0) ((5504 . 5625) (- 4294967294.0 631629066) -> 3663338228.0) ((5505 . 5625) (- 4294967294.0 631629067) -> 3663338227.0) ((5506 . 5625) (- 4294967295.0 631629063) -> 3663338232.0) ((5507 . 5625) (- 4294967295.0 631629064) -> 3663338231.0) ((5508 . 5625) (- 4294967295.0 631629065) -> 3663338230.0) ((5509 . 5625) (- 4294967295.0 631629066) -> 3663338229.0) ((5510 . 5625) (- 4294967295.0 631629067) -> 3663338228.0) ((5511 . 5625) (- 4294967296.0 631629063) -> 3663338233.0) ((5512 . 5625) (- 4294967296.0 631629064) -> 3663338232.0) ((5513 . 5625) (- 4294967296.0 631629065) -> 3663338231.0) ((5514 . 5625) (- 4294967296.0 631629066) -> 3663338230.0) ((5515 . 5625) (- 4294967296.0 631629067) -> 3663338229.0) ((5516 . 5625) (- 4294967297.0 631629063) -> 3663338234.0) ((5517 . 5625) (- 4294967297.0 631629064) -> 3663338233.0) ((5518 . 5625) (- 4294967297.0 631629065) -> 3663338232.0) ((5519 . 5625) (- 4294967297.0 631629066) -> 3663338231.0) ((5520 . 5625) (- 4294967297.0 631629067) -> 3663338230.0) ((5521 . 5625) (- 4294967298.0 631629063) -> 3663338235.0) ((5522 . 5625) (- 4294967298.0 631629064) -> 3663338234.0) ((5523 . 5625) (- 4294967298.0 631629065) -> 3663338233.0) ((5524 . 5625) (- 4294967298.0 631629066) -> 3663338232.0) ((5525 . 5625) (- 4294967298.0 631629067) -> 3663338231.0) ((5526 . 5625) (- 4294967294.0 9.00719925474099e+15) -> -9.0071949597737e+15) ((5527 . 5625) (- 4294967294.0 9.00719925474099e+15) -> -9.0071949597737e+15) ((5528 . 5625) (- 4294967294.0 9.00719925474099e+15) -> -9.0071949597737e+15) ((5529 . 5625) (- 4294967294.0 9.00719925474099e+15) -> -9.0071949597737e+15) ((5530 . 5625) (- 4294967294.0 9.00719925474099e+15) -> -9.0071949597737e+15) ((5531 . 5625) (- 4294967295.0 9.00719925474099e+15) -> -9.0071949597737e+15) ((5532 . 5625) (- 4294967295.0 9.00719925474099e+15) -> -9.0071949597737e+15) ((5533 . 5625) (- 4294967295.0 9.00719925474099e+15) -> -9.0071949597737e+15) ((5534 . 5625) (- 4294967295.0 9.00719925474099e+15) -> -9.0071949597737e+15) ((5535 . 5625) (- 4294967295.0 9.00719925474099e+15) -> -9.0071949597737e+15) ((5536 . 5625) (- 4294967296.0 9.00719925474099e+15) -> -9.00719495977369e+15) ((5537 . 5625) (- 4294967296.0 9.00719925474099e+15) -> -9.0071949597737e+15) ((5538 . 5625) (- 4294967296.0 9.00719925474099e+15) -> -9.0071949597737e+15) ((5539 . 5625) (- 4294967296.0 9.00719925474099e+15) -> -9.0071949597737e+15) ((5540 . 5625) (- 4294967296.0 9.00719925474099e+15) -> -9.0071949597737e+15) ((5541 . 5625) (- 4294967297.0 9.00719925474099e+15) -> -9.00719495977369e+15) ((5542 . 5625) (- 4294967297.0 9.00719925474099e+15) -> -9.00719495977369e+15) ((5543 . 5625) (- 4294967297.0 9.00719925474099e+15) -> -9.0071949597737e+15) ((5544 . 5625) (- 4294967297.0 9.00719925474099e+15) -> -9.0071949597737e+15) ((5545 . 5625) (- 4294967297.0 9.00719925474099e+15) -> -9.0071949597737e+15) ((5546 . 5625) (- 4294967298.0 9.00719925474099e+15) -> -9.00719495977369e+15) ((5547 . 5625) (- 4294967298.0 9.00719925474099e+15) -> -9.00719495977369e+15) ((5548 . 5625) (- 4294967298.0 9.00719925474099e+15) -> -9.00719495977369e+15) ((5549 . 5625) (- 4294967298.0 9.00719925474099e+15) -> -9.00719495977369e+15) ((5550 . 5625) (- 4294967298.0 9.00719925474099e+15) -> -9.0071949597737e+15) ((5551 . 5625) (- 4294967294.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5552 . 5625) (- 4294967294.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5553 . 5625) (- 4294967294.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5554 . 5625) (- 4294967294.0 -9.00719925474099e+15) -> 9.00720354970828e+15) ((5555 . 5625) (- 4294967294.0 -9.00719925474099e+15) -> 9.00720354970828e+15) ((5556 . 5625) (- 4294967295.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5557 . 5625) (- 4294967295.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5558 . 5625) (- 4294967295.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5559 . 5625) (- 4294967295.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5560 . 5625) (- 4294967295.0 -9.00719925474099e+15) -> 9.00720354970828e+15) ((5561 . 5625) (- 4294967296.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5562 . 5625) (- 4294967296.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5563 . 5625) (- 4294967296.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5564 . 5625) (- 4294967296.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5565 . 5625) (- 4294967296.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5566 . 5625) (- 4294967297.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5567 . 5625) (- 4294967297.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5568 . 5625) (- 4294967297.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5569 . 5625) (- 4294967297.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5570 . 5625) (- 4294967297.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5571 . 5625) (- 4294967298.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5572 . 5625) (- 4294967298.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5573 . 5625) (- 4294967298.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5574 . 5625) (- 4294967298.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5575 . 5625) (- 4294967298.0 -9.00719925474099e+15) -> 9.00720354970829e+15) ((5576 . 5625) (- 4294967294.0 12343) -> 4294954951.0) ((5577 . 5625) (- 4294967294.0 12344) -> 4294954950.0) ((5578 . 5625) (- 4294967294.0 12345) -> 4294954949.0) ((5579 . 5625) (- 4294967294.0 12346) -> 4294954948.0) ((5580 . 5625) (- 4294967294.0 12347) -> 4294954947.0) ((5581 . 5625) (- 4294967295.0 12343) -> 4294954952.0) ((5582 . 5625) (- 4294967295.0 12344) -> 4294954951.0) ((5583 . 5625) (- 4294967295.0 12345) -> 4294954950.0) ((5584 . 5625) (- 4294967295.0 12346) -> 4294954949.0) ((5585 . 5625) (- 4294967295.0 12347) -> 4294954948.0) ((5586 . 5625) (- 4294967296.0 12343) -> 4294954953.0) ((5587 . 5625) (- 4294967296.0 12344) -> 4294954952.0) ((5588 . 5625) (- 4294967296.0 12345) -> 4294954951.0) ((5589 . 5625) (- 4294967296.0 12346) -> 4294954950.0) ((5590 . 5625) (- 4294967296.0 12347) -> 4294954949.0) ((5591 . 5625) (- 4294967297.0 12343) -> 4294954954.0) ((5592 . 5625) (- 4294967297.0 12344) -> 4294954953.0) ((5593 . 5625) (- 4294967297.0 12345) -> 4294954952.0) ((5594 . 5625) (- 4294967297.0 12346) -> 4294954951.0) ((5595 . 5625) (- 4294967297.0 12347) -> 4294954950.0) ((5596 . 5625) (- 4294967298.0 12343) -> 4294954955.0) ((5597 . 5625) (- 4294967298.0 12344) -> 4294954954.0) ((5598 . 5625) (- 4294967298.0 12345) -> 4294954953.0) ((5599 . 5625) (- 4294967298.0 12346) -> 4294954952.0) ((5600 . 5625) (- 4294967298.0 12347) -> 4294954951.0) ((5601 . 5625) (- 4294967294.0 4294967294.0) -> 0.0) ((5602 . 5625) (- 4294967294.0 4294967295.0) -> -1.0) ((5603 . 5625) (- 4294967294.0 4294967296.0) -> -2.0) ((5604 . 5625) (- 4294967294.0 4294967297.0) -> -3.0) ((5605 . 5625) (- 4294967294.0 4294967298.0) -> -4.0) ((5606 . 5625) (- 4294967295.0 4294967294.0) -> 1.0) ((5607 . 5625) (- 4294967295.0 4294967295.0) -> 0.0) ((5608 . 5625) (- 4294967295.0 4294967296.0) -> -1.0) ((5609 . 5625) (- 4294967295.0 4294967297.0) -> -2.0) ((5610 . 5625) (- 4294967295.0 4294967298.0) -> -3.0) ((5611 . 5625) (- 4294967296.0 4294967294.0) -> 2.0) ((5612 . 5625) (- 4294967296.0 4294967295.0) -> 1.0) ((5613 . 5625) (- 4294967296.0 4294967296.0) -> 0.0) ((5614 . 5625) (- 4294967296.0 4294967297.0) -> -1.0) ((5615 . 5625) (- 4294967296.0 4294967298.0) -> -2.0) ((5616 . 5625) (- 4294967297.0 4294967294.0) -> 3.0) ((5617 . 5625) (- 4294967297.0 4294967295.0) -> 2.0) ((5618 . 5625) (- 4294967297.0 4294967296.0) -> 1.0) ((5619 . 5625) (- 4294967297.0 4294967297.0) -> 0.0) ((5620 . 5625) (- 4294967297.0 4294967298.0) -> -1.0) ((5621 . 5625) (- 4294967298.0 4294967294.0) -> 4.0) ((5622 . 5625) (- 4294967298.0 4294967295.0) -> 3.0) ((5623 . 5625) (- 4294967298.0 4294967296.0) -> 2.0) ((5624 . 5625) (- 4294967298.0 4294967297.0) -> 1.0) ((5625 . 5625) (- 4294967298.0 4294967298.0) -> 0.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.0) ((127 . 5625) (* -2 1073741822) -> -2147483644.0) ((128 . 5625) (* -2 1073741823) -> -2147483646.0) ((129 . 5625) (* -2 1073741824.0) -> -2147483648.0) ((130 . 5625) (* -2 1073741825.0) -> -2147483650.0) ((131 . 5625) (* -1 1073741821) -> -1073741821) ((132 . 5625) (* -1 1073741822) -> -1073741822) ((133 . 5625) (* -1 1073741823) -> -1073741823) ((134 . 5625) (* -1 1073741824.0) -> -1073741824.0) ((135 . 5625) (* -1 1073741825.0) -> -1073741825.0) ((136 . 5625) (* 0 1073741821) -> 0) ((137 . 5625) (* 0 1073741822) -> 0) ((138 . 5625) (* 0 1073741823) -> 0) ((139 . 5625) (* 0 1073741824.0) -> 0.0) ((140 . 5625) (* 0 1073741825.0) -> 0.0) ((141 . 5625) (* 1 1073741821) -> 1073741821) ((142 . 5625) (* 1 1073741822) -> 1073741822) ((143 . 5625) (* 1 1073741823) -> 1073741823) ((144 . 5625) (* 1 1073741824.0) -> 1073741824.0) ((145 . 5625) (* 1 1073741825.0) -> 1073741825.0) ((146 . 5625) (* 2 1073741821) -> 2147483642.0) ((147 . 5625) (* 2 1073741822) -> 2147483644.0) ((148 . 5625) (* 2 1073741823) -> 2147483646.0) ((149 . 5625) (* 2 1073741824.0) -> 2147483648.0) ((150 . 5625) (* 2 1073741825.0) -> 2147483650.0) ((151 . 5625) (* -2 -1073741826.0) -> 2147483652.0) ((152 . 5625) (* -2 -1073741825.0) -> 2147483650.0) ((153 . 5625) (* -2 -1073741824) -> 2147483648.0) ((154 . 5625) (* -2 -1073741823) -> 2147483646.0) ((155 . 5625) (* -2 -1073741822) -> 2147483644.0) ((156 . 5625) (* -1 -1073741826.0) -> 1073741826.0) ((157 . 5625) (* -1 -1073741825.0) -> 1073741825.0) ((158 . 5625) (* -1 -1073741824) -> 1073741824.0) ((159 . 5625) (* -1 -1073741823) -> 1073741823) ((160 . 5625) (* -1 -1073741822) -> 1073741822) ((161 . 5625) (* 0 -1073741826.0) -> -0.0) ((162 . 5625) (* 0 -1073741825.0) -> -0.0) ((163 . 5625) (* 0 -1073741824) -> 0) ((164 . 5625) (* 0 -1073741823) -> 0) ((165 . 5625) (* 0 -1073741822) -> 0) ((166 . 5625) (* 1 -1073741826.0) -> -1073741826.0) ((167 . 5625) (* 1 -1073741825.0) -> -1073741825.0) ((168 . 5625) (* 1 -1073741824) -> -1073741824) ((169 . 5625) (* 1 -1073741823) -> -1073741823) ((170 . 5625) (* 1 -1073741822) -> -1073741822) ((171 . 5625) (* 2 -1073741826.0) -> -2147483652.0) ((172 . 5625) (* 2 -1073741825.0) -> -2147483650.0) ((173 . 5625) (* 2 -1073741824) -> -2147483648.0) ((174 . 5625) (* 2 -1073741823) -> -2147483646.0) ((175 . 5625) (* 2 -1073741822) -> -2147483644.0) ((176 . 5625) (* -2 1073741822.0) -> -2147483644.0) ((177 . 5625) (* -2 1073741823.0) -> -2147483646.0) ((178 . 5625) (* -2 1073741824.0) -> -2147483648.0) ((179 . 5625) (* -2 1073741825.0) -> -2147483650.0) ((180 . 5625) (* -2 1073741826.0) -> -2147483652.0) ((181 . 5625) (* -1 1073741822.0) -> -1073741822.0) ((182 . 5625) (* -1 1073741823.0) -> -1073741823.0) ((183 . 5625) (* -1 1073741824.0) -> -1073741824.0) ((184 . 5625) (* -1 1073741825.0) -> -1073741825.0) ((185 . 5625) (* -1 1073741826.0) -> -1073741826.0) ((186 . 5625) (* 0 1073741822.0) -> 0.0) ((187 . 5625) (* 0 1073741823.0) -> 0.0) ((188 . 5625) (* 0 1073741824.0) -> 0.0) ((189 . 5625) (* 0 1073741825.0) -> 0.0) ((190 . 5625) (* 0 1073741826.0) -> 0.0) ((191 . 5625) (* 1 1073741822.0) -> 1073741822.0) ((192 . 5625) (* 1 1073741823.0) -> 1073741823.0) ((193 . 5625) (* 1 1073741824.0) -> 1073741824.0) ((194 . 5625) (* 1 1073741825.0) -> 1073741825.0) ((195 . 5625) (* 1 1073741826.0) -> 1073741826.0) ((196 . 5625) (* 2 1073741822.0) -> 2147483644.0) ((197 . 5625) (* 2 1073741823.0) -> 2147483646.0) ((198 . 5625) (* 2 1073741824.0) -> 2147483648.0) ((199 . 5625) (* 2 1073741825.0) -> 2147483650.0) ((200 . 5625) (* 2 1073741826.0) -> 2147483652.0) ((201 . 5625) (* -2 -1073741827.0) -> 2147483654.0) ((202 . 5625) (* -2 -1073741826.0) -> 2147483652.0) ((203 . 5625) (* -2 -1073741825.0) -> 2147483650.0) ((204 . 5625) (* -2 -1073741824.0) -> 2147483648.0) ((205 . 5625) (* -2 -1073741823.0) -> 2147483646.0) ((206 . 5625) (* -1 -1073741827.0) -> 1073741827.0) ((207 . 5625) (* -1 -1073741826.0) -> 1073741826.0) ((208 . 5625) (* -1 -1073741825.0) -> 1073741825.0) ((209 . 5625) (* -1 -1073741824.0) -> 1073741824.0) ((210 . 5625) (* -1 -1073741823.0) -> 1073741823.0) ((211 . 5625) (* 0 -1073741827.0) -> -0.0) ((212 . 5625) (* 0 -1073741826.0) -> -0.0) ((213 . 5625) (* 0 -1073741825.0) -> -0.0) ((214 . 5625) (* 0 -1073741824.0) -> -0.0) ((215 . 5625) (* 0 -1073741823.0) -> -0.0) ((216 . 5625) (* 1 -1073741827.0) -> -1073741827.0) ((217 . 5625) (* 1 -1073741826.0) -> -1073741826.0) ((218 . 5625) (* 1 -1073741825.0) -> -1073741825.0) ((219 . 5625) (* 1 -1073741824.0) -> -1073741824.0) ((220 . 5625) (* 1 -1073741823.0) -> -1073741823.0) ((221 . 5625) (* 2 -1073741827.0) -> -2147483654.0) ((222 . 5625) (* 2 -1073741826.0) -> -2147483652.0) ((223 . 5625) (* 2 -1073741825.0) -> -2147483650.0) ((224 . 5625) (* 2 -1073741824.0) -> -2147483648.0) ((225 . 5625) (* 2 -1073741823.0) -> -2147483646.0) ((226 . 5625) (* -2 1103515243.0) -> -2207030486.0) ((227 . 5625) (* -2 1103515244.0) -> -2207030488.0) ((228 . 5625) (* -2 1103515245.0) -> -2207030490.0) ((229 . 5625) (* -2 1103515246.0) -> -2207030492.0) ((230 . 5625) (* -2 1103515247.0) -> -2207030494.0) ((231 . 5625) (* -1 1103515243.0) -> -1103515243.0) ((232 . 5625) (* -1 1103515244.0) -> -1103515244.0) ((233 . 5625) (* -1 1103515245.0) -> -1103515245.0) ((234 . 5625) (* -1 1103515246.0) -> -1103515246.0) ((235 . 5625) (* -1 1103515247.0) -> -1103515247.0) ((236 . 5625) (* 0 1103515243.0) -> 0.0) ((237 . 5625) (* 0 1103515244.0) -> 0.0) ((238 . 5625) (* 0 1103515245.0) -> 0.0) ((239 . 5625) (* 0 1103515246.0) -> 0.0) ((240 . 5625) (* 0 1103515247.0) -> 0.0) ((241 . 5625) (* 1 1103515243.0) -> 1103515243.0) ((242 . 5625) (* 1 1103515244.0) -> 1103515244.0) ((243 . 5625) (* 1 1103515245.0) -> 1103515245.0) ((244 . 5625) (* 1 1103515246.0) -> 1103515246.0) ((245 . 5625) (* 1 1103515247.0) -> 1103515247.0) ((246 . 5625) (* 2 1103515243.0) -> 2207030486.0) ((247 . 5625) (* 2 1103515244.0) -> 2207030488.0) ((248 . 5625) (* 2 1103515245.0) -> 2207030490.0) ((249 . 5625) (* 2 1103515246.0) -> 2207030492.0) ((250 . 5625) (* 2 1103515247.0) -> 2207030494.0) ((251 . 5625) (* -2 631629063) -> -1263258126.0) ((252 . 5625) (* -2 631629064) -> -1263258128.0) ((253 . 5625) (* -2 631629065) -> -1263258130.0) ((254 . 5625) (* -2 631629066) -> -1263258132.0) ((255 . 5625) (* -2 631629067) -> -1263258134.0) ((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.0) ((272 . 5625) (* 2 631629064) -> 1263258128.0) ((273 . 5625) (* 2 631629065) -> 1263258130.0) ((274 . 5625) (* 2 631629066) -> 1263258132.0) ((275 . 5625) (* 2 631629067) -> 1263258134.0) ((276 . 5625) (* -2 9.00719925474099e+15) -> -1.8014398509482e+16) ((277 . 5625) (* -2 9.00719925474099e+15) -> -1.8014398509482e+16) ((278 . 5625) (* -2 9.00719925474099e+15) -> -1.8014398509482e+16) ((279 . 5625) (* -2 9.00719925474099e+15) -> -1.8014398509482e+16) ((280 . 5625) (* -2 9.00719925474099e+15) -> -1.8014398509482e+16) ((281 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((282 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((283 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((284 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((285 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((286 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((287 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((288 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((289 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((290 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((291 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((292 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((293 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((294 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((295 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((296 . 5625) (* 2 9.00719925474099e+15) -> 1.8014398509482e+16) ((297 . 5625) (* 2 9.00719925474099e+15) -> 1.8014398509482e+16) ((298 . 5625) (* 2 9.00719925474099e+15) -> 1.8014398509482e+16) ((299 . 5625) (* 2 9.00719925474099e+15) -> 1.8014398509482e+16) ((300 . 5625) (* 2 9.00719925474099e+15) -> 1.8014398509482e+16) ((301 . 5625) (* -2 -9.00719925474099e+15) -> 1.8014398509482e+16) ((302 . 5625) (* -2 -9.00719925474099e+15) -> 1.8014398509482e+16) ((303 . 5625) (* -2 -9.00719925474099e+15) -> 1.8014398509482e+16) ((304 . 5625) (* -2 -9.00719925474099e+15) -> 1.8014398509482e+16) ((305 . 5625) (* -2 -9.00719925474099e+15) -> 1.8014398509482e+16) ((306 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((307 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((308 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((309 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((310 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((311 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((312 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((313 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((314 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((315 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((316 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((317 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((318 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((319 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((320 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((321 . 5625) (* 2 -9.00719925474099e+15) -> -1.8014398509482e+16) ((322 . 5625) (* 2 -9.00719925474099e+15) -> -1.8014398509482e+16) ((323 . 5625) (* 2 -9.00719925474099e+15) -> -1.8014398509482e+16) ((324 . 5625) (* 2 -9.00719925474099e+15) -> -1.8014398509482e+16) ((325 . 5625) (* 2 -9.00719925474099e+15) -> -1.8014398509482e+16) ((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.0) -> -8589934588.0) ((352 . 5625) (* -2 4294967295.0) -> -8589934590.0) ((353 . 5625) (* -2 4294967296.0) -> -8589934592.0) ((354 . 5625) (* -2 4294967297.0) -> -8589934594.0) ((355 . 5625) (* -2 4294967298.0) -> -8589934596.0) ((356 . 5625) (* -1 4294967294.0) -> -4294967294.0) ((357 . 5625) (* -1 4294967295.0) -> -4294967295.0) ((358 . 5625) (* -1 4294967296.0) -> -4294967296.0) ((359 . 5625) (* -1 4294967297.0) -> -4294967297.0) ((360 . 5625) (* -1 4294967298.0) -> -4294967298.0) ((361 . 5625) (* 0 4294967294.0) -> 0.0) ((362 . 5625) (* 0 4294967295.0) -> 0.0) ((363 . 5625) (* 0 4294967296.0) -> 0.0) ((364 . 5625) (* 0 4294967297.0) -> 0.0) ((365 . 5625) (* 0 4294967298.0) -> 0.0) ((366 . 5625) (* 1 4294967294.0) -> 4294967294.0) ((367 . 5625) (* 1 4294967295.0) -> 4294967295.0) ((368 . 5625) (* 1 4294967296.0) -> 4294967296.0) ((369 . 5625) (* 1 4294967297.0) -> 4294967297.0) ((370 . 5625) (* 1 4294967298.0) -> 4294967298.0) ((371 . 5625) (* 2 4294967294.0) -> 8589934588.0) ((372 . 5625) (* 2 4294967295.0) -> 8589934590.0) ((373 . 5625) (* 2 4294967296.0) -> 8589934592.0) ((374 . 5625) (* 2 4294967297.0) -> 8589934594.0) ((375 . 5625) (* 2 4294967298.0) -> 8589934596.0) ((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.0) -> -1073741824.0) ((505 . 5625) (* -1 1073741825.0) -> -1073741825.0) ((506 . 5625) (* 0 1073741821) -> 0) ((507 . 5625) (* 0 1073741822) -> 0) ((508 . 5625) (* 0 1073741823) -> 0) ((509 . 5625) (* 0 1073741824.0) -> 0.0) ((510 . 5625) (* 0 1073741825.0) -> 0.0) ((511 . 5625) (* 1 1073741821) -> 1073741821) ((512 . 5625) (* 1 1073741822) -> 1073741822) ((513 . 5625) (* 1 1073741823) -> 1073741823) ((514 . 5625) (* 1 1073741824.0) -> 1073741824.0) ((515 . 5625) (* 1 1073741825.0) -> 1073741825.0) ((516 . 5625) (* 2 1073741821) -> 2147483642.0) ((517 . 5625) (* 2 1073741822) -> 2147483644.0) ((518 . 5625) (* 2 1073741823) -> 2147483646.0) ((519 . 5625) (* 2 1073741824.0) -> 2147483648.0) ((520 . 5625) (* 2 1073741825.0) -> 2147483650.0) ((521 . 5625) (* 3 1073741821) -> 3221225463.0) ((522 . 5625) (* 3 1073741822) -> 3221225466.0) ((523 . 5625) (* 3 1073741823) -> 3221225469.0) ((524 . 5625) (* 3 1073741824.0) -> 3221225472.0) ((525 . 5625) (* 3 1073741825.0) -> 3221225475.0) ((526 . 5625) (* -1 -1073741826.0) -> 1073741826.0) ((527 . 5625) (* -1 -1073741825.0) -> 1073741825.0) ((528 . 5625) (* -1 -1073741824) -> 1073741824.0) ((529 . 5625) (* -1 -1073741823) -> 1073741823) ((530 . 5625) (* -1 -1073741822) -> 1073741822) ((531 . 5625) (* 0 -1073741826.0) -> -0.0) ((532 . 5625) (* 0 -1073741825.0) -> -0.0) ((533 . 5625) (* 0 -1073741824) -> 0) ((534 . 5625) (* 0 -1073741823) -> 0) ((535 . 5625) (* 0 -1073741822) -> 0) ((536 . 5625) (* 1 -1073741826.0) -> -1073741826.0) ((537 . 5625) (* 1 -1073741825.0) -> -1073741825.0) ((538 . 5625) (* 1 -1073741824) -> -1073741824) ((539 . 5625) (* 1 -1073741823) -> -1073741823) ((540 . 5625) (* 1 -1073741822) -> -1073741822) ((541 . 5625) (* 2 -1073741826.0) -> -2147483652.0) ((542 . 5625) (* 2 -1073741825.0) -> -2147483650.0) ((543 . 5625) (* 2 -1073741824) -> -2147483648.0) ((544 . 5625) (* 2 -1073741823) -> -2147483646.0) ((545 . 5625) (* 2 -1073741822) -> -2147483644.0) ((546 . 5625) (* 3 -1073741826.0) -> -3221225478.0) ((547 . 5625) (* 3 -1073741825.0) -> -3221225475.0) ((548 . 5625) (* 3 -1073741824) -> -3221225472.0) ((549 . 5625) (* 3 -1073741823) -> -3221225469.0) ((550 . 5625) (* 3 -1073741822) -> -3221225466.0) ((551 . 5625) (* -1 1073741822.0) -> -1073741822.0) ((552 . 5625) (* -1 1073741823.0) -> -1073741823.0) ((553 . 5625) (* -1 1073741824.0) -> -1073741824.0) ((554 . 5625) (* -1 1073741825.0) -> -1073741825.0) ((555 . 5625) (* -1 1073741826.0) -> -1073741826.0) ((556 . 5625) (* 0 1073741822.0) -> 0.0) ((557 . 5625) (* 0 1073741823.0) -> 0.0) ((558 . 5625) (* 0 1073741824.0) -> 0.0) ((559 . 5625) (* 0 1073741825.0) -> 0.0) ((560 . 5625) (* 0 1073741826.0) -> 0.0) ((561 . 5625) (* 1 1073741822.0) -> 1073741822.0) ((562 . 5625) (* 1 1073741823.0) -> 1073741823.0) ((563 . 5625) (* 1 1073741824.0) -> 1073741824.0) ((564 . 5625) (* 1 1073741825.0) -> 1073741825.0) ((565 . 5625) (* 1 1073741826.0) -> 1073741826.0) ((566 . 5625) (* 2 1073741822.0) -> 2147483644.0) ((567 . 5625) (* 2 1073741823.0) -> 2147483646.0) ((568 . 5625) (* 2 1073741824.0) -> 2147483648.0) ((569 . 5625) (* 2 1073741825.0) -> 2147483650.0) ((570 . 5625) (* 2 1073741826.0) -> 2147483652.0) ((571 . 5625) (* 3 1073741822.0) -> 3221225466.0) ((572 . 5625) (* 3 1073741823.0) -> 3221225469.0) ((573 . 5625) (* 3 1073741824.0) -> 3221225472.0) ((574 . 5625) (* 3 1073741825.0) -> 3221225475.0) ((575 . 5625) (* 3 1073741826.0) -> 3221225478.0) ((576 . 5625) (* -1 -1073741827.0) -> 1073741827.0) ((577 . 5625) (* -1 -1073741826.0) -> 1073741826.0) ((578 . 5625) (* -1 -1073741825.0) -> 1073741825.0) ((579 . 5625) (* -1 -1073741824.0) -> 1073741824.0) ((580 . 5625) (* -1 -1073741823.0) -> 1073741823.0) ((581 . 5625) (* 0 -1073741827.0) -> -0.0) ((582 . 5625) (* 0 -1073741826.0) -> -0.0) ((583 . 5625) (* 0 -1073741825.0) -> -0.0) ((584 . 5625) (* 0 -1073741824.0) -> -0.0) ((585 . 5625) (* 0 -1073741823.0) -> -0.0) ((586 . 5625) (* 1 -1073741827.0) -> -1073741827.0) ((587 . 5625) (* 1 -1073741826.0) -> -1073741826.0) ((588 . 5625) (* 1 -1073741825.0) -> -1073741825.0) ((589 . 5625) (* 1 -1073741824.0) -> -1073741824.0) ((590 . 5625) (* 1 -1073741823.0) -> -1073741823.0) ((591 . 5625) (* 2 -1073741827.0) -> -2147483654.0) ((592 . 5625) (* 2 -1073741826.0) -> -2147483652.0) ((593 . 5625) (* 2 -1073741825.0) -> -2147483650.0) ((594 . 5625) (* 2 -1073741824.0) -> -2147483648.0) ((595 . 5625) (* 2 -1073741823.0) -> -2147483646.0) ((596 . 5625) (* 3 -1073741827.0) -> -3221225481.0) ((597 . 5625) (* 3 -1073741826.0) -> -3221225478.0) ((598 . 5625) (* 3 -1073741825.0) -> -3221225475.0) ((599 . 5625) (* 3 -1073741824.0) -> -3221225472.0) ((600 . 5625) (* 3 -1073741823.0) -> -3221225469.0) ((601 . 5625) (* -1 1103515243.0) -> -1103515243.0) ((602 . 5625) (* -1 1103515244.0) -> -1103515244.0) ((603 . 5625) (* -1 1103515245.0) -> -1103515245.0) ((604 . 5625) (* -1 1103515246.0) -> -1103515246.0) ((605 . 5625) (* -1 1103515247.0) -> -1103515247.0) ((606 . 5625) (* 0 1103515243.0) -> 0.0) ((607 . 5625) (* 0 1103515244.0) -> 0.0) ((608 . 5625) (* 0 1103515245.0) -> 0.0) ((609 . 5625) (* 0 1103515246.0) -> 0.0) ((610 . 5625) (* 0 1103515247.0) -> 0.0) ((611 . 5625) (* 1 1103515243.0) -> 1103515243.0) ((612 . 5625) (* 1 1103515244.0) -> 1103515244.0) ((613 . 5625) (* 1 1103515245.0) -> 1103515245.0) ((614 . 5625) (* 1 1103515246.0) -> 1103515246.0) ((615 . 5625) (* 1 1103515247.0) -> 1103515247.0) ((616 . 5625) (* 2 1103515243.0) -> 2207030486.0) ((617 . 5625) (* 2 1103515244.0) -> 2207030488.0) ((618 . 5625) (* 2 1103515245.0) -> 2207030490.0) ((619 . 5625) (* 2 1103515246.0) -> 2207030492.0) ((620 . 5625) (* 2 1103515247.0) -> 2207030494.0) ((621 . 5625) (* 3 1103515243.0) -> 3310545729.0) ((622 . 5625) (* 3 1103515244.0) -> 3310545732.0) ((623 . 5625) (* 3 1103515245.0) -> 3310545735.0) ((624 . 5625) (* 3 1103515246.0) -> 3310545738.0) ((625 . 5625) (* 3 1103515247.0) -> 3310545741.0) ((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.0) ((642 . 5625) (* 2 631629064) -> 1263258128.0) ((643 . 5625) (* 2 631629065) -> 1263258130.0) ((644 . 5625) (* 2 631629066) -> 1263258132.0) ((645 . 5625) (* 2 631629067) -> 1263258134.0) ((646 . 5625) (* 3 631629063) -> 1894887189.0) ((647 . 5625) (* 3 631629064) -> 1894887192.0) ((648 . 5625) (* 3 631629065) -> 1894887195.0) ((649 . 5625) (* 3 631629066) -> 1894887198.0) ((650 . 5625) (* 3 631629067) -> 1894887201.0) ((651 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((652 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((653 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((654 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((655 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((656 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((657 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((658 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((659 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((660 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((661 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((662 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((663 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((664 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((665 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((666 . 5625) (* 2 9.00719925474099e+15) -> 1.8014398509482e+16) ((667 . 5625) (* 2 9.00719925474099e+15) -> 1.8014398509482e+16) ((668 . 5625) (* 2 9.00719925474099e+15) -> 1.8014398509482e+16) ((669 . 5625) (* 2 9.00719925474099e+15) -> 1.8014398509482e+16) ((670 . 5625) (* 2 9.00719925474099e+15) -> 1.8014398509482e+16) ((671 . 5625) (* 3 9.00719925474099e+15) -> 2.7021597764223e+16) ((672 . 5625) (* 3 9.00719925474099e+15) -> 2.7021597764223e+16) ((673 . 5625) (* 3 9.00719925474099e+15) -> 2.7021597764223e+16) ((674 . 5625) (* 3 9.00719925474099e+15) -> 2.7021597764223e+16) ((675 . 5625) (* 3 9.00719925474099e+15) -> 2.7021597764223e+16) ((676 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((677 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((678 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((679 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((680 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((681 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((682 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((683 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((684 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((685 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((686 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((687 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((688 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((689 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((690 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((691 . 5625) (* 2 -9.00719925474099e+15) -> -1.8014398509482e+16) ((692 . 5625) (* 2 -9.00719925474099e+15) -> -1.8014398509482e+16) ((693 . 5625) (* 2 -9.00719925474099e+15) -> -1.8014398509482e+16) ((694 . 5625) (* 2 -9.00719925474099e+15) -> -1.8014398509482e+16) ((695 . 5625) (* 2 -9.00719925474099e+15) -> -1.8014398509482e+16) ((696 . 5625) (* 3 -9.00719925474099e+15) -> -2.7021597764223e+16) ((697 . 5625) (* 3 -9.00719925474099e+15) -> -2.7021597764223e+16) ((698 . 5625) (* 3 -9.00719925474099e+15) -> -2.7021597764223e+16) ((699 . 5625) (* 3 -9.00719925474099e+15) -> -2.7021597764223e+16) ((700 . 5625) (* 3 -9.00719925474099e+15) -> -2.7021597764223e+16) ((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.0) -> -4294967294.0) ((727 . 5625) (* -1 4294967295.0) -> -4294967295.0) ((728 . 5625) (* -1 4294967296.0) -> -4294967296.0) ((729 . 5625) (* -1 4294967297.0) -> -4294967297.0) ((730 . 5625) (* -1 4294967298.0) -> -4294967298.0) ((731 . 5625) (* 0 4294967294.0) -> 0.0) ((732 . 5625) (* 0 4294967295.0) -> 0.0) ((733 . 5625) (* 0 4294967296.0) -> 0.0) ((734 . 5625) (* 0 4294967297.0) -> 0.0) ((735 . 5625) (* 0 4294967298.0) -> 0.0) ((736 . 5625) (* 1 4294967294.0) -> 4294967294.0) ((737 . 5625) (* 1 4294967295.0) -> 4294967295.0) ((738 . 5625) (* 1 4294967296.0) -> 4294967296.0) ((739 . 5625) (* 1 4294967297.0) -> 4294967297.0) ((740 . 5625) (* 1 4294967298.0) -> 4294967298.0) ((741 . 5625) (* 2 4294967294.0) -> 8589934588.0) ((742 . 5625) (* 2 4294967295.0) -> 8589934590.0) ((743 . 5625) (* 2 4294967296.0) -> 8589934592.0) ((744 . 5625) (* 2 4294967297.0) -> 8589934594.0) ((745 . 5625) (* 2 4294967298.0) -> 8589934596.0) ((746 . 5625) (* 3 4294967294.0) -> 12884901882.0) ((747 . 5625) (* 3 4294967295.0) -> 12884901885.0) ((748 . 5625) (* 3 4294967296.0) -> 12884901888.0) ((749 . 5625) (* 3 4294967297.0) -> 12884901891.0) ((750 . 5625) (* 3 4294967298.0) -> 12884901894.0) ((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.0) ((877 . 5625) (* -3 1073741822) -> -3221225466.0) ((878 . 5625) (* -3 1073741823) -> -3221225469.0) ((879 . 5625) (* -3 1073741824.0) -> -3221225472.0) ((880 . 5625) (* -3 1073741825.0) -> -3221225475.0) ((881 . 5625) (* -2 1073741821) -> -2147483642.0) ((882 . 5625) (* -2 1073741822) -> -2147483644.0) ((883 . 5625) (* -2 1073741823) -> -2147483646.0) ((884 . 5625) (* -2 1073741824.0) -> -2147483648.0) ((885 . 5625) (* -2 1073741825.0) -> -2147483650.0) ((886 . 5625) (* -1 1073741821) -> -1073741821) ((887 . 5625) (* -1 1073741822) -> -1073741822) ((888 . 5625) (* -1 1073741823) -> -1073741823) ((889 . 5625) (* -1 1073741824.0) -> -1073741824.0) ((890 . 5625) (* -1 1073741825.0) -> -1073741825.0) ((891 . 5625) (* 0 1073741821) -> 0) ((892 . 5625) (* 0 1073741822) -> 0) ((893 . 5625) (* 0 1073741823) -> 0) ((894 . 5625) (* 0 1073741824.0) -> 0.0) ((895 . 5625) (* 0 1073741825.0) -> 0.0) ((896 . 5625) (* 1 1073741821) -> 1073741821) ((897 . 5625) (* 1 1073741822) -> 1073741822) ((898 . 5625) (* 1 1073741823) -> 1073741823) ((899 . 5625) (* 1 1073741824.0) -> 1073741824.0) ((900 . 5625) (* 1 1073741825.0) -> 1073741825.0) ((901 . 5625) (* -3 -1073741826.0) -> 3221225478.0) ((902 . 5625) (* -3 -1073741825.0) -> 3221225475.0) ((903 . 5625) (* -3 -1073741824) -> 3221225472.0) ((904 . 5625) (* -3 -1073741823) -> 3221225469.0) ((905 . 5625) (* -3 -1073741822) -> 3221225466.0) ((906 . 5625) (* -2 -1073741826.0) -> 2147483652.0) ((907 . 5625) (* -2 -1073741825.0) -> 2147483650.0) ((908 . 5625) (* -2 -1073741824) -> 2147483648.0) ((909 . 5625) (* -2 -1073741823) -> 2147483646.0) ((910 . 5625) (* -2 -1073741822) -> 2147483644.0) ((911 . 5625) (* -1 -1073741826.0) -> 1073741826.0) ((912 . 5625) (* -1 -1073741825.0) -> 1073741825.0) ((913 . 5625) (* -1 -1073741824) -> 1073741824.0) ((914 . 5625) (* -1 -1073741823) -> 1073741823) ((915 . 5625) (* -1 -1073741822) -> 1073741822) ((916 . 5625) (* 0 -1073741826.0) -> -0.0) ((917 . 5625) (* 0 -1073741825.0) -> -0.0) ((918 . 5625) (* 0 -1073741824) -> 0) ((919 . 5625) (* 0 -1073741823) -> 0) ((920 . 5625) (* 0 -1073741822) -> 0) ((921 . 5625) (* 1 -1073741826.0) -> -1073741826.0) ((922 . 5625) (* 1 -1073741825.0) -> -1073741825.0) ((923 . 5625) (* 1 -1073741824) -> -1073741824) ((924 . 5625) (* 1 -1073741823) -> -1073741823) ((925 . 5625) (* 1 -1073741822) -> -1073741822) ((926 . 5625) (* -3 1073741822.0) -> -3221225466.0) ((927 . 5625) (* -3 1073741823.0) -> -3221225469.0) ((928 . 5625) (* -3 1073741824.0) -> -3221225472.0) ((929 . 5625) (* -3 1073741825.0) -> -3221225475.0) ((930 . 5625) (* -3 1073741826.0) -> -3221225478.0) ((931 . 5625) (* -2 1073741822.0) -> -2147483644.0) ((932 . 5625) (* -2 1073741823.0) -> -2147483646.0) ((933 . 5625) (* -2 1073741824.0) -> -2147483648.0) ((934 . 5625) (* -2 1073741825.0) -> -2147483650.0) ((935 . 5625) (* -2 1073741826.0) -> -2147483652.0) ((936 . 5625) (* -1 1073741822.0) -> -1073741822.0) ((937 . 5625) (* -1 1073741823.0) -> -1073741823.0) ((938 . 5625) (* -1 1073741824.0) -> -1073741824.0) ((939 . 5625) (* -1 1073741825.0) -> -1073741825.0) ((940 . 5625) (* -1 1073741826.0) -> -1073741826.0) ((941 . 5625) (* 0 1073741822.0) -> 0.0) ((942 . 5625) (* 0 1073741823.0) -> 0.0) ((943 . 5625) (* 0 1073741824.0) -> 0.0) ((944 . 5625) (* 0 1073741825.0) -> 0.0) ((945 . 5625) (* 0 1073741826.0) -> 0.0) ((946 . 5625) (* 1 1073741822.0) -> 1073741822.0) ((947 . 5625) (* 1 1073741823.0) -> 1073741823.0) ((948 . 5625) (* 1 1073741824.0) -> 1073741824.0) ((949 . 5625) (* 1 1073741825.0) -> 1073741825.0) ((950 . 5625) (* 1 1073741826.0) -> 1073741826.0) ((951 . 5625) (* -3 -1073741827.0) -> 3221225481.0) ((952 . 5625) (* -3 -1073741826.0) -> 3221225478.0) ((953 . 5625) (* -3 -1073741825.0) -> 3221225475.0) ((954 . 5625) (* -3 -1073741824.0) -> 3221225472.0) ((955 . 5625) (* -3 -1073741823.0) -> 3221225469.0) ((956 . 5625) (* -2 -1073741827.0) -> 2147483654.0) ((957 . 5625) (* -2 -1073741826.0) -> 2147483652.0) ((958 . 5625) (* -2 -1073741825.0) -> 2147483650.0) ((959 . 5625) (* -2 -1073741824.0) -> 2147483648.0) ((960 . 5625) (* -2 -1073741823.0) -> 2147483646.0) ((961 . 5625) (* -1 -1073741827.0) -> 1073741827.0) ((962 . 5625) (* -1 -1073741826.0) -> 1073741826.0) ((963 . 5625) (* -1 -1073741825.0) -> 1073741825.0) ((964 . 5625) (* -1 -1073741824.0) -> 1073741824.0) ((965 . 5625) (* -1 -1073741823.0) -> 1073741823.0) ((966 . 5625) (* 0 -1073741827.0) -> -0.0) ((967 . 5625) (* 0 -1073741826.0) -> -0.0) ((968 . 5625) (* 0 -1073741825.0) -> -0.0) ((969 . 5625) (* 0 -1073741824.0) -> -0.0) ((970 . 5625) (* 0 -1073741823.0) -> -0.0) ((971 . 5625) (* 1 -1073741827.0) -> -1073741827.0) ((972 . 5625) (* 1 -1073741826.0) -> -1073741826.0) ((973 . 5625) (* 1 -1073741825.0) -> -1073741825.0) ((974 . 5625) (* 1 -1073741824.0) -> -1073741824.0) ((975 . 5625) (* 1 -1073741823.0) -> -1073741823.0) ((976 . 5625) (* -3 1103515243.0) -> -3310545729.0) ((977 . 5625) (* -3 1103515244.0) -> -3310545732.0) ((978 . 5625) (* -3 1103515245.0) -> -3310545735.0) ((979 . 5625) (* -3 1103515246.0) -> -3310545738.0) ((980 . 5625) (* -3 1103515247.0) -> -3310545741.0) ((981 . 5625) (* -2 1103515243.0) -> -2207030486.0) ((982 . 5625) (* -2 1103515244.0) -> -2207030488.0) ((983 . 5625) (* -2 1103515245.0) -> -2207030490.0) ((984 . 5625) (* -2 1103515246.0) -> -2207030492.0) ((985 . 5625) (* -2 1103515247.0) -> -2207030494.0) ((986 . 5625) (* -1 1103515243.0) -> -1103515243.0) ((987 . 5625) (* -1 1103515244.0) -> -1103515244.0) ((988 . 5625) (* -1 1103515245.0) -> -1103515245.0) ((989 . 5625) (* -1 1103515246.0) -> -1103515246.0) ((990 . 5625) (* -1 1103515247.0) -> -1103515247.0) ((991 . 5625) (* 0 1103515243.0) -> 0.0) ((992 . 5625) (* 0 1103515244.0) -> 0.0) ((993 . 5625) (* 0 1103515245.0) -> 0.0) ((994 . 5625) (* 0 1103515246.0) -> 0.0) ((995 . 5625) (* 0 1103515247.0) -> 0.0) ((996 . 5625) (* 1 1103515243.0) -> 1103515243.0) ((997 . 5625) (* 1 1103515244.0) -> 1103515244.0) ((998 . 5625) (* 1 1103515245.0) -> 1103515245.0) ((999 . 5625) (* 1 1103515246.0) -> 1103515246.0) ((1000 . 5625) (* 1 1103515247.0) -> 1103515247.0) ((1001 . 5625) (* -3 631629063) -> -1894887189.0) ((1002 . 5625) (* -3 631629064) -> -1894887192.0) ((1003 . 5625) (* -3 631629065) -> -1894887195.0) ((1004 . 5625) (* -3 631629066) -> -1894887198.0) ((1005 . 5625) (* -3 631629067) -> -1894887201.0) ((1006 . 5625) (* -2 631629063) -> -1263258126.0) ((1007 . 5625) (* -2 631629064) -> -1263258128.0) ((1008 . 5625) (* -2 631629065) -> -1263258130.0) ((1009 . 5625) (* -2 631629066) -> -1263258132.0) ((1010 . 5625) (* -2 631629067) -> -1263258134.0) ((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 9.00719925474099e+15) -> -2.7021597764223e+16) ((1027 . 5625) (* -3 9.00719925474099e+15) -> -2.7021597764223e+16) ((1028 . 5625) (* -3 9.00719925474099e+15) -> -2.7021597764223e+16) ((1029 . 5625) (* -3 9.00719925474099e+15) -> -2.7021597764223e+16) ((1030 . 5625) (* -3 9.00719925474099e+15) -> -2.7021597764223e+16) ((1031 . 5625) (* -2 9.00719925474099e+15) -> -1.8014398509482e+16) ((1032 . 5625) (* -2 9.00719925474099e+15) -> -1.8014398509482e+16) ((1033 . 5625) (* -2 9.00719925474099e+15) -> -1.8014398509482e+16) ((1034 . 5625) (* -2 9.00719925474099e+15) -> -1.8014398509482e+16) ((1035 . 5625) (* -2 9.00719925474099e+15) -> -1.8014398509482e+16) ((1036 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1037 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1038 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1039 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1040 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1041 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((1042 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((1043 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((1044 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((1045 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((1046 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1047 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1048 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1049 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1050 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1051 . 5625) (* -3 -9.00719925474099e+15) -> 2.7021597764223e+16) ((1052 . 5625) (* -3 -9.00719925474099e+15) -> 2.7021597764223e+16) ((1053 . 5625) (* -3 -9.00719925474099e+15) -> 2.7021597764223e+16) ((1054 . 5625) (* -3 -9.00719925474099e+15) -> 2.7021597764223e+16) ((1055 . 5625) (* -3 -9.00719925474099e+15) -> 2.7021597764223e+16) ((1056 . 5625) (* -2 -9.00719925474099e+15) -> 1.8014398509482e+16) ((1057 . 5625) (* -2 -9.00719925474099e+15) -> 1.8014398509482e+16) ((1058 . 5625) (* -2 -9.00719925474099e+15) -> 1.8014398509482e+16) ((1059 . 5625) (* -2 -9.00719925474099e+15) -> 1.8014398509482e+16) ((1060 . 5625) (* -2 -9.00719925474099e+15) -> 1.8014398509482e+16) ((1061 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1062 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1063 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1064 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1065 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1066 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((1067 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((1068 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((1069 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((1070 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((1071 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1072 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1073 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1074 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1075 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((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.0) -> -12884901882.0) ((1102 . 5625) (* -3 4294967295.0) -> -12884901885.0) ((1103 . 5625) (* -3 4294967296.0) -> -12884901888.0) ((1104 . 5625) (* -3 4294967297.0) -> -12884901891.0) ((1105 . 5625) (* -3 4294967298.0) -> -12884901894.0) ((1106 . 5625) (* -2 4294967294.0) -> -8589934588.0) ((1107 . 5625) (* -2 4294967295.0) -> -8589934590.0) ((1108 . 5625) (* -2 4294967296.0) -> -8589934592.0) ((1109 . 5625) (* -2 4294967297.0) -> -8589934594.0) ((1110 . 5625) (* -2 4294967298.0) -> -8589934596.0) ((1111 . 5625) (* -1 4294967294.0) -> -4294967294.0) ((1112 . 5625) (* -1 4294967295.0) -> -4294967295.0) ((1113 . 5625) (* -1 4294967296.0) -> -4294967296.0) ((1114 . 5625) (* -1 4294967297.0) -> -4294967297.0) ((1115 . 5625) (* -1 4294967298.0) -> -4294967298.0) ((1116 . 5625) (* 0 4294967294.0) -> 0.0) ((1117 . 5625) (* 0 4294967295.0) -> 0.0) ((1118 . 5625) (* 0 4294967296.0) -> 0.0) ((1119 . 5625) (* 0 4294967297.0) -> 0.0) ((1120 . 5625) (* 0 4294967298.0) -> 0.0) ((1121 . 5625) (* 1 4294967294.0) -> 4294967294.0) ((1122 . 5625) (* 1 4294967295.0) -> 4294967295.0) ((1123 . 5625) (* 1 4294967296.0) -> 4294967296.0) ((1124 . 5625) (* 1 4294967297.0) -> 4294967297.0) ((1125 . 5625) (* 1 4294967298.0) -> 4294967298.0) ((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) -> 0.0) ((1255 . 5625) (* 0 1073741825.0) -> 0.0) ((1256 . 5625) (* 1 1073741821) -> 1073741821) ((1257 . 5625) (* 1 1073741822) -> 1073741822) ((1258 . 5625) (* 1 1073741823) -> 1073741823) ((1259 . 5625) (* 1 1073741824.0) -> 1073741824.0) ((1260 . 5625) (* 1 1073741825.0) -> 1073741825.0) ((1261 . 5625) (* 2 1073741821) -> 2147483642.0) ((1262 . 5625) (* 2 1073741822) -> 2147483644.0) ((1263 . 5625) (* 2 1073741823) -> 2147483646.0) ((1264 . 5625) (* 2 1073741824.0) -> 2147483648.0) ((1265 . 5625) (* 2 1073741825.0) -> 2147483650.0) ((1266 . 5625) (* 3 1073741821) -> 3221225463.0) ((1267 . 5625) (* 3 1073741822) -> 3221225466.0) ((1268 . 5625) (* 3 1073741823) -> 3221225469.0) ((1269 . 5625) (* 3 1073741824.0) -> 3221225472.0) ((1270 . 5625) (* 3 1073741825.0) -> 3221225475.0) ((1271 . 5625) (* 4 1073741821) -> 4294967284.0) ((1272 . 5625) (* 4 1073741822) -> 4294967288.0) ((1273 . 5625) (* 4 1073741823) -> 4294967292.0) ((1274 . 5625) (* 4 1073741824.0) -> 4294967296.0) ((1275 . 5625) (* 4 1073741825.0) -> 4294967300.0) ((1276 . 5625) (* 0 -1073741826.0) -> -0.0) ((1277 . 5625) (* 0 -1073741825.0) -> -0.0) ((1278 . 5625) (* 0 -1073741824) -> 0) ((1279 . 5625) (* 0 -1073741823) -> 0) ((1280 . 5625) (* 0 -1073741822) -> 0) ((1281 . 5625) (* 1 -1073741826.0) -> -1073741826.0) ((1282 . 5625) (* 1 -1073741825.0) -> -1073741825.0) ((1283 . 5625) (* 1 -1073741824) -> -1073741824) ((1284 . 5625) (* 1 -1073741823) -> -1073741823) ((1285 . 5625) (* 1 -1073741822) -> -1073741822) ((1286 . 5625) (* 2 -1073741826.0) -> -2147483652.0) ((1287 . 5625) (* 2 -1073741825.0) -> -2147483650.0) ((1288 . 5625) (* 2 -1073741824) -> -2147483648.0) ((1289 . 5625) (* 2 -1073741823) -> -2147483646.0) ((1290 . 5625) (* 2 -1073741822) -> -2147483644.0) ((1291 . 5625) (* 3 -1073741826.0) -> -3221225478.0) ((1292 . 5625) (* 3 -1073741825.0) -> -3221225475.0) ((1293 . 5625) (* 3 -1073741824) -> -3221225472.0) ((1294 . 5625) (* 3 -1073741823) -> -3221225469.0) ((1295 . 5625) (* 3 -1073741822) -> -3221225466.0) ((1296 . 5625) (* 4 -1073741826.0) -> -4294967304.0) ((1297 . 5625) (* 4 -1073741825.0) -> -4294967300.0) ((1298 . 5625) (* 4 -1073741824) -> -4294967296.0) ((1299 . 5625) (* 4 -1073741823) -> -4294967292.0) ((1300 . 5625) (* 4 -1073741822) -> -4294967288.0) ((1301 . 5625) (* 0 1073741822.0) -> 0.0) ((1302 . 5625) (* 0 1073741823.0) -> 0.0) ((1303 . 5625) (* 0 1073741824.0) -> 0.0) ((1304 . 5625) (* 0 1073741825.0) -> 0.0) ((1305 . 5625) (* 0 1073741826.0) -> 0.0) ((1306 . 5625) (* 1 1073741822.0) -> 1073741822.0) ((1307 . 5625) (* 1 1073741823.0) -> 1073741823.0) ((1308 . 5625) (* 1 1073741824.0) -> 1073741824.0) ((1309 . 5625) (* 1 1073741825.0) -> 1073741825.0) ((1310 . 5625) (* 1 1073741826.0) -> 1073741826.0) ((1311 . 5625) (* 2 1073741822.0) -> 2147483644.0) ((1312 . 5625) (* 2 1073741823.0) -> 2147483646.0) ((1313 . 5625) (* 2 1073741824.0) -> 2147483648.0) ((1314 . 5625) (* 2 1073741825.0) -> 2147483650.0) ((1315 . 5625) (* 2 1073741826.0) -> 2147483652.0) ((1316 . 5625) (* 3 1073741822.0) -> 3221225466.0) ((1317 . 5625) (* 3 1073741823.0) -> 3221225469.0) ((1318 . 5625) (* 3 1073741824.0) -> 3221225472.0) ((1319 . 5625) (* 3 1073741825.0) -> 3221225475.0) ((1320 . 5625) (* 3 1073741826.0) -> 3221225478.0) ((1321 . 5625) (* 4 1073741822.0) -> 4294967288.0) ((1322 . 5625) (* 4 1073741823.0) -> 4294967292.0) ((1323 . 5625) (* 4 1073741824.0) -> 4294967296.0) ((1324 . 5625) (* 4 1073741825.0) -> 4294967300.0) ((1325 . 5625) (* 4 1073741826.0) -> 4294967304.0) ((1326 . 5625) (* 0 -1073741827.0) -> -0.0) ((1327 . 5625) (* 0 -1073741826.0) -> -0.0) ((1328 . 5625) (* 0 -1073741825.0) -> -0.0) ((1329 . 5625) (* 0 -1073741824.0) -> -0.0) ((1330 . 5625) (* 0 -1073741823.0) -> -0.0) ((1331 . 5625) (* 1 -1073741827.0) -> -1073741827.0) ((1332 . 5625) (* 1 -1073741826.0) -> -1073741826.0) ((1333 . 5625) (* 1 -1073741825.0) -> -1073741825.0) ((1334 . 5625) (* 1 -1073741824.0) -> -1073741824.0) ((1335 . 5625) (* 1 -1073741823.0) -> -1073741823.0) ((1336 . 5625) (* 2 -1073741827.0) -> -2147483654.0) ((1337 . 5625) (* 2 -1073741826.0) -> -2147483652.0) ((1338 . 5625) (* 2 -1073741825.0) -> -2147483650.0) ((1339 . 5625) (* 2 -1073741824.0) -> -2147483648.0) ((1340 . 5625) (* 2 -1073741823.0) -> -2147483646.0) ((1341 . 5625) (* 3 -1073741827.0) -> -3221225481.0) ((1342 . 5625) (* 3 -1073741826.0) -> -3221225478.0) ((1343 . 5625) (* 3 -1073741825.0) -> -3221225475.0) ((1344 . 5625) (* 3 -1073741824.0) -> -3221225472.0) ((1345 . 5625) (* 3 -1073741823.0) -> -3221225469.0) ((1346 . 5625) (* 4 -1073741827.0) -> -4294967308.0) ((1347 . 5625) (* 4 -1073741826.0) -> -4294967304.0) ((1348 . 5625) (* 4 -1073741825.0) -> -4294967300.0) ((1349 . 5625) (* 4 -1073741824.0) -> -4294967296.0) ((1350 . 5625) (* 4 -1073741823.0) -> -4294967292.0) ((1351 . 5625) (* 0 1103515243.0) -> 0.0) ((1352 . 5625) (* 0 1103515244.0) -> 0.0) ((1353 . 5625) (* 0 1103515245.0) -> 0.0) ((1354 . 5625) (* 0 1103515246.0) -> 0.0) ((1355 . 5625) (* 0 1103515247.0) -> 0.0) ((1356 . 5625) (* 1 1103515243.0) -> 1103515243.0) ((1357 . 5625) (* 1 1103515244.0) -> 1103515244.0) ((1358 . 5625) (* 1 1103515245.0) -> 1103515245.0) ((1359 . 5625) (* 1 1103515246.0) -> 1103515246.0) ((1360 . 5625) (* 1 1103515247.0) -> 1103515247.0) ((1361 . 5625) (* 2 1103515243.0) -> 2207030486.0) ((1362 . 5625) (* 2 1103515244.0) -> 2207030488.0) ((1363 . 5625) (* 2 1103515245.0) -> 2207030490.0) ((1364 . 5625) (* 2 1103515246.0) -> 2207030492.0) ((1365 . 5625) (* 2 1103515247.0) -> 2207030494.0) ((1366 . 5625) (* 3 1103515243.0) -> 3310545729.0) ((1367 . 5625) (* 3 1103515244.0) -> 3310545732.0) ((1368 . 5625) (* 3 1103515245.0) -> 3310545735.0) ((1369 . 5625) (* 3 1103515246.0) -> 3310545738.0) ((1370 . 5625) (* 3 1103515247.0) -> 3310545741.0) ((1371 . 5625) (* 4 1103515243.0) -> 4414060972.0) ((1372 . 5625) (* 4 1103515244.0) -> 4414060976.0) ((1373 . 5625) (* 4 1103515245.0) -> 4414060980.0) ((1374 . 5625) (* 4 1103515246.0) -> 4414060984.0) ((1375 . 5625) (* 4 1103515247.0) -> 4414060988.0) ((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.0) ((1387 . 5625) (* 2 631629064) -> 1263258128.0) ((1388 . 5625) (* 2 631629065) -> 1263258130.0) ((1389 . 5625) (* 2 631629066) -> 1263258132.0) ((1390 . 5625) (* 2 631629067) -> 1263258134.0) ((1391 . 5625) (* 3 631629063) -> 1894887189.0) ((1392 . 5625) (* 3 631629064) -> 1894887192.0) ((1393 . 5625) (* 3 631629065) -> 1894887195.0) ((1394 . 5625) (* 3 631629066) -> 1894887198.0) ((1395 . 5625) (* 3 631629067) -> 1894887201.0) ((1396 . 5625) (* 4 631629063) -> 2526516252.0) ((1397 . 5625) (* 4 631629064) -> 2526516256.0) ((1398 . 5625) (* 4 631629065) -> 2526516260.0) ((1399 . 5625) (* 4 631629066) -> 2526516264.0) ((1400 . 5625) (* 4 631629067) -> 2526516268.0) ((1401 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((1402 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((1403 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((1404 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((1405 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((1406 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1407 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1408 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1409 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1410 . 5625) (* 1 9.00719925474099e+15) -> 9.00719925474099e+15) ((1411 . 5625) (* 2 9.00719925474099e+15) -> 1.8014398509482e+16) ((1412 . 5625) (* 2 9.00719925474099e+15) -> 1.8014398509482e+16) ((1413 . 5625) (* 2 9.00719925474099e+15) -> 1.8014398509482e+16) ((1414 . 5625) (* 2 9.00719925474099e+15) -> 1.8014398509482e+16) ((1415 . 5625) (* 2 9.00719925474099e+15) -> 1.8014398509482e+16) ((1416 . 5625) (* 3 9.00719925474099e+15) -> 2.7021597764223e+16) ((1417 . 5625) (* 3 9.00719925474099e+15) -> 2.7021597764223e+16) ((1418 . 5625) (* 3 9.00719925474099e+15) -> 2.7021597764223e+16) ((1419 . 5625) (* 3 9.00719925474099e+15) -> 2.7021597764223e+16) ((1420 . 5625) (* 3 9.00719925474099e+15) -> 2.7021597764223e+16) ((1421 . 5625) (* 4 9.00719925474099e+15) -> 3.6028797018964e+16) ((1422 . 5625) (* 4 9.00719925474099e+15) -> 3.6028797018964e+16) ((1423 . 5625) (* 4 9.00719925474099e+15) -> 3.6028797018964e+16) ((1424 . 5625) (* 4 9.00719925474099e+15) -> 3.6028797018964e+16) ((1425 . 5625) (* 4 9.00719925474099e+15) -> 3.6028797018964e+16) ((1426 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((1427 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((1428 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((1429 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((1430 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((1431 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1432 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1433 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1434 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1435 . 5625) (* 1 -9.00719925474099e+15) -> -9.00719925474099e+15) ((1436 . 5625) (* 2 -9.00719925474099e+15) -> -1.8014398509482e+16) ((1437 . 5625) (* 2 -9.00719925474099e+15) -> -1.8014398509482e+16) ((1438 . 5625) (* 2 -9.00719925474099e+15) -> -1.8014398509482e+16) ((1439 . 5625) (* 2 -9.00719925474099e+15) -> -1.8014398509482e+16) ((1440 . 5625) (* 2 -9.00719925474099e+15) -> -1.8014398509482e+16) ((1441 . 5625) (* 3 -9.00719925474099e+15) -> -2.7021597764223e+16) ((1442 . 5625) (* 3 -9.00719925474099e+15) -> -2.7021597764223e+16) ((1443 . 5625) (* 3 -9.00719925474099e+15) -> -2.7021597764223e+16) ((1444 . 5625) (* 3 -9.00719925474099e+15) -> -2.7021597764223e+16) ((1445 . 5625) (* 3 -9.00719925474099e+15) -> -2.7021597764223e+16) ((1446 . 5625) (* 4 -9.00719925474099e+15) -> -3.6028797018964e+16) ((1447 . 5625) (* 4 -9.00719925474099e+15) -> -3.6028797018964e+16) ((1448 . 5625) (* 4 -9.00719925474099e+15) -> -3.6028797018964e+16) ((1449 . 5625) (* 4 -9.00719925474099e+15) -> -3.6028797018964e+16) ((1450 . 5625) (* 4 -9.00719925474099e+15) -> -3.6028797018964e+16) ((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) -> 0.0) ((1477 . 5625) (* 0 4294967295.0) -> 0.0) ((1478 . 5625) (* 0 4294967296.0) -> 0.0) ((1479 . 5625) (* 0 4294967297.0) -> 0.0) ((1480 . 5625) (* 0 4294967298.0) -> 0.0) ((1481 . 5625) (* 1 4294967294.0) -> 4294967294.0) ((1482 . 5625) (* 1 4294967295.0) -> 4294967295.0) ((1483 . 5625) (* 1 4294967296.0) -> 4294967296.0) ((1484 . 5625) (* 1 4294967297.0) -> 4294967297.0) ((1485 . 5625) (* 1 4294967298.0) -> 4294967298.0) ((1486 . 5625) (* 2 4294967294.0) -> 8589934588.0) ((1487 . 5625) (* 2 4294967295.0) -> 8589934590.0) ((1488 . 5625) (* 2 4294967296.0) -> 8589934592.0) ((1489 . 5625) (* 2 4294967297.0) -> 8589934594.0) ((1490 . 5625) (* 2 4294967298.0) -> 8589934596.0) ((1491 . 5625) (* 3 4294967294.0) -> 12884901882.0) ((1492 . 5625) (* 3 4294967295.0) -> 12884901885.0) ((1493 . 5625) (* 3 4294967296.0) -> 12884901888.0) ((1494 . 5625) (* 3 4294967297.0) -> 12884901891.0) ((1495 . 5625) (* 3 4294967298.0) -> 12884901894.0) ((1496 . 5625) (* 4 4294967294.0) -> 17179869176.0) ((1497 . 5625) (* 4 4294967295.0) -> 17179869180.0) ((1498 . 5625) (* 4 4294967296.0) -> 17179869184.0) ((1499 . 5625) (* 4 4294967297.0) -> 17179869188.0) ((1500 . 5625) (* 4 4294967298.0) -> 17179869192.0) ((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.0) ((1627 . 5625) (* -4 1073741822) -> -4294967288.0) ((1628 . 5625) (* -4 1073741823) -> -4294967292.0) ((1629 . 5625) (* -4 1073741824.0) -> -4294967296.0) ((1630 . 5625) (* -4 1073741825.0) -> -4294967300.0) ((1631 . 5625) (* -3 1073741821) -> -3221225463.0) ((1632 . 5625) (* -3 1073741822) -> -3221225466.0) ((1633 . 5625) (* -3 1073741823) -> -3221225469.0) ((1634 . 5625) (* -3 1073741824.0) -> -3221225472.0) ((1635 . 5625) (* -3 1073741825.0) -> -3221225475.0) ((1636 . 5625) (* -2 1073741821) -> -2147483642.0) ((1637 . 5625) (* -2 1073741822) -> -2147483644.0) ((1638 . 5625) (* -2 1073741823) -> -2147483646.0) ((1639 . 5625) (* -2 1073741824.0) -> -2147483648.0) ((1640 . 5625) (* -2 1073741825.0) -> -2147483650.0) ((1641 . 5625) (* -1 1073741821) -> -1073741821) ((1642 . 5625) (* -1 1073741822) -> -1073741822) ((1643 . 5625) (* -1 1073741823) -> -1073741823) ((1644 . 5625) (* -1 1073741824.0) -> -1073741824.0) ((1645 . 5625) (* -1 1073741825.0) -> -1073741825.0) ((1646 . 5625) (* 0 1073741821) -> 0) ((1647 . 5625) (* 0 1073741822) -> 0) ((1648 . 5625) (* 0 1073741823) -> 0) ((1649 . 5625) (* 0 1073741824.0) -> 0.0) ((1650 . 5625) (* 0 1073741825.0) -> 0.0) ((1651 . 5625) (* -4 -1073741826.0) -> 4294967304.0) ((1652 . 5625) (* -4 -1073741825.0) -> 4294967300.0) ((1653 . 5625) (* -4 -1073741824) -> 4294967296.0) ((1654 . 5625) (* -4 -1073741823) -> 4294967292.0) ((1655 . 5625) (* -4 -1073741822) -> 4294967288.0) ((1656 . 5625) (* -3 -1073741826.0) -> 3221225478.0) ((1657 . 5625) (* -3 -1073741825.0) -> 3221225475.0) ((1658 . 5625) (* -3 -1073741824) -> 3221225472.0) ((1659 . 5625) (* -3 -1073741823) -> 3221225469.0) ((1660 . 5625) (* -3 -1073741822) -> 3221225466.0) ((1661 . 5625) (* -2 -1073741826.0) -> 2147483652.0) ((1662 . 5625) (* -2 -1073741825.0) -> 2147483650.0) ((1663 . 5625) (* -2 -1073741824) -> 2147483648.0) ((1664 . 5625) (* -2 -1073741823) -> 2147483646.0) ((1665 . 5625) (* -2 -1073741822) -> 2147483644.0) ((1666 . 5625) (* -1 -1073741826.0) -> 1073741826.0) ((1667 . 5625) (* -1 -1073741825.0) -> 1073741825.0) ((1668 . 5625) (* -1 -1073741824) -> 1073741824.0) ((1669 . 5625) (* -1 -1073741823) -> 1073741823) ((1670 . 5625) (* -1 -1073741822) -> 1073741822) ((1671 . 5625) (* 0 -1073741826.0) -> -0.0) ((1672 . 5625) (* 0 -1073741825.0) -> -0.0) ((1673 . 5625) (* 0 -1073741824) -> 0) ((1674 . 5625) (* 0 -1073741823) -> 0) ((1675 . 5625) (* 0 -1073741822) -> 0) ((1676 . 5625) (* -4 1073741822.0) -> -4294967288.0) ((1677 . 5625) (* -4 1073741823.0) -> -4294967292.0) ((1678 . 5625) (* -4 1073741824.0) -> -4294967296.0) ((1679 . 5625) (* -4 1073741825.0) -> -4294967300.0) ((1680 . 5625) (* -4 1073741826.0) -> -4294967304.0) ((1681 . 5625) (* -3 1073741822.0) -> -3221225466.0) ((1682 . 5625) (* -3 1073741823.0) -> -3221225469.0) ((1683 . 5625) (* -3 1073741824.0) -> -3221225472.0) ((1684 . 5625) (* -3 1073741825.0) -> -3221225475.0) ((1685 . 5625) (* -3 1073741826.0) -> -3221225478.0) ((1686 . 5625) (* -2 1073741822.0) -> -2147483644.0) ((1687 . 5625) (* -2 1073741823.0) -> -2147483646.0) ((1688 . 5625) (* -2 1073741824.0) -> -2147483648.0) ((1689 . 5625) (* -2 1073741825.0) -> -2147483650.0) ((1690 . 5625) (* -2 1073741826.0) -> -2147483652.0) ((1691 . 5625) (* -1 1073741822.0) -> -1073741822.0) ((1692 . 5625) (* -1 1073741823.0) -> -1073741823.0) ((1693 . 5625) (* -1 1073741824.0) -> -1073741824.0) ((1694 . 5625) (* -1 1073741825.0) -> -1073741825.0) ((1695 . 5625) (* -1 1073741826.0) -> -1073741826.0) ((1696 . 5625) (* 0 1073741822.0) -> 0.0) ((1697 . 5625) (* 0 1073741823.0) -> 0.0) ((1698 . 5625) (* 0 1073741824.0) -> 0.0) ((1699 . 5625) (* 0 1073741825.0) -> 0.0) ((1700 . 5625) (* 0 1073741826.0) -> 0.0) ((1701 . 5625) (* -4 -1073741827.0) -> 4294967308.0) ((1702 . 5625) (* -4 -1073741826.0) -> 4294967304.0) ((1703 . 5625) (* -4 -1073741825.0) -> 4294967300.0) ((1704 . 5625) (* -4 -1073741824.0) -> 4294967296.0) ((1705 . 5625) (* -4 -1073741823.0) -> 4294967292.0) ((1706 . 5625) (* -3 -1073741827.0) -> 3221225481.0) ((1707 . 5625) (* -3 -1073741826.0) -> 3221225478.0) ((1708 . 5625) (* -3 -1073741825.0) -> 3221225475.0) ((1709 . 5625) (* -3 -1073741824.0) -> 3221225472.0) ((1710 . 5625) (* -3 -1073741823.0) -> 3221225469.0) ((1711 . 5625) (* -2 -1073741827.0) -> 2147483654.0) ((1712 . 5625) (* -2 -1073741826.0) -> 2147483652.0) ((1713 . 5625) (* -2 -1073741825.0) -> 2147483650.0) ((1714 . 5625) (* -2 -1073741824.0) -> 2147483648.0) ((1715 . 5625) (* -2 -1073741823.0) -> 2147483646.0) ((1716 . 5625) (* -1 -1073741827.0) -> 1073741827.0) ((1717 . 5625) (* -1 -1073741826.0) -> 1073741826.0) ((1718 . 5625) (* -1 -1073741825.0) -> 1073741825.0) ((1719 . 5625) (* -1 -1073741824.0) -> 1073741824.0) ((1720 . 5625) (* -1 -1073741823.0) -> 1073741823.0) ((1721 . 5625) (* 0 -1073741827.0) -> -0.0) ((1722 . 5625) (* 0 -1073741826.0) -> -0.0) ((1723 . 5625) (* 0 -1073741825.0) -> -0.0) ((1724 . 5625) (* 0 -1073741824.0) -> -0.0) ((1725 . 5625) (* 0 -1073741823.0) -> -0.0) ((1726 . 5625) (* -4 1103515243.0) -> -4414060972.0) ((1727 . 5625) (* -4 1103515244.0) -> -4414060976.0) ((1728 . 5625) (* -4 1103515245.0) -> -4414060980.0) ((1729 . 5625) (* -4 1103515246.0) -> -4414060984.0) ((1730 . 5625) (* -4 1103515247.0) -> -4414060988.0) ((1731 . 5625) (* -3 1103515243.0) -> -3310545729.0) ((1732 . 5625) (* -3 1103515244.0) -> -3310545732.0) ((1733 . 5625) (* -3 1103515245.0) -> -3310545735.0) ((1734 . 5625) (* -3 1103515246.0) -> -3310545738.0) ((1735 . 5625) (* -3 1103515247.0) -> -3310545741.0) ((1736 . 5625) (* -2 1103515243.0) -> -2207030486.0) ((1737 . 5625) (* -2 1103515244.0) -> -2207030488.0) ((1738 . 5625) (* -2 1103515245.0) -> -2207030490.0) ((1739 . 5625) (* -2 1103515246.0) -> -2207030492.0) ((1740 . 5625) (* -2 1103515247.0) -> -2207030494.0) ((1741 . 5625) (* -1 1103515243.0) -> -1103515243.0) ((1742 . 5625) (* -1 1103515244.0) -> -1103515244.0) ((1743 . 5625) (* -1 1103515245.0) -> -1103515245.0) ((1744 . 5625) (* -1 1103515246.0) -> -1103515246.0) ((1745 . 5625) (* -1 1103515247.0) -> -1103515247.0) ((1746 . 5625) (* 0 1103515243.0) -> 0.0) ((1747 . 5625) (* 0 1103515244.0) -> 0.0) ((1748 . 5625) (* 0 1103515245.0) -> 0.0) ((1749 . 5625) (* 0 1103515246.0) -> 0.0) ((1750 . 5625) (* 0 1103515247.0) -> 0.0) ((1751 . 5625) (* -4 631629063) -> -2526516252.0) ((1752 . 5625) (* -4 631629064) -> -2526516256.0) ((1753 . 5625) (* -4 631629065) -> -2526516260.0) ((1754 . 5625) (* -4 631629066) -> -2526516264.0) ((1755 . 5625) (* -4 631629067) -> -2526516268.0) ((1756 . 5625) (* -3 631629063) -> -1894887189.0) ((1757 . 5625) (* -3 631629064) -> -1894887192.0) ((1758 . 5625) (* -3 631629065) -> -1894887195.0) ((1759 . 5625) (* -3 631629066) -> -1894887198.0) ((1760 . 5625) (* -3 631629067) -> -1894887201.0) ((1761 . 5625) (* -2 631629063) -> -1263258126.0) ((1762 . 5625) (* -2 631629064) -> -1263258128.0) ((1763 . 5625) (* -2 631629065) -> -1263258130.0) ((1764 . 5625) (* -2 631629066) -> -1263258132.0) ((1765 . 5625) (* -2 631629067) -> -1263258134.0) ((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 9.00719925474099e+15) -> -3.6028797018964e+16) ((1777 . 5625) (* -4 9.00719925474099e+15) -> -3.6028797018964e+16) ((1778 . 5625) (* -4 9.00719925474099e+15) -> -3.6028797018964e+16) ((1779 . 5625) (* -4 9.00719925474099e+15) -> -3.6028797018964e+16) ((1780 . 5625) (* -4 9.00719925474099e+15) -> -3.6028797018964e+16) ((1781 . 5625) (* -3 9.00719925474099e+15) -> -2.7021597764223e+16) ((1782 . 5625) (* -3 9.00719925474099e+15) -> -2.7021597764223e+16) ((1783 . 5625) (* -3 9.00719925474099e+15) -> -2.7021597764223e+16) ((1784 . 5625) (* -3 9.00719925474099e+15) -> -2.7021597764223e+16) ((1785 . 5625) (* -3 9.00719925474099e+15) -> -2.7021597764223e+16) ((1786 . 5625) (* -2 9.00719925474099e+15) -> -1.8014398509482e+16) ((1787 . 5625) (* -2 9.00719925474099e+15) -> -1.8014398509482e+16) ((1788 . 5625) (* -2 9.00719925474099e+15) -> -1.8014398509482e+16) ((1789 . 5625) (* -2 9.00719925474099e+15) -> -1.8014398509482e+16) ((1790 . 5625) (* -2 9.00719925474099e+15) -> -1.8014398509482e+16) ((1791 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1792 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1793 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1794 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1795 . 5625) (* -1 9.00719925474099e+15) -> -9.00719925474099e+15) ((1796 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((1797 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((1798 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((1799 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((1800 . 5625) (* 0 9.00719925474099e+15) -> 0.0) ((1801 . 5625) (* -4 -9.00719925474099e+15) -> 3.6028797018964e+16) ((1802 . 5625) (* -4 -9.00719925474099e+15) -> 3.6028797018964e+16) ((1803 . 5625) (* -4 -9.00719925474099e+15) -> 3.6028797018964e+16) ((1804 . 5625) (* -4 -9.00719925474099e+15) -> 3.6028797018964e+16) ((1805 . 5625) (* -4 -9.00719925474099e+15) -> 3.6028797018964e+16) ((1806 . 5625) (* -3 -9.00719925474099e+15) -> 2.7021597764223e+16) ((1807 . 5625) (* -3 -9.00719925474099e+15) -> 2.7021597764223e+16) ((1808 . 5625) (* -3 -9.00719925474099e+15) -> 2.7021597764223e+16) ((1809 . 5625) (* -3 -9.00719925474099e+15) -> 2.7021597764223e+16) ((1810 . 5625) (* -3 -9.00719925474099e+15) -> 2.7021597764223e+16) ((1811 . 5625) (* -2 -9.00719925474099e+15) -> 1.8014398509482e+16) ((1812 . 5625) (* -2 -9.00719925474099e+15) -> 1.8014398509482e+16) ((1813 . 5625) (* -2 -9.00719925474099e+15) -> 1.8014398509482e+16) ((1814 . 5625) (* -2 -9.00719925474099e+15) -> 1.8014398509482e+16) ((1815 . 5625) (* -2 -9.00719925474099e+15) -> 1.8014398509482e+16) ((1816 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1817 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1818 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1819 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1820 . 5625) (* -1 -9.00719925474099e+15) -> 9.00719925474099e+15) ((1821 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((1822 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((1823 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((1824 . 5625) (* 0 -9.00719925474099e+15) -> -0.0) ((1825 . 5625) (* 0 -9.00719925474099e+15) -> -0.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.0) -> -17179869176.0) ((1852 . 5625) (* -4 4294967295.0) -> -17179869180.0) ((1853 . 5625) (* -4 4294967296.0) -> -17179869184.0) ((1854 . 5625) (* -4 4294967297.0) -> -17179869188.0) ((1855 . 5625) (* -4 4294967298.0) -> -17179869192.0) ((1856 . 5625) (* -3 4294967294.0) -> -12884901882.0) ((1857 . 5625) (* -3 4294967295.0) -> -12884901885.0) ((1858 . 5625) (* -3 4294967296.0) -> -12884901888.0) ((1859 . 5625) (* -3 4294967297.0) -> -12884901891.0) ((1860 . 5625) (* -3 4294967298.0) -> -12884901894.0) ((1861 . 5625) (* -2 4294967294.0) -> -8589934588.0) ((1862 . 5625) (* -2 4294967295.0) -> -8589934590.0) ((1863 . 5625) (* -2 4294967296.0) -> -8589934592.0) ((1864 . 5625) (* -2 4294967297.0) -> -8589934594.0) ((1865 . 5625) (* -2 4294967298.0) -> -8589934596.0) ((1866 . 5625) (* -1 4294967294.0) -> -4294967294.0) ((1867 . 5625) (* -1 4294967295.0) -> -4294967295.0) ((1868 . 5625) (* -1 4294967296.0) -> -4294967296.0) ((1869 . 5625) (* -1 4294967297.0) -> -4294967297.0) ((1870 . 5625) (* -1 4294967298.0) -> -4294967298.0) ((1871 . 5625) (* 0 4294967294.0) -> 0.0) ((1872 . 5625) (* 0 4294967295.0) -> 0.0) ((1873 . 5625) (* 0 4294967296.0) -> 0.0) ((1874 . 5625) (* 0 4294967297.0) -> 0.0) ((1875 . 5625) (* 0 4294967298.0) -> 0.0) ((1876 . 5625) (* 1073741821 -2) -> -2147483642.0) ((1877 . 5625) (* 1073741821 -1) -> -1073741821) ((1878 . 5625) (* 1073741821 0) -> 0) ((1879 . 5625) (* 1073741821 1) -> 1073741821) ((1880 . 5625) (* 1073741821 2) -> 2147483642.0) ((1881 . 5625) (* 1073741822 -2) -> -2147483644.0) ((1882 . 5625) (* 1073741822 -1) -> -1073741822) ((1883 . 5625) (* 1073741822 0) -> 0) ((1884 . 5625) (* 1073741822 1) -> 1073741822) ((1885 . 5625) (* 1073741822 2) -> 2147483644.0) ((1886 . 5625) (* 1073741823 -2) -> -2147483646.0) ((1887 . 5625) (* 1073741823 -1) -> -1073741823) ((1888 . 5625) (* 1073741823 0) -> 0) ((1889 . 5625) (* 1073741823 1) -> 1073741823) ((1890 . 5625) (* 1073741823 2) -> 2147483646.0) ((1891 . 5625) (* 1073741824.0 -2) -> -2147483648.0) ((1892 . 5625) (* 1073741824.0 -1) -> -1073741824.0) ((1893 . 5625) (* 1073741824.0 0) -> 0.0) ((1894 . 5625) (* 1073741824.0 1) -> 1073741824.0) ((1895 . 5625) (* 1073741824.0 2) -> 2147483648.0) ((1896 . 5625) (* 1073741825.0 -2) -> -2147483650.0) ((1897 . 5625) (* 1073741825.0 -1) -> -1073741825.0) ((1898 . 5625) (* 1073741825.0 0) -> 0.0) ((1899 . 5625) (* 1073741825.0 1) -> 1073741825.0) ((1900 . 5625) (* 1073741825.0 2) -> 2147483650.0) ((1901 . 5625) (* 1073741821 -1) -> -1073741821) ((1902 . 5625) (* 1073741821 0) -> 0) ((1903 . 5625) (* 1073741821 1) -> 1073741821) ((1904 . 5625) (* 1073741821 2) -> 2147483642.0) ((1905 . 5625) (* 1073741821 3) -> 3221225463.0) ((1906 . 5625) (* 1073741822 -1) -> -1073741822) ((1907 . 5625) (* 1073741822 0) -> 0) ((1908 . 5625) (* 1073741822 1) -> 1073741822) ((1909 . 5625) (* 1073741822 2) -> 2147483644.0) ((1910 . 5625) (* 1073741822 3) -> 3221225466.0) ((1911 . 5625) (* 1073741823 -1) -> -1073741823) ((1912 . 5625) (* 1073741823 0) -> 0) ((1913 . 5625) (* 1073741823 1) -> 1073741823) ((1914 . 5625) (* 1073741823 2) -> 2147483646.0) ((1915 . 5625) (* 1073741823 3) -> 3221225469.0) ((1916 . 5625) (* 1073741824.0 -1) -> -1073741824.0) ((1917 . 5625) (* 1073741824.0 0) -> 0.0) ((1918 . 5625) (* 1073741824.0 1) -> 1073741824.0) ((1919 . 5625) (* 1073741824.0 2) -> 2147483648.0) ((1920 . 5625) (* 1073741824.0 3) -> 3221225472.0) ((1921 . 5625) (* 1073741825.0 -1) -> -1073741825.0) ((1922 . 5625) (* 1073741825.0 0) -> 0.0) ((1923 . 5625) (* 1073741825.0 1) -> 1073741825.0) ((1924 . 5625) (* 1073741825.0 2) -> 2147483650.0) ((1925 . 5625) (* 1073741825.0 3) -> 3221225475.0) ((1926 . 5625) (* 1073741821 -3) -> -3221225463.0) ((1927 . 5625) (* 1073741821 -2) -> -2147483642.0) ((1928 . 5625) (* 1073741821 -1) -> -1073741821) ((1929 . 5625) (* 1073741821 0) -> 0) ((1930 . 5625) (* 1073741821 1) -> 1073741821) ((1931 . 5625) (* 1073741822 -3) -> -3221225466.0) ((1932 . 5625) (* 1073741822 -2) -> -2147483644.0) ((1933 . 5625) (* 1073741822 -1) -> -1073741822) ((1934 . 5625) (* 1073741822 0) -> 0) ((1935 . 5625) (* 1073741822 1) -> 1073741822) ((1936 . 5625) (* 1073741823 -3) -> -3221225469.0) ((1937 . 5625) (* 1073741823 -2) -> -2147483646.0) ((1938 . 5625) (* 1073741823 -1) -> -1073741823) ((1939 . 5625) (* 1073741823 0) -> 0) ((1940 . 5625) (* 1073741823 1) -> 1073741823) ((1941 . 5625) (* 1073741824.0 -3) -> -3221225472.0) ((1942 . 5625) (* 1073741824.0 -2) -> -2147483648.0) ((1943 . 5625) (* 1073741824.0 -1) -> -1073741824.0) ((1944 . 5625) (* 1073741824.0 0) -> 0.0) ((1945 . 5625) (* 1073741824.0 1) -> 1073741824.0) ((1946 . 5625) (* 1073741825.0 -3) -> -3221225475.0) ((1947 . 5625) (* 1073741825.0 -2) -> -2147483650.0) ((1948 . 5625) (* 1073741825.0 -1) -> -1073741825.0) ((1949 . 5625) (* 1073741825.0 0) -> 0.0) ((1950 . 5625) (* 1073741825.0 1) -> 1073741825.0) ((1951 . 5625) (* 1073741821 0) -> 0) ((1952 . 5625) (* 1073741821 1) -> 1073741821) ((1953 . 5625) (* 1073741821 2) -> 2147483642.0) ((1954 . 5625) (* 1073741821 3) -> 3221225463.0) ((1955 . 5625) (* 1073741821 4) -> 4294967284.0) ((1956 . 5625) (* 1073741822 0) -> 0) ((1957 . 5625) (* 1073741822 1) -> 1073741822) ((1958 . 5625) (* 1073741822 2) -> 2147483644.0) ((1959 . 5625) (* 1073741822 3) -> 3221225466.0) ((1960 . 5625) (* 1073741822 4) -> 4294967288.0) ((1961 . 5625) (* 1073741823 0) -> 0) ((1962 . 5625) (* 1073741823 1) -> 1073741823) ((1963 . 5625) (* 1073741823 2) -> 2147483646.0) ((1964 . 5625) (* 1073741823 3) -> 3221225469.0) ((1965 . 5625) (* 1073741823 4) -> 4294967292.0) ((1966 . 5625) (* 1073741824.0 0) -> 0.0) ((1967 . 5625) (* 1073741824.0 1) -> 1073741824.0) ((1968 . 5625) (* 1073741824.0 2) -> 2147483648.0) ((1969 . 5625) (* 1073741824.0 3) -> 3221225472.0) ((1970 . 5625) (* 1073741824.0 4) -> 4294967296.0) ((1971 . 5625) (* 1073741825.0 0) -> 0.0) ((1972 . 5625) (* 1073741825.0 1) -> 1073741825.0) ((1973 . 5625) (* 1073741825.0 2) -> 2147483650.0) ((1974 . 5625) (* 1073741825.0 3) -> 3221225475.0) ((1975 . 5625) (* 1073741825.0 4) -> 4294967300.0) ((1976 . 5625) (* 1073741821 -4) -> -4294967284.0) ((1977 . 5625) (* 1073741821 -3) -> -3221225463.0) ((1978 . 5625) (* 1073741821 -2) -> -2147483642.0) ((1979 . 5625) (* 1073741821 -1) -> -1073741821) ((1980 . 5625) (* 1073741821 0) -> 0) ((1981 . 5625) (* 1073741822 -4) -> -4294967288.0) ((1982 . 5625) (* 1073741822 -3) -> -3221225466.0) ((1983 . 5625) (* 1073741822 -2) -> -2147483644.0) ((1984 . 5625) (* 1073741822 -1) -> -1073741822) ((1985 . 5625) (* 1073741822 0) -> 0) ((1986 . 5625) (* 1073741823 -4) -> -4294967292.0) ((1987 . 5625) (* 1073741823 -3) -> -3221225469.0) ((1988 . 5625) (* 1073741823 -2) -> -2147483646.0) ((1989 . 5625) (* 1073741823 -1) -> -1073741823) ((1990 . 5625) (* 1073741823 0) -> 0) ((1991 . 5625) (* 1073741824.0 -4) -> -4294967296.0) ((1992 . 5625) (* 1073741824.0 -3) -> -3221225472.0) ((1993 . 5625) (* 1073741824.0 -2) -> -2147483648.0) ((1994 . 5625) (* 1073741824.0 -1) -> -1073741824.0) ((1995 . 5625) (* 1073741824.0 0) -> 0.0) ((1996 . 5625) (* 1073741825.0 -4) -> -4294967300.0) ((1997 . 5625) (* 1073741825.0 -3) -> -3221225475.0) ((1998 . 5625) (* 1073741825.0 -2) -> -2147483650.0) ((1999 . 5625) (* 1073741825.0 -1) -> -1073741825.0) ((2000 . 5625) (* 1073741825.0 0) -> 0.0) ((2001 . 5625) (* 1073741821 1073741821) -> 1.1529214981644e+18) ((2002 . 5625) (* 1073741821 1073741822) -> 1.15292149923814e+18) ((2003 . 5625) (* 1073741821 1073741823) -> 1.15292150031188e+18) ((2004 . 5625) (* 1073741821 1073741824.0) -> 1.15292150138562e+18) ((2005 . 5625) (* 1073741821 1073741825.0) -> 1.15292150245936e+18) ((2006 . 5625) (* 1073741822 1073741821) -> 1.15292149923814e+18) ((2007 . 5625) (* 1073741822 1073741822) -> 1.15292150031188e+18) ((2008 . 5625) (* 1073741822 1073741823) -> 1.15292150138562e+18) ((2009 . 5625) (* 1073741822 1073741824.0) -> 1.15292150245936e+18) ((2010 . 5625) (* 1073741822 1073741825.0) -> 1.15292150353311e+18) ((2011 . 5625) (* 1073741823 1073741821) -> 1.15292150031188e+18) ((2012 . 5625) (* 1073741823 1073741822) -> 1.15292150138562e+18) ((2013 . 5625) (* 1073741823 1073741823) -> 1.15292150245936e+18) ((2014 . 5625) (* 1073741823 1073741824.0) -> 1.15292150353311e+18) ((2015 . 5625) (* 1073741823 1073741825.0) -> 1.15292150460685e+18) ((2016 . 5625) (* 1073741824.0 1073741821) -> 1.15292150138562e+18) ((2017 . 5625) (* 1073741824.0 1073741822) -> 1.15292150245936e+18) ((2018 . 5625) (* 1073741824.0 1073741823) -> 1.15292150353311e+18) ((2019 . 5625) (* 1073741824.0 1073741824.0) -> 1.15292150460685e+18) ((2020 . 5625) (* 1073741824.0 1073741825.0) -> 1.15292150568059e+18) ((2021 . 5625) (* 1073741825.0 1073741821) -> 1.15292150245936e+18) ((2022 . 5625) (* 1073741825.0 1073741822) -> 1.15292150353311e+18) ((2023 . 5625) (* 1073741825.0 1073741823) -> 1.15292150460685e+18) ((2024 . 5625) (* 1073741825.0 1073741824.0) -> 1.15292150568059e+18) ((2025 . 5625) (* 1073741825.0 1073741825.0) -> 1.15292150675433e+18) ((2026 . 5625) (* 1073741821 -1073741826.0) -> -1.15292150353311e+18) ((2027 . 5625) (* 1073741821 -1073741825.0) -> -1.15292150245936e+18) ((2028 . 5625) (* 1073741821 -1073741824) -> -1.15292150138562e+18) ((2029 . 5625) (* 1073741821 -1073741823) -> -1.15292150031188e+18) ((2030 . 5625) (* 1073741821 -1073741822) -> -1.15292149923814e+18) ((2031 . 5625) (* 1073741822 -1073741826.0) -> -1.15292150460685e+18) ((2032 . 5625) (* 1073741822 -1073741825.0) -> -1.15292150353311e+18) ((2033 . 5625) (* 1073741822 -1073741824) -> -1.15292150245936e+18) ((2034 . 5625) (* 1073741822 -1073741823) -> -1.15292150138562e+18) ((2035 . 5625) (* 1073741822 -1073741822) -> -1.15292150031188e+18) ((2036 . 5625) (* 1073741823 -1073741826.0) -> -1.15292150568059e+18) ((2037 . 5625) (* 1073741823 -1073741825.0) -> -1.15292150460685e+18) ((2038 . 5625) (* 1073741823 -1073741824) -> -1.15292150353311e+18) ((2039 . 5625) (* 1073741823 -1073741823) -> -1.15292150245936e+18) ((2040 . 5625) (* 1073741823 -1073741822) -> -1.15292150138562e+18) ((2041 . 5625) (* 1073741824.0 -1073741826.0) -> -1.15292150675433e+18) ((2042 . 5625) (* 1073741824.0 -1073741825.0) -> -1.15292150568059e+18) ((2043 . 5625) (* 1073741824.0 -1073741824) -> -1.15292150460685e+18) ((2044 . 5625) (* 1073741824.0 -1073741823) -> -1.15292150353311e+18) ((2045 . 5625) (* 1073741824.0 -1073741822) -> -1.15292150245936e+18) ((2046 . 5625) (* 1073741825.0 -1073741826.0) -> -1.15292150782807e+18) ((2047 . 5625) (* 1073741825.0 -1073741825.0) -> -1.15292150675433e+18) ((2048 . 5625) (* 1073741825.0 -1073741824) -> -1.15292150568059e+18) ((2049 . 5625) (* 1073741825.0 -1073741823) -> -1.15292150460685e+18) ((2050 . 5625) (* 1073741825.0 -1073741822) -> -1.15292150353311e+18) ((2051 . 5625) (* 1073741821 1073741822.0) -> 1.15292149923814e+18) ((2052 . 5625) (* 1073741821 1073741823.0) -> 1.15292150031188e+18) ((2053 . 5625) (* 1073741821 1073741824.0) -> 1.15292150138562e+18) ((2054 . 5625) (* 1073741821 1073741825.0) -> 1.15292150245936e+18) ((2055 . 5625) (* 1073741821 1073741826.0) -> 1.15292150353311e+18) ((2056 . 5625) (* 1073741822 1073741822.0) -> 1.15292150031188e+18) ((2057 . 5625) (* 1073741822 1073741823.0) -> 1.15292150138562e+18) ((2058 . 5625) (* 1073741822 1073741824.0) -> 1.15292150245936e+18) ((2059 . 5625) (* 1073741822 1073741825.0) -> 1.15292150353311e+18) ((2060 . 5625) (* 1073741822 1073741826.0) -> 1.15292150460685e+18) ((2061 . 5625) (* 1073741823 1073741822.0) -> 1.15292150138562e+18) ((2062 . 5625) (* 1073741823 1073741823.0) -> 1.15292150245936e+18) ((2063 . 5625) (* 1073741823 1073741824.0) -> 1.15292150353311e+18) ((2064 . 5625) (* 1073741823 1073741825.0) -> 1.15292150460685e+18) ((2065 . 5625) (* 1073741823 1073741826.0) -> 1.15292150568059e+18) ((2066 . 5625) (* 1073741824.0 1073741822.0) -> 1.15292150245936e+18) ((2067 . 5625) (* 1073741824.0 1073741823.0) -> 1.15292150353311e+18) ((2068 . 5625) (* 1073741824.0 1073741824.0) -> 1.15292150460685e+18) ((2069 . 5625) (* 1073741824.0 1073741825.0) -> 1.15292150568059e+18) ((2070 . 5625) (* 1073741824.0 1073741826.0) -> 1.15292150675433e+18) ((2071 . 5625) (* 1073741825.0 1073741822.0) -> 1.15292150353311e+18) ((2072 . 5625) (* 1073741825.0 1073741823.0) -> 1.15292150460685e+18) ((2073 . 5625) (* 1073741825.0 1073741824.0) -> 1.15292150568059e+18) ((2074 . 5625) (* 1073741825.0 1073741825.0) -> 1.15292150675433e+18) ((2075 . 5625) (* 1073741825.0 1073741826.0) -> 1.15292150782807e+18) ((2076 . 5625) (* 1073741821 -1073741827.0) -> -1.15292150460685e+18) ((2077 . 5625) (* 1073741821 -1073741826.0) -> -1.15292150353311e+18) ((2078 . 5625) (* 1073741821 -1073741825.0) -> -1.15292150245936e+18) ((2079 . 5625) (* 1073741821 -1073741824.0) -> -1.15292150138562e+18) ((2080 . 5625) (* 1073741821 -1073741823.0) -> -1.15292150031188e+18) ((2081 . 5625) (* 1073741822 -1073741827.0) -> -1.15292150568059e+18) ((2082 . 5625) (* 1073741822 -1073741826.0) -> -1.15292150460685e+18) ((2083 . 5625) (* 1073741822 -1073741825.0) -> -1.15292150353311e+18) ((2084 . 5625) (* 1073741822 -1073741824.0) -> -1.15292150245936e+18) ((2085 . 5625) (* 1073741822 -1073741823.0) -> -1.15292150138562e+18) ((2086 . 5625) (* 1073741823 -1073741827.0) -> -1.15292150675433e+18) ((2087 . 5625) (* 1073741823 -1073741826.0) -> -1.15292150568059e+18) ((2088 . 5625) (* 1073741823 -1073741825.0) -> -1.15292150460685e+18) ((2089 . 5625) (* 1073741823 -1073741824.0) -> -1.15292150353311e+18) ((2090 . 5625) (* 1073741823 -1073741823.0) -> -1.15292150245936e+18) ((2091 . 5625) (* 1073741824.0 -1073741827.0) -> -1.15292150782807e+18) ((2092 . 5625) (* 1073741824.0 -1073741826.0) -> -1.15292150675433e+18) ((2093 . 5625) (* 1073741824.0 -1073741825.0) -> -1.15292150568059e+18) ((2094 . 5625) (* 1073741824.0 -1073741824.0) -> -1.15292150460685e+18) ((2095 . 5625) (* 1073741824.0 -1073741823.0) -> -1.15292150353311e+18) ((2096 . 5625) (* 1073741825.0 -1073741827.0) -> -1.15292150890181e+18) ((2097 . 5625) (* 1073741825.0 -1073741826.0) -> -1.15292150782807e+18) ((2098 . 5625) (* 1073741825.0 -1073741825.0) -> -1.15292150675433e+18) ((2099 . 5625) (* 1073741825.0 -1073741824.0) -> -1.15292150568059e+18) ((2100 . 5625) (* 1073741825.0 -1073741823.0) -> -1.15292150460685e+18) ((2101 . 5625) (* 1073741821 1103515243.0) -> 1.18489046652008e+18) ((2102 . 5625) (* 1073741821 1103515244.0) -> 1.18489046759382e+18) ((2103 . 5625) (* 1073741821 1103515245.0) -> 1.18489046866756e+18) ((2104 . 5625) (* 1073741821 1103515246.0) -> 1.1848904697413e+18) ((2105 . 5625) (* 1073741821 1103515247.0) -> 1.18489047081504e+18) ((2106 . 5625) (* 1073741822 1103515243.0) -> 1.18489046762359e+18) ((2107 . 5625) (* 1073741822 1103515244.0) -> 1.18489046869733e+18) ((2108 . 5625) (* 1073741822 1103515245.0) -> 1.18489046977108e+18) ((2109 . 5625) (* 1073741822 1103515246.0) -> 1.18489047084482e+18) ((2110 . 5625) (* 1073741822 1103515247.0) -> 1.18489047191856e+18) ((2111 . 5625) (* 1073741823 1103515243.0) -> 1.18489046872711e+18) ((2112 . 5625) (* 1073741823 1103515244.0) -> 1.18489046980085e+18) ((2113 . 5625) (* 1073741823 1103515245.0) -> 1.18489047087459e+18) ((2114 . 5625) (* 1073741823 1103515246.0) -> 1.18489047194833e+18) ((2115 . 5625) (* 1073741823 1103515247.0) -> 1.18489047302208e+18) ((2116 . 5625) (* 1073741824.0 1103515243.0) -> 1.18489046983062e+18) ((2117 . 5625) (* 1073741824.0 1103515244.0) -> 1.18489047090437e+18) ((2118 . 5625) (* 1073741824.0 1103515245.0) -> 1.18489047197811e+18) ((2119 . 5625) (* 1073741824.0 1103515246.0) -> 1.18489047305185e+18) ((2120 . 5625) (* 1073741824.0 1103515247.0) -> 1.18489047412559e+18) ((2121 . 5625) (* 1073741825.0 1103515243.0) -> 1.18489047093414e+18) ((2122 . 5625) (* 1073741825.0 1103515244.0) -> 1.18489047200788e+18) ((2123 . 5625) (* 1073741825.0 1103515245.0) -> 1.18489047308162e+18) ((2124 . 5625) (* 1073741825.0 1103515246.0) -> 1.18489047415536e+18) ((2125 . 5625) (* 1073741825.0 1103515247.0) -> 1.18489047522911e+18) ((2126 . 5625) (* 1073741821 631629063) -> 6.78206540302144e+17) ((2127 . 5625) (* 1073741821 631629064) -> 6.78206541375886e+17) ((2128 . 5625) (* 1073741821 631629065) -> 6.78206542449627e+17) ((2129 . 5625) (* 1073741821 631629066) -> 6.78206543523369e+17) ((2130 . 5625) (* 1073741821 631629067) -> 6.78206544597111e+17) ((2131 . 5625) (* 1073741822 631629063) -> 6.78206540933773e+17) ((2132 . 5625) (* 1073741822 631629064) -> 6.78206542007515e+17) ((2133 . 5625) (* 1073741822 631629065) -> 6.78206543081256e+17) ((2134 . 5625) (* 1073741822 631629066) -> 6.78206544154998e+17) ((2135 . 5625) (* 1073741822 631629067) -> 6.7820654522874e+17) ((2136 . 5625) (* 1073741823 631629063) -> 6.78206541565402e+17) ((2137 . 5625) (* 1073741823 631629064) -> 6.78206542639144e+17) ((2138 . 5625) (* 1073741823 631629065) -> 6.78206543712886e+17) ((2139 . 5625) (* 1073741823 631629066) -> 6.78206544786627e+17) ((2140 . 5625) (* 1073741823 631629067) -> 6.78206545860369e+17) ((2141 . 5625) (* 1073741824.0 631629063) -> 6.78206542197031e+17) ((2142 . 5625) (* 1073741824.0 631629064) -> 6.78206543270773e+17) ((2143 . 5625) (* 1073741824.0 631629065) -> 6.78206544344515e+17) ((2144 . 5625) (* 1073741824.0 631629066) -> 6.78206545418256e+17) ((2145 . 5625) (* 1073741824.0 631629067) -> 6.78206546491998e+17) ((2146 . 5625) (* 1073741825.0 631629063) -> 6.7820654282866e+17) ((2147 . 5625) (* 1073741825.0 631629064) -> 6.78206543902402e+17) ((2148 . 5625) (* 1073741825.0 631629065) -> 6.78206544976144e+17) ((2149 . 5625) (* 1073741825.0 631629066) -> 6.78206546049885e+17) ((2150 . 5625) (* 1073741825.0 631629067) -> 6.78206547123627e+17) ((2151 . 5625) (* 1073741821 9.00719925474099e+15) -> 9.67140652989543e+24) ((2152 . 5625) (* 1073741821 9.00719925474099e+15) -> 9.67140652989543e+24) ((2153 . 5625) (* 1073741821 9.00719925474099e+15) -> 9.67140652989544e+24) ((2154 . 5625) (* 1073741821 9.00719925474099e+15) -> 9.67140652989544e+24) ((2155 . 5625) (* 1073741821 9.00719925474099e+15) -> 9.67140652989544e+24) ((2156 . 5625) (* 1073741822 9.00719925474099e+15) -> 9.67140653890263e+24) ((2157 . 5625) (* 1073741822 9.00719925474099e+15) -> 9.67140653890263e+24) ((2158 . 5625) (* 1073741822 9.00719925474099e+15) -> 9.67140653890263e+24) ((2159 . 5625) (* 1073741822 9.00719925474099e+15) -> 9.67140653890263e+24) ((2160 . 5625) (* 1073741822 9.00719925474099e+15) -> 9.67140653890264e+24) ((2161 . 5625) (* 1073741823 9.00719925474099e+15) -> 9.67140654790983e+24) ((2162 . 5625) (* 1073741823 9.00719925474099e+15) -> 9.67140654790983e+24) ((2163 . 5625) (* 1073741823 9.00719925474099e+15) -> 9.67140654790983e+24) ((2164 . 5625) (* 1073741823 9.00719925474099e+15) -> 9.67140654790983e+24) ((2165 . 5625) (* 1073741823 9.00719925474099e+15) -> 9.67140654790984e+24) ((2166 . 5625) (* 1073741824.0 9.00719925474099e+15) -> 9.67140655691703e+24) ((2167 . 5625) (* 1073741824.0 9.00719925474099e+15) -> 9.67140655691703e+24) ((2168 . 5625) (* 1073741824.0 9.00719925474099e+15) -> 9.67140655691703e+24) ((2169 . 5625) (* 1073741824.0 9.00719925474099e+15) -> 9.67140655691703e+24) ((2170 . 5625) (* 1073741824.0 9.00719925474099e+15) -> 9.67140655691704e+24) ((2171 . 5625) (* 1073741825.0 9.00719925474099e+15) -> 9.67140656592423e+24) ((2172 . 5625) (* 1073741825.0 9.00719925474099e+15) -> 9.67140656592423e+24) ((2173 . 5625) (* 1073741825.0 9.00719925474099e+15) -> 9.67140656592423e+24) ((2174 . 5625) (* 1073741825.0 9.00719925474099e+15) -> 9.67140656592423e+24) ((2175 . 5625) (* 1073741825.0 9.00719925474099e+15) -> 9.67140656592423e+24) ((2176 . 5625) (* 1073741821 -9.00719925474099e+15) -> -9.67140652989544e+24) ((2177 . 5625) (* 1073741821 -9.00719925474099e+15) -> -9.67140652989544e+24) ((2178 . 5625) (* 1073741821 -9.00719925474099e+15) -> -9.67140652989544e+24) ((2179 . 5625) (* 1073741821 -9.00719925474099e+15) -> -9.67140652989543e+24) ((2180 . 5625) (* 1073741821 -9.00719925474099e+15) -> -9.67140652989543e+24) ((2181 . 5625) (* 1073741822 -9.00719925474099e+15) -> -9.67140653890264e+24) ((2182 . 5625) (* 1073741822 -9.00719925474099e+15) -> -9.67140653890263e+24) ((2183 . 5625) (* 1073741822 -9.00719925474099e+15) -> -9.67140653890263e+24) ((2184 . 5625) (* 1073741822 -9.00719925474099e+15) -> -9.67140653890263e+24) ((2185 . 5625) (* 1073741822 -9.00719925474099e+15) -> -9.67140653890263e+24) ((2186 . 5625) (* 1073741823 -9.00719925474099e+15) -> -9.67140654790984e+24) ((2187 . 5625) (* 1073741823 -9.00719925474099e+15) -> -9.67140654790983e+24) ((2188 . 5625) (* 1073741823 -9.00719925474099e+15) -> -9.67140654790983e+24) ((2189 . 5625) (* 1073741823 -9.00719925474099e+15) -> -9.67140654790983e+24) ((2190 . 5625) (* 1073741823 -9.00719925474099e+15) -> -9.67140654790983e+24) ((2191 . 5625) (* 1073741824.0 -9.00719925474099e+15) -> -9.67140655691704e+24) ((2192 . 5625) (* 1073741824.0 -9.00719925474099e+15) -> -9.67140655691703e+24) ((2193 . 5625) (* 1073741824.0 -9.00719925474099e+15) -> -9.67140655691703e+24) ((2194 . 5625) (* 1073741824.0 -9.00719925474099e+15) -> -9.67140655691703e+24) ((2195 . 5625) (* 1073741824.0 -9.00719925474099e+15) -> -9.67140655691703e+24) ((2196 . 5625) (* 1073741825.0 -9.00719925474099e+15) -> -9.67140656592423e+24) ((2197 . 5625) (* 1073741825.0 -9.00719925474099e+15) -> -9.67140656592423e+24) ((2198 . 5625) (* 1073741825.0 -9.00719925474099e+15) -> -9.67140656592423e+24) ((2199 . 5625) (* 1073741825.0 -9.00719925474099e+15) -> -9.67140656592423e+24) ((2200 . 5625) (* 1073741825.0 -9.00719925474099e+15) -> -9.67140656592423e+24) ((2201 . 5625) (* 1073741821 12343) -> 13253195296603.0) ((2202 . 5625) (* 1073741821 12344) -> 13254269038424.0) ((2203 . 5625) (* 1073741821 12345) -> 13255342780245.0) ((2204 . 5625) (* 1073741821 12346) -> 13256416522066.0) ((2205 . 5625) (* 1073741821 12347) -> 13257490263887.0) ((2206 . 5625) (* 1073741822 12343) -> 13253195308946.0) ((2207 . 5625) (* 1073741822 12344) -> 13254269050768.0) ((2208 . 5625) (* 1073741822 12345) -> 13255342792590.0) ((2209 . 5625) (* 1073741822 12346) -> 13256416534412.0) ((2210 . 5625) (* 1073741822 12347) -> 13257490276234.0) ((2211 . 5625) (* 1073741823 12343) -> 13253195321289.0) ((2212 . 5625) (* 1073741823 12344) -> 13254269063112.0) ((2213 . 5625) (* 1073741823 12345) -> 13255342804935.0) ((2214 . 5625) (* 1073741823 12346) -> 13256416546758.0) ((2215 . 5625) (* 1073741823 12347) -> 13257490288581.0) ((2216 . 5625) (* 1073741824.0 12343) -> 13253195333632.0) ((2217 . 5625) (* 1073741824.0 12344) -> 13254269075456.0) ((2218 . 5625) (* 1073741824.0 12345) -> 13255342817280.0) ((2219 . 5625) (* 1073741824.0 12346) -> 13256416559104.0) ((2220 . 5625) (* 1073741824.0 12347) -> 13257490300928.0) ((2221 . 5625) (* 1073741825.0 12343) -> 13253195345975.0) ((2222 . 5625) (* 1073741825.0 12344) -> 13254269087800.0) ((2223 . 5625) (* 1073741825.0 12345) -> 13255342829625.0) ((2224 . 5625) (* 1073741825.0 12346) -> 13256416571450.0) ((2225 . 5625) (* 1073741825.0 12347) -> 13257490313275.0) ((2226 . 5625) (* 1073741821 4294967294.0) -> 4.611686003395e+18) ((2227 . 5625) (* 1073741821 4294967295.0) -> 4.61168600446874e+18) ((2228 . 5625) (* 1073741821 4294967296.0) -> 4.61168600554249e+18) ((2229 . 5625) (* 1073741821 4294967297.0) -> 4.61168600661623e+18) ((2230 . 5625) (* 1073741821 4294967298.0) -> 4.61168600768997e+18) ((2231 . 5625) (* 1073741822 4294967294.0) -> 4.61168600768997e+18) ((2232 . 5625) (* 1073741822 4294967295.0) -> 4.61168600876371e+18) ((2233 . 5625) (* 1073741822 4294967296.0) -> 4.61168600983745e+18) ((2234 . 5625) (* 1073741822 4294967297.0) -> 4.6116860109112e+18) ((2235 . 5625) (* 1073741822 4294967298.0) -> 4.61168601198494e+18) ((2236 . 5625) (* 1073741823 4294967294.0) -> 4.61168601198494e+18) ((2237 . 5625) (* 1073741823 4294967295.0) -> 4.61168601305868e+18) ((2238 . 5625) (* 1073741823 4294967296.0) -> 4.61168601413242e+18) ((2239 . 5625) (* 1073741823 4294967297.0) -> 4.61168601520616e+18) ((2240 . 5625) (* 1073741823 4294967298.0) -> 4.6116860162799e+18) ((2241 . 5625) (* 1073741824.0 4294967294.0) -> 4.6116860162799e+18) ((2242 . 5625) (* 1073741824.0 4294967295.0) -> 4.61168601735365e+18) ((2243 . 5625) (* 1073741824.0 4294967296.0) -> 4.61168601842739e+18) ((2244 . 5625) (* 1073741824.0 4294967297.0) -> 4.61168601950113e+18) ((2245 . 5625) (* 1073741824.0 4294967298.0) -> 4.61168602057487e+18) ((2246 . 5625) (* 1073741825.0 4294967294.0) -> 4.61168602057487e+18) ((2247 . 5625) (* 1073741825.0 4294967295.0) -> 4.61168602164861e+18) ((2248 . 5625) (* 1073741825.0 4294967296.0) -> 4.61168602272236e+18) ((2249 . 5625) (* 1073741825.0 4294967297.0) -> 4.6116860237961e+18) ((2250 . 5625) (* 1073741825.0 4294967298.0) -> 4.61168602486984e+18) ((2251 . 5625) (* -1073741826.0 -2) -> 2147483652.0) ((2252 . 5625) (* -1073741826.0 -1) -> 1073741826.0) ((2253 . 5625) (* -1073741826.0 0) -> -0.0) ((2254 . 5625) (* -1073741826.0 1) -> -1073741826.0) ((2255 . 5625) (* -1073741826.0 2) -> -2147483652.0) ((2256 . 5625) (* -1073741825.0 -2) -> 2147483650.0) ((2257 . 5625) (* -1073741825.0 -1) -> 1073741825.0) ((2258 . 5625) (* -1073741825.0 0) -> -0.0) ((2259 . 5625) (* -1073741825.0 1) -> -1073741825.0) ((2260 . 5625) (* -1073741825.0 2) -> -2147483650.0) ((2261 . 5625) (* -1073741824 -2) -> 2147483648.0) ((2262 . 5625) (* -1073741824 -1) -> 1073741824.0) ((2263 . 5625) (* -1073741824 0) -> 0) ((2264 . 5625) (* -1073741824 1) -> -1073741824) ((2265 . 5625) (* -1073741824 2) -> -2147483648.0) ((2266 . 5625) (* -1073741823 -2) -> 2147483646.0) ((2267 . 5625) (* -1073741823 -1) -> 1073741823) ((2268 . 5625) (* -1073741823 0) -> 0) ((2269 . 5625) (* -1073741823 1) -> -1073741823) ((2270 . 5625) (* -1073741823 2) -> -2147483646.0) ((2271 . 5625) (* -1073741822 -2) -> 2147483644.0) ((2272 . 5625) (* -1073741822 -1) -> 1073741822) ((2273 . 5625) (* -1073741822 0) -> 0) ((2274 . 5625) (* -1073741822 1) -> -1073741822) ((2275 . 5625) (* -1073741822 2) -> -2147483644.0) ((2276 . 5625) (* -1073741826.0 -1) -> 1073741826.0) ((2277 . 5625) (* -1073741826.0 0) -> -0.0) ((2278 . 5625) (* -1073741826.0 1) -> -1073741826.0) ((2279 . 5625) (* -1073741826.0 2) -> -2147483652.0) ((2280 . 5625) (* -1073741826.0 3) -> -3221225478.0) ((2281 . 5625) (* -1073741825.0 -1) -> 1073741825.0) ((2282 . 5625) (* -1073741825.0 0) -> -0.0) ((2283 . 5625) (* -1073741825.0 1) -> -1073741825.0) ((2284 . 5625) (* -1073741825.0 2) -> -2147483650.0) ((2285 . 5625) (* -1073741825.0 3) -> -3221225475.0) ((2286 . 5625) (* -1073741824 -1) -> 1073741824.0) ((2287 . 5625) (* -1073741824 0) -> 0) ((2288 . 5625) (* -1073741824 1) -> -1073741824) ((2289 . 5625) (* -1073741824 2) -> -2147483648.0) ((2290 . 5625) (* -1073741824 3) -> -3221225472.0) ((2291 . 5625) (* -1073741823 -1) -> 1073741823) ((2292 . 5625) (* -1073741823 0) -> 0) ((2293 . 5625) (* -1073741823 1) -> -1073741823) ((2294 . 5625) (* -1073741823 2) -> -2147483646.0) ((2295 . 5625) (* -1073741823 3) -> -3221225469.0) ((2296 . 5625) (* -1073741822 -1) -> 1073741822) ((2297 . 5625) (* -1073741822 0) -> 0) ((2298 . 5625) (* -1073741822 1) -> -1073741822) ((2299 . 5625) (* -1073741822 2) -> -2147483644.0) ((2300 . 5625) (* -1073741822 3) -> -3221225466.0) ((2301 . 5625) (* -1073741826.0 -3) -> 3221225478.0) ((2302 . 5625) (* -1073741826.0 -2) -> 2147483652.0) ((2303 . 5625) (* -1073741826.0 -1) -> 1073741826.0) ((2304 . 5625) (* -1073741826.0 0) -> -0.0) ((2305 . 5625) (* -1073741826.0 1) -> -1073741826.0) ((2306 . 5625) (* -1073741825.0 -3) -> 3221225475.0) ((2307 . 5625) (* -1073741825.0 -2) -> 2147483650.0) ((2308 . 5625) (* -1073741825.0 -1) -> 1073741825.0) ((2309 . 5625) (* -1073741825.0 0) -> -0.0) ((2310 . 5625) (* -1073741825.0 1) -> -1073741825.0) ((2311 . 5625) (* -1073741824 -3) -> 3221225472.0) ((2312 . 5625) (* -1073741824 -2) -> 2147483648.0) ((2313 . 5625) (* -1073741824 -1) -> 1073741824.0) ((2314 . 5625) (* -1073741824 0) -> 0) ((2315 . 5625) (* -1073741824 1) -> -1073741824) ((2316 . 5625) (* -1073741823 -3) -> 3221225469.0) ((2317 . 5625) (* -1073741823 -2) -> 2147483646.0) ((2318 . 5625) (* -1073741823 -1) -> 1073741823) ((2319 . 5625) (* -1073741823 0) -> 0) ((2320 . 5625) (* -1073741823 1) -> -1073741823) ((2321 . 5625) (* -1073741822 -3) -> 3221225466.0) ((2322 . 5625) (* -1073741822 -2) -> 2147483644.0) ((2323 . 5625) (* -1073741822 -1) -> 1073741822) ((2324 . 5625) (* -1073741822 0) -> 0) ((2325 . 5625) (* -1073741822 1) -> -1073741822) ((2326 . 5625) (* -1073741826.0 0) -> -0.0) ((2327 . 5625) (* -1073741826.0 1) -> -1073741826.0) ((2328 . 5625) (* -1073741826.0 2) -> -2147483652.0) ((2329 . 5625) (* -1073741826.0 3) -> -3221225478.0) ((2330 . 5625) (* -1073741826.0 4) -> -4294967304.0) ((2331 . 5625) (* -1073741825.0 0) -> -0.0) ((2332 . 5625) (* -1073741825.0 1) -> -1073741825.0) ((2333 . 5625) (* -1073741825.0 2) -> -2147483650.0) ((2334 . 5625) (* -1073741825.0 3) -> -3221225475.0) ((2335 . 5625) (* -1073741825.0 4) -> -4294967300.0) ((2336 . 5625) (* -1073741824 0) -> 0) ((2337 . 5625) (* -1073741824 1) -> -1073741824) ((2338 . 5625) (* -1073741824 2) -> -2147483648.0) ((2339 . 5625) (* -1073741824 3) -> -3221225472.0) ((2340 . 5625) (* -1073741824 4) -> -4294967296.0) ((2341 . 5625) (* -1073741823 0) -> 0) ((2342 . 5625) (* -1073741823 1) -> -1073741823) ((2343 . 5625) (* -1073741823 2) -> -2147483646.0) ((2344 . 5625) (* -1073741823 3) -> -3221225469.0) ((2345 . 5625) (* -1073741823 4) -> -4294967292.0) ((2346 . 5625) (* -1073741822 0) -> 0) ((2347 . 5625) (* -1073741822 1) -> -1073741822) ((2348 . 5625) (* -1073741822 2) -> -2147483644.0) ((2349 . 5625) (* -1073741822 3) -> -3221225466.0) ((2350 . 5625) (* -1073741822 4) -> -4294967288.0) ((2351 . 5625) (* -1073741826.0 -4) -> 4294967304.0) ((2352 . 5625) (* -1073741826.0 -3) -> 3221225478.0) ((2353 . 5625) (* -1073741826.0 -2) -> 2147483652.0) ((2354 . 5625) (* -1073741826.0 -1) -> 1073741826.0) ((2355 . 5625) (* -1073741826.0 0) -> -0.0) ((2356 . 5625) (* -1073741825.0 -4) -> 4294967300.0) ((2357 . 5625) (* -1073741825.0 -3) -> 3221225475.0) ((2358 . 5625) (* -1073741825.0 -2) -> 2147483650.0) ((2359 . 5625) (* -1073741825.0 -1) -> 1073741825.0) ((2360 . 5625) (* -1073741825.0 0) -> -0.0) ((2361 . 5625) (* -1073741824 -4) -> 4294967296.0) ((2362 . 5625) (* -1073741824 -3) -> 3221225472.0) ((2363 . 5625) (* -1073741824 -2) -> 2147483648.0) ((2364 . 5625) (* -1073741824 -1) -> 1073741824.0) ((2365 . 5625) (* -1073741824 0) -> 0) ((2366 . 5625) (* -1073741823 -4) -> 4294967292.0) ((2367 . 5625) (* -1073741823 -3) -> 3221225469.0) ((2368 . 5625) (* -1073741823 -2) -> 2147483646.0) ((2369 . 5625) (* -1073741823 -1) -> 1073741823) ((2370 . 5625) (* -1073741823 0) -> 0) ((2371 . 5625) (* -1073741822 -4) -> 4294967288.0) ((2372 . 5625) (* -1073741822 -3) -> 3221225466.0) ((2373 . 5625) (* -1073741822 -2) -> 2147483644.0) ((2374 . 5625) (* -1073741822 -1) -> 1073741822) ((2375 . 5625) (* -1073741822 0) -> 0) ((2376 . 5625) (* -1073741826.0 1073741821) -> -1.15292150353311e+18) ((2377 . 5625) (* -1073741826.0 1073741822) -> -1.15292150460685e+18) ((2378 . 5625) (* -1073741826.0 1073741823) -> -1.15292150568059e+18) ((2379 . 5625) (* -1073741826.0 1073741824.0) -> -1.15292150675433e+18) ((2380 . 5625) (* -1073741826.0 1073741825.0) -> -1.15292150782807e+18) ((2381 . 5625) (* -1073741825.0 1073741821) -> -1.15292150245936e+18) ((2382 . 5625) (* -1073741825.0 1073741822) -> -1.15292150353311e+18) ((2383 . 5625) (* -1073741825.0 1073741823) -> -1.15292150460685e+18) ((2384 . 5625) (* -1073741825.0 1073741824.0) -> -1.15292150568059e+18) ((2385 . 5625) (* -1073741825.0 1073741825.0) -> -1.15292150675433e+18) ((2386 . 5625) (* -1073741824 1073741821) -> -1.15292150138562e+18) ((2387 . 5625) (* -1073741824 1073741822) -> -1.15292150245936e+18) ((2388 . 5625) (* -1073741824 1073741823) -> -1.15292150353311e+18) ((2389 . 5625) (* -1073741824 1073741824.0) -> -1.15292150460685e+18) ((2390 . 5625) (* -1073741824 1073741825.0) -> -1.15292150568059e+18) ((2391 . 5625) (* -1073741823 1073741821) -> -1.15292150031188e+18) ((2392 . 5625) (* -1073741823 1073741822) -> -1.15292150138562e+18) ((2393 . 5625) (* -1073741823 1073741823) -> -1.15292150245936e+18) ((2394 . 5625) (* -1073741823 1073741824.0) -> -1.15292150353311e+18) ((2395 . 5625) (* -1073741823 1073741825.0) -> -1.15292150460685e+18) ((2396 . 5625) (* -1073741822 1073741821) -> -1.15292149923814e+18) ((2397 . 5625) (* -1073741822 1073741822) -> -1.15292150031188e+18) ((2398 . 5625) (* -1073741822 1073741823) -> -1.15292150138562e+18) ((2399 . 5625) (* -1073741822 1073741824.0) -> -1.15292150245936e+18) ((2400 . 5625) (* -1073741822 1073741825.0) -> -1.15292150353311e+18) ((2401 . 5625) (* -1073741826.0 -1073741826.0) -> 1.15292150890181e+18) ((2402 . 5625) (* -1073741826.0 -1073741825.0) -> 1.15292150782807e+18) ((2403 . 5625) (* -1073741826.0 -1073741824) -> 1.15292150675433e+18) ((2404 . 5625) (* -1073741826.0 -1073741823) -> 1.15292150568059e+18) ((2405 . 5625) (* -1073741826.0 -1073741822) -> 1.15292150460685e+18) ((2406 . 5625) (* -1073741825.0 -1073741826.0) -> 1.15292150782807e+18) ((2407 . 5625) (* -1073741825.0 -1073741825.0) -> 1.15292150675433e+18) ((2408 . 5625) (* -1073741825.0 -1073741824) -> 1.15292150568059e+18) ((2409 . 5625) (* -1073741825.0 -1073741823) -> 1.15292150460685e+18) ((2410 . 5625) (* -1073741825.0 -1073741822) -> 1.15292150353311e+18) ((2411 . 5625) (* -1073741824 -1073741826.0) -> 1.15292150675433e+18) ((2412 . 5625) (* -1073741824 -1073741825.0) -> 1.15292150568059e+18) ((2413 . 5625) (* -1073741824 -1073741824) -> 1.15292150460685e+18) ((2414 . 5625) (* -1073741824 -1073741823) -> 1.15292150353311e+18) ((2415 . 5625) (* -1073741824 -1073741822) -> 1.15292150245936e+18) ((2416 . 5625) (* -1073741823 -1073741826.0) -> 1.15292150568059e+18) ((2417 . 5625) (* -1073741823 -1073741825.0) -> 1.15292150460685e+18) ((2418 . 5625) (* -1073741823 -1073741824) -> 1.15292150353311e+18) ((2419 . 5625) (* -1073741823 -1073741823) -> 1.15292150245936e+18) ((2420 . 5625) (* -1073741823 -1073741822) -> 1.15292150138562e+18) ((2421 . 5625) (* -1073741822 -1073741826.0) -> 1.15292150460685e+18) ((2422 . 5625) (* -1073741822 -1073741825.0) -> 1.15292150353311e+18) ((2423 . 5625) (* -1073741822 -1073741824) -> 1.15292150245936e+18) ((2424 . 5625) (* -1073741822 -1073741823) -> 1.15292150138562e+18) ((2425 . 5625) (* -1073741822 -1073741822) -> 1.15292150031188e+18) ((2426 . 5625) (* -1073741826.0 1073741822.0) -> -1.15292150460685e+18) ((2427 . 5625) (* -1073741826.0 1073741823.0) -> -1.15292150568059e+18) ((2428 . 5625) (* -1073741826.0 1073741824.0) -> -1.15292150675433e+18) ((2429 . 5625) (* -1073741826.0 1073741825.0) -> -1.15292150782807e+18) ((2430 . 5625) (* -1073741826.0 1073741826.0) -> -1.15292150890181e+18) ((2431 . 5625) (* -1073741825.0 1073741822.0) -> -1.15292150353311e+18) ((2432 . 5625) (* -1073741825.0 1073741823.0) -> -1.15292150460685e+18) ((2433 . 5625) (* -1073741825.0 1073741824.0) -> -1.15292150568059e+18) ((2434 . 5625) (* -1073741825.0 1073741825.0) -> -1.15292150675433e+18) ((2435 . 5625) (* -1073741825.0 1073741826.0) -> -1.15292150782807e+18) ((2436 . 5625) (* -1073741824 1073741822.0) -> -1.15292150245936e+18) ((2437 . 5625) (* -1073741824 1073741823.0) -> -1.15292150353311e+18) ((2438 . 5625) (* -1073741824 1073741824.0) -> -1.15292150460685e+18) ((2439 . 5625) (* -1073741824 1073741825.0) -> -1.15292150568059e+18) ((2440 . 5625) (* -1073741824 1073741826.0) -> -1.15292150675433e+18) ((2441 . 5625) (* -1073741823 1073741822.0) -> -1.15292150138562e+18) ((2442 . 5625) (* -1073741823 1073741823.0) -> -1.15292150245936e+18) ((2443 . 5625) (* -1073741823 1073741824.0) -> -1.15292150353311e+18) ((2444 . 5625) (* -1073741823 1073741825.0) -> -1.15292150460685e+18) ((2445 . 5625) (* -1073741823 1073741826.0) -> -1.15292150568059e+18) ((2446 . 5625) (* -1073741822 1073741822.0) -> -1.15292150031188e+18) ((2447 . 5625) (* -1073741822 1073741823.0) -> -1.15292150138562e+18) ((2448 . 5625) (* -1073741822 1073741824.0) -> -1.15292150245936e+18) ((2449 . 5625) (* -1073741822 1073741825.0) -> -1.15292150353311e+18) ((2450 . 5625) (* -1073741822 1073741826.0) -> -1.15292150460685e+18) ((2451 . 5625) (* -1073741826.0 -1073741827.0) -> 1.15292150997556e+18) ((2452 . 5625) (* -1073741826.0 -1073741826.0) -> 1.15292150890181e+18) ((2453 . 5625) (* -1073741826.0 -1073741825.0) -> 1.15292150782807e+18) ((2454 . 5625) (* -1073741826.0 -1073741824.0) -> 1.15292150675433e+18) ((2455 . 5625) (* -1073741826.0 -1073741823.0) -> 1.15292150568059e+18) ((2456 . 5625) (* -1073741825.0 -1073741827.0) -> 1.15292150890181e+18) ((2457 . 5625) (* -1073741825.0 -1073741826.0) -> 1.15292150782807e+18) ((2458 . 5625) (* -1073741825.0 -1073741825.0) -> 1.15292150675433e+18) ((2459 . 5625) (* -1073741825.0 -1073741824.0) -> 1.15292150568059e+18) ((2460 . 5625) (* -1073741825.0 -1073741823.0) -> 1.15292150460685e+18) ((2461 . 5625) (* -1073741824 -1073741827.0) -> 1.15292150782807e+18) ((2462 . 5625) (* -1073741824 -1073741826.0) -> 1.15292150675433e+18) ((2463 . 5625) (* -1073741824 -1073741825.0) -> 1.15292150568059e+18) ((2464 . 5625) (* -1073741824 -1073741824.0) -> 1.15292150460685e+18) ((2465 . 5625) (* -1073741824 -1073741823.0) -> 1.15292150353311e+18) ((2466 . 5625) (* -1073741823 -1073741827.0) -> 1.15292150675433e+18) ((2467 . 5625) (* -1073741823 -1073741826.0) -> 1.15292150568059e+18) ((2468 . 5625) (* -1073741823 -1073741825.0) -> 1.15292150460685e+18) ((2469 . 5625) (* -1073741823 -1073741824.0) -> 1.15292150353311e+18) ((2470 . 5625) (* -1073741823 -1073741823.0) -> 1.15292150245936e+18) ((2471 . 5625) (* -1073741822 -1073741827.0) -> 1.15292150568059e+18) ((2472 . 5625) (* -1073741822 -1073741826.0) -> 1.15292150460685e+18) ((2473 . 5625) (* -1073741822 -1073741825.0) -> 1.15292150353311e+18) ((2474 . 5625) (* -1073741822 -1073741824.0) -> 1.15292150245936e+18) ((2475 . 5625) (* -1073741822 -1073741823.0) -> 1.15292150138562e+18) ((2476 . 5625) (* -1073741826.0 1103515243.0) -> -1.18489047203765e+18) ((2477 . 5625) (* -1073741826.0 1103515244.0) -> -1.1848904731114e+18) ((2478 . 5625) (* -1073741826.0 1103515245.0) -> -1.18489047418514e+18) ((2479 . 5625) (* -1073741826.0 1103515246.0) -> -1.18489047525888e+18) ((2480 . 5625) (* -1073741826.0 1103515247.0) -> -1.18489047633262e+18) ((2481 . 5625) (* -1073741825.0 1103515243.0) -> -1.18489047093414e+18) ((2482 . 5625) (* -1073741825.0 1103515244.0) -> -1.18489047200788e+18) ((2483 . 5625) (* -1073741825.0 1103515245.0) -> -1.18489047308162e+18) ((2484 . 5625) (* -1073741825.0 1103515246.0) -> -1.18489047415536e+18) ((2485 . 5625) (* -1073741825.0 1103515247.0) -> -1.18489047522911e+18) ((2486 . 5625) (* -1073741824 1103515243.0) -> -1.18489046983062e+18) ((2487 . 5625) (* -1073741824 1103515244.0) -> -1.18489047090437e+18) ((2488 . 5625) (* -1073741824 1103515245.0) -> -1.18489047197811e+18) ((2489 . 5625) (* -1073741824 1103515246.0) -> -1.18489047305185e+18) ((2490 . 5625) (* -1073741824 1103515247.0) -> -1.18489047412559e+18) ((2491 . 5625) (* -1073741823 1103515243.0) -> -1.18489046872711e+18) ((2492 . 5625) (* -1073741823 1103515244.0) -> -1.18489046980085e+18) ((2493 . 5625) (* -1073741823 1103515245.0) -> -1.18489047087459e+18) ((2494 . 5625) (* -1073741823 1103515246.0) -> -1.18489047194833e+18) ((2495 . 5625) (* -1073741823 1103515247.0) -> -1.18489047302208e+18) ((2496 . 5625) (* -1073741822 1103515243.0) -> -1.18489046762359e+18) ((2497 . 5625) (* -1073741822 1103515244.0) -> -1.18489046869733e+18) ((2498 . 5625) (* -1073741822 1103515245.0) -> -1.18489046977108e+18) ((2499 . 5625) (* -1073741822 1103515246.0) -> -1.18489047084482e+18) ((2500 . 5625) (* -1073741822 1103515247.0) -> -1.18489047191856e+18) ((2501 . 5625) (* -1073741826.0 631629063) -> -6.78206543460289e+17) ((2502 . 5625) (* -1073741826.0 631629064) -> -6.78206544534031e+17) ((2503 . 5625) (* -1073741826.0 631629065) -> -6.78206545607773e+17) ((2504 . 5625) (* -1073741826.0 631629066) -> -6.78206546681514e+17) ((2505 . 5625) (* -1073741826.0 631629067) -> -6.78206547755256e+17) ((2506 . 5625) (* -1073741825.0 631629063) -> -6.7820654282866e+17) ((2507 . 5625) (* -1073741825.0 631629064) -> -6.78206543902402e+17) ((2508 . 5625) (* -1073741825.0 631629065) -> -6.78206544976144e+17) ((2509 . 5625) (* -1073741825.0 631629066) -> -6.78206546049885e+17) ((2510 . 5625) (* -1073741825.0 631629067) -> -6.78206547123627e+17) ((2511 . 5625) (* -1073741824 631629063) -> -6.78206542197031e+17) ((2512 . 5625) (* -1073741824 631629064) -> -6.78206543270773e+17) ((2513 . 5625) (* -1073741824 631629065) -> -6.78206544344515e+17) ((2514 . 5625) (* -1073741824 631629066) -> -6.78206545418256e+17) ((2515 . 5625) (* -1073741824 631629067) -> -6.78206546491998e+17) ((2516 . 5625) (* -1073741823 631629063) -> -6.78206541565402e+17) ((2517 . 5625) (* -1073741823 631629064) -> -6.78206542639144e+17) ((2518 . 5625) (* -1073741823 631629065) -> -6.78206543712886e+17) ((2519 . 5625) (* -1073741823 631629066) -> -6.78206544786627e+17) ((2520 . 5625) (* -1073741823 631629067) -> -6.78206545860369e+17) ((2521 . 5625) (* -1073741822 631629063) -> -6.78206540933773e+17) ((2522 . 5625) (* -1073741822 631629064) -> -6.78206542007515e+17) ((2523 . 5625) (* -1073741822 631629065) -> -6.78206543081256e+17) ((2524 . 5625) (* -1073741822 631629066) -> -6.78206544154998e+17) ((2525 . 5625) (* -1073741822 631629067) -> -6.7820654522874e+17) ((2526 . 5625) (* -1073741826.0 9.00719925474099e+15) -> -9.67140657493143e+24) ((2527 . 5625) (* -1073741826.0 9.00719925474099e+15) -> -9.67140657493143e+24) ((2528 . 5625) (* -1073741826.0 9.00719925474099e+15) -> -9.67140657493143e+24) ((2529 . 5625) (* -1073741826.0 9.00719925474099e+15) -> -9.67140657493143e+24) ((2530 . 5625) (* -1073741826.0 9.00719925474099e+15) -> -9.67140657493143e+24) ((2531 . 5625) (* -1073741825.0 9.00719925474099e+15) -> -9.67140656592423e+24) ((2532 . 5625) (* -1073741825.0 9.00719925474099e+15) -> -9.67140656592423e+24) ((2533 . 5625) (* -1073741825.0 9.00719925474099e+15) -> -9.67140656592423e+24) ((2534 . 5625) (* -1073741825.0 9.00719925474099e+15) -> -9.67140656592423e+24) ((2535 . 5625) (* -1073741825.0 9.00719925474099e+15) -> -9.67140656592423e+24) ((2536 . 5625) (* -1073741824 9.00719925474099e+15) -> -9.67140655691703e+24) ((2537 . 5625) (* -1073741824 9.00719925474099e+15) -> -9.67140655691703e+24) ((2538 . 5625) (* -1073741824 9.00719925474099e+15) -> -9.67140655691703e+24) ((2539 . 5625) (* -1073741824 9.00719925474099e+15) -> -9.67140655691703e+24) ((2540 . 5625) (* -1073741824 9.00719925474099e+15) -> -9.67140655691704e+24) ((2541 . 5625) (* -1073741823 9.00719925474099e+15) -> -9.67140654790983e+24) ((2542 . 5625) (* -1073741823 9.00719925474099e+15) -> -9.67140654790983e+24) ((2543 . 5625) (* -1073741823 9.00719925474099e+15) -> -9.67140654790983e+24) ((2544 . 5625) (* -1073741823 9.00719925474099e+15) -> -9.67140654790983e+24) ((2545 . 5625) (* -1073741823 9.00719925474099e+15) -> -9.67140654790984e+24) ((2546 . 5625) (* -1073741822 9.00719925474099e+15) -> -9.67140653890263e+24) ((2547 . 5625) (* -1073741822 9.00719925474099e+15) -> -9.67140653890263e+24) ((2548 . 5625) (* -1073741822 9.00719925474099e+15) -> -9.67140653890263e+24) ((2549 . 5625) (* -1073741822 9.00719925474099e+15) -> -9.67140653890263e+24) ((2550 . 5625) (* -1073741822 9.00719925474099e+15) -> -9.67140653890264e+24) ((2551 . 5625) (* -1073741826.0 -9.00719925474099e+15) -> 9.67140657493143e+24) ((2552 . 5625) (* -1073741826.0 -9.00719925474099e+15) -> 9.67140657493143e+24) ((2553 . 5625) (* -1073741826.0 -9.00719925474099e+15) -> 9.67140657493143e+24) ((2554 . 5625) (* -1073741826.0 -9.00719925474099e+15) -> 9.67140657493143e+24) ((2555 . 5625) (* -1073741826.0 -9.00719925474099e+15) -> 9.67140657493143e+24) ((2556 . 5625) (* -1073741825.0 -9.00719925474099e+15) -> 9.67140656592423e+24) ((2557 . 5625) (* -1073741825.0 -9.00719925474099e+15) -> 9.67140656592423e+24) ((2558 . 5625) (* -1073741825.0 -9.00719925474099e+15) -> 9.67140656592423e+24) ((2559 . 5625) (* -1073741825.0 -9.00719925474099e+15) -> 9.67140656592423e+24) ((2560 . 5625) (* -1073741825.0 -9.00719925474099e+15) -> 9.67140656592423e+24) ((2561 . 5625) (* -1073741824 -9.00719925474099e+15) -> 9.67140655691704e+24) ((2562 . 5625) (* -1073741824 -9.00719925474099e+15) -> 9.67140655691703e+24) ((2563 . 5625) (* -1073741824 -9.00719925474099e+15) -> 9.67140655691703e+24) ((2564 . 5625) (* -1073741824 -9.00719925474099e+15) -> 9.67140655691703e+24) ((2565 . 5625) (* -1073741824 -9.00719925474099e+15) -> 9.67140655691703e+24) ((2566 . 5625) (* -1073741823 -9.00719925474099e+15) -> 9.67140654790984e+24) ((2567 . 5625) (* -1073741823 -9.00719925474099e+15) -> 9.67140654790983e+24) ((2568 . 5625) (* -1073741823 -9.00719925474099e+15) -> 9.67140654790983e+24) ((2569 . 5625) (* -1073741823 -9.00719925474099e+15) -> 9.67140654790983e+24) ((2570 . 5625) (* -1073741823 -9.00719925474099e+15) -> 9.67140654790983e+24) ((2571 . 5625) (* -1073741822 -9.00719925474099e+15) -> 9.67140653890264e+24) ((2572 . 5625) (* -1073741822 -9.00719925474099e+15) -> 9.67140653890263e+24) ((2573 . 5625) (* -1073741822 -9.00719925474099e+15) -> 9.67140653890263e+24) ((2574 . 5625) (* -1073741822 -9.00719925474099e+15) -> 9.67140653890263e+24) ((2575 . 5625) (* -1073741822 -9.00719925474099e+15) -> 9.67140653890263e+24) ((2576 . 5625) (* -1073741826.0 12343) -> -13253195358318.0) ((2577 . 5625) (* -1073741826.0 12344) -> -13254269100144.0) ((2578 . 5625) (* -1073741826.0 12345) -> -13255342841970.0) ((2579 . 5625) (* -1073741826.0 12346) -> -13256416583796.0) ((2580 . 5625) (* -1073741826.0 12347) -> -13257490325622.0) ((2581 . 5625) (* -1073741825.0 12343) -> -13253195345975.0) ((2582 . 5625) (* -1073741825.0 12344) -> -13254269087800.0) ((2583 . 5625) (* -1073741825.0 12345) -> -13255342829625.0) ((2584 . 5625) (* -1073741825.0 12346) -> -13256416571450.0) ((2585 . 5625) (* -1073741825.0 12347) -> -13257490313275.0) ((2586 . 5625) (* -1073741824 12343) -> -13253195333632.0) ((2587 . 5625) (* -1073741824 12344) -> -13254269075456.0) ((2588 . 5625) (* -1073741824 12345) -> -13255342817280.0) ((2589 . 5625) (* -1073741824 12346) -> -13256416559104.0) ((2590 . 5625) (* -1073741824 12347) -> -13257490300928.0) ((2591 . 5625) (* -1073741823 12343) -> -13253195321289.0) ((2592 . 5625) (* -1073741823 12344) -> -13254269063112.0) ((2593 . 5625) (* -1073741823 12345) -> -13255342804935.0) ((2594 . 5625) (* -1073741823 12346) -> -13256416546758.0) ((2595 . 5625) (* -1073741823 12347) -> -13257490288581.0) ((2596 . 5625) (* -1073741822 12343) -> -13253195308946.0) ((2597 . 5625) (* -1073741822 12344) -> -13254269050768.0) ((2598 . 5625) (* -1073741822 12345) -> -13255342792590.0) ((2599 . 5625) (* -1073741822 12346) -> -13256416534412.0) ((2600 . 5625) (* -1073741822 12347) -> -13257490276234.0) ((2601 . 5625) (* -1073741826.0 4294967294.0) -> -4.61168602486984e+18) ((2602 . 5625) (* -1073741826.0 4294967295.0) -> -4.61168602594358e+18) ((2603 . 5625) (* -1073741826.0 4294967296.0) -> -4.61168602701732e+18) ((2604 . 5625) (* -1073741826.0 4294967297.0) -> -4.61168602809106e+18) ((2605 . 5625) (* -1073741826.0 4294967298.0) -> -4.61168602916481e+18) ((2606 . 5625) (* -1073741825.0 4294967294.0) -> -4.61168602057487e+18) ((2607 . 5625) (* -1073741825.0 4294967295.0) -> -4.61168602164861e+18) ((2608 . 5625) (* -1073741825.0 4294967296.0) -> -4.61168602272236e+18) ((2609 . 5625) (* -1073741825.0 4294967297.0) -> -4.6116860237961e+18) ((2610 . 5625) (* -1073741825.0 4294967298.0) -> -4.61168602486984e+18) ((2611 . 5625) (* -1073741824 4294967294.0) -> -4.6116860162799e+18) ((2612 . 5625) (* -1073741824 4294967295.0) -> -4.61168601735365e+18) ((2613 . 5625) (* -1073741824 4294967296.0) -> -4.61168601842739e+18) ((2614 . 5625) (* -1073741824 4294967297.0) -> -4.61168601950113e+18) ((2615 . 5625) (* -1073741824 4294967298.0) -> -4.61168602057487e+18) ((2616 . 5625) (* -1073741823 4294967294.0) -> -4.61168601198494e+18) ((2617 . 5625) (* -1073741823 4294967295.0) -> -4.61168601305868e+18) ((2618 . 5625) (* -1073741823 4294967296.0) -> -4.61168601413242e+18) ((2619 . 5625) (* -1073741823 4294967297.0) -> -4.61168601520616e+18) ((2620 . 5625) (* -1073741823 4294967298.0) -> -4.6116860162799e+18) ((2621 . 5625) (* -1073741822 4294967294.0) -> -4.61168600768997e+18) ((2622 . 5625) (* -1073741822 4294967295.0) -> -4.61168600876371e+18) ((2623 . 5625) (* -1073741822 4294967296.0) -> -4.61168600983745e+18) ((2624 . 5625) (* -1073741822 4294967297.0) -> -4.6116860109112e+18) ((2625 . 5625) (* -1073741822 4294967298.0) -> -4.61168601198494e+18) ((2626 . 5625) (* 1073741822.0 -2) -> -2147483644.0) ((2627 . 5625) (* 1073741822.0 -1) -> -1073741822.0) ((2628 . 5625) (* 1073741822.0 0) -> 0.0) ((2629 . 5625) (* 1073741822.0 1) -> 1073741822.0) ((2630 . 5625) (* 1073741822.0 2) -> 2147483644.0) ((2631 . 5625) (* 1073741823.0 -2) -> -2147483646.0) ((2632 . 5625) (* 1073741823.0 -1) -> -1073741823.0) ((2633 . 5625) (* 1073741823.0 0) -> 0.0) ((2634 . 5625) (* 1073741823.0 1) -> 1073741823.0) ((2635 . 5625) (* 1073741823.0 2) -> 2147483646.0) ((2636 . 5625) (* 1073741824.0 -2) -> -2147483648.0) ((2637 . 5625) (* 1073741824.0 -1) -> -1073741824.0) ((2638 . 5625) (* 1073741824.0 0) -> 0.0) ((2639 . 5625) (* 1073741824.0 1) -> 1073741824.0) ((2640 . 5625) (* 1073741824.0 2) -> 2147483648.0) ((2641 . 5625) (* 1073741825.0 -2) -> -2147483650.0) ((2642 . 5625) (* 1073741825.0 -1) -> -1073741825.0) ((2643 . 5625) (* 1073741825.0 0) -> 0.0) ((2644 . 5625) (* 1073741825.0 1) -> 1073741825.0) ((2645 . 5625) (* 1073741825.0 2) -> 2147483650.0) ((2646 . 5625) (* 1073741826.0 -2) -> -2147483652.0) ((2647 . 5625) (* 1073741826.0 -1) -> -1073741826.0) ((2648 . 5625) (* 1073741826.0 0) -> 0.0) ((2649 . 5625) (* 1073741826.0 1) -> 1073741826.0) ((2650 . 5625) (* 1073741826.0 2) -> 2147483652.0) ((2651 . 5625) (* 1073741822.0 -1) -> -1073741822.0) ((2652 . 5625) (* 1073741822.0 0) -> 0.0) ((2653 . 5625) (* 1073741822.0 1) -> 1073741822.0) ((2654 . 5625) (* 1073741822.0 2) -> 2147483644.0) ((2655 . 5625) (* 1073741822.0 3) -> 3221225466.0) ((2656 . 5625) (* 1073741823.0 -1) -> -1073741823.0) ((2657 . 5625) (* 1073741823.0 0) -> 0.0) ((2658 . 5625) (* 1073741823.0 1) -> 1073741823.0) ((2659 . 5625) (* 1073741823.0 2) -> 2147483646.0) ((2660 . 5625) (* 1073741823.0 3) -> 3221225469.0) ((2661 . 5625) (* 1073741824.0 -1) -> -1073741824.0) ((2662 . 5625) (* 1073741824.0 0) -> 0.0) ((2663 . 5625) (* 1073741824.0 1) -> 1073741824.0) ((2664 . 5625) (* 1073741824.0 2) -> 2147483648.0) ((2665 . 5625) (* 1073741824.0 3) -> 3221225472.0) ((2666 . 5625) (* 1073741825.0 -1) -> -1073741825.0) ((2667 . 5625) (* 1073741825.0 0) -> 0.0) ((2668 . 5625) (* 1073741825.0 1) -> 1073741825.0) ((2669 . 5625) (* 1073741825.0 2) -> 2147483650.0) ((2670 . 5625) (* 1073741825.0 3) -> 3221225475.0) ((2671 . 5625) (* 1073741826.0 -1) -> -1073741826.0) ((2672 . 5625) (* 1073741826.0 0) -> 0.0) ((2673 . 5625) (* 1073741826.0 1) -> 1073741826.0) ((2674 . 5625) (* 1073741826.0 2) -> 2147483652.0) ((2675 . 5625) (* 1073741826.0 3) -> 3221225478.0) ((2676 . 5625) (* 1073741822.0 -3) -> -3221225466.0) ((2677 . 5625) (* 1073741822.0 -2) -> -2147483644.0) ((2678 . 5625) (* 1073741822.0 -1) -> -1073741822.0) ((2679 . 5625) (* 1073741822.0 0) -> 0.0) ((2680 . 5625) (* 1073741822.0 1) -> 1073741822.0) ((2681 . 5625) (* 1073741823.0 -3) -> -3221225469.0) ((2682 . 5625) (* 1073741823.0 -2) -> -2147483646.0) ((2683 . 5625) (* 1073741823.0 -1) -> -1073741823.0) ((2684 . 5625) (* 1073741823.0 0) -> 0.0) ((2685 . 5625) (* 1073741823.0 1) -> 1073741823.0) ((2686 . 5625) (* 1073741824.0 -3) -> -3221225472.0) ((2687 . 5625) (* 1073741824.0 -2) -> -2147483648.0) ((2688 . 5625) (* 1073741824.0 -1) -> -1073741824.0) ((2689 . 5625) (* 1073741824.0 0) -> 0.0) ((2690 . 5625) (* 1073741824.0 1) -> 1073741824.0) ((2691 . 5625) (* 1073741825.0 -3) -> -3221225475.0) ((2692 . 5625) (* 1073741825.0 -2) -> -2147483650.0) ((2693 . 5625) (* 1073741825.0 -1) -> -1073741825.0) ((2694 . 5625) (* 1073741825.0 0) -> 0.0) ((2695 . 5625) (* 1073741825.0 1) -> 1073741825.0) ((2696 . 5625) (* 1073741826.0 -3) -> -3221225478.0) ((2697 . 5625) (* 1073741826.0 -2) -> -2147483652.0) ((2698 . 5625) (* 1073741826.0 -1) -> -1073741826.0) ((2699 . 5625) (* 1073741826.0 0) -> 0.0) ((2700 . 5625) (* 1073741826.0 1) -> 1073741826.0) ((2701 . 5625) (* 1073741822.0 0) -> 0.0) ((2702 . 5625) (* 1073741822.0 1) -> 1073741822.0) ((2703 . 5625) (* 1073741822.0 2) -> 2147483644.0) ((2704 . 5625) (* 1073741822.0 3) -> 3221225466.0) ((2705 . 5625) (* 1073741822.0 4) -> 4294967288.0) ((2706 . 5625) (* 1073741823.0 0) -> 0.0) ((2707 . 5625) (* 1073741823.0 1) -> 1073741823.0) ((2708 . 5625) (* 1073741823.0 2) -> 2147483646.0) ((2709 . 5625) (* 1073741823.0 3) -> 3221225469.0) ((2710 . 5625) (* 1073741823.0 4) -> 4294967292.0) ((2711 . 5625) (* 1073741824.0 0) -> 0.0) ((2712 . 5625) (* 1073741824.0 1) -> 1073741824.0) ((2713 . 5625) (* 1073741824.0 2) -> 2147483648.0) ((2714 . 5625) (* 1073741824.0 3) -> 3221225472.0) ((2715 . 5625) (* 1073741824.0 4) -> 4294967296.0) ((2716 . 5625) (* 1073741825.0 0) -> 0.0) ((2717 . 5625) (* 1073741825.0 1) -> 1073741825.0) ((2718 . 5625) (* 1073741825.0 2) -> 2147483650.0) ((2719 . 5625) (* 1073741825.0 3) -> 3221225475.0) ((2720 . 5625) (* 1073741825.0 4) -> 4294967300.0) ((2721 . 5625) (* 1073741826.0 0) -> 0.0) ((2722 . 5625) (* 1073741826.0 1) -> 1073741826.0) ((2723 . 5625) (* 1073741826.0 2) -> 2147483652.0) ((2724 . 5625) (* 1073741826.0 3) -> 3221225478.0) ((2725 . 5625) (* 1073741826.0 4) -> 4294967304.0) ((2726 . 5625) (* 1073741822.0 -4) -> -4294967288.0) ((2727 . 5625) (* 1073741822.0 -3) -> -3221225466.0) ((2728 . 5625) (* 1073741822.0 -2) -> -2147483644.0) ((2729 . 5625) (* 1073741822.0 -1) -> -1073741822.0) ((2730 . 5625) (* 1073741822.0 0) -> 0.0) ((2731 . 5625) (* 1073741823.0 -4) -> -4294967292.0) ((2732 . 5625) (* 1073741823.0 -3) -> -3221225469.0) ((2733 . 5625) (* 1073741823.0 -2) -> -2147483646.0) ((2734 . 5625) (* 1073741823.0 -1) -> -1073741823.0) ((2735 . 5625) (* 1073741823.0 0) -> 0.0) ((2736 . 5625) (* 1073741824.0 -4) -> -4294967296.0) ((2737 . 5625) (* 1073741824.0 -3) -> -3221225472.0) ((2738 . 5625) (* 1073741824.0 -2) -> -2147483648.0) ((2739 . 5625) (* 1073741824.0 -1) -> -1073741824.0) ((2740 . 5625) (* 1073741824.0 0) -> 0.0) ((2741 . 5625) (* 1073741825.0 -4) -> -4294967300.0) ((2742 . 5625) (* 1073741825.0 -3) -> -3221225475.0) ((2743 . 5625) (* 1073741825.0 -2) -> -2147483650.0) ((2744 . 5625) (* 1073741825.0 -1) -> -1073741825.0) ((2745 . 5625) (* 1073741825.0 0) -> 0.0) ((2746 . 5625) (* 1073741826.0 -4) -> -4294967304.0) ((2747 . 5625) (* 1073741826.0 -3) -> -3221225478.0) ((2748 . 5625) (* 1073741826.0 -2) -> -2147483652.0) ((2749 . 5625) (* 1073741826.0 -1) -> -1073741826.0) ((2750 . 5625) (* 1073741826.0 0) -> 0.0) ((2751 . 5625) (* 1073741822.0 1073741821) -> 1.15292149923814e+18) ((2752 . 5625) (* 1073741822.0 1073741822) -> 1.15292150031188e+18) ((2753 . 5625) (* 1073741822.0 1073741823) -> 1.15292150138562e+18) ((2754 . 5625) (* 1073741822.0 1073741824.0) -> 1.15292150245936e+18) ((2755 . 5625) (* 1073741822.0 1073741825.0) -> 1.15292150353311e+18) ((2756 . 5625) (* 1073741823.0 1073741821) -> 1.15292150031188e+18) ((2757 . 5625) (* 1073741823.0 1073741822) -> 1.15292150138562e+18) ((2758 . 5625) (* 1073741823.0 1073741823) -> 1.15292150245936e+18) ((2759 . 5625) (* 1073741823.0 1073741824.0) -> 1.15292150353311e+18) ((2760 . 5625) (* 1073741823.0 1073741825.0) -> 1.15292150460685e+18) ((2761 . 5625) (* 1073741824.0 1073741821) -> 1.15292150138562e+18) ((2762 . 5625) (* 1073741824.0 1073741822) -> 1.15292150245936e+18) ((2763 . 5625) (* 1073741824.0 1073741823) -> 1.15292150353311e+18) ((2764 . 5625) (* 1073741824.0 1073741824.0) -> 1.15292150460685e+18) ((2765 . 5625) (* 1073741824.0 1073741825.0) -> 1.15292150568059e+18) ((2766 . 5625) (* 1073741825.0 1073741821) -> 1.15292150245936e+18) ((2767 . 5625) (* 1073741825.0 1073741822) -> 1.15292150353311e+18) ((2768 . 5625) (* 1073741825.0 1073741823) -> 1.15292150460685e+18) ((2769 . 5625) (* 1073741825.0 1073741824.0) -> 1.15292150568059e+18) ((2770 . 5625) (* 1073741825.0 1073741825.0) -> 1.15292150675433e+18) ((2771 . 5625) (* 1073741826.0 1073741821) -> 1.15292150353311e+18) ((2772 . 5625) (* 1073741826.0 1073741822) -> 1.15292150460685e+18) ((2773 . 5625) (* 1073741826.0 1073741823) -> 1.15292150568059e+18) ((2774 . 5625) (* 1073741826.0 1073741824.0) -> 1.15292150675433e+18) ((2775 . 5625) (* 1073741826.0 1073741825.0) -> 1.15292150782807e+18) ((2776 . 5625) (* 1073741822.0 -1073741826.0) -> -1.15292150460685e+18) ((2777 . 5625) (* 1073741822.0 -1073741825.0) -> -1.15292150353311e+18) ((2778 . 5625) (* 1073741822.0 -1073741824) -> -1.15292150245936e+18) ((2779 . 5625) (* 1073741822.0 -1073741823) -> -1.15292150138562e+18) ((2780 . 5625) (* 1073741822.0 -1073741822) -> -1.15292150031188e+18) ((2781 . 5625) (* 1073741823.0 -1073741826.0) -> -1.15292150568059e+18) ((2782 . 5625) (* 1073741823.0 -1073741825.0) -> -1.15292150460685e+18) ((2783 . 5625) (* 1073741823.0 -1073741824) -> -1.15292150353311e+18) ((2784 . 5625) (* 1073741823.0 -1073741823) -> -1.15292150245936e+18) ((2785 . 5625) (* 1073741823.0 -1073741822) -> -1.15292150138562e+18) ((2786 . 5625) (* 1073741824.0 -1073741826.0) -> -1.15292150675433e+18) ((2787 . 5625) (* 1073741824.0 -1073741825.0) -> -1.15292150568059e+18) ((2788 . 5625) (* 1073741824.0 -1073741824) -> -1.15292150460685e+18) ((2789 . 5625) (* 1073741824.0 -1073741823) -> -1.15292150353311e+18) ((2790 . 5625) (* 1073741824.0 -1073741822) -> -1.15292150245936e+18) ((2791 . 5625) (* 1073741825.0 -1073741826.0) -> -1.15292150782807e+18) ((2792 . 5625) (* 1073741825.0 -1073741825.0) -> -1.15292150675433e+18) ((2793 . 5625) (* 1073741825.0 -1073741824) -> -1.15292150568059e+18) ((2794 . 5625) (* 1073741825.0 -1073741823) -> -1.15292150460685e+18) ((2795 . 5625) (* 1073741825.0 -1073741822) -> -1.15292150353311e+18) ((2796 . 5625) (* 1073741826.0 -1073741826.0) -> -1.15292150890181e+18) ((2797 . 5625) (* 1073741826.0 -1073741825.0) -> -1.15292150782807e+18) ((2798 . 5625) (* 1073741826.0 -1073741824) -> -1.15292150675433e+18) ((2799 . 5625) (* 1073741826.0 -1073741823) -> -1.15292150568059e+18) ((2800 . 5625) (* 1073741826.0 -1073741822) -> -1.15292150460685e+18) ((2801 . 5625) (* 1073741822.0 1073741822.0) -> 1.15292150031188e+18) ((2802 . 5625) (* 1073741822.0 1073741823.0) -> 1.15292150138562e+18) ((2803 . 5625) (* 1073741822.0 1073741824.0) -> 1.15292150245936e+18) ((2804 . 5625) (* 1073741822.0 1073741825.0) -> 1.15292150353311e+18) ((2805 . 5625) (* 1073741822.0 1073741826.0) -> 1.15292150460685e+18) ((2806 . 5625) (* 1073741823.0 1073741822.0) -> 1.15292150138562e+18) ((2807 . 5625) (* 1073741823.0 1073741823.0) -> 1.15292150245936e+18) ((2808 . 5625) (* 1073741823.0 1073741824.0) -> 1.15292150353311e+18) ((2809 . 5625) (* 1073741823.0 1073741825.0) -> 1.15292150460685e+18) ((2810 . 5625) (* 1073741823.0 1073741826.0) -> 1.15292150568059e+18) ((2811 . 5625) (* 1073741824.0 1073741822.0) -> 1.15292150245936e+18) ((2812 . 5625) (* 1073741824.0 1073741823.0) -> 1.15292150353311e+18) ((2813 . 5625) (* 1073741824.0 1073741824.0) -> 1.15292150460685e+18) ((2814 . 5625) (* 1073741824.0 1073741825.0) -> 1.15292150568059e+18) ((2815 . 5625) (* 1073741824.0 1073741826.0) -> 1.15292150675433e+18) ((2816 . 5625) (* 1073741825.0 1073741822.0) -> 1.15292150353311e+18) ((2817 . 5625) (* 1073741825.0 1073741823.0) -> 1.15292150460685e+18) ((2818 . 5625) (* 1073741825.0 1073741824.0) -> 1.15292150568059e+18) ((2819 . 5625) (* 1073741825.0 1073741825.0) -> 1.15292150675433e+18) ((2820 . 5625) (* 1073741825.0 1073741826.0) -> 1.15292150782807e+18) ((2821 . 5625) (* 1073741826.0 1073741822.0) -> 1.15292150460685e+18) ((2822 . 5625) (* 1073741826.0 1073741823.0) -> 1.15292150568059e+18) ((2823 . 5625) (* 1073741826.0 1073741824.0) -> 1.15292150675433e+18) ((2824 . 5625) (* 1073741826.0 1073741825.0) -> 1.15292150782807e+18) ((2825 . 5625) (* 1073741826.0 1073741826.0) -> 1.15292150890181e+18) ((2826 . 5625) (* 1073741822.0 -1073741827.0) -> -1.15292150568059e+18) ((2827 . 5625) (* 1073741822.0 -1073741826.0) -> -1.15292150460685e+18) ((2828 . 5625) (* 1073741822.0 -1073741825.0) -> -1.15292150353311e+18) ((2829 . 5625) (* 1073741822.0 -1073741824.0) -> -1.15292150245936e+18) ((2830 . 5625) (* 1073741822.0 -1073741823.0) -> -1.15292150138562e+18) ((2831 . 5625) (* 1073741823.0 -1073741827.0) -> -1.15292150675433e+18) ((2832 . 5625) (* 1073741823.0 -1073741826.0) -> -1.15292150568059e+18) ((2833 . 5625) (* 1073741823.0 -1073741825.0) -> -1.15292150460685e+18) ((2834 . 5625) (* 1073741823.0 -1073741824.0) -> -1.15292150353311e+18) ((2835 . 5625) (* 1073741823.0 -1073741823.0) -> -1.15292150245936e+18) ((2836 . 5625) (* 1073741824.0 -1073741827.0) -> -1.15292150782807e+18) ((2837 . 5625) (* 1073741824.0 -1073741826.0) -> -1.15292150675433e+18) ((2838 . 5625) (* 1073741824.0 -1073741825.0) -> -1.15292150568059e+18) ((2839 . 5625) (* 1073741824.0 -1073741824.0) -> -1.15292150460685e+18) ((2840 . 5625) (* 1073741824.0 -1073741823.0) -> -1.15292150353311e+18) ((2841 . 5625) (* 1073741825.0 -1073741827.0) -> -1.15292150890181e+18) ((2842 . 5625) (* 1073741825.0 -1073741826.0) -> -1.15292150782807e+18) ((2843 . 5625) (* 1073741825.0 -1073741825.0) -> -1.15292150675433e+18) ((2844 . 5625) (* 1073741825.0 -1073741824.0) -> -1.15292150568059e+18) ((2845 . 5625) (* 1073741825.0 -1073741823.0) -> -1.15292150460685e+18) ((2846 . 5625) (* 1073741826.0 -1073741827.0) -> -1.15292150997556e+18) ((2847 . 5625) (* 1073741826.0 -1073741826.0) -> -1.15292150890181e+18) ((2848 . 5625) (* 1073741826.0 -1073741825.0) -> -1.15292150782807e+18) ((2849 . 5625) (* 1073741826.0 -1073741824.0) -> -1.15292150675433e+18) ((2850 . 5625) (* 1073741826.0 -1073741823.0) -> -1.15292150568059e+18) ((2851 . 5625) (* 1073741822.0 1103515243.0) -> 1.18489046762359e+18) ((2852 . 5625) (* 1073741822.0 1103515244.0) -> 1.18489046869733e+18) ((2853 . 5625) (* 1073741822.0 1103515245.0) -> 1.18489046977108e+18) ((2854 . 5625) (* 1073741822.0 1103515246.0) -> 1.18489047084482e+18) ((2855 . 5625) (* 1073741822.0 1103515247.0) -> 1.18489047191856e+18) ((2856 . 5625) (* 1073741823.0 1103515243.0) -> 1.18489046872711e+18) ((2857 . 5625) (* 1073741823.0 1103515244.0) -> 1.18489046980085e+18) ((2858 . 5625) (* 1073741823.0 1103515245.0) -> 1.18489047087459e+18) ((2859 . 5625) (* 1073741823.0 1103515246.0) -> 1.18489047194833e+18) ((2860 . 5625) (* 1073741823.0 1103515247.0) -> 1.18489047302208e+18) ((2861 . 5625) (* 1073741824.0 1103515243.0) -> 1.18489046983062e+18) ((2862 . 5625) (* 1073741824.0 1103515244.0) -> 1.18489047090437e+18) ((2863 . 5625) (* 1073741824.0 1103515245.0) -> 1.18489047197811e+18) ((2864 . 5625) (* 1073741824.0 1103515246.0) -> 1.18489047305185e+18) ((2865 . 5625) (* 1073741824.0 1103515247.0) -> 1.18489047412559e+18) ((2866 . 5625) (* 1073741825.0 1103515243.0) -> 1.18489047093414e+18) ((2867 . 5625) (* 1073741825.0 1103515244.0) -> 1.18489047200788e+18) ((2868 . 5625) (* 1073741825.0 1103515245.0) -> 1.18489047308162e+18) ((2869 . 5625) (* 1073741825.0 1103515246.0) -> 1.18489047415536e+18) ((2870 . 5625) (* 1073741825.0 1103515247.0) -> 1.18489047522911e+18) ((2871 . 5625) (* 1073741826.0 1103515243.0) -> 1.18489047203765e+18) ((2872 . 5625) (* 1073741826.0 1103515244.0) -> 1.1848904731114e+18) ((2873 . 5625) (* 1073741826.0 1103515245.0) -> 1.18489047418514e+18) ((2874 . 5625) (* 1073741826.0 1103515246.0) -> 1.18489047525888e+18) ((2875 . 5625) (* 1073741826.0 1103515247.0) -> 1.18489047633262e+18) ((2876 . 5625) (* 1073741822.0 631629063) -> 6.78206540933773e+17) ((2877 . 5625) (* 1073741822.0 631629064) -> 6.78206542007515e+17) ((2878 . 5625) (* 1073741822.0 631629065) -> 6.78206543081256e+17) ((2879 . 5625) (* 1073741822.0 631629066) -> 6.78206544154998e+17) ((2880 . 5625) (* 1073741822.0 631629067) -> 6.7820654522874e+17) ((2881 . 5625) (* 1073741823.0 631629063) -> 6.78206541565402e+17) ((2882 . 5625) (* 1073741823.0 631629064) -> 6.78206542639144e+17) ((2883 . 5625) (* 1073741823.0 631629065) -> 6.78206543712886e+17) ((2884 . 5625) (* 1073741823.0 631629066) -> 6.78206544786627e+17) ((2885 . 5625) (* 1073741823.0 631629067) -> 6.78206545860369e+17) ((2886 . 5625) (* 1073741824.0 631629063) -> 6.78206542197031e+17) ((2887 . 5625) (* 1073741824.0 631629064) -> 6.78206543270773e+17) ((2888 . 5625) (* 1073741824.0 631629065) -> 6.78206544344515e+17) ((2889 . 5625) (* 1073741824.0 631629066) -> 6.78206545418256e+17) ((2890 . 5625) (* 1073741824.0 631629067) -> 6.78206546491998e+17) ((2891 . 5625) (* 1073741825.0 631629063) -> 6.7820654282866e+17) ((2892 . 5625) (* 1073741825.0 631629064) -> 6.78206543902402e+17) ((2893 . 5625) (* 1073741825.0 631629065) -> 6.78206544976144e+17) ((2894 . 5625) (* 1073741825.0 631629066) -> 6.78206546049885e+17) ((2895 . 5625) (* 1073741825.0 631629067) -> 6.78206547123627e+17) ((2896 . 5625) (* 1073741826.0 631629063) -> 6.78206543460289e+17) ((2897 . 5625) (* 1073741826.0 631629064) -> 6.78206544534031e+17) ((2898 . 5625) (* 1073741826.0 631629065) -> 6.78206545607773e+17) ((2899 . 5625) (* 1073741826.0 631629066) -> 6.78206546681514e+17) ((2900 . 5625) (* 1073741826.0 631629067) -> 6.78206547755256e+17) ((2901 . 5625) (* 1073741822.0 9.00719925474099e+15) -> 9.67140653890263e+24) ((2902 . 5625) (* 1073741822.0 9.00719925474099e+15) -> 9.67140653890263e+24) ((2903 . 5625) (* 1073741822.0 9.00719925474099e+15) -> 9.67140653890263e+24) ((2904 . 5625) (* 1073741822.0 9.00719925474099e+15) -> 9.67140653890263e+24) ((2905 . 5625) (* 1073741822.0 9.00719925474099e+15) -> 9.67140653890264e+24) ((2906 . 5625) (* 1073741823.0 9.00719925474099e+15) -> 9.67140654790983e+24) ((2907 . 5625) (* 1073741823.0 9.00719925474099e+15) -> 9.67140654790983e+24) ((2908 . 5625) (* 1073741823.0 9.00719925474099e+15) -> 9.67140654790983e+24) ((2909 . 5625) (* 1073741823.0 9.00719925474099e+15) -> 9.67140654790983e+24) ((2910 . 5625) (* 1073741823.0 9.00719925474099e+15) -> 9.67140654790984e+24) ((2911 . 5625) (* 1073741824.0 9.00719925474099e+15) -> 9.67140655691703e+24) ((2912 . 5625) (* 1073741824.0 9.00719925474099e+15) -> 9.67140655691703e+24) ((2913 . 5625) (* 1073741824.0 9.00719925474099e+15) -> 9.67140655691703e+24) ((2914 . 5625) (* 1073741824.0 9.00719925474099e+15) -> 9.67140655691703e+24) ((2915 . 5625) (* 1073741824.0 9.00719925474099e+15) -> 9.67140655691704e+24) ((2916 . 5625) (* 1073741825.0 9.00719925474099e+15) -> 9.67140656592423e+24) ((2917 . 5625) (* 1073741825.0 9.00719925474099e+15) -> 9.67140656592423e+24) ((2918 . 5625) (* 1073741825.0 9.00719925474099e+15) -> 9.67140656592423e+24) ((2919 . 5625) (* 1073741825.0 9.00719925474099e+15) -> 9.67140656592423e+24) ((2920 . 5625) (* 1073741825.0 9.00719925474099e+15) -> 9.67140656592423e+24) ((2921 . 5625) (* 1073741826.0 9.00719925474099e+15) -> 9.67140657493143e+24) ((2922 . 5625) (* 1073741826.0 9.00719925474099e+15) -> 9.67140657493143e+24) ((2923 . 5625) (* 1073741826.0 9.00719925474099e+15) -> 9.67140657493143e+24) ((2924 . 5625) (* 1073741826.0 9.00719925474099e+15) -> 9.67140657493143e+24) ((2925 . 5625) (* 1073741826.0 9.00719925474099e+15) -> 9.67140657493143e+24) ((2926 . 5625) (* 1073741822.0 -9.00719925474099e+15) -> -9.67140653890264e+24) ((2927 . 5625) (* 1073741822.0 -9.00719925474099e+15) -> -9.67140653890263e+24) ((2928 . 5625) (* 1073741822.0 -9.00719925474099e+15) -> -9.67140653890263e+24) ((2929 . 5625) (* 1073741822.0 -9.00719925474099e+15) -> -9.67140653890263e+24) ((2930 . 5625) (* 1073741822.0 -9.00719925474099e+15) -> -9.67140653890263e+24) ((2931 . 5625) (* 1073741823.0 -9.00719925474099e+15) -> -9.67140654790984e+24) ((2932 . 5625) (* 1073741823.0 -9.00719925474099e+15) -> -9.67140654790983e+24) ((2933 . 5625) (* 1073741823.0 -9.00719925474099e+15) -> -9.67140654790983e+24) ((2934 . 5625) (* 1073741823.0 -9.00719925474099e+15) -> -9.67140654790983e+24) ((2935 . 5625) (* 1073741823.0 -9.00719925474099e+15) -> -9.67140654790983e+24) ((2936 . 5625) (* 1073741824.0 -9.00719925474099e+15) -> -9.67140655691704e+24) ((2937 . 5625) (* 1073741824.0 -9.00719925474099e+15) -> -9.67140655691703e+24) ((2938 . 5625) (* 1073741824.0 -9.00719925474099e+15) -> -9.67140655691703e+24) ((2939 . 5625) (* 1073741824.0 -9.00719925474099e+15) -> -9.67140655691703e+24) ((2940 . 5625) (* 1073741824.0 -9.00719925474099e+15) -> -9.67140655691703e+24) ((2941 . 5625) (* 1073741825.0 -9.00719925474099e+15) -> -9.67140656592423e+24) ((2942 . 5625) (* 1073741825.0 -9.00719925474099e+15) -> -9.67140656592423e+24) ((2943 . 5625) (* 1073741825.0 -9.00719925474099e+15) -> -9.67140656592423e+24) ((2944 . 5625) (* 1073741825.0 -9.00719925474099e+15) -> -9.67140656592423e+24) ((2945 . 5625) (* 1073741825.0 -9.00719925474099e+15) -> -9.67140656592423e+24) ((2946 . 5625) (* 1073741826.0 -9.00719925474099e+15) -> -9.67140657493143e+24) ((2947 . 5625) (* 1073741826.0 -9.00719925474099e+15) -> -9.67140657493143e+24) ((2948 . 5625) (* 1073741826.0 -9.00719925474099e+15) -> -9.67140657493143e+24) ((2949 . 5625) (* 1073741826.0 -9.00719925474099e+15) -> -9.67140657493143e+24) ((2950 . 5625) (* 1073741826.0 -9.00719925474099e+15) -> -9.67140657493143e+24) ((2951 . 5625) (* 1073741822.0 12343) -> 13253195308946.0) ((2952 . 5625) (* 1073741822.0 12344) -> 13254269050768.0) ((2953 . 5625) (* 1073741822.0 12345) -> 13255342792590.0) ((2954 . 5625) (* 1073741822.0 12346) -> 13256416534412.0) ((2955 . 5625) (* 1073741822.0 12347) -> 13257490276234.0) ((2956 . 5625) (* 1073741823.0 12343) -> 13253195321289.0) ((2957 . 5625) (* 1073741823.0 12344) -> 13254269063112.0) ((2958 . 5625) (* 1073741823.0 12345) -> 13255342804935.0) ((2959 . 5625) (* 1073741823.0 12346) -> 13256416546758.0) ((2960 . 5625) (* 1073741823.0 12347) -> 13257490288581.0) ((2961 . 5625) (* 1073741824.0 12343) -> 13253195333632.0) ((2962 . 5625) (* 1073741824.0 12344) -> 13254269075456.0) ((2963 . 5625) (* 1073741824.0 12345) -> 13255342817280.0) ((2964 . 5625) (* 1073741824.0 12346) -> 13256416559104.0) ((2965 . 5625) (* 1073741824.0 12347) -> 13257490300928.0) ((2966 . 5625) (* 1073741825.0 12343) -> 13253195345975.0) ((2967 . 5625) (* 1073741825.0 12344) -> 13254269087800.0) ((2968 . 5625) (* 1073741825.0 12345) -> 13255342829625.0) ((2969 . 5625) (* 1073741825.0 12346) -> 13256416571450.0) ((2970 . 5625) (* 1073741825.0 12347) -> 13257490313275.0) ((2971 . 5625) (* 1073741826.0 12343) -> 13253195358318.0) ((2972 . 5625) (* 1073741826.0 12344) -> 13254269100144.0) ((2973 . 5625) (* 1073741826.0 12345) -> 13255342841970.0) ((2974 . 5625) (* 1073741826.0 12346) -> 13256416583796.0) ((2975 . 5625) (* 1073741826.0 12347) -> 13257490325622.0) ((2976 . 5625) (* 1073741822.0 4294967294.0) -> 4.61168600768997e+18) ((2977 . 5625) (* 1073741822.0 4294967295.0) -> 4.61168600876371e+18) ((2978 . 5625) (* 1073741822.0 4294967296.0) -> 4.61168600983745e+18) ((2979 . 5625) (* 1073741822.0 4294967297.0) -> 4.6116860109112e+18) ((2980 . 5625) (* 1073741822.0 4294967298.0) -> 4.61168601198494e+18) ((2981 . 5625) (* 1073741823.0 4294967294.0) -> 4.61168601198494e+18) ((2982 . 5625) (* 1073741823.0 4294967295.0) -> 4.61168601305868e+18) ((2983 . 5625) (* 1073741823.0 4294967296.0) -> 4.61168601413242e+18) ((2984 . 5625) (* 1073741823.0 4294967297.0) -> 4.61168601520616e+18) ((2985 . 5625) (* 1073741823.0 4294967298.0) -> 4.6116860162799e+18) ((2986 . 5625) (* 1073741824.0 4294967294.0) -> 4.6116860162799e+18) ((2987 . 5625) (* 1073741824.0 4294967295.0) -> 4.61168601735365e+18) ((2988 . 5625) (* 1073741824.0 4294967296.0) -> 4.61168601842739e+18) ((2989 . 5625) (* 1073741824.0 4294967297.0) -> 4.61168601950113e+18) ((2990 . 5625) (* 1073741824.0 4294967298.0) -> 4.61168602057487e+18) ((2991 . 5625) (* 1073741825.0 4294967294.0) -> 4.61168602057487e+18) ((2992 . 5625) (* 1073741825.0 4294967295.0) -> 4.61168602164861e+18) ((2993 . 5625) (* 1073741825.0 4294967296.0) -> 4.61168602272236e+18) ((2994 . 5625) (* 1073741825.0 4294967297.0) -> 4.6116860237961e+18) ((2995 . 5625) (* 1073741825.0 4294967298.0) -> 4.61168602486984e+18) ((2996 . 5625) (* 1073741826.0 4294967294.0) -> 4.61168602486984e+18) ((2997 . 5625) (* 1073741826.0 4294967295.0) -> 4.61168602594358e+18) ((2998 . 5625) (* 1073741826.0 4294967296.0) -> 4.61168602701732e+18) ((2999 . 5625) (* 1073741826.0 4294967297.0) -> 4.61168602809106e+18) ((3000 . 5625) (* 1073741826.0 4294967298.0) -> 4.61168602916481e+18) ((3001 . 5625) (* -1073741827.0 -2) -> 2147483654.0) ((3002 . 5625) (* -1073741827.0 -1) -> 1073741827.0) ((3003 . 5625) (* -1073741827.0 0) -> -0.0) ((3004 . 5625) (* -1073741827.0 1) -> -1073741827.0) ((3005 . 5625) (* -1073741827.0 2) -> -2147483654.0) ((3006 . 5625) (* -1073741826.0 -2) -> 2147483652.0) ((3007 . 5625) (* -1073741826.0 -1) -> 1073741826.0) ((3008 . 5625) (* -1073741826.0 0) -> -0.0) ((3009 . 5625) (* -1073741826.0 1) -> -1073741826.0) ((3010 . 5625) (* -1073741826.0 2) -> -2147483652.0) ((3011 . 5625) (* -1073741825.0 -2) -> 2147483650.0) ((3012 . 5625) (* -1073741825.0 -1) -> 1073741825.0) ((3013 . 5625) (* -1073741825.0 0) -> -0.0) ((3014 . 5625) (* -1073741825.0 1) -> -1073741825.0) ((3015 . 5625) (* -1073741825.0 2) -> -2147483650.0) ((3016 . 5625) (* -1073741824.0 -2) -> 2147483648.0) ((3017 . 5625) (* -1073741824.0 -1) -> 1073741824.0) ((3018 . 5625) (* -1073741824.0 0) -> -0.0) ((3019 . 5625) (* -1073741824.0 1) -> -1073741824.0) ((3020 . 5625) (* -1073741824.0 2) -> -2147483648.0) ((3021 . 5625) (* -1073741823.0 -2) -> 2147483646.0) ((3022 . 5625) (* -1073741823.0 -1) -> 1073741823.0) ((3023 . 5625) (* -1073741823.0 0) -> -0.0) ((3024 . 5625) (* -1073741823.0 1) -> -1073741823.0) ((3025 . 5625) (* -1073741823.0 2) -> -2147483646.0) ((3026 . 5625) (* -1073741827.0 -1) -> 1073741827.0) ((3027 . 5625) (* -1073741827.0 0) -> -0.0) ((3028 . 5625) (* -1073741827.0 1) -> -1073741827.0) ((3029 . 5625) (* -1073741827.0 2) -> -2147483654.0) ((3030 . 5625) (* -1073741827.0 3) -> -3221225481.0) ((3031 . 5625) (* -1073741826.0 -1) -> 1073741826.0) ((3032 . 5625) (* -1073741826.0 0) -> -0.0) ((3033 . 5625) (* -1073741826.0 1) -> -1073741826.0) ((3034 . 5625) (* -1073741826.0 2) -> -2147483652.0) ((3035 . 5625) (* -1073741826.0 3) -> -3221225478.0) ((3036 . 5625) (* -1073741825.0 -1) -> 1073741825.0) ((3037 . 5625) (* -1073741825.0 0) -> -0.0) ((3038 . 5625) (* -1073741825.0 1) -> -1073741825.0) ((3039 . 5625) (* -1073741825.0 2) -> -2147483650.0) ((3040 . 5625) (* -1073741825.0 3) -> -3221225475.0) ((3041 . 5625) (* -1073741824.0 -1) -> 1073741824.0) ((3042 . 5625) (* -1073741824.0 0) -> -0.0) ((3043 . 5625) (* -1073741824.0 1) -> -1073741824.0) ((3044 . 5625) (* -1073741824.0 2) -> -2147483648.0) ((3045 . 5625) (* -1073741824.0 3) -> -3221225472.0) ((3046 . 5625) (* -1073741823.0 -1) -> 1073741823.0) ((3047 . 5625) (* -1073741823.0 0) -> -0.0) ((3048 . 5625) (* -1073741823.0 1) -> -1073741823.0) ((3049 . 5625) (* -1073741823.0 2) -> -2147483646.0) ((3050 . 5625) (* -1073741823.0 3) -> -3221225469.0) ((3051 . 5625) (* -1073741827.0 -3) -> 3221225481.0) ((3052 . 5625) (* -1073741827.0 -2) -> 2147483654.0) ((3053 . 5625) (* -1073741827.0 -1) -> 1073741827.0) ((3054 . 5625) (* -1073741827.0 0) -> -0.0) ((3055 . 5625) (* -1073741827.0 1) -> -1073741827.0) ((3056 . 5625) (* -1073741826.0 -3) -> 3221225478.0) ((3057 . 5625) (* -1073741826.0 -2) -> 2147483652.0) ((3058 . 5625) (* -1073741826.0 -1) -> 1073741826.0) ((3059 . 5625) (* -1073741826.0 0) -> -0.0) ((3060 . 5625) (* -1073741826.0 1) -> -1073741826.0) ((3061 . 5625) (* -1073741825.0 -3) -> 3221225475.0) ((3062 . 5625) (* -1073741825.0 -2) -> 2147483650.0) ((3063 . 5625) (* -1073741825.0 -1) -> 1073741825.0) ((3064 . 5625) (* -1073741825.0 0) -> -0.0) ((3065 . 5625) (* -1073741825.0 1) -> -1073741825.0) ((3066 . 5625) (* -1073741824.0 -3) -> 3221225472.0) ((3067 . 5625) (* -1073741824.0 -2) -> 2147483648.0) ((3068 . 5625) (* -1073741824.0 -1) -> 1073741824.0) ((3069 . 5625) (* -1073741824.0 0) -> -0.0) ((3070 . 5625) (* -1073741824.0 1) -> -1073741824.0) ((3071 . 5625) (* -1073741823.0 -3) -> 3221225469.0) ((3072 . 5625) (* -1073741823.0 -2) -> 2147483646.0) ((3073 . 5625) (* -1073741823.0 -1) -> 1073741823.0) ((3074 . 5625) (* -1073741823.0 0) -> -0.0) ((3075 . 5625) (* -1073741823.0 1) -> -1073741823.0) ((3076 . 5625) (* -1073741827.0 0) -> -0.0) ((3077 . 5625) (* -1073741827.0 1) -> -1073741827.0) ((3078 . 5625) (* -1073741827.0 2) -> -2147483654.0) ((3079 . 5625) (* -1073741827.0 3) -> -3221225481.0) ((3080 . 5625) (* -1073741827.0 4) -> -4294967308.0) ((3081 . 5625) (* -1073741826.0 0) -> -0.0) ((3082 . 5625) (* -1073741826.0 1) -> -1073741826.0) ((3083 . 5625) (* -1073741826.0 2) -> -2147483652.0) ((3084 . 5625) (* -1073741826.0 3) -> -3221225478.0) ((3085 . 5625) (* -1073741826.0 4) -> -4294967304.0) ((3086 . 5625) (* -1073741825.0 0) -> -0.0) ((3087 . 5625) (* -1073741825.0 1) -> -1073741825.0) ((3088 . 5625) (* -1073741825.0 2) -> -2147483650.0) ((3089 . 5625) (* -1073741825.0 3) -> -3221225475.0) ((3090 . 5625) (* -1073741825.0 4) -> -4294967300.0) ((3091 . 5625) (* -1073741824.0 0) -> -0.0) ((3092 . 5625) (* -1073741824.0 1) -> -1073741824.0) ((3093 . 5625) (* -1073741824.0 2) -> -2147483648.0) ((3094 . 5625) (* -1073741824.0 3) -> -3221225472.0) ((3095 . 5625) (* -1073741824.0 4) -> -4294967296.0) ((3096 . 5625) (* -1073741823.0 0) -> -0.0) ((3097 . 5625) (* -1073741823.0 1) -> -1073741823.0) ((3098 . 5625) (* -1073741823.0 2) -> -2147483646.0) ((3099 . 5625) (* -1073741823.0 3) -> -3221225469.0) ((3100 . 5625) (* -1073741823.0 4) -> -4294967292.0) ((3101 . 5625) (* -1073741827.0 -4) -> 4294967308.0) ((3102 . 5625) (* -1073741827.0 -3) -> 3221225481.0) ((3103 . 5625) (* -1073741827.0 -2) -> 2147483654.0) ((3104 . 5625) (* -1073741827.0 -1) -> 1073741827.0) ((3105 . 5625) (* -1073741827.0 0) -> -0.0) ((3106 . 5625) (* -1073741826.0 -4) -> 4294967304.0) ((3107 . 5625) (* -1073741826.0 -3) -> 3221225478.0) ((3108 . 5625) (* -1073741826.0 -2) -> 2147483652.0) ((3109 . 5625) (* -1073741826.0 -1) -> 1073741826.0) ((3110 . 5625) (* -1073741826.0 0) -> -0.0) ((3111 . 5625) (* -1073741825.0 -4) -> 4294967300.0) ((3112 . 5625) (* -1073741825.0 -3) -> 3221225475.0) ((3113 . 5625) (* -1073741825.0 -2) -> 2147483650.0) ((3114 . 5625) (* -1073741825.0 -1) -> 1073741825.0) ((3115 . 5625) (* -1073741825.0 0) -> -0.0) ((3116 . 5625) (* -1073741824.0 -4) -> 4294967296.0) ((3117 . 5625) (* -1073741824.0 -3) -> 3221225472.0) ((3118 . 5625) (* -1073741824.0 -2) -> 2147483648.0) ((3119 . 5625) (* -1073741824.0 -1) -> 1073741824.0) ((3120 . 5625) (* -1073741824.0 0) -> -0.0) ((3121 . 5625) (* -1073741823.0 -4) -> 4294967292.0) ((3122 . 5625) (* -1073741823.0 -3) -> 3221225469.0) ((3123 . 5625) (* -1073741823.0 -2) -> 2147483646.0) ((3124 . 5625) (* -1073741823.0 -1) -> 1073741823.0) ((3125 . 5625) (* -1073741823.0 0) -> -0.0) ((3126 . 5625) (* -1073741827.0 1073741821) -> -1.15292150460685e+18) ((3127 . 5625) (* -1073741827.0 1073741822) -> -1.15292150568059e+18) ((3128 . 5625) (* -1073741827.0 1073741823) -> -1.15292150675433e+18) ((3129 . 5625) (* -1073741827.0 1073741824.0) -> -1.15292150782807e+18) ((3130 . 5625) (* -1073741827.0 1073741825.0) -> -1.15292150890181e+18) ((3131 . 5625) (* -1073741826.0 1073741821) -> -1.15292150353311e+18) ((3132 . 5625) (* -1073741826.0 1073741822) -> -1.15292150460685e+18) ((3133 . 5625) (* -1073741826.0 1073741823) -> -1.15292150568059e+18) ((3134 . 5625) (* -1073741826.0 1073741824.0) -> -1.15292150675433e+18) ((3135 . 5625) (* -1073741826.0 1073741825.0) -> -1.15292150782807e+18) ((3136 . 5625) (* -1073741825.0 1073741821) -> -1.15292150245936e+18) ((3137 . 5625) (* -1073741825.0 1073741822) -> -1.15292150353311e+18) ((3138 . 5625) (* -1073741825.0 1073741823) -> -1.15292150460685e+18) ((3139 . 5625) (* -1073741825.0 1073741824.0) -> -1.15292150568059e+18) ((3140 . 5625) (* -1073741825.0 1073741825.0) -> -1.15292150675433e+18) ((3141 . 5625) (* -1073741824.0 1073741821) -> -1.15292150138562e+18) ((3142 . 5625) (* -1073741824.0 1073741822) -> -1.15292150245936e+18) ((3143 . 5625) (* -1073741824.0 1073741823) -> -1.15292150353311e+18) ((3144 . 5625) (* -1073741824.0 1073741824.0) -> -1.15292150460685e+18) ((3145 . 5625) (* -1073741824.0 1073741825.0) -> -1.15292150568059e+18) ((3146 . 5625) (* -1073741823.0 1073741821) -> -1.15292150031188e+18) ((3147 . 5625) (* -1073741823.0 1073741822) -> -1.15292150138562e+18) ((3148 . 5625) (* -1073741823.0 1073741823) -> -1.15292150245936e+18) ((3149 . 5625) (* -1073741823.0 1073741824.0) -> -1.15292150353311e+18) ((3150 . 5625) (* -1073741823.0 1073741825.0) -> -1.15292150460685e+18) ((3151 . 5625) (* -1073741827.0 -1073741826.0) -> 1.15292150997556e+18) ((3152 . 5625) (* -1073741827.0 -1073741825.0) -> 1.15292150890181e+18) ((3153 . 5625) (* -1073741827.0 -1073741824) -> 1.15292150782807e+18) ((3154 . 5625) (* -1073741827.0 -1073741823) -> 1.15292150675433e+18) ((3155 . 5625) (* -1073741827.0 -1073741822) -> 1.15292150568059e+18) ((3156 . 5625) (* -1073741826.0 -1073741826.0) -> 1.15292150890181e+18) ((3157 . 5625) (* -1073741826.0 -1073741825.0) -> 1.15292150782807e+18) ((3158 . 5625) (* -1073741826.0 -1073741824) -> 1.15292150675433e+18) ((3159 . 5625) (* -1073741826.0 -1073741823) -> 1.15292150568059e+18) ((3160 . 5625) (* -1073741826.0 -1073741822) -> 1.15292150460685e+18) ((3161 . 5625) (* -1073741825.0 -1073741826.0) -> 1.15292150782807e+18) ((3162 . 5625) (* -1073741825.0 -1073741825.0) -> 1.15292150675433e+18) ((3163 . 5625) (* -1073741825.0 -1073741824) -> 1.15292150568059e+18) ((3164 . 5625) (* -1073741825.0 -1073741823) -> 1.15292150460685e+18) ((3165 . 5625) (* -1073741825.0 -1073741822) -> 1.15292150353311e+18) ((3166 . 5625) (* -1073741824.0 -1073741826.0) -> 1.15292150675433e+18) ((3167 . 5625) (* -1073741824.0 -1073741825.0) -> 1.15292150568059e+18) ((3168 . 5625) (* -1073741824.0 -1073741824) -> 1.15292150460685e+18) ((3169 . 5625) (* -1073741824.0 -1073741823) -> 1.15292150353311e+18) ((3170 . 5625) (* -1073741824.0 -1073741822) -> 1.15292150245936e+18) ((3171 . 5625) (* -1073741823.0 -1073741826.0) -> 1.15292150568059e+18) ((3172 . 5625) (* -1073741823.0 -1073741825.0) -> 1.15292150460685e+18) ((3173 . 5625) (* -1073741823.0 -1073741824) -> 1.15292150353311e+18) ((3174 . 5625) (* -1073741823.0 -1073741823) -> 1.15292150245936e+18) ((3175 . 5625) (* -1073741823.0 -1073741822) -> 1.15292150138562e+18) ((3176 . 5625) (* -1073741827.0 1073741822.0) -> -1.15292150568059e+18) ((3177 . 5625) (* -1073741827.0 1073741823.0) -> -1.15292150675433e+18) ((3178 . 5625) (* -1073741827.0 1073741824.0) -> -1.15292150782807e+18) ((3179 . 5625) (* -1073741827.0 1073741825.0) -> -1.15292150890181e+18) ((3180 . 5625) (* -1073741827.0 1073741826.0) -> -1.15292150997556e+18) ((3181 . 5625) (* -1073741826.0 1073741822.0) -> -1.15292150460685e+18) ((3182 . 5625) (* -1073741826.0 1073741823.0) -> -1.15292150568059e+18) ((3183 . 5625) (* -1073741826.0 1073741824.0) -> -1.15292150675433e+18) ((3184 . 5625) (* -1073741826.0 1073741825.0) -> -1.15292150782807e+18) ((3185 . 5625) (* -1073741826.0 1073741826.0) -> -1.15292150890181e+18) ((3186 . 5625) (* -1073741825.0 1073741822.0) -> -1.15292150353311e+18) ((3187 . 5625) (* -1073741825.0 1073741823.0) -> -1.15292150460685e+18) ((3188 . 5625) (* -1073741825.0 1073741824.0) -> -1.15292150568059e+18) ((3189 . 5625) (* -1073741825.0 1073741825.0) -> -1.15292150675433e+18) ((3190 . 5625) (* -1073741825.0 1073741826.0) -> -1.15292150782807e+18) ((3191 . 5625) (* -1073741824.0 1073741822.0) -> -1.15292150245936e+18) ((3192 . 5625) (* -1073741824.0 1073741823.0) -> -1.15292150353311e+18) ((3193 . 5625) (* -1073741824.0 1073741824.0) -> -1.15292150460685e+18) ((3194 . 5625) (* -1073741824.0 1073741825.0) -> -1.15292150568059e+18) ((3195 . 5625) (* -1073741824.0 1073741826.0) -> -1.15292150675433e+18) ((3196 . 5625) (* -1073741823.0 1073741822.0) -> -1.15292150138562e+18) ((3197 . 5625) (* -1073741823.0 1073741823.0) -> -1.15292150245936e+18) ((3198 . 5625) (* -1073741823.0 1073741824.0) -> -1.15292150353311e+18) ((3199 . 5625) (* -1073741823.0 1073741825.0) -> -1.15292150460685e+18) ((3200 . 5625) (* -1073741823.0 1073741826.0) -> -1.15292150568059e+18) ((3201 . 5625) (* -1073741827.0 -1073741827.0) -> 1.1529215110493e+18) ((3202 . 5625) (* -1073741827.0 -1073741826.0) -> 1.15292150997556e+18) ((3203 . 5625) (* -1073741827.0 -1073741825.0) -> 1.15292150890181e+18) ((3204 . 5625) (* -1073741827.0 -1073741824.0) -> 1.15292150782807e+18) ((3205 . 5625) (* -1073741827.0 -1073741823.0) -> 1.15292150675433e+18) ((3206 . 5625) (* -1073741826.0 -1073741827.0) -> 1.15292150997556e+18) ((3207 . 5625) (* -1073741826.0 -1073741826.0) -> 1.15292150890181e+18) ((3208 . 5625) (* -1073741826.0 -1073741825.0) -> 1.15292150782807e+18) ((3209 . 5625) (* -1073741826.0 -1073741824.0) -> 1.15292150675433e+18) ((3210 . 5625) (* -1073741826.0 -1073741823.0) -> 1.15292150568059e+18) ((3211 . 5625) (* -1073741825.0 -1073741827.0) -> 1.15292150890181e+18) ((3212 . 5625) (* -1073741825.0 -1073741826.0) -> 1.15292150782807e+18) ((3213 . 5625) (* -1073741825.0 -1073741825.0) -> 1.15292150675433e+18) ((3214 . 5625) (* -1073741825.0 -1073741824.0) -> 1.15292150568059e+18) ((3215 . 5625) (* -1073741825.0 -1073741823.0) -> 1.15292150460685e+18) ((3216 . 5625) (* -1073741824.0 -1073741827.0) -> 1.15292150782807e+18) ((3217 . 5625) (* -1073741824.0 -1073741826.0) -> 1.15292150675433e+18) ((3218 . 5625) (* -1073741824.0 -1073741825.0) -> 1.15292150568059e+18) ((3219 . 5625) (* -1073741824.0 -1073741824.0) -> 1.15292150460685e+18) ((3220 . 5625) (* -1073741824.0 -1073741823.0) -> 1.15292150353311e+18) ((3221 . 5625) (* -1073741823.0 -1073741827.0) -> 1.15292150675433e+18) ((3222 . 5625) (* -1073741823.0 -1073741826.0) -> 1.15292150568059e+18) ((3223 . 5625) (* -1073741823.0 -1073741825.0) -> 1.15292150460685e+18) ((3224 . 5625) (* -1073741823.0 -1073741824.0) -> 1.15292150353311e+18) ((3225 . 5625) (* -1073741823.0 -1073741823.0) -> 1.15292150245936e+18) ((3226 . 5625) (* -1073741827.0 1103515243.0) -> -1.18489047314117e+18) ((3227 . 5625) (* -1073741827.0 1103515244.0) -> -1.18489047421491e+18) ((3228 . 5625) (* -1073741827.0 1103515245.0) -> -1.18489047528865e+18) ((3229 . 5625) (* -1073741827.0 1103515246.0) -> -1.18489047636239e+18) ((3230 . 5625) (* -1073741827.0 1103515247.0) -> -1.18489047743614e+18) ((3231 . 5625) (* -1073741826.0 1103515243.0) -> -1.18489047203765e+18) ((3232 . 5625) (* -1073741826.0 1103515244.0) -> -1.1848904731114e+18) ((3233 . 5625) (* -1073741826.0 1103515245.0) -> -1.18489047418514e+18) ((3234 . 5625) (* -1073741826.0 1103515246.0) -> -1.18489047525888e+18) ((3235 . 5625) (* -1073741826.0 1103515247.0) -> -1.18489047633262e+18) ((3236 . 5625) (* -1073741825.0 1103515243.0) -> -1.18489047093414e+18) ((3237 . 5625) (* -1073741825.0 1103515244.0) -> -1.18489047200788e+18) ((3238 . 5625) (* -1073741825.0 1103515245.0) -> -1.18489047308162e+18) ((3239 . 5625) (* -1073741825.0 1103515246.0) -> -1.18489047415536e+18) ((3240 . 5625) (* -1073741825.0 1103515247.0) -> -1.18489047522911e+18) ((3241 . 5625) (* -1073741824.0 1103515243.0) -> -1.18489046983062e+18) ((3242 . 5625) (* -1073741824.0 1103515244.0) -> -1.18489047090437e+18) ((3243 . 5625) (* -1073741824.0 1103515245.0) -> -1.18489047197811e+18) ((3244 . 5625) (* -1073741824.0 1103515246.0) -> -1.18489047305185e+18) ((3245 . 5625) (* -1073741824.0 1103515247.0) -> -1.18489047412559e+18) ((3246 . 5625) (* -1073741823.0 1103515243.0) -> -1.18489046872711e+18) ((3247 . 5625) (* -1073741823.0 1103515244.0) -> -1.18489046980085e+18) ((3248 . 5625) (* -1073741823.0 1103515245.0) -> -1.18489047087459e+18) ((3249 . 5625) (* -1073741823.0 1103515246.0) -> -1.18489047194833e+18) ((3250 . 5625) (* -1073741823.0 1103515247.0) -> -1.18489047302208e+18) ((3251 . 5625) (* -1073741827.0 631629063) -> -6.78206544091918e+17) ((3252 . 5625) (* -1073741827.0 631629064) -> -6.7820654516566e+17) ((3253 . 5625) (* -1073741827.0 631629065) -> -6.78206546239402e+17) ((3254 . 5625) (* -1073741827.0 631629066) -> -6.78206547313144e+17) ((3255 . 5625) (* -1073741827.0 631629067) -> -6.78206548386885e+17) ((3256 . 5625) (* -1073741826.0 631629063) -> -6.78206543460289e+17) ((3257 . 5625) (* -1073741826.0 631629064) -> -6.78206544534031e+17) ((3258 . 5625) (* -1073741826.0 631629065) -> -6.78206545607773e+17) ((3259 . 5625) (* -1073741826.0 631629066) -> -6.78206546681514e+17) ((3260 . 5625) (* -1073741826.0 631629067) -> -6.78206547755256e+17) ((3261 . 5625) (* -1073741825.0 631629063) -> -6.7820654282866e+17) ((3262 . 5625) (* -1073741825.0 631629064) -> -6.78206543902402e+17) ((3263 . 5625) (* -1073741825.0 631629065) -> -6.78206544976144e+17) ((3264 . 5625) (* -1073741825.0 631629066) -> -6.78206546049885e+17) ((3265 . 5625) (* -1073741825.0 631629067) -> -6.78206547123627e+17) ((3266 . 5625) (* -1073741824.0 631629063) -> -6.78206542197031e+17) ((3267 . 5625) (* -1073741824.0 631629064) -> -6.78206543270773e+17) ((3268 . 5625) (* -1073741824.0 631629065) -> -6.78206544344515e+17) ((3269 . 5625) (* -1073741824.0 631629066) -> -6.78206545418256e+17) ((3270 . 5625) (* -1073741824.0 631629067) -> -6.78206546491998e+17) ((3271 . 5625) (* -1073741823.0 631629063) -> -6.78206541565402e+17) ((3272 . 5625) (* -1073741823.0 631629064) -> -6.78206542639144e+17) ((3273 . 5625) (* -1073741823.0 631629065) -> -6.78206543712886e+17) ((3274 . 5625) (* -1073741823.0 631629066) -> -6.78206544786627e+17) ((3275 . 5625) (* -1073741823.0 631629067) -> -6.78206545860369e+17) ((3276 . 5625) (* -1073741827.0 9.00719925474099e+15) -> -9.67140658393863e+24) ((3277 . 5625) (* -1073741827.0 9.00719925474099e+15) -> -9.67140658393863e+24) ((3278 . 5625) (* -1073741827.0 9.00719925474099e+15) -> -9.67140658393863e+24) ((3279 . 5625) (* -1073741827.0 9.00719925474099e+15) -> -9.67140658393863e+24) ((3280 . 5625) (* -1073741827.0 9.00719925474099e+15) -> -9.67140658393863e+24) ((3281 . 5625) (* -1073741826.0 9.00719925474099e+15) -> -9.67140657493143e+24) ((3282 . 5625) (* -1073741826.0 9.00719925474099e+15) -> -9.67140657493143e+24) ((3283 . 5625) (* -1073741826.0 9.00719925474099e+15) -> -9.67140657493143e+24) ((3284 . 5625) (* -1073741826.0 9.00719925474099e+15) -> -9.67140657493143e+24) ((3285 . 5625) (* -1073741826.0 9.00719925474099e+15) -> -9.67140657493143e+24) ((3286 . 5625) (* -1073741825.0 9.00719925474099e+15) -> -9.67140656592423e+24) ((3287 . 5625) (* -1073741825.0 9.00719925474099e+15) -> -9.67140656592423e+24) ((3288 . 5625) (* -1073741825.0 9.00719925474099e+15) -> -9.67140656592423e+24) ((3289 . 5625) (* -1073741825.0 9.00719925474099e+15) -> -9.67140656592423e+24) ((3290 . 5625) (* -1073741825.0 9.00719925474099e+15) -> -9.67140656592423e+24) ((3291 . 5625) (* -1073741824.0 9.00719925474099e+15) -> -9.67140655691703e+24) ((3292 . 5625) (* -1073741824.0 9.00719925474099e+15) -> -9.67140655691703e+24) ((3293 . 5625) (* -1073741824.0 9.00719925474099e+15) -> -9.67140655691703e+24) ((3294 . 5625) (* -1073741824.0 9.00719925474099e+15) -> -9.67140655691703e+24) ((3295 . 5625) (* -1073741824.0 9.00719925474099e+15) -> -9.67140655691704e+24) ((3296 . 5625) (* -1073741823.0 9.00719925474099e+15) -> -9.67140654790983e+24) ((3297 . 5625) (* -1073741823.0 9.00719925474099e+15) -> -9.67140654790983e+24) ((3298 . 5625) (* -1073741823.0 9.00719925474099e+15) -> -9.67140654790983e+24) ((3299 . 5625) (* -1073741823.0 9.00719925474099e+15) -> -9.67140654790983e+24) ((3300 . 5625) (* -1073741823.0 9.00719925474099e+15) -> -9.67140654790984e+24) ((3301 . 5625) (* -1073741827.0 -9.00719925474099e+15) -> 9.67140658393863e+24) ((3302 . 5625) (* -1073741827.0 -9.00719925474099e+15) -> 9.67140658393863e+24) ((3303 . 5625) (* -1073741827.0 -9.00719925474099e+15) -> 9.67140658393863e+24) ((3304 . 5625) (* -1073741827.0 -9.00719925474099e+15) -> 9.67140658393863e+24) ((3305 . 5625) (* -1073741827.0 -9.00719925474099e+15) -> 9.67140658393863e+24) ((3306 . 5625) (* -1073741826.0 -9.00719925474099e+15) -> 9.67140657493143e+24) ((3307 . 5625) (* -1073741826.0 -9.00719925474099e+15) -> 9.67140657493143e+24) ((3308 . 5625) (* -1073741826.0 -9.00719925474099e+15) -> 9.67140657493143e+24) ((3309 . 5625) (* -1073741826.0 -9.00719925474099e+15) -> 9.67140657493143e+24) ((3310 . 5625) (* -1073741826.0 -9.00719925474099e+15) -> 9.67140657493143e+24) ((3311 . 5625) (* -1073741825.0 -9.00719925474099e+15) -> 9.67140656592423e+24) ((3312 . 5625) (* -1073741825.0 -9.00719925474099e+15) -> 9.67140656592423e+24) ((3313 . 5625) (* -1073741825.0 -9.00719925474099e+15) -> 9.67140656592423e+24) ((3314 . 5625) (* -1073741825.0 -9.00719925474099e+15) -> 9.67140656592423e+24) ((3315 . 5625) (* -1073741825.0 -9.00719925474099e+15) -> 9.67140656592423e+24) ((3316 . 5625) (* -1073741824.0 -9.00719925474099e+15) -> 9.67140655691704e+24) ((3317 . 5625) (* -1073741824.0 -9.00719925474099e+15) -> 9.67140655691703e+24) ((3318 . 5625) (* -1073741824.0 -9.00719925474099e+15) -> 9.67140655691703e+24) ((3319 . 5625) (* -1073741824.0 -9.00719925474099e+15) -> 9.67140655691703e+24) ((3320 . 5625) (* -1073741824.0 -9.00719925474099e+15) -> 9.67140655691703e+24) ((3321 . 5625) (* -1073741823.0 -9.00719925474099e+15) -> 9.67140654790984e+24) ((3322 . 5625) (* -1073741823.0 -9.00719925474099e+15) -> 9.67140654790983e+24) ((3323 . 5625) (* -1073741823.0 -9.00719925474099e+15) -> 9.67140654790983e+24) ((3324 . 5625) (* -1073741823.0 -9.00719925474099e+15) -> 9.67140654790983e+24) ((3325 . 5625) (* -1073741823.0 -9.00719925474099e+15) -> 9.67140654790983e+24) ((3326 . 5625) (* -1073741827.0 12343) -> -13253195370661.0) ((3327 . 5625) (* -1073741827.0 12344) -> -13254269112488.0) ((3328 . 5625) (* -1073741827.0 12345) -> -13255342854315.0) ((3329 . 5625) (* -1073741827.0 12346) -> -13256416596142.0) ((3330 . 5625) (* -1073741827.0 12347) -> -13257490337969.0) ((3331 . 5625) (* -1073741826.0 12343) -> -13253195358318.0) ((3332 . 5625) (* -1073741826.0 12344) -> -13254269100144.0) ((3333 . 5625) (* -1073741826.0 12345) -> -13255342841970.0) ((3334 . 5625) (* -1073741826.0 12346) -> -13256416583796.0) ((3335 . 5625) (* -1073741826.0 12347) -> -13257490325622.0) ((3336 . 5625) (* -1073741825.0 12343) -> -13253195345975.0) ((3337 . 5625) (* -1073741825.0 12344) -> -13254269087800.0) ((3338 . 5625) (* -1073741825.0 12345) -> -13255342829625.0) ((3339 . 5625) (* -1073741825.0 12346) -> -13256416571450.0) ((3340 . 5625) (* -1073741825.0 12347) -> -13257490313275.0) ((3341 . 5625) (* -1073741824.0 12343) -> -13253195333632.0) ((3342 . 5625) (* -1073741824.0 12344) -> -13254269075456.0) ((3343 . 5625) (* -1073741824.0 12345) -> -13255342817280.0) ((3344 . 5625) (* -1073741824.0 12346) -> -13256416559104.0) ((3345 . 5625) (* -1073741824.0 12347) -> -13257490300928.0) ((3346 . 5625) (* -1073741823.0 12343) -> -13253195321289.0) ((3347 . 5625) (* -1073741823.0 12344) -> -13254269063112.0) ((3348 . 5625) (* -1073741823.0 12345) -> -13255342804935.0) ((3349 . 5625) (* -1073741823.0 12346) -> -13256416546758.0) ((3350 . 5625) (* -1073741823.0 12347) -> -13257490288581.0) ((3351 . 5625) (* -1073741827.0 4294967294.0) -> -4.61168602916481e+18) ((3352 . 5625) (* -1073741827.0 4294967295.0) -> -4.61168603023855e+18) ((3353 . 5625) (* -1073741827.0 4294967296.0) -> -4.61168603131229e+18) ((3354 . 5625) (* -1073741827.0 4294967297.0) -> -4.61168603238603e+18) ((3355 . 5625) (* -1073741827.0 4294967298.0) -> -4.61168603345977e+18) ((3356 . 5625) (* -1073741826.0 4294967294.0) -> -4.61168602486984e+18) ((3357 . 5625) (* -1073741826.0 4294967295.0) -> -4.61168602594358e+18) ((3358 . 5625) (* -1073741826.0 4294967296.0) -> -4.61168602701732e+18) ((3359 . 5625) (* -1073741826.0 4294967297.0) -> -4.61168602809106e+18) ((3360 . 5625) (* -1073741826.0 4294967298.0) -> -4.61168602916481e+18) ((3361 . 5625) (* -1073741825.0 4294967294.0) -> -4.61168602057487e+18) ((3362 . 5625) (* -1073741825.0 4294967295.0) -> -4.61168602164861e+18) ((3363 . 5625) (* -1073741825.0 4294967296.0) -> -4.61168602272236e+18) ((3364 . 5625) (* -1073741825.0 4294967297.0) -> -4.6116860237961e+18) ((3365 . 5625) (* -1073741825.0 4294967298.0) -> -4.61168602486984e+18) ((3366 . 5625) (* -1073741824.0 4294967294.0) -> -4.6116860162799e+18) ((3367 . 5625) (* -1073741824.0 4294967295.0) -> -4.61168601735365e+18) ((3368 . 5625) (* -1073741824.0 4294967296.0) -> -4.61168601842739e+18) ((3369 . 5625) (* -1073741824.0 4294967297.0) -> -4.61168601950113e+18) ((3370 . 5625) (* -1073741824.0 4294967298.0) -> -4.61168602057487e+18) ((3371 . 5625) (* -1073741823.0 4294967294.0) -> -4.61168601198494e+18) ((3372 . 5625) (* -1073741823.0 4294967295.0) -> -4.61168601305868e+18) ((3373 . 5625) (* -1073741823.0 4294967296.0) -> -4.61168601413242e+18) ((3374 . 5625) (* -1073741823.0 4294967297.0) -> -4.61168601520616e+18) ((3375 . 5625) (* -1073741823.0 4294967298.0) -> -4.6116860162799e+18) ((3376 . 5625) (* 1103515243.0 -2) -> -2207030486.0) ((3377 . 5625) (* 1103515243.0 -1) -> -1103515243.0) ((3378 . 5625) (* 1103515243.0 0) -> 0.0) ((3379 . 5625) (* 1103515243.0 1) -> 1103515243.0) ((3380 . 5625) (* 1103515243.0 2) -> 2207030486.0) ((3381 . 5625) (* 1103515244.0 -2) -> -2207030488.0) ((3382 . 5625) (* 1103515244.0 -1) -> -1103515244.0) ((3383 . 5625) (* 1103515244.0 0) -> 0.0) ((3384 . 5625) (* 1103515244.0 1) -> 1103515244.0) ((3385 . 5625) (* 1103515244.0 2) -> 2207030488.0) ((3386 . 5625) (* 1103515245.0 -2) -> -2207030490.0) ((3387 . 5625) (* 1103515245.0 -1) -> -1103515245.0) ((3388 . 5625) (* 1103515245.0 0) -> 0.0) ((3389 . 5625) (* 1103515245.0 1) -> 1103515245.0) ((3390 . 5625) (* 1103515245.0 2) -> 2207030490.0) ((3391 . 5625) (* 1103515246.0 -2) -> -2207030492.0) ((3392 . 5625) (* 1103515246.0 -1) -> -1103515246.0) ((3393 . 5625) (* 1103515246.0 0) -> 0.0) ((3394 . 5625) (* 1103515246.0 1) -> 1103515246.0) ((3395 . 5625) (* 1103515246.0 2) -> 2207030492.0) ((3396 . 5625) (* 1103515247.0 -2) -> -2207030494.0) ((3397 . 5625) (* 1103515247.0 -1) -> -1103515247.0) ((3398 . 5625) (* 1103515247.0 0) -> 0.0) ((3399 . 5625) (* 1103515247.0 1) -> 1103515247.0) ((3400 . 5625) (* 1103515247.0 2) -> 2207030494.0) ((3401 . 5625) (* 1103515243.0 -1) -> -1103515243.0) ((3402 . 5625) (* 1103515243.0 0) -> 0.0) ((3403 . 5625) (* 1103515243.0 1) -> 1103515243.0) ((3404 . 5625) (* 1103515243.0 2) -> 2207030486.0) ((3405 . 5625) (* 1103515243.0 3) -> 3310545729.0) ((3406 . 5625) (* 1103515244.0 -1) -> -1103515244.0) ((3407 . 5625) (* 1103515244.0 0) -> 0.0) ((3408 . 5625) (* 1103515244.0 1) -> 1103515244.0) ((3409 . 5625) (* 1103515244.0 2) -> 2207030488.0) ((3410 . 5625) (* 1103515244.0 3) -> 3310545732.0) ((3411 . 5625) (* 1103515245.0 -1) -> -1103515245.0) ((3412 . 5625) (* 1103515245.0 0) -> 0.0) ((3413 . 5625) (* 1103515245.0 1) -> 1103515245.0) ((3414 . 5625) (* 1103515245.0 2) -> 2207030490.0) ((3415 . 5625) (* 1103515245.0 3) -> 3310545735.0) ((3416 . 5625) (* 1103515246.0 -1) -> -1103515246.0) ((3417 . 5625) (* 1103515246.0 0) -> 0.0) ((3418 . 5625) (* 1103515246.0 1) -> 1103515246.0) ((3419 . 5625) (* 1103515246.0 2) -> 2207030492.0) ((3420 . 5625) (* 1103515246.0 3) -> 3310545738.0) ((3421 . 5625) (* 1103515247.0 -1) -> -1103515247.0) ((3422 . 5625) (* 1103515247.0 0) -> 0.0) ((3423 . 5625) (* 1103515247.0 1) -> 1103515247.0) ((3424 . 5625) (* 1103515247.0 2) -> 2207030494.0) ((3425 . 5625) (* 1103515247.0 3) -> 3310545741.0) ((3426 . 5625) (* 1103515243.0 -3) -> -3310545729.0) ((3427 . 5625) (* 1103515243.0 -2) -> -2207030486.0) ((3428 . 5625) (* 1103515243.0 -1) -> -1103515243.0) ((3429 . 5625) (* 1103515243.0 0) -> 0.0) ((3430 . 5625) (* 1103515243.0 1) -> 1103515243.0) ((3431 . 5625) (* 1103515244.0 -3) -> -3310545732.0) ((3432 . 5625) (* 1103515244.0 -2) -> -2207030488.0) ((3433 . 5625) (* 1103515244.0 -1) -> -1103515244.0) ((3434 . 5625) (* 1103515244.0 0) -> 0.0) ((3435 . 5625) (* 1103515244.0 1) -> 1103515244.0) ((3436 . 5625) (* 1103515245.0 -3) -> -3310545735.0) ((3437 . 5625) (* 1103515245.0 -2) -> -2207030490.0) ((3438 . 5625) (* 1103515245.0 -1) -> -1103515245.0) ((3439 . 5625) (* 1103515245.0 0) -> 0.0) ((3440 . 5625) (* 1103515245.0 1) -> 1103515245.0) ((3441 . 5625) (* 1103515246.0 -3) -> -3310545738.0) ((3442 . 5625) (* 1103515246.0 -2) -> -2207030492.0) ((3443 . 5625) (* 1103515246.0 -1) -> -1103515246.0) ((3444 . 5625) (* 1103515246.0 0) -> 0.0) ((3445 . 5625) (* 1103515246.0 1) -> 1103515246.0) ((3446 . 5625) (* 1103515247.0 -3) -> -3310545741.0) ((3447 . 5625) (* 1103515247.0 -2) -> -2207030494.0) ((3448 . 5625) (* 1103515247.0 -1) -> -1103515247.0) ((3449 . 5625) (* 1103515247.0 0) -> 0.0) ((3450 . 5625) (* 1103515247.0 1) -> 1103515247.0) ((3451 . 5625) (* 1103515243.0 0) -> 0.0) ((3452 . 5625) (* 1103515243.0 1) -> 1103515243.0) ((3453 . 5625) (* 1103515243.0 2) -> 2207030486.0) ((3454 . 5625) (* 1103515243.0 3) -> 3310545729.0) ((3455 . 5625) (* 1103515243.0 4) -> 4414060972.0) ((3456 . 5625) (* 1103515244.0 0) -> 0.0) ((3457 . 5625) (* 1103515244.0 1) -> 1103515244.0) ((3458 . 5625) (* 1103515244.0 2) -> 2207030488.0) ((3459 . 5625) (* 1103515244.0 3) -> 3310545732.0) ((3460 . 5625) (* 1103515244.0 4) -> 4414060976.0) ((3461 . 5625) (* 1103515245.0 0) -> 0.0) ((3462 . 5625) (* 1103515245.0 1) -> 1103515245.0) ((3463 . 5625) (* 1103515245.0 2) -> 2207030490.0) ((3464 . 5625) (* 1103515245.0 3) -> 3310545735.0) ((3465 . 5625) (* 1103515245.0 4) -> 4414060980.0) ((3466 . 5625) (* 1103515246.0 0) -> 0.0) ((3467 . 5625) (* 1103515246.0 1) -> 1103515246.0) ((3468 . 5625) (* 1103515246.0 2) -> 2207030492.0) ((3469 . 5625) (* 1103515246.0 3) -> 3310545738.0) ((3470 . 5625) (* 1103515246.0 4) -> 4414060984.0) ((3471 . 5625) (* 1103515247.0 0) -> 0.0) ((3472 . 5625) (* 1103515247.0 1) -> 1103515247.0) ((3473 . 5625) (* 1103515247.0 2) -> 2207030494.0) ((3474 . 5625) (* 1103515247.0 3) -> 3310545741.0) ((3475 . 5625) (* 1103515247.0 4) -> 4414060988.0) ((3476 . 5625) (* 1103515243.0 -4) -> -4414060972.0) ((3477 . 5625) (* 1103515243.0 -3) -> -3310545729.0) ((3478 . 5625) (* 1103515243.0 -2) -> -2207030486.0) ((3479 . 5625) (* 1103515243.0 -1) -> -1103515243.0) ((3480 . 5625) (* 1103515243.0 0) -> 0.0) ((3481 . 5625) (* 1103515244.0 -4) -> -4414060976.0) ((3482 . 5625) (* 1103515244.0 -3) -> -3310545732.0) ((3483 . 5625) (* 1103515244.0 -2) -> -2207030488.0) ((3484 . 5625) (* 1103515244.0 -1) -> -1103515244.0) ((3485 . 5625) (* 1103515244.0 0) -> 0.0) ((3486 . 5625) (* 1103515245.0 -4) -> -4414060980.0) ((3487 . 5625) (* 1103515245.0 -3) -> -3310545735.0) ((3488 . 5625) (* 1103515245.0 -2) -> -2207030490.0) ((3489 . 5625) (* 1103515245.0 -1) -> -1103515245.0) ((3490 . 5625) (* 1103515245.0 0) -> 0.0) ((3491 . 5625) (* 1103515246.0 -4) -> -4414060984.0) ((3492 . 5625) (* 1103515246.0 -3) -> -3310545738.0) ((3493 . 5625) (* 1103515246.0 -2) -> -2207030492.0) ((3494 . 5625) (* 1103515246.0 -1) -> -1103515246.0) ((3495 . 5625) (* 1103515246.0 0) -> 0.0) ((3496 . 5625) (* 1103515247.0 -4) -> -4414060988.0) ((3497 . 5625) (* 1103515247.0 -3) -> -3310545741.0) ((3498 . 5625) (* 1103515247.0 -2) -> -2207030494.0) ((3499 . 5625) (* 1103515247.0 -1) -> -1103515247.0) ((3500 . 5625) (* 1103515247.0 0) -> 0.0) ((3501 . 5625) (* 1103515243.0 1073741821) -> 1.18489046652008e+18) ((3502 . 5625) (* 1103515243.0 1073741822) -> 1.18489046762359e+18) ((3503 . 5625) (* 1103515243.0 1073741823) -> 1.18489046872711e+18) ((3504 . 5625) (* 1103515243.0 1073741824.0) -> 1.18489046983062e+18) ((3505 . 5625) (* 1103515243.0 1073741825.0) -> 1.18489047093414e+18) ((3506 . 5625) (* 1103515244.0 1073741821) -> 1.18489046759382e+18) ((3507 . 5625) (* 1103515244.0 1073741822) -> 1.18489046869733e+18) ((3508 . 5625) (* 1103515244.0 1073741823) -> 1.18489046980085e+18) ((3509 . 5625) (* 1103515244.0 1073741824.0) -> 1.18489047090437e+18) ((3510 . 5625) (* 1103515244.0 1073741825.0) -> 1.18489047200788e+18) ((3511 . 5625) (* 1103515245.0 1073741821) -> 1.18489046866756e+18) ((3512 . 5625) (* 1103515245.0 1073741822) -> 1.18489046977108e+18) ((3513 . 5625) (* 1103515245.0 1073741823) -> 1.18489047087459e+18) ((3514 . 5625) (* 1103515245.0 1073741824.0) -> 1.18489047197811e+18) ((3515 . 5625) (* 1103515245.0 1073741825.0) -> 1.18489047308162e+18) ((3516 . 5625) (* 1103515246.0 1073741821) -> 1.1848904697413e+18) ((3517 . 5625) (* 1103515246.0 1073741822) -> 1.18489047084482e+18) ((3518 . 5625) (* 1103515246.0 1073741823) -> 1.18489047194833e+18) ((3519 . 5625) (* 1103515246.0 1073741824.0) -> 1.18489047305185e+18) ((3520 . 5625) (* 1103515246.0 1073741825.0) -> 1.18489047415536e+18) ((3521 . 5625) (* 1103515247.0 1073741821) -> 1.18489047081504e+18) ((3522 . 5625) (* 1103515247.0 1073741822) -> 1.18489047191856e+18) ((3523 . 5625) (* 1103515247.0 1073741823) -> 1.18489047302208e+18) ((3524 . 5625) (* 1103515247.0 1073741824.0) -> 1.18489047412559e+18) ((3525 . 5625) (* 1103515247.0 1073741825.0) -> 1.18489047522911e+18) ((3526 . 5625) (* 1103515243.0 -1073741826.0) -> -1.18489047203765e+18) ((3527 . 5625) (* 1103515243.0 -1073741825.0) -> -1.18489047093414e+18) ((3528 . 5625) (* 1103515243.0 -1073741824) -> -1.18489046983062e+18) ((3529 . 5625) (* 1103515243.0 -1073741823) -> -1.18489046872711e+18) ((3530 . 5625) (* 1103515243.0 -1073741822) -> -1.18489046762359e+18) ((3531 . 5625) (* 1103515244.0 -1073741826.0) -> -1.1848904731114e+18) ((3532 . 5625) (* 1103515244.0 -1073741825.0) -> -1.18489047200788e+18) ((3533 . 5625) (* 1103515244.0 -1073741824) -> -1.18489047090437e+18) ((3534 . 5625) (* 1103515244.0 -1073741823) -> -1.18489046980085e+18) ((3535 . 5625) (* 1103515244.0 -1073741822) -> -1.18489046869733e+18) ((3536 . 5625) (* 1103515245.0 -1073741826.0) -> -1.18489047418514e+18) ((3537 . 5625) (* 1103515245.0 -1073741825.0) -> -1.18489047308162e+18) ((3538 . 5625) (* 1103515245.0 -1073741824) -> -1.18489047197811e+18) ((3539 . 5625) (* 1103515245.0 -1073741823) -> -1.18489047087459e+18) ((3540 . 5625) (* 1103515245.0 -1073741822) -> -1.18489046977108e+18) ((3541 . 5625) (* 1103515246.0 -1073741826.0) -> -1.18489047525888e+18) ((3542 . 5625) (* 1103515246.0 -1073741825.0) -> -1.18489047415536e+18) ((3543 . 5625) (* 1103515246.0 -1073741824) -> -1.18489047305185e+18) ((3544 . 5625) (* 1103515246.0 -1073741823) -> -1.18489047194833e+18) ((3545 . 5625) (* 1103515246.0 -1073741822) -> -1.18489047084482e+18) ((3546 . 5625) (* 1103515247.0 -1073741826.0) -> -1.18489047633262e+18) ((3547 . 5625) (* 1103515247.0 -1073741825.0) -> -1.18489047522911e+18) ((3548 . 5625) (* 1103515247.0 -1073741824) -> -1.18489047412559e+18) ((3549 . 5625) (* 1103515247.0 -1073741823) -> -1.18489047302208e+18) ((3550 . 5625) (* 1103515247.0 -1073741822) -> -1.18489047191856e+18) ((3551 . 5625) (* 1103515243.0 1073741822.0) -> 1.18489046762359e+18) ((3552 . 5625) (* 1103515243.0 1073741823.0) -> 1.18489046872711e+18) ((3553 . 5625) (* 1103515243.0 1073741824.0) -> 1.18489046983062e+18) ((3554 . 5625) (* 1103515243.0 1073741825.0) -> 1.18489047093414e+18) ((3555 . 5625) (* 1103515243.0 1073741826.0) -> 1.18489047203765e+18) ((3556 . 5625) (* 1103515244.0 1073741822.0) -> 1.18489046869733e+18) ((3557 . 5625) (* 1103515244.0 1073741823.0) -> 1.18489046980085e+18) ((3558 . 5625) (* 1103515244.0 1073741824.0) -> 1.18489047090437e+18) ((3559 . 5625) (* 1103515244.0 1073741825.0) -> 1.18489047200788e+18) ((3560 . 5625) (* 1103515244.0 1073741826.0) -> 1.1848904731114e+18) ((3561 . 5625) (* 1103515245.0 1073741822.0) -> 1.18489046977108e+18) ((3562 . 5625) (* 1103515245.0 1073741823.0) -> 1.18489047087459e+18) ((3563 . 5625) (* 1103515245.0 1073741824.0) -> 1.18489047197811e+18) ((3564 . 5625) (* 1103515245.0 1073741825.0) -> 1.18489047308162e+18) ((3565 . 5625) (* 1103515245.0 1073741826.0) -> 1.18489047418514e+18) ((3566 . 5625) (* 1103515246.0 1073741822.0) -> 1.18489047084482e+18) ((3567 . 5625) (* 1103515246.0 1073741823.0) -> 1.18489047194833e+18) ((3568 . 5625) (* 1103515246.0 1073741824.0) -> 1.18489047305185e+18) ((3569 . 5625) (* 1103515246.0 1073741825.0) -> 1.18489047415536e+18) ((3570 . 5625) (* 1103515246.0 1073741826.0) -> 1.18489047525888e+18) ((3571 . 5625) (* 1103515247.0 1073741822.0) -> 1.18489047191856e+18) ((3572 . 5625) (* 1103515247.0 1073741823.0) -> 1.18489047302208e+18) ((3573 . 5625) (* 1103515247.0 1073741824.0) -> 1.18489047412559e+18) ((3574 . 5625) (* 1103515247.0 1073741825.0) -> 1.18489047522911e+18) ((3575 . 5625) (* 1103515247.0 1073741826.0) -> 1.18489047633262e+18) ((3576 . 5625) (* 1103515243.0 -1073741827.0) -> -1.18489047314117e+18) ((3577 . 5625) (* 1103515243.0 -1073741826.0) -> -1.18489047203765e+18) ((3578 . 5625) (* 1103515243.0 -1073741825.0) -> -1.18489047093414e+18) ((3579 . 5625) (* 1103515243.0 -1073741824.0) -> -1.18489046983062e+18) ((3580 . 5625) (* 1103515243.0 -1073741823.0) -> -1.18489046872711e+18) ((3581 . 5625) (* 1103515244.0 -1073741827.0) -> -1.18489047421491e+18) ((3582 . 5625) (* 1103515244.0 -1073741826.0) -> -1.1848904731114e+18) ((3583 . 5625) (* 1103515244.0 -1073741825.0) -> -1.18489047200788e+18) ((3584 . 5625) (* 1103515244.0 -1073741824.0) -> -1.18489047090437e+18) ((3585 . 5625) (* 1103515244.0 -1073741823.0) -> -1.18489046980085e+18) ((3586 . 5625) (* 1103515245.0 -1073741827.0) -> -1.18489047528865e+18) ((3587 . 5625) (* 1103515245.0 -1073741826.0) -> -1.18489047418514e+18) ((3588 . 5625) (* 1103515245.0 -1073741825.0) -> -1.18489047308162e+18) ((3589 . 5625) (* 1103515245.0 -1073741824.0) -> -1.18489047197811e+18) ((3590 . 5625) (* 1103515245.0 -1073741823.0) -> -1.18489047087459e+18) ((3591 . 5625) (* 1103515246.0 -1073741827.0) -> -1.18489047636239e+18) ((3592 . 5625) (* 1103515246.0 -1073741826.0) -> -1.18489047525888e+18) ((3593 . 5625) (* 1103515246.0 -1073741825.0) -> -1.18489047415536e+18) ((3594 . 5625) (* 1103515246.0 -1073741824.0) -> -1.18489047305185e+18) ((3595 . 5625) (* 1103515246.0 -1073741823.0) -> -1.18489047194833e+18) ((3596 . 5625) (* 1103515247.0 -1073741827.0) -> -1.18489047743614e+18) ((3597 . 5625) (* 1103515247.0 -1073741826.0) -> -1.18489047633262e+18) ((3598 . 5625) (* 1103515247.0 -1073741825.0) -> -1.18489047522911e+18) ((3599 . 5625) (* 1103515247.0 -1073741824.0) -> -1.18489047412559e+18) ((3600 . 5625) (* 1103515247.0 -1073741823.0) -> -1.18489047302208e+18) ((3601 . 5625) (* 1103515243.0 1103515243.0) -> 1.21774589153335e+18) ((3602 . 5625) (* 1103515243.0 1103515244.0) -> 1.21774589263686e+18) ((3603 . 5625) (* 1103515243.0 1103515245.0) -> 1.21774589374038e+18) ((3604 . 5625) (* 1103515243.0 1103515246.0) -> 1.21774589484389e+18) ((3605 . 5625) (* 1103515243.0 1103515247.0) -> 1.21774589594741e+18) ((3606 . 5625) (* 1103515244.0 1103515243.0) -> 1.21774589263686e+18) ((3607 . 5625) (* 1103515244.0 1103515244.0) -> 1.21774589374038e+18) ((3608 . 5625) (* 1103515244.0 1103515245.0) -> 1.21774589484389e+18) ((3609 . 5625) (* 1103515244.0 1103515246.0) -> 1.21774589594741e+18) ((3610 . 5625) (* 1103515244.0 1103515247.0) -> 1.21774589705093e+18) ((3611 . 5625) (* 1103515245.0 1103515243.0) -> 1.21774589374038e+18) ((3612 . 5625) (* 1103515245.0 1103515244.0) -> 1.21774589484389e+18) ((3613 . 5625) (* 1103515245.0 1103515245.0) -> 1.21774589594741e+18) ((3614 . 5625) (* 1103515245.0 1103515246.0) -> 1.21774589705093e+18) ((3615 . 5625) (* 1103515245.0 1103515247.0) -> 1.21774589815444e+18) ((3616 . 5625) (* 1103515246.0 1103515243.0) -> 1.21774589484389e+18) ((3617 . 5625) (* 1103515246.0 1103515244.0) -> 1.21774589594741e+18) ((3618 . 5625) (* 1103515246.0 1103515245.0) -> 1.21774589705093e+18) ((3619 . 5625) (* 1103515246.0 1103515246.0) -> 1.21774589815444e+18) ((3620 . 5625) (* 1103515246.0 1103515247.0) -> 1.21774589925796e+18) ((3621 . 5625) (* 1103515247.0 1103515243.0) -> 1.21774589594741e+18) ((3622 . 5625) (* 1103515247.0 1103515244.0) -> 1.21774589705093e+18) ((3623 . 5625) (* 1103515247.0 1103515245.0) -> 1.21774589815444e+18) ((3624 . 5625) (* 1103515247.0 1103515246.0) -> 1.21774589925796e+18) ((3625 . 5625) (* 1103515247.0 1103515247.0) -> 1.21774590036147e+18) ((3626 . 5625) (* 1103515243.0 631629063) -> 6.97012298942307e+17) ((3627 . 5625) (* 1103515243.0 631629064) -> 6.97012300045823e+17) ((3628 . 5625) (* 1103515243.0 631629065) -> 6.97012301149338e+17) ((3629 . 5625) (* 1103515243.0 631629066) -> 6.97012302252853e+17) ((3630 . 5625) (* 1103515243.0 631629067) -> 6.97012303356368e+17) ((3631 . 5625) (* 1103515244.0 631629063) -> 6.97012299573936e+17) ((3632 . 5625) (* 1103515244.0 631629064) -> 6.97012300677452e+17) ((3633 . 5625) (* 1103515244.0 631629065) -> 6.97012301780967e+17) ((3634 . 5625) (* 1103515244.0 631629066) -> 6.97012302884482e+17) ((3635 . 5625) (* 1103515244.0 631629067) -> 6.97012303987997e+17) ((3636 . 5625) (* 1103515245.0 631629063) -> 6.97012300205565e+17) ((3637 . 5625) (* 1103515245.0 631629064) -> 6.97012301309081e+17) ((3638 . 5625) (* 1103515245.0 631629065) -> 6.97012302412596e+17) ((3639 . 5625) (* 1103515245.0 631629066) -> 6.97012303516111e+17) ((3640 . 5625) (* 1103515245.0 631629067) -> 6.97012304619626e+17) ((3641 . 5625) (* 1103515246.0 631629063) -> 6.97012300837194e+17) ((3642 . 5625) (* 1103515246.0 631629064) -> 6.9701230194071e+17) ((3643 . 5625) (* 1103515246.0 631629065) -> 6.97012303044225e+17) ((3644 . 5625) (* 1103515246.0 631629066) -> 6.9701230414774e+17) ((3645 . 5625) (* 1103515246.0 631629067) -> 6.97012305251255e+17) ((3646 . 5625) (* 1103515247.0 631629063) -> 6.97012301468824e+17) ((3647 . 5625) (* 1103515247.0 631629064) -> 6.97012302572339e+17) ((3648 . 5625) (* 1103515247.0 631629065) -> 6.97012303675854e+17) ((3649 . 5625) (* 1103515247.0 631629066) -> 6.97012304779369e+17) ((3650 . 5625) (* 1103515247.0 631629067) -> 6.97012305882885e+17) ((3651 . 5625) (* 1103515243.0 9.00719925474099e+15) -> 9.93958167434492e+24) ((3652 . 5625) (* 1103515243.0 9.00719925474099e+15) -> 9.93958167434492e+24) ((3653 . 5625) (* 1103515243.0 9.00719925474099e+15) -> 9.93958167434492e+24) ((3654 . 5625) (* 1103515243.0 9.00719925474099e+15) -> 9.93958167434492e+24) ((3655 . 5625) (* 1103515243.0 9.00719925474099e+15) -> 9.93958167434493e+24) ((3656 . 5625) (* 1103515244.0 9.00719925474099e+15) -> 9.93958168335212e+24) ((3657 . 5625) (* 1103515244.0 9.00719925474099e+15) -> 9.93958168335212e+24) ((3658 . 5625) (* 1103515244.0 9.00719925474099e+15) -> 9.93958168335212e+24) ((3659 . 5625) (* 1103515244.0 9.00719925474099e+15) -> 9.93958168335212e+24) ((3660 . 5625) (* 1103515244.0 9.00719925474099e+15) -> 9.93958168335213e+24) ((3661 . 5625) (* 1103515245.0 9.00719925474099e+15) -> 9.93958169235932e+24) ((3662 . 5625) (* 1103515245.0 9.00719925474099e+15) -> 9.93958169235932e+24) ((3663 . 5625) (* 1103515245.0 9.00719925474099e+15) -> 9.93958169235932e+24) ((3664 . 5625) (* 1103515245.0 9.00719925474099e+15) -> 9.93958169235932e+24) ((3665 . 5625) (* 1103515245.0 9.00719925474099e+15) -> 9.93958169235933e+24) ((3666 . 5625) (* 1103515246.0 9.00719925474099e+15) -> 9.93958170136652e+24) ((3667 . 5625) (* 1103515246.0 9.00719925474099e+15) -> 9.93958170136652e+24) ((3668 . 5625) (* 1103515246.0 9.00719925474099e+15) -> 9.93958170136652e+24) ((3669 . 5625) (* 1103515246.0 9.00719925474099e+15) -> 9.93958170136652e+24) ((3670 . 5625) (* 1103515246.0 9.00719925474099e+15) -> 9.93958170136652e+24) ((3671 . 5625) (* 1103515247.0 9.00719925474099e+15) -> 9.93958171037372e+24) ((3672 . 5625) (* 1103515247.0 9.00719925474099e+15) -> 9.93958171037372e+24) ((3673 . 5625) (* 1103515247.0 9.00719925474099e+15) -> 9.93958171037372e+24) ((3674 . 5625) (* 1103515247.0 9.00719925474099e+15) -> 9.93958171037372e+24) ((3675 . 5625) (* 1103515247.0 9.00719925474099e+15) -> 9.93958171037372e+24) ((3676 . 5625) (* 1103515243.0 -9.00719925474099e+15) -> -9.93958167434493e+24) ((3677 . 5625) (* 1103515243.0 -9.00719925474099e+15) -> -9.93958167434492e+24) ((3678 . 5625) (* 1103515243.0 -9.00719925474099e+15) -> -9.93958167434492e+24) ((3679 . 5625) (* 1103515243.0 -9.00719925474099e+15) -> -9.93958167434492e+24) ((3680 . 5625) (* 1103515243.0 -9.00719925474099e+15) -> -9.93958167434492e+24) ((3681 . 5625) (* 1103515244.0 -9.00719925474099e+15) -> -9.93958168335213e+24) ((3682 . 5625) (* 1103515244.0 -9.00719925474099e+15) -> -9.93958168335212e+24) ((3683 . 5625) (* 1103515244.0 -9.00719925474099e+15) -> -9.93958168335212e+24) ((3684 . 5625) (* 1103515244.0 -9.00719925474099e+15) -> -9.93958168335212e+24) ((3685 . 5625) (* 1103515244.0 -9.00719925474099e+15) -> -9.93958168335212e+24) ((3686 . 5625) (* 1103515245.0 -9.00719925474099e+15) -> -9.93958169235933e+24) ((3687 . 5625) (* 1103515245.0 -9.00719925474099e+15) -> -9.93958169235932e+24) ((3688 . 5625) (* 1103515245.0 -9.00719925474099e+15) -> -9.93958169235932e+24) ((3689 . 5625) (* 1103515245.0 -9.00719925474099e+15) -> -9.93958169235932e+24) ((3690 . 5625) (* 1103515245.0 -9.00719925474099e+15) -> -9.93958169235932e+24) ((3691 . 5625) (* 1103515246.0 -9.00719925474099e+15) -> -9.93958170136652e+24) ((3692 . 5625) (* 1103515246.0 -9.00719925474099e+15) -> -9.93958170136652e+24) ((3693 . 5625) (* 1103515246.0 -9.00719925474099e+15) -> -9.93958170136652e+24) ((3694 . 5625) (* 1103515246.0 -9.00719925474099e+15) -> -9.93958170136652e+24) ((3695 . 5625) (* 1103515246.0 -9.00719925474099e+15) -> -9.93958170136652e+24) ((3696 . 5625) (* 1103515247.0 -9.00719925474099e+15) -> -9.93958171037372e+24) ((3697 . 5625) (* 1103515247.0 -9.00719925474099e+15) -> -9.93958171037372e+24) ((3698 . 5625) (* 1103515247.0 -9.00719925474099e+15) -> -9.93958171037372e+24) ((3699 . 5625) (* 1103515247.0 -9.00719925474099e+15) -> -9.93958171037372e+24) ((3700 . 5625) (* 1103515247.0 -9.00719925474099e+15) -> -9.93958171037372e+24) ((3701 . 5625) (* 1103515243.0 12343) -> 13620688644349.0) ((3702 . 5625) (* 1103515243.0 12344) -> 13621792159592.0) ((3703 . 5625) (* 1103515243.0 12345) -> 13622895674835.0) ((3704 . 5625) (* 1103515243.0 12346) -> 13623999190078.0) ((3705 . 5625) (* 1103515243.0 12347) -> 13625102705321.0) ((3706 . 5625) (* 1103515244.0 12343) -> 13620688656692.0) ((3707 . 5625) (* 1103515244.0 12344) -> 13621792171936.0) ((3708 . 5625) (* 1103515244.0 12345) -> 13622895687180.0) ((3709 . 5625) (* 1103515244.0 12346) -> 13623999202424.0) ((3710 . 5625) (* 1103515244.0 12347) -> 13625102717668.0) ((3711 . 5625) (* 1103515245.0 12343) -> 13620688669035.0) ((3712 . 5625) (* 1103515245.0 12344) -> 13621792184280.0) ((3713 . 5625) (* 1103515245.0 12345) -> 13622895699525.0) ((3714 . 5625) (* 1103515245.0 12346) -> 13623999214770.0) ((3715 . 5625) (* 1103515245.0 12347) -> 13625102730015.0) ((3716 . 5625) (* 1103515246.0 12343) -> 13620688681378.0) ((3717 . 5625) (* 1103515246.0 12344) -> 13621792196624.0) ((3718 . 5625) (* 1103515246.0 12345) -> 13622895711870.0) ((3719 . 5625) (* 1103515246.0 12346) -> 13623999227116.0) ((3720 . 5625) (* 1103515246.0 12347) -> 13625102742362.0) ((3721 . 5625) (* 1103515247.0 12343) -> 13620688693721.0) ((3722 . 5625) (* 1103515247.0 12344) -> 13621792208968.0) ((3723 . 5625) (* 1103515247.0 12345) -> 13622895724215.0) ((3724 . 5625) (* 1103515247.0 12346) -> 13623999239462.0) ((3725 . 5625) (* 1103515247.0 12347) -> 13625102754709.0) ((3726 . 5625) (* 1103515243.0 4294967294.0) -> 4.73956187711546e+18) ((3727 . 5625) (* 1103515243.0 4294967295.0) -> 4.73956187821898e+18) ((3728 . 5625) (* 1103515243.0 4294967296.0) -> 4.73956187932249e+18) ((3729 . 5625) (* 1103515243.0 4294967297.0) -> 4.73956188042601e+18) ((3730 . 5625) (* 1103515243.0 4294967298.0) -> 4.73956188152952e+18) ((3731 . 5625) (* 1103515244.0 4294967294.0) -> 4.73956188141043e+18) ((3732 . 5625) (* 1103515244.0 4294967295.0) -> 4.73956188251394e+18) ((3733 . 5625) (* 1103515244.0 4294967296.0) -> 4.73956188361746e+18) ((3734 . 5625) (* 1103515244.0 4294967297.0) -> 4.73956188472098e+18) ((3735 . 5625) (* 1103515244.0 4294967298.0) -> 4.73956188582449e+18) ((3736 . 5625) (* 1103515245.0 4294967294.0) -> 4.7395618857054e+18) ((3737 . 5625) (* 1103515245.0 4294967295.0) -> 4.73956188680891e+18) ((3738 . 5625) (* 1103515245.0 4294967296.0) -> 4.73956188791243e+18) ((3739 . 5625) (* 1103515245.0 4294967297.0) -> 4.73956188901594e+18) ((3740 . 5625) (* 1103515245.0 4294967298.0) -> 4.73956189011946e+18) ((3741 . 5625) (* 1103515246.0 4294967294.0) -> 4.73956189000036e+18) ((3742 . 5625) (* 1103515246.0 4294967295.0) -> 4.73956189110388e+18) ((3743 . 5625) (* 1103515246.0 4294967296.0) -> 4.73956189220739e+18) ((3744 . 5625) (* 1103515246.0 4294967297.0) -> 4.73956189331091e+18) ((3745 . 5625) (* 1103515246.0 4294967298.0) -> 4.73956189441443e+18) ((3746 . 5625) (* 1103515247.0 4294967294.0) -> 4.73956189429533e+18) ((3747 . 5625) (* 1103515247.0 4294967295.0) -> 4.73956189539885e+18) ((3748 . 5625) (* 1103515247.0 4294967296.0) -> 4.73956189650236e+18) ((3749 . 5625) (* 1103515247.0 4294967297.0) -> 4.73956189760588e+18) ((3750 . 5625) (* 1103515247.0 4294967298.0) -> 4.73956189870939e+18) ((3751 . 5625) (* 631629063 -2) -> -1263258126.0) ((3752 . 5625) (* 631629063 -1) -> -631629063) ((3753 . 5625) (* 631629063 0) -> 0) ((3754 . 5625) (* 631629063 1) -> 631629063) ((3755 . 5625) (* 631629063 2) -> 1263258126.0) ((3756 . 5625) (* 631629064 -2) -> -1263258128.0) ((3757 . 5625) (* 631629064 -1) -> -631629064) ((3758 . 5625) (* 631629064 0) -> 0) ((3759 . 5625) (* 631629064 1) -> 631629064) ((3760 . 5625) (* 631629064 2) -> 1263258128.0) ((3761 . 5625) (* 631629065 -2) -> -1263258130.0) ((3762 . 5625) (* 631629065 -1) -> -631629065) ((3763 . 5625) (* 631629065 0) -> 0) ((3764 . 5625) (* 631629065 1) -> 631629065) ((3765 . 5625) (* 631629065 2) -> 1263258130.0) ((3766 . 5625) (* 631629066 -2) -> -1263258132.0) ((3767 . 5625) (* 631629066 -1) -> -631629066) ((3768 . 5625) (* 631629066 0) -> 0) ((3769 . 5625) (* 631629066 1) -> 631629066) ((3770 . 5625) (* 631629066 2) -> 1263258132.0) ((3771 . 5625) (* 631629067 -2) -> -1263258134.0) ((3772 . 5625) (* 631629067 -1) -> -631629067) ((3773 . 5625) (* 631629067 0) -> 0) ((3774 . 5625) (* 631629067 1) -> 631629067) ((3775 . 5625) (* 631629067 2) -> 1263258134.0) ((3776 . 5625) (* 631629063 -1) -> -631629063) ((3777 . 5625) (* 631629063 0) -> 0) ((3778 . 5625) (* 631629063 1) -> 631629063) ((3779 . 5625) (* 631629063 2) -> 1263258126.0) ((3780 . 5625) (* 631629063 3) -> 1894887189.0) ((3781 . 5625) (* 631629064 -1) -> -631629064) ((3782 . 5625) (* 631629064 0) -> 0) ((3783 . 5625) (* 631629064 1) -> 631629064) ((3784 . 5625) (* 631629064 2) -> 1263258128.0) ((3785 . 5625) (* 631629064 3) -> 1894887192.0) ((3786 . 5625) (* 631629065 -1) -> -631629065) ((3787 . 5625) (* 631629065 0) -> 0) ((3788 . 5625) (* 631629065 1) -> 631629065) ((3789 . 5625) (* 631629065 2) -> 1263258130.0) ((3790 . 5625) (* 631629065 3) -> 1894887195.0) ((3791 . 5625) (* 631629066 -1) -> -631629066) ((3792 . 5625) (* 631629066 0) -> 0) ((3793 . 5625) (* 631629066 1) -> 631629066) ((3794 . 5625) (* 631629066 2) -> 1263258132.0) ((3795 . 5625) (* 631629066 3) -> 1894887198.0) ((3796 . 5625) (* 631629067 -1) -> -631629067) ((3797 . 5625) (* 631629067 0) -> 0) ((3798 . 5625) (* 631629067 1) -> 631629067) ((3799 . 5625) (* 631629067 2) -> 1263258134.0) ((3800 . 5625) (* 631629067 3) -> 1894887201.0) ((3801 . 5625) (* 631629063 -3) -> -1894887189.0) ((3802 . 5625) (* 631629063 -2) -> -1263258126.0) ((3803 . 5625) (* 631629063 -1) -> -631629063) ((3804 . 5625) (* 631629063 0) -> 0) ((3805 . 5625) (* 631629063 1) -> 631629063) ((3806 . 5625) (* 631629064 -3) -> -1894887192.0) ((3807 . 5625) (* 631629064 -2) -> -1263258128.0) ((3808 . 5625) (* 631629064 -1) -> -631629064) ((3809 . 5625) (* 631629064 0) -> 0) ((3810 . 5625) (* 631629064 1) -> 631629064) ((3811 . 5625) (* 631629065 -3) -> -1894887195.0) ((3812 . 5625) (* 631629065 -2) -> -1263258130.0) ((3813 . 5625) (* 631629065 -1) -> -631629065) ((3814 . 5625) (* 631629065 0) -> 0) ((3815 . 5625) (* 631629065 1) -> 631629065) ((3816 . 5625) (* 631629066 -3) -> -1894887198.0) ((3817 . 5625) (* 631629066 -2) -> -1263258132.0) ((3818 . 5625) (* 631629066 -1) -> -631629066) ((3819 . 5625) (* 631629066 0) -> 0) ((3820 . 5625) (* 631629066 1) -> 631629066) ((3821 . 5625) (* 631629067 -3) -> -1894887201.0) ((3822 . 5625) (* 631629067 -2) -> -1263258134.0) ((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.0) ((3829 . 5625) (* 631629063 3) -> 1894887189.0) ((3830 . 5625) (* 631629063 4) -> 2526516252.0) ((3831 . 5625) (* 631629064 0) -> 0) ((3832 . 5625) (* 631629064 1) -> 631629064) ((3833 . 5625) (* 631629064 2) -> 1263258128.0) ((3834 . 5625) (* 631629064 3) -> 1894887192.0) ((3835 . 5625) (* 631629064 4) -> 2526516256.0) ((3836 . 5625) (* 631629065 0) -> 0) ((3837 . 5625) (* 631629065 1) -> 631629065) ((3838 . 5625) (* 631629065 2) -> 1263258130.0) ((3839 . 5625) (* 631629065 3) -> 1894887195.0) ((3840 . 5625) (* 631629065 4) -> 2526516260.0) ((3841 . 5625) (* 631629066 0) -> 0) ((3842 . 5625) (* 631629066 1) -> 631629066) ((3843 . 5625) (* 631629066 2) -> 1263258132.0) ((3844 . 5625) (* 631629066 3) -> 1894887198.0) ((3845 . 5625) (* 631629066 4) -> 2526516264.0) ((3846 . 5625) (* 631629067 0) -> 0) ((3847 . 5625) (* 631629067 1) -> 631629067) ((3848 . 5625) (* 631629067 2) -> 1263258134.0) ((3849 . 5625) (* 631629067 3) -> 1894887201.0) ((3850 . 5625) (* 631629067 4) -> 2526516268.0) ((3851 . 5625) (* 631629063 -4) -> -2526516252.0) ((3852 . 5625) (* 631629063 -3) -> -1894887189.0) ((3853 . 5625) (* 631629063 -2) -> -1263258126.0) ((3854 . 5625) (* 631629063 -1) -> -631629063) ((3855 . 5625) (* 631629063 0) -> 0) ((3856 . 5625) (* 631629064 -4) -> -2526516256.0) ((3857 . 5625) (* 631629064 -3) -> -1894887192.0) ((3858 . 5625) (* 631629064 -2) -> -1263258128.0) ((3859 . 5625) (* 631629064 -1) -> -631629064) ((3860 . 5625) (* 631629064 0) -> 0) ((3861 . 5625) (* 631629065 -4) -> -2526516260.0) ((3862 . 5625) (* 631629065 -3) -> -1894887195.0) ((3863 . 5625) (* 631629065 -2) -> -1263258130.0) ((3864 . 5625) (* 631629065 -1) -> -631629065) ((3865 . 5625) (* 631629065 0) -> 0) ((3866 . 5625) (* 631629066 -4) -> -2526516264.0) ((3867 . 5625) (* 631629066 -3) -> -1894887198.0) ((3868 . 5625) (* 631629066 -2) -> -1263258132.0) ((3869 . 5625) (* 631629066 -1) -> -631629066) ((3870 . 5625) (* 631629066 0) -> 0) ((3871 . 5625) (* 631629067 -4) -> -2526516268.0) ((3872 . 5625) (* 631629067 -3) -> -1894887201.0) ((3873 . 5625) (* 631629067 -2) -> -1263258134.0) ((3874 . 5625) (* 631629067 -1) -> -631629067) ((3875 . 5625) (* 631629067 0) -> 0) ((3876 . 5625) (* 631629063 1073741821) -> 6.78206540302144e+17) ((3877 . 5625) (* 631629063 1073741822) -> 6.78206540933773e+17) ((3878 . 5625) (* 631629063 1073741823) -> 6.78206541565402e+17) ((3879 . 5625) (* 631629063 1073741824.0) -> 6.78206542197031e+17) ((3880 . 5625) (* 631629063 1073741825.0) -> 6.7820654282866e+17) ((3881 . 5625) (* 631629064 1073741821) -> 6.78206541375886e+17) ((3882 . 5625) (* 631629064 1073741822) -> 6.78206542007515e+17) ((3883 . 5625) (* 631629064 1073741823) -> 6.78206542639144e+17) ((3884 . 5625) (* 631629064 1073741824.0) -> 6.78206543270773e+17) ((3885 . 5625) (* 631629064 1073741825.0) -> 6.78206543902402e+17) ((3886 . 5625) (* 631629065 1073741821) -> 6.78206542449627e+17) ((3887 . 5625) (* 631629065 1073741822) -> 6.78206543081256e+17) ((3888 . 5625) (* 631629065 1073741823) -> 6.78206543712886e+17) ((3889 . 5625) (* 631629065 1073741824.0) -> 6.78206544344515e+17) ((3890 . 5625) (* 631629065 1073741825.0) -> 6.78206544976144e+17) ((3891 . 5625) (* 631629066 1073741821) -> 6.78206543523369e+17) ((3892 . 5625) (* 631629066 1073741822) -> 6.78206544154998e+17) ((3893 . 5625) (* 631629066 1073741823) -> 6.78206544786627e+17) ((3894 . 5625) (* 631629066 1073741824.0) -> 6.78206545418256e+17) ((3895 . 5625) (* 631629066 1073741825.0) -> 6.78206546049885e+17) ((3896 . 5625) (* 631629067 1073741821) -> 6.78206544597111e+17) ((3897 . 5625) (* 631629067 1073741822) -> 6.7820654522874e+17) ((3898 . 5625) (* 631629067 1073741823) -> 6.78206545860369e+17) ((3899 . 5625) (* 631629067 1073741824.0) -> 6.78206546491998e+17) ((3900 . 5625) (* 631629067 1073741825.0) -> 6.78206547123627e+17) ((3901 . 5625) (* 631629063 -1073741826.0) -> -6.78206543460289e+17) ((3902 . 5625) (* 631629063 -1073741825.0) -> -6.7820654282866e+17) ((3903 . 5625) (* 631629063 -1073741824) -> -6.78206542197031e+17) ((3904 . 5625) (* 631629063 -1073741823) -> -6.78206541565402e+17) ((3905 . 5625) (* 631629063 -1073741822) -> -6.78206540933773e+17) ((3906 . 5625) (* 631629064 -1073741826.0) -> -6.78206544534031e+17) ((3907 . 5625) (* 631629064 -1073741825.0) -> -6.78206543902402e+17) ((3908 . 5625) (* 631629064 -1073741824) -> -6.78206543270773e+17) ((3909 . 5625) (* 631629064 -1073741823) -> -6.78206542639144e+17) ((3910 . 5625) (* 631629064 -1073741822) -> -6.78206542007515e+17) ((3911 . 5625) (* 631629065 -1073741826.0) -> -6.78206545607773e+17) ((3912 . 5625) (* 631629065 -1073741825.0) -> -6.78206544976144e+17) ((3913 . 5625) (* 631629065 -1073741824) -> -6.78206544344515e+17) ((3914 . 5625) (* 631629065 -1073741823) -> -6.78206543712886e+17) ((3915 . 5625) (* 631629065 -1073741822) -> -6.78206543081256e+17) ((3916 . 5625) (* 631629066 -1073741826.0) -> -6.78206546681514e+17) ((3917 . 5625) (* 631629066 -1073741825.0) -> -6.78206546049885e+17) ((3918 . 5625) (* 631629066 -1073741824) -> -6.78206545418256e+17) ((3919 . 5625) (* 631629066 -1073741823) -> -6.78206544786627e+17) ((3920 . 5625) (* 631629066 -1073741822) -> -6.78206544154998e+17) ((3921 . 5625) (* 631629067 -1073741826.0) -> -6.78206547755256e+17) ((3922 . 5625) (* 631629067 -1073741825.0) -> -6.78206547123627e+17) ((3923 . 5625) (* 631629067 -1073741824) -> -6.78206546491998e+17) ((3924 . 5625) (* 631629067 -1073741823) -> -6.78206545860369e+17) ((3925 . 5625) (* 631629067 -1073741822) -> -6.7820654522874e+17) ((3926 . 5625) (* 631629063 1073741822.0) -> 6.78206540933773e+17) ((3927 . 5625) (* 631629063 1073741823.0) -> 6.78206541565402e+17) ((3928 . 5625) (* 631629063 1073741824.0) -> 6.78206542197031e+17) ((3929 . 5625) (* 631629063 1073741825.0) -> 6.7820654282866e+17) ((3930 . 5625) (* 631629063 1073741826.0) -> 6.78206543460289e+17) ((3931 . 5625) (* 631629064 1073741822.0) -> 6.78206542007515e+17) ((3932 . 5625) (* 631629064 1073741823.0) -> 6.78206542639144e+17) ((3933 . 5625) (* 631629064 1073741824.0) -> 6.78206543270773e+17) ((3934 . 5625) (* 631629064 1073741825.0) -> 6.78206543902402e+17) ((3935 . 5625) (* 631629064 1073741826.0) -> 6.78206544534031e+17) ((3936 . 5625) (* 631629065 1073741822.0) -> 6.78206543081256e+17) ((3937 . 5625) (* 631629065 1073741823.0) -> 6.78206543712886e+17) ((3938 . 5625) (* 631629065 1073741824.0) -> 6.78206544344515e+17) ((3939 . 5625) (* 631629065 1073741825.0) -> 6.78206544976144e+17) ((3940 . 5625) (* 631629065 1073741826.0) -> 6.78206545607773e+17) ((3941 . 5625) (* 631629066 1073741822.0) -> 6.78206544154998e+17) ((3942 . 5625) (* 631629066 1073741823.0) -> 6.78206544786627e+17) ((3943 . 5625) (* 631629066 1073741824.0) -> 6.78206545418256e+17) ((3944 . 5625) (* 631629066 1073741825.0) -> 6.78206546049885e+17) ((3945 . 5625) (* 631629066 1073741826.0) -> 6.78206546681514e+17) ((3946 . 5625) (* 631629067 1073741822.0) -> 6.7820654522874e+17) ((3947 . 5625) (* 631629067 1073741823.0) -> 6.78206545860369e+17) ((3948 . 5625) (* 631629067 1073741824.0) -> 6.78206546491998e+17) ((3949 . 5625) (* 631629067 1073741825.0) -> 6.78206547123627e+17) ((3950 . 5625) (* 631629067 1073741826.0) -> 6.78206547755256e+17) ((3951 . 5625) (* 631629063 -1073741827.0) -> -6.78206544091918e+17) ((3952 . 5625) (* 631629063 -1073741826.0) -> -6.78206543460289e+17) ((3953 . 5625) (* 631629063 -1073741825.0) -> -6.7820654282866e+17) ((3954 . 5625) (* 631629063 -1073741824.0) -> -6.78206542197031e+17) ((3955 . 5625) (* 631629063 -1073741823.0) -> -6.78206541565402e+17) ((3956 . 5625) (* 631629064 -1073741827.0) -> -6.7820654516566e+17) ((3957 . 5625) (* 631629064 -1073741826.0) -> -6.78206544534031e+17) ((3958 . 5625) (* 631629064 -1073741825.0) -> -6.78206543902402e+17) ((3959 . 5625) (* 631629064 -1073741824.0) -> -6.78206543270773e+17) ((3960 . 5625) (* 631629064 -1073741823.0) -> -6.78206542639144e+17) ((3961 . 5625) (* 631629065 -1073741827.0) -> -6.78206546239402e+17) ((3962 . 5625) (* 631629065 -1073741826.0) -> -6.78206545607773e+17) ((3963 . 5625) (* 631629065 -1073741825.0) -> -6.78206544976144e+17) ((3964 . 5625) (* 631629065 -1073741824.0) -> -6.78206544344515e+17) ((3965 . 5625) (* 631629065 -1073741823.0) -> -6.78206543712886e+17) ((3966 . 5625) (* 631629066 -1073741827.0) -> -6.78206547313144e+17) ((3967 . 5625) (* 631629066 -1073741826.0) -> -6.78206546681514e+17) ((3968 . 5625) (* 631629066 -1073741825.0) -> -6.78206546049885e+17) ((3969 . 5625) (* 631629066 -1073741824.0) -> -6.78206545418256e+17) ((3970 . 5625) (* 631629066 -1073741823.0) -> -6.78206544786627e+17) ((3971 . 5625) (* 631629067 -1073741827.0) -> -6.78206548386885e+17) ((3972 . 5625) (* 631629067 -1073741826.0) -> -6.78206547755256e+17) ((3973 . 5625) (* 631629067 -1073741825.0) -> -6.78206547123627e+17) ((3974 . 5625) (* 631629067 -1073741824.0) -> -6.78206546491998e+17) ((3975 . 5625) (* 631629067 -1073741823.0) -> -6.78206545860369e+17) ((3976 . 5625) (* 631629063 1103515243.0) -> 6.97012298942307e+17) ((3977 . 5625) (* 631629063 1103515244.0) -> 6.97012299573936e+17) ((3978 . 5625) (* 631629063 1103515245.0) -> 6.97012300205565e+17) ((3979 . 5625) (* 631629063 1103515246.0) -> 6.97012300837194e+17) ((3980 . 5625) (* 631629063 1103515247.0) -> 6.97012301468824e+17) ((3981 . 5625) (* 631629064 1103515243.0) -> 6.97012300045823e+17) ((3982 . 5625) (* 631629064 1103515244.0) -> 6.97012300677452e+17) ((3983 . 5625) (* 631629064 1103515245.0) -> 6.97012301309081e+17) ((3984 . 5625) (* 631629064 1103515246.0) -> 6.9701230194071e+17) ((3985 . 5625) (* 631629064 1103515247.0) -> 6.97012302572339e+17) ((3986 . 5625) (* 631629065 1103515243.0) -> 6.97012301149338e+17) ((3987 . 5625) (* 631629065 1103515244.0) -> 6.97012301780967e+17) ((3988 . 5625) (* 631629065 1103515245.0) -> 6.97012302412596e+17) ((3989 . 5625) (* 631629065 1103515246.0) -> 6.97012303044225e+17) ((3990 . 5625) (* 631629065 1103515247.0) -> 6.97012303675854e+17) ((3991 . 5625) (* 631629066 1103515243.0) -> 6.97012302252853e+17) ((3992 . 5625) (* 631629066 1103515244.0) -> 6.97012302884482e+17) ((3993 . 5625) (* 631629066 1103515245.0) -> 6.97012303516111e+17) ((3994 . 5625) (* 631629066 1103515246.0) -> 6.9701230414774e+17) ((3995 . 5625) (* 631629066 1103515247.0) -> 6.97012304779369e+17) ((3996 . 5625) (* 631629067 1103515243.0) -> 6.97012303356368e+17) ((3997 . 5625) (* 631629067 1103515244.0) -> 6.97012303987997e+17) ((3998 . 5625) (* 631629067 1103515245.0) -> 6.97012304619626e+17) ((3999 . 5625) (* 631629067 1103515246.0) -> 6.97012305251255e+17) ((4000 . 5625) (* 631629067 1103515247.0) -> 6.97012305882885e+17) ((4001 . 5625) (* 631629063 631629063) -> 3.98955273226258e+17) ((4002 . 5625) (* 631629063 631629064) -> 3.98955273857887e+17) ((4003 . 5625) (* 631629063 631629065) -> 3.98955274489516e+17) ((4004 . 5625) (* 631629063 631629066) -> 3.98955275121145e+17) ((4005 . 5625) (* 631629063 631629067) -> 3.98955275752774e+17) ((4006 . 5625) (* 631629064 631629063) -> 3.98955273857887e+17) ((4007 . 5625) (* 631629064 631629064) -> 3.98955274489516e+17) ((4008 . 5625) (* 631629064 631629065) -> 3.98955275121145e+17) ((4009 . 5625) (* 631629064 631629066) -> 3.98955275752774e+17) ((4010 . 5625) (* 631629064 631629067) -> 3.98955276384403e+17) ((4011 . 5625) (* 631629065 631629063) -> 3.98955274489516e+17) ((4012 . 5625) (* 631629065 631629064) -> 3.98955275121145e+17) ((4013 . 5625) (* 631629065 631629065) -> 3.98955275752774e+17) ((4014 . 5625) (* 631629065 631629066) -> 3.98955276384403e+17) ((4015 . 5625) (* 631629065 631629067) -> 3.98955277016032e+17) ((4016 . 5625) (* 631629066 631629063) -> 3.98955275121145e+17) ((4017 . 5625) (* 631629066 631629064) -> 3.98955275752774e+17) ((4018 . 5625) (* 631629066 631629065) -> 3.98955276384403e+17) ((4019 . 5625) (* 631629066 631629066) -> 3.98955277016032e+17) ((4020 . 5625) (* 631629066 631629067) -> 3.98955277647661e+17) ((4021 . 5625) (* 631629067 631629063) -> 3.98955275752774e+17) ((4022 . 5625) (* 631629067 631629064) -> 3.98955276384403e+17) ((4023 . 5625) (* 631629067 631629065) -> 3.98955277016032e+17) ((4024 . 5625) (* 631629067 631629066) -> 3.98955277647661e+17) ((4025 . 5625) (* 631629067 631629067) -> 3.9895527827929e+17) ((4026 . 5625) (* 631629063 9.00719925474099e+15) -> 5.68920882552635e+24) ((4027 . 5625) (* 631629063 9.00719925474099e+15) -> 5.68920882552635e+24) ((4028 . 5625) (* 631629063 9.00719925474099e+15) -> 5.68920882552635e+24) ((4029 . 5625) (* 631629063 9.00719925474099e+15) -> 5.68920882552635e+24) ((4030 . 5625) (* 631629063 9.00719925474099e+15) -> 5.68920882552635e+24) ((4031 . 5625) (* 631629064 9.00719925474099e+15) -> 5.68920883453355e+24) ((4032 . 5625) (* 631629064 9.00719925474099e+15) -> 5.68920883453355e+24) ((4033 . 5625) (* 631629064 9.00719925474099e+15) -> 5.68920883453355e+24) ((4034 . 5625) (* 631629064 9.00719925474099e+15) -> 5.68920883453355e+24) ((4035 . 5625) (* 631629064 9.00719925474099e+15) -> 5.68920883453355e+24) ((4036 . 5625) (* 631629065 9.00719925474099e+15) -> 5.68920884354075e+24) ((4037 . 5625) (* 631629065 9.00719925474099e+15) -> 5.68920884354075e+24) ((4038 . 5625) (* 631629065 9.00719925474099e+15) -> 5.68920884354075e+24) ((4039 . 5625) (* 631629065 9.00719925474099e+15) -> 5.68920884354075e+24) ((4040 . 5625) (* 631629065 9.00719925474099e+15) -> 5.68920884354075e+24) ((4041 . 5625) (* 631629066 9.00719925474099e+15) -> 5.68920885254795e+24) ((4042 . 5625) (* 631629066 9.00719925474099e+15) -> 5.68920885254795e+24) ((4043 . 5625) (* 631629066 9.00719925474099e+15) -> 5.68920885254795e+24) ((4044 . 5625) (* 631629066 9.00719925474099e+15) -> 5.68920885254795e+24) ((4045 . 5625) (* 631629066 9.00719925474099e+15) -> 5.68920885254795e+24) ((4046 . 5625) (* 631629067 9.00719925474099e+15) -> 5.68920886155515e+24) ((4047 . 5625) (* 631629067 9.00719925474099e+15) -> 5.68920886155515e+24) ((4048 . 5625) (* 631629067 9.00719925474099e+15) -> 5.68920886155515e+24) ((4049 . 5625) (* 631629067 9.00719925474099e+15) -> 5.68920886155515e+24) ((4050 . 5625) (* 631629067 9.00719925474099e+15) -> 5.68920886155515e+24) ((4051 . 5625) (* 631629063 -9.00719925474099e+15) -> -5.68920882552635e+24) ((4052 . 5625) (* 631629063 -9.00719925474099e+15) -> -5.68920882552635e+24) ((4053 . 5625) (* 631629063 -9.00719925474099e+15) -> -5.68920882552635e+24) ((4054 . 5625) (* 631629063 -9.00719925474099e+15) -> -5.68920882552635e+24) ((4055 . 5625) (* 631629063 -9.00719925474099e+15) -> -5.68920882552635e+24) ((4056 . 5625) (* 631629064 -9.00719925474099e+15) -> -5.68920883453355e+24) ((4057 . 5625) (* 631629064 -9.00719925474099e+15) -> -5.68920883453355e+24) ((4058 . 5625) (* 631629064 -9.00719925474099e+15) -> -5.68920883453355e+24) ((4059 . 5625) (* 631629064 -9.00719925474099e+15) -> -5.68920883453355e+24) ((4060 . 5625) (* 631629064 -9.00719925474099e+15) -> -5.68920883453355e+24) ((4061 . 5625) (* 631629065 -9.00719925474099e+15) -> -5.68920884354075e+24) ((4062 . 5625) (* 631629065 -9.00719925474099e+15) -> -5.68920884354075e+24) ((4063 . 5625) (* 631629065 -9.00719925474099e+15) -> -5.68920884354075e+24) ((4064 . 5625) (* 631629065 -9.00719925474099e+15) -> -5.68920884354075e+24) ((4065 . 5625) (* 631629065 -9.00719925474099e+15) -> -5.68920884354075e+24) ((4066 . 5625) (* 631629066 -9.00719925474099e+15) -> -5.68920885254795e+24) ((4067 . 5625) (* 631629066 -9.00719925474099e+15) -> -5.68920885254795e+24) ((4068 . 5625) (* 631629066 -9.00719925474099e+15) -> -5.68920885254795e+24) ((4069 . 5625) (* 631629066 -9.00719925474099e+15) -> -5.68920885254795e+24) ((4070 . 5625) (* 631629066 -9.00719925474099e+15) -> -5.68920885254795e+24) ((4071 . 5625) (* 631629067 -9.00719925474099e+15) -> -5.68920886155515e+24) ((4072 . 5625) (* 631629067 -9.00719925474099e+15) -> -5.68920886155515e+24) ((4073 . 5625) (* 631629067 -9.00719925474099e+15) -> -5.68920886155515e+24) ((4074 . 5625) (* 631629067 -9.00719925474099e+15) -> -5.68920886155515e+24) ((4075 . 5625) (* 631629067 -9.00719925474099e+15) -> -5.68920886155515e+24) ((4076 . 5625) (* 631629063 12343) -> 7796197524609.0) ((4077 . 5625) (* 631629063 12344) -> 7796829153672.0) ((4078 . 5625) (* 631629063 12345) -> 7797460782735.0) ((4079 . 5625) (* 631629063 12346) -> 7798092411798.0) ((4080 . 5625) (* 631629063 12347) -> 7798724040861.0) ((4081 . 5625) (* 631629064 12343) -> 7796197536952.0) ((4082 . 5625) (* 631629064 12344) -> 7796829166016.0) ((4083 . 5625) (* 631629064 12345) -> 7797460795080.0) ((4084 . 5625) (* 631629064 12346) -> 7798092424144.0) ((4085 . 5625) (* 631629064 12347) -> 7798724053208.0) ((4086 . 5625) (* 631629065 12343) -> 7796197549295.0) ((4087 . 5625) (* 631629065 12344) -> 7796829178360.0) ((4088 . 5625) (* 631629065 12345) -> 7797460807425.0) ((4089 . 5625) (* 631629065 12346) -> 7798092436490.0) ((4090 . 5625) (* 631629065 12347) -> 7798724065555.0) ((4091 . 5625) (* 631629066 12343) -> 7796197561638.0) ((4092 . 5625) (* 631629066 12344) -> 7796829190704.0) ((4093 . 5625) (* 631629066 12345) -> 7797460819770.0) ((4094 . 5625) (* 631629066 12346) -> 7798092448836.0) ((4095 . 5625) (* 631629066 12347) -> 7798724077902.0) ((4096 . 5625) (* 631629067 12343) -> 7796197573981.0) ((4097 . 5625) (* 631629067 12344) -> 7796829203048.0) ((4098 . 5625) (* 631629067 12345) -> 7797460832115.0) ((4099 . 5625) (* 631629067 12346) -> 7798092461182.0) ((4100 . 5625) (* 631629067 12347) -> 7798724090249.0) ((4101 . 5625) (* 631629063 4294967294.0) -> 2.71282616752487e+18) ((4102 . 5625) (* 631629063 4294967295.0) -> 2.71282616815649e+18) ((4103 . 5625) (* 631629063 4294967296.0) -> 2.71282616878812e+18) ((4104 . 5625) (* 631629063 4294967297.0) -> 2.71282616941975e+18) ((4105 . 5625) (* 631629063 4294967298.0) -> 2.71282617005138e+18) ((4106 . 5625) (* 631629064 4294967294.0) -> 2.71282617181983e+18) ((4107 . 5625) (* 631629064 4294967295.0) -> 2.71282617245146e+18) ((4108 . 5625) (* 631629064 4294967296.0) -> 2.71282617308309e+18) ((4109 . 5625) (* 631629064 4294967297.0) -> 2.71282617371472e+18) ((4110 . 5625) (* 631629064 4294967298.0) -> 2.71282617434635e+18) ((4111 . 5625) (* 631629065 4294967294.0) -> 2.7128261761148e+18) ((4112 . 5625) (* 631629065 4294967295.0) -> 2.71282617674643e+18) ((4113 . 5625) (* 631629065 4294967296.0) -> 2.71282617737806e+18) ((4114 . 5625) (* 631629065 4294967297.0) -> 2.71282617800969e+18) ((4115 . 5625) (* 631629065 4294967298.0) -> 2.71282617864132e+18) ((4116 . 5625) (* 631629066 4294967294.0) -> 2.71282618040977e+18) ((4117 . 5625) (* 631629066 4294967295.0) -> 2.7128261810414e+18) ((4118 . 5625) (* 631629066 4294967296.0) -> 2.71282618167303e+18) ((4119 . 5625) (* 631629066 4294967297.0) -> 2.71282618230465e+18) ((4120 . 5625) (* 631629066 4294967298.0) -> 2.71282618293628e+18) ((4121 . 5625) (* 631629067 4294967294.0) -> 2.71282618470473e+18) ((4122 . 5625) (* 631629067 4294967295.0) -> 2.71282618533636e+18) ((4123 . 5625) (* 631629067 4294967296.0) -> 2.71282618596799e+18) ((4124 . 5625) (* 631629067 4294967297.0) -> 2.71282618659962e+18) ((4125 . 5625) (* 631629067 4294967298.0) -> 2.71282618723125e+18) ((4126 . 5625) (* 9.00719925474099e+15 -2) -> -1.8014398509482e+16) ((4127 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4128 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4129 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4130 . 5625) (* 9.00719925474099e+15 2) -> 1.8014398509482e+16) ((4131 . 5625) (* 9.00719925474099e+15 -2) -> -1.8014398509482e+16) ((4132 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4133 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4134 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4135 . 5625) (* 9.00719925474099e+15 2) -> 1.8014398509482e+16) ((4136 . 5625) (* 9.00719925474099e+15 -2) -> -1.8014398509482e+16) ((4137 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4138 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4139 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4140 . 5625) (* 9.00719925474099e+15 2) -> 1.8014398509482e+16) ((4141 . 5625) (* 9.00719925474099e+15 -2) -> -1.8014398509482e+16) ((4142 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4143 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4144 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4145 . 5625) (* 9.00719925474099e+15 2) -> 1.8014398509482e+16) ((4146 . 5625) (* 9.00719925474099e+15 -2) -> -1.8014398509482e+16) ((4147 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4148 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4149 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4150 . 5625) (* 9.00719925474099e+15 2) -> 1.8014398509482e+16) ((4151 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4152 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4153 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4154 . 5625) (* 9.00719925474099e+15 2) -> 1.8014398509482e+16) ((4155 . 5625) (* 9.00719925474099e+15 3) -> 2.7021597764223e+16) ((4156 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4157 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4158 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4159 . 5625) (* 9.00719925474099e+15 2) -> 1.8014398509482e+16) ((4160 . 5625) (* 9.00719925474099e+15 3) -> 2.7021597764223e+16) ((4161 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4162 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4163 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4164 . 5625) (* 9.00719925474099e+15 2) -> 1.8014398509482e+16) ((4165 . 5625) (* 9.00719925474099e+15 3) -> 2.7021597764223e+16) ((4166 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4167 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4168 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4169 . 5625) (* 9.00719925474099e+15 2) -> 1.8014398509482e+16) ((4170 . 5625) (* 9.00719925474099e+15 3) -> 2.7021597764223e+16) ((4171 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4172 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4173 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4174 . 5625) (* 9.00719925474099e+15 2) -> 1.8014398509482e+16) ((4175 . 5625) (* 9.00719925474099e+15 3) -> 2.7021597764223e+16) ((4176 . 5625) (* 9.00719925474099e+15 -3) -> -2.7021597764223e+16) ((4177 . 5625) (* 9.00719925474099e+15 -2) -> -1.8014398509482e+16) ((4178 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4179 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4180 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4181 . 5625) (* 9.00719925474099e+15 -3) -> -2.7021597764223e+16) ((4182 . 5625) (* 9.00719925474099e+15 -2) -> -1.8014398509482e+16) ((4183 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4184 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4185 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4186 . 5625) (* 9.00719925474099e+15 -3) -> -2.7021597764223e+16) ((4187 . 5625) (* 9.00719925474099e+15 -2) -> -1.8014398509482e+16) ((4188 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4189 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4190 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4191 . 5625) (* 9.00719925474099e+15 -3) -> -2.7021597764223e+16) ((4192 . 5625) (* 9.00719925474099e+15 -2) -> -1.8014398509482e+16) ((4193 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4194 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4195 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4196 . 5625) (* 9.00719925474099e+15 -3) -> -2.7021597764223e+16) ((4197 . 5625) (* 9.00719925474099e+15 -2) -> -1.8014398509482e+16) ((4198 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4199 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4200 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4201 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4202 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4203 . 5625) (* 9.00719925474099e+15 2) -> 1.8014398509482e+16) ((4204 . 5625) (* 9.00719925474099e+15 3) -> 2.7021597764223e+16) ((4205 . 5625) (* 9.00719925474099e+15 4) -> 3.6028797018964e+16) ((4206 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4207 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4208 . 5625) (* 9.00719925474099e+15 2) -> 1.8014398509482e+16) ((4209 . 5625) (* 9.00719925474099e+15 3) -> 2.7021597764223e+16) ((4210 . 5625) (* 9.00719925474099e+15 4) -> 3.6028797018964e+16) ((4211 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4212 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4213 . 5625) (* 9.00719925474099e+15 2) -> 1.8014398509482e+16) ((4214 . 5625) (* 9.00719925474099e+15 3) -> 2.7021597764223e+16) ((4215 . 5625) (* 9.00719925474099e+15 4) -> 3.6028797018964e+16) ((4216 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4217 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4218 . 5625) (* 9.00719925474099e+15 2) -> 1.8014398509482e+16) ((4219 . 5625) (* 9.00719925474099e+15 3) -> 2.7021597764223e+16) ((4220 . 5625) (* 9.00719925474099e+15 4) -> 3.6028797018964e+16) ((4221 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4222 . 5625) (* 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4223 . 5625) (* 9.00719925474099e+15 2) -> 1.8014398509482e+16) ((4224 . 5625) (* 9.00719925474099e+15 3) -> 2.7021597764223e+16) ((4225 . 5625) (* 9.00719925474099e+15 4) -> 3.6028797018964e+16) ((4226 . 5625) (* 9.00719925474099e+15 -4) -> -3.6028797018964e+16) ((4227 . 5625) (* 9.00719925474099e+15 -3) -> -2.7021597764223e+16) ((4228 . 5625) (* 9.00719925474099e+15 -2) -> -1.8014398509482e+16) ((4229 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4230 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4231 . 5625) (* 9.00719925474099e+15 -4) -> -3.6028797018964e+16) ((4232 . 5625) (* 9.00719925474099e+15 -3) -> -2.7021597764223e+16) ((4233 . 5625) (* 9.00719925474099e+15 -2) -> -1.8014398509482e+16) ((4234 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4235 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4236 . 5625) (* 9.00719925474099e+15 -4) -> -3.6028797018964e+16) ((4237 . 5625) (* 9.00719925474099e+15 -3) -> -2.7021597764223e+16) ((4238 . 5625) (* 9.00719925474099e+15 -2) -> -1.8014398509482e+16) ((4239 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4240 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4241 . 5625) (* 9.00719925474099e+15 -4) -> -3.6028797018964e+16) ((4242 . 5625) (* 9.00719925474099e+15 -3) -> -2.7021597764223e+16) ((4243 . 5625) (* 9.00719925474099e+15 -2) -> -1.8014398509482e+16) ((4244 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4245 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4246 . 5625) (* 9.00719925474099e+15 -4) -> -3.6028797018964e+16) ((4247 . 5625) (* 9.00719925474099e+15 -3) -> -2.7021597764223e+16) ((4248 . 5625) (* 9.00719925474099e+15 -2) -> -1.8014398509482e+16) ((4249 . 5625) (* 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4250 . 5625) (* 9.00719925474099e+15 0) -> 0.0) ((4251 . 5625) (* 9.00719925474099e+15 1073741821) -> 9.67140652989543e+24) ((4252 . 5625) (* 9.00719925474099e+15 1073741822) -> 9.67140653890263e+24) ((4253 . 5625) (* 9.00719925474099e+15 1073741823) -> 9.67140654790983e+24) ((4254 . 5625) (* 9.00719925474099e+15 1073741824.0) -> 9.67140655691703e+24) ((4255 . 5625) (* 9.00719925474099e+15 1073741825.0) -> 9.67140656592423e+24) ((4256 . 5625) (* 9.00719925474099e+15 1073741821) -> 9.67140652989543e+24) ((4257 . 5625) (* 9.00719925474099e+15 1073741822) -> 9.67140653890263e+24) ((4258 . 5625) (* 9.00719925474099e+15 1073741823) -> 9.67140654790983e+24) ((4259 . 5625) (* 9.00719925474099e+15 1073741824.0) -> 9.67140655691703e+24) ((4260 . 5625) (* 9.00719925474099e+15 1073741825.0) -> 9.67140656592423e+24) ((4261 . 5625) (* 9.00719925474099e+15 1073741821) -> 9.67140652989544e+24) ((4262 . 5625) (* 9.00719925474099e+15 1073741822) -> 9.67140653890263e+24) ((4263 . 5625) (* 9.00719925474099e+15 1073741823) -> 9.67140654790983e+24) ((4264 . 5625) (* 9.00719925474099e+15 1073741824.0) -> 9.67140655691703e+24) ((4265 . 5625) (* 9.00719925474099e+15 1073741825.0) -> 9.67140656592423e+24) ((4266 . 5625) (* 9.00719925474099e+15 1073741821) -> 9.67140652989544e+24) ((4267 . 5625) (* 9.00719925474099e+15 1073741822) -> 9.67140653890263e+24) ((4268 . 5625) (* 9.00719925474099e+15 1073741823) -> 9.67140654790983e+24) ((4269 . 5625) (* 9.00719925474099e+15 1073741824.0) -> 9.67140655691703e+24) ((4270 . 5625) (* 9.00719925474099e+15 1073741825.0) -> 9.67140656592423e+24) ((4271 . 5625) (* 9.00719925474099e+15 1073741821) -> 9.67140652989544e+24) ((4272 . 5625) (* 9.00719925474099e+15 1073741822) -> 9.67140653890264e+24) ((4273 . 5625) (* 9.00719925474099e+15 1073741823) -> 9.67140654790984e+24) ((4274 . 5625) (* 9.00719925474099e+15 1073741824.0) -> 9.67140655691704e+24) ((4275 . 5625) (* 9.00719925474099e+15 1073741825.0) -> 9.67140656592423e+24) ((4276 . 5625) (* 9.00719925474099e+15 -1073741826.0) -> -9.67140657493143e+24) ((4277 . 5625) (* 9.00719925474099e+15 -1073741825.0) -> -9.67140656592423e+24) ((4278 . 5625) (* 9.00719925474099e+15 -1073741824) -> -9.67140655691703e+24) ((4279 . 5625) (* 9.00719925474099e+15 -1073741823) -> -9.67140654790983e+24) ((4280 . 5625) (* 9.00719925474099e+15 -1073741822) -> -9.67140653890263e+24) ((4281 . 5625) (* 9.00719925474099e+15 -1073741826.0) -> -9.67140657493143e+24) ((4282 . 5625) (* 9.00719925474099e+15 -1073741825.0) -> -9.67140656592423e+24) ((4283 . 5625) (* 9.00719925474099e+15 -1073741824) -> -9.67140655691703e+24) ((4284 . 5625) (* 9.00719925474099e+15 -1073741823) -> -9.67140654790983e+24) ((4285 . 5625) (* 9.00719925474099e+15 -1073741822) -> -9.67140653890263e+24) ((4286 . 5625) (* 9.00719925474099e+15 -1073741826.0) -> -9.67140657493143e+24) ((4287 . 5625) (* 9.00719925474099e+15 -1073741825.0) -> -9.67140656592423e+24) ((4288 . 5625) (* 9.00719925474099e+15 -1073741824) -> -9.67140655691703e+24) ((4289 . 5625) (* 9.00719925474099e+15 -1073741823) -> -9.67140654790983e+24) ((4290 . 5625) (* 9.00719925474099e+15 -1073741822) -> -9.67140653890263e+24) ((4291 . 5625) (* 9.00719925474099e+15 -1073741826.0) -> -9.67140657493143e+24) ((4292 . 5625) (* 9.00719925474099e+15 -1073741825.0) -> -9.67140656592423e+24) ((4293 . 5625) (* 9.00719925474099e+15 -1073741824) -> -9.67140655691703e+24) ((4294 . 5625) (* 9.00719925474099e+15 -1073741823) -> -9.67140654790983e+24) ((4295 . 5625) (* 9.00719925474099e+15 -1073741822) -> -9.67140653890263e+24) ((4296 . 5625) (* 9.00719925474099e+15 -1073741826.0) -> -9.67140657493143e+24) ((4297 . 5625) (* 9.00719925474099e+15 -1073741825.0) -> -9.67140656592423e+24) ((4298 . 5625) (* 9.00719925474099e+15 -1073741824) -> -9.67140655691704e+24) ((4299 . 5625) (* 9.00719925474099e+15 -1073741823) -> -9.67140654790984e+24) ((4300 . 5625) (* 9.00719925474099e+15 -1073741822) -> -9.67140653890264e+24) ((4301 . 5625) (* 9.00719925474099e+15 1073741822.0) -> 9.67140653890263e+24) ((4302 . 5625) (* 9.00719925474099e+15 1073741823.0) -> 9.67140654790983e+24) ((4303 . 5625) (* 9.00719925474099e+15 1073741824.0) -> 9.67140655691703e+24) ((4304 . 5625) (* 9.00719925474099e+15 1073741825.0) -> 9.67140656592423e+24) ((4305 . 5625) (* 9.00719925474099e+15 1073741826.0) -> 9.67140657493143e+24) ((4306 . 5625) (* 9.00719925474099e+15 1073741822.0) -> 9.67140653890263e+24) ((4307 . 5625) (* 9.00719925474099e+15 1073741823.0) -> 9.67140654790983e+24) ((4308 . 5625) (* 9.00719925474099e+15 1073741824.0) -> 9.67140655691703e+24) ((4309 . 5625) (* 9.00719925474099e+15 1073741825.0) -> 9.67140656592423e+24) ((4310 . 5625) (* 9.00719925474099e+15 1073741826.0) -> 9.67140657493143e+24) ((4311 . 5625) (* 9.00719925474099e+15 1073741822.0) -> 9.67140653890263e+24) ((4312 . 5625) (* 9.00719925474099e+15 1073741823.0) -> 9.67140654790983e+24) ((4313 . 5625) (* 9.00719925474099e+15 1073741824.0) -> 9.67140655691703e+24) ((4314 . 5625) (* 9.00719925474099e+15 1073741825.0) -> 9.67140656592423e+24) ((4315 . 5625) (* 9.00719925474099e+15 1073741826.0) -> 9.67140657493143e+24) ((4316 . 5625) (* 9.00719925474099e+15 1073741822.0) -> 9.67140653890263e+24) ((4317 . 5625) (* 9.00719925474099e+15 1073741823.0) -> 9.67140654790983e+24) ((4318 . 5625) (* 9.00719925474099e+15 1073741824.0) -> 9.67140655691703e+24) ((4319 . 5625) (* 9.00719925474099e+15 1073741825.0) -> 9.67140656592423e+24) ((4320 . 5625) (* 9.00719925474099e+15 1073741826.0) -> 9.67140657493143e+24) ((4321 . 5625) (* 9.00719925474099e+15 1073741822.0) -> 9.67140653890264e+24) ((4322 . 5625) (* 9.00719925474099e+15 1073741823.0) -> 9.67140654790984e+24) ((4323 . 5625) (* 9.00719925474099e+15 1073741824.0) -> 9.67140655691704e+24) ((4324 . 5625) (* 9.00719925474099e+15 1073741825.0) -> 9.67140656592423e+24) ((4325 . 5625) (* 9.00719925474099e+15 1073741826.0) -> 9.67140657493143e+24) ((4326 . 5625) (* 9.00719925474099e+15 -1073741827.0) -> -9.67140658393863e+24) ((4327 . 5625) (* 9.00719925474099e+15 -1073741826.0) -> -9.67140657493143e+24) ((4328 . 5625) (* 9.00719925474099e+15 -1073741825.0) -> -9.67140656592423e+24) ((4329 . 5625) (* 9.00719925474099e+15 -1073741824.0) -> -9.67140655691703e+24) ((4330 . 5625) (* 9.00719925474099e+15 -1073741823.0) -> -9.67140654790983e+24) ((4331 . 5625) (* 9.00719925474099e+15 -1073741827.0) -> -9.67140658393863e+24) ((4332 . 5625) (* 9.00719925474099e+15 -1073741826.0) -> -9.67140657493143e+24) ((4333 . 5625) (* 9.00719925474099e+15 -1073741825.0) -> -9.67140656592423e+24) ((4334 . 5625) (* 9.00719925474099e+15 -1073741824.0) -> -9.67140655691703e+24) ((4335 . 5625) (* 9.00719925474099e+15 -1073741823.0) -> -9.67140654790983e+24) ((4336 . 5625) (* 9.00719925474099e+15 -1073741827.0) -> -9.67140658393863e+24) ((4337 . 5625) (* 9.00719925474099e+15 -1073741826.0) -> -9.67140657493143e+24) ((4338 . 5625) (* 9.00719925474099e+15 -1073741825.0) -> -9.67140656592423e+24) ((4339 . 5625) (* 9.00719925474099e+15 -1073741824.0) -> -9.67140655691703e+24) ((4340 . 5625) (* 9.00719925474099e+15 -1073741823.0) -> -9.67140654790983e+24) ((4341 . 5625) (* 9.00719925474099e+15 -1073741827.0) -> -9.67140658393863e+24) ((4342 . 5625) (* 9.00719925474099e+15 -1073741826.0) -> -9.67140657493143e+24) ((4343 . 5625) (* 9.00719925474099e+15 -1073741825.0) -> -9.67140656592423e+24) ((4344 . 5625) (* 9.00719925474099e+15 -1073741824.0) -> -9.67140655691703e+24) ((4345 . 5625) (* 9.00719925474099e+15 -1073741823.0) -> -9.67140654790983e+24) ((4346 . 5625) (* 9.00719925474099e+15 -1073741827.0) -> -9.67140658393863e+24) ((4347 . 5625) (* 9.00719925474099e+15 -1073741826.0) -> -9.67140657493143e+24) ((4348 . 5625) (* 9.00719925474099e+15 -1073741825.0) -> -9.67140656592423e+24) ((4349 . 5625) (* 9.00719925474099e+15 -1073741824.0) -> -9.67140655691704e+24) ((4350 . 5625) (* 9.00719925474099e+15 -1073741823.0) -> -9.67140654790984e+24) ((4351 . 5625) (* 9.00719925474099e+15 1103515243.0) -> 9.93958167434492e+24) ((4352 . 5625) (* 9.00719925474099e+15 1103515244.0) -> 9.93958168335212e+24) ((4353 . 5625) (* 9.00719925474099e+15 1103515245.0) -> 9.93958169235932e+24) ((4354 . 5625) (* 9.00719925474099e+15 1103515246.0) -> 9.93958170136652e+24) ((4355 . 5625) (* 9.00719925474099e+15 1103515247.0) -> 9.93958171037372e+24) ((4356 . 5625) (* 9.00719925474099e+15 1103515243.0) -> 9.93958167434492e+24) ((4357 . 5625) (* 9.00719925474099e+15 1103515244.0) -> 9.93958168335212e+24) ((4358 . 5625) (* 9.00719925474099e+15 1103515245.0) -> 9.93958169235932e+24) ((4359 . 5625) (* 9.00719925474099e+15 1103515246.0) -> 9.93958170136652e+24) ((4360 . 5625) (* 9.00719925474099e+15 1103515247.0) -> 9.93958171037372e+24) ((4361 . 5625) (* 9.00719925474099e+15 1103515243.0) -> 9.93958167434492e+24) ((4362 . 5625) (* 9.00719925474099e+15 1103515244.0) -> 9.93958168335212e+24) ((4363 . 5625) (* 9.00719925474099e+15 1103515245.0) -> 9.93958169235932e+24) ((4364 . 5625) (* 9.00719925474099e+15 1103515246.0) -> 9.93958170136652e+24) ((4365 . 5625) (* 9.00719925474099e+15 1103515247.0) -> 9.93958171037372e+24) ((4366 . 5625) (* 9.00719925474099e+15 1103515243.0) -> 9.93958167434492e+24) ((4367 . 5625) (* 9.00719925474099e+15 1103515244.0) -> 9.93958168335212e+24) ((4368 . 5625) (* 9.00719925474099e+15 1103515245.0) -> 9.93958169235932e+24) ((4369 . 5625) (* 9.00719925474099e+15 1103515246.0) -> 9.93958170136652e+24) ((4370 . 5625) (* 9.00719925474099e+15 1103515247.0) -> 9.93958171037372e+24) ((4371 . 5625) (* 9.00719925474099e+15 1103515243.0) -> 9.93958167434493e+24) ((4372 . 5625) (* 9.00719925474099e+15 1103515244.0) -> 9.93958168335213e+24) ((4373 . 5625) (* 9.00719925474099e+15 1103515245.0) -> 9.93958169235933e+24) ((4374 . 5625) (* 9.00719925474099e+15 1103515246.0) -> 9.93958170136652e+24) ((4375 . 5625) (* 9.00719925474099e+15 1103515247.0) -> 9.93958171037372e+24) ((4376 . 5625) (* 9.00719925474099e+15 631629063) -> 5.68920882552635e+24) ((4377 . 5625) (* 9.00719925474099e+15 631629064) -> 5.68920883453355e+24) ((4378 . 5625) (* 9.00719925474099e+15 631629065) -> 5.68920884354075e+24) ((4379 . 5625) (* 9.00719925474099e+15 631629066) -> 5.68920885254795e+24) ((4380 . 5625) (* 9.00719925474099e+15 631629067) -> 5.68920886155515e+24) ((4381 . 5625) (* 9.00719925474099e+15 631629063) -> 5.68920882552635e+24) ((4382 . 5625) (* 9.00719925474099e+15 631629064) -> 5.68920883453355e+24) ((4383 . 5625) (* 9.00719925474099e+15 631629065) -> 5.68920884354075e+24) ((4384 . 5625) (* 9.00719925474099e+15 631629066) -> 5.68920885254795e+24) ((4385 . 5625) (* 9.00719925474099e+15 631629067) -> 5.68920886155515e+24) ((4386 . 5625) (* 9.00719925474099e+15 631629063) -> 5.68920882552635e+24) ((4387 . 5625) (* 9.00719925474099e+15 631629064) -> 5.68920883453355e+24) ((4388 . 5625) (* 9.00719925474099e+15 631629065) -> 5.68920884354075e+24) ((4389 . 5625) (* 9.00719925474099e+15 631629066) -> 5.68920885254795e+24) ((4390 . 5625) (* 9.00719925474099e+15 631629067) -> 5.68920886155515e+24) ((4391 . 5625) (* 9.00719925474099e+15 631629063) -> 5.68920882552635e+24) ((4392 . 5625) (* 9.00719925474099e+15 631629064) -> 5.68920883453355e+24) ((4393 . 5625) (* 9.00719925474099e+15 631629065) -> 5.68920884354075e+24) ((4394 . 5625) (* 9.00719925474099e+15 631629066) -> 5.68920885254795e+24) ((4395 . 5625) (* 9.00719925474099e+15 631629067) -> 5.68920886155515e+24) ((4396 . 5625) (* 9.00719925474099e+15 631629063) -> 5.68920882552635e+24) ((4397 . 5625) (* 9.00719925474099e+15 631629064) -> 5.68920883453355e+24) ((4398 . 5625) (* 9.00719925474099e+15 631629065) -> 5.68920884354075e+24) ((4399 . 5625) (* 9.00719925474099e+15 631629066) -> 5.68920885254795e+24) ((4400 . 5625) (* 9.00719925474099e+15 631629067) -> 5.68920886155515e+24) ((4401 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146066e+31) ((4402 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4403 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4404 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4405 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4406 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4407 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4408 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4409 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4410 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4411 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4412 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4413 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4414 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4415 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4416 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4417 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4418 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4419 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4420 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4421 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4422 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4423 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4424 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4425 . 5625) (* 9.00719925474099e+15 9.00719925474099e+15) -> 8.11296384146067e+31) ((4426 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4427 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4428 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4429 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4430 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146066e+31) ((4431 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4432 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4433 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4434 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4435 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4436 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4437 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4438 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4439 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4440 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4441 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4442 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4443 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4444 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4445 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4446 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4447 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4448 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4449 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4450 . 5625) (* 9.00719925474099e+15 -9.00719925474099e+15) -> -8.11296384146067e+31) ((4451 . 5625) (* 9.00719925474099e+15 12343) -> 1.11175860401268e+20) ((4452 . 5625) (* 9.00719925474099e+15 12344) -> 1.11184867600523e+20) ((4453 . 5625) (* 9.00719925474099e+15 12345) -> 1.11193874799778e+20) ((4454 . 5625) (* 9.00719925474099e+15 12346) -> 1.11202881999032e+20) ((4455 . 5625) (* 9.00719925474099e+15 12347) -> 1.11211889198287e+20) ((4456 . 5625) (* 9.00719925474099e+15 12343) -> 1.11175860401268e+20) ((4457 . 5625) (* 9.00719925474099e+15 12344) -> 1.11184867600523e+20) ((4458 . 5625) (* 9.00719925474099e+15 12345) -> 1.11193874799778e+20) ((4459 . 5625) (* 9.00719925474099e+15 12346) -> 1.11202881999032e+20) ((4460 . 5625) (* 9.00719925474099e+15 12347) -> 1.11211889198287e+20) ((4461 . 5625) (* 9.00719925474099e+15 12343) -> 1.11175860401268e+20) ((4462 . 5625) (* 9.00719925474099e+15 12344) -> 1.11184867600523e+20) ((4463 . 5625) (* 9.00719925474099e+15 12345) -> 1.11193874799778e+20) ((4464 . 5625) (* 9.00719925474099e+15 12346) -> 1.11202881999032e+20) ((4465 . 5625) (* 9.00719925474099e+15 12347) -> 1.11211889198287e+20) ((4466 . 5625) (* 9.00719925474099e+15 12343) -> 1.11175860401268e+20) ((4467 . 5625) (* 9.00719925474099e+15 12344) -> 1.11184867600523e+20) ((4468 . 5625) (* 9.00719925474099e+15 12345) -> 1.11193874799778e+20) ((4469 . 5625) (* 9.00719925474099e+15 12346) -> 1.11202881999032e+20) ((4470 . 5625) (* 9.00719925474099e+15 12347) -> 1.11211889198287e+20) ((4471 . 5625) (* 9.00719925474099e+15 12343) -> 1.11175860401268e+20) ((4472 . 5625) (* 9.00719925474099e+15 12344) -> 1.11184867600523e+20) ((4473 . 5625) (* 9.00719925474099e+15 12345) -> 1.11193874799778e+20) ((4474 . 5625) (* 9.00719925474099e+15 12346) -> 1.11202881999032e+20) ((4475 . 5625) (* 9.00719925474099e+15 12347) -> 1.11211889198287e+20) ((4476 . 5625) (* 9.00719925474099e+15 4294967294.0) -> 3.86856262096537e+25) ((4477 . 5625) (* 9.00719925474099e+15 4294967295.0) -> 3.86856262186609e+25) ((4478 . 5625) (* 9.00719925474099e+15 4294967296.0) -> 3.86856262276681e+25) ((4479 . 5625) (* 9.00719925474099e+15 4294967297.0) -> 3.86856262366753e+25) ((4480 . 5625) (* 9.00719925474099e+15 4294967298.0) -> 3.86856262456825e+25) ((4481 . 5625) (* 9.00719925474099e+15 4294967294.0) -> 3.86856262096537e+25) ((4482 . 5625) (* 9.00719925474099e+15 4294967295.0) -> 3.86856262186609e+25) ((4483 . 5625) (* 9.00719925474099e+15 4294967296.0) -> 3.86856262276681e+25) ((4484 . 5625) (* 9.00719925474099e+15 4294967297.0) -> 3.86856262366753e+25) ((4485 . 5625) (* 9.00719925474099e+15 4294967298.0) -> 3.86856262456825e+25) ((4486 . 5625) (* 9.00719925474099e+15 4294967294.0) -> 3.86856262096537e+25) ((4487 . 5625) (* 9.00719925474099e+15 4294967295.0) -> 3.86856262186609e+25) ((4488 . 5625) (* 9.00719925474099e+15 4294967296.0) -> 3.86856262276681e+25) ((4489 . 5625) (* 9.00719925474099e+15 4294967297.0) -> 3.86856262366753e+25) ((4490 . 5625) (* 9.00719925474099e+15 4294967298.0) -> 3.86856262456825e+25) ((4491 . 5625) (* 9.00719925474099e+15 4294967294.0) -> 3.86856262096537e+25) ((4492 . 5625) (* 9.00719925474099e+15 4294967295.0) -> 3.86856262186609e+25) ((4493 . 5625) (* 9.00719925474099e+15 4294967296.0) -> 3.86856262276681e+25) ((4494 . 5625) (* 9.00719925474099e+15 4294967297.0) -> 3.86856262366753e+25) ((4495 . 5625) (* 9.00719925474099e+15 4294967298.0) -> 3.86856262456825e+25) ((4496 . 5625) (* 9.00719925474099e+15 4294967294.0) -> 3.86856262096537e+25) ((4497 . 5625) (* 9.00719925474099e+15 4294967295.0) -> 3.86856262186609e+25) ((4498 . 5625) (* 9.00719925474099e+15 4294967296.0) -> 3.86856262276681e+25) ((4499 . 5625) (* 9.00719925474099e+15 4294967297.0) -> 3.86856262366753e+25) ((4500 . 5625) (* 9.00719925474099e+15 4294967298.0) -> 3.86856262456825e+25) ((4501 . 5625) (* -9.00719925474099e+15 -2) -> 1.8014398509482e+16) ((4502 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4503 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4504 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4505 . 5625) (* -9.00719925474099e+15 2) -> -1.8014398509482e+16) ((4506 . 5625) (* -9.00719925474099e+15 -2) -> 1.8014398509482e+16) ((4507 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4508 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4509 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4510 . 5625) (* -9.00719925474099e+15 2) -> -1.8014398509482e+16) ((4511 . 5625) (* -9.00719925474099e+15 -2) -> 1.8014398509482e+16) ((4512 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4513 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4514 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4515 . 5625) (* -9.00719925474099e+15 2) -> -1.8014398509482e+16) ((4516 . 5625) (* -9.00719925474099e+15 -2) -> 1.8014398509482e+16) ((4517 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4518 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4519 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4520 . 5625) (* -9.00719925474099e+15 2) -> -1.8014398509482e+16) ((4521 . 5625) (* -9.00719925474099e+15 -2) -> 1.8014398509482e+16) ((4522 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4523 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4524 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4525 . 5625) (* -9.00719925474099e+15 2) -> -1.8014398509482e+16) ((4526 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4527 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4528 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4529 . 5625) (* -9.00719925474099e+15 2) -> -1.8014398509482e+16) ((4530 . 5625) (* -9.00719925474099e+15 3) -> -2.7021597764223e+16) ((4531 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4532 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4533 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4534 . 5625) (* -9.00719925474099e+15 2) -> -1.8014398509482e+16) ((4535 . 5625) (* -9.00719925474099e+15 3) -> -2.7021597764223e+16) ((4536 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4537 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4538 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4539 . 5625) (* -9.00719925474099e+15 2) -> -1.8014398509482e+16) ((4540 . 5625) (* -9.00719925474099e+15 3) -> -2.7021597764223e+16) ((4541 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4542 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4543 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4544 . 5625) (* -9.00719925474099e+15 2) -> -1.8014398509482e+16) ((4545 . 5625) (* -9.00719925474099e+15 3) -> -2.7021597764223e+16) ((4546 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4547 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4548 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4549 . 5625) (* -9.00719925474099e+15 2) -> -1.8014398509482e+16) ((4550 . 5625) (* -9.00719925474099e+15 3) -> -2.7021597764223e+16) ((4551 . 5625) (* -9.00719925474099e+15 -3) -> 2.7021597764223e+16) ((4552 . 5625) (* -9.00719925474099e+15 -2) -> 1.8014398509482e+16) ((4553 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4554 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4555 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4556 . 5625) (* -9.00719925474099e+15 -3) -> 2.7021597764223e+16) ((4557 . 5625) (* -9.00719925474099e+15 -2) -> 1.8014398509482e+16) ((4558 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4559 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4560 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4561 . 5625) (* -9.00719925474099e+15 -3) -> 2.7021597764223e+16) ((4562 . 5625) (* -9.00719925474099e+15 -2) -> 1.8014398509482e+16) ((4563 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4564 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4565 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4566 . 5625) (* -9.00719925474099e+15 -3) -> 2.7021597764223e+16) ((4567 . 5625) (* -9.00719925474099e+15 -2) -> 1.8014398509482e+16) ((4568 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4569 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4570 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4571 . 5625) (* -9.00719925474099e+15 -3) -> 2.7021597764223e+16) ((4572 . 5625) (* -9.00719925474099e+15 -2) -> 1.8014398509482e+16) ((4573 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4574 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4575 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4576 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4577 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4578 . 5625) (* -9.00719925474099e+15 2) -> -1.8014398509482e+16) ((4579 . 5625) (* -9.00719925474099e+15 3) -> -2.7021597764223e+16) ((4580 . 5625) (* -9.00719925474099e+15 4) -> -3.6028797018964e+16) ((4581 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4582 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4583 . 5625) (* -9.00719925474099e+15 2) -> -1.8014398509482e+16) ((4584 . 5625) (* -9.00719925474099e+15 3) -> -2.7021597764223e+16) ((4585 . 5625) (* -9.00719925474099e+15 4) -> -3.6028797018964e+16) ((4586 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4587 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4588 . 5625) (* -9.00719925474099e+15 2) -> -1.8014398509482e+16) ((4589 . 5625) (* -9.00719925474099e+15 3) -> -2.7021597764223e+16) ((4590 . 5625) (* -9.00719925474099e+15 4) -> -3.6028797018964e+16) ((4591 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4592 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4593 . 5625) (* -9.00719925474099e+15 2) -> -1.8014398509482e+16) ((4594 . 5625) (* -9.00719925474099e+15 3) -> -2.7021597764223e+16) ((4595 . 5625) (* -9.00719925474099e+15 4) -> -3.6028797018964e+16) ((4596 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4597 . 5625) (* -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4598 . 5625) (* -9.00719925474099e+15 2) -> -1.8014398509482e+16) ((4599 . 5625) (* -9.00719925474099e+15 3) -> -2.7021597764223e+16) ((4600 . 5625) (* -9.00719925474099e+15 4) -> -3.6028797018964e+16) ((4601 . 5625) (* -9.00719925474099e+15 -4) -> 3.6028797018964e+16) ((4602 . 5625) (* -9.00719925474099e+15 -3) -> 2.7021597764223e+16) ((4603 . 5625) (* -9.00719925474099e+15 -2) -> 1.8014398509482e+16) ((4604 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4605 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4606 . 5625) (* -9.00719925474099e+15 -4) -> 3.6028797018964e+16) ((4607 . 5625) (* -9.00719925474099e+15 -3) -> 2.7021597764223e+16) ((4608 . 5625) (* -9.00719925474099e+15 -2) -> 1.8014398509482e+16) ((4609 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4610 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4611 . 5625) (* -9.00719925474099e+15 -4) -> 3.6028797018964e+16) ((4612 . 5625) (* -9.00719925474099e+15 -3) -> 2.7021597764223e+16) ((4613 . 5625) (* -9.00719925474099e+15 -2) -> 1.8014398509482e+16) ((4614 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4615 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4616 . 5625) (* -9.00719925474099e+15 -4) -> 3.6028797018964e+16) ((4617 . 5625) (* -9.00719925474099e+15 -3) -> 2.7021597764223e+16) ((4618 . 5625) (* -9.00719925474099e+15 -2) -> 1.8014398509482e+16) ((4619 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4620 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4621 . 5625) (* -9.00719925474099e+15 -4) -> 3.6028797018964e+16) ((4622 . 5625) (* -9.00719925474099e+15 -3) -> 2.7021597764223e+16) ((4623 . 5625) (* -9.00719925474099e+15 -2) -> 1.8014398509482e+16) ((4624 . 5625) (* -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4625 . 5625) (* -9.00719925474099e+15 0) -> -0.0) ((4626 . 5625) (* -9.00719925474099e+15 1073741821) -> -9.67140652989544e+24) ((4627 . 5625) (* -9.00719925474099e+15 1073741822) -> -9.67140653890264e+24) ((4628 . 5625) (* -9.00719925474099e+15 1073741823) -> -9.67140654790984e+24) ((4629 . 5625) (* -9.00719925474099e+15 1073741824.0) -> -9.67140655691704e+24) ((4630 . 5625) (* -9.00719925474099e+15 1073741825.0) -> -9.67140656592423e+24) ((4631 . 5625) (* -9.00719925474099e+15 1073741821) -> -9.67140652989544e+24) ((4632 . 5625) (* -9.00719925474099e+15 1073741822) -> -9.67140653890263e+24) ((4633 . 5625) (* -9.00719925474099e+15 1073741823) -> -9.67140654790983e+24) ((4634 . 5625) (* -9.00719925474099e+15 1073741824.0) -> -9.67140655691703e+24) ((4635 . 5625) (* -9.00719925474099e+15 1073741825.0) -> -9.67140656592423e+24) ((4636 . 5625) (* -9.00719925474099e+15 1073741821) -> -9.67140652989544e+24) ((4637 . 5625) (* -9.00719925474099e+15 1073741822) -> -9.67140653890263e+24) ((4638 . 5625) (* -9.00719925474099e+15 1073741823) -> -9.67140654790983e+24) ((4639 . 5625) (* -9.00719925474099e+15 1073741824.0) -> -9.67140655691703e+24) ((4640 . 5625) (* -9.00719925474099e+15 1073741825.0) -> -9.67140656592423e+24) ((4641 . 5625) (* -9.00719925474099e+15 1073741821) -> -9.67140652989543e+24) ((4642 . 5625) (* -9.00719925474099e+15 1073741822) -> -9.67140653890263e+24) ((4643 . 5625) (* -9.00719925474099e+15 1073741823) -> -9.67140654790983e+24) ((4644 . 5625) (* -9.00719925474099e+15 1073741824.0) -> -9.67140655691703e+24) ((4645 . 5625) (* -9.00719925474099e+15 1073741825.0) -> -9.67140656592423e+24) ((4646 . 5625) (* -9.00719925474099e+15 1073741821) -> -9.67140652989543e+24) ((4647 . 5625) (* -9.00719925474099e+15 1073741822) -> -9.67140653890263e+24) ((4648 . 5625) (* -9.00719925474099e+15 1073741823) -> -9.67140654790983e+24) ((4649 . 5625) (* -9.00719925474099e+15 1073741824.0) -> -9.67140655691703e+24) ((4650 . 5625) (* -9.00719925474099e+15 1073741825.0) -> -9.67140656592423e+24) ((4651 . 5625) (* -9.00719925474099e+15 -1073741826.0) -> 9.67140657493143e+24) ((4652 . 5625) (* -9.00719925474099e+15 -1073741825.0) -> 9.67140656592423e+24) ((4653 . 5625) (* -9.00719925474099e+15 -1073741824) -> 9.67140655691704e+24) ((4654 . 5625) (* -9.00719925474099e+15 -1073741823) -> 9.67140654790984e+24) ((4655 . 5625) (* -9.00719925474099e+15 -1073741822) -> 9.67140653890264e+24) ((4656 . 5625) (* -9.00719925474099e+15 -1073741826.0) -> 9.67140657493143e+24) ((4657 . 5625) (* -9.00719925474099e+15 -1073741825.0) -> 9.67140656592423e+24) ((4658 . 5625) (* -9.00719925474099e+15 -1073741824) -> 9.67140655691703e+24) ((4659 . 5625) (* -9.00719925474099e+15 -1073741823) -> 9.67140654790983e+24) ((4660 . 5625) (* -9.00719925474099e+15 -1073741822) -> 9.67140653890263e+24) ((4661 . 5625) (* -9.00719925474099e+15 -1073741826.0) -> 9.67140657493143e+24) ((4662 . 5625) (* -9.00719925474099e+15 -1073741825.0) -> 9.67140656592423e+24) ((4663 . 5625) (* -9.00719925474099e+15 -1073741824) -> 9.67140655691703e+24) ((4664 . 5625) (* -9.00719925474099e+15 -1073741823) -> 9.67140654790983e+24) ((4665 . 5625) (* -9.00719925474099e+15 -1073741822) -> 9.67140653890263e+24) ((4666 . 5625) (* -9.00719925474099e+15 -1073741826.0) -> 9.67140657493143e+24) ((4667 . 5625) (* -9.00719925474099e+15 -1073741825.0) -> 9.67140656592423e+24) ((4668 . 5625) (* -9.00719925474099e+15 -1073741824) -> 9.67140655691703e+24) ((4669 . 5625) (* -9.00719925474099e+15 -1073741823) -> 9.67140654790983e+24) ((4670 . 5625) (* -9.00719925474099e+15 -1073741822) -> 9.67140653890263e+24) ((4671 . 5625) (* -9.00719925474099e+15 -1073741826.0) -> 9.67140657493143e+24) ((4672 . 5625) (* -9.00719925474099e+15 -1073741825.0) -> 9.67140656592423e+24) ((4673 . 5625) (* -9.00719925474099e+15 -1073741824) -> 9.67140655691703e+24) ((4674 . 5625) (* -9.00719925474099e+15 -1073741823) -> 9.67140654790983e+24) ((4675 . 5625) (* -9.00719925474099e+15 -1073741822) -> 9.67140653890263e+24) ((4676 . 5625) (* -9.00719925474099e+15 1073741822.0) -> -9.67140653890264e+24) ((4677 . 5625) (* -9.00719925474099e+15 1073741823.0) -> -9.67140654790984e+24) ((4678 . 5625) (* -9.00719925474099e+15 1073741824.0) -> -9.67140655691704e+24) ((4679 . 5625) (* -9.00719925474099e+15 1073741825.0) -> -9.67140656592423e+24) ((4680 . 5625) (* -9.00719925474099e+15 1073741826.0) -> -9.67140657493143e+24) ((4681 . 5625) (* -9.00719925474099e+15 1073741822.0) -> -9.67140653890263e+24) ((4682 . 5625) (* -9.00719925474099e+15 1073741823.0) -> -9.67140654790983e+24) ((4683 . 5625) (* -9.00719925474099e+15 1073741824.0) -> -9.67140655691703e+24) ((4684 . 5625) (* -9.00719925474099e+15 1073741825.0) -> -9.67140656592423e+24) ((4685 . 5625) (* -9.00719925474099e+15 1073741826.0) -> -9.67140657493143e+24) ((4686 . 5625) (* -9.00719925474099e+15 1073741822.0) -> -9.67140653890263e+24) ((4687 . 5625) (* -9.00719925474099e+15 1073741823.0) -> -9.67140654790983e+24) ((4688 . 5625) (* -9.00719925474099e+15 1073741824.0) -> -9.67140655691703e+24) ((4689 . 5625) (* -9.00719925474099e+15 1073741825.0) -> -9.67140656592423e+24) ((4690 . 5625) (* -9.00719925474099e+15 1073741826.0) -> -9.67140657493143e+24) ((4691 . 5625) (* -9.00719925474099e+15 1073741822.0) -> -9.67140653890263e+24) ((4692 . 5625) (* -9.00719925474099e+15 1073741823.0) -> -9.67140654790983e+24) ((4693 . 5625) (* -9.00719925474099e+15 1073741824.0) -> -9.67140655691703e+24) ((4694 . 5625) (* -9.00719925474099e+15 1073741825.0) -> -9.67140656592423e+24) ((4695 . 5625) (* -9.00719925474099e+15 1073741826.0) -> -9.67140657493143e+24) ((4696 . 5625) (* -9.00719925474099e+15 1073741822.0) -> -9.67140653890263e+24) ((4697 . 5625) (* -9.00719925474099e+15 1073741823.0) -> -9.67140654790983e+24) ((4698 . 5625) (* -9.00719925474099e+15 1073741824.0) -> -9.67140655691703e+24) ((4699 . 5625) (* -9.00719925474099e+15 1073741825.0) -> -9.67140656592423e+24) ((4700 . 5625) (* -9.00719925474099e+15 1073741826.0) -> -9.67140657493143e+24) ((4701 . 5625) (* -9.00719925474099e+15 -1073741827.0) -> 9.67140658393863e+24) ((4702 . 5625) (* -9.00719925474099e+15 -1073741826.0) -> 9.67140657493143e+24) ((4703 . 5625) (* -9.00719925474099e+15 -1073741825.0) -> 9.67140656592423e+24) ((4704 . 5625) (* -9.00719925474099e+15 -1073741824.0) -> 9.67140655691704e+24) ((4705 . 5625) (* -9.00719925474099e+15 -1073741823.0) -> 9.67140654790984e+24) ((4706 . 5625) (* -9.00719925474099e+15 -1073741827.0) -> 9.67140658393863e+24) ((4707 . 5625) (* -9.00719925474099e+15 -1073741826.0) -> 9.67140657493143e+24) ((4708 . 5625) (* -9.00719925474099e+15 -1073741825.0) -> 9.67140656592423e+24) ((4709 . 5625) (* -9.00719925474099e+15 -1073741824.0) -> 9.67140655691703e+24) ((4710 . 5625) (* -9.00719925474099e+15 -1073741823.0) -> 9.67140654790983e+24) ((4711 . 5625) (* -9.00719925474099e+15 -1073741827.0) -> 9.67140658393863e+24) ((4712 . 5625) (* -9.00719925474099e+15 -1073741826.0) -> 9.67140657493143e+24) ((4713 . 5625) (* -9.00719925474099e+15 -1073741825.0) -> 9.67140656592423e+24) ((4714 . 5625) (* -9.00719925474099e+15 -1073741824.0) -> 9.67140655691703e+24) ((4715 . 5625) (* -9.00719925474099e+15 -1073741823.0) -> 9.67140654790983e+24) ((4716 . 5625) (* -9.00719925474099e+15 -1073741827.0) -> 9.67140658393863e+24) ((4717 . 5625) (* -9.00719925474099e+15 -1073741826.0) -> 9.67140657493143e+24) ((4718 . 5625) (* -9.00719925474099e+15 -1073741825.0) -> 9.67140656592423e+24) ((4719 . 5625) (* -9.00719925474099e+15 -1073741824.0) -> 9.67140655691703e+24) ((4720 . 5625) (* -9.00719925474099e+15 -1073741823.0) -> 9.67140654790983e+24) ((4721 . 5625) (* -9.00719925474099e+15 -1073741827.0) -> 9.67140658393863e+24) ((4722 . 5625) (* -9.00719925474099e+15 -1073741826.0) -> 9.67140657493143e+24) ((4723 . 5625) (* -9.00719925474099e+15 -1073741825.0) -> 9.67140656592423e+24) ((4724 . 5625) (* -9.00719925474099e+15 -1073741824.0) -> 9.67140655691703e+24) ((4725 . 5625) (* -9.00719925474099e+15 -1073741823.0) -> 9.67140654790983e+24) ((4726 . 5625) (* -9.00719925474099e+15 1103515243.0) -> -9.93958167434493e+24) ((4727 . 5625) (* -9.00719925474099e+15 1103515244.0) -> -9.93958168335213e+24) ((4728 . 5625) (* -9.00719925474099e+15 1103515245.0) -> -9.93958169235933e+24) ((4729 . 5625) (* -9.00719925474099e+15 1103515246.0) -> -9.93958170136652e+24) ((4730 . 5625) (* -9.00719925474099e+15 1103515247.0) -> -9.93958171037372e+24) ((4731 . 5625) (* -9.00719925474099e+15 1103515243.0) -> -9.93958167434492e+24) ((4732 . 5625) (* -9.00719925474099e+15 1103515244.0) -> -9.93958168335212e+24) ((4733 . 5625) (* -9.00719925474099e+15 1103515245.0) -> -9.93958169235932e+24) ((4734 . 5625) (* -9.00719925474099e+15 1103515246.0) -> -9.93958170136652e+24) ((4735 . 5625) (* -9.00719925474099e+15 1103515247.0) -> -9.93958171037372e+24) ((4736 . 5625) (* -9.00719925474099e+15 1103515243.0) -> -9.93958167434492e+24) ((4737 . 5625) (* -9.00719925474099e+15 1103515244.0) -> -9.93958168335212e+24) ((4738 . 5625) (* -9.00719925474099e+15 1103515245.0) -> -9.93958169235932e+24) ((4739 . 5625) (* -9.00719925474099e+15 1103515246.0) -> -9.93958170136652e+24) ((4740 . 5625) (* -9.00719925474099e+15 1103515247.0) -> -9.93958171037372e+24) ((4741 . 5625) (* -9.00719925474099e+15 1103515243.0) -> -9.93958167434492e+24) ((4742 . 5625) (* -9.00719925474099e+15 1103515244.0) -> -9.93958168335212e+24) ((4743 . 5625) (* -9.00719925474099e+15 1103515245.0) -> -9.93958169235932e+24) ((4744 . 5625) (* -9.00719925474099e+15 1103515246.0) -> -9.93958170136652e+24) ((4745 . 5625) (* -9.00719925474099e+15 1103515247.0) -> -9.93958171037372e+24) ((4746 . 5625) (* -9.00719925474099e+15 1103515243.0) -> -9.93958167434492e+24) ((4747 . 5625) (* -9.00719925474099e+15 1103515244.0) -> -9.93958168335212e+24) ((4748 . 5625) (* -9.00719925474099e+15 1103515245.0) -> -9.93958169235932e+24) ((4749 . 5625) (* -9.00719925474099e+15 1103515246.0) -> -9.93958170136652e+24) ((4750 . 5625) (* -9.00719925474099e+15 1103515247.0) -> -9.93958171037372e+24) ((4751 . 5625) (* -9.00719925474099e+15 631629063) -> -5.68920882552635e+24) ((4752 . 5625) (* -9.00719925474099e+15 631629064) -> -5.68920883453355e+24) ((4753 . 5625) (* -9.00719925474099e+15 631629065) -> -5.68920884354075e+24) ((4754 . 5625) (* -9.00719925474099e+15 631629066) -> -5.68920885254795e+24) ((4755 . 5625) (* -9.00719925474099e+15 631629067) -> -5.68920886155515e+24) ((4756 . 5625) (* -9.00719925474099e+15 631629063) -> -5.68920882552635e+24) ((4757 . 5625) (* -9.00719925474099e+15 631629064) -> -5.68920883453355e+24) ((4758 . 5625) (* -9.00719925474099e+15 631629065) -> -5.68920884354075e+24) ((4759 . 5625) (* -9.00719925474099e+15 631629066) -> -5.68920885254795e+24) ((4760 . 5625) (* -9.00719925474099e+15 631629067) -> -5.68920886155515e+24) ((4761 . 5625) (* -9.00719925474099e+15 631629063) -> -5.68920882552635e+24) ((4762 . 5625) (* -9.00719925474099e+15 631629064) -> -5.68920883453355e+24) ((4763 . 5625) (* -9.00719925474099e+15 631629065) -> -5.68920884354075e+24) ((4764 . 5625) (* -9.00719925474099e+15 631629066) -> -5.68920885254795e+24) ((4765 . 5625) (* -9.00719925474099e+15 631629067) -> -5.68920886155515e+24) ((4766 . 5625) (* -9.00719925474099e+15 631629063) -> -5.68920882552635e+24) ((4767 . 5625) (* -9.00719925474099e+15 631629064) -> -5.68920883453355e+24) ((4768 . 5625) (* -9.00719925474099e+15 631629065) -> -5.68920884354075e+24) ((4769 . 5625) (* -9.00719925474099e+15 631629066) -> -5.68920885254795e+24) ((4770 . 5625) (* -9.00719925474099e+15 631629067) -> -5.68920886155515e+24) ((4771 . 5625) (* -9.00719925474099e+15 631629063) -> -5.68920882552635e+24) ((4772 . 5625) (* -9.00719925474099e+15 631629064) -> -5.68920883453355e+24) ((4773 . 5625) (* -9.00719925474099e+15 631629065) -> -5.68920884354075e+24) ((4774 . 5625) (* -9.00719925474099e+15 631629066) -> -5.68920885254795e+24) ((4775 . 5625) (* -9.00719925474099e+15 631629067) -> -5.68920886155515e+24) ((4776 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4777 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4778 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4779 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4780 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4781 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4782 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4783 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4784 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4785 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4786 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4787 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4788 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4789 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4790 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4791 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4792 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4793 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4794 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4795 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4796 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146066e+31) ((4797 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4798 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4799 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4800 . 5625) (* -9.00719925474099e+15 9.00719925474099e+15) -> -8.11296384146067e+31) ((4801 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4802 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4803 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4804 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4805 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4806 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4807 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4808 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4809 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4810 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4811 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4812 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4813 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4814 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4815 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4816 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4817 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4818 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4819 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4820 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4821 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4822 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4823 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4824 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146067e+31) ((4825 . 5625) (* -9.00719925474099e+15 -9.00719925474099e+15) -> 8.11296384146066e+31) ((4826 . 5625) (* -9.00719925474099e+15 12343) -> -1.11175860401268e+20) ((4827 . 5625) (* -9.00719925474099e+15 12344) -> -1.11184867600523e+20) ((4828 . 5625) (* -9.00719925474099e+15 12345) -> -1.11193874799778e+20) ((4829 . 5625) (* -9.00719925474099e+15 12346) -> -1.11202881999032e+20) ((4830 . 5625) (* -9.00719925474099e+15 12347) -> -1.11211889198287e+20) ((4831 . 5625) (* -9.00719925474099e+15 12343) -> -1.11175860401268e+20) ((4832 . 5625) (* -9.00719925474099e+15 12344) -> -1.11184867600523e+20) ((4833 . 5625) (* -9.00719925474099e+15 12345) -> -1.11193874799778e+20) ((4834 . 5625) (* -9.00719925474099e+15 12346) -> -1.11202881999032e+20) ((4835 . 5625) (* -9.00719925474099e+15 12347) -> -1.11211889198287e+20) ((4836 . 5625) (* -9.00719925474099e+15 12343) -> -1.11175860401268e+20) ((4837 . 5625) (* -9.00719925474099e+15 12344) -> -1.11184867600523e+20) ((4838 . 5625) (* -9.00719925474099e+15 12345) -> -1.11193874799778e+20) ((4839 . 5625) (* -9.00719925474099e+15 12346) -> -1.11202881999032e+20) ((4840 . 5625) (* -9.00719925474099e+15 12347) -> -1.11211889198287e+20) ((4841 . 5625) (* -9.00719925474099e+15 12343) -> -1.11175860401268e+20) ((4842 . 5625) (* -9.00719925474099e+15 12344) -> -1.11184867600523e+20) ((4843 . 5625) (* -9.00719925474099e+15 12345) -> -1.11193874799778e+20) ((4844 . 5625) (* -9.00719925474099e+15 12346) -> -1.11202881999032e+20) ((4845 . 5625) (* -9.00719925474099e+15 12347) -> -1.11211889198287e+20) ((4846 . 5625) (* -9.00719925474099e+15 12343) -> -1.11175860401268e+20) ((4847 . 5625) (* -9.00719925474099e+15 12344) -> -1.11184867600523e+20) ((4848 . 5625) (* -9.00719925474099e+15 12345) -> -1.11193874799778e+20) ((4849 . 5625) (* -9.00719925474099e+15 12346) -> -1.11202881999032e+20) ((4850 . 5625) (* -9.00719925474099e+15 12347) -> -1.11211889198287e+20) ((4851 . 5625) (* -9.00719925474099e+15 4294967294.0) -> -3.86856262096537e+25) ((4852 . 5625) (* -9.00719925474099e+15 4294967295.0) -> -3.86856262186609e+25) ((4853 . 5625) (* -9.00719925474099e+15 4294967296.0) -> -3.86856262276681e+25) ((4854 . 5625) (* -9.00719925474099e+15 4294967297.0) -> -3.86856262366753e+25) ((4855 . 5625) (* -9.00719925474099e+15 4294967298.0) -> -3.86856262456825e+25) ((4856 . 5625) (* -9.00719925474099e+15 4294967294.0) -> -3.86856262096537e+25) ((4857 . 5625) (* -9.00719925474099e+15 4294967295.0) -> -3.86856262186609e+25) ((4858 . 5625) (* -9.00719925474099e+15 4294967296.0) -> -3.86856262276681e+25) ((4859 . 5625) (* -9.00719925474099e+15 4294967297.0) -> -3.86856262366753e+25) ((4860 . 5625) (* -9.00719925474099e+15 4294967298.0) -> -3.86856262456825e+25) ((4861 . 5625) (* -9.00719925474099e+15 4294967294.0) -> -3.86856262096537e+25) ((4862 . 5625) (* -9.00719925474099e+15 4294967295.0) -> -3.86856262186609e+25) ((4863 . 5625) (* -9.00719925474099e+15 4294967296.0) -> -3.86856262276681e+25) ((4864 . 5625) (* -9.00719925474099e+15 4294967297.0) -> -3.86856262366753e+25) ((4865 . 5625) (* -9.00719925474099e+15 4294967298.0) -> -3.86856262456825e+25) ((4866 . 5625) (* -9.00719925474099e+15 4294967294.0) -> -3.86856262096537e+25) ((4867 . 5625) (* -9.00719925474099e+15 4294967295.0) -> -3.86856262186609e+25) ((4868 . 5625) (* -9.00719925474099e+15 4294967296.0) -> -3.86856262276681e+25) ((4869 . 5625) (* -9.00719925474099e+15 4294967297.0) -> -3.86856262366753e+25) ((4870 . 5625) (* -9.00719925474099e+15 4294967298.0) -> -3.86856262456825e+25) ((4871 . 5625) (* -9.00719925474099e+15 4294967294.0) -> -3.86856262096537e+25) ((4872 . 5625) (* -9.00719925474099e+15 4294967295.0) -> -3.86856262186609e+25) ((4873 . 5625) (* -9.00719925474099e+15 4294967296.0) -> -3.86856262276681e+25) ((4874 . 5625) (* -9.00719925474099e+15 4294967297.0) -> -3.86856262366753e+25) ((4875 . 5625) (* -9.00719925474099e+15 4294967298.0) -> -3.86856262456825e+25) ((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.0) ((5002 . 5625) (* 12343 1073741822) -> 13253195308946.0) ((5003 . 5625) (* 12343 1073741823) -> 13253195321289.0) ((5004 . 5625) (* 12343 1073741824.0) -> 13253195333632.0) ((5005 . 5625) (* 12343 1073741825.0) -> 13253195345975.0) ((5006 . 5625) (* 12344 1073741821) -> 13254269038424.0) ((5007 . 5625) (* 12344 1073741822) -> 13254269050768.0) ((5008 . 5625) (* 12344 1073741823) -> 13254269063112.0) ((5009 . 5625) (* 12344 1073741824.0) -> 13254269075456.0) ((5010 . 5625) (* 12344 1073741825.0) -> 13254269087800.0) ((5011 . 5625) (* 12345 1073741821) -> 13255342780245.0) ((5012 . 5625) (* 12345 1073741822) -> 13255342792590.0) ((5013 . 5625) (* 12345 1073741823) -> 13255342804935.0) ((5014 . 5625) (* 12345 1073741824.0) -> 13255342817280.0) ((5015 . 5625) (* 12345 1073741825.0) -> 13255342829625.0) ((5016 . 5625) (* 12346 1073741821) -> 13256416522066.0) ((5017 . 5625) (* 12346 1073741822) -> 13256416534412.0) ((5018 . 5625) (* 12346 1073741823) -> 13256416546758.0) ((5019 . 5625) (* 12346 1073741824.0) -> 13256416559104.0) ((5020 . 5625) (* 12346 1073741825.0) -> 13256416571450.0) ((5021 . 5625) (* 12347 1073741821) -> 13257490263887.0) ((5022 . 5625) (* 12347 1073741822) -> 13257490276234.0) ((5023 . 5625) (* 12347 1073741823) -> 13257490288581.0) ((5024 . 5625) (* 12347 1073741824.0) -> 13257490300928.0) ((5025 . 5625) (* 12347 1073741825.0) -> 13257490313275.0) ((5026 . 5625) (* 12343 -1073741826.0) -> -13253195358318.0) ((5027 . 5625) (* 12343 -1073741825.0) -> -13253195345975.0) ((5028 . 5625) (* 12343 -1073741824) -> -13253195333632.0) ((5029 . 5625) (* 12343 -1073741823) -> -13253195321289.0) ((5030 . 5625) (* 12343 -1073741822) -> -13253195308946.0) ((5031 . 5625) (* 12344 -1073741826.0) -> -13254269100144.0) ((5032 . 5625) (* 12344 -1073741825.0) -> -13254269087800.0) ((5033 . 5625) (* 12344 -1073741824) -> -13254269075456.0) ((5034 . 5625) (* 12344 -1073741823) -> -13254269063112.0) ((5035 . 5625) (* 12344 -1073741822) -> -13254269050768.0) ((5036 . 5625) (* 12345 -1073741826.0) -> -13255342841970.0) ((5037 . 5625) (* 12345 -1073741825.0) -> -13255342829625.0) ((5038 . 5625) (* 12345 -1073741824) -> -13255342817280.0) ((5039 . 5625) (* 12345 -1073741823) -> -13255342804935.0) ((5040 . 5625) (* 12345 -1073741822) -> -13255342792590.0) ((5041 . 5625) (* 12346 -1073741826.0) -> -13256416583796.0) ((5042 . 5625) (* 12346 -1073741825.0) -> -13256416571450.0) ((5043 . 5625) (* 12346 -1073741824) -> -13256416559104.0) ((5044 . 5625) (* 12346 -1073741823) -> -13256416546758.0) ((5045 . 5625) (* 12346 -1073741822) -> -13256416534412.0) ((5046 . 5625) (* 12347 -1073741826.0) -> -13257490325622.0) ((5047 . 5625) (* 12347 -1073741825.0) -> -13257490313275.0) ((5048 . 5625) (* 12347 -1073741824) -> -13257490300928.0) ((5049 . 5625) (* 12347 -1073741823) -> -13257490288581.0) ((5050 . 5625) (* 12347 -1073741822) -> -13257490276234.0) ((5051 . 5625) (* 12343 1073741822.0) -> 13253195308946.0) ((5052 . 5625) (* 12343 1073741823.0) -> 13253195321289.0) ((5053 . 5625) (* 12343 1073741824.0) -> 13253195333632.0) ((5054 . 5625) (* 12343 1073741825.0) -> 13253195345975.0) ((5055 . 5625) (* 12343 1073741826.0) -> 13253195358318.0) ((5056 . 5625) (* 12344 1073741822.0) -> 13254269050768.0) ((5057 . 5625) (* 12344 1073741823.0) -> 13254269063112.0) ((5058 . 5625) (* 12344 1073741824.0) -> 13254269075456.0) ((5059 . 5625) (* 12344 1073741825.0) -> 13254269087800.0) ((5060 . 5625) (* 12344 1073741826.0) -> 13254269100144.0) ((5061 . 5625) (* 12345 1073741822.0) -> 13255342792590.0) ((5062 . 5625) (* 12345 1073741823.0) -> 13255342804935.0) ((5063 . 5625) (* 12345 1073741824.0) -> 13255342817280.0) ((5064 . 5625) (* 12345 1073741825.0) -> 13255342829625.0) ((5065 . 5625) (* 12345 1073741826.0) -> 13255342841970.0) ((5066 . 5625) (* 12346 1073741822.0) -> 13256416534412.0) ((5067 . 5625) (* 12346 1073741823.0) -> 13256416546758.0) ((5068 . 5625) (* 12346 1073741824.0) -> 13256416559104.0) ((5069 . 5625) (* 12346 1073741825.0) -> 13256416571450.0) ((5070 . 5625) (* 12346 1073741826.0) -> 13256416583796.0) ((5071 . 5625) (* 12347 1073741822.0) -> 13257490276234.0) ((5072 . 5625) (* 12347 1073741823.0) -> 13257490288581.0) ((5073 . 5625) (* 12347 1073741824.0) -> 13257490300928.0) ((5074 . 5625) (* 12347 1073741825.0) -> 13257490313275.0) ((5075 . 5625) (* 12347 1073741826.0) -> 13257490325622.0) ((5076 . 5625) (* 12343 -1073741827.0) -> -13253195370661.0) ((5077 . 5625) (* 12343 -1073741826.0) -> -13253195358318.0) ((5078 . 5625) (* 12343 -1073741825.0) -> -13253195345975.0) ((5079 . 5625) (* 12343 -1073741824.0) -> -13253195333632.0) ((5080 . 5625) (* 12343 -1073741823.0) -> -13253195321289.0) ((5081 . 5625) (* 12344 -1073741827.0) -> -13254269112488.0) ((5082 . 5625) (* 12344 -1073741826.0) -> -13254269100144.0) ((5083 . 5625) (* 12344 -1073741825.0) -> -13254269087800.0) ((5084 . 5625) (* 12344 -1073741824.0) -> -13254269075456.0) ((5085 . 5625) (* 12344 -1073741823.0) -> -13254269063112.0) ((5086 . 5625) (* 12345 -1073741827.0) -> -13255342854315.0) ((5087 . 5625) (* 12345 -1073741826.0) -> -13255342841970.0) ((5088 . 5625) (* 12345 -1073741825.0) -> -13255342829625.0) ((5089 . 5625) (* 12345 -1073741824.0) -> -13255342817280.0) ((5090 . 5625) (* 12345 -1073741823.0) -> -13255342804935.0) ((5091 . 5625) (* 12346 -1073741827.0) -> -13256416596142.0) ((5092 . 5625) (* 12346 -1073741826.0) -> -13256416583796.0) ((5093 . 5625) (* 12346 -1073741825.0) -> -13256416571450.0) ((5094 . 5625) (* 12346 -1073741824.0) -> -13256416559104.0) ((5095 . 5625) (* 12346 -1073741823.0) -> -13256416546758.0) ((5096 . 5625) (* 12347 -1073741827.0) -> -13257490337969.0) ((5097 . 5625) (* 12347 -1073741826.0) -> -13257490325622.0) ((5098 . 5625) (* 12347 -1073741825.0) -> -13257490313275.0) ((5099 . 5625) (* 12347 -1073741824.0) -> -13257490300928.0) ((5100 . 5625) (* 12347 -1073741823.0) -> -13257490288581.0) ((5101 . 5625) (* 12343 1103515243.0) -> 13620688644349.0) ((5102 . 5625) (* 12343 1103515244.0) -> 13620688656692.0) ((5103 . 5625) (* 12343 1103515245.0) -> 13620688669035.0) ((5104 . 5625) (* 12343 1103515246.0) -> 13620688681378.0) ((5105 . 5625) (* 12343 1103515247.0) -> 13620688693721.0) ((5106 . 5625) (* 12344 1103515243.0) -> 13621792159592.0) ((5107 . 5625) (* 12344 1103515244.0) -> 13621792171936.0) ((5108 . 5625) (* 12344 1103515245.0) -> 13621792184280.0) ((5109 . 5625) (* 12344 1103515246.0) -> 13621792196624.0) ((5110 . 5625) (* 12344 1103515247.0) -> 13621792208968.0) ((5111 . 5625) (* 12345 1103515243.0) -> 13622895674835.0) ((5112 . 5625) (* 12345 1103515244.0) -> 13622895687180.0) ((5113 . 5625) (* 12345 1103515245.0) -> 13622895699525.0) ((5114 . 5625) (* 12345 1103515246.0) -> 13622895711870.0) ((5115 . 5625) (* 12345 1103515247.0) -> 13622895724215.0) ((5116 . 5625) (* 12346 1103515243.0) -> 13623999190078.0) ((5117 . 5625) (* 12346 1103515244.0) -> 13623999202424.0) ((5118 . 5625) (* 12346 1103515245.0) -> 13623999214770.0) ((5119 . 5625) (* 12346 1103515246.0) -> 13623999227116.0) ((5120 . 5625) (* 12346 1103515247.0) -> 13623999239462.0) ((5121 . 5625) (* 12347 1103515243.0) -> 13625102705321.0) ((5122 . 5625) (* 12347 1103515244.0) -> 13625102717668.0) ((5123 . 5625) (* 12347 1103515245.0) -> 13625102730015.0) ((5124 . 5625) (* 12347 1103515246.0) -> 13625102742362.0) ((5125 . 5625) (* 12347 1103515247.0) -> 13625102754709.0) ((5126 . 5625) (* 12343 631629063) -> 7796197524609.0) ((5127 . 5625) (* 12343 631629064) -> 7796197536952.0) ((5128 . 5625) (* 12343 631629065) -> 7796197549295.0) ((5129 . 5625) (* 12343 631629066) -> 7796197561638.0) ((5130 . 5625) (* 12343 631629067) -> 7796197573981.0) ((5131 . 5625) (* 12344 631629063) -> 7796829153672.0) ((5132 . 5625) (* 12344 631629064) -> 7796829166016.0) ((5133 . 5625) (* 12344 631629065) -> 7796829178360.0) ((5134 . 5625) (* 12344 631629066) -> 7796829190704.0) ((5135 . 5625) (* 12344 631629067) -> 7796829203048.0) ((5136 . 5625) (* 12345 631629063) -> 7797460782735.0) ((5137 . 5625) (* 12345 631629064) -> 7797460795080.0) ((5138 . 5625) (* 12345 631629065) -> 7797460807425.0) ((5139 . 5625) (* 12345 631629066) -> 7797460819770.0) ((5140 . 5625) (* 12345 631629067) -> 7797460832115.0) ((5141 . 5625) (* 12346 631629063) -> 7798092411798.0) ((5142 . 5625) (* 12346 631629064) -> 7798092424144.0) ((5143 . 5625) (* 12346 631629065) -> 7798092436490.0) ((5144 . 5625) (* 12346 631629066) -> 7798092448836.0) ((5145 . 5625) (* 12346 631629067) -> 7798092461182.0) ((5146 . 5625) (* 12347 631629063) -> 7798724040861.0) ((5147 . 5625) (* 12347 631629064) -> 7798724053208.0) ((5148 . 5625) (* 12347 631629065) -> 7798724065555.0) ((5149 . 5625) (* 12347 631629066) -> 7798724077902.0) ((5150 . 5625) (* 12347 631629067) -> 7798724090249.0) ((5151 . 5625) (* 12343 9.00719925474099e+15) -> 1.11175860401268e+20) ((5152 . 5625) (* 12343 9.00719925474099e+15) -> 1.11175860401268e+20) ((5153 . 5625) (* 12343 9.00719925474099e+15) -> 1.11175860401268e+20) ((5154 . 5625) (* 12343 9.00719925474099e+15) -> 1.11175860401268e+20) ((5155 . 5625) (* 12343 9.00719925474099e+15) -> 1.11175860401268e+20) ((5156 . 5625) (* 12344 9.00719925474099e+15) -> 1.11184867600523e+20) ((5157 . 5625) (* 12344 9.00719925474099e+15) -> 1.11184867600523e+20) ((5158 . 5625) (* 12344 9.00719925474099e+15) -> 1.11184867600523e+20) ((5159 . 5625) (* 12344 9.00719925474099e+15) -> 1.11184867600523e+20) ((5160 . 5625) (* 12344 9.00719925474099e+15) -> 1.11184867600523e+20) ((5161 . 5625) (* 12345 9.00719925474099e+15) -> 1.11193874799778e+20) ((5162 . 5625) (* 12345 9.00719925474099e+15) -> 1.11193874799778e+20) ((5163 . 5625) (* 12345 9.00719925474099e+15) -> 1.11193874799778e+20) ((5164 . 5625) (* 12345 9.00719925474099e+15) -> 1.11193874799778e+20) ((5165 . 5625) (* 12345 9.00719925474099e+15) -> 1.11193874799778e+20) ((5166 . 5625) (* 12346 9.00719925474099e+15) -> 1.11202881999032e+20) ((5167 . 5625) (* 12346 9.00719925474099e+15) -> 1.11202881999032e+20) ((5168 . 5625) (* 12346 9.00719925474099e+15) -> 1.11202881999032e+20) ((5169 . 5625) (* 12346 9.00719925474099e+15) -> 1.11202881999032e+20) ((5170 . 5625) (* 12346 9.00719925474099e+15) -> 1.11202881999032e+20) ((5171 . 5625) (* 12347 9.00719925474099e+15) -> 1.11211889198287e+20) ((5172 . 5625) (* 12347 9.00719925474099e+15) -> 1.11211889198287e+20) ((5173 . 5625) (* 12347 9.00719925474099e+15) -> 1.11211889198287e+20) ((5174 . 5625) (* 12347 9.00719925474099e+15) -> 1.11211889198287e+20) ((5175 . 5625) (* 12347 9.00719925474099e+15) -> 1.11211889198287e+20) ((5176 . 5625) (* 12343 -9.00719925474099e+15) -> -1.11175860401268e+20) ((5177 . 5625) (* 12343 -9.00719925474099e+15) -> -1.11175860401268e+20) ((5178 . 5625) (* 12343 -9.00719925474099e+15) -> -1.11175860401268e+20) ((5179 . 5625) (* 12343 -9.00719925474099e+15) -> -1.11175860401268e+20) ((5180 . 5625) (* 12343 -9.00719925474099e+15) -> -1.11175860401268e+20) ((5181 . 5625) (* 12344 -9.00719925474099e+15) -> -1.11184867600523e+20) ((5182 . 5625) (* 12344 -9.00719925474099e+15) -> -1.11184867600523e+20) ((5183 . 5625) (* 12344 -9.00719925474099e+15) -> -1.11184867600523e+20) ((5184 . 5625) (* 12344 -9.00719925474099e+15) -> -1.11184867600523e+20) ((5185 . 5625) (* 12344 -9.00719925474099e+15) -> -1.11184867600523e+20) ((5186 . 5625) (* 12345 -9.00719925474099e+15) -> -1.11193874799778e+20) ((5187 . 5625) (* 12345 -9.00719925474099e+15) -> -1.11193874799778e+20) ((5188 . 5625) (* 12345 -9.00719925474099e+15) -> -1.11193874799778e+20) ((5189 . 5625) (* 12345 -9.00719925474099e+15) -> -1.11193874799778e+20) ((5190 . 5625) (* 12345 -9.00719925474099e+15) -> -1.11193874799778e+20) ((5191 . 5625) (* 12346 -9.00719925474099e+15) -> -1.11202881999032e+20) ((5192 . 5625) (* 12346 -9.00719925474099e+15) -> -1.11202881999032e+20) ((5193 . 5625) (* 12346 -9.00719925474099e+15) -> -1.11202881999032e+20) ((5194 . 5625) (* 12346 -9.00719925474099e+15) -> -1.11202881999032e+20) ((5195 . 5625) (* 12346 -9.00719925474099e+15) -> -1.11202881999032e+20) ((5196 . 5625) (* 12347 -9.00719925474099e+15) -> -1.11211889198287e+20) ((5197 . 5625) (* 12347 -9.00719925474099e+15) -> -1.11211889198287e+20) ((5198 . 5625) (* 12347 -9.00719925474099e+15) -> -1.11211889198287e+20) ((5199 . 5625) (* 12347 -9.00719925474099e+15) -> -1.11211889198287e+20) ((5200 . 5625) (* 12347 -9.00719925474099e+15) -> -1.11211889198287e+20) ((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.0) -> 53012781309842.0) ((5227 . 5625) (* 12343 4294967295.0) -> 53012781322185.0) ((5228 . 5625) (* 12343 4294967296.0) -> 53012781334528.0) ((5229 . 5625) (* 12343 4294967297.0) -> 53012781346871.0) ((5230 . 5625) (* 12343 4294967298.0) -> 53012781359214.0) ((5231 . 5625) (* 12344 4294967294.0) -> 53017076277136.0) ((5232 . 5625) (* 12344 4294967295.0) -> 53017076289480.0) ((5233 . 5625) (* 12344 4294967296.0) -> 53017076301824.0) ((5234 . 5625) (* 12344 4294967297.0) -> 53017076314168.0) ((5235 . 5625) (* 12344 4294967298.0) -> 53017076326512.0) ((5236 . 5625) (* 12345 4294967294.0) -> 53021371244430.0) ((5237 . 5625) (* 12345 4294967295.0) -> 53021371256775.0) ((5238 . 5625) (* 12345 4294967296.0) -> 53021371269120.0) ((5239 . 5625) (* 12345 4294967297.0) -> 53021371281465.0) ((5240 . 5625) (* 12345 4294967298.0) -> 53021371293810.0) ((5241 . 5625) (* 12346 4294967294.0) -> 53025666211724.0) ((5242 . 5625) (* 12346 4294967295.0) -> 53025666224070.0) ((5243 . 5625) (* 12346 4294967296.0) -> 53025666236416.0) ((5244 . 5625) (* 12346 4294967297.0) -> 53025666248762.0) ((5245 . 5625) (* 12346 4294967298.0) -> 53025666261108.0) ((5246 . 5625) (* 12347 4294967294.0) -> 53029961179018.0) ((5247 . 5625) (* 12347 4294967295.0) -> 53029961191365.0) ((5248 . 5625) (* 12347 4294967296.0) -> 53029961203712.0) ((5249 . 5625) (* 12347 4294967297.0) -> 53029961216059.0) ((5250 . 5625) (* 12347 4294967298.0) -> 53029961228406.0) ((5251 . 5625) (* 4294967294.0 -2) -> -8589934588.0) ((5252 . 5625) (* 4294967294.0 -1) -> -4294967294.0) ((5253 . 5625) (* 4294967294.0 0) -> 0.0) ((5254 . 5625) (* 4294967294.0 1) -> 4294967294.0) ((5255 . 5625) (* 4294967294.0 2) -> 8589934588.0) ((5256 . 5625) (* 4294967295.0 -2) -> -8589934590.0) ((5257 . 5625) (* 4294967295.0 -1) -> -4294967295.0) ((5258 . 5625) (* 4294967295.0 0) -> 0.0) ((5259 . 5625) (* 4294967295.0 1) -> 4294967295.0) ((5260 . 5625) (* 4294967295.0 2) -> 8589934590.0) ((5261 . 5625) (* 4294967296.0 -2) -> -8589934592.0) ((5262 . 5625) (* 4294967296.0 -1) -> -4294967296.0) ((5263 . 5625) (* 4294967296.0 0) -> 0.0) ((5264 . 5625) (* 4294967296.0 1) -> 4294967296.0) ((5265 . 5625) (* 4294967296.0 2) -> 8589934592.0) ((5266 . 5625) (* 4294967297.0 -2) -> -8589934594.0) ((5267 . 5625) (* 4294967297.0 -1) -> -4294967297.0) ((5268 . 5625) (* 4294967297.0 0) -> 0.0) ((5269 . 5625) (* 4294967297.0 1) -> 4294967297.0) ((5270 . 5625) (* 4294967297.0 2) -> 8589934594.0) ((5271 . 5625) (* 4294967298.0 -2) -> -8589934596.0) ((5272 . 5625) (* 4294967298.0 -1) -> -4294967298.0) ((5273 . 5625) (* 4294967298.0 0) -> 0.0) ((5274 . 5625) (* 4294967298.0 1) -> 4294967298.0) ((5275 . 5625) (* 4294967298.0 2) -> 8589934596.0) ((5276 . 5625) (* 4294967294.0 -1) -> -4294967294.0) ((5277 . 5625) (* 4294967294.0 0) -> 0.0) ((5278 . 5625) (* 4294967294.0 1) -> 4294967294.0) ((5279 . 5625) (* 4294967294.0 2) -> 8589934588.0) ((5280 . 5625) (* 4294967294.0 3) -> 12884901882.0) ((5281 . 5625) (* 4294967295.0 -1) -> -4294967295.0) ((5282 . 5625) (* 4294967295.0 0) -> 0.0) ((5283 . 5625) (* 4294967295.0 1) -> 4294967295.0) ((5284 . 5625) (* 4294967295.0 2) -> 8589934590.0) ((5285 . 5625) (* 4294967295.0 3) -> 12884901885.0) ((5286 . 5625) (* 4294967296.0 -1) -> -4294967296.0) ((5287 . 5625) (* 4294967296.0 0) -> 0.0) ((5288 . 5625) (* 4294967296.0 1) -> 4294967296.0) ((5289 . 5625) (* 4294967296.0 2) -> 8589934592.0) ((5290 . 5625) (* 4294967296.0 3) -> 12884901888.0) ((5291 . 5625) (* 4294967297.0 -1) -> -4294967297.0) ((5292 . 5625) (* 4294967297.0 0) -> 0.0) ((5293 . 5625) (* 4294967297.0 1) -> 4294967297.0) ((5294 . 5625) (* 4294967297.0 2) -> 8589934594.0) ((5295 . 5625) (* 4294967297.0 3) -> 12884901891.0) ((5296 . 5625) (* 4294967298.0 -1) -> -4294967298.0) ((5297 . 5625) (* 4294967298.0 0) -> 0.0) ((5298 . 5625) (* 4294967298.0 1) -> 4294967298.0) ((5299 . 5625) (* 4294967298.0 2) -> 8589934596.0) ((5300 . 5625) (* 4294967298.0 3) -> 12884901894.0) ((5301 . 5625) (* 4294967294.0 -3) -> -12884901882.0) ((5302 . 5625) (* 4294967294.0 -2) -> -8589934588.0) ((5303 . 5625) (* 4294967294.0 -1) -> -4294967294.0) ((5304 . 5625) (* 4294967294.0 0) -> 0.0) ((5305 . 5625) (* 4294967294.0 1) -> 4294967294.0) ((5306 . 5625) (* 4294967295.0 -3) -> -12884901885.0) ((5307 . 5625) (* 4294967295.0 -2) -> -8589934590.0) ((5308 . 5625) (* 4294967295.0 -1) -> -4294967295.0) ((5309 . 5625) (* 4294967295.0 0) -> 0.0) ((5310 . 5625) (* 4294967295.0 1) -> 4294967295.0) ((5311 . 5625) (* 4294967296.0 -3) -> -12884901888.0) ((5312 . 5625) (* 4294967296.0 -2) -> -8589934592.0) ((5313 . 5625) (* 4294967296.0 -1) -> -4294967296.0) ((5314 . 5625) (* 4294967296.0 0) -> 0.0) ((5315 . 5625) (* 4294967296.0 1) -> 4294967296.0) ((5316 . 5625) (* 4294967297.0 -3) -> -12884901891.0) ((5317 . 5625) (* 4294967297.0 -2) -> -8589934594.0) ((5318 . 5625) (* 4294967297.0 -1) -> -4294967297.0) ((5319 . 5625) (* 4294967297.0 0) -> 0.0) ((5320 . 5625) (* 4294967297.0 1) -> 4294967297.0) ((5321 . 5625) (* 4294967298.0 -3) -> -12884901894.0) ((5322 . 5625) (* 4294967298.0 -2) -> -8589934596.0) ((5323 . 5625) (* 4294967298.0 -1) -> -4294967298.0) ((5324 . 5625) (* 4294967298.0 0) -> 0.0) ((5325 . 5625) (* 4294967298.0 1) -> 4294967298.0) ((5326 . 5625) (* 4294967294.0 0) -> 0.0) ((5327 . 5625) (* 4294967294.0 1) -> 4294967294.0) ((5328 . 5625) (* 4294967294.0 2) -> 8589934588.0) ((5329 . 5625) (* 4294967294.0 3) -> 12884901882.0) ((5330 . 5625) (* 4294967294.0 4) -> 17179869176.0) ((5331 . 5625) (* 4294967295.0 0) -> 0.0) ((5332 . 5625) (* 4294967295.0 1) -> 4294967295.0) ((5333 . 5625) (* 4294967295.0 2) -> 8589934590.0) ((5334 . 5625) (* 4294967295.0 3) -> 12884901885.0) ((5335 . 5625) (* 4294967295.0 4) -> 17179869180.0) ((5336 . 5625) (* 4294967296.0 0) -> 0.0) ((5337 . 5625) (* 4294967296.0 1) -> 4294967296.0) ((5338 . 5625) (* 4294967296.0 2) -> 8589934592.0) ((5339 . 5625) (* 4294967296.0 3) -> 12884901888.0) ((5340 . 5625) (* 4294967296.0 4) -> 17179869184.0) ((5341 . 5625) (* 4294967297.0 0) -> 0.0) ((5342 . 5625) (* 4294967297.0 1) -> 4294967297.0) ((5343 . 5625) (* 4294967297.0 2) -> 8589934594.0) ((5344 . 5625) (* 4294967297.0 3) -> 12884901891.0) ((5345 . 5625) (* 4294967297.0 4) -> 17179869188.0) ((5346 . 5625) (* 4294967298.0 0) -> 0.0) ((5347 . 5625) (* 4294967298.0 1) -> 4294967298.0) ((5348 . 5625) (* 4294967298.0 2) -> 8589934596.0) ((5349 . 5625) (* 4294967298.0 3) -> 12884901894.0) ((5350 . 5625) (* 4294967298.0 4) -> 17179869192.0) ((5351 . 5625) (* 4294967294.0 -4) -> -17179869176.0) ((5352 . 5625) (* 4294967294.0 -3) -> -12884901882.0) ((5353 . 5625) (* 4294967294.0 -2) -> -8589934588.0) ((5354 . 5625) (* 4294967294.0 -1) -> -4294967294.0) ((5355 . 5625) (* 4294967294.0 0) -> 0.0) ((5356 . 5625) (* 4294967295.0 -4) -> -17179869180.0) ((5357 . 5625) (* 4294967295.0 -3) -> -12884901885.0) ((5358 . 5625) (* 4294967295.0 -2) -> -8589934590.0) ((5359 . 5625) (* 4294967295.0 -1) -> -4294967295.0) ((5360 . 5625) (* 4294967295.0 0) -> 0.0) ((5361 . 5625) (* 4294967296.0 -4) -> -17179869184.0) ((5362 . 5625) (* 4294967296.0 -3) -> -12884901888.0) ((5363 . 5625) (* 4294967296.0 -2) -> -8589934592.0) ((5364 . 5625) (* 4294967296.0 -1) -> -4294967296.0) ((5365 . 5625) (* 4294967296.0 0) -> 0.0) ((5366 . 5625) (* 4294967297.0 -4) -> -17179869188.0) ((5367 . 5625) (* 4294967297.0 -3) -> -12884901891.0) ((5368 . 5625) (* 4294967297.0 -2) -> -8589934594.0) ((5369 . 5625) (* 4294967297.0 -1) -> -4294967297.0) ((5370 . 5625) (* 4294967297.0 0) -> 0.0) ((5371 . 5625) (* 4294967298.0 -4) -> -17179869192.0) ((5372 . 5625) (* 4294967298.0 -3) -> -12884901894.0) ((5373 . 5625) (* 4294967298.0 -2) -> -8589934596.0) ((5374 . 5625) (* 4294967298.0 -1) -> -4294967298.0) ((5375 . 5625) (* 4294967298.0 0) -> 0.0) ((5376 . 5625) (* 4294967294.0 1073741821) -> 4.611686003395e+18) ((5377 . 5625) (* 4294967294.0 1073741822) -> 4.61168600768997e+18) ((5378 . 5625) (* 4294967294.0 1073741823) -> 4.61168601198494e+18) ((5379 . 5625) (* 4294967294.0 1073741824.0) -> 4.6116860162799e+18) ((5380 . 5625) (* 4294967294.0 1073741825.0) -> 4.61168602057487e+18) ((5381 . 5625) (* 4294967295.0 1073741821) -> 4.61168600446874e+18) ((5382 . 5625) (* 4294967295.0 1073741822) -> 4.61168600876371e+18) ((5383 . 5625) (* 4294967295.0 1073741823) -> 4.61168601305868e+18) ((5384 . 5625) (* 4294967295.0 1073741824.0) -> 4.61168601735365e+18) ((5385 . 5625) (* 4294967295.0 1073741825.0) -> 4.61168602164861e+18) ((5386 . 5625) (* 4294967296.0 1073741821) -> 4.61168600554249e+18) ((5387 . 5625) (* 4294967296.0 1073741822) -> 4.61168600983745e+18) ((5388 . 5625) (* 4294967296.0 1073741823) -> 4.61168601413242e+18) ((5389 . 5625) (* 4294967296.0 1073741824.0) -> 4.61168601842739e+18) ((5390 . 5625) (* 4294967296.0 1073741825.0) -> 4.61168602272236e+18) ((5391 . 5625) (* 4294967297.0 1073741821) -> 4.61168600661623e+18) ((5392 . 5625) (* 4294967297.0 1073741822) -> 4.6116860109112e+18) ((5393 . 5625) (* 4294967297.0 1073741823) -> 4.61168601520616e+18) ((5394 . 5625) (* 4294967297.0 1073741824.0) -> 4.61168601950113e+18) ((5395 . 5625) (* 4294967297.0 1073741825.0) -> 4.6116860237961e+18) ((5396 . 5625) (* 4294967298.0 1073741821) -> 4.61168600768997e+18) ((5397 . 5625) (* 4294967298.0 1073741822) -> 4.61168601198494e+18) ((5398 . 5625) (* 4294967298.0 1073741823) -> 4.6116860162799e+18) ((5399 . 5625) (* 4294967298.0 1073741824.0) -> 4.61168602057487e+18) ((5400 . 5625) (* 4294967298.0 1073741825.0) -> 4.61168602486984e+18) ((5401 . 5625) (* 4294967294.0 -1073741826.0) -> -4.61168602486984e+18) ((5402 . 5625) (* 4294967294.0 -1073741825.0) -> -4.61168602057487e+18) ((5403 . 5625) (* 4294967294.0 -1073741824) -> -4.6116860162799e+18) ((5404 . 5625) (* 4294967294.0 -1073741823) -> -4.61168601198494e+18) ((5405 . 5625) (* 4294967294.0 -1073741822) -> -4.61168600768997e+18) ((5406 . 5625) (* 4294967295.0 -1073741826.0) -> -4.61168602594358e+18) ((5407 . 5625) (* 4294967295.0 -1073741825.0) -> -4.61168602164861e+18) ((5408 . 5625) (* 4294967295.0 -1073741824) -> -4.61168601735365e+18) ((5409 . 5625) (* 4294967295.0 -1073741823) -> -4.61168601305868e+18) ((5410 . 5625) (* 4294967295.0 -1073741822) -> -4.61168600876371e+18) ((5411 . 5625) (* 4294967296.0 -1073741826.0) -> -4.61168602701732e+18) ((5412 . 5625) (* 4294967296.0 -1073741825.0) -> -4.61168602272236e+18) ((5413 . 5625) (* 4294967296.0 -1073741824) -> -4.61168601842739e+18) ((5414 . 5625) (* 4294967296.0 -1073741823) -> -4.61168601413242e+18) ((5415 . 5625) (* 4294967296.0 -1073741822) -> -4.61168600983745e+18) ((5416 . 5625) (* 4294967297.0 -1073741826.0) -> -4.61168602809106e+18) ((5417 . 5625) (* 4294967297.0 -1073741825.0) -> -4.6116860237961e+18) ((5418 . 5625) (* 4294967297.0 -1073741824) -> -4.61168601950113e+18) ((5419 . 5625) (* 4294967297.0 -1073741823) -> -4.61168601520616e+18) ((5420 . 5625) (* 4294967297.0 -1073741822) -> -4.6116860109112e+18) ((5421 . 5625) (* 4294967298.0 -1073741826.0) -> -4.61168602916481e+18) ((5422 . 5625) (* 4294967298.0 -1073741825.0) -> -4.61168602486984e+18) ((5423 . 5625) (* 4294967298.0 -1073741824) -> -4.61168602057487e+18) ((5424 . 5625) (* 4294967298.0 -1073741823) -> -4.6116860162799e+18) ((5425 . 5625) (* 4294967298.0 -1073741822) -> -4.61168601198494e+18) ((5426 . 5625) (* 4294967294.0 1073741822.0) -> 4.61168600768997e+18) ((5427 . 5625) (* 4294967294.0 1073741823.0) -> 4.61168601198494e+18) ((5428 . 5625) (* 4294967294.0 1073741824.0) -> 4.6116860162799e+18) ((5429 . 5625) (* 4294967294.0 1073741825.0) -> 4.61168602057487e+18) ((5430 . 5625) (* 4294967294.0 1073741826.0) -> 4.61168602486984e+18) ((5431 . 5625) (* 4294967295.0 1073741822.0) -> 4.61168600876371e+18) ((5432 . 5625) (* 4294967295.0 1073741823.0) -> 4.61168601305868e+18) ((5433 . 5625) (* 4294967295.0 1073741824.0) -> 4.61168601735365e+18) ((5434 . 5625) (* 4294967295.0 1073741825.0) -> 4.61168602164861e+18) ((5435 . 5625) (* 4294967295.0 1073741826.0) -> 4.61168602594358e+18) ((5436 . 5625) (* 4294967296.0 1073741822.0) -> 4.61168600983745e+18) ((5437 . 5625) (* 4294967296.0 1073741823.0) -> 4.61168601413242e+18) ((5438 . 5625) (* 4294967296.0 1073741824.0) -> 4.61168601842739e+18) ((5439 . 5625) (* 4294967296.0 1073741825.0) -> 4.61168602272236e+18) ((5440 . 5625) (* 4294967296.0 1073741826.0) -> 4.61168602701732e+18) ((5441 . 5625) (* 4294967297.0 1073741822.0) -> 4.6116860109112e+18) ((5442 . 5625) (* 4294967297.0 1073741823.0) -> 4.61168601520616e+18) ((5443 . 5625) (* 4294967297.0 1073741824.0) -> 4.61168601950113e+18) ((5444 . 5625) (* 4294967297.0 1073741825.0) -> 4.6116860237961e+18) ((5445 . 5625) (* 4294967297.0 1073741826.0) -> 4.61168602809106e+18) ((5446 . 5625) (* 4294967298.0 1073741822.0) -> 4.61168601198494e+18) ((5447 . 5625) (* 4294967298.0 1073741823.0) -> 4.6116860162799e+18) ((5448 . 5625) (* 4294967298.0 1073741824.0) -> 4.61168602057487e+18) ((5449 . 5625) (* 4294967298.0 1073741825.0) -> 4.61168602486984e+18) ((5450 . 5625) (* 4294967298.0 1073741826.0) -> 4.61168602916481e+18) ((5451 . 5625) (* 4294967294.0 -1073741827.0) -> -4.61168602916481e+18) ((5452 . 5625) (* 4294967294.0 -1073741826.0) -> -4.61168602486984e+18) ((5453 . 5625) (* 4294967294.0 -1073741825.0) -> -4.61168602057487e+18) ((5454 . 5625) (* 4294967294.0 -1073741824.0) -> -4.6116860162799e+18) ((5455 . 5625) (* 4294967294.0 -1073741823.0) -> -4.61168601198494e+18) ((5456 . 5625) (* 4294967295.0 -1073741827.0) -> -4.61168603023855e+18) ((5457 . 5625) (* 4294967295.0 -1073741826.0) -> -4.61168602594358e+18) ((5458 . 5625) (* 4294967295.0 -1073741825.0) -> -4.61168602164861e+18) ((5459 . 5625) (* 4294967295.0 -1073741824.0) -> -4.61168601735365e+18) ((5460 . 5625) (* 4294967295.0 -1073741823.0) -> -4.61168601305868e+18) ((5461 . 5625) (* 4294967296.0 -1073741827.0) -> -4.61168603131229e+18) ((5462 . 5625) (* 4294967296.0 -1073741826.0) -> -4.61168602701732e+18) ((5463 . 5625) (* 4294967296.0 -1073741825.0) -> -4.61168602272236e+18) ((5464 . 5625) (* 4294967296.0 -1073741824.0) -> -4.61168601842739e+18) ((5465 . 5625) (* 4294967296.0 -1073741823.0) -> -4.61168601413242e+18) ((5466 . 5625) (* 4294967297.0 -1073741827.0) -> -4.61168603238603e+18) ((5467 . 5625) (* 4294967297.0 -1073741826.0) -> -4.61168602809106e+18) ((5468 . 5625) (* 4294967297.0 -1073741825.0) -> -4.6116860237961e+18) ((5469 . 5625) (* 4294967297.0 -1073741824.0) -> -4.61168601950113e+18) ((5470 . 5625) (* 4294967297.0 -1073741823.0) -> -4.61168601520616e+18) ((5471 . 5625) (* 4294967298.0 -1073741827.0) -> -4.61168603345977e+18) ((5472 . 5625) (* 4294967298.0 -1073741826.0) -> -4.61168602916481e+18) ((5473 . 5625) (* 4294967298.0 -1073741825.0) -> -4.61168602486984e+18) ((5474 . 5625) (* 4294967298.0 -1073741824.0) -> -4.61168602057487e+18) ((5475 . 5625) (* 4294967298.0 -1073741823.0) -> -4.6116860162799e+18) ((5476 . 5625) (* 4294967294.0 1103515243.0) -> 4.73956187711546e+18) ((5477 . 5625) (* 4294967294.0 1103515244.0) -> 4.73956188141043e+18) ((5478 . 5625) (* 4294967294.0 1103515245.0) -> 4.7395618857054e+18) ((5479 . 5625) (* 4294967294.0 1103515246.0) -> 4.73956189000036e+18) ((5480 . 5625) (* 4294967294.0 1103515247.0) -> 4.73956189429533e+18) ((5481 . 5625) (* 4294967295.0 1103515243.0) -> 4.73956187821898e+18) ((5482 . 5625) (* 4294967295.0 1103515244.0) -> 4.73956188251394e+18) ((5483 . 5625) (* 4294967295.0 1103515245.0) -> 4.73956188680891e+18) ((5484 . 5625) (* 4294967295.0 1103515246.0) -> 4.73956189110388e+18) ((5485 . 5625) (* 4294967295.0 1103515247.0) -> 4.73956189539885e+18) ((5486 . 5625) (* 4294967296.0 1103515243.0) -> 4.73956187932249e+18) ((5487 . 5625) (* 4294967296.0 1103515244.0) -> 4.73956188361746e+18) ((5488 . 5625) (* 4294967296.0 1103515245.0) -> 4.73956188791243e+18) ((5489 . 5625) (* 4294967296.0 1103515246.0) -> 4.73956189220739e+18) ((5490 . 5625) (* 4294967296.0 1103515247.0) -> 4.73956189650236e+18) ((5491 . 5625) (* 4294967297.0 1103515243.0) -> 4.73956188042601e+18) ((5492 . 5625) (* 4294967297.0 1103515244.0) -> 4.73956188472098e+18) ((5493 . 5625) (* 4294967297.0 1103515245.0) -> 4.73956188901594e+18) ((5494 . 5625) (* 4294967297.0 1103515246.0) -> 4.73956189331091e+18) ((5495 . 5625) (* 4294967297.0 1103515247.0) -> 4.73956189760588e+18) ((5496 . 5625) (* 4294967298.0 1103515243.0) -> 4.73956188152952e+18) ((5497 . 5625) (* 4294967298.0 1103515244.0) -> 4.73956188582449e+18) ((5498 . 5625) (* 4294967298.0 1103515245.0) -> 4.73956189011946e+18) ((5499 . 5625) (* 4294967298.0 1103515246.0) -> 4.73956189441443e+18) ((5500 . 5625) (* 4294967298.0 1103515247.0) -> 4.73956189870939e+18) ((5501 . 5625) (* 4294967294.0 631629063) -> 2.71282616752487e+18) ((5502 . 5625) (* 4294967294.0 631629064) -> 2.71282617181983e+18) ((5503 . 5625) (* 4294967294.0 631629065) -> 2.7128261761148e+18) ((5504 . 5625) (* 4294967294.0 631629066) -> 2.71282618040977e+18) ((5505 . 5625) (* 4294967294.0 631629067) -> 2.71282618470473e+18) ((5506 . 5625) (* 4294967295.0 631629063) -> 2.71282616815649e+18) ((5507 . 5625) (* 4294967295.0 631629064) -> 2.71282617245146e+18) ((5508 . 5625) (* 4294967295.0 631629065) -> 2.71282617674643e+18) ((5509 . 5625) (* 4294967295.0 631629066) -> 2.7128261810414e+18) ((5510 . 5625) (* 4294967295.0 631629067) -> 2.71282618533636e+18) ((5511 . 5625) (* 4294967296.0 631629063) -> 2.71282616878812e+18) ((5512 . 5625) (* 4294967296.0 631629064) -> 2.71282617308309e+18) ((5513 . 5625) (* 4294967296.0 631629065) -> 2.71282617737806e+18) ((5514 . 5625) (* 4294967296.0 631629066) -> 2.71282618167303e+18) ((5515 . 5625) (* 4294967296.0 631629067) -> 2.71282618596799e+18) ((5516 . 5625) (* 4294967297.0 631629063) -> 2.71282616941975e+18) ((5517 . 5625) (* 4294967297.0 631629064) -> 2.71282617371472e+18) ((5518 . 5625) (* 4294967297.0 631629065) -> 2.71282617800969e+18) ((5519 . 5625) (* 4294967297.0 631629066) -> 2.71282618230465e+18) ((5520 . 5625) (* 4294967297.0 631629067) -> 2.71282618659962e+18) ((5521 . 5625) (* 4294967298.0 631629063) -> 2.71282617005138e+18) ((5522 . 5625) (* 4294967298.0 631629064) -> 2.71282617434635e+18) ((5523 . 5625) (* 4294967298.0 631629065) -> 2.71282617864132e+18) ((5524 . 5625) (* 4294967298.0 631629066) -> 2.71282618293628e+18) ((5525 . 5625) (* 4294967298.0 631629067) -> 2.71282618723125e+18) ((5526 . 5625) (* 4294967294.0 9.00719925474099e+15) -> 3.86856262096537e+25) ((5527 . 5625) (* 4294967294.0 9.00719925474099e+15) -> 3.86856262096537e+25) ((5528 . 5625) (* 4294967294.0 9.00719925474099e+15) -> 3.86856262096537e+25) ((5529 . 5625) (* 4294967294.0 9.00719925474099e+15) -> 3.86856262096537e+25) ((5530 . 5625) (* 4294967294.0 9.00719925474099e+15) -> 3.86856262096537e+25) ((5531 . 5625) (* 4294967295.0 9.00719925474099e+15) -> 3.86856262186609e+25) ((5532 . 5625) (* 4294967295.0 9.00719925474099e+15) -> 3.86856262186609e+25) ((5533 . 5625) (* 4294967295.0 9.00719925474099e+15) -> 3.86856262186609e+25) ((5534 . 5625) (* 4294967295.0 9.00719925474099e+15) -> 3.86856262186609e+25) ((5535 . 5625) (* 4294967295.0 9.00719925474099e+15) -> 3.86856262186609e+25) ((5536 . 5625) (* 4294967296.0 9.00719925474099e+15) -> 3.86856262276681e+25) ((5537 . 5625) (* 4294967296.0 9.00719925474099e+15) -> 3.86856262276681e+25) ((5538 . 5625) (* 4294967296.0 9.00719925474099e+15) -> 3.86856262276681e+25) ((5539 . 5625) (* 4294967296.0 9.00719925474099e+15) -> 3.86856262276681e+25) ((5540 . 5625) (* 4294967296.0 9.00719925474099e+15) -> 3.86856262276681e+25) ((5541 . 5625) (* 4294967297.0 9.00719925474099e+15) -> 3.86856262366753e+25) ((5542 . 5625) (* 4294967297.0 9.00719925474099e+15) -> 3.86856262366753e+25) ((5543 . 5625) (* 4294967297.0 9.00719925474099e+15) -> 3.86856262366753e+25) ((5544 . 5625) (* 4294967297.0 9.00719925474099e+15) -> 3.86856262366753e+25) ((5545 . 5625) (* 4294967297.0 9.00719925474099e+15) -> 3.86856262366753e+25) ((5546 . 5625) (* 4294967298.0 9.00719925474099e+15) -> 3.86856262456825e+25) ((5547 . 5625) (* 4294967298.0 9.00719925474099e+15) -> 3.86856262456825e+25) ((5548 . 5625) (* 4294967298.0 9.00719925474099e+15) -> 3.86856262456825e+25) ((5549 . 5625) (* 4294967298.0 9.00719925474099e+15) -> 3.86856262456825e+25) ((5550 . 5625) (* 4294967298.0 9.00719925474099e+15) -> 3.86856262456825e+25) ((5551 . 5625) (* 4294967294.0 -9.00719925474099e+15) -> -3.86856262096537e+25) ((5552 . 5625) (* 4294967294.0 -9.00719925474099e+15) -> -3.86856262096537e+25) ((5553 . 5625) (* 4294967294.0 -9.00719925474099e+15) -> -3.86856262096537e+25) ((5554 . 5625) (* 4294967294.0 -9.00719925474099e+15) -> -3.86856262096537e+25) ((5555 . 5625) (* 4294967294.0 -9.00719925474099e+15) -> -3.86856262096537e+25) ((5556 . 5625) (* 4294967295.0 -9.00719925474099e+15) -> -3.86856262186609e+25) ((5557 . 5625) (* 4294967295.0 -9.00719925474099e+15) -> -3.86856262186609e+25) ((5558 . 5625) (* 4294967295.0 -9.00719925474099e+15) -> -3.86856262186609e+25) ((5559 . 5625) (* 4294967295.0 -9.00719925474099e+15) -> -3.86856262186609e+25) ((5560 . 5625) (* 4294967295.0 -9.00719925474099e+15) -> -3.86856262186609e+25) ((5561 . 5625) (* 4294967296.0 -9.00719925474099e+15) -> -3.86856262276681e+25) ((5562 . 5625) (* 4294967296.0 -9.00719925474099e+15) -> -3.86856262276681e+25) ((5563 . 5625) (* 4294967296.0 -9.00719925474099e+15) -> -3.86856262276681e+25) ((5564 . 5625) (* 4294967296.0 -9.00719925474099e+15) -> -3.86856262276681e+25) ((5565 . 5625) (* 4294967296.0 -9.00719925474099e+15) -> -3.86856262276681e+25) ((5566 . 5625) (* 4294967297.0 -9.00719925474099e+15) -> -3.86856262366753e+25) ((5567 . 5625) (* 4294967297.0 -9.00719925474099e+15) -> -3.86856262366753e+25) ((5568 . 5625) (* 4294967297.0 -9.00719925474099e+15) -> -3.86856262366753e+25) ((5569 . 5625) (* 4294967297.0 -9.00719925474099e+15) -> -3.86856262366753e+25) ((5570 . 5625) (* 4294967297.0 -9.00719925474099e+15) -> -3.86856262366753e+25) ((5571 . 5625) (* 4294967298.0 -9.00719925474099e+15) -> -3.86856262456825e+25) ((5572 . 5625) (* 4294967298.0 -9.00719925474099e+15) -> -3.86856262456825e+25) ((5573 . 5625) (* 4294967298.0 -9.00719925474099e+15) -> -3.86856262456825e+25) ((5574 . 5625) (* 4294967298.0 -9.00719925474099e+15) -> -3.86856262456825e+25) ((5575 . 5625) (* 4294967298.0 -9.00719925474099e+15) -> -3.86856262456825e+25) ((5576 . 5625) (* 4294967294.0 12343) -> 53012781309842.0) ((5577 . 5625) (* 4294967294.0 12344) -> 53017076277136.0) ((5578 . 5625) (* 4294967294.0 12345) -> 53021371244430.0) ((5579 . 5625) (* 4294967294.0 12346) -> 53025666211724.0) ((5580 . 5625) (* 4294967294.0 12347) -> 53029961179018.0) ((5581 . 5625) (* 4294967295.0 12343) -> 53012781322185.0) ((5582 . 5625) (* 4294967295.0 12344) -> 53017076289480.0) ((5583 . 5625) (* 4294967295.0 12345) -> 53021371256775.0) ((5584 . 5625) (* 4294967295.0 12346) -> 53025666224070.0) ((5585 . 5625) (* 4294967295.0 12347) -> 53029961191365.0) ((5586 . 5625) (* 4294967296.0 12343) -> 53012781334528.0) ((5587 . 5625) (* 4294967296.0 12344) -> 53017076301824.0) ((5588 . 5625) (* 4294967296.0 12345) -> 53021371269120.0) ((5589 . 5625) (* 4294967296.0 12346) -> 53025666236416.0) ((5590 . 5625) (* 4294967296.0 12347) -> 53029961203712.0) ((5591 . 5625) (* 4294967297.0 12343) -> 53012781346871.0) ((5592 . 5625) (* 4294967297.0 12344) -> 53017076314168.0) ((5593 . 5625) (* 4294967297.0 12345) -> 53021371281465.0) ((5594 . 5625) (* 4294967297.0 12346) -> 53025666248762.0) ((5595 . 5625) (* 4294967297.0 12347) -> 53029961216059.0) ((5596 . 5625) (* 4294967298.0 12343) -> 53012781359214.0) ((5597 . 5625) (* 4294967298.0 12344) -> 53017076326512.0) ((5598 . 5625) (* 4294967298.0 12345) -> 53021371293810.0) ((5599 . 5625) (* 4294967298.0 12346) -> 53025666261108.0) ((5600 . 5625) (* 4294967298.0 12347) -> 53029961228406.0) ((5601 . 5625) (* 4294967294.0 4294967294.0) -> 1.84467440565297e+19) ((5602 . 5625) (* 4294967294.0 4294967295.0) -> 1.84467440608246e+19) ((5603 . 5625) (* 4294967294.0 4294967296.0) -> 1.84467440651196e+19) ((5604 . 5625) (* 4294967294.0 4294967297.0) -> 1.84467440694146e+19) ((5605 . 5625) (* 4294967294.0 4294967298.0) -> 1.84467440737096e+19) ((5606 . 5625) (* 4294967295.0 4294967294.0) -> 1.84467440608246e+19) ((5607 . 5625) (* 4294967295.0 4294967295.0) -> 1.84467440651196e+19) ((5608 . 5625) (* 4294967295.0 4294967296.0) -> 1.84467440694146e+19) ((5609 . 5625) (* 4294967295.0 4294967297.0) -> 1.84467440737096e+19) ((5610 . 5625) (* 4294967295.0 4294967298.0) -> 1.84467440780045e+19) ((5611 . 5625) (* 4294967296.0 4294967294.0) -> 1.84467440651196e+19) ((5612 . 5625) (* 4294967296.0 4294967295.0) -> 1.84467440694146e+19) ((5613 . 5625) (* 4294967296.0 4294967296.0) -> 1.84467440737096e+19) ((5614 . 5625) (* 4294967296.0 4294967297.0) -> 1.84467440780045e+19) ((5615 . 5625) (* 4294967296.0 4294967298.0) -> 1.84467440822995e+19) ((5616 . 5625) (* 4294967297.0 4294967294.0) -> 1.84467440694146e+19) ((5617 . 5625) (* 4294967297.0 4294967295.0) -> 1.84467440737096e+19) ((5618 . 5625) (* 4294967297.0 4294967296.0) -> 1.84467440780045e+19) ((5619 . 5625) (* 4294967297.0 4294967297.0) -> 1.84467440822995e+19) ((5620 . 5625) (* 4294967297.0 4294967298.0) -> 1.84467440865945e+19) ((5621 . 5625) (* 4294967298.0 4294967294.0) -> 1.84467440737096e+19) ((5622 . 5625) (* 4294967298.0 4294967295.0) -> 1.84467440780045e+19) ((5623 . 5625) (* 4294967298.0 4294967296.0) -> 1.84467440822995e+19) ((5624 . 5625) (* 4294967298.0 4294967297.0) -> 1.84467440865945e+19) ((5625 . 5625) (* 4294967298.0 4294967298.0) -> 1.84467440908894e+19) ((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) -> 0.5) ((7 . 5625) (/ -1 -1) -> 1) ((8 . 5625) (/ -1 0) -> "division by zero") ((9 . 5625) (/ -1 1) -> -1) ((10 . 5625) (/ -1 2) -> -0.5) ((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) -> -0.5) ((17 . 5625) (/ 1 -1) -> -1) ((18 . 5625) (/ 1 0) -> "division by zero") ((19 . 5625) (/ 1 1) -> 1) ((20 . 5625) (/ 1 2) -> 0.5) ((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) -> -0.666666666666667) ((31 . 5625) (/ -1 -1) -> 1) ((32 . 5625) (/ -1 0) -> "division by zero") ((33 . 5625) (/ -1 1) -> -1) ((34 . 5625) (/ -1 2) -> -0.5) ((35 . 5625) (/ -1 3) -> -0.333333333333333) ((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) -> 0.5) ((45 . 5625) (/ 1 3) -> 0.333333333333333) ((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) -> 0.666666666666667) ((51 . 5625) (/ -2 -3) -> 0.666666666666667) ((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) -> 0.333333333333333) ((57 . 5625) (/ -1 -2) -> 0.5) ((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) -> -0.333333333333333) ((67 . 5625) (/ 1 -2) -> -0.5) ((68 . 5625) (/ 1 -1) -> -1) ((69 . 5625) (/ 1 0) -> "division by zero") ((70 . 5625) (/ 1 1) -> 1) ((71 . 5625) (/ 2 -3) -> -0.666666666666667) ((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) -> -0.666666666666667) ((80 . 5625) (/ -2 4) -> -0.5) ((81 . 5625) (/ -1 0) -> "division by zero") ((82 . 5625) (/ -1 1) -> -1) ((83 . 5625) (/ -1 2) -> -0.5) ((84 . 5625) (/ -1 3) -> -0.333333333333333) ((85 . 5625) (/ -1 4) -> -0.25) ((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) -> 0.5) ((94 . 5625) (/ 1 3) -> 0.333333333333333) ((95 . 5625) (/ 1 4) -> 0.25) ((96 . 5625) (/ 2 0) -> "division by zero") ((97 . 5625) (/ 2 1) -> 2) ((98 . 5625) (/ 2 2) -> 1) ((99 . 5625) (/ 2 3) -> 0.666666666666667) ((100 . 5625) (/ 2 4) -> 0.5) ((101 . 5625) (/ -2 -4) -> 0.5) ((102 . 5625) (/ -2 -3) -> 0.666666666666667) ((103 . 5625) (/ -2 -2) -> 1) ((104 . 5625) (/ -2 -1) -> 2) ((105 . 5625) (/ -2 0) -> "division by zero") ((106 . 5625) (/ -1 -4) -> 0.25) ((107 . 5625) (/ -1 -3) -> 0.333333333333333) ((108 . 5625) (/ -1 -2) -> 0.5) ((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) -> -0.25) ((117 . 5625) (/ 1 -3) -> -0.333333333333333) ((118 . 5625) (/ 1 -2) -> -0.5) ((119 . 5625) (/ 1 -1) -> -1) ((120 . 5625) (/ 1 0) -> "division by zero") ((121 . 5625) (/ 2 -4) -> -0.5) ((122 . 5625) (/ 2 -3) -> -0.666666666666667) ((123 . 5625) (/ 2 -2) -> -1) ((124 . 5625) (/ 2 -1) -> -2) ((125 . 5625) (/ 2 0) -> "division by zero") ((126 . 5625) (/ -2 1073741821) -> -1.86264515443513e-09) ((127 . 5625) (/ -2 1073741822) -> -1.8626451527004e-09) ((128 . 5625) (/ -2 1073741823) -> -1.86264515096568e-09) ((129 . 5625) (/ -2 1073741824.0) -> -1.86264514923096e-09) ((130 . 5625) (/ -2 1073741825.0) -> -1.86264514749623e-09) ((131 . 5625) (/ -1 1073741821) -> -9.31322577217564e-10) ((132 . 5625) (/ -1 1073741822) -> -9.31322576350202e-10) ((133 . 5625) (/ -1 1073741823) -> -9.3132257548284e-10) ((134 . 5625) (/ -1 1073741824.0) -> -9.31322574615479e-10) ((135 . 5625) (/ -1 1073741825.0) -> -9.31322573748117e-10) ((136 . 5625) (/ 0 1073741821) -> 0) ((137 . 5625) (/ 0 1073741822) -> 0) ((138 . 5625) (/ 0 1073741823) -> 0) ((139 . 5625) (/ 0 1073741824.0) -> 0.0) ((140 . 5625) (/ 0 1073741825.0) -> 0.0) ((141 . 5625) (/ 1 1073741821) -> 9.31322577217564e-10) ((142 . 5625) (/ 1 1073741822) -> 9.31322576350202e-10) ((143 . 5625) (/ 1 1073741823) -> 9.3132257548284e-10) ((144 . 5625) (/ 1 1073741824.0) -> 9.31322574615479e-10) ((145 . 5625) (/ 1 1073741825.0) -> 9.31322573748117e-10) ((146 . 5625) (/ 2 1073741821) -> 1.86264515443513e-09) ((147 . 5625) (/ 2 1073741822) -> 1.8626451527004e-09) ((148 . 5625) (/ 2 1073741823) -> 1.86264515096568e-09) ((149 . 5625) (/ 2 1073741824.0) -> 1.86264514923096e-09) ((150 . 5625) (/ 2 1073741825.0) -> 1.86264514749623e-09) ((151 . 5625) (/ -2 -1073741826.0) -> 1.86264514576151e-09) ((152 . 5625) (/ -2 -1073741825.0) -> 1.86264514749623e-09) ((153 . 5625) (/ -2 -1073741824) -> 1.86264514923096e-09) ((154 . 5625) (/ -2 -1073741823) -> 1.86264515096568e-09) ((155 . 5625) (/ -2 -1073741822) -> 1.8626451527004e-09) ((156 . 5625) (/ -1 -1073741826.0) -> 9.31322572880755e-10) ((157 . 5625) (/ -1 -1073741825.0) -> 9.31322573748117e-10) ((158 . 5625) (/ -1 -1073741824) -> 9.31322574615479e-10) ((159 . 5625) (/ -1 -1073741823) -> 9.3132257548284e-10) ((160 . 5625) (/ -1 -1073741822) -> 9.31322576350202e-10) ((161 . 5625) (/ 0 -1073741826.0) -> -0.0) ((162 . 5625) (/ 0 -1073741825.0) -> -0.0) ((163 . 5625) (/ 0 -1073741824) -> 0) ((164 . 5625) (/ 0 -1073741823) -> 0) ((165 . 5625) (/ 0 -1073741822) -> 0) ((166 . 5625) (/ 1 -1073741826.0) -> -9.31322572880755e-10) ((167 . 5625) (/ 1 -1073741825.0) -> -9.31322573748117e-10) ((168 . 5625) (/ 1 -1073741824) -> -9.31322574615479e-10) ((169 . 5625) (/ 1 -1073741823) -> -9.3132257548284e-10) ((170 . 5625) (/ 1 -1073741822) -> -9.31322576350202e-10) ((171 . 5625) (/ 2 -1073741826.0) -> -1.86264514576151e-09) ((172 . 5625) (/ 2 -1073741825.0) -> -1.86264514749623e-09) ((173 . 5625) (/ 2 -1073741824) -> -1.86264514923096e-09) ((174 . 5625) (/ 2 -1073741823) -> -1.86264515096568e-09) ((175 . 5625) (/ 2 -1073741822) -> -1.8626451527004e-09) ((176 . 5625) (/ -2 1073741822.0) -> -1.8626451527004e-09) ((177 . 5625) (/ -2 1073741823.0) -> -1.86264515096568e-09) ((178 . 5625) (/ -2 1073741824.0) -> -1.86264514923096e-09) ((179 . 5625) (/ -2 1073741825.0) -> -1.86264514749623e-09) ((180 . 5625) (/ -2 1073741826.0) -> -1.86264514576151e-09) ((181 . 5625) (/ -1 1073741822.0) -> -9.31322576350202e-10) ((182 . 5625) (/ -1 1073741823.0) -> -9.3132257548284e-10) ((183 . 5625) (/ -1 1073741824.0) -> -9.31322574615479e-10) ((184 . 5625) (/ -1 1073741825.0) -> -9.31322573748117e-10) ((185 . 5625) (/ -1 1073741826.0) -> -9.31322572880755e-10) ((186 . 5625) (/ 0 1073741822.0) -> 0.0) ((187 . 5625) (/ 0 1073741823.0) -> 0.0) ((188 . 5625) (/ 0 1073741824.0) -> 0.0) ((189 . 5625) (/ 0 1073741825.0) -> 0.0) ((190 . 5625) (/ 0 1073741826.0) -> 0.0) ((191 . 5625) (/ 1 1073741822.0) -> 9.31322576350202e-10) ((192 . 5625) (/ 1 1073741823.0) -> 9.3132257548284e-10) ((193 . 5625) (/ 1 1073741824.0) -> 9.31322574615479e-10) ((194 . 5625) (/ 1 1073741825.0) -> 9.31322573748117e-10) ((195 . 5625) (/ 1 1073741826.0) -> 9.31322572880755e-10) ((196 . 5625) (/ 2 1073741822.0) -> 1.8626451527004e-09) ((197 . 5625) (/ 2 1073741823.0) -> 1.86264515096568e-09) ((198 . 5625) (/ 2 1073741824.0) -> 1.86264514923096e-09) ((199 . 5625) (/ 2 1073741825.0) -> 1.86264514749623e-09) ((200 . 5625) (/ 2 1073741826.0) -> 1.86264514576151e-09) ((201 . 5625) (/ -2 -1073741827.0) -> 1.86264514402679e-09) ((202 . 5625) (/ -2 -1073741826.0) -> 1.86264514576151e-09) ((203 . 5625) (/ -2 -1073741825.0) -> 1.86264514749623e-09) ((204 . 5625) (/ -2 -1073741824.0) -> 1.86264514923096e-09) ((205 . 5625) (/ -2 -1073741823.0) -> 1.86264515096568e-09) ((206 . 5625) (/ -1 -1073741827.0) -> 9.31322572013393e-10) ((207 . 5625) (/ -1 -1073741826.0) -> 9.31322572880755e-10) ((208 . 5625) (/ -1 -1073741825.0) -> 9.31322573748117e-10) ((209 . 5625) (/ -1 -1073741824.0) -> 9.31322574615479e-10) ((210 . 5625) (/ -1 -1073741823.0) -> 9.3132257548284e-10) ((211 . 5625) (/ 0 -1073741827.0) -> -0.0) ((212 . 5625) (/ 0 -1073741826.0) -> -0.0) ((213 . 5625) (/ 0 -1073741825.0) -> -0.0) ((214 . 5625) (/ 0 -1073741824.0) -> -0.0) ((215 . 5625) (/ 0 -1073741823.0) -> -0.0) ((216 . 5625) (/ 1 -1073741827.0) -> -9.31322572013393e-10) ((217 . 5625) (/ 1 -1073741826.0) -> -9.31322572880755e-10) ((218 . 5625) (/ 1 -1073741825.0) -> -9.31322573748117e-10) ((219 . 5625) (/ 1 -1073741824.0) -> -9.31322574615479e-10) ((220 . 5625) (/ 1 -1073741823.0) -> -9.3132257548284e-10) ((221 . 5625) (/ 2 -1073741827.0) -> -1.86264514402679e-09) ((222 . 5625) (/ 2 -1073741826.0) -> -1.86264514576151e-09) ((223 . 5625) (/ 2 -1073741825.0) -> -1.86264514749623e-09) ((224 . 5625) (/ 2 -1073741824.0) -> -1.86264514923096e-09) ((225 . 5625) (/ 2 -1073741823.0) -> -1.86264515096568e-09) ((226 . 5625) (/ -2 1103515243.0) -> -1.81239000791945e-09) ((227 . 5625) (/ -2 1103515244.0) -> -1.81239000627707e-09) ((228 . 5625) (/ -2 1103515245.0) -> -1.81239000463469e-09) ((229 . 5625) (/ -2 1103515246.0) -> -1.81239000299231e-09) ((230 . 5625) (/ -2 1103515247.0) -> -1.81239000134993e-09) ((231 . 5625) (/ -1 1103515243.0) -> -9.06195003959723e-10) ((232 . 5625) (/ -1 1103515244.0) -> -9.06195003138534e-10) ((233 . 5625) (/ -1 1103515245.0) -> -9.06195002317345e-10) ((234 . 5625) (/ -1 1103515246.0) -> -9.06195001496155e-10) ((235 . 5625) (/ -1 1103515247.0) -> -9.06195000674966e-10) ((236 . 5625) (/ 0 1103515243.0) -> 0.0) ((237 . 5625) (/ 0 1103515244.0) -> 0.0) ((238 . 5625) (/ 0 1103515245.0) -> 0.0) ((239 . 5625) (/ 0 1103515246.0) -> 0.0) ((240 . 5625) (/ 0 1103515247.0) -> 0.0) ((241 . 5625) (/ 1 1103515243.0) -> 9.06195003959723e-10) ((242 . 5625) (/ 1 1103515244.0) -> 9.06195003138534e-10) ((243 . 5625) (/ 1 1103515245.0) -> 9.06195002317345e-10) ((244 . 5625) (/ 1 1103515246.0) -> 9.06195001496155e-10) ((245 . 5625) (/ 1 1103515247.0) -> 9.06195000674966e-10) ((246 . 5625) (/ 2 1103515243.0) -> 1.81239000791945e-09) ((247 . 5625) (/ 2 1103515244.0) -> 1.81239000627707e-09) ((248 . 5625) (/ 2 1103515245.0) -> 1.81239000463469e-09) ((249 . 5625) (/ 2 1103515246.0) -> 1.81239000299231e-09) ((250 . 5625) (/ 2 1103515247.0) -> 1.81239000134993e-09) ((251 . 5625) (/ -2 631629063) -> -3.1664154123953e-09) ((252 . 5625) (/ -2 631629064) -> -3.1664154073822e-09) ((253 . 5625) (/ -2 631629065) -> -3.16641540236911e-09) ((254 . 5625) (/ -2 631629066) -> -3.16641539735602e-09) ((255 . 5625) (/ -2 631629067) -> -3.16641539234292e-09) ((256 . 5625) (/ -1 631629063) -> -1.58320770619765e-09) ((257 . 5625) (/ -1 631629064) -> -1.5832077036911e-09) ((258 . 5625) (/ -1 631629065) -> -1.58320770118456e-09) ((259 . 5625) (/ -1 631629066) -> -1.58320769867801e-09) ((260 . 5625) (/ -1 631629067) -> -1.58320769617146e-09) ((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.58320770619765e-09) ((267 . 5625) (/ 1 631629064) -> 1.5832077036911e-09) ((268 . 5625) (/ 1 631629065) -> 1.58320770118456e-09) ((269 . 5625) (/ 1 631629066) -> 1.58320769867801e-09) ((270 . 5625) (/ 1 631629067) -> 1.58320769617146e-09) ((271 . 5625) (/ 2 631629063) -> 3.1664154123953e-09) ((272 . 5625) (/ 2 631629064) -> 3.1664154073822e-09) ((273 . 5625) (/ 2 631629065) -> 3.16641540236911e-09) ((274 . 5625) (/ 2 631629066) -> 3.16641539735602e-09) ((275 . 5625) (/ 2 631629067) -> 3.16641539234292e-09) ((276 . 5625) (/ -2 9.00719925474099e+15) -> -2.22044604925031e-16) ((277 . 5625) (/ -2 9.00719925474099e+15) -> -2.22044604925031e-16) ((278 . 5625) (/ -2 9.00719925474099e+15) -> -2.22044604925031e-16) ((279 . 5625) (/ -2 9.00719925474099e+15) -> -2.22044604925031e-16) ((280 . 5625) (/ -2 9.00719925474099e+15) -> -2.22044604925031e-16) ((281 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((282 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((283 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((284 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((285 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((286 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((287 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((288 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((289 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((290 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((291 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((292 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((293 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((294 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((295 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((296 . 5625) (/ 2 9.00719925474099e+15) -> 2.22044604925031e-16) ((297 . 5625) (/ 2 9.00719925474099e+15) -> 2.22044604925031e-16) ((298 . 5625) (/ 2 9.00719925474099e+15) -> 2.22044604925031e-16) ((299 . 5625) (/ 2 9.00719925474099e+15) -> 2.22044604925031e-16) ((300 . 5625) (/ 2 9.00719925474099e+15) -> 2.22044604925031e-16) ((301 . 5625) (/ -2 -9.00719925474099e+15) -> 2.22044604925031e-16) ((302 . 5625) (/ -2 -9.00719925474099e+15) -> 2.22044604925031e-16) ((303 . 5625) (/ -2 -9.00719925474099e+15) -> 2.22044604925031e-16) ((304 . 5625) (/ -2 -9.00719925474099e+15) -> 2.22044604925031e-16) ((305 . 5625) (/ -2 -9.00719925474099e+15) -> 2.22044604925031e-16) ((306 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((307 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((308 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((309 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((310 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((311 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((312 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((313 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((314 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((315 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((316 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((317 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((318 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((319 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((320 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((321 . 5625) (/ 2 -9.00719925474099e+15) -> -2.22044604925031e-16) ((322 . 5625) (/ 2 -9.00719925474099e+15) -> -2.22044604925031e-16) ((323 . 5625) (/ 2 -9.00719925474099e+15) -> -2.22044604925031e-16) ((324 . 5625) (/ 2 -9.00719925474099e+15) -> -2.22044604925031e-16) ((325 . 5625) (/ 2 -9.00719925474099e+15) -> -2.22044604925031e-16) ((326 . 5625) (/ -2 12343) -> -0.000162035161630074) ((327 . 5625) (/ -2 12344) -> -0.00016202203499676) ((328 . 5625) (/ -2 12345) -> -0.000162008910490077) ((329 . 5625) (/ -2 12346) -> -0.000161995788109509) ((330 . 5625) (/ -2 12347) -> -0.00016198266785454) ((331 . 5625) (/ -1 12343) -> -8.10175808150369e-05) ((332 . 5625) (/ -1 12344) -> -8.10110174983798e-05) ((333 . 5625) (/ -1 12345) -> -8.10044552450385e-05) ((334 . 5625) (/ -1 12346) -> -8.09978940547546e-05) ((335 . 5625) (/ -1 12347) -> -8.09913339272698e-05) ((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) -> 8.10175808150369e-05) ((342 . 5625) (/ 1 12344) -> 8.10110174983798e-05) ((343 . 5625) (/ 1 12345) -> 8.10044552450385e-05) ((344 . 5625) (/ 1 12346) -> 8.09978940547546e-05) ((345 . 5625) (/ 1 12347) -> 8.09913339272698e-05) ((346 . 5625) (/ 2 12343) -> 0.000162035161630074) ((347 . 5625) (/ 2 12344) -> 0.00016202203499676) ((348 . 5625) (/ 2 12345) -> 0.000162008910490077) ((349 . 5625) (/ 2 12346) -> 0.000161995788109509) ((350 . 5625) (/ 2 12347) -> 0.00016198266785454) ((351 . 5625) (/ -2 4294967294.0) -> -4.6566128752458e-10) ((352 . 5625) (/ -2 4294967295.0) -> -4.65661287416159e-10) ((353 . 5625) (/ -2 4294967296.0) -> -4.65661287307739e-10) ((354 . 5625) (/ -2 4294967297.0) -> -4.65661287199319e-10) ((355 . 5625) (/ -2 4294967298.0) -> -4.65661287090899e-10) ((356 . 5625) (/ -1 4294967294.0) -> -2.3283064376229e-10) ((357 . 5625) (/ -1 4294967295.0) -> -2.3283064370808e-10) ((358 . 5625) (/ -1 4294967296.0) -> -2.3283064365387e-10) ((359 . 5625) (/ -1 4294967297.0) -> -2.3283064359966e-10) ((360 . 5625) (/ -1 4294967298.0) -> -2.32830643545449e-10) ((361 . 5625) (/ 0 4294967294.0) -> 0.0) ((362 . 5625) (/ 0 4294967295.0) -> 0.0) ((363 . 5625) (/ 0 4294967296.0) -> 0.0) ((364 . 5625) (/ 0 4294967297.0) -> 0.0) ((365 . 5625) (/ 0 4294967298.0) -> 0.0) ((366 . 5625) (/ 1 4294967294.0) -> 2.3283064376229e-10) ((367 . 5625) (/ 1 4294967295.0) -> 2.3283064370808e-10) ((368 . 5625) (/ 1 4294967296.0) -> 2.3283064365387e-10) ((369 . 5625) (/ 1 4294967297.0) -> 2.3283064359966e-10) ((370 . 5625) (/ 1 4294967298.0) -> 2.32830643545449e-10) ((371 . 5625) (/ 2 4294967294.0) -> 4.6566128752458e-10) ((372 . 5625) (/ 2 4294967295.0) -> 4.65661287416159e-10) ((373 . 5625) (/ 2 4294967296.0) -> 4.65661287307739e-10) ((374 . 5625) (/ 2 4294967297.0) -> 4.65661287199319e-10) ((375 . 5625) (/ 2 4294967298.0) -> 4.65661287090899e-10) ((376 . 5625) (/ -1 -2) -> 0.5) ((377 . 5625) (/ -1 -1) -> 1) ((378 . 5625) (/ -1 0) -> "division by zero") ((379 . 5625) (/ -1 1) -> -1) ((380 . 5625) (/ -1 2) -> -0.5) ((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) -> -0.5) ((387 . 5625) (/ 1 -1) -> -1) ((388 . 5625) (/ 1 0) -> "division by zero") ((389 . 5625) (/ 1 1) -> 1) ((390 . 5625) (/ 1 2) -> 0.5) ((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) -> -1.5) ((397 . 5625) (/ 3 -1) -> -3) ((398 . 5625) (/ 3 0) -> "division by zero") ((399 . 5625) (/ 3 1) -> 3) ((400 . 5625) (/ 3 2) -> 1.5) ((401 . 5625) (/ -1 -1) -> 1) ((402 . 5625) (/ -1 0) -> "division by zero") ((403 . 5625) (/ -1 1) -> -1) ((404 . 5625) (/ -1 2) -> -0.5) ((405 . 5625) (/ -1 3) -> -0.333333333333333) ((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) -> 0.5) ((415 . 5625) (/ 1 3) -> 0.333333333333333) ((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) -> 0.666666666666667) ((421 . 5625) (/ 3 -1) -> -3) ((422 . 5625) (/ 3 0) -> "division by zero") ((423 . 5625) (/ 3 1) -> 3) ((424 . 5625) (/ 3 2) -> 1.5) ((425 . 5625) (/ 3 3) -> 1) ((426 . 5625) (/ -1 -3) -> 0.333333333333333) ((427 . 5625) (/ -1 -2) -> 0.5) ((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) -> -0.333333333333333) ((437 . 5625) (/ 1 -2) -> -0.5) ((438 . 5625) (/ 1 -1) -> -1) ((439 . 5625) (/ 1 0) -> "division by zero") ((440 . 5625) (/ 1 1) -> 1) ((441 . 5625) (/ 2 -3) -> -0.666666666666667) ((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) -> -1.5) ((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) -> -0.5) ((454 . 5625) (/ -1 3) -> -0.333333333333333) ((455 . 5625) (/ -1 4) -> -0.25) ((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) -> 0.5) ((464 . 5625) (/ 1 3) -> 0.333333333333333) ((465 . 5625) (/ 1 4) -> 0.25) ((466 . 5625) (/ 2 0) -> "division by zero") ((467 . 5625) (/ 2 1) -> 2) ((468 . 5625) (/ 2 2) -> 1) ((469 . 5625) (/ 2 3) -> 0.666666666666667) ((470 . 5625) (/ 2 4) -> 0.5) ((471 . 5625) (/ 3 0) -> "division by zero") ((472 . 5625) (/ 3 1) -> 3) ((473 . 5625) (/ 3 2) -> 1.5) ((474 . 5625) (/ 3 3) -> 1) ((475 . 5625) (/ 3 4) -> 0.75) ((476 . 5625) (/ -1 -4) -> 0.25) ((477 . 5625) (/ -1 -3) -> 0.333333333333333) ((478 . 5625) (/ -1 -2) -> 0.5) ((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) -> -0.25) ((487 . 5625) (/ 1 -3) -> -0.333333333333333) ((488 . 5625) (/ 1 -2) -> -0.5) ((489 . 5625) (/ 1 -1) -> -1) ((490 . 5625) (/ 1 0) -> "division by zero") ((491 . 5625) (/ 2 -4) -> -0.5) ((492 . 5625) (/ 2 -3) -> -0.666666666666667) ((493 . 5625) (/ 2 -2) -> -1) ((494 . 5625) (/ 2 -1) -> -2) ((495 . 5625) (/ 2 0) -> "division by zero") ((496 . 5625) (/ 3 -4) -> -0.75) ((497 . 5625) (/ 3 -3) -> -1) ((498 . 5625) (/ 3 -2) -> -1.5) ((499 . 5625) (/ 3 -1) -> -3) ((500 . 5625) (/ 3 0) -> "division by zero") ((501 . 5625) (/ -1 1073741821) -> -9.31322577217564e-10) ((502 . 5625) (/ -1 1073741822) -> -9.31322576350202e-10) ((503 . 5625) (/ -1 1073741823) -> -9.3132257548284e-10) ((504 . 5625) (/ -1 1073741824.0) -> -9.31322574615479e-10) ((505 . 5625) (/ -1 1073741825.0) -> -9.31322573748117e-10) ((506 . 5625) (/ 0 1073741821) -> 0) ((507 . 5625) (/ 0 1073741822) -> 0) ((508 . 5625) (/ 0 1073741823) -> 0) ((509 . 5625) (/ 0 1073741824.0) -> 0.0) ((510 . 5625) (/ 0 1073741825.0) -> 0.0) ((511 . 5625) (/ 1 1073741821) -> 9.31322577217564e-10) ((512 . 5625) (/ 1 1073741822) -> 9.31322576350202e-10) ((513 . 5625) (/ 1 1073741823) -> 9.3132257548284e-10) ((514 . 5625) (/ 1 1073741824.0) -> 9.31322574615479e-10) ((515 . 5625) (/ 1 1073741825.0) -> 9.31322573748117e-10) ((516 . 5625) (/ 2 1073741821) -> 1.86264515443513e-09) ((517 . 5625) (/ 2 1073741822) -> 1.8626451527004e-09) ((518 . 5625) (/ 2 1073741823) -> 1.86264515096568e-09) ((519 . 5625) (/ 2 1073741824.0) -> 1.86264514923096e-09) ((520 . 5625) (/ 2 1073741825.0) -> 1.86264514749623e-09) ((521 . 5625) (/ 3 1073741821) -> 2.79396773165269e-09) ((522 . 5625) (/ 3 1073741822) -> 2.79396772905061e-09) ((523 . 5625) (/ 3 1073741823) -> 2.79396772644852e-09) ((524 . 5625) (/ 3 1073741824.0) -> 2.79396772384644e-09) ((525 . 5625) (/ 3 1073741825.0) -> 2.79396772124435e-09) ((526 . 5625) (/ -1 -1073741826.0) -> 9.31322572880755e-10) ((527 . 5625) (/ -1 -1073741825.0) -> 9.31322573748117e-10) ((528 . 5625) (/ -1 -1073741824) -> 9.31322574615479e-10) ((529 . 5625) (/ -1 -1073741823) -> 9.3132257548284e-10) ((530 . 5625) (/ -1 -1073741822) -> 9.31322576350202e-10) ((531 . 5625) (/ 0 -1073741826.0) -> -0.0) ((532 . 5625) (/ 0 -1073741825.0) -> -0.0) ((533 . 5625) (/ 0 -1073741824) -> 0) ((534 . 5625) (/ 0 -1073741823) -> 0) ((535 . 5625) (/ 0 -1073741822) -> 0) ((536 . 5625) (/ 1 -1073741826.0) -> -9.31322572880755e-10) ((537 . 5625) (/ 1 -1073741825.0) -> -9.31322573748117e-10) ((538 . 5625) (/ 1 -1073741824) -> -9.31322574615479e-10) ((539 . 5625) (/ 1 -1073741823) -> -9.3132257548284e-10) ((540 . 5625) (/ 1 -1073741822) -> -9.31322576350202e-10) ((541 . 5625) (/ 2 -1073741826.0) -> -1.86264514576151e-09) ((542 . 5625) (/ 2 -1073741825.0) -> -1.86264514749623e-09) ((543 . 5625) (/ 2 -1073741824) -> -1.86264514923096e-09) ((544 . 5625) (/ 2 -1073741823) -> -1.86264515096568e-09) ((545 . 5625) (/ 2 -1073741822) -> -1.8626451527004e-09) ((546 . 5625) (/ 3 -1073741826.0) -> -2.79396771864227e-09) ((547 . 5625) (/ 3 -1073741825.0) -> -2.79396772124435e-09) ((548 . 5625) (/ 3 -1073741824) -> -2.79396772384644e-09) ((549 . 5625) (/ 3 -1073741823) -> -2.79396772644852e-09) ((550 . 5625) (/ 3 -1073741822) -> -2.79396772905061e-09) ((551 . 5625) (/ -1 1073741822.0) -> -9.31322576350202e-10) ((552 . 5625) (/ -1 1073741823.0) -> -9.3132257548284e-10) ((553 . 5625) (/ -1 1073741824.0) -> -9.31322574615479e-10) ((554 . 5625) (/ -1 1073741825.0) -> -9.31322573748117e-10) ((555 . 5625) (/ -1 1073741826.0) -> -9.31322572880755e-10) ((556 . 5625) (/ 0 1073741822.0) -> 0.0) ((557 . 5625) (/ 0 1073741823.0) -> 0.0) ((558 . 5625) (/ 0 1073741824.0) -> 0.0) ((559 . 5625) (/ 0 1073741825.0) -> 0.0) ((560 . 5625) (/ 0 1073741826.0) -> 0.0) ((561 . 5625) (/ 1 1073741822.0) -> 9.31322576350202e-10) ((562 . 5625) (/ 1 1073741823.0) -> 9.3132257548284e-10) ((563 . 5625) (/ 1 1073741824.0) -> 9.31322574615479e-10) ((564 . 5625) (/ 1 1073741825.0) -> 9.31322573748117e-10) ((565 . 5625) (/ 1 1073741826.0) -> 9.31322572880755e-10) ((566 . 5625) (/ 2 1073741822.0) -> 1.8626451527004e-09) ((567 . 5625) (/ 2 1073741823.0) -> 1.86264515096568e-09) ((568 . 5625) (/ 2 1073741824.0) -> 1.86264514923096e-09) ((569 . 5625) (/ 2 1073741825.0) -> 1.86264514749623e-09) ((570 . 5625) (/ 2 1073741826.0) -> 1.86264514576151e-09) ((571 . 5625) (/ 3 1073741822.0) -> 2.79396772905061e-09) ((572 . 5625) (/ 3 1073741823.0) -> 2.79396772644852e-09) ((573 . 5625) (/ 3 1073741824.0) -> 2.79396772384644e-09) ((574 . 5625) (/ 3 1073741825.0) -> 2.79396772124435e-09) ((575 . 5625) (/ 3 1073741826.0) -> 2.79396771864227e-09) ((576 . 5625) (/ -1 -1073741827.0) -> 9.31322572013393e-10) ((577 . 5625) (/ -1 -1073741826.0) -> 9.31322572880755e-10) ((578 . 5625) (/ -1 -1073741825.0) -> 9.31322573748117e-10) ((579 . 5625) (/ -1 -1073741824.0) -> 9.31322574615479e-10) ((580 . 5625) (/ -1 -1073741823.0) -> 9.3132257548284e-10) ((581 . 5625) (/ 0 -1073741827.0) -> -0.0) ((582 . 5625) (/ 0 -1073741826.0) -> -0.0) ((583 . 5625) (/ 0 -1073741825.0) -> -0.0) ((584 . 5625) (/ 0 -1073741824.0) -> -0.0) ((585 . 5625) (/ 0 -1073741823.0) -> -0.0) ((586 . 5625) (/ 1 -1073741827.0) -> -9.31322572013393e-10) ((587 . 5625) (/ 1 -1073741826.0) -> -9.31322572880755e-10) ((588 . 5625) (/ 1 -1073741825.0) -> -9.31322573748117e-10) ((589 . 5625) (/ 1 -1073741824.0) -> -9.31322574615479e-10) ((590 . 5625) (/ 1 -1073741823.0) -> -9.3132257548284e-10) ((591 . 5625) (/ 2 -1073741827.0) -> -1.86264514402679e-09) ((592 . 5625) (/ 2 -1073741826.0) -> -1.86264514576151e-09) ((593 . 5625) (/ 2 -1073741825.0) -> -1.86264514749623e-09) ((594 . 5625) (/ 2 -1073741824.0) -> -1.86264514923096e-09) ((595 . 5625) (/ 2 -1073741823.0) -> -1.86264515096568e-09) ((596 . 5625) (/ 3 -1073741827.0) -> -2.79396771604018e-09) ((597 . 5625) (/ 3 -1073741826.0) -> -2.79396771864227e-09) ((598 . 5625) (/ 3 -1073741825.0) -> -2.79396772124435e-09) ((599 . 5625) (/ 3 -1073741824.0) -> -2.79396772384644e-09) ((600 . 5625) (/ 3 -1073741823.0) -> -2.79396772644852e-09) ((601 . 5625) (/ -1 1103515243.0) -> -9.06195003959723e-10) ((602 . 5625) (/ -1 1103515244.0) -> -9.06195003138534e-10) ((603 . 5625) (/ -1 1103515245.0) -> -9.06195002317345e-10) ((604 . 5625) (/ -1 1103515246.0) -> -9.06195001496155e-10) ((605 . 5625) (/ -1 1103515247.0) -> -9.06195000674966e-10) ((606 . 5625) (/ 0 1103515243.0) -> 0.0) ((607 . 5625) (/ 0 1103515244.0) -> 0.0) ((608 . 5625) (/ 0 1103515245.0) -> 0.0) ((609 . 5625) (/ 0 1103515246.0) -> 0.0) ((610 . 5625) (/ 0 1103515247.0) -> 0.0) ((611 . 5625) (/ 1 1103515243.0) -> 9.06195003959723e-10) ((612 . 5625) (/ 1 1103515244.0) -> 9.06195003138534e-10) ((613 . 5625) (/ 1 1103515245.0) -> 9.06195002317345e-10) ((614 . 5625) (/ 1 1103515246.0) -> 9.06195001496155e-10) ((615 . 5625) (/ 1 1103515247.0) -> 9.06195000674966e-10) ((616 . 5625) (/ 2 1103515243.0) -> 1.81239000791945e-09) ((617 . 5625) (/ 2 1103515244.0) -> 1.81239000627707e-09) ((618 . 5625) (/ 2 1103515245.0) -> 1.81239000463469e-09) ((619 . 5625) (/ 2 1103515246.0) -> 1.81239000299231e-09) ((620 . 5625) (/ 2 1103515247.0) -> 1.81239000134993e-09) ((621 . 5625) (/ 3 1103515243.0) -> 2.71858501187917e-09) ((622 . 5625) (/ 3 1103515244.0) -> 2.7185850094156e-09) ((623 . 5625) (/ 3 1103515245.0) -> 2.71858500695203e-09) ((624 . 5625) (/ 3 1103515246.0) -> 2.71858500448847e-09) ((625 . 5625) (/ 3 1103515247.0) -> 2.7185850020249e-09) ((626 . 5625) (/ -1 631629063) -> -1.58320770619765e-09) ((627 . 5625) (/ -1 631629064) -> -1.5832077036911e-09) ((628 . 5625) (/ -1 631629065) -> -1.58320770118456e-09) ((629 . 5625) (/ -1 631629066) -> -1.58320769867801e-09) ((630 . 5625) (/ -1 631629067) -> -1.58320769617146e-09) ((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.58320770619765e-09) ((637 . 5625) (/ 1 631629064) -> 1.5832077036911e-09) ((638 . 5625) (/ 1 631629065) -> 1.58320770118456e-09) ((639 . 5625) (/ 1 631629066) -> 1.58320769867801e-09) ((640 . 5625) (/ 1 631629067) -> 1.58320769617146e-09) ((641 . 5625) (/ 2 631629063) -> 3.1664154123953e-09) ((642 . 5625) (/ 2 631629064) -> 3.1664154073822e-09) ((643 . 5625) (/ 2 631629065) -> 3.16641540236911e-09) ((644 . 5625) (/ 2 631629066) -> 3.16641539735602e-09) ((645 . 5625) (/ 2 631629067) -> 3.16641539234292e-09) ((646 . 5625) (/ 3 631629063) -> 4.74962311859295e-09) ((647 . 5625) (/ 3 631629064) -> 4.74962311107331e-09) ((648 . 5625) (/ 3 631629065) -> 4.74962310355367e-09) ((649 . 5625) (/ 3 631629066) -> 4.74962309603403e-09) ((650 . 5625) (/ 3 631629067) -> 4.74962308851439e-09) ((651 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((652 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((653 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((654 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((655 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((656 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((657 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((658 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((659 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((660 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((661 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((662 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((663 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((664 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((665 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((666 . 5625) (/ 2 9.00719925474099e+15) -> 2.22044604925031e-16) ((667 . 5625) (/ 2 9.00719925474099e+15) -> 2.22044604925031e-16) ((668 . 5625) (/ 2 9.00719925474099e+15) -> 2.22044604925031e-16) ((669 . 5625) (/ 2 9.00719925474099e+15) -> 2.22044604925031e-16) ((670 . 5625) (/ 2 9.00719925474099e+15) -> 2.22044604925031e-16) ((671 . 5625) (/ 3 9.00719925474099e+15) -> 3.33066907387547e-16) ((672 . 5625) (/ 3 9.00719925474099e+15) -> 3.33066907387547e-16) ((673 . 5625) (/ 3 9.00719925474099e+15) -> 3.33066907387547e-16) ((674 . 5625) (/ 3 9.00719925474099e+15) -> 3.33066907387547e-16) ((675 . 5625) (/ 3 9.00719925474099e+15) -> 3.33066907387547e-16) ((676 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((677 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((678 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((679 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((680 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((681 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((682 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((683 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((684 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((685 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((686 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((687 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((688 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((689 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((690 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((691 . 5625) (/ 2 -9.00719925474099e+15) -> -2.22044604925031e-16) ((692 . 5625) (/ 2 -9.00719925474099e+15) -> -2.22044604925031e-16) ((693 . 5625) (/ 2 -9.00719925474099e+15) -> -2.22044604925031e-16) ((694 . 5625) (/ 2 -9.00719925474099e+15) -> -2.22044604925031e-16) ((695 . 5625) (/ 2 -9.00719925474099e+15) -> -2.22044604925031e-16) ((696 . 5625) (/ 3 -9.00719925474099e+15) -> -3.33066907387547e-16) ((697 . 5625) (/ 3 -9.00719925474099e+15) -> -3.33066907387547e-16) ((698 . 5625) (/ 3 -9.00719925474099e+15) -> -3.33066907387547e-16) ((699 . 5625) (/ 3 -9.00719925474099e+15) -> -3.33066907387547e-16) ((700 . 5625) (/ 3 -9.00719925474099e+15) -> -3.33066907387547e-16) ((701 . 5625) (/ -1 12343) -> -8.10175808150369e-05) ((702 . 5625) (/ -1 12344) -> -8.10110174983798e-05) ((703 . 5625) (/ -1 12345) -> -8.10044552450385e-05) ((704 . 5625) (/ -1 12346) -> -8.09978940547546e-05) ((705 . 5625) (/ -1 12347) -> -8.09913339272698e-05) ((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) -> 8.10175808150369e-05) ((712 . 5625) (/ 1 12344) -> 8.10110174983798e-05) ((713 . 5625) (/ 1 12345) -> 8.10044552450385e-05) ((714 . 5625) (/ 1 12346) -> 8.09978940547546e-05) ((715 . 5625) (/ 1 12347) -> 8.09913339272698e-05) ((716 . 5625) (/ 2 12343) -> 0.000162035161630074) ((717 . 5625) (/ 2 12344) -> 0.00016202203499676) ((718 . 5625) (/ 2 12345) -> 0.000162008910490077) ((719 . 5625) (/ 2 12346) -> 0.000161995788109509) ((720 . 5625) (/ 2 12347) -> 0.00016198266785454) ((721 . 5625) (/ 3 12343) -> 0.000243052742445111) ((722 . 5625) (/ 3 12344) -> 0.000243033052495139) ((723 . 5625) (/ 3 12345) -> 0.000243013365735115) ((724 . 5625) (/ 3 12346) -> 0.000242993682164264) ((725 . 5625) (/ 3 12347) -> 0.000242974001781809) ((726 . 5625) (/ -1 4294967294.0) -> -2.3283064376229e-10) ((727 . 5625) (/ -1 4294967295.0) -> -2.3283064370808e-10) ((728 . 5625) (/ -1 4294967296.0) -> -2.3283064365387e-10) ((729 . 5625) (/ -1 4294967297.0) -> -2.3283064359966e-10) ((730 . 5625) (/ -1 4294967298.0) -> -2.32830643545449e-10) ((731 . 5625) (/ 0 4294967294.0) -> 0.0) ((732 . 5625) (/ 0 4294967295.0) -> 0.0) ((733 . 5625) (/ 0 4294967296.0) -> 0.0) ((734 . 5625) (/ 0 4294967297.0) -> 0.0) ((735 . 5625) (/ 0 4294967298.0) -> 0.0) ((736 . 5625) (/ 1 4294967294.0) -> 2.3283064376229e-10) ((737 . 5625) (/ 1 4294967295.0) -> 2.3283064370808e-10) ((738 . 5625) (/ 1 4294967296.0) -> 2.3283064365387e-10) ((739 . 5625) (/ 1 4294967297.0) -> 2.3283064359966e-10) ((740 . 5625) (/ 1 4294967298.0) -> 2.32830643545449e-10) ((741 . 5625) (/ 2 4294967294.0) -> 4.6566128752458e-10) ((742 . 5625) (/ 2 4294967295.0) -> 4.65661287416159e-10) ((743 . 5625) (/ 2 4294967296.0) -> 4.65661287307739e-10) ((744 . 5625) (/ 2 4294967297.0) -> 4.65661287199319e-10) ((745 . 5625) (/ 2 4294967298.0) -> 4.65661287090899e-10) ((746 . 5625) (/ 3 4294967294.0) -> 6.9849193128687e-10) ((747 . 5625) (/ 3 4294967295.0) -> 6.98491931124239e-10) ((748 . 5625) (/ 3 4294967296.0) -> 6.98491930961609e-10) ((749 . 5625) (/ 3 4294967297.0) -> 6.98491930798979e-10) ((750 . 5625) (/ 3 4294967298.0) -> 6.98491930636348e-10) ((751 . 5625) (/ -3 -2) -> 1.5) ((752 . 5625) (/ -3 -1) -> 3) ((753 . 5625) (/ -3 0) -> "division by zero") ((754 . 5625) (/ -3 1) -> -3) ((755 . 5625) (/ -3 2) -> -1.5) ((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) -> 0.5) ((762 . 5625) (/ -1 -1) -> 1) ((763 . 5625) (/ -1 0) -> "division by zero") ((764 . 5625) (/ -1 1) -> -1) ((765 . 5625) (/ -1 2) -> -0.5) ((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) -> -0.5) ((772 . 5625) (/ 1 -1) -> -1) ((773 . 5625) (/ 1 0) -> "division by zero") ((774 . 5625) (/ 1 1) -> 1) ((775 . 5625) (/ 1 2) -> 0.5) ((776 . 5625) (/ -3 -1) -> 3) ((777 . 5625) (/ -3 0) -> "division by zero") ((778 . 5625) (/ -3 1) -> -3) ((779 . 5625) (/ -3 2) -> -1.5) ((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) -> -0.666666666666667) ((786 . 5625) (/ -1 -1) -> 1) ((787 . 5625) (/ -1 0) -> "division by zero") ((788 . 5625) (/ -1 1) -> -1) ((789 . 5625) (/ -1 2) -> -0.5) ((790 . 5625) (/ -1 3) -> -0.333333333333333) ((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) -> 0.5) ((800 . 5625) (/ 1 3) -> 0.333333333333333) ((801 . 5625) (/ -3 -3) -> 1) ((802 . 5625) (/ -3 -2) -> 1.5) ((803 . 5625) (/ -3 -1) -> 3) ((804 . 5625) (/ -3 0) -> "division by zero") ((805 . 5625) (/ -3 1) -> -3) ((806 . 5625) (/ -2 -3) -> 0.666666666666667) ((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) -> 0.333333333333333) ((812 . 5625) (/ -1 -2) -> 0.5) ((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) -> -0.333333333333333) ((822 . 5625) (/ 1 -2) -> -0.5) ((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) -> -1.5) ((829 . 5625) (/ -3 3) -> -1) ((830 . 5625) (/ -3 4) -> -0.75) ((831 . 5625) (/ -2 0) -> "division by zero") ((832 . 5625) (/ -2 1) -> -2) ((833 . 5625) (/ -2 2) -> -1) ((834 . 5625) (/ -2 3) -> -0.666666666666667) ((835 . 5625) (/ -2 4) -> -0.5) ((836 . 5625) (/ -1 0) -> "division by zero") ((837 . 5625) (/ -1 1) -> -1) ((838 . 5625) (/ -1 2) -> -0.5) ((839 . 5625) (/ -1 3) -> -0.333333333333333) ((840 . 5625) (/ -1 4) -> -0.25) ((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) -> 0.5) ((849 . 5625) (/ 1 3) -> 0.333333333333333) ((850 . 5625) (/ 1 4) -> 0.25) ((851 . 5625) (/ -3 -4) -> 0.75) ((852 . 5625) (/ -3 -3) -> 1) ((853 . 5625) (/ -3 -2) -> 1.5) ((854 . 5625) (/ -3 -1) -> 3) ((855 . 5625) (/ -3 0) -> "division by zero") ((856 . 5625) (/ -2 -4) -> 0.5) ((857 . 5625) (/ -2 -3) -> 0.666666666666667) ((858 . 5625) (/ -2 -2) -> 1) ((859 . 5625) (/ -2 -1) -> 2) ((860 . 5625) (/ -2 0) -> "division by zero") ((861 . 5625) (/ -1 -4) -> 0.25) ((862 . 5625) (/ -1 -3) -> 0.333333333333333) ((863 . 5625) (/ -1 -2) -> 0.5) ((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) -> -0.25) ((872 . 5625) (/ 1 -3) -> -0.333333333333333) ((873 . 5625) (/ 1 -2) -> -0.5) ((874 . 5625) (/ 1 -1) -> -1) ((875 . 5625) (/ 1 0) -> "division by zero") ((876 . 5625) (/ -3 1073741821) -> -2.79396773165269e-09) ((877 . 5625) (/ -3 1073741822) -> -2.79396772905061e-09) ((878 . 5625) (/ -3 1073741823) -> -2.79396772644852e-09) ((879 . 5625) (/ -3 1073741824.0) -> -2.79396772384644e-09) ((880 . 5625) (/ -3 1073741825.0) -> -2.79396772124435e-09) ((881 . 5625) (/ -2 1073741821) -> -1.86264515443513e-09) ((882 . 5625) (/ -2 1073741822) -> -1.8626451527004e-09) ((883 . 5625) (/ -2 1073741823) -> -1.86264515096568e-09) ((884 . 5625) (/ -2 1073741824.0) -> -1.86264514923096e-09) ((885 . 5625) (/ -2 1073741825.0) -> -1.86264514749623e-09) ((886 . 5625) (/ -1 1073741821) -> -9.31322577217564e-10) ((887 . 5625) (/ -1 1073741822) -> -9.31322576350202e-10) ((888 . 5625) (/ -1 1073741823) -> -9.3132257548284e-10) ((889 . 5625) (/ -1 1073741824.0) -> -9.31322574615479e-10) ((890 . 5625) (/ -1 1073741825.0) -> -9.31322573748117e-10) ((891 . 5625) (/ 0 1073741821) -> 0) ((892 . 5625) (/ 0 1073741822) -> 0) ((893 . 5625) (/ 0 1073741823) -> 0) ((894 . 5625) (/ 0 1073741824.0) -> 0.0) ((895 . 5625) (/ 0 1073741825.0) -> 0.0) ((896 . 5625) (/ 1 1073741821) -> 9.31322577217564e-10) ((897 . 5625) (/ 1 1073741822) -> 9.31322576350202e-10) ((898 . 5625) (/ 1 1073741823) -> 9.3132257548284e-10) ((899 . 5625) (/ 1 1073741824.0) -> 9.31322574615479e-10) ((900 . 5625) (/ 1 1073741825.0) -> 9.31322573748117e-10) ((901 . 5625) (/ -3 -1073741826.0) -> 2.79396771864227e-09) ((902 . 5625) (/ -3 -1073741825.0) -> 2.79396772124435e-09) ((903 . 5625) (/ -3 -1073741824) -> 2.79396772384644e-09) ((904 . 5625) (/ -3 -1073741823) -> 2.79396772644852e-09) ((905 . 5625) (/ -3 -1073741822) -> 2.79396772905061e-09) ((906 . 5625) (/ -2 -1073741826.0) -> 1.86264514576151e-09) ((907 . 5625) (/ -2 -1073741825.0) -> 1.86264514749623e-09) ((908 . 5625) (/ -2 -1073741824) -> 1.86264514923096e-09) ((909 . 5625) (/ -2 -1073741823) -> 1.86264515096568e-09) ((910 . 5625) (/ -2 -1073741822) -> 1.8626451527004e-09) ((911 . 5625) (/ -1 -1073741826.0) -> 9.31322572880755e-10) ((912 . 5625) (/ -1 -1073741825.0) -> 9.31322573748117e-10) ((913 . 5625) (/ -1 -1073741824) -> 9.31322574615479e-10) ((914 . 5625) (/ -1 -1073741823) -> 9.3132257548284e-10) ((915 . 5625) (/ -1 -1073741822) -> 9.31322576350202e-10) ((916 . 5625) (/ 0 -1073741826.0) -> -0.0) ((917 . 5625) (/ 0 -1073741825.0) -> -0.0) ((918 . 5625) (/ 0 -1073741824) -> 0) ((919 . 5625) (/ 0 -1073741823) -> 0) ((920 . 5625) (/ 0 -1073741822) -> 0) ((921 . 5625) (/ 1 -1073741826.0) -> -9.31322572880755e-10) ((922 . 5625) (/ 1 -1073741825.0) -> -9.31322573748117e-10) ((923 . 5625) (/ 1 -1073741824) -> -9.31322574615479e-10) ((924 . 5625) (/ 1 -1073741823) -> -9.3132257548284e-10) ((925 . 5625) (/ 1 -1073741822) -> -9.31322576350202e-10) ((926 . 5625) (/ -3 1073741822.0) -> -2.79396772905061e-09) ((927 . 5625) (/ -3 1073741823.0) -> -2.79396772644852e-09) ((928 . 5625) (/ -3 1073741824.0) -> -2.79396772384644e-09) ((929 . 5625) (/ -3 1073741825.0) -> -2.79396772124435e-09) ((930 . 5625) (/ -3 1073741826.0) -> -2.79396771864227e-09) ((931 . 5625) (/ -2 1073741822.0) -> -1.8626451527004e-09) ((932 . 5625) (/ -2 1073741823.0) -> -1.86264515096568e-09) ((933 . 5625) (/ -2 1073741824.0) -> -1.86264514923096e-09) ((934 . 5625) (/ -2 1073741825.0) -> -1.86264514749623e-09) ((935 . 5625) (/ -2 1073741826.0) -> -1.86264514576151e-09) ((936 . 5625) (/ -1 1073741822.0) -> -9.31322576350202e-10) ((937 . 5625) (/ -1 1073741823.0) -> -9.3132257548284e-10) ((938 . 5625) (/ -1 1073741824.0) -> -9.31322574615479e-10) ((939 . 5625) (/ -1 1073741825.0) -> -9.31322573748117e-10) ((940 . 5625) (/ -1 1073741826.0) -> -9.31322572880755e-10) ((941 . 5625) (/ 0 1073741822.0) -> 0.0) ((942 . 5625) (/ 0 1073741823.0) -> 0.0) ((943 . 5625) (/ 0 1073741824.0) -> 0.0) ((944 . 5625) (/ 0 1073741825.0) -> 0.0) ((945 . 5625) (/ 0 1073741826.0) -> 0.0) ((946 . 5625) (/ 1 1073741822.0) -> 9.31322576350202e-10) ((947 . 5625) (/ 1 1073741823.0) -> 9.3132257548284e-10) ((948 . 5625) (/ 1 1073741824.0) -> 9.31322574615479e-10) ((949 . 5625) (/ 1 1073741825.0) -> 9.31322573748117e-10) ((950 . 5625) (/ 1 1073741826.0) -> 9.31322572880755e-10) ((951 . 5625) (/ -3 -1073741827.0) -> 2.79396771604018e-09) ((952 . 5625) (/ -3 -1073741826.0) -> 2.79396771864227e-09) ((953 . 5625) (/ -3 -1073741825.0) -> 2.79396772124435e-09) ((954 . 5625) (/ -3 -1073741824.0) -> 2.79396772384644e-09) ((955 . 5625) (/ -3 -1073741823.0) -> 2.79396772644852e-09) ((956 . 5625) (/ -2 -1073741827.0) -> 1.86264514402679e-09) ((957 . 5625) (/ -2 -1073741826.0) -> 1.86264514576151e-09) ((958 . 5625) (/ -2 -1073741825.0) -> 1.86264514749623e-09) ((959 . 5625) (/ -2 -1073741824.0) -> 1.86264514923096e-09) ((960 . 5625) (/ -2 -1073741823.0) -> 1.86264515096568e-09) ((961 . 5625) (/ -1 -1073741827.0) -> 9.31322572013393e-10) ((962 . 5625) (/ -1 -1073741826.0) -> 9.31322572880755e-10) ((963 . 5625) (/ -1 -1073741825.0) -> 9.31322573748117e-10) ((964 . 5625) (/ -1 -1073741824.0) -> 9.31322574615479e-10) ((965 . 5625) (/ -1 -1073741823.0) -> 9.3132257548284e-10) ((966 . 5625) (/ 0 -1073741827.0) -> -0.0) ((967 . 5625) (/ 0 -1073741826.0) -> -0.0) ((968 . 5625) (/ 0 -1073741825.0) -> -0.0) ((969 . 5625) (/ 0 -1073741824.0) -> -0.0) ((970 . 5625) (/ 0 -1073741823.0) -> -0.0) ((971 . 5625) (/ 1 -1073741827.0) -> -9.31322572013393e-10) ((972 . 5625) (/ 1 -1073741826.0) -> -9.31322572880755e-10) ((973 . 5625) (/ 1 -1073741825.0) -> -9.31322573748117e-10) ((974 . 5625) (/ 1 -1073741824.0) -> -9.31322574615479e-10) ((975 . 5625) (/ 1 -1073741823.0) -> -9.3132257548284e-10) ((976 . 5625) (/ -3 1103515243.0) -> -2.71858501187917e-09) ((977 . 5625) (/ -3 1103515244.0) -> -2.7185850094156e-09) ((978 . 5625) (/ -3 1103515245.0) -> -2.71858500695203e-09) ((979 . 5625) (/ -3 1103515246.0) -> -2.71858500448847e-09) ((980 . 5625) (/ -3 1103515247.0) -> -2.7185850020249e-09) ((981 . 5625) (/ -2 1103515243.0) -> -1.81239000791945e-09) ((982 . 5625) (/ -2 1103515244.0) -> -1.81239000627707e-09) ((983 . 5625) (/ -2 1103515245.0) -> -1.81239000463469e-09) ((984 . 5625) (/ -2 1103515246.0) -> -1.81239000299231e-09) ((985 . 5625) (/ -2 1103515247.0) -> -1.81239000134993e-09) ((986 . 5625) (/ -1 1103515243.0) -> -9.06195003959723e-10) ((987 . 5625) (/ -1 1103515244.0) -> -9.06195003138534e-10) ((988 . 5625) (/ -1 1103515245.0) -> -9.06195002317345e-10) ((989 . 5625) (/ -1 1103515246.0) -> -9.06195001496155e-10) ((990 . 5625) (/ -1 1103515247.0) -> -9.06195000674966e-10) ((991 . 5625) (/ 0 1103515243.0) -> 0.0) ((992 . 5625) (/ 0 1103515244.0) -> 0.0) ((993 . 5625) (/ 0 1103515245.0) -> 0.0) ((994 . 5625) (/ 0 1103515246.0) -> 0.0) ((995 . 5625) (/ 0 1103515247.0) -> 0.0) ((996 . 5625) (/ 1 1103515243.0) -> 9.06195003959723e-10) ((997 . 5625) (/ 1 1103515244.0) -> 9.06195003138534e-10) ((998 . 5625) (/ 1 1103515245.0) -> 9.06195002317345e-10) ((999 . 5625) (/ 1 1103515246.0) -> 9.06195001496155e-10) ((1000 . 5625) (/ 1 1103515247.0) -> 9.06195000674966e-10) ((1001 . 5625) (/ -3 631629063) -> -4.74962311859295e-09) ((1002 . 5625) (/ -3 631629064) -> -4.74962311107331e-09) ((1003 . 5625) (/ -3 631629065) -> -4.74962310355367e-09) ((1004 . 5625) (/ -3 631629066) -> -4.74962309603403e-09) ((1005 . 5625) (/ -3 631629067) -> -4.74962308851439e-09) ((1006 . 5625) (/ -2 631629063) -> -3.1664154123953e-09) ((1007 . 5625) (/ -2 631629064) -> -3.1664154073822e-09) ((1008 . 5625) (/ -2 631629065) -> -3.16641540236911e-09) ((1009 . 5625) (/ -2 631629066) -> -3.16641539735602e-09) ((1010 . 5625) (/ -2 631629067) -> -3.16641539234292e-09) ((1011 . 5625) (/ -1 631629063) -> -1.58320770619765e-09) ((1012 . 5625) (/ -1 631629064) -> -1.5832077036911e-09) ((1013 . 5625) (/ -1 631629065) -> -1.58320770118456e-09) ((1014 . 5625) (/ -1 631629066) -> -1.58320769867801e-09) ((1015 . 5625) (/ -1 631629067) -> -1.58320769617146e-09) ((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.58320770619765e-09) ((1022 . 5625) (/ 1 631629064) -> 1.5832077036911e-09) ((1023 . 5625) (/ 1 631629065) -> 1.58320770118456e-09) ((1024 . 5625) (/ 1 631629066) -> 1.58320769867801e-09) ((1025 . 5625) (/ 1 631629067) -> 1.58320769617146e-09) ((1026 . 5625) (/ -3 9.00719925474099e+15) -> -3.33066907387547e-16) ((1027 . 5625) (/ -3 9.00719925474099e+15) -> -3.33066907387547e-16) ((1028 . 5625) (/ -3 9.00719925474099e+15) -> -3.33066907387547e-16) ((1029 . 5625) (/ -3 9.00719925474099e+15) -> -3.33066907387547e-16) ((1030 . 5625) (/ -3 9.00719925474099e+15) -> -3.33066907387547e-16) ((1031 . 5625) (/ -2 9.00719925474099e+15) -> -2.22044604925031e-16) ((1032 . 5625) (/ -2 9.00719925474099e+15) -> -2.22044604925031e-16) ((1033 . 5625) (/ -2 9.00719925474099e+15) -> -2.22044604925031e-16) ((1034 . 5625) (/ -2 9.00719925474099e+15) -> -2.22044604925031e-16) ((1035 . 5625) (/ -2 9.00719925474099e+15) -> -2.22044604925031e-16) ((1036 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((1037 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((1038 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((1039 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((1040 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((1041 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((1042 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((1043 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((1044 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((1045 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((1046 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((1047 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((1048 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((1049 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((1050 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((1051 . 5625) (/ -3 -9.00719925474099e+15) -> 3.33066907387547e-16) ((1052 . 5625) (/ -3 -9.00719925474099e+15) -> 3.33066907387547e-16) ((1053 . 5625) (/ -3 -9.00719925474099e+15) -> 3.33066907387547e-16) ((1054 . 5625) (/ -3 -9.00719925474099e+15) -> 3.33066907387547e-16) ((1055 . 5625) (/ -3 -9.00719925474099e+15) -> 3.33066907387547e-16) ((1056 . 5625) (/ -2 -9.00719925474099e+15) -> 2.22044604925031e-16) ((1057 . 5625) (/ -2 -9.00719925474099e+15) -> 2.22044604925031e-16) ((1058 . 5625) (/ -2 -9.00719925474099e+15) -> 2.22044604925031e-16) ((1059 . 5625) (/ -2 -9.00719925474099e+15) -> 2.22044604925031e-16) ((1060 . 5625) (/ -2 -9.00719925474099e+15) -> 2.22044604925031e-16) ((1061 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((1062 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((1063 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((1064 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((1065 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((1066 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((1067 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((1068 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((1069 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((1070 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((1071 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((1072 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((1073 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((1074 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((1075 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((1076 . 5625) (/ -3 12343) -> -0.000243052742445111) ((1077 . 5625) (/ -3 12344) -> -0.000243033052495139) ((1078 . 5625) (/ -3 12345) -> -0.000243013365735115) ((1079 . 5625) (/ -3 12346) -> -0.000242993682164264) ((1080 . 5625) (/ -3 12347) -> -0.000242974001781809) ((1081 . 5625) (/ -2 12343) -> -0.000162035161630074) ((1082 . 5625) (/ -2 12344) -> -0.00016202203499676) ((1083 . 5625) (/ -2 12345) -> -0.000162008910490077) ((1084 . 5625) (/ -2 12346) -> -0.000161995788109509) ((1085 . 5625) (/ -2 12347) -> -0.00016198266785454) ((1086 . 5625) (/ -1 12343) -> -8.10175808150369e-05) ((1087 . 5625) (/ -1 12344) -> -8.10110174983798e-05) ((1088 . 5625) (/ -1 12345) -> -8.10044552450385e-05) ((1089 . 5625) (/ -1 12346) -> -8.09978940547546e-05) ((1090 . 5625) (/ -1 12347) -> -8.09913339272698e-05) ((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) -> 8.10175808150369e-05) ((1097 . 5625) (/ 1 12344) -> 8.10110174983798e-05) ((1098 . 5625) (/ 1 12345) -> 8.10044552450385e-05) ((1099 . 5625) (/ 1 12346) -> 8.09978940547546e-05) ((1100 . 5625) (/ 1 12347) -> 8.09913339272698e-05) ((1101 . 5625) (/ -3 4294967294.0) -> -6.9849193128687e-10) ((1102 . 5625) (/ -3 4294967295.0) -> -6.98491931124239e-10) ((1103 . 5625) (/ -3 4294967296.0) -> -6.98491930961609e-10) ((1104 . 5625) (/ -3 4294967297.0) -> -6.98491930798979e-10) ((1105 . 5625) (/ -3 4294967298.0) -> -6.98491930636348e-10) ((1106 . 5625) (/ -2 4294967294.0) -> -4.6566128752458e-10) ((1107 . 5625) (/ -2 4294967295.0) -> -4.65661287416159e-10) ((1108 . 5625) (/ -2 4294967296.0) -> -4.65661287307739e-10) ((1109 . 5625) (/ -2 4294967297.0) -> -4.65661287199319e-10) ((1110 . 5625) (/ -2 4294967298.0) -> -4.65661287090899e-10) ((1111 . 5625) (/ -1 4294967294.0) -> -2.3283064376229e-10) ((1112 . 5625) (/ -1 4294967295.0) -> -2.3283064370808e-10) ((1113 . 5625) (/ -1 4294967296.0) -> -2.3283064365387e-10) ((1114 . 5625) (/ -1 4294967297.0) -> -2.3283064359966e-10) ((1115 . 5625) (/ -1 4294967298.0) -> -2.32830643545449e-10) ((1116 . 5625) (/ 0 4294967294.0) -> 0.0) ((1117 . 5625) (/ 0 4294967295.0) -> 0.0) ((1118 . 5625) (/ 0 4294967296.0) -> 0.0) ((1119 . 5625) (/ 0 4294967297.0) -> 0.0) ((1120 . 5625) (/ 0 4294967298.0) -> 0.0) ((1121 . 5625) (/ 1 4294967294.0) -> 2.3283064376229e-10) ((1122 . 5625) (/ 1 4294967295.0) -> 2.3283064370808e-10) ((1123 . 5625) (/ 1 4294967296.0) -> 2.3283064365387e-10) ((1124 . 5625) (/ 1 4294967297.0) -> 2.3283064359966e-10) ((1125 . 5625) (/ 1 4294967298.0) -> 2.32830643545449e-10) ((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) -> -0.5) ((1132 . 5625) (/ 1 -1) -> -1) ((1133 . 5625) (/ 1 0) -> "division by zero") ((1134 . 5625) (/ 1 1) -> 1) ((1135 . 5625) (/ 1 2) -> 0.5) ((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) -> -1.5) ((1142 . 5625) (/ 3 -1) -> -3) ((1143 . 5625) (/ 3 0) -> "division by zero") ((1144 . 5625) (/ 3 1) -> 3) ((1145 . 5625) (/ 3 2) -> 1.5) ((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) -> 0.5) ((1160 . 5625) (/ 1 3) -> 0.333333333333333) ((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) -> 0.666666666666667) ((1166 . 5625) (/ 3 -1) -> -3) ((1167 . 5625) (/ 3 0) -> "division by zero") ((1168 . 5625) (/ 3 1) -> 3) ((1169 . 5625) (/ 3 2) -> 1.5) ((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) -> 1.33333333333333) ((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) -> -0.333333333333333) ((1182 . 5625) (/ 1 -2) -> -0.5) ((1183 . 5625) (/ 1 -1) -> -1) ((1184 . 5625) (/ 1 0) -> "division by zero") ((1185 . 5625) (/ 1 1) -> 1) ((1186 . 5625) (/ 2 -3) -> -0.666666666666667) ((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) -> -1.5) ((1193 . 5625) (/ 3 -1) -> -3) ((1194 . 5625) (/ 3 0) -> "division by zero") ((1195 . 5625) (/ 3 1) -> 3) ((1196 . 5625) (/ 4 -3) -> -1.33333333333333) ((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) -> 0.5) ((1209 . 5625) (/ 1 3) -> 0.333333333333333) ((1210 . 5625) (/ 1 4) -> 0.25) ((1211 . 5625) (/ 2 0) -> "division by zero") ((1212 . 5625) (/ 2 1) -> 2) ((1213 . 5625) (/ 2 2) -> 1) ((1214 . 5625) (/ 2 3) -> 0.666666666666667) ((1215 . 5625) (/ 2 4) -> 0.5) ((1216 . 5625) (/ 3 0) -> "division by zero") ((1217 . 5625) (/ 3 1) -> 3) ((1218 . 5625) (/ 3 2) -> 1.5) ((1219 . 5625) (/ 3 3) -> 1) ((1220 . 5625) (/ 3 4) -> 0.75) ((1221 . 5625) (/ 4 0) -> "division by zero") ((1222 . 5625) (/ 4 1) -> 4) ((1223 . 5625) (/ 4 2) -> 2) ((1224 . 5625) (/ 4 3) -> 1.33333333333333) ((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) -> -0.25) ((1232 . 5625) (/ 1 -3) -> -0.333333333333333) ((1233 . 5625) (/ 1 -2) -> -0.5) ((1234 . 5625) (/ 1 -1) -> -1) ((1235 . 5625) (/ 1 0) -> "division by zero") ((1236 . 5625) (/ 2 -4) -> -0.5) ((1237 . 5625) (/ 2 -3) -> -0.666666666666667) ((1238 . 5625) (/ 2 -2) -> -1) ((1239 . 5625) (/ 2 -1) -> -2) ((1240 . 5625) (/ 2 0) -> "division by zero") ((1241 . 5625) (/ 3 -4) -> -0.75) ((1242 . 5625) (/ 3 -3) -> -1) ((1243 . 5625) (/ 3 -2) -> -1.5) ((1244 . 5625) (/ 3 -1) -> -3) ((1245 . 5625) (/ 3 0) -> "division by zero") ((1246 . 5625) (/ 4 -4) -> -1) ((1247 . 5625) (/ 4 -3) -> -1.33333333333333) ((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) -> 0.0) ((1255 . 5625) (/ 0 1073741825.0) -> 0.0) ((1256 . 5625) (/ 1 1073741821) -> 9.31322577217564e-10) ((1257 . 5625) (/ 1 1073741822) -> 9.31322576350202e-10) ((1258 . 5625) (/ 1 1073741823) -> 9.3132257548284e-10) ((1259 . 5625) (/ 1 1073741824.0) -> 9.31322574615479e-10) ((1260 . 5625) (/ 1 1073741825.0) -> 9.31322573748117e-10) ((1261 . 5625) (/ 2 1073741821) -> 1.86264515443513e-09) ((1262 . 5625) (/ 2 1073741822) -> 1.8626451527004e-09) ((1263 . 5625) (/ 2 1073741823) -> 1.86264515096568e-09) ((1264 . 5625) (/ 2 1073741824.0) -> 1.86264514923096e-09) ((1265 . 5625) (/ 2 1073741825.0) -> 1.86264514749623e-09) ((1266 . 5625) (/ 3 1073741821) -> 2.79396773165269e-09) ((1267 . 5625) (/ 3 1073741822) -> 2.79396772905061e-09) ((1268 . 5625) (/ 3 1073741823) -> 2.79396772644852e-09) ((1269 . 5625) (/ 3 1073741824.0) -> 2.79396772384644e-09) ((1270 . 5625) (/ 3 1073741825.0) -> 2.79396772124435e-09) ((1271 . 5625) (/ 4 1073741821) -> 3.72529030887025e-09) ((1272 . 5625) (/ 4 1073741822) -> 3.72529030540081e-09) ((1273 . 5625) (/ 4 1073741823) -> 3.72529030193136e-09) ((1274 . 5625) (/ 4 1073741824.0) -> 3.72529029846191e-09) ((1275 . 5625) (/ 4 1073741825.0) -> 3.72529029499247e-09) ((1276 . 5625) (/ 0 -1073741826.0) -> -0.0) ((1277 . 5625) (/ 0 -1073741825.0) -> -0.0) ((1278 . 5625) (/ 0 -1073741824) -> 0) ((1279 . 5625) (/ 0 -1073741823) -> 0) ((1280 . 5625) (/ 0 -1073741822) -> 0) ((1281 . 5625) (/ 1 -1073741826.0) -> -9.31322572880755e-10) ((1282 . 5625) (/ 1 -1073741825.0) -> -9.31322573748117e-10) ((1283 . 5625) (/ 1 -1073741824) -> -9.31322574615479e-10) ((1284 . 5625) (/ 1 -1073741823) -> -9.3132257548284e-10) ((1285 . 5625) (/ 1 -1073741822) -> -9.31322576350202e-10) ((1286 . 5625) (/ 2 -1073741826.0) -> -1.86264514576151e-09) ((1287 . 5625) (/ 2 -1073741825.0) -> -1.86264514749623e-09) ((1288 . 5625) (/ 2 -1073741824) -> -1.86264514923096e-09) ((1289 . 5625) (/ 2 -1073741823) -> -1.86264515096568e-09) ((1290 . 5625) (/ 2 -1073741822) -> -1.8626451527004e-09) ((1291 . 5625) (/ 3 -1073741826.0) -> -2.79396771864227e-09) ((1292 . 5625) (/ 3 -1073741825.0) -> -2.79396772124435e-09) ((1293 . 5625) (/ 3 -1073741824) -> -2.79396772384644e-09) ((1294 . 5625) (/ 3 -1073741823) -> -2.79396772644852e-09) ((1295 . 5625) (/ 3 -1073741822) -> -2.79396772905061e-09) ((1296 . 5625) (/ 4 -1073741826.0) -> -3.72529029152302e-09) ((1297 . 5625) (/ 4 -1073741825.0) -> -3.72529029499247e-09) ((1298 . 5625) (/ 4 -1073741824) -> -3.72529029846191e-09) ((1299 . 5625) (/ 4 -1073741823) -> -3.72529030193136e-09) ((1300 . 5625) (/ 4 -1073741822) -> -3.72529030540081e-09) ((1301 . 5625) (/ 0 1073741822.0) -> 0.0) ((1302 . 5625) (/ 0 1073741823.0) -> 0.0) ((1303 . 5625) (/ 0 1073741824.0) -> 0.0) ((1304 . 5625) (/ 0 1073741825.0) -> 0.0) ((1305 . 5625) (/ 0 1073741826.0) -> 0.0) ((1306 . 5625) (/ 1 1073741822.0) -> 9.31322576350202e-10) ((1307 . 5625) (/ 1 1073741823.0) -> 9.3132257548284e-10) ((1308 . 5625) (/ 1 1073741824.0) -> 9.31322574615479e-10) ((1309 . 5625) (/ 1 1073741825.0) -> 9.31322573748117e-10) ((1310 . 5625) (/ 1 1073741826.0) -> 9.31322572880755e-10) ((1311 . 5625) (/ 2 1073741822.0) -> 1.8626451527004e-09) ((1312 . 5625) (/ 2 1073741823.0) -> 1.86264515096568e-09) ((1313 . 5625) (/ 2 1073741824.0) -> 1.86264514923096e-09) ((1314 . 5625) (/ 2 1073741825.0) -> 1.86264514749623e-09) ((1315 . 5625) (/ 2 1073741826.0) -> 1.86264514576151e-09) ((1316 . 5625) (/ 3 1073741822.0) -> 2.79396772905061e-09) ((1317 . 5625) (/ 3 1073741823.0) -> 2.79396772644852e-09) ((1318 . 5625) (/ 3 1073741824.0) -> 2.79396772384644e-09) ((1319 . 5625) (/ 3 1073741825.0) -> 2.79396772124435e-09) ((1320 . 5625) (/ 3 1073741826.0) -> 2.79396771864227e-09) ((1321 . 5625) (/ 4 1073741822.0) -> 3.72529030540081e-09) ((1322 . 5625) (/ 4 1073741823.0) -> 3.72529030193136e-09) ((1323 . 5625) (/ 4 1073741824.0) -> 3.72529029846191e-09) ((1324 . 5625) (/ 4 1073741825.0) -> 3.72529029499247e-09) ((1325 . 5625) (/ 4 1073741826.0) -> 3.72529029152302e-09) ((1326 . 5625) (/ 0 -1073741827.0) -> -0.0) ((1327 . 5625) (/ 0 -1073741826.0) -> -0.0) ((1328 . 5625) (/ 0 -1073741825.0) -> -0.0) ((1329 . 5625) (/ 0 -1073741824.0) -> -0.0) ((1330 . 5625) (/ 0 -1073741823.0) -> -0.0) ((1331 . 5625) (/ 1 -1073741827.0) -> -9.31322572013393e-10) ((1332 . 5625) (/ 1 -1073741826.0) -> -9.31322572880755e-10) ((1333 . 5625) (/ 1 -1073741825.0) -> -9.31322573748117e-10) ((1334 . 5625) (/ 1 -1073741824.0) -> -9.31322574615479e-10) ((1335 . 5625) (/ 1 -1073741823.0) -> -9.3132257548284e-10) ((1336 . 5625) (/ 2 -1073741827.0) -> -1.86264514402679e-09) ((1337 . 5625) (/ 2 -1073741826.0) -> -1.86264514576151e-09) ((1338 . 5625) (/ 2 -1073741825.0) -> -1.86264514749623e-09) ((1339 . 5625) (/ 2 -1073741824.0) -> -1.86264514923096e-09) ((1340 . 5625) (/ 2 -1073741823.0) -> -1.86264515096568e-09) ((1341 . 5625) (/ 3 -1073741827.0) -> -2.79396771604018e-09) ((1342 . 5625) (/ 3 -1073741826.0) -> -2.79396771864227e-09) ((1343 . 5625) (/ 3 -1073741825.0) -> -2.79396772124435e-09) ((1344 . 5625) (/ 3 -1073741824.0) -> -2.79396772384644e-09) ((1345 . 5625) (/ 3 -1073741823.0) -> -2.79396772644852e-09) ((1346 . 5625) (/ 4 -1073741827.0) -> -3.72529028805357e-09) ((1347 . 5625) (/ 4 -1073741826.0) -> -3.72529029152302e-09) ((1348 . 5625) (/ 4 -1073741825.0) -> -3.72529029499247e-09) ((1349 . 5625) (/ 4 -1073741824.0) -> -3.72529029846191e-09) ((1350 . 5625) (/ 4 -1073741823.0) -> -3.72529030193136e-09) ((1351 . 5625) (/ 0 1103515243.0) -> 0.0) ((1352 . 5625) (/ 0 1103515244.0) -> 0.0) ((1353 . 5625) (/ 0 1103515245.0) -> 0.0) ((1354 . 5625) (/ 0 1103515246.0) -> 0.0) ((1355 . 5625) (/ 0 1103515247.0) -> 0.0) ((1356 . 5625) (/ 1 1103515243.0) -> 9.06195003959723e-10) ((1357 . 5625) (/ 1 1103515244.0) -> 9.06195003138534e-10) ((1358 . 5625) (/ 1 1103515245.0) -> 9.06195002317345e-10) ((1359 . 5625) (/ 1 1103515246.0) -> 9.06195001496155e-10) ((1360 . 5625) (/ 1 1103515247.0) -> 9.06195000674966e-10) ((1361 . 5625) (/ 2 1103515243.0) -> 1.81239000791945e-09) ((1362 . 5625) (/ 2 1103515244.0) -> 1.81239000627707e-09) ((1363 . 5625) (/ 2 1103515245.0) -> 1.81239000463469e-09) ((1364 . 5625) (/ 2 1103515246.0) -> 1.81239000299231e-09) ((1365 . 5625) (/ 2 1103515247.0) -> 1.81239000134993e-09) ((1366 . 5625) (/ 3 1103515243.0) -> 2.71858501187917e-09) ((1367 . 5625) (/ 3 1103515244.0) -> 2.7185850094156e-09) ((1368 . 5625) (/ 3 1103515245.0) -> 2.71858500695203e-09) ((1369 . 5625) (/ 3 1103515246.0) -> 2.71858500448847e-09) ((1370 . 5625) (/ 3 1103515247.0) -> 2.7185850020249e-09) ((1371 . 5625) (/ 4 1103515243.0) -> 3.62478001583889e-09) ((1372 . 5625) (/ 4 1103515244.0) -> 3.62478001255414e-09) ((1373 . 5625) (/ 4 1103515245.0) -> 3.62478000926938e-09) ((1374 . 5625) (/ 4 1103515246.0) -> 3.62478000598462e-09) ((1375 . 5625) (/ 4 1103515247.0) -> 3.62478000269986e-09) ((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.58320770619765e-09) ((1382 . 5625) (/ 1 631629064) -> 1.5832077036911e-09) ((1383 . 5625) (/ 1 631629065) -> 1.58320770118456e-09) ((1384 . 5625) (/ 1 631629066) -> 1.58320769867801e-09) ((1385 . 5625) (/ 1 631629067) -> 1.58320769617146e-09) ((1386 . 5625) (/ 2 631629063) -> 3.1664154123953e-09) ((1387 . 5625) (/ 2 631629064) -> 3.1664154073822e-09) ((1388 . 5625) (/ 2 631629065) -> 3.16641540236911e-09) ((1389 . 5625) (/ 2 631629066) -> 3.16641539735602e-09) ((1390 . 5625) (/ 2 631629067) -> 3.16641539234292e-09) ((1391 . 5625) (/ 3 631629063) -> 4.74962311859295e-09) ((1392 . 5625) (/ 3 631629064) -> 4.74962311107331e-09) ((1393 . 5625) (/ 3 631629065) -> 4.74962310355367e-09) ((1394 . 5625) (/ 3 631629066) -> 4.74962309603403e-09) ((1395 . 5625) (/ 3 631629067) -> 4.74962308851439e-09) ((1396 . 5625) (/ 4 631629063) -> 6.33283082479059e-09) ((1397 . 5625) (/ 4 631629064) -> 6.33283081476441e-09) ((1398 . 5625) (/ 4 631629065) -> 6.33283080473822e-09) ((1399 . 5625) (/ 4 631629066) -> 6.33283079471203e-09) ((1400 . 5625) (/ 4 631629067) -> 6.33283078468585e-09) ((1401 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((1402 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((1403 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((1404 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((1405 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((1406 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((1407 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((1408 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((1409 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((1410 . 5625) (/ 1 9.00719925474099e+15) -> 1.11022302462516e-16) ((1411 . 5625) (/ 2 9.00719925474099e+15) -> 2.22044604925031e-16) ((1412 . 5625) (/ 2 9.00719925474099e+15) -> 2.22044604925031e-16) ((1413 . 5625) (/ 2 9.00719925474099e+15) -> 2.22044604925031e-16) ((1414 . 5625) (/ 2 9.00719925474099e+15) -> 2.22044604925031e-16) ((1415 . 5625) (/ 2 9.00719925474099e+15) -> 2.22044604925031e-16) ((1416 . 5625) (/ 3 9.00719925474099e+15) -> 3.33066907387547e-16) ((1417 . 5625) (/ 3 9.00719925474099e+15) -> 3.33066907387547e-16) ((1418 . 5625) (/ 3 9.00719925474099e+15) -> 3.33066907387547e-16) ((1419 . 5625) (/ 3 9.00719925474099e+15) -> 3.33066907387547e-16) ((1420 . 5625) (/ 3 9.00719925474099e+15) -> 3.33066907387547e-16) ((1421 . 5625) (/ 4 9.00719925474099e+15) -> 4.44089209850063e-16) ((1422 . 5625) (/ 4 9.00719925474099e+15) -> 4.44089209850063e-16) ((1423 . 5625) (/ 4 9.00719925474099e+15) -> 4.44089209850063e-16) ((1424 . 5625) (/ 4 9.00719925474099e+15) -> 4.44089209850063e-16) ((1425 . 5625) (/ 4 9.00719925474099e+15) -> 4.44089209850063e-16) ((1426 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((1427 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((1428 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((1429 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((1430 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((1431 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((1432 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((1433 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((1434 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((1435 . 5625) (/ 1 -9.00719925474099e+15) -> -1.11022302462516e-16) ((1436 . 5625) (/ 2 -9.00719925474099e+15) -> -2.22044604925031e-16) ((1437 . 5625) (/ 2 -9.00719925474099e+15) -> -2.22044604925031e-16) ((1438 . 5625) (/ 2 -9.00719925474099e+15) -> -2.22044604925031e-16) ((1439 . 5625) (/ 2 -9.00719925474099e+15) -> -2.22044604925031e-16) ((1440 . 5625) (/ 2 -9.00719925474099e+15) -> -2.22044604925031e-16) ((1441 . 5625) (/ 3 -9.00719925474099e+15) -> -3.33066907387547e-16) ((1442 . 5625) (/ 3 -9.00719925474099e+15) -> -3.33066907387547e-16) ((1443 . 5625) (/ 3 -9.00719925474099e+15) -> -3.33066907387547e-16) ((1444 . 5625) (/ 3 -9.00719925474099e+15) -> -3.33066907387547e-16) ((1445 . 5625) (/ 3 -9.00719925474099e+15) -> -3.33066907387547e-16) ((1446 . 5625) (/ 4 -9.00719925474099e+15) -> -4.44089209850063e-16) ((1447 . 5625) (/ 4 -9.00719925474099e+15) -> -4.44089209850063e-16) ((1448 . 5625) (/ 4 -9.00719925474099e+15) -> -4.44089209850063e-16) ((1449 . 5625) (/ 4 -9.00719925474099e+15) -> -4.44089209850063e-16) ((1450 . 5625) (/ 4 -9.00719925474099e+15) -> -4.44089209850063e-16) ((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) -> 8.10175808150369e-05) ((1457 . 5625) (/ 1 12344) -> 8.10110174983798e-05) ((1458 . 5625) (/ 1 12345) -> 8.10044552450385e-05) ((1459 . 5625) (/ 1 12346) -> 8.09978940547546e-05) ((1460 . 5625) (/ 1 12347) -> 8.09913339272698e-05) ((1461 . 5625) (/ 2 12343) -> 0.000162035161630074) ((1462 . 5625) (/ 2 12344) -> 0.00016202203499676) ((1463 . 5625) (/ 2 12345) -> 0.000162008910490077) ((1464 . 5625) (/ 2 12346) -> 0.000161995788109509) ((1465 . 5625) (/ 2 12347) -> 0.00016198266785454) ((1466 . 5625) (/ 3 12343) -> 0.000243052742445111) ((1467 . 5625) (/ 3 12344) -> 0.000243033052495139) ((1468 . 5625) (/ 3 12345) -> 0.000243013365735115) ((1469 . 5625) (/ 3 12346) -> 0.000242993682164264) ((1470 . 5625) (/ 3 12347) -> 0.000242974001781809) ((1471 . 5625) (/ 4 12343) -> 0.000324070323260147) ((1472 . 5625) (/ 4 12344) -> 0.000324044069993519) ((1473 . 5625) (/ 4 12345) -> 0.000324017820980154) ((1474 . 5625) (/ 4 12346) -> 0.000323991576219018) ((1475 . 5625) (/ 4 12347) -> 0.000323965335709079) ((1476 . 5625) (/ 0 4294967294.0) -> 0.0) ((1477 . 5625) (/ 0 4294967295.0) -> 0.0) ((1478 . 5625) (/ 0 4294967296.0) -> 0.0) ((1479 . 5625) (/ 0 4294967297.0) -> 0.0) ((1480 . 5625) (/ 0 4294967298.0) -> 0.0) ((1481 . 5625) (/ 1 4294967294.0) -> 2.3283064376229e-10) ((1482 . 5625) (/ 1 4294967295.0) -> 2.3283064370808e-10) ((1483 . 5625) (/ 1 4294967296.0) -> 2.3283064365387e-10) ((1484 . 5625) (/ 1 4294967297.0) -> 2.3283064359966e-10) ((1485 . 5625) (/ 1 4294967298.0) -> 2.32830643545449e-10) ((1486 . 5625) (/ 2 4294967294.0) -> 4.6566128752458e-10) ((1487 . 5625) (/ 2 4294967295.0) -> 4.65661287416159e-10) ((1488 . 5625) (/ 2 4294967296.0) -> 4.65661287307739e-10) ((1489 . 5625) (/ 2 4294967297.0) -> 4.65661287199319e-10) ((1490 . 5625) (/ 2 4294967298.0) -> 4.65661287090899e-10) ((1491 . 5625) (/ 3 4294967294.0) -> 6.9849193128687e-10) ((1492 . 5625) (/ 3 4294967295.0) -> 6.98491931124239e-10) ((1493 . 5625) (/ 3 4294967296.0) -> 6.98491930961609e-10) ((1494 . 5625) (/ 3 4294967297.0) -> 6.98491930798979e-10) ((1495 . 5625) (/ 3 4294967298.0) -> 6.98491930636348e-10) ((1496 . 5625) (/ 4 4294967294.0) -> 9.31322575049159e-10) ((1497 . 5625) (/ 4 4294967295.0) -> 9.31322574832319e-10) ((1498 . 5625) (/ 4 4294967296.0) -> 9.31322574615479e-10) ((1499 . 5625) (/ 4 4294967297.0) -> 9.31322574398638e-10) ((1500 . 5625) (/ 4 4294967298.0) -> 9.31322574181798e-10) ((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) -> 1.5) ((1507 . 5625) (/ -3 -1) -> 3) ((1508 . 5625) (/ -3 0) -> "division by zero") ((1509 . 5625) (/ -3 1) -> -3) ((1510 . 5625) (/ -3 2) -> -1.5) ((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) -> 0.5) ((1517 . 5625) (/ -1 -1) -> 1) ((1518 . 5625) (/ -1 0) -> "division by zero") ((1519 . 5625) (/ -1 1) -> -1) ((1520 . 5625) (/ -1 2) -> -0.5) ((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) -> -1.33333333333333) ((1531 . 5625) (/ -3 -1) -> 3) ((1532 . 5625) (/ -3 0) -> "division by zero") ((1533 . 5625) (/ -3 1) -> -3) ((1534 . 5625) (/ -3 2) -> -1.5) ((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) -> -0.666666666666667) ((1541 . 5625) (/ -1 -1) -> 1) ((1542 . 5625) (/ -1 0) -> "division by zero") ((1543 . 5625) (/ -1 1) -> -1) ((1544 . 5625) (/ -1 2) -> -0.5) ((1545 . 5625) (/ -1 3) -> -0.333333333333333) ((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) -> 1.33333333333333) ((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) -> 1.5) ((1558 . 5625) (/ -3 -1) -> 3) ((1559 . 5625) (/ -3 0) -> "division by zero") ((1560 . 5625) (/ -3 1) -> -3) ((1561 . 5625) (/ -2 -3) -> 0.666666666666667) ((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) -> 0.333333333333333) ((1567 . 5625) (/ -1 -2) -> 0.5) ((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) -> -1.33333333333333) ((1580 . 5625) (/ -4 4) -> -1) ((1581 . 5625) (/ -3 0) -> "division by zero") ((1582 . 5625) (/ -3 1) -> -3) ((1583 . 5625) (/ -3 2) -> -1.5) ((1584 . 5625) (/ -3 3) -> -1) ((1585 . 5625) (/ -3 4) -> -0.75) ((1586 . 5625) (/ -2 0) -> "division by zero") ((1587 . 5625) (/ -2 1) -> -2) ((1588 . 5625) (/ -2 2) -> -1) ((1589 . 5625) (/ -2 3) -> -0.666666666666667) ((1590 . 5625) (/ -2 4) -> -0.5) ((1591 . 5625) (/ -1 0) -> "division by zero") ((1592 . 5625) (/ -1 1) -> -1) ((1593 . 5625) (/ -1 2) -> -0.5) ((1594 . 5625) (/ -1 3) -> -0.333333333333333) ((1595 . 5625) (/ -1 4) -> -0.25) ((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) -> 1.33333333333333) ((1603 . 5625) (/ -4 -2) -> 2) ((1604 . 5625) (/ -4 -1) -> 4) ((1605 . 5625) (/ -4 0) -> "division by zero") ((1606 . 5625) (/ -3 -4) -> 0.75) ((1607 . 5625) (/ -3 -3) -> 1) ((1608 . 5625) (/ -3 -2) -> 1.5) ((1609 . 5625) (/ -3 -1) -> 3) ((1610 . 5625) (/ -3 0) -> "division by zero") ((1611 . 5625) (/ -2 -4) -> 0.5) ((1612 . 5625) (/ -2 -3) -> 0.666666666666667) ((1613 . 5625) (/ -2 -2) -> 1) ((1614 . 5625) (/ -2 -1) -> 2) ((1615 . 5625) (/ -2 0) -> "division by zero") ((1616 . 5625) (/ -1 -4) -> 0.25) ((1617 . 5625) (/ -1 -3) -> 0.333333333333333) ((1618 . 5625) (/ -1 -2) -> 0.5) ((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) -> -3.72529030887025e-09) ((1627 . 5625) (/ -4 1073741822) -> -3.72529030540081e-09) ((1628 . 5625) (/ -4 1073741823) -> -3.72529030193136e-09) ((1629 . 5625) (/ -4 1073741824.0) -> -3.72529029846191e-09) ((1630 . 5625) (/ -4 1073741825.0) -> -3.72529029499247e-09) ((1631 . 5625) (/ -3 1073741821) -> -2.79396773165269e-09) ((1632 . 5625) (/ -3 1073741822) -> -2.79396772905061e-09) ((1633 . 5625) (/ -3 1073741823) -> -2.79396772644852e-09) ((1634 . 5625) (/ -3 1073741824.0) -> -2.79396772384644e-09) ((1635 . 5625) (/ -3 1073741825.0) -> -2.79396772124435e-09) ((1636 . 5625) (/ -2 1073741821) -> -1.86264515443513e-09) ((1637 . 5625) (/ -2 1073741822) -> -1.8626451527004e-09) ((1638 . 5625) (/ -2 1073741823) -> -1.86264515096568e-09) ((1639 . 5625) (/ -2 1073741824.0) -> -1.86264514923096e-09) ((1640 . 5625) (/ -2 1073741825.0) -> -1.86264514749623e-09) ((1641 . 5625) (/ -1 1073741821) -> -9.31322577217564e-10) ((1642 . 5625) (/ -1 1073741822) -> -9.31322576350202e-10) ((1643 . 5625) (/ -1 1073741823) -> -9.3132257548284e-10) ((1644 . 5625) (/ -1 1073741824.0) -> -9.31322574615479e-10) ((1645 . 5625) (/ -1 1073741825.0) -> -9.31322573748117e-10) ((1646 . 5625) (/ 0 1073741821) -> 0) ((1647 . 5625) (/ 0 1073741822) -> 0) ((1648 . 5625) (/ 0 1073741823) -> 0) ((1649 . 5625) (/ 0 1073741824.0) -> 0.0) ((1650 . 5625) (/ 0 1073741825.0) -> 0.0) ((1651 . 5625) (/ -4 -1073741826.0) -> 3.72529029152302e-09) ((1652 . 5625) (/ -4 -1073741825.0) -> 3.72529029499247e-09) ((1653 . 5625) (/ -4 -1073741824) -> 3.72529029846191e-09) ((1654 . 5625) (/ -4 -1073741823) -> 3.72529030193136e-09) ((1655 . 5625) (/ -4 -1073741822) -> 3.72529030540081e-09) ((1656 . 5625) (/ -3 -1073741826.0) -> 2.79396771864227e-09) ((1657 . 5625) (/ -3 -1073741825.0) -> 2.79396772124435e-09) ((1658 . 5625) (/ -3 -1073741824) -> 2.79396772384644e-09) ((1659 . 5625) (/ -3 -1073741823) -> 2.79396772644852e-09) ((1660 . 5625) (/ -3 -1073741822) -> 2.79396772905061e-09) ((1661 . 5625) (/ -2 -1073741826.0) -> 1.86264514576151e-09) ((1662 . 5625) (/ -2 -1073741825.0) -> 1.86264514749623e-09) ((1663 . 5625) (/ -2 -1073741824) -> 1.86264514923096e-09) ((1664 . 5625) (/ -2 -1073741823) -> 1.86264515096568e-09) ((1665 . 5625) (/ -2 -1073741822) -> 1.8626451527004e-09) ((1666 . 5625) (/ -1 -1073741826.0) -> 9.31322572880755e-10) ((1667 . 5625) (/ -1 -1073741825.0) -> 9.31322573748117e-10) ((1668 . 5625) (/ -1 -1073741824) -> 9.31322574615479e-10) ((1669 . 5625) (/ -1 -1073741823) -> 9.3132257548284e-10) ((1670 . 5625) (/ -1 -1073741822) -> 9.31322576350202e-10) ((1671 . 5625) (/ 0 -1073741826.0) -> -0.0) ((1672 . 5625) (/ 0 -1073741825.0) -> -0.0) ((1673 . 5625) (/ 0 -1073741824) -> 0) ((1674 . 5625) (/ 0 -1073741823) -> 0) ((1675 . 5625) (/ 0 -1073741822) -> 0) ((1676 . 5625) (/ -4 1073741822.0) -> -3.72529030540081e-09) ((1677 . 5625) (/ -4 1073741823.0) -> -3.72529030193136e-09) ((1678 . 5625) (/ -4 1073741824.0) -> -3.72529029846191e-09) ((1679 . 5625) (/ -4 1073741825.0) -> -3.72529029499247e-09) ((1680 . 5625) (/ -4 1073741826.0) -> -3.72529029152302e-09) ((1681 . 5625) (/ -3 1073741822.0) -> -2.79396772905061e-09) ((1682 . 5625) (/ -3 1073741823.0) -> -2.79396772644852e-09) ((1683 . 5625) (/ -3 1073741824.0) -> -2.79396772384644e-09) ((1684 . 5625) (/ -3 1073741825.0) -> -2.79396772124435e-09) ((1685 . 5625) (/ -3 1073741826.0) -> -2.79396771864227e-09) ((1686 . 5625) (/ -2 1073741822.0) -> -1.8626451527004e-09) ((1687 . 5625) (/ -2 1073741823.0) -> -1.86264515096568e-09) ((1688 . 5625) (/ -2 1073741824.0) -> -1.86264514923096e-09) ((1689 . 5625) (/ -2 1073741825.0) -> -1.86264514749623e-09) ((1690 . 5625) (/ -2 1073741826.0) -> -1.86264514576151e-09) ((1691 . 5625) (/ -1 1073741822.0) -> -9.31322576350202e-10) ((1692 . 5625) (/ -1 1073741823.0) -> -9.3132257548284e-10) ((1693 . 5625) (/ -1 1073741824.0) -> -9.31322574615479e-10) ((1694 . 5625) (/ -1 1073741825.0) -> -9.31322573748117e-10) ((1695 . 5625) (/ -1 1073741826.0) -> -9.31322572880755e-10) ((1696 . 5625) (/ 0 1073741822.0) -> 0.0) ((1697 . 5625) (/ 0 1073741823.0) -> 0.0) ((1698 . 5625) (/ 0 1073741824.0) -> 0.0) ((1699 . 5625) (/ 0 1073741825.0) -> 0.0) ((1700 . 5625) (/ 0 1073741826.0) -> 0.0) ((1701 . 5625) (/ -4 -1073741827.0) -> 3.72529028805357e-09) ((1702 . 5625) (/ -4 -1073741826.0) -> 3.72529029152302e-09) ((1703 . 5625) (/ -4 -1073741825.0) -> 3.72529029499247e-09) ((1704 . 5625) (/ -4 -1073741824.0) -> 3.72529029846191e-09) ((1705 . 5625) (/ -4 -1073741823.0) -> 3.72529030193136e-09) ((1706 . 5625) (/ -3 -1073741827.0) -> 2.79396771604018e-09) ((1707 . 5625) (/ -3 -1073741826.0) -> 2.79396771864227e-09) ((1708 . 5625) (/ -3 -1073741825.0) -> 2.79396772124435e-09) ((1709 . 5625) (/ -3 -1073741824.0) -> 2.79396772384644e-09) ((1710 . 5625) (/ -3 -1073741823.0) -> 2.79396772644852e-09) ((1711 . 5625) (/ -2 -1073741827.0) -> 1.86264514402679e-09) ((1712 . 5625) (/ -2 -1073741826.0) -> 1.86264514576151e-09) ((1713 . 5625) (/ -2 -1073741825.0) -> 1.86264514749623e-09) ((1714 . 5625) (/ -2 -1073741824.0) -> 1.86264514923096e-09) ((1715 . 5625) (/ -2 -1073741823.0) -> 1.86264515096568e-09) ((1716 . 5625) (/ -1 -1073741827.0) -> 9.31322572013393e-10) ((1717 . 5625) (/ -1 -1073741826.0) -> 9.31322572880755e-10) ((1718 . 5625) (/ -1 -1073741825.0) -> 9.31322573748117e-10) ((1719 . 5625) (/ -1 -1073741824.0) -> 9.31322574615479e-10) ((1720 . 5625) (/ -1 -1073741823.0) -> 9.3132257548284e-10) ((1721 . 5625) (/ 0 -1073741827.0) -> -0.0) ((1722 . 5625) (/ 0 -1073741826.0) -> -0.0) ((1723 . 5625) (/ 0 -1073741825.0) -> -0.0) ((1724 . 5625) (/ 0 -1073741824.0) -> -0.0) ((1725 . 5625) (/ 0 -1073741823.0) -> -0.0) ((1726 . 5625) (/ -4 1103515243.0) -> -3.62478001583889e-09) ((1727 . 5625) (/ -4 1103515244.0) -> -3.62478001255414e-09) ((1728 . 5625) (/ -4 1103515245.0) -> -3.62478000926938e-09) ((1729 . 5625) (/ -4 1103515246.0) -> -3.62478000598462e-09) ((1730 . 5625) (/ -4 1103515247.0) -> -3.62478000269986e-09) ((1731 . 5625) (/ -3 1103515243.0) -> -2.71858501187917e-09) ((1732 . 5625) (/ -3 1103515244.0) -> -2.7185850094156e-09) ((1733 . 5625) (/ -3 1103515245.0) -> -2.71858500695203e-09) ((1734 . 5625) (/ -3 1103515246.0) -> -2.71858500448847e-09) ((1735 . 5625) (/ -3 1103515247.0) -> -2.7185850020249e-09) ((1736 . 5625) (/ -2 1103515243.0) -> -1.81239000791945e-09) ((1737 . 5625) (/ -2 1103515244.0) -> -1.81239000627707e-09) ((1738 . 5625) (/ -2 1103515245.0) -> -1.81239000463469e-09) ((1739 . 5625) (/ -2 1103515246.0) -> -1.81239000299231e-09) ((1740 . 5625) (/ -2 1103515247.0) -> -1.81239000134993e-09) ((1741 . 5625) (/ -1 1103515243.0) -> -9.06195003959723e-10) ((1742 . 5625) (/ -1 1103515244.0) -> -9.06195003138534e-10) ((1743 . 5625) (/ -1 1103515245.0) -> -9.06195002317345e-10) ((1744 . 5625) (/ -1 1103515246.0) -> -9.06195001496155e-10) ((1745 . 5625) (/ -1 1103515247.0) -> -9.06195000674966e-10) ((1746 . 5625) (/ 0 1103515243.0) -> 0.0) ((1747 . 5625) (/ 0 1103515244.0) -> 0.0) ((1748 . 5625) (/ 0 1103515245.0) -> 0.0) ((1749 . 5625) (/ 0 1103515246.0) -> 0.0) ((1750 . 5625) (/ 0 1103515247.0) -> 0.0) ((1751 . 5625) (/ -4 631629063) -> -6.33283082479059e-09) ((1752 . 5625) (/ -4 631629064) -> -6.33283081476441e-09) ((1753 . 5625) (/ -4 631629065) -> -6.33283080473822e-09) ((1754 . 5625) (/ -4 631629066) -> -6.33283079471203e-09) ((1755 . 5625) (/ -4 631629067) -> -6.33283078468585e-09) ((1756 . 5625) (/ -3 631629063) -> -4.74962311859295e-09) ((1757 . 5625) (/ -3 631629064) -> -4.74962311107331e-09) ((1758 . 5625) (/ -3 631629065) -> -4.74962310355367e-09) ((1759 . 5625) (/ -3 631629066) -> -4.74962309603403e-09) ((1760 . 5625) (/ -3 631629067) -> -4.74962308851439e-09) ((1761 . 5625) (/ -2 631629063) -> -3.1664154123953e-09) ((1762 . 5625) (/ -2 631629064) -> -3.1664154073822e-09) ((1763 . 5625) (/ -2 631629065) -> -3.16641540236911e-09) ((1764 . 5625) (/ -2 631629066) -> -3.16641539735602e-09) ((1765 . 5625) (/ -2 631629067) -> -3.16641539234292e-09) ((1766 . 5625) (/ -1 631629063) -> -1.58320770619765e-09) ((1767 . 5625) (/ -1 631629064) -> -1.5832077036911e-09) ((1768 . 5625) (/ -1 631629065) -> -1.58320770118456e-09) ((1769 . 5625) (/ -1 631629066) -> -1.58320769867801e-09) ((1770 . 5625) (/ -1 631629067) -> -1.58320769617146e-09) ((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 9.00719925474099e+15) -> -4.44089209850063e-16) ((1777 . 5625) (/ -4 9.00719925474099e+15) -> -4.44089209850063e-16) ((1778 . 5625) (/ -4 9.00719925474099e+15) -> -4.44089209850063e-16) ((1779 . 5625) (/ -4 9.00719925474099e+15) -> -4.44089209850063e-16) ((1780 . 5625) (/ -4 9.00719925474099e+15) -> -4.44089209850063e-16) ((1781 . 5625) (/ -3 9.00719925474099e+15) -> -3.33066907387547e-16) ((1782 . 5625) (/ -3 9.00719925474099e+15) -> -3.33066907387547e-16) ((1783 . 5625) (/ -3 9.00719925474099e+15) -> -3.33066907387547e-16) ((1784 . 5625) (/ -3 9.00719925474099e+15) -> -3.33066907387547e-16) ((1785 . 5625) (/ -3 9.00719925474099e+15) -> -3.33066907387547e-16) ((1786 . 5625) (/ -2 9.00719925474099e+15) -> -2.22044604925031e-16) ((1787 . 5625) (/ -2 9.00719925474099e+15) -> -2.22044604925031e-16) ((1788 . 5625) (/ -2 9.00719925474099e+15) -> -2.22044604925031e-16) ((1789 . 5625) (/ -2 9.00719925474099e+15) -> -2.22044604925031e-16) ((1790 . 5625) (/ -2 9.00719925474099e+15) -> -2.22044604925031e-16) ((1791 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((1792 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((1793 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((1794 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((1795 . 5625) (/ -1 9.00719925474099e+15) -> -1.11022302462516e-16) ((1796 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((1797 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((1798 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((1799 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((1800 . 5625) (/ 0 9.00719925474099e+15) -> 0.0) ((1801 . 5625) (/ -4 -9.00719925474099e+15) -> 4.44089209850063e-16) ((1802 . 5625) (/ -4 -9.00719925474099e+15) -> 4.44089209850063e-16) ((1803 . 5625) (/ -4 -9.00719925474099e+15) -> 4.44089209850063e-16) ((1804 . 5625) (/ -4 -9.00719925474099e+15) -> 4.44089209850063e-16) ((1805 . 5625) (/ -4 -9.00719925474099e+15) -> 4.44089209850063e-16) ((1806 . 5625) (/ -3 -9.00719925474099e+15) -> 3.33066907387547e-16) ((1807 . 5625) (/ -3 -9.00719925474099e+15) -> 3.33066907387547e-16) ((1808 . 5625) (/ -3 -9.00719925474099e+15) -> 3.33066907387547e-16) ((1809 . 5625) (/ -3 -9.00719925474099e+15) -> 3.33066907387547e-16) ((1810 . 5625) (/ -3 -9.00719925474099e+15) -> 3.33066907387547e-16) ((1811 . 5625) (/ -2 -9.00719925474099e+15) -> 2.22044604925031e-16) ((1812 . 5625) (/ -2 -9.00719925474099e+15) -> 2.22044604925031e-16) ((1813 . 5625) (/ -2 -9.00719925474099e+15) -> 2.22044604925031e-16) ((1814 . 5625) (/ -2 -9.00719925474099e+15) -> 2.22044604925031e-16) ((1815 . 5625) (/ -2 -9.00719925474099e+15) -> 2.22044604925031e-16) ((1816 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((1817 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((1818 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((1819 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((1820 . 5625) (/ -1 -9.00719925474099e+15) -> 1.11022302462516e-16) ((1821 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((1822 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((1823 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((1824 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((1825 . 5625) (/ 0 -9.00719925474099e+15) -> -0.0) ((1826 . 5625) (/ -4 12343) -> -0.000324070323260147) ((1827 . 5625) (/ -4 12344) -> -0.000324044069993519) ((1828 . 5625) (/ -4 12345) -> -0.000324017820980154) ((1829 . 5625) (/ -4 12346) -> -0.000323991576219018) ((1830 . 5625) (/ -4 12347) -> -0.000323965335709079) ((1831 . 5625) (/ -3 12343) -> -0.000243052742445111) ((1832 . 5625) (/ -3 12344) -> -0.000243033052495139) ((1833 . 5625) (/ -3 12345) -> -0.000243013365735115) ((1834 . 5625) (/ -3 12346) -> -0.000242993682164264) ((1835 . 5625) (/ -3 12347) -> -0.000242974001781809) ((1836 . 5625) (/ -2 12343) -> -0.000162035161630074) ((1837 . 5625) (/ -2 12344) -> -0.00016202203499676) ((1838 . 5625) (/ -2 12345) -> -0.000162008910490077) ((1839 . 5625) (/ -2 12346) -> -0.000161995788109509) ((1840 . 5625) (/ -2 12347) -> -0.00016198266785454) ((1841 . 5625) (/ -1 12343) -> -8.10175808150369e-05) ((1842 . 5625) (/ -1 12344) -> -8.10110174983798e-05) ((1843 . 5625) (/ -1 12345) -> -8.10044552450385e-05) ((1844 . 5625) (/ -1 12346) -> -8.09978940547546e-05) ((1845 . 5625) (/ -1 12347) -> -8.09913339272698e-05) ((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.0) -> -9.31322575049159e-10) ((1852 . 5625) (/ -4 4294967295.0) -> -9.31322574832319e-10) ((1853 . 5625) (/ -4 4294967296.0) -> -9.31322574615479e-10) ((1854 . 5625) (/ -4 4294967297.0) -> -9.31322574398638e-10) ((1855 . 5625) (/ -4 4294967298.0) -> -9.31322574181798e-10) ((1856 . 5625) (/ -3 4294967294.0) -> -6.9849193128687e-10) ((1857 . 5625) (/ -3 4294967295.0) -> -6.98491931124239e-10) ((1858 . 5625) (/ -3 4294967296.0) -> -6.98491930961609e-10) ((1859 . 5625) (/ -3 4294967297.0) -> -6.98491930798979e-10) ((1860 . 5625) (/ -3 4294967298.0) -> -6.98491930636348e-10) ((1861 . 5625) (/ -2 4294967294.0) -> -4.6566128752458e-10) ((1862 . 5625) (/ -2 4294967295.0) -> -4.65661287416159e-10) ((1863 . 5625) (/ -2 4294967296.0) -> -4.65661287307739e-10) ((1864 . 5625) (/ -2 4294967297.0) -> -4.65661287199319e-10) ((1865 . 5625) (/ -2 4294967298.0) -> -4.65661287090899e-10) ((1866 . 5625) (/ -1 4294967294.0) -> -2.3283064376229e-10) ((1867 . 5625) (/ -1 4294967295.0) -> -2.3283064370808e-10) ((1868 . 5625) (/ -1 4294967296.0) -> -2.3283064365387e-10) ((1869 . 5625) (/ -1 4294967297.0) -> -2.3283064359966e-10) ((1870 . 5625) (/ -1 4294967298.0) -> -2.32830643545449e-10) ((1871 . 5625) (/ 0 4294967294.0) -> 0.0) ((1872 . 5625) (/ 0 4294967295.0) -> 0.0) ((1873 . 5625) (/ 0 4294967296.0) -> 0.0) ((1874 . 5625) (/ 0 4294967297.0) -> 0.0) ((1875 . 5625) (/ 0 4294967298.0) -> 0.0) ((1876 . 5625) (/ 1073741821 -2) -> -536870910.5) ((1877 . 5625) (/ 1073741821 -1) -> -1073741821) ((1878 . 5625) (/ 1073741821 0) -> "division by zero") ((1879 . 5625) (/ 1073741821 1) -> 1073741821) ((1880 . 5625) (/ 1073741821 2) -> 536870910.5) ((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) -> -536870911.5) ((1887 . 5625) (/ 1073741823 -1) -> -1073741823) ((1888 . 5625) (/ 1073741823 0) -> "division by zero") ((1889 . 5625) (/ 1073741823 1) -> 1073741823) ((1890 . 5625) (/ 1073741823 2) -> 536870911.5) ((1891 . 5625) (/ 1073741824.0 -2) -> -536870912.0) ((1892 . 5625) (/ 1073741824.0 -1) -> -1073741824.0) ((1893 . 5625) (/ 1073741824.0 0) -> "division by zero") ((1894 . 5625) (/ 1073741824.0 1) -> 1073741824.0) ((1895 . 5625) (/ 1073741824.0 2) -> 536870912.0) ((1896 . 5625) (/ 1073741825.0 -2) -> -536870912.5) ((1897 . 5625) (/ 1073741825.0 -1) -> -1073741825.0) ((1898 . 5625) (/ 1073741825.0 0) -> "division by zero") ((1899 . 5625) (/ 1073741825.0 1) -> 1073741825.0) ((1900 . 5625) (/ 1073741825.0 2) -> 536870912.5) ((1901 . 5625) (/ 1073741821 -1) -> -1073741821) ((1902 . 5625) (/ 1073741821 0) -> "division by zero") ((1903 . 5625) (/ 1073741821 1) -> 1073741821) ((1904 . 5625) (/ 1073741821 2) -> 536870910.5) ((1905 . 5625) (/ 1073741821 3) -> 357913940.333333) ((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) -> 357913940.666667) ((1911 . 5625) (/ 1073741823 -1) -> -1073741823) ((1912 . 5625) (/ 1073741823 0) -> "division by zero") ((1913 . 5625) (/ 1073741823 1) -> 1073741823) ((1914 . 5625) (/ 1073741823 2) -> 536870911.5) ((1915 . 5625) (/ 1073741823 3) -> 357913941) ((1916 . 5625) (/ 1073741824.0 -1) -> -1073741824.0) ((1917 . 5625) (/ 1073741824.0 0) -> "division by zero") ((1918 . 5625) (/ 1073741824.0 1) -> 1073741824.0) ((1919 . 5625) (/ 1073741824.0 2) -> 536870912.0) ((1920 . 5625) (/ 1073741824.0 3) -> 357913941.333333) ((1921 . 5625) (/ 1073741825.0 -1) -> -1073741825.0) ((1922 . 5625) (/ 1073741825.0 0) -> "division by zero") ((1923 . 5625) (/ 1073741825.0 1) -> 1073741825.0) ((1924 . 5625) (/ 1073741825.0 2) -> 536870912.5) ((1925 . 5625) (/ 1073741825.0 3) -> 357913941.666667) ((1926 . 5625) (/ 1073741821 -3) -> -357913940.333333) ((1927 . 5625) (/ 1073741821 -2) -> -536870910.5) ((1928 . 5625) (/ 1073741821 -1) -> -1073741821) ((1929 . 5625) (/ 1073741821 0) -> "division by zero") ((1930 . 5625) (/ 1073741821 1) -> 1073741821) ((1931 . 5625) (/ 1073741822 -3) -> -357913940.666667) ((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) -> -536870911.5) ((1938 . 5625) (/ 1073741823 -1) -> -1073741823) ((1939 . 5625) (/ 1073741823 0) -> "division by zero") ((1940 . 5625) (/ 1073741823 1) -> 1073741823) ((1941 . 5625) (/ 1073741824.0 -3) -> -357913941.333333) ((1942 . 5625) (/ 1073741824.0 -2) -> -536870912.0) ((1943 . 5625) (/ 1073741824.0 -1) -> -1073741824.0) ((1944 . 5625) (/ 1073741824.0 0) -> "division by zero") ((1945 . 5625) (/ 1073741824.0 1) -> 1073741824.0) ((1946 . 5625) (/ 1073741825.0 -3) -> -357913941.666667) ((1947 . 5625) (/ 1073741825.0 -2) -> -536870912.5) ((1948 . 5625) (/ 1073741825.0 -1) -> -1073741825.0) ((1949 . 5625) (/ 1073741825.0 0) -> "division by zero") ((1950 . 5625) (/ 1073741825.0 1) -> 1073741825.0) ((1951 . 5625) (/ 1073741821 0) -> "division by zero") ((1952 . 5625) (/ 1073741821 1) -> 1073741821) ((1953 . 5625) (/ 1073741821 2) -> 536870910.5) ((1954 . 5625) (/ 1073741821 3) -> 357913940.333333) ((1955 . 5625) (/ 1073741821 4) -> 268435455.25) ((1956 . 5625) (/ 1073741822 0) -> "division by zero") ((1957 . 5625) (/ 1073741822 1) -> 1073741822) ((1958 . 5625) (/ 1073741822 2) -> 536870911) ((1959 . 5625) (/ 1073741822 3) -> 357913940.666667) ((1960 . 5625) (/ 1073741822 4) -> 268435455.5) ((1961 . 5625) (/ 1073741823 0) -> "division by zero") ((1962 . 5625) (/ 1073741823 1) -> 1073741823) ((1963 . 5625) (/ 1073741823 2) -> 536870911.5) ((1964 . 5625) (/ 1073741823 3) -> 357913941) ((1965 . 5625) (/ 1073741823 4) -> 268435455.75) ((1966 . 5625) (/ 1073741824.0 0) -> "division by zero") ((1967 . 5625) (/ 1073741824.0 1) -> 1073741824.0) ((1968 . 5625) (/ 1073741824.0 2) -> 536870912.0) ((1969 . 5625) (/ 1073741824.0 3) -> 357913941.333333) ((1970 . 5625) (/ 1073741824.0 4) -> 268435456.0) ((1971 . 5625) (/ 1073741825.0 0) -> "division by zero") ((1972 . 5625) (/ 1073741825.0 1) -> 1073741825.0) ((1973 . 5625) (/ 1073741825.0 2) -> 536870912.5) ((1974 . 5625) (/ 1073741825.0 3) -> 357913941.666667) ((1975 . 5625) (/ 1073741825.0 4) -> 268435456.25) ((1976 . 5625) (/ 1073741821 -4) -> -268435455.25) ((1977 . 5625) (/ 1073741821 -3) -> -357913940.333333) ((1978 . 5625) (/ 1073741821 -2) -> -536870910.5) ((1979 . 5625) (/ 1073741821 -1) -> -1073741821) ((1980 . 5625) (/ 1073741821 0) -> "division by zero") ((1981 . 5625) (/ 1073741822 -4) -> -268435455.5) ((1982 . 5625) (/ 1073741822 -3) -> -357913940.666667) ((1983 . 5625) (/ 1073741822 -2) -> -536870911) ((1984 . 5625) (/ 1073741822 -1) -> -1073741822) ((1985 . 5625) (/ 1073741822 0) -> "division by zero") ((1986 . 5625) (/ 1073741823 -4) -> -268435455.75) ((1987 . 5625) (/ 1073741823 -3) -> -357913941) ((1988 . 5625) (/ 1073741823 -2) -> -536870911.5) ((1989 . 5625) (/ 1073741823 -1) -> -1073741823) ((1990 . 5625) (/ 1073741823 0) -> "division by zero") ((1991 . 5625) (/ 1073741824.0 -4) -> -268435456.0) ((1992 . 5625) (/ 1073741824.0 -3) -> -357913941.333333) ((1993 . 5625) (/ 1073741824.0 -2) -> -536870912.0) ((1994 . 5625) (/ 1073741824.0 -1) -> -1073741824.0) ((1995 . 5625) (/ 1073741824.0 0) -> "division by zero") ((1996 . 5625) (/ 1073741825.0 -4) -> -268435456.25) ((1997 . 5625) (/ 1073741825.0 -3) -> -357913941.666667) ((1998 . 5625) (/ 1073741825.0 -2) -> -536870912.5) ((1999 . 5625) (/ 1073741825.0 -1) -> -1073741825.0) ((2000 . 5625) (/ 1073741825.0 0) -> "division by zero") ((2001 . 5625) (/ 1073741821 1073741821) -> 1) ((2002 . 5625) (/ 1073741821 1073741822) -> 0.999999999068677) ((2003 . 5625) (/ 1073741821 1073741823) -> 0.999999998137355) ((2004 . 5625) (/ 1073741821 1073741824.0) -> 0.999999997206032) ((2005 . 5625) (/ 1073741821 1073741825.0) -> 0.99999999627471) ((2006 . 5625) (/ 1073741822 1073741821) -> 1.00000000093132) ((2007 . 5625) (/ 1073741822 1073741822) -> 1) ((2008 . 5625) (/ 1073741822 1073741823) -> 0.999999999068677) ((2009 . 5625) (/ 1073741822 1073741824.0) -> 0.999999998137355) ((2010 . 5625) (/ 1073741822 1073741825.0) -> 0.999999997206032) ((2011 . 5625) (/ 1073741823 1073741821) -> 1.00000000186265) ((2012 . 5625) (/ 1073741823 1073741822) -> 1.00000000093132) ((2013 . 5625) (/ 1073741823 1073741823) -> 1) ((2014 . 5625) (/ 1073741823 1073741824.0) -> 0.999999999068677) ((2015 . 5625) (/ 1073741823 1073741825.0) -> 0.999999998137355) ((2016 . 5625) (/ 1073741824.0 1073741821) -> 1.00000000279397) ((2017 . 5625) (/ 1073741824.0 1073741822) -> 1.00000000186265) ((2018 . 5625) (/ 1073741824.0 1073741823) -> 1.00000000093132) ((2019 . 5625) (/ 1073741824.0 1073741824.0) -> 1.0) ((2020 . 5625) (/ 1073741824.0 1073741825.0) -> 0.999999999068677) ((2021 . 5625) (/ 1073741825.0 1073741821) -> 1.00000000372529) ((2022 . 5625) (/ 1073741825.0 1073741822) -> 1.00000000279397) ((2023 . 5625) (/ 1073741825.0 1073741823) -> 1.00000000186265) ((2024 . 5625) (/ 1073741825.0 1073741824.0) -> 1.00000000093132) ((2025 . 5625) (/ 1073741825.0 1073741825.0) -> 1.0) ((2026 . 5625) (/ 1073741821 -1073741826.0) -> -0.999999995343387) ((2027 . 5625) (/ 1073741821 -1073741825.0) -> -0.99999999627471) ((2028 . 5625) (/ 1073741821 -1073741824) -> -0.999999997206032) ((2029 . 5625) (/ 1073741821 -1073741823) -> -0.999999998137355) ((2030 . 5625) (/ 1073741821 -1073741822) -> -0.999999999068677) ((2031 . 5625) (/ 1073741822 -1073741826.0) -> -0.99999999627471) ((2032 . 5625) (/ 1073741822 -1073741825.0) -> -0.999999997206032) ((2033 . 5625) (/ 1073741822 -1073741824) -> -0.999999998137355) ((2034 . 5625) (/ 1073741822 -1073741823) -> -0.999999999068677) ((2035 . 5625) (/ 1073741822 -1073741822) -> -1) ((2036 . 5625) (/ 1073741823 -1073741826.0) -> -0.999999997206032) ((2037 . 5625) (/ 1073741823 -1073741825.0) -> -0.999999998137355) ((2038 . 5625) (/ 1073741823 -1073741824) -> -0.999999999068677) ((2039 . 5625) (/ 1073741823 -1073741823) -> -1) ((2040 . 5625) (/ 1073741823 -1073741822) -> -1.00000000093132) ((2041 . 5625) (/ 1073741824.0 -1073741826.0) -> -0.999999998137355) ((2042 . 5625) (/ 1073741824.0 -1073741825.0) -> -0.999999999068677) ((2043 . 5625) (/ 1073741824.0 -1073741824) -> -1.0) ((2044 . 5625) (/ 1073741824.0 -1073741823) -> -1.00000000093132) ((2045 . 5625) (/ 1073741824.0 -1073741822) -> -1.00000000186265) ((2046 . 5625) (/ 1073741825.0 -1073741826.0) -> -0.999999999068677) ((2047 . 5625) (/ 1073741825.0 -1073741825.0) -> -1.0) ((2048 . 5625) (/ 1073741825.0 -1073741824) -> -1.00000000093132) ((2049 . 5625) (/ 1073741825.0 -1073741823) -> -1.00000000186265) ((2050 . 5625) (/ 1073741825.0 -1073741822) -> -1.00000000279397) ((2051 . 5625) (/ 1073741821 1073741822.0) -> 0.999999999068677) ((2052 . 5625) (/ 1073741821 1073741823.0) -> 0.999999998137355) ((2053 . 5625) (/ 1073741821 1073741824.0) -> 0.999999997206032) ((2054 . 5625) (/ 1073741821 1073741825.0) -> 0.99999999627471) ((2055 . 5625) (/ 1073741821 1073741826.0) -> 0.999999995343387) ((2056 . 5625) (/ 1073741822 1073741822.0) -> 1.0) ((2057 . 5625) (/ 1073741822 1073741823.0) -> 0.999999999068677) ((2058 . 5625) (/ 1073741822 1073741824.0) -> 0.999999998137355) ((2059 . 5625) (/ 1073741822 1073741825.0) -> 0.999999997206032) ((2060 . 5625) (/ 1073741822 1073741826.0) -> 0.99999999627471) ((2061 . 5625) (/ 1073741823 1073741822.0) -> 1.00000000093132) ((2062 . 5625) (/ 1073741823 1073741823.0) -> 1.0) ((2063 . 5625) (/ 1073741823 1073741824.0) -> 0.999999999068677) ((2064 . 5625) (/ 1073741823 1073741825.0) -> 0.999999998137355) ((2065 . 5625) (/ 1073741823 1073741826.0) -> 0.999999997206032) ((2066 . 5625) (/ 1073741824.0 1073741822.0) -> 1.00000000186265) ((2067 . 5625) (/ 1073741824.0 1073741823.0) -> 1.00000000093132) ((2068 . 5625) (/ 1073741824.0 1073741824.0) -> 1.0) ((2069 . 5625) (/ 1073741824.0 1073741825.0) -> 0.999999999068677) ((2070 . 5625) (/ 1073741824.0 1073741826.0) -> 0.999999998137355) ((2071 . 5625) (/ 1073741825.0 1073741822.0) -> 1.00000000279397) ((2072 . 5625) (/ 1073741825.0 1073741823.0) -> 1.00000000186265) ((2073 . 5625) (/ 1073741825.0 1073741824.0) -> 1.00000000093132) ((2074 . 5625) (/ 1073741825.0 1073741825.0) -> 1.0) ((2075 . 5625) (/ 1073741825.0 1073741826.0) -> 0.999999999068677) ((2076 . 5625) (/ 1073741821 -1073741827.0) -> -0.999999994412065) ((2077 . 5625) (/ 1073741821 -1073741826.0) -> -0.999999995343387) ((2078 . 5625) (/ 1073741821 -1073741825.0) -> -0.99999999627471) ((2079 . 5625) (/ 1073741821 -1073741824.0) -> -0.999999997206032) ((2080 . 5625) (/ 1073741821 -1073741823.0) -> -0.999999998137355) ((2081 . 5625) (/ 1073741822 -1073741827.0) -> -0.999999995343387) ((2082 . 5625) (/ 1073741822 -1073741826.0) -> -0.99999999627471) ((2083 . 5625) (/ 1073741822 -1073741825.0) -> -0.999999997206032) ((2084 . 5625) (/ 1073741822 -1073741824.0) -> -0.999999998137355) ((2085 . 5625) (/ 1073741822 -1073741823.0) -> -0.999999999068677) ((2086 . 5625) (/ 1073741823 -1073741827.0) -> -0.99999999627471) ((2087 . 5625) (/ 1073741823 -1073741826.0) -> -0.999999997206032) ((2088 . 5625) (/ 1073741823 -1073741825.0) -> -0.999999998137355) ((2089 . 5625) (/ 1073741823 -1073741824.0) -> -0.999999999068677) ((2090 . 5625) (/ 1073741823 -1073741823.0) -> -1.0) ((2091 . 5625) (/ 1073741824.0 -1073741827.0) -> -0.999999997206032) ((2092 . 5625) (/ 1073741824.0 -1073741826.0) -> -0.999999998137355) ((2093 . 5625) (/ 1073741824.0 -1073741825.0) -> -0.999999999068677) ((2094 . 5625) (/ 1073741824.0 -1073741824.0) -> -1.0) ((2095 . 5625) (/ 1073741824.0 -1073741823.0) -> -1.00000000093132) ((2096 . 5625) (/ 1073741825.0 -1073741827.0) -> -0.999999998137355) ((2097 . 5625) (/ 1073741825.0 -1073741826.0) -> -0.999999999068677) ((2098 . 5625) (/ 1073741825.0 -1073741825.0) -> -1.0) ((2099 . 5625) (/ 1073741825.0 -1073741824.0) -> -1.00000000093132) ((2100 . 5625) (/ 1073741825.0 -1073741823.0) -> -1.00000000186265) ((2101 . 5625) (/ 1073741821 1103515243.0) -> 0.973019473732815) ((2102 . 5625) (/ 1073741821 1103515244.0) -> 0.97301947285107) ((2103 . 5625) (/ 1073741821 1103515245.0) -> 0.973019471969325) ((2104 . 5625) (/ 1073741821 1103515246.0) -> 0.973019471087579) ((2105 . 5625) (/ 1073741821 1103515247.0) -> 0.973019470205834) ((2106 . 5625) (/ 1073741822 1103515243.0) -> 0.973019474639011) ((2107 . 5625) (/ 1073741822 1103515244.0) -> 0.973019473757265) ((2108 . 5625) (/ 1073741822 1103515245.0) -> 0.97301947287552) ((2109 . 5625) (/ 1073741822 1103515246.0) -> 0.973019471993774) ((2110 . 5625) (/ 1073741822 1103515247.0) -> 0.973019471112029) ((2111 . 5625) (/ 1073741823 1103515243.0) -> 0.973019475545206) ((2112 . 5625) (/ 1073741823 1103515244.0) -> 0.97301947466346) ((2113 . 5625) (/ 1073741823 1103515245.0) -> 0.973019473781715) ((2114 . 5625) (/ 1073741823 1103515246.0) -> 0.973019472899969) ((2115 . 5625) (/ 1073741823 1103515247.0) -> 0.973019472018224) ((2116 . 5625) (/ 1073741824.0 1103515243.0) -> 0.973019476451401) ((2117 . 5625) (/ 1073741824.0 1103515244.0) -> 0.973019475569655) ((2118 . 5625) (/ 1073741824.0 1103515245.0) -> 0.97301947468791) ((2119 . 5625) (/ 1073741824.0 1103515246.0) -> 0.973019473806164) ((2120 . 5625) (/ 1073741824.0 1103515247.0) -> 0.973019472924419) ((2121 . 5625) (/ 1073741825.0 1103515243.0) -> 0.973019477357596) ((2122 . 5625) (/ 1073741825.0 1103515244.0) -> 0.97301947647585) ((2123 . 5625) (/ 1073741825.0 1103515245.0) -> 0.973019475594105) ((2124 . 5625) (/ 1073741825.0 1103515246.0) -> 0.973019474712359) ((2125 . 5625) (/ 1073741825.0 1103515247.0) -> 0.973019473830614) ((2126 . 5625) (/ 1073741821 631629063) -> 1.6999563254739) ((2127 . 5625) (/ 1073741821 631629064) -> 1.69995632278251) ((2128 . 5625) (/ 1073741821 631629065) -> 1.69995632009113) ((2129 . 5625) (/ 1073741821 631629066) -> 1.69995631739974) ((2130 . 5625) (/ 1073741821 631629067) -> 1.69995631470836) ((2131 . 5625) (/ 1073741822 631629063) -> 1.6999563270571) ((2132 . 5625) (/ 1073741822 631629064) -> 1.69995632436572) ((2133 . 5625) (/ 1073741822 631629065) -> 1.69995632167434) ((2134 . 5625) (/ 1073741822 631629066) -> 1.69995631898295) ((2135 . 5625) (/ 1073741822 631629067) -> 1.69995631629157) ((2136 . 5625) (/ 1073741823 631629063) -> 1.69995632864031) ((2137 . 5625) (/ 1073741823 631629064) -> 1.69995632594893) ((2138 . 5625) (/ 1073741823 631629065) -> 1.69995632325754) ((2139 . 5625) (/ 1073741823 631629066) -> 1.69995632056616) ((2140 . 5625) (/ 1073741823 631629067) -> 1.69995631787478) ((2141 . 5625) (/ 1073741824.0 631629063) -> 1.69995633022352) ((2142 . 5625) (/ 1073741824.0 631629064) -> 1.69995632753214) ((2143 . 5625) (/ 1073741824.0 631629065) -> 1.69995632484075) ((2144 . 5625) (/ 1073741824.0 631629066) -> 1.69995632214937) ((2145 . 5625) (/ 1073741824.0 631629067) -> 1.69995631945798) ((2146 . 5625) (/ 1073741825.0 631629063) -> 1.69995633180673) ((2147 . 5625) (/ 1073741825.0 631629064) -> 1.69995632911534) ((2148 . 5625) (/ 1073741825.0 631629065) -> 1.69995632642396) ((2149 . 5625) (/ 1073741825.0 631629066) -> 1.69995632373257) ((2150 . 5625) (/ 1073741825.0 631629067) -> 1.69995632104119) ((2151 . 5625) (/ 1073741821 9.00719925474099e+15) -> 1.19209289217714e-07) ((2152 . 5625) (/ 1073741821 9.00719925474099e+15) -> 1.19209289217714e-07) ((2153 . 5625) (/ 1073741821 9.00719925474099e+15) -> 1.19209289217714e-07) ((2154 . 5625) (/ 1073741821 9.00719925474099e+15) -> 1.19209289217714e-07) ((2155 . 5625) (/ 1073741821 9.00719925474099e+15) -> 1.19209289217714e-07) ((2156 . 5625) (/ 1073741822 9.00719925474099e+15) -> 1.19209289328737e-07) ((2157 . 5625) (/ 1073741822 9.00719925474099e+15) -> 1.19209289328737e-07) ((2158 . 5625) (/ 1073741822 9.00719925474099e+15) -> 1.19209289328737e-07) ((2159 . 5625) (/ 1073741822 9.00719925474099e+15) -> 1.19209289328737e-07) ((2160 . 5625) (/ 1073741822 9.00719925474099e+15) -> 1.19209289328737e-07) ((2161 . 5625) (/ 1073741823 9.00719925474099e+15) -> 1.19209289439759e-07) ((2162 . 5625) (/ 1073741823 9.00719925474099e+15) -> 1.19209289439759e-07) ((2163 . 5625) (/ 1073741823 9.00719925474099e+15) -> 1.19209289439759e-07) ((2164 . 5625) (/ 1073741823 9.00719925474099e+15) -> 1.19209289439759e-07) ((2165 . 5625) (/ 1073741823 9.00719925474099e+15) -> 1.19209289439759e-07) ((2166 . 5625) (/ 1073741824.0 9.00719925474099e+15) -> 1.19209289550781e-07) ((2167 . 5625) (/ 1073741824.0 9.00719925474099e+15) -> 1.19209289550781e-07) ((2168 . 5625) (/ 1073741824.0 9.00719925474099e+15) -> 1.19209289550781e-07) ((2169 . 5625) (/ 1073741824.0 9.00719925474099e+15) -> 1.19209289550781e-07) ((2170 . 5625) (/ 1073741824.0 9.00719925474099e+15) -> 1.19209289550781e-07) ((2171 . 5625) (/ 1073741825.0 9.00719925474099e+15) -> 1.19209289661804e-07) ((2172 . 5625) (/ 1073741825.0 9.00719925474099e+15) -> 1.19209289661804e-07) ((2173 . 5625) (/ 1073741825.0 9.00719925474099e+15) -> 1.19209289661804e-07) ((2174 . 5625) (/ 1073741825.0 9.00719925474099e+15) -> 1.19209289661804e-07) ((2175 . 5625) (/ 1073741825.0 9.00719925474099e+15) -> 1.19209289661804e-07) ((2176 . 5625) (/ 1073741821 -9.00719925474099e+15) -> -1.19209289217714e-07) ((2177 . 5625) (/ 1073741821 -9.00719925474099e+15) -> -1.19209289217714e-07) ((2178 . 5625) (/ 1073741821 -9.00719925474099e+15) -> -1.19209289217714e-07) ((2179 . 5625) (/ 1073741821 -9.00719925474099e+15) -> -1.19209289217714e-07) ((2180 . 5625) (/ 1073741821 -9.00719925474099e+15) -> -1.19209289217714e-07) ((2181 . 5625) (/ 1073741822 -9.00719925474099e+15) -> -1.19209289328737e-07) ((2182 . 5625) (/ 1073741822 -9.00719925474099e+15) -> -1.19209289328737e-07) ((2183 . 5625) (/ 1073741822 -9.00719925474099e+15) -> -1.19209289328737e-07) ((2184 . 5625) (/ 1073741822 -9.00719925474099e+15) -> -1.19209289328737e-07) ((2185 . 5625) (/ 1073741822 -9.00719925474099e+15) -> -1.19209289328737e-07) ((2186 . 5625) (/ 1073741823 -9.00719925474099e+15) -> -1.19209289439759e-07) ((2187 . 5625) (/ 1073741823 -9.00719925474099e+15) -> -1.19209289439759e-07) ((2188 . 5625) (/ 1073741823 -9.00719925474099e+15) -> -1.19209289439759e-07) ((2189 . 5625) (/ 1073741823 -9.00719925474099e+15) -> -1.19209289439759e-07) ((2190 . 5625) (/ 1073741823 -9.00719925474099e+15) -> -1.19209289439759e-07) ((2191 . 5625) (/ 1073741824.0 -9.00719925474099e+15) -> -1.19209289550781e-07) ((2192 . 5625) (/ 1073741824.0 -9.00719925474099e+15) -> -1.19209289550781e-07) ((2193 . 5625) (/ 1073741824.0 -9.00719925474099e+15) -> -1.19209289550781e-07) ((2194 . 5625) (/ 1073741824.0 -9.00719925474099e+15) -> -1.19209289550781e-07) ((2195 . 5625) (/ 1073741824.0 -9.00719925474099e+15) -> -1.19209289550781e-07) ((2196 . 5625) (/ 1073741825.0 -9.00719925474099e+15) -> -1.19209289661804e-07) ((2197 . 5625) (/ 1073741825.0 -9.00719925474099e+15) -> -1.19209289661804e-07) ((2198 . 5625) (/ 1073741825.0 -9.00719925474099e+15) -> -1.19209289661804e-07) ((2199 . 5625) (/ 1073741825.0 -9.00719925474099e+15) -> -1.19209289661804e-07) ((2200 . 5625) (/ 1073741825.0 -9.00719925474099e+15) -> -1.19209289661804e-07) ((2201 . 5625) (/ 1073741821 12343) -> 86991.9647573523) ((2202 . 5625) (/ 1073741821 12344) -> 86984.9174497732) ((2203 . 5625) (/ 1073741821 12345) -> 86977.8712839206) ((2204 . 5625) (/ 1073741821 12346) -> 86970.8262595173) ((2205 . 5625) (/ 1073741821 12347) -> 86963.7823762857) ((2206 . 5625) (/ 1073741822 12343) -> 86991.9648383699) ((2207 . 5625) (/ 1073741822 12344) -> 86984.9175307842) ((2208 . 5625) (/ 1073741822 12345) -> 86977.8713649251) ((2209 . 5625) (/ 1073741822 12346) -> 86970.8263405152) ((2210 . 5625) (/ 1073741822 12347) -> 86963.7824572771) ((2211 . 5625) (/ 1073741823 12343) -> 86991.9649193875) ((2212 . 5625) (/ 1073741823 12344) -> 86984.9176117952) ((2213 . 5625) (/ 1073741823 12345) -> 86977.8714459295) ((2214 . 5625) (/ 1073741823 12346) -> 86970.826421513) ((2215 . 5625) (/ 1073741823 12347) -> 86963.7825382684) ((2216 . 5625) (/ 1073741824.0 12343) -> 86991.9650004051) ((2217 . 5625) (/ 1073741824.0 12344) -> 86984.9176928062) ((2218 . 5625) (/ 1073741824.0 12345) -> 86977.871526934) ((2219 . 5625) (/ 1073741824.0 12346) -> 86970.8265025109) ((2220 . 5625) (/ 1073741824.0 12347) -> 86963.7826192597) ((2221 . 5625) (/ 1073741825.0 12343) -> 86991.9650814227) ((2222 . 5625) (/ 1073741825.0 12344) -> 86984.9177738172) ((2223 . 5625) (/ 1073741825.0 12345) -> 86977.8716079384) ((2224 . 5625) (/ 1073741825.0 12346) -> 86970.8265835088) ((2225 . 5625) (/ 1073741825.0 12347) -> 86963.7827002511) ((2226 . 5625) (/ 1073741821 4294967294.0) -> 0.249999999417923) ((2227 . 5625) (/ 1073741821 4294967295.0) -> 0.249999999359716) ((2228 . 5625) (/ 1073741821 4294967296.0) -> 0.249999999301508) ((2229 . 5625) (/ 1073741821 4294967297.0) -> 0.2499999992433) ((2230 . 5625) (/ 1073741821 4294967298.0) -> 0.249999999185093) ((2231 . 5625) (/ 1073741822 4294967294.0) -> 0.249999999650754) ((2232 . 5625) (/ 1073741822 4294967295.0) -> 0.249999999592546) ((2233 . 5625) (/ 1073741822 4294967296.0) -> 0.249999999534339) ((2234 . 5625) (/ 1073741822 4294967297.0) -> 0.249999999476131) ((2235 . 5625) (/ 1073741822 4294967298.0) -> 0.249999999417923) ((2236 . 5625) (/ 1073741823 4294967294.0) -> 0.249999999883585) ((2237 . 5625) (/ 1073741823 4294967295.0) -> 0.249999999825377) ((2238 . 5625) (/ 1073741823 4294967296.0) -> 0.249999999767169) ((2239 . 5625) (/ 1073741823 4294967297.0) -> 0.249999999708962) ((2240 . 5625) (/ 1073741823 4294967298.0) -> 0.249999999650754) ((2241 . 5625) (/ 1073741824.0 4294967294.0) -> 0.250000000116415) ((2242 . 5625) (/ 1073741824.0 4294967295.0) -> 0.250000000058208) ((2243 . 5625) (/ 1073741824.0 4294967296.0) -> 0.25) ((2244 . 5625) (/ 1073741824.0 4294967297.0) -> 0.249999999941792) ((2245 . 5625) (/ 1073741824.0 4294967298.0) -> 0.249999999883585) ((2246 . 5625) (/ 1073741825.0 4294967294.0) -> 0.250000000349246) ((2247 . 5625) (/ 1073741825.0 4294967295.0) -> 0.250000000291038) ((2248 . 5625) (/ 1073741825.0 4294967296.0) -> 0.250000000232831) ((2249 . 5625) (/ 1073741825.0 4294967297.0) -> 0.250000000174623) ((2250 . 5625) (/ 1073741825.0 4294967298.0) -> 0.250000000116415) ((2251 . 5625) (/ -1073741826.0 -2) -> 536870913.0) ((2252 . 5625) (/ -1073741826.0 -1) -> 1073741826.0) ((2253 . 5625) (/ -1073741826.0 0) -> "division by zero") ((2254 . 5625) (/ -1073741826.0 1) -> -1073741826.0) ((2255 . 5625) (/ -1073741826.0 2) -> -536870913.0) ((2256 . 5625) (/ -1073741825.0 -2) -> 536870912.5) ((2257 . 5625) (/ -1073741825.0 -1) -> 1073741825.0) ((2258 . 5625) (/ -1073741825.0 0) -> "division by zero") ((2259 . 5625) (/ -1073741825.0 1) -> -1073741825.0) ((2260 . 5625) (/ -1073741825.0 2) -> -536870912.5) ((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) -> 536870911.5) ((2267 . 5625) (/ -1073741823 -1) -> 1073741823) ((2268 . 5625) (/ -1073741823 0) -> "division by zero") ((2269 . 5625) (/ -1073741823 1) -> -1073741823) ((2270 . 5625) (/ -1073741823 2) -> -536870911.5) ((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.0 -1) -> 1073741826.0) ((2277 . 5625) (/ -1073741826.0 0) -> "division by zero") ((2278 . 5625) (/ -1073741826.0 1) -> -1073741826.0) ((2279 . 5625) (/ -1073741826.0 2) -> -536870913.0) ((2280 . 5625) (/ -1073741826.0 3) -> -357913942.0) ((2281 . 5625) (/ -1073741825.0 -1) -> 1073741825.0) ((2282 . 5625) (/ -1073741825.0 0) -> "division by zero") ((2283 . 5625) (/ -1073741825.0 1) -> -1073741825.0) ((2284 . 5625) (/ -1073741825.0 2) -> -536870912.5) ((2285 . 5625) (/ -1073741825.0 3) -> -357913941.666667) ((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) -> -357913941.333333) ((2291 . 5625) (/ -1073741823 -1) -> 1073741823) ((2292 . 5625) (/ -1073741823 0) -> "division by zero") ((2293 . 5625) (/ -1073741823 1) -> -1073741823) ((2294 . 5625) (/ -1073741823 2) -> -536870911.5) ((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) -> -357913940.666667) ((2301 . 5625) (/ -1073741826.0 -3) -> 357913942.0) ((2302 . 5625) (/ -1073741826.0 -2) -> 536870913.0) ((2303 . 5625) (/ -1073741826.0 -1) -> 1073741826.0) ((2304 . 5625) (/ -1073741826.0 0) -> "division by zero") ((2305 . 5625) (/ -1073741826.0 1) -> -1073741826.0) ((2306 . 5625) (/ -1073741825.0 -3) -> 357913941.666667) ((2307 . 5625) (/ -1073741825.0 -2) -> 536870912.5) ((2308 . 5625) (/ -1073741825.0 -1) -> 1073741825.0) ((2309 . 5625) (/ -1073741825.0 0) -> "division by zero") ((2310 . 5625) (/ -1073741825.0 1) -> -1073741825.0) ((2311 . 5625) (/ -1073741824 -3) -> 357913941.333333) ((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) -> 536870911.5) ((2318 . 5625) (/ -1073741823 -1) -> 1073741823) ((2319 . 5625) (/ -1073741823 0) -> "division by zero") ((2320 . 5625) (/ -1073741823 1) -> -1073741823) ((2321 . 5625) (/ -1073741822 -3) -> 357913940.666667) ((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 0) -> "division by zero") ((2327 . 5625) (/ -1073741826.0 1) -> -1073741826.0) ((2328 . 5625) (/ -1073741826.0 2) -> -536870913.0) ((2329 . 5625) (/ -1073741826.0 3) -> -357913942.0) ((2330 . 5625) (/ -1073741826.0 4) -> -268435456.5) ((2331 . 5625) (/ -1073741825.0 0) -> "division by zero") ((2332 . 5625) (/ -1073741825.0 1) -> -1073741825.0) ((2333 . 5625) (/ -1073741825.0 2) -> -536870912.5) ((2334 . 5625) (/ -1073741825.0 3) -> -357913941.666667) ((2335 . 5625) (/ -1073741825.0 4) -> -268435456.25) ((2336 . 5625) (/ -1073741824 0) -> "division by zero") ((2337 . 5625) (/ -1073741824 1) -> -1073741824) ((2338 . 5625) (/ -1073741824 2) -> -536870912) ((2339 . 5625) (/ -1073741824 3) -> -357913941.333333) ((2340 . 5625) (/ -1073741824 4) -> -268435456) ((2341 . 5625) (/ -1073741823 0) -> "division by zero") ((2342 . 5625) (/ -1073741823 1) -> -1073741823) ((2343 . 5625) (/ -1073741823 2) -> -536870911.5) ((2344 . 5625) (/ -1073741823 3) -> -357913941) ((2345 . 5625) (/ -1073741823 4) -> -268435455.75) ((2346 . 5625) (/ -1073741822 0) -> "division by zero") ((2347 . 5625) (/ -1073741822 1) -> -1073741822) ((2348 . 5625) (/ -1073741822 2) -> -536870911) ((2349 . 5625) (/ -1073741822 3) -> -357913940.666667) ((2350 . 5625) (/ -1073741822 4) -> -268435455.5) ((2351 . 5625) (/ -1073741826.0 -4) -> 268435456.5) ((2352 . 5625) (/ -1073741826.0 -3) -> 357913942.0) ((2353 . 5625) (/ -1073741826.0 -2) -> 536870913.0) ((2354 . 5625) (/ -1073741826.0 -1) -> 1073741826.0) ((2355 . 5625) (/ -1073741826.0 0) -> "division by zero") ((2356 . 5625) (/ -1073741825.0 -4) -> 268435456.25) ((2357 . 5625) (/ -1073741825.0 -3) -> 357913941.666667) ((2358 . 5625) (/ -1073741825.0 -2) -> 536870912.5) ((2359 . 5625) (/ -1073741825.0 -1) -> 1073741825.0) ((2360 . 5625) (/ -1073741825.0 0) -> "division by zero") ((2361 . 5625) (/ -1073741824 -4) -> 268435456) ((2362 . 5625) (/ -1073741824 -3) -> 357913941.333333) ((2363 . 5625) (/ -1073741824 -2) -> 536870912) ((2364 . 5625) (/ -1073741824 -1) -> -1073741824) ((2365 . 5625) (/ -1073741824 0) -> "division by zero") ((2366 . 5625) (/ -1073741823 -4) -> 268435455.75) ((2367 . 5625) (/ -1073741823 -3) -> 357913941) ((2368 . 5625) (/ -1073741823 -2) -> 536870911.5) ((2369 . 5625) (/ -1073741823 -1) -> 1073741823) ((2370 . 5625) (/ -1073741823 0) -> "division by zero") ((2371 . 5625) (/ -1073741822 -4) -> 268435455.5) ((2372 . 5625) (/ -1073741822 -3) -> 357913940.666667) ((2373 . 5625) (/ -1073741822 -2) -> 536870911) ((2374 . 5625) (/ -1073741822 -1) -> 1073741822) ((2375 . 5625) (/ -1073741822 0) -> "division by zero") ((2376 . 5625) (/ -1073741826.0 1073741821) -> -1.00000000465661) ((2377 . 5625) (/ -1073741826.0 1073741822) -> -1.00000000372529) ((2378 . 5625) (/ -1073741826.0 1073741823) -> -1.00000000279397) ((2379 . 5625) (/ -1073741826.0 1073741824.0) -> -1.00000000186265) ((2380 . 5625) (/ -1073741826.0 1073741825.0) -> -1.00000000093132) ((2381 . 5625) (/ -1073741825.0 1073741821) -> -1.00000000372529) ((2382 . 5625) (/ -1073741825.0 1073741822) -> -1.00000000279397) ((2383 . 5625) (/ -1073741825.0 1073741823) -> -1.00000000186265) ((2384 . 5625) (/ -1073741825.0 1073741824.0) -> -1.00000000093132) ((2385 . 5625) (/ -1073741825.0 1073741825.0) -> -1.0) ((2386 . 5625) (/ -1073741824 1073741821) -> -1.00000000279397) ((2387 . 5625) (/ -1073741824 1073741822) -> -1.00000000186265) ((2388 . 5625) (/ -1073741824 1073741823) -> -1.00000000093132) ((2389 . 5625) (/ -1073741824 1073741824.0) -> -1.0) ((2390 . 5625) (/ -1073741824 1073741825.0) -> -0.999999999068677) ((2391 . 5625) (/ -1073741823 1073741821) -> -1.00000000186265) ((2392 . 5625) (/ -1073741823 1073741822) -> -1.00000000093132) ((2393 . 5625) (/ -1073741823 1073741823) -> -1) ((2394 . 5625) (/ -1073741823 1073741824.0) -> -0.999999999068677) ((2395 . 5625) (/ -1073741823 1073741825.0) -> -0.999999998137355) ((2396 . 5625) (/ -1073741822 1073741821) -> -1.00000000093132) ((2397 . 5625) (/ -1073741822 1073741822) -> -1) ((2398 . 5625) (/ -1073741822 1073741823) -> -0.999999999068677) ((2399 . 5625) (/ -1073741822 1073741824.0) -> -0.999999998137355) ((2400 . 5625) (/ -1073741822 1073741825.0) -> -0.999999997206032) ((2401 . 5625) (/ -1073741826.0 -1073741826.0) -> 1.0) ((2402 . 5625) (/ -1073741826.0 -1073741825.0) -> 1.00000000093132) ((2403 . 5625) (/ -1073741826.0 -1073741824) -> 1.00000000186265) ((2404 . 5625) (/ -1073741826.0 -1073741823) -> 1.00000000279397) ((2405 . 5625) (/ -1073741826.0 -1073741822) -> 1.00000000372529) ((2406 . 5625) (/ -1073741825.0 -1073741826.0) -> 0.999999999068677) ((2407 . 5625) (/ -1073741825.0 -1073741825.0) -> 1.0) ((2408 . 5625) (/ -1073741825.0 -1073741824) -> 1.00000000093132) ((2409 . 5625) (/ -1073741825.0 -1073741823) -> 1.00000000186265) ((2410 . 5625) (/ -1073741825.0 -1073741822) -> 1.00000000279397) ((2411 . 5625) (/ -1073741824 -1073741826.0) -> 0.999999998137355) ((2412 . 5625) (/ -1073741824 -1073741825.0) -> 0.999999999068677) ((2413 . 5625) (/ -1073741824 -1073741824) -> 1) ((2414 . 5625) (/ -1073741824 -1073741823) -> 1.00000000093132) ((2415 . 5625) (/ -1073741824 -1073741822) -> 1.00000000186265) ((2416 . 5625) (/ -1073741823 -1073741826.0) -> 0.999999997206032) ((2417 . 5625) (/ -1073741823 -1073741825.0) -> 0.999999998137355) ((2418 . 5625) (/ -1073741823 -1073741824) -> 0.999999999068677) ((2419 . 5625) (/ -1073741823 -1073741823) -> 1) ((2420 . 5625) (/ -1073741823 -1073741822) -> 1.00000000093132) ((2421 . 5625) (/ -1073741822 -1073741826.0) -> 0.99999999627471) ((2422 . 5625) (/ -1073741822 -1073741825.0) -> 0.999999997206032) ((2423 . 5625) (/ -1073741822 -1073741824) -> 0.999999998137355) ((2424 . 5625) (/ -1073741822 -1073741823) -> 0.999999999068677) ((2425 . 5625) (/ -1073741822 -1073741822) -> 1) ((2426 . 5625) (/ -1073741826.0 1073741822.0) -> -1.00000000372529) ((2427 . 5625) (/ -1073741826.0 1073741823.0) -> -1.00000000279397) ((2428 . 5625) (/ -1073741826.0 1073741824.0) -> -1.00000000186265) ((2429 . 5625) (/ -1073741826.0 1073741825.0) -> -1.00000000093132) ((2430 . 5625) (/ -1073741826.0 1073741826.0) -> -1.0) ((2431 . 5625) (/ -1073741825.0 1073741822.0) -> -1.00000000279397) ((2432 . 5625) (/ -1073741825.0 1073741823.0) -> -1.00000000186265) ((2433 . 5625) (/ -1073741825.0 1073741824.0) -> -1.00000000093132) ((2434 . 5625) (/ -1073741825.0 1073741825.0) -> -1.0) ((2435 . 5625) (/ -1073741825.0 1073741826.0) -> -0.999999999068677) ((2436 . 5625) (/ -1073741824 1073741822.0) -> -1.00000000186265) ((2437 . 5625) (/ -1073741824 1073741823.0) -> -1.00000000093132) ((2438 . 5625) (/ -1073741824 1073741824.0) -> -1.0) ((2439 . 5625) (/ -1073741824 1073741825.0) -> -0.999999999068677) ((2440 . 5625) (/ -1073741824 1073741826.0) -> -0.999999998137355) ((2441 . 5625) (/ -1073741823 1073741822.0) -> -1.00000000093132) ((2442 . 5625) (/ -1073741823 1073741823.0) -> -1.0) ((2443 . 5625) (/ -1073741823 1073741824.0) -> -0.999999999068677) ((2444 . 5625) (/ -1073741823 1073741825.0) -> -0.999999998137355) ((2445 . 5625) (/ -1073741823 1073741826.0) -> -0.999999997206032) ((2446 . 5625) (/ -1073741822 1073741822.0) -> -1.0) ((2447 . 5625) (/ -1073741822 1073741823.0) -> -0.999999999068677) ((2448 . 5625) (/ -1073741822 1073741824.0) -> -0.999999998137355) ((2449 . 5625) (/ -1073741822 1073741825.0) -> -0.999999997206032) ((2450 . 5625) (/ -1073741822 1073741826.0) -> -0.99999999627471) ((2451 . 5625) (/ -1073741826.0 -1073741827.0) -> 0.999999999068677) ((2452 . 5625) (/ -1073741826.0 -1073741826.0) -> 1.0) ((2453 . 5625) (/ -1073741826.0 -1073741825.0) -> 1.00000000093132) ((2454 . 5625) (/ -1073741826.0 -1073741824.0) -> 1.00000000186265) ((2455 . 5625) (/ -1073741826.0 -1073741823.0) -> 1.00000000279397) ((2456 . 5625) (/ -1073741825.0 -1073741827.0) -> 0.999999998137355) ((2457 . 5625) (/ -1073741825.0 -1073741826.0) -> 0.999999999068677) ((2458 . 5625) (/ -1073741825.0 -1073741825.0) -> 1.0) ((2459 . 5625) (/ -1073741825.0 -1073741824.0) -> 1.00000000093132) ((2460 . 5625) (/ -1073741825.0 -1073741823.0) -> 1.00000000186265) ((2461 . 5625) (/ -1073741824 -1073741827.0) -> 0.999999997206032) ((2462 . 5625) (/ -1073741824 -1073741826.0) -> 0.999999998137355) ((2463 . 5625) (/ -1073741824 -1073741825.0) -> 0.999999999068677) ((2464 . 5625) (/ -1073741824 -1073741824.0) -> 1.0) ((2465 . 5625) (/ -1073741824 -1073741823.0) -> 1.00000000093132) ((2466 . 5625) (/ -1073741823 -1073741827.0) -> 0.99999999627471) ((2467 . 5625) (/ -1073741823 -1073741826.0) -> 0.999999997206032) ((2468 . 5625) (/ -1073741823 -1073741825.0) -> 0.999999998137355) ((2469 . 5625) (/ -1073741823 -1073741824.0) -> 0.999999999068677) ((2470 . 5625) (/ -1073741823 -1073741823.0) -> 1.0) ((2471 . 5625) (/ -1073741822 -1073741827.0) -> 0.999999995343387) ((2472 . 5625) (/ -1073741822 -1073741826.0) -> 0.99999999627471) ((2473 . 5625) (/ -1073741822 -1073741825.0) -> 0.999999997206032) ((2474 . 5625) (/ -1073741822 -1073741824.0) -> 0.999999998137355) ((2475 . 5625) (/ -1073741822 -1073741823.0) -> 0.999999999068677) ((2476 . 5625) (/ -1073741826.0 1103515243.0) -> -0.973019478263791) ((2477 . 5625) (/ -1073741826.0 1103515244.0) -> -0.973019477382045) ((2478 . 5625) (/ -1073741826.0 1103515245.0) -> -0.9730194765003) ((2479 . 5625) (/ -1073741826.0 1103515246.0) -> -0.973019475618554) ((2480 . 5625) (/ -1073741826.0 1103515247.0) -> -0.973019474736809) ((2481 . 5625) (/ -1073741825.0 1103515243.0) -> -0.973019477357596) ((2482 . 5625) (/ -1073741825.0 1103515244.0) -> -0.97301947647585) ((2483 . 5625) (/ -1073741825.0 1103515245.0) -> -0.973019475594105) ((2484 . 5625) (/ -1073741825.0 1103515246.0) -> -0.973019474712359) ((2485 . 5625) (/ -1073741825.0 1103515247.0) -> -0.973019473830614) ((2486 . 5625) (/ -1073741824 1103515243.0) -> -0.973019476451401) ((2487 . 5625) (/ -1073741824 1103515244.0) -> -0.973019475569655) ((2488 . 5625) (/ -1073741824 1103515245.0) -> -0.97301947468791) ((2489 . 5625) (/ -1073741824 1103515246.0) -> -0.973019473806164) ((2490 . 5625) (/ -1073741824 1103515247.0) -> -0.973019472924419) ((2491 . 5625) (/ -1073741823 1103515243.0) -> -0.973019475545206) ((2492 . 5625) (/ -1073741823 1103515244.0) -> -0.97301947466346) ((2493 . 5625) (/ -1073741823 1103515245.0) -> -0.973019473781715) ((2494 . 5625) (/ -1073741823 1103515246.0) -> -0.973019472899969) ((2495 . 5625) (/ -1073741823 1103515247.0) -> -0.973019472018224) ((2496 . 5625) (/ -1073741822 1103515243.0) -> -0.973019474639011) ((2497 . 5625) (/ -1073741822 1103515244.0) -> -0.973019473757265) ((2498 . 5625) (/ -1073741822 1103515245.0) -> -0.97301947287552) ((2499 . 5625) (/ -1073741822 1103515246.0) -> -0.973019471993774) ((2500 . 5625) (/ -1073741822 1103515247.0) -> -0.973019471112029) ((2501 . 5625) (/ -1073741826.0 631629063) -> -1.69995633338993) ((2502 . 5625) (/ -1073741826.0 631629064) -> -1.69995633069855) ((2503 . 5625) (/ -1073741826.0 631629065) -> -1.69995632800717) ((2504 . 5625) (/ -1073741826.0 631629066) -> -1.69995632531578) ((2505 . 5625) (/ -1073741826.0 631629067) -> -1.6999563226244) ((2506 . 5625) (/ -1073741825.0 631629063) -> -1.69995633180673) ((2507 . 5625) (/ -1073741825.0 631629064) -> -1.69995632911534) ((2508 . 5625) (/ -1073741825.0 631629065) -> -1.69995632642396) ((2509 . 5625) (/ -1073741825.0 631629066) -> -1.69995632373257) ((2510 . 5625) (/ -1073741825.0 631629067) -> -1.69995632104119) ((2511 . 5625) (/ -1073741824 631629063) -> -1.69995633022352) ((2512 . 5625) (/ -1073741824 631629064) -> -1.69995632753214) ((2513 . 5625) (/ -1073741824 631629065) -> -1.69995632484075) ((2514 . 5625) (/ -1073741824 631629066) -> -1.69995632214937) ((2515 . 5625) (/ -1073741824 631629067) -> -1.69995631945798) ((2516 . 5625) (/ -1073741823 631629063) -> -1.69995632864031) ((2517 . 5625) (/ -1073741823 631629064) -> -1.69995632594893) ((2518 . 5625) (/ -1073741823 631629065) -> -1.69995632325754) ((2519 . 5625) (/ -1073741823 631629066) -> -1.69995632056616) ((2520 . 5625) (/ -1073741823 631629067) -> -1.69995631787478) ((2521 . 5625) (/ -1073741822 631629063) -> -1.6999563270571) ((2522 . 5625) (/ -1073741822 631629064) -> -1.69995632436572) ((2523 . 5625) (/ -1073741822 631629065) -> -1.69995632167434) ((2524 . 5625) (/ -1073741822 631629066) -> -1.69995631898295) ((2525 . 5625) (/ -1073741822 631629067) -> -1.69995631629157) ((2526 . 5625) (/ -1073741826.0 9.00719925474099e+15) -> -1.19209289772826e-07) ((2527 . 5625) (/ -1073741826.0 9.00719925474099e+15) -> -1.19209289772826e-07) ((2528 . 5625) (/ -1073741826.0 9.00719925474099e+15) -> -1.19209289772826e-07) ((2529 . 5625) (/ -1073741826.0 9.00719925474099e+15) -> -1.19209289772826e-07) ((2530 . 5625) (/ -1073741826.0 9.00719925474099e+15) -> -1.19209289772826e-07) ((2531 . 5625) (/ -1073741825.0 9.00719925474099e+15) -> -1.19209289661804e-07) ((2532 . 5625) (/ -1073741825.0 9.00719925474099e+15) -> -1.19209289661804e-07) ((2533 . 5625) (/ -1073741825.0 9.00719925474099e+15) -> -1.19209289661804e-07) ((2534 . 5625) (/ -1073741825.0 9.00719925474099e+15) -> -1.19209289661804e-07) ((2535 . 5625) (/ -1073741825.0 9.00719925474099e+15) -> -1.19209289661804e-07) ((2536 . 5625) (/ -1073741824 9.00719925474099e+15) -> -1.19209289550781e-07) ((2537 . 5625) (/ -1073741824 9.00719925474099e+15) -> -1.19209289550781e-07) ((2538 . 5625) (/ -1073741824 9.00719925474099e+15) -> -1.19209289550781e-07) ((2539 . 5625) (/ -1073741824 9.00719925474099e+15) -> -1.19209289550781e-07) ((2540 . 5625) (/ -1073741824 9.00719925474099e+15) -> -1.19209289550781e-07) ((2541 . 5625) (/ -1073741823 9.00719925474099e+15) -> -1.19209289439759e-07) ((2542 . 5625) (/ -1073741823 9.00719925474099e+15) -> -1.19209289439759e-07) ((2543 . 5625) (/ -1073741823 9.00719925474099e+15) -> -1.19209289439759e-07) ((2544 . 5625) (/ -1073741823 9.00719925474099e+15) -> -1.19209289439759e-07) ((2545 . 5625) (/ -1073741823 9.00719925474099e+15) -> -1.19209289439759e-07) ((2546 . 5625) (/ -1073741822 9.00719925474099e+15) -> -1.19209289328737e-07) ((2547 . 5625) (/ -1073741822 9.00719925474099e+15) -> -1.19209289328737e-07) ((2548 . 5625) (/ -1073741822 9.00719925474099e+15) -> -1.19209289328737e-07) ((2549 . 5625) (/ -1073741822 9.00719925474099e+15) -> -1.19209289328737e-07) ((2550 . 5625) (/ -1073741822 9.00719925474099e+15) -> -1.19209289328737e-07) ((2551 . 5625) (/ -1073741826.0 -9.00719925474099e+15) -> 1.19209289772826e-07) ((2552 . 5625) (/ -1073741826.0 -9.00719925474099e+15) -> 1.19209289772826e-07) ((2553 . 5625) (/ -1073741826.0 -9.00719925474099e+15) -> 1.19209289772826e-07) ((2554 . 5625) (/ -1073741826.0 -9.00719925474099e+15) -> 1.19209289772826e-07) ((2555 . 5625) (/ -1073741826.0 -9.00719925474099e+15) -> 1.19209289772826e-07) ((2556 . 5625) (/ -1073741825.0 -9.00719925474099e+15) -> 1.19209289661804e-07) ((2557 . 5625) (/ -1073741825.0 -9.00719925474099e+15) -> 1.19209289661804e-07) ((2558 . 5625) (/ -1073741825.0 -9.00719925474099e+15) -> 1.19209289661804e-07) ((2559 . 5625) (/ -1073741825.0 -9.00719925474099e+15) -> 1.19209289661804e-07) ((2560 . 5625) (/ -1073741825.0 -9.00719925474099e+15) -> 1.19209289661804e-07) ((2561 . 5625) (/ -1073741824 -9.00719925474099e+15) -> 1.19209289550781e-07) ((2562 . 5625) (/ -1073741824 -9.00719925474099e+15) -> 1.19209289550781e-07) ((2563 . 5625) (/ -1073741824 -9.00719925474099e+15) -> 1.19209289550781e-07) ((2564 . 5625) (/ -1073741824 -9.00719925474099e+15) -> 1.19209289550781e-07) ((2565 . 5625) (/ -1073741824 -9.00719925474099e+15) -> 1.19209289550781e-07) ((2566 . 5625) (/ -1073741823 -9.00719925474099e+15) -> 1.19209289439759e-07) ((2567 . 5625) (/ -1073741823 -9.00719925474099e+15) -> 1.19209289439759e-07) ((2568 . 5625) (/ -1073741823 -9.00719925474099e+15) -> 1.19209289439759e-07) ((2569 . 5625) (/ -1073741823 -9.00719925474099e+15) -> 1.19209289439759e-07) ((2570 . 5625) (/ -1073741823 -9.00719925474099e+15) -> 1.19209289439759e-07) ((2571 . 5625) (/ -1073741822 -9.00719925474099e+15) -> 1.19209289328737e-07) ((2572 . 5625) (/ -1073741822 -9.00719925474099e+15) -> 1.19209289328737e-07) ((2573 . 5625) (/ -1073741822 -9.00719925474099e+15) -> 1.19209289328737e-07) ((2574 . 5625) (/ -1073741822 -9.00719925474099e+15) -> 1.19209289328737e-07) ((2575 . 5625) (/ -1073741822 -9.00719925474099e+15) -> 1.19209289328737e-07) ((2576 . 5625) (/ -1073741826.0 12343) -> -86991.9651624402) ((2577 . 5625) (/ -1073741826.0 12344) -> -86984.9178548283) ((2578 . 5625) (/ -1073741826.0 12345) -> -86977.8716889429) ((2579 . 5625) (/ -1073741826.0 12346) -> -86970.8266645067) ((2580 . 5625) (/ -1073741826.0 12347) -> -86963.7827812424) ((2581 . 5625) (/ -1073741825.0 12343) -> -86991.9650814227) ((2582 . 5625) (/ -1073741825.0 12344) -> -86984.9177738172) ((2583 . 5625) (/ -1073741825.0 12345) -> -86977.8716079384) ((2584 . 5625) (/ -1073741825.0 12346) -> -86970.8265835088) ((2585 . 5625) (/ -1073741825.0 12347) -> -86963.7827002511) ((2586 . 5625) (/ -1073741824 12343) -> -86991.9650004051) ((2587 . 5625) (/ -1073741824 12344) -> -86984.9176928062) ((2588 . 5625) (/ -1073741824 12345) -> -86977.871526934) ((2589 . 5625) (/ -1073741824 12346) -> -86970.8265025109) ((2590 . 5625) (/ -1073741824 12347) -> -86963.7826192597) ((2591 . 5625) (/ -1073741823 12343) -> -86991.9649193875) ((2592 . 5625) (/ -1073741823 12344) -> -86984.9176117952) ((2593 . 5625) (/ -1073741823 12345) -> -86977.8714459295) ((2594 . 5625) (/ -1073741823 12346) -> -86970.826421513) ((2595 . 5625) (/ -1073741823 12347) -> -86963.7825382684) ((2596 . 5625) (/ -1073741822 12343) -> -86991.9648383699) ((2597 . 5625) (/ -1073741822 12344) -> -86984.9175307842) ((2598 . 5625) (/ -1073741822 12345) -> -86977.8713649251) ((2599 . 5625) (/ -1073741822 12346) -> -86970.8263405152) ((2600 . 5625) (/ -1073741822 12347) -> -86963.7824572771) ((2601 . 5625) (/ -1073741826.0 4294967294.0) -> -0.250000000582077) ((2602 . 5625) (/ -1073741826.0 4294967295.0) -> -0.250000000523869) ((2603 . 5625) (/ -1073741826.0 4294967296.0) -> -0.250000000465661) ((2604 . 5625) (/ -1073741826.0 4294967297.0) -> -0.250000000407454) ((2605 . 5625) (/ -1073741826.0 4294967298.0) -> -0.250000000349246) ((2606 . 5625) (/ -1073741825.0 4294967294.0) -> -0.250000000349246) ((2607 . 5625) (/ -1073741825.0 4294967295.0) -> -0.250000000291038) ((2608 . 5625) (/ -1073741825.0 4294967296.0) -> -0.250000000232831) ((2609 . 5625) (/ -1073741825.0 4294967297.0) -> -0.250000000174623) ((2610 . 5625) (/ -1073741825.0 4294967298.0) -> -0.250000000116415) ((2611 . 5625) (/ -1073741824 4294967294.0) -> -0.250000000116415) ((2612 . 5625) (/ -1073741824 4294967295.0) -> -0.250000000058208) ((2613 . 5625) (/ -1073741824 4294967296.0) -> -0.25) ((2614 . 5625) (/ -1073741824 4294967297.0) -> -0.249999999941792) ((2615 . 5625) (/ -1073741824 4294967298.0) -> -0.249999999883585) ((2616 . 5625) (/ -1073741823 4294967294.0) -> -0.249999999883585) ((2617 . 5625) (/ -1073741823 4294967295.0) -> -0.249999999825377) ((2618 . 5625) (/ -1073741823 4294967296.0) -> -0.249999999767169) ((2619 . 5625) (/ -1073741823 4294967297.0) -> -0.249999999708962) ((2620 . 5625) (/ -1073741823 4294967298.0) -> -0.249999999650754) ((2621 . 5625) (/ -1073741822 4294967294.0) -> -0.249999999650754) ((2622 . 5625) (/ -1073741822 4294967295.0) -> -0.249999999592546) ((2623 . 5625) (/ -1073741822 4294967296.0) -> -0.249999999534339) ((2624 . 5625) (/ -1073741822 4294967297.0) -> -0.249999999476131) ((2625 . 5625) (/ -1073741822 4294967298.0) -> -0.249999999417923) ((2626 . 5625) (/ 1073741822.0 -2) -> -536870911.0) ((2627 . 5625) (/ 1073741822.0 -1) -> -1073741822.0) ((2628 . 5625) (/ 1073741822.0 0) -> "division by zero") ((2629 . 5625) (/ 1073741822.0 1) -> 1073741822.0) ((2630 . 5625) (/ 1073741822.0 2) -> 536870911.0) ((2631 . 5625) (/ 1073741823.0 -2) -> -536870911.5) ((2632 . 5625) (/ 1073741823.0 -1) -> -1073741823.0) ((2633 . 5625) (/ 1073741823.0 0) -> "division by zero") ((2634 . 5625) (/ 1073741823.0 1) -> 1073741823.0) ((2635 . 5625) (/ 1073741823.0 2) -> 536870911.5) ((2636 . 5625) (/ 1073741824.0 -2) -> -536870912.0) ((2637 . 5625) (/ 1073741824.0 -1) -> -1073741824.0) ((2638 . 5625) (/ 1073741824.0 0) -> "division by zero") ((2639 . 5625) (/ 1073741824.0 1) -> 1073741824.0) ((2640 . 5625) (/ 1073741824.0 2) -> 536870912.0) ((2641 . 5625) (/ 1073741825.0 -2) -> -536870912.5) ((2642 . 5625) (/ 1073741825.0 -1) -> -1073741825.0) ((2643 . 5625) (/ 1073741825.0 0) -> "division by zero") ((2644 . 5625) (/ 1073741825.0 1) -> 1073741825.0) ((2645 . 5625) (/ 1073741825.0 2) -> 536870912.5) ((2646 . 5625) (/ 1073741826.0 -2) -> -536870913.0) ((2647 . 5625) (/ 1073741826.0 -1) -> -1073741826.0) ((2648 . 5625) (/ 1073741826.0 0) -> "division by zero") ((2649 . 5625) (/ 1073741826.0 1) -> 1073741826.0) ((2650 . 5625) (/ 1073741826.0 2) -> 536870913.0) ((2651 . 5625) (/ 1073741822.0 -1) -> -1073741822.0) ((2652 . 5625) (/ 1073741822.0 0) -> "division by zero") ((2653 . 5625) (/ 1073741822.0 1) -> 1073741822.0) ((2654 . 5625) (/ 1073741822.0 2) -> 536870911.0) ((2655 . 5625) (/ 1073741822.0 3) -> 357913940.666667) ((2656 . 5625) (/ 1073741823.0 -1) -> -1073741823.0) ((2657 . 5625) (/ 1073741823.0 0) -> "division by zero") ((2658 . 5625) (/ 1073741823.0 1) -> 1073741823.0) ((2659 . 5625) (/ 1073741823.0 2) -> 536870911.5) ((2660 . 5625) (/ 1073741823.0 3) -> 357913941.0) ((2661 . 5625) (/ 1073741824.0 -1) -> -1073741824.0) ((2662 . 5625) (/ 1073741824.0 0) -> "division by zero") ((2663 . 5625) (/ 1073741824.0 1) -> 1073741824.0) ((2664 . 5625) (/ 1073741824.0 2) -> 536870912.0) ((2665 . 5625) (/ 1073741824.0 3) -> 357913941.333333) ((2666 . 5625) (/ 1073741825.0 -1) -> -1073741825.0) ((2667 . 5625) (/ 1073741825.0 0) -> "division by zero") ((2668 . 5625) (/ 1073741825.0 1) -> 1073741825.0) ((2669 . 5625) (/ 1073741825.0 2) -> 536870912.5) ((2670 . 5625) (/ 1073741825.0 3) -> 357913941.666667) ((2671 . 5625) (/ 1073741826.0 -1) -> -1073741826.0) ((2672 . 5625) (/ 1073741826.0 0) -> "division by zero") ((2673 . 5625) (/ 1073741826.0 1) -> 1073741826.0) ((2674 . 5625) (/ 1073741826.0 2) -> 536870913.0) ((2675 . 5625) (/ 1073741826.0 3) -> 357913942.0) ((2676 . 5625) (/ 1073741822.0 -3) -> -357913940.666667) ((2677 . 5625) (/ 1073741822.0 -2) -> -536870911.0) ((2678 . 5625) (/ 1073741822.0 -1) -> -1073741822.0) ((2679 . 5625) (/ 1073741822.0 0) -> "division by zero") ((2680 . 5625) (/ 1073741822.0 1) -> 1073741822.0) ((2681 . 5625) (/ 1073741823.0 -3) -> -357913941.0) ((2682 . 5625) (/ 1073741823.0 -2) -> -536870911.5) ((2683 . 5625) (/ 1073741823.0 -1) -> -1073741823.0) ((2684 . 5625) (/ 1073741823.0 0) -> "division by zero") ((2685 . 5625) (/ 1073741823.0 1) -> 1073741823.0) ((2686 . 5625) (/ 1073741824.0 -3) -> -357913941.333333) ((2687 . 5625) (/ 1073741824.0 -2) -> -536870912.0) ((2688 . 5625) (/ 1073741824.0 -1) -> -1073741824.0) ((2689 . 5625) (/ 1073741824.0 0) -> "division by zero") ((2690 . 5625) (/ 1073741824.0 1) -> 1073741824.0) ((2691 . 5625) (/ 1073741825.0 -3) -> -357913941.666667) ((2692 . 5625) (/ 1073741825.0 -2) -> -536870912.5) ((2693 . 5625) (/ 1073741825.0 -1) -> -1073741825.0) ((2694 . 5625) (/ 1073741825.0 0) -> "division by zero") ((2695 . 5625) (/ 1073741825.0 1) -> 1073741825.0) ((2696 . 5625) (/ 1073741826.0 -3) -> -357913942.0) ((2697 . 5625) (/ 1073741826.0 -2) -> -536870913.0) ((2698 . 5625) (/ 1073741826.0 -1) -> -1073741826.0) ((2699 . 5625) (/ 1073741826.0 0) -> "division by zero") ((2700 . 5625) (/ 1073741826.0 1) -> 1073741826.0) ((2701 . 5625) (/ 1073741822.0 0) -> "division by zero") ((2702 . 5625) (/ 1073741822.0 1) -> 1073741822.0) ((2703 . 5625) (/ 1073741822.0 2) -> 536870911.0) ((2704 . 5625) (/ 1073741822.0 3) -> 357913940.666667) ((2705 . 5625) (/ 1073741822.0 4) -> 268435455.5) ((2706 . 5625) (/ 1073741823.0 0) -> "division by zero") ((2707 . 5625) (/ 1073741823.0 1) -> 1073741823.0) ((2708 . 5625) (/ 1073741823.0 2) -> 536870911.5) ((2709 . 5625) (/ 1073741823.0 3) -> 357913941.0) ((2710 . 5625) (/ 1073741823.0 4) -> 268435455.75) ((2711 . 5625) (/ 1073741824.0 0) -> "division by zero") ((2712 . 5625) (/ 1073741824.0 1) -> 1073741824.0) ((2713 . 5625) (/ 1073741824.0 2) -> 536870912.0) ((2714 . 5625) (/ 1073741824.0 3) -> 357913941.333333) ((2715 . 5625) (/ 1073741824.0 4) -> 268435456.0) ((2716 . 5625) (/ 1073741825.0 0) -> "division by zero") ((2717 . 5625) (/ 1073741825.0 1) -> 1073741825.0) ((2718 . 5625) (/ 1073741825.0 2) -> 536870912.5) ((2719 . 5625) (/ 1073741825.0 3) -> 357913941.666667) ((2720 . 5625) (/ 1073741825.0 4) -> 268435456.25) ((2721 . 5625) (/ 1073741826.0 0) -> "division by zero") ((2722 . 5625) (/ 1073741826.0 1) -> 1073741826.0) ((2723 . 5625) (/ 1073741826.0 2) -> 536870913.0) ((2724 . 5625) (/ 1073741826.0 3) -> 357913942.0) ((2725 . 5625) (/ 1073741826.0 4) -> 268435456.5) ((2726 . 5625) (/ 1073741822.0 -4) -> -268435455.5) ((2727 . 5625) (/ 1073741822.0 -3) -> -357913940.666667) ((2728 . 5625) (/ 1073741822.0 -2) -> -536870911.0) ((2729 . 5625) (/ 1073741822.0 -1) -> -1073741822.0) ((2730 . 5625) (/ 1073741822.0 0) -> "division by zero") ((2731 . 5625) (/ 1073741823.0 -4) -> -268435455.75) ((2732 . 5625) (/ 1073741823.0 -3) -> -357913941.0) ((2733 . 5625) (/ 1073741823.0 -2) -> -536870911.5) ((2734 . 5625) (/ 1073741823.0 -1) -> -1073741823.0) ((2735 . 5625) (/ 1073741823.0 0) -> "division by zero") ((2736 . 5625) (/ 1073741824.0 -4) -> -268435456.0) ((2737 . 5625) (/ 1073741824.0 -3) -> -357913941.333333) ((2738 . 5625) (/ 1073741824.0 -2) -> -536870912.0) ((2739 . 5625) (/ 1073741824.0 -1) -> -1073741824.0) ((2740 . 5625) (/ 1073741824.0 0) -> "division by zero") ((2741 . 5625) (/ 1073741825.0 -4) -> -268435456.25) ((2742 . 5625) (/ 1073741825.0 -3) -> -357913941.666667) ((2743 . 5625) (/ 1073741825.0 -2) -> -536870912.5) ((2744 . 5625) (/ 1073741825.0 -1) -> -1073741825.0) ((2745 . 5625) (/ 1073741825.0 0) -> "division by zero") ((2746 . 5625) (/ 1073741826.0 -4) -> -268435456.5) ((2747 . 5625) (/ 1073741826.0 -3) -> -357913942.0) ((2748 . 5625) (/ 1073741826.0 -2) -> -536870913.0) ((2749 . 5625) (/ 1073741826.0 -1) -> -1073741826.0) ((2750 . 5625) (/ 1073741826.0 0) -> "division by zero") ((2751 . 5625) (/ 1073741822.0 1073741821) -> 1.00000000093132) ((2752 . 5625) (/ 1073741822.0 1073741822) -> 1.0) ((2753 . 5625) (/ 1073741822.0 1073741823) -> 0.999999999068677) ((2754 . 5625) (/ 1073741822.0 1073741824.0) -> 0.999999998137355) ((2755 . 5625) (/ 1073741822.0 1073741825.0) -> 0.999999997206032) ((2756 . 5625) (/ 1073741823.0 1073741821) -> 1.00000000186265) ((2757 . 5625) (/ 1073741823.0 1073741822) -> 1.00000000093132) ((2758 . 5625) (/ 1073741823.0 1073741823) -> 1.0) ((2759 . 5625) (/ 1073741823.0 1073741824.0) -> 0.999999999068677) ((2760 . 5625) (/ 1073741823.0 1073741825.0) -> 0.999999998137355) ((2761 . 5625) (/ 1073741824.0 1073741821) -> 1.00000000279397) ((2762 . 5625) (/ 1073741824.0 1073741822) -> 1.00000000186265) ((2763 . 5625) (/ 1073741824.0 1073741823) -> 1.00000000093132) ((2764 . 5625) (/ 1073741824.0 1073741824.0) -> 1.0) ((2765 . 5625) (/ 1073741824.0 1073741825.0) -> 0.999999999068677) ((2766 . 5625) (/ 1073741825.0 1073741821) -> 1.00000000372529) ((2767 . 5625) (/ 1073741825.0 1073741822) -> 1.00000000279397) ((2768 . 5625) (/ 1073741825.0 1073741823) -> 1.00000000186265) ((2769 . 5625) (/ 1073741825.0 1073741824.0) -> 1.00000000093132) ((2770 . 5625) (/ 1073741825.0 1073741825.0) -> 1.0) ((2771 . 5625) (/ 1073741826.0 1073741821) -> 1.00000000465661) ((2772 . 5625) (/ 1073741826.0 1073741822) -> 1.00000000372529) ((2773 . 5625) (/ 1073741826.0 1073741823) -> 1.00000000279397) ((2774 . 5625) (/ 1073741826.0 1073741824.0) -> 1.00000000186265) ((2775 . 5625) (/ 1073741826.0 1073741825.0) -> 1.00000000093132) ((2776 . 5625) (/ 1073741822.0 -1073741826.0) -> -0.99999999627471) ((2777 . 5625) (/ 1073741822.0 -1073741825.0) -> -0.999999997206032) ((2778 . 5625) (/ 1073741822.0 -1073741824) -> -0.999999998137355) ((2779 . 5625) (/ 1073741822.0 -1073741823) -> -0.999999999068677) ((2780 . 5625) (/ 1073741822.0 -1073741822) -> -1.0) ((2781 . 5625) (/ 1073741823.0 -1073741826.0) -> -0.999999997206032) ((2782 . 5625) (/ 1073741823.0 -1073741825.0) -> -0.999999998137355) ((2783 . 5625) (/ 1073741823.0 -1073741824) -> -0.999999999068677) ((2784 . 5625) (/ 1073741823.0 -1073741823) -> -1.0) ((2785 . 5625) (/ 1073741823.0 -1073741822) -> -1.00000000093132) ((2786 . 5625) (/ 1073741824.0 -1073741826.0) -> -0.999999998137355) ((2787 . 5625) (/ 1073741824.0 -1073741825.0) -> -0.999999999068677) ((2788 . 5625) (/ 1073741824.0 -1073741824) -> -1.0) ((2789 . 5625) (/ 1073741824.0 -1073741823) -> -1.00000000093132) ((2790 . 5625) (/ 1073741824.0 -1073741822) -> -1.00000000186265) ((2791 . 5625) (/ 1073741825.0 -1073741826.0) -> -0.999999999068677) ((2792 . 5625) (/ 1073741825.0 -1073741825.0) -> -1.0) ((2793 . 5625) (/ 1073741825.0 -1073741824) -> -1.00000000093132) ((2794 . 5625) (/ 1073741825.0 -1073741823) -> -1.00000000186265) ((2795 . 5625) (/ 1073741825.0 -1073741822) -> -1.00000000279397) ((2796 . 5625) (/ 1073741826.0 -1073741826.0) -> -1.0) ((2797 . 5625) (/ 1073741826.0 -1073741825.0) -> -1.00000000093132) ((2798 . 5625) (/ 1073741826.0 -1073741824) -> -1.00000000186265) ((2799 . 5625) (/ 1073741826.0 -1073741823) -> -1.00000000279397) ((2800 . 5625) (/ 1073741826.0 -1073741822) -> -1.00000000372529) ((2801 . 5625) (/ 1073741822.0 1073741822.0) -> 1.0) ((2802 . 5625) (/ 1073741822.0 1073741823.0) -> 0.999999999068677) ((2803 . 5625) (/ 1073741822.0 1073741824.0) -> 0.999999998137355) ((2804 . 5625) (/ 1073741822.0 1073741825.0) -> 0.999999997206032) ((2805 . 5625) (/ 1073741822.0 1073741826.0) -> 0.99999999627471) ((2806 . 5625) (/ 1073741823.0 1073741822.0) -> 1.00000000093132) ((2807 . 5625) (/ 1073741823.0 1073741823.0) -> 1.0) ((2808 . 5625) (/ 1073741823.0 1073741824.0) -> 0.999999999068677) ((2809 . 5625) (/ 1073741823.0 1073741825.0) -> 0.999999998137355) ((2810 . 5625) (/ 1073741823.0 1073741826.0) -> 0.999999997206032) ((2811 . 5625) (/ 1073741824.0 1073741822.0) -> 1.00000000186265) ((2812 . 5625) (/ 1073741824.0 1073741823.0) -> 1.00000000093132) ((2813 . 5625) (/ 1073741824.0 1073741824.0) -> 1.0) ((2814 . 5625) (/ 1073741824.0 1073741825.0) -> 0.999999999068677) ((2815 . 5625) (/ 1073741824.0 1073741826.0) -> 0.999999998137355) ((2816 . 5625) (/ 1073741825.0 1073741822.0) -> 1.00000000279397) ((2817 . 5625) (/ 1073741825.0 1073741823.0) -> 1.00000000186265) ((2818 . 5625) (/ 1073741825.0 1073741824.0) -> 1.00000000093132) ((2819 . 5625) (/ 1073741825.0 1073741825.0) -> 1.0) ((2820 . 5625) (/ 1073741825.0 1073741826.0) -> 0.999999999068677) ((2821 . 5625) (/ 1073741826.0 1073741822.0) -> 1.00000000372529) ((2822 . 5625) (/ 1073741826.0 1073741823.0) -> 1.00000000279397) ((2823 . 5625) (/ 1073741826.0 1073741824.0) -> 1.00000000186265) ((2824 . 5625) (/ 1073741826.0 1073741825.0) -> 1.00000000093132) ((2825 . 5625) (/ 1073741826.0 1073741826.0) -> 1.0) ((2826 . 5625) (/ 1073741822.0 -1073741827.0) -> -0.999999995343387) ((2827 . 5625) (/ 1073741822.0 -1073741826.0) -> -0.99999999627471) ((2828 . 5625) (/ 1073741822.0 -1073741825.0) -> -0.999999997206032) ((2829 . 5625) (/ 1073741822.0 -1073741824.0) -> -0.999999998137355) ((2830 . 5625) (/ 1073741822.0 -1073741823.0) -> -0.999999999068677) ((2831 . 5625) (/ 1073741823.0 -1073741827.0) -> -0.99999999627471) ((2832 . 5625) (/ 1073741823.0 -1073741826.0) -> -0.999999997206032) ((2833 . 5625) (/ 1073741823.0 -1073741825.0) -> -0.999999998137355) ((2834 . 5625) (/ 1073741823.0 -1073741824.0) -> -0.999999999068677) ((2835 . 5625) (/ 1073741823.0 -1073741823.0) -> -1.0) ((2836 . 5625) (/ 1073741824.0 -1073741827.0) -> -0.999999997206032) ((2837 . 5625) (/ 1073741824.0 -1073741826.0) -> -0.999999998137355) ((2838 . 5625) (/ 1073741824.0 -1073741825.0) -> -0.999999999068677) ((2839 . 5625) (/ 1073741824.0 -1073741824.0) -> -1.0) ((2840 . 5625) (/ 1073741824.0 -1073741823.0) -> -1.00000000093132) ((2841 . 5625) (/ 1073741825.0 -1073741827.0) -> -0.999999998137355) ((2842 . 5625) (/ 1073741825.0 -1073741826.0) -> -0.999999999068677) ((2843 . 5625) (/ 1073741825.0 -1073741825.0) -> -1.0) ((2844 . 5625) (/ 1073741825.0 -1073741824.0) -> -1.00000000093132) ((2845 . 5625) (/ 1073741825.0 -1073741823.0) -> -1.00000000186265) ((2846 . 5625) (/ 1073741826.0 -1073741827.0) -> -0.999999999068677) ((2847 . 5625) (/ 1073741826.0 -1073741826.0) -> -1.0) ((2848 . 5625) (/ 1073741826.0 -1073741825.0) -> -1.00000000093132) ((2849 . 5625) (/ 1073741826.0 -1073741824.0) -> -1.00000000186265) ((2850 . 5625) (/ 1073741826.0 -1073741823.0) -> -1.00000000279397) ((2851 . 5625) (/ 1073741822.0 1103515243.0) -> 0.973019474639011) ((2852 . 5625) (/ 1073741822.0 1103515244.0) -> 0.973019473757265) ((2853 . 5625) (/ 1073741822.0 1103515245.0) -> 0.97301947287552) ((2854 . 5625) (/ 1073741822.0 1103515246.0) -> 0.973019471993774) ((2855 . 5625) (/ 1073741822.0 1103515247.0) -> 0.973019471112029) ((2856 . 5625) (/ 1073741823.0 1103515243.0) -> 0.973019475545206) ((2857 . 5625) (/ 1073741823.0 1103515244.0) -> 0.97301947466346) ((2858 . 5625) (/ 1073741823.0 1103515245.0) -> 0.973019473781715) ((2859 . 5625) (/ 1073741823.0 1103515246.0) -> 0.973019472899969) ((2860 . 5625) (/ 1073741823.0 1103515247.0) -> 0.973019472018224) ((2861 . 5625) (/ 1073741824.0 1103515243.0) -> 0.973019476451401) ((2862 . 5625) (/ 1073741824.0 1103515244.0) -> 0.973019475569655) ((2863 . 5625) (/ 1073741824.0 1103515245.0) -> 0.97301947468791) ((2864 . 5625) (/ 1073741824.0 1103515246.0) -> 0.973019473806164) ((2865 . 5625) (/ 1073741824.0 1103515247.0) -> 0.973019472924419) ((2866 . 5625) (/ 1073741825.0 1103515243.0) -> 0.973019477357596) ((2867 . 5625) (/ 1073741825.0 1103515244.0) -> 0.97301947647585) ((2868 . 5625) (/ 1073741825.0 1103515245.0) -> 0.973019475594105) ((2869 . 5625) (/ 1073741825.0 1103515246.0) -> 0.973019474712359) ((2870 . 5625) (/ 1073741825.0 1103515247.0) -> 0.973019473830614) ((2871 . 5625) (/ 1073741826.0 1103515243.0) -> 0.973019478263791) ((2872 . 5625) (/ 1073741826.0 1103515244.0) -> 0.973019477382045) ((2873 . 5625) (/ 1073741826.0 1103515245.0) -> 0.9730194765003) ((2874 . 5625) (/ 1073741826.0 1103515246.0) -> 0.973019475618554) ((2875 . 5625) (/ 1073741826.0 1103515247.0) -> 0.973019474736809) ((2876 . 5625) (/ 1073741822.0 631629063) -> 1.6999563270571) ((2877 . 5625) (/ 1073741822.0 631629064) -> 1.69995632436572) ((2878 . 5625) (/ 1073741822.0 631629065) -> 1.69995632167434) ((2879 . 5625) (/ 1073741822.0 631629066) -> 1.69995631898295) ((2880 . 5625) (/ 1073741822.0 631629067) -> 1.69995631629157) ((2881 . 5625) (/ 1073741823.0 631629063) -> 1.69995632864031) ((2882 . 5625) (/ 1073741823.0 631629064) -> 1.69995632594893) ((2883 . 5625) (/ 1073741823.0 631629065) -> 1.69995632325754) ((2884 . 5625) (/ 1073741823.0 631629066) -> 1.69995632056616) ((2885 . 5625) (/ 1073741823.0 631629067) -> 1.69995631787478) ((2886 . 5625) (/ 1073741824.0 631629063) -> 1.69995633022352) ((2887 . 5625) (/ 1073741824.0 631629064) -> 1.69995632753214) ((2888 . 5625) (/ 1073741824.0 631629065) -> 1.69995632484075) ((2889 . 5625) (/ 1073741824.0 631629066) -> 1.69995632214937) ((2890 . 5625) (/ 1073741824.0 631629067) -> 1.69995631945798) ((2891 . 5625) (/ 1073741825.0 631629063) -> 1.69995633180673) ((2892 . 5625) (/ 1073741825.0 631629064) -> 1.69995632911534) ((2893 . 5625) (/ 1073741825.0 631629065) -> 1.69995632642396) ((2894 . 5625) (/ 1073741825.0 631629066) -> 1.69995632373257) ((2895 . 5625) (/ 1073741825.0 631629067) -> 1.69995632104119) ((2896 . 5625) (/ 1073741826.0 631629063) -> 1.69995633338993) ((2897 . 5625) (/ 1073741826.0 631629064) -> 1.69995633069855) ((2898 . 5625) (/ 1073741826.0 631629065) -> 1.69995632800717) ((2899 . 5625) (/ 1073741826.0 631629066) -> 1.69995632531578) ((2900 . 5625) (/ 1073741826.0 631629067) -> 1.6999563226244) ((2901 . 5625) (/ 1073741822.0 9.00719925474099e+15) -> 1.19209289328737e-07) ((2902 . 5625) (/ 1073741822.0 9.00719925474099e+15) -> 1.19209289328737e-07) ((2903 . 5625) (/ 1073741822.0 9.00719925474099e+15) -> 1.19209289328737e-07) ((2904 . 5625) (/ 1073741822.0 9.00719925474099e+15) -> 1.19209289328737e-07) ((2905 . 5625) (/ 1073741822.0 9.00719925474099e+15) -> 1.19209289328737e-07) ((2906 . 5625) (/ 1073741823.0 9.00719925474099e+15) -> 1.19209289439759e-07) ((2907 . 5625) (/ 1073741823.0 9.00719925474099e+15) -> 1.19209289439759e-07) ((2908 . 5625) (/ 1073741823.0 9.00719925474099e+15) -> 1.19209289439759e-07) ((2909 . 5625) (/ 1073741823.0 9.00719925474099e+15) -> 1.19209289439759e-07) ((2910 . 5625) (/ 1073741823.0 9.00719925474099e+15) -> 1.19209289439759e-07) ((2911 . 5625) (/ 1073741824.0 9.00719925474099e+15) -> 1.19209289550781e-07) ((2912 . 5625) (/ 1073741824.0 9.00719925474099e+15) -> 1.19209289550781e-07) ((2913 . 5625) (/ 1073741824.0 9.00719925474099e+15) -> 1.19209289550781e-07) ((2914 . 5625) (/ 1073741824.0 9.00719925474099e+15) -> 1.19209289550781e-07) ((2915 . 5625) (/ 1073741824.0 9.00719925474099e+15) -> 1.19209289550781e-07) ((2916 . 5625) (/ 1073741825.0 9.00719925474099e+15) -> 1.19209289661804e-07) ((2917 . 5625) (/ 1073741825.0 9.00719925474099e+15) -> 1.19209289661804e-07) ((2918 . 5625) (/ 1073741825.0 9.00719925474099e+15) -> 1.19209289661804e-07) ((2919 . 5625) (/ 1073741825.0 9.00719925474099e+15) -> 1.19209289661804e-07) ((2920 . 5625) (/ 1073741825.0 9.00719925474099e+15) -> 1.19209289661804e-07) ((2921 . 5625) (/ 1073741826.0 9.00719925474099e+15) -> 1.19209289772826e-07) ((2922 . 5625) (/ 1073741826.0 9.00719925474099e+15) -> 1.19209289772826e-07) ((2923 . 5625) (/ 1073741826.0 9.00719925474099e+15) -> 1.19209289772826e-07) ((2924 . 5625) (/ 1073741826.0 9.00719925474099e+15) -> 1.19209289772826e-07) ((2925 . 5625) (/ 1073741826.0 9.00719925474099e+15) -> 1.19209289772826e-07) ((2926 . 5625) (/ 1073741822.0 -9.00719925474099e+15) -> -1.19209289328737e-07) ((2927 . 5625) (/ 1073741822.0 -9.00719925474099e+15) -> -1.19209289328737e-07) ((2928 . 5625) (/ 1073741822.0 -9.00719925474099e+15) -> -1.19209289328737e-07) ((2929 . 5625) (/ 1073741822.0 -9.00719925474099e+15) -> -1.19209289328737e-07) ((2930 . 5625) (/ 1073741822.0 -9.00719925474099e+15) -> -1.19209289328737e-07) ((2931 . 5625) (/ 1073741823.0 -9.00719925474099e+15) -> -1.19209289439759e-07) ((2932 . 5625) (/ 1073741823.0 -9.00719925474099e+15) -> -1.19209289439759e-07) ((2933 . 5625) (/ 1073741823.0 -9.00719925474099e+15) -> -1.19209289439759e-07) ((2934 . 5625) (/ 1073741823.0 -9.00719925474099e+15) -> -1.19209289439759e-07) ((2935 . 5625) (/ 1073741823.0 -9.00719925474099e+15) -> -1.19209289439759e-07) ((2936 . 5625) (/ 1073741824.0 -9.00719925474099e+15) -> -1.19209289550781e-07) ((2937 . 5625) (/ 1073741824.0 -9.00719925474099e+15) -> -1.19209289550781e-07) ((2938 . 5625) (/ 1073741824.0 -9.00719925474099e+15) -> -1.19209289550781e-07) ((2939 . 5625) (/ 1073741824.0 -9.00719925474099e+15) -> -1.19209289550781e-07) ((2940 . 5625) (/ 1073741824.0 -9.00719925474099e+15) -> -1.19209289550781e-07) ((2941 . 5625) (/ 1073741825.0 -9.00719925474099e+15) -> -1.19209289661804e-07) ((2942 . 5625) (/ 1073741825.0 -9.00719925474099e+15) -> -1.19209289661804e-07) ((2943 . 5625) (/ 1073741825.0 -9.00719925474099e+15) -> -1.19209289661804e-07) ((2944 . 5625) (/ 1073741825.0 -9.00719925474099e+15) -> -1.19209289661804e-07) ((2945 . 5625) (/ 1073741825.0 -9.00719925474099e+15) -> -1.19209289661804e-07) ((2946 . 5625) (/ 1073741826.0 -9.00719925474099e+15) -> -1.19209289772826e-07) ((2947 . 5625) (/ 1073741826.0 -9.00719925474099e+15) -> -1.19209289772826e-07) ((2948 . 5625) (/ 1073741826.0 -9.00719925474099e+15) -> -1.19209289772826e-07) ((2949 . 5625) (/ 1073741826.0 -9.00719925474099e+15) -> -1.19209289772826e-07) ((2950 . 5625) (/ 1073741826.0 -9.00719925474099e+15) -> -1.19209289772826e-07) ((2951 . 5625) (/ 1073741822.0 12343) -> 86991.9648383699) ((2952 . 5625) (/ 1073741822.0 12344) -> 86984.9175307842) ((2953 . 5625) (/ 1073741822.0 12345) -> 86977.8713649251) ((2954 . 5625) (/ 1073741822.0 12346) -> 86970.8263405152) ((2955 . 5625) (/ 1073741822.0 12347) -> 86963.7824572771) ((2956 . 5625) (/ 1073741823.0 12343) -> 86991.9649193875) ((2957 . 5625) (/ 1073741823.0 12344) -> 86984.9176117952) ((2958 . 5625) (/ 1073741823.0 12345) -> 86977.8714459295) ((2959 . 5625) (/ 1073741823.0 12346) -> 86970.826421513) ((2960 . 5625) (/ 1073741823.0 12347) -> 86963.7825382684) ((2961 . 5625) (/ 1073741824.0 12343) -> 86991.9650004051) ((2962 . 5625) (/ 1073741824.0 12344) -> 86984.9176928062) ((2963 . 5625) (/ 1073741824.0 12345) -> 86977.871526934) ((2964 . 5625) (/ 1073741824.0 12346) -> 86970.8265025109) ((2965 . 5625) (/ 1073741824.0 12347) -> 86963.7826192597) ((2966 . 5625) (/ 1073741825.0 12343) -> 86991.9650814227) ((2967 . 5625) (/ 1073741825.0 12344) -> 86984.9177738172) ((2968 . 5625) (/ 1073741825.0 12345) -> 86977.8716079384) ((2969 . 5625) (/ 1073741825.0 12346) -> 86970.8265835088) ((2970 . 5625) (/ 1073741825.0 12347) -> 86963.7827002511) ((2971 . 5625) (/ 1073741826.0 12343) -> 86991.9651624402) ((2972 . 5625) (/ 1073741826.0 12344) -> 86984.9178548283) ((2973 . 5625) (/ 1073741826.0 12345) -> 86977.8716889429) ((2974 . 5625) (/ 1073741826.0 12346) -> 86970.8266645067) ((2975 . 5625) (/ 1073741826.0 12347) -> 86963.7827812424) ((2976 . 5625) (/ 1073741822.0 4294967294.0) -> 0.249999999650754) ((2977 . 5625) (/ 1073741822.0 4294967295.0) -> 0.249999999592546) ((2978 . 5625) (/ 1073741822.0 4294967296.0) -> 0.249999999534339) ((2979 . 5625) (/ 1073741822.0 4294967297.0) -> 0.249999999476131) ((2980 . 5625) (/ 1073741822.0 4294967298.0) -> 0.249999999417923) ((2981 . 5625) (/ 1073741823.0 4294967294.0) -> 0.249999999883585) ((2982 . 5625) (/ 1073741823.0 4294967295.0) -> 0.249999999825377) ((2983 . 5625) (/ 1073741823.0 4294967296.0) -> 0.249999999767169) ((2984 . 5625) (/ 1073741823.0 4294967297.0) -> 0.249999999708962) ((2985 . 5625) (/ 1073741823.0 4294967298.0) -> 0.249999999650754) ((2986 . 5625) (/ 1073741824.0 4294967294.0) -> 0.250000000116415) ((2987 . 5625) (/ 1073741824.0 4294967295.0) -> 0.250000000058208) ((2988 . 5625) (/ 1073741824.0 4294967296.0) -> 0.25) ((2989 . 5625) (/ 1073741824.0 4294967297.0) -> 0.249999999941792) ((2990 . 5625) (/ 1073741824.0 4294967298.0) -> 0.249999999883585) ((2991 . 5625) (/ 1073741825.0 4294967294.0) -> 0.250000000349246) ((2992 . 5625) (/ 1073741825.0 4294967295.0) -> 0.250000000291038) ((2993 . 5625) (/ 1073741825.0 4294967296.0) -> 0.250000000232831) ((2994 . 5625) (/ 1073741825.0 4294967297.0) -> 0.250000000174623) ((2995 . 5625) (/ 1073741825.0 4294967298.0) -> 0.250000000116415) ((2996 . 5625) (/ 1073741826.0 4294967294.0) -> 0.250000000582077) ((2997 . 5625) (/ 1073741826.0 4294967295.0) -> 0.250000000523869) ((2998 . 5625) (/ 1073741826.0 4294967296.0) -> 0.250000000465661) ((2999 . 5625) (/ 1073741826.0 4294967297.0) -> 0.250000000407454) ((3000 . 5625) (/ 1073741826.0 4294967298.0) -> 0.250000000349246) ((3001 . 5625) (/ -1073741827.0 -2) -> 536870913.5) ((3002 . 5625) (/ -1073741827.0 -1) -> 1073741827.0) ((3003 . 5625) (/ -1073741827.0 0) -> "division by zero") ((3004 . 5625) (/ -1073741827.0 1) -> -1073741827.0) ((3005 . 5625) (/ -1073741827.0 2) -> -536870913.5) ((3006 . 5625) (/ -1073741826.0 -2) -> 536870913.0) ((3007 . 5625) (/ -1073741826.0 -1) -> 1073741826.0) ((3008 . 5625) (/ -1073741826.0 0) -> "division by zero") ((3009 . 5625) (/ -1073741826.0 1) -> -1073741826.0) ((3010 . 5625) (/ -1073741826.0 2) -> -536870913.0) ((3011 . 5625) (/ -1073741825.0 -2) -> 536870912.5) ((3012 . 5625) (/ -1073741825.0 -1) -> 1073741825.0) ((3013 . 5625) (/ -1073741825.0 0) -> "division by zero") ((3014 . 5625) (/ -1073741825.0 1) -> -1073741825.0) ((3015 . 5625) (/ -1073741825.0 2) -> -536870912.5) ((3016 . 5625) (/ -1073741824.0 -2) -> 536870912.0) ((3017 . 5625) (/ -1073741824.0 -1) -> 1073741824.0) ((3018 . 5625) (/ -1073741824.0 0) -> "division by zero") ((3019 . 5625) (/ -1073741824.0 1) -> -1073741824.0) ((3020 . 5625) (/ -1073741824.0 2) -> -536870912.0) ((3021 . 5625) (/ -1073741823.0 -2) -> 536870911.5) ((3022 . 5625) (/ -1073741823.0 -1) -> 1073741823.0) ((3023 . 5625) (/ -1073741823.0 0) -> "division by zero") ((3024 . 5625) (/ -1073741823.0 1) -> -1073741823.0) ((3025 . 5625) (/ -1073741823.0 2) -> -536870911.5) ((3026 . 5625) (/ -1073741827.0 -1) -> 1073741827.0) ((3027 . 5625) (/ -1073741827.0 0) -> "division by zero") ((3028 . 5625) (/ -1073741827.0 1) -> -1073741827.0) ((3029 . 5625) (/ -1073741827.0 2) -> -536870913.5) ((3030 . 5625) (/ -1073741827.0 3) -> -357913942.333333) ((3031 . 5625) (/ -1073741826.0 -1) -> 1073741826.0) ((3032 . 5625) (/ -1073741826.0 0) -> "division by zero") ((3033 . 5625) (/ -1073741826.0 1) -> -1073741826.0) ((3034 . 5625) (/ -1073741826.0 2) -> -536870913.0) ((3035 . 5625) (/ -1073741826.0 3) -> -357913942.0) ((3036 . 5625) (/ -1073741825.0 -1) -> 1073741825.0) ((3037 . 5625) (/ -1073741825.0 0) -> "division by zero") ((3038 . 5625) (/ -1073741825.0 1) -> -1073741825.0) ((3039 . 5625) (/ -1073741825.0 2) -> -536870912.5) ((3040 . 5625) (/ -1073741825.0 3) -> -357913941.666667) ((3041 . 5625) (/ -1073741824.0 -1) -> 1073741824.0) ((3042 . 5625) (/ -1073741824.0 0) -> "division by zero") ((3043 . 5625) (/ -1073741824.0 1) -> -1073741824.0) ((3044 . 5625) (/ -1073741824.0 2) -> -536870912.0) ((3045 . 5625) (/ -1073741824.0 3) -> -357913941.333333) ((3046 . 5625) (/ -1073741823.0 -1) -> 1073741823.0) ((3047 . 5625) (/ -1073741823.0 0) -> "division by zero") ((3048 . 5625) (/ -1073741823.0 1) -> -1073741823.0) ((3049 . 5625) (/ -1073741823.0 2) -> -536870911.5) ((3050 . 5625) (/ -1073741823.0 3) -> -357913941.0) ((3051 . 5625) (/ -1073741827.0 -3) -> 357913942.333333) ((3052 . 5625) (/ -1073741827.0 -2) -> 536870913.5) ((3053 . 5625) (/ -1073741827.0 -1) -> 1073741827.0) ((3054 . 5625) (/ -1073741827.0 0) -> "division by zero") ((3055 . 5625) (/ -1073741827.0 1) -> -1073741827.0) ((3056 . 5625) (/ -1073741826.0 -3) -> 357913942.0) ((3057 . 5625) (/ -1073741826.0 -2) -> 536870913.0) ((3058 . 5625) (/ -1073741826.0 -1) -> 1073741826.0) ((3059 . 5625) (/ -1073741826.0 0) -> "division by zero") ((3060 . 5625) (/ -1073741826.0 1) -> -1073741826.0) ((3061 . 5625) (/ -1073741825.0 -3) -> 357913941.666667) ((3062 . 5625) (/ -1073741825.0 -2) -> 536870912.5) ((3063 . 5625) (/ -1073741825.0 -1) -> 1073741825.0) ((3064 . 5625) (/ -1073741825.0 0) -> "division by zero") ((3065 . 5625) (/ -1073741825.0 1) -> -1073741825.0) ((3066 . 5625) (/ -1073741824.0 -3) -> 357913941.333333) ((3067 . 5625) (/ -1073741824.0 -2) -> 536870912.0) ((3068 . 5625) (/ -1073741824.0 -1) -> 1073741824.0) ((3069 . 5625) (/ -1073741824.0 0) -> "division by zero") ((3070 . 5625) (/ -1073741824.0 1) -> -1073741824.0) ((3071 . 5625) (/ -1073741823.0 -3) -> 357913941.0) ((3072 . 5625) (/ -1073741823.0 -2) -> 536870911.5) ((3073 . 5625) (/ -1073741823.0 -1) -> 1073741823.0) ((3074 . 5625) (/ -1073741823.0 0) -> "division by zero") ((3075 . 5625) (/ -1073741823.0 1) -> -1073741823.0) ((3076 . 5625) (/ -1073741827.0 0) -> "division by zero") ((3077 . 5625) (/ -1073741827.0 1) -> -1073741827.0) ((3078 . 5625) (/ -1073741827.0 2) -> -536870913.5) ((3079 . 5625) (/ -1073741827.0 3) -> -357913942.333333) ((3080 . 5625) (/ -1073741827.0 4) -> -268435456.75) ((3081 . 5625) (/ -1073741826.0 0) -> "division by zero") ((3082 . 5625) (/ -1073741826.0 1) -> -1073741826.0) ((3083 . 5625) (/ -1073741826.0 2) -> -536870913.0) ((3084 . 5625) (/ -1073741826.0 3) -> -357913942.0) ((3085 . 5625) (/ -1073741826.0 4) -> -268435456.5) ((3086 . 5625) (/ -1073741825.0 0) -> "division by zero") ((3087 . 5625) (/ -1073741825.0 1) -> -1073741825.0) ((3088 . 5625) (/ -1073741825.0 2) -> -536870912.5) ((3089 . 5625) (/ -1073741825.0 3) -> -357913941.666667) ((3090 . 5625) (/ -1073741825.0 4) -> -268435456.25) ((3091 . 5625) (/ -1073741824.0 0) -> "division by zero") ((3092 . 5625) (/ -1073741824.0 1) -> -1073741824.0) ((3093 . 5625) (/ -1073741824.0 2) -> -536870912.0) ((3094 . 5625) (/ -1073741824.0 3) -> -357913941.333333) ((3095 . 5625) (/ -1073741824.0 4) -> -268435456.0) ((3096 . 5625) (/ -1073741823.0 0) -> "division by zero") ((3097 . 5625) (/ -1073741823.0 1) -> -1073741823.0) ((3098 . 5625) (/ -1073741823.0 2) -> -536870911.5) ((3099 . 5625) (/ -1073741823.0 3) -> -357913941.0) ((3100 . 5625) (/ -1073741823.0 4) -> -268435455.75) ((3101 . 5625) (/ -1073741827.0 -4) -> 268435456.75) ((3102 . 5625) (/ -1073741827.0 -3) -> 357913942.333333) ((3103 . 5625) (/ -1073741827.0 -2) -> 536870913.5) ((3104 . 5625) (/ -1073741827.0 -1) -> 1073741827.0) ((3105 . 5625) (/ -1073741827.0 0) -> "division by zero") ((3106 . 5625) (/ -1073741826.0 -4) -> 268435456.5) ((3107 . 5625) (/ -1073741826.0 -3) -> 357913942.0) ((3108 . 5625) (/ -1073741826.0 -2) -> 536870913.0) ((3109 . 5625) (/ -1073741826.0 -1) -> 1073741826.0) ((3110 . 5625) (/ -1073741826.0 0) -> "division by zero") ((3111 . 5625) (/ -1073741825.0 -4) -> 268435456.25) ((3112 . 5625) (/ -1073741825.0 -3) -> 357913941.666667) ((3113 . 5625) (/ -1073741825.0 -2) -> 536870912.5) ((3114 . 5625) (/ -1073741825.0 -1) -> 1073741825.0) ((3115 . 5625) (/ -1073741825.0 0) -> "division by zero") ((3116 . 5625) (/ -1073741824.0 -4) -> 268435456.0) ((3117 . 5625) (/ -1073741824.0 -3) -> 357913941.333333) ((3118 . 5625) (/ -1073741824.0 -2) -> 536870912.0) ((3119 . 5625) (/ -1073741824.0 -1) -> 1073741824.0) ((3120 . 5625) (/ -1073741824.0 0) -> "division by zero") ((3121 . 5625) (/ -1073741823.0 -4) -> 268435455.75) ((3122 . 5625) (/ -1073741823.0 -3) -> 357913941.0) ((3123 . 5625) (/ -1073741823.0 -2) -> 536870911.5) ((3124 . 5625) (/ -1073741823.0 -1) -> 1073741823.0) ((3125 . 5625) (/ -1073741823.0 0) -> "division by zero") ((3126 . 5625) (/ -1073741827.0 1073741821) -> -1.00000000558794) ((3127 . 5625) (/ -1073741827.0 1073741822) -> -1.00000000465661) ((3128 . 5625) (/ -1073741827.0 1073741823) -> -1.00000000372529) ((3129 . 5625) (/ -1073741827.0 1073741824.0) -> -1.00000000279397) ((3130 . 5625) (/ -1073741827.0 1073741825.0) -> -1.00000000186265) ((3131 . 5625) (/ -1073741826.0 1073741821) -> -1.00000000465661) ((3132 . 5625) (/ -1073741826.0 1073741822) -> -1.00000000372529) ((3133 . 5625) (/ -1073741826.0 1073741823) -> -1.00000000279397) ((3134 . 5625) (/ -1073741826.0 1073741824.0) -> -1.00000000186265) ((3135 . 5625) (/ -1073741826.0 1073741825.0) -> -1.00000000093132) ((3136 . 5625) (/ -1073741825.0 1073741821) -> -1.00000000372529) ((3137 . 5625) (/ -1073741825.0 1073741822) -> -1.00000000279397) ((3138 . 5625) (/ -1073741825.0 1073741823) -> -1.00000000186265) ((3139 . 5625) (/ -1073741825.0 1073741824.0) -> -1.00000000093132) ((3140 . 5625) (/ -1073741825.0 1073741825.0) -> -1.0) ((3141 . 5625) (/ -1073741824.0 1073741821) -> -1.00000000279397) ((3142 . 5625) (/ -1073741824.0 1073741822) -> -1.00000000186265) ((3143 . 5625) (/ -1073741824.0 1073741823) -> -1.00000000093132) ((3144 . 5625) (/ -1073741824.0 1073741824.0) -> -1.0) ((3145 . 5625) (/ -1073741824.0 1073741825.0) -> -0.999999999068677) ((3146 . 5625) (/ -1073741823.0 1073741821) -> -1.00000000186265) ((3147 . 5625) (/ -1073741823.0 1073741822) -> -1.00000000093132) ((3148 . 5625) (/ -1073741823.0 1073741823) -> -1.0) ((3149 . 5625) (/ -1073741823.0 1073741824.0) -> -0.999999999068677) ((3150 . 5625) (/ -1073741823.0 1073741825.0) -> -0.999999998137355) ((3151 . 5625) (/ -1073741827.0 -1073741826.0) -> 1.00000000093132) ((3152 . 5625) (/ -1073741827.0 -1073741825.0) -> 1.00000000186265) ((3153 . 5625) (/ -1073741827.0 -1073741824) -> 1.00000000279397) ((3154 . 5625) (/ -1073741827.0 -1073741823) -> 1.00000000372529) ((3155 . 5625) (/ -1073741827.0 -1073741822) -> 1.00000000465661) ((3156 . 5625) (/ -1073741826.0 -1073741826.0) -> 1.0) ((3157 . 5625) (/ -1073741826.0 -1073741825.0) -> 1.00000000093132) ((3158 . 5625) (/ -1073741826.0 -1073741824) -> 1.00000000186265) ((3159 . 5625) (/ -1073741826.0 -1073741823) -> 1.00000000279397) ((3160 . 5625) (/ -1073741826.0 -1073741822) -> 1.00000000372529) ((3161 . 5625) (/ -1073741825.0 -1073741826.0) -> 0.999999999068677) ((3162 . 5625) (/ -1073741825.0 -1073741825.0) -> 1.0) ((3163 . 5625) (/ -1073741825.0 -1073741824) -> 1.00000000093132) ((3164 . 5625) (/ -1073741825.0 -1073741823) -> 1.00000000186265) ((3165 . 5625) (/ -1073741825.0 -1073741822) -> 1.00000000279397) ((3166 . 5625) (/ -1073741824.0 -1073741826.0) -> 0.999999998137355) ((3167 . 5625) (/ -1073741824.0 -1073741825.0) -> 0.999999999068677) ((3168 . 5625) (/ -1073741824.0 -1073741824) -> 1.0) ((3169 . 5625) (/ -1073741824.0 -1073741823) -> 1.00000000093132) ((3170 . 5625) (/ -1073741824.0 -1073741822) -> 1.00000000186265) ((3171 . 5625) (/ -1073741823.0 -1073741826.0) -> 0.999999997206032) ((3172 . 5625) (/ -1073741823.0 -1073741825.0) -> 0.999999998137355) ((3173 . 5625) (/ -1073741823.0 -1073741824) -> 0.999999999068677) ((3174 . 5625) (/ -1073741823.0 -1073741823) -> 1.0) ((3175 . 5625) (/ -1073741823.0 -1073741822) -> 1.00000000093132) ((3176 . 5625) (/ -1073741827.0 1073741822.0) -> -1.00000000465661) ((3177 . 5625) (/ -1073741827.0 1073741823.0) -> -1.00000000372529) ((3178 . 5625) (/ -1073741827.0 1073741824.0) -> -1.00000000279397) ((3179 . 5625) (/ -1073741827.0 1073741825.0) -> -1.00000000186265) ((3180 . 5625) (/ -1073741827.0 1073741826.0) -> -1.00000000093132) ((3181 . 5625) (/ -1073741826.0 1073741822.0) -> -1.00000000372529) ((3182 . 5625) (/ -1073741826.0 1073741823.0) -> -1.00000000279397) ((3183 . 5625) (/ -1073741826.0 1073741824.0) -> -1.00000000186265) ((3184 . 5625) (/ -1073741826.0 1073741825.0) -> -1.00000000093132) ((3185 . 5625) (/ -1073741826.0 1073741826.0) -> -1.0) ((3186 . 5625) (/ -1073741825.0 1073741822.0) -> -1.00000000279397) ((3187 . 5625) (/ -1073741825.0 1073741823.0) -> -1.00000000186265) ((3188 . 5625) (/ -1073741825.0 1073741824.0) -> -1.00000000093132) ((3189 . 5625) (/ -1073741825.0 1073741825.0) -> -1.0) ((3190 . 5625) (/ -1073741825.0 1073741826.0) -> -0.999999999068677) ((3191 . 5625) (/ -1073741824.0 1073741822.0) -> -1.00000000186265) ((3192 . 5625) (/ -1073741824.0 1073741823.0) -> -1.00000000093132) ((3193 . 5625) (/ -1073741824.0 1073741824.0) -> -1.0) ((3194 . 5625) (/ -1073741824.0 1073741825.0) -> -0.999999999068677) ((3195 . 5625) (/ -1073741824.0 1073741826.0) -> -0.999999998137355) ((3196 . 5625) (/ -1073741823.0 1073741822.0) -> -1.00000000093132) ((3197 . 5625) (/ -1073741823.0 1073741823.0) -> -1.0) ((3198 . 5625) (/ -1073741823.0 1073741824.0) -> -0.999999999068677) ((3199 . 5625) (/ -1073741823.0 1073741825.0) -> -0.999999998137355) ((3200 . 5625) (/ -1073741823.0 1073741826.0) -> -0.999999997206032) ((3201 . 5625) (/ -1073741827.0 -1073741827.0) -> 1.0) ((3202 . 5625) (/ -1073741827.0 -1073741826.0) -> 1.00000000093132) ((3203 . 5625) (/ -1073741827.0 -1073741825.0) -> 1.00000000186265) ((3204 . 5625) (/ -1073741827.0 -1073741824.0) -> 1.00000000279397) ((3205 . 5625) (/ -1073741827.0 -1073741823.0) -> 1.00000000372529) ((3206 . 5625) (/ -1073741826.0 -1073741827.0) -> 0.999999999068677) ((3207 . 5625) (/ -1073741826.0 -1073741826.0) -> 1.0) ((3208 . 5625) (/ -1073741826.0 -1073741825.0) -> 1.00000000093132) ((3209 . 5625) (/ -1073741826.0 -1073741824.0) -> 1.00000000186265) ((3210 . 5625) (/ -1073741826.0 -1073741823.0) -> 1.00000000279397) ((3211 . 5625) (/ -1073741825.0 -1073741827.0) -> 0.999999998137355) ((3212 . 5625) (/ -1073741825.0 -1073741826.0) -> 0.999999999068677) ((3213 . 5625) (/ -1073741825.0 -1073741825.0) -> 1.0) ((3214 . 5625) (/ -1073741825.0 -1073741824.0) -> 1.00000000093132) ((3215 . 5625) (/ -1073741825.0 -1073741823.0) -> 1.00000000186265) ((3216 . 5625) (/ -1073741824.0 -1073741827.0) -> 0.999999997206032) ((3217 . 5625) (/ -1073741824.0 -1073741826.0) -> 0.999999998137355) ((3218 . 5625) (/ -1073741824.0 -1073741825.0) -> 0.999999999068677) ((3219 . 5625) (/ -1073741824.0 -1073741824.0) -> 1.0) ((3220 . 5625) (/ -1073741824.0 -1073741823.0) -> 1.00000000093132) ((3221 . 5625) (/ -1073741823.0 -1073741827.0) -> 0.99999999627471) ((3222 . 5625) (/ -1073741823.0 -1073741826.0) -> 0.999999997206032) ((3223 . 5625) (/ -1073741823.0 -1073741825.0) -> 0.999999998137355) ((3224 . 5625) (/ -1073741823.0 -1073741824.0) -> 0.999999999068677) ((3225 . 5625) (/ -1073741823.0 -1073741823.0) -> 1.0) ((3226 . 5625) (/ -1073741827.0 1103515243.0) -> -0.973019479169986) ((3227 . 5625) (/ -1073741827.0 1103515244.0) -> -0.97301947828824) ((3228 . 5625) (/ -1073741827.0 1103515245.0) -> -0.973019477406495) ((3229 . 5625) (/ -1073741827.0 1103515246.0) -> -0.973019476524749) ((3230 . 5625) (/ -1073741827.0 1103515247.0) -> -0.973019475643004) ((3231 . 5625) (/ -1073741826.0 1103515243.0) -> -0.973019478263791) ((3232 . 5625) (/ -1073741826.0 1103515244.0) -> -0.973019477382045) ((3233 . 5625) (/ -1073741826.0 1103515245.0) -> -0.9730194765003) ((3234 . 5625) (/ -1073741826.0 1103515246.0) -> -0.973019475618554) ((3235 . 5625) (/ -1073741826.0 1103515247.0) -> -0.973019474736809) ((3236 . 5625) (/ -1073741825.0 1103515243.0) -> -0.973019477357596) ((3237 . 5625) (/ -1073741825.0 1103515244.0) -> -0.97301947647585) ((3238 . 5625) (/ -1073741825.0 1103515245.0) -> -0.973019475594105) ((3239 . 5625) (/ -1073741825.0 1103515246.0) -> -0.973019474712359) ((3240 . 5625) (/ -1073741825.0 1103515247.0) -> -0.973019473830614) ((3241 . 5625) (/ -1073741824.0 1103515243.0) -> -0.973019476451401) ((3242 . 5625) (/ -1073741824.0 1103515244.0) -> -0.973019475569655) ((3243 . 5625) (/ -1073741824.0 1103515245.0) -> -0.97301947468791) ((3244 . 5625) (/ -1073741824.0 1103515246.0) -> -0.973019473806164) ((3245 . 5625) (/ -1073741824.0 1103515247.0) -> -0.973019472924419) ((3246 . 5625) (/ -1073741823.0 1103515243.0) -> -0.973019475545206) ((3247 . 5625) (/ -1073741823.0 1103515244.0) -> -0.97301947466346) ((3248 . 5625) (/ -1073741823.0 1103515245.0) -> -0.973019473781715) ((3249 . 5625) (/ -1073741823.0 1103515246.0) -> -0.973019472899969) ((3250 . 5625) (/ -1073741823.0 1103515247.0) -> -0.973019472018224) ((3251 . 5625) (/ -1073741827.0 631629063) -> -1.69995633497314) ((3252 . 5625) (/ -1073741827.0 631629064) -> -1.69995633228176) ((3253 . 5625) (/ -1073741827.0 631629065) -> -1.69995632959037) ((3254 . 5625) (/ -1073741827.0 631629066) -> -1.69995632689899) ((3255 . 5625) (/ -1073741827.0 631629067) -> -1.69995632420761) ((3256 . 5625) (/ -1073741826.0 631629063) -> -1.69995633338993) ((3257 . 5625) (/ -1073741826.0 631629064) -> -1.69995633069855) ((3258 . 5625) (/ -1073741826.0 631629065) -> -1.69995632800717) ((3259 . 5625) (/ -1073741826.0 631629066) -> -1.69995632531578) ((3260 . 5625) (/ -1073741826.0 631629067) -> -1.6999563226244) ((3261 . 5625) (/ -1073741825.0 631629063) -> -1.69995633180673) ((3262 . 5625) (/ -1073741825.0 631629064) -> -1.69995632911534) ((3263 . 5625) (/ -1073741825.0 631629065) -> -1.69995632642396) ((3264 . 5625) (/ -1073741825.0 631629066) -> -1.69995632373257) ((3265 . 5625) (/ -1073741825.0 631629067) -> -1.69995632104119) ((3266 . 5625) (/ -1073741824.0 631629063) -> -1.69995633022352) ((3267 . 5625) (/ -1073741824.0 631629064) -> -1.69995632753214) ((3268 . 5625) (/ -1073741824.0 631629065) -> -1.69995632484075) ((3269 . 5625) (/ -1073741824.0 631629066) -> -1.69995632214937) ((3270 . 5625) (/ -1073741824.0 631629067) -> -1.69995631945798) ((3271 . 5625) (/ -1073741823.0 631629063) -> -1.69995632864031) ((3272 . 5625) (/ -1073741823.0 631629064) -> -1.69995632594893) ((3273 . 5625) (/ -1073741823.0 631629065) -> -1.69995632325754) ((3274 . 5625) (/ -1073741823.0 631629066) -> -1.69995632056616) ((3275 . 5625) (/ -1073741823.0 631629067) -> -1.69995631787478) ((3276 . 5625) (/ -1073741827.0 9.00719925474099e+15) -> -1.19209289883848e-07) ((3277 . 5625) (/ -1073741827.0 9.00719925474099e+15) -> -1.19209289883848e-07) ((3278 . 5625) (/ -1073741827.0 9.00719925474099e+15) -> -1.19209289883848e-07) ((3279 . 5625) (/ -1073741827.0 9.00719925474099e+15) -> -1.19209289883848e-07) ((3280 . 5625) (/ -1073741827.0 9.00719925474099e+15) -> -1.19209289883848e-07) ((3281 . 5625) (/ -1073741826.0 9.00719925474099e+15) -> -1.19209289772826e-07) ((3282 . 5625) (/ -1073741826.0 9.00719925474099e+15) -> -1.19209289772826e-07) ((3283 . 5625) (/ -1073741826.0 9.00719925474099e+15) -> -1.19209289772826e-07) ((3284 . 5625) (/ -1073741826.0 9.00719925474099e+15) -> -1.19209289772826e-07) ((3285 . 5625) (/ -1073741826.0 9.00719925474099e+15) -> -1.19209289772826e-07) ((3286 . 5625) (/ -1073741825.0 9.00719925474099e+15) -> -1.19209289661804e-07) ((3287 . 5625) (/ -1073741825.0 9.00719925474099e+15) -> -1.19209289661804e-07) ((3288 . 5625) (/ -1073741825.0 9.00719925474099e+15) -> -1.19209289661804e-07) ((3289 . 5625) (/ -1073741825.0 9.00719925474099e+15) -> -1.19209289661804e-07) ((3290 . 5625) (/ -1073741825.0 9.00719925474099e+15) -> -1.19209289661804e-07) ((3291 . 5625) (/ -1073741824.0 9.00719925474099e+15) -> -1.19209289550781e-07) ((3292 . 5625) (/ -1073741824.0 9.00719925474099e+15) -> -1.19209289550781e-07) ((3293 . 5625) (/ -1073741824.0 9.00719925474099e+15) -> -1.19209289550781e-07) ((3294 . 5625) (/ -1073741824.0 9.00719925474099e+15) -> -1.19209289550781e-07) ((3295 . 5625) (/ -1073741824.0 9.00719925474099e+15) -> -1.19209289550781e-07) ((3296 . 5625) (/ -1073741823.0 9.00719925474099e+15) -> -1.19209289439759e-07) ((3297 . 5625) (/ -1073741823.0 9.00719925474099e+15) -> -1.19209289439759e-07) ((3298 . 5625) (/ -1073741823.0 9.00719925474099e+15) -> -1.19209289439759e-07) ((3299 . 5625) (/ -1073741823.0 9.00719925474099e+15) -> -1.19209289439759e-07) ((3300 . 5625) (/ -1073741823.0 9.00719925474099e+15) -> -1.19209289439759e-07) ((3301 . 5625) (/ -1073741827.0 -9.00719925474099e+15) -> 1.19209289883848e-07) ((3302 . 5625) (/ -1073741827.0 -9.00719925474099e+15) -> 1.19209289883848e-07) ((3303 . 5625) (/ -1073741827.0 -9.00719925474099e+15) -> 1.19209289883848e-07) ((3304 . 5625) (/ -1073741827.0 -9.00719925474099e+15) -> 1.19209289883848e-07) ((3305 . 5625) (/ -1073741827.0 -9.00719925474099e+15) -> 1.19209289883848e-07) ((3306 . 5625) (/ -1073741826.0 -9.00719925474099e+15) -> 1.19209289772826e-07) ((3307 . 5625) (/ -1073741826.0 -9.00719925474099e+15) -> 1.19209289772826e-07) ((3308 . 5625) (/ -1073741826.0 -9.00719925474099e+15) -> 1.19209289772826e-07) ((3309 . 5625) (/ -1073741826.0 -9.00719925474099e+15) -> 1.19209289772826e-07) ((3310 . 5625) (/ -1073741826.0 -9.00719925474099e+15) -> 1.19209289772826e-07) ((3311 . 5625) (/ -1073741825.0 -9.00719925474099e+15) -> 1.19209289661804e-07) ((3312 . 5625) (/ -1073741825.0 -9.00719925474099e+15) -> 1.19209289661804e-07) ((3313 . 5625) (/ -1073741825.0 -9.00719925474099e+15) -> 1.19209289661804e-07) ((3314 . 5625) (/ -1073741825.0 -9.00719925474099e+15) -> 1.19209289661804e-07) ((3315 . 5625) (/ -1073741825.0 -9.00719925474099e+15) -> 1.19209289661804e-07) ((3316 . 5625) (/ -1073741824.0 -9.00719925474099e+15) -> 1.19209289550781e-07) ((3317 . 5625) (/ -1073741824.0 -9.00719925474099e+15) -> 1.19209289550781e-07) ((3318 . 5625) (/ -1073741824.0 -9.00719925474099e+15) -> 1.19209289550781e-07) ((3319 . 5625) (/ -1073741824.0 -9.00719925474099e+15) -> 1.19209289550781e-07) ((3320 . 5625) (/ -1073741824.0 -9.00719925474099e+15) -> 1.19209289550781e-07) ((3321 . 5625) (/ -1073741823.0 -9.00719925474099e+15) -> 1.19209289439759e-07) ((3322 . 5625) (/ -1073741823.0 -9.00719925474099e+15) -> 1.19209289439759e-07) ((3323 . 5625) (/ -1073741823.0 -9.00719925474099e+15) -> 1.19209289439759e-07) ((3324 . 5625) (/ -1073741823.0 -9.00719925474099e+15) -> 1.19209289439759e-07) ((3325 . 5625) (/ -1073741823.0 -9.00719925474099e+15) -> 1.19209289439759e-07) ((3326 . 5625) (/ -1073741827.0 12343) -> -86991.9652434578) ((3327 . 5625) (/ -1073741827.0 12344) -> -86984.9179358393) ((3328 . 5625) (/ -1073741827.0 12345) -> -86977.8717699473) ((3329 . 5625) (/ -1073741827.0 12346) -> -86970.8267455046) ((3330 . 5625) (/ -1073741827.0 12347) -> -86963.7828622337) ((3331 . 5625) (/ -1073741826.0 12343) -> -86991.9651624402) ((3332 . 5625) (/ -1073741826.0 12344) -> -86984.9178548283) ((3333 . 5625) (/ -1073741826.0 12345) -> -86977.8716889429) ((3334 . 5625) (/ -1073741826.0 12346) -> -86970.8266645067) ((3335 . 5625) (/ -1073741826.0 12347) -> -86963.7827812424) ((3336 . 5625) (/ -1073741825.0 12343) -> -86991.9650814227) ((3337 . 5625) (/ -1073741825.0 12344) -> -86984.9177738172) ((3338 . 5625) (/ -1073741825.0 12345) -> -86977.8716079384) ((3339 . 5625) (/ -1073741825.0 12346) -> -86970.8265835088) ((3340 . 5625) (/ -1073741825.0 12347) -> -86963.7827002511) ((3341 . 5625) (/ -1073741824.0 12343) -> -86991.9650004051) ((3342 . 5625) (/ -1073741824.0 12344) -> -86984.9176928062) ((3343 . 5625) (/ -1073741824.0 12345) -> -86977.871526934) ((3344 . 5625) (/ -1073741824.0 12346) -> -86970.8265025109) ((3345 . 5625) (/ -1073741824.0 12347) -> -86963.7826192597) ((3346 . 5625) (/ -1073741823.0 12343) -> -86991.9649193875) ((3347 . 5625) (/ -1073741823.0 12344) -> -86984.9176117952) ((3348 . 5625) (/ -1073741823.0 12345) -> -86977.8714459295) ((3349 . 5625) (/ -1073741823.0 12346) -> -86970.826421513) ((3350 . 5625) (/ -1073741823.0 12347) -> -86963.7825382684) ((3351 . 5625) (/ -1073741827.0 4294967294.0) -> -0.250000000814907) ((3352 . 5625) (/ -1073741827.0 4294967295.0) -> -0.2500000007567) ((3353 . 5625) (/ -1073741827.0 4294967296.0) -> -0.250000000698492) ((3354 . 5625) (/ -1073741827.0 4294967297.0) -> -0.250000000640284) ((3355 . 5625) (/ -1073741827.0 4294967298.0) -> -0.250000000582077) ((3356 . 5625) (/ -1073741826.0 4294967294.0) -> -0.250000000582077) ((3357 . 5625) (/ -1073741826.0 4294967295.0) -> -0.250000000523869) ((3358 . 5625) (/ -1073741826.0 4294967296.0) -> -0.250000000465661) ((3359 . 5625) (/ -1073741826.0 4294967297.0) -> -0.250000000407454) ((3360 . 5625) (/ -1073741826.0 4294967298.0) -> -0.250000000349246) ((3361 . 5625) (/ -1073741825.0 4294967294.0) -> -0.250000000349246) ((3362 . 5625) (/ -1073741825.0 4294967295.0) -> -0.250000000291038) ((3363 . 5625) (/ -1073741825.0 4294967296.0) -> -0.250000000232831) ((3364 . 5625) (/ -1073741825.0 4294967297.0) -> -0.250000000174623) ((3365 . 5625) (/ -1073741825.0 4294967298.0) -> -0.250000000116415) ((3366 . 5625) (/ -1073741824.0 4294967294.0) -> -0.250000000116415) ((3367 . 5625) (/ -1073741824.0 4294967295.0) -> -0.250000000058208) ((3368 . 5625) (/ -1073741824.0 4294967296.0) -> -0.25) ((3369 . 5625) (/ -1073741824.0 4294967297.0) -> -0.249999999941792) ((3370 . 5625) (/ -1073741824.0 4294967298.0) -> -0.249999999883585) ((3371 . 5625) (/ -1073741823.0 4294967294.0) -> -0.249999999883585) ((3372 . 5625) (/ -1073741823.0 4294967295.0) -> -0.249999999825377) ((3373 . 5625) (/ -1073741823.0 4294967296.0) -> -0.249999999767169) ((3374 . 5625) (/ -1073741823.0 4294967297.0) -> -0.249999999708962) ((3375 . 5625) (/ -1073741823.0 4294967298.0) -> -0.249999999650754) ((3376 . 5625) (/ 1103515243.0 -2) -> -551757621.5) ((3377 . 5625) (/ 1103515243.0 -1) -> -1103515243.0) ((3378 . 5625) (/ 1103515243.0 0) -> "division by zero") ((3379 . 5625) (/ 1103515243.0 1) -> 1103515243.0) ((3380 . 5625) (/ 1103515243.0 2) -> 551757621.5) ((3381 . 5625) (/ 1103515244.0 -2) -> -551757622.0) ((3382 . 5625) (/ 1103515244.0 -1) -> -1103515244.0) ((3383 . 5625) (/ 1103515244.0 0) -> "division by zero") ((3384 . 5625) (/ 1103515244.0 1) -> 1103515244.0) ((3385 . 5625) (/ 1103515244.0 2) -> 551757622.0) ((3386 . 5625) (/ 1103515245.0 -2) -> -551757622.5) ((3387 . 5625) (/ 1103515245.0 -1) -> -1103515245.0) ((3388 . 5625) (/ 1103515245.0 0) -> "division by zero") ((3389 . 5625) (/ 1103515245.0 1) -> 1103515245.0) ((3390 . 5625) (/ 1103515245.0 2) -> 551757622.5) ((3391 . 5625) (/ 1103515246.0 -2) -> -551757623.0) ((3392 . 5625) (/ 1103515246.0 -1) -> -1103515246.0) ((3393 . 5625) (/ 1103515246.0 0) -> "division by zero") ((3394 . 5625) (/ 1103515246.0 1) -> 1103515246.0) ((3395 . 5625) (/ 1103515246.0 2) -> 551757623.0) ((3396 . 5625) (/ 1103515247.0 -2) -> -551757623.5) ((3397 . 5625) (/ 1103515247.0 -1) -> -1103515247.0) ((3398 . 5625) (/ 1103515247.0 0) -> "division by zero") ((3399 . 5625) (/ 1103515247.0 1) -> 1103515247.0) ((3400 . 5625) (/ 1103515247.0 2) -> 551757623.5) ((3401 . 5625) (/ 1103515243.0 -1) -> -1103515243.0) ((3402 . 5625) (/ 1103515243.0 0) -> "division by zero") ((3403 . 5625) (/ 1103515243.0 1) -> 1103515243.0) ((3404 . 5625) (/ 1103515243.0 2) -> 551757621.5) ((3405 . 5625) (/ 1103515243.0 3) -> 367838414.333333) ((3406 . 5625) (/ 1103515244.0 -1) -> -1103515244.0) ((3407 . 5625) (/ 1103515244.0 0) -> "division by zero") ((3408 . 5625) (/ 1103515244.0 1) -> 1103515244.0) ((3409 . 5625) (/ 1103515244.0 2) -> 551757622.0) ((3410 . 5625) (/ 1103515244.0 3) -> 367838414.666667) ((3411 . 5625) (/ 1103515245.0 -1) -> -1103515245.0) ((3412 . 5625) (/ 1103515245.0 0) -> "division by zero") ((3413 . 5625) (/ 1103515245.0 1) -> 1103515245.0) ((3414 . 5625) (/ 1103515245.0 2) -> 551757622.5) ((3415 . 5625) (/ 1103515245.0 3) -> 367838415.0) ((3416 . 5625) (/ 1103515246.0 -1) -> -1103515246.0) ((3417 . 5625) (/ 1103515246.0 0) -> "division by zero") ((3418 . 5625) (/ 1103515246.0 1) -> 1103515246.0) ((3419 . 5625) (/ 1103515246.0 2) -> 551757623.0) ((3420 . 5625) (/ 1103515246.0 3) -> 367838415.333333) ((3421 . 5625) (/ 1103515247.0 -1) -> -1103515247.0) ((3422 . 5625) (/ 1103515247.0 0) -> "division by zero") ((3423 . 5625) (/ 1103515247.0 1) -> 1103515247.0) ((3424 . 5625) (/ 1103515247.0 2) -> 551757623.5) ((3425 . 5625) (/ 1103515247.0 3) -> 367838415.666667) ((3426 . 5625) (/ 1103515243.0 -3) -> -367838414.333333) ((3427 . 5625) (/ 1103515243.0 -2) -> -551757621.5) ((3428 . 5625) (/ 1103515243.0 -1) -> -1103515243.0) ((3429 . 5625) (/ 1103515243.0 0) -> "division by zero") ((3430 . 5625) (/ 1103515243.0 1) -> 1103515243.0) ((3431 . 5625) (/ 1103515244.0 -3) -> -367838414.666667) ((3432 . 5625) (/ 1103515244.0 -2) -> -551757622.0) ((3433 . 5625) (/ 1103515244.0 -1) -> -1103515244.0) ((3434 . 5625) (/ 1103515244.0 0) -> "division by zero") ((3435 . 5625) (/ 1103515244.0 1) -> 1103515244.0) ((3436 . 5625) (/ 1103515245.0 -3) -> -367838415.0) ((3437 . 5625) (/ 1103515245.0 -2) -> -551757622.5) ((3438 . 5625) (/ 1103515245.0 -1) -> -1103515245.0) ((3439 . 5625) (/ 1103515245.0 0) -> "division by zero") ((3440 . 5625) (/ 1103515245.0 1) -> 1103515245.0) ((3441 . 5625) (/ 1103515246.0 -3) -> -367838415.333333) ((3442 . 5625) (/ 1103515246.0 -2) -> -551757623.0) ((3443 . 5625) (/ 1103515246.0 -1) -> -1103515246.0) ((3444 . 5625) (/ 1103515246.0 0) -> "division by zero") ((3445 . 5625) (/ 1103515246.0 1) -> 1103515246.0) ((3446 . 5625) (/ 1103515247.0 -3) -> -367838415.666667) ((3447 . 5625) (/ 1103515247.0 -2) -> -551757623.5) ((3448 . 5625) (/ 1103515247.0 -1) -> -1103515247.0) ((3449 . 5625) (/ 1103515247.0 0) -> "division by zero") ((3450 . 5625) (/ 1103515247.0 1) -> 1103515247.0) ((3451 . 5625) (/ 1103515243.0 0) -> "division by zero") ((3452 . 5625) (/ 1103515243.0 1) -> 1103515243.0) ((3453 . 5625) (/ 1103515243.0 2) -> 551757621.5) ((3454 . 5625) (/ 1103515243.0 3) -> 367838414.333333) ((3455 . 5625) (/ 1103515243.0 4) -> 275878810.75) ((3456 . 5625) (/ 1103515244.0 0) -> "division by zero") ((3457 . 5625) (/ 1103515244.0 1) -> 1103515244.0) ((3458 . 5625) (/ 1103515244.0 2) -> 551757622.0) ((3459 . 5625) (/ 1103515244.0 3) -> 367838414.666667) ((3460 . 5625) (/ 1103515244.0 4) -> 275878811.0) ((3461 . 5625) (/ 1103515245.0 0) -> "division by zero") ((3462 . 5625) (/ 1103515245.0 1) -> 1103515245.0) ((3463 . 5625) (/ 1103515245.0 2) -> 551757622.5) ((3464 . 5625) (/ 1103515245.0 3) -> 367838415.0) ((3465 . 5625) (/ 1103515245.0 4) -> 275878811.25) ((3466 . 5625) (/ 1103515246.0 0) -> "division by zero") ((3467 . 5625) (/ 1103515246.0 1) -> 1103515246.0) ((3468 . 5625) (/ 1103515246.0 2) -> 551757623.0) ((3469 . 5625) (/ 1103515246.0 3) -> 367838415.333333) ((3470 . 5625) (/ 1103515246.0 4) -> 275878811.5) ((3471 . 5625) (/ 1103515247.0 0) -> "division by zero") ((3472 . 5625) (/ 1103515247.0 1) -> 1103515247.0) ((3473 . 5625) (/ 1103515247.0 2) -> 551757623.5) ((3474 . 5625) (/ 1103515247.0 3) -> 367838415.666667) ((3475 . 5625) (/ 1103515247.0 4) -> 275878811.75) ((3476 . 5625) (/ 1103515243.0 -4) -> -275878810.75) ((3477 . 5625) (/ 1103515243.0 -3) -> -367838414.333333) ((3478 . 5625) (/ 1103515243.0 -2) -> -551757621.5) ((3479 . 5625) (/ 1103515243.0 -1) -> -1103515243.0) ((3480 . 5625) (/ 1103515243.0 0) -> "division by zero") ((3481 . 5625) (/ 1103515244.0 -4) -> -275878811.0) ((3482 . 5625) (/ 1103515244.0 -3) -> -367838414.666667) ((3483 . 5625) (/ 1103515244.0 -2) -> -551757622.0) ((3484 . 5625) (/ 1103515244.0 -1) -> -1103515244.0) ((3485 . 5625) (/ 1103515244.0 0) -> "division by zero") ((3486 . 5625) (/ 1103515245.0 -4) -> -275878811.25) ((3487 . 5625) (/ 1103515245.0 -3) -> -367838415.0) ((3488 . 5625) (/ 1103515245.0 -2) -> -551757622.5) ((3489 . 5625) (/ 1103515245.0 -1) -> -1103515245.0) ((3490 . 5625) (/ 1103515245.0 0) -> "division by zero") ((3491 . 5625) (/ 1103515246.0 -4) -> -275878811.5) ((3492 . 5625) (/ 1103515246.0 -3) -> -367838415.333333) ((3493 . 5625) (/ 1103515246.0 -2) -> -551757623.0) ((3494 . 5625) (/ 1103515246.0 -1) -> -1103515246.0) ((3495 . 5625) (/ 1103515246.0 0) -> "division by zero") ((3496 . 5625) (/ 1103515247.0 -4) -> -275878811.75) ((3497 . 5625) (/ 1103515247.0 -3) -> -367838415.666667) ((3498 . 5625) (/ 1103515247.0 -2) -> -551757623.5) ((3499 . 5625) (/ 1103515247.0 -1) -> -1103515247.0) ((3500 . 5625) (/ 1103515247.0 0) -> "division by zero") ((3501 . 5625) (/ 1103515243.0 1073741821) -> 1.02772866010963) ((3502 . 5625) (/ 1103515243.0 1073741822) -> 1.02772865915248) ((3503 . 5625) (/ 1103515243.0 1073741823) -> 1.02772865819533) ((3504 . 5625) (/ 1103515243.0 1073741824.0) -> 1.02772865723819) ((3505 . 5625) (/ 1103515243.0 1073741825.0) -> 1.02772865628104) ((3506 . 5625) (/ 1103515244.0 1073741821) -> 1.02772866104095) ((3507 . 5625) (/ 1103515244.0 1073741822) -> 1.0277286600838) ((3508 . 5625) (/ 1103515244.0 1073741823) -> 1.02772865912665) ((3509 . 5625) (/ 1103515244.0 1073741824.0) -> 1.02772865816951) ((3510 . 5625) (/ 1103515244.0 1073741825.0) -> 1.02772865721236) ((3511 . 5625) (/ 1103515245.0 1073741821) -> 1.02772866197227) ((3512 . 5625) (/ 1103515245.0 1073741822) -> 1.02772866101512) ((3513 . 5625) (/ 1103515245.0 1073741823) -> 1.02772866005798) ((3514 . 5625) (/ 1103515245.0 1073741824.0) -> 1.02772865910083) ((3515 . 5625) (/ 1103515245.0 1073741825.0) -> 1.02772865814368) ((3516 . 5625) (/ 1103515246.0 1073741821) -> 1.02772866290359) ((3517 . 5625) (/ 1103515246.0 1073741822) -> 1.02772866194645) ((3518 . 5625) (/ 1103515246.0 1073741823) -> 1.0277286609893) ((3519 . 5625) (/ 1103515246.0 1073741824.0) -> 1.02772866003215) ((3520 . 5625) (/ 1103515246.0 1073741825.0) -> 1.02772865907501) ((3521 . 5625) (/ 1103515247.0 1073741821) -> 1.02772866383492) ((3522 . 5625) (/ 1103515247.0 1073741822) -> 1.02772866287777) ((3523 . 5625) (/ 1103515247.0 1073741823) -> 1.02772866192062) ((3524 . 5625) (/ 1103515247.0 1073741824.0) -> 1.02772866096348) ((3525 . 5625) (/ 1103515247.0 1073741825.0) -> 1.02772866000633) ((3526 . 5625) (/ 1103515243.0 -1073741826.0) -> -1.02772865532389) ((3527 . 5625) (/ 1103515243.0 -1073741825.0) -> -1.02772865628104) ((3528 . 5625) (/ 1103515243.0 -1073741824) -> -1.02772865723819) ((3529 . 5625) (/ 1103515243.0 -1073741823) -> -1.02772865819533) ((3530 . 5625) (/ 1103515243.0 -1073741822) -> -1.02772865915248) ((3531 . 5625) (/ 1103515244.0 -1073741826.0) -> -1.02772865625521) ((3532 . 5625) (/ 1103515244.0 -1073741825.0) -> -1.02772865721236) ((3533 . 5625) (/ 1103515244.0 -1073741824) -> -1.02772865816951) ((3534 . 5625) (/ 1103515244.0 -1073741823) -> -1.02772865912665) ((3535 . 5625) (/ 1103515244.0 -1073741822) -> -1.0277286600838) ((3536 . 5625) (/ 1103515245.0 -1073741826.0) -> -1.02772865718654) ((3537 . 5625) (/ 1103515245.0 -1073741825.0) -> -1.02772865814368) ((3538 . 5625) (/ 1103515245.0 -1073741824) -> -1.02772865910083) ((3539 . 5625) (/ 1103515245.0 -1073741823) -> -1.02772866005798) ((3540 . 5625) (/ 1103515245.0 -1073741822) -> -1.02772866101512) ((3541 . 5625) (/ 1103515246.0 -1073741826.0) -> -1.02772865811786) ((3542 . 5625) (/ 1103515246.0 -1073741825.0) -> -1.02772865907501) ((3543 . 5625) (/ 1103515246.0 -1073741824) -> -1.02772866003215) ((3544 . 5625) (/ 1103515246.0 -1073741823) -> -1.0277286609893) ((3545 . 5625) (/ 1103515246.0 -1073741822) -> -1.02772866194645) ((3546 . 5625) (/ 1103515247.0 -1073741826.0) -> -1.02772865904918) ((3547 . 5625) (/ 1103515247.0 -1073741825.0) -> -1.02772866000633) ((3548 . 5625) (/ 1103515247.0 -1073741824) -> -1.02772866096348) ((3549 . 5625) (/ 1103515247.0 -1073741823) -> -1.02772866192062) ((3550 . 5625) (/ 1103515247.0 -1073741822) -> -1.02772866287777) ((3551 . 5625) (/ 1103515243.0 1073741822.0) -> 1.02772865915248) ((3552 . 5625) (/ 1103515243.0 1073741823.0) -> 1.02772865819533) ((3553 . 5625) (/ 1103515243.0 1073741824.0) -> 1.02772865723819) ((3554 . 5625) (/ 1103515243.0 1073741825.0) -> 1.02772865628104) ((3555 . 5625) (/ 1103515243.0 1073741826.0) -> 1.02772865532389) ((3556 . 5625) (/ 1103515244.0 1073741822.0) -> 1.0277286600838) ((3557 . 5625) (/ 1103515244.0 1073741823.0) -> 1.02772865912665) ((3558 . 5625) (/ 1103515244.0 1073741824.0) -> 1.02772865816951) ((3559 . 5625) (/ 1103515244.0 1073741825.0) -> 1.02772865721236) ((3560 . 5625) (/ 1103515244.0 1073741826.0) -> 1.02772865625521) ((3561 . 5625) (/ 1103515245.0 1073741822.0) -> 1.02772866101512) ((3562 . 5625) (/ 1103515245.0 1073741823.0) -> 1.02772866005798) ((3563 . 5625) (/ 1103515245.0 1073741824.0) -> 1.02772865910083) ((3564 . 5625) (/ 1103515245.0 1073741825.0) -> 1.02772865814368) ((3565 . 5625) (/ 1103515245.0 1073741826.0) -> 1.02772865718654) ((3566 . 5625) (/ 1103515246.0 1073741822.0) -> 1.02772866194645) ((3567 . 5625) (/ 1103515246.0 1073741823.0) -> 1.0277286609893) ((3568 . 5625) (/ 1103515246.0 1073741824.0) -> 1.02772866003215) ((3569 . 5625) (/ 1103515246.0 1073741825.0) -> 1.02772865907501) ((3570 . 5625) (/ 1103515246.0 1073741826.0) -> 1.02772865811786) ((3571 . 5625) (/ 1103515247.0 1073741822.0) -> 1.02772866287777) ((3572 . 5625) (/ 1103515247.0 1073741823.0) -> 1.02772866192062) ((3573 . 5625) (/ 1103515247.0 1073741824.0) -> 1.02772866096348) ((3574 . 5625) (/ 1103515247.0 1073741825.0) -> 1.02772866000633) ((3575 . 5625) (/ 1103515247.0 1073741826.0) -> 1.02772865904918) ((3576 . 5625) (/ 1103515243.0 -1073741827.0) -> -1.02772865436674) ((3577 . 5625) (/ 1103515243.0 -1073741826.0) -> -1.02772865532389) ((3578 . 5625) (/ 1103515243.0 -1073741825.0) -> -1.02772865628104) ((3579 . 5625) (/ 1103515243.0 -1073741824.0) -> -1.02772865723819) ((3580 . 5625) (/ 1103515243.0 -1073741823.0) -> -1.02772865819533) ((3581 . 5625) (/ 1103515244.0 -1073741827.0) -> -1.02772865529807) ((3582 . 5625) (/ 1103515244.0 -1073741826.0) -> -1.02772865625521) ((3583 . 5625) (/ 1103515244.0 -1073741825.0) -> -1.02772865721236) ((3584 . 5625) (/ 1103515244.0 -1073741824.0) -> -1.02772865816951) ((3585 . 5625) (/ 1103515244.0 -1073741823.0) -> -1.02772865912665) ((3586 . 5625) (/ 1103515245.0 -1073741827.0) -> -1.02772865622939) ((3587 . 5625) (/ 1103515245.0 -1073741826.0) -> -1.02772865718654) ((3588 . 5625) (/ 1103515245.0 -1073741825.0) -> -1.02772865814368) ((3589 . 5625) (/ 1103515245.0 -1073741824.0) -> -1.02772865910083) ((3590 . 5625) (/ 1103515245.0 -1073741823.0) -> -1.02772866005798) ((3591 . 5625) (/ 1103515246.0 -1073741827.0) -> -1.02772865716071) ((3592 . 5625) (/ 1103515246.0 -1073741826.0) -> -1.02772865811786) ((3593 . 5625) (/ 1103515246.0 -1073741825.0) -> -1.02772865907501) ((3594 . 5625) (/ 1103515246.0 -1073741824.0) -> -1.02772866003215) ((3595 . 5625) (/ 1103515246.0 -1073741823.0) -> -1.0277286609893) ((3596 . 5625) (/ 1103515247.0 -1073741827.0) -> -1.02772865809204) ((3597 . 5625) (/ 1103515247.0 -1073741826.0) -> -1.02772865904918) ((3598 . 5625) (/ 1103515247.0 -1073741825.0) -> -1.02772866000633) ((3599 . 5625) (/ 1103515247.0 -1073741824.0) -> -1.02772866096348) ((3600 . 5625) (/ 1103515247.0 -1073741823.0) -> -1.02772866192062) ((3601 . 5625) (/ 1103515243.0 1103515243.0) -> 1.0) ((3602 . 5625) (/ 1103515243.0 1103515244.0) -> 0.999999999093805) ((3603 . 5625) (/ 1103515243.0 1103515245.0) -> 0.99999999818761) ((3604 . 5625) (/ 1103515243.0 1103515246.0) -> 0.999999997281415) ((3605 . 5625) (/ 1103515243.0 1103515247.0) -> 0.99999999637522) ((3606 . 5625) (/ 1103515244.0 1103515243.0) -> 1.00000000090619) ((3607 . 5625) (/ 1103515244.0 1103515244.0) -> 1.0) ((3608 . 5625) (/ 1103515244.0 1103515245.0) -> 0.999999999093805) ((3609 . 5625) (/ 1103515244.0 1103515246.0) -> 0.99999999818761) ((3610 . 5625) (/ 1103515244.0 1103515247.0) -> 0.999999997281415) ((3611 . 5625) (/ 1103515245.0 1103515243.0) -> 1.00000000181239) ((3612 . 5625) (/ 1103515245.0 1103515244.0) -> 1.00000000090619) ((3613 . 5625) (/ 1103515245.0 1103515245.0) -> 1.0) ((3614 . 5625) (/ 1103515245.0 1103515246.0) -> 0.999999999093805) ((3615 . 5625) (/ 1103515245.0 1103515247.0) -> 0.99999999818761) ((3616 . 5625) (/ 1103515246.0 1103515243.0) -> 1.00000000271858) ((3617 . 5625) (/ 1103515246.0 1103515244.0) -> 1.00000000181239) ((3618 . 5625) (/ 1103515246.0 1103515245.0) -> 1.00000000090619) ((3619 . 5625) (/ 1103515246.0 1103515246.0) -> 1.0) ((3620 . 5625) (/ 1103515246.0 1103515247.0) -> 0.999999999093805) ((3621 . 5625) (/ 1103515247.0 1103515243.0) -> 1.00000000362478) ((3622 . 5625) (/ 1103515247.0 1103515244.0) -> 1.00000000271858) ((3623 . 5625) (/ 1103515247.0 1103515245.0) -> 1.00000000181239) ((3624 . 5625) (/ 1103515247.0 1103515246.0) -> 1.00000000090619) ((3625 . 5625) (/ 1103515247.0 1103515247.0) -> 1.0) ((3626 . 5625) (/ 1103515243.0 631629063) -> 1.74709383662417) ((3627 . 5625) (/ 1103515243.0 631629064) -> 1.74709383385816) ((3628 . 5625) (/ 1103515243.0 631629065) -> 1.74709383109215) ((3629 . 5625) (/ 1103515243.0 631629066) -> 1.74709382832613) ((3630 . 5625) (/ 1103515243.0 631629067) -> 1.74709382556012) ((3631 . 5625) (/ 1103515244.0 631629063) -> 1.74709383820738) ((3632 . 5625) (/ 1103515244.0 631629064) -> 1.74709383544137) ((3633 . 5625) (/ 1103515244.0 631629065) -> 1.74709383267535) ((3634 . 5625) (/ 1103515244.0 631629066) -> 1.74709382990934) ((3635 . 5625) (/ 1103515244.0 631629067) -> 1.74709382714333) ((3636 . 5625) (/ 1103515245.0 631629063) -> 1.74709383979059) ((3637 . 5625) (/ 1103515245.0 631629064) -> 1.74709383702457) ((3638 . 5625) (/ 1103515245.0 631629065) -> 1.74709383425856) ((3639 . 5625) (/ 1103515245.0 631629066) -> 1.74709383149255) ((3640 . 5625) (/ 1103515245.0 631629067) -> 1.74709382872654) ((3641 . 5625) (/ 1103515246.0 631629063) -> 1.74709384137379) ((3642 . 5625) (/ 1103515246.0 631629064) -> 1.74709383860778) ((3643 . 5625) (/ 1103515246.0 631629065) -> 1.74709383584177) ((3644 . 5625) (/ 1103515246.0 631629066) -> 1.74709383307576) ((3645 . 5625) (/ 1103515246.0 631629067) -> 1.74709383030974) ((3646 . 5625) (/ 1103515247.0 631629063) -> 1.747093842957) ((3647 . 5625) (/ 1103515247.0 631629064) -> 1.74709384019099) ((3648 . 5625) (/ 1103515247.0 631629065) -> 1.74709383742498) ((3649 . 5625) (/ 1103515247.0 631629066) -> 1.74709383465896) ((3650 . 5625) (/ 1103515247.0 631629067) -> 1.74709383189295) ((3651 . 5625) (/ 1103515243.0 9.00719925474099e+15) -> 1.22514803080342e-07) ((3652 . 5625) (/ 1103515243.0 9.00719925474099e+15) -> 1.22514803080342e-07) ((3653 . 5625) (/ 1103515243.0 9.00719925474099e+15) -> 1.22514803080342e-07) ((3654 . 5625) (/ 1103515243.0 9.00719925474099e+15) -> 1.22514803080342e-07) ((3655 . 5625) (/ 1103515243.0 9.00719925474099e+15) -> 1.22514803080342e-07) ((3656 . 5625) (/ 1103515244.0 9.00719925474099e+15) -> 1.22514803191365e-07) ((3657 . 5625) (/ 1103515244.0 9.00719925474099e+15) -> 1.22514803191365e-07) ((3658 . 5625) (/ 1103515244.0 9.00719925474099e+15) -> 1.22514803191365e-07) ((3659 . 5625) (/ 1103515244.0 9.00719925474099e+15) -> 1.22514803191365e-07) ((3660 . 5625) (/ 1103515244.0 9.00719925474099e+15) -> 1.22514803191365e-07) ((3661 . 5625) (/ 1103515245.0 9.00719925474099e+15) -> 1.22514803302387e-07) ((3662 . 5625) (/ 1103515245.0 9.00719925474099e+15) -> 1.22514803302387e-07) ((3663 . 5625) (/ 1103515245.0 9.00719925474099e+15) -> 1.22514803302387e-07) ((3664 . 5625) (/ 1103515245.0 9.00719925474099e+15) -> 1.22514803302387e-07) ((3665 . 5625) (/ 1103515245.0 9.00719925474099e+15) -> 1.22514803302387e-07) ((3666 . 5625) (/ 1103515246.0 9.00719925474099e+15) -> 1.22514803413409e-07) ((3667 . 5625) (/ 1103515246.0 9.00719925474099e+15) -> 1.22514803413409e-07) ((3668 . 5625) (/ 1103515246.0 9.00719925474099e+15) -> 1.22514803413409e-07) ((3669 . 5625) (/ 1103515246.0 9.00719925474099e+15) -> 1.22514803413409e-07) ((3670 . 5625) (/ 1103515246.0 9.00719925474099e+15) -> 1.22514803413409e-07) ((3671 . 5625) (/ 1103515247.0 9.00719925474099e+15) -> 1.22514803524432e-07) ((3672 . 5625) (/ 1103515247.0 9.00719925474099e+15) -> 1.22514803524432e-07) ((3673 . 5625) (/ 1103515247.0 9.00719925474099e+15) -> 1.22514803524432e-07) ((3674 . 5625) (/ 1103515247.0 9.00719925474099e+15) -> 1.22514803524432e-07) ((3675 . 5625) (/ 1103515247.0 9.00719925474099e+15) -> 1.22514803524432e-07) ((3676 . 5625) (/ 1103515243.0 -9.00719925474099e+15) -> -1.22514803080342e-07) ((3677 . 5625) (/ 1103515243.0 -9.00719925474099e+15) -> -1.22514803080342e-07) ((3678 . 5625) (/ 1103515243.0 -9.00719925474099e+15) -> -1.22514803080342e-07) ((3679 . 5625) (/ 1103515243.0 -9.00719925474099e+15) -> -1.22514803080342e-07) ((3680 . 5625) (/ 1103515243.0 -9.00719925474099e+15) -> -1.22514803080342e-07) ((3681 . 5625) (/ 1103515244.0 -9.00719925474099e+15) -> -1.22514803191365e-07) ((3682 . 5625) (/ 1103515244.0 -9.00719925474099e+15) -> -1.22514803191365e-07) ((3683 . 5625) (/ 1103515244.0 -9.00719925474099e+15) -> -1.22514803191365e-07) ((3684 . 5625) (/ 1103515244.0 -9.00719925474099e+15) -> -1.22514803191365e-07) ((3685 . 5625) (/ 1103515244.0 -9.00719925474099e+15) -> -1.22514803191365e-07) ((3686 . 5625) (/ 1103515245.0 -9.00719925474099e+15) -> -1.22514803302387e-07) ((3687 . 5625) (/ 1103515245.0 -9.00719925474099e+15) -> -1.22514803302387e-07) ((3688 . 5625) (/ 1103515245.0 -9.00719925474099e+15) -> -1.22514803302387e-07) ((3689 . 5625) (/ 1103515245.0 -9.00719925474099e+15) -> -1.22514803302387e-07) ((3690 . 5625) (/ 1103515245.0 -9.00719925474099e+15) -> -1.22514803302387e-07) ((3691 . 5625) (/ 1103515246.0 -9.00719925474099e+15) -> -1.22514803413409e-07) ((3692 . 5625) (/ 1103515246.0 -9.00719925474099e+15) -> -1.22514803413409e-07) ((3693 . 5625) (/ 1103515246.0 -9.00719925474099e+15) -> -1.22514803413409e-07) ((3694 . 5625) (/ 1103515246.0 -9.00719925474099e+15) -> -1.22514803413409e-07) ((3695 . 5625) (/ 1103515246.0 -9.00719925474099e+15) -> -1.22514803413409e-07) ((3696 . 5625) (/ 1103515247.0 -9.00719925474099e+15) -> -1.22514803524432e-07) ((3697 . 5625) (/ 1103515247.0 -9.00719925474099e+15) -> -1.22514803524432e-07) ((3698 . 5625) (/ 1103515247.0 -9.00719925474099e+15) -> -1.22514803524432e-07) ((3699 . 5625) (/ 1103515247.0 -9.00719925474099e+15) -> -1.22514803524432e-07) ((3700 . 5625) (/ 1103515247.0 -9.00719925474099e+15) -> -1.22514803524432e-07) ((3701 . 5625) (/ 1103515243.0 12343) -> 89404.1353803775) ((3702 . 5625) (/ 1103515243.0 12344) -> 89396.8926604018) ((3703 . 5625) (/ 1103515243.0 12345) -> 89389.6511138113) ((3704 . 5625) (/ 1103515243.0 12346) -> 89382.4107403207) ((3705 . 5625) (/ 1103515243.0 12347) -> 89375.1715396453) ((3706 . 5625) (/ 1103515244.0 12343) -> 89404.1354613951) ((3707 . 5625) (/ 1103515244.0 12344) -> 89396.8927414128) ((3708 . 5625) (/ 1103515244.0 12345) -> 89389.6511948157) ((3709 . 5625) (/ 1103515244.0 12346) -> 89382.4108213186) ((3710 . 5625) (/ 1103515244.0 12347) -> 89375.1716206366) ((3711 . 5625) (/ 1103515245.0 12343) -> 89404.1355424127) ((3712 . 5625) (/ 1103515245.0 12344) -> 89396.8928224238) ((3713 . 5625) (/ 1103515245.0 12345) -> 89389.6512758202) ((3714 . 5625) (/ 1103515245.0 12346) -> 89382.4109023165) ((3715 . 5625) (/ 1103515245.0 12347) -> 89375.1717016279) ((3716 . 5625) (/ 1103515246.0 12343) -> 89404.1356234303) ((3717 . 5625) (/ 1103515246.0 12344) -> 89396.8929034349) ((3718 . 5625) (/ 1103515246.0 12345) -> 89389.6513568246) ((3719 . 5625) (/ 1103515246.0 12346) -> 89382.4109833144) ((3720 . 5625) (/ 1103515246.0 12347) -> 89375.1717826193) ((3721 . 5625) (/ 1103515247.0 12343) -> 89404.1357044479) ((3722 . 5625) (/ 1103515247.0 12344) -> 89396.8929844459) ((3723 . 5625) (/ 1103515247.0 12345) -> 89389.6514378291) ((3724 . 5625) (/ 1103515247.0 12346) -> 89382.4110643123) ((3725 . 5625) (/ 1103515247.0 12347) -> 89375.1718636106) ((3726 . 5625) (/ 1103515243.0 4294967294.0) -> 0.25693216442919) ((3727 . 5625) (/ 1103515243.0 4294967295.0) -> 0.256932164369368) ((3728 . 5625) (/ 1103515243.0 4294967296.0) -> 0.256932164309546) ((3729 . 5625) (/ 1103515243.0 4294967297.0) -> 0.256932164249725) ((3730 . 5625) (/ 1103515243.0 4294967298.0) -> 0.256932164189903) ((3731 . 5625) (/ 1103515244.0 4294967294.0) -> 0.25693216466202) ((3732 . 5625) (/ 1103515244.0 4294967295.0) -> 0.256932164602199) ((3733 . 5625) (/ 1103515244.0 4294967296.0) -> 0.256932164542377) ((3734 . 5625) (/ 1103515244.0 4294967297.0) -> 0.256932164482555) ((3735 . 5625) (/ 1103515244.0 4294967298.0) -> 0.256932164422734) ((3736 . 5625) (/ 1103515245.0 4294967294.0) -> 0.256932164894851) ((3737 . 5625) (/ 1103515245.0 4294967295.0) -> 0.256932164835029) ((3738 . 5625) (/ 1103515245.0 4294967296.0) -> 0.256932164775208) ((3739 . 5625) (/ 1103515245.0 4294967297.0) -> 0.256932164715386) ((3740 . 5625) (/ 1103515245.0 4294967298.0) -> 0.256932164655564) ((3741 . 5625) (/ 1103515246.0 4294967294.0) -> 0.256932165127682) ((3742 . 5625) (/ 1103515246.0 4294967295.0) -> 0.25693216506786) ((3743 . 5625) (/ 1103515246.0 4294967296.0) -> 0.256932165008038) ((3744 . 5625) (/ 1103515246.0 4294967297.0) -> 0.256932164948217) ((3745 . 5625) (/ 1103515246.0 4294967298.0) -> 0.256932164888395) ((3746 . 5625) (/ 1103515247.0 4294967294.0) -> 0.256932165360512) ((3747 . 5625) (/ 1103515247.0 4294967295.0) -> 0.256932165300691) ((3748 . 5625) (/ 1103515247.0 4294967296.0) -> 0.256932165240869) ((3749 . 5625) (/ 1103515247.0 4294967297.0) -> 0.256932165181047) ((3750 . 5625) (/ 1103515247.0 4294967298.0) -> 0.256932165121226) ((3751 . 5625) (/ 631629063 -2) -> -315814531.5) ((3752 . 5625) (/ 631629063 -1) -> -631629063) ((3753 . 5625) (/ 631629063 0) -> "division by zero") ((3754 . 5625) (/ 631629063 1) -> 631629063) ((3755 . 5625) (/ 631629063 2) -> 315814531.5) ((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) -> -315814532.5) ((3762 . 5625) (/ 631629065 -1) -> -631629065) ((3763 . 5625) (/ 631629065 0) -> "division by zero") ((3764 . 5625) (/ 631629065 1) -> 631629065) ((3765 . 5625) (/ 631629065 2) -> 315814532.5) ((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) -> -315814533.5) ((3772 . 5625) (/ 631629067 -1) -> -631629067) ((3773 . 5625) (/ 631629067 0) -> "division by zero") ((3774 . 5625) (/ 631629067 1) -> 631629067) ((3775 . 5625) (/ 631629067 2) -> 315814533.5) ((3776 . 5625) (/ 631629063 -1) -> -631629063) ((3777 . 5625) (/ 631629063 0) -> "division by zero") ((3778 . 5625) (/ 631629063 1) -> 631629063) ((3779 . 5625) (/ 631629063 2) -> 315814531.5) ((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) -> 210543021.333333) ((3786 . 5625) (/ 631629065 -1) -> -631629065) ((3787 . 5625) (/ 631629065 0) -> "division by zero") ((3788 . 5625) (/ 631629065 1) -> 631629065) ((3789 . 5625) (/ 631629065 2) -> 315814532.5) ((3790 . 5625) (/ 631629065 3) -> 210543021.666667) ((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) -> 315814533.5) ((3800 . 5625) (/ 631629067 3) -> 210543022.333333) ((3801 . 5625) (/ 631629063 -3) -> -210543021) ((3802 . 5625) (/ 631629063 -2) -> -315814531.5) ((3803 . 5625) (/ 631629063 -1) -> -631629063) ((3804 . 5625) (/ 631629063 0) -> "division by zero") ((3805 . 5625) (/ 631629063 1) -> 631629063) ((3806 . 5625) (/ 631629064 -3) -> -210543021.333333) ((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) -> -210543021.666667) ((3812 . 5625) (/ 631629065 -2) -> -315814532.5) ((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) -> -210543022.333333) ((3822 . 5625) (/ 631629067 -2) -> -315814533.5) ((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) -> 315814531.5) ((3829 . 5625) (/ 631629063 3) -> 210543021) ((3830 . 5625) (/ 631629063 4) -> 157907265.75) ((3831 . 5625) (/ 631629064 0) -> "division by zero") ((3832 . 5625) (/ 631629064 1) -> 631629064) ((3833 . 5625) (/ 631629064 2) -> 315814532) ((3834 . 5625) (/ 631629064 3) -> 210543021.333333) ((3835 . 5625) (/ 631629064 4) -> 157907266) ((3836 . 5625) (/ 631629065 0) -> "division by zero") ((3837 . 5625) (/ 631629065 1) -> 631629065) ((3838 . 5625) (/ 631629065 2) -> 315814532.5) ((3839 . 5625) (/ 631629065 3) -> 210543021.666667) ((3840 . 5625) (/ 631629065 4) -> 157907266.25) ((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) -> 157907266.5) ((3846 . 5625) (/ 631629067 0) -> "division by zero") ((3847 . 5625) (/ 631629067 1) -> 631629067) ((3848 . 5625) (/ 631629067 2) -> 315814533.5) ((3849 . 5625) (/ 631629067 3) -> 210543022.333333) ((3850 . 5625) (/ 631629067 4) -> 157907266.75) ((3851 . 5625) (/ 631629063 -4) -> -157907265.75) ((3852 . 5625) (/ 631629063 -3) -> -210543021) ((3853 . 5625) (/ 631629063 -2) -> -315814531.5) ((3854 . 5625) (/ 631629063 -1) -> -631629063) ((3855 . 5625) (/ 631629063 0) -> "division by zero") ((3856 . 5625) (/ 631629064 -4) -> -157907266) ((3857 . 5625) (/ 631629064 -3) -> -210543021.333333) ((3858 . 5625) (/ 631629064 -2) -> -315814532) ((3859 . 5625) (/ 631629064 -1) -> -631629064) ((3860 . 5625) (/ 631629064 0) -> "division by zero") ((3861 . 5625) (/ 631629065 -4) -> -157907266.25) ((3862 . 5625) (/ 631629065 -3) -> -210543021.666667) ((3863 . 5625) (/ 631629065 -2) -> -315814532.5) ((3864 . 5625) (/ 631629065 -1) -> -631629065) ((3865 . 5625) (/ 631629065 0) -> "division by zero") ((3866 . 5625) (/ 631629066 -4) -> -157907266.5) ((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) -> -157907266.75) ((3872 . 5625) (/ 631629067 -3) -> -210543022.333333) ((3873 . 5625) (/ 631629067 -2) -> -315814533.5) ((3874 . 5625) (/ 631629067 -1) -> -631629067) ((3875 . 5625) (/ 631629067 0) -> "division by zero") ((3876 . 5625) (/ 631629063 1073741821) -> 0.588250406798675) ((3877 . 5625) (/ 631629063 1073741822) -> 0.588250406250824) ((3878 . 5625) (/ 631629063 1073741823) -> 0.588250405702973) ((3879 . 5625) (/ 631629063 1073741824.0) -> 0.588250405155122) ((3880 . 5625) (/ 631629063 1073741825.0) -> 0.588250404607271) ((3881 . 5625) (/ 631629064 1073741821) -> 0.588250407729997) ((3882 . 5625) (/ 631629064 1073741822) -> 0.588250407182147) ((3883 . 5625) (/ 631629064 1073741823) -> 0.588250406634296) ((3884 . 5625) (/ 631629064 1073741824.0) -> 0.588250406086445) ((3885 . 5625) (/ 631629064 1073741825.0) -> 0.588250405538594) ((3886 . 5625) (/ 631629065 1073741821) -> 0.58825040866132) ((3887 . 5625) (/ 631629065 1073741822) -> 0.588250408113469) ((3888 . 5625) (/ 631629065 1073741823) -> 0.588250407565618) ((3889 . 5625) (/ 631629065 1073741824.0) -> 0.588250407017767) ((3890 . 5625) (/ 631629065 1073741825.0) -> 0.588250406469917) ((3891 . 5625) (/ 631629066 1073741821) -> 0.588250409592643) ((3892 . 5625) (/ 631629066 1073741822) -> 0.588250409044792) ((3893 . 5625) (/ 631629066 1073741823) -> 0.588250408496941) ((3894 . 5625) (/ 631629066 1073741824.0) -> 0.58825040794909) ((3895 . 5625) (/ 631629066 1073741825.0) -> 0.588250407401239) ((3896 . 5625) (/ 631629067 1073741821) -> 0.588250410523965) ((3897 . 5625) (/ 631629067 1073741822) -> 0.588250409976114) ((3898 . 5625) (/ 631629067 1073741823) -> 0.588250409428263) ((3899 . 5625) (/ 631629067 1073741824.0) -> 0.588250408880413) ((3900 . 5625) (/ 631629067 1073741825.0) -> 0.588250408332562) ((3901 . 5625) (/ 631629063 -1073741826.0) -> -0.588250404059421) ((3902 . 5625) (/ 631629063 -1073741825.0) -> -0.588250404607271) ((3903 . 5625) (/ 631629063 -1073741824) -> -0.588250405155122) ((3904 . 5625) (/ 631629063 -1073741823) -> -0.588250405702973) ((3905 . 5625) (/ 631629063 -1073741822) -> -0.588250406250824) ((3906 . 5625) (/ 631629064 -1073741826.0) -> -0.588250404990743) ((3907 . 5625) (/ 631629064 -1073741825.0) -> -0.588250405538594) ((3908 . 5625) (/ 631629064 -1073741824) -> -0.588250406086445) ((3909 . 5625) (/ 631629064 -1073741823) -> -0.588250406634296) ((3910 . 5625) (/ 631629064 -1073741822) -> -0.588250407182147) ((3911 . 5625) (/ 631629065 -1073741826.0) -> -0.588250405922066) ((3912 . 5625) (/ 631629065 -1073741825.0) -> -0.588250406469917) ((3913 . 5625) (/ 631629065 -1073741824) -> -0.588250407017767) ((3914 . 5625) (/ 631629065 -1073741823) -> -0.588250407565618) ((3915 . 5625) (/ 631629065 -1073741822) -> -0.588250408113469) ((3916 . 5625) (/ 631629066 -1073741826.0) -> -0.588250406853388) ((3917 . 5625) (/ 631629066 -1073741825.0) -> -0.588250407401239) ((3918 . 5625) (/ 631629066 -1073741824) -> -0.58825040794909) ((3919 . 5625) (/ 631629066 -1073741823) -> -0.588250408496941) ((3920 . 5625) (/ 631629066 -1073741822) -> -0.588250409044792) ((3921 . 5625) (/ 631629067 -1073741826.0) -> -0.588250407784711) ((3922 . 5625) (/ 631629067 -1073741825.0) -> -0.588250408332562) ((3923 . 5625) (/ 631629067 -1073741824) -> -0.588250408880413) ((3924 . 5625) (/ 631629067 -1073741823) -> -0.588250409428263) ((3925 . 5625) (/ 631629067 -1073741822) -> -0.588250409976114) ((3926 . 5625) (/ 631629063 1073741822.0) -> 0.588250406250824) ((3927 . 5625) (/ 631629063 1073741823.0) -> 0.588250405702973) ((3928 . 5625) (/ 631629063 1073741824.0) -> 0.588250405155122) ((3929 . 5625) (/ 631629063 1073741825.0) -> 0.588250404607271) ((3930 . 5625) (/ 631629063 1073741826.0) -> 0.588250404059421) ((3931 . 5625) (/ 631629064 1073741822.0) -> 0.588250407182147) ((3932 . 5625) (/ 631629064 1073741823.0) -> 0.588250406634296) ((3933 . 5625) (/ 631629064 1073741824.0) -> 0.588250406086445) ((3934 . 5625) (/ 631629064 1073741825.0) -> 0.588250405538594) ((3935 . 5625) (/ 631629064 1073741826.0) -> 0.588250404990743) ((3936 . 5625) (/ 631629065 1073741822.0) -> 0.588250408113469) ((3937 . 5625) (/ 631629065 1073741823.0) -> 0.588250407565618) ((3938 . 5625) (/ 631629065 1073741824.0) -> 0.588250407017767) ((3939 . 5625) (/ 631629065 1073741825.0) -> 0.588250406469917) ((3940 . 5625) (/ 631629065 1073741826.0) -> 0.588250405922066) ((3941 . 5625) (/ 631629066 1073741822.0) -> 0.588250409044792) ((3942 . 5625) (/ 631629066 1073741823.0) -> 0.588250408496941) ((3943 . 5625) (/ 631629066 1073741824.0) -> 0.58825040794909) ((3944 . 5625) (/ 631629066 1073741825.0) -> 0.588250407401239) ((3945 . 5625) (/ 631629066 1073741826.0) -> 0.588250406853388) ((3946 . 5625) (/ 631629067 1073741822.0) -> 0.588250409976114) ((3947 . 5625) (/ 631629067 1073741823.0) -> 0.588250409428263) ((3948 . 5625) (/ 631629067 1073741824.0) -> 0.588250408880413) ((3949 . 5625) (/ 631629067 1073741825.0) -> 0.588250408332562) ((3950 . 5625) (/ 631629067 1073741826.0) -> 0.588250407784711) ((3951 . 5625) (/ 631629063 -1073741827.0) -> -0.58825040351157) ((3952 . 5625) (/ 631629063 -1073741826.0) -> -0.588250404059421) ((3953 . 5625) (/ 631629063 -1073741825.0) -> -0.588250404607271) ((3954 . 5625) (/ 631629063 -1073741824.0) -> -0.588250405155122) ((3955 . 5625) (/ 631629063 -1073741823.0) -> -0.588250405702973) ((3956 . 5625) (/ 631629064 -1073741827.0) -> -0.588250404442892) ((3957 . 5625) (/ 631629064 -1073741826.0) -> -0.588250404990743) ((3958 . 5625) (/ 631629064 -1073741825.0) -> -0.588250405538594) ((3959 . 5625) (/ 631629064 -1073741824.0) -> -0.588250406086445) ((3960 . 5625) (/ 631629064 -1073741823.0) -> -0.588250406634296) ((3961 . 5625) (/ 631629065 -1073741827.0) -> -0.588250405374215) ((3962 . 5625) (/ 631629065 -1073741826.0) -> -0.588250405922066) ((3963 . 5625) (/ 631629065 -1073741825.0) -> -0.588250406469917) ((3964 . 5625) (/ 631629065 -1073741824.0) -> -0.588250407017767) ((3965 . 5625) (/ 631629065 -1073741823.0) -> -0.588250407565618) ((3966 . 5625) (/ 631629066 -1073741827.0) -> -0.588250406305537) ((3967 . 5625) (/ 631629066 -1073741826.0) -> -0.588250406853388) ((3968 . 5625) (/ 631629066 -1073741825.0) -> -0.588250407401239) ((3969 . 5625) (/ 631629066 -1073741824.0) -> -0.58825040794909) ((3970 . 5625) (/ 631629066 -1073741823.0) -> -0.588250408496941) ((3971 . 5625) (/ 631629067 -1073741827.0) -> -0.58825040723686) ((3972 . 5625) (/ 631629067 -1073741826.0) -> -0.588250407784711) ((3973 . 5625) (/ 631629067 -1073741825.0) -> -0.588250408332562) ((3974 . 5625) (/ 631629067 -1073741824.0) -> -0.588250408880413) ((3975 . 5625) (/ 631629067 -1073741823.0) -> -0.588250409428263) ((3976 . 5625) (/ 631629063 1103515243.0) -> 0.572379101246361) ((3977 . 5625) (/ 631629063 1103515244.0) -> 0.572379100727674) ((3978 . 5625) (/ 631629063 1103515245.0) -> 0.572379100208987) ((3979 . 5625) (/ 631629063 1103515246.0) -> 0.5723790996903) ((3980 . 5625) (/ 631629063 1103515247.0) -> 0.572379099171613) ((3981 . 5625) (/ 631629064 1103515243.0) -> 0.572379102152556) ((3982 . 5625) (/ 631629064 1103515244.0) -> 0.572379101633869) ((3983 . 5625) (/ 631629064 1103515245.0) -> 0.572379101115182) ((3984 . 5625) (/ 631629064 1103515246.0) -> 0.572379100596495) ((3985 . 5625) (/ 631629064 1103515247.0) -> 0.572379100077808) ((3986 . 5625) (/ 631629065 1103515243.0) -> 0.572379103058751) ((3987 . 5625) (/ 631629065 1103515244.0) -> 0.572379102540064) ((3988 . 5625) (/ 631629065 1103515245.0) -> 0.572379102021377) ((3989 . 5625) (/ 631629065 1103515246.0) -> 0.57237910150269) ((3990 . 5625) (/ 631629065 1103515247.0) -> 0.572379100984003) ((3991 . 5625) (/ 631629066 1103515243.0) -> 0.572379103964946) ((3992 . 5625) (/ 631629066 1103515244.0) -> 0.572379103446259) ((3993 . 5625) (/ 631629066 1103515245.0) -> 0.572379102927572) ((3994 . 5625) (/ 631629066 1103515246.0) -> 0.572379102408885) ((3995 . 5625) (/ 631629066 1103515247.0) -> 0.572379101890198) ((3996 . 5625) (/ 631629067 1103515243.0) -> 0.572379104871141) ((3997 . 5625) (/ 631629067 1103515244.0) -> 0.572379104352454) ((3998 . 5625) (/ 631629067 1103515245.0) -> 0.572379103833767) ((3999 . 5625) (/ 631629067 1103515246.0) -> 0.57237910331508) ((4000 . 5625) (/ 631629067 1103515247.0) -> 0.572379102796393) ((4001 . 5625) (/ 631629063 631629063) -> 1) ((4002 . 5625) (/ 631629063 631629064) -> 0.999999998416792) ((4003 . 5625) (/ 631629063 631629065) -> 0.999999996833585) ((4004 . 5625) (/ 631629063 631629066) -> 0.999999995250377) ((4005 . 5625) (/ 631629063 631629067) -> 0.999999993667169) ((4006 . 5625) (/ 631629064 631629063) -> 1.00000000158321) ((4007 . 5625) (/ 631629064 631629064) -> 1) ((4008 . 5625) (/ 631629064 631629065) -> 0.999999998416792) ((4009 . 5625) (/ 631629064 631629066) -> 0.999999996833585) ((4010 . 5625) (/ 631629064 631629067) -> 0.999999995250377) ((4011 . 5625) (/ 631629065 631629063) -> 1.00000000316642) ((4012 . 5625) (/ 631629065 631629064) -> 1.00000000158321) ((4013 . 5625) (/ 631629065 631629065) -> 1) ((4014 . 5625) (/ 631629065 631629066) -> 0.999999998416792) ((4015 . 5625) (/ 631629065 631629067) -> 0.999999996833585) ((4016 . 5625) (/ 631629066 631629063) -> 1.00000000474962) ((4017 . 5625) (/ 631629066 631629064) -> 1.00000000316642) ((4018 . 5625) (/ 631629066 631629065) -> 1.00000000158321) ((4019 . 5625) (/ 631629066 631629066) -> 1) ((4020 . 5625) (/ 631629066 631629067) -> 0.999999998416792) ((4021 . 5625) (/ 631629067 631629063) -> 1.00000000633283) ((4022 . 5625) (/ 631629067 631629064) -> 1.00000000474962) ((4023 . 5625) (/ 631629067 631629065) -> 1.00000000316642) ((4024 . 5625) (/ 631629067 631629066) -> 1.00000000158321) ((4025 . 5625) (/ 631629067 631629067) -> 1) ((4026 . 5625) (/ 631629063 9.00719925474099e+15) -> 7.01249128765014e-08) ((4027 . 5625) (/ 631629063 9.00719925474099e+15) -> 7.01249128765014e-08) ((4028 . 5625) (/ 631629063 9.00719925474099e+15) -> 7.01249128765014e-08) ((4029 . 5625) (/ 631629063 9.00719925474099e+15) -> 7.01249128765014e-08) ((4030 . 5625) (/ 631629063 9.00719925474099e+15) -> 7.01249128765013e-08) ((4031 . 5625) (/ 631629064 9.00719925474099e+15) -> 7.01249129875237e-08) ((4032 . 5625) (/ 631629064 9.00719925474099e+15) -> 7.01249129875237e-08) ((4033 . 5625) (/ 631629064 9.00719925474099e+15) -> 7.01249129875237e-08) ((4034 . 5625) (/ 631629064 9.00719925474099e+15) -> 7.01249129875237e-08) ((4035 . 5625) (/ 631629064 9.00719925474099e+15) -> 7.01249129875236e-08) ((4036 . 5625) (/ 631629065 9.00719925474099e+15) -> 7.0124913098546e-08) ((4037 . 5625) (/ 631629065 9.00719925474099e+15) -> 7.0124913098546e-08) ((4038 . 5625) (/ 631629065 9.00719925474099e+15) -> 7.0124913098546e-08) ((4039 . 5625) (/ 631629065 9.00719925474099e+15) -> 7.0124913098546e-08) ((4040 . 5625) (/ 631629065 9.00719925474099e+15) -> 7.01249130985459e-08) ((4041 . 5625) (/ 631629066 9.00719925474099e+15) -> 7.01249132095683e-08) ((4042 . 5625) (/ 631629066 9.00719925474099e+15) -> 7.01249132095683e-08) ((4043 . 5625) (/ 631629066 9.00719925474099e+15) -> 7.01249132095683e-08) ((4044 . 5625) (/ 631629066 9.00719925474099e+15) -> 7.01249132095683e-08) ((4045 . 5625) (/ 631629066 9.00719925474099e+15) -> 7.01249132095682e-08) ((4046 . 5625) (/ 631629067 9.00719925474099e+15) -> 7.01249133205906e-08) ((4047 . 5625) (/ 631629067 9.00719925474099e+15) -> 7.01249133205906e-08) ((4048 . 5625) (/ 631629067 9.00719925474099e+15) -> 7.01249133205906e-08) ((4049 . 5625) (/ 631629067 9.00719925474099e+15) -> 7.01249133205906e-08) ((4050 . 5625) (/ 631629067 9.00719925474099e+15) -> 7.01249133205906e-08) ((4051 . 5625) (/ 631629063 -9.00719925474099e+15) -> -7.01249128765013e-08) ((4052 . 5625) (/ 631629063 -9.00719925474099e+15) -> -7.01249128765014e-08) ((4053 . 5625) (/ 631629063 -9.00719925474099e+15) -> -7.01249128765014e-08) ((4054 . 5625) (/ 631629063 -9.00719925474099e+15) -> -7.01249128765014e-08) ((4055 . 5625) (/ 631629063 -9.00719925474099e+15) -> -7.01249128765014e-08) ((4056 . 5625) (/ 631629064 -9.00719925474099e+15) -> -7.01249129875236e-08) ((4057 . 5625) (/ 631629064 -9.00719925474099e+15) -> -7.01249129875237e-08) ((4058 . 5625) (/ 631629064 -9.00719925474099e+15) -> -7.01249129875237e-08) ((4059 . 5625) (/ 631629064 -9.00719925474099e+15) -> -7.01249129875237e-08) ((4060 . 5625) (/ 631629064 -9.00719925474099e+15) -> -7.01249129875237e-08) ((4061 . 5625) (/ 631629065 -9.00719925474099e+15) -> -7.01249130985459e-08) ((4062 . 5625) (/ 631629065 -9.00719925474099e+15) -> -7.0124913098546e-08) ((4063 . 5625) (/ 631629065 -9.00719925474099e+15) -> -7.0124913098546e-08) ((4064 . 5625) (/ 631629065 -9.00719925474099e+15) -> -7.0124913098546e-08) ((4065 . 5625) (/ 631629065 -9.00719925474099e+15) -> -7.0124913098546e-08) ((4066 . 5625) (/ 631629066 -9.00719925474099e+15) -> -7.01249132095682e-08) ((4067 . 5625) (/ 631629066 -9.00719925474099e+15) -> -7.01249132095683e-08) ((4068 . 5625) (/ 631629066 -9.00719925474099e+15) -> -7.01249132095683e-08) ((4069 . 5625) (/ 631629066 -9.00719925474099e+15) -> -7.01249132095683e-08) ((4070 . 5625) (/ 631629066 -9.00719925474099e+15) -> -7.01249132095683e-08) ((4071 . 5625) (/ 631629067 -9.00719925474099e+15) -> -7.01249133205906e-08) ((4072 . 5625) (/ 631629067 -9.00719925474099e+15) -> -7.01249133205906e-08) ((4073 . 5625) (/ 631629067 -9.00719925474099e+15) -> -7.01249133205906e-08) ((4074 . 5625) (/ 631629067 -9.00719925474099e+15) -> -7.01249133205906e-08) ((4075 . 5625) (/ 631629067 -9.00719925474099e+15) -> -7.01249133205906e-08) ((4076 . 5625) (/ 631629063 12343) -> 51173.0586567285) ((4077 . 5625) (/ 631629063 12344) -> 51168.9130751782) ((4078 . 5625) (/ 631629063 12345) -> 51164.7681652491) ((4079 . 5625) (/ 631629063 12346) -> 51160.6239267779) ((4080 . 5625) (/ 631629063 12347) -> 51156.4803596015) ((4081 . 5625) (/ 631629064 12343) -> 51173.0587377461) ((4082 . 5625) (/ 631629064 12344) -> 51168.9131561892) ((4083 . 5625) (/ 631629064 12345) -> 51164.7682462535) ((4084 . 5625) (/ 631629064 12346) -> 51160.6240077758) ((4085 . 5625) (/ 631629064 12347) -> 51156.4804405929) ((4086 . 5625) (/ 631629065 12343) -> 51173.0588187637) ((4087 . 5625) (/ 631629065 12344) -> 51168.9132372003) ((4088 . 5625) (/ 631629065 12345) -> 51164.768327258) ((4089 . 5625) (/ 631629065 12346) -> 51160.6240887737) ((4090 . 5625) (/ 631629065 12347) -> 51156.4805215842) ((4091 . 5625) (/ 631629066 12343) -> 51173.0588997813) ((4092 . 5625) (/ 631629066 12344) -> 51168.9133182113) ((4093 . 5625) (/ 631629066 12345) -> 51164.7684082625) ((4094 . 5625) (/ 631629066 12346) -> 51160.6241697716) ((4095 . 5625) (/ 631629066 12347) -> 51156.4806025755) ((4096 . 5625) (/ 631629067 12343) -> 51173.0589807988) ((4097 . 5625) (/ 631629067 12344) -> 51168.9133992223) ((4098 . 5625) (/ 631629067 12345) -> 51164.7684892669) ((4099 . 5625) (/ 631629067 12346) -> 51160.6242507695) ((4100 . 5625) (/ 631629067 12347) -> 51156.4806835669) ((4101 . 5625) (/ 631629063 4294967294.0) -> 0.147062601357262) ((4102 . 5625) (/ 631629063 4294967295.0) -> 0.147062601323021) ((4103 . 5625) (/ 631629063 4294967296.0) -> 0.147062601288781) ((4104 . 5625) (/ 631629063 4294967297.0) -> 0.14706260125454) ((4105 . 5625) (/ 631629063 4294967298.0) -> 0.147062601220299) ((4106 . 5625) (/ 631629064 4294967294.0) -> 0.147062601590093) ((4107 . 5625) (/ 631629064 4294967295.0) -> 0.147062601555852) ((4108 . 5625) (/ 631629064 4294967296.0) -> 0.147062601521611) ((4109 . 5625) (/ 631629064 4294967297.0) -> 0.147062601487371) ((4110 . 5625) (/ 631629064 4294967298.0) -> 0.14706260145313) ((4111 . 5625) (/ 631629065 4294967294.0) -> 0.147062601822923) ((4112 . 5625) (/ 631629065 4294967295.0) -> 0.147062601788683) ((4113 . 5625) (/ 631629065 4294967296.0) -> 0.147062601754442) ((4114 . 5625) (/ 631629065 4294967297.0) -> 0.147062601720201) ((4115 . 5625) (/ 631629065 4294967298.0) -> 0.14706260168596) ((4116 . 5625) (/ 631629066 4294967294.0) -> 0.147062602055754) ((4117 . 5625) (/ 631629066 4294967295.0) -> 0.147062602021513) ((4118 . 5625) (/ 631629066 4294967296.0) -> 0.147062601987273) ((4119 . 5625) (/ 631629066 4294967297.0) -> 0.147062601953032) ((4120 . 5625) (/ 631629066 4294967298.0) -> 0.147062601918791) ((4121 . 5625) (/ 631629067 4294967294.0) -> 0.147062602288585) ((4122 . 5625) (/ 631629067 4294967295.0) -> 0.147062602254344) ((4123 . 5625) (/ 631629067 4294967296.0) -> 0.147062602220103) ((4124 . 5625) (/ 631629067 4294967297.0) -> 0.147062602185862) ((4125 . 5625) (/ 631629067 4294967298.0) -> 0.147062602151622) ((4126 . 5625) (/ 9.00719925474099e+15 -2) -> -4.5035996273705e+15) ((4127 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4128 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4129 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4130 . 5625) (/ 9.00719925474099e+15 2) -> 4.5035996273705e+15) ((4131 . 5625) (/ 9.00719925474099e+15 -2) -> -4.5035996273705e+15) ((4132 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4133 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4134 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4135 . 5625) (/ 9.00719925474099e+15 2) -> 4.5035996273705e+15) ((4136 . 5625) (/ 9.00719925474099e+15 -2) -> -4.5035996273705e+15) ((4137 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4138 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4139 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4140 . 5625) (/ 9.00719925474099e+15 2) -> 4.5035996273705e+15) ((4141 . 5625) (/ 9.00719925474099e+15 -2) -> -4.5035996273705e+15) ((4142 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4143 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4144 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4145 . 5625) (/ 9.00719925474099e+15 2) -> 4.5035996273705e+15) ((4146 . 5625) (/ 9.00719925474099e+15 -2) -> -4.5035996273705e+15) ((4147 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4148 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4149 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4150 . 5625) (/ 9.00719925474099e+15 2) -> 4.5035996273705e+15) ((4151 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4152 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4153 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4154 . 5625) (/ 9.00719925474099e+15 2) -> 4.5035996273705e+15) ((4155 . 5625) (/ 9.00719925474099e+15 3) -> 3.00239975158033e+15) ((4156 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4157 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4158 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4159 . 5625) (/ 9.00719925474099e+15 2) -> 4.5035996273705e+15) ((4160 . 5625) (/ 9.00719925474099e+15 3) -> 3.00239975158033e+15) ((4161 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4162 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4163 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4164 . 5625) (/ 9.00719925474099e+15 2) -> 4.5035996273705e+15) ((4165 . 5625) (/ 9.00719925474099e+15 3) -> 3.00239975158033e+15) ((4166 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4167 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4168 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4169 . 5625) (/ 9.00719925474099e+15 2) -> 4.5035996273705e+15) ((4170 . 5625) (/ 9.00719925474099e+15 3) -> 3.00239975158033e+15) ((4171 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4172 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4173 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4174 . 5625) (/ 9.00719925474099e+15 2) -> 4.5035996273705e+15) ((4175 . 5625) (/ 9.00719925474099e+15 3) -> 3.00239975158033e+15) ((4176 . 5625) (/ 9.00719925474099e+15 -3) -> -3.00239975158033e+15) ((4177 . 5625) (/ 9.00719925474099e+15 -2) -> -4.5035996273705e+15) ((4178 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4179 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4180 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4181 . 5625) (/ 9.00719925474099e+15 -3) -> -3.00239975158033e+15) ((4182 . 5625) (/ 9.00719925474099e+15 -2) -> -4.5035996273705e+15) ((4183 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4184 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4185 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4186 . 5625) (/ 9.00719925474099e+15 -3) -> -3.00239975158033e+15) ((4187 . 5625) (/ 9.00719925474099e+15 -2) -> -4.5035996273705e+15) ((4188 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4189 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4190 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4191 . 5625) (/ 9.00719925474099e+15 -3) -> -3.00239975158033e+15) ((4192 . 5625) (/ 9.00719925474099e+15 -2) -> -4.5035996273705e+15) ((4193 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4194 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4195 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4196 . 5625) (/ 9.00719925474099e+15 -3) -> -3.00239975158033e+15) ((4197 . 5625) (/ 9.00719925474099e+15 -2) -> -4.5035996273705e+15) ((4198 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4199 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4200 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4201 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4202 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4203 . 5625) (/ 9.00719925474099e+15 2) -> 4.5035996273705e+15) ((4204 . 5625) (/ 9.00719925474099e+15 3) -> 3.00239975158033e+15) ((4205 . 5625) (/ 9.00719925474099e+15 4) -> 2.25179981368525e+15) ((4206 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4207 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4208 . 5625) (/ 9.00719925474099e+15 2) -> 4.5035996273705e+15) ((4209 . 5625) (/ 9.00719925474099e+15 3) -> 3.00239975158033e+15) ((4210 . 5625) (/ 9.00719925474099e+15 4) -> 2.25179981368525e+15) ((4211 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4212 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4213 . 5625) (/ 9.00719925474099e+15 2) -> 4.5035996273705e+15) ((4214 . 5625) (/ 9.00719925474099e+15 3) -> 3.00239975158033e+15) ((4215 . 5625) (/ 9.00719925474099e+15 4) -> 2.25179981368525e+15) ((4216 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4217 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4218 . 5625) (/ 9.00719925474099e+15 2) -> 4.5035996273705e+15) ((4219 . 5625) (/ 9.00719925474099e+15 3) -> 3.00239975158033e+15) ((4220 . 5625) (/ 9.00719925474099e+15 4) -> 2.25179981368525e+15) ((4221 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4222 . 5625) (/ 9.00719925474099e+15 1) -> 9.00719925474099e+15) ((4223 . 5625) (/ 9.00719925474099e+15 2) -> 4.5035996273705e+15) ((4224 . 5625) (/ 9.00719925474099e+15 3) -> 3.00239975158033e+15) ((4225 . 5625) (/ 9.00719925474099e+15 4) -> 2.25179981368525e+15) ((4226 . 5625) (/ 9.00719925474099e+15 -4) -> -2.25179981368525e+15) ((4227 . 5625) (/ 9.00719925474099e+15 -3) -> -3.00239975158033e+15) ((4228 . 5625) (/ 9.00719925474099e+15 -2) -> -4.5035996273705e+15) ((4229 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4230 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4231 . 5625) (/ 9.00719925474099e+15 -4) -> -2.25179981368525e+15) ((4232 . 5625) (/ 9.00719925474099e+15 -3) -> -3.00239975158033e+15) ((4233 . 5625) (/ 9.00719925474099e+15 -2) -> -4.5035996273705e+15) ((4234 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4235 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4236 . 5625) (/ 9.00719925474099e+15 -4) -> -2.25179981368525e+15) ((4237 . 5625) (/ 9.00719925474099e+15 -3) -> -3.00239975158033e+15) ((4238 . 5625) (/ 9.00719925474099e+15 -2) -> -4.5035996273705e+15) ((4239 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4240 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4241 . 5625) (/ 9.00719925474099e+15 -4) -> -2.25179981368525e+15) ((4242 . 5625) (/ 9.00719925474099e+15 -3) -> -3.00239975158033e+15) ((4243 . 5625) (/ 9.00719925474099e+15 -2) -> -4.5035996273705e+15) ((4244 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4245 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4246 . 5625) (/ 9.00719925474099e+15 -4) -> -2.25179981368525e+15) ((4247 . 5625) (/ 9.00719925474099e+15 -3) -> -3.00239975158033e+15) ((4248 . 5625) (/ 9.00719925474099e+15 -2) -> -4.5035996273705e+15) ((4249 . 5625) (/ 9.00719925474099e+15 -1) -> -9.00719925474099e+15) ((4250 . 5625) (/ 9.00719925474099e+15 0) -> "division by zero") ((4251 . 5625) (/ 9.00719925474099e+15 1073741821) -> 8388608.0234375) ((4252 . 5625) (/ 9.00719925474099e+15 1073741822) -> 8388608.015625) ((4253 . 5625) (/ 9.00719925474099e+15 1073741823) -> 8388608.0078125) ((4254 . 5625) (/ 9.00719925474099e+15 1073741824.0) -> 8388608.0) ((4255 . 5625) (/ 9.00719925474099e+15 1073741825.0) -> 8388607.9921875) ((4256 . 5625) (/ 9.00719925474099e+15 1073741821) -> 8388608.0234375) ((4257 . 5625) (/ 9.00719925474099e+15 1073741822) -> 8388608.015625) ((4258 . 5625) (/ 9.00719925474099e+15 1073741823) -> 8388608.0078125) ((4259 . 5625) (/ 9.00719925474099e+15 1073741824.0) -> 8388608.0) ((4260 . 5625) (/ 9.00719925474099e+15 1073741825.0) -> 8388607.9921875) ((4261 . 5625) (/ 9.00719925474099e+15 1073741821) -> 8388608.0234375) ((4262 . 5625) (/ 9.00719925474099e+15 1073741822) -> 8388608.015625) ((4263 . 5625) (/ 9.00719925474099e+15 1073741823) -> 8388608.0078125) ((4264 . 5625) (/ 9.00719925474099e+15 1073741824.0) -> 8388608.0) ((4265 . 5625) (/ 9.00719925474099e+15 1073741825.0) -> 8388607.9921875) ((4266 . 5625) (/ 9.00719925474099e+15 1073741821) -> 8388608.0234375) ((4267 . 5625) (/ 9.00719925474099e+15 1073741822) -> 8388608.015625) ((4268 . 5625) (/ 9.00719925474099e+15 1073741823) -> 8388608.0078125) ((4269 . 5625) (/ 9.00719925474099e+15 1073741824.0) -> 8388608.0) ((4270 . 5625) (/ 9.00719925474099e+15 1073741825.0) -> 8388607.9921875) ((4271 . 5625) (/ 9.00719925474099e+15 1073741821) -> 8388608.0234375) ((4272 . 5625) (/ 9.00719925474099e+15 1073741822) -> 8388608.015625) ((4273 . 5625) (/ 9.00719925474099e+15 1073741823) -> 8388608.0078125) ((4274 . 5625) (/ 9.00719925474099e+15 1073741824.0) -> 8388608.0) ((4275 . 5625) (/ 9.00719925474099e+15 1073741825.0) -> 8388607.9921875) ((4276 . 5625) (/ 9.00719925474099e+15 -1073741826.0) -> -8388607.984375) ((4277 . 5625) (/ 9.00719925474099e+15 -1073741825.0) -> -8388607.9921875) ((4278 . 5625) (/ 9.00719925474099e+15 -1073741824) -> -8388608.0) ((4279 . 5625) (/ 9.00719925474099e+15 -1073741823) -> -8388608.0078125) ((4280 . 5625) (/ 9.00719925474099e+15 -1073741822) -> -8388608.015625) ((4281 . 5625) (/ 9.00719925474099e+15 -1073741826.0) -> -8388607.984375) ((4282 . 5625) (/ 9.00719925474099e+15 -1073741825.0) -> -8388607.9921875) ((4283 . 5625) (/ 9.00719925474099e+15 -1073741824) -> -8388608.0) ((4284 . 5625) (/ 9.00719925474099e+15 -1073741823) -> -8388608.0078125) ((4285 . 5625) (/ 9.00719925474099e+15 -1073741822) -> -8388608.015625) ((4286 . 5625) (/ 9.00719925474099e+15 -1073741826.0) -> -8388607.984375) ((4287 . 5625) (/ 9.00719925474099e+15 -1073741825.0) -> -8388607.9921875) ((4288 . 5625) (/ 9.00719925474099e+15 -1073741824) -> -8388608.0) ((4289 . 5625) (/ 9.00719925474099e+15 -1073741823) -> -8388608.0078125) ((4290 . 5625) (/ 9.00719925474099e+15 -1073741822) -> -8388608.015625) ((4291 . 5625) (/ 9.00719925474099e+15 -1073741826.0) -> -8388607.984375) ((4292 . 5625) (/ 9.00719925474099e+15 -1073741825.0) -> -8388607.9921875) ((4293 . 5625) (/ 9.00719925474099e+15 -1073741824) -> -8388608.0) ((4294 . 5625) (/ 9.00719925474099e+15 -1073741823) -> -8388608.0078125) ((4295 . 5625) (/ 9.00719925474099e+15 -1073741822) -> -8388608.015625) ((4296 . 5625) (/ 9.00719925474099e+15 -1073741826.0) -> -8388607.984375) ((4297 . 5625) (/ 9.00719925474099e+15 -1073741825.0) -> -8388607.9921875) ((4298 . 5625) (/ 9.00719925474099e+15 -1073741824) -> -8388608.0) ((4299 . 5625) (/ 9.00719925474099e+15 -1073741823) -> -8388608.0078125) ((4300 . 5625) (/ 9.00719925474099e+15 -1073741822) -> -8388608.015625) ((4301 . 5625) (/ 9.00719925474099e+15 1073741822.0) -> 8388608.015625) ((4302 . 5625) (/ 9.00719925474099e+15 1073741823.0) -> 8388608.0078125) ((4303 . 5625) (/ 9.00719925474099e+15 1073741824.0) -> 8388608.0) ((4304 . 5625) (/ 9.00719925474099e+15 1073741825.0) -> 8388607.9921875) ((4305 . 5625) (/ 9.00719925474099e+15 1073741826.0) -> 8388607.984375) ((4306 . 5625) (/ 9.00719925474099e+15 1073741822.0) -> 8388608.015625) ((4307 . 5625) (/ 9.00719925474099e+15 1073741823.0) -> 8388608.0078125) ((4308 . 5625) (/ 9.00719925474099e+15 1073741824.0) -> 8388608.0) ((4309 . 5625) (/ 9.00719925474099e+15 1073741825.0) -> 8388607.9921875) ((4310 . 5625) (/ 9.00719925474099e+15 1073741826.0) -> 8388607.984375) ((4311 . 5625) (/ 9.00719925474099e+15 1073741822.0) -> 8388608.015625) ((4312 . 5625) (/ 9.00719925474099e+15 1073741823.0) -> 8388608.0078125) ((4313 . 5625) (/ 9.00719925474099e+15 1073741824.0) -> 8388608.0) ((4314 . 5625) (/ 9.00719925474099e+15 1073741825.0) -> 8388607.9921875) ((4315 . 5625) (/ 9.00719925474099e+15 1073741826.0) -> 8388607.984375) ((4316 . 5625) (/ 9.00719925474099e+15 1073741822.0) -> 8388608.015625) ((4317 . 5625) (/ 9.00719925474099e+15 1073741823.0) -> 8388608.0078125) ((4318 . 5625) (/ 9.00719925474099e+15 1073741824.0) -> 8388608.0) ((4319 . 5625) (/ 9.00719925474099e+15 1073741825.0) -> 8388607.9921875) ((4320 . 5625) (/ 9.00719925474099e+15 1073741826.0) -> 8388607.984375) ((4321 . 5625) (/ 9.00719925474099e+15 1073741822.0) -> 8388608.015625) ((4322 . 5625) (/ 9.00719925474099e+15 1073741823.0) -> 8388608.0078125) ((4323 . 5625) (/ 9.00719925474099e+15 1073741824.0) -> 8388608.0) ((4324 . 5625) (/ 9.00719925474099e+15 1073741825.0) -> 8388607.9921875) ((4325 . 5625) (/ 9.00719925474099e+15 1073741826.0) -> 8388607.984375) ((4326 . 5625) (/ 9.00719925474099e+15 -1073741827.0) -> -8388607.9765625) ((4327 . 5625) (/ 9.00719925474099e+15 -1073741826.0) -> -8388607.984375) ((4328 . 5625) (/ 9.00719925474099e+15 -1073741825.0) -> -8388607.9921875) ((4329 . 5625) (/ 9.00719925474099e+15 -1073741824.0) -> -8388608.0) ((4330 . 5625) (/ 9.00719925474099e+15 -1073741823.0) -> -8388608.0078125) ((4331 . 5625) (/ 9.00719925474099e+15 -1073741827.0) -> -8388607.9765625) ((4332 . 5625) (/ 9.00719925474099e+15 -1073741826.0) -> -8388607.984375) ((4333 . 5625) (/ 9.00719925474099e+15 -1073741825.0) -> -8388607.9921875) ((4334 . 5625) (/ 9.00719925474099e+15 -1073741824.0) -> -8388608.0) ((4335 . 5625) (/ 9.00719925474099e+15 -1073741823.0) -> -8388608.0078125) ((4336 . 5625) (/ 9.00719925474099e+15 -1073741827.0) -> -8388607.9765625) ((4337 . 5625) (/ 9.00719925474099e+15 -1073741826.0) -> -8388607.984375) ((4338 . 5625) (/ 9.00719925474099e+15 -1073741825.0) -> -8388607.9921875) ((4339 . 5625) (/ 9.00719925474099e+15 -1073741824.0) -> -8388608.0) ((4340 . 5625) (/ 9.00719925474099e+15 -1073741823.0) -> -8388608.0078125) ((4341 . 5625) (/ 9.00719925474099e+15 -1073741827.0) -> -8388607.9765625) ((4342 . 5625) (/ 9.00719925474099e+15 -1073741826.0) -> -8388607.984375) ((4343 . 5625) (/ 9.00719925474099e+15 -1073741825.0) -> -8388607.9921875) ((4344 . 5625) (/ 9.00719925474099e+15 -1073741824.0) -> -8388608.0) ((4345 . 5625) (/ 9.00719925474099e+15 -1073741823.0) -> -8388608.0078125) ((4346 . 5625) (/ 9.00719925474099e+15 -1073741827.0) -> -8388607.9765625) ((4347 . 5625) (/ 9.00719925474099e+15 -1073741826.0) -> -8388607.984375) ((4348 . 5625) (/ 9.00719925474099e+15 -1073741825.0) -> -8388607.9921875) ((4349 . 5625) (/ 9.00719925474099e+15 -1073741824.0) -> -8388608.0) ((4350 . 5625) (/ 9.00719925474099e+15 -1073741823.0) -> -8388608.0078125) ((4351 . 5625) (/ 9.00719925474099e+15 1103515243.0) -> 8162278.96431603) ((4352 . 5625) (/ 9.00719925474099e+15 1103515244.0) -> 8162278.95691941) ((4353 . 5625) (/ 9.00719925474099e+15 1103515245.0) -> 8162278.9495228) ((4354 . 5625) (/ 9.00719925474099e+15 1103515246.0) -> 8162278.94212618) ((4355 . 5625) (/ 9.00719925474099e+15 1103515247.0) -> 8162278.93472956) ((4356 . 5625) (/ 9.00719925474099e+15 1103515243.0) -> 8162278.96431603) ((4357 . 5625) (/ 9.00719925474099e+15 1103515244.0) -> 8162278.95691941) ((4358 . 5625) (/ 9.00719925474099e+15 1103515245.0) -> 8162278.9495228) ((4359 . 5625) (/ 9.00719925474099e+15 1103515246.0) -> 8162278.94212618) ((4360 . 5625) (/ 9.00719925474099e+15 1103515247.0) -> 8162278.93472956) ((4361 . 5625) (/ 9.00719925474099e+15 1103515243.0) -> 8162278.96431603) ((4362 . 5625) (/ 9.00719925474099e+15 1103515244.0) -> 8162278.95691941) ((4363 . 5625) (/ 9.00719925474099e+15 1103515245.0) -> 8162278.9495228) ((4364 . 5625) (/ 9.00719925474099e+15 1103515246.0) -> 8162278.94212618) ((4365 . 5625) (/ 9.00719925474099e+15 1103515247.0) -> 8162278.93472956) ((4366 . 5625) (/ 9.00719925474099e+15 1103515243.0) -> 8162278.96431603) ((4367 . 5625) (/ 9.00719925474099e+15 1103515244.0) -> 8162278.95691941) ((4368 . 5625) (/ 9.00719925474099e+15 1103515245.0) -> 8162278.9495228) ((4369 . 5625) (/ 9.00719925474099e+15 1103515246.0) -> 8162278.94212618) ((4370 . 5625) (/ 9.00719925474099e+15 1103515247.0) -> 8162278.93472956) ((4371 . 5625) (/ 9.00719925474099e+15 1103515243.0) -> 8162278.96431603) ((4372 . 5625) (/ 9.00719925474099e+15 1103515244.0) -> 8162278.95691941) ((4373 . 5625) (/ 9.00719925474099e+15 1103515245.0) -> 8162278.9495228) ((4374 . 5625) (/ 9.00719925474099e+15 1103515246.0) -> 8162278.94212618) ((4375 . 5625) (/ 9.00719925474099e+15 1103515247.0) -> 8162278.93472957) ((4376 . 5625) (/ 9.00719925474099e+15 631629063) -> 14260267.2713637) ((4377 . 5625) (/ 9.00719925474099e+15 631629064) -> 14260267.2487867) ((4378 . 5625) (/ 9.00719925474099e+15 631629065) -> 14260267.2262097) ((4379 . 5625) (/ 9.00719925474099e+15 631629066) -> 14260267.2036328) ((4380 . 5625) (/ 9.00719925474099e+15 631629067) -> 14260267.1810558) ((4381 . 5625) (/ 9.00719925474099e+15 631629063) -> 14260267.2713637) ((4382 . 5625) (/ 9.00719925474099e+15 631629064) -> 14260267.2487867) ((4383 . 5625) (/ 9.00719925474099e+15 631629065) -> 14260267.2262097) ((4384 . 5625) (/ 9.00719925474099e+15 631629066) -> 14260267.2036328) ((4385 . 5625) (/ 9.00719925474099e+15 631629067) -> 14260267.1810558) ((4386 . 5625) (/ 9.00719925474099e+15 631629063) -> 14260267.2713637) ((4387 . 5625) (/ 9.00719925474099e+15 631629064) -> 14260267.2487867) ((4388 . 5625) (/ 9.00719925474099e+15 631629065) -> 14260267.2262097) ((4389 . 5625) (/ 9.00719925474099e+15 631629066) -> 14260267.2036328) ((4390 . 5625) (/ 9.00719925474099e+15 631629067) -> 14260267.1810558) ((4391 . 5625) (/ 9.00719925474099e+15 631629063) -> 14260267.2713637) ((4392 . 5625) (/ 9.00719925474099e+15 631629064) -> 14260267.2487867) ((4393 . 5625) (/ 9.00719925474099e+15 631629065) -> 14260267.2262097) ((4394 . 5625) (/ 9.00719925474099e+15 631629066) -> 14260267.2036328) ((4395 . 5625) (/ 9.00719925474099e+15 631629067) -> 14260267.1810558) ((4396 . 5625) (/ 9.00719925474099e+15 631629063) -> 14260267.2713637) ((4397 . 5625) (/ 9.00719925474099e+15 631629064) -> 14260267.2487867) ((4398 . 5625) (/ 9.00719925474099e+15 631629065) -> 14260267.2262097) ((4399 . 5625) (/ 9.00719925474099e+15 631629066) -> 14260267.2036328) ((4400 . 5625) (/ 9.00719925474099e+15 631629067) -> 14260267.1810558) ((4401 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4402 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4403 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4404 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4405 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4406 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4407 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4408 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4409 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4410 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4411 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4412 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4413 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4414 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4415 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4416 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4417 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4418 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4419 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4420 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4421 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4422 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4423 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4424 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4425 . 5625) (/ 9.00719925474099e+15 9.00719925474099e+15) -> 1.0) ((4426 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4427 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4428 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4429 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4430 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4431 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4432 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4433 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4434 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4435 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4436 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4437 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4438 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4439 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4440 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4441 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4442 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4443 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4444 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4445 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4446 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4447 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4448 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4449 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4450 . 5625) (/ 9.00719925474099e+15 -9.00719925474099e+15) -> -1.0) ((4451 . 5625) (/ 9.00719925474099e+15 12343) -> 729741493538.118) ((4452 . 5625) (/ 9.00719925474099e+15 12344) -> 729682376437.216) ((4453 . 5625) (/ 9.00719925474099e+15 12345) -> 729623268913.81) ((4454 . 5625) (/ 9.00719925474099e+15 12346) -> 729564170965.575) ((4455 . 5625) (/ 9.00719925474099e+15 12347) -> 729505082590.183) ((4456 . 5625) (/ 9.00719925474099e+15 12343) -> 729741493538.118) ((4457 . 5625) (/ 9.00719925474099e+15 12344) -> 729682376437.216) ((4458 . 5625) (/ 9.00719925474099e+15 12345) -> 729623268913.811) ((4459 . 5625) (/ 9.00719925474099e+15 12346) -> 729564170965.575) ((4460 . 5625) (/ 9.00719925474099e+15 12347) -> 729505082590.183) ((4461 . 5625) (/ 9.00719925474099e+15 12343) -> 729741493538.118) ((4462 . 5625) (/ 9.00719925474099e+15 12344) -> 729682376437.216) ((4463 . 5625) (/ 9.00719925474099e+15 12345) -> 729623268913.811) ((4464 . 5625) (/ 9.00719925474099e+15 12346) -> 729564170965.575) ((4465 . 5625) (/ 9.00719925474099e+15 12347) -> 729505082590.183) ((4466 . 5625) (/ 9.00719925474099e+15 12343) -> 729741493538.118) ((4467 . 5625) (/ 9.00719925474099e+15 12344) -> 729682376437.216) ((4468 . 5625) (/ 9.00719925474099e+15 12345) -> 729623268913.811) ((4469 . 5625) (/ 9.00719925474099e+15 12346) -> 729564170965.575) ((4470 . 5625) (/ 9.00719925474099e+15 12347) -> 729505082590.183) ((4471 . 5625) (/ 9.00719925474099e+15 12343) -> 729741493538.118) ((4472 . 5625) (/ 9.00719925474099e+15 12344) -> 729682376437.216) ((4473 . 5625) (/ 9.00719925474099e+15 12345) -> 729623268913.811) ((4474 . 5625) (/ 9.00719925474099e+15 12346) -> 729564170965.575) ((4475 . 5625) (/ 9.00719925474099e+15 12347) -> 729505082590.183) ((4476 . 5625) (/ 9.00719925474099e+15 4294967294.0) -> 2097152.00097656) ((4477 . 5625) (/ 9.00719925474099e+15 4294967295.0) -> 2097152.00048828) ((4478 . 5625) (/ 9.00719925474099e+15 4294967296.0) -> 2097152.0) ((4479 . 5625) (/ 9.00719925474099e+15 4294967297.0) -> 2097151.99951172) ((4480 . 5625) (/ 9.00719925474099e+15 4294967298.0) -> 2097151.99902344) ((4481 . 5625) (/ 9.00719925474099e+15 4294967294.0) -> 2097152.00097656) ((4482 . 5625) (/ 9.00719925474099e+15 4294967295.0) -> 2097152.00048828) ((4483 . 5625) (/ 9.00719925474099e+15 4294967296.0) -> 2097152.0) ((4484 . 5625) (/ 9.00719925474099e+15 4294967297.0) -> 2097151.99951172) ((4485 . 5625) (/ 9.00719925474099e+15 4294967298.0) -> 2097151.99902344) ((4486 . 5625) (/ 9.00719925474099e+15 4294967294.0) -> 2097152.00097656) ((4487 . 5625) (/ 9.00719925474099e+15 4294967295.0) -> 2097152.00048828) ((4488 . 5625) (/ 9.00719925474099e+15 4294967296.0) -> 2097152.0) ((4489 . 5625) (/ 9.00719925474099e+15 4294967297.0) -> 2097151.99951172) ((4490 . 5625) (/ 9.00719925474099e+15 4294967298.0) -> 2097151.99902344) ((4491 . 5625) (/ 9.00719925474099e+15 4294967294.0) -> 2097152.00097656) ((4492 . 5625) (/ 9.00719925474099e+15 4294967295.0) -> 2097152.00048828) ((4493 . 5625) (/ 9.00719925474099e+15 4294967296.0) -> 2097152.0) ((4494 . 5625) (/ 9.00719925474099e+15 4294967297.0) -> 2097151.99951172) ((4495 . 5625) (/ 9.00719925474099e+15 4294967298.0) -> 2097151.99902344) ((4496 . 5625) (/ 9.00719925474099e+15 4294967294.0) -> 2097152.00097656) ((4497 . 5625) (/ 9.00719925474099e+15 4294967295.0) -> 2097152.00048828) ((4498 . 5625) (/ 9.00719925474099e+15 4294967296.0) -> 2097152.0) ((4499 . 5625) (/ 9.00719925474099e+15 4294967297.0) -> 2097151.99951172) ((4500 . 5625) (/ 9.00719925474099e+15 4294967298.0) -> 2097151.99902344) ((4501 . 5625) (/ -9.00719925474099e+15 -2) -> 4.5035996273705e+15) ((4502 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4503 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4504 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4505 . 5625) (/ -9.00719925474099e+15 2) -> -4.5035996273705e+15) ((4506 . 5625) (/ -9.00719925474099e+15 -2) -> 4.5035996273705e+15) ((4507 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4508 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4509 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4510 . 5625) (/ -9.00719925474099e+15 2) -> -4.5035996273705e+15) ((4511 . 5625) (/ -9.00719925474099e+15 -2) -> 4.5035996273705e+15) ((4512 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4513 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4514 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4515 . 5625) (/ -9.00719925474099e+15 2) -> -4.5035996273705e+15) ((4516 . 5625) (/ -9.00719925474099e+15 -2) -> 4.5035996273705e+15) ((4517 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4518 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4519 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4520 . 5625) (/ -9.00719925474099e+15 2) -> -4.5035996273705e+15) ((4521 . 5625) (/ -9.00719925474099e+15 -2) -> 4.5035996273705e+15) ((4522 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4523 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4524 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4525 . 5625) (/ -9.00719925474099e+15 2) -> -4.5035996273705e+15) ((4526 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4527 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4528 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4529 . 5625) (/ -9.00719925474099e+15 2) -> -4.5035996273705e+15) ((4530 . 5625) (/ -9.00719925474099e+15 3) -> -3.00239975158033e+15) ((4531 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4532 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4533 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4534 . 5625) (/ -9.00719925474099e+15 2) -> -4.5035996273705e+15) ((4535 . 5625) (/ -9.00719925474099e+15 3) -> -3.00239975158033e+15) ((4536 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4537 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4538 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4539 . 5625) (/ -9.00719925474099e+15 2) -> -4.5035996273705e+15) ((4540 . 5625) (/ -9.00719925474099e+15 3) -> -3.00239975158033e+15) ((4541 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4542 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4543 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4544 . 5625) (/ -9.00719925474099e+15 2) -> -4.5035996273705e+15) ((4545 . 5625) (/ -9.00719925474099e+15 3) -> -3.00239975158033e+15) ((4546 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4547 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4548 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4549 . 5625) (/ -9.00719925474099e+15 2) -> -4.5035996273705e+15) ((4550 . 5625) (/ -9.00719925474099e+15 3) -> -3.00239975158033e+15) ((4551 . 5625) (/ -9.00719925474099e+15 -3) -> 3.00239975158033e+15) ((4552 . 5625) (/ -9.00719925474099e+15 -2) -> 4.5035996273705e+15) ((4553 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4554 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4555 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4556 . 5625) (/ -9.00719925474099e+15 -3) -> 3.00239975158033e+15) ((4557 . 5625) (/ -9.00719925474099e+15 -2) -> 4.5035996273705e+15) ((4558 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4559 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4560 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4561 . 5625) (/ -9.00719925474099e+15 -3) -> 3.00239975158033e+15) ((4562 . 5625) (/ -9.00719925474099e+15 -2) -> 4.5035996273705e+15) ((4563 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4564 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4565 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4566 . 5625) (/ -9.00719925474099e+15 -3) -> 3.00239975158033e+15) ((4567 . 5625) (/ -9.00719925474099e+15 -2) -> 4.5035996273705e+15) ((4568 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4569 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4570 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4571 . 5625) (/ -9.00719925474099e+15 -3) -> 3.00239975158033e+15) ((4572 . 5625) (/ -9.00719925474099e+15 -2) -> 4.5035996273705e+15) ((4573 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4574 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4575 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4576 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4577 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4578 . 5625) (/ -9.00719925474099e+15 2) -> -4.5035996273705e+15) ((4579 . 5625) (/ -9.00719925474099e+15 3) -> -3.00239975158033e+15) ((4580 . 5625) (/ -9.00719925474099e+15 4) -> -2.25179981368525e+15) ((4581 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4582 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4583 . 5625) (/ -9.00719925474099e+15 2) -> -4.5035996273705e+15) ((4584 . 5625) (/ -9.00719925474099e+15 3) -> -3.00239975158033e+15) ((4585 . 5625) (/ -9.00719925474099e+15 4) -> -2.25179981368525e+15) ((4586 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4587 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4588 . 5625) (/ -9.00719925474099e+15 2) -> -4.5035996273705e+15) ((4589 . 5625) (/ -9.00719925474099e+15 3) -> -3.00239975158033e+15) ((4590 . 5625) (/ -9.00719925474099e+15 4) -> -2.25179981368525e+15) ((4591 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4592 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4593 . 5625) (/ -9.00719925474099e+15 2) -> -4.5035996273705e+15) ((4594 . 5625) (/ -9.00719925474099e+15 3) -> -3.00239975158033e+15) ((4595 . 5625) (/ -9.00719925474099e+15 4) -> -2.25179981368525e+15) ((4596 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4597 . 5625) (/ -9.00719925474099e+15 1) -> -9.00719925474099e+15) ((4598 . 5625) (/ -9.00719925474099e+15 2) -> -4.5035996273705e+15) ((4599 . 5625) (/ -9.00719925474099e+15 3) -> -3.00239975158033e+15) ((4600 . 5625) (/ -9.00719925474099e+15 4) -> -2.25179981368525e+15) ((4601 . 5625) (/ -9.00719925474099e+15 -4) -> 2.25179981368525e+15) ((4602 . 5625) (/ -9.00719925474099e+15 -3) -> 3.00239975158033e+15) ((4603 . 5625) (/ -9.00719925474099e+15 -2) -> 4.5035996273705e+15) ((4604 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4605 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4606 . 5625) (/ -9.00719925474099e+15 -4) -> 2.25179981368525e+15) ((4607 . 5625) (/ -9.00719925474099e+15 -3) -> 3.00239975158033e+15) ((4608 . 5625) (/ -9.00719925474099e+15 -2) -> 4.5035996273705e+15) ((4609 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4610 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4611 . 5625) (/ -9.00719925474099e+15 -4) -> 2.25179981368525e+15) ((4612 . 5625) (/ -9.00719925474099e+15 -3) -> 3.00239975158033e+15) ((4613 . 5625) (/ -9.00719925474099e+15 -2) -> 4.5035996273705e+15) ((4614 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4615 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4616 . 5625) (/ -9.00719925474099e+15 -4) -> 2.25179981368525e+15) ((4617 . 5625) (/ -9.00719925474099e+15 -3) -> 3.00239975158033e+15) ((4618 . 5625) (/ -9.00719925474099e+15 -2) -> 4.5035996273705e+15) ((4619 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4620 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4621 . 5625) (/ -9.00719925474099e+15 -4) -> 2.25179981368525e+15) ((4622 . 5625) (/ -9.00719925474099e+15 -3) -> 3.00239975158033e+15) ((4623 . 5625) (/ -9.00719925474099e+15 -2) -> 4.5035996273705e+15) ((4624 . 5625) (/ -9.00719925474099e+15 -1) -> 9.00719925474099e+15) ((4625 . 5625) (/ -9.00719925474099e+15 0) -> "division by zero") ((4626 . 5625) (/ -9.00719925474099e+15 1073741821) -> -8388608.0234375) ((4627 . 5625) (/ -9.00719925474099e+15 1073741822) -> -8388608.015625) ((4628 . 5625) (/ -9.00719925474099e+15 1073741823) -> -8388608.0078125) ((4629 . 5625) (/ -9.00719925474099e+15 1073741824.0) -> -8388608.0) ((4630 . 5625) (/ -9.00719925474099e+15 1073741825.0) -> -8388607.9921875) ((4631 . 5625) (/ -9.00719925474099e+15 1073741821) -> -8388608.0234375) ((4632 . 5625) (/ -9.00719925474099e+15 1073741822) -> -8388608.015625) ((4633 . 5625) (/ -9.00719925474099e+15 1073741823) -> -8388608.0078125) ((4634 . 5625) (/ -9.00719925474099e+15 1073741824.0) -> -8388608.0) ((4635 . 5625) (/ -9.00719925474099e+15 1073741825.0) -> -8388607.9921875) ((4636 . 5625) (/ -9.00719925474099e+15 1073741821) -> -8388608.0234375) ((4637 . 5625) (/ -9.00719925474099e+15 1073741822) -> -8388608.015625) ((4638 . 5625) (/ -9.00719925474099e+15 1073741823) -> -8388608.0078125) ((4639 . 5625) (/ -9.00719925474099e+15 1073741824.0) -> -8388608.0) ((4640 . 5625) (/ -9.00719925474099e+15 1073741825.0) -> -8388607.9921875) ((4641 . 5625) (/ -9.00719925474099e+15 1073741821) -> -8388608.0234375) ((4642 . 5625) (/ -9.00719925474099e+15 1073741822) -> -8388608.015625) ((4643 . 5625) (/ -9.00719925474099e+15 1073741823) -> -8388608.0078125) ((4644 . 5625) (/ -9.00719925474099e+15 1073741824.0) -> -8388608.0) ((4645 . 5625) (/ -9.00719925474099e+15 1073741825.0) -> -8388607.9921875) ((4646 . 5625) (/ -9.00719925474099e+15 1073741821) -> -8388608.0234375) ((4647 . 5625) (/ -9.00719925474099e+15 1073741822) -> -8388608.015625) ((4648 . 5625) (/ -9.00719925474099e+15 1073741823) -> -8388608.0078125) ((4649 . 5625) (/ -9.00719925474099e+15 1073741824.0) -> -8388608.0) ((4650 . 5625) (/ -9.00719925474099e+15 1073741825.0) -> -8388607.9921875) ((4651 . 5625) (/ -9.00719925474099e+15 -1073741826.0) -> 8388607.984375) ((4652 . 5625) (/ -9.00719925474099e+15 -1073741825.0) -> 8388607.9921875) ((4653 . 5625) (/ -9.00719925474099e+15 -1073741824) -> 8388608.0) ((4654 . 5625) (/ -9.00719925474099e+15 -1073741823) -> 8388608.0078125) ((4655 . 5625) (/ -9.00719925474099e+15 -1073741822) -> 8388608.015625) ((4656 . 5625) (/ -9.00719925474099e+15 -1073741826.0) -> 8388607.984375) ((4657 . 5625) (/ -9.00719925474099e+15 -1073741825.0) -> 8388607.9921875) ((4658 . 5625) (/ -9.00719925474099e+15 -1073741824) -> 8388608.0) ((4659 . 5625) (/ -9.00719925474099e+15 -1073741823) -> 8388608.0078125) ((4660 . 5625) (/ -9.00719925474099e+15 -1073741822) -> 8388608.015625) ((4661 . 5625) (/ -9.00719925474099e+15 -1073741826.0) -> 8388607.984375) ((4662 . 5625) (/ -9.00719925474099e+15 -1073741825.0) -> 8388607.9921875) ((4663 . 5625) (/ -9.00719925474099e+15 -1073741824) -> 8388608.0) ((4664 . 5625) (/ -9.00719925474099e+15 -1073741823) -> 8388608.0078125) ((4665 . 5625) (/ -9.00719925474099e+15 -1073741822) -> 8388608.015625) ((4666 . 5625) (/ -9.00719925474099e+15 -1073741826.0) -> 8388607.984375) ((4667 . 5625) (/ -9.00719925474099e+15 -1073741825.0) -> 8388607.9921875) ((4668 . 5625) (/ -9.00719925474099e+15 -1073741824) -> 8388608.0) ((4669 . 5625) (/ -9.00719925474099e+15 -1073741823) -> 8388608.0078125) ((4670 . 5625) (/ -9.00719925474099e+15 -1073741822) -> 8388608.015625) ((4671 . 5625) (/ -9.00719925474099e+15 -1073741826.0) -> 8388607.984375) ((4672 . 5625) (/ -9.00719925474099e+15 -1073741825.0) -> 8388607.9921875) ((4673 . 5625) (/ -9.00719925474099e+15 -1073741824) -> 8388608.0) ((4674 . 5625) (/ -9.00719925474099e+15 -1073741823) -> 8388608.0078125) ((4675 . 5625) (/ -9.00719925474099e+15 -1073741822) -> 8388608.015625) ((4676 . 5625) (/ -9.00719925474099e+15 1073741822.0) -> -8388608.015625) ((4677 . 5625) (/ -9.00719925474099e+15 1073741823.0) -> -8388608.0078125) ((4678 . 5625) (/ -9.00719925474099e+15 1073741824.0) -> -8388608.0) ((4679 . 5625) (/ -9.00719925474099e+15 1073741825.0) -> -8388607.9921875) ((4680 . 5625) (/ -9.00719925474099e+15 1073741826.0) -> -8388607.984375) ((4681 . 5625) (/ -9.00719925474099e+15 1073741822.0) -> -8388608.015625) ((4682 . 5625) (/ -9.00719925474099e+15 1073741823.0) -> -8388608.0078125) ((4683 . 5625) (/ -9.00719925474099e+15 1073741824.0) -> -8388608.0) ((4684 . 5625) (/ -9.00719925474099e+15 1073741825.0) -> -8388607.9921875) ((4685 . 5625) (/ -9.00719925474099e+15 1073741826.0) -> -8388607.984375) ((4686 . 5625) (/ -9.00719925474099e+15 1073741822.0) -> -8388608.015625) ((4687 . 5625) (/ -9.00719925474099e+15 1073741823.0) -> -8388608.0078125) ((4688 . 5625) (/ -9.00719925474099e+15 1073741824.0) -> -8388608.0) ((4689 . 5625) (/ -9.00719925474099e+15 1073741825.0) -> -8388607.9921875) ((4690 . 5625) (/ -9.00719925474099e+15 1073741826.0) -> -8388607.984375) ((4691 . 5625) (/ -9.00719925474099e+15 1073741822.0) -> -8388608.015625) ((4692 . 5625) (/ -9.00719925474099e+15 1073741823.0) -> -8388608.0078125) ((4693 . 5625) (/ -9.00719925474099e+15 1073741824.0) -> -8388608.0) ((4694 . 5625) (/ -9.00719925474099e+15 1073741825.0) -> -8388607.9921875) ((4695 . 5625) (/ -9.00719925474099e+15 1073741826.0) -> -8388607.984375) ((4696 . 5625) (/ -9.00719925474099e+15 1073741822.0) -> -8388608.015625) ((4697 . 5625) (/ -9.00719925474099e+15 1073741823.0) -> -8388608.0078125) ((4698 . 5625) (/ -9.00719925474099e+15 1073741824.0) -> -8388608.0) ((4699 . 5625) (/ -9.00719925474099e+15 1073741825.0) -> -8388607.9921875) ((4700 . 5625) (/ -9.00719925474099e+15 1073741826.0) -> -8388607.984375) ((4701 . 5625) (/ -9.00719925474099e+15 -1073741827.0) -> 8388607.9765625) ((4702 . 5625) (/ -9.00719925474099e+15 -1073741826.0) -> 8388607.984375) ((4703 . 5625) (/ -9.00719925474099e+15 -1073741825.0) -> 8388607.9921875) ((4704 . 5625) (/ -9.00719925474099e+15 -1073741824.0) -> 8388608.0) ((4705 . 5625) (/ -9.00719925474099e+15 -1073741823.0) -> 8388608.0078125) ((4706 . 5625) (/ -9.00719925474099e+15 -1073741827.0) -> 8388607.9765625) ((4707 . 5625) (/ -9.00719925474099e+15 -1073741826.0) -> 8388607.984375) ((4708 . 5625) (/ -9.00719925474099e+15 -1073741825.0) -> 8388607.9921875) ((4709 . 5625) (/ -9.00719925474099e+15 -1073741824.0) -> 8388608.0) ((4710 . 5625) (/ -9.00719925474099e+15 -1073741823.0) -> 8388608.0078125) ((4711 . 5625) (/ -9.00719925474099e+15 -1073741827.0) -> 8388607.9765625) ((4712 . 5625) (/ -9.00719925474099e+15 -1073741826.0) -> 8388607.984375) ((4713 . 5625) (/ -9.00719925474099e+15 -1073741825.0) -> 8388607.9921875) ((4714 . 5625) (/ -9.00719925474099e+15 -1073741824.0) -> 8388608.0) ((4715 . 5625) (/ -9.00719925474099e+15 -1073741823.0) -> 8388608.0078125) ((4716 . 5625) (/ -9.00719925474099e+15 -1073741827.0) -> 8388607.9765625) ((4717 . 5625) (/ -9.00719925474099e+15 -1073741826.0) -> 8388607.984375) ((4718 . 5625) (/ -9.00719925474099e+15 -1073741825.0) -> 8388607.9921875) ((4719 . 5625) (/ -9.00719925474099e+15 -1073741824.0) -> 8388608.0) ((4720 . 5625) (/ -9.00719925474099e+15 -1073741823.0) -> 8388608.0078125) ((4721 . 5625) (/ -9.00719925474099e+15 -1073741827.0) -> 8388607.9765625) ((4722 . 5625) (/ -9.00719925474099e+15 -1073741826.0) -> 8388607.984375) ((4723 . 5625) (/ -9.00719925474099e+15 -1073741825.0) -> 8388607.9921875) ((4724 . 5625) (/ -9.00719925474099e+15 -1073741824.0) -> 8388608.0) ((4725 . 5625) (/ -9.00719925474099e+15 -1073741823.0) -> 8388608.0078125) ((4726 . 5625) (/ -9.00719925474099e+15 1103515243.0) -> -8162278.96431603) ((4727 . 5625) (/ -9.00719925474099e+15 1103515244.0) -> -8162278.95691941) ((4728 . 5625) (/ -9.00719925474099e+15 1103515245.0) -> -8162278.9495228) ((4729 . 5625) (/ -9.00719925474099e+15 1103515246.0) -> -8162278.94212618) ((4730 . 5625) (/ -9.00719925474099e+15 1103515247.0) -> -8162278.93472957) ((4731 . 5625) (/ -9.00719925474099e+15 1103515243.0) -> -8162278.96431603) ((4732 . 5625) (/ -9.00719925474099e+15 1103515244.0) -> -8162278.95691941) ((4733 . 5625) (/ -9.00719925474099e+15 1103515245.0) -> -8162278.9495228) ((4734 . 5625) (/ -9.00719925474099e+15 1103515246.0) -> -8162278.94212618) ((4735 . 5625) (/ -9.00719925474099e+15 1103515247.0) -> -8162278.93472956) ((4736 . 5625) (/ -9.00719925474099e+15 1103515243.0) -> -8162278.96431603) ((4737 . 5625) (/ -9.00719925474099e+15 1103515244.0) -> -8162278.95691941) ((4738 . 5625) (/ -9.00719925474099e+15 1103515245.0) -> -8162278.9495228) ((4739 . 5625) (/ -9.00719925474099e+15 1103515246.0) -> -8162278.94212618) ((4740 . 5625) (/ -9.00719925474099e+15 1103515247.0) -> -8162278.93472956) ((4741 . 5625) (/ -9.00719925474099e+15 1103515243.0) -> -8162278.96431603) ((4742 . 5625) (/ -9.00719925474099e+15 1103515244.0) -> -8162278.95691941) ((4743 . 5625) (/ -9.00719925474099e+15 1103515245.0) -> -8162278.9495228) ((4744 . 5625) (/ -9.00719925474099e+15 1103515246.0) -> -8162278.94212618) ((4745 . 5625) (/ -9.00719925474099e+15 1103515247.0) -> -8162278.93472956) ((4746 . 5625) (/ -9.00719925474099e+15 1103515243.0) -> -8162278.96431603) ((4747 . 5625) (/ -9.00719925474099e+15 1103515244.0) -> -8162278.95691941) ((4748 . 5625) (/ -9.00719925474099e+15 1103515245.0) -> -8162278.9495228) ((4749 . 5625) (/ -9.00719925474099e+15 1103515246.0) -> -8162278.94212618) ((4750 . 5625) (/ -9.00719925474099e+15 1103515247.0) -> -8162278.93472956) ((4751 . 5625) (/ -9.00719925474099e+15 631629063) -> -14260267.2713637) ((4752 . 5625) (/ -9.00719925474099e+15 631629064) -> -14260267.2487867) ((4753 . 5625) (/ -9.00719925474099e+15 631629065) -> -14260267.2262097) ((4754 . 5625) (/ -9.00719925474099e+15 631629066) -> -14260267.2036328) ((4755 . 5625) (/ -9.00719925474099e+15 631629067) -> -14260267.1810558) ((4756 . 5625) (/ -9.00719925474099e+15 631629063) -> -14260267.2713637) ((4757 . 5625) (/ -9.00719925474099e+15 631629064) -> -14260267.2487867) ((4758 . 5625) (/ -9.00719925474099e+15 631629065) -> -14260267.2262097) ((4759 . 5625) (/ -9.00719925474099e+15 631629066) -> -14260267.2036328) ((4760 . 5625) (/ -9.00719925474099e+15 631629067) -> -14260267.1810558) ((4761 . 5625) (/ -9.00719925474099e+15 631629063) -> -14260267.2713637) ((4762 . 5625) (/ -9.00719925474099e+15 631629064) -> -14260267.2487867) ((4763 . 5625) (/ -9.00719925474099e+15 631629065) -> -14260267.2262097) ((4764 . 5625) (/ -9.00719925474099e+15 631629066) -> -14260267.2036328) ((4765 . 5625) (/ -9.00719925474099e+15 631629067) -> -14260267.1810558) ((4766 . 5625) (/ -9.00719925474099e+15 631629063) -> -14260267.2713637) ((4767 . 5625) (/ -9.00719925474099e+15 631629064) -> -14260267.2487867) ((4768 . 5625) (/ -9.00719925474099e+15 631629065) -> -14260267.2262097) ((4769 . 5625) (/ -9.00719925474099e+15 631629066) -> -14260267.2036328) ((4770 . 5625) (/ -9.00719925474099e+15 631629067) -> -14260267.1810558) ((4771 . 5625) (/ -9.00719925474099e+15 631629063) -> -14260267.2713637) ((4772 . 5625) (/ -9.00719925474099e+15 631629064) -> -14260267.2487867) ((4773 . 5625) (/ -9.00719925474099e+15 631629065) -> -14260267.2262097) ((4774 . 5625) (/ -9.00719925474099e+15 631629066) -> -14260267.2036328) ((4775 . 5625) (/ -9.00719925474099e+15 631629067) -> -14260267.1810558) ((4776 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4777 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4778 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4779 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4780 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4781 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4782 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4783 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4784 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4785 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4786 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4787 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4788 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4789 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4790 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4791 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4792 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4793 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4794 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4795 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4796 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4797 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4798 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4799 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4800 . 5625) (/ -9.00719925474099e+15 9.00719925474099e+15) -> -1.0) ((4801 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4802 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4803 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4804 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4805 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4806 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4807 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4808 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4809 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4810 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4811 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4812 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4813 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4814 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4815 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4816 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4817 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4818 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4819 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4820 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4821 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4822 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4823 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4824 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4825 . 5625) (/ -9.00719925474099e+15 -9.00719925474099e+15) -> 1.0) ((4826 . 5625) (/ -9.00719925474099e+15 12343) -> -729741493538.118) ((4827 . 5625) (/ -9.00719925474099e+15 12344) -> -729682376437.216) ((4828 . 5625) (/ -9.00719925474099e+15 12345) -> -729623268913.811) ((4829 . 5625) (/ -9.00719925474099e+15 12346) -> -729564170965.575) ((4830 . 5625) (/ -9.00719925474099e+15 12347) -> -729505082590.183) ((4831 . 5625) (/ -9.00719925474099e+15 12343) -> -729741493538.118) ((4832 . 5625) (/ -9.00719925474099e+15 12344) -> -729682376437.216) ((4833 . 5625) (/ -9.00719925474099e+15 12345) -> -729623268913.811) ((4834 . 5625) (/ -9.00719925474099e+15 12346) -> -729564170965.575) ((4835 . 5625) (/ -9.00719925474099e+15 12347) -> -729505082590.183) ((4836 . 5625) (/ -9.00719925474099e+15 12343) -> -729741493538.118) ((4837 . 5625) (/ -9.00719925474099e+15 12344) -> -729682376437.216) ((4838 . 5625) (/ -9.00719925474099e+15 12345) -> -729623268913.811) ((4839 . 5625) (/ -9.00719925474099e+15 12346) -> -729564170965.575) ((4840 . 5625) (/ -9.00719925474099e+15 12347) -> -729505082590.183) ((4841 . 5625) (/ -9.00719925474099e+15 12343) -> -729741493538.118) ((4842 . 5625) (/ -9.00719925474099e+15 12344) -> -729682376437.216) ((4843 . 5625) (/ -9.00719925474099e+15 12345) -> -729623268913.811) ((4844 . 5625) (/ -9.00719925474099e+15 12346) -> -729564170965.575) ((4845 . 5625) (/ -9.00719925474099e+15 12347) -> -729505082590.183) ((4846 . 5625) (/ -9.00719925474099e+15 12343) -> -729741493538.118) ((4847 . 5625) (/ -9.00719925474099e+15 12344) -> -729682376437.216) ((4848 . 5625) (/ -9.00719925474099e+15 12345) -> -729623268913.81) ((4849 . 5625) (/ -9.00719925474099e+15 12346) -> -729564170965.575) ((4850 . 5625) (/ -9.00719925474099e+15 12347) -> -729505082590.183) ((4851 . 5625) (/ -9.00719925474099e+15 4294967294.0) -> -2097152.00097656) ((4852 . 5625) (/ -9.00719925474099e+15 4294967295.0) -> -2097152.00048828) ((4853 . 5625) (/ -9.00719925474099e+15 4294967296.0) -> -2097152.0) ((4854 . 5625) (/ -9.00719925474099e+15 4294967297.0) -> -2097151.99951172) ((4855 . 5625) (/ -9.00719925474099e+15 4294967298.0) -> -2097151.99902344) ((4856 . 5625) (/ -9.00719925474099e+15 4294967294.0) -> -2097152.00097656) ((4857 . 5625) (/ -9.00719925474099e+15 4294967295.0) -> -2097152.00048828) ((4858 . 5625) (/ -9.00719925474099e+15 4294967296.0) -> -2097152.0) ((4859 . 5625) (/ -9.00719925474099e+15 4294967297.0) -> -2097151.99951172) ((4860 . 5625) (/ -9.00719925474099e+15 4294967298.0) -> -2097151.99902344) ((4861 . 5625) (/ -9.00719925474099e+15 4294967294.0) -> -2097152.00097656) ((4862 . 5625) (/ -9.00719925474099e+15 4294967295.0) -> -2097152.00048828) ((4863 . 5625) (/ -9.00719925474099e+15 4294967296.0) -> -2097152.0) ((4864 . 5625) (/ -9.00719925474099e+15 4294967297.0) -> -2097151.99951172) ((4865 . 5625) (/ -9.00719925474099e+15 4294967298.0) -> -2097151.99902344) ((4866 . 5625) (/ -9.00719925474099e+15 4294967294.0) -> -2097152.00097656) ((4867 . 5625) (/ -9.00719925474099e+15 4294967295.0) -> -2097152.00048828) ((4868 . 5625) (/ -9.00719925474099e+15 4294967296.0) -> -2097152.0) ((4869 . 5625) (/ -9.00719925474099e+15 4294967297.0) -> -2097151.99951172) ((4870 . 5625) (/ -9.00719925474099e+15 4294967298.0) -> -2097151.99902344) ((4871 . 5625) (/ -9.00719925474099e+15 4294967294.0) -> -2097152.00097656) ((4872 . 5625) (/ -9.00719925474099e+15 4294967295.0) -> -2097152.00048828) ((4873 . 5625) (/ -9.00719925474099e+15 4294967296.0) -> -2097152.0) ((4874 . 5625) (/ -9.00719925474099e+15 4294967297.0) -> -2097151.99951172) ((4875 . 5625) (/ -9.00719925474099e+15 4294967298.0) -> -2097151.99902344) ((4876 . 5625) (/ 12343 -2) -> -6171.5) ((4877 . 5625) (/ 12343 -1) -> -12343) ((4878 . 5625) (/ 12343 0) -> "division by zero") ((4879 . 5625) (/ 12343 1) -> 12343) ((4880 . 5625) (/ 12343 2) -> 6171.5) ((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) -> -6172.5) ((4887 . 5625) (/ 12345 -1) -> -12345) ((4888 . 5625) (/ 12345 0) -> "division by zero") ((4889 . 5625) (/ 12345 1) -> 12345) ((4890 . 5625) (/ 12345 2) -> 6172.5) ((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) -> -6173.5) ((4897 . 5625) (/ 12347 -1) -> -12347) ((4898 . 5625) (/ 12347 0) -> "division by zero") ((4899 . 5625) (/ 12347 1) -> 12347) ((4900 . 5625) (/ 12347 2) -> 6173.5) ((4901 . 5625) (/ 12343 -1) -> -12343) ((4902 . 5625) (/ 12343 0) -> "division by zero") ((4903 . 5625) (/ 12343 1) -> 12343) ((4904 . 5625) (/ 12343 2) -> 6171.5) ((4905 . 5625) (/ 12343 3) -> 4114.33333333333) ((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) -> 4114.66666666667) ((4911 . 5625) (/ 12345 -1) -> -12345) ((4912 . 5625) (/ 12345 0) -> "division by zero") ((4913 . 5625) (/ 12345 1) -> 12345) ((4914 . 5625) (/ 12345 2) -> 6172.5) ((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) -> 4115.33333333333) ((4921 . 5625) (/ 12347 -1) -> -12347) ((4922 . 5625) (/ 12347 0) -> "division by zero") ((4923 . 5625) (/ 12347 1) -> 12347) ((4924 . 5625) (/ 12347 2) -> 6173.5) ((4925 . 5625) (/ 12347 3) -> 4115.66666666667) ((4926 . 5625) (/ 12343 -3) -> -4114.33333333333) ((4927 . 5625) (/ 12343 -2) -> -6171.5) ((4928 . 5625) (/ 12343 -1) -> -12343) ((4929 . 5625) (/ 12343 0) -> "division by zero") ((4930 . 5625) (/ 12343 1) -> 12343) ((4931 . 5625) (/ 12344 -3) -> -4114.66666666667) ((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) -> -6172.5) ((4938 . 5625) (/ 12345 -1) -> -12345) ((4939 . 5625) (/ 12345 0) -> "division by zero") ((4940 . 5625) (/ 12345 1) -> 12345) ((4941 . 5625) (/ 12346 -3) -> -4115.33333333333) ((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) -> -4115.66666666667) ((4947 . 5625) (/ 12347 -2) -> -6173.5) ((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) -> 6171.5) ((4954 . 5625) (/ 12343 3) -> 4114.33333333333) ((4955 . 5625) (/ 12343 4) -> 3085.75) ((4956 . 5625) (/ 12344 0) -> "division by zero") ((4957 . 5625) (/ 12344 1) -> 12344) ((4958 . 5625) (/ 12344 2) -> 6172) ((4959 . 5625) (/ 12344 3) -> 4114.66666666667) ((4960 . 5625) (/ 12344 4) -> 3086) ((4961 . 5625) (/ 12345 0) -> "division by zero") ((4962 . 5625) (/ 12345 1) -> 12345) ((4963 . 5625) (/ 12345 2) -> 6172.5) ((4964 . 5625) (/ 12345 3) -> 4115) ((4965 . 5625) (/ 12345 4) -> 3086.25) ((4966 . 5625) (/ 12346 0) -> "division by zero") ((4967 . 5625) (/ 12346 1) -> 12346) ((4968 . 5625) (/ 12346 2) -> 6173) ((4969 . 5625) (/ 12346 3) -> 4115.33333333333) ((4970 . 5625) (/ 12346 4) -> 3086.5) ((4971 . 5625) (/ 12347 0) -> "division by zero") ((4972 . 5625) (/ 12347 1) -> 12347) ((4973 . 5625) (/ 12347 2) -> 6173.5) ((4974 . 5625) (/ 12347 3) -> 4115.66666666667) ((4975 . 5625) (/ 12347 4) -> 3086.75) ((4976 . 5625) (/ 12343 -4) -> -3085.75) ((4977 . 5625) (/ 12343 -3) -> -4114.33333333333) ((4978 . 5625) (/ 12343 -2) -> -6171.5) ((4979 . 5625) (/ 12343 -1) -> -12343) ((4980 . 5625) (/ 12343 0) -> "division by zero") ((4981 . 5625) (/ 12344 -4) -> -3086) ((4982 . 5625) (/ 12344 -3) -> -4114.66666666667) ((4983 . 5625) (/ 12344 -2) -> -6172) ((4984 . 5625) (/ 12344 -1) -> -12344) ((4985 . 5625) (/ 12344 0) -> "division by zero") ((4986 . 5625) (/ 12345 -4) -> -3086.25) ((4987 . 5625) (/ 12345 -3) -> -4115) ((4988 . 5625) (/ 12345 -2) -> -6172.5) ((4989 . 5625) (/ 12345 -1) -> -12345) ((4990 . 5625) (/ 12345 0) -> "division by zero") ((4991 . 5625) (/ 12346 -4) -> -3086.5) ((4992 . 5625) (/ 12346 -3) -> -4115.33333333333) ((4993 . 5625) (/ 12346 -2) -> -6173) ((4994 . 5625) (/ 12346 -1) -> -12346) ((4995 . 5625) (/ 12346 0) -> "division by zero") ((4996 . 5625) (/ 12347 -4) -> -3086.75) ((4997 . 5625) (/ 12347 -3) -> -4115.66666666667) ((4998 . 5625) (/ 12347 -2) -> -6173.5) ((4999 . 5625) (/ 12347 -1) -> -12347) ((5000 . 5625) (/ 12347 0) -> "division by zero") ((5001 . 5625) (/ 12343 1073741821) -> 1.14953145705964e-05) ((5002 . 5625) (/ 12343 1073741822) -> 1.14953145598905e-05) ((5003 . 5625) (/ 12343 1073741823) -> 1.14953145491847e-05) ((5004 . 5625) (/ 12343 1073741824.0) -> 1.14953145384789e-05) ((5005 . 5625) (/ 12343 1073741825.0) -> 1.1495314527773e-05) ((5006 . 5625) (/ 12344 1073741821) -> 1.14962458931736e-05) ((5007 . 5625) (/ 12344 1073741822) -> 1.14962458824669e-05) ((5008 . 5625) (/ 12344 1073741823) -> 1.14962458717602e-05) ((5009 . 5625) (/ 12344 1073741824.0) -> 1.14962458610535e-05) ((5010 . 5625) (/ 12344 1073741825.0) -> 1.14962458503468e-05) ((5011 . 5625) (/ 12345 1073741821) -> 1.14971772157508e-05) ((5012 . 5625) (/ 12345 1073741822) -> 1.14971772050432e-05) ((5013 . 5625) (/ 12345 1073741823) -> 1.14971771943357e-05) ((5014 . 5625) (/ 12345 1073741824.0) -> 1.14971771836281e-05) ((5015 . 5625) (/ 12345 1073741825.0) -> 1.14971771729205e-05) ((5016 . 5625) (/ 12346 1073741821) -> 1.1498108538328e-05) ((5017 . 5625) (/ 12346 1073741822) -> 1.14981085276196e-05) ((5018 . 5625) (/ 12346 1073741823) -> 1.14981085169111e-05) ((5019 . 5625) (/ 12346 1073741824.0) -> 1.14981085062027e-05) ((5020 . 5625) (/ 12346 1073741825.0) -> 1.14981084954942e-05) ((5021 . 5625) (/ 12347 1073741821) -> 1.14990398609053e-05) ((5022 . 5625) (/ 12347 1073741822) -> 1.14990398501959e-05) ((5023 . 5625) (/ 12347 1073741823) -> 1.14990398394866e-05) ((5024 . 5625) (/ 12347 1073741824.0) -> 1.14990398287773e-05) ((5025 . 5625) (/ 12347 1073741825.0) -> 1.1499039818068e-05) ((5026 . 5625) (/ 12343 -1073741826.0) -> -1.14953145170672e-05) ((5027 . 5625) (/ 12343 -1073741825.0) -> -1.1495314527773e-05) ((5028 . 5625) (/ 12343 -1073741824) -> -1.14953145384789e-05) ((5029 . 5625) (/ 12343 -1073741823) -> -1.14953145491847e-05) ((5030 . 5625) (/ 12343 -1073741822) -> -1.14953145598905e-05) ((5031 . 5625) (/ 12344 -1073741826.0) -> -1.149624583964e-05) ((5032 . 5625) (/ 12344 -1073741825.0) -> -1.14962458503468e-05) ((5033 . 5625) (/ 12344 -1073741824) -> -1.14962458610535e-05) ((5034 . 5625) (/ 12344 -1073741823) -> -1.14962458717602e-05) ((5035 . 5625) (/ 12344 -1073741822) -> -1.14962458824669e-05) ((5036 . 5625) (/ 12345 -1073741826.0) -> -1.14971771622129e-05) ((5037 . 5625) (/ 12345 -1073741825.0) -> -1.14971771729205e-05) ((5038 . 5625) (/ 12345 -1073741824) -> -1.14971771836281e-05) ((5039 . 5625) (/ 12345 -1073741823) -> -1.14971771943357e-05) ((5040 . 5625) (/ 12345 -1073741822) -> -1.14971772050432e-05) ((5041 . 5625) (/ 12346 -1073741826.0) -> -1.14981084847858e-05) ((5042 . 5625) (/ 12346 -1073741825.0) -> -1.14981084954942e-05) ((5043 . 5625) (/ 12346 -1073741824) -> -1.14981085062027e-05) ((5044 . 5625) (/ 12346 -1073741823) -> -1.14981085169111e-05) ((5045 . 5625) (/ 12346 -1073741822) -> -1.14981085276196e-05) ((5046 . 5625) (/ 12347 -1073741826.0) -> -1.14990398073587e-05) ((5047 . 5625) (/ 12347 -1073741825.0) -> -1.1499039818068e-05) ((5048 . 5625) (/ 12347 -1073741824) -> -1.14990398287773e-05) ((5049 . 5625) (/ 12347 -1073741823) -> -1.14990398394866e-05) ((5050 . 5625) (/ 12347 -1073741822) -> -1.14990398501959e-05) ((5051 . 5625) (/ 12343 1073741822.0) -> 1.14953145598905e-05) ((5052 . 5625) (/ 12343 1073741823.0) -> 1.14953145491847e-05) ((5053 . 5625) (/ 12343 1073741824.0) -> 1.14953145384789e-05) ((5054 . 5625) (/ 12343 1073741825.0) -> 1.1495314527773e-05) ((5055 . 5625) (/ 12343 1073741826.0) -> 1.14953145170672e-05) ((5056 . 5625) (/ 12344 1073741822.0) -> 1.14962458824669e-05) ((5057 . 5625) (/ 12344 1073741823.0) -> 1.14962458717602e-05) ((5058 . 5625) (/ 12344 1073741824.0) -> 1.14962458610535e-05) ((5059 . 5625) (/ 12344 1073741825.0) -> 1.14962458503468e-05) ((5060 . 5625) (/ 12344 1073741826.0) -> 1.149624583964e-05) ((5061 . 5625) (/ 12345 1073741822.0) -> 1.14971772050432e-05) ((5062 . 5625) (/ 12345 1073741823.0) -> 1.14971771943357e-05) ((5063 . 5625) (/ 12345 1073741824.0) -> 1.14971771836281e-05) ((5064 . 5625) (/ 12345 1073741825.0) -> 1.14971771729205e-05) ((5065 . 5625) (/ 12345 1073741826.0) -> 1.14971771622129e-05) ((5066 . 5625) (/ 12346 1073741822.0) -> 1.14981085276196e-05) ((5067 . 5625) (/ 12346 1073741823.0) -> 1.14981085169111e-05) ((5068 . 5625) (/ 12346 1073741824.0) -> 1.14981085062027e-05) ((5069 . 5625) (/ 12346 1073741825.0) -> 1.14981084954942e-05) ((5070 . 5625) (/ 12346 1073741826.0) -> 1.14981084847858e-05) ((5071 . 5625) (/ 12347 1073741822.0) -> 1.14990398501959e-05) ((5072 . 5625) (/ 12347 1073741823.0) -> 1.14990398394866e-05) ((5073 . 5625) (/ 12347 1073741824.0) -> 1.14990398287773e-05) ((5074 . 5625) (/ 12347 1073741825.0) -> 1.1499039818068e-05) ((5075 . 5625) (/ 12347 1073741826.0) -> 1.14990398073587e-05) ((5076 . 5625) (/ 12343 -1073741827.0) -> -1.14953145063613e-05) ((5077 . 5625) (/ 12343 -1073741826.0) -> -1.14953145170672e-05) ((5078 . 5625) (/ 12343 -1073741825.0) -> -1.1495314527773e-05) ((5079 . 5625) (/ 12343 -1073741824.0) -> -1.14953145384789e-05) ((5080 . 5625) (/ 12343 -1073741823.0) -> -1.14953145491847e-05) ((5081 . 5625) (/ 12344 -1073741827.0) -> -1.14962458289333e-05) ((5082 . 5625) (/ 12344 -1073741826.0) -> -1.149624583964e-05) ((5083 . 5625) (/ 12344 -1073741825.0) -> -1.14962458503468e-05) ((5084 . 5625) (/ 12344 -1073741824.0) -> -1.14962458610535e-05) ((5085 . 5625) (/ 12344 -1073741823.0) -> -1.14962458717602e-05) ((5086 . 5625) (/ 12345 -1073741827.0) -> -1.14971771515053e-05) ((5087 . 5625) (/ 12345 -1073741826.0) -> -1.14971771622129e-05) ((5088 . 5625) (/ 12345 -1073741825.0) -> -1.14971771729205e-05) ((5089 . 5625) (/ 12345 -1073741824.0) -> -1.14971771836281e-05) ((5090 . 5625) (/ 12345 -1073741823.0) -> -1.14971771943357e-05) ((5091 . 5625) (/ 12346 -1073741827.0) -> -1.14981084740774e-05) ((5092 . 5625) (/ 12346 -1073741826.0) -> -1.14981084847858e-05) ((5093 . 5625) (/ 12346 -1073741825.0) -> -1.14981084954942e-05) ((5094 . 5625) (/ 12346 -1073741824.0) -> -1.14981085062027e-05) ((5095 . 5625) (/ 12346 -1073741823.0) -> -1.14981085169111e-05) ((5096 . 5625) (/ 12347 -1073741827.0) -> -1.14990397966494e-05) ((5097 . 5625) (/ 12347 -1073741826.0) -> -1.14990398073587e-05) ((5098 . 5625) (/ 12347 -1073741825.0) -> -1.1499039818068e-05) ((5099 . 5625) (/ 12347 -1073741824.0) -> -1.14990398287773e-05) ((5100 . 5625) (/ 12347 -1073741823.0) -> -1.14990398394866e-05) ((5101 . 5625) (/ 12343 1103515243.0) -> 1.11851649338749e-05) ((5102 . 5625) (/ 12343 1103515244.0) -> 1.11851649237389e-05) ((5103 . 5625) (/ 12343 1103515245.0) -> 1.1185164913603e-05) ((5104 . 5625) (/ 12343 1103515246.0) -> 1.1185164903467e-05) ((5105 . 5625) (/ 12343 1103515247.0) -> 1.11851648933311e-05) ((5106 . 5625) (/ 12344 1103515243.0) -> 1.11860711288788e-05) ((5107 . 5625) (/ 12344 1103515244.0) -> 1.11860711187421e-05) ((5108 . 5625) (/ 12344 1103515245.0) -> 1.11860711086053e-05) ((5109 . 5625) (/ 12344 1103515246.0) -> 1.11860710984685e-05) ((5110 . 5625) (/ 12344 1103515247.0) -> 1.11860710883318e-05) ((5111 . 5625) (/ 12345 1103515243.0) -> 1.11869773238828e-05) ((5112 . 5625) (/ 12345 1103515244.0) -> 1.11869773137452e-05) ((5113 . 5625) (/ 12345 1103515245.0) -> 1.11869773036076e-05) ((5114 . 5625) (/ 12345 1103515246.0) -> 1.118697729347e-05) ((5115 . 5625) (/ 12345 1103515247.0) -> 1.11869772833325e-05) ((5116 . 5625) (/ 12346 1103515243.0) -> 1.11878835188867e-05) ((5117 . 5625) (/ 12346 1103515244.0) -> 1.11878835087483e-05) ((5118 . 5625) (/ 12346 1103515245.0) -> 1.11878834986099e-05) ((5119 . 5625) (/ 12346 1103515246.0) -> 1.11878834884715e-05) ((5120 . 5625) (/ 12346 1103515247.0) -> 1.11878834783331e-05) ((5121 . 5625) (/ 12347 1103515243.0) -> 1.11887897138907e-05) ((5122 . 5625) (/ 12347 1103515244.0) -> 1.11887897037515e-05) ((5123 . 5625) (/ 12347 1103515245.0) -> 1.11887896936123e-05) ((5124 . 5625) (/ 12347 1103515246.0) -> 1.1188789683473e-05) ((5125 . 5625) (/ 12347 1103515247.0) -> 1.11887896733338e-05) ((5126 . 5625) (/ 12343 631629063) -> 1.95415327175976e-05) ((5127 . 5625) (/ 12343 631629064) -> 1.95415326866593e-05) ((5128 . 5625) (/ 12343 631629065) -> 1.9541532655721e-05) ((5129 . 5625) (/ 12343 631629066) -> 1.95415326247827e-05) ((5130 . 5625) (/ 12343 631629067) -> 1.95415325938444e-05) ((5131 . 5625) (/ 12344 631629063) -> 1.95431159253038e-05) ((5132 . 5625) (/ 12344 631629064) -> 1.9543115894363e-05) ((5133 . 5625) (/ 12344 631629065) -> 1.95431158634222e-05) ((5134 . 5625) (/ 12344 631629066) -> 1.95431158324813e-05) ((5135 . 5625) (/ 12344 631629067) -> 1.95431158015405e-05) ((5136 . 5625) (/ 12345 631629063) -> 1.954469913301e-05) ((5137 . 5625) (/ 12345 631629064) -> 1.95446991020667e-05) ((5138 . 5625) (/ 12345 631629065) -> 1.95446990711233e-05) ((5139 . 5625) (/ 12345 631629066) -> 1.954469904018e-05) ((5140 . 5625) (/ 12345 631629067) -> 1.95446990092367e-05) ((5141 . 5625) (/ 12346 631629063) -> 1.95462823407162e-05) ((5142 . 5625) (/ 12346 631629064) -> 1.95462823097703e-05) ((5143 . 5625) (/ 12346 631629065) -> 1.95462822788245e-05) ((5144 . 5625) (/ 12346 631629066) -> 1.95462822478787e-05) ((5145 . 5625) (/ 12346 631629067) -> 1.95462822169329e-05) ((5146 . 5625) (/ 12347 631629063) -> 1.95478655484224e-05) ((5147 . 5625) (/ 12347 631629064) -> 1.9547865517474e-05) ((5148 . 5625) (/ 12347 631629065) -> 1.95478654865257e-05) ((5149 . 5625) (/ 12347 631629066) -> 1.95478654555774e-05) ((5150 . 5625) (/ 12347 631629067) -> 1.9547865424629e-05) ((5151 . 5625) (/ 12343 9.00719925474099e+15) -> 1.37034827929483e-12) ((5152 . 5625) (/ 12343 9.00719925474099e+15) -> 1.37034827929483e-12) ((5153 . 5625) (/ 12343 9.00719925474099e+15) -> 1.37034827929483e-12) ((5154 . 5625) (/ 12343 9.00719925474099e+15) -> 1.37034827929483e-12) ((5155 . 5625) (/ 12343 9.00719925474099e+15) -> 1.37034827929483e-12) ((5156 . 5625) (/ 12344 9.00719925474099e+15) -> 1.37045930159729e-12) ((5157 . 5625) (/ 12344 9.00719925474099e+15) -> 1.37045930159729e-12) ((5158 . 5625) (/ 12344 9.00719925474099e+15) -> 1.37045930159729e-12) ((5159 . 5625) (/ 12344 9.00719925474099e+15) -> 1.37045930159729e-12) ((5160 . 5625) (/ 12344 9.00719925474099e+15) -> 1.37045930159729e-12) ((5161 . 5625) (/ 12345 9.00719925474099e+15) -> 1.37057032389976e-12) ((5162 . 5625) (/ 12345 9.00719925474099e+15) -> 1.37057032389976e-12) ((5163 . 5625) (/ 12345 9.00719925474099e+15) -> 1.37057032389976e-12) ((5164 . 5625) (/ 12345 9.00719925474099e+15) -> 1.37057032389976e-12) ((5165 . 5625) (/ 12345 9.00719925474099e+15) -> 1.37057032389976e-12) ((5166 . 5625) (/ 12346 9.00719925474099e+15) -> 1.37068134620222e-12) ((5167 . 5625) (/ 12346 9.00719925474099e+15) -> 1.37068134620222e-12) ((5168 . 5625) (/ 12346 9.00719925474099e+15) -> 1.37068134620222e-12) ((5169 . 5625) (/ 12346 9.00719925474099e+15) -> 1.37068134620222e-12) ((5170 . 5625) (/ 12346 9.00719925474099e+15) -> 1.37068134620222e-12) ((5171 . 5625) (/ 12347 9.00719925474099e+15) -> 1.37079236850468e-12) ((5172 . 5625) (/ 12347 9.00719925474099e+15) -> 1.37079236850468e-12) ((5173 . 5625) (/ 12347 9.00719925474099e+15) -> 1.37079236850468e-12) ((5174 . 5625) (/ 12347 9.00719925474099e+15) -> 1.37079236850468e-12) ((5175 . 5625) (/ 12347 9.00719925474099e+15) -> 1.37079236850468e-12) ((5176 . 5625) (/ 12343 -9.00719925474099e+15) -> -1.37034827929483e-12) ((5177 . 5625) (/ 12343 -9.00719925474099e+15) -> -1.37034827929483e-12) ((5178 . 5625) (/ 12343 -9.00719925474099e+15) -> -1.37034827929483e-12) ((5179 . 5625) (/ 12343 -9.00719925474099e+15) -> -1.37034827929483e-12) ((5180 . 5625) (/ 12343 -9.00719925474099e+15) -> -1.37034827929483e-12) ((5181 . 5625) (/ 12344 -9.00719925474099e+15) -> -1.37045930159729e-12) ((5182 . 5625) (/ 12344 -9.00719925474099e+15) -> -1.37045930159729e-12) ((5183 . 5625) (/ 12344 -9.00719925474099e+15) -> -1.37045930159729e-12) ((5184 . 5625) (/ 12344 -9.00719925474099e+15) -> -1.37045930159729e-12) ((5185 . 5625) (/ 12344 -9.00719925474099e+15) -> -1.37045930159729e-12) ((5186 . 5625) (/ 12345 -9.00719925474099e+15) -> -1.37057032389976e-12) ((5187 . 5625) (/ 12345 -9.00719925474099e+15) -> -1.37057032389976e-12) ((5188 . 5625) (/ 12345 -9.00719925474099e+15) -> -1.37057032389976e-12) ((5189 . 5625) (/ 12345 -9.00719925474099e+15) -> -1.37057032389976e-12) ((5190 . 5625) (/ 12345 -9.00719925474099e+15) -> -1.37057032389976e-12) ((5191 . 5625) (/ 12346 -9.00719925474099e+15) -> -1.37068134620222e-12) ((5192 . 5625) (/ 12346 -9.00719925474099e+15) -> -1.37068134620222e-12) ((5193 . 5625) (/ 12346 -9.00719925474099e+15) -> -1.37068134620222e-12) ((5194 . 5625) (/ 12346 -9.00719925474099e+15) -> -1.37068134620222e-12) ((5195 . 5625) (/ 12346 -9.00719925474099e+15) -> -1.37068134620222e-12) ((5196 . 5625) (/ 12347 -9.00719925474099e+15) -> -1.37079236850468e-12) ((5197 . 5625) (/ 12347 -9.00719925474099e+15) -> -1.37079236850468e-12) ((5198 . 5625) (/ 12347 -9.00719925474099e+15) -> -1.37079236850468e-12) ((5199 . 5625) (/ 12347 -9.00719925474099e+15) -> -1.37079236850468e-12) ((5200 . 5625) (/ 12347 -9.00719925474099e+15) -> -1.37079236850468e-12) ((5201 . 5625) (/ 12343 12343) -> 1) ((5202 . 5625) (/ 12343 12344) -> 0.999918988982502) ((5203 . 5625) (/ 12343 12345) -> 0.99983799108951) ((5204 . 5625) (/ 12343 12346) -> 0.999757006317836) ((5205 . 5625) (/ 12343 12347) -> 0.999676034664291) ((5206 . 5625) (/ 12344 12343) -> 1.00008101758082) ((5207 . 5625) (/ 12344 12344) -> 1) ((5208 . 5625) (/ 12344 12345) -> 0.999918995544755) ((5209 . 5625) (/ 12344 12346) -> 0.999838004211891) ((5210 . 5625) (/ 12344 12347) -> 0.999757025998218) ((5211 . 5625) (/ 12345 12343) -> 1.00016203516163) ((5212 . 5625) (/ 12345 12344) -> 1.0000810110175) ((5213 . 5625) (/ 12345 12345) -> 1) ((5214 . 5625) (/ 12345 12346) -> 0.999919002105945) ((5215 . 5625) (/ 12345 12347) -> 0.999838017332146) ((5216 . 5625) (/ 12346 12343) -> 1.00024305274245) ((5217 . 5625) (/ 12346 12344) -> 1.000162022035) ((5218 . 5625) (/ 12346 12345) -> 1.00008100445525) ((5219 . 5625) (/ 12346 12346) -> 1) ((5220 . 5625) (/ 12346 12347) -> 0.999919008666073) ((5221 . 5625) (/ 12347 12343) -> 1.00032407032326) ((5222 . 5625) (/ 12347 12344) -> 1.0002430330525) ((5223 . 5625) (/ 12347 12345) -> 1.00016200891049) ((5224 . 5625) (/ 12347 12346) -> 1.00008099789405) ((5225 . 5625) (/ 12347 12347) -> 1) ((5226 . 5625) (/ 12343 4294967294.0) -> 2.87382863595794e-06) ((5227 . 5625) (/ 12343 4294967295.0) -> 2.87382863528883e-06) ((5228 . 5625) (/ 12343 4294967296.0) -> 2.87382863461971e-06) ((5229 . 5625) (/ 12343 4294967297.0) -> 2.8738286339506e-06) ((5230 . 5625) (/ 12343 4294967298.0) -> 2.87382863328148e-06) ((5231 . 5625) (/ 12344 4294967294.0) -> 2.87406146660171e-06) ((5232 . 5625) (/ 12344 4294967295.0) -> 2.87406146593254e-06) ((5233 . 5625) (/ 12344 4294967296.0) -> 2.87406146526337e-06) ((5234 . 5625) (/ 12344 4294967297.0) -> 2.8740614645942e-06) ((5235 . 5625) (/ 12344 4294967298.0) -> 2.87406146392503e-06) ((5236 . 5625) (/ 12345 4294967294.0) -> 2.87429429724547e-06) ((5237 . 5625) (/ 12345 4294967295.0) -> 2.87429429657624e-06) ((5238 . 5625) (/ 12345 4294967296.0) -> 2.87429429590702e-06) ((5239 . 5625) (/ 12345 4294967297.0) -> 2.8742942952378e-06) ((5240 . 5625) (/ 12345 4294967298.0) -> 2.87429429456857e-06) ((5241 . 5625) (/ 12346 4294967294.0) -> 2.87452712788923e-06) ((5242 . 5625) (/ 12346 4294967295.0) -> 2.87452712721995e-06) ((5243 . 5625) (/ 12346 4294967296.0) -> 2.87452712655067e-06) ((5244 . 5625) (/ 12346 4294967297.0) -> 2.8745271258814e-06) ((5245 . 5625) (/ 12346 4294967298.0) -> 2.87452712521212e-06) ((5246 . 5625) (/ 12347 4294967294.0) -> 2.87475995853299e-06) ((5247 . 5625) (/ 12347 4294967295.0) -> 2.87475995786366e-06) ((5248 . 5625) (/ 12347 4294967296.0) -> 2.87475995719433e-06) ((5249 . 5625) (/ 12347 4294967297.0) -> 2.874759956525e-06) ((5250 . 5625) (/ 12347 4294967298.0) -> 2.87475995585566e-06) ((5251 . 5625) (/ 4294967294.0 -2) -> -2147483647.0) ((5252 . 5625) (/ 4294967294.0 -1) -> -4294967294.0) ((5253 . 5625) (/ 4294967294.0 0) -> "division by zero") ((5254 . 5625) (/ 4294967294.0 1) -> 4294967294.0) ((5255 . 5625) (/ 4294967294.0 2) -> 2147483647.0) ((5256 . 5625) (/ 4294967295.0 -2) -> -2147483647.5) ((5257 . 5625) (/ 4294967295.0 -1) -> -4294967295.0) ((5258 . 5625) (/ 4294967295.0 0) -> "division by zero") ((5259 . 5625) (/ 4294967295.0 1) -> 4294967295.0) ((5260 . 5625) (/ 4294967295.0 2) -> 2147483647.5) ((5261 . 5625) (/ 4294967296.0 -2) -> -2147483648.0) ((5262 . 5625) (/ 4294967296.0 -1) -> -4294967296.0) ((5263 . 5625) (/ 4294967296.0 0) -> "division by zero") ((5264 . 5625) (/ 4294967296.0 1) -> 4294967296.0) ((5265 . 5625) (/ 4294967296.0 2) -> 2147483648.0) ((5266 . 5625) (/ 4294967297.0 -2) -> -2147483648.5) ((5267 . 5625) (/ 4294967297.0 -1) -> -4294967297.0) ((5268 . 5625) (/ 4294967297.0 0) -> "division by zero") ((5269 . 5625) (/ 4294967297.0 1) -> 4294967297.0) ((5270 . 5625) (/ 4294967297.0 2) -> 2147483648.5) ((5271 . 5625) (/ 4294967298.0 -2) -> -2147483649.0) ((5272 . 5625) (/ 4294967298.0 -1) -> -4294967298.0) ((5273 . 5625) (/ 4294967298.0 0) -> "division by zero") ((5274 . 5625) (/ 4294967298.0 1) -> 4294967298.0) ((5275 . 5625) (/ 4294967298.0 2) -> 2147483649.0) ((5276 . 5625) (/ 4294967294.0 -1) -> -4294967294.0) ((5277 . 5625) (/ 4294967294.0 0) -> "division by zero") ((5278 . 5625) (/ 4294967294.0 1) -> 4294967294.0) ((5279 . 5625) (/ 4294967294.0 2) -> 2147483647.0) ((5280 . 5625) (/ 4294967294.0 3) -> 1431655764.66667) ((5281 . 5625) (/ 4294967295.0 -1) -> -4294967295.0) ((5282 . 5625) (/ 4294967295.0 0) -> "division by zero") ((5283 . 5625) (/ 4294967295.0 1) -> 4294967295.0) ((5284 . 5625) (/ 4294967295.0 2) -> 2147483647.5) ((5285 . 5625) (/ 4294967295.0 3) -> 1431655765.0) ((5286 . 5625) (/ 4294967296.0 -1) -> -4294967296.0) ((5287 . 5625) (/ 4294967296.0 0) -> "division by zero") ((5288 . 5625) (/ 4294967296.0 1) -> 4294967296.0) ((5289 . 5625) (/ 4294967296.0 2) -> 2147483648.0) ((5290 . 5625) (/ 4294967296.0 3) -> 1431655765.33333) ((5291 . 5625) (/ 4294967297.0 -1) -> -4294967297.0) ((5292 . 5625) (/ 4294967297.0 0) -> "division by zero") ((5293 . 5625) (/ 4294967297.0 1) -> 4294967297.0) ((5294 . 5625) (/ 4294967297.0 2) -> 2147483648.5) ((5295 . 5625) (/ 4294967297.0 3) -> 1431655765.66667) ((5296 . 5625) (/ 4294967298.0 -1) -> -4294967298.0) ((5297 . 5625) (/ 4294967298.0 0) -> "division by zero") ((5298 . 5625) (/ 4294967298.0 1) -> 4294967298.0) ((5299 . 5625) (/ 4294967298.0 2) -> 2147483649.0) ((5300 . 5625) (/ 4294967298.0 3) -> 1431655766.0) ((5301 . 5625) (/ 4294967294.0 -3) -> -1431655764.66667) ((5302 . 5625) (/ 4294967294.0 -2) -> -2147483647.0) ((5303 . 5625) (/ 4294967294.0 -1) -> -4294967294.0) ((5304 . 5625) (/ 4294967294.0 0) -> "division by zero") ((5305 . 5625) (/ 4294967294.0 1) -> 4294967294.0) ((5306 . 5625) (/ 4294967295.0 -3) -> -1431655765.0) ((5307 . 5625) (/ 4294967295.0 -2) -> -2147483647.5) ((5308 . 5625) (/ 4294967295.0 -1) -> -4294967295.0) ((5309 . 5625) (/ 4294967295.0 0) -> "division by zero") ((5310 . 5625) (/ 4294967295.0 1) -> 4294967295.0) ((5311 . 5625) (/ 4294967296.0 -3) -> -1431655765.33333) ((5312 . 5625) (/ 4294967296.0 -2) -> -2147483648.0) ((5313 . 5625) (/ 4294967296.0 -1) -> -4294967296.0) ((5314 . 5625) (/ 4294967296.0 0) -> "division by zero") ((5315 . 5625) (/ 4294967296.0 1) -> 4294967296.0) ((5316 . 5625) (/ 4294967297.0 -3) -> -1431655765.66667) ((5317 . 5625) (/ 4294967297.0 -2) -> -2147483648.5) ((5318 . 5625) (/ 4294967297.0 -1) -> -4294967297.0) ((5319 . 5625) (/ 4294967297.0 0) -> "division by zero") ((5320 . 5625) (/ 4294967297.0 1) -> 4294967297.0) ((5321 . 5625) (/ 4294967298.0 -3) -> -1431655766.0) ((5322 . 5625) (/ 4294967298.0 -2) -> -2147483649.0) ((5323 . 5625) (/ 4294967298.0 -1) -> -4294967298.0) ((5324 . 5625) (/ 4294967298.0 0) -> "division by zero") ((5325 . 5625) (/ 4294967298.0 1) -> 4294967298.0) ((5326 . 5625) (/ 4294967294.0 0) -> "division by zero") ((5327 . 5625) (/ 4294967294.0 1) -> 4294967294.0) ((5328 . 5625) (/ 4294967294.0 2) -> 2147483647.0) ((5329 . 5625) (/ 4294967294.0 3) -> 1431655764.66667) ((5330 . 5625) (/ 4294967294.0 4) -> 1073741823.5) ((5331 . 5625) (/ 4294967295.0 0) -> "division by zero") ((5332 . 5625) (/ 4294967295.0 1) -> 4294967295.0) ((5333 . 5625) (/ 4294967295.0 2) -> 2147483647.5) ((5334 . 5625) (/ 4294967295.0 3) -> 1431655765.0) ((5335 . 5625) (/ 4294967295.0 4) -> 1073741823.75) ((5336 . 5625) (/ 4294967296.0 0) -> "division by zero") ((5337 . 5625) (/ 4294967296.0 1) -> 4294967296.0) ((5338 . 5625) (/ 4294967296.0 2) -> 2147483648.0) ((5339 . 5625) (/ 4294967296.0 3) -> 1431655765.33333) ((5340 . 5625) (/ 4294967296.0 4) -> 1073741824.0) ((5341 . 5625) (/ 4294967297.0 0) -> "division by zero") ((5342 . 5625) (/ 4294967297.0 1) -> 4294967297.0) ((5343 . 5625) (/ 4294967297.0 2) -> 2147483648.5) ((5344 . 5625) (/ 4294967297.0 3) -> 1431655765.66667) ((5345 . 5625) (/ 4294967297.0 4) -> 1073741824.25) ((5346 . 5625) (/ 4294967298.0 0) -> "division by zero") ((5347 . 5625) (/ 4294967298.0 1) -> 4294967298.0) ((5348 . 5625) (/ 4294967298.0 2) -> 2147483649.0) ((5349 . 5625) (/ 4294967298.0 3) -> 1431655766.0) ((5350 . 5625) (/ 4294967298.0 4) -> 1073741824.5) ((5351 . 5625) (/ 4294967294.0 -4) -> -1073741823.5) ((5352 . 5625) (/ 4294967294.0 -3) -> -1431655764.66667) ((5353 . 5625) (/ 4294967294.0 -2) -> -2147483647.0) ((5354 . 5625) (/ 4294967294.0 -1) -> -4294967294.0) ((5355 . 5625) (/ 4294967294.0 0) -> "division by zero") ((5356 . 5625) (/ 4294967295.0 -4) -> -1073741823.75) ((5357 . 5625) (/ 4294967295.0 -3) -> -1431655765.0) ((5358 . 5625) (/ 4294967295.0 -2) -> -2147483647.5) ((5359 . 5625) (/ 4294967295.0 -1) -> -4294967295.0) ((5360 . 5625) (/ 4294967295.0 0) -> "division by zero") ((5361 . 5625) (/ 4294967296.0 -4) -> -1073741824.0) ((5362 . 5625) (/ 4294967296.0 -3) -> -1431655765.33333) ((5363 . 5625) (/ 4294967296.0 -2) -> -2147483648.0) ((5364 . 5625) (/ 4294967296.0 -1) -> -4294967296.0) ((5365 . 5625) (/ 4294967296.0 0) -> "division by zero") ((5366 . 5625) (/ 4294967297.0 -4) -> -1073741824.25) ((5367 . 5625) (/ 4294967297.0 -3) -> -1431655765.66667) ((5368 . 5625) (/ 4294967297.0 -2) -> -2147483648.5) ((5369 . 5625) (/ 4294967297.0 -1) -> -4294967297.0) ((5370 . 5625) (/ 4294967297.0 0) -> "division by zero") ((5371 . 5625) (/ 4294967298.0 -4) -> -1073741824.5) ((5372 . 5625) (/ 4294967298.0 -3) -> -1431655766.0) ((5373 . 5625) (/ 4294967298.0 -2) -> -2147483649.0) ((5374 . 5625) (/ 4294967298.0 -1) -> -4294967298.0) ((5375 . 5625) (/ 4294967298.0 0) -> "division by zero") ((5376 . 5625) (/ 4294967294.0 1073741821) -> 4.00000000931323) ((5377 . 5625) (/ 4294967294.0 1073741822) -> 4.00000000558794) ((5378 . 5625) (/ 4294967294.0 1073741823) -> 4.00000000186265) ((5379 . 5625) (/ 4294967294.0 1073741824.0) -> 3.99999999813735) ((5380 . 5625) (/ 4294967294.0 1073741825.0) -> 3.99999999441206) ((5381 . 5625) (/ 4294967295.0 1073741821) -> 4.00000001024455) ((5382 . 5625) (/ 4294967295.0 1073741822) -> 4.00000000651926) ((5383 . 5625) (/ 4294967295.0 1073741823) -> 4.00000000279397) ((5384 . 5625) (/ 4294967295.0 1073741824.0) -> 3.99999999906868) ((5385 . 5625) (/ 4294967295.0 1073741825.0) -> 3.99999999534339) ((5386 . 5625) (/ 4294967296.0 1073741821) -> 4.00000001117587) ((5387 . 5625) (/ 4294967296.0 1073741822) -> 4.00000000745058) ((5388 . 5625) (/ 4294967296.0 1073741823) -> 4.00000000372529) ((5389 . 5625) (/ 4294967296.0 1073741824.0) -> 4.0) ((5390 . 5625) (/ 4294967296.0 1073741825.0) -> 3.99999999627471) ((5391 . 5625) (/ 4294967297.0 1073741821) -> 4.00000001210719) ((5392 . 5625) (/ 4294967297.0 1073741822) -> 4.0000000083819) ((5393 . 5625) (/ 4294967297.0 1073741823) -> 4.00000000465661) ((5394 . 5625) (/ 4294967297.0 1073741824.0) -> 4.00000000093132) ((5395 . 5625) (/ 4294967297.0 1073741825.0) -> 3.99999999720603) ((5396 . 5625) (/ 4294967298.0 1073741821) -> 4.00000001303852) ((5397 . 5625) (/ 4294967298.0 1073741822) -> 4.00000000931323) ((5398 . 5625) (/ 4294967298.0 1073741823) -> 4.00000000558794) ((5399 . 5625) (/ 4294967298.0 1073741824.0) -> 4.00000000186265) ((5400 . 5625) (/ 4294967298.0 1073741825.0) -> 3.99999999813735) ((5401 . 5625) (/ 4294967294.0 -1073741826.0) -> -3.99999999068677) ((5402 . 5625) (/ 4294967294.0 -1073741825.0) -> -3.99999999441206) ((5403 . 5625) (/ 4294967294.0 -1073741824) -> -3.99999999813735) ((5404 . 5625) (/ 4294967294.0 -1073741823) -> -4.00000000186265) ((5405 . 5625) (/ 4294967294.0 -1073741822) -> -4.00000000558794) ((5406 . 5625) (/ 4294967295.0 -1073741826.0) -> -3.9999999916181) ((5407 . 5625) (/ 4294967295.0 -1073741825.0) -> -3.99999999534339) ((5408 . 5625) (/ 4294967295.0 -1073741824) -> -3.99999999906868) ((5409 . 5625) (/ 4294967295.0 -1073741823) -> -4.00000000279397) ((5410 . 5625) (/ 4294967295.0 -1073741822) -> -4.00000000651926) ((5411 . 5625) (/ 4294967296.0 -1073741826.0) -> -3.99999999254942) ((5412 . 5625) (/ 4294967296.0 -1073741825.0) -> -3.99999999627471) ((5413 . 5625) (/ 4294967296.0 -1073741824) -> -4.0) ((5414 . 5625) (/ 4294967296.0 -1073741823) -> -4.00000000372529) ((5415 . 5625) (/ 4294967296.0 -1073741822) -> -4.00000000745058) ((5416 . 5625) (/ 4294967297.0 -1073741826.0) -> -3.99999999348074) ((5417 . 5625) (/ 4294967297.0 -1073741825.0) -> -3.99999999720603) ((5418 . 5625) (/ 4294967297.0 -1073741824) -> -4.00000000093132) ((5419 . 5625) (/ 4294967297.0 -1073741823) -> -4.00000000465661) ((5420 . 5625) (/ 4294967297.0 -1073741822) -> -4.0000000083819) ((5421 . 5625) (/ 4294967298.0 -1073741826.0) -> -3.99999999441206) ((5422 . 5625) (/ 4294967298.0 -1073741825.0) -> -3.99999999813735) ((5423 . 5625) (/ 4294967298.0 -1073741824) -> -4.00000000186265) ((5424 . 5625) (/ 4294967298.0 -1073741823) -> -4.00000000558794) ((5425 . 5625) (/ 4294967298.0 -1073741822) -> -4.00000000931323) ((5426 . 5625) (/ 4294967294.0 1073741822.0) -> 4.00000000558794) ((5427 . 5625) (/ 4294967294.0 1073741823.0) -> 4.00000000186265) ((5428 . 5625) (/ 4294967294.0 1073741824.0) -> 3.99999999813735) ((5429 . 5625) (/ 4294967294.0 1073741825.0) -> 3.99999999441206) ((5430 . 5625) (/ 4294967294.0 1073741826.0) -> 3.99999999068677) ((5431 . 5625) (/ 4294967295.0 1073741822.0) -> 4.00000000651926) ((5432 . 5625) (/ 4294967295.0 1073741823.0) -> 4.00000000279397) ((5433 . 5625) (/ 4294967295.0 1073741824.0) -> 3.99999999906868) ((5434 . 5625) (/ 4294967295.0 1073741825.0) -> 3.99999999534339) ((5435 . 5625) (/ 4294967295.0 1073741826.0) -> 3.9999999916181) ((5436 . 5625) (/ 4294967296.0 1073741822.0) -> 4.00000000745058) ((5437 . 5625) (/ 4294967296.0 1073741823.0) -> 4.00000000372529) ((5438 . 5625) (/ 4294967296.0 1073741824.0) -> 4.0) ((5439 . 5625) (/ 4294967296.0 1073741825.0) -> 3.99999999627471) ((5440 . 5625) (/ 4294967296.0 1073741826.0) -> 3.99999999254942) ((5441 . 5625) (/ 4294967297.0 1073741822.0) -> 4.0000000083819) ((5442 . 5625) (/ 4294967297.0 1073741823.0) -> 4.00000000465661) ((5443 . 5625) (/ 4294967297.0 1073741824.0) -> 4.00000000093132) ((5444 . 5625) (/ 4294967297.0 1073741825.0) -> 3.99999999720603) ((5445 . 5625) (/ 4294967297.0 1073741826.0) -> 3.99999999348074) ((5446 . 5625) (/ 4294967298.0 1073741822.0) -> 4.00000000931323) ((5447 . 5625) (/ 4294967298.0 1073741823.0) -> 4.00000000558794) ((5448 . 5625) (/ 4294967298.0 1073741824.0) -> 4.00000000186265) ((5449 . 5625) (/ 4294967298.0 1073741825.0) -> 3.99999999813735) ((5450 . 5625) (/ 4294967298.0 1073741826.0) -> 3.99999999441206) ((5451 . 5625) (/ 4294967294.0 -1073741827.0) -> -3.99999998696148) ((5452 . 5625) (/ 4294967294.0 -1073741826.0) -> -3.99999999068677) ((5453 . 5625) (/ 4294967294.0 -1073741825.0) -> -3.99999999441206) ((5454 . 5625) (/ 4294967294.0 -1073741824.0) -> -3.99999999813735) ((5455 . 5625) (/ 4294967294.0 -1073741823.0) -> -4.00000000186265) ((5456 . 5625) (/ 4294967295.0 -1073741827.0) -> -3.99999998789281) ((5457 . 5625) (/ 4294967295.0 -1073741826.0) -> -3.9999999916181) ((5458 . 5625) (/ 4294967295.0 -1073741825.0) -> -3.99999999534339) ((5459 . 5625) (/ 4294967295.0 -1073741824.0) -> -3.99999999906868) ((5460 . 5625) (/ 4294967295.0 -1073741823.0) -> -4.00000000279397) ((5461 . 5625) (/ 4294967296.0 -1073741827.0) -> -3.99999998882413) ((5462 . 5625) (/ 4294967296.0 -1073741826.0) -> -3.99999999254942) ((5463 . 5625) (/ 4294967296.0 -1073741825.0) -> -3.99999999627471) ((5464 . 5625) (/ 4294967296.0 -1073741824.0) -> -4.0) ((5465 . 5625) (/ 4294967296.0 -1073741823.0) -> -4.00000000372529) ((5466 . 5625) (/ 4294967297.0 -1073741827.0) -> -3.99999998975545) ((5467 . 5625) (/ 4294967297.0 -1073741826.0) -> -3.99999999348074) ((5468 . 5625) (/ 4294967297.0 -1073741825.0) -> -3.99999999720603) ((5469 . 5625) (/ 4294967297.0 -1073741824.0) -> -4.00000000093132) ((5470 . 5625) (/ 4294967297.0 -1073741823.0) -> -4.00000000465661) ((5471 . 5625) (/ 4294967298.0 -1073741827.0) -> -3.99999999068677) ((5472 . 5625) (/ 4294967298.0 -1073741826.0) -> -3.99999999441206) ((5473 . 5625) (/ 4294967298.0 -1073741825.0) -> -3.99999999813735) ((5474 . 5625) (/ 4294967298.0 -1073741824.0) -> -4.00000000186265) ((5475 . 5625) (/ 4294967298.0 -1073741823.0) -> -4.00000000558794) ((5476 . 5625) (/ 4294967294.0 1103515243.0) -> 3.89207790399321) ((5477 . 5625) (/ 4294967294.0 1103515244.0) -> 3.89207790046623) ((5478 . 5625) (/ 4294967294.0 1103515245.0) -> 3.89207789693925) ((5479 . 5625) (/ 4294967294.0 1103515246.0) -> 3.89207789341227) ((5480 . 5625) (/ 4294967294.0 1103515247.0) -> 3.89207788988529) ((5481 . 5625) (/ 4294967295.0 1103515243.0) -> 3.89207790489941) ((5482 . 5625) (/ 4294967295.0 1103515244.0) -> 3.89207790137243) ((5483 . 5625) (/ 4294967295.0 1103515245.0) -> 3.89207789784544) ((5484 . 5625) (/ 4294967295.0 1103515246.0) -> 3.89207789431846) ((5485 . 5625) (/ 4294967295.0 1103515247.0) -> 3.89207789079148) ((5486 . 5625) (/ 4294967296.0 1103515243.0) -> 3.8920779058056) ((5487 . 5625) (/ 4294967296.0 1103515244.0) -> 3.89207790227862) ((5488 . 5625) (/ 4294967296.0 1103515245.0) -> 3.89207789875164) ((5489 . 5625) (/ 4294967296.0 1103515246.0) -> 3.89207789522466) ((5490 . 5625) (/ 4294967296.0 1103515247.0) -> 3.89207789169768) ((5491 . 5625) (/ 4294967297.0 1103515243.0) -> 3.8920779067118) ((5492 . 5625) (/ 4294967297.0 1103515244.0) -> 3.89207790318482) ((5493 . 5625) (/ 4294967297.0 1103515245.0) -> 3.89207789965783) ((5494 . 5625) (/ 4294967297.0 1103515246.0) -> 3.89207789613085) ((5495 . 5625) (/ 4294967297.0 1103515247.0) -> 3.89207789260387) ((5496 . 5625) (/ 4294967298.0 1103515243.0) -> 3.89207790761799) ((5497 . 5625) (/ 4294967298.0 1103515244.0) -> 3.89207790409101) ((5498 . 5625) (/ 4294967298.0 1103515245.0) -> 3.89207790056403) ((5499 . 5625) (/ 4294967298.0 1103515246.0) -> 3.89207789703705) ((5500 . 5625) (/ 4294967298.0 1103515247.0) -> 3.89207789351007) ((5501 . 5625) (/ 4294967294.0 631629063) -> 6.79982531772766) ((5502 . 5625) (/ 4294967294.0 631629064) -> 6.79982530696213) ((5503 . 5625) (/ 4294967294.0 631629065) -> 6.79982529619659) ((5504 . 5625) (/ 4294967294.0 631629066) -> 6.79982528543105) ((5505 . 5625) (/ 4294967294.0 631629067) -> 6.79982527466552) ((5506 . 5625) (/ 4294967295.0 631629063) -> 6.79982531931087) ((5507 . 5625) (/ 4294967295.0 631629064) -> 6.79982530854533) ((5508 . 5625) (/ 4294967295.0 631629065) -> 6.7998252977798) ((5509 . 5625) (/ 4294967295.0 631629066) -> 6.79982528701426) ((5510 . 5625) (/ 4294967295.0 631629067) -> 6.79982527624873) ((5511 . 5625) (/ 4294967296.0 631629063) -> 6.79982532089408) ((5512 . 5625) (/ 4294967296.0 631629064) -> 6.79982531012854) ((5513 . 5625) (/ 4294967296.0 631629065) -> 6.799825299363) ((5514 . 5625) (/ 4294967296.0 631629066) -> 6.79982528859747) ((5515 . 5625) (/ 4294967296.0 631629067) -> 6.79982527783193) ((5516 . 5625) (/ 4294967297.0 631629063) -> 6.79982532247728) ((5517 . 5625) (/ 4294967297.0 631629064) -> 6.79982531171175) ((5518 . 5625) (/ 4294967297.0 631629065) -> 6.79982530094621) ((5519 . 5625) (/ 4294967297.0 631629066) -> 6.79982529018068) ((5520 . 5625) (/ 4294967297.0 631629067) -> 6.79982527941514) ((5521 . 5625) (/ 4294967298.0 631629063) -> 6.79982532406049) ((5522 . 5625) (/ 4294967298.0 631629064) -> 6.79982531329496) ((5523 . 5625) (/ 4294967298.0 631629065) -> 6.79982530252942) ((5524 . 5625) (/ 4294967298.0 631629066) -> 6.79982529176388) ((5525 . 5625) (/ 4294967298.0 631629067) -> 6.79982528099835) ((5526 . 5625) (/ 4294967294.0 9.00719925474099e+15) -> 4.76837157981081e-07) ((5527 . 5625) (/ 4294967294.0 9.00719925474099e+15) -> 4.7683715798108e-07) ((5528 . 5625) (/ 4294967294.0 9.00719925474099e+15) -> 4.7683715798108e-07) ((5529 . 5625) (/ 4294967294.0 9.00719925474099e+15) -> 4.7683715798108e-07) ((5530 . 5625) (/ 4294967294.0 9.00719925474099e+15) -> 4.7683715798108e-07) ((5531 . 5625) (/ 4294967295.0 9.00719925474099e+15) -> 4.76837158092103e-07) ((5532 . 5625) (/ 4294967295.0 9.00719925474099e+15) -> 4.76837158092103e-07) ((5533 . 5625) (/ 4294967295.0 9.00719925474099e+15) -> 4.76837158092103e-07) ((5534 . 5625) (/ 4294967295.0 9.00719925474099e+15) -> 4.76837158092103e-07) ((5535 . 5625) (/ 4294967295.0 9.00719925474099e+15) -> 4.76837158092103e-07) ((5536 . 5625) (/ 4294967296.0 9.00719925474099e+15) -> 4.76837158203125e-07) ((5537 . 5625) (/ 4294967296.0 9.00719925474099e+15) -> 4.76837158203125e-07) ((5538 . 5625) (/ 4294967296.0 9.00719925474099e+15) -> 4.76837158203125e-07) ((5539 . 5625) (/ 4294967296.0 9.00719925474099e+15) -> 4.76837158203125e-07) ((5540 . 5625) (/ 4294967296.0 9.00719925474099e+15) -> 4.76837158203125e-07) ((5541 . 5625) (/ 4294967297.0 9.00719925474099e+15) -> 4.76837158314147e-07) ((5542 . 5625) (/ 4294967297.0 9.00719925474099e+15) -> 4.76837158314147e-07) ((5543 . 5625) (/ 4294967297.0 9.00719925474099e+15) -> 4.76837158314147e-07) ((5544 . 5625) (/ 4294967297.0 9.00719925474099e+15) -> 4.76837158314147e-07) ((5545 . 5625) (/ 4294967297.0 9.00719925474099e+15) -> 4.76837158314147e-07) ((5546 . 5625) (/ 4294967298.0 9.00719925474099e+15) -> 4.7683715842517e-07) ((5547 . 5625) (/ 4294967298.0 9.00719925474099e+15) -> 4.7683715842517e-07) ((5548 . 5625) (/ 4294967298.0 9.00719925474099e+15) -> 4.7683715842517e-07) ((5549 . 5625) (/ 4294967298.0 9.00719925474099e+15) -> 4.7683715842517e-07) ((5550 . 5625) (/ 4294967298.0 9.00719925474099e+15) -> 4.76837158425169e-07) ((5551 . 5625) (/ 4294967294.0 -9.00719925474099e+15) -> -4.7683715798108e-07) ((5552 . 5625) (/ 4294967294.0 -9.00719925474099e+15) -> -4.7683715798108e-07) ((5553 . 5625) (/ 4294967294.0 -9.00719925474099e+15) -> -4.7683715798108e-07) ((5554 . 5625) (/ 4294967294.0 -9.00719925474099e+15) -> -4.7683715798108e-07) ((5555 . 5625) (/ 4294967294.0 -9.00719925474099e+15) -> -4.76837157981081e-07) ((5556 . 5625) (/ 4294967295.0 -9.00719925474099e+15) -> -4.76837158092103e-07) ((5557 . 5625) (/ 4294967295.0 -9.00719925474099e+15) -> -4.76837158092103e-07) ((5558 . 5625) (/ 4294967295.0 -9.00719925474099e+15) -> -4.76837158092103e-07) ((5559 . 5625) (/ 4294967295.0 -9.00719925474099e+15) -> -4.76837158092103e-07) ((5560 . 5625) (/ 4294967295.0 -9.00719925474099e+15) -> -4.76837158092103e-07) ((5561 . 5625) (/ 4294967296.0 -9.00719925474099e+15) -> -4.76837158203125e-07) ((5562 . 5625) (/ 4294967296.0 -9.00719925474099e+15) -> -4.76837158203125e-07) ((5563 . 5625) (/ 4294967296.0 -9.00719925474099e+15) -> -4.76837158203125e-07) ((5564 . 5625) (/ 4294967296.0 -9.00719925474099e+15) -> -4.76837158203125e-07) ((5565 . 5625) (/ 4294967296.0 -9.00719925474099e+15) -> -4.76837158203125e-07) ((5566 . 5625) (/ 4294967297.0 -9.00719925474099e+15) -> -4.76837158314147e-07) ((5567 . 5625) (/ 4294967297.0 -9.00719925474099e+15) -> -4.76837158314147e-07) ((5568 . 5625) (/ 4294967297.0 -9.00719925474099e+15) -> -4.76837158314147e-07) ((5569 . 5625) (/ 4294967297.0 -9.00719925474099e+15) -> -4.76837158314147e-07) ((5570 . 5625) (/ 4294967297.0 -9.00719925474099e+15) -> -4.76837158314147e-07) ((5571 . 5625) (/ 4294967298.0 -9.00719925474099e+15) -> -4.76837158425169e-07) ((5572 . 5625) (/ 4294967298.0 -9.00719925474099e+15) -> -4.7683715842517e-07) ((5573 . 5625) (/ 4294967298.0 -9.00719925474099e+15) -> -4.7683715842517e-07) ((5574 . 5625) (/ 4294967298.0 -9.00719925474099e+15) -> -4.7683715842517e-07) ((5575 . 5625) (/ 4294967298.0 -9.00719925474099e+15) -> -4.7683715842517e-07) ((5576 . 5625) (/ 4294967294.0 12343) -> 347967.859839585) ((5577 . 5625) (/ 4294967294.0 12344) -> 347939.670609203) ((5578 . 5625) (/ 4294967294.0 12345) -> 347911.485945727) ((5579 . 5625) (/ 4294967294.0 12346) -> 347883.305848048) ((5580 . 5625) (/ 4294967294.0 12347) -> 347855.130315056) ((5581 . 5625) (/ 4294967295.0 12343) -> 347967.859920603) ((5582 . 5625) (/ 4294967295.0 12344) -> 347939.670690214) ((5583 . 5625) (/ 4294967295.0 12345) -> 347911.486026731) ((5584 . 5625) (/ 4294967295.0 12346) -> 347883.305929046) ((5585 . 5625) (/ 4294967295.0 12347) -> 347855.130396048) ((5586 . 5625) (/ 4294967296.0 12343) -> 347967.86000162) ((5587 . 5625) (/ 4294967296.0 12344) -> 347939.670771225) ((5588 . 5625) (/ 4294967296.0 12345) -> 347911.486107736) ((5589 . 5625) (/ 4294967296.0 12346) -> 347883.306010044) ((5590 . 5625) (/ 4294967296.0 12347) -> 347855.130477039) ((5591 . 5625) (/ 4294967297.0 12343) -> 347967.860082638) ((5592 . 5625) (/ 4294967297.0 12344) -> 347939.670852236) ((5593 . 5625) (/ 4294967297.0 12345) -> 347911.48618874) ((5594 . 5625) (/ 4294967297.0 12346) -> 347883.306091042) ((5595 . 5625) (/ 4294967297.0 12347) -> 347855.13055803) ((5596 . 5625) (/ 4294967298.0 12343) -> 347967.860163656) ((5597 . 5625) (/ 4294967298.0 12344) -> 347939.670933247) ((5598 . 5625) (/ 4294967298.0 12345) -> 347911.486269745) ((5599 . 5625) (/ 4294967298.0 12346) -> 347883.30617204) ((5600 . 5625) (/ 4294967298.0 12347) -> 347855.130639022) ((5601 . 5625) (/ 4294967294.0 4294967294.0) -> 1.0) ((5602 . 5625) (/ 4294967294.0 4294967295.0) -> 0.999999999767169) ((5603 . 5625) (/ 4294967294.0 4294967296.0) -> 0.999999999534339) ((5604 . 5625) (/ 4294967294.0 4294967297.0) -> 0.999999999301508) ((5605 . 5625) (/ 4294967294.0 4294967298.0) -> 0.999999999068677) ((5606 . 5625) (/ 4294967295.0 4294967294.0) -> 1.00000000023283) ((5607 . 5625) (/ 4294967295.0 4294967295.0) -> 1.0) ((5608 . 5625) (/ 4294967295.0 4294967296.0) -> 0.999999999767169) ((5609 . 5625) (/ 4294967295.0 4294967297.0) -> 0.999999999534339) ((5610 . 5625) (/ 4294967295.0 4294967298.0) -> 0.999999999301508) ((5611 . 5625) (/ 4294967296.0 4294967294.0) -> 1.00000000046566) ((5612 . 5625) (/ 4294967296.0 4294967295.0) -> 1.00000000023283) ((5613 . 5625) (/ 4294967296.0 4294967296.0) -> 1.0) ((5614 . 5625) (/ 4294967296.0 4294967297.0) -> 0.999999999767169) ((5615 . 5625) (/ 4294967296.0 4294967298.0) -> 0.999999999534339) ((5616 . 5625) (/ 4294967297.0 4294967294.0) -> 1.00000000069849) ((5617 . 5625) (/ 4294967297.0 4294967295.0) -> 1.00000000046566) ((5618 . 5625) (/ 4294967297.0 4294967296.0) -> 1.00000000023283) ((5619 . 5625) (/ 4294967297.0 4294967297.0) -> 1.0) ((5620 . 5625) (/ 4294967297.0 4294967298.0) -> 0.999999999767169) ((5621 . 5625) (/ 4294967298.0 4294967294.0) -> 1.00000000093132) ((5622 . 5625) (/ 4294967298.0 4294967295.0) -> 1.00000000069849) ((5623 . 5625) (/ 4294967298.0 4294967296.0) -> 1.00000000046566) ((5624 . 5625) (/ 4294967298.0 4294967297.0) -> 1.00000000023283) ((5625 . 5625) (/ 4294967298.0 4294967298.0) -> 1.0) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/rev-app.scm��������������������������������������������������������������������0000644�0001750�0001750�00000000265�13052302315�016225� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(use reverser srfi-1) (assert (equal? "oof" (rev "foo"))) (assert (equal? '(a b c) (rev '(c b a)))) (assert (= rev-version (string->number (last (command-line-arguments))))) (exit) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/r7rs-tests.scm�����������������������������������������������������������������0000644�0001750�0001750�00000014544�13052302315�016715� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;; R7RS Tests ;; 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-4.12.0/tests/r5rs_pitfalls.scm��������������������������������������������������������������0000644�0001750�0001750�00000023536�13040667210�017457� 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-4.12.0/tests/runtests.bat�������������������������������������������������������������������0000644�0001750�0001750�00000040000�13052302367�016524� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������@echo off @rem runtests.bat - run CHICKEN testsuite on cmd.exe with mingw setlocal enableextensions set TEST_DIR=%cd% set OS_NAME=WindowsNT set CHICKEN=..\chicken set ASMFLAGS=-Wa,-w set FAST_OPTIONS=-O5 -d0 -b -disable-interrupts set PATH=%cd%\..;%PATH% set TYPESDB=..\types.db rem Increase this when tests start failing on "inexplicable" diffs set FCBUFSIZE=500 set compile=..\csc -types %TYPESDB% -ignore-repository -compiler %CHICKEN% -v -I%TEST_DIR%/.. -L%TEST_DIR%/.. -include-path %TEST_DIR%/.. -o a.out set compile2=..\csc -compiler %CHICKEN% -v -I%TEST_DIR%/.. -L%TEST_DIR%/.. -include-path %TEST_DIR%/.. set compile_s=..\csc -s -types %TYPESDB% -ignore-repository -compiler %CHICKEN% -v -I%TEST_DIR%/.. -L%TEST_DIR%/.. -include-path %TEST_DIR%/.. set interpret=..\csi -n -include-path %TEST_DIR%/.. del /f /q *.exe *.so *.o *.import.* ..\foo.import.* echo ======================================== version tests ... %interpret% -s version-tests.scm 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 ======================================== 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 ======================================== scrutiny tests ... %compile% typematch-tests.scm -specialize -w if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 %compile% scrutiny-tests.scm -A -scrutinize -verbose 2>scrutiny.out if errorlevel 1 exit /b 1 rem this is sensitive to gensym-names, so make it optional if not exist scrutiny.expected copy /Y scrutiny.out scrutiny.expected fc /lb%FCBUFSIZE% /w scrutiny.expected scrutiny.out if errorlevel 1 exit /b 1 %compile% scrutiny-tests-2.scm -A -scrutinize -analyze-only -verbose 2>scrutiny-2.out if errorlevel 1 exit /b 1 if not exist scrutiny-2.expected copy /Y scrutiny-2.out scrutiny-2.expected fc /lb%FCBUFSIZE% /w scrutiny-2.expected scrutiny-2.out 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-type-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 -feature chicken-bootstrap -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 if errorlevel 1 exit /b 1 %compile% fft.scm -O2 -local -specialize -debug x -d0 -disable-interrupts -b -o fft2 -specialize if errorlevel 1 exit /b 1 echo normal: fft1 1000 7 if errorlevel 1 exit /b 1 echo specialized: fft2 1000 7 if errorlevel 1 exit /b 1 echo ======================================== callback tests ... %compile% 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 *** Skipping "feeley-dynwind" for now *** rem %interpret% -s feeley-dynwind.scm 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)))" 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)))" 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 "(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.log if errorlevel 1 exit /b 1 type r4rstest.log 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 (compiled) ... %compile% module-tests-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 ======================================== hash-table tests ... %interpret% -s hash-table-tests.scm 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 echo ======================================== string->number tests ... %compile% numbers-string-conversion-tests.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 ======================================== srfi-13 tests ... %interpret% -s srfi-13-tests.scm if errorlevel 1 exit /b 1 echo ======================================== srfi-14 tests ... %compile% srfi-14-tests.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== condition tests ... %interpret% -s condition-tests.scm if errorlevel 1 exit /b 1 echo ======================================== srfi-18 tests ... %interpret% -s simple-thread-test.scm if errorlevel 1 exit /b 1 %interpret% -s mutex-test.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 del /f /q /s tmpdir mkdir tmpdir echo 0 >tmpdir\.dotfile %interpret% -R posix -e "(delete-directory \"tmpdir\" #t)" if errorlevel 1 exit /b 1 echo ======================================== find-files tests ... %interpret% -bnq test-find-files.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 ..\utils.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 -:w rem Currently disabled, because this may leave 1 symbol unreclaimed. rem 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 ======================================== 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 ======================================== 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 del /f /q /s rev-app rev-app-2 reverser\*.import.* reverser\*.so rem echo ======================================== reinstall tests rem currently disabled for windows rem echo ======================================== deployment tests rem currently disabled for windows echo ======================================== done. chicken-4.12.0/tests/module-tests-2.scm�������������������������������������������������������������0000644�0001750�0001750�00000004232�13040667210�017442� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; module-tests-2.scm (module oo (output-of) (import scheme chicken ports) (define-syntax output-of (syntax-rules () ((_ exp) (with-output-to-string (lambda () exp))))) ) (module mscheme (lambda) (import (rename scheme (lambda s:lambda)) chicken) (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 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 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 chicken) (define-syntax define (syntax-rules () ((_) (display 'oink)))) (define) (let () (define a 1) (assert (= a 1))) (define) (newline)) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tests/locative-stress-test.scm�������������������������������������������������������0000644�0001750�0001750�00000002575�13052302315�020765� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; locative-stress-test.scm - by Kon Lovett (declare (usual-integrations)) ;(set-gc-report! #t) (require-extension srfi-1) #> 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))) (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-4.12.0/tests/fixnum-tests.scm���������������������������������������������������������������0000644�0001750�0001750�00000001364�13052302315�017322� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(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)) (assert (= 4 (fxo+ 2 2))) (assert (= -26 (fxo+ 74 -100))) (assert (= 1073741823 (fxo+ #x3ffffffe 1))) (assert (if (##sys#fudge 3) ; 64-bit? (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 (##sys#fudge 3) ; 64-bit? (= -4611686018427387904 (fxo- (- #x3fffffffffffffff) 1)) (= -1073741824 (fxo- (- #x3fffffff) 1)))) (assert (if (##sys#fudge 3) ; 64-bit? (not (fxo- (- #x3fffffffffffffff) 2)) (not (fxo- (- #x3fffffff) 2)))) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/chicken-profile.c��������������������������������������������������������������������0000644�0001750�0001750�00000402312�13052306516�016221� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken-profile.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: chicken-profile.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -no-lambda-info -local -no-trace -output-file chicken-profile.c used units: library eval chicken_2dsyntax srfi_2d1 srfi_2d13 srfi_2d69 posix utils */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_srfi_2d1_toplevel) C_externimport void C_ccall C_srfi_2d1_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_srfi_2d13_toplevel) C_externimport void C_ccall C_srfi_2d13_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_srfi_2d69_toplevel) C_externimport void C_ccall C_srfi_2d69_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_utils_toplevel) C_externimport void C_ccall C_utils_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[95]; static double C_possibly_force_alignment; C_noret_decl(f_1746) static void C_fcall f_1746(C_word t0,C_word t1,C_word t2) 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_1469) static void C_ccall f_1469(C_word c,C_word *av) 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_1830) static void C_fcall f_1830(C_word t0,C_word t1) C_noret; C_noret_decl(f_1771) static void C_ccall f_1771(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_687) static void C_fcall f_687(C_word t0) C_noret; C_noret_decl(f_1013) static void C_ccall f_1013(C_word c,C_word *av) C_noret; C_noret_decl(f_1947) static void C_ccall f_1947(C_word c,C_word *av) C_noret; C_noret_decl(f_691) static void C_ccall f_691(C_word c,C_word *av) C_noret; C_noret_decl(f_698) static void C_ccall f_698(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_1780) static void C_ccall f_1780(C_word c,C_word *av) C_noret; C_noret_decl(f_1957) static void C_ccall f_1957(C_word c,C_word *av) 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_1204) static void C_fcall f_1204(C_word t0,C_word t1,C_word t2,C_word t3) 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_1950) static void C_ccall f_1950(C_word c,C_word *av) C_noret; C_noret_decl(f_658) static void C_ccall f_658(C_word c,C_word *av) C_noret; C_noret_decl(f_734) static void C_fcall f_734(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_806) static void C_fcall f_806(C_word t0,C_word t1) 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_744) static void C_fcall f_744(C_word t0,C_word t1) C_noret; C_noret_decl(f_829) static void C_ccall f_829(C_word c,C_word *av) C_noret; C_noret_decl(f_826) static void C_ccall f_826(C_word c,C_word *av) C_noret; C_noret_decl(f_1214) static void C_fcall f_1214(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_1799) static void C_ccall f_1799(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_1376) static void C_ccall f_1376(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_1117) static void C_ccall f_1117(C_word c,C_word *av) C_noret; C_noret_decl(f_777) static void C_ccall f_777(C_word c,C_word *av) C_noret; C_noret_decl(f_847) static void C_ccall f_847(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_781) static void C_ccall f_781(C_word c,C_word *av) C_noret; C_noret_decl(f_926) static void C_fcall f_926(C_word t0,C_word t1) 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_920) static void C_ccall f_920(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_1390) static void C_ccall f_1390(C_word c,C_word *av) C_noret; C_noret_decl(f_1583) static void C_fcall f_1583(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1683) static void C_ccall f_1683(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_751) static void C_ccall f_751(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_862) static void C_ccall f_862(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_1575) static void C_ccall f_1575(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_767) static void C_ccall f_767(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_986) static void C_ccall f_986(C_word c,C_word *av) C_noret; C_noret_decl(f_1486) static void C_ccall f_1486(C_word c,C_word *av) 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_1481) static void C_ccall f_1481(C_word c,C_word *av) C_noret; C_noret_decl(f_1050) static void C_ccall f_1050(C_word c,C_word *av) C_noret; C_noret_decl(f_1054) static void C_ccall f_1054(C_word c,C_word *av) C_noret; C_noret_decl(f_1282) static void C_ccall f_1282(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_951) static void C_ccall f_951(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_1593) static void C_ccall f_1593(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_1263) static void C_ccall f_1263(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_1442) static void C_ccall f_1442(C_word c,C_word *av) C_noret; C_noret_decl(f_1192) static void C_ccall f_1192(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_1898) static void C_fcall f_1898(C_word t0,C_word t1,C_word t2,C_word t3) 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_1438) static void C_ccall f_1438(C_word c,C_word *av) C_noret; C_noret_decl(f_1329) static void C_fcall f_1329(C_word t0,C_word t1,C_word t2) 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_1616) static void C_ccall f_1616(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_1507) static void C_ccall f_1507(C_word c,C_word *av) C_noret; C_noret_decl(f_1509) static void C_fcall f_1509(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_1348) static void C_ccall f_1348(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_1340) static void C_ccall f_1340(C_word c,C_word *av) C_noret; C_noret_decl(f_1409) static void C_fcall f_1409(C_word t0,C_word t1) C_noret; C_noret_decl(f_1406) static void C_ccall f_1406(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_1864) static void C_fcall f_1864(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_661) static void C_ccall f_661(C_word c,C_word *av) C_noret; C_noret_decl(f_1364) static void C_ccall f_1364(C_word c,C_word *av) C_noret; C_noret_decl(f_664) static void C_ccall f_664(C_word c,C_word *av) C_noret; C_noret_decl(f_667) static void C_ccall f_667(C_word c,C_word *av) C_noret; C_noret_decl(f_1516) static void C_fcall f_1516(C_word t0,C_word t1) 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(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_670) static void C_ccall f_670(C_word c,C_word *av) C_noret; C_noret_decl(f_673) static void C_ccall f_673(C_word c,C_word *av) C_noret; C_noret_decl(f_676) static void C_ccall f_676(C_word c,C_word *av) C_noret; C_noret_decl(f_679) static void C_ccall f_679(C_word c,C_word *av) C_noret; C_noret_decl(f_1352) static void C_ccall f_1352(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_1542) static void C_ccall f_1542(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_1837) static void C_fcall f_1837(C_word t0,C_word t1) 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_1812) static void C_fcall f_1812(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1140) static void C_ccall f_1140(C_word c,C_word *av) C_noret; C_noret_decl(f_1147) static void C_ccall f_1147(C_word c,C_word *av) C_noret; C_noret_decl(f_1084) static void C_ccall f_1084(C_word c,C_word *av) C_noret; C_noret_decl(f_1803) static void C_ccall f_1803(C_word c,C_word *av) C_noret; C_noret_decl(f_1702) static void C_fcall f_1702(C_word t0,C_word t1,C_word t2) 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_1134) static void C_ccall f_1134(C_word c,C_word *av) C_noret; C_noret_decl(f_1074) static void C_fcall f_1074(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1163) static void C_ccall f_1163(C_word c,C_word *av) C_noret; C_noret_decl(f_1153) static void C_fcall f_1153(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1151) static void C_ccall f_1151(C_word c,C_word *av) C_noret; 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_1746(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[1]; C_word t1=av[0]; f_1830(t0,t1);} C_noret_decl(trf_687) static void C_ccall trf_687(C_word c,C_word *av) C_noret; static void C_ccall trf_687(C_word c,C_word *av){ C_word t0=av[0]; f_687(t0);} C_noret_decl(trf_1204) static void C_ccall trf_1204(C_word c,C_word *av) C_noret; static void C_ccall trf_1204(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1204(t0,t1,t2,t3);} C_noret_decl(trf_734) static void C_ccall trf_734(C_word c,C_word *av) C_noret; static void C_ccall trf_734(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_734(t0,t1,t2);} C_noret_decl(trf_806) static void C_ccall trf_806(C_word c,C_word *av) C_noret; static void C_ccall trf_806(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_806(t0,t1);} C_noret_decl(trf_744) static void C_ccall trf_744(C_word c,C_word *av) C_noret; static void C_ccall trf_744(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_744(t0,t1);} C_noret_decl(trf_1214) static void C_ccall trf_1214(C_word c,C_word *av) C_noret; static void C_ccall trf_1214(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1214(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_926) static void C_ccall trf_926(C_word c,C_word *av) C_noret; static void C_ccall trf_926(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_926(t0,t1);} C_noret_decl(trf_1583) static void C_ccall trf_1583(C_word c,C_word *av) C_noret; static void C_ccall trf_1583(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1583(t0,t1,t2);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1898(t0,t1,t2,t3);} C_noret_decl(trf_1329) static void C_ccall trf_1329(C_word c,C_word *av) C_noret; static void C_ccall trf_1329(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1329(t0,t1,t2);} C_noret_decl(trf_1509) static void C_ccall trf_1509(C_word c,C_word *av) C_noret; static void C_ccall trf_1509(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_1509(t0,t1,t2,t3,t4);} C_noret_decl(trf_1409) static void C_ccall trf_1409(C_word c,C_word *av) C_noret; static void C_ccall trf_1409(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1409(t0,t1);} C_noret_decl(trf_1864) static void C_ccall trf_1864(C_word c,C_word *av) C_noret; static void C_ccall trf_1864(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1864(t0,t1,t2);} C_noret_decl(trf_1516) static void C_ccall trf_1516(C_word c,C_word *av) C_noret; static void C_ccall trf_1516(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1516(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_1837) static void C_ccall trf_1837(C_word c,C_word *av) C_noret; static void C_ccall trf_1837(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1837(t0,t1);} C_noret_decl(trf_1812) static void C_ccall trf_1812(C_word c,C_word *av) C_noret; static void C_ccall trf_1812(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1812(t0,t1,t2);} C_noret_decl(trf_1702) static void C_ccall trf_1702(C_word c,C_word *av) C_noret; static void C_ccall trf_1702(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1702(t0,t1,t2);} C_noret_decl(trf_1074) static void C_ccall trf_1074(C_word c,C_word *av) C_noret; static void C_ccall trf_1074(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1074(t0,t1,t2);} C_noret_decl(trf_1153) static void C_ccall trf_1153(C_word c,C_word *av) C_noret; static void C_ccall trf_1153(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1153(t0,t1,t2);} /* map-loop197 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_fcall f_1746(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_1746,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_1771,a[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_cadr(t6); t8=t7; t9=C_i_caddr(t6); t10=t9; t11=C_i_cadddr(t6); t12=t11; t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1427,a[2]=t5,a[3]=t12,a[4]=t10,a[5]=t8,a[6]=t6,tmp=(C_word)a,a+=7,tmp); /* chicken-profile.scm:218: fifth */ t14=C_fast_retrieve(lf[61]);{ C_word av2[3]; av2[0]=t14; av2[1]=t13; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t14+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);}}} /* k1448 in k1444 in k1440 in k1436 in k1432 in k1425 in map-loop197 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ C_save_and_reclaim((void *)f_1450,2,av);} a=C_alloc(15); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1469,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1472,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_1746,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_1746(t6,t2,t1);} /* f_1927 in foldl141 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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=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_1927,4,av);} t4=C_i_caddr(t3); /* chicken-profile.scm:196: max */ t5=*((C_word*)lf[55]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k1828 in g165 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_fcall f_1830(C_word 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(13,0,2)))){ C_save_and_reclaim_args((void *)trf_1830,2,t0,t1);} a=C_alloc(13); t2=(C_truep(t1)?t1:C_fix(0)); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1837,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=C_a_i_divide(&a,2,((C_word*)t0)[5],((C_word*)t0)[4]); t6=t4; f_1837(t6,C_a_i_times(&a,2,t5,C_fix(100)));} else{ t5=t4; f_1837(t5,C_SCHEME_FALSE);}} /* k1769 in map-loop197 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1771,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_1746(t6,((C_word*)t0)[5],t5);} /* k1917 in foldl141 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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);} t2=((C_word*)((C_word*)t0)[2])[1]; f_1898(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* print-usage in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_fcall f_687(C_word t1){ C_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_687,1,t1);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_691,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_698,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_a_i_cons(&a,2,lf[9],C_SCHEME_END_OF_LIST); t5=C_a_i_cons(&a,2,lf[4],t4); t6=C_a_i_cons(&a,2,lf[10],t5); t7=C_a_i_cons(&a,2,lf[3],t6); t8=C_a_i_cons(&a,2,lf[11],t7); t9=C_a_i_cons(&a,2,lf[2],t8); t10=C_a_i_cons(&a,2,lf[12],t9); /* chicken-profile.scm:44: ##sys#print-to-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[13]); C_word av2[3]; av2[0]=*((C_word*)lf[13]+1); av2[1]=t3; av2[2]=t10; tp(3,av2);}} /* sort-by-avg in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1013(C_word c,C_word *av){ C_word tmp; C_word t0=av[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); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1013,4,av);} t4=C_i_cadddr(t2); t5=C_i_cadddr(t3); if(C_truep(C_i_eqvp(t4,t5))){ t6=t2; t7=C_u_i_cdr(t6); t8=C_u_i_cdr(t7); t9=C_u_i_car(t8); t10=t3; t11=C_u_i_cdr(t10); t12=C_u_i_cdr(t11); t13=C_u_i_car(t12); t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_i_greaterp(t9,t13); ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_greaterp(t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k1945 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1947,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1950,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1953,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#implicit-exit-handler */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[43]+1); av2[1]=t3; tp(2,av2);}} /* k689 in print-usage in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_691,2,av);} /* chicken-profile.scm:66: exit */ t2=C_fast_retrieve(lf[7]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k696 in print-usage in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_698(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_698,2,av);} /* chicken-profile.scm:45: display */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_1936 in foldl141 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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=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,1)))){ C_save_and_reclaim((void *)f_1936,4,av);} a=C_alloc(4); t4=C_i_caddr(t3); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_plus(&a,2,t2,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a1779 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1780,3,av);} if(C_truep(C_i_cadr(t2))){ t3=t2; t4=C_u_i_cdr(t3); t5=C_u_i_car(t4); t6=C_i_zerop(t5); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=(C_truep(t6)?lf[1]:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1957(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_1957,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_734,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_734(t5,((C_word*)t0)[2],t1);} /* k1951 in k1945 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1953,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* map-loop71 in k1190 in doloop66 in k1149 in k1132 in k1129 in read-profile in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_fcall f_1204(C_word t0,C_word t1,C_word 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(14,0,2)))){ C_save_and_reclaim_args((void *)trf_1204,4,t0,t1,t2,t3);} a=C_alloc(14); 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_1214,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_a_i_plus(&a,2,t7,t8); t10=t6; f_1214(t10,C_a_i_cons(&a,2,t9,C_SCHEME_END_OF_LIST));} else{ t9=t6; f_1214(t9,C_a_i_cons(&a,2,C_SCHEME_FALSE,C_SCHEME_END_OF_LIST));}} else{ t9=t6; f_1214(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);}}} /* k1200 in k1190 in doloop66 in k1149 in k1132 in k1129 in read-profile in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1202,2,av);} /* chicken-profile.scm:160: hash-table-set! */ t2=C_fast_retrieve(lf[26]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1948 in k1945 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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,1)))){ C_save_and_reclaim((void *)f_1950,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k656 */ static void C_ccall f_658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_658,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_661,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_fcall f_734(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_734,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_744,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(lf[0])){ t4=t3; f_744(t4,C_SCHEME_UNDEFINED);} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_751,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:74: glob */ t5=C_fast_retrieve(lf[72]);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=lf[73]; ((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_787,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_806,a[2]=t4,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_829,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[76]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[77]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[78]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))){ /* chicken-profile.scm:94: print-usage */ f_687(t13);} else{ if(C_truep(C_i_string_equal_p(t4,lf[79]))){ t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_847,a[2]=t13,tmp=(C_word)a,a+=3,tmp); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_854,a[2]=t14,tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:96: chicken-version */ t16=C_fast_retrieve(lf[81]);{ 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[82]))){ t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_862,a[2]=t13,tmp=(C_word)a,a+=3,tmp); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_869,a[2]=t14,tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:99: chicken-version */ t16=C_fast_retrieve(lf[81]);{ 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[83]))){ t14=lf[1] /* no-unused */ =C_SCHEME_TRUE;; /* chicken-profile.scm:112: 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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_884,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t7,tmp=(C_word)a,a+=5,tmp); /* chicken-profile.scm:102: next-number */ t15=t10; f_806(t15,t14);} else{ if(C_truep(C_u_i_string_equal_p(t4,lf[85]))){ t14=C_mutate2(&lf[20] /* (set! sort-by ...) */,lf[14]); /* chicken-profile.scm:112: 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=C_mutate2(&lf[20] /* (set! sort-by ...) */,lf[15]); /* chicken-profile.scm:112: 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[87]))){ t14=C_mutate2(&lf[20] /* (set! sort-by ...) */,lf[16]); /* chicken-profile.scm:112: 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[88]))){ t14=C_mutate2(&lf[20] /* (set! sort-by ...) */,lf[17]); /* chicken-profile.scm:112: 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[89]))){ t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_920,a[2]=t13,tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:107: next-arg */ t15=((C_word*)t9)[1]; f_787(t15,t14);} else{ t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_926,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_926(t17,C_u_i_char_equalp(C_make_character(45),t16));} else{ t16=t14; f_926(t16,C_SCHEME_FALSE);}}}}}}}}}}}}} /* next-number in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_fcall f_806(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_806,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_826,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-profile.scm:91: next-arg */ t3=((C_word*)((C_word*)t0)[3])[1]; f_787(t3,t2);} /* k1107 in k918 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 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_1109,2,av);} a=C_alloc(3); t2=C_mutate2(&lf[2] /* (set! seconds-digits ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1113,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:150: arg-digit */ t4=C_retrieve2(lf[90],"arg-digit"); f_1074(t4,t3,C_fix(1));} /* k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_fcall f_744(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_744,2,t0,t1);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1390,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:187: print */ t4=*((C_word*)lf[50]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=lf[67]; av2[3]=lf[0]; av2[4]=lf[68]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k827 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_829,2,av);} /* chicken-profile.scm:112: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_734(t2,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k824 in next-number in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_826,2,av);} a=C_alloc(4); t2=C_a_i_string_to_number(&a,2,t1,C_fix(10)); if(C_truep(t2)){ if(C_truep(C_i_greaterp(t2,C_fix(0)))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* chicken-profile.scm:92: error */ t3=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[75]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} else{ /* chicken-profile.scm:92: error */ t3=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[75]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k1212 in map-loop71 in k1190 in doloop66 in k1149 in k1132 in k1129 in read-profile in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_fcall f_1214(C_word 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_1214,2,t0,t1);} t2=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t1); t3=C_mutate2(((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_1204(t6,((C_word*)t0)[6],t4,t5);} /* k1382 in format-real in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_1384,2,av);} a=C_alloc(6); t2=C_i_inexact_to_exact(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1340,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); /* ##sys#fixnum->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[39]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[39]+1); av2[1]=t4; av2[2]=t3; tp(3,av2);}} /* k1797 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 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_1799,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1803,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-profile.scm:213: take */ t3=C_fast_retrieve(lf[63]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=lf[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[3]; f_1409(t2,C_SCHEME_UNDEFINED);}} /* k1111 in k1107 in k918 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 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_1113,2,av);} a=C_alloc(3); t2=C_mutate2(&lf[3] /* (set! average-digits ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1117,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:151: arg-digit */ t4=C_retrieve2(lf[90],"arg-digit"); f_1074(t4,t3,C_fix(2));} /* k1374 in k1370 in k1338 in k1382 in format-real in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1376,2,av);} a=C_alloc(4); t2=C_a_i_times(&a,2,((C_word*)t0)[2],t1); /* chicken-profile.scm:182: truncate */ t3=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1370 in k1338 in k1382 in format-real in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1372,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1376,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-profile.scm:183: expt */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_fix(10); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k1115 in k1111 in k1107 in k918 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1117,2,av);} t2=C_mutate2(&lf[4] /* (set! percent-digits ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k775 in a768 in k749 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_777(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_777,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_781,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-profile.scm:80: file-modification-time */ t4=C_fast_retrieve(lf[71]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k845 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_847(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_847,2,av);} /* chicken-profile.scm:97: exit */ t2=C_fast_retrieve(lf[7]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* next-arg in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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(0,0,3)))){ C_save_and_reclaim_args((void *)trf_787,2,t0,t1);} if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[2])[1]))){ /* chicken-profile.scm:86: error */ t2=*((C_word*)lf[69]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[74]; 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_mutate2(((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);}}} /* k779 in k775 in a768 in k749 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_781,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_greaterp(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k924 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_fcall f_926(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_926,2,t0,t1);} if(C_truep(t1)){ /* chicken-profile.scm:109: error */ t2=*((C_word*)lf[69]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[93]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ if(C_truep(lf[0])){ /* chicken-profile.scm:110: print-usage */ f_687(((C_word*)t0)[2]);} else{ t2=C_mutate2(&lf[0] /* (set! file ...) */,((C_word*)t0)[3]); /* chicken-profile.scm:112: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_734(t3,((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1]);}}} /* k852 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_854,2,av);} /* chicken-profile.scm:96: print */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[80]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k918 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_920,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=t1; t4=C_i_string_length(t3); t5=C_eqp(t4,C_fix(3)); if(C_truep(t5)){ t6=C_mutate2(&lf[90] /* (set! arg-digit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1074,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1109,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:149: arg-digit */ t8=C_retrieve2(lf[90],"arg-digit"); f_1074(t8,t7,C_fix(0));} else{ /* chicken-profile.scm:152: error */ t6=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t2; av2[2]=lf[92]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 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_1393,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[44]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1403,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_1898,a[2]=t3,a[3]=t8,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_1898(t10,t6,t4,C_fix(0));} /* k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1390,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1393,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:188: with-input-from-file */ t3=C_fast_retrieve(lf[66]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[0]; av2[3]=lf[21]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* for-each-loop332 in k1573 in k1570 in k1482 in k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in ... */ static void C_fcall f_1583(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_1583,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_1593,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:244: g333 */ 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);}}} /* k1681 in map-loop237 in k1641 in a1629 in k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in ... */ static void C_ccall f_1683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1683,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((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_1654(t7,((C_word*)t0)[6],t5,t6);} /* k867 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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,2)))){ C_save_and_reclaim((void *)f_869,2,av);} /* chicken-profile.scm:99: print */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k749 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_751,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_754,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t1))){ /* chicken-profile.scm:76: error */ t3=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[70]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_767,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_769,tmp=(C_word)a,a+=2,tmp); /* chicken-profile.scm:77: sort */ t5=C_fast_retrieve(lf[65]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k752 in k749 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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_mutate2(&lf[0] /* (set! file ...) */,t1); t3=((C_word*)t0)[2]; f_744(t3,t2);} /* k860 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_862,2,av);} /* chicken-profile.scm:100: exit */ t2=C_fast_retrieve(lf[7]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1492 in print-row in k1482 in k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1494,2,av);} /* chicken-profile.scm:239: print */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1573 in k1570 in k1482 in k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 in ... */ static void C_ccall f_1575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1575,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[52]); 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_1583,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_1583(t8,((C_word*)t0)[4],t3);} /* k1570 in k1482 in k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 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_1572,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1575,a[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_1608,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1616,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-profile.scm:241: reduce */ t5=C_fast_retrieve(lf[53]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[54]+1); av2[3]=C_fix(0); av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k765 in k749 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_767,2,av);} t2=C_i_car(t1); t3=C_mutate2(&lf[0] /* (set! file ...) */,t2); t4=((C_word*)t0)[2]; f_744(t4,t3);} /* a768 in k749 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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=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_769,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_777,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-profile.scm:79: file-modification-time */ t5=C_fast_retrieve(lf[71]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* sort-by-time in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_986(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_986,4,av);} t4=C_i_caddr(t2); t5=C_i_caddr(t3); if(C_truep(C_i_nequalp(t4,t5))){ t6=t2; t7=C_u_i_cdr(t6); t8=C_u_i_car(t7); t9=t3; t10=C_u_i_cdr(t9); t11=C_u_i_car(t10); t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_i_greaterp(t8,t11); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_greaterp(t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* print-row in k1482 in k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1486,3,av);} a=C_alloc(20); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1494,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=lf[31]; t9=C_i_check_list_2(t2,lf[25]); t10=C_i_check_list_2(((C_word*)t0)[2],lf[25]); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1507,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_1509,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_1509(t15,t11,t2,((C_word*)t0)[2],((C_word*)t0)[4]);} /* k1482 in k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 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_1484,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1486,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_1572,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* chicken-profile.scm:240: print-row */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; f_1486(3,av2);}} /* k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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(27,c,4)))){ C_save_and_reclaim((void *)f_1481,2,av);} a=C_alloc(27); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1484,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|1,a[1]=(C_word)f_1630,tmp=(C_word)a,a+=2,tmp); t5=C_a_i_list5(&a,5,C_fix(0),C_fix(0),C_fix(0),C_fix(0),C_fix(0)); t6=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)((C_word*)t0)[3])[1]); /* chicken-profile.scm:233: fold */ t7=C_fast_retrieve(lf[56]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1048 in sort-by-name in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_1050,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1054,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-profile.scm:136: symbol->string */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k1052 in k1048 in sort-by-name in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1054,2,av);} /* chicken-profile.scm:136: string<? */ t2=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1280 in format-string in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1282(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1282,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[32]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[32]+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[32]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[32]+1); av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=t1; tp(4,av2);}}} /* k882 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_884,2,av);} t2=C_mutate2(&lf[5] /* (set! top ...) */,t1); /* chicken-profile.scm:112: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_734(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* sort-by-calls in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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=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(0,c,1)))){ C_save_and_reclaim((void *)f_951,4,av);} t4=C_i_cadr(t2); t5=C_i_cadr(t3); if(C_truep(C_i_eqvp(t4,t5))){ t6=C_i_caddr(t2); t7=C_i_caddr(t3); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_i_greaterp(t6,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=(C_truep(t4)?(C_truep(t5)?C_i_greaterp(t4,t5):C_SCHEME_TRUE):C_SCHEME_TRUE); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 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_1472,2,av);} a=C_alloc(36); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_a_i_list5(&a,5,lf[45],lf[46],lf[47],lf[48],lf[49]); 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_1481,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[57]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[57]+1); av2[1]=t7; av2[2]=C_fix(2); av2[3]=C_make_character(32); tp(4,av2);}} /* k1591 in for-each-loop332 in k1573 in k1570 in k1482 in k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in ... */ static void C_ccall f_1593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1593,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1583(t3,((C_word*)t0)[4],t2);} /* sort-by-name in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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=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_1042,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1050,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_car(t2); /* chicken-profile.scm:136: symbol->string */ t6=*((C_word*)lf[19]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* format-string in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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; 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_1263,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_1282,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:169: make-string */ t18=*((C_word*)lf[33]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=t15; av2[2]=t17; av2[3]=t11; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}} /* k1168 in k1161 in doloop66 in k1149 in k1132 in k1129 in read-profile in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1170,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_1153(t2,((C_word*)t0)[3],t1);} /* k1440 in k1436 in k1432 in k1425 in map-loop197 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 in ... */ 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 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_1442,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1446,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_divide(&a,2,((C_word*)t0)[6],C_fix(1000)); /* chicken-profile.scm:222: format-real */ f_1329(t3,t4,lf[3]);} /* k1190 in doloop66 in k1149 in k1132 in k1129 in read-profile in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1192,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_i_check_list_2(t1,lf[25]); t5=C_i_check_list_2(t3,lf[25]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1202,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_1204,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_1204(t10,t6,t1,t3);} /* k1444 in k1440 in k1436 in k1432 in k1425 in map-loop197 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_1446,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1450,a[2]=((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:223: format-real */ f_1329(t3,((C_word*)t0)[6],lf[4]);} /* foldl141 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_fcall f_1898(C_word t0,C_word t1,C_word 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_1898,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[22]); t7=(C_truep(t6)?(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1927,tmp=(C_word)a,a+=2,tmp):(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1936,tmp=(C_word)a,a+=2,tmp)); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1919,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:195: g148 */ 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);}}} /* k1432 in k1425 in map-loop197 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 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_1434,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1438,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])){ /* chicken-profile.scm:220: number->string */ t4=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[59]; f_1438(2,av2);}}} /* k1436 in k1432 in k1425 in map-loop197 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1438(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_1438,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1442,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_a_i_divide(&a,2,((C_word*)t0)[6],C_fix(1000)); /* chicken-profile.scm:221: format-real */ f_1329(t3,t4,lf[2]);} /* format-real in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_fcall f_1329(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_1329,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1384,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-profile.scm:175: truncate */ t5=*((C_word*)lf[40]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k1887 in map-loop159 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1889,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_1864(t6,((C_word*)t0)[5],t5);} /* k1614 in k1570 in k1482 in k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_1616,2,av);} a=C_alloc(12); t2=C_i_length(((C_word*)t0)[2]); t3=C_a_i_minus(&a,2,t2,C_fix(1)); t4=C_a_i_times(&a,2,C_fix(2),t3); t5=C_a_i_plus(&a,2,t1,t4); /* chicken-profile.scm:241: make-string */ t6=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1425 in map-loop197 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 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_1427,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1434,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_u_i_car(((C_word*)t0)[6]); /* chicken-profile.scm:219: ##sys#symbol->qualified-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[60]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[60]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} /* k1505 in print-row in k1482 in k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1507,2,av);} /* chicken-profile.scm:239: string-join */ t2=C_fast_retrieve(lf[51]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop296 in print-row in k1482 in k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 in ... */ static void C_fcall f_1509(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_1509,5,t0,t1,t2,t3,t4);} a=C_alloc(10); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1516,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_1516(t7,(C_truep(t6)?C_i_pairp(t4):C_SCHEME_FALSE));} else{ t6=t5; f_1516(t6,C_SCHEME_FALSE);}} /* k1606 in k1570 in k1482 in k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1608,2,av);} /* chicken-profile.scm:241: print */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1346 in k1338 in k1382 in format-real in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1348,2,av);} /* chicken-profile.scm:176: string-append */ t2=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1860 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1862,2,av);} /* chicken-profile.scm:199: sort */ t2=C_fast_retrieve(lf[65]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[20]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1338 in k1382 in format-real in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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,4)))){ C_save_and_reclaim((void *)f_1340,2,av);} a=C_alloc(16); t2=t1; t3=C_i_greaterp(((C_word*)t0)[2],C_fix(0)); t4=(C_truep(t3)?lf[35]:lf[36]); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1348,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_1352,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_1364,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1372,a[2]=t8,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-profile.scm:183: - */ t10=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=C_fix(-1); ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_fcall f_1409(C_word t0,C_word t1){ C_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,3)))){ C_save_and_reclaim_args((void *)trf_1409,2,t0,t1);} 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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1469,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=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1780,tmp=(C_word)a,a+=2,tmp); /* chicken-profile.scm:224: remove */ t8=C_fast_retrieve(lf[62]);{ C_word av2[4]; av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1406(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1406,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_1409,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_1799,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_i_length(((C_word*)t3)[1]); /* chicken-profile.scm:212: < */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=C_fix(0); av2[3]=lf[5]; av2[4]=t6; C_lessp(5,av2);}} /* k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 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_1403,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1406,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_1812,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1862,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_1864,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_1864(t13,t9,((C_word*)t0)[3]);} /* map-loop159 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_fcall f_1864(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_1864,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_1889,a[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:199: g165 */ t5=((C_word*)t0)[4]; f_1812(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);}}} /* k659 in k656 */ static void C_ccall f_661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_661,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_664,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k1362 in k1338 in k1382 in format-real in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1364,2,av);} t2=C_i_inexact_to_exact(t1); /* ##sys#fixnum->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[39]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[39]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t2; tp(3,av2);}} /* k662 in k659 in k656 */ static void C_ccall f_664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_664,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_667,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d1_toplevel(2,av2);}} /* k665 in k662 in k659 in k656 */ static void C_ccall f_667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_667,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_670,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d13_toplevel(2,av2);}} /* k1514 in map-loop296 in print-row in k1482 in k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in ... */ static void C_fcall f_1516(C_word 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_1516,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1542,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:239: g302 */ 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);}}} /* 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(314))){ C_save(t1); C_rereclaim2(314*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,95); lf[7]=C_h_intern(&lf[7],4,"exit"); lf[8]=C_h_intern(&lf[8],7,"display"); lf[9]=C_decode_literal(C_heaptop,"\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[10]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[11]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[12]=C_decode_literal(C_heaptop,"\376B\000\001\315Usage: chicken-profile [FILENAME | OPTION] ...\012\012 -sort-by-calls " "sort output by call frequency\012 -sort-by-time sort output by procedur" "e execution time\012 -sort-by-avg sort output by average procedure exe" "cution time\012 -sort-by-name sort output alphabetically by procedure n" "ame\012 -decimals DDD set number of decimals for seconds, average and\012 " " percent columns (three digits, default: "); lf[13]=C_h_intern(&lf[13],19,"\003sysprint-to-string"); lf[18]=C_h_intern(&lf[18],8,"string<\077"); lf[19]=C_h_intern(&lf[19],14,"symbol->string"); lf[22]=C_h_intern(&lf[22],12,"instrumented"); lf[23]=C_h_intern(&lf[23],17,"hash-table->alist"); lf[24]=C_h_intern(&lf[24],4,"read"); lf[25]=C_h_intern(&lf[25],3,"map"); lf[26]=C_h_intern(&lf[26],15,"hash-table-set!"); lf[27]=C_h_intern(&lf[27],22,"hash-table-ref/default"); lf[28]=C_decode_literal(C_heaptop,"\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[29]=C_h_intern(&lf[29],15,"make-hash-table"); lf[30]=C_h_intern(&lf[30],3,"eq\077"); lf[32]=C_h_intern(&lf[32],17,"\003sysstring-append"); lf[33]=C_h_intern(&lf[33],11,"make-string"); lf[35]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[36]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[37]=C_h_intern(&lf[37],13,"string-append"); lf[38]=C_h_intern(&lf[38],9,"substring"); lf[39]=C_h_intern(&lf[39],18,"\003sysfixnum->string"); lf[40]=C_h_intern(&lf[40],8,"truncate"); lf[41]=C_h_intern(&lf[41],4,"expt"); lf[42]=C_h_intern(&lf[42],1,"-"); lf[43]=C_h_intern(&lf[43],25,"\003sysimplicit-exit-handler"); lf[44]=C_h_intern(&lf[44],5,"foldl"); lf[45]=C_decode_literal(C_heaptop,"\376B\000\000\011procedure"); lf[46]=C_decode_literal(C_heaptop,"\376B\000\000\005calls"); lf[47]=C_decode_literal(C_heaptop,"\376B\000\000\007seconds"); lf[48]=C_decode_literal(C_heaptop,"\376B\000\000\007average"); lf[49]=C_decode_literal(C_heaptop,"\376B\000\000\007percent"); lf[50]=C_h_intern(&lf[50],5,"print"); lf[51]=C_h_intern(&lf[51],11,"string-join"); lf[52]=C_h_intern(&lf[52],8,"for-each"); lf[53]=C_h_intern(&lf[53],6,"reduce"); lf[54]=C_h_intern(&lf[54],1,"+"); lf[55]=C_h_intern(&lf[55],3,"max"); lf[56]=C_h_intern(&lf[56],4,"fold"); lf[57]=C_h_intern(&lf[57],15,"\003sysmake-string"); lf[58]=C_h_intern(&lf[58],14,"number->string"); lf[59]=C_decode_literal(C_heaptop,"\376B\000\000\010overflow"); lf[60]=C_h_intern(&lf[60],28,"\003syssymbol->qualified-string"); lf[61]=C_h_intern(&lf[61],5,"fifth"); lf[62]=C_h_intern(&lf[62],6,"remove"); lf[63]=C_h_intern(&lf[63],4,"take"); lf[64]=C_h_intern(&lf[64],6,"append"); lf[65]=C_h_intern(&lf[65],4,"sort"); lf[66]=C_h_intern(&lf[66],20,"with-input-from-file"); lf[67]=C_decode_literal(C_heaptop,"\376B\000\000\011reading `"); lf[68]=C_decode_literal(C_heaptop,"\376B\000\000\006\047 ...\012"); lf[69]=C_h_intern(&lf[69],5,"error"); lf[70]=C_decode_literal(C_heaptop,"\376B\000\000\021no PROFILEs found"); lf[71]=C_h_intern(&lf[71],22,"file-modification-time"); lf[72]=C_h_intern(&lf[72],4,"glob"); lf[73]=C_decode_literal(C_heaptop,"\376B\000\000\011PROFILE.\052"); lf[74]=C_decode_literal(C_heaptop,"\376B\000\000\032missing argument to option"); lf[75]=C_decode_literal(C_heaptop,"\376B\000\000\032invalid argument to option"); lf[76]=C_decode_literal(C_heaptop,"\376B\000\000\002-h"); lf[77]=C_decode_literal(C_heaptop,"\376B\000\000\005-help"); lf[78]=C_decode_literal(C_heaptop,"\376B\000\000\006--help"); lf[79]=C_decode_literal(C_heaptop,"\376B\000\000\010-version"); lf[80]=C_decode_literal(C_heaptop,"\376B\000\000\032chicken-profile - Version "); lf[81]=C_h_intern(&lf[81],15,"chicken-version"); lf[82]=C_decode_literal(C_heaptop,"\376B\000\000\010-release"); lf[83]=C_decode_literal(C_heaptop,"\376B\000\000\012-no-unused"); lf[84]=C_decode_literal(C_heaptop,"\376B\000\000\004-top"); lf[85]=C_decode_literal(C_heaptop,"\376B\000\000\016-sort-by-calls"); lf[86]=C_decode_literal(C_heaptop,"\376B\000\000\015-sort-by-time"); lf[87]=C_decode_literal(C_heaptop,"\376B\000\000\014-sort-by-avg"); lf[88]=C_decode_literal(C_heaptop,"\376B\000\000\015-sort-by-name"); lf[89]=C_decode_literal(C_heaptop,"\376B\000\000\011-decimals"); lf[91]=C_decode_literal(C_heaptop,"\376B\000\000$invalid argument to -decimals option"); lf[92]=C_decode_literal(C_heaptop,"\376B\000\000$invalid argument to -decimals option"); lf[93]=C_decode_literal(C_heaptop,"\376B\000\000\016invalid option"); lf[94]=C_h_intern(&lf[94],22,"command-line-arguments"); C_register_lf2(lf,95,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_658,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* map-loop237 in k1641 in a1629 in k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 in ... */ 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 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_1654,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_1683,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:234: g243 */ t9=*((C_word*)lf[55]+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);}}} /* k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_670,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_673,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d69_toplevel(2,av2);}} /* k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_673,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_676,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_posix_toplevel(2,av2);}} /* k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_676,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_679,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_utils_toplevel(2,av2);}} /* k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(22,c,4)))){ C_save_and_reclaim((void *)f_679,2,av);} a=C_alloc(22); t2=lf[0] /* file */ =C_SCHEME_FALSE;; t3=lf[1] /* no-unused */ =C_SCHEME_FALSE;; t4=lf[2] /* seconds-digits */ =C_fix(3);; t5=lf[3] /* average-digits */ =C_fix(3);; t6=lf[4] /* percent-digits */ =C_fix(3);; t7=lf[5] /* top */ =C_fix(0);; t8=C_mutate2(&lf[6] /* (set! print-usage ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_687,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate2(&lf[14] /* (set! sort-by-calls ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_951,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate2(&lf[15] /* (set! sort-by-time ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_986,tmp=(C_word)a,a+=2,tmp)); t11=C_mutate2(&lf[16] /* (set! sort-by-avg ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1013,tmp=(C_word)a,a+=2,tmp)); t12=C_mutate2(&lf[17] /* (set! sort-by-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1042,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate2(&lf[20] /* (set! sort-by ...) */,lf[15]); t14=C_mutate2(&lf[21] /* (set! read-profile ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1127,tmp=(C_word)a,a+=2,tmp)); t15=C_mutate2(&lf[31] /* (set! format-string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1263,tmp=(C_word)a,a+=2,tmp)); t16=C_mutate2(&lf[34] /* (set! format-real ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1329,tmp=(C_word)a,a+=2,tmp)); t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1947,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1957,a[2]=t17,tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:246: command-line-arguments */ t19=C_fast_retrieve(lf[94]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t19; av2[1]=t18; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} /* k1350 in k1338 in k1382 in format-real in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1352,2,av);} a=C_alloc(4); t2=C_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); /* chicken-profile.scm:179: substring */ t3=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* read-profile in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 *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_1127,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1131,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:155: make-hash-table */ t3=C_fast_retrieve(lf[29]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[30]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k1540 in k1514 in map-loop296 in print-row in k1482 in k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in ... */ static void C_ccall f_1542(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1542,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((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_1509(t8,((C_word*)t0)[7],t5,t6,t7);} /* k1641 in a1629 in k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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 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_1643,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2]; t3=C_i_check_list_2(t1,lf[25]); t4=C_i_check_list_2(t2,lf[25]); 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_1654,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_1654(t8,((C_word*)t0)[5],t1,t2);} /* k1835 in k1828 in g165 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_fcall f_1837(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_1837,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:201: append */ t4=*((C_word*)lf[64]+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:201: append */ t3=*((C_word*)lf[64]+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);}}} /* a1629 in k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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=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!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_1630,4,av);} a=C_alloc(23); 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_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[25]); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1643,a[2]=t3,a[3]=t6,a[4]=t7,a[5]=t1,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_1702,a[2]=t10,a[3]=t15,a[4]=t11,tmp=(C_word)a,a+=5,tmp)); t17=((C_word*)t15)[1]; f_1702(t17,t13,t2);} /* g165 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_fcall f_1812(C_word t0,C_word t1,C_word 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_1812,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_cadr(t2); t4=C_i_caddr(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1830,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t5,tmp=(C_word)a,a+=6,tmp); if(C_truep(t3)){ t7=C_i_greaterp(t3,C_fix(0)); t8=t6; f_1830(t8,(C_truep(t7)?C_a_i_divide(&a,2,t5,t3):C_SCHEME_FALSE));} else{ t7=t6; f_1830(t7,C_SCHEME_FALSE);}} /* k1138 in k1132 in k1129 in read-profile in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1140,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1147,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-profile.scm:165: hash-table->alist */ t3=C_fast_retrieve(lf[23]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1145 in k1138 in k1132 in k1129 in read-profile in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1147(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1147,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k1082 in arg-digit in k918 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1084,2,av);} if(C_truep(t1)){ t2=C_i_nequalp(((C_word*)t0)[2],C_fix(9)); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_fix(8):((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* chicken-profile.scm:148: error */ t2=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[91]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k1801 in k1797 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1803,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_1409(t3,t2);} /* map-loop258 in a1629 in k1479 in k1470 in k1467 in k1407 in k1404 in k1401 in k1391 in k1388 in k742 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_fcall f_1702(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_1702,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_mutate2(((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);}}} /* k1129 in read-profile in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ 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; 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_1131,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1134,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-profile.scm:156: read */ t4=*((C_word*)lf[24]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1132 in k1129 in read-profile in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1134(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1134,2,av);} a=C_alloc(9); t2=C_i_symbolp(t1); t3=(C_truep(t2)?t1:lf[22]); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1140,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_1151,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:158: read */ t7=*((C_word*)lf[24]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t1; f_1151(2,av2);}}} /* arg-digit in k918 in loop in k1955 in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_fcall f_1074(C_word t0,C_word t1,C_word 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_1074,3,t0,t1,t2);} a=C_alloc(9); t3=C_i_string_ref(((C_word*)t0)[2],t2); t4=C_fix(C_character_code(t3)); t5=C_a_i_minus(&a,2,t4,C_fix(48)); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1084,a[2]=t6,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* chicken-profile.scm:146: <= */{ C_word av2[5]; av2[0]=0; av2[1]=t7; av2[2]=C_fix(0); av2[3]=t6; av2[4]=C_fix(9); C_less_or_equal_p(5,av2);}} /* k1161 in doloop66 in k1149 in k1132 in k1129 in read-profile in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1163,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1170,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-profile.scm:158: read */ t3=*((C_word*)lf[24]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop66 in k1149 in k1132 in k1129 in read-profile in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_fcall f_1153(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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,0,4)))){ C_save_and_reclaim_args((void *)trf_1153,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_1163,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=C_i_car(t2); 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|7,a[1]=(C_word)f_1192,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t5,a[6]=t8,a[7]=t9,tmp=(C_word)a,a+=8,tmp); t11=t2; t12=C_u_i_car(t11); /* chicken-profile.scm:163: hash-table-ref/default */ t13=C_fast_retrieve(lf[27]);{ C_word av2[5]; av2[0]=t13; av2[1]=t10; av2[2]=((C_word*)t0)[3]; av2[3]=t12; av2[4]=lf[28]; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}}} /* k1149 in k1132 in k1129 in read-profile in k677 in k674 in k671 in k668 in k665 in k662 in k659 in k656 */ static void C_ccall f_1151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_1151,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_1153,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_1153(t5,((C_word*)t0)[3],t1);} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[117] = { {"f_1746:chicken_2dprofile_2escm",(void*)f_1746}, {"f_1450:chicken_2dprofile_2escm",(void*)f_1450}, {"f_1469:chicken_2dprofile_2escm",(void*)f_1469}, {"f_1927:chicken_2dprofile_2escm",(void*)f_1927}, {"f_1830:chicken_2dprofile_2escm",(void*)f_1830}, {"f_1771:chicken_2dprofile_2escm",(void*)f_1771}, {"f_1919:chicken_2dprofile_2escm",(void*)f_1919}, {"f_687:chicken_2dprofile_2escm",(void*)f_687}, {"f_1013:chicken_2dprofile_2escm",(void*)f_1013}, {"f_1947:chicken_2dprofile_2escm",(void*)f_1947}, {"f_691:chicken_2dprofile_2escm",(void*)f_691}, {"f_698:chicken_2dprofile_2escm",(void*)f_698}, {"f_1936:chicken_2dprofile_2escm",(void*)f_1936}, {"f_1780:chicken_2dprofile_2escm",(void*)f_1780}, {"f_1957:chicken_2dprofile_2escm",(void*)f_1957}, {"f_1953:chicken_2dprofile_2escm",(void*)f_1953}, {"f_1204:chicken_2dprofile_2escm",(void*)f_1204}, {"f_1202:chicken_2dprofile_2escm",(void*)f_1202}, {"f_1950:chicken_2dprofile_2escm",(void*)f_1950}, {"f_658:chicken_2dprofile_2escm",(void*)f_658}, {"f_734:chicken_2dprofile_2escm",(void*)f_734}, {"f_806:chicken_2dprofile_2escm",(void*)f_806}, {"f_1109:chicken_2dprofile_2escm",(void*)f_1109}, {"f_744:chicken_2dprofile_2escm",(void*)f_744}, {"f_829:chicken_2dprofile_2escm",(void*)f_829}, {"f_826:chicken_2dprofile_2escm",(void*)f_826}, {"f_1214:chicken_2dprofile_2escm",(void*)f_1214}, {"f_1384:chicken_2dprofile_2escm",(void*)f_1384}, {"f_1799:chicken_2dprofile_2escm",(void*)f_1799}, {"f_1113:chicken_2dprofile_2escm",(void*)f_1113}, {"f_1376:chicken_2dprofile_2escm",(void*)f_1376}, {"f_1372:chicken_2dprofile_2escm",(void*)f_1372}, {"f_1117:chicken_2dprofile_2escm",(void*)f_1117}, {"f_777:chicken_2dprofile_2escm",(void*)f_777}, {"f_847:chicken_2dprofile_2escm",(void*)f_847}, {"f_787:chicken_2dprofile_2escm",(void*)f_787}, {"f_781:chicken_2dprofile_2escm",(void*)f_781}, {"f_926:chicken_2dprofile_2escm",(void*)f_926}, {"f_854:chicken_2dprofile_2escm",(void*)f_854}, {"f_920:chicken_2dprofile_2escm",(void*)f_920}, {"f_1393:chicken_2dprofile_2escm",(void*)f_1393}, {"f_1390:chicken_2dprofile_2escm",(void*)f_1390}, {"f_1583:chicken_2dprofile_2escm",(void*)f_1583}, {"f_1683:chicken_2dprofile_2escm",(void*)f_1683}, {"f_869:chicken_2dprofile_2escm",(void*)f_869}, {"f_751:chicken_2dprofile_2escm",(void*)f_751}, {"f_754:chicken_2dprofile_2escm",(void*)f_754}, {"f_862:chicken_2dprofile_2escm",(void*)f_862}, {"f_1494:chicken_2dprofile_2escm",(void*)f_1494}, {"f_1575:chicken_2dprofile_2escm",(void*)f_1575}, {"f_1572:chicken_2dprofile_2escm",(void*)f_1572}, {"f_767:chicken_2dprofile_2escm",(void*)f_767}, {"f_769:chicken_2dprofile_2escm",(void*)f_769}, {"f_986:chicken_2dprofile_2escm",(void*)f_986}, {"f_1486:chicken_2dprofile_2escm",(void*)f_1486}, {"f_1484:chicken_2dprofile_2escm",(void*)f_1484}, {"f_1481:chicken_2dprofile_2escm",(void*)f_1481}, {"f_1050:chicken_2dprofile_2escm",(void*)f_1050}, {"f_1054:chicken_2dprofile_2escm",(void*)f_1054}, {"f_1282:chicken_2dprofile_2escm",(void*)f_1282}, {"f_884:chicken_2dprofile_2escm",(void*)f_884}, {"f_951:chicken_2dprofile_2escm",(void*)f_951}, {"f_1472:chicken_2dprofile_2escm",(void*)f_1472}, {"f_1593:chicken_2dprofile_2escm",(void*)f_1593}, {"f_1042:chicken_2dprofile_2escm",(void*)f_1042}, {"f_1263:chicken_2dprofile_2escm",(void*)f_1263}, {"f_1170:chicken_2dprofile_2escm",(void*)f_1170}, {"f_1442:chicken_2dprofile_2escm",(void*)f_1442}, {"f_1192:chicken_2dprofile_2escm",(void*)f_1192}, {"f_1446:chicken_2dprofile_2escm",(void*)f_1446}, {"f_1898:chicken_2dprofile_2escm",(void*)f_1898}, {"f_1434:chicken_2dprofile_2escm",(void*)f_1434}, {"f_1438:chicken_2dprofile_2escm",(void*)f_1438}, {"f_1329:chicken_2dprofile_2escm",(void*)f_1329}, {"f_1889:chicken_2dprofile_2escm",(void*)f_1889}, {"f_1616:chicken_2dprofile_2escm",(void*)f_1616}, {"f_1427:chicken_2dprofile_2escm",(void*)f_1427}, {"f_1507:chicken_2dprofile_2escm",(void*)f_1507}, {"f_1509:chicken_2dprofile_2escm",(void*)f_1509}, {"f_1608:chicken_2dprofile_2escm",(void*)f_1608}, {"f_1348:chicken_2dprofile_2escm",(void*)f_1348}, {"f_1862:chicken_2dprofile_2escm",(void*)f_1862}, {"f_1340:chicken_2dprofile_2escm",(void*)f_1340}, {"f_1409:chicken_2dprofile_2escm",(void*)f_1409}, {"f_1406:chicken_2dprofile_2escm",(void*)f_1406}, {"f_1403:chicken_2dprofile_2escm",(void*)f_1403}, {"f_1864:chicken_2dprofile_2escm",(void*)f_1864}, {"f_661:chicken_2dprofile_2escm",(void*)f_661}, {"f_1364:chicken_2dprofile_2escm",(void*)f_1364}, {"f_664:chicken_2dprofile_2escm",(void*)f_664}, {"f_667:chicken_2dprofile_2escm",(void*)f_667}, {"f_1516:chicken_2dprofile_2escm",(void*)f_1516}, {"toplevel:chicken_2dprofile_2escm",(void*)C_toplevel}, {"f_1654:chicken_2dprofile_2escm",(void*)f_1654}, {"f_670:chicken_2dprofile_2escm",(void*)f_670}, {"f_673:chicken_2dprofile_2escm",(void*)f_673}, {"f_676:chicken_2dprofile_2escm",(void*)f_676}, {"f_679:chicken_2dprofile_2escm",(void*)f_679}, {"f_1352:chicken_2dprofile_2escm",(void*)f_1352}, {"f_1127:chicken_2dprofile_2escm",(void*)f_1127}, {"f_1542:chicken_2dprofile_2escm",(void*)f_1542}, {"f_1643:chicken_2dprofile_2escm",(void*)f_1643}, {"f_1837:chicken_2dprofile_2escm",(void*)f_1837}, {"f_1630:chicken_2dprofile_2escm",(void*)f_1630}, {"f_1812:chicken_2dprofile_2escm",(void*)f_1812}, {"f_1140:chicken_2dprofile_2escm",(void*)f_1140}, {"f_1147:chicken_2dprofile_2escm",(void*)f_1147}, {"f_1084:chicken_2dprofile_2escm",(void*)f_1084}, {"f_1803:chicken_2dprofile_2escm",(void*)f_1803}, {"f_1702:chicken_2dprofile_2escm",(void*)f_1702}, {"f_1131:chicken_2dprofile_2escm",(void*)f_1131}, {"f_1134:chicken_2dprofile_2escm",(void*)f_1134}, {"f_1074:chicken_2dprofile_2escm",(void*)f_1074}, {"f_1163:chicken_2dprofile_2escm",(void*)f_1163}, {"f_1153:chicken_2dprofile_2escm",(void*)f_1153}, {"f_1151:chicken_2dprofile_2escm",(void*)f_1151}, {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| for-each 1 S| foldl 1 S| map 6 o|eliminated procedure checks: 36 o|specializations: o| 1 (make-string fixnum char) o| 3 (##sys#check-list (or pair list) *) o| 2 (number->string fixnum) o| 2 (string-append string string) o| 2 (first pair) o| 1 (= fixnum fixnum) o| 2 (third (pair * (pair * pair))) o| 3 (second (pair * pair)) o| 1 (char=? char char) o| 1 (string-ref string fixnum) o| 1 (> fixnum fixnum) o| 1 (string-length string) o| 8 (string=? string string) o| 3 (cdr pair) (o e)|safe calls: 211 (o e)|assignments to immediate values: 4 o|dropping redundant toplevel assignment: sort-by o|safe globals: (write-profile format-real format-string read-profile set-decimals sort-by sort-by-name sort-by-avg sort-by-time sort-by-calls run print-usage top percent-digits average-digits seconds-digits no-unused file) o|Removed `not' forms: 1 o|inlining procedure: k959 o|inlining procedure: k959 o|inlining procedure: k979 o|inlining procedure: k979 o|inlining procedure: k994 o|inlining procedure: k994 o|inlining procedure: k1021 o|inlining procedure: k1021 o|inlining procedure: k1155 o|inlining procedure: k1155 o|inlining procedure: k1206 o|contracted procedure: "(chicken-profile.scm:162) g7787" o|inlining procedure: k1181 o|inlining procedure: k1181 o|inlining procedure: k1206 o|inlining procedure: k1283 o|inlining procedure: k1283 o|contracted procedure: "(chicken-profile.scm:246) run" o|inlining procedure: k736 o|contracted procedure: "(chicken-profile.scm:81) write-profile" o|inlining procedure: k1511 o|inlining procedure: k1511 o|inlining procedure: k1561 o|inlining procedure: k1561 o|inlining procedure: k1585 o|inlining procedure: k1585 o|substituted constant variable: spacing230 o|inlining procedure: k1656 o|inlining procedure: k1656 o|inlining procedure: k1704 o|inlining procedure: k1704 o|substituted constant variable: spacing230 o|substituted constant variable: spacing230 o|substituted constant variable: a1744 o|inlining procedure: k1748 o|contracted procedure: "(chicken-profile.scm:214) g203212" o|contracted procedure: k1459 o|inlining procedure: k1748 o|inlining procedure: k1782 o|inlining procedure: k1782 o|inlining procedure: k1838 o|inlining procedure: k1838 o|inlining procedure: k1851 o|inlining procedure: k1851 o|inlining procedure: k1866 o|inlining procedure: k1866 o|inlining procedure: k1900 o|inlining procedure: k1900 o|substituted constant variable: g140143 o|inlining procedure: k752 o|inlining procedure: k752 o|inlining procedure: k789 o|inlining procedure: k789 o|inlining procedure: k811 o|inlining procedure: k811 o|inlining procedure: k736 o|inlining procedure: k839 o|inlining procedure: k839 o|substituted constant variable: a859 o|substituted constant variable: a874 o|inlining procedure: k870 o|inlining procedure: k870 o|substituted constant variable: a880 o|substituted constant variable: a889 o|inlining procedure: k885 o|inlining procedure: k885 o|substituted constant variable: a895 o|substituted constant variable: a901 o|inlining procedure: k897 o|inlining procedure: k897 o|substituted constant variable: a907 o|substituted constant variable: a913 o|inlining procedure: k909 o|contracted procedure: "(chicken-profile.scm:107) set-decimals" o|inlining procedure: k1079 o|inlining procedure: k1079 o|folded constant expression: (char->integer (quote #\0)) o|inlining procedure: k1067 o|inlining procedure: k1067 o|substituted constant variable: a1125 o|inlining procedure: k909 o|inlining procedure: k930 o|inlining procedure: k930 o|substituted constant variable: a943 o|substituted constant variable: a940 o|substituted constant variable: a948 o|replaced variables: 192 o|removed binding forms: 90 o|substituted constant variable: r9801961 o|substituted constant variable: r11821970 o|substituted constant variable: r15621978 o|converted assignments to bindings: (print-row292) o|substituted constant variable: r17831988 o|substituted constant variable: r18391991 o|substituted constant variable: r18391991 o|substituted constant variable: r18521994 o|inlining procedure: k827 o|inlining procedure: k827 o|inlining procedure: k827 o|inlining procedure: k827 o|inlining procedure: k827 o|inlining procedure: k827 o|contracted procedure: k1099 o|inlining procedure: k827 o|simplifications: ((let . 1)) o|replaced variables: 12 o|removed binding forms: 219 o|substituted constant variable: r1100 o|replaced variables: 8 o|removed binding forms: 32 o|inlining procedure: k1231 o|inlining procedure: k1231 o|inlining procedure: k814 o|removed binding forms: 6 o|substituted constant variable: r12322108 o|substituted constant variable: r12322109 o|substituted constant variable: r8152128 o|removed conditional forms: 1 o|removed binding forms: 3 o|simplifications: ((if . 16) (##core#call . 173)) o| call simplifications: o| member o| string=? o| ##sys#size o| fx> o| string-ref o| char->integer o| <= o| string->number o| eq? 2 o| < o| zero? o| fourth o| / 4 o| list 6 o| length 2 o| - 2 o| * 3 o| inexact->exact 2 o| car 5 o| null? 7 o| cdr 3 o| string-length 3 o| fx- o| fxmax o| symbol? 2 o| eof-object? o| ##sys#check-list 9 o| pair? 12 o| + 4 o| ##sys#setslot 6 o| ##sys#slot 30 o| first 4 o| cadddr 2 o| = 2 o| second 5 o| eqv? 2 o| third 8 o| > 11 o| cons 23 o|contracted procedure: k724 o|contracted procedure: k720 o|contracted procedure: k716 o|contracted procedure: k712 o|contracted procedure: k708 o|contracted procedure: k704 o|contracted procedure: k700 o|contracted procedure: k953 o|contracted procedure: k956 o|contracted procedure: k962 o|contracted procedure: k969 o|contracted procedure: k973 o|contracted procedure: k988 o|contracted procedure: k991 o|contracted procedure: k997 o|contracted procedure: k1015 o|contracted procedure: k1018 o|contracted procedure: k1024 o|contracted procedure: k1056 o|contracted procedure: k1060 o|contracted procedure: k1259 o|contracted procedure: k1135 o|contracted procedure: k1158 o|contracted procedure: k1172 o|contracted procedure: k1176 o|contracted procedure: k1194 o|contracted procedure: k1197 o|contracted procedure: k1245 o|contracted procedure: k1209 o|contracted procedure: k1215 o|contracted procedure: k1223 o|contracted procedure: k1227 o|contracted procedure: k1235 o|contracted procedure: k1239 o|contracted procedure: k1231 o|contracted procedure: k1253 o|contracted procedure: k1322 o|contracted procedure: k1265 o|contracted procedure: k1316 o|contracted procedure: k1268 o|contracted procedure: k1310 o|contracted procedure: k1271 o|contracted procedure: k1304 o|contracted procedure: k1274 o|contracted procedure: k1277 o|contracted procedure: k1301 o|contracted procedure: k1297 o|contracted procedure: k1331 o|contracted procedure: k1377 o|contracted procedure: k1342 o|contracted procedure: k1354 o|contracted procedure: k1358 o|contracted procedure: k1366 o|contracted procedure: k739 o|contracted procedure: k1394 o|contracted procedure: k1398 o|contracted procedure: k1411 o|contracted procedure: k1473 o|contracted procedure: k1476 o|contracted procedure: k1496 o|contracted procedure: k1499 o|contracted procedure: k1502 o|contracted procedure: k1517 o|contracted procedure: k1520 o|contracted procedure: k1528 o|contracted procedure: k1532 o|contracted procedure: k1536 o|contracted procedure: k1544 o|contracted procedure: k1548 o|contracted procedure: k1552 o|contracted procedure: k1558 o|contracted procedure: k1564 o|contracted procedure: k1576 o|contracted procedure: k1588 o|contracted procedure: k1598 o|contracted procedure: k1602 o|contracted procedure: k1626 o|contracted procedure: k1622 o|contracted procedure: k1618 o|contracted procedure: k1610 o|contracted procedure: k1632 o|contracted procedure: k1635 o|contracted procedure: k1638 o|contracted procedure: k1644 o|contracted procedure: k1647 o|contracted procedure: k1695 o|contracted procedure: k1659 o|contracted procedure: k1662 o|contracted procedure: k1665 o|contracted procedure: k1673 o|contracted procedure: k1677 o|contracted procedure: k1685 o|contracted procedure: k1689 o|contracted procedure: k1707 o|contracted procedure: k1729 o|contracted procedure: k1725 o|contracted procedure: k1710 o|contracted procedure: k1713 o|contracted procedure: k1721 o|contracted procedure: k1736 o|contracted procedure: k1740 o|contracted procedure: k1751 o|contracted procedure: k1754 o|contracted procedure: k1757 o|contracted procedure: k1765 o|contracted procedure: k1773 o|contracted procedure: k1416 o|contracted procedure: k1419 o|contracted procedure: k1422 o|contracted procedure: k1452 o|contracted procedure: k1456 o|contracted procedure: k1785 o|contracted procedure: k1791 o|contracted procedure: k1805 o|contracted procedure: k1809 o|contracted procedure: k1818 o|contracted procedure: k1821 o|contracted procedure: k1831 o|inlining procedure: k1824 o|inlining procedure: k1824 o|contracted procedure: k1841 o|contracted procedure: k1848 o|contracted procedure: k1854 o|contracted procedure: k1869 o|contracted procedure: k1872 o|contracted procedure: k1875 o|contracted procedure: k1883 o|contracted procedure: k1891 o|contracted procedure: k1903 o|contracted procedure: k1910 o|contracted procedure: k1924 o|contracted procedure: k1914 o|contracted procedure: k1933 o|contracted procedure: k1942 o|contracted procedure: k1921 o|contracted procedure: k755 o|inlining procedure: k752 o|contracted procedure: k782 o|contracted procedure: k792 o|contracted procedure: k798 o|contracted procedure: k802 o|contracted procedure: k808 o|contracted procedure: k814 o|contracted procedure: k833 o|contracted procedure: k842 o|contracted procedure: k1122 o|contracted procedure: k1070 o|contracted procedure: k1103 o|contracted procedure: k1095 o|contracted procedure: k1076 o|contracted procedure: k1088 o|contracted procedure: k945 o|contracted procedure: k937 o|simplifications: ((if . 1) (let . 20)) o|removed binding forms: 150 o|replaced variables: 80 o|removed binding forms: 1 o|removed binding forms: 42 o|customizable procedures: (k924 arg-digit next-number24 print-usage loop11 next-arg23 k742 foldl141145 g165174 map-loop159188 k1828 k1835 k1407 format-real map-loop197221 map-loop258275 map-loop237282 for-each-loop332342 k1514 map-loop296317 k1212 map-loop7194 doloop6667) o|calls to known targets: 58 o|identified direct recursive calls: f_1702 1 o|identified direct recursive calls: f_734 5 o|fast box initializations: 11 o|fast global references: 29 o|fast global assignments: 28 o|dropping unused closure argument: f_687 o|dropping unused closure argument: f_1329 */ /* end of file */ ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/srfi-18.scm��������������������������������������������������������������������������0000644�0001750�0001750�00000037121�13052306173�014711� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; srfi-18.scm - Simple thread unit - felix ; ; Copyright (c) 2008-2017, 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-18) (uses scheduler) (disable-interrupts) (hide compute-time-limit) ) (include "common-declarations.scm") (register-feature! 'srfi-18) (define-syntax dbg (syntax-rules () ((_ . _) #f))) #;(define-syntax dbg (syntax-rules () ((_ x ...) (print x ...)))) ;;; Helper routines: (define (compute-time-limit tm loc) (cond ((not tm) #f) ((##sys#structure? tm 'time) (##sys#slot tm 1)) ((number? tm) (+ (current-milliseconds) (* tm 1000))) (else (##sys#signal-hook #:type-error loc "invalid timeout argument" tm)))) ;;; Time objects: (define (current-time) (##sys#make-structure 'time (current-milliseconds))) (define (time->seconds tm) (##sys#check-structure tm 'time 'time->seconds) (fp/ (##sys#slot tm 1) 1000.0)) (define (seconds->time n) (##sys#check-number n 'seconds->time) (##sys#make-structure 'time (fp* (##sys#exact->inexact n) 1000.0))) (define (time? x) (##sys#structure? x 'time)) ;;; Exception handling: (define raise ##sys#signal) (define (join-timeout-exception? x) (and (##sys#structure? x 'condition) (memq 'join-timeout-exception (##sys#slot x 1)) ) ) (define (abandoned-mutex-exception? x) (and (##sys#structure? x 'condition) (memq 'abandoned-mutex-exception (##sys#slot x 1)) ) ) (define (terminated-thread-exception? x) (and (##sys#structure? x 'condition) (memq 'terminated-thread-exception (##sys#slot x 1)) ) ) (define (uncaught-exception? x) (and (##sys#structure? x 'condition) (memq 'uncaught-exception (##sys#slot x 1)) ) ) (define uncaught-exception-reason (condition-property-accessor 'uncaught-exception 'reason) ) ;;; Threads: (define make-thread (lambda (thunk . name) (let ((thread (##sys#make-thread #f 'created (if (pair? name) (##sys#slot name 0) (gensym 'thread)) (##sys#slot ##sys#current-thread 9) ) ) ) (##sys#setslot thread 1 (lambda () (##sys#call-with-values thunk (lambda results (##sys#setslot thread 2 results) (##sys#thread-kill! thread 'dead) (##sys#schedule) ) ) ) ) thread) ) ) (define (thread? x) (##sys#structure? x 'thread)) (define (current-thread) ##sys#current-thread) (define (thread-state thread) (##sys#check-structure thread 'thread 'thread-state) (##sys#slot thread 3) ) (define (thread-specific-set! thread x) (##sys#check-structure thread 'thread 'thread-specific-set!) (##sys#setslot thread 10 x) ) (define thread-specific (getter-with-setter (lambda (thread) (##sys#check-structure thread 'thread 'thread-specific) (##sys#slot thread 10) ) thread-specific-set!)) (define (thread-quantum thread) (##sys#check-structure thread 'thread 'thread-quantum) (##sys#slot thread 9) ) (define (thread-quantum-set! thread q) (##sys#check-structure thread 'thread 'thread-quantum-set!) (##sys#check-exact q 'thread-quantum-set!) (##sys#setislot thread 9 (fxmax q 10)) ) (define (thread-name x) (##sys#check-structure x 'thread 'thread-name) (##sys#slot x 6) ) (define thread-start! (lambda (thread) (if (procedure? thread) (set! thread (make-thread thread)) (##sys#check-structure thread 'thread 'thread-start!) ) (unless (eq? 'created (##sys#slot thread 3)) (##sys#error 'thread-start! "thread cannot be started a second time" thread) ) (##sys#setslot thread 3 'ready) (##sys#add-to-ready-queue thread) thread) ) (define thread-yield! ##sys#thread-yield!) ;In library.scm (define thread-join! (lambda (thread . timeout) (##sys#check-structure thread 'thread 'thread-join!) (let* ((limit (and (pair? timeout) (compute-time-limit (##sys#slot timeout 0) 'thread-join!))) (rest (and (pair? timeout) (##sys#slot timeout 1))) (tosupplied (and rest (pair? rest))) (toval (and tosupplied (##sys#slot rest 0))) ) (##sys#call-with-current-continuation (lambda (return) (let ((ct ##sys#current-thread)) (when limit (##sys#thread-block-for-timeout! ct limit)) (##sys#setslot ct 1 (lambda () (case (##sys#slot thread 3) ((dead) (unless (##sys#slot ct 13) ; not unblocked by timeout (##sys#remove-from-timeout-list ct)) (apply return (##sys#slot thread 2))) ((terminated) (return (##sys#signal (##sys#make-structure 'condition '(uncaught-exception) (list '(uncaught-exception . reason) (##sys#slot thread 7)) ) ) ) ) ((blocked ready sleeping) (if limit (return (if tosupplied toval (##sys#signal (##sys#make-structure 'condition '(join-timeout-exception) '())) ) ) (begin (##sys#thread-block-for-termination! ct thread) (##sys#schedule) ) )) (else (##sys#error 'thread-join! "Internal scheduler error: unknown thread state" ct (##sys#slot thread 3)) ) ) ) ) (##sys#thread-block-for-termination! ct thread) (##sys#schedule) ) ) ) ) ) ) (define (thread-terminate! thread) (##sys#check-structure thread 'thread 'thread-terminate!) (when (eq? thread ##sys#primordial-thread) ((##sys#exit-handler)) ) (##sys#setslot thread 2 (list (##core#undefined))) (##sys#setslot thread 7 (##sys#make-structure 'condition '(terminated-thread-exception) '())) (##sys#thread-kill! thread 'terminated) (when (eq? thread ##sys#current-thread) (##sys#schedule)) ) (define (thread-suspend! thread) (##sys#check-structure thread 'thread 'thread-suspend!) (##sys#setslot thread 3 'suspended) (when (eq? thread ##sys#current-thread) ;XXX what if thread is ready or blocked? (##sys#call-with-current-continuation (lambda (return) (##sys#setslot thread 1 (lambda () (return (##core#undefined)))) (##sys#schedule) ) ) ) ) (define (thread-resume! thread) (##sys#check-structure thread 'thread 'thread-resume!) (when (eq? (##sys#slot thread 3) 'suspended) ;XXX what if thread is ready or blocked? (##sys#setslot thread 3 'ready) (##sys#add-to-ready-queue thread) ) ) (define (thread-sleep! tm) (define (sleep limit) (##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 limit) (##sys#schedule) ) ) ) ) (unless tm (##sys#signal-hook #:type-error 'thread-sleep! "invalid timeout argument" tm)) (sleep (compute-time-limit tm 'thread-sleep!)) ) ;;; Mutexes: (define (mutex? x) (##sys#structure? x 'mutex)) (define (make-mutex #!optional (id (gensym 'mutex))) (##sys#make-mutex id #f)) (define (mutex-name x) (##sys#check-structure x 'mutex 'mutex-name) (##sys#slot x 1) ) (define (mutex-specific mutex) (##sys#check-structure mutex 'mutex 'mutex-specific) (##sys#slot mutex 6) ) (define (mutex-specific-set! mutex x) (##sys#check-structure mutex 'mutex 'mutex-specific-set!) (##sys#setslot mutex 6 x) ) (define (mutex-state mutex) (##sys#check-structure mutex 'mutex 'mutex-state) (cond [(##sys#slot mutex 5) (or (##sys#slot mutex 2) 'not-owned)] [(##sys#slot mutex 4) 'abandoned] [else 'not-abandoned] ) ) (define mutex-lock! (lambda (mutex . ms-and-t) (##sys#check-structure mutex 'mutex 'mutex-lock!) (let* ([limitsup (pair? ms-and-t)] [limit (and limitsup (compute-time-limit (car ms-and-t) 'mutex-lock!))] [threadsup (fx> (length ms-and-t) 1)] [thread (and threadsup (cadr ms-and-t))] ) (when thread (##sys#check-structure thread 'thread 'mutex-lock!)) (##sys#call-with-current-continuation (lambda (return) (let ([ct ##sys#current-thread]) (define (switch) (dbg ct " sleeping on mutex " (mutex-name mutex)) (##sys#setslot ct 11 mutex) (##sys#setslot mutex 3 (##sys#append (##sys#slot mutex 3) (list ct))) (##sys#schedule) ) (define (check) (when (##sys#slot mutex 4) ; abandoned (return (##sys#signal (##sys#make-structure 'condition '(abandoned-mutex-exception) (list (##sys#slot mutex 1))))) ) ) (define (assign) (##sys#setislot ct 11 #f) (check) (if (and threadsup (not thread)) (begin (##sys#setislot mutex 2 #f) (##sys#setislot mutex 5 #t) ) (let* ([t (or thread ct)] [ts (##sys#slot t 3)] ) (if (or (eq? 'terminated ts) (eq? 'dead ts)) (begin (##sys#setislot mutex 2 #f) (##sys#setislot mutex 5 #f) (##sys#setislot mutex 4 #t) (check)) (begin (##sys#setslot mutex 2 t) (##sys#setislot mutex 5 #t) (##sys#setslot t 8 (cons mutex (##sys#slot t 8))) ) ) ) ) (return #t)) (dbg ct ": locking " mutex) (cond [(not (##sys#slot mutex 5)) (assign) ] [limit (check) (##sys#setslot ct 1 (lambda () (if (##sys#slot ct 13) ; unblocked by timeout (begin (##sys#setslot mutex 3 (##sys#delq ct (##sys#slot mutex 3))) (##sys#setislot ct 11 #f) (return #f)) (begin (##sys#remove-from-timeout-list ct) (assign))) )) (##sys#thread-block-for-timeout! ct limit) (switch) ] [else (##sys#setslot ct 3 'sleeping) (##sys#setslot ct 1 assign) (switch) ] ) ) ) ) ) ) ) (define mutex-unlock! (lambda (mutex . cvar-and-to) (##sys#check-structure mutex 'mutex 'mutex-unlock!) (let ([ct ##sys#current-thread] [cvar (and (pair? cvar-and-to) (car cvar-and-to))] [timeout (and (fx> (length cvar-and-to) 1) (cadr cvar-and-to))] ) (dbg ct ": unlocking " (mutex-name mutex)) (when cvar (##sys#check-structure cvar 'condition-variable 'mutex-unlock!)) (##sys#call-with-current-continuation (lambda (return) (let ([waiting (##sys#slot mutex 3)] [limit (and timeout (compute-time-limit timeout 'mutex-unlock!))] ) (##sys#setislot mutex 4 #f) ; abandoned (##sys#setislot mutex 5 #f) ; blocked (let ((t (##sys#slot mutex 2))) (when t (##sys#setislot mutex 2 #f) (##sys#setslot t 8 (##sys#delq mutex (##sys#slot t 8))))) ; unown from owner (when cvar (##sys#setslot cvar 2 (##sys#append (##sys#slot cvar 2) (##sys#list ct))) (##sys#setslot ct 11 cvar) ; block object (cond (limit (##sys#setslot ct 1 (lambda () (##sys#setislot ct 11 #f) (if (##sys#slot ct 13) ; unblocked by timeout (begin (##sys#setslot cvar 2 (##sys#delq ct (##sys#slot cvar 2))) (return #f)) (begin (##sys#remove-from-timeout-list ct) (return #t))) ) ) (##sys#thread-block-for-timeout! ct limit) ) (else (##sys#setslot ct 1 (lambda () (return #t))) (##sys#setslot ct 3 'sleeping)) ) ) (unless (null? waiting) (let* ((wt (##sys#slot waiting 0)) (wts (##sys#slot wt 3)) ) (##sys#setslot mutex 3 (##sys#slot waiting 1)) (##sys#setislot mutex 5 #t) (case wts ((blocked sleeping) (##sys#setslot wt 11 #f) (##sys#add-to-ready-queue wt)) (else (##sys#error 'mutex-unlock "Internal scheduler error: unknown thread state" wt wts))) ) ) (if (eq? (##sys#slot ct 3) 'running) (return #t) (##sys#schedule)) ) ) ) ) )) ;;; Condition variables: (define make-condition-variable (lambda name (##sys#make-structure 'condition-variable (if (pair? name) ; #1 name (car name) (gensym 'condition-variable) ) '() ; #2 list of waiting threads (##core#undefined) ) ) ) ; #3 specific (define (condition-variable? x) (##sys#structure? x 'condition-variable) ) (define (condition-variable-name cv) (##sys#check-structure cv 'condition-variable 'condition-variable-name) (##sys#slot cv 1) ) (define (condition-variable-specific cv) (##sys#check-structure cv 'condition-variable 'condition-variable-specific) (##sys#slot cv 3) ) (define (condition-variable-specific-set! cv x) (##sys#check-structure cv 'condition-variable 'condition-variable-specific-set!) (##sys#setslot cv 3 x) ) (define (condition-variable-signal! cvar) (##sys#check-structure cvar 'condition-variable 'condition-variable-signal!) (dbg "signalling " cvar) (let ([ts (##sys#slot cvar 2)]) (unless (null? ts) (let* ([t0 (##sys#slot ts 0)] [t0s (##sys#slot t0 3)] ) (##sys#setslot cvar 2 (##sys#slot ts 1)) (when (or (eq? t0s 'blocked) (eq? t0s 'sleeping)) (##sys#thread-basic-unblock! t0) ) ) ) ) ) (define (condition-variable-broadcast! cvar) (##sys#check-structure cvar 'condition-variable 'condition-variable-broadcast!) (dbg "broadcasting " cvar) (##sys#for-each (lambda (ti) (let ([tis (##sys#slot ti 3)]) (when (or (eq? tis 'blocked) (eq? tis 'sleeping)) (##sys#thread-basic-unblock! ti) ) ) ) (##sys#slot cvar 2) ) (##sys#setislot cvar 2 '()) ) ;;; Change continuation of thread to signal an exception: (define (thread-signal! thread exn) (##sys#check-structure thread 'thread 'thread-signal!) (dbg "signal " thread exn) (if (eq? thread ##sys#current-thread) (##sys#signal exn) (let ([old (##sys#slot thread 1)] [blocked (##sys#slot thread 11)]) (cond ((##sys#structure? blocked 'condition-variable) (##sys#setslot blocked 2 (##sys#delq thread (##sys#slot blocked 2)))) ((##sys#structure? blocked 'mutex) (##sys#setslot blocked 3 (##sys#delq thread (##sys#slot blocked 3)))) ((##sys#structure? blocked 'thread) (##sys#setslot blocked 12 (##sys#delq thread (##sys#slot blocked 12))))) (##sys#setslot thread 1 (lambda () (##sys#signal exn) (old) ) ) (##sys#setslot thread 3 'blocked) (##sys#thread-unblock! thread) ) ) ) ;;; Don't block in the repl: (by Chris Double) (set! ##sys#read-prompt-hook (let ([old ##sys#read-prompt-hook]) (lambda () (when (or (##sys#fudge 12) (##sys#tty-port? ##sys#standard-input)) (old) (##sys#thread-block-for-i/o! ##sys#current-thread 0 #:input) (thread-yield!)))) ) ;;; Waiting for I/O on file-descriptor (define (thread-wait-for-i/o! fd #!optional (mode #:all)) (##sys#check-exact fd 'thread-wait-for-i/o!) (##sys#thread-block-for-i/o! ##sys#current-thread fd mode) (thread-yield!) ) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/common-declarations.scm��������������������������������������������������������������0000644�0001750�0001750�00000004141�13052306173�017452� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; common-declarations.scm - settings for core libraries ; ; Copyright (c) 2011-2017, 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 () ((_ arg1) (when (##sys#fudge 13) (pp arg1))) ; debug-mode ((_ arg1 more ...) (when (##sys#fudge 13) (print arg1 more ...)))))) (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-4.12.0/csi.c��������������������������������������������������������������������������������0000644�0001750�0001750�00002157042�13052306513�013743� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from csi.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: csi.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -no-lambda-info -local -no-trace -output-file csi.c used units: library eval chicken_2dsyntax ports extras */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_ports_toplevel) C_externimport void C_ccall C_ports_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[405]; static double C_possibly_force_alignment; /* from k2054 */ C_regparm static C_word C_fcall stub63(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(f_5700) static void C_fcall f_5700(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2622) static void C_fcall f_2622(C_word t0,C_word t1,C_word t2) 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_2621) static void C_ccall f_2621(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_5668) static void C_ccall f_5668(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_6320) static void C_ccall f_6320(C_word c,C_word *av) 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_6869) static void C_ccall f_6869(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_2638) static void C_ccall f_2638(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_2483) static void C_ccall f_2483(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_4480) static void C_ccall f_4480(C_word c,C_word *av) C_noret; C_noret_decl(f_4488) static void C_ccall f_4488(C_word c,C_word *av) C_noret; C_noret_decl(f_6882) static void C_ccall f_6882(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_4185) static void C_fcall f_4185(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1887) static void C_ccall f_1887(C_word c,C_word *av) C_noret; C_noret_decl(f_1881) static void C_ccall f_1881(C_word c,C_word *av) C_noret; C_noret_decl(f_1884) static void C_ccall f_1884(C_word c,C_word *av) C_noret; C_noret_decl(f_3267) static void C_ccall f_3267(C_word c,C_word *av) C_noret; C_noret_decl(f_6893) static void C_ccall f_6893(C_word c,C_word *av) C_noret; C_noret_decl(f_4177) static void C_fcall f_4177(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6890) static void C_ccall f_6890(C_word c,C_word *av) C_noret; C_noret_decl(f_6347) static void C_ccall f_6347(C_word c,C_word *av) 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_3259) static void C_ccall f_3259(C_word c,C_word *av) C_noret; C_noret_decl(f_5629) static C_word C_fcall f_5629(C_word t0); C_noret_decl(f_4166) static void C_ccall f_4166(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_3243) static void C_ccall f_3243(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_6149) static void C_ccall f_6149(C_word c,C_word *av) C_noret; C_noret_decl(f_6146) static void C_ccall f_6146(C_word c,C_word *av) C_noret; C_noret_decl(f_5763) static void C_ccall f_5763(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_3231) static void C_ccall f_3231(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_3234) static void C_ccall f_3234(C_word c,C_word *av) C_noret; C_noret_decl(f_6301) static void C_ccall f_6301(C_word c,C_word *av) C_noret; C_noret_decl(f_5776) static void C_fcall f_5776(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4712) static void C_fcall f_4712(C_word t0,C_word t1,C_word t2,C_word t3) 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_3139) static void C_fcall f_3139(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3138) static void C_ccall f_3138(C_word c,C_word *av) C_noret; C_noret_decl(f_3135) static void C_ccall f_3135(C_word c,C_word *av) C_noret; C_noret_decl(f_2495) static void C_ccall f_2495(C_word c,C_word *av) C_noret; C_noret_decl(f_2492) static void C_ccall f_2492(C_word c,C_word *av) C_noret; C_noret_decl(f_6697) static void C_ccall f_6697(C_word c,C_word *av) 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_6692) static void C_ccall f_6692(C_word c,C_word *av) C_noret; C_noret_decl(f_5425) static void C_fcall f_5425(C_word t0,C_word t1,C_word t2) 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_4132) static void C_ccall f_4132(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_5420) static void C_ccall f_5420(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_6163) static void C_ccall f_6163(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_3291) static void C_ccall f_3291(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(f_2513) static void C_ccall f_2513(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_4126) static void C_ccall f_4126(C_word c,C_word *av) C_noret; C_noret_decl(f_5431) static void C_fcall f_5431(C_word t0,C_word t1,C_word t2) 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_5792) static void C_fcall f_5792(C_word t0,C_word t1,C_word t2) 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_3283) static void C_ccall f_3283(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_3115) static void C_ccall f_3115(C_word c,C_word *av) C_noret; C_noret_decl(f_5486) static void C_fcall f_5486(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3275) static void C_ccall f_3275(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_5480) static void C_fcall f_5480(C_word t0,C_word t1) C_noret; C_noret_decl(f_3271) static void C_ccall f_3271(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_5417) static void C_ccall f_5417(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_3506) static void C_fcall f_3506(C_word t0,C_word t1,C_word t2) 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_6113) static void C_ccall f_6113(C_word c,C_word *av) C_noret; C_noret_decl(f_4411) static void C_fcall f_4411(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5443) static void C_fcall f_5443(C_word t0,C_word t1,C_word t2) 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_4797) static void C_fcall f_4797(C_word t0,C_word t1,C_word t2) 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_1948) static void C_ccall f_1948(C_word c,C_word *av) C_noret; C_noret_decl(f_1941) static void C_fcall f_1941(C_word t0) 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_4763) static void C_fcall f_4763(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6182) static void C_ccall f_6182(C_word c,C_word *av) C_noret; C_noret_decl(f_2854) static void C_ccall f_2854(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_6194) static void C_ccall f_6194(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_3701) static void C_ccall f_3701(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_2889) static void C_ccall f_2889(C_word c,C_word *av) C_noret; C_noret_decl(f_6000) static void C_ccall f_6000(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_2894) static void C_fcall f_2894(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6017) static void C_ccall f_6017(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_3916) static void C_ccall f_3916(C_word c,C_word *av) C_noret; C_noret_decl(f_5245) static void C_fcall f_5245(C_word t0,C_word t1,C_word t2) 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_3984) static void C_ccall f_3984(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_5270) static void C_ccall f_5270(C_word c,C_word *av) C_noret; C_noret_decl(f_3548) static void C_ccall f_3548(C_word c,C_word *av) C_noret; C_noret_decl(f_4917) static void C_ccall f_4917(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_3990) static void C_ccall f_3990(C_word c,C_word *av) C_noret; C_noret_decl(f_5279) static void C_fcall f_5279(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3538) static void C_fcall f_3538(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3529) static void C_ccall f_3529(C_word c,C_word *av) C_noret; C_noret_decl(f_5092) static void C_fcall f_5092(C_word t0,C_word t1) 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_3580) static void C_ccall f_3580(C_word c,C_word *av) C_noret; C_noret_decl(f_6904) static void C_ccall f_6904(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_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_5745) static void C_ccall f_5745(C_word c,C_word *av) C_noret; C_noret_decl(f_5133) static void C_fcall f_5133(C_word t0,C_word t1) 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_5041) static void C_ccall f_5041(C_word c,C_word *av) C_noret; C_noret_decl(f_6821) static void C_ccall f_6821(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_6824) static void C_fcall f_6824(C_word t0,C_word t1) C_noret; C_noret_decl(f_5285) static void C_fcall f_5285(C_word t0,C_word t1,C_word t2,C_word t3) 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_3768) static void C_ccall f_3768(C_word c,C_word *av) C_noret; C_noret_decl(f_2318) static void C_fcall f_2318(C_word t0,C_word t1) C_noret; C_noret_decl(f_6833) static void C_ccall f_6833(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_4502) static void C_fcall f_4502(C_word t0,C_word t1,C_word t2) 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_4994) static void C_ccall f_4994(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_4997) static void C_ccall f_4997(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_5031) static void C_fcall f_5031(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6852) static void C_fcall f_6852(C_word t0,C_word t1,C_word t2) 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_6390) static void C_fcall f_6390(C_word t0,C_word t1,C_word t2) 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_2299) static void C_ccall f_2299(C_word c,C_word *av) C_noret; C_noret_decl(f_4972) static void C_fcall f_4972(C_word t0,C_word t1,C_word t2,C_word t3) 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_2293) static void C_ccall f_2293(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_4967) static void C_ccall f_4967(C_word c,C_word *av) C_noret; C_noret_decl(f_4261) static void C_fcall f_4261(C_word t0,C_word t1,C_word t2) 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_4265) static void C_ccall f_4265(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_3780) static void C_ccall f_3780(C_word c,C_word *av) C_noret; C_noret_decl(f_2274) static void C_fcall f_2274(C_word t0,C_word t1,C_word t2) 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_4957) static void C_fcall f_4957(C_word t0,C_word t1,C_word t2,C_word t3) 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_3374) static void C_ccall f_3374(C_word c,C_word *av) C_noret; C_noret_decl(f_3376) static void C_fcall f_3376(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6460) static void C_ccall f_6460(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_6466) static void C_ccall f_6466(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_4941) static void C_ccall f_4941(C_word c,C_word *av) C_noret; C_noret_decl(f_3777) static void C_ccall f_3777(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_4284) static void C_ccall f_4284(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_4935) static void C_ccall f_4935(C_word c,C_word *av) C_noret; C_noret_decl(f_4938) static void C_ccall f_4938(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_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_3356) static void C_ccall f_3356(C_word c,C_word *av) C_noret; C_noret_decl(f_6481) static void C_ccall f_6481(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_2343) static void C_ccall f_2343(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_4920) static void C_ccall f_4920(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_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_4370) static void C_fcall f_4370(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3341) static void C_ccall f_3341(C_word c,C_word *av) C_noret; C_noret_decl(f_2090) static void C_fcall f_2090(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3346) static void C_fcall f_3346(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6423) static void C_ccall f_6423(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_2358) static void C_ccall f_2358(C_word c,C_word *av) C_noret; C_noret_decl(f_4274) static void C_fcall f_4274(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4384) static void C_fcall f_4384(C_word t0,C_word t1,C_word t2) 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_6446) static void C_ccall f_6446(C_word c,C_word *av) C_noret; C_noret_decl(f_2308) static void C_ccall f_2308(C_word c,C_word *av) C_noret; C_noret_decl(f_4339) static void C_ccall f_4339(C_word c,C_word *av) C_noret; C_noret_decl(f_6413) static void C_fcall f_6413(C_word t0,C_word t1,C_word t2) 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_2137) static void C_ccall f_2137(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_6436) static void C_fcall f_6436(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2112) static void C_fcall f_2112(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2116) static void C_ccall f_2116(C_word c,C_word *av) C_noret; C_noret_decl(f_4725) static void C_ccall f_4725(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_6400) static void C_ccall f_6400(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_4577) static void C_ccall f_4577(C_word c,C_word *av) C_noret; C_noret_decl(f_4329) static void C_fcall f_4329(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4567) static void C_fcall f_4567(C_word t0,C_word t1) 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_5905) static void C_fcall f_5905(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5900) static void C_fcall f_5900(C_word t0,C_word t1) C_noret; C_noret_decl(f_2179) static void C_ccall f_2179(C_word c,C_word *av) C_noret; C_noret_decl(f_2167) static void C_ccall f_2167(C_word c,C_word *av) C_noret; C_noret_decl(f_2160) static void C_ccall f_2160(C_word c,C_word *av) C_noret; C_noret_decl(f_3206) static void C_ccall f_3206(C_word c,C_word *av) C_noret; C_noret_decl(f_5918) static void C_ccall f_5918(C_word c,C_word *av) C_noret; C_noret_decl(f_2169) static void C_fcall f_2169(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2154) static void C_ccall f_2154(C_word c,C_word *av) C_noret; C_noret_decl(f_2151) static void C_ccall f_2151(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_2714) static void C_ccall f_2714(C_word c,C_word *av) C_noret; C_noret_decl(f_4302) static void C_ccall f_4302(C_word c,C_word *av) C_noret; C_noret_decl(f_2710) static void C_ccall f_2710(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_3147) static void C_fcall f_3147(C_word t0,C_word t1) C_noret; C_noret_decl(f_6711) static void C_ccall f_6711(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_2147) static void C_ccall f_2147(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_6709) static void C_ccall f_6709(C_word c,C_word *av) C_noret; C_noret_decl(f_2140) static void C_ccall f_2140(C_word c,C_word *av) C_noret; C_noret_decl(f_2701) static void C_ccall f_2701(C_word c,C_word *av) C_noret; C_noret_decl(f_6705) static void C_ccall f_6705(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_4531) static void C_ccall f_4531(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_3176) static void C_ccall f_3176(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_2767) static void C_ccall f_2767(C_word c,C_word *av) C_noret; C_noret_decl(f_2763) static void C_ccall f_2763(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_3121) static void C_ccall f_3121(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_2774) static void C_ccall f_2774(C_word c,C_word *av) C_noret; C_noret_decl(f_4018) static void C_ccall f_4018(C_word c,C_word *av) C_noret; C_noret_decl(f_3153) static void C_ccall f_3153(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_3156) static void C_ccall f_3156(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_3159) static void C_ccall f_3159(C_word c,C_word *av) C_noret; C_noret_decl(f_5809) static void C_ccall f_5809(C_word c,C_word *av) C_noret; C_noret_decl(f_5802) static void C_ccall f_5802(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_3184) static void C_ccall f_3184(C_word c,C_word *av) C_noret; C_noret_decl(f_3180) static void C_fcall f_3180(C_word t0,C_word t1,C_word t2) 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_5813) static void C_ccall f_5813(C_word c,C_word *av) C_noret; C_noret_decl(f_2729) static void C_ccall f_2729(C_word c,C_word *av) 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_3169) static void C_ccall f_3169(C_word c,C_word *av) C_noret; C_noret_decl(f_6774) static void C_ccall f_6774(C_word c,C_word *av) C_noret; C_noret_decl(f_3161) static void C_fcall f_3161(C_word t0,C_word t1) 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_3197) static void C_fcall f_3197(C_word t0,C_word t1) 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_6203) static void C_ccall f_6203(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_4548) static void C_ccall f_4548(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_2579) static void C_ccall f_2579(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_2582) static void C_ccall f_2582(C_word c,C_word *av) C_noret; C_noret_decl(f_2587) static void C_fcall f_2587(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3608) static void C_ccall f_3608(C_word c,C_word *av) C_noret; C_noret_decl(f_5364) static void C_fcall f_5364(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1911) static void C_fcall f_1911(C_word t0,C_word t1) C_noret; C_noret_decl(f_5362) static void C_ccall f_5362(C_word c,C_word *av) C_noret; C_noret_decl(f_6675) static void C_ccall f_6675(C_word c,C_word *av) C_noret; C_noret_decl(f_1917) static void C_ccall f_1917(C_word c,C_word *av) C_noret; C_noret_decl(f_6679) static void C_ccall f_6679(C_word c,C_word *av) C_noret; C_noret_decl(f_1986) static void C_ccall f_1986(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_5888) static void C_ccall f_5888(C_word c,C_word *av) C_noret; C_noret_decl(f_6689) static void C_ccall f_6689(C_word c,C_word *av) C_noret; C_noret_decl(f_5885) static void C_ccall f_5885(C_word c,C_word *av) C_noret; C_noret_decl(f_4499) static void C_fcall f_4499(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4497) static void C_fcall f_4497(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5882) static void C_ccall f_5882(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_5894) static void C_ccall f_5894(C_word c,C_word *av) C_noret; C_noret_decl(f_5891) static void C_ccall f_5891(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_1927) static void C_ccall f_1927(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_2918) static void C_ccall f_2918(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_5863) static void C_ccall f_5863(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_1957) static void C_ccall f_1957(C_word c,C_word *av) C_noret; C_noret_decl(f_2904) static void C_ccall f_2904(C_word c,C_word *av) C_noret; C_noret_decl(f_1955) static void C_ccall f_1955(C_word c,C_word *av) C_noret; C_noret_decl(f_5878) static void C_ccall f_5878(C_word c,C_word *av) C_noret; C_noret_decl(f_5872) static void C_ccall f_5872(C_word c,C_word *av) C_noret; C_noret_decl(f_5374) static void C_ccall f_5374(C_word c,C_word *av) C_noret; C_noret_decl(f_1974) static void C_ccall f_1974(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_6294) static void C_ccall f_6294(C_word c,C_word *av) C_noret; C_noret_decl(f_5319) static void C_ccall f_5319(C_word c,C_word *av) C_noret; C_noret_decl(f_5223) static void C_ccall f_5223(C_word c,C_word *av) C_noret; C_noret_decl(f_5313) static void C_ccall f_5313(C_word c,C_word *av) C_noret; C_noret_decl(f_5316) static void C_ccall f_5316(C_word c,C_word *av) C_noret; C_noret_decl(f_5226) static void C_fcall f_5226(C_word t0,C_word t1,C_word t2) 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_3816) static void C_ccall f_3816(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_5310) static void C_ccall f_5310(C_word c,C_word *av) C_noret; C_noret_decl(f_3810) static void C_ccall f_3810(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_5233) static void C_ccall f_5233(C_word c,C_word *av) C_noret; C_noret_decl(f_6122) static void C_ccall f_6122(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_1994) static void C_ccall f_1994(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_2077) static void C_ccall f_2077(C_word c,C_word *av) C_noret; C_noret_decl(f_2071) static void C_ccall f_2071(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_6133) static void C_fcall f_6133(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2068) static void C_ccall f_2068(C_word c,C_word *av) C_noret; C_noret_decl(f_2061) static void C_fcall f_2061(C_word t0,C_word t1) C_noret; C_noret_decl(f_5307) static void C_ccall f_5307(C_word c,C_word *av) 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_5971) static void C_ccall f_5971(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_2024) static void C_ccall f_2024(C_word c,C_word *av) 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_3695) static void C_ccall f_3695(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_noret; C_noret_decl(f_3096) static void C_ccall f_3096(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_3088) static void C_ccall f_3088(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_6069) static void C_ccall f_6069(C_word c,C_word *av) C_noret; C_noret_decl(f_2996) static void C_ccall f_2996(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_3076) static void C_ccall f_3076(C_word c,C_word *av) C_noret; C_noret_decl(f_6734) static void C_ccall f_6734(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_6079) static void C_ccall f_6079(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_3064) static void C_ccall f_3064(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_2970) static void C_ccall f_2970(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_6754) static void C_ccall f_6754(C_word c,C_word *av) C_noret; C_noret_decl(f_3858) static void C_ccall f_3858(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_6762) static void C_ccall f_6762(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_2851) static void C_ccall f_2851(C_word c,C_word *av) C_noret; C_noret_decl(f_3030) static void C_fcall f_3030(C_word t0,C_word t1,C_word t2) 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_5590) static void C_ccall f_5590(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_5598) static void C_ccall f_5598(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_3022) static void C_ccall f_3022(C_word c,C_word *av) C_noret; C_noret_decl(f_3629) static void C_ccall f_3629(C_word c,C_word *av) C_noret; C_noret_decl(f_6048) static void C_ccall f_6048(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_3626) static void C_ccall f_3626(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_3019) static void C_ccall f_3019(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_6058) static void C_ccall f_6058(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_2042) static void C_ccall f_2042(C_word c,C_word *av) C_noret; C_noret_decl(f_6721) static void C_fcall f_6721(C_word t0,C_word t1) C_noret; C_noret_decl(f_2437) static void C_fcall f_2437(C_word t0,C_word t1) C_noret; C_noret_decl(f_3876) static void C_ccall f_3876(C_word c,C_word *av) C_noret; C_noret_decl(f_2469) static void C_ccall f_2469(C_word c,C_word *av) 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_4817) static void C_ccall f_4817(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_2454) static void C_ccall f_2454(C_word c,C_word *av) C_noret; C_noret_decl(f_6307) static void C_ccall f_6307(C_word c,C_word *av) C_noret; C_noret_decl(f_5508) static void C_fcall f_5508(C_word t0,C_word t1) C_noret; C_noret_decl(f_3494) static void C_ccall f_3494(C_word c,C_word *av) C_noret; C_noret_decl(f_2421) static void C_ccall f_2421(C_word c,C_word *av) C_noret; C_noret_decl(f_5845) static void C_fcall f_5845(C_word t0,C_word t1) C_noret; C_noret_decl(f_5848) static void C_ccall f_5848(C_word c,C_word *av) C_noret; C_noret_decl(f_5842) static void C_ccall f_5842(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_5522) static void C_ccall f_5522(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_5851) static void C_ccall f_5851(C_word c,C_word *av) C_noret; C_noret_decl(f_4215) static void C_fcall f_4215(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f7572) static void C_ccall f7572(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_5547) static void C_ccall f_5547(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_4206) static void C_ccall f_4206(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_word t3) 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_5839) static void C_fcall f_5839(C_word t0,C_word t1) C_noret; C_noret_decl(f_3456) static C_word C_fcall f_3456(C_word t0); C_noret_decl(f_5833) static void C_ccall f_5833(C_word c,C_word *av) C_noret; C_noret_decl(f_5551) static void C_fcall f_5551(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3486) static void C_ccall f_3486(C_word c,C_word *av) C_noret; C_noret_decl(f_3488) static void C_fcall f_3488(C_word t0,C_word t1,C_word t2,C_word t3) 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_6494) static void C_ccall f_6494(C_word c,C_word *av) C_noret; C_noret_decl(f_4668) static void C_ccall f_4668(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_2371) static void C_ccall f_2371(C_word c,C_word *av) C_noret; C_noret_decl(f_2219) static void C_fcall f_2219(C_word t0,C_word t1,C_word t2) 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_4678) static void C_fcall f_4678(C_word t0,C_word t1,C_word t2) 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_3421) static C_word C_fcall f_3421(C_word t0,C_word t1); C_noret_decl(f_5192) static void C_fcall f_5192(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5190) static void C_fcall f_5190(C_word t0,C_word t1) C_noret; C_noret_decl(f_6582) static void C_ccall f_6582(C_word c,C_word *av) C_noret; C_noret_decl(f_6585) static void C_ccall f_6585(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_4610) static void C_fcall f_4610(C_word t0,C_word t1) 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_6550) static void C_ccall f_6550(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_4392) static void C_ccall f_4392(C_word c,C_word *av) C_noret; C_noret_decl(f_4645) static void C_fcall f_4645(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_4648) static void C_fcall f_4648(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3401) static void C_ccall f_3401(C_word c,C_word *av) C_noret; C_noret_decl(f_2196) static void C_ccall f_2196(C_word c,C_word *av) C_noret; C_noret_decl(f_6579) static void C_ccall f_6579(C_word c,C_word *av) C_noret; C_noret_decl(f_2391) static C_word C_fcall f_2391(C_word *a,C_word t0,C_word t1); C_noret_decl(f_4846) static void C_ccall f_4846(C_word c,C_word *av) C_noret; C_noret_decl(f_4848) static void C_fcall f_4848(C_word t0,C_word t1) 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_6576) static void C_ccall f_6576(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_4839) static void C_ccall f_4839(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_2182) static void C_ccall f_2182(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_4605) static void C_fcall f_4605(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5694) static void C_fcall f_5694(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5692) static void C_ccall f_5692(C_word c,C_word *av) C_noret; C_noret_decl(f_4851) static void C_fcall f_4851(C_word t0,C_word t1) 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_2686) static void C_ccall f_2686(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_6561) static void C_ccall f_6561(C_word c,C_word *av) C_noret; C_noret_decl(f_4883) static void C_fcall f_4883(C_word t0,C_word t1,C_word t2,C_word t3) 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_2691) static void C_ccall f_2691(C_word c,C_word *av) C_noret; C_noret_decl(f_6227) static void C_ccall f_6227(C_word c,C_word *av) C_noret; C_noret_decl(f_2612) static void C_ccall f_2612(C_word c,C_word *av) C_noret; C_noret_decl(f_5671) static void C_fcall f_5671(C_word t0,C_word t1) C_noret; C_noret_decl(f_6356) static void C_fcall f_6356(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4874) static void C_fcall f_4874(C_word t0,C_word t1) C_noret; C_noret_decl(f_2668) static void C_ccall f_2668(C_word c,C_word *av) C_noret; C_noret_decl(f_6817) static void C_ccall f_6817(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_6230) static void C_ccall f_6230(C_word c,C_word *av) C_noret; C_noret_decl(f_5680) static void C_ccall f_5680(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_noret; C_noret_decl(f_4820) static void C_ccall f_4820(C_word c,C_word *av) C_noret; C_noret_decl(f_2677) static void C_ccall f_2677(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_5677) static void C_fcall f_5677(C_word t0,C_word t1) 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_2549) static void C_ccall f_2549(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_2540) static void C_ccall f_2540(C_word c,C_word *av) C_noret; C_noret_decl(f_2643) static void C_fcall f_2643(C_word t0,C_word t1,C_word t2) 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_6525) static void C_fcall f_6525(C_word t0,C_word t1,C_word t2) 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_6520) static void C_ccall f_6520(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_6381) static void C_ccall f_6381(C_word c,C_word *av) C_noret; C_noret_decl(f_2653) static void C_ccall f_2653(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_5659) static void C_ccall f_5659(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_5708) static void C_fcall f_5708(C_word t0,C_word t1,C_word t2) C_noret; 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_5700(t0,t1,t2);} C_noret_decl(trf_2622) static void C_ccall trf_2622(C_word c,C_word *av) C_noret; static void C_ccall trf_2622(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2622(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_4185) static void C_ccall trf_4185(C_word c,C_word *av) C_noret; static void C_ccall trf_4185(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4185(t0,t1,t2);} C_noret_decl(trf_4177) static void C_ccall trf_4177(C_word c,C_word *av) C_noret; static void C_ccall trf_4177(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4177(t0,t1,t2);} C_noret_decl(trf_5776) static void C_ccall trf_5776(C_word c,C_word *av) C_noret; static void C_ccall trf_5776(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5776(t0,t1,t2);} C_noret_decl(trf_4712) static void C_ccall trf_4712(C_word c,C_word *av) C_noret; static void C_ccall trf_4712(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4712(t0,t1,t2,t3);} C_noret_decl(trf_3139) static void C_ccall trf_3139(C_word c,C_word *av) C_noret; static void C_ccall trf_3139(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3139(t0,t1,t2);} C_noret_decl(trf_5425) static void C_ccall trf_5425(C_word c,C_word *av) C_noret; static void C_ccall trf_5425(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5425(t0,t1,t2);} C_noret_decl(trf_5431) static void C_ccall trf_5431(C_word c,C_word *av) C_noret; static void C_ccall trf_5431(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5431(t0,t1,t2);} C_noret_decl(trf_5792) static void C_ccall trf_5792(C_word c,C_word *av) C_noret; static void C_ccall trf_5792(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5792(t0,t1,t2);} C_noret_decl(trf_5486) static void C_ccall trf_5486(C_word c,C_word *av) C_noret; static void C_ccall trf_5486(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5486(t0,t1,t2);} C_noret_decl(trf_5480) static void C_ccall trf_5480(C_word c,C_word *av) C_noret; static void C_ccall trf_5480(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5480(t0,t1);} C_noret_decl(trf_3506) static void C_ccall trf_3506(C_word c,C_word *av) C_noret; static void C_ccall trf_3506(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3506(t0,t1,t2);} C_noret_decl(trf_4411) static void C_ccall trf_4411(C_word c,C_word *av) C_noret; static void C_ccall trf_4411(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4411(t0,t1,t2);} C_noret_decl(trf_5443) static void C_ccall trf_5443(C_word c,C_word *av) C_noret; static void C_ccall trf_5443(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5443(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_4797(t0,t1,t2);} C_noret_decl(trf_1941) static void C_ccall trf_1941(C_word c,C_word *av) C_noret; static void C_ccall trf_1941(C_word c,C_word *av){ C_word t0=av[0]; f_1941(t0);} C_noret_decl(trf_4763) static void C_ccall trf_4763(C_word c,C_word *av) C_noret; static void C_ccall trf_4763(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4763(t0,t1,t2,t3);} 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_5245) static void C_ccall trf_5245(C_word c,C_word *av) C_noret; static void C_ccall trf_5245(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5245(t0,t1,t2);} C_noret_decl(trf_5279) static void C_ccall trf_5279(C_word c,C_word *av) C_noret; static void C_ccall trf_5279(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5279(t0,t1,t2,t3);} C_noret_decl(trf_3538) static void C_ccall trf_3538(C_word c,C_word *av) C_noret; static void C_ccall trf_3538(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3538(t0,t1,t2,t3);} C_noret_decl(trf_5092) static void C_ccall trf_5092(C_word c,C_word *av) C_noret; static void C_ccall trf_5092(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5092(t0,t1);} C_noret_decl(trf_5133) static void C_ccall trf_5133(C_word c,C_word *av) C_noret; static void C_ccall trf_5133(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5133(t0,t1);} 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[1]; C_word t1=av[0]; f_6824(t0,t1);} C_noret_decl(trf_5285) static void C_ccall trf_5285(C_word c,C_word *av) C_noret; static void C_ccall trf_5285(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5285(t0,t1,t2,t3);} C_noret_decl(trf_2318) static void C_ccall trf_2318(C_word c,C_word *av) C_noret; static void C_ccall trf_2318(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2318(t0,t1);} C_noret_decl(trf_4502) static void C_ccall trf_4502(C_word c,C_word *av) C_noret; static void C_ccall trf_4502(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4502(t0,t1,t2);} C_noret_decl(trf_5031) static void C_ccall trf_5031(C_word c,C_word *av) C_noret; static void C_ccall trf_5031(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5031(t0,t1,t2,t3);} C_noret_decl(trf_6852) static void C_ccall trf_6852(C_word c,C_word *av) C_noret; static void C_ccall trf_6852(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6852(t0,t1,t2);} C_noret_decl(trf_6390) static void C_ccall trf_6390(C_word c,C_word *av) C_noret; static void C_ccall trf_6390(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6390(t0,t1,t2);} C_noret_decl(trf_4972) static void C_ccall trf_4972(C_word c,C_word *av) C_noret; static void C_ccall trf_4972(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4972(t0,t1,t2,t3);} C_noret_decl(trf_4261) static void C_ccall trf_4261(C_word c,C_word *av) C_noret; static void C_ccall trf_4261(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4261(t0,t1,t2);} C_noret_decl(trf_2274) static void C_ccall trf_2274(C_word c,C_word *av) C_noret; static void C_ccall trf_2274(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2274(t0,t1,t2);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4957(t0,t1,t2,t3);} C_noret_decl(trf_3376) static void C_ccall trf_3376(C_word c,C_word *av) C_noret; static void C_ccall trf_3376(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3376(t0,t1,t2);} C_noret_decl(trf_4370) static void C_ccall trf_4370(C_word c,C_word *av) C_noret; static void C_ccall trf_4370(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4370(t0,t1,t2);} C_noret_decl(trf_2090) static void C_ccall trf_2090(C_word c,C_word *av) C_noret; static void C_ccall trf_2090(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2090(t0,t1,t2);} C_noret_decl(trf_3346) static void C_ccall trf_3346(C_word c,C_word *av) C_noret; static void C_ccall trf_3346(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3346(t0,t1,t2);} C_noret_decl(trf_4274) static void C_ccall trf_4274(C_word c,C_word *av) C_noret; static void C_ccall trf_4274(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4274(t0,t1,t2);} C_noret_decl(trf_4384) static void C_ccall trf_4384(C_word c,C_word *av) C_noret; static void C_ccall trf_4384(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4384(t0,t1,t2);} C_noret_decl(trf_6413) static void C_ccall trf_6413(C_word c,C_word *av) C_noret; static void C_ccall trf_6413(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6413(t0,t1,t2);} 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_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[2]; C_word t1=av[1]; C_word t2=av[0]; f_2112(t0,t1,t2);} C_noret_decl(trf_4329) static void C_ccall trf_4329(C_word c,C_word *av) C_noret; static void C_ccall trf_4329(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4329(t0,t1,t2);} C_noret_decl(trf_4567) static void C_ccall trf_4567(C_word c,C_word *av) C_noret; static void C_ccall trf_4567(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4567(t0,t1);} C_noret_decl(trf_5905) static void C_ccall trf_5905(C_word c,C_word *av) C_noret; static void C_ccall trf_5905(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5905(t0,t1,t2);} C_noret_decl(trf_5900) static void C_ccall trf_5900(C_word c,C_word *av) C_noret; static void C_ccall trf_5900(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5900(t0,t1);} C_noret_decl(trf_2169) static void C_ccall trf_2169(C_word c,C_word *av) C_noret; static void C_ccall trf_2169(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2169(t0,t1,t2);} C_noret_decl(trf_3147) static void C_ccall trf_3147(C_word c,C_word *av) C_noret; static void C_ccall trf_3147(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3147(t0,t1);} C_noret_decl(trf_3180) static void C_ccall trf_3180(C_word c,C_word *av) C_noret; static void C_ccall trf_3180(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3180(t0,t1,t2);} C_noret_decl(trf_3161) static void C_ccall trf_3161(C_word c,C_word *av) C_noret; static void C_ccall trf_3161(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3161(t0,t1);} C_noret_decl(trf_3197) static void C_ccall trf_3197(C_word c,C_word *av) C_noret; static void C_ccall trf_3197(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3197(t0,t1);} C_noret_decl(trf_2587) static void C_ccall trf_2587(C_word c,C_word *av) C_noret; static void C_ccall trf_2587(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2587(t0,t1,t2);} C_noret_decl(trf_5364) static void C_ccall trf_5364(C_word c,C_word *av) C_noret; static void C_ccall trf_5364(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5364(t0,t1,t2,t3);} C_noret_decl(trf_1911) static void C_ccall trf_1911(C_word c,C_word *av) C_noret; static void C_ccall trf_1911(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1911(t0,t1);} C_noret_decl(trf_4499) static void C_ccall trf_4499(C_word c,C_word *av) C_noret; static void C_ccall trf_4499(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4499(t0,t1,t2,t3);} C_noret_decl(trf_4497) static void C_ccall trf_4497(C_word c,C_word *av) C_noret; static void C_ccall trf_4497(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4497(t0,t1,t2);} C_noret_decl(trf_5226) static void C_ccall trf_5226(C_word c,C_word *av) C_noret; static void C_ccall trf_5226(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5226(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_6133) static void C_ccall trf_6133(C_word c,C_word *av) C_noret; static void C_ccall trf_6133(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6133(t0,t1,t2);} C_noret_decl(trf_2061) static void C_ccall trf_2061(C_word c,C_word *av) C_noret; static void C_ccall trf_2061(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2061(t0,t1);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3098(t0,t1,t2,t3);} C_noret_decl(trf_3030) static void C_ccall trf_3030(C_word c,C_word *av) C_noret; static void C_ccall trf_3030(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3030(t0,t1,t2);} C_noret_decl(trf_6721) static void C_ccall trf_6721(C_word c,C_word *av) C_noret; static void C_ccall trf_6721(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6721(t0,t1);} C_noret_decl(trf_2437) static void C_ccall trf_2437(C_word c,C_word *av) C_noret; static void C_ccall trf_2437(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2437(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_5508) static void C_ccall trf_5508(C_word c,C_word *av) C_noret; static void C_ccall trf_5508(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5508(t0,t1);} C_noret_decl(trf_5845) static void C_ccall trf_5845(C_word c,C_word *av) C_noret; static void C_ccall trf_5845(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5845(t0,t1);} C_noret_decl(trf_4215) static void C_ccall trf_4215(C_word c,C_word *av) C_noret; static void C_ccall trf_4215(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4215(t0,t1,t2);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3885(t0,t1,t2,t3);} C_noret_decl(trf_5839) static void C_ccall trf_5839(C_word c,C_word *av) C_noret; static void C_ccall trf_5839(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5839(t0,t1);} C_noret_decl(trf_5551) static void C_ccall trf_5551(C_word c,C_word *av) C_noret; static void C_ccall trf_5551(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5551(t0,t1,t2);} C_noret_decl(trf_3488) static void C_ccall trf_3488(C_word c,C_word *av) C_noret; static void C_ccall trf_3488(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3488(t0,t1,t2,t3);} C_noret_decl(trf_2219) static void C_ccall trf_2219(C_word c,C_word *av) C_noret; static void C_ccall trf_2219(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2219(t0,t1,t2);} C_noret_decl(trf_4678) static void C_ccall trf_4678(C_word c,C_word *av) C_noret; static void C_ccall trf_4678(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4678(t0,t1,t2);} C_noret_decl(trf_5192) static void C_ccall trf_5192(C_word c,C_word *av) C_noret; static void C_ccall trf_5192(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5192(t0,t1,t2);} C_noret_decl(trf_5190) static void C_ccall trf_5190(C_word c,C_word *av) C_noret; static void C_ccall trf_5190(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5190(t0,t1);} C_noret_decl(trf_4610) static void C_ccall trf_4610(C_word c,C_word *av) C_noret; static void C_ccall trf_4610(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4610(t0,t1);} 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_4645) static void C_ccall trf_4645(C_word c,C_word *av) C_noret; static void C_ccall trf_4645(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_4645(t0,t1,t2,t3,t4);} C_noret_decl(trf_4648) static void C_ccall trf_4648(C_word c,C_word *av) C_noret; static void C_ccall trf_4648(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_4648(t0,t1,t2,t3,t4);} C_noret_decl(trf_4848) static void C_ccall trf_4848(C_word c,C_word *av) C_noret; static void C_ccall trf_4848(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4848(t0,t1);} C_noret_decl(trf_4605) static void C_ccall trf_4605(C_word c,C_word *av) C_noret; static void C_ccall trf_4605(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4605(t0,t1,t2);} C_noret_decl(trf_5694) static void C_ccall trf_5694(C_word c,C_word *av) C_noret; static void C_ccall trf_5694(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5694(t0,t1,t2);} C_noret_decl(trf_4851) static void C_ccall trf_4851(C_word c,C_word *av) C_noret; static void C_ccall trf_4851(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4851(t0,t1);} C_noret_decl(trf_4883) static void C_ccall trf_4883(C_word c,C_word *av) C_noret; static void C_ccall trf_4883(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4883(t0,t1,t2,t3);} C_noret_decl(trf_5671) static void C_ccall trf_5671(C_word c,C_word *av) C_noret; static void C_ccall trf_5671(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5671(t0,t1);} C_noret_decl(trf_6356) static void C_ccall trf_6356(C_word c,C_word *av) C_noret; static void C_ccall trf_6356(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6356(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_4874(t0,t1);} 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[1]; C_word t1=av[0]; f_5683(t0,t1);} C_noret_decl(trf_5677) static void C_ccall trf_5677(C_word c,C_word *av) C_noret; static void C_ccall trf_5677(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5677(t0,t1);} C_noret_decl(trf_2643) static void C_ccall trf_2643(C_word c,C_word *av) C_noret; static void C_ccall trf_2643(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2643(t0,t1,t2);} C_noret_decl(trf_6525) static void C_ccall trf_6525(C_word c,C_word *av) C_noret; static void C_ccall trf_6525(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6525(t0,t1,t2);} C_noret_decl(trf_5708) static void C_ccall trf_5708(C_word c,C_word *av) C_noret; static void C_ccall trf_5708(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5708(t0,t1,t2);} /* loop in collect-options in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in ... */ static void C_fcall f_5700(C_word t0,C_word t1,C_word 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_5700,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_5708,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:1000: g1203 */ t5=t4; f_5708(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);}}} /* g246 in k2619 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_2622(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_2622,3,t0,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2628,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:344: g261 */ t4=((C_word*)t0)[3];{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=lf[76]; av2[4]=t3; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* a2627 in g246 in k2619 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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=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_2628,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2632,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* csi.scm:344: pretty-print */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2619 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_2621,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2622,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_2638,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_2643,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_2643(t7,t3,t1);} /* k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5665,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5668,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:981: member* */ f_5425(t3,lf[360],((C_word*)((C_word*)t0)[2])[1]);} /* k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_5668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_5668,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5671,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_6576,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:986: ##sys#error */ t8=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t4; av2[2]=lf[358]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t8=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_6576(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:986: ##sys#error */ t11=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t4; av2[2]=lf[358]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t11=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_SCHEME_UNDEFINED; f_6576(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:986: ##sys#error */ t14=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t14; av2[1]=t4; av2[2]=lf[358]; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} else{ t14=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_SCHEME_UNDEFINED; f_6576(2,av2);}}}}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6662,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_6675,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* csi.scm:997: canonicalize-args */ f_5480(t5,((C_word*)t0)[5]);}} /* k2496 in k2493 in k2490 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2498,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6318 in k6312 in k6305 in k6299 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6320,2,av);} /* csi.scm:1053: append */ t2=*((C_word*)lf[231]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[133]); av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* map-loop1313 in k6312 in k6305 in k6299 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6322,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_6347,a[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:1054: g1319 */ 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);}}} /* k6867 in k6822 in k6819 in a6816 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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,3)))){ C_save_and_reclaim((void *)f_6869,2,av);} /* csi.scm:435: ##sys#find-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[385]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[385]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; tp(4,av2);}} /* k2630 in a2627 in g246 in k2619 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2632,2,av);} /* csi.scm:344: print* */ t2=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[75]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k2636 in k2619 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2638,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2470 in k2467 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2472,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2481 in k2467 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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,2)))){ C_save_and_reclaim((void *)f_2483,2,av);} /* csi.scm:315: ##sys#strip-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[59]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[59]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k2477 in k2467 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2479,2,av);} /* csi.scm:315: pretty-print */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4478 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4480,2,av);} /* csi.scm:599: fprintf */ t2=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[239]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* set-describer! in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_4488(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_4488,4,av);} t4=C_i_check_symbol_2(t2,lf[241]); /* csi.scm:734: ##sys#hash-table-set! */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[242]); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[242]+1); av2[1]=t1; av2[2]=C_retrieve2(lf[149],"describer-table"); av2[3]=t2; av2[4]=t3; tp(5,av2);}} /* a6881 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6882(C_word c,C_word *av){ 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_6882,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6890,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* csi.scm:259: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[396]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[396]+1); av2[1]=t2; tp(2,av2);}} /* k6878 in k6819 in a6816 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6880,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_6824(t3,t2);} /* g580 in doloop574 in k4164 in k4161 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in ... */ static void C_fcall f_4185(C_word t0,C_word t1,C_word 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_4185,3,t0,t1,t2);} t3=C_slot(t2,C_fix(0)); t4=C_slot(t2,C_fix(1)); /* csi.scm:702: fprintf */ t5=*((C_word*)lf[153]+1);{ C_word av2[6]; av2[0]=t5; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[221]; av2[4]=t3; av2[5]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_1887(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1887,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1890,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k1879 in k1876 */ static void C_ccall f_1881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1881,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1884,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k1882 in k1879 in k1876 */ static void C_ccall f_1884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1884,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1887,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_ports_toplevel(2,av2);}} /* k3265 in k3257 in k3229 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in ... */ static void C_ccall f_3267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3267,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3271,a[2]=((C_word*)t0)[2],a[3]=((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:515: software-version */ t4=C_fast_retrieve(lf[138]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6891 in k6888 in a6881 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6893,2,av);} /* csi.scm:258: sprintf */ t2=*((C_word*)lf[197]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[392]; av2[3]=t1; av2[4]=C_retrieve2(lf[18],"history-count"); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* doloop574 in k4164 in k4161 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in ... */ static void C_fcall f_4177(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_4177,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_4185,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[106]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4206,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_4215,a[2]=t8,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_4215(t10,t6,t4);}} /* k6888 in a6881 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6890,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6893,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_6900,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csi.scm:261: ##sys#module-name */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[394]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[394]+1); av2[1]=t3; av2[2]=t1; tp(3,av2);}} else{ /* csi.scm:258: sprintf */ t3=*((C_word*)lf[197]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[392]; av2[3]=lf[395]; av2[4]=C_retrieve2(lf[18],"history-count"); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k6345 in map-loop1313 in k6312 in k6305 in k6299 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in ... */ static void C_ccall f_6347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6347,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6322(t6,((C_word*)t0)[5],t5);} /* k1876 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1878,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1881,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k3257 in k3229 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 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 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_3259,2,av);} a=C_alloc(10); t2=t1; t3=C_fudge(C_fix(3)); t4=(C_truep(t3)?lf[126]:lf[127]); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3267,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t5,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); /* csi.scm:514: software-type */ t7=C_fast_retrieve(lf[139]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* loop in k5520 in k5506 in loop in canonicalize-args in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static C_word C_fcall f_5629(C_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);}}} /* k4164 in k4161 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 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 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_4166,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_4177,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_4177(t9,((C_word*)t0)[4],C_fix(0));} /* k4161 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 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 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_slot(((C_word*)t0)[2],C_fix(4)); /* csi.scm:694: fprintf */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[222]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3241 in k3238 in k3235 in k3232 in k3229 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in ... */ static void C_ccall f_3243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3243,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3238 in k3235 in k3232 in k3229 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3240,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3243,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fudge(C_fix(15)))){ /* csi.scm:532: display */ t3=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[124]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6147 in k6144 in doloop1410 in k6120 in k6117 in k6111 */ static void C_ccall f_6149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6149,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6133(t3,((C_word*)t0)[4],t2);} /* k6144 in doloop1410 in k6120 in k6117 in k6111 */ static void C_ccall f_6146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6146,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6149,a[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:1121: display */ t3=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[300]; av2[3]=*((C_word*)lf[299]+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_6133(t4,((C_word*)t0)[4],t3);}} /* k5761 in k5755 in k5743 in k6180 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in ... */ static void C_ccall f_5763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5763,2,av);} if(C_truep(t1)){ /* csi.scm:1021: load */ t2=C_fast_retrieve(lf[72]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4149 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4151,2,av);} /* csi.scm:689: fprintf */ t2=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[218]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3229 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 in ... */ static void C_ccall f_3231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3231,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3234,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3259,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],tmp=(C_word)a,a+=8,tmp); /* csi.scm:512: machine-type */ t4=C_fast_retrieve(lf[140]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3235 in k3232 in k3229 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3237,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3240,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fudge(C_fix(14)))){ /* csi.scm:531: display */ t3=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[125]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_3240(2,av2);}}} /* k3232 in k3229 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3234,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3237,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:530: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[95]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[95]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[91]+1); tp(4,av2);}} /* k6299 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in ... */ static void C_ccall f_6301(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_6301,2,av);} a=C_alloc(13); t2=C_i_check_list_2(t1,lf[230]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6307,a[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_6356,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_6356(t7,t3,t1);} /* evalstring in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in ... */ static void C_fcall f_5776(C_word t1,C_word 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_5776,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_5823,tmp=(C_word)a,a+=2,tmp):C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5783,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* csi.scm:1023: open-input-string */ t8=C_fast_retrieve(lf[273]);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* doloop747 in k4695 in k4692 in k4689 in k4686 in doloop721 in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_4712(C_word t0,C_word 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_4712,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_4725,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:788: 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);}}} /* k5768 in k5743 in k6180 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5770,2,av);} /* csi.scm:1019: string-append */ t2=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[306]; av2[4]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_3139(C_word t0,C_word t1,C_word 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_3139,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3147,a[2]=((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_3147(t5,C_u_i_car(t4));} else{ t4=t3; f_3147(t4,*((C_word*)lf[91]+1));}} /* k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3138,2,av);} a=C_alloc(9); t2=t1; t3=C_mutate2(&lf[68] /* (set! report ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3139,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_mutate2(&lf[147] /* (set! bytevector-data ...) */,lf[148]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3486,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); /* csi.scm:565: make-vector */ t6=*((C_word*)lf[379]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3135(C_word c,C_word *av){ C_word tmp; C_word t0=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_3135,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3138,a[2]=((C_word*)t0)[2],a[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;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; f_3138(2,av2);}} else{ /* ##sys#peek-c-string */ t3=*((C_word*)lf[380]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_PREFIX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k2493 in k2490 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2495,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2498,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:320: pretty-print */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2490 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2492(C_word c,C_word *av){ C_word tmp; C_word t0=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_2492,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2495,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:319: eval */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a6696 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6697(C_word c,C_word *av){ C_word tmp; C_word 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_6697,3,av);} /* csi.scm:920: ##sys#user-interrupt-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[258]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[258]+1); av2[1]=t1; tp(2,av2);}} /* k6693 in k6687 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6695,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k6690 in k6687 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6692,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* member* in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_5425(C_word 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_5425,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_5431,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_5431(t7,t1,t3);} /* k5781 in evalstring in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5783,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5790,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: read */ t4=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; C_word 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_4132,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_4138,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:686: fprintf */ t5=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=lf[217]; 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_4151,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csi.scm:689: ##sys#lambda-info->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[219]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[219]+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[220]))){ t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4163,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[223]:lf[224]); t6=C_slot(((C_word*)t0)[2],C_fix(3)); /* csi.scm:692: fprintf */ t7=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t7; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[225]; 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[226]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4260,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:706: fprintf */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[229]; 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_4366,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:722: ##sys#hash-table-ref */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[233]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[233]+1); av2[1]=t4; av2[2]=C_retrieve2(lf[149],"describer-table"); av2[3]=t3; tp(4,av2);}} else{ /* csi.scm:729: fprintf */ t2=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[234]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}}}}} /* k4701 in k4698 in k4695 in k4692 in k4689 in k4686 in doloop721 in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 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(0,c,2)))){ C_save_and_reclaim((void *)f_4703,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(16)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4678(t3,((C_word*)t0)[4],t2);} /* k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 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,4)))){ C_save_and_reclaim((void *)f_5420,2,av);} a=C_alloc(15); t2=C_establish_signal_handler(C_fix((C_word)SIGINT),C_fix((C_word)SIGINT)); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6697,tmp=(C_word)a,a+=2,tmp); t4=C_i_setslot(C_fast_retrieve(lf[259]),C_fix((C_word)SIGINT),t3); t5=C_mutate2(&lf[260] /* (set! member* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5425,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate2(&lf[261] /* (set! canonicalize-args ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5480,tmp=(C_word)a,a+=2,tmp)); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6689,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=t7; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5659,a[2]=t8,tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6683,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* csi.scm:977: get-environment-variable */ t11=C_fast_retrieve(lf[36]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=lf[369]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k4136 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4138,2,av);} /* csi.scm:687: hexdump */ f_4645(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],*((C_word*)lf[216]+1),((C_word*)t0)[5]);} /* a6162 */ 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!=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_6163,2,av);} t2=C_fast_retrieve(lf[54]); /* csi.scm:1112: g1407 */ t3=C_fast_retrieve(lf[54]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4698 in k4695 in k4692 in k4689 in k4686 in doloop721 in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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(5,c,3)))){ C_save_and_reclaim((void *)f_4700,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4703,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* write-char/port */ t3=C_fast_retrieve(lf[249]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3289 in k3285 in k3281 in k3277 in k3273 in k3269 in k3265 in k3257 in k3229 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in ... */ static void C_ccall f_3291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(19,c,2)))){ C_save_and_reclaim((void *)f_3291,2,av);} a=C_alloc(19); 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_fudge(C_fix(17)); t8=(C_truep(t7)?lf[128]:lf[129]); t9=t8; t10=C_i_vector_ref(((C_word*)t0)[3],C_fix(1)); t11=t10; t12=C_i_vector_ref(((C_word*)t0)[3],C_fix(2)); t13=t12; t14=C_fudge(C_fix(18)); t15=C_i_nequalp(C_fix(1),t14); t16=(C_truep(t15)?lf[130]:lf[131]); t17=t16; t18=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_3319,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]=t2,a[13]=t4,a[14]=t6,a[15]=t9,a[16]=t11,a[17]=t13,a[18]=t17,tmp=(C_word)a,a+=19,tmp); /* csi.scm:529: argv */ t19=((C_word*)t0)[14];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t19; av2[1]=t18; ((C_proc)(void*)(*((C_word*)t19+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(1820))){ C_save(t1); C_rereclaim2(1820*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,405); lf[1]=C_decode_literal(C_heaptop,"\376B\000\000\006.csirc"); lf[2]=C_h_intern(&lf[2],27,"\003sysrepl-print-length-limit"); lf[3]=C_h_intern(&lf[3],4,"\000csi"); lf[4]=C_h_intern(&lf[4],12,"\003sysfeatures"); lf[5]=C_h_intern(&lf[5],19,"\003sysnotices-enabled"); lf[6]=C_h_intern(&lf[6],14,"editor-command"); lf[10]=C_h_intern(&lf[10],5,"print"); lf[11]=C_decode_literal(C_heaptop,"\376B\000\000C(c) 2008-2017, The CHICKEN Team\012(c) 2000-2007, Felix L. Winkelmann\012"); lf[12]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[13]=C_h_intern(&lf[13],15,"chicken-version"); lf[14]=C_decode_literal(C_heaptop,"\376B\000\000\007CHICKEN"); lf[15]=C_h_intern(&lf[15],7,"newline"); lf[16]=C_h_intern(&lf[16],18,"\003sysuser-read-hook"); lf[17]=C_h_intern(&lf[17],5,"quote"); lf[20]=C_h_intern(&lf[20],21,"\003syssharp-number-hook"); lf[22]=C_h_intern(&lf[22],20,"\003syswindows-platform"); lf[24]=C_h_intern(&lf[24],9,"substring"); lf[25]=C_h_intern(&lf[25],1,"@"); lf[26]=C_h_intern(&lf[26],12,"file-exists\077"); lf[27]=C_h_intern(&lf[27],17,"\003sysstring-append"); lf[28]=C_decode_literal(C_heaptop,"\376B\000\000\004.bat"); lf[30]=C_h_intern(&lf[30],13,"string-append"); lf[31]=C_decode_literal(C_heaptop,"\376B\000\000\001/"); lf[32]=C_h_intern(&lf[32],25,"\003syspeek-nonnull-c-string"); lf[33]=C_h_intern(&lf[33],12,"string-split"); lf[34]=C_decode_literal(C_heaptop,"\376B\000\000\001;"); lf[35]=C_decode_literal(C_heaptop,"\376B\000\000\001/"); lf[36]=C_h_intern(&lf[36],24,"get-environment-variable"); lf[37]=C_decode_literal(C_heaptop,"\376B\000\000\004PATH"); lf[39]=C_h_intern(&lf[39],13,"vector-resize"); lf[41]=C_h_intern(&lf[41],19,"\003sysundefined-value"); lf[42]=C_h_intern(&lf[42],9,"\003syserror"); lf[43]=C_decode_literal(C_heaptop,"\376B\000\000 history entry index out of range"); lf[44]=C_h_intern(&lf[44],18,"\003sysbreak-on-error"); lf[45]=C_h_intern(&lf[45],20,"\003sysread-prompt-hook"); lf[46]=C_h_intern(&lf[46],13,"\003systty-port\077"); lf[47]=C_h_intern(&lf[47],18,"\003sysstandard-input"); lf[49]=C_h_intern(&lf[49],16,"toplevel-command"); lf[50]=C_h_intern(&lf[50],4,"eval"); lf[51]=C_h_intern(&lf[51],12,"load-noisily"); lf[52]=C_h_intern(&lf[52],9,"read-line"); lf[53]=C_h_intern(&lf[53],6,"expand"); lf[54]=C_h_intern(&lf[54],12,"pretty-print"); lf[55]=C_h_intern(&lf[55],6,"values"); lf[57]=C_h_intern(&lf[57],4,"exit"); lf[58]=C_h_intern(&lf[58],1,"x"); lf[59]=C_h_intern(&lf[59],16,"\003sysstrip-syntax"); lf[60]=C_h_intern(&lf[60],4,"read"); lf[61]=C_h_intern(&lf[61],1,"p"); lf[62]=C_h_intern(&lf[62],1,"d"); lf[64]=C_h_intern(&lf[64],2,"du"); lf[66]=C_h_intern(&lf[66],3,"dur"); lf[67]=C_h_intern(&lf[67],1,"r"); lf[69]=C_h_intern(&lf[69],1,"q"); lf[70]=C_h_intern(&lf[70],13,"\003sysquit-hook"); lf[71]=C_h_intern(&lf[71],1,"l"); lf[72]=C_h_intern(&lf[72],4,"load"); lf[73]=C_h_intern(&lf[73],2,"ln"); lf[74]=C_h_intern(&lf[74],6,"print\052"); lf[75]=C_decode_literal(C_heaptop,"\376B\000\000\004==> "); lf[76]=C_h_intern(&lf[76],8,"\000printer"); lf[77]=C_h_intern(&lf[77],1,"t"); lf[78]=C_h_intern(&lf[78],17,"\003sysdisplay-times"); lf[79]=C_h_intern(&lf[79],14,"\003sysstop-timer"); lf[80]=C_h_intern(&lf[80],15,"\003sysstart-timer"); lf[81]=C_h_intern(&lf[81],3,"exn"); lf[82]=C_h_intern(&lf[82],18,"\003syslast-exception"); lf[83]=C_h_intern(&lf[83],1,"e"); lf[84]=C_h_intern(&lf[84],6,"printf"); lf[85]=C_decode_literal(C_heaptop,"\376B\000\000,editor returned with non-zero exit status ~a"); lf[86]=C_h_intern(&lf[86],6,"system"); lf[87]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[88]=C_h_intern(&lf[88],2,"ch"); lf[89]=C_h_intern(&lf[89],12,"vector-fill!"); lf[90]=C_h_intern(&lf[90],1,"h"); lf[91]=C_h_intern(&lf[91],19,"\003sysstandard-output"); lf[92]=C_h_intern(&lf[92],9,"\003sysprint"); lf[93]=C_h_intern(&lf[93],27,"\003syswith-print-length-limit"); lf[94]=C_decode_literal(C_heaptop,"\376B\000\000\002: "); lf[95]=C_h_intern(&lf[95],16,"\003syswrite-char-0"); lf[96]=C_h_intern(&lf[96],1,"c"); lf[98]=C_h_intern(&lf[98],1,"f"); lf[99]=C_h_intern(&lf[99],7,"display"); lf[100]=C_decode_literal(C_heaptop,"\376B\000\000\016no such frame\012"); lf[101]=C_h_intern(&lf[101],26,"\003sysrepl-recent-call-chain"); lf[102]=C_h_intern(&lf[102],1,"g"); lf[103]=C_decode_literal(C_heaptop,"\376B\000\000\027no environment in frame"); lf[104]=C_h_intern(&lf[104],9,"frameinfo"); lf[105]=C_decode_literal(C_heaptop,"\376B\000\000\012; getting "); lf[106]=C_h_intern(&lf[106],8,"for-each"); lf[107]=C_decode_literal(C_heaptop,"\376B\000\000\022no such variable: "); lf[108]=C_h_intern(&lf[108],7,"call/cc"); lf[109]=C_decode_literal(C_heaptop,"\376B\000\000#string or symbol required for `,g\047\012"); lf[110]=C_h_intern(&lf[110],1,"s"); lf[111]=C_h_intern(&lf[111],1,"\077"); lf[112]=C_decode_literal(C_heaptop,"\376B\000\000\002 ,"); lf[113]=C_decode_literal(C_heaptop,"\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[114]=C_decode_literal(C_heaptop,"\376B\000\0005undefined toplevel command ~s - enter `,\077\047 for help~%"); lf[115]=C_h_intern(&lf[115],7,"unquote"); lf[116]=C_h_intern(&lf[116],4,"chop"); lf[117]=C_h_intern(&lf[117],4,"sort"); lf[118]=C_h_intern(&lf[118],19,"with-output-to-port"); lf[119]=C_h_intern(&lf[119],4,"argv"); lf[120]=C_h_intern(&lf[120],8,"truncate"); lf[121]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[122]=C_h_intern(&lf[122],11,"make-string"); lf[123]=C_decode_literal(C_heaptop,"\376B\000\000\004 ~a"); lf[124]=C_decode_literal(C_heaptop,"\376B\000\000\025symbol gc is enabled\012"); lf[125]=C_decode_literal(C_heaptop,"\376B\000\000\027interrupts are enabled\012"); lf[126]=C_decode_literal(C_heaptop,"\376B\000\000\010(64-bit)"); lf[127]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[128]=C_decode_literal(C_heaptop,"\376B\000\000\010 (fixed)"); lf[129]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[130]=C_decode_literal(C_heaptop,"\376B\000\000\010downward"); lf[131]=C_decode_literal(C_heaptop,"\376B\000\000\006upward"); lf[132]=C_decode_literal(C_heaptop,"\376B\000\002\262~%~%~\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 path: \011~A~%~\012 Include path: \011~A~%~\012 " " Keyword style: \011~A~%~\012 Symbol-table load:\011~" "S~% ~\012 Avg bucket length:\011~S~% ~\012 Tota" "l symbol count:\011~S~%~\012 Memory:\011heap size is ~S bytes~A with ~S" " bytes currently in use~%~ \012 nursery size is ~S bytes, stac" "k grows ~A~%~\012 Command line: \011~S~%"); lf[133]=C_h_intern(&lf[133],21,"\003sysinclude-pathnames"); lf[134]=C_h_intern(&lf[134],14,"symbol->string"); lf[135]=C_h_intern(&lf[135],13,"keyword-style"); lf[136]=C_h_intern(&lf[136],15,"repository-path"); lf[137]=C_h_intern(&lf[137],14,"build-platform"); lf[138]=C_h_intern(&lf[138],16,"software-version"); lf[139]=C_h_intern(&lf[139],13,"software-type"); lf[140]=C_h_intern(&lf[140],12,"machine-type"); lf[141]=C_h_intern(&lf[141],15,"keyword->string"); lf[142]=C_h_intern(&lf[142],8,"string<\077"); lf[143]=C_decode_literal(C_heaptop,"\376B\000\000\015Features:~%~%"); lf[144]=C_h_intern(&lf[144],17,"memory-statistics"); lf[145]=C_h_intern(&lf[145],21,"\003syssymbol-table-info"); lf[146]=C_h_intern(&lf[146],2,"gc"); lf[148]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010u8vector\376\003\000\000\002\376B\000\000\030vector of unsigned bytes\376\003\000\000\002\376\001\000\000\017u8vector-leng" "th\376\003\000\000\002\376\001\000\000\014u8vector-ref\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010s8vector\376\003\000\000\002\376B\000\000\026vector of signed byt" "es\376\003\000\000\002\376\001\000\000\017s8vector-length\376\003\000\000\002\376\001\000\000\014s8vector-ref\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011u16vector\376\003\000\000" "\002\376B\000\000\037vector of unsigned 16-bit words\376\003\000\000\002\376\001\000\000\020u16vector-length\376\003\000\000\002\376\001\000\000\015u16vect" "or-ref\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011s16vector\376\003\000\000\002\376B\000\000\035vector of signed 16-bit words\376\003\000\000\002\376\001\000" "\000\020s16vector-length\376\003\000\000\002\376\001\000\000\015s16vector-ref\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011u32vector\376\003\000\000\002\376B\000\000\037ve" "ctor of unsigned 32-bit words\376\003\000\000\002\376\001\000\000\020u32vector-length\376\003\000\000\002\376\001\000\000\015u32vector-ref\376\377" "\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011s32vector\376\003\000\000\002\376B\000\000\035vector of signed 32-bit words\376\003\000\000\002\376\001\000\000\020s32vec" "tor-length\376\003\000\000\002\376\001\000\000\015s32vector-ref\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011f32vector\376\003\000\000\002\376B\000\000\027vector of " "32-bit floats\376\003\000\000\002\376\001\000\000\020f32vector-length\376\003\000\000\002\376\001\000\000\015f32vector-ref\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011" "f64vector\376\003\000\000\002\376B\000\000\027vector of 64-bit floats\376\003\000\000\002\376\001\000\000\020f64vector-length\376\003\000\000\002\376\001\000\000\015f6" "4vector-ref\376\377\016\376\377\016"); lf[150]=C_h_intern(&lf[150],6,"length"); lf[151]=C_h_intern(&lf[151],8,"list-ref"); lf[152]=C_h_intern(&lf[152],10,"string-ref"); lf[153]=C_h_intern(&lf[153],7,"fprintf"); lf[154]=C_decode_literal(C_heaptop,"\376B\000\000 ~% (~A elements not displayed)~%"); lf[155]=C_decode_literal(C_heaptop,"\376B\000\000.\011(followed by ~A identical instance~a)~% ...~%"); lf[156]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[157]=C_decode_literal(C_heaptop,"\376B\000\000\001s"); lf[158]=C_decode_literal(C_heaptop,"\376B\000\000\007 ~S: ~S"); lf[159]=C_decode_literal(C_heaptop,"\376B\000\000\021~A of length ~S~%"); lf[160]=C_decode_literal(C_heaptop,"\376B\000\000$character ~S, code: ~S, #x~X, #o~O~%"); lf[161]=C_decode_literal(C_heaptop,"\376B\000\000\016boolean true~%"); lf[162]=C_decode_literal(C_heaptop,"\376B\000\000\017boolean false~%"); lf[163]=C_decode_literal(C_heaptop,"\376B\000\000\014empty list~%"); lf[164]=C_decode_literal(C_heaptop,"\376B\000\000\024end-of-file object~%"); lf[165]=C_decode_literal(C_heaptop,"\376B\000\000\024unspecified object~%"); lf[166]=C_decode_literal(C_heaptop,"\376B\000\000\016, character ~S"); lf[167]=C_decode_literal(C_heaptop,"\376B\000\000(exact integer ~S~% #x~X~% #o~O~% #b~B"); lf[168]=C_h_intern(&lf[168],28,"\003sysarbitrary-unbound-symbol"); lf[169]=C_decode_literal(C_heaptop,"\376B\000\000\017unbound value~%"); lf[170]=C_decode_literal(C_heaptop,"\376B\000\000\023inexact number ~S~%"); lf[171]=C_decode_literal(C_heaptop,"\376B\000\000\013number ~S~%"); lf[172]=C_decode_literal(C_heaptop,"\376B\000\000\006string"); lf[173]=C_h_intern(&lf[173],8,"\003syssize"); lf[174]=C_decode_literal(C_heaptop,"\376B\000\000\006vector"); lf[175]=C_h_intern(&lf[175],8,"\003sysslot"); lf[176]=C_decode_literal(C_heaptop,"\376B\000\000\035keyword symbol with name ~s~%"); lf[177]=C_h_intern(&lf[177],18,"\003syssymbol->string"); lf[178]=C_h_intern(&lf[178],5,"write"); lf[179]=C_decode_literal(C_heaptop,"\376B\000\000\005 ~s\011"); lf[180]=C_decode_literal(C_heaptop,"\376B\000\000\020 \012properties:\012\012"); lf[181]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[182]=C_decode_literal(C_heaptop,"\376B\000\000\013uninterned "); lf[183]=C_decode_literal(C_heaptop,"\376B\000\000\012qualified "); lf[184]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[185]=C_decode_literal(C_heaptop,"\376B\000\000\031~a~asymbol with name ~S~%"); lf[186]=C_h_intern(&lf[186],28,"\003syssymbol->qualified-string"); lf[187]=C_h_intern(&lf[187],20,"\003sysinterned-symbol\077"); lf[188]=C_h_intern(&lf[188],21,"\003sysqualified-symbol\077"); lf[189]=C_decode_literal(C_heaptop,"\376B\000\000\010unbound "); lf[190]=C_h_intern(&lf[190],32,"\003syssymbol-has-toplevel-binding\077"); lf[191]=C_decode_literal(C_heaptop,"\376B\000\000\005eol~%"); lf[192]=C_decode_literal(C_heaptop,"\376B\000\000\012(circle)~%"); lf[193]=C_decode_literal(C_heaptop,"\376B\000\000\006~S -> "); lf[194]=C_decode_literal(C_heaptop,"\376B\000\000\024circular structure: "); lf[195]=C_decode_literal(C_heaptop,"\376B\000\000\004list"); lf[196]=C_decode_literal(C_heaptop,"\376B\000\000\036pair with car ~S~%and cdr ~S~%"); lf[197]=C_h_intern(&lf[197],7,"sprintf"); lf[198]=C_decode_literal(C_heaptop,"\376B\000\000 procedure with code pointer 0x~X"); lf[199]=C_h_intern(&lf[199],25,"\003syspeek-unsigned-integer"); lf[200]=C_decode_literal(C_heaptop,"\376B\000\000\005input"); lf[201]=C_decode_literal(C_heaptop,"\376B\000\000\006output"); lf[202]=C_decode_literal(C_heaptop,"\376B\000\0005~A port of type ~A with name ~S and file pointer ~X~%"); lf[203]=C_decode_literal(C_heaptop,"\376B\000\000/locative~% pointer ~X~% index ~A~% type ~A~%"); lf[204]=C_decode_literal(C_heaptop,"\376B\000\000\004slot"); lf[205]=C_decode_literal(C_heaptop,"\376B\000\000\004char"); lf[206]=C_decode_literal(C_heaptop,"\376B\000\000\010u8vector"); lf[207]=C_decode_literal(C_heaptop,"\376B\000\000\010s8vector"); lf[208]=C_decode_literal(C_heaptop,"\376B\000\000\011u16vector"); lf[209]=C_decode_literal(C_heaptop,"\376B\000\000\011s16vector"); lf[210]=C_decode_literal(C_heaptop,"\376B\000\000\011u32vector"); lf[211]=C_decode_literal(C_heaptop,"\376B\000\000\011s32vector"); lf[212]=C_decode_literal(C_heaptop,"\376B\000\000\011f32vector"); lf[213]=C_decode_literal(C_heaptop,"\376B\000\000\011f64vector"); lf[214]=C_decode_literal(C_heaptop,"\376B\000\000\024machine pointer ~X~%"); lf[216]=C_h_intern(&lf[216],8,"\003sysbyte"); lf[217]=C_decode_literal(C_heaptop,"\376B\000\000\022blob of size ~S:~%"); lf[218]=C_decode_literal(C_heaptop,"\376B\000\000\030lambda information: ~s~%"); lf[219]=C_h_intern(&lf[219],23,"\003syslambda-info->string"); lf[220]=C_h_intern(&lf[220],10,"hash-table"); lf[221]=C_decode_literal(C_heaptop,"\376B\000\000\013 ~S\011-> ~S~%"); lf[222]=C_decode_literal(C_heaptop,"\376B\000\000\025 hash function: ~a~%"); lf[223]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[224]=C_decode_literal(C_heaptop,"\376B\000\000\001s"); lf[225]=C_decode_literal(C_heaptop,"\376B\000\000:hash-table with ~S element~a~% comparison procedure: ~A~%"); lf[226]=C_h_intern(&lf[226],9,"condition"); lf[227]=C_decode_literal(C_heaptop,"\376B\000\000\007\011~s: ~s"); lf[228]=C_decode_literal(C_heaptop,"\376B\000\000\005 ~s~%"); lf[229]=C_decode_literal(C_heaptop,"\376B\000\000\017condition: ~s~%"); lf[230]=C_h_intern(&lf[230],3,"map"); lf[231]=C_h_intern(&lf[231],6,"append"); lf[232]=C_decode_literal(C_heaptop,"\376B\000\000\031structure of type `~S\047:~%"); lf[233]=C_h_intern(&lf[233],18,"\003syshash-table-ref"); lf[234]=C_decode_literal(C_heaptop,"\376B\000\000\020unknown object~%"); lf[235]=C_h_intern(&lf[235],15,"\003sysbytevector\077"); lf[236]=C_h_intern(&lf[236],13,"\003syslocative\077"); lf[237]=C_h_intern(&lf[237],5,"port\077"); lf[238]=C_h_intern(&lf[238],8,"keyword\077"); lf[239]=C_decode_literal(C_heaptop,"\376B\000\000\034statically allocated (0x~X) "); lf[240]=C_h_intern(&lf[240],17,"\003sysblock-address"); lf[241]=C_h_intern(&lf[241],14,"set-describer!"); lf[242]=C_h_intern(&lf[242],19,"\003syshash-table-set!"); lf[243]=C_h_intern(&lf[243],3,"min"); lf[244]=C_h_intern(&lf[244],4,"dump"); lf[245]=C_decode_literal(C_heaptop,"\376B\000\000\034cannot dump immediate object"); lf[246]=C_h_intern(&lf[246],13,"\003syspeek-byte"); lf[247]=C_decode_literal(C_heaptop,"\376B\000\000\022cannot dump object"); lf[248]=C_h_intern(&lf[248],14,"number->string"); lf[249]=C_h_intern(&lf[249],19,"\003syswrite-char/port"); lf[250]=C_decode_literal(C_heaptop,"\376B\000\000\003 "); lf[251]=C_decode_literal(C_heaptop,"\376B\000\000\004:\011 "); lf[252]=C_decode_literal(C_heaptop,"\376B\000\000\002 "); lf[253]=C_decode_literal(C_heaptop,"\376B\000\000\006 ---\012"); lf[254]=C_decode_literal(C_heaptop,"\376B\000\000\002] "); lf[255]=C_decode_literal(C_heaptop,"\376B\000\000\003\011 "); lf[256]=C_decode_literal(C_heaptop,"\376B\000\000\002[]"); lf[257]=C_decode_literal(C_heaptop,"\376B\000\000\002 "); lf[258]=C_h_intern(&lf[258],23,"\003sysuser-interrupt-hook"); lf[259]=C_h_intern(&lf[259],17,"\003syssignal-vector"); lf[262]=C_decode_literal(C_heaptop,"\376B\000\000\002-s"); lf[263]=C_decode_literal(C_heaptop,"\376B\000\000\003-ss"); lf[264]=C_decode_literal(C_heaptop,"\376B\000\000\007-script"); lf[265]=C_decode_literal(C_heaptop,"\376B\000\000\003-sx"); lf[266]=C_decode_literal(C_heaptop,"\376B\000\000\002--"); lf[267]=C_decode_literal(C_heaptop,"\376B\000\000\016invalid option"); lf[268]=C_h_intern(&lf[268],16,"\003sysstring->list"); lf[269]=C_decode_literal(C_heaptop,"\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[270]=C_h_intern(&lf[270],25,"\003sysimplicit-exit-handler"); lf[271]=C_decode_literal(C_heaptop,"\376B\000\000\047missing argument to command-line option"); lf[272]=C_h_intern(&lf[272],8,"\003syslist"); lf[273]=C_h_intern(&lf[273],17,"open-input-string"); lf[274]=C_h_intern(&lf[274],17,"register-feature!"); lf[275]=C_h_intern(&lf[275],19,"unregister-feature!"); lf[276]=C_h_intern(&lf[276],4,"repl"); lf[277]=C_decode_literal(C_heaptop,"\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[278]=C_decode_literal(C_heaptop,"\376B\000\000\002-D"); lf[279]=C_decode_literal(C_heaptop,"\376B\000\000\010-feature"); lf[280]=C_decode_literal(C_heaptop,"\376B\000\000\002-I"); lf[281]=C_decode_literal(C_heaptop,"\376B\000\000\015-include-path"); lf[282]=C_decode_literal(C_heaptop,"\376B\000\000\002-K"); lf[283]=C_decode_literal(C_heaptop,"\376B\000\000\016-keyword-style"); lf[284]=C_decode_literal(C_heaptop,"\376B\000\000\013-no-feature"); lf[285]=C_decode_literal(C_heaptop,"\376B\000\000\002-R"); lf[286]=C_decode_literal(C_heaptop,"\376B\000\000\022-require-extension"); lf[287]=C_h_intern(&lf[287],22,"\004corerequire-extension"); lf[288]=C_h_intern(&lf[288],14,"string->symbol"); lf[289]=C_decode_literal(C_heaptop,"\376B\000\000\002-e"); lf[290]=C_decode_literal(C_heaptop,"\376B\000\000\005-eval"); lf[291]=C_decode_literal(C_heaptop,"\376B\000\000\002-p"); lf[292]=C_decode_literal(C_heaptop,"\376B\000\000\006-print"); lf[293]=C_decode_literal(C_heaptop,"\376B\000\000\002-P"); lf[294]=C_decode_literal(C_heaptop,"\376B\000\000\015-pretty-print"); lf[295]=C_decode_literal(C_heaptop,"\376B\000\000\003-ss"); lf[296]=C_h_intern(&lf[296],4,"main"); lf[297]=C_h_intern(&lf[297],22,"command-line-arguments"); lf[298]=C_decode_literal(C_heaptop,"\376B\000\000\003-sx"); lf[299]=C_h_intern(&lf[299],18,"\003sysstandard-error"); lf[300]=C_decode_literal(C_heaptop,"\376B\000\000\002; "); lf[301]=C_decode_literal(C_heaptop,"\376B\000\000\003\012; "); lf[302]=C_h_intern(&lf[302],12,"flush-output"); lf[303]=C_h_intern(&lf[303],21,"with-output-to-string"); lf[304]=C_h_intern(&lf[304],8,"\003sysload"); lf[305]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[306]=C_decode_literal(C_heaptop,"\376B\000\000\001/"); lf[307]=C_decode_literal(C_heaptop,"\376B\000\000\004HOME"); lf[308]=C_decode_literal(C_heaptop,"\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[309]=C_h_intern(&lf[309],13,"symbol-escape"); lf[310]=C_h_intern(&lf[310],20,"parentheses-synonyms"); lf[311]=C_h_intern(&lf[311],5,"\000none"); lf[312]=C_h_intern(&lf[312],14,"case-sensitive"); lf[313]=C_decode_literal(C_heaptop,"\376B\000\000/Disabled the CHICKEN extensions to R5RS syntax\012"); lf[314]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\014-r5rs-syntax\376\377\016"); lf[315]=C_decode_literal(C_heaptop,"\376B\000\000%Disabled support for escaped symbols\012"); lf[316]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\021-no-symbol-escape\376\377\016"); lf[317]=C_decode_literal(C_heaptop,"\376B\000\000\052Disabled support for parentheses synonyms\012"); lf[318]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\030-no-parentheses-synonyms\376\377\016"); lf[319]=C_decode_literal(C_heaptop,"\376B\000\000\006prefix"); lf[320]=C_h_intern(&lf[320],7,"\000prefix"); lf[321]=C_decode_literal(C_heaptop,"\376B\000\000\004none"); lf[322]=C_decode_literal(C_heaptop,"\376B\000\000\006suffix"); lf[323]=C_h_intern(&lf[323],7,"\000suffix"); lf[324]=C_decode_literal(C_heaptop,"\376B\000\000+missing argument to `-keyword-style\047 option"); lf[325]=C_h_intern(&lf[325],10,"\003sysnodups"); lf[326]=C_h_intern(&lf[326],8,"string=\077"); lf[327]=C_decode_literal(C_heaptop,"\376B\000\000\002-I"); lf[328]=C_decode_literal(C_heaptop,"\376B\000\000\015-include-path"); lf[329]=C_decode_literal(C_heaptop,"\376B\000\000\013-no-feature"); lf[330]=C_decode_literal(C_heaptop,"\376B\000\000\002-D"); lf[331]=C_decode_literal(C_heaptop,"\376B\000\000\010-feature"); lf[332]=C_h_intern(&lf[332],16,"case-insensitive"); lf[333]=C_decode_literal(C_heaptop,"\376B\000\000-Identifiers and symbols are case insensitive\012"); lf[334]=C_decode_literal(C_heaptop,"\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[335]=C_h_intern(&lf[335],12,"load-verbose"); lf[336]=C_h_intern(&lf[336],20,"\003syswarnings-enabled"); lf[337]=C_decode_literal(C_heaptop,"\376B\000\000\026Warnings are disabled\012"); lf[338]=C_decode_literal(C_heaptop,"\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[339]=C_decode_literal(C_heaptop,"\376B\000\000\010-release"); lf[340]=C_decode_literal(C_heaptop,"\376B\000\000\013-setup-mode"); lf[341]=C_h_intern(&lf[341],14,"\003syssetup-mode"); lf[342]=C_decode_literal(C_heaptop,"\376B\000\000\010-version"); lf[343]=C_decode_literal(C_heaptop,"\376B\000\004V -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 interp" "reter for shell scripts\012 -ss PATHNAME shell script with `mai" "n\047 procedure\012 -sx PATHNAME same as `-s\047, but print each expr" "ession\012 as it is evaluated\012 -setup-mode" " prefer the current directory when locating extensions\012 -R -re" "quire-extension NAME require extension and import before\012 " " executing code\012 -I -include-path PATHNAME add PATHNAME to i" "nclude path\012 -- ignore all following options\012"); lf[344]=C_decode_literal(C_heaptop,"\376B\000\000\003 \047\012"); lf[345]=C_decode_literal(C_heaptop,"\376B\000\000D -n -no-init do not load initialization file ` "); lf[346]=C_h_intern(&lf[346],19,"\003sysprint-to-string"); lf[347]=C_decode_literal(C_heaptop,"\376B\000\003\052usage: csi [FILENAME | OPTION ...]\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 --help display this text and " "exit\012 -version display version and exit\012 -release" " print release number and exit\012 -i -case-insensitive " " enable case-insensitive reading\012 -e -eval EXPRESSION evaluate giv" "en expression\012 -p -print EXPRESSION evaluate and print result(s)\012 " " -P -pretty-print EXPRESSION evaluate and print result(s) prettily\012 -D -fe" "ature SYMBOL register feature identifier\012 -no-feature SYMBOL " " disable built-in feature identifier\012 -q -quiet do no" "t print banner\012"); lf[348]=C_decode_literal(C_heaptop,"\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[349]=C_decode_literal(C_heaptop,"\376B\000\000\001;"); lf[350]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[351]=C_decode_literal(C_heaptop,"\376B\000\000\024CHICKEN_INCLUDE_PATH"); lf[352]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\002-q\376\003\000\000\002\376B\000\000\006-quiet\376\377\016"); lf[353]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\002-b\376\003\000\000\002\376B\000\000\006-batch\376\377\016"); lf[354]=C_decode_literal(C_heaptop,"\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[355]=C_h_intern(&lf[355],14,"chicken-script"); lf[356]=C_h_intern(&lf[356],6,"script"); lf[357]=C_h_intern(&lf[357],12,"program-name"); lf[358]=C_decode_literal(C_heaptop,"\376B\000\000\042missing or invalid script argument"); lf[359]=C_decode_literal(C_heaptop,"\376B\000\000\002--"); lf[360]=C_decode_literal(C_heaptop,"\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[361]=C_decode_literal(C_heaptop,"\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[362]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[363]=C_h_intern(&lf[363],17,"get-output-string"); lf[364]=C_h_intern(&lf[364],18,"open-output-string"); lf[365]=C_decode_literal(C_heaptop,"\376B\000\000\025invalid option syntax"); lf[366]=C_h_intern(&lf[366],7,"reverse"); lf[367]=C_h_intern(&lf[367],22,"with-exception-handler"); lf[368]=C_h_intern(&lf[368],30,"call-with-current-continuation"); lf[369]=C_decode_literal(C_heaptop,"\376B\000\000\013CSI_OPTIONS"); lf[370]=C_h_intern(&lf[370],28,"\003sysextend-macro-environment"); lf[371]=C_h_intern(&lf[371],10,"defhandler"); lf[372]=C_decode_literal(C_heaptop,"\376B\000\000\032C_establish_signal_handler"); lf[373]=C_h_intern(&lf[373],11,"\003syssetslot"); lf[374]=C_h_intern(&lf[374],11,"\004coreinline"); lf[375]=C_h_intern(&lf[375],5,"begin"); lf[376]=C_h_intern(&lf[376],25,"\003syssyntax-rules-mismatch"); lf[377]=C_h_intern(&lf[377],18,"\003syser-transformer"); lf[378]=C_h_intern(&lf[378],23,"\003syscurrent-environment"); lf[379]=C_h_intern(&lf[379],11,"make-vector"); lf[380]=C_h_intern(&lf[380],17,"\003syspeek-c-string"); lf[381]=C_decode_literal(C_heaptop,"\376B\000\000\016CHICKEN_PREFIX"); lf[382]=C_decode_literal(C_heaptop,"\376B\000\000$; switching current module to `~a\047~%"); lf[383]=C_h_intern(&lf[383],17,"\003sysswitch-module"); lf[384]=C_decode_literal(C_heaptop,"\376B\000\000\027undefined module `~a\047~%"); lf[385]=C_h_intern(&lf[385],15,"\003sysfind-module"); lf[386]=C_h_intern(&lf[386],23,"\003sysresolve-module-name"); lf[387]=C_decode_literal(C_heaptop,"\376B\000\000\032invalid module name `~a\047~%"); lf[388]=C_decode_literal(C_heaptop,"\376B\000\000(; resetting current module to toplevel~%"); lf[389]=C_h_intern(&lf[389],18,"\003sysstring->symbol"); lf[390]=C_h_intern(&lf[390],1,"m"); lf[391]=C_decode_literal(C_heaptop,"\376B\000\0005,m MODULE switch to module with name `MODULE\047"); lf[392]=C_decode_literal(C_heaptop,"\376B\000\000\010#;~A~A> "); lf[393]=C_decode_literal(C_heaptop,"\376B\000\000\003~a:"); lf[394]=C_h_intern(&lf[394],15,"\003sysmodule-name"); lf[395]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[396]=C_h_intern(&lf[396],18,"\003syscurrent-module"); lf[397]=C_h_intern(&lf[397],11,"repl-prompt"); lf[398]=C_h_intern(&lf[398],15,"\003sysmake-string"); lf[399]=C_decode_literal(C_heaptop,"\376B\000\000\013emacsclient"); lf[400]=C_decode_literal(C_heaptop,"\376B\000\000\002vi"); lf[401]=C_decode_literal(C_heaptop,"\376B\000\000\005EMACS"); lf[402]=C_decode_literal(C_heaptop,"\376B\000\000\006VISUAL"); lf[403]=C_decode_literal(C_heaptop,"\376B\000\000\006EDITOR"); lf[404]=C_h_intern(&lf[404],14,"make-parameter"); C_register_lf2(lf,405,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1878,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k2511 in k2508 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2513,2,av);} /* csi.scm:325: describe */ t2=C_retrieve2(lf[63],"describe"); f_3488(t2,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* k2508 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2510,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2513,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:324: eval */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4124 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_4126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4126,2,av);} /* csi.scm:683: fprintf */ t2=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[214]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* loop in member* in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_5431(C_word 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_5431,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_5443,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_5443(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);}}} /* k3285 in k3281 in k3277 in k3273 in k3269 in k3265 in k3257 in k3229 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in ... */ 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 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_3287,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_3291,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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],tmp=(C_word)a,a+=15,tmp); t4=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); /* csi.scm:522: shorten */ f_3161(t3,t4);} /* doloop1222 in k5788 in k5781 in evalstring in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in ... */ static void C_fcall f_5792(C_word 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_5792,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_5802,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_5813,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_5815,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[272]+1); C_call_with_values(4,av2);}}} /* k5788 in k5781 in evalstring in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_5790,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_5792,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_5792(t5,((C_word*)t0)[4],t1);} /* k3281 in k3277 in k3273 in k3269 in k3265 in k3257 in k3229 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_3283,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_3287,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((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); t4=C_i_vector_ref(((C_word*)t0)[2],C_fix(0)); /* csi.scm:521: shorten */ f_3161(t3,t4);} /* f_6109 in doloop1353 in k5898 in k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 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=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_6109,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6113,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6163,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csi.scm:1112: with-output-to-string */ t5=C_fast_retrieve(lf[303]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3113 in doloop361 in k3094 in a3087 in a3081 in a3063 in k2994 in k6681 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in ... */ 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(3,c,3)))){ C_save_and_reclaim((void *)f_3115,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_3098(t3,((C_word*)t0)[5],t1,t2);} /* loop in canonicalize-args in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_5486(C_word t0,C_word t1,C_word t2){ C_word 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_5486,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[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_truep(C_i_equalp(t4,lf[266]))?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_5508,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[269]); t9=t5; f_5508(t9,C_i_not(t8));} else{ t8=t5; f_5508(t8,C_SCHEME_FALSE);}} else{ t7=t5; f_5508(t7,C_SCHEME_FALSE);}}}} /* k3273 in k3269 in k3265 in k3257 in k3229 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in ... */ static void C_ccall f_3275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3275,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_3279,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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:518: repository-path */ t4=C_fast_retrieve(lf[136]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3277 in k3273 in k3269 in k3265 in k3257 in k3229 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in ... */ 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; 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_3279,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_3283,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((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); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3341,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csi.scm:520: keyword-style */ t5=C_fast_retrieve(lf[135]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* canonicalize-args in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_5480(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_5480,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_5486,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_5486(t6,t1,t2);} /* k3269 in k3265 in k3257 in k3229 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in ... */ static void C_ccall f_3271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3271,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3275,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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); /* csi.scm:516: build-platform */ t4=C_fast_retrieve(lf[137]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6117 in k6111 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6119,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6122,a[2]=((C_word*)t0)[2],a[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:1115: display */ t3=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[301]; av2[3]=*((C_word*)lf[299]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5415 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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,1)))){ C_save_and_reclaim((void *)f_5417,2,av);} t2=((C_word*)t0)[2]; f_5190(t2,C_SCHEME_FALSE);} /* k4403 in g642 in k4364 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4405,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,C_fix(0)); /* csi.scm:725: append */ t3=*((C_word*)lf[231]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop1 in k3499 in k3621 in descseq in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_3506(C_word 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_3506,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:581: fprintf */ t5=*((C_word*)lf[153]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=lf[154]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3529,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:583: 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);}}}} /* k3499 in k3621 in descseq in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_3501,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_3506,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_3506(t5,((C_word*)t0)[7],C_fix(0));} /* k6111 */ 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 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_6113,2,av);} a=C_alloc(6); t2=t1; t3=C_i_string_length(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6119,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:1114: flush-output */ t6=*((C_word*)lf[302]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=*((C_word*)lf[91]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* map-loop647 in g642 in k4364 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in ... */ static void C_fcall f_4411(C_word t0,C_word t1,C_word 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_4411,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_4436,a[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:725: g653 */ 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);}}} /* find in loop in member* in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_5443(C_word t0,C_word t1,C_word t2){ C_word 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_5443,3,t0,t1,t2);} if(C_truep(C_i_nullp(t2))){ t3=C_i_cdr(((C_word*)t0)[2]); /* csi.scm:929: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_5431(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:931: find */ t8=t1; t9=t6; t1=t8; t2=t9; goto loop;}}} /* k4447 in k4364 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4449,2,av);} /* csi.scm:728: descseq */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_FALSE; av2[3]=*((C_word*)lf[173]+1); av2[4]=*((C_word*)lf[175]+1); av2[5]=C_fix(1); f_3494(6,av2);}} /* doloop739 in doloop731 in k4689 in k4686 in doloop721 in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_4797(C_word t0,C_word t1,C_word 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_4797,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_4807,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* csi.scm:781: display */ t5=*((C_word*)lf[99]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=lf[250]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k4434 in map-loop647 in g642 in k4364 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 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 t5; C_word t6; 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=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4411(t6,((C_word*)t0)[5],t5);} /* k1946 in k1943 in print-banner in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1948,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1955,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:148: chicken-version */ t3=C_fast_retrieve(lf[13]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* print-banner in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_1941(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_1941,1,t1);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1945,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* csi.scm:129: newline */ t3=*((C_word*)lf[15]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1943 in print-banner in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1945,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1948,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:147: print */ t3=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[14]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* doloop731 in k4689 in k4686 in doloop721 in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_4763(C_word t0,C_word t1,C_word 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_4763,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_4797,a[2]=t10,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_4797(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_4817,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); /* write-char/port */ t7=C_fast_retrieve(lf[249]);{ 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);}}} /* k6180 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in ... */ static void C_ccall f_6182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6182,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5897(2,av2);}} else{ t3=((C_word*)t0)[4]; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5745,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csi.scm:1017: get-environment-variable */ t5=C_fast_retrieve(lf[36]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[307]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k2852 in k2849 in k2846 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2854,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6195 in k6192 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 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,2)))){ C_save_and_reclaim((void *)f_6197,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6200,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:1075: case-sensitive */ t3=C_fast_retrieve(lf[312]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6192 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in ... */ static void C_ccall f_6194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6194,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6197,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6197(2,av2);}} else{ /* csi.scm:1074: display */ t3=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[313]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_5894(2,av2);}}} /* k2824 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; C_word t3; 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_2826,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_5133,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); if(C_truep(t5)){ t7=t6; f_5133(t7,t5);} else{ t7=C_i_not(C_fast_retrieve(lf[101])); if(C_truep(t7)){ t8=t6; f_5133(t8,t7);} else{ t8=C_fixnum_lessp(t3,C_fix(0)); if(C_truep(t8)){ t9=t6; f_5133(t9,t8);} else{ t9=C_i_length(C_fast_retrieve(lf[101])); t10=t6; f_5133(t10,C_fixnum_greater_or_equal_p(t3,t9));}}}} /* k3699 in k3693 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3701(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3701,2,av);} /* csi.scm:612: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[95]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[95]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[91]+1); tp(4,av2);}} /* k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 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_2839,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2]; t3=C_fast_retrieve(lf[101]); t4=(C_truep(C_fast_retrieve(lf[101]))?C_fast_retrieve(lf[101]):C_SCHEME_END_OF_LIST); t5=t4; t6=C_i_length(t5); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5190,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_symbolp(t1))){ t8=t7; f_5190(t8,C_slot(t1,C_fix(1)));} else{ if(C_truep(C_i_stringp(t1))){ t8=t7; f_5190(t8,t1);} else{ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5417,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* csi.scm:870: display */ t9=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=lf[109]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}} /* k2887 in k2865 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2889,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5998 in doloop1353 in k5898 in k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in ... */ static void C_ccall f_6000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6000,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_u_i_cdr(t2)); t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t5=((C_word*)((C_word*)t0)[3])[1]; f_5905(t5,((C_word*)t0)[4],t4);} /* k3549 in k3546 in loop2 in k3527 in loop1 in k3499 in k3621 in descseq in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3551,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],((C_word*)t0)[3]); /* csi.scm:595: loop1 */ t3=((C_word*)((C_word*)t0)[4])[1]; f_3506(t3,((C_word*)t0)[5],t2);} /* for-each-loop292 in k2865 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_2894,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_2904,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:408: print */ t6=*((C_word*)lf[10]+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:409: print */ t7=*((C_word*)lf[10]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t3; av2[2]=lf[112]; 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);}}} /* k6015 in doloop1353 in k5898 in k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in ... */ static void C_ccall f_6017(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6017,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_u_i_cdr(t2)); t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t5=((C_word*)((C_word*)t0)[3])[1]; f_5905(t5,((C_word*)t0)[4],t4);} /* k2865 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 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_2867,2,av);} a=C_alloc(8); t2=C_retrieve2(lf[48],"command-table"); t3=C_i_check_list_2(C_retrieve2(lf[48],"command-table"),lf[106]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2889,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_2894,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_2894(t8,t4,C_retrieve2(lf[48],"command-table"));} /* k3914 in loop-print in k3874 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; 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_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:653: loop-print */ t7=((C_word*)((C_word*)t0)[4])[1]; f_3885(t7,((C_word*)t0)[5],t3,t6);} /* doloop901 in a5222 in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_5245(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_5245,3,t0,t1,t2);} a=C_alloc(20); if(C_truep(C_i_nullp(t2))){ /* csi.scm:885: fail */ t3=((C_word*)t0)[2]; f_5226(t3,t1,lf[103]);} else{ t3=C_i_car(t2); t4=C_eqp(C_retrieve2(lf[7],"selected-frame"),t3); t5=C_slot(t3,C_fix(2)); t6=C_i_structurep(t5,lf[104]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5270,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_5279,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[106]); t13=C_i_check_list_2(t11,lf[106]); t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5355,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_5364,a[2]=t16,a[3]=t9,tmp=(C_word)a,a+=4,tmp)); t18=((C_word*)t16)[1]; f_5364(t18,t14,t10,t11);} else{ t9=t2; t10=C_u_i_cdr(t9); t19=t1; t20=t10; t1=t19; t2=t20; goto loop;}}} /* k3978 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3980,2,av);} /* csi.scm:658: descseq */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=*((C_word*)lf[173]+1); av2[4]=*((C_word*)lf[175]+1); av2[5]=C_fix(1); f_3494(6,av2);}} /* k3982 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3984,2,av);} /* csi.scm:659: sprintf */ t2=*((C_word*)lf[197]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[198]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5201 in compare in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5203,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_string_equal_p(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5268 in doloop901 in a5222 in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5270,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)((C_word*)t0)[3])[1]; f_5245(t4,((C_word*)t0)[4],t3);} /* k3546 in loop2 in k3527 in loop1 in k3499 in k3621 in descseq in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 in ... */ static void C_ccall f_3548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3548,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3551,a[2]=((C_word*)t0)[2],a[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:591: fprintf */ t5=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[155]; av2[4]=t3; av2[5]=lf[156]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ /* csi.scm:591: fprintf */ t5=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[155]; av2[4]=t3; av2[5]=lf[157]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}} else{ /* csi.scm:594: newline */ t3=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_4917(C_word c,C_word *av){ C_word tmp; C_word t0=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_4917,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_4920,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:813: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[95]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[95]+1); av2[1]=t2; av2[2]=C_make_character(58); av2[3]=((C_word*)t0)[12]; tp(4,av2);}} /* k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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(14,c,4)))){ C_save_and_reclaim((void *)f_4914,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_4917,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:813: ##sys#print */ t3=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 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_3990,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[200]:lf[201]); 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_4009,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:667: ##sys#peek-unsigned-integer */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[199]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[199]+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_4018,a[2]=((C_word*)t0)[2],a[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:668: ##sys#locative? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[236]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[236]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}}} /* g916 in doloop901 in a5222 in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_5279(C_word t0,C_word 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_5279,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_5285,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_5285(t7,t1,C_fix(0),t2);} /* loop2 in k3527 in loop1 in k3499 in k3621 in descseq in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_3538(C_word 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_3538,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_3548,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_3580,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:586: ##sys#with-print-length-limit */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[93]); C_word av2[4]; av2[0]=*((C_word*)lf[93]+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_3608,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:596: 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);}}} /* k3527 in loop1 in k3499 in k3621 in descseq in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3529,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_3538,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_3538(t8,((C_word*)t0)[9],C_fix(1),t4);} /* k5090 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_5092(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_5092,2,t0,t1);} if(C_truep(t1)){ /* csi.scm:813: ##sys#print */ t2=*((C_word*)lf[92]+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);}} else{ /* csi.scm:813: ##sys#print */ t2=*((C_word*)lf[92]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[257]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k5727 in g1203 in loop in collect-options in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 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(3,c,1)))){ C_save_and_reclaim((void *)f_5729,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* a3579 in loop2 in k3527 in loop1 in k3499 in k3621 in descseq in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 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; 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_3580,2,av);} /* csi.scm:589: fprintf */ t2=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[158]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k6902 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6904,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_1911(t3,t2);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6913,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:72: get-environment-variable */ t3=C_fast_retrieve(lf[36]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[401]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k6898 in k6888 in a6881 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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,3)))){ C_save_and_reclaim((void *)f_6900,2,av);} /* csi.scm:261: sprintf */ t2=*((C_word*)lf[197]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[393]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5073 in k4930 in k4927 in k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 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(4,c,4)))){ C_save_and_reclaim((void *)f_5075,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5078,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:827: ##sys#print */ t3=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5076 in k5073 in k4930 in k4927 in k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5078,2,av);} /* csi.scm:827: ##sys#print */ t2=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[254]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5743 in k6180 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5745,2,av);} a=C_alloc(6); if(C_truep(t1)){ if(C_truep(C_i_string_equal_p(t1,lf[305]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5757,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5770,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csi.scm:1019: chop-separator */ t4=C_retrieve2(lf[23],"chop-separator");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t1; f_2011(3,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k5131 in k2824 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_5133(C_word t0,C_word 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_5133,2,t0,t1);} if(C_truep(t1)){ /* csi.scm:851: display */ t2=*((C_word*)lf[99]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[100]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_i_length(C_fast_retrieve(lf[101])); 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[101]),t4); t6=C_mutate2(&lf[7] /* (set! selected-frame ...) */,t5); /* csi.scm:857: show-frameinfo */ f_4848(((C_word*)t0)[2],C_retrieve2(lf[7],"selected-frame"));}} /* k6911 in k6902 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6913,2,av);} t2=((C_word*)t0)[2]; f_1911(t2,(C_truep(t1)?lf[399]:lf[400]));} /* k5039 in for-each-loop817 in k4939 in k4936 in k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5041,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_5031(t4,((C_word*)t0)[5],t2,t3);} /* k6819 in a6816 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6821(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6821,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_6824,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_stringp(((C_word*)t3)[1]))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6880,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* csi.scm:429: ##sys#string->symbol */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[389]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[389]+1); av2[1]=t5; av2[2]=((C_word*)t3)[1]; tp(3,av2);}} else{ t5=t4; f_6824(t5,C_SCHEME_UNDEFINED);}} /* k5755 in k5743 in k6180 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5757,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5763,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csi.scm:1020: file-exists? */ t4=C_fast_retrieve(lf[26]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6822 in k6819 in a6816 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_6824(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_6824,2,t0,t1);} a=C_alloc(7); t2=((C_word*)((C_word*)t0)[2])[1]; if(C_truep(t2)){ if(C_truep(C_i_symbolp(((C_word*)((C_word*)t0)[2])[1]))){ t3=(*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); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6869,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csi.scm:435: ##sys#resolve-module-name */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[386]); C_word av2[4]; av2[0]=*((C_word*)lf[386]+1); av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; tp(4,av2);}} else{ /* csi.scm:434: printf */ t3=*((C_word*)lf[84]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[387]; av2[3]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6833,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:431: ##sys#switch-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[383]); C_word av2[3]; av2[0]=*((C_word*)lf[383]+1); av2[1]=t3; av2[2]=C_SCHEME_FALSE; tp(3,av2);}}} /* doloop929 in g916 in doloop901 in a5222 in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_5285(C_word t0,C_word 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_5285,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_5295,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_5307,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:897: compare */ t7=((C_word*)t0)[5]; f_5192(t7,t5,t6);}} /* k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_3761,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=(*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); /* csi.scm:621: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[177]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[177]+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_3777,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_3861,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:623: ##sys#symbol-has-toplevel-binding? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[190]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[190]+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_3421,tmp=(C_word)a,a+=2,tmp); t4=( f_3421(t2,t2) ); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3873,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_3873(t6,t4);} else{ t6=((C_word*)t0)[4]; t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3456,tmp=(C_word)a,a+=2,tmp); t8=t5; f_3873(t8,( f_3456(t6) ));}}}} /* k3766 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3768,2,av);} /* csi.scm:620: fprintf */ t2=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[176]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* history-ref in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_2318(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_2318,2,t1,t2);} t3=C_i_inexact_to_exact(t2); t4=C_fixnum_greaterp(t3,C_fix(0)); t5=(C_truep(t4)?C_fixnum_less_or_equal_p(t3,C_retrieve2(lf[18],"history-count")):C_SCHEME_FALSE); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_i_vector_ref(C_retrieve2(lf[38],"history-list"),t3); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* csi.scm:253: ##sys#error */ t6=*((C_word*)lf[42]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t1; av2[2]=lf[43]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k6831 in k6822 in k6819 in a6816 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6833,2,av);} /* csi.scm:432: printf */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[388]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k5293 in doloop929 in g916 in doloop901 in a5222 in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; 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_5295,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_5285(t5,((C_word*)t0)[5],t2,t4);} /* bestlen in body684 in dump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_4502(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_4502,3,t0,t1,t2);} if(C_truep(((C_word*)t0)[2])){ /* csi.scm:744: min */ t3=*((C_word*)lf[243]+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);}}} /* k6846 in k6822 in k6819 in a6816 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6848,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6852,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:430: g323 */ t3=t2; f_6852(t3,((C_word*)t0)[3],t1);} else{ /* csi.scm:440: printf */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[384]; av2[3]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k4992 in k4989 in k4986 in k4983 in doloop831 in k4965 in g818 in k4939 in k4936 in k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 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(6,c,2)))){ C_save_and_reclaim((void *)f_4994,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4997,a[2]=((C_word*)t0)[2],a[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:840: newline */ t3=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4989 in k4986 in k4983 in doloop831 in k4965 in g818 in k4939 in k4936 in k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4991,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4994,a[2]=((C_word*)t0)[2],a[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:839: prin1 */ f_4851(t2,t3);} /* k4995 in k4992 in k4989 in k4986 in k4983 in doloop831 in k4965 in g818 in k4939 in k4936 in k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4997,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_4972(t5,((C_word*)t0)[5],t2,t4);} /* k2285 in doloop120 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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(6,c,4)))){ C_save_and_reclaim((void *)f_2287,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2290,a[2]=((C_word*)t0)[2],a[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:238: ##sys#print */ t3=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop817 in k4939 in k4936 in k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in ... */ static void C_fcall f_5031(C_word t0,C_word t1,C_word 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_5031,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_5041,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:831: g818 */ t9=((C_word*)t0)[3]; f_4957(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);}}} /* g323 in k6846 in k6822 in k6819 in a6816 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_6852(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_6852,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6856,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* csi.scm:437: ##sys#switch-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[383]); C_word av2[3]; av2[0]=*((C_word*)lf[383]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k6854 in g323 in k6846 in k6822 in k6819 in a6816 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6856,2,av);} /* csi.scm:438: printf */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[382]; av2[3]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop1270 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in ... */ static void C_fcall f_6390(C_word t0,C_word t1,C_word 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_6390,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_6400,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:1050: g1271 */ 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);}}} /* k4983 in doloop831 in k4965 in g818 in k4939 in k4936 in k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_4985,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4988,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:835: ##sys#print */ t4=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4986 in k4983 in doloop831 in k4965 in g818 in k4939 in k4936 in k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 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(8,c,4)))){ C_save_and_reclaim((void *)f_4988,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,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]=((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:835: ##sys#print */ t3=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[251]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2297 in k2294 in k2291 in k2288 in k2285 in doloop120 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2299,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2274(t3,((C_word*)t0)[4],t2);} /* doloop831 in k4965 in g818 in k4939 in k4936 in k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in ... */ static void C_fcall f_4972(C_word t0,C_word t1,C_word 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_4972,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[91]+1); t5=*((C_word*)lf[91]+1); t6=C_i_check_port_2(*((C_word*)lf[91]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[84]); t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4985,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:835: ##sys#print */ t8=*((C_word*)lf[92]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t7; av2[2]=lf[252]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[91]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} /* k2294 in k2291 in k2288 in k2285 in doloop120 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_2296,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2299,a[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:247: newline */ t3=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2291 in k2288 in k2285 in doloop120 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_2293,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2296,a[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_2308,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:243: ##sys#with-print-length-limit */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[93]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[93]+1); av2[1]=t2; av2[2]=C_fix(80); av2[3]=t3; tp(4,av2);}} /* k2288 in k2285 in doloop120 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_2290,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2293,a[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:238: ##sys#print */ t3=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[94]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4965 in g818 in k4939 in k4936 in k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_4967,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_4972,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_4972(t5,((C_word*)t0)[4],C_fix(0),((C_word*)t0)[5]);} /* g602 in k4258 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in ... */ static void C_fcall f_4261(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_4261,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4265,a[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:709: fprintf */ t4=*((C_word*)lf[153]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[228]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4258 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 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 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_4260,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4261,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[106]); 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_4329,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_4329(t8,((C_word*)t0)[4],t3);} /* k4263 in g602 in k4258 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 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 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_4265,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_4274,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_4274(t6,((C_word*)t0)[5],t2);} /* k3793 in k3781 in k3778 in k3775 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 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_3795,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_3800,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_3800(t5,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k3778 in k3775 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_3780,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3783,a[2]=((C_word*)t0)[2],a[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_3858,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* csi.scm:627: ##sys#interned-symbol? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[187]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[187]+1); av2[1]=t4; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* doloop120 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_2274(C_word t0,C_word 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_2274,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_greater_or_equalp(t2,C_retrieve2(lf[18],"history-count")))){ 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[91]+1); t4=*((C_word*)lf[91]+1); t5=C_i_check_port_2(*((C_word*)lf[91]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[84]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2287,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* csi.scm:238: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[95]); C_word av2[4]; av2[0]=*((C_word*)lf[95]+1); av2[1]=t6; av2[2]=C_make_character(35); av2[3]=*((C_word*)lf[91]+1); tp(4,av2);}}} /* k4295 in loop in k4263 in g602 in k4258 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4297,2,av);} /* csi.scm:717: newline */ t2=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* g818 in k4939 in k4936 in k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in ... */ static void C_fcall f_4957(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_4957,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_4967,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* csi.scm:834: display */ t5=*((C_word*)lf[99]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=lf[253]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k3781 in k3778 in k3775 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3783,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3795,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* csi.scm:634: display */ t5=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[180]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k3372 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3374,2,av);} /* csi.scm:480: sort */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=*((C_word*)lf[142]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop395 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_3376(C_word t0,C_word t1,C_word 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_3376,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_3401,a[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:480: g401 */ 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);}}} /* k6458 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in ... */ static void C_ccall f_6460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6460,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6463,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)f7572,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:1046: register-feature! */ t4=C_fast_retrieve(lf[274]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[332]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ /* csi.scm:1045: display */ t3=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[333]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_5851(2,av2);}}} /* k6461 in k6458 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 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(3,c,2)))){ C_save_and_reclaim((void *)f_6463,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6466,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:1046: register-feature! */ t3=C_fast_retrieve(lf[274]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[332]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6464 in k6461 in k6458 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in ... */ static void C_ccall f_6466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6466,2,av);} /* csi.scm:1047: case-sensitive */ t2=C_fast_retrieve(lf[312]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2363 in read-prompt-hook in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2365,2,av);} if(C_truep(t1)){ /* csi.scm:273: old */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4939 in k4936 in k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in ... */ 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 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_4941,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4944,a[2]=((C_word*)t0)[2],a[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_4957,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[106]); t8=C_i_check_list_2(t6,lf[106]); 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_5031,a[2]=t10,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_5031(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_4883(t7,((C_word*)t0)[5],t5,t6);}} /* k3775 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3777(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3777,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3780,a[2]=((C_word*)t0)[2],a[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:625: ##sys#qualified-symbol? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[188]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[188]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* k4942 in k4939 in k4936 in k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in ... */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4944,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_4883(t5,((C_word*)t0)[5],t3,t4);} /* k4282 in loop in k4263 in g602 in k4258 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4284,2,av);} t2=C_i_cddr(((C_word*)t0)[2]); /* csi.scm:718: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4274(t3,((C_word*)t0)[4],t2);} /* k4930 in k4927 in k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 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 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_4932,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4935,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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[91]+1); t4=*((C_word*)lf[91]+1); t5=C_i_check_port_2(*((C_word*)lf[91]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[84]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5075,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[11],tmp=(C_word)a,a+=5,tmp); /* csi.scm:827: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[95]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[95]+1); av2[1]=t6; av2[2]=C_make_character(91); av2[3]=*((C_word*)lf[91]+1); tp(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_4935(2,av2);}}} /* k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_4935,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4938,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:828: prin1 */ f_4851(t2,((C_word*)t0)[10]);} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_4938(2,av2);}}} /* k4936 in k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in ... */ static void C_ccall f_4938(C_word c,C_word *av){ C_word tmp; C_word t0=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_4938,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4941,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:829: newline */ t3=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4695 in k4692 in k4689 in k4686 in doloop721 in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_4697,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4700,a[2]=((C_word*)t0)[2],a[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_4712,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_4712(t6,t2,C_fix(0),((C_word*)t0)[2]);} /* k4689 in k4686 in doloop721 in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_4691,2,av);} a=C_alloc(19); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4694,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_4763,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_4763(t6,t2,C_fix(0),((C_word*)t0)[2]);} /* k4692 in k4689 in k4686 in doloop721 in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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(9,c,3)))){ C_save_and_reclaim((void *)f_4694,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4697,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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); /* write-char/port */ t3=C_fast_retrieve(lf[249]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3354 in for-each-loop421 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3356,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3346(t3,((C_word*)t0)[4],t2);} /* k6479 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in ... */ static void C_ccall f_6481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6481,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6484,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[336] /* ##sys#warnings-enabled */,0,C_SCHEME_FALSE); t4=((C_word*)t0)[2]; f_5845(t4,t3);} else{ /* csi.scm:1039: display */ t3=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[337]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} else{ t2=((C_word*)t0)[2]; f_5845(t2,C_SCHEME_UNDEFINED);}} /* k6482 in k6479 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6484,2,av);} t2=C_set_block_item(lf[336] /* ##sys#warnings-enabled */,0,C_SCHEME_FALSE); t3=((C_word*)t0)[2]; f_5845(t3,t2);} /* k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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_2343,2,av);} a=C_alloc(19); t2=C_set_block_item(lf[44] /* ##sys#break-on-error */,0,C_SCHEME_FALSE); t3=C_fast_retrieve(lf[45]); t4=C_mutate2((C_word*)lf[45]+1 /* (set! ##sys#read-prompt-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2358,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=lf[48] /* command-table */ =C_SCHEME_END_OF_LIST;; t6=C_mutate2((C_word*)lf[49]+1 /* (set! toplevel-command ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2371,tmp=(C_word)a,a+=2,tmp)); t7=C_fast_retrieve(lf[50]); t8=C_fast_retrieve(lf[51]); t9=C_fast_retrieve(lf[52]); t10=C_fast_retrieve(lf[33]); t11=C_fast_retrieve(lf[53]); t12=C_fast_retrieve(lf[54]); t13=*((C_word*)lf[55]+1); t14=C_mutate2(&lf[56] /* (set! csi-eval ...) */,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2421,a[2]=t12,a[3]=t11,a[4]=t7,a[5]=t10,a[6]=t9,a[7]=t8,a[8]=t13,tmp=(C_word)a,a+=9,tmp)); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2990,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t16=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6817,tmp=(C_word)a,a+=2,tmp); /* csi.scm:423: toplevel-command */ t17=C_fast_retrieve(lf[49]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t17; av2[1]=t15; av2[2]=lf[390]; av2[3]=t16; av2[4]=lf[391]; f_2371(5,av2);}} /* k4223 in for-each-loop579 in doloop574 in k4164 in k4161 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4225,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4215(t3,((C_word*)t0)[4],t2);} /* k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_4920,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_4923,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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_5092,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_5092(t5,C_i_pairp(t4));} else{ t4=t3; f_5092(t4,C_SCHEME_FALSE);}} /* k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_4923,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_4926,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:813: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[95]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[95]+1); av2[1]=t2; av2[2]=C_make_character(9); av2[3]=((C_word*)t0)[12]; tp(4,av2);}} /* k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_4926,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,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],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:813: ##sys#print */ t4=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4927 in k4924 in k4921 in k4918 in k4915 in k4912 in doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_4929,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,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],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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:813: ##sys#print */ t3=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[255]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* g631 in k4364 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in ... */ static void C_fcall f_4370(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_4370,3,t0,t1,t2);} /* csi.scm:722: g639 */ 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);}} /* k3339 in k3277 in k3273 in k3269 in k3265 in k3257 in k3229 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in ... */ static void C_ccall f_3341(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3341,2,av);} /* csi.scm:520: symbol->string */ t2=*((C_word*)lf[134]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 k2126 in k2114 in lookup-script-file in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_2090(C_word t0,C_word t1,C_word 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_2090,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_2103,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:199: 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);}}} /* for-each-loop421 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 in ... */ static void C_fcall f_3346(C_word t0,C_word t1,C_word 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_3346,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_3356,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:480: g422 */ t5=((C_word*)t0)[3]; f_3180(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);}}} /* k6421 in for-each-loop1253 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in ... */ static void C_ccall f_6423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6423,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6413(t3,((C_word*)t0)[4],t2);} /* k6473 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6475,2,av);} /* csi.scm:1043: print-banner */ f_1941(((C_word*)t0)[2]);} /* ##sys#read-prompt-hook in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2358(C_word c,C_word *av){ C_word tmp; C_word t0=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_2358,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2365,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t3=C_fudge(C_fix(12)); if(C_truep(t3)){ if(C_truep(t3)){ /* csi.scm:273: old */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ /* csi.scm:266: ##sys#tty-port? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[46]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[46]+1); av2[1]=t2; av2[2]=*((C_word*)lf[47]+1); tp(3,av2);}}} /* loop in k4263 in g602 in k4258 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in ... */ static void C_fcall f_4274(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_4274,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_4284,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_4297,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_4302,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csi.scm:713: ##sys#with-print-length-limit */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[93]); C_word av2[4]; av2[0]=*((C_word*)lf[93]+1); av2[1]=t6; av2[2]=C_fix(100); av2[3]=t7; tp(4,av2);}} else{ t6=C_i_cddr(t2); /* csi.scm:718: loop */ t9=t1; t10=t6; t1=t9; t2=t10; goto loop;}}} /* g642 in k4364 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in ... */ static void C_fcall f_4384(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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(20,0,3)))){ C_save_and_reclaim_args((void *)trf_4384,3,t0,t1,t2);} a=C_alloc(20); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4392,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_fast_retrieve(lf[50]); t9=C_i_cdr(t2); t10=C_i_check_list_2(t9,lf[230]); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4405,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_4411,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_4411(t15,t11,t9);} /* k3317 in k3289 in k3285 in k3281 in k3277 in k3273 in k3269 in k3265 in k3257 in k3229 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,20)))){ C_save_and_reclaim((void *)f_3319,2,av);} /* csi.scm:497: printf */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 21) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(21); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[132]; 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_fast_retrieve(lf[133]); 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]=((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]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(21,av2);}} /* k6444 in for-each-loop1236 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6446,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6436(t3,((C_word*)t0)[4],t2);} /* a2307 in k2291 in k2288 in k2285 in doloop120 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2308(C_word c,C_word *av){ 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_2308,2,av);} t2=C_i_vector_ref(C_retrieve2(lf[38],"history-list"),((C_word*)t0)[2]); /* csi.scm:246: ##sys#print */ t3=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=*((C_word*)lf[91]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4337 in for-each-loop601 in k4258 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in ... */ static void C_ccall f_4339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_4339,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4329(t3,((C_word*)t0)[4],t2);} /* for-each-loop1253 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in ... */ static void C_fcall f_6413(C_word t0,C_word t1,C_word 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_6413,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_6423,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:1049: g1254 */ 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);}}} /* k4364 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 in ... */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_4366,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4370,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:721: g631 */ t3=t2; f_4370(t3,((C_word*)t0)[4],t1);} else{ t2=C_i_assq(((C_word*)t0)[5],C_retrieve2(lf[147],"bytevector-data")); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4384,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp); /* csi.scm:721: g642 */ t4=t3; f_4384(t4,((C_word*)t0)[4],t2);} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4449,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:727: fprintf */ t5=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[232]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}} /* k2135 in k2126 in k2114 in lookup-script-file in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 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_2137,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2140,a[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_i_foreign_fixnum_argumentp(C_fix(256)); t6=stub63(t3,t4,t5); /* csi.scm:189: ##sys#peek-nonnull-c-string */ t7=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_2154,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:208: addext */ f_2061(t2,((C_word*)t0)[4]);}} /* k2126 in k2114 in lookup-script-file in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 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_2128,2,av);} a=C_alloc(15); if(C_truep(t1)){ /* csi.scm:204: addext */ f_2061(((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2137,a[2]=((C_word*)t0)[2],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[21],"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_2090,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_2090(t10,t2,C_fix(0));}} /* for-each-loop1236 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6436,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_6446,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:1048: g1237 */ 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);}}} /* lookup-script-file in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_2112(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_2112,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2116,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:202: get-environment-variable */ t4=C_fast_retrieve(lf[36]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[37]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2114 in lookup-script-file in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_2116,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_2128,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:204: dirseparator? */ t6=C_retrieve2(lf[21],"dirseparator\077");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; f_1996(3,av2);}} else{ t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4723 in doloop747 in k4695 in k4692 in k4689 in k4686 in doloop721 in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 in ... */ static void C_ccall f_4725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_4725,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4728,a[2]=((C_word*)t0)[2],a[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)); /* write-char/port */ t6=C_fast_retrieve(lf[249]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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{ /* write-char/port */ t5=C_fast_retrieve(lf[249]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k4726 in k4723 in doloop747 in k4695 in k4692 in k4689 in k4686 in doloop721 in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4728,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_4712(t4,((C_word*)t0)[5],t2,t3);} /* k6398 in for-each-loop1270 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in ... */ static void C_ccall f_6400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6400,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6390(t3,((C_word*)t0)[4],t2);} /* k2101 in loop in k2126 in k2114 in lookup-script-file in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2103,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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:200: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_2090(t3,((C_word*)t0)[2],t2);}} /* k4575 in k4565 in k4522 in body684 in dump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4577,2,av);} /* csi.scm:752: hexdump */ f_4645(((C_word*)t0)[2],((C_word*)t0)[3],t1,*((C_word*)lf[216]+1),((C_word*)t0)[4]);} /* for-each-loop601 in k4258 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in ... */ static void C_fcall f_4329(C_word t0,C_word t1,C_word 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_4329,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_4339,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:707: g602 */ t5=((C_word*)t0)[3]; f_4261(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);}}} /* k4565 in k4522 in body684 in dump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_4567(C_word 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_4567,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_4577,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:752: bestlen */ t6=((C_word*)t0)[5]; f_4502(t6,t4,t5);} else{ /* csi.scm:753: ##sys#error */ t2=*((C_word*)lf[42]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[244]; av2[3]=lf[247]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k3212 in k3195 in k3182 in g422 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in ... */ 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,2)))){ C_save_and_reclaim((void *)f_3214,2,av);} /* csi.scm:495: display */ t2=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* doloop1353 in k5898 in k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in ... */ static void C_fcall f_5905(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_5905,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5918,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5923,tmp=(C_word)a,a+=2,tmp); /* csi.scm:1085: call/cc */ t6=*((C_word*)lf[108]+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_car(((C_word*)t3)[1]); t5=C_i_member(t4,lf[277]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5942,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[278]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[279]))?C_SCHEME_TRUE:(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_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[285],t4); t8=(C_truep(t7)?t7:C_u_i_string_equal_p(lf[286],t4)); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5971,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_5985,a[2]=t9,tmp=(C_word)a,a+=3,tmp); t11=C_i_cadr(((C_word*)t3)[1]); /* csi.scm:1095: string->symbol */ t12=*((C_word*)lf[288]+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[289],t4); t10=(C_truep(t9)?t9:C_u_i_string_equal_p(lf[290],t4)); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6000,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:1098: evalstring */ f_5776(t11,t12,C_SCHEME_END_OF_LIST);} else{ t11=C_u_i_string_equal_p(lf[291],t4); t12=(C_truep(t11)?t11:C_u_i_string_equal_p(lf[292],t4)); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6017,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_6025,tmp=(C_word)a,a+=2,tmp); /* csi.scm:1101: evalstring */ f_5776(t13,t14,C_a_i_list(&a,1,t15));} else{ t13=C_u_i_string_equal_p(lf[293],t4); t14=(C_truep(t13)?t13:C_u_i_string_equal_p(lf[294],t4)); if(C_truep(t14)){ t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6040,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_6048,tmp=(C_word)a,a+=2,tmp); /* csi.scm:1104: evalstring */ f_5776(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_6058,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[298],t16))){ t18=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6109,tmp=(C_word)a,a+=2,tmp); /* csi.scm:1108: ##sys#load */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[304]); C_word av2[5]; av2[0]=*((C_word*)lf[304]+1); av2[1]=t17; av2[2]=t4; av2[3]=t18; av2[4]=C_SCHEME_FALSE; tp(5,av2);}} else{ /* csi.scm:1108: ##sys#load */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[304]); C_word av2[5]; av2[0]=*((C_word*)lf[304]+1); av2[1]=t17; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; tp(5,av2);}}}}}}}}}} /* k5898 in k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in ... */ static void C_fcall f_5900(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_5900,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_5905,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_5905(t5,((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1]);} /* k2177 in loop in k2165 in k2158 in k2152 in k2135 in k2126 in k2114 in lookup-script-file in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2179(C_word c,C_word *av){ C_word tmp; C_word t0=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_2179,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2182,a[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:214: addext */ f_2061(t2,t1);} /* k2165 in k2158 in k2152 in k2135 in k2126 in k2114 in lookup-script-file in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2167,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_2169,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_2169(t5,((C_word*)t0)[4],t1);} /* k2158 in k2152 in k2135 in k2126 in k2114 in lookup-script-file in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2160,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2167,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csi.scm:211: string-split */ t4=C_fast_retrieve(lf[33]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[34]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3204 in k3195 in k3182 in g422 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in ... */ static void C_ccall f_3206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3206,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_fix(0)); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5916 in doloop1353 in k5898 in k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in ... */ static void C_ccall f_5918(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5918,2,av);} /* csi.scm:1089: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[95]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[95]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[91]+1); tp(4,av2);}} /* loop in k2165 in k2158 in k2152 in k2135 in k2126 in k2114 in lookup-script-file in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_2169(C_word 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_2169,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_2179,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_2196,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:213: chop-separator */ t6=C_retrieve2(lf[23],"chop-separator");{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; f_2011(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);}}} /* k2152 in k2135 in k2126 in k2114 in lookup-script-file in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2154,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_2160,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[27]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[27]+1); av2[1]=t2; av2[2]=lf[35]; av2[3]=t3; tp(4,av2);}}} /* k2149 in k2138 in k2135 in k2126 in k2114 in lookup-script-file in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2151,2,av);} /* csi.scm:207: string-append */ t2=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[31]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k2781 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2783,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2712 in a2709 in k2675 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2714,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4301 in loop in k4263 in g602 in k4258 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in ... */ static void C_ccall f_4302(C_word c,C_word *av){ C_word tmp; 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_4302,2,av);} t2=C_i_cdar(((C_word*)t0)[2]); t3=C_i_cadr(((C_word*)t0)[2]); /* csi.scm:716: fprintf */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=lf[227]; av2[4]=t2; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* a2709 in k2675 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2710(C_word c,C_word *av){ C_word tmp; 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_2710,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_2714,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* csi.scm:349: history-add */ t4=C_retrieve2(lf[40],"history-add"); f_2219(t4,t3,t2);} /* k4007 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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,7)))){ C_save_and_reclaim((void *)f_4009,2,av);} /* csi.scm:662: fprintf */ t2=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[202]; 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);}} /* k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_3147(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_3147,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3149,a[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:473: 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);}} /* a6710 in k6703 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6711,5,av);} a=C_alloc(6); t5=C_i_cdr(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6721,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); if(C_truep(C_i_pairp(t8))){ t9=C_i_cdr(t8); t10=t7; f_6721(t10,C_eqp(t9,C_SCHEME_END_OF_LIST));} else{ t9=t7; f_6721(t9,C_SCHEME_FALSE);}} else{ t8=t7; f_6721(t8,C_SCHEME_FALSE);}} /* a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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!=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_3149,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3153,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:475: gc */ t3=C_fast_retrieve(lf[146]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2145 in k2138 in k2135 in k2126 in k2114 in lookup-script-file in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2147,2,av);} /* csi.scm:207: addext */ f_2061(((C_word*)t0)[3],t1);} /* k2793 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2795,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6707 in k6703 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6709,2,av);} /* csi.scm:913: ##sys#extend-macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[370]); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[370]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[371]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; tp(5,av2);}} /* k2138 in k2135 in k2126 in k2114 in lookup-script-file in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2140,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2147,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_2151,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csi.scm:207: chop-separator */ t4=C_retrieve2(lf[23],"chop-separator");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t1; f_2011(3,av2);}} /* k2699 in a2696 in k2684 in a2681 in k2675 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2701(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2701,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6703 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6705,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6709,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_6711,tmp=(C_word)a,a+=2,tmp); /* csi.scm:914: ##sys#er-transformer */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[377]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} /* k2706 in a2696 in k2684 in a2681 in k2675 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2708,2,av);} /* csi.scm:347: ##sys#display-times */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[78]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[78]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k4529 in k4522 in body684 in dump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4531,2,av);} /* csi.scm:746: hexdump */ f_4645(((C_word*)t0)[2],((C_word*)t0)[3],t1,*((C_word*)lf[216]+1),((C_word*)t0)[4]);} /* k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 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_3179,2,av);} a=C_alloc(19); 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_3180,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_check_list_2(t1,lf[106]); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3231,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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); 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_3346,a[2]=t8,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_3346(t10,t6,t1);} /* k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t5; C_word 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_3176,2,av);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3179,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_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[141]); t8=C_fast_retrieve(lf[4]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3374,a[2]=((C_word*)t0)[8],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_3376,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_3376(t13,t9,C_fast_retrieve(lf[4]));} /* k4023 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_4025,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:669: fprintf */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[203]; av2[4]=t1; av2[5]=t2; av2[6]=lf[204]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(1): /* csi.scm:669: fprintf */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[203]; av2[4]=t1; av2[5]=t2; av2[6]=lf[205]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(2): /* csi.scm:669: fprintf */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[203]; av2[4]=t1; av2[5]=t2; av2[6]=lf[206]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(3): /* csi.scm:669: fprintf */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[203]; av2[4]=t1; av2[5]=t2; av2[6]=lf[207]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(4): /* csi.scm:669: fprintf */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[203]; av2[4]=t1; av2[5]=t2; av2[6]=lf[208]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(5): /* csi.scm:669: fprintf */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[203]; av2[4]=t1; av2[5]=t2; av2[6]=lf[209]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(6): /* csi.scm:669: fprintf */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[203]; av2[4]=t1; av2[5]=t2; av2[6]=lf[210]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(7): /* csi.scm:669: fprintf */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[203]; av2[4]=t1; av2[5]=t2; av2[6]=lf[211]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(8): /* csi.scm:669: fprintf */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[203]; av2[4]=t1; av2[5]=t2; av2[6]=lf[212]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(9): /* csi.scm:669: fprintf */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[203]; av2[4]=t1; av2[5]=t2; av2[6]=lf[213]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} default: t4=C_SCHEME_UNDEFINED; /* csi.scm:669: fprintf */ t5=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[203]; av2[4]=t1; av2[5]=t2; av2[6]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}}} /* k2765 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t4; C_word t5; 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=(C_truep(t1)?t1:C_retrieve2(lf[8],"default-editor")); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2774,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* csi.scm:359: read-line */ t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k2761 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2763,2,av);} /* csi.scm:356: system */ t2=C_fast_retrieve(lf[86]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4522 in body684 in dump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_4524,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4531,a[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:746: bestlen */ t4=((C_word*)t0)[5]; f_4502(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_4548,a[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:747: bestlen */ t4=((C_word*)t0)[5]; f_4502(t4,t2,t3);} else{ t2=C_immp(((C_word*)t0)[3]); t3=(C_truep(t2)?C_SCHEME_FALSE:C_anypointerp(((C_word*)t0)[3])); if(C_truep(t3)){ /* csi.scm:749: hexdump */ f_4645(((C_word*)t0)[2],((C_word*)t0)[3],C_fix(32),*((C_word*)lf[246]+1),((C_word*)t0)[4]);} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4567,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]))){ t5=C_slot(((C_word*)t0)[3],C_fix(0)); t6=t4; f_4567(t6,C_i_assq(t5,C_retrieve2(lf[147],"bytevector-data")));} else{ t5=t4; f_4567(t5,C_SCHEME_FALSE);}}}}} /* a3120 in a3081 in a3063 in k2994 in k6681 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_3121,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_3127,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csi.scm:454: k353 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a3126 in a3120 in a3081 in a3063 in k2994 in k6681 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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!=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_3127,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k2772 in k2765 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2774,2,av);} /* csi.scm:357: string-append */ t2=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[87]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_4018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_4018,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4025,a[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:670: ##sys#peek-unsigned-integer */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[199]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[199]+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_4126,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csi.scm:683: ##sys#peek-unsigned-integer */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[199]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[199]+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_4132,a[2]=((C_word*)t0)[2],a[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:684: ##sys#bytevector? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[235]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[235]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}}}} /* k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3153,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3156,a[2]=((C_word*)t0)[2],a[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:476: ##sys#symbol-table-info */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[145]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[145]+1); av2[1]=t2; tp(2,av2);}} /* k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_1908,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1911,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t2; f_1911(t3,t1);} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6904,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csi.scm:71: get-environment-variable */ t4=C_fast_retrieve(lf[36]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[402]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3156,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3159,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:477: memory-statistics */ t4=C_fast_retrieve(lf[144]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; 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_1903,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[6]+1 /* (set! editor-command ...) */,t1); t3=lf[7] /* selected-frame */ =C_SCHEME_FALSE;; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1908,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:70: get-environment-variable */ t5=C_fast_retrieve(lf[36]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[403]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3159,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3161,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3176,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); /* csi.scm:479: printf */ t5=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[143]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5807 in k5800 in doloop1222 in k5788 in k5781 in evalstring in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in ... */ static void C_ccall f_5809(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5809,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_5792(t2,((C_word*)t0)[3],t1);} /* k5800 in doloop1222 in k5788 in k5781 in evalstring in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in ... */ static void C_ccall f_5802(C_word c,C_word *av){ C_word tmp; C_word t0=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_5802,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5809,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:1024: read */ t3=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2743 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2745,2,av);} t2=C_eqp(t1,C_fix(0)); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* csi.scm:361: printf */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[85]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k3182 in g422 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in ... */ static void C_ccall f_3184(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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,2)))){ C_save_and_reclaim((void *)f_3184,2,av);} a=C_alloc(23); t2=C_i_string_length(((C_word*)t0)[2]); t3=C_a_i_minus(&a,2,C_fix(16),t2); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[3])[1],C_fix(1)); t7=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t6); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3197,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t5,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_less_or_equalp(((C_word*)t5)[1],C_fix(0)))){ t9=C_a_i_plus(&a,2,((C_word*)((C_word*)t0)[3])[1],C_fix(1)); t10=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t9); t11=C_a_i_plus(&a,2,((C_word*)t5)[1],C_fix(18)); t12=C_set_block_item(t5,0,t11); t13=t8; f_3197(t13,t12);} else{ t9=t8; f_3197(t9,C_SCHEME_UNDEFINED);}} /* g422 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 in ... */ static void C_fcall f_3180(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_3180,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3184,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* csi.scm:484: printf */ t4=*((C_word*)lf[84]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=lf[123]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a5814 in doloop1222 in k5788 in k5781 in evalstring in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 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 *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_5815,2,av);} /* csi.scm:1026: eval */ t2=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5811 in doloop1222 in k5788 in k5781 in evalstring in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5813,2,av);} /* csi.scm:1026: rec */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2727 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2729,2,av);} /* csi.scm:354: describe */ t2=C_retrieve2(lf[63],"describe"); f_3488(t2,((C_word*)t0)[2],C_fast_retrieve(lf[82]),C_SCHEME_END_OF_LIST);} /* k6595 in k6586 in k6583 in k6580 in k6577 in k6574 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6597,2,av);} if(C_truep(t1)){ t2=C_u_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3]; f_5671(t3,C_i_set_car(t2,t1));} else{ t2=((C_word*)t0)[3]; f_5671(t2,C_SCHEME_FALSE);}} /* k3167 in shorten in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3169(C_word c,C_word *av){ C_word tmp; 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_3169,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_divide(&a,2,t1,C_fix(100)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6772 in k6732 in k6719 in a6710 in k6703 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,2)))){ C_save_and_reclaim((void *)f_6774,2,av);} a=C_alloc(20); 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)[2],t2); t4=C_a_i_cons(&a,2,lf[372],t3); t5=C_a_i_cons(&a,2,t1,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6754,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t6,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:914: rename997 */ t8=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=lf[373]; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}} /* shorten in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_3161(C_word t1,C_word 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_3161,2,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3169,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=C_a_i_times(&a,2,t2,C_fix(100)); /* csi.scm:478: truncate */ t5=*((C_word*)lf[120]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2595 in for-each-loop226 in k2577 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2597,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2587(t3,((C_word*)t0)[4],t2);} /* k3195 in k3182 in g422 in k3177 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in ... */ static void C_fcall f_3197(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_3197,2,t0,t1);} a=C_alloc(4); if(C_truep(C_i_greater_or_equalp(((C_word*)((C_word*)t0)[2])[1],C_fix(3)))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3206,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:492: display */ t3=*((C_word*)lf[99]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[121]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3214,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:495: make-string */ t3=*((C_word*)lf[122]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_make_character(32); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k6204 in k6201 in k6198 in k6195 in k6192 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 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);} /* csi.scm:1078: symbol-escape */ t2=C_fast_retrieve(lf[309]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6201 in k6198 in k6195 in k6192 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6203,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6206,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:1077: parentheses-synonyms */ t3=C_fast_retrieve(lf[310]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6198 in k6195 in k6192 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6200,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6203,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:1076: keyword-style */ t3=C_fast_retrieve(lf[135]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[311]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4546 in k4522 in body684 in dump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_4548(C_word c,C_word *av){ C_word tmp; C_word 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_4548,2,av);} /* csi.scm:747: hexdump */ f_4645(((C_word*)t0)[2],((C_word*)t0)[3],t1,*((C_word*)lf[216]+1),((C_word*)t0)[4]);} /* k6213 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6215,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6218,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ /* csi.scm:1072: symbol-escape */ t3=C_fast_retrieve(lf[309]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:1071: display */ t3=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[315]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_5891(2,av2);}}} /* k6216 in k6213 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6218,2,av);} /* csi.scm:1072: symbol-escape */ t2=C_fast_retrieve(lf[309]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2577 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; C_word 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_2579,2,av);} a=C_alloc(9); t2=C_fast_retrieve(lf[72]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2582,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_2587,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_2587(t7,t3,t1);} /* k6660 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_6662,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_i_member(lf[359],((C_word*)((C_word*)t0)[2])[1]); t4=((C_word*)t0)[3]; f_5671(t4,(C_truep(t3)?C_i_set_cdr(t3,C_SCHEME_END_OF_LIST):C_SCHEME_FALSE));} /* k2580 in k2577 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2582,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop226 in k2577 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_2587(C_word t0,C_word t1,C_word 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_2587,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_2597,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:339: g227 */ 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);}}} /* k3606 in loop2 in k3527 in loop1 in k3499 in k3621 in descseq in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 in ... */ static void C_ccall f_3608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3608,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:596: loop2 */ t5=((C_word*)((C_word*)t0)[5])[1]; f_3538(t5,((C_word*)t0)[6],t3,t4);} else{ /* csi.scm:597: loop2 */ t3=((C_word*)((C_word*)t0)[5])[1]; f_3538(t3,((C_word*)t0)[6],((C_word*)t0)[3],((C_word*)t0)[7]);}} /* for-each-loop915 in doloop901 in a5222 in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_5364(C_word t0,C_word t1,C_word 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_5364,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_5374,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:892: g916 */ t9=((C_word*)t0)[3]; f_5279(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);}}} /* k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_1911(C_word t0,C_word t1){ C_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(14,0,4)))){ C_save_and_reclaim_args((void *)trf_1911,2,t0,t1);} a=C_alloc(14); t2=C_mutate2(&lf[8] /* (set! default-editor ...) */,t1); t3=C_mutate2(&lf[9] /* (set! print-banner ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1941,tmp=(C_word)a,a+=2,tmp)); t4=C_fast_retrieve(lf[16]); t5=C_mutate2((C_word*)lf[16]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1957,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[20]+1 /* (set! ##sys#sharp-number-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1986,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate2(&lf[21] /* (set! dirseparator? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1996,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate2(&lf[23] /* (set! chop-separator ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2011,tmp=(C_word)a,a+=2,tmp)); t9=C_set_block_item(lf[25] /* @ */,0,C_SCHEME_FALSE); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2042,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[398]); C_word av2[4]; av2[0]=*((C_word*)lf[398]+1); av2[1]=t10; av2[2]=C_fix(256); av2[3]=C_make_character(32); tp(4,av2);}} /* k5360 in k5353 in doloop901 in a5222 in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_5362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5362,2,av);} /* csi.scm:905: fail */ t2=((C_word*)t0)[2]; f_5226(t2,((C_word*)t0)[3],t1);} /* k6673 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6675(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6675,2,av);} /* csi.scm:997: append */ t2=*((C_word*)lf[231]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1915 in k6515 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in ... */ static void C_ccall f_1917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_1917,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1920,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1927,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_a_i_cons(&a,2,lf[344],C_SCHEME_END_OF_LIST); t5=C_a_i_cons(&a,2,lf[0],t4); t6=C_a_i_cons(&a,2,lf[345],t5); /* csi.scm:79: ##sys#print-to-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[346]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[346]+1); av2[1]=t3; av2[2]=t6; tp(3,av2);}} /* k6677 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6679,2,av);} /* csi.scm:978: canonicalize-args */ f_5480(((C_word*)t0)[2],t1);} /* ##sys#sharp-number-hook in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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=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_1986,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1994,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* csi.scm:164: history-ref */ f_2318(t4,t3);} /* k6681 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t6; 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); t2=(C_truep(t1)?t1:lf[362]); t3=((C_word*)t0)[2]; t4=t2; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2996,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* csi.scm:447: open-input-string */ t6=C_fast_retrieve(lf[273]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_5888,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5891,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_6215,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* csi.scm:1070: member* */ f_5425(t3,lf[316],((C_word*)((C_word*)t0)[6])[1]);} /* k6687 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6689(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6689,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6692,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6695,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#implicit-exit-handler */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[270]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[270]+1); av2[1]=t3; tp(2,av2);}} /* k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in ... */ static void C_ccall f_5885(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5885,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5888,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_6227,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* csi.scm:1067: member* */ f_5425(t3,lf[318],((C_word*)((C_word*)t0)[6])[1]);} /* body684 in dump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_4499(C_word 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_4499,4,t0,t1,t2,t3);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4502,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_immp(((C_word*)t0)[2]))){ /* csi.scm:745: ##sys#error */ t5=*((C_word*)lf[42]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t1; av2[2]=lf[244]; av2[3]=lf[245]; 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_4524,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* csi.scm:746: ##sys#bytevector? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[235]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[235]+1); av2[1]=t5; av2[2]=((C_word*)t0)[2]; tp(3,av2);}}} /* dump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_4497(C_word t1,C_word 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_4497,3,t1,t2,t3);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4499,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4605,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4610,a[2]=t5,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t3))){ /* csi.scm:740: def-len686 */ t7=t6; f_4610(t7,t1);} else{ t7=C_i_car(t3); t8=C_u_i_cdr(t3); if(C_truep(C_i_nullp(t8))){ /* csi.scm:740: def-out687 */ t9=t5; f_4605(t9,t1,t7);} else{ t9=C_i_car(t8); t10=C_u_i_cdr(t8); /* csi.scm:740: body684 */ t11=t4; f_4499(t11,t1,t7,t9);}}} /* k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in ... */ static void C_ccall f_5882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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,2)))){ C_save_and_reclaim((void *)f_5882,2,av);} a=C_alloc(9); t2=C_mutate2((C_word*)lf[133]+1 /* (set! ##sys#include-pathnames ...) */,t1); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5885,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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]); if(C_truep(C_i_pairp(t4))){ t5=C_i_cadr(((C_word*)t0)[9]); if(C_truep(C_i_string_equal_p(lf[319],t5))){ /* csi.scm:1062: keyword-style */ t6=C_fast_retrieve(lf[135]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=lf[320]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t6=C_u_i_cdr(((C_word*)t0)[9]); t7=C_u_i_car(t6); if(C_truep(C_i_string_equal_p(lf[321],t7))){ /* csi.scm:1064: keyword-style */ t8=C_fast_retrieve(lf[135]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t3; av2[2]=lf[311]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t8=C_u_i_cdr(((C_word*)t0)[9]); t9=C_u_i_car(t8); if(C_truep(C_i_string_equal_p(lf[322],t9))){ /* csi.scm:1066: keyword-style */ t10=C_fast_retrieve(lf[135]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t3; av2[2]=lf[323]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t10=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; f_5885(2,av2);}}}}} else{ /* csi.scm:1060: ##sys#error */ t5=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=lf[324]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5885(2,av2);}}} /* k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 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; 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_5897,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5900,a[2]=((C_word*)t0)[2],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[5] /* ##sys#notices-enabled */,0,C_SCHEME_FALSE); t4=t2; f_5900(t4,t3);} else{ t3=t2; f_5900(t3,C_SCHEME_UNDEFINED);}} /* k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_5894,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5897,a[2]=((C_word*)t0)[2],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_6182,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[7],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* csi.scm:1079: member* */ f_5425(t3,lf[308],((C_word*)((C_word*)t0)[6])[1]);} /* k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in ... */ static void C_ccall f_5891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5891,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5894,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_6194,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* csi.scm:1073: member* */ f_5425(t3,lf[314],((C_word*)((C_word*)t0)[6])[1]);} /* k5353 in doloop901 in a5222 in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_5355,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5362,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:905: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[27]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[27]+1); av2[1]=t2; av2[2]=lf[107]; av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k1925 in k1915 in k6515 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1927,2,av);} /* csi.scm:101: display */ t2=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1918 in k1915 in k6515 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1920,2,av);} /* csi.scm:106: display */ t2=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[343]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k2916 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2918,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_5869,2,av);} a=C_alloc(13); t2=C_fast_retrieve(lf[275]); t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5872,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((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:1050: collect-options */ t4=((C_word*)((C_word*)t0)[11])[1]; f_5694(t4,t3,lf[329]);} /* k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 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 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_5863,2,av);} a=C_alloc(18); t2=C_i_check_list_2(t1,lf[106]); t3=(*a=C_CLOSURE_TYPE|11,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],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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_6413,a[2]=t5,a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_6413(t7,t3,t1);} /* k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_5860,2,av);} a=C_alloc(13); t2=C_fast_retrieve(lf[274]); t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5863,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((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:1049: collect-options */ t4=((C_word*)((C_word*)t0)[11])[1]; f_5694(t4,t3,lf[330]);} /* ##sys#user-read-hook in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_1957(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1957,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_1974,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t7=C_fixnum_difference(C_retrieve2(lf[18],"history-count"),C_fix(1)); /* csi.scm:159: history-ref */ f_2318(t6,t7);} else{ /* csi.scm:160: old-hook */ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}}} /* k2902 in for-each-loop292 in k2865 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2904,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2894(t3,((C_word*)t0)[4],t2);} /* k1953 in k1946 in k1943 in print-banner in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_1955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1955,2,av);} /* csi.scm:148: print */ t2=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[11]; av2[3]=t1; av2[4]=lf[12]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in ... */ static void C_ccall f_5878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_5878,2,av);} a=C_alloc(26); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5882,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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_6294,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[23],"chop-separator"); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6301,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:1053: collect-options */ t10=((C_word*)((C_word*)t0)[11])[1]; f_5694(t10,t9,lf[328]);} /* k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in ... */ static void C_ccall f_5872(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_5872,2,av);} a=C_alloc(18); t2=C_i_check_list_2(t1,lf[106]); t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5878,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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_6390,a[2]=t5,a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_6390(t7,t3,t1);} /* k5372 in for-each-loop915 in doloop901 in a5222 in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_5374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5374,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_5364(t4,((C_word*)t0)[5],t2,t3);} /* k1972 in user-read-hook in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_1974(C_word c,C_word *av){ C_word tmp; 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_1974,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[17],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5228 in fail in a5222 in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5230,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5233,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:882: newline */ t3=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6292 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6294,2,av);} /* csi.scm:1052: ##sys#nodups */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[325]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[325]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[326]+1); tp(4,av2);}} /* k5317 in k5314 in k5311 in k5308 in k5305 in doloop929 in g916 in doloop901 in a5222 in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in ... */ static void C_ccall f_5319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5319,2,av);} t2=C_slot(((C_word*)t0)[2],((C_word*)t0)[3]); /* csi.scm:902: return */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5222 in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_5223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5223,3,av);} a=C_alloc(12); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5226,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_5245,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_5245(t7,t1,((C_word*)t0)[4]);} /* k5311 in k5308 in k5305 in doloop929 in g916 in doloop901 in a5222 in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_5313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5313,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5316,a[2]=((C_word*)t0)[2],a[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:900: newline */ t3=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5314 in k5311 in k5308 in k5305 in doloop929 in g916 in doloop901 in a5222 in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 in ... */ static void C_ccall f_5316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5316,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5319,a[2]=((C_word*)t0)[2],a[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:901: history-add */ t5=C_retrieve2(lf[40],"history-add"); f_2219(t5,t2,t4);} /* fail in a5222 in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_5226(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_5226,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5230,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* csi.scm:881: display */ 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);}} /* k6126 in k6123 in k6120 in k6117 in k6111 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6128,2,av);} /* csi.scm:1123: eval */ t2=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3814 in k3811 in k3808 in doloop536 in k3793 in k3781 in k3778 in k3775 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3816,2,av);} t2=C_i_cddr(((C_word*)t0)[2]); t3=((C_word*)((C_word*)t0)[3])[1]; f_3800(t3,((C_word*)t0)[4],t2);} /* k3811 in k3808 in doloop536 in k3793 in k3781 in k3778 in k3775 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3813,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3816,a[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:642: newline */ t3=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5308 in k5305 in doloop929 in g916 in doloop901 in a5222 in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_5310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5310,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5313,a[2]=((C_word*)t0)[2],a[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:899: display */ t5=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3808 in doloop536 in k3793 in k3781 in k3778 in k3775 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in ... */ static void C_ccall f_3810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3810,2,av);} a=C_alloc(10); 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); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3825,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* csi.scm:638: ##sys#with-print-length-limit */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[93]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[93]+1); av2[1]=t2; av2[2]=C_fix(1000); av2[3]=t3; tp(4,av2);}} /* k6123 in k6120 in k6117 in k6111 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6125,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6128,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:1122: newline */ t3=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[299]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5231 in k5228 in fail in a5222 in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_5233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5233,2,av);} t2=*((C_word*)lf[41]+1); /* csi.scm:883: return */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=*((C_word*)lf[41]+1); ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} /* k6120 in k6117 in k6111 */ static void C_ccall f_6122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6122,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6125,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_6133,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_6133(t6,t2,C_fix(0));} /* dirseparator? in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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=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_1996,3,av);} if(C_truep(*((C_word*)lf[22]+1))){ t3=C_i_char_equalp(t2,C_make_character(92)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_char_equalp(t2,C_make_character(47)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k1992 in sharp-number-hook in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_1994(C_word c,C_word *av){ C_word tmp; 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_1994,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[17],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* doloop536 in k3793 in k3781 in k3778 in k3775 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_3800,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_3810,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:637: fprintf */ t5=*((C_word*)lf[153]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[179]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k2075 in k2069 in k2066 in addext in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2077,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2069 in k2066 in addext in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2071,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2077,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csi.scm:194: file-exists? */ t4=C_fast_retrieve(lf[26]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5940 in doloop1353 in k5898 in k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5942,2,av);} t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=((C_word*)((C_word*)t0)[3])[1]; f_5905(t3,((C_word*)t0)[4],t2);} /* doloop1410 in k6120 in k6117 in k6111 */ static void C_fcall f_6133(C_word 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_6133,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_6146,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* write-char/port */ t6=C_fast_retrieve(lf[249]);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=*((C_word*)lf[299]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k2066 in addext in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2068(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2068,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_2071,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[27]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[27]+1); av2[1]=t2; av2[2]=t3; av2[3]=lf[28]; tp(4,av2);}}} /* addext in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_2061(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_2061,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2068,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* csi.scm:191: file-exists? */ t4=C_fast_retrieve(lf[26]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5305 in doloop929 in g916 in doloop901 in a5222 in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_5307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5307,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5310,a[2]=((C_word*)t0)[2],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:898: display */ t3=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[105]; ((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_5285(t5,((C_word*)t0)[8],t2,t4);}} /* chop-separator in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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=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,2)))){ C_save_and_reclaim((void *)f_2011,3,av);} a=C_alloc(9); t3=C_block_size(t2); t4=C_a_i_minus(&a,2,t3,C_fix(1)); t5=t4; t6=C_i_string_ref(t2,t5); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2024,a[2]=t1,a[3]=t2,a[4]=t5,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fixnum_greaterp(t5,C_fix(0)))){ /* csi.scm:178: dirseparator? */ t8=C_retrieve2(lf[21],"dirseparator\077");{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=t6; f_1996(3,av2);}} else{ t8=t7;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; f_2024(2,av2);}}} /* k5969 in doloop1353 in k5898 in k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in ... */ static void C_ccall f_5971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5971,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_u_i_cdr(t2)); t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t5=((C_word*)((C_word*)t0)[3])[1]; f_5905(t5,((C_word*)t0)[4],t4);} /* k5983 in doloop1353 in k5898 in k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_5985,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,1,t1); t3=C_a_i_list(&a,3,lf[287],t2,C_SCHEME_TRUE); /* csi.scm:1095: eval */ t4=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2022 in chop-separator in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2024,2,av);} if(C_truep(t1)){ /* csi.scm:179: substring */ t2=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* ##sys#quit-hook in a5922 in doloop1353 in k5898 in k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5926,2,av);} /* csi.scm:1087: k */ t2=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t2; av2[1]=t1; av2[2]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* k3693 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3695(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3695,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_3701,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:611: fprintf */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[166]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ /* csi.scm:612: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[95]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[95]+1); av2[1]=((C_word*)t0)[3]; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[91]+1); tp(4,av2);}}} /* doloop361 in k3094 in a3087 in a3081 in a3063 in k2994 in k6681 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 in ... */ static void C_fcall f_3098(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_3098,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_eofp(t2))){ /* csi.scm:457: reverse */ t4=*((C_word*)lf[366]+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_3115,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* csi.scm:455: read */ t5=*((C_word*)lf[60]+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);}}} /* k3094 in a3087 in a3081 in a3063 in k2994 in k6681 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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(6,c,4)))){ C_save_and_reclaim((void *)f_3096,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_3098,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_3098(t5,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* a5922 in doloop1353 in k5898 in k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in ... */ 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=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_5923,3,av);} a=C_alloc(3); t3=C_mutate2((C_word*)lf[70]+1 /* (set! ##sys#quit-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5926,a[2]=t2,tmp=(C_word)a,a+=3,tmp)); /* csi.scm:1088: repl */ t4=C_fast_retrieve(lf[276]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=C_retrieve2(lf[56],"csi-eval"); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a3087 in a3081 in a3063 in k2994 in k6681 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3088(C_word c,C_word *av){ 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_3088,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3096,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* csi.scm:455: read */ t3=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3081 in a3063 in k2994 in k6681 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 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_3082,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3088,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3121,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:454: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a6068 in k6056 in doloop1353 in k5898 in k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 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!=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_6069,2,av);} a=C_alloc(4); t2=C_fast_retrieve(lf[296]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6077,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* csi.scm:1126: command-line-arguments */ t4=C_fast_retrieve(lf[297]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2994 in k6681 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_2996,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_3019,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_3064,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csi.scm:454: call-with-current-continuation */ t9=*((C_word*)lf[368]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t7; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 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_2990,2,av);} a=C_alloc(6); t2=C_fast_retrieve(lf[116]); t3=C_fast_retrieve(lf[117]); t4=C_fast_retrieve(lf[118]); t5=C_fast_retrieve(lf[119]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3135,a[2]=t5,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* csi.scm:470: get-environment-variable */ t7=C_fast_retrieve(lf[36]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[381]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* a3075 in a3069 in a3063 in k2994 in k6681 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3076(C_word c,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_3076,2,av);} /* csi.scm:454: ##sys#error */ t2=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=lf[365]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k6732 in k6719 in a6710 in k6703 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6734,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6774,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); /* csi.scm:914: rename997 */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[374]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a3069 in a3063 in k2994 in k6681 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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=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_3070,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3076,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:454: k353 */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a6078 in k6056 in doloop1353 in k5898 in k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in ... */ static void C_ccall f_6079(C_word c,C_word *av){ C_word tmp; 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_6079,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; if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); if(C_truep(C_fixnump(t4))){ t5=C_i_car(t2); /* csi.scm:1128: exit */ t6=C_fast_retrieve(lf[57]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t1; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* csi.scm:1128: exit */ t5=C_fast_retrieve(lf[57]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} else{ /* csi.scm:1128: exit */ t3=C_fast_retrieve(lf[57]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k6075 in a6068 in k6056 in doloop1353 in k5898 in k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6077,2,av);} /* csi.scm:1126: g1424 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3063 in k2994 in k6681 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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!=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_3064,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3070,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_3082,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csi.scm:454: with-exception-handler */ t5=C_fast_retrieve(lf[367]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2972 in a2969 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2974,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a2969 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_2970,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_2974,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* csi.scm:417: history-add */ t4=C_retrieve2(lf[40],"history-add"); f_2219(t4,t3,t2);} /* k3053 in map-loop333 in k3020 in k3017 in k2994 in k6681 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3055,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3030(t6,((C_word*)t0)[5],t5);} /* k6752 in k6772 in k6732 in k6719 in a6710 in k6703 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6754,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6762,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); /* csi.scm:914: rename997 */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[259]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k3856 in k3778 in k3775 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_3858,2,av);} a=C_alloc(6); t2=(C_truep(t1)?lf[181]:lf[182]); t3=t2; t4=(C_truep(((C_word*)t0)[2])?lf[183]:lf[184]); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3849,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[2])){ /* csi.scm:630: ##sys#symbol->qualified-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[186]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[186]+1); av2[1]=t6; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} else{ /* csi.scm:631: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[177]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[177]+1); av2[1]=t6; av2[2]=((C_word*)t0)[5]; tp(3,av2);}}} /* a6024 in doloop1353 in k5898 in k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in ... */ 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((c-2)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_6025,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; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[106]+1); av2[3]=*((C_word*)lf[10]+1); av2[4]=t2; C_apply(5,av2);}} /* k6760 in k6752 in k6772 in k6732 in k6719 in a6710 in k6703 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,1)))){ C_save_and_reclaim((void *)f_6762,2,av);} a=C_alloc(21); 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,((C_word*)t0)[4],t4); t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST); t7=C_a_i_cons(&a,2,((C_word*)t0)[5],t6); t8=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[7],t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k3847 in k3856 in k3778 in k3775 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_3849,2,av);} /* csi.scm:626: fprintf */ t2=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[185]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; av2[6]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k2849 in k2846 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_2851,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2854,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:379: history-add */ t5=C_retrieve2(lf[40],"history-add"); f_2219(t5,t3,t4);} /* map-loop333 in k3020 in k3017 in k2994 in k6681 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_3030(C_word t0,C_word t1,C_word 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_3030,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_3055,a[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_3010,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* csi.scm:451: open-output-string */ t8=C_fast_retrieve(lf[364]);{ 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);}}} /* a2963 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *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_2964,2,av);} /* csi.scm:416: eval */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k5588 in k5506 in loop in canonicalize-args in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5590,2,av);} /* string->list */ t2=C_fast_retrieve(lf[268]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2846 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2848,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2851,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:378: system */ t3=C_fast_retrieve(lf[86]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5596 in k5506 in loop in canonicalize-args in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_5598,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k6038 in doloop1353 in k5898 in k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6040,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_u_i_cdr(t2)); t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t5=((C_word*)((C_word*)t0)[3])[1]; f_5905(t5,((C_word*)t0)[4],t4);} /* k3020 in k3017 in k2994 in k6681 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3022,2,av);} a=C_alloc(7); t2=C_i_check_list_2(t1,lf[230]); 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_3030,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_3030(t6,((C_word*)t0)[4],t1);} /* k3627 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3629(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3629,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a6047 in doloop1353 in k5898 in k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in ... */ static void C_ccall f_6048(C_word c,C_word *av){ C_word tmp; 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_6048,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; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[106]+1); av2[3]=C_fast_retrieve(lf[54]); av2[4]=t2; C_apply(5,av2);}} /* k3621 in descseq in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_3623,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_3501,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:577: fprintf */ t5=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=lf[159]; 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_3501(2,av2);}}} /* k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,7)))){ C_save_and_reclaim((void *)f_3626,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3629,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:602: fprintf */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[160]; 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:603: fprintf */ t3=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);} case C_SCHEME_FALSE: /* csi.scm:604: fprintf */ t3=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[162]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);} default: if(C_truep(C_i_nullp(((C_word*)t0)[3]))){ /* csi.scm:605: fprintf */ t3=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[163]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ if(C_truep(C_eofp(((C_word*)t0)[3]))){ /* csi.scm:606: fprintf */ t3=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[164]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=*((C_word*)lf[41]+1); t4=C_eqp(*((C_word*)lf[41]+1),((C_word*)t0)[3]); if(C_truep(t4)){ /* csi.scm:607: fprintf */ t5=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[165]; ((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_3695,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csi.scm:609: fprintf */ t6=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; av2[3]=lf[167]; 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{ t5=C_slot(lf[168],C_fix(0)); t6=C_eqp(((C_word*)t0)[3],t5); if(C_truep(t6)){ /* csi.scm:614: fprintf */ t7=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[169]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ if(C_truep(C_i_flonump(((C_word*)t0)[3]))){ /* csi.scm:615: fprintf */ t7=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[170]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ if(C_truep(C_i_numberp(((C_word*)t0)[3]))){ /* csi.scm:616: fprintf */ t7=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[171]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ if(C_truep(C_i_stringp(((C_word*)t0)[3]))){ /* csi.scm:617: descseq */ t7=((C_word*)t0)[5];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t2; av2[2]=lf[172]; av2[3]=*((C_word*)lf[173]+1); av2[4]=((C_word*)t0)[6]; av2[5]=C_fix(0); f_3494(6,av2);}} else{ if(C_truep(C_i_vectorp(((C_word*)t0)[3]))){ /* csi.scm:618: descseq */ t7=((C_word*)t0)[5];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t2; av2[2]=lf[174]; av2[3]=*((C_word*)lf[173]+1); av2[4]=*((C_word*)lf[175]+1); av2[5]=C_fix(0); f_3494(6,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3761,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:619: keyword? */ t8=C_fast_retrieve(lf[238]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}}}}}}}}}}}} /* k3008 in map-loop333 in k3020 in k3017 in k2994 in k6681 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3010,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3013,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csi.scm:452: write */ t4=*((C_word*)lf[178]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3017 in k2994 in k6681 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; 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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3022,a[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:454: g357 */ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k3011 in k3008 in map-loop333 in k3020 in k3017 in k2994 in k6681 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 in ... */ 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,2)))){ C_save_and_reclaim((void *)f_3013,2,av);} /* csi.scm:453: get-output-string */ t2=C_fast_retrieve(lf[363]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6056 in doloop1353 in k5898 in k5895 in k5892 in k5889 in k5886 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in ... */ static void C_ccall f_6058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6058,2,av);} a=C_alloc(4); if(C_truep(C_i_equalp(lf[295],((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6069,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6079,tmp=(C_word)a,a+=2,tmp); /* csi.scm:1126: call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_5905(t3,((C_word*)t0)[6],t2);}} /* k4805 in doloop739 in doloop731 in k4689 in k4686 in doloop721 in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4807,2,av);} t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4797(t3,((C_word*)t0)[4],t2);} /* k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_2042,2,av);} a=C_alloc(49); t2=t1; t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2061,tmp=(C_word)a,a+=2,tmp); t4=C_mutate2(&lf[29] /* (set! lookup-script-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2112,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_mutate2(&lf[38] /* (set! history-list ...) */,t6); t8=lf[18] /* history-count */ =C_fix(1);; t9=C_fast_retrieve(lf[39]); t10=C_mutate2(&lf[40] /* (set! history-add ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2219,a[2]=t9,tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2(&lf[19] /* (set! history-ref ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2318,tmp=(C_word)a,a+=2,tmp)); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2343,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t13=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6882,tmp=(C_word)a,a+=2,tmp); /* csi.scm:255: repl-prompt */ t14=C_fast_retrieve(lf[397]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t14; av2[1]=t12; av2[2]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} /* k6719 in a6710 in k6703 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_6721(C_word t0,C_word t1){ C_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_6721,2,t0,t1);} a=C_alloc(6); 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|5,a[1]=(C_word)f_6734,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); /* csi.scm:914: rename997 */ t8=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=lf[375]; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}} else{ /* csi.scm:914: ##sys#syntax-rules-mismatch */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[376]); C_word av2[3]; av2[0]=*((C_word*)lf[376]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; tp(3,av2);}}} /* k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_2437(C_word t0,C_word t1){ C_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_2437,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[48],"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_2454,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csi.scm:307: g201 */ 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[58]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2469,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:314: read */ t6=*((C_word*)lf[60]+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[61]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2492,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); /* csi.scm:318: read */ t7=*((C_word*)lf[60]+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[62]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2510,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* csi.scm:323: read */ t8=*((C_word*)lf[60]+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[64]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2525,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* csi.scm:327: read */ t9=*((C_word*)lf[60]+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[66]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2540,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* csi.scm:331: read */ t10=*((C_word*)lf[60]+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[67]); if(C_truep(t9)){ /* csi.scm:336: report */ t10=C_retrieve2(lf[68],"report"); f_3139(t10,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} else{ t10=C_eqp(t2,lf[69]); if(C_truep(t10)){ /* csi.scm:337: ##sys#quit-hook */ t11=C_fast_retrieve(lf[70]);{ C_word av2[3]; av2[0]=t11; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_FALSE; f_5926(3,av2);}} else{ t11=C_eqp(t2,lf[71]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2579,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2612,a[2]=((C_word*)t0)[7],a[3]=t12,tmp=(C_word)a,a+=4,tmp); /* csi.scm:339: read-line */ t14=((C_word*)t0)[8];{ 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[73]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2621,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2668,a[2]=((C_word*)t0)[7],a[3]=t13,tmp=(C_word)a,a+=4,tmp); /* csi.scm:343: read-line */ t15=((C_word*)t0)[8];{ 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[77]); if(C_truep(t13)){ t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2677,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csi.scm:347: read */ t15=*((C_word*)lf[60]+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[81]); if(C_truep(t14)){ if(C_truep(C_fast_retrieve(lf[82]))){ t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2729,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t16=C_a_i_list1(&a,1,C_fast_retrieve(lf[82])); /* csi.scm:353: history-add */ t17=C_retrieve2(lf[40],"history-add"); f_2219(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[83]); if(C_truep(t15)){ t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2745,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2763,a[2]=t16,tmp=(C_word)a,a+=3,tmp); t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2767,a[2]=t17,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* csi.scm:358: editor-command */ t19=C_fast_retrieve(lf[6]);{ C_word av2[2]; av2[0]=t19; av2[1]=t18; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ t16=C_eqp(t2,lf[88]); if(C_truep(t16)){ t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2783,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t18=*((C_word*)lf[41]+1); /* csi.scm:235: vector-fill! */ t19=*((C_word*)lf[89]+1);{ C_word av2[4]; av2[0]=t19; av2[1]=t17; av2[2]=C_retrieve2(lf[38],"history-list"); av2[3]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t19+1)))(4,av2);}} else{ t17=C_eqp(t2,lf[90]); if(C_truep(t17)){ t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2795,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_2274,a[2]=t20,tmp=(C_word)a,a+=3,tmp)); t22=((C_word*)t20)[1]; f_2274(t22,t18,C_fix(1));} else{ t18=C_eqp(t2,lf[96]); if(C_truep(t18)){ t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2807,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:369: show-frameinfo */ f_4848(t19,C_retrieve2(lf[7],"selected-frame"));} else{ t19=C_eqp(t2,lf[98]); if(C_truep(t19)){ t20=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2819,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2826,a[2]=t20,tmp=(C_word)a,a+=3,tmp); /* csi.scm:372: read */ t22=*((C_word*)lf[60]+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[102]); if(C_truep(t20)){ t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2839,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:375: read */ t22=*((C_word*)lf[60]+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[110]); if(C_truep(t21)){ t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2848,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:377: read-line */ t23=((C_word*)t0)[8];{ 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[111]); if(C_truep(t22)){ t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2867,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:382: display */ t24=*((C_word*)lf[99]+1);{ C_word av2[3]; av2[0]=t24; av2[1]=t23; av2[2]=lf[113]; ((C_proc)(void*)(*((C_word*)t24+1)))(3,av2);}} else{ t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2918,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:413: printf */ t24=*((C_word*)lf[84]+1);{ C_word av2[4]; av2[0]=t24; av2[1]=t23; av2[2]=lf[114]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t24+1)))(4,av2);}}}}}}}}}}}}}}}}}}}}}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2964,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2970,a[2]=((C_word*)t0)[10],tmp=(C_word)a,a+=3,tmp); /* csi.scm:416: ##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);}}} /* k3874 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3876,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_3885,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_3885(t6,((C_word*)t0)[4],((C_word*)t0)[2],t2);} /* k2467 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2469,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2472,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2479,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_2483,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csi.scm:315: expand */ t5=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_3873(C_word 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_3873,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3876,a[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:644: fprintf */ t3=*((C_word*)lf[153]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[194]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ if(C_truep(C_i_listp(((C_word*)t0)[2]))){ /* csi.scm:654: descseq */ t2=((C_word*)t0)[5];{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[195]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; av2[5]=C_fix(0); f_3494(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:655: fprintf */ t6=*((C_word*)lf[153]+1);{ C_word av2[6]; av2[0]=t6; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[196]; 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_3980,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_3984,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csi.scm:659: ##sys#peek-unsigned-integer */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[199]); C_word av2[4]; av2[0]=*((C_word*)lf[199]+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_3990,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:661: port? */ t3=C_fast_retrieve(lf[237]);{ 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);}}}}}} /* k4815 in doloop731 in k4689 in k4686 in doloop721 in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_4817,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4820,a[2]=((C_word*)t0)[2],a[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_4835,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_4839,a[2]=((C_word*)t0)[7],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* csi.scm:783: ref */ t5=((C_word*)t0)[8];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3859 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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,3)))){ C_save_and_reclaim((void *)f_3861,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_3777(2,av2);}} else{ /* csi.scm:624: display */ t2=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[189]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k2452 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2454,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6305 in k6299 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in ... */ static void C_ccall f_6307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6307,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[23],"chop-separator"); t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6314,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:1054: collect-options */ t9=((C_word*)((C_word*)t0)[4])[1]; f_5694(t9,t8,lf[327]);} /* k5506 in loop in canonicalize-args in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_5508(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_5508,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:953: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_5486(t5,((C_word*)t0)[5],t4);} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5522,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_5590,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csi.scm:954: substring */ t5=*((C_word*)lf[24]+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_5598,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:958: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_5486(t5,t2,t4);}} /* descseq in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3494(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_3494,6,av);} a=C_alloc(8); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3623,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:576: plen */ t7=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} /* csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2421(C_word c,C_word *av){ C_word tmp; C_word 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(11,c,2)))){ C_save_and_reclaim((void *)f_2421,3,av);} a=C_alloc(11); if(C_truep(C_eofp(t2))){ /* csi.scm:302: exit */ t3=C_fast_retrieve(lf[57]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2437,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],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(0)); t5=t3; f_2437(t5,C_eqp(lf[115],t4));} else{ t4=t3; f_2437(t4,C_SCHEME_FALSE);}}} /* k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in ... */ static void C_fcall f_5845(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,2)))){ C_save_and_reclaim_args((void *)trf_5845,2,t0,t1);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5848,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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)[8])){ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5848(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6475,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csi.scm:1042: load-verbose */ t4=C_fast_retrieve(lf[335]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in ... */ static void C_ccall f_5848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5848,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5851,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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_6460,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* csi.scm:1044: member* */ f_5425(t3,lf[334],((C_word*)((C_word*)t0)[6])[1]);} /* k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in ... */ static void C_ccall f_5842(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5842,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5845,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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_6481,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* csi.scm:1038: member* */ f_5425(t3,lf[338],((C_word*)((C_word*)t0)[6])[1]);} /* a3824 in k3808 in doloop536 in k3793 in k3781 in k3778 in k3775 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 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 *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_3825,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* csi.scm:641: write */ t3=*((C_word*)lf[178]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5520 in k5506 in loop in canonicalize-args in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 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_5522,2,av);} a=C_alloc(19); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5629,tmp=(C_word)a,a+=2,tmp); t3=( f_5629(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_5543,a[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_5551,a[2]=t6,a[3]=t10,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_5551(t12,t8,t1);} else{ /* csi.scm:957: ##sys#error */ t4=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[267]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 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 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_5854,2,av);} a=C_alloc(18); t2=C_i_check_list_2(t1,lf[106]); t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5860,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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_6436,a[2]=t5,a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_6436(t7,t3,t1);} /* k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in ... */ static void C_ccall f_5851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5851,2,av);} a=C_alloc(13); t2=C_fast_retrieve(lf[274]); t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5854,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((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:1048: collect-options */ t4=((C_word*)((C_word*)t0)[11])[1]; f_5694(t4,t3,lf[331]);} /* for-each-loop579 in doloop574 in k4164 in k4161 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in ... */ static void C_fcall f_4215(C_word t0,C_word t1,C_word 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_4215,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_4225,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:696: g580 */ t5=((C_word*)t0)[3]; f_4185(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);}}} /* f7572 in k6458 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in ... */ static void C_ccall f7572(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f7572,2,av);} /* csi.scm:1047: case-sensitive */ t2=C_fast_retrieve(lf[312]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_5823 in evalstring in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5823,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5545 in k5541 in k5520 in k5506 in loop in canonicalize-args in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5547,2,av);} /* csi.scm:956: append */ t2=*((C_word*)lf[231]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5541 in k5520 in k5506 in loop in canonicalize-args in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 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_5543,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5547,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:956: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_5486(t6,t3,t5);} /* k4204 in doloop574 in k4164 in k4161 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in ... */ static void C_ccall f_4206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_4206,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4177(t3,((C_word*)t0)[4],t2);} /* loop-print in k3874 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_3885(C_word t0,C_word t1,C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_3885,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:648: printf */ t6=*((C_word*)lf[84]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t1; av2[2]=lf[191]; ((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:650: fprintf */ t7=*((C_word*)lf[153]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[192]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t7=t2; t8=C_u_i_car(t7); if(C_truep(C_i_memq(t8,t3))){ 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);}} else{ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3916,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t10=t2; t11=C_u_i_car(t10); /* csi.scm:652: fprintf */ t12=*((C_word*)lf[153]+1);{ C_word av2[5]; av2[0]=t12; av2[1]=t9; av2[2]=((C_word*)t0)[2]; av2[3]=lf[193]; av2[4]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}}}} /* k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 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; 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_5836,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5839,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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[340],((C_word*)((C_word*)t0)[6])[1]))){ t3=C_set_block_item(lf[341] /* ##sys#setup-mode */,0,C_SCHEME_TRUE); t4=t2; f_5839(t4,t3);} else{ t3=t2; f_5839(t3,C_SCHEME_UNDEFINED);}} /* k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in ... */ static void C_fcall f_5839(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_5839,2,t0,t1);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5842,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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[339],((C_word*)((C_word*)t0)[6])[1]))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6494,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6501,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csi.scm:1036: chicken-version */ t5=C_fast_retrieve(lf[13]);{ 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_5842(2,av2);}}} /* lp in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static C_word C_fcall f_3456(C_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_i_car(t1); t3=C_eqp(t1,t2); if(C_truep(t3)){ return(t3);} else{ t4=t1; t5=C_u_i_cdr(t4); t7=t5; t1=t7; goto loop;}} else{ return(C_SCHEME_FALSE);}} /* k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 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(15,c,2)))){ C_save_and_reclaim((void *)f_5833,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5836,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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[342],((C_word*)((C_word*)t0)[6])[1]))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6511,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csi.scm:1031: print-banner */ f_1941(t3);} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5836(2,av2);}}} /* map-loop1059 in k5520 in k5506 in loop in canonicalize-args in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_5551(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_5551,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_mutate2(((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);}}} /* k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_3486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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,6)))){ C_save_and_reclaim((void *)f_3486,2,av);} a=C_alloc(19); t2=C_mutate2(&lf[149] /* (set! describer-table ...) */,t1); t3=*((C_word*)lf[150]+1); t4=*((C_word*)lf[151]+1); t5=*((C_word*)lf[152]+1); t6=C_mutate2(&lf[63] /* (set! describe ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3488,a[2]=t5,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp)); t7=C_mutate2((C_word*)lf[241]+1 /* (set! set-describer! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4488,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate2(&lf[65] /* (set! dump ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4497,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate2(&lf[215] /* (set! hexdump ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4645,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate2(&lf[97] /* (set! show-frameinfo ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4848,tmp=(C_word)a,a+=2,tmp)); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5420,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6705,a[2]=t11,tmp=(C_word)a,a+=3,tmp); /* csi.scm:913: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[378]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[378]+1); av2[1]=t12; tp(2,av2);}} /* describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_3488(C_word t0,C_word t1,C_word 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_3488,4,t0,t1,t2,t3);} a=C_alloc(17); t4=C_i_nullp(t3); t5=(C_truep(t4)?*((C_word*)lf[91]+1):C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3494,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3626,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_4480,a[2]=t8,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* csi.scm:599: ##sys#block-address */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]); C_word av2[3]; av2[0]=*((C_word*)lf[240]+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_3626(2,av2);}}} /* k2241 in history-add in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2243,2,av);} t2=C_mutate2(&lf[38] /* (set! history-list ...) */,t1); t3=((C_word*)t0)[2]; f_2229(t3,t2);} /* k6492 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in ... */ static void C_ccall f_6494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6494,2,av);} /* csi.scm:1037: exit */ t2=C_fast_retrieve(lf[57]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4666 in k4650 in justify in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_4668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4668,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[27]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4650 in justify in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 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_4652,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_4668,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:766: make-string */ t6=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* toplevel-command in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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=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_2371,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[49]); t9=(C_truep(t7)?C_i_check_string_2(t7,lf[49]):C_SCHEME_UNDEFINED); t10=C_i_assq(t2,C_retrieve2(lf[48],"command-table")); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2391,a[2]=t3,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t12=( /* csi.scm:280: g166 */ f_2391(C_a_i(&a,6),t11,t10) ); t13=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=*((C_word*)lf[41]+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[48],"command-table")); t13=C_mutate2(&lf[48] /* (set! command-table ...) */,t12); t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} /* history-add in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_2219(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_2219,3,t0,t1,t2);} a=C_alloc(7); t3=C_i_nullp(t2); t4=(C_truep(t3)?*((C_word*)lf[41]+1):C_slot(t2,C_fix(0))); t5=t4; t6=C_block_size(C_retrieve2(lf[38],"history-list")); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2229,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[18],"history-count"),t6))){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2243,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t9=C_fixnum_times(C_fix(2),t6); /* csi.scm:229: vector-resize */ t10=((C_word*)t0)[2];{ C_word av2[4]; av2[0]=t10; av2[1]=t8; av2[2]=C_retrieve2(lf[38],"history-list"); av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t8=t7; f_2229(t8,C_SCHEME_UNDEFINED);}} /* k4686 in doloop721 in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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(10,c,3)))){ C_save_and_reclaim((void *)f_4688,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,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],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); /* write-char/port */ t3=C_fast_retrieve(lf[249]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* doloop721 in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_4678(C_word t0,C_word t1,C_word 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_4678,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_4688,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_4846,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csi.scm:771: justify */ f_4648(t4,t2,C_fix(4),C_fix(10),C_make_character(32));}} /* k6586 in k6583 in k6580 in k6577 in k6574 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 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 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_6588,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[22]+1))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6597,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:994: lookup-script-file */ t6=C_retrieve2(lf[29],"lookup-script-file"); f_2112(t6,t4,t5);} else{ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[3]; f_5671(t5,t4);}} /* lp in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static C_word C_fcall f_3421(C_word t1,C_word t2){ C_word tmp; C_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);}} /* compare in k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_5192(C_word t0,C_word t1,C_word 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_5192,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_5203,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:876: substring */ t8=*((C_word*)lf[24]+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);}} /* k5188 in k2837 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_5190(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_5190,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5192,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_5223,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* csi.scm:878: call/cc */ t5=*((C_word*)lf[108]+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[41]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6580 in k6577 in k6574 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 in ... */ static void C_ccall f_6582(C_word c,C_word *av){ C_word tmp; C_word t0=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_6582,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6585,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:990: register-feature! */ t3=C_fast_retrieve(lf[274]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[356]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6583 in k6580 in k6577 in k6574 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in ... */ static void C_ccall f_6585(C_word c,C_word *av){ C_word tmp; C_word t0=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_6585,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6588,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:991: register-feature! */ t3=C_fast_retrieve(lf[274]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[355]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2817 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2819,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* def-len686 in dump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_4610(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_4610,2,t0,t1);} /* csi.scm:740: def-out687 */ t2=((C_word*)t0)[2]; f_4605(t2,t1,C_SCHEME_FALSE);} /* k2227 in history-add in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){ C_save_and_reclaim_args((void *)trf_2229,2,t0,t1);} t2=C_i_vector_set(C_retrieve2(lf[38],"history-list"),C_retrieve2(lf[18],"history-count"),((C_word*)t0)[2]); t3=C_fixnum_plus(C_retrieve2(lf[18],"history-count"),C_fix(1)); t4=lf[18] /* 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);}} /* k6548 in map-loop1164 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in ... */ 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 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_6550,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6525(t6,((C_word*)t0)[5],t5);} /* k2805 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2807,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4390 in g642 in k4364 in k4130 in k4016 in k3988 in k3871 in k3759 in k3624 in describe in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4392,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_4645(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_4645,5,t1,t2,t3,t4,t5);} a=C_alloc(12); t6=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4648,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_4678,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_4678(t10,t1,C_fix(0));} /* justify in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_4648(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_4648,5,t1,t2,t3,t4,t5);} a=C_alloc(5); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4652,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* csi.scm:763: number->string */ t7=*((C_word*)lf[248]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k3399 in map-loop395 in k3174 in k3157 in k3154 in k3151 in a3148 in k3145 in report in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 in ... */ static void C_ccall f_3401(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3401,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3376(t6,((C_word*)t0)[5],t5);} /* k2194 in loop in k2165 in k2158 in k2152 in k2135 in k2126 in k2114 in lookup-script-file in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2196,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[27]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6577 in k6574 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6579,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6582,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:988: command-line-arguments */ t5=C_fast_retrieve(lf[297]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* g166 in toplevel-command in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static C_word C_fcall f_2391(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));} /* k4844 in doloop721 in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_4846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4846,2,av);} /* csi.scm:771: display */ t2=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_4848(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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_4848,2,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4851,tmp=(C_word)a,a+=2,tmp); t4=C_fast_retrieve(lf[101]); t5=(C_truep(C_fast_retrieve(lf[101]))?C_fast_retrieve(lf[101]):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_4874,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_4874(t12,t10);} else{ if(C_truep(C_fixnum_greaterp(t8,C_fix(0)))){ t12=C_fixnum_difference(t8,C_fix(1)); t13=t11; f_4874(t13,C_i_list_ref(t6,t12));} else{ t12=t11; f_4874(t12,C_SCHEME_FALSE);}}} /* k6568 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6570,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_5677(t3,t2);} else{ t2=((C_word*)t0)[2]; f_5677(t2,((C_word*)t0)[3]);}} /* k6574 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6576,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6579,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:987: program-name */ t4=C_fast_retrieve(lf[357]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4833 in k4815 in doloop731 in k4689 in k4686 in doloop721 in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4835,2,av);} /* csi.scm:783: display */ t2=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4837 in k4815 in doloop731 in k4689 in k4686 in doloop721 in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4839,2,av);} /* csi.scm:783: justify */ f_4648(((C_word*)t0)[3],t1,C_fix(2),C_fix(16),C_make_character(48));} /* k6515 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6517,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6520,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_1917,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csi.scm:80: display */ t5=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[347]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_5833(2,av2);}}} /* k2180 in k2177 in loop in k2165 in k2158 in k2152 in k2135 in k2126 in k2114 in lookup-script-file in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2182,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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:215: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_2169(t3,((C_word*)t0)[2],t2);}} /* k6509 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 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,2)))){ C_save_and_reclaim((void *)f_6511,2,av);} /* csi.scm:1032: exit */ t2=C_fast_retrieve(lf[57]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* def-out687 in dump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_4605(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_4605,3,t0,t1,t2);} /* csi.scm:740: body684 */ t3=((C_word*)t0)[2]; f_4499(t3,t1,t2,*((C_word*)lf[91]+1));} /* collect-options in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in ... */ static void C_fcall f_5694(C_word 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_5694,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_5700,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_5700(t6,t1,((C_word*)((C_word*)t0)[2])[1]);} /* k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in ... */ static void C_ccall f_5692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_5692,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_5694,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_5776,tmp=(C_word)a,a+=2,tmp)); t9=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5833,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_6517,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* csi.scm:1027: member* */ f_5425(t10,lf[348],((C_word*)((C_word*)t0)[2])[1]);} /* prin1 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_4851(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_4851,2,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4857,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csi.scm:803: ##sys#with-print-length-limit */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[93]); C_word av2[4]; av2[0]=*((C_word*)lf[93]+1); av2[1]=t1; av2[2]=C_fix(100); av2[3]=t3; tp(4,av2);}} /* a4856 in prin1 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *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_4857,2,av);} /* csi.scm:806: ##sys#print */ t2=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[91]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k2684 in a2681 in k2675 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2686,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2691,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_2697,tmp=(C_word)a,a+=2,tmp); /* csi.scm:347: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a2681 in k2675 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *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_2682,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2686,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* csi.scm:347: ##sys#start-timer */ t3=*((C_word*)lf[80]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6559 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6561,2,av);} if(C_truep(t1)){ t2=t1; /* csi.scm:1005: string-split */ t3=C_fast_retrieve(lf[33]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=lf[349]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* csi.scm:1005: string-split */ t2=C_fast_retrieve(lf[33]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[350]; av2[3]=lf[349]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* doloop783 in k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_4883(C_word t0,C_word t1,C_word 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_4883,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[7],"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[104]); t13=t12; t14=(C_truep(t13)?C_slot(t11,C_fix(1)):t11); t15=t14; t16=*((C_word*)lf[91]+1); t17=*((C_word*)lf[91]+1); t18=C_i_check_port_2(*((C_word*)lf[91]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[84]); t19=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_4914,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:813: ##sys#print */ t20=*((C_word*)lf[92]+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[91]+1); ((C_proc)(void*)(*((C_word*)t20+1)))(5,av2);}} else{ /* csi.scm:813: ##sys#print */ t20=*((C_word*)lf[92]+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);}}}} /* a2696 in k2684 in a2681 in k2675 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +7,c,2)))){ C_save_and_reclaim((void*)f_2697,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_2701,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2708,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csi.scm:347: ##sys#stop-timer */ t5=*((C_word*)lf[79]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a2690 in k2684 in a2681 in k2675 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2691(C_word c,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_2691,2,av);} /* csi.scm:348: eval */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6225 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in ... */ static void C_ccall f_6227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6227,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6230,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ /* csi.scm:1069: parentheses-synonyms */ t3=C_fast_retrieve(lf[310]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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: display */ t3=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[317]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_5888(2,av2);}}} /* k2610 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2612,2,av);} /* csi.scm:339: string-split */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_5671(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_5671,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5674,a[2]=((C_word*)t0)[2],a[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:1000: member* */ f_5425(t2,lf[354],((C_word*)((C_word*)t0)[2])[1]);} /* map-loop1287 in k6299 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in ... */ static void C_fcall f_6356(C_word t0,C_word t1,C_word 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_6356,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_6381,a[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:1053: g1293 */ 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);}}} /* k4872 in show-frameinfo in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_4874(C_word t0,C_word 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_4874,2,t0,t1);} a=C_alloc(6); t2=C_mutate2(&lf[7] /* (set! 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_4883,a[2]=t5,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_4883(t7,((C_word*)t0)[4],((C_word*)t0)[5],t3);} /* k2666 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2668,2,av);} /* csi.scm:343: string-split */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a6816 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_6817(C_word c,C_word *av){ 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_6817,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6821,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* csi.scm:427: read */ t3=*((C_word*)lf[60]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6499 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6501,2,av);} /* csi.scm:1036: print */ t2=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6228 in k6225 in k5883 in k5880 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6230,2,av);} /* csi.scm:1069: parentheses-synonyms */ t2=C_fast_retrieve(lf[310]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in ... */ static void C_ccall f_5680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5680,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5683,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_5683(t3,((C_word*)t0)[4]);} else{ if(C_truep(t1)){ t3=t1; t4=t2; f_5683(t4,t3);} else{ t3=t2; f_5683(t3,((C_word*)t0)[6]);}}} /* k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in ... */ static void C_fcall f_5683(C_word t0,C_word t1){ C_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_5683,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[23],"chop-separator"); t8=(*a=C_CLOSURE_TYPE|11,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]=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_6561,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* csi.scm:1006: get-environment-variable */ t10=C_fast_retrieve(lf[36]);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=lf[351]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k4818 in k4815 in doloop731 in k4689 in k4686 in doloop721 in hexdump in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4820,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_4763(t4,((C_word*)t0)[5],t2,t3);} /* k2675 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2677,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2682,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_2710,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:347: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_5674,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5677,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_5677(t4,((C_word*)t0)[3]);} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6570,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csi.scm:1001: member* */ f_5425(t4,lf[353],((C_word*)((C_word*)t0)[2])[1]);}} /* k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 in ... */ static void C_fcall f_5677(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_5677,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5680,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:1002: member* */ f_5425(t3,lf[352],((C_word*)((C_word*)t0)[2])[1]);} /* k2541 in k2538 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_2543,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2546,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* csi.scm:333: eval */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2547 in k2544 in k2541 in k2538 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_2549,2,av);} a=C_alloc(3); /* csi.scm:335: dump */ f_4497(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* k2544 in k2541 in k2538 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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(4,c,2)))){ C_save_and_reclaim((void *)f_2546,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2549,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csi.scm:334: eval */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2538 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_2540,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2543,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* csi.scm:332: read */ t4=*((C_word*)lf[60]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* for-each-loop245 in k2619 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_fcall f_2643(C_word t0,C_word t1,C_word 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_2643,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_2653,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:343: g246 */ t5=((C_word*)t0)[3]; f_2622(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);}}} /* k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t3; C_word 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_1890,2,av);} a=C_alloc(6); t2=C_mutate2(&lf[0] /* (set! constant8 ...) */,lf[1]); t3=C_set_block_item(lf[2] /* ##sys#repl-print-length-limit */,0,C_fix(2048)); t4=C_a_i_cons(&a,2,lf[3],C_fast_retrieve(lf[4])); t5=C_mutate2((C_word*)lf[4]+1 /* (set! ##sys#features ...) */,t4); t6=C_set_block_item(lf[5] /* ##sys#notices-enabled */,0,C_SCHEME_TRUE); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1903,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:66: make-parameter */ t8=C_fast_retrieve(lf[404]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop1164 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in ... */ static void C_fcall f_6525(C_word t0,C_word t1,C_word 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_6525,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_6550,a[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:1004: g1170 */ 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);}}} /* k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in ... */ 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(17,c,3)))){ C_save_and_reclaim((void *)f_5689,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5692,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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|5,a[1]=(C_word)f_6525,a[2]=((C_word*)t0)[9],a[3]=t4,a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_6525(t6,t2,t1);} /* k6518 in k6515 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6520,2,av);} /* csi.scm:1029: exit */ t2=C_fast_retrieve(lf[57]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_5662,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_5665,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csi.scm:980: member* */ f_5425(t4,lf[361],((C_word*)t3)[1]);} /* k6379 in map-loop1287 in k6299 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in ... */ static void C_ccall f_6381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6381,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6356(t6,((C_word*)t0)[5],t5);} /* k2651 in for-each-loop245 in k2619 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ static void C_ccall f_2653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2653,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2643(t3,((C_word*)t0)[4],t2);} /* k2523 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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); /* csi.scm:328: eval */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2526 in k2523 in k2435 in csi-eval in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2528,2,av);} /* csi.scm:329: dump */ f_4497(((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in k1906 in k1901 in k1888 in k1885 in k1882 in k1879 in k1876 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_5659,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5662,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_6679,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csi.scm:978: command-line-arguments */ t5=C_fast_retrieve(lf[297]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k6312 in k6305 in k6299 in k5876 in k5870 in k5867 in k5861 in k5858 in k5852 in k5849 in k5846 in k5843 in k5840 in k5837 in k5834 in k5831 in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 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 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_6314,2,av);} a=C_alloc(13); t2=C_i_check_list_2(t1,lf[230]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6320,a[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_6322,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_6322(t7,t3,t1);} /* g1203 in loop in collect-options in k5690 in k5687 in k5681 in k5678 in k5675 in k5672 in k5669 in k5666 in k5663 in k5660 in k5657 in k5418 in k3484 in k3136 in k3133 in k2988 in k2341 in k2040 in k1909 in ... */ static void C_fcall f_5708(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_5708,3,t0,t1,t2);} a=C_alloc(4); t3=C_i_cdr(t2); if(C_truep(C_i_nullp(t3))){ /* csi.scm:1013: ##sys#error */ t4=*((C_word*)lf[42]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=lf[271]; 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_5729,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:1014: loop */ t10=((C_word*)((C_word*)t0)[3])[1]; f_5700(t10,t6,t9);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[500] = { {"f_5700:csi_2escm",(void*)f_5700}, {"f_2622:csi_2escm",(void*)f_2622}, {"f_2628:csi_2escm",(void*)f_2628}, {"f_2621:csi_2escm",(void*)f_2621}, {"f_5665:csi_2escm",(void*)f_5665}, {"f_5668:csi_2escm",(void*)f_5668}, {"f_2498:csi_2escm",(void*)f_2498}, {"f_6320:csi_2escm",(void*)f_6320}, {"f_6322:csi_2escm",(void*)f_6322}, {"f_6869:csi_2escm",(void*)f_6869}, {"f_2632:csi_2escm",(void*)f_2632}, {"f_2638:csi_2escm",(void*)f_2638}, {"f_2472:csi_2escm",(void*)f_2472}, {"f_2483:csi_2escm",(void*)f_2483}, {"f_2479:csi_2escm",(void*)f_2479}, {"f_4480:csi_2escm",(void*)f_4480}, {"f_4488:csi_2escm",(void*)f_4488}, {"f_6882:csi_2escm",(void*)f_6882}, {"f_6880:csi_2escm",(void*)f_6880}, {"f_4185:csi_2escm",(void*)f_4185}, {"f_1887:csi_2escm",(void*)f_1887}, {"f_1881:csi_2escm",(void*)f_1881}, {"f_1884:csi_2escm",(void*)f_1884}, {"f_3267:csi_2escm",(void*)f_3267}, {"f_6893:csi_2escm",(void*)f_6893}, {"f_4177:csi_2escm",(void*)f_4177}, {"f_6890:csi_2escm",(void*)f_6890}, {"f_6347:csi_2escm",(void*)f_6347}, {"f_1878:csi_2escm",(void*)f_1878}, {"f_3259:csi_2escm",(void*)f_3259}, {"f_5629:csi_2escm",(void*)f_5629}, {"f_4166:csi_2escm",(void*)f_4166}, {"f_4163:csi_2escm",(void*)f_4163}, {"f_3243:csi_2escm",(void*)f_3243}, {"f_3240:csi_2escm",(void*)f_3240}, {"f_6149:csi_2escm",(void*)f_6149}, {"f_6146:csi_2escm",(void*)f_6146}, {"f_5763:csi_2escm",(void*)f_5763}, {"f_4151:csi_2escm",(void*)f_4151}, {"f_3231:csi_2escm",(void*)f_3231}, {"f_3237:csi_2escm",(void*)f_3237}, {"f_3234:csi_2escm",(void*)f_3234}, {"f_6301:csi_2escm",(void*)f_6301}, {"f_5776:csi_2escm",(void*)f_5776}, {"f_4712:csi_2escm",(void*)f_4712}, {"f_5770:csi_2escm",(void*)f_5770}, {"f_3139:csi_2escm",(void*)f_3139}, {"f_3138:csi_2escm",(void*)f_3138}, {"f_3135:csi_2escm",(void*)f_3135}, {"f_2495:csi_2escm",(void*)f_2495}, {"f_2492:csi_2escm",(void*)f_2492}, {"f_6697:csi_2escm",(void*)f_6697}, {"f_6695:csi_2escm",(void*)f_6695}, {"f_6692:csi_2escm",(void*)f_6692}, {"f_5425:csi_2escm",(void*)f_5425}, {"f_5783:csi_2escm",(void*)f_5783}, {"f_4132:csi_2escm",(void*)f_4132}, {"f_4703:csi_2escm",(void*)f_4703}, {"f_5420:csi_2escm",(void*)f_5420}, {"f_4138:csi_2escm",(void*)f_4138}, {"f_6163:csi_2escm",(void*)f_6163}, {"f_4700:csi_2escm",(void*)f_4700}, {"f_3291:csi_2escm",(void*)f_3291}, {"toplevel:csi_2escm",(void*)C_toplevel}, {"f_2513:csi_2escm",(void*)f_2513}, {"f_2510:csi_2escm",(void*)f_2510}, {"f_4126:csi_2escm",(void*)f_4126}, {"f_5431:csi_2escm",(void*)f_5431}, {"f_3287:csi_2escm",(void*)f_3287}, {"f_5792:csi_2escm",(void*)f_5792}, {"f_5790:csi_2escm",(void*)f_5790}, {"f_3283:csi_2escm",(void*)f_3283}, {"f_6109:csi_2escm",(void*)f_6109}, {"f_3115:csi_2escm",(void*)f_3115}, {"f_5486:csi_2escm",(void*)f_5486}, {"f_3275:csi_2escm",(void*)f_3275}, {"f_3279:csi_2escm",(void*)f_3279}, {"f_5480:csi_2escm",(void*)f_5480}, {"f_3271:csi_2escm",(void*)f_3271}, {"f_6119:csi_2escm",(void*)f_6119}, {"f_5417:csi_2escm",(void*)f_5417}, {"f_4405:csi_2escm",(void*)f_4405}, {"f_3506:csi_2escm",(void*)f_3506}, {"f_3501:csi_2escm",(void*)f_3501}, {"f_6113:csi_2escm",(void*)f_6113}, {"f_4411:csi_2escm",(void*)f_4411}, {"f_5443:csi_2escm",(void*)f_5443}, {"f_4449:csi_2escm",(void*)f_4449}, {"f_4797:csi_2escm",(void*)f_4797}, {"f_4436:csi_2escm",(void*)f_4436}, {"f_1948:csi_2escm",(void*)f_1948}, {"f_1941:csi_2escm",(void*)f_1941}, {"f_1945:csi_2escm",(void*)f_1945}, {"f_4763:csi_2escm",(void*)f_4763}, {"f_6182:csi_2escm",(void*)f_6182}, {"f_2854:csi_2escm",(void*)f_2854}, {"f_6197:csi_2escm",(void*)f_6197}, {"f_6194:csi_2escm",(void*)f_6194}, {"f_2826:csi_2escm",(void*)f_2826}, {"f_3701:csi_2escm",(void*)f_3701}, {"f_2839:csi_2escm",(void*)f_2839}, {"f_2889:csi_2escm",(void*)f_2889}, {"f_6000:csi_2escm",(void*)f_6000}, {"f_3551:csi_2escm",(void*)f_3551}, {"f_2894:csi_2escm",(void*)f_2894}, {"f_6017:csi_2escm",(void*)f_6017}, {"f_2867:csi_2escm",(void*)f_2867}, {"f_3916:csi_2escm",(void*)f_3916}, {"f_5245:csi_2escm",(void*)f_5245}, {"f_3980:csi_2escm",(void*)f_3980}, {"f_3984:csi_2escm",(void*)f_3984}, {"f_5203:csi_2escm",(void*)f_5203}, {"f_5270:csi_2escm",(void*)f_5270}, {"f_3548:csi_2escm",(void*)f_3548}, {"f_4917:csi_2escm",(void*)f_4917}, {"f_4914:csi_2escm",(void*)f_4914}, {"f_3990:csi_2escm",(void*)f_3990}, {"f_5279:csi_2escm",(void*)f_5279}, {"f_3538:csi_2escm",(void*)f_3538}, {"f_3529:csi_2escm",(void*)f_3529}, {"f_5092:csi_2escm",(void*)f_5092}, {"f_5729:csi_2escm",(void*)f_5729}, {"f_3580:csi_2escm",(void*)f_3580}, {"f_6904:csi_2escm",(void*)f_6904}, {"f_6900:csi_2escm",(void*)f_6900}, {"f_5075:csi_2escm",(void*)f_5075}, {"f_5078:csi_2escm",(void*)f_5078}, {"f_5745:csi_2escm",(void*)f_5745}, {"f_5133:csi_2escm",(void*)f_5133}, {"f_6913:csi_2escm",(void*)f_6913}, {"f_5041:csi_2escm",(void*)f_5041}, {"f_6821:csi_2escm",(void*)f_6821}, {"f_5757:csi_2escm",(void*)f_5757}, {"f_6824:csi_2escm",(void*)f_6824}, {"f_5285:csi_2escm",(void*)f_5285}, {"f_3761:csi_2escm",(void*)f_3761}, {"f_3768:csi_2escm",(void*)f_3768}, {"f_2318:csi_2escm",(void*)f_2318}, {"f_6833:csi_2escm",(void*)f_6833}, {"f_5295:csi_2escm",(void*)f_5295}, {"f_4502:csi_2escm",(void*)f_4502}, {"f_6848:csi_2escm",(void*)f_6848}, {"f_4994:csi_2escm",(void*)f_4994}, {"f_4991:csi_2escm",(void*)f_4991}, {"f_4997:csi_2escm",(void*)f_4997}, {"f_2287:csi_2escm",(void*)f_2287}, {"f_5031:csi_2escm",(void*)f_5031}, {"f_6852:csi_2escm",(void*)f_6852}, {"f_6856:csi_2escm",(void*)f_6856}, {"f_6390:csi_2escm",(void*)f_6390}, {"f_4985:csi_2escm",(void*)f_4985}, {"f_4988:csi_2escm",(void*)f_4988}, {"f_2299:csi_2escm",(void*)f_2299}, {"f_4972:csi_2escm",(void*)f_4972}, {"f_2296:csi_2escm",(void*)f_2296}, {"f_2293:csi_2escm",(void*)f_2293}, {"f_2290:csi_2escm",(void*)f_2290}, {"f_4967:csi_2escm",(void*)f_4967}, {"f_4261:csi_2escm",(void*)f_4261}, {"f_4260:csi_2escm",(void*)f_4260}, {"f_4265:csi_2escm",(void*)f_4265}, {"f_3795:csi_2escm",(void*)f_3795}, {"f_3780:csi_2escm",(void*)f_3780}, {"f_2274:csi_2escm",(void*)f_2274}, {"f_4297:csi_2escm",(void*)f_4297}, {"f_4957:csi_2escm",(void*)f_4957}, {"f_3783:csi_2escm",(void*)f_3783}, {"f_3374:csi_2escm",(void*)f_3374}, {"f_3376:csi_2escm",(void*)f_3376}, {"f_6460:csi_2escm",(void*)f_6460}, {"f_6463:csi_2escm",(void*)f_6463}, {"f_6466:csi_2escm",(void*)f_6466}, {"f_2365:csi_2escm",(void*)f_2365}, {"f_4941:csi_2escm",(void*)f_4941}, {"f_3777:csi_2escm",(void*)f_3777}, {"f_4944:csi_2escm",(void*)f_4944}, {"f_4284:csi_2escm",(void*)f_4284}, {"f_4932:csi_2escm",(void*)f_4932}, {"f_4935:csi_2escm",(void*)f_4935}, {"f_4938:csi_2escm",(void*)f_4938}, {"f_4697:csi_2escm",(void*)f_4697}, {"f_4691:csi_2escm",(void*)f_4691}, {"f_4694:csi_2escm",(void*)f_4694}, {"f_3356:csi_2escm",(void*)f_3356}, {"f_6481:csi_2escm",(void*)f_6481}, {"f_6484:csi_2escm",(void*)f_6484}, {"f_2343:csi_2escm",(void*)f_2343}, {"f_4225:csi_2escm",(void*)f_4225}, {"f_4920:csi_2escm",(void*)f_4920}, {"f_4923:csi_2escm",(void*)f_4923}, {"f_4926:csi_2escm",(void*)f_4926}, {"f_4929:csi_2escm",(void*)f_4929}, {"f_4370:csi_2escm",(void*)f_4370}, {"f_3341:csi_2escm",(void*)f_3341}, {"f_2090:csi_2escm",(void*)f_2090}, {"f_3346:csi_2escm",(void*)f_3346}, {"f_6423:csi_2escm",(void*)f_6423}, {"f_6475:csi_2escm",(void*)f_6475}, {"f_2358:csi_2escm",(void*)f_2358}, {"f_4274:csi_2escm",(void*)f_4274}, {"f_4384:csi_2escm",(void*)f_4384}, {"f_3319:csi_2escm",(void*)f_3319}, {"f_6446:csi_2escm",(void*)f_6446}, {"f_2308:csi_2escm",(void*)f_2308}, {"f_4339:csi_2escm",(void*)f_4339}, {"f_6413:csi_2escm",(void*)f_6413}, {"f_4366:csi_2escm",(void*)f_4366}, {"f_2137:csi_2escm",(void*)f_2137}, {"f_2128:csi_2escm",(void*)f_2128}, {"f_6436:csi_2escm",(void*)f_6436}, {"f_2112:csi_2escm",(void*)f_2112}, {"f_2116:csi_2escm",(void*)f_2116}, {"f_4725:csi_2escm",(void*)f_4725}, {"f_4728:csi_2escm",(void*)f_4728}, {"f_6400:csi_2escm",(void*)f_6400}, {"f_2103:csi_2escm",(void*)f_2103}, {"f_4577:csi_2escm",(void*)f_4577}, {"f_4329:csi_2escm",(void*)f_4329}, {"f_4567:csi_2escm",(void*)f_4567}, {"f_3214:csi_2escm",(void*)f_3214}, {"f_5905:csi_2escm",(void*)f_5905}, {"f_5900:csi_2escm",(void*)f_5900}, {"f_2179:csi_2escm",(void*)f_2179}, {"f_2167:csi_2escm",(void*)f_2167}, {"f_2160:csi_2escm",(void*)f_2160}, {"f_3206:csi_2escm",(void*)f_3206}, {"f_5918:csi_2escm",(void*)f_5918}, {"f_2169:csi_2escm",(void*)f_2169}, {"f_2154:csi_2escm",(void*)f_2154}, {"f_2151:csi_2escm",(void*)f_2151}, {"f_2783:csi_2escm",(void*)f_2783}, {"f_2714:csi_2escm",(void*)f_2714}, {"f_4302:csi_2escm",(void*)f_4302}, {"f_2710:csi_2escm",(void*)f_2710}, {"f_4009:csi_2escm",(void*)f_4009}, {"f_3147:csi_2escm",(void*)f_3147}, {"f_6711:csi_2escm",(void*)f_6711}, {"f_3149:csi_2escm",(void*)f_3149}, {"f_2147:csi_2escm",(void*)f_2147}, {"f_2795:csi_2escm",(void*)f_2795}, {"f_6709:csi_2escm",(void*)f_6709}, {"f_2140:csi_2escm",(void*)f_2140}, {"f_2701:csi_2escm",(void*)f_2701}, {"f_6705:csi_2escm",(void*)f_6705}, {"f_2708:csi_2escm",(void*)f_2708}, {"f_4531:csi_2escm",(void*)f_4531}, {"f_3179:csi_2escm",(void*)f_3179}, {"f_3176:csi_2escm",(void*)f_3176}, {"f_4025:csi_2escm",(void*)f_4025}, {"f_2767:csi_2escm",(void*)f_2767}, {"f_2763:csi_2escm",(void*)f_2763}, {"f_4524:csi_2escm",(void*)f_4524}, {"f_3121:csi_2escm",(void*)f_3121}, {"f_3127:csi_2escm",(void*)f_3127}, {"f_2774:csi_2escm",(void*)f_2774}, {"f_4018:csi_2escm",(void*)f_4018}, {"f_3153:csi_2escm",(void*)f_3153}, {"f_1908:csi_2escm",(void*)f_1908}, {"f_3156:csi_2escm",(void*)f_3156}, {"f_1903:csi_2escm",(void*)f_1903}, {"f_3159:csi_2escm",(void*)f_3159}, {"f_5809:csi_2escm",(void*)f_5809}, {"f_5802:csi_2escm",(void*)f_5802}, {"f_2745:csi_2escm",(void*)f_2745}, {"f_3184:csi_2escm",(void*)f_3184}, {"f_3180:csi_2escm",(void*)f_3180}, {"f_5815:csi_2escm",(void*)f_5815}, {"f_5813:csi_2escm",(void*)f_5813}, {"f_2729:csi_2escm",(void*)f_2729}, {"f_6597:csi_2escm",(void*)f_6597}, {"f_3169:csi_2escm",(void*)f_3169}, {"f_6774:csi_2escm",(void*)f_6774}, {"f_3161:csi_2escm",(void*)f_3161}, {"f_2597:csi_2escm",(void*)f_2597}, {"f_3197:csi_2escm",(void*)f_3197}, {"f_6206:csi_2escm",(void*)f_6206}, {"f_6203:csi_2escm",(void*)f_6203}, {"f_6200:csi_2escm",(void*)f_6200}, {"f_4548:csi_2escm",(void*)f_4548}, {"f_6215:csi_2escm",(void*)f_6215}, {"f_6218:csi_2escm",(void*)f_6218}, {"f_2579:csi_2escm",(void*)f_2579}, {"f_6662:csi_2escm",(void*)f_6662}, {"f_2582:csi_2escm",(void*)f_2582}, {"f_2587:csi_2escm",(void*)f_2587}, {"f_3608:csi_2escm",(void*)f_3608}, {"f_5364:csi_2escm",(void*)f_5364}, {"f_1911:csi_2escm",(void*)f_1911}, {"f_5362:csi_2escm",(void*)f_5362}, {"f_6675:csi_2escm",(void*)f_6675}, {"f_1917:csi_2escm",(void*)f_1917}, {"f_6679:csi_2escm",(void*)f_6679}, {"f_1986:csi_2escm",(void*)f_1986}, {"f_6683:csi_2escm",(void*)f_6683}, {"f_5888:csi_2escm",(void*)f_5888}, {"f_6689:csi_2escm",(void*)f_6689}, {"f_5885:csi_2escm",(void*)f_5885}, {"f_4499:csi_2escm",(void*)f_4499}, {"f_4497:csi_2escm",(void*)f_4497}, {"f_5882:csi_2escm",(void*)f_5882}, {"f_5897:csi_2escm",(void*)f_5897}, {"f_5894:csi_2escm",(void*)f_5894}, {"f_5891:csi_2escm",(void*)f_5891}, {"f_5355:csi_2escm",(void*)f_5355}, {"f_1927:csi_2escm",(void*)f_1927}, {"f_1920:csi_2escm",(void*)f_1920}, {"f_2918:csi_2escm",(void*)f_2918}, {"f_5869:csi_2escm",(void*)f_5869}, {"f_5863:csi_2escm",(void*)f_5863}, {"f_5860:csi_2escm",(void*)f_5860}, {"f_1957:csi_2escm",(void*)f_1957}, {"f_2904:csi_2escm",(void*)f_2904}, {"f_1955:csi_2escm",(void*)f_1955}, {"f_5878:csi_2escm",(void*)f_5878}, {"f_5872:csi_2escm",(void*)f_5872}, {"f_5374:csi_2escm",(void*)f_5374}, {"f_1974:csi_2escm",(void*)f_1974}, {"f_5230:csi_2escm",(void*)f_5230}, {"f_6294:csi_2escm",(void*)f_6294}, {"f_5319:csi_2escm",(void*)f_5319}, {"f_5223:csi_2escm",(void*)f_5223}, {"f_5313:csi_2escm",(void*)f_5313}, {"f_5316:csi_2escm",(void*)f_5316}, {"f_5226:csi_2escm",(void*)f_5226}, {"f_6128:csi_2escm",(void*)f_6128}, {"f_3816:csi_2escm",(void*)f_3816}, {"f_3813:csi_2escm",(void*)f_3813}, {"f_5310:csi_2escm",(void*)f_5310}, {"f_3810:csi_2escm",(void*)f_3810}, {"f_6125:csi_2escm",(void*)f_6125}, {"f_5233:csi_2escm",(void*)f_5233}, {"f_6122:csi_2escm",(void*)f_6122}, {"f_1996:csi_2escm",(void*)f_1996}, {"f_1994:csi_2escm",(void*)f_1994}, {"f_3800:csi_2escm",(void*)f_3800}, {"f_2077:csi_2escm",(void*)f_2077}, {"f_2071:csi_2escm",(void*)f_2071}, {"f_5942:csi_2escm",(void*)f_5942}, {"f_6133:csi_2escm",(void*)f_6133}, {"f_2068:csi_2escm",(void*)f_2068}, {"f_2061:csi_2escm",(void*)f_2061}, {"f_5307:csi_2escm",(void*)f_5307}, {"f_2011:csi_2escm",(void*)f_2011}, {"f_5971:csi_2escm",(void*)f_5971}, {"f_5985:csi_2escm",(void*)f_5985}, {"f_2024:csi_2escm",(void*)f_2024}, {"f_5926:csi_2escm",(void*)f_5926}, {"f_3695:csi_2escm",(void*)f_3695}, {"f_3098:csi_2escm",(void*)f_3098}, {"f_3096:csi_2escm",(void*)f_3096}, {"f_5923:csi_2escm",(void*)f_5923}, {"f_3088:csi_2escm",(void*)f_3088}, {"f_3082:csi_2escm",(void*)f_3082}, {"f_6069:csi_2escm",(void*)f_6069}, {"f_2996:csi_2escm",(void*)f_2996}, {"f_2990:csi_2escm",(void*)f_2990}, {"f_3076:csi_2escm",(void*)f_3076}, {"f_6734:csi_2escm",(void*)f_6734}, {"f_3070:csi_2escm",(void*)f_3070}, {"f_6079:csi_2escm",(void*)f_6079}, {"f_6077:csi_2escm",(void*)f_6077}, {"f_3064:csi_2escm",(void*)f_3064}, {"f_2974:csi_2escm",(void*)f_2974}, {"f_2970:csi_2escm",(void*)f_2970}, {"f_3055:csi_2escm",(void*)f_3055}, {"f_6754:csi_2escm",(void*)f_6754}, {"f_3858:csi_2escm",(void*)f_3858}, {"f_6025:csi_2escm",(void*)f_6025}, {"f_6762:csi_2escm",(void*)f_6762}, {"f_3849:csi_2escm",(void*)f_3849}, {"f_2851:csi_2escm",(void*)f_2851}, {"f_3030:csi_2escm",(void*)f_3030}, {"f_2964:csi_2escm",(void*)f_2964}, {"f_5590:csi_2escm",(void*)f_5590}, {"f_2848:csi_2escm",(void*)f_2848}, {"f_5598:csi_2escm",(void*)f_5598}, {"f_6040:csi_2escm",(void*)f_6040}, {"f_3022:csi_2escm",(void*)f_3022}, {"f_3629:csi_2escm",(void*)f_3629}, {"f_6048:csi_2escm",(void*)f_6048}, {"f_3623:csi_2escm",(void*)f_3623}, {"f_3626:csi_2escm",(void*)f_3626}, {"f_3010:csi_2escm",(void*)f_3010}, {"f_3019:csi_2escm",(void*)f_3019}, {"f_3013:csi_2escm",(void*)f_3013}, {"f_6058:csi_2escm",(void*)f_6058}, {"f_4807:csi_2escm",(void*)f_4807}, {"f_2042:csi_2escm",(void*)f_2042}, {"f_6721:csi_2escm",(void*)f_6721}, {"f_2437:csi_2escm",(void*)f_2437}, {"f_3876:csi_2escm",(void*)f_3876}, {"f_2469:csi_2escm",(void*)f_2469}, {"f_3873:csi_2escm",(void*)f_3873}, {"f_4817:csi_2escm",(void*)f_4817}, {"f_3861:csi_2escm",(void*)f_3861}, {"f_2454:csi_2escm",(void*)f_2454}, {"f_6307:csi_2escm",(void*)f_6307}, {"f_5508:csi_2escm",(void*)f_5508}, {"f_3494:csi_2escm",(void*)f_3494}, {"f_2421:csi_2escm",(void*)f_2421}, {"f_5845:csi_2escm",(void*)f_5845}, {"f_5848:csi_2escm",(void*)f_5848}, {"f_5842:csi_2escm",(void*)f_5842}, {"f_3825:csi_2escm",(void*)f_3825}, {"f_5522:csi_2escm",(void*)f_5522}, {"f_5854:csi_2escm",(void*)f_5854}, {"f_5851:csi_2escm",(void*)f_5851}, {"f_4215:csi_2escm",(void*)f_4215}, {"f7572:csi_2escm",(void*)f7572}, {"f_5823:csi_2escm",(void*)f_5823}, {"f_5547:csi_2escm",(void*)f_5547}, {"f_5543:csi_2escm",(void*)f_5543}, {"f_4206:csi_2escm",(void*)f_4206}, {"f_3885:csi_2escm",(void*)f_3885}, {"f_5836:csi_2escm",(void*)f_5836}, {"f_5839:csi_2escm",(void*)f_5839}, {"f_3456:csi_2escm",(void*)f_3456}, {"f_5833:csi_2escm",(void*)f_5833}, {"f_5551:csi_2escm",(void*)f_5551}, {"f_3486:csi_2escm",(void*)f_3486}, {"f_3488:csi_2escm",(void*)f_3488}, {"f_2243:csi_2escm",(void*)f_2243}, {"f_6494:csi_2escm",(void*)f_6494}, {"f_4668:csi_2escm",(void*)f_4668}, {"f_4652:csi_2escm",(void*)f_4652}, {"f_2371:csi_2escm",(void*)f_2371}, {"f_2219:csi_2escm",(void*)f_2219}, {"f_4688:csi_2escm",(void*)f_4688}, {"f_4678:csi_2escm",(void*)f_4678}, {"f_6588:csi_2escm",(void*)f_6588}, {"f_3421:csi_2escm",(void*)f_3421}, {"f_5192:csi_2escm",(void*)f_5192}, {"f_5190:csi_2escm",(void*)f_5190}, {"f_6582:csi_2escm",(void*)f_6582}, {"f_6585:csi_2escm",(void*)f_6585}, {"f_2819:csi_2escm",(void*)f_2819}, {"f_4610:csi_2escm",(void*)f_4610}, {"f_2229:csi_2escm",(void*)f_2229}, {"f_6550:csi_2escm",(void*)f_6550}, {"f_2807:csi_2escm",(void*)f_2807}, {"f_4392:csi_2escm",(void*)f_4392}, {"f_4645:csi_2escm",(void*)f_4645}, {"f_4648:csi_2escm",(void*)f_4648}, {"f_3401:csi_2escm",(void*)f_3401}, {"f_2196:csi_2escm",(void*)f_2196}, {"f_6579:csi_2escm",(void*)f_6579}, {"f_2391:csi_2escm",(void*)f_2391}, {"f_4846:csi_2escm",(void*)f_4846}, {"f_4848:csi_2escm",(void*)f_4848}, {"f_6570:csi_2escm",(void*)f_6570}, {"f_6576:csi_2escm",(void*)f_6576}, {"f_4835:csi_2escm",(void*)f_4835}, {"f_4839:csi_2escm",(void*)f_4839}, {"f_6517:csi_2escm",(void*)f_6517}, {"f_2182:csi_2escm",(void*)f_2182}, {"f_6511:csi_2escm",(void*)f_6511}, {"f_4605:csi_2escm",(void*)f_4605}, {"f_5694:csi_2escm",(void*)f_5694}, {"f_5692:csi_2escm",(void*)f_5692}, {"f_4851:csi_2escm",(void*)f_4851}, {"f_4857:csi_2escm",(void*)f_4857}, {"f_2686:csi_2escm",(void*)f_2686}, {"f_2682:csi_2escm",(void*)f_2682}, {"f_6561:csi_2escm",(void*)f_6561}, {"f_4883:csi_2escm",(void*)f_4883}, {"f_2697:csi_2escm",(void*)f_2697}, {"f_2691:csi_2escm",(void*)f_2691}, {"f_6227:csi_2escm",(void*)f_6227}, {"f_2612:csi_2escm",(void*)f_2612}, {"f_5671:csi_2escm",(void*)f_5671}, {"f_6356:csi_2escm",(void*)f_6356}, {"f_4874:csi_2escm",(void*)f_4874}, {"f_2668:csi_2escm",(void*)f_2668}, {"f_6817:csi_2escm",(void*)f_6817}, {"f_6501:csi_2escm",(void*)f_6501}, {"f_6230:csi_2escm",(void*)f_6230}, {"f_5680:csi_2escm",(void*)f_5680}, {"f_5683:csi_2escm",(void*)f_5683}, {"f_4820:csi_2escm",(void*)f_4820}, {"f_2677:csi_2escm",(void*)f_2677}, {"f_5674:csi_2escm",(void*)f_5674}, {"f_5677:csi_2escm",(void*)f_5677}, {"f_2543:csi_2escm",(void*)f_2543}, {"f_2549:csi_2escm",(void*)f_2549}, {"f_2546:csi_2escm",(void*)f_2546}, {"f_2540:csi_2escm",(void*)f_2540}, {"f_2643:csi_2escm",(void*)f_2643}, {"f_1890:csi_2escm",(void*)f_1890}, {"f_6525:csi_2escm",(void*)f_6525}, {"f_5689:csi_2escm",(void*)f_5689}, {"f_6520:csi_2escm",(void*)f_6520}, {"f_5662:csi_2escm",(void*)f_5662}, {"f_6381:csi_2escm",(void*)f_6381}, {"f_2653:csi_2escm",(void*)f_2653}, {"f_2525:csi_2escm",(void*)f_2525}, {"f_2528:csi_2escm",(void*)f_2528}, {"f_5659:csi_2escm",(void*)f_5659}, {"f_6314:csi_2escm",(void*)f_6314}, {"f_5708:csi_2escm",(void*)f_5708}, {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| map 7 S| for-each 11 S| printf 4 o|eliminated procedure checks: 147 o|eliminated procedure checks: 1 o|specializations: o| 7 (string=? string string) o| 1 (set-cdr! pair *) o| 2 (cddr (pair * pair)) o| 2 (char=? char char) o| 3 (cadr (pair * pair)) o| 1 (min fixnum fixnum) o| 1 (memq * list) o| 22 (cdr pair) o| 1 (current-output-port) o| 8 (car pair) o| 2 (zero? fixnum) o| 5 (##sys#check-list (or pair list) *) o| 29 (eqv? * (not float)) o| 4 (##sys#check-output-port * * *) o| 1 (> fixnum fixnum) o| 4 (string-append string string) o| 1 (make-string fixnum) (o e)|safe calls: 740 (o e)|assignments to immediate values: 5 o|safe globals: (##sys#repl-print-length-limit constant8 constant3 constant0) o|Removed `not' forms: 8 o|substituted constant variable: constant3 o|substituted constant variable: constant0 o|inlining procedure: k1959 o|inlining procedure: k1959 o|inlining procedure: k2001 o|inlining procedure: k2001 o|inlining procedure: k2019 o|inlining procedure: k2019 o|inlining procedure: k2063 o|inlining procedure: k2063 o|substituted constant variable: a2079 o|inlining procedure: k2117 o|inlining procedure: k2132 o|contracted procedure: "(csi.scm:206) _getcwd60" o|inlining procedure: k2132 o|inlining procedure: k2171 o|inlining procedure: k2171 o|substituted constant variable: a2202 o|contracted procedure: "(csi.scm:205) string-index71" o|inlining procedure: k2092 o|inlining procedure: k2092 o|inlining procedure: k2117 o|substituted constant variable: a2212 o|inlining procedure: k2276 o|propagated global variable: out123127 ##sys#standard-output o|substituted constant variable: a2283 o|substituted constant variable: a2284 o|inlining procedure: k2276 o|propagated global variable: out123127 ##sys#standard-output o|inlining procedure: k2323 o|inlining procedure: k2323 o|inlining procedure: k2360 o|inlining procedure: k2360 o|contracted procedure: "(csi.scm:273) tty-input?" o|inlining procedure: k2350 o|inlining procedure: k2350 o|inlining procedure: k2385 o|inlining procedure: k2385 o|inlining procedure: k2423 o|inlining procedure: k2423 o|inlining procedure: k2444 o|contracted procedure: "(csi.scm:305) g198199" o|inlining procedure: k2444 o|inlining procedure: k2484 o|inlining procedure: k2484 o|consed rest parameter at call site: "(csi.scm:325) describe" 2 o|inlining procedure: k2517 o|consed rest parameter at call site: "(csi.scm:329) dump" 2 o|inlining procedure: k2517 o|consed rest parameter at call site: "(csi.scm:335) dump" 2 o|inlining procedure: k2553 o|consed rest parameter at call site: "(csi.scm:336) report" 1 o|inlining procedure: k2553 o|inlining procedure: k2571 o|inlining procedure: k2589 o|inlining procedure: k2589 o|inlining procedure: k2571 o|inlining procedure: k2645 o|inlining procedure: k2645 o|inlining procedure: k2669 o|inlining procedure: k2669 o|inlining procedure: k2724 o|consed rest parameter at call site: "(csi.scm:354) describe" 2 o|inlining procedure: k2724 o|inlining procedure: k2737 o|contracted procedure: k2749 o|inlining procedure: k2737 o|contracted procedure: "(csi.scm:363) history-clear" o|inlining procedure: k2787 o|inlining procedure: k2787 o|inlining procedure: k2811 o|inlining procedure: k2811 o|inlining procedure: k2840 o|inlining procedure: k2840 o|inlining procedure: k2896 o|contracted procedure: "(csi.scm:404) g293300" o|inlining procedure: k2873 o|inlining procedure: k2873 o|inlining procedure: k2896 o|propagated global variable: g299301 command-table o|substituted constant variable: a2923 o|substituted constant variable: a2925 o|substituted constant variable: a2927 o|substituted constant variable: a2929 o|substituted constant variable: a2931 o|substituted constant variable: a2933 o|substituted constant variable: a2935 o|substituted constant variable: a2937 o|substituted constant variable: a2939 o|substituted constant variable: a2941 o|substituted constant variable: a2943 o|substituted constant variable: a2945 o|substituted constant variable: a2947 o|substituted constant variable: a2949 o|substituted constant variable: a2951 o|substituted constant variable: a2953 o|substituted constant variable: a2955 o|substituted constant variable: a2957 o|substituted constant variable: a2959 o|merged explicitly consed rest parameter: port386 o|inlining procedure: k3198 o|inlining procedure: k3198 o|inlining procedure: k3241 o|inlining procedure: k3241 o|inlining procedure: k3348 o|inlining procedure: k3348 o|inlining procedure: k3378 o|inlining procedure: k3378 o|propagated global variable: g407411 ##sys#features o|merged explicitly consed rest parameter: tmp490492 o|inlining procedure: k3511 o|inlining procedure: k3511 o|inlining procedure: k3540 o|inlining procedure: k3570 o|inlining procedure: k3570 o|inlining procedure: k3540 o|inlining procedure: k3627 o|inlining procedure: k3627 o|inlining procedure: k3651 o|inlining procedure: k3651 o|inlining procedure: k3669 o|inlining procedure: k3669 o|inlining procedure: k3687 o|inlining procedure: k3687 o|inlining procedure: k3720 o|inlining procedure: k3720 o|inlining procedure: k3738 o|inlining procedure: k3738 o|inlining procedure: k3756 o|inlining procedure: k3756 o|inlining procedure: k3787 o|inlining procedure: k3787 o|inlining procedure: k3802 o|inlining procedure: k3802 o|inlining procedure: k3847 o|inlining procedure: k3847 o|inlining procedure: k3865 o|inlining procedure: k3887 o|inlining procedure: k3887 o|contracted procedure: k3911 o|inlining procedure: k3908 o|inlining procedure: k3908 o|inlining procedure: k3865 o|inlining procedure: k3952 o|inlining procedure: k3952 o|inlining procedure: k3985 o|inlining procedure: k3985 o|inlining procedure: k4034 o|inlining procedure: k4034 o|inlining procedure: k4046 o|inlining procedure: k4046 o|inlining procedure: k4058 o|inlining procedure: k4058 o|inlining procedure: k4070 o|inlining procedure: k4070 o|inlining procedure: k4082 o|inlining procedure: k4082 o|substituted constant variable: a4095 o|substituted constant variable: a4097 o|substituted constant variable: a4099 o|substituted constant variable: a4101 o|substituted constant variable: a4103 o|substituted constant variable: a4105 o|substituted constant variable: a4107 o|substituted constant variable: a4109 o|substituted constant variable: a4111 o|substituted constant variable: a4113 o|inlining procedure: k4114 o|inlining procedure: k4114 o|inlining procedure: k4142 o|inlining procedure: k4142 o|inlining procedure: k4179 o|inlining procedure: k4179 o|inlining procedure: k4217 o|inlining procedure: k4217 o|inlining procedure: k4276 o|inlining procedure: k4276 o|inlining procedure: k4252 o|inlining procedure: k4331 o|inlining procedure: k4331 o|inlining procedure: k4252 o|inlining procedure: k4367 o|inlining procedure: k4367 o|inlining procedure: k4413 o|inlining procedure: k4413 o|contracted procedure: "(csi.scm:643) improper-pairs?" o|contracted procedure: k3461 o|inlining procedure: k3458 o|inlining procedure: k3458 o|contracted procedure: "(csi.scm:643) circular-list?" o|inlining procedure: k3423 o|inlining procedure: k3443 o|inlining procedure: k3443 o|inlining procedure: k3423 o|merged explicitly consed rest parameter: len-out681 o|inlining procedure: k4504 o|inlining procedure: k4504 o|inlining procedure: k4510 o|inlining procedure: k4510 o|inlining procedure: k4536 o|inlining procedure: k4536 o|inlining procedure: k4562 o|inlining procedure: k4562 o|contracted procedure: k4595 o|inlining procedure: k4615 o|inlining procedure: k4615 o|inlining procedure: k4656 o|inlining procedure: k4656 o|inlining procedure: k4680 o|inlining procedure: k4680 o|inlining procedure: k4714 o|inlining procedure: k4714 o|inlining procedure: k4765 o|inlining procedure: k4783 o|inlining procedure: k4783 o|inlining procedure: k4799 o|inlining procedure: k4799 o|inlining procedure: k4765 o|inlining procedure: k4885 o|propagated global variable: out793797 ##sys#standard-output o|substituted constant variable: a4910 o|substituted constant variable: a4911 o|inlining procedure: k4885 o|inlining procedure: k4959 o|inlining procedure: k4959 o|inlining procedure: k4974 o|propagated global variable: out835839 ##sys#standard-output o|substituted constant variable: a4981 o|substituted constant variable: a4982 o|inlining procedure: k4974 o|propagated global variable: out835839 ##sys#standard-output o|inlining procedure: k5033 o|inlining procedure: k5033 o|propagated global variable: out806810 ##sys#standard-output o|substituted constant variable: a5071 o|substituted constant variable: a5072 o|propagated global variable: out806810 ##sys#standard-output o|inlining procedure: k5087 o|inlining procedure: k5087 o|inlining procedure: k5101 o|propagated global variable: out793797 ##sys#standard-output o|inlining procedure: k5101 o|inlining procedure: k5107 o|inlining procedure: k5107 o|propagated global variable: tmp774776 ##sys#repl-recent-call-chain o|propagated global variable: tmp774776 ##sys#repl-recent-call-chain o|inlining procedure: k5125 o|inlining procedure: k5125 o|inlining procedure: k5159 o|inlining procedure: k5159 o|inlining procedure: k5216 o|inlining procedure: k5247 o|inlining procedure: k5247 o|inlining procedure: k5287 o|inlining procedure: k5287 o|inlining procedure: k5366 o|inlining procedure: k5366 o|inlining procedure: k5216 o|inlining procedure: k5409 o|inlining procedure: k5409 o|propagated global variable: tmp887889 ##sys#repl-recent-call-chain o|propagated global variable: tmp887889 ##sys#repl-recent-call-chain o|inlining procedure: k5433 o|inlining procedure: k5445 o|inlining procedure: k5445 o|inlining procedure: k5433 o|inlining procedure: k5488 o|inlining procedure: k5488 o|inlining procedure: k5503 o|inlining procedure: k5523 o|inlining procedure: k5553 o|contracted procedure: "(csi.scm:956) g10651074" o|inlining procedure: k5553 o|inlining procedure: k5523 o|contracted procedure: "(csi.scm:955) findall" o|substituted constant variable: constant1036 o|inlining procedure: k5634 o|inlining procedure: k5634 o|inlining procedure: k5503 o|inlining procedure: k5604 o|substituted constant variable: constant1043 o|inlining procedure: k5604 o|contracted procedure: "(csi.scm:1133) run" o|inlining procedure: k5710 o|inlining procedure: k5710 o|inlining procedure: k5705 o|inlining procedure: k5705 o|merged explicitly consed rest parameter: tmp12121214 o|inlining procedure: k5794 o|inlining procedure: k5794 o|inlining procedure: k5907 o|inlining procedure: k5907 o|inlining procedure: k5950 o|inlining procedure: k5950 o|substituted constant variable: a5993 o|inlining procedure: k5990 o|consed rest parameter at call site: "(csi.scm:1098) evalstring1193" 2 o|inlining procedure: k5990 o|substituted constant variable: a6010 o|consed rest parameter at call site: "(csi.scm:1101) evalstring1193" 2 o|substituted constant variable: a6033 o|inlining procedure: k6030 o|consed rest parameter at call site: "(csi.scm:1104) evalstring1193" 2 o|inlining procedure: k6030 o|inlining procedure: k6085 o|inlining procedure: k6085 o|inlining procedure: k6103 o|inlining procedure: k6135 o|inlining procedure: k6135 o|substituted constant variable: a6157 o|propagated global variable: g14071408 pretty-print o|inlining procedure: k6103 o|substituted constant variable: a6171 o|substituted constant variable: a6173 o|substituted constant variable: a6175 o|substituted constant variable: a6177 o|substituted constant variable: constant1117 o|substituted constant variable: constant1108 o|contracted procedure: "(csi.scm:1079) loadinit1192" o|inlining procedure: k5746 o|contracted procedure: k5752 o|inlining procedure: k5758 o|inlining procedure: k5758 o|inlining procedure: k5746 o|inlining procedure: k6189 o|inlining procedure: k6189 o|inlining procedure: k6216 o|inlining procedure: k6216 o|inlining procedure: k6228 o|inlining procedure: k6228 o|contracted procedure: k6240 o|inlining procedure: k6237 o|inlining procedure: k6255 o|inlining procedure: k6255 o|inlining procedure: k6237 o|inlining procedure: k6324 o|inlining procedure: k6324 o|inlining procedure: k6358 o|inlining procedure: k6358 o|inlining procedure: k6392 o|inlining procedure: k6392 o|inlining procedure: k6415 o|inlining procedure: k6415 o|inlining procedure: k6438 o|inlining procedure: k6438 o|inlining procedure: k6482 o|inlining procedure: k6482 o|contracted procedure: "(csi.scm:1028) print-usage" o|inlining procedure: k6527 o|inlining procedure: k6527 o|inlining procedure: k6562 o|inlining procedure: k6562 o|inlining procedure: k6565 o|inlining procedure: k6565 o|inlining procedure: k6571 o|inlining procedure: k6571 o|inlining procedure: k6592 o|inlining procedure: k6592 o|substituted constant variable: a6612 o|inlining procedure: k6632 o|inlining procedure: k6632 o|substituted constant variable: a6635 o|inlining procedure: k6666 o|inlining procedure: k6666 o|contracted procedure: "(csi.scm:977) parse-option-string" o|inlining procedure: k3032 o|contracted procedure: "(csi.scm:446) g339348" o|inlining procedure: k3002 o|inlining procedure: k3002 o|inlining procedure: k3032 o|inlining procedure: k3100 o|inlining procedure: k3100 o|inlining procedure: k6716 o|inlining procedure: k6716 o|inlining procedure: k6800 o|inlining procedure: k6800 o|contracted procedure: k6828 o|inlining procedure: k6825 o|contracted procedure: k6840 o|inlining procedure: k6849 o|inlining procedure: k6849 o|inlining procedure: k6825 o|inlining procedure: k6891 o|inlining procedure: k6891 o|substituted constant variable: a6901 o|inlining procedure: k6905 o|inlining procedure: k6905 o|replaced variables: 923 o|removed binding forms: 363 o|removed side-effect free assignment to unused variable: constant0 o|removed side-effect free assignment to unused variable: constant3 o|substituted constant variable: int6267 o|substituted constant variable: r21726926 o|substituted constant variable: r20936927 o|substituted constant variable: r21186929 o|contracted procedure: "(csi.scm:366) history-show" o|propagated global variable: out123127 ##sys#standard-output o|contracted procedure: "(csi.scm:372) select-frame" o|contracted procedure: "(csi.scm:375) copy-from-frame" o|converted assignments to bindings: (fail902) o|converted assignments to bindings: (compare897) o|substituted constant variable: r54107127 o|converted assignments to bindings: (shorten389) o|substituted constant variable: r35716993 o|substituted constant variable: r35716993 o|substituted constant variable: r35716995 o|substituted constant variable: r35716995 o|inlining procedure: k3699 o|inlining procedure: k3627 o|inlining procedure: k3627 o|removed call to pure procedure with unused result: "(csi.scm:657) size" o|substituted constant variable: r40357038 o|substituted constant variable: r40357038 o|inlining procedure: k4034 o|inlining procedure: k4034 o|substituted constant variable: r40477042 o|inlining procedure: k4034 o|inlining procedure: k4034 o|substituted constant variable: r40597044 o|inlining procedure: k4034 o|inlining procedure: k4034 o|substituted constant variable: r40717046 o|inlining procedure: k4034 o|inlining procedure: k4034 o|substituted constant variable: r40837048 o|inlining procedure: k4034 o|inlining procedure: k4034 o|substituted constant variable: r34597069 o|substituted constant variable: r34247073 o|converted assignments to bindings: (descseq498) o|converted assignments to bindings: (bestlen699) o|converted assignments to bindings: (justify722) o|propagated global variable: out793797 ##sys#standard-output o|propagated global variable: out835839 ##sys#standard-output o|propagated global variable: out806810 ##sys#standard-output o|substituted constant variable: r50887104 o|substituted constant variable: r50887104 o|substituted constant variable: r50887106 o|substituted constant variable: r50887106 o|substituted constant variable: r51027108 o|substituted constant variable: r51027108 o|substituted constant variable: r51027110 o|substituted constant variable: r51027110 o|substituted constant variable: r51087113 o|converted assignments to bindings: (prin1771) o|substituted constant variable: r54347131 o|removed side-effect free assignment to unused variable: constant1036 o|removed side-effect free assignment to unused variable: constant1043 o|substituted constant variable: r54897132 o|substituted constant variable: clist1094 o|substituted constant variable: r56057143 o|removed side-effect free assignment to unused variable: constant1108 o|removed side-effect free assignment to unused variable: constant1117 o|substituted constant variable: r57067147 o|substituted constant variable: r60867160 o|substituted constant variable: r60867160 o|substituted constant variable: r61047166 o|substituted constant variable: r61047166 o|substituted constant variable: r57477171 o|substituted constant variable: r65637218 o|substituted constant variable: r65637218 o|substituted constant variable: r66677229 o|substituted constant variable: r68017239 o|substituted constant variable: r68927246 o|substituted constant variable: r68927246 o|converted assignments to bindings: (addext70) o|simplifications: ((let . 8)) o|replaced variables: 20 o|removed binding forms: 933 o|inlining procedure: k1998 o|inlining procedure: k5268 o|contracted procedure: k3971 o|inlining procedure: k4282 o|inlining procedure: k5940 o|inlining procedure: k5940 o|inlining procedure: k5940 o|inlining procedure: k5940 o|inlining procedure: k5940 o|inlining procedure: k5940 o|inlining procedure: k5940 o|inlining procedure: k6147 o|inlining procedure: k6461 o|inlining procedure: k6623 o|inlining procedure: k6623 o|inlining procedure: k6623 o|replaced variables: 14 o|removed binding forms: 91 o|substituted constant variable: r19997439 o|substituted constant variable: r19997439 o|substituted constant variable: r19997439 o|substituted constant variable: r40357314 o|substituted constant variable: r40357316 o|substituted constant variable: r40357318 o|substituted constant variable: r40357320 o|substituted constant variable: r40357322 o|substituted constant variable: r40357324 o|substituted constant variable: r40357326 o|substituted constant variable: r40357328 o|substituted constant variable: r40357330 o|inlining procedure: k6088 o|replaced variables: 2 o|removed binding forms: 28 o|removed conditional forms: 1 o|substituted constant variable: r60897659 o|removed binding forms: 12 o|removed conditional forms: 1 o|simplifications: ((let . 1)) o|removed binding forms: 1 o|simplifications: ((if . 40) (##core#call . 554)) o| call simplifications: o| make-vector o| ##sys#pair? 2 o| ##sys#eq? o| ##sys#cdr 4 o| ##sys#car 2 o| ##sys#cons 11 o| set-car! o| call-with-values o| void o| member 9 o| string->list o| string o| equal? 3 o| fxmod o| write-char 7 o| ##sys#immediate? 2 o| ##sys#permanent? o| char? o| fixnum? 2 o| flonum? o| vector? o| list? o| procedure? o| ##sys#pointer? 2 o| ##sys#generic-structure? 2 o| cdr 15 o| caar o| cdar o| fx= 3 o| atom? o| memq 3 o| cddr 3 o| integer->char 2 o| char->integer o| ##sys#setslot 9 o| = o| - o| <= o| add1 2 o| + o| * o| / o| eof-object? 4 o| caddr o| symbol? 3 o| string? 5 o| ##sys#structure? 4 o| ##sys#check-list 15 o| string-length 5 o| fxmin o| string=? 6 o| number? 2 o| not 4 o| fx< 4 o| length 4 o| list-ref 2 o| >= 2 o| eq? 43 o| apply 5 o| ##sys#call-with-values 5 o| ##sys#apply 2 o| cadr 13 o| car 19 o| ##sys#check-symbol 2 o| ##sys#check-string o| assq 4 o| cons 23 o| list 7 o| set-cdr! 2 o| ##sys#fudge 6 o| inexact->exact o| fx<= o| vector-ref 8 o| null? 21 o| ##sys#void 20 o| fx* o| vector-set! o| fx>= 15 o| fx+ 20 o| pair? 32 o| ##sys#slot 87 o| ##sys#foreign-block-argument o| ##sys#foreign-fixnum-argument o| ##sys#size 11 o| sub1 o| string-ref 4 o| fx> 6 o| char=? 6 o| char-whitespace? o| fx- 11 o| ##sys#list 4 o|contracted procedure: k1896 o|contracted procedure: k1962 o|contracted procedure: k1965 o|contracted procedure: k1976 o|contracted procedure: k1998 o|contracted procedure: k2035 o|contracted procedure: k2013 o|contracted procedure: k2016 o|contracted procedure: k2028 o|contracted procedure: k2209 o|contracted procedure: k2120 o|contracted procedure: k2050 o|contracted procedure: k2054 o|contracted procedure: k2174 o|contracted procedure: k2190 o|contracted procedure: k2199 o|contracted procedure: k2083 o|contracted procedure: k2095 o|contracted procedure: k2108 o|contracted procedure: k2205 o|contracted procedure: k2214 o|contracted procedure: k2248 o|contracted procedure: k2221 o|contracted procedure: k2224 o|contracted procedure: k2230 o|contracted procedure: k2234 o|contracted procedure: k2237 o|contracted procedure: k2245 o|contracted procedure: k2320 o|contracted procedure: k2335 o|contracted procedure: k2326 o|contracted procedure: k2347 o|contracted procedure: k2414 o|contracted procedure: k2373 o|contracted procedure: k2376 o|contracted procedure: k2379 o|contracted procedure: k2382 o|contracted procedure: k2397 o|contracted procedure: k2408 o|contracted procedure: k2404 o|contracted procedure: k2426 o|contracted procedure: k2438 o|contracted procedure: k2441 o|contracted procedure: k2449 o|contracted procedure: k2464 o|contracted procedure: k2487 o|contracted procedure: k2505 o|contracted procedure: k2520 o|contracted procedure: k2535 o|contracted procedure: k2556 o|contracted procedure: k2565 o|contracted procedure: k2574 o|contracted procedure: k2592 o|contracted procedure: k2602 o|contracted procedure: k2606 o|contracted procedure: k2616 o|contracted procedure: k2648 o|contracted procedure: k2658 o|contracted procedure: k2662 o|contracted procedure: k2672 o|contracted procedure: k2721 o|contracted procedure: k2734 o|contracted procedure: k2740 o|contracted procedure: k2756 o|contracted procedure: k2768 o|contracted procedure: k2778 o|contracted procedure: k2264 o|propagated global variable: r2265 ##sys#undefined-value o|contracted procedure: k2790 o|contracted procedure: k2279 o|contracted procedure: k2304 o|contracted procedure: k2314 o|contracted procedure: k2802 o|contracted procedure: k2814 o|contracted procedure: k5176 o|contracted procedure: k5128 o|contracted procedure: k5149 o|contracted procedure: k5153 o|contracted procedure: k5145 o|contracted procedure: k5138 o|contracted procedure: k5156 o|contracted procedure: k5162 o|contracted procedure: k5172 o|contracted procedure: k2830 o|contracted procedure: k5182 o|contracted procedure: k5185 o|contracted procedure: k5194 o|contracted procedure: k5209 o|contracted procedure: k5213 o|contracted procedure: k5205 o|contracted procedure: k5238 o|propagated global variable: r5239 ##sys#undefined-value o|contracted procedure: k5250 o|contracted procedure: k5256 o|contracted procedure: k5259 o|contracted procedure: k5262 o|contracted procedure: k5265 o|contracted procedure: k5276 o|contracted procedure: k5290 o|contracted procedure: k5300 o|contracted procedure: k5324 o|contracted procedure: k5332 o|contracted procedure: k5328 o|contracted procedure: k5338 o|contracted procedure: k5341 o|contracted procedure: k5344 o|contracted procedure: k5347 o|contracted procedure: k5350 o|contracted procedure: k5394 o|contracted procedure: k5369 o|contracted procedure: k5379 o|contracted procedure: k5383 o|contracted procedure: k5387 o|contracted procedure: k5391 o|contracted procedure: k5403 o|contracted procedure: k5412 o|contracted procedure: k2843 o|contracted procedure: k2856 o|contracted procedure: k2862 o|contracted procedure: k2884 o|contracted procedure: k2899 o|contracted procedure: k2909 o|contracted procedure: k2913 o|contracted procedure: k2870 o|propagated global variable: g299301 command-table o|contracted procedure: k2978 o|contracted procedure: k2985 o|contracted procedure: k3171 o|contracted procedure: k3185 o|contracted procedure: k3188 o|contracted procedure: k3192 o|contracted procedure: k3201 o|contracted procedure: k3215 o|contracted procedure: k3219 o|contracted procedure: k3223 o|contracted procedure: k3226 o|contracted procedure: k3244 o|contracted procedure: k3250 o|contracted procedure: k3342 o|contracted procedure: k3261 o|contracted procedure: k3293 o|contracted procedure: k3297 o|contracted procedure: k3327 o|contracted procedure: k3301 o|contracted procedure: k3305 o|contracted procedure: k3309 o|contracted procedure: k3324 o|contracted procedure: k3320 o|contracted procedure: k3313 o|contracted procedure: k3331 o|contracted procedure: k3335 o|contracted procedure: k3351 o|contracted procedure: k3361 o|contracted procedure: k3365 o|contracted procedure: k3369 o|contracted procedure: k3381 o|contracted procedure: k3384 o|contracted procedure: k3387 o|contracted procedure: k3395 o|contracted procedure: k3403 o|contracted procedure: k3409 o|contracted procedure: k4481 o|contracted procedure: k3490 o|contracted procedure: k3496 o|contracted procedure: k3508 o|contracted procedure: k3517 o|contracted procedure: k3524 o|contracted procedure: k3610 o|contracted procedure: k3534 o|contracted procedure: k3543 o|contracted procedure: k3556 o|contracted procedure: k3559 o|contracted procedure: k3566 o|contracted procedure: k3573 o|contracted procedure: k3588 o|contracted procedure: k3595 o|contracted procedure: k3599 o|contracted procedure: k3614 o|contracted procedure: k3633 o|contracted procedure: k3636 o|contracted procedure: k3645 o|contracted procedure: k3654 o|contracted procedure: k3663 o|contracted procedure: k3672 o|contracted procedure: k4468 o|contracted procedure: k3681 o|propagated global variable: r4469 ##sys#undefined-value o|contracted procedure: k3690 o|contracted procedure: k3696 o|contracted procedure: k3705 o|contracted procedure: k4464 o|contracted procedure: k3714 o|contracted procedure: k3723 o|contracted procedure: k3732 o|contracted procedure: k3741 o|contracted procedure: k3750 o|contracted procedure: k3772 o|contracted procedure: k3784 o|contracted procedure: k3790 o|contracted procedure: k3805 o|contracted procedure: k3821 o|contracted procedure: k3831 o|contracted procedure: k3835 o|contracted procedure: k3839 o|contracted procedure: k3843 o|contracted procedure: k3881 o|contracted procedure: k3890 o|contracted procedure: k3893 o|contracted procedure: k3937 o|contracted procedure: k3902 o|contracted procedure: k3931 o|contracted procedure: k3923 o|contracted procedure: k3946 o|contracted procedure: k3955 o|contracted procedure: k3968 o|contracted procedure: k4010 o|contracted procedure: k3995 o|contracted procedure: k3999 o|contracted procedure: k4003 o|contracted procedure: k4027 o|contracted procedure: k4031 o|contracted procedure: k4037 o|contracted procedure: k4043 o|contracted procedure: k4049 o|contracted procedure: k4055 o|contracted procedure: k4061 o|contracted procedure: k4067 o|contracted procedure: k4073 o|contracted procedure: k4079 o|contracted procedure: k4085 o|contracted procedure: k4091 o|contracted procedure: k4117 o|contracted procedure: k4133 o|contracted procedure: k4155 o|contracted procedure: k4158 o|contracted procedure: k4167 o|contracted procedure: k4170 o|contracted procedure: k4182 o|contracted procedure: k4191 o|contracted procedure: k4195 o|contracted procedure: k4198 o|contracted procedure: k4201 o|contracted procedure: k4211 o|contracted procedure: k4220 o|contracted procedure: k4230 o|contracted procedure: k4234 o|contracted procedure: k4238 o|contracted procedure: k4249 o|contracted procedure: k4242 o|contracted procedure: k4246 o|contracted procedure: k4255 o|contracted procedure: k4270 o|contracted procedure: k4279 o|contracted procedure: k4289 o|contracted procedure: k4316 o|contracted procedure: k4292 o|contracted procedure: k4308 o|contracted procedure: k4312 o|contracted procedure: k42897481 o|contracted procedure: k4319 o|contracted procedure: k4322 o|contracted procedure: k4334 o|contracted procedure: k4344 o|contracted procedure: k4348 o|contracted procedure: k4352 o|contracted procedure: k4358 o|contracted procedure: k4361 o|contracted procedure: k4378 o|contracted procedure: k4394 o|contracted procedure: k4397 o|contracted procedure: k4400 o|contracted procedure: k4407 o|contracted procedure: k4416 o|contracted procedure: k4419 o|contracted procedure: k4422 o|contracted procedure: k4430 o|contracted procedure: k4438 o|contracted procedure: k4454 o|contracted procedure: k3480 o|contracted procedure: k3476 o|contracted procedure: k3464 o|contracted procedure: k3426 o|contracted procedure: k3433 o|contracted procedure: k3437 o|contracted procedure: k3440 o|contracted procedure: k4471 o|contracted procedure: k4490 o|contracted procedure: k4513 o|contracted procedure: k4533 o|contracted procedure: k4539 o|contracted procedure: k4550 o|contracted procedure: k4602 o|contracted procedure: k4556 o|contracted procedure: k4568 o|contracted procedure: k4579 o|contracted procedure: k4585 o|contracted procedure: k4592 o|contracted procedure: k4618 o|contracted procedure: k4624 o|contracted procedure: k4631 o|contracted procedure: k4637 o|contracted procedure: k4653 o|contracted procedure: k4659 o|contracted procedure: k4671 o|contracted procedure: k4683 o|contracted procedure: k4708 o|contracted procedure: k4717 o|contracted procedure: k4720 o|contracted procedure: k4733 o|contracted procedure: k4737 o|contracted procedure: k4753 o|contracted procedure: k4740 o|contracted procedure: k4747 o|contracted procedure: k4768 o|contracted procedure: k4771 o|contracted procedure: k4777 o|contracted procedure: k4780 o|contracted procedure: k4786 o|contracted procedure: k4793 o|contracted procedure: k4802 o|contracted procedure: k4812 o|contracted procedure: k4825 o|contracted procedure: k4829 o|contracted procedure: k4862 o|contracted procedure: k4865 o|contracted procedure: k4869 o|contracted procedure: k4879 o|contracted procedure: k4888 o|contracted procedure: k4891 o|contracted procedure: k4894 o|contracted procedure: k4897 o|contracted procedure: k4900 o|contracted procedure: k4903 o|contracted procedure: k4906 o|contracted procedure: k4951 o|contracted procedure: k4954 o|contracted procedure: k4962 o|contracted procedure: k4977 o|contracted procedure: k5002 o|contracted procedure: k5008 o|contracted procedure: k5012 o|contracted procedure: k5015 o|contracted procedure: k5018 o|contracted procedure: k5021 o|contracted procedure: k5024 o|contracted procedure: k5061 o|contracted procedure: k5036 o|contracted procedure: k5046 o|contracted procedure: k5050 o|contracted procedure: k5054 o|contracted procedure: k5058 o|contracted procedure: k5083 o|contracted procedure: k5097 o|contracted procedure: k5110 o|contracted procedure: k5117 o|contracted procedure: k5421 o|contracted procedure: k5436 o|contracted procedure: k5448 o|contracted procedure: k5455 o|contracted procedure: k5470 o|contracted procedure: k5474 o|contracted procedure: k5461 o|contracted procedure: k5491 o|contracted procedure: k5494 o|contracted procedure: k5500 o|contracted procedure: k5512 o|contracted procedure: k5533 o|contracted procedure: k5556 o|contracted procedure: k5578 o|contracted procedure: k5574 o|contracted procedure: k5559 o|contracted procedure: k5562 o|contracted procedure: k5570 o|contracted procedure: k5631 o|contracted procedure: k5649 o|contracted procedure: k5640 o|contracted procedure: k5619 o|contracted procedure: k5601 o|contracted procedure: k5607 o|contracted procedure: k5614 o|contracted procedure: k5684 o|contracted procedure: k5702 o|contracted procedure: k5734 o|contracted procedure: k5713 o|contracted procedure: k5723 o|contracted procedure: k5820 o|contracted procedure: k5778 o|contracted procedure: k5797 o|contracted procedure: k5855 o|contracted procedure: k5864 o|contracted procedure: k5873 o|contracted procedure: k5910 o|contracted procedure: k5934 o|contracted procedure: k5937 o|contracted procedure: k5947 o|contracted procedure: k59477527 o|contracted procedure: k5953 o|contracted procedure: k5957 o|contracted procedure: k59477531 o|contracted procedure: k5963 o|contracted procedure: k5966 o|contracted procedure: k59477535 o|contracted procedure: k5979 o|contracted procedure: k5975 o|contracted procedure: k5987 o|contracted procedure: k5995 o|contracted procedure: k59477539 o|contracted procedure: k6004 o|contracted procedure: k6012 o|contracted procedure: k59477543 o|contracted procedure: k6021 o|contracted procedure: k6035 o|contracted procedure: k59477547 o|contracted procedure: k6044 o|contracted procedure: k6053 o|contracted procedure: k6062 o|contracted procedure: k6094 o|contracted procedure: k6088 o|contracted procedure: k6085 o|contracted procedure: k59477551 o|contracted procedure: k6106 o|contracted procedure: k6114 o|contracted procedure: k6138 o|contracted procedure: k6141 o|contracted procedure: k6154 o|contracted procedure: k61547555 o|contracted procedure: k6183 o|contracted procedure: k5772 o|contracted procedure: k6288 o|contracted procedure: k6284 o|contracted procedure: k6280 o|contracted procedure: k6249 o|contracted procedure: k6258 o|contracted procedure: k6267 o|contracted procedure: k6296 o|contracted procedure: k6302 o|contracted procedure: k6309 o|contracted procedure: k6315 o|contracted procedure: k6327 o|contracted procedure: k6330 o|contracted procedure: k6333 o|contracted procedure: k6341 o|contracted procedure: k6349 o|contracted procedure: k6361 o|contracted procedure: k6364 o|contracted procedure: k6367 o|contracted procedure: k6375 o|contracted procedure: k6383 o|contracted procedure: k6395 o|contracted procedure: k6405 o|contracted procedure: k6409 o|contracted procedure: k6418 o|contracted procedure: k6428 o|contracted procedure: k6432 o|contracted procedure: k6441 o|contracted procedure: k6451 o|contracted procedure: k6455 o|contracted procedure: k6489 o|contracted procedure: k6502 o|contracted procedure: k6506 o|contracted procedure: k1937 o|contracted procedure: k1933 o|contracted procedure: k1929 o|contracted procedure: k6530 o|contracted procedure: k6533 o|contracted procedure: k6536 o|contracted procedure: k6544 o|contracted procedure: k6552 o|contracted procedure: k6589 o|contracted procedure: k6607 o|contracted procedure: k6617 o|contracted procedure: k6656 o|contracted procedure: k6652 o|contracted procedure: k6620 o|contracted procedure: k6648 o|contracted procedure: k6644 o|contracted procedure: k6629 o|contracted procedure: k6637 o|contracted procedure: k6663 o|contracted procedure: k6684 o|contracted procedure: k2997 o|contracted procedure: k3023 o|contracted procedure: k3035 o|contracted procedure: k3038 o|contracted procedure: k3041 o|contracted procedure: k3049 o|contracted procedure: k3057 o|contracted procedure: k3005 o|contracted procedure: k3103 o|contracted procedure: k3117 o|contracted procedure: k6713 o|contracted procedure: k6722 o|contracted procedure: k6788 o|contracted procedure: k6725 o|contracted procedure: k6784 o|contracted procedure: k6780 o|contracted procedure: k6776 o|contracted procedure: k6740 o|contracted procedure: k6768 o|contracted procedure: k6764 o|contracted procedure: k6756 o|contracted procedure: k6748 o|contracted procedure: k6744 o|contracted procedure: k6736 o|contracted procedure: k6794 o|contracted procedure: k6797 o|contracted procedure: k6803 o|contracted procedure: k6810 o|contracted procedure: k6871 o|contracted procedure: k6874 o|simplifications: ((if . 3) (let . 117)) o|removed binding forms: 506 o|inlining procedure: k5293 o|inlining procedure: k4942 o|replaced variables: 214 o|inlining procedure: k2363 o|simplifications: ((if . 1)) o|removed binding forms: 89 o|replaced variables: 1 o|removed binding forms: 1 o|direct leaf routine/allocation: g166167 6 o|direct leaf routine/allocation: lp473 0 o|direct leaf routine/allocation: lp459 0 o|direct leaf routine/allocation: loop1095 0 o|contracted procedure: "(csi.scm:280) k2385" o|contracted procedure: k3868 o|converted assignments to bindings: (lp473) o|converted assignments to bindings: (lp459) o|contracted procedure: k5526 o|converted assignments to bindings: (loop1095) o|simplifications: ((let . 3)) o|removed binding forms: 3 o|replaced variables: 2 o|removed binding forms: 1 o|customizable procedures: (k1909 k6822 g323324 k6719 doloop361362 map-loop333367 canonicalize-args lookup-script-file k5669 k5675 k5681 map-loop11641184 k5837 k5843 print-banner for-each-loop12361246 for-each-loop12531263 for-each-loop12701280 map-loop12871304 collect-options1191 map-loop13131330 member* k5898 doloop14101411 evalstring1193 doloop13531354 doloop12221223 g12031204 loop1195 k5506 map-loop10591084 loop1047 find1024 loop1021 k4872 k5090 g818826 for-each-loop817848 prin1771 doloop831832 doloop783784 justify722 doloop731732 doloop739740 doloop747748 doloop721729 def-len686707 def-out687705 body684692 k4565 bestlen699 k3871 g642643 map-loop647664 g631632 g602609 for-each-loop601618 loop612 g580587 for-each-loop579590 doloop574575 hexdump loop-print549 doloop536537 loop2514 loop1504 k3145 map-loop395412 g422429 for-each-loop421443 shorten389 k3195 k2435 for-each-loop292304 k5188 g916924 for-each-loop915939 compare897 doloop929930 doloop901906 fail902 k5131 show-frameinfo doloop120121 history-add g246253 for-each-loop245265 for-each-loop226236 report dump describe k2227 loop78 loop97 addext70 history-ref) o|calls to known targets: 263 o|identified direct recursive calls: f_5245 1 o|identified direct recursive calls: f_3421 1 o|identified direct recursive calls: f_4274 1 o|identified direct recursive calls: f_3456 1 o|identified direct recursive calls: f_5443 1 o|identified direct recursive calls: f_5629 1 o|identified direct recursive calls: f_5551 1 o|unused rest argument: _1220 f_5823 o|unused rest argument: _1357 f_5926 o|identified direct recursive calls: f_5905 2 o|fast box initializations: 47 o|fast global references: 77 o|fast global assignments: 27 o|dropping unused closure argument: f_5629 o|dropping unused closure argument: f_5776 o|dropping unused closure argument: f_5425 o|dropping unused closure argument: f_5480 o|dropping unused closure argument: f_1941 o|dropping unused closure argument: f_2318 o|dropping unused closure argument: f_3161 o|dropping unused closure argument: f_4497 o|dropping unused closure argument: f_2061 o|dropping unused closure argument: f_3456 o|dropping unused closure argument: f_3421 o|dropping unused closure argument: f_4645 o|dropping unused closure argument: f_4648 o|dropping unused closure argument: f_4848 o|dropping unused closure argument: f_4851 */ /* end of file */ ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/srfi-69.import.c���������������������������������������������������������������������0000644�0001750�0001750�00000017030�13052306544�015667� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from srfi-69.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: srfi-69.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file srfi-69.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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_199) static void C_ccall f_199(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(f_205) static void C_ccall f_205(C_word c,C_word *av) C_noret; C_noret_decl(f_202) static void C_ccall f_202(C_word c,C_word *av) C_noret; C_noret_decl(f_208) static void C_ccall f_208(C_word c,C_word *av) C_noret; /* k197 */ static void C_ccall f_199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_199,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(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(464))){ C_save(t1); C_rereclaim2(464*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,3); lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module"); lf[1]=C_h_intern(&lf[1],7,"srfi-69"); lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\021alist->hash-table\376\003\000\000\002\376\001\000\000\010eq\077-hash\376\003\000\000\002\376\001\000\000\013equal\077-hash\376\003\000\000\002\376\001\000\000\011eqv\077" "-hash\376\003\000\000\002\376\001\000\000\004hash\376\003\000\000\002\376\001\000\000\020hash-by-identity\376\003\000\000\002\376\001\000\000\021hash-table->alist\376\003\000\000\002\376\001\000" "\000\021hash-table-clear!\376\003\000\000\002\376\001\000\000\017hash-table-copy\376\003\000\000\002\376\001\000\000\022hash-table-delete!\376\003\000\000\002\376\001\000" "\000\037hash-table-equivalence-function\376\003\000\000\002\376\001\000\000\022hash-table-exists\077\376\003\000\000\002\376\001\000\000\017hash-tabl" "e-fold\376\003\000\000\002\376\001\000\000\023hash-table-for-each\376\003\000\000\002\376\001\000\000\027hash-table-has-initial\077\376\003\000\000\002\376\001\000\000\030ha" "sh-table-hash-function\376\003\000\000\002\376\001\000\000\022hash-table-initial\376\003\000\000\002\376\001\000\000\017hash-table-keys\376\003\000\000\002" "\376\001\000\000\016hash-table-map\376\003\000\000\002\376\001\000\000\023hash-table-max-load\376\003\000\000\002\376\001\000\000\020hash-table-merge\376\003\000\000\002\376" "\001\000\000\021hash-table-merge!\376\003\000\000\002\376\001\000\000\023hash-table-min-load\376\003\000\000\002\376\001\000\000\016hash-table-ref\376\003\000\000\002\376" "\001\000\000\026hash-table-ref/default\376\003\000\000\002\376\001\000\000\022hash-table-remove!\376\003\000\000\002\376\001\000\000\017hash-table-set!\376" "\003\000\000\002\376\001\000\000\017hash-table-size\376\003\000\000\002\376\001\000\000\022hash-table-update!\376\003\000\000\002\376\001\000\000\032hash-table-update!" "/default\376\003\000\000\002\376\001\000\000\021hash-table-values\376\003\000\000\002\376\001\000\000\017hash-table-walk\376\003\000\000\002\376\001\000\000\024hash-table" "-weak-keys\376\003\000\000\002\376\001\000\000\026hash-table-weak-values\376\003\000\000\002\376\001\000\000\013hash-table\077\376\003\000\000\002\376\001\000\000\014keyword" "-hash\376\003\000\000\002\376\001\000\000\017make-hash-table\376\003\000\000\002\376\001\000\000\013number-hash\376\003\000\000\002\376\001\000\000\017object-uid-hash\376\003\000\000" "\002\376\001\000\000\030recursive-hash-max-depth\376\003\000\000\002\376\001\000\000\031recursive-hash-max-length\376\003\000\000\002\376\001\000\000\016strin" "g-hash-ci\376\003\000\000\002\376\001\000\000\016string-ci-hash\376\003\000\000\002\376\001\000\000\013string-hash\376\003\000\000\002\376\001\000\000\013symbol-hash\376\377\016"); C_register_lf2(lf,3,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_199,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k203 in k200 in k197 */ static void C_ccall f_205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_205,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-69.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; /* Re-use our own argvector */ } 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);}} /* k200 in k197 */ static void C_ccall f_202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k206 in k203 in k200 in k197 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_208,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {"f_199:srfi_2d69_2eimport_2escm",(void*)f_199}, {"toplevel:srfi_2d69_2eimport_2escm",(void*)C_toplevel}, {"f_205:srfi_2d69_2eimport_2escm",(void*)f_205}, {"f_202:srfi_2d69_2eimport_2escm",(void*)f_202}, {"f_208:srfi_2d69_2eimport_2escm",(void*)f_208}, {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-4.12.0/csc.c��������������������������������������������������������������������������������0000644�0001750�0001750�00002077243�13052306520�013737� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from csc.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: csc.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -no-lambda-info -local -no-trace -output-file csc.c used units: library eval chicken_2dsyntax posix data_2dstructures ports srfi_2d1 srfi_2d13 utils files 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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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; C_noret_decl(C_ports_toplevel) C_externimport void C_ccall C_ports_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_srfi_2d1_toplevel) C_externimport void C_ccall C_srfi_2d1_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_srfi_2d13_toplevel) C_externimport void C_ccall C_srfi_2d13_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_utils_toplevel) C_externimport void C_ccall C_utils_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_files_toplevel) C_externimport void C_ccall C_files_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[434]; static double C_possibly_force_alignment; C_noret_decl(f_4273) static void C_ccall f_4273(C_word c,C_word *av) C_noret; C_noret_decl(f_4276) static void C_ccall f_4276(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_2875) static void C_ccall f_2875(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_2871) static void C_ccall f_2871(C_word c,C_word *av) C_noret; C_noret_decl(f_2381) static void C_ccall f_2381(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_5193) static void C_ccall f_5193(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_4725) static void C_ccall f_4725(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_2897) static void C_ccall f_2897(C_word c,C_word *av) C_noret; C_noret_decl(f_5122) static void C_fcall f_5122(C_word t0,C_word t1,C_word t2) 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_4483) static void C_ccall f_4483(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_2630) static void C_ccall f_2630(C_word c,C_word *av) C_noret; C_noret_decl(f_2261) static void C_ccall f_2261(C_word c,C_word *av) C_noret; C_noret_decl(f_4475) static void C_fcall f_4475(C_word t0) 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_2603) static void C_ccall f_2603(C_word c,C_word *av) C_noret; C_noret_decl(f_2614) static void C_ccall f_2614(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_3923) static void C_ccall f_3923(C_word c,C_word *av) C_noret; C_noret_decl(f_3972) static void C_ccall f_3972(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_3777) static void C_ccall f_3777(C_word c,C_word *av) C_noret; C_noret_decl(f_3945) static void C_ccall f_3945(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_3911) static void C_ccall f_3911(C_word c,C_word *av) C_noret; C_noret_decl(f_4635) static void C_fcall f_4635(C_word t0) C_noret; C_noret_decl(f6092) static void C_ccall f6092(C_word c,C_word *av) C_noret; C_noret_decl(f6097) static void C_ccall f6097(C_word c,C_word *av) C_noret; C_noret_decl(f_3931) static void C_ccall f_3931(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_4718) static void C_fcall f_4718(C_word t0,C_word t1) C_noret; C_noret_decl(f_4012) static void C_fcall f_4012(C_word t0,C_word t1,C_word t2) 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_4540) static void C_ccall f_4540(C_word c,C_word *av) C_noret; C_noret_decl(f_4713) static void C_ccall f_4713(C_word c,C_word *av) C_noret; C_noret_decl(f_3904) static void C_fcall f_3904(C_word t0,C_word t1,C_word t2) 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_2118) static void C_ccall f_2118(C_word c,C_word *av) C_noret; C_noret_decl(f_4536) static void C_ccall f_4536(C_word c,C_word *av) C_noret; C_noret_decl(f_3903) static void C_fcall f_3903(C_word t0,C_word t1) 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_2111) static void C_ccall f_2111(C_word c,C_word *av) 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_2004) static void C_fcall f_2004(C_word t0,C_word t1) C_noret; C_noret_decl(f_2270) static void C_ccall f_2270(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_2016) static void C_ccall f_2016(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_4501) static void C_ccall f_4501(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(f6072) static void C_ccall f6072(C_word c,C_word *av) C_noret; C_noret_decl(f6028) static void C_ccall f6028(C_word c,C_word *av) C_noret; C_noret_decl(f6020) static void C_ccall f6020(C_word c,C_word *av) C_noret; C_noret_decl(f6024) static void C_ccall f6024(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_2575) static void C_ccall f_2575(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_2571) static void C_ccall f_2571(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_word t2) 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_4097) static void C_ccall f_4097(C_word c,C_word *av) 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_3238) static void C_fcall f_3238(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4086) static void C_fcall f_4086(C_word t0) 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_3877) static void C_ccall f_3877(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_4036) static void C_fcall f_4036(C_word t0,C_word t1) C_noret; C_noret_decl(f_3298) static void C_ccall f_3298(C_word c,C_word *av) C_noret; C_noret_decl(f_3853) static void C_ccall f_3853(C_word c,C_word *av) C_noret; C_noret_decl(f6054) static void C_ccall f6054(C_word c,C_word *av) C_noret; C_noret_decl(f6050) static void C_ccall f6050(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_3888) static void C_ccall f_3888(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_2319) static void C_ccall f_2319(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_3865) static void C_ccall f_3865(C_word c,C_word *av) C_noret; C_noret_decl(f_1844) static void C_ccall f_1844(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_4054) static void C_ccall f_4054(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_3277) static void C_ccall f_3277(C_word c,C_word *av) C_noret; C_noret_decl(f_3281) static void C_ccall f_3281(C_word c,C_word *av) C_noret; C_noret_decl(f6108) static void C_ccall f6108(C_word c,C_word *av) C_noret; C_noret_decl(f_5001) static void C_ccall f_5001(C_word c,C_word *av) C_noret; C_noret_decl(f_1874) static void C_ccall f_1874(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_5019) static void C_ccall f_5019(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_1824) static void C_ccall f_1824(C_word c,C_word *av) C_noret; C_noret_decl(f_4845) static void C_fcall f_4845(C_word t0,C_word t1) C_noret; C_noret_decl(f_1515) static void C_ccall f_1515(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_1512) static void C_ccall f_1512(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_1506) static void C_ccall f_1506(C_word c,C_word *av) 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_4865) static void C_ccall f_4865(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_1530) static void C_ccall f_1530(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_3995) static void C_ccall f_3995(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_1522) static void C_ccall f_1522(C_word c,C_word *av) C_noret; C_noret_decl(f_3962) static void C_fcall f_3962(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3346) static void C_ccall f_3346(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(f6032) static void C_ccall f6032(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_2731) static void C_ccall f_2731(C_word c,C_word *av) C_noret; C_noret_decl(f_1809) static void C_ccall f_1809(C_word c,C_word *av) C_noret; C_noret_decl(f_3985) static void C_fcall f_3985(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5088) static void C_fcall f_5088(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5080) static void C_ccall f_5080(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_3263) static void C_ccall f_3263(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_3360) static void C_ccall f_3360(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_4346) static void C_ccall f_4346(C_word c,C_word *av) C_noret; C_noret_decl(f_4342) static void C_ccall f_4342(C_word c,C_word *av) C_noret; C_noret_decl(f_3373) static void C_fcall f_3373(C_word t0,C_word t1) C_noret; C_noret_decl(f_3378) static void C_ccall f_3378(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_5061) static void C_ccall f_5061(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_1949) static void C_ccall f_1949(C_word c,C_word *av) 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_2741) static void C_ccall f_2741(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_noret; C_noret_decl(f_5077) static void C_ccall f_5077(C_word c,C_word *av) C_noret; C_noret_decl(f_2308) static void C_ccall f_2308(C_word c,C_word *av) C_noret; C_noret_decl(f_4326) static void C_ccall f_4326(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_4582) static void C_ccall f_4582(C_word c,C_word *av) C_noret; C_noret_decl(f_4585) static void C_ccall f_4585(C_word c,C_word *av) C_noret; C_noret_decl(f_5044) static void C_ccall f_5044(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_4576) static void C_ccall f_4576(C_word c,C_word *av) 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_4890) static void C_ccall f_4890(C_word c,C_word *av) C_noret; C_noret_decl(f_4570) static void C_ccall f_4570(C_word c,C_word *av) C_noret; C_noret_decl(f_4899) static void C_ccall f_4899(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_4893) static void C_ccall f_4893(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_5058) static void C_ccall f_5058(C_word c,C_word *av) C_noret; C_noret_decl(f_5054) static void C_fcall f_5054(C_word t0,C_word t1) 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_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_1912) static void C_ccall f_1912(C_word c,C_word *av) C_noret; C_noret_decl(f_4884) static void C_ccall f_4884(C_word c,C_word *av) C_noret; C_noret_decl(f_5029) static void C_ccall f_5029(C_word c,C_word *av) C_noret; C_noret_decl(f_4302) static void C_ccall f_4302(C_word c,C_word *av) C_noret; C_noret_decl(f_5025) static void C_ccall f_5025(C_word c,C_word *av) C_noret; C_noret_decl(f_4338) static void C_ccall f_4338(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_4335) static void C_ccall f_4335(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_4554) static void C_ccall f_4554(C_word c,C_word *av) C_noret; C_noret_decl(f_4556) static void C_fcall f_4556(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1907) static void C_fcall f_1907(C_word t0,C_word t1) C_noret; C_noret_decl(f_5037) static void C_ccall f_5037(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_3081) static void C_ccall f_3081(C_word c,C_word *av) C_noret; C_noret_decl(f_3051) static C_word C_fcall f_3051(C_word *a,C_word t0,C_word t1); C_noret_decl(f_3219) static void C_ccall f_3219(C_word c,C_word *av) C_noret; C_noret_decl(f_3109) static void C_fcall f_3109(C_word t0,C_word t1) C_noret; C_noret_decl(f_3100) static void C_fcall f_3100(C_word t0,C_word t1) 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_3397) static void C_ccall f_3397(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_4105) static void C_fcall f_4105(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3044) static void C_fcall f_3044(C_word t0,C_word t1) C_noret; C_noret_decl(f_3041) static void C_fcall f_3041(C_word t0,C_word t1) 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_1867) static void C_ccall f_1867(C_word c,C_word *av) C_noret; C_noret_decl(f_2661) static void C_ccall f_2661(C_word c,C_word *av) C_noret; C_noret_decl(f_4837) static void C_ccall f_4837(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_3466) static void C_ccall f_3466(C_word c,C_word *av) C_noret; C_noret_decl(f_4829) static void C_fcall f_4829(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2691) static void C_ccall f_2691(C_word c,C_word *av) C_noret; C_noret_decl(f_4825) static void C_ccall f_4825(C_word c,C_word *av) C_noret; C_noret_decl(f_2216) static void C_ccall f_2216(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_2227) static void C_ccall f_2227(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_4643) static void C_ccall f_4643(C_word c,C_word *av) C_noret; C_noret_decl(f_4647) static void C_fcall f_4647(C_word t0,C_word t1) C_noret; C_noret_decl(f_2949) static void C_fcall f_2949(C_word t0,C_word t1) 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_2935) static void C_ccall f_2935(C_word c,C_word *av) C_noret; C_noret_decl(f_2202) static void C_ccall f_2202(C_word c,C_word *av) C_noret; C_noret_decl(f_2651) static void C_ccall f_2651(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_4182) static void C_fcall f_4182(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_2914) static void C_ccall f_2914(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_4680) static void C_ccall f_4680(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_4684) static void C_ccall f_4684(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_2671) static void C_ccall f_2671(C_word c,C_word *av) C_noret; C_noret_decl(f_4171) static void C_ccall f_4171(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_4670) static void C_ccall f_4670(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_4165) static void C_ccall f_4165(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_2965) static void C_ccall f_2965(C_word c,C_word *av) 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_4690) static void C_fcall f_4690(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3192) static void C_fcall f_3192(C_word t0,C_word t1) 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_2953) static void C_ccall f_2953(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_1570) static void C_ccall f_1570(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_1576) static void C_ccall f_1576(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_2404) static void C_fcall f_2404(C_word t0,C_word t1) 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_1738) static void C_ccall f_1738(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_4130) static void C_ccall f_4130(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_noret; C_noret_decl(f_2799) static void C_ccall f_2799(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_2419) static void C_ccall f_2419(C_word c,C_word *av) C_noret; C_noret_decl(f_3135) static void C_ccall f_3135(C_word c,C_word *av) C_noret; C_noret_decl(f_2149) static void C_fcall f_2149(C_word t0,C_word t1) C_noret; C_noret_decl(f_2146) static void C_fcall f_2146(C_word t0,C_word t1) 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_1681) static void C_ccall f_1681(C_word c,C_word *av) C_noret; C_noret_decl(f_4192) static void C_ccall f_4192(C_word c,C_word *av) C_noret; C_noret_decl(f_3150) static void C_ccall f_3150(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_1700) static void C_ccall f_1700(C_word c,C_word *av) C_noret; C_noret_decl(f_2993) static void C_ccall f_2993(C_word c,C_word *av) C_noret; C_noret_decl(f_1708) static void C_ccall f_1708(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_1963) static C_word C_fcall f_1963(C_word *a); 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_4385) static void C_ccall f_4385(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_4388) static void C_ccall f_4388(C_word c,C_word *av) C_noret; C_noret_decl(f_2192) static void C_ccall f_2192(C_word c,C_word *av) C_noret; C_noret_decl(f_1995) static void C_ccall f_1995(C_word c,C_word *av) C_noret; C_noret_decl(f_1991) static void C_ccall f_1991(C_word c,C_word *av) C_noret; C_noret_decl(f_2758) static void C_fcall f_2758(C_word t0,C_word t1) C_noret; C_noret_decl(f_1998) static void C_ccall f_1998(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_2189) static void C_ccall f_2189(C_word c,C_word *av) C_noret; C_noret_decl(f_2701) static void C_ccall f_2701(C_word c,C_word *av) C_noret; C_noret_decl(f_2183) static void C_ccall f_2183(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_2516) static void C_ccall f_2516(C_word c,C_word *av) C_noret; C_noret_decl(f_1727) static void C_fcall f_1727(C_word t0,C_word t1) C_noret; C_noret_decl(f_2512) static void C_ccall f_2512(C_word c,C_word *av) C_noret; C_noret_decl(f_1980) static void C_fcall f_1980(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2782) static void C_ccall f_2782(C_word c,C_word *av) C_noret; C_noret_decl(f_4365) static void C_ccall f_4365(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_4159) static void C_ccall f_4159(C_word c,C_word *av) C_noret; C_noret_decl(f_1716) static void C_ccall f_1716(C_word c,C_word *av) C_noret; C_noret_decl(f_4993) static void C_ccall f_4993(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_4975) static void C_ccall f_4975(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_3182) static void C_ccall f_3182(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_1600) static void C_ccall f_1600(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_5242) static void C_ccall f_5242(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_3310) static void C_ccall f_3310(C_word c,C_word *av) 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_1637) static void C_ccall f_1637(C_word c,C_word *av) C_noret; C_noret_decl(f_1633) static void C_ccall f_1633(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_5211) static void C_ccall f_5211(C_word c,C_word *av) C_noret; C_noret_decl(f_4957) static void C_ccall f_4957(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_1629) static void C_ccall f_1629(C_word c,C_word *av) C_noret; C_noret_decl(f_1624) static void C_fcall f_1624(C_word t0,C_word t1) C_noret; C_noret_decl(f_5300) static void C_ccall f_5300(C_word c,C_word *av) C_noret; C_noret_decl(f_3436) static void C_ccall f_3436(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_2833) static void C_ccall f_2833(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_5203) static void C_ccall f_5203(C_word c,C_word *av) C_noret; C_noret_decl(f_5207) static void C_ccall f_5207(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_4419) static void C_ccall f_4419(C_word c,C_word *av) C_noret; C_noret_decl(f_5320) static void C_ccall f_5320(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_4411) static void C_ccall f_4411(C_word c,C_word *av) C_noret; C_noret_decl(f_2854) static void C_ccall f_2854(C_word c,C_word *av) C_noret; C_noret_decl(f_2850) static void C_ccall f_2850(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_5334) static void C_ccall f_5334(C_word c,C_word *av) C_noret; C_noret_decl(f_2078) static void C_ccall f_2078(C_word c,C_word *av) C_noret; C_noret_decl(f_3697) static void C_ccall f_3697(C_word c,C_word *av) C_noret; C_noret_decl(f_5330) static void C_ccall f_5330(C_word c,C_word *av) C_noret; C_noret_decl(f_4441) static void C_fcall f_4441(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2071) static void C_ccall f_2071(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_4982) static void C_ccall f_4982(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_4988) static void C_ccall f_4988(C_word c,C_word *av) C_noret; C_noret_decl(f_3693) static void C_ccall f_3693(C_word c,C_word *av) C_noret; C_noret_decl(f_2068) static void C_ccall f_2068(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_2065) static void C_ccall f_2065(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_4439) static void C_ccall f_4439(C_word c,C_word *av) C_noret; C_noret_decl(f_4435) static void C_ccall f_4435(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_2062) static void C_ccall f_2062(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_3673) static void C_ccall f_3673(C_word c,C_word *av) C_noret; C_noret_decl(f_3670) static void C_ccall f_3670(C_word c,C_word *av) C_noret; C_noret_decl(f_3677) static void C_ccall f_3677(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_5360) static void C_ccall f_5360(C_word c,C_word *av) C_noret; C_noret_decl(f_5364) static void C_ccall f_5364(C_word c,C_word *av) C_noret; C_noret_decl(f_2082) static void C_ccall f_2082(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_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_2816) static void C_ccall f_2816(C_word c,C_word *av) C_noret; C_noret_decl(f_3681) static void C_ccall f_3681(C_word c,C_word *av) C_noret; C_noret_decl(f_2037) static void C_ccall f_2037(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_2031) static void C_ccall f_2031(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_4605) static void C_fcall f_4605(C_word t0) C_noret; C_noret_decl(f_3728) static void C_fcall f_3728(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3726) static void C_ccall f_3726(C_word c,C_word *av) C_noret; C_noret_decl(f_2059) static void C_ccall f_2059(C_word c,C_word *av) 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_2056) static void C_ccall f_2056(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_5310) static void C_ccall f_5310(C_word c,C_word *av) C_noret; C_noret_decl(f_4425) static void C_ccall f_4425(C_word c,C_word *av) C_noret; C_noret_decl(f_2050) static void C_ccall f_2050(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_1447) static void C_ccall f_1447(C_word c,C_word *av) C_noret; C_noret_decl(f_4620) static void C_fcall f_4620(C_word t0,C_word t1) 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_3413) static void C_ccall f_3413(C_word c,C_word *av) C_noret; C_noret_decl(f_2040) static void C_ccall f_2040(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_3753) static void C_ccall f_3753(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_1468) static void C_ccall f_1468(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_5356) static void C_ccall f_5356(C_word c,C_word *av) 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_1756) static void C_fcall f_1756(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3709) static void C_fcall f_3709(C_word t0,C_word t1) C_noret; C_noret_decl(f_1751) static void C_ccall f_1751(C_word c,C_word *av) C_noret; C_noret_decl(f_3701) static void C_ccall f_3701(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_1474) static void C_ccall f_1474(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_2357) static void C_ccall f_2357(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_1496) static void C_ccall f_1496(C_word c,C_word *av) C_noret; C_noret_decl(f_4803) static void C_ccall f_4803(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_4800) static void C_ccall f_4800(C_word c,C_word *av) C_noret; C_noret_decl(f_2345) static void C_ccall f_2345(C_word c,C_word *av) C_noret; C_noret_decl(f_4809) static void C_ccall f_4809(C_word c,C_word *av) C_noret; C_noret_decl(f_4806) static void C_ccall f_4806(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_4780) static void C_ccall f_4780(C_word c,C_word *av) 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_4783) static void C_ccall f_4783(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_4938) static void C_ccall f_4938(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_4914) static void C_ccall f_4914(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_4777) static void C_ccall f_4777(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_4929) static void C_ccall f_4929(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_4763) static void C_ccall f_4763(C_word c,C_word *av) 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_4209) static void C_ccall f_4209(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_4226) static void C_ccall f_4226(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_4740) static void C_ccall f_4740(C_word c,C_word *av) C_noret; C_noret_decl(f_4746) static void C_ccall f_4746(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_noret; C_noret_decl(f_5113) static void C_ccall f_5113(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_3841) static void C_ccall f_3841(C_word c,C_word *av) C_noret; C_noret_decl(f_5290) static void C_ccall f_5290(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_3835) static void C_ccall f_3835(C_word c,C_word *av) C_noret; C_noret_decl(f_3838) static void C_ccall f_3838(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_4242) static void C_fcall f_4242(C_word t0,C_word t1) C_noret; C_noret_decl(f_3120) static void C_ccall f_3120(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(C_toplevel) C_externexport void C_ccall C_toplevel(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_1641) static void C_ccall f_1641(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_4265) static void C_ccall f_4265(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_4261) static void C_ccall f_4261(C_word c,C_word *av) C_noret; C_noret_decl(f_5280) static void C_ccall f_5280(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_5256) static void C_ccall f_5256(C_word c,C_word *av) C_noret; C_noret_decl(f_5164) static void C_ccall f_5164(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_5269) static void C_ccall f_5269(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_5175) static void C_ccall f_5175(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_word t2) C_noret; C_noret_decl(trf_5122) static void C_ccall trf_5122(C_word c,C_word *av) C_noret; static void C_ccall trf_5122(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5122(t0,t1,t2);} C_noret_decl(trf_4475) static void C_ccall trf_4475(C_word c,C_word *av) C_noret; static void C_ccall trf_4475(C_word c,C_word *av){ C_word t0=av[0]; f_4475(t0);} C_noret_decl(trf_4635) static void C_ccall trf_4635(C_word c,C_word *av) C_noret; static void C_ccall trf_4635(C_word c,C_word *av){ C_word t0=av[0]; f_4635(t0);} C_noret_decl(trf_4718) static void C_ccall trf_4718(C_word c,C_word *av) C_noret; static void C_ccall trf_4718(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4718(t0,t1);} C_noret_decl(trf_4012) static void C_ccall trf_4012(C_word c,C_word *av) C_noret; static void C_ccall trf_4012(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4012(t0,t1,t2);} C_noret_decl(trf_3904) static void C_ccall trf_3904(C_word c,C_word *av) C_noret; static void C_ccall trf_3904(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3904(t0,t1,t2);} C_noret_decl(trf_3903) static void C_ccall trf_3903(C_word c,C_word *av) C_noret; static void C_ccall trf_3903(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3903(t0,t1);} C_noret_decl(trf_2004) static void C_ccall trf_2004(C_word c,C_word *av) C_noret; static void C_ccall trf_2004(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2004(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_4063(t0,t1,t2);} 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_3238) static void C_ccall trf_3238(C_word c,C_word *av) C_noret; static void C_ccall trf_3238(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3238(t0,t1,t2);} C_noret_decl(trf_4086) static void C_ccall trf_4086(C_word c,C_word *av) C_noret; static void C_ccall trf_4086(C_word c,C_word *av){ C_word t0=av[0]; f_4086(t0);} C_noret_decl(trf_4036) static void C_ccall trf_4036(C_word c,C_word *av) C_noret; static void C_ccall trf_4036(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4036(t0,t1);} C_noret_decl(trf_4845) static void C_ccall trf_4845(C_word c,C_word *av) C_noret; static void C_ccall trf_4845(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4845(t0,t1);} C_noret_decl(trf_3962) static void C_ccall trf_3962(C_word c,C_word *av) C_noret; static void C_ccall trf_3962(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3962(t0,t1,t2);} C_noret_decl(trf_3985) static void C_ccall trf_3985(C_word c,C_word *av) C_noret; static void C_ccall trf_3985(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3985(t0,t1,t2);} C_noret_decl(trf_5088) static void C_ccall trf_5088(C_word c,C_word *av) C_noret; static void C_ccall trf_5088(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5088(t0,t1,t2);} C_noret_decl(trf_3373) static void C_ccall trf_3373(C_word c,C_word *av) C_noret; static void C_ccall trf_3373(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3373(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[1]; C_word t1=av[0]; f_1940(t0,t1);} C_noret_decl(trf_5054) static void C_ccall trf_5054(C_word c,C_word *av) C_noret; static void C_ccall trf_5054(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5054(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_4556) static void C_ccall trf_4556(C_word c,C_word *av) C_noret; static void C_ccall trf_4556(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4556(t0,t1,t2);} C_noret_decl(trf_1907) static void C_ccall trf_1907(C_word c,C_word *av) C_noret; static void C_ccall trf_1907(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1907(t0,t1);} C_noret_decl(trf_3109) static void C_ccall trf_3109(C_word c,C_word *av) C_noret; static void C_ccall trf_3109(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3109(t0,t1);} C_noret_decl(trf_3100) static void C_ccall trf_3100(C_word c,C_word *av) C_noret; static void C_ccall trf_3100(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3100(t0,t1);} C_noret_decl(trf_4105) static void C_ccall trf_4105(C_word c,C_word *av) C_noret; static void C_ccall trf_4105(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4105(t0,t1,t2);} C_noret_decl(trf_3044) static void C_ccall trf_3044(C_word c,C_word *av) C_noret; static void C_ccall trf_3044(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3044(t0,t1);} C_noret_decl(trf_3041) static void C_ccall trf_3041(C_word c,C_word *av) C_noret; static void C_ccall trf_3041(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3041(t0,t1);} C_noret_decl(trf_4829) static void C_ccall trf_4829(C_word c,C_word *av) C_noret; static void C_ccall trf_4829(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4829(t0,t1,t2);} C_noret_decl(trf_4647) static void C_ccall trf_4647(C_word c,C_word *av) C_noret; static void C_ccall trf_4647(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4647(t0,t1);} C_noret_decl(trf_2949) static void C_ccall trf_2949(C_word c,C_word *av) C_noret; static void C_ccall trf_2949(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2949(t0,t1);} C_noret_decl(trf_4182) static void C_ccall trf_4182(C_word c,C_word *av) C_noret; static void C_ccall trf_4182(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4182(t0,t1,t2);} C_noret_decl(trf_4690) static void C_ccall trf_4690(C_word c,C_word *av) C_noret; static void C_ccall trf_4690(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4690(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_3192(t0,t1);} C_noret_decl(trf_2404) static void C_ccall trf_2404(C_word c,C_word *av) C_noret; static void C_ccall trf_2404(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2404(t0,t1);} 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[1]; C_word t1=av[0]; f_1731(t0,t1);} C_noret_decl(trf_2149) static void C_ccall trf_2149(C_word c,C_word *av) C_noret; static void C_ccall trf_2149(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2149(t0,t1);} C_noret_decl(trf_2146) static void C_ccall trf_2146(C_word c,C_word *av) C_noret; static void C_ccall trf_2146(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2146(t0,t1);} C_noret_decl(trf_2758) static void C_ccall trf_2758(C_word c,C_word *av) C_noret; static void C_ccall trf_2758(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2758(t0,t1);} C_noret_decl(trf_1727) static void C_ccall trf_1727(C_word c,C_word *av) C_noret; static void C_ccall trf_1727(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1727(t0,t1);} C_noret_decl(trf_1980) static void C_ccall trf_1980(C_word c,C_word *av) C_noret; static void C_ccall trf_1980(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1980(t0,t1,t2);} C_noret_decl(trf_1624) static void C_ccall trf_1624(C_word c,C_word *av) C_noret; static void C_ccall trf_1624(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1624(t0,t1);} C_noret_decl(trf_4441) static void C_ccall trf_4441(C_word c,C_word *av) C_noret; static void C_ccall trf_4441(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4441(t0,t1,t2);} C_noret_decl(trf_4605) static void C_ccall trf_4605(C_word c,C_word *av) C_noret; static void C_ccall trf_4605(C_word c,C_word *av){ C_word t0=av[0]; f_4605(t0);} C_noret_decl(trf_3728) static void C_ccall trf_3728(C_word c,C_word *av) C_noret; static void C_ccall trf_3728(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3728(t0,t1,t2);} 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_4620) static void C_ccall trf_4620(C_word c,C_word *av) C_noret; static void C_ccall trf_4620(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4620(t0,t1);} C_noret_decl(trf_1756) static void C_ccall trf_1756(C_word c,C_word *av) C_noret; static void C_ccall trf_1756(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1756(t0,t1,t2);} C_noret_decl(trf_3709) static void C_ccall trf_3709(C_word c,C_word *av) C_noret; static void C_ccall trf_3709(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3709(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_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_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[2]; C_word t1=av[1]; C_word t2=av[0]; f_3831(t0,t1,t2);} C_noret_decl(trf_4242) static void C_ccall trf_4242(C_word c,C_word *av) C_noret; static void C_ccall trf_4242(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4242(t0,t1);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_3806(t0,t1,t2);} /* k4271 in k4263 in k4240 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in ... */ static void C_ccall f_4273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_4273,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4276,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[71],"deployed"))){ /* csc.scm:952: make-pathname */ t4=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[183]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4286,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csc.scm:954: lib-path */ f_4475(t4);}} /* k4274 in k4271 in k4263 in k4240 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in ... */ static void C_ccall f_4276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4276,2,av);} /* csc.scm:949: quotewrap */ t2=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_1562(3,av2);}} /* k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_5189,2,av);} a=C_alloc(9); t2=C_a_i_list1(&a,1,t1); t3=C_mutate2(&lf[76] /* (set! default-shared-library-files ...) */,t2); t4=C_mutate2(&lf[77] /* (set! library-files ...) */,C_retrieve2(lf[75],"default-library-files")); t5=C_mutate2(&lf[78] /* (set! shared-library-files ...) */,C_retrieve2(lf[76],"default-shared-library-files")); t6=lf[79] /* translate-options */ =C_SCHEME_END_OF_LIST;; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1700,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5175,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* csc.scm:240: make-pathname */ t9=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t8; av2[2]=lf[417]; av2[3]=lf[418]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* k2873 in k2869 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 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 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_2875,2,av);} t2=C_mutate2(&lf[82] /* (set! compile-options ...) */,t1); t3=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t3); /* csc.scm:818: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_1980(t5,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k2275 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ 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,2)))){ C_save_and_reclaim((void *)f_2277,2,av);} /* csc.scm:601: system */ t2=C_fast_retrieve(lf[136]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2869 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 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 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_2871,2,av);} a=C_alloc(8); t2=(*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]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2883,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_i_car(((C_word*)((C_word*)t0)[2])[1]); /* csc.scm:727: string-split */ t5=C_fast_retrieve(lf[233]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2379 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_2381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2381,2,av);} /* csc.scm:625: exit */ t2=C_fast_retrieve(lf[14]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* quote-option in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 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=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_4733,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4740,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4763,tmp=(C_word)a,a+=2,tmp); /* csc.scm:1044: string-any */ t5=C_fast_retrieve(lf[130]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k5191 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in ... */ static void C_ccall f_5193(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5193,2,av);} /* csc.scm:231: string-append */ t2=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[419]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2240 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2242,2,av);} /* csc.scm:596: exit */ t2=C_fast_retrieve(lf[14]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4723 in k4716 in fold in k4686 in k4744 in k4738 in quote-option in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in ... */ static void C_ccall f_4725(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_4725,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k4296 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 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 *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);} /* csc.scm:936: command */ f_4845(((C_word*)t0)[2],t1);} /* k2895 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_ccall f_2897(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2897,2,av);} t2=C_mutate2(&lf[88] /* (set! link-options ...) */,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_1980(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* map-loop140 in k5075 in k5056 in k5052 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in ... */ static void C_fcall f_5122(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_5122,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_5147,a[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:252: g146 */ 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);}}} /* k2228 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2230,2,av);} /* csc.scm:818: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1980(t2,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k4481 in lib-path in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 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 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_4483,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; if(C_truep(C_retrieve2(lf[19],"chicken-prefix"))){ t3=C_a_i_list2(&a,2,C_retrieve2(lf[19],"chicken-prefix"),lf[105]); /* csc.scm:89: make-pathname */ t4=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=lf[107]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2881 in k2869 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2883,2,av);} /* csc.scm:727: append */ t2=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[82],"compile-options"); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2628 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2630,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_mutate2(((C_word *)((C_word*)t0)[2])+1,t3); t5=C_mutate2(&lf[89] /* (set! target-filename ...) */,t2); /* csc.scm:818: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_1980(t6,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k2259 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_2261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2261,2,av);} /* csc.scm:598: print */ t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* lib-path in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in ... */ static void C_fcall f_4475(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_4475,1,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4483,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[22],"host-mode"))){ /* ##sys#peek-c-string */ t3=*((C_word*)lf[18]+1);{ C_word av2[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);}} else{ /* ##sys#peek-c-string */ t3=*((C_word*)lf[18]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_RUN_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k5145 in map-loop140 in k5075 in k5056 in k5052 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 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 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_5147,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5122(t6,((C_word*)t0)[5],t5);} /* k2601 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ 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; 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_2603,2,av);} a=C_alloc(5); if(C_truep(C_retrieve2(lf[4],"osx"))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2614,a[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:681: cons* */ t4=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[313]; av2[3]=t3; av2[4]=C_retrieve2(lf[88],"link-options"); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); /* csc.scm:818: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1980(t4,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);}} /* k2612 in k2601 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_ccall f_2614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2614,2,av);} t2=C_mutate2(&lf[88] /* (set! link-options ...) */,t1); t3=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t3); /* csc.scm:818: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_1980(t5,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k2252 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2254,2,av);} /* csc.scm:599: exit */ t2=C_fast_retrieve(lf[14]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3921 in k3906 in g595 in k3901 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3923,2,av);} /* csc.scm:893: command */ f_4845(((C_word*)t0)[2],t1);} /* k3970 in for-each-loop632 in k3952 in k3943 in k3939 in k3901 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in ... */ static void C_ccall f_3972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3972,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3962(t3,((C_word*)t0)[4],t2);} /* k3939 in k3901 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 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 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_3941,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3945,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4010,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csc.scm:899: reverse */ t4=*((C_word*)lf[210]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3775 in k3699 in k3668 in k3665 in for-each-loop504 in k2147 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in ... */ static void C_ccall f_3777(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_3777,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; f_3709(t2,C_a_i_list(&a,2,lf[224],t1));} /* k3943 in k3939 in k3901 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in ... */ static void C_ccall f_3945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_3945,2,av);} a=C_alloc(9); t2=C_mutate2(&lf[59] /* (set! object-files ...) */,t1); if(C_truep(C_retrieve2(lf[91],"keep-files"))){ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_retrieve2(lf[144],"$delete-file"); t4=C_retrieve2(lf[57],"generated-c-files"); t5=C_i_check_list_2(C_retrieve2(lf[57],"generated-c-files"),lf[157]); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3954,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_3985,a[2]=t8,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_3985(t10,t6,C_retrieve2(lf[57],"generated-c-files"));}} /* k4631 in linker-options in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4633,2,av);} /* csc.scm:1009: string-intersperse */ t2=C_fast_retrieve(lf[102]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3909 in k3906 in g595 in k3901 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 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 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_3911,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],C_retrieve2(lf[60],"generated-object-files")); t3=C_mutate2(&lf[60] /* (set! generated-object-files ...) */,t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t5=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t4); t6=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* linker-libraries in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in ... */ static void C_fcall f_4635(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_4635,1,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4643,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4647,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_retrieve2(lf[96],"static"); if(C_truep(C_retrieve2(lf[96],"static"))){ t5=C_retrieve2(lf[96],"static"); t6=t3; f_4647(t6,(C_truep(C_retrieve2(lf[96],"static"))?C_retrieve2(lf[77],"library-files"):C_retrieve2(lf[78],"shared-library-files")));} else{ t5=C_retrieve2(lf[97],"static-libs"); t6=t3; f_4647(t6,(C_truep(C_retrieve2(lf[97],"static-libs"))?C_retrieve2(lf[77],"library-files"):C_retrieve2(lf[78],"shared-library-files")));}} /* f6092 in k4577 in k4574 in k4571 in k4568 in k4562 in copy-files in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in ... */ static void C_ccall f6092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f6092,2,av);} /* csc.scm:101: qs */ t2=C_fast_retrieve(lf[25]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f6097 in k4571 in k4568 in k4562 in copy-files in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_ccall f6097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f6097,2,av);} /* csc.scm:101: qs */ t2=C_fast_retrieve(lf[25]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3929 in k3906 in g595 in k3901 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in ... */ static void C_ccall f_3931(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3931,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3935,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* csc.scm:895: quotewrap */ t4=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; f_1562(3,av2);}} /* k4008 in k3939 in k3901 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4010,2,av);} /* csc.scm:899: append */ t2=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_retrieve2(lf[59],"object-files"); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4716 in fold in k4686 in k4744 in k4738 in quote-option in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in ... */ static void C_fcall f_4718(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_4718,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4725,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:1038: fold */ t5=((C_word*)((C_word*)t0)[5])[1]; f_4690(t5,t2,t4);} /* for-each-loop594 in k3901 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in ... */ static void C_fcall f_4012(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_4012,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_4022,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:890: g595 */ t5=((C_word*)t0)[3]; f_3904(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);}}} /* k3933 in k3929 in k3906 in g595 in k3901 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3935,2,av);} a=C_alloc(9); t2=C_a_i_list3(&a,3,C_retrieve2(lf[33],"rc-compiler"),((C_word*)t0)[2],t1); /* csc.scm:894: string-intersperse */ t3=C_fast_retrieve(lf[102]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4538 in k4534 in k4224 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4540,2,av);} /* csc.scm:988: make-pathname */ t2=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_retrieve2(lf[47],"dynamic-libchicken"); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4711 in fold in k4686 in k4744 in k4738 in quote-option in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in ... */ static void C_ccall f_4713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4713,2,av);} /* csc.scm:1035: cons* */ t2=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(92); av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* g595 in k3901 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in ... */ static void C_fcall f_3904(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_3904,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3908,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* csc.scm:892: string-append */ t4=*((C_word*)lf[122]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[209]; av2[4]=C_retrieve2(lf[36],"object-extension"); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3906 in g595 in k3901 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 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(12,c,2)))){ C_save_and_reclaim((void *)f_3908,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3911,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_3923,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3931,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csc.scm:895: quotewrap */ t6=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; f_1562(3,av2);}} /* k2116 in k2109 in k2106 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in ... */ 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 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_2118,2,av);} t2=C_mutate2(&lf[89] /* (set! target-filename ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_2001(2,av2);}} /* k4534 in k4224 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in ... */ 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 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_4536,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4540,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[4],"osx"))){ /* csc.scm:988: make-pathname */ t4=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=C_retrieve2(lf[47],"dynamic-libchicken"); av2[4]=lf[171]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_retrieve2(lf[2],"mingw"); t5=(C_truep(C_retrieve2(lf[2],"mingw"))?C_retrieve2(lf[2],"mingw"):C_retrieve2(lf[6],"cygwin")); if(C_truep(t5)){ /* csc.scm:988: make-pathname */ t6=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=C_retrieve2(lf[47],"dynamic-libchicken"); av2[4]=lf[172]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4554,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csc.scm:995: number->string */ t7=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=C_fix((C_word)C_BINARY_VERSION); ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}} /* k3901 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in ... */ static void C_fcall f_3903(C_word t0,C_word t1){ C_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_3903,2,t0,t1);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3904,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_retrieve2(lf[56],"rc-files"); t4=C_i_check_list_2(C_retrieve2(lf[56],"rc-files"),lf[157]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3941,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_4012,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_4012(t9,t5,C_retrieve2(lf[56],"rc-files"));} /* k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_3900,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3903,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_4036,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[45],"generate-manifest"))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4061,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csc.scm:885: software-type */ t5=C_fast_retrieve(lf[216]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t3; f_4036(t4,C_SCHEME_FALSE);}} /* k2109 in k2106 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in ... */ static void C_ccall f_2111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2111,2,av);} a=C_alloc(3); if(C_truep(C_retrieve2(lf[89],"target-filename"))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_2001(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2118,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[95],"shared"))){ /* csc.scm:563: pathname-replace-extension */ t3=C_fast_retrieve(lf[208]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=C_retrieve2(lf[42],"shared-library-extension"); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* csc.scm:564: pathname-replace-extension */ t3=C_fast_retrieve(lf[208]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=C_retrieve2(lf[40],"executable-extension"); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}} /* k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_2001,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2004,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[70],"deploy"))){ t3=C_retrieve2(lf[95],"shared"); t4=t2; f_2004(t4,(C_truep(C_retrieve2(lf[95],"shared"))?C_SCHEME_UNDEFINED:( /* csc.scm:575: use-private-repository */ f_1963(C_a_i(&a,6)) )));} else{ t3=t2; f_2004(t3,C_SCHEME_UNDEFINED);}} /* k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in ... */ static void C_fcall f_2004(C_word t0,C_word t1){ C_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(18,0,3)))){ C_save_and_reclaim_args((void *)trf_2004,2,t0,t1);} a=C_alloc(18); if(C_truep(C_retrieve2(lf[92],"translate-only"))){ 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);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2010,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_3831,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=C_retrieve2(lf[55],"c-files"); t8=C_i_check_list_2(C_retrieve2(lf[55],"c-files"),lf[157]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3900,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_4063,a[2]=t11,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t13=((C_word*)t11)[1]; f_4063(t13,t9,C_retrieve2(lf[55],"c-files"));}} /* k2268 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_2270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2270,2,av);} /* csc.scm:602: exit */ t2=C_fast_retrieve(lf[14]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4527 in k4224 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4529,2,av);} /* csc.scm:996: copy-files */ f_4556(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in ... */ static void C_ccall f_2016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_2016,2,av);} a=C_alloc(16); 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_retrieve2(lf[24],"quotewrap"); t8=C_retrieve2(lf[59],"object-files"); t9=C_i_check_list_2(C_retrieve2(lf[59],"object-files"),lf[101]); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4156,a[2]=t2,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_4441,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_4441(t14,t10,C_retrieve2(lf[59],"object-files"));} /* k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_2010,2,av);} a=C_alloc(7); if(C_truep(C_retrieve2(lf[93],"compile-only"))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_2016,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_member(C_retrieve2(lf[89],"target-filename"),C_retrieve2(lf[54],"scheme-files")))){ t3=*((C_word*)lf[132]+1); t4=*((C_word*)lf[132]+1); t5=C_i_check_port_2(*((C_word*)lf[132]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[133]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2028,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* csc.scm:580: ##sys#print */ t7=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=lf[201]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[132]+1); ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2016(2,av2);}}}} /* k4499 in k4493 in k4224 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4501,2,av);} if(C_truep(C_i_string_equal_p(t1,lf[175]))){ /* csc.scm:985: lib-path */ f_4475(((C_word*)t0)[2]);} else{ if(C_truep(C_retrieve2(lf[23],"cross-chicken"))){ t2=C_retrieve2(lf[22],"host-mode"); if(C_truep(C_retrieve2(lf[22],"host-mode"))){ /* csc.scm:985: lib-path */ f_4475(((C_word*)t0)[2]);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ /* csc.scm:985: lib-path */ f_4475(((C_word*)t0)[2]);}}} /* k2106 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 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 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_2108,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2111,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(C_retrieve2(lf[55],"c-files")))){ t3=C_retrieve2(lf[59],"object-files"); t4=C_retrieve2(lf[59],"object-files"); /* csc.scm:559: last */ t5=C_fast_retrieve(lf[217]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=C_retrieve2(lf[59],"object-files"); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_retrieve2(lf[55],"c-files"); t4=C_retrieve2(lf[55],"c-files"); /* csc.scm:559: last */ t5=C_fast_retrieve(lf[217]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=C_retrieve2(lf[55],"c-files"); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* f6072 in k2184 in k2181 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in ... */ static void C_ccall f6072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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 *)f6072,2,av);} /* csc.scm:554: exit */ t2=C_fast_retrieve(lf[14]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f6028 in k4571 in k4568 in k4562 in copy-files in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_ccall f6028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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 *)f6028,2,av);} /* csc.scm:1000: ##sys#print */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* f6020 in k4577 in k4574 in k4571 in k4568 in k4562 in copy-files in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in ... */ static void C_ccall f6020(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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 *)f6020,2,av);} /* csc.scm:1000: ##sys#print */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* f6024 in k4577 in k4574 in k4571 in k4568 in k4562 in copy-files in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in ... */ static void C_ccall f6024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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 *)f6024,2,av);} /* csc.scm:1000: ##sys#print */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4071 in for-each-loop564 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4073,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4063(t3,((C_word*)t0)[4],t2);} /* k2573 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_2575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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,6)))){ C_save_and_reclaim((void *)f_2575,2,av);} a=C_alloc(8); t2=C_a_i_cons(&a,2,t1,C_retrieve2(lf[59],"object-files")); t3=C_mutate2(&lf[59] /* (set! object-files ...) */,t2); t4=(*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); /* csc.scm:671: cons* */ t5=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t4; av2[2]=lf[305]; av2[3]=lf[306]; av2[4]=lf[307]; av2[5]=lf[308]; av2[6]=C_retrieve2(lf[88],"link-options"); ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} /* k2577 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2579,2,av);} /* csc.scm:666: make-pathname */ t2=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[309]; av2[4]=C_retrieve2(lf[36],"object-extension"); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k2569 in k2573 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_ccall f_2571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2571,2,av);} t2=C_mutate2(&lf[88] /* (set! link-options ...) */,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_1980(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* for-each-loop564 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in ... */ static void C_fcall f_4063(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_4063,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_4073,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:863: g565 */ t5=((C_word*)t0)[3]; f_3831(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);}}} /* k4059 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4061,2,av);} t2=((C_word*)t0)[2]; f_4036(t2,C_eqp(lf[215],t1));} /* k4095 in compiler-options in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 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 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_4097,2,av);} a=C_alloc(11); t2=C_i_check_list_2(t1,lf[101]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4103,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_4105,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_4105(t7,t3,t1);} /* k3871 in k3867 in k3863 in k3836 in k3833 in g565 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in ... */ static void C_fcall f_3873(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_3873,2,t0,t1);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3877,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:881: compiler-options */ f_4086(t3);} /* map-loop445 in k3275 in k3279 in k3190 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in ... */ static void C_fcall f_3238(C_word 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_3238,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_3263,a[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[116]); C_word av2[4]; av2[0]=*((C_word*)lf[116]+1); av2[1]=t3; av2[2]=lf[379]; 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);}}} /* compiler-options in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in ... */ static void C_fcall f_4086(C_word t1){ C_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(11,0,4)))){ C_save_and_reclaim_args((void *)trf_4086,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[100],"quote-option"); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4097,a[2]=t1,a[3]=t4,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp); t8=C_retrieve2(lf[96],"static"); t9=(C_truep(C_retrieve2(lf[96],"static"))?C_retrieve2(lf[96],"static"):C_retrieve2(lf[97],"static-libs")); if(C_truep(t9)){ /* csc.scm:907: append */ t10=*((C_word*)lf[103]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t7; av2[2]=C_SCHEME_END_OF_LIST; av2[3]=C_retrieve2(lf[85],"compilation-optimization-options"); av2[4]=C_retrieve2(lf[82],"compile-options"); ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ /* csc.scm:907: append */ t10=*((C_word*)lf[103]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t7; av2[2]=C_SCHEME_END_OF_LIST; av2[3]=C_retrieve2(lf[85],"compilation-optimization-options"); av2[4]=C_retrieve2(lf[82],"compile-options"); ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}} /* k3234 in k3275 in k3279 in k3190 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3236,2,av);} /* csc.scm:791: append */ t2=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3875 in k3871 in k3867 in k3863 in k3836 in k3833 in g565 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in ... */ 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 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_3877,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[202],((C_word*)t0)[5],t1); /* csc.scm:872: string-intersperse */ t3=C_fast_retrieve(lf[102]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4037 in k4034 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in ... */ 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 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_4039,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4042,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_4054,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csc.scm:887: pathname-file */ t5=C_fast_retrieve(lf[170]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_retrieve2(lf[89],"target-filename"); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k4034 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in ... */ static void C_fcall f_4036(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_4036,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4039,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:886: pathname-replace-extension */ t3=C_fast_retrieve(lf[208]);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=C_retrieve2(lf[89],"target-filename"); av2[3]=lf[214]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[2]; f_3903(t2,C_SCHEME_UNDEFINED);}} /* k3296 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in ... */ static void C_ccall f_3298(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3298,2,av);} t2=((C_word*)t0)[2]; f_3192(t2,C_u_i_string_equal_p(lf[385],t1));} /* k3851 in k3836 in k3833 in g565 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3853,2,av);} /* csc.scm:871: command */ f_4845(((C_word*)t0)[2],t1);} /* f6054 in k2057 in k2054 in k2048 in k2041 in k2038 in k2035 in k2032 in k2029 in k2026 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in ... */ static void C_ccall f6054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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 *)f6054,2,av);} /* csc.scm:583: ##sys#print */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* f6050 in k2057 in k2054 in k2048 in k2041 in k2038 in k2035 in k2032 in k2029 in k2026 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in ... */ static void C_ccall f6050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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 *)f6050,2,av);} /* csc.scm:583: ##sys#print */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1596,2,av);} a=C_alloc(9); t2=C_mutate2(&lf[31] /* (set! compiler ...) */,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_5310,a[2]=t3,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[22],"host-mode"))){ /* ##sys#peek-c-string */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_INSTALL_CXX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* ##sys#peek-c-string */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_TARGET_CXX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k3886 in k3863 in k3836 in k3833 in g565 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 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,3)))){ C_save_and_reclaim((void *)f_3888,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[116]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[116]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[206]; av2[3]=t1; tp(4,av2);}} /* k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1592,2,av);} a=C_alloc(9); t2=C_mutate2(&lf[30] /* (set! translator ...) */,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_5320,a[2]=t3,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[22],"host-mode"))){ /* ##sys#peek-c-string */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_INSTALL_CC); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* ##sys#peek-c-string */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_TARGET_CC); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k2317 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_2319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2319,2,av);} t2=C_mutate2(&lf[79] /* (set! translate-options ...) */,t1); t3=lf[97] /* static-libs */ =C_SCHEME_TRUE;; /* csc.scm:818: loop */ t4=((C_word*)((C_word*)t0)[2])[1]; f_1980(t4,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k4020 in for-each-loop594 in k3901 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4022,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4012(t3,((C_word*)t0)[4],t2);} /* k3863 in k3836 in k3833 in g565 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in ... */ 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 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_3865,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3869,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_3888,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csc.scm:876: quotewrap */ t5=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; f_1562(3,av2);}} /* k1842 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_1844(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1844,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_1727(t2,C_a_i_list1(&a,1,t1));} /* k1582 in quotewrap-no-slash-trans in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1584,2,av);} /* csc.scm:101: qs */ t2=C_fast_retrieve(lf[25]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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 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_1588,2,av);} a=C_alloc(16); t2=C_mutate2(&lf[29] /* (set! home ...) */,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_5330,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5334,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5338,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t7=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=C_mpointer(&a,(void*)C_INSTALL_BIN_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k4052 in k4037 in k4034 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 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 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_4054,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_4988,a[2]=t3,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_retrieve2(lf[90],"verbose"))){ /* csc.scm:1120: print */ t6=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=lf[213]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_4988(2,av2);}}} /* k4040 in k4037 in k4034 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 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 t3; 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_4042,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],C_retrieve2(lf[56],"rc-files")); t3=C_mutate2(&lf[56] /* (set! rc-files ...) */,t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],C_retrieve2(lf[58],"generated-rc-files")); t5=C_mutate2(&lf[58] /* (set! generated-rc-files ...) */,t4); t6=((C_word*)t0)[3]; f_3903(t6,t5);} /* k3275 in k3279 in k3190 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 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 t3; C_word t4; 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_3277,2,av);} a=C_alloc(21); if(C_truep(C_i_nullp(t1))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3219,a[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_3236,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_3238,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_3238(t11,t7,((C_word*)t0)[5]);} else{ /* csc.scm:792: stop */ f_1499(((C_word*)t0)[6],lf[380],C_a_i_list(&a,1,((C_word*)t0)[7]));}} /* k3279 in k3190 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in ... */ static void C_ccall f_3281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_3281,2,av);} a=C_alloc(8); t2=C_i_cdr(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3277,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); /* csc.scm:789: lset-difference */ t5=C_fast_retrieve(lf[381]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[382]+1); av2[3]=t3; av2[4]=lf[383]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* f6108 in k2057 in k2054 in k2048 in k2041 in k2038 in k2035 in k2032 in k2029 in k2026 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in ... */ static void C_ccall f6108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f6108,2,av);} /* csc.scm:101: qs */ t2=C_fast_retrieve(lf[25]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4999 in a4992 in k4986 in k4052 in k4037 in k4034 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in ... */ static void C_ccall f_5001(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5001,2,av);} /* csc.scm:1123: print */ t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1872 in k1865 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_ccall f_1874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1874,2,av);} /* csc.scm:309: print */ t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4857 in command in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4859,2,av);} if(C_truep(C_i_zerop(t1))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* csc.scm:1071: exit */ t2=C_fast_retrieve(lf[14]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[131],"last-exit-code"); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k5017 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in ... */ static void C_ccall f_5019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_5019,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5022,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5025,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#implicit-exit-handler */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[147]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[147]+1); av2[1]=t3; tp(2,av2);}} /* k1826 in k1807 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_1828,2,av);} a=C_alloc(6); if(C_truep(C_retrieve2(lf[19],"chicken-prefix"))){ t2=C_a_i_list2(&a,2,C_retrieve2(lf[19],"chicken-prefix"),lf[244]); /* csc.scm:89: make-pathname */ t3=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=lf[245]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* csc.scm:276: quotewrap */ t2=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; f_1562(3,av2);}}} /* k1822 in k1807 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_ccall f_1824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1824,2,av);} /* csc.scm:276: quotewrap */ t2=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_1562(3,av2);}} /* command in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in ... */ static void C_fcall f_4845(C_word t1,C_word 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_4845,2,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4859,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_4774,a[2]=t4,tmp=(C_word)a,a+=3,tmp); if(C_truep(lf[0])){ /* csc.scm:1055: string-append */ t7=*((C_word*)lf[122]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=lf[138]; av2[3]=t5; av2[4]=lf[139]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4825,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[4],"osx"))){ /* csc.scm:1056: get-environment-variable */ t8=C_fast_retrieve(lf[142]);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=lf[143]; ((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_4825(2,av2);}}}} /* k1513 in k1510 in k1507 in k1504 in stop in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ static void C_ccall f_1515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1515,2,av);} /* csc.scm:80: exit */ t2=C_fast_retrieve(lf[14]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1815 in k1807 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1817,2,av);} /* csc.scm:273: conc */ t2=C_fast_retrieve(lf[241]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[242]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1510 in k1507 in k1504 in stop in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_1512,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1515,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:78: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k1811 in k1807 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_1813,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; f_1727(t2,C_a_i_list2(&a,2,((C_word*)t0)[3],t1));} /* k1504 in stop in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1506,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1509,a[2]=((C_word*)t0)[2],a[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:78: ##sys#print */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[17]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* $delete-file in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 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=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_4861,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4865,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[90],"verbose"))){ /* csc.scm:1075: print */ t4=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[146]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ if(C_truep(C_retrieve2(lf[68],"dry-run"))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* csc.scm:1076: delete-file */ t4=C_fast_retrieve(lf[145]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}} /* k4863 in $delete-file in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4865,2,av);} if(C_truep(C_retrieve2(lf[68],"dry-run"))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* csc.scm:1076: delete-file */ t2=C_fast_retrieve(lf[145]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k1507 in k1504 in stop in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_1509,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1512,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; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=t2; av2[2]=*((C_word*)lf[13]+1); av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; C_apply(6,av2);}} /* k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ static void C_ccall f_1530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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,3)))){ C_save_and_reclaim((void *)f_1530,2,av);} a=C_alloc(13); t2=C_mutate2(&lf[20] /* (set! arguments ...) */,t1); t3=C_i_member(lf[21],C_retrieve2(lf[20],"arguments")); t4=C_mutate2(&lf[22] /* (set! host-mode ...) */,t3); t5=C_fudge(C_fix(39)); t6=C_mutate2(&lf[23] /* (set! cross-chicken ...) */,t5); t7=C_mutate2(&lf[24] /* (set! quotewrap ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1562,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate2(&lf[28] /* (set! quotewrap-no-slash-trans ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1576,tmp=(C_word)a,a+=2,tmp)); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1588,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5346,a[2]=t9,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[22],"host-mode"))){ /* ##sys#peek-c-string */ t11=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t11; av2[1]=t10; av2[2]=C_mpointer(&a,(void*)C_INSTALL_SHARE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ /* ##sys#peek-c-string */ t11=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t11; av2[1]=t10; av2[2]=C_mpointer(&a,(void*)C_TARGET_SHARE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}} /* k3008 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 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 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_3010,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3013,a[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:749: t-options */ f_1907(t2,C_a_i_list(&a,2,lf[370],t3));} /* k3993 in for-each-loop615 in k3943 in k3939 in k3901 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3995,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3985(t3,((C_word*)t0)[4],t2);} /* k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1526,2,av);} a=C_alloc(3); t2=C_mutate2(&lf[19] /* (set! chicken-prefix ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1530,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:83: command-line-arguments */ t4=C_fast_retrieve(lf[432]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1520 in stop in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1522,2,av);} /* csc.scm:78: ##sys#print */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop632 in k3952 in k3943 in k3939 in k3901 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in ... */ static void C_fcall f_3962(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_3962,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_3972,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:902: g633 */ 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);}}} /* k3344 in a3320 in k3308 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in ... */ static void C_ccall f_3346(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3346,2,av);} t2=C_mutate2(&lf[55] /* (set! c-files ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3011 in k3008 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in ... */ 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 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_3013,2,av);} t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); /* csc.scm:818: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1980(t4,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* f6032 in k4571 in k4568 in k4562 in copy-files in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_ccall f6032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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 *)f6032,2,av);} /* csc.scm:1000: ##sys#print */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1799 in k1725 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1801,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_1731(t2,(C_truep((C_truep(C_eqp(t1,lf[236]))?C_SCHEME_TRUE:(C_truep(C_eqp(t1,lf[237]))?C_SCHEME_TRUE:(C_truep(C_eqp(t1,lf[238]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))?C_a_i_list1(&a,1,lf[239]):C_SCHEME_END_OF_LIST));} /* k2729 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2731,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1980(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k1807 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_1809(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1809,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1813,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_1817,a[2]=t3,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[71],"deployed"))){ /* csc.scm:273: conc */ t5=C_fast_retrieve(lf[241]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=lf[242]; av2[3]=lf[243]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1824,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1828,a[2]=t5,a[3]=t4,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[22],"host-mode"))){ /* ##sys#peek-c-string */ t7=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=C_mpointer(&a,(void*)C_INSTALL_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ /* ##sys#peek-c-string */ t7=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=C_mpointer(&a,(void*)C_TARGET_RUN_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}} /* for-each-loop615 in k3943 in k3939 in k3901 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in ... */ static void C_fcall f_3985(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_3985,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_3995,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:901: g616 */ 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);}}} /* map-loop113 in k5078 in k5075 in k5056 in k5052 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in ... */ static void C_fcall f_5088(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_5088,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_5113,a[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:252: g136 */ t5=*((C_word*)lf[122]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=lf[412]; 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);}}} /* k5078 in k5075 in k5056 in k5052 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in ... */ static void C_ccall f_5080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_5080,2,av);} a=C_alloc(7); t2=C_i_check_list_2(t1,lf[101]); 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_5088,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_5088(t6,((C_word*)t0)[4],t1);} /* k4316 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 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 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_4318,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4322,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csc.scm:943: linker-options */ f_4605(t3);} /* k3261 in map-loop445 in k3275 in k3279 in k3190 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in ... */ 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 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_3263,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3238(t6,((C_word*)t0)[5],t5);} /* k4308 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4310,2,av);} /* csc.scm:938: cons* */ t2=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3358 in a3320 in k3308 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in ... */ 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 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_3360,2,av);} t2=C_mutate2(&lf[56] /* (set! rc-files ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3952 in k3943 in k3939 in k3901 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in ... */ 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; 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_3954,2,av);} a=C_alloc(6); t2=C_retrieve2(lf[144],"$delete-file"); t3=C_retrieve2(lf[58],"generated-rc-files"); t4=C_i_check_list_2(C_retrieve2(lf[58],"generated-rc-files"),lf[157]); 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_3962,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_3962(t8,((C_word*)t0)[2],C_retrieve2(lf[58],"generated-rc-files"));} /* k4344 in k4340 in k4336 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 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 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_4346,2,av);} a=C_alloc(4); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4352,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csc.scm:932: directory-exists? */ t4=C_fast_retrieve(lf[188]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4340 in k4336 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in ... */ static void C_ccall f_4342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_4342,2,av);} a=C_alloc(5); t2=C_mutate2(&lf[89] /* (set! target-filename ...) */,t1); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4346,a[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:931: quotewrap */ t4=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_retrieve2(lf[89],"target-filename"); f_1562(3,av2);}} /* k3371 in a3320 in k3308 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in ... */ static void C_fcall f_3373(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_3373,2,t0,t1);} a=C_alloc(6); t2=lf[61] /* cpp-mode */ =C_SCHEME_TRUE;; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3378,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:805: append */ t5=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=C_retrieve2(lf[55],"c-files"); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k3376 in k3371 in a3320 in k3308 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in ... */ static void C_ccall f_3378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3378,2,av);} t2=C_mutate2(&lf[55] /* (set! c-files ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2709 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2711,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1980(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5059 in k5056 in k5052 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5061,2,av);} /* csc.scm:248: append */ t2=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4373 in k4336 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4375,2,av);} /* csc.scm:929: string-append */ t2=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[189]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1947 in k1943 in shared-build in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1949,2,av);} a=C_alloc(3); t2=C_mutate2(&lf[82] /* (set! compile-options ...) */,t1); t3=(C_truep(C_retrieve2(lf[4],"osx"))?(C_truep(((C_word*)t0)[2])?C_a_i_cons(&a,2,lf[149],C_retrieve2(lf[88],"link-options")):C_a_i_cons(&a,2,lf[150],C_retrieve2(lf[88],"link-options"))):C_a_i_cons(&a,2,lf[151],C_retrieve2(lf[88],"link-options"))); t4=C_mutate2(&lf[88] /* (set! link-options ...) */,t3); t5=lf[95] /* shared */ =C_SCHEME_TRUE;; t6=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k1943 in shared-build in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in ... */ 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; 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_1945,2,av);} a=C_alloc(4); t2=C_mutate2(&lf[79] /* (set! translate-options ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1949,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:530: append */ t4=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=C_retrieve2(lf[44],"pic-options"); av2[3]=lf[152]; av2[4]=C_retrieve2(lf[82],"compile-options"); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2739 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_2741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2741,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1980(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* shared-build in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in ... */ static void C_fcall f_1940(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_1940,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1945,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* csc.scm:529: cons* */ t4=C_fast_retrieve(lf[128]);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=lf[153]; av2[3]=lf[154]; av2[4]=C_retrieve2(lf[79],"translate-options"); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k5075 in k5056 in k5052 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_5077,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5080,a[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_5122,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_5122(t6,t2,t1);} /* k2306 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_2308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2308,2,av);} t2=C_mutate2(&lf[79] /* (set! translate-options ...) */,t1); t3=lf[96] /* static */ =C_SCHEME_TRUE;; /* csc.scm:818: loop */ t4=((C_word*)((C_word*)t0)[2])[1]; f_1980(t4,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k4324 in k4320 in k4316 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in ... */ static void C_ccall f_4326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4326,2,av);} a=C_alloc(9); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1); /* csc.scm:940: append */ t3=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4320 in k4316 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 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 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_4322,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4326,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:944: linker-libraries */ f_4635(t3);} /* k4580 in k4577 in k4574 in k4571 in k4568 in k4562 in copy-files in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in ... */ static void C_ccall f_4582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4582,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4585,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:1000: get-output-string */ t3=C_fast_retrieve(lf[111]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4583 in k4580 in k4577 in k4574 in k4571 in k4568 in k4562 in copy-files in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in ... */ static void C_ccall f_4585(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4585,2,av);} /* csc.scm:999: command */ f_4845(((C_word*)t0)[2],t1);} /* k5042 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in ... */ static void C_ccall f_5044(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_5044,2,av);} a=C_alloc(6); if(C_truep(C_retrieve2(lf[19],"chicken-prefix"))){ t2=C_a_i_list2(&a,2,C_retrieve2(lf[19],"chicken-prefix"),lf[410]); /* csc.scm:89: make-pathname */ t3=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=lf[411]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; f_1716(2,av2);}}} /* k4571 in k4568 in k4562 in copy-files in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ 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 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_4573,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4576,a[2]=((C_word*)t0)[2],a[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(lf[0])){ t3=C_retrieve2(lf[28],"quotewrap-no-slash-trans"); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f6028,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t5=t4; t6=((C_word*)t0)[6]; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f6097,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* csc.scm:101: normalize-pathname */ t8=C_fast_retrieve(lf[27]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t3=C_retrieve2(lf[24],"quotewrap"); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f6032,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csc.scm:1000: g813 */ t5=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; f_1562(3,av2);}}} /* k4574 in k4571 in k4568 in k4562 in copy-files in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_ccall f_4576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4576,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4579,a[2]=((C_word*)t0)[2],a[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:1000: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k4577 in k4574 in k4571 in k4568 in k4562 in copy-files in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 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 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,c,2)))){ C_save_and_reclaim((void *)f_4579,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4582,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(lf[0])){ t3=C_retrieve2(lf[28],"quotewrap-no-slash-trans"); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f6020,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t5=t4; t6=((C_word*)t0)[5]; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f6092,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* csc.scm:101: normalize-pathname */ t8=C_fast_retrieve(lf[27]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t3=C_retrieve2(lf[24],"quotewrap"); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f6024,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csc.scm:1000: g815 */ t5=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; f_1562(3,av2);}}} /* k4888 in k4882 in k4243 in k4240 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4890,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4893,a[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_4914,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csc.scm:1082: quotewrap */ t4=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; f_1562(3,av2);}} /* k4568 in k4562 in copy-files in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in ... */ static void C_ccall f_4570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4570,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4573,a[2]=((C_word*)t0)[2],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:1000: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k4897 in k4894 in k4891 in k4888 in k4882 in k4243 in k4240 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in ... */ static void C_ccall f_4899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4899,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4902,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:1081: get-output-string */ t3=C_fast_retrieve(lf[111]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4894 in k4891 in k4888 in k4882 in k4243 in k4240 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in ... */ 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 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_4896,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4899,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_4906,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_4910,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csc.scm:1083: make-pathname */ t5=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_retrieve2(lf[29],"home"); av2[3]=lf[178]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k4891 in k4888 in k4882 in k4243 in k4240 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in ... */ static void C_ccall f_4893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4893,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4896,a[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:1081: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k2719 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ 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 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_2721,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1980(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5056 in k5052 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in ... */ 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 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_5058,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5061,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[24],"quotewrap"); t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5077,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:252: string-split */ t15=C_fast_retrieve(lf[233]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t15; av2[1]=t14; av2[2]=t4; av2[3]=lf[413]; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} else{ /* csc.scm:248: append */ t3=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k5052 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in ... */ static void C_fcall f_5054(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_5054,2,t0,t1);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5058,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csc.scm:250: get-environment-variable */ t4=C_fast_retrieve(lf[142]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[414]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4562 in copy-files in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_4564,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[109]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4570,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); if(C_truep(lf[0])){ /* csc.scm:1000: ##sys#print */ t6=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[112]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ /* csc.scm:1000: ##sys#print */ t6=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[113]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* check in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in ... */ static void C_fcall f_1914(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_1914,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:526: stop */ f_1499(t1,lf[148],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:526: stop */ f_1499(t1,lf[148],C_a_i_list(&a,1,t2));}}} /* k1910 in t-options in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1912,2,av);} t2=C_mutate2(&lf[79] /* (set! translate-options ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4882 in k4243 in k4240 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in ... */ static void C_ccall f_4884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_4884,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[109]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4890,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:1081: ##sys#print */ t6=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[179]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in ... */ static void C_ccall f_5029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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_5029,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_1907,tmp=(C_word)a,a+=2,tmp)); t11=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1914,tmp=(C_word)a,a+=2,tmp)); t12=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1940,tmp=(C_word)a,a+=2,tmp)); t13=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1963,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_1980,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_1980(t17,((C_word*)t0)[2],t1);} /* k4300 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in ... */ static void C_ccall f_4302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4302,2,av);} /* csc.scm:937: string-intersperse */ t2=C_fast_retrieve(lf[102]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5023 in k5017 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in ... */ static void C_ccall f_5025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5025,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k4336 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in ... */ 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 t3; 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_4338,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4342,a[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_4365,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=(C_truep(C_retrieve2(lf[4],"osx"))?C_retrieve2(lf[69],"gui"):C_SCHEME_FALSE); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4375,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csc.scm:929: pathname-file */ t6=C_fast_retrieve(lf[170]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=C_retrieve2(lf[89],"target-filename"); ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* csc.scm:930: pathname-file */ t5=C_fast_retrieve(lf[170]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=C_retrieve2(lf[89],"target-filename"); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k5020 in k5017 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5022,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in ... */ 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 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_4335,2,av);} a=C_alloc(9); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4338,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_truep(C_retrieve2(lf[4],"osx"))?C_retrieve2(lf[69],"gui"):C_SCHEME_FALSE); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4385,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* csc.scm:922: make-pathname */ t6=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=C_SCHEME_FALSE; av2[3]=((C_word*)((C_word*)t0)[2])[1]; av2[4]=lf[194]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_4338(2,av2);}}} /* k4329 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4331,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[116]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[116]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[185]; av2[3]=t1; tp(4,av2);}} /* k4552 in k4534 in k4224 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4554,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[116]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[116]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[173]; av2[3]=t1; tp(4,av2);}} /* copy-files in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in ... */ static void C_fcall f_4556(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_4556,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4564,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* csc.scm:1000: open-output-string */ t5=C_fast_retrieve(lf[114]);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* t-options in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in ... */ static void C_fcall f_1907(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_1907,2,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1912,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* csc.scm:522: append */ t4=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=C_retrieve2(lf[79],"translate-options"); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5035 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in ... */ static void C_ccall f_5037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5037,2,av);} if(C_truep(t1)){ t2=t1; /* csc.scm:1146: string-split */ t3=C_fast_retrieve(lf[233]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:1146: string-split */ t2=C_fast_retrieve(lf[233]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[408]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k5031 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5033,2,av);} /* csc.scm:1145: append */ t2=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_retrieve2(lf[20],"arguments"); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3079 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 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 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_3081,2,av);} a=C_alloc(15); t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t3=C_a_i_string_to_number(&a,2,t2,C_fix(10)); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3090,a[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:768: t-options */ f_1907(t4,C_a_i_list(&a,2,((C_word*)t0)[6],t2));} /* g428 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in ... */ static C_word C_fcall f_3051(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_mutate2(((C_word *)((C_word*)t0)[2])+1,t3); return(t4);} /* k3217 in k3275 in k3279 in k3190 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3219,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1980(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in ... */ static void C_fcall f_3109(C_word t0,C_word t1){ C_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(11,0,4)))){ C_save_and_reclaim_args((void *)trf_3109,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(108),t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3120,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_a_i_list1(&a,1,((C_word*)t0)[2]); /* csc.scm:775: append */ t5=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=C_retrieve2(lf[88],"link-options"); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,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(76),t3))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3135,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_a_i_list1(&a,1,((C_word*)t0)[2]); /* csc.scm:777: append */ t6=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t4; av2[2]=C_retrieve2(lf[88],"link-options"); av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,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(73),t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3150,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_a_i_list1(&a,1,((C_word*)t0)[2]); /* csc.scm:779: append */ t7=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=C_retrieve2(lf[82],"compile-options"); av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+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(68),t5))){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3168,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); /* csc.scm:781: substring */ t7=*((C_word*)lf[378]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(2); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t6=C_i_string_ref(((C_word*)t0)[2],C_fix(1)); if(C_truep(C_u_i_char_equalp(C_make_character(70),t6))){ if(C_truep(C_retrieve2(lf[4],"osx"))){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3182,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=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* csc.scm:784: append */ t9=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t7; av2[2]=C_retrieve2(lf[82],"compile-options"); av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ /* csc.scm:818: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_1980(t7,((C_word*)t0)[4],((C_word*)((C_word*)t0)[5])[1]);}} else{ t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3192,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); t8=C_block_size(((C_word*)t0)[2]); if(C_truep(C_fixnum_greaterp(t8,C_fix(3)))){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3298,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* csc.scm:785: substring */ t10=*((C_word*)lf[378]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(0); av2[4]=C_fix(4); ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t9=t7; f_3192(t9,C_SCHEME_FALSE);}}}}}}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3310,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:794: file-exists? */ t3=C_fast_retrieve(lf[163]);{ 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);}}} /* k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in ... */ static void C_fcall f_3100(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_3100,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ /* csc.scm:771: t-options */ f_1907(((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_3109,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_3109(t5,C_u_i_char_equalp(C_make_character(45),t4));} else{ t4=t2; f_3109(t4,C_SCHEME_FALSE);}}} /* k3029 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 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 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_3031,2,av);} a=C_alloc(5); t2=C_mutate2(&lf[54] /* (set! scheme-files ...) */,t1); if(C_truep(C_retrieve2(lf[89],"target-filename"))){ /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_1980(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3038,a[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:754: make-pathname */ t4=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; av2[3]=lf[372]; av2[4]=C_retrieve2(lf[40],"executable-extension"); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k3395 in a3320 in k3308 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in ... */ 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 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_3397,2,av);} t2=C_mutate2(&lf[55] /* (set! c-files ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4101 in k4095 in compiler-options in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4103,2,av);} /* csc.scm:905: string-intersperse */ t2=C_fast_retrieve(lf[102]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop655 in k4095 in compiler-options in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in ... */ static void C_fcall f_4105(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_4105,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_4130,a[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:906: g661 */ 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);}}} /* k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in ... */ static void C_fcall f_3044(C_word 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_3044,2,t0,t1);} a=C_alloc(12); t2=C_i_assq(((C_word*)t0)[2],lf[374]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3051,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=( /* csc.scm:762: g428 */ f_3051(C_a_i(&a,3),t3,t2) ); /* csc.scm:818: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_1980(t5,((C_word*)t0)[5],((C_word*)((C_word*)t0)[3])[1]);} else{ if(C_truep(C_i_memq(((C_word*)t0)[2],lf[375]))){ /* csc.scm:763: t-options */ f_1907(((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[376]))){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3081,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:765: check */ f_1914(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_3100,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_3466,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csc.scm:770: substring */ t6=*((C_word*)lf[378]+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_3100(t5,C_SCHEME_FALSE);}}}}} /* k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_fcall f_3041(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_3041,2,t0,t1);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3044,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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[402]))?C_SCHEME_TRUE:(C_truep(C_eqp(((C_word*)t0)[2],lf[403]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t3=C_mutate2(&lf[85] /* (set! compilation-optimization-options ...) */,C_retrieve2(lf[50],"best-compilation-optimization-options")); t4=C_mutate2(&lf[86] /* (set! linking-optimization-options ...) */,C_retrieve2(lf[52],"best-linking-optimization-options")); t5=t2; f_3044(t5,t4);} else{ t3=t2; f_3044(t3,C_SCHEME_UNDEFINED);}} /* k3036 in k3029 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3038,2,av);} t2=C_mutate2(&lf[89] /* (set! target-filename ...) */,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_1980(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k1865 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_1867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1867,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1874,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_a_i_cons(&a,2,lf[252],C_SCHEME_END_OF_LIST); t4=C_a_i_cons(&a,2,t1,t3); t5=C_a_i_cons(&a,2,lf[253],t4); t6=C_a_i_cons(&a,2,t1,t5); t7=C_a_i_cons(&a,2,lf[254],t6); t8=C_a_i_cons(&a,2,t1,t7); t9=C_a_i_cons(&a,2,lf[255],t8); /* csc.scm:307: ##sys#print-to-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[160]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[160]+1); av2[1]=t2; av2[2]=t9; tp(3,av2);}} /* k2659 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_2661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2661,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1980(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k4835 in g880 in k4823 in command in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_4837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4837,2,av);} /* csc.scm:1058: string-append */ t2=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[140]; av2[3]=t1; av2[4]=lf[141]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k1849 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1851,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_1727(t2,C_a_i_list1(&a,1,t1));} /* k3464 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in ... */ static void C_ccall f_3466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3466,2,av);} t2=((C_word*)t0)[2]; f_3100(t2,C_u_i_string_equal_p(lf[401],t1));} /* g880 in k4823 in command in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in ... */ static void C_fcall f_4829(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_4829,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4837,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* csc.scm:1059: qs */ t4=C_fast_retrieve(lf[25]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2689 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_2691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2691,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1980(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k4823 in command in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in ... */ static void C_ccall f_4825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4825,2,av);} a=C_alloc(3); if(C_truep(t1)){ 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); /* csc.scm:1054: g880 */ t3=t2; f_4829(t3,((C_word*)t0)[3],t1);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; f_4774(2,av2);}}} /* k2214 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_ccall f_2216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2216,2,av);} /* csc.scm:550: print* */ t2=*((C_word*)lf[231]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2679 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2681,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1980(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in ... */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(19,c,4)))){ C_save_and_reclaim((void *)f_2227,2,av);} a=C_alloc(19); t2=t1; t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2230,a[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[250]); t6=(C_truep(t5)?t5:C_eqp(t3,lf[251])); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2242,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t8=t7; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1867,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t10=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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[256]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2254,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2261,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* csc.scm:598: chicken-version */ t10=C_fast_retrieve(lf[257]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t8=C_eqp(t3,lf[258]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2270,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2277,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* csc.scm:601: sprintf */ t11=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t11; av2[1]=t10; av2[2]=C_retrieve2(lf[30],"translator"); av2[3]=lf[259]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ t9=C_eqp(t3,lf[260]); if(C_truep(t9)){ t10=lf[61] /* cpp-mode */ =C_SCHEME_TRUE;; if(C_truep(C_retrieve2(lf[4],"osx"))){ t11=C_a_i_cons(&a,2,lf[261],C_retrieve2(lf[82],"compile-options")); t12=C_mutate2(&lf[82] /* (set! compile-options ...) */,t11); /* csc.scm:818: loop */ t13=((C_word*)((C_word*)t0)[2])[1]; f_1980(t13,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ /* csc.scm:818: loop */ t11=((C_word*)((C_word*)t0)[2])[1]; f_1980(t11,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);}} else{ t10=C_eqp(t3,lf[262]); if(C_truep(t10)){ t11=lf[62] /* objc-mode */ =C_SCHEME_TRUE;; /* csc.scm:818: loop */ t12=((C_word*)((C_word*)t0)[2])[1]; f_1980(t12,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t11=C_eqp(t3,lf[263]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2308,a[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:610: cons* */ t13=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t13; av2[1]=t12; av2[2]=lf[264]; av2[3]=lf[265]; av2[4]=C_retrieve2(lf[79],"translate-options"); ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} else{ t12=C_eqp(t3,lf[266]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2319,a[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:614: cons* */ t14=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t14; av2[1]=t13; av2[2]=lf[267]; av2[3]=lf[268]; av2[4]=C_retrieve2(lf[79],"translate-options"); ((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}} else{ t13=C_eqp(t3,lf[269]); if(C_truep(t13)){ t14=lf[64] /* inquiry-only */ =C_SCHEME_TRUE;; t15=lf[65] /* show-cflags */ =C_SCHEME_TRUE;; /* csc.scm:818: loop */ t16=((C_word*)((C_word*)t0)[2])[1]; f_1980(t16,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t14=C_eqp(t3,lf[270]); if(C_truep(t14)){ t15=lf[64] /* inquiry-only */ =C_SCHEME_TRUE;; t16=lf[66] /* show-ldflags */ =C_SCHEME_TRUE;; /* csc.scm:818: loop */ t17=((C_word*)((C_word*)t0)[2])[1]; f_1980(t17,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t15=C_eqp(t3,lf[271]); if(C_truep(t15)){ t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2345,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csc.scm:622: print */ t17=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t17; av2[1]=t16; av2[2]=C_retrieve2(lf[31],"compiler"); ((C_proc)(void*)(*((C_word*)t17+1)))(3,av2);}} else{ t16=C_eqp(t3,lf[272]); if(C_truep(t16)){ t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2357,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csc.scm:623: print */ t18=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t18; av2[1]=t17; av2[2]=C_retrieve2(lf[32],"c++-compiler"); ((C_proc)(void*)(*((C_word*)t18+1)))(3,av2);}} else{ t17=C_eqp(t3,lf[273]); if(C_truep(t17)){ t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2369,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csc.scm:624: print */ t19=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t19; av2[1]=t18; av2[2]=C_retrieve2(lf[34],"linker"); ((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}} else{ t18=C_eqp(t3,lf[274]); if(C_truep(t18)){ t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2381,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csc.scm:625: print */ t20=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t20; av2[1]=t19; av2[2]=C_retrieve2(lf[29],"home"); ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}} else{ t19=C_eqp(t3,lf[275]); if(C_truep(t19)){ t20=lf[64] /* inquiry-only */ =C_SCHEME_TRUE;; t21=lf[67] /* show-libs */ =C_SCHEME_TRUE;; /* csc.scm:818: loop */ t22=((C_word*)((C_word*)t0)[2])[1]; f_1980(t22,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t20=C_eqp(t3,lf[276]); t21=(C_truep(t20)?t20:C_eqp(t3,lf[277])); if(C_truep(t21)){ t22=(*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); if(C_truep(C_i_numberp(C_retrieve2(lf[90],"verbose")))){ t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2419,a[2]=t22,tmp=(C_word)a,a+=3,tmp); /* csc.scm:631: cons* */ t24=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t24; av2[1]=t23; av2[2]=lf[280]; av2[3]=lf[281]; av2[4]=C_retrieve2(lf[82],"compile-options"); ((C_proc)(void*)(*((C_word*)t24+1)))(5,av2);}} else{ t23=t22; f_2404(t23,C_SCHEME_UNDEFINED);}} else{ t22=C_eqp(t3,lf[282]); t23=(C_truep(t22)?t22:C_eqp(t3,lf[283])); if(C_truep(t23)){ t24=C_a_i_cons(&a,2,lf[284],C_retrieve2(lf[82],"compile-options")); t25=C_mutate2(&lf[82] /* (set! compile-options ...) */,t24); /* csc.scm:639: t-options */ f_1907(t4,C_a_i_list(&a,1,lf[285]));} else{ t24=C_eqp(t3,lf[286]); t25=(C_truep(t24)?t24:C_eqp(t3,lf[287])); if(C_truep(t25)){ t26=lf[92] /* translate-only */ =C_SCHEME_TRUE;; /* csc.scm:642: t-options */ f_1907(t4,C_a_i_list(&a,1,lf[288]));} else{ t26=C_eqp(t3,lf[289]); t27=(C_truep(t26)?t26:C_eqp(t3,lf[290])); if(C_truep(t27)){ t28=lf[92] /* translate-only */ =C_SCHEME_TRUE;; /* csc.scm:645: t-options */ f_1907(t4,C_a_i_list(&a,1,lf[291]));} else{ t28=C_eqp(t3,lf[292]); if(C_truep(t28)){ t29=lf[91] /* keep-files */ =C_SCHEME_TRUE;; /* csc.scm:818: loop */ t30=((C_word*)((C_word*)t0)[2])[1]; f_1980(t30,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t29=C_eqp(t3,lf[293]); if(C_truep(t29)){ t30=lf[93] /* compile-only */ =C_SCHEME_TRUE;; /* csc.scm:818: loop */ t31=((C_word*)((C_word*)t0)[2])[1]; f_1980(t31,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t30=C_eqp(t3,lf[294]); if(C_truep(t30)){ t31=lf[92] /* translate-only */ =C_SCHEME_TRUE;; /* csc.scm:818: loop */ t32=((C_word*)((C_word*)t0)[2])[1]; f_1980(t32,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t31=C_eqp(t3,lf[295]); t32=(C_truep(t31)?t31:C_eqp(t3,lf[296])); if(C_truep(t32)){ t33=lf[63] /* embedded */ =C_SCHEME_TRUE;; t34=C_a_i_cons(&a,2,lf[297],C_retrieve2(lf[82],"compile-options")); t35=C_mutate2(&lf[82] /* (set! compile-options ...) */,t34); /* csc.scm:818: loop */ t36=((C_word*)((C_word*)t0)[2])[1]; f_1980(t36,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t33=C_eqp(t3,lf[298]); t34=(C_truep(t33)?t33:C_eqp(t3,lf[299])); if(C_truep(t34)){ t35=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2512,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:653: check */ f_1914(t35,t2,((C_word*)((C_word*)t0)[4])[1],C_SCHEME_END_OF_LIST);} else{ t35=C_eqp(t3,lf[301]); if(C_truep(t35)){ t36=( /* csc.scm:658: use-private-repository */ f_1963(C_a_i(&a,6)) ); /* csc.scm:818: loop */ t37=((C_word*)((C_word*)t0)[2])[1]; f_1980(t37,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t36=C_eqp(t3,lf[302]); if(C_truep(t36)){ t37=lf[45] /* generate-manifest */ =C_SCHEME_TRUE;; /* csc.scm:818: loop */ t38=((C_word*)((C_word*)t0)[2])[1]; f_1980(t38,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t37=C_eqp(t3,lf[303]); if(C_truep(t37)){ t38=lf[69] /* gui */ =C_SCHEME_TRUE;; t39=C_a_i_cons(&a,2,lf[304],C_retrieve2(lf[82],"compile-options")); t40=C_mutate2(&lf[82] /* (set! compile-options ...) */,t39); if(C_truep(C_retrieve2(lf[2],"mingw"))){ t41=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2575,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t42=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2579,a[2]=t41,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t43=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t43; av2[1]=t42; av2[2]=C_mpointer(&a,(void*)C_INSTALL_SHARE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t43+1)))(4,av2);}} else{ /* csc.scm:818: loop */ t41=((C_word*)((C_word*)t0)[2])[1]; f_1980(t41,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);}} else{ t38=C_eqp(t3,lf[310]); if(C_truep(t38)){ t39=lf[70] /* deploy */ =C_SCHEME_TRUE;; t40=lf[71] /* deployed */ =C_SCHEME_TRUE;; /* csc.scm:818: loop */ t41=((C_word*)((C_word*)t0)[2])[1]; f_1980(t41,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t39=C_eqp(t3,lf[311]); if(C_truep(t39)){ t40=lf[71] /* deployed */ =C_SCHEME_TRUE;; /* csc.scm:818: loop */ t41=((C_word*)((C_word*)t0)[2])[1]; f_1980(t41,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t40=C_eqp(t3,lf[312]); if(C_truep(t40)){ t41=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2603,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:679: check */ f_1914(t41,t2,((C_word*)((C_word*)t0)[4])[1],C_SCHEME_END_OF_LIST);} else{ t41=C_eqp(t3,lf[314]); t42=(C_truep(t41)?t41:C_eqp(t3,lf[315])); if(C_truep(t42)){ t43=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2630,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:684: check */ f_1914(t43,t2,((C_word*)((C_word*)t0)[4])[1],C_SCHEME_END_OF_LIST);} else{ t43=C_eqp(t3,lf[316]); t44=(C_truep(t43)?t43:C_eqp(t3,lf[317])); if(C_truep(t44)){ t45=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2651,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:688: cons* */ t46=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t46; av2[1]=t45; av2[2]=lf[318]; av2[3]=lf[319]; av2[4]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t46+1)))(5,av2);}} else{ t45=C_eqp(t3,lf[320]); if(C_truep(t45)){ t46=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2661,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:689: cons* */ t47=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t47; av2[1]=t46; av2[2]=lf[321]; av2[3]=lf[322]; av2[4]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t47+1)))(5,av2);}} else{ t46=C_eqp(t3,lf[323]); if(C_truep(t46)){ t47=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2671,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:690: cons* */ t48=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t48; av2[1]=t47; av2[2]=lf[324]; av2[3]=lf[325]; av2[4]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t48+1)))(5,av2);}} else{ t47=C_eqp(t3,lf[326]); if(C_truep(t47)){ t48=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2681,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:691: cons* */ t49=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t49; av2[1]=t48; av2[2]=lf[327]; av2[3]=lf[328]; av2[4]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t49+1)))(5,av2);}} else{ t48=C_eqp(t3,lf[329]); if(C_truep(t48)){ t49=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2691,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:692: cons* */ t50=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t50; av2[1]=t49; av2[2]=lf[330]; av2[3]=lf[331]; av2[4]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t50+1)))(5,av2);}} else{ t49=C_eqp(t3,lf[332]); if(C_truep(t49)){ t50=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2701,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:694: cons* */ t51=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t51; av2[1]=t50; av2[2]=lf[333]; av2[3]=lf[334]; av2[4]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t51+1)))(5,av2);}} else{ t50=C_eqp(t3,lf[335]); if(C_truep(t50)){ t51=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2711,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:695: cons* */ t52=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t52; av2[1]=t51; av2[2]=lf[336]; av2[3]=lf[337]; av2[4]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t52+1)))(5,av2);}} else{ t51=C_eqp(t3,lf[338]); if(C_truep(t51)){ t52=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2721,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:696: cons* */ t53=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t53; av2[1]=t52; av2[2]=lf[339]; av2[3]=lf[340]; av2[4]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t53+1)))(5,av2);}} else{ t52=C_eqp(t3,lf[341]); if(C_truep(t52)){ t53=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2731,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:697: cons* */ t54=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t54; av2[1]=t53; av2[2]=lf[342]; av2[3]=lf[343]; av2[4]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t54+1)))(5,av2);}} else{ t53=C_eqp(t3,lf[344]); if(C_truep(t53)){ t54=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2741,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:698: cons* */ t55=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t55; av2[1]=t54; av2[2]=lf[345]; av2[3]=lf[346]; av2[4]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t55+1)))(5,av2);}} else{ t54=C_eqp(t3,lf[347]); if(C_truep(t54)){ t55=lf[90] /* verbose */ =C_SCHEME_TRUE;; t56=lf[68] /* dry-run */ =C_SCHEME_TRUE;; /* csc.scm:818: loop */ t57=((C_word*)((C_word*)t0)[2])[1]; f_1980(t57,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t55=C_eqp(t3,lf[348]); t56=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2758,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)[9],tmp=(C_word)a,a+=12,tmp); if(C_truep(t55)){ t57=t56; f_2758(t57,t55);} else{ t57=C_eqp(t3,lf[405]); t58=t56; f_2758(t58,(C_truep(t57)?t57:C_eqp(t3,lf[406])));}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} /* k2218 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ 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(0,c,3)))){ C_save_and_reclaim((void *)f_2220,2,av);} /* csc.scm:547: append */ t2=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[88],"link-options"); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4641 in linker-libraries in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4643,2,av);} /* csc.scm:1014: string-intersperse */ t2=C_fast_retrieve(lf[102]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4645 in linker-libraries in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in ... */ static void C_fcall f_4647(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_4647,2,t0,t1);} a=C_alloc(3); t2=C_retrieve2(lf[96],"static"); if(C_truep(C_retrieve2(lf[96],"static"))){ t3=C_retrieve2(lf[96],"static"); t4=(C_truep(C_retrieve2(lf[96],"static"))?C_a_i_list1(&a,1,C_retrieve2(lf[73],"extra-libraries")):C_a_i_list1(&a,1,C_retrieve2(lf[74],"extra-shared-libraries"))); /* csc.scm:1015: append */ t5=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=C_retrieve2(lf[97],"static-libs"); t4=(C_truep(C_retrieve2(lf[97],"static-libs"))?C_a_i_list1(&a,1,C_retrieve2(lf[73],"extra-libraries")):C_a_i_list1(&a,1,C_retrieve2(lf[74],"extra-shared-libraries"))); /* csc.scm:1015: append */ t5=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k2947 in k2933 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in ... */ static void C_fcall f_2949(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_2949,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2953,a[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_2961,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csc.scm:740: string-append */ t4=*((C_word*)lf[122]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=lf[362]; av2[3]=C_retrieve2(lf[72],"rpath"); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); /* csc.scm:818: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1980(t4,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);}} /* k2207 in k2181 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2209,2,av);} /* csc.scm:551: print* */ t2=*((C_word*)lf[231]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2933 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_2935,2,av);} a=C_alloc(8); t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate2(&lf[72] /* (set! rpath ...) */,t2); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2949,a[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_2965,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csc.scm:738: build-platform */ t6=C_fast_retrieve(lf[365]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k2200 in k2184 in k2181 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in ... */ static void C_ccall f_2202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2202,2,av);} /* csc.scm:552: print* */ t2=*((C_word*)lf[231]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2649 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_2651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2651,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1980(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k2920 in k2908 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in ... */ 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);} /* csc.scm:733: append */ t2=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[88],"link-options"); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop764 in k4169 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in ... */ static void C_fcall f_4182(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_4182,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_4192,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:969: g765 */ 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);}}} /* a3320 in k3308 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 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=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_3321,5,av);} a=C_alloc(7); if(C_truep(t4)){ if(C_truep((C_truep(C_i_equalp(t4,lf[387]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[388]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3346,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* csc.scm:799: append */ t7=*((C_word*)lf[103]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t5; av2[2]=C_retrieve2(lf[55],"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[389]))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3360,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* csc.scm:801: append */ t7=*((C_word*)lf[103]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t5; av2[2]=C_retrieve2(lf[56],"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[390]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[391]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[392]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[393]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[394]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3373,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[4],"osx"))){ t6=C_a_i_cons(&a,2,lf[395],C_retrieve2(lf[82],"compile-options")); t7=C_mutate2(&lf[82] /* (set! compile-options ...) */,t6); t8=t5; f_3373(t8,t7);} else{ t6=t5; f_3373(t6,C_SCHEME_UNDEFINED);}} 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_truep(C_i_equalp(t4,lf[398]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))){ t5=lf[62] /* objc-mode */ =C_SCHEME_TRUE;; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3397,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t7=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* csc.scm:808: append */ t8=*((C_word*)lf[103]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; av2[2]=C_retrieve2(lf[55],"c-files"); av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t5=C_retrieve2(lf[36],"object-extension"); t6=C_u_i_string_equal_p(t4,C_retrieve2(lf[36],"object-extension")); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3409,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(t6)){ t8=t7; f_3409(t8,t6);} else{ t8=C_retrieve2(lf[38],"library-extension"); t9=t7; f_3409(t9,C_u_i_string_equal_p(t4,C_retrieve2(lf[38],"library-extension")));}}}}}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3332,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* csc.scm:797: append */ t7=*((C_word*)lf[103]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t5; av2[2]=C_retrieve2(lf[54],"scheme-files"); av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k2912 in k2908 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in ... */ static void C_ccall f_2914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2914,2,av);} t2=C_mutate2(&lf[88] /* (set! link-options ...) */,t1); t3=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t3); /* csc.scm:818: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_1980(t5,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k2908 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ 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 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_2910,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2914,a[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_2922,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_i_car(((C_word*)((C_word*)t0)[2])[1]); /* csc.scm:733: string-split */ t5=C_fast_retrieve(lf[233]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k4678 in k4668 in k4744 in k4738 in quote-option in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 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,4)))){ C_save_and_reclaim((void *)f_4680,2,av);} /* csc.scm:1040: string-append */ t2=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[123]; av2[3]=t1; av2[4]=lf[124]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4686 in k4744 in k4738 in quote-option in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 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 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_4688,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_4690,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_4690(t5,((C_word*)t0)[3],t1);} /* k4682 in k4744 in k4738 in quote-option in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4684,2,av);} /* list->string */ t2=C_fast_retrieve(lf[127]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3088 in k3079 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3090,2,av);} t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); /* csc.scm:818: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1980(t4,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k2669 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_2671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2671,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1980(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k4169 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in ... */ static void C_ccall f_4171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_4171,2,av);} a=C_alloc(6); if(C_truep(C_retrieve2(lf[91],"keep-files"))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_retrieve2(lf[144],"$delete-file"); t3=C_retrieve2(lf[60],"generated-object-files"); t4=C_i_check_list_2(C_retrieve2(lf[60],"generated-object-files"),lf[157]); 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_4182,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_4182(t8,((C_word*)t0)[2],C_retrieve2(lf[60],"generated-object-files"));}} /* k3330 in a3320 in k3308 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3332,2,av);} t2=C_mutate2(&lf[54] /* (set! scheme-files ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4668 in k4744 in k4738 in quote-option in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4670,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_4680,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csc.scm:1040: string-translate* */ t3=C_fast_retrieve(lf[125]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=lf[126]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=t1; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in ... */ 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 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_4168,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4171,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4206,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[70],"deploy"))){ t4=C_retrieve2(lf[96],"static"); if(C_truep(C_retrieve2(lf[96],"static"))){ t5=C_retrieve2(lf[96],"static"); t6=C_retrieve2(lf[96],"static"); t7=t3; f_4206(t7,C_i_not(C_retrieve2(lf[96],"static")));} else{ t5=C_retrieve2(lf[97],"static-libs"); t6=C_retrieve2(lf[97],"static-libs"); t7=t3; f_4206(t7,C_i_not(C_retrieve2(lf[97],"static-libs")));}} else{ t4=t3; f_4206(t4,C_SCHEME_FALSE);}} /* k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in ... */ static void C_ccall f_4165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_4165,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4168,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_4242,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[4],"osx"))){ t4=C_i_not(C_retrieve2(lf[23],"cross-chicken")); if(C_truep(t4)){ t5=t3; f_4242(t5,t4);} else{ t5=C_retrieve2(lf[22],"host-mode"); t6=t3; f_4242(t6,C_retrieve2(lf[22],"host-mode"));}} else{ t4=t3; f_4242(t4,C_SCHEME_FALSE);}} /* k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in ... */ 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 t3; 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,c,2)))){ C_save_and_reclaim((void *)f_4162,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4165,a[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_4298,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4302,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(C_truep(C_retrieve2(lf[61],"cpp-mode"))?C_retrieve2(lf[35],"c++-linker"):C_retrieve2(lf[34],"linker")); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4310,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4318,a[2]=t7,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4331,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* csc.scm:942: quotewrap */ t10=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=C_retrieve2(lf[89],"target-filename"); f_1562(3,av2);}} /* k2963 in k2933 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2965,2,av);} if(C_truep((C_truep(C_eqp(t1,lf[363]))?C_SCHEME_TRUE:(C_truep(C_eqp(t1,lf[364]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t2=C_retrieve2(lf[2],"mingw"); t3=((C_word*)t0)[2]; f_2949(t3,(C_truep(C_retrieve2(lf[2],"mingw"))?C_SCHEME_FALSE:C_i_not(C_retrieve2(lf[4],"osx"))));} else{ t2=((C_word*)t0)[2]; f_2949(t2,C_SCHEME_FALSE);}} /* k2959 in k2947 in k2933 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 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 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_2961,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* csc.scm:740: append */ t3=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[88],"link-options"); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* fold in k4686 in k4744 in k4738 in quote-option in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_fcall f_4690(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_4690,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,lf[120]))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4713,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=t2; t7=C_u_i_cdr(t6); /* csc.scm:1035: fold */ t9=t5; t10=t7; t1=t9; t2=t10; goto loop;} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4718,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_4718(t7,t6);} else{ t6=t5; f_4718(t6,C_SCHEME_UNDEFINED);}}}} /* k3190 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in ... */ static void C_fcall f_3192(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_3192,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3196,a[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:786: append */ t4=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t2; av2[2]=C_retrieve2(lf[88],"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_3281,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); /* string->list */ t4=C_fast_retrieve(lf[129]);{ 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:793: stop */ f_1499(((C_word*)t0)[6],lf[384],C_a_i_list(&a,1,((C_word*)t0)[7]));}}} /* k3194 in k3190 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in ... */ 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; 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_3196,2,av);} t2=C_mutate2(&lf[88] /* (set! link-options ...) */,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_1980(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k2951 in k2947 in k2933 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in ... */ 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 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_2953,2,av);} t2=C_mutate2(&lf[88] /* (set! link-options ...) */,t1); t3=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t3); /* csc.scm:818: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_1980(t5,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k4393 in k4386 in k4383 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in ... */ 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 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_4395,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[109]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4401,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:924: ##sys#print */ t6=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[191]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k1568 in quotewrap in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1570,2,av);} /* csc.scm:98: qs */ t2=C_fast_retrieve(lf[25]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1572 in quotewrap in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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; 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_1574,2,av);} if(C_truep(lf[0])){ /* csc.scm:94: string-translate */ t2=C_fast_retrieve(lf[26]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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:98: qs */ t3=C_fast_retrieve(lf[25]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* quotewrap-no-slash-trans in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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=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_1576,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1584,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* csc.scm:101: normalize-pathname */ t4=C_fast_retrieve(lf[27]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2405 in k2402 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2407,2,av);} if(C_truep(C_retrieve2(lf[90],"verbose"))){ t2=lf[90] /* verbose */ =C_fix(2);; /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_1980(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t2=lf[90] /* verbose */ =C_SCHEME_TRUE;; /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_1980(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);}} /* k2402 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_fcall f_2404(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_2404,2,t0,t1);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2407,a[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:633: t-options */ f_1907(t2,C_a_i_list(&a,1,lf[278]));} /* k3166 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3168,2,av);} a=C_alloc(6); /* csc.scm:781: t-options */ f_1907(((C_word*)t0)[3],C_a_i_list(&a,2,lf[377],t1));} /* k1736 in k1733 in k1729 in k1725 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1738,2,av);} /* csc.scm:269: append */ t2=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1733 in k1729 in k1725 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in ... */ 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 t3; 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_1735,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1738,a[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_1751,a[2]=t7,a[3]=t8,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* csc.scm:290: string-split */ t10=C_fast_retrieve(lf[233]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t9; av2[2]=t4; av2[3]=lf[234]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ /* csc.scm:269: append */ t3=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k4128 in map-loop655 in k4095 in compiler-options in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 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 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_4130,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4105(t6,((C_word*)t0)[5],t5);} /* k1729 in k1725 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_fcall f_1731(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_1731,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1735,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* csc.scm:288: get-environment-variable */ t4=C_fast_retrieve(lf[142]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[235]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2797 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ 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 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_2799,2,av);} t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate2(&lf[31] /* (set! compiler ...) */,t2); t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t5=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t4); /* csc.scm:818: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_1980(t6,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* quotewrap in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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 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_1562,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1570,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1574,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* csc.scm:98: normalize-pathname */ t5=C_fast_retrieve(lf[27]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2417 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_2419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2419,2,av);} a=C_alloc(3); t2=C_mutate2(&lf[82] /* (set! compile-options ...) */,t1); t3=C_a_i_cons(&a,2,lf[279],C_retrieve2(lf[88],"link-options")); t4=C_mutate2(&lf[88] /* (set! link-options ...) */,t3); t5=((C_word*)t0)[2]; f_2404(t5,t4);} /* k3133 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in ... */ static void C_ccall f_3135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3135,2,av);} t2=C_mutate2(&lf[88] /* (set! link-options ...) */,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_1980(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k2147 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in ... */ static void C_fcall f_2149(C_word t0,C_word 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_2149,2,t0,t1);} a=C_alloc(5); t2=C_retrieve2(lf[54],"scheme-files"); t3=C_i_check_list_2(C_retrieve2(lf[54],"scheme-files"),lf[157]); 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_3806,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_3806(t7,((C_word*)t0)[2],C_retrieve2(lf[54],"scheme-files"));} /* k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in ... */ static void C_fcall f_2146(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_2146,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2149,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[89],"target-filename"))){ t3=t2; f_2149(t3,C_SCHEME_UNDEFINED);} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2156,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[95],"shared"))){ t4=C_i_car(C_retrieve2(lf[54],"scheme-files")); /* csc.scm:571: pathname-replace-extension */ t5=C_fast_retrieve(lf[208]);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_retrieve2(lf[42],"shared-library-extension"); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=C_i_car(C_retrieve2(lf[54],"scheme-files")); /* csc.scm:572: pathname-replace-extension */ t5=C_fast_retrieve(lf[208]);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_retrieve2(lf[40],"executable-extension"); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in ... */ 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 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_1685,2,av);} a=C_alloc(12); t2=C_mutate2(&lf[74] /* (set! extra-shared-libraries ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5203,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5207,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5211,a[2]=t4,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[22],"host-mode"))){ /* ##sys#peek-c-string */ t6=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)C_INSTALL_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ /* ##sys#peek-c-string */ t6=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)C_TARGET_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in ... */ static void C_ccall f_1681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1681,2,av);} a=C_alloc(6); t2=C_mutate2(&lf[73] /* (set! extra-libraries ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1685,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[22],"host-mode"))){ /* ##sys#peek-c-string */ t4=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} else{ /* ##sys#peek-c-string */ t4=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k4190 in for-each-loop764 in k4169 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in ... */ static void C_ccall f_4192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4192,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4182(t3,((C_word*)t0)[4],t2);} /* k3148 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in ... */ static void C_ccall f_3150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3150,2,av);} t2=C_mutate2(&lf[82] /* (set! compile-options ...) */,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_1980(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k4350 in k4344 in k4340 in k4336 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4352,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_4162(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4355,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[90],"verbose"))){ /* csc.scm:934: print */ t3=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[187]; av2[3]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* csc.scm:935: create-directory */ t3=C_fast_retrieve(lf[186]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} /* k4353 in k4350 in k4344 in k4340 in k4336 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4355,2,av);} /* csc.scm:935: create-directory */ t2=C_fast_retrieve(lf[186]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in ... */ 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 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,3)))){ C_save_and_reclaim((void *)f_1700,2,av);} a=C_alloc(9); t2=C_i_member(t1,lf[80]); t3=(C_truep(t2)?C_SCHEME_FALSE:t1); t4=C_mutate2(&lf[81] /* (set! include-dir ...) */,t3); t5=lf[82] /* compile-options */ =C_SCHEME_END_OF_LIST;; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1708,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5054,a[2]=t6,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[81],"include-dir"))){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5164,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* csc.scm:249: conc */ t9=C_fast_retrieve(lf[241]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t8; av2[2]=lf[415]; av2[3]=C_retrieve2(lf[81],"include-dir"); ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t8=t7; f_5054(t8,C_SCHEME_END_OF_LIST);}} /* k2991 in k2988 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in ... */ static void C_ccall f_2993(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2993,2,av);} t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); /* csc.scm:818: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1980(t4,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in ... */ static void C_ccall f_1708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,3)))){ C_save_and_reclaim((void *)f_1708,2,av);} a=C_alloc(9); t2=C_mutate2(&lf[83] /* (set! builtin-compile-options ...) */,t1); t3=lf[84] /* translation-optimization-options */ =C_SCHEME_END_OF_LIST;; t4=C_mutate2(&lf[85] /* (set! compilation-optimization-options ...) */,C_retrieve2(lf[49],"default-compilation-optimization-options")); t5=C_mutate2(&lf[86] /* (set! linking-optimization-options ...) */,C_retrieve2(lf[51],"default-linking-optimization-options")); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1716,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5044,a[2]=t6,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[22],"host-mode"))){ /* ##sys#peek-c-string */ t8=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=C_mpointer(&a,(void*)C_INSTALL_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ /* ##sys#peek-c-string */ t8=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=C_mpointer(&a,(void*)C_TARGET_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} /* k2988 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ 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 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_2990,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2993,a[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:745: t-options */ f_1907(t2,C_a_i_list(&a,2,lf[368],t3));} /* use-private-repository in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in ... */ static C_word C_fcall f_1963(C_word *a){ C_word tmp; C_word t1; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check;{} t1=C_a_i_cons(&a,2,lf[155],C_retrieve2(lf[82],"compile-options")); t2=C_mutate2(&lf[82] /* (set! compile-options ...) */,t1); if(C_truep(C_retrieve2(lf[4],"osx"))){ t3=C_a_i_cons(&a,2,lf[156],C_retrieve2(lf[88],"link-options")); t4=C_mutate2(&lf[88] /* (set! link-options ...) */,t3); return(t4);} else{ t3=C_SCHEME_UNDEFINED; return(t3);}} /* k4939 in k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4220 in k4207 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4941,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_4944,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); if(C_truep(C_retrieve2(lf[90],"verbose"))){ /* csc.scm:1096: print */ t3=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[162]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_4944(2,av2);}}}} /* k4942 in k4939 in k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4220 in k4207 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in ... */ 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(3,c,3)))){ C_save_and_reclaim((void *)f_4944,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); /* csc.scm:1097: with-output-to-file */ t3=C_fast_retrieve(lf[161]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4383 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 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 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_4385,2,av);} a=C_alloc(8); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4388,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4419,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* csc.scm:923: open-output-string */ t5=C_fast_retrieve(lf[114]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a4948 in k4942 in k4939 in k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4220 in k4207 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 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 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_4949,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4957,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=C_a_i_cons(&a,2,lf[158],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[159],t4); /* csc.scm:1085: ##sys#print-to-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[160]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[160]+1); av2[1]=t2; av2[2]=t5; tp(3,av2);}} /* k4386 in k4383 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4388,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4395,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:924: open-output-string */ t3=C_fast_retrieve(lf[114]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2190 in k2187 in k2184 in k2181 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in ... */ static void C_ccall f_2192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2192,2,av);} /* csc.scm:554: exit */ t2=C_fast_retrieve(lf[14]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_1995(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1995,2,av);} a=C_alloc(10); t2=C_mutate2(&lf[88] /* (set! link-options ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1998,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[64],"inquiry-only"))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2183,a[2]=t3,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[65],"show-cflags"))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2216,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csc.scm:550: compiler-options */ f_4086(t5);} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2183(2,av2);}}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_1998(2,av2);}}} /* k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in ... */ static void C_ccall f_1991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1991,2,av);} a=C_alloc(13); t2=C_mutate2(&lf[82] /* (set! compile-options ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1995,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_2220,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1727,a[2]=t5,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[9],"elf"))){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1809,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* csc.scm:272: conc */ t8=C_fast_retrieve(lf[241]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=lf[246]; av2[3]=C_retrieve2(lf[87],"library-dir"); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ if(C_truep(C_retrieve2(lf[8],"aix"))){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1844,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* csc.scm:282: conc */ t8=C_fast_retrieve(lf[241]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=lf[247]; av2[3]=C_retrieve2(lf[87],"library-dir"); av2[4]=lf[248]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1851,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* csc.scm:284: conc */ t8=C_fast_retrieve(lf[241]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=lf[249]; av2[3]=C_retrieve2(lf[87],"library-dir"); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}}} /* k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_fcall f_2758(C_word t0,C_word t1){ C_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_2758,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ /* csc.scm:703: shared-build */ f_1940(((C_word*)t0)[3],C_SCHEME_FALSE);} else{ t2=C_eqp(((C_word*)t0)[4],lf[349]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[4],lf[350])); if(C_truep(t3)){ /* csc.scm:705: shared-build */ f_1940(((C_word*)t0)[3],C_SCHEME_TRUE);} else{ t4=C_eqp(((C_word*)t0)[4],lf[351]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2782,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:707: check */ f_1914(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[352]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2799,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:711: check */ f_1914(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[353]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2816,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:715: check */ f_1914(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[354]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2833,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:719: check */ f_1914(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[355]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2850,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:723: check */ f_1914(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[357]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2871,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:726: check */ f_1914(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[358]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2897,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[359]); /* csc.scm:730: append */ t13=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t13; av2[1]=t11; av2[2]=C_retrieve2(lf[88],"link-options"); av2[3]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}} else{ t11=C_eqp(((C_word*)t0)[4],lf[360]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2910,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:732: check */ f_1914(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[361]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2935,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_1914(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[366]); if(C_truep(t13)){ /* csc.scm:818: loop */ t14=((C_word*)((C_word*)t0)[6])[1]; f_1980(t14,((C_word*)t0)[7],((C_word*)((C_word*)t0)[5])[1]);} else{ t14=C_eqp(((C_word*)t0)[4],lf[367]); if(C_truep(t14)){ t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2990,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:744: check */ f_1914(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[369]); if(C_truep(t15)){ t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3010,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:748: check */ f_1914(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[371]); if(C_truep(t16)){ t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3031,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:752: append */ t18=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t18; av2[1]=t17; av2[2]=C_retrieve2(lf[54],"scheme-files"); av2[3]=lf[373]; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}} else{ t17=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3041,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[404]); if(C_truep(t18)){ t19=lf[94] /* to-stdout */ =C_SCHEME_TRUE;; t20=lf[92] /* translate-only */ =C_SCHEME_TRUE;; t21=t17; f_3041(t21,t20);} else{ t19=t17; f_3041(t19,C_SCHEME_UNDEFINED);}}}}}}}}}}}}}}}}} /* k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_ccall f_1998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1998,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2001,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_retrieve2(lf[54],"scheme-files")))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2108,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(C_retrieve2(lf[55],"c-files")))){ if(C_truep(C_i_nullp(C_retrieve2(lf[59],"object-files")))){ /* csc.scm:558: stop */ f_1499(t3,lf[218],C_SCHEME_END_OF_LIST);} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2108(2,av2);}}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2108(2,av2);}}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2146,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(C_truep(C_retrieve2(lf[95],"shared"))?C_i_not(C_retrieve2(lf[63],"embedded")):C_SCHEME_FALSE); if(C_truep(t4)){ t5=C_a_i_cons(&a,2,lf[229],C_retrieve2(lf[79],"translate-options")); t6=C_mutate2(&lf[79] /* (set! translate-options ...) */,t5); t7=t3; f_2146(t7,t6);} else{ t5=t3; f_2146(t5,C_SCHEME_UNDEFINED);}}} /* k2184 in k2181 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2186,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2189,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[67],"show-libs"))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2202,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csc.scm:552: linker-libraries */ f_4635(t3);} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f6072,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:553: newline */ t4=*((C_word*)lf[230]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2187 in k2184 in k2181 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 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; 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_2189,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2192,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:553: newline */ t3=*((C_word*)lf[230]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2699 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_2701(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2701,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1980(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k2181 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_ccall f_2183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2183,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2186,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[66],"show-ldflags"))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2209,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csc.scm:551: linker-options */ f_4605(t3);} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2186(2,av2);}}} /* k2517 in k2514 in k2510 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in ... */ 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 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_2519,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_u_i_cdr(t2)); /* csc.scm:818: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1980(t4,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k2514 in k2510 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ 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 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_2516,2,av);} a=C_alloc(11); t2=C_mutate2(&lf[98] /* (set! required-extensions ...) */,t1); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2519,a[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_car(((C_word*)((C_word*)t0)[2])[1]); /* csc.scm:655: t-options */ f_1907(t3,C_a_i_list(&a,2,lf[300],t4));} /* k1725 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_fcall f_1727(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_1727,2,t0,t1);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1731,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[71],"deployed"))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1801,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csc.scm:285: software-version */ t5=C_fast_retrieve(lf[240]);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t3; f_1731(t4,C_SCHEME_END_OF_LIST);}} /* k2510 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_2512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2512,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2516,a[2]=((C_word*)t0)[2],a[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*)((C_word*)t0)[2])[1]); t4=C_a_i_list1(&a,1,t3); /* csc.scm:654: append */ t5=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t2; av2[2]=C_retrieve2(lf[98],"required-extensions"); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in ... */ static void C_fcall f_1980(C_word t0,C_word t1,C_word t2){ C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_1980,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_nullp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1991,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* csc.scm:546: append */ t4=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=C_retrieve2(lf[82],"compile-options"); av2[3]=C_retrieve2(lf[83],"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|9,a[1]=(C_word)f_2227,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]=((C_word*)t0)[2],a[8]=((C_word*)t0)[6],a[9]=t4,tmp=(C_word)a,a+=10,tmp); /* csc.scm:592: string->symbol */ t9=*((C_word*)lf[407]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} /* k2780 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_ccall f_2782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2782,2,av);} t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate2(&lf[30] /* (set! translator ...) */,t2); t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t5=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t4); /* csc.scm:818: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_1980(t6,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k4363 in k4336 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in ... */ static void C_ccall f_4365(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4365,2,av);} /* csc.scm:926: make-pathname */ t2=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in ... */ 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; 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_4156,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4159,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csc.scm:917: quotewrap */ t4=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_retrieve2(lf[89],"target-filename"); f_1562(3,av2);}} /* k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in ... */ 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; 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_4159,2,av);} a=C_alloc(15); 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_4162,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_retrieve2(lf[70],"deploy"))){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4335,a[2]=t5,a[3]=t3,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* csc.scm:920: pathname-strip-extension */ t8=C_fast_retrieve(lf[195]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=C_retrieve2(lf[89],"target-filename"); ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_4162(2,av2);}}} /* k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in ... */ static void C_ccall f_1716(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(28,c,4)))){ C_save_and_reclaim((void *)f_1716,2,av);} a=C_alloc(28); t2=C_mutate2(&lf[87] /* (set! library-dir ...) */,t1); t3=lf[88] /* link-options */ =C_SCHEME_END_OF_LIST;; t4=lf[89] /* target-filename */ =C_SCHEME_FALSE;; t5=lf[90] /* verbose */ =C_SCHEME_FALSE;; t6=lf[91] /* keep-files */ =C_SCHEME_FALSE;; t7=lf[92] /* translate-only */ =C_SCHEME_FALSE;; t8=lf[93] /* compile-only */ =C_SCHEME_FALSE;; t9=lf[94] /* to-stdout */ =C_SCHEME_FALSE;; t10=lf[95] /* shared */ =C_SCHEME_FALSE;; t11=lf[96] /* static */ =C_SCHEME_FALSE;; t12=lf[97] /* static-libs */ =C_SCHEME_FALSE;; t13=lf[98] /* required-extensions */ =C_SCHEME_END_OF_LIST;; t14=C_mutate2(&lf[99] /* (set! compiler-options ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4086,tmp=(C_word)a,a+=2,tmp)); t15=C_mutate2(&lf[104] /* (set! lib-path ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4475,tmp=(C_word)a,a+=2,tmp)); t16=C_mutate2(&lf[108] /* (set! copy-files ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4556,tmp=(C_word)a,a+=2,tmp)); t17=C_mutate2(&lf[115] /* (set! linker-options ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4605,tmp=(C_word)a,a+=2,tmp)); t18=C_mutate2(&lf[119] /* (set! linker-libraries ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4635,tmp=(C_word)a,a+=2,tmp)); t19=C_mutate2(&lf[120] /* (set! constant836 ...) */,lf[121]); t20=C_mutate2(&lf[100] /* (set! quote-option ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4733,tmp=(C_word)a,a+=2,tmp)); t21=lf[131] /* last-exit-code */ =C_SCHEME_FALSE;; t22=C_mutate2(&lf[110] /* (set! command ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4845,tmp=(C_word)a,a+=2,tmp)); t23=C_mutate2(&lf[144] /* (set! $delete-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4861,tmp=(C_word)a,a+=2,tmp)); t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5019,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t25=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5029,a[2]=t24,tmp=(C_word)a,a+=3,tmp); t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5033,a[2]=t25,tmp=(C_word)a,a+=3,tmp); t27=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5037,a[2]=t26,tmp=(C_word)a,a+=3,tmp); /* csc.scm:1146: get-environment-variable */ t28=C_fast_retrieve(lf[142]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t28; av2[1]=t27; av2[2]=lf[409]; ((C_proc)(void*)(*((C_word*)t28+1)))(3,av2);}} /* a4992 in k4986 in k4052 in k4037 in k4034 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in ... */ static void C_ccall f_4993(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4993,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5001,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=C_a_i_cons(&a,2,lf[211],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[212],t4); /* csc.scm:1119: ##sys#print-to-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[160]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[160]+1); av2[1]=t2; av2[2]=t5; tp(3,av2);}} /* k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1612,2,av);} a=C_alloc(3); t2=C_mutate2(&lf[35] /* (set! c++-linker ...) */,t1); t3=C_mutate2(&lf[36] /* (set! object-extension ...) */,lf[37]); t4=C_mutate2(&lf[38] /* (set! library-extension ...) */,lf[39]); t5=C_mutate2(&lf[40] /* (set! executable-extension ...) */,lf[41]); t6=C_mutate2(&lf[42] /* (set! shared-library-extension ...) */,C_fast_retrieve(lf[43])); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1624,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=C_retrieve2(lf[2],"mingw"); if(C_truep(C_retrieve2(lf[2],"mingw"))){ t9=C_retrieve2(lf[2],"mingw"); t10=t7; f_1624(t10,(C_truep(C_retrieve2(lf[2],"mingw"))?lf[426]:lf[427]));} else{ t9=C_retrieve2(lf[6],"cygwin"); t10=t7; f_1624(t10,(C_truep(C_retrieve2(lf[6],"cygwin"))?lf[426]:lf[427]));}} /* k4973 in k4927 in k4924 in k4921 in k4918 in k4220 in k4207 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in ... */ static void C_ccall f_4975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4975,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_4932(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4982,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:1092: make-pathname */ t3=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_retrieve2(lf[29],"home"); av2[3]=lf[165]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1608,2,av);} a=C_alloc(9); t2=C_mutate2(&lf[34] /* (set! linker ...) */,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_5280,a[2]=t3,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[22],"host-mode"))){ /* ##sys#peek-c-string */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_INSTALL_CXX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* ##sys#peek-c-string */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_TARGET_CXX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k3180 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 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(0,c,2)))){ C_save_and_reclaim((void *)f_3182,2,av);} t2=C_mutate2(&lf[82] /* (set! compile-options ...) */,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_1980(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1604,2,av);} a=C_alloc(9); t2=C_mutate2(&lf[33] /* (set! rc-compiler ...) */,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_5290,a[2]=t3,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[22],"host-mode"))){ /* ##sys#peek-c-string */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_INSTALL_CC); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* ##sys#peek-c-string */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_TARGET_CC); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1600,2,av);} a=C_alloc(9); t2=C_mutate2(&lf[32] /* (set! c++-compiler ...) */,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_5300,a[2]=t3,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[22],"host-mode"))){ /* ##sys#peek-c-string */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k5244 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5246,2,av);} /* csc.scm:140: string-split */ t2=C_fast_retrieve(lf[233]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5240 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5242,2,av);} /* csc.scm:142: string-split */ t2=C_fast_retrieve(lf[233]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3314 in k3308 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 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 *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_3315,2,av);} /* csc.scm:795: decompose-pathname */ t2=C_fast_retrieve(lf[386]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3308 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in ... */ static void C_ccall f_3310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3310,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3315,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3321,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:795: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_3430,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[116]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[116]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=lf[400]; tp(4,av2);}}} /* k3428 in k3308 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 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; 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_3430,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3436,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:815: file-exists? */ t4=C_fast_retrieve(lf[163]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1637,2,av);} a=C_alloc(9); t2=C_mutate2(&lf[48] /* (set! default-library ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1641,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5256,a[2]=t3,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[22],"host-mode"))){ /* ##sys#peek-c-string */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_INSTALL_CFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* ##sys#peek-c-string */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_TARGET_CFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in ... */ static void C_ccall f_1633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1633,2,av);} a=C_alloc(3); t2=C_mutate2(&lf[47] /* (set! dynamic-libchicken ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1637,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:136: string-append */ t4=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=C_retrieve2(lf[46],"libchicken"); av2[3]=lf[422]; av2[4]=C_retrieve2(lf[38],"library-extension"); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k5213 in k5209 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5215,2,av);} /* csc.scm:226: string-append */ t2=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5209 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in ... */ static void C_ccall f_5211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_5211,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5215,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_retrieve2(lf[48],"default-library"); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[116]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[116]+1); av2[1]=t3; av2[2]=lf[421]; av2[3]=C_retrieve2(lf[48],"default-library"); tp(4,av2);}} /* k4955 in a4948 in k4942 in k4939 in k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4220 in k4207 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in ... */ static void C_ccall f_4957(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4957,2,av);} /* csc.scm:1098: g929 */ t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3419 in k3407 in a3320 in k3308 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3421,2,av);} t2=C_mutate2(&lf[54] /* (set! scheme-files ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1629,2,av);} a=C_alloc(9); t2=C_mutate2(&lf[46] /* (set! libchicken ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1633,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[6],"cygwin"))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5269,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_INSTALL_LIB_NAME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_retrieve2(lf[46],"libchicken"); f_1633(2,av2);}}} /* k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in ... */ static void C_fcall f_1624(C_word 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_1624,2,t0,t1);} a=C_alloc(9); t2=C_mutate2(&lf[44] /* (set! pic-options ...) */,t1); t3=lf[45] /* generate-manifest */ =C_SCHEME_FALSE;; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1629,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5273,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[18]+1);{ C_word av2[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);}} /* k5298 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in ... */ static void C_ccall f_5300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5300,2,av);} /* csc.scm:115: quotewrap */ t2=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_1562(3,av2);}} /* k3434 in k3428 in k3308 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in ... */ static void C_ccall f_3436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3436,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_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); /* csc.scm:818: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_1980(t4,((C_word*)t0)[5],((C_word*)((C_word*)t0)[3])[1]);} else{ /* csc.scm:817: stop */ f_1499(((C_word*)t0)[6],lf[399],C_a_i_list(&a,1,((C_word*)t0)[7]));}} /* k5271 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5273,2,av);} /* csc.scm:129: string-append */ t2=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[425]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2831 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_ccall f_2833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2833,2,av);} t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate2(&lf[34] /* (set! linker ...) */,t2); t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t5=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t4); /* csc.scm:818: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_1980(t6,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k3665 in for-each-loop504 in k2147 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_3667,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3670,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[55],"c-files")))){ /* csc.scm:835: stop */ f_1499(t3,lf[225],C_a_i_list(&a,2,((C_word*)t0)[3],t2));} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_3670(2,av2);}}} /* k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in ... */ 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 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_5203,2,av);} a=C_alloc(12); t2=C_a_i_list1(&a,1,t1); t3=C_mutate2(&lf[75] /* (set! default-library-files ...) */,t2); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5189,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5193,a[2]=t4,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[22],"host-mode"))){ /* ##sys#peek-c-string */ t6=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} else{ /* ##sys#peek-c-string */ t6=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)C_TARGET_LIB_NAME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k5205 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in ... */ static void C_ccall f_5207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_5207,2,av);} a=C_alloc(6); t2=C_retrieve2(lf[48],"default-library"); if(C_truep(C_retrieve2(lf[19],"chicken-prefix"))){ t3=C_a_i_list2(&a,2,C_retrieve2(lf[19],"chicken-prefix"),lf[420]); /* csc.scm:89: make-pathname */ t4=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t3; av2[3]=C_retrieve2(lf[48],"default-library"); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; f_5203(2,av2);}}} /* k4900 in k4897 in k4894 in k4891 in k4888 in k4882 in k4243 in k4240 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4902,2,av);} /* csc.scm:1080: command */ f_4845(((C_word*)t0)[2],t1);} /* k4417 in k4383 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in ... */ static void C_ccall f_4419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_4419,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[109]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4425,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:923: ##sys#print */ t6=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[193]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5318 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ static void C_ccall f_5320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5320,2,av);} /* csc.scm:113: quotewrap */ t2=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_1562(3,av2);}} /* k4413 in k4399 in k4393 in k4386 in k4383 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4415,2,av);} /* csc.scm:924: quotewrap */ t2=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_1562(3,av2);}} /* k4409 in k4399 in k4393 in k4386 in k4383 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in ... */ static void C_ccall f_4411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4411,2,av);} /* csc.scm:924: ##sys#print */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2852 in k2848 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in ... */ static void C_ccall f_2854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2854,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1980(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k2848 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_ccall f_2850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2850,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2854,a[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:724: cons* */ t5=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=lf[356]; av2[3]=t3; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k5336 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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 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_5338,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5342,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_CHICKEN_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5332 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5334,2,av);} a=C_alloc(6); if(C_truep(C_retrieve2(lf[19],"chicken-prefix"))){ t2=C_a_i_list2(&a,2,C_retrieve2(lf[19],"chicken-prefix"),lf[428]); /* csc.scm:89: make-pathname */ t3=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=lf[429]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* csc.scm:107: quotewrap */ t2=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; f_1562(3,av2);}}} /* k2076 in k2063 in k2060 in k2057 in k2054 in k2048 in k2041 in k2038 in k2035 in k2032 in k2029 in k2026 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in ... */ static void C_ccall f_2078(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2078,2,av);} /* csc.scm:583: ##sys#print */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3695 in k3668 in k3665 in for-each-loop504 in k2147 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in ... */ static void C_ccall f_3697(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3697,2,av);} /* csc.scm:838: string-intersperse */ t2=C_fast_retrieve(lf[102]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[219]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5328 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ static void C_ccall f_5330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5330,2,av);} /* csc.scm:107: quotewrap */ t2=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_1562(3,av2);}} /* map-loop686 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in ... */ static void C_fcall f_4441(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_4441,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_4466,a[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:916: g692 */ 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);}}} /* k2069 in k2066 in k2063 in k2060 in k2057 in k2054 in k2048 in k2041 in k2038 in k2035 in k2032 in k2029 in k2026 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in ... */ static void C_ccall f_2071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2071,2,av);} /* csc.scm:582: command */ f_4845(((C_word*)t0)[2],t1);} /* k4904 in k4894 in k4891 in k4888 in k4882 in k4243 in k4240 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4906,2,av);} /* csc.scm:1081: ##sys#print */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4980 in k4973 in k4927 in k4924 in k4921 in k4918 in k4220 in k4207 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4982,2,av);} /* csc.scm:1091: copy-files */ f_4556(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* k2154 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2156,2,av);} t2=C_mutate2(&lf[89] /* (set! target-filename ...) */,t1); t3=((C_word*)t0)[2]; f_2149(t3,t2);} /* k4986 in k4052 in k4037 in k4034 in k3898 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4988,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4993,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:1121: with-output-to-file */ t3=C_fast_retrieve(lf[161]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3691 in k3668 in k3665 in for-each-loop504 in k2147 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in ... */ static void C_ccall f_3693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3693,2,av);} /* csc.scm:837: command */ f_4845(((C_word*)t0)[2],t1);} /* k2066 in k2063 in k2060 in k2057 in k2054 in k2048 in k2041 in k2038 in k2035 in k2032 in k2029 in k2026 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in ... */ static void C_ccall f_2068(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2068,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2071,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:583: get-output-string */ t3=C_fast_retrieve(lf[111]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5344 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5346,2,av);} a=C_alloc(6); if(C_truep(C_retrieve2(lf[19],"chicken-prefix"))){ t2=C_a_i_list2(&a,2,C_retrieve2(lf[19],"chicken-prefix"),lf[430]); /* csc.scm:89: make-pathname */ t3=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=lf[431]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; f_1588(2,av2);}}} /* k2063 in k2060 in k2057 in k2054 in k2048 in k2041 in k2038 in k2035 in k2032 in k2029 in k2026 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in ... */ static void C_ccall f_2065(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2065,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2068,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(C_truep(lf[0])?C_retrieve2(lf[28],"quotewrap-no-slash-trans"):C_retrieve2(lf[24],"quotewrap")); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2078,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_2082,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* csc.scm:587: string-append */ t7=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=C_retrieve2(lf[89],"target-filename"); av2[3]=lf[196]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k5340 in k5336 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5342,2,av);} /* csc.scm:109: make-pathname */ t2=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4437 in k4423 in k4417 in k4383 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4439,2,av);} /* csc.scm:923: quotewrap */ t2=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_1562(3,av2);}} /* k4433 in k4423 in k4417 in k4383 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in ... */ static void C_ccall f_4435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4435,2,av);} /* csc.scm:923: ##sys#print */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4429 in k4426 in k4423 in k4417 in k4383 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4431,2,av);} /* csc.scm:923: command */ f_4845(((C_word*)t0)[2],t1);} /* k2060 in k2057 in k2054 in k2048 in k2041 in k2038 in k2035 in k2032 in k2029 in k2026 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in ... */ static void C_ccall f_2062(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2062,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2065,a[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:583: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k4464 in map-loop686 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in ... */ 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 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_4466,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4441(t6,((C_word*)t0)[5],t5);} /* k3671 in k3668 in k3665 in for-each-loop504 in k2147 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 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 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_3673,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3677,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:856: append */ t4=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_retrieve2(lf[55],"c-files"); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3668 in k3665 in for-each-loop504 in k2147 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in ... */ static void C_ccall f_3670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_3670,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3673,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_3693,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3697,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3701,a[2]=t4,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:839: quotewrap */ t6=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; f_1562(3,av2);}} /* k3675 in k3671 in k3668 in k3665 in for-each-loop504 in k2147 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in ... */ static void C_ccall f_3677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_3677,2,av);} a=C_alloc(6); t2=C_mutate2(&lf[55] /* (set! c-files ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3681,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:857: append */ t5=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_retrieve2(lf[57],"generated-c-files"); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5368,2,av);} a=C_alloc(3); t2=C_eqp(t1,lf[1]); t3=lf[2] /* mingw */ =t2;; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5364,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:71: software-version */ t5=C_fast_retrieve(lf[240]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ static void C_ccall f_5360(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_5360,2,av);} a=C_alloc(3); t2=C_eqp(t1,lf[5]); t3=lf[6] /* cygwin */ =t2;; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5356,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:73: build-platform */ t5=C_fast_retrieve(lf[365]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ static void C_ccall f_5364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_5364,2,av);} a=C_alloc(3); t2=C_eqp(t1,lf[3]); t3=lf[4] /* osx */ =t2;; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5360,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:72: build-platform */ t5=C_fast_retrieve(lf[365]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k2080 in k2063 in k2060 in k2057 in k2054 in k2048 in k2041 in k2038 in k2035 in k2032 in k2029 in k2026 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in ... */ static void C_ccall f_2082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2082,2,av);} /* csc.scm:583: g302 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4399 in k4393 in k4386 in k4383 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in ... */ 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 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_4401,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4404,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_4411,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_4415,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csc.scm:924: make-pathname */ t5=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[5])[1]; av2[3]=lf[190]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k4402 in k4399 in k4393 in k4386 in k4383 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ 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); /* csc.scm:924: get-output-string */ t3=C_fast_retrieve(lf[111]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4405 in k4402 in k4399 in k4393 in k4386 in k4383 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 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(0,c,2)))){ C_save_and_reclaim((void *)f_4407,2,av);} /* csc.scm:924: command */ f_4845(((C_word*)t0)[2],t1);} /* k2814 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_ccall f_2816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2816,2,av);} t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate2(&lf[32] /* (set! c++-compiler ...) */,t2); t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t5=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t4); /* csc.scm:818: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_1980(t6,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k3679 in k3675 in k3671 in k3668 in k3665 in for-each-loop504 in k2147 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in ... */ static void C_ccall f_3681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3681,2,av);} t2=C_mutate2(&lf[57] /* (set! generated-c-files ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2035 in k2032 in k2029 in k2026 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in ... */ static void C_ccall f_2037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2037,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2040,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:580: ##sys#print */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[199]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2032 in k2029 in k2026 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2034,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2037,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:580: ##sys#print */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_retrieve2(lf[89],"target-filename"); av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2029 in k2026 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in ... */ static void C_ccall f_2031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2031,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2034,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:580: ##sys#print */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[200]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3718 in k3707 in k3699 in k3668 in k3665 in for-each-loop504 in k2147 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 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 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_3720,2,av);} a=C_alloc(13); t2=C_i_check_list_2(t1,lf[101]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3726,a[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_3728,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_3728(t7,t3,t1);} /* linker-options in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in ... */ static void C_fcall f_4605(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_4605,1,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4613,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4633,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csc.scm:1010: append */ t4=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=C_retrieve2(lf[86],"linking-optimization-options"); av2[3]=C_retrieve2(lf[88],"link-options"); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* map-loop525 in k3718 in k3707 in k3699 in k3668 in k3665 in for-each-loop504 in k2147 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in ... */ static void C_fcall f_3728(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_3728,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_3753,a[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:847: g531 */ 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);}}} /* k3724 in k3718 in k3707 in k3699 in k3668 in k3665 in for-each-loop504 in k2147 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in ... */ static void C_ccall f_3726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3726,2,av);} /* csc.scm:840: append */ t2=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2057 in k2054 in k2048 in k2041 in k2038 in k2035 in k2032 in k2029 in k2026 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in ... */ static void C_ccall f_2059(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2059,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2062,a[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(lf[0])){ t3=C_retrieve2(lf[28],"quotewrap-no-slash-trans"); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f6050,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t5=t4; t6=C_retrieve2(lf[89],"target-filename"); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f6108,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* csc.scm:101: normalize-pathname */ t8=C_fast_retrieve(lf[27]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=C_retrieve2(lf[89],"target-filename"); ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t3=C_retrieve2(lf[24],"quotewrap"); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f6054,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csc.scm:583: g300 */ t5=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_retrieve2(lf[89],"target-filename"); f_1562(3,av2);}}} /* k3407 in a3320 in k3308 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in ... */ static void C_fcall f_3409(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_3409,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3413,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:811: append */ t4=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t2; av2[2]=C_retrieve2(lf[59],"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_3421,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:812: append */ t4=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t2; av2[2]=C_retrieve2(lf[54],"scheme-files"); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k2054 in k2048 in k2041 in k2038 in k2035 in k2032 in k2029 in k2026 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in ... */ static void C_ccall f_2056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2056,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2059,a[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:583: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k4426 in k4423 in k4417 in k4383 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4428,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4431,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:923: get-output-string */ t3=C_fast_retrieve(lf[111]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5308 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 in ... */ static void C_ccall f_5310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5310,2,av);} /* csc.scm:114: quotewrap */ t2=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_1562(3,av2);}} /* k4423 in k4417 in k4383 in k4333 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in ... */ static void C_ccall f_4425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_4425,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4428,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_4435,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_4439,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csc.scm:923: make-pathname */ t5=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[5])[1]; av2[3]=lf[192]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k2048 in k2041 in k2038 in k2035 in k2032 in k2029 in k2026 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in ... */ static void C_ccall f_2050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2050,2,av);} a=C_alloc(5); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[109]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2056,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(lf[0])){ /* csc.scm:583: ##sys#print */ t6=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[197]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ /* csc.scm:583: ##sys#print */ t6=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[198]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k1442 */ 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 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_1444,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1447,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k1445 in k1442 */ static void C_ccall f_1447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1447,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1450,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k4618 in k4611 in linker-options in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in ... */ static void C_fcall f_4620(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_4620,2,t0,t1);} if(C_truep(t1)){ /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[116]); C_word av2[4]; av2[0]=*((C_word*)lf[116]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[117]; tp(4,av2);}} else{ /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[116]); C_word av2[4]; av2[0]=*((C_word*)lf[116]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[118]; tp(4,av2);}}} /* k2041 in k2038 in k2035 in k2032 in k2029 in k2026 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in ... */ 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 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_2043,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2050,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:583: open-output-string */ t3=C_fast_retrieve(lf[114]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3411 in k3407 in a3320 in k3308 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3413,2,av);} t2=C_mutate2(&lf[59] /* (set! object-files ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2038 in k2035 in k2032 in k2029 in k2026 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in ... */ static void C_ccall f_2040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2040,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2043,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:580: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k4611 in linker-options in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 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 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_4613,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4620,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[96],"static"))){ t4=C_retrieve2(lf[2],"mingw"); t5=t3; f_4620(t5,(C_truep(C_retrieve2(lf[2],"mingw"))?C_SCHEME_FALSE:C_i_not(C_retrieve2(lf[4],"osx"))));} else{ t4=t3; f_4620(t4,C_SCHEME_FALSE);}} /* k3751 in map-loop525 in k3718 in k3707 in k3699 in k3668 in k3665 in for-each-loop504 in k2147 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in ... */ 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 t3; 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_3753,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3728(t6,((C_word*)t0)[5],t5);} /* k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1462,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1465,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d13_toplevel(2,av2);}} /* k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1465,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1468,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_utils_toplevel(2,av2);}} /* k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ static void C_ccall f_1468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1468,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1471,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_files_toplevel(2,av2);}} /* k1448 in k1445 in k1442 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1450,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1453,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_posix_toplevel(2,av2);}} /* k1451 in k1448 in k1445 in k1442 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1453,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1456,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k1454 in k1451 in k1448 in k1445 in k1442 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1456,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1459,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_ports_toplevel(2,av2);}} /* k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1459,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1462,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d1_toplevel(2,av2);}} /* k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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 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_5356,2,av);} a=C_alloc(3); t2=C_eqp(t1,lf[7]); t3=lf[8] /* aix */ =t2;; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1496,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:76: software-version */ t5=C_fast_retrieve(lf[240]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k3703 in k3699 in k3668 in k3665 in for-each-loop504 in k2147 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3705,2,av);} /* csc.scm:839: cons* */ t2=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[30],"translator"); av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop193 in k1749 in k1733 in k1729 in k1725 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in ... */ static void C_fcall f_1756(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_1756,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_1781,a[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:290: g216 */ t5=*((C_word*)lf[122]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=lf[232]; 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);}}} /* k3707 in k3699 in k3668 in k3665 in for-each-loop504 in k2147 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in ... */ static void C_fcall f_3709(C_word t0,C_word t1){ C_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(13,0,5)))){ C_save_and_reclaim_args((void *)trf_3709,2,t0,t1);} a=C_alloc(13); t2=t1; t3=C_fudge(C_fix(13)); t4=(C_truep(t3)?lf[220]:C_SCHEME_END_OF_LIST); 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_retrieve2(lf[100],"quote-option"); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3720,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t5,a[5]=t8,a[6]=t10,a[7]=t9,tmp=(C_word)a,a+=8,tmp); if(C_truep(C_retrieve2(lf[61],"cpp-mode"))){ /* csc.scm:848: append */ t12=*((C_word*)lf[103]+1);{ C_word av2[6]; av2[0]=t12; av2[1]=t11; av2[2]=C_retrieve2(lf[53],"extra-features"); av2[3]=C_retrieve2(lf[79],"translate-options"); av2[4]=lf[221]; av2[5]=C_retrieve2(lf[84],"translation-optimization-options"); ((C_proc)(void*)(*((C_word*)t12+1)))(6,av2);}} else{ if(C_truep(C_retrieve2(lf[62],"objc-mode"))){ /* csc.scm:848: append */ t12=*((C_word*)lf[103]+1);{ C_word av2[6]; av2[0]=t12; av2[1]=t11; av2[2]=C_retrieve2(lf[53],"extra-features"); av2[3]=C_retrieve2(lf[79],"translate-options"); av2[4]=lf[222]; av2[5]=C_retrieve2(lf[84],"translation-optimization-options"); ((C_proc)(void*)(*((C_word*)t12+1)))(6,av2);}} else{ /* csc.scm:848: append */ t12=*((C_word*)lf[103]+1);{ C_word av2[6]; av2[0]=t12; av2[1]=t11; av2[2]=C_retrieve2(lf[53],"extra-features"); av2[3]=C_retrieve2(lf[79],"translate-options"); av2[4]=C_SCHEME_END_OF_LIST; av2[5]=C_retrieve2(lf[84],"translation-optimization-options"); ((C_proc)(void*)(*((C_word*)t12+1)))(6,av2);}}}} /* k1749 in k1733 in k1729 in k1725 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in ... */ static void C_ccall f_1751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_1751,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_1756,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_1756(t5,((C_word*)t0)[4],t1);} /* k3699 in k3668 in k3665 in for-each-loop504 in k2147 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in ... */ static void C_ccall f_3701(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_3701,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3705,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_3709,a[2]=t3,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[94],"to-stdout"))){ t5=t4; f_3709(t5,lf[223]);} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3777,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csc.scm:843: quotewrap */ t6=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; f_1562(3,av2);}}} /* k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1471,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1474,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ static void C_ccall f_1474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1474,2,av);} a=C_alloc(3); t2=C_mutate2(&lf[0] /* (set! windows-shell ...) */,C_mk_bool(C_WINDOWS_SHELL)); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5368,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:70: build-platform */ t4=C_fast_retrieve(lf[365]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1779 in map-loop193 in k1749 in k1733 in k1729 in k1725 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in ... */ 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 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_1781,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_1756(t6,((C_word*)t0)[5],t5);} /* k2355 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_2357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2357,2,av);} /* csc.scm:623: exit */ t2=C_fast_retrieve(lf[14]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4930 in k4927 in k4924 in k4921 in k4918 in k4220 in k4207 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 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 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_4932,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4935,a[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:1094: make-pathname */ t3=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[164]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ static void C_ccall f_1496(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_1496,2,av);} a=C_alloc(5); t2=C_mutate2(&lf[9] /* (set! elf ...) */,C_u_i_memq(t1,lf[10])); t3=C_mutate2(&lf[11] /* (set! stop ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1499,tmp=(C_word)a,a+=2,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1526,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:82: get-environment-variable */ t5=C_fast_retrieve(lf[142]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[433]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k4801 in k4798 in k4778 in k4775 in k4772 in command in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in ... */ static void C_ccall f_4803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4803,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4806,a[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:1064: ##sys#print */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[134]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* stop in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in k1445 in k1442 */ static void C_fcall f_1499(C_word t1,C_word 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_1499,3,t1,t2,t3);} a=C_alloc(13); t4=*((C_word*)lf[12]+1); t5=*((C_word*)lf[12]+1); t6=C_i_check_port_2(*((C_word*)lf[12]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[13]); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1506,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_1522,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* ##sys#peek-c-string */ t9=*((C_word*)lf[18]+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);}} /* k4798 in k4778 in k4775 in k4772 in command in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_ccall f_4800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4800,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4803,a[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:1064: ##sys#print */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2343 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_2345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2345,2,av);} /* csc.scm:622: exit */ t2=C_fast_retrieve(lf[14]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4807 in k4804 in k4801 in k4798 in k4778 in k4775 in k4772 in command in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in ... */ static void C_ccall f_4809(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4809,2,av);} /* csc.scm:1064: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[15]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k4804 in k4801 in k4798 in k4778 in k4775 in k4772 in command in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in ... */ static void C_ccall f_4806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_4806,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4809,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:1064: ##sys#print */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4921 in k4918 in k4220 in k4207 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 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 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_4923,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4926,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:1088: make-pathname */ t4=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=lf[167]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k4778 in k4775 in k4772 in command in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 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 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_4780,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4783,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_4783(2,av2);}} else{ t5=*((C_word*)lf[132]+1); t6=*((C_word*)lf[132]+1); t7=C_i_check_port_2(*((C_word*)lf[132]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[133]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4800,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* csc.scm:1064: ##sys#print */ t9=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t8; av2[2]=lf[135]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[132]+1); ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} /* k4918 in k4220 in k4207 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4920,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4923,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:1087: make-pathname */ t4=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[168]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k4781 in k4778 in k4775 in k4772 in command in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in ... */ static void C_ccall f_4783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_4783,2,av);} t2=C_eqp(((C_word*)t0)[2],C_fix(0)); if(C_truep(t2)){ t3=lf[131] /* last-exit-code */ =C_fix(0);; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_retrieve2(lf[131],"last-exit-code"); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=lf[131] /* last-exit-code */ =C_fix(1);; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_retrieve2(lf[131],"last-exit-code"); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4220 in k4207 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in ... */ 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 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_4935,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4938,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4941,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* csc.scm:1095: file-exists? */ t5=C_fast_retrieve(lf[163]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k4936 in k4933 in k4930 in k4927 in k4924 in k4921 in k4918 in k4220 in k4207 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in ... */ static void C_ccall f_4938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4938,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2026 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2028,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2031,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:580: ##sys#print */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_retrieve2(lf[89],"target-filename"); av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4912 in k4888 in k4882 in k4243 in k4240 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4914,2,av);} /* csc.scm:1081: ##sys#print */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4908 in k4894 in k4891 in k4888 in k4882 in k4243 in k4240 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 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,2)))){ C_save_and_reclaim((void *)f_4910,2,av);} /* csc.scm:1083: quotewrap */ t2=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_1562(3,av2);}} /* k4775 in k4772 in command in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4777,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4780,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[68],"dry-run"))){ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fix(0); f_4780(2,av2);}} else{ /* csc.scm:1062: system */ t3=C_fast_retrieve(lf[136]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k4772 in command in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4774,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4777,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[90],"verbose"))){ /* csc.scm:1061: print */ t4=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_4777(2,av2);}}} /* k4927 in k4924 in k4921 in k4918 in k4220 in k4207 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in ... */ 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 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_4929,2,av);} a=C_alloc(10); 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); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4975,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* csc.scm:1090: file-exists? */ t4=C_fast_retrieve(lf[163]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4924 in k4921 in k4918 in k4220 in k4207 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in ... */ 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(7,c,3)))){ C_save_and_reclaim((void *)f_4926,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,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],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* csc.scm:1089: make-pathname */ t4=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[166]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a4762 in quote-option in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 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=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_4763,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_char_equalp(C_make_character(34),t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in ... */ static void C_fcall f_4206(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_4206,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4209,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_4226,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[4],"osx"))){ t4=C_retrieve2(lf[69],"gui"); if(C_truep(C_retrieve2(lf[69],"gui"))){ /* csc.scm:963: make-pathname */ t5=C_fast_retrieve(lf[106]);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=lf[177]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t3;{ C_word av2[2]; av2[0]=t5; av2[1]=((C_word*)((C_word*)t0)[3])[1]; f_4226(2,av2);}}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[3])[1]; f_4226(2,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_4171(2,av2);}}} /* k4207 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 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 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_4209,2,av);} a=C_alloc(4); t2=(C_truep(C_retrieve2(lf[4],"osx"))?C_retrieve2(lf[69],"gui"):C_SCHEME_FALSE); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4222,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:967: pathname-file */ t4=C_fast_retrieve(lf[170]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_retrieve2(lf[89],"target-filename"); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; f_4171(2,av2);}}} /* a4750 in k4738 in quote-option in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 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=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_4751,3,av);} t3=C_u_i_char_whitespacep(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep(t3)?t3:C_i_memq(t2,lf[120])); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4224 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 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 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,2)))){ C_save_and_reclaim((void *)f_4226,2,av);} a=C_alloc(10); t2=((C_word*)t0)[2]; t3=t1; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4529,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4536,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=t5; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4495,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* csc.scm:979: get-environment-variable */ t8=C_fast_retrieve(lf[142]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=lf[176]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k4220 in k4207 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 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 t3; 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_4222,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t1; t4=((C_word*)((C_word*)t0)[3])[1]; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4920,a[2]=t2,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* csc.scm:1086: make-pathname */ t6=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=lf[169]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k4738 in quote-option in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 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 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_4740,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_4746,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_4751,tmp=(C_word)a,a+=2,tmp); /* csc.scm:1045: string-any */ t4=C_fast_retrieve(lf[130]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k4744 in k4738 in quote-option in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in ... */ static void C_ccall f_4746(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_4746,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_4670,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4684,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4688,a[2]=t5,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* string->list */ t9=C_fast_retrieve(lf[129]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g565 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in ... */ static void C_fcall f_3831(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_3831,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3835,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* csc.scm:867: pathname-replace-extension */ t4=C_fast_retrieve(lf[208]);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_retrieve2(lf[36],"object-extension"); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5111 in map-loop113 in k5078 in k5075 in k5056 in k5052 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_5113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_5113,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5088(t6,((C_word*)t0)[5],t5);} /* k3867 in k3863 in k3836 in k3833 in g565 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 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 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_3869,2,av);} 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]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_retrieve2(lf[61],"cpp-mode"))){ t4=C_i_string_equal_p(lf[203],C_retrieve2(lf[32],"c++-compiler")); t5=t3; f_3873(t5,(C_truep(t4)?lf[204]:lf[205]));} else{ t4=t3; f_3873(t4,lf[205]);}} /* k3839 in k3836 in k3833 in g565 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 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 t3; 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_3841,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],C_retrieve2(lf[60],"generated-object-files")); t3=C_mutate2(&lf[60] /* (set! generated-object-files ...) */,t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t5=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t4); t6=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k5288 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in ... */ static void C_ccall f_5290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5290,2,av);} /* csc.scm:116: quotewrap */ t2=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_1562(3,av2);}} /* k2367 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2369,2,av);} /* csc.scm:624: exit */ t2=C_fast_retrieve(lf[14]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3833 in g565 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in ... */ static void C_ccall f_3835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3835,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3838,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[59],"object-files")))){ /* csc.scm:869: stop */ f_1499(t3,lf[207],C_a_i_list(&a,2,((C_word*)t0)[4],t2));} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_3838(2,av2);}}} /* k3836 in k3833 in g565 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in ... */ static void C_ccall f_3838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_3838,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3841,a[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_3853,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(C_truep(C_retrieve2(lf[61],"cpp-mode"))?C_retrieve2(lf[32],"c++-compiler"):C_retrieve2(lf[31],"compiler")); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3865,a[2]=t5,a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* csc.scm:875: quotewrap */ t7=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[5]; f_1562(3,av2);}} /* k4243 in k4240 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 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 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_4245,2,av);} a=C_alloc(4); t2=(C_truep(C_retrieve2(lf[69],"gui"))?C_i_not(C_retrieve2(lf[70],"deploy")):C_SCHEME_FALSE); if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=((C_word*)((C_word*)t0)[3])[1]; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4884,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* csc.scm:1081: open-output-string */ t6=C_fast_retrieve(lf[114]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; f_4168(2,av2);}}} /* k4240 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in ... */ static void C_fcall f_4242(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,3)))){ C_save_and_reclaim_args((void *)trf_4242,2,t0,t1);} a=C_alloc(14); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4245,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_4261,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4265,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* ##sys#peek-c-string */ t5=*((C_word*)lf[18]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_INSTALL_POSTINSTALL_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_4168(2,av2);}}} /* k3118 in k3107 in k3098 in k3042 in k3039 in k2756 in k2225 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in ... */ static void C_ccall f_3120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3120,2,av);} t2=C_mutate2(&lf[88] /* (set! link-options ...) */,t1); /* csc.scm:818: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_1980(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in ... */ 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 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(6,c,3)))){ C_save_and_reclaim((void *)f_1651,2,av);} a=C_alloc(6); t2=C_mutate2(&lf[53] /* (set! extra-features ...) */,t1); t3=lf[54] /* scheme-files */ =C_SCHEME_END_OF_LIST;; t4=lf[55] /* c-files */ =C_SCHEME_END_OF_LIST;; t5=lf[56] /* rc-files */ =C_SCHEME_END_OF_LIST;; t6=lf[57] /* generated-c-files */ =C_SCHEME_END_OF_LIST;; t7=lf[58] /* generated-rc-files */ =C_SCHEME_END_OF_LIST;; t8=lf[59] /* object-files */ =C_SCHEME_END_OF_LIST;; t9=lf[60] /* generated-object-files */ =C_SCHEME_END_OF_LIST;; t10=lf[61] /* cpp-mode */ =C_SCHEME_FALSE;; t11=lf[62] /* objc-mode */ =C_SCHEME_FALSE;; t12=lf[63] /* embedded */ =C_SCHEME_FALSE;; t13=lf[64] /* inquiry-only */ =C_SCHEME_FALSE;; t14=lf[65] /* show-cflags */ =C_SCHEME_FALSE;; t15=lf[66] /* show-ldflags */ =C_SCHEME_FALSE;; t16=lf[67] /* show-libs */ =C_SCHEME_FALSE;; t17=lf[68] /* dry-run */ =C_SCHEME_FALSE;; t18=lf[69] /* gui */ =C_SCHEME_FALSE;; t19=lf[70] /* deploy */ =C_SCHEME_FALSE;; t20=lf[71] /* deployed */ =C_SCHEME_FALSE;; t21=lf[72] /* rpath */ =C_SCHEME_FALSE;; t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1681,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[22],"host-mode"))){ /* ##sys#peek-c-string */ t23=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t23; av2[1]=t22; av2[2]=C_mpointer(&a,(void*)C_INSTALL_MORE_STATIC_LIBS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t23+1)))(4,av2);}} else{ /* ##sys#peek-c-string */ t23=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t23; av2[1]=t22; av2[2]=C_mpointer(&a,(void*)C_TARGET_MORE_STATIC_LIBS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t23+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(2155))){ C_save(t1); C_rereclaim2(2155*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,434); lf[1]=C_h_intern(&lf[1],7,"mingw32"); lf[3]=C_h_intern(&lf[3],6,"macosx"); lf[5]=C_h_intern(&lf[5],6,"cygwin"); lf[7]=C_h_intern(&lf[7],3,"aix"); lf[10]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005linux\376\003\000\000\002\376\001\000\000\006netbsd\376\003\000\000\002\376\001\000\000\007freebsd\376\003\000\000\002\376\001\000\000\007solaris\376\003\000\000\002\376\001\000\000\007openb" "sd\376\003\000\000\002\376\001\000\000\004hurd\376\003\000\000\002\376\001\000\000\005haiku\376\377\016"); lf[12]=C_h_intern(&lf[12],18,"\003sysstandard-error"); lf[13]=C_h_intern(&lf[13],7,"fprintf"); lf[14]=C_h_intern(&lf[14],4,"exit"); lf[15]=C_h_intern(&lf[15],16,"\003syswrite-char-0"); lf[16]=C_h_intern(&lf[16],9,"\003sysprint"); lf[17]=C_decode_literal(C_heaptop,"\376B\000\000\002: "); lf[18]=C_h_intern(&lf[18],17,"\003syspeek-c-string"); lf[21]=C_decode_literal(C_heaptop,"\376B\000\000\005-host"); lf[25]=C_h_intern(&lf[25],2,"qs"); lf[26]=C_h_intern(&lf[26],16,"string-translate"); lf[27]=C_h_intern(&lf[27],18,"normalize-pathname"); lf[37]=C_decode_literal(C_heaptop,"\376B\000\000\001o"); lf[39]=C_decode_literal(C_heaptop,"\376B\000\000\001a"); lf[41]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[43]=C_h_intern(&lf[43],26,"\003sysload-dynamic-extension"); lf[80]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\014/usr/include\376\003\000\000\002\376B\000\000\000\376\377\016"); lf[101]=C_h_intern(&lf[101],3,"map"); lf[102]=C_h_intern(&lf[102],18,"string-intersperse"); lf[103]=C_h_intern(&lf[103],6,"append"); lf[105]=C_decode_literal(C_heaptop,"\376B\000\000\003lib"); lf[106]=C_h_intern(&lf[106],13,"make-pathname"); lf[107]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[109]=C_h_intern(&lf[109],7,"sprintf"); lf[111]=C_h_intern(&lf[111],17,"get-output-string"); lf[112]=C_decode_literal(C_heaptop,"\376B\000\000\007copy /Y"); lf[113]=C_decode_literal(C_heaptop,"\376B\000\000\002cp"); lf[114]=C_h_intern(&lf[114],18,"open-output-string"); lf[116]=C_h_intern(&lf[116],17,"\003sysstring-append"); lf[117]=C_decode_literal(C_heaptop,"\376B\000\000\010 -static"); lf[118]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[121]=C_decode_literal(C_heaptop,"\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[122]=C_h_intern(&lf[122],13,"string-append"); lf[123]=C_decode_literal(C_heaptop,"\376B\000\000\001\042"); lf[124]=C_decode_literal(C_heaptop,"\376B\000\000\001\042"); lf[125]=C_h_intern(&lf[125],17,"string-translate\052"); lf[126]=C_decode_literal(C_heaptop,"\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[127]=C_h_intern(&lf[127],16,"\003syslist->string"); lf[128]=C_h_intern(&lf[128],5,"cons\052"); lf[129]=C_h_intern(&lf[129],16,"\003sysstring->list"); lf[130]=C_h_intern(&lf[130],10,"string-any"); lf[132]=C_h_intern(&lf[132],19,"\003sysstandard-output"); lf[133]=C_h_intern(&lf[133],6,"printf"); lf[134]=C_decode_literal(C_heaptop,"\376B\000\000\002: "); lf[135]=C_decode_literal(C_heaptop,"\376B\000\000;\012Error: shell command terminated with non-zero exit status "); lf[136]=C_h_intern(&lf[136],6,"system"); lf[137]=C_h_intern(&lf[137],5,"print"); lf[138]=C_decode_literal(C_heaptop,"\376B\000\000\001\042"); lf[139]=C_decode_literal(C_heaptop,"\376B\000\000\001\042"); lf[140]=C_decode_literal(C_heaptop,"\376B\000\000\037/usr/bin/env DYLD_LIBRARY_PATH="); lf[141]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[142]=C_h_intern(&lf[142],24,"get-environment-variable"); lf[143]=C_decode_literal(C_heaptop,"\376B\000\000\021DYLD_LIBRARY_PATH"); lf[145]=C_h_intern(&lf[145],11,"delete-file"); lf[146]=C_decode_literal(C_heaptop,"\376B\000\000\003rm "); lf[147]=C_h_intern(&lf[147],25,"\003sysimplicit-exit-handler"); lf[148]=C_decode_literal(C_heaptop,"\376B\000\000#not enough arguments to option `~A\047"); lf[149]=C_decode_literal(C_heaptop,"\376B\000\000\013-dynamiclib"); lf[150]=C_decode_literal(C_heaptop,"\376B\000\000$-bundle -headerpad_max_install_names"); lf[151]=C_decode_literal(C_heaptop,"\376B\000\000\007-shared"); lf[152]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\012-DC_SHARED\376\377\016"); lf[153]=C_decode_literal(C_heaptop,"\376B\000\000\010-feature"); lf[154]=C_decode_literal(C_heaptop,"\376B\000\000\026chicken-compile-shared"); lf[155]=C_decode_literal(C_heaptop,"\376B\000\000\026-DC_PRIVATE_REPOSITORY"); lf[156]=C_decode_literal(C_heaptop,"\376B\000\000\031-framework CoreFoundation"); lf[157]=C_h_intern(&lf[157],8,"for-each"); lf[158]=C_decode_literal(C_heaptop,"\376B\000\000\032</string>\012</dict>\012</plist>"); lf[159]=C_decode_literal(C_heaptop,"\376B\000\001\262<\077xml version=\0421.0\042 encoding=\042UTF-8\042\077>\012<!DOCTYPE plist SYSTEM \042file://local" "host/System/Library/DTDs/PropertyList.dtd\042>\012<plist version=\0420.9\042>\012<dict>\012\011<key>C" "FBundlePackageType</key>\012\011<string>APPL</string>\012\011<key>CFBundleIconFile</key>\012\011<s" "tring>CHICKEN.icns</string>\012 <key>CFBundleGetInfoString</key>\012\011<string>Cr" "eated by CHICKEN</string>\012\011<key>CFBundleSignature</key>\012\011<string>\077\077\077\077</string>\012\011" "<key>CFBundleExecutable</key>\012\011<string>"); lf[160]=C_h_intern(&lf[160],19,"\003sysprint-to-string"); lf[161]=C_h_intern(&lf[161],19,"with-output-to-file"); lf[162]=C_decode_literal(C_heaptop,"\376B\000\000\013generating "); lf[163]=C_h_intern(&lf[163],12,"file-exists\077"); lf[164]=C_decode_literal(C_heaptop,"\376B\000\000\012Info.plist"); lf[165]=C_decode_literal(C_heaptop,"\376B\000\000\024chicken/CHICKEN.icns"); lf[166]=C_decode_literal(C_heaptop,"\376B\000\000\014CHICKEN.icns"); lf[167]=C_decode_literal(C_heaptop,"\376B\000\000\022Contents/Resources"); lf[168]=C_decode_literal(C_heaptop,"\376B\000\000\016Contents/MacOS"); lf[169]=C_decode_literal(C_heaptop,"\376B\000\000\010Contents"); lf[170]=C_h_intern(&lf[170],13,"pathname-file"); lf[171]=C_decode_literal(C_heaptop,"\376B\000\000\005dylib"); lf[172]=C_decode_literal(C_heaptop,"\376B\000\000\003dll"); lf[173]=C_decode_literal(C_heaptop,"\376B\000\000\003so."); lf[174]=C_h_intern(&lf[174],14,"number->string"); lf[175]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[176]=C_decode_literal(C_heaptop,"\376B\000\000\017TARGET_LIB_PATH"); lf[177]=C_decode_literal(C_heaptop,"\376B\000\000\016Contents/MacOS"); lf[178]=C_decode_literal(C_heaptop,"\376B\000\000\005mac.r"); lf[179]=C_decode_literal(C_heaptop,"\376B\000\000 /Developer/Tools/Rez -t APPL -o "); lf[180]=C_decode_literal(C_heaptop,"\376B\000\000\011 -change "); lf[181]=C_decode_literal(C_heaptop,"\376B\000\000\007.dylib "); lf[182]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[183]=C_decode_literal(C_heaptop,"\376B\000\000\020@executable_path"); lf[184]=C_decode_literal(C_heaptop,"\376B\000\000\006.dylib"); lf[185]=C_decode_literal(C_heaptop,"\376B\000\000\003-o "); lf[186]=C_h_intern(&lf[186],16,"create-directory"); lf[187]=C_decode_literal(C_heaptop,"\376B\000\000\006mkdir "); lf[188]=C_h_intern(&lf[188],17,"directory-exists\077"); lf[189]=C_decode_literal(C_heaptop,"\376B\000\000\017Contents/MacOS/"); lf[190]=C_decode_literal(C_heaptop,"\376B\000\000\022Contents/Resources"); lf[191]=C_decode_literal(C_heaptop,"\376B\000\000\011mkdir -p "); lf[192]=C_decode_literal(C_heaptop,"\376B\000\000\016Contents/MacOS"); lf[193]=C_decode_literal(C_heaptop,"\376B\000\000\011mkdir -p "); lf[194]=C_decode_literal(C_heaptop,"\376B\000\000\003app"); lf[195]=C_h_intern(&lf[195],24,"pathname-strip-extension"); lf[196]=C_decode_literal(C_heaptop,"\376B\000\000\004.old"); lf[197]=C_decode_literal(C_heaptop,"\376B\000\000\004move"); lf[198]=C_decode_literal(C_heaptop,"\376B\000\000\002mv"); lf[199]=C_decode_literal(C_heaptop,"\376B\000\000\005.old\047"); lf[200]=C_decode_literal(C_heaptop,"\376B\000\000\030\047 - renaming source to `"); lf[201]=C_decode_literal(C_heaptop,"\376B\000\0001Warning: output file will overwrite source file `"); lf[202]=C_decode_literal(C_heaptop,"\376B\000\000\002-c"); lf[203]=C_decode_literal(C_heaptop,"\376B\000\000\003g++"); lf[204]=C_decode_literal(C_heaptop,"\376B\000\000\022-Wno-write-strings"); lf[205]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[206]=C_decode_literal(C_heaptop,"\376B\000\000\003-o "); lf[207]=C_decode_literal(C_heaptop,"\376B\000\000Pobject file generated from `~a\047 will overwrite explicitly given object file" " `~a\047"); lf[208]=C_h_intern(&lf[208],26,"pathname-replace-extension"); lf[209]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[210]=C_h_intern(&lf[210],7,"reverse"); lf[211]=C_decode_literal(C_heaptop,"\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[212]=C_decode_literal(C_heaptop,"\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[213]=C_decode_literal(C_heaptop,"\376B\000\000\013generating "); lf[214]=C_decode_literal(C_heaptop,"\376B\000\000\002rc"); lf[215]=C_h_intern(&lf[215],7,"windows"); lf[216]=C_h_intern(&lf[216],13,"software-type"); lf[217]=C_h_intern(&lf[217],4,"last"); lf[218]=C_decode_literal(C_heaptop,"\376B\000\000\031no source files specified"); lf[219]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[220]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\003-:d\376\377\016"); lf[221]=C_decode_literal(C_heaptop,"\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[222]=C_decode_literal(C_heaptop,"\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[223]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\012-to-stdout\376\377\016"); lf[224]=C_decode_literal(C_heaptop,"\376B\000\000\014-output-file"); lf[225]=C_decode_literal(C_heaptop,"\376B\000\000KC file generated from `~a\047 will overwrite explicitly given source file `~a\047" ); lf[226]=C_decode_literal(C_heaptop,"\376B\000\000\003cpp"); lf[227]=C_decode_literal(C_heaptop,"\376B\000\000\001m"); lf[228]=C_decode_literal(C_heaptop,"\376B\000\000\001c"); lf[229]=C_decode_literal(C_heaptop,"\376B\000\000\010-dynamic"); lf[230]=C_h_intern(&lf[230],7,"newline"); lf[231]=C_h_intern(&lf[231],6,"print\052"); lf[232]=C_decode_literal(C_heaptop,"\376B\000\000\002-L"); lf[233]=C_h_intern(&lf[233],12,"string-split"); lf[234]=C_decode_literal(C_heaptop,"\376B\000\000\002:;"); lf[235]=C_decode_literal(C_heaptop,"\376B\000\000\026CHICKEN_C_LIBRARY_PATH"); lf[236]=C_h_intern(&lf[236],7,"freebsd"); lf[237]=C_h_intern(&lf[237],7,"openbsd"); lf[238]=C_h_intern(&lf[238],6,"netbsd"); lf[239]=C_decode_literal(C_heaptop,"\376B\000\000\015-Wl,-z,origin"); lf[240]=C_h_intern(&lf[240],16,"software-version"); lf[241]=C_h_intern(&lf[241],4,"conc"); lf[242]=C_decode_literal(C_heaptop,"\376B\000\000\007 -Wl,-R"); lf[243]=C_decode_literal(C_heaptop,"\376B\000\000\010\134$ORIGIN"); lf[244]=C_decode_literal(C_heaptop,"\376B\000\000\003lib"); lf[245]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[246]=C_decode_literal(C_heaptop,"\376B\000\000\002-L"); lf[247]=C_decode_literal(C_heaptop,"\376B\000\000\007-Wl,-R\042"); lf[248]=C_decode_literal(C_heaptop,"\376B\000\000\001\042"); lf[249]=C_decode_literal(C_heaptop,"\376B\000\000\002-L"); lf[250]=C_h_intern(&lf[250],5,"-help"); lf[251]=C_h_intern(&lf[251],6,"--help"); lf[252]=C_decode_literal(C_heaptop,"\376B\000\000\003\047.\012"); lf[253]=C_decode_literal(C_heaptop,"\376B\000)\204\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 wrap compiled code into implicit modul" "e\012\012 Translation options:\012\012 -x -explicit-use do not use units `" "library\047 and `eval\047 by\012 default\012 -P -chec" "k-syntax stop compilation after macro-expansion\012 -A -analyze-on" "ly stop compilation after first analysis pass\012\012 Debugging options:" "\012\012 -w -no-warnings disable warnings\012 -d0 -d1 -d2 -d3 -debug" "-level NUMBER\012 set level of available debuggin" "g information\012 -no-trace disable rudimentary debugging i" "nformation\012 -debug-info enable debug-information in compil" "ed code for use\012 with an external debugger\012 " " -profile executable emits profiling information \012 -ac" "cumulate-profile executable emits profiling information in\012 " " append mode\012 -profile-name FILENAME name of" " the generated profile information\012 file\012 " "-types FILENAME load additional type database\012\012 Optimization opt" "ions:\012\012 -O -O0 -O1 -O2 -O3 -O4 -O5 -optimize-level NUMBER\012 " " enable certain sets of optimization options\012 -optimize-leaf-r" "outines enable leaf routine optimization\012 -no-usual-integrations " " standard procedures may be redefined\012 -u -unsafe disab" "le safety checks\012 -local assume globals are only modi" "fied in current\012 file\012 -b -block " " enable block-compilation\012 -disable-interrupts disable " "interrupts in compiled code\012 -f -fixnum-arithmetic assume all number" "s are fixnums\012 -disable-stack-overflow-checks disables detection of stack-ove" "rflows\012 -inline enable inlining\012 -inline-limit LIMI" "T set inlining threshold\012 -inline-global enable cr" "oss-module inlining\012 -specialize perform type-based specia" "lization of primitive calls\012 -oi -emit-inline-file FILENAME generate file wi" "th globally inlinable\012 procedures (implies -i" "nline -local)\012 -consult-inline-file FILENAME explicitly load inline file\012 " " -ot -emit-type-file FILENAME write type-declaration information into file\012 " " -no-argc-checks disable argument count checks\012 -no-bound-chec" "ks 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-b" "indings\012 disable procedure call checks for top" "level\012 bindings\012 -strict-types " " assume variable do not change their type\012 -clustering " " combine groups of local procedures into dispatch\012 " " loop\012 -lfa2 perform additional lightweight f" "low-analysis pass\012\012 Configuration options:\012\012 -unit NAME " "compile file as a library unit\012 -uses NAME declare librar" "y unit as used.\012 -heap-size NUMBER specifies heap-size of compil" "ed executable\012 -nursery NUMBER -stack-size NUMBER\012 " " specifies nursery size of compiled\012 e" "xecutable\012 -X -extend FILENAME load file before compilation commen" "ces\012 -prelude EXPRESSION add expression to beginning of source fil" "e\012 -postlude EXPRESSION add expression to end of source file\012 -p" "rologue FILENAME 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 gene" "rate `main()\047)\012 -gui compile as GUI application\012 " " -R -require-extension NAME require extension and import in compiled\012 " " code\012 -dll -library compile mul" "tiple units into a dynamic\012 library\012 -depl" "oy deploy self-contained application bundle\012\012 Options to" " other passes:\012\012 -C OPTION pass option to C compiler\012 " " -L OPTION pass option to 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 com" "pilation to object files\012 -t stop after translati" "on to C\012 -cc COMPILER select other C compiler than the defa" "ult\012 -cxx COMPILER select other C++ compiler than the defaul" "t\012 -ld COMPILER select other linker than the default \012 -" "lLIBNAME link with given library\012 " " (`libLIBNAME\047 on UNIX,\012 `LIBNAME.l" "ib\047 on Windows)\012 -static-libs link with static CHICKEN libr" "aries\012 -static generate completely statically linked\012 " " executable\012 -F<DIR> " " pass \134\042-F<DIR>\134\042 to C compiler\012 (add framewo" "rk header path on Mac OS X)\012 -framework 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 binary\012\012 Inquiry options:\012\012 -home " " show home-directory (where support files go)\012 -cflags " " show required C-compiler flags and exit\012 -ldflags " " show required linker flags 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 defaul" "t linker used\012 -dry-run just show commands executed, do" "n\047t run them\012 (implies `-v\047)\012\012 Obscure optio" "ns:\012\012 -debug MODES display debugging output for the given m" "odes\012 -compiler PATHNAME use other compiler than default `chicken" "\047\012 -raw do not generate implicit init- and exit cod" "e\012 -emit-external-prototypes-first\012 emit pr" "ototypes for callbacks before foreign\012 declar" "ations\012 -ignore-repository do not refer to repository for extensi" "ons\012 -keep-shadowed-macros do not remove shadowed macro\012 -host " " compile for host when configured for\012 " " cross-compiling\012 -private-repository load extensio" "ns from executable path\012 -deployed link support file to " "be used from a deployed \012 executable (sets `r" "path\047 accordingly, if supported\012 on this plat" "form)\012 -no-elevation embed manifest on Windows to supress el" "evation\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 -optimize\012\012 The contents of the environm" "ent variable CSC_OPTIONS are implicitly passed to\012 every invocation of `"); lf[254]=C_decode_literal(C_heaptop,"\376B\000\000\033 FILENAME | OPTION ...\012\012 `"); lf[255]=C_decode_literal(C_heaptop,"\376B\000\000\007Usage: "); lf[256]=C_h_intern(&lf[256],8,"-release"); lf[257]=C_h_intern(&lf[257],15,"chicken-version"); lf[258]=C_h_intern(&lf[258],8,"-version"); lf[259]=C_decode_literal(C_heaptop,"\376B\000\000\011 -version"); lf[260]=C_h_intern(&lf[260],4,"-c++"); lf[261]=C_decode_literal(C_heaptop,"\376B\000\000\017-no-cpp-precomp"); lf[262]=C_h_intern(&lf[262],5,"-objc"); lf[263]=C_h_intern(&lf[263],7,"-static"); lf[264]=C_decode_literal(C_heaptop,"\376B\000\000\010-feature"); lf[265]=C_decode_literal(C_heaptop,"\376B\000\000\026chicken-compile-static"); lf[266]=C_h_intern(&lf[266],12,"-static-libs"); lf[267]=C_decode_literal(C_heaptop,"\376B\000\000\010-feature"); lf[268]=C_decode_literal(C_heaptop,"\376B\000\000\026chicken-compile-static"); lf[269]=C_h_intern(&lf[269],7,"-cflags"); lf[270]=C_h_intern(&lf[270],8,"-ldflags"); lf[271]=C_h_intern(&lf[271],8,"-cc-name"); lf[272]=C_h_intern(&lf[272],9,"-cxx-name"); lf[273]=C_h_intern(&lf[273],8,"-ld-name"); lf[274]=C_h_intern(&lf[274],5,"-home"); lf[275]=C_h_intern(&lf[275],5,"-libs"); lf[276]=C_h_intern(&lf[276],2,"-v"); lf[277]=C_h_intern(&lf[277],8,"-verbose"); lf[278]=C_decode_literal(C_heaptop,"\376B\000\000\010-verbose"); lf[279]=C_decode_literal(C_heaptop,"\376B\000\000\002-v"); lf[280]=C_decode_literal(C_heaptop,"\376B\000\000\002-v"); lf[281]=C_decode_literal(C_heaptop,"\376B\000\000\002-Q"); lf[282]=C_h_intern(&lf[282],2,"-w"); lf[283]=C_h_intern(&lf[283],12,"-no-warnings"); lf[284]=C_decode_literal(C_heaptop,"\376B\000\000\002-w"); lf[285]=C_decode_literal(C_heaptop,"\376B\000\000\014-no-warnings"); lf[286]=C_h_intern(&lf[286],2,"-A"); lf[287]=C_h_intern(&lf[287],13,"-analyze-only"); lf[288]=C_decode_literal(C_heaptop,"\376B\000\000\015-analyze-only"); lf[289]=C_h_intern(&lf[289],2,"-P"); lf[290]=C_h_intern(&lf[290],13,"-check-syntax"); lf[291]=C_decode_literal(C_heaptop,"\376B\000\000\015-check-syntax"); lf[292]=C_h_intern(&lf[292],2,"-k"); lf[293]=C_h_intern(&lf[293],2,"-c"); lf[294]=C_h_intern(&lf[294],2,"-t"); lf[295]=C_h_intern(&lf[295],2,"-e"); lf[296]=C_h_intern(&lf[296],9,"-embedded"); lf[297]=C_decode_literal(C_heaptop,"\376B\000\000\014-DC_EMBEDDED"); lf[298]=C_h_intern(&lf[298],18,"-require-extension"); lf[299]=C_h_intern(&lf[299],2,"-R"); lf[300]=C_decode_literal(C_heaptop,"\376B\000\000\022-require-extension"); lf[301]=C_h_intern(&lf[301],19,"-private-repository"); lf[302]=C_h_intern(&lf[302],13,"-no-elevation"); lf[303]=C_h_intern(&lf[303],4,"-gui"); lf[304]=C_decode_literal(C_heaptop,"\376B\000\000\007-DC_GUI"); lf[305]=C_decode_literal(C_heaptop,"\376B\000\000\012-lkernel32"); lf[306]=C_decode_literal(C_heaptop,"\376B\000\000\010-luser32"); lf[307]=C_decode_literal(C_heaptop,"\376B\000\000\007-lgdi32"); lf[308]=C_decode_literal(C_heaptop,"\376B\000\000\011-mwindows"); lf[309]=C_decode_literal(C_heaptop,"\376B\000\000\012chicken.rc"); lf[310]=C_h_intern(&lf[310],7,"-deploy"); lf[311]=C_h_intern(&lf[311],9,"-deployed"); lf[312]=C_h_intern(&lf[312],10,"-framework"); lf[313]=C_decode_literal(C_heaptop,"\376B\000\000\012-framework"); lf[314]=C_h_intern(&lf[314],2,"-o"); lf[315]=C_h_intern(&lf[315],12,"-output-file"); lf[316]=C_h_intern(&lf[316],2,"-O"); lf[317]=C_h_intern(&lf[317],3,"-O1"); lf[318]=C_decode_literal(C_heaptop,"\376B\000\000\017-optimize-level"); lf[319]=C_decode_literal(C_heaptop,"\376B\000\000\0011"); lf[320]=C_h_intern(&lf[320],3,"-O0"); lf[321]=C_decode_literal(C_heaptop,"\376B\000\000\017-optimize-level"); lf[322]=C_decode_literal(C_heaptop,"\376B\000\000\0010"); lf[323]=C_h_intern(&lf[323],3,"-O2"); lf[324]=C_decode_literal(C_heaptop,"\376B\000\000\017-optimize-level"); lf[325]=C_decode_literal(C_heaptop,"\376B\000\000\0012"); lf[326]=C_h_intern(&lf[326],3,"-O3"); lf[327]=C_decode_literal(C_heaptop,"\376B\000\000\017-optimize-level"); lf[328]=C_decode_literal(C_heaptop,"\376B\000\000\0013"); lf[329]=C_h_intern(&lf[329],3,"-O4"); lf[330]=C_decode_literal(C_heaptop,"\376B\000\000\017-optimize-level"); lf[331]=C_decode_literal(C_heaptop,"\376B\000\000\0014"); lf[332]=C_h_intern(&lf[332],3,"-O5"); lf[333]=C_decode_literal(C_heaptop,"\376B\000\000\017-optimize-level"); lf[334]=C_decode_literal(C_heaptop,"\376B\000\000\0015"); lf[335]=C_h_intern(&lf[335],3,"-d0"); lf[336]=C_decode_literal(C_heaptop,"\376B\000\000\014-debug-level"); lf[337]=C_decode_literal(C_heaptop,"\376B\000\000\0010"); lf[338]=C_h_intern(&lf[338],3,"-d1"); lf[339]=C_decode_literal(C_heaptop,"\376B\000\000\014-debug-level"); lf[340]=C_decode_literal(C_heaptop,"\376B\000\000\0011"); lf[341]=C_h_intern(&lf[341],3,"-d2"); lf[342]=C_decode_literal(C_heaptop,"\376B\000\000\014-debug-level"); lf[343]=C_decode_literal(C_heaptop,"\376B\000\000\0012"); lf[344]=C_h_intern(&lf[344],3,"-d3"); lf[345]=C_decode_literal(C_heaptop,"\376B\000\000\014-debug-level"); lf[346]=C_decode_literal(C_heaptop,"\376B\000\000\0013"); lf[347]=C_h_intern(&lf[347],8,"-dry-run"); lf[348]=C_h_intern(&lf[348],2,"-s"); lf[349]=C_h_intern(&lf[349],4,"-dll"); lf[350]=C_h_intern(&lf[350],8,"-library"); lf[351]=C_h_intern(&lf[351],9,"-compiler"); lf[352]=C_h_intern(&lf[352],3,"-cc"); lf[353]=C_h_intern(&lf[353],4,"-cxx"); lf[354]=C_h_intern(&lf[354],3,"-ld"); lf[355]=C_h_intern(&lf[355],2,"-I"); lf[356]=C_decode_literal(C_heaptop,"\376B\000\000\015-include-path"); lf[357]=C_h_intern(&lf[357],2,"-C"); lf[358]=C_h_intern(&lf[358],6,"-strip"); lf[359]=C_decode_literal(C_heaptop,"\376B\000\000\002-s"); lf[360]=C_h_intern(&lf[360],2,"-L"); lf[361]=C_h_intern(&lf[361],6,"-rpath"); lf[362]=C_decode_literal(C_heaptop,"\376B\000\000\006-Wl,-R"); lf[363]=C_h_intern(&lf[363],3,"gnu"); lf[364]=C_h_intern(&lf[364],5,"clang"); lf[365]=C_h_intern(&lf[365],14,"build-platform"); lf[366]=C_h_intern(&lf[366],5,"-host"); lf[367]=C_h_intern(&lf[367],3,"-oi"); lf[368]=C_decode_literal(C_heaptop,"\376B\000\000\021-emit-inline-file"); lf[369]=C_h_intern(&lf[369],3,"-ot"); lf[370]=C_decode_literal(C_heaptop,"\376B\000\000\017-emit-type-file"); lf[371]=C_h_intern(&lf[371],1,"-"); lf[372]=C_decode_literal(C_heaptop,"\376B\000\000\001a"); lf[373]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\001-\376\377\016"); lf[374]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002-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-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-S\376\003\000\000\002\376B\000\000\013-scrutinize\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002-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-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-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-D\376\003\000\000\002\376B\000\000\010-feature\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002-i\376\003\000\000\002\376B\000\000\021-case-insensit" "ive\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002-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-X\376\003\000\000\002\376B\000\000\007-ex" "tend\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002-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-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-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-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-n\376\003\000\000\002\376B\000\000\021-emit-inline-file\376\377\016" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002-b\376\003\000\000\002\376B\000\000\006-block\376\377\016\376\377\016"); lf[375]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\015-explicit-use\376\003\000\000\002\376\001\000\000\011-no-trace\376\003\000\000\002\376\001\000\000\014-no-warnings\376\003\000\000\002\376\001\000\000\026-no-us" "ual-integrations\376\003\000\000\002\376\001\000\000\027-optimize-leaf-routines\376\003\000\000\002\376\001\000\000\007-unsafe\376\003\000\000\002\376\001\000\000\006-blo" "ck\376\003\000\000\002\376\001\000\000\023-disable-interrupts\376\003\000\000\002\376\001\000\000\022-fixnum-arithmetic\376\003\000\000\002\376\001\000\000\012-to-stdout\376" "\003\000\000\002\376\001\000\000\010-profile\376\003\000\000\002\376\001\000\000\004-raw\376\003\000\000\002\376\001\000\000\023-accumulate-profile\376\003\000\000\002\376\001\000\000\015-check-syn" "tax\376\003\000\000\002\376\001\000\000\021-case-insensitive\376\003\000\000\002\376\001\000\000\007-shared\376\003\000\000\002\376\001\000\000\017-compile-syntax\376\003\000\000\002\376\001\000" "\000\017-no-lambda-info\376\003\000\000\002\376\001\000\000\010-dynamic\376\003\000\000\002\376\001\000\000\036-disable-stack-overflow-checks\376\003\000\000\002" "\376\001\000\000\006-local\376\003\000\000\002\376\001\000\000\037-emit-external-prototypes-first\376\003\000\000\002\376\001\000\000\007-inline\376\003\000\000\002\376\001\000\000\010-" "release\376\003\000\000\002\376\001\000\000\013-scrutinize\376\003\000\000\002\376\001\000\000\015-analyze-only\376\003\000\000\002\376\001\000\000\025-keep-shadowed-macr" "os\376\003\000\000\002\376\001\000\000\016-inline-global\376\003\000\000\002\376\001\000\000\022-ignore-repository\376\003\000\000\002\376\001\000\000\021-no-symbol-escap" "e\376\003\000\000\002\376\001\000\000\030-no-parentheses-synonyms\376\003\000\000\002\376\001\000\000\014-r5rs-syntax\376\003\000\000\002\376\001\000\000\017-no-argc-chec" "ks\376\003\000\000\002\376\001\000\000\020-no-bound-checks\376\003\000\000\002\376\001\000\000\024-no-procedure-checks\376\003\000\000\002\376\001\000\000\023-no-compiler" "-syntax\376\003\000\000\002\376\001\000\000\032-emit-all-import-libraries\376\003\000\000\002\376\001\000\000\013-setup-mode\376\003\000\000\002\376\001\000\000\015-no-el" "evation\376\003\000\000\002\376\001\000\000\027-no-module-registration\376\003\000\000\002\376\001\000\000\047-no-procedure-checks-for-usual" "-bindings\376\003\000\000\002\376\001\000\000\007-module\376\003\000\000\002\376\001\000\000\013-specialize\376\003\000\000\002\376\001\000\000\015-strict-types\376\003\000\000\002\376\001\000\000\013" "-clustering\376\003\000\000\002\376\001\000\000\005-lfa2\376\003\000\000\002\376\001\000\000\013-debug-info\376\003\000\000\002\376\001\000\000\052-no-procedure-checks-fo" "r-toplevel-bindings\376\377\016"); lf[376]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006-debug\376\003\000\000\002\376\001\000\000\012-heap-size\376\003\000\000\002\376\001\000\000\010-nursery\376\003\000\000\002\376\001\000\000\013-stack-size\376\003\000\000\002" "\376\001\000\000\011-compiler\376\003\000\000\002\376\001\000\000\005-unit\376\003\000\000\002\376\001\000\000\005-uses\376\003\000\000\002\376\001\000\000\016-keyword-style\376\003\000\000\002\376\001\000\000\017-o" "ptimize-level\376\003\000\000\002\376\001\000\000\015-include-path\376\003\000\000\002\376\001\000\000\016-database-size\376\003\000\000\002\376\001\000\000\007-extend\376\003\000" "\000\002\376\001\000\000\010-prelude\376\003\000\000\002\376\001\000\000\011-postlude\376\003\000\000\002\376\001\000\000\011-prologue\376\003\000\000\002\376\001\000\000\011-epilogue\376\003\000\000\002\376\001\000" "\000\015-inline-limit\376\003\000\000\002\376\001\000\000\015-profile-name\376\003\000\000\002\376\001\000\000\021-emit-inline-file\376\003\000\000\002\376\001\000\000\006-type" "s\376\003\000\000\002\376\001\000\000\017-emit-type-file\376\003\000\000\002\376\001\000\000\010-feature\376\003\000\000\002\376\001\000\000\014-debug-level\376\003\000\000\002\376\001\000\000\024-con" "sult-inline-file\376\003\000\000\002\376\001\000\000\024-emit-import-library\376\003\000\000\002\376\001\000\000\013-no-feature\376\377\016"); lf[377]=C_decode_literal(C_heaptop,"\376B\000\000\010-feature"); lf[378]=C_h_intern(&lf[378],9,"substring"); lf[379]=C_decode_literal(C_heaptop,"\376B\000\000\001-"); lf[380]=C_decode_literal(C_heaptop,"\376B\000\000\023invalid option `~A\047"); lf[381]=C_h_intern(&lf[381],15,"lset-difference"); lf[382]=C_h_intern(&lf[382],6,"char=\077"); lf[383]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\012\000\000P\376\003\000\000\002\376\377\012\000\000H\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\000f\376\003\000\000\002\376\377\012\000\000i\376\003\000\000\002\376\377\012\000\000E\376\003\000" "\000\002\376\377\012\000\000N\376\003\000\000\002\376\377\012\000\000x\376\003\000\000\002\376\377\012\000\000u\376\003\000\000\002\376\377\012\000\000b\376\003\000\000\002\376\377\012\000\000v\376\003\000\000\002\376\377\012\000\000w\376\003\000\000\002\376\377\012\000\000A\376\003\000\000\002\376" "\377\012\000\000O\376\003\000\000\002\376\377\012\000\000e\376\003\000\000\002\376\377\012\000\000W\376\003\000\000\002\376\377\012\000\000k\376\003\000\000\002\376\377\012\000\000c\376\003\000\000\002\376\377\012\000\000t\376\003\000\000\002\376\377\012\000\000g\376\003\000\000\002\376\377\012\000" "\000S\376\003\000\000\002\376\377\012\000\000J\376\003\000\000\002\376\377\012\000\000M\376\377\016"); lf[384]=C_decode_literal(C_heaptop,"\376B\000\000\023invalid option `~A\047"); lf[385]=C_decode_literal(C_heaptop,"\376B\000\000\004-Wl,"); lf[386]=C_h_intern(&lf[386],18,"decompose-pathname"); lf[387]=C_decode_literal(C_heaptop,"\376B\000\000\001h"); lf[388]=C_decode_literal(C_heaptop,"\376B\000\000\001c"); lf[389]=C_decode_literal(C_heaptop,"\376B\000\000\002rc"); lf[390]=C_decode_literal(C_heaptop,"\376B\000\000\003cpp"); lf[391]=C_decode_literal(C_heaptop,"\376B\000\000\001C"); lf[392]=C_decode_literal(C_heaptop,"\376B\000\000\002cc"); lf[393]=C_decode_literal(C_heaptop,"\376B\000\000\003cxx"); lf[394]=C_decode_literal(C_heaptop,"\376B\000\000\003hpp"); lf[395]=C_decode_literal(C_heaptop,"\376B\000\000\017-no-cpp-precomp"); lf[396]=C_decode_literal(C_heaptop,"\376B\000\000\001m"); lf[397]=C_decode_literal(C_heaptop,"\376B\000\000\001M"); lf[398]=C_decode_literal(C_heaptop,"\376B\000\000\002mm"); lf[399]=C_decode_literal(C_heaptop,"\376B\000\000\030file `~A\047 does not exist"); lf[400]=C_decode_literal(C_heaptop,"\376B\000\000\004.scm"); lf[401]=C_decode_literal(C_heaptop,"\376B\000\000\002-:"); lf[402]=C_h_intern(&lf[402],15,"-optimize-level"); lf[403]=C_h_intern(&lf[403],15,"-benchmark-mode"); lf[404]=C_h_intern(&lf[404],10,"-to-stdout"); lf[405]=C_h_intern(&lf[405],7,"-shared"); lf[406]=C_h_intern(&lf[406],8,"-dynamic"); lf[407]=C_h_intern(&lf[407],14,"string->symbol"); lf[408]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[409]=C_decode_literal(C_heaptop,"\376B\000\000\013CSC_OPTIONS"); lf[410]=C_decode_literal(C_heaptop,"\376B\000\000\003lib"); lf[411]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[412]=C_decode_literal(C_heaptop,"\376B\000\000\002-I"); lf[413]=C_decode_literal(C_heaptop,"\376B\000\000\002:;"); lf[414]=C_decode_literal(C_heaptop,"\376B\000\000\026CHICKEN_C_INCLUDE_PATH"); lf[415]=C_decode_literal(C_heaptop,"\376B\000\000\002-I"); lf[416]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[417]=C_decode_literal(C_heaptop,"\376B\000\000\007include"); lf[418]=C_decode_literal(C_heaptop,"\376B\000\000\007chicken"); lf[419]=C_decode_literal(C_heaptop,"\376B\000\000\002-l"); lf[420]=C_decode_literal(C_heaptop,"\376B\000\000\003lib"); lf[421]=C_decode_literal(C_heaptop,"\376B\000\000\001/"); lf[422]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[423]=C_decode_literal(C_heaptop,"\376B\000\000\003cyg"); lf[424]=C_decode_literal(C_heaptop,"\376B\000\000\002-0"); lf[425]=C_decode_literal(C_heaptop,"\376B\000\000\003lib"); lf[426]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\005-DPIC\376\377\016"); lf[427]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\005-fPIC\376\003\000\000\002\376B\000\000\005-DPIC\376\377\016"); lf[428]=C_decode_literal(C_heaptop,"\376B\000\000\003bin"); lf[429]=C_decode_literal(C_heaptop,"\376B\000\000\007chicken"); lf[430]=C_decode_literal(C_heaptop,"\376B\000\000\005share"); lf[431]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[432]=C_h_intern(&lf[432],22,"command-line-arguments"); lf[433]=C_decode_literal(C_heaptop,"\376B\000\000\016CHICKEN_PREFIX"); C_register_lf2(lf,434,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1444,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k3814 in for-each-loop504 in k2147 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3816,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3806(t3,((C_word*)t0)[4],t2);} /* k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in ... */ static void C_ccall f_1641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1641,2,av);} a=C_alloc(9); t2=C_mutate2(&lf[49] /* (set! default-compilation-optimization-options ...) */,t1); t3=C_mutate2(&lf[50] /* (set! best-compilation-optimization-options ...) */,C_retrieve2(lf[49],"default-compilation-optimization-options")); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1646,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5246,a[2]=t4,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[22],"host-mode"))){ /* ##sys#peek-c-string */ t6=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in ... */ 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 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_1646,2,av);} a=C_alloc(9); t2=C_mutate2(&lf[51] /* (set! default-linking-optimization-options ...) */,t1); t3=C_mutate2(&lf[52] /* (set! best-linking-optimization-options ...) */,C_retrieve2(lf[51],"default-linking-optimization-options")); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1651,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[22],"host-mode"))){ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_END_OF_LIST; f_1651(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5242,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k4263 in k4240 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 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 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_4265,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4269,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_4273,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_retrieve2(lf[46],"libchicken"); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[116]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[116]+1); av2[1]=t4; av2[2]=C_retrieve2(lf[46],"libchicken"); av2[3]=lf[184]; tp(4,av2);}} /* k4267 in k4263 in k4240 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_4269,2,av);} /* csc.scm:947: string-append */ t2=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[180]; av2[4]=C_retrieve2(lf[46],"libchicken"); av2[5]=lf[181]; av2[6]=t1; av2[7]=lf[182]; av2[8]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} /* k4259 in k4240 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4261,2,av);} /* csc.scm:946: command */ f_4845(((C_word*)t0)[2],t1);} /* k5278 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in ... */ static void C_ccall f_5280(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5280,2,av);} /* csc.scm:117: quotewrap */ t2=C_retrieve2(lf[24],"quotewrap");{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_1562(3,av2);}} /* k4493 in k4224 in k4204 in k4166 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 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 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_4495,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_4501,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k5254 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5256,2,av);} /* csc.scm:138: string-split */ t2=C_fast_retrieve(lf[233]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5162 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in ... */ static void C_ccall f_5164(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_5164,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_5054(t2,C_a_i_list1(&a,1,t1));} /* k4284 in k4271 in k4263 in k4240 in k4163 in k4160 in k4157 in k4154 in k2014 in k2008 in k2002 in k1999 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4286,2,av);} /* csc.scm:953: make-pathname */ t2=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5267 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in k5354 in k5358 in k5362 in k5366 in k1472 in k1469 in k1466 in k1463 in k1460 in ... */ static void C_ccall f_5269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5269,2,av);} /* csc.scm:132: string-append */ t2=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[423]; av2[3]=t1; av2[4]=lf[424]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5177 in k5173 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 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 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_5179,2,av);} a=C_alloc(6); if(C_truep(C_retrieve2(lf[19],"chicken-prefix"))){ t2=C_a_i_list2(&a,2,C_retrieve2(lf[19],"chicken-prefix"),((C_word*)t0)[2]); /* csc.scm:89: make-pathname */ t3=C_fast_retrieve(lf[106]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=lf[416]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; f_1700(2,av2);}}} /* k5173 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1528 in k1524 in k1494 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_5175,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5179,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[22],"host-mode"))){ /* ##sys#peek-c-string */ t4=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} else{ /* ##sys#peek-c-string */ t4=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_INCLUDE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* for-each-loop504 in k2147 in k2144 in k1996 in k1993 in k1989 in loop in k5027 in k1714 in k1706 in k1698 in k5187 in k5201 in k1683 in k1679 in k1649 in k1644 in k1639 in k1635 in k1631 in k1627 in k1622 in ... */ static void C_fcall f_3806(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_3806,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_3816,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[54],"scheme-files")); t8=C_eqp(C_fix(1),t7); t9=(C_truep(t8)?C_retrieve2(lf[89],"target-filename"):t6); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3667,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[61],"cpp-mode"))){ /* csc.scm:829: pathname-replace-extension */ t11=C_fast_retrieve(lf[208]);{ C_word av2[4]; av2[0]=t11; av2[1]=t10; av2[2]=t9; av2[3]=lf[226]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ if(C_truep(C_retrieve2(lf[62],"objc-mode"))){ /* csc.scm:829: pathname-replace-extension */ t11=C_fast_retrieve(lf[208]);{ C_word av2[4]; av2[0]=t11; av2[1]=t10; av2[2]=t9; av2[3]=lf[227]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ /* csc.scm:829: pathname-replace-extension */ t11=C_fast_retrieve(lf[208]);{ C_word av2[4]; av2[0]=t11; av2[1]=t10; av2[2]=t9; av2[3]=lf[228]; ((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);}}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[441] = { {"f_4273:csc_2escm",(void*)f_4273}, {"f_4276:csc_2escm",(void*)f_4276}, {"f_5189:csc_2escm",(void*)f_5189}, {"f_2875:csc_2escm",(void*)f_2875}, {"f_2277:csc_2escm",(void*)f_2277}, {"f_2871:csc_2escm",(void*)f_2871}, {"f_2381:csc_2escm",(void*)f_2381}, {"f_4733:csc_2escm",(void*)f_4733}, {"f_5193:csc_2escm",(void*)f_5193}, {"f_2242:csc_2escm",(void*)f_2242}, {"f_4725:csc_2escm",(void*)f_4725}, {"f_4298:csc_2escm",(void*)f_4298}, {"f_2897:csc_2escm",(void*)f_2897}, {"f_5122:csc_2escm",(void*)f_5122}, {"f_2230:csc_2escm",(void*)f_2230}, {"f_4483:csc_2escm",(void*)f_4483}, {"f_2883:csc_2escm",(void*)f_2883}, {"f_2630:csc_2escm",(void*)f_2630}, {"f_2261:csc_2escm",(void*)f_2261}, {"f_4475:csc_2escm",(void*)f_4475}, {"f_5147:csc_2escm",(void*)f_5147}, {"f_2603:csc_2escm",(void*)f_2603}, {"f_2614:csc_2escm",(void*)f_2614}, {"f_2254:csc_2escm",(void*)f_2254}, {"f_3923:csc_2escm",(void*)f_3923}, {"f_3972:csc_2escm",(void*)f_3972}, {"f_3941:csc_2escm",(void*)f_3941}, {"f_3777:csc_2escm",(void*)f_3777}, {"f_3945:csc_2escm",(void*)f_3945}, {"f_4633:csc_2escm",(void*)f_4633}, {"f_3911:csc_2escm",(void*)f_3911}, {"f_4635:csc_2escm",(void*)f_4635}, {"f6092:csc_2escm",(void*)f6092}, {"f6097:csc_2escm",(void*)f6097}, {"f_3931:csc_2escm",(void*)f_3931}, {"f_4010:csc_2escm",(void*)f_4010}, {"f_4718:csc_2escm",(void*)f_4718}, {"f_4012:csc_2escm",(void*)f_4012}, {"f_3935:csc_2escm",(void*)f_3935}, {"f_4540:csc_2escm",(void*)f_4540}, {"f_4713:csc_2escm",(void*)f_4713}, {"f_3904:csc_2escm",(void*)f_3904}, {"f_3908:csc_2escm",(void*)f_3908}, {"f_2118:csc_2escm",(void*)f_2118}, {"f_4536:csc_2escm",(void*)f_4536}, {"f_3903:csc_2escm",(void*)f_3903}, {"f_3900:csc_2escm",(void*)f_3900}, {"f_2111:csc_2escm",(void*)f_2111}, {"f_2001:csc_2escm",(void*)f_2001}, {"f_2004:csc_2escm",(void*)f_2004}, {"f_2270:csc_2escm",(void*)f_2270}, {"f_4529:csc_2escm",(void*)f_4529}, {"f_2016:csc_2escm",(void*)f_2016}, {"f_2010:csc_2escm",(void*)f_2010}, {"f_4501:csc_2escm",(void*)f_4501}, {"f_2108:csc_2escm",(void*)f_2108}, {"f6072:csc_2escm",(void*)f6072}, {"f6028:csc_2escm",(void*)f6028}, {"f6020:csc_2escm",(void*)f6020}, {"f6024:csc_2escm",(void*)f6024}, {"f_4073:csc_2escm",(void*)f_4073}, {"f_2575:csc_2escm",(void*)f_2575}, {"f_2579:csc_2escm",(void*)f_2579}, {"f_2571:csc_2escm",(void*)f_2571}, {"f_4063:csc_2escm",(void*)f_4063}, {"f_4061:csc_2escm",(void*)f_4061}, {"f_4097:csc_2escm",(void*)f_4097}, {"f_3873:csc_2escm",(void*)f_3873}, {"f_3238:csc_2escm",(void*)f_3238}, {"f_4086:csc_2escm",(void*)f_4086}, {"f_3236:csc_2escm",(void*)f_3236}, {"f_3877:csc_2escm",(void*)f_3877}, {"f_4039:csc_2escm",(void*)f_4039}, {"f_4036:csc_2escm",(void*)f_4036}, {"f_3298:csc_2escm",(void*)f_3298}, {"f_3853:csc_2escm",(void*)f_3853}, {"f6054:csc_2escm",(void*)f6054}, {"f6050:csc_2escm",(void*)f6050}, {"f_1596:csc_2escm",(void*)f_1596}, {"f_3888:csc_2escm",(void*)f_3888}, {"f_1592:csc_2escm",(void*)f_1592}, {"f_2319:csc_2escm",(void*)f_2319}, {"f_4022:csc_2escm",(void*)f_4022}, {"f_3865:csc_2escm",(void*)f_3865}, {"f_1844:csc_2escm",(void*)f_1844}, {"f_1584:csc_2escm",(void*)f_1584}, {"f_1588:csc_2escm",(void*)f_1588}, {"f_4054:csc_2escm",(void*)f_4054}, {"f_4042:csc_2escm",(void*)f_4042}, {"f_3277:csc_2escm",(void*)f_3277}, {"f_3281:csc_2escm",(void*)f_3281}, {"f6108:csc_2escm",(void*)f6108}, {"f_5001:csc_2escm",(void*)f_5001}, {"f_1874:csc_2escm",(void*)f_1874}, {"f_4859:csc_2escm",(void*)f_4859}, {"f_5019:csc_2escm",(void*)f_5019}, {"f_1828:csc_2escm",(void*)f_1828}, {"f_1824:csc_2escm",(void*)f_1824}, {"f_4845:csc_2escm",(void*)f_4845}, {"f_1515:csc_2escm",(void*)f_1515}, {"f_1817:csc_2escm",(void*)f_1817}, {"f_1512:csc_2escm",(void*)f_1512}, {"f_1813:csc_2escm",(void*)f_1813}, {"f_1506:csc_2escm",(void*)f_1506}, {"f_4861:csc_2escm",(void*)f_4861}, {"f_4865:csc_2escm",(void*)f_4865}, {"f_1509:csc_2escm",(void*)f_1509}, {"f_1530:csc_2escm",(void*)f_1530}, {"f_3010:csc_2escm",(void*)f_3010}, {"f_3995:csc_2escm",(void*)f_3995}, {"f_1526:csc_2escm",(void*)f_1526}, {"f_1522:csc_2escm",(void*)f_1522}, {"f_3962:csc_2escm",(void*)f_3962}, {"f_3346:csc_2escm",(void*)f_3346}, {"f_3013:csc_2escm",(void*)f_3013}, {"f6032:csc_2escm",(void*)f6032}, {"f_1801:csc_2escm",(void*)f_1801}, {"f_2731:csc_2escm",(void*)f_2731}, {"f_1809:csc_2escm",(void*)f_1809}, {"f_3985:csc_2escm",(void*)f_3985}, {"f_5088:csc_2escm",(void*)f_5088}, {"f_5080:csc_2escm",(void*)f_5080}, {"f_4318:csc_2escm",(void*)f_4318}, {"f_3263:csc_2escm",(void*)f_3263}, {"f_4310:csc_2escm",(void*)f_4310}, {"f_3360:csc_2escm",(void*)f_3360}, {"f_3954:csc_2escm",(void*)f_3954}, {"f_4346:csc_2escm",(void*)f_4346}, {"f_4342:csc_2escm",(void*)f_4342}, {"f_3373:csc_2escm",(void*)f_3373}, {"f_3378:csc_2escm",(void*)f_3378}, {"f_2711:csc_2escm",(void*)f_2711}, {"f_5061:csc_2escm",(void*)f_5061}, {"f_4375:csc_2escm",(void*)f_4375}, {"f_1949:csc_2escm",(void*)f_1949}, {"f_1945:csc_2escm",(void*)f_1945}, {"f_2741:csc_2escm",(void*)f_2741}, {"f_1940:csc_2escm",(void*)f_1940}, {"f_5077:csc_2escm",(void*)f_5077}, {"f_2308:csc_2escm",(void*)f_2308}, {"f_4326:csc_2escm",(void*)f_4326}, {"f_4322:csc_2escm",(void*)f_4322}, {"f_4582:csc_2escm",(void*)f_4582}, {"f_4585:csc_2escm",(void*)f_4585}, {"f_5044:csc_2escm",(void*)f_5044}, {"f_4573:csc_2escm",(void*)f_4573}, {"f_4576:csc_2escm",(void*)f_4576}, {"f_4579:csc_2escm",(void*)f_4579}, {"f_4890:csc_2escm",(void*)f_4890}, {"f_4570:csc_2escm",(void*)f_4570}, {"f_4899:csc_2escm",(void*)f_4899}, {"f_4896:csc_2escm",(void*)f_4896}, {"f_4893:csc_2escm",(void*)f_4893}, {"f_2721:csc_2escm",(void*)f_2721}, {"f_5058:csc_2escm",(void*)f_5058}, {"f_5054:csc_2escm",(void*)f_5054}, {"f_4564:csc_2escm",(void*)f_4564}, {"f_1914:csc_2escm",(void*)f_1914}, {"f_1912:csc_2escm",(void*)f_1912}, {"f_4884:csc_2escm",(void*)f_4884}, {"f_5029:csc_2escm",(void*)f_5029}, {"f_4302:csc_2escm",(void*)f_4302}, {"f_5025:csc_2escm",(void*)f_5025}, {"f_4338:csc_2escm",(void*)f_4338}, {"f_5022:csc_2escm",(void*)f_5022}, {"f_4335:csc_2escm",(void*)f_4335}, {"f_4331:csc_2escm",(void*)f_4331}, {"f_4554:csc_2escm",(void*)f_4554}, {"f_4556:csc_2escm",(void*)f_4556}, {"f_1907:csc_2escm",(void*)f_1907}, {"f_5037:csc_2escm",(void*)f_5037}, {"f_5033:csc_2escm",(void*)f_5033}, {"f_3081:csc_2escm",(void*)f_3081}, {"f_3051:csc_2escm",(void*)f_3051}, {"f_3219:csc_2escm",(void*)f_3219}, {"f_3109:csc_2escm",(void*)f_3109}, {"f_3100:csc_2escm",(void*)f_3100}, {"f_3031:csc_2escm",(void*)f_3031}, {"f_3397:csc_2escm",(void*)f_3397}, {"f_4103:csc_2escm",(void*)f_4103}, {"f_4105:csc_2escm",(void*)f_4105}, {"f_3044:csc_2escm",(void*)f_3044}, {"f_3041:csc_2escm",(void*)f_3041}, {"f_3038:csc_2escm",(void*)f_3038}, {"f_1867:csc_2escm",(void*)f_1867}, {"f_2661:csc_2escm",(void*)f_2661}, {"f_4837:csc_2escm",(void*)f_4837}, {"f_1851:csc_2escm",(void*)f_1851}, {"f_3466:csc_2escm",(void*)f_3466}, {"f_4829:csc_2escm",(void*)f_4829}, {"f_2691:csc_2escm",(void*)f_2691}, {"f_4825:csc_2escm",(void*)f_4825}, {"f_2216:csc_2escm",(void*)f_2216}, {"f_2681:csc_2escm",(void*)f_2681}, {"f_2227:csc_2escm",(void*)f_2227}, {"f_2220:csc_2escm",(void*)f_2220}, {"f_4643:csc_2escm",(void*)f_4643}, {"f_4647:csc_2escm",(void*)f_4647}, {"f_2949:csc_2escm",(void*)f_2949}, {"f_2209:csc_2escm",(void*)f_2209}, {"f_2935:csc_2escm",(void*)f_2935}, {"f_2202:csc_2escm",(void*)f_2202}, {"f_2651:csc_2escm",(void*)f_2651}, {"f_2922:csc_2escm",(void*)f_2922}, {"f_4182:csc_2escm",(void*)f_4182}, {"f_3321:csc_2escm",(void*)f_3321}, {"f_2914:csc_2escm",(void*)f_2914}, {"f_2910:csc_2escm",(void*)f_2910}, {"f_4680:csc_2escm",(void*)f_4680}, {"f_4688:csc_2escm",(void*)f_4688}, {"f_4684:csc_2escm",(void*)f_4684}, {"f_3090:csc_2escm",(void*)f_3090}, {"f_2671:csc_2escm",(void*)f_2671}, {"f_4171:csc_2escm",(void*)f_4171}, {"f_3332:csc_2escm",(void*)f_3332}, {"f_4670:csc_2escm",(void*)f_4670}, {"f_4168:csc_2escm",(void*)f_4168}, {"f_4165:csc_2escm",(void*)f_4165}, {"f_4162:csc_2escm",(void*)f_4162}, {"f_2965:csc_2escm",(void*)f_2965}, {"f_2961:csc_2escm",(void*)f_2961}, {"f_4690:csc_2escm",(void*)f_4690}, {"f_3192:csc_2escm",(void*)f_3192}, {"f_3196:csc_2escm",(void*)f_3196}, {"f_2953:csc_2escm",(void*)f_2953}, {"f_4395:csc_2escm",(void*)f_4395}, {"f_1570:csc_2escm",(void*)f_1570}, {"f_1574:csc_2escm",(void*)f_1574}, {"f_1576:csc_2escm",(void*)f_1576}, {"f_2407:csc_2escm",(void*)f_2407}, {"f_2404:csc_2escm",(void*)f_2404}, {"f_3168:csc_2escm",(void*)f_3168}, {"f_1738:csc_2escm",(void*)f_1738}, {"f_1735:csc_2escm",(void*)f_1735}, {"f_4130:csc_2escm",(void*)f_4130}, {"f_1731:csc_2escm",(void*)f_1731}, {"f_2799:csc_2escm",(void*)f_2799}, {"f_1562:csc_2escm",(void*)f_1562}, {"f_2419:csc_2escm",(void*)f_2419}, {"f_3135:csc_2escm",(void*)f_3135}, {"f_2149:csc_2escm",(void*)f_2149}, {"f_2146:csc_2escm",(void*)f_2146}, {"f_1685:csc_2escm",(void*)f_1685}, {"f_1681:csc_2escm",(void*)f_1681}, {"f_4192:csc_2escm",(void*)f_4192}, {"f_3150:csc_2escm",(void*)f_3150}, {"f_4352:csc_2escm",(void*)f_4352}, {"f_4355:csc_2escm",(void*)f_4355}, {"f_1700:csc_2escm",(void*)f_1700}, {"f_2993:csc_2escm",(void*)f_2993}, {"f_1708:csc_2escm",(void*)f_1708}, {"f_2990:csc_2escm",(void*)f_2990}, {"f_1963:csc_2escm",(void*)f_1963}, {"f_4941:csc_2escm",(void*)f_4941}, {"f_4944:csc_2escm",(void*)f_4944}, {"f_4385:csc_2escm",(void*)f_4385}, {"f_4949:csc_2escm",(void*)f_4949}, {"f_4388:csc_2escm",(void*)f_4388}, {"f_2192:csc_2escm",(void*)f_2192}, {"f_1995:csc_2escm",(void*)f_1995}, {"f_1991:csc_2escm",(void*)f_1991}, {"f_2758:csc_2escm",(void*)f_2758}, {"f_1998:csc_2escm",(void*)f_1998}, {"f_2186:csc_2escm",(void*)f_2186}, {"f_2189:csc_2escm",(void*)f_2189}, {"f_2701:csc_2escm",(void*)f_2701}, {"f_2183:csc_2escm",(void*)f_2183}, {"f_2519:csc_2escm",(void*)f_2519}, {"f_2516:csc_2escm",(void*)f_2516}, {"f_1727:csc_2escm",(void*)f_1727}, {"f_2512:csc_2escm",(void*)f_2512}, {"f_1980:csc_2escm",(void*)f_1980}, {"f_2782:csc_2escm",(void*)f_2782}, {"f_4365:csc_2escm",(void*)f_4365}, {"f_4156:csc_2escm",(void*)f_4156}, {"f_4159:csc_2escm",(void*)f_4159}, {"f_1716:csc_2escm",(void*)f_1716}, {"f_4993:csc_2escm",(void*)f_4993}, {"f_1612:csc_2escm",(void*)f_1612}, {"f_4975:csc_2escm",(void*)f_4975}, {"f_1608:csc_2escm",(void*)f_1608}, {"f_3182:csc_2escm",(void*)f_3182}, {"f_1604:csc_2escm",(void*)f_1604}, {"f_1600:csc_2escm",(void*)f_1600}, {"f_5246:csc_2escm",(void*)f_5246}, {"f_5242:csc_2escm",(void*)f_5242}, {"f_3315:csc_2escm",(void*)f_3315}, {"f_3310:csc_2escm",(void*)f_3310}, {"f_3430:csc_2escm",(void*)f_3430}, {"f_1637:csc_2escm",(void*)f_1637}, {"f_1633:csc_2escm",(void*)f_1633}, {"f_5215:csc_2escm",(void*)f_5215}, {"f_5211:csc_2escm",(void*)f_5211}, {"f_4957:csc_2escm",(void*)f_4957}, {"f_3421:csc_2escm",(void*)f_3421}, {"f_1629:csc_2escm",(void*)f_1629}, {"f_1624:csc_2escm",(void*)f_1624}, {"f_5300:csc_2escm",(void*)f_5300}, {"f_3436:csc_2escm",(void*)f_3436}, {"f_5273:csc_2escm",(void*)f_5273}, {"f_2833:csc_2escm",(void*)f_2833}, {"f_3667:csc_2escm",(void*)f_3667}, {"f_5203:csc_2escm",(void*)f_5203}, {"f_5207:csc_2escm",(void*)f_5207}, {"f_4902:csc_2escm",(void*)f_4902}, {"f_4419:csc_2escm",(void*)f_4419}, {"f_5320:csc_2escm",(void*)f_5320}, {"f_4415:csc_2escm",(void*)f_4415}, {"f_4411:csc_2escm",(void*)f_4411}, {"f_2854:csc_2escm",(void*)f_2854}, {"f_2850:csc_2escm",(void*)f_2850}, {"f_5338:csc_2escm",(void*)f_5338}, {"f_5334:csc_2escm",(void*)f_5334}, {"f_2078:csc_2escm",(void*)f_2078}, {"f_3697:csc_2escm",(void*)f_3697}, {"f_5330:csc_2escm",(void*)f_5330}, {"f_4441:csc_2escm",(void*)f_4441}, {"f_2071:csc_2escm",(void*)f_2071}, {"f_4906:csc_2escm",(void*)f_4906}, {"f_4982:csc_2escm",(void*)f_4982}, {"f_2156:csc_2escm",(void*)f_2156}, {"f_4988:csc_2escm",(void*)f_4988}, {"f_3693:csc_2escm",(void*)f_3693}, {"f_2068:csc_2escm",(void*)f_2068}, {"f_5346:csc_2escm",(void*)f_5346}, {"f_2065:csc_2escm",(void*)f_2065}, {"f_5342:csc_2escm",(void*)f_5342}, {"f_4439:csc_2escm",(void*)f_4439}, {"f_4435:csc_2escm",(void*)f_4435}, {"f_4431:csc_2escm",(void*)f_4431}, {"f_2062:csc_2escm",(void*)f_2062}, {"f_4466:csc_2escm",(void*)f_4466}, {"f_3673:csc_2escm",(void*)f_3673}, {"f_3670:csc_2escm",(void*)f_3670}, {"f_3677:csc_2escm",(void*)f_3677}, {"f_5368:csc_2escm",(void*)f_5368}, {"f_5360:csc_2escm",(void*)f_5360}, {"f_5364:csc_2escm",(void*)f_5364}, {"f_2082:csc_2escm",(void*)f_2082}, {"f_4401:csc_2escm",(void*)f_4401}, {"f_4404:csc_2escm",(void*)f_4404}, {"f_4407:csc_2escm",(void*)f_4407}, {"f_2816:csc_2escm",(void*)f_2816}, {"f_3681:csc_2escm",(void*)f_3681}, {"f_2037:csc_2escm",(void*)f_2037}, {"f_2034:csc_2escm",(void*)f_2034}, {"f_2031:csc_2escm",(void*)f_2031}, {"f_3720:csc_2escm",(void*)f_3720}, {"f_4605:csc_2escm",(void*)f_4605}, {"f_3728:csc_2escm",(void*)f_3728}, {"f_3726:csc_2escm",(void*)f_3726}, {"f_2059:csc_2escm",(void*)f_2059}, {"f_3409:csc_2escm",(void*)f_3409}, {"f_2056:csc_2escm",(void*)f_2056}, {"f_4428:csc_2escm",(void*)f_4428}, {"f_5310:csc_2escm",(void*)f_5310}, {"f_4425:csc_2escm",(void*)f_4425}, {"f_2050:csc_2escm",(void*)f_2050}, {"f_1444:csc_2escm",(void*)f_1444}, {"f_1447:csc_2escm",(void*)f_1447}, {"f_4620:csc_2escm",(void*)f_4620}, {"f_2043:csc_2escm",(void*)f_2043}, {"f_3413:csc_2escm",(void*)f_3413}, {"f_2040:csc_2escm",(void*)f_2040}, {"f_4613:csc_2escm",(void*)f_4613}, {"f_3753:csc_2escm",(void*)f_3753}, {"f_1462:csc_2escm",(void*)f_1462}, {"f_1465:csc_2escm",(void*)f_1465}, {"f_1468:csc_2escm",(void*)f_1468}, {"f_1450:csc_2escm",(void*)f_1450}, {"f_1453:csc_2escm",(void*)f_1453}, {"f_1456:csc_2escm",(void*)f_1456}, {"f_1459:csc_2escm",(void*)f_1459}, {"f_5356:csc_2escm",(void*)f_5356}, {"f_3705:csc_2escm",(void*)f_3705}, {"f_1756:csc_2escm",(void*)f_1756}, {"f_3709:csc_2escm",(void*)f_3709}, {"f_1751:csc_2escm",(void*)f_1751}, {"f_3701:csc_2escm",(void*)f_3701}, {"f_1471:csc_2escm",(void*)f_1471}, {"f_1474:csc_2escm",(void*)f_1474}, {"f_1781:csc_2escm",(void*)f_1781}, {"f_2357:csc_2escm",(void*)f_2357}, {"f_4932:csc_2escm",(void*)f_4932}, {"f_1496:csc_2escm",(void*)f_1496}, {"f_4803:csc_2escm",(void*)f_4803}, {"f_1499:csc_2escm",(void*)f_1499}, {"f_4800:csc_2escm",(void*)f_4800}, {"f_2345:csc_2escm",(void*)f_2345}, {"f_4809:csc_2escm",(void*)f_4809}, {"f_4806:csc_2escm",(void*)f_4806}, {"f_4923:csc_2escm",(void*)f_4923}, {"f_4780:csc_2escm",(void*)f_4780}, {"f_4920:csc_2escm",(void*)f_4920}, {"f_4783:csc_2escm",(void*)f_4783}, {"f_4935:csc_2escm",(void*)f_4935}, {"f_4938:csc_2escm",(void*)f_4938}, {"f_2028:csc_2escm",(void*)f_2028}, {"f_4914:csc_2escm",(void*)f_4914}, {"f_4910:csc_2escm",(void*)f_4910}, {"f_4777:csc_2escm",(void*)f_4777}, {"f_4774:csc_2escm",(void*)f_4774}, {"f_4929:csc_2escm",(void*)f_4929}, {"f_4926:csc_2escm",(void*)f_4926}, {"f_4763:csc_2escm",(void*)f_4763}, {"f_4206:csc_2escm",(void*)f_4206}, {"f_4209:csc_2escm",(void*)f_4209}, {"f_4751:csc_2escm",(void*)f_4751}, {"f_4226:csc_2escm",(void*)f_4226}, {"f_4222:csc_2escm",(void*)f_4222}, {"f_4740:csc_2escm",(void*)f_4740}, {"f_4746:csc_2escm",(void*)f_4746}, {"f_3831:csc_2escm",(void*)f_3831}, {"f_5113:csc_2escm",(void*)f_5113}, {"f_3869:csc_2escm",(void*)f_3869}, {"f_3841:csc_2escm",(void*)f_3841}, {"f_5290:csc_2escm",(void*)f_5290}, {"f_2369:csc_2escm",(void*)f_2369}, {"f_3835:csc_2escm",(void*)f_3835}, {"f_3838:csc_2escm",(void*)f_3838}, {"f_4245:csc_2escm",(void*)f_4245}, {"f_4242:csc_2escm",(void*)f_4242}, {"f_3120:csc_2escm",(void*)f_3120}, {"f_1651:csc_2escm",(void*)f_1651}, {"toplevel:csc_2escm",(void*)C_toplevel}, {"f_3816:csc_2escm",(void*)f_3816}, {"f_1641:csc_2escm",(void*)f_1641}, {"f_1646:csc_2escm",(void*)f_1646}, {"f_4265:csc_2escm",(void*)f_4265}, {"f_4269:csc_2escm",(void*)f_4269}, {"f_4261:csc_2escm",(void*)f_4261}, {"f_5280:csc_2escm",(void*)f_5280}, {"f_4495:csc_2escm",(void*)f_4495}, {"f_5256:csc_2escm",(void*)f_5256}, {"f_5164:csc_2escm",(void*)f_5164}, {"f_4286:csc_2escm",(void*)f_4286}, {"f_5269:csc_2escm",(void*)f_5269}, {"f_5179:csc_2escm",(void*)f_5179}, {"f_5175:csc_2escm",(void*)f_5175}, {"f_3806:csc_2escm",(void*)f_3806}, {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| for-each 6 S| sprintf 5 S| printf 2 S| map 7 S| fprintf 1 o|eliminated procedure checks: 108 o|specializations: o| 2 (zero? fixnum) o| 1 (= fixnum fixnum) o| 6 (char=? char char) o| 6 (string-ref string fixnum) o| 4 (string=? string string) o| 4 (> fixnum fixnum) o| 4 (string-length string) o| 68 (eqv? (not float) *) o| 4 (cdr pair) o| 3 (##sys#check-list (or pair list) *) o| 8 (string-append string string) o| 8 (##sys#check-output-port * * *) o| 1 (current-error-port) o| 4 (memq * list) (o e)|safe calls: 547 (o e)|assignments to immediate values: 20 o|safe globals: (windows-shell) o|Removed `not' forms: 5 o|substituted constant variable: a1497 o|merged explicitly consed rest parameter: args8 o|propagated global variable: out913 ##sys#standard-error o|substituted constant variable: a1502 o|substituted constant variable: a1503 o|inlining procedure: k1542 o|inlining procedure: k1542 o|contracted procedure: "(csc.scm:98) back-slash->forward-slash" o|inlining procedure: k1555 o|inlining procedure: k1555 o|substituted constant variable: default-translation-optimization-options o|inlining procedure: k4107 o|inlining procedure: k4107 o|inlining procedure: k4139 o|inlining procedure: k4139 o|substituted constant variable: nonstatic-compilation-options o|propagated global variable: r41405377 nonstatic-compilation-options o|propagated global variable: tmp672674 static o|propagated global variable: tmp672674 static o|inlining procedure: k4481 o|inlining procedure: k4481 o|substituted constant variable: a4566 o|substituted constant variable: a4567 o|inlining procedure: k4601 o|inlining procedure: k4601 o|inlining procedure: k4615 o|inlining procedure: k4615 o|contracted procedure: k4624 o|propagated global variable: r4625 mingw o|inlining procedure: k4621 o|inlining procedure: k4621 o|inlining procedure: k4649 o|inlining procedure: k4649 o|propagated global variable: tmp830832 static o|propagated global variable: tmp830832 static o|propagated global variable: tmp827829 static o|inlining procedure: k4661 o|propagated global variable: tmp827829 static o|inlining procedure: k4661 o|propagated global variable: r46625398 static-libs o|inlining procedure: k4735 o|inlining procedure: k4735 o|contracted procedure: "(csc.scm:1048) cleanup" o|inlining procedure: k4671 o|inlining procedure: k4671 o|inlining procedure: k4692 o|inlining procedure: k4692 o|inlining procedure: k4756 o|inlining procedure: k4756 o|inlining procedure: k4847 o|inlining procedure: k4847 o|contracted procedure: "(csc.scm:1070) $system" o|inlining procedure: k4785 o|inlining procedure: k4785 o|propagated global variable: out884888 ##sys#standard-output o|substituted constant variable: a4796 o|substituted constant variable: a4797 o|propagated global variable: out884888 ##sys#standard-output o|inlining procedure: k4826 o|inlining procedure: k4826 o|inlining procedure: k4866 o|inlining procedure: k4866 o|contracted procedure: "(csc.scm:1144) run" o|merged explicitly consed rest parameter: os243 o|merged explicitly consed rest parameter: n246 o|inlining procedure: k1916 o|inlining procedure: k1916 o|consed rest parameter at call site: "(csc.scm:526) stop" 2 o|inlining procedure: k1930 o|inlining procedure: k1930 o|inlining procedure: k1956 o|inlining procedure: k1956 o|inlining procedure: k1969 o|inlining procedure: k1969 o|inlining procedure: k1982 o|inlining procedure: k2011 o|inlining procedure: k2011 o|contracted procedure: "(csc.scm:588) run-linking" o|inlining procedure: k4172 o|inlining procedure: k4172 o|inlining procedure: k4184 o|inlining procedure: k4184 o|propagated global variable: g771773 generated-object-files o|inlining procedure: k4210 o|contracted procedure: "(csc.scm:966) create-mac-bundle" o|inlining procedure: k4936 o|inlining procedure: k4936 o|inlining procedure: k4210 o|contracted procedure: "(csc.scm:961) copy-libraries" o|inlining procedure: k4538 o|inlining procedure: k4538 o|substituted constant variable: a4550 o|contracted procedure: "(csc.scm:989) target-lib-path" o|inlining procedure: k4496 o|inlining procedure: k4496 o|contracted procedure: k4511 o|inlining procedure: k4514 o|inlining procedure: k4514 o|propagated global variable: tmp756758 static o|inlining procedure: k4237 o|propagated global variable: tmp756758 static o|inlining procedure: k4237 o|propagated global variable: r42385454 static-libs o|inlining procedure: k4246 o|contracted procedure: "(csc.scm:959) rez" o|substituted constant variable: a4886 o|substituted constant variable: a4887 o|inlining procedure: k4246 o|inlining procedure: k4274 o|inlining procedure: k4274 o|substituted constant variable: a4288 o|inlining procedure: k4292 o|inlining procedure: k4292 o|propagated global variable: r42935463 host-mode o|substituted constant variable: link-output-flag o|inlining procedure: k4347 o|inlining procedure: k4347 o|inlining procedure: k4363 o|inlining procedure: k4363 o|substituted constant variable: a4397 o|substituted constant variable: a4398 o|substituted constant variable: a4421 o|substituted constant variable: a4422 o|inlining procedure: k4443 o|inlining procedure: k4443 o|propagated global variable: g698702 object-files o|propagated global variable: out280284 ##sys#standard-output o|substituted constant variable: a2024 o|substituted constant variable: a2025 o|substituted constant variable: a2052 o|substituted constant variable: a2053 o|inlining procedure: k2091 o|inlining procedure: k2091 o|propagated global variable: out280284 ##sys#standard-output o|contracted procedure: "(csc.scm:577) run-compilation" o|substituted constant variable: compile-only-flag o|inlining procedure: k3878 o|inlining procedure: k3878 o|substituted constant variable: compile-output-flag o|consed rest parameter at call site: "(csc.scm:869) stop" 2 o|inlining procedure: k3946 o|inlining procedure: k3946 o|inlining procedure: k3964 o|inlining procedure: k3964 o|propagated global variable: g639641 generated-rc-files o|inlining procedure: k3987 o|inlining procedure: k3987 o|propagated global variable: g622624 generated-c-files o|inlining procedure: k4014 o|inlining procedure: k4014 o|propagated global variable: g601603 rc-files o|contracted procedure: "(csc.scm:887) create-win-manifest" o|inlining procedure: k4065 o|inlining procedure: k4065 o|propagated global variable: g571573 c-files o|inlining procedure: k2112 o|inlining procedure: k2112 o|inlining procedure: k2126 o|propagated global variable: r21275490 object-files o|inlining procedure: k2126 o|propagated global variable: r21275492 c-files o|consed rest parameter at call site: "(csc.scm:558) stop" 2 o|contracted procedure: "(csc.scm:573) run-translation" o|inlining procedure: k3808 o|contracted procedure: "(csc.scm:823) g505512" o|inlining procedure: k3730 o|inlining procedure: k3730 o|inlining procedure: k3762 o|inlining procedure: k3762 o|consed rest parameter at call site: "(csc.scm:835) stop" 2 o|inlining procedure: k3785 o|inlining procedure: k3785 o|substituted constant variable: a3794 o|inlining procedure: k3808 o|propagated global variable: g511513 scheme-files o|inlining procedure: k2154 o|inlining procedure: k2154 o|contracted procedure: "(csc.scm:547) builtin-link-options" o|inlining procedure: k1736 o|contracted procedure: "(csc.scm:288) g188189" o|inlining procedure: k1758 o|contracted procedure: "(csc.scm:289) g199208" o|inlining procedure: k1758 o|inlining procedure: k1736 o|substituted constant variable: a1802 o|inlining procedure: k1815 o|inlining procedure: k1815 o|inlining procedure: k1826 o|inlining procedure: k1826 o|inlining procedure: k1835 o|inlining procedure: k1835 o|inlining procedure: k1982 o|contracted procedure: "(csc.scm:595) usage" o|inlining procedure: k2246 o|inlining procedure: k2246 o|inlining procedure: k2278 o|inlining procedure: k2278 o|inlining procedure: k2299 o|inlining procedure: k2299 o|inlining procedure: k2321 o|inlining procedure: k2321 o|inlining procedure: k2337 o|inlining procedure: k2337 o|inlining procedure: k2361 o|inlining procedure: k2361 o|inlining procedure: k2385 o|inlining procedure: k2385 o|inlining procedure: k2408 o|inlining procedure: k2408 o|consed rest parameter at call site: "(csc.scm:633) t-options239" 1 o|inlining procedure: k2424 o|consed rest parameter at call site: "(csc.scm:639) t-options239" 1 o|inlining procedure: k2424 o|consed rest parameter at call site: "(csc.scm:642) t-options239" 1 o|inlining procedure: k2453 o|consed rest parameter at call site: "(csc.scm:645) t-options239" 1 o|inlining procedure: k2453 o|inlining procedure: k2473 o|inlining procedure: k2473 o|inlining procedure: k2487 o|inlining procedure: k2487 o|consed rest parameter at call site: "(csc.scm:655) t-options239" 1 o|consed rest parameter at call site: "(csc.scm:653) check240" 3 o|inlining procedure: k2534 o|inlining procedure: k2534 o|inlining procedure: k2550 o|inlining procedure: k2550 o|inlining procedure: k2588 o|inlining procedure: k2588 o|consed rest parameter at call site: "(csc.scm:679) check240" 3 o|inlining procedure: k2619 o|consed rest parameter at call site: "(csc.scm:684) check240" 3 o|inlining procedure: k2619 o|inlining procedure: k2652 o|inlining procedure: k2652 o|inlining procedure: k2672 o|inlining procedure: k2672 o|inlining procedure: k2692 o|inlining procedure: k2692 o|inlining procedure: k2712 o|inlining procedure: k2712 o|inlining procedure: k2732 o|inlining procedure: k2732 o|inlining procedure: k2750 o|inlining procedure: k2750 o|inlining procedure: k2774 o|consed rest parameter at call site: "(csc.scm:707) check240" 3 o|inlining procedure: k2774 o|consed rest parameter at call site: "(csc.scm:711) check240" 3 o|inlining procedure: k2808 o|consed rest parameter at call site: "(csc.scm:715) check240" 3 o|inlining procedure: k2808 o|consed rest parameter at call site: "(csc.scm:719) check240" 3 o|inlining procedure: k2842 o|consed rest parameter at call site: "(csc.scm:723) check240" 3 o|inlining procedure: k2842 o|consed rest parameter at call site: "(csc.scm:726) check240" 3 o|inlining procedure: k2888 o|inlining procedure: k2888 o|consed rest parameter at call site: "(csc.scm:732) check240" 3 o|inlining procedure: k2927 o|substituted constant variable: a2966 o|contracted procedure: k2970 o|propagated global variable: r2971 mingw o|inlining procedure: k2967 o|inlining procedure: k2967 o|consed rest parameter at call site: "(csc.scm:736) check240" 3 o|inlining procedure: k2927 o|inlining procedure: k2982 o|consed rest parameter at call site: "(csc.scm:745) t-options239" 1 o|consed rest parameter at call site: "(csc.scm:744) check240" 3 o|inlining procedure: k2982 o|consed rest parameter at call site: "(csc.scm:749) t-options239" 1 o|consed rest parameter at call site: "(csc.scm:748) check240" 3 o|inlining procedure: k3022 o|inlining procedure: k3022 o|inlining procedure: k3064 o|consed rest parameter at call site: "(csc.scm:763) t-options239" 1 o|inlining procedure: k3064 o|consed rest parameter at call site: "(csc.scm:768) t-options239" 1 o|consed rest parameter at call site: "(csc.scm:765) check240" 3 o|inlining procedure: k3095 o|consed rest parameter at call site: "(csc.scm:771) t-options239" 1 o|inlining procedure: k3095 o|substituted constant variable: a3116 o|substituted constant variable: a3113 o|inlining procedure: k3110 o|inlining procedure: k3110 o|substituted constant variable: a3131 o|substituted constant variable: a3128 o|substituted constant variable: a3146 o|substituted constant variable: a3143 o|inlining procedure: k3140 o|inlining procedure: k3140 o|substituted constant variable: a3161 o|substituted constant variable: a3158 o|consed rest parameter at call site: "(csc.scm:781) t-options239" 1 o|substituted constant variable: a3175 o|substituted constant variable: a3172 o|inlining procedure: k3169 o|inlining procedure: k3169 o|inlining procedure: k3201 o|inlining procedure: k3240 o|contracted procedure: "(csc.scm:791) g451460" o|substituted constant variable: a3229 o|inlining procedure: k3240 o|consed rest parameter at call site: "(csc.scm:792) stop" 2 o|inlining procedure: k3201 o|consed rest parameter at call site: "(csc.scm:793) stop" 2 o|substituted constant variable: a3289 o|substituted constant variable: a3294 o|substituted constant variable: a3303 o|inlining procedure: k3305 o|contracted procedure: k3326 o|inlining procedure: k3323 o|inlining procedure: k3351 o|inlining procedure: k3351 o|inlining procedure: k3387 o|inlining procedure: k3387 o|inlining procedure: k3323 o|inlining procedure: k3305 o|consed rest parameter at call site: "(csc.scm:817) stop" 2 o|substituted constant variable: a3445 o|substituted constant variable: a3452 o|substituted constant variable: a3449 o|substituted constant variable: a3457 o|substituted constant variable: a3462 o|substituted constant variable: a3471 o|substituted constant variable: constant64 o|substituted constant variable: constant61 o|substituted constant variable: constant68 o|substituted constant variable: a3474 o|substituted constant variable: a3483 o|substituted constant variable: a3485 o|substituted constant variable: a3487 o|substituted constant variable: a3489 o|substituted constant variable: a3491 o|substituted constant variable: a3493 o|substituted constant variable: a3495 o|substituted constant variable: a3497 o|substituted constant variable: a3499 o|substituted constant variable: a3501 o|substituted constant variable: a3503 o|substituted constant variable: a3505 o|substituted constant variable: a3507 o|substituted constant variable: a3512 o|substituted constant variable: a3514 o|inlining procedure: k3518 o|inlining procedure: k3518 o|substituted constant variable: a3525 o|substituted constant variable: a3527 o|substituted constant variable: a3529 o|substituted constant variable: a3531 o|substituted constant variable: a3533 o|substituted constant variable: a3535 o|substituted constant variable: a3537 o|substituted constant variable: a3539 o|substituted constant variable: a3541 o|substituted constant variable: a3543 o|substituted constant variable: a3545 o|substituted constant variable: a3547 o|substituted constant variable: a3549 o|substituted constant variable: a3554 o|substituted constant variable: a3556 o|substituted constant variable: a3561 o|substituted constant variable: a3563 o|substituted constant variable: a3565 o|substituted constant variable: a3567 o|substituted constant variable: a3569 o|substituted constant variable: a3571 o|substituted constant variable: a3573 o|substituted constant variable: a3575 o|substituted constant variable: a3580 o|substituted constant variable: a3582 o|substituted constant variable: a3587 o|substituted constant variable: a3589 o|substituted constant variable: a3591 o|substituted constant variable: a3593 o|substituted constant variable: a3595 o|substituted constant variable: a3600 o|substituted constant variable: a3602 o|substituted constant variable: a3607 o|substituted constant variable: a3609 o|substituted constant variable: a3614 o|substituted constant variable: a3616 o|substituted constant variable: a3621 o|substituted constant variable: a3623 o|substituted constant variable: a3625 o|substituted constant variable: a3627 o|substituted constant variable: a3629 o|substituted constant variable: a3631 o|substituted constant variable: a3633 o|substituted constant variable: a3635 o|substituted constant variable: a3637 o|substituted constant variable: a3639 o|substituted constant variable: a3641 o|substituted constant variable: a3643 o|substituted constant variable: a3645 o|substituted constant variable: a3647 o|substituted constant variable: a3649 o|substituted constant variable: a3654 o|substituted constant variable: a3656 o|inlining procedure: k5038 o|inlining procedure: k5038 o|inlining procedure: k5042 o|inlining procedure: k5042 o|inlining procedure: k5059 o|contracted procedure: "(csc.scm:250) g108109" o|inlining procedure: k5090 o|contracted procedure: "(csc.scm:251) g119128" o|inlining procedure: k5090 o|inlining procedure: k5124 o|inlining procedure: k5124 o|inlining procedure: k5059 o|contracted procedure: k5165 o|inlining procedure: k5177 o|inlining procedure: k5177 o|inlining procedure: k5191 o|inlining procedure: k5191 o|substituted constant variable: a5216 o|folded constant expression: (string->list (quote "PHhsfiENxubvwAOeWkctgSJM")) o|inlining procedure: k5244 o|inlining procedure: k5244 o|inlining procedure: k5254 o|inlining procedure: k5254 o|inlining procedure: k5274 o|inlining procedure: k5274 o|propagated global variable: r52755646 cygwin o|inlining procedure: k5278 o|inlining procedure: k5278 o|inlining procedure: k5288 o|inlining procedure: k5288 o|inlining procedure: k5298 o|inlining procedure: k5298 o|inlining procedure: k5308 o|inlining procedure: k5308 o|inlining procedure: k5318 o|inlining procedure: k5318 o|inlining procedure: k5344 o|inlining procedure: k5344 o|simplifications: ((if . 2)) o|replaced variables: 738 o|removed binding forms: 344 o|propagated global variable: out913 ##sys#standard-error o|removed side-effect free assignment to unused variable: link-output-flag o|removed side-effect free assignment to unused variable: compile-output-flag o|removed side-effect free assignment to unused variable: default-translation-optimization-options o|removed side-effect free assignment to unused variable: constant61 o|removed side-effect free assignment to unused variable: constant64 o|removed side-effect free assignment to unused variable: constant68 o|contracted procedure: k1656 o|removed side-effect free assignment to unused variable: compile-only-flag o|substituted constant variable: r41405375 o|substituted constant variable: r41405375 o|substituted constant variable: nonstatic-compilation-options o|substituted constant variable: nonstatic-compilation-options o|substituted constant variable: r46025383 o|substituted constant variable: r46025383 o|substituted constant variable: r46025385 o|substituted constant variable: r46025385 o|substituted constant variable: r46165387 o|substituted constant variable: r46165387 o|substituted constant variable: r46165389 o|substituted constant variable: r46165389 o|substituted constant variable: r46225391 o|propagated global variable: r46625397 static o|substituted constant variable: r46935403 o|substituted constant variable: r47865409 o|substituted constant variable: r47865412 o|propagated global variable: out884888 ##sys#standard-output o|substituted constant variable: r19315421 o|substituted constant variable: r19315421 o|inlining procedure: k1956 o|inlining procedure: k1956 o|substituted constant variable: r19575427 o|substituted constant variable: r19575427 o|substituted constant variable: r45395444 o|substituted constant variable: r45395444 o|inlining procedure: k4538 o|substituted constant variable: r45155451 o|propagated global variable: r42385452 static o|propagated global variable: a42365455 static-libs o|substituted constant variable: a4327 o|inlining procedure: k4353 o|propagated global variable: out280284 ##sys#standard-output o|substituted constant variable: r20925472 o|substituted constant variable: r20925472 o|substituted constant variable: r20925474 o|substituted constant variable: r20925474 o|substituted constant variable: r38795477 o|substituted constant variable: a3884 o|propagated global variable: a21255491 object-files o|propagated global variable: a21255493 c-files o|substituted constant variable: r37635497 o|substituted constant variable: r37635497 o|inlining procedure: k3762 o|inlining procedure: k3762 o|substituted constant variable: r37865501 o|substituted constant variable: r37865501 o|inlining procedure: k3785 o|inlining procedure: k3785 o|substituted constant variable: r17375514 o|substituted constant variable: r17375514 o|substituted constant variable: r18165516 o|substituted constant variable: r18165516 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|substituted constant variable: r29685580 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|inlining procedure: k2228 o|substituted constant variable: r50395615 o|substituted constant variable: r50395615 o|substituted constant variable: r50605627 o|substituted constant variable: r50605627 o|replaced variables: 36 o|removed binding forms: 787 o|removed conditional forms: 1 o|removed side-effect free assignment to unused variable: nonstatic-compilation-options o|substituted constant variable: r1657 o|inlining procedure: k4587 o|propagated global variable: r45886018 quotewrap-no-slash-trans o|inlining procedure: k4587 o|propagated global variable: r45886022 quotewrap o|inlining procedure: k4594 o|propagated global variable: r45956026 quotewrap-no-slash-trans o|inlining procedure: k4594 o|propagated global variable: r45956030 quotewrap o|inlining procedure: k4652 o|propagated global variable: r46536034 static o|inlining procedure: k4652 o|propagated global variable: r46536035 static-libs o|inlining procedure: k4863 o|inlining procedure: k4505 o|inlining procedure: k4505 o|inlining procedure: k4227 o|propagated global variable: r42286044 gui o|inlining procedure: k4227 o|propagated global variable: r42385452 static o|inlining procedure: k2084 o|propagated global variable: r20856048 quotewrap-no-slash-trans o|inlining procedure: k2084 o|propagated global variable: r20856052 quotewrap o|inlining procedure: k2094 o|inlining procedure: k2132 o|inlining procedure: k2187 o|inlining procedure: k1792 o|inlining procedure: k1792 o|replaced variables: 15 o|removed binding forms: 207 o|Removed `not' forms: 2 o|inlining procedure: k1568 o|inlining procedure: "(csc.scm:1000) quotewrap-no-slash-trans" o|inlining procedure: "(csc.scm:1000) quotewrap-no-slash-trans" o|substituted constant variable: r19575677 o|substituted constant variable: r19575679 o|substituted constant variable: r45395685 o|substituted constant variable: r45066042 o|contracted procedure: k4505 o|propagated global variable: r4506 host-mode o|substituted constant variable: r45066043 o|substituted constant variable: r42286045 o|inlining procedure: "(csc.scm:583) quotewrap-no-slash-trans" o|propagated global variable: str326106 target-filename o|contracted procedure: k2094 o|propagated global variable: r2095 shared o|substituted constant variable: r20956064 o|substituted constant variable: r21336065 o|substituted constant variable: r37635706 o|substituted constant variable: r37635708 o|substituted constant variable: r37865710 o|substituted constant variable: r37865712 o|substituted constant variable: r17936077 o|substituted constant variable: short-options o|simplifications: ((if . 1) (let . 1)) o|replaced variables: 3 o|removed binding forms: 24 o|removed conditional forms: 6 o|removed side-effect free assignment to unused variable: short-options o|replaced variables: 3 o|removed binding forms: 14 o|removed binding forms: 2 o|simplifications: ((if . 35) (##core#call . 314)) o| call simplifications: o| assq o| ##sys#call-with-values o| string-ci=? o| ##sys#size 4 o| fx> 4 o| string o| string->number o| cadr o| cdr 14 o| number? o| first 2 o| ##sys#list o| ##sys#fudge 2 o| member 8 o| string=? 2 o| length 2 o| >= 2 o| eq? 77 o| zero? o| char=? o| string->list 2 o| null? 8 o| car 18 o| memq 4 o| char-whitespace? 2 o| list->string o| not 7 o| ##sys#check-list 10 o| pair? 13 o| cons 49 o| ##sys#setslot 7 o| ##sys#slot 33 o| list 32 o| ##sys#apply o|contracted procedure: k1477 o|contracted procedure: k1481 o|contracted procedure: k1485 o|contracted procedure: k1489 o|contracted procedure: k1532 o|contracted procedure: k1536 o|contracted procedure: k1549 o|contracted procedure: k1687 o|contracted procedure: k1691 o|contracted procedure: k5169 o|contracted procedure: k1701 o|contracted procedure: k4092 o|contracted procedure: k4098 o|contracted procedure: k4110 o|contracted procedure: k4113 o|contracted procedure: k4116 o|contracted procedure: k4124 o|contracted procedure: k4132 o|contracted procedure: k4142 o|inlining procedure: k4649 o|inlining procedure: k4649 o|contracted procedure: k4695 o|contracted procedure: k4698 o|contracted procedure: k4704 o|contracted procedure: k4728 o|contracted procedure: k4753 o|contracted procedure: k4850 o|contracted procedure: k4788 o|contracted procedure: k4792 o|contracted procedure: k1926 o|contracted procedure: k1933 o|inlining procedure: k1919 o|contracted procedure: k1930 o|inlining procedure: k1919 o|contracted procedure: k1951 o|contracted procedure: k1966 o|contracted procedure: k1973 o|contracted procedure: k1985 o|contracted procedure: k4148 o|contracted procedure: k4151 o|contracted procedure: k4175 o|contracted procedure: k4187 o|contracted procedure: k4197 o|contracted procedure: k4201 o|propagated global variable: g771773 generated-object-files o|contracted procedure: k4213 o|contracted procedure: k4967 o|contracted procedure: k4963 o|contracted procedure: k4959 o|contracted procedure: k4544 o|contracted procedure: k4521 o|contracted procedure: k4249 o|contracted procedure: k4289 o|contracted procedure: k4304 o|contracted procedure: k4312 o|contracted procedure: k4366 o|contracted procedure: k4379 o|contracted procedure: k4446 o|contracted procedure: k4449 o|contracted procedure: k4452 o|contracted procedure: k4460 o|contracted procedure: k4468 o|propagated global variable: g698702 object-files o|contracted procedure: k2020 o|contracted procedure: k2073 o|contracted procedure: k3843 o|contracted procedure: k3847 o|contracted procedure: k3859 o|contracted procedure: k3855 o|contracted procedure: k3878 o|contracted procedure: k3889 o|contracted procedure: k3895 o|contracted procedure: k3913 o|contracted procedure: k3917 o|contracted procedure: k3925 o|contracted procedure: k3936 o|contracted procedure: k3949 o|contracted procedure: k3955 o|contracted procedure: k3967 o|contracted procedure: k3977 o|contracted procedure: k3981 o|propagated global variable: g639641 generated-rc-files o|contracted procedure: k3990 o|contracted procedure: k4000 o|contracted procedure: k4004 o|propagated global variable: g622624 generated-c-files o|contracted procedure: k4017 o|contracted procedure: k4027 o|contracted procedure: k4031 o|propagated global variable: g601603 rc-files o|contracted procedure: k4044 o|contracted procedure: k4048 o|contracted procedure: k5011 o|contracted procedure: k5007 o|contracted procedure: k5003 o|contracted procedure: k4068 o|contracted procedure: k4078 o|contracted procedure: k4082 o|propagated global variable: g571573 c-files o|contracted procedure: k2103 o|contracted procedure: k2129 o|contracted procedure: k2138 o|contracted procedure: k2132 o|contracted procedure: k3799 o|contracted procedure: k3811 o|contracted procedure: k3821 o|contracted procedure: k3825 o|contracted procedure: k3796 o|contracted procedure: k3791 o|contracted procedure: k3662 o|contracted procedure: k3683 o|contracted procedure: k3687 o|contracted procedure: k3768 o|contracted procedure: k3711 o|contracted procedure: k3715 o|contracted procedure: k3721 o|contracted procedure: k3733 o|contracted procedure: k3736 o|contracted procedure: k3739 o|contracted procedure: k3747 o|contracted procedure: k3755 o|contracted procedure: k3778 o|propagated global variable: g511513 scheme-files o|contracted procedure: k2161 o|contracted procedure: k2168 o|contracted procedure: k2171 o|contracted procedure: k2175 o|contracted procedure: k1741 o|contracted procedure: k1761 o|contracted procedure: k1764 o|contracted procedure: k1767 o|contracted procedure: k1775 o|contracted procedure: k1783 o|contracted procedure: k2221 o|contracted procedure: k2234 o|contracted procedure: k2237 o|contracted procedure: k1900 o|contracted procedure: k1896 o|contracted procedure: k1892 o|contracted procedure: k1888 o|contracted procedure: k1884 o|contracted procedure: k1880 o|contracted procedure: k1876 o|contracted procedure: k2249 o|contracted procedure: k2265 o|contracted procedure: k2281 o|contracted procedure: k2289 o|contracted procedure: k2295 o|contracted procedure: k2302 o|contracted procedure: k2313 o|contracted procedure: k2324 o|contracted procedure: k2332 o|contracted procedure: k2340 o|contracted procedure: k2352 o|contracted procedure: k2364 o|contracted procedure: k2376 o|contracted procedure: k2388 o|contracted procedure: k2396 o|contracted procedure: k2399 o|contracted procedure: k2413 o|contracted procedure: k2421 o|contracted procedure: k2427 o|contracted procedure: k2430 o|contracted procedure: k2434 o|contracted procedure: k2443 o|contracted procedure: k2446 o|contracted procedure: k2456 o|contracted procedure: k2459 o|contracted procedure: k2469 o|contracted procedure: k2476 o|contracted procedure: k2483 o|contracted procedure: k2490 o|contracted procedure: k2493 o|contracted procedure: k2498 o|contracted procedure: k2504 o|contracted procedure: k2507 o|contracted procedure: k2523 o|contracted procedure: k2531 o|contracted procedure: k2527 o|contracted procedure: k2537 o|contracted procedure: k2546 o|contracted procedure: k2553 o|contracted procedure: k2558 o|contracted procedure: k2565 o|contracted procedure: k2583 o|contracted procedure: k2591 o|contracted procedure: k2598 o|contracted procedure: k2608 o|contracted procedure: k2616 o|contracted procedure: k2622 o|contracted procedure: k2625 o|contracted procedure: k2631 o|contracted procedure: k2635 o|contracted procedure: k2642 o|contracted procedure: k2645 o|contracted procedure: k2655 o|contracted procedure: k2665 o|contracted procedure: k2675 o|contracted procedure: k2685 o|contracted procedure: k2695 o|contracted procedure: k2705 o|contracted procedure: k2715 o|contracted procedure: k2725 o|contracted procedure: k2735 o|contracted procedure: k2745 o|contracted procedure: k2753 o|contracted procedure: k2765 o|contracted procedure: k2768 o|contracted procedure: k2777 o|contracted procedure: k2784 o|contracted procedure: k2788 o|contracted procedure: k2794 o|contracted procedure: k2801 o|contracted procedure: k2805 o|contracted procedure: k2811 o|contracted procedure: k2818 o|contracted procedure: k2822 o|contracted procedure: k2828 o|contracted procedure: k2835 o|contracted procedure: k2839 o|contracted procedure: k2845 o|contracted procedure: k2856 o|contracted procedure: k2860 o|contracted procedure: k2866 o|contracted procedure: k2877 o|contracted procedure: k2885 o|contracted procedure: k2891 o|contracted procedure: k2899 o|contracted procedure: k2905 o|contracted procedure: k2916 o|contracted procedure: k2924 o|contracted procedure: k2930 o|contracted procedure: k2937 o|contracted procedure: k2944 o|contracted procedure: k2955 o|contracted procedure: k2979 o|contracted procedure: k2985 o|contracted procedure: k2995 o|contracted procedure: k2999 o|contracted procedure: k3005 o|contracted procedure: k3015 o|contracted procedure: k3019 o|contracted procedure: k3025 o|contracted procedure: k3045 o|contracted procedure: k3058 o|contracted procedure: k3054 o|contracted procedure: k3067 o|contracted procedure: k3076 o|contracted procedure: k3082 o|contracted procedure: k3085 o|contracted procedure: k3092 o|contracted procedure: k3122 o|contracted procedure: k3137 o|contracted procedure: k3152 o|contracted procedure: k3184 o|contracted procedure: k3198 o|contracted procedure: k3286 o|contracted procedure: k3204 o|contracted procedure: k3207 o|contracted procedure: k3213 o|contracted procedure: k3221 o|contracted procedure: k3243 o|contracted procedure: k3246 o|contracted procedure: k3249 o|contracted procedure: k3257 o|contracted procedure: k3265 o|contracted procedure: k3231 o|contracted procedure: k3300 o|contracted procedure: k3291 o|contracted procedure: k3340 o|contracted procedure: k3348 o|contracted procedure: k3354 o|contracted procedure: k3362 o|contracted procedure: k3368 o|contracted procedure: k3380 o|contracted procedure: k3384 o|contracted procedure: k3390 o|contracted procedure: k3399 o|contracted procedure: k3415 o|contracted procedure: k3423 o|contracted procedure: k3334 o|contracted procedure: k3438 o|contracted procedure: k3454 o|contracted procedure: k3446 o|contracted procedure: k3468 o|contracted procedure: k3459 o|contracted procedure: k3477 o|contracted procedure: k3515 o|contracted procedure: k5064 o|contracted procedure: k5072 o|contracted procedure: k5081 o|contracted procedure: k5093 o|contracted procedure: k5096 o|contracted procedure: k5099 o|contracted procedure: k5107 o|contracted procedure: k5115 o|contracted procedure: k5127 o|contracted procedure: k5130 o|contracted procedure: k5133 o|contracted procedure: k5141 o|contracted procedure: k5149 o|simplifications: ((if . 3) (let . 39)) o|removed binding forms: 290 o|inlining procedure: "(csc.scm:972) prefix" o|inlining procedure: "(csc.scm:277) prefix" o|inlining procedure: k2604 o|inlining procedure: k2604 o|inlining procedure: k2940 o|inlining procedure: k2940 o|inlining procedure: "(csc.scm:261) prefix" o|inlining procedure: "(csc.scm:239) prefix" o|inlining procedure: "(csc.scm:225) prefix" o|propagated global variable: str246355 default-library o|inlining procedure: "(csc.scm:108) prefix" o|inlining procedure: "(csc.scm:104) prefix" o|simplifications: ((let . 2)) o|replaced variables: 57 o|removed binding forms: 2 o|removed side-effect free assignment to unused variable: prefix o|substituted constant variable: dir256296 o|substituted constant variable: str246295 o|substituted constant variable: dir256321 o|substituted constant variable: str246320 o|substituted constant variable: dir256342 o|substituted constant variable: str246341 o|substituted constant variable: str246350 o|substituted constant variable: dir256356 o|substituted constant variable: dir256361 o|substituted constant variable: str246360 o|substituted constant variable: dir256366 o|substituted constant variable: str246365 o|simplifications: ((if . 2)) o|replaced variables: 22 o|removed binding forms: 33 o|inlining procedure: k1822 o|inlining procedure: k5328 o|removed binding forms: 28 o|replaced variables: 2 o|removed binding forms: 2 o|direct leaf routine/allocation: use-private-repository242 6 o|direct leaf routine/allocation: g428429 3 o|inlining procedure: "(csc.scm:658) k2228" o|inlining procedure: "(csc.scm:762) k2228" o|simplifications: ((if . 1)) o|customizable procedures: (k1622 k5052 map-loop140157 map-loop113164 k2756 k3039 k3042 k3098 k3107 k3407 k3371 k3190 map-loop445463 k2947 shared-build241 check240 k2402 t-options239 loop259 k1725 k1729 map-loop193218 k2144 k2147 k3707 map-loop525545 for-each-loop504555 k2002 g565572 for-each-loop564583 k4034 k3901 g595602 for-each-loop594608 for-each-loop615625 for-each-loop632642 k3871 compiler-options map-loop686703 linker-options linker-libraries k4240 k4204 lib-path copy-files for-each-loop764774 stop g880881 k4716 fold842 k4645 k4618 command map-loop655675) o|calls to known targets: 265 o|identified direct recursive calls: f_4690 1 o|fast box initializations: 19 o|fast global references: 410 o|fast global assignments: 178 o|dropping unused closure argument: f_4475 o|dropping unused closure argument: f_4635 o|dropping unused closure argument: f_4086 o|dropping unused closure argument: f_4845 o|dropping unused closure argument: f_1940 o|dropping unused closure argument: f_1914 o|dropping unused closure argument: f_4556 o|dropping unused closure argument: f_1907 o|dropping unused closure argument: f_1963 o|dropping unused closure argument: f_4605 o|dropping unused closure argument: f_1499 */ /* end of file */ �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/profiler.c���������������������������������������������������������������������������0000644�0001750�0001750�00000110301�13052306300�014762� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from profiler.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:17 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: profiler.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file profiler.c unit: profiler */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); 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,52,48,48,41,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,15),40,97,52,48,57,32,46,32,97,114,103,115,55,54,41,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,47),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,55,50,32,102,105,108,101,110,97,109,101,55,51,41,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,46),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,56,53,32,105,56,54,32,120,56,55,41,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,35),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,57,52,32,118,101,99,57,53,41,0,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,36),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,49,48,57,32,118,101,99,49,49,48,41,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,49,51,55,32,105,49,51,57,41}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,50,53,32,103,49,51,50,49,53,48,41,0,0,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,6),40,97,53,55,49,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 stub89(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_r=C_flonum(&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 stub65(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(C_profiler_toplevel) C_externexport void C_ccall C_profiler_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(f_405) static void C_ccall f_405(C_word c,C_word *av) C_noret; C_noret_decl(f_503) static void C_ccall f_503(C_word c,C_word *av) C_noret; C_noret_decl(f_401) static void C_ccall f_401(C_word c,C_word *av) C_noret; C_noret_decl(f_602) static void C_ccall f_602(C_word c,C_word *av) C_noret; C_noret_decl(f_676) static void C_ccall f_676(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_608) static void C_ccall f_608(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(f_563) static void C_ccall f_563(C_word c,C_word *av) C_noret; C_noret_decl(f_465) static void C_fcall f_465(C_word t0,C_word t1) C_noret; C_noret_decl(f_567) static void C_ccall f_567(C_word c,C_word *av) C_noret; C_noret_decl(f_659) static void C_ccall f_659(C_word c,C_word *av) C_noret; C_noret_decl(f_443) static void C_ccall f_443(C_word c,C_word *av) C_noret; C_noret_decl(f_396) static void C_ccall f_396(C_word c,C_word *av) C_noret; C_noret_decl(f_649) static void C_fcall f_649(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_393) static void C_ccall f_393(C_word c,C_word *av) C_noret; C_noret_decl(f_390) static void C_ccall f_390(C_word c,C_word *av) C_noret; C_noret_decl(f_430) static void C_ccall f_430(C_word c,C_word *av) C_noret; C_noret_decl(f_387) static void C_ccall f_387(C_word c,C_word *av) C_noret; C_noret_decl(f_599) static void C_ccall f_599(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_372) static void C_ccall f_372(C_word c,C_word *av) C_noret; C_noret_decl(f_611) static void C_ccall f_611(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_428) static void C_ccall f_428(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_586) static void C_fcall f_586(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_576) static void C_ccall f_576(C_word c,C_word *av) C_noret; C_noret_decl(f_368) static void C_ccall f_368(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_414) static void C_ccall f_414(C_word c,C_word *av) C_noret; C_noret_decl(f_410) static void C_ccall f_410(C_word c,C_word *av) C_noret; C_noret_decl(trf_465) static void C_ccall trf_465(C_word c,C_word *av) C_noret; static void C_ccall trf_465(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_465(t0,t1);} C_noret_decl(trf_649) static void C_ccall trf_649(C_word c,C_word *av) C_noret; static void C_ccall trf_649(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_649(t0,t1,t2);} C_noret_decl(trf_586) static void C_ccall trf_586(C_word c,C_word *av) C_noret; static void C_ccall trf_586(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_586(t0,t1,t2);} /* 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 t4; C_word 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(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("profiler_toplevel")); C_check_nursery_minimum(C_calculate_demand(17,c,5)); if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){ C_save_and_reclaim((void*)C_profiler_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(144))){ C_save(t1); C_rereclaim2(144*sizeof(C_word),1); t1=C_restore;} a=C_alloc(17); C_initialize_lf(lf,25); lf[2]=C_h_intern(&lf[2],23,"\003sysprofile-append-mode"); lf[3]=C_h_intern(&lf[3],25,"\003sysregister-profile-info"); lf[4]=C_h_intern(&lf[4],11,"make-vector"); lf[5]=C_h_intern(&lf[5],18,"\003sysfinish-profile"); lf[6]=C_h_intern(&lf[6],25,"\003sysimplicit-exit-handler"); lf[7]=C_h_intern(&lf[7],16,"\003sysexit-handler"); lf[8]=C_h_intern(&lf[8],17,"\003sysstring-append"); lf[9]=C_decode_literal(C_heaptop,"\376B\000\000\010PROFILE."); lf[10]=C_h_intern(&lf[10],14,"number->string"); lf[11]=C_h_intern(&lf[11],28,"\003sysset-profile-info-vector!"); lf[12]=C_h_intern(&lf[12],20,"most-positive-fixnum"); lf[13]=C_h_intern(&lf[13],17,"\003sysprofile-entry"); lf[14]=C_h_intern(&lf[14],16,"\003sysprofile-exit"); lf[15]=C_decode_literal(C_heaptop,"\376U0.0\000"); lf[16]=C_h_intern(&lf[16],19,"with-output-to-file"); lf[17]=C_h_intern(&lf[17],19,"\003syswrite-char/port"); lf[18]=C_h_intern(&lf[18],19,"\003sysstandard-output"); lf[19]=C_h_intern(&lf[19],5,"write"); lf[20]=C_h_intern(&lf[20],12,"instrumented"); lf[21]=C_h_intern(&lf[21],7,"\000append"); lf[22]=C_h_intern(&lf[22],9,"\003sysprint"); lf[23]=C_decode_literal(C_heaptop,"\376B\000\000\033[debug] writing profile...\012"); lf[24]=C_h_intern(&lf[24],18,"\003sysstandard-error"); C_register_lf2(lf,25,create_ptable());{} t2=lf[0] /* ##sys#profile-vector-list */ =C_SCHEME_END_OF_LIST;; t3=lf[1] /* ##sys#profile-name */ =C_SCHEME_FALSE;; t4=C_set_block_item(lf[2] /* ##sys#profile-append-mode */,0,C_SCHEME_FALSE); t5=C_mutate2((C_word*)lf[3]+1 /* (set! ##sys#register-profile-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_368,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[11]+1 /* (set! ##sys#set-profile-info-vector! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_430,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t7=*((C_word*)lf[12]+1); t8=C_mutate2((C_word*)lf[13]+1 /* (set! ##sys#profile-entry ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_443,a[2]=t7,a[3]=((C_word)li4),tmp=(C_word)a,a+=4,tmp)); t9=C_mutate2((C_word*)lf[14]+1 /* (set! ##sys#profile-exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_503,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t10=*((C_word*)lf[16]+1); t11=C_mutate2((C_word*)lf[5]+1 /* (set! ##sys#finish-profile ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_563,a[2]=t10,a[3]=((C_word)li9),tmp=(C_word)a,a+=4,tmp)); t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} /* k403 in a400 in k394 in k391 in k388 in k385 in register-profile-info */ static void C_ccall f_405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_405,2,av);} /* profiler.scm:70: oldieh */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#profile-exit */ static void C_ccall f_503(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(14,c,1)))){ C_save_and_reclaim((void *)f_503,4,av);} a=C_alloc(14); 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)?lf[15]:t12); t15=C_a_i_bytevector(&a,1,C_fix(4)); t16=stub89(t15); t17=C_slot(t3,t5); t18=C_a_i_flonum_difference(&a,2,t16,t17); t19=C_a_i_flonum_plus(&a,2,t14,t18); t20=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}} /* a400 in k394 in k391 in k388 in k385 in register-profile-info */ static void C_ccall f_401(C_word c,C_word *av){ C_word tmp; C_word t0=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_401,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_405,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* profiler.scm:69: ##sys#finish-profile */ t3=*((C_word*)lf[5]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k600 in k597 in k594 in doloop137 in for-each-loop125 in k574 in a571 in k565 in finish-profile */ static void C_ccall f_602(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_602,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_605,a[2]=((C_word*)t0)[2],a[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:140: write */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k674 in a571 in k565 in finish-profile */ static void C_ccall f_676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_676,2,av);} /* write-char/port */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k615 in k612 in k609 in k606 in k603 in k600 in k597 in k594 in doloop137 in for-each-loop125 in k574 in a571 in k565 in finish-profile */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_617,2,av);} t2=C_u_fixnum_plus(((C_word*)t0)[2],C_fix(5)); t3=((C_word*)((C_word*)t0)[3])[1]; f_586(t3,((C_word*)t0)[4],t2);} /* k606 in k603 in k600 in k597 in k594 in doloop137 in for-each-loop125 in k574 in a571 in k565 in finish-profile */ static void C_ccall f_608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_608,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_611,a[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:142: write */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k603 in k600 in k597 in k594 in doloop137 in for-each-loop125 in k574 in a571 in k565 in finish-profile */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_605,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_608,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* write-char/port */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#finish-profile */ 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_563,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_567,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fudge(C_fix(13)))){ /* profiler.scm:125: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_567(2,av2);}}} /* k463 in profile-entry */ static void C_fcall f_465(C_word t0,C_word 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,1)))){ C_save_and_reclaim_args((void *)trf_465,2,t0,t1);} a=C_alloc(6); t2=C_eqp(C_fix(0),((C_word*)t0)[2]); if(C_truep(t2)){ t3=C_a_i_bytevector(&a,1,C_fix(4)); t4=stub89(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);}}} /* k565 in finish-profile */ static void C_ccall f_567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_567,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_572,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[2]+1))){ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[1]; 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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[1]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k657 in for-each-loop125 in k574 in a571 in k565 in finish-profile */ static void C_ccall f_659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_659,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_649(t3,((C_word*)t0)[4],t2);} /* ##sys#profile-entry */ static void C_ccall f_443(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_443,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_465,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(t6)){ t14=C_eqp(((C_word*)t0)[2],t6); if(C_truep(t14)){ t15=t13; f_465(t15,C_i_set_i_slot(t3,t5,C_SCHEME_FALSE));} else{ t15=C_u_fixnum_plus(t6,C_fix(1)); t16=t13; f_465(t16,C_i_set_i_slot(t3,t5,t15));}} else{ t14=t13; f_465(t14,C_i_set_i_slot(t3,t5,C_SCHEME_FALSE));}} /* k394 in k391 in k388 in k385 in register-profile-info */ static void C_ccall f_396(C_word c,C_word *av){ C_word tmp; C_word t0=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_396,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_401,a[2]=((C_word*)t0)[2],a[3]=((C_word)li0),tmp=(C_word)a,a+=4,tmp); /* profiler.scm:67: ##sys#implicit-exit-handler */ t3=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop125 in k574 in a571 in k565 in finish-profile */ static void C_fcall f_649(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_649,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_659,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_586,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_586(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);}}} /* k391 in k388 in k385 in register-profile-info */ static void C_ccall f_393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_393,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_396,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_410,a[2]=((C_word*)t0)[3],a[3]=((C_word)li1),tmp=(C_word)a,a+=4,tmp); /* profiler.scm:63: ##sys#exit-handler */ t5=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k388 in k385 in register-profile-info */ static void C_ccall f_390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_390,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_393,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* profiler.scm:62: ##sys#implicit-exit-handler */ t4=*((C_word*)lf[6]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#set-profile-info-vector! */ static void C_ccall f_430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_430,5,av);} t5=C_fixnum_times(t3,C_fix(5)); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_setslot(t2,t5,t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k385 in register-profile-info */ static void C_ccall f_387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_387,2,av);} a=C_alloc(3); t2=C_mutate2(&lf[1] /* (set! ##sys#profile-name ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_390,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* profiler.scm:61: ##sys#exit-handler */ t4=*((C_word*)lf[7]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k597 in k594 in doloop137 in for-each-loop125 in k574 in a571 in k565 in finish-profile */ static void C_ccall f_599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_599,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_602,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* write-char/port */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k594 in doloop137 in for-each-loop125 in k574 in a571 in k565 in finish-profile */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_596,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_599,a[2]=((C_word*)t0)[2],a[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:138: write */ t4=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k370 in register-profile-info */ 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; 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_372,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_375,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:72: make-vector */ t4=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k609 in k606 in k603 in k600 in k597 in k594 in doloop137 in for-each-loop125 in k574 in a571 in k565 in finish-profile */ static void C_ccall f_611(C_word c,C_word *av){ C_word tmp; C_word t0=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_611,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_614,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* write-char/port */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k612 in k609 in k606 in k603 in k600 in k597 in k594 in doloop137 in for-each-loop125 in k574 in a571 in k565 in finish-profile */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_614,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_617,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* write-char/port */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k426 in register-profile-info */ static void C_ccall f_428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_428,2,av);} /* ##sys#string-append */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[9]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k373 in k370 in register-profile-info */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_375,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,lf[0]); t3=C_mutate2(&lf[0] /* (set! ##sys#profile-vector-list ...) */,t2); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* doloop137 in for-each-loop125 in k574 in a571 in k565 in finish-profile */ static void C_fcall f_586(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_586,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_596,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); /* 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);}}} /* k574 in a571 in k565 in finish-profile */ static void C_ccall f_576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_576,2,av);} a=C_alloc(6); t2=lf[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_649,a[2]=t4,a[3]=((C_word)li7),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_649(t6,((C_word*)t0)[2],lf[0]);} /* ##sys#register-profile-info */ static void C_ccall f_368(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,2)))){ C_save_and_reclaim((void *)f_368,4,av);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_372,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_387,a[2]=t4,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_stringp(t3))){ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t3; f_387(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_428,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* profiler.scm:60: number->string */ t7=*((C_word*)lf[10]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=C_fix((C_word)C_getpid()); ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_372(2,av2);}}} /* a571 in k565 in finish-profile */ 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 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_572,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_576,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=*((C_word*)lf[18]+1); if(C_truep(stub65(C_SCHEME_UNDEFINED,*((C_word*)lf[18]+1)))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_676,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* profiler.scm:130: write */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_576(2,av2);}}} /* k412 in a409 in k391 in k388 in k385 in register-profile-info */ static void C_ccall f_414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_414,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a409 in k391 in k388 in k385 in register-profile-info */ static void C_ccall f_410(C_word c,C_word *av){ C_word tmp; 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_410,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_414,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* profiler.scm:65: ##sys#finish-profile */ t4=*((C_word*)lf[5]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[34] = { {"toplevel:profiler_2escm",(void*)C_profiler_toplevel}, {"f_405:profiler_2escm",(void*)f_405}, {"f_503:profiler_2escm",(void*)f_503}, {"f_401:profiler_2escm",(void*)f_401}, {"f_602:profiler_2escm",(void*)f_602}, {"f_676:profiler_2escm",(void*)f_676}, {"f_617:profiler_2escm",(void*)f_617}, {"f_608:profiler_2escm",(void*)f_608}, {"f_605:profiler_2escm",(void*)f_605}, {"f_563:profiler_2escm",(void*)f_563}, {"f_465:profiler_2escm",(void*)f_465}, {"f_567:profiler_2escm",(void*)f_567}, {"f_659:profiler_2escm",(void*)f_659}, {"f_443:profiler_2escm",(void*)f_443}, {"f_396:profiler_2escm",(void*)f_396}, {"f_649:profiler_2escm",(void*)f_649}, {"f_393:profiler_2escm",(void*)f_393}, {"f_390:profiler_2escm",(void*)f_390}, {"f_430:profiler_2escm",(void*)f_430}, {"f_387:profiler_2escm",(void*)f_387}, {"f_599:profiler_2escm",(void*)f_599}, {"f_596:profiler_2escm",(void*)f_596}, {"f_372:profiler_2escm",(void*)f_372}, {"f_611:profiler_2escm",(void*)f_611}, {"f_614:profiler_2escm",(void*)f_614}, {"f_428:profiler_2escm",(void*)f_428}, {"f_375:profiler_2escm",(void*)f_375}, {"f_586:profiler_2escm",(void*)f_586}, {"f_576:profiler_2escm",(void*)f_576}, {"f_368:profiler_2escm",(void*)f_368}, {"f_572:profiler_2escm",(void*)f_572}, {"f_414:profiler_2escm",(void*)f_414}, {"f_410:profiler_2escm",(void*)f_410}, {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| for-each 1 o|eliminated procedure checks: 19 o|specializations: o| 1 (current-output-port) o| 1 (string-append string string) (o e)|safe calls: 49 (o e)|assignments to immediate values: 1 o|Removed `not' forms: 1 o|substituted constant variable: a424 o|inlining procedure: "(profiler.scm:99) cpu-ms" o|contracted procedure: k490 o|inlining procedure: k487 o|inlining procedure: k487 o|inlining procedure: k523 o|inlining procedure: "(profiler.scm:114) cpu-ms" o|inlining procedure: k523 o|inlining procedure: k588 o|inlining procedure: k588 o|inlining procedure: k651 o|inlining procedure: k651 o|propagated global variable: g132134 ##sys#profile-vector-list o|contracted procedure: "(profiler.scm:129) empty-file?" o|propagated global variable: p6467 ##sys#standard-output o|inlining procedure: k681 o|inlining procedure: k681 o|replaced variables: 39 o|removed binding forms: 34 o|removed side-effect free assignment to unused variable: cpu-ms o|inlining procedure: k487 o|substituted constant variable: r488694 o|substituted constant variable: r488694 o|contracted procedure: "(profiler.scm:132) g126133" o|substituted constant variable: r682704 o|substituted constant variable: r682704 o|substituted constant variable: r682706 o|substituted constant variable: r682706 o|replaced variables: 4 o|removed binding forms: 44 o|inlining procedure: k483 o|substituted constant variable: r488708 o|removed binding forms: 12 o|contracted procedure: k548 o|contracted procedure: k671 o|simplifications: ((let . 1)) o|removed binding forms: 4 o|simplifications: ((if . 1) (##core#call . 55)) o| call simplifications: o| ##sys#fudge o| pair? o| ##sys#size o| fx>= o| write-char 6 o| fx- o| fp- o| fp+ o| ##sys#slot 10 o| eq? 4 o| fx+ 11 o| ##sys#setislot 5 o| ##sys#setslot 3 o| string? o| apply 3 o| fx* 4 o| cons o|contracted procedure: k377 o|contracted procedure: k381 o|contracted procedure: k418 o|contracted procedure: k436 o|contracted procedure: k445 o|contracted procedure: k448 o|contracted procedure: k451 o|contracted procedure: k454 o|contracted procedure: k457 o|contracted procedure: k460 o|contracted procedure: k473 o|contracted procedure: k476 o|contracted procedure: k496 o|contracted procedure: k487 o|contracted procedure: k505 o|contracted procedure: k508 o|contracted procedure: k511 o|contracted procedure: k514 o|contracted procedure: k559 o|contracted procedure: k517 o|contracted procedure: k520 o|contracted procedure: k526 o|contracted procedure: k529 o|contracted procedure: k555 o|contracted procedure: k540 o|contracted procedure: k552 o|contracted procedure: k544 o|contracted procedure: k536 o|contracted procedure: k654 o|contracted procedure: k664 o|contracted procedure: k668 o|contracted procedure: k579 o|contracted procedure: k591 o|contracted procedure: k622 o|contracted procedure: k630 o|contracted procedure: k626 o|contracted procedure: k638 o|contracted procedure: k634 o|contracted procedure: k642 o|contracted procedure: k684 o|simplifications: ((let . 4)) o|removed binding forms: 40 o|inlining procedure: k466 o|inlining procedure: k466 o|replaced variables: 27 o|removed binding forms: 15 o|customizable procedures: (doloop137138 for-each-loop125149 k463) 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-4.12.0/Makefile.solaris���������������������������������������������������������������������0000644�0001750�0001750�00000011151�13052302367�016123� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# Makefile.solaris - configuration for Solaris -*- Makefile -*- # # Copyright (c) 2008-2017, 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_GRP_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 ifdef SYMBOLGC echo "#define C_COLLECT_ALL_SYMBOLS" >>$@ endif cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/srfi-1.c�����������������������������������������������������������������������������0000644�0001750�0001750�00001557105�13052306235�014272� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from srfi-1.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:16 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: srfi-1.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file srfi-1.c unit: srfi_2d1 */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); static C_TLS C_word lf[126]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,15),40,120,99,111,110,115,32,100,54,52,32,97,54,53,41,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,20),40,100,111,108,111,111,112,55,52,32,105,55,54,32,97,110,115,55,55,41,0,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,31),40,109,97,107,101,45,108,105,115,116,32,108,101,110,54,55,32,46,32,109,97,121,98,101,45,101,108,116,54,56,41,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,20),40,100,111,108,111,111,112,56,51,32,105,56,53,32,97,110,115,56,54,41,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,28),40,108,105,115,116,45,116,97,98,117,108,97,116,101,32,108,101,110,56,49,32,112,114,111,99,56,50,41,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,18),40,114,101,99,117,114,32,120,57,51,32,114,101,115,116,57,52,41,0,0,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,24),40,99,111,110,115,42,32,102,105,114,115,116,57,48,32,46,32,114,101,115,116,57,49,41}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,13),40,114,101,99,117,114,32,108,105,115,57,57,41,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,17),40,108,105,115,116,45,99,111,112,121,32,108,105,115,57,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,34),40,100,111,108,111,111,112,49,49,56,32,99,111,117,110,116,49,50,48,32,118,97,108,49,50,49,32,97,110,115,49,50,50,41,0,0,0,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,26),40,98,111,100,121,49,48,54,32,115,116,97,114,116,49,49,53,32,115,116,101,112,49,49,54,41,0,0,0,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,26),40,100,101,102,45,115,116,101,112,49,48,57,32,37,115,116,97,114,116,49,48,52,49,50,55,41,0,0,0,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,14),40,100,101,102,45,115,116,97,114,116,49,48,56,41,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,37),40,105,111,116,97,32,99,111,117,110,116,49,48,50,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,115,116,101,112,49,48,51,41,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,33),40,99,105,114,99,117,108,97,114,45,108,105,115,116,32,118,97,108,49,49,51,54,32,46,32,118,97,108,115,49,51,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,97,103,49,52,53,41,0,0,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,19),40,100,111,116,116,101,100,45,108,105,115,116,63,32,120,49,52,50,41,0,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,97,103,49,53,53,41,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,21),40,99,105,114,99,117,108,97,114,45,108,105,115,116,63,32,120,49,53,50,41,0,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,16),40,110,111,116,45,112,97,105,114,63,32,120,49,54,54,41}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,17),40,110,117,108,108,45,108,105,115,116,63,32,108,49,54,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,17),40,108,112,50,32,108,97,49,56,52,32,108,98,49,56,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,25),40,108,112,49,32,108,105,115,116,45,97,49,55,54,32,111,116,104,101,114,115,49,55,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,23),40,108,105,115,116,61,32,61,49,55,48,32,46,32,108,105,115,116,115,49,55,49,41,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,18),40,108,112,32,108,97,103,49,57,54,32,108,101,110,49,57,55,41,0,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,14),40,108,101,110,103,116,104,43,32,120,49,57,51,41,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,30),40,122,105,112,32,108,105,115,116,49,50,48,54,32,46,32,109,111,114,101,45,108,105,115,116,115,50,48,55,41,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,12),40,102,105,102,116,104,32,120,50,49,51,41,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,12),40,115,105,120,116,104,32,120,50,49,53,41,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,14),40,115,101,118,101,110,116,104,32,120,50,49,55,41,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,13),40,101,105,103,104,116,104,32,120,50,49,57,41,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,12),40,110,105,110,116,104,32,120,50,50,49,41,0,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,12),40,116,101,110,116,104,32,120,50,50,51,41,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,17),40,99,97,114,43,99,100,114,32,112,97,105,114,50,50,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,19),40,114,101,99,117,114,32,108,105,115,50,51,49,32,107,50,51,50,41,0,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,18),40,116,97,107,101,32,108,105,115,50,50,56,32,107,50,50,57,41,0,0,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,11),40,105,116,101,114,32,107,50,52,48,41,0,0,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,18),40,100,114,111,112,32,108,105,115,50,51,54,32,107,50,51,55,41,0,0,0,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,19),40,116,97,107,101,33,32,108,105,115,50,52,52,32,107,50,52,53,41,0,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,12),40,108,112,32,108,101,97,100,50,53,51,41,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,24),40,116,97,107,101,45,114,105,103,104,116,32,108,105,115,50,52,57,32,107,50,53,48,41}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,22),40,114,101,99,117,114,32,108,97,103,50,53,57,32,108,101,97,100,50,54,48,41,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,24),40,100,114,111,112,45,114,105,103,104,116,32,108,105,115,50,53,54,32,107,50,53,55,41}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,12),40,108,112,32,108,101,97,100,50,54,56,41,0,0,0,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,25),40,100,114,111,112,45,114,105,103,104,116,33,32,108,105,115,50,54,51,32,107,50,54,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,7),40,97,50,54,54,52,41,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,27),40,97,50,54,55,56,32,112,114,101,102,105,120,50,55,55,32,115,117,102,102,105,120,50,55,56,41,0,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,19),40,114,101,99,117,114,32,108,105,115,50,55,53,32,107,50,55,54,41,0,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,20),40,115,112,108,105,116,45,97,116,32,120,50,55,50,32,107,50,55,51,41,0,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,21),40,115,112,108,105,116,45,97,116,33,32,120,50,56,50,32,107,50,56,51,41,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,13),40,108,97,115,116,32,108,105,115,50,56,57,41,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,18),40,108,97,115,116,45,112,97,105,114,32,108,105,115,50,57,49,41,0,0,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,51,48,48,32,103,51,49,50,51,49,56,41,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,15),40,117,110,122,105,112,49,32,108,105,115,50,57,55,41,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,7),40,97,50,56,50,54,41,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,17),40,97,50,56,51,54,32,97,51,50,57,32,98,51,51,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,14),40,114,101,99,117,114,32,108,105,115,51,50,55,41,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,15),40,117,110,122,105,112,50,32,108,105,115,51,50,53,41,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,7),40,97,50,56,56,50,41,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,22),40,97,50,56,57,50,32,97,51,51,55,32,98,51,51,56,32,99,51,51,57,41,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,14),40,114,101,99,117,114,32,108,105,115,51,51,53,41,0,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,15),40,117,110,122,105,112,51,32,108,105,115,51,51,51,41,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,7),40,97,50,57,52,54,41,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,27),40,97,50,57,53,54,32,97,51,52,54,32,98,51,52,55,32,99,51,52,56,32,100,51,52,57,41,0,0,0,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,14),40,114,101,99,117,114,32,108,105,115,51,52,52,41,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,15),40,117,110,122,105,112,52,32,108,105,115,51,52,50,41,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,7),40,97,51,48,49,56,41,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,32),40,97,51,48,50,56,32,97,51,53,54,32,98,51,53,55,32,99,51,53,56,32,100,51,53,57,32,101,51,54,48,41}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,14),40,114,101,99,117,114,32,108,105,115,51,53,52,41,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,15),40,117,110,122,105,112,53,32,108,105,115,51,53,50,41,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,26),40,108,112,50,32,116,97,105,108,45,99,111,110,115,51,55,48,32,114,101,115,116,51,55,49,41,0,0,0,0,0,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,21),40,108,112,32,108,105,115,116,115,51,54,53,32,112,114,101,118,51,54,54,41,0,0,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,20),40,97,112,112,101,110,100,33,32,46,32,108,105,115,116,115,51,54,51,41,0,0,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,24),40,108,112,32,114,101,118,45,104,101,97,100,51,56,49,32,116,97,105,108,51,56,50,41}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,36),40,97,112,112,101,110,100,45,114,101,118,101,114,115,101,32,114,101,118,45,104,101,97,100,51,55,56,32,116,97,105,108,51,55,57,41,0,0,0,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,12),40,108,112,32,116,97,105,108,51,56,57,41,0,0,0,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,37),40,97,112,112,101,110,100,45,114,101,118,101,114,115,101,33,32,114,101,118,45,104,101,97,100,51,56,53,32,116,97,105,108,51,56,54,41,0,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,22),40,99,111,110,99,97,116,101,110,97,116,101,32,108,105,115,116,115,51,57,52,41,0,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,23),40,99,111,110,99,97,116,101,110,97,116,101,33,32,108,105,115,116,115,51,57,54,41,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,16),40,114,101,99,117,114,32,108,105,115,116,115,52,48,49,41}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,16),40,97,51,50,50,48,32,97,98,111,114,116,51,57,57,41}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,23),40,35,35,115,114,102,105,49,35,99,100,114,115,32,108,105,115,116,115,51,57,56,41,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,7),40,97,51,51,49,51,41,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,7),40,97,51,51,51,52,41,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,7),40,97,51,51,52,54,41,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,23),40,97,51,51,53,50,32,99,97,114,115,52,49,57,32,99,100,114,115,52,50,48,41,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,17),40,97,51,51,52,48,32,97,52,49,55,32,100,52,49,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,30),40,97,51,51,49,57,32,108,105,115,116,52,49,53,32,111,116,104,101,114,45,108,105,115,116,115,52,49,54,41,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,16),40,114,101,99,117,114,32,108,105,115,116,115,52,49,52,41}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,16),40,97,51,50,57,53,32,97,98,111,114,116,52,49,50,41}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,28),40,35,35,115,114,102,105,49,35,99,97,114,115,43,99,100,114,115,32,108,105,115,116,115,52,49,49,41,0,0,0,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,7),40,97,51,53,52,50,41,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,19),40,97,51,53,52,56,32,97,115,52,53,52,32,100,115,52,53,53,41,0,0,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,27),40,108,112,32,108,105,115,116,49,52,53,49,32,108,105,115,116,115,52,53,50,32,105,52,53,51,41,0,0,0,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,16),40,108,112,32,108,105,115,52,53,56,32,105,52,53,57,41}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,35),40,99,111,117,110,116,32,112,114,101,100,52,52,55,32,108,105,115,116,49,52,52,56,32,46,32,108,105,115,116,115,52,52,57,41,0,0,0,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,19),40,108,112,32,115,101,101,100,52,54,56,32,97,110,115,52,54,57,41,0,0,0,0,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,53),40,117,110,102,111,108,100,45,114,105,103,104,116,32,112,52,54,50,32,102,52,54,51,32,103,52,54,52,32,115,101,101,100,52,54,53,32,46,32,109,97,121,98,101,45,116,97,105,108,52,54,54,41,0,0,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,15),40,114,101,99,117,114,32,115,101,101,100,52,56,51,41,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,15),40,114,101,99,117,114,32,115,101,101,100,52,56,54,41,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,51),40,117,110,102,111,108,100,32,112,52,55,54,32,102,52,55,55,32,103,52,55,56,32,115,101,101,100,52,55,57,32,46,32,109,97,121,98,101,45,116,97,105,108,45,103,101,110,52,56,48,41,0,0,0,0,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,7),40,97,51,51,57,51,41,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,7),40,97,51,52,49,52,41,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,7),40,97,51,52,50,54,41,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,23),40,97,51,52,51,50,32,99,97,114,115,52,51,50,32,99,100,114,115,52,51,51,41,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,17),40,97,51,52,50,48,32,97,52,51,48,32,100,52,51,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,30),40,97,51,51,57,57,32,108,105,115,116,52,50,56,32,111,116,104,101,114,45,108,105,115,116,115,52,50,57,41,0,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,16),40,114,101,99,117,114,32,108,105,115,116,115,52,50,55,41}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,16),40,97,51,51,55,53,32,97,98,111,114,116,52,50,53,41}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,7),40,97,51,55,52,55,41,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,27),40,97,51,55,53,51,32,99,97,114,115,43,97,110,115,52,57,54,32,99,100,114,115,52,57,55,41,0,0,0,0,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,20),40,108,112,32,108,105,115,116,115,52,57,52,32,97,110,115,52,57,53,41,0,0,0,0}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,18),40,108,112,32,108,105,115,53,48,48,32,97,110,115,53,48,49,41,0,0,0,0,0,0}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,41),40,102,111,108,100,32,107,111,110,115,52,56,57,32,107,110,105,108,52,57,48,32,108,105,115,49,52,57,49,32,46,32,108,105,115,116,115,52,57,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,16),40,114,101,99,117,114,32,108,105,115,116,115,52,48,56,41}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,16),40,114,101,99,117,114,32,108,105,115,116,115,53,48,57,41}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,14),40,114,101,99,117,114,32,108,105,115,53,49,51,41,0,0}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,47),40,102,111,108,100,45,114,105,103,104,116,32,107,111,110,115,53,48,52,32,107,110,105,108,53,48,53,32,108,105,115,49,53,48,54,32,46,32,108,105,115,116,115,53,48,55,41,0}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,16),40,114,101,99,117,114,32,108,105,115,116,115,53,50,50,41}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,14),40,114,101,99,117,114,32,108,105,115,53,50,54,41,0,0}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,49),40,112,97,105,114,45,102,111,108,100,45,114,105,103,104,116,32,102,53,49,55,32,122,101,114,111,53,49,56,32,108,105,115,49,53,49,57,32,46,32,108,105,115,116,115,53,50,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,20),40,108,112,32,108,105,115,116,115,53,51,52,32,97,110,115,53,51,53,41,0,0,0,0}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,18),40,108,112,32,108,105,115,53,51,57,32,97,110,115,53,52,48,41,0,0,0,0,0,0}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,43),40,112,97,105,114,45,102,111,108,100,32,102,53,50,57,32,122,101,114,111,53,51,48,32,108,105,115,49,53,51,49,32,46,32,108,105,115,116,115,53,51,50,41,0,0,0,0,0}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,33),40,114,101,100,117,99,101,32,102,53,52,52,32,114,105,100,101,110,116,105,116,121,53,52,53,32,108,105,115,53,52,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,22),40,114,101,99,117,114,32,104,101,97,100,53,53,50,32,108,105,115,53,53,51,41,0,0}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,39),40,114,101,100,117,99,101,45,114,105,103,104,116,32,102,53,52,56,32,114,105,100,101,110,116,105,116,121,53,52,57,32,108,105,115,53,53,48,41,0}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,36),40,97,112,112,101,110,100,45,109,97,112,32,102,53,53,54,32,108,105,115,49,53,53,55,32,46,32,108,105,115,116,115,53,53,56,41,0,0,0,0}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,37),40,97,112,112,101,110,100,45,109,97,112,33,32,102,53,54,48,32,108,105,115,49,53,54,49,32,46,32,108,105,115,116,115,53,54,50,41,0,0,0}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,7),40,97,52,48,54,56,41,0}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,7),40,97,52,48,57,57,41,0}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,25),40,97,52,49,48,53,32,99,97,114,115,50,53,55,53,32,99,100,114,115,50,53,55,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,23),40,114,101,99,117,114,32,99,97,114,115,53,55,50,32,99,100,114,115,53,55,51,41,0}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,23),40,97,52,48,55,56,32,99,97,114,115,53,54,57,32,99,100,114,115,53,55,48,41,0}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,22),40,114,101,99,117,114,32,101,108,116,53,55,57,32,114,101,115,116,53,56,48,41,0,0}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,61),40,35,35,115,114,102,105,49,35,114,101,97,108,108,121,45,97,112,112,101,110,100,45,109,97,112,32,97,112,112,101,110,100,101,114,53,54,53,32,102,53,54,54,32,108,105,115,49,53,54,55,32,108,105,115,116,115,53,54,56,41,0,0,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,13),40,108,112,32,108,105,115,116,115,53,56,56,41,0,0,0}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,105,115,53,57,51,41,0,0,0,0,0}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,42),40,112,97,105,114,45,102,111,114,45,101,97,99,104,32,112,114,111,99,53,56,52,32,108,105,115,49,53,56,53,32,46,32,108,105,115,116,115,53,56,54,41,0,0,0,0,0,0}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,7),40,97,51,52,55,49,41,0}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,7),40,97,51,52,56,51,41,0}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,7),40,97,51,52,57,53,41,0}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,23),40,97,51,53,48,49,32,99,97,114,115,52,52,51,32,99,100,114,115,52,52,52,41,0}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,17),40,97,51,52,56,57,32,97,52,52,49,32,100,52,52,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,30),40,97,51,52,55,55,32,108,105,115,116,52,51,57,32,111,116,104,101,114,45,108,105,115,116,115,52,52,48,41,0,0}; static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,16),40,114,101,99,117,114,32,108,105,115,116,115,52,51,56,41}; static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,7),40,97,52,50,52,52,41,0}; static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,25),40,97,52,50,53,48,32,104,101,97,100,115,54,48,52,32,116,97,105,108,115,54,48,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,21),40,108,112,32,108,105,115,49,54,48,50,32,108,105,115,116,115,54,48,51,41,0,0,0}; static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,15),40,97,52,50,55,54,32,112,97,105,114,54,48,56,41,0}; static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,30),40,109,97,112,33,32,102,53,57,56,32,108,105,115,49,53,57,57,32,46,32,108,105,115,116,115,54,48,48,41,0,0}; static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,7),40,97,52,51,49,50,41,0}; static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,11),40,103,54,50,52,32,120,54,50,54,41,0,0,0,0,0}; static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,23),40,97,52,51,49,56,32,99,97,114,115,54,49,54,32,99,100,114,115,54,49,55,41,0}; static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,16),40,114,101,99,117,114,32,108,105,115,116,115,54,49,53,41}; static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,6),40,103,54,51,55,41,0,0}; static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,14),40,114,101,99,117,114,32,108,105,115,54,50,57,41,0,0}; static C_char C_TLS li158[] C_aligned={C_lihdr(0,0,36),40,102,105,108,116,101,114,45,109,97,112,32,102,54,49,49,32,108,105,115,49,54,49,50,32,46,32,108,105,115,116,115,54,49,51,41,0,0,0,0}; static C_char C_TLS li159[] C_aligned={C_lihdr(0,0,7),40,97,52,52,48,53,41,0}; static C_char C_TLS li160[] C_aligned={C_lihdr(0,0,23),40,97,52,52,49,49,32,99,97,114,115,54,52,55,32,99,100,114,115,54,52,56,41,0}; static C_char C_TLS li161[] C_aligned={C_lihdr(0,0,16),40,114,101,99,117,114,32,108,105,115,116,115,54,52,54,41}; static C_char C_TLS li162[] C_aligned={C_lihdr(0,0,14),40,114,101,99,117,114,32,108,105,115,54,53,50,41,0,0}; static C_char C_TLS li163[] C_aligned={C_lihdr(0,0,38),40,109,97,112,45,105,110,45,111,114,100,101,114,32,102,54,52,50,32,108,105,115,49,54,52,51,32,46,32,108,105,115,116,115,54,52,52,41,0,0}; static C_char C_TLS li164[] C_aligned={C_lihdr(0,0,14),40,114,101,99,117,114,32,108,105,115,54,54,49,41,0,0}; static C_char C_TLS li165[] C_aligned={C_lihdr(0,0,23),40,102,105,108,116,101,114,32,112,114,101,100,54,53,56,32,108,105,115,54,53,57,41,0}; static C_char C_TLS li166[] C_aligned={C_lihdr(0,0,27),40,115,99,97,110,45,105,110,54,55,53,32,112,114,101,118,54,56,49,32,108,105,115,54,56,50,41,0,0,0,0,0}; static C_char C_TLS li167[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,105,115,54,56,54,41,0,0,0,0,0}; static C_char C_TLS li168[] C_aligned={C_lihdr(0,0,28),40,115,99,97,110,45,111,117,116,54,55,54,32,112,114,101,118,54,56,51,32,108,105,115,54,56,52,41,0,0,0,0}; static C_char C_TLS li169[] C_aligned={C_lihdr(0,0,11),40,108,112,32,97,110,115,54,55,48,41,0,0,0,0,0}; static C_char C_TLS li170[] C_aligned={C_lihdr(0,0,24),40,102,105,108,116,101,114,33,32,112,114,101,100,54,54,55,32,108,105,115,54,54,56,41}; static C_char C_TLS li171[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,55,48,48,32,108,115,116,55,48,50,41,0,0,0,0,0,0}; static C_char C_TLS li172[] C_aligned={C_lihdr(0,0,26),40,112,97,114,116,105,116,105,111,110,32,112,114,101,100,54,57,52,32,108,115,116,54,57,53,41,0,0,0,0,0,0}; static C_char C_TLS li173[] C_aligned={C_lihdr(0,0,22),40,108,112,32,105,110,45,112,114,101,118,55,50,51,32,108,105,115,55,50,52,41,0,0}; static C_char C_TLS li174[] C_aligned={C_lihdr(0,0,42),40,115,99,97,110,45,105,110,55,49,51,32,105,110,45,112,114,101,118,55,49,57,32,111,117,116,45,112,114,101,118,55,50,48,32,108,105,115,55,50,49,41,0,0,0,0,0,0}; static C_char C_TLS li175[] C_aligned={C_lihdr(0,0,23),40,108,112,32,111,117,116,45,112,114,101,118,55,51,49,32,108,105,115,55,51,50,41,0}; static C_char C_TLS li176[] C_aligned={C_lihdr(0,0,43),40,115,99,97,110,45,111,117,116,55,49,52,32,105,110,45,112,114,101,118,55,50,55,32,111,117,116,45,112,114,101,118,55,50,56,32,108,105,115,55,50,57,41,0,0,0,0,0}; static C_char C_TLS li177[] C_aligned={C_lihdr(0,0,19),40,108,112,32,112,114,101,118,45,108,55,51,54,32,108,55,51,55,41,0,0,0,0,0}; static C_char C_TLS li178[] C_aligned={C_lihdr(0,0,19),40,108,112,32,112,114,101,118,45,108,55,52,53,32,108,55,52,54,41,0,0,0,0,0}; static C_char C_TLS li179[] C_aligned={C_lihdr(0,0,27),40,112,97,114,116,105,116,105,111,110,33,32,112,114,101,100,55,49,49,32,108,105,115,55,49,50,41,0,0,0,0,0}; static C_char C_TLS li180[] C_aligned={C_lihdr(0,0,12),40,97,52,56,54,49,32,120,55,53,56,41,0,0,0,0}; static C_char C_TLS li181[] C_aligned={C_lihdr(0,0,21),40,114,101,109,111,118,101,32,112,114,101,100,55,53,54,32,108,55,53,55,41,0,0,0}; static C_char C_TLS li182[] C_aligned={C_lihdr(0,0,12),40,97,52,56,55,55,32,120,55,54,50,41,0,0,0,0}; static C_char C_TLS li183[] C_aligned={C_lihdr(0,0,22),40,114,101,109,111,118,101,33,32,112,114,101,100,55,54,48,32,108,55,54,49,41,0,0}; static C_char C_TLS li184[] C_aligned={C_lihdr(0,0,12),40,97,52,56,57,54,32,121,55,55,50,41,0,0,0,0}; static C_char C_TLS li185[] C_aligned={C_lihdr(0,0,33),40,100,101,108,101,116,101,32,120,55,54,52,32,108,105,115,55,54,53,32,46,32,109,97,121,98,101,45,61,55,54,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li186[] C_aligned={C_lihdr(0,0,12),40,97,52,57,50,49,32,121,55,56,50,41,0,0,0,0}; static C_char C_TLS li187[] C_aligned={C_lihdr(0,0,34),40,100,101,108,101,116,101,33,32,120,55,55,52,32,108,105,115,55,55,53,32,46,32,109,97,121,98,101,45,61,55,55,54,41,0,0,0,0,0,0}; static C_char C_TLS li188[] C_aligned={C_lihdr(0,0,12),40,97,52,57,52,54,32,121,55,57,50,41,0,0,0,0}; static C_char C_TLS li189[] C_aligned={C_lihdr(0,0,33),40,109,101,109,98,101,114,32,120,55,56,52,32,108,105,115,55,56,53,32,46,32,109,97,121,98,101,45,61,55,56,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li190[] C_aligned={C_lihdr(0,0,14),40,114,101,99,117,114,32,108,105,115,56,48,50,41,0,0}; static C_char C_TLS li191[] C_aligned={C_lihdr(0,0,39),40,100,101,108,101,116,101,45,100,117,112,108,105,99,97,116,101,115,32,108,105,115,55,57,52,32,46,32,109,97,121,98,101,45,61,55,57,53,41,0}; static C_char C_TLS li192[] C_aligned={C_lihdr(0,0,14),40,114,101,99,117,114,32,108,105,115,56,49,54,41,0,0}; static C_char C_TLS li193[] C_aligned={C_lihdr(0,0,40),40,100,101,108,101,116,101,45,100,117,112,108,105,99,97,116,101,115,33,32,108,105,115,56,48,56,32,46,32,109,97,121,98,101,45,61,56,48,57,41}; static C_char C_TLS li194[] C_aligned={C_lihdr(0,0,16),40,97,53,48,53,53,32,101,110,116,114,121,56,51,48,41}; static C_char C_TLS li195[] C_aligned={C_lihdr(0,0,32),40,97,115,115,111,99,32,120,56,50,50,32,108,105,115,56,50,51,32,46,32,109,97,121,98,101,45,61,56,50,52,41}; static C_char C_TLS li196[] C_aligned={C_lihdr(0,0,37),40,97,108,105,115,116,45,99,111,110,115,32,107,101,121,56,51,50,32,100,97,116,117,109,56,51,51,32,97,108,105,115,116,56,51,52,41,0,0,0}; static C_char C_TLS li197[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,56,51,57,32,103,56,53,49,56,53,56,41,0,0,0}; static C_char C_TLS li198[] C_aligned={C_lihdr(0,0,21),40,97,108,105,115,116,45,99,111,112,121,32,97,108,105,115,116,56,51,54,41,0,0,0}; static C_char C_TLS li199[] C_aligned={C_lihdr(0,0,14),40,97,53,49,52,55,32,101,108,116,56,55,51,41,0,0}; static C_char C_TLS li200[] C_aligned={C_lihdr(0,0,43),40,97,108,105,115,116,45,100,101,108,101,116,101,32,107,101,121,56,54,53,32,97,108,105,115,116,56,54,54,32,46,32,109,97,121,98,101,45,61,56,54,55,41,0,0,0,0,0}; static C_char C_TLS li201[] C_aligned={C_lihdr(0,0,14),40,97,53,49,55,54,32,101,108,116,56,56,51,41,0,0}; static C_char C_TLS li202[] C_aligned={C_lihdr(0,0,44),40,97,108,105,115,116,45,100,101,108,101,116,101,33,32,107,101,121,56,55,53,32,97,108,105,115,116,56,55,54,32,46,32,109,97,121,98,101,45,61,56,55,55,41,0,0,0,0}; static C_char C_TLS li203[] C_aligned={C_lihdr(0,0,22),40,102,105,110,100,32,112,114,101,100,56,56,53,32,108,105,115,116,56,56,54,41,0,0}; static C_char C_TLS li204[] C_aligned={C_lihdr(0,0,12),40,108,112,32,108,105,115,116,56,57,55,41,0,0,0,0}; static C_char C_TLS li205[] C_aligned={C_lihdr(0,0,27),40,102,105,110,100,45,116,97,105,108,32,112,114,101,100,56,57,52,32,108,105,115,116,56,57,53,41,0,0,0,0,0}; static C_char C_TLS li206[] C_aligned={C_lihdr(0,0,14),40,114,101,99,117,114,32,108,105,115,57,48,52,41,0,0}; static C_char C_TLS li207[] C_aligned={C_lihdr(0,0,27),40,116,97,107,101,45,119,104,105,108,101,32,112,114,101,100,57,48,49,32,108,105,115,57,48,50,41,0,0,0,0,0}; static C_char C_TLS li208[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,105,115,57,49,49,41,0,0,0,0,0}; static C_char C_TLS li209[] C_aligned={C_lihdr(0,0,27),40,100,114,111,112,45,119,104,105,108,101,32,112,114,101,100,57,48,56,32,108,105,115,57,48,57,41,0,0,0,0,0}; static C_char C_TLS li210[] C_aligned={C_lihdr(0,0,20),40,108,112,32,112,114,101,118,57,50,48,32,114,101,115,116,57,50,49,41,0,0,0,0}; static C_char C_TLS li211[] C_aligned={C_lihdr(0,0,28),40,116,97,107,101,45,119,104,105,108,101,33,32,112,114,101,100,57,49,52,32,108,105,115,57,49,53,41,0,0,0,0}; static C_char C_TLS li212[] C_aligned={C_lihdr(0,0,7),40,97,53,51,56,57,41,0}; static C_char C_TLS li213[] C_aligned={C_lihdr(0,0,27),40,97,53,51,57,57,32,112,114,101,102,105,120,57,51,49,32,115,117,102,102,105,120,57,51,50,41,0,0,0,0,0}; static C_char C_TLS li214[] C_aligned={C_lihdr(0,0,14),40,114,101,99,117,114,32,108,105,115,57,50,57,41,0,0}; static C_char C_TLS li215[] C_aligned={C_lihdr(0,0,21),40,115,112,97,110,32,112,114,101,100,57,50,54,32,108,105,115,57,50,55,41,0,0,0}; static C_char C_TLS li216[] C_aligned={C_lihdr(0,0,20),40,108,112,32,112,114,101,118,57,52,50,32,114,101,115,116,57,52,51,41,0,0,0,0}; static C_char C_TLS li217[] C_aligned={C_lihdr(0,0,22),40,115,112,97,110,33,32,112,114,101,100,57,51,53,32,108,105,115,57,51,54,41,0,0}; static C_char C_TLS li218[] C_aligned={C_lihdr(0,0,12),40,97,53,52,56,48,32,120,57,53,48,41,0,0,0,0}; static C_char C_TLS li219[] C_aligned={C_lihdr(0,0,22),40,98,114,101,97,107,32,112,114,101,100,57,52,56,32,108,105,115,57,52,57,41,0,0}; static C_char C_TLS li220[] C_aligned={C_lihdr(0,0,12),40,97,53,52,57,54,32,120,57,53,52,41,0,0,0,0}; static C_char C_TLS li221[] C_aligned={C_lihdr(0,0,23),40,98,114,101,97,107,33,32,112,114,101,100,57,53,50,32,108,105,115,57,53,51,41,0}; static C_char C_TLS li222[] C_aligned={C_lihdr(0,0,7),40,97,53,53,49,56,41,0}; static C_char C_TLS li223[] C_aligned={C_lihdr(0,0,7),40,97,53,53,52,54,41,0}; static C_char C_TLS li224[] C_aligned={C_lihdr(0,0,35),40,97,53,53,53,50,32,110,101,120,116,45,104,101,97,100,115,57,54,53,32,110,101,120,116,45,116,97,105,108,115,57,54,54,41,0,0,0,0,0}; static C_char C_TLS li225[] C_aligned={C_lihdr(0,0,22),40,108,112,32,104,101,97,100,115,57,54,51,32,116,97,105,108,115,57,54,52,41,0,0}; static C_char C_TLS li226[] C_aligned={C_lihdr(0,0,25),40,97,53,53,50,56,32,104,101,97,100,115,57,53,57,32,116,97,105,108,115,57,54,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li227[] C_aligned={C_lihdr(0,0,20),40,108,112,32,104,101,97,100,57,55,51,32,116,97,105,108,57,55,52,41,0,0,0,0}; static C_char C_TLS li228[] C_aligned={C_lihdr(0,0,32),40,97,110,121,32,112,114,101,100,57,53,54,32,108,105,115,49,57,53,55,32,46,32,108,105,115,116,115,57,53,56,41}; static C_char C_TLS li229[] C_aligned={C_lihdr(0,0,7),40,97,53,54,51,49,41,0}; static C_char C_TLS li230[] C_aligned={C_lihdr(0,0,7),40,97,53,54,53,57,41,0}; static C_char C_TLS li231[] C_aligned={C_lihdr(0,0,35),40,97,53,54,54,53,32,110,101,120,116,45,104,101,97,100,115,57,57,49,32,110,101,120,116,45,116,97,105,108,115,57,57,50,41,0,0,0,0,0}; static C_char C_TLS li232[] C_aligned={C_lihdr(0,0,22),40,108,112,32,104,101,97,100,115,57,56,57,32,116,97,105,108,115,57,57,48,41,0,0}; static C_char C_TLS li233[] C_aligned={C_lihdr(0,0,25),40,97,53,54,52,49,32,104,101,97,100,115,57,56,51,32,116,97,105,108,115,57,56,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li234[] C_aligned={C_lihdr(0,0,21),40,108,112,32,104,101,97,100,57,57,57,32,116,97,105,108,49,48,48,48,41,0,0,0}; static C_char C_TLS li235[] C_aligned={C_lihdr(0,0,34),40,101,118,101,114,121,32,112,114,101,100,57,56,48,32,108,105,115,49,57,56,49,32,46,32,108,105,115,116,115,57,56,50,41,0,0,0,0,0,0}; static C_char C_TLS li236[] C_aligned={C_lihdr(0,0,7),40,97,53,55,53,52,41,0}; static C_char C_TLS li237[] C_aligned={C_lihdr(0,0,27),40,97,53,55,54,48,32,104,101,97,100,115,49,48,49,48,32,116,97,105,108,115,49,48,49,49,41,0,0,0,0,0}; static C_char C_TLS li238[] C_aligned={C_lihdr(0,0,20),40,108,112,32,108,105,115,116,115,49,48,48,56,32,110,49,48,48,57,41,0,0,0,0}; static C_char C_TLS li239[] C_aligned={C_lihdr(0,0,18),40,108,112,32,108,105,115,49,48,49,53,32,110,49,48,49,54,41,0,0,0,0,0,0}; static C_char C_TLS li240[] C_aligned={C_lihdr(0,0,42),40,108,105,115,116,45,105,110,100,101,120,32,112,114,101,100,49,48,48,52,32,108,105,115,49,49,48,48,53,32,46,32,108,105,115,116,115,49,48,48,54,41,0,0,0,0,0,0}; static C_char C_TLS li241[] C_aligned={C_lihdr(0,0,12),40,108,112,32,97,110,115,49,48,50,51,41,0,0,0,0}; static C_char C_TLS li242[] C_aligned={C_lihdr(0,0,18),40,114,101,118,101,114,115,101,33,32,108,105,115,49,48,50,48,41,0,0,0,0,0,0}; static C_char C_TLS li243[] C_aligned={C_lihdr(0,0,13),40,97,53,56,52,57,32,120,49,48,51,49,41,0,0,0}; static C_char C_TLS li244[] C_aligned={C_lihdr(0,0,41),40,35,35,115,114,102,105,49,35,108,115,101,116,50,60,61,32,61,49,48,50,56,32,108,105,115,49,49,48,50,57,32,108,105,115,50,49,48,51,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li245[] C_aligned={C_lihdr(0,0,20),40,108,112,32,115,49,49,48,51,57,32,114,101,115,116,49,48,52,48,41,0,0,0,0}; static C_char C_TLS li246[] C_aligned={C_lihdr(0,0,26),40,108,115,101,116,60,61,32,61,49,48,51,51,32,46,32,108,105,115,116,115,49,48,51,52,41,0,0,0,0,0,0}; static C_char C_TLS li247[] C_aligned={C_lihdr(0,0,20),40,108,112,32,115,49,49,48,53,57,32,114,101,115,116,49,48,54,48,41,0,0,0,0}; static C_char C_TLS li248[] C_aligned={C_lihdr(0,0,25),40,108,115,101,116,61,32,61,49,48,53,51,32,46,32,108,105,115,116,115,49,48,53,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li249[] C_aligned={C_lihdr(0,0,23),40,97,53,57,56,52,32,101,108,116,49,48,55,55,32,97,110,115,49,48,55,56,41,0}; static C_char C_TLS li250[] C_aligned={C_lihdr(0,0,38),40,108,115,101,116,45,97,100,106,111,105,110,32,61,49,48,55,52,32,108,105,115,49,48,55,53,32,46,32,101,108,116,115,49,48,55,54,41,0,0}; static C_char C_TLS li251[] C_aligned={C_lihdr(0,0,13),40,97,54,48,52,49,32,120,49,48,57,49,41,0,0,0}; static C_char C_TLS li252[] C_aligned={C_lihdr(0,0,23),40,97,54,48,50,57,32,101,108,116,49,48,56,57,32,97,110,115,49,48,57,48,41,0}; static C_char C_TLS li253[] C_aligned={C_lihdr(0,0,23),40,97,54,48,48,53,32,108,105,115,49,48,56,51,32,97,110,115,49,48,56,52,41,0}; static C_char C_TLS li254[] C_aligned={C_lihdr(0,0,30),40,108,115,101,116,45,117,110,105,111,110,32,61,49,48,56,49,32,46,32,108,105,115,116,115,49,48,56,50,41,0,0}; static C_char C_TLS li255[] C_aligned={C_lihdr(0,0,13),40,97,54,48,57,55,32,120,49,49,48,53,41,0,0,0}; static C_char C_TLS li256[] C_aligned={C_lihdr(0,0,24),40,97,54,48,56,48,32,112,97,105,114,49,49,48,50,32,97,110,115,49,49,48,51,41}; static C_char C_TLS li257[] C_aligned={C_lihdr(0,0,23),40,97,54,48,53,54,32,108,105,115,49,48,57,54,32,97,110,115,49,48,57,55,41,0}; static C_char C_TLS li258[] C_aligned={C_lihdr(0,0,31),40,108,115,101,116,45,117,110,105,111,110,33,32,61,49,48,57,52,32,46,32,108,105,115,116,115,49,48,57,53,41,0}; static C_char C_TLS li259[] C_aligned={C_lihdr(0,0,15),40,97,54,49,51,51,32,108,105,115,49,49,49,56,41,0}; static C_char C_TLS li260[] C_aligned={C_lihdr(0,0,13),40,97,54,49,50,55,32,120,49,49,49,55,41,0,0,0}; static C_char C_TLS li261[] C_aligned={C_lihdr(0,0,46),40,108,115,101,116,45,105,110,116,101,114,115,101,99,116,105,111,110,32,61,49,49,48,57,32,108,105,115,49,49,49,49,48,32,46,32,108,105,115,116,115,49,49,49,49,41,0,0}; static C_char C_TLS li262[] C_aligned={C_lihdr(0,0,15),40,97,54,49,54,57,32,108,105,115,49,49,51,48,41,0}; static C_char C_TLS li263[] C_aligned={C_lihdr(0,0,13),40,97,54,49,54,51,32,120,49,49,50,57,41,0,0,0}; static C_char C_TLS li264[] C_aligned={C_lihdr(0,0,47),40,108,115,101,116,45,105,110,116,101,114,115,101,99,116,105,111,110,33,32,61,49,49,50,49,32,108,105,115,49,49,49,50,50,32,46,32,108,105,115,116,115,49,49,50,51,41,0}; static C_char C_TLS li265[] C_aligned={C_lihdr(0,0,15),40,97,54,50,48,52,32,108,105,115,49,49,52,50,41,0}; static C_char C_TLS li266[] C_aligned={C_lihdr(0,0,13),40,97,54,49,57,56,32,120,49,49,52,49,41,0,0,0}; static C_char C_TLS li267[] C_aligned={C_lihdr(0,0,44),40,108,115,101,116,45,100,105,102,102,101,114,101,110,99,101,32,61,49,49,51,51,32,108,105,115,49,49,49,51,52,32,46,32,108,105,115,116,115,49,49,51,53,41,0,0,0,0}; static C_char C_TLS li268[] C_aligned={C_lihdr(0,0,15),40,97,54,50,52,51,32,108,105,115,49,49,53,52,41,0}; static C_char C_TLS li269[] C_aligned={C_lihdr(0,0,13),40,97,54,50,51,55,32,120,49,49,53,51,41,0,0,0}; static C_char C_TLS li270[] C_aligned={C_lihdr(0,0,45),40,108,115,101,116,45,100,105,102,102,101,114,101,110,99,101,33,32,61,49,49,52,53,32,108,105,115,49,49,49,52,54,32,46,32,108,105,115,116,115,49,49,52,55,41,0,0,0}; static C_char C_TLS li271[] C_aligned={C_lihdr(0,0,7),40,97,54,50,54,56,41,0}; static C_char C_TLS li272[] C_aligned={C_lihdr(0,0,22),40,97,54,50,57,56,32,120,98,49,49,54,55,32,97,110,115,49,49,54,56,41,0,0}; static C_char C_TLS li273[] C_aligned={C_lihdr(0,0,27),40,97,54,50,55,52,32,97,45,98,49,49,54,49,32,97,45,105,110,116,45,98,49,49,54,50,41,0,0,0,0,0}; static C_char C_TLS li274[] C_aligned={C_lihdr(0,0,19),40,97,54,50,54,50,32,98,49,49,53,57,32,97,49,49,54,48,41,0,0,0,0,0}; static C_char C_TLS li275[] C_aligned={C_lihdr(0,0,28),40,108,115,101,116,45,120,111,114,32,61,49,49,53,55,32,46,32,108,105,115,116,115,49,49,53,56,41,0,0,0,0}; static C_char C_TLS li276[] C_aligned={C_lihdr(0,0,7),40,97,54,51,50,53,41,0}; static C_char C_TLS li277[] C_aligned={C_lihdr(0,0,26),40,97,54,51,53,53,32,98,45,112,97,105,114,49,49,56,49,32,97,110,115,49,49,56,50,41,0,0,0,0,0,0}; static C_char C_TLS li278[] C_aligned={C_lihdr(0,0,27),40,97,54,51,51,49,32,97,45,98,49,49,55,53,32,97,45,105,110,116,45,98,49,49,55,54,41,0,0,0,0,0}; static C_char C_TLS li279[] C_aligned={C_lihdr(0,0,19),40,97,54,51,49,57,32,98,49,49,55,51,32,97,49,49,55,52,41,0,0,0,0,0}; static C_char C_TLS li280[] C_aligned={C_lihdr(0,0,29),40,108,115,101,116,45,120,111,114,33,32,61,49,49,55,49,32,46,32,108,105,115,116,115,49,49,55,50,41,0,0,0}; static C_char C_TLS li281[] C_aligned={C_lihdr(0,0,15),40,97,54,52,48,57,32,108,105,115,49,49,57,52,41,0}; static C_char C_TLS li282[] C_aligned={C_lihdr(0,0,15),40,97,54,51,57,57,32,101,108,116,49,49,57,51,41,0}; static C_char C_TLS li283[] C_aligned={C_lihdr(0,0,51),40,108,115,101,116,45,100,105,102,102,43,105,110,116,101,114,115,101,99,116,105,111,110,32,61,49,49,56,54,32,108,105,115,49,49,49,56,55,32,46,32,108,105,115,116,115,49,49,56,56,41,0,0,0,0,0}; static C_char C_TLS li284[] C_aligned={C_lihdr(0,0,15),40,97,54,52,53,49,32,108,105,115,49,50,48,53,41,0}; static C_char C_TLS li285[] C_aligned={C_lihdr(0,0,15),40,97,54,52,52,49,32,101,108,116,49,50,48,52,41,0}; static C_char C_TLS li286[] C_aligned={C_lihdr(0,0,52),40,108,115,101,116,45,100,105,102,102,43,105,110,116,101,114,115,101,99,116,105,111,110,33,32,61,49,49,57,55,32,108,105,115,49,49,49,57,56,32,46,32,108,105,115,116,115,49,49,57,57,41,0,0,0,0}; static C_char C_TLS li287[] 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_2065) static void C_fcall f_2065(C_word t0,C_word t1,C_word t2) 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_4329) static void C_ccall f_4329(C_word c,C_word *av) C_noret; C_noret_decl(f_1957) static void C_ccall f_1957(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_1959) static void C_ccall f_1959(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_2070) static void C_fcall f_2070(C_word t0,C_word t1) C_noret; C_noret_decl(f_3029) static void C_ccall f_3029(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_4333) static void C_fcall f_4333(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4505) static void C_fcall f_4505(C_word t0,C_word t1,C_word t2) 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_5354) static void C_ccall f_5354(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_3001) static void C_fcall f_3001(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2320) static C_word C_fcall f_2320(C_word t0,C_word t1,C_word t2); C_noret_decl(f_3415) static void C_ccall f_3415(C_word c,C_word *av) 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_2603) static void C_ccall f_2603(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_5316) static void C_fcall f_5316(C_word t0,C_word t1) C_noret; C_noret_decl(f_5319) static void C_ccall f_5319(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_4556) static void C_fcall f_4556(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4550) static void C_ccall f_4550(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_4913) static void C_ccall f_4913(C_word c,C_word *av) C_noret; C_noret_decl(f_4938) static void C_ccall f_4938(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_6363) static void C_ccall f_6363(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_5507) static void C_ccall f_5507(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_4947) static void C_ccall f_4947(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_5519) static void C_ccall f_5519(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_word t3) 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_2359) static void C_ccall f_2359(C_word c,C_word *av) C_noret; C_noret_decl(f_2184) static C_word C_fcall f_2184(C_word t0,C_word t1); C_noret_decl(f_4057) static void C_fcall f_4057(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_5529) static void C_ccall f_5529(C_word c,C_word *av) C_noret; C_noret_decl(f_4968) static void C_fcall f_4968(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4365) static void C_ccall f_4365(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_6374) static void C_ccall f_6374(C_word c,C_word *av) C_noret; C_noret_decl(f_4369) static C_word C_fcall f_4369(C_word *a,C_word t0,C_word t1); C_noret_decl(f_6378) static void C_ccall f_6378(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_4069) static void C_ccall f_4069(C_word c,C_word *av) C_noret; C_noret_decl(f_2034) static void C_fcall f_2034(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_4106) static void C_ccall f_4106(C_word c,C_word *av) 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_3795) static void C_ccall f_3795(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_6153) static void C_ccall f_6153(C_word c,C_word *av) C_noret; C_noret_decl(f_3183) static C_word C_fcall f_3183(C_word t0,C_word t1); C_noret_decl(f_3215) static void C_fcall f_3215(C_word t0,C_word t1) 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_3177) static void C_ccall f_3177(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_6180) static void C_ccall f_6180(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_4277) static void C_ccall f_4277(C_word c,C_word *av) C_noret; C_noret_decl(f_5325) static void C_fcall f_5325(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4285) static void C_ccall f_4285(C_word c,C_word *av) C_noret; C_noret_decl(f_4769) static void C_fcall f_4769(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2620) static C_word C_fcall f_2620(C_word t0,C_word t1,C_word t2); C_noret_decl(f_5339) static void C_ccall f_5339(C_word c,C_word *av) C_noret; C_noret_decl(f_5824) static C_word C_fcall f_5824(C_word t0,C_word t1); C_noret_decl(f_4762) static void C_ccall f_4762(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_2125) static void C_ccall f_2125(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_2122) static void C_ccall f_2122(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_5799) static void C_ccall f_5799(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_2131) static C_word C_fcall f_2131(C_word t0,C_word t1); C_noret_decl(f_2693) static void C_ccall f_2693(C_word c,C_word *av) C_noret; C_noret_decl(f_4785) static void C_ccall f_4785(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_2111) static void C_ccall f_2111(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_4598) static void C_ccall f_4598(C_word c,C_word *av) C_noret; C_noret_decl(f_2423) static void C_ccall f_2423(C_word c,C_word *av) C_noret; C_noret_decl(f_1965) static void C_fcall f_1965(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2437) static void C_ccall f_2437(C_word c,C_word *av) C_noret; C_noret_decl(f_5541) static void C_fcall f_5541(C_word t0,C_word t1,C_word t2,C_word t3) 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_1979) static void C_ccall f_1979(C_word c,C_word *av) C_noret; C_noret_decl(f_5553) static void C_ccall f_5553(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_4120) static void C_ccall f_4120(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_3940) static void C_fcall f_3940(C_word t0,C_word t1,C_word t2,C_word t3) 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_4137) static void C_fcall f_4137(C_word t0,C_word t1,C_word t2,C_word t3) 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_4141) static void C_ccall f_4141(C_word c,C_word *av) C_noret; C_noret_decl(f_4569) static void C_ccall f_4569(C_word c,C_word *av) C_noret; C_noret_decl(f_2865) static void C_fcall f_2865(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3961) static void C_ccall f_3961(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_3079) static void C_ccall f_3079(C_word c,C_word *av) C_noret; C_noret_decl(f_3640) static void C_ccall f_3640(C_word c,C_word *av) C_noret; C_noret_decl(f_5105) static void C_fcall f_5105(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3957) static void C_ccall f_3957(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_2809) static void C_fcall f_2809(C_word t0,C_word t1,C_word t2) 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_5295) static void C_ccall f_5295(C_word c,C_word *av) C_noret; C_noret_decl(f_3987) static void C_ccall f_3987(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_3648) static void C_ccall f_3648(C_word c,C_word *av) C_noret; C_noret_decl(f_2893) static void C_ccall f_2893(C_word c,C_word *av) C_noret; C_noret_decl(f_3970) static void C_fcall f_3970(C_word t0,C_word t1,C_word t2,C_word t3) 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_3625) static void C_ccall f_3625(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_2314) static void C_ccall f_2314(C_word c,C_word *av) C_noret; C_noret_decl(f_3618) static void C_fcall f_3618(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4199) static void C_fcall f_4199(C_word t0,C_word t1,C_word t2) 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_3608) static void C_ccall f_3608(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_2665) static void C_ccall f_2665(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_3904) static void C_fcall f_3904(C_word t0,C_word t1,C_word t2) 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_1922) static void C_ccall f_1922(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_2650) static void C_fcall f_2650(C_word t0,C_word t1,C_word t2,C_word t3) 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_3085) static void C_fcall f_3085(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2007) static void C_ccall f_2007(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_2011) static void C_ccall f_2011(C_word c,C_word *av) C_noret; C_noret_decl(f_2019) static void C_fcall f_2019(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2018) static void C_ccall f_2018(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_6244) static void C_ccall f_6244(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_2827) static void C_ccall f_2827(C_word c,C_word *av) C_noret; C_noret_decl(f_2837) static void C_ccall f_2837(C_word c,C_word *av) C_noret; C_noret_decl(f_5469) static void C_ccall f_5469(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_5497) static void C_ccall f_5497(C_word c,C_word *av) C_noret; C_noret_decl(f_3549) static void C_ccall f_3549(C_word c,C_word *av) C_noret; C_noret_decl(f_6213) static void C_ccall f_6213(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_5481) static void C_ccall f_5481(C_word c,C_word *av) C_noret; C_noret_decl(f_6219) static void C_ccall f_6219(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_5489) static void C_ccall f_5489(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_6205) static void C_ccall f_6205(C_word c,C_word *av) C_noret; C_noret_decl(f_3531) static void C_fcall f_3531(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_6238) static void C_ccall f_6238(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_6001) static void C_ccall f_6001(C_word c,C_word *av) C_noret; C_noret_decl(f_4813) static void C_fcall f_4813(C_word t0,C_word t1,C_word t2,C_word t3) 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_5272) static void C_ccall f_5272(C_word c,C_word *av) 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_4829) static void C_ccall f_4829(C_word c,C_word *av) C_noret; C_noret_decl(f_5276) static void C_ccall f_5276(C_word c,C_word *av) C_noret; C_noret_decl(f_1881) static void C_fcall f_1881(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5265) static void C_ccall f_5265(C_word c,C_word *av) C_noret; C_noret_decl(f_6410) static void C_ccall f_6410(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(C_srfi_2d1_toplevel) C_externexport void C_ccall C_srfi_2d1_toplevel(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_4162) static void C_ccall f_4162(C_word c,C_word *av) C_noret; C_noret_decl(f_6400) static void C_ccall f_6400(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_5282) static void C_fcall f_5282(C_word t0,C_word t1,C_word t2) 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_3335) static void C_ccall f_3335(C_word c,C_word *av) C_noret; C_noret_decl(f_6042) static void C_ccall f_6042(C_word c,C_word *av) C_noret; C_noret_decl(f_6048) static void C_ccall f_6048(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_4178) static void C_fcall f_4178(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6030) static void C_ccall f_6030(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_3924) static void C_ccall f_3924(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_4832) static void C_ccall f_4832(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_6420) static void C_ccall f_6420(C_word c,C_word *av) C_noret; C_noret_decl(f_4182) static void C_ccall f_4182(C_word c,C_word *av) C_noret; C_noret_decl(f_6299) static void C_ccall f_6299(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_5072) static void C_ccall f_5072(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_6452) static void C_ccall f_6452(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_3918) static void C_ccall f_3918(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_3341) static void C_ccall f_3341(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_5850) static void C_ccall f_5850(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_5454) static void C_ccall f_5454(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_3702) static void C_fcall f_3702(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4872) static void C_ccall f_4872(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_4878) static void C_ccall f_4878(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_4888) static void C_ccall f_4888(C_word c,C_word *av) C_noret; C_noret_decl(f_1935) static void C_fcall f_1935(C_word t0,C_word t1,C_word t2,C_word t3) 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_6091) static void C_ccall f_6091(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_4856) static void C_ccall f_4856(C_word c,C_word *av) C_noret; C_noret_decl(f_5413) static void C_ccall f_5413(C_word c,C_word *av) C_noret; C_noret_decl(f_5844) static void C_fcall f_5844(C_word t0,C_word t1,C_word t2,C_word t3) 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_2265) static void C_fcall f_2265(C_word t0,C_word t1,C_word t2,C_word t3) 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_3891) static void C_ccall f_3891(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_5632) static void C_ccall f_5632(C_word c,C_word *av) C_noret; C_noret_decl(f_3460) static void C_fcall f_3460(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3726) static void C_ccall f_3726(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_4434) static void C_fcall f_4434(C_word t0,C_word t1,C_word t2) 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_3496) static void C_ccall f_3496(C_word c,C_word *av) C_noret; C_noret_decl(f_3490) static void C_ccall f_3490(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_3716) static void C_ccall f_3716(C_word c,C_word *av) C_noret; C_noret_decl(f_3874) static void C_fcall f_3874(C_word t0,C_word t1,C_word t2) 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_4447) static void C_ccall f_4447(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_3519) static void C_ccall f_3519(C_word c,C_word *av) C_noret; C_noret_decl(f_3742) static void C_fcall f_3742(C_word t0,C_word t1,C_word t2,C_word t3) 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_2223) static void C_ccall f_2223(C_word c,C_word *av) C_noret; C_noret_decl(f_5423) static void C_fcall f_5423(C_word t0,C_word t1) 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_3858) static void C_ccall f_3858(C_word c,C_word *av) C_noret; C_noret_decl(f_4422) static void C_ccall f_4422(C_word c,C_word *av) C_noret; C_noret_decl(f_4429) static void C_ccall f_4429(C_word c,C_word *av) C_noret; C_noret_decl(f_5438) static void C_fcall f_5438(C_word t0,C_word t1,C_word t2,C_word t3) 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_2240) static void C_fcall f_2240(C_word t0,C_word t1,C_word t2,C_word t3) 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_2535) static void C_ccall f_2535(C_word c,C_word *av) C_noret; C_noret_decl(f_3296) static void C_ccall f_3296(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_noret; C_noret_decl(f_2541) static void C_ccall f_2541(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_3283) static void C_ccall f_3283(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_6258) static void C_ccall f_6258(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_6252) static void C_ccall f_6252(C_word c,C_word *av) C_noret; C_noret_decl(f_2518) static void C_ccall f_2518(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_5003) static void C_ccall f_5003(C_word c,C_word *av) C_noret; C_noret_decl(f_1869) static void C_ccall f_1869(C_word c,C_word *av) C_noret; C_noret_decl(f_3302) static void C_fcall f_3302(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1861) static void C_ccall f_1861(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_6275) static void C_ccall f_6275(C_word c,C_word *av) C_noret; C_noret_decl(f_1876) static void C_ccall f_1876(C_word c,C_word *av) C_noret; C_noret_decl(f_5654) static void C_fcall f_5654(C_word t0,C_word t1,C_word t2,C_word t3) 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_6263) static void C_ccall f_6263(C_word c,C_word *av) C_noret; C_noret_decl(f_5056) static void C_ccall f_5056(C_word c,C_word *av) C_noret; C_noret_decl(f_2742) static C_word C_fcall f_2742(C_word t0); C_noret_decl(f_4604) static void C_ccall f_4604(C_word c,C_word *av) C_noret; C_noret_decl(f_2929) static void C_fcall f_2929(C_word t0,C_word t1,C_word t2) 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_5082) static void C_ccall f_5082(C_word c,C_word *av) C_noret; C_noret_decl(f_6269) static void C_ccall f_6269(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_word t2) C_noret; C_noret_decl(f_2726) static void C_ccall f_2726(C_word c,C_word *av) C_noret; C_noret_decl(f_3114) static void C_fcall f_3114(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4897) static void C_ccall f_4897(C_word c,C_word *av) 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_4400) static void C_fcall f_4400(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_2734) static void C_ccall f_2734(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_3149) static void C_ccall f_3149(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_4459) static void C_ccall f_4459(C_word c,C_word *av) C_noret; C_noret_decl(f_2709) static void C_ccall f_2709(C_word c,C_word *av) C_noret; C_noret_decl(f_5877) static void C_fcall f_5877(C_word t0,C_word t1,C_word t2,C_word t3) 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_5039) static void C_ccall f_5039(C_word c,C_word *av) C_noret; C_noret_decl(f_5589) static void C_fcall f_5589(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5201) static void C_ccall f_5201(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_5934) static void C_fcall f_5934(C_word t0,C_word t1,C_word t2,C_word t3) 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_3155) static void C_fcall f_3155(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3265) static void C_fcall f_3265(C_word t0,C_word t1,C_word t2) 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_5917) static void C_ccall f_5917(C_word c,C_word *av) C_noret; C_noret_decl(f_5913) static void C_ccall f_5913(C_word c,C_word *av) C_noret; C_noret_decl(f_5026) static void C_ccall f_5026(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_5997) static void C_ccall f_5997(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_3478) static void C_ccall f_3478(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_5992) static void C_ccall f_5992(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_6057) static void C_ccall f_6057(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_5012) static void C_fcall f_5012(C_word t0,C_word t1,C_word t2) 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_4485) static void C_ccall f_4485(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_3484) static void C_ccall f_3484(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_5954) static void C_ccall f_5954(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_4465) static void C_fcall f_4465(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2579) static void C_fcall f_2579(C_word t0,C_word t1,C_word t2,C_word t3) 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_5215) static void C_fcall f_5215(C_word t0,C_word t1,C_word t2) 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_2213) static void C_ccall f_2213(C_word c,C_word *av) C_noret; C_noret_decl(f_2216) static void C_ccall f_2216(C_word c,C_word *av) C_noret; C_noret_decl(f_2219) static void C_ccall f_2219(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_3691) static void C_ccall f_3691(C_word c,C_word *av) C_noret; C_noret_decl(f_3695) static void C_ccall f_3695(C_word c,C_word *av) C_noret; C_noret_decl(f_6108) static void C_ccall f_6108(C_word c,C_word *av) 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_4045) static void C_ccall f_4045(C_word c,C_word *av) C_noret; C_noret_decl(f_2551) static C_word C_fcall f_2551(C_word t0,C_word t1); C_noret_decl(f_3687) static void C_ccall f_3687(C_word c,C_word *av) 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_5197) static void C_ccall f_5197(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_3677) static void C_ccall f_3677(C_word c,C_word *av) C_noret; C_noret_decl(f_3670) static void C_fcall f_3670(C_word t0,C_word t1,C_word t2) 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_4025) static void C_fcall f_4025(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4723) static void C_fcall f_4723(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3580) static void C_fcall f_3580(C_word t0,C_word t1,C_word t2,C_word t3) 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_2498) static C_word C_fcall f_2498(C_word t0,C_word t1); C_noret_decl(f_3570) static void C_ccall f_3570(C_word c,C_word *av) C_noret; C_noret_decl(f_2769) static void C_fcall f_2769(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3394) static void C_ccall f_3394(C_word c,C_word *av) C_noret; C_noret_decl(f_5390) static void C_ccall f_5390(C_word c,C_word *av) C_noret; C_noret_decl(f_3382) static void C_fcall f_3382(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4717) static void C_ccall f_4717(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_4225) static void C_ccall f_4225(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_4685) static void C_fcall f_4685(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2757) static void C_ccall f_2757(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_4095) static void C_ccall f_4095(C_word c,C_word *av) C_noret; C_noret_decl(f_4091) static void C_fcall f_4091(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5360) static void C_ccall f_5360(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_4668) static void C_ccall f_4668(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_6117) static void C_ccall f_6117(C_word c,C_word *av) C_noret; C_noret_decl(f_3837) static void C_fcall f_3837(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5366) static void C_fcall f_5366(C_word t0,C_word t1,C_word t2) 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_3832) static void C_ccall f_3832(C_word c,C_word *av) C_noret; C_noret_decl(f_6140) static void C_ccall f_6140(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_6147) static void C_ccall f_6147(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_3828) static void C_ccall f_3828(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_4233) static void C_fcall f_4233(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6306) static void C_ccall f_6306(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_2489) static void C_ccall f_2489(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_5706) static void C_fcall f_5706(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4352) static void C_fcall f_4352(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3811) static void C_fcall f_3811(C_word t0,C_word t1,C_word t2) 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_3227) static void C_fcall f_3227(C_word t0,C_word t1,C_word t2) 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_6326) static void C_ccall f_6326(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_5722) static void C_ccall f_5722(C_word c,C_word *av) C_noret; C_noret_decl(f_6311) static void C_ccall f_6311(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_2389) static void C_ccall f_2389(C_word c,C_word *av) C_noret; C_noret_decl(f_4307) static void C_fcall f_4307(C_word t0,C_word t1,C_word t2) 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_5749) static void C_fcall f_5749(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2399) static void C_ccall f_2399(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_6176) static void C_ccall f_6176(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_4313) static void C_ccall f_4313(C_word c,C_word *av) C_noret; C_noret_decl(f_6332) static void C_ccall f_6332(C_word c,C_word *av) C_noret; C_noret_decl(f_5733) static void C_ccall f_5733(C_word c,C_word *av) C_noret; C_noret_decl(f_2463) static void C_fcall f_2463(C_word t0,C_word t1,C_word t2,C_word t3) 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_6199) static void C_ccall f_6199(C_word c,C_word *av) C_noret; C_noret_decl(f_3255) static void C_ccall f_3255(C_word c,C_word *av) C_noret; C_noret_decl(f_6356) static void C_ccall f_6356(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_3376) static void C_ccall f_3376(C_word c,C_word *av) C_noret; C_noret_decl(f_3400) static void C_ccall f_3400(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_1991) static void C_fcall f_1991(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2409) static void C_ccall f_2409(C_word c,C_word *av) C_noret; C_noret_decl(f_5786) static void C_fcall f_5786(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1985) static void C_ccall f_1985(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_5985) static void C_ccall f_5985(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_5980) static void C_ccall f_5980(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_5156) static void C_ccall f_5156(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_5185) static void C_ccall f_5185(C_word c,C_word *av) C_noret; C_noret_decl(f_4537) static void C_ccall f_4537(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_2178) static void C_ccall f_2178(C_word c,C_word *av) C_noret; C_noret_decl(trf_2065) static void C_ccall trf_2065(C_word c,C_word *av) C_noret; static void C_ccall trf_2065(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2065(t0,t1,t2);} C_noret_decl(trf_2070) static void C_ccall trf_2070(C_word c,C_word *av) C_noret; static void C_ccall trf_2070(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2070(t0,t1);} C_noret_decl(trf_4333) static void C_ccall trf_4333(C_word c,C_word *av) C_noret; static void C_ccall trf_4333(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4333(t0,t1,t2);} C_noret_decl(trf_4505) static void C_ccall trf_4505(C_word c,C_word *av) C_noret; static void C_ccall trf_4505(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4505(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_5316) static void C_ccall trf_5316(C_word c,C_word *av) C_noret; static void C_ccall trf_5316(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5316(t0,t1);} C_noret_decl(trf_4556) static void C_ccall trf_4556(C_word c,C_word *av) C_noret; static void C_ccall trf_4556(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4556(t0,t1,t2);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3773(t0,t1,t2,t3);} C_noret_decl(trf_4057) static void C_ccall trf_4057(C_word c,C_word *av) C_noret; static void C_ccall trf_4057(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_4057(t0,t1,t2,t3,t4);} C_noret_decl(trf_4968) static void C_ccall trf_4968(C_word c,C_word *av) C_noret; static void C_ccall trf_4968(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4968(t0,t1,t2);} C_noret_decl(trf_2034) static void C_ccall trf_2034(C_word c,C_word *av) C_noret; static void C_ccall trf_2034(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_2034(t0,t1,t2,t3,t4);} C_noret_decl(trf_3215) static void C_ccall trf_3215(C_word c,C_word *av) C_noret; static void C_ccall trf_3215(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3215(t0,t1);} C_noret_decl(trf_5325) static void C_ccall trf_5325(C_word c,C_word *av) C_noret; static void C_ccall trf_5325(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5325(t0,t1,t2,t3);} C_noret_decl(trf_4769) static void C_ccall trf_4769(C_word c,C_word *av) C_noret; static void C_ccall trf_4769(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4769(t0,t1,t2,t3);} C_noret_decl(trf_1965) static void C_ccall trf_1965(C_word c,C_word *av) C_noret; static void C_ccall trf_1965(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1965(t0,t1,t2,t3);} C_noret_decl(trf_5541) static void C_ccall trf_5541(C_word c,C_word *av) C_noret; static void C_ccall trf_5541(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5541(t0,t1,t2,t3);} C_noret_decl(trf_3940) static void C_ccall trf_3940(C_word c,C_word *av) C_noret; static void C_ccall trf_3940(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3940(t0,t1,t2,t3);} C_noret_decl(trf_4137) static void C_ccall trf_4137(C_word c,C_word *av) C_noret; static void C_ccall trf_4137(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4137(t0,t1,t2,t3);} C_noret_decl(trf_2865) static void C_ccall trf_2865(C_word c,C_word *av) C_noret; static void C_ccall trf_2865(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2865(t0,t1,t2);} C_noret_decl(trf_5105) static void C_ccall trf_5105(C_word c,C_word *av) C_noret; static void C_ccall trf_5105(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5105(t0,t1,t2);} C_noret_decl(trf_2809) static void C_ccall trf_2809(C_word c,C_word *av) C_noret; static void C_ccall trf_2809(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2809(t0,t1,t2);} C_noret_decl(trf_3970) static void C_ccall trf_3970(C_word c,C_word *av) C_noret; static void C_ccall trf_3970(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3970(t0,t1,t2,t3);} C_noret_decl(trf_3618) static void C_ccall trf_3618(C_word c,C_word *av) C_noret; static void C_ccall trf_3618(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3618(t0,t1,t2,t3);} C_noret_decl(trf_4199) static void C_ccall trf_4199(C_word c,C_word *av) C_noret; static void C_ccall trf_4199(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4199(t0,t1,t2);} C_noret_decl(trf_3904) static void C_ccall trf_3904(C_word c,C_word *av) C_noret; static void C_ccall trf_3904(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3904(t0,t1,t2);} C_noret_decl(trf_2650) static void C_ccall trf_2650(C_word c,C_word *av) C_noret; static void C_ccall trf_2650(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2650(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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3085(t0,t1,t2,t3);} C_noret_decl(trf_2019) static void C_ccall trf_2019(C_word c,C_word *av) C_noret; static void C_ccall trf_2019(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2019(t0,t1,t2,t3);} C_noret_decl(trf_3531) static void C_ccall trf_3531(C_word c,C_word *av) C_noret; static void C_ccall trf_3531(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_3531(t0,t1,t2,t3,t4);} C_noret_decl(trf_4813) static void C_ccall trf_4813(C_word c,C_word *av) C_noret; static void C_ccall trf_4813(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4813(t0,t1,t2,t3);} C_noret_decl(trf_1881) static void C_ccall trf_1881(C_word c,C_word *av) C_noret; static void C_ccall trf_1881(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1881(t0,t1,t2,t3);} C_noret_decl(trf_5282) static void C_ccall trf_5282(C_word c,C_word *av) C_noret; static void C_ccall trf_5282(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5282(t0,t1,t2);} C_noret_decl(trf_4178) static void C_ccall trf_4178(C_word c,C_word *av) C_noret; static void C_ccall trf_4178(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4178(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_1935) static void C_ccall trf_1935(C_word c,C_word *av) C_noret; static void C_ccall trf_1935(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1935(t0,t1,t2,t3);} C_noret_decl(trf_5844) static void C_ccall trf_5844(C_word c,C_word *av) C_noret; static void C_ccall trf_5844(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5844(t0,t1,t2,t3);} C_noret_decl(trf_2265) static void C_ccall trf_2265(C_word c,C_word *av) C_noret; static void C_ccall trf_2265(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2265(t0,t1,t2,t3);} C_noret_decl(trf_3460) static void C_ccall trf_3460(C_word c,C_word *av) C_noret; static void C_ccall trf_3460(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3460(t0,t1,t2);} C_noret_decl(trf_4434) static void C_ccall trf_4434(C_word c,C_word *av) C_noret; static void C_ccall trf_4434(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4434(t0,t1,t2);} C_noret_decl(trf_3874) static void C_ccall trf_3874(C_word c,C_word *av) C_noret; static void C_ccall trf_3874(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3874(t0,t1,t2);} C_noret_decl(trf_3742) static void C_ccall trf_3742(C_word c,C_word *av) C_noret; static void C_ccall trf_3742(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3742(t0,t1,t2,t3);} C_noret_decl(trf_5423) static void C_ccall trf_5423(C_word c,C_word *av) C_noret; static void C_ccall trf_5423(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5423(t0,t1);} C_noret_decl(trf_5438) static void C_ccall trf_5438(C_word c,C_word *av) C_noret; static void C_ccall trf_5438(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5438(t0,t1,t2,t3);} C_noret_decl(trf_2240) static void C_ccall trf_2240(C_word c,C_word *av) C_noret; static void C_ccall trf_2240(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2240(t0,t1,t2,t3);} 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[1]; C_word t1=av[0]; f_3290(t0,t1);} C_noret_decl(trf_3302) static void C_ccall trf_3302(C_word c,C_word *av) C_noret; static void C_ccall trf_3302(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3302(t0,t1,t2);} C_noret_decl(trf_5654) static void C_ccall trf_5654(C_word c,C_word *av) C_noret; static void C_ccall trf_5654(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5654(t0,t1,t2,t3);} C_noret_decl(trf_2929) static void C_ccall trf_2929(C_word c,C_word *av) C_noret; static void C_ccall trf_2929(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2929(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_4616(t0,t1,t2);} C_noret_decl(trf_3114) static void C_ccall trf_3114(C_word c,C_word *av) C_noret; static void C_ccall trf_3114(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3114(t0,t1,t2,t3);} C_noret_decl(trf_4400) static void C_ccall trf_4400(C_word c,C_word *av) C_noret; static void C_ccall trf_4400(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4400(t0,t1,t2);} C_noret_decl(trf_5877) static void C_ccall trf_5877(C_word c,C_word *av) C_noret; static void C_ccall trf_5877(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5877(t0,t1,t2,t3);} C_noret_decl(trf_5589) static void C_ccall trf_5589(C_word c,C_word *av) C_noret; static void C_ccall trf_5589(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5589(t0,t1,t2,t3);} C_noret_decl(trf_5934) static void C_ccall trf_5934(C_word c,C_word *av) C_noret; static void C_ccall trf_5934(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5934(t0,t1,t2,t3);} C_noret_decl(trf_3155) static void C_ccall trf_3155(C_word c,C_word *av) C_noret; static void C_ccall trf_3155(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3155(t0,t1,t2,t3);} C_noret_decl(trf_3265) static void C_ccall trf_3265(C_word c,C_word *av) C_noret; static void C_ccall trf_3265(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3265(t0,t1,t2);} C_noret_decl(trf_5012) static void C_ccall trf_5012(C_word c,C_word *av) C_noret; static void C_ccall trf_5012(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5012(t0,t1,t2);} C_noret_decl(trf_4465) static void C_ccall trf_4465(C_word c,C_word *av) C_noret; static void C_ccall trf_4465(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4465(t0,t1,t2);} C_noret_decl(trf_2579) static void C_ccall trf_2579(C_word c,C_word *av) C_noret; static void C_ccall trf_2579(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2579(t0,t1,t2,t3);} C_noret_decl(trf_5215) static void C_ccall trf_5215(C_word c,C_word *av) C_noret; static void C_ccall trf_5215(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5215(t0,t1,t2);} C_noret_decl(trf_3670) static void C_ccall trf_3670(C_word c,C_word *av) C_noret; static void C_ccall trf_3670(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3670(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_4025) static void C_ccall trf_4025(C_word c,C_word *av) C_noret; static void C_ccall trf_4025(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4025(t0,t1,t2,t3);} C_noret_decl(trf_4723) static void C_ccall trf_4723(C_word c,C_word *av) C_noret; static void C_ccall trf_4723(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4723(t0,t1,t2,t3);} C_noret_decl(trf_3580) static void C_ccall trf_3580(C_word c,C_word *av) C_noret; static void C_ccall trf_3580(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3580(t0,t1,t2,t3);} C_noret_decl(trf_2769) static void C_ccall trf_2769(C_word c,C_word *av) C_noret; static void C_ccall trf_2769(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2769(t0,t1,t2);} C_noret_decl(trf_3382) static void C_ccall trf_3382(C_word c,C_word *av) C_noret; static void C_ccall trf_3382(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3382(t0,t1,t2);} C_noret_decl(trf_4685) static void C_ccall trf_4685(C_word c,C_word *av) C_noret; static void C_ccall trf_4685(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4685(t0,t1,t2,t3);} C_noret_decl(trf_4091) static void C_ccall trf_4091(C_word c,C_word *av) C_noret; static void C_ccall trf_4091(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4091(t0,t1,t2,t3);} C_noret_decl(trf_3837) static void C_ccall trf_3837(C_word c,C_word *av) C_noret; static void C_ccall trf_3837(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3837(t0,t1,t2);} C_noret_decl(trf_5366) static void C_ccall trf_5366(C_word c,C_word *av) C_noret; static void C_ccall trf_5366(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5366(t0,t1,t2);} C_noret_decl(trf_4233) static void C_ccall trf_4233(C_word c,C_word *av) C_noret; static void C_ccall trf_4233(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4233(t0,t1,t2,t3);} C_noret_decl(trf_5706) static void C_ccall trf_5706(C_word c,C_word *av) C_noret; static void C_ccall trf_5706(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5706(t0,t1,t2,t3);} C_noret_decl(trf_4352) static void C_ccall trf_4352(C_word c,C_word *av) C_noret; static void C_ccall trf_4352(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4352(t0,t1,t2);} C_noret_decl(trf_3811) static void C_ccall trf_3811(C_word c,C_word *av) C_noret; static void C_ccall trf_3811(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3811(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_3227(t0,t1,t2);} C_noret_decl(trf_4307) static void C_ccall trf_4307(C_word c,C_word *av) C_noret; static void C_ccall trf_4307(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4307(t0,t1,t2);} C_noret_decl(trf_5749) static void C_ccall trf_5749(C_word c,C_word *av) C_noret; static void C_ccall trf_5749(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5749(t0,t1,t2,t3);} C_noret_decl(trf_2463) static void C_ccall trf_2463(C_word c,C_word *av) C_noret; static void C_ccall trf_2463(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2463(t0,t1,t2,t3);} C_noret_decl(trf_1991) static void C_ccall trf_1991(C_word c,C_word *av) C_noret; static void C_ccall trf_1991(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1991(t0,t1,t2);} C_noret_decl(trf_5786) static void C_ccall trf_5786(C_word c,C_word *av) C_noret; static void C_ccall trf_5786(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5786(t0,t1,t2,t3);} /* def-step109 in k2016 in iota in k1859 */ static void C_fcall f_2065(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_2065,3,t0,t1,t2);} /* srfi-1.scm:287: body106 */ t3=((C_word*)t0)[2]; f_2019(t3,t1,t2,C_fix(1));} /* a3426 in a3420 in a3399 in recur in a3375 in a3747 in lp in fold in k1859 */ 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!=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_3427,2,av);} /* srfi-1.scm:785: recur */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3382(t2,t1,((C_word*)t0)[3]);} /* k4327 in a4318 in recur in filter-map in k1859 */ static void C_ccall f_4329(C_word c,C_word *av){ C_word tmp; C_word t0=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_4329,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4333,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li153),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:988: g624 */ t3=t2; f_4333(t3,((C_word*)t0)[4],t1);} else{ /* srfi-1.scm:989: recur */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4307(t2,((C_word*)t0)[4],((C_word*)t0)[3]);}} /* k1955 in doloop83 in list-tabulate in k1859 */ static void C_ccall f_1957(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1957,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_1935(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* a3420 in a3399 in recur in a3375 in a3747 in lp in fold in k1859 */ 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=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(10,c,4)))){ C_save_and_reclaim((void *)f_3421,4,av);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3427,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li104),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3433,a[2]=t2,a[3]=t3,a[4]=((C_word)li105),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:784: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* cons* in k1859 */ 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=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,4)))){ C_save_and_reclaim((void*)f_1959,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; 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_1965,a[2]=t5,a[3]=((C_word)li5),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_1965(t7,t1,t2,t3);} /* fifth in k1859 */ 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=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_2369,3,av);} t3=C_i_cddddr(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_car(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* def-start108 in k2016 in iota in k1859 */ static void C_fcall f_2070(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_2070,2,t0,t1);} /* srfi-1.scm:287: def-step109 */ t2=((C_word*)t0)[2]; f_2065(t2,t1,C_fix(0));} /* a3028 in recur in unzip5 in k1859 */ static void C_ccall f_3029(C_word c,C_word *av){ C_word tmp; C_word t0=av[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 t16; C_word t17; C_word t18; C_word *a; if(c!=7) C_bad_argc_2(c,7,t0); if(C_unlikely(!C_demand(C_calculate_demand(15,c,6)))){ C_save_and_reclaim((void *)f_3029,7,av);} a=C_alloc(15); t7=C_i_car(((C_word*)t0)[2]); t8=C_a_i_cons(&a,2,t7,t2); t9=C_i_cadr(((C_word*)t0)[2]); t10=C_a_i_cons(&a,2,t9,t3); t11=C_i_caddr(((C_word*)t0)[2]); t12=C_a_i_cons(&a,2,t11,t4); t13=C_i_cadddr(((C_word*)t0)[2]); t14=C_a_i_cons(&a,2,t13,t5); t15=C_i_cddddr(((C_word*)t0)[2]); t16=C_i_car(t15); t17=C_a_i_cons(&a,2,t16,t6); /* srfi-1.scm:661: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t8; av2[3]=t10; av2[4]=t12; av2[5]=t14; av2[6]=t17; C_values(7,av2);}} /* sixth in k1859 */ 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=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_2379,3,av);} t3=C_i_cddddr(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_cadr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* g624 in k4327 in a4318 in recur in filter-map in k1859 */ static void C_fcall f_4333(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_4333,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4341,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:988: recur */ t4=((C_word*)((C_word*)t0)[2])[1]; f_4307(t4,t3,((C_word*)t0)[3]);} /* lp in filter! in k1859 */ static void C_fcall f_4505(C_word t0,C_word t1,C_word 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_4505,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_null_list_p(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|5,a[1]=(C_word)f_4598,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_car(t2); /* srfi-1.scm:1091: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} /* a3018 in recur in unzip5 in k1859 */ 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 *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_3019,2,av);} t2=C_i_cdr(((C_word*)t0)[2]); /* srfi-1.scm:660: recur */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3001(t3,t1,t2);} /* k5352 in take-while! in k1859 */ static void C_ccall f_5354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5354,2,av);} t2=((C_word*)t0)[2]; f_5316(t2,C_i_not(t1));} /* a3432 in a3420 in a3399 in recur in a3375 in a3747 in lp in fold in k1859 */ 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=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_3433,4,av);} a=C_alloc(6); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); t5=C_a_i_cons(&a,2,((C_word*)t0)[3],t3); /* srfi-1.scm:786: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_values(4,av2);}} /* recur in unzip5 in k1859 */ 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,7)))){ C_save_and_reclaim_args((void *)trf_3001,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_null_list_p(t2))){ /* srfi-1.scm:658: values */{ C_word av2[7]; av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t2; av2[4]=t2; av2[5]=t2; av2[6]=t2; C_values(7,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3019,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li67),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3029,a[2]=t4,a[3]=((C_word)li68),tmp=(C_word)a,a+=4,tmp); /* srfi-1.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);}}} /* lp in length+ in k1859 */ static C_word C_fcall f_2320(C_word t1,C_word 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(t10)){ return(C_SCHEME_FALSE);} else{ t12=t7; t13=t8; t14=t9; t1=t12; t2=t13; t3=t14; goto loop;}} else{ return(t6);}} else{ t4=t3; return(t4);}} /* a3414 in a3399 in recur in a3375 in a3747 in lp in fold in k1859 */ 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; 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_3415,2,av);} /* srfi-1.scm:784: car+cdr */ t2=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* take-while! in k1859 */ 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=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,2)))){ C_save_and_reclaim((void *)f_5306,4,av);} a=C_alloc(8); t4=C_i_null_list_p(t3); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5316,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t4)){ t6=t5; f_5316(t6,t4);} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5354,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=C_i_car(t3); /* srfi-1.scm:1333: pred */ t8=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}}} /* drop-right! in k1859 */ 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=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_2603,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2607,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:542: drop */ t5=*((C_word*)lf[39]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k2605 in drop-right! in k1859 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2607,2,av);} a=C_alloc(4); if(C_truep(C_i_pairp(t1))){ t2=C_u_i_cdr(t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2620,a[2]=((C_word*)t0)[2],a[3]=((C_word)li43),tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_2620(t3,((C_word*)t0)[2],t2) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k5314 in take-while! in k1859 */ static void C_fcall f_5316(C_word t0,C_word 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_5316,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]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5319,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,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|4,a[1]=(C_word)f_5325,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=((C_word)li210),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_5325(t7,t2,((C_word*)t0)[3],t3);}} /* k5317 in k5314 in take-while! in k1859 */ static void C_ccall f_5319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5319,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4903 in a4896 in delete in k1859 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4905,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* lp in scan-out676 in k4596 in lp in filter! in k1859 */ static void C_fcall f_4556(C_word 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_4556,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4569,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t4=t2; t5=C_u_i_car(t4); /* srfi-1.scm:1110: pred */ t6=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_i_set_cdr(((C_word*)t0)[2],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* scan-out676 in k4596 in lp in filter! in k1859 */ static void C_ccall f_4550(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(9,c,3)))){ C_save_and_reclaim((void *)f_4550,4,av);} 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_4556,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=((C_word)li167),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_4556(t7,t1,t3);} /* k4928 in a4921 in delete! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4930,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* delete! in k1859 */ 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=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,3)))){ C_save_and_reclaim((void*)f_4913,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; t5=C_i_nullp(t4); t6=(C_truep(t5)?*((C_word*)lf[85]+1):C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4922,a[2]=t7,a[3]=t2,a[4]=((C_word)li186),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1233: filter! */ t9=*((C_word*)lf[79]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t1; av2[2]=t8; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* member in k1859 */ static void C_ccall f_4938(C_word c,C_word *av){ C_word tmp; C_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,3)))){ C_save_and_reclaim((void*)f_4938,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; t5=C_i_nullp(t4); t6=(C_truep(t5)?*((C_word*)lf[85]+1):C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4947,a[2]=t7,a[3]=t2,a[4]=((C_word)li188),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1238: find-tail */ t9=*((C_word*)lf[88]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t1; av2[2]=t8; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* a4921 in delete! in k1859 */ 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=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,3)))){ C_save_and_reclaim((void *)f_4922,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4930,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-1.scm:1233: = */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} /* k6361 in a6355 in a6331 in a6319 in k6313 in lset-xor! in k1859 */ static void C_ccall f_6363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6363,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[2]; t4=C_i_setslot(t2,C_fix(1),t3); t5=((C_word*)t0)[4]; t6=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* a4078 in really-append-map in k1859 */ 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=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_4079,4,av);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((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|5,a[1]=(C_word)f_4091,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=((C_word)li133),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_4091(t7,t1,t2,t3);}} /* any in k1859 */ 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=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,4)))){ C_save_and_reclaim((void*)f_5507,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; if(C_truep(C_i_pairp(t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5519,a[2]=t3,a[3]=t4,a[4]=((C_word)li222),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5529,a[2]=t2,a[3]=((C_word)li226),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:1371: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} else{ if(C_truep(C_i_null_list_p(t3))){ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((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_5589,a[2]=t2,a[3]=t9,a[4]=((C_word)li227),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_5589(t11,t1,t5,t7);}}} /* k5503 in a5496 in break! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5505,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a4946 in member in k1859 */ static void C_ccall f_4947(C_word c,C_word *av){ C_word tmp; C_word 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_4947,3,av);} /* srfi-1.scm:1238: = */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} /* delete-duplicates in k1859 */ 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=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_4959,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_word*)lf[85]+1):C_i_car(t3)); 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|4,a[1]=(C_word)f_4968,a[2]=t8,a[3]=t6,a[4]=((C_word)li190),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_4968(t10,t1,t2);} /* a5518 in any in k1859 */ 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 *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_5519,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* srfi-1.scm:1371: ##srfi1#cars+cdrs */ f_3290(t1,t2);} /* lp in fold in k1859 */ static void C_fcall f_3773(C_word t0,C_word t1,C_word 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_3773,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_null_list_p(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_3791,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); /* srfi-1.scm:862: kons */ t9=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t9; av2[1]=t6; av2[2]=t8; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t9))(4,av2);}}} /* k6382 in k6376 in lset-diff+intersection in k1859 */ 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 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_6384,2,av);} a=C_alloc(5); if(C_truep(t1)){ /* srfi-1.scm:1616: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_END_OF_LIST; C_values(4,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[4]; if(C_truep(C_u_i_memq(t2,t3))){ /* srfi-1.scm:1617: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_END_OF_LIST; av2[3]=((C_word*)t0)[3]; C_values(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6400,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word)li282),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1618: partition */ t5=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=t4; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* zip in k1859 */ 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 *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_2359,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4;{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[21]+1); av2[3]=*((C_word*)lf[22]+1); av2[4]=t2; av2[5]=t3; C_apply(6,av2);}} /* lp in circular-list? in k1859 */ static C_word C_fcall f_2184(C_word t1,C_word t2){ C_word tmp; C_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);}} /* ##srfi1#really-append-map in k1859 */ static void C_fcall f_4057(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(10,0,4)))){ C_save_and_reclaim_args((void *)trf_4057,5,t1,t2,t3,t4,t5);} a=C_alloc(10); if(C_truep(C_i_pairp(t5))){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4069,a[2]=t4,a[3]=t5,a[4]=((C_word)li130),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4079,a[2]=t2,a[3]=t3,a[4]=((C_word)li134),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:933: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} else{ if(C_truep(C_i_null_list_p(t4))){ 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_car(t4); t7=t4; t8=C_u_i_cdr(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_4137,a[2]=t2,a[3]=t10,a[4]=t3,a[5]=((C_word)li135),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_4137(t12,t1,t6,t8);}}} /* append-map! in k1859 */ 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=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_4051,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+0); t4=C_build_rest(&a,c,4,av); C_word t5; /* srfi-1.scm:928: ##srfi1#really-append-map */ f_4057(t1,*((C_word*)lf[52]+1),t2,t3,t4);} /* a5528 in any in k1859 */ 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=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,4)))){ C_save_and_reclaim((void *)f_5529,4,av);} a=C_alloc(7); if(C_truep(C_i_pairp(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_5541,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word)li225),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_5541(t7,t1,t2,t3);} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* recur in delete-duplicates in k1859 */ static void C_fcall f_4968(C_word t0,C_word t1,C_word t2){ C_word 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_4968,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_null_list_p(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_4982,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_4995,a[2]=((C_word*)t0)[2],a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:1263: delete */ t9=*((C_word*)lf[84]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t8; av2[2]=t4; av2[3]=t6; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} /* k4363 in k4360 in recur in filter-map in k1859 */ static void C_ccall f_4365(C_word c,C_word *av){ C_word tmp; C_word t0=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_4365,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4369,a[2]=((C_word*)t0)[2],a[3]=((C_word)li156),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:995: g637 */ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( /* srfi-1.scm:995: g637 */ f_4369(C_a_i(&a,3),t2,t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k4360 in recur in filter-map in k1859 */ 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; 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_4362,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4365,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_car(t4); /* srfi-1.scm:996: f */ t6=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} /* lset-diff+intersection in k1859 */ 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=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_6374,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_6378,a[2]=t1,a[3]=t3,a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1615: ##sys#check-closure */ t6=*((C_word*)lf[18]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=lf[121]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* g637 in k4363 in k4360 in recur in filter-map in k1859 */ static C_word C_fcall f_4369(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]));} /* k6376 in lset-diff+intersection in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6378,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6384,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1616: every */ t3=*((C_word*)lf[105]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[16]+1); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a6163 in k6151 in k6145 in k6142 in lset-intersection! in k1859 */ 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=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_6164,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6170,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li262),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1539: every */ t4=*((C_word*)lf[105]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a4068 in really-append-map in k1859 */ 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!=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_4069,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* srfi-1.scm:933: ##srfi1#cars+cdrs */ f_3290(t1,t2);} /* doloop118 in body106 in k2016 in iota in k1859 */ static void C_fcall f_2034(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; loop: if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_2034,5,t0,t1,t2,t3,t4);} a=C_alloc(11); if(C_truep(C_i_less_or_equalp(t2,C_fix(0)))){ 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_a_i_minus(&a,2,t2,C_fix(1)); t6=C_a_i_minus(&a,2,t3,((C_word*)t0)[2]); t7=C_a_i_cons(&a,2,t3,t4); t9=t1; t10=t5; t11=t6; t12=t7; t1=t9; t2=t10; t3=t11; t4=t12; goto loop;}} /* k3789 in lp in fold in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3791,2,av);} /* srfi-1.scm:862: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3773(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* a4105 in k4093 in recur in a4078 in really-append-map in k1859 */ 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; 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_4106,4,av);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4120,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:939: recur */ t5=((C_word*)((C_word*)t0)[4])[1]; f_4091(t5,t4,t2,t3);}} /* concatenate in k1859 */ 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=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_3203,3,av);} /* srfi-1.scm:722: reduce-right */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=*((C_word*)lf[57]+1); av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* fold-right in k1859 */ 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=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 +11,c,3)))){ C_save_and_reclaim((void*)f_3795,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+11); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; if(C_truep(C_i_pairp(t5))){ t6=C_a_i_cons(&a,2,t4,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_3811,a[2]=t3,a[3]=t2,a[4]=t8,a[5]=((C_word)li116),tmp=(C_word)a,a+=6,tmp)); t10=((C_word*)t8)[1]; f_3811(t10,t1,t6);} 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|5,a[1]=(C_word)f_3837,a[2]=t3,a[3]=t2,a[4]=t7,a[5]=((C_word)li117),tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_3837(t9,t1,t4);}} /* a4099 in k4093 in recur in a4078 in really-append-map in k1859 */ 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 *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_4100,2,av);} /* srfi-1.scm:937: ##srfi1#cars+cdrs */ f_3290(t1,((C_word*)t0)[2]);} /* k6151 in k6145 in k6142 in lset-intersection! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6153,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((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; /* Re-use our own argvector */ 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_6164,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word)li263),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1538: filter! */ t3=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}} /* lp in append-reverse! in k1859 */ static C_word C_fcall f_3183(C_word t1,C_word t2){ C_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_null_list_p(t1))){ t3=t2; return(t3);} else{ t3=C_i_cdr(t1); t4=t1; t5=t2; t6=C_i_setslot(t4,C_fix(1),t5); t8=t3; t9=t1; t1=t8; t2=t9; goto loop;}} /* ##srfi1#cdrs in k1859 */ static void C_fcall f_3215(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_3215,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3221,a[2]=t2,a[3]=((C_word)li81),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:746: ##sys#call-with-current-continuation */{ C_word av2[3]; av2[0]=0; av2[1]=t1; av2[2]=t3; C_call_cc(3,av2);}} /* map-in-order in k1859 */ 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=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,3)))){ C_save_and_reclaim((void*)f_4384,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; if(C_truep(C_i_pairp(t4))){ 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|4,a[1]=(C_word)f_4400,a[2]=t7,a[3]=t2,a[4]=((C_word)li161),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_4400(t9,t1,t5);} 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_4434,a[2]=t6,a[3]=t2,a[4]=((C_word)li162),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_4434(t8,t1,t3);}} /* append-reverse! in k1859 */ 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=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,3)))){ C_save_and_reclaim((void *)f_3177,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3183,a[2]=((C_word)li76),tmp=(C_word)a,a+=3,tmp); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=( f_3183(t2,t3) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k6181 in k6178 in lset-difference in k1859 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6183,2,av);} a=C_alloc(5); t2=t1; if(C_truep(C_i_nullp(t2))){ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(t3,t2))){ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_6199,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word)li266),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1549: filter */ t5=*((C_word*)lf[78]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t4; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* k6178 in lset-difference in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6180,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6183,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1546: filter */ t3=*((C_word*)lf[78]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[118]+1); av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* concatenate! in k1859 */ 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=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_3209,3,av);} /* srfi-1.scm:723: reduce-right */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=*((C_word*)lf[52]+1); av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a4276 in map! in k1859 */ 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 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_4277,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4285,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_car(t2); /* srfi-1.scm:977: f */ t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* lp in k5314 in take-while! in k1859 */ static void C_fcall f_5325(C_word t0,C_word 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_5325,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5339,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1337: pred */ t7=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t7))(3,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);}}} /* k4283 in a4276 in map! in k1859 */ static void C_ccall f_4285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4285,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_set_car(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* lp in k4760 in partition! in k1859 */ static void C_fcall f_4769(C_word 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_4769,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_pairp(t3))){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4785,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,tmp=(C_word)a,a+=8,tmp); t5=C_i_car(t3); /* srfi-1.scm:1191: pred */ t6=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} else{ /* srfi-1.scm:1190: values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t3; C_values(4,av2);}}} /* lp in k2605 in drop-right! in k1859 */ static C_word C_fcall f_2620(C_word t0,C_word t1,C_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_pairp(t2))){ t3=C_i_cdr(t1); t4=t2; t5=C_u_i_cdr(t4); t7=t3; t8=t5; t1=t7; t2=t8; goto loop;} else{ t3=C_i_set_cdr(t1,C_SCHEME_END_OF_LIST); t4=((C_word*)t0)[2]; return(t4);}} /* k5337 in lp in k5314 in take-while! in k1859 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5339,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* srfi-1.scm:1337: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_5325(t4,((C_word*)t0)[4],((C_word*)t0)[2],t3);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_set_cdr(((C_word*)t0)[5],C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* lp in reverse! in k1859 */ static C_word C_fcall f_5824(C_word t1,C_word t2){ C_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_null_list_p(t1))){ t3=t2; return(t3);} else{ t3=C_i_cdr(t1); t4=t1; t5=t2; t6=C_i_setslot(t4,C_fix(1),t5); t8=t3; t9=t1; t1=t8; t2=t9; goto loop;}} /* k4760 in partition! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_4762,2,av);} a=C_alloc(9); 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|6,a[1]=(C_word)f_4769,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)li177),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_4769(t7,((C_word*)t0)[5],((C_word*)t0)[2],t3);} else{ 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|6,a[1]=(C_word)f_4813,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[6],a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=((C_word)li178),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_4813(t7,((C_word*)t0)[5],((C_word*)t0)[2],t3);}} /* a4250 in lp in map! in k1859 */ 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=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,4)))){ C_save_and_reclaim((void *)f_4251,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4264,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t5=C_i_car(((C_word*)t0)[2]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=t5; av2[4]=t2; C_apply(5,av2);}} /* dotted-list? in k1859 */ static void C_ccall f_2125(C_word c,C_word *av){ C_word tmp; C_word 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,3)))){ C_save_and_reclaim((void *)f_2125,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2131,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_2131(t2,t2) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a2678 in recur in split-at in k1859 */ 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=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,3)))){ C_save_and_reclaim((void *)f_2679,4,av);} a=C_alloc(3); t4=C_i_car(((C_word*)t0)[2]); t5=C_a_i_cons(&a,2,t4,t2); /* srfi-1.scm:603: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t3; C_values(4,av2);}} /* k2120 in circular-list in k1859 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2122,2,av);} t2=C_i_set_cdr(t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4734 in lp in scan-out714 in partition! in k1859 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4736,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); /* srfi-1.scm:1182: scan-in */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[6]; av2[4]=t4; ((C_proc)C_fast_retrieve_proc(t5))(5,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* srfi-1.scm:1183: lp */ t4=((C_word*)((C_word*)t0)[7])[1]; f_4723(t4,((C_word*)t0)[5],((C_word*)t0)[3],t3);}} /* k5797 in lp in list-index in k1859 */ static void C_ccall f_5799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5799,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_cdr(t2); t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* srfi-1.scm:1427: lp */ t5=((C_word*)((C_word*)t0)[5])[1]; f_5786(t5,((C_word*)t0)[2],t3,t4);}} /* split-at in k1859 */ 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=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,4)))){ C_save_and_reclaim((void *)f_2641,4,av);} a=C_alloc(6); t4=C_i_check_exact_2(t3,lf[44]); 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_2650,a[2]=t6,a[3]=((C_word)li47),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_2650(t8,t1,t2,t3);} /* lp in dotted-list? in k1859 */ static C_word C_fcall f_2131(C_word t1,C_word t2){ C_word tmp; C_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(C_SCHEME_FALSE);} else{ t9=t5; t10=t6; t1=t9; t2=t10; goto loop;}} else{ t5=C_i_nullp(t4); return(C_i_not(t5));}} else{ t3=C_i_nullp(t1); return(C_i_not(t3));}} /* split-at! in k1859 */ 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=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,3)))){ C_save_and_reclaim((void *)f_2693,4,av);} a=C_alloc(4); t4=C_i_check_exact_2(t3,lf[45]); t5=C_eqp(C_fix(0),t3); if(C_truep(t5)){ /* srfi-1.scm:608: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_END_OF_LIST; av2[3]=t2; C_values(4,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2709,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t7=C_fixnum_difference(t3,C_fix(1)); /* srfi-1.scm:609: drop */ t8=*((C_word*)lf[39]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; av2[2]=t2; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} /* k4783 in lp in k4760 in partition! in k1859 */ static void C_ccall f_4785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4785,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* srfi-1.scm:1191: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4769(t4,((C_word*)t0)[4],((C_word*)t0)[2],t3);} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4793,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); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); /* srfi-1.scm:1192: scan-out */ t5=((C_word*)((C_word*)t0)[6])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[2]; av2[4]=t4; ((C_proc)C_fast_retrieve_proc(t5))(5,av2);}}} /* reverse! in k1859 */ 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=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,3)))){ C_save_and_reclaim((void *)f_5818,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5824,a[2]=((C_word)li241),tmp=(C_word)a,a+=3,tmp); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_5824(t2,C_SCHEME_END_OF_LIST) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* circular-list in k1859 */ static void C_ccall f_2111(C_word c,C_word *av){ C_word tmp; C_word 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_2111,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_cons(&a,2,t2,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2122,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:348: last-pair */ t7=*((C_word*)lf[10]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k4590 in k4596 in lp in filter! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4592,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4596 in lp in filter! in k1859 */ 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 t4; C_word t5; C_word 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,4)))){ C_save_and_reclaim((void *)f_4598,2,av);} a=C_alloc(19); 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_SCHEME_UNDEFINED; 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_4524,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word)li166),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4550,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li168),tmp=(C_word)a,a+=5,tmp); t8=C_set_block_item(t3,0,t6); t9=C_set_block_item(t5,0,t7); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4592,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t11=((C_word*)t0)[4]; t12=C_u_i_cdr(t11); /* srfi-1.scm:1115: scan-in */ t13=((C_word*)t3)[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t13; av2[1]=t10; av2[2]=((C_word*)t0)[4]; av2[3]=t12; ((C_proc)C_fast_retrieve_proc(t13))(4,av2);}} else{ t2=((C_word*)t0)[4]; t3=C_u_i_cdr(t2); /* srfi-1.scm:1091: lp */ t4=((C_word*)((C_word*)t0)[5])[1]; f_4505(t4,((C_word*)t0)[3],t3);}} /* tenth in k1859 */ static void C_ccall f_2423(C_word c,C_word *av){ C_word tmp; C_word 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_2423,3,av);} t3=C_i_cddddr(t2); t4=C_i_cddddr(t3); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_cadr(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* recur in cons* in k1859 */ static void C_fcall f_1965(C_word t0,C_word t1,C_word 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(4,0,3)))){ C_save_and_reclaim_args((void *)trf_1965,4,t0,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_i_pairp(t3))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1979,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=t3; t6=C_u_i_car(t5); t7=t3; t8=C_u_i_cdr(t7); /* srfi-1.scm:270: recur */ t10=t4; t11=t6; t12=t8; t1=t10; t2=t11; t3=t12; goto loop;} else{ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* car+cdr in k1859 */ static void C_ccall f_2437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,3)))){ C_save_and_reclaim((void *)f_2437,3,av);} t3=C_i_check_pair_2(t2,lf[37]); t4=C_slot(t2,C_fix(0)); t5=C_slot(t2,C_fix(1)); /* srfi-1.scm:495: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_values(4,av2);}} /* lp in a5528 in any in k1859 */ static void C_fcall f_5541(C_word 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(10,0,4)))){ C_save_and_reclaim_args((void *)trf_5541,4,t0,t1,t2,t3);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5547,a[2]=t3,a[3]=((C_word)li223),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5553,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li224),tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1371: ##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);}} /* a5546 in lp in a5528 in any in k1859 */ 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 *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_5547,2,av);} /* srfi-1.scm:1374: ##srfi1#cars+cdrs */ f_3290(t1,((C_word*)t0)[2]);} /* k1977 in recur in cons* in k1859 */ 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; 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; /* Re-use our own argvector */ 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);}} /* a5552 in lp in a5528 in any in k1859 */ static void C_ccall f_5553(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_5553,4,av);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5563,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; C_apply(4,av2);}} else{{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; C_apply(4,av2);}}} /* k5677 in a5665 in lp in a5641 in every in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5679,2,av);} if(C_truep(t1)){ /* srfi-1.scm:1403: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_5654(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k4118 in a4105 in k4093 in recur in a4078 in really-append-map in k1859 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4120,2,av);} /* srfi-1.scm:939: appender */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5659 in lp in a5641 in every in k1859 */ 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 *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_5660,2,av);} /* srfi-1.scm:1401: ##srfi1#cars+cdrs */ f_3290(t1,((C_word*)t0)[2]);} /* a5665 in lp in a5641 in every in k1859 */ 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=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_5666,4,av);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5679,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; C_apply(4,av2);}} else{{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; C_apply(4,av2);}}} /* lp in pair-fold in k1859 */ static void C_fcall f_3940(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_3940,4,t0,t1,t2,t3);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3944,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); /* srfi-1.scm:894: ##srfi1#cdrs */ f_3215(t4,t2);} /* k3942 in lp in pair-fold in k1859 */ 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 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_3944,2,av);} a=C_alloc(12); t2=t1; if(C_truep(C_i_nullp(t2))){ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_3957,a[2]=((C_word*)t0)[4],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_3961,a[2]=t3,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t5=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* srfi-1.scm:896: append! */ t6=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(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);}}} /* recur in really-append-map in k1859 */ static void C_fcall f_4137(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_4137,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4141,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); /* srfi-1.scm:944: f */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* unzip3 in k1859 */ 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=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_2859,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_2865,a[2]=t4,a[3]=((C_word)li61),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_2865(t6,t1,t2);} /* k4139 in recur in really-append-map in k1859 */ static void C_ccall f_4141(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_4141,2,av);} a=C_alloc(5); t2=t1; if(C_truep(C_i_null_list_p(((C_word*)t0)[2]))){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_4154,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_i_car(((C_word*)t0)[2]); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* srfi-1.scm:946: recur */ t7=((C_word*)((C_word*)t0)[5])[1]; f_4137(t7,t3,t4,t6);}} /* k4567 in lp in scan-out676 in k4596 in lp in filter! in k1859 */ static void C_ccall f_4569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4569,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); /* srfi-1.scm:1112: scan-in */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[3]; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* srfi-1.scm:1113: lp */ t4=((C_word*)((C_word*)t0)[6])[1]; f_4556(t4,((C_word*)t0)[5],t3);}} /* recur in unzip3 in k1859 */ static void C_fcall f_2865(C_word t0,C_word 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_2865,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_null_list_p(t2))){ /* srfi-1.scm:639: values */{ C_word av2[5]; av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t2; av2[4]=t2; C_values(5,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2883,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li59),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2893,a[2]=t4,a[3]=((C_word)li60),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:640: ##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);}}} /* k3959 in k3942 in lp in pair-fold in k1859 */ static void C_ccall f_3961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3961,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* unzip2 in k1859 */ 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=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_2803,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_2809,a[2]=t4,a[3]=((C_word)li57),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_2809(t6,t1,t2);} /* append! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_3079,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_3085,a[2]=t4,a[3]=((C_word)li72),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_3085(t6,t1,t2,C_SCHEME_END_OF_LIST);} /* k3638 in k3630 in k3623 in lp in unfold-right in k1859 */ static void C_ccall f_3640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3640,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* srfi-1.scm:829: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3618(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* map-loop839 in alist-copy in k1859 */ static void C_fcall f_5105(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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_5105,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_u_i_cdr(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_mutate2(((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);}}} /* k3955 in k3942 in lp in pair-fold in k1859 */ static void C_ccall f_3957(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3957,2,av);} /* srfi-1.scm:896: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3940(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* a2882 in recur in unzip3 in k1859 */ 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; 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_2883,2,av);} t2=C_i_cdr(((C_word*)t0)[2]); /* srfi-1.scm:641: recur */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2865(t3,t1,t2);} /* recur in unzip2 in k1859 */ static void C_fcall f_2809(C_word t0,C_word 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_2809,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_null_list_p(t2))){ /* srfi-1.scm:631: values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t2; C_values(4,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2827,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li55),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2837,a[2]=t4,a[3]=((C_word)li56),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:632: ##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);}}} /* k3630 in k3623 in lp in unfold-right in k1859 */ 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; 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_3632,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3640,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); /* srfi-1.scm:830: f */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k5293 in lp in drop-while in k1859 */ 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; 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_5295,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* srfi-1.scm:1328: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_5282(t4,((C_word*)t0)[4],t3);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3985 in lp in pair-fold in k1859 */ static void C_ccall f_3987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3987,2,av);} /* srfi-1.scm:901: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3970(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* reduce in k1859 */ 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=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,4)))){ C_save_and_reclaim((void *)f_3989,5,av);} if(C_truep(C_i_null_list_p(t4))){ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_car(t4); t6=t4; t7=C_u_i_cdr(t6); /* srfi-1.scm:910: fold */ t8=*((C_word*)lf[66]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t1; av2[2]=t2; av2[3]=t5; av2[4]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} /* unfold in k1859 */ 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=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); if(C_unlikely(!C_demand(C_calculate_demand((c-6)*C_SIZEOF_PAIR +10,c,9)))){ C_save_and_reclaim((void*)f_3648,c,av);} a=C_alloc((c-6)*C_SIZEOF_PAIR+10); 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; if(C_truep(C_i_pairp(t6))){ t7=t6; t8=C_u_i_car(t7); t9=t6; t10=C_u_i_cdr(t9); if(C_truep(C_i_pairp(t10))){{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(10); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[64]+1); av2[3]=lf[65]; av2[4]=*((C_word*)lf[63]+1); av2[5]=t2; av2[6]=t3; av2[7]=t4; av2[8]=t5; av2[9]=t6; C_apply(10,av2);}} 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|7,a[1]=(C_word)f_3670,a[2]=t8,a[3]=t12,a[4]=t4,a[5]=t3,a[6]=t2,a[7]=((C_word)li99),tmp=(C_word)a,a+=8,tmp)); t14=((C_word*)t12)[1]; f_3670(t14,t1,t5);}} 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_3702,a[2]=t8,a[3]=t4,a[4]=t3,a[5]=t2,a[6]=((C_word)li100),tmp=(C_word)a,a+=7,tmp)); t10=((C_word*)t8)[1]; f_3702(t10,t1,t5);}} /* a2892 in recur in unzip3 in k1859 */ static void C_ccall f_2893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(9,c,4)))){ C_save_and_reclaim((void *)f_2893,5,av);} a=C_alloc(9); t5=C_i_car(((C_word*)t0)[2]); t6=C_a_i_cons(&a,2,t5,t2); t7=C_i_cadr(((C_word*)t0)[2]); t8=C_a_i_cons(&a,2,t7,t3); t9=C_i_caddr(((C_word*)t0)[2]); t10=C_a_i_cons(&a,2,t9,t4); /* srfi-1.scm:642: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t8; av2[4]=t10; C_values(5,av2);}} /* lp in pair-fold in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_3970,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_null_list_p(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_3987,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:901: f */ t7=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}} /* k4189 in k4180 in lp in pair-for-each in k1859 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4191,2,av);} /* srfi-1.scm:957: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4178(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k3623 in lp in unfold-right in k1859 */ 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(7,c,2)))){ C_save_and_reclaim((void *)f_3625,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_3632,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); /* srfi-1.scm:829: g */ t3=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} /* k3599 in lp in count in k1859 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3601,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-1.scm:817: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3580(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} else{ t2=((C_word*)t0)[2]; /* srfi-1.scm:817: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3580(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}} /* length+ in k1859 */ 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 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_2314,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2320,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_2320(t2,t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* lp in unfold-right in k1859 */ static void C_fcall f_3618(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_3618,4,t0,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3625,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); /* srfi-1.scm:828: p */ t5=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* lp in pair-for-each in k1859 */ static void C_fcall f_4199(C_word 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_4199,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_null_list_p(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_cdr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4212,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:963: proc */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* k3766 in a3753 in lp in fold in k1859 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3768,2,av);} /* srfi-1.scm:858: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3742(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* unfold-right in k1859 */ static void C_ccall f_3608(C_word c,C_word *av){ C_word tmp; C_word t0=av[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); if(C_unlikely(!C_demand(C_calculate_demand((c-6)*C_SIZEOF_PAIR +9,c,4)))){ C_save_and_reclaim((void*)f_3608,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; C_word t10; C_word t11; C_word t12; t7=C_i_nullp(t6); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_car(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|6,a[1]=(C_word)f_3618,a[2]=t10,a[3]=t3,a[4]=t4,a[5]=t2,a[6]=((C_word)li97),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_3618(t12,t1,t5,t8);} /* a3753 in lp in fold in k1859 */ 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=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_3754,4,av);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t4=((C_word*)t0)[2]; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_3768,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=t2; C_apply(4,av2);}}} /* a2664 in recur in split-at in k1859 */ 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; 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,3)))){ C_save_and_reclaim((void *)f_2665,2,av);} t2=C_i_cdr(((C_word*)t0)[2]); t3=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); /* srfi-1.scm:602: recur */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2650(t4,t1,t2,t3);} /* k4152 in k4139 in recur in really-append-map in k1859 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4154,2,av);} /* srfi-1.scm:946: appender */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* recur in pair-fold-right in k1859 */ static void C_fcall f_3904(C_word t0,C_word 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_3904,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_null_list_p(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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3918,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_i_cdr(t2); /* srfi-1.scm:888: recur */ t6=t3; t7=t4; t1=t6; t2=t7; goto loop;}} /* k4980 in recur in delete-duplicates in k1859 */ 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,1)))){ C_save_and_reclaim((void *)f_4982,2,av);} a=C_alloc(3); t2=C_eqp(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* list-tabulate in k1859 */ 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=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_1922,4,av);} a=C_alloc(7); t4=C_i_check_exact_2(t2,lf[4]); t5=C_fixnum_difference(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|4,a[1]=(C_word)f_1935,a[2]=t7,a[3]=t3,a[4]=((C_word)li3),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_1935(t9,t1,t5,C_SCHEME_END_OF_LIST);} /* k4993 in recur in delete-duplicates in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4995,2,av);} /* srfi-1.scm:1263: recur */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4968(t2,((C_word*)t0)[3],t1);} /* recur in split-at in k1859 */ static void C_fcall f_2650(C_word t0,C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_2650,4,t0,t1,t2,t3);} a=C_alloc(10); t4=C_eqp(C_fix(0),t3); if(C_truep(t4)){ /* srfi-1.scm:601: values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_END_OF_LIST; av2[3]=t2; C_values(4,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2665,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word)li45),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2679,a[2]=t2,a[3]=((C_word)li46),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:602: ##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);}}} /* a5147 in alist-delete in k1859 */ 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=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_5148,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5156,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=C_i_car(t2); /* srfi-1.scm:1293: = */ t5=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} /* lp in append! in k1859 */ static void C_fcall f_3085(C_word t0,C_word t1,C_word 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(5,0,3)))){ C_save_and_reclaim_args((void *)trf_3085,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t4=C_i_car(t2); t5=t4; t6=t2; t7=C_u_i_cdr(t6); if(C_truep(C_i_pairp(t5))){ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3112,a[2]=t5,a[3]=t1,a[4]=t7,tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:680: last-pair */ t9=*((C_word*)lf[10]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ /* srfi-1.scm:677: lp */ t10=t1; t11=t7; t12=t5; t1=t10; t2=t11; t3=t12; goto loop;}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2005 in recur in list-copy in k1859 */ static void C_ccall f_2007(C_word c,C_word *av){ C_word tmp; 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_2007,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* alist-delete in k1859 */ 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=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,3)))){ C_save_and_reclaim((void*)f_5139,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; t5=C_i_nullp(t4); t6=(C_truep(t5)?*((C_word*)lf[85]+1):C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5148,a[2]=t7,a[3]=t2,a[4]=((C_word)li199),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1293: filter */ t9=*((C_word*)lf[78]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t1; av2[2]=t8; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* iota in k1859 */ 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=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,5)))){ C_save_and_reclaim((void*)f_2011,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=C_i_check_number_2(t2,lf[7]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2018,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_lessp(t2,C_fix(0)))){ /* srfi-1.scm:286: ##sys#error */ t6=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t5; av2[2]=lf[7]; av2[3]=lf[8]; av2[4]=*((C_word*)lf[7]+1); av2[5]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} else{ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_2018(2,av2);}}} /* body106 in k2016 in iota in k1859 */ static void C_fcall f_2019(C_word t0,C_word t1,C_word 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(19,0,5)))){ C_save_and_reclaim_args((void *)trf_2019,4,t0,t1,t2,t3);} a=C_alloc(19); t4=C_i_check_number_2(t2,lf[7]); t5=C_i_check_number_2(t3,lf[7]); t6=C_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1)); t7=C_a_i_times(&a,2,t6,t3); t8=C_a_i_plus(&a,2,t2,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|4,a[1]=(C_word)f_2034,a[2]=t3,a[3]=t10,a[4]=((C_word)li9),tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_2034(t12,t1,((C_word*)t0)[2],t8,C_SCHEME_END_OF_LIST);} /* k2016 in iota in k1859 */ static void C_ccall f_2018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2018,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2019,a[2]=((C_word*)t0)[3],a[3]=((C_word)li10),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2065,a[2]=t3,a[3]=((C_word)li11),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2070,a[2]=t4,a[3]=((C_word)li12),tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t2))){ /* srfi-1.scm:287: def-start108 */ t6=t5; f_2070(t6,((C_word*)t0)[4]);} else{ t6=C_i_car(t2); t7=C_u_i_cdr(t2); if(C_truep(C_i_nullp(t7))){ /* srfi-1.scm:287: def-step109 */ t8=t4; f_2065(t8,((C_word*)t0)[4],t6);} else{ t8=C_i_car(t7); t9=C_u_i_cdr(t7); /* srfi-1.scm:287: body106 */ t10=t3; f_2019(t10,((C_word*)t0)[4],t6,t8);}}} /* a3501 in a3489 in a3477 in recur in a4244 in lp in map! in k1859 */ 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=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_3502,4,av);} a=C_alloc(6); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); t5=C_a_i_cons(&a,2,((C_word*)t0)[3],t3); /* srfi-1.scm:796: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_values(4,av2);}} /* a6243 in a6237 in k6220 in k6217 in lset-difference! in k1859 */ static void C_ccall f_6244(C_word c,C_word *av){ C_word tmp; C_word 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_6244,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6252,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-1.scm:1561: member */ t4=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* break in k1859 */ 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; 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_5475,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5481,a[2]=t2,a[3]=((C_word)li218),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:1363: span */ t5=*((C_word*)lf[100]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a2826 in recur in unzip2 in k1859 */ 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; 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_2827,2,av);} t2=C_i_cdr(((C_word*)t0)[2]); /* srfi-1.scm:633: recur */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2809(t3,t1,t2);} /* a2836 in recur in unzip2 in k1859 */ static void C_ccall f_2837(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,3)))){ C_save_and_reclaim((void *)f_2837,4,av);} a=C_alloc(6); t4=C_i_car(((C_word*)t0)[2]); t5=C_a_i_cons(&a,2,t4,t2); t6=C_i_cadr(((C_word*)t0)[2]); t7=C_a_i_cons(&a,2,t6,t3); /* srfi-1.scm:634: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t7; C_values(4,av2);}} /* k5467 in span! in k1859 */ static void C_ccall f_5469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5469,2,av);} t2=((C_word*)t0)[2]; f_5423(t2,C_i_not(t1));} /* break! in k1859 */ 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=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_5491,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5497,a[2]=t2,a[3]=((C_word)li220),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:1364: span! */ t5=*((C_word*)lf[101]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a5496 in break! in k1859 */ 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=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_5497,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5505,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-1.scm:1364: pred */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a3548 in lp in count in k1859 */ static void C_ccall f_3549(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_3549,4,av);} a=C_alloc(7); if(C_truep(C_i_nullp(t2))){ t4=((C_word*)t0)[2]; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_cdr(((C_word*)t0)[3]); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3570,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t5,a[6]=t3,tmp=(C_word)a,a+=7,tmp); t7=((C_word*)t0)[3]; t8=C_u_i_car(t7);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t6; av2[2]=((C_word*)t0)[5]; av2[3]=t8; av2[4]=t2; C_apply(5,av2);}}} /* k6211 in a6204 in a6198 in k6181 in k6178 in lset-difference in k1859 */ static void C_ccall f_6213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6213,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* lset-difference! in k1859 */ 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=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_6215,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_6219,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1556: ##sys#check-closure */ t6=*((C_word*)lf[18]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=lf[119]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* a5480 in break in k1859 */ static void C_ccall f_5481(C_word c,C_word *av){ C_word tmp; C_word 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_5481,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5489,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-1.scm:1363: pred */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k6217 in lset-difference! in k1859 */ static void C_ccall f_6219(C_word c,C_word *av){ C_word tmp; C_word t0=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_6219,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6222,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1557: filter */ t3=*((C_word*)lf[78]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[118]+1); av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a3542 in lp in count in k1859 */ 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; 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_3543,2,av);} /* srfi-1.scm:809: ##srfi1#cars+cdrs */ f_3290(t1,((C_word*)t0)[2]);} /* k5487 in a5480 in break in k1859 */ static void C_ccall f_5489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5489,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4791 in k4783 in lp in k4760 in partition! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4793,2,av);} /* srfi-1.scm:1193: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a6204 in a6198 in k6181 in k6178 in lset-difference in k1859 */ static void C_ccall f_6205(C_word c,C_word *av){ C_word tmp; C_word 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_6205,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6213,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-1.scm:1550: member */ t4=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* lp in count in k1859 */ static void C_fcall f_3531(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_3531,5,t0,t1,t2,t3,t4);} a=C_alloc(11); if(C_truep(C_i_null_list_p(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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3543,a[2]=t3,a[3]=((C_word)li92),tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3549,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li93),tmp=(C_word)a,a+=7,tmp); /* srfi-1.scm:809: ##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);}}} /* a6237 in k6220 in k6217 in lset-difference! in k1859 */ static void C_ccall f_6238(C_word c,C_word *av){ C_word tmp; C_word 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_6238,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6244,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li268),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1561: every */ t4=*((C_word*)lf[105]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a6005 in k5999 in lset-union in k1859 */ 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=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,4)))){ C_save_and_reclaim((void *)f_6006,4,av);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t4=t3; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(t2,t3); if(C_truep(t4)){ t5=t3; t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_6030,a[2]=((C_word*)t0)[2],a[3]=((C_word)li252),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:1499: fold */ t6=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=t5; av2[3]=t3; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}}} /* k5999 in lset-union in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_6001,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6006,a[2]=((C_word*)t0)[2],a[3]=((C_word)li253),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:1494: reduce */ t3=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* lp in k4760 in partition! in k1859 */ static void C_fcall f_4813(C_word 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_4813,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_pairp(t3))){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4829,a[2]=t1,a[3]=t3,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); t5=C_i_car(t3); /* srfi-1.scm:1198: pred */ t6=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} else{ /* srfi-1.scm:1197: values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[2]; C_values(4,av2);}}} /* unzip5 in k1859 */ 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=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_2995,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_3001,a[2]=t4,a[3]=((C_word)li69),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_3001(t6,t1,t2);} /* k5270 in k5263 in recur in take-while in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_5272,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k6220 in k6217 in lset-difference! in k1859 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6222,2,av);} a=C_alloc(5); t2=t1; if(C_truep(C_i_nullp(t2))){ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(t3,t2))){ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_6238,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word)li269),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1560: filter! */ t5=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t4; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* k4827 in lp in k4760 in partition! in k1859 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4829,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4832,a[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_cdr(t3); /* srfi-1.scm:1199: scan-in */ t5=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[6]; av2[4]=t4; ((C_proc)C_fast_retrieve_proc(t5))(5,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* srfi-1.scm:1201: lp */ t4=((C_word*)((C_word*)t0)[7])[1]; f_4813(t4,((C_word*)t0)[2],((C_word*)t0)[3],t3);}} /* drop-while in k1859 */ static void C_ccall f_5276(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_5276,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_5282,a[2]=t5,a[3]=t2,a[4]=((C_word)li208),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_5282(t7,t1,t3);} /* doloop74 in k1874 in make-list in k1859 */ static void C_fcall f_1881(C_word t0,C_word t1,C_word 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; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_1881,4,t0,t1,t2,t3);} a=C_alloc(3); if(C_truep(C_fixnum_less_or_equal_p(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_a_i_cons(&a,2,((C_word*)t0)[2],t3); t7=t1; t8=t4; t9=t5; t1=t7; t2=t8; t3=t9; goto loop;}} /* k5263 in recur in take-while in k1859 */ static void C_ccall f_5265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5265,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5272,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); /* srfi-1.scm:1320: recur */ t5=((C_word*)((C_word*)t0)[5])[1]; f_5249(t5,t2,t4);} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a6409 in a6399 in k6382 in k6376 in lset-diff+intersection in k1859 */ static void C_ccall f_6410(C_word c,C_word *av){ C_word tmp; C_word 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_6410,3,av);} /* srfi-1.scm:1619: member */ t3=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* lset-diff+intersection! in k1859 */ 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=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_6416,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_6420,a[2]=t1,a[3]=t3,a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1625: ##sys#check-closure */ t6=*((C_word*)lf[18]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=lf[123]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_srfi_2d1_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_2d1_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_srfi_2d1_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(833))){ C_save(t1); C_rereclaim2(833*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,126); lf[0]=C_h_intern(&lf[0],5,"xcons"); lf[1]=C_h_intern(&lf[1],9,"make-list"); lf[2]=C_h_intern(&lf[2],9,"\003syserror"); lf[3]=C_decode_literal(C_heaptop,"\376B\000\000\037Too many arguments to MAKE-LIST"); lf[4]=C_h_intern(&lf[4],13,"list-tabulate"); lf[5]=C_h_intern(&lf[5],5,"cons\052"); lf[6]=C_h_intern(&lf[6],9,"list-copy"); lf[7]=C_h_intern(&lf[7],4,"iota"); lf[8]=C_decode_literal(C_heaptop,"\376B\000\000\023Negative step count"); lf[9]=C_h_intern(&lf[9],13,"circular-list"); lf[10]=C_h_intern(&lf[10],9,"last-pair"); lf[11]=C_h_intern(&lf[11],12,"proper-list\077"); lf[12]=C_h_intern(&lf[12],5,"list\077"); lf[13]=C_h_intern(&lf[13],12,"dotted-list\077"); lf[14]=C_h_intern(&lf[14],14,"circular-list\077"); lf[15]=C_h_intern(&lf[15],9,"not-pair\077"); lf[16]=C_h_intern(&lf[16],10,"null-list\077"); lf[17]=C_h_intern(&lf[17],5,"list="); lf[18]=C_h_intern(&lf[18],17,"\003syscheck-closure"); lf[19]=C_h_intern(&lf[19],7,"length+"); lf[20]=C_h_intern(&lf[20],3,"zip"); lf[21]=C_h_intern(&lf[21],3,"map"); lf[22]=C_h_intern(&lf[22],4,"list"); lf[23]=C_h_intern(&lf[23],5,"first"); lf[24]=C_h_intern(&lf[24],3,"car"); lf[25]=C_h_intern(&lf[25],6,"second"); lf[26]=C_h_intern(&lf[26],4,"cadr"); lf[27]=C_h_intern(&lf[27],5,"third"); lf[28]=C_h_intern(&lf[28],5,"caddr"); lf[29]=C_h_intern(&lf[29],6,"fourth"); lf[30]=C_h_intern(&lf[30],6,"cadddr"); lf[31]=C_h_intern(&lf[31],5,"fifth"); lf[32]=C_h_intern(&lf[32],5,"sixth"); lf[33]=C_h_intern(&lf[33],7,"seventh"); lf[34]=C_h_intern(&lf[34],6,"eighth"); lf[35]=C_h_intern(&lf[35],5,"ninth"); lf[36]=C_h_intern(&lf[36],5,"tenth"); lf[37]=C_h_intern(&lf[37],7,"car+cdr"); lf[38]=C_h_intern(&lf[38],4,"take"); lf[39]=C_h_intern(&lf[39],4,"drop"); lf[40]=C_h_intern(&lf[40],5,"take!"); lf[41]=C_h_intern(&lf[41],10,"take-right"); lf[42]=C_h_intern(&lf[42],10,"drop-right"); lf[43]=C_h_intern(&lf[43],11,"drop-right!"); lf[44]=C_h_intern(&lf[44],8,"split-at"); lf[45]=C_h_intern(&lf[45],9,"split-at!"); lf[46]=C_h_intern(&lf[46],4,"last"); lf[47]=C_h_intern(&lf[47],6,"unzip1"); lf[48]=C_h_intern(&lf[48],6,"unzip2"); lf[49]=C_h_intern(&lf[49],6,"unzip3"); lf[50]=C_h_intern(&lf[50],6,"unzip4"); lf[51]=C_h_intern(&lf[51],6,"unzip5"); lf[52]=C_h_intern(&lf[52],7,"append!"); lf[53]=C_h_intern(&lf[53],14,"append-reverse"); lf[54]=C_h_intern(&lf[54],15,"append-reverse!"); lf[55]=C_h_intern(&lf[55],11,"concatenate"); lf[56]=C_h_intern(&lf[56],12,"reduce-right"); lf[57]=C_h_intern(&lf[57],6,"append"); lf[58]=C_h_intern(&lf[58],12,"concatenate!"); lf[61]=C_h_intern(&lf[61],5,"count"); lf[62]=C_h_intern(&lf[62],12,"unfold-right"); lf[63]=C_h_intern(&lf[63],6,"unfold"); lf[64]=C_h_intern(&lf[64],5,"error"); lf[65]=C_decode_literal(C_heaptop,"\376B\000\000\022Too many arguments"); lf[66]=C_h_intern(&lf[66],4,"fold"); lf[67]=C_h_intern(&lf[67],10,"fold-right"); lf[68]=C_h_intern(&lf[68],15,"pair-fold-right"); lf[69]=C_h_intern(&lf[69],9,"pair-fold"); lf[70]=C_h_intern(&lf[70],6,"reduce"); lf[71]=C_h_intern(&lf[71],10,"append-map"); lf[73]=C_h_intern(&lf[73],11,"append-map!"); lf[74]=C_h_intern(&lf[74],13,"pair-for-each"); lf[75]=C_h_intern(&lf[75],4,"map!"); lf[76]=C_h_intern(&lf[76],10,"filter-map"); lf[77]=C_h_intern(&lf[77],12,"map-in-order"); lf[78]=C_h_intern(&lf[78],6,"filter"); lf[79]=C_h_intern(&lf[79],7,"filter!"); lf[80]=C_h_intern(&lf[80],9,"partition"); lf[81]=C_h_intern(&lf[81],10,"partition!"); lf[82]=C_h_intern(&lf[82],6,"remove"); lf[83]=C_h_intern(&lf[83],7,"remove!"); lf[84]=C_h_intern(&lf[84],6,"delete"); lf[85]=C_h_intern(&lf[85],6,"equal\077"); lf[86]=C_h_intern(&lf[86],7,"delete!"); lf[87]=C_h_intern(&lf[87],6,"member"); lf[88]=C_h_intern(&lf[88],9,"find-tail"); lf[89]=C_h_intern(&lf[89],17,"delete-duplicates"); lf[90]=C_h_intern(&lf[90],18,"delete-duplicates!"); lf[91]=C_h_intern(&lf[91],5,"assoc"); lf[92]=C_h_intern(&lf[92],4,"find"); lf[93]=C_h_intern(&lf[93],10,"alist-cons"); lf[94]=C_h_intern(&lf[94],10,"alist-copy"); lf[95]=C_h_intern(&lf[95],12,"alist-delete"); lf[96]=C_h_intern(&lf[96],13,"alist-delete!"); lf[97]=C_h_intern(&lf[97],10,"take-while"); lf[98]=C_h_intern(&lf[98],10,"drop-while"); lf[99]=C_h_intern(&lf[99],11,"take-while!"); lf[100]=C_h_intern(&lf[100],4,"span"); lf[101]=C_h_intern(&lf[101],5,"span!"); lf[102]=C_h_intern(&lf[102],5,"break"); lf[103]=C_h_intern(&lf[103],6,"break!"); lf[104]=C_h_intern(&lf[104],3,"any"); lf[105]=C_h_intern(&lf[105],5,"every"); lf[106]=C_h_intern(&lf[106],10,"list-index"); lf[107]=C_h_intern(&lf[107],8,"reverse!"); lf[109]=C_h_intern(&lf[109],6,"lset<="); lf[110]=C_h_intern(&lf[110],5,"lset="); lf[111]=C_h_intern(&lf[111],11,"lset-adjoin"); lf[112]=C_h_intern(&lf[112],10,"lset-union"); lf[113]=C_h_intern(&lf[113],11,"lset-union!"); lf[114]=C_h_intern(&lf[114],17,"lset-intersection"); lf[115]=C_h_intern(&lf[115],3,"eq\077"); lf[116]=C_h_intern(&lf[116],18,"lset-intersection!"); lf[117]=C_h_intern(&lf[117],15,"lset-difference"); lf[118]=C_h_intern(&lf[118],5,"pair\077"); lf[119]=C_h_intern(&lf[119],16,"lset-difference!"); lf[120]=C_h_intern(&lf[120],8,"lset-xor"); lf[121]=C_h_intern(&lf[121],22,"lset-diff+intersection"); lf[122]=C_h_intern(&lf[122],9,"lset-xor!"); lf[123]=C_h_intern(&lf[123],23,"lset-diff+intersection!"); lf[124]=C_h_intern(&lf[124],17,"register-feature!"); lf[125]=C_h_intern(&lf[125],6,"srfi-1"); C_register_lf2(lf,126,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1861,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-1.scm:16: register-feature! */ t3=*((C_word*)lf[124]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[125]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a2946 in recur in unzip4 in k1859 */ 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!=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_2947,2,av);} t2=C_i_cdr(((C_word*)t0)[2]); /* srfi-1.scm:650: recur */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2929(t3,t1,t2);} /* pair-for-each in k1859 */ 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=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,3)))){ C_save_and_reclaim((void*)f_4162,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; if(C_truep(C_i_pairp(t4))){ 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|4,a[1]=(C_word)f_4178,a[2]=t7,a[3]=t2,a[4]=((C_word)li137),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_4178(t9,t1,t5);} 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_4199,a[2]=t6,a[3]=t2,a[4]=((C_word)li138),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_4199(t8,t1,t3);}} /* a6399 in k6382 in k6376 in lset-diff+intersection in k1859 */ static void C_ccall f_6400(C_word c,C_word *av){ C_word tmp; C_word 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_6400,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6408,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6410,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li281),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1619: any */ t5=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6406 in a6399 in k6382 in k6376 in lset-diff+intersection in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6408,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* lp in drop-while in k1859 */ static void C_fcall f_5282(C_word t0,C_word t1,C_word 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_5282,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_null_list_p(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_5295,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* srfi-1.scm:1327: 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);}}} /* k2291 in lp2 in lp1 in k2221 in list= in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2293,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); /* srfi-1.scm:419: lp2 */ t6=((C_word*)((C_word*)t0)[4])[1]; f_2265(t6,((C_word*)t0)[5],t3,t5);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a3334 in a3319 in recur in a3295 in cars+cdrs in k1859 */ static void C_ccall f_3335(C_word c,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_3335,2,av);} /* srfi-1.scm:770: car+cdr */ t2=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a6041 in a6029 in a6005 in k5999 in lset-union in k1859 */ static void C_ccall f_6042(C_word c,C_word *av){ C_word tmp; C_word 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_6042,3,av);} /* srfi-1.scm:1499: = */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* lset-union! in k1859 */ static void C_ccall f_6048(C_word c,C_word *av){ C_word tmp; C_word 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_6048,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_6052,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1507: ##sys#check-closure */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[113]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a2956 in recur in unzip4 in k1859 */ 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=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(12,c,5)))){ C_save_and_reclaim((void *)f_2957,6,av);} a=C_alloc(12); t6=C_i_car(((C_word*)t0)[2]); t7=C_a_i_cons(&a,2,t6,t2); t8=C_i_cadr(((C_word*)t0)[2]); t9=C_a_i_cons(&a,2,t8,t3); t10=C_i_caddr(((C_word*)t0)[2]); t11=C_a_i_cons(&a,2,t10,t4); t12=C_i_cadddr(((C_word*)t0)[2]); t13=C_a_i_cons(&a,2,t12,t5); /* srfi-1.scm:651: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t7; av2[3]=t9; av2[4]=t11; av2[5]=t13; C_values(6,av2);}} /* lp in pair-for-each in k1859 */ static void C_fcall f_4178(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_4178,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4182,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); /* srfi-1.scm:954: ##srfi1#cdrs */ f_3215(t3,t2);} /* a6029 in a6005 in k5999 in lset-union in k1859 */ static void C_ccall f_6030(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(10,c,3)))){ C_save_and_reclaim((void *)f_6030,4,av);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6037,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6042,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li251),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1499: any */ t6=*((C_word*)lf[104]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k6035 in a6029 in a6005 in k5999 in lset-union in k1859 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6037,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* pair-fold in k1859 */ 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=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_3924,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; if(C_truep(C_i_pairp(t5))){ t6=C_a_i_cons(&a,2,t4,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_3940,a[2]=t8,a[3]=t2,a[4]=((C_word)li122),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_3940(t10,t1,t6,t3);} 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_3970,a[2]=t7,a[3]=t2,a[4]=((C_word)li123),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_3970(t9,t1,t4,t3);}} /* a3319 in recur in a3295 in cars+cdrs in k1859 */ 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=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_3320,4,av);} a=C_alloc(9); if(C_truep(C_i_null_list_p(t2))){ /* srfi-1.scm:769: abort */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=C_SCHEME_END_OF_LIST; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3335,a[2]=t2,a[3]=((C_word)li84),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3341,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word)li87),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:770: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}}} /* k4830 in k4827 in lp in k4760 in partition! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4832,2,av);} /* srfi-1.scm:1200: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6424 in k6418 in lset-diff+intersection! in k1859 */ 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 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_6426,2,av);} a=C_alloc(5); if(C_truep(t1)){ /* srfi-1.scm:1626: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_END_OF_LIST; C_values(4,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[4]; if(C_truep(C_u_i_memq(t2,t3))){ /* srfi-1.scm:1627: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_END_OF_LIST; av2[3]=((C_word*)t0)[3]; C_values(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6442,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word)li285),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1628: partition! */ t5=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=t4; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* k6418 in lset-diff+intersection! in k1859 */ static void C_ccall f_6420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6420,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6426,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1626: every */ t3=*((C_word*)lf[105]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[16]+1); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4180 in lp in pair-for-each in k1859 */ static void C_ccall f_4182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4182,2,av);} a=C_alloc(5); t2=t1; if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4191,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; C_apply(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a6298 in a6274 in a6262 in k6256 in lset-xor in k1859 */ static void C_ccall f_6299(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_6299,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6306,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1583: member */ t5=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* a3352 in a3340 in a3319 in recur in a3295 in cars+cdrs in k1859 */ 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=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_3353,4,av);} a=C_alloc(6); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); t5=C_a_i_cons(&a,2,((C_word*)t0)[3],t3); /* srfi-1.scm:772: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_values(4,av2);}} /* alist-cons in k1859 */ 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=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,1)))){ C_save_and_reclaim((void *)f_5072,5,av);} a=C_alloc(6); t5=C_a_i_cons(&a,2,t2,t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_cons(&a,2,t5,t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k5858 in lset<= in k1859 */ 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 t3; 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,4)))){ C_save_and_reclaim((void *)f_5860,2,av);} a=C_alloc(7); t2=C_i_pairp(((C_word*)t0)[2]); t3=C_i_not(t2); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(((C_word*)t0)[2]); t5=((C_word*)t0)[2]; 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_5877,a[2]=t8,a[3]=((C_word*)t0)[4],a[4]=((C_word)li245),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_5877(t10,((C_word*)t0)[3],t4,t6);}} /* a6451 in a6441 in k6424 in k6418 in lset-diff+intersection! in k1859 */ 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=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_6452,3,av);} /* srfi-1.scm:1629: member */ t3=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6448 in a6441 in k6424 in k6418 in lset-diff+intersection! in k1859 */ 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];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3916 in recur in pair-fold-right in k1859 */ static void C_ccall f_3918(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3918,2,av);} /* srfi-1.scm:888: f */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3346 in a3340 in a3319 in recur in a3295 in cars+cdrs in k1859 */ 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!=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_3347,2,av);} /* srfi-1.scm:771: recur */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3302(t2,t1,((C_word*)t0)[3]);} /* a3340 in a3319 in recur in a3295 in cars+cdrs in k1859 */ static void C_ccall f_3341(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(10,c,4)))){ C_save_and_reclaim((void *)f_3341,4,av);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3347,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li85),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3353,a[2]=t2,a[3]=t3,a[4]=((C_word)li86),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:770: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* lset<= in k1859 */ 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=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_5856,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_5860,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1462: ##sys#check-closure */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[109]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a5849 in lset2<= in k1859 */ 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=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_5850,3,av);} /* srfi-1.scm:1458: member */ t3=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a6441 in k6424 in k6418 in lset-diff+intersection! in k1859 */ 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=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_6442,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6450,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6452,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li284),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1629: any */ t5=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5452 in lp in k5421 in span! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5454,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* srfi-1.scm:1357: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_5438(t4,((C_word*)t0)[4],((C_word*)t0)[2],t3);} else{ t2=C_i_set_cdr(((C_word*)t0)[5],C_SCHEME_END_OF_LIST); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3707 in recur in unfold in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3709,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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|5,a[1]=(C_word)f_3716,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:849: f */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} /* recur in unfold in k1859 */ static void C_fcall f_3702(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_3702,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3709,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); /* srfi-1.scm:848: p */ t4=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* remove! in k1859 */ static void C_ccall f_4872(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_4872,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4878,a[2]=t2,a[3]=((C_word)li182),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:1206: filter! */ t5=*((C_word*)lf[79]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k4868 in a4861 in remove in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4870,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a4877 in remove! in k1859 */ 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=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_4878,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4886,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-1.scm:1206: pred */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k4884 in a4877 in remove! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4886,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* delete in k1859 */ 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=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,3)))){ C_save_and_reclaim((void*)f_4888,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; t5=C_i_nullp(t4); t6=(C_truep(t5)?*((C_word*)lf[85]+1):C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4897,a[2]=t7,a[3]=t2,a[4]=((C_word)li184),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1229: filter */ t9=*((C_word*)lf[78]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t1; av2[2]=t8; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* doloop83 in list-tabulate in k1859 */ static void C_fcall f_1935(C_word t0,C_word 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_1935,4,t0,t1,t2,t3);} a=C_alloc(6); 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_1957,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:259: proc */ t7=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}} /* a6097 in a6080 in a6056 in k6050 in lset-union! in k1859 */ 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=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_6098,3,av);} /* srfi-1.scm:1515: = */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6089 in a6080 in a6056 in k6050 in lset-union! in k1859 */ 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; 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_6091,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[2]; t4=C_i_setslot(t2,C_fix(1),t3); t5=((C_word*)t0)[4]; t6=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* a5399 in k5383 in recur in span in k1859 */ 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=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,3)))){ C_save_and_reclaim((void *)f_5400,4,av);} a=C_alloc(3); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); /* srfi-1.scm:1348: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t3; C_values(4,av2);}} /* remove in k1859 */ 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=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_4856,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4862,a[2]=t2,a[3]=((C_word)li180),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:1205: filter */ t5=*((C_word*)lf[78]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* span! in k1859 */ static void C_ccall f_5413(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,2)))){ C_save_and_reclaim((void *)f_5413,4,av);} a=C_alloc(8); t4=C_i_null_list_p(t3); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5423,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t4)){ t6=t5; f_5423(t6,t4);} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5469,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=C_i_car(t3); /* srfi-1.scm:1353: pred */ t8=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}}} /* ##srfi1#lset2<= in k1859 */ static void C_fcall f_5844(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_5844,4,t1,t2,t3,t4);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5850,a[2]=t4,a[3]=t2,a[4]=((C_word)li243),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1458: every */ t6=*((C_word*)lf[105]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t1; av2[2]=t5; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* a4861 in remove in k1859 */ 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=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_4862,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4870,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-1.scm:1205: pred */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* lp2 in lp1 in k2221 in list= in k1859 */ static void C_fcall f_2265(C_word t0,C_word 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_2265,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_null_list_p(t2))){ if(C_truep(C_i_null_list_p(t3))){ /* srfi-1.scm:416: lp1 */ t4=((C_word*)((C_word*)t0)[2])[1]; f_2240(t4,t1,((C_word*)t0)[3],((C_word*)t0)[4]);} 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{ if(C_truep(C_i_null_list_p(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_2293,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=C_i_car(t2); t6=C_i_car(t3); /* srfi-1.scm:418: = */ t7=((C_word*)t0)[6];{ C_word av2[4]; av2[0]=t7; av2[1]=t4; av2[2]=t5; av2[3]=t6; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}}} /* every in k1859 */ 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=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,4)))){ C_save_and_reclaim((void*)f_5620,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; if(C_truep(C_i_pairp(t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5632,a[2]=t3,a[3]=t4,a[4]=((C_word)li229),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5642,a[2]=t2,a[3]=((C_word)li233),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:1398: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} else{ t5=C_i_null_list_p(t3); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_i_car(t3); t7=t3; t8=C_u_i_cdr(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|4,a[1]=(C_word)f_5706,a[2]=t2,a[3]=t10,a[4]=((C_word)li234),tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_5706(t12,t1,t6,t8);}}} /* k3889 in k3876 in recur in pair-fold-right in k1859 */ 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_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3891,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3897 in k3876 in recur in pair-fold-right in k1859 */ 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,3)))){ C_save_and_reclaim((void *)f_3899,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* srfi-1.scm:885: append! */ t3=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5631 in every in k1859 */ static void C_ccall f_5632(C_word c,C_word *av){ 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_5632,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* srfi-1.scm:1398: ##srfi1#cars+cdrs */ f_3290(t1,t2);} /* recur in a4244 in lp in map! in k1859 */ static void C_fcall f_3460(C_word t0,C_word t1,C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_3460,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3472,a[2]=t2,a[3]=((C_word)li140),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3478,a[2]=((C_word*)t0)[2],a[3]=((C_word)li145),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:793: ##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{ /* srfi-1.scm:797: values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_END_OF_LIST; av2[3]=C_SCHEME_END_OF_LIST; C_values(4,av2);}}} /* fold in k1859 */ static void C_ccall f_3726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3726,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; if(C_truep(C_i_pairp(t5))){ t6=C_a_i_cons(&a,2,t4,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_3742,a[2]=t8,a[3]=t2,a[4]=((C_word)li112),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_3742(t10,t1,t6,t3);} 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_3773,a[2]=t7,a[3]=t2,a[4]=((C_word)li113),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_3773(t9,t1,t4,t3);}} /* k3722 in k3714 in k3707 in recur in unfold in k1859 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3724,2,av);} /* srfi-1.scm:849: recur */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3702(t2,((C_word*)t0)[3],t1);} /* recur in map-in-order in k1859 */ static void C_fcall f_4434(C_word t0,C_word t1,C_word 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(5,0,2)))){ C_save_and_reclaim_args((void *)trf_4434,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_null_list_p(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_cdr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4447,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=t2; t7=C_u_i_car(t6); /* srfi-1.scm:1018: f */ t8=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t8; av2[1]=t5; av2[2]=t7; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}}} /* k3718 in k3714 in k3707 in recur in unfold in k1859 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3720,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* a3495 in a3489 in a3477 in recur in a4244 in lp in map! in k1859 */ static void C_ccall f_3496(C_word c,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_3496,2,av);} /* srfi-1.scm:795: recur */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3460(t2,t1,((C_word*)t0)[3]);} /* a3489 in a3477 in recur in a4244 in lp in map! in k1859 */ static void C_ccall f_3490(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(10,c,4)))){ C_save_and_reclaim((void *)f_3490,4,av);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3496,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li142),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3502,a[2]=t2,a[3]=t3,a[4]=((C_word)li143),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:793: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* a5641 in every in k1859 */ 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=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_5642,4,av);} a=C_alloc(7); t4=C_i_pairp(t2); t5=C_i_not(t4); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} 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_5654,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=((C_word)li232),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_5654(t9,t1,t2,t3);}} /* k3714 in k3707 in recur in unfold in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3716,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3720,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_3724,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:849: g */ t5=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* recur in pair-fold-right in k1859 */ static void C_fcall f_3874(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_3874,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3878,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* srfi-1.scm:883: ##srfi1#cdrs */ f_3215(t3,t2);} /* k3876 in recur in pair-fold-right in k1859 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3878,2,av);} a=C_alloc(8); if(C_truep(C_i_nullp(t1))){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_3891,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_3899,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:885: recur */ t4=((C_word*)((C_word*)t0)[6])[1]; f_3874(t4,t3,t1);}} /* k4445 in recur in map-in-order in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4447,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4454,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:1019: recur */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4434(t4,t3,((C_word*)t0)[4]);} /* a3747 in lp in fold in k1859 */ 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 *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_3748,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3376,a[2]=t3,a[3]=t2,a[4]=((C_word)li109),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:778: ##sys#call-with-current-continuation */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=t4; C_call_cc(3,av2);}} /* count in k1859 */ 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=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,5)))){ C_save_and_reclaim((void*)f_3519,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; if(C_truep(C_i_pairp(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|4,a[1]=(C_word)f_3531,a[2]=t6,a[3]=t2,a[4]=((C_word)li94),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_3531(t8,t1,t3,t4,C_fix(0));} 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_3580,a[2]=t6,a[3]=t2,a[4]=((C_word)li95),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_3580(t8,t1,t3,C_fix(0));}} /* lp in fold in k1859 */ static void C_fcall f_3742(C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_3742,4,t0,t1,t2,t3);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3748,a[2]=t2,a[3]=t3,a[4]=((C_word)li110),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3754,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li111),tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:855: ##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);}} /* k5427 in k5421 in span! in k1859 */ 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);} /* srfi-1.scm:1360: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2221 in list= in k1859 */ 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 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,4)))){ C_save_and_reclaim((void *)f_2223,2,av);} a=C_alloc(7); t2=C_i_nullp(((C_word*)t0)[2]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(((C_word*)t0)[2]); t4=((C_word*)t0)[2]; 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_2240,a[2]=t7,a[3]=((C_word*)t0)[4],a[4]=((C_word)li22),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_2240(t9,((C_word*)t0)[3],t3,t5);}} /* k5421 in span! in k1859 */ static void C_fcall f_5423(C_word t0,C_word 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_5423,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ /* srfi-1.scm:1353: values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_END_OF_LIST; av2[3]=((C_word*)t0)[3]; C_values(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5429,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]); 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_5438,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=((C_word)li216),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_5438(t7,t2,((C_word*)t0)[3],t3);}} /* k3852 in recur in fold-right in k1859 */ 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,3)))){ C_save_and_reclaim((void *)f_3854,2,av);} /* srfi-1.scm:876: kons */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* pair-fold-right in k1859 */ static void C_ccall f_3858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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 +11,c,3)))){ C_save_and_reclaim((void*)f_3858,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+11); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; if(C_truep(C_i_pairp(t5))){ t6=C_a_i_cons(&a,2,t4,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_3874,a[2]=t3,a[3]=t2,a[4]=t8,a[5]=((C_word)li119),tmp=(C_word)a,a+=6,tmp)); t10=((C_word*)t8)[1]; f_3874(t10,t1,t6);} 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|5,a[1]=(C_word)f_3904,a[2]=t3,a[3]=t2,a[4]=t7,a[5]=((C_word)li120),tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_3904(t9,t1,t4);}} /* k4420 in a4411 in recur in map-in-order in k1859 */ static void C_ccall f_4422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4422,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4429,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:1011: recur */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4400(t4,t3,((C_word*)t0)[4]);} /* k4427 in k4420 in a4411 in recur in map-in-order in k1859 */ static void C_ccall f_4429(C_word c,C_word *av){ C_word tmp; 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_4429,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* lp in k5421 in span! in k1859 */ static void C_fcall f_5438(C_word 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_5438,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_null_list_p(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{ t4=C_i_car(t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5454,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1357: pred */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* drop-right in k1859 */ 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=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_2569,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2577,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:533: drop */ t5=*((C_word*)lf[39]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* lp1 in k2221 in list= in k1859 */ static void C_fcall f_2240(C_word t0,C_word t1,C_word 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(10,0,4)))){ C_save_and_reclaim_args((void *)trf_2240,4,t0,t1,t2,t3);} a=C_alloc(10); 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=t5; t7=t3; t8=C_u_i_cdr(t7); t9=C_eqp(t2,t6); if(C_truep(t9)){ /* srfi-1.scm:412: lp1 */ t14=t1; t15=t6; t16=t8; t1=t14; t2=t15; t3=t16; goto loop;} 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|7,a[1]=(C_word)f_2265,a[2]=((C_word*)t0)[2],a[3]=t6,a[4]=t8,a[5]=t11,a[6]=((C_word*)t0)[3],a[7]=((C_word)li21),tmp=(C_word)a,a+=8,tmp)); t13=((C_word*)t11)[1]; f_2265(t13,t1,t2,t6);}}} /* k5600 in lp in any in k1859 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5602,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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); /* srfi-1.scm:1384: lp */ t5=((C_word*)((C_word*)t0)[4])[1]; f_5589(t5,((C_word*)t0)[2],t2,t4);}} /* k2533 in take! in k1859 */ static void C_ccall f_2535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2535,2,av);} t2=C_i_set_cdr(t1,C_SCHEME_END_OF_LIST); t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a3295 in cars+cdrs in k1859 */ static void C_ccall f_3296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3296,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_3302,a[2]=t2,a[3]=t4,a[4]=((C_word)li89),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_3302(t6,t1,((C_word*)t0)[2]);} /* ##srfi1#cars+cdrs in k1859 */ static void C_fcall f_3290(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_3290,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3296,a[2]=t2,a[3]=((C_word)li90),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:764: ##sys#call-with-current-continuation */{ C_word av2[3]; av2[0]=0; av2[1]=t1; av2[2]=t3; C_call_cc(3,av2);}} /* take-right in k1859 */ static void C_ccall f_2541(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_2541,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2549,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:526: drop */ t5=*((C_word*)lf[39]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k2547 in take-right in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_2549,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2551,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( f_2551(((C_word*)t0)[3],t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3281 in recur in k3830 in k3813 in recur in fold-right in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3283,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k2595 in recur in k2575 in drop-right in k1859 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2597,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k6256 in lset-xor in k1859 */ static void C_ccall f_6258(C_word c,C_word *av){ C_word tmp; C_word t0=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_6258,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6263,a[2]=((C_word*)t0)[2],a[3]=((C_word)li274),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:1569: reduce */ t3=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* lset-xor in k1859 */ 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=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_6254,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_6258,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1568: ##sys#check-closure */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[120]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k6250 in a6243 in a6237 in k6220 in k6217 in lset-difference! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6252,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* take! in k1859 */ static void C_ccall f_2518(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,3)))){ C_save_and_reclaim((void *)f_2518,4,av);} a=C_alloc(4); t4=C_i_check_exact_2(t3,lf[40]); t5=C_eqp(C_fix(0),t3); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_2535,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t7=C_fixnum_difference(t3,C_fix(1)); /* srfi-1.scm:517: drop */ t8=*((C_word*)lf[39]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; av2[2]=t2; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} /* a3313 in recur in a3295 in cars+cdrs in k1859 */ 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 *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_3314,2,av);} /* srfi-1.scm:768: car+cdr */ t2=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* delete-duplicates! in k1859 */ 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=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_5003,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_word*)lf[85]+1):C_i_car(t3)); 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|4,a[1]=(C_word)f_5012,a[2]=t8,a[3]=t6,a[4]=((C_word)li192),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_5012(t10,t1,t2);} /* make-list in k1859 */ static void C_ccall f_1869(C_word c,C_word *av){ C_word tmp; C_word 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_1869,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_check_exact_2(t2,lf[1]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1876,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_1876(2,av2);}} else{ t6=C_i_cdr(t3); if(C_truep(C_i_nullp(t6))){ t7=t3; t8=C_u_i_car(t7); t9=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; f_1876(2,av2);}} else{ t7=C_a_i_cons(&a,2,t2,t3); /* srfi-1.scm:242: ##sys#error */ t8=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t5; av2[2]=lf[1]; av2[3]=lf[3]; av2[4]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}}} /* recur in a3295 in cars+cdrs in k1859 */ static void C_fcall f_3302(C_word t0,C_word t1,C_word 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_3302,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_3314,a[2]=t2,a[3]=((C_word)li83),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3320,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li88),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:768: ##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{ /* srfi-1.scm:773: values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_END_OF_LIST; av2[3]=C_SCHEME_END_OF_LIST; C_values(4,av2);}}} /* k1859 */ static void C_ccall f_1861(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(306,c,6)))){ C_save_and_reclaim((void *)f_1861,2,av);} a=C_alloc(306); t2=C_mutate2((C_word*)lf[0]+1 /* (set! xcons ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1863,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[1]+1 /* (set! make-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1869,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[4]+1 /* (set! list-tabulate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1922,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[5]+1 /* (set! cons* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1959,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[6]+1 /* (set! list-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1985,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[7]+1 /* (set! iota ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2011,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[9]+1 /* (set! circular-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2111,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[11]+1 /* (set! proper-list? ...) */,*((C_word*)lf[12]+1)); t10=C_mutate2((C_word*)lf[13]+1 /* (set! dotted-list? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2125,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[14]+1 /* (set! circular-list? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2178,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[15]+1 /* (set! not-pair? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2213,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[16]+1 /* (set! null-list? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2216,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[17]+1 /* (set! list= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2219,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[19]+1 /* (set! length+ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2314,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[20]+1 /* (set! zip ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2359,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[23]+1 /* (set! first ...) */,*((C_word*)lf[24]+1)); t18=C_mutate2((C_word*)lf[25]+1 /* (set! second ...) */,*((C_word*)lf[26]+1)); t19=C_mutate2((C_word*)lf[27]+1 /* (set! third ...) */,*((C_word*)lf[28]+1)); t20=C_mutate2((C_word*)lf[29]+1 /* (set! fourth ...) */,*((C_word*)lf[30]+1)); t21=C_mutate2((C_word*)lf[31]+1 /* (set! fifth ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2369,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate2((C_word*)lf[32]+1 /* (set! sixth ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2379,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate2((C_word*)lf[33]+1 /* (set! seventh ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2389,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate2((C_word*)lf[34]+1 /* (set! eighth ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2399,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate2((C_word*)lf[35]+1 /* (set! ninth ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2409,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate2((C_word*)lf[36]+1 /* (set! tenth ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2423,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate2((C_word*)lf[37]+1 /* (set! car+cdr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2437,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate2((C_word*)lf[38]+1 /* (set! take ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2454,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate2((C_word*)lf[39]+1 /* (set! drop ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2489,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate2((C_word*)lf[40]+1 /* (set! take! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2518,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); t31=C_mutate2((C_word*)lf[41]+1 /* (set! take-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2541,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate2((C_word*)lf[42]+1 /* (set! drop-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2569,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate2((C_word*)lf[43]+1 /* (set! drop-right! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2603,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate2((C_word*)lf[44]+1 /* (set! split-at ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2641,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate2((C_word*)lf[45]+1 /* (set! split-at! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2693,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate2((C_word*)lf[46]+1 /* (set! last ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2726,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate2((C_word*)lf[10]+1 /* (set! last-pair ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2736,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate2((C_word*)lf[47]+1 /* (set! unzip1 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2757,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate2((C_word*)lf[48]+1 /* (set! unzip2 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2803,a[2]=((C_word)li58),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate2((C_word*)lf[49]+1 /* (set! unzip3 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2859,a[2]=((C_word)li62),tmp=(C_word)a,a+=3,tmp)); t41=C_mutate2((C_word*)lf[50]+1 /* (set! unzip4 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2923,a[2]=((C_word)li66),tmp=(C_word)a,a+=3,tmp)); t42=C_mutate2((C_word*)lf[51]+1 /* (set! unzip5 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2995,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp)); t43=C_mutate2((C_word*)lf[52]+1 /* (set! append! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3079,a[2]=((C_word)li73),tmp=(C_word)a,a+=3,tmp)); t44=C_mutate2((C_word*)lf[53]+1 /* (set! append-reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3149,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp)); t45=C_mutate2((C_word*)lf[54]+1 /* (set! append-reverse! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3177,a[2]=((C_word)li77),tmp=(C_word)a,a+=3,tmp)); t46=C_mutate2((C_word*)lf[55]+1 /* (set! concatenate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3203,a[2]=((C_word)li78),tmp=(C_word)a,a+=3,tmp)); t47=C_mutate2((C_word*)lf[58]+1 /* (set! concatenate! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3209,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp)); t48=C_mutate2(&lf[59] /* (set! ##srfi1#cdrs ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3215,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp)); t49=C_mutate2(&lf[60] /* (set! ##srfi1#cars+cdrs ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3290,a[2]=((C_word)li91),tmp=(C_word)a,a+=3,tmp)); t50=C_mutate2((C_word*)lf[61]+1 /* (set! count ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3519,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp)); t51=C_mutate2((C_word*)lf[62]+1 /* (set! unfold-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3608,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp)); t52=C_mutate2((C_word*)lf[63]+1 /* (set! unfold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3648,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp)); t53=C_mutate2((C_word*)lf[66]+1 /* (set! fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3726,a[2]=((C_word)li114),tmp=(C_word)a,a+=3,tmp)); t54=C_mutate2((C_word*)lf[67]+1 /* (set! fold-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3795,a[2]=((C_word)li118),tmp=(C_word)a,a+=3,tmp)); t55=C_mutate2((C_word*)lf[68]+1 /* (set! pair-fold-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3858,a[2]=((C_word)li121),tmp=(C_word)a,a+=3,tmp)); t56=C_mutate2((C_word*)lf[69]+1 /* (set! pair-fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3924,a[2]=((C_word)li124),tmp=(C_word)a,a+=3,tmp)); t57=C_mutate2((C_word*)lf[70]+1 /* (set! reduce ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3989,a[2]=((C_word)li125),tmp=(C_word)a,a+=3,tmp)); t58=C_mutate2((C_word*)lf[56]+1 /* (set! reduce-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4007,a[2]=((C_word)li127),tmp=(C_word)a,a+=3,tmp)); t59=C_mutate2((C_word*)lf[71]+1 /* (set! append-map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4045,a[2]=((C_word)li128),tmp=(C_word)a,a+=3,tmp)); t60=C_mutate2((C_word*)lf[73]+1 /* (set! append-map! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4051,a[2]=((C_word)li129),tmp=(C_word)a,a+=3,tmp)); t61=C_mutate2(&lf[72] /* (set! ##srfi1#really-append-map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4057,a[2]=((C_word)li136),tmp=(C_word)a,a+=3,tmp)); t62=C_mutate2((C_word*)lf[74]+1 /* (set! pair-for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4162,a[2]=((C_word)li139),tmp=(C_word)a,a+=3,tmp)); t63=C_mutate2((C_word*)lf[75]+1 /* (set! map! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4221,a[2]=((C_word)li151),tmp=(C_word)a,a+=3,tmp)); t64=C_mutate2((C_word*)lf[76]+1 /* (set! filter-map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4291,a[2]=((C_word)li158),tmp=(C_word)a,a+=3,tmp)); t65=C_mutate2((C_word*)lf[77]+1 /* (set! map-in-order ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4384,a[2]=((C_word)li163),tmp=(C_word)a,a+=3,tmp)); t66=C_mutate2((C_word*)lf[21]+1 /* (set! map ...) */,*((C_word*)lf[77]+1)); t67=C_mutate2((C_word*)lf[78]+1 /* (set! filter ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4459,a[2]=((C_word)li165),tmp=(C_word)a,a+=3,tmp)); t68=C_mutate2((C_word*)lf[79]+1 /* (set! filter! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4499,a[2]=((C_word)li170),tmp=(C_word)a,a+=3,tmp)); t69=C_mutate2((C_word*)lf[80]+1 /* (set! partition ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4604,a[2]=((C_word)li172),tmp=(C_word)a,a+=3,tmp)); t70=C_mutate2((C_word*)lf[81]+1 /* (set! partition! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4668,a[2]=((C_word)li179),tmp=(C_word)a,a+=3,tmp)); t71=C_mutate2((C_word*)lf[82]+1 /* (set! remove ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4856,a[2]=((C_word)li181),tmp=(C_word)a,a+=3,tmp)); t72=C_mutate2((C_word*)lf[83]+1 /* (set! remove! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4872,a[2]=((C_word)li183),tmp=(C_word)a,a+=3,tmp)); t73=C_mutate2((C_word*)lf[84]+1 /* (set! delete ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4888,a[2]=((C_word)li185),tmp=(C_word)a,a+=3,tmp)); t74=C_mutate2((C_word*)lf[86]+1 /* (set! delete! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4913,a[2]=((C_word)li187),tmp=(C_word)a,a+=3,tmp)); t75=C_mutate2((C_word*)lf[87]+1 /* (set! member ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4938,a[2]=((C_word)li189),tmp=(C_word)a,a+=3,tmp)); t76=C_mutate2((C_word*)lf[89]+1 /* (set! delete-duplicates ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4959,a[2]=((C_word)li191),tmp=(C_word)a,a+=3,tmp)); t77=C_mutate2((C_word*)lf[90]+1 /* (set! delete-duplicates! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5003,a[2]=((C_word)li193),tmp=(C_word)a,a+=3,tmp)); t78=C_mutate2((C_word*)lf[91]+1 /* (set! assoc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5047,a[2]=((C_word)li195),tmp=(C_word)a,a+=3,tmp)); t79=C_mutate2((C_word*)lf[93]+1 /* (set! alist-cons ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5072,a[2]=((C_word)li196),tmp=(C_word)a,a+=3,tmp)); t80=C_mutate2((C_word*)lf[94]+1 /* (set! alist-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5082,a[2]=((C_word)li198),tmp=(C_word)a,a+=3,tmp)); t81=C_mutate2((C_word*)lf[95]+1 /* (set! alist-delete ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5139,a[2]=((C_word)li200),tmp=(C_word)a,a+=3,tmp)); t82=C_mutate2((C_word*)lf[96]+1 /* (set! alist-delete! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5168,a[2]=((C_word)li202),tmp=(C_word)a,a+=3,tmp)); t83=C_mutate2((C_word*)lf[92]+1 /* (set! find ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5197,a[2]=((C_word)li203),tmp=(C_word)a,a+=3,tmp)); t84=C_mutate2((C_word*)lf[88]+1 /* (set! find-tail ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5209,a[2]=((C_word)li205),tmp=(C_word)a,a+=3,tmp)); t85=C_mutate2((C_word*)lf[97]+1 /* (set! take-while ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5243,a[2]=((C_word)li207),tmp=(C_word)a,a+=3,tmp)); t86=C_mutate2((C_word*)lf[98]+1 /* (set! drop-while ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5276,a[2]=((C_word)li209),tmp=(C_word)a,a+=3,tmp)); t87=C_mutate2((C_word*)lf[99]+1 /* (set! take-while! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5306,a[2]=((C_word)li211),tmp=(C_word)a,a+=3,tmp)); t88=C_mutate2((C_word*)lf[100]+1 /* (set! span ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5360,a[2]=((C_word)li215),tmp=(C_word)a,a+=3,tmp)); t89=C_mutate2((C_word*)lf[101]+1 /* (set! span! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5413,a[2]=((C_word)li217),tmp=(C_word)a,a+=3,tmp)); t90=C_mutate2((C_word*)lf[102]+1 /* (set! break ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5475,a[2]=((C_word)li219),tmp=(C_word)a,a+=3,tmp)); t91=C_mutate2((C_word*)lf[103]+1 /* (set! break! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5491,a[2]=((C_word)li221),tmp=(C_word)a,a+=3,tmp)); t92=C_mutate2((C_word*)lf[104]+1 /* (set! any ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5507,a[2]=((C_word)li228),tmp=(C_word)a,a+=3,tmp)); t93=C_mutate2((C_word*)lf[105]+1 /* (set! every ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5620,a[2]=((C_word)li235),tmp=(C_word)a,a+=3,tmp)); t94=C_mutate2((C_word*)lf[106]+1 /* (set! list-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5733,a[2]=((C_word)li240),tmp=(C_word)a,a+=3,tmp)); t95=C_mutate2((C_word*)lf[107]+1 /* (set! reverse! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5818,a[2]=((C_word)li242),tmp=(C_word)a,a+=3,tmp)); t96=C_mutate2(&lf[108] /* (set! ##srfi1#lset2<= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5844,a[2]=((C_word)li244),tmp=(C_word)a,a+=3,tmp)); t97=C_mutate2((C_word*)lf[109]+1 /* (set! lset<= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5856,a[2]=((C_word)li246),tmp=(C_word)a,a+=3,tmp)); t98=C_mutate2((C_word*)lf[110]+1 /* (set! lset= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5913,a[2]=((C_word)li248),tmp=(C_word)a,a+=3,tmp)); t99=C_mutate2((C_word*)lf[111]+1 /* (set! lset-adjoin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5976,a[2]=((C_word)li250),tmp=(C_word)a,a+=3,tmp)); t100=C_mutate2((C_word*)lf[112]+1 /* (set! lset-union ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5997,a[2]=((C_word)li254),tmp=(C_word)a,a+=3,tmp)); t101=C_mutate2((C_word*)lf[113]+1 /* (set! lset-union! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6048,a[2]=((C_word)li258),tmp=(C_word)a,a+=3,tmp)); t102=C_mutate2((C_word*)lf[114]+1 /* (set! lset-intersection ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6104,a[2]=((C_word)li261),tmp=(C_word)a,a+=3,tmp)); t103=C_mutate2((C_word*)lf[116]+1 /* (set! lset-intersection! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6140,a[2]=((C_word)li264),tmp=(C_word)a,a+=3,tmp)); t104=C_mutate2((C_word*)lf[117]+1 /* (set! lset-difference ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6176,a[2]=((C_word)li267),tmp=(C_word)a,a+=3,tmp)); t105=C_mutate2((C_word*)lf[119]+1 /* (set! lset-difference! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6215,a[2]=((C_word)li270),tmp=(C_word)a,a+=3,tmp)); t106=C_mutate2((C_word*)lf[120]+1 /* (set! lset-xor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6254,a[2]=((C_word)li275),tmp=(C_word)a,a+=3,tmp)); t107=C_mutate2((C_word*)lf[122]+1 /* (set! lset-xor! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6311,a[2]=((C_word)li280),tmp=(C_word)a,a+=3,tmp)); t108=C_mutate2((C_word*)lf[121]+1 /* (set! lset-diff+intersection ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6374,a[2]=((C_word)li283),tmp=(C_word)a,a+=3,tmp)); t109=C_mutate2((C_word*)lf[123]+1 /* (set! lset-diff+intersection! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6416,a[2]=((C_word)li286),tmp=(C_word)a,a+=3,tmp)); t110=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t110; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t110+1)))(2,av2);}} /* xcons in k1859 */ 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=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_1863,4,av);} a=C_alloc(3); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t3,t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a6274 in a6262 in k6256 in lset-xor in k1859 */ static void C_ccall f_6275(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_6275,4,av);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ /* srfi-1.scm:1580: lset-difference */ t4=*((C_word*)lf[117]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; 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*)t4+1)))(5,av2);}} else{ if(C_truep(C_i_nullp(t3))){ /* srfi-1.scm:1581: append */ t4=*((C_word*)lf[57]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[3]; 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_6299,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li272),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1582: fold */ t5=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=t2; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}} /* k1874 in make-list in k1859 */ static void C_ccall f_1876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1876,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_1881,a[2]=t2,a[3]=t4,a[4]=((C_word)li1),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_1881(t6,((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* lp in a5641 in every in k1859 */ static void C_fcall f_5654(C_word 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(10,0,4)))){ C_save_and_reclaim_args((void *)trf_5654,4,t0,t1,t2,t3);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5660,a[2]=t3,a[3]=((C_word)li230),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5666,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li231),tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1398: ##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);}} /* a4411 in recur in map-in-order in k1859 */ 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=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_4412,4,av);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4422,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t2; C_apply(4,av2);}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a6262 in k6256 in lset-xor in k1859 */ 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; 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(12,c,4)))){ C_save_and_reclaim((void *)f_6263,4,av);} a=C_alloc(12); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6269,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,a[5]=((C_word)li271),tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6275,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word)li273),tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1569: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* a5055 in assoc in k1859 */ static void C_ccall f_5056(C_word c,C_word *av){ C_word tmp; C_word 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_5056,3,av);} t3=C_i_car(t2); /* srfi-1.scm:1283: = */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} /* lp in last-pair in k1859 */ static C_word C_fcall f_2742(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_cdr(t1); if(C_truep(C_i_pairp(t2))){ t5=t2; t1=t5; goto loop;} else{ t3=t1; return(t3);}} /* partition in k1859 */ 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=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_4604,4,av);} a=C_alloc(21); t4=C_a_i_cons(&a,2,C_SCHEME_FALSE,C_SCHEME_END_OF_LIST); t5=t4; t6=C_a_i_cons(&a,2,C_SCHEME_FALSE,C_SCHEME_END_OF_LIST); t7=t6; t8=t5; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=t7; 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|8,a[1]=(C_word)f_4616,a[2]=t5,a[3]=t7,a[4]=t9,a[5]=t13,a[6]=t11,a[7]=t2,a[8]=((C_word)li171),tmp=(C_word)a,a+=9,tmp)); t15=((C_word*)t13)[1]; f_4616(t15,t1,t3);} /* recur in unzip4 in k1859 */ static void C_fcall f_2929(C_word t0,C_word 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,6)))){ C_save_and_reclaim_args((void *)trf_2929,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_null_list_p(t2))){ /* srfi-1.scm:648: values */{ C_word av2[6]; av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t2; av2[4]=t2; av2[5]=t2; C_values(6,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2947,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li63),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2957,a[2]=t4,a[3]=((C_word)li64),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:649: ##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);}}} /* unzip4 in k1859 */ 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=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_2923,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_2929,a[2]=t4,a[3]=((C_word)li65),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_2929(t6,t1,t2);} /* alist-copy in k1859 */ 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=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(13,c,3)))){ C_save_and_reclaim((void *)f_5082,3,av);} 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=C_i_check_list_2(t2,lf[21]); 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_5105,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li197),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_5105(t11,t1,t2);} /* a6268 in a6262 in k6256 in lset-xor in k1859 */ static void C_ccall f_6269(C_word c,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_6269,2,av);} /* srfi-1.scm:1579: lset-diff+intersection */ t2=*((C_word*)lf[121]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* doloop700 in partition in k1859 */ static void C_fcall f_4616(C_word 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_4616,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t3=C_u_i_cdr(((C_word*)t0)[2]); t4=C_u_i_cdr(((C_word*)t0)[3]); /* srfi-1.scm:1128: values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_values(4,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4644,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* srfi-1.scm:1130: pred */ t6=((C_word*)t0)[7];{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* last in k1859 */ static void C_ccall f_2726(C_word c,C_word *av){ C_word tmp; C_word 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_2726,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2734,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-1.scm:615: last-pair */ t4=*((C_word*)lf[10]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* lp2 in k3110 in lp in append! in k1859 */ static void C_fcall f_3114(C_word t0,C_word t1,C_word 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(5,0,3)))){ C_save_and_reclaim_args((void *)trf_3114,4,t0,t1,t2,t3);} a=C_alloc(5); 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_i_set_cdr(t2,t5); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3133,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t7,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t5))){ /* srfi-1.scm:686: last-pair */ t10=*((C_word*)lf[10]+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=t2; /* srfi-1.scm:686: lp2 */ t12=t1; t13=t10; t14=t7; t1=t12; t2=t13; t3=t14; goto loop;}} 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);}}} /* a4896 in delete in k1859 */ static void C_ccall f_4897(C_word c,C_word *av){ C_word tmp; C_word 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,3)))){ C_save_and_reclaim((void *)f_4897,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4905,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-1.scm:1229: = */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} /* k3110 in lp in append! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_3112,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_3114,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li71),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_3114(t5,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* recur in map-in-order in k1859 */ static void C_fcall f_4400(C_word t0,C_word t1,C_word 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_4400,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4406,a[2]=t2,a[3]=((C_word)li159),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4412,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li160),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1007: ##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);}} /* a4405 in recur in map-in-order in k1859 */ 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 *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_4406,2,av);} /* srfi-1.scm:1008: ##srfi1#cars+cdrs */ f_3290(t1,((C_word*)t0)[2]);} /* k2732 in last in k1859 */ static void C_ccall f_2734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2734,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_car(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* last-pair in k1859 */ 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(3,c,2)))){ C_save_and_reclaim((void *)f_2736,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2742,a[2]=((C_word)li51),tmp=(C_word)a,a+=3,tmp); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_2742(t2) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* append-reverse in k1859 */ 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=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_3149,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_3155,a[2]=t5,a[3]=((C_word)li74),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_3155(t7,t1,t2,t3);} /* k4452 in k4445 in recur in map-in-order in k1859 */ 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(3,c,1)))){ C_save_and_reclaim((void *)f_4454,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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 in k1859 */ static void C_ccall f_4459(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_4459,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_4465,a[2]=t5,a[3]=t2,a[4]=((C_word)li164),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_4465(t7,t1,t3);} /* k2707 in split-at! in k1859 */ static void C_ccall f_2709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2709,2,av);} t2=C_i_cdr(t1); t3=C_i_set_i_slot(t1,C_fix(1),C_SCHEME_END_OF_LIST); /* srfi-1.scm:612: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* lp in k5858 in lset<= in k1859 */ static void C_fcall f_5877(C_word t0,C_word t1,C_word 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(6,0,4)))){ C_save_and_reclaim_args((void *)trf_5877,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(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=C_i_car(t3); t7=t6; t8=t3; t9=C_u_i_cdr(t8); t10=C_eqp(t7,t2); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5897,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t7,a[5]=t9,tmp=(C_word)a,a+=6,tmp); if(C_truep(t10)){ if(C_truep(t10)){ /* srfi-1.scm:1469: lp */ t13=t1; t14=t7; t15=t9; t1=t13; t2=t14; t3=t15; goto loop;} else{ t12=t1;{ C_word av2[2]; av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} else{ /* srfi-1.scm:1468: ##srfi1#lset2<= */ f_5844(t11,((C_word*)t0)[3],t2,t7);}}} /* k3131 in lp2 in k3110 in lp in append! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3133,2,av);} /* srfi-1.scm:686: lp2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3114(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k5037 in recur in delete-duplicates! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5039,2,av);} /* srfi-1.scm:1273: recur */ t2=((C_word*)((C_word*)t0)[2])[1]; f_5012(t2,((C_word*)t0)[3],t1);} /* lp in any in k1859 */ static void C_fcall f_5589(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_5589,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_null_list_p(t3))){ /* srfi-1.scm:1383: pred */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5602,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1384: 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);}}} /* k5199 in find in k1859 */ static void C_ccall f_5201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5201,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?C_i_car(t1):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* find-tail in k1859 */ 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=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_5209,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_5215,a[2]=t5,a[3]=t2,a[4]=((C_word)li204),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_5215(t7,t1,t3);} /* lp in k5915 in lset= in k1859 */ static void C_fcall f_5934(C_word t0,C_word t1,C_word 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(13,0,4)))){ C_save_and_reclaim_args((void *)trf_5934,4,t0,t1,t2,t3);} a=C_alloc(13); t4=C_i_pairp(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=C_i_car(t3); t7=t6; t8=t3; t9=C_u_i_cdr(t8); t10=C_eqp(t2,t7); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5954,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t7,a[5]=t9,tmp=(C_word)a,a+=6,tmp); if(C_truep(t10)){ if(C_truep(t10)){ /* srfi-1.scm:1481: lp */ t14=t1; t15=t7; t16=t9; t1=t14; t2=t15; t3=t16; goto loop;} else{ t12=t1;{ C_word av2[2]; av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} else{ t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5963,a[2]=t11,a[3]=((C_word*)t0)[3],a[4]=t7,a[5]=t2,a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* srfi-1.scm:1480: ##srfi1#lset2<= */ f_5844(t12,((C_word*)t0)[3],t2,t7);}}} /* k5895 in lp in k5858 in lset<= in k1859 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5897,2,av);} if(C_truep(t1)){ /* srfi-1.scm:1469: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_5877(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* lp in append-reverse in k1859 */ static void C_fcall f_3155(C_word t0,C_word t1,C_word 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_3155,4,t0,t1,t2,t3);} a=C_alloc(3); if(C_truep(C_i_null_list_p(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=t2; t6=C_u_i_car(t5); t7=C_a_i_cons(&a,2,t6,t3); /* srfi-1.scm:712: lp */ t9=t1; t10=t4; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;}} /* recur in k3830 in k3813 in recur in fold-right in k1859 */ static void C_fcall f_3265(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_3265,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_pairp(t2))){ t3=C_i_caar(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3283,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=t2; t7=C_u_i_cdr(t6); /* srfi-1.scm:757: recur */ t9=t5; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_a_i_list1(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5961 in lp in k5915 in lset= in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5963,2,av);} if(C_truep(t1)){ /* srfi-1.scm:1480: ##srfi1#lset2<= */ f_5844(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k5915 in lset= in k1859 */ 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 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,4)))){ C_save_and_reclaim((void *)f_5917,2,av);} a=C_alloc(7); t2=C_i_pairp(((C_word*)t0)[2]); t3=C_i_not(t2); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(((C_word*)t0)[2]); t5=((C_word*)t0)[2]; 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_5934,a[2]=t8,a[3]=((C_word*)t0)[4],a[4]=((C_word)li247),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_5934(t10,((C_word*)t0)[3],t4,t6);}} /* lset= in k1859 */ 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=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_5913,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_5917,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1473: ##sys#check-closure */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[110]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k5024 in recur in delete-duplicates! in k1859 */ static void C_ccall f_5026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5026,2,av);} a=C_alloc(3); t2=C_eqp(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* filter! in k1859 */ 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=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_4499,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_4505,a[2]=t2,a[3]=t5,a[4]=((C_word)li169),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_4505(t7,t1,t3);} /* lset-union in k1859 */ 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=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_5997,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_6001,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1493: ##sys#check-closure */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[112]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k5561 in a5552 in lp in a5528 in any in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5563,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* srfi-1.scm:1376: lp */ t2=((C_word*)((C_word*)t0)[3])[1]; f_5541(t2,((C_word*)t0)[2],((C_word*)t0)[4],((C_word*)t0)[5]);}} /* a3477 in recur in a4244 in lp in map! in k1859 */ 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=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_3478,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3484,a[2]=t2,a[3]=((C_word)li141),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3490,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li144),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:793: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* a3471 in recur in a4244 in lp in map! in k1859 */ 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 *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_3472,2,av);} /* srfi-1.scm:793: car+cdr */ t2=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5990 in a5984 in k5978 in lset-adjoin in k1859 */ static void C_ccall f_5992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5992,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* assoc in k1859 */ 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=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,3)))){ C_save_and_reclaim((void*)f_5047,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; t5=C_i_nullp(t4); t6=(C_truep(t5)?*((C_word*)lf[85]+1):C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5056,a[2]=t7,a[3]=t2,a[4]=((C_word)li194),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1283: find */ t9=*((C_word*)lf[92]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t1; av2[2]=t8; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* a6056 in k6050 in lset-union! in k1859 */ 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; 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,4)))){ C_save_and_reclaim((void *)f_6057,4,av);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t4=t3; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(t2,t3); if(C_truep(t4)){ t5=t3; t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_6081,a[2]=((C_word*)t0)[2],a[3]=((C_word)li256),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:1513: pair-fold */ t6=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=t5; av2[3]=t3; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}}} /* k6050 in lset-union! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_6052,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6057,a[2]=((C_word*)t0)[2],a[3]=((C_word)li257),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:1508: reduce */ t3=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* recur in delete-duplicates! in k1859 */ static void C_fcall f_5012(C_word t0,C_word t1,C_word t2){ C_word 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_5012,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_null_list_p(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_5026,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_5039,a[2]=((C_word*)t0)[2],a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:1273: delete! */ t9=*((C_word*)lf[86]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t8; av2[2]=t4; av2[3]=t6; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} /* k4480 in recur in filter in k1859 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4482,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4485,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1041: recur */ t3=((C_word*)((C_word*)t0)[6])[1]; f_4465(t3,t2,((C_word*)t0)[2]);} else{ /* srfi-1.scm:1044: recur */ t2=((C_word*)((C_word*)t0)[6])[1]; f_4465(t2,((C_word*)t0)[4],((C_word*)t0)[2]);}} /* k4483 in k4480 in recur in filter in k1859 */ static void C_ccall f_4485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4485,2,av);} a=C_alloc(3); t2=C_eqp(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[5],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a6080 in a6056 in k6050 in lset-union! in k1859 */ 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=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_6081,4,av);} a=C_alloc(10); t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6091,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6098,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=((C_word)li255),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1515: any */ t8=*((C_word*)lf[104]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* a3483 in a3477 in recur in a4244 in lp in map! in k1859 */ static void C_ccall f_3484(C_word c,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_3484,2,av);} /* srfi-1.scm:794: car+cdr */ t2=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4642 in doloop700 in partition in k1859 */ 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; C_word t3; C_word 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,2)))){ C_save_and_reclaim((void *)f_4644,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=C_i_set_cdr(((C_word*)((C_word*)t0)[2])[1],t3); t5=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t3); t6=((C_word*)t0)[4]; t7=C_u_i_cdr(t6); t8=((C_word*)((C_word*)t0)[5])[1]; f_4616(t8,((C_word*)t0)[6],t7);} else{ t2=C_i_cdr(((C_word*)((C_word*)t0)[7])[1]); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=C_i_set_cdr(((C_word*)((C_word*)t0)[7])[1],t3); t5=C_mutate2(((C_word *)((C_word*)t0)[7])+1,t3); t6=((C_word*)t0)[4]; t7=C_u_i_cdr(t6); t8=((C_word*)((C_word*)t0)[5])[1]; f_4616(t8,((C_word*)t0)[6],t7);}} /* k5952 in lp in k5915 in lset= in k1859 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5954,2,av);} if(C_truep(t1)){ /* srfi-1.scm:1481: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_5934(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* reduce-right in k1859 */ 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=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(7,c,4)))){ C_save_and_reclaim((void *)f_4007,5,av);} a=C_alloc(7); if(C_truep(C_i_null_list_p(t4))){ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_car(t4); t6=t4; 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_4025,a[2]=t2,a[3]=t9,a[4]=((C_word)li126),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_4025(t11,t1,t5,t7);}} /* recur in filter in k1859 */ static void C_fcall f_4465(C_word t0,C_word t1,C_word 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_4465,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_i_null_list_p(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|6,a[1]=(C_word)f_4482,a[2]=t6,a[3]=t2,a[4]=t1,a[5]=t4,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* srfi-1.scm:1040: pred */ t8=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}}} /* recur in k2575 in drop-right in k1859 */ static void C_fcall f_2579(C_word t0,C_word t1,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_2579,4,t0,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_i_pairp(t3))){ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2597,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); t9=t3; t10=C_u_i_cdr(t9); /* srfi-1.scm:535: recur */ t12=t6; t13=t8; t14=t10; t1=t12; t2=t13; t3=t14; goto loop;} 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);}}} /* k2575 in drop-right in k1859 */ 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; 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_2577,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_2579,a[2]=t3,a[3]=((C_word)li41),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_2579(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1);} /* lp in find-tail in k1859 */ static void C_fcall f_5215(C_word t0,C_word t1,C_word 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_5215,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_null_list_p(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_5228,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* srfi-1.scm:1311: 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);}}} /* k4037 in recur in reduce-right in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4039,2,av);} /* srfi-1.scm:917: f */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* not-pair? in k1859 */ static void C_ccall f_2213(C_word c,C_word *av){ C_word tmp; C_word 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_2213,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_not_pair_p(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* null-list? in k1859 */ static void C_ccall f_2216(C_word c,C_word *av){ C_word tmp; C_word 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_2216,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_null_list_p(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* list= in k1859 */ static void C_ccall f_2219(C_word c,C_word *av){ C_word tmp; C_word 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_2219,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_2223,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:405: ##sys#check-closure */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[17]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* lset-intersection in k1859 */ 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=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_6104,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_6108,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1524: ##sys#check-closure */ t6=*((C_word*)lf[18]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=lf[114]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k3689 in k3685 in k3675 in recur in unfold in k1859 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3691,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k3693 in k3685 in k3675 in recur in unfold in k1859 */ static void C_ccall f_3695(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3695,2,av);} /* srfi-1.scm:845: recur */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3670(t2,((C_word*)t0)[3],t1);} /* k6106 in lset-intersection in k1859 */ static void C_ccall f_6108(C_word c,C_word *av){ C_word tmp; C_word t0=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_6108,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6111,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1525: delete */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[5]; av2[4]=*((C_word*)lf[115]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5226 in lp in find-tail in k1859 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_5228,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_u_i_cdr(t2); /* srfi-1.scm:1312: lp */ t4=((C_word*)((C_word*)t0)[4])[1]; f_5215(t4,((C_word*)t0)[2],t3);}} /* append-map in k1859 */ 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=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_4045,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+0); t4=C_build_rest(&a,c,4,av); C_word t5; /* srfi-1.scm:926: ##srfi1#really-append-map */ f_4057(t1,*((C_word*)lf[57]+1),t2,t3,t4);} /* lp in k2547 in take-right in k1859 */ static C_word C_fcall f_2551(C_word t1,C_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_pairp(t2))){ t3=C_i_cdr(t1); t4=t2; t5=C_u_i_cdr(t4); t7=t3; t8=t5; t1=t7; t2=t8; goto loop;} else{ t3=t1; return(t3);}} /* k3685 in k3675 in recur in unfold in k1859 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3687,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3691,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_3695,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:845: g */ t5=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* alist-delete! in k1859 */ 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=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,3)))){ C_save_and_reclaim((void*)f_5168,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; t5=C_i_nullp(t4); t6=(C_truep(t5)?*((C_word*)lf[85]+1):C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5177,a[2]=t7,a[3]=t2,a[4]=((C_word)li201),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1297: filter! */ t9=*((C_word*)lf[79]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t1; av2[2]=t8; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* find in k1859 */ static void C_ccall f_5197(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,3)))){ C_save_and_reclaim((void *)f_5197,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5201,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-1.scm:1304: find-tail */ t5=*((C_word*)lf[88]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* take-while in k1859 */ 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=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_5243,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_5249,a[2]=t5,a[3]=t2,a[4]=((C_word)li206),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_5249(t7,t1,t3);} /* k3675 in recur in unfold in k1859 */ static void C_ccall f_3677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3677,2,av);} a=C_alloc(6); if(C_truep(t1)){ /* srfi-1.scm:844: tail-gen */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3687,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:845: f */ t3=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* recur in unfold in k1859 */ static void C_fcall f_3670(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(8,0,2)))){ C_save_and_reclaim_args((void *)trf_3670,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3677,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],tmp=(C_word)a,a+=8,tmp); /* srfi-1.scm:844: p */ t4=((C_word*)t0)[6];{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* recur in take-while in k1859 */ static void C_fcall f_5249(C_word 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_5249,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_null_list_p(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|5,a[1]=(C_word)f_5265,a[2]=t1,a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1319: pred */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* recur in reduce-right in k1859 */ static void C_fcall f_4025(C_word t0,C_word t1,C_word 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(5,0,3)))){ C_save_and_reclaim_args((void *)trf_4025,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_pairp(t3))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4039,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t5=t3; t6=C_u_i_car(t5); t7=t3; t8=C_u_i_cdr(t7); /* srfi-1.scm:917: recur */ t10=t4; t11=t6; t12=t8; t1=t10; t2=t11; t3=t12; goto loop;} else{ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* lp in scan-out714 in partition! in k1859 */ static void C_fcall f_4723(C_word t0,C_word 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_4723,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_pairp(t3))){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4736,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); t5=t3; t6=C_u_i_car(t5); /* srfi-1.scm:1180: pred */ t7=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t7; av2[1]=t4; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} else{ t4=t1;{ 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);}}} /* lp in count in k1859 */ static void C_fcall f_3580(C_word t0,C_word t1,C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_3580,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_null_list_p(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|5,a[1]=(C_word)f_3601,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_u_i_car(t7); /* srfi-1.scm:817: pred */ t9=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t9; av2[1]=t6; av2[2]=t8; ((C_proc)C_fast_retrieve_proc(t9))(3,av2);}}} /* a6133 in a6127 in k6115 in k6109 in k6106 in lset-intersection in k1859 */ 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=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_6134,3,av);} /* srfi-1.scm:1529: member */ t3=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* iter in drop in k1859 */ static C_word C_fcall f_2498(C_word t1,C_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:{} t3=C_eqp(C_fix(0),t2); if(C_truep(t3)){ t4=t1; return(t4);} else{ t4=C_i_cdr(t1); t5=C_fixnum_difference(t2,C_fix(1)); t7=t4; t8=t5; t1=t7; t2=t8; goto loop;}} /* k3568 in a3548 in lp in count in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3570,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-1.scm:811: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3531(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2);} else{ t2=((C_word*)t0)[2]; /* srfi-1.scm:811: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3531(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2);}} /* map-loop300 in unzip1 in k1859 */ static void C_fcall f_2769(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_2769,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_mutate2(((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);}}} /* a3393 in recur in a3375 in a3747 in lp in fold in k1859 */ static void C_ccall f_3394(C_word c,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_3394,2,av);} /* srfi-1.scm:782: car+cdr */ t2=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5389 in k5383 in recur in span in k1859 */ 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 *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_5390,2,av);} t2=C_i_cdr(((C_word*)t0)[2]); /* srfi-1.scm:1347: recur */ t3=((C_word*)((C_word*)t0)[3])[1]; f_5366(t3,t1,t2);} /* recur in a3375 in a3747 in lp in fold in k1859 */ static void C_fcall f_3382(C_word t0,C_word t1,C_word 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_3382,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_3394,a[2]=t2,a[3]=((C_word)li102),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3400,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li107),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:782: ##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=C_a_i_list1(&a,1,((C_word*)t0)[4]); /* srfi-1.scm:787: values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=C_SCHEME_END_OF_LIST; C_values(4,av2);}}} /* scan-out714 in partition! in k1859 */ static void C_ccall f_4717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(9,c,4)))){ C_save_and_reclaim((void *)f_4717,5,av);} 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_4723,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word*)t0)[3],a[6]=((C_word)li175),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_4723(t8,t1,t3,t4);} /* map! in k1859 */ 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=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,4)))){ C_save_and_reclaim((void*)f_4221,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4225,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(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_4233,a[2]=t7,a[3]=t2,a[4]=((C_word)li149),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_4233(t9,t5,t3,t4);} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4277,a[2]=t2,a[3]=((C_word)li150),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:977: pair-for-each */ t7=*((C_word*)lf[74]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k4223 in map! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4225,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5383 in recur in span in k1859 */ 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_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_5385,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5390,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li212),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5400,a[2]=((C_word*)t0)[4],a[3]=((C_word)li213),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:1347: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} else{ /* srfi-1.scm:1349: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=C_SCHEME_END_OF_LIST; av2[3]=((C_word*)t0)[2]; C_values(4,av2);}}} /* lp in scan-in713 in partition! in k1859 */ static void C_fcall f_4685(C_word t0,C_word 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_4685,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_pairp(t3))){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4698,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,tmp=(C_word)a,a+=8,tmp); t5=t3; t6=C_u_i_car(t5); /* srfi-1.scm:1171: pred */ t7=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t7; av2[1]=t4; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_i_set_cdr(((C_word*)t0)[3],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* unzip1 in k1859 */ static void C_ccall f_2757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(13,c,3)))){ C_save_and_reclaim((void *)f_2757,3,av);} 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=C_i_check_list_2(t2,lf[21]); 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_2769,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li53),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_2769(t11,t1,t2);} /* k4696 in lp in scan-in713 in partition! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4698,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* srfi-1.scm:1172: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4685(t4,((C_word*)t0)[4],((C_word*)t0)[2],t3);} else{ t2=C_i_set_cdr(((C_word*)t0)[5],((C_word*)t0)[2]); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); /* srfi-1.scm:1174: scan-out */ t5=((C_word*)((C_word*)t0)[6])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[2]; av2[4]=t4; ((C_proc)C_fast_retrieve_proc(t5))(5,av2);}}} /* k4093 in recur in a4078 in really-append-map in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_4095,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4100,a[2]=((C_word*)t0)[2],a[3]=((C_word)li131),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4106,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li132),tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:935: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* recur in a4078 in really-append-map in k1859 */ static void C_fcall f_4091(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_4091,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4095,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp);{ C_word av2[4]; av2[0]=0; av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=t2; C_apply(4,av2);}} /* span in k1859 */ static void C_ccall f_5360(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_5360,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_5366,a[2]=t5,a[3]=t2,a[4]=((C_word)li214),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_5366(t7,t1,t3);} /* a6127 in k6115 in k6109 in k6106 in lset-intersection in k1859 */ 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=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_6128,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6134,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li259),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1529: every */ t4=*((C_word*)lf[105]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* partition! in k1859 */ static void C_ccall f_4668(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(21,c,5)))){ C_save_and_reclaim((void *)f_4668,4,av);} a=C_alloc(21); if(C_truep(C_i_null_list_p(t3))){ /* srfi-1.scm:1162: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t3; C_values(4,av2);}} else{ 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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4679,a[2]=t7,a[3]=t2,a[4]=((C_word)li174),tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4717,a[2]=t5,a[3]=t2,a[4]=((C_word)li176),tmp=(C_word)a,a+=5,tmp); t10=C_set_block_item(t5,0,t8); t11=C_set_block_item(t7,0,t9); t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4762,a[2]=t3,a[3]=t7,a[4]=t2,a[5]=t1,a[6]=t5,tmp=(C_word)a,a+=7,tmp); t13=C_i_car(t3); /* srfi-1.scm:1187: pred */ t14=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t12; av2[2]=t13; ((C_proc)C_fast_retrieve_proc(t14))(3,av2);}}} /* k6109 in k6106 in lset-intersection in k1859 */ 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(6,c,3)))){ C_save_and_reclaim((void *)f_6111,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6117,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); /* srfi-1.scm:1526: any */ t4=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[16]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k6115 in k6109 in k6106 in lset-intersection in k1859 */ static void C_ccall f_6117(C_word c,C_word *av){ C_word tmp; C_word t0=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_6117,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((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; /* Re-use our own argvector */ 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_6128,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word)li260),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1528: filter */ t3=*((C_word*)lf[78]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}} /* recur in fold-right in k1859 */ static void C_fcall f_3837(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_3837,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_null_list_p(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_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3854,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=t2; t7=C_u_i_cdr(t6); /* srfi-1.scm:876: recur */ t9=t5; t10=t7; t1=t9; t2=t10; goto loop;}} /* recur in span in k1859 */ static void C_fcall f_5366(C_word 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_5366,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_null_list_p(t2))){ /* srfi-1.scm:1344: values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_END_OF_LIST; av2[3]=C_SCHEME_END_OF_LIST; C_values(4,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5385,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1346: pred */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* scan-in713 in partition! in k1859 */ 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=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(9,c,4)))){ C_save_and_reclaim((void *)f_4679,5,av);} 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_4685,a[2]=t6,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li173),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_4685(t8,t1,t2,t4);} /* k3830 in k3813 in recur in fold-right in k1859 */ 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 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_3832,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2]; t3=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_3265,a[2]=t5,a[3]=t3,a[4]=((C_word)li115),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_3265(t7,((C_word*)t0)[3],t2);} /* lset-intersection! in k1859 */ static void C_ccall f_6140(C_word c,C_word *av){ C_word tmp; C_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_6140,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_6144,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1534: ##sys#check-closure */ t6=*((C_word*)lf[18]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=lf[116]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k6142 in lset-intersection! in k1859 */ 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(5,c,4)))){ C_save_and_reclaim((void *)f_6144,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6147,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1535: delete */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[5]; av2[4]=*((C_word*)lf[115]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6145 in k6142 in lset-intersection! in k1859 */ 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; 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_6147,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6153,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); /* srfi-1.scm:1536: any */ t4=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[16]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2479 in recur in take in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2481,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k3826 in k3813 in recur in fold-right in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3828,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4339 in g624 in k4327 in a4318 in recur in filter-map in k1859 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4341,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* lp in map! in k1859 */ static void C_fcall f_4233(C_word 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(10,0,4)))){ C_save_and_reclaim_args((void *)trf_4233,4,t0,t1,t2,t3);} a=C_alloc(10); if(C_truep(C_i_null_list_p(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|3,a[1]=(C_word)f_4245,a[2]=t3,a[3]=((C_word)li147),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4251,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li148),tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:972: ##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);}}} /* k6304 in a6298 in a6274 in a6262 in k6256 in lset-xor in k1859 */ static void C_ccall f_6306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6306,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a3220 in cdrs in k1859 */ 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=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_3221,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_3227,a[2]=t2,a[3]=t4,a[4]=((C_word)li80),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_3227(t6,t1,((C_word*)t0)[2]);} /* drop in k1859 */ 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=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,3)))){ C_save_and_reclaim((void *)f_2489,4,av);} a=C_alloc(3); t4=C_i_check_exact_2(t3,lf[39]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2498,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=( f_2498(t2,t3) ); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k3813 in recur in fold-right in k1859 */ 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(8,c,2)))){ C_save_and_reclaim((void *)f_3815,2,av);} a=C_alloc(8); if(C_truep(C_i_nullp(t1))){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_3828,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_3832,a[2]=((C_word*)t0)[5],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:871: recur */ t4=((C_word*)((C_word*)t0)[6])[1]; f_3811(t4,t3,t1);}} /* lp in every in k1859 */ static void C_fcall f_5706(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_5706,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_null_list_p(t3))){ /* srfi-1.scm:1410: pred */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5722,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1411: 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);}}} /* recur in filter-map in k1859 */ static void C_fcall f_4352(C_word t0,C_word 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_4352,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_null_list_p(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_4362,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_cdr(t2); /* srfi-1.scm:995: recur */ t6=t3; t7=t4; t1=t6; t2=t7; goto loop;}} /* recur in fold-right in k1859 */ static void C_fcall f_3811(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_3811,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3815,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* srfi-1.scm:869: ##srfi1#cdrs */ f_3215(t3,t2);} /* a4244 in lp in map! in k1859 */ 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 t6; 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_4245,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_3460,a[2]=t4,a[3]=((C_word)li146),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_3460(t6,t1,t2);} /* recur in a3220 in cdrs in k1859 */ static void C_fcall f_3227(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_3227,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); if(C_truep(C_i_null_list_p(t4))){ /* srfi-1.scm:751: abort */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t1; av2[2]=C_SCHEME_END_OF_LIST; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t5=C_i_cdr(t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3255,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=t2; t9=C_u_i_cdr(t8); /* srfi-1.scm:752: recur */ t11=t7; t12=t9; t1=t11; t2=t12; 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);}}} /* k4210 in lp in pair-for-each in k1859 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4212,2,av);} /* srfi-1.scm:964: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4199(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* a6325 in a6319 in k6313 in lset-xor! in k1859 */ 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 *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_6326,2,av);} /* srfi-1.scm:1602: lset-diff+intersection! */ t2=*((C_word*)lf[123]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a6319 in k6313 in lset-xor! in k1859 */ 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=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(12,c,4)))){ C_save_and_reclaim((void *)f_6320,4,av);} a=C_alloc(12); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6326,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,a[5]=((C_word)li276),tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6332,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word)li278),tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1592: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* k5720 in lp in every in k1859 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5722,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); /* srfi-1.scm:1411: lp */ t5=((C_word*)((C_word*)t0)[3])[1]; f_5706(t5,((C_word*)t0)[4],t2,t4);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* lset-xor! in k1859 */ static void C_ccall f_6311(C_word c,C_word *av){ C_word tmp; C_word 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_6311,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_6315,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1591: ##sys#check-closure */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[122]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k6313 in lset-xor! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_6315,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6320,a[2]=((C_word*)t0)[2],a[3]=((C_word)li279),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:1592: reduce */ t3=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* seventh in k1859 */ static void C_ccall f_2389(C_word c,C_word *av){ C_word tmp; C_word 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_2389,3,av);} t3=C_i_cddddr(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_caddr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* recur in filter-map in k1859 */ static void C_fcall f_4307(C_word t0,C_word t1,C_word 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_4307,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4313,a[2]=t2,a[3]=((C_word)li152),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4319,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li154),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:985: ##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);}} /* a4318 in recur in filter-map in k1859 */ 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=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_4319,4,av);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4329,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t2; C_apply(4,av2);}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* lp in list-index in k1859 */ static void C_fcall f_5749(C_word 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(10,0,4)))){ C_save_and_reclaim_args((void *)trf_5749,4,t0,t1,t2,t3);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5755,a[2]=t2,a[3]=((C_word)li236),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5761,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li237),tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1418: ##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);}} /* eighth in k1859 */ static void C_ccall f_2399(C_word c,C_word *av){ C_word tmp; C_word 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_2399,3,av);} t3=C_i_cddddr(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_cadddr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* take in k1859 */ 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=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,4)))){ C_save_and_reclaim((void *)f_2454,4,av);} a=C_alloc(6); t4=C_i_check_exact_2(t3,lf[38]); 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_2463,a[2]=t6,a[3]=((C_word)li34),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_2463(t8,t1,t2,t3);} /* lset-difference in k1859 */ 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=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_6176,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_6180,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1545: ##sys#check-closure */ t6=*((C_word*)lf[18]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=lf[117]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* a6169 in a6163 in k6151 in k6145 in k6142 in lset-intersection! in k1859 */ 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=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_6170,3,av);} /* srfi-1.scm:1539: member */ t3=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a4312 in recur in filter-map in k1859 */ 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 *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_4313,2,av);} /* srfi-1.scm:986: ##srfi1#cars+cdrs */ f_3290(t1,((C_word*)t0)[2]);} /* a6331 in a6319 in k6313 in lset-xor! in k1859 */ static void C_ccall f_6332(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_6332,4,av);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ /* srfi-1.scm:1603: lset-difference! */ t4=*((C_word*)lf[119]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; 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*)t4+1)))(5,av2);}} else{ if(C_truep(C_i_nullp(t3))){ /* srfi-1.scm:1604: append! */ t4=*((C_word*)lf[52]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[3]; 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_6356,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li277),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1605: pair-fold */ t5=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=t2; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}} /* list-index in k1859 */ static void C_ccall f_5733(C_word c,C_word *av){ C_word tmp; C_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_5733,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; if(C_truep(C_i_pairp(t4))){ 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|4,a[1]=(C_word)f_5749,a[2]=t7,a[3]=t2,a[4]=((C_word)li238),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_5749(t9,t1,t5,C_fix(0));} 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_5786,a[2]=t6,a[3]=t2,a[4]=((C_word)li239),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_5786(t8,t1,t3,C_fix(0));}} /* recur in take in k1859 */ static void C_fcall f_2463(C_word t0,C_word t1,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_2463,4,t0,t1,t2,t3);} a=C_alloc(4); t4=C_eqp(C_fix(0),t3); 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_2481,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=t2; t9=C_u_i_cdr(t8); t10=C_fixnum_difference(t3,C_fix(1)); /* srfi-1.scm:505: recur */ t12=t7; t13=t9; t14=t10; t1=t12; t2=t13; t3=t14; goto loop;}} /* lset-adjoin in k1859 */ 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=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_5976,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_5980,a[2]=t2,a[3]=t1,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* srfi-1.scm:1486: ##sys#check-closure */ t6=*((C_word*)lf[18]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=lf[111]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* a6198 in k6181 in k6178 in lset-difference in k1859 */ 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=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_6199,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6205,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li265),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1550: every */ t4=*((C_word*)lf[105]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3253 in recur in a3220 in cdrs in k1859 */ static void C_ccall f_3255(C_word c,C_word *av){ C_word tmp; 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_3255,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* a6355 in a6331 in a6319 in k6313 in lset-xor! in k1859 */ static void C_ccall f_6356(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,4)))){ C_save_and_reclaim((void *)f_6356,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6363,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t5=C_i_car(t2); /* srfi-1.scm:1606: member */ t6=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k4262 in a4250 in lp in map! in k1859 */ 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 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_4264,2,av);} t2=C_i_set_car(((C_word*)t0)[2],t1); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); /* srfi-1.scm:974: lp */ t5=((C_word*)((C_word*)t0)[3])[1]; f_4233(t5,((C_word*)t0)[4],t4,((C_word*)t0)[5]);} /* a3375 in a3747 in lp in fold in k1859 */ static void C_ccall f_3376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3376,3,av);} 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_3382,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li108),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_3382(t6,t1,((C_word*)t0)[3]);} /* a3399 in recur in a3375 in a3747 in lp in fold in k1859 */ static void C_ccall f_3400(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_3400,4,av);} a=C_alloc(9); if(C_truep(C_i_null_list_p(t2))){ /* srfi-1.scm:783: abort */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=C_SCHEME_END_OF_LIST; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3415,a[2]=t2,a[3]=((C_word)li103),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3421,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word)li106),tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:784: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}}} /* a5176 in alist-delete! in k1859 */ 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=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_5177,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5185,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=C_i_car(t2); /* srfi-1.scm:1297: = */ t5=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} /* recur in list-copy in k1859 */ static void C_fcall f_1991(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_1991,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2007,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=t2; t7=C_u_i_cdr(t6); /* srfi-1.scm:278: recur */ t9=t5; t10=t7; t1=t9; t2=t10; 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);}}} /* ninth in k1859 */ static void C_ccall f_2409(C_word c,C_word *av){ C_word tmp; C_word 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_2409,3,av);} t3=C_i_cddddr(t2); t4=C_i_cddddr(t3); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_car(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* lp in list-index in k1859 */ static void C_fcall f_5786(C_word 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_5786,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_null_list_p(t2))){ 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_5799,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t5=C_i_car(t2); /* srfi-1.scm:1427: 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);}}} /* list-copy in k1859 */ static void C_ccall f_1985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1985,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_1991,a[2]=t4,a[3]=((C_word)li7),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_1991(t6,t1,t2);} /* a5760 in lp in list-index in k1859 */ 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=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_5761,4,av);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5774,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t3,tmp=(C_word)a,a+=6,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=t2; C_apply(4,av2);}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a5984 in k5978 in lset-adjoin in k1859 */ 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=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_5985,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5992,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* srfi-1.scm:1487: member */ t5=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=t3; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* scan-in675 in k4596 in lp in filter! in k1859 */ 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=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_4524,4,av);} a=C_alloc(7); if(C_truep(C_i_pairp(t3))){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4537,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t2,tmp=(C_word)a,a+=7,tmp); t5=t3; t6=C_u_i_car(t5); /* srfi-1.scm:1104: pred */ t7=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t4; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k5978 in lset-adjoin in k1859 */ static void C_ccall f_5980(C_word c,C_word *av){ C_word tmp; C_word t0=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_5980,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5985,a[2]=((C_word*)t0)[2],a[3]=((C_word)li249),tmp=(C_word)a,a+=4,tmp); /* srfi-1.scm:1487: fold */ t3=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5772 in a5760 in lp in list-index in k1859 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5774,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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)); /* srfi-1.scm:1422: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_5749(t3,((C_word*)t0)[2],((C_word*)t0)[5],t2);}} /* k5154 in a5147 in alist-delete in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5156,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* filter-map in k1859 */ 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=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,3)))){ C_save_and_reclaim((void*)f_4291,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; if(C_truep(C_i_pairp(t4))){ 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|4,a[1]=(C_word)f_4307,a[2]=t7,a[3]=t2,a[4]=((C_word)li155),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_4307(t9,t1,t5);} 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_4352,a[2]=t2,a[3]=t6,a[4]=((C_word)li157),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_4352(t8,t1,t3);}} /* k5183 in a5176 in alist-delete! in k1859 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5185,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4535 in scan-in675 in k4596 in lp in filter! in k1859 */ static void C_ccall f_4537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4537,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* srfi-1.scm:1105: scan-in */ t4=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[2]; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* srfi-1.scm:1106: scan-out */ t4=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[6]; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}} /* a5754 in lp in list-index in k1859 */ 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 *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_5755,2,av);} /* srfi-1.scm:1419: ##srfi1#cars+cdrs */ f_3290(t1,((C_word*)t0)[2]);} /* circular-list? in k1859 */ static void C_ccall f_2178(C_word c,C_word *av){ C_word tmp; C_word 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,3)))){ C_save_and_reclaim((void *)f_2178,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2184,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_2184(t2,t2) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[435] = { {"f_2065:srfi_2d1_2escm",(void*)f_2065}, {"f_3427:srfi_2d1_2escm",(void*)f_3427}, {"f_4329:srfi_2d1_2escm",(void*)f_4329}, {"f_1957:srfi_2d1_2escm",(void*)f_1957}, {"f_3421:srfi_2d1_2escm",(void*)f_3421}, {"f_1959:srfi_2d1_2escm",(void*)f_1959}, {"f_2369:srfi_2d1_2escm",(void*)f_2369}, {"f_2070:srfi_2d1_2escm",(void*)f_2070}, {"f_3029:srfi_2d1_2escm",(void*)f_3029}, {"f_2379:srfi_2d1_2escm",(void*)f_2379}, {"f_4333:srfi_2d1_2escm",(void*)f_4333}, {"f_4505:srfi_2d1_2escm",(void*)f_4505}, {"f_3019:srfi_2d1_2escm",(void*)f_3019}, {"f_5354:srfi_2d1_2escm",(void*)f_5354}, {"f_3433:srfi_2d1_2escm",(void*)f_3433}, {"f_3001:srfi_2d1_2escm",(void*)f_3001}, {"f_2320:srfi_2d1_2escm",(void*)f_2320}, {"f_3415:srfi_2d1_2escm",(void*)f_3415}, {"f_5306:srfi_2d1_2escm",(void*)f_5306}, {"f_2603:srfi_2d1_2escm",(void*)f_2603}, {"f_2607:srfi_2d1_2escm",(void*)f_2607}, {"f_5316:srfi_2d1_2escm",(void*)f_5316}, {"f_5319:srfi_2d1_2escm",(void*)f_5319}, {"f_4905:srfi_2d1_2escm",(void*)f_4905}, {"f_4556:srfi_2d1_2escm",(void*)f_4556}, {"f_4550:srfi_2d1_2escm",(void*)f_4550}, {"f_4930:srfi_2d1_2escm",(void*)f_4930}, {"f_4913:srfi_2d1_2escm",(void*)f_4913}, {"f_4938:srfi_2d1_2escm",(void*)f_4938}, {"f_4922:srfi_2d1_2escm",(void*)f_4922}, {"f_6363:srfi_2d1_2escm",(void*)f_6363}, {"f_4079:srfi_2d1_2escm",(void*)f_4079}, {"f_5507:srfi_2d1_2escm",(void*)f_5507}, {"f_5505:srfi_2d1_2escm",(void*)f_5505}, {"f_4947:srfi_2d1_2escm",(void*)f_4947}, {"f_4959:srfi_2d1_2escm",(void*)f_4959}, {"f_5519:srfi_2d1_2escm",(void*)f_5519}, {"f_3773:srfi_2d1_2escm",(void*)f_3773}, {"f_6384:srfi_2d1_2escm",(void*)f_6384}, {"f_2359:srfi_2d1_2escm",(void*)f_2359}, {"f_2184:srfi_2d1_2escm",(void*)f_2184}, {"f_4057:srfi_2d1_2escm",(void*)f_4057}, {"f_4051:srfi_2d1_2escm",(void*)f_4051}, {"f_5529:srfi_2d1_2escm",(void*)f_5529}, {"f_4968:srfi_2d1_2escm",(void*)f_4968}, {"f_4365:srfi_2d1_2escm",(void*)f_4365}, {"f_4362:srfi_2d1_2escm",(void*)f_4362}, {"f_6374:srfi_2d1_2escm",(void*)f_6374}, {"f_4369:srfi_2d1_2escm",(void*)f_4369}, {"f_6378:srfi_2d1_2escm",(void*)f_6378}, {"f_6164:srfi_2d1_2escm",(void*)f_6164}, {"f_4069:srfi_2d1_2escm",(void*)f_4069}, {"f_2034:srfi_2d1_2escm",(void*)f_2034}, {"f_3791:srfi_2d1_2escm",(void*)f_3791}, {"f_4106:srfi_2d1_2escm",(void*)f_4106}, {"f_3203:srfi_2d1_2escm",(void*)f_3203}, {"f_3795:srfi_2d1_2escm",(void*)f_3795}, {"f_4100:srfi_2d1_2escm",(void*)f_4100}, {"f_6153:srfi_2d1_2escm",(void*)f_6153}, {"f_3183:srfi_2d1_2escm",(void*)f_3183}, {"f_3215:srfi_2d1_2escm",(void*)f_3215}, {"f_4384:srfi_2d1_2escm",(void*)f_4384}, {"f_3177:srfi_2d1_2escm",(void*)f_3177}, {"f_6183:srfi_2d1_2escm",(void*)f_6183}, {"f_6180:srfi_2d1_2escm",(void*)f_6180}, {"f_3209:srfi_2d1_2escm",(void*)f_3209}, {"f_4277:srfi_2d1_2escm",(void*)f_4277}, {"f_5325:srfi_2d1_2escm",(void*)f_5325}, {"f_4285:srfi_2d1_2escm",(void*)f_4285}, {"f_4769:srfi_2d1_2escm",(void*)f_4769}, {"f_2620:srfi_2d1_2escm",(void*)f_2620}, {"f_5339:srfi_2d1_2escm",(void*)f_5339}, {"f_5824:srfi_2d1_2escm",(void*)f_5824}, {"f_4762:srfi_2d1_2escm",(void*)f_4762}, {"f_4251:srfi_2d1_2escm",(void*)f_4251}, {"f_2125:srfi_2d1_2escm",(void*)f_2125}, {"f_2679:srfi_2d1_2escm",(void*)f_2679}, {"f_2122:srfi_2d1_2escm",(void*)f_2122}, {"f_4736:srfi_2d1_2escm",(void*)f_4736}, {"f_5799:srfi_2d1_2escm",(void*)f_5799}, {"f_2641:srfi_2d1_2escm",(void*)f_2641}, {"f_2131:srfi_2d1_2escm",(void*)f_2131}, {"f_2693:srfi_2d1_2escm",(void*)f_2693}, {"f_4785:srfi_2d1_2escm",(void*)f_4785}, {"f_5818:srfi_2d1_2escm",(void*)f_5818}, {"f_2111:srfi_2d1_2escm",(void*)f_2111}, {"f_4592:srfi_2d1_2escm",(void*)f_4592}, {"f_4598:srfi_2d1_2escm",(void*)f_4598}, {"f_2423:srfi_2d1_2escm",(void*)f_2423}, {"f_1965:srfi_2d1_2escm",(void*)f_1965}, {"f_2437:srfi_2d1_2escm",(void*)f_2437}, {"f_5541:srfi_2d1_2escm",(void*)f_5541}, {"f_5547:srfi_2d1_2escm",(void*)f_5547}, {"f_1979:srfi_2d1_2escm",(void*)f_1979}, {"f_5553:srfi_2d1_2escm",(void*)f_5553}, {"f_5679:srfi_2d1_2escm",(void*)f_5679}, {"f_4120:srfi_2d1_2escm",(void*)f_4120}, {"f_5660:srfi_2d1_2escm",(void*)f_5660}, {"f_5666:srfi_2d1_2escm",(void*)f_5666}, {"f_3940:srfi_2d1_2escm",(void*)f_3940}, {"f_3944:srfi_2d1_2escm",(void*)f_3944}, {"f_4137:srfi_2d1_2escm",(void*)f_4137}, {"f_2859:srfi_2d1_2escm",(void*)f_2859}, {"f_4141:srfi_2d1_2escm",(void*)f_4141}, {"f_4569:srfi_2d1_2escm",(void*)f_4569}, {"f_2865:srfi_2d1_2escm",(void*)f_2865}, {"f_3961:srfi_2d1_2escm",(void*)f_3961}, {"f_2803:srfi_2d1_2escm",(void*)f_2803}, {"f_3079:srfi_2d1_2escm",(void*)f_3079}, {"f_3640:srfi_2d1_2escm",(void*)f_3640}, {"f_5105:srfi_2d1_2escm",(void*)f_5105}, {"f_3957:srfi_2d1_2escm",(void*)f_3957}, {"f_2883:srfi_2d1_2escm",(void*)f_2883}, {"f_2809:srfi_2d1_2escm",(void*)f_2809}, {"f_3632:srfi_2d1_2escm",(void*)f_3632}, {"f_5295:srfi_2d1_2escm",(void*)f_5295}, {"f_3987:srfi_2d1_2escm",(void*)f_3987}, {"f_3989:srfi_2d1_2escm",(void*)f_3989}, {"f_3648:srfi_2d1_2escm",(void*)f_3648}, {"f_2893:srfi_2d1_2escm",(void*)f_2893}, {"f_3970:srfi_2d1_2escm",(void*)f_3970}, {"f_4191:srfi_2d1_2escm",(void*)f_4191}, {"f_3625:srfi_2d1_2escm",(void*)f_3625}, {"f_3601:srfi_2d1_2escm",(void*)f_3601}, {"f_2314:srfi_2d1_2escm",(void*)f_2314}, {"f_3618:srfi_2d1_2escm",(void*)f_3618}, {"f_4199:srfi_2d1_2escm",(void*)f_4199}, {"f_3768:srfi_2d1_2escm",(void*)f_3768}, {"f_3608:srfi_2d1_2escm",(void*)f_3608}, {"f_3754:srfi_2d1_2escm",(void*)f_3754}, {"f_2665:srfi_2d1_2escm",(void*)f_2665}, {"f_4154:srfi_2d1_2escm",(void*)f_4154}, {"f_3904:srfi_2d1_2escm",(void*)f_3904}, {"f_4982:srfi_2d1_2escm",(void*)f_4982}, {"f_1922:srfi_2d1_2escm",(void*)f_1922}, {"f_4995:srfi_2d1_2escm",(void*)f_4995}, {"f_2650:srfi_2d1_2escm",(void*)f_2650}, {"f_5148:srfi_2d1_2escm",(void*)f_5148}, {"f_3085:srfi_2d1_2escm",(void*)f_3085}, {"f_2007:srfi_2d1_2escm",(void*)f_2007}, {"f_5139:srfi_2d1_2escm",(void*)f_5139}, {"f_2011:srfi_2d1_2escm",(void*)f_2011}, {"f_2019:srfi_2d1_2escm",(void*)f_2019}, {"f_2018:srfi_2d1_2escm",(void*)f_2018}, {"f_3502:srfi_2d1_2escm",(void*)f_3502}, {"f_6244:srfi_2d1_2escm",(void*)f_6244}, {"f_5475:srfi_2d1_2escm",(void*)f_5475}, {"f_2827:srfi_2d1_2escm",(void*)f_2827}, {"f_2837:srfi_2d1_2escm",(void*)f_2837}, {"f_5469:srfi_2d1_2escm",(void*)f_5469}, {"f_5491:srfi_2d1_2escm",(void*)f_5491}, {"f_5497:srfi_2d1_2escm",(void*)f_5497}, {"f_3549:srfi_2d1_2escm",(void*)f_3549}, {"f_6213:srfi_2d1_2escm",(void*)f_6213}, {"f_6215:srfi_2d1_2escm",(void*)f_6215}, {"f_5481:srfi_2d1_2escm",(void*)f_5481}, {"f_6219:srfi_2d1_2escm",(void*)f_6219}, {"f_3543:srfi_2d1_2escm",(void*)f_3543}, {"f_5489:srfi_2d1_2escm",(void*)f_5489}, {"f_4793:srfi_2d1_2escm",(void*)f_4793}, {"f_6205:srfi_2d1_2escm",(void*)f_6205}, {"f_3531:srfi_2d1_2escm",(void*)f_3531}, {"f_6238:srfi_2d1_2escm",(void*)f_6238}, {"f_6006:srfi_2d1_2escm",(void*)f_6006}, {"f_6001:srfi_2d1_2escm",(void*)f_6001}, {"f_4813:srfi_2d1_2escm",(void*)f_4813}, {"f_2995:srfi_2d1_2escm",(void*)f_2995}, {"f_5272:srfi_2d1_2escm",(void*)f_5272}, {"f_6222:srfi_2d1_2escm",(void*)f_6222}, {"f_4829:srfi_2d1_2escm",(void*)f_4829}, {"f_5276:srfi_2d1_2escm",(void*)f_5276}, {"f_1881:srfi_2d1_2escm",(void*)f_1881}, {"f_5265:srfi_2d1_2escm",(void*)f_5265}, {"f_6410:srfi_2d1_2escm",(void*)f_6410}, {"f_6416:srfi_2d1_2escm",(void*)f_6416}, {"toplevel:srfi_2d1_2escm",(void*)C_srfi_2d1_toplevel}, {"f_2947:srfi_2d1_2escm",(void*)f_2947}, {"f_4162:srfi_2d1_2escm",(void*)f_4162}, {"f_6400:srfi_2d1_2escm",(void*)f_6400}, {"f_6408:srfi_2d1_2escm",(void*)f_6408}, {"f_5282:srfi_2d1_2escm",(void*)f_5282}, {"f_2293:srfi_2d1_2escm",(void*)f_2293}, {"f_3335:srfi_2d1_2escm",(void*)f_3335}, {"f_6042:srfi_2d1_2escm",(void*)f_6042}, {"f_6048:srfi_2d1_2escm",(void*)f_6048}, {"f_2957:srfi_2d1_2escm",(void*)f_2957}, {"f_4178:srfi_2d1_2escm",(void*)f_4178}, {"f_6030:srfi_2d1_2escm",(void*)f_6030}, {"f_6037:srfi_2d1_2escm",(void*)f_6037}, {"f_3924:srfi_2d1_2escm",(void*)f_3924}, {"f_3320:srfi_2d1_2escm",(void*)f_3320}, {"f_4832:srfi_2d1_2escm",(void*)f_4832}, {"f_6426:srfi_2d1_2escm",(void*)f_6426}, {"f_6420:srfi_2d1_2escm",(void*)f_6420}, {"f_4182:srfi_2d1_2escm",(void*)f_4182}, {"f_6299:srfi_2d1_2escm",(void*)f_6299}, {"f_3353:srfi_2d1_2escm",(void*)f_3353}, {"f_5072:srfi_2d1_2escm",(void*)f_5072}, {"f_5860:srfi_2d1_2escm",(void*)f_5860}, {"f_6452:srfi_2d1_2escm",(void*)f_6452}, {"f_6450:srfi_2d1_2escm",(void*)f_6450}, {"f_3918:srfi_2d1_2escm",(void*)f_3918}, {"f_3347:srfi_2d1_2escm",(void*)f_3347}, {"f_3341:srfi_2d1_2escm",(void*)f_3341}, {"f_5856:srfi_2d1_2escm",(void*)f_5856}, {"f_5850:srfi_2d1_2escm",(void*)f_5850}, {"f_6442:srfi_2d1_2escm",(void*)f_6442}, {"f_5454:srfi_2d1_2escm",(void*)f_5454}, {"f_3709:srfi_2d1_2escm",(void*)f_3709}, {"f_3702:srfi_2d1_2escm",(void*)f_3702}, {"f_4872:srfi_2d1_2escm",(void*)f_4872}, {"f_4870:srfi_2d1_2escm",(void*)f_4870}, {"f_4878:srfi_2d1_2escm",(void*)f_4878}, {"f_4886:srfi_2d1_2escm",(void*)f_4886}, {"f_4888:srfi_2d1_2escm",(void*)f_4888}, {"f_1935:srfi_2d1_2escm",(void*)f_1935}, {"f_6098:srfi_2d1_2escm",(void*)f_6098}, {"f_6091:srfi_2d1_2escm",(void*)f_6091}, {"f_5400:srfi_2d1_2escm",(void*)f_5400}, {"f_4856:srfi_2d1_2escm",(void*)f_4856}, {"f_5413:srfi_2d1_2escm",(void*)f_5413}, {"f_5844:srfi_2d1_2escm",(void*)f_5844}, {"f_4862:srfi_2d1_2escm",(void*)f_4862}, {"f_2265:srfi_2d1_2escm",(void*)f_2265}, {"f_5620:srfi_2d1_2escm",(void*)f_5620}, {"f_3891:srfi_2d1_2escm",(void*)f_3891}, {"f_3899:srfi_2d1_2escm",(void*)f_3899}, {"f_5632:srfi_2d1_2escm",(void*)f_5632}, {"f_3460:srfi_2d1_2escm",(void*)f_3460}, {"f_3726:srfi_2d1_2escm",(void*)f_3726}, {"f_3724:srfi_2d1_2escm",(void*)f_3724}, {"f_4434:srfi_2d1_2escm",(void*)f_4434}, {"f_3720:srfi_2d1_2escm",(void*)f_3720}, {"f_3496:srfi_2d1_2escm",(void*)f_3496}, {"f_3490:srfi_2d1_2escm",(void*)f_3490}, {"f_5642:srfi_2d1_2escm",(void*)f_5642}, {"f_3716:srfi_2d1_2escm",(void*)f_3716}, {"f_3874:srfi_2d1_2escm",(void*)f_3874}, {"f_3878:srfi_2d1_2escm",(void*)f_3878}, {"f_4447:srfi_2d1_2escm",(void*)f_4447}, {"f_3748:srfi_2d1_2escm",(void*)f_3748}, {"f_3519:srfi_2d1_2escm",(void*)f_3519}, {"f_3742:srfi_2d1_2escm",(void*)f_3742}, {"f_5429:srfi_2d1_2escm",(void*)f_5429}, {"f_2223:srfi_2d1_2escm",(void*)f_2223}, {"f_5423:srfi_2d1_2escm",(void*)f_5423}, {"f_3854:srfi_2d1_2escm",(void*)f_3854}, {"f_3858:srfi_2d1_2escm",(void*)f_3858}, {"f_4422:srfi_2d1_2escm",(void*)f_4422}, {"f_4429:srfi_2d1_2escm",(void*)f_4429}, {"f_5438:srfi_2d1_2escm",(void*)f_5438}, {"f_2569:srfi_2d1_2escm",(void*)f_2569}, {"f_2240:srfi_2d1_2escm",(void*)f_2240}, {"f_5602:srfi_2d1_2escm",(void*)f_5602}, {"f_2535:srfi_2d1_2escm",(void*)f_2535}, {"f_3296:srfi_2d1_2escm",(void*)f_3296}, {"f_3290:srfi_2d1_2escm",(void*)f_3290}, {"f_2541:srfi_2d1_2escm",(void*)f_2541}, {"f_2549:srfi_2d1_2escm",(void*)f_2549}, {"f_3283:srfi_2d1_2escm",(void*)f_3283}, {"f_2597:srfi_2d1_2escm",(void*)f_2597}, {"f_6258:srfi_2d1_2escm",(void*)f_6258}, {"f_6254:srfi_2d1_2escm",(void*)f_6254}, {"f_6252:srfi_2d1_2escm",(void*)f_6252}, {"f_2518:srfi_2d1_2escm",(void*)f_2518}, {"f_3314:srfi_2d1_2escm",(void*)f_3314}, {"f_5003:srfi_2d1_2escm",(void*)f_5003}, {"f_1869:srfi_2d1_2escm",(void*)f_1869}, {"f_3302:srfi_2d1_2escm",(void*)f_3302}, {"f_1861:srfi_2d1_2escm",(void*)f_1861}, {"f_1863:srfi_2d1_2escm",(void*)f_1863}, {"f_6275:srfi_2d1_2escm",(void*)f_6275}, {"f_1876:srfi_2d1_2escm",(void*)f_1876}, {"f_5654:srfi_2d1_2escm",(void*)f_5654}, {"f_4412:srfi_2d1_2escm",(void*)f_4412}, {"f_6263:srfi_2d1_2escm",(void*)f_6263}, {"f_5056:srfi_2d1_2escm",(void*)f_5056}, {"f_2742:srfi_2d1_2escm",(void*)f_2742}, {"f_4604:srfi_2d1_2escm",(void*)f_4604}, {"f_2929:srfi_2d1_2escm",(void*)f_2929}, {"f_2923:srfi_2d1_2escm",(void*)f_2923}, {"f_5082:srfi_2d1_2escm",(void*)f_5082}, {"f_6269:srfi_2d1_2escm",(void*)f_6269}, {"f_4616:srfi_2d1_2escm",(void*)f_4616}, {"f_2726:srfi_2d1_2escm",(void*)f_2726}, {"f_3114:srfi_2d1_2escm",(void*)f_3114}, {"f_4897:srfi_2d1_2escm",(void*)f_4897}, {"f_3112:srfi_2d1_2escm",(void*)f_3112}, {"f_4400:srfi_2d1_2escm",(void*)f_4400}, {"f_4406:srfi_2d1_2escm",(void*)f_4406}, {"f_2734:srfi_2d1_2escm",(void*)f_2734}, {"f_2736:srfi_2d1_2escm",(void*)f_2736}, {"f_3149:srfi_2d1_2escm",(void*)f_3149}, {"f_4454:srfi_2d1_2escm",(void*)f_4454}, {"f_4459:srfi_2d1_2escm",(void*)f_4459}, {"f_2709:srfi_2d1_2escm",(void*)f_2709}, {"f_5877:srfi_2d1_2escm",(void*)f_5877}, {"f_3133:srfi_2d1_2escm",(void*)f_3133}, {"f_5039:srfi_2d1_2escm",(void*)f_5039}, {"f_5589:srfi_2d1_2escm",(void*)f_5589}, {"f_5201:srfi_2d1_2escm",(void*)f_5201}, {"f_5209:srfi_2d1_2escm",(void*)f_5209}, {"f_5934:srfi_2d1_2escm",(void*)f_5934}, {"f_5897:srfi_2d1_2escm",(void*)f_5897}, {"f_3155:srfi_2d1_2escm",(void*)f_3155}, {"f_3265:srfi_2d1_2escm",(void*)f_3265}, {"f_5963:srfi_2d1_2escm",(void*)f_5963}, {"f_5917:srfi_2d1_2escm",(void*)f_5917}, {"f_5913:srfi_2d1_2escm",(void*)f_5913}, {"f_5026:srfi_2d1_2escm",(void*)f_5026}, {"f_4499:srfi_2d1_2escm",(void*)f_4499}, {"f_5997:srfi_2d1_2escm",(void*)f_5997}, {"f_5563:srfi_2d1_2escm",(void*)f_5563}, {"f_3478:srfi_2d1_2escm",(void*)f_3478}, {"f_3472:srfi_2d1_2escm",(void*)f_3472}, {"f_5992:srfi_2d1_2escm",(void*)f_5992}, {"f_5047:srfi_2d1_2escm",(void*)f_5047}, {"f_6057:srfi_2d1_2escm",(void*)f_6057}, {"f_6052:srfi_2d1_2escm",(void*)f_6052}, {"f_5012:srfi_2d1_2escm",(void*)f_5012}, {"f_4482:srfi_2d1_2escm",(void*)f_4482}, {"f_4485:srfi_2d1_2escm",(void*)f_4485}, {"f_6081:srfi_2d1_2escm",(void*)f_6081}, {"f_3484:srfi_2d1_2escm",(void*)f_3484}, {"f_4644:srfi_2d1_2escm",(void*)f_4644}, {"f_5954:srfi_2d1_2escm",(void*)f_5954}, {"f_4007:srfi_2d1_2escm",(void*)f_4007}, {"f_4465:srfi_2d1_2escm",(void*)f_4465}, {"f_2579:srfi_2d1_2escm",(void*)f_2579}, {"f_2577:srfi_2d1_2escm",(void*)f_2577}, {"f_5215:srfi_2d1_2escm",(void*)f_5215}, {"f_4039:srfi_2d1_2escm",(void*)f_4039}, {"f_2213:srfi_2d1_2escm",(void*)f_2213}, {"f_2216:srfi_2d1_2escm",(void*)f_2216}, {"f_2219:srfi_2d1_2escm",(void*)f_2219}, {"f_6104:srfi_2d1_2escm",(void*)f_6104}, {"f_3691:srfi_2d1_2escm",(void*)f_3691}, {"f_3695:srfi_2d1_2escm",(void*)f_3695}, {"f_6108:srfi_2d1_2escm",(void*)f_6108}, {"f_5228:srfi_2d1_2escm",(void*)f_5228}, {"f_4045:srfi_2d1_2escm",(void*)f_4045}, {"f_2551:srfi_2d1_2escm",(void*)f_2551}, {"f_3687:srfi_2d1_2escm",(void*)f_3687}, {"f_5168:srfi_2d1_2escm",(void*)f_5168}, {"f_5197:srfi_2d1_2escm",(void*)f_5197}, {"f_5243:srfi_2d1_2escm",(void*)f_5243}, {"f_3677:srfi_2d1_2escm",(void*)f_3677}, {"f_3670:srfi_2d1_2escm",(void*)f_3670}, {"f_5249:srfi_2d1_2escm",(void*)f_5249}, {"f_4025:srfi_2d1_2escm",(void*)f_4025}, {"f_4723:srfi_2d1_2escm",(void*)f_4723}, {"f_3580:srfi_2d1_2escm",(void*)f_3580}, {"f_6134:srfi_2d1_2escm",(void*)f_6134}, {"f_2498:srfi_2d1_2escm",(void*)f_2498}, {"f_3570:srfi_2d1_2escm",(void*)f_3570}, {"f_2769:srfi_2d1_2escm",(void*)f_2769}, {"f_3394:srfi_2d1_2escm",(void*)f_3394}, {"f_5390:srfi_2d1_2escm",(void*)f_5390}, {"f_3382:srfi_2d1_2escm",(void*)f_3382}, {"f_4717:srfi_2d1_2escm",(void*)f_4717}, {"f_4221:srfi_2d1_2escm",(void*)f_4221}, {"f_4225:srfi_2d1_2escm",(void*)f_4225}, {"f_5385:srfi_2d1_2escm",(void*)f_5385}, {"f_4685:srfi_2d1_2escm",(void*)f_4685}, {"f_2757:srfi_2d1_2escm",(void*)f_2757}, {"f_4698:srfi_2d1_2escm",(void*)f_4698}, {"f_4095:srfi_2d1_2escm",(void*)f_4095}, {"f_4091:srfi_2d1_2escm",(void*)f_4091}, {"f_5360:srfi_2d1_2escm",(void*)f_5360}, {"f_6128:srfi_2d1_2escm",(void*)f_6128}, {"f_4668:srfi_2d1_2escm",(void*)f_4668}, {"f_6111:srfi_2d1_2escm",(void*)f_6111}, {"f_6117:srfi_2d1_2escm",(void*)f_6117}, {"f_3837:srfi_2d1_2escm",(void*)f_3837}, {"f_5366:srfi_2d1_2escm",(void*)f_5366}, {"f_4679:srfi_2d1_2escm",(void*)f_4679}, {"f_3832:srfi_2d1_2escm",(void*)f_3832}, {"f_6140:srfi_2d1_2escm",(void*)f_6140}, {"f_6144:srfi_2d1_2escm",(void*)f_6144}, {"f_6147:srfi_2d1_2escm",(void*)f_6147}, {"f_2481:srfi_2d1_2escm",(void*)f_2481}, {"f_3828:srfi_2d1_2escm",(void*)f_3828}, {"f_4341:srfi_2d1_2escm",(void*)f_4341}, {"f_4233:srfi_2d1_2escm",(void*)f_4233}, {"f_6306:srfi_2d1_2escm",(void*)f_6306}, {"f_3221:srfi_2d1_2escm",(void*)f_3221}, {"f_2489:srfi_2d1_2escm",(void*)f_2489}, {"f_3815:srfi_2d1_2escm",(void*)f_3815}, {"f_5706:srfi_2d1_2escm",(void*)f_5706}, {"f_4352:srfi_2d1_2escm",(void*)f_4352}, {"f_3811:srfi_2d1_2escm",(void*)f_3811}, {"f_4245:srfi_2d1_2escm",(void*)f_4245}, {"f_3227:srfi_2d1_2escm",(void*)f_3227}, {"f_4212:srfi_2d1_2escm",(void*)f_4212}, {"f_6326:srfi_2d1_2escm",(void*)f_6326}, {"f_6320:srfi_2d1_2escm",(void*)f_6320}, {"f_5722:srfi_2d1_2escm",(void*)f_5722}, {"f_6311:srfi_2d1_2escm",(void*)f_6311}, {"f_6315:srfi_2d1_2escm",(void*)f_6315}, {"f_2389:srfi_2d1_2escm",(void*)f_2389}, {"f_4307:srfi_2d1_2escm",(void*)f_4307}, {"f_4319:srfi_2d1_2escm",(void*)f_4319}, {"f_5749:srfi_2d1_2escm",(void*)f_5749}, {"f_2399:srfi_2d1_2escm",(void*)f_2399}, {"f_2454:srfi_2d1_2escm",(void*)f_2454}, {"f_6176:srfi_2d1_2escm",(void*)f_6176}, {"f_6170:srfi_2d1_2escm",(void*)f_6170}, {"f_4313:srfi_2d1_2escm",(void*)f_4313}, {"f_6332:srfi_2d1_2escm",(void*)f_6332}, {"f_5733:srfi_2d1_2escm",(void*)f_5733}, {"f_2463:srfi_2d1_2escm",(void*)f_2463}, {"f_5976:srfi_2d1_2escm",(void*)f_5976}, {"f_6199:srfi_2d1_2escm",(void*)f_6199}, {"f_3255:srfi_2d1_2escm",(void*)f_3255}, {"f_6356:srfi_2d1_2escm",(void*)f_6356}, {"f_4264:srfi_2d1_2escm",(void*)f_4264}, {"f_3376:srfi_2d1_2escm",(void*)f_3376}, {"f_3400:srfi_2d1_2escm",(void*)f_3400}, {"f_5177:srfi_2d1_2escm",(void*)f_5177}, {"f_1991:srfi_2d1_2escm",(void*)f_1991}, {"f_2409:srfi_2d1_2escm",(void*)f_2409}, {"f_5786:srfi_2d1_2escm",(void*)f_5786}, {"f_1985:srfi_2d1_2escm",(void*)f_1985}, {"f_5761:srfi_2d1_2escm",(void*)f_5761}, {"f_5985:srfi_2d1_2escm",(void*)f_5985}, {"f_4524:srfi_2d1_2escm",(void*)f_4524}, {"f_5980:srfi_2d1_2escm",(void*)f_5980}, {"f_5774:srfi_2d1_2escm",(void*)f_5774}, {"f_5156:srfi_2d1_2escm",(void*)f_5156}, {"f_4291:srfi_2d1_2escm",(void*)f_4291}, {"f_5185:srfi_2d1_2escm",(void*)f_5185}, {"f_4537:srfi_2d1_2escm",(void*)f_4537}, {"f_5755:srfi_2d1_2escm",(void*)f_5755}, {"f_2178:srfi_2d1_2escm",(void*)f_2178}, {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| ##sys#map 1 S| map 1 o|eliminated procedure checks: 191 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|specializations: o| 4 (memq * list) o| 5 (set-cdr! pair *) o| 69 (cdr pair) o| 18 (car pair) (o e)|safe calls: 655 o|Removed `not' forms: 13 o|inlining procedure: k1883 o|inlining procedure: k1883 o|inlining procedure: k1903 o|inlining procedure: k1903 o|inlining procedure: k1937 o|inlining procedure: k1937 o|inlining procedure: k1967 o|inlining procedure: k1967 o|inlining procedure: k1993 o|inlining procedure: k1993 o|inlining procedure: k2036 o|inlining procedure: k2036 o|inlining procedure: k2075 o|inlining procedure: k2075 o|inlining procedure: k2133 o|contracted procedure: k2153 o|inlining procedure: k2150 o|inlining procedure: k2150 o|inlining procedure: k2133 o|inlining procedure: k2186 o|inlining procedure: k2206 o|inlining procedure: k2206 o|inlining procedure: k2186 o|inlining procedure: k2227 o|inlining procedure: k2227 o|inlining procedure: k2245 o|inlining procedure: k2245 o|inlining procedure: k2267 o|inlining procedure: k2267 o|contracted procedure: k2285 o|inlining procedure: k2288 o|inlining procedure: k2288 o|inlining procedure: k2322 o|contracted procedure: k2348 o|inlining procedure: k2345 o|inlining procedure: k2345 o|inlining procedure: k2322 o|inlining procedure: k2465 o|inlining procedure: k2465 o|inlining procedure: k2500 o|inlining procedure: k2500 o|inlining procedure: k2523 o|inlining procedure: k2523 o|inlining procedure: k2553 o|inlining procedure: k2553 o|inlining procedure: k2581 o|inlining procedure: k2581 o|inlining procedure: k2608 o|inlining procedure: k2622 o|inlining procedure: k2622 o|inlining procedure: k2608 o|inlining procedure: k2652 o|inlining procedure: k2652 o|inlining procedure: k2698 o|inlining procedure: k2698 o|substituted constant variable: a2720 o|inlining procedure: k2747 o|inlining procedure: k2747 o|inlining procedure: k2771 o|inlining procedure: k2771 o|inlining procedure: k2811 o|inlining procedure: k2811 o|inlining procedure: k2867 o|inlining procedure: k2867 o|inlining procedure: k2931 o|inlining procedure: k2931 o|inlining procedure: k3003 o|inlining procedure: k3003 o|contracted procedure: k3090 o|inlining procedure: k3087 o|contracted procedure: k3100 o|inlining procedure: k3116 o|inlining procedure: k3131 o|inlining procedure: k3131 o|inlining procedure: k3116 o|inlining procedure: k3087 o|inlining procedure: k3157 o|inlining procedure: k3157 o|inlining procedure: k3185 o|inlining procedure: k3185 o|inlining procedure: k3229 o|inlining procedure: k3229 o|inlining procedure: k3304 o|inlining procedure: k3322 o|inlining procedure: k3322 o|inlining procedure: k3304 o|inlining procedure: k3521 o|inlining procedure: k3533 o|inlining procedure: k3533 o|inlining procedure: k3551 o|inlining procedure: k3551 o|inlining procedure: k3565 o|inlining procedure: k3565 o|inlining procedure: k3521 o|inlining procedure: k3582 o|inlining procedure: k3582 o|inlining procedure: k3596 o|inlining procedure: k3596 o|inlining procedure: k3620 o|inlining procedure: k3620 o|inlining procedure: k3650 o|inlining procedure: k3672 o|inlining procedure: k3672 o|inlining procedure: k3650 o|inlining procedure: k3704 o|inlining procedure: k3704 o|inlining procedure: k3728 o|contracted procedure: "(srfi-1.scm:856) cars+cdrs+" o|inlining procedure: k3384 o|inlining procedure: k3402 o|inlining procedure: k3402 o|inlining procedure: k3384 o|inlining procedure: k3756 o|inlining procedure: k3756 o|inlining procedure: k3728 o|inlining procedure: k3775 o|inlining procedure: k3775 o|inlining procedure: k3797 o|inlining procedure: k3816 o|inlining procedure: k3816 o|contracted procedure: "(srfi-1.scm:871) cars+" o|inlining procedure: k3267 o|inlining procedure: k3267 o|inlining procedure: k3797 o|inlining procedure: k3839 o|inlining procedure: k3839 o|inlining procedure: k3860 o|inlining procedure: k3879 o|inlining procedure: k3879 o|inlining procedure: k3860 o|inlining procedure: k3906 o|inlining procedure: k3906 o|inlining procedure: k3926 o|inlining procedure: k3945 o|inlining procedure: k3945 o|inlining procedure: k3926 o|inlining procedure: k3972 o|inlining procedure: k3972 o|inlining procedure: k3991 o|inlining procedure: k3991 o|inlining procedure: k4009 o|inlining procedure: k4009 o|inlining procedure: k4027 o|inlining procedure: k4027 o|removed unused parameter to known procedure: who564 "(srfi-1.scm:926) really-append-map" o|removed unused parameter to known procedure: who564 "(srfi-1.scm:928) really-append-map" o|removed unused formal parameters: (who564) o|inlining procedure: k4059 o|inlining procedure: k4081 o|inlining procedure: k4081 o|inlining procedure: k4108 o|inlining procedure: k4108 o|inlining procedure: k4059 o|inlining procedure: k4142 o|inlining procedure: k4142 o|inlining procedure: k4164 o|inlining procedure: k4183 o|inlining procedure: k4183 o|inlining procedure: k4164 o|contracted procedure: k4204 o|inlining procedure: k4201 o|inlining procedure: k4201 o|inlining procedure: k4223 o|contracted procedure: k4238 o|inlining procedure: k4235 o|inlining procedure: k4235 o|contracted procedure: "(srfi-1.scm:972) cars+cdrs/no-test" o|inlining procedure: k3462 o|inlining procedure: k3462 o|inlining procedure: k4223 o|inlining procedure: k4293 o|inlining procedure: k4321 o|inlining procedure: k4321 o|inlining procedure: k4293 o|inlining procedure: k4354 o|inlining procedure: k4354 o|inlining procedure: k4386 o|inlining procedure: k4414 o|inlining procedure: k4414 o|inlining procedure: k4386 o|inlining procedure: k4436 o|inlining procedure: k4436 o|inlining procedure: k4467 o|inlining procedure: k4467 o|inlining procedure: k4486 o|inlining procedure: k4486 o|inlining procedure: k4507 o|inlining procedure: k4507 o|contracted procedure: k4516 o|inlining procedure: k4526 o|inlining procedure: k4526 o|inlining procedure: k4558 o|inlining procedure: k4558 o|inlining procedure: k4618 o|inlining procedure: k4618 o|inlining procedure: k4670 o|inlining procedure: k4687 o|inlining procedure: k4687 o|inlining procedure: k4725 o|inlining procedure: k4725 o|inlining procedure: k4670 o|contracted procedure: k4774 o|inlining procedure: k4771 o|inlining procedure: k4771 o|contracted procedure: k4818 o|inlining procedure: k4815 o|inlining procedure: k4815 o|inlining procedure: k4970 o|inlining procedure: k4970 o|inlining procedure: k5014 o|inlining procedure: k5014 o|inlining procedure: k5107 o|contracted procedure: "(srfi-1.scm:1287) g845854" o|inlining procedure: k5107 o|inlining procedure: k5202 o|inlining procedure: k5202 o|contracted procedure: k5220 o|inlining procedure: k5217 o|inlining procedure: k5217 o|inlining procedure: k5251 o|inlining procedure: k5251 o|inlining procedure: k5284 o|inlining procedure: k5284 o|inlining procedure: k5308 o|inlining procedure: k5308 o|inlining procedure: k5327 o|inlining procedure: k5327 o|inlining procedure: k5368 o|inlining procedure: k5368 o|inlining procedure: k5415 o|inlining procedure: k5415 o|inlining procedure: k5440 o|inlining procedure: k5440 o|inlining procedure: k5509 o|inlining procedure: k5531 o|inlining procedure: k5555 o|inlining procedure: k5555 o|inlining procedure: k5531 o|inlining procedure: k5509 o|contracted procedure: k5576 o|inlining procedure: k5591 o|inlining procedure: k5591 o|inlining procedure: k5622 o|inlining procedure: k5647 o|inlining procedure: k5647 o|inlining procedure: k5668 o|inlining procedure: k5668 o|inlining procedure: k5622 o|inlining procedure: k5708 o|inlining procedure: k5708 o|inlining procedure: k5735 o|inlining procedure: k5763 o|inlining procedure: k5763 o|inlining procedure: k5735 o|contracted procedure: k5791 o|inlining procedure: k5788 o|inlining procedure: k5788 o|inlining procedure: k5826 o|inlining procedure: k5826 o|inlining procedure: k5864 o|inlining procedure: k5864 o|inlining procedure: k5882 o|inlining procedure: k5882 o|inlining procedure: k5921 o|inlining procedure: k5921 o|inlining procedure: k5939 o|inlining procedure: k5939 o|inlining procedure: k5958 o|inlining procedure: k5958 o|inlining procedure: k5987 o|inlining procedure: k5987 o|inlining procedure: k6008 o|inlining procedure: k6008 o|inlining procedure: k6020 o|inlining procedure: k6020 o|inlining procedure: k6032 o|inlining procedure: k6032 o|inlining procedure: k6059 o|inlining procedure: k6059 o|inlining procedure: k6071 o|inlining procedure: k6071 o|inlining procedure: k6086 o|inlining procedure: k6086 o|inlining procedure: k6112 o|inlining procedure: k6112 o|inlining procedure: k6148 o|inlining procedure: k6148 o|inlining procedure: k6184 o|inlining procedure: k6184 o|inlining procedure: k6223 o|inlining procedure: k6223 o|inlining procedure: k6277 o|inlining procedure: k6277 o|inlining procedure: k6301 o|inlining procedure: k6301 o|inlining procedure: k6334 o|inlining procedure: k6334 o|inlining procedure: k6358 o|inlining procedure: k6358 o|inlining procedure: k6379 o|inlining procedure: k6379 o|inlining procedure: k6421 o|inlining procedure: k6421 o|replaced variables: 734 o|removed binding forms: 266 o|substituted constant variable: r21516472 o|substituted constant variable: r21876478 o|substituted constant variable: r22896486 o|substituted constant variable: r23466488 o|substituted constant variable: r24666491 o|substituted constant variable: r25246495 o|substituted constant variable: r25826500 o|substituted constant variable: r26096504 o|substituted constant variable: r32306534 o|substituted constant variable: r37056561 o|substituted constant variable: r40826600 o|substituted constant variable: r43226623 o|substituted constant variable: r44156629 o|substituted constant variable: r52036662 o|substituted constant variable: r52186663 o|substituted constant variable: r52526665 o|substituted constant variable: r52856667 o|substituted constant variable: r53096669 o|substituted constant variable: r55326683 o|substituted constant variable: r57646697 o|substituted constant variable: r57896699 o|substituted constant variable: r59596712 o|substituted constant variable: r61136727 o|substituted constant variable: r61496729 o|replaced variables: 7 o|removed binding forms: 788 o|inlining procedure: k4634 o|inlining procedure: k4634 o|inlining procedure: k5895 o|inlining procedure: k5952 o|inlining procedure: k5952 o|replaced variables: 16 o|removed binding forms: 31 o|substituted constant variable: r59537215 o|removed binding forms: 19 o|removed conditional forms: 1 o|removed binding forms: 1 o|simplifications: ((if . 12) (##core#call . 526)) o| call simplifications: o| set-car! 2 o| caar o| list 4 o| ##sys#call-with-current-continuation 3 o| ##sys#check-list 2 o| ##sys#setslot 7 o| ##sys#call-with-values 29 o| ##sys#check-pair o| ##sys#slot 8 o| values 34 o| cadddr 3 o| caddr 4 o| cadr 6 o| cddddr 9 o| apply 17 o| fx+ 6 o| null-list? 44 o| not 21 o| eq? 16 o| set-cdr! 14 o| < o| car 70 o| ##sys#check-number 3 o| * o| + o| <= o| - 3 o| pair? 59 o| fx< o| ##sys#check-exact 7 o| cdr 31 o| null? 37 o| fx<= o| fx- 8 o| cons 71 o|contracted procedure: k1871 o|contracted procedure: k1886 o|contracted procedure: k1893 o|contracted procedure: k1897 o|contracted procedure: k1900 o|contracted procedure: k1918 o|contracted procedure: k1906 o|contracted procedure: k1914 o|contracted procedure: k1924 o|contracted procedure: k1931 o|contracted procedure: k1940 o|contracted procedure: k1947 o|contracted procedure: k1951 o|contracted procedure: k1970 o|contracted procedure: k1996 o|contracted procedure: k2013 o|contracted procedure: k2021 o|contracted procedure: k2024 o|contracted procedure: k2062 o|contracted procedure: k2058 o|contracted procedure: k2027 o|contracted procedure: k2039 o|contracted procedure: k2046 o|contracted procedure: k2050 o|contracted procedure: k2054 o|contracted procedure: k2078 o|contracted procedure: k2084 o|contracted procedure: k2091 o|contracted procedure: k2097 o|contracted procedure: k2104 o|contracted procedure: k2113 o|contracted procedure: k2116 o|contracted procedure: k2136 o|contracted procedure: k2143 o|contracted procedure: k2147 o|contracted procedure: k2160 o|contracted procedure: k2167 o|contracted procedure: k2174 o|contracted procedure: k2189 o|contracted procedure: k2196 o|contracted procedure: k2200 o|contracted procedure: k2203 o|contracted procedure: k2224 o|contracted procedure: k2234 o|contracted procedure: k2242 o|contracted procedure: k2248 o|contracted procedure: k2255 o|contracted procedure: k2270 o|contracted procedure: k2276 o|contracted procedure: k2310 o|contracted procedure: k2302 o|contracted procedure: k2306 o|contracted procedure: k2325 o|contracted procedure: k2329 o|contracted procedure: k2335 o|contracted procedure: k2339 o|contracted procedure: k2342 o|contracted procedure: k2355 o|contracted procedure: k2375 o|contracted procedure: k2385 o|contracted procedure: k2395 o|contracted procedure: k2405 o|contracted procedure: k2419 o|contracted procedure: k2415 o|contracted procedure: k2433 o|contracted procedure: k2429 o|contracted procedure: k2439 o|contracted procedure: k2446 o|contracted procedure: k2450 o|contracted procedure: k2456 o|contracted procedure: k2468 o|contracted procedure: k2475 o|contracted procedure: k2485 o|contracted procedure: k2491 o|contracted procedure: k2503 o|contracted procedure: k2510 o|contracted procedure: k2514 o|contracted procedure: k2520 o|contracted procedure: k2526 o|contracted procedure: k2529 o|contracted procedure: k2537 o|contracted procedure: k2556 o|contracted procedure: k2563 o|contracted procedure: k2584 o|contracted procedure: k2591 o|contracted procedure: k2611 o|contracted procedure: k2625 o|contracted procedure: k2632 o|contracted procedure: k2637 o|contracted procedure: k2643 o|contracted procedure: k2655 o|contracted procedure: k2671 o|contracted procedure: k2675 o|contracted procedure: k2689 o|contracted procedure: k2685 o|contracted procedure: k2695 o|contracted procedure: k2701 o|contracted procedure: k2710 o|contracted procedure: k2713 o|contracted procedure: k2722 o|contracted procedure: k2744 o|contracted procedure: k2750 o|contracted procedure: k2759 o|contracted procedure: k2762 o|contracted procedure: k2774 o|contracted procedure: k2796 o|contracted procedure: k2792 o|contracted procedure: k2777 o|contracted procedure: k2780 o|contracted procedure: k2788 o|contracted procedure: k2814 o|contracted procedure: k2820 o|contracted procedure: k2833 o|contracted procedure: k2855 o|contracted procedure: k2843 o|contracted procedure: k2851 o|contracted procedure: k2847 o|contracted procedure: k2870 o|contracted procedure: k2876 o|contracted procedure: k2889 o|contracted procedure: k2919 o|contracted procedure: k2899 o|contracted procedure: k2915 o|contracted procedure: k2903 o|contracted procedure: k2911 o|contracted procedure: k2907 o|contracted procedure: k2934 o|contracted procedure: k2940 o|contracted procedure: k2953 o|contracted procedure: k2991 o|contracted procedure: k2963 o|contracted procedure: k2987 o|contracted procedure: k2967 o|contracted procedure: k2983 o|contracted procedure: k2971 o|contracted procedure: k2979 o|contracted procedure: k2975 o|contracted procedure: k3006 o|contracted procedure: k3012 o|contracted procedure: k3025 o|contracted procedure: k3075 o|contracted procedure: k3035 o|contracted procedure: k3071 o|contracted procedure: k3039 o|contracted procedure: k3067 o|contracted procedure: k3043 o|contracted procedure: k3063 o|contracted procedure: k3047 o|contracted procedure: k3059 o|contracted procedure: k3055 o|contracted procedure: k3051 o|contracted procedure: k3145 o|contracted procedure: k3093 o|contracted procedure: k3141 o|contracted procedure: k3119 o|contracted procedure: k3124 o|contracted procedure: k3134 o|contracted procedure: k3160 o|contracted procedure: k3167 o|contracted procedure: k3171 o|contracted procedure: k3188 o|contracted procedure: k3191 o|contracted procedure: k3194 o|contracted procedure: k3232 o|contracted procedure: k3239 o|contracted procedure: k3249 o|contracted procedure: k3307 o|contracted procedure: k3325 o|contracted procedure: k3359 o|contracted procedure: k3363 o|contracted procedure: k3524 o|contracted procedure: k3536 o|contracted procedure: k3554 o|contracted procedure: k3561 o|contracted procedure: k3565 o|contracted procedure: k3585 o|contracted procedure: k3592 o|contracted procedure: k3596 o|contracted procedure: k3641 o|contracted procedure: k3614 o|contracted procedure: k3634 o|contracted procedure: k3653 o|contracted procedure: k3660 o|contracted procedure: k3731 o|contracted procedure: k3738 o|contracted procedure: k3387 o|contracted procedure: k3405 o|contracted procedure: k3439 o|contracted procedure: k3443 o|contracted procedure: k3450 o|contracted procedure: k3759 o|contracted procedure: k3778 o|contracted procedure: k3785 o|contracted procedure: k3800 o|contracted procedure: k3807 o|contracted procedure: k3819 o|contracted procedure: k3270 o|contracted procedure: k3277 o|contracted procedure: k3842 o|contracted procedure: k3845 o|contracted procedure: k3863 o|contracted procedure: k3870 o|contracted procedure: k3882 o|contracted procedure: k3893 o|contracted procedure: k3909 o|contracted procedure: k3920 o|contracted procedure: k3929 o|contracted procedure: k3936 o|contracted procedure: k3948 o|contracted procedure: k3963 o|contracted procedure: k3975 o|contracted procedure: k3978 o|contracted procedure: k3994 o|contracted procedure: k4001 o|contracted procedure: k4012 o|contracted procedure: k4019 o|contracted procedure: k4030 o|contracted procedure: k4062 o|contracted procedure: k4075 o|contracted procedure: k4084 o|contracted procedure: k4111 o|contracted procedure: k4124 o|contracted procedure: k4131 o|contracted procedure: k4145 o|contracted procedure: k4156 o|contracted procedure: k4167 o|contracted procedure: k4174 o|contracted procedure: k4186 o|contracted procedure: k4217 o|contracted procedure: k4207 o|contracted procedure: k4226 o|contracted procedure: k4270 o|contracted procedure: k3465 o|contracted procedure: k3508 o|contracted procedure: k3512 o|contracted procedure: k4253 o|contracted procedure: k4266 o|contracted procedure: k4287 o|contracted procedure: k4296 o|contracted procedure: k4303 o|contracted procedure: k4324 o|contracted procedure: k4357 o|contracted procedure: k4380 o|contracted procedure: k4389 o|contracted procedure: k4396 o|contracted procedure: k4417 o|contracted procedure: k4439 o|contracted procedure: k4442 o|contracted procedure: k4470 o|contracted procedure: k4473 o|contracted procedure: k4489 o|contracted procedure: k4510 o|contracted procedure: k4529 o|contracted procedure: k4561 o|contracted procedure: k4570 o|contracted procedure: k4600 o|contracted procedure: k4606 o|contracted procedure: k4609 o|contracted procedure: k4621 o|contracted procedure: k4631 o|contracted procedure: k4653 o|contracted procedure: k4645 o|contracted procedure: k4648 o|contracted procedure: k4664 o|contracted procedure: k4656 o|contracted procedure: k4659 o|contracted procedure: k4673 o|contracted procedure: k4690 o|contracted procedure: k4704 o|contracted procedure: k4728 o|contracted procedure: k4737 o|contracted procedure: k4804 o|contracted procedure: k4800 o|contracted procedure: k4848 o|contracted procedure: k4844 o|contracted procedure: k4852 o|contracted procedure: k4906 o|contracted procedure: k4890 o|contracted procedure: k4931 o|contracted procedure: k4915 o|contracted procedure: k4952 o|contracted procedure: k4940 o|contracted procedure: k4996 o|contracted procedure: k4961 o|contracted procedure: k4973 o|contracted procedure: k4976 o|contracted procedure: k4986 o|contracted procedure: k5040 o|contracted procedure: k5005 o|contracted procedure: k5017 o|contracted procedure: k5020 o|contracted procedure: k5030 o|contracted procedure: k5065 o|contracted procedure: k5049 o|contracted procedure: k5062 o|contracted procedure: k5078 o|contracted procedure: k5084 o|contracted procedure: k5098 o|contracted procedure: k5110 o|contracted procedure: k5113 o|contracted procedure: k5116 o|contracted procedure: k5124 o|contracted procedure: k5132 o|contracted procedure: k5093 o|contracted procedure: k5161 o|contracted procedure: k5141 o|contracted procedure: k5158 o|contracted procedure: k5190 o|contracted procedure: k5170 o|contracted procedure: k5187 o|contracted procedure: k5239 o|contracted procedure: k5235 o|contracted procedure: k5254 o|contracted procedure: k5257 o|contracted procedure: k5287 o|contracted procedure: k5302 o|contracted procedure: k5311 o|contracted procedure: k5321 o|contracted procedure: k5330 o|contracted procedure: k5356 o|contracted procedure: k5371 o|contracted procedure: k5377 o|contracted procedure: k5396 o|contracted procedure: k5406 o|contracted procedure: k5418 o|contracted procedure: k5434 o|contracted procedure: k5443 o|contracted procedure: k5446 o|contracted procedure: k5460 o|contracted procedure: k5471 o|contracted procedure: k5512 o|contracted procedure: k5525 o|contracted procedure: k5534 o|contracted procedure: k5558 o|contracted procedure: k5616 o|contracted procedure: k5583 o|contracted procedure: k5594 o|contracted procedure: k5610 o|contracted procedure: k5625 o|contracted procedure: k5638 o|contracted procedure: k5687 o|contracted procedure: k5644 o|contracted procedure: k5671 o|contracted procedure: k5690 o|contracted procedure: k5700 o|contracted procedure: k5711 o|contracted procedure: k5727 o|contracted procedure: k5738 o|contracted procedure: k5745 o|contracted procedure: k5766 o|contracted procedure: k5779 o|contracted procedure: k5814 o|contracted procedure: k5806 o|contracted procedure: k5810 o|contracted procedure: k5829 o|contracted procedure: k5832 o|contracted procedure: k5835 o|contracted procedure: k5909 o|contracted procedure: k5861 o|contracted procedure: k5871 o|contracted procedure: k5905 o|contracted procedure: k5879 o|contracted procedure: k5885 o|contracted procedure: k5892 o|contracted procedure: k5972 o|contracted procedure: k5918 o|contracted procedure: k5928 o|contracted procedure: k5968 o|contracted procedure: k5936 o|contracted procedure: k5942 o|contracted procedure: k5949 o|contracted procedure: k6011 o|contracted procedure: k6017 o|contracted procedure: k6023 o|contracted procedure: k6062 o|contracted procedure: k6068 o|contracted procedure: k6074 o|contracted procedure: k6083 o|contracted procedure: k6092 o|contracted procedure: k6121 o|contracted procedure: k6157 o|contracted procedure: k6187 o|contracted procedure: k6226 o|contracted procedure: k6280 o|contracted procedure: k6289 o|contracted procedure: k6337 o|contracted procedure: k6346 o|contracted procedure: k6364 o|contracted procedure: k6370 o|simplifications: ((let . 123)) o|removed binding forms: 389 o|replaced variables: 97 o|removed binding forms: 68 o|contracted procedure: k5128 o|removed binding forms: 1 o|direct leaf routine/allocation: lp143 0 o|direct leaf routine/allocation: lp153 0 o|direct leaf routine/allocation: lp194 0 o|direct leaf routine/allocation: iter238 0 o|direct leaf routine/allocation: lp251 0 o|direct leaf routine/allocation: lp266 0 o|direct leaf routine/allocation: lp292 0 o|direct leaf routine/allocation: lp387 0 o|direct leaf routine/allocation: g637638 3 o|direct leaf routine/allocation: lp1021 0 o|converted assignments to bindings: (lp143) o|converted assignments to bindings: (lp153) o|converted assignments to bindings: (lp194) o|converted assignments to bindings: (iter238) o|converted assignments to bindings: (lp251) o|converted assignments to bindings: (lp266) o|converted assignments to bindings: (lp292) o|converted assignments to bindings: (lp387) o|converted assignments to bindings: (lp1021) o|simplifications: ((let . 9)) o|customizable procedures: (lp1058 ##srfi1#lset2<= lp1038 lp1014 lp1007 lp998 lp988 lp972 lp962 k5421 lp941 recur928 k5314 lp919 lp910 recur903 lp896 map-loop839857 recur815 recur801 lp744 lp735 lp730 lp722 doloop700701 lp669 lp685 recur660 recur651 recur645 recur628 g624625 recur614 lp601 recur437 lp592 lp587 recur578 recur571 ##srfi1#really-append-map recur551 lp538 lp533 recur525 recur521 recur512 ##srfi1#cdrs recur508 recur407 lp499 lp493 recur426 recur485 recur482 lp467 lp457 lp450 ##srfi1#cars+cdrs recur413 recur400 lp380 lp364 lp2369 recur353 recur343 recur334 recur326 map-loop300317 recur274 recur258 recur230 lp2183 lp1175 def-start108128 def-step109126 body106114 doloop118119 recur98 recur92 doloop8384 doloop7475) o|calls to known targets: 183 o|identified direct recursive calls: f_1881 1 o|identified direct recursive calls: f_1965 1 o|identified direct recursive calls: f_1991 1 o|identified direct recursive calls: f_2034 1 o|identified direct recursive calls: f_2131 1 o|identified direct recursive calls: f_2184 1 o|identified direct recursive calls: f_2240 1 o|identified direct recursive calls: f_2320 1 o|identified direct recursive calls: f_2463 1 o|identified direct recursive calls: f_2498 1 o|identified direct recursive calls: f_2551 1 o|identified direct recursive calls: f_2579 1 o|identified direct recursive calls: f_2620 1 o|identified direct recursive calls: f_2742 1 o|identified direct recursive calls: f_2769 1 o|identified direct recursive calls: f_3114 1 o|identified direct recursive calls: f_3085 1 o|identified direct recursive calls: f_3155 1 o|identified direct recursive calls: f_3183 1 o|identified direct recursive calls: f_3227 1 o|identified direct recursive calls: f_3265 1 o|identified direct recursive calls: f_3837 1 o|identified direct recursive calls: f_3904 1 o|identified direct recursive calls: f_4025 1 o|identified direct recursive calls: f_4352 1 o|identified direct recursive calls: f_5105 1 o|identified direct recursive calls: f_5824 1 o|identified direct recursive calls: f_5877 1 o|identified direct recursive calls: f_5934 1 o|fast box initializations: 75 o|fast global references: 19 o|fast global assignments: 4 o|dropping unused closure argument: f_2320 o|dropping unused closure argument: f_2184 o|dropping unused closure argument: f_4057 o|dropping unused closure argument: f_3183 o|dropping unused closure argument: f_3215 o|dropping unused closure argument: f_5824 o|dropping unused closure argument: f_2131 o|dropping unused closure argument: f_5844 o|dropping unused closure argument: f_3290 o|dropping unused closure argument: f_2742 o|dropping unused closure argument: f_2551 o|dropping unused closure argument: f_2498 */ /* end of file */ �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/irregex.scm��������������������������������������������������������������������������0000644�0001750�0001750�00000021215�13052306173�015162� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; irregex.scm - container for irregex-core.scm ; ; Copyright (c) 2010-2017, 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)) (declare (no-procedure-checks) (fixnum) (export ##sys#glob->regexp irregex irregex-apply-match irregex-dfa irregex-dfa/extract irregex-dfa/search irregex-extract irregex-flags irregex-fold irregex-fold/chunked irregex-lengths irregex-match irregex-match? irregex-match-data? irregex-match-end-chunk irregex-match-end-index irregex-match-names irregex-match-num-submatches irregex-match-start-chunk irregex-match-start-index irregex-match-subchunk irregex-match-substring irregex-match-valid-index? irregex-match/chunked irregex-names irregex-new-matches irregex-nfa irregex-num-submatches irregex-opt irregex-quote irregex-replace irregex-replace/all irregex-reset-matches! irregex-search irregex-search/chunked irregex-search/matches irregex-split irregex? make-irregex-chunker maybe-string->sre irregex-search/chunked sre->irregex sre->string string->irregex string->sre )) (include "common-declarations.scm") (register-feature! 'irregex) ;; 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 (##core#inline "C_u_fixnum_modulo" (,%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 ##sys#glob->regexp (let ((list->string list->string) (string->list string->list)) (lambda (s #!optional sre?) (##sys#check-string s 'glob->regexp) (let ((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->regexp "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 '(#\\ #\/)))))))))))) (if sre? sre (irregex sre)))))) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/private-namespace.scm����������������������������������������������������������������0000644�0001750�0001750�00000004457�13052306173�017132� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; compiler-namespace.scm - A simple namespace system to keep compiler variables hidden ; ; Copyright (c) 2008-2017, 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. (define-syntax private (er-macro-transformer (lambda (form r c) (let ((namespace (cadr form)) (vars (cddr form))) (##sys#check-symbol namespace 'private) (let* ((str (symbol->string namespace)) ; somewhat questionable (renaming) (prefix (string-append (string (integer->char (string-length str))) (symbol->string namespace)))) (for-each (lambda (var) (put! var 'c:namespace (##sys#string->qualified-symbol prefix (symbol->string var)))) vars) '(##core#undefined) ) ) ) ) ) (set! ##sys#alias-global-hook (lambda (var . assign) ; must work with old chicken (or (get var 'c:namespace) var) ) ) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/feathers.bat.in����������������������������������������������������������������������0000644�0001750�0001750�00000003150�13052302367�015706� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������@echo off rem loader for feathers.tcl, the CHICKEN debugger rem rem Copyright (c) 2015-2017, 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-4.12.0/chicken-syntax.c���������������������������������������������������������������������0000644�0001750�0001750�00003106733�13052306314�016116� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken-syntax.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:17 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: chicken-syntax.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file chicken-syntax.c unit: chicken_2dsyntax */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); static C_TLS C_word lf[296]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,25),40,97,51,56,50,50,32,120,50,54,53,51,32,114,50,54,53,52,32,99,50,54,53,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,18),40,103,50,54,50,57,32,99,108,97,117,115,101,50,54,52,48,41,0,0,0,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,54,50,51,32,103,50,54,51,53,50,54,52,54,41}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,25),40,97,51,56,56,50,32,120,50,54,49,50,32,114,50,54,49,51,32,99,50,54,49,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,34),40,109,97,112,45,108,111,111,112,50,53,54,56,32,103,50,53,56,48,50,53,57,51,32,103,50,53,56,49,50,53,57,52,41,0,0,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,53,51,49,32,103,50,53,52,51,50,53,53,55,41}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,24),40,108,111,111,112,50,32,97,110,97,109,101,115,50,53,50,53,32,105,50,53,50,54,41}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,37),40,108,111,111,112,32,97,114,103,115,50,53,49,49,32,97,110,97,109,101,115,50,53,49,50,32,97,116,121,112,101,115,50,53,49,51,41,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,25),40,97,52,48,48,53,32,120,50,52,57,51,32,114,50,52,57,52,32,99,50,52,57,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,24),40,97,52,52,52,48,32,116,121,112,101,50,52,57,49,32,118,97,114,50,52,57,50,41}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,52,54,53,32,103,50,52,55,55,50,52,56,52,41}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,52,51,55,32,103,50,52,52,57,50,52,53,54,41}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,32),40,108,111,111,112,50,51,56,57,32,108,50,51,56,52,50,52,50,55,32,108,101,110,50,51,56,53,50,52,50,56,41}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,32),40,108,111,111,112,50,51,56,57,32,108,50,51,56,52,50,52,49,49,32,108,101,110,50,51,56,53,50,52,49,50,41}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,52),40,97,52,51,55,50,32,105,110,112,117,116,50,51,56,51,50,51,57,54,32,114,101,110,97,109,101,50,51,57,50,50,51,57,55,32,99,111,109,112,97,114,101,50,51,56,48,50,51,57,56,41,0,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,25),40,97,52,54,56,49,32,120,50,51,55,50,32,114,50,51,55,51,32,99,50,51,55,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,7),40,97,52,55,52,48,41,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,58),40,97,52,55,53,48,32,116,121,112,101,50,51,52,54,50,51,52,55,50,51,53,50,32,112,114,101,100,50,51,52,56,50,51,52,57,50,51,53,51,32,112,117,114,101,50,51,53,48,50,51,53,49,50,51,53,52,41,0,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,25),40,97,52,55,49,57,32,120,50,51,52,49,32,114,50,51,52,50,32,99,50,51,52,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,15),40,103,50,51,48,57,32,97,114,103,50,51,50,48,41,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,51,48,51,32,103,50,51,49,53,50,51,51,49,41}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,25),40,97,52,56,50,55,32,120,50,50,56,56,32,114,50,50,56,57,32,99,50,50,57,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,25),40,97,52,57,57,48,32,120,50,50,55,48,32,114,50,50,55,49,32,99,50,50,55,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,32),40,108,111,111,112,50,50,50,56,32,108,50,50,50,51,50,50,54,49,32,108,101,110,50,50,50,52,50,50,54,50,41}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,32),40,108,111,111,112,50,50,50,56,32,108,50,50,50,51,50,50,53,48,32,108,101,110,50,50,50,52,50,50,53,49,41}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,52),40,97,53,48,55,55,32,105,110,112,117,116,50,50,50,50,50,50,51,53,32,114,101,110,97,109,101,50,50,51,49,50,50,51,54,32,99,111,109,112,97,114,101,50,50,49,57,50,50,51,55,41,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,52),40,97,53,50,50,53,32,105,110,112,117,116,50,49,56,56,50,50,48,49,32,114,101,110,97,109,101,50,49,57,55,50,50,48,50,32,99,111,109,112,97,114,101,50,49,56,53,50,50,48,51,41,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,25),40,97,53,51,50,50,32,120,50,49,55,55,32,114,50,49,55,56,32,99,50,49,55,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,25),40,97,53,51,52,51,32,120,50,49,55,48,32,114,50,49,55,49,32,99,50,49,55,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,28),40,97,53,51,54,48,32,102,111,114,109,50,49,54,51,32,114,50,49,54,52,32,99,50,49,54,53,41,0,0,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,28),40,97,53,51,56,57,32,102,111,114,109,50,49,53,50,32,114,50,49,53,51,32,99,50,49,53,52,41,0,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,47),40,108,111,111,112,32,120,115,50,49,51,48,32,118,97,114,115,50,49,51,49,32,98,115,50,49,51,50,32,118,97,108,115,50,49,51,51,32,114,101,115,116,50,49,51,52,41,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,28),40,97,53,52,53,52,32,102,111,114,109,50,49,50,51,32,114,50,49,50,52,32,99,50,49,50,53,41,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,40),40,108,111,111,112,32,120,115,50,49,48,48,32,118,97,114,115,50,49,48,49,32,118,97,108,115,50,49,48,50,32,114,101,115,116,50,49,48,51,41}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,28),40,97,53,54,53,51,32,102,111,114,109,50,48,57,51,32,114,50,48,57,52,32,99,50,48,57,53,41,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,7),40,103,50,48,51,54,41,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,22),40,108,111,111,112,32,115,108,111,116,115,50,48,53,54,32,105,50,48,53,55,41,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,48,51,48,32,103,50,48,52,50,50,48,52,57,41}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,48,48,49,32,103,50,48,49,51,50,48,49,57,41}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,28),40,97,53,56,51,51,32,102,111,114,109,49,57,56,54,32,114,49,57,56,55,32,99,49,57,56,56,41,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,7),40,103,49,57,50,51,41,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,57,49,55,32,103,49,57,50,57,49,57,51,57,41}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,20),40,112,97,114,115,101,45,99,108,97,117,115,101,32,99,49,56,57,56,41,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,57,52,56,32,103,49,57,54,48,49,57,54,54,41}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,28),40,97,54,50,49,52,32,102,111,114,109,49,56,56,54,32,114,49,56,56,55,32,99,49,56,56,56,41,0,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,28),40,97,54,52,57,57,32,102,111,114,109,49,56,55,52,32,114,49,56,55,53,32,99,49,56,55,54,41,0,0,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,28),40,97,54,54,49,56,32,102,111,114,109,49,56,53,51,32,114,49,56,53,52,32,99,49,56,53,53,41,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,49,55,51,53,41,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,15),40,103,101,110,118,97,114,115,32,110,49,55,51,51,41,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,7),40,97,54,56,49,48,41,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,34),40,109,97,112,45,108,111,111,112,49,56,50,48,32,103,49,56,51,50,49,56,52,48,32,103,49,56,51,51,49,56,52,49,41,0,0,0,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,27),40,98,117,105,108,100,32,118,97,114,115,50,49,55,57,56,32,118,114,101,115,116,49,55,57,57,41,0,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,27),40,97,54,56,50,48,32,118,97,114,115,49,49,55,57,52,32,118,97,114,115,50,49,55,57,53,41,0,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,34),40,97,54,55,57,48,32,118,97,114,115,49,55,56,49,32,97,114,103,99,49,55,56,50,32,114,101,115,116,49,55,56,51,41,0,0,0,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,22),40,97,54,55,56,48,32,99,49,55,55,57,32,98,111,100,121,49,55,56,48,41,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,34),40,97,55,48,51,57,32,118,97,114,115,49,55,53,56,32,97,114,103,99,49,55,53,57,32,114,101,115,116,49,55,54,48,41,0,0,0,0,0,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,55,52,48,32,103,49,55,53,50,49,55,54,50,41}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,28),40,97,54,54,57,49,32,102,111,114,109,49,55,50,57,32,114,49,55,51,48,32,99,49,55,51,49,41,0,0,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,27),40,108,111,111,112,32,97,114,103,115,49,55,49,49,32,118,97,114,100,101,102,115,49,55,49,50,41,0,0,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,28),40,97,55,49,51,51,32,102,111,114,109,49,54,57,55,32,114,49,54,57,56,32,99,49,54,57,57,41,0,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,28),40,97,55,51,48,53,32,102,111,114,109,49,54,56,50,32,114,49,54,56,51,32,99,49,54,56,52,41,0,0,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,48),40,114,101,99,117,114,32,118,97,114,115,49,53,52,51,32,100,101,102,97,117,108,116,101,114,115,49,53,52,52,32,110,111,110,45,100,101,102,97,117,108,116,115,49,53,52,53,41}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,61),40,109,97,107,101,45,105,102,45,116,114,101,101,32,118,97,114,115,49,53,51,55,32,100,101,102,97,117,108,116,101,114,115,49,53,51,56,32,98,111,100,121,45,112,114,111,99,49,53,51,57,32,114,101,115,116,49,53,52,48,41,0,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,31),40,112,114,101,102,105,120,45,115,121,109,32,112,114,101,102,105,120,49,53,56,50,32,115,121,109,49,53,56,51,41,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,13),40,103,49,53,57,51,32,118,49,54,48,52,41,0,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,15),40,103,49,54,53,48,32,118,97,114,49,54,54,49,41,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,58),40,114,101,99,117,114,32,118,97,114,115,49,53,50,56,32,100,101,102,97,117,108,116,101,114,45,110,97,109,101,115,49,53,50,57,32,100,101,102,115,49,53,51,48,32,110,101,120,116,45,103,117,121,49,53,51,49,41,0,0,0,0,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,54,52,52,32,103,49,54,53,54,49,54,54,51,41}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,54,49,53,32,103,49,54,50,55,49,54,51,51,41}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,53,56,55,32,103,49,53,57,57,49,54,48,54,41}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,53,53,55,32,103,49,53,54,57,49,53,55,53,41}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,28),40,97,55,51,57,52,32,102,111,114,109,49,53,49,52,32,114,49,53,49,53,32,99,49,53,49,54,41,0,0,0,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,7),40,103,49,52,56,54,41,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,52,56,48,32,103,49,52,57,50,49,53,48,50,41}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,30),40,101,120,112,97,110,100,32,99,108,97,117,115,101,115,49,52,53,55,32,101,108,115,101,63,49,52,53,56,41,0,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,28),40,97,55,56,52,50,32,102,111,114,109,49,52,52,53,32,114,49,52,52,54,32,99,49,52,52,55,41,0,0,0,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,13),40,102,111,108,100,32,98,115,49,52,50,50,41,0,0,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,28),40,97,56,48,49,48,32,102,111,114,109,49,52,49,54,32,114,49,52,49,55,32,99,49,52,49,56,41,0,0,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,32),40,113,117,111,116,105,102,121,45,112,114,111,99,49,51,57,53,32,120,115,49,51,57,56,32,105,100,49,51,57,57,41}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,28),40,97,56,49,48,55,32,102,111,114,109,49,51,57,50,32,114,49,51,57,51,32,99,49,51,57,52,41,0,0,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,28),40,97,56,50,49,49,32,102,111,114,109,49,51,56,52,32,114,49,51,56,53,32,99,49,51,56,54,41,0,0,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,34),40,109,97,112,45,108,111,111,112,49,51,53,49,32,103,49,51,54,51,49,51,55,49,32,103,49,51,54,52,49,51,55,50,41,0,0,0,0,0,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,51,48,51,32,103,49,51,49,53,49,51,52,51,41}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,25),40,97,56,52,51,53,32,97,49,51,51,55,32,95,49,51,51,56,32,95,49,51,51,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,31),40,102,111,108,100,108,49,51,50,54,32,103,49,51,50,55,49,51,51,49,32,103,49,51,50,53,49,51,51,50,41,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,50,55,52,32,103,49,50,56,54,49,50,57,50,41}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,50,52,56,32,103,49,50,54,48,49,50,54,54,41}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,28),40,97,56,50,53,57,32,102,111,114,109,49,50,51,57,32,114,49,50,52,48,32,99,49,50,52,49,41,0,0,0,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,20),40,102,111,108,100,32,118,98,105,110,100,105,110,103,115,49,50,51,48,41,0,0,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,28),40,97,56,53,49,55,32,102,111,114,109,49,50,50,51,32,114,49,50,50,52,32,99,49,50,50,53,41,0,0,0,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,26),40,97,112,112,101,110,100,42,49,48,53,52,32,105,108,49,48,54,48,32,108,49,48,54,49,41,0,0,0,0,0,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,25),40,109,97,112,42,49,48,53,53,32,112,114,111,99,49,48,54,50,32,108,49,48,54,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,13),40,103,49,49,49,53,32,118,49,49,50,54,41,0,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,14),40,108,111,111,107,117,112,32,118,49,49,51,53,41,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,13),40,103,49,49,54,54,32,118,49,49,55,55,41,0,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,49,54,48,32,103,49,49,55,50,49,49,55,57,41}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,38),40,102,111,108,100,32,108,108,105,115,116,115,49,49,52,56,32,101,120,112,115,49,49,52,57,32,108,108,105,115,116,115,50,49,49,53,48,41,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,49,57,53,32,103,49,50,48,55,49,50,49,52,41}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,25),40,108,111,111,112,32,108,108,105,115,116,115,49,49,51,56,32,97,99,99,49,49,51,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,49,48,57,32,103,49,49,50,49,49,49,50,56,41}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,25),40,108,111,111,112,32,108,108,105,115,116,115,49,48,57,55,32,97,99,99,49,48,57,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,48,55,49,32,103,49,48,56,51,49,48,56,57,41}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,28),40,97,56,53,55,49,32,102,111,114,109,49,48,52,57,32,114,49,48,53,48,32,99,49,48,53,49,41,0,0,0,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,48,50,55,32,103,49,48,51,52,49,48,52,48,41,0,0,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,34),40,97,57,48,55,48,32,118,97,114,115,49,48,50,50,32,97,114,103,99,49,48,50,51,32,114,101,115,116,49,48,50,52,41,0,0,0,0,0,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,28),40,97,57,48,52,56,32,102,111,114,109,49,48,49,57,32,114,49,48,50,48,32,99,49,48,50,49,41,0,0,0,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,28),40,97,57,49,49,56,32,102,111,114,109,49,48,49,53,32,114,49,48,49,54,32,99,49,48,49,55,41,0,0,0,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,28),40,97,57,49,51,57,32,102,111,114,109,49,48,48,56,32,114,49,48,48,57,32,99,49,48,49,48,41,0,0,0,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,28),40,97,57,49,54,55,32,102,111,114,109,49,48,48,49,32,114,49,48,48,50,32,99,49,48,48,51,41,0,0,0,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,11),40,103,54,48,48,32,122,54,49,49,41,0,0,0,0,0}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,6),40,103,54,50,56,41,0,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,6),40,103,54,53,54,41,0,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,19),40,103,55,55,57,32,115,55,57,53,32,116,101,109,112,55,57,54,41,0,0,0,0,0}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,29),40,109,97,112,45,108,111,111,112,57,54,53,32,103,57,55,55,57,57,48,32,103,57,55,56,57,57,49,41,0,0,0}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,29),40,109,97,112,45,108,111,111,112,57,50,57,32,103,57,52,49,57,53,52,32,103,57,52,50,57,53,53,41,0,0,0}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,37),40,109,97,112,45,108,111,111,112,56,56,55,32,103,56,57,57,57,49,53,32,103,57,48,48,57,49,54,32,103,57,48,49,57,49,55,41,0,0,0}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,29),40,109,97,112,45,108,111,111,112,56,53,49,32,103,56,54,51,56,55,54,32,103,56,54,52,56,55,55,41,0,0,0}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,29),40,109,97,112,45,108,111,111,112,56,49,53,32,103,56,50,55,56,52,48,32,103,56,50,56,56,52,49,41,0,0,0}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,37),40,109,97,112,45,108,111,111,112,55,55,51,32,103,55,56,53,56,48,49,32,103,55,56,54,56,48,50,32,103,55,56,55,56,48,51,41,0,0,0}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,29),40,109,97,112,45,108,111,111,112,55,52,50,32,103,55,53,52,55,54,50,32,103,55,53,53,55,54,51,41,0,0,0}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,29),40,109,97,112,45,108,111,111,112,55,49,49,32,103,55,50,51,55,51,49,32,103,55,50,52,55,51,50,41,0,0,0}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,29),40,109,97,112,45,108,111,111,112,54,56,48,32,103,54,57,50,55,48,48,32,103,54,57,51,55,48,49,41,0,0,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,54,53,48,32,103,54,54,50,54,54,57,41,0,0,0}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,54,50,50,32,103,54,51,52,54,52,49,41,0,0,0}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,53,57,52,32,103,54,48,54,54,49,51,41,0,0,0}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,53,54,55,32,103,53,55,57,53,56,53,41,0,0,0}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,53,52,48,32,103,53,53,50,53,53,56,41,0,0,0}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,25),40,97,57,49,57,49,32,102,111,114,109,53,50,55,32,114,53,50,56,32,99,53,50,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,115,115,53,48,54,41,0,0,0,0}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,26),40,97,49,48,49,50,55,32,102,111,114,109,52,57,49,32,114,52,57,50,32,99,52,57,51,41,0,0,0,0,0,0}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,6),40,103,50,48,53,41,0,0}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,6),40,103,50,51,51,41,0,0}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,29),40,109,97,112,45,108,111,111,112,52,53,54,32,103,52,54,56,52,56,49,32,103,52,54,57,52,56,50,41,0,0,0}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,29),40,109,97,112,45,108,111,111,112,52,50,48,32,103,52,51,50,52,52,53,32,103,52,51,51,52,52,54,41,0,0,0}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,29),40,109,97,112,45,108,111,111,112,51,56,52,32,103,51,57,54,52,48,57,32,103,51,57,55,52,49,48,41,0,0,0}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,29),40,109,97,112,45,108,111,111,112,51,52,56,32,103,51,54,48,51,55,51,32,103,51,54,49,51,55,52,41,0,0,0}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,29),40,109,97,112,45,108,111,111,112,51,49,52,32,103,51,50,54,51,51,55,32,103,51,50,55,51,51,56,41,0,0,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,110,51,51,52,41,0,0,0,0,0}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,29),40,109,97,112,45,108,111,111,112,50,53,55,32,103,50,54,57,51,48,51,32,103,50,55,48,51,48,52,41,0,0,0}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,50,55,56,32,103,50,57,48,50,57,54,41,0,0,0}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,50,50,55,32,103,50,51,57,50,52,54,41,0,0,0}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,49,57,57,32,103,50,49,49,50,49,56,41,0,0,0}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,49,55,50,32,103,49,56,52,49,57,48,41,0,0,0}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,26),40,97,49,48,50,50,56,32,102,111,114,109,49,54,52,32,114,49,54,53,32,99,49,54,54,41,0,0,0,0,0,0}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,26),40,97,49,48,56,56,49,32,102,111,114,109,49,53,48,32,114,49,53,49,32,99,49,53,50,41,0,0,0,0,0,0}; static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,26),40,97,49,48,57,53,54,32,102,111,114,109,49,51,48,32,114,49,51,49,32,99,49,51,50,41,0,0,0,0,0,0}; static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,26),40,97,49,49,48,52,53,32,102,111,114,109,49,50,50,32,114,49,50,51,32,99,49,50,52,41,0,0,0,0,0,0}; static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,26),40,97,49,49,48,54,50,32,102,111,114,109,49,49,54,32,114,49,49,55,32,99,49,49,56,41,0,0,0,0,0,0}; static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,26),40,97,49,49,48,55,54,32,102,111,114,109,49,48,57,32,114,49,49,48,32,99,49,49,49,41,0,0,0,0,0,0}; static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,23),40,97,49,49,49,50,53,32,102,111,114,109,56,55,32,114,56,56,32,99,56,57,41,0}; static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,12),40,103,51,49,32,115,108,111,116,52,50,41,0,0,0,0}; static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,22),40,109,97,112,115,108,111,116,115,32,115,108,111,116,115,54,50,32,105,54,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,50,53,32,103,51,55,53,50,41,0,0,0,0,0,0}; static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,20),40,97,49,49,50,49,56,32,120,49,51,32,114,49,52,32,99,49,53,41,0,0,0,0}; static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,20),40,97,49,49,53,56,48,32,102,111,114,109,54,32,114,55,32,99,56,41,0,0,0,0}; static C_char C_TLS li155[] 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_10190) static void C_ccall f_10190(C_word c,C_word *av) 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_11568) static void C_ccall f_11568(C_word c,C_word *av) C_noret; C_noret_decl(f_11579) static void C_ccall f_11579(C_word c,C_word *av) C_noret; C_noret_decl(f_6165) static void C_fcall f_6165(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11543) static void C_fcall f_11543(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6609) static void C_ccall f_6609(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_8964) static void C_ccall f_8964(C_word c,C_word *av) C_noret; C_noret_decl(f_9071) static void C_ccall f_9071(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_9077) static void C_ccall f_9077(C_word c,C_word *av) C_noret; C_noret_decl(f_7077) static void C_ccall f_7077(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_9053) static void C_ccall f_9053(C_word c,C_word *av) C_noret; C_noret_decl(f_9049) static void C_ccall f_9049(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_11513) static void C_ccall f_11513(C_word c,C_word *av) C_noret; C_noret_decl(f_7040) static void C_ccall f_7040(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_6617) static void C_ccall f_6617(C_word c,C_word *av) 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_6613) static void C_ccall f_6613(C_word c,C_word *av) C_noret; C_noret_decl(f_8434) static void C_ccall f_8434(C_word c,C_word *av) C_noret; C_noret_decl(f_8436) static void C_ccall f_8436(C_word c,C_word *av) C_noret; C_noret_decl(f_7052) static void C_fcall f_7052(C_word t0,C_word t1,C_word t2) 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_6623) static void C_ccall f_6623(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_3896) static void C_ccall f_3896(C_word c,C_word *av) C_noret; C_noret_decl(f_9084) static void C_ccall f_9084(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_6961) static void C_ccall f_6961(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_noret; C_noret_decl(f_3887) static void C_ccall f_3887(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_3883) static void C_ccall f_3883(C_word c,C_word *av) C_noret; C_noret_decl(f_9092) static void C_fcall f_9092(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6521) static void C_ccall f_6521(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_11063) static void C_ccall f_11063(C_word c,C_word *av) 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_11034) static void C_ccall f_11034(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_6507) static void C_ccall f_6507(C_word c,C_word *av) C_noret; C_noret_decl(f_6998) static void C_ccall f_6998(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_11050) static void C_ccall f_11050(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_6696) static void C_ccall f_6696(C_word c,C_word *av) C_noret; C_noret_decl(f_6698) static void C_fcall f_6698(C_word t0,C_word t1,C_word t2) 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_6690) static void C_ccall f_6690(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_3865) static void C_ccall f_3865(C_word c,C_word *av) C_noret; C_noret_decl(f_9405) static void C_ccall f_9405(C_word c,C_word *av) C_noret; C_noret_decl(f_9407) static void C_fcall f_9407(C_word t0,C_word t1,C_word t2,C_word t3) 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_3811) static void C_ccall f_3811(C_word c,C_word *av) C_noret; C_noret_decl(f_3817) static void C_ccall f_3817(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_4065) static void C_ccall f_4065(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_5620) static void C_ccall f_5620(C_word c,C_word *av) C_noret; C_noret_decl(f_3805) static void C_ccall f_3805(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_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_4004) static void C_ccall f_4004(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_5674) static void C_fcall f_5674(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_6510) static void C_ccall f_6510(C_word c,C_word *av) C_noret; C_noret_decl(f_10541) static void C_fcall f_10541(C_word t0,C_word t1,C_word t2,C_word t3) 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_5212) static void C_ccall f_5212(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_4016) static void C_ccall f_4016(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_4702) static void C_ccall f_4702(C_word c,C_word *av) C_noret; C_noret_decl(f_5521) static void C_ccall f_5521(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_10324) static void C_ccall f_10324(C_word c,C_word *av) C_noret; C_noret_decl(f_9455) static void C_fcall f_9455(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4046) static void C_fcall f_4046(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_4733) static void C_ccall f_4733(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_4038) static void C_ccall f_4038(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_4032) static void C_ccall f_4032(C_word c,C_word *av) C_noret; C_noret_decl(f_5260) static void C_fcall f_5260(C_word t0,C_word t1) 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_4373) static void C_ccall f_4373(C_word c,C_word *av) C_noret; C_noret_decl(f_4371) static void C_ccall f_4371(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_5574) static void C_ccall f_5574(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_4059) static void C_ccall f_4059(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_4749) static void C_ccall f_4749(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_4741) static void C_ccall f_4741(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_3821) static void C_ccall f_3821(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_3827) static void C_ccall f_3827(C_word c,C_word *av) 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_4776) static void C_ccall f_4776(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_6637) static void C_ccall f_6637(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_4025) static void C_ccall f_4025(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_8238) static void C_ccall f_8238(C_word c,C_word *av) C_noret; C_noret_decl(f_8260) static void C_ccall f_8260(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_8258) static void C_ccall f_8258(C_word c,C_word *av) C_noret; C_noret_decl(f_8254) static void C_ccall f_8254(C_word c,C_word *av) C_noret; C_noret_decl(f_9011) static void C_fcall f_9011(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_8278) static void C_ccall f_8278(C_word c,C_word *av) C_noret; C_noret_decl(f_5236) static void C_fcall f_5236(C_word t0,C_word t1) 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_4724) static void C_ccall f_4724(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_4720) static void C_ccall f_4720(C_word c,C_word *av) C_noret; C_noret_decl(f_5661) static void C_ccall f_5661(C_word c,C_word *av) 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_5667) static void C_ccall f_5667(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_5654) static void C_ccall f_5654(C_word c,C_word *av) C_noret; C_noret_decl(f_5644) static void C_ccall f_5644(C_word c,C_word *av) C_noret; C_noret_decl(f_5658) static void C_ccall f_5658(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_7116) static void C_ccall f_7116(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_7288) static void C_ccall f_7288(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_7124) static void C_ccall f_7124(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_7292) static void C_ccall f_7292(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_7132) static void C_ccall f_7132(C_word c,C_word *av) C_noret; C_noret_decl(f_7134) static void C_ccall f_7134(C_word c,C_word *av) C_noret; C_noret_decl(f_8560) static void C_ccall f_8560(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_7153) static void C_ccall f_7153(C_word c,C_word *av) 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_7150) static void C_ccall f_7150(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_8570) static void C_ccall f_8570(C_word c,C_word *av) C_noret; C_noret_decl(f_8572) static void C_ccall f_8572(C_word c,C_word *av) C_noret; C_noret_decl(f_11027) static void C_ccall f_11027(C_word c,C_word *av) C_noret; C_noret_decl(f_8009) static void C_ccall f_8009(C_word c,C_word *av) C_noret; C_noret_decl(f_8661) static void C_ccall f_8661(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_7172) static void C_fcall f_7172(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8658) static void C_ccall f_8658(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_11046) static void C_ccall f_11046(C_word c,C_word *av) C_noret; C_noret_decl(f_8011) static void C_ccall f_8011(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_8665) static void C_fcall f_8665(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_8025) static void C_fcall f_8025(C_word t0,C_word t1,C_word t2) 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_7198) static void C_ccall f_7198(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_8603) static void C_ccall f_8603(C_word c,C_word *av) C_noret; C_noret_decl(f_3931) static void C_ccall f_3931(C_word c,C_word *av) C_noret; C_noret_decl(f_10493) static void C_fcall f_10493(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_8695) static void C_ccall f_8695(C_word c,C_word *av) C_noret; C_noret_decl(f_10251) static void C_fcall f_10251(C_word t0,C_word t1) 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_8052) static void C_ccall f_8052(C_word c,C_word *av) C_noret; C_noret_decl(f_10259) static void C_ccall f_10259(C_word c,C_word *av) 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_9393) static void C_ccall f_9393(C_word c,C_word *av) C_noret; C_noret_decl(f_10674) static void C_fcall f_10674(C_word t0,C_word t1,C_word t2) 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_10274) static void C_ccall f_10274(C_word c,C_word *av) C_noret; C_noret_decl(f_8070) static void C_ccall f_8070(C_word c,C_word *av) C_noret; C_noret_decl(f_10467) static void C_ccall f_10467(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_9329) static void C_ccall f_9329(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_8582) static void C_ccall f_8582(C_word c,C_word *av) C_noret; C_noret_decl(f_10452) static void C_ccall f_10452(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_10262) static void C_ccall f_10262(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_11077) static void C_ccall f_11077(C_word c,C_word *av) 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_10266) static void C_fcall f_10266(C_word t0,C_word t1) 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_3924) static void C_ccall f_3924(C_word c,C_word *av) C_noret; C_noret_decl(f_3920) static void C_fcall f_3920(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10624) static void C_fcall f_10624(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10622) static void C_ccall f_10622(C_word c,C_word *av) C_noret; C_noret_decl(f_10284) static void C_ccall f_10284(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_8673) static void C_ccall f_8673(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_8683) static void C_ccall f_8683(C_word c,C_word *av) C_noret; C_noret_decl(f_3960) static void C_fcall f_3960(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9301) static void C_ccall f_9301(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_8212) static void C_ccall f_8212(C_word c,C_word *av) 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_11493) static void C_ccall f_11493(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_6073) static void C_ccall f_6073(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_8219) static void C_ccall f_8219(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_10998) static void C_fcall f_10998(C_word t0,C_word t1) 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_6285) static void C_ccall f_6285(C_word c,C_word *av) C_noret; C_noret_decl(f_6287) static void C_fcall f_6287(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9258) static void C_ccall f_9258(C_word c,C_word *av) C_noret; C_noret_decl(f_11478) static void C_ccall f_11478(C_word c,C_word *av) C_noret; C_noret_decl(f_6704) static void C_fcall f_6704(C_word t0,C_word t1,C_word t2) 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_9252) static void C_ccall f_9252(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_9262) static void C_fcall f_9262(C_word t0,C_word t1) C_noret; C_noret_decl(f_9234) static void C_ccall f_9234(C_word c,C_word *av) 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_6733) static void C_ccall f_6733(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_6736) static void C_ccall f_6736(C_word c,C_word *av) C_noret; C_noret_decl(f_6739) static void C_ccall f_6739(C_word c,C_word *av) C_noret; C_noret_decl(f_9244) static void C_fcall f_9244(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9240) static void C_ccall f_9240(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_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_8516) static void C_ccall f_8516(C_word c,C_word *av) C_noret; C_noret_decl(f_8518) static void C_ccall f_8518(C_word c,C_word *av) C_noret; C_noret_decl(f_3787) static void C_ccall f_3787(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_3784) static void C_ccall f_3784(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_9277) static void C_fcall f_9277(C_word t0,C_word t1) C_noret; C_noret_decl(f_8522) static void C_ccall f_8522(C_word c,C_word *av) C_noret; C_noret_decl(f_6722) static void C_ccall f_6722(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_8535) static void C_fcall f_8535(C_word t0,C_word t1,C_word t2) 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_9270) static void C_ccall f_9270(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_9288) static void C_ccall f_9288(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_5030) static void C_ccall f_5030(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_5027) static void C_ccall f_5027(C_word c,C_word *av) C_noret; C_noret_decl(f_6205) static void C_ccall f_6205(C_word c,C_word *av) C_noret; C_noret_decl(f_3799) static void C_ccall f_3799(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_3790) static void C_ccall f_3790(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_3793) static void C_ccall f_3793(C_word c,C_word *av) C_noret; C_noret_decl(f_11231) static void C_ccall f_11231(C_word c,C_word *av) C_noret; C_noret_decl(f_11234) static void C_ccall f_11234(C_word c,C_word *av) C_noret; C_noret_decl(f_6213) static void C_ccall f_6213(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_6219) static void C_ccall f_6219(C_word c,C_word *av) C_noret; C_noret_decl(f_11240) static void C_ccall f_11240(C_word c,C_word *av) C_noret; C_noret_decl(f_11244) static void C_fcall f_11244(C_word t0,C_word t1,C_word t2) 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_5088) static void C_ccall f_5088(C_word c,C_word *av) C_noret; C_noret_decl(f_6271) static C_word C_fcall f_6271(C_word *a,C_word t0,C_word t1); C_noret_decl(f_5078) static void C_ccall f_5078(C_word c,C_word *av) C_noret; C_noret_decl(f_11327) static void C_ccall f_11327(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_word t3) 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_6240) static void C_fcall f_6240(C_word t0,C_word t1) C_noret; C_noret_decl(f_6246) static void C_fcall f_6246(C_word t0,C_word t1) C_noret; C_noret_decl(f_6243) static void C_fcall f_6243(C_word t0,C_word t1) C_noret; C_noret_decl(f_4882) static void C_ccall f_4882(C_word c,C_word *av) C_noret; C_noret_decl(f_4887) static void C_fcall f_4887(C_word t0,C_word t1,C_word t2) 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_3702) static void C_ccall f_3702(C_word c,C_word *av) 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_6795) static void C_ccall f_6795(C_word c,C_word *av) C_noret; C_noret_decl(f_3708) static void C_ccall f_3708(C_word c,C_word *av) C_noret; C_noret_decl(f_6791) static void C_ccall f_6791(C_word c,C_word *av) C_noret; C_noret_decl(f_5924) static void C_fcall f_5924(C_word t0,C_word t1) C_noret; C_noret_decl(f_9602) static void C_ccall f_9602(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_5485) static void C_ccall f_5485(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_3772) static void C_ccall f_3772(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_5918) static void C_fcall f_5918(C_word t0,C_word t1) 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_3724) static void C_ccall f_3724(C_word c,C_word *av) C_noret; C_noret_decl(f_3727) static void C_ccall f_3727(C_word c,C_word *av) C_noret; C_noret_decl(f_9906) static void C_fcall f_9906(C_word t0,C_word t1,C_word t2,C_word t3) 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_10022) static void C_fcall f_10022(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4897) static void C_ccall f_4897(C_word c,C_word *av) C_noret; C_noret_decl(f_9954) static void C_fcall f_9954(C_word t0,C_word t1,C_word t2) 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_3711) static void C_ccall f_3711(C_word c,C_word *av) C_noret; C_noret_decl(f_3714) static void C_ccall f_3714(C_word c,C_word *av) C_noret; C_noret_decl(f_3718) static void C_ccall f_3718(C_word c,C_word *av) C_noret; C_noret_decl(f_9634) static void C_ccall f_9634(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_3742) static void C_ccall f_3742(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_10128) static void C_ccall f_10128(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_9644) static void C_fcall f_9644(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10047) static void C_ccall f_10047(C_word c,C_word *av) C_noret; C_noret_decl(f_4199) static void C_fcall f_4199(C_word t0,C_word t1,C_word t2) 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_9618) static void C_ccall f_9618(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_10132) static void C_ccall f_10132(C_word c,C_word *av) C_noret; C_noret_decl(f_10056) static void C_fcall f_10056(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3763) static void C_ccall f_3763(C_word c,C_word *av) C_noret; C_noret_decl(f_3766) static void C_ccall f_3766(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_10141) static void C_ccall f_10141(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_10147) static void C_ccall f_10147(C_word c,C_word *av) 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_9622) static void C_ccall f_9622(C_word c,C_word *av) C_noret; C_noret_decl(f_5459) static void C_ccall f_5459(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_3754) static void C_ccall f_3754(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_10150) static void C_ccall f_10150(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_4439) static void C_ccall f_4439(C_word c,C_word *av) C_noret; C_noret_decl(f_4164) static void C_ccall f_4164(C_word c,C_word *av) C_noret; C_noret_decl(f_5453) static void C_ccall f_5453(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_4431) static void C_ccall f_4431(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_6222) static void C_ccall f_6222(C_word c,C_word *av) C_noret; C_noret_decl(f_7575) static void C_ccall f_7575(C_word c,C_word *av) C_noret; C_noret_decl(f_6225) static void C_ccall f_6225(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_7578) static void C_ccall f_7578(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_4826) static void C_ccall f_4826(C_word c,C_word *av) 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_4297) static void C_fcall f_4297(C_word t0,C_word t1) C_noret; C_noret_decl(f_6231) static void C_ccall f_6231(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_6236) static void C_ccall f_6236(C_word c,C_word *av) C_noret; C_noret_decl(f_5468) static void C_ccall f_5468(C_word c,C_word *av) C_noret; C_noret_decl(f_9988) static void C_fcall f_9988(C_word t0,C_word t1,C_word t2) 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_5462) static void C_ccall f_5462(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_5494) static void C_ccall f_5494(C_word c,C_word *av) C_noret; C_noret_decl(f_7567) static void C_ccall f_7567(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_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_3736) static void C_ccall f_3736(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_6760) static void C_ccall f_6760(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_9692) static void C_fcall f_9692(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5475) static void C_fcall f_5475(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_7581) static void C_ccall f_7581(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_4102) static void C_fcall f_4102(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9219) static void C_ccall f_9219(C_word c,C_word *av) C_noret; C_noret_decl(f_7559) static void C_ccall f_7559(C_word c,C_word *av) C_noret; C_noret_decl(f_9211) static void C_ccall f_9211(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_9222) static void C_ccall f_9222(C_word c,C_word *av) C_noret; C_noret_decl(f_9225) static void C_ccall f_9225(C_word c,C_word *av) C_noret; C_noret_decl(f_8326) static void C_ccall f_8326(C_word c,C_word *av) C_noret; C_noret_decl(f_8328) static void C_fcall f_8328(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8376) static void C_fcall f_8376(C_word t0,C_word t1,C_word t2) 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_7591) static void C_fcall f_7591(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7590) static void C_ccall f_7590(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_4832) static void C_ccall f_4832(C_word c,C_word *av) C_noret; C_noret_decl(f_9979) static void C_ccall f_9979(C_word c,C_word *av) C_noret; C_noret_decl(f_5004) static void C_ccall f_5004(C_word c,C_word *av) C_noret; C_noret_decl(f_5001) static void C_ccall f_5001(C_word c,C_word *av) C_noret; C_noret_decl(f_5943) static void C_ccall f_5943(C_word c,C_word *av) C_noret; C_noret_decl(f_5931) static void C_fcall f_5931(C_word t0,C_word t1) 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_5939) static void C_fcall f_5939(C_word t0,C_word t1) 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_7908) static void C_ccall f_7908(C_word c,C_word *av) C_noret; C_noret_decl(f_4467) static void C_fcall f_4467(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7919) static void C_ccall f_7919(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_4243) static void C_fcall f_4243(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7899) static void C_ccall f_7899(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_7926) static void C_ccall f_7926(C_word c,C_word *av) C_noret; C_noret_decl(f_7922) static void C_ccall f_7922(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_7874) static void C_fcall f_7874(C_word t0,C_word t1,C_word t2,C_word t3) 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_7941) static void C_ccall f_7941(C_word c,C_word *av) C_noret; C_noret_decl(f_7948) static C_word C_fcall f_7948(C_word *a,C_word t0,C_word t1); C_noret_decl(f_4906) static void C_fcall f_4906(C_word t0,C_word t1) C_noret; C_noret_decl(f_7843) static void C_ccall f_7843(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_7847) static void C_ccall f_7847(C_word c,C_word *av) C_noret; C_noret_decl(f_8712) static void C_fcall f_8712(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_8710) static void C_ccall f_8710(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_7858) static void C_ccall f_7858(C_word c,C_word *av) C_noret; C_noret_decl(f_7833) static void C_ccall f_7833(C_word c,C_word *av) C_noret; C_noret_decl(f_8106) static void C_ccall f_8106(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_7837) static void C_ccall f_7837(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_10694) static void C_fcall f_10694(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11304) static void C_ccall f_11304(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_8110) static void C_fcall f_8110(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10688) static void C_ccall f_10688(C_word c,C_word *av) C_noret; C_noret_decl(f_11351) static void C_ccall f_11351(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_noret; C_noret_decl(f_8126) static void C_ccall f_8126(C_word c,C_word *av) C_noret; C_noret_decl(f_8833) static void C_ccall f_8833(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_11365) static void C_ccall f_11365(C_word c,C_word *av) C_noret; C_noret_decl(f_11223) static void C_ccall f_11223(C_word c,C_word *av) C_noret; C_noret_decl(f_11219) static void C_ccall f_11219(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_10742) static void C_fcall f_10742(C_word t0,C_word t1,C_word t2) 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_8155) static void C_ccall f_8155(C_word c,C_word *av) C_noret; C_noret_decl(f_11348) static void C_ccall f_11348(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_8151) static void C_ccall f_8151(C_word c,C_word *av) C_noret; C_noret_decl(f_10394) static void C_fcall f_10394(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7535) static void C_ccall f_7535(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_10776) static void C_fcall f_10776(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8895) static void C_fcall f_8895(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11272) static void C_ccall f_11272(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_11381) static void C_fcall f_11381(C_word t0,C_word t1) 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_8772) static void C_ccall f_8772(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_8785) static void C_fcall f_8785(C_word t0,C_word t1) C_noret; C_noret_decl(f_8316) static void C_ccall f_8316(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_7959) static void C_ccall f_7959(C_word c,C_word *av) C_noret; C_noret_decl(f_7961) static void C_fcall f_7961(C_word t0,C_word t1,C_word t2) 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_10090) static void C_fcall f_10090(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6398) static void C_ccall f_6398(C_word c,C_word *av) 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_6498) static void C_ccall f_6498(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_6811) static void C_ccall f_6811(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_9123) static void C_ccall f_9123(C_word c,C_word *av) C_noret; C_noret_decl(f_8861) static void C_fcall f_8861(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6821) static void C_ccall f_6821(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_9172) static void C_ccall f_9172(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_8731) static void C_fcall f_8731(C_word t0,C_word t1,C_word t2) 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_9140) static void C_ccall f_9140(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_8747) static void C_fcall f_8747(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6809) static void C_ccall f_6809(C_word c,C_word *av) C_noret; C_noret_decl(f_6805) static void C_fcall f_6805(C_word t0,C_word t1) C_noret; C_noret_decl(f_9190) static void C_ccall f_9190(C_word c,C_word *av) C_noret; C_noret_decl(f_9192) static void C_ccall f_9192(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_9168) static void C_ccall f_9168(C_word c,C_word *av) C_noret; C_noret_decl(f_5141) static void C_fcall f_5141(C_word t0,C_word t1,C_word t2,C_word t3) 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_6447) static void C_ccall f_6447(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_10233) static void C_ccall f_10233(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_3699) static void C_ccall f_3699(C_word c,C_word *av) C_noret; C_noret_decl(f_11167) static void C_fcall f_11167(C_word t0,C_word t1) 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_3693) static void C_ccall f_3693(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_11130) static void C_ccall f_11130(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_5126) static void C_ccall f_5126(C_word c,C_word *av) C_noret; C_noret_decl(f_6422) static void C_fcall f_6422(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6897) static void C_fcall f_6897(C_word t0,C_word t1,C_word t2,C_word t3) 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_5182) static void C_ccall f_5182(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_6486) static void C_ccall f_6486(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_5173) static void C_ccall f_5173(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_5388) static void C_ccall f_5388(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_10200) static void C_ccall f_10200(C_word c,C_word *av) C_noret; C_noret_decl(f_10207) static void C_ccall f_10207(C_word c,C_word *av) C_noret; C_noret_decl(f_6366) static void C_ccall f_6366(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_5824) static void C_ccall f_5824(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_5390) static void C_ccall f_5390(C_word c,C_word *av) C_noret; C_noret_decl(f_9740) static void C_fcall f_9740(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_9747) static void C_fcall f_9747(C_word t0,C_word t1) 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_9858) static void C_fcall f_9858(C_word t0,C_word t1,C_word t2,C_word t3) 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_5726) static void C_ccall f_5726(C_word c,C_word *av) C_noret; C_noret_decl(f_5191) static void C_fcall f_5191(C_word t0,C_word t1,C_word t2,C_word t3) 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_5716) static void C_ccall f_5716(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_3668) static void C_ccall f_3668(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_6402) static void C_ccall f_6402(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_5775) static void C_ccall f_5775(C_word c,C_word *av) C_noret; C_noret_decl(f_4576) static void C_ccall f_4576(C_word c,C_word *av) 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_3681) static void C_ccall f_3681(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_5334) static void C_ccall f_5334(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_word t3) C_noret; C_noret_decl(f_10214) static void C_ccall f_10214(C_word c,C_word *av) C_noret; C_noret_decl(f_3675) static void C_ccall f_3675(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_3678) static void C_ccall f_3678(C_word c,C_word *av) C_noret; C_noret_decl(f_4560) static void C_ccall f_4560(C_word c,C_word *av) C_noret; C_noret_decl(f_5365) static void C_ccall f_5365(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_4604) static void C_ccall f_4604(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_4554) static void C_ccall f_4554(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_ccall f_10229(C_word c,C_word *av) C_noret; C_noret_decl(f_5899) static void C_fcall f_5899(C_word t0,C_word t1,C_word t2,C_word t3) 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_4551) static void C_ccall f_4551(C_word c,C_word *av) C_noret; C_noret_decl(f_4638) static void C_fcall f_4638(C_word t0,C_word t1) C_noret; C_noret_decl(f_7353) static void C_ccall f_7353(C_word c,C_word *av) 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(f_4545) static void C_ccall f_4545(C_word c,C_word *av) C_noret; C_noret_decl(f_9580) static C_word C_fcall f_9580(C_word *a,C_word t0,C_word t1,C_word t2,C_word t3); C_noret_decl(f_5344) static void C_ccall f_5344(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_5348) static void C_ccall f_5348(C_word c,C_word *av) C_noret; C_noret_decl(f_4626) static void C_ccall f_4626(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_6849) static void C_fcall f_6849(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9598) static void C_ccall f_9598(C_word c,C_word *av) C_noret; C_noret_decl(f_5372) static void C_ccall f_5372(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_7377) static void C_ccall f_7377(C_word c,C_word *av) C_noret; C_noret_decl(f_4953) static void C_fcall f_4953(C_word t0,C_word t1,C_word t2) 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_7381) static void C_ccall f_7381(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_9810) static void C_fcall f_9810(C_word t0,C_word t1,C_word t2,C_word t3) 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_7399) static void C_ccall f_7399(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_7395) static void C_ccall f_7395(C_word c,C_word *av) C_noret; C_noret_decl(f_4501) static void C_fcall f_4501(C_word t0,C_word t1,C_word t2) 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_4680) static void C_ccall f_4680(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_9119) static void C_ccall f_9119(C_word c,C_word *av) C_noret; C_noret_decl(f_4989) static void C_ccall f_4989(C_word c,C_word *av) C_noret; C_noret_decl(f_4998) static void C_ccall f_4998(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_9138) static void C_ccall f_9138(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_4951) static void C_ccall f_4951(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_7449) static void C_ccall f_7449(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_5327) static void C_ccall f_5327(C_word c,C_word *av) C_noret; C_noret_decl(f_5101) static void C_ccall f_5101(C_word c,C_word *av) C_noret; C_noret_decl(f_7721) static void C_fcall f_7721(C_word t0,C_word t1,C_word t2) 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_7615) static void C_ccall f_7615(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_4601) static void C_ccall f_4601(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_7621) static void C_ccall f_7621(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_7627) static void C_ccall f_7627(C_word c,C_word *av) C_noret; C_noret_decl(f_4619) static void C_fcall f_4619(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5832) static void C_ccall f_5832(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_5752) static void C_ccall f_5752(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_7607) static void C_fcall f_7607(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_7651) static void C_ccall f_7651(C_word c,C_word *av) 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_7467) static void C_ccall f_7467(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_7475) static void C_ccall f_7475(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_7712) static void C_ccall f_7712(C_word c,C_word *av) C_noret; C_noret_decl(f_8446) static void C_fcall f_8446(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8440) static void C_ccall f_8440(C_word c,C_word *av) C_noret; C_noret_decl(f_11124) static void C_ccall f_11124(C_word c,C_word *av) C_noret; C_noret_decl(f_8410) static void C_fcall f_8410(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11126) static void C_ccall f_11126(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_10898) static void C_ccall f_10898(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_8480) static void C_fcall f_8480(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11152) static void C_ccall f_11152(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_10880) static void C_ccall f_10880(C_word c,C_word *av) C_noret; C_noret_decl(f_8939) static void C_fcall f_8939(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_7687) static void C_fcall f_7687(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8933) static void C_ccall f_8933(C_word c,C_word *av) C_noret; C_noret_decl(f_7495) static void C_fcall f_7495(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_7789) static void C_fcall f_7789(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10844) static void C_fcall f_10844(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7780) static void C_ccall f_7780(C_word c,C_word *av) C_noret; C_noret_decl(f_10179) static void C_fcall f_10179(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7304) static void C_ccall f_7304(C_word c,C_word *av) C_noret; C_noret_decl(f_7306) static void C_ccall f_7306(C_word c,C_word *av) C_noret; C_noret_decl(f_8973) static void C_fcall f_8973(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10957) static void C_ccall f_10957(C_word c,C_word *av) C_noret; C_noret_decl(f_10955) static void C_ccall f_10955(C_word c,C_word *av) 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_7313) static void C_ccall f_7313(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_10961) static void C_ccall f_10961(C_word c,C_word *av) 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_10975) static void C_fcall f_10975(C_word t0,C_word t1) C_noret; C_noret_decl(f_10972) static void C_ccall f_10972(C_word c,C_word *av) C_noret; C_noret_decl(f_10810) static void C_fcall f_10810(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10835) static void C_ccall f_10835(C_word c,C_word *av) C_noret; C_noret_decl(f_6131) static void C_fcall f_6131(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10921) static void C_fcall f_10921(C_word t0,C_word t1) C_noret; C_noret_decl(f_7630) static void C_ccall f_7630(C_word c,C_word *av) C_noret; C_noret_decl(f_7633) static void C_ccall f_7633(C_word c,C_word *av) C_noret; C_noret_decl(f_7637) static void C_fcall f_7637(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6116) static C_word C_fcall f_6116(C_word t0,C_word t1); C_noret_decl(f_7645) static void C_ccall f_7645(C_word c,C_word *av) C_noret; C_noret_decl(f_7648) static void C_ccall f_7648(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_11585) static void C_ccall f_11585(C_word c,C_word *av) C_noret; C_noret_decl(f_11581) static void C_ccall f_11581(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_7426) static void C_ccall f_7426(C_word c,C_word *av) C_noret; C_noret_decl(f_7428) static void C_fcall f_7428(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; 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_6165) static void C_ccall trf_6165(C_word c,C_word *av) C_noret; static void C_ccall trf_6165(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6165(t0,t1,t2);} C_noret_decl(trf_11543) static void C_ccall trf_11543(C_word c,C_word *av) C_noret; static void C_ccall trf_11543(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11543(t0,t1,t2);} C_noret_decl(trf_7052) static void C_ccall trf_7052(C_word c,C_word *av) C_noret; static void C_ccall trf_7052(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7052(t0,t1,t2);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10346(t0,t1,t2,t3);} C_noret_decl(trf_9092) static void C_ccall trf_9092(C_word c,C_word *av) C_noret; static void C_ccall trf_9092(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9092(t0,t1,t2);} C_noret_decl(trf_6698) static void C_ccall trf_6698(C_word c,C_word *av) C_noret; static void C_ccall trf_6698(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6698(t0,t1,t2);} 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_9407) static void C_ccall trf_9407(C_word c,C_word *av) C_noret; static void C_ccall trf_9407(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9407(t0,t1,t2,t3);} C_noret_decl(trf_5674) static void C_ccall trf_5674(C_word c,C_word *av) C_noret; static void C_ccall trf_5674(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_5674(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_10541) static void C_ccall trf_10541(C_word c,C_word *av) C_noret; static void C_ccall trf_10541(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10541(t0,t1,t2,t3);} C_noret_decl(trf_9455) static void C_ccall trf_9455(C_word c,C_word *av) C_noret; static void C_ccall trf_9455(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9455(t0,t1,t2,t3);} C_noret_decl(trf_4046) static void C_ccall trf_4046(C_word c,C_word *av) C_noret; static void C_ccall trf_4046(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_4046(t0,t1,t2,t3,t4);} C_noret_decl(trf_5260) static void C_ccall trf_5260(C_word c,C_word *av) C_noret; static void C_ccall trf_5260(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5260(t0,t1);} C_noret_decl(trf_9011) static void C_ccall trf_9011(C_word c,C_word *av) C_noret; static void C_ccall trf_9011(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9011(t0,t1,t2);} C_noret_decl(trf_5236) static void C_ccall trf_5236(C_word c,C_word *av) C_noret; static void C_ccall trf_5236(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5236(t0,t1);} C_noret_decl(trf_7172) static void C_ccall trf_7172(C_word c,C_word *av) C_noret; static void C_ccall trf_7172(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7172(t0,t1,t2,t3);} C_noret_decl(trf_8665) static void C_ccall trf_8665(C_word c,C_word *av) C_noret; static void C_ccall trf_8665(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8665(t0,t1,t2);} C_noret_decl(trf_8025) static void C_ccall trf_8025(C_word c,C_word *av) C_noret; static void C_ccall trf_8025(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8025(t0,t1,t2);} C_noret_decl(trf_10493) static void C_ccall trf_10493(C_word c,C_word *av) C_noret; static void C_ccall trf_10493(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10493(t0,t1,t2,t3);} C_noret_decl(trf_10251) static void C_ccall trf_10251(C_word c,C_word *av) C_noret; static void C_ccall trf_10251(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10251(t0,t1);} C_noret_decl(trf_10674) static void C_ccall trf_10674(C_word c,C_word *av) C_noret; static void C_ccall trf_10674(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10674(t0,t1,t2);} C_noret_decl(trf_10266) static void C_ccall trf_10266(C_word c,C_word *av) C_noret; static void C_ccall trf_10266(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10266(t0,t1);} C_noret_decl(trf_3920) static void C_ccall trf_3920(C_word c,C_word *av) C_noret; static void C_ccall trf_3920(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3920(t0,t1,t2);} C_noret_decl(trf_10624) static void C_ccall trf_10624(C_word c,C_word *av) C_noret; static void C_ccall trf_10624(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10624(t0,t1,t2,t3);} C_noret_decl(trf_3960) static void C_ccall trf_3960(C_word c,C_word *av) C_noret; static void C_ccall trf_3960(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3960(t0,t1,t2);} 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_6287) static void C_ccall trf_6287(C_word c,C_word *av) C_noret; static void C_ccall trf_6287(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6287(t0,t1,t2);} C_noret_decl(trf_6704) static void C_ccall trf_6704(C_word c,C_word *av) C_noret; static void C_ccall trf_6704(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6704(t0,t1,t2);} C_noret_decl(trf_9262) static void C_ccall trf_9262(C_word c,C_word *av) C_noret; static void C_ccall trf_9262(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9262(t0,t1);} C_noret_decl(trf_9244) static void C_ccall trf_9244(C_word c,C_word *av) C_noret; static void C_ccall trf_9244(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9244(t0,t1,t2);} C_noret_decl(trf_9277) static void C_ccall trf_9277(C_word c,C_word *av) C_noret; static void C_ccall trf_9277(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9277(t0,t1);} C_noret_decl(trf_8535) static void C_ccall trf_8535(C_word c,C_word *av) C_noret; static void C_ccall trf_8535(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8535(t0,t1,t2);} C_noret_decl(trf_11244) static void C_ccall trf_11244(C_word c,C_word *av) C_noret; static void C_ccall trf_11244(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11244(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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11329(t0,t1,t2,t3);} C_noret_decl(trf_6240) static void C_ccall trf_6240(C_word c,C_word *av) C_noret; static void C_ccall trf_6240(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6240(t0,t1);} C_noret_decl(trf_6246) static void C_ccall trf_6246(C_word c,C_word *av) C_noret; static void C_ccall trf_6246(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6246(t0,t1);} C_noret_decl(trf_6243) static void C_ccall trf_6243(C_word c,C_word *av) C_noret; static void C_ccall trf_6243(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6243(t0,t1);} C_noret_decl(trf_4887) static void C_ccall trf_4887(C_word c,C_word *av) C_noret; static void C_ccall trf_4887(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4887(t0,t1,t2);} C_noret_decl(trf_5924) static void C_ccall trf_5924(C_word c,C_word *av) C_noret; static void C_ccall trf_5924(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5924(t0,t1);} C_noret_decl(trf_5918) static void C_ccall trf_5918(C_word c,C_word *av) C_noret; static void C_ccall trf_5918(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5918(t0,t1);} C_noret_decl(trf_9906) static void C_ccall trf_9906(C_word c,C_word *av) C_noret; static void C_ccall trf_9906(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9906(t0,t1,t2,t3);} C_noret_decl(trf_10022) static void C_ccall trf_10022(C_word c,C_word *av) C_noret; static void C_ccall trf_10022(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10022(t0,t1,t2);} C_noret_decl(trf_9954) static void C_ccall trf_9954(C_word c,C_word *av) C_noret; static void C_ccall trf_9954(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9954(t0,t1,t2);} C_noret_decl(trf_9644) static void C_ccall trf_9644(C_word c,C_word *av) C_noret; static void C_ccall trf_9644(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9644(t0,t1,t2,t3);} C_noret_decl(trf_4199) static void C_ccall trf_4199(C_word c,C_word *av) C_noret; static void C_ccall trf_4199(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4199(t0,t1,t2);} C_noret_decl(trf_10056) static void C_ccall trf_10056(C_word c,C_word *av) C_noret; static void C_ccall trf_10056(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10056(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_9988) static void C_ccall trf_9988(C_word c,C_word *av) C_noret; static void C_ccall trf_9988(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9988(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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9692(t0,t1,t2,t3);} C_noret_decl(trf_5475) static void C_ccall trf_5475(C_word c,C_word *av) C_noret; static void C_ccall trf_5475(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_5475(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_4102) static void C_ccall trf_4102(C_word c,C_word *av) C_noret; static void C_ccall trf_4102(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4102(t0,t1,t2,t3);} C_noret_decl(trf_8328) static void C_ccall trf_8328(C_word c,C_word *av) C_noret; static void C_ccall trf_8328(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8328(t0,t1,t2,t3);} C_noret_decl(trf_8376) static void C_ccall trf_8376(C_word c,C_word *av) C_noret; static void C_ccall trf_8376(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8376(t0,t1,t2);} C_noret_decl(trf_7591) static void C_ccall trf_7591(C_word c,C_word *av) C_noret; static void C_ccall trf_7591(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7591(t0,t1,t2);} C_noret_decl(trf_5931) static void C_ccall trf_5931(C_word c,C_word *av) C_noret; static void C_ccall trf_5931(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5931(t0,t1);} 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[1]; C_word t1=av[0]; f_5939(t0,t1);} C_noret_decl(trf_4467) static void C_ccall trf_4467(C_word c,C_word *av) C_noret; static void C_ccall trf_4467(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4467(t0,t1,t2);} C_noret_decl(trf_4243) static void C_ccall trf_4243(C_word c,C_word *av) C_noret; static void C_ccall trf_4243(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4243(t0,t1,t2,t3);} C_noret_decl(trf_7874) static void C_ccall trf_7874(C_word c,C_word *av) C_noret; static void C_ccall trf_7874(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7874(t0,t1,t2,t3);} C_noret_decl(trf_4906) static void C_ccall trf_4906(C_word c,C_word *av) C_noret; static void C_ccall trf_4906(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4906(t0,t1);} C_noret_decl(trf_8712) static void C_ccall trf_8712(C_word c,C_word *av) C_noret; static void C_ccall trf_8712(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_8712(t0,t1,t2,t3,t4);} C_noret_decl(trf_10694) static void C_ccall trf_10694(C_word c,C_word *av) C_noret; static void C_ccall trf_10694(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10694(t0,t1,t2,t3);} C_noret_decl(trf_8110) static void C_ccall trf_8110(C_word c,C_word *av) C_noret; static void C_ccall trf_8110(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8110(t0,t1,t2,t3);} 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[1]; C_word t1=av[0]; f_8123(t0,t1);} 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_10742) static void C_ccall trf_10742(C_word c,C_word *av) C_noret; static void C_ccall trf_10742(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10742(t0,t1,t2);} C_noret_decl(trf_10394) static void C_ccall trf_10394(C_word c,C_word *av) C_noret; static void C_ccall trf_10394(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10394(t0,t1,t2,t3);} 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_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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8895(t0,t1,t2,t3);} C_noret_decl(trf_11381) static void C_ccall trf_11381(C_word c,C_word *av) C_noret; static void C_ccall trf_11381(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11381(t0,t1);} C_noret_decl(trf_8785) static void C_ccall trf_8785(C_word c,C_word *av) C_noret; static void C_ccall trf_8785(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8785(t0,t1);} C_noret_decl(trf_7961) static void C_ccall trf_7961(C_word c,C_word *av) C_noret; static void C_ccall trf_7961(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7961(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_10090(t0,t1,t2);} C_noret_decl(trf_8861) static void C_ccall trf_8861(C_word c,C_word *av) C_noret; static void C_ccall trf_8861(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8861(t0,t1,t2);} C_noret_decl(trf_8731) static void C_ccall trf_8731(C_word c,C_word *av) C_noret; static void C_ccall trf_8731(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8731(t0,t1,t2);} C_noret_decl(trf_8747) static void C_ccall trf_8747(C_word c,C_word *av) C_noret; static void C_ccall trf_8747(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8747(t0,t1,t2);} C_noret_decl(trf_6805) static void C_ccall trf_6805(C_word c,C_word *av) C_noret; static void C_ccall trf_6805(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6805(t0,t1);} C_noret_decl(trf_5141) static void C_ccall trf_5141(C_word c,C_word *av) C_noret; static void C_ccall trf_5141(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5141(t0,t1,t2,t3);} C_noret_decl(trf_11167) static void C_ccall trf_11167(C_word c,C_word *av) C_noret; static void C_ccall trf_11167(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11167(t0,t1);} C_noret_decl(trf_6422) static void C_ccall trf_6422(C_word c,C_word *av) C_noret; static void C_ccall trf_6422(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6422(t0,t1,t2);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6897(t0,t1,t2,t3);} C_noret_decl(trf_9740) static void C_ccall trf_9740(C_word c,C_word *av) C_noret; static void C_ccall trf_9740(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_9740(t0,t1,t2,t3,t4);} C_noret_decl(trf_9747) static void C_ccall trf_9747(C_word c,C_word *av) C_noret; static void C_ccall trf_9747(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9747(t0,t1);} 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_9858) static void C_ccall trf_9858(C_word c,C_word *av) C_noret; static void C_ccall trf_9858(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9858(t0,t1,t2,t3);} 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_5191) static void C_ccall trf_5191(C_word c,C_word *av) C_noret; static void C_ccall trf_5191(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5191(t0,t1,t2,t3);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4569(t0,t1,t2,t3);} C_noret_decl(trf_5899) static void C_ccall trf_5899(C_word c,C_word *av) C_noret; static void C_ccall trf_5899(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5899(t0,t1,t2,t3);} C_noret_decl(trf_4638) static void C_ccall trf_4638(C_word c,C_word *av) C_noret; static void C_ccall trf_4638(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4638(t0,t1);} C_noret_decl(trf_6849) static void C_ccall trf_6849(C_word c,C_word *av) C_noret; static void C_ccall trf_6849(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6849(t0,t1,t2,t3);} C_noret_decl(trf_4953) static void C_ccall trf_4953(C_word c,C_word *av) C_noret; static void C_ccall trf_4953(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4953(t0,t1,t2);} C_noret_decl(trf_9810) static void C_ccall trf_9810(C_word c,C_word *av) C_noret; static void C_ccall trf_9810(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9810(t0,t1,t2,t3);} C_noret_decl(trf_4501) static void C_ccall trf_4501(C_word c,C_word *av) C_noret; static void C_ccall trf_4501(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4501(t0,t1,t2);} C_noret_decl(trf_7721) static void C_ccall trf_7721(C_word c,C_word *av) C_noret; static void C_ccall trf_7721(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7721(t0,t1,t2);} C_noret_decl(trf_4619) static void C_ccall trf_4619(C_word c,C_word *av) C_noret; static void C_ccall trf_4619(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4619(t0,t1,t2,t3);} C_noret_decl(trf_7607) static void C_ccall trf_7607(C_word c,C_word *av) C_noret; static void C_ccall trf_7607(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7607(t0,t1,t2);} C_noret_decl(trf_8446) static void C_ccall trf_8446(C_word c,C_word *av) C_noret; static void C_ccall trf_8446(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8446(t0,t1,t2);} C_noret_decl(trf_8410) static void C_ccall trf_8410(C_word c,C_word *av) C_noret; static void C_ccall trf_8410(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8410(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_8480) static void C_ccall trf_8480(C_word c,C_word *av) C_noret; static void C_ccall trf_8480(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8480(t0,t1,t2);} C_noret_decl(trf_8939) static void C_ccall trf_8939(C_word c,C_word *av) C_noret; static void C_ccall trf_8939(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8939(t0,t1,t2);} C_noret_decl(trf_7687) static void C_ccall trf_7687(C_word c,C_word *av) C_noret; static void C_ccall trf_7687(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7687(t0,t1,t2);} C_noret_decl(trf_7495) static void C_ccall trf_7495(C_word c,C_word *av) C_noret; static void C_ccall trf_7495(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_7495(t0,t1,t2,t3,t4);} C_noret_decl(trf_7789) static void C_ccall trf_7789(C_word c,C_word *av) C_noret; static void C_ccall trf_7789(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7789(t0,t1,t2);} C_noret_decl(trf_10844) static void C_ccall trf_10844(C_word c,C_word *av) C_noret; static void C_ccall trf_10844(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10844(t0,t1,t2);} C_noret_decl(trf_10179) static void C_ccall trf_10179(C_word c,C_word *av) C_noret; static void C_ccall trf_10179(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10179(t0,t1,t2);} C_noret_decl(trf_8973) static void C_ccall trf_8973(C_word c,C_word *av) C_noret; static void C_ccall trf_8973(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8973(t0,t1,t2,t3);} C_noret_decl(trf_10975) static void C_ccall trf_10975(C_word c,C_word *av) C_noret; static void C_ccall trf_10975(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10975(t0,t1);} C_noret_decl(trf_10810) static void C_ccall trf_10810(C_word c,C_word *av) C_noret; static void C_ccall trf_10810(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10810(t0,t1,t2);} C_noret_decl(trf_6131) static void C_ccall trf_6131(C_word c,C_word *av) C_noret; static void C_ccall trf_6131(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6131(t0,t1,t2);} C_noret_decl(trf_10921) static void C_ccall trf_10921(C_word c,C_word *av) C_noret; static void C_ccall trf_10921(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10921(t0,t1);} C_noret_decl(trf_7637) static void C_ccall trf_7637(C_word c,C_word *av) C_noret; static void C_ccall trf_7637(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7637(t0,t1,t2);} C_noret_decl(trf_7428) static void C_ccall trf_7428(C_word c,C_word *av) C_noret; static void C_ccall trf_7428(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_7428(t0,t1,t2,t3,t4,t5);} /* k10188 in loop in k10145 in k10142 in k10139 in k10130 in a10127 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10190,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* chicken-syntax.scm:261: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10179(t3,((C_word*)t0)[4],t2);} /* map-loop1587 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in ... */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7755,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_7780,a[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:673: g1593 */ t5=((C_word*)t0)[4]; f_7607(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);}}} /* k11566 in map-loop25 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ static void C_ccall f_11568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_11568,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11543(t6,((C_word*)t0)[5],t5);} /* k11577 in k3670 in k3666 */ static void C_ccall f_11579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11579,2,av);} /* chicken-syntax.scm:46: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop2001 in k5863 in k5860 in k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in ... */ static void C_fcall f_6165(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_6165,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_mutate2(((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-loop25 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ static void C_fcall f_11543(C_word t0,C_word t1,C_word 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_11543,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_11568,a[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:66: g31 */ t5=((C_word*)t0)[4]; f_11244(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);}}} /* k6607 in k6611 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in ... */ static void C_ccall f_6609(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_6609,2,av);} a=C_alloc(16); t2=C_a_i_cons(&a,2,lf[141],t1); t3=C_a_i_list(&a,2,((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6498,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6500,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:864: ##sys#er-transformer */ t7=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k9061 in k9054 in k9051 in a9048 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9063,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8962 in map-loop1109 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in ... */ 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 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_8964,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8939(t6,((C_word*)t0)[5],t5);} /* a9070 in k9051 in a9048 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_9071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9071,5,av);} a=C_alloc(6); t5=C_i_check_list_2(t2,lf[224]); 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_9092,a[2]=t7,a[3]=((C_word)li103),tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_9092(t9,t1,t2);} /* k11537 in k11302 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11539,2,av);} /* chicken-syntax.scm:80: string->symbol */ t2=*((C_word*)lf[181]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9075 in for-each-loop1027 in a9070 in k9051 in a9048 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_9077,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9084,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:362: ##sys#current-module */ t4=*((C_word*)lf[226]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7075 in map-loop1740 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in ... */ static void C_ccall f_7077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7077,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7052(t6,((C_word*)t0)[5],t5);} /* k9054 in k9051 in a9048 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_9056,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9063,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:364: r */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[223]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k9051 in a9048 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_9053(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9053,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9056,a[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]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9071,a[2]=((C_word)li104),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:357: ##sys#decompose-lambda-list */ t5=*((C_word*)lf[163]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a9048 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_9049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9049,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9053,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:356: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[222]; av2[3]=t2; av2[4]=lf[228]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9045 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9047,2,av);} /* chicken-syntax.scm:352: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11511 in k11517 in k11302 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ static void C_ccall f_11513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11513,2,av);} /* chicken-syntax.scm:85: string->symbol */ t2=*((C_word*)lf[181]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a7039 in map-loop1740 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in ... */ static void C_ccall f_7040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7040,5,av);} t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k11517 in k11302 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ 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 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,3)))){ C_save_and_reclaim((void *)f_11519,2,av);} a=C_alloc(42); t2=C_a_i_list(&a,2,lf[116],((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); t4=C_a_i_cons(&a,2,lf[118],t3); t5=C_a_i_list(&a,3,lf[101],((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|8,a[1]=(C_word)f_11493,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],tmp=(C_word)a,a+=9,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11513,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ t10=*((C_word*)lf[286]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[7]; av2[3]=lf[287]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} /* k6615 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6617,2,av);} /* chicken-syntax.scm:839: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[148]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6618 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 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=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_6619,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6623,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:843: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[148]; av2[3]=t2; av2[4]=lf[152]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k6611 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in ... */ 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 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_6613,2,av);} a=C_alloc(7); t2=C_a_i_cons(&a,2,lf[140],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6609,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:863: ##sys#primitive-alias */ t5=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[141]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8432 in foldl1326 in k8282 in k8276 in k8262 in a8259 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in ... */ static void C_ccall f_8434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8434,2,av);} /* chicken-syntax.scm:447: ##sys#append */ t2=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a8435 in foldl1326 in k8282 in k8276 in k8262 in a8259 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in ... */ static void C_ccall f_8436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8436,5,av);} t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* map-loop1740 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in ... */ static void C_fcall f_7052(C_word t0,C_word 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_7052,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_7077,a[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_7040,a[2]=((C_word)li55),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:787: ##sys#decompose-lambda-list */ t7=*((C_word*)lf[163]+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);}}} /* k7048 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7050,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[169]+1); av2[3]=t1; C_apply(4,av2);}} /* k6621 in a6618 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 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 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_6623,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_6637,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:847: ##sys#check-syntax */ t9=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t7; av2[2]=lf[148]; av2[3]=t8; av2[4]=lf[150]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6667,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:854: ##sys#check-syntax */ t9=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t7; av2[2]=lf[148]; av2[3]=t8; av2[4]=lf[151]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} /* k6948 in build in a6820 in k6803 in k6793 in a6790 in a6780 in k6765 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in ... */ 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; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_6950,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_6961,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:827: build */ t14=((C_word*)((C_word*)t0)[7])[1]; f_6897(t14,t9,t13,t1);} else{ /* chicken-syntax.scm:828: build */ t12=((C_word*)((C_word*)t0)[7])[1]; f_6897(t12,t9,C_SCHEME_END_OF_LIST,t1);}} /* k3894 in k3891 in k3885 in a3882 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 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 t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_3896,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_3920,a[2]=((C_word*)t0)[4],a[3]=((C_word)li1),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[28]); t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3958,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_3960,a[2]=t9,a[3]=t18,a[4]=t11,a[5]=t10,a[6]=((C_word)li2),tmp=(C_word)a,a+=7,tmp)); t20=((C_word*)t18)[1]; f_3960(t20,t16,t14);} /* k9082 in k9075 in for-each-loop1027 in a9070 in k9051 in a9048 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 in ... */ static void C_ccall f_9084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9084,2,av);} /* chicken-syntax.scm:362: ##sys#register-export */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3891 in k3885 in a3882 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3893,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3896,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:1298: get-line-number */ t4=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6959 in k6948 in build in a6820 in k6803 in k6793 in a6790 in a6780 in k6765 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_6961,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[30],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop456 in k10318 in k10450 in k10282 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_10346(C_word t0,C_word t1,C_word 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_10346,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[239],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_mutate2(((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);}}} /* k3885 in a3882 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3887,2,av);} a=C_alloc(5); t2=C_i_memq(lf[13],*((C_word*)lf[14]+1)); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3893,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:1297: gensym */ t5=*((C_word*)lf[32]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k3879 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3881,2,av);} /* chicken-syntax.scm:1291: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3882 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in ... */ 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=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_3883,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3887,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1295: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[25]; av2[3]=t2; av2[4]=lf[33]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* for-each-loop1027 in a9070 in k9051 in a9048 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_9092(C_word t0,C_word 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_9092,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_9102,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_9077,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:361: ##sys#get */ t7=*((C_word*)lf[42]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=t4; av2[3]=lf[227]; 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);}}} /* k6519 in k6508 in k6505 in k6502 in a6499 in k6607 in k6611 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in ... */ static void C_ccall f_6521(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6521,2,av);} a=C_alloc(11); t2=t1; t3=C_a_i_list(&a,1,((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6537,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=t2,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* chicken-syntax.scm:872: r */ t6=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[141]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k11059 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11061,2,av);} /* chicken-syntax.scm:153: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[270]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11062 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_11063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11063,5,av);} a=C_alloc(3); t5=C_i_cdr(t2); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_cons(&a,2,lf[37],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k6535 in k6519 in k6508 in k6505 in k6502 in a6499 in k6607 in k6611 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in ... */ 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 t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(111,c,1)))){ C_save_and_reclaim((void *)f_6537,2,av);} a=C_alloc(111); t2=C_i_cadr(((C_word*)t0)[2]); t3=C_a_i_list(&a,1,t2); t4=C_i_caddr(((C_word*)t0)[2]); t5=C_a_i_list(&a,3,lf[101],C_SCHEME_END_OF_LIST,t4); t6=C_a_i_list(&a,2,((C_word*)t0)[3],t5); t7=C_a_i_list(&a,3,lf[101],t3,t6); t8=((C_word*)t0)[2]; t9=C_u_i_cdr(t8); t10=C_u_i_cdr(t9); t11=C_u_i_cdr(t10); t12=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t11); t13=C_a_i_cons(&a,2,lf[101],t12); t14=C_a_i_list(&a,3,lf[142],lf[143],((C_word*)t0)[4]); t15=C_a_i_list(&a,3,lf[101],C_SCHEME_END_OF_LIST,t14); t16=C_a_i_list(&a,2,((C_word*)t0)[3],t15); t17=C_a_i_list(&a,3,lf[101],((C_word*)t0)[4],t16); t18=C_a_i_list(&a,3,lf[144],t13,t17); t19=C_a_i_list(&a,3,lf[101],C_SCHEME_END_OF_LIST,t18); t20=C_a_i_list(&a,3,t1,t7,t19); t21=C_a_i_list(&a,3,lf[101],((C_word*)t0)[5],t20); t22=C_a_i_list(&a,2,((C_word*)t0)[6],t21); t23=((C_word*)t0)[7];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t23; av2[1]=C_a_i_list(&a,1,t22); ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}} /* k11032 in k11025 in k10970 in k10959 in a10956 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_11034,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_10975(t3,t2);} /* a6499 in k6607 in k6611 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 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=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_6500,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6504,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:866: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[135]; av2[3]=t2; av2[4]=lf[147]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k6502 in a6499 in k6607 in k6611 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_6504,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6507,a[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:867: r */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[146]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6505 in k6502 in a6499 in k6607 in k6611 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in ... */ static void C_ccall f_6507(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6507,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6510,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:868: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[145]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6996 in build in a6820 in k6803 in k6793 in a6790 in a6780 in k6765 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6998,2,av);} /* chicken-syntax.scm:823: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10334 in k10318 in k10450 in k10282 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10336,2,av);} a=C_alloc(6); t2=C_a_i_list(&a,1,lf[231]); t3=C_a_i_list(&a,1,t2); /* chicken-syntax.scm:214: ##sys#append */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11048 in a11045 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_11050,2,av);} a=C_alloc(6); t2=C_i_cadr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,2,lf[268],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10306 in k10450 in k10282 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,1)))){ C_save_and_reclaim((void *)f_10308,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[101],t2); t4=C_a_i_list(&a,4,lf[238],((C_word*)t0)[2],((C_word*)t0)[3],t3); t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_list(&a,3,lf[30],((C_word*)t0)[5],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_6696,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6698,a[2]=((C_word*)t0)[2],a[3]=((C_word)li48),tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6733,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); /* chicken-syntax.scm:785: require */ t4=*((C_word*)lf[170]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[171]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* genvars in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in ... */ static void C_fcall f_6698(C_word 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_6698,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_6704,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_6704(t6,t1,C_fix(0));} /* a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in ... */ 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=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_6692,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6696,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:779: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[158]; av2[3]=t2; av2[4]=lf[172]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k6688 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in ... */ 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,4)))){ C_save_and_reclaim((void *)f_6690,2,av);} /* chicken-syntax.scm:770: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[158]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4778 in a4750 in k4731 in k4722 in a4719 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in ... */ static void C_fcall f_4780(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_4780,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[65],t2); t4=C_a_i_list(&a,1,t3); /* chicken-syntax.scm:43: ##sys#append */ t5=*((C_word*)lf[41]+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:43: ##sys#append */ t2=*((C_word*)lf[41]+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);}}} /* k3863 in k3840 in k3837 in k3834 in k3825 in a3822 in k3806 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ C_save_and_reclaim((void *)f_3865,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[16],((C_word*)t0)[3],((C_word*)t0)[4],t2); t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list(&a,2,lf[17],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9403 in k9391 in k9375 in k9600 in k9596 in k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in ... */ static void C_ccall f_9405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9405,2,av);} /* chicken-syntax.scm:280: ##sys#append */ t2=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop965 in k9391 in k9375 in k9600 in k9596 in k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in ... */ static void C_fcall f_9407(C_word t0,C_word t1,C_word 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_9407,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[239],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_mutate2(((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);}}} /* k5595 in k5578 in k5552 in loop in k5466 in k5463 in k5460 in k5457 in a5454 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 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 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_5597,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:1058: loop */ t9=((C_word*)((C_word*)t0)[5])[1]; f_5475(t9,((C_word*)t0)[6],t3,((C_word*)t0)[7],t7,t8,C_SCHEME_FALSE);} /* k3809 in k3806 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in ... */ static void C_ccall f_3811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3811,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3814,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1335: ##sys#macro-subset */ t3=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[10]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3815 in k3812 in k3809 in k3806 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in ... */ static void C_ccall f_3817(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3817,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3812 in k3809 in k3806 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3814,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[1]+1 /* (set! ##sys#chicken-macro-environment ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3817,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1341: register-feature! */ t4=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t4; av2[1]=t3; av2[2]=lf[3]; av2[3]=lf[4]; av2[4]=lf[5]; av2[5]=lf[6]; av2[6]=lf[7]; av2[7]=lf[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(8,av2);}} /* k4063 in k4239 in k4057 in k4054 in loop in k4036 in k4033 in k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in ... */ static void C_ccall f_4065(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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_4065,2,av);} a=C_alloc(44); t2=C_a_i_list(&a,2,lf[35],((C_word*)t0)[2]); t3=C_a_i_list(&a,2,lf[36],((C_word*)t0)[2]); t4=C_a_i_list(&a,3,lf[37],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_4100,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_4102,a[2]=t10,a[3]=t14,a[4]=t11,a[5]=((C_word)li4),tmp=(C_word)a,a+=6,tmp)); t16=((C_word*)t14)[1]; f_4102(t16,t12,((C_word*)t0)[3],((C_word*)t0)[7]);} /* k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 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 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_3802,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3805,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_4004,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4006,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1229: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5618 in k5578 in k5552 in loop in k5466 in k5463 in k5460 in k5457 in a5454 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5620,2,av);} /* chicken-syntax.scm:1057: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in ... */ static void C_ccall f_3805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3805,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3808,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_3881,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3883,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1293: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3806 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_3808,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3811,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_3821,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3823,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1318: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3834 in k3825 in a3822 in k3806 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 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(5,c,2)))){ C_save_and_reclaim((void *)f_3836,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3839,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:1324: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[20]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3837 in k3834 in k3825 in a3822 in k3806 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3839,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3842,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:1325: ##sys#strip-syntax */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k4002 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4004,2,av);} /* chicken-syntax.scm:1227: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 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; 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_4006,5,av);} a=C_alloc(5); if(C_truep(C_i_memq(lf[13],*((C_word*)lf[14]+1)))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4016,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:1233: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[34]; av2[3]=t2; av2[4]=lf[49]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=lf[50]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* loop in k5665 in k5662 in k5659 in k5656 in a5653 in k5822 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in ... */ static void C_fcall f_5674(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_5674,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_5684,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:1005: reverse */ t7=*((C_word*)lf[43]+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_5749,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:1014: 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);}}} /* k5685 in k5682 in loop in k5665 in k5662 in k5659 in k5656 in a5653 in k5822 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 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 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_5687,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_5693,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_5726,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1008: gensym */ t5=*((C_word*)lf[32]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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[26],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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[101],((C_word*)t0)[5],t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k6508 in k6505 in k6502 in a6499 in k6607 in k6611 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in ... */ static void C_ccall f_6510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6510,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6521,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-syntax.scm:869: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[140]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* map-loop348 in k10282 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_10541(C_word t0,C_word t1,C_word 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_10541,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[239],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_mutate2(((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);}}} /* k3840 in k3837 in k3834 in k3825 in a3822 in k3806 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 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 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_3842,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[15]); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3865,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:1330: ##compiler#check-and-validate-type */ t7=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=t1; av2[3]=lf[12]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k5210 in k5196 in loop2228 in k5180 in k5174 in k5171 in a5077 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5212,2,av);} /* chicken-syntax.scm:1120: loop2228 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_5191(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k5529 in k5486 in k5483 in loop in k5466 in k5463 in k5460 in k5457 in a5454 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5531,2,av);} /* chicken-syntax.scm:1040: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 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 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_4016,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_4025,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:1236: ##sys#globalize */ t7=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4312 in k4295 in loop in k4036 in k4033 in k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_4314,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* chicken-syntax.scm:1279: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4046(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2);} /* k4700 in k4684 in a4681 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_4702,2,av);} a=C_alloc(12); t2=C_i_caddr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,4,lf[38],t1,C_SCHEME_TRUE,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5519 in k5503 in k5492 in k5486 in k5483 in loop in k5466 in k5463 in k5460 in k5457 in a5454 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in ... */ static void C_ccall f_5521(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5521,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[101],((C_word*)t0)[4],t3); t5=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_list(&a,3,lf[30],((C_word*)t0)[6],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k10318 in k10450 in k10282 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 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_10320,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10324,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_10336,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_10346,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li132),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_10346(t12,t8,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k10322 in k10318 in k10450 in k10282 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10324,2,av);} /* chicken-syntax.scm:214: ##sys#append */ t2=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop929 in k9375 in k9600 in k9596 in k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in ... */ static void C_fcall f_9455(C_word t0,C_word t1,C_word 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_9455,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_mutate2(((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 k4036 in k4033 in k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in ... */ static void C_fcall f_4046(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_4046,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_4056,a[2]=((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:1245: reverse */ 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);}} 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[44],t4); /* chicken-syntax.scm:1277: 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_4297,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_4297(t11,C_i_symbolp(t10));} else{ t10=t7; f_4297(t10,C_SCHEME_FALSE);}} else{ t8=t7; f_4297(t8,C_SCHEME_FALSE);}}}} /* k5271 in k5258 in k5234 in a5225 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_5273,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4731 in k4722 in a4719 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 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 t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_4733,2,av);} a=C_alloc(11); t2=t1; t3=C_i_cadr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4741,a[2]=t2,a[3]=t4,a[4]=((C_word)li16),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4751,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t4,a[5]=((C_word)li17),tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:1197: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k4381 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in ... */ 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 t3; C_word t4; C_word 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_4383,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[28]); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4400,a[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_4501,a[2]=t4,a[3]=t10,a[4]=t5,a[5]=((C_word)li11),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_4501(t12,t8,t6);} else{ /* chicken-syntax.scm:1223: ##sys#syntax-rules-mismatch */ t2=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k4036 in k4033 in k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 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 t3; C_word 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_4038,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_4046,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)li7),tmp=(C_word)a,a+=11,tmp)); t8=((C_word*)t6)[1]; f_4046(t8,((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* k4033 in k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_4035,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4038,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:1241: r */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[47]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in ... */ static void C_ccall f_4032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_4032,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4035,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:1240: ##sys#strip-syntax */ t9=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_4035(2,av2);}}} /* k5258 in k5234 in a5225 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in ... */ static void C_fcall f_5260(C_word t0,C_word t1){ C_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_5260,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_5273,a[2]=t6,a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:1112: rename2197 */ t8=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=lf[91]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ /* chicken-syntax.scm:1112: ##sys#syntax-rules-mismatch */ t2=*((C_word*)lf[55]+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);}}} /* k5578 in k5552 in loop in k5466 in k5463 in k5460 in k5457 in a5454 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 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; 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_5580,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:1052: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_5475(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:1053: syntax-error */ t4=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=lf[105]; av2[3]=lf[106]; 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_5597,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_5620,a[2]=((C_word*)t0)[9],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1057: gensym */ t4=*((C_word*)lf[32]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 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=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_4373,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_4383,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_4545,a[2]=t7,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4601,a[2]=t7,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=C_i_car(t7); /* chicken-syntax.scm:1223: ##sys#list? */ t12=*((C_word*)lf[60]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_FALSE; f_4383(2,av2);}}} /* k4369 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in ... */ static void C_ccall f_4371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4371,2,av);} /* chicken-syntax.scm:1221: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4716 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4718,2,av);} /* chicken-syntax.scm:1190: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[62]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5572 in k5552 in loop in k5466 in k5463 in k5460 in k5457 in a5454 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5574,2,av);} /* chicken-syntax.scm:1048: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5691 in k5685 in k5682 in loop in k5665 in k5662 in k5659 in k5656 in a5653 in k5822 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5693,2,av);} a=C_alloc(6); t2=t1; t3=(*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]=t2,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:1008: ##sys#append */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4057 in k4054 in loop in k4036 in k4033 in k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in ... */ 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 t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_4059,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4241,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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_4243,a[2]=t5,a[3]=((C_word)li6),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_4243(t7,t3,((C_word*)t0)[10],C_fix(1));} /* k4054 in loop in k4036 in k4033 in k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_4056,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4059,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:1246: reverse */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4747 in a4740 in k4731 in k4722 in a4719 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in ... */ static void C_ccall f_4749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4749,2,av);} /* chicken-syntax.scm:1201: ##compiler#validate-type */ t2=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5244 in k5234 in a5225 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_5246,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4740 in k4731 in k4722 in a4719 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in ... */ 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; 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_4741,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4749,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1201: ##sys#strip-syntax */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5682 in loop in k5665 in k5662 in k5659 in k5656 in a5653 in k5822 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_5684,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,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]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:1006: reverse */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3819 in k3806 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3821,2,av);} /* chicken-syntax.scm:1316: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[12]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3822 in k3806 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in ... */ 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=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_3823,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3827,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:1320: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[12]; av2[3]=t2; av2[4]=lf[23]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k3825 in a3822 in k3806 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 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; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3827,2,av);} a=C_alloc(5); if(C_truep(C_i_memq(lf[13],*((C_word*)lf[14]+1)))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3836,a[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]); /* chicken-syntax.scm:1323: ##sys#strip-syntax */ t4=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[21]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k6665 in k6621 in a6618 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_6667,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,2,lf[20],((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[149],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4774 in a4750 in k4731 in k4722 in a4719 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_4776,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[37],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5552 in loop in k5466 in k5463 in k5460 in k5457 in a5454 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 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(12,c,3)))){ C_save_and_reclaim((void *)f_5554,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5557,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_5574,a[2]=((C_word*)t0)[8],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1048: gensym */ t4=*((C_word*)lf[32]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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_5580,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:1050: c */ t5=((C_word*)t0)[10];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k5555 in k5552 in loop in k5466 in k5463 in k5460 in k5457 in a5454 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_5557,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:1049: loop */ t6=((C_word*)((C_word*)t0)[5])[1]; f_5475(t6,((C_word*)t0)[6],t3,t4,((C_word*)t0)[7],t5,C_SCHEME_FALSE);} /* k6635 in k6621 in a6618 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in ... */ static void C_ccall f_6637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,1)))){ C_save_and_reclaim((void *)f_6637,2,av);} a=C_alloc(21); t2=C_slot(((C_word*)t0)[2],C_fix(0)); t3=C_a_i_list(&a,2,lf[20],t2); t4=C_slot(((C_word*)t0)[2],C_fix(1)); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[3]); t6=C_a_i_cons(&a,2,lf[101],t5); t7=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[149],t3,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_4029,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4032,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:1239: ##sys#globalize */ t4=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_4025,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_4029,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:1238: gensym */ t5=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4750 in k4731 in k4722 in a4719 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 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=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_4751,5,av);} a=C_alloc(30); t5=t3; if(C_truep(t2)){ t6=C_i_cdddr(((C_word*)t0)[2]); t7=C_a_i_cons(&a,2,((C_word*)t0)[3],t6); t8=C_a_i_cons(&a,2,((C_word*)t0)[4],t7); t9=C_a_i_list(&a,2,lf[64],t8); t10=t9; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4776,a[2]=t10,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4780,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=t11,tmp=(C_word)a,a+=5,tmp); if(C_truep(t4)){ t13=C_a_i_list(&a,2,lf[66],((C_word*)t0)[4]); t14=t12; f_4780(t14,C_a_i_list(&a,1,t13));} else{ t13=t12; f_4780(t13,C_SCHEME_END_OF_LIST);}} else{ /* chicken-syntax.scm:1203: syntax-error */ t6=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=lf[62]; av2[3]=lf[67]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}} /* k8236 in k8217 in k8214 in a8211 in k8252 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,1)))){ C_save_and_reclaim((void *)f_8238,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[101],((C_word*)t0)[3],t3); t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_list(&a,3,lf[144],((C_word*)t0)[5],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a8259 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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=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_8260,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8264,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:439: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[213]; av2[3]=t2; av2[4]=lf[217]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5503 in k5492 in k5486 in k5483 in loop in k5466 in k5463 in k5460 in k5457 in a5454 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 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 t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_5505,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_5521,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:1040: ##sys#append */ t8=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8256 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_8258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8258,2,av);} /* chicken-syntax.scm:435: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8252 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_8254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_8254,2,av);} a=C_alloc(13); t2=C_a_i_cons(&a,2,lf[210],t1); t3=C_a_i_list(&a,1,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8210,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_8212,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:457: ##sys#er-transformer */ t7=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* map-loop1071 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_9011(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_9011,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_mutate2(((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);}}} /* k8262 in a8259 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 t7; C_word t8; C_word 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_8264,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[28]); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8278,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_8480,a[2]=t9,a[3]=t14,a[4]=t10,a[5]=((C_word)li86),tmp=(C_word)a,a+=6,tmp)); t16=((C_word*)t14)[1]; f_8480(t16,t12,t3);} /* k8276 in k8262 in a8259 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 in ... */ static void C_ccall f_8278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_8278,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_8284,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_8446,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li85),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_8446(t11,t7,((C_word*)t0)[4]);} /* k5234 in a5225 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in ... */ static void C_fcall f_5236(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_5236,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_5246,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1112: rename2197 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=lf[91]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5260,a[2]=((C_word*)t0)[2],a[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_5260(t5,C_eqp(t4,C_SCHEME_END_OF_LIST));} else{ t4=t2; f_5260(t4,C_SCHEME_FALSE);}} else{ t3=t2; f_5260(t3,C_SCHEME_FALSE);}}} /* k8282 in k8276 in k8262 in a8259 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_8284,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[214]); t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8306,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_8410,a[2]=t10,a[3]=((C_word)li84),tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_8410(t12,t8,((C_word*)t0)[2],C_SCHEME_END_OF_LIST);} /* k4722 in a4719 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4724,2,av);} a=C_alloc(4); if(C_truep(C_i_memq(lf[13],*((C_word*)lf[14]+1)))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4733,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_caddr(((C_word*)t0)[2]); /* chicken-syntax.scm:1197: ##sys#strip-syntax */ t4=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[68]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k5222 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 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);} /* chicken-syntax.scm:1110: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[90]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5225 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 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=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_5226,5,av);} a=C_alloc(6); t5=C_i_cdr(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5236,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_5236(t9,C_eqp(t8,C_SCHEME_END_OF_LIST));} else{ t8=t7; f_5236(t8,C_SCHEME_FALSE);}} /* a4719 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 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=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_4720,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4724,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1194: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[62]; av2[3]=t2; av2[4]=lf[69]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5659 in k5656 in a5653 in k5822 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in ... */ static void C_ccall f_5661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5661,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5664,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:1000: r */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[104]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5662 in k5659 in k5656 in a5653 in k5822 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_5664,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5667,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:1002: syntax-error */ t5=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[111]; av2[3]=lf[113]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_5667(2,av2);}}} /* k5665 in k5662 in k5659 in k5656 in a5653 in k5822 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 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 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_5667,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_5674,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)li33),tmp=(C_word)a,a+=10,tmp)); t7=((C_word*)t5)[1]; f_5674(t7,((C_word*)t0)[8],t3,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} /* k5650 in k5822 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5652,2,av);} /* chicken-syntax.scm:993: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5653 in k5822 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 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=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_5654,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5658,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:998: r */ t6=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[109]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in ... */ static void C_ccall f_5644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_5644,2,av);} a=C_alloc(13); t2=C_a_i_cons(&a,2,lf[104],t1); t3=C_a_i_list(&a,1,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5453,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_5455,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1028: ##sys#er-transformer */ t7=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k5656 in a5653 in k5822 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in ... */ static void C_ccall f_5658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5658,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5661,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:999: r */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[108]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 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 t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,5)))){ C_save_and_reclaim((void *)f_7108,2,av);} a=C_alloc(25); t2=C_a_i_cons(&a,2,lf[157],t1); t3=C_a_i_list(&a,5,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6690,a[2]=((C_word*)t0)[6],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6692,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:777: ##sys#er-transformer */ t7=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7116,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,lf[155],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7112,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); /* chicken-syntax.scm:775: ##sys#primitive-alias */ t5=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[156]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_7112,2,av);} a=C_alloc(10); t2=C_a_i_cons(&a,2,lf[156],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7108,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); /* chicken-syntax.scm:776: ##sys#primitive-alias */ t5=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[157]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7286 in k7290 in k7294 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in ... */ 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 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_7288,2,av);} a=C_alloc(19); t2=C_a_i_cons(&a,2,lf[155],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_7132,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_7134,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:740: ##sys#er-transformer */ t7=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in ... */ 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; 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_7120,2,av);} a=C_alloc(8); t2=C_a_i_cons(&a,2,lf[154],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7116,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:774: ##sys#primitive-alias */ t5=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[155]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in ... */ 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; 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_7124,2,av);} a=C_alloc(7); t2=C_a_i_cons(&a,2,lf[153],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7120,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:773: ##sys#primitive-alias */ t5=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[154]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7294 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7296,2,av);} a=C_alloc(7); t2=C_a_i_cons(&a,2,lf[173],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7292,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:738: ##sys#primitive-alias */ t5=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[154]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7290 in k7294 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in ... */ static void C_ccall f_7292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7292,2,av);} a=C_alloc(8); t2=C_a_i_cons(&a,2,lf[154],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7288,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:739: ##sys#primitive-alias */ t5=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[155]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7136 in a7133 in k7286 in k7290 in k7294 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7138,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_7150,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:746: r */ t11=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=lf[173]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k7130 in k7286 in k7290 in k7294 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in ... */ static void C_ccall f_7132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7132,2,av);} /* chicken-syntax.scm:735: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[174]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a7133 in k7286 in k7290 in k7294 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in ... */ static void C_ccall f_7134(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7134,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7138,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:742: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[174]; av2[3]=t2; av2[4]=lf[177]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k8558 in fold in k8528 in k8520 in a8517 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in ... */ static void C_ccall f_8560(C_word c,C_word *av){ C_word tmp; 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_8560,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k7154 in k7151 in k7148 in k7136 in a7133 in k7286 in k7290 in k7294 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 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(10,c,2)))){ C_save_and_reclaim((void *)f_7156,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7159,a[2]=((C_word*)t0)[2],a[3]=((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:749: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[176]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7151 in k7148 in k7136 in a7133 in k7286 in k7290 in k7294 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in ... */ static void C_ccall f_7153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7153,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7156,a[2]=((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:748: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[155]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_8576,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_8582,a[2]=t8,a[3]=((C_word)li90),tmp=(C_word)a,a+=4,tmp); t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8610,a[2]=t10,a[3]=((C_word)li91),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[28]); t20=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8658,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_9011,a[2]=t17,a[3]=t22,a[4]=t18,a[5]=((C_word)li101),tmp=(C_word)a,a+=6,tmp)); t24=((C_word*)t22)[1]; f_9011(t24,t20,t3);} /* k7148 in k7136 in a7133 in k7286 in k7290 in k7294 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in ... */ static void C_ccall f_7150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7150,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7153,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:747: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[154]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7157 in k7154 in k7151 in k7148 in k7136 in a7133 in k7286 in k7290 in k7294 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 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; 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_7159,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_7170,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_7172,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)li58),tmp=(C_word)a,a+=9,tmp)); t9=((C_word*)t7)[1]; f_7172(t9,t5,t1,((C_word*)t0)[9]);} /* k8568 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_8570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8570,2,av);} /* chicken-syntax.scm:366: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_8572(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8572,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8576,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:370: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[219]; av2[3]=t2; av2[4]=lf[221]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11025 in k10970 in k10959 in a10956 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_11027,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11034,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:178: string-append */ t3=*((C_word*)lf[182]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[264]; av2[3]=t1; av2[4]=lf[265]; 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_10975(t2,C_SCHEME_FALSE);}} /* k8007 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in ... */ static void C_ccall f_8009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8009,2,av);} /* chicken-syntax.scm:486: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_8661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_8661,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_8665,a[2]=((C_word*)t0)[2],a[3]=((C_word)li92),tmp=(C_word)a,a+=4,tmp); t8=C_i_check_list_2(t2,lf[28]); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8683,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_8939,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li99),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_8939(t13,t9,t2);} /* k7168 in k7157 in k7154 in k7151 in k7148 in k7136 in a7133 in k7286 in k7290 in k7294 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_7170,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[30],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k7157 in k7154 in k7151 in k7148 in k7136 in a7133 in k7286 in k7290 in k7294 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in ... */ static void C_fcall f_7172(C_word t0,C_word t1,C_word 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_7172,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[30],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_7198,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:757: r */ t7=((C_word*)t0)[7];{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=lf[175]; ((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[30],t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}} /* k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_8658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_8658,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8661,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_8973,a[2]=t5,a[3]=((C_word*)t0)[7],a[4]=((C_word)li100),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_8973(t7,t3,t2,C_SCHEME_END_OF_LIST);} /* k8013 in a8010 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 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 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_8015,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_8025,a[2]=t5,a[3]=t7,a[4]=((C_word)li76),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_8025(t9,((C_word*)t0)[3],t2);} /* a11045 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_11046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11046,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11050,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:163: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[267]; av2[3]=t2; av2[4]=lf[269]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* a8010 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in ... */ static void C_ccall f_8011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8011,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8015,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:490: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[202]; av2[3]=t2; av2[4]=lf[204]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11042 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11044,2,av);} /* chicken-syntax.scm:159: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[267]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* g1115 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 in ... */ static void C_fcall f_8665(C_word t0,C_word t1,C_word 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_8665,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8673,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8677,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:392: gensym */ t5=*((C_word*)lf[32]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k10469 in k10465 in k10282 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10471,2,av);} /* chicken-syntax.scm:214: ##sys#append */ t2=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* fold in k8013 in a8010 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in ... */ static void C_fcall f_8025(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_8025,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_a_i_cons(&a,2,lf[26],((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=t2; t6=C_u_i_cdr(t5); if(C_truep(C_i_pairp(t4))){ t7=C_i_cdr(t4); if(C_truep(C_i_nullp(t7))){ t8=C_u_i_car(t4); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8067,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:499: fold */ t11=t9; t12=t6; t1=t11; t2=t12; goto loop;} else{ t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8070,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:501: ##sys#check-syntax */ t9=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t8; av2[2]=lf[202]; av2[3]=t4; av2[4]=lf[203]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8052,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:498: fold */ t11=t7; t12=t6; t1=t11; t2=t12; goto loop;}}} /* k11015 in k10973 in k10970 in k10959 in a10956 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_11017,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,2,lf[116],t1); t3=C_a_i_list(&a,1,t2); t4=((C_word*)t0)[2]; f_10998(t4,C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],t3));} /* k7196 in loop in k7157 in k7154 in k7151 in k7148 in k7136 in a7133 in k7286 in k7290 in k7294 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in ... */ 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 t7; C_word t8; C_word t9; C_word t10; C_word 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_7198,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[159],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[116],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[159],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_7209,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:764: loop */ t18=((C_word*)((C_word*)t0)[9])[1]; f_7172(t18,t15,t1,t17);} /* map*1055 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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=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_8610,4,av);} a=C_alloc(6); if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t3))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8633,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); /* chicken-syntax.scm:381: proc */ t6=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* chicken-syntax.scm:380: proc */ t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}} /* k8601 in append*1054 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8603,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k3929 in k3922 in g2629 in k3894 in k3891 in k3885 in a3882 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in ... */ static void C_ccall f_3931(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3931,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[26],t3); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_list2(&a,2,t1,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* map-loop384 in k10465 in k10282 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_10493(C_word t0,C_word t1,C_word 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_10493,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[239],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_mutate2(((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);}}} /* k9375 in k9600 in k9596 in k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 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 t3; C_word t4; C_word 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_9377,2,av);} a=C_alloc(28); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9381,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_9393,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_9455,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li114),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_9455(t12,t8,((C_word*)t0)[11],((C_word*)t0)[9]);} /* k8693 in k8681 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 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 t3; C_word t4; 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_8695,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_8710,a[2]=((C_word*)t0)[2],a[3]=((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_8861,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li97),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_8861(t11,t7,((C_word*)t0)[7]);} /* g205 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_10251(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_10251,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10259,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:217: gensym */ t3=*((C_word*)lf[32]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9379 in k9375 in k9600 in k9596 in k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 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 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_9381,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[30],t2); t4=C_a_i_list(&a,3,lf[101],C_SCHEME_END_OF_LIST,t3); t5=C_a_i_list(&a,4,lf[238],((C_word*)t0)[3],((C_word*)t0)[4],t4); t6=C_a_i_list(&a,3,lf[30],((C_word*)t0)[5],t5); t7=C_a_i_list(&a,3,lf[30],((C_word*)t0)[6],t6); t8=C_a_i_list(&a,3,lf[30],((C_word*)t0)[7],t7); t9=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_a_i_list(&a,3,lf[30],((C_word*)t0)[9],t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* k8050 in fold in k8013 in a8010 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_8052,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,4,lf[159],((C_word*)t0)[3],t1,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10257 in g205 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10259(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10259,2,av);} /* chicken-syntax.scm:217: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8065 in fold in k8013 in a8010 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in ... */ 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 *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_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,4,lf[159],((C_word*)t0)[3],t1,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9391 in k9375 in k9600 in k9596 in k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 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 t4; 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_9393,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_9405,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_9407,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li113),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_9407(t11,t7,((C_word*)t0)[3],((C_word*)t0)[4]);} /* loop in k10604 in k10595 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_10674(C_word t0,C_word t1,C_word 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_10674,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_10688,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=C_fixnum_difference(t2,C_fix(1)); /* chicken-syntax.scm:225: loop */ t7=t4; t8=t5; t1=t7; t2=t8; goto loop;}} /* k3983 in map-loop2623 in k3894 in k3891 in k3885 in a3882 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in ... */ 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; 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_3985,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3960(t6,((C_word*)t0)[5],t5);} /* k10272 in g233 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10274(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10274,2,av);} /* chicken-syntax.scm:218: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8068 in fold in k8013 in a8010 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in ... */ static void C_ccall f_8070(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_8070,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_8086,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:504: fold */ t8=((C_word*)((C_word*)t0)[4])[1]; f_8025(t8,t7,((C_word*)t0)[5]);} /* k10465 in k10282 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_10467,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10471,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_10483,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_10493,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li134),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_10493(t12,t8,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k3956 in k3894 in k3891 in k3885 in a3882 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in ... */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_3958,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[29],t3); t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_list(&a,3,lf[30],((C_word*)t0)[5],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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(48,c,5)))){ C_save_and_reclaim((void *)f_9329,2,av);} a=C_alloc(48); t2=t1; t3=C_a_i_list(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_TRUE); t4=C_a_i_list(&a,2,((C_word*)t0)[4],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_9580,a[2]=((C_word*)t0)[4],a[3]=((C_word)li112),tmp=(C_word)a,a+=4,tmp); t12=C_i_check_list_2(((C_word*)t0)[5],lf[28]); t13=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9598,a[2]=((C_word*)t0)[6],a[3]=t6,a[4]=t2,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)[5],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[4],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_9740,a[2]=t11,a[3]=t9,a[4]=t15,a[5]=t10,a[6]=((C_word)li118),tmp=(C_word)a,a+=7,tmp)); t17=((C_word*)t15)[1]; f_9740(t17,t13,((C_word*)t0)[11],((C_word*)t0)[10],((C_word*)t0)[5]);} /* k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 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_10277,2,av);} a=C_alloc(33); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10284,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_10597,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_10742,a[2]=t11,a[3]=t15,a[4]=t12,a[5]=((C_word)li139),tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_10742(t17,t13,((C_word*)t0)[6]);} /* append*1054 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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=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(4,c,3)))){ C_save_and_reclaim((void *)f_8582,4,av);} a=C_alloc(4); if(C_truep(C_i_pairp(t2))){ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8603,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); /* chicken-syntax.scm:377: append* */ t9=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t6; av2[2]=t8; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10450 in k10282 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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_10452,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[101],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[101],t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10308,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_10320,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_10394,a[2]=t11,a[3]=t15,a[4]=t12,a[5]=((C_word)li133),tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_10394(t17,t13,((C_word*)t0)[7],((C_word*)t0)[5]);} /* k8084 in k8068 in fold in k8013 in a8010 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ C_save_and_reclaim((void *)f_8086,2,av);} a=C_alloc(21); t2=C_a_i_list(&a,4,lf[159],((C_word*)t0)[2],t1,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[30],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_10262,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_10266,a[2]=((C_word*)t0)[2],a[3]=((C_word)li131),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10277,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_10776,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li140),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_10776(t12,t8,((C_word*)t0)[6]);} /* k10611 in k10604 in k10595 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 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_10613,2,av);} a=C_alloc(12); t2=C_i_check_list_2(((C_word*)t0)[2],lf[28]); t3=C_i_check_list_2(t1,lf[28]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10622,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_10624,a[2]=((C_word*)t0)[5],a[3]=t6,a[4]=((C_word*)t0)[6],a[5]=((C_word)li136),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_10624(t8,t4,((C_word*)t0)[2],t1);} /* a11076 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_11077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11077,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11081,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:143: r */ t6=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[275]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k11073 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11075,2,av);} /* chicken-syntax.scm:139: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[271]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* g233 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_10266(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_10266,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10274,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:218: gensym */ t3=*((C_word*)lf[32]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10481 in k10465 in k10282 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10483,2,av);} a=C_alloc(6); t2=C_a_i_list(&a,1,lf[231]); t3=C_a_i_list(&a,1,t2); /* chicken-syntax.scm:214: ##sys#append */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3922 in g2629 in k3894 in k3891 in k3885 in a3882 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in ... */ 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; C_word t3; C_word 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_3924,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3931,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_eqp(t1,lf[27]); if(C_truep(t3)){ t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_a_i_cons(&a,2,lf[26],t5); t7=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_list2(&a,2,lf[27],t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ if(C_truep(((C_word*)t0)[4])){ /* chicken-syntax.scm:1309: ##compiler#check-and-validate-type */ t4=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t1; av2[3]=lf[25]; ((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[26],t6); t8=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_a_i_list2(&a,2,t4,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} /* g2629 in k3894 in k3891 in k3885 in a3882 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in ... */ static void C_fcall f_3920(C_word t0,C_word t1,C_word 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_3920,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3924,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:1304: ##sys#strip-syntax */ t5=*((C_word*)lf[19]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* map-loop314 in k10611 in k10604 in k10595 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_10624(C_word t0,C_word t1,C_word 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_10624,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_mutate2(((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);}}} /* k10620 in k10611 in k10604 in k10595 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10622,2,av);} /* chicken-syntax.scm:214: ##sys#append */ t2=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10282 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_10284,2,av);} a=C_alloc(26); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10452,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[28]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10467,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_10541,a[2]=t6,a[3]=t11,a[4]=t7,a[5]=((C_word)li135),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_10541(t13,t9,((C_word*)t0)[5],((C_word*)t0)[4]);} /* k8675 in g1115 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8677,2,av);} /* chicken-syntax.scm:392: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8671 in g1115 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in ... */ static void C_ccall f_8673(C_word c,C_word *av){ C_word tmp; 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_8673,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* lookup in k8681 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in ... */ 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=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_8684,3,av);} t3=C_i_assq(t2,((C_word*)t0)[2]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_cdr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8681 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 in ... */ 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 t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ C_save_and_reclaim((void *)f_8683,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8684,a[2]=t2,a[3]=((C_word)li93),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8695,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_8895,a[2]=t6,a[3]=((C_word*)t0)[7],a[4]=t3,a[5]=((C_word)li98),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_8895(t8,t4,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* map-loop2623 in k3894 in k3891 in k3885 in a3882 in k3803 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in ... */ static void C_fcall f_3960(C_word t0,C_word t1,C_word 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_3960,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_3985,a[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:1303: g2629 */ t5=((C_word*)t0)[4]; f_3920(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);}}} /* k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in ... */ static void C_ccall f_9301(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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,4)))){ C_save_and_reclaim((void *)f_9301,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(((C_word*)t0)[2],lf[28]); t8=C_i_check_list_2(((C_word*)t0)[3],lf[28]); t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9318,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]=t2,a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[10],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|5,a[1]=(C_word)f_9858,a[2]=t5,a[3]=t11,a[4]=t6,a[5]=((C_word)li120),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_9858(t13,t9,((C_word*)t0)[2],((C_word*)t0)[3]);} /* k8208 in k8252 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8210,2,av);} /* chicken-syntax.scm:454: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[211]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a8211 in k8252 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 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=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_8212,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8216,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:459: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[211]; av2[3]=t2; av2[4]=lf[212]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11079 in a11076 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 t4; 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_11081,2,av);} a=C_alloc(57); t2=C_a_i_list(&a,1,lf[272]); 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[101],t4); t6=C_a_i_list(&a,1,lf[273]); t7=C_a_i_list(&a,2,lf[274],t6); t8=C_a_i_list(&a,3,lf[142],lf[143],t1); t9=C_a_i_list(&a,4,lf[101],t1,t7,t8); t10=C_a_i_list(&a,3,lf[144],t5,t9); t11=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_a_i_list(&a,3,lf[26],t2,t10); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} /* k11491 in k11517 in k11302 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ 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; C_word t3; C_word t4; C_word 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(51,c,4)))){ C_save_and_reclaim((void *)f_11493,2,av);} a=C_alloc(51); t2=C_a_i_list(&a,1,lf[127]); t3=C_a_i_list(&a,2,lf[20],((C_word*)t0)[2]); t4=C_a_i_list(&a,3,lf[119],lf[127],t3); t5=C_a_i_list(&a,3,lf[101],t2,t4); t6=C_a_i_list(&a,3,((C_word*)t0)[3],t1,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11327,a[2]=t7,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],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|7,a[1]=(C_word)f_11329,a[2]=((C_word*)t0)[2],a[3]=t10,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[7],a[7]=((C_word)li151),tmp=(C_word)a,a+=8,tmp)); t12=((C_word*)t10)[1]; f_11329(t12,t8,((C_word*)t0)[8],C_fix(1));} /* k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in ... */ 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 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,4)))){ C_save_and_reclaim((void *)f_9318,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_9329,a[2]=((C_word*)t0)[2],a[3]=((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); 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_9810,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li119),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_9810(t11,t7,((C_word*)t0)[9],((C_word*)t0)[9]);} /* k6071 in loop in k6127 in k5872 in k5863 in k5860 in k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in ... */ static void C_ccall f_6073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6073,2,av);} t2=((C_word*)t0)[2]; f_5918(t2,(C_truep(t1)?C_i_cadr(((C_word*)t0)[3]):C_SCHEME_FALSE));} /* k8214 in a8211 in k8252 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8216,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8219,a[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:460: r */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[176]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k8217 in k8214 in a8211 in k8252 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in ... */ static void C_ccall f_8219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_8219,2,av);} a=C_alloc(15); t2=t1; t3=C_i_caddr(((C_word*)t0)[2]); t4=C_a_i_list(&a,3,lf[101],C_SCHEME_END_OF_LIST,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8238,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:463: r */ t7=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[210]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k10604 in k10595 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 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_10606,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_10613,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_10674,a[2]=t11,a[3]=((C_word)li137),tmp=(C_word)a,a+=4,tmp)); t13=((C_word*)t11)[1]; f_10674(t13,t8,t9);} /* k10996 in k10973 in k10970 in k10959 in a10956 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(24,0,1)))){ C_save_and_reclaim_args((void *)trf_10998,2,t0,t1);} a=C_alloc(24); t2=C_a_i_cons(&a,2,lf[248],t1); t3=C_a_i_list(&a,4,lf[159],((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[30],((C_word*)t0)[5],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7207 in k7196 in loop in k7157 in k7154 in k7151 in k7148 in k7136 in a7133 in k7286 in k7290 in k7294 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in ... */ 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(9,c,1)))){ C_save_and_reclaim((void *)f_7209,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[30],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6283 in k6244 in k6241 in k6238 in parse-clause in k6232 in k6229 in k6226 in k6223 in k6220 in k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in ... */ static void C_ccall f_6285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6285,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; /* Re-use our own argvector */ 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-loop1917 in k6244 in k6241 in k6238 in parse-clause in k6232 in k6229 in k6226 in k6223 in k6220 in k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in ... */ static void C_fcall f_6287(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_6287,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:902: g1923 */ f_6271(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_mutate2(((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);}}} /* k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_9258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_9258,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|3,a[1]=(C_word)f_9262,a[2]=((C_word*)t0)[2],a[3]=((C_word)li110),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9273,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); 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_9988,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li123),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_9988(t12,t8,((C_word*)t0)[9]);} /* k11476 in k11343 in mapslots in k11491 in k11517 in k11302 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ static void C_ccall f_11478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11478,2,av);} /* chicken-syntax.scm:93: string->symbol */ t2=*((C_word*)lf[181]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 genvars in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in ... */ static void C_fcall f_6704(C_word t0,C_word t1,C_word 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_6704,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_6718,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_6730,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:784: gensym */ t5=*((C_word*)lf[32]+1);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k11472 in k11346 in k11343 in mapslots in k11491 in k11517 in k11302 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ 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,2)))){ C_save_and_reclaim((void *)f_11474,2,av);} /* chicken-syntax.scm:94: string->symbol */ t2=*((C_word*)lf[181]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9250 in g600 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_9252,2,av);} /* chicken-syntax.scm:287: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8631 in map*1055 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 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_8633,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8637,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:381: map* */ t6=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* g628 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_9262(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_9262,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9270,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:288: gensym */ t3=*((C_word*)lf[32]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[237]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_9234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_9234,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|8,a[1]=(C_word)f_9240,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); 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_10056,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li125),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_10056(t11,t7,((C_word*)t0)[8]);} /* k8635 in k8631 in map*1055 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8637,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 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 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_6733,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6736,a[2]=((C_word*)t0)[2],a[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=C_i_cdr(((C_word*)t0)[4]); t8=C_i_check_list_2(t7,lf[28]); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7050,a[2]=t2,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_7052,a[2]=t5,a[3]=t11,a[4]=t6,a[5]=((C_word)li56),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_7052(t13,t9,t7);} /* k6728 in loop in genvars in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6730,2,av);} /* chicken-syntax.scm:784: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 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(6,c,2)))){ C_save_and_reclaim((void *)f_6736,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6739,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:791: genvars */ t4=((C_word*)t0)[5]; f_6698(t4,t3,t2);} /* k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in ... */ static void C_ccall f_6739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6739,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6742,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-syntax.scm:792: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[168]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* g600 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_9244(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_9244,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9252,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:277: gensym */ t4=*((C_word*)lf[32]+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:278: gensym */ t4=*((C_word*)lf[32]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[236]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_9240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_9240,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|3,a[1]=(C_word)f_9244,a[2]=((C_word*)t0)[2],a[3]=((C_word)li109),tmp=(C_word)a,a+=4,tmp); t8=C_i_check_list_2(((C_word*)t0)[3],lf[28]); t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9258,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],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[3],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_10022,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li124),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_10022(t13,t9,((C_word*)t0)[3]);} /* k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in ... */ 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; 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_6742,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6745,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:793: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[167]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_6745,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6748,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:794: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[153]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_6748,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6751,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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); /* chicken-syntax.scm:795: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[156]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8514 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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(0,c,4)))){ C_save_and_reclaim((void *)f_8516,2,av);} /* chicken-syntax.scm:420: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a8517 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_8518(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8518,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8522,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:424: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[218]; av2[3]=t2; av2[4]=lf[220]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in ... */ static void C_ccall f_3787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3787,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3790,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_4989,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4991,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1129: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in ... */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_3781,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3784,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_5224,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5226,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1112: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_3784,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3787,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_5076,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5078,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1120: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6716 in loop in genvars in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in ... */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6718,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6722,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:784: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_6704(t5,t3,t4);} /* g656 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 in ... */ static void C_fcall f_9277(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_9277,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9285,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:289: gensym */ t3=*((C_word*)lf[32]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[176]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k8520 in a8517 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_8522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_8522,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_8530,a[2]=t6,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:427: r */ t8=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=lf[219]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k6720 in k6716 in loop in genvars in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in ... */ static void C_ccall f_6722(C_word c,C_word *av){ C_word tmp; 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_6722,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k10011 in map-loop622 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 in ... */ 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 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_10013,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9988(t6,((C_word*)t0)[5],t5);} /* fold in k8528 in k8520 in a8517 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 in ... */ static void C_fcall f_8535(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_8535,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[30],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_8560,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:432: fold */ t10=t6; t11=t8; t1=t10; t2=t11; goto loop;}} /* k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_9273,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|3,a[1]=(C_word)f_9277,a[2]=((C_word*)t0)[2],a[3]=((C_word)li111),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9288,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],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|6,a[1]=(C_word)f_9954,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li122),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_9954(t12,t8,((C_word*)t0)[10]);} /* k9268 in g628 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 in ... */ 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);} /* chicken-syntax.scm:288: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8528 in k8520 in a8517 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 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_8530,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_8535,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t4,a[5]=((C_word)li88),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_8535(t6,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 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 t3; C_word t4; C_word 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_9288,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(((C_word*)t0)[2],lf[28]); t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9301,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)[2],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_9906,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_9906(t12,t8,((C_word*)t0)[2],((C_word*)t0)[10]);} /* k6777 in k6765 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_6779,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,3,lf[30],((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[101],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5028 in k5025 in k5002 in k4999 in k4996 in k4993 in a4990 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ C_save_and_reclaim((void *)f_5030,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[16],((C_word*)t0)[3],((C_word*)t0)[4],t2); t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list(&a,2,lf[17],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9283 in g656 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9285,2,av);} /* chicken-syntax.scm:289: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5025 in k5002 in k4999 in k4996 in k4993 in a4990 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 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 t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,c,4)))){ C_save_and_reclaim((void *)f_5027,2,av);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5030,a[2]=((C_word*)t0)[2],a[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[44],t1); if(C_truep(t3)){ t4=C_a_i_list(&a,2,((C_word*)t0)[2],lf[44]); t5=C_a_i_list(&a,4,lf[16],((C_word*)t0)[3],((C_word*)t0)[4],t4); t6=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_list(&a,2,lf[17],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[83],t1); t5=C_a_i_list(&a,2,((C_word*)t0)[2],t4); t6=C_a_i_list(&a,4,lf[16],((C_word*)t0)[3],((C_word*)t0)[4],t5); t7=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_list(&a,2,lf[17],t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ if(C_truep(C_i_listp(t1))){ /* chicken-syntax.scm:1146: ##sys#validate-exports */ t4=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t1; av2[3]=lf[81]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=C_i_caddr(((C_word*)t0)[6]); /* chicken-syntax.scm:1148: syntax-error-hook */ t5=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=lf[81]; av2[3]=lf[85]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}}} /* k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in ... */ static void C_ccall f_6205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_6205,2,av);} a=C_alloc(13); t2=C_a_i_cons(&a,2,lf[114],t1); t3=C_a_i_list(&a,1,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5832,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_5834,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:923: ##sys#er-transformer */ t7=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in ... */ static void C_ccall f_3799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3799,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3802,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_4371,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4373,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1223: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_3796,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3799,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_4680,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4682,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1212: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in ... */ static void C_ccall f_3790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3790,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3793,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_4826,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4828,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1156: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* a6780 in k6765 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in ... */ 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=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(14,c,5)))){ C_save_and_reclaim((void *)f_6781,4,av);} a=C_alloc(14); t4=C_i_car(t2); t5=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6791,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)li53),tmp=(C_word)a,a+=14,tmp); /* chicken-syntax.scm:805: ##sys#decompose-lambda-list */ t6=*((C_word*)lf[163]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=t4; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in ... */ static void C_ccall f_3793(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3793,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3796,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_4718,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4720,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1192: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ static void C_ccall f_11231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11231,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11234,a[2]=((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:62: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[47]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ static void C_ccall f_11234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11234,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11237,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); /* chicken-syntax.scm:63: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[125]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6211 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in ... */ static void C_ccall f_6213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6213,2,av);} /* chicken-syntax.scm:882: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[130]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 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=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_6215,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6219,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:888: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[130]; av2[3]=t2; av2[4]=lf[139]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in ... */ static void C_ccall f_6219(C_word c,C_word *av){ C_word tmp; C_word t0=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_6219,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6222,a[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:889: r */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[138]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ static void C_ccall f_11240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_11240,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|4,a[1]=(C_word)f_11244,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li150),tmp=(C_word)a,a+=5,tmp); t8=C_i_check_list_2(((C_word*)t0)[4],lf[28]); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11304,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=t2,a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[4],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_11543,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li152),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_11543(t13,t9,((C_word*)t0)[4]);} /* g31 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ static void C_fcall f_11244(C_word 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_11244,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_11272,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=t2; t5=C_u_i_car(t4); /* chicken-syntax.scm:69: 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:75: syntax-error */ t3=*((C_word*)lf[45]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=lf[280]; av2[3]=lf[281]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}} /* k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_11237,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11240,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:64: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[114]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5086 in a5077 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5088,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_5101,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:1120: rename2231 */ t7=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[89]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ /* chicken-syntax.scm:1120: ##sys#syntax-rules-mismatch */ t2=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* g1923 in k6244 in k6241 in k6238 in parse-clause in k6232 in k6229 in k6226 in k6223 in k6220 in k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in ... */ static C_word C_fcall f_6271(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[116],t1); return(C_a_i_list(&a,3,((C_word*)t0)[2],t2,((C_word*)t0)[3]));} /* a5077 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 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=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_5078,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_5088,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_5117,a[2]=t7,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5173,a[2]=t7,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=C_i_car(t7); /* chicken-syntax.scm:1120: ##sys#list? */ t12=*((C_word*)lf[60]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_FALSE; f_5088(2,av2);}}} /* k11325 in k11491 in k11517 in k11302 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ static void C_ccall f_11327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11327,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[26],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* mapslots in k11491 in k11517 in k11302 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ static void C_fcall f_11329(C_word t0,C_word t1,C_word 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_11329,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_11345,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:92: symbol->string */ t11=*((C_word*)lf[183]+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:92: symbol->string */ t10=*((C_word*)lf[183]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}}} /* k5074 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5076,2,av);} /* chicken-syntax.scm:1118: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[88]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6238 in parse-clause in k6232 in k6229 in k6226 in k6223 in k6220 in k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in ... */ static void C_fcall f_6240(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_6240,2,t0,t1);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6243,a[2]=((C_word*)t0)[2],a[3]=((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_6243(t4,C_i_cadr(((C_word*)t0)[8]));} else{ t4=((C_word*)t0)[8]; t5=t3; f_6243(t5,C_u_i_car(t4));}} /* k6244 in k6241 in k6238 in parse-clause in k6232 in k6229 in k6226 in k6223 in k6220 in k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in ... */ static void C_fcall f_6246(C_word t0,C_word t1){ C_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_6246,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_6271,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word)li40),tmp=(C_word)a,a+=5,tmp); t8=C_i_check_list_2(((C_word*)t0)[2],lf[28]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6285,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_6287,a[2]=t7,a[3]=t5,a[4]=t11,a[5]=t6,a[6]=((C_word)li41),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_6287(t13,t9,((C_word*)t0)[2]);}} /* k6241 in k6238 in parse-clause in k6232 in k6229 in k6226 in k6223 in k6220 in k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in ... */ static void C_fcall f_6243(C_word t0,C_word t1){ C_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_6243,2,t0,t1);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6246,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_6246(t8,C_a_i_cons(&a,2,lf[30],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_6246(t7,C_a_i_cons(&a,2,lf[30],t6));}} /* k4880 in k4949 in k4833 in k4830 in a4827 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in ... */ static void C_ccall f_4882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(57,c,1)))){ C_save_and_reclaim((void *)f_4882,2,av);} a=C_alloc(57); t2=C_a_i_list(&a,2,lf[20],t1); t3=C_a_i_list(&a,2,lf[20],((C_word*)t0)[2]); t4=C_a_i_list(&a,5,lf[74],((C_word*)t0)[3],((C_word*)t0)[4],t2,t3); t5=C_a_i_list(&a,3,lf[75],lf[76],lf[77]); t6=C_a_i_list(&a,2,lf[78],t4); t7=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_list(&a,5,lf[79],((C_word*)t0)[6],C_SCHEME_TRUE,t5,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* g2309 in k4833 in k4830 in a4827 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in ... */ static void C_fcall f_4887(C_word t0,C_word 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_4887,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_4894,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); /* chicken-syntax.scm:1170: ##sys#validate-exports */ t7=*((C_word*)lf[73]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=lf[70]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k5486 in k5483 in loop in k5466 in k5463 in k5460 in k5457 in a5454 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_5488,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_5494,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_5531,a[2]=((C_word*)t0)[7],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1040: gensym */ t5=*((C_word*)lf[32]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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[101],((C_word*)t0)[6],t5); t7=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[30],((C_word*)t0)[5],t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_3702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3702,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3705,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_9190,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9192,a[2]=((C_word)li127),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:273: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_3705,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3708,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_9166,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9168,a[2]=((C_word)li108),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:329: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6793 in a6790 in a6780 in k6765 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in ... */ static void C_ccall f_6795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6795,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_6805,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_6805(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_6805(t4,C_a_i_list(&a,3,((C_word*)t0)[16],((C_word*)t0)[15],t2));}} /* k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_3708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3708,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3711,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_9138,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9140,a[2]=((C_word)li107),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:337: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* a6790 in a6780 in k6765 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in ... */ static void C_ccall f_6791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6791,5,av);} a=C_alloc(17); t5=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_6795,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:808: ##sys#check-syntax */ t7=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t5; av2[2]=lf[158]; av2[3]=t6; av2[4]=lf[162]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k5922 in k5916 in loop in k6127 in k5872 in k5863 in k5860 in k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in ... */ static void C_fcall f_5924(C_word t0,C_word t1){ C_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_5924,2,t0,t1);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5931,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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_5994,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:978: 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_5994(2,av2);}}} /* k9600 in k9596 in k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in ... */ static void C_ccall f_9602(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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_9602,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[30],t2); t4=C_a_i_list(&a,3,lf[101],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[101],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_9377,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_9503,a[2]=t11,a[3]=t15,a[4]=t12,a[5]=((C_word)li115),tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_9503(t17,t13,((C_word*)t0)[11],((C_word*)t0)[9],((C_word*)t0)[10]);} /* k4222 in map-loop2531 in k4162 in k4239 in k4057 in k4054 in loop in k4036 in k4033 in k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4224,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4199(t6,((C_word*)t0)[5],t5);} /* k5483 in loop in k5466 in k5463 in k5460 in k5457 in a5454 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5485,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5488,a[2]=((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:1038: reverse */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in ... */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_3775,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3778,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_5342,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5344,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1095: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_3772,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3775,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_5359,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5361,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1084: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in ... */ 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 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_3778,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3781,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_5321,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5323,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1102: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5916 in loop in k6127 in k5872 in k5863 in k5860 in k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in ... */ static void C_fcall f_5918(C_word t0,C_word t1){ C_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_5918,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[116],((C_word*)t0)[3]); t5=C_i_cadr(((C_word*)t0)[4]); t6=C_a_i_list(&a,2,lf[116],t5); t7=C_a_i_list(&a,4,lf[120],((C_word*)t0)[2],t4,t6); t8=C_a_i_list(&a,2,lf[121],t7); t9=C_a_i_list(&a,3,lf[122],((C_word*)t0)[2],((C_word*)t0)[5]); t10=C_a_i_list(&a,4,lf[101],t3,t8,t9); t11=t10; t12=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5924,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[116],((C_word*)t0)[3]); t15=C_a_i_list(&a,2,lf[116],t2); t16=C_a_i_list(&a,4,lf[120],((C_word*)t0)[2],t14,t15); t17=C_a_i_list(&a,2,lf[121],t16); t18=C_a_i_list(&a,4,lf[124],((C_word*)t0)[2],((C_word*)t0)[5],((C_word*)t0)[14]); t19=t12; f_5924(t19,C_a_i_list(&a,4,lf[101],t13,t17,t18));} else{ t13=t12; f_5924(t13,C_SCHEME_FALSE);}} /* k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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; 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_3721,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3724,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_8516,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8518,a[2]=((C_word)li89),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:422: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 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_3724,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3727,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_8258,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8260,a[2]=((C_word)li87),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:437: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_3727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3727,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3730,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_8254,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:456: ##sys#primitive-alias */ t4=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[210]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* map-loop680 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in ... */ static void C_fcall f_9906(C_word t0,C_word t1,C_word 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_9906,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_mutate2(((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);}}} /* k4892 in g2309 in k4833 in k4830 in a4827 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in ... */ 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 t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_4894,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4897,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_4906,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; f_4906(t6,t4);} 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]); t10=t5; f_4906(t10,C_i_symbolp(t9));} else{ t9=t5; f_4906(t9,C_SCHEME_FALSE);}} else{ t8=t5; f_4906(t8,C_SCHEME_FALSE);}} else{ t6=t5; f_4906(t6,C_SCHEME_FALSE);}}} /* map-loop594 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_10022(C_word t0,C_word t1,C_word 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_10022,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_10047,a[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:287: g600 */ t5=((C_word*)t0)[4]; f_9244(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);}}} /* k4895 in k4892 in g2309 in k4833 in k4830 in a4827 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in ... */ static void C_ccall f_4897(C_word c,C_word *av){ C_word tmp; 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_4897,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* map-loop650 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 in ... */ static void C_fcall f_9954(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_9954,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_9979,a[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:289: g656 */ t4=((C_word*)t0)[4]; f_9277(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);}}} /* k4398 in k4381 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 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 t4; C_word t5; C_word 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_4400,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[28]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4421,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_4467,a[2]=t5,a[3]=t11,a[4]=t6,a[5]=((C_word)li10),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_4467(t13,t9,t7);} /* k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_3711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3711,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3714,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_9117,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9119,a[2]=((C_word)li106),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:346: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_3714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3714,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3718,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_9047,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9049,a[2]=((C_word)li105),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:354: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_3718(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3718,2,av);} a=C_alloc(10); t2=C_mutate2((C_word*)lf[0]+1 /* (set! ##sys#define-values-definition ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3721,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_8570,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8572,a[2]=((C_word)li102),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:368: ##sys#er-transformer */ t6=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k9632 in k9616 in k9596 in k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in ... */ static void C_ccall f_9634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9634,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,3,lf[239],((C_word*)t0)[2],C_SCHEME_FALSE); t3=C_a_i_list(&a,1,t2); /* chicken-syntax.scm:280: ##sys#append */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3745,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3748,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_7296,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:737: ##sys#primitive-alias */ t4=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[173]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3742,2,av);} a=C_alloc(7); 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); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7385,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:709: ##sys#primitive-alias */ t4=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[173]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in ... */ 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(7,c,2)))){ C_save_and_reclaim((void *)f_3748,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3751,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_7124,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:772: ##sys#primitive-alias */ t4=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[153]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a10127 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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=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_10128,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10132,a[2]=t2,a[3]=t1,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:245: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[243]; av2[3]=t2; av2[4]=lf[253]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10124 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10126,2,av);} /* chicken-syntax.scm:241: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[243]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop851 in k9616 in k9596 in k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in ... */ static void C_fcall f_9644(C_word t0,C_word t1,C_word 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_9644,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_mutate2(((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);}}} /* k10045 in map-loop594 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10047,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10022(t6,((C_word*)t0)[5],t5);} /* map-loop2531 in k4162 in k4239 in k4057 in k4054 in loop in k4036 in k4033 in k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in ... */ static void C_fcall f_4199(C_word 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_4199,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_4224,a[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[18]+1); /* chicken-syntax.scm:1261: g2554 */ t6=*((C_word*)lf[18]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[34]; ((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);}}} /* k4195 in k4162 in k4239 in k4057 in k4054 in loop in k4036 in k4033 in k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in ... */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_4197,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:1255: ##sys#append */ t5=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9616 in k9596 in k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in ... */ static void C_ccall f_9618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_9618,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9622,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_9634,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_9644,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li116),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_9644(t12,t8,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k4419 in k4398 in k4381 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 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 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_4421,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_4431,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:1223: rename2392 */ t6=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[54]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k10130 in a10127 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_10132,2,av);} a=C_alloc(10); 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,lf[26],t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10141,a[2]=((C_word*)t0)[3],a[3]=t8,a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:248: r */ t10=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=lf[252]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* map-loop567 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_10056(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_10056,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_mutate2(((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);}}} /* k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in ... */ static void C_ccall f_3763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3763,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3766,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_5824,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:995: ##sys#primitive-alias */ t4=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[104]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in ... */ static void C_ccall f_3766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3766,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3769,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_5644,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1027: ##sys#primitive-alias */ t4=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[104]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in ... */ 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(7,c,2)))){ C_save_and_reclaim((void *)f_3760,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3763,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_6205,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:922: ##sys#primitive-alias */ t4=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[114]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10139 in k10130 in a10127 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_10141,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,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]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* chicken-syntax.scm:249: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[251]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in ... */ 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; 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_3769,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3772,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_5388,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5390,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1068: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k10145 in k10142 in k10139 in k10130 in a10127 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_10147,2,av);} a=C_alloc(26); 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=C_SCHEME_FALSE; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10150,a[2]=t6,a[3]=t8,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],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|10,a[1]=(C_word)f_10179,a[2]=t11,a[3]=t4,a[4]=t8,a[5]=t6,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,a[9]=((C_word*)t0)[6],a[10]=((C_word)li128),tmp=(C_word)a,a+=11,tmp)); t13=((C_word*)t11)[1]; f_10179(t13,t9,((C_word*)t0)[7]);} /* k10142 in k10139 in k10130 in a10127 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_10144,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10147,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:250: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[250]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k9620 in k9616 in k9596 in k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 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(0,c,3)))){ C_save_and_reclaim((void *)f_9622,2,av);} /* chicken-syntax.scm:280: ##sys#append */ t2=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5457 in a5454 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in ... */ static void C_ccall f_5459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5459,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5462,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:1031: r */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[109]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a4440 in k4429 in k4419 in k4398 in k4381 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in ... */ 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=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_4441,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4457,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:1223: rename2392 */ t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=lf[52]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3754,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3757,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_6613,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:862: ##sys#primitive-alias */ t4=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[140]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 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 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_3751,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3754,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_6617,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6619,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:841: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k10148 in k10145 in k10142 in k10139 in k10130 in a10127 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10150,2,av);} a=C_alloc(6); if(C_truep(C_i_memq(lf[13],*((C_word*)lf[14]+1)))){ t2=(C_truep(((C_word*)((C_word*)t0)[2])[1])?((C_word*)((C_word*)t0)[3])[1]:C_SCHEME_FALSE); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_a_i_list(&a,2,lf[244],((C_word*)t0)[5]):(C_truep(((C_word*)((C_word*)t0)[2])[1])?C_a_i_list(&a,2,lf[245],((C_word*)t0)[5]):(C_truep(((C_word*)((C_word*)t0)[3])[1])?((C_word*)t0)[5]:lf[246]))); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(((C_word*)((C_word*)t0)[6])[1])?((C_word*)t0)[5]:lf[247]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3757,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3760,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_6490,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:884: ##sys#primitive-alias */ t4=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[27]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4437 in k4429 in k4419 in k4398 in k4381 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_4439,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; /* Re-use our own argvector */ 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);}} /* k4162 in k4239 in k4057 in k4054 in loop in k4036 in k4033 in k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in ... */ static void C_ccall f_4164(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_4164,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[28]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4197,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_4199,a[2]=t6,a[3]=t11,a[4]=t7,a[5]=((C_word)li5),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_4199(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:1255: ##sys#append */ t7=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k5451 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in ... */ static void C_ccall f_5453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5453,2,av);} /* chicken-syntax.scm:1025: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[105]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5454 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 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=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_5455,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5459,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:1030: r */ t6=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[104]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k4429 in k4419 in k4398 in k4381 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in ... */ 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 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_4431,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4439,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_4441,a[2]=((C_word*)t0)[4],a[3]=((C_word)li9),tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1223: ##sys#map-n */ t5=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4158 in k4239 in k4057 in k4054 in loop in k4036 in k4033 in k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4160,2,av);} /* chicken-syntax.scm:1253: ##sys#put! */ t2=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[40]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6220 in k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6222,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6225,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:890: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[137]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7573 in recur in make-if-tree in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in ... */ static void C_ccall f_7575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7575,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_7567,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:658: r */ t5=((C_word*)t0)[11];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[154]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6223 in k6220 in k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in ... */ static void C_ccall f_6225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6225,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6228,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:891: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[136]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6226 in k6223 in k6220 in k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 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(8,c,2)))){ C_save_and_reclaim((void *)f_6228,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6231,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:892: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[129]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in ... */ static void C_ccall f_7578(C_word c,C_word *av){ C_word tmp; C_word t0=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_7578,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7581,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:665: ##sys#check-syntax */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[180]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[189]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5992 in k5922 in k5916 in loop in k6127 in k5872 in k5863 in k5860 in k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_5994,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_5931(t3,C_a_i_list(&a,3,((C_word*)t0)[6],((C_word*)t0)[7],t2));} else{ t2=((C_word*)t0)[5]; f_5931(t2,C_a_i_list(&a,3,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[3]));}} /* k4824 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4826,2,av);} /* chicken-syntax.scm:1154: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[70]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a4827 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 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=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_4828,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4832,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1158: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[70]; av2[3]=t2; av2[4]=lf[80]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k4295 in loop in k4036 in k4033 in k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 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 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_4297,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_4314,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:1283: ##compiler#check-and-validate-type */ t9=*((C_word*)lf[18]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t7; av2[2]=t8; av2[3]=lf[34]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ /* chicken-syntax.scm:1287: syntax-error */ t2=*((C_word*)lf[45]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[7]; av2[2]=lf[34]; av2[3]=lf[46]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k6229 in k6226 in k6223 in k6220 in k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in ... */ static void C_ccall f_6231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6231,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6234,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:893: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[27]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6232 in k6229 in k6226 in k6223 in k6220 in k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in ... */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_6234,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6236,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)li42),tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6366,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:905: r */ t5=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[135]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* parse-clause in k6232 in k6229 in k6226 in k6223 in k6220 in k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in ... */ static void C_ccall f_6236(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6236,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6240,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_6240(t6,C_u_i_car(t5));} else{ t5=t3; f_6240(t5,C_SCHEME_FALSE);}} /* k5466 in k5463 in k5460 in k5457 in a5454 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in ... */ static void C_ccall f_5468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_5468,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_5475,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)li31),tmp=(C_word)a,a+=10,tmp)); t7=((C_word*)t5)[1]; f_5475(t7,((C_word*)t0)[8],t3,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} /* map-loop622 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_9988(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_9988,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_10013,a[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:288: g628 */ t4=((C_word*)t0)[4]; f_9262(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);}}} /* k5463 in k5460 in k5457 in a5454 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in ... */ 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 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_5465,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5468,a[2]=((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:1034: syntax-error */ t5=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[105]; av2[3]=lf[107]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_5468(2,av2);}}} /* k5460 in k5457 in a5454 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in ... */ static void C_ccall f_5462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5462,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5465,a[2]=((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:1032: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[108]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5971 in k5929 in k5922 in k5916 in loop in k6127 in k5872 in k5863 in k5860 in k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_5973,2,av);} a=C_alloc(18); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_5939(t2,C_SCHEME_END_OF_LIST);} else{ t2=C_a_i_list(&a,2,lf[123],lf[123]); t3=C_a_i_list(&a,3,t2,((C_word*)t0)[3],((C_word*)t0)[4]); t4=((C_word*)t0)[2]; f_5939(t4,C_a_i_list(&a,1,t3));}} /* k5492 in k5486 in k5483 in loop in k5466 in k5463 in k5460 in k5457 in a5454 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in ... */ 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(7,c,3)))){ C_save_and_reclaim((void *)f_5494,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,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]=t2,tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:1040: ##sys#append */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7565 in k7573 in recur in make-if-tree in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in ... */ static void C_ccall f_7567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7567,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_7559,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:659: r */ t6=((C_word*)t0)[11];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[155]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_6751,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6754,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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); /* chicken-syntax.scm:796: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[154]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_6754,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,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]=((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:797: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[155]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_6757,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6760,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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); /* chicken-syntax.scm:798: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[157]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_3730,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3733,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_8106,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8108,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:467: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 in ... */ 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 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_3733,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3736,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_8009,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8011,a[2]=((C_word)li77),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:488: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 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 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_3736,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3739,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_7841,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7843,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:508: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in ... */ 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(7,c,2)))){ C_save_and_reclaim((void *)f_3739,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3742,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_7837,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:621: ##sys#primitive-alias */ t4=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[154]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in k3734 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(14,c,3)))){ C_save_and_reclaim((void *)f_6760,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6767,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:800: append */ t4=*((C_word*)lf[166]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k6765 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in k3746 in k3743 in k3740 in k3737 in ... */ 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 t4; 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_6767,2,av);} a=C_alloc(32); 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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6779,a[2]=t6,a[3]=((C_word*)t0)[5],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6781,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)[3],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[12],a[11]=((C_word)li54),tmp=(C_word)a,a+=12,tmp); t9=((C_word*)t0)[13]; t10=C_u_i_cdr(t9); /* chicken-syntax.scm:803: fold-right */ t11=*((C_word*)lf[164]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t11; av2[1]=t7; av2[2]=t8; av2[3]=lf[165]; av2[4]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} /* map-loop815 in k9596 in k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in ... */ static void C_fcall f_9692(C_word t0,C_word t1,C_word 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_9692,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[239],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_mutate2(((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);}}} /* loop in k5466 in k5463 in k5460 in k5457 in a5454 in k5642 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in ... */ static void C_fcall f_5475(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_5475,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_5485,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:1037: reverse */ t8=*((C_word*)lf[43]+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_5554,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:1047: 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);}}} /* k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in ... */ static void C_ccall f_7581(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_7581,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[28]); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7590,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_7789,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li70),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_7789(t11,t7,((C_word*)t0)[2]);} /* k4098 in k4063 in k4239 in k4057 in k4054 in loop in k4036 in k4033 in k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,1)))){ C_save_and_reclaim((void *)f_4100,2,av);} a=C_alloc(27); t2=C_a_i_list(&a,3,lf[30],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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[26],((C_word*)t0)[6],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop2568 in k4063 in k4239 in k4057 in k4054 in loop in k4036 in k4033 in k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in ... */ static void C_fcall f_4102(C_word t0,C_word t1,C_word 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_4102,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[38],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_mutate2(((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);}}} /* k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_9219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9219,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9222,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-syntax.scm:283: r */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[241]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7557 in k7565 in k7573 in recur in make-if-tree in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in ... */ static void C_ccall f_7559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_7559,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_7535,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:660: recur */ t12=((C_word*)((C_word*)t0)[11])[1]; f_7495(t12,t6,t8,t10,t11);} /* k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_9211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_9211,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_9219,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:282: r */ t8=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=lf[52]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k8355 in map-loop1351 in k8310 in k8304 in k8282 in k8276 in k8262 in a8259 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in ... */ 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_8357,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((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_8328(t7,((C_word*)t0)[6],t5,t6);} /* k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_9222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9222,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9225,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:284: r */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[240]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_9225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_9225,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[28]); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9234,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_10090,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li126),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_10090(t12,t8,((C_word*)t0)[2]);} /* k8324 in k8310 in k8304 in k8282 in k8276 in k8262 in a8259 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in ... */ static void C_ccall f_8326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8326,2,av);} /* chicken-syntax.scm:440: ##sys#append */ t2=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop1351 in k8310 in k8304 in k8282 in k8276 in k8262 in a8259 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in ... */ static void C_fcall f_8328(C_word t0,C_word t1,C_word 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_8328,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_8357,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:451: g1357 */ 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);}}} /* map-loop1303 in k8304 in k8282 in k8276 in k8262 in a8259 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in ... */ static void C_fcall f_8376(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_8376,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[216]); 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_mutate2(((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);}}} /* k7597 in prefix-sym in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7599,2,av);} /* chicken-syntax.scm:668: string->symbol */ t2=*((C_word*)lf[181]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* prefix-sym in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in ... */ static void C_fcall f_7591(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_7591,3,t1,t2,t3);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7599,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7603,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:668: symbol->string */ t6=*((C_word*)lf[183]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in ... */ static void C_ccall f_7590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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_7590,2,av);} a=C_alloc(32); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7591,a[2]=((C_word)li63),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_7607,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li64),tmp=(C_word)a,a+=5,tmp); t9=C_i_check_list_2(t2,lf[28]); t10=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7621,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_7755,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,a[6]=((C_word)li69),tmp=(C_word)a,a+=7,tmp)); t14=((C_word*)t12)[1]; f_7755(t14,t10,t2);} /* k4833 in k4830 in a4827 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(31,c,3)))){ C_save_and_reclaim((void *)f_4835,2,av);} a=C_alloc(31); 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=C_a_i_list(&a,2,lf[20],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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4887,a[2]=t4,a[3]=((C_word)li19),tmp=(C_word)a,a+=4,tmp); t18=C_i_check_list_2(t5,lf[28]); t19=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4951,a[2]=t10,a[3]=t12,a[4]=((C_word*)t0)[2],a[5]=t4,a[6]=t7,tmp=(C_word)a,a+=7,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|6,a[1]=(C_word)f_4953,a[2]=t15,a[3]=t21,a[4]=t17,a[5]=t16,a[6]=((C_word)li20),tmp=(C_word)a,a+=7,tmp)); t23=((C_word*)t21)[1]; f_4953(t23,t19,t5);} /* k4830 in a4827 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 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,2)))){ 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); /* chicken-syntax.scm:1159: ##sys#strip-syntax */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9977 in map-loop650 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in ... */ static void C_ccall f_9979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9979,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9954(t6,((C_word*)t0)[5],t5);} /* k5002 in k4999 in k4996 in k4993 in a4990 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in ... */ static void C_ccall f_5004(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_5004,2,av);} a=C_alloc(19); 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[82]); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5027,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t7=C_i_caddr(((C_word*)t0)[5]); /* chicken-syntax.scm:1142: ##sys#strip-syntax */ t8=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k4999 in k4996 in k4993 in a4990 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in ... */ static void C_ccall f_5001(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5001,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5004,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_eqp(lf[44],((C_word*)t0)[2]); if(C_truep(t4)){ /* chicken-syntax.scm:1135: syntax-error-hook */ t5=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=lf[81]; av2[3]=lf[86]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_5004(2,av2);}}} /* k5941 in k5937 in k5929 in k5922 in k5916 in loop in k6127 in k5872 in k5863 in k5860 in k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in ... */ static void C_ccall f_5943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5943,2,av);} /* chicken-syntax.scm:952: ##sys#append */ t2=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5929 in k5922 in k5916 in loop in k6127 in k5872 in k5863 in k5860 in k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in ... */ static void C_fcall f_5931(C_word t0,C_word 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_5931,2,t0,t1);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5935,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_5939,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_5973,a[2]=t4,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); t6=C_i_cadr(((C_word*)t0)[9]); /* chicken-syntax.scm:983: 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_5939(t6,C_a_i_list(&a,1,t5));}} else{ t5=t4; f_5939(t5,C_SCHEME_END_OF_LIST);}} /* k5933 in k5929 in k5922 in k5916 in loop in k6127 in k5872 in k5863 in k5860 in k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_5935,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k5937 in k5929 in k5922 in k5916 in loop in k6127 in k5872 in k5863 in k5860 in k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in ... */ static void C_fcall f_5939(C_word t0,C_word 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(4,0,3)))){ C_save_and_reclaim_args((void *)trf_5939,2,t0,t1);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5943,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_fixnum_increase(((C_word*)t0)[4]); /* chicken-syntax.scm:988: loop */ t7=((C_word*)((C_word*)t0)[5])[1]; f_5899(t7,t3,t5,t6);} /* k7903 in k7897 in expand in k7859 in k7856 in k7853 in k7845 in a7842 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 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 t4; C_word t5; C_word 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_7905,2,av);} a=C_alloc(25); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7908,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:528: expand */ t3=((C_word*)((C_word*)t0)[4])[1]; f_7874(t3,t2,((C_word*)t0)[5],C_SCHEME_TRUE);} else{ if(C_truep(((C_word*)t0)[6])){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7919,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_7926,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:533: ##sys#strip-syntax */ t4=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ 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_7948,a[2]=((C_word*)t0)[7],a[3]=((C_word)li72),tmp=(C_word)a,a+=4,tmp); t7=C_u_i_car(((C_word*)t0)[2]); t8=C_i_check_list_2(t7,lf[28]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7959,a[2]=((C_word*)t0)[8],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); 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_7961,a[2]=t6,a[3]=t4,a[4]=t11,a[5]=t5,a[6]=((C_word)li73),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_7961(t13,t9,t7);}}} /* k7906 in k7903 in k7897 in expand in k7859 in k7856 in k7853 in k7845 in a7842 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7908,2,av);} a=C_alloc(3); t2=C_u_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[26],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop2465 in k4398 in k4381 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in ... */ static void C_fcall f_4467(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_4467,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_mutate2(((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);}}} /* k7917 in k7903 in k7897 in expand in k7859 in k7856 in k7853 in k7845 in a7842 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in ... */ static void C_ccall f_7919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_7919,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7922,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:534: expand */ t3=((C_word*)((C_word*)t0)[3])[1]; f_7874(t3,t2,((C_word*)t0)[4],C_SCHEME_TRUE);} /* k4239 in k4057 in k4054 in loop in k4036 in k4033 in k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 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 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_4241,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_4065,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_4160,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_4164,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:1256: ##sys#get */ t7=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[9]; av2[3]=lf[40]; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* loop2 in k4057 in k4054 in loop in k4036 in k4033 in k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in ... */ static void C_fcall f_4243(C_word t0,C_word t1,C_word 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_4243,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_4261,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:1252: loop2 */ t10=t6; t11=t7; t12=t8; t1=t10; t2=t11; t3=t12; goto loop;}} /* k7897 in expand in k7859 in k7856 in k7853 in k7845 in a7842 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in ... */ static void C_ccall f_7899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7899,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7905,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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]); /* chicken-syntax.scm:527: c */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[10]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k4455 in a4440 in k4429 in k4419 in k4398 in k4381 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in ... */ 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; 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_4457,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; /* Re-use our own argvector */ 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);}} /* k7924 in k7903 in k7897 in expand in k7859 in k7856 in k7853 in k7845 in a7842 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7926,2,av);} /* chicken-syntax.scm:531: ##sys#notice */ t2=*((C_word*)lf[195]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[196]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7920 in k7917 in k7903 in k7897 in expand in k7859 in k7856 in k7853 in k7845 in a7842 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in ... */ static void C_ccall f_7922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7922,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[194]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4259 in loop2 in k4057 in k4054 in loop in k4036 in k4033 in k4030 in k4027 in k4023 in k4014 in a4005 in k3800 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4261,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* expand in k7859 in k7856 in k7853 in k7845 in a7842 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in ... */ static void C_fcall f_7874(C_word t0,C_word t1,C_word 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_7874,4,t0,t1,t2,t3);} a=C_alloc(11); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=lf[193]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(0)); t5=t4; t6=C_slot(t2,C_fix(1)); t7=t6; t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7899,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t7,a[6]=t3,a[7]=((C_word*)t0)[3],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); /* chicken-syntax.scm:526: ##sys#check-syntax */ t9=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t8; av2[2]=lf[192]; av2[3]=t5; av2[4]=lf[198]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ /* chicken-syntax.scm:522: syntax-error */ t4=*((C_word*)lf[45]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=lf[192]; av2[3]=lf[199]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}} /* k7870 in k7859 in k7856 in k7853 in k7845 in a7842 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 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(9,c,1)))){ C_save_and_reclaim((void *)f_7872,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[30],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7939 in k7957 in k7903 in k7897 in expand in k7859 in k7856 in k7853 in k7845 in a7842 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in ... */ 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(12,c,1)))){ C_save_and_reclaim((void *)f_7941,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,4,lf[159],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* g1486 in k7903 in k7897 in expand in k7859 in k7856 in k7853 in k7845 in a7842 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in ... */ static C_word C_fcall f_7948(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,3,lf[197],((C_word*)t0)[2],t1));} /* k4904 in k4892 in g2309 in k4833 in k4830 in a4827 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in ... */ static void C_fcall f_4906(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,4)))){ C_save_and_reclaim_args((void *)trf_4906,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_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* chicken-syntax.scm:1176: ##sys#syntax-error-hook */ t2=*((C_word*)lf[71]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[72]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* a7842 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in ... */ static void C_ccall f_7843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7843,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7847,a[2]=t2,a[3]=t1,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:510: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[192]; av2[3]=t2; av2[4]=lf[201]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k7839 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7841,2,av);} /* chicken-syntax.scm:506: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7845 in a7842 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in ... */ static void C_ccall f_7847(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_7847,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_7855,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); /* chicken-syntax.scm:513: r */ t8=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=lf[176]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* fold in k8708 in k8693 in k8681 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in ... */ static void C_fcall f_8712(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_8712,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_8731,a[2]=((C_word*)t0)[2],a[3]=((C_word)li94),tmp=(C_word)a,a+=4,tmp); t10=C_i_check_list_2(((C_word*)t0)[3],lf[28]); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8745,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_8747,a[2]=t7,a[3]=t13,a[4]=t9,a[5]=t8,a[6]=((C_word)li95),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_8747(t15,t11,((C_word*)t0)[3]);} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8785,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_8785(t8,C_i_nullp(t7));} else{ t7=t5; f_8785(t7,C_SCHEME_FALSE);}}} /* k8708 in k8693 in k8681 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in ... */ static void C_ccall f_8710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8710,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_8712,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)li96),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_8712(t5,((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);} /* k7853 in k7845 in a7842 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7855,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7858,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:514: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[27]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7856 in k7853 in k7845 in a7842 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in ... */ static void C_ccall f_7858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7858,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7861,a[2]=((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:515: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[200]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in ... */ static void C_ccall f_7833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_7833,2,av);} a=C_alloc(16); t2=C_a_i_cons(&a,2,lf[155],t1); t3=C_a_i_list(&a,2,((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7393,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7395,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:623: ##sys#er-transformer */ t7=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k8104 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8106,2,av);} /* chicken-syntax.scm:465: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a8107 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 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=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_8108,5,av);} a=C_alloc(8); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8110,a[2]=t4,a[3]=t3,a[4]=((C_word)li78),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8198,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t7=C_i_cdr(t2); /* chicken-syntax.scm:484: quotify-proc */ t8=t5; f_8110(t8,t6,t7,lf[205]);} /* k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in ... */ 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; 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_7837,2,av);} a=C_alloc(7); t2=C_a_i_cons(&a,2,lf[154],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7833,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:622: ##sys#primitive-alias */ t5=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[155]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11375 in k11349 in k11346 in k11343 in mapslots in k11491 in k11517 in k11302 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ 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 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_11377,2,av);} a=C_alloc(7); t2=C_a_i_cons(&a,2,lf[26],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11365,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:118: mapslots */ t7=((C_word*)((C_word*)t0)[5])[1]; f_11329(t7,t4,t5,t6);} /* map-loop257 in k10595 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_10694(C_word t0,C_word t1,C_word 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_10694,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_mutate2(((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);}}} /* k11302 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ static void C_ccall f_11304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_11304,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11519,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_11539,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ t5=*((C_word*)lf[286]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[288]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k8112 in quotify-proc1395 in a8107 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in ... */ 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 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_8114,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_8123,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_8123(t11,C_a_i_cons(&a,2,lf[101],t10));} else{ t7=t6; f_8123(t7,C_i_cadr(((C_word*)t0)[2]));}} /* quotify-proc1395 in a8107 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in ... */ static void C_fcall f_8110(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_8110,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8114,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:471: ##sys#check-syntax */ t5=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=t2; av2[4]=lf[208]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k10686 in loop in k10604 in k10595 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10688(C_word c,C_word *av){ C_word tmp; 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_10688,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,C_SCHEME_FALSE,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11349 in k11346 in k11343 in mapslots in k11491 in k11517 in k11302 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ static void C_ccall f_11351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_11351,2,av);} a=C_alloc(79); t2=t1; t3=C_a_i_list(&a,2,lf[127],lf[282]); t4=C_a_i_list(&a,2,lf[116],((C_word*)t0)[2]); t5=C_a_i_list(&a,3,lf[120],lf[127],t4); t6=C_a_i_list(&a,2,lf[121],t5); t7=C_a_i_list(&a,4,lf[124],lf[127],((C_word*)t0)[3],lf[282]); t8=C_a_i_list(&a,4,lf[101],t3,t6,t7); t9=t8; t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11377,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_11381,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_11381(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_11381(t13,C_a_i_list(&a,1,t12));}} /* k8121 in k8112 in quotify-proc1395 in a8107 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in ... */ static void C_fcall f_8123(C_word t0,C_word t1){ C_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_8123,2,t0,t1);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8126,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_8135,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_8135(t7,t5);} else{ t7=C_i_car(t2); t8=C_eqp(lf[101],t7); if(C_truep(t8)){ t9=t6; f_8135(t9,C_SCHEME_FALSE);} else{ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8151,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8155,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t9,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:479: r */ t11=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=lf[207]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}}} /* k8124 in k8121 in k8112 in quotify-proc1395 in a8107 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_8126,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k8831 in k8783 in fold in k8708 in k8693 in k8681 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_8833,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,3,lf[101],((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[144],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8133 in k8121 in k8112 in quotify-proc1395 in a8107 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in ... */ static void C_fcall f_8135(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_8135,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ /* chicken-syntax.scm:480: syntax-error */ t2=*((C_word*)lf[45]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[205]; av2[3]=lf[206]; 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);}}} /* k11363 in k11375 in k11349 in k11346 in k11343 in mapslots in k11491 in k11517 in k11302 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11365,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k11221 in a11218 in k3673 in k3670 in k3666 */ static void C_ccall f_11223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_11223,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_11231,a[2]=((C_word*)t0)[3],a[3]=t6,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:61: symbol->string */ t8=*((C_word*)lf[183]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* a11218 in k3673 in k3670 in k3666 */ static void C_ccall f_11219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11219,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11223,a[2]=t2,a[3]=t4,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:58: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[280]; av2[3]=t2; av2[4]=lf[289]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11215 in k3673 in k3670 in k3666 */ 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,4)))){ C_save_and_reclaim((void *)f_11217,2,av);} /* chicken-syntax.scm:54: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[280]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop278 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_10742(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_10742,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_mutate2(((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);}}} /* k8794 in k8783 in fold in k8708 in k8693 in k8681 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_8796,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[30],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8153 in k8121 in k8112 in quotify-proc1395 in a8107 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in ... */ 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(0,c,3)))){ C_save_and_reclaim((void *)f_8155,2,av);} t2=C_u_i_car(((C_word*)t0)[2]); /* chicken-syntax.scm:479: c */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11346 in k11343 in mapslots in k11491 in k11517 in k11302 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ static void C_ccall f_11348(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_11348,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11351,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((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_11474,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:94: string-append */ t5=*((C_word*)lf[182]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[10]; av2[3]=lf[283]; av2[4]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k11343 in mapslots in k11491 in k11517 in k11302 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ 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 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_11345,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11348,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((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_11478,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:93: string-append */ t5=*((C_word*)lf[182]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[10]; av2[3]=lf[284]; av2[4]=t2; av2[5]=lf[285]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k8149 in k8121 in k8112 in quotify-proc1395 in a8107 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8151,2,av);} t2=((C_word*)t0)[2]; f_8135(t2,C_i_not(t1));} /* map-loop420 in k10450 in k10282 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_10394(C_word t0,C_word t1,C_word 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_10394,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[239],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_mutate2(((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);}}} /* k7533 in k7557 in k7565 in k7573 in recur in make-if-tree in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in ... */ static void C_ccall f_7535(C_word c,C_word *av){ C_word tmp; C_word t0=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_7535,2,av);} a=C_alloc(21); t2=C_a_i_list(&a,3,lf[30],((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,4,lf[159],((C_word*)t0)[4],((C_word*)t0)[5],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7507 in recur in make-if-tree in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7509,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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-loop227 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; 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); /* chicken-syntax.scm:218: g233 */ t4=((C_word*)t0)[4]; f_10266(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);}}} /* loop in k8681 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in ... */ static void C_fcall f_8895(C_word 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_8895,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ /* chicken-syntax.scm:396: reverse */ t4=*((C_word*)lf[43]+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_pairp(t4))){ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8933,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:400: map* */ t6=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8926,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:399: lookup */ t6=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; f_8684(3,av2);}}}} /* k11270 in g31 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ static void C_ccall f_11272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_11272,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; /* Re-use our own argvector */ 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:75: syntax-error */ t8=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=((C_word*)t0)[3]; av2[2]=lf[280]; av2[3]=lf[281]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} else{ /* chicken-syntax.scm:75: syntax-error */ t5=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=lf[280]; av2[3]=lf[281]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} else{ /* chicken-syntax.scm:75: syntax-error */ t4=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[280]; av2[3]=lf[281]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} else{ /* chicken-syntax.scm:75: syntax-error */ t2=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[280]; av2[3]=lf[281]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k8196 in a8107 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8198,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[209],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11379 in k11349 in k11346 in k11343 in mapslots in k11491 in k11517 in k11302 in k11238 in k11235 in k11232 in k11229 in k11221 in a11218 in k3673 in k3670 in k3666 */ static void C_fcall f_11381(C_word t0,C_word t1){ C_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_11381,2,t0,t1);} a=C_alloc(66); if(C_truep(((C_word*)t0)[2])){ t2=C_a_i_list(&a,1,lf[127]); t3=C_a_i_list(&a,2,lf[116],((C_word*)t0)[3]); t4=C_a_i_list(&a,3,lf[120],lf[127],t3); t5=C_a_i_list(&a,2,lf[121],t4); t6=C_a_i_list(&a,3,lf[122],lf[127],((C_word*)t0)[4]); t7=C_a_i_list(&a,4,lf[101],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:43: ##sys#append */ t11=*((C_word*)lf[41]+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[127]); t3=C_a_i_list(&a,2,lf[116],((C_word*)t0)[3]); t4=C_a_i_list(&a,3,lf[120],lf[127],t3); t5=C_a_i_list(&a,2,lf[121],t4); t6=C_a_i_list(&a,3,lf[122],lf[127],((C_word*)t0)[4]); t7=C_a_i_list(&a,4,lf[101],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:43: ##sys#append */ t10=*((C_word*)lf[41]+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);}}} /* k10595 in k10275 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 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_10597,2,av);} a=C_alloc(13); t2=C_i_check_list_2(((C_word*)t0)[2],lf[28]); t3=C_i_check_list_2(t1,lf[28]); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10606,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_10694,a[2]=((C_word*)t0)[6],a[3]=t6,a[4]=((C_word*)t0)[7],a[5]=((C_word)li138),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_10694(t8,t4,((C_word*)t0)[2],t1);} /* k8770 in map-loop1160 in fold in k8708 in k8693 in k8681 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in ... */ static void C_ccall f_8772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8772,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8747(t6,((C_word*)t0)[5],t5);} /* k7859 in k7856 in k7853 in k7845 in a7842 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in ... */ 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 t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ C_save_and_reclaim((void *)f_7861,2,av);} a=C_alloc(23); 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_7872,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|7,a[1]=(C_word)f_7874,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li74),tmp=(C_word)a,a+=8,tmp)); t10=((C_word*)t8)[1]; f_7874(t10,t6,((C_word*)t0)[7],C_SCHEME_FALSE);} /* k8783 in fold in k8708 in k8693 in k8681 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in ... */ static void C_fcall f_8785(C_word t0,C_word t1){ C_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_8785,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_8796,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:412: fold */ t13=((C_word*)((C_word*)t0)[6])[1]; f_8712(t13,t7,t8,t10,t12);} else{ t2=C_i_car(((C_word*)t0)[3]); t3=C_a_i_list(&a,3,lf[101],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_8833,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:418: fold */ t13=((C_word*)((C_word*)t0)[6])[1]; f_8712(t13,t7,t8,t10,t12);}} /* k8314 in k8310 in k8304 in k8282 in k8276 in k8262 in a8259 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in ... */ static void C_ccall f_8316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8316,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[30],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8310 in k8304 in k8282 in k8276 in k8262 in a8259 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 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 t3; C_word t4; C_word t5; C_word t6; C_word 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_8312,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8316,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[215]+1); t9=C_i_check_list_2(((C_word*)t0)[3],lf[28]); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8326,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_8328,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,a[6]=((C_word)li81),tmp=(C_word)a,a+=7,tmp)); t14=((C_word*)t12)[1]; f_8328(t14,t10,((C_word*)t0)[5],((C_word*)t0)[3]);} /* k7957 in k7903 in k7897 in expand in k7859 in k7856 in k7853 in k7845 in a7842 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in ... */ 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 t3; C_word 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_7959,2,av);} a=C_alloc(11); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=C_u_i_cdr(((C_word*)t0)[3]); t5=C_a_i_cons(&a,2,lf[26],t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7941,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:541: expand */ t8=((C_word*)((C_word*)t0)[5])[1]; f_7874(t8,t7,((C_word*)t0)[6],C_SCHEME_FALSE);} /* map-loop1480 in k7903 in k7897 in expand in k7859 in k7856 in k7853 in k7845 in a7842 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in ... */ static void C_fcall f_7961(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_7961,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* chicken-syntax.scm:538: g1486 */ f_7948(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_mutate2(((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);}}} /* k8304 in k8282 in k8276 in k8262 in a8259 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 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 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_8306,2,av);} a=C_alloc(14); t2=C_i_check_list_2(t1,lf[28]); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8312,a[2]=((C_word*)t0)[2],a[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_8376,a[2]=((C_word*)t0)[6],a[3]=t5,a[4]=((C_word*)t0)[7],a[5]=((C_word)li82),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_8376(t7,t3,t1);} /* map-loop540 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_10090(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_10090,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_mutate2(((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);}}} /* k6396 in k6389 in k6364 in k6232 in k6229 in k6226 in k6223 in k6220 in k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in ... */ static void C_ccall f_6398(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_6398,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6402,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:909: ##sys#append */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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[133],((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:909: ##sys#append */ t7=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k6389 in k6364 in k6232 in k6229 in k6226 in k6223 in k6220 in k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_6391,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6398,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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:910: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[134]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6496 in k6607 in k6611 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6498,2,av);} /* chicken-syntax.scm:860: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[135]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in ... */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6490,2,av);} a=C_alloc(7); t2=C_a_i_cons(&a,2,lf[27],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6486,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:885: ##sys#primitive-alias */ t5=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[129]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* a6810 in k6803 in k6793 in a6790 in a6780 in k6765 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in ... */ static void C_ccall f_6811(C_word c,C_word *av){ 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_6811,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6819,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:816: take */ t3=*((C_word*)lf[161]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6817 in a6810 in k6803 in k6793 in a6790 in a6780 in k6765 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6819,2,av);} /* chicken-syntax.scm:816: split-at! */ t2=*((C_word*)lf[160]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9121 in a9118 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_9123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9123,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); t3=C_i_caddr(((C_word*)t0)[2]); /* chicken-syntax.scm:349: ##sys#expand-multiple-values-assignment */ t4=*((C_word*)lf[215]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop1195 in k8693 in k8681 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in ... */ static void C_fcall f_8861(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_8861,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_mutate2(((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);}}} /* a6820 in k6803 in k6793 in a6790 in a6780 in k6765 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in ... */ static void C_ccall f_6821(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_6821,4,av);} a=C_alloc(16); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6825,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_6897,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)li51),tmp=(C_word)a,a+=9,tmp)); t8=((C_word*)t6)[1]; f_6897(t8,t4,t3,((C_word*)t0)[8]);} /* k6823 in a6820 in k6803 in k6793 in a6790 in a6780 in k6765 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 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 t5; C_word t6; C_word 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_6825,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; /* Re-use our own argvector */ 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[28]); t9=C_i_check_list_2(((C_word*)t0)[4],lf[28]); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6847,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_6849,a[2]=t5,a[3]=t12,a[4]=t6,a[5]=((C_word)li50),tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_6849(t14,t10,t7,((C_word*)t0)[4]);}} /* k9170 in a9167 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_9172(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_9172,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[26],t5); t7=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[159],t2,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k8737 in g1166 in fold in k8708 in k8693 in k8681 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_8739,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* g1166 in fold in k8708 in k8693 in k8681 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in ... */ static void C_fcall f_8731(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_8731,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8739,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:407: lookup */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; f_8684(3,av2);}} /* k9142 in a9139 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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; C_word t3; C_word 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_9144,2,av);} a=C_alloc(18); t2=C_i_cadr(((C_word*)t0)[2]); t3=C_a_i_list(&a,1,lf[231]); 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[26],t6); t8=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_a_i_list(&a,4,lf[159],t2,t3,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* a9139 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_9140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9140,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9144,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:339: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[230]; av2[3]=t2; av2[4]=lf[232]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k8743 in fold in k8708 in k8693 in k8681 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_8745,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[30],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop1160 in fold in k8708 in k8693 in k8681 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in ... */ static void C_fcall f_8747(C_word t0,C_word t1,C_word 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_8747,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_8772,a[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:407: g1166 */ t5=((C_word*)t0)[4]; f_8731(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);}}} /* k6807 in k6803 in k6793 in a6790 in a6780 in k6765 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in ... */ static void C_ccall f_6809(C_word c,C_word *av){ C_word tmp; 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_6809,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,4,lf[159],((C_word*)t0)[3],t1,((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6803 in k6793 in a6790 in a6780 in k6765 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in k7118 in k7122 in ... */ static void C_fcall f_6805(C_word 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_6805,2,t0,t1);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6809,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_6811,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li49),tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6821,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)li52),tmp=(C_word)a,a+=10,tmp); /* chicken-syntax.scm:815: ##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);}} /* k9188 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_9190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9190,2,av);} /* chicken-syntax.scm:271: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_9192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9192,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9211,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:279: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[235]; av2[3]=t2; av2[4]=lf[242]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9164 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9166,2,av);} /* chicken-syntax.scm:327: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[233]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a9167 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_9168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9168,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9172,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:331: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[233]; av2[3]=t2; av2[4]=lf[234]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* loop2228 in k5130 in k5124 in k5121 in k5115 in a5077 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in ... */ static void C_fcall f_5141(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_5141,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5148,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:1120: ##sys#= */ t5=*((C_word*)lf[57]+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);}} /* k5146 in loop2228 in k5130 in k5124 in k5121 in k5115 in a5077 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in ... */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_5148,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_5162,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:1120: ##sys#+ */ t5=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k6445 in map-loop1948 in k6364 in k6232 in k6229 in k6226 in k6223 in k6220 in k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in ... */ static void C_ccall f_6447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6447,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6422(t6,((C_word*)t0)[5],t5);} /* k5130 in k5124 in k5121 in k5115 in a5077 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 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 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_5132,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_5141,a[2]=t4,a[3]=((C_word)li23),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_5141(t6,((C_word*)t0)[3],t2,((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_5088(2,av2);}}} /* k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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_10233,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[28]); t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10247,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_10844,a[2]=t9,a[3]=t14,a[4]=t10,a[5]=((C_word)li142),tmp=(C_word)a,a+=6,tmp)); t16=((C_word*)t14)[1]; f_10844(t16,t12,t3);} /* k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_3696,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3699,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_10227,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10229,a[2]=((C_word)li143),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:211: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 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_3699,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3702,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_10126,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10128,a[2]=((C_word)li129),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:243: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11165 in k11150 in k11128 in a11125 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_11167(C_word 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_11167,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[30],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t2=C_a_i_list(&a,3,lf[101],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[101],t3); t5=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t5; av2[1]=C_a_i_list(&a,3,lf[144],t2,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_3690,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3693,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_10955,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10957,a[2]=((C_word)li145),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:168: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_3693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3693,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3696,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_10880,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10882,a[2]=((C_word)li144),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:191: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5121 in k5115 in a5077 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5123,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5126,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:1120: ##sys#length */ t4=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_5088(2,av2);}}} /* k11128 in a11125 in k3676 in k3673 in k3670 in k3666 */ 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 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_11130,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[101],t5); t7=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[144],t6,lf[277]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11152,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:129: ##sys#check-syntax */ t4=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[276]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[278]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 t4; C_word 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_10247,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_10251,a[2]=((C_word*)t0)[2],a[3]=((C_word)li130),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10262,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_10810,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li141),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_10810(t12,t8,((C_word*)t0)[5]);} /* k5124 in k5121 in k5115 in a5077 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_5126,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5132,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:1120: ##sys#>= */ t4=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* map-loop1948 in k6364 in k6232 in k6229 in k6226 in k6223 in k6220 in k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in ... */ static void C_fcall f_6422(C_word t0,C_word t1,C_word 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_6422,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_6447,a[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:909: g1954 */ 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);}}} /* build in a6820 in k6803 in k6793 in a6790 in a6780 in k6765 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in k7114 in ... */ static void C_fcall f_6897(C_word t0,C_word t1,C_word 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_6897,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[30],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[30],t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} else{ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6950,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_6998,a[2]=((C_word*)t0)[7],a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:823: gensym */ t6=*((C_word*)lf[32]+1);{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k5115 in a5077 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5117,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5123,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:1120: ##sys#list? */ t4=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_5088(2,av2);}}} /* k5180 in k5174 in k5171 in a5077 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5182,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_5191,a[2]=t4,a[3]=((C_word)li24),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_5191(t6,((C_word*)t0)[3],t2,((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_5117(2,av2);}}} /* k5698 in k5691 in k5685 in k5682 in loop in k5665 in k5662 in k5659 in k5656 in a5653 in k5822 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 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 t3; C_word 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_5700,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_5716,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:1008: ##sys#append */ t8=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in ... */ 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 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_6486,2,av);} a=C_alloc(16); t2=C_a_i_cons(&a,2,lf[129],t1); t3=C_a_i_list(&a,2,((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6213,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6215,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:886: ##sys#er-transformer */ t7=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k5174 in k5171 in a5077 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_5176,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5182,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:1120: ##sys#>= */ t4=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5171 in a5077 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5173,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5176,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:1120: ##sys#length */ t4=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_5117(2,av2);}}} /* k5378 in k5370 in k5363 in a5360 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_5380,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; /* Re-use our own argvector */ 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);}} /* k5386 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5388,2,av);} /* chicken-syntax.scm:1066: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[100]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5160 in k5146 in loop2228 in k5130 in k5124 in k5121 in k5115 in a5077 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5162,2,av);} /* chicken-syntax.scm:1120: loop2228 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_5141(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k10198 in loop in k10145 in k10142 in k10139 in k10130 in a10127 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_10200,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t3=C_slot(((C_word*)t0)[3],C_fix(1)); /* chicken-syntax.scm:261: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_10179(t4,((C_word*)t0)[5],t3);} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10207,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)[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); /* chicken-syntax.scm:258: c */ t3=((C_word*)t0)[9];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[10]; av2[3]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k10205 in k10198 in loop in k10145 in k10142 in k10139 in k10130 in a10127 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10207,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t3=C_slot(((C_word*)t0)[3],C_fix(1)); /* chicken-syntax.scm:261: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_10179(t4,((C_word*)t0)[5],t3);} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10214,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)[7],tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:259: c */ t3=((C_word*)t0)[8];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k6364 in k6232 in k6229 in k6226 in k6223 in k6220 in k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in ... */ static void C_ccall f_6366(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_6366,2,av);} a=C_alloc(65); t2=t1; t3=C_a_i_list(&a,2,lf[116],lf[131]); t4=C_a_i_list(&a,3,lf[119],((C_word*)t0)[2],t3); t5=C_a_i_list(&a,3,lf[132],((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[28]); t17=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6391,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_6422,a[2]=t12,a[3]=t19,a[4]=t14,a[5]=t13,a[6]=((C_word)li43),tmp=(C_word)a,a+=7,tmp)); t21=((C_word*)t19)[1]; f_6422(t21,t17,t15);} /* a4681 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 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=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_4682,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4686,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1214: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[52]; av2[3]=t2; av2[4]=lf[61]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k4684 in a4681 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4686,2,av);} a=C_alloc(4); if(C_truep(C_i_memq(lf[13],*((C_word*)lf[14]+1)))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4702,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:1217: ##compiler#check-and-validate-type */ t4=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=lf[52]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_caddr(((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k5822 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_5824,2,av);} a=C_alloc(13); t2=C_a_i_cons(&a,2,lf[104],t1); t3=C_a_i_list(&a,1,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5652,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_5654,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:996: ##sys#er-transformer */ t7=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k5747 in loop in k5665 in k5662 in k5659 in k5656 in a5653 in k5822 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_5749,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,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],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5769,a[2]=((C_word*)t0)[7],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1015: gensym */ t4=*((C_word*)lf[32]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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_5775,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:1017: c */ t5=((C_word*)t0)[9];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* a5389 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in ... */ 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=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_5390,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5394,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1070: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[100]; av2[3]=t2; av2[4]=lf[103]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* map-loop773 in k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in ... */ static void C_fcall f_9740(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_9740,5,t0,t1,t2,t3,t4);} a=C_alloc(10); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9747,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_9747(t7,(C_truep(t6)?C_i_pairp(t4):C_SCHEME_FALSE));} else{ t6=t5; f_9747(t6,C_SCHEME_FALSE);}} /* k5392 in a5389 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 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 t4; C_word t5; C_word 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_5394,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[101],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; /* Re-use our own argvector */ av2[0]=t13; av2[1]=C_a_i_list(&a,3,lf[102],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; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_a_i_list(&a,3,lf[102],t7,t2); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k9745 in map-loop773 in k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in ... */ static void C_fcall f_9747(C_word t0,C_word t1){ C_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_9747,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:305: g779 */ f_9580(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_mutate2(((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_9740(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-loop887 in k9600 in k9596 in k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 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; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_9503,5,t0,t1,t2,t3,t4);} a=C_alloc(9); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9510,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_9510(t7,(C_truep(t6)?C_i_pairp(t4):C_SCHEME_FALSE));} else{ t6=t5; f_9510(t6,C_SCHEME_FALSE);}} /* map-loop711 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in ... */ static void C_fcall f_9858(C_word t0,C_word t1,C_word 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_9858,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_mutate2(((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);}}} /* k9508 in map-loop887 in k9600 in k9596 in k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 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; if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_9510,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_mutate2(((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_9503(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);}}} /* k5724 in k5685 in k5682 in loop in k5665 in k5662 in k5659 in k5656 in a5653 in k5822 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in ... */ static void C_ccall f_5726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5726,2,av);} /* chicken-syntax.scm:1008: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop2228 in k5180 in k5174 in k5171 in a5077 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in ... */ static void C_fcall f_5191(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_5191,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5198,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:1120: ##sys#= */ t5=*((C_word*)lf[57]+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);}} /* k5196 in loop2228 in k5180 in k5174 in k5171 in a5077 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 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(5,c,3)))){ C_save_and_reclaim((void *)f_5198,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_5212,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:1120: ##sys#+ */ t5=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k5714 in k5698 in k5691 in k5685 in k5682 in loop in k5665 in k5662 in k5659 in k5656 in a5653 in k5822 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in ... */ static void C_ccall f_5716(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5716,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[101],((C_word*)t0)[5],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5860 in k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_5862,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5865,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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:937: r */ t4=((C_word*)t0)[11];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[126]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5863 in k5860 in k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 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 t3; C_word t4; C_word 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_5865,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(((C_word*)t0)[2],lf[28]); t8=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5874,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,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|5,a[1]=(C_word)f_6165,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li38),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_6165(t12,t8,((C_word*)t0)[2]);} /* k3666 */ 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 *a; 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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3672,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:44: ##sys#macro-environment */ t3=*((C_word*)lf[293]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4588 in k4574 in loop2389 in k4558 in k4552 in k4549 in k4543 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4590,2,av);} /* chicken-syntax.scm:1223: loop2389 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4569(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k6400 in k6396 in k6389 in k6364 in k6232 in k6229 in k6226 in k6223 in k6220 in k6217 in a6214 in k6484 in k6488 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in ... */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ C_save_and_reclaim((void *)f_6402,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[30],((C_word*)t0)[3],t2); t4=C_i_cadr(((C_word*)t0)[4]); t5=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_5853,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,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]=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:934: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[114]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_5856,2,av);} a=C_alloc(12); t2=t1; t3=C_i_cdr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5862,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]=t2,a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); /* chicken-syntax.scm:936: r */ t6=((C_word*)t0)[9];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[127]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k5773 in k5747 in loop in k5665 in k5662 in k5659 in k5656 in a5653 in k5822 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in ... */ static void C_ccall f_5775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_5775,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:1019: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_5674(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:1020: syntax-error */ t4=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=lf[111]; av2[3]=lf[112]; 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:1023: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_5674(t7,((C_word*)t0)[4],t3,((C_word*)t0)[5],t6,C_SCHEME_FALSE);}} /* k4574 in loop2389 in k4558 in k4552 in k4549 in k4543 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in ... */ static void C_ccall f_4576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4576,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_4590,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:1223: ##sys#+ */ t5=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_3687,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3690,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_11044,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11046,a[2]=((C_word)li146),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:161: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_3681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3681,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3684,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_11075,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11077,a[2]=((C_word)li148),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:141: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_3684,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3687,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_11061,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11063,a[2]=((C_word)li147),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:155: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5332 in k5325 in a5322 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_5334,2,av);} a=C_alloc(3); t2=C_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,t1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop2389 in k4558 in k4552 in k4549 in k4543 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in ... */ static void C_fcall f_4569(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_4569,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4576,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:1223: ##sys#= */ t5=*((C_word*)lf[57]+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);}} /* k10212 in k10205 in k10198 in loop in k10145 in k10142 in k10139 in k10130 in a10127 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10214,2,av);} if(C_truep(t1)){ t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t3=C_slot(((C_word*)t0)[3],C_fix(1)); /* chicken-syntax.scm:261: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_10179(t4,((C_word*)t0)[5],t3);} else{ t2=((C_word*)t0)[3]; t3=C_u_i_car(t2); /* chicken-syntax.scm:260: ##sys#error */ t4=*((C_word*)lf[248]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[6]; av2[2]=lf[249]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k3673 in k3670 in k3666 */ static void C_ccall f_3675(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3675,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3678,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_11217,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11219,a[2]=((C_word)li153),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:56: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3670 in k3666 */ 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(10,c,5)))){ C_save_and_reclaim((void *)f_3672,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3675,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_11579,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11581,a[2]=((C_word)li154),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:49: ##sys#er-transformer */ t6=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_3678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3678,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3681,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_11124,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11126,a[2]=((C_word)li149),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:123: ##sys#er-transformer */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k4558 in k4552 in k4549 in k4543 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in ... */ static void C_ccall f_4560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_4560,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_4569,a[2]=t4,a[3]=((C_word)li12),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_4569(t6,((C_word*)t0)[3],t2,((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_4383(2,av2);}}} /* k5363 in a5360 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in ... */ static void C_ccall f_5365(C_word c,C_word *av){ C_word tmp; C_word t0=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_5365,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5372,a[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:1087: r */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[78]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a5360 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 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=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_5361,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5365,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:1086: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[98]; av2[3]=t2; av2[4]=lf[99]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k4602 in k4599 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4604,2,av);} a=C_alloc(5); 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); /* chicken-syntax.scm:1223: ##sys#>= */ t4=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7341 in k7351 in k7311 in k7308 in a7305 in k7375 in k7379 in k7383 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,1)))){ C_save_and_reclaim((void *)f_7343,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[159],((C_word*)t0)[3],((C_word*)t0)[4],t2); t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[30],((C_word*)t0)[6],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4552 in k4549 in k4543 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 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; 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_4554,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4560,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:1223: ##sys#>= */ t4=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10225 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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,4)))){ C_save_and_reclaim((void *)f_10227,2,av);} /* chicken-syntax.scm:209: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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=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_10229,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10233,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:213: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[254]; av2[3]=t2; av2[4]=lf[255]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* loop in k6127 in k5872 in k5863 in k5860 in k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in ... */ static void C_fcall f_5899(C_word t0,C_word t1,C_word 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_5899,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_5918,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_6073,a[2]=t11,a[3]=t10,tmp=(C_word)a,a+=4,tmp); t14=C_u_i_car(t10); /* chicken-syntax.scm:957: c */ t15=((C_word*)t0)[5];{ C_word av2[4]; av2[0]=t15; av2[1]=t13; av2[2]=lf[125]; av2[3]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} else{ t13=t11; f_5918(t13,C_SCHEME_FALSE);}} else{ t12=t11; f_5918(t12,C_SCHEME_FALSE);}}} /* k5895 in k6127 in k5872 in k5863 in k5860 in k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 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; 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_5897,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[26],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4549 in k4543 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in ... */ static void C_ccall f_4551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4551,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4554,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:1223: ##sys#length */ t4=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_4383(2,av2);}}} /* k4636 in k4624 in loop2389 in k4608 in k4602 in k4599 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in ... */ static void C_fcall f_4638(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_4638,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_4649,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:1223: ##sys#+ */ t5=*((C_word*)lf[56]+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);}}} /* k7351 in k7311 in k7308 in a7305 in k7375 in k7379 in k7383 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in ... */ 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 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_7353,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_7343,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:719: r */ t9=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=lf[154]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,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_2dsyntax_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_chicken_2dsyntax_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(2901))){ C_save(t1); C_rereclaim2(2901*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,296); lf[0]=C_h_intern(&lf[0],28,"\003sysdefine-values-definition"); lf[1]=C_h_intern(&lf[1],29,"\003syschicken-macro-environment"); lf[2]=C_h_intern(&lf[2],17,"register-feature!"); lf[3]=C_h_intern(&lf[3],6,"srfi-8"); lf[4]=C_h_intern(&lf[4],7,"srfi-11"); lf[5]=C_h_intern(&lf[5],7,"srfi-15"); lf[6]=C_h_intern(&lf[6],7,"srfi-16"); lf[7]=C_h_intern(&lf[7],7,"srfi-26"); lf[8]=C_h_intern(&lf[8],7,"srfi-31"); lf[9]=C_h_intern(&lf[9],16,"\003sysmacro-subset"); lf[10]=C_h_intern(&lf[10],29,"\003sysdefault-macro-environment"); lf[11]=C_h_intern(&lf[11],28,"\003sysextend-macro-environment"); lf[12]=C_h_intern(&lf[12],11,"define-type"); lf[13]=C_h_intern(&lf[13],10,"\000compiling"); lf[14]=C_h_intern(&lf[14],12,"\003sysfeatures"); lf[15]=C_h_intern(&lf[15],26,"\010compilertype-abbreviation"); lf[16]=C_h_intern(&lf[16],16,"\003sysput/restore!"); lf[17]=C_h_intern(&lf[17],24,"\004coreelaborationtimeonly"); lf[18]=C_h_intern(&lf[18],32,"\010compilercheck-and-validate-type"); lf[19]=C_h_intern(&lf[19],16,"\003sysstrip-syntax"); lf[20]=C_h_intern(&lf[20],5,"quote"); lf[21]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[22]=C_h_intern(&lf[22],16,"\003syscheck-syntax"); lf[23]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\010variable\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[24]=C_h_intern(&lf[24],18,"\003syser-transformer"); lf[25]=C_h_intern(&lf[25],17,"compiler-typecase"); lf[26]=C_h_intern(&lf[26],10,"\004corebegin"); lf[27]=C_h_intern(&lf[27],4,"else"); lf[28]=C_h_intern(&lf[28],3,"map"); lf[29]=C_h_intern(&lf[29],13,"\004coretypecase"); lf[30]=C_h_intern(&lf[30],8,"\004corelet"); lf[31]=C_h_intern(&lf[31],15,"get-line-number"); lf[32]=C_h_intern(&lf[32],6,"gensym"); lf[33]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001\376\377\001\000\000\000\001"); lf[34]=C_h_intern(&lf[34],21,"define-specialization"); lf[35]=C_h_intern(&lf[35],6,"inline"); lf[36]=C_h_intern(&lf[36],4,"hide"); lf[37]=C_h_intern(&lf[37],12,"\004coredeclare"); lf[38]=C_h_intern(&lf[38],8,"\004corethe"); lf[39]=C_h_intern(&lf[39],8,"\003sysput!"); lf[40]=C_h_intern(&lf[40],30,"\010compilerlocal-specializations"); lf[41]=C_h_intern(&lf[41],10,"\003sysappend"); lf[42]=C_h_intern(&lf[42],7,"\003sysget"); lf[43]=C_h_intern(&lf[43],7,"reverse"); lf[44]=C_h_intern(&lf[44],1,"\052"); lf[45]=C_h_intern(&lf[45],12,"syntax-error"); lf[46]=C_decode_literal(C_heaptop,"\376B\000\000\027invalid argument syntax"); lf[47]=C_h_intern(&lf[47],6,"define"); lf[48]=C_h_intern(&lf[48],13,"\003sysglobalize"); lf[49]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010variable\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\000\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\003\376\001\000\000\001_\376\377\001\000\000\000" "\000\376\377\001\000\000\000\001"); lf[50]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[51]=C_h_intern(&lf[51],6,"assume"); lf[52]=C_h_intern(&lf[52],3,"the"); lf[53]=C_h_intern(&lf[53],9,"\003sysmap-n"); lf[54]=C_h_intern(&lf[54],3,"let"); lf[55]=C_h_intern(&lf[55],25,"\003syssyntax-rules-mismatch"); lf[56]=C_h_intern(&lf[56],5,"\003sys+"); lf[57]=C_h_intern(&lf[57],5,"\003sys="); lf[58]=C_h_intern(&lf[58],6,"\003sys>="); lf[59]=C_h_intern(&lf[59],10,"\003syslength"); lf[60]=C_h_intern(&lf[60],9,"\003syslist\077"); lf[61]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[62]=C_h_intern(&lf[62],1,":"); lf[63]=C_h_intern(&lf[63],22,"\010compilervalidate-type"); lf[64]=C_h_intern(&lf[64],4,"type"); lf[65]=C_h_intern(&lf[65],9,"predicate"); lf[66]=C_h_intern(&lf[66],4,"pure"); lf[67]=C_decode_literal(C_heaptop,"\376B\000\000\023invalid type syntax"); lf[68]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[69]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\001_\376\001\000\000\001_"); lf[70]=C_h_intern(&lf[70],7,"functor"); lf[71]=C_h_intern(&lf[71],21,"\003syssyntax-error-hook"); lf[72]=C_decode_literal(C_heaptop,"\376B\000\000\030invalid functor argument"); lf[73]=C_h_intern(&lf[73],20,"\003sysvalidate-exports"); lf[74]=C_h_intern(&lf[74],20,"\003sysregister-functor"); lf[75]=C_h_intern(&lf[75],6,"import"); lf[76]=C_h_intern(&lf[76],6,"scheme"); lf[77]=C_h_intern(&lf[77],7,"chicken"); lf[78]=C_h_intern(&lf[78],16,"begin-for-syntax"); lf[79]=C_h_intern(&lf[79],11,"\004coremodule"); lf[80]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006symbol\376\000\000\000\002\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\377\016\376\377\001\000\000\000\000\376\003\000\000\002\376\001\000\000\001_" "\376\001\000\000\001_"); lf[81]=C_h_intern(&lf[81],16,"define-interface"); lf[82]=C_h_intern(&lf[82],14,"\004coreinterface"); lf[83]=C_h_intern(&lf[83],10,"\000interface"); lf[84]=C_h_intern(&lf[84],17,"syntax-error-hook"); lf[85]=C_decode_literal(C_heaptop,"\376B\000\000\017invalid exports"); lf[86]=C_decode_literal(C_heaptop,"\376B\000\000-`\052\047 is not allowed as a name for an interface"); lf[87]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\010variable\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[88]=C_h_intern(&lf[88],19,"let-compiler-syntax"); lf[89]=C_h_intern(&lf[89],24,"\004corelet-compiler-syntax"); lf[90]=C_h_intern(&lf[90],22,"define-compiler-syntax"); lf[91]=C_h_intern(&lf[91],27,"\004coredefine-compiler-syntax"); lf[92]=C_h_intern(&lf[92],14,"use-for-syntax"); lf[93]=C_h_intern(&lf[93],28,"require-extension-for-syntax"); lf[94]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\000"); lf[95]=C_h_intern(&lf[95],3,"use"); lf[96]=C_h_intern(&lf[96],22,"\004corerequire-extension"); lf[97]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\000"); lf[98]=C_h_intern(&lf[98],17,"define-for-syntax"); lf[99]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\001\000\000\001_"); lf[100]=C_h_intern(&lf[100],3,"rec"); lf[101]=C_h_intern(&lf[101],11,"\004corelambda"); lf[102]=C_h_intern(&lf[102],12,"\004coreletrec\052"); lf[103]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\001\000\000\001_"); lf[104]=C_h_intern(&lf[104],5,"apply"); lf[105]=C_h_intern(&lf[105],4,"cute"); lf[106]=C_decode_literal(C_heaptop,"\376B\000\000+tail patterns after <...> are not supported"); lf[107]=C_decode_literal(C_heaptop,"\376B\000\000\047you need to supply at least a procedure"); lf[108]=C_h_intern(&lf[108],5,"<...>"); lf[109]=C_h_intern(&lf[109],2,"<>"); lf[110]=C_h_intern(&lf[110],19,"\003sysprimitive-alias"); lf[111]=C_h_intern(&lf[111],3,"cut"); lf[112]=C_decode_literal(C_heaptop,"\376B\000\000+tail patterns after <...> are not supported"); lf[113]=C_decode_literal(C_heaptop,"\376B\000\000\047you need to supply at least a procedure"); lf[114]=C_h_intern(&lf[114],18,"getter-with-setter"); lf[115]=C_h_intern(&lf[115],18,"define-record-type"); lf[116]=C_h_intern(&lf[116],10,"\004corequote"); lf[117]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[118]=C_h_intern(&lf[118],18,"\003sysmake-structure"); lf[119]=C_h_intern(&lf[119],14,"\003sysstructure\077"); lf[120]=C_h_intern(&lf[120],19,"\003syscheck-structure"); lf[121]=C_h_intern(&lf[121],10,"\004corecheck"); lf[122]=C_h_intern(&lf[122],13,"\003sysblock-ref"); lf[123]=C_h_intern(&lf[123],10,"\003syssetter"); lf[124]=C_h_intern(&lf[124],14,"\003sysblock-set!"); lf[125]=C_h_intern(&lf[125],6,"setter"); lf[126]=C_h_intern(&lf[126],1,"y"); lf[127]=C_h_intern(&lf[127],1,"x"); lf[128]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\010variable\376\003\000\000\002\376\000\000\000\002\376\001\000\000\010variable\376\377\001\000\000\000\001\376\003\000\000\002\376\001\000\000\010variable\376\001\000" "\000\001_"); lf[129]=C_h_intern(&lf[129],4,"memv"); lf[130]=C_h_intern(&lf[130],14,"condition-case"); lf[131]=C_h_intern(&lf[131],9,"condition"); lf[132]=C_h_intern(&lf[132],8,"\003sysslot"); lf[133]=C_h_intern(&lf[133],10,"\003syssignal"); lf[134]=C_h_intern(&lf[134],4,"cond"); lf[135]=C_h_intern(&lf[135],17,"handle-exceptions"); lf[136]=C_h_intern(&lf[136],3,"and"); lf[137]=C_h_intern(&lf[137],4,"kvar"); lf[138]=C_h_intern(&lf[138],5,"exvar"); lf[139]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\001\000\000\001_"); lf[140]=C_h_intern(&lf[140],30,"call-with-current-continuation"); lf[141]=C_h_intern(&lf[141],22,"with-exception-handler"); lf[142]=C_h_intern(&lf[142],9,"\003sysapply"); lf[143]=C_h_intern(&lf[143],10,"\003sysvalues"); lf[144]=C_h_intern(&lf[144],20,"\003syscall-with-values"); lf[145]=C_h_intern(&lf[145],4,"args"); lf[146]=C_h_intern(&lf[146],1,"k"); lf[147]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\010variable\376\003\000\000\002\376\001\000\000\001_\376\001\000\000\001_"); lf[148]=C_h_intern(&lf[148],21,"define-record-printer"); lf[149]=C_h_intern(&lf[149],27,"\003sysregister-record-printer"); lf[150]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\006symbol\376\377\016\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[151]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[152]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\001\000\000\001_"); lf[153]=C_h_intern(&lf[153],2,">="); lf[154]=C_h_intern(&lf[154],3,"car"); lf[155]=C_h_intern(&lf[155],3,"cdr"); lf[156]=C_h_intern(&lf[156],3,"eq\077"); lf[157]=C_h_intern(&lf[157],6,"length"); lf[158]=C_h_intern(&lf[158],11,"case-lambda"); lf[159]=C_h_intern(&lf[159],7,"\004coreif"); lf[160]=C_h_intern(&lf[160],9,"split-at!"); lf[161]=C_h_intern(&lf[161],4,"take"); lf[162]=C_h_intern(&lf[162],11,"lambda-list"); lf[163]=C_h_intern(&lf[163],25,"\003sysdecompose-lambda-list"); lf[164]=C_h_intern(&lf[164],10,"fold-right"); lf[165]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\012\004corecheck\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\003syserror\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\004coreimmutable\376\003\000\000\002\376\003" "\000\000\002\376\001\000\000\012\004corequote\376\003\000\000\002\376B\000\0000no matching clause in call to \047case-lambda\047 form\376\377\016\376" "\377\016\376\377\016\376\377\016"); lf[166]=C_h_intern(&lf[166],6,"append"); lf[167]=C_h_intern(&lf[167],4,"lvar"); lf[168]=C_h_intern(&lf[168],4,"rvar"); lf[169]=C_h_intern(&lf[169],3,"min"); lf[170]=C_h_intern(&lf[170],7,"require"); lf[171]=C_h_intern(&lf[171],6,"srfi-1"); lf[172]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\001\000\000\001_"); lf[173]=C_h_intern(&lf[173],5,"null\077"); lf[174]=C_h_intern(&lf[174],14,"let-optionals\052"); lf[175]=C_h_intern(&lf[175],4,"tmp2"); lf[176]=C_h_intern(&lf[176],3,"tmp"); lf[177]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\004list\376\001\000\000\001_"); lf[178]=C_h_intern(&lf[178],8,"optional"); lf[179]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\003\376\001\000\000\001_\376\377\001\000\000\000\000\376\377\001\000\000\000\001"); lf[180]=C_h_intern(&lf[180],13,"let-optionals"); lf[181]=C_h_intern(&lf[181],14,"string->symbol"); lf[182]=C_h_intern(&lf[182],13,"string-append"); lf[183]=C_h_intern(&lf[183],14,"symbol->string"); lf[184]=C_decode_literal(C_heaptop,"\376B\000\000\001%"); lf[185]=C_decode_literal(C_heaptop,"\376B\000\000\004def-"); lf[186]=C_h_intern(&lf[186],4,"let\052"); lf[187]=C_h_intern(&lf[187],6,"_%rest"); lf[188]=C_h_intern(&lf[188],4,"body"); lf[189]=C_decode_literal(C_heaptop,"\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[190]=C_decode_literal(C_heaptop,"\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010variable\376\003\000\000\002\376\001\000\000\001_\376\377\016\376\377\001\000\000\000\000"); lf[191]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\001\000\000\001_"); lf[192]=C_h_intern(&lf[192],6,"select"); lf[193]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[194]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\012\004corebegin\376\377\016"); lf[195]=C_h_intern(&lf[195],10,"\003sysnotice"); lf[196]=C_decode_literal(C_heaptop,"\376B\000\0005non-`else\047 clause following `else\047 clause in `select\047"); lf[197]=C_h_intern(&lf[197],8,"\003syseqv\077"); lf[198]=C_decode_literal(C_heaptop,"\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[199]=C_decode_literal(C_heaptop,"\376B\000\000\016invalid syntax"); lf[200]=C_h_intern(&lf[200],2,"or"); lf[201]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\001\000\000\001_"); lf[202]=C_h_intern(&lf[202],8,"and-let\052"); lf[203]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[204]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\000\376\001\000\000\001_"); lf[205]=C_h_intern(&lf[205],13,"define-inline"); lf[206]=C_decode_literal(C_heaptop,"\376B\000\000\052invalid substitution form - must be lambda"); lf[207]=C_h_intern(&lf[207],6,"lambda"); lf[208]=C_decode_literal(C_heaptop,"\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[209]=C_h_intern(&lf[209],18,"\004coredefine-inline"); lf[210]=C_h_intern(&lf[210],8,"list-ref"); lf[211]=C_h_intern(&lf[211],9,"nth-value"); lf[212]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[213]=C_h_intern(&lf[213],13,"letrec-values"); lf[214]=C_h_intern(&lf[214],5,"foldl"); lf[215]=C_h_intern(&lf[215],37,"\003sysexpand-multiple-values-assignment"); lf[216]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[217]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\013lambda-list\376\001\000\000\001_\376\377\001\000\000\000\000\376\001\000\000\001_"); lf[218]=C_h_intern(&lf[218],11,"let\052-values"); lf[219]=C_h_intern(&lf[219],10,"let-values"); lf[220]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\004list\376\001\000\000\001_"); lf[221]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\004list\376\001\000\000\001_"); lf[222]=C_h_intern(&lf[222],13,"define-values"); lf[223]=C_h_intern(&lf[223],11,"set!-values"); lf[224]=C_h_intern(&lf[224],8,"for-each"); lf[225]=C_h_intern(&lf[225],19,"\003sysregister-export"); lf[226]=C_h_intern(&lf[226],18,"\003syscurrent-module"); lf[227]=C_h_intern(&lf[227],16,"\004coremacro-alias"); lf[228]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\013lambda-list\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[229]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\013lambda-list\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[230]=C_h_intern(&lf[230],6,"unless"); lf[231]=C_h_intern(&lf[231],14,"\004coreundefined"); lf[232]=C_decode_literal(C_heaptop,"\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\002"); lf[233]=C_h_intern(&lf[233],4,"when"); lf[234]=C_decode_literal(C_heaptop,"\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\002"); lf[235]=C_h_intern(&lf[235],12,"parameterize"); lf[236]=C_decode_literal(C_heaptop,"\376B\000\000\011parameter"); lf[237]=C_h_intern(&lf[237],5,"saved"); lf[238]=C_h_intern(&lf[238],16,"\003sysdynamic-wind"); lf[239]=C_h_intern(&lf[239],9,"\004coreset!"); lf[240]=C_h_intern(&lf[240],8,"convert\077"); lf[241]=C_h_intern(&lf[241],7,"boolean"); lf[242]=C_decode_literal(C_heaptop,"\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\002"); lf[243]=C_h_intern(&lf[243],9,"eval-when"); lf[244]=C_h_intern(&lf[244],19,"\004corecompiletimetoo"); lf[245]=C_h_intern(&lf[245],20,"\004corecompiletimeonly"); lf[246]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[247]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[248]=C_h_intern(&lf[248],9,"\003syserror"); lf[249]=C_decode_literal(C_heaptop,"\376B\000\000\033invalid situation specifier"); lf[250]=C_h_intern(&lf[250],4,"load"); lf[251]=C_h_intern(&lf[251],7,"compile"); lf[252]=C_h_intern(&lf[252],4,"eval"); lf[253]=C_decode_literal(C_heaptop,"\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\002"); lf[254]=C_h_intern(&lf[254],9,"fluid-let"); lf[255]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\001_\376\377\016\376\377\001\000\000\000\000\376\001\000\000\001_"); lf[256]=C_h_intern(&lf[256],6,"ensure"); lf[257]=C_h_intern(&lf[257],15,"\003syssignal-hook"); lf[258]=C_h_intern(&lf[258],11,"\000type-error"); lf[259]=C_decode_literal(C_heaptop,"\376B\000\000\033argument has incorrect type"); lf[260]=C_h_intern(&lf[260],14,"\004coreimmutable"); lf[261]=C_decode_literal(C_heaptop,"\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\003"); lf[262]=C_h_intern(&lf[262],6,"assert"); lf[263]=C_decode_literal(C_heaptop,"\376B\000\000\020assertion failed"); lf[264]=C_decode_literal(C_heaptop,"\376B\000\000\001("); lf[265]=C_decode_literal(C_heaptop,"\376B\000\000\002) "); lf[266]=C_decode_literal(C_heaptop,"\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[267]=C_h_intern(&lf[267],7,"include"); lf[268]=C_h_intern(&lf[268],12,"\004coreinclude"); lf[269]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\006string\376\377\016"); lf[270]=C_h_intern(&lf[270],7,"declare"); lf[271]=C_h_intern(&lf[271],4,"time"); lf[272]=C_h_intern(&lf[272],15,"\003sysstart-timer"); lf[273]=C_h_intern(&lf[273],14,"\003sysstop-timer"); lf[274]=C_h_intern(&lf[274],17,"\003sysdisplay-times"); lf[275]=C_h_intern(&lf[275],1,"t"); lf[276]=C_h_intern(&lf[276],7,"receive"); lf[277]=C_h_intern(&lf[277],8,"\003syslist"); lf[278]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\013lambda-list\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[279]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\000"); lf[280]=C_h_intern(&lf[280],13,"define-record"); lf[281]=C_decode_literal(C_heaptop,"\376B\000\000\032invalid slot specification"); lf[282]=C_h_intern(&lf[282],3,"val"); lf[283]=C_decode_literal(C_heaptop,"\376B\000\000\001-"); lf[284]=C_decode_literal(C_heaptop,"\376B\000\000\001-"); lf[285]=C_decode_literal(C_heaptop,"\376B\000\000\005-set!"); lf[286]=C_h_intern(&lf[286],17,"\003sysstring-append"); lf[287]=C_decode_literal(C_heaptop,"\376B\000\000\001\077"); lf[288]=C_decode_literal(C_heaptop,"\376B\000\000\005make-"); lf[289]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\006symbol\376\001\000\000\001_"); lf[290]=C_h_intern(&lf[290],15,"define-constant"); lf[291]=C_h_intern(&lf[291],20,"\004coredefine-constant"); lf[292]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[293]=C_h_intern(&lf[293],21,"\003sysmacro-environment"); lf[294]=C_h_intern(&lf[294],11,"\003sysprovide"); lf[295]=C_h_intern(&lf[295],14,"chicken-syntax"); C_register_lf2(lf,296,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3668,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:38: ##sys#provide */ t3=*((C_word*)lf[294]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[295]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4543 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4545,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4551,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:1223: ##sys#list? */ t4=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_4383(2,av2);}}} /* g779 in k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in ... */ static C_word C_fcall f_9580(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[159],((C_word*)t0)[2],t4,t2); return(C_a_i_list(&a,2,t3,t5));} /* a5343 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in ... */ static void C_ccall f_5344(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5344,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5348,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1097: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[95]; av2[3]=t2; av2[4]=lf[97]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5340 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5342,2,av);} /* chicken-syntax.scm:1093: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[95]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5346 in a5343 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in ... */ static void C_ccall f_5348(C_word c,C_word *av){ C_word tmp; C_word t0=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_5348,2,av);} a=C_alloc(9); t2=C_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[96],t2,C_SCHEME_TRUE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4624 in loop2389 in k4608 in k4602 in k4599 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in ... */ static void C_ccall f_4626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_4626,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_4638,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_4638(t6,C_eqp(t5,C_SCHEME_END_OF_LIST));} else{ t5=t3; f_4638(t5,C_SCHEME_FALSE);}} else{ t4=t3; f_4638(t4,C_SCHEME_FALSE);}}} /* k6845 in k6823 in a6820 in k6803 in k6793 in a6790 in a6780 in k6765 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_6847,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[30],t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop1820 in k6823 in a6820 in k6803 in k6793 in a6790 in a6780 in k6765 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in k6740 in k6737 in k6734 in k6731 in k6694 in a6691 in k7106 in k7110 in ... */ static void C_fcall f_6849(C_word t0,C_word t1,C_word 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_6849,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_mutate2(((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);}}} /* k9596 in k9327 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in ... */ static void C_ccall f_9598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_9598,2,av);} a=C_alloc(31); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9602,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_9618,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_9692,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li117),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_9692(t12,t8,((C_word*)t0)[10],((C_word*)t0)[8]);} /* k5370 in k5363 in a5360 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in ... */ static void C_ccall f_5372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5372,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5380,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:1088: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[47]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5872 in k5863 in k5860 in k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 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 t4; C_word t5; C_word t6; C_word 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(37,c,3)))){ C_save_and_reclaim((void *)f_5874,2,av);} a=C_alloc(37); t2=C_a_i_list(&a,2,lf[116],((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|3,a[1]=(C_word)f_6116,a[2]=((C_word*)t0)[3],a[3]=((C_word)li35),tmp=(C_word)a,a+=4,tmp); t9=C_i_check_list_2(t1,lf[28]); t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6129,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)[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],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|6,a[1]=(C_word)f_6131,a[2]=t8,a[3]=t6,a[4]=t12,a[5]=t7,a[6]=((C_word)li37),tmp=(C_word)a,a+=7,tmp)); t14=((C_word*)t12)[1]; f_6131(t14,t10,t1);} /* k7375 in k7379 in k7383 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 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 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_7377,2,av);} a=C_alloc(19); t2=C_a_i_cons(&a,2,lf[155],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_7304,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_7306,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:712: ##sys#er-transformer */ t7=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* map-loop2303 in k4833 in k4830 in a4827 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in ... */ static void C_fcall f_4953(C_word t0,C_word t1,C_word 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_4953,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_4978,a[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:1168: g2309 */ t5=((C_word*)t0)[4]; f_4887(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);}}} /* k4647 in k4636 in k4624 in loop2389 in k4608 in k4602 in k4599 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4649,2,av);} /* chicken-syntax.scm:1223: loop2389 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4619(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k7379 in k7383 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in ... */ static void C_ccall f_7381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7381,2,av);} a=C_alloc(8); t2=C_a_i_cons(&a,2,lf[154],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7377,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:711: ##sys#primitive-alias */ t5=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[155]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7383 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 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; 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_7385,2,av);} a=C_alloc(7); t2=C_a_i_cons(&a,2,lf[173],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7381,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:710: ##sys#primitive-alias */ t5=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[154]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* map-loop742 in k9316 in k9299 in k9286 in k9271 in k9256 in k9238 in k9232 in k9223 in k9220 in k9217 in k9209 in a9191 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in ... */ static void C_fcall f_9810(C_word t0,C_word t1,C_word 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_9810,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_mutate2(((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);}}} /* k5357 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5359,2,av);} /* chicken-syntax.scm:1082: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[98]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 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 t4; C_word 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_7399,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_7489,a[2]=((C_word*)t0)[3],a[3]=((C_word)li62),tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7578,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:664: ##sys#check-syntax */ t12=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t12; av2[1]=t11; av2[2]=lf[180]; av2[3]=t5; av2[4]=lf[190]; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} /* k7391 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7393,2,av);} /* chicken-syntax.scm:619: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[180]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in ... */ static void C_ccall f_7395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7395,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7399,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:625: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[180]; av2[3]=t2; av2[4]=lf[191]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* map-loop2437 in k4381 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in ... */ static void C_fcall f_4501(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_4501,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_mutate2(((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);}}} /* k4976 in map-loop2303 in k4833 in k4830 in a4827 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 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 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_4978,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4953(t6,((C_word*)t0)[5],t5);} /* k4678 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4680,2,av);} /* chicken-syntax.scm:1210: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[52]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k9115 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9117,2,av);} /* chicken-syntax.scm:344: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a9118 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_9119(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9119,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9123,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:348: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[223]; av2[3]=t2; av2[4]=lf[229]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k4987 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in ... */ static void C_ccall f_4989(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4989,2,av);} /* chicken-syntax.scm:1127: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[81]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4996 in k4993 in a4990 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in ... */ static void C_ccall f_4998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4998,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5001,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:1133: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[20]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4993 in a4990 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4995,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4998,a[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]); /* chicken-syntax.scm:1132: ##sys#strip-syntax */ t4=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k9136 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9138,2,av);} /* chicken-syntax.scm:335: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9100 in for-each-loop1027 in a9070 in k9051 in a9048 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9102,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9092(t3,((C_word*)t0)[4],t2);} /* k4949 in k4833 in k4830 in a4827 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in ... */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_4951,2,av);} a=C_alloc(13); t2=C_a_i_list(&a,2,lf[20],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4882,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:1179: ##sys#validate-exports */ t5=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; av2[3]=lf[70]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k5319 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in ... */ 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,4)))){ C_save_and_reclaim((void *)f_5321,2,av);} /* chicken-syntax.scm:1100: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7447 in k7473 in k7465 in recur in k7424 in k7420 in k7416 in k7646 in k7631 in k7628 in k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in ... */ static void C_ccall f_7449(C_word c,C_word *av){ C_word tmp; 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_7449,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* a5322 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 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=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_5323,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5327,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:1104: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[92]; av2[3]=t2; av2[4]=lf[94]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5325 in a5322 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5327,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5334,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1105: r */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[93]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5099 in k5086 in a5077 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in ... */ static void C_ccall f_5101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5101,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,t1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop1615 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in ... */ static void C_fcall f_7721(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_7721,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_mutate2(((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);}}} /* k4608 in k4602 in k4599 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 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 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_4610,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_4619,a[2]=t4,a[3]=((C_word)li13),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_4619(t6,((C_word*)t0)[3],t2,((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_4545(2,av2);}}} /* k7613 in g1593 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7615,2,av);} /* chicken-syntax.scm:673: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4990 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 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=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_4991,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4995,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:1131: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[81]; av2[3]=t2; av2[4]=lf[87]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k4599 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4601,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4604,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:1223: ##sys#length */ t4=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_4545(2,av2);}}} /* k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 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 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_5838,2,av);} a=C_alloc(9); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=C_i_caddr(((C_word*)t0)[2]); t5=t4; t6=C_i_cadddr(((C_word*)t0)[2]); t7=t6; t8=C_i_cddddr(((C_word*)t0)[2]); t9=t8; t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5853,a[2]=t5,a[3]=t9,a[4]=t3,a[5]=t7,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); /* chicken-syntax.scm:933: r */ t11=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=lf[47]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 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 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_7621,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_7627,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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_7721,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li68),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_7721(t11,t7,((C_word*)t0)[9]);} /* k5767 in k5747 in loop in k5665 in k5662 in k5659 in k5656 in a5653 in k5822 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5769,2,av);} /* chicken-syntax.scm:1015: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in ... */ static void C_ccall f_7627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7627,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7630,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((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:677: r */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[188]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* loop2389 in k4608 in k4602 in k4599 in a4372 in k3797 in k3794 in k3791 in k3788 in k3785 in k3782 in k3779 in k3776 in k3773 in k3770 in k3767 in k3764 in k3761 in k3758 in k3755 in k3752 in k3749 in ... */ static void C_fcall f_4619(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_4619,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4626,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:1223: ##sys#= */ t5=*((C_word*)lf[57]+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);}} /* k5830 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in ... */ static void C_ccall f_5832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5832,2,av);} /* chicken-syntax.scm:920: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[115]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 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=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_5834,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5838,a[2]=t2,a[3]=t1,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:925: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[115]; av2[3]=t2; av2[4]=lf[128]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5750 in k5747 in loop in k5665 in k5662 in k5659 in k5656 in a5653 in k5822 in k3761 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_5752,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:1016: loop */ t6=((C_word*)((C_word*)t0)[5])[1]; f_5674(t6,((C_word*)t0)[6],t3,t4,t5,C_SCHEME_FALSE);} /* k7601 in prefix-sym in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7603,2,av);} /* chicken-syntax.scm:668: string-append */ t2=*((C_word*)lf[182]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* g1593 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in ... */ static void C_fcall f_7607(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_7607,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7615,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:673: prefix-sym */ f_7591(t3,lf[184],t2);} /* k7416 in k7646 in k7631 in k7628 in k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7418,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7422,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:635: reverse */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7649 in k7646 in k7631 in k7628 in k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in ... */ static void C_ccall f_7651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7651,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7654,a[2]=((C_word*)t0)[2],a[3]=((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:687: make-if-tree */ t4=((C_word*)t0)[9]; f_7489(t4,t3,((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[6],((C_word*)t0)[2]);} /* k7652 in k7649 in k7646 in k7631 in k7628 in k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_7654,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7661,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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:690: r */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[186]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7465 in recur in k7424 in k7420 in k7416 in k7646 in k7631 in k7628 in k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in ... */ static void C_ccall f_7467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7467,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7475,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_7479,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:642: reverse */ t5=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7659 in k7652 in k7649 in k7646 in k7631 in k7628 in k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 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 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_7661,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[101],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; /* Re-use our own argvector */ 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);}} /* k7473 in k7465 in recur in k7424 in k7420 in k7416 in k7646 in k7631 in k7628 in k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 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 t4; C_word t5; C_word 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_7475,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[101],((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_7449,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:643: recur */ t13=((C_word*)((C_word*)t0)[8])[1]; f_7428(t13,t6,((C_word*)t0)[9],t8,t10,t12);} /* k7477 in k7465 in recur in k7424 in k7420 in k7416 in k7646 in k7631 in k7628 in k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 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(3,c,3)))){ C_save_and_reclaim((void *)f_7479,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:639: ##sys#append */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7710 in map-loop1644 in k7631 in k7628 in k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in ... */ 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 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_7712,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7687(t6,((C_word*)t0)[5],t5);} /* map-loop1274 in k8276 in k8262 in a8259 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in ... */ static void C_fcall f_8446(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_8446,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_mutate2(((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);}}} /* k8438 in foldl1326 in k8282 in k8276 in k8262 in a8259 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in ... */ static void C_ccall f_8440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8440,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_8410(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k11122 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_11124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11124,2,av);} /* chicken-syntax.scm:120: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[276]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* foldl1326 in k8282 in k8276 in k8262 in a8259 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in ... */ static void C_fcall f_8410(C_word t0,C_word t1,C_word 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_8410,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_8440,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_8434,a[2]=t8,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8436,a[2]=((C_word)li83),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:447: ##sys#decompose-lambda-list */ t12=*((C_word*)lf[163]+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);}}} /* a11125 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_11126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11126,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11130,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:125: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[276]; av2[3]=t2; av2[4]=lf[279]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k8924 in loop in k8681 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in ... */ 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; 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_8926,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:401: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_8895(t5,((C_word*)t0)[5],t4,t2);} /* k10896 in k10884 in a10881 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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(57,c,2)))){ C_save_and_reclaim((void *)f_10898,2,av);} a=C_alloc(57); 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=C_a_i_list(&a,2,((C_word*)t0)[3],t2); t7=C_a_i_list(&a,2,lf[121],t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10921,a[2]=t8,a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t5,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t10=t9; f_10921(t10,C_a_i_cons(&a,2,lf[258],((C_word*)t0)[5]));} else{ t10=C_a_i_list(&a,2,lf[116],lf[259]); t11=C_a_i_list(&a,2,lf[260],t10); t12=C_a_i_list(&a,2,lf[116],((C_word*)t0)[3]); t13=C_a_i_list(&a,3,t11,t2,t12); t14=t9; f_10921(t14,C_a_i_cons(&a,2,lf[258],t13));}} /* make-if-tree in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_7489,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_7495,a[2]=t4,a[3]=t5,a[4]=t7,a[5]=((C_word*)t0)[2],a[6]=((C_word)li61),tmp=(C_word)a,a+=7,tmp)); t9=((C_word*)t7)[1]; f_7495(t9,t1,t2,t3,C_SCHEME_END_OF_LIST);} /* map-loop1248 in k8262 in a8259 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 in ... */ static void C_fcall f_8480(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_8480,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_mutate2(((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);}}} /* k11150 in k11128 in a11125 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_11152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_11152,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_11167,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_11167(t12,C_i_nullp(t11));} else{ t11=t10; f_11167(t11,C_SCHEME_FALSE);}} /* a10881 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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=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_10882,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10886,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:193: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[256]; av2[3]=t2; av2[4]=lf[261]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10878 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10880,2,av);} /* chicken-syntax.scm:188: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[256]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop1109 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 in ... */ static void C_fcall f_8939(C_word t0,C_word t1,C_word 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_8939,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_8964,a[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:392: g1115 */ t5=((C_word*)t0)[4]; f_8665(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);}}} /* k10884 in a10881 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 t3; C_word t4; 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_10886,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_10898,a[2]=t5,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t9,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:197: r */ t11=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=lf[176]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* map-loop1644 in k7631 in k7628 in k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in ... */ static void C_fcall f_7687(C_word t0,C_word t1,C_word 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_7687,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_7712,a[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:682: g1650 */ t5=((C_word*)t0)[4]; f_7637(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);}}} /* k8931 in loop in k8681 in k8659 in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in ... */ static void C_ccall f_8933(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8933,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:401: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_8895(t5,((C_word*)t0)[5],t4,t2);} /* recur in make-if-tree in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in ... */ static void C_fcall f_7495(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(18,0,2)))){ C_save_and_reclaim_args((void *)trf_7495,5,t0,t1,t2,t3,t4);} a=C_alloc(18); if(C_truep(C_i_nullp(t2))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7509,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:654: reverse */ t6=*((C_word*)lf[43]+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=C_a_i_list(&a,2,lf[173],((C_word*)t0)[3]); t8=t7; t9=C_i_car(t3); t10=t9; t11=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7575,a[2]=t10,a[3]=((C_word*)t0)[3],a[4]=t6,a[5]=t1,a[6]=t8,a[7]=t2,a[8]=t3,a[9]=t4,a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[5],tmp=(C_word)a,a+=12,tmp); /* chicken-syntax.scm:657: reverse */ t12=*((C_word*)lf[43]+1);{ C_word av2[3]; av2[0]=t12; av2[1]=t11; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}} /* map-loop1557 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in ... */ static void C_fcall f_7789(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_7789,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_mutate2(((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-loop172 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_10844(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_10844,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_mutate2(((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);}}} /* k7778 in map-loop1587 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in ... */ static void C_ccall f_7780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7780,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7755(t6,((C_word*)t0)[5],t5);} /* loop in k10145 in k10142 in k10139 in k10130 in a10127 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_10179(C_word t0,C_word 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(18,0,3)))){ C_save_and_reclaim_args((void *)trf_10179,3,t0,t1,t2);} a=C_alloc(18); 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_10190,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10200,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t5,a[9]=((C_word*)t0)[6],a[10]=t4,a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[8],tmp=(C_word)a,a+=13,tmp); /* chicken-syntax.scm:257: c */ t7=((C_word*)t0)[6];{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=t4; av2[3]=((C_word*)t0)[9]; ((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);}}} /* k7302 in k7375 in k7379 in k7383 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in ... */ static void C_ccall f_7304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7304,2,av);} /* chicken-syntax.scm:707: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[178]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a7305 in k7375 in k7379 in k7383 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in ... */ static void C_ccall f_7306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7306,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7310,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:714: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[178]; av2[3]=t2; av2[4]=lf[179]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* loop in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_8973(C_word t0,C_word t1,C_word 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_8973,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_8986,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:388: append */ t6=*((C_word*)lf[166]+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:389: 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:391: loop */ t10=t1; t11=t8; t12=t6; t1=t10; t2=t11; t3=t12; goto loop;}}}} /* a10956 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10957(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10957,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10961,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:171: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[262]; av2[3]=t2; av2[4]=lf[266]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10953 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10955,2,av);} /* chicken-syntax.scm:166: ##sys#extend-macro-environment */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[262]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7308 in a7305 in k7375 in k7379 in k7383 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7310,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7313,a[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:715: r */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[176]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k7311 in k7308 in a7305 in k7375 in k7379 in k7383 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 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 t3; C_word 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_7313,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_7353,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:717: r */ t8=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=lf[173]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k8984 in loop in k8656 in k8574 in a8571 in k3716 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8986,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* chicken-syntax.scm:391: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_8973(t4,((C_word*)t0)[4],t3,t1);} /* k10959 in a10956 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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 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_10961,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[263]: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_10972,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:175: r */ t12=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t11; av2[2]=lf[176]; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} /* k10799 in map-loop227 in k10260 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ 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; 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_mutate2(((C_word *)((C_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);} /* k10973 in k10970 in k10959 in a10956 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_10975(C_word t0,C_word t1){ C_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_10975,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[121],((C_word*)t0)[2]); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10998,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_10998(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_11017,a[2]=t7,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:186: ##sys#strip-syntax */ t9=*((C_word*)lf[19]+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);}}} /* k10970 in k10959 in a10956 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10972,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10975,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_11027,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:177: get-line-number */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_10975(t4,C_SCHEME_UNDEFINED);}} /* map-loop199 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_10810(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_10810,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_10835,a[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:217: g205 */ t4=((C_word*)t0)[4]; f_10251(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);}}} /* k10833 in map-loop199 in k10245 in k10231 in a10228 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_ccall f_10835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_10835,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10810(t6,((C_word*)t0)[5],t5);} /* map-loop2030 in k5872 in k5863 in k5860 in k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in ... */ static void C_fcall f_6131(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_6131,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:943: g2036 */ f_6116(((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_mutate2(((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);}}} /* k10919 in k10896 in k10884 in a10881 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3666 */ static void C_fcall f_10921(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_10921,2,t0,t1);} a=C_alloc(24); t2=C_a_i_cons(&a,2,lf[257],t1); t3=C_a_i_list(&a,4,lf[159],((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[30],((C_word*)t0)[5],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7628 in k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in k3703 in ... */ static void C_ccall f_7630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7630,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7633,a[2]=((C_word*)t0)[2],a[3]=((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:680: r */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[187]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7631 in k7628 in k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in k3706 in ... */ static void C_ccall f_7633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_7633,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_7637,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li65),tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7648,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_7687,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li67),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_7687(t12,t8,((C_word*)t0)[5]);} /* g1650 in k7631 in k7628 in k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in ... */ static void C_fcall f_7637(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_7637,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7645,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:682: prefix-sym */ f_7591(t3,lf[185],t2);} /* g2036 in k5872 in k5863 in k5860 in k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in ... */ static C_word C_fcall f_6116(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[117]);}} /* k7643 in g1650 in k7631 in k7628 in k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in ... */ static void C_ccall f_7645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7645,2,av);} /* chicken-syntax.scm:682: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7646 in k7631 in k7628 in k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 in k3712 in k3709 in ... */ static void C_ccall f_7648(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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,c,2)))){ C_save_and_reclaim((void *)f_7648,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7651,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((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=*((C_word*)lf[32]+1); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7418,a[2]=t4,a[3]=t5,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:634: reverse */ t10=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k6127 in k5872 in k5863 in k5860 in k5854 in k5851 in k5836 in a5833 in k6203 in k3758 in k3755 in k3752 in k3749 in k3746 in k3743 in k3740 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 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 t7; C_word 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(62,c,4)))){ C_save_and_reclaim((void *)f_6129,2,av);} a=C_alloc(62); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,lf[118],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[116],((C_word*)t0)[7]); t8=C_a_i_list(&a,3,lf[119],((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|4,a[1]=(C_word)f_5897,a[2]=t10,a[3]=t5,a[4]=((C_word*)t0)[8],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|9,a[1]=(C_word)f_5899,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t13,a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word)li36),tmp=(C_word)a,a+=10,tmp)); t15=((C_word*)t13)[1]; f_5899(t15,t11,((C_word*)t0)[12],C_fix(1));} /* k11583 in a11580 in k3670 in k3666 */ static void C_ccall f_11585(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11585,2,av);} a=C_alloc(3); t2=C_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[291],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a11580 in k3670 in k3666 */ static void C_ccall f_11581(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11581,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11585,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:51: ##sys#check-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=lf[290]; av2[3]=t2; av2[4]=lf[292]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k7420 in k7416 in k7646 in k7631 in k7628 in k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 in k3716 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7422,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7426,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:636: reverse */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7424 in k7420 in k7416 in k7646 in k7631 in k7628 in k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in k3719 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_7426,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_7428,a[2]=t3,a[3]=((C_word)li66),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_7428(t5,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} /* recur in k7424 in k7420 in k7416 in k7646 in k7631 in k7628 in k7625 in k7619 in k7588 in k7579 in k7576 in k7397 in a7394 in k7831 in k7835 in k3737 in k3734 in k3731 in k3728 in k3725 in k3722 in ... */ static void C_fcall f_7428(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_7428,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_7467,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:641: reverse */ t11=*((C_word*)lf[43]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[674] = { {"f_10190:chicken_2dsyntax_2escm",(void*)f_10190}, {"f_7755:chicken_2dsyntax_2escm",(void*)f_7755}, {"f_11568:chicken_2dsyntax_2escm",(void*)f_11568}, {"f_11579:chicken_2dsyntax_2escm",(void*)f_11579}, {"f_6165:chicken_2dsyntax_2escm",(void*)f_6165}, {"f_11543:chicken_2dsyntax_2escm",(void*)f_11543}, {"f_6609:chicken_2dsyntax_2escm",(void*)f_6609}, {"f_9063:chicken_2dsyntax_2escm",(void*)f_9063}, {"f_8964:chicken_2dsyntax_2escm",(void*)f_8964}, {"f_9071:chicken_2dsyntax_2escm",(void*)f_9071}, {"f_11539:chicken_2dsyntax_2escm",(void*)f_11539}, {"f_9077:chicken_2dsyntax_2escm",(void*)f_9077}, {"f_7077:chicken_2dsyntax_2escm",(void*)f_7077}, {"f_9056:chicken_2dsyntax_2escm",(void*)f_9056}, {"f_9053:chicken_2dsyntax_2escm",(void*)f_9053}, {"f_9049:chicken_2dsyntax_2escm",(void*)f_9049}, {"f_9047:chicken_2dsyntax_2escm",(void*)f_9047}, {"f_11513:chicken_2dsyntax_2escm",(void*)f_11513}, {"f_7040:chicken_2dsyntax_2escm",(void*)f_7040}, {"f_11519:chicken_2dsyntax_2escm",(void*)f_11519}, {"f_6617:chicken_2dsyntax_2escm",(void*)f_6617}, {"f_6619:chicken_2dsyntax_2escm",(void*)f_6619}, {"f_6613:chicken_2dsyntax_2escm",(void*)f_6613}, {"f_8434:chicken_2dsyntax_2escm",(void*)f_8434}, {"f_8436:chicken_2dsyntax_2escm",(void*)f_8436}, {"f_7052:chicken_2dsyntax_2escm",(void*)f_7052}, {"f_7050:chicken_2dsyntax_2escm",(void*)f_7050}, {"f_6623:chicken_2dsyntax_2escm",(void*)f_6623}, {"f_6950:chicken_2dsyntax_2escm",(void*)f_6950}, {"f_3896:chicken_2dsyntax_2escm",(void*)f_3896}, {"f_9084:chicken_2dsyntax_2escm",(void*)f_9084}, {"f_3893:chicken_2dsyntax_2escm",(void*)f_3893}, {"f_6961:chicken_2dsyntax_2escm",(void*)f_6961}, {"f_10346:chicken_2dsyntax_2escm",(void*)f_10346}, {"f_3887:chicken_2dsyntax_2escm",(void*)f_3887}, {"f_3881:chicken_2dsyntax_2escm",(void*)f_3881}, {"f_3883:chicken_2dsyntax_2escm",(void*)f_3883}, {"f_9092:chicken_2dsyntax_2escm",(void*)f_9092}, {"f_6521:chicken_2dsyntax_2escm",(void*)f_6521}, {"f_11061:chicken_2dsyntax_2escm",(void*)f_11061}, {"f_11063:chicken_2dsyntax_2escm",(void*)f_11063}, {"f_6537:chicken_2dsyntax_2escm",(void*)f_6537}, {"f_11034:chicken_2dsyntax_2escm",(void*)f_11034}, {"f_6500:chicken_2dsyntax_2escm",(void*)f_6500}, {"f_6504:chicken_2dsyntax_2escm",(void*)f_6504}, {"f_6507:chicken_2dsyntax_2escm",(void*)f_6507}, {"f_6998:chicken_2dsyntax_2escm",(void*)f_6998}, {"f_10336:chicken_2dsyntax_2escm",(void*)f_10336}, {"f_11050:chicken_2dsyntax_2escm",(void*)f_11050}, {"f_10308:chicken_2dsyntax_2escm",(void*)f_10308}, {"f_6696:chicken_2dsyntax_2escm",(void*)f_6696}, {"f_6698:chicken_2dsyntax_2escm",(void*)f_6698}, {"f_6692:chicken_2dsyntax_2escm",(void*)f_6692}, {"f_6690:chicken_2dsyntax_2escm",(void*)f_6690}, {"f_4780:chicken_2dsyntax_2escm",(void*)f_4780}, {"f_3865:chicken_2dsyntax_2escm",(void*)f_3865}, {"f_9405:chicken_2dsyntax_2escm",(void*)f_9405}, {"f_9407:chicken_2dsyntax_2escm",(void*)f_9407}, {"f_5597:chicken_2dsyntax_2escm",(void*)f_5597}, {"f_3811:chicken_2dsyntax_2escm",(void*)f_3811}, {"f_3817:chicken_2dsyntax_2escm",(void*)f_3817}, {"f_3814:chicken_2dsyntax_2escm",(void*)f_3814}, {"f_4065:chicken_2dsyntax_2escm",(void*)f_4065}, {"f_3802:chicken_2dsyntax_2escm",(void*)f_3802}, {"f_5620:chicken_2dsyntax_2escm",(void*)f_5620}, {"f_3805:chicken_2dsyntax_2escm",(void*)f_3805}, {"f_3808:chicken_2dsyntax_2escm",(void*)f_3808}, {"f_3836:chicken_2dsyntax_2escm",(void*)f_3836}, {"f_3839:chicken_2dsyntax_2escm",(void*)f_3839}, {"f_4004:chicken_2dsyntax_2escm",(void*)f_4004}, {"f_4006:chicken_2dsyntax_2escm",(void*)f_4006}, {"f_5674:chicken_2dsyntax_2escm",(void*)f_5674}, {"f_5687:chicken_2dsyntax_2escm",(void*)f_5687}, {"f_6510:chicken_2dsyntax_2escm",(void*)f_6510}, {"f_10541:chicken_2dsyntax_2escm",(void*)f_10541}, {"f_3842:chicken_2dsyntax_2escm",(void*)f_3842}, {"f_5212:chicken_2dsyntax_2escm",(void*)f_5212}, {"f_5531:chicken_2dsyntax_2escm",(void*)f_5531}, {"f_4016:chicken_2dsyntax_2escm",(void*)f_4016}, {"f_4314:chicken_2dsyntax_2escm",(void*)f_4314}, {"f_4702:chicken_2dsyntax_2escm",(void*)f_4702}, {"f_5521:chicken_2dsyntax_2escm",(void*)f_5521}, {"f_10320:chicken_2dsyntax_2escm",(void*)f_10320}, {"f_10324:chicken_2dsyntax_2escm",(void*)f_10324}, {"f_9455:chicken_2dsyntax_2escm",(void*)f_9455}, {"f_4046:chicken_2dsyntax_2escm",(void*)f_4046}, {"f_5273:chicken_2dsyntax_2escm",(void*)f_5273}, {"f_4733:chicken_2dsyntax_2escm",(void*)f_4733}, {"f_4383:chicken_2dsyntax_2escm",(void*)f_4383}, {"f_4038:chicken_2dsyntax_2escm",(void*)f_4038}, {"f_4035:chicken_2dsyntax_2escm",(void*)f_4035}, {"f_4032:chicken_2dsyntax_2escm",(void*)f_4032}, {"f_5260:chicken_2dsyntax_2escm",(void*)f_5260}, {"f_5580:chicken_2dsyntax_2escm",(void*)f_5580}, {"f_4373:chicken_2dsyntax_2escm",(void*)f_4373}, {"f_4371:chicken_2dsyntax_2escm",(void*)f_4371}, {"f_4718:chicken_2dsyntax_2escm",(void*)f_4718}, {"f_5574:chicken_2dsyntax_2escm",(void*)f_5574}, {"f_5693:chicken_2dsyntax_2escm",(void*)f_5693}, {"f_4059:chicken_2dsyntax_2escm",(void*)f_4059}, {"f_4056:chicken_2dsyntax_2escm",(void*)f_4056}, {"f_4749:chicken_2dsyntax_2escm",(void*)f_4749}, {"f_5246:chicken_2dsyntax_2escm",(void*)f_5246}, {"f_4741:chicken_2dsyntax_2escm",(void*)f_4741}, {"f_5684:chicken_2dsyntax_2escm",(void*)f_5684}, {"f_3821:chicken_2dsyntax_2escm",(void*)f_3821}, {"f_3823:chicken_2dsyntax_2escm",(void*)f_3823}, {"f_3827:chicken_2dsyntax_2escm",(void*)f_3827}, {"f_6667:chicken_2dsyntax_2escm",(void*)f_6667}, {"f_4776:chicken_2dsyntax_2escm",(void*)f_4776}, {"f_5554:chicken_2dsyntax_2escm",(void*)f_5554}, {"f_5557:chicken_2dsyntax_2escm",(void*)f_5557}, {"f_6637:chicken_2dsyntax_2escm",(void*)f_6637}, {"f_4029:chicken_2dsyntax_2escm",(void*)f_4029}, {"f_4025:chicken_2dsyntax_2escm",(void*)f_4025}, {"f_4751:chicken_2dsyntax_2escm",(void*)f_4751}, {"f_8238:chicken_2dsyntax_2escm",(void*)f_8238}, {"f_8260:chicken_2dsyntax_2escm",(void*)f_8260}, {"f_5505:chicken_2dsyntax_2escm",(void*)f_5505}, {"f_8258:chicken_2dsyntax_2escm",(void*)f_8258}, {"f_8254:chicken_2dsyntax_2escm",(void*)f_8254}, {"f_9011:chicken_2dsyntax_2escm",(void*)f_9011}, {"f_8264:chicken_2dsyntax_2escm",(void*)f_8264}, {"f_8278:chicken_2dsyntax_2escm",(void*)f_8278}, {"f_5236:chicken_2dsyntax_2escm",(void*)f_5236}, {"f_8284:chicken_2dsyntax_2escm",(void*)f_8284}, {"f_4724:chicken_2dsyntax_2escm",(void*)f_4724}, {"f_5224:chicken_2dsyntax_2escm",(void*)f_5224}, {"f_5226:chicken_2dsyntax_2escm",(void*)f_5226}, {"f_4720:chicken_2dsyntax_2escm",(void*)f_4720}, {"f_5661:chicken_2dsyntax_2escm",(void*)f_5661}, {"f_5664:chicken_2dsyntax_2escm",(void*)f_5664}, {"f_5667:chicken_2dsyntax_2escm",(void*)f_5667}, {"f_5652:chicken_2dsyntax_2escm",(void*)f_5652}, {"f_5654:chicken_2dsyntax_2escm",(void*)f_5654}, {"f_5644:chicken_2dsyntax_2escm",(void*)f_5644}, {"f_5658:chicken_2dsyntax_2escm",(void*)f_5658}, {"f_7108:chicken_2dsyntax_2escm",(void*)f_7108}, {"f_7116:chicken_2dsyntax_2escm",(void*)f_7116}, {"f_7112:chicken_2dsyntax_2escm",(void*)f_7112}, {"f_7288:chicken_2dsyntax_2escm",(void*)f_7288}, {"f_7120:chicken_2dsyntax_2escm",(void*)f_7120}, {"f_7124:chicken_2dsyntax_2escm",(void*)f_7124}, {"f_7296:chicken_2dsyntax_2escm",(void*)f_7296}, {"f_7292:chicken_2dsyntax_2escm",(void*)f_7292}, {"f_7138:chicken_2dsyntax_2escm",(void*)f_7138}, {"f_7132:chicken_2dsyntax_2escm",(void*)f_7132}, {"f_7134:chicken_2dsyntax_2escm",(void*)f_7134}, {"f_8560:chicken_2dsyntax_2escm",(void*)f_8560}, {"f_7156:chicken_2dsyntax_2escm",(void*)f_7156}, {"f_7153:chicken_2dsyntax_2escm",(void*)f_7153}, {"f_8576:chicken_2dsyntax_2escm",(void*)f_8576}, {"f_7150:chicken_2dsyntax_2escm",(void*)f_7150}, {"f_7159:chicken_2dsyntax_2escm",(void*)f_7159}, {"f_8570:chicken_2dsyntax_2escm",(void*)f_8570}, {"f_8572:chicken_2dsyntax_2escm",(void*)f_8572}, {"f_11027:chicken_2dsyntax_2escm",(void*)f_11027}, {"f_8009:chicken_2dsyntax_2escm",(void*)f_8009}, {"f_8661:chicken_2dsyntax_2escm",(void*)f_8661}, {"f_7170:chicken_2dsyntax_2escm",(void*)f_7170}, {"f_7172:chicken_2dsyntax_2escm",(void*)f_7172}, {"f_8658:chicken_2dsyntax_2escm",(void*)f_8658}, {"f_8015:chicken_2dsyntax_2escm",(void*)f_8015}, {"f_11046:chicken_2dsyntax_2escm",(void*)f_11046}, {"f_8011:chicken_2dsyntax_2escm",(void*)f_8011}, {"f_11044:chicken_2dsyntax_2escm",(void*)f_11044}, {"f_8665:chicken_2dsyntax_2escm",(void*)f_8665}, {"f_10471:chicken_2dsyntax_2escm",(void*)f_10471}, {"f_8025:chicken_2dsyntax_2escm",(void*)f_8025}, {"f_11017:chicken_2dsyntax_2escm",(void*)f_11017}, {"f_7198:chicken_2dsyntax_2escm",(void*)f_7198}, {"f_8610:chicken_2dsyntax_2escm",(void*)f_8610}, {"f_8603:chicken_2dsyntax_2escm",(void*)f_8603}, {"f_3931:chicken_2dsyntax_2escm",(void*)f_3931}, {"f_10493:chicken_2dsyntax_2escm",(void*)f_10493}, {"f_9377:chicken_2dsyntax_2escm",(void*)f_9377}, {"f_8695:chicken_2dsyntax_2escm",(void*)f_8695}, {"f_10251:chicken_2dsyntax_2escm",(void*)f_10251}, {"f_9381:chicken_2dsyntax_2escm",(void*)f_9381}, {"f_8052:chicken_2dsyntax_2escm",(void*)f_8052}, {"f_10259:chicken_2dsyntax_2escm",(void*)f_10259}, {"f_8067:chicken_2dsyntax_2escm",(void*)f_8067}, {"f_9393:chicken_2dsyntax_2escm",(void*)f_9393}, {"f_10674:chicken_2dsyntax_2escm",(void*)f_10674}, {"f_3985:chicken_2dsyntax_2escm",(void*)f_3985}, {"f_10274:chicken_2dsyntax_2escm",(void*)f_10274}, {"f_8070:chicken_2dsyntax_2escm",(void*)f_8070}, {"f_10467:chicken_2dsyntax_2escm",(void*)f_10467}, {"f_3958:chicken_2dsyntax_2escm",(void*)f_3958}, {"f_9329:chicken_2dsyntax_2escm",(void*)f_9329}, {"f_10277:chicken_2dsyntax_2escm",(void*)f_10277}, {"f_8582:chicken_2dsyntax_2escm",(void*)f_8582}, {"f_10452:chicken_2dsyntax_2escm",(void*)f_10452}, {"f_8086:chicken_2dsyntax_2escm",(void*)f_8086}, {"f_10262:chicken_2dsyntax_2escm",(void*)f_10262}, {"f_10613:chicken_2dsyntax_2escm",(void*)f_10613}, {"f_11077:chicken_2dsyntax_2escm",(void*)f_11077}, {"f_11075:chicken_2dsyntax_2escm",(void*)f_11075}, {"f_10266:chicken_2dsyntax_2escm",(void*)f_10266}, {"f_10483:chicken_2dsyntax_2escm",(void*)f_10483}, {"f_3924:chicken_2dsyntax_2escm",(void*)f_3924}, {"f_3920:chicken_2dsyntax_2escm",(void*)f_3920}, {"f_10624:chicken_2dsyntax_2escm",(void*)f_10624}, {"f_10622:chicken_2dsyntax_2escm",(void*)f_10622}, {"f_10284:chicken_2dsyntax_2escm",(void*)f_10284}, {"f_8677:chicken_2dsyntax_2escm",(void*)f_8677}, {"f_8673:chicken_2dsyntax_2escm",(void*)f_8673}, {"f_8684:chicken_2dsyntax_2escm",(void*)f_8684}, {"f_8683:chicken_2dsyntax_2escm",(void*)f_8683}, {"f_3960:chicken_2dsyntax_2escm",(void*)f_3960}, {"f_9301:chicken_2dsyntax_2escm",(void*)f_9301}, {"f_8210:chicken_2dsyntax_2escm",(void*)f_8210}, {"f_8212:chicken_2dsyntax_2escm",(void*)f_8212}, {"f_11081:chicken_2dsyntax_2escm",(void*)f_11081}, {"f_11493:chicken_2dsyntax_2escm",(void*)f_11493}, {"f_9318:chicken_2dsyntax_2escm",(void*)f_9318}, {"f_6073:chicken_2dsyntax_2escm",(void*)f_6073}, {"f_8216:chicken_2dsyntax_2escm",(void*)f_8216}, {"f_8219:chicken_2dsyntax_2escm",(void*)f_8219}, {"f_10606:chicken_2dsyntax_2escm",(void*)f_10606}, {"f_10998:chicken_2dsyntax_2escm",(void*)f_10998}, {"f_7209:chicken_2dsyntax_2escm",(void*)f_7209}, {"f_6285:chicken_2dsyntax_2escm",(void*)f_6285}, {"f_6287:chicken_2dsyntax_2escm",(void*)f_6287}, {"f_9258:chicken_2dsyntax_2escm",(void*)f_9258}, {"f_11478:chicken_2dsyntax_2escm",(void*)f_11478}, {"f_6704:chicken_2dsyntax_2escm",(void*)f_6704}, {"f_11474:chicken_2dsyntax_2escm",(void*)f_11474}, {"f_9252:chicken_2dsyntax_2escm",(void*)f_9252}, {"f_8633:chicken_2dsyntax_2escm",(void*)f_8633}, {"f_9262:chicken_2dsyntax_2escm",(void*)f_9262}, {"f_9234:chicken_2dsyntax_2escm",(void*)f_9234}, {"f_8637:chicken_2dsyntax_2escm",(void*)f_8637}, {"f_6733:chicken_2dsyntax_2escm",(void*)f_6733}, {"f_6730:chicken_2dsyntax_2escm",(void*)f_6730}, {"f_6736:chicken_2dsyntax_2escm",(void*)f_6736}, {"f_6739:chicken_2dsyntax_2escm",(void*)f_6739}, {"f_9244:chicken_2dsyntax_2escm",(void*)f_9244}, {"f_9240:chicken_2dsyntax_2escm",(void*)f_9240}, {"f_6742:chicken_2dsyntax_2escm",(void*)f_6742}, {"f_6745:chicken_2dsyntax_2escm",(void*)f_6745}, {"f_6748:chicken_2dsyntax_2escm",(void*)f_6748}, {"f_8516:chicken_2dsyntax_2escm",(void*)f_8516}, {"f_8518:chicken_2dsyntax_2escm",(void*)f_8518}, {"f_3787:chicken_2dsyntax_2escm",(void*)f_3787}, {"f_3781:chicken_2dsyntax_2escm",(void*)f_3781}, {"f_3784:chicken_2dsyntax_2escm",(void*)f_3784}, {"f_6718:chicken_2dsyntax_2escm",(void*)f_6718}, {"f_9277:chicken_2dsyntax_2escm",(void*)f_9277}, {"f_8522:chicken_2dsyntax_2escm",(void*)f_8522}, {"f_6722:chicken_2dsyntax_2escm",(void*)f_6722}, {"f_10013:chicken_2dsyntax_2escm",(void*)f_10013}, {"f_8535:chicken_2dsyntax_2escm",(void*)f_8535}, {"f_9273:chicken_2dsyntax_2escm",(void*)f_9273}, {"f_9270:chicken_2dsyntax_2escm",(void*)f_9270}, {"f_8530:chicken_2dsyntax_2escm",(void*)f_8530}, {"f_9288:chicken_2dsyntax_2escm",(void*)f_9288}, {"f_6779:chicken_2dsyntax_2escm",(void*)f_6779}, {"f_5030:chicken_2dsyntax_2escm",(void*)f_5030}, {"f_9285:chicken_2dsyntax_2escm",(void*)f_9285}, {"f_5027:chicken_2dsyntax_2escm",(void*)f_5027}, {"f_6205:chicken_2dsyntax_2escm",(void*)f_6205}, {"f_3799:chicken_2dsyntax_2escm",(void*)f_3799}, {"f_3796:chicken_2dsyntax_2escm",(void*)f_3796}, {"f_3790:chicken_2dsyntax_2escm",(void*)f_3790}, {"f_6781:chicken_2dsyntax_2escm",(void*)f_6781}, {"f_3793:chicken_2dsyntax_2escm",(void*)f_3793}, {"f_11231:chicken_2dsyntax_2escm",(void*)f_11231}, {"f_11234:chicken_2dsyntax_2escm",(void*)f_11234}, {"f_6213:chicken_2dsyntax_2escm",(void*)f_6213}, {"f_6215:chicken_2dsyntax_2escm",(void*)f_6215}, {"f_6219:chicken_2dsyntax_2escm",(void*)f_6219}, {"f_11240:chicken_2dsyntax_2escm",(void*)f_11240}, {"f_11244:chicken_2dsyntax_2escm",(void*)f_11244}, {"f_11237:chicken_2dsyntax_2escm",(void*)f_11237}, {"f_5088:chicken_2dsyntax_2escm",(void*)f_5088}, {"f_6271:chicken_2dsyntax_2escm",(void*)f_6271}, {"f_5078:chicken_2dsyntax_2escm",(void*)f_5078}, {"f_11327:chicken_2dsyntax_2escm",(void*)f_11327}, {"f_11329:chicken_2dsyntax_2escm",(void*)f_11329}, {"f_5076:chicken_2dsyntax_2escm",(void*)f_5076}, {"f_6240:chicken_2dsyntax_2escm",(void*)f_6240}, {"f_6246:chicken_2dsyntax_2escm",(void*)f_6246}, {"f_6243:chicken_2dsyntax_2escm",(void*)f_6243}, {"f_4882:chicken_2dsyntax_2escm",(void*)f_4882}, {"f_4887:chicken_2dsyntax_2escm",(void*)f_4887}, {"f_5488:chicken_2dsyntax_2escm",(void*)f_5488}, {"f_3702:chicken_2dsyntax_2escm",(void*)f_3702}, {"f_3705:chicken_2dsyntax_2escm",(void*)f_3705}, {"f_6795:chicken_2dsyntax_2escm",(void*)f_6795}, {"f_3708:chicken_2dsyntax_2escm",(void*)f_3708}, {"f_6791:chicken_2dsyntax_2escm",(void*)f_6791}, {"f_5924:chicken_2dsyntax_2escm",(void*)f_5924}, {"f_9602:chicken_2dsyntax_2escm",(void*)f_9602}, {"f_4224:chicken_2dsyntax_2escm",(void*)f_4224}, {"f_5485:chicken_2dsyntax_2escm",(void*)f_5485}, {"f_3775:chicken_2dsyntax_2escm",(void*)f_3775}, {"f_3772:chicken_2dsyntax_2escm",(void*)f_3772}, {"f_3778:chicken_2dsyntax_2escm",(void*)f_3778}, {"f_5918:chicken_2dsyntax_2escm",(void*)f_5918}, {"f_3721:chicken_2dsyntax_2escm",(void*)f_3721}, {"f_3724:chicken_2dsyntax_2escm",(void*)f_3724}, {"f_3727:chicken_2dsyntax_2escm",(void*)f_3727}, {"f_9906:chicken_2dsyntax_2escm",(void*)f_9906}, {"f_4894:chicken_2dsyntax_2escm",(void*)f_4894}, {"f_10022:chicken_2dsyntax_2escm",(void*)f_10022}, {"f_4897:chicken_2dsyntax_2escm",(void*)f_4897}, {"f_9954:chicken_2dsyntax_2escm",(void*)f_9954}, {"f_4400:chicken_2dsyntax_2escm",(void*)f_4400}, {"f_3711:chicken_2dsyntax_2escm",(void*)f_3711}, {"f_3714:chicken_2dsyntax_2escm",(void*)f_3714}, {"f_3718:chicken_2dsyntax_2escm",(void*)f_3718}, {"f_9634:chicken_2dsyntax_2escm",(void*)f_9634}, {"f_3745:chicken_2dsyntax_2escm",(void*)f_3745}, {"f_3742:chicken_2dsyntax_2escm",(void*)f_3742}, {"f_3748:chicken_2dsyntax_2escm",(void*)f_3748}, {"f_10128:chicken_2dsyntax_2escm",(void*)f_10128}, {"f_10126:chicken_2dsyntax_2escm",(void*)f_10126}, {"f_9644:chicken_2dsyntax_2escm",(void*)f_9644}, {"f_10047:chicken_2dsyntax_2escm",(void*)f_10047}, {"f_4199:chicken_2dsyntax_2escm",(void*)f_4199}, {"f_4197:chicken_2dsyntax_2escm",(void*)f_4197}, {"f_9618:chicken_2dsyntax_2escm",(void*)f_9618}, {"f_4421:chicken_2dsyntax_2escm",(void*)f_4421}, {"f_10132:chicken_2dsyntax_2escm",(void*)f_10132}, {"f_10056:chicken_2dsyntax_2escm",(void*)f_10056}, {"f_3763:chicken_2dsyntax_2escm",(void*)f_3763}, {"f_3766:chicken_2dsyntax_2escm",(void*)f_3766}, {"f_3760:chicken_2dsyntax_2escm",(void*)f_3760}, {"f_10141:chicken_2dsyntax_2escm",(void*)f_10141}, {"f_3769:chicken_2dsyntax_2escm",(void*)f_3769}, {"f_10147:chicken_2dsyntax_2escm",(void*)f_10147}, {"f_10144:chicken_2dsyntax_2escm",(void*)f_10144}, {"f_9622:chicken_2dsyntax_2escm",(void*)f_9622}, {"f_5459:chicken_2dsyntax_2escm",(void*)f_5459}, {"f_4441:chicken_2dsyntax_2escm",(void*)f_4441}, {"f_3754:chicken_2dsyntax_2escm",(void*)f_3754}, {"f_3751:chicken_2dsyntax_2escm",(void*)f_3751}, {"f_10150:chicken_2dsyntax_2escm",(void*)f_10150}, {"f_3757:chicken_2dsyntax_2escm",(void*)f_3757}, {"f_4439:chicken_2dsyntax_2escm",(void*)f_4439}, {"f_4164:chicken_2dsyntax_2escm",(void*)f_4164}, {"f_5453:chicken_2dsyntax_2escm",(void*)f_5453}, {"f_5455:chicken_2dsyntax_2escm",(void*)f_5455}, {"f_4431:chicken_2dsyntax_2escm",(void*)f_4431}, {"f_4160:chicken_2dsyntax_2escm",(void*)f_4160}, {"f_6222:chicken_2dsyntax_2escm",(void*)f_6222}, {"f_7575:chicken_2dsyntax_2escm",(void*)f_7575}, {"f_6225:chicken_2dsyntax_2escm",(void*)f_6225}, {"f_6228:chicken_2dsyntax_2escm",(void*)f_6228}, {"f_7578:chicken_2dsyntax_2escm",(void*)f_7578}, {"f_5994:chicken_2dsyntax_2escm",(void*)f_5994}, {"f_4826:chicken_2dsyntax_2escm",(void*)f_4826}, {"f_4828:chicken_2dsyntax_2escm",(void*)f_4828}, {"f_4297:chicken_2dsyntax_2escm",(void*)f_4297}, {"f_6231:chicken_2dsyntax_2escm",(void*)f_6231}, {"f_6234:chicken_2dsyntax_2escm",(void*)f_6234}, {"f_6236:chicken_2dsyntax_2escm",(void*)f_6236}, {"f_5468:chicken_2dsyntax_2escm",(void*)f_5468}, {"f_9988:chicken_2dsyntax_2escm",(void*)f_9988}, {"f_5465:chicken_2dsyntax_2escm",(void*)f_5465}, {"f_5462:chicken_2dsyntax_2escm",(void*)f_5462}, {"f_5973:chicken_2dsyntax_2escm",(void*)f_5973}, {"f_5494:chicken_2dsyntax_2escm",(void*)f_5494}, {"f_7567:chicken_2dsyntax_2escm",(void*)f_7567}, {"f_6751:chicken_2dsyntax_2escm",(void*)f_6751}, {"f_6754:chicken_2dsyntax_2escm",(void*)f_6754}, {"f_6757:chicken_2dsyntax_2escm",(void*)f_6757}, {"f_3730:chicken_2dsyntax_2escm",(void*)f_3730}, {"f_3733:chicken_2dsyntax_2escm",(void*)f_3733}, {"f_3736:chicken_2dsyntax_2escm",(void*)f_3736}, {"f_3739:chicken_2dsyntax_2escm",(void*)f_3739}, {"f_6760:chicken_2dsyntax_2escm",(void*)f_6760}, {"f_6767:chicken_2dsyntax_2escm",(void*)f_6767}, {"f_9692:chicken_2dsyntax_2escm",(void*)f_9692}, {"f_5475:chicken_2dsyntax_2escm",(void*)f_5475}, {"f_7581:chicken_2dsyntax_2escm",(void*)f_7581}, {"f_4100:chicken_2dsyntax_2escm",(void*)f_4100}, {"f_4102:chicken_2dsyntax_2escm",(void*)f_4102}, {"f_9219:chicken_2dsyntax_2escm",(void*)f_9219}, {"f_7559:chicken_2dsyntax_2escm",(void*)f_7559}, {"f_9211:chicken_2dsyntax_2escm",(void*)f_9211}, {"f_8357:chicken_2dsyntax_2escm",(void*)f_8357}, {"f_9222:chicken_2dsyntax_2escm",(void*)f_9222}, {"f_9225:chicken_2dsyntax_2escm",(void*)f_9225}, {"f_8326:chicken_2dsyntax_2escm",(void*)f_8326}, {"f_8328:chicken_2dsyntax_2escm",(void*)f_8328}, {"f_8376:chicken_2dsyntax_2escm",(void*)f_8376}, {"f_7599:chicken_2dsyntax_2escm",(void*)f_7599}, {"f_7591:chicken_2dsyntax_2escm",(void*)f_7591}, {"f_7590:chicken_2dsyntax_2escm",(void*)f_7590}, {"f_4835:chicken_2dsyntax_2escm",(void*)f_4835}, {"f_4832:chicken_2dsyntax_2escm",(void*)f_4832}, {"f_9979:chicken_2dsyntax_2escm",(void*)f_9979}, {"f_5004:chicken_2dsyntax_2escm",(void*)f_5004}, {"f_5001:chicken_2dsyntax_2escm",(void*)f_5001}, {"f_5943:chicken_2dsyntax_2escm",(void*)f_5943}, {"f_5931:chicken_2dsyntax_2escm",(void*)f_5931}, {"f_5935:chicken_2dsyntax_2escm",(void*)f_5935}, {"f_5939:chicken_2dsyntax_2escm",(void*)f_5939}, {"f_7905:chicken_2dsyntax_2escm",(void*)f_7905}, {"f_7908:chicken_2dsyntax_2escm",(void*)f_7908}, {"f_4467:chicken_2dsyntax_2escm",(void*)f_4467}, {"f_7919:chicken_2dsyntax_2escm",(void*)f_7919}, {"f_4241:chicken_2dsyntax_2escm",(void*)f_4241}, {"f_4243:chicken_2dsyntax_2escm",(void*)f_4243}, {"f_7899:chicken_2dsyntax_2escm",(void*)f_7899}, {"f_4457:chicken_2dsyntax_2escm",(void*)f_4457}, {"f_7926:chicken_2dsyntax_2escm",(void*)f_7926}, {"f_7922:chicken_2dsyntax_2escm",(void*)f_7922}, {"f_4261:chicken_2dsyntax_2escm",(void*)f_4261}, {"f_7874:chicken_2dsyntax_2escm",(void*)f_7874}, {"f_7872:chicken_2dsyntax_2escm",(void*)f_7872}, {"f_7941:chicken_2dsyntax_2escm",(void*)f_7941}, {"f_7948:chicken_2dsyntax_2escm",(void*)f_7948}, {"f_4906:chicken_2dsyntax_2escm",(void*)f_4906}, {"f_7843:chicken_2dsyntax_2escm",(void*)f_7843}, {"f_7841:chicken_2dsyntax_2escm",(void*)f_7841}, {"f_7847:chicken_2dsyntax_2escm",(void*)f_7847}, {"f_8712:chicken_2dsyntax_2escm",(void*)f_8712}, {"f_8710:chicken_2dsyntax_2escm",(void*)f_8710}, {"f_7855:chicken_2dsyntax_2escm",(void*)f_7855}, {"f_7858:chicken_2dsyntax_2escm",(void*)f_7858}, {"f_7833:chicken_2dsyntax_2escm",(void*)f_7833}, {"f_8106:chicken_2dsyntax_2escm",(void*)f_8106}, {"f_8108:chicken_2dsyntax_2escm",(void*)f_8108}, {"f_7837:chicken_2dsyntax_2escm",(void*)f_7837}, {"f_11377:chicken_2dsyntax_2escm",(void*)f_11377}, {"f_10694:chicken_2dsyntax_2escm",(void*)f_10694}, {"f_11304:chicken_2dsyntax_2escm",(void*)f_11304}, {"f_8114:chicken_2dsyntax_2escm",(void*)f_8114}, {"f_8110:chicken_2dsyntax_2escm",(void*)f_8110}, {"f_10688:chicken_2dsyntax_2escm",(void*)f_10688}, {"f_11351:chicken_2dsyntax_2escm",(void*)f_11351}, {"f_8123:chicken_2dsyntax_2escm",(void*)f_8123}, {"f_8126:chicken_2dsyntax_2escm",(void*)f_8126}, {"f_8833:chicken_2dsyntax_2escm",(void*)f_8833}, {"f_8135:chicken_2dsyntax_2escm",(void*)f_8135}, {"f_11365:chicken_2dsyntax_2escm",(void*)f_11365}, {"f_11223:chicken_2dsyntax_2escm",(void*)f_11223}, {"f_11219:chicken_2dsyntax_2escm",(void*)f_11219}, {"f_11217:chicken_2dsyntax_2escm",(void*)f_11217}, {"f_10742:chicken_2dsyntax_2escm",(void*)f_10742}, {"f_8796:chicken_2dsyntax_2escm",(void*)f_8796}, {"f_8155:chicken_2dsyntax_2escm",(void*)f_8155}, {"f_11348:chicken_2dsyntax_2escm",(void*)f_11348}, {"f_11345:chicken_2dsyntax_2escm",(void*)f_11345}, {"f_8151:chicken_2dsyntax_2escm",(void*)f_8151}, {"f_10394:chicken_2dsyntax_2escm",(void*)f_10394}, {"f_7535:chicken_2dsyntax_2escm",(void*)f_7535}, {"f_7509:chicken_2dsyntax_2escm",(void*)f_7509}, {"f_10776:chicken_2dsyntax_2escm",(void*)f_10776}, {"f_8895:chicken_2dsyntax_2escm",(void*)f_8895}, {"f_11272:chicken_2dsyntax_2escm",(void*)f_11272}, {"f_8198:chicken_2dsyntax_2escm",(void*)f_8198}, {"f_11381:chicken_2dsyntax_2escm",(void*)f_11381}, {"f_10597:chicken_2dsyntax_2escm",(void*)f_10597}, {"f_8772:chicken_2dsyntax_2escm",(void*)f_8772}, {"f_7861:chicken_2dsyntax_2escm",(void*)f_7861}, {"f_8785:chicken_2dsyntax_2escm",(void*)f_8785}, {"f_8316:chicken_2dsyntax_2escm",(void*)f_8316}, {"f_8312:chicken_2dsyntax_2escm",(void*)f_8312}, {"f_7959:chicken_2dsyntax_2escm",(void*)f_7959}, {"f_7961:chicken_2dsyntax_2escm",(void*)f_7961}, {"f_8306:chicken_2dsyntax_2escm",(void*)f_8306}, {"f_10090:chicken_2dsyntax_2escm",(void*)f_10090}, {"f_6398:chicken_2dsyntax_2escm",(void*)f_6398}, {"f_6391:chicken_2dsyntax_2escm",(void*)f_6391}, {"f_6498:chicken_2dsyntax_2escm",(void*)f_6498}, {"f_6490:chicken_2dsyntax_2escm",(void*)f_6490}, {"f_6811:chicken_2dsyntax_2escm",(void*)f_6811}, {"f_6819:chicken_2dsyntax_2escm",(void*)f_6819}, {"f_9123:chicken_2dsyntax_2escm",(void*)f_9123}, {"f_8861:chicken_2dsyntax_2escm",(void*)f_8861}, {"f_6821:chicken_2dsyntax_2escm",(void*)f_6821}, {"f_6825:chicken_2dsyntax_2escm",(void*)f_6825}, {"f_9172:chicken_2dsyntax_2escm",(void*)f_9172}, {"f_8739:chicken_2dsyntax_2escm",(void*)f_8739}, {"f_8731:chicken_2dsyntax_2escm",(void*)f_8731}, {"f_9144:chicken_2dsyntax_2escm",(void*)f_9144}, {"f_9140:chicken_2dsyntax_2escm",(void*)f_9140}, {"f_8745:chicken_2dsyntax_2escm",(void*)f_8745}, {"f_8747:chicken_2dsyntax_2escm",(void*)f_8747}, {"f_6809:chicken_2dsyntax_2escm",(void*)f_6809}, {"f_6805:chicken_2dsyntax_2escm",(void*)f_6805}, {"f_9190:chicken_2dsyntax_2escm",(void*)f_9190}, {"f_9192:chicken_2dsyntax_2escm",(void*)f_9192}, {"f_9166:chicken_2dsyntax_2escm",(void*)f_9166}, {"f_9168:chicken_2dsyntax_2escm",(void*)f_9168}, {"f_5141:chicken_2dsyntax_2escm",(void*)f_5141}, {"f_5148:chicken_2dsyntax_2escm",(void*)f_5148}, {"f_6447:chicken_2dsyntax_2escm",(void*)f_6447}, {"f_5132:chicken_2dsyntax_2escm",(void*)f_5132}, {"f_10233:chicken_2dsyntax_2escm",(void*)f_10233}, {"f_3696:chicken_2dsyntax_2escm",(void*)f_3696}, {"f_3699:chicken_2dsyntax_2escm",(void*)f_3699}, {"f_11167:chicken_2dsyntax_2escm",(void*)f_11167}, {"f_3690:chicken_2dsyntax_2escm",(void*)f_3690}, {"f_3693:chicken_2dsyntax_2escm",(void*)f_3693}, {"f_5123:chicken_2dsyntax_2escm",(void*)f_5123}, {"f_11130:chicken_2dsyntax_2escm",(void*)f_11130}, {"f_10247:chicken_2dsyntax_2escm",(void*)f_10247}, {"f_5126:chicken_2dsyntax_2escm",(void*)f_5126}, {"f_6422:chicken_2dsyntax_2escm",(void*)f_6422}, {"f_6897:chicken_2dsyntax_2escm",(void*)f_6897}, {"f_5117:chicken_2dsyntax_2escm",(void*)f_5117}, {"f_5182:chicken_2dsyntax_2escm",(void*)f_5182}, {"f_5700:chicken_2dsyntax_2escm",(void*)f_5700}, {"f_6486:chicken_2dsyntax_2escm",(void*)f_6486}, {"f_5176:chicken_2dsyntax_2escm",(void*)f_5176}, {"f_5173:chicken_2dsyntax_2escm",(void*)f_5173}, {"f_5380:chicken_2dsyntax_2escm",(void*)f_5380}, {"f_5388:chicken_2dsyntax_2escm",(void*)f_5388}, {"f_5162:chicken_2dsyntax_2escm",(void*)f_5162}, {"f_10200:chicken_2dsyntax_2escm",(void*)f_10200}, {"f_10207:chicken_2dsyntax_2escm",(void*)f_10207}, {"f_6366:chicken_2dsyntax_2escm",(void*)f_6366}, {"f_4682:chicken_2dsyntax_2escm",(void*)f_4682}, {"f_4686:chicken_2dsyntax_2escm",(void*)f_4686}, {"f_5824:chicken_2dsyntax_2escm",(void*)f_5824}, {"f_5749:chicken_2dsyntax_2escm",(void*)f_5749}, {"f_5390:chicken_2dsyntax_2escm",(void*)f_5390}, {"f_9740:chicken_2dsyntax_2escm",(void*)f_9740}, {"f_5394:chicken_2dsyntax_2escm",(void*)f_5394}, {"f_9747:chicken_2dsyntax_2escm",(void*)f_9747}, {"f_9503:chicken_2dsyntax_2escm",(void*)f_9503}, {"f_9858:chicken_2dsyntax_2escm",(void*)f_9858}, {"f_9510:chicken_2dsyntax_2escm",(void*)f_9510}, {"f_5726:chicken_2dsyntax_2escm",(void*)f_5726}, {"f_5191:chicken_2dsyntax_2escm",(void*)f_5191}, {"f_5198:chicken_2dsyntax_2escm",(void*)f_5198}, {"f_5716:chicken_2dsyntax_2escm",(void*)f_5716}, {"f_5862:chicken_2dsyntax_2escm",(void*)f_5862}, {"f_5865:chicken_2dsyntax_2escm",(void*)f_5865}, {"f_3668:chicken_2dsyntax_2escm",(void*)f_3668}, {"f_4590:chicken_2dsyntax_2escm",(void*)f_4590}, {"f_6402:chicken_2dsyntax_2escm",(void*)f_6402}, {"f_5853:chicken_2dsyntax_2escm",(void*)f_5853}, {"f_5856:chicken_2dsyntax_2escm",(void*)f_5856}, {"f_5775:chicken_2dsyntax_2escm",(void*)f_5775}, {"f_4576:chicken_2dsyntax_2escm",(void*)f_4576}, {"f_3687:chicken_2dsyntax_2escm",(void*)f_3687}, {"f_3681:chicken_2dsyntax_2escm",(void*)f_3681}, {"f_3684:chicken_2dsyntax_2escm",(void*)f_3684}, {"f_5334:chicken_2dsyntax_2escm",(void*)f_5334}, {"f_4569:chicken_2dsyntax_2escm",(void*)f_4569}, {"f_10214:chicken_2dsyntax_2escm",(void*)f_10214}, {"f_3675:chicken_2dsyntax_2escm",(void*)f_3675}, {"f_3672:chicken_2dsyntax_2escm",(void*)f_3672}, {"f_3678:chicken_2dsyntax_2escm",(void*)f_3678}, {"f_4560:chicken_2dsyntax_2escm",(void*)f_4560}, {"f_5365:chicken_2dsyntax_2escm",(void*)f_5365}, {"f_5361:chicken_2dsyntax_2escm",(void*)f_5361}, {"f_4604:chicken_2dsyntax_2escm",(void*)f_4604}, {"f_7343:chicken_2dsyntax_2escm",(void*)f_7343}, {"f_4554:chicken_2dsyntax_2escm",(void*)f_4554}, {"f_10227:chicken_2dsyntax_2escm",(void*)f_10227}, {"f_10229:chicken_2dsyntax_2escm",(void*)f_10229}, {"f_5899:chicken_2dsyntax_2escm",(void*)f_5899}, {"f_5897:chicken_2dsyntax_2escm",(void*)f_5897}, {"f_4551:chicken_2dsyntax_2escm",(void*)f_4551}, {"f_4638:chicken_2dsyntax_2escm",(void*)f_4638}, {"f_7353:chicken_2dsyntax_2escm",(void*)f_7353}, {"toplevel:chicken_2dsyntax_2escm",(void*)C_chicken_2dsyntax_toplevel}, {"f_4545:chicken_2dsyntax_2escm",(void*)f_4545}, {"f_9580:chicken_2dsyntax_2escm",(void*)f_9580}, {"f_5344:chicken_2dsyntax_2escm",(void*)f_5344}, {"f_5342:chicken_2dsyntax_2escm",(void*)f_5342}, {"f_5348:chicken_2dsyntax_2escm",(void*)f_5348}, {"f_4626:chicken_2dsyntax_2escm",(void*)f_4626}, {"f_6847:chicken_2dsyntax_2escm",(void*)f_6847}, {"f_6849:chicken_2dsyntax_2escm",(void*)f_6849}, {"f_9598:chicken_2dsyntax_2escm",(void*)f_9598}, {"f_5372:chicken_2dsyntax_2escm",(void*)f_5372}, {"f_5874:chicken_2dsyntax_2escm",(void*)f_5874}, {"f_7377:chicken_2dsyntax_2escm",(void*)f_7377}, {"f_4953:chicken_2dsyntax_2escm",(void*)f_4953}, {"f_4649:chicken_2dsyntax_2escm",(void*)f_4649}, {"f_7381:chicken_2dsyntax_2escm",(void*)f_7381}, {"f_7385:chicken_2dsyntax_2escm",(void*)f_7385}, {"f_9810:chicken_2dsyntax_2escm",(void*)f_9810}, {"f_5359:chicken_2dsyntax_2escm",(void*)f_5359}, {"f_7399:chicken_2dsyntax_2escm",(void*)f_7399}, {"f_7393:chicken_2dsyntax_2escm",(void*)f_7393}, {"f_7395:chicken_2dsyntax_2escm",(void*)f_7395}, {"f_4501:chicken_2dsyntax_2escm",(void*)f_4501}, {"f_4978:chicken_2dsyntax_2escm",(void*)f_4978}, {"f_4680:chicken_2dsyntax_2escm",(void*)f_4680}, {"f_9117:chicken_2dsyntax_2escm",(void*)f_9117}, {"f_9119:chicken_2dsyntax_2escm",(void*)f_9119}, {"f_4989:chicken_2dsyntax_2escm",(void*)f_4989}, {"f_4998:chicken_2dsyntax_2escm",(void*)f_4998}, {"f_4995:chicken_2dsyntax_2escm",(void*)f_4995}, {"f_9138:chicken_2dsyntax_2escm",(void*)f_9138}, {"f_9102:chicken_2dsyntax_2escm",(void*)f_9102}, {"f_4951:chicken_2dsyntax_2escm",(void*)f_4951}, {"f_5321:chicken_2dsyntax_2escm",(void*)f_5321}, {"f_7449:chicken_2dsyntax_2escm",(void*)f_7449}, {"f_5323:chicken_2dsyntax_2escm",(void*)f_5323}, {"f_5327:chicken_2dsyntax_2escm",(void*)f_5327}, {"f_5101:chicken_2dsyntax_2escm",(void*)f_5101}, {"f_7721:chicken_2dsyntax_2escm",(void*)f_7721}, {"f_4610:chicken_2dsyntax_2escm",(void*)f_4610}, {"f_7615:chicken_2dsyntax_2escm",(void*)f_7615}, {"f_4991:chicken_2dsyntax_2escm",(void*)f_4991}, {"f_4601:chicken_2dsyntax_2escm",(void*)f_4601}, {"f_5838:chicken_2dsyntax_2escm",(void*)f_5838}, {"f_7621:chicken_2dsyntax_2escm",(void*)f_7621}, {"f_5769:chicken_2dsyntax_2escm",(void*)f_5769}, {"f_7627:chicken_2dsyntax_2escm",(void*)f_7627}, {"f_4619:chicken_2dsyntax_2escm",(void*)f_4619}, {"f_5832:chicken_2dsyntax_2escm",(void*)f_5832}, {"f_5834:chicken_2dsyntax_2escm",(void*)f_5834}, {"f_5752:chicken_2dsyntax_2escm",(void*)f_5752}, {"f_7603:chicken_2dsyntax_2escm",(void*)f_7603}, {"f_7607:chicken_2dsyntax_2escm",(void*)f_7607}, {"f_7418:chicken_2dsyntax_2escm",(void*)f_7418}, {"f_7651:chicken_2dsyntax_2escm",(void*)f_7651}, {"f_7654:chicken_2dsyntax_2escm",(void*)f_7654}, {"f_7467:chicken_2dsyntax_2escm",(void*)f_7467}, {"f_7661:chicken_2dsyntax_2escm",(void*)f_7661}, {"f_7475:chicken_2dsyntax_2escm",(void*)f_7475}, {"f_7479:chicken_2dsyntax_2escm",(void*)f_7479}, {"f_7712:chicken_2dsyntax_2escm",(void*)f_7712}, {"f_8446:chicken_2dsyntax_2escm",(void*)f_8446}, {"f_8440:chicken_2dsyntax_2escm",(void*)f_8440}, {"f_11124:chicken_2dsyntax_2escm",(void*)f_11124}, {"f_8410:chicken_2dsyntax_2escm",(void*)f_8410}, {"f_11126:chicken_2dsyntax_2escm",(void*)f_11126}, {"f_8926:chicken_2dsyntax_2escm",(void*)f_8926}, {"f_10898:chicken_2dsyntax_2escm",(void*)f_10898}, {"f_7489:chicken_2dsyntax_2escm",(void*)f_7489}, {"f_8480:chicken_2dsyntax_2escm",(void*)f_8480}, {"f_11152:chicken_2dsyntax_2escm",(void*)f_11152}, {"f_10882:chicken_2dsyntax_2escm",(void*)f_10882}, {"f_10880:chicken_2dsyntax_2escm",(void*)f_10880}, {"f_8939:chicken_2dsyntax_2escm",(void*)f_8939}, {"f_10886:chicken_2dsyntax_2escm",(void*)f_10886}, {"f_7687:chicken_2dsyntax_2escm",(void*)f_7687}, {"f_8933:chicken_2dsyntax_2escm",(void*)f_8933}, {"f_7495:chicken_2dsyntax_2escm",(void*)f_7495}, {"f_7789:chicken_2dsyntax_2escm",(void*)f_7789}, {"f_10844:chicken_2dsyntax_2escm",(void*)f_10844}, {"f_7780:chicken_2dsyntax_2escm",(void*)f_7780}, {"f_10179:chicken_2dsyntax_2escm",(void*)f_10179}, {"f_7304:chicken_2dsyntax_2escm",(void*)f_7304}, {"f_7306:chicken_2dsyntax_2escm",(void*)f_7306}, {"f_8973:chicken_2dsyntax_2escm",(void*)f_8973}, {"f_10957:chicken_2dsyntax_2escm",(void*)f_10957}, {"f_10955:chicken_2dsyntax_2escm",(void*)f_10955}, {"f_7310:chicken_2dsyntax_2escm",(void*)f_7310}, {"f_7313:chicken_2dsyntax_2escm",(void*)f_7313}, {"f_8986:chicken_2dsyntax_2escm",(void*)f_8986}, {"f_10961:chicken_2dsyntax_2escm",(void*)f_10961}, {"f_10801:chicken_2dsyntax_2escm",(void*)f_10801}, {"f_10975:chicken_2dsyntax_2escm",(void*)f_10975}, {"f_10972:chicken_2dsyntax_2escm",(void*)f_10972}, {"f_10810:chicken_2dsyntax_2escm",(void*)f_10810}, {"f_10835:chicken_2dsyntax_2escm",(void*)f_10835}, {"f_6131:chicken_2dsyntax_2escm",(void*)f_6131}, {"f_10921:chicken_2dsyntax_2escm",(void*)f_10921}, {"f_7630:chicken_2dsyntax_2escm",(void*)f_7630}, {"f_7633:chicken_2dsyntax_2escm",(void*)f_7633}, {"f_7637:chicken_2dsyntax_2escm",(void*)f_7637}, {"f_6116:chicken_2dsyntax_2escm",(void*)f_6116}, {"f_7645:chicken_2dsyntax_2escm",(void*)f_7645}, {"f_7648:chicken_2dsyntax_2escm",(void*)f_7648}, {"f_6129:chicken_2dsyntax_2escm",(void*)f_6129}, {"f_11585:chicken_2dsyntax_2escm",(void*)f_11585}, {"f_11581:chicken_2dsyntax_2escm",(void*)f_11581}, {"f_7422:chicken_2dsyntax_2escm",(void*)f_7422}, {"f_7426:chicken_2dsyntax_2escm",(void*)f_7426}, {"f_7428:chicken_2dsyntax_2escm",(void*)f_7428}, {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| foldl 1 S| for-each 1 S| ##sys#map 11 S| map 39 o|eliminated procedure checks: 714 o|specializations: o| 1 (caddr (pair * (pair * pair))) o| 1 (= fixnum fixnum) o| 3 (cadr (pair * pair)) o| 1 (zero? fixnum) o| 3 (length list) o| 36 (##sys#check-list (or pair list) *) o| 6 (cdddr (pair * (pair * pair))) o| 2 (string-append string string) o| 49 (cdr pair) o| 20 (car pair) o| 17 (cddr (pair * pair)) (o e)|safe calls: 1126 o|Removed `not' forms: 12 o|contracted procedure: k3831 o|inlining procedure: k3828 o|inlining procedure: k3828 o|inlining procedure: k3941 o|inlining procedure: k3941 o|inlining procedure: k3962 o|inlining procedure: k3962 o|contracted procedure: k4011 o|inlining procedure: k4008 o|inlining procedure: k4048 o|inlining procedure: k4104 o|contracted procedure: "(chicken-syntax.scm:1270) g25742584" o|inlining procedure: k4104 o|inlining procedure: k4174 o|inlining procedure: k4201 o|contracted procedure: "(chicken-syntax.scm:1261) g25372546" o|propagated global variable: g25542555 ##compiler#check-and-validate-type o|inlining procedure: k4201 o|inlining procedure: k4174 o|inlining procedure: k4245 o|inlining procedure: k4245 o|inlining procedure: k4048 o|inlining procedure: k4292 o|inlining procedure: k4292 o|inlining procedure: k4329 o|inlining procedure: k4329 o|inlining procedure: k4008 o|inlining procedure: k4378 o|inlining procedure: k4469 o|contracted procedure: "(chicken-syntax.scm:1223) g24712480" o|inlining procedure: k4469 o|inlining procedure: k4503 o|contracted procedure: "(chicken-syntax.scm:1223) g24432452" o|inlining procedure: k4503 o|inlining procedure: k4378 o|inlining procedure: k4540 o|inlining procedure: k4555 o|inlining procedure: k4571 o|inlining procedure: k4571 o|inlining procedure: k4555 o|inlining procedure: k4540 o|inlining procedure: k4605 o|inlining procedure: k4621 o|inlining procedure: k4621 o|inlining procedure: k4656 o|inlining procedure: k4656 o|inlining procedure: k4605 o|contracted procedure: k4690 o|inlining procedure: k4687 o|inlining procedure: k4687 o|contracted procedure: k4728 o|inlining procedure: k4725 o|contracted procedure: k4756 o|inlining procedure: k4753 o|inlining procedure: k4782 o|inlining procedure: k4782 o|inlining procedure: k4753 o|inlining procedure: k4725 o|inlining procedure: k4895 o|inlining procedure: k4895 o|inlining procedure: k4910 o|inlining procedure: k4922 o|inlining procedure: k4922 o|substituted constant variable: a4939 o|inlining procedure: k4910 o|inlining procedure: k4955 o|inlining procedure: k4955 o|inlining procedure: k5028 o|inlining procedure: k5028 o|inlining procedure: k5043 o|inlining procedure: k5043 o|inlining procedure: k5083 o|inlining procedure: k5083 o|inlining procedure: k5112 o|inlining procedure: k5127 o|inlining procedure: k5143 o|inlining procedure: k5143 o|inlining procedure: k5127 o|inlining procedure: k5112 o|inlining procedure: k5177 o|inlining procedure: k5193 o|inlining procedure: k5193 o|inlining procedure: k5177 o|inlining procedure: k5231 o|inlining procedure: k5231 o|inlining procedure: k5295 o|inlining procedure: k5295 o|inlining procedure: k5398 o|inlining procedure: k5398 o|inlining procedure: k5477 o|inlining procedure: k5477 o|inlining procedure: k5575 o|inlining procedure: k5575 o|inlining procedure: k5676 o|inlining procedure: k5676 o|inlining procedure: k5770 o|inlining procedure: k5770 o|inlining procedure: k5901 o|inlining procedure: k5901 o|inlining procedure: k5950 o|contracted procedure: k5956 o|inlining procedure: k5950 o|inlining procedure: k5989 o|inlining procedure: k5989 o|inlining procedure: k6062 o|inlining procedure: k6062 o|inlining procedure: k6118 o|inlining procedure: k6118 o|inlining procedure: k6133 o|inlining procedure: k6133 o|inlining procedure: k6167 o|inlining procedure: k6167 o|inlining procedure: k6247 o|inlining procedure: k6247 o|inlining procedure: k6289 o|inlining procedure: k6289 o|inlining procedure: k6404 o|inlining procedure: k6404 o|inlining procedure: k6424 o|inlining procedure: k6424 o|inlining procedure: k6629 o|inlining procedure: k6629 o|inlining procedure: k6706 o|inlining procedure: k6706 o|inlining procedure: k6826 o|inlining procedure: k6826 o|inlining procedure: k6851 o|inlining procedure: k6851 o|inlining procedure: k6899 o|inlining procedure: k6927 o|inlining procedure: k6927 o|inlining procedure: k6899 o|inlining procedure: k6959 o|inlining procedure: k6959 o|inlining procedure: k6999 o|inlining procedure: k6999 o|inlining procedure: k7054 o|contracted procedure: "(chicken-syntax.scm:786) g17461755" o|inlining procedure: k7054 o|inlining procedure: k7174 o|inlining procedure: k7174 o|removed unused formal parameters: (rename1541) o|inlining procedure: k7497 o|inlining procedure: k7497 o|removed unused parameter to known procedure: rename1541 "(chicken-syntax.scm:687) make-if-tree1521" o|contracted procedure: "(chicken-syntax.scm:685) make-default-procs1520" o|inlining procedure: k7430 o|inlining procedure: k7430 o|inlining procedure: k7689 o|inlining procedure: k7689 o|inlining procedure: k7723 o|inlining procedure: k7723 o|inlining procedure: k7757 o|inlining procedure: k7757 o|inlining procedure: k7791 o|inlining procedure: k7791 o|inlining procedure: k7876 o|inlining procedure: k7876 o|contracted procedure: k7885 o|inlining procedure: k7900 o|inlining procedure: k7900 o|inlining procedure: k7963 o|inlining procedure: k7963 o|inlining procedure: k8027 o|inlining procedure: k8027 o|contracted procedure: k8043 o|inlining procedure: k8053 o|inlining procedure: k8053 o|inlining procedure: k8124 o|inlining procedure: k8124 o|contracted procedure: k8142 o|inlining procedure: k8139 o|inlining procedure: k8139 o|inlining procedure: k8330 o|inlining procedure: k8330 o|inlining procedure: k8378 o|contracted procedure: "(chicken-syntax.scm:445) g13091318" o|inlining procedure: k8378 o|inlining procedure: k8412 o|contracted procedure: "(chicken-syntax.scm:446) g13331334" o|inlining procedure: k8412 o|substituted constant variable: g13251328 o|inlining procedure: k8448 o|inlining procedure: k8448 o|inlining procedure: k8482 o|inlining procedure: k8482 o|inlining procedure: k8537 o|inlining procedure: k8537 o|contracted procedure: k8587 o|inlining procedure: k8584 o|inlining procedure: k8584 o|inlining procedure: k8612 o|inlining procedure: k8612 o|contracted procedure: k8621 o|inlining procedure: k8714 o|inlining procedure: k8749 o|inlining procedure: k8749 o|inlining procedure: k8714 o|inlining procedure: k8863 o|contracted procedure: "(chicken-syntax.scm:403) g12011210" o|inlining procedure: k8863 o|inlining procedure: k8897 o|inlining procedure: k8897 o|contracted procedure: k8917 o|inlining procedure: k8941 o|inlining procedure: k8941 o|inlining procedure: k8975 o|inlining procedure: k8975 o|inlining procedure: k8998 o|inlining procedure: k8998 o|inlining procedure: k9013 o|inlining procedure: k9013 o|inlining procedure: k9094 o|contracted procedure: "(chicken-syntax.scm:359) g10281035" o|inlining procedure: k9094 o|contracted procedure: "(chicken-syntax.scm:287) pname530" o|inlining procedure: k9197 o|inlining procedure: k9197 o|removed unused formal parameters: (z639) o|removed unused formal parameters: (z667) o|inlining procedure: k9409 o|contracted procedure: "(chicken-syntax.scm:324) g971981" o|inlining procedure: k9409 o|inlining procedure: k9457 o|contracted procedure: "(chicken-syntax.scm:322) g935945" o|inlining procedure: k9457 o|inlining procedure: k9505 o|contracted procedure: "(chicken-syntax.scm:319) g893904" o|inlining procedure: k9505 o|inlining procedure: k9555 o|inlining procedure: k9555 o|inlining procedure: k9646 o|contracted procedure: "(chicken-syntax.scm:312) g857867" o|inlining procedure: k9646 o|inlining procedure: k9694 o|contracted procedure: "(chicken-syntax.scm:309) g821831" o|inlining procedure: k9694 o|inlining procedure: k9742 o|inlining procedure: k9742 o|inlining procedure: k9792 o|inlining procedure: k9792 o|inlining procedure: k9812 o|inlining procedure: k9812 o|inlining procedure: k9860 o|inlining procedure: k9860 o|inlining procedure: k9908 o|inlining procedure: k9908 o|inlining procedure: k9956 o|removed unused parameter to known procedure: z667 "(chicken-syntax.scm:289) g656665" o|inlining procedure: k9956 o|inlining procedure: k9990 o|removed unused parameter to known procedure: z639 "(chicken-syntax.scm:288) g628637" o|inlining procedure: k9990 o|inlining procedure: k10024 o|inlining procedure: k10024 o|inlining procedure: k10058 o|inlining procedure: k10058 o|inlining procedure: k10092 o|inlining procedure: k10092 o|inlining procedure: k10151 o|inlining procedure: k10166 o|inlining procedure: k10166 o|inlining procedure: k10151 o|inlining procedure: k10181 o|inlining procedure: k10202 o|inlining procedure: k10202 o|inlining procedure: k10181 o|removed unused formal parameters: (x216) o|removed unused formal parameters: (x244) o|inlining procedure: k10348 o|contracted procedure: "(chicken-syntax.scm:237) g462472" o|inlining procedure: k10348 o|inlining procedure: k10396 o|contracted procedure: "(chicken-syntax.scm:235) g426436" o|inlining procedure: k10396 o|inlining procedure: k10495 o|contracted procedure: "(chicken-syntax.scm:230) g390400" o|inlining procedure: k10495 o|inlining procedure: k10543 o|contracted procedure: "(chicken-syntax.scm:228) g354364" o|inlining procedure: k10543 o|inlining procedure: k10626 o|inlining procedure: k10626 o|inlining procedure: k10676 o|inlining procedure: k10676 o|inlining procedure: k10696 o|inlining procedure: k10696 o|inlining procedure: k10744 o|inlining procedure: k10744 o|inlining procedure: k10778 o|removed unused parameter to known procedure: x244 "(chicken-syntax.scm:218) g233242" o|inlining procedure: k10778 o|inlining procedure: k10812 o|removed unused parameter to known procedure: x216 "(chicken-syntax.scm:217) g205214" o|inlining procedure: k10812 o|inlining procedure: k10846 o|inlining procedure: k10846 o|inlining procedure: k10923 o|inlining procedure: k10923 o|inlining procedure: k11000 o|inlining procedure: k11000 o|inlining procedure: k11028 o|inlining procedure: k11028 o|inlining procedure: k11131 o|inlining procedure: k11131 o|inlining procedure: k11246 o|inlining procedure: k11246 o|inlining procedure: k11267 o|inlining procedure: k11279 o|inlining procedure: k11279 o|inlining procedure: k11267 o|inlining procedure: k11331 o|inlining procedure: k11331 o|inlining procedure: k11391 o|inlining procedure: k11391 o|inlining procedure: k11480 o|inlining procedure: k11480 o|substituted constant variable: a11515 o|substituted constant variable: a11540 o|inlining procedure: k11545 o|inlining procedure: k11545 o|replaced variables: 1175 o|removed binding forms: 434 o|substituted constant variable: r382911594 o|substituted constant variable: r424611609 o|substituted constant variable: r433011615 o|substituted constant variable: r400911616 o|substituted constant variable: r455611627 o|substituted constant variable: r454111628 o|substituted constant variable: r465711633 o|substituted constant variable: r460611634 o|substituted constant variable: r478311641 o|substituted constant variable: r478311641 o|substituted constant variable: r472611644 o|substituted constant variable: r492311657 o|substituted constant variable: r491111658 o|substituted constant variable: r502911661 o|substituted constant variable: r502911661 o|substituted constant variable: r512811673 o|substituted constant variable: r511311674 o|substituted constant variable: r517811678 o|substituted constant variable: r529611682 o|substituted constant variable: r590211693 o|substituted constant variable: r606311702 o|substituted constant variable: r611911704 o|substituted constant variable: r640511713 o|substituted constant variable: r640511713 o|converted assignments to bindings: (parse-clause1897) o|substituted constant variable: r670711721 o|substituted constant variable: r700011735 o|converted assignments to bindings: (genvars1732) o|substituted constant variable: r743111743 o|converted assignments to bindings: (make-if-tree1521) o|substituted constant variable: r787711753 o|substituted constant variable: r814011773 o|substituted constant variable: r861311789 o|substituted constant variable: r955611818 o|substituted constant variable: r979311826 o|substituted constant variable: r1067711861 o|substituted constant variable: r1102911882 o|substituted constant variable: r1128011889 o|substituted constant variable: r1126811890 o|simplifications: ((let . 3)) o|replaced variables: 23 o|removed binding forms: 1272 o|removed call to pure procedure with unused result: "(chicken-syntax.scm:289) slot" o|removed call to pure procedure with unused result: "(chicken-syntax.scm:288) slot" o|inlining procedure: k10188 o|inlining procedure: k10188 o|inlining procedure: k10188 o|removed call to pure procedure with unused result: "(chicken-syntax.scm:218) slot" o|removed call to pure procedure with unused result: "(chicken-syntax.scm:217) slot" o|replaced variables: 40 o|removed binding forms: 62 o|removed call to pure procedure with unused result: "(chicken-syntax.scm:319) slot" o|contracted procedure: k9981 o|contracted procedure: k10015 o|contracted procedure: k10803 o|contracted procedure: k10837 o|removed binding forms: 46 o|contracted procedure: k9542 o|removed binding forms: 5 o|removed binding forms: 1 o|simplifications: ((if . 31) (##core#call . 1243)) o| call simplifications: o| string? o| cdar o| caar o| not 3 o| apply o| fx- 2 o| fx>= o| assq 2 o| cddddr o| cddr 6 o| add1 o| ##sys#call-with-values 2 o| ##sys#pair? 7 o| ##sys#eq? 7 o| ##sys#car 15 o| ##sys#cdr 22 o| cdddr 2 o| cadddr 2 o| list? 4 o| fx= o| symbol? 11 o| null? 30 o| vector o| cdr 18 o| fx+ 3 o| ##sys#check-list 36 o| pair? 97 o| cons 128 o| ##sys#setslot 50 o| ##sys#slot 198 o| car 47 o| eq? 8 o| list 9 o| ##sys#cons 143 o| memq 7 o| cadr 51 o| caddr 17 o| ##sys#list 307 o|contracted procedure: k3875 o|contracted procedure: k3851 o|contracted procedure: k3855 o|contracted procedure: k3859 o|contracted procedure: k3847 o|contracted procedure: k3867 o|contracted procedure: k3871 o|contracted procedure: k3888 o|contracted procedure: k3998 o|contracted procedure: k3994 o|contracted procedure: k3901 o|contracted procedure: k3917 o|contracted procedure: k3933 o|contracted procedure: k3938 o|contracted procedure: k3948 o|contracted procedure: k3953 o|contracted procedure: k3913 o|contracted procedure: k3909 o|contracted procedure: k3905 o|contracted procedure: k3965 o|contracted procedure: k3968 o|contracted procedure: k3971 o|contracted procedure: k3979 o|contracted procedure: k3987 o|contracted procedure: k4365 o|contracted procedure: k4017 o|contracted procedure: k4020 o|contracted procedure: k4039 o|contracted procedure: k4051 o|contracted procedure: k4060 o|contracted procedure: k4150 o|contracted procedure: k4154 o|contracted procedure: k4070 o|contracted procedure: k4078 o|contracted procedure: k4086 o|contracted procedure: k4082 o|contracted procedure: k4074 o|contracted procedure: k4143 o|contracted procedure: k4107 o|contracted procedure: k4110 o|contracted procedure: k4113 o|contracted procedure: k4121 o|contracted procedure: k4125 o|contracted procedure: k4133 o|contracted procedure: k4137 o|contracted procedure: k4095 o|contracted procedure: k4170 o|contracted procedure: k4166 o|contracted procedure: k4177 o|contracted procedure: k4184 o|contracted procedure: k4192 o|contracted procedure: k4204 o|contracted procedure: k4207 o|contracted procedure: k4210 o|contracted procedure: k4218 o|contracted procedure: k4226 o|contracted procedure: k4248 o|contracted procedure: k4255 o|contracted procedure: k4263 o|contracted procedure: k4267 o|contracted procedure: k4270 o|contracted procedure: k4276 o|contracted procedure: k4285 o|contracted procedure: k4289 o|contracted procedure: k4320 o|contracted procedure: k4304 o|contracted procedure: k4308 o|contracted procedure: k4316 o|contracted procedure: k4326 o|contracted procedure: k4332 o|contracted procedure: k4339 o|contracted procedure: k4361 o|contracted procedure: k4350 o|contracted procedure: k4375 o|contracted procedure: k4384 o|contracted procedure: k4392 o|contracted procedure: k4395 o|contracted procedure: k4401 o|contracted procedure: k4413 o|contracted procedure: k4416 o|contracted procedure: k4422 o|contracted procedure: k4433 o|contracted procedure: k4463 o|contracted procedure: k4459 o|contracted procedure: k4451 o|contracted procedure: k4447 o|contracted procedure: k4472 o|contracted procedure: k4475 o|contracted procedure: k4478 o|contracted procedure: k4486 o|contracted procedure: k4494 o|contracted procedure: k4410 o|contracted procedure: k4506 o|contracted procedure: k4528 o|contracted procedure: k4524 o|contracted procedure: k4509 o|contracted procedure: k4512 o|contracted procedure: k4520 o|contracted procedure: k4537 o|contracted procedure: k4565 o|contracted procedure: k4584 o|contracted procedure: k4592 o|contracted procedure: k4596 o|contracted procedure: k4615 o|contracted procedure: k4633 o|contracted procedure: k4643 o|contracted procedure: k4650 o|contracted procedure: k4653 o|contracted procedure: k4659 o|contracted procedure: k4666 o|contracted procedure: k4670 o|contracted procedure: k4674 o|contracted procedure: k4712 o|contracted procedure: k4704 o|contracted procedure: k4708 o|contracted procedure: k4820 o|contracted procedure: k4734 o|contracted procedure: k4812 o|contracted procedure: k4808 o|contracted procedure: k4804 o|contracted procedure: k4770 o|contracted procedure: k4766 o|contracted procedure: k4793 o|contracted procedure: k4789 o|contracted procedure: k4782 o|contracted procedure: k4800 o|contracted procedure: k4816 o|contracted procedure: k4836 o|contracted procedure: k4839 o|contracted procedure: k4843 o|contracted procedure: k4864 o|contracted procedure: k4884 o|contracted procedure: k4889 o|contracted procedure: k4901 o|contracted procedure: k4913 o|contracted procedure: k4919 o|contracted procedure: k4936 o|contracted procedure: k4925 o|contracted procedure: k4932 o|contracted procedure: k4943 o|contracted procedure: k4946 o|contracted procedure: k4868 o|contracted procedure: k4872 o|contracted procedure: k4876 o|contracted procedure: k4849 o|contracted procedure: k4856 o|contracted procedure: k4860 o|contracted procedure: k4958 o|contracted procedure: k4961 o|contracted procedure: k4964 o|contracted procedure: k4972 o|contracted procedure: k4980 o|contracted procedure: k5013 o|contracted procedure: k5017 o|contracted procedure: k5009 o|contracted procedure: k5031 o|contracted procedure: k5037 o|inlining procedure: k5028 o|contracted procedure: k5046 o|contracted procedure: k5056 o|contracted procedure: k5060 o|contracted procedure: k5063 o|contracted procedure: k5070 o|contracted procedure: k5080 o|contracted procedure: k5089 o|contracted procedure: k5092 o|contracted procedure: k5103 o|contracted procedure: k5109 o|contracted procedure: k5137 o|contracted procedure: k5156 o|contracted procedure: k5164 o|contracted procedure: k5168 o|contracted procedure: k5187 o|contracted procedure: k5206 o|contracted procedure: k5214 o|contracted procedure: k5218 o|contracted procedure: k5228 o|contracted procedure: k5237 o|contracted procedure: k5252 o|contracted procedure: k5248 o|contracted procedure: k5261 o|contracted procedure: k5283 o|contracted procedure: k5264 o|contracted procedure: k5279 o|contracted procedure: k5275 o|contracted procedure: k5289 o|contracted procedure: k5292 o|contracted procedure: k5298 o|contracted procedure: k5305 o|contracted procedure: k5308 o|contracted procedure: k5315 o|contracted procedure: k5336 o|contracted procedure: k5353 o|contracted procedure: k5382 o|contracted procedure: k5374 o|contracted procedure: k5395 o|contracted procedure: k5401 o|contracted procedure: k5424 o|contracted procedure: k5420 o|contracted procedure: k5414 o|contracted procedure: k5408 o|contracted procedure: k5440 o|contracted procedure: k5436 o|contracted procedure: k5638 o|contracted procedure: k5447 o|contracted procedure: k5480 o|contracted procedure: k5515 o|contracted procedure: k5511 o|contracted procedure: k5507 o|contracted procedure: k5499 o|contracted procedure: k5525 o|contracted procedure: k5544 o|contracted procedure: k5540 o|contracted procedure: k5536 o|contracted procedure: k5564 o|contracted procedure: k5568 o|contracted procedure: k5584 o|contracted procedure: k5612 o|contracted procedure: k5604 o|contracted procedure: k5608 o|contracted procedure: k5624 o|contracted procedure: k5634 o|contracted procedure: k5627 o|contracted procedure: k5818 o|contracted procedure: k5646 o|contracted procedure: k5679 o|contracted procedure: k5710 o|contracted procedure: k5706 o|contracted procedure: k5702 o|contracted procedure: k5720 o|contracted procedure: k5741 o|contracted procedure: k5735 o|contracted procedure: k5731 o|contracted procedure: k5759 o|contracted procedure: k5763 o|contracted procedure: k5779 o|contracted procedure: k5796 o|contracted procedure: k5804 o|contracted procedure: k5814 o|contracted procedure: k5807 o|contracted procedure: k6199 o|contracted procedure: k5826 o|contracted procedure: k5839 o|contracted procedure: k5842 o|contracted procedure: k5845 o|contracted procedure: k5848 o|contracted procedure: k5857 o|contracted procedure: k5866 o|contracted procedure: k5869 o|contracted procedure: k6109 o|contracted procedure: k6113 o|contracted procedure: k6121 o|contracted procedure: k6124 o|contracted procedure: k6105 o|contracted procedure: k6101 o|contracted procedure: k5883 o|contracted procedure: k6089 o|contracted procedure: k6097 o|contracted procedure: k6093 o|contracted procedure: k5891 o|contracted procedure: k5887 o|contracted procedure: k5879 o|contracted procedure: k5904 o|contracted procedure: k5907 o|contracted procedure: k6085 o|contracted procedure: k5910 o|contracted procedure: k5913 o|contracted procedure: k6032 o|contracted procedure: k6048 o|contracted procedure: k6056 o|contracted procedure: k6052 o|contracted procedure: k6044 o|contracted procedure: k6036 o|contracted procedure: k6040 o|contracted procedure: k5919 o|contracted procedure: k5947 o|contracted procedure: k5967 o|contracted procedure: k5963 o|contracted procedure: k5975 o|contracted procedure: k5982 o|contracted procedure: k5989 o|contracted procedure: k6008 o|contracted procedure: k6024 o|contracted procedure: k6028 o|contracted procedure: k6020 o|contracted procedure: k6012 o|contracted procedure: k6016 o|contracted procedure: k6059 o|contracted procedure: k6065 o|contracted procedure: k6136 o|contracted procedure: k6139 o|contracted procedure: k6142 o|contracted procedure: k6150 o|contracted procedure: k6158 o|contracted procedure: k6170 o|contracted procedure: k6192 o|contracted procedure: k6188 o|contracted procedure: k6173 o|contracted procedure: k6176 o|contracted procedure: k6184 o|contracted procedure: k6476 o|contracted procedure: k6480 o|contracted procedure: k6207 o|contracted procedure: k6250 o|contracted procedure: k6268 o|contracted procedure: k6277 o|contracted procedure: k6280 o|contracted procedure: k6264 o|contracted procedure: k6260 o|contracted procedure: k6292 o|contracted procedure: k6295 o|contracted procedure: k6298 o|contracted procedure: k6306 o|contracted procedure: k6314 o|contracted procedure: k6336 o|contracted procedure: k6328 o|contracted procedure: k6332 o|contracted procedure: k6324 o|contracted procedure: k6343 o|contracted procedure: k6357 o|contracted procedure: k6352 o|contracted procedure: k6472 o|contracted procedure: k6464 o|contracted procedure: k6468 o|contracted procedure: k6460 o|contracted procedure: k6456 o|contracted procedure: k6376 o|contracted procedure: k6380 o|contracted procedure: k6383 o|contracted procedure: k6386 o|contracted procedure: k6392 o|contracted procedure: k6368 o|contracted procedure: k6372 o|contracted procedure: k6407 o|contracted procedure: k6418 o|contracted procedure: k6414 o|contracted procedure: k6404 o|contracted procedure: k6427 o|contracted procedure: k6430 o|contracted procedure: k6433 o|contracted procedure: k6441 o|contracted procedure: k6449 o|contracted procedure: k6599 o|contracted procedure: k6603 o|contracted procedure: k6492 o|contracted procedure: k6527 o|contracted procedure: k6595 o|contracted procedure: k6579 o|contracted procedure: k6591 o|contracted procedure: k6587 o|contracted procedure: k6583 o|contracted procedure: k6539 o|contracted procedure: k6571 o|contracted procedure: k6551 o|contracted procedure: k6567 o|contracted procedure: k6563 o|contracted procedure: k6559 o|contracted procedure: k6555 o|contracted procedure: k6547 o|contracted procedure: k6543 o|contracted procedure: k6531 o|contracted procedure: k6523 o|contracted procedure: k6515 o|contracted procedure: k6624 o|contracted procedure: k6632 o|contracted procedure: k6658 o|contracted procedure: k6642 o|contracted procedure: k6654 o|contracted procedure: k6650 o|contracted procedure: k6646 o|contracted procedure: k6662 o|contracted procedure: k6676 o|contracted procedure: k6672 o|contracted procedure: k6680 o|contracted procedure: k7086 o|contracted procedure: k7090 o|contracted procedure: k7094 o|contracted procedure: k7098 o|contracted procedure: k7102 o|contracted procedure: k6684 o|contracted procedure: k6709 o|contracted procedure: k6724 o|contracted procedure: k7023 o|contracted procedure: k7019 o|contracted procedure: k6773 o|contracted procedure: k6769 o|contracted procedure: k6787 o|contracted procedure: k6800 o|contracted procedure: k6829 o|contracted procedure: k6836 o|contracted procedure: k6839 o|contracted procedure: k6842 o|contracted procedure: k6890 o|contracted procedure: k6854 o|contracted procedure: k6880 o|contracted procedure: k6884 o|contracted procedure: k6876 o|contracted procedure: k6857 o|contracted procedure: k6860 o|contracted procedure: k6868 o|contracted procedure: k6872 o|contracted procedure: k6902 o|contracted procedure: k6924 o|contracted procedure: k6916 o|contracted procedure: k6920 o|contracted procedure: k6912 o|contracted procedure: k6945 o|contracted procedure: k6930 o|contracted procedure: k6939 o|contracted procedure: k6988 o|contracted procedure: k6992 o|contracted procedure: k6976 o|contracted procedure: k6984 o|contracted procedure: k6980 o|contracted procedure: k6955 o|contracted procedure: k6962 o|contracted procedure: k7002 o|contracted procedure: k7013 o|contracted procedure: k7027 o|contracted procedure: k7042 o|contracted procedure: k7045 o|contracted procedure: k7057 o|contracted procedure: k7060 o|contracted procedure: k7063 o|contracted procedure: k7071 o|contracted procedure: k7079 o|contracted procedure: k7036 o|contracted procedure: k7274 o|contracted procedure: k7278 o|contracted procedure: k7282 o|contracted procedure: k7126 o|contracted procedure: k7139 o|contracted procedure: k7142 o|contracted procedure: k7270 o|contracted procedure: k7164 o|contracted procedure: k7177 o|contracted procedure: k7184 o|contracted procedure: k7187 o|contracted procedure: k7193 o|contracted procedure: k7243 o|contracted procedure: k7247 o|contracted procedure: k7251 o|contracted procedure: k7239 o|contracted procedure: k7213 o|contracted procedure: k7225 o|contracted procedure: k7229 o|contracted procedure: k7233 o|contracted procedure: k7221 o|contracted procedure: k7217 o|contracted procedure: k7203 o|contracted procedure: k7266 o|contracted procedure: k7262 o|contracted procedure: k7258 o|contracted procedure: k7363 o|contracted procedure: k7367 o|contracted procedure: k7371 o|contracted procedure: k7298 o|contracted procedure: k7359 o|contracted procedure: k7355 o|contracted procedure: k7318 o|contracted procedure: k7326 o|contracted procedure: k7330 o|contracted procedure: k7344 o|contracted procedure: k7333 o|contracted procedure: k7337 o|contracted procedure: k7322 o|contracted procedure: k7823 o|contracted procedure: k7827 o|contracted procedure: k7387 o|contracted procedure: k7400 o|contracted procedure: k7403 o|contracted procedure: k7500 o|contracted procedure: k7510 o|contracted procedure: k7517 o|contracted procedure: k7569 o|contracted procedure: k7521 o|contracted procedure: k7561 o|contracted procedure: k7545 o|contracted procedure: k7553 o|contracted procedure: k7549 o|contracted procedure: k7529 o|contracted procedure: k7525 o|contracted procedure: k7541 o|contracted procedure: k7582 o|contracted procedure: k7585 o|contracted procedure: k7604 o|contracted procedure: k7616 o|contracted procedure: k7622 o|contracted procedure: k7634 o|contracted procedure: k7667 o|contracted procedure: k7683 o|contracted procedure: k7679 o|contracted procedure: k7675 o|contracted procedure: k7671 o|contracted procedure: k7663 o|contracted procedure: k7433 o|contracted procedure: k7436 o|contracted procedure: k7457 o|contracted procedure: k7469 o|contracted procedure: k7461 o|contracted procedure: k7443 o|contracted procedure: k7485 o|contracted procedure: k7481 o|contracted procedure: k7692 o|contracted procedure: k7695 o|contracted procedure: k7698 o|contracted procedure: k7706 o|contracted procedure: k7714 o|contracted procedure: k7726 o|contracted procedure: k7748 o|contracted procedure: k7744 o|contracted procedure: k7729 o|contracted procedure: k7732 o|contracted procedure: k7740 o|contracted procedure: k7760 o|contracted procedure: k7763 o|contracted procedure: k7766 o|contracted procedure: k7774 o|contracted procedure: k7782 o|contracted procedure: k7794 o|contracted procedure: k7816 o|contracted procedure: k7812 o|contracted procedure: k7797 o|contracted procedure: k7800 o|contracted procedure: k7808 o|contracted procedure: k7848 o|contracted procedure: k8003 o|contracted procedure: k7866 o|contracted procedure: k7879 o|contracted procedure: k7999 o|contracted procedure: k7891 o|contracted procedure: k7894 o|contracted procedure: k7945 o|contracted procedure: k7954 o|contracted procedure: k7931 o|contracted procedure: k7935 o|contracted procedure: k7966 o|contracted procedure: k7969 o|contracted procedure: k7972 o|contracted procedure: k7980 o|contracted procedure: k7988 o|contracted procedure: k7995 o|contracted procedure: k8016 o|contracted procedure: k8030 o|contracted procedure: k8036 o|contracted procedure: k8100 o|contracted procedure: k8096 o|contracted procedure: k8056 o|contracted procedure: k8092 o|contracted procedure: k8088 o|contracted procedure: k8076 o|contracted procedure: k8080 o|contracted procedure: k8115 o|contracted procedure: k8187 o|contracted procedure: k8118 o|contracted procedure: k8167 o|contracted procedure: k8130 o|contracted procedure: k8163 o|contracted procedure: k8159 o|contracted procedure: k8170 o|contracted procedure: k8177 o|contracted procedure: k8200 o|contracted procedure: k8248 o|contracted procedure: k8204 o|contracted procedure: k8244 o|contracted procedure: k8224 o|contracted procedure: k8240 o|contracted procedure: k8232 o|contracted procedure: k8228 o|contracted procedure: k8265 o|contracted procedure: k8270 o|contracted procedure: k8273 o|contracted procedure: k8279 o|contracted procedure: k8293 o|contracted procedure: k8301 o|contracted procedure: k8307 o|contracted procedure: k8289 o|contracted procedure: k8318 o|contracted procedure: k8321 o|contracted procedure: k8369 o|contracted procedure: k8333 o|contracted procedure: k8336 o|contracted procedure: k8339 o|contracted procedure: k8347 o|contracted procedure: k8351 o|contracted procedure: k8359 o|contracted procedure: k8363 o|contracted procedure: k8381 o|contracted procedure: k8403 o|contracted procedure: k8399 o|contracted procedure: k8384 o|contracted procedure: k8387 o|contracted procedure: k8395 o|contracted procedure: k8415 o|contracted procedure: k8422 o|contracted procedure: k8442 o|contracted procedure: k8451 o|contracted procedure: k8473 o|contracted procedure: k8469 o|contracted procedure: k8454 o|contracted procedure: k8457 o|contracted procedure: k8465 o|contracted procedure: k8485 o|contracted procedure: k8507 o|contracted procedure: k8503 o|contracted procedure: k8488 o|contracted procedure: k8491 o|contracted procedure: k8499 o|contracted procedure: k8523 o|contracted procedure: k8540 o|contracted procedure: k8547 o|contracted procedure: k8564 o|contracted procedure: k8554 o|contracted procedure: k8577 o|contracted procedure: k8607 o|contracted procedure: k8597 o|contracted procedure: k8615 o|contracted procedure: k8645 o|contracted procedure: k8641 o|contracted procedure: k8650 o|contracted procedure: k8653 o|contracted procedure: k8662 o|contracted procedure: k8678 o|contracted procedure: k8690 o|contracted procedure: k8700 o|contracted procedure: k8717 o|contracted procedure: k8728 o|contracted procedure: k8740 o|contracted procedure: k8724 o|contracted procedure: k8752 o|contracted procedure: k8755 o|contracted procedure: k8758 o|contracted procedure: k8766 o|contracted procedure: k8774 o|contracted procedure: k8810 o|contracted procedure: k8814 o|contracted procedure: k8806 o|contracted procedure: k8790 o|contracted procedure: k8798 o|contracted procedure: k8843 o|contracted procedure: k8821 o|contracted procedure: k8825 o|contracted procedure: k8835 o|contracted procedure: k8857 o|contracted procedure: k8846 o|contracted procedure: k8853 o|contracted procedure: k8866 o|contracted procedure: k8888 o|contracted procedure: k8884 o|contracted procedure: k8869 o|contracted procedure: k8872 o|contracted procedure: k8880 o|contracted procedure: k8900 o|contracted procedure: k8906 o|contracted procedure: k8935 o|inlining procedure: k8909 o|inlining procedure: k8909 o|contracted procedure: k8944 o|contracted procedure: k8947 o|contracted procedure: k8950 o|contracted procedure: k8958 o|contracted procedure: k8966 o|contracted procedure: k8978 o|contracted procedure: k8981 o|contracted procedure: k8992 o|contracted procedure: k9001 o|inlining procedure: k8984 o|contracted procedure: k9016 o|contracted procedure: k9038 o|contracted procedure: k9034 o|contracted procedure: k9019 o|contracted procedure: k9022 o|contracted procedure: k9030 o|contracted procedure: k9067 o|contracted procedure: k9085 o|contracted procedure: k9097 o|contracted procedure: k9107 o|contracted procedure: k9111 o|contracted procedure: k9128 o|contracted procedure: k9132 o|contracted procedure: k9149 o|contracted procedure: k9153 o|contracted procedure: k9157 o|contracted procedure: k9177 o|contracted procedure: k9181 o|contracted procedure: k9212 o|contracted procedure: k9226 o|contracted procedure: k9229 o|contracted procedure: k9235 o|contracted procedure: k9241 o|contracted procedure: k9200 o|contracted procedure: k9253 o|contracted procedure: k9259 o|contracted procedure: k9274 o|contracted procedure: k9293 o|contracted procedure: k9296 o|contracted procedure: k9307 o|contracted procedure: k9310 o|contracted procedure: k9313 o|contracted procedure: k9324 o|contracted procedure: k9806 o|contracted procedure: k9802 o|contracted procedure: k9335 o|contracted procedure: k9577 o|contracted procedure: k9590 o|contracted procedure: k9586 o|contracted procedure: k9593 o|contracted procedure: k9573 o|contracted procedure: k9569 o|contracted procedure: k9343 o|contracted procedure: k9565 o|contracted procedure: k9347 o|contracted procedure: k9363 o|contracted procedure: k9359 o|contracted procedure: k9355 o|contracted procedure: k9351 o|contracted procedure: k9339 o|contracted procedure: k9331 o|contracted procedure: k9320 o|contracted procedure: k9303 o|contracted procedure: k9383 o|contracted procedure: k9395 o|contracted procedure: k9448 o|contracted procedure: k9412 o|contracted procedure: k9438 o|contracted procedure: k9442 o|contracted procedure: k9434 o|contracted procedure: k9415 o|contracted procedure: k9418 o|contracted procedure: k9426 o|contracted procedure: k9430 o|contracted procedure: k9496 o|contracted procedure: k9460 o|contracted procedure: k9486 o|contracted procedure: k9490 o|contracted procedure: k9482 o|contracted procedure: k9463 o|contracted procedure: k9466 o|contracted procedure: k9474 o|contracted procedure: k9478 o|contracted procedure: k9511 o|contracted procedure: k9514 o|contracted procedure: k9522 o|contracted procedure: k9526 o|contracted procedure: k9530 o|contracted procedure: k9538 o|contracted procedure: k9546 o|contracted procedure: k9372 o|contracted procedure: k9552 o|contracted procedure: k9558 o|contracted procedure: k9604 o|contracted procedure: k9624 o|contracted procedure: k9640 o|contracted procedure: k9636 o|contracted procedure: k9685 o|contracted procedure: k9649 o|contracted procedure: k9675 o|contracted procedure: k9679 o|contracted procedure: k9671 o|contracted procedure: k9652 o|contracted procedure: k9655 o|contracted procedure: k9663 o|contracted procedure: k9667 o|contracted procedure: k9733 o|contracted procedure: k9697 o|contracted procedure: k9700 o|contracted procedure: k9703 o|contracted procedure: k9711 o|contracted procedure: k9715 o|contracted procedure: k9723 o|contracted procedure: k9727 o|contracted procedure: k9613 o|contracted procedure: k9748 o|contracted procedure: k9751 o|contracted procedure: k9759 o|contracted procedure: k9763 o|contracted procedure: k9767 o|contracted procedure: k9775 o|contracted procedure: k9779 o|contracted procedure: k9783 o|contracted procedure: k9789 o|contracted procedure: k9795 o|contracted procedure: k9851 o|contracted procedure: k9815 o|contracted procedure: k9841 o|contracted procedure: k9845 o|contracted procedure: k9837 o|contracted procedure: k9818 o|contracted procedure: k9821 o|contracted procedure: k9829 o|contracted procedure: k9833 o|contracted procedure: k9899 o|contracted procedure: k9863 o|contracted procedure: k9889 o|contracted procedure: k9893 o|contracted procedure: k9885 o|contracted procedure: k9866 o|contracted procedure: k9869 o|contracted procedure: k9877 o|contracted procedure: k9881 o|contracted procedure: k9947 o|contracted procedure: k9911 o|contracted procedure: k9937 o|contracted procedure: k9941 o|contracted procedure: k9933 o|contracted procedure: k9914 o|contracted procedure: k9917 o|contracted procedure: k9925 o|contracted procedure: k9929 o|contracted procedure: k9959 o|contracted procedure: k9962 o|contracted procedure: k9965 o|contracted procedure: k9973 o|contracted procedure: k9993 o|contracted procedure: k9996 o|contracted procedure: k9999 o|contracted procedure: k10007 o|contracted procedure: k10027 o|contracted procedure: k10030 o|contracted procedure: k10033 o|contracted procedure: k10041 o|contracted procedure: k10049 o|contracted procedure: k10061 o|contracted procedure: k10083 o|contracted procedure: k10079 o|contracted procedure: k10064 o|contracted procedure: k10067 o|contracted procedure: k10075 o|contracted procedure: k10095 o|contracted procedure: k10117 o|contracted procedure: k10113 o|contracted procedure: k10098 o|contracted procedure: k10101 o|contracted procedure: k10109 o|contracted procedure: k10133 o|contracted procedure: k10136 o|contracted procedure: k10154 o|contracted procedure: k10160 o|contracted procedure: k10184 o|contracted procedure: k10195 o|contracted procedure: k1019512205 o|contracted procedure: k1019512209 o|contracted procedure: k1019512213 o|contracted procedure: k10234 o|contracted procedure: k10239 o|contracted procedure: k10242 o|contracted procedure: k10248 o|contracted procedure: k10263 o|contracted procedure: k10446 o|contracted procedure: k10290 o|contracted procedure: k10442 o|contracted procedure: k10294 o|contracted procedure: k10302 o|contracted procedure: k10298 o|contracted procedure: k10286 o|contracted procedure: k10310 o|contracted procedure: k10326 o|contracted procedure: k10342 o|contracted procedure: k10338 o|contracted procedure: k10387 o|contracted procedure: k10351 o|contracted procedure: k10377 o|contracted procedure: k10381 o|contracted procedure: k10373 o|contracted procedure: k10354 o|contracted procedure: k10357 o|contracted procedure: k10365 o|contracted procedure: k10369 o|contracted procedure: k10435 o|contracted procedure: k10399 o|contracted procedure: k10425 o|contracted procedure: k10429 o|contracted procedure: k10421 o|contracted procedure: k10402 o|contracted procedure: k10405 o|contracted procedure: k10413 o|contracted procedure: k10417 o|contracted procedure: k10454 o|contracted procedure: k10462 o|contracted procedure: k10473 o|contracted procedure: k10489 o|contracted procedure: k10485 o|contracted procedure: k10534 o|contracted procedure: k10498 o|contracted procedure: k10524 o|contracted procedure: k10528 o|contracted procedure: k10520 o|contracted procedure: k10501 o|contracted procedure: k10504 o|contracted procedure: k10512 o|contracted procedure: k10516 o|contracted procedure: k10582 o|contracted procedure: k10546 o|contracted procedure: k10572 o|contracted procedure: k10576 o|contracted procedure: k10568 o|contracted procedure: k10549 o|contracted procedure: k10552 o|contracted procedure: k10560 o|contracted procedure: k10564 o|contracted procedure: k10589 o|contracted procedure: k10592 o|contracted procedure: k10598 o|contracted procedure: k10601 o|contracted procedure: k10608 o|contracted procedure: k10614 o|contracted procedure: k10617 o|contracted procedure: k10665 o|contracted procedure: k10629 o|contracted procedure: k10655 o|contracted procedure: k10659 o|contracted procedure: k10651 o|contracted procedure: k10632 o|contracted procedure: k10635 o|contracted procedure: k10643 o|contracted procedure: k10647 o|contracted procedure: k10679 o|contracted procedure: k10690 o|contracted procedure: k10735 o|contracted procedure: k10699 o|contracted procedure: k10725 o|contracted procedure: k10729 o|contracted procedure: k10721 o|contracted procedure: k10702 o|contracted procedure: k10705 o|contracted procedure: k10713 o|contracted procedure: k10717 o|contracted procedure: k10747 o|contracted procedure: k10769 o|contracted procedure: k10765 o|contracted procedure: k10750 o|contracted procedure: k10753 o|contracted procedure: k10761 o|contracted procedure: k10781 o|contracted procedure: k10784 o|contracted procedure: k10787 o|contracted procedure: k10795 o|contracted procedure: k10815 o|contracted procedure: k10818 o|contracted procedure: k10821 o|contracted procedure: k10829 o|contracted procedure: k10849 o|contracted procedure: k10871 o|contracted procedure: k10867 o|contracted procedure: k10852 o|contracted procedure: k10855 o|contracted procedure: k10863 o|contracted procedure: k10887 o|contracted procedure: k10890 o|contracted procedure: k10949 o|contracted procedure: k10903 o|contracted procedure: k10945 o|contracted procedure: k10911 o|contracted procedure: k10915 o|contracted procedure: k10907 o|contracted procedure: k10926 o|contracted procedure: k10941 o|contracted procedure: k10933 o|contracted procedure: k10937 o|contracted procedure: k10923 o|contracted procedure: k10962 o|contracted procedure: k11035 o|contracted procedure: k10967 o|contracted procedure: k11019 o|contracted procedure: k10980 o|contracted procedure: k10988 o|contracted procedure: k10992 o|contracted procedure: k10984 o|contracted procedure: k11003 o|contracted procedure: k11011 o|contracted procedure: k11000 o|contracted procedure: k11022 o|contracted procedure: k11055 o|contracted procedure: k11069 o|contracted procedure: k11086 o|contracted procedure: k11118 o|contracted procedure: k11114 o|contracted procedure: k11094 o|contracted procedure: k11110 o|contracted procedure: k11102 o|contracted procedure: k11106 o|contracted procedure: k11098 o|contracted procedure: k11090 o|contracted procedure: k11211 o|contracted procedure: k11134 o|contracted procedure: k11145 o|contracted procedure: k11141 o|contracted procedure: k11153 o|contracted procedure: k11156 o|contracted procedure: k11184 o|contracted procedure: k11180 o|contracted procedure: k11176 o|contracted procedure: k11172 o|contracted procedure: k11191 o|contracted procedure: k11199 o|contracted procedure: k11195 o|contracted procedure: k11202 o|contracted procedure: k11224 o|contracted procedure: k11241 o|contracted procedure: k11249 o|contracted procedure: k11264 o|contracted procedure: k11276 o|contracted procedure: k11292 o|contracted procedure: k11282 o|inlining procedure: k11255 o|inlining procedure: k11255 o|inlining procedure: k11255 o|inlining procedure: k11255 o|inlining procedure: k11255 o|contracted procedure: k11299 o|contracted procedure: k11533 o|contracted procedure: k11529 o|contracted procedure: k11525 o|contracted procedure: k11521 o|contracted procedure: k11313 o|contracted procedure: k11499 o|contracted procedure: k11507 o|contracted procedure: k11503 o|contracted procedure: k11495 o|contracted procedure: k11321 o|contracted procedure: k11317 o|contracted procedure: k11309 o|contracted procedure: k11334 o|contracted procedure: k11337 o|contracted procedure: k11487 o|contracted procedure: k11340 o|contracted procedure: k11452 o|contracted procedure: k11468 o|contracted procedure: k11464 o|contracted procedure: k11456 o|contracted procedure: k11460 o|contracted procedure: k11352 o|contracted procedure: k11359 o|contracted procedure: k11367 o|contracted procedure: k11371 o|contracted procedure: k11387 o|contracted procedure: k11383 o|contracted procedure: k11402 o|contracted procedure: k11418 o|contracted procedure: k11414 o|contracted procedure: k11406 o|contracted procedure: k11410 o|contracted procedure: k11398 o|contracted procedure: k11425 o|contracted procedure: k11441 o|contracted procedure: k11437 o|contracted procedure: k11429 o|contracted procedure: k11433 o|contracted procedure: k11448 o|contracted procedure: k11480 o|contracted procedure: k11548 o|contracted procedure: k11551 o|contracted procedure: k11554 o|contracted procedure: k11562 o|contracted procedure: k11570 o|contracted procedure: k11590 o|simplifications: ((let . 109)) o|removed binding forms: 1047 o|inlining procedure: k3929 o|inlining procedure: k3929 o|inlining procedure: k4174 o|inlining procedure: k4174 o|inlining procedure: k5021 o|inlining procedure: k5021 o|inlining procedure: k5021 o|substituted constant variable: r1125613149 o|substituted constant variable: r1125613150 o|substituted constant variable: r1125613151 o|substituted constant variable: r1125613152 o|inlining procedure: k11391 o|inlining procedure: k11391 o|simplifications: ((let . 1)) o|replaced variables: 359 o|removed binding forms: 2 o|removed conditional forms: 4 o|substituted constant variable: r393013157 o|substituted constant variable: r393013157 o|replaced variables: 1 o|removed binding forms: 239 o|contracted procedure: k4129 o|contracted procedure: k4490 o|contracted procedure: k9534 o|contracted procedure: k9719 o|replaced variables: 2 o|removed binding forms: 7 o|removed binding forms: 1 o|direct leaf routine/allocation: g20362045 0 o|direct leaf routine/allocation: g19231932 15 o|direct leaf routine/allocation: g14861495 9 o|direct leaf routine/allocation: g779790 30 o|contracted procedure: "(chicken-syntax.scm:943) k6154" o|contracted procedure: "(chicken-syntax.scm:902) k6310" o|contracted procedure: "(chicken-syntax.scm:538) k7984" o|contracted procedure: "(chicken-syntax.scm:305) k9771" o|removed binding forms: 4 o|customizable procedures: (g3140 map-loop2551 k11379 mapslots61 k11165 k10973 k10996 k10919 map-loop172189 g205214 map-loop199217 g233242 map-loop227245 map-loop278295 map-loop257302 loop333 map-loop314336 map-loop348372 map-loop384408 map-loop420444 map-loop456480 loop505 map-loop540557 map-loop567584 g600609 map-loop594612 g628637 map-loop622640 g656665 map-loop650668 map-loop680699 map-loop711730 map-loop742761 k9745 map-loop773800 map-loop815839 map-loop851875 k9508 map-loop887914 map-loop929953 map-loop965989 for-each-loop10271039 map-loop10711088 loop1096 g11151124 map-loop11091127 loop1137 map-loop11951213 k8783 fold1147 g11661175 map-loop11601178 fold1229 map-loop12481265 map-loop12741291 foldl13261330 map-loop13031342 map-loop13511370 quotify-proc13951397 k8121 k8133 fold1421 map-loop14801501 expand1456 map-loop15571574 g15931602 map-loop15871605 map-loop16151632 g16501659 map-loop16441662 recur1527 make-if-tree1521 prefix-sym1581 recur1542 loop1710 map-loop17401761 genvars1732 k6803 build1797 map-loop18201839 loop1734 map-loop19481965 k6238 k6241 k6244 map-loop19171938 map-loop20012018 map-loop20302048 k5916 k5922 k5929 k5937 loop2055 loop2099 loop2129 k5234 k5258 loop22282249 loop22282260 g23092318 map-loop23032330 k4904 k4778 k4636 loop23892410 loop23892426 map-loop24372455 map-loop24652483 k4295 loop2510 loop22524 map-loop25312556 map-loop25682592 g26292638 map-loop26232645) o|calls to known targets: 261 o|identified direct recursive calls: f_4102 1 o|identified direct recursive calls: f_4243 1 o|identified direct recursive calls: f_4046 1 o|identified direct recursive calls: f_4467 1 o|identified direct recursive calls: f_4501 1 o|identified direct recursive calls: f_6131 1 o|identified direct recursive calls: f_6165 1 o|identified direct recursive calls: f_6287 1 o|identified direct recursive calls: f_6849 1 o|identified direct recursive calls: f_7721 1 o|identified direct recursive calls: f_7789 1 o|identified direct recursive calls: f_7961 1 o|identified direct recursive calls: f_8025 2 o|identified direct recursive calls: f_8376 1 o|identified direct recursive calls: f_8446 1 o|identified direct recursive calls: f_8480 1 o|identified direct recursive calls: f_8535 1 o|identified direct recursive calls: f_8861 1 o|identified direct recursive calls: f_8973 1 o|identified direct recursive calls: f_9011 1 o|identified direct recursive calls: f_9407 1 o|identified direct recursive calls: f_9455 1 o|identified direct recursive calls: f_9644 1 o|identified direct recursive calls: f_9692 1 o|identified direct recursive calls: f_9810 1 o|identified direct recursive calls: f_9858 1 o|identified direct recursive calls: f_9906 1 o|identified direct recursive calls: f_10056 1 o|identified direct recursive calls: f_10090 1 o|identified direct recursive calls: f_10346 1 o|identified direct recursive calls: f_10394 1 o|identified direct recursive calls: f_10493 1 o|identified direct recursive calls: f_10541 1 o|identified direct recursive calls: f_10624 1 o|identified direct recursive calls: f_10674 1 o|identified direct recursive calls: f_10694 1 o|identified direct recursive calls: f_10742 1 o|identified direct recursive calls: f_10844 1 o|fast box initializations: 77 o|dropping unused closure argument: f_7591 */ /* end of file */ �������������������������������������chicken-4.12.0/posixunix.c��������������������������������������������������������������������������0000644�0001750�0001750�00003000610�13052306255�015223� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from posixunix.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:16 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: posixunix.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file posixunix.c unit: posix */ #include "chicken.h" #include <signal.h> #include <errno.h> #include <sys/stat.h> static int C_not_implemented(void); int C_not_implemented() { return -1; } #define C_curdir(buf) (getcwd(C_c_string(buf), 1024) ? C_fix(strlen(C_c_string(buf))) : C_SCHEME_FALSE) static C_TLS struct stat C_statbuf; #define C_stat_type (C_statbuf.st_mode & S_IFMT) #define C_stat(fn) C_fix(stat((char *)C_data_pointer(fn), &C_statbuf)) #define C_fstat(f) C_fix(fstat(C_unfix(f), &C_statbuf)) #ifndef S_IFSOCK # define S_IFSOCK 0140000 #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_flonum(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_C_fileno(p) C_fix(fileno(C_port_file(p))) #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) #define C_opendir(x,h) C_set_block_item(h, 0, (C_word) opendir(C_c_string(x))) #define C_closedir(h) (closedir((DIR *)C_block_item(h, 0)), C_SCHEME_UNDEFINED) #define C_readdir(h,e) C_set_block_item(e, 0, (C_word) readdir((DIR *)C_block_item(h, 0))) #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))) /* It is assumed that 'int' is-a 'long' */ #define C_ftell(p) C_fix(ftell(C_port_file(p))) #define C_fseek(p, n, w) C_mk_nbool(fseek(C_port_file(p), C_num_to_int(n), C_unfix(w))) #define C_lseek(fd, o, w) C_fix(lseek(C_unfix(fd), C_unfix(o), C_unfix(w))) #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 #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/utsname.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 #ifdef HAVE_GRP_H #include <grp.h> #endif #include <sys/mman.h> #include <sys/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 #if defined(HAVE_CRT_EXTERNS_H) # include <crt_externs.h> # define C_getenventry(i) ((*_NSGetEnviron())[ i ]) #elif defined(C_MACOSX) # define C_getenventry(i) NULL #else extern char **environ; # define C_getenventry(i) (environ[ i ]) #endif #ifndef FILENAME_MAX # define FILENAME_MAX 1024 #endif static C_TLS struct utsname C_utsname; static C_TLS struct flock C_flock; static C_TLS DIR *temphandle; static C_TLS struct passwd *C_user; #ifdef HAVE_GRP_H static C_TLS struct group *C_group; #else static C_TLS struct { char *gr_name, gr_passwd; int gr_gid; char *gr_mem[ 1 ]; } C_group = { "", "", 0, { "" } }; #endif /* 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 char C_hostbuf[ 256 ]; static C_TLS struct stat C_statbuf; #define C_mkdir(str) C_fix(mkdir(C_c_string(str), S_IRWXU | S_IRWXG | S_IRWXO)) #define C_fchdir(fd) C_fix(fchdir(C_unfix(fd))) #define C_chdir(str) C_fix(chdir(C_c_string(str))) #define C_rmdir(str) C_fix(rmdir(C_c_string(str))) #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_data_pointer(fn), C_unfix(u), C_unfix(g))) #define C_chmod(fn, m) C_fix(chmod(C_data_pointer(fn), 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_data_pointer(o), C_data_pointer(n))) #define C_do_readlink(f, b) C_fix(readlink(C_data_pointer(f), C_data_pointer(b), FILENAME_MAX)) #define C_getpwnam(n) C_mk_bool((C_user = getpwnam((char *)C_data_pointer(n))) != NULL) #define C_getpwuid(u) C_mk_bool((C_user = getpwuid(C_unfix(u))) != NULL) #if !defined(__ANDROID__) && defined(HAVE_GRP_H) #define C_getgrnam(n) C_mk_bool((C_group = getgrnam((char *)C_data_pointer(n))) != NULL) #define C_getgrgid(u) C_mk_bool((C_group = getgrgid(C_unfix(u))) != NULL) #else #define C_getgrnam(n) C_SCHEME_FALSE #define C_getgrgid(n) C_SCHEME_FALSE #endif #define C_pipe(d) C_fix(pipe(C_pipefds)) #define C_truncate(f, n) C_fix(truncate((char *)C_data_pointer(f), C_num_to_int(n))) #define C_ftruncate(f, n) C_fix(ftruncate(C_unfix(f), C_num_to_int(n))) #define C_uname C_fix(uname(&C_utsname)) #define C_alarm alarm #define C_setvbuf(p, m, s) C_fix(setvbuf(C_port_file(p), NULL, C_unfix(m), C_unfix(s))) #define C_test_access(fn, m) C_fix(access((char *)C_data_pointer(fn), C_unfix(m))) #define C_close(fd) C_fix(close(C_unfix(fd))) #define C_sleep sleep #define C_umask(m) C_fix(umask(C_unfix(m))) #define C_lstat(fn) C_fix(lstat((char *)C_data_pointer(fn), &C_statbuf)) #define C_u_i_execvp(f,a) C_fix(execvp(C_data_pointer(f), (char *const *)C_c_pointer_vector_or_null(a))) #define C_u_i_execve(f,a,e) C_fix(execve(C_data_pointer(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((char *)C_data_pointer(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_flonum(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 gid_t *C_groups = NULL; #define C_get_gid(n) C_fix(C_groups[ C_unfix(n) ]) #define C_set_gid(n, id) (C_groups[ C_unfix(n) ] = C_unfix(id), C_SCHEME_UNDEFINED) #define C_set_groups(n) C_fix(setgroups(C_unfix(n), C_groups)) #if !defined(__ANDROID__) && defined(TIOCGWINSZ) static int get_tty_size(int p, int *rows, int *cols) { struct winsize tty_size; int r; memset(&tty_size, 0, sizeof tty_size); r = ioctl(p, 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 p, int *rows, int *cols) { *rows = *cols = 0; return -1; } #endif static int set_file_mtime(char *filename, C_word tm) { struct utimbuf tb; tb.actime = tb.modtime = C_num_to_int(tm); return utime(filename, &tb); } static C_word C_i_fifo_p(C_word name) { struct stat buf; int res; res = stat(C_c_string(name), &buf); if(res != 0) { #ifdef __CYGWIN__ return C_SCHEME_FALSE; #else if(errno == ENOENT) return C_fix(0); else return C_fix(res); #endif } if((buf.st_mode & S_IFMT) == S_IFIFO) return C_SCHEME_TRUE; else return C_SCHEME_FALSE; } 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_irregex_toplevel) C_externimport void C_ccall C_irregex_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_files_toplevel) C_externimport void C_ccall C_files_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_ports_toplevel) C_externimport void C_ccall C_ports_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; static C_TLS C_word lf[470]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,41),40,112,111,115,105,120,45,101,114,114,111,114,32,116,121,112,101,55,49,32,108,111,99,55,50,32,109,115,103,55,51,32,46,32,97,114,103,115,55,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,115,116,97,116,32,102,105,108,101,56,54,32,108,105,110,107,56,55,32,101,114,114,56,56,32,108,111,99,56,57,41,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,28),40,102,105,108,101,45,115,116,97,116,32,102,49,48,49,32,46,32,116,109,112,49,48,48,49,48,50,41,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,23),40,102,105,108,101,45,97,99,99,101,115,115,45,116,105,109,101,32,102,49,50,55,41,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,23),40,102,105,108,101,45,99,104,97,110,103,101,45,116,105,109,101,32,102,49,51,48,41,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,17),40,102,105,108,101,45,111,119,110,101,114,32,102,49,51,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,23),40,102,105,108,101,45,112,101,114,109,105,115,115,105,111,110,115,32,102,49,51,54,41,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,16),40,102,105,108,101,45,115,105,122,101,32,102,49,51,57,41}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,31),40,102,105,108,101,45,116,121,112,101,32,102,105,108,101,49,52,54,32,46,32,116,109,112,49,52,53,49,52,55,41,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,23),40,114,101,103,117,108,97,114,45,102,105,108,101,63,32,102,105,108,101,49,54,53,41,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,24),40,115,121,109,98,111,108,105,99,45,108,105,110,107,63,32,102,105,108,101,49,54,55,41}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,23),40,98,108,111,99,107,45,100,101,118,105,99,101,63,32,102,105,108,101,49,54,57,41,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,27),40,99,104,97,114,97,99,116,101,114,45,100,101,118,105,99,101,63,32,102,105,108,101,49,55,49,41,0,0,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,16),40,102,95,50,57,53,49,32,102,105,108,101,49,55,51,41}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,17),40,115,111,99,107,101,116,63,32,102,105,108,101,49,55,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,20),40,100,105,114,101,99,116,111,114,121,63,32,102,105,108,101,49,55,55,41,0,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,47),40,115,101,116,45,102,105,108,101,45,112,111,115,105,116,105,111,110,33,32,112,111,114,116,49,56,50,32,112,111,115,49,56,51,32,46,32,119,104,101,110,99,101,49,56,52,41,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,25),40,109,111,100,101,32,105,110,112,50,48,54,32,109,50,48,55,32,108,111,99,50,48,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,32),40,99,104,101,99,107,32,108,111,99,50,50,48,32,102,100,50,50,49,32,105,110,112,50,50,50,32,114,50,50,51,41}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,31),40,111,112,101,110,45,105,110,112,117,116,45,102,105,108,101,42,32,102,100,50,50,54,32,46,32,109,50,50,55,41,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,32),40,111,112,101,110,45,111,117,116,112,117,116,45,102,105,108,101,42,32,102,100,50,50,57,32,46,32,109,50,51,48,41}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,22),40,112,111,114,116,45,62,102,105,108,101,110,111,32,112,111,114,116,50,51,54,41,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,34),40,100,117,112,108,105,99,97,116,101,45,102,105,108,101,110,111,32,111,108,100,50,52,53,32,46,32,110,101,119,50,52,54,41,0,0,0,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,31),40,99,117,114,114,101,110,116,45,100,105,114,101,99,116,111,114,121,32,46,32,116,109,112,50,53,54,50,53,55,41,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,14),40,114,109,100,105,114,32,100,105,114,50,56,51,41,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,11),40,103,50,56,57,32,102,50,57,56,41,0,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,56,56,32,103,50,57,53,51,48,54,41,0,0,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,38),40,100,101,108,101,116,101,45,100,105,114,101,99,116,111,114,121,32,110,97,109,101,50,55,53,32,46,32,116,109,112,50,55,52,50,55,54,41,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,100,105,114,51,50,57,41,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,7),40,97,51,51,56,50,41,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,47),40,97,51,51,56,56,32,100,105,114,51,51,55,51,51,56,51,52,51,32,102,105,108,101,51,51,57,51,52,48,51,52,52,32,101,120,116,51,52,49,51,52,50,51,52,53,41,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,38),40,99,114,101,97,116,101,45,100,105,114,101,99,116,111,114,121,32,110,97,109,101,51,49,56,32,46,32,116,109,112,51,49,55,51,49,57,41,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,23),40,100,105,114,101,99,116,111,114,121,32,46,32,116,109,112,51,53,57,51,54,48,41,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,7),40,97,51,53,56,57,41,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,11),40,103,52,50,50,32,109,52,50,52,41,0,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,102,110,115,52,49,53,41,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,46),40,97,51,53,57,53,32,100,105,114,51,57,56,51,57,57,52,48,52,32,102,105,108,52,48,48,52,48,49,52,48,53,32,101,120,116,52,48,50,52,48,51,52,48,54,41,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,20),40,99,111,110,99,45,108,111,111,112,32,112,97,116,104,115,51,57,54,41,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,17),40,103,108,111,98,32,46,32,112,97,116,104,115,51,57,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,7),40,97,51,55,54,50,41,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,7),40,97,51,55,54,55,41,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,7),40,97,51,55,56,55,41,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,24),40,108,111,111,112,32,100,105,114,52,53,49,32,102,115,52,53,50,32,114,52,53,51,41}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,13),40,102,95,51,56,51,51,32,120,52,52,57,41,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,15),40,102,95,51,56,52,57,32,46,32,95,52,52,54,41,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,15),40,102,95,51,56,52,49,32,46,32,95,52,52,53,41,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,7),40,97,51,56,55,56,41,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,7),40,97,51,56,56,49,41,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,7),40,97,51,56,56,52,41,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,7),40,97,51,56,56,55,41,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,18),40,102,95,51,56,57,51,32,120,52,56,56,32,121,52,56,57,41,0,0,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,7),40,97,51,56,57,48,41,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,15),40,102,95,51,57,48,49,32,46,32,95,52,56,54,41,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,7),40,97,51,56,57,56,41,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,31),40,102,105,110,100,45,102,105,108,101,115,32,100,105,114,52,56,51,32,46,32,116,109,112,52,56,50,52,56,52,41,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,32),40,99,104,101,99,107,45,116,105,109,101,45,118,101,99,116,111,114,32,108,111,99,53,49,52,32,116,109,53,49,53,41}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,33),40,115,101,99,111,110,100,115,45,62,108,111,99,97,108,45,116,105,109,101,32,46,32,116,109,112,53,50,49,53,50,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,31),40,115,101,99,111,110,100,115,45,62,117,116,99,45,116,105,109,101,32,46,32,116,109,112,53,51,51,53,51,52,41,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,29),40,115,101,99,111,110,100,115,45,62,115,116,114,105,110,103,32,46,32,116,109,112,53,53,49,53,53,50,41,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,27),40,108,111,99,97,108,45,116,105,109,101,45,62,115,101,99,111,110,100,115,32,116,109,53,54,51,41,0,0,0,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,32),40,116,105,109,101,45,62,115,116,114,105,110,103,32,116,109,53,57,53,32,46,32,116,109,112,53,57,52,53,57,54,41}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,22),40,115,101,116,101,110,118,32,118,97,114,54,48,57,32,118,97,108,54,49,48,41,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,17),40,117,110,115,101,116,101,110,118,32,118,97,114,54,49,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,11),40,115,99,97,110,32,106,54,50,57,41,0,0,0,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,54,50,54,41,0,0,0,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,27),40,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 li67[] C_aligned={C_lihdr(0,0,36),40,115,101,116,45,115,105,103,110,97,108,45,104,97,110,100,108,101,114,33,32,115,105,103,54,51,51,32,112,114,111,99,54,51,52,41,0,0,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,20),40,99,117,114,114,101,110,116,45,112,114,111,99,101,115,115,45,105,100,41,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,7),40,97,52,50,55,51,41,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,33),40,97,52,50,55,57,32,101,112,105,100,54,53,56,32,101,110,111,114,109,54,53,57,32,101,99,111,100,101,54,54,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,24),40,112,114,111,99,101,115,115,45,119,97,105,116,32,46,32,97,114,103,115,54,52,51,41}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,7),40,97,52,51,52,56,41,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,14),40,97,52,51,52,50,32,101,120,110,54,56,49,41,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,22),40,100,111,108,111,111,112,54,56,51,32,115,108,54,56,53,32,105,54,56,54,41,0,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,10),40,116,109,112,49,50,53,57,52,41,0,0,0,0,0,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,7),40,97,52,52,50,50,41,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,21),40,116,109,112,50,50,53,57,53,32,97,114,103,115,54,55,53,54,57,55,41,0,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,7),40,97,52,51,53,55,41,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,15),40,97,52,51,51,54,32,107,54,55,52,54,56,48,41,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,56),40,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,54,54,57,32,99,111,110,118,101,114,116,54,55,48,32,108,111,99,54,55,49,41}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,55,48,50,32,105,55,48,52,41}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,38),40,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,55,48,48,41,0,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,10),40,110,111,112,32,120,55,49,49,41,0,0,0,0,0,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,7),40,97,52,53,48,53,41,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,14),40,97,52,52,57,57,32,101,120,110,55,50,57,41,0,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,7),40,97,52,53,50,54,41,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,7),40,97,52,53,52,57,41,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,20),40,97,52,53,52,51,32,46,32,97,114,103,115,55,50,51,55,51,51,41,0,0,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,7),40,97,52,53,50,48,41,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,15),40,97,52,52,57,51,32,107,55,50,50,55,50,56,41,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,81),40,99,97,108,108,45,119,105,116,104,45,101,120,101,99,45,97,114,103,115,32,108,111,99,55,49,50,32,102,105,108,101,110,97,109,101,55,49,51,32,97,114,103,99,111,110,118,55,49,52,32,97,114,103,108,105,115,116,55,49,53,32,101,110,118,108,105,115,116,55,49,54,32,112,114,111,99,55,49,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,34),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,55,56,55,55,57,48,41,0,0,0,0,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,33),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,55,57,50,55,57,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,39),40,102,105,108,101,45,99,111,110,116,114,111,108,32,102,100,56,52,54,32,99,109,100,56,52,55,32,46,32,116,109,112,56,52,53,56,52,56,41,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,42),40,102,105,108,101,45,111,112,101,110,32,102,105,108,101,110,97,109,101,56,53,57,32,102,108,97,103,115,56,54,48,32,46,32,109,111,100,101,56,54,49,41,0,0,0,0,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,18),40,102,105,108,101,45,99,108,111,115,101,32,102,100,56,54,57,41,0,0,0,0,0,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,37),40,102,105,108,101,45,114,101,97,100,32,102,100,56,55,56,32,115,105,122,101,56,55,57,32,46,32,98,117,102,102,101,114,56,56,48,41,0,0,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,38),40,102,105,108,101,45,119,114,105,116,101,32,102,100,56,56,57,32,98,117,102,102,101,114,56,57,48,32,46,32,115,105,122,101,56,57,49,41,0,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,26),40,102,105,108,101,45,109,107,115,116,101,109,112,32,116,101,109,112,108,97,116,101,57,48,48,41,0,0,0,0,0,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,20),40,100,111,108,111,111,112,57,50,56,32,102,100,115,114,108,57,51,49,41,0,0,0,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,20),40,100,111,108,111,111,112,57,52,54,32,102,100,115,119,108,57,52,57,41,0,0,0,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,26),40,108,112,32,105,49,48,48,51,32,114,101,115,49,48,48,52,32,102,100,115,49,48,48,53,41,0,0,0,0,0,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,23),40,108,112,32,105,57,56,52,32,114,101,115,57,56,53,32,102,100,115,57,56,54,41,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,42),40,102,105,108,101,45,115,101,108,101,99,116,32,102,100,115,114,57,48,55,32,102,100,115,119,57,48,56,32,46,32,116,105,109,101,111,117,116,57,48,57,41,0,0,0,0,0,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,27),40,99,104,97,110,103,101,45,100,105,114,101,99,116,111,114,121,32,110,97,109,101,49,48,50,57,41,0,0,0,0,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,26),40,99,104,97,110,103,101,45,100,105,114,101,99,116,111,114,121,42,32,102,100,49,48,51,52,41,0,0,0,0,0,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,37),40,99,104,101,99,107,32,108,111,99,49,48,52,50,32,99,109,100,49,48,52,51,32,105,110,112,49,48,52,52,32,114,49,48,52,53,41,0,0,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,33),40,111,112,101,110,45,105,110,112,117,116,45,112,105,112,101,32,99,109,100,49,48,52,56,32,46,32,109,49,48,52,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,34),40,111,112,101,110,45,111,117,116,112,117,116,45,112,105,112,101,32,99,109,100,49,48,53,56,32,46,32,109,49,48,53,57,41,0,0,0,0,0,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,27),40,99,108,111,115,101,45,105,110,112,117,116,45,112,105,112,101,32,112,111,114,116,49,48,54,56,41,0,0,0,0,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,28),40,99,108,111,115,101,45,111,117,116,112,117,116,45,112,105,112,101,32,112,111,114,116,49,48,55,50,41,0,0,0,0}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,7),40,97,53,51,57,51,41,0}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,21),40,97,53,51,57,57,32,46,32,114,101,115,117,108,116,115,49,48,56,55,41,0,0,0}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,50),40,99,97,108,108,45,119,105,116,104,45,105,110,112,117,116,45,112,105,112,101,32,99,109,100,49,48,56,51,32,112,114,111,99,49,48,56,52,32,46,32,109,111,100,101,49,48,56,53,41,0,0,0,0,0,0}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,7),40,97,53,52,49,55,41,0}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,21),40,97,53,52,50,51,32,46,32,114,101,115,117,108,116,115,49,48,57,52,41,0,0,0}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,51),40,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,49,48,57,48,32,112,114,111,99,49,48,57,49,32,46,32,109,111,100,101,49,48,57,50,41,0,0,0,0,0}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,7),40,97,53,52,52,49,41,0}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,21),40,97,53,52,53,50,32,46,32,114,101,115,117,108,116,115,49,49,48,57,41,0,0,0}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,7),40,97,53,52,52,54,41,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,7),40,97,53,52,54,49,41,0}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,51),40,119,105,116,104,45,105,110,112,117,116,45,102,114,111,109,45,112,105,112,101,32,99,109,100,49,48,57,55,32,116,104,117,110,107,49,48,57,56,32,46,32,109,111,100,101,49,48,57,57,41,0,0,0,0,0}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,7),40,97,53,52,55,53,41,0}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,21),40,97,53,52,56,54,32,46,32,114,101,115,117,108,116,115,49,49,50,54,41,0,0,0}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,7),40,97,53,52,56,48,41,0}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,7),40,97,53,52,57,53,41,0}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,50),40,119,105,116,104,45,111,117,116,112,117,116,45,116,111,45,112,105,112,101,32,99,109,100,49,49,49,52,32,116,104,117,110,107,49,49,49,53,32,46,32,109,111,100,101,49,49,49,54,41,0,0,0,0,0,0}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,13),40,99,114,101,97,116,101,45,112,105,112,101,41,0,0,0}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,49,54,52,41,0,0,0,0,0}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,27),40,115,101,116,45,115,105,103,110,97,108,45,109,97,115,107,33,32,115,105,103,115,49,49,54,49,41,0,0,0,0,0}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,24),40,115,105,103,110,97,108,45,109,97,115,107,101,100,63,32,115,105,103,49,49,57,50,41}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,22),40,115,105,103,110,97,108,45,109,97,115,107,33,32,115,105,103,49,49,57,54,41,0,0}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,24),40,115,105,103,110,97,108,45,117,110,109,97,115,107,33,32,115,105,103,49,50,48,49,41}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,20),40,115,121,115,116,101,109,45,105,110,102,111,114,109,97,116,105,111,110,41,0,0,0,0}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,41),40,117,115,101,114,45,105,110,102,111,114,109,97,116,105,111,110,32,117,115,101,114,49,50,51,51,32,46,32,116,109,112,49,50,51,50,49,50,51,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,19),40,99,117,114,114,101,110,116,45,117,115,101,114,45,110,97,109,101,41,0,0,0,0,0}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,29),40,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}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,49,50,55,49,41,0,0,0,0}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,43),40,103,114,111,117,112,45,105,110,102,111,114,109,97,116,105,111,110,32,103,114,111,117,112,49,50,53,56,32,46,32,116,109,112,49,50,53,55,49,50,53,57,41,0,0,0,0,0}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,49,50,57,48,41,0,0,0,0}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,12),40,103,101,116,45,103,114,111,117,112,115,41,0,0,0,0}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,26),40,100,111,108,111,111,112,49,50,57,55,32,108,115,116,49,50,57,57,32,105,49,51,48,48,41,0,0,0,0,0,0}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,22),40,115,101,116,45,103,114,111,117,112,115,33,32,108,115,116,48,49,50,57,54,41,0,0}; static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,35),40,105,110,105,116,105,97,108,105,122,101,45,103,114,111,117,112,115,32,117,115,101,114,49,51,49,55,32,105,100,49,51,49,56,41,0,0,0,0,0}; static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,34),40,99,104,97,110,103,101,45,102,105,108,101,45,109,111,100,101,32,102,110,97,109,101,49,51,54,50,32,109,49,51,54,51,41,0,0,0,0,0,0}; static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,42),40,99,104,97,110,103,101,45,102,105,108,101,45,111,119,110,101,114,32,102,110,49,51,54,55,32,117,105,100,49,51,54,56,32,103,105,100,49,51,54,57,41,0,0,0,0,0,0}; static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,36),40,99,104,101,99,107,32,102,105,108,101,110,97,109,101,49,51,55,52,32,97,99,99,49,51,55,53,32,108,111,99,49,51,55,54,41,0,0,0,0}; static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,32),40,102,105,108,101,45,114,101,97,100,45,97,99,99,101,115,115,63,32,102,105,108,101,110,97,109,101,49,51,56,48,41}; static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,33),40,102,105,108,101,45,119,114,105,116,101,45,97,99,99,101,115,115,63,32,102,105,108,101,110,97,109,101,49,51,56,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,35),40,102,105,108,101,45,101,120,101,99,117,116,101,45,97,99,99,101,115,115,63,32,102,105,108,101,110,97,109,101,49,51,56,50,41,0,0,0,0,0}; static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,16),40,99,114,101,97,116,101,45,115,101,115,115,105,111,110,41}; static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,38),40,99,114,101,97,116,101,45,115,121,109,98,111,108,105,99,45,108,105,110,107,32,111,108,100,49,52,48,50,32,110,101,119,49,52,48,51,41,0,0}; static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,49),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,49,52,48,56,32,108,111,99,97,116,105,111,110,49,52,48,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,7),40,97,54,50,51,54,41,0}; static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,32),40,108,111,111,112,32,99,111,109,112,111,110,101,110,116,115,49,52,50,55,32,114,101,115,117,108,116,49,52,50,56,41}; static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,67),40,97,54,50,52,50,32,98,97,115,101,45,111,114,105,103,105,110,49,52,50,51,32,98,97,115,101,45,100,105,114,101,99,116,111,114,121,49,52,50,52,32,100,105,114,101,99,116,111,114,121,45,99,111,109,112,111,110,101,110,116,115,49,52,50,53,41,0,0,0,0,0}; static C_char C_TLS li158[] C_aligned={C_lihdr(0,0,44),40,114,101,97,100,45,115,121,109,98,111,108,105,99,45,108,105,110,107,32,102,110,97,109,101,49,52,49,54,32,46,32,116,109,112,49,52,49,53,49,52,49,55,41,0,0,0,0}; static C_char C_TLS li159[] C_aligned={C_lihdr(0,0,27),40,102,105,108,101,45,108,105,110,107,32,111,108,100,49,52,53,49,32,110,101,119,49,52,53,50,41,0,0,0,0,0}; static C_char C_TLS li160[] C_aligned={C_lihdr(0,0,8),40,114,101,97,100,121,63,41}; static C_char C_TLS li161[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li162[] C_aligned={C_lihdr(0,0,7),40,102,101,116,99,104,41,0}; static C_char C_TLS li163[] C_aligned={C_lihdr(0,0,7),40,97,54,53,51,56,41,0}; static C_char C_TLS li164[] C_aligned={C_lihdr(0,0,7),40,97,54,53,54,51,41,0}; static C_char C_TLS li165[] C_aligned={C_lihdr(0,0,7),40,97,54,53,55,53,41,0}; static C_char C_TLS li166[] C_aligned={C_lihdr(0,0,7),40,97,54,53,57,55,41,0}; static C_char C_TLS li167[] C_aligned={C_lihdr(0,0,28),40,108,111,111,112,32,110,49,53,51,48,32,109,49,53,51,49,32,115,116,97,114,116,49,53,51,50,41,0,0,0,0}; static C_char C_TLS li168[] C_aligned={C_lihdr(0,0,41),40,97,54,54,49,50,32,112,111,114,116,49,53,50,53,32,110,49,53,50,54,32,100,101,115,116,49,53,50,55,32,115,116,97,114,116,49,53,50,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li169[] C_aligned={C_lihdr(0,0,15),40,97,54,55,49,54,32,112,111,115,49,53,53,50,41,0}; static C_char C_TLS li170[] C_aligned={C_lihdr(0,0,7),40,97,54,55,48,54,41,0}; static C_char C_TLS li171[] C_aligned={C_lihdr(0,0,40),40,97,54,55,54,50,32,110,101,120,116,49,53,54,48,32,108,105,110,101,49,53,54,49,32,102,117,108,108,45,108,105,110,101,63,49,53,54,50,41}; static C_char C_TLS li172[] C_aligned={C_lihdr(0,0,23),40,97,54,54,56,56,32,112,49,53,52,54,32,108,105,109,105,116,49,53,52,55,41,0}; static C_char C_TLS li173[] C_aligned={C_lihdr(0,0,16),40,97,54,56,49,49,32,112,111,114,116,49,53,54,55,41}; static C_char C_TLS li174[] C_aligned={C_lihdr(0,0,62),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,49,52,54,48,32,110,97,109,49,52,54,49,32,102,100,49,52,54,50,32,46,32,116,109,112,49,52,53,57,49,52,54,51,41,0,0}; static C_char C_TLS li175[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li176[] C_aligned={C_lihdr(0,0,26),40,112,111,107,101,49,53,57,52,32,115,116,114,49,54,48,48,32,108,101,110,49,54,48,49,41,0,0,0,0,0,0}; static C_char C_TLS li177[] C_aligned={C_lihdr(0,0,15),40,97,54,57,56,55,32,115,116,114,49,54,51,56,41,0}; static C_char C_TLS li178[] C_aligned={C_lihdr(0,0,7),40,97,54,57,57,51,41,0}; static C_char C_TLS li179[] C_aligned={C_lihdr(0,0,7),40,97,55,48,49,53,41,0}; static C_char C_TLS li180[] C_aligned={C_lihdr(0,0,16),40,102,95,55,48,50,52,32,115,116,114,49,54,49,56,41}; static C_char C_TLS li181[] C_aligned={C_lihdr(0,0,32),40,108,111,111,112,32,114,101,109,49,54,50,51,32,115,116,97,114,116,49,54,50,52,32,108,101,110,49,54,50,53,41}; static C_char C_TLS li182[] C_aligned={C_lihdr(0,0,16),40,102,95,55,48,51,57,32,115,116,114,49,54,50,49,41}; static C_char C_TLS li183[] C_aligned={C_lihdr(0,0,63),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,49,53,55,56,32,110,97,109,49,53,55,57,32,102,100,49,53,56,48,32,46,32,116,109,112,49,53,55,55,49,53,56,49,41,0}; static C_char C_TLS li184[] C_aligned={C_lihdr(0,0,33),40,102,105,108,101,45,116,114,117,110,99,97,116,101,32,102,110,97,109,101,49,54,52,54,32,111,102,102,49,54,52,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li185[] C_aligned={C_lihdr(0,0,33),40,115,101,116,117,112,32,112,111,114,116,49,54,53,53,32,97,114,103,115,49,54,53,54,32,108,111,99,49,54,53,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li186[] C_aligned={C_lihdr(0,0,30),40,101,114,114,32,109,115,103,49,54,55,50,32,108,111,99,107,49,54,55,51,32,108,111,99,49,54,55,52,41,0,0}; static C_char C_TLS li187[] C_aligned={C_lihdr(0,0,31),40,102,105,108,101,45,108,111,99,107,32,112,111,114,116,49,54,55,53,32,46,32,97,114,103,115,49,54,55,54,41,0}; static C_char C_TLS li188[] C_aligned={C_lihdr(0,0,40),40,102,105,108,101,45,108,111,99,107,47,98,108,111,99,107,105,110,103,32,112,111,114,116,49,54,55,56,32,46,32,97,114,103,115,49,54,55,57,41}; static C_char C_TLS li189[] C_aligned={C_lihdr(0,0,36),40,102,105,108,101,45,116,101,115,116,45,108,111,99,107,32,112,111,114,116,49,54,56,49,32,46,32,97,114,103,115,49,54,56,50,41,0,0,0,0}; static C_char C_TLS li190[] C_aligned={C_lihdr(0,0,22),40,102,105,108,101,45,117,110,108,111,99,107,32,108,111,99,107,49,54,57,57,41,0,0}; static C_char C_TLS li191[] C_aligned={C_lihdr(0,0,34),40,99,114,101,97,116,101,45,102,105,102,111,32,102,110,97,109,101,49,55,48,51,32,46,32,109,111,100,101,49,55,48,52,41,0,0,0,0,0,0}; static C_char C_TLS li192[] C_aligned={C_lihdr(0,0,20),40,102,105,102,111,63,32,102,105,108,101,110,97,109,101,49,55,48,57,41,0,0,0,0}; static C_char C_TLS li193[] C_aligned={C_lihdr(0,0,72),40,109,97,112,45,102,105,108,101,45,116,111,45,109,101,109,111,114,121,32,97,100,100,114,49,55,52,53,32,108,101,110,49,55,52,54,32,112,114,111,116,49,55,52,55,32,102,108,97,103,49,55,52,56,32,102,100,49,55,52,57,32,46,32,111,102,102,49,55,53,48,41}; static C_char C_TLS li194[] C_aligned={C_lihdr(0,0,43),40,117,110,109,97,112,45,102,105,108,101,45,102,114,111,109,45,109,101,109,111,114,121,32,109,109,97,112,49,55,54,55,32,46,32,108,101,110,49,55,54,56,41,0,0,0,0,0}; static C_char C_TLS li195[] C_aligned={C_lihdr(0,0,37),40,109,101,109,111,114,121,45,109,97,112,112,101,100,45,102,105,108,101,45,112,111,105,110,116,101,114,32,109,109,97,112,49,55,55,50,41,0,0,0}; static C_char C_TLS li196[] C_aligned={C_lihdr(0,0,27),40,109,101,109,111,114,121,45,109,97,112,112,101,100,45,102,105,108,101,63,32,120,49,55,55,53,41,0,0,0,0,0}; static C_char C_TLS li197[] C_aligned={C_lihdr(0,0,36),40,115,116,114,105,110,103,45,62,116,105,109,101,32,116,105,109,49,55,57,54,32,46,32,116,109,112,49,55,57,53,49,55,57,55,41,0,0,0,0}; static C_char C_TLS li198[] C_aligned={C_lihdr(0,0,26),40,117,116,99,45,116,105,109,101,45,62,115,101,99,111,110,100,115,32,116,109,49,56,48,56,41,0,0,0,0,0,0}; static C_char C_TLS li199[] C_aligned={C_lihdr(0,0,29),40,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,0,0,0}; static C_char C_TLS li200[] C_aligned={C_lihdr(0,0,18),40,95,101,120,105,116,32,46,32,99,111,100,101,49,56,50,49,41,0,0,0,0,0,0}; static C_char C_TLS li201[] C_aligned={C_lihdr(0,0,24),40,115,101,116,45,97,108,97,114,109,33,32,105,110,116,49,56,50,51,49,56,50,54,41}; static C_char C_TLS li202[] C_aligned={C_lihdr(0,0,50),40,115,101,116,45,98,117,102,102,101,114,105,110,103,45,109,111,100,101,33,32,112,111,114,116,49,56,50,56,32,109,111,100,101,49,56,50,57,32,46,32,115,105,122,101,49,56,51,48,41,0,0,0,0,0,0}; static C_char C_TLS li203[] C_aligned={C_lihdr(0,0,25),40,116,101,114,109,105,110,97,108,45,112,111,114,116,63,32,112,111,114,116,49,56,52,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li204[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,116,101,114,109,105,110,97,108,45,99,104,101,99,107,32,99,97,108,108,101,114,49,56,52,55,32,112,111,114,116,49,56,52,56,41,0,0,0,0,0,0}; static C_char C_TLS li205[] C_aligned={C_lihdr(0,0,24),40,116,101,114,109,105,110,97,108,45,110,97,109,101,32,112,111,114,116,49,56,53,56,41}; static C_char C_TLS li206[] C_aligned={C_lihdr(0,0,24),40,116,101,114,109,105,110,97,108,45,115,105,122,101,32,112,111,114,116,49,56,55,48,41}; static C_char C_TLS li207[] C_aligned={C_lihdr(0,0,15),40,103,101,116,45,104,111,115,116,45,110,97,109,101,41,0}; static C_char C_TLS li208[] C_aligned={C_lihdr(0,0,18),40,102,95,55,57,49,53,32,116,104,117,110,107,49,57,50,48,41,0,0,0,0,0,0}; static C_char C_TLS li209[] C_aligned={C_lihdr(0,0,7),40,97,55,57,48,54,41,0}; static C_char C_TLS li210[] C_aligned={C_lihdr(0,0,28),40,112,114,111,99,101,115,115,45,102,111,114,107,32,46,32,116,109,112,49,56,57,54,49,56,57,55,41,0,0,0,0}; static C_char C_TLS li211[] C_aligned={C_lihdr(0,0,13),40,97,55,57,55,50,32,120,49,57,52,49,41,0,0,0}; static C_char C_TLS li212[] C_aligned={C_lihdr(0,0,37),40,97,55,57,55,53,32,112,114,103,49,57,52,50,32,97,114,103,98,117,102,49,57,52,51,32,101,110,118,98,117,102,49,57,52,52,41,0,0,0}; static C_char C_TLS li213[] C_aligned={C_lihdr(0,0,44),40,112,114,111,99,101,115,115,45,101,120,101,99,117,116,101,32,102,105,108,101,110,97,109,101,49,57,50,57,32,46,32,116,109,112,49,57,50,56,49,57,51,48,41,0,0,0,0}; static C_char C_TLS li214[] C_aligned={C_lihdr(0,0,7),40,97,56,48,51,48,41,0}; static C_char C_TLS li215[] C_aligned={C_lihdr(0,0,39),40,35,35,115,121,115,35,112,114,111,99,101,115,115,45,119,97,105,116,32,112,105,100,49,57,52,55,32,110,111,104,97,110,103,49,57,52,56,41,0}; static C_char C_TLS li216[] C_aligned={C_lihdr(0,0,19),40,112,97,114,101,110,116,45,112,114,111,99,101,115,115,45,105,100,41,0,0,0,0,0}; static C_char C_TLS li217[] C_aligned={C_lihdr(0,0,19),40,115,108,101,101,112,32,105,110,116,49,57,54,48,49,57,54,51,41,0,0,0,0,0}; static C_char C_TLS li218[] C_aligned={C_lihdr(0,0,33),40,112,114,111,99,101,115,115,45,115,105,103,110,97,108,32,105,100,49,57,54,53,32,46,32,115,105,103,49,57,54,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li219[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,115,104,101,108,108,45,99,111,109,109,97,110,100,41,0,0,0}; static C_char C_TLS li220[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,115,104,101,108,108,45,99,111,109,109,97,110,100,45,97,114,103,117,109,101,110,116,115,32,99,109,100,108,105,110,49,57,55,54,41,0,0,0,0,0,0}; static C_char C_TLS li221[] C_aligned={C_lihdr(0,0,30),40,112,114,111,99,101,115,115,45,114,117,110,32,102,49,57,55,56,32,46,32,97,114,103,115,49,57,55,57,41,0,0}; static C_char C_TLS li222[] C_aligned={C_lihdr(0,0,7),40,97,56,49,55,51,41,0}; static C_char C_TLS li223[] C_aligned={C_lihdr(0,0,29),40,97,56,49,55,57,32,95,50,48,48,51,32,102,108,103,50,48,48,52,32,99,111,100,50,48,48,53,41,0,0,0}; static C_char C_TLS li224[] C_aligned={C_lihdr(0,0,8),40,102,95,56,49,53,57,41}; static C_char C_TLS li225[] C_aligned={C_lihdr(0,0,68),40,109,97,107,101,45,111,110,45,99,108,111,115,101,32,108,111,99,49,57,57,54,32,112,105,100,49,57,57,55,32,99,108,115,118,101,99,49,57,57,56,32,105,100,120,49,57,57,57,32,105,100,120,97,50,48,48,48,32,105,100,120,98,50,48,48,49,41,0,0,0,0}; static C_char C_TLS li226[] C_aligned={C_lihdr(0,0,7),40,97,56,50,48,50,41,0}; static C_char C_TLS li227[] C_aligned={C_lihdr(0,0,19),40,97,56,50,48,56,32,105,50,48,49,48,32,111,50,48,49,49,41,0,0,0,0,0}; static C_char C_TLS li228[] C_aligned={C_lihdr(0,0,22),40,110,101,101,100,101,100,45,112,105,112,101,32,112,111,114,116,50,48,48,56,41,0,0}; static C_char C_TLS li229[] C_aligned={C_lihdr(0,0,34),40,99,111,110,110,101,99,116,45,112,97,114,101,110,116,32,112,105,112,101,50,48,49,51,32,112,111,114,116,50,48,49,52,41,0,0,0,0,0,0}; static C_char C_TLS li230[] C_aligned={C_lihdr(0,0,43),40,99,111,110,110,101,99,116,45,99,104,105,108,100,32,112,105,112,101,50,48,50,49,32,112,111,114,116,50,48,50,50,32,115,116,100,102,100,50,48,50,51,41,0,0,0,0,0}; static C_char C_TLS li231[] 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 li232[] C_aligned={C_lihdr(0,0,7),40,97,56,50,55,55,41,0}; static C_char C_TLS li233[] C_aligned={C_lihdr(0,0,67),40,115,112,97,119,110,32,99,109,100,50,48,51,52,32,97,114,103,115,50,48,51,53,32,101,110,118,50,48,51,54,32,115,116,100,111,117,116,102,50,48,51,55,32,115,116,100,105,110,102,50,48,51,56,32,115,116,100,101,114,114,102,50,48,51,57,41,0,0,0,0,0}; static C_char C_TLS li234[] C_aligned={C_lihdr(0,0,59),40,105,110,112,117,116,45,112,111,114,116,32,108,111,99,50,48,52,54,32,99,109,100,50,48,52,56,32,112,105,112,101,50,48,52,57,32,115,116,100,102,50,48,53,48,32,111,110,45,99,108,111,115,101,50,48,53,50,41,0,0,0,0,0}; static C_char C_TLS li235[] C_aligned={C_lihdr(0,0,60),40,111,117,116,112,117,116,45,112,111,114,116,32,108,111,99,50,48,53,52,32,99,109,100,50,48,53,54,32,112,105,112,101,50,48,53,55,32,115,116,100,102,50,48,53,56,32,111,110,45,99,108,111,115,101,50,48,54,48,41,0,0,0,0}; static C_char C_TLS li236[] C_aligned={C_lihdr(0,0,7),40,97,56,51,50,55,41,0}; static C_char C_TLS li237[] C_aligned={C_lihdr(0,0,50),40,97,56,51,51,51,32,105,110,112,105,112,101,50,48,54,57,32,111,117,116,112,105,112,101,50,48,55,48,32,101,114,114,112,105,112,101,50,48,55,49,32,112,105,100,50,48,55,50,41,0,0,0,0,0,0}; static C_char C_TLS li238[] C_aligned={C_lihdr(0,0,83),40,35,35,115,121,115,35,112,114,111,99,101,115,115,32,108,111,99,50,48,54,50,32,99,109,100,50,48,54,51,32,97,114,103,115,50,48,54,52,32,101,110,118,50,48,54,53,32,115,116,100,111,117,116,102,50,48,54,54,32,115,116,100,105,110,102,50,48,54,55,32,115,116,100,101,114,114,102,50,48,54,56,41,0,0,0,0,0}; static C_char C_TLS li239[] C_aligned={C_lihdr(0,0,7),40,103,50,48,56,56,41,0}; static C_char C_TLS li240[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,48,56,55,41,0,0,0,0,0}; static C_char C_TLS li241[] C_aligned={C_lihdr(0,0,19),40,99,104,107,115,116,114,108,115,116,32,108,115,116,50,48,56,52,41,0,0,0,0,0}; static C_char C_TLS li242[] C_aligned={C_lihdr(0,0,7),40,97,56,52,50,56,41,0}; static C_char C_TLS li243[] C_aligned={C_lihdr(0,0,58),40,37,112,114,111,99,101,115,115,32,108,111,99,50,48,55,55,32,101,114,114,63,50,48,55,56,32,99,109,100,50,48,55,57,32,97,114,103,115,50,48,56,48,32,101,110,118,50,48,56,49,32,107,50,48,56,50,41,0,0,0,0,0,0}; static C_char C_TLS li244[] C_aligned={C_lihdr(0,0,31),40,97,56,52,54,54,32,105,50,49,51,49,32,111,50,49,51,50,32,112,50,49,51,51,32,101,50,49,51,52,41,0}; static C_char C_TLS li245[] C_aligned={C_lihdr(0,0,31),40,112,114,111,99,101,115,115,32,99,109,100,50,49,49,57,32,46,32,116,109,112,50,49,49,56,50,49,50,48,41,0}; static C_char C_TLS li246[] C_aligned={C_lihdr(0,0,32),40,112,114,111,99,101,115,115,42,32,99,109,100,50,49,51,57,32,46,32,116,109,112,50,49,51,56,50,49,52,48,41}; static C_char C_TLS li247[] C_aligned={C_lihdr(0,0,29),40,115,101,116,45,114,111,111,116,45,100,105,114,101,99,116,111,114,121,33,32,100,105,114,50,49,54,48,41,0,0,0}; static C_char C_TLS li248[] C_aligned={C_lihdr(0,0,15),40,97,56,53,55,52,32,112,105,100,49,51,57,49,41,0}; static C_char C_TLS li249[] C_aligned={C_lihdr(0,0,24),40,97,56,53,57,50,32,112,105,100,49,51,57,54,32,112,103,105,100,49,51,57,55,41}; static C_char C_TLS li250[] C_aligned={C_lihdr(0,0,7),40,97,56,54,49,52,41,0}; static C_char C_TLS li251[] C_aligned={C_lihdr(0,0,14),40,97,56,54,49,55,32,105,100,49,50,50,54,41,0,0}; static C_char C_TLS li252[] C_aligned={C_lihdr(0,0,7),40,97,56,54,51,51,41,0}; static C_char C_TLS li253[] C_aligned={C_lihdr(0,0,14),40,97,56,54,51,54,32,105,100,49,50,50,49,41,0,0}; static C_char C_TLS li254[] C_aligned={C_lihdr(0,0,7),40,97,56,54,53,50,41,0}; static C_char C_TLS li255[] C_aligned={C_lihdr(0,0,14),40,97,56,54,53,53,32,105,100,49,50,49,54,41,0,0}; static C_char C_TLS li256[] C_aligned={C_lihdr(0,0,7),40,97,56,54,55,49,41,0}; static C_char C_TLS li257[] C_aligned={C_lihdr(0,0,14),40,97,56,54,55,52,32,105,100,49,50,49,49,41,0,0}; static C_char C_TLS li258[] C_aligned={C_lihdr(0,0,24),40,108,111,111,112,32,115,105,103,115,49,49,56,54,32,109,97,115,107,49,49,56,55,41}; static C_char C_TLS li259[] C_aligned={C_lihdr(0,0,7),40,97,56,54,57,48,41,0}; static C_char C_TLS li260[] C_aligned={C_lihdr(0,0,14),40,97,56,55,50,52,32,115,105,103,54,51,57,41,0,0}; static C_char C_TLS li261[] C_aligned={C_lihdr(0,0,19),40,97,56,55,51,51,32,46,32,116,109,112,52,57,56,52,57,57,41,0,0,0,0,0}; static C_char C_TLS li262[] C_aligned={C_lihdr(0,0,13),40,97,56,55,53,56,32,117,109,53,49,49,41,0,0,0}; static C_char C_TLS li263[] C_aligned={C_lihdr(0,0,15),40,97,56,55,54,52,32,112,111,114,116,49,57,52,41,0}; static C_char C_TLS li264[] C_aligned={C_lihdr(0,0,12),40,97,56,56,48,49,32,102,49,49,48,41,0,0,0,0}; static C_char C_TLS li265[] C_aligned={C_lihdr(0,0,17),40,97,56,56,48,55,32,102,49,49,50,32,116,49,49,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li266[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; /* from k8542 in set-root-directory! in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ C_regparm static C_word C_fcall stub2155(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_string_or_null(C_a0); C_r=C_fix((C_word)chroot(t0)); return C_r;} /* from k8059 */ C_regparm static C_word C_fcall stub1961(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_sleep(t0)); return C_r;} /* from parent-process-id in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ C_regparm static C_word C_fcall stub1957(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 k7879 */ C_regparm static C_word C_fcall stub1911(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 stub1891(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;} #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 stub1884(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; if(gethostname(C_hostbuf, 256) == -1) C_return(NULL);else C_return(C_hostbuf); C_ret: #undef return return C_r;} /* from k7808 */ C_regparm static C_word C_fcall stub1865(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 k7784 */ C_regparm static C_word C_fcall stub1854(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 k7671 */ C_regparm static C_word C_fcall stub1824(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;} /* from k7651 */ C_regparm static C_word C_fcall stub1818(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); _exit(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 stub1812(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 k7579 */ C_regparm static C_word C_fcall stub1783(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 k7522 */ C_regparm static C_word C_fcall stub1761(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_num_to_int(C_a1); C_r=C_fix((C_word)munmap(t0,t1)); return C_r;} /* from k7462 */ C_regparm static C_word C_fcall stub1734(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_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; void * t0=(void * )C_c_pointer_or_null(C_a0); int t1=(int )C_num_to_int(C_a1); int t2=(int )C_unfix(C_a2); int t3=(int )C_unfix(C_a3); int t4=(int )C_unfix(C_a4); int t5=(int )C_num_to_int(C_a5); C_r=C_mpointer_or_false(&C_a,(void*)mmap(t0,t1,t2,t3,t4,t5)); return C_r;} /* from k6326 in k6322 in file-link in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ C_regparm static C_word C_fcall stub1443(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_string_or_null(C_a0); char * t1=(char * )C_string_or_null(C_a1); C_r=C_fix((C_word)link(t0,t1)); return C_r;} /* from k5993 */ C_regparm static C_word C_fcall stub1311(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_string_or_null(C_a0); int t1=(int )C_unfix(C_a1); C_r=C_fix((C_word)initgroups(t0,t1)); 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 stub1281(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int n=(int )C_unfix(C_a0); if(C_groups != NULL) C_free(C_groups);C_groups = (gid_t *)C_malloc(sizeof(gid_t) * n);if(C_groups == NULL) C_return(0);else 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 stub1276(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int n=(int )C_unfix(C_a0); C_return(getgroups(n, C_groups)); 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 stub1249(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int i=(int )C_unfix(C_a0); C_return(C_group->gr_mem[ i ]); C_ret: #undef return return C_r;} /* from a8614 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ C_regparm static C_word C_fcall stub1224(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 a8633 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ C_regparm static C_word C_fcall stub1219(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 a8652 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ C_regparm static C_word C_fcall stub1214(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 a8671 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ C_regparm static C_word C_fcall stub1209(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 stub1014(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 stub995(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 k4865 */ C_regparm static C_word C_fcall stub970(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 stub955(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 stub937(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 k4617 */ C_regparm static C_word C_fcall stub837(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 k4566 */ C_regparm static C_word C_fcall stub793(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 stub788(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 stub665(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 k4158 */ C_regparm static C_word C_fcall stub621(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 k4056 */ C_regparm static C_word C_fcall stub582(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 k4043 */ C_regparm static C_word C_fcall stub572(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 k3976 */ C_regparm static C_word C_fcall stub544(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 k8816 in a8807 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ C_regparm static C_word C_fcall stub119(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_string_or_null(C_a0); C_word t1=(C_word )(C_a1); C_r=C_fix((C_word)set_file_mtime(t0,t1)); return C_r;} /* from k2701 */ C_regparm static C_word C_fcall stub67(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_4494) static void C_ccall f_4494(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_4489) static void C_ccall f_4489(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_8725) static void C_ccall f_8725(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_5418) static void C_ccall f_5418(C_word c,C_word *av) C_noret; C_noret_decl(f_5413) static void C_ccall f_5413(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_3833) static void C_ccall f_3833(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_4274) static void C_ccall f_4274(C_word c,C_word *av) 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_3313) static void C_ccall f_3313(C_word c,C_word *av) C_noret; C_noret_decl(f_6621) static void C_fcall f_6621(C_word t0,C_word t1) C_noret; C_noret_decl(f_5771) static void C_ccall f_5771(C_word c,C_word *av) C_noret; C_noret_decl(f_6623) static void C_fcall f_6623(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_3862) static void C_ccall f_3862(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_7024) static void C_ccall f_7024(C_word c,C_word *av) C_noret; C_noret_decl(f_6671) static void C_ccall f_6671(C_word c,C_word *av) 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_3888) static void C_ccall f_3888(C_word c,C_word *av) C_noret; C_noret_decl(f_7756) static void C_fcall f_7756(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5791) static void C_fcall f_5791(C_word t0,C_word t1) 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_5428) static void C_ccall f_5428(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_3885) static void C_ccall f_3885(C_word c,C_word *av) C_noret; C_noret_decl(f_3882) static void C_ccall f_3882(C_word c,C_word *av) 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_3367) static void C_ccall f_3367(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_7004) static void C_ccall f_7004(C_word c,C_word *av) C_noret; C_noret_decl(f_8615) static void C_ccall f_8615(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_6613) static void C_ccall f_6613(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_3871) static void C_ccall f_3871(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_5737) static void C_ccall f_5737(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_8609) static void C_ccall f_8609(C_word c,C_word *av) C_noret; C_noret_decl(f_4908) static void C_ccall f_4908(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_5481) static void C_ccall f_5481(C_word c,C_word *av) C_noret; C_noret_decl(f_5081) static C_word C_fcall f_5081(C_word t0,C_word t1,C_word t2); C_noret_decl(f_4205) static void C_ccall f_4205(C_word c,C_word *av) 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_8634) static void C_ccall f_8634(C_word c,C_word *av) C_noret; C_noret_decl(f_5723) static void C_ccall f_5723(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_4918) static void C_fcall f_4918(C_word t0,C_word t1) C_noret; C_noret_decl(f_4911) static void C_ccall f_4911(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_8628) static void C_ccall f_8628(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_6602) static void C_ccall f_6602(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_4227) static void C_ccall f_4227(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_5068) static void C_fcall f_5068(C_word t0,C_word t1) 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_3323) static void C_ccall f_3323(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_7205) static void C_fcall f_7205(C_word t0,C_word t1) C_noret; C_noret_decl(f_6067) static void C_ccall f_6067(C_word c,C_word *av) C_noret; C_noret_decl(f_6429) static C_word C_fcall f_6429(C_word t0); C_noret_decl(f_4434) static void C_ccall f_4434(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_6437) static void C_fcall f_6437(C_word t0,C_word t1) C_noret; C_noret_decl(f_4440) static void C_fcall f_4440(C_word t0,C_word t1) C_noret; C_noret_decl(f_7266) static void C_ccall f_7266(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_3855) static void C_ccall f_3855(C_word c,C_word *av) C_noret; C_noret_decl(f_5036) static void C_fcall f_5036(C_word t0,C_word t1) C_noret; C_noret_decl(f_3901) static void C_ccall f_3901(C_word c,C_word *av) C_noret; C_noret_decl(f_3906) static void C_ccall f_3906(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_noret; C_noret_decl(f_3908) static void C_fcall f_3908(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7248) static void C_fcall f_7248(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6026) static void C_ccall f_6026(C_word c,C_word *av) C_noret; C_noret_decl(f_3281) static void C_fcall f_3281(C_word t0,C_word t1,C_word t2) 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_3276) static void C_ccall f_3276(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_7270) static void C_ccall f_7270(C_word c,C_word *av) C_noret; C_noret_decl(f_4977) static void C_fcall f_4977(C_word t0,C_word t1) C_noret; C_noret_decl(f_3291) static void C_ccall f_3291(C_word c,C_word *av) 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_7282) static void C_ccall f_7282(C_word c,C_word *av) C_noret; C_noret_decl(f_7286) static void C_ccall f_7286(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_word t2) C_noret; C_noret_decl(f_4948) static void C_fcall f_4948(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_3952) static void C_ccall f_3952(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_6443) static void C_ccall f_6443(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_3931) static void C_ccall f_3931(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_4459) static void C_ccall f_4459(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_6911) static void C_ccall f_6911(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_3209) static void C_ccall f_3209(C_word c,C_word *av) C_noret; C_noret_decl(f_3206) static void C_ccall f_3206(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_7836) static void C_ccall f_7836(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_7840) static void C_ccall f_7840(C_word c,C_word *av) C_noret; C_noret_decl(f_3227) static void C_ccall f_3227(C_word c,C_word *av) C_noret; C_noret_decl(f_7815) static void C_ccall f_7815(C_word c,C_word *av) C_noret; C_noret_decl(f_6400) static void C_fcall f_6400(C_word t0,C_word t1) C_noret; C_noret_decl(f_7811) static void C_ccall f_7811(C_word c,C_word *av) C_noret; C_noret_decl(f_6404) static void C_ccall f_6404(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_4407) static void C_ccall f_4407(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_8153) static void C_ccall f_8153(C_word c,C_word *av) 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_8157) static void C_fcall f_8157(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_6967) static void C_ccall f_6967(C_word c,C_word *av) C_noret; C_noret_decl(f_6936) static void C_ccall f_6936(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_8174) static void C_ccall f_8174(C_word c,C_word *av) C_noret; C_noret_decl(f_6693) static void C_ccall f_6693(C_word c,C_word *av) C_noret; C_noret_decl(f_6994) static void C_ccall f_6994(C_word c,C_word *av) C_noret; C_noret_decl(f_4116) static void C_ccall f_4116(C_word c,C_word *av) C_noret; C_noret_decl(f_8110) static void C_ccall f_8110(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(C_posix_toplevel) C_externexport void C_ccall C_posix_toplevel(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_8103) static void C_ccall f_8103(C_word c,C_word *av) C_noret; C_noret_decl(f_8107) static void C_fcall f_8107(C_word t0,C_word t1) C_noret; C_noret_decl(f_6977) static void C_fcall f_6977(C_word t0,C_word t1) C_noret; C_noret_decl(f_6689) static void C_ccall f_6689(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_3948) static void C_ccall f_3948(C_word c,C_word *av) C_noret; C_noret_decl(f_6982) static void C_ccall f_6982(C_word c,C_word *av) C_noret; C_noret_decl(f_6988) static void C_ccall f_6988(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_6114) static void C_ccall f_6114(C_word c,C_word *av) C_noret; C_noret_decl(f_6116) static void C_fcall f_6116(C_word t0,C_word t1,C_word t2,C_word t3) 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_8194) static void C_fcall f_8194(C_word t0,C_word t1) C_noret; C_noret_decl(f_5289) static void C_ccall f_5289(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_5273) static void C_ccall f_5273(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_4161) static void C_ccall f_4161(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_4167) static void C_fcall f_4167(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4171) static void C_ccall f_4171(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_4141) static void C_ccall f_4141(C_word c,C_word *av) C_noret; C_noret_decl(f_4149) static void C_ccall f_4149(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_6158) static void C_ccall f_6158(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_5447) static void C_ccall f_5447(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_4124) static void C_ccall f_4124(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_8365) static void C_ccall f_8365(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_6136) static void C_ccall f_6136(C_word c,C_word *av) 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_6134) static void C_ccall f_6134(C_word c,C_word *av) C_noret; C_noret_decl(f_3088) static void C_ccall f_3088(C_word c,C_word *av) C_noret; C_noret_decl(f_4135) static void C_ccall f_4135(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_7915) static void C_ccall f_7915(C_word c,C_word *av) C_noret; C_noret_decl(f_8353) static void C_ccall f_8353(C_word c,C_word *av) C_noret; C_noret_decl(f_6142) static void C_ccall f_6142(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_5453) static void C_ccall f_5453(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_5457) static void C_ccall f_5457(C_word c,C_word *av) C_noret; C_noret_decl(f_7056) static void C_fcall f_7056(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_5207) static void C_ccall f_5207(C_word c,C_word *av) C_noret; C_noret_decl(f_8380) static void C_fcall f_8380(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8385) static C_word C_fcall f_8385(C_word t0,C_word t1); C_noret_decl(f_6198) static void C_ccall f_6198(C_word c,C_word *av) C_noret; C_noret_decl(f_7973) static void C_ccall f_7973(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_7976) static void C_ccall f_7976(C_word c,C_word *av) C_noret; C_noret_decl(f_6194) static void C_ccall f_6194(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_5404) static void C_ccall f_5404(C_word c,C_word *av) C_noret; C_noret_decl(f_7066) static void C_ccall f_7066(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_8378) static void C_fcall f_8378(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_5437) static void C_ccall f_5437(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_7038) static void C_ccall f_7038(C_word c,C_word *av) 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_6173) static void C_ccall f_6173(C_word c,C_word *av) 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_5462) static void C_ccall f_5462(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_5467) static void C_ccall f_5467(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_8015) static void C_ccall f_8015(C_word c,C_word *av) C_noret; C_noret_decl(f_8394) static C_word C_fcall f_8394(C_word t0,C_word t1); C_noret_decl(f_8129) static void C_ccall f_8129(C_word c,C_word *av) 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_3487) static void C_ccall f_3487(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_4244) static void C_ccall f_4244(C_word c,C_word *av) C_noret; C_noret_decl(f_3473) static void C_fcall f_3473(C_word t0,C_word t1) 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_7855) static void C_ccall f_7855(C_word c,C_word *av) C_noret; C_noret_decl(f_5296) static void C_ccall f_5296(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_8056) static void C_ccall f_8056(C_word c,C_word *av) C_noret; C_noret_decl(f_3499) static void C_fcall f_3499(C_word t0,C_word t1) 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_8300) static void C_fcall f_8300(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_8304) static void C_ccall f_8304(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_8328) static void C_ccall f_8328(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_8092) static void C_ccall f_8092(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_8311) static void C_fcall f_8311(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_8315) static void C_ccall f_8315(C_word c,C_word *av) C_noret; C_noret_decl(f_3233) static void C_fcall f_3233(C_word t0,C_word t1) 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_7475) static void C_fcall f_7475(C_word t0,C_word t1) C_noret; C_noret_decl(f_8097) static void C_ccall f_8097(C_word c,C_word *av) C_noret; C_noret_decl(f_8345) static void C_ccall f_8345(C_word c,C_word *av) C_noret; C_noret_decl(f_8349) static void C_ccall f_8349(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_5385) static void C_ccall f_5385(C_word c,C_word *av) C_noret; C_noret_decl(f_8334) static void C_ccall f_8334(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_5377) static void C_ccall f_5377(C_word c,C_word *av) C_noret; C_noret_decl(f_5370) static void C_ccall f_5370(C_word c,C_word *av) C_noret; C_noret_decl(f_3267) static void C_ccall f_3267(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_3257) static void C_fcall f_3257(C_word t0,C_word t1,C_word t2) 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_4382) static void C_ccall f_4382(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_6393) static void C_ccall f_6393(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_8088) static void C_ccall f_8088(C_word c,C_word *av) C_noret; C_noret_decl(f_8802) static void C_ccall f_8802(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_8806) static void C_ccall f_8806(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_3038) static void C_fcall f_3038(C_word t0,C_word t1,C_word t2,C_word t3) 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_3033) static void C_ccall f_3033(C_word c,C_word *av) C_noret; C_noret_decl(f_8818) static void C_ccall f_8818(C_word c,C_word *av) C_noret; C_noret_decl(f_6737) static void C_ccall f_6737(C_word c,C_word *av) 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_3006) static void C_ccall f_3006(C_word c,C_word *av) C_noret; C_noret_decl(f_6717) static void C_ccall f_6717(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_3075) static void C_fcall f_3075(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_5394) static void C_ccall f_5394(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_noret; C_noret_decl(f_6707) static void C_ccall f_6707(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_5123) static C_word C_fcall f_5123(C_word t0,C_word t1,C_word t2); C_noret_decl(f_3046) static void C_ccall f_3046(C_word c,C_word *av) C_noret; C_noret_decl(f_8031) static void C_ccall f_8031(C_word c,C_word *av) C_noret; C_noret_decl(f_6324) static void C_ccall f_6324(C_word c,C_word *av) C_noret; C_noret_decl(f_6328) static void C_ccall f_6328(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_8067) static void C_fcall f_8067(C_word t0,C_word t1) C_noret; C_noret_decl(f_3596) static void C_ccall f_3596(C_word c,C_word *av) C_noret; C_noret_decl(f_3590) static void C_ccall f_3590(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_4670) static void C_ccall f_4670(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_3575) static void C_fcall f_3575(C_word t0,C_word t1,C_word t2) 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_4620) static void C_ccall f_4620(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_2919) static void C_ccall f_2919(C_word c,C_word *av) C_noret; C_noret_decl(f_4657) static void C_fcall f_4657(C_word t0,C_word t1) 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_6363) static void C_ccall f_6363(C_word c,C_word *av) C_noret; C_noret_decl(f_6365) static void C_ccall f_6365(C_word c,C_word *av) C_noret; C_noret_decl(f_5260) static void C_fcall f_5260(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_6343) static void C_ccall f_6343(C_word c,C_word *av) C_noret; C_noret_decl(f_5233) static void C_ccall f_5233(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_5226) static void C_ccall f_5226(C_word c,C_word *av) C_noret; C_noret_decl(f_5217) static void C_ccall f_5217(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_2941) static void C_ccall f_2941(C_word c,C_word *av) C_noret; C_noret_decl(f_2949) static void C_ccall f_2949(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_2931) static void C_ccall f_2931(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_8259) static void C_ccall f_8259(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_2961) static void C_ccall f_2961(C_word c,C_word *av) C_noret; C_noret_decl(f_8255) static void C_fcall f_8255(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_3430) static void C_ccall f_3430(C_word c,C_word *av) C_noret; C_noret_decl(f_2969) static void C_ccall f_2969(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_8241) static C_word C_fcall f_8241(C_word *a,C_word t0); C_noret_decl(f_8278) static void C_ccall f_8278(C_word c,C_word *av) C_noret; C_noret_decl(f_3455) static void C_ccall f_3455(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_6763) static void C_ccall f_6763(C_word c,C_word *av) C_noret; C_noret_decl(f_3452) static void C_ccall f_3452(C_word c,C_word *av) C_noret; C_noret_decl(f_2988) static void C_fcall f_2988(C_word t0,C_word t1) C_noret; C_noret_decl(f_8276) static void C_ccall f_8276(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_2971) static void C_ccall f_2971(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_8265) static void C_ccall f_8265(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_8214) static void C_fcall f_8214(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8209) static void C_ccall f_8209(C_word c,C_word *av) C_noret; C_noret_decl(f_8203) static void C_ccall f_8203(C_word c,C_word *av) C_noret; C_noret_decl(f_8575) static void C_ccall f_8575(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_5814) static void C_fcall f_5814(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5812) static void C_ccall f_5812(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_4017) static void C_ccall f_4017(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_5804) static void C_ccall f_5804(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_4025) static void C_ccall f_4025(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_2959) static void C_ccall f_2959(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_8569) static void C_ccall f_8569(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_6504) static void C_ccall f_6504(C_word c,C_word *av) C_noret; C_noret_decl(f_8552) static void C_ccall f_8552(C_word c,C_word *av) C_noret; C_noret_decl(f_3193) static void C_ccall f_3193(C_word c,C_word *av) C_noret; C_noret_decl(f_8588) static void C_ccall f_8588(C_word c,C_word *av) C_noret; C_noret_decl(f_4062) static void C_ccall f_4062(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_8582) static void C_ccall f_8582(C_word c,C_word *av) C_noret; C_noret_decl(f_2806) static void C_ccall f_2806(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_2800) static void C_ccall f_2800(C_word c,C_word *av) C_noret; C_noret_decl(f_8285) static void C_ccall f_8285(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_4069) static void C_ccall f_4069(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_4078) static void C_ccall f_4078(C_word c,C_word *av) 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_6537) static void C_ccall f_6537(C_word c,C_word *av) C_noret; C_noret_decl(f_6533) static void C_ccall f_6533(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_4092) static void C_ccall f_4092(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_4088) static void C_ccall f_4088(C_word c,C_word *av) C_noret; C_noret_decl(f_6543) static void C_ccall f_6543(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_5874) static void C_ccall f_5874(C_word c,C_word *av) C_noret; C_noret_decl(f_5871) static void C_ccall f_5871(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_5336) static void C_ccall f_5336(C_word c,C_word *av) C_noret; C_noret_decl(f_4360) static void C_fcall f_4360(C_word t0,C_word t1) 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_5864) static void C_ccall f_5864(C_word c,C_word *av) C_noret; C_noret_decl(f_4366) static void C_fcall f_4366(C_word t0,C_word t1,C_word t2,C_word t3) 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_5362) static void C_ccall f_5362(C_word c,C_word *av) C_noret; C_noret_decl(f_6576) static void C_ccall f_6576(C_word c,C_word *av) C_noret; C_noret_decl(f_7173) static void C_ccall f_7173(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_5842) static void C_ccall f_5842(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_6586) static void C_ccall f_6586(C_word c,C_word *av) C_noret; C_noret_decl(f_2816) static void C_ccall f_2816(C_word c,C_word *av) C_noret; C_noret_decl(f_2818) static void C_ccall f_2818(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_4513) static void C_ccall f_4513(C_word c,C_word *av) C_noret; C_noret_decl(f_2810) static void C_ccall f_2810(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_7149) static void C_ccall f_7149(C_word c,C_word *av) C_noret; C_noret_decl(f_4353) static void C_ccall f_4353(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_4521) static void C_ccall f_4521(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_7159) static void C_fcall f_7159(C_word t0,C_word t1) C_noret; C_noret_decl(f_4321) static void C_fcall f_4321(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5828) static void C_ccall f_5828(C_word c,C_word *av) C_noret; C_noret_decl(f_4329) static void C_ccall f_4329(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_8237) static void C_ccall f_8237(C_word c,C_word *av) C_noret; C_noret_decl(f_4332) static void C_ccall f_4332(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_2822) static void C_ccall f_2822(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_8225) static void C_ccall f_8225(C_word c,C_word *av) C_noret; C_noret_decl(f_8226) static void C_fcall f_8226(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7184) static void C_fcall f_7184(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6598) static void C_ccall f_6598(C_word c,C_word *av) 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_3569) static void C_ccall f_3569(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_4807) static void C_ccall f_4807(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_3609) static void C_fcall f_3609(C_word t0,C_word t1,C_word t2) 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_4814) static void C_ccall f_4814(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_4836) static void C_fcall f_4836(C_word t0,C_word t1) 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_8544) static void C_ccall f_8544(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_2843) static void C_ccall f_2843(C_word c,C_word *av) C_noret; C_noret_decl(f_3670) static void C_ccall f_3670(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_3102) static void C_ccall f_3102(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_5904) static void C_ccall f_5904(C_word c,C_word *av) C_noret; C_noret_decl(f_3695) static void C_fcall f_3695(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3693) static void C_ccall f_3693(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_3166) static void C_ccall f_3166(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_3160) static void C_ccall f_3160(C_word c,C_word *av) C_noret; C_noret_decl(f_3686) static void C_fcall f_3686(C_word t0,C_word t1) C_noret; C_noret_decl(f_3683) static void C_fcall f_3683(C_word t0,C_word t1) 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_2715) static void C_ccall f_2715(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_2719) static void C_ccall f_2719(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_2704) static void C_ccall f_2704(C_word c,C_word *av) C_noret; C_noret_decl(f_3173) static void C_fcall f_3173(C_word t0,C_word t1) 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_7528) static void C_ccall f_7528(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_7570) static void C_ccall f_7570(C_word c,C_word *av) C_noret; C_noret_decl(f_5932) static void C_ccall f_5932(C_word c,C_word *av) C_noret; C_noret_decl(f_5937) static void C_fcall f_5937(C_word t0,C_word t1,C_word t2,C_word t3) 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_5597) static void C_ccall f_5597(C_word c,C_word *av) C_noret; C_noret_decl(f_3708) static void C_ccall f_3708(C_word c,C_word *av) C_noret; C_noret_decl(f_7585) static void C_ccall f_7585(C_word c,C_word *av) C_noret; C_noret_decl(f_2751) static void C_ccall f_2751(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_5953) static void C_ccall f_5953(C_word c,C_word *av) C_noret; C_noret_decl(f_2747) static void C_ccall f_2747(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_6090) static void C_ccall f_6090(C_word c,C_word *av) 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_2772) static void C_ccall f_2772(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_2760) static void C_ccall f_2760(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_2792) static void C_ccall f_2792(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_6203) static void C_ccall f_6203(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_7398) static void C_ccall f_7398(C_word c,C_word *av) C_noret; C_noret_decl(f_2794) static void C_ccall f_2794(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_noret; C_noret_decl(f_6208) static void C_ccall f_6208(C_word c,C_word *av) C_noret; C_noret_decl(f_7390) static void C_ccall f_7390(C_word c,C_word *av) 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_5572) static C_word C_fcall f_5572(C_word t0); C_noret_decl(f_3626) static void C_ccall f_3626(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_4830) static void C_fcall f_4830(C_word t0,C_word t1) C_noret; C_noret_decl(f_4833) static void C_fcall f_4833(C_word t0,C_word t1) 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_7694) static void C_fcall f_7694(C_word t0,C_word t1) 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_3783) static void C_ccall f_3783(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_3788) static void C_ccall f_3788(C_word c,C_word *av) C_noret; C_noret_decl(f_4716) static void C_ccall f_4716(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_6003) static void C_ccall f_6003(C_word c,C_word *av) C_noret; C_noret_decl(f_3763) static void C_ccall f_3763(C_word c,C_word *av) C_noret; C_noret_decl(f_8765) static void C_ccall f_8765(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_8769) static void C_ccall f_8769(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_6019) static void C_ccall f_6019(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_6263) static void C_ccall f_6263(C_word c,C_word *av) C_noret; C_noret_decl(f_8759) static void C_ccall f_8759(C_word c,C_word *av) C_noret; C_noret_decl(f_6269) static void C_ccall f_6269(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_3742) static void C_ccall f_3742(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_8781) static void C_ccall f_8781(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_5928) static void C_ccall f_5928(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_6281) static void C_ccall f_6281(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_8447) static void C_ccall f_8447(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_8772) static void C_ccall f_8772(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_6222) static void C_ccall f_6222(C_word c,C_word *av) C_noret; C_noret_decl(f_8467) static void C_ccall f_8467(C_word c,C_word *av) C_noret; C_noret_decl(f_2722) static void C_fcall f_2722(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_2726) static void C_ccall f_2726(C_word c,C_word *av) C_noret; C_noret_decl(f_6237) static void C_ccall f_6237(C_word c,C_word *av) C_noret; C_noret_decl(f_3381) static void C_ccall f_3381(C_word c,C_word *av) C_noret; C_noret_decl(f_3383) static void C_ccall f_3383(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_7606) static void C_ccall f_7606(C_word c,C_word *av) C_noret; C_noret_decl(f_4794) static void C_ccall f_4794(C_word c,C_word *av) C_noret; C_noret_decl(f_6243) static void C_ccall f_6243(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_7602) static void C_ccall f_7602(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_4767) static void C_fcall f_4767(C_word t0,C_word t1) 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_7325) static void C_ccall f_7325(C_word c,C_word *av) C_noret; C_noret_decl(f_8697) static void C_fcall f_8697(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6253) static void C_fcall f_6253(C_word t0,C_word t1,C_word t2,C_word t3) 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_8691) static void C_ccall f_8691(C_word c,C_word *av) C_noret; C_noret_decl(f_4773) static void C_ccall f_4773(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_4542) static void C_ccall f_4542(C_word c,C_word *av) C_noret; C_noret_decl(f_4544) static void C_ccall f_4544(C_word c,C_word *av) C_noret; C_noret_decl(f_5685) static void C_ccall f_5685(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_5689) static void C_ccall f_5689(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_7630) static void C_ccall f_7630(C_word c,C_word *av) C_noret; C_noret_decl(f_5670) static void C_ccall f_5670(C_word c,C_word *av) C_noret; C_noret_decl(f_5677) static void C_ccall f_5677(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_7641) static void C_ccall f_7641(C_word c,C_word *av) 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_5660) static void C_ccall f_5660(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_4729) static void C_ccall f_4729(C_word c,C_word *av) C_noret; C_noret_decl(f_8656) static void C_ccall f_8656(C_word c,C_word *av) C_noret; C_noret_decl(f_7614) static void C_ccall f_7614(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_8647) static void C_ccall f_8647(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_7626) static void C_ccall f_7626(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_4506) static void C_ccall f_4506(C_word c,C_word *av) C_noret; C_noret_decl(f_5641) static void C_ccall f_5641(C_word c,C_word *av) C_noret; C_noret_decl(f_4500) static void C_ccall f_4500(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_5648) static void C_ccall f_5648(C_word c,C_word *av) C_noret; C_noret_decl(f_8675) static void C_ccall f_8675(C_word c,C_word *av) C_noret; C_noret_decl(f_4550) static void C_ccall f_4550(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_4556) static void C_ccall f_4556(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_8672) static void C_ccall f_8672(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_2689) static void C_ccall f_2689(C_word c,C_word *av) C_noret; C_noret_decl(f_2686) static void C_ccall f_2686(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_8666) static void C_ccall f_8666(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_7682) static void C_fcall f_7682(C_word t0,C_word t1) 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_7685) static void C_ccall f_7685(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_6888) static void C_ccall f_6888(C_word c,C_word *av) C_noret; C_noret_decl(f_2677) static void C_ccall f_2677(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_4531) static void C_fcall f_4531(C_word t0,C_word t1) 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_7654) static void C_ccall f_7654(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_4538) static void C_ccall f_4538(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_5698) static void C_fcall f_5698(C_word t0,C_word t1) 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_2692) static void C_ccall f_2692(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_8443) static void C_ccall f_8443(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_5501) static void C_ccall f_5501(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_7360) static void C_fcall f_7360(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_5496) static void C_ccall f_5496(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_7377) static void C_ccall f_7377(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_5471) static void C_ccall f_5471(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_5719) static void C_ccall f_5719(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_5711) static void C_ccall f_5711(C_word c,C_word *av) C_noret; C_noret_decl(f_3801) static void C_ccall f_3801(C_word c,C_word *av) C_noret; C_noret_decl(f_3351) static void C_ccall f_3351(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_3823) static void C_ccall f_3823(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_word t3,C_word t4) 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_3899) static void C_ccall f_3899(C_word c,C_word *av) C_noret; C_noret_decl(f_3348) static void C_fcall f_3348(C_word t0,C_word t1) C_noret; C_noret_decl(f_3341) static void C_fcall f_3341(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_3893) static void C_ccall f_3893(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_3849) static void C_ccall f_3849(C_word c,C_word *av) C_noret; C_noret_decl(f_4476) static void C_fcall f_4476(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_3339) static void C_ccall f_3339(C_word c,C_word *av) C_noret; C_noret_decl(trf_6621) static void C_ccall trf_6621(C_word c,C_word *av) C_noret; static void C_ccall trf_6621(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6621(t0,t1);} C_noret_decl(trf_6623) static void C_ccall trf_6623(C_word c,C_word *av) C_noret; static void C_ccall trf_6623(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_6623(t0,t1,t2,t3,t4);} C_noret_decl(trf_7756) static void C_ccall trf_7756(C_word c,C_word *av) C_noret; static void C_ccall trf_7756(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7756(t0,t1,t2);} C_noret_decl(trf_5791) static void C_ccall trf_5791(C_word c,C_word *av) C_noret; static void C_ccall trf_5791(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5791(t0,t1);} C_noret_decl(trf_4918) static void C_ccall trf_4918(C_word c,C_word *av) C_noret; static void C_ccall trf_4918(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4918(t0,t1);} C_noret_decl(trf_5068) static void C_ccall trf_5068(C_word c,C_word *av) C_noret; static void C_ccall trf_5068(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5068(t0,t1);} 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[1]; C_word t1=av[0]; f_7205(t0,t1);} C_noret_decl(trf_6437) static void C_ccall trf_6437(C_word c,C_word *av) C_noret; static void C_ccall trf_6437(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6437(t0,t1);} C_noret_decl(trf_4440) static void C_ccall trf_4440(C_word c,C_word *av) C_noret; static void C_ccall trf_4440(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4440(t0,t1);} C_noret_decl(trf_5036) static void C_ccall trf_5036(C_word c,C_word *av) C_noret; static void C_ccall trf_5036(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5036(t0,t1);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_4449(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_3908(t0,t1,t2);} C_noret_decl(trf_7248) static void C_ccall trf_7248(C_word c,C_word *av) C_noret; static void C_ccall trf_7248(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7248(t0,t1,t2,t3);} C_noret_decl(trf_3281) static void C_ccall trf_3281(C_word c,C_word *av) C_noret; static void C_ccall trf_3281(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3281(t0,t1,t2);} C_noret_decl(trf_4977) static void C_ccall trf_4977(C_word c,C_word *av) C_noret; static void C_ccall trf_4977(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4977(t0,t1);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_4417(t0,t1,t2);} C_noret_decl(trf_4948) static void C_ccall trf_4948(C_word c,C_word *av) C_noret; static void C_ccall trf_4948(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_4948(t0,t1,t2,t3,t4);} C_noret_decl(trf_6400) static void C_ccall trf_6400(C_word c,C_word *av) C_noret; static void C_ccall trf_6400(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6400(t0,t1);} 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[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_8157(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_8107) static void C_ccall trf_8107(C_word c,C_word *av) C_noret; static void C_ccall trf_8107(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8107(t0,t1);} C_noret_decl(trf_6977) static void C_ccall trf_6977(C_word c,C_word *av) C_noret; static void C_ccall trf_6977(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6977(t0,t1);} C_noret_decl(trf_6116) static void C_ccall trf_6116(C_word c,C_word *av) C_noret; static void C_ccall trf_6116(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6116(t0,t1,t2,t3);} C_noret_decl(trf_8194) static void C_ccall trf_8194(C_word c,C_word *av) C_noret; static void C_ccall trf_8194(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8194(t0,t1);} C_noret_decl(trf_4167) static void C_ccall trf_4167(C_word c,C_word *av) C_noret; static void C_ccall trf_4167(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4167(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_7056) static void C_ccall trf_7056(C_word c,C_word *av) C_noret; static void C_ccall trf_7056(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_7056(t0,t1,t2,t3,t4);} C_noret_decl(trf_8380) static void C_ccall trf_8380(C_word c,C_word *av) C_noret; static void C_ccall trf_8380(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8380(t0,t1,t2);} C_noret_decl(trf_8378) static void C_ccall trf_8378(C_word c,C_word *av) C_noret; static void C_ccall trf_8378(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_8378(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_3473) static void C_ccall trf_3473(C_word c,C_word *av) C_noret; static void C_ccall trf_3473(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3473(t0,t1);} C_noret_decl(trf_3499) static void C_ccall trf_3499(C_word c,C_word *av) C_noret; static void C_ccall trf_3499(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3499(t0,t1);} C_noret_decl(trf_8300) static void C_ccall trf_8300(C_word c,C_word *av) C_noret; static void C_ccall trf_8300(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_8300(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_8311) static void C_ccall trf_8311(C_word c,C_word *av) C_noret; static void C_ccall trf_8311(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_8311(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_3233) static void C_ccall trf_3233(C_word c,C_word *av) C_noret; static void C_ccall trf_3233(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3233(t0,t1);} C_noret_decl(trf_7475) static void C_ccall trf_7475(C_word c,C_word *av) C_noret; static void C_ccall trf_7475(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7475(t0,t1);} C_noret_decl(trf_3257) static void C_ccall trf_3257(C_word c,C_word *av) C_noret; static void C_ccall trf_3257(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3257(t0,t1,t2);} C_noret_decl(trf_3038) static void C_ccall trf_3038(C_word c,C_word *av) C_noret; static void C_ccall trf_3038(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3038(t0,t1,t2,t3);} C_noret_decl(trf_3075) static void C_ccall trf_3075(C_word c,C_word *av) C_noret; static void C_ccall trf_3075(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_3075(t0,t1,t2,t3,t4);} 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[1]; C_word t1=av[0]; f_6702(t0,t1);} C_noret_decl(trf_8067) static void C_ccall trf_8067(C_word c,C_word *av) C_noret; static void C_ccall trf_8067(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8067(t0,t1);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_3575(t0,t1,t2);} C_noret_decl(trf_4657) static void C_ccall trf_4657(C_word c,C_word *av) C_noret; static void C_ccall trf_4657(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4657(t0,t1);} C_noret_decl(trf_5260) static void C_ccall trf_5260(C_word c,C_word *av) C_noret; static void C_ccall trf_5260(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_5260(t0,t1,t2,t3,t4);} C_noret_decl(trf_8255) static void C_ccall trf_8255(C_word c,C_word *av) C_noret; static void C_ccall trf_8255(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_8255(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_2988) static void C_ccall trf_2988(C_word c,C_word *av) C_noret; static void C_ccall trf_2988(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2988(t0,t1);} C_noret_decl(trf_8214) static void C_ccall trf_8214(C_word c,C_word *av) C_noret; static void C_ccall trf_8214(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8214(t0,t1,t2);} C_noret_decl(trf_5814) static void C_ccall trf_5814(C_word c,C_word *av) C_noret; static void C_ccall trf_5814(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5814(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_4360) static void C_ccall trf_4360(C_word c,C_word *av) C_noret; static void C_ccall trf_4360(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4360(t0,t1);} C_noret_decl(trf_4366) static void C_ccall trf_4366(C_word c,C_word *av) C_noret; static void C_ccall trf_4366(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4366(t0,t1,t2,t3);} C_noret_decl(trf_7159) static void C_ccall trf_7159(C_word c,C_word *av) C_noret; static void C_ccall trf_7159(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7159(t0,t1);} C_noret_decl(trf_4321) static void C_ccall trf_4321(C_word c,C_word *av) C_noret; static void C_ccall trf_4321(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4321(t0,t1,t2,t3);} C_noret_decl(trf_8226) static void C_ccall trf_8226(C_word c,C_word *av) C_noret; static void C_ccall trf_8226(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8226(t0,t1,t2,t3);} C_noret_decl(trf_7184) static void C_ccall trf_7184(C_word c,C_word *av) C_noret; static void C_ccall trf_7184(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7184(t0,t1,t2,t3);} C_noret_decl(trf_3609) static void C_ccall trf_3609(C_word c,C_word *av) C_noret; static void C_ccall trf_3609(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3609(t0,t1,t2);} C_noret_decl(trf_4836) static void C_ccall trf_4836(C_word c,C_word *av) C_noret; static void C_ccall trf_4836(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4836(t0,t1);} C_noret_decl(trf_3695) static void C_ccall trf_3695(C_word c,C_word *av) C_noret; static void C_ccall trf_3695(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_3695(t0,t1,t2,t3,t4);} 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_3686) static void C_ccall trf_3686(C_word c,C_word *av) C_noret; static void C_ccall trf_3686(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3686(t0,t1);} C_noret_decl(trf_3683) static void C_ccall trf_3683(C_word c,C_word *av) C_noret; static void C_ccall trf_3683(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3683(t0,t1);} C_noret_decl(trf_3173) static void C_ccall trf_3173(C_word c,C_word *av) C_noret; static void C_ccall trf_3173(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3173(t0,t1);} C_noret_decl(trf_5937) static void C_ccall trf_5937(C_word c,C_word *av) C_noret; static void C_ccall trf_5937(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5937(t0,t1,t2,t3);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_3630(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[1]; C_word t1=av[0]; f_4830(t0,t1);} C_noret_decl(trf_4833) static void C_ccall trf_4833(C_word c,C_word *av) C_noret; static void C_ccall trf_4833(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4833(t0,t1);} C_noret_decl(trf_7694) static void C_ccall trf_7694(C_word c,C_word *av) C_noret; static void C_ccall trf_7694(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7694(t0,t1);} C_noret_decl(trf_2722) static void C_ccall trf_2722(C_word c,C_word *av) C_noret; static void C_ccall trf_2722(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_2722(t0,t1,t2,t3,t4);} C_noret_decl(trf_4767) static void C_ccall trf_4767(C_word c,C_word *av) C_noret; static void C_ccall trf_4767(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4767(t0,t1);} C_noret_decl(trf_8697) static void C_ccall trf_8697(C_word c,C_word *av) C_noret; static void C_ccall trf_8697(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8697(t0,t1,t2,t3);} C_noret_decl(trf_6253) static void C_ccall trf_6253(C_word c,C_word *av) C_noret; static void C_ccall trf_6253(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6253(t0,t1,t2,t3);} 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[1]; C_word t1=av[0]; f_7682(t0,t1);} C_noret_decl(trf_4531) static void C_ccall trf_4531(C_word c,C_word *av) C_noret; static void C_ccall trf_4531(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4531(t0,t1);} C_noret_decl(trf_5698) static void C_ccall trf_5698(C_word c,C_word *av) C_noret; static void C_ccall trf_5698(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5698(t0,t1);} C_noret_decl(trf_7360) static void C_ccall trf_7360(C_word c,C_word *av) C_noret; static void C_ccall trf_7360(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7360(t0,t1);} 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[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_5007(t0,t1,t2,t3,t4);} C_noret_decl(trf_3348) static void C_ccall trf_3348(C_word c,C_word *av) C_noret; static void C_ccall trf_3348(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3348(t0,t1);} C_noret_decl(trf_3341) static void C_ccall trf_3341(C_word c,C_word *av) C_noret; static void C_ccall trf_3341(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3341(t0,t1,t2);} C_noret_decl(trf_4476) static void C_ccall trf_4476(C_word c,C_word *av) C_noret; static void C_ccall trf_4476(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_4476(t0,t1,t2,t3,t4,t5,t6,t7);} /* a4493 in k4484 in k4478 in call-with-exec-args in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4494(C_word c,C_word *av){ C_word tmp; C_word 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_4494,3,av);} a=C_alloc(17); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4500,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li85),tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4521,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)li89),tmp=(C_word)a,a+=11,tmp); /* posix-common.scm:726: with-exception-handler */ t5=*((C_word*)lf[135]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_3841 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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,1)))){ C_save_and_reclaim((void *)f_3841,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4487 in k4484 in k4478 in call-with-exec-args in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4489,2,av);} /* posix-common.scm:726: g726 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k4484 in k4478 in call-with-exec-args in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_4486,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_4489,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4494,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)li90),tmp=(C_word)a,a+=10,tmp); /* posix-common.scm:726: call-with-current-continuation */ t7=*((C_word*)lf[136]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* a8724 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_8725,3,av);} t3=C_i_check_exact_2(t2,lf[123]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(*((C_word*)lf[122]+1),t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6496 in k6493 in loop in fetch in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6498,2,av);} /* posixunix.scm:1160: loop */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_6443(2,av2);}} /* a5417 in k5411 in call-with-output-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; 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_5418,2,av);} /* posixunix.scm:663: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5411 in call-with-output-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5413,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5418,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li116),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5424,a[2]=t2,a[3]=((C_word)li117),tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:662: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3830 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3832,2,av);} a=C_alloc(4); t2=t1; t3=((C_word*)t0)[2]; f_3686(t3,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3833,a[2]=t2,a[3]=((C_word)li44),tmp=(C_word)a,a+=4,tmp));} /* f_3833 in k3830 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3833,3,av);} /* posix-common.scm:528: irregex-match */ t3=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6493 in loop in fetch in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 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 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_6495,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6498,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1159: ##sys#thread-yield! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[348]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[348]+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_6504,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_mutate2(((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; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ /* posixunix.scm:1166: posix-error */ t8=lf[0];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t8; av2[1]=t4; av2[2]=lf[8]; av2[3]=((C_word*)t0)[9]; av2[4]=lf[353]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[10]; f_2704(7,av2);}}} else{ t6=C_mutate2(((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; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} /* a4273 in process-wait in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_4274,2,av);} /* posix-common.scm:679: ##sys#process-wait */ t2=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_3868,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3871,a[2]=((C_word*)t0)[2],a[3]=((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_3882,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:552: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[97]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[97]+1); av2[1]=t3; av2[2]=lf[77]; av2[3]=((C_word*)t0)[7]; av2[4]=t4; tp(5,av2);}} /* create-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3313(C_word c,C_word *av){ C_word tmp; C_word 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_3313,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[79]); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3323,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_3329,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; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t10; f_3329(2,av2);}} else{ /* posix-common.scm:457: file-exists? */ t12=*((C_word*)lf[84]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t11; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}} /* k6619 in a6612 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 in ... */ static void C_fcall f_6621(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_6621,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_6623,a[2]=((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)li167),tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_6623(t5,((C_word*)t0)[7],t1,C_fix(0),((C_word*)t0)[8]);} /* k5769 in current-effective-user-name in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5771,2,av);} /* posixunix.scm:891: user-information */ t2=*((C_word*)lf[266]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 k6619 in a6612 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in ... */ static void C_fcall f_6623(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_6623,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:1201: 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_6671,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:1203: fetch */ t7=((C_word*)t0)[7]; f_6437(t7,t6);}}} /* k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_3865,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3868,a[2]=((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_3885,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:552: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[97]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[97]+1); av2[1]=t3; av2[2]=lf[98]; av2[3]=((C_word*)t0)[6]; av2[4]=t4; tp(5,av2);}} /* k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3862,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3865,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_3888,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:552: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[97]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[97]+1); av2[1]=t3; av2[2]=lf[99]; av2[3]=((C_word*)t0)[5]; av2[4]=t4; tp(5,av2);}} /* k7742 in terminal-port? in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7744,2,av);} t2=C_eqp(C_fix(0),t1); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_tty_portp(((C_word*)t0)[3]); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* f_7024 in k6908 in custom-output-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_7024,3,av);} if(C_truep(t2)){ t3=C_block_size(t2); /* posixunix.scm:1272: poke */ t4=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6669 in loop in k6619 in a6612 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in ... */ static void C_ccall f_6671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6671,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* posixunix.scm:1206: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_6623(t3,((C_word*)t0)[4],((C_word*)t0)[6],((C_word*)t0)[3],((C_word*)t0)[7]);}} /* k5765 in current-effective-user-name in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5767,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_car(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a3887 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; 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_3888,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#terminal-check in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_7756(C_word t1,C_word 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(0,0,4)))){ C_save_and_reclaim_args((void *)trf_7756,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[43],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{ /* posixunix.scm:1508: ##sys#error */ t10=*((C_word*)lf[50]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t1; av2[2]=t2; av2[3]=lf[414]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}} /* k5789 in group-information in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_5791(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_5791,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(C_truep(((C_word*)t0)[2])?*((C_word*)lf[267]+1):*((C_word*)lf[268]+1)); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5804,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[260]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_group->gr_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);}}} /* a8733 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_8734,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_SCHEME_FALSE:C_i_car(t2)); t5=(C_truep(t4)?C_i_check_exact_2(t4,lf[102]):C_SCHEME_UNDEFINED); if(C_truep(t4)){ t6=C_umask(t4); if(C_truep(t4)){ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_umask(t6); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t6=C_umask(C_fix(0)); if(C_truep(t4)){ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_umask(t6); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} /* k5426 in a5423 in k5411 in call-with-output-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5428,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5423 in k5411 in call-with-output-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_5424,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_5428,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:665: close-output-pipe */ t4=*((C_word*)lf[213]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3884 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_3885,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a3881 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3882(C_word c,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_3882,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a3878 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_3879,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3365 in k3349 in k3346 in loop in k3337 in k3327 in create-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,5)))){ C_save_and_reclaim((void *)f_3367,2,av);} 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* posix-common.scm:451: posix-error */ t4=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[8]; av2[3]=lf[79]; av2[4]=lf[80]; av2[5]=((C_word*)t0)[3]; f_2704(6,av2);}}} /* a8617 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_8618,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_8628,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:858: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[5]+1); av2[1]=t4; tp(2,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k7002 in a6993 in k6975 in k6908 in custom-output-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7004,2,av);} /* posixunix.scm:1298: on-close */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a8614 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8615(C_word c,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_8615,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=stub1224(C_SCHEME_UNDEFINED); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* group-information in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_5784,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_5791,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnump(t2))){ t8=t7; f_5791(t8,C_getgrgid(t2));} else{ t8=C_i_check_string_2(t2,lf[271]); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5842,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:906: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t9; av2[2]=t2; av2[3]=lf[271]; tp(4,av2);}}} /* a6612 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_6613,6,av);} a=C_alloc(9); t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6621,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_6621(t7,t3);} else{ t7=C_block_size(t4); t8=t6; f_6621(t8,C_fixnum_difference(t7,t5));}} /* k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_3874,2,av);} a=C_alloc(17); 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=t1; t9=((C_word*)t0)[8]; t10=C_i_check_string_2(t3,lf[76]); 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|9,a[1]=(C_word)f_3683,a[2]=t8,a[3]=t5,a[4]=t12,a[5]=t9,a[6]=t2,a[7]=t3,a[8]=t6,a[9]=t4,tmp=(C_word)a,a+=10,tmp); if(C_truep(t7)){ if(C_truep(C_fixnump(t7))){ t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3849,a[2]=t12,a[3]=t7,a[4]=((C_word)li45),tmp=(C_word)a,a+=5,tmp); t15=t13; f_3683(t15,t14);} else{ t14=t13; f_3683(t14,t7);}} else{ t14=t13; f_3683(t14,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3841,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp));}} /* k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3871,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3874,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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|2,a[1]=(C_word)f_3879,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:552: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[97]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[97]+1); av2[1]=t3; av2[2]=lf[78]; av2[3]=((C_word*)t0)[8]; av2[4]=t4; tp(5,av2);}} /* terminal-port? in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_7738,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_fix(0),C_SCHEME_TRUE,lf[412]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7744,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1501: ##sys#peek-unsigned-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[65]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[65]+1); av2[1]=t5; av2[2]=t2; av2[3]=C_fix(0); tp(4,av2);}} /* k5735 in user-information in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5737,2,av);} t2=((C_word*)t0)[2]; f_5698(t2,C_getpwnam(t1));} /* k4207 in k4203 in scan in k4169 in loop in get-environment-variables in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4209,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_4197,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)); /* posix-common.scm:650: loop */ t6=((C_word*)((C_word*)t0)[5])[1]; f_4167(t6,t4,t5);} /* k8607 in a8592 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8609(C_word c,C_word *av){ C_word tmp; C_word 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_8609,2,av);} /* posixunix.scm:1062: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[448]; av2[3]=lf[449]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k4906 in k5066 in k4842 in k4834 in k4831 in k4828 in file-select in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_4908,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4911,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_4948,a[2]=t5,a[3]=((C_word*)t0)[5],a[4]=((C_word)li103),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_4948(t7,t3,((C_word*)t0)[6],C_SCHEME_END_OF_LIST,((C_word*)t0)[7]);} /* a5486 in a5480 in k5469 in with-output-to-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_5487,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_5491,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:682: close-output-pipe */ t4=*((C_word*)lf[213]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5480 in k5469 in with-output-to-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5481(C_word c,C_word *av){ 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_5481,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5487,a[2]=((C_word*)t0)[2],a[3]=((C_word)li125),tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:680: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* doloop946 in k4842 in k4834 in k4831 in k4828 in file-select in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static C_word C_fcall f_5081(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_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=stub955(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=stub955(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;}}} /* k4203 in scan in k4169 in loop in get-environment-variables in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_4205,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4209,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]); /* posix-common.scm:649: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[70]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[70]+1); av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=t4; av2[4]=t5; tp(5,av2);}} /* a8636 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_8637,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_8647,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:849: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[5]+1); av2[1]=t4; tp(2,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a8633 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_8634,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=stub1219(C_SCHEME_UNDEFINED); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5721 in k5717 in k5713 in k5709 in k5696 in user-information in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5723,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5727,a[2]=((C_word*)t0)[2],a[3]=((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[4]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5725 in k5721 in k5717 in k5713 in k5709 in k5696 in user-information in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_5727,2,av);} /* posixunix.scm:871: g1243 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4916 in k4909 in k4906 in k5066 in k4842 in k4834 in k4831 in k4828 in file-select in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_4918(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_4918,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:580: 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:580: 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:580: 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:580: 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);}}} /* k4909 in k4906 in k5066 in k4842 in k4834 in k4831 in k4828 in file-select in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4911,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4918,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_4918(t5,(C_truep(t4)?((C_word*)t0)[4]:C_SCHEME_FALSE));} else{ t4=t3; f_4918(t4,((C_word*)t0)[5]);}} else{ t4=t3; f_4918(t4,C_SCHEME_FALSE);}} /* k5077 in k4842 in k4834 in k4831 in k4828 in file-select in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_5079,2,av);} a=C_alloc(4); t2=C_a_i_times(&a,2,t1,C_fix(1000)); t3=((C_word*)t0)[2]; f_5068(t3,C_i_inexact_to_exact(t2));} /* k8626 in a8617 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8628,2,av);} /* posixunix.scm:859: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[452]; av2[3]=lf[453]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5751 in current-user-name in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5753,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_car(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6600 in a6597 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 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,1)))){ C_save_and_reclaim((void *)f_6602,2,av);} /* posixunix.scm:1192: peek */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=( /* posixunix.scm:1192: peek */ f_6429(((C_word*)t0)[3]) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5755 in current-user-name in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5757,2,av);} /* posixunix.scm:888: user-information */ t2=*((C_word*)lf[266]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* set-signal-handler! in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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,1)))){ C_save_and_reclaim((void *)f_4227,4,av);} t4=C_i_check_exact_2(t2,lf[121]); if(C_truep(t3)){ t5=t2; t6=C_establish_signal_handler(t2,t5); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_i_vector_set(*((C_word*)lf[122]+1),t2,t3); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t5=C_establish_signal_handler(t2,C_SCHEME_FALSE); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_vector_set(*((C_word*)lf[122]+1),t2,t3); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* current-effective-user-name in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; 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_5759,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5767,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5771,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:891: current-effective-user-id */ t4=*((C_word*)lf[263]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5066 in k4842 in k4834 in k4831 in k4828 in file-select in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_5068(C_word t0,C_word t1){ C_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_5068,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=stub970(C_SCHEME_UNDEFINED,t2,t3,t4); if(C_truep(C_fixnum_lessp(t5,C_fix(0)))){ /* posixunix.scm:561: posix-error */ t6=lf[0];{ C_word av2[7]; av2[0]=t6; av2[1]=((C_word*)t0)[4]; av2[2]=lf[8]; av2[3]=lf[196]; av2[4]=lf[197]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[6]; f_2704(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:562: 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:562: 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_4908,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_5007,a[2]=t9,a[3]=((C_word*)t0)[2],a[4]=((C_word)li104),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_5007(t11,t7,C_fix(0),C_SCHEME_END_OF_LIST,((C_word*)t0)[9]);}}} /* k3327 in create-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; 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_3329,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_3339,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3383,a[2]=((C_word*)t0)[3],a[3]=((C_word)li29),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3389,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:459: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_3412,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:450: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t4; av2[2]=t3; av2[3]=lf[79]; tp(4,av2);}}}} /* k3321 in create-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3323,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* current-user-name in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_5745,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5753,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5757,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:888: current-user-id */ t4=*((C_word*)lf[262]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7203 in setup in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_7205(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,1)))){ C_save_and_reclaim_args((void *)trf_7205,2,t0,t1);} a=C_alloc(5); t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=(C_truep(t2)?C_fix((C_word)F_RDLCK):C_fix((C_word)F_WRLCK)); t4=C_flock_setup(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]); t5=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[366],((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* change-file-mode in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6067(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_6067,4,av);} a=C_alloc(5); t4=C_i_check_string_2(t2,lf[320]); t5=C_i_check_exact_2(t3,lf[320]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6088,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1016: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[11]+1); av2[1]=t6; av2[2]=t2; av2[3]=lf[320]; tp(4,av2);}} /* peek in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static C_word C_fcall f_6429(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);}} /* k4432 in a4357 in a4336 in k4327 in list->c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4434(C_word c,C_word *av){ C_word tmp; 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_4434,2,av);} a=C_alloc(3); /* tmp22595 */ t2=((C_word*)t0)[2]; f_4417(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_3859,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3862,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_3891,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:552: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[97]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[97]+1); av2[1]=t3; av2[2]=lf[100]; av2[3]=((C_word*)t0)[4]; av2[4]=t4; tp(5,av2);}} /* fetch in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_6437(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_6437,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_6443,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)li161),tmp=(C_word)a,a+=12,tmp)); t5=((C_word*)t3)[1];{ C_word av2[2]; av2[0]=t5; av2[1]=t1; f_6443(2,av2);}} /* free-c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_4440(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_4440,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4444,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:719: pointer-vector-length */ t4=*((C_word*)lf[140]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* file-lock in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_7266(C_word c,C_word *av){ C_word tmp; C_word 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_7266,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_7270,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1338: setup */ f_7184(t4,t2,t3,lf[367]);} /* k4442 in free-c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_4444,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_4449,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li81),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_4449(t6,((C_word*)t0)[3],C_fix(0));} /* find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_3855,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_3859,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_3899,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:552: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[97]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[97]+1); av2[1]=t4; av2[2]=lf[101]; av2[3]=t3; av2[4]=t5; tp(5,av2);}} /* k5034 in lp in k5066 in k4842 in k4834 in k4831 in k4828 in file-select in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_5036(C_word t0,C_word 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_5036,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:570: lp */ t7=((C_word*)((C_word*)t0)[5])[1]; f_5007(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:571: lp */ t4=((C_word*)((C_word*)t0)[5])[1]; f_5007(t4,((C_word*)t0)[6],t2,((C_word*)t0)[4],t3);}} /* f_3901 in a3898 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3901,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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(38,c,4)))){ C_save_and_reclaim((void *)f_3906,2,av);} a=C_alloc(38); t2=C_mutate2((C_word*)lf[102]+1 /* (set! file-creation-mode ...) */,t1); t3=C_mutate2(&lf[103] /* (set! check-time-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3908,a[2]=((C_word)li56),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[105]+1 /* (set! seconds->local-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3927,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[108]+1 /* (set! seconds->utc-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3948,a[2]=((C_word)li58),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[109]+1 /* (set! seconds->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3979,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp)); t7=C_fix((C_word)sizeof(struct tm)); t8=C_mutate2((C_word*)lf[111]+1 /* (set! local-time->seconds ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4017,a[2]=t7,a[3]=((C_word)li60),tmp=(C_word)a,a+=4,tmp)); t9=C_fix((C_word)sizeof(struct tm)); t10=C_mutate2((C_word*)lf[115]+1 /* (set! time->string ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4062,a[2]=t9,a[3]=((C_word)li61),tmp=(C_word)a,a+=4,tmp)); t11=C_mutate2((C_word*)lf[118]+1 /* (set! setenv ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4124,a[2]=((C_word)li62),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[119]+1 /* (set! unsetenv ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4141,a[2]=((C_word)li63),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[120]+1 /* (set! get-environment-variables ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4161,a[2]=((C_word)li66),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[121]+1 /* (set! set-signal-handler! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4227,a[2]=((C_word)li67),tmp=(C_word)a,a+=3,tmp)); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4242,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8725,a[2]=((C_word)li260),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:663: getter-with-setter */ t17=*((C_word*)lf[450]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t17; av2[1]=t15; av2[2]=t16; av2[3]=*((C_word*)lf[121]+1); ((C_proc)(void*)(*((C_word*)t17+1)))(4,av2);}} /* doloop702 in k4442 in free-c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_4449(C_word t0,C_word t1,C_word 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_4449,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_4459,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:722: pointer-vector-ref */ t5=*((C_word*)lf[139]+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);}}} /* check-time-vector in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_3908(C_word 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_3908,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:581: ##sys#error */ t6=*((C_word*)lf[50]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=lf[104]; 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);}}} /* err in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_7248(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_7248,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:1335: posix-error */ t8=lf[0];{ C_word av2[8]; av2[0]=t8; av2[1]=t1; av2[2]=lf[8]; av2[3]=t4; av2[4]=t2; av2[5]=t5; av2[6]=t6; av2[7]=t7; f_2704(8,av2);}} /* k6024 in initialize-groups in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6026(C_word c,C_word *av){ C_word tmp; C_word t0=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_6026,2,av);} a=C_alloc(5); if(C_truep(C_fixnum_lessp(t1,C_fix(0)))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6019,a[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:963: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[5]+1); av2[1]=t2; tp(2,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* for-each-loop288 in k3254 in delete-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_3281(C_word t0,C_word t1,C_word 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_3281,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_3291,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)); /* posix-common.scm:435: g289 */ t5=((C_word*)t0)[3]; f_3257(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);}}} /* file-test-lock in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_7298,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_7302,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1350: setup */ f_7184(t4,t2,t3,lf[371]);} /* k3274 in k3254 in delete-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3276,2,av);} /* posix-common.scm:446: rmdir */ f_3233(((C_word*)t0)[3],((C_word*)t0)[4]);} /* k3271 in k3265 in g289 in k3254 in delete-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3273,2,av);} if(C_truep(t1)){ /* posix-common.scm:440: g299 */ f_3233(((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=*((C_word*)lf[75]+1); t3=*((C_word*)lf[75]+1); /* posix-common.scm:440: g299 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[75]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[75]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}} /* k7268 in file-lock in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_7270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_7270,2,av);} t2=C_flock_lock(((C_word*)t0)[2]); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ /* posixunix.scm:1340: err */ f_7248(((C_word*)t0)[4],lf[368],t1,lf[367]);} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4975 in lp in k4906 in k5066 in k4842 in k4834 in k4831 in k4828 in file-select in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_4977(C_word t0,C_word 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_4977,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:578: lp */ t7=((C_word*)((C_word*)t0)[5])[1]; f_4948(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:579: lp */ t4=((C_word*)((C_word*)t0)[5])[1]; f_4948(t4,((C_word*)t0)[6],t2,((C_word*)t0)[4],t3);}} /* k3289 in for-each-loop288 in k3254 in delete-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3291,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3281(t3,((C_word*)t0)[4],t2);} /* a4422 in tmp22595 in a4357 in a4336 in k4327 in list->c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_4423,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* file-lock/blocking in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_7282(C_word c,C_word *av){ C_word tmp; C_word 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_7282,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_7286,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1344: setup */ f_7184(t4,t2,t3,lf[369]);} /* k7284 in file-lock/blocking in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_7286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_7286,2,av);} t2=C_flock_lockw(((C_word*)t0)[2]); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ /* posixunix.scm:1346: err */ f_7248(((C_word*)t0)[4],lf[370],t1,lf[369]);} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* tmp22595 in a4357 in a4336 in k4327 in list->c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_4417(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_4417,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4423,a[2]=t2,a[3]=((C_word)li76),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:696: k674 */ 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);}} /* lp in k4906 in k5066 in k4842 in k4834 in k4831 in k4828 in file-select in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_4948(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_4948,5,t0,t1,t2,t3,t4);} a=C_alloc(7); if(C_truep(C_i_nullp(t4))){ /* posixunix.scm:573: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[198]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[198]+1); av2[1]=t1; av2[2]=t3; tp(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4977,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_4977(t9,stub1014(C_SCHEME_UNDEFINED,t7,t8));} else{ t8=t5; f_4977(t8,stub1014(C_SCHEME_UNDEFINED,t7,C_SCHEME_FALSE));}}} /* seconds->local-time in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; 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_3927,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; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3931,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t2))){ /* posix-common.scm:583: current-seconds */ t4=*((C_word*)lf[107]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=C_i_check_number_2(t4,lf[105]); /* posix-common.scm:585: ##sys#decode-seconds */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[106]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[106]+1); av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_FALSE; tp(4,av2);}}} /* k3950 in seconds->utc-time in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3952,2,av);} t2=C_i_check_number_2(t1,lf[108]); /* posix-common.scm:589: ##sys#decode-seconds */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[106]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[106]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; tp(4,av2);}} /* k3981 in seconds->string in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_3983,2,av);} a=C_alloc(9); t2=t1; t3=C_i_check_number_2(t2,lf[109]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3989,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_integer_argumentp(t2); t7=stub544(t5,t6); /* posix-common.scm:592: ##sys#peek-c-string */ t8=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t4; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* loop in fetch in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 in ... */ static void C_ccall f_6443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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(11,c,6)))){ C_save_and_reclaim((void *)f_6443,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_fix((C_word)errno); t5=C_i_eqvp(t4,C_fix((C_word)EWOULDBLOCK)); t6=(C_truep(t5)?t5:C_i_eqvp(t4,C_fix((C_word)EAGAIN))); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6462,a[2]=((C_word*)t0)[5],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1148: ##sys#thread-block-for-i/o! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[349]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[349]+1); av2[1]=t7; av2[2]=*((C_word*)lf[350]+1); av2[3]=((C_word*)t0)[2]; av2[4]=lf[351]; tp(5,av2);}} else{ if(C_truep(C_i_eqvp(t4,C_fix((C_word)EINTR)))){ /* posixunix.scm:1152: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[186]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[186]+1); av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[5])[1]; tp(3,av2);}} else{ /* posixunix.scm:1153: posix-error */ t7=lf[0];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t7; av2[1]=t1; av2[2]=lf[8]; av2[3]=((C_word*)t0)[6]; av2[4]=lf[352]; av2[5]=((C_word*)t0)[2]; av2[6]=((C_word*)t0)[7]; f_2704(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_6495,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:1157: more? */ t6=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)C_fast_retrieve_proc(t6))(2,av2);}} else{ t5=C_mutate2(((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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}} /* k3987 in k3981 in seconds->string in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3989,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[70]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[70]+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[50]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[109]; av2[3]=lf[110]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k3929 in seconds->local-time in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3931(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3931,2,av);} t2=C_i_check_number_2(t1,lf[105]); /* posix-common.scm:585: ##sys#decode-seconds */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[106]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[106]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; tp(4,av2);}} /* k4460 in k4457 in doloop702 in k4442 in free-c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4462,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4449(t3,((C_word*)t0)[4],t2);} /* k4457 in doloop702 in k4442 in free-c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4459,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4462,a[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:723: free */ t3=*((C_word*)lf[138]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_4449(t4,((C_word*)t0)[4],t3);}} /* loop in poke1594 in k6908 in custom-output-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_6917,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_fix((C_word)errno); t5=C_i_eqvp(t4,C_fix((C_word)EWOULDBLOCK)); t6=(C_truep(t5)?t5:C_i_eqvp(t4,C_fix((C_word)EAGAIN))); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6936,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:1259: ##sys#thread-yield! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[348]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[348]+1); av2[1]=t7; tp(2,av2);}} else{ if(C_truep(C_i_eqvp(t4,C_fix((C_word)EINTR)))){ /* posixunix.scm:1262: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[186]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[186]+1); av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[6])[1]; tp(3,av2);}} else{ /* posixunix.scm:1264: posix-error */ t7=lf[0];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t7; av2[1]=t1; av2[2]=((C_word*)t0)[7]; av2[3]=lf[8]; av2[4]=lf[360]; av2[5]=((C_word*)t0)[2]; av2[6]=((C_word*)t0)[8]; f_2704(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_6967,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:1266: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[70]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[70]+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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* poke1594 in k6908 in custom-output-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_6911,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_6917,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)li175),tmp=(C_word)a,a+=10,tmp)); t7=((C_word*)t5)[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t1; f_6917(2,av2);}} /* k6908 in custom-output-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_6910,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_6911,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)li176),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_6977,a[2]=t3,a[3]=t6,a[4]=t5,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[4],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_6977(t12,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7024,a[2]=t3,a[3]=((C_word)li180),tmp=(C_word)a,a+=4,tmp));} else{ t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7038,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:1273: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[72]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[72]+1); av2[1]=t12; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} else{ t13=t12;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=((C_word*)t0)[5]; f_7038(2,av2);}}}} /* k3207 in k3204 in current-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3209,2,av);} if(C_truep(((C_word*)t0)[2])){ /* posix-common.scm:422: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[70]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[70]+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{ /* posix-common.scm:423: ##sys#signal-hook */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[8]; av2[3]=lf[68]; av2[4]=lf[71]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k3204 in current-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3206,2,av);} a=C_alloc(5); t2=t1; t3=C_curdir(t2); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3209,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:420: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[5]+1); av2[1]=t4; tp(2,av2);}} /* k6463 in k6460 in loop in fetch in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 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,1)))){ C_save_and_reclaim((void *)f_6465,2,av);} /* posixunix.scm:1150: loop */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_6443(2,av2);}} /* k7834 in k7813 in terminal-size in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_7836,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7840,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); /* posixunix.scm:1527: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[419]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[419]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(0); av2[4]=C_SCHEME_FALSE; av2[5]=lf[420]; tp(6,av2);}} /* k6460 in loop in fetch in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6462,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6465,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1149: ##sys#thread-yield! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[348]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[348]+1); av2[1]=t2; tp(2,av2);}} /* k7838 in k7834 in k7813 in terminal-size in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_7840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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,5)))){ C_save_and_reclaim((void *)f_7840,2,av);} 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=stub1865(C_SCHEME_UNDEFINED,t2,t3,t4); t6=C_eqp(C_fix(0),t5); if(C_truep(t6)){ /* posixunix.scm:1528: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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{ /* posixunix.scm:1529: posix-error */ t7=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=((C_word*)t0)[4]; av2[2]=lf[417]; av2[3]=lf[416]; av2[4]=lf[418]; av2[5]=((C_word*)t0)[7]; f_2704(6,av2);}}} /* delete-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3227(C_word c,C_word *av){ C_word tmp; C_word 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_3227,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_3233,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp); t7=C_i_check_string_2(t2,lf[73]); if(C_truep(t5)){ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3256,a[2]=t6,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:435: find-files */ t9=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t9; av2[1]=t8; av2[2]=t2; av2[3]=lf[77]; av2[4]=C_SCHEME_TRUE; av2[5]=lf[78]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(7,av2);}} else{ /* posix-common.scm:447: rmdir */ f_3233(t1,t2);}} /* k7813 in terminal-size in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_7815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7815,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_C_fileno(((C_word*)t0)[2]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7836,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); /* posixunix.scm:1526: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[419]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[419]+1); av2[1]=t5; av2[2]=t2; av2[3]=C_fix(0); av2[4]=C_SCHEME_FALSE; av2[5]=lf[420]; tp(6,av2);}} /* ready? in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_6400(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_6400,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6404,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:1129: ##sys#file-select-one */ t3=*((C_word*)lf[144]+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);}} /* terminal-size in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_7811(C_word c,C_word *av){ C_word tmp; C_word 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_7811,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7815,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1521: ##sys#terminal-check */ f_7756(t3,lf[416],t2);} /* k6402 in ready? in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 in ... */ static void C_ccall f_6404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6404,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* posixunix.scm:1134: posix-error */ t5=lf[0];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=lf[8]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[347]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; f_2704(7,av2);}}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_eqp(C_fix(1),t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* get-host-name in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_7848,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7852,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=C_a_i_bytevector(&a,1,C_fix(3)); t4=stub1884(t3); /* posixunix.scm:1534: ##sys#peek-c-string */ t5=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t2; av2[2]=t4; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k4405 in doloop683 in tmp12594 in a4357 in a4336 in k4327 in list->c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4407,2,av);} /* posix-common.scm:711: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* seconds->string in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_3979,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_3983,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t2))){ /* posix-common.scm:593: current-seconds */ t4=*((C_word*)lf[107]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_car(t2); f_3983(2,av2);}}} /* k8151 in k8235 in connect-child in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8153,2,av);} /* posixunix.scm:1642: file-close */ t2=*((C_word*)lf[185]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_8159 in make-on-close in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_8159,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_8174,a[2]=((C_word*)t0)[6],a[3]=((C_word)li222),tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8180,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[6],a[4]=((C_word)li223),tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1649: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* make-on-close in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_8157(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_8157,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_8159,a[2]=t4,a[3]=t5,a[4]=t6,a[5]=t7,a[6]=t3,a[7]=t2,a[8]=((C_word)li224),tmp=(C_word)a,a+=9,tmp); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k6965 in loop in poke1594 in k6908 in custom-output-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 in ... */ static void C_ccall f_6967(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6967,2,av);} t2=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); /* posixunix.scm:1266: poke */ t3=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6934 in loop in poke1594 in k6908 in custom-output-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 in ... */ static void C_ccall f_6936(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6936,2,av);} /* posixunix.scm:1260: poke */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7891 in process-fork in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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_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[424]+1):(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7915,a[2]=((C_word)li208),tmp=(C_word)a,a+=3,tmp)); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7907,a[2]=((C_word*)t0)[2],a[3]=((C_word)li209),tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1554: g1918 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a8173 */ 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 *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_8174,2,av);} /* posixunix.scm:1649: ##sys#process-wait */ t2=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6691 in a6688 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 in ... */ static void C_ccall f_6693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6693,2,av);} a=C_alloc(8); 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; /* Re-use our own argvector */ 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=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6702,a[2]=((C_word*)t0)[2],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)[4],tmp=(C_word)a,a+=8,tmp); if(C_truep(t2)){ t4=t3; f_6702(t4,t2);} else{ t4=C_fudge(C_fix(21)); t5=t3; f_6702(t5,C_fixnum_difference(t4,((C_word*)((C_word*)t0)[2])[1]));}}} /* a6993 in k6975 in k6908 in custom-output-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6994(C_word c,C_word *av){ C_word tmp; 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_6994,2,av);} a=C_alloc(4); if(C_truep(C_slot(((C_word*)((C_word*)t0)[2])[1],C_fix(8)))){ t2=C_SCHEME_UNDEFINED; t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_7004,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t3=C_close(((C_word*)t0)[4]); if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ /* posixunix.scm:1297: posix-error */ t4=lf[0];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t2; av2[2]=lf[8]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[361]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[6]; f_2704(7,av2);}} else{ /* posixunix.scm:1298: on-close */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}}} /* k4114 in k4067 in time->string in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_4116,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=stub572(t3,t2,t4); /* posix-common.scm:610: ##sys#peek-c-string */ t6=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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=stub572(t3,t2,C_SCHEME_FALSE); /* posix-common.scm:610: ##sys#peek-c-string */ t5=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k8108 in k8105 in process-run in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8110(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8110,2,av);} a=C_alloc(4); t2=C_eqp(C_fix(0),t1); if(C_truep(t2)){ if(C_truep(((C_word*)t0)[2])){ /* posixunix.scm:1613: process-execute */ t3=*((C_word*)lf[427]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8129,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1615: ##sys#shell-command */ t4=*((C_word*)lf[433]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* terminal-name in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_7787,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7791,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1513: ##sys#terminal-check */ f_7756(t3,lf[415],t2);} /* 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_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_posix_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(2419))){ C_save(t1); C_rereclaim2(2419*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,470); lf[1]=C_h_intern(&lf[1],15,"\003syssignal-hook"); lf[2]=C_h_intern(&lf[2],13,"string-append"); lf[3]=C_decode_literal(C_heaptop,"\376B\000\000\003 - "); lf[4]=C_h_intern(&lf[4],17,"\003syspeek-c-string"); lf[5]=C_h_intern(&lf[5],16,"\003sysupdate-errno"); lf[6]=C_h_intern(&lf[6],15,"\003sysposix-error"); lf[8]=C_h_intern(&lf[8],11,"\000file-error"); lf[9]=C_decode_literal(C_heaptop,"\376B\000\000\022cannot access file"); lf[10]=C_h_intern(&lf[10],12,"port->fileno"); lf[11]=C_h_intern(&lf[11],17,"\003sysmake-c-string"); lf[12]=C_h_intern(&lf[12],27,"\003sysplatform-fixup-pathname"); lf[13]=C_h_intern(&lf[13],11,"\000type-error"); lf[14]=C_decode_literal(C_heaptop,"\376B\000\000\052bad argument type - not a fixnum or string"); lf[15]=C_h_intern(&lf[15],5,"port\077"); lf[16]=C_h_intern(&lf[16],9,"file-stat"); lf[17]=C_h_intern(&lf[17],22,"file-modification-time"); lf[18]=C_h_intern(&lf[18],16,"file-access-time"); lf[19]=C_h_intern(&lf[19],16,"file-change-time"); lf[20]=C_h_intern(&lf[20],10,"file-owner"); lf[21]=C_h_intern(&lf[21],16,"file-permissions"); lf[22]=C_h_intern(&lf[22],9,"file-size"); lf[23]=C_h_intern(&lf[23],9,"file-type"); lf[24]=C_h_intern(&lf[24],12,"regular-file"); lf[25]=C_h_intern(&lf[25],13,"symbolic-link"); lf[26]=C_h_intern(&lf[26],9,"directory"); lf[27]=C_h_intern(&lf[27],16,"character-device"); lf[28]=C_h_intern(&lf[28],12,"block-device"); lf[29]=C_h_intern(&lf[29],4,"fifo"); lf[30]=C_h_intern(&lf[30],6,"socket"); lf[31]=C_h_intern(&lf[31],13,"regular-file\077"); lf[32]=C_h_intern(&lf[32],14,"symbolic-link\077"); lf[33]=C_h_intern(&lf[33],13,"block-device\077"); lf[34]=C_h_intern(&lf[34],17,"character-device\077"); lf[35]=C_h_intern(&lf[35],5,"fifo\077"); lf[36]=C_h_intern(&lf[36],7,"socket\077"); lf[37]=C_h_intern(&lf[37],10,"directory\077"); lf[38]=C_h_intern(&lf[38],8,"seek/set"); lf[39]=C_h_intern(&lf[39],8,"seek/end"); lf[40]=C_h_intern(&lf[40],8,"seek/cur"); lf[41]=C_h_intern(&lf[41],18,"set-file-position!"); lf[42]=C_decode_literal(C_heaptop,"\376B\000\000\030cannot set file position"); lf[43]=C_h_intern(&lf[43],6,"stream"); lf[44]=C_decode_literal(C_heaptop,"\376B\000\000\014invalid file"); lf[45]=C_h_intern(&lf[45],13,"file-position"); lf[46]=C_h_intern(&lf[46],12,"fileno/stdin"); lf[47]=C_h_intern(&lf[47],13,"fileno/stdout"); lf[48]=C_h_intern(&lf[48],13,"fileno/stderr"); lf[49]=C_h_intern(&lf[49],7,"\000append"); lf[50]=C_h_intern(&lf[50],9,"\003syserror"); lf[51]=C_decode_literal(C_heaptop,"\376B\000\000\033invalid mode for input file"); lf[52]=C_decode_literal(C_heaptop,"\376B\000\000\001a"); lf[53]=C_decode_literal(C_heaptop,"\376B\000\000\025invalid mode argument"); lf[54]=C_decode_literal(C_heaptop,"\376B\000\000\001r"); lf[55]=C_decode_literal(C_heaptop,"\376B\000\000\001w"); lf[56]=C_decode_literal(C_heaptop,"\376B\000\000\020cannot open file"); lf[57]=C_h_intern(&lf[57],13,"\003sysmake-port"); lf[58]=C_h_intern(&lf[58],21,"\003sysstream-port-class"); lf[59]=C_decode_literal(C_heaptop,"\376B\000\000\010(fdport)"); lf[60]=C_h_intern(&lf[60],16,"open-input-file\052"); lf[61]=C_h_intern(&lf[61],17,"open-output-file\052"); lf[62]=C_h_intern(&lf[62],13,"\003sysport-data"); lf[63]=C_decode_literal(C_heaptop,"\376B\000\000\031port has no attached file"); lf[64]=C_decode_literal(C_heaptop,"\376B\000\000%cannot access file-descriptor of port"); lf[65]=C_h_intern(&lf[65],25,"\003syspeek-unsigned-integer"); lf[66]=C_h_intern(&lf[66],16,"duplicate-fileno"); lf[67]=C_decode_literal(C_heaptop,"\376B\000\000 cannot duplicate file-descriptor"); lf[68]=C_h_intern(&lf[68],17,"current-directory"); lf[69]=C_h_intern(&lf[69],16,"change-directory"); lf[70]=C_h_intern(&lf[70],13,"\003syssubstring"); lf[71]=C_decode_literal(C_heaptop,"\376B\000\000!cannot retrieve current directory"); lf[72]=C_h_intern(&lf[72],15,"\003sysmake-string"); lf[73]=C_h_intern(&lf[73],16,"delete-directory"); lf[74]=C_decode_literal(C_heaptop,"\376B\000\000\027cannot delete directory"); lf[75]=C_h_intern(&lf[75],11,"delete-file"); lf[76]=C_h_intern(&lf[76],10,"find-files"); lf[77]=C_h_intern(&lf[77],9,"\000dotfiles"); lf[78]=C_h_intern(&lf[78],16,"\000follow-symlinks"); lf[79]=C_h_intern(&lf[79],16,"create-directory"); lf[80]=C_decode_literal(C_heaptop,"\376B\000\000\027cannot create directory"); lf[81]=C_h_intern(&lf[81],18,"pathname-directory"); lf[82]=C_h_intern(&lf[82],18,"decompose-pathname"); lf[83]=C_h_intern(&lf[83],13,"make-pathname"); lf[84]=C_h_intern(&lf[84],12,"file-exists\077"); lf[85]=C_decode_literal(C_heaptop,"\376B\000\000\025cannot open directory"); lf[86]=C_h_intern(&lf[86],16,"\003sysmake-pointer"); lf[87]=C_h_intern(&lf[87],4,"glob"); lf[88]=C_h_intern(&lf[88],23,"irregex-match-substring"); lf[89]=C_h_intern(&lf[89],13,"irregex-match"); lf[90]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[91]=C_h_intern(&lf[91],16,"\003sysglob->regexp"); lf[92]=C_decode_literal(C_heaptop,"\376B\000\000\001\052"); lf[93]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[94]=C_decode_literal(C_heaptop,"\376B\000\000\002.."); lf[95]=C_h_intern(&lf[95],16,"\003sysdynamic-wind"); lf[96]=C_h_intern(&lf[96],7,"irregex"); lf[97]=C_h_intern(&lf[97],15,"\003sysget-keyword"); lf[98]=C_h_intern(&lf[98],6,"\000limit"); lf[99]=C_h_intern(&lf[99],5,"\000seed"); lf[100]=C_h_intern(&lf[100],7,"\000action"); lf[101]=C_h_intern(&lf[101],5,"\000test"); lf[102]=C_h_intern(&lf[102],18,"file-creation-mode"); lf[104]=C_decode_literal(C_heaptop,"\376B\000\000\025time vector too short"); lf[105]=C_h_intern(&lf[105],19,"seconds->local-time"); lf[106]=C_h_intern(&lf[106],18,"\003sysdecode-seconds"); lf[107]=C_h_intern(&lf[107],15,"current-seconds"); lf[108]=C_h_intern(&lf[108],17,"seconds->utc-time"); lf[109]=C_h_intern(&lf[109],15,"seconds->string"); lf[110]=C_decode_literal(C_heaptop,"\376B\000\000 cannot convert seconds to string"); lf[111]=C_h_intern(&lf[111],19,"local-time->seconds"); lf[112]=C_decode_literal(C_heaptop,"\376B\000\000%cannot convert time vector to seconds"); lf[113]=C_h_intern(&lf[113],3,"fp="); lf[114]=C_decode_literal(C_heaptop,"\376U-1.0\000"); lf[115]=C_h_intern(&lf[115],12,"time->string"); lf[116]=C_decode_literal(C_heaptop,"\376B\000\000 time formatting overflows buffer"); lf[117]=C_decode_literal(C_heaptop,"\376B\000\000$cannot convert time vector to string"); lf[118]=C_h_intern(&lf[118],6,"setenv"); lf[119]=C_h_intern(&lf[119],8,"unsetenv"); lf[120]=C_h_intern(&lf[120],25,"get-environment-variables"); lf[121]=C_h_intern(&lf[121],19,"set-signal-handler!"); lf[122]=C_h_intern(&lf[122],17,"\003syssignal-vector"); lf[123]=C_h_intern(&lf[123],14,"signal-handler"); lf[124]=C_h_intern(&lf[124],18,"current-process-id"); lf[125]=C_h_intern(&lf[125],12,"process-wait"); lf[126]=C_h_intern(&lf[126],16,"\003sysprocess-wait"); lf[127]=C_h_intern(&lf[127],14,"\000process-error"); lf[128]=C_decode_literal(C_heaptop,"\376B\000\000 waiting for child process failed"); lf[130]=C_h_intern(&lf[130],6,"signal"); lf[132]=C_h_intern(&lf[132],19,"pointer-vector-set!"); lf[133]=C_h_intern(&lf[133],5,"error"); lf[134]=C_decode_literal(C_heaptop,"\376B\000\000\015Out of memory"); lf[135]=C_h_intern(&lf[135],22,"with-exception-handler"); lf[136]=C_h_intern(&lf[136],30,"call-with-current-continuation"); lf[137]=C_h_intern(&lf[137],19,"make-pointer-vector"); lf[138]=C_h_intern(&lf[138],4,"free"); lf[139]=C_h_intern(&lf[139],18,"pointer-vector-ref"); lf[140]=C_h_intern(&lf[140],21,"pointer-vector-length"); lf[141]=C_h_intern(&lf[141],24,"pathname-strip-directory"); lf[143]=C_h_intern(&lf[143],21,"\003sysfile-nonblocking!"); lf[144]=C_h_intern(&lf[144],19,"\003sysfile-select-one"); lf[145]=C_h_intern(&lf[145],8,"pipe/buf"); lf[146]=C_h_intern(&lf[146],11,"fcntl/dupfd"); lf[147]=C_h_intern(&lf[147],11,"fcntl/getfd"); lf[148]=C_h_intern(&lf[148],11,"fcntl/setfd"); lf[149]=C_h_intern(&lf[149],11,"fcntl/getfl"); lf[150]=C_h_intern(&lf[150],11,"fcntl/setfl"); lf[151]=C_h_intern(&lf[151],11,"open/rdonly"); lf[152]=C_h_intern(&lf[152],11,"open/wronly"); lf[153]=C_h_intern(&lf[153],9,"open/rdwr"); lf[154]=C_h_intern(&lf[154],9,"open/read"); lf[155]=C_h_intern(&lf[155],10,"open/write"); lf[156]=C_h_intern(&lf[156],10,"open/creat"); lf[157]=C_h_intern(&lf[157],11,"open/append"); lf[158]=C_h_intern(&lf[158],9,"open/excl"); lf[159]=C_h_intern(&lf[159],11,"open/noctty"); lf[160]=C_h_intern(&lf[160],13,"open/nonblock"); lf[161]=C_h_intern(&lf[161],10,"open/trunc"); lf[162]=C_h_intern(&lf[162],9,"open/sync"); lf[163]=C_h_intern(&lf[163],10,"open/fsync"); lf[164]=C_h_intern(&lf[164],11,"open/binary"); lf[165]=C_h_intern(&lf[165],9,"open/text"); lf[166]=C_h_intern(&lf[166],10,"perm/irusr"); lf[167]=C_h_intern(&lf[167],10,"perm/iwusr"); lf[168]=C_h_intern(&lf[168],10,"perm/ixusr"); lf[169]=C_h_intern(&lf[169],10,"perm/irgrp"); lf[170]=C_h_intern(&lf[170],10,"perm/iwgrp"); lf[171]=C_h_intern(&lf[171],10,"perm/ixgrp"); lf[172]=C_h_intern(&lf[172],10,"perm/iroth"); lf[173]=C_h_intern(&lf[173],10,"perm/iwoth"); lf[174]=C_h_intern(&lf[174],10,"perm/ixoth"); lf[175]=C_h_intern(&lf[175],10,"perm/irwxu"); lf[176]=C_h_intern(&lf[176],10,"perm/irwxg"); lf[177]=C_h_intern(&lf[177],10,"perm/irwxo"); lf[178]=C_h_intern(&lf[178],10,"perm/isvtx"); lf[179]=C_h_intern(&lf[179],10,"perm/isuid"); lf[180]=C_h_intern(&lf[180],10,"perm/isgid"); lf[181]=C_h_intern(&lf[181],12,"file-control"); lf[182]=C_decode_literal(C_heaptop,"\376B\000\000\023cannot control file"); lf[183]=C_h_intern(&lf[183],9,"file-open"); lf[184]=C_decode_literal(C_heaptop,"\376B\000\000\020cannot open file"); lf[185]=C_h_intern(&lf[185],10,"file-close"); lf[186]=C_h_intern(&lf[186],22,"\003sysdispatch-interrupt"); lf[187]=C_decode_literal(C_heaptop,"\376B\000\000\021cannot close file"); lf[188]=C_h_intern(&lf[188],9,"file-read"); lf[189]=C_decode_literal(C_heaptop,"\376B\000\000\025cannot read from file"); lf[190]=C_decode_literal(C_heaptop,"\376B\000\000(bad argument type - not a string or blob"); lf[191]=C_h_intern(&lf[191],10,"file-write"); lf[192]=C_decode_literal(C_heaptop,"\376B\000\000\024cannot write to file"); lf[193]=C_decode_literal(C_heaptop,"\376B\000\000(bad argument type - not a string or blob"); lf[194]=C_h_intern(&lf[194],12,"file-mkstemp"); lf[195]=C_decode_literal(C_heaptop,"\376B\000\000\034cannot create temporary file"); lf[196]=C_h_intern(&lf[196],11,"file-select"); lf[197]=C_decode_literal(C_heaptop,"\376B\000\000\006failed"); lf[198]=C_h_intern(&lf[198],16,"\003sysfast-reverse"); lf[199]=C_h_intern(&lf[199],3,"max"); lf[200]=C_h_intern(&lf[200],13,"\003sysmake-blob"); lf[201]=C_decode_literal(C_heaptop,"\376B\000\000\037cannot change current directory"); lf[202]=C_h_intern(&lf[202],17,"change-directory\052"); lf[203]=C_decode_literal(C_heaptop,"\376B\000\000\037cannot change current directory"); lf[204]=C_decode_literal(C_heaptop,"\376B\000\000\020cannot open pipe"); lf[205]=C_decode_literal(C_heaptop,"\376B\000\000\006(pipe)"); lf[206]=C_h_intern(&lf[206],15,"open-input-pipe"); lf[207]=C_h_intern(&lf[207],5,"\000text"); lf[208]=C_h_intern(&lf[208],7,"\000binary"); lf[209]=C_decode_literal(C_heaptop,"\376B\000\000#illegal input/output mode specifier"); lf[210]=C_h_intern(&lf[210],16,"open-output-pipe"); lf[211]=C_h_intern(&lf[211],16,"close-input-pipe"); lf[212]=C_decode_literal(C_heaptop,"\376B\000\000\030error while closing pipe"); lf[213]=C_h_intern(&lf[213],17,"close-output-pipe"); lf[214]=C_decode_literal(C_heaptop,"\376B\000\000\030error while closing pipe"); lf[215]=C_h_intern(&lf[215],20,"call-with-input-pipe"); lf[216]=C_h_intern(&lf[216],21,"call-with-output-pipe"); lf[217]=C_h_intern(&lf[217],20,"with-input-from-pipe"); lf[218]=C_h_intern(&lf[218],18,"\003sysstandard-input"); lf[219]=C_h_intern(&lf[219],19,"with-output-to-pipe"); lf[220]=C_h_intern(&lf[220],19,"\003sysstandard-output"); lf[221]=C_h_intern(&lf[221],11,"create-pipe"); lf[222]=C_decode_literal(C_heaptop,"\376B\000\000\022cannot create pipe"); lf[223]=C_h_intern(&lf[223],11,"signal/term"); lf[224]=C_h_intern(&lf[224],11,"signal/kill"); lf[225]=C_h_intern(&lf[225],10,"signal/int"); lf[226]=C_h_intern(&lf[226],10,"signal/hup"); lf[227]=C_h_intern(&lf[227],10,"signal/fpe"); lf[228]=C_h_intern(&lf[228],10,"signal/ill"); lf[229]=C_h_intern(&lf[229],11,"signal/segv"); lf[230]=C_h_intern(&lf[230],11,"signal/abrt"); lf[231]=C_h_intern(&lf[231],11,"signal/trap"); lf[232]=C_h_intern(&lf[232],11,"signal/quit"); lf[233]=C_h_intern(&lf[233],11,"signal/alrm"); lf[234]=C_h_intern(&lf[234],13,"signal/vtalrm"); lf[235]=C_h_intern(&lf[235],11,"signal/prof"); lf[236]=C_h_intern(&lf[236],9,"signal/io"); lf[237]=C_h_intern(&lf[237],10,"signal/urg"); lf[238]=C_h_intern(&lf[238],11,"signal/chld"); lf[239]=C_h_intern(&lf[239],11,"signal/cont"); lf[240]=C_h_intern(&lf[240],11,"signal/stop"); lf[241]=C_h_intern(&lf[241],11,"signal/tstp"); lf[242]=C_h_intern(&lf[242],11,"signal/pipe"); lf[243]=C_h_intern(&lf[243],11,"signal/xcpu"); lf[244]=C_h_intern(&lf[244],11,"signal/xfsz"); lf[245]=C_h_intern(&lf[245],11,"signal/usr1"); lf[246]=C_h_intern(&lf[246],11,"signal/usr2"); lf[247]=C_h_intern(&lf[247],12,"signal/winch"); lf[248]=C_h_intern(&lf[248],10,"signal/bus"); lf[249]=C_h_intern(&lf[249],12,"signal/break"); lf[250]=C_h_intern(&lf[250],12,"signals-list"); lf[251]=C_h_intern(&lf[251],16,"set-signal-mask!"); lf[252]=C_decode_literal(C_heaptop,"\376B\000\000\026cannot set signal mask"); lf[253]=C_h_intern(&lf[253],11,"signal-mask"); lf[254]=C_h_intern(&lf[254],14,"signal-masked\077"); lf[255]=C_h_intern(&lf[255],12,"signal-mask!"); lf[256]=C_decode_literal(C_heaptop,"\376B\000\000\023cannot block signal"); lf[257]=C_h_intern(&lf[257],14,"signal-unmask!"); lf[258]=C_decode_literal(C_heaptop,"\376B\000\000\025cannot unblock signal"); lf[259]=C_h_intern(&lf[259],18,"system-information"); lf[260]=C_h_intern(&lf[260],25,"\003syspeek-nonnull-c-string"); lf[261]=C_decode_literal(C_heaptop,"\376B\000\000\042cannot retrieve system information"); lf[262]=C_h_intern(&lf[262],15,"current-user-id"); lf[263]=C_h_intern(&lf[263],25,"current-effective-user-id"); lf[264]=C_h_intern(&lf[264],16,"current-group-id"); lf[265]=C_h_intern(&lf[265],26,"current-effective-group-id"); lf[266]=C_h_intern(&lf[266],16,"user-information"); lf[267]=C_h_intern(&lf[267],6,"vector"); lf[268]=C_h_intern(&lf[268],4,"list"); lf[269]=C_h_intern(&lf[269],17,"current-user-name"); lf[270]=C_h_intern(&lf[270],27,"current-effective-user-name"); lf[271]=C_h_intern(&lf[271],17,"group-information"); lf[272]=C_h_intern(&lf[272],10,"get-groups"); lf[273]=C_decode_literal(C_heaptop,"\376B\000\000\047cannot retrieve supplementary group ids"); lf[274]=C_decode_literal(C_heaptop,"\376B\000\000\015out of memory"); lf[275]=C_decode_literal(C_heaptop,"\376B\000\000\047cannot retrieve supplementary group ids"); lf[276]=C_h_intern(&lf[276],11,"set-groups!"); lf[277]=C_decode_literal(C_heaptop,"\376B\000\000\042cannot set supplementary group ids"); lf[278]=C_decode_literal(C_heaptop,"\376B\000\000\015out of memory"); lf[279]=C_h_intern(&lf[279],17,"initialize-groups"); lf[280]=C_decode_literal(C_heaptop,"\376B\000\000)cannot initialize supplementary group ids"); lf[281]=C_h_intern(&lf[281],10,"errno/perm"); lf[282]=C_h_intern(&lf[282],11,"errno/noent"); lf[283]=C_h_intern(&lf[283],10,"errno/srch"); lf[284]=C_h_intern(&lf[284],10,"errno/intr"); lf[285]=C_h_intern(&lf[285],8,"errno/io"); lf[286]=C_h_intern(&lf[286],12,"errno/noexec"); lf[287]=C_h_intern(&lf[287],10,"errno/badf"); lf[288]=C_h_intern(&lf[288],11,"errno/child"); lf[289]=C_h_intern(&lf[289],11,"errno/nomem"); lf[290]=C_h_intern(&lf[290],11,"errno/acces"); lf[291]=C_h_intern(&lf[291],11,"errno/fault"); lf[292]=C_h_intern(&lf[292],10,"errno/busy"); lf[293]=C_h_intern(&lf[293],12,"errno/notdir"); lf[294]=C_h_intern(&lf[294],11,"errno/isdir"); lf[295]=C_h_intern(&lf[295],11,"errno/inval"); lf[296]=C_h_intern(&lf[296],11,"errno/mfile"); lf[297]=C_h_intern(&lf[297],11,"errno/nospc"); lf[298]=C_h_intern(&lf[298],11,"errno/spipe"); lf[299]=C_h_intern(&lf[299],10,"errno/pipe"); lf[300]=C_h_intern(&lf[300],11,"errno/again"); lf[301]=C_h_intern(&lf[301],10,"errno/rofs"); lf[302]=C_h_intern(&lf[302],11,"errno/exist"); lf[303]=C_h_intern(&lf[303],16,"errno/wouldblock"); lf[304]=C_h_intern(&lf[304],10,"errno/2big"); lf[305]=C_h_intern(&lf[305],12,"errno/deadlk"); lf[306]=C_h_intern(&lf[306],9,"errno/dom"); lf[307]=C_h_intern(&lf[307],10,"errno/fbig"); lf[308]=C_h_intern(&lf[308],11,"errno/ilseq"); lf[309]=C_h_intern(&lf[309],11,"errno/mlink"); lf[310]=C_h_intern(&lf[310],17,"errno/nametoolong"); lf[311]=C_h_intern(&lf[311],11,"errno/nfile"); lf[312]=C_h_intern(&lf[312],11,"errno/nodev"); lf[313]=C_h_intern(&lf[313],11,"errno/nolck"); lf[314]=C_h_intern(&lf[314],11,"errno/nosys"); lf[315]=C_h_intern(&lf[315],14,"errno/notempty"); lf[316]=C_h_intern(&lf[316],11,"errno/notty"); lf[317]=C_h_intern(&lf[317],10,"errno/nxio"); lf[318]=C_h_intern(&lf[318],11,"errno/range"); lf[319]=C_h_intern(&lf[319],10,"errno/xdev"); lf[320]=C_h_intern(&lf[320],16,"change-file-mode"); lf[321]=C_decode_literal(C_heaptop,"\376B\000\000\027cannot change file mode"); lf[322]=C_h_intern(&lf[322],17,"change-file-owner"); lf[323]=C_decode_literal(C_heaptop,"\376B\000\000\030cannot change file owner"); lf[324]=C_h_intern(&lf[324],17,"file-read-access\077"); lf[325]=C_h_intern(&lf[325],18,"file-write-access\077"); lf[326]=C_h_intern(&lf[326],20,"file-execute-access\077"); lf[327]=C_h_intern(&lf[327],14,"create-session"); lf[328]=C_decode_literal(C_heaptop,"\376B\000\000\025cannot create session"); lf[329]=C_h_intern(&lf[329],16,"process-group-id"); lf[330]=C_h_intern(&lf[330],20,"create-symbolic-link"); lf[331]=C_h_intern(&lf[331],18,"create-symbol-link"); lf[332]=C_decode_literal(C_heaptop,"\376B\000\000\033cannot create symbolic link"); lf[333]=C_h_intern(&lf[333],22,"\003sysread-symbolic-link"); lf[334]=C_decode_literal(C_heaptop,"\376B\000\000\031cannot read symbolic link"); lf[335]=C_h_intern(&lf[335],9,"substring"); lf[336]=C_h_intern(&lf[336],18,"read-symbolic-link"); lf[337]=C_h_intern(&lf[337],19,"decompose-directory"); lf[338]=C_h_intern(&lf[338],18,"absolute-pathname\077"); lf[339]=C_decode_literal(C_heaptop,"\376B\000\000Icould not canonicalize path with symbolic links, component does not exist"); lf[340]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[341]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[342]=C_h_intern(&lf[342],9,"file-link"); lf[343]=C_h_intern(&lf[343],9,"hard-link"); lf[344]=C_decode_literal(C_heaptop,"\376B\000\000\032could not create hard link"); lf[345]=C_h_intern(&lf[345],21,"\003syscustom-input-port"); lf[346]=C_h_intern(&lf[346],4,"void"); lf[347]=C_decode_literal(C_heaptop,"\376B\000\000\015cannot select"); lf[348]=C_h_intern(&lf[348],17,"\003systhread-yield!"); lf[349]=C_h_intern(&lf[349],25,"\003systhread-block-for-i/o!"); lf[350]=C_h_intern(&lf[350],18,"\003syscurrent-thread"); lf[351]=C_h_intern(&lf[351],6,"\000input"); lf[352]=C_decode_literal(C_heaptop,"\376B\000\000\013cannot read"); lf[353]=C_decode_literal(C_heaptop,"\376B\000\000\013cannot read"); lf[354]=C_h_intern(&lf[354],14,"set-port-name!"); lf[355]=C_decode_literal(C_heaptop,"\376B\000\000\014cannot close"); lf[356]=C_h_intern(&lf[356],20,"\003sysscan-buffer-line"); lf[357]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[358]=C_h_intern(&lf[358],15,"make-input-port"); lf[359]=C_h_intern(&lf[359],22,"\003syscustom-output-port"); lf[360]=C_decode_literal(C_heaptop,"\376B\000\000\014cannot write"); lf[361]=C_decode_literal(C_heaptop,"\376B\000\000\014cannot close"); lf[362]=C_h_intern(&lf[362],16,"make-output-port"); lf[363]=C_h_intern(&lf[363],13,"file-truncate"); lf[364]=C_decode_literal(C_heaptop,"\376B\000\000\024cannot truncate file"); lf[365]=C_decode_literal(C_heaptop,"\376B\000\000\014invalid file"); lf[366]=C_h_intern(&lf[366],4,"lock"); lf[367]=C_h_intern(&lf[367],9,"file-lock"); lf[368]=C_decode_literal(C_heaptop,"\376B\000\000\020cannot lock file"); lf[369]=C_h_intern(&lf[369],18,"file-lock/blocking"); lf[370]=C_decode_literal(C_heaptop,"\376B\000\000\020cannot lock file"); lf[371]=C_h_intern(&lf[371],14,"file-test-lock"); lf[372]=C_decode_literal(C_heaptop,"\376B\000\000\022cannot unlock file"); lf[373]=C_h_intern(&lf[373],11,"file-unlock"); lf[374]=C_decode_literal(C_heaptop,"\376B\000\000\022cannot unlock file"); lf[375]=C_h_intern(&lf[375],11,"create-fifo"); lf[376]=C_decode_literal(C_heaptop,"\376B\000\000\022cannot create FIFO"); lf[377]=C_decode_literal(C_heaptop,"\376B\000\000\023file does not exist"); lf[378]=C_decode_literal(C_heaptop,"\376B\000\000(system error while trying to access file"); lf[379]=C_h_intern(&lf[379],9,"prot/read"); lf[380]=C_h_intern(&lf[380],10,"prot/write"); lf[381]=C_h_intern(&lf[381],9,"prot/exec"); lf[382]=C_h_intern(&lf[382],9,"prot/none"); lf[383]=C_h_intern(&lf[383],9,"map/fixed"); lf[384]=C_h_intern(&lf[384],10,"map/shared"); lf[385]=C_h_intern(&lf[385],11,"map/private"); lf[386]=C_h_intern(&lf[386],13,"map/anonymous"); lf[387]=C_h_intern(&lf[387],8,"map/file"); lf[388]=C_h_intern(&lf[388],18,"map-file-to-memory"); lf[389]=C_h_intern(&lf[389],4,"mmap"); lf[390]=C_decode_literal(C_heaptop,"\376B\000\000\031cannot map file to memory"); lf[391]=C_h_intern(&lf[391],20,"\003syspointer->address"); lf[392]=C_decode_literal(C_heaptop,"\376B\000\000)bad argument type - not a foreign pointer"); lf[393]=C_h_intern(&lf[393],16,"\003sysnull-pointer"); lf[394]=C_h_intern(&lf[394],22,"unmap-file-from-memory"); lf[395]=C_decode_literal(C_heaptop,"\376B\000\000\035cannot unmap file from memory"); lf[396]=C_h_intern(&lf[396],26,"memory-mapped-file-pointer"); lf[397]=C_h_intern(&lf[397],19,"memory-mapped-file\077"); lf[398]=C_h_intern(&lf[398],12,"string->time"); lf[399]=C_decode_literal(C_heaptop,"\376B\000\000\027%a %b %e %H:%M:%S %Z %Y"); lf[400]=C_h_intern(&lf[400],17,"utc-time->seconds"); lf[401]=C_decode_literal(C_heaptop,"\376B\000\000%cannot convert time vector to seconds"); lf[402]=C_h_intern(&lf[402],27,"local-timezone-abbreviation"); lf[403]=C_h_intern(&lf[403],5,"_exit"); lf[404]=C_h_intern(&lf[404],10,"set-alarm!"); lf[405]=C_h_intern(&lf[405],19,"set-buffering-mode!"); lf[406]=C_decode_literal(C_heaptop,"\376B\000\000\031cannot set buffering mode"); lf[407]=C_h_intern(&lf[407],5,"\000full"); lf[408]=C_h_intern(&lf[408],5,"\000line"); lf[409]=C_h_intern(&lf[409],5,"\000none"); lf[410]=C_decode_literal(C_heaptop,"\376B\000\000\026invalid buffering-mode"); lf[411]=C_h_intern(&lf[411],14,"\003syscheck-port"); lf[412]=C_h_intern(&lf[412],14,"terminal-port\077"); lf[414]=C_decode_literal(C_heaptop,"\376B\000\000#port is not connected to a terminal"); lf[415]=C_h_intern(&lf[415],13,"terminal-name"); lf[416]=C_h_intern(&lf[416],13,"terminal-size"); lf[417]=C_h_intern(&lf[417],6,"\000error"); lf[418]=C_decode_literal(C_heaptop,"\376B\000\000\036Unable to get size of terminal"); lf[419]=C_h_intern(&lf[419],17,"\003sysmake-locative"); lf[420]=C_h_intern(&lf[420],8,"location"); lf[421]=C_h_intern(&lf[421],13,"get-host-name"); lf[422]=C_decode_literal(C_heaptop,"\376B\000\000\031cannot retrieve host-name"); lf[423]=C_h_intern(&lf[423],12,"process-fork"); lf[424]=C_h_intern(&lf[424],22,"\003syskill-other-threads"); lf[425]=C_h_intern(&lf[425],4,"exit"); lf[426]=C_decode_literal(C_heaptop,"\376B\000\000\033cannot create child process"); lf[427]=C_h_intern(&lf[427],15,"process-execute"); lf[428]=C_decode_literal(C_heaptop,"\376B\000\000\026cannot execute process"); lf[429]=C_h_intern(&lf[429],17,"parent-process-id"); lf[430]=C_h_intern(&lf[430],5,"sleep"); lf[431]=C_h_intern(&lf[431],14,"process-signal"); lf[432]=C_decode_literal(C_heaptop,"\376B\000\000 could not send signal to process"); lf[433]=C_h_intern(&lf[433],17,"\003sysshell-command"); lf[434]=C_decode_literal(C_heaptop,"\376B\000\000\007/bin/sh"); lf[435]=C_h_intern(&lf[435],24,"get-environment-variable"); lf[436]=C_decode_literal(C_heaptop,"\376B\000\000\005SHELL"); lf[437]=C_h_intern(&lf[437],27,"\003sysshell-command-arguments"); lf[438]=C_decode_literal(C_heaptop,"\376B\000\000\002-c"); lf[439]=C_h_intern(&lf[439],11,"process-run"); lf[440]=C_decode_literal(C_heaptop,"\376B\000\000\025abnormal process exit"); lf[441]=C_h_intern(&lf[441],11,"\003sysprocess"); lf[442]=C_h_intern(&lf[442],7,"process"); lf[443]=C_h_intern(&lf[443],8,"process\052"); lf[444]=C_h_intern(&lf[444],6,"values"); lf[445]=C_h_intern(&lf[445],19,"set-root-directory!"); lf[446]=C_decode_literal(C_heaptop,"\376B\000\000\037unable to change root directory"); lf[447]=C_decode_literal(C_heaptop,"\376B\000\000 cannot retrieve process group ID"); lf[448]=C_h_intern(&lf[448],21,"set-process-group-id!"); lf[449]=C_decode_literal(C_heaptop,"\376B\000\000\033cannot set process group ID"); lf[450]=C_h_intern(&lf[450],18,"getter-with-setter"); lf[451]=C_decode_literal(C_heaptop,"\376B\000\000\026(process-group-id pid)"); lf[452]=C_h_intern(&lf[452],26,"effective-group-id!-setter"); lf[453]=C_decode_literal(C_heaptop,"\376B\000\000\035cannot set effective group ID"); lf[454]=C_decode_literal(C_heaptop,"\376B\000\000\034(current-effective-group-id)"); lf[455]=C_h_intern(&lf[455],12,"set-user-id!"); lf[456]=C_decode_literal(C_heaptop,"\376B\000\000\023cannot set group ID"); lf[457]=C_decode_literal(C_heaptop,"\376B\000\000\022(current-group-id)"); lf[458]=C_h_intern(&lf[458],25,"effective-user-id!-setter"); lf[459]=C_decode_literal(C_heaptop,"\376B\000\000\034cannot set effective user ID"); lf[460]=C_decode_literal(C_heaptop,"\376B\000\000\033(current-effective-used-id)"); lf[461]=C_decode_literal(C_heaptop,"\376B\000\000\022cannot set user ID"); lf[462]=C_decode_literal(C_heaptop,"\376B\000\000\021(current-user-id)"); lf[463]=C_decode_literal(C_heaptop,"\376B\000\000\031(file-creation-mode mode)"); lf[464]=C_decode_literal(C_heaptop,"\376B\000\000%cannot retrieve file position of port"); lf[465]=C_decode_literal(C_heaptop,"\376B\000\000\014invalid file"); lf[466]=C_decode_literal(C_heaptop,"\376B\000\000\024(file-position port)"); lf[467]=C_h_intern(&lf[467],26,"set-file-modification-time"); lf[468]=C_decode_literal(C_heaptop,"\376B\000\000!cannot set file modification-time"); lf[469]=C_decode_literal(C_heaptop,"\376B\000\000\032(file-modification-time f)"); C_register_lf2(lf,470,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2677,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_scheduler_toplevel(2,av2);}} /* k7482 in k7476 in k7473 in k7470 in map-file-to-memory in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_7484,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_record3(&a,3,lf[389],((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* process-run in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8103(C_word c,C_word *av){ C_word tmp; C_word 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_8103,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_8107,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_8107(t6,C_u_i_car(t5));} else{ t5=t4; f_8107(t5,C_SCHEME_FALSE);}} /* k8105 in process-run in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_8107(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_8107,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8110,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1611: process-fork */ t4=*((C_word*)lf[423]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6975 in k6908 in custom-output-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_6977(C_word t0,C_word t1){ C_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(23,0,4)))){ C_save_and_reclaim_args((void *)trf_6977,2,t0,t1);} a=C_alloc(23); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_mutate2(((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_6982,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_6988,a[2]=((C_word*)t0)[4],a[3]=((C_word)li177),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6994,a[2]=t5,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[6],a[7]=((C_word)li178),tmp=(C_word)a,a+=8,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7016,a[2]=((C_word*)t0)[4],a[3]=((C_word)li179),tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1291: make-output-port */ t10=*((C_word*)lf[362]+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);}} /* a6688 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6689(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_6689,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6693,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:1209: fetch */ t5=((C_word*)t0)[5]; f_6437(t5,t4);} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_6693(2,av2);}}} /* k7495 in k7476 in k7473 in k7470 in map-file-to-memory in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,10)))){ C_save_and_reclaim((void *)f_7497,2,av);} a=C_alloc(4); t2=C_eqp(C_fix(-1),t1); if(C_truep(t2)){ /* posixunix.scm:1420: posix-error */ t3=lf[0];{ C_word *av2; if(c >= 11) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(11); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[8]; av2[3]=lf[388]; av2[4]=lf[390]; av2[5]=((C_word*)t0)[3]; 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)[8]; f_2704(11,av2);}} else{ t3=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record3(&a,3,lf[389],((C_word*)t0)[10],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* seconds->utc-time in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,3)))){ C_save_and_reclaim((void*)f_3948,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; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3952,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t2))){ /* posix-common.scm:587: current-seconds */ t4=*((C_word*)lf[107]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=C_i_check_number_2(t4,lf[108]); /* posix-common.scm:589: ##sys#decode-seconds */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[106]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[106]+1); av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_TRUE; tp(4,av2);}}} /* k6980 in k6975 in k6908 in custom-output-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6982,2,av);} a=C_alloc(4); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6986,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1301: set-port-name! */ t4=*((C_word*)lf[354]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a6987 in k6975 in k6908 in custom-output-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6988(C_word c,C_word *av){ C_word tmp; C_word 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_6988,3,av);} /* posixunix.scm:1293: store */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} /* k6984 in k6980 in k6975 in k6908 in custom-output-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 in ... */ 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,1)))){ C_save_and_reclaim((void *)f_6986,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6112 in change-file-owner in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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(0,c,7)))){ C_save_and_reclaim((void *)f_6114,2,av);} t2=C_chown(t1,((C_word*)t0)[2],((C_word*)t0)[3]); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ /* posixunix.scm:1025: posix-error */ t3=lf[0];{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=lf[8]; av2[3]=lf[322]; av2[4]=lf[323]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[2]; av2[7]=((C_word*)t0)[3]; f_2704(8,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* check in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_6116(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(4,0,3)))){ C_save_and_reclaim_args((void *)trf_6116,4,t1,t2,t3,t4);} a=C_alloc(4); t5=C_i_check_string_2(t2,t4); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6134,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1034: ##sys#make-c-string */ {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]=t6; av2[2]=t2; av2[3]=t4; tp(4,av2);}} /* k4195 in k4207 in k4203 in scan in k4169 in loop in get-environment-variables in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4197,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* needed-pipe in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_8194(C_word t1,C_word 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_8194,2,t1,t2);} a=C_alloc(6); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8203,a[2]=((C_word)li226),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8209,a[2]=((C_word)li227),tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:1654: ##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);}}} /* k5287 in open-input-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5289(C_word c,C_word *av){ C_word tmp; C_word 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_5289,2,av);} /* posixunix.scm:617: check */ f_5260(((C_word*)t0)[3],lf[206],((C_word*)t0)[4],C_SCHEME_TRUE,t1);} /* open-input-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_5275,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[206]); t5=C_i_pairp(t3); t6=(C_truep(t5)?C_slot(t3,C_fix(0)):lf[207]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5289,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t8=C_eqp(t6,lf[207]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5296,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:621: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t9; av2[2]=t2; av2[3]=lf[206]; tp(4,av2);}} else{ t9=C_eqp(t6,lf[208]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5306,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:622: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t10; av2[2]=t2; av2[3]=lf[206]; tp(4,av2);}} else{ /* posixunix.scm:606: ##sys#error */ t10=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t7; av2[2]=lf[209]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}} /* k5271 in check in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5273,2,av);} t2=C_set_file_ptr(t1,((C_word*)t0)[2]); t3=t1; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6124 in k6132 in check in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* get-environment-variables in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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!=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_4161,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_4167,a[2]=t3,a[3]=((C_word)li65),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_4167(t5,t1,C_fix(0));} /* a8179 */ 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=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_8180,5,av);} if(C_truep(t3)){ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* posixunix.scm:1651: ##sys#signal-hook */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t1; av2[2]=lf[127]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[440]; av2[5]=((C_word*)t0)[3]; av2[6]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}}} /* loop in get-environment-variables in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_4167(C_word t0,C_word t1,C_word 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_4167,3,t0,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4171,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=stub621(t5,t6); /* posix-common.scm:641: ##sys#peek-c-string */ t8=*((C_word*)lf[4]+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);}} /* k4169 in loop in get-environment-variables in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_4171,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_4179,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=((C_word)li64),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_4179(t6,((C_word*)t0)[4],C_fix(0));} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* scan in k4169 in loop in get-environment-variables in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_4179,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_4205,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); /* posix-common.scm:648: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[70]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[70]+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)); /* posix-common.scm:651: scan */ t6=t1; t7=t4; t1=t6; t2=t7; goto loop;}} /* unsetenv in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4141(C_word c,C_word *av){ C_word tmp; C_word 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_4141,3,av);} a=C_alloc(3); t3=C_i_check_string_2(t2,lf[119]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4149,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:637: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[119]; tp(4,av2);}} /* k4147 in unsetenv in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_4149,2,av);} t2=C_unsetenv(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* create-session in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_6154,2,av);} a=C_alloc(7); t2=C_setsid(C_SCHEME_FALSE); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6158,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_6164,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:1044: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[5]+1); av2[1]=t4; tp(2,av2);}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6156 in create-session in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6158,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a5441 in k5435 in with-input-from-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_5442,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[218]+1)); t3=C_mutate2((C_word*)lf[218]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a5446 in k5435 in with-input-from-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_5447,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5453,a[2]=((C_word*)t0)[2],a[3]=((C_word)li120),tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:672: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6162 in create-session in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6164,2,av);} /* posixunix.scm:1045: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[327]; av2[3]=lf[328]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* setenv in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; 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_4124,4,av);} a=C_alloc(4); t4=C_i_check_string_2(t2,lf[118]); t5=C_i_check_string_2(t3,lf[118]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4135,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:632: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[11]+1); av2[1]=t6; av2[2]=t2; av2[3]=lf[118]; tp(4,av2);}} /* a7906 in k7891 in process-fork in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_7907,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7911,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:1559: thunk */ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k8363 in a8333 in process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8365(C_word c,C_word *av){ C_word tmp; C_word 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_8365,2,av);} /* posixunix.scm:1703: input-port */ t2=((C_word*)t0)[2]; f_8300(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);} /* k7909 in a7906 in k7891 in process-fork in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_7911,2,av);} /* posixunix.scm:1560: exit */ t2=*((C_word*)lf[425]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* file-read-access? in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_6136,3,av);} /* posixunix.scm:1037: check */ f_6116(t1,t2,C_fix((C_word)R_OK),lf[324]);} /* k8359 in k8343 in a8333 in process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_8361,2,av);} /* posixunix.scm:1705: output-port */ t2=((C_word*)t0)[2]; f_8311(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);} /* k6132 in check in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_6134,2,av);} a=C_alloc(4); t2=C_test_access(t1,((C_word*)t0)[2]); t3=C_eqp(C_fix(0),t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6126,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); if(C_truep(t4)){ t6=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* posixunix.scm:1035: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[5]+1); av2[1]=t5; tp(2,av2);}}} /* k3086 in check in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3088,2,av);} t2=C_set_file_ptr(t1,((C_word*)t0)[2]); t3=t1; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4133 in setenv in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4135,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4139,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:632: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[118]; tp(4,av2);}} /* k4137 in k4133 in setenv in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_4139,2,av);} t2=C_setenv(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_7915 in k7891 in process-fork in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_7915,3,av);} /* posixunix.scm:1557: thunk */ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k8351 in k8347 in k8343 in a8333 in process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 in ... */ static void C_ccall f_8353(C_word c,C_word *av){ C_word tmp; C_word 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_8353,2,av);} /* posixunix.scm:1702: values */{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* file-write-access? in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6142(C_word c,C_word *av){ C_word tmp; C_word 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_6142,3,av);} /* posixunix.scm:1038: check */ f_6116(t1,t2,C_fix((C_word)W_OK),lf[325]);} /* file-execute-access? in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_6148,3,av);} /* posixunix.scm:1039: check */ f_6116(t1,t2,C_fix((C_word)X_OK),lf[326]);} /* a5452 in a5446 in k5435 in with-input-from-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5453(C_word c,C_word *av){ C_word tmp; 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_5453,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_5457,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:674: close-input-pipe */ t4=*((C_word*)lf[211]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8355 in k8347 in k8343 in a8333 in process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_8357,2,av);} /* posixunix.scm:1708: input-port */ t2=((C_word*)t0)[2]; f_8300(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);} /* k5455 in a5452 in a5446 in k5435 in with-input-from-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5457,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop */ static void C_fcall f_7056(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_7056,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_7066,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:1279: 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:1284: 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);}}}} /* change-directory in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5207(C_word c,C_word *av){ C_word tmp; C_word 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_5207,3,av);} a=C_alloc(4); t3=C_i_check_string_2(t2,lf[69]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5214,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:590: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[69]; tp(4,av2);}} /* chkstrlst in %process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_8380(C_word t0,C_word 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_8380,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_8385,a[2]=((C_word*)t0)[2],a[3]=((C_word)li239),tmp=(C_word)a,a+=4,tmp); t5=t2; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8394,a[2]=t4,a[3]=((C_word)li240),tmp=(C_word)a,a+=4,tmp); t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=( f_8394(t6,t5) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* g2088 in chkstrlst in %process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static C_word C_fcall f_8385(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]));} /* k6196 in k6192 in create-symbolic-link in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_6198,2,av);} t2=C_symlink(((C_word*)t0)[2],t1); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ /* posixunix.scm:1077: posix-error */ t3=lf[0];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[8]; av2[3]=lf[331]; av2[4]=lf[332]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; f_2704(7,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a7972 in process-execute in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_7973(C_word c,C_word *av){ C_word tmp; C_word 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_7973,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a5399 in k5387 in call-with-input-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_5400,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_5404,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:656: close-input-pipe */ t4=*((C_word*)lf[211]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a7975 in process-execute in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_7976,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:1571: posix-error */ t7=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t1; av2[2]=lf[127]; av2[3]=lf[427]; av2[4]=lf[428]; av2[5]=((C_word*)t0)[2]; f_2704(6,av2);}} else{ t7=C_SCHEME_UNDEFINED; t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k6192 in create-symbolic-link in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6194,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6198,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:1075: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[330]; tp(4,av2);}} /* call-with-output-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_5409,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_5413,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[210]+1); av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* k5402 in a5399 in k5387 in call-with-input-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5404,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7064 in loop */ static void C_ccall f_7066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_7066,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_fix(0)); /* posixunix.scm:1281: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_7056(t3,((C_word*)t0)[4],((C_word*)t0)[5],C_fix(0),((C_word*)t0)[6]);} /* with-input-from-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_5433,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_5437,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[206]+1); av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* %process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_8378(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; if(C_unlikely(!C_demand(C_calculate_demand(23,0,3)))){ C_save_and_reclaim_args((void *)trf_8378,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(23); 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_8380,a[2]=t2,a[3]=((C_word)li241),tmp=(C_word)a,a+=4,tmp); t11=C_i_check_string_2(((C_word*)t8)[1],t2); t12=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8421,a[2]=t2,a[3]=t8,a[4]=t9,a[5]=t6,a[6]=t3,a[7]=t1,a[8]=t7,a[9]=t10,tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t9)[1])){ /* posixunix.scm:1724: chkstrlst */ t13=t10; f_8380(t13,t12,((C_word*)t9)[1]);} else{ t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8443,a[2]=t9,a[3]=t8,a[4]=t12,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1726: ##sys#shell-command-arguments */ t14=*((C_word*)lf[437]+1);{ C_word av2[3]; av2[0]=t14; av2[1]=t13; av2[2]=((C_word*)t8)[1]; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}}} /* k5435 in with-input-from-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_5437,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_5442,a[2]=t6,a[3]=t4,a[4]=((C_word)li119),tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5447,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li121),tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5462,a[2]=t4,a[3]=t6,a[4]=((C_word)li122),tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:669: ##sys#dynamic-wind */ t10=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* process-wait in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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((c-2)*C_SIZEOF_PAIR +9,c,5)))){ C_save_and_reclaim((void*)f_4250,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; 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_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=C_i_check_exact_2(t13,lf[125]); t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4274,a[2]=t13,a[3]=t9,a[4]=((C_word)li69),tmp=(C_word)a,a+=5,tmp); t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4280,a[2]=t13,a[3]=((C_word)li70),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:679: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t15; av2[3]=t16; C_call_with_values(4,av2);}} /* k7036 in k6908 in custom-output-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_7038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7038,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_6977(t5,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7039,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word)li182),tmp=(C_word)a,a+=7,tmp));} /* f_7039 in k7036 in k6908 in custom-output-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_7039,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_7056,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)li181),tmp=(C_word)a,a+=9,tmp)); t8=((C_word*)t6)[1]; f_7056(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:1289: poke */ t3=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* create-symbolic-link in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_6173,4,av);} a=C_alloc(5); t4=C_i_check_string_2(t2,lf[330]); t5=C_i_check_string_2(t3,lf[330]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6194,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1074: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[11]+1); av2[1]=t6; av2[2]=t2; av2[3]=lf[330]; tp(4,av2);}} /* k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_6171,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[329]+1 /* (set! process-group-id ...) */,t1); t3=C_mutate2((C_word*)lf[330]+1 /* (set! create-symbolic-link ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6173,a[2]=((C_word)li153),tmp=(C_word)a,a+=3,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6202,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[72]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[72]+1); av2[1]=t4; av2[2]=t5; av2[3]=C_make_character(32); tp(4,av2);}} /* a5461 in k5435 in with-input-from-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5462(C_word c,C_word *av){ C_word tmp; 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_5462,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[218]+1)); t3=C_mutate2((C_word*)lf[218]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* process-execute in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_7955,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; 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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7973,a[2]=((C_word)li211),tmp=(C_word)a,a+=3,tmp); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7976,a[2]=t2,a[3]=((C_word)li212),tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1564: call-with-exec-args */ t14=lf[142]; f_4476(t14,t1,lf[427],t2,t12,t5,t9,t13);} /* with-output-to-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_5467,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_5471,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[210]+1); av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* k8131 in k8127 in k8108 in k8105 in process-run in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8133,2,av);} /* posixunix.scm:1615: process-execute */ t2=*((C_word*)lf[427]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#process-wait in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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,4)))){ C_save_and_reclaim((void *)f_8015,4,av);} 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_8031,a[2]=t2,a[3]=t3,a[4]=((C_word)li214),tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1580: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[186]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[186]+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:1582: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(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:1582: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(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:1582: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; av2[4]=t9; C_values(5,av2);}}}}} /* for-each-loop2087 in chkstrlst in %process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static C_word C_fcall f_8394(C_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:1721: g2088 */ f_8385(((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);}} /* k8127 in k8108 in k8105 in process-run in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8129,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); /* posixunix.scm:1615: ##sys#shell-command-arguments */ t4=*((C_word*)lf[437]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a7015 in k6975 in k6908 in custom-output-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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!=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_7016,2,av);} /* posixunix.scm:1300: store */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3485 in loop in k3457 in k3453 in k3450 in k3447 in k3432 in directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_3487,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_3499,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_3499(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_3499(t11,(C_truep(t10)?t10:C_i_not(((C_word*)t0)[5])));} else{ t10=t6; f_3499(t10,C_i_not(((C_word*)t0)[5]));}}} else{ t8=t6; f_3499(t8,C_SCHEME_FALSE);}} /* k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(181,c,8)))){ C_save_and_reclaim((void *)f_4242,2,av);} a=C_alloc(181); t2=C_mutate2((C_word*)lf[123]+1 /* (set! signal-handler ...) */,t1); t3=C_mutate2((C_word*)lf[124]+1 /* (set! current-process-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4244,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[125]+1 /* (set! process-wait ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4250,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2(&lf[129] /* (set! list->c-string-buffer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4321,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2(&lf[131] /* (set! free-c-string-buffer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4440,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp)); t7=*((C_word*)lf[141]+1); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4474,a[2]=((C_word)li83),tmp=(C_word)a,a+=3,tmp); t9=C_mutate2(&lf[142] /* (set! call-with-exec-args ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4476,a[2]=t8,a[3]=t7,a[4]=((C_word)li91),tmp=(C_word)a,a+=5,tmp)); t10=C_mutate2((C_word*)lf[143]+1 /* (set! ##sys#file-nonblocking! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4556,a[2]=((C_word)li92),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[144]+1 /* (set! ##sys#file-select-one ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4563,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[145]+1 /* (set! pipe/buf ...) */,C_fix((C_word)PIPE_BUF)); t13=C_mutate2((C_word*)lf[146]+1 /* (set! fcntl/dupfd ...) */,C_fix((C_word)F_DUPFD)); t14=C_mutate2((C_word*)lf[147]+1 /* (set! fcntl/getfd ...) */,C_fix((C_word)F_GETFD)); t15=C_mutate2((C_word*)lf[148]+1 /* (set! fcntl/setfd ...) */,C_fix((C_word)F_SETFD)); t16=C_mutate2((C_word*)lf[149]+1 /* (set! fcntl/getfl ...) */,C_fix((C_word)F_GETFL)); t17=C_mutate2((C_word*)lf[150]+1 /* (set! fcntl/setfl ...) */,C_fix((C_word)F_SETFL)); t18=C_mutate2((C_word*)lf[151]+1 /* (set! open/rdonly ...) */,C_fix((C_word)O_RDONLY)); t19=C_mutate2((C_word*)lf[152]+1 /* (set! open/wronly ...) */,C_fix((C_word)O_WRONLY)); t20=C_mutate2((C_word*)lf[153]+1 /* (set! open/rdwr ...) */,C_fix((C_word)O_RDWR)); t21=C_mutate2((C_word*)lf[154]+1 /* (set! open/read ...) */,C_fix((C_word)O_RDONLY)); t22=C_mutate2((C_word*)lf[155]+1 /* (set! open/write ...) */,C_fix((C_word)O_WRONLY)); t23=C_mutate2((C_word*)lf[156]+1 /* (set! open/creat ...) */,C_fix((C_word)O_CREAT)); t24=C_mutate2((C_word*)lf[157]+1 /* (set! open/append ...) */,C_fix((C_word)O_APPEND)); t25=C_mutate2((C_word*)lf[158]+1 /* (set! open/excl ...) */,C_fix((C_word)O_EXCL)); t26=C_mutate2((C_word*)lf[159]+1 /* (set! open/noctty ...) */,C_fix((C_word)O_NOCTTY)); t27=C_mutate2((C_word*)lf[160]+1 /* (set! open/nonblock ...) */,C_fix((C_word)O_NONBLOCK)); t28=C_mutate2((C_word*)lf[161]+1 /* (set! open/trunc ...) */,C_fix((C_word)O_TRUNC)); t29=C_mutate2((C_word*)lf[162]+1 /* (set! open/sync ...) */,C_fix((C_word)O_FSYNC)); t30=C_mutate2((C_word*)lf[163]+1 /* (set! open/fsync ...) */,C_fix((C_word)O_FSYNC)); t31=C_mutate2((C_word*)lf[164]+1 /* (set! open/binary ...) */,C_fix((C_word)O_BINARY)); t32=C_mutate2((C_word*)lf[165]+1 /* (set! open/text ...) */,C_fix((C_word)O_TEXT)); t33=C_mutate2((C_word*)lf[166]+1 /* (set! perm/irusr ...) */,C_fix((C_word)S_IRUSR)); t34=C_mutate2((C_word*)lf[167]+1 /* (set! perm/iwusr ...) */,C_fix((C_word)S_IWUSR)); t35=C_mutate2((C_word*)lf[168]+1 /* (set! perm/ixusr ...) */,C_fix((C_word)S_IXUSR)); t36=C_mutate2((C_word*)lf[169]+1 /* (set! perm/irgrp ...) */,C_fix((C_word)S_IRGRP)); t37=C_mutate2((C_word*)lf[170]+1 /* (set! perm/iwgrp ...) */,C_fix((C_word)S_IWGRP)); t38=C_mutate2((C_word*)lf[171]+1 /* (set! perm/ixgrp ...) */,C_fix((C_word)S_IXGRP)); t39=C_mutate2((C_word*)lf[172]+1 /* (set! perm/iroth ...) */,C_fix((C_word)S_IROTH)); t40=C_mutate2((C_word*)lf[173]+1 /* (set! perm/iwoth ...) */,C_fix((C_word)S_IWOTH)); t41=C_mutate2((C_word*)lf[174]+1 /* (set! perm/ixoth ...) */,C_fix((C_word)S_IXOTH)); t42=C_mutate2((C_word*)lf[175]+1 /* (set! perm/irwxu ...) */,C_fix((C_word)S_IRWXU)); t43=C_mutate2((C_word*)lf[176]+1 /* (set! perm/irwxg ...) */,C_fix((C_word)S_IRWXG)); t44=C_mutate2((C_word*)lf[177]+1 /* (set! perm/irwxo ...) */,C_fix((C_word)S_IRWXO)); t45=C_mutate2((C_word*)lf[178]+1 /* (set! perm/isvtx ...) */,C_fix((C_word)S_ISVTX)); t46=C_mutate2((C_word*)lf[179]+1 /* (set! perm/isuid ...) */,C_fix((C_word)S_ISUID)); t47=C_mutate2((C_word*)lf[180]+1 /* (set! perm/isgid ...) */,C_fix((C_word)S_ISGID)); t48=C_mutate2((C_word*)lf[181]+1 /* (set! file-control ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4620,a[2]=((C_word)li94),tmp=(C_word)a,a+=3,tmp)); t49=C_a_i_bitwise_ior(&a,2,C_fix((C_word)S_IRGRP),C_fix((C_word)S_IROTH)); t50=C_a_i_bitwise_ior(&a,2,C_fix((C_word)S_IRWXU),t49); t51=t50; t52=C_mutate2((C_word*)lf[183]+1 /* (set! file-open ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4653,a[2]=t51,a[3]=((C_word)li95),tmp=(C_word)a,a+=4,tmp)); t53=C_mutate2((C_word*)lf[185]+1 /* (set! file-close ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4685,a[2]=((C_word)li97),tmp=(C_word)a,a+=3,tmp)); t54=C_mutate2((C_word*)lf[188]+1 /* (set! file-read ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4716,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp)); t55=C_mutate2((C_word*)lf[191]+1 /* (set! file-write ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4757,a[2]=((C_word)li99),tmp=(C_word)a,a+=3,tmp)); t56=C_mutate2((C_word*)lf[194]+1 /* (set! file-mkstemp ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4794,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp)); t57=C_mutate2((C_word*)lf[196]+1 /* (set! file-select ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4826,a[2]=((C_word)li105),tmp=(C_word)a,a+=3,tmp)); t58=C_mutate2((C_word*)lf[69]+1 /* (set! change-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5207,a[2]=((C_word)li106),tmp=(C_word)a,a+=3,tmp)); t59=C_mutate2((C_word*)lf[202]+1 /* (set! change-directory* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5226,a[2]=((C_word)li107),tmp=(C_word)a,a+=3,tmp)); t60=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5260,a[2]=((C_word)li108),tmp=(C_word)a,a+=3,tmp); t61=C_mutate2((C_word*)lf[206]+1 /* (set! open-input-pipe ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5275,a[2]=t60,a[3]=((C_word)li109),tmp=(C_word)a,a+=4,tmp)); t62=C_mutate2((C_word*)lf[210]+1 /* (set! open-output-pipe ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5315,a[2]=t60,a[3]=((C_word)li110),tmp=(C_word)a,a+=4,tmp)); t63=C_mutate2((C_word*)lf[211]+1 /* (set! close-input-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5355,a[2]=((C_word)li111),tmp=(C_word)a,a+=3,tmp)); t64=C_mutate2((C_word*)lf[213]+1 /* (set! close-output-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5370,a[2]=((C_word)li112),tmp=(C_word)a,a+=3,tmp)); t65=C_mutate2((C_word*)lf[215]+1 /* (set! call-with-input-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5385,a[2]=((C_word)li115),tmp=(C_word)a,a+=3,tmp)); t66=C_mutate2((C_word*)lf[216]+1 /* (set! call-with-output-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5409,a[2]=((C_word)li118),tmp=(C_word)a,a+=3,tmp)); t67=C_mutate2((C_word*)lf[217]+1 /* (set! with-input-from-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5433,a[2]=((C_word)li123),tmp=(C_word)a,a+=3,tmp)); t68=C_mutate2((C_word*)lf[219]+1 /* (set! with-output-to-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5467,a[2]=((C_word)li128),tmp=(C_word)a,a+=3,tmp)); t69=C_mutate2((C_word*)lf[221]+1 /* (set! create-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5501,a[2]=((C_word)li129),tmp=(C_word)a,a+=3,tmp)); t70=C_mutate2((C_word*)lf[223]+1 /* (set! signal/term ...) */,C_fix((C_word)SIGTERM)); t71=C_mutate2((C_word*)lf[224]+1 /* (set! signal/kill ...) */,C_fix((C_word)SIGKILL)); t72=C_mutate2((C_word*)lf[225]+1 /* (set! signal/int ...) */,C_fix((C_word)SIGINT)); t73=C_mutate2((C_word*)lf[226]+1 /* (set! signal/hup ...) */,C_fix((C_word)SIGHUP)); t74=C_mutate2((C_word*)lf[227]+1 /* (set! signal/fpe ...) */,C_fix((C_word)SIGFPE)); t75=C_mutate2((C_word*)lf[228]+1 /* (set! signal/ill ...) */,C_fix((C_word)SIGILL)); t76=C_mutate2((C_word*)lf[229]+1 /* (set! signal/segv ...) */,C_fix((C_word)SIGSEGV)); t77=C_mutate2((C_word*)lf[230]+1 /* (set! signal/abrt ...) */,C_fix((C_word)SIGABRT)); t78=C_mutate2((C_word*)lf[231]+1 /* (set! signal/trap ...) */,C_fix((C_word)SIGTRAP)); t79=C_mutate2((C_word*)lf[232]+1 /* (set! signal/quit ...) */,C_fix((C_word)SIGQUIT)); t80=C_mutate2((C_word*)lf[233]+1 /* (set! signal/alrm ...) */,C_fix((C_word)SIGALRM)); t81=C_mutate2((C_word*)lf[234]+1 /* (set! signal/vtalrm ...) */,C_fix((C_word)SIGVTALRM)); t82=C_mutate2((C_word*)lf[235]+1 /* (set! signal/prof ...) */,C_fix((C_word)SIGPROF)); t83=C_mutate2((C_word*)lf[236]+1 /* (set! signal/io ...) */,C_fix((C_word)SIGIO)); t84=C_mutate2((C_word*)lf[237]+1 /* (set! signal/urg ...) */,C_fix((C_word)SIGURG)); t85=C_mutate2((C_word*)lf[238]+1 /* (set! signal/chld ...) */,C_fix((C_word)SIGCHLD)); t86=C_mutate2((C_word*)lf[239]+1 /* (set! signal/cont ...) */,C_fix((C_word)SIGCONT)); t87=C_mutate2((C_word*)lf[240]+1 /* (set! signal/stop ...) */,C_fix((C_word)SIGSTOP)); t88=C_mutate2((C_word*)lf[241]+1 /* (set! signal/tstp ...) */,C_fix((C_word)SIGTSTP)); t89=C_mutate2((C_word*)lf[242]+1 /* (set! signal/pipe ...) */,C_fix((C_word)SIGPIPE)); t90=C_mutate2((C_word*)lf[243]+1 /* (set! signal/xcpu ...) */,C_fix((C_word)SIGXCPU)); t91=C_mutate2((C_word*)lf[244]+1 /* (set! signal/xfsz ...) */,C_fix((C_word)SIGXFSZ)); t92=C_mutate2((C_word*)lf[245]+1 /* (set! signal/usr1 ...) */,C_fix((C_word)SIGUSR1)); t93=C_mutate2((C_word*)lf[246]+1 /* (set! signal/usr2 ...) */,C_fix((C_word)SIGUSR2)); t94=C_mutate2((C_word*)lf[247]+1 /* (set! signal/winch ...) */,C_fix((C_word)SIGWINCH)); t95=C_mutate2((C_word*)lf[248]+1 /* (set! signal/bus ...) */,C_fix((C_word)SIGBUS)); t96=C_set_block_item(lf[249] /* signal/break */,0,C_fix(0)); t97=C_a_i_list(&a,26,*((C_word*)lf[223]+1),*((C_word*)lf[224]+1),*((C_word*)lf[225]+1),*((C_word*)lf[226]+1),*((C_word*)lf[227]+1),*((C_word*)lf[228]+1),*((C_word*)lf[229]+1),*((C_word*)lf[230]+1),*((C_word*)lf[231]+1),*((C_word*)lf[232]+1),*((C_word*)lf[233]+1),*((C_word*)lf[234]+1),*((C_word*)lf[235]+1),*((C_word*)lf[236]+1),*((C_word*)lf[237]+1),*((C_word*)lf[238]+1),*((C_word*)lf[239]+1),*((C_word*)lf[240]+1),*((C_word*)lf[241]+1),*((C_word*)lf[242]+1),*((C_word*)lf[243]+1),*((C_word*)lf[244]+1),*((C_word*)lf[245]+1),*((C_word*)lf[246]+1),*((C_word*)lf[247]+1),*((C_word*)lf[248]+1)); t98=C_mutate2((C_word*)lf[250]+1 /* (set! signals-list ...) */,t97); t99=C_mutate2((C_word*)lf[251]+1 /* (set! set-signal-mask! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5548,a[2]=((C_word)li131),tmp=(C_word)a,a+=3,tmp)); t100=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5597,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t101=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8691,a[2]=((C_word)li259),tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:774: getter-with-setter */ t102=*((C_word*)lf[450]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t102; av2[1]=t100; av2[2]=t101; av2[3]=*((C_word*)lf[251]+1); ((C_proc)(void*)(*((C_word*)t102+1)))(4,av2);}} /* current-process-id in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_4244,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fudge(C_fix(33)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k3457 in k3453 in k3450 in k3447 in k3432 in directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_3473(C_word 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_3473,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_3487,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); /* posix-common.scm:485: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[70]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[70]+1); av2[1]=t5; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(0); av2[4]=t4; tp(5,av2);}}} /* k7850 in get-host-name in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_7852,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7855,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* posixunix.scm:1540: posix-error */ t4=lf[0];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[417]; av2[3]=lf[421]; av2[4]=lf[422]; f_2704(5,av2);}}} /* k7853 in k7850 in get-host-name in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5294 in open-input-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5296(C_word c,C_word *av){ C_word tmp; C_word t0=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_5296,2,av);} a=C_alloc(2); t2=open_text_input_pipe(&a,1,t1); /* posixunix.scm:617: check */ f_5260(((C_word*)t0)[3],lf[206],((C_word*)t0)[4],C_SCHEME_TRUE,t2);} /* parent-process-id in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_8053,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=stub1957(C_SCHEME_UNDEFINED); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* sleep in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8056(C_word c,C_word *av){ C_word tmp; C_word 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_8056,3,av);} t3=C_i_foreign_fixnum_argumentp(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=stub1961(C_SCHEME_UNDEFINED,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3497 in k3485 in loop in k3457 in k3453 in k3450 in k3447 in k3432 in directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_3499(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_3499,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ /* posix-common.scm:492: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3473(t2,((C_word*)t0)[3]);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3509,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:493: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_3473(t3,t2);}} /* process-fork in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_7862,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=stub1911(C_SCHEME_UNDEFINED,C_SCHEME_FALSE); t14=stub1891(C_SCHEME_UNDEFINED); t15=t14; t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7893,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:1553: posix-error */ t18=lf[0];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t18; av2[1]=t16; av2[2]=lf[127]; av2[3]=lf[423]; av2[4]=lf[426]; f_2704(5,av2);}} else{ t18=t16;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=C_SCHEME_UNDEFINED; f_7893(2,av2);}}} /* input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_8300(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_8300,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(6); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8304,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:1689: connect-parent */ f_8214(t7,t4,t5);} /* k8302 in input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_8304,2,av);} if(C_truep(t1)){ /* posixunix.scm:1690: ##sys#custom-input-port */ t2=*((C_word*)lf[345]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* ##sys#process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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 t11; C_word *a; if(c!=9) C_bad_argc_2(c,9,t0); if(C_unlikely(!C_demand(C_calculate_demand(21,c,6)))){ C_save_and_reclaim((void *)f_8322,9,av);} a=C_alloc(21); t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8328,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)li236),tmp=(C_word)a,a+=10,tmp); t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8334,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)li237),tmp=(C_word)a,a+=11,tmp); /* posixunix.scm:1637: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t9; av2[3]=t10; C_call_with_values(4,av2);}} /* a8327 in process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8328(C_word c,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_8328,2,av);} /* posixunix.scm:1697: spawn */ t2=((C_word*)t0)[2]; f_8255(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]);} /* k7470 in map-file-to-memory in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7472,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7475,a[2]=((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(((C_word*)t0)[7]))){ t4=((C_word*)t0)[7]; t5=t3; f_7475(t5,C_u_i_car(t4));} else{ t4=t3; f_7475(t4,C_fix(0));}} /* k8090 in shell-command in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8092,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[434]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* map-file-to-memory in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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 +8,c,2)))){ C_save_and_reclaim((void*)f_7468,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; C_word t10; t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7472,a[2]=t3,a[3]=t4,a[4]=t5,a[5]=t6,a[6]=t1,a[7]=t7,tmp=(C_word)a,a+=8,tmp); t9=t2; if(C_truep(t9)){ t10=t8;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t2; f_7472(2,av2);}} else{ /* posixunix.scm:1414: ##sys#null-pointer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[393]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[393]+1); av2[1]=t8; tp(2,av2);}}} /* output-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_8311(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_8311,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(6); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8315,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:1693: connect-parent */ f_8214(t7,t4,t5);} /* k8313 in output-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8315(C_word c,C_word *av){ C_word tmp; C_word 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_8315,2,av);} if(C_truep(t1)){ /* posixunix.scm:1694: ##sys#custom-output-port */ t2=*((C_word*)lf[359]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* rmdir in delete-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_3233(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_3233,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3237,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:430: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[11]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k7476 in k7473 in k7470 in map-file-to-memory in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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,c,2)))){ C_save_and_reclaim((void *)f_7478,2,av);} a=C_alloc(21); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=((C_word*)t0)[5]; t6=C_a_i_bytevector(&a,1,C_fix(3)); t7=(C_truep(((C_word*)t0)[6])?C_i_foreign_pointer_argumentp(((C_word*)t0)[6]):C_SCHEME_FALSE); t8=C_i_foreign_integer_argumentp(t2); t9=C_i_foreign_fixnum_argumentp(t3); t10=C_i_foreign_fixnum_argumentp(t4); t11=C_i_foreign_fixnum_argumentp(t5); t12=C_i_foreign_integer_argumentp(((C_word*)t0)[7]); t13=stub1734(t6,t7,t8,t9,t10,t11,t12); t14=t13; t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7484,a[2]=((C_word*)t0)[8],a[3]=t14,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t16=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7497,a[2]=t15,a[3]=((C_word*)t0)[6],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)[7],a[9]=((C_word*)t0)[8],a[10]=t14,tmp=(C_word)a,a+=11,tmp); /* posixunix.scm:1419: ##sys#pointer->address */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[391]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[391]+1); av2[1]=t16; av2[2]=t14; tp(3,av2);}} /* k7473 in k7470 in map-file-to-memory in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_7475(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_7475,2,t0,t1);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7478,a[2]=((C_word*)t0)[2],a[3]=((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_blockp(((C_word*)t0)[6]))){ if(C_truep(C_specialp(((C_word*)t0)[6]))){ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_7478(2,av2);}} else{ /* posixunix.scm:1417: ##sys#signal-hook */ t4=*((C_word*)lf[1]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t3; av2[2]=lf[13]; av2[3]=lf[388]; av2[4]=lf[392]; av2[5]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} else{ /* posixunix.scm:1417: ##sys#signal-hook */ t4=*((C_word*)lf[1]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t3; av2[2]=lf[13]; av2[3]=lf[388]; av2[4]=lf[392]; av2[5]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} /* ##sys#shell-command-arguments in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8097(C_word c,C_word *av){ C_word tmp; C_word 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_8097,3,av);} a=C_alloc(6); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list2(&a,2,lf[438],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8343 in a8333 in process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8345,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8349,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_8361,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:1706: make-on-close */ f_8157(t4,((C_word*)t0)[5],((C_word*)t0)[3],((C_word*)t0)[10],C_fix(1),C_fix(0),C_fix(2));} /* k8347 in k8343 in a8333 in process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8349(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_8349,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8353,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_8357,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:1709: make-on-close */ f_8157(t4,((C_word*)t0)[6],((C_word*)t0)[4],((C_word*)t0)[11],C_fix(2),C_fix(0),C_fix(1));} /* k5387 in call-with-input-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_5389,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5394,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li113),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5400,a[2]=t2,a[3]=((C_word)li114),tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:653: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* call-with-input-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_5385,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_5389,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[206]+1); av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* a8333 in process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8334(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_8334,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_8345,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_8365,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:1704: make-on-close */ f_8157(t12,((C_word*)t0)[6],t5,t10,C_fix(0),C_fix(1),C_fix(2));} /* k3235 in rmdir in delete-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3237,2,av);} 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* posix-common.scm:432: posix-error */ t4=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[8]; av2[3]=lf[73]; av2[4]=lf[74]; av2[5]=((C_word*)t0)[3]; f_2704(6,av2);}}} /* k5375 in close-output-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* close-output-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5370,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[213]); t5=close_pipe(t2); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5377,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_eqp(C_fix(-1),t5); if(C_truep(t7)){ /* posixunix.scm:647: posix-error */ t8=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t6; av2[2]=lf[8]; av2[3]=lf[213]; av2[4]=lf[214]; av2[5]=t2; f_2704(6,av2);}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k3265 in g289 in k3254 in delete-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3267,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=*((C_word*)lf[75]+1); t3=*((C_word*)lf[75]+1); /* posix-common.scm:440: g299 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[75]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[75]+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_3273,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); /* posix-common.scm:442: directory? */ t3=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k3410 in k3327 in create-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3412,2,av);} 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* posix-common.scm:451: posix-error */ t4=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[8]; av2[3]=lf[79]; av2[4]=lf[80]; av2[5]=((C_word*)t0)[3]; f_2704(6,av2);}}} /* g289 in k3254 in delete-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_3257(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_3257,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3267,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:441: symbolic-link? */ t4=*((C_word*)lf[32]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3254 in delete-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_3256,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3257,a[2]=((C_word*)t0)[2],a[3]=((C_word)li25),tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3276,a[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_3281,a[2]=t5,a[3]=t2,a[4]=((C_word)li26),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_3281(t7,t3,t1);} /* k4380 in doloop683 in tmp12594 in a4357 in a4336 in k4327 in list->c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_4382,2,av);} a=C_alloc(13); t2=C_a_i_bytevector(&a,1,C_fix(3)); t3=stub665(t2,t1); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4388,a[2]=((C_word*)t0)[2],a[3]=((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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_4388(2,av2);}} else{ /* posix-common.scm:713: error */ t6=*((C_word*)lf[133]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[7]; av2[3]=lf[134]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(81,c,8)))){ C_save_and_reclaim((void *)f_6399,2,av);} a=C_alloc(81); 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_6400,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li160),tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6429,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_6437,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)li162),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_6533,a[2]=t11,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6539,a[2]=t8,a[3]=t6,a[4]=t4,a[5]=t9,a[6]=((C_word)li163),tmp=(C_word)a,a+=7,tmp); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6564,a[2]=t6,a[3]=t4,a[4]=t7,a[5]=((C_word)li164),tmp=(C_word)a,a+=6,tmp); t15=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6576,a[2]=t11,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[4],a[7]=((C_word)li165),tmp=(C_word)a,a+=8,tmp); t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6598,a[2]=t8,a[3]=t6,a[4]=t4,a[5]=t9,a[6]=((C_word)li166),tmp=(C_word)a,a+=7,tmp); t17=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6613,a[2]=t6,a[3]=t4,a[4]=t2,a[5]=t9,a[6]=((C_word)li168),tmp=(C_word)a,a+=7,tmp); t18=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6689,a[2]=t6,a[3]=t4,a[4]=t2,a[5]=t9,a[6]=((C_word)li172),tmp=(C_word)a,a+=7,tmp); t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6812,a[2]=t6,a[3]=t4,a[4]=t2,a[5]=((C_word)li173),tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:1173: make-input-port */ t20=*((C_word*)lf[358]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; 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_6393,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_6399,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:1124: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[72]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[72]+1); av2[1]=t5; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} else{ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=((C_word*)t0)[2]; f_6399(2,av2);}}} /* k4386 in k4380 in doloop683 in tmp12594 in a4357 in a4336 in k4327 in list->c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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(6,c,4)))){ C_save_and_reclaim((void *)f_4388,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4391,a[2]=((C_word*)t0)[2],a[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:714: pointer-vector-set! */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#shell-command in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_8088,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8092,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:1603: get-environment-variable */ t3=*((C_word*)lf[435]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[436]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a8801 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8802(C_word c,C_word *av){ C_word tmp; C_word 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_8802,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8806,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:254: ##sys#stat */ f_2722(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[17]);} /* a8807 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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(9,c,2)))){ C_save_and_reclaim((void *)f_8808,4,av);} a=C_alloc(9); t4=C_i_check_number_2(t3,lf[467]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8828,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t6=t5; t7=t2; t8=t3; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8818,a[2]=t6,a[3]=t8,tmp=(C_word)a,a+=4,tmp); if(C_truep(t7)){ t10=C_i_foreign_string_argumentp(t7); /* posix-common.scm:257: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[11]+1); av2[1]=t9; av2[2]=t10; tp(3,av2);}} else{ t10=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=stub119(C_SCHEME_UNDEFINED,C_SCHEME_FALSE,t8); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* k8804 in a8801 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8806(C_word c,C_word *av){ C_word tmp; 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_8806,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_flonum(&a,C_statbuf.st_mtime); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4389 in k4386 in k4380 in doloop683 in tmp12594 in a4357 in a4336 in k4327 in list->c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4391,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_4366(t5,((C_word*)t0)[5],t3,t4);} /* mode in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_3038(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(4,0,3)))){ C_save_and_reclaim_args((void *)trf_3038,4,t1,t2,t3,t4);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3046,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[49]); if(C_truep(t8)){ t9=t2; if(C_truep(t9)){ /* posix-common.scm:363: ##sys#error */ t10=*((C_word*)lf[50]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t5; av2[2]=lf[51]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ /* posix-common.scm:359: ##sys#make-c-string */ {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]=t1; av2[2]=lf[52]; av2[3]=t4; tp(4,av2);}}} else{ /* posix-common.scm:364: ##sys#error */ t9=*((C_word*)lf[50]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t5; av2[2]=lf[53]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}} else{ if(C_truep(t2)){ /* posix-common.scm:359: ##sys#make-c-string */ {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]=t1; av2[2]=lf[54]; av2[3]=t4; tp(4,av2);}} else{ /* posix-common.scm:359: ##sys#make-c-string */ {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]=t1; av2[2]=lf[55]; av2[3]=t4; tp(4,av2);}}}} /* k8826 in a8807 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_8828,2,av);} if(C_truep(C_fixnum_lessp(t1,C_fix(0)))){ /* posix-common.scm:260: posix-error */ t2=lf[0];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[8]; av2[3]=lf[467]; av2[4]=lf[468]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; f_2704(7,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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,c,6)))){ C_save_and_reclaim((void *)f_3033,2,av);} a=C_alloc(53); t2=C_mutate2((C_word*)lf[45]+1 /* (set! file-position ...) */,t1); t3=C_mutate2((C_word*)lf[46]+1 /* (set! fileno/stdin ...) */,C_fix((C_word)STDIN_FILENO)); t4=C_mutate2((C_word*)lf[47]+1 /* (set! fileno/stdout ...) */,C_fix((C_word)STDOUT_FILENO)); t5=C_mutate2((C_word*)lf[48]+1 /* (set! fileno/stderr ...) */,C_fix((C_word)STDERR_FILENO)); 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|2,a[1]=(C_word)f_3038,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t11=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3075,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[60]+1 /* (set! open-input-file* ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3090,a[2]=t9,a[3]=t7,a[4]=((C_word)li19),tmp=(C_word)a,a+=5,tmp)); t13=C_mutate2((C_word*)lf[61]+1 /* (set! open-output-file* ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3104,a[2]=t9,a[3]=t7,a[4]=((C_word)li20),tmp=(C_word)a,a+=5,tmp)); t14=C_mutate2((C_word*)lf[10]+1 /* (set! port->fileno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3118,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[66]+1 /* (set! duplicate-fileno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3166,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[68]+1 /* (set! current-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3193,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[73]+1 /* (set! delete-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3227,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2((C_word*)lf[79]+1 /* (set! create-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3313,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2((C_word*)lf[26]+1 /* (set! directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3430,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2((C_word*)lf[87]+1 /* (set! glob ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3569,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate2((C_word*)lf[76]+1 /* (set! find-files ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3855,a[2]=((C_word)li55),tmp=(C_word)a,a+=3,tmp)); t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3906,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8734,a[2]=((C_word)li261),tmp=(C_word)a,a+=3,tmp); t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8759,a[2]=((C_word)li262),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:564: getter-with-setter */ t25=*((C_word*)lf[450]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t25; av2[1]=t22; av2[2]=t23; av2[3]=t24; av2[4]=lf[463]; ((C_proc)(void*)(*((C_word*)t25+1)))(5,av2);}} /* k8816 in a8807 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8818,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=stub119(C_SCHEME_UNDEFINED,t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6735 in a6716 in a6706 in k6700 in k6691 in a6688 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in ... */ static void C_ccall f_6737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6737,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:1226: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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:1229: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k5304 in open-input-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,5)))){ C_save_and_reclaim((void *)f_5306,2,av);} a=C_alloc(2); t2=open_binary_input_pipe(&a,1,t1); /* posixunix.scm:617: check */ f_5260(((C_word*)t0)[3],lf[206],((C_word*)t0)[4],C_SCHEME_TRUE,t2);} /* k3004 in k2986 in set-file-position! in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3006,2,av);} if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(7)); t3=C_eqp(t2,lf[43]); if(C_truep(t3)){ t4=C_fseek(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t5=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; f_3000(2,av2);}} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_3000(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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_3000(2,av2);}} else{ /* posix-common.scm:326: ##sys#signal-hook */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[13]; av2[3]=lf[41]; av2[4]=lf[44]; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* a6716 in a6706 in k6700 in k6691 in a6688 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in ... */ static void C_ccall f_6717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6717,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:1221: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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_6737,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:1224: fetch */ t7=((C_word*)t0)[6]; f_6437(t7,t6);}} /* k2998 in k2986 in set-file-position! in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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(0,c,6)))){ C_save_and_reclaim((void *)f_3000,2,av);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* posix-common.scm:327: posix-error */ t2=lf[0];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[8]; av2[3]=lf[41]; av2[4]=lf[42]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; f_2704(7,av2);}}} /* check in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_3075(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_3075,5,t1,t2,t3,t4,t5);} a=C_alloc(4); if(C_truep(C_null_pointerp(t5))){ /* posix-common.scm:370: posix-error */ t6=lf[0];{ C_word av2[6]; av2[0]=t6; av2[1]=t1; av2[2]=lf[8]; av2[3]=t2; av2[4]=lf[56]; av2[5]=t3; f_2704(6,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3088,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:371: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[57]+1); av2[1]=t6; av2[2]=t4; av2[3]=*((C_word*)lf[58]+1); av2[4]=lf[59]; av2[5]=lf[43]; tp(6,av2);}}} /* k5327 in open-output-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5329,2,av);} /* posixunix.scm:628: check */ f_5260(((C_word*)t0)[3],lf[210],((C_word*)t0)[4],C_SCHEME_FALSE,t1);} /* a5393 in k5387 in call-with-input-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_5394,2,av);} /* posixunix.scm:654: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6700 in k6691 in a6688 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in ... */ static void C_fcall f_6702(C_word 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,5)))){ C_save_and_reclaim_args((void *)trf_6702,2,t0,t1);} a=C_alloc(15); 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_6707,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)li170),tmp=(C_word)a,a+=8,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6763,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word)li171),tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1212: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[7]; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* a6706 in k6700 in k6691 in a6688 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in ... */ static void C_ccall f_6707(C_word c,C_word *av){ C_word tmp; C_word t0=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_6707,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_6717,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li169),tmp=(C_word)a,a+=8,tmp); /* posixunix.scm:1214: ##sys#scan-buffer-line */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[356]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[356]+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);}} /* open-input-file* in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_3090,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=C_i_check_exact_2(t2,lf[60]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3102,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:377: mode */ f_3038(t5,C_SCHEME_TRUE,t3,lf[60]);} /* doloop928 in k4842 in k4834 in k4831 in k4828 in file-select in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static C_word C_fcall f_5123(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_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=stub937(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=stub937(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;}}} /* k3044 in mode in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3046,2,av);} /* posix-common.scm:359: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* a8030 in process-wait in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8031(C_word c,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_8031,2,av);} /* posixunix.scm:1581: ##sys#process-wait */ t2=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6322 in file-link in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6324,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6328,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]); /* posixunix.scm:1112: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=stub1443(C_SCHEME_UNDEFINED,t2,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6326 in k6322 in file-link in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6328,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=stub1443(C_SCHEME_UNDEFINED,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* process-signal in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_8063,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_8067,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_8067(t6,C_u_i_car(t5));} else{ t5=t4; f_8067(t5,C_fix((C_word)SIGTERM));}} /* k8065 in process-signal in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_8067(C_word t0,C_word 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,6)))){ C_save_and_reclaim_args((void *)trf_8067,2,t0,t1);} t2=C_i_check_exact_2(((C_word*)t0)[2],lf[431]); t3=C_i_check_exact_2(t1,lf[431]); t4=C_kill(((C_word*)t0)[2],t1); t5=C_eqp(t4,C_fix(-1)); if(C_truep(t5)){ /* posixunix.scm:1600: posix-error */ t6=lf[0];{ C_word av2[7]; av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=lf[127]; av2[3]=lf[431]; av2[4]=lf[432]; av2[5]=((C_word*)t0)[2]; av2[6]=t1; f_2704(7,av2);}} else{ t6=C_SCHEME_UNDEFINED; t7=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* a3595 in conc-loop in glob in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(9,c,4)))){ C_save_and_reclaim((void *)f_3596,5,av);} a=C_alloc(9); t5=t2; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3600,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3670,a[2]=t6,tmp=(C_word)a,a+=3,tmp); if(C_truep(t3)){ t8=t3; /* posix-common.scm:504: make-pathname */ t9=*((C_word*)lf[83]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t7; av2[2]=C_SCHEME_FALSE; av2[3]=t8; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ /* posix-common.scm:504: make-pathname */ t8=*((C_word*)lf[83]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=C_SCHEME_FALSE; av2[3]=lf[92]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} /* a3589 in conc-loop in glob in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3590(C_word c,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_3590,2,av);} /* posix-common.scm:503: decompose-pathname */ t2=*((C_word*)lf[82]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4671 in k4668 in k4655 in file-open in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4673,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4668 in k4655 in file-open in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,7)))){ C_save_and_reclaim((void *)f_4670,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_4673,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:480: posix-error */ t5=lf[0];{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t5; av2[1]=t3; av2[2]=lf[8]; av2[3]=lf[183]; av2[4]=lf[184]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[2]; av2[7]=((C_word*)t0)[3]; f_2704(8,av2);}} else{ t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* file-close in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_4685,3,av);} a=C_alloc(7); t3=C_i_check_exact_2(t2,lf[185]); 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_4694,a[2]=t2,a[3]=t5,a[4]=((C_word)li96),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t1; f_4694(2,av2);}} /* conc-loop in glob in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_3575(C_word t0,C_word 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_3575,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_3590,a[2]=t4,a[3]=((C_word)li34),tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3596,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li37),tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:502: ##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);}}} /* loop in file-close in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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!=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_4694,2,av);} t2=C_close(((C_word*)t0)[2]); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ t3=C_fix((C_word)errno); if(C_truep(C_i_eqvp(t3,C_fix((C_word)EINTR)))){ /* posixunix.scm:489: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[186]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[186]+1); av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[3])[1]; tp(3,av2);}} else{ /* posixunix.scm:491: posix-error */ t4=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t1; av2[2]=lf[8]; av2[3]=lf[185]; av2[4]=lf[187]; av2[5]=((C_word*)t0)[2]; f_2704(6,av2);}}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* file-control in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4620(C_word c,C_word *av){ C_word tmp; C_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,6)))){ C_save_and_reclaim((void*)f_4620,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_check_exact_2(t2,lf[181]); t8=C_i_check_exact_2(t3,lf[181]); t9=t2; t10=t3; t11=C_i_foreign_fixnum_argumentp(t9); t12=C_i_foreign_fixnum_argumentp(t10); t13=C_i_foreign_integer_argumentp(t6); t14=stub837(C_SCHEME_UNDEFINED,t11,t12,t13); t15=C_eqp(t14,C_fix(-1)); if(C_truep(t15)){ /* posixunix.scm:468: posix-error */ t16=lf[0];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t16; av2[1]=t1; av2[2]=lf[8]; av2[3]=lf[181]; av2[4]=lf[182]; av2[5]=t2; av2[6]=t3; f_2704(7,av2);}} else{ t16=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}} /* regular-file? in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_2911,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2919,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:284: file-type */ t4=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2917 in regular-file? in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2919,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(lf[24],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4655 in file-open in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_4657(C_word t0,C_word 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_4657,2,t0,t1);} a=C_alloc(6); t2=t1; t3=C_i_check_string_2(((C_word*)t0)[2],lf[183]); t4=C_i_check_exact_2(((C_word*)t0)[3],lf[183]); t5=C_i_check_exact_2(t2,lf[183]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4670,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:478: ##sys#make-c-string */ {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]=t6; av2[2]=((C_word*)t0)[2]; av2[3]=lf[183]; tp(4,av2);}} /* file-open in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_4653,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_4657,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_4657(t7,C_u_i_car(t6));} else{ t6=t5; f_4657(t6,((C_word*)t0)[2]);}} /* k6361 in file-link in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6363,2,av);} if(C_truep(C_fixnum_lessp(t1,C_fix(0)))){ /* posixunix.scm:1117: posix-error */ t2=lf[0];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[8]; av2[3]=lf[343]; av2[4]=lf[344]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; f_2704(7,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* ##sys#custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6365(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6365,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[346]+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_6393,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:1122: ##sys#file-nonblocking! */ t26=*((C_word*)lf[143]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t26; av2[1]=C_SCHEME_UNDEFINED; f_6393(2,av2);}}} /* check in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_5260(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_5260,5,t1,t2,t3,t4,t5);} a=C_alloc(4); if(C_truep(C_null_pointerp(t5))){ /* posixunix.scm:609: posix-error */ t6=lf[0];{ C_word av2[6]; av2[0]=t6; av2[1]=t1; av2[2]=lf[8]; av2[3]=t2; av2[4]=lf[204]; av2[5]=t3; f_2704(6,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5273,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:610: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[57]+1); av2[1]=t6; av2[2]=t4; av2[3]=*((C_word*)lf[58]+1); av2[4]=lf[205]; av2[5]=lf[43]; tp(6,av2);}}} /* k3507 in k3497 in k3485 in loop in k3457 in k3453 in k3450 in k3447 in k3432 in directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3509,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* file-link in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_6343,4,av);} a=C_alloc(9); t4=C_i_check_string_2(t2,lf[342]); t5=C_i_check_string_2(t3,lf[342]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6363,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_6324,a[2]=t7,a[3]=t9,tmp=(C_word)a,a+=4,tmp); if(C_truep(t8)){ t11=C_i_foreign_string_argumentp(t8); /* posixunix.scm:1112: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[11]+1); av2[1]=t10; av2[2]=t11; tp(3,av2);}} else{ t11=t10;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_SCHEME_FALSE; f_6324(2,av2);}}} /* k5231 in change-directory* in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5233,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* symbolic-link? in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_2921,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2929,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:287: file-type */ t4=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2927 in symbolic-link? in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2929,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(lf[25],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* change-directory* in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_5226,3,av);} a=C_alloc(4); t3=C_i_check_exact_2(t2,lf[202]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5233,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_fchdir(t2); t6=C_eqp(C_fix(0),t5); if(C_truep(t6)){ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ /* posixunix.scm:598: posix-error */ t7=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t4; av2[2]=lf[8]; av2[3]=lf[202]; av2[4]=lf[203]; av2[5]=t2; f_2704(6,av2);}}} /* k5215 in k5212 in change-directory in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5217,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5212 in change-directory in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; 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_5214,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5217,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(C_fix(0),t3); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* posixunix.scm:592: posix-error */ t5=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t2; av2[2]=lf[8]; av2[3]=lf[69]; av2[4]=lf[201]; av2[5]=((C_word*)t0)[3]; f_2704(6,av2);}}} /* character-device? in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_2941,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2949,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:293: file-type */ t4=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2947 in character-device? in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_2949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2949,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(lf[27],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3447 in k3432 in directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3449,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3452,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); /* posix-common.scm:471: ##sys#make-pointer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[86]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[86]+1); av2[1]=t3; tp(2,av2);}} /* block-device? in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_2931,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2939,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:290: file-type */ t4=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2937 in block-device? in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2939,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(lf[28],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8257 in spawn in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_8259,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8262,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:1677: needed-pipe */ f_8194(t3,((C_word*)t0)[9]);} /* k3432 in directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_3434,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[26]); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3449,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[72]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[72]+1); av2[1]=t11; av2[2]=C_fix(256); av2[3]=C_make_character(32); tp(4,av2);}} /* socket? in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_2961,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2969,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:299: file-type */ t4=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* spawn in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_8255(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_8255,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(12); t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8259,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:1676: needed-pipe */ f_8194(t8,t6);} /* directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; 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_3430,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_3434,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ /* posix-common.scm:468: current-directory */ t5=*((C_word*)lf[68]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_car(t3); f_3434(2,av2);}}} /* k2967 in socket? in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_2969(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2969,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(lf[30],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7789 in terminal-name in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_7791,2,av);} a=C_alloc(5); t2=C_C_fileno(((C_word*)t0)[2]); t3=((C_word*)t0)[3]; t4=C_a_i_bytevector(&a,1,C_fix(3)); t5=C_i_foreign_fixnum_argumentp(t2); t6=stub1854(t4,t5); /* posixunix.scm:1511: ##sys#peek-nonnull-c-string */ t7=*((C_word*)lf[260]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* swapped-ends in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static C_word C_fcall f_8241(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);}} /* a8277 in k8263 in k8260 in k8257 in spawn in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 in ... */ static void C_ccall f_8278(C_word c,C_word *av){ 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_8278,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8282,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:1683: connect-child */ f_8226(t2,((C_word*)t0)[11],((C_word*)t0)[12],*((C_word*)lf[46]+1));} /* k3453 in k3450 in k3447 in k3432 in directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3455,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3459,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); /* posix-common.scm:475: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[26]; tp(4,av2);}} /* k3457 in k3453 in k3450 in k3447 in k3432 in directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_3459,2,av);} a=C_alloc(10); t2=C_opendir(t1,((C_word*)t0)[2]); if(C_truep(C_null_pointerp(((C_word*)t0)[2]))){ /* posix-common.scm:477: posix-error */ t3=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[8]; av2[3]=lf[26]; av2[4]=lf[85]; av2[5]=((C_word*)t0)[4]; f_2704(6,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|7,a[1]=(C_word)f_3473,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)li32),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_3473(t6,((C_word*)t0)[3]);}} /* a6762 in k6700 in k6691 in a6688 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 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=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_6763,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_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* k3450 in k3447 in k3432 in directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3452,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3455,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); /* posix-common.scm:472: ##sys#make-pointer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[86]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[86]+1); av2[1]=t3; tp(2,av2);}} /* k2986 in set-file-position! in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_2988(C_word t0,C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_2988,2,t0,t1);} a=C_alloc(11); t2=t1; t3=C_i_check_exact_2(((C_word*)t0)[2],lf[41]); t4=C_i_check_exact_2(t2,lf[41]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3000,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); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3006,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:320: port? */ t7=*((C_word*)lf[15]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k8274 in k8263 in k8260 in k8257 in spawn in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 in ... */ static void C_ccall f_8276(C_word c,C_word *av){ C_word tmp; C_word 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_8276,2,av);} /* posixunix.scm:1679: values */{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* set-file-position! in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_2984,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_2988,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t4))){ t6=t4; t7=t5; f_2988(t7,C_u_i_car(t6));} else{ t6=t5; f_2988(t6,C_fix((C_word)SEEK_SET));}} /* directory? in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_2971,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2979,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:302: file-type */ t4=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2977 in directory? in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2979,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(lf[26],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8263 in k8260 in k8257 in spawn in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_8265,2,av);} a=C_alloc(23); t2=t1; t3=( /* posixunix.scm:1680: swapped-ends */ f_8241(C_a_i(&a,3),((C_word*)t0)[3]) ); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8276,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_8278,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)li232),tmp=(C_word)a,a+=14,tmp); /* posixunix.scm:1681: process-fork */ t7=*((C_word*)lf[423]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k8260 in k8257 in spawn in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_8262,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,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],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:1678: needed-pipe */ f_8194(t3,((C_word*)t0)[9]);} /* connect-parent in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_8214(C_word t1,C_word 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_8214,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_8225,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1661: file-close */ t9=*((C_word*)lf[185]+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);}}} /* a8208 in needed-pipe in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_8209,4,av);} a=C_alloc(3); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a8202 in needed-pipe in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_8203,2,av);} /* posixunix.scm:1656: create-pipe */ t2=*((C_word*)lf[221]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a8574 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8575,3,av);} a=C_alloc(8); t3=C_i_check_exact_2(t2,lf[329]); t4=C_getpgid(t2); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8582,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnum_lessp(t4,C_fix(0)))){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8588,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1054: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[5]+1); av2[1]=t6; tp(2,av2);}} else{ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k5816 in loop in k5806 in k5802 in k5789 in group-information in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5818,2,av);} a=C_alloc(4); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5828,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)); /* posixunix.scm:915: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_5814(t5,t3,t4);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop in k5806 in k5802 in k5789 in group-information in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_5814(C_word t0,C_word t1,C_word 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_5814,3,t0,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5818,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],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=stub1249(t5,t6); /* posixunix.scm:898: ##sys#peek-c-string */ t8=*((C_word*)lf[4]+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);}} /* k5810 in k5806 in k5802 in k5789 in group-information in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5812(C_word c,C_word *av){ C_word tmp; C_word 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_5812,2,av);} /* posixunix.scm:901: g1268 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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_fix((C_word)C_group->gr_gid); av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* a8592 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_8593,4,av);} a=C_alloc(5); t4=C_i_check_exact_2(t2,lf[448]); t5=C_i_check_exact_2(t3,lf[448]); t6=C_setpgid(t2,t3); if(C_truep(C_fixnum_lessp(t6,C_fix(0)))){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8609,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1061: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[5]+1); av2[1]=t7; tp(2,av2);}} else{ t7=C_SCHEME_UNDEFINED; t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* local-time->seconds in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; 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_4017,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4021,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_3908(t3,lf[111],t2);} /* k5806 in k5802 in k5789 in group-information in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_5808,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5812,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_5814,a[2]=t5,a[3]=((C_word)li139),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_5814(t7,t3,C_fix(0));} /* k5802 in k5789 in group-information in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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(8,c,3)))){ C_save_and_reclaim((void *)f_5804,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5808,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[260]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_group->gr_passwd); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k4019 in local-time->seconds in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4021,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4025,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[72]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[72]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_make_character(0); tp(4,av2);}} /* k4023 in k4019 in local-time->seconds in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_4025,2,av);} a=C_alloc(9); t2=C_a_mktime(&a,2,((C_word*)t0)[2],t1); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4031,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:605: fp= */ t4=*((C_word*)lf[113]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[114]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* f_2951 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_2951,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2959,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:296: file-type */ t4=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2957 */ static void C_ccall f_2959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2959,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(lf[29],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4029 in k4023 in k4019 in local-time->seconds in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4031,2,av);} if(C_truep(t1)){ /* posix-common.scm:606: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[111]; av2[3]=lf[112]; 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8567 in set-root-directory! in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_8569,2,av);} if(C_truep(C_fixnum_lessp(t1,C_fix(0)))){ /* posixunix.scm:1751: posix-error */ t2=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[8]; av2[3]=lf[445]; av2[4]=lf[446]; av2[5]=((C_word*)t0)[3]; f_2704(6,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* close-input-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_5355,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_TRUE,C_SCHEME_TRUE,lf[211]); t5=close_pipe(t2); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5362,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_eqp(C_fix(-1),t5); if(C_truep(t7)){ /* posixunix.scm:640: posix-error */ t8=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t6; av2[2]=lf[8]; av2[3]=lf[211]; av2[4]=lf[212]; av2[5]=t2; f_2704(6,av2);}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k6502 in k6493 in loop in fetch in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6504,2,av);} t2=C_mutate2(((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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* set-root-directory! in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8552,3,av);} a=C_alloc(7); t3=C_i_check_string_2(t2,lf[445]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8569,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_8544,a[2]=t5,tmp=(C_word)a,a+=3,tmp); if(C_truep(t6)){ t8=C_i_foreign_string_argumentp(t6); /* posixunix.scm:1747: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[11]+1); av2[1]=t7; av2[2]=t8; tp(3,av2);}} else{ t8=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=stub2155(C_SCHEME_UNDEFINED,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* current-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3193(C_word c,C_word *av){ C_word tmp; 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_3193,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; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_car(t2)); if(C_truep(t4)){ /* posix-common.scm:416: change-directory */ t5=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(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|2,a[1]=(C_word)f_3206,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[72]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[72]+1); av2[1]=t5; av2[2]=C_fix(1024); av2[3]=C_make_character(32); tp(4,av2);}}} /* k8586 in a8574 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8588,2,av);} /* posixunix.scm:1055: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[329]; av2[3]=lf[447]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* time->string in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4062(C_word c,C_word *av){ C_word tmp; C_word 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_4062,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_4069,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_3908(t7,lf[115],t2);} /* k8286 in k8283 in k8280 in a8277 in k8263 in k8260 in k8257 in spawn in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8288,2,av);} /* posixunix.scm:1686: process-execute */ t2=*((C_word*)lf[427]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8580 in a8574 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8582,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* file-owner in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_2806(C_word c,C_word *av){ C_word tmp; C_word 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_2806,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2810,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:267: ##sys#stat */ f_2722(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[20]);} /* k2802 in file-change-time in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_2804,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_flonum(&a,C_statbuf.st_ctime); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* file-change-time in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_2800(C_word c,C_word *av){ C_word tmp; C_word 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_2800,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2804,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:266: ##sys#stat */ f_2722(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[19]);} /* k8283 in k8280 in a8277 in k8263 in k8260 in k8257 in spawn in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in ... */ static void C_ccall f_8285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8285,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8288,a[2]=((C_word*)t0)[2],a[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:1685: swapped-ends */ f_8241(C_a_i(&a,3),((C_word*)t0)[7]) ); /* posixunix.scm:1685: connect-child */ f_8226(t2,t3,((C_word*)t0)[9],*((C_word*)lf[48]+1));} /* k8280 in a8277 in k8263 in k8260 in k8257 in spawn in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_8282,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8285,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:1684: swapped-ends */ f_8241(C_a_i(&a,3),((C_word*)t0)[10]) ); /* posixunix.scm:1684: connect-child */ f_8226(t2,t3,((C_word*)t0)[11],*((C_word*)lf[47]+1));} /* k4067 in time->string in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_4069,2,av);} a=C_alloc(9); if(C_truep(((C_word*)t0)[2])){ t2=C_i_check_string_2(((C_word*)t0)[2],lf[115]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4078,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_4088,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[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=lf[115]; tp(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4095,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_4116,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[72]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[72]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=C_make_character(0); tp(4,av2);}}} /* k5892 in loop in k5872 in k5869 in k5866 in get-groups in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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(3,c,1)))){ C_save_and_reclaim((void *)f_5894,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k4076 in k4067 in time->string in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4078,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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[50]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[115]; av2[3]=lf[116]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* a6538 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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!=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_6539,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6543,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:1176: fetch */ t3=((C_word*)t0)[5]; f_6437(t3,t2);} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6543(2,av2);}}} /* k6535 in k6531 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6537,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6531 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6533,2,av);} a=C_alloc(4); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6537,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1246: set-port-name! */ t4=*((C_word*)lf[354]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* open-output-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_5315,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[210]); t5=C_i_pairp(t3); t6=(C_truep(t5)?C_slot(t3,C_fix(0)):lf[207]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5329,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t8=C_eqp(t6,lf[207]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5336,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:632: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t9; av2[2]=t2; av2[3]=lf[210]; tp(4,av2);}} else{ t9=C_eqp(t6,lf[208]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5346,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:633: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t10; av2[2]=t2; av2[3]=lf[210]; tp(4,av2);}} else{ /* posixunix.scm:606: ##sys#error */ t10=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t7; av2[2]=lf[209]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}} /* k4090 in k4086 in k4067 in time->string in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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(5,c,3)))){ C_save_and_reclaim((void *)f_4092,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=stub582(t3,t2,((C_word*)t0)[3],t4); /* posix-common.scm:611: ##sys#peek-c-string */ t6=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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=stub582(t3,t2,((C_word*)t0)[3],C_SCHEME_FALSE); /* posix-common.scm:611: ##sys#peek-c-string */ t5=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k4093 in k4067 in time->string in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4095,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[70]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[70]+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[50]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[115]; av2[3]=lf[117]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k4086 in k4067 in time->string in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4088,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4092,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[72]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[72]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=C_make_character(0); tp(4,av2);}} /* k6541 in a6538 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 in ... */ static void C_ccall f_6543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6543,2,av);} t2=( /* posixunix.scm:1177: peek */ f_6429(((C_word*)t0)[2]) ); if(C_truep(C_eofp(t2))){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k5344 in open-output-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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(2,c,5)))){ C_save_and_reclaim((void *)f_5346,2,av);} a=C_alloc(2); t2=open_binary_output_pipe(&a,1,t1); /* posixunix.scm:628: check */ f_5260(((C_word*)t0)[3],lf[210],((C_word*)t0)[4],C_SCHEME_FALSE,t2);} /* k5872 in k5869 in k5866 in get-groups in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_5874,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_5879,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li141),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_5879(t5,((C_word*)t0)[3],C_fix(0));} /* k5869 in k5866 in get-groups in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_5871,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5874,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t4=stub1276(C_SCHEME_UNDEFINED,t3); if(C_truep(C_fixnum_lessp(t4,C_fix(0)))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5904,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:937: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[5]+1); av2[1]=t5; tp(2,av2);}} else{ t5=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_5874(2,av2);}}} /* loop in k5872 in k5869 in k5866 in get-groups in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_5879,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_get_gid(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5894,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_fixnum_plus(t2,C_fix(1)); /* posixunix.scm:942: loop */ t7=t4; t8=t5; t1=t7; t2=t8; goto loop;}} /* k5334 in open-output-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5336(C_word c,C_word *av){ C_word tmp; C_word t0=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_5336,2,av);} a=C_alloc(2); t2=open_text_output_pipe(&a,1,t1); /* posixunix.scm:628: check */ f_5260(((C_word*)t0)[3],lf[210],((C_word*)t0)[4],C_SCHEME_FALSE,t2);} /* tmp12594 in a4357 in a4336 in k4327 in list->c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_4360(C_word 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_4360,2,t0,t1);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4364,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_4366,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)li74),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_4366(t6,t2,((C_word*)t0)[6],C_fix(0));} /* k4362 in tmp12594 in a4357 in a4336 in k4327 in list->c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4364,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* get-groups in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_5864,2,av);} a=C_alloc(7); t2=C_fix((C_word)getgroups(0, C_groups)); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5868,a[2]=t2,a[3]=t1,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_5923,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:932: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[5]+1); av2[1]=t4; tp(2,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5868(2,av2);}}} /* doloop683 in tmp12594 in a4357 in a4336 in k4327 in list->c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_4366(C_word t0,C_word t1,C_word 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_4366,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_4382,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_4407,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:711: 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);}}} /* k5866 in get-groups in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_5868,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5871,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); if(C_truep(stub1281(C_SCHEME_UNDEFINED,t3))){ t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5871(2,av2);}} else{ /* posixunix.scm:935: ##sys#error */ t4=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=lf[272]; av2[3]=lf[274]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k5360 in close-input-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5362,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a6575 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6576(C_word c,C_word *av){ C_word tmp; 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_6576,2,av);} a=C_alloc(4); if(C_truep(C_slot(((C_word*)((C_word*)t0)[2])[1],C_fix(8)))){ t2=C_SCHEME_UNDEFINED; t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_6586,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t3=C_close(((C_word*)t0)[4]); if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ /* posixunix.scm:1187: posix-error */ t4=lf[0];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t2; av2[2]=lf[8]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[355]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[6]; f_2704(7,av2);}} else{ /* posixunix.scm:1188: on-close */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}}} /* k7171 in file-truncate in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7173,2,av);} t2=C_truncate(t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3]; f_7159(t3,C_fixnum_lessp(t2,C_fix(0)));} /* a4342 in a4336 in k4327 in list->c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_4343,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4349,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li72),tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:696: k674 */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k5840 in group-information in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5842(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5842,2,av);} t2=((C_word*)t0)[2]; f_5791(t2,C_getgrnam(t1));} /* a4348 in a4342 in a4336 in k4327 in list->c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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!=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_4349,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4353,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:702: free-c-string-buffer */ f_4440(t2,((C_word*)t0)[3]);} /* k6584 in a6575 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6586,2,av);} /* posixunix.scm:1188: on-close */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k2814 in file-permissions in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_2816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2816,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_mode); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* file-size in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_2818,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2822,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:269: ##sys#stat */ f_2722(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[22]);} /* file-permissions in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_2812,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2816,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:268: ##sys#stat */ f_2722(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[21]);} /* k4511 in k4508 in a4505 in a4499 in a4493 in k4484 in k4478 in call-with-exec-args in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4513,2,av);} /* posix-common.scm:738: signal */ t2=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2808 in file-owner in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_2810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2810,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k4508 in a4505 in a4499 in a4493 in k4484 in k4478 in call-with-exec-args in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4510,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4513,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:737: free-c-string-buffer */ f_4440(t2,((C_word*)((C_word*)t0)[4])[1]);} else{ /* posix-common.scm:738: signal */ t3=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* file-truncate in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; 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,4)))){ C_save_and_reclaim((void *)f_7149,4,av);} a=C_alloc(12); t4=C_i_check_number_2(t3,lf[363]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7159,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7166,a[2]=t5,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_stringp(t2))){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7173,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1310: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[11]+1); av2[1]=t7; av2[2]=t2; av2[3]=lf[363]; tp(4,av2);}} else{ if(C_truep(C_fixnump(t2))){ t7=C_ftruncate(t2,t3); t8=t5; f_7159(t8,C_fixnum_lessp(t7,C_fix(0)));} else{ /* posixunix.scm:1312: ##sys#error */ t7=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=lf[363]; av2[3]=lf[365]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}}} /* k4351 in a4348 in a4342 in a4336 in k4327 in list->c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4353(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4353,2,av);} /* posix-common.scm:702: signal */ t2=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4357 in a4336 in k4327 in list->c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_4358,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4360,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li75),tmp=(C_word)a,a+=8,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4417,a[2]=((C_word*)t0)[7],a[3]=((C_word)li77),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4434,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* tmp12594 */ t5=t2; f_4360(t5,t4);} /* a4520 in a4493 in k4484 in k4478 in call-with-exec-args in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4521(C_word c,C_word *av){ C_word tmp; 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_4521,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4527,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word)li86),tmp=(C_word)a,a+=10,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4544,a[2]=((C_word*)t0)[9],a[3]=((C_word)li88),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:726: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a4526 in a4520 in a4493 in k4484 in k4478 in call-with-exec-args in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; 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_4527,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4531,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|3,a[1]=(C_word)f_4542,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:742: list->c-string-buffer */ f_4321(t3,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[6]);} else{ t3=t2; f_4531(t3,C_SCHEME_UNDEFINED);}} /* k7157 in file-truncate in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_7159(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_7159,2,t0,t1);} if(C_truep(t1)){ /* posixunix.scm:1314: posix-error */ t2=lf[0];{ C_word av2[7]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[8]; av2[3]=lf[363]; av2[4]=lf[364]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; f_2704(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);}}} /* list->c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_4321(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(11,0,3)))){ C_save_and_reclaim_args((void *)trf_4321,4,t1,t2,t3,t4);} a=C_alloc(11); 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_4329,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_plus(&a,2,t7,C_fix(1)); /* posix-common.scm:698: make-pointer-vector */ t10=*((C_word*)lf[137]+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);}} /* k5826 in k5816 in loop in k5806 in k5802 in k5789 in group-information in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 in ... */ static void C_ccall f_5828(C_word c,C_word *av){ C_word tmp; 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_5828,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k4327 in list->c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4329,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4332,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4337,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)li79),tmp=(C_word)a,a+=8,tmp); /* posix-common.scm:696: call-with-current-continuation */ t5=*((C_word*)lf[136]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* a6563 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_6564,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* posixunix.scm:1182: ready? */ t3=((C_word*)t0)[4]; f_6400(t3,t1);}} /* k8235 in connect-child in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_8237,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; /* Re-use our own argvector */ 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_8153,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1641: duplicate-fileno */ t7=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k4330 in k4327 in list->c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4332,2,av);} /* posix-common.scm:696: g678 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a4336 in k4327 in list->c-string-buffer in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_4337,3,av);} a=C_alloc(14); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4343,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li73),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4358,a[2]=((C_word*)t0)[2],a[3]=((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)li78),tmp=(C_word)a,a+=9,tmp); /* posix-common.scm:696: with-exception-handler */ t5=*((C_word*)lf[135]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2820 in file-size in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_2822(C_word c,C_word *av){ C_word tmp; 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_2822,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_double_to_num(&a,C_statbuf.st_size); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* file-type in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_2824,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_2843,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:272: ##sys#stat */ f_2722(t12,t2,t5,t9,lf[23]);} /* k8223 in connect-parent in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8225,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* connect-child in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_8226(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_8226,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_8237,a[2]=t1,a[3]=t6,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1667: file-close */ t10=*((C_word*)lf[185]+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);}}} /* setup in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_7184(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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_7184,4,t1,t2,t3,t4);} a=C_alloc(8); 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=C_i_check_number_2(t7,t4); t20=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7205,a[2]=t2,a[3]=t7,a[4]=t13,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t21=C_eqp(C_SCHEME_TRUE,((C_word*)t13)[1]); if(C_truep(t21)){ t22=C_set_block_item(t13,0,C_fix(0)); t23=t20; f_7205(t23,t22);} else{ t22=t20; f_7205(t22,C_i_check_number_2(((C_word*)t13)[1],t4));}} /* a6597 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6598(C_word c,C_word *av){ 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_6598,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6602,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:1191: fetch */ t3=((C_word*)t0)[5]; f_6437(t3,t2);} else{ /* posixunix.scm:1192: peek */ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( /* posixunix.scm:1192: peek */ f_6429(((C_word*)t0)[2]) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7164 in file-truncate in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7166,2,av);} t2=((C_word*)t0)[2]; f_7159(t2,C_fixnum_lessp(t1,C_fix(0)));} /* glob in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_3569,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_3575,a[2]=t4,a[3]=((C_word)li38),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_3575(t6,t1,t2);} /* k3598 in a3595 in conc-loop in glob in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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(7,c,3)))){ C_save_and_reclaim((void *)f_3600,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3607,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)[4])){ /* posix-common.scm:505: directory */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* posix-common.scm:505: directory */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[90]; av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k4805 in k4799 in file-mkstemp in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; 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_4807,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4814,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:525: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[70]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[70]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(0); av2[4]=t3; tp(5,av2);}} /* k4799 in file-mkstemp in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_4801,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_4807,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:524: posix-error */ t8=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t6; av2[2]=lf[8]; av2[3]=lf[194]; av2[4]=lf[195]; av2[5]=((C_word*)t0)[3]; f_2704(6,av2);}} else{ t8=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_4807(2,av2);}}} /* loop in k3605 in k3598 in a3595 in conc-loop in glob in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_3609(C_word t0,C_word t1,C_word 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_3609,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t3=C_i_cdr(((C_word*)t0)[2]); /* posix-common.scm:506: conc-loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_3575(t4,t1,t3);} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3626,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); t4=C_i_car(t2); /* posix-common.scm:507: irregex-match */ t5=*((C_word*)lf[89]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k3605 in k3598 in a3595 in conc-loop in glob in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_3607,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_3609,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)li36),tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_3609(t5,((C_word*)t0)[6],t1);} /* k4812 in k4805 in k4799 in file-mkstemp in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4814,2,av);} /* posixunix.scm:525: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3648 in g422 in k3624 in loop in k3605 in k3598 in a3595 in conc-loop in glob in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3650,2,av);} /* posix-common.scm:510: make-pathname */ t2=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4834 in k4831 in k4828 in file-select in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_4836(C_word t0,C_word t1){ C_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_4836,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_4844,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t2,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=C_fix((C_word)sizeof(struct pollfd)); t9=C_fixnum_times(t6,t8); /* posixunix.scm:543: ##sys#make-blob */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[200]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[200]+1); av2[1]=t7; av2[2]=t9; tp(3,av2);}} /* k3640 in k3636 in g422 in k3624 in loop in k3605 in k3598 in a3595 in conc-loop in glob in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3642,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k8542 in set-root-directory! in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8544,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=stub2155(C_SCHEME_UNDEFINED,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4842 in k4834 in k4831 in k4828 in file-select in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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,3)))){ C_save_and_reclaim((void *)f_4844,2,av);} a=C_alloc(21); t2=t1; t3=(C_truep(((C_word*)t0)[2])?C_i_check_number(((C_word*)t0)[2]):C_SCHEME_UNDEFINED); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5123,a[2]=t2,a[3]=((C_word)li101),tmp=(C_word)a,a+=4,tmp); t5=( f_5123(t4,C_fix(0),((C_word*)t0)[3]) ); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5081,a[2]=t2,a[3]=((C_word)li102),tmp=(C_word)a,a+=4,tmp); t7=( f_5081(t6,((C_word*)t0)[4],((C_word*)t0)[5]) ); t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5068,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)[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)[2])){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5079,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:559: max */ t10=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t9; av2[2]=C_fix(0); av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t9=t8; f_5068(t9,C_fix(-1));}} /* k2841 in file-type in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2843,2,av);} if(C_truep(t1)){ t2=C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_stat_type); if(C_truep(C_i_eqvp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFREG)))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[24]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_eqvp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFLNK)))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[25]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_eqvp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFDIR)))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[26]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_eqvp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFCHR)))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[27]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_eqvp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFBLK)))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[28]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_eqvp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFIFO)))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[29]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_eqvp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFSOCK)); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep(t3)?lf[30]:lf[24]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}}}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3668 in a3595 in conc-loop in glob in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3670,2,av);} /* posix-common.scm:504: ##sys#glob->regexp */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[91]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[91]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* open-output-file* in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 +5,c,4)))){ C_save_and_reclaim((void*)f_3104,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=C_i_check_exact_2(t2,lf[61]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3116,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:381: mode */ f_3038(t5,C_SCHEME_FALSE,t3,lf[61]);} /* k3100 in open-input-file* in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,5)))){ C_save_and_reclaim((void *)f_3102,2,av);} a=C_alloc(2); t2=C_fdopen(&a,2,((C_word*)t0)[2],t1); /* posix-common.scm:377: check */ f_3075(((C_word*)t0)[4],lf[60],((C_word*)t0)[2],C_SCHEME_TRUE,t2);} /* k3132 in port->fileno in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3134,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_slot(t1,C_fix(0)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5902 in k5869 in k5866 in get-groups in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5904,2,av);} /* posixunix.scm:938: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[272]; av2[3]=lf[273]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* loop in k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_3695(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_3695,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_3708,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); /* posix-common.scm:535: make-pathname */ t8=*((C_word*)lf[83]+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);}}} /* k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3693,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_3695,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)li43),tmp=(C_word)a,a+=10,tmp)); t5=((C_word*)t3)[1]; f_3695(t5,((C_word*)t0)[8],((C_word*)t0)[9],t1,((C_word*)t0)[10]);} /* k7533 in unmap-file-from-memory in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_7535(C_word t0,C_word t1){ C_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(0,0,6)))){ C_save_and_reclaim_args((void *)trf_7535,2,t0,t1);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=(C_truep(t2)?C_i_foreign_pointer_argumentp(t2):C_SCHEME_FALSE); t4=C_i_foreign_integer_argumentp(t1); t5=stub1761(C_SCHEME_UNDEFINED,t3,t4); t6=C_eqp(C_fix(0),t5); if(C_truep(t6)){ t7=C_SCHEME_UNDEFINED; t8=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ /* posixunix.scm:1429: posix-error */ t7=lf[0];{ C_word av2[7]; av2[0]=t7; av2[1]=((C_word*)t0)[3]; av2[2]=lf[8]; av2[3]=lf[394]; av2[4]=lf[395]; av2[5]=((C_word*)t0)[2]; av2[6]=t1; f_2704(7,av2);}}} /* duplicate-fileno in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_3166,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_check_exact_2(t2,*((C_word*)lf[66]+1)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3173,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ t6=t5; f_3173(t6,C_dup(t2));} else{ t6=C_i_car(t3); t7=C_i_check_exact_2(t6,lf[66]); t8=t5; f_3173(t8,C_dup2(t2,t6));}} /* k6820 in a6811 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6822,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3158 in port->fileno in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3160,2,av);} a=C_alloc(4); if(C_truep(C_i_zerop(t1))){ /* posix-common.scm:397: posix-error */ t2=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[13]; av2[3]=lf[10]; av2[4]=lf[63]; av2[5]=((C_word*)t0)[3]; f_2704(6,av2);}} else{ t2=C_C_fileno(((C_word*)t0)[3]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3143,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:395: posix-error */ t4=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[8]; av2[3]=lf[10]; av2[4]=lf[64]; av2[5]=((C_word*)t0)[3]; f_2704(6,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_3686(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_3686,2,t0,t1);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3693,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); /* posix-common.scm:530: directory */ t4=*((C_word*)lf[26]+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);}} /* k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void 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_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){ C_save_and_reclaim_args((void *)trf_3683,2,t0,t1);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3686,a[2]=((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_3686(t4,((C_word*)t0)[9]);} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3832,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:527: 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);}}} /* k3114 in open-output-file* in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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:381: check */ f_3075(((C_word*)t0)[4],lf[61],((C_word*)t0)[2],C_SCHEME_FALSE,t2);} /* port->fileno in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_3118,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_fix(0),C_SCHEME_TRUE,lf[10]); t5=C_slot(t2,C_fix(7)); t6=C_eqp(lf[30],t5); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3134,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:391: ##sys#port-data */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[62]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[62]+1); av2[1]=t7; av2[2]=t2; tp(3,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3160,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:392: ##sys#peek-unsigned-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[65]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[65]+1); av2[1]=t7; av2[2]=t2; av2[3]=C_fix(0); tp(4,av2);}}} /* k2713 in k2706 in posix-error in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_2715,2,av);}{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[1]+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);}} /* k3141 in k3158 in port->fileno in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3143,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2717 in k2706 in posix-error in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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,4)))){ C_save_and_reclaim((void *)f_2719,2,av);} /* posix-common.scm:185: string-append */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k2706 in posix-error in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_2708,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2719,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=stub67(t4,t5); /* posix-common.scm:181: ##sys#peek-c-string */ t7=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* posix-error in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_2704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2704,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_2708,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:184: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[5]+1); av2[1]=t6; tp(2,av2);}} /* k3171 in duplicate-fileno in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_3173(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_3173,2,t0,t1);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3176,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:408: posix-error */ t4=lf[0];{ C_word av2[6]; av2[0]=t4; av2[1]=t3; av2[2]=lf[8]; av2[3]=lf[66]; av2[4]=lf[67]; av2[5]=((C_word*)t0)[3]; f_2704(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);}}} /* k3174 in k3171 in duplicate-fileno in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3176,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* unmap-file-from-memory in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_7528,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_structure_2(t2,lf[389],lf[394]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7535,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t3))){ t6=t3; t7=t5; f_7535(t7,C_u_i_car(t6));} else{ t6=t5; f_7535(t6,C_slot(t2,C_fix(2)));}} /* k3715 in k3706 in loop in k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_3717,2,av);} a=C_alloc(14); if(C_truep(t1)){ if(C_truep((C_truep(C_i_equalp(((C_word*)t0)[2],lf[93]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[2],lf[94]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ /* posix-common.scm:538: loop */ t2=((C_word*)((C_word*)t0)[3])[1]; f_3695(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_3807,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); /* posix-common.scm:539: symbolic-link? */ t3=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3816,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); /* posix-common.scm:549: pproc */ t3=((C_word*)t0)[11];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* memory-mapped-file? in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_7570,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[389]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5930 in set-groups! in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5932,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_5937,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li143),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_5937(t5,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));} /* doloop1297 in k5930 in set-groups! in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_5937(C_word t0,C_word t1,C_word 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(4,0,3)))){ C_save_and_reclaim_args((void *)trf_5937,4,t0,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t4=C_set_groups(t3); if(C_truep(C_fixnum_lessp(t4,C_fix(0)))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5953,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:951: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[5]+1); av2[1]=t5; tp(2,av2);}} 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{ t4=C_slot(t2,C_fix(0)); t5=C_i_check_exact_2(t4,lf[276]); t6=C_set_gid(t3,t4); t7=C_slot(t2,C_fix(1)); t8=C_fixnum_plus(t3,C_fix(1)); t10=t1; t11=t7; t12=t8; t1=t10; t2=t11; t3=t12; goto loop;}} /* signal-masked? in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_5599,3,av);} t3=C_i_check_exact_2(t2,lf[254]); t4=C_sigprocmask_get(C_fix(0)); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_sigismember(t2); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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,4)))){ C_save_and_reclaim((void *)f_5597,2,av);} a=C_alloc(21); t2=C_mutate2((C_word*)lf[253]+1 /* (set! signal-mask ...) */,t1); t3=C_mutate2((C_word*)lf[254]+1 /* (set! signal-masked? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5599,a[2]=((C_word)li132),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[255]+1 /* (set! signal-mask! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5605,a[2]=((C_word)li133),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[257]+1 /* (set! signal-unmask! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5621,a[2]=((C_word)li134),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[259]+1 /* (set! system-information ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5637,a[2]=((C_word)li135),tmp=(C_word)a,a+=3,tmp)); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5677,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8672,a[2]=((C_word)li256),tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8675,a[2]=((C_word)li257),tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:826: getter-with-setter */ t10=*((C_word*)lf[450]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t7; av2[2]=t8; av2[3]=t9; av2[4]=lf[462]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* k3706 in loop in k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3708,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_3717,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); /* posix-common.scm:537: directory? */ t6=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* string->time in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_7585(C_word c,C_word *av){ C_word tmp; C_word 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_7585,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[399]:C_i_car(t3)); t6=t5; t7=C_i_check_string_2(t2,lf[398]); t8=C_i_check_string_2(t6,lf[398]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7602,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1446: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t9; av2[2]=t2; av2[3]=lf[398]; tp(4,av2);}} /* k2749 in k2745 in stat in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_2751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2751,2,av);} t2=C_fstat(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_2726(2,av2);}} /* k6086 in change-file-mode in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_6088,2,av);} t2=C_chmod(t1,((C_word*)t0)[2]); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ /* posixunix.scm:1017: posix-error */ t3=lf[0];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[8]; av2[3]=lf[320]; av2[4]=lf[321]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[2]; f_2704(7,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k5951 in doloop1297 in k5930 in set-groups! in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5953,2,av);} /* posixunix.scm:952: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[276]; av2[3]=lf[277]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k2745 in stat in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_2747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2747,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2751,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:225: port->fileno */ t3=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_2760,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2767,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:228: ##sys#platform-fixup-pathname */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[12]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ /* posix-common.scm:235: ##sys#signal-hook */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[13]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[14]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* memory-mapped-file-pointer in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_7561,3,av);} t3=C_i_check_structure_2(t2,lf[389],lf[396]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* change-file-owner in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_6090,5,av);} a=C_alloc(6); t5=C_i_check_string_2(t2,lf[322]); t6=C_i_check_exact_2(t3,lf[322]); t7=C_i_check_exact_2(t4,lf[322]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6114,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:1024: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[11]+1); av2[1]=t8; av2[2]=t2; av2[3]=lf[322]; tp(4,av2);}} /* a6811 in k6397 in k6391 in custom-input-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_6812,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[357]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6822,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1242: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[70]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[70]+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);}}} /* file-stat in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_2772,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_2779,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:244: ##sys#stat */ f_2722(t6,t2,t5,C_SCHEME_TRUE,lf[16]);} /* k2777 in file-stat in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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(30,c,1)))){ C_save_and_reclaim((void *)f_2779,2,av);} a=C_alloc(30); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_a_double_to_num(&a,C_statbuf.st_size),C_flonum(&a,C_statbuf.st_atime),C_flonum(&a,C_statbuf.st_ctime),C_flonum(&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);}} /* k2758 in k2745 in stat in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2760,2,av);} if(C_truep(((C_word*)t0)[2])){ t2=C_lstat(t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_2726(2,av2);}} else{ t2=C_stat(t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_2726(2,av2);}}} /* k2765 in k2745 in stat in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2767,2,av);} /* posix-common.scm:227: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t9; C_word t10; C_word t11; C_word 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(48,c,4)))){ C_save_and_reclaim((void *)f_2792,2,av);} a=C_alloc(48); t2=C_mutate2((C_word*)lf[17]+1 /* (set! file-modification-time ...) */,t1); t3=C_mutate2((C_word*)lf[18]+1 /* (set! file-access-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2794,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[19]+1 /* (set! file-change-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2800,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[20]+1 /* (set! file-owner ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2806,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[21]+1 /* (set! file-permissions ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2812,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[22]+1 /* (set! file-size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2818,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[23]+1 /* (set! file-type ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2824,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[31]+1 /* (set! regular-file? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2911,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[32]+1 /* (set! symbolic-link? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2921,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[33]+1 /* (set! block-device? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2931,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[34]+1 /* (set! character-device? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2941,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[35]+1 /* (set! fifo? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2951,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[36]+1 /* (set! socket? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2961,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[37]+1 /* (set! directory? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2971,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[38]+1 /* (set! seek/set ...) */,C_fix((C_word)SEEK_SET)); t17=C_mutate2((C_word*)lf[39]+1 /* (set! seek/end ...) */,C_fix((C_word)SEEK_END)); t18=C_mutate2((C_word*)lf[40]+1 /* (set! seek/cur ...) */,C_fix((C_word)SEEK_CUR)); t19=C_mutate2((C_word*)lf[41]+1 /* (set! set-file-position! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2984,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t20=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3033,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8765,a[2]=((C_word)li263),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:330: getter-with-setter */ t22=*((C_word*)lf[450]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t22; av2[1]=t20; av2[2]=t21; av2[3]=*((C_word*)lf[41]+1); av2[4]=lf[466]; ((C_proc)(void*)(*((C_word*)t22+1)))(5,av2);}} /* k2796 in file-access-time in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_2798,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_flonum(&a,C_statbuf.st_atime); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#read-symbolic-link in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_6203,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6208,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:1086: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[11]+1); av2[1]=t4; av2[2]=t2; av2[3]=t3; tp(4,av2);}} /* k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(177,c,9)))){ C_save_and_reclaim((void *)f_6202,2,av);} a=C_alloc(177); t2=t1; t3=C_mutate2((C_word*)lf[333]+1 /* (set! ##sys#read-symbolic-link ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6203,a[2]=t2,a[3]=((C_word)li154),tmp=(C_word)a,a+=4,tmp)); t4=C_mutate2((C_word*)lf[336]+1 /* (set! read-symbolic-link ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6222,a[2]=((C_word)li158),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[342]+1 /* (set! file-link ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6343,a[2]=((C_word)li159),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[345]+1 /* (set! ##sys#custom-input-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6365,a[2]=((C_word)li174),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[359]+1 /* (set! ##sys#custom-output-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6888,a[2]=((C_word)li183),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[363]+1 /* (set! file-truncate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7149,a[2]=((C_word)li184),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_7184,a[2]=((C_word)li185),tmp=(C_word)a,a+=3,tmp)); t14=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7248,a[2]=((C_word)li186),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[367]+1 /* (set! file-lock ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7266,a[2]=t12,a[3]=t10,a[4]=((C_word)li187),tmp=(C_word)a,a+=5,tmp)); t16=C_mutate2((C_word*)lf[369]+1 /* (set! file-lock/blocking ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7282,a[2]=t12,a[3]=t10,a[4]=((C_word)li188),tmp=(C_word)a,a+=5,tmp)); t17=C_mutate2((C_word*)lf[371]+1 /* (set! file-test-lock ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7298,a[2]=t12,a[3]=t10,a[4]=((C_word)li189),tmp=(C_word)a,a+=5,tmp)); t18=C_mutate2((C_word*)lf[373]+1 /* (set! file-unlock ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7325,a[2]=((C_word)li190),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2((C_word*)lf[375]+1 /* (set! create-fifo ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7353,a[2]=((C_word)li191),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2((C_word*)lf[35]+1 /* (set! fifo? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7390,a[2]=((C_word)li192),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate2((C_word*)lf[379]+1 /* (set! prot/read ...) */,C_fix((C_word)PROT_READ)); t22=C_mutate2((C_word*)lf[380]+1 /* (set! prot/write ...) */,C_fix((C_word)PROT_WRITE)); t23=C_mutate2((C_word*)lf[381]+1 /* (set! prot/exec ...) */,C_fix((C_word)PROT_EXEC)); t24=C_mutate2((C_word*)lf[382]+1 /* (set! prot/none ...) */,C_fix((C_word)PROT_NONE)); t25=C_mutate2((C_word*)lf[383]+1 /* (set! map/fixed ...) */,C_fix((C_word)MAP_FIXED)); t26=C_mutate2((C_word*)lf[384]+1 /* (set! map/shared ...) */,C_fix((C_word)MAP_SHARED)); t27=C_mutate2((C_word*)lf[385]+1 /* (set! map/private ...) */,C_fix((C_word)MAP_PRIVATE)); t28=C_mutate2((C_word*)lf[386]+1 /* (set! map/anonymous ...) */,C_fix((C_word)MAP_ANON)); t29=C_mutate2((C_word*)lf[387]+1 /* (set! map/file ...) */,C_fix((C_word)MAP_FILE)); t30=C_mutate2((C_word*)lf[388]+1 /* (set! map-file-to-memory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7468,a[2]=((C_word)li193),tmp=(C_word)a,a+=3,tmp)); t31=C_mutate2((C_word*)lf[394]+1 /* (set! unmap-file-from-memory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7528,a[2]=((C_word)li194),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate2((C_word*)lf[396]+1 /* (set! memory-mapped-file-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7561,a[2]=((C_word)li195),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate2((C_word*)lf[397]+1 /* (set! memory-mapped-file? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7570,a[2]=((C_word)li196),tmp=(C_word)a,a+=3,tmp)); t34=C_fix((C_word)sizeof(struct tm)); t35=C_mutate2((C_word*)lf[398]+1 /* (set! string->time ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7585,a[2]=t34,a[3]=((C_word)li197),tmp=(C_word)a,a+=4,tmp)); t36=C_fix((C_word)sizeof(struct tm)); t37=C_mutate2((C_word*)lf[400]+1 /* (set! utc-time->seconds ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7622,a[2]=t36,a[3]=((C_word)li198),tmp=(C_word)a,a+=4,tmp)); t38=C_mutate2((C_word*)lf[402]+1 /* (set! local-timezone-abbreviation ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7641,a[2]=((C_word)li199),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate2((C_word*)lf[403]+1 /* (set! _exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7654,a[2]=((C_word)li200),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate2((C_word*)lf[404]+1 /* (set! set-alarm! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7668,a[2]=((C_word)li201),tmp=(C_word)a,a+=3,tmp)); t41=C_mutate2((C_word*)lf[405]+1 /* (set! set-buffering-mode! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7675,a[2]=((C_word)li202),tmp=(C_word)a,a+=3,tmp)); t42=C_mutate2((C_word*)lf[412]+1 /* (set! terminal-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7738,a[2]=((C_word)li203),tmp=(C_word)a,a+=3,tmp)); t43=C_mutate2(&lf[413] /* (set! ##sys#terminal-check ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7756,a[2]=((C_word)li204),tmp=(C_word)a,a+=3,tmp)); t44=C_mutate2((C_word*)lf[415]+1 /* (set! terminal-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7787,a[2]=((C_word)li205),tmp=(C_word)a,a+=3,tmp)); t45=C_mutate2((C_word*)lf[416]+1 /* (set! terminal-size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7811,a[2]=((C_word)li206),tmp=(C_word)a,a+=3,tmp)); t46=C_mutate2((C_word*)lf[421]+1 /* (set! get-host-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7848,a[2]=((C_word)li207),tmp=(C_word)a,a+=3,tmp)); t47=C_mutate2((C_word*)lf[423]+1 /* (set! process-fork ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7862,a[2]=((C_word)li210),tmp=(C_word)a,a+=3,tmp)); t48=C_mutate2((C_word*)lf[427]+1 /* (set! process-execute ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7955,a[2]=((C_word)li213),tmp=(C_word)a,a+=3,tmp)); t49=C_mutate2((C_word*)lf[126]+1 /* (set! ##sys#process-wait ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8015,a[2]=((C_word)li215),tmp=(C_word)a,a+=3,tmp)); t50=C_mutate2((C_word*)lf[429]+1 /* (set! parent-process-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8053,a[2]=((C_word)li216),tmp=(C_word)a,a+=3,tmp)); t51=C_mutate2((C_word*)lf[430]+1 /* (set! sleep ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8056,a[2]=((C_word)li217),tmp=(C_word)a,a+=3,tmp)); t52=C_mutate2((C_word*)lf[431]+1 /* (set! process-signal ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8063,a[2]=((C_word)li218),tmp=(C_word)a,a+=3,tmp)); t53=C_mutate2((C_word*)lf[433]+1 /* (set! ##sys#shell-command ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8088,a[2]=((C_word)li219),tmp=(C_word)a,a+=3,tmp)); t54=C_mutate2((C_word*)lf[437]+1 /* (set! ##sys#shell-command-arguments ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8097,a[2]=((C_word)li220),tmp=(C_word)a,a+=3,tmp)); t55=C_mutate2((C_word*)lf[439]+1 /* (set! process-run ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8103,a[2]=((C_word)li221),tmp=(C_word)a,a+=3,tmp)); t56=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8157,a[2]=((C_word)li225),tmp=(C_word)a,a+=3,tmp); t57=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8194,a[2]=((C_word)li228),tmp=(C_word)a,a+=3,tmp); t58=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8214,a[2]=((C_word)li229),tmp=(C_word)a,a+=3,tmp); t59=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8226,a[2]=((C_word)li230),tmp=(C_word)a,a+=3,tmp); t60=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8241,a[2]=((C_word)li231),tmp=(C_word)a,a+=3,tmp); t61=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8255,a[2]=t60,a[3]=t59,a[4]=t57,a[5]=((C_word)li233),tmp=(C_word)a,a+=6,tmp); t62=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8300,a[2]=t58,a[3]=((C_word)li234),tmp=(C_word)a,a+=4,tmp); t63=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8311,a[2]=t58,a[3]=((C_word)li235),tmp=(C_word)a,a+=4,tmp); t64=C_mutate2((C_word*)lf[441]+1 /* (set! ##sys#process ...) */,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8322,a[2]=t61,a[3]=t62,a[4]=t56,a[5]=t63,a[6]=((C_word)li238),tmp=(C_word)a,a+=7,tmp)); t65=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8378,a[2]=((C_word)li243),tmp=(C_word)a,a+=3,tmp); t66=C_mutate2((C_word*)lf[442]+1 /* (set! process ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8449,a[2]=t65,a[3]=((C_word)li245),tmp=(C_word)a,a+=4,tmp)); t67=C_mutate2((C_word*)lf[443]+1 /* (set! process* ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8497,a[2]=t65,a[3]=((C_word)li246),tmp=(C_word)a,a+=4,tmp)); t68=C_mutate2((C_word*)lf[445]+1 /* (set! set-root-directory! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8552,a[2]=((C_word)li247),tmp=(C_word)a,a+=3,tmp)); t69=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t69; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t69+1)))(2,av2);}} /* k7396 in fifo? in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_7398,2,av);} t2=C_i_fifo_p(t1); switch(t2){ case C_SCHEME_TRUE: t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} case C_SCHEME_FALSE: t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} case C_fix(0): /* posixunix.scm:1380: ##sys#signal-hook */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[8]; av2[3]=lf[35]; av2[4]=lf[377]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);} default: /* posixunix.scm:1382: posix-error */ t3=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[8]; av2[3]=lf[35]; av2[4]=lf[378]; av2[5]=((C_word*)t0)[3]; f_2704(6,av2);}}} /* file-access-time in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_2794(C_word c,C_word *av){ C_word tmp; C_word 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_2794,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2798,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:265: ##sys#stat */ f_2722(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[18]);} /* g422 in k3624 in loop in k3605 in k3598 in a3595 in conc-loop in glob in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_3630(C_word t0,C_word t1,C_word 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_3630,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3638,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_3650,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:510: 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);}} /* k6206 in read-symbolic-link in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6208,2,av);} t2=C_do_readlink(t1,((C_word*)t0)[2]); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ /* posixunix.scm:1088: posix-error */ t3=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[8]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[334]; av2[5]=((C_word*)t0)[5]; f_2704(6,av2);}} else{ /* posixunix.scm:1089: substring */ t3=*((C_word*)lf[335]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* fifo? in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_7390,3,av);} a=C_alloc(4); t3=C_i_check_string_2(t2,lf[35]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7398,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1377: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[35]; tp(4,av2);}} /* k5989 in initialize-groups in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_5991,2,av);} t2=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=stub1311(C_SCHEME_UNDEFINED,t1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* for-each-loop1164 in set-signal-mask! in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static C_word C_fcall f_5572(C_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_i_check_exact_2(t2,lf[251]); t4=C_sigaddset(t2); t5=C_slot(t1,C_fix(1)); t7=t5; t1=t7; goto loop;} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* k3624 in loop in k3605 in k3598 in a3595 in conc-loop in glob in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3626,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3630,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); /* posix-common.scm:502: g422 */ t3=t2; f_3630(t3,((C_word*)t0)[5],t1);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* posix-common.scm:512: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_3609(t4,((C_word*)t0)[5],t3);}} /* k3636 in g422 in k3624 in loop in k3605 in k3598 in a3595 in conc-loop in glob in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3638,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3642,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_cdr(((C_word*)t0)[3]); /* posix-common.scm:511: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_3609(t5,t3,t4);} /* k4828 in file-select in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_4830(C_word t0,C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_4830,2,t0,t1);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4833,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)[3]; if(C_truep(t4)){ if(C_truep(C_fixnump(((C_word*)t0)[3]))){ t5=t3; f_4833(t5,C_a_i_list1(&a,1,((C_word*)t0)[3]));} else{ t5=C_i_check_list_2(((C_word*)t0)[3],lf[196]); t6=((C_word*)t0)[3]; t7=t3; f_4833(t7,t6);}} else{ t5=t3; f_4833(t5,C_SCHEME_END_OF_LIST);}} /* k4831 in k4828 in file-select in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_4833(C_word t0,C_word 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(10,0,2)))){ C_save_and_reclaim_args((void *)trf_4833,2,t0,t1);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4836,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)[5]; if(C_truep(t4)){ if(C_truep(C_fixnump(((C_word*)t0)[5]))){ t5=t3; f_4836(t5,C_a_i_list1(&a,1,((C_word*)t0)[5]));} else{ t5=C_i_check_list_2(((C_word*)t0)[5],lf[196]); t6=((C_word*)t0)[5]; t7=t3; f_4836(t7,t6);}} else{ t5=t3; f_4836(t5,C_SCHEME_END_OF_LIST);}} /* file-select in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_4826,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_4830,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_4830(t7,C_u_i_car(t6));} else{ t6=t5; f_4830(t6,C_SCHEME_FALSE);}} /* k7692 in k7683 in k7680 in k7677 in set-buffering-mode! in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 in ... */ static void C_fcall f_7694(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_7694,2,t0,t1);} if(C_truep(t1)){ /* posixunix.scm:1497: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word av2[7]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[405]; av2[3]=lf[406]; 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);}}} /* k3796 in k3749 in k3805 in k3715 in k3706 in loop in k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3798,2,av);} /* posix-common.scm:548: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3695(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k3781 in k3774 in a3767 in k3749 in k3805 in k3715 in k3706 in loop in k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3783,2,av);} if(C_truep(t1)){ /* posix-common.scm:547: action */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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]; /* posix-common.scm:545: loop */ t3=((C_word*)((C_word*)t0)[6])[1]; f_3695(t3,((C_word*)t0)[7],((C_word*)t0)[4],((C_word*)t0)[8],t2);}} /* k3778 in k3774 in a3767 in k3749 in k3805 in k3715 in k3706 in loop in k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3780,2,av);} /* posix-common.scm:545: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3695(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* a3787 in k3749 in k3805 in k3715 in k3706 in loop in k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 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!=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_3788,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* file-read in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4716(C_word c,C_word *av){ C_word tmp; C_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,3)))){ C_save_and_reclaim((void*)f_4716,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; t5=C_i_check_exact_2(t2,lf[188]); t6=C_i_check_exact_2(t3,lf[188]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4726,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t4))){ t8=t4; t9=t7;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_u_i_car(t8); f_4726(2,av2);}} else{ t8=t3; /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[72]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[72]+1); av2[1]=t7; av2[2]=t8; av2[3]=C_make_character(32); tp(4,av2);}}} /* k3774 in a3767 in k3749 in k3805 in k3715 in k3706 in loop in k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_3776,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3780,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_3783,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); /* posix-common.scm:547: pproc */ t5=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* initialize-groups in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_6003,4,av);} a=C_alloc(9); t4=C_i_check_string_2(t2,lf[279]); t5=C_i_check_exact_2(t3,lf[279]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6026,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_5991,a[2]=t9,a[3]=t7,tmp=(C_word)a,a+=4,tmp); if(C_truep(t8)){ t11=C_i_foreign_string_argumentp(t8); /* posixunix.scm:958: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[11]+1); av2[1]=t10; av2[2]=t11; tp(3,av2);}} else{ t11=C_i_foreign_fixnum_argumentp(t9); t12=t7;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=stub1311(C_SCHEME_UNDEFINED,C_SCHEME_FALSE,t11); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} /* a3762 in k3749 in k3805 in k3715 in k3706 in loop in k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in ... */ static void C_ccall f_3763(C_word c,C_word *av){ C_word tmp; 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_3763,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a8764 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8765(C_word c,C_word *av){ C_word tmp; C_word 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_8765,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8769,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8781,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:332: port? */ t5=*((C_word*)lf[15]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3759 in k3749 in k3805 in k3715 in k3706 in loop in k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3761,2,av);} /* posix-common.scm:542: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3695(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k8767 in a8764 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8769,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8772,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:341: posix-error */ t4=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[8]; av2[3]=lf[45]; av2[4]=lf[464]; av2[5]=((C_word*)t0)[3]; f_2704(6,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a3767 in k3749 in k3805 in k3715 in k3706 in loop in k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 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 *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_3768,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3776,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); /* posix-common.scm:546: directory */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6017 in k6024 in initialize-groups in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6019,2,av);} /* posixunix.scm:964: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[279]; av2[3]=lf[280]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k3749 in k3805 in k3715 in k3706 in loop in k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 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 t3; C_word t4; 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_3751,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_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],tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3763,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word)li40),tmp=(C_word)a,a+=6,tmp); t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3768,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)li41),tmp=(C_word)a,a+=9,tmp); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3788,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word)li42),tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:544: ##sys#dynamic-wind */ t11=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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_3798,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_3801,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); /* posix-common.scm:548: pproc */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k6261 in loop in k6249 in a6242 in read-symbolic-link in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6263,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6269,a[2]=((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:1100: file-exists? */ t4=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a8758 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8759(C_word c,C_word *av){ C_word tmp; C_word 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_8759,3,av);} t3=C_i_check_exact_2(t2,lf[102]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_umask(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6267 in k6261 in loop in k6249 in a6242 in read-symbolic-link in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in ... */ static void C_ccall f_6269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6269,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_6278,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_6281,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:1102: symbolic-link? */ t6=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:1108: ##sys#signal-hook */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[8]; av2[3]=lf[336]; av2[4]=lf[339]; av2[5]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* signal-mask! in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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(0,c,4)))){ C_save_and_reclaim((void *)f_5605,3,av);} t3=C_i_check_exact_2(t2,lf[255]); t4=C_sigemptyset(C_fix(0)); t5=C_sigaddset(t2); t6=C_sigprocmask_block(C_fix(0)); if(C_truep(C_fixnum_lessp(t6,C_fix(0)))){ /* posixunix.scm:795: posix-error */ t7=lf[0];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t1; av2[2]=lf[127]; av2[3]=lf[255]; av2[4]=lf[256]; f_2704(5,av2);}} else{ t7=C_SCHEME_UNDEFINED; t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k3740 in k3805 in k3715 in k3706 in loop in k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3742,2,av);} if(C_truep(t1)){ /* posix-common.scm:540: action */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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]; /* posix-common.scm:540: loop */ t3=((C_word*)((C_word*)t0)[6])[1]; f_3695(t3,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],t2);}} /* k6276 in k6267 in k6261 in loop in k6249 in a6242 in read-symbolic-link in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6278,2,av);} /* posixunix.scm:1101: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6253(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k8779 in a8764 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8781(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,5)))){ C_save_and_reclaim((void *)f_8781,2,av);} if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(7)); t3=C_eqp(t2,lf[43]); if(C_truep(t3)){ t4=C_ftell(((C_word*)t0)[2]); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; f_8769(2,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fix(-1); f_8769(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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_8769(2,av2);}} else{ /* posix-common.scm:339: ##sys#signal-hook */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[13]; av2[3]=lf[45]; av2[4]=lf[465]; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* k5921 in get-groups in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5923,2,av);} /* posixunix.scm:933: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[272]; av2[3]=lf[275]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* set-groups! in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_5928,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5932,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=C_i_length(t2); t5=C_i_foreign_fixnum_argumentp(t4); if(C_truep(stub1281(C_SCHEME_UNDEFINED,t5))){ t6=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_5932(2,av2);}} else{ /* posixunix.scm:946: ##sys#error */ t6=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=lf[276]; av2[3]=lf[278]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k3737 in k3805 in k3715 in k3706 in loop in k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3739,2,av);} /* posix-common.scm:540: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3695(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k6279 in k6267 in k6261 in loop in k6249 in a6242 in read-symbolic-link in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in ... */ static void C_ccall f_6281(C_word c,C_word *av){ C_word tmp; C_word t0=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_6281,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6284,a[2]=((C_word*)t0)[2],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:1103: ##sys#read-symbolic-link */ t3=*((C_word*)lf[333]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=lf[336]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* posixunix.scm:1101: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6253(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[7]);}} /* k6282 in k6279 in k6267 in k6261 in loop in k6249 in a6242 in read-symbolic-link in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 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_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6284,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6290,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:1104: absolute-pathname? */ t4=*((C_word*)lf[338]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8445 in k8441 in %process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8447,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_8421(2,av2);}} /* process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_8449,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_FALSE: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_8467,a[2]=((C_word)li244),tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:1734: %process */ f_8378(t1,lf[442],C_SCHEME_FALSE,t2,t5,t9,t12);} /* k8770 in k8767 in a8764 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8772,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6288 in k6282 in k6279 in k6267 in k6261 in loop in k6249 in a6242 in read-symbolic-link in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6290,2,av);} if(C_truep(t1)){ /* posixunix.scm:1101: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6253(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ /* posixunix.scm:1106: make-pathname */ t2=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* read-symbolic-link in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_6222,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[336]); if(C_truep(t5)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6237,a[2]=t2,a[3]=((C_word)li155),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6243,a[2]=((C_word)li157),tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:1094: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:1109: ##sys#read-symbolic-link */ t7=*((C_word*)lf[333]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t1; av2[2]=t2; av2[3]=lf[336]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* a8466 in process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8467(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_8467,6,av);} /* posixunix.scm:1736: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; C_values(5,av2);}} /* ##sys#stat in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_2722(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_2722,5,t1,t2,t3,t4,t5);} a=C_alloc(12); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2726,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_fstat(t2); f_2726(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2747,a[2]=t6,a[3]=t2,a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:225: port? */ t8=*((C_word*)lf[15]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* a3388 in k3327 in create-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_3389,5,av);} if(C_truep(t3)){ /* posix-common.scm:460: make-pathname */ t5=*((C_word*)lf[83]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k2724 in stat in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_2726(C_word c,C_word *av){ C_word tmp; C_word 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_2726,2,av);} if(C_truep(C_fixnum_lessp(t1,C_fix(0)))){ if(C_truep(((C_word*)t0)[2])){ /* posix-common.scm:239: posix-error */ t2=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[8]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[9]; av2[5]=((C_word*)t0)[5]; f_2704(6,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a6236 in read-symbolic-link in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6237(C_word c,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_6237,2,av);} /* posixunix.scm:1094: decompose-directory */ t2=*((C_word*)lf[337]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3379 in loop in k3337 in k3327 in create-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3381,2,av);} t2=((C_word*)t0)[2]; f_3348(t2,C_i_not(t1));} /* a3382 in k3327 in create-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3383(C_word c,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_3383,2,av);} /* posix-common.scm:459: decompose-pathname */ t2=*((C_word*)lf[82]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* process* in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_8497,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_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)); if(C_truep(C_i_nullp(t7))){ /* posixunix.scm:1739: %process */ f_8378(t1,lf[443],C_SCHEME_TRUE,t2,t5,t9,*((C_word*)lf[444]+1));} else{ t10=C_i_cdr(t7); /* posixunix.scm:1739: %process */ f_8378(t1,lf[443],C_SCHEME_TRUE,t2,t5,t9,*((C_word*)lf[444]+1));}} /* k7604 in k7600 in string->time in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_7606,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_7614,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:1446: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[72]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[72]+1); av2[1]=t5; av2[2]=((C_word*)t0)[4]; av2[3]=C_make_character(0); tp(4,av2);}} /* file-mkstemp in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4794(C_word c,C_word *av){ C_word tmp; C_word 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_4794,3,av);} a=C_alloc(4); t3=C_i_check_string_2(t2,lf[194]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4801,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:520: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[194]; tp(4,av2);}} /* a6242 in read-symbolic-link in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_6243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6243,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6251,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(C_truep(t2)?t2:lf[340]); if(C_truep(t3)){ /* posixunix.scm:1096: string-append */ t7=*((C_word*)lf[2]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ /* posixunix.scm:1096: string-append */ t7=*((C_word*)lf[2]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=lf[341]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* set-signal-mask! in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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(3,c,4)))){ C_save_and_reclaim((void *)f_5548,3,av);} a=C_alloc(3); t3=C_i_check_list_2(t2,lf[251]); t4=C_sigemptyset(C_fix(0)); t5=t2; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5572,a[2]=((C_word)li130),tmp=(C_word)a,a+=3,tmp); t7=( f_5572(t5) ); t8=C_sigprocmask_set(C_fix(0)); if(C_truep(C_fixnum_lessp(t8,C_fix(0)))){ /* posixunix.scm:771: posix-error */ t9=lf[0];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t1; av2[2]=lf[127]; av2[3]=lf[251]; av2[4]=lf[252]; f_2704(5,av2);}} else{ t9=C_SCHEME_UNDEFINED; t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* k7600 in string->time in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7602,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7606,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1446: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k3372 in k3346 in loop in k3337 in k3327 in create-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3374,2,av);} /* posix-common.scm:462: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3341(t2,((C_word*)t0)[3],t1);} /* k4765 in k4762 in file-write in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_4767(C_word 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,6)))){ C_save_and_reclaim_args((void *)trf_4767,2,t0,t1);} a=C_alloc(4); t2=C_i_check_exact_2(t1,lf[191]); t3=C_write(((C_word*)t0)[2],((C_word*)t0)[3],t1); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4773,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_eqp(C_fix(-1),t3); if(C_truep(t5)){ /* posixunix.scm:514: posix-error */ t6=lf[0];{ C_word av2[7]; av2[0]=t6; av2[1]=t4; av2[2]=lf[8]; av2[3]=lf[191]; av2[4]=lf[192]; av2[5]=((C_word*)t0)[2]; av2[6]=t1; f_2704(7,av2);}} else{ t6=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t6; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k4762 in file-write in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4764,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4767,a[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_4767(t4,C_u_i_car(t3));} else{ t3=t2; f_4767(t3,C_block_size(((C_word*)t0)[3]));}} /* file-unlock in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_7325(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(0,c,5)))){ C_save_and_reclaim((void *)f_7325,3,av);} t3=C_i_check_structure_2(t2,lf[366],lf[373]); 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)))){ /* posixunix.scm:1359: posix-error */ t9=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t9; av2[1]=t1; av2[2]=lf[8]; av2[3]=lf[373]; av2[4]=lf[374]; av2[5]=t2; f_2704(6,av2);}} else{ t9=C_SCHEME_UNDEFINED; t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* loop in a8690 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_8697(C_word t0,C_word t1,C_word 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_8697,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:781: loop */ t9=t1; t10=t6; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;} else{ t7=t3; /* posixunix.scm:781: loop */ t9=t1; t10=t6; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;}}} /* loop in k6249 in a6242 in read-symbolic-link in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_6253(C_word 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_6253,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_6263,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:1099: make-pathname */ t6=*((C_word*)lf[83]+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);}}} /* k6249 in a6242 in read-symbolic-link in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6251,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_6253,a[2]=t3,a[3]=((C_word)li156),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_6253(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1);} /* a8690 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_8691,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_8697,a[2]=t4,a[3]=((C_word)li258),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_8697(t6,t1,*((C_word*)lf[250]+1),C_SCHEME_END_OF_LIST);} /* k4771 in k4765 in k4762 in file-write in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4773,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8683 in a8674 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8685,2,av);} /* posixunix.scm:831: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[455]; av2[3]=lf[461]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4540 in a4526 in a4520 in a4493 in k4484 in k4478 in call-with-exec-args in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4542,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_4531(t3,t2);} /* a4543 in a4520 in a4493 in k4484 in k4478 in call-with-exec-args in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4544(C_word c,C_word *av){ C_word tmp; 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_4544,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_4550,a[2]=t2,a[3]=((C_word)li87),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:726: k722 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5685(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_5685,2,av);} a=C_alloc(9); t2=C_mutate2((C_word*)lf[264]+1 /* (set! current-group-id ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5689,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8615,a[2]=((C_word)li250),tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8618,a[2]=((C_word)li251),tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:854: getter-with-setter */ t6=*((C_word*)lf[450]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=t5; av2[4]=lf[454]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_5681,2,av);} a=C_alloc(9); t2=C_mutate2((C_word*)lf[263]+1 /* (set! current-effective-user-id ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5685,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8634,a[2]=((C_word)li252),tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8637,a[2]=((C_word)li253),tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:845: getter-with-setter */ t6=*((C_word*)lf[450]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=t5; av2[4]=lf[457]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(54,c,5)))){ C_save_and_reclaim((void *)f_5689,2,av);} a=C_alloc(54); t2=C_mutate2((C_word*)lf[265]+1 /* (set! current-effective-group-id ...) */,t1); t3=C_mutate2((C_word*)lf[266]+1 /* (set! user-information ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5691,a[2]=((C_word)li136),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[269]+1 /* (set! current-user-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5745,a[2]=((C_word)li137),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[270]+1 /* (set! current-effective-user-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5759,a[2]=((C_word)li138),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[271]+1 /* (set! group-information ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5784,a[2]=((C_word)li140),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[272]+1 /* (set! get-groups ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5864,a[2]=((C_word)li142),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[276]+1 /* (set! set-groups! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5928,a[2]=((C_word)li144),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[279]+1 /* (set! initialize-groups ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6003,a[2]=((C_word)li145),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[281]+1 /* (set! errno/perm ...) */,C_fix((C_word)EPERM)); t11=C_mutate2((C_word*)lf[282]+1 /* (set! errno/noent ...) */,C_fix((C_word)ENOENT)); t12=C_mutate2((C_word*)lf[283]+1 /* (set! errno/srch ...) */,C_fix((C_word)ESRCH)); t13=C_mutate2((C_word*)lf[284]+1 /* (set! errno/intr ...) */,C_fix((C_word)EINTR)); t14=C_mutate2((C_word*)lf[285]+1 /* (set! errno/io ...) */,C_fix((C_word)EIO)); t15=C_mutate2((C_word*)lf[286]+1 /* (set! errno/noexec ...) */,C_fix((C_word)ENOEXEC)); t16=C_mutate2((C_word*)lf[287]+1 /* (set! errno/badf ...) */,C_fix((C_word)EBADF)); t17=C_mutate2((C_word*)lf[288]+1 /* (set! errno/child ...) */,C_fix((C_word)ECHILD)); t18=C_mutate2((C_word*)lf[289]+1 /* (set! errno/nomem ...) */,C_fix((C_word)ENOMEM)); t19=C_mutate2((C_word*)lf[290]+1 /* (set! errno/acces ...) */,C_fix((C_word)EACCES)); t20=C_mutate2((C_word*)lf[291]+1 /* (set! errno/fault ...) */,C_fix((C_word)EFAULT)); t21=C_mutate2((C_word*)lf[292]+1 /* (set! errno/busy ...) */,C_fix((C_word)EBUSY)); t22=C_mutate2((C_word*)lf[293]+1 /* (set! errno/notdir ...) */,C_fix((C_word)ENOTDIR)); t23=C_mutate2((C_word*)lf[294]+1 /* (set! errno/isdir ...) */,C_fix((C_word)EISDIR)); t24=C_mutate2((C_word*)lf[295]+1 /* (set! errno/inval ...) */,C_fix((C_word)EINVAL)); t25=C_mutate2((C_word*)lf[296]+1 /* (set! errno/mfile ...) */,C_fix((C_word)EMFILE)); t26=C_mutate2((C_word*)lf[297]+1 /* (set! errno/nospc ...) */,C_fix((C_word)ENOSPC)); t27=C_mutate2((C_word*)lf[298]+1 /* (set! errno/spipe ...) */,C_fix((C_word)ESPIPE)); t28=C_mutate2((C_word*)lf[299]+1 /* (set! errno/pipe ...) */,C_fix((C_word)EPIPE)); t29=C_mutate2((C_word*)lf[300]+1 /* (set! errno/again ...) */,C_fix((C_word)EAGAIN)); t30=C_mutate2((C_word*)lf[301]+1 /* (set! errno/rofs ...) */,C_fix((C_word)EROFS)); t31=C_mutate2((C_word*)lf[302]+1 /* (set! errno/exist ...) */,C_fix((C_word)EEXIST)); t32=C_mutate2((C_word*)lf[303]+1 /* (set! errno/wouldblock ...) */,C_fix((C_word)EWOULDBLOCK)); t33=C_set_block_item(lf[304] /* errno/2big */,0,C_fix(0)); t34=C_set_block_item(lf[305] /* errno/deadlk */,0,C_fix(0)); t35=C_set_block_item(lf[306] /* errno/dom */,0,C_fix(0)); t36=C_set_block_item(lf[307] /* errno/fbig */,0,C_fix(0)); t37=C_set_block_item(lf[308] /* errno/ilseq */,0,C_fix(0)); t38=C_set_block_item(lf[309] /* errno/mlink */,0,C_fix(0)); t39=C_set_block_item(lf[310] /* errno/nametoolong */,0,C_fix(0)); t40=C_set_block_item(lf[311] /* errno/nfile */,0,C_fix(0)); t41=C_set_block_item(lf[312] /* errno/nodev */,0,C_fix(0)); t42=C_set_block_item(lf[313] /* errno/nolck */,0,C_fix(0)); t43=C_set_block_item(lf[314] /* errno/nosys */,0,C_fix(0)); t44=C_set_block_item(lf[315] /* errno/notempty */,0,C_fix(0)); t45=C_set_block_item(lf[316] /* errno/notty */,0,C_fix(0)); t46=C_set_block_item(lf[317] /* errno/nxio */,0,C_fix(0)); t47=C_set_block_item(lf[318] /* errno/range */,0,C_fix(0)); t48=C_set_block_item(lf[319] /* errno/xdev */,0,C_fix(0)); t49=C_mutate2((C_word*)lf[320]+1 /* (set! change-file-mode ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6067,a[2]=((C_word)li146),tmp=(C_word)a,a+=3,tmp)); t50=C_mutate2((C_word*)lf[322]+1 /* (set! change-file-owner ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6090,a[2]=((C_word)li147),tmp=(C_word)a,a+=3,tmp)); t51=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6116,a[2]=((C_word)li148),tmp=(C_word)a,a+=3,tmp); t52=C_mutate2((C_word*)lf[324]+1 /* (set! file-read-access? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6136,a[2]=t51,a[3]=((C_word)li149),tmp=(C_word)a,a+=4,tmp)); t53=C_mutate2((C_word*)lf[325]+1 /* (set! file-write-access? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6142,a[2]=t51,a[3]=((C_word)li150),tmp=(C_word)a,a+=4,tmp)); t54=C_mutate2((C_word*)lf[326]+1 /* (set! file-execute-access? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6148,a[2]=t51,a[3]=((C_word)li151),tmp=(C_word)a,a+=4,tmp)); t55=C_mutate2((C_word*)lf[327]+1 /* (set! create-session ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6154,a[2]=((C_word)li152),tmp=(C_word)a,a+=3,tmp)); t56=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6171,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t57=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8575,a[2]=((C_word)li248),tmp=(C_word)a,a+=3,tmp); t58=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8593,a[2]=((C_word)li249),tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:1049: getter-with-setter */ t59=*((C_word*)lf[450]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t59; av2[1]=t56; av2[2]=t57; av2[3]=t58; av2[4]=lf[451]; ((C_proc)(void*)(*((C_word*)t59+1)))(5,av2);}} /* k7634 in k7628 in k7624 in utc-time->seconds in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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);} if(C_truep(t1)){ /* posixunix.scm:1454: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[400]; av2[3]=lf[401]; 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7628 in k7624 in utc-time->seconds in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_7630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7630,2,av);} a=C_alloc(9); t2=C_a_timegm(&a,2,((C_word*)t0)[2],t1); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7636,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1453: fp= */ t4=*((C_word*)lf[113]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[114]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5668 in system-information in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5670,2,av);} /* posixunix.scm:818: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[259]; av2[3]=lf[261]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_5677,2,av);} a=C_alloc(9); t2=C_mutate2((C_word*)lf[262]+1 /* (set! current-user-id ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5681,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8653,a[2]=((C_word)li254),tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8656,a[2]=((C_word)li255),tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:835: getter-with-setter */ t6=*((C_word*)lf[450]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=t5; av2[4]=lf[460]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* file-write in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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,5)))){ C_save_and_reclaim((void*)f_4757,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_exact_2(t2,lf[191]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4764,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_blockp(t3))){ if(C_truep(C_byteblockp(t3))){ t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_4764(2,av2);}} else{ /* posixunix.scm:509: ##sys#signal-hook */ t7=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t6; av2[2]=lf[13]; av2[3]=lf[191]; av2[4]=lf[193]; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}} else{ /* posixunix.scm:509: ##sys#signal-hook */ t7=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t6; av2[2]=lf[13]; av2[3]=lf[191]; av2[4]=lf[193]; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}} /* local-timezone-abbreviation in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_7641,2,av);} a=C_alloc(5); t2=C_a_i_bytevector(&a,1,C_fix(3)); t3=stub1812(t2); /* posixunix.scm:1458: ##sys#peek-c-string */ t4=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5662 in k5658 in k5654 in k5650 in k5646 in k5639 in system-information in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ C_save_and_reclaim((void *)f_5664,2,av);} a=C_alloc(15); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k5658 in k5654 in k5650 in k5646 in k5639 in system-information in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_5660,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5664,a[2]=((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-nonnull-c-string */ t4=*((C_word*)lf[260]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_utsname.machine); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k4724 in file-read in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_4726,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4729,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_4729(2,av2);}} else{ /* posixunix.scm:499: ##sys#signal-hook */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[13]; av2[3]=lf[188]; av2[4]=lf[190]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} else{ /* posixunix.scm:499: ##sys#signal-hook */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[13]; av2[3]=lf[188]; av2[4]=lf[190]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} /* k4727 in k4724 in file-read in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_4729,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_4732,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:502: posix-error */ t5=lf[0];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t3; av2[2]=lf[8]; av2[3]=lf[188]; av2[4]=lf[189]; av2[5]=((C_word*)t0)[2]; av2[6]=((C_word*)t0)[4]; f_2704(7,av2);}} else{ t5=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ 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);}}} /* a8655 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8656(C_word c,C_word *av){ C_word tmp; C_word 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_8656,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_8666,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:839: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[5]+1); av2[1]=t4; tp(2,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k7612 in k7604 in k7600 in string->time in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_7614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7614,2,av);} t2=((C_word*)t0)[2]; if(C_truep(t1)){ t3=C_i_foreign_block_argumentp(t1); t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=stub1783(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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=stub1783(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);}}} /* a8652 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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!=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_8653,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=stub1214(C_SCHEME_UNDEFINED); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8645 in a8636 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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,4)))){ C_save_and_reclaim((void *)f_8647,2,av);} /* posixunix.scm:850: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[455]; av2[3]=lf[456]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4730 in k4727 in k4724 in file-read in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_4732,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k7624 in utc-time->seconds in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_7626(C_word c,C_word *av){ C_word tmp; C_word t0=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_7626,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7630,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1452: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[72]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[72]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_make_character(0); tp(4,av2);}} /* utc-time->seconds in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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!=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_7622,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7626,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1451: check-time-vector */ f_3908(t3,lf[400],t2);} /* a4505 in a4499 in a4493 in k4484 in k4478 in call-with-exec-args in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; 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_4506,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4510,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:736: free-c-string-buffer */ f_4440(t2,((C_word*)t0)[4]);} /* k5639 in system-information in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5641,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5648,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-nonnull-c-string */ t3=*((C_word*)lf[260]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_utsname.sysname); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a4499 in a4493 in k4484 in k4478 in call-with-exec-args in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_4500,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4506,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li84),tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:726: k722 */ t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k7677 in set-buffering-mode! in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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(5,c,2)))){ C_save_and_reclaim((void *)f_7679,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7682,a[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_7682(t4,C_u_i_car(t3));} else{ t3=t2; f_7682(t3,C_fix((C_word)BUFSIZ));}} /* k5646 in k5639 in system-information in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_5648,2,av);} a=C_alloc(7); 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); /* ##sys#peek-nonnull-c-string */ t4=*((C_word*)lf[260]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_utsname.nodename); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a8674 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8675(C_word c,C_word *av){ C_word tmp; C_word 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_8675,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_8685,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:830: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[5]+1); av2[1]=t4; tp(2,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a4549 in a4543 in a4520 in a4493 in k4484 in k4478 in call-with-exec-args in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4550(C_word c,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_4550,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* set-buffering-mode! in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_7675,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_7679,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:1485: ##sys#check-port */ t6=*((C_word*)lf[411]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=lf[405]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* ##sys#file-nonblocking! in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_4556(C_word c,C_word *av){ C_word tmp; C_word 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_4556,3,av);} t3=C_i_foreign_fixnum_argumentp(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=stub788(C_SCHEME_UNDEFINED,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* system-information in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_5637,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5641,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fixnum_lessp(C_fix((C_word)C_uname),C_fix(0)))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5670,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:817: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[5]+1); av2[1]=t3; tp(2,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5641(2,av2);}}} /* a8671 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_8672(C_word c,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_8672,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=stub1209(C_SCHEME_UNDEFINED); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2678 in k2675 */ 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,2)))){ 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);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_2689(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2689,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2692,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_lolevel_toplevel(2,av2);}} /* k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_2686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2686,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2689,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_ports_toplevel(2,av2);}} /* k2681 in k2678 in k2675 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2683,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2686,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_files_toplevel(2,av2);}} /* k8664 in a8655 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8666,2,av);} /* posixunix.scm:840: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[458]; av2[3]=lf[459]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* create-fifo in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_7353,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[375]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7360,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_7360(t7,C_u_i_car(t6));} else{ t6=C_fixnum_or(C_fix((C_word)S_IRWXG),C_fix((C_word)S_IRWXO)); t7=t5; f_7360(t7,C_fixnum_or(C_fix((C_word)S_IRWXU),t6));}} /* k7680 in k7677 in set-buffering-mode! in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_7682(C_word t0,C_word t1){ C_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,5)))){ C_save_and_reclaim_args((void *)trf_7682,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_7685,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=C_eqp(t3,lf[407]); if(C_truep(t5)){ t6=t4;{ C_word av2[2]; av2[0]=t6; av2[1]=C_fix((C_word)_IOFBF); f_7685(2,av2);}} else{ t6=C_eqp(t3,lf[408]); if(C_truep(t6)){ t7=C_fix((C_word)_IOLBF); t8=t4;{ C_word av2[2]; av2[0]=t8; av2[1]=t7; f_7685(2,av2);}} else{ t7=C_eqp(t3,lf[409]); if(C_truep(t7)){ t8=t4;{ C_word av2[2]; av2[0]=t8; av2[1]=C_fix((C_word)_IONBF); f_7685(2,av2);}} else{ /* posixunix.scm:1491: ##sys#error */ t8=*((C_word*)lf[50]+1);{ C_word av2[6]; av2[0]=t8; av2[1]=t4; av2[2]=lf[405]; av2[3]=lf[410]; av2[4]=((C_word*)t0)[2]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}}}}} /* ##sys#file-select-one in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_4563,3,av);} t3=C_i_foreign_fixnum_argumentp(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=stub793(C_SCHEME_UNDEFINED,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7683 in k7680 in k7677 in set-buffering-mode! in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_7685,2,av);} a=C_alloc(6); t2=t1; t3=C_i_check_exact_2(((C_word*)t0)[2],lf[405]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7694,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); t5=C_slot(((C_word*)t0)[4],C_fix(7)); t6=C_eqp(lf[43],t5); if(C_truep(t6)){ t7=C_setvbuf(((C_word*)t0)[4],t2,((C_word*)t0)[2]); t8=t4; f_7694(t8,C_fixnum_lessp(t7,C_fix(0)));} else{ t7=t4; f_7694(t7,C_SCHEME_TRUE);}} /* signal-unmask! in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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(0,c,4)))){ C_save_and_reclaim((void *)f_5621,3,av);} t3=C_i_check_exact_2(t2,lf[257]); t4=C_sigemptyset(C_fix(0)); t5=C_sigaddset(t2); t6=C_sigprocmask_unblock(C_fix(0)); if(C_truep(C_fixnum_lessp(t6,C_fix(0)))){ /* posixunix.scm:802: posix-error */ t7=lf[0];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t1; av2[2]=lf[127]; av2[3]=lf[257]; av2[4]=lf[258]; f_2704(5,av2);}} else{ t7=C_SCHEME_UNDEFINED; t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* ##sys#custom-output-port in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_6888,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[346]+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_6910,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:1251: ##sys#file-nonblocking! */ t21=*((C_word*)lf[143]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t21; av2[1]=C_SCHEME_UNDEFINED; f_6910(2,av2);}}} /* k2675 */ static void C_ccall f_2677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2677,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2680,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_irregex_toplevel(2,av2);}} /* k8419 in %process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_8421,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8424,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:1728: chkstrlst */ t3=((C_word*)t0)[9]; f_8380(t3,t2,((C_word*)t0)[5]);} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_8424(2,av2);}}} /* k4529 in a4526 in a4520 in a4493 in k4484 in k4478 in call-with-exec-args in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_4531(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_4531,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4538,a[2]=((C_word*)t0)[2],a[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:744: ##sys#make-c-string */ {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]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; tp(4,av2);}} /* k8422 in k8419 in %process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_8424,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8429,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li242),tmp=(C_word)a,a+=8,tmp); /* posixunix.scm:1729: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* _exit in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_7654,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; if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=t1; t6=C_i_foreign_fixnum_argumentp(t4); t7=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=stub1818(C_SCHEME_UNDEFINED,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t3=t1; t4=C_i_foreign_fixnum_argumentp(C_fix(0)); t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=stub1818(C_SCHEME_UNDEFINED,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* set-alarm! in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_7668,3,av);} t3=C_i_foreign_fixnum_argumentp(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=stub1824(C_SCHEME_UNDEFINED,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4536 in k4529 in a4526 in a4520 in a4493 in k4484 in k4478 in call-with-exec-args in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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,4)))){ C_save_and_reclaim((void *)f_4538,2,av);} /* posix-common.scm:744: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* user-information in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_5691,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_5698,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnump(t2))){ t8=t7; f_5698(t8,C_getpwuid(t2));} else{ t8=C_i_check_string_2(t2,lf[266]); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5737,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:876: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t9; av2[2]=t2; av2[3]=lf[266]; tp(4,av2);}}} /* k5696 in user-information in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_5698(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_5698,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(C_truep(((C_word*)t0)[2])?*((C_word*)lf[267]+1):*((C_word*)lf[268]+1)); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5711,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[260]+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);}}} /* a8428 in k8422 in k8419 in %process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_8429,2,av);} /* posixunix.scm:1730: ##sys#process */ t2=*((C_word*)lf[441]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)((C_word*)t0)[3])[1]; av2[4]=((C_word*)((C_word*)t0)[4])[1]; av2[5]=((C_word*)t0)[5]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_TRUE; av2[8]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} /* k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_2692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,6)))){ C_save_and_reclaim((void *)f_2692,2,av);} a=C_alloc(18); t2=C_mutate2(&lf[0] /* (set! posix-error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2704,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[6]+1 /* (set! ##sys#posix-error ...) */,lf[0]); t4=C_mutate2(&lf[7] /* (set! ##sys#stat ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2722,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[16]+1 /* (set! file-stat ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2772,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2792,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8802,a[2]=((C_word)li264),tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8808,a[2]=((C_word)li265),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:252: getter-with-setter */ t9=*((C_word*)lf[450]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t6; av2[2]=t7; av2[3]=t8; av2[4]=lf[469]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* k3814 in k3715 in k3706 in loop in k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3816,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3823,a[2]=((C_word*)t0)[2],a[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:549: action */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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{ /* posix-common.scm:550: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3695(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[8]);}} /* k8441 in %process in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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(4,c,2)))){ C_save_and_reclaim((void *)f_8443,2,av);} a=C_alloc(4); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8447,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1727: ##sys#shell-command */ t4=*((C_word*)lf[433]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7300 in file-test-lock in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7302,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=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=(C_truep(t4)?C_SCHEME_FALSE:t2); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* posixunix.scm:1352: err */ f_7248(((C_word*)t0)[3],lf[372],t1,lf[371]);}} /* create-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_5501,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5505,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=C_pipe(C_SCHEME_FALSE); if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ /* posixunix.scm:691: posix-error */ t4=lf[0];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[8]; av2[3]=lf[221]; av2[4]=lf[222]; f_2704(5,av2);}} else{ /* posixunix.scm:692: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k5503 in create-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5505,2,av);} /* posixunix.scm:692: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7358 in create-fifo in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_7360(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_7360,2,t0,t1);} a=C_alloc(5); t2=t1; t3=C_i_check_exact_2(t2,lf[375]); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7377,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1369: ##sys#make-c-string */ {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]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=lf[375]; tp(4,av2);}} /* k5650 in k5646 in k5639 in system-information in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; 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=t1; t3=(*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]=t2,tmp=(C_word)a,a+=5,tmp); /* ##sys#peek-nonnull-c-string */ t4=*((C_word*)lf[260]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_utsname.release); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5654 in k5650 in k5646 in k5639 in system-information in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_5656,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5660,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[260]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_utsname.version); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a5495 in k5469 in with-output-to-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_5496,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[220]+1)); t3=C_mutate2((C_word*)lf[220]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5489 in a5486 in a5480 in k5469 in with-output-to-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5491,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7375 in k7358 in create-fifo in k6200 in k6169 in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_7377,2,av);} t2=C_mkfifo(t1,((C_word*)t0)[2]); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ /* posixunix.scm:1370: posix-error */ t3=lf[0];{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[8]; av2[3]=lf[375]; av2[4]=lf[376]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[2]; f_2704(7,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a5475 in k5469 in with-output-to-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 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_5476,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[220]+1)); t3=C_mutate2((C_word*)lf[220]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5469 in with-output-to-pipe in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_5471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_5471,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_5476,a[2]=t6,a[3]=t4,a[4]=((C_word)li124),tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5481,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li126),tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5496,a[2]=t4,a[3]=t6,a[4]=((C_word)li127),tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:677: ##sys#dynamic-wind */ t10=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3805 in k3715 in k3706 in loop in k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 in ... */ 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 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_3807,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_3739,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_3742,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); /* posix-common.scm:540: pproc */ t5=((C_word*)t0)[10];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_3751,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); /* posix-common.scm:541: lproc */ t4=((C_word*)t0)[13];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k5717 in k5713 in k5709 in k5696 in user-information in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_5719,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5723,a[2]=((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[4]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5713 in k5709 in k5696 in user-information in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_5715,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,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]=t2,tmp=(C_word)a,a+=6,tmp); /* ##sys#peek-nonnull-c-string */ t4=*((C_word*)lf[260]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5709 in k5696 in user-information in k5687 in k5683 in k5679 in k5675 in k5595 in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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(8,c,3)))){ C_save_and_reclaim((void *)f_5711,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5715,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[260]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3799 in k3749 in k3805 in k3715 in k3706 in loop in k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in ... */ static void C_ccall f_3801(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3801,2,av);} if(C_truep(t1)){ /* posix-common.scm:548: action */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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]; /* posix-common.scm:548: loop */ t3=((C_word*)((C_word*)t0)[6])[1]; f_3695(t3,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],t2);}} /* k3349 in k3346 in loop in k3337 in k3327 in create-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_ccall f_3351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3351,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_3367,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:450: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t4; av2[2]=t3; av2[3]=lf[79]; tp(4,av2);}} /* nop in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_4474,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3821 in k3814 in k3715 in k3706 in loop in k3691 in k3684 in k3681 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3823,2,av);} /* posix-common.scm:549: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3695(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* lp in k5066 in k4842 in k4834 in k4831 in k4828 in file-select in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_5007(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_5007,5,t0,t1,t2,t3,t4);} a=C_alloc(7); if(C_truep(C_i_nullp(t4))){ /* posixunix.scm:565: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[198]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[198]+1); av2[1]=t1; av2[2]=t3; tp(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5036,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_5036(t9,stub995(C_SCHEME_UNDEFINED,t7,t8));} else{ t8=t5; f_5036(t8,stub995(C_SCHEME_UNDEFINED,t7,C_SCHEME_FALSE));}}} /* a4279 in process-wait in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_4280,5,av);} t5=C_eqp(t2,C_fix(-1)); if(C_truep(t5)){ /* posix-common.scm:681: posix-error */ t6=lf[0];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=lf[127]; av2[3]=lf[125]; av2[4]=lf[128]; av2[5]=((C_word*)t0)[2]; f_2704(6,av2);}} else{ /* posix-common.scm:682: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; C_values(5,av2);}}} /* a3898 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *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_3899,2,av);} a=C_alloc(3); t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3901,a[2]=((C_word)li53),tmp=(C_word)a,a+=3,tmp); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3346 in loop in k3337 in k3327 in create-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_3348(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_3348,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3351,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_3374,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:462: pathname-directory */ t4=*((C_word*)lf[81]+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);}}} /* loop in k3337 in k3327 in create-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_3341(C_word t0,C_word t1,C_word 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_3341,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3348,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_3381,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:461: directory? */ t5=*((C_word*)lf[37]+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_3348(t4,C_SCHEME_FALSE);}} /* k4478 in call-with-exec-args in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_4480,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_4486,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:731: list->c-string-buffer */ f_4321(t3,t2,((C_word*)t0)[9],((C_word*)t0)[6]);} /* f_3893 in a3890 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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=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_3893,4,av);} a=C_alloc(3); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a3890 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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(3,c,4)))){ C_save_and_reclaim((void *)f_3891,2,av);} a=C_alloc(3); t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3893,a[2]=((C_word)li51),tmp=(C_word)a,a+=3,tmp); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_3849 in k3872 in k3869 in k3866 in k3863 in k3860 in k3857 in find-files in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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; 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; /* Re-use our own argvector */ 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);}} /* call-with-exec-args in k4240 in k3904 in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ static void C_fcall f_4476(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_4476,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(10); t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4480,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:729: 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);}} /* k3337 in k3327 in create-directory in k3031 in k2790 in k2690 in k2687 in k2684 in k2681 in k2678 in k2675 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3339,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_3341,a[2]=t3,a[3]=((C_word)li28),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_3341(t5,((C_word*)t0)[2],t1);} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[621] = { {"f_4494:posixunix_2escm",(void*)f_4494}, {"f_3841:posixunix_2escm",(void*)f_3841}, {"f_4489:posixunix_2escm",(void*)f_4489}, {"f_4486:posixunix_2escm",(void*)f_4486}, {"f_8725:posixunix_2escm",(void*)f_8725}, {"f_6498:posixunix_2escm",(void*)f_6498}, {"f_5418:posixunix_2escm",(void*)f_5418}, {"f_5413:posixunix_2escm",(void*)f_5413}, {"f_3832:posixunix_2escm",(void*)f_3832}, {"f_3833:posixunix_2escm",(void*)f_3833}, {"f_6495:posixunix_2escm",(void*)f_6495}, {"f_4274:posixunix_2escm",(void*)f_4274}, {"f_3868:posixunix_2escm",(void*)f_3868}, {"f_3313:posixunix_2escm",(void*)f_3313}, {"f_6621:posixunix_2escm",(void*)f_6621}, {"f_5771:posixunix_2escm",(void*)f_5771}, {"f_6623:posixunix_2escm",(void*)f_6623}, {"f_3865:posixunix_2escm",(void*)f_3865}, {"f_3862:posixunix_2escm",(void*)f_3862}, {"f_7744:posixunix_2escm",(void*)f_7744}, {"f_7024:posixunix_2escm",(void*)f_7024}, {"f_6671:posixunix_2escm",(void*)f_6671}, {"f_5767:posixunix_2escm",(void*)f_5767}, {"f_3888:posixunix_2escm",(void*)f_3888}, {"f_7756:posixunix_2escm",(void*)f_7756}, {"f_5791:posixunix_2escm",(void*)f_5791}, {"f_8734:posixunix_2escm",(void*)f_8734}, {"f_5428:posixunix_2escm",(void*)f_5428}, {"f_5424:posixunix_2escm",(void*)f_5424}, {"f_3885:posixunix_2escm",(void*)f_3885}, {"f_3882:posixunix_2escm",(void*)f_3882}, {"f_3879:posixunix_2escm",(void*)f_3879}, {"f_3367:posixunix_2escm",(void*)f_3367}, {"f_8618:posixunix_2escm",(void*)f_8618}, {"f_7004:posixunix_2escm",(void*)f_7004}, {"f_8615:posixunix_2escm",(void*)f_8615}, {"f_5784:posixunix_2escm",(void*)f_5784}, {"f_6613:posixunix_2escm",(void*)f_6613}, {"f_3874:posixunix_2escm",(void*)f_3874}, {"f_3871:posixunix_2escm",(void*)f_3871}, {"f_7738:posixunix_2escm",(void*)f_7738}, {"f_5737:posixunix_2escm",(void*)f_5737}, {"f_4209:posixunix_2escm",(void*)f_4209}, {"f_8609:posixunix_2escm",(void*)f_8609}, {"f_4908:posixunix_2escm",(void*)f_4908}, {"f_5487:posixunix_2escm",(void*)f_5487}, {"f_5481:posixunix_2escm",(void*)f_5481}, {"f_5081:posixunix_2escm",(void*)f_5081}, {"f_4205:posixunix_2escm",(void*)f_4205}, {"f_8637:posixunix_2escm",(void*)f_8637}, {"f_8634:posixunix_2escm",(void*)f_8634}, {"f_5723:posixunix_2escm",(void*)f_5723}, {"f_5727:posixunix_2escm",(void*)f_5727}, {"f_4918:posixunix_2escm",(void*)f_4918}, {"f_4911:posixunix_2escm",(void*)f_4911}, {"f_5079:posixunix_2escm",(void*)f_5079}, {"f_8628:posixunix_2escm",(void*)f_8628}, {"f_5753:posixunix_2escm",(void*)f_5753}, {"f_6602:posixunix_2escm",(void*)f_6602}, {"f_5757:posixunix_2escm",(void*)f_5757}, {"f_4227:posixunix_2escm",(void*)f_4227}, {"f_5759:posixunix_2escm",(void*)f_5759}, {"f_5068:posixunix_2escm",(void*)f_5068}, {"f_3329:posixunix_2escm",(void*)f_3329}, {"f_3323:posixunix_2escm",(void*)f_3323}, {"f_5745:posixunix_2escm",(void*)f_5745}, {"f_7205:posixunix_2escm",(void*)f_7205}, {"f_6067:posixunix_2escm",(void*)f_6067}, {"f_6429:posixunix_2escm",(void*)f_6429}, {"f_4434:posixunix_2escm",(void*)f_4434}, {"f_3859:posixunix_2escm",(void*)f_3859}, {"f_6437:posixunix_2escm",(void*)f_6437}, {"f_4440:posixunix_2escm",(void*)f_4440}, {"f_7266:posixunix_2escm",(void*)f_7266}, {"f_4444:posixunix_2escm",(void*)f_4444}, {"f_3855:posixunix_2escm",(void*)f_3855}, {"f_5036:posixunix_2escm",(void*)f_5036}, {"f_3901:posixunix_2escm",(void*)f_3901}, {"f_3906:posixunix_2escm",(void*)f_3906}, {"f_4449:posixunix_2escm",(void*)f_4449}, {"f_3908:posixunix_2escm",(void*)f_3908}, {"f_7248:posixunix_2escm",(void*)f_7248}, {"f_6026:posixunix_2escm",(void*)f_6026}, {"f_3281:posixunix_2escm",(void*)f_3281}, {"f_7298:posixunix_2escm",(void*)f_7298}, {"f_3276:posixunix_2escm",(void*)f_3276}, {"f_3273:posixunix_2escm",(void*)f_3273}, {"f_7270:posixunix_2escm",(void*)f_7270}, {"f_4977:posixunix_2escm",(void*)f_4977}, {"f_3291:posixunix_2escm",(void*)f_3291}, {"f_4423:posixunix_2escm",(void*)f_4423}, {"f_7282:posixunix_2escm",(void*)f_7282}, {"f_7286:posixunix_2escm",(void*)f_7286}, {"f_4417:posixunix_2escm",(void*)f_4417}, {"f_4948:posixunix_2escm",(void*)f_4948}, {"f_3927:posixunix_2escm",(void*)f_3927}, {"f_3952:posixunix_2escm",(void*)f_3952}, {"f_3983:posixunix_2escm",(void*)f_3983}, {"f_6443:posixunix_2escm",(void*)f_6443}, {"f_3989:posixunix_2escm",(void*)f_3989}, {"f_3931:posixunix_2escm",(void*)f_3931}, {"f_4462:posixunix_2escm",(void*)f_4462}, {"f_4459:posixunix_2escm",(void*)f_4459}, {"f_6917:posixunix_2escm",(void*)f_6917}, {"f_6911:posixunix_2escm",(void*)f_6911}, {"f_6910:posixunix_2escm",(void*)f_6910}, {"f_3209:posixunix_2escm",(void*)f_3209}, {"f_3206:posixunix_2escm",(void*)f_3206}, {"f_6465:posixunix_2escm",(void*)f_6465}, {"f_7836:posixunix_2escm",(void*)f_7836}, {"f_6462:posixunix_2escm",(void*)f_6462}, {"f_7840:posixunix_2escm",(void*)f_7840}, {"f_3227:posixunix_2escm",(void*)f_3227}, {"f_7815:posixunix_2escm",(void*)f_7815}, {"f_6400:posixunix_2escm",(void*)f_6400}, {"f_7811:posixunix_2escm",(void*)f_7811}, {"f_6404:posixunix_2escm",(void*)f_6404}, {"f_7848:posixunix_2escm",(void*)f_7848}, {"f_4407:posixunix_2escm",(void*)f_4407}, {"f_3979:posixunix_2escm",(void*)f_3979}, {"f_8153:posixunix_2escm",(void*)f_8153}, {"f_8159:posixunix_2escm",(void*)f_8159}, {"f_8157:posixunix_2escm",(void*)f_8157}, {"f_6967:posixunix_2escm",(void*)f_6967}, {"f_6936:posixunix_2escm",(void*)f_6936}, {"f_7893:posixunix_2escm",(void*)f_7893}, {"f_8174:posixunix_2escm",(void*)f_8174}, {"f_6693:posixunix_2escm",(void*)f_6693}, {"f_6994:posixunix_2escm",(void*)f_6994}, {"f_4116:posixunix_2escm",(void*)f_4116}, {"f_8110:posixunix_2escm",(void*)f_8110}, {"f_7787:posixunix_2escm",(void*)f_7787}, {"toplevel:posixunix_2escm",(void*)C_posix_toplevel}, {"f_7484:posixunix_2escm",(void*)f_7484}, {"f_8103:posixunix_2escm",(void*)f_8103}, {"f_8107:posixunix_2escm",(void*)f_8107}, {"f_6977:posixunix_2escm",(void*)f_6977}, {"f_6689:posixunix_2escm",(void*)f_6689}, {"f_7497:posixunix_2escm",(void*)f_7497}, {"f_3948:posixunix_2escm",(void*)f_3948}, {"f_6982:posixunix_2escm",(void*)f_6982}, {"f_6988:posixunix_2escm",(void*)f_6988}, {"f_6986:posixunix_2escm",(void*)f_6986}, {"f_6114:posixunix_2escm",(void*)f_6114}, {"f_6116:posixunix_2escm",(void*)f_6116}, {"f_4197:posixunix_2escm",(void*)f_4197}, {"f_8194:posixunix_2escm",(void*)f_8194}, {"f_5289:posixunix_2escm",(void*)f_5289}, {"f_5275:posixunix_2escm",(void*)f_5275}, {"f_5273:posixunix_2escm",(void*)f_5273}, {"f_6126:posixunix_2escm",(void*)f_6126}, {"f_4161:posixunix_2escm",(void*)f_4161}, {"f_8180:posixunix_2escm",(void*)f_8180}, {"f_4167:posixunix_2escm",(void*)f_4167}, {"f_4171:posixunix_2escm",(void*)f_4171}, {"f_4179:posixunix_2escm",(void*)f_4179}, {"f_4141:posixunix_2escm",(void*)f_4141}, {"f_4149:posixunix_2escm",(void*)f_4149}, {"f_6154:posixunix_2escm",(void*)f_6154}, {"f_6158:posixunix_2escm",(void*)f_6158}, {"f_5442:posixunix_2escm",(void*)f_5442}, {"f_5447:posixunix_2escm",(void*)f_5447}, {"f_6164:posixunix_2escm",(void*)f_6164}, {"f_4124:posixunix_2escm",(void*)f_4124}, {"f_7907:posixunix_2escm",(void*)f_7907}, {"f_8365:posixunix_2escm",(void*)f_8365}, {"f_7911:posixunix_2escm",(void*)f_7911}, {"f_6136:posixunix_2escm",(void*)f_6136}, {"f_8361:posixunix_2escm",(void*)f_8361}, {"f_6134:posixunix_2escm",(void*)f_6134}, {"f_3088:posixunix_2escm",(void*)f_3088}, {"f_4135:posixunix_2escm",(void*)f_4135}, {"f_4139:posixunix_2escm",(void*)f_4139}, {"f_7915:posixunix_2escm",(void*)f_7915}, {"f_8353:posixunix_2escm",(void*)f_8353}, {"f_6142:posixunix_2escm",(void*)f_6142}, {"f_6148:posixunix_2escm",(void*)f_6148}, {"f_5453:posixunix_2escm",(void*)f_5453}, {"f_8357:posixunix_2escm",(void*)f_8357}, {"f_5457:posixunix_2escm",(void*)f_5457}, {"f_7056:posixunix_2escm",(void*)f_7056}, {"f_5207:posixunix_2escm",(void*)f_5207}, {"f_8380:posixunix_2escm",(void*)f_8380}, {"f_8385:posixunix_2escm",(void*)f_8385}, {"f_6198:posixunix_2escm",(void*)f_6198}, {"f_7973:posixunix_2escm",(void*)f_7973}, {"f_5400:posixunix_2escm",(void*)f_5400}, {"f_7976:posixunix_2escm",(void*)f_7976}, {"f_6194:posixunix_2escm",(void*)f_6194}, {"f_5409:posixunix_2escm",(void*)f_5409}, {"f_5404:posixunix_2escm",(void*)f_5404}, {"f_7066:posixunix_2escm",(void*)f_7066}, {"f_5433:posixunix_2escm",(void*)f_5433}, {"f_8378:posixunix_2escm",(void*)f_8378}, {"f_5437:posixunix_2escm",(void*)f_5437}, {"f_4250:posixunix_2escm",(void*)f_4250}, {"f_7038:posixunix_2escm",(void*)f_7038}, {"f_7039:posixunix_2escm",(void*)f_7039}, {"f_6173:posixunix_2escm",(void*)f_6173}, {"f_6171:posixunix_2escm",(void*)f_6171}, {"f_5462:posixunix_2escm",(void*)f_5462}, {"f_7955:posixunix_2escm",(void*)f_7955}, {"f_5467:posixunix_2escm",(void*)f_5467}, {"f_8133:posixunix_2escm",(void*)f_8133}, {"f_8015:posixunix_2escm",(void*)f_8015}, {"f_8394:posixunix_2escm",(void*)f_8394}, {"f_8129:posixunix_2escm",(void*)f_8129}, {"f_7016:posixunix_2escm",(void*)f_7016}, {"f_3487:posixunix_2escm",(void*)f_3487}, {"f_4242:posixunix_2escm",(void*)f_4242}, {"f_4244:posixunix_2escm",(void*)f_4244}, {"f_3473:posixunix_2escm",(void*)f_3473}, {"f_7852:posixunix_2escm",(void*)f_7852}, {"f_7855:posixunix_2escm",(void*)f_7855}, {"f_5296:posixunix_2escm",(void*)f_5296}, {"f_8053:posixunix_2escm",(void*)f_8053}, {"f_8056:posixunix_2escm",(void*)f_8056}, {"f_3499:posixunix_2escm",(void*)f_3499}, {"f_7862:posixunix_2escm",(void*)f_7862}, {"f_8300:posixunix_2escm",(void*)f_8300}, {"f_8304:posixunix_2escm",(void*)f_8304}, {"f_8322:posixunix_2escm",(void*)f_8322}, {"f_8328:posixunix_2escm",(void*)f_8328}, {"f_7472:posixunix_2escm",(void*)f_7472}, {"f_8092:posixunix_2escm",(void*)f_8092}, {"f_7468:posixunix_2escm",(void*)f_7468}, {"f_8311:posixunix_2escm",(void*)f_8311}, {"f_8315:posixunix_2escm",(void*)f_8315}, {"f_3233:posixunix_2escm",(void*)f_3233}, {"f_7478:posixunix_2escm",(void*)f_7478}, {"f_7475:posixunix_2escm",(void*)f_7475}, {"f_8097:posixunix_2escm",(void*)f_8097}, {"f_8345:posixunix_2escm",(void*)f_8345}, {"f_8349:posixunix_2escm",(void*)f_8349}, {"f_5389:posixunix_2escm",(void*)f_5389}, {"f_5385:posixunix_2escm",(void*)f_5385}, {"f_8334:posixunix_2escm",(void*)f_8334}, {"f_3237:posixunix_2escm",(void*)f_3237}, {"f_5377:posixunix_2escm",(void*)f_5377}, {"f_5370:posixunix_2escm",(void*)f_5370}, {"f_3267:posixunix_2escm",(void*)f_3267}, {"f_3412:posixunix_2escm",(void*)f_3412}, {"f_3257:posixunix_2escm",(void*)f_3257}, {"f_3256:posixunix_2escm",(void*)f_3256}, {"f_4382:posixunix_2escm",(void*)f_4382}, {"f_6399:posixunix_2escm",(void*)f_6399}, {"f_6393:posixunix_2escm",(void*)f_6393}, {"f_4388:posixunix_2escm",(void*)f_4388}, {"f_8088:posixunix_2escm",(void*)f_8088}, {"f_8802:posixunix_2escm",(void*)f_8802}, {"f_8808:posixunix_2escm",(void*)f_8808}, {"f_8806:posixunix_2escm",(void*)f_8806}, {"f_4391:posixunix_2escm",(void*)f_4391}, {"f_3038:posixunix_2escm",(void*)f_3038}, {"f_8828:posixunix_2escm",(void*)f_8828}, {"f_3033:posixunix_2escm",(void*)f_3033}, {"f_8818:posixunix_2escm",(void*)f_8818}, {"f_6737:posixunix_2escm",(void*)f_6737}, {"f_5306:posixunix_2escm",(void*)f_5306}, {"f_3006:posixunix_2escm",(void*)f_3006}, {"f_6717:posixunix_2escm",(void*)f_6717}, {"f_3000:posixunix_2escm",(void*)f_3000}, {"f_3075:posixunix_2escm",(void*)f_3075}, {"f_5329:posixunix_2escm",(void*)f_5329}, {"f_5394:posixunix_2escm",(void*)f_5394}, {"f_6702:posixunix_2escm",(void*)f_6702}, {"f_6707:posixunix_2escm",(void*)f_6707}, {"f_3090:posixunix_2escm",(void*)f_3090}, {"f_5123:posixunix_2escm",(void*)f_5123}, {"f_3046:posixunix_2escm",(void*)f_3046}, {"f_8031:posixunix_2escm",(void*)f_8031}, {"f_6324:posixunix_2escm",(void*)f_6324}, {"f_6328:posixunix_2escm",(void*)f_6328}, {"f_8063:posixunix_2escm",(void*)f_8063}, {"f_8067:posixunix_2escm",(void*)f_8067}, {"f_3596:posixunix_2escm",(void*)f_3596}, {"f_3590:posixunix_2escm",(void*)f_3590}, {"f_4673:posixunix_2escm",(void*)f_4673}, {"f_4670:posixunix_2escm",(void*)f_4670}, {"f_4685:posixunix_2escm",(void*)f_4685}, {"f_3575:posixunix_2escm",(void*)f_3575}, {"f_4694:posixunix_2escm",(void*)f_4694}, {"f_4620:posixunix_2escm",(void*)f_4620}, {"f_2911:posixunix_2escm",(void*)f_2911}, {"f_2919:posixunix_2escm",(void*)f_2919}, {"f_4657:posixunix_2escm",(void*)f_4657}, {"f_4653:posixunix_2escm",(void*)f_4653}, {"f_6363:posixunix_2escm",(void*)f_6363}, {"f_6365:posixunix_2escm",(void*)f_6365}, {"f_5260:posixunix_2escm",(void*)f_5260}, {"f_3509:posixunix_2escm",(void*)f_3509}, {"f_6343:posixunix_2escm",(void*)f_6343}, {"f_5233:posixunix_2escm",(void*)f_5233}, {"f_2921:posixunix_2escm",(void*)f_2921}, {"f_2929:posixunix_2escm",(void*)f_2929}, {"f_5226:posixunix_2escm",(void*)f_5226}, {"f_5217:posixunix_2escm",(void*)f_5217}, {"f_5214:posixunix_2escm",(void*)f_5214}, {"f_2941:posixunix_2escm",(void*)f_2941}, {"f_2949:posixunix_2escm",(void*)f_2949}, {"f_3449:posixunix_2escm",(void*)f_3449}, {"f_2931:posixunix_2escm",(void*)f_2931}, {"f_2939:posixunix_2escm",(void*)f_2939}, {"f_8259:posixunix_2escm",(void*)f_8259}, {"f_3434:posixunix_2escm",(void*)f_3434}, {"f_2961:posixunix_2escm",(void*)f_2961}, {"f_8255:posixunix_2escm",(void*)f_8255}, {"f_3430:posixunix_2escm",(void*)f_3430}, {"f_2969:posixunix_2escm",(void*)f_2969}, {"f_7791:posixunix_2escm",(void*)f_7791}, {"f_8241:posixunix_2escm",(void*)f_8241}, {"f_8278:posixunix_2escm",(void*)f_8278}, {"f_3455:posixunix_2escm",(void*)f_3455}, {"f_3459:posixunix_2escm",(void*)f_3459}, {"f_6763:posixunix_2escm",(void*)f_6763}, {"f_3452:posixunix_2escm",(void*)f_3452}, {"f_2988:posixunix_2escm",(void*)f_2988}, {"f_8276:posixunix_2escm",(void*)f_8276}, {"f_2984:posixunix_2escm",(void*)f_2984}, {"f_2971:posixunix_2escm",(void*)f_2971}, {"f_2979:posixunix_2escm",(void*)f_2979}, {"f_8265:posixunix_2escm",(void*)f_8265}, {"f_8262:posixunix_2escm",(void*)f_8262}, {"f_8214:posixunix_2escm",(void*)f_8214}, {"f_8209:posixunix_2escm",(void*)f_8209}, {"f_8203:posixunix_2escm",(void*)f_8203}, {"f_8575:posixunix_2escm",(void*)f_8575}, {"f_5818:posixunix_2escm",(void*)f_5818}, {"f_5814:posixunix_2escm",(void*)f_5814}, {"f_5812:posixunix_2escm",(void*)f_5812}, {"f_8593:posixunix_2escm",(void*)f_8593}, {"f_4017:posixunix_2escm",(void*)f_4017}, {"f_5808:posixunix_2escm",(void*)f_5808}, {"f_5804:posixunix_2escm",(void*)f_5804}, {"f_4021:posixunix_2escm",(void*)f_4021}, {"f_4025:posixunix_2escm",(void*)f_4025}, {"f_2951:posixunix_2escm",(void*)f_2951}, {"f_2959:posixunix_2escm",(void*)f_2959}, {"f_4031:posixunix_2escm",(void*)f_4031}, {"f_8569:posixunix_2escm",(void*)f_8569}, {"f_5355:posixunix_2escm",(void*)f_5355}, {"f_6504:posixunix_2escm",(void*)f_6504}, {"f_8552:posixunix_2escm",(void*)f_8552}, {"f_3193:posixunix_2escm",(void*)f_3193}, {"f_8588:posixunix_2escm",(void*)f_8588}, {"f_4062:posixunix_2escm",(void*)f_4062}, {"f_8288:posixunix_2escm",(void*)f_8288}, {"f_8582:posixunix_2escm",(void*)f_8582}, {"f_2806:posixunix_2escm",(void*)f_2806}, {"f_2804:posixunix_2escm",(void*)f_2804}, {"f_2800:posixunix_2escm",(void*)f_2800}, {"f_8285:posixunix_2escm",(void*)f_8285}, {"f_8282:posixunix_2escm",(void*)f_8282}, {"f_4069:posixunix_2escm",(void*)f_4069}, {"f_5894:posixunix_2escm",(void*)f_5894}, {"f_4078:posixunix_2escm",(void*)f_4078}, {"f_6539:posixunix_2escm",(void*)f_6539}, {"f_6537:posixunix_2escm",(void*)f_6537}, {"f_6533:posixunix_2escm",(void*)f_6533}, {"f_5315:posixunix_2escm",(void*)f_5315}, {"f_4092:posixunix_2escm",(void*)f_4092}, {"f_4095:posixunix_2escm",(void*)f_4095}, {"f_4088:posixunix_2escm",(void*)f_4088}, {"f_6543:posixunix_2escm",(void*)f_6543}, {"f_5346:posixunix_2escm",(void*)f_5346}, {"f_5874:posixunix_2escm",(void*)f_5874}, {"f_5871:posixunix_2escm",(void*)f_5871}, {"f_5879:posixunix_2escm",(void*)f_5879}, {"f_5336:posixunix_2escm",(void*)f_5336}, {"f_4360:posixunix_2escm",(void*)f_4360}, {"f_4364:posixunix_2escm",(void*)f_4364}, {"f_5864:posixunix_2escm",(void*)f_5864}, {"f_4366:posixunix_2escm",(void*)f_4366}, {"f_5868:posixunix_2escm",(void*)f_5868}, {"f_5362:posixunix_2escm",(void*)f_5362}, {"f_6576:posixunix_2escm",(void*)f_6576}, {"f_7173:posixunix_2escm",(void*)f_7173}, {"f_4343:posixunix_2escm",(void*)f_4343}, {"f_5842:posixunix_2escm",(void*)f_5842}, {"f_4349:posixunix_2escm",(void*)f_4349}, {"f_6586:posixunix_2escm",(void*)f_6586}, {"f_2816:posixunix_2escm",(void*)f_2816}, {"f_2818:posixunix_2escm",(void*)f_2818}, {"f_2812:posixunix_2escm",(void*)f_2812}, {"f_4513:posixunix_2escm",(void*)f_4513}, {"f_2810:posixunix_2escm",(void*)f_2810}, {"f_4510:posixunix_2escm",(void*)f_4510}, {"f_7149:posixunix_2escm",(void*)f_7149}, {"f_4353:posixunix_2escm",(void*)f_4353}, {"f_4358:posixunix_2escm",(void*)f_4358}, {"f_4521:posixunix_2escm",(void*)f_4521}, {"f_4527:posixunix_2escm",(void*)f_4527}, {"f_7159:posixunix_2escm",(void*)f_7159}, {"f_4321:posixunix_2escm",(void*)f_4321}, {"f_5828:posixunix_2escm",(void*)f_5828}, {"f_4329:posixunix_2escm",(void*)f_4329}, {"f_6564:posixunix_2escm",(void*)f_6564}, {"f_8237:posixunix_2escm",(void*)f_8237}, {"f_4332:posixunix_2escm",(void*)f_4332}, {"f_4337:posixunix_2escm",(void*)f_4337}, {"f_2822:posixunix_2escm",(void*)f_2822}, {"f_2824:posixunix_2escm",(void*)f_2824}, {"f_8225:posixunix_2escm",(void*)f_8225}, {"f_8226:posixunix_2escm",(void*)f_8226}, {"f_7184:posixunix_2escm",(void*)f_7184}, {"f_6598:posixunix_2escm",(void*)f_6598}, {"f_7166:posixunix_2escm",(void*)f_7166}, {"f_3569:posixunix_2escm",(void*)f_3569}, {"f_3600:posixunix_2escm",(void*)f_3600}, {"f_4807:posixunix_2escm",(void*)f_4807}, {"f_4801:posixunix_2escm",(void*)f_4801}, {"f_3609:posixunix_2escm",(void*)f_3609}, {"f_3607:posixunix_2escm",(void*)f_3607}, {"f_4814:posixunix_2escm",(void*)f_4814}, {"f_3650:posixunix_2escm",(void*)f_3650}, {"f_4836:posixunix_2escm",(void*)f_4836}, {"f_3642:posixunix_2escm",(void*)f_3642}, {"f_8544:posixunix_2escm",(void*)f_8544}, {"f_4844:posixunix_2escm",(void*)f_4844}, {"f_2843:posixunix_2escm",(void*)f_2843}, {"f_3670:posixunix_2escm",(void*)f_3670}, {"f_3104:posixunix_2escm",(void*)f_3104}, {"f_3102:posixunix_2escm",(void*)f_3102}, {"f_3134:posixunix_2escm",(void*)f_3134}, {"f_5904:posixunix_2escm",(void*)f_5904}, {"f_3695:posixunix_2escm",(void*)f_3695}, {"f_3693:posixunix_2escm",(void*)f_3693}, {"f_7535:posixunix_2escm",(void*)f_7535}, {"f_3166:posixunix_2escm",(void*)f_3166}, {"f_6822:posixunix_2escm",(void*)f_6822}, {"f_3160:posixunix_2escm",(void*)f_3160}, {"f_3686:posixunix_2escm",(void*)f_3686}, {"f_3683:posixunix_2escm",(void*)f_3683}, {"f_3116:posixunix_2escm",(void*)f_3116}, {"f_3118:posixunix_2escm",(void*)f_3118}, {"f_2715:posixunix_2escm",(void*)f_2715}, {"f_3143:posixunix_2escm",(void*)f_3143}, {"f_2719:posixunix_2escm",(void*)f_2719}, {"f_2708:posixunix_2escm",(void*)f_2708}, {"f_2704:posixunix_2escm",(void*)f_2704}, {"f_3173:posixunix_2escm",(void*)f_3173}, {"f_3176:posixunix_2escm",(void*)f_3176}, {"f_7528:posixunix_2escm",(void*)f_7528}, {"f_3717:posixunix_2escm",(void*)f_3717}, {"f_7570:posixunix_2escm",(void*)f_7570}, {"f_5932:posixunix_2escm",(void*)f_5932}, {"f_5937:posixunix_2escm",(void*)f_5937}, {"f_5599:posixunix_2escm",(void*)f_5599}, {"f_5597:posixunix_2escm",(void*)f_5597}, {"f_3708:posixunix_2escm",(void*)f_3708}, {"f_7585:posixunix_2escm",(void*)f_7585}, {"f_2751:posixunix_2escm",(void*)f_2751}, {"f_6088:posixunix_2escm",(void*)f_6088}, {"f_5953:posixunix_2escm",(void*)f_5953}, {"f_2747:posixunix_2escm",(void*)f_2747}, {"f_7561:posixunix_2escm",(void*)f_7561}, {"f_6090:posixunix_2escm",(void*)f_6090}, {"f_6812:posixunix_2escm",(void*)f_6812}, {"f_2772:posixunix_2escm",(void*)f_2772}, {"f_2779:posixunix_2escm",(void*)f_2779}, {"f_2760:posixunix_2escm",(void*)f_2760}, {"f_2767:posixunix_2escm",(void*)f_2767}, {"f_2792:posixunix_2escm",(void*)f_2792}, {"f_2798:posixunix_2escm",(void*)f_2798}, {"f_6203:posixunix_2escm",(void*)f_6203}, {"f_6202:posixunix_2escm",(void*)f_6202}, {"f_7398:posixunix_2escm",(void*)f_7398}, {"f_2794:posixunix_2escm",(void*)f_2794}, {"f_3630:posixunix_2escm",(void*)f_3630}, {"f_6208:posixunix_2escm",(void*)f_6208}, {"f_7390:posixunix_2escm",(void*)f_7390}, {"f_5991:posixunix_2escm",(void*)f_5991}, {"f_5572:posixunix_2escm",(void*)f_5572}, {"f_3626:posixunix_2escm",(void*)f_3626}, {"f_3638:posixunix_2escm",(void*)f_3638}, {"f_4830:posixunix_2escm",(void*)f_4830}, {"f_4833:posixunix_2escm",(void*)f_4833}, {"f_4826:posixunix_2escm",(void*)f_4826}, {"f_7694:posixunix_2escm",(void*)f_7694}, {"f_3798:posixunix_2escm",(void*)f_3798}, {"f_3783:posixunix_2escm",(void*)f_3783}, {"f_3780:posixunix_2escm",(void*)f_3780}, {"f_3788:posixunix_2escm",(void*)f_3788}, {"f_4716:posixunix_2escm",(void*)f_4716}, {"f_3776:posixunix_2escm",(void*)f_3776}, {"f_6003:posixunix_2escm",(void*)f_6003}, {"f_3763:posixunix_2escm",(void*)f_3763}, {"f_8765:posixunix_2escm",(void*)f_8765}, {"f_3761:posixunix_2escm",(void*)f_3761}, {"f_8769:posixunix_2escm",(void*)f_8769}, {"f_3768:posixunix_2escm",(void*)f_3768}, {"f_6019:posixunix_2escm",(void*)f_6019}, {"f_3751:posixunix_2escm",(void*)f_3751}, {"f_6263:posixunix_2escm",(void*)f_6263}, {"f_8759:posixunix_2escm",(void*)f_8759}, {"f_6269:posixunix_2escm",(void*)f_6269}, {"f_5605:posixunix_2escm",(void*)f_5605}, {"f_3742:posixunix_2escm",(void*)f_3742}, {"f_6278:posixunix_2escm",(void*)f_6278}, {"f_8781:posixunix_2escm",(void*)f_8781}, {"f_5923:posixunix_2escm",(void*)f_5923}, {"f_5928:posixunix_2escm",(void*)f_5928}, {"f_3739:posixunix_2escm",(void*)f_3739}, {"f_6281:posixunix_2escm",(void*)f_6281}, {"f_6284:posixunix_2escm",(void*)f_6284}, {"f_8447:posixunix_2escm",(void*)f_8447}, {"f_8449:posixunix_2escm",(void*)f_8449}, {"f_8772:posixunix_2escm",(void*)f_8772}, {"f_6290:posixunix_2escm",(void*)f_6290}, {"f_6222:posixunix_2escm",(void*)f_6222}, {"f_8467:posixunix_2escm",(void*)f_8467}, {"f_2722:posixunix_2escm",(void*)f_2722}, {"f_3389:posixunix_2escm",(void*)f_3389}, {"f_2726:posixunix_2escm",(void*)f_2726}, {"f_6237:posixunix_2escm",(void*)f_6237}, {"f_3381:posixunix_2escm",(void*)f_3381}, {"f_3383:posixunix_2escm",(void*)f_3383}, {"f_8497:posixunix_2escm",(void*)f_8497}, {"f_7606:posixunix_2escm",(void*)f_7606}, {"f_4794:posixunix_2escm",(void*)f_4794}, {"f_6243:posixunix_2escm",(void*)f_6243}, {"f_5548:posixunix_2escm",(void*)f_5548}, {"f_7602:posixunix_2escm",(void*)f_7602}, {"f_3374:posixunix_2escm",(void*)f_3374}, {"f_4767:posixunix_2escm",(void*)f_4767}, {"f_4764:posixunix_2escm",(void*)f_4764}, {"f_7325:posixunix_2escm",(void*)f_7325}, {"f_8697:posixunix_2escm",(void*)f_8697}, {"f_6253:posixunix_2escm",(void*)f_6253}, {"f_6251:posixunix_2escm",(void*)f_6251}, {"f_8691:posixunix_2escm",(void*)f_8691}, {"f_4773:posixunix_2escm",(void*)f_4773}, {"f_8685:posixunix_2escm",(void*)f_8685}, {"f_4542:posixunix_2escm",(void*)f_4542}, {"f_4544:posixunix_2escm",(void*)f_4544}, {"f_5685:posixunix_2escm",(void*)f_5685}, {"f_5681:posixunix_2escm",(void*)f_5681}, {"f_5689:posixunix_2escm",(void*)f_5689}, {"f_7636:posixunix_2escm",(void*)f_7636}, {"f_7630:posixunix_2escm",(void*)f_7630}, {"f_5670:posixunix_2escm",(void*)f_5670}, {"f_5677:posixunix_2escm",(void*)f_5677}, {"f_4757:posixunix_2escm",(void*)f_4757}, {"f_7641:posixunix_2escm",(void*)f_7641}, {"f_5664:posixunix_2escm",(void*)f_5664}, {"f_5660:posixunix_2escm",(void*)f_5660}, {"f_4726:posixunix_2escm",(void*)f_4726}, {"f_4729:posixunix_2escm",(void*)f_4729}, {"f_8656:posixunix_2escm",(void*)f_8656}, {"f_7614:posixunix_2escm",(void*)f_7614}, {"f_8653:posixunix_2escm",(void*)f_8653}, {"f_8647:posixunix_2escm",(void*)f_8647}, {"f_4732:posixunix_2escm",(void*)f_4732}, {"f_7626:posixunix_2escm",(void*)f_7626}, {"f_7622:posixunix_2escm",(void*)f_7622}, {"f_4506:posixunix_2escm",(void*)f_4506}, {"f_5641:posixunix_2escm",(void*)f_5641}, {"f_4500:posixunix_2escm",(void*)f_4500}, {"f_7679:posixunix_2escm",(void*)f_7679}, {"f_5648:posixunix_2escm",(void*)f_5648}, {"f_8675:posixunix_2escm",(void*)f_8675}, {"f_4550:posixunix_2escm",(void*)f_4550}, {"f_7675:posixunix_2escm",(void*)f_7675}, {"f_4556:posixunix_2escm",(void*)f_4556}, {"f_5637:posixunix_2escm",(void*)f_5637}, {"f_8672:posixunix_2escm",(void*)f_8672}, {"f_2680:posixunix_2escm",(void*)f_2680}, {"f_2689:posixunix_2escm",(void*)f_2689}, {"f_2686:posixunix_2escm",(void*)f_2686}, {"f_2683:posixunix_2escm",(void*)f_2683}, {"f_8666:posixunix_2escm",(void*)f_8666}, {"f_7353:posixunix_2escm",(void*)f_7353}, {"f_7682:posixunix_2escm",(void*)f_7682}, {"f_4563:posixunix_2escm",(void*)f_4563}, {"f_7685:posixunix_2escm",(void*)f_7685}, {"f_5621:posixunix_2escm",(void*)f_5621}, {"f_6888:posixunix_2escm",(void*)f_6888}, {"f_2677:posixunix_2escm",(void*)f_2677}, {"f_8421:posixunix_2escm",(void*)f_8421}, {"f_4531:posixunix_2escm",(void*)f_4531}, {"f_8424:posixunix_2escm",(void*)f_8424}, {"f_7654:posixunix_2escm",(void*)f_7654}, {"f_7668:posixunix_2escm",(void*)f_7668}, {"f_4538:posixunix_2escm",(void*)f_4538}, {"f_5691:posixunix_2escm",(void*)f_5691}, {"f_5698:posixunix_2escm",(void*)f_5698}, {"f_8429:posixunix_2escm",(void*)f_8429}, {"f_2692:posixunix_2escm",(void*)f_2692}, {"f_3816:posixunix_2escm",(void*)f_3816}, {"f_8443:posixunix_2escm",(void*)f_8443}, {"f_7302:posixunix_2escm",(void*)f_7302}, {"f_5501:posixunix_2escm",(void*)f_5501}, {"f_5505:posixunix_2escm",(void*)f_5505}, {"f_7360:posixunix_2escm",(void*)f_7360}, {"f_5652:posixunix_2escm",(void*)f_5652}, {"f_5656:posixunix_2escm",(void*)f_5656}, {"f_5496:posixunix_2escm",(void*)f_5496}, {"f_5491:posixunix_2escm",(void*)f_5491}, {"f_7377:posixunix_2escm",(void*)f_7377}, {"f_5476:posixunix_2escm",(void*)f_5476}, {"f_5471:posixunix_2escm",(void*)f_5471}, {"f_3807:posixunix_2escm",(void*)f_3807}, {"f_5719:posixunix_2escm",(void*)f_5719}, {"f_5715:posixunix_2escm",(void*)f_5715}, {"f_5711:posixunix_2escm",(void*)f_5711}, {"f_3801:posixunix_2escm",(void*)f_3801}, {"f_3351:posixunix_2escm",(void*)f_3351}, {"f_4474:posixunix_2escm",(void*)f_4474}, {"f_3823:posixunix_2escm",(void*)f_3823}, {"f_5007:posixunix_2escm",(void*)f_5007}, {"f_4280:posixunix_2escm",(void*)f_4280}, {"f_3899:posixunix_2escm",(void*)f_3899}, {"f_3348:posixunix_2escm",(void*)f_3348}, {"f_3341:posixunix_2escm",(void*)f_3341}, {"f_4480:posixunix_2escm",(void*)f_4480}, {"f_3893:posixunix_2escm",(void*)f_3893}, {"f_3891:posixunix_2escm",(void*)f_3891}, {"f_3849:posixunix_2escm",(void*)f_3849}, {"f_4476:posixunix_2escm",(void*)f_4476}, {"f_3339:posixunix_2escm",(void*)f_3339}, {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| for-each 3 o|eliminated procedure checks: 278 o|specializations: o| 1 (zero? fixnum) o| 1 (##sys#check-output-port * * *) o| 1 (##sys#check-input-port * * *) o| 1 (##sys#call-with-values (procedure () *) *) o| 3 (##sys#length list) o| 10 (cdr pair) o| 1 (string-ref string fixnum) o| 1 (string-length string) o| 3 (##sys#check-list (or pair list) *) o| 4 (make-string fixnum) o| 4 (##sys#check-open-port * *) o| 11 (eqv? * (not float)) o| 15 (car pair) (o e)|safe calls: 866 (o e)|assignments to immediate values: 26 o|dropping redundant toplevel assignment: process o|dropping redundant toplevel assignment: process* o|safe globals: (file-stat ##sys#stat ##sys#posix-error posix-error) o|Removed `not' forms: 9 o|contracted procedure: "(posix-common.scm:185) strerror64" o|inlining procedure: k2727 o|inlining procedure: k2727 o|inlining procedure: k2742 o|inlining procedure: k2742 o|inlining procedure: k2761 o|inlining procedure: k2761 o|inlining procedure: k2838 o|inlining procedure: k2850 o|inlining procedure: k2850 o|inlining procedure: k2862 o|inlining procedure: k2862 o|inlining procedure: k2874 o|inlining procedure: k2874 o|inlining procedure: k2838 o|inlining procedure: k2995 o|inlining procedure: k2995 o|inlining procedure: k3007 o|inlining procedure: k3007 o|inlining procedure: k3017 o|inlining procedure: k3017 o|inlining procedure: k3044 o|contracted procedure: k3060 o|inlining procedure: k3057 o|inlining procedure: k3057 o|substituted constant variable: a3070 o|inlining procedure: k3044 o|inlining procedure: k3077 o|inlining procedure: k3077 o|substituted constant variable: a3121 o|inlining procedure: k3122 o|inlining procedure: k3122 o|contracted procedure: k3138 o|inlining procedure: k3141 o|inlining procedure: k3141 o|inlining procedure: k3174 o|inlining procedure: k3174 o|inlining procedure: k3198 o|inlining procedure: k3198 o|substituted constant variable: a3219 o|inlining procedure: k3238 o|inlining procedure: k3238 o|inlining procedure: k3259 o|propagated global variable: r32608880 delete-file o|inlining procedure: k3259 o|inlining procedure: k3251 o|inlining procedure: k3283 o|inlining procedure: k3283 o|inlining procedure: k3251 o|inlining procedure: k3321 o|inlining procedure: k3321 o|inlining procedure: k3343 o|contracted procedure: "(posix-common.scm:463) g331332" o|inlining procedure: k3354 o|inlining procedure: k3354 o|inlining procedure: k3343 o|inlining procedure: k3391 o|inlining procedure: k3391 o|contracted procedure: "(posix-common.scm:464) g349350" o|inlining procedure: k3399 o|inlining procedure: k3399 o|inlining procedure: k3460 o|inlining procedure: k3460 o|inlining procedure: k3475 o|inlining procedure: k3475 o|inlining procedure: k3516 o|inlining procedure: k3516 o|substituted constant variable: a3538 o|substituted constant variable: a3540 o|inlining procedure: k3577 o|inlining procedure: k3577 o|inlining procedure: k3611 o|inlining procedure: k3611 o|inlining procedure: k3664 o|inlining procedure: k3664 o|inlining procedure: k3672 o|inlining procedure: k3672 o|contracted procedure: "(posix-common.scm:558) find-files" o|inlining procedure: k3697 o|inlining procedure: k3697 o|inlining procedure: k3718 o|inlining procedure: k3718 o|inlining procedure: k3737 o|inlining procedure: k3737 o|inlining procedure: k3746 o|inlining procedure: k3778 o|inlining procedure: k3778 o|inlining procedure: k3746 o|inlining procedure: k3796 o|inlining procedure: k3796 o|inlining procedure: k3811 o|inlining procedure: k3811 o|contracted procedure: k3838 o|inlining procedure: k3843 o|inlining procedure: k3843 o|inlining procedure: k3913 o|inlining procedure: k3913 o|inlining procedure: k3990 o|inlining procedure: k3990 o|contracted procedure: "(posix-common.scm:595) ctime542" o|inlining procedure: k4026 o|inlining procedure: k4026 o|inlining procedure: k4070 o|contracted procedure: "(posix-common.scm:618) strftime568" o|inlining procedure: k4056 o|inlining procedure: k4056 o|inlining procedure: k4070 o|contracted procedure: "(posix-common.scm:620) asctime567" o|inlining procedure: k4043 o|inlining procedure: k4043 o|inlining procedure: k4172 o|inlining procedure: k4181 o|inlining procedure: k4181 o|inlining procedure: k4172 o|contracted procedure: "(posix-common.scm:644) get619" o|inlining procedure: k4282 o|inlining procedure: k4282 o|inlining procedure: k4368 o|inlining procedure: k4368 o|contracted procedure: "(posix-common.scm:712) c-string->allocated-pointer663" o|merged explicitly consed rest parameter: args675697 o|consed rest parameter at call site: tmp22595 1 o|inlining procedure: k4451 o|inlining procedure: k4451 o|inlining procedure: k4511 o|inlining procedure: k4511 o|inlining procedure: k4634 o|inlining procedure: k4634 o|contracted procedure: "(posixunix.scm:466) fcntl833" o|inlining procedure: k4671 o|inlining procedure: k4671 o|inlining procedure: k4696 o|inlining procedure: k4696 o|inlining procedure: k4730 o|inlining procedure: k4730 o|inlining procedure: k4771 o|inlining procedure: k4771 o|inlining procedure: k4874 o|inlining procedure: k4874 o|inlining procedure: k4897 o|inlining procedure: k4897 o|inlining procedure: k4920 o|inlining procedure: k4929 o|inlining procedure: k4929 o|inlining procedure: k4920 o|inlining procedure: k4935 o|inlining procedure: k4935 o|inlining procedure: k4950 o|inlining procedure: k4950 o|contracted procedure: "(posixunix.scm:572) g10101011" o|inlining procedure: k4969 o|inlining procedure: k4969 o|inlining procedure: k5009 o|inlining procedure: k5009 o|contracted procedure: "(posixunix.scm:564) g991992" o|inlining procedure: k5028 o|inlining procedure: k5028 o|contracted procedure: "(posixunix.scm:558) g965966" o|inlining procedure: k5083 o|inlining procedure: k5083 o|contracted procedure: "(posixunix.scm:552) g950951" o|inlining procedure: k5100 o|inlining procedure: k5100 o|inlining procedure: k5125 o|inlining procedure: k5125 o|contracted procedure: "(posixunix.scm:546) g932933" o|inlining procedure: k5142 o|inlining procedure: k5142 o|contracted procedure: k5172 o|inlining procedure: k5175 o|inlining procedure: k5175 o|contracted procedure: k5187 o|inlining procedure: k5190 o|inlining procedure: k5190 o|inlining procedure: k5215 o|inlining procedure: k5215 o|inlining procedure: k5231 o|inlining procedure: k5231 o|inlining procedure: k5244 o|inlining procedure: k5244 o|inlining procedure: k5262 o|inlining procedure: k5262 o|inlining procedure: k5287 o|inlining procedure: k5287 o|inlining procedure: "(posixunix.scm:623) badmode1038" o|substituted constant variable: a5311 o|substituted constant variable: a5313 o|inlining procedure: k5327 o|inlining procedure: k5327 o|inlining procedure: "(posixunix.scm:634) badmode1038" o|substituted constant variable: a5351 o|substituted constant variable: a5353 o|substituted constant variable: a5358 o|substituted constant variable: a5359 o|inlining procedure: k5360 o|inlining procedure: k5360 o|substituted constant variable: a5373 o|substituted constant variable: a5374 o|inlining procedure: k5375 o|inlining procedure: k5375 o|inlining procedure: k5503 o|inlining procedure: k5503 o|inlining procedure: k5561 o|inlining procedure: k5561 o|inlining procedure: k5574 o|contracted procedure: "(posixunix.scm:765) g11651172" o|inlining procedure: k5574 o|inlining procedure: k5610 o|inlining procedure: k5610 o|inlining procedure: k5626 o|inlining procedure: k5626 o|inlining procedure: k5699 o|inlining procedure: k5699 o|inlining procedure: k5792 o|inlining procedure: k5819 o|inlining procedure: k5819 o|contracted procedure: "(posixunix.scm:913) group-member" o|inlining procedure: k5792 o|inlining procedure: k5881 o|inlining procedure: k5881 o|contracted procedure: "(posixunix.scm:936) _get-groups" o|inlining procedure: "(posixunix.scm:934) _ensure-groups" o|inlining procedure: k5939 o|inlining procedure: k5939 o|inlining procedure: "(posixunix.scm:945) _ensure-groups" o|inlining procedure: k6011 o|inlining procedure: k6011 o|contracted procedure: "(posixunix.scm:962) init1308" o|inlining procedure: k6075 o|inlining procedure: k6075 o|inlining procedure: k6101 o|inlining procedure: k6101 o|inlining procedure: k6124 o|inlining procedure: k6124 o|inlining procedure: k6156 o|inlining procedure: k6156 o|inlining procedure: k6181 o|inlining procedure: k6181 o|inlining procedure: k6209 o|inlining procedure: k6209 o|inlining procedure: k6230 o|inlining procedure: k6255 o|inlining procedure: k6255 o|inlining procedure: k6276 o|inlining procedure: k6276 o|inlining procedure: k6306 o|inlining procedure: k6306 o|inlining procedure: k6230 o|inlining procedure: k6351 o|inlining procedure: k6351 o|contracted procedure: "(posixunix.scm:1116) link1440" o|inlining procedure: k6326 o|inlining procedure: k6326 o|inlining procedure: k6405 o|inlining procedure: k6405 o|inlining procedure: k6431 o|inlining procedure: k6431 o|inlining procedure: k6445 o|inlining procedure: k6469 o|inlining procedure: k6469 o|inlining procedure: k6445 o|inlining procedure: k6490 o|inlining procedure: k6490 o|inlining procedure: k6510 o|inlining procedure: k6510 o|inlining procedure: k6547 o|inlining procedure: k6547 o|inlining procedure: k6569 o|inlining procedure: k6569 o|inlining procedure: k6578 o|inlining procedure: k6578 o|inlining procedure: k6600 o|inlining procedure: k6600 o|inlining procedure: k6625 o|inlining procedure: k6625 o|inlining procedure: k6672 o|inlining procedure: k6672 o|inlining procedure: k6694 o|inlining procedure: k6694 o|inlining procedure: k6722 o|inlining procedure: k6722 o|inlining procedure: k6765 o|inlining procedure: k6765 o|inlining procedure: k6814 o|inlining procedure: k6814 o|inlining procedure: k6919 o|inlining procedure: k6940 o|inlining procedure: k6940 o|inlining procedure: k6919 o|inlining procedure: k6996 o|inlining procedure: k6996 o|inlining procedure: k7026 o|inlining procedure: k7026 o|inlining procedure: k7041 o|inlining procedure: k7058 o|inlining procedure: k7058 o|inlining procedure: k7041 o|inlining procedure: k7154 o|inlining procedure: k7154 o|inlining procedure: k7164 o|inlining procedure: k7164 o|inlining procedure: k7271 o|inlining procedure: k7271 o|inlining procedure: k7287 o|inlining procedure: k7287 o|inlining procedure: k7303 o|contracted procedure: "(posixunix.scm:1349) g16901691" o|contracted procedure: k7311 o|inlining procedure: k7308 o|inlining procedure: k7308 o|inlining procedure: k7303 o|inlining procedure: k7338 o|inlining procedure: k7338 o|inlining procedure: k7364 o|inlining procedure: k7364 o|inlining procedure: k7399 o|inlining procedure: k7399 o|inlining procedure: k7411 o|inlining procedure: k7411 o|substituted constant variable: a7424 o|substituted constant variable: a7426 o|substituted constant variable: a7428 o|contracted procedure: "(posixunix.scm:1418) mmap1727" o|contracted procedure: k7508 o|inlining procedure: k7536 o|inlining procedure: k7536 o|contracted procedure: "(posixunix.scm:1428) munmap1758" o|contracted procedure: "(posixunix.scm:1446) strptime1777" o|inlining procedure: k7579 o|inlining procedure: k7579 o|inlining procedure: k7631 o|inlining procedure: k7631 o|contracted procedure: "(posixunix.scm:1474) ex01816" o|inlining procedure: k7689 o|inlining procedure: k7689 o|inlining procedure: k7699 o|inlining procedure: k7699 o|inlining procedure: k7712 o|inlining procedure: k7712 o|substituted constant variable: a7728 o|substituted constant variable: a7730 o|substituted constant variable: a7732 o|substituted constant variable: a7741 o|contracted procedure: k7748 o|inlining procedure: k7745 o|inlining procedure: k7745 o|inlining procedure: k7760 o|inlining procedure: k7760 o|contracted procedure: "(posixunix.scm:1514) ttyname1852" o|inlining procedure: k7816 o|inlining procedure: k7816 o|contracted procedure: "(posixunix.scm:1525) ttysize1861" o|inlining procedure: k7853 o|inlining procedure: k7853 o|contracted procedure: "(posixunix.scm:1538) getit1883" o|inlining procedure: k7894 o|inlining procedure: k7894 o|contracted procedure: "(posixunix.scm:1551) fork1890" o|contracted procedure: "(posixunix.scm:1547) g19081909" o|inlining procedure: k7879 o|inlining procedure: k7879 o|inlining procedure: k7981 o|inlining procedure: k7981 o|inlining procedure: k8021 o|inlining procedure: k8021 o|inlining procedure: k8040 o|inlining procedure: k8040 o|inlining procedure: k8074 o|inlining procedure: k8074 o|inlining procedure: k8093 o|inlining procedure: k8093 o|contracted procedure: k8114 o|inlining procedure: k8111 o|inlining procedure: k8111 o|inlining procedure: k8164 o|inlining procedure: k8182 o|inlining procedure: k8182 o|inlining procedure: k8164 o|removed unused formal parameters: (loc2007) o|inlining procedure: k8196 o|inlining procedure: k8196 o|removed unused formal parameters: (loc2012 fd2015) o|inlining procedure: k8216 o|inlining procedure: k8216 o|inlining procedure: k8228 o|contracted procedure: "(posixunix.scm:1668) replace-fd1987" o|inlining procedure: k8145 o|inlining procedure: k8145 o|inlining procedure: k8228 o|inlining procedure: k8243 o|inlining procedure: k8243 o|removed unused parameter to known procedure: loc2007 "(posixunix.scm:1678) needed-pipe1993" o|removed unused parameter to known procedure: loc2007 "(posixunix.scm:1677) needed-pipe1993" o|removed unused parameter to known procedure: loc2007 "(posixunix.scm:1676) needed-pipe1993" o|removed unused formal parameters: (pid2047) o|inlining procedure: k8305 o|inlining procedure: k8305 o|removed unused parameter to known procedure: loc2012 "(posixunix.scm:1689) connect-parent1994" o|removed unused parameter to known procedure: fd2015 "(posixunix.scm:1689) connect-parent1994" o|removed unused formal parameters: (pid2055) o|inlining procedure: k8316 o|inlining procedure: k8316 o|removed unused parameter to known procedure: loc2012 "(posixunix.scm:1693) connect-parent1994" o|removed unused parameter to known procedure: fd2015 "(posixunix.scm:1693) connect-parent1994" o|removed unused parameter to known procedure: pid2047 "(posixunix.scm:1708) input-port2028" o|removed unused parameter to known procedure: pid2055 "(posixunix.scm:1705) output-port2029" o|removed unused parameter to known procedure: pid2047 "(posixunix.scm:1703) input-port2028" o|inlining procedure: k8396 o|inlining procedure: k8396 o|inlining procedure: k8557 o|inlining procedure: k8557 o|contracted procedure: "(posixunix.scm:1750) chroot2153" o|inlining procedure: k8542 o|inlining procedure: k8542 o|inlining procedure: k8580 o|inlining procedure: k8580 o|inlining procedure: k8601 o|inlining procedure: k8601 o|inlining procedure: k8620 o|inlining procedure: k8620 o|inlining procedure: k8639 o|inlining procedure: k8639 o|inlining procedure: k8658 o|inlining procedure: k8658 o|inlining procedure: k8677 o|inlining procedure: k8677 o|inlining procedure: k8699 o|inlining procedure: k8699 o|inlining procedure: k8714 o|inlining procedure: k8714 o|inlining procedure: k8746 o|inlining procedure: k8746 o|inlining procedure: k8770 o|inlining procedure: k8770 o|inlining procedure: k8782 o|inlining procedure: k8782 o|inlining procedure: k8792 o|inlining procedure: k8792 o|inlining procedure: k8829 o|inlining procedure: k8829 o|contracted procedure: "(posix-common.scm:257) g115116" o|inlining procedure: k8816 o|inlining procedure: k8816 o|replaced variables: 916 o|removed binding forms: 568 o|substituted constant variable: r27288839 o|substituted constant variable: r28518845 o|substituted constant variable: r28638847 o|substituted constant variable: r28758849 o|substituted constant variable: r28398851 o|substituted constant variable: r30088855 o|inlining procedure: k3044 o|substituted constant variable: r30588861 o|inlining procedure: k3044 o|inlining procedure: k3044 o|propagated global variable: g2993008881 delete-file o|inlining procedure: k3259 o|inlining procedure: k3259 o|propagated global variable: r32609367 delete-file o|propagated global variable: r32609367 delete-file o|converted assignments to bindings: (rmdir282) o|substituted constant variable: loc333 o|substituted constant variable: loc333 o|substituted constant variable: loc351 o|substituted constant variable: loc351 o|substituted constant variable: r34768908 o|substituted constant variable: r35788912 o|substituted constant variable: r36658918 o|substituted constant variable: r36658918 o|substituted constant variable: r36738922 o|substituted constant variable: r36738922 o|substituted constant variable: loc438 o|substituted constant variable: r40578956 o|substituted constant variable: r40578956 o|substituted constant variable: r40448963 o|substituted constant variable: r40448963 o|substituted constant variable: r41738969 o|substituted constant variable: r48989010 o|substituted constant variable: r48989010 o|substituted constant variable: r48989012 o|substituted constant variable: r48989012 o|inlining procedure: k4920 o|inlining procedure: k4920 o|substituted constant variable: r49309017 o|inlining procedure: k4920 o|substituted constant variable: r49219018 o|substituted constant variable: r49219018 o|substituted constant variable: r49709026 o|substituted constant variable: r49709026 o|substituted constant variable: r50299032 o|substituted constant variable: r50299032 o|substituted constant variable: r51019038 o|substituted constant variable: r51019038 o|substituted constant variable: r51439044 o|substituted constant variable: r51439044 o|substituted constant variable: r52459059 o|removed side-effect free assignment to unused variable: badmode1038 o|inlining procedure: k5287 o|inlining procedure: k5327 o|substituted constant variable: r57009107 o|substituted constant variable: r58209110 o|substituted constant variable: r57939111 o|removed side-effect free assignment to unused variable: _ensure-groups o|substituted constant variable: r58829112 o|inlining procedure: k6276 o|substituted constant variable: r63079155 o|substituted constant variable: r63079155 o|substituted constant variable: r63279162 o|substituted constant variable: r63279162 o|substituted constant variable: r64329166 o|inlining procedure: k6502 o|inlining procedure: k6502 o|inlining procedure: k6584 o|substituted constant variable: r66959198 o|substituted constant variable: r68159210 o|inlining procedure: k7002 o|inlining procedure: k7164 o|substituted constant variable: r73099235 o|substituted constant variable: r74009242 o|inlining procedure: k7482 o|substituted constant variable: r75809250 o|substituted constant variable: r75809250 o|substituted constant variable: r77009258 o|substituted constant variable: r77009258 o|folded constant expression: (fx< (quote -1) (quote 0)) o|substituted constant variable: r77469262 o|substituted constant variable: c-pointer19101914 o|substituted constant variable: c-pointer19101914 o|substituted constant variable: r78809276 o|substituted constant variable: r78809276 o|inlining procedure: k8040 o|inlining procedure: k8040 o|substituted constant variable: r80949289 o|substituted constant variable: r81979297 o|substituted constant variable: r82179299 o|substituted constant variable: r82449305 o|removed unused formal parameters: (stdfd2051) o|substituted constant variable: r83069307 o|removed unused formal parameters: (stdfd2059) o|substituted constant variable: r83179309 o|removed unused parameter to known procedure: stdfd2051 "(posixunix.scm:1708) input-port2028" o|removed unused parameter to known procedure: stdfd2059 "(posixunix.scm:1705) output-port2029" o|removed unused parameter to known procedure: stdfd2051 "(posixunix.scm:1703) input-port2028" o|substituted constant variable: r85439316 o|substituted constant variable: r85439316 o|converted assignments to bindings: (check1373) o|substituted constant variable: r87839347 o|substituted constant variable: r88179354 o|substituted constant variable: r88179354 o|simplifications: ((let . 2)) o|replaced variables: 62 o|removed binding forms: 956 o|removed conditional forms: 1 o|inlining procedure: k3519 o|inlining procedure: k4233 o|inlining procedure: k4233 o|inlining procedure: k4460 o|inlining procedure: k4742 o|inlining procedure: k4742 o|inlining procedure: k4787 o|inlining procedure: k4787 o|substituted constant variable: r49219415 o|inlining procedure: k7498 o|inlining procedure: k7498 o|removed unused formal parameters: (loc2020) o|removed unused parameter to known procedure: loc2020 "(posixunix.scm:1685) connect-child1995" o|removed unused parameter to known procedure: loc2020 "(posixunix.scm:1684) connect-child1995" o|removed unused parameter to known procedure: loc2020 "(posixunix.scm:1683) connect-child1995" o|inlining procedure: k8508 o|replaced variables: 28 o|removed binding forms: 175 o|substituted constant variable: r30459356 o|substituted constant variable: r30459358 o|substituted constant variable: r30459360 o|substituted constant variable: r35209506 o|substituted constant variable: r35209506 o|substituted constant variable: r42349521 o|contracted procedure: k4383 o|substituted constant variable: r47439534 o|substituted constant variable: r47889536 o|substituted constant variable: r74999564 o|contracted procedure: k7888 o|removed unused formal parameters: (loc2033) o|removed unused parameter to known procedure: loc2033 "(posixunix.scm:1697) spawn2027" o|inlining procedure: k8743 o|inlining procedure: k8743 o|simplifications: ((let . 3)) o|replaced variables: 3 o|removed binding forms: 31 o|removed conditional forms: 4 o|inlining procedure: k7660 o|inlining procedure: k7660 o|substituted constant variable: r87449625 o|replaced variables: 1 o|removed binding forms: 12 o|substituted constant variable: r76619681 o|contracted procedure: k7885 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((if . 89) (##core#call . 665)) o| call simplifications: o| < o| bitwise-ior 2 o| vector-ref 2 o| make-vector o| ##sys#structure? o| ##sys#foreign-pointer-argument 4 o| fxior 2 o| ##sys#check-structure 3 o| ##sys#make-structure 3 o| ##sys#setislot 3 o| fxmin 2 o| eof-object? o| ##sys#foreign-string-argument 5 o| length o| fx>= 8 o| fx* o| * o| inexact->exact o| memq 2 o| list 7 o| ##sys#check-list 5 o| add1 o| ##sys#apply 2 o| values 20 o| ##sys#fudge 2 o| vector-set! 3 o| char=? o| ##sys#foreign-block-argument 8 o| ##sys#foreign-integer-argument 5 o| fx- 12 o| ##sys#check-number 8 o| ##sys#check-vector o| procedure? o| member o| fx+ 28 o| string-ref o| fx> o| cons 13 o| ##sys#size 14 o| ##sys#call-with-values 14 o| not 8 o| ##sys#check-string 32 o| fx= 32 o| zero? o| ##sys#null-pointer? 4 o| pair? 19 o| ##sys#check-exact 37 o| ##sys#slot 32 o| eq? 40 o| cdr 28 o| ##sys#eqv? 14 o| null? 72 o| car 51 o| vector 2 o| fixnum? 15 o| string? 2 o| fx< 47 o| ##sys#foreign-fixnum-argument 28 o| apply 9 o|contracted procedure: k2701 o|contracted procedure: k2730 o|contracted procedure: k2739 o|contracted procedure: k2755 o|contracted procedure: k2783 o|contracted procedure: k2774 o|contracted procedure: k2904 o|contracted procedure: k2826 o|contracted procedure: k2898 o|contracted procedure: k2829 o|contracted procedure: k2892 o|contracted procedure: k2832 o|contracted procedure: k2886 o|contracted procedure: k2835 o|contracted procedure: k2847 o|contracted procedure: k2853 o|contracted procedure: k2859 o|contracted procedure: k2865 o|contracted procedure: k2871 o|contracted procedure: k2877 o|contracted procedure: k2883 o|contracted procedure: k2989 o|contracted procedure: k2992 o|contracted procedure: k3014 o|contracted procedure: k3010 o|contracted procedure: k3020 o|contracted procedure: k3026 o|contracted procedure: k3047 o|contracted procedure: k3054 o|contracted procedure: k3080 o|contracted procedure: k3092 o|contracted procedure: k3106 o|contracted procedure: k3162 o|contracted procedure: k3125 o|contracted procedure: k3154 o|contracted procedure: k3144 o|contracted procedure: k3168 o|contracted procedure: k3177 o|contracted procedure: k3183 o|contracted procedure: k3186 o|contracted procedure: k3189 o|contracted procedure: k3220 o|contracted procedure: k3195 o|contracted procedure: k3306 o|contracted procedure: k3229 o|contracted procedure: k3241 o|contracted procedure: k3248 o|contracted procedure: k3286 o|contracted procedure: k3296 o|contracted procedure: k3300 o|contracted procedure: k3423 o|contracted procedure: k3315 o|contracted procedure: k3318 o|contracted procedure: k3420 o|contracted procedure: k3324 o|contracted procedure: k3357 o|contracted procedure: k3402 o|contracted procedure: k3553 o|contracted procedure: k3435 o|contracted procedure: k3547 o|contracted procedure: k3438 o|contracted procedure: k3541 o|contracted procedure: k3441 o|contracted procedure: k3444 o|contracted procedure: k3463 o|contracted procedure: k3478 o|contracted procedure: k3482 o|contracted procedure: k3488 o|contracted procedure: k3534 o|contracted procedure: k3491 o|contracted procedure: k3510 o|contracted procedure: k3513 o|contracted procedure: k3528 o|contracted procedure: k3519 o|contracted procedure: k3559 o|contracted procedure: k3580 o|contracted procedure: k3583 o|contracted procedure: k3614 o|contracted procedure: k3621 o|contracted procedure: k3644 o|contracted procedure: k3660 o|contracted procedure: k3678 o|contracted procedure: k3700 o|contracted procedure: k3703 o|contracted procedure: k3709 o|contracted procedure: k3721 o|contracted procedure: k3730 o|contracted procedure: k3756 o|contracted procedure: k3827 o|contracted procedure: k3846 o|contracted procedure: k3910 o|contracted procedure: k3923 o|contracted procedure: k3916 o|contracted procedure: k3932 o|contracted procedure: k3938 o|contracted procedure: k3953 o|contracted procedure: k3959 o|contracted procedure: k3984 o|contracted procedure: k4001 o|contracted procedure: k3997 o|contracted procedure: k3976 o|contracted procedure: k4007 o|contracted procedure: k4117 o|contracted procedure: k4064 o|contracted procedure: k4073 o|contracted procedure: k4056 o|contracted procedure: k4107 o|contracted procedure: k4103 o|contracted procedure: k4043 o|contracted procedure: k4126 o|contracted procedure: k4129 o|contracted procedure: k4143 o|contracted procedure: k4184 o|contracted procedure: k4191 o|contracted procedure: k4199 o|contracted procedure: k4211 o|contracted procedure: k4215 o|contracted procedure: k4222 o|contracted procedure: k4158 o|contracted procedure: k4229 o|contracted procedure: k4312 o|contracted procedure: k4252 o|contracted procedure: k4306 o|contracted procedure: k4255 o|contracted procedure: k4300 o|contracted procedure: k4258 o|contracted procedure: k4294 o|contracted procedure: k4261 o|contracted procedure: k4264 o|contracted procedure: k4267 o|contracted procedure: k4285 o|contracted procedure: k4323 o|contracted procedure: k4371 o|contracted procedure: k4374 o|contracted procedure: k4411 o|contracted procedure: k4377 o|contracted procedure: k4398 o|contracted procedure: k4436 o|contracted procedure: k4454 o|contracted procedure: k4467 o|contracted procedure: k44679528 o|contracted procedure: k4481 o|contracted procedure: k4559 o|contracted procedure: k4566 o|contracted procedure: k4643 o|contracted procedure: k4622 o|contracted procedure: k4625 o|contracted procedure: k4628 o|contracted procedure: k4637 o|contracted procedure: k4609 o|contracted procedure: k4613 o|contracted procedure: k4617 o|contracted procedure: k8721 o|contracted procedure: k4650 o|contracted procedure: k4658 o|contracted procedure: k4661 o|contracted procedure: k4664 o|contracted procedure: k4674 o|contracted procedure: k4680 o|contracted procedure: k4687 o|contracted procedure: k4699 o|contracted procedure: k4705 o|contracted procedure: k4718 o|contracted procedure: k4721 o|contracted procedure: k4736 o|contracted procedure: k4748 o|contracted procedure: k4759 o|contracted procedure: k4768 o|contracted procedure: k4774 o|contracted procedure: k4780 o|contracted procedure: k4796 o|contracted procedure: k4802 o|contracted procedure: k4816 o|contracted procedure: k4819 o|contracted procedure: k4839 o|contracted procedure: k4845 o|contracted procedure: k4877 o|contracted procedure: k4886 o|contracted procedure: k4903 o|contracted procedure: k4893 o|contracted procedure: k4900 o|contracted procedure: k4926 o|contracted procedure: k4932 o|contracted procedure: k4938 o|contracted procedure: k4944 o|contracted procedure: k4953 o|contracted procedure: k4982 o|contracted procedure: k4992 o|contracted procedure: k4986 o|contracted procedure: k4999 o|contracted procedure: k5003 o|contracted procedure: k4965 o|contracted procedure: k4969 o|contracted procedure: k5012 o|contracted procedure: k5041 o|contracted procedure: k5051 o|contracted procedure: k5045 o|contracted procedure: k5058 o|contracted procedure: k5062 o|contracted procedure: k5024 o|contracted procedure: k5028 o|contracted procedure: k4857 o|contracted procedure: k4861 o|contracted procedure: k4865 o|contracted procedure: k5073 o|contracted procedure: k5086 o|contracted procedure: k5113 o|contracted procedure: k5119 o|contracted procedure: k5092 o|contracted procedure: k5096 o|contracted procedure: k5100 o|contracted procedure: k5128 o|contracted procedure: k5155 o|contracted procedure: k5161 o|contracted procedure: k5134 o|contracted procedure: k5138 o|contracted procedure: k5142 o|contracted procedure: k5168 o|contracted procedure: k5178 o|contracted procedure: k5184 o|contracted procedure: k5193 o|contracted procedure: k5199 o|contracted procedure: k5202 o|contracted procedure: k5209 o|contracted procedure: k5218 o|contracted procedure: k5228 o|contracted procedure: k5234 o|contracted procedure: k5247 o|contracted procedure: k5265 o|contracted procedure: k5277 o|contracted procedure: k5290 o|contracted procedure: k5300 o|contracted procedure: k5317 o|contracted procedure: k5330 o|contracted procedure: k5340 o|contracted procedure: k5363 o|contracted procedure: k5378 o|contracted procedure: k5509 o|contracted procedure: k5544 o|contracted procedure: k5550 o|contracted procedure: k5564 o|contracted procedure: k5577 o|contracted procedure: k5587 o|contracted procedure: k5591 o|contracted procedure: k5555 o|contracted procedure: k5601 o|contracted procedure: k5607 o|contracted procedure: k5613 o|contracted procedure: k5623 o|contracted procedure: k5629 o|contracted procedure: k5665 o|contracted procedure: k5738 o|contracted procedure: k5693 o|contracted procedure: k5702 o|contracted procedure: k5728 o|contracted procedure: k5731 o|contracted procedure: k5843 o|contracted procedure: k5786 o|contracted procedure: k5795 o|contracted procedure: k5830 o|contracted procedure: k5780 o|contracted procedure: k5833 o|contracted procedure: k5836 o|contracted procedure: k5884 o|contracted procedure: k5896 o|contracted procedure: k5899 o|contracted procedure: k5853 o|contracted procedure: k58609119 o|contracted procedure: k5918 o|contracted procedure: k5942 o|contracted procedure: k5948 o|contracted procedure: k5958 o|contracted procedure: k5961 o|contracted procedure: k5968 o|contracted procedure: k5972 o|contracted procedure: k5982 o|contracted procedure: k58609127 o|contracted procedure: k6005 o|contracted procedure: k6008 o|contracted procedure: k6014 o|contracted procedure: k5993 o|contracted procedure: k6000 o|contracted procedure: k6069 o|contracted procedure: k6072 o|contracted procedure: k6078 o|contracted procedure: k6092 o|contracted procedure: k6095 o|contracted procedure: k6098 o|contracted procedure: k6104 o|contracted procedure: k6118 o|contracted procedure: k6121 o|contracted procedure: k6159 o|contracted procedure: k6175 o|contracted procedure: k6178 o|contracted procedure: k6184 o|contracted procedure: k6212 o|contracted procedure: k6312 o|contracted procedure: k6224 o|contracted procedure: k6227 o|contracted procedure: k6258 o|contracted procedure: k6298 o|contracted procedure: k6302 o|contracted procedure: k6345 o|contracted procedure: k6348 o|contracted procedure: k6354 o|contracted procedure: k6333 o|contracted procedure: k6340 o|contracted procedure: k6881 o|contracted procedure: k6367 o|contracted procedure: k6875 o|contracted procedure: k6370 o|contracted procedure: k6869 o|contracted procedure: k6373 o|contracted procedure: k6863 o|contracted procedure: k6376 o|contracted procedure: k6857 o|contracted procedure: k6379 o|contracted procedure: k6851 o|contracted procedure: k6382 o|contracted procedure: k6845 o|contracted procedure: k6385 o|contracted procedure: k6839 o|contracted procedure: k6388 o|contracted procedure: k6830 o|contracted procedure: k6394 o|contracted procedure: k6408 o|contracted procedure: k6414 o|contracted procedure: k6417 o|contracted procedure: k6434 o|contracted procedure: k6448 o|contracted procedure: k6454 o|contracted procedure: k6457 o|contracted procedure: k6472 o|contracted procedure: k6487 o|contracted procedure: k6507 o|contracted procedure: k6513 o|contracted procedure: k6516 o|contracted procedure: k6550 o|contracted procedure: k6554 o|contracted procedure: k6557 o|contracted procedure: k6566 o|contracted procedure: k6581 o|contracted procedure: k6590 o|contracted procedure: k6606 o|contracted procedure: k6628 o|contracted procedure: k6634 o|contracted procedure: k6637 o|contracted procedure: k6666 o|contracted procedure: k6640 o|contracted procedure: k6644 o|contracted procedure: k6648 o|contracted procedure: k6655 o|contracted procedure: k6659 o|contracted procedure: k6663 o|contracted procedure: k6675 o|contracted procedure: k6685 o|contracted procedure: k6697 o|contracted procedure: k6759 o|contracted procedure: k6713 o|contracted procedure: k6719 o|contracted procedure: k6725 o|contracted procedure: k6732 o|contracted procedure: k6741 o|contracted procedure: k6752 o|contracted procedure: k6748 o|contracted procedure: k6780 o|contracted procedure: k6776 o|contracted procedure: k6769 o|inlining procedure: k6765 o|contracted procedure: k6791 o|contracted procedure: k6795 o|contracted procedure: k6787 o|inlining procedure: k6765 o|contracted procedure: k6802 o|contracted procedure: k6805 o|contracted procedure: k6817 o|contracted procedure: k6824 o|contracted procedure: k7142 o|contracted procedure: k6890 o|contracted procedure: k7136 o|contracted procedure: k6893 o|contracted procedure: k7130 o|contracted procedure: k6896 o|contracted procedure: k7124 o|contracted procedure: k6899 o|contracted procedure: k7118 o|contracted procedure: k6902 o|contracted procedure: k7112 o|contracted procedure: k6905 o|contracted procedure: k6922 o|contracted procedure: k6928 o|contracted procedure: k6931 o|contracted procedure: k6943 o|contracted procedure: k6958 o|contracted procedure: k6969 o|contracted procedure: k7103 o|contracted procedure: k6972 o|contracted procedure: k6999 o|contracted procedure: k7008 o|contracted procedure: k7021 o|contracted procedure: k7033 o|contracted procedure: k7048 o|contracted procedure: k7052 o|contracted procedure: k7061 o|contracted procedure: k7074 o|contracted procedure: k7081 o|contracted procedure: k7085 o|contracted procedure: k7091 o|contracted procedure: k7097 o|contracted procedure: k7151 o|contracted procedure: k7167 o|contracted procedure: k7177 o|contracted procedure: k7241 o|contracted procedure: k7186 o|contracted procedure: k7235 o|contracted procedure: k7189 o|contracted procedure: k7229 o|contracted procedure: k7192 o|contracted procedure: k7223 o|contracted procedure: k7195 o|contracted procedure: k7200 o|contracted procedure: k7213 o|contracted procedure: k7207 o|contracted procedure: k7216 o|contracted procedure: k7254 o|contracted procedure: k7258 o|contracted procedure: k7262 o|contracted procedure: k7274 o|contracted procedure: k7290 o|contracted procedure: k7315 o|contracted procedure: k7327 o|contracted procedure: k7331 o|contracted procedure: k7335 o|contracted procedure: k7349 o|contracted procedure: k7341 o|contracted procedure: k7355 o|contracted procedure: k7361 o|contracted procedure: k7367 o|contracted procedure: k7378 o|contracted procedure: k7386 o|contracted procedure: k7392 o|contracted procedure: k7402 o|contracted procedure: k7408 o|contracted procedure: k7414 o|contracted procedure: k7488 o|contracted procedure: k7442 o|contracted procedure: k7446 o|contracted procedure: k7450 o|contracted procedure: k7454 o|contracted procedure: k7458 o|contracted procedure: k7462 o|contracted procedure: k7504 o|contracted procedure: k7530 o|contracted procedure: k7539 o|contracted procedure: k7550 o|contracted procedure: k7518 o|contracted procedure: k7522 o|contracted procedure: k7553 o|contracted procedure: k7563 o|contracted procedure: k7615 o|contracted procedure: k7587 o|contracted procedure: k7590 o|contracted procedure: k7593 o|contracted procedure: k7608 o|substituted constant variable: g9894 o|substituted constant variable: g9894 o|substituted constant variable: g9894 o|substituted constant variable: g9894 o|substituted constant variable: g9894 o|substituted constant variable: g9894 o|substituted constant variable: g9894 o|substituted constant variable: g9894 o|substituted constant variable: g9894 o|substituted constant variable: g9894 o|contracted procedure: k7579 o|contracted procedure: k7663 o|contracted procedure: k76519680 o|contracted procedure: k76519685 o|contracted procedure: k7671 o|contracted procedure: k7686 o|contracted procedure: k7706 o|contracted procedure: k7702 o|contracted procedure: k7709 o|contracted procedure: k7715 o|contracted procedure: k7721 o|contracted procedure: k7733 o|contracted procedure: k7752 o|contracted procedure: k7773 o|contracted procedure: k7769 o|contracted procedure: k7763 o|contracted procedure: k7784 o|contracted procedure: k7819 o|contracted procedure: k7800 o|contracted procedure: k7804 o|contracted procedure: k7808 o|contracted procedure: k7948 o|contracted procedure: k7864 o|contracted procedure: k7942 o|contracted procedure: k7867 o|contracted procedure: k7936 o|contracted procedure: k7870 o|contracted procedure: k7930 o|contracted procedure: k7873 o|contracted procedure: k7897 o|contracted procedure: k7900 o|contracted procedure: k7924 o|contracted procedure: k8008 o|contracted procedure: k7957 o|contracted procedure: k8002 o|contracted procedure: k7960 o|contracted procedure: k7996 o|contracted procedure: k7963 o|contracted procedure: k7990 o|contracted procedure: k7966 o|contracted procedure: k7978 o|contracted procedure: k7984 o|contracted procedure: k8018 o|contracted procedure: k8046 o|contracted procedure: k8024 o|contracted procedure: k8059 o|contracted procedure: k8068 o|contracted procedure: k8071 o|contracted procedure: k8077 o|contracted procedure: k8083 o|contracted procedure: k8135 o|contracted procedure: k8138 o|contracted procedure: k8161 o|contracted procedure: k8188 o|contracted procedure: k8167 o|contracted procedure: k8219 o|contracted procedure: k8231 o|contracted procedure: k8148 o|contracted procedure: k8250 o|contracted procedure: k8367 o|contracted procedure: k8371 o|contracted procedure: k8375 o|contracted procedure: k8336 o|contracted procedure: k8382 o|contracted procedure: k8399 o|contracted procedure: k8409 o|contracted procedure: k8413 o|contracted procedure: k8416 o|contracted procedure: k8490 o|contracted procedure: k8451 o|contracted procedure: k8484 o|contracted procedure: k8454 o|contracted procedure: k8478 o|contracted procedure: k8457 o|contracted procedure: k8472 o|contracted procedure: k8460 o|contracted procedure: k8532 o|contracted procedure: k8499 o|contracted procedure: k8526 o|contracted procedure: k8502 o|contracted procedure: k8520 o|contracted procedure: k8505 o|contracted procedure: k8514 o|contracted procedure: k8508 o|contracted procedure: k8554 o|contracted procedure: k8560 o|contracted procedure: k8549 o|contracted procedure: k8571 o|contracted procedure: k8577 o|contracted procedure: k8583 o|contracted procedure: k8595 o|contracted procedure: k8598 o|contracted procedure: k8604 o|contracted procedure: k8623 o|contracted procedure: k8642 o|contracted procedure: k8661 o|contracted procedure: k8680 o|contracted procedure: k8702 o|contracted procedure: k8705 o|contracted procedure: k8714 o|contracted procedure: k8727 o|contracted procedure: k8752 o|contracted procedure: k8736 o|contracted procedure: k8739 o|contracted procedure: k8761 o|contracted procedure: k8773 o|contracted procedure: k8789 o|contracted procedure: k8785 o|contracted procedure: k8795 o|contracted procedure: k8810 o|contracted procedure: k8832 o|contracted procedure: k8823 o|simplifications: ((if . 1) (let . 120)) o|removed binding forms: 574 o|inlining procedure: k3929 o|inlining procedure: k3950 o|inlining procedure: "(posixunix.scm:616) mode1037" o|inlining procedure: "(posixunix.scm:627) mode1037" o|inlining procedure: k5989 o|replaced variables: 301 o|removed binding forms: 2 o|inlining procedure: k5106 o|inlining procedure: k5106 o|inlining procedure: k5148 o|inlining procedure: k5148 o|removed side-effect free assignment to unused variable: mode1037 o|inlining procedure: k5580 o|inlining procedure: k5912 o|inlining procedure: k5975 o|substituted constant variable: r599010006 o|substituted constant variable: r599010006 o|replaced variables: 10 o|removed binding forms: 154 o|contracted procedure: k4631 o|contracted procedure: k4871 o|contracted procedure: k5909 o|contracted procedure: k7479 o|contracted procedure: k7546 o|contracted procedure: k7829 o|converted assignments to bindings: (check1039) o|simplifications: ((let . 3)) o|removed binding forms: 21 o|contracted procedure: k5280 o|contracted procedure: k5320 o|replaced variables: 2 o|removed binding forms: 2 o|removed binding forms: 1 o|direct leaf routine/allocation: doloop946947 0 o|direct leaf routine/allocation: doloop928929 0 o|direct leaf routine/allocation: for-each-loop11641176 0 o|direct leaf routine/allocation: peek1483 0 o|direct leaf routine/allocation: swapped-ends2030 3 o|direct leaf routine/allocation: g20882095 0 o|contracted procedure: k4848 o|contracted procedure: k4851 o|converted assignments to bindings: (doloop946947) o|converted assignments to bindings: (doloop928929) o|contracted procedure: k5558 o|converted assignments to bindings: (for-each-loop11641176) o|contracted procedure: "(posixunix.scm:1177) k6544" o|contracted procedure: "(posixunix.scm:1680) k8270" o|contracted procedure: "(posixunix.scm:1685) k8293" o|contracted procedure: "(posixunix.scm:1684) k8297" o|contracted procedure: "(posixunix.scm:1721) k8402" o|simplifications: ((let . 3)) o|removed binding forms: 8 o|direct leaf routine/allocation: for-each-loop20872105 0 o|converted assignments to bindings: (for-each-loop20872105) o|simplifications: ((let . 1)) o|customizable procedures: (loop1185 %process2076 chkstrlst2083 output-port2029 make-on-close1992 input-port2028 spawn2027 connect-parent1994 needed-pipe1993 connect-child1995 k8105 k8065 call-with-exec-args ##sys#terminal-check k7680 k7692 k7533 k7473 k7358 setup1653 err1654 k7203 k7157 loop1622 k6975 k6700 k6619 loop1529 ready?1482 fetch1484 loop1426 check1373 doloop12971298 loop1289 k5789 loop1270 k5696 check1039 k4828 k4831 k4834 k5066 k5034 lp983 k4975 lp1002 k4916 k4765 k4655 list->c-string-buffer k4529 doloop702703 tmp12594 tmp22595 doloop683684 free-c-string-buffer scan628 loop625 check-time-vector k3681 k3684 loop450 g422423 loop414 conc-loop395 k3497 loop374 k3346 loop328 g289296 for-each-loop288305 rmdir282 k3171 mode204 check205 k2986 ##sys#stat) o|calls to known targets: 291 o|unused rest argument: _446 f_3849 o|unused rest argument: _445 f_3841 o|unused rest argument: _486 f_3901 o|identified direct recursive calls: f_4179 1 o|identified direct recursive calls: f_5123 2 o|identified direct recursive calls: f_5081 2 o|identified direct recursive calls: f_5572 1 o|identified direct recursive calls: f_5879 1 o|identified direct recursive calls: f_5937 1 o|identified direct recursive calls: f_6623 1 o|identified direct recursive calls: f_7056 1 o|identified direct recursive calls: f_8394 1 o|identified direct recursive calls: f_8697 2 o|fast box initializations: 26 o|fast global references: 73 o|fast global assignments: 7 o|dropping unused closure argument: f_7756 o|dropping unused closure argument: f_4440 o|dropping unused closure argument: f_3908 o|dropping unused closure argument: f_7248 o|dropping unused closure argument: f_8157 o|dropping unused closure argument: f_6116 o|dropping unused closure argument: f_8194 o|dropping unused closure argument: f_8378 o|dropping unused closure argument: f_3233 o|dropping unused closure argument: f_3038 o|dropping unused closure argument: f_3075 o|dropping unused closure argument: f_5260 o|dropping unused closure argument: f_8241 o|dropping unused closure argument: f_8214 o|dropping unused closure argument: f_4321 o|dropping unused closure argument: f_8226 o|dropping unused closure argument: f_7184 o|dropping unused closure argument: f_5572 o|dropping unused closure argument: f_2722 */ /* end of file */ ������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/srfi-14.import.scm�������������������������������������������������������������������0000644�0001750�0001750�00000005606�13052306173�016221� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; srfi-14.import.scm - import library for "srfi-14" module ; ; Copyright (c) 2008-2017, 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 'srfi-14 '(->char-set char-set char-set->list char-set->string char-set-adjoin char-set-adjoin! char-set-any char-set-complement char-set-complement! char-set-contains? char-set-copy char-set-count char-set-cursor char-set-cursor-next char-set-delete char-set-delete! char-set-diff+intersection char-set-diff+intersection! char-set-difference char-set-difference! char-set-every char-set-filter char-set-filter! char-set-fold char-set-for-each char-set-hash char-set-intersection char-set-intersection! char-set-map char-set-ref char-set-size char-set-unfold char-set-unfold! char-set-union char-set-union! char-set-xor char-set-xor! char-set:ascii char-set:blank char-set:digit char-set:empty char-set:full char-set:graphic char-set:hex-digit char-set:iso-control char-set:letter char-set:letter+digit char-set:lower-case char-set:printing char-set:punctuation char-set:s char-set:symbol char-set:title-case char-set:upper-case char-set:whitespace char-set<= char-set= char-set? end-of-char-set? list->char-set list->char-set! make-char-set string->char-set string->char-set! ucs-range->char-set ucs-range->char-set!)) ��������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/data-structures.scm������������������������������������������������������������������0000644�0001750�0001750�00000065321�13052306173�016655� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; data-structures.scm - Optional data structures extensions ; ; Copyright (c) 2008-2017, 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)) (include "common-declarations.scm") (register-feature! 'data-structures) ;;; 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) ) ) ) ) ) ) ) ) (define (any? x) #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 (lambda (lst n) (##sys#check-exact 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))) ) ) ] ) ) ) ) ) (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) ) ) (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)) ) ) ) ) ) ) ; (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)) ;;; 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-exact 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-exact start1 'substring=?) (##sys#check-exact 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-exact start1 'substring-ci=?) (##sys#check-exact 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-exact 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) ) ) ;;; 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) (##sys#abort (##sys#make-structure 'condition '(exn runtime cycle) `((exn . message) "cycle detected" (exn . arguments) ,(list (cons node (reverse path))) (exn . call-chain) ,(##sys#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))))) ;;; Binary search: (define binary-search (lambda (vec proc) (if (pair? vec) (set! vec (list->vector vec)) (##sys#check-vector vec 'binary-search) ) (let ([len (##sys#size vec)]) (and (fx> len 0) (let loop ([ps 0] [pe len] ) (let ([p (fx+ ps (##core#inline "C_fixnum_shift_right" (fx- pe ps) 1))]) (let* ([x (##sys#slot vec p)] [r (proc x)] ) (cond [(fx= r 0) p] [(fx< r 0) (and (not (fx= pe p)) (loop ps p))] [else (and (not (fx= ps p)) (loop p pe))] ) ) ) ) ) ) ) ) ; Support for queues ; ; Written by Andrew Wilcox (awilcox@astro.psu.edu) on April 1, 1992. ; ; This code is in the public domain. ; ; (heavily adapated for use with CHICKEN by felix) ; ; Elements in a queue are stored in a list. The last pair in the list ; is stored in the queue type so that datums can be added in constant ; time. (define (make-queue) (##sys#make-structure 'queue '() '() 0)) (define (queue? x) (##sys#structure? x 'queue)) (define (queue-length q) ; thread-safe (##sys#check-structure q 'queue 'queue-length) (##sys#slot q 3)) (define (queue-empty? q) ; thread-safe (##sys#check-structure q 'queue 'queue-empty?) (eq? '() (##sys#slot q 1)) ) (define queue-first ; thread-safe (lambda (q) (##sys#check-structure q 'queue 'queue-first) (let ((first-pair (##sys#slot q 1))) (when (eq? '() first-pair) (##sys#error 'queue-first "queue is empty" q)) (##sys#slot first-pair 0) ) ) ) (define queue-last ; thread-safe (lambda (q) (##sys#check-structure q 'queue 'queue-last) (let ((last-pair (##sys#slot q 2))) (when (eq? '() last-pair) (##sys#error 'queue-last "queue is empty" q)) (##sys#slot last-pair 0) ) ) ) (define (queue-add! q datum) ; thread-safe (##sys#check-structure q 'queue 'queue-add!) (let ((new-pair (cons datum '()))) (cond ((eq? '() (##sys#slot q 1)) (##sys#setslot q 1 new-pair)) (else (##sys#setslot (##sys#slot q 2) 1 new-pair)) ) (##sys#setslot q 2 new-pair) (##sys#setislot q 3 (fx+ (##sys#slot q 3) 1)) (##core#undefined) ) ) (define queue-remove! ; thread-safe (lambda (q) (##sys#check-structure q 'queue 'queue-remove!) (let ((first-pair (##sys#slot q 1))) (when (eq? '() first-pair) (##sys#error 'queue-remove! "queue is empty" q) ) (let ((first-cdr (##sys#slot first-pair 1))) (##sys#setslot q 1 first-cdr) (if (eq? '() first-cdr) (##sys#setslot q 2 '()) ) (##sys#setislot q 3 (fx- (##sys#slot q 3) 1)) (##sys#slot first-pair 0) ) ) ) ) (define (queue->list q) (##sys#check-structure q 'queue 'queue->list) (let loop ((lst (##sys#slot q 1)) (lst2 '())) (if (null? lst) (##sys#fast-reverse lst2) (loop (##sys#slot lst 1) (cons (##sys#slot lst 0) lst2))))) (define (list->queue lst0) (##sys#check-list lst0 'list->queue) (##sys#make-structure 'queue lst0 (if (eq? lst0 '()) '() (do ((lst lst0 (##sys#slot lst 1))) ((eq? (##sys#slot lst 1) '()) lst) (if (or (not (##core#inline "C_blockp" lst)) (not (##core#inline "C_pairp" lst)) ) (##sys#error-not-a-proper-list lst0 'list->queue) ) ) ) (##sys#length lst0)) ) ; (queue-push-back! queue item) ; Pushes an item into the first position of a queue. (define (queue-push-back! q item) ; thread-safe (##sys#check-structure q 'queue 'queue-push-back!) (let ((newlist (cons item (##sys#slot q 1)))) (##sys#setslot q 1 newlist) (if (eq? '() (##sys#slot q 2)) (##sys#setslot q 2 newlist)) (##sys#setislot q 3 (fx+ (##sys#slot q 3) 1)))) ; (queue-push-back-list! queue item-list) ; Pushes the items in item-list back onto the queue, ; so that (car item-list) becomes the next removable item. (define-inline (last-pair lst0) (do ((lst lst0 (##sys#slot lst 1))) ((eq? (##sys#slot lst 1) '()) lst))) (define (queue-push-back-list! q itemlist) (##sys#check-structure q 'queue 'queue-push-back-list!) (##sys#check-list itemlist 'queue-push-back-list!) (let* ((newlist (append itemlist (##sys#slot q 1))) (newtail (if (eq? newlist '()) '() (last-pair newlist)))) (##sys#setslot q 1 newlist) (##sys#setslot q 2 newtail) (##sys#setislot q 3 (fx+ (##sys#slot q 3) (##core#inline "C_i_length" itemlist))))) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/chicken-uninstall.c������������������������������������������������������������������0000644�0001750�0001750�00000341257�13052306531�016601� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken-uninstall.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: chicken-uninstall.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -no-lambda-info -local -no-trace -output-file chicken-uninstall.c used units: library eval chicken_2dsyntax srfi_2d1 posix data_2dstructures utils ports irregex srfi_2d13 files */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_srfi_2d1_toplevel) C_externimport void C_ccall C_srfi_2d1_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; C_noret_decl(C_utils_toplevel) C_externimport void C_ccall C_utils_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_ports_toplevel) C_externimport void C_ccall C_ports_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_srfi_2d13_toplevel) C_externimport void C_ccall C_srfi_2d13_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_files_toplevel) C_externimport void C_ccall C_files_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[88]; static double C_possibly_force_alignment; C_noret_decl(f_871) static void C_ccall f_871(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_1590) static void C_ccall f_1590(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_1593) static void C_ccall f_1593(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_1549) static void C_ccall f_1549(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(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(f_1336) static void C_ccall f_1336(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_861) static void C_ccall f_861(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_1216) static void C_ccall f_1216(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_1325) static void C_fcall f_1325(C_word t0,C_word t1) C_noret; C_noret_decl(f_791) static void C_ccall f_791(C_word c,C_word *av) C_noret; C_noret_decl(f_1504) static void C_fcall f_1504(C_word t0,C_word t1,C_word t2) 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_888) static void C_fcall f_888(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_886) static void C_ccall f_886(C_word c,C_word *av) C_noret; C_noret_decl(f_795) static void C_ccall f_795(C_word c,C_word *av) C_noret; C_noret_decl(f_1164) static void C_fcall f_1164(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1226) static void C_ccall f_1226(C_word c,C_word *av) C_noret; C_noret_decl(f_761) static void C_ccall f_761(C_word c,C_word *av) C_noret; C_noret_decl(f_1159) static void C_ccall f_1159(C_word c,C_word *av) C_noret; C_noret_decl(f_913) static void C_ccall f_913(C_word c,C_word *av) C_noret; C_noret_decl(f_1257) static void C_fcall f_1257(C_word t0,C_word t1,C_word t2) 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_774) static void C_fcall f_774(C_word t0) C_noret; C_noret_decl(f_1282) static void C_ccall f_1282(C_word c,C_word *av) C_noret; C_noret_decl(f_947) static void C_ccall f_947(C_word c,C_word *av) C_noret; C_noret_decl(f_1100) static void C_ccall f_1100(C_word c,C_word *av) C_noret; C_noret_decl(f_1206) static void C_fcall f_1206(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1011) static void C_fcall f_1011(C_word t0,C_word t1) C_noret; C_noret_decl(f1679) static void C_ccall f1679(C_word c,C_word *av) C_noret; C_noret_decl(f1674) static void C_ccall f1674(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_1231) static void C_fcall f_1231(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1174) static void C_ccall f_1174(C_word c,C_word *av) C_noret; C_noret_decl(f_1481) static void C_ccall f_1481(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_1129) static void C_ccall f_1129(C_word c,C_word *av) C_noret; C_noret_decl(f_1094) static void C_ccall f_1094(C_word c,C_word *av) C_noret; C_noret_decl(f_1009) static void C_ccall f_1009(C_word c,C_word *av) C_noret; C_noret_decl(f_1120) static void C_ccall f_1120(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(f1696) static void C_ccall f1696(C_word c,C_word *av) C_noret; C_noret_decl(f_1083) static void C_ccall f_1083(C_word c,C_word *av) C_noret; C_noret_decl(f1691) static void C_ccall f1691(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_1466) static void C_fcall f_1466(C_word t0,C_word t1) C_noret; C_noret_decl(f_1077) static void C_fcall f_1077(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_1246) static void C_ccall f_1246(C_word c,C_word *av) C_noret; C_noret_decl(f_1452) static void C_ccall f_1452(C_word c,C_word *av) C_noret; C_noret_decl(f_1343) static void C_ccall f_1343(C_word c,C_word *av) C_noret; C_noret_decl(f_1441) static void C_ccall f_1441(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_968) static void C_ccall f_968(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_1042) static void C_ccall f_1042(C_word c,C_word *av) C_noret; C_noret_decl(f_1044) static void C_fcall f_1044(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_994) static void C_ccall f_994(C_word c,C_word *av) C_noret; C_noret_decl(f_823) static void C_ccall f_823(C_word c,C_word *av) C_noret; C_noret_decl(f_829) static void C_ccall f_829(C_word c,C_word *av) C_noret; C_noret_decl(f_826) static void C_ccall f_826(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(f1684) static void C_ccall f1684(C_word c,C_word *av) C_noret; C_noret_decl(f_752) static void C_ccall f_752(C_word c,C_word *av) C_noret; C_noret_decl(f_1027) static void C_ccall f_1027(C_word c,C_word *av) C_noret; C_noret_decl(f_1398) static void C_ccall f_1398(C_word c,C_word *av) C_noret; C_noret_decl(f_817) static void C_ccall f_817(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_764) static void C_ccall f_764(C_word c,C_word *av) C_noret; C_noret_decl(f_740) static void C_ccall f_740(C_word c,C_word *av) C_noret; C_noret_decl(f_977) static void C_ccall f_977(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_848) static void C_ccall f_848(C_word c,C_word *av) C_noret; C_noret_decl(f_758) static void C_ccall f_758(C_word c,C_word *av) C_noret; C_noret_decl(f_755) static void C_ccall f_755(C_word c,C_word *av) C_noret; C_noret_decl(f_731) static void C_ccall f_731(C_word c,C_word *av) C_noret; C_noret_decl(f_922) static void C_fcall f_922(C_word t0,C_word t1,C_word t2) 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_743) static void C_ccall f_743(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_749) static void C_ccall f_749(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_734) static void C_ccall f_734(C_word c,C_word *av) C_noret; C_noret_decl(f_737) static void C_ccall f_737(C_word c,C_word *av) C_noret; C_noret_decl(f_1149) static void C_ccall f_1149(C_word c,C_word *av) C_noret; C_noret_decl(f_988) static void C_ccall f_988(C_word c,C_word *av) C_noret; C_noret_decl(f_1147) static void C_ccall f_1147(C_word c,C_word *av) C_noret; C_noret_decl(f_982) static void C_ccall f_982(C_word c,C_word *av) C_noret; C_noret_decl(f_1069) static void C_ccall f_1069(C_word c,C_word *av) 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_1134) static void C_ccall f_1134(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_1432) static void C_ccall f_1432(C_word c,C_word *av) C_noret; C_noret_decl(f_801) static void C_ccall f_801(C_word c,C_word *av) 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_876) static void C_fcall f_876(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(trf_1325) static void C_ccall trf_1325(C_word c,C_word *av) C_noret; static void C_ccall trf_1325(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1325(t0,t1);} C_noret_decl(trf_1504) static void C_ccall trf_1504(C_word c,C_word *av) C_noret; static void C_ccall trf_1504(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1504(t0,t1,t2);} C_noret_decl(trf_888) static void C_ccall trf_888(C_word c,C_word *av) C_noret; static void C_ccall trf_888(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_888(t0,t1,t2);} C_noret_decl(trf_1164) static void C_ccall trf_1164(C_word c,C_word *av) C_noret; static void C_ccall trf_1164(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1164(t0,t1,t2);} C_noret_decl(trf_1257) static void C_ccall trf_1257(C_word c,C_word *av) C_noret; static void C_ccall trf_1257(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1257(t0,t1,t2);} C_noret_decl(trf_774) static void C_ccall trf_774(C_word c,C_word *av) C_noret; static void C_ccall trf_774(C_word c,C_word *av){ C_word t0=av[0]; f_774(t0);} C_noret_decl(trf_1206) static void C_ccall trf_1206(C_word c,C_word *av) C_noret; static void C_ccall trf_1206(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1206(t0,t1,t2,t3);} C_noret_decl(trf_1011) static void C_ccall trf_1011(C_word c,C_word *av) C_noret; static void C_ccall trf_1011(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1011(t0,t1);} C_noret_decl(trf_1231) static void C_ccall trf_1231(C_word c,C_word *av) C_noret; static void C_ccall trf_1231(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1231(t0,t1,t2);} C_noret_decl(trf_1466) static void C_ccall trf_1466(C_word c,C_word *av) C_noret; static void C_ccall trf_1466(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1466(t0,t1);} C_noret_decl(trf_1077) static void C_ccall trf_1077(C_word c,C_word *av) C_noret; static void C_ccall trf_1077(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1077(t0,t1,t2);} C_noret_decl(trf_1044) static void C_ccall trf_1044(C_word c,C_word *av) C_noret; static void C_ccall trf_1044(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1044(t0,t1,t2);} C_noret_decl(trf_922) static void C_ccall trf_922(C_word c,C_word *av) C_noret; static void C_ccall trf_922(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_922(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_876(t0,t1,t2);} /* k869 in k862 in k859 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_871,2,av);} /* chicken-uninstall.scm:66: delete-duplicates */ t2=C_fast_retrieve(lf[45]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[46]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1423 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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; C_word t3; 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_1425,2,av);} a=C_alloc(10); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1432,a[2]=((C_word*)t0)[2],a[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|3,a[1]=(C_word)f_1441,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:171: absolute-pathname? */ t6=C_fast_retrieve(lf[76]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k1588 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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; 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_1590,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1593,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1596,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#implicit-exit-handler */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[19]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[19]+1); av2[1]=t3; tp(2,av2);}} /* k1594 in k1588 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1596,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k1591 in k1588 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_1593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1593,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a1540 in k1473 in k1464 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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); C_check_for_interrupt; 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_memq(t2,lf[77]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1547 in k1464 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_1549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1549,2,av);} /* string->list */ t2=C_fast_retrieve(lf[79]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1299 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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; 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_1300,2,av);} /* chicken-uninstall.scm:130: g368 */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=lf[57]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,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(365))){ C_save(t1); C_rereclaim2(365*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,88); lf[6]=C_h_intern(&lf[6],7,"sprintf"); lf[7]=C_h_intern(&lf[7],13,"make-pathname"); lf[8]=C_h_intern(&lf[8],17,"get-output-string"); lf[9]=C_h_intern(&lf[9],9,"\003sysprint"); lf[10]=C_decode_literal(C_heaptop,"\376B\000\000\010chicken/"); lf[11]=C_h_intern(&lf[11],18,"open-output-string"); lf[12]=C_h_intern(&lf[12],17,"\003syspeek-c-string"); lf[13]=C_decode_literal(C_heaptop,"\376B\000\000\014lib/chicken/"); lf[14]=C_h_intern(&lf[14],15,"repository-path"); lf[17]=C_h_intern(&lf[17],14,"irregex-search"); lf[18]=C_h_intern(&lf[18],6,"filter"); lf[19]=C_h_intern(&lf[19],25,"\003sysimplicit-exit-handler"); lf[20]=C_h_intern(&lf[20],5,"print"); lf[21]=C_decode_literal(C_heaptop,"\376B\000\000\022nothing to remove."); lf[22]=C_h_intern(&lf[22],26,"setup-api#remove-extension"); lf[23]=C_h_intern(&lf[23],16,"\003sysdynamic-wind"); lf[24]=C_decode_literal(C_heaptop,"\376B\000\000\011removing "); lf[25]=C_h_intern(&lf[25],7,"aborted"); lf[26]=C_h_intern(&lf[26],4,"exit"); lf[27]=C_decode_literal(C_heaptop,"\376B\000\000\010aborted."); lf[28]=C_h_intern(&lf[28],6,"signal"); lf[29]=C_h_intern(&lf[29],10,"yes-or-no\077"); lf[30]=C_h_intern(&lf[30],8,"\000default"); lf[31]=C_decode_literal(C_heaptop,"\376B\000\000\002no"); lf[32]=C_h_intern(&lf[32],6,"\000abort"); lf[33]=C_h_intern(&lf[33],21,"setup-api#abort-setup"); lf[34]=C_h_intern(&lf[34],18,"string-concatenate"); lf[35]=C_h_intern(&lf[35],3,"map"); lf[36]=C_h_intern(&lf[36],6,"append"); lf[37]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000+About to delete the following extensions:\012\012\376\377\016"); lf[38]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\030\012Do you want to proceed\077\376\377\016"); lf[39]=C_h_intern(&lf[39],13,"string-append"); lf[40]=C_decode_literal(C_heaptop,"\376B\000\000\002 "); lf[41]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[42]=C_h_intern(&lf[42],22,"with-exception-handler"); lf[43]=C_h_intern(&lf[43],30,"call-with-current-continuation"); lf[44]=C_h_intern(&lf[44],13,"pathname-file"); lf[45]=C_h_intern(&lf[45],17,"delete-duplicates"); lf[46]=C_h_intern(&lf[46],8,"string=\077"); lf[47]=C_h_intern(&lf[47],11,"concatenate"); lf[48]=C_h_intern(&lf[48],4,"glob"); lf[49]=C_decode_literal(C_heaptop,"\376B\000\000\001\052"); lf[50]=C_decode_literal(C_heaptop,"\376B\000\000\012setup-info"); lf[51]=C_h_intern(&lf[51],7,"irregex"); lf[52]=C_decode_literal(C_heaptop,"\376B\000\000\001^"); lf[53]=C_decode_literal(C_heaptop,"\376B\000\000\001$"); lf[54]=C_h_intern(&lf[54],13,"irregex-quote"); lf[55]=C_h_intern(&lf[55],16,"\003sysglob->regexp"); lf[56]=C_h_intern(&lf[56],7,"reverse"); lf[57]=C_decode_literal(C_heaptop,"\376B\000\000B`-deploy\047 only makes sense in combination with `-prefix DIRECTORY`"); lf[58]=C_h_intern(&lf[58],19,"with-output-to-port"); lf[59]=C_h_intern(&lf[59],18,"\003sysstandard-error"); lf[60]=C_decode_literal(C_heaptop,"\376B\000\002\301usage: chicken-uninstall [OPTION | PATTERN] ...\012\012 -h -help " " show this message and exit\012 -version show version an" "d exit\012 -force don\047t ask, delete whatever matches\012 " " -exact treat PATTERN as exact match (not a pattern)\012 -s -s" "udo use external command to elevate privileges for deleting f" "iles\012 -p -prefix PREFIX change installation prefix to PREFIX\012 " " -deploy prefix is a deployment directory\012 -host " " when cross-compiling, uninstall host extensions only\012 -target " " when cross-compiling, uninstall target extensions only"); lf[61]=C_decode_literal(C_heaptop,"\376B\000\000\005-help"); lf[62]=C_decode_literal(C_heaptop,"\376B\000\000\010-version"); lf[63]=C_h_intern(&lf[63],15,"chicken-version"); lf[64]=C_decode_literal(C_heaptop,"\376B\000\000\007-target"); lf[65]=C_decode_literal(C_heaptop,"\376B\000\000\005-host"); lf[66]=C_decode_literal(C_heaptop,"\376B\000\000\006-force"); lf[67]=C_decode_literal(C_heaptop,"\376B\000\000\006-exact"); lf[68]=C_decode_literal(C_heaptop,"\376B\000\000\002-s"); lf[69]=C_decode_literal(C_heaptop,"\376B\000\000\005-sudo"); lf[70]=C_h_intern(&lf[70],22,"setup-api#sudo-install"); lf[71]=C_decode_literal(C_heaptop,"\376B\000\000\007-deploy"); lf[72]=C_decode_literal(C_heaptop,"\376B\000\000\002-p"); lf[73]=C_decode_literal(C_heaptop,"\376B\000\000\007-prefix"); lf[74]=C_h_intern(&lf[74],18,"normalize-pathname"); lf[75]=C_h_intern(&lf[75],17,"current-directory"); lf[76]=C_h_intern(&lf[76],18,"absolute-pathname\077"); lf[77]=C_decode_literal(C_heaptop,"\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[78]=C_h_intern(&lf[78],5,"every"); lf[79]=C_h_intern(&lf[79],16,"\003sysstring->list"); lf[80]=C_h_intern(&lf[80],9,"substring"); lf[81]=C_decode_literal(C_heaptop,"\376B\000\000\002-h"); lf[82]=C_decode_literal(C_heaptop,"\376B\000\000\006--help"); lf[83]=C_h_intern(&lf[83],22,"command-line-arguments"); lf[84]=C_h_intern(&lf[84],8,"feature\077"); lf[85]=C_h_intern(&lf[85],14,"\000cross-chicken"); lf[86]=C_h_intern(&lf[86],11,"\003sysrequire"); lf[87]=C_h_intern(&lf[87],9,"setup-api"); C_register_lf2(lf,88,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_731,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k1334 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_1336(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1336,2,av);} /* chicken-uninstall.scm:148: exit */ t2=C_fast_retrieve(lf[26]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k862 in k859 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 t5; C_word t6; C_word 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_864,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_871,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_876,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t9=C_i_check_list_2(((C_word*)t0)[3],lf[35]); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_886,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_888,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_888(t14,t10,((C_word*)t0)[3]);} /* k859 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 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_861,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_864,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_922,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_922(t6,t2,t1);} /* k1293 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1295,2,av);} /* chicken-uninstall.scm:131: exit */ t2=C_fast_retrieve(lf[26]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_1216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1216,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1219,a[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(C_retrieve2(lf[4],"main#\052deploy\052"))?C_i_not(C_retrieve2(lf[3],"main#\052prefix\052")):C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1295,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1300,tmp=(C_word)a,a+=2,tmp); /* chicken-uninstall.scm:129: with-output-to-port */ t6=C_fast_retrieve(lf[58]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=*((C_word*)lf[59]+1); av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_1219(2,av2);}}} /* k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 t6; C_word 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_1219,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1226,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1231,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t8=((C_word*)t0)[4]; t9=C_i_check_list_2(t8,lf[35]); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1255,a[2]=t2,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_1257,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_1257(t14,t10,t8);} /* k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_fcall f_1325(C_word t0,C_word t1){ C_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(9,0,3)))){ C_save_and_reclaim_args((void *)trf_1325,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f1679,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:105: print */ t4=*((C_word*)lf[20]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[60]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ if(C_truep(C_u_i_string_equal_p(((C_word*)t0)[3],lf[62]))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1336,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1343,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:147: chicken-version */ t4=C_fast_retrieve(lf[63]);{ 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[64]))){ t2=lf[1] /* main#*host-extensions* */ =C_SCHEME_FALSE;; t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); /* chicken-uninstall.scm:151: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_1206(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[65]))){ t2=lf[2] /* main#*target-extensions* */ =C_SCHEME_FALSE;; t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); /* chicken-uninstall.scm:154: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_1206(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[66]))){ t2=lf[15] /* main#*force* */ =C_SCHEME_TRUE;; t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); /* chicken-uninstall.scm:157: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_1206(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[67]))){ 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:160: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_1206(t5,((C_word*)t0)[2],t4,((C_word*)t0)[6]);} else{ t2=C_u_i_string_equal_p(((C_word*)t0)[3],lf[68]); t3=(C_truep(t2)?t2:C_u_i_string_equal_p(((C_word*)t0)[3],lf[69])); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1398,a[2]=((C_word*)t0)[4],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); /* chicken-uninstall.scm:162: setup-api#sudo-install */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[70]); C_word av2[3]; av2[0]=*((C_word*)lf[70]+1); av2[1]=t4; av2[2]=C_SCHEME_TRUE; tp(3,av2);}} else{ if(C_truep(C_u_i_string_equal_p(lf[71],((C_word*)t0)[3]))){ t4=lf[4] /* main#*deploy* */ =C_SCHEME_TRUE;; t5=((C_word*)t0)[4]; t6=C_u_i_cdr(t5); /* chicken-uninstall.scm:166: loop */ t7=((C_word*)((C_word*)t0)[5])[1]; f_1206(t7,((C_word*)t0)[2],t6,((C_word*)t0)[6]);} else{ t4=C_u_i_string_equal_p(((C_word*)t0)[3],lf[72]); t5=(C_truep(t4)?t4:C_u_i_string_equal_p(((C_word*)t0)[3],lf[73])); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1425,a[2]=((C_word*)t0)[4],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); t7=((C_word*)t0)[4]; t8=C_u_i_cdr(t7); if(C_truep(C_i_pairp(t8))){ t9=t6;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_1425(2,av2);}} else{ t9=t6; t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f1684,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:105: print */ t11=*((C_word*)lf[20]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=lf[60]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}} else{ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1466,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); t7=C_block_size(((C_word*)t0)[3]); if(C_truep(C_fixnum_greaterp(t7,C_fix(0)))){ t8=C_i_string_ref(((C_word*)t0)[3],C_fix(0)); t9=t6; f_1466(t9,C_u_i_char_equalp(C_make_character(45),t8));} else{ t8=t6; f_1466(t8,C_SCHEME_FALSE);}}}}}}}}}}} /* k789 in main#repo-path in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_791,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_795,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:51: open-output-string */ t4=C_fast_retrieve(lf[11]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop439 in k1479 in k1473 in k1464 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_fcall f_1504(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_1504,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_mutate2(((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);}}} /* k1498 in k1479 in k1473 in k1464 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 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_1500,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* chicken-uninstall.scm:182: append */ t4=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop225 in k862 in k859 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_fcall f_888(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_888,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_913,a[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:68: g231 */ t5=((C_word*)t0)[4]; f_876(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);}}} /* k884 in k862 in k859 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_886,2,av);} /* chicken-uninstall.scm:67: concatenate */ t2=C_fast_retrieve(lf[47]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k793 in k789 in main#repo-path in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_795,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[6]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_801,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-uninstall.scm:51: ##sys#print */ t6=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[10]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* for-each-loop317 in k1113 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_fcall f_1164(C_word t0,C_word t1,C_word 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_1164,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_1174,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_1120,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:96: print */ t8=*((C_word*)lf[20]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=lf[24]; 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);}}} /* k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_1226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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,2)))){ C_save_and_reclaim((void *)f_1226,2,av);} a=C_alloc(21); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1100,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=t3; t5=t1; 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_fast_retrieve(lf[44]); t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_861,a[2]=t4,a[3]=t5,a[4]=t8,a[5]=t10,a[6]=t9,tmp=(C_word)a,a+=7,tmp); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_958,a[2]=t11,tmp=(C_word)a,a+=3,tmp); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_962,a[2]=t12,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:65: repo-path */ f_774(t13);} /* k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_761,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_764,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:27: ##sys#require */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[86]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[86]+1); av2[1]=t2; av2[2]=lf[87]; tp(3,av2);}} /* k1157 in k1118 in for-each-loop317 in k1113 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in ... */ static void C_ccall f_1159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1159,2,av);} /* chicken-uninstall.scm:101: setup-api#remove-extension */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[22]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[22]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k911 in map-loop225 in k862 in k859 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 in ... */ static void C_ccall f_913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_913,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_888(t6,((C_word*)t0)[5],t5);} /* map-loop373 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_fcall f_1257(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_1257,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_1282,a[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:134: g379 */ t5=((C_word*)t0)[4]; f_1231(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);}}} /* k1253 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1255,2,av);} /* chicken-uninstall.scm:133: reverse */ t2=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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#repo-path in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_fcall f_774(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_774,1,t1);} a=C_alloc(6); if(C_truep(C_retrieve2(lf[4],"main#\052deploy\052"))){ t2=C_retrieve2(lf[3],"main#\052prefix\052"); t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_retrieve2(lf[3],"main#\052prefix\052"); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(C_truep(C_retrieve2(lf[0],"main#\052cross-chicken\052"))?C_i_not(C_retrieve2(lf[1],"main#\052host-extensions\052")):C_SCHEME_FALSE); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_791,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[12]+1);{ C_word av2[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);}} else{ if(C_truep(C_retrieve2(lf[3],"main#\052prefix\052"))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_817,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:55: open-output-string */ t4=C_fast_retrieve(lf[11]);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* chicken-uninstall.scm:56: repository-path */ t3=C_fast_retrieve(lf[14]);{ C_word av2[2]; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}} /* k1280 in map-loop373 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_1282(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1282,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_1257(t6,((C_word*)t0)[5],t5);} /* k945 in map-loop199 in k859 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_947,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_922(t6,((C_word*)t0)[5],t5);} /* k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_1100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1100,2,av);} a=C_alloc(10); t2=t1; if(C_truep(C_i_nullp(t2))){ /* chicken-uninstall.scm:92: print */ t3=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[21]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=C_retrieve2(lf[15],"main#\052force\052"); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1115,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[15],"main#\052force\052"))){ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_retrieve2(lf[15],"main#\052force\052"); f_1115(2,av2);}} else{ t5=t4; t6=t2; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_977,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_982,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:75: call-with-current-continuation */ t9=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t7; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}} /* loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_fcall f_1206(C_word t0,C_word t1,C_word 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_1206,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_1216,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)f1674,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:105: print */ t7=*((C_word*)lf[20]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=lf[60]; ((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_1216(2,av2);}}} else{ t4=C_i_car(t2); t5=t4; t6=C_i_string_equal_p(t5,lf[61]); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1325,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_1325(t8,t6);} else{ t8=C_u_i_string_equal_p(t5,lf[81]); if(C_truep(t8)){ t9=t7; f_1325(t9,t8);} else{ t9=C_u_i_string_equal_p(t5,lf[82]); t10=t7; f_1325(t10,t9);}}}} /* tmp1707 in a1008 in a981 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 in ... */ static void C_fcall f_1011(C_word t0,C_word t1){ C_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(21,0,3)))){ C_save_and_reclaim_args((void *)trf_1011,2,t0,t1);} a=C_alloc(21); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1019,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1027,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_i_check_list_2(((C_word*)t0)[2],lf[35]); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1042,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_1044,a[2]=t6,a[3]=t11,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_1044(t13,t9,((C_word*)t0)[2]);} /* f1679 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f1679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f1679,2,av);} /* chicken-uninstall.scm:119: exit */ t2=C_fast_retrieve(lf[26]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f1674 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f1674(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f1674,2,av);} /* chicken-uninstall.scm:119: exit */ t2=C_fast_retrieve(lf[26]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1017 in tmp1707 in a1008 in a981 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1019,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1023,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:87: setup-api#abort-setup */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[33]); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[33]+1); av2[1]=t3; tp(2,av2);}} /* g379 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_fcall f_1231(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_1231,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1242,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1246,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:137: irregex-quote */ t5=C_fast_retrieve(lf[54]);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* chicken-uninstall.scm:138: ##sys#glob->regexp */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[55]); C_word av2[3]; av2[0]=*((C_word*)lf[55]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}}} /* k1172 in for-each-loop317 in k1113 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 in ... */ static void C_ccall f_1174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1174,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1164(t3,((C_word*)t0)[4],t2);} /* k1479 in k1473 in k1464 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_1481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_1481,2,av);} a=C_alloc(21); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1488,a[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_1500,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_1504,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_1504(t11,t7,((C_word*)t0)[6]);} else{ t2=((C_word*)t0)[3]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f1691,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:105: print */ t4=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[60]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k1486 in k1479 in k1473 in k1464 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1488,2,av);} /* chicken-uninstall.scm:181: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1206(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k1127 in k1118 in for-each-loop317 in k1113 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in ... */ static void C_ccall f_1129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1129,2,av);} a=C_alloc(15); 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_1134,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1139,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1149,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:99: ##sys#dynamic-wind */ t9=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1092 in a1008 in a981 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 in ... */ static void C_ccall f_1094(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1094,2,av);} a=C_alloc(3); /* tmp2708 */ t2=((C_word*)t0)[2]; f_1077(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* a1008 in a981 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 *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,3)))){ C_save_and_reclaim((void *)f_1009,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1011,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1077,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1094,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* tmp1707 */ t5=t2; f_1011(t5,t4);} /* k1118 in for-each-loop317 in k1113 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 in ... */ static void C_ccall f_1120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1120,2,av);} a=C_alloc(4); t2=(C_truep(C_retrieve2(lf[1],"main#\052host-extensions\052"))?C_retrieve2(lf[2],"main#\052target-extensions\052"):C_SCHEME_FALSE); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1129,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:98: setup-api#remove-extension */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[22]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[22]+1); av2[1]=t3; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1159,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:101: repo-path */ f_774(t3);}} /* k1473 in k1464 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1475,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1481,a[2]=((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_1541,tmp=(C_word)a,a+=2,tmp); /* chicken-uninstall.scm:180: every */ t5=C_fast_retrieve(lf[78]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* f1696 in k1464 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f1696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f1696,2,av);} /* chicken-uninstall.scm:119: exit */ t2=C_fast_retrieve(lf[26]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1082 in tmp2708 in a1008 in a981 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in ... */ 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 *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_1083,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* f1691 in k1479 in k1473 in k1464 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f1691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f1691,2,av);} /* chicken-uninstall.scm:119: exit */ t2=C_fast_retrieve(lf[26]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1113 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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; 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_1115,2,av);} a=C_alloc(5); 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|2,a[1]=(C_word)f_1164,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_1164(t5,((C_word*)t0)[2],((C_word*)t0)[3]);} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k1464 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_fcall f_1466(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_1466,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_1475,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_1549,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:179: substring */ t5=*((C_word*)lf[80]+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)f1696,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:105: print */ t5=*((C_word*)lf[20]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=lf[60]; ((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:185: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_1206(t5,((C_word*)t0)[4],t3,t4);}} /* tmp2708 in a1008 in a981 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 in ... */ static void C_fcall f_1077(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_1077,3,t0,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1083,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:75: k262 */ 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);}} /* k1240 in g379 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1242,2,av);} /* chicken-uninstall.scm:137: irregex */ t2=C_fast_retrieve(lf[51]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1244 in g379 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1246,2,av);} /* chicken-uninstall.scm:137: string-append */ t2=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[52]; av2[3]=t1; av2[4]=lf[53]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k1450 in k1439 in k1423 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_1452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1452,2,av);} /* chicken-uninstall.scm:174: make-pathname */ t2=C_fast_retrieve(lf[7]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1341 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_1343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1343,2,av);} /* chicken-uninstall.scm:147: print */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1439 in k1423 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_1441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1441,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_1432(2,av2);}} else{ 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); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1452,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:174: current-directory */ t4=C_fast_retrieve(lf[75]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1446 in k1439 in k1423 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1448,2,av);} /* chicken-uninstall.scm:173: normalize-pathname */ t2=C_fast_retrieve(lf[74]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k966 in a993 in a987 in a981 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in ... */ static void C_ccall f_968(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_968,2,av);} /* chicken-uninstall.scm:73: exit */ t2=C_fast_retrieve(lf[26]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k960 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_962,2,av);} /* chicken-uninstall.scm:65: make-pathname */ t2=C_fast_retrieve(lf[7]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[49]; av2[4]=lf[50]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k1040 in tmp1707 in a1008 in a981 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1042,2,av);} /* chicken-uninstall.scm:82: append */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[37]; av2[3]=t1; av2[4]=lf[38]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop272 in tmp1707 in a1008 in a981 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in ... */ static void C_fcall f_1044(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_1044,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_1069,a[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:84: g295 */ t5=*((C_word*)lf[39]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t3; av2[2]=lf[40]; av2[3]=t4; av2[4]=lf[41]; ((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);}}} /* a993 in a987 in a981 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 in ... */ static void C_ccall f_994(C_word c,C_word *av){ C_word tmp; C_word t0=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(3,c,2)))){ C_save_and_reclaim((void *)f_994,2,av);} a=C_alloc(3); t2=C_eqp(((C_word*)t0)[2],lf[25]); if(C_truep(t2)){ t3=t1; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_968,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:72: print */ t5=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[27]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* chicken-uninstall.scm:79: signal */ t3=C_fast_retrieve(lf[28]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k821 in k815 in main#repo-path in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_823,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_826,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_fudge(C_fix(42)); /* chicken-uninstall.scm:55: ##sys#print */ t4=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k827 in k824 in k821 in k815 in main#repo-path in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_829,2,av);} /* chicken-uninstall.scm:53: make-pathname */ t2=C_fast_retrieve(lf[7]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[3],"main#\052prefix\052"); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k824 in k821 in k815 in main#repo-path in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_826,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_829,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:55: get-output-string */ t3=C_fast_retrieve(lf[8]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1021 in k1017 in tmp1707 in a1008 in a981 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_1023,2,av);} /* chicken-uninstall.scm:80: yes-or-no? */ t2=C_fast_retrieve(lf[29]);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[30]; av2[4]=lf[31]; av2[5]=lf[32]; av2[6]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* f1684 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f1684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f1684,2,av);} /* chicken-uninstall.scm:119: exit */ t2=C_fast_retrieve(lf[26]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_752,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_755,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_irregex_toplevel(2,av2);}} /* k1025 in tmp1707 in a1008 in a981 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in ... */ static void C_ccall f_1027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1027,2,av);} /* chicken-uninstall.scm:81: string-concatenate */ t2=C_fast_retrieve(lf[34]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1396 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_1398(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1398,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* chicken-uninstall.scm:163: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1206(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5]);} /* k815 in main#repo-path in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_817(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_817,2,av);} a=C_alloc(5); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[6]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_823,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-uninstall.scm:55: ##sys#print */ t6=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[13]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 t3; C_word t4; C_word 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_768,2,av);} a=C_alloc(10); t2=lf[0] /* main#*cross-chicken* */ =t1;; t3=lf[1] /* main#*host-extensions* */ =C_retrieve2(lf[0],"main#\052cross-chicken\052");; t4=lf[2] /* main#*target-extensions* */ =C_retrieve2(lf[0],"main#\052cross-chicken\052");; t5=lf[3] /* main#*prefix* */ =C_SCHEME_FALSE;; t6=lf[4] /* main#*deploy* */ =C_SCHEME_FALSE;; t7=C_mutate2(&lf[5] /* (set! main#repo-path ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_774,tmp=(C_word)a,a+=2,tmp)); t8=lf[15] /* main#*force* */ =C_SCHEME_FALSE;; t9=C_mutate2(&lf[16] /* (set! main#grep ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_842,tmp=(C_word)a,a+=2,tmp)); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1590,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1600,a[2]=t10,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:187: command-line-arguments */ t12=C_fast_retrieve(lf[83]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} /* k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 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_764,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_768,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:41: feature? */ t3=C_fast_retrieve(lf[84]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[85]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k738 in k735 in k732 in k729 */ static void C_ccall f_740(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_740,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_743,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_posix_toplevel(2,av2);}} /* k975 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_977,2,av);} /* chicken-uninstall.scm:75: g266 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* main#grep in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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=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,3)))){ C_save_and_reclaim((void *)f_842,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_848,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:61: filter */ t5=C_fast_retrieve(lf[18]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a847 in main#grep in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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=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_848,3,av);} t3=C_fast_retrieve(lf[17]); /* chicken-uninstall.scm:61: g192 */ t4=C_fast_retrieve(lf[17]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_758(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_758,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_761,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_files_toplevel(2,av2);}} /* k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_755,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_758,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d13_toplevel(2,av2);}} /* k729 */ static void C_ccall f_731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_731,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_734,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* map-loop199 in k859 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_fcall f_922(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_922,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_947,a[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:64: g205 */ 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);}}} /* k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 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_1600,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_1206,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_1206(t7,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_743,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_746,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k744 in k741 in k738 in k735 in k732 in k729 */ 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 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_746,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_749,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_utils_toplevel(2,av2);}} /* k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_749,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_752,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_ports_toplevel(2,av2);}} /* k956 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_958,2,av);} /* chicken-uninstall.scm:65: glob */ t2=C_fast_retrieve(lf[48]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k732 in k729 */ static void C_ccall f_734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_734,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_737,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k735 in k732 in k729 */ static void C_ccall f_737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_737,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_740,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d1_toplevel(2,av2);}} /* a1148 in k1127 in k1118 in for-each-loop317 in k1113 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in ... */ static void C_ccall f_1149(C_word c,C_word *av){ C_word tmp; 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_1149,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_retrieve2(lf[1],"main#\052host-extensions\052")); t3=C_mutate2(&lf[1] /* (set! main#*host-extensions* ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a987 in a981 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_988(C_word c,C_word *av){ C_word tmp; C_word 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_988,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_994,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:75: k262 */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k1145 in a1138 in k1127 in k1118 in for-each-loop317 in k1113 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in ... */ static void C_ccall f_1147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1147,2,av);} /* chicken-uninstall.scm:100: setup-api#remove-extension */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[22]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[22]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* a981 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_982(C_word c,C_word *av){ C_word tmp; C_word 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_982,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_988,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1009,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:75: with-exception-handler */ t5=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1067 in map-loop272 in tmp1707 in a1008 in a981 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in ... */ static void C_ccall f_1069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1069,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_1044(t6,((C_word*)t0)[5],t5);} /* a1138 in k1127 in k1118 in for-each-loop317 in k1113 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in ... */ 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 *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_1139,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1147,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:100: repo-path */ f_774(t2);} /* a1133 in k1127 in k1118 in for-each-loop317 in k1113 in k1098 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in ... */ static void C_ccall f_1134(C_word c,C_word *av){ C_word tmp; 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_1134,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_retrieve2(lf[1],"main#\052host-extensions\052")); t3=C_mutate2(&lf[1] /* (set! main#*host-extensions* ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k805 in k802 in k799 in k793 in k789 in main#repo-path in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_807,2,av);} /* chicken-uninstall.scm:51: make-pathname */ t2=C_fast_retrieve(lf[7]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1430 in k1423 in k1323 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_1432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1432,2,av);} t2=C_mutate2(&lf[3] /* (set! main#*prefix* ...) */,t1); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_u_i_cdr(t4); /* chicken-uninstall.scm:175: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_1206(t6,((C_word*)t0)[4],t5,((C_word*)t0)[5]);} /* k799 in k793 in k789 in main#repo-path in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_ccall f_801(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_801,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_804,a[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-uninstall.scm:51: ##sys#print */ t3=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_fix((C_word)C_BINARY_VERSION); av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k802 in k799 in k793 in k789 in main#repo-path in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_804,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_807,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:51: get-output-string */ t3=C_fast_retrieve(lf[8]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* g231 in k862 in k859 in k1224 in k1217 in k1214 in loop in k1598 in k766 in k762 in k759 in k756 in k753 in k750 in k747 in k744 in k741 in k738 in k735 in k732 in k729 */ static void C_fcall f_876(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_876,3,t0,t1,t2);} t3=C_retrieve2(lf[16],"main#grep"); /* chicken-uninstall.scm:68: g248 */ t4=C_retrieve2(lf[16],"main#grep");{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; f_842(4,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[103] = { {"f_871:chicken_2duninstall_2escm",(void*)f_871}, {"f_1425:chicken_2duninstall_2escm",(void*)f_1425}, {"f_1590:chicken_2duninstall_2escm",(void*)f_1590}, {"f_1596:chicken_2duninstall_2escm",(void*)f_1596}, {"f_1593:chicken_2duninstall_2escm",(void*)f_1593}, {"f_1541:chicken_2duninstall_2escm",(void*)f_1541}, {"f_1549:chicken_2duninstall_2escm",(void*)f_1549}, {"f_1300:chicken_2duninstall_2escm",(void*)f_1300}, {"toplevel:chicken_2duninstall_2escm",(void*)C_toplevel}, {"f_1336:chicken_2duninstall_2escm",(void*)f_1336}, {"f_864:chicken_2duninstall_2escm",(void*)f_864}, {"f_861:chicken_2duninstall_2escm",(void*)f_861}, {"f_1295:chicken_2duninstall_2escm",(void*)f_1295}, {"f_1216:chicken_2duninstall_2escm",(void*)f_1216}, {"f_1219:chicken_2duninstall_2escm",(void*)f_1219}, {"f_1325:chicken_2duninstall_2escm",(void*)f_1325}, {"f_791:chicken_2duninstall_2escm",(void*)f_791}, {"f_1504:chicken_2duninstall_2escm",(void*)f_1504}, {"f_1500:chicken_2duninstall_2escm",(void*)f_1500}, {"f_888:chicken_2duninstall_2escm",(void*)f_888}, {"f_886:chicken_2duninstall_2escm",(void*)f_886}, {"f_795:chicken_2duninstall_2escm",(void*)f_795}, {"f_1164:chicken_2duninstall_2escm",(void*)f_1164}, {"f_1226:chicken_2duninstall_2escm",(void*)f_1226}, {"f_761:chicken_2duninstall_2escm",(void*)f_761}, {"f_1159:chicken_2duninstall_2escm",(void*)f_1159}, {"f_913:chicken_2duninstall_2escm",(void*)f_913}, {"f_1257:chicken_2duninstall_2escm",(void*)f_1257}, {"f_1255:chicken_2duninstall_2escm",(void*)f_1255}, {"f_774:chicken_2duninstall_2escm",(void*)f_774}, {"f_1282:chicken_2duninstall_2escm",(void*)f_1282}, {"f_947:chicken_2duninstall_2escm",(void*)f_947}, {"f_1100:chicken_2duninstall_2escm",(void*)f_1100}, {"f_1206:chicken_2duninstall_2escm",(void*)f_1206}, {"f_1011:chicken_2duninstall_2escm",(void*)f_1011}, {"f1679:chicken_2duninstall_2escm",(void*)f1679}, {"f1674:chicken_2duninstall_2escm",(void*)f1674}, {"f_1019:chicken_2duninstall_2escm",(void*)f_1019}, {"f_1231:chicken_2duninstall_2escm",(void*)f_1231}, {"f_1174:chicken_2duninstall_2escm",(void*)f_1174}, {"f_1481:chicken_2duninstall_2escm",(void*)f_1481}, {"f_1488:chicken_2duninstall_2escm",(void*)f_1488}, {"f_1129:chicken_2duninstall_2escm",(void*)f_1129}, {"f_1094:chicken_2duninstall_2escm",(void*)f_1094}, {"f_1009:chicken_2duninstall_2escm",(void*)f_1009}, {"f_1120:chicken_2duninstall_2escm",(void*)f_1120}, {"f_1475:chicken_2duninstall_2escm",(void*)f_1475}, {"f1696:chicken_2duninstall_2escm",(void*)f1696}, {"f_1083:chicken_2duninstall_2escm",(void*)f_1083}, {"f1691:chicken_2duninstall_2escm",(void*)f1691}, {"f_1115:chicken_2duninstall_2escm",(void*)f_1115}, {"f_1466:chicken_2duninstall_2escm",(void*)f_1466}, {"f_1077:chicken_2duninstall_2escm",(void*)f_1077}, {"f_1242:chicken_2duninstall_2escm",(void*)f_1242}, {"f_1246:chicken_2duninstall_2escm",(void*)f_1246}, {"f_1452:chicken_2duninstall_2escm",(void*)f_1452}, {"f_1343:chicken_2duninstall_2escm",(void*)f_1343}, {"f_1441:chicken_2duninstall_2escm",(void*)f_1441}, {"f_1448:chicken_2duninstall_2escm",(void*)f_1448}, {"f_968:chicken_2duninstall_2escm",(void*)f_968}, {"f_962:chicken_2duninstall_2escm",(void*)f_962}, {"f_1042:chicken_2duninstall_2escm",(void*)f_1042}, {"f_1044:chicken_2duninstall_2escm",(void*)f_1044}, {"f_994:chicken_2duninstall_2escm",(void*)f_994}, {"f_823:chicken_2duninstall_2escm",(void*)f_823}, {"f_829:chicken_2duninstall_2escm",(void*)f_829}, {"f_826:chicken_2duninstall_2escm",(void*)f_826}, {"f_1023:chicken_2duninstall_2escm",(void*)f_1023}, {"f1684:chicken_2duninstall_2escm",(void*)f1684}, {"f_752:chicken_2duninstall_2escm",(void*)f_752}, {"f_1027:chicken_2duninstall_2escm",(void*)f_1027}, {"f_1398:chicken_2duninstall_2escm",(void*)f_1398}, {"f_817:chicken_2duninstall_2escm",(void*)f_817}, {"f_768:chicken_2duninstall_2escm",(void*)f_768}, {"f_764:chicken_2duninstall_2escm",(void*)f_764}, {"f_740:chicken_2duninstall_2escm",(void*)f_740}, {"f_977:chicken_2duninstall_2escm",(void*)f_977}, {"f_842:chicken_2duninstall_2escm",(void*)f_842}, {"f_848:chicken_2duninstall_2escm",(void*)f_848}, {"f_758:chicken_2duninstall_2escm",(void*)f_758}, {"f_755:chicken_2duninstall_2escm",(void*)f_755}, {"f_731:chicken_2duninstall_2escm",(void*)f_731}, {"f_922:chicken_2duninstall_2escm",(void*)f_922}, {"f_1600:chicken_2duninstall_2escm",(void*)f_1600}, {"f_743:chicken_2duninstall_2escm",(void*)f_743}, {"f_746:chicken_2duninstall_2escm",(void*)f_746}, {"f_749:chicken_2duninstall_2escm",(void*)f_749}, {"f_958:chicken_2duninstall_2escm",(void*)f_958}, {"f_734:chicken_2duninstall_2escm",(void*)f_734}, {"f_737:chicken_2duninstall_2escm",(void*)f_737}, {"f_1149:chicken_2duninstall_2escm",(void*)f_1149}, {"f_988:chicken_2duninstall_2escm",(void*)f_988}, {"f_1147:chicken_2duninstall_2escm",(void*)f_1147}, {"f_982:chicken_2duninstall_2escm",(void*)f_982}, {"f_1069:chicken_2duninstall_2escm",(void*)f_1069}, {"f_1139:chicken_2duninstall_2escm",(void*)f_1139}, {"f_1134:chicken_2duninstall_2escm",(void*)f_1134}, {"f_807:chicken_2duninstall_2escm",(void*)f_807}, {"f_1432:chicken_2duninstall_2escm",(void*)f_1432}, {"f_801:chicken_2duninstall_2escm",(void*)f_801}, {"f_804:chicken_2duninstall_2escm",(void*)f_804}, {"f_876:chicken_2duninstall_2escm",(void*)f_876}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding nonexported module bindings: main#*cross-chicken* o|hiding nonexported module bindings: main#*host-extensions* o|hiding nonexported module bindings: main#*target-extensions* o|hiding nonexported module bindings: main#*prefix* o|hiding nonexported module bindings: main#*deploy* o|hiding nonexported module bindings: main#repo-path o|hiding nonexported module bindings: main#*force* o|hiding nonexported module bindings: main#grep o|hiding nonexported module bindings: main#gather-eggs o|hiding nonexported module bindings: main#fini o|hiding nonexported module bindings: main#ask o|hiding nonexported module bindings: main#uninstall o|hiding nonexported module bindings: main#usage o|hiding nonexported module bindings: main#*short-options* o|hiding nonexported module bindings: main#main S|applied compiler syntax: S| for-each 1 S| map 5 S| sprintf 2 o|eliminated procedure checks: 29 o|specializations: o| 1 (> fixnum fixnum) o| 1 (char=? char char) o| 1 (string-ref string fixnum) o| 1 (positive? fixnum) o| 2 (string-length string) o| 1 (cddr (pair * pair)) o| 9 (cdr pair) o| 12 (string=? string string) o| 1 (current-error-port) o| 1 (##sys#call-with-values (procedure () *) *) o| 3 (##sys#check-list (or pair list) *) o| 2 (##sys#check-output-port * * *) (o e)|safe calls: 109 (o e)|assignments to immediate values: 3 o|inlining procedure: k776 o|propagated global variable: r7771601 main#*prefix* o|inlining procedure: k776 o|substituted constant variable: a797 o|substituted constant variable: a798 o|inlining procedure: k808 o|substituted constant variable: a819 o|substituted constant variable: a820 o|inlining procedure: k808 o|propagated global variable: g192193 irregex-search o|contracted procedure: "(chicken-uninstall.scm:187) main#main" o|inlining procedure: k1208 o|contracted procedure: "(chicken-uninstall.scm:132) main#uninstall" o|inlining procedure: k1101 o|inlining procedure: k1101 o|inlining procedure: k1166 o|contracted procedure: "(chicken-uninstall.scm:94) g318325" o|inlining procedure: k1121 o|inlining procedure: k1121 o|inlining procedure: k1166 o|propagated global variable: tmp312314 main#*force* o|propagated global variable: tmp312314 main#*force* o|contracted procedure: "(chicken-uninstall.scm:93) main#ask" o|inlining procedure: k996 o|contracted procedure: "(chicken-uninstall.scm:78) main#fini" o|inlining procedure: k996 o|inlining procedure: k1046 o|contracted procedure: "(chicken-uninstall.scm:84) g278287" o|inlining procedure: k1046 o|merged explicitly consed rest parameter: args263304 o|consed rest parameter at call site: tmp2708 1 o|contracted procedure: "(chicken-uninstall.scm:90) main#gather-eggs" o|inlining procedure: k890 o|inlining procedure: k890 o|inlining procedure: k924 o|inlining procedure: k924 o|inlining procedure: k1233 o|inlining procedure: k1233 o|inlining procedure: k1259 o|inlining procedure: k1259 o|inlining procedure: k1208 o|substituted constant variable: a1333 o|inlining procedure: k1329 o|inlining procedure: k1329 o|substituted constant variable: a1348 o|substituted constant variable: a1359 o|inlining procedure: k1355 o|inlining procedure: k1355 o|substituted constant variable: a1370 o|substituted constant variable: a1381 o|inlining procedure: k1377 o|inlining procedure: k1377 o|substituted constant variable: a1392 o|substituted constant variable: a1407 o|inlining procedure: k1404 o|inlining procedure: k1404 o|substituted constant variable: a1419 o|inlining procedure: k1461 o|inlining procedure: k1476 o|inlining procedure: k1506 o|contracted procedure: "(chicken-uninstall.scm:182) g445454" o|inlining procedure: k1506 o|inlining procedure: k1476 o|substituted constant variable: main#*short-options* o|substituted constant variable: a1557 o|inlining procedure: k1461 o|substituted constant variable: a1575 o|substituted constant variable: a1572 o|substituted constant variable: a1578 o|substituted constant variable: a1580 o|substituted constant variable: a1582 o|inlining procedure: k1583 o|inlining procedure: k1583 o|substituted constant variable: a1587 o|replaced variables: 160 o|removed binding forms: 84 o|removed side-effect free assignment to unused variable: main#*short-options* o|substituted constant variable: code258 o|replaced variables: 1 o|removed binding forms: 184 o|inlining procedure: "(chicken-uninstall.scm:127) main#usage" o|inlining procedure: "(chicken-uninstall.scm:145) main#usage" o|inlining procedure: "(chicken-uninstall.scm:168) main#usage" o|inlining procedure: "(chicken-uninstall.scm:183) main#usage" o|inlining procedure: "(chicken-uninstall.scm:184) main#usage" o|replaced variables: 7 o|removed binding forms: 3 o|removed side-effect free assignment to unused variable: main#usage o|substituted constant variable: code3511672 o|substituted constant variable: code3511677 o|substituted constant variable: code3511682 o|substituted constant variable: code3511689 o|substituted constant variable: code3511694 o|removed binding forms: 7 o|removed binding forms: 6 o|simplifications: ((if . 5) (##core#call . 60)) o| call simplifications: o| car o| string=? o| ##sys#size 2 o| fx> o| string->list o| memq o| string o| cadr o| null? 3 o| ##sys#apply o| ##sys#check-list 3 o| cons 11 o| ##sys#setslot 5 o| eq? o| pair? 7 o| ##sys#slot 17 o| not 2 o| ##sys#fudge o|contracted procedure: k782 o|contracted procedure: k831 o|contracted procedure: k1211 o|contracted procedure: k1104 o|contracted procedure: k1169 o|contracted procedure: k1179 o|contracted procedure: k1183 o|contracted procedure: k1124 o|contracted procedure: k999 o|contracted procedure: k1029 o|contracted procedure: k1037 o|contracted procedure: k1049 o|contracted procedure: k1052 o|contracted procedure: k1055 o|contracted procedure: k1063 o|contracted procedure: k1071 o|contracted procedure: k856 o|contracted procedure: k873 o|contracted procedure: k881 o|contracted procedure: k893 o|contracted procedure: k896 o|contracted procedure: k899 o|contracted procedure: k907 o|contracted procedure: k915 o|contracted procedure: k927 o|contracted procedure: k930 o|contracted procedure: k933 o|contracted procedure: k941 o|contracted procedure: k949 o|contracted procedure: k1228 o|contracted procedure: k1250 o|contracted procedure: k1262 o|contracted procedure: k1265 o|contracted procedure: k1268 o|contracted procedure: k1276 o|contracted procedure: k1284 o|contracted procedure: k1290 o|contracted procedure: k1308 o|contracted procedure: k1314 o|contracted procedure: k1320 o|contracted procedure: k1393 o|contracted procedure: k1420 o|contracted procedure: k1427 o|contracted procedure: k1453 o|contracted procedure: k1554 o|contracted procedure: k1470 o|contracted procedure: k1490 o|contracted procedure: k1509 o|contracted procedure: k1531 o|contracted procedure: k1527 o|contracted procedure: k1512 o|contracted procedure: k1515 o|contracted procedure: k1523 o|contracted procedure: k1565 o|contracted procedure: k1569 o|simplifications: ((let . 11)) o|removed binding forms: 55 o|replaced variables: 14 o|removed binding forms: 7 o|customizable procedures: (k1323 k1464 map-loop439464 loop357 g379388 map-loop373391 map-loop199216 g231240 map-loop225250 tmp1707 tmp2708 map-loop272297 main#repo-path for-each-loop317345) o|calls to known targets: 40 o|identified direct recursive calls: f_1504 1 o|fast box initializations: 7 o|fast global references: 23 o|fast global assignments: 15 o|dropping unused closure argument: f_774 */ /* end of file */ �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/defaults.make������������������������������������������������������������������������0000644�0001750�0001750�00000046767�13052302367�015503� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# defaults.make - default settings -*- Makefile -*- # # Copyright (c) 2008-2017, 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 = 8 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 ?= xcopy 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) else TARGET_C_COMPILER ?= $(C_COMPILER) TARGET_CXX_COMPILER ?= $(CXX_COMPILER) TARGET_RC_COMPILER ?= $(RC_COMPILER) endif TARGET_C_COMPILER_OPTIONS ?= $(C_COMPILER_OPTIONS) TARGET_C_COMPILER_OPTIMIZATION_OPTIONS ?= $(C_COMPILER_OPTIMIZATION_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 BUILD_TAG ?= compiled $(BUILD_TIME) on $(HOSTNAME) ($(UNAME_SYS)) # 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 # 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 -debug-info else CHICKEN_OPTIONS += -no-warnings endif ifndef BUILDING_CHICKEN_BOOT CHICKEN_OPTIONS += -specialize -types $(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 -local CHICKEN_COMPILER_OPTIONS = $(CHICKEN_OPTIONS) -no-lambda-info -extend private-namespace.scm 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 CHICKEN_COMPILER_OPTIONS += -no-trace endif CHICKEN_PROGRAM_OPTIONS += $(if $(PROFILE_OBJECTS),-profile) # 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_BUG_PROGRAM = $(PROGRAM_PREFIX)chicken-bug$(PROGRAM_SUFFIX) CHICKEN_DEBUGGER_PROGRAM ?= $(PROGRAM_PREFIX)feathers$(PROGRAM_SUFFIX)$(SCRIPT_EXT) IMPORT_LIBRARIES = chicken lolevel srfi-1 srfi-4 data-structures ports files posix srfi-13 srfi-69 extras srfi-14 tcp foreign srfi-18 utils csi irregex IMPORT_LIBRARIES += setup-api setup-download 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) $(CHICKEN_PROFILE_PROGRAM)$(EXE) \ $(CSC_PROGRAM)$(EXE) \ $(CHICKEN_BUG_PROGRAM)$(EXE) $(CHICKEN_DEBUGGER_PROGRAM) 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) $(CHICKEN_PROFILE_PROGRAM)$(EXE) \ $(CSC_PROGRAM)$(EXE) $(CHICKEN_INSTALL_PROGRAM)$(EXE) $(CHICKEN_UNINSTALL_PROGRAM)$(EXE) \ $(CHICKEN_STATUS_PROGRAM)$(EXE) setup-download.so setup-api.so \ $(CHICKEN_BUG_PROGRAM)$(EXE) $(CHICKEN_DEBUGGER_PROGRAM) \ $(IMPORT_LIBRARIES:%=%.import.so) endif 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 $(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_DEFAULT_TARGET_HEAP_SIZE) $(call echo, >>, $@,# define C_DEFAULT_TARGET_HEAP_SIZE 0) $(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_CFLAGS) $(call echo, >>, $@,# define C_TARGET_CFLAGS "$(TARGET_C_COMPILER_OPTIONS) $(TARGET_C_COMPILER_OPTIMIZATION_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_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_BUG_PROGRAM) $(call echo, >>, $@,# define C_CHICKEN_BUG_PROGRAM "$(CHICKEN_BUG_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-4.12.0/Makefile�����������������������������������������������������������������������������0000644�0001750�0001750�00000000634�13040667210�014452� 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-4.12.0/srfi-4.c�����������������������������������������������������������������������������0000644�0001750�0001750�00001105505�13052306240�014262� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from srfi-4.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:16 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: srfi-4.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file srfi-4.c unit: srfi_2d4 */ #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_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[163]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,50),40,35,35,115,121,115,35,99,104,101,99,107,45,101,120,97,99,116,45,105,110,116,101,114,118,97,108,32,110,54,52,32,102,114,111,109,54,53,32,116,111,54,54,32,108,111,99,54,55,41,0,0,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,21),40,117,56,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,55,51,41,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,21),40,115,56,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,55,54,41,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,22),40,117,49,54,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,55,57,41,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,22),40,115,49,54,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,56,50,41,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,22),40,117,51,50,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,56,53,41,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,22),40,115,51,50,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,56,56,41,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,22),40,102,51,50,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,57,49,41,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,22),40,102,54,52,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,57,52,41,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,27),40,117,56,118,101,99,116,111,114,45,115,101,116,33,32,120,57,55,32,105,57,56,32,121,57,57,41,0,0,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,30),40,115,56,118,101,99,116,111,114,45,115,101,116,33,32,120,49,49,53,32,105,49,49,54,32,121,49,49,55,41,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,31),40,117,49,54,118,101,99,116,111,114,45,115,101,116,33,32,120,49,51,50,32,105,49,51,51,32,121,49,51,52,41,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,31),40,115,49,54,118,101,99,116,111,114,45,115,101,116,33,32,120,49,53,48,32,105,49,53,49,32,121,49,53,50,41,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,31),40,117,51,50,118,101,99,116,111,114,45,115,101,116,33,32,120,49,54,55,32,105,49,54,56,32,121,49,54,57,41,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,31),40,115,51,50,118,101,99,116,111,114,45,115,101,116,33,32,120,49,56,57,32,105,49,57,48,32,121,49,57,49,41,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,31),40,102,51,50,118,101,99,116,111,114,45,115,101,116,33,32,120,50,48,55,32,105,50,48,56,32,121,50,48,57,41,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,31),40,102,54,52,118,101,99,116,111,114,45,115,101,116,33,32,120,50,50,52,32,105,50,50,53,32,121,50,50,54,41,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,19),40,101,120,116,45,102,114,101,101,32,98,118,51,54,54,51,54,57,41,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,29),40,97,108,108,111,99,32,108,111,99,51,55,49,32,108,101,110,51,55,50,32,101,120,116,63,51,55,51,41,0,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,28),40,114,101,108,101,97,115,101,45,110,117,109,98,101,114,45,118,101,99,116,111,114,32,118,51,56,48,41,0,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,52,48,49,41,0,0,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,34),40,109,97,107,101,45,117,56,118,101,99,116,111,114,32,108,101,110,51,56,53,32,46,32,116,109,112,51,56,52,51,56,54,41,0,0,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,52,50,57,41,0,0,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,34),40,109,97,107,101,45,115,56,118,101,99,116,111,114,32,108,101,110,52,49,51,32,46,32,116,109,112,52,49,50,52,49,52,41,0,0,0,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,52,53,55,41,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,35),40,109,97,107,101,45,117,49,54,118,101,99,116,111,114,32,108,101,110,52,52,49,32,46,32,116,109,112,52,52,48,52,52,50,41,0,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,52,56,53,41,0,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,35),40,109,97,107,101,45,115,49,54,118,101,99,116,111,114,32,108,101,110,52,54,57,32,46,32,116,109,112,52,54,56,52,55,48,41,0,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,53,49,51,41,0,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,35),40,109,97,107,101,45,117,51,50,118,101,99,116,111,114,32,108,101,110,52,57,55,32,46,32,116,109,112,52,57,54,52,57,56,41,0,0,0,0,0}; static C_char C_TLS li30[] 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 li31[] C_aligned={C_lihdr(0,0,35),40,109,97,107,101,45,115,51,50,118,101,99,116,111,114,32,108,101,110,53,50,53,32,46,32,116,109,112,53,50,52,53,50,54,41,0,0,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,53,54,57,41,0,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,35),40,109,97,107,101,45,102,51,50,118,101,99,116,111,114,32,108,101,110,53,53,51,32,46,32,116,109,112,53,53,50,53,53,52,41,0,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,53,57,56,41,0,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,35),40,109,97,107,101,45,102,54,52,118,101,99,116,111,114,32,108,101,110,53,56,50,32,46,32,116,109,112,53,56,49,53,56,51,41,0,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,21),40,100,111,108,111,111,112,54,51,50,32,112,54,51,52,32,105,54,51,53,41,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,23),40,108,105,115,116,45,62,117,56,118,101,99,116,111,114,32,108,115,116,54,50,57,41,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,21),40,100,111,108,111,111,112,54,52,53,32,112,54,52,55,32,105,54,52,56,41,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,23),40,108,105,115,116,45,62,115,56,118,101,99,116,111,114,32,108,115,116,54,52,50,41,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,21),40,100,111,108,111,111,112,54,53,56,32,112,54,54,48,32,105,54,54,49,41,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,24),40,108,105,115,116,45,62,117,49,54,118,101,99,116,111,114,32,108,115,116,54,53,53,41}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,21),40,100,111,108,111,111,112,54,55,49,32,112,54,55,51,32,105,54,55,52,41,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,24),40,108,105,115,116,45,62,115,49,54,118,101,99,116,111,114,32,108,115,116,54,54,56,41}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,21),40,100,111,108,111,111,112,54,56,52,32,112,54,56,54,32,105,54,56,55,41,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,24),40,108,105,115,116,45,62,117,51,50,118,101,99,116,111,114,32,108,115,116,54,56,49,41}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,21),40,100,111,108,111,111,112,54,57,55,32,112,54,57,57,32,105,55,48,48,41,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,24),40,108,105,115,116,45,62,115,51,50,118,101,99,116,111,114,32,108,115,116,54,57,52,41}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,21),40,100,111,108,111,111,112,55,49,48,32,112,55,49,50,32,105,55,49,51,41,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,24),40,108,105,115,116,45,62,102,51,50,118,101,99,116,111,114,32,108,115,116,55,48,55,41}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,21),40,100,111,108,111,111,112,55,50,51,32,112,55,50,53,32,105,55,50,54,41,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,24),40,108,105,115,116,45,62,102,54,52,118,101,99,116,111,114,32,108,115,116,55,50,48,41}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,18),40,117,56,118,101,99,116,111,114,32,46,32,120,115,55,51,50,41,0,0,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,18),40,115,56,118,101,99,116,111,114,32,46,32,120,115,55,51,52,41,0,0,0,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,19),40,117,49,54,118,101,99,116,111,114,32,46,32,120,115,55,51,54,41,0,0,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,19),40,115,49,54,118,101,99,116,111,114,32,46,32,120,115,55,51,56,41,0,0,0,0,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,19),40,117,51,50,118,101,99,116,111,114,32,46,32,120,115,55,52,48,41,0,0,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,19),40,115,51,50,118,101,99,116,111,114,32,46,32,120,115,55,52,50,41,0,0,0,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,19),40,102,51,50,118,101,99,116,111,114,32,46,32,120,115,55,52,52,41,0,0,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,19),40,102,54,52,118,101,99,116,111,114,32,46,32,120,115,55,52,54,41,0,0,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,55,54,55,41,0,0,0,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,21),40,117,56,118,101,99,116,111,114,45,62,108,105,115,116,32,118,55,54,52,41,0,0,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,55,55,52,41,0,0,0,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,21),40,115,56,118,101,99,116,111,114,45,62,108,105,115,116,32,118,55,55,49,41,0,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,55,56,49,41,0,0,0,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,22),40,117,49,54,118,101,99,116,111,114,45,62,108,105,115,116,32,118,55,55,56,41,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,55,56,56,41,0,0,0,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,22),40,115,49,54,118,101,99,116,111,114,45,62,108,105,115,116,32,118,55,56,53,41,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,55,57,53,41,0,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,22),40,117,51,50,118,101,99,116,111,114,45,62,108,105,115,116,32,118,55,57,50,41,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,56,48,50,41,0,0,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,22),40,115,51,50,118,101,99,116,111,114,45,62,108,105,115,116,32,118,55,57,57,41,0,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,56,48,57,41,0,0,0,0,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,22),40,102,51,50,118,101,99,116,111,114,45,62,108,105,115,116,32,118,56,48,54,41,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,56,49,54,41,0,0,0,0,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,22),40,102,54,52,118,101,99,116,111,114,45,62,108,105,115,116,32,118,56,49,51,41,0,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,16),40,117,56,118,101,99,116,111,114,63,32,120,56,50,48,41}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,16),40,115,56,118,101,99,116,111,114,63,32,120,56,50,50,41}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,17),40,117,49,54,118,101,99,116,111,114,63,32,120,56,50,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,17),40,115,49,54,118,101,99,116,111,114,63,32,120,56,50,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,17),40,117,51,50,118,101,99,116,111,114,63,32,120,56,50,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,17),40,115,51,50,118,101,99,116,111,114,63,32,120,56,51,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,17),40,102,51,50,118,101,99,116,111,114,63,32,120,56,51,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,17),40,102,54,52,118,101,99,116,111,114,63,32,120,56,51,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,13),40,102,95,51,51,56,50,32,118,56,52,52,41,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,25),40,112,97,99,107,45,99,111,112,121,32,116,97,103,56,52,50,32,108,111,99,56,52,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,15),40,102,95,51,52,48,48,32,115,116,114,56,53,50,41,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,28),40,117,110,112,97,99,107,32,116,97,103,56,52,57,32,115,122,56,53,48,32,108,111,99,56,53,49,41,0,0,0,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,15),40,102,95,51,52,51,48,32,115,116,114,56,54,50,41,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,33),40,117,110,112,97,99,107,45,99,111,112,121,32,116,97,103,56,53,57,32,115,122,56,54,48,32,108,111,99,56,54,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,16),40,102,53,48,52,49,32,118,56,51,57,53,48,52,48,41}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,16),40,102,53,48,51,52,32,118,56,51,57,53,48,51,51,41}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,16),40,102,53,48,50,55,32,118,56,51,57,53,48,50,54,41}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,16),40,102,53,48,50,48,32,118,56,51,57,53,48,49,57,41}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,16),40,102,53,48,49,51,32,118,56,51,57,53,48,49,50,41}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,16),40,102,53,48,48,54,32,118,56,51,57,53,48,48,53,41}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,16),40,102,52,57,57,57,32,118,56,51,57,52,57,57,56,41}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,16),40,102,52,57,57,50,32,118,56,51,57,52,57,57,49,41}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,11),40,103,57,49,56,32,99,57,50,48,41,0,0,0,0,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,38),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,57,48,52,32,112,111,114,116,57,48,53,41,0,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,48),40,35,35,115,121,115,35,117,115,101,114,45,112,114,105,110,116,45,104,111,111,107,32,120,57,50,52,32,114,101,97,100,97,98,108,101,57,50,53,32,112,111,114,116,57,50,54,41}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,49),40,115,117,98,110,118,101,99,116,111,114,32,118,57,51,57,32,116,57,52,48,32,101,115,57,52,49,32,102,114,111,109,57,52,50,32,116,111,57,52,51,32,108,111,99,57,52,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,32),40,115,117,98,117,56,118,101,99,116,111,114,32,118,57,55,53,32,102,114,111,109,57,55,54,32,116,111,57,55,55,41}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,33),40,115,117,98,117,49,54,118,101,99,116,111,114,32,118,57,55,57,32,102,114,111,109,57,56,48,32,116,111,57,56,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,33),40,115,117,98,117,51,50,118,101,99,116,111,114,32,118,57,56,51,32,102,114,111,109,57,56,52,32,116,111,57,56,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,32),40,115,117,98,115,56,118,101,99,116,111,114,32,118,57,56,55,32,102,114,111,109,57,56,56,32,116,111,57,56,57,41}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,33),40,115,117,98,115,49,54,118,101,99,116,111,114,32,118,57,57,49,32,102,114,111,109,57,57,50,32,116,111,57,57,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,33),40,115,117,98,115,51,50,118,101,99,116,111,114,32,118,57,57,53,32,102,114,111,109,57,57,54,32,116,111,57,57,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,35),40,115,117,98,102,51,50,118,101,99,116,111,114,32,118,57,57,57,32,102,114,111,109,49,48,48,48,32,116,111,49,48,48,49,41,0,0,0,0,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,36),40,115,117,98,102,54,52,118,101,99,116,111,114,32,118,49,48,48,51,32,102,114,111,109,49,48,48,52,32,116,111,49,48,48,53,41,0,0,0,0}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,36),40,119,114,105,116,101,45,117,56,118,101,99,116,111,114,32,118,49,48,49,49,32,46,32,116,109,112,49,48,49,48,49,48,49,50,41,0,0,0,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,45),40,114,101,97,100,45,117,56,118,101,99,116,111,114,33,32,110,49,48,54,53,32,100,101,115,116,49,48,54,54,32,46,32,116,109,112,49,48,54,52,49,48,54,55,41,0,0,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,29),40,114,101,97,100,45,117,56,118,101,99,116,111,114,32,46,32,116,109,112,49,48,57,48,49,48,57,49,41,0,0,0}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,17),40,97,52,49,52,56,32,120,51,52,54,32,105,51,52,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,17),40,97,52,49,55,56,32,120,51,51,49,32,105,51,51,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,17),40,97,52,50,48,56,32,120,51,49,54,32,105,51,49,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,17),40,97,52,50,51,56,32,120,51,48,49,32,105,51,48,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,17),40,97,52,50,54,56,32,120,50,56,54,32,105,50,56,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,17),40,97,52,50,57,56,32,120,50,55,49,32,105,50,55,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,17),40,97,52,51,50,56,32,120,50,53,54,32,105,50,53,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,17),40,97,52,51,53,56,32,120,50,52,49,32,105,50,52,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li121[] 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 stub367(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 stub362(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int bytes=(int )C_unfix(C_a0); 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(f_3108) static void C_ccall f_3108(C_word c,C_word *av) C_noret; C_noret_decl(f_3496) static void C_ccall f_3496(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_2010) static void C_ccall f_2010(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(f5034) static void C_ccall f5034(C_word c,C_word *av) C_noret; C_noret_decl(f_1917) static void C_fcall f_1917(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1915) static void C_ccall f_1915(C_word c,C_word *av) C_noret; C_noret_decl(f_2048) static void C_ccall f_2048(C_word c,C_word *av) C_noret; C_noret_decl(f_1978) static void C_ccall f_1978(C_word c,C_word *av) C_noret; C_noret_decl(f5041) static void C_ccall f5041(C_word c,C_word *av) C_noret; C_noret_decl(f_3398) static void C_fcall f_3398(C_word t0,C_word t1,C_word t2,C_word t3) 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_3380) static void C_fcall f_3380(C_word t0,C_word t1,C_word t2) 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_2471) static void C_ccall f_2471(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_1900) static void C_ccall f_1900(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_3291) static void C_ccall f_3291(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_4149) static void C_ccall f_4149(C_word c,C_word *av) C_noret; C_noret_decl(f_4147) static void C_ccall f_4147(C_word c,C_word *av) C_noret; C_noret_decl(f_2206) static void C_ccall f_2206(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_4177) static void C_ccall f_4177(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_3256) static void C_ccall f_3256(C_word c,C_word *av) C_noret; C_noret_decl(f_2709) static void C_ccall f_2709(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_4117) static void C_ccall f_4117(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_2146) static void C_ccall f_2146(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_3072) static void C_ccall f_3072(C_word c,C_word *av) C_noret; C_noret_decl(f_4101) static void C_ccall f_4101(C_word c,C_word *av) C_noret; C_noret_decl(f_2485) static C_word C_fcall f_2485(C_word t0,C_word t1); C_noret_decl(f_3271) static void C_fcall f_3271(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f5013) static void C_ccall f5013(C_word c,C_word *av) C_noret; C_noret_decl(f_3093) static void C_fcall f_3093(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(f5020) static void C_ccall f5020(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(f5027) static void C_ccall f5027(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_3840) static void C_ccall f_3840(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(f5006) static void C_ccall f5006(C_word c,C_word *av) C_noret; C_noret_decl(f_3834) static void C_ccall f_3834(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_3174) static void C_ccall f_3174(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_3168) static void C_ccall f_3168(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_3153) static void C_fcall f_3153(C_word t0,C_word t1,C_word t2) 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_3678) static void C_ccall f_3678(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_2928) static void C_ccall f_2928(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_2108) static void C_ccall f_2108(C_word c,C_word *av) C_noret; C_noret_decl(f_3777) static void C_ccall f_3777(C_word c,C_word *av) C_noret; C_noret_decl(f_1942) static void C_ccall f_1942(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_1935) static void C_ccall f_1935(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_4061) static void C_fcall f_4061(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_3066) static void C_ccall f_3066(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_3753) static void C_ccall f_3753(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_3783) static void C_ccall f_3783(C_word c,C_word *av) C_noret; C_noret_decl(f_1494) static void C_fcall f_1494(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_2386) static C_word C_fcall f_2386(C_word t0,C_word t1); C_noret_decl(f_4387) static void C_ccall f_4387(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_4021) static void C_ccall f_4021(C_word c,C_word *av) 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_3917) static void C_fcall f_3917(C_word t0,C_word t1) C_noret; C_noret_decl(f_3901) static void C_ccall f_3901(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_1796) static void C_ccall f_1796(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_2796) static void C_fcall f_2796(C_word t0,C_word t1,C_word t2,C_word t3) 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_2784) static void C_ccall f_2784(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_3588) static void C_ccall f_3588(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_3584) static void C_ccall f_3584(C_word c,C_word *av) C_noret; C_noret_decl(f_1705) static void C_ccall f_1705(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_1717) static void C_ccall f_1717(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_3572) static void C_ccall f_3572(C_word c,C_word *av) C_noret; C_noret_decl(f_2690) static C_word C_fcall f_2690(C_word t0,C_word t1); C_noret_decl(f_2760) static void C_fcall f_2760(C_word t0,C_word t1,C_word t2,C_word t3) 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_3560) static void C_ccall f_3560(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_2685) static void C_fcall f_2685(C_word t0,C_word t1) 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_1674) static void C_ccall f_1674(C_word c,C_word *av) C_noret; C_noret_decl(f_4329) static void C_ccall f_4329(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_2673) static void C_ccall f_2673(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_1666) static void C_ccall f_1666(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_2832) static void C_fcall f_2832(C_word t0,C_word t1,C_word t2,C_word t3) 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_3344) static void C_ccall f_3344(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_2090) static C_word C_fcall f_2090(C_word t0,C_word t1); C_noret_decl(f_3338) static void C_ccall f_3338(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_3332) static void C_ccall f_3332(C_word c,C_word *av) C_noret; C_noret_decl(f_1884) static void C_ccall f_1884(C_word c,C_word *av) C_noret; C_noret_decl(f_1888) static void C_ccall f_1888(C_word c,C_word *av) C_noret; C_noret_decl(f_1880) static void C_ccall f_1880(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_3326) static void C_ccall f_3326(C_word c,C_word *av) C_noret; C_noret_decl(f_4357) static void C_ccall f_4357(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(C_srfi_2d4_toplevel) C_externexport void C_ccall C_srfi_2d4_toplevel(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_2076) static void C_ccall f_2076(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_4299) static void C_ccall f_4299(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_3828) static void C_ccall f_3828(C_word c,C_word *av) C_noret; C_noret_decl(f_3300) static void C_fcall f_3300(C_word t0,C_word t1,C_word t2) 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_3822) static void C_ccall f_3822(C_word c,C_word *av) C_noret; C_noret_decl(f_1892) static void C_ccall f_1892(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_3810) static void C_ccall f_3810(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_2085) static void C_ccall f_2085(C_word c,C_word *av) C_noret; C_noret_decl(f_1527) static void C_ccall f_1527(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_1804) static void C_ccall f_1804(C_word c,C_word *av) C_noret; C_noret_decl(f_1539) static void C_ccall f_1539(C_word c,C_word *av) C_noret; C_noret_decl(f_1533) static void C_ccall f_1533(C_word c,C_word *av) C_noret; C_noret_decl(f_1872) static void C_ccall f_1872(C_word c,C_word *av) C_noret; C_noret_decl(f_2287) static C_word C_fcall f_2287(C_word t0,C_word t1); C_noret_decl(f_2282) static void C_ccall f_2282(C_word c,C_word *av) C_noret; C_noret_decl(f_3621) static void C_fcall f_3621(C_word t0,C_word t1,C_word t2) 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_2582) static void C_fcall f_2582(C_word t0,C_word t1) 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_2983) static void C_ccall f_2983(C_word c,C_word *av) C_noret; C_noret_decl(f_2587) static C_word C_fcall f_2587(C_word t0,C_word t1); C_noret_decl(f_1551) static void C_ccall f_1551(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_2443) static void C_ccall f_2443(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(f4992) static void C_ccall f4992(C_word c,C_word *av) C_noret; C_noret_decl(f4999) static void C_ccall f4999(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_1509) static void C_ccall f_1509(C_word c,C_word *av) C_noret; C_noret_decl(f_1741) static void C_ccall f_1741(C_word c,C_word *av) C_noret; C_noret_decl(f_1515) static void C_ccall f_1515(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_4237) static void C_ccall f_4237(C_word c,C_word *av) C_noret; C_noret_decl(f_4239) static void C_ccall f_4239(C_word c,C_word *av) C_noret; C_noret_decl(f_1769) static void C_ccall f_1769(C_word c,C_word *av) C_noret; C_noret_decl(f_3602) static void C_ccall f_3602(C_word c,C_word *av) C_noret; C_noret_decl(f_3400) static void C_ccall f_3400(C_word c,C_word *av) C_noret; C_noret_decl(f_1762) static void C_ccall f_1762(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_3632) static void C_ccall f_3632(C_word c,C_word *av) C_noret; C_noret_decl(f_2748) static void C_ccall f_2748(C_word c,C_word *av) C_noret; C_noret_decl(f_4267) static void C_ccall f_4267(C_word c,C_word *av) C_noret; C_noret_decl(f_3416) static void C_fcall f_3416(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_4207) static void C_ccall f_4207(C_word c,C_word *av) C_noret; C_noret_decl(f_3449) static void C_fcall f_3449(C_word t0,C_word t1) C_noret; C_noret_decl(f_3440) static void C_ccall f_3440(C_word c,C_word *av) 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_2606) static void C_ccall f_2606(C_word c,C_word *av) C_noret; C_noret_decl(f_3213) static void C_fcall f_3213(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3227) static void C_ccall f_3227(C_word c,C_word *av) C_noret; C_noret_decl(f_3242) static void C_fcall f_3242(C_word t0,C_word t1,C_word t2) 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_1630) static void C_ccall f_1630(C_word c,C_word *av) C_noret; C_noret_decl(f_2570) static void C_ccall f_2570(C_word c,C_word *av) C_noret; C_noret_decl(f_2188) static C_word C_fcall f_2188(C_word t0,C_word t1); C_noret_decl(f_2183) static void C_ccall f_2183(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_3233) static void C_ccall f_3233(C_word c,C_word *av) C_noret; C_noret_decl(f_1642) static void C_ccall f_1642(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_1567) static void C_ccall f_1567(C_word c,C_word *av) C_noret; C_noret_decl(f_3428) static void C_fcall f_3428(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1591) static void C_ccall f_1591(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_2645) static void C_ccall f_2645(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_3000) static void C_ccall f_3000(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_3556) static void C_ccall f_3556(C_word c,C_word *av) C_noret; C_noret_decl(f_1835) static void C_ccall f_1835(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_3204) static void C_ccall f_3204(C_word c,C_word *av) C_noret; C_noret_decl(f_3138) static void C_ccall f_3138(C_word c,C_word *av) C_noret; C_noret_decl(f_3548) static void C_ccall f_3548(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_3540) static void C_ccall f_3540(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_3536) static void C_ccall f_3536(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_3123) static void C_fcall f_3123(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3532) static void C_ccall f_3532(C_word c,C_word *av) C_noret; C_noret_decl(f_3048) static void C_ccall f_3048(C_word c,C_word *av) C_noret; C_noret_decl(f_3114) static void C_ccall f_3114(C_word c,C_word *av) C_noret; C_noret_decl(f_3528) static void C_ccall f_3528(C_word c,C_word *av) C_noret; C_noret_decl(f_3524) static void C_ccall f_3524(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_3520) static void C_ccall f_3520(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_3516) static void C_ccall f_3516(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_3504) static void C_ccall f_3504(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_3500) static void C_ccall f_3500(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_3144) static void C_ccall f_3144(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_2827) static void C_ccall f_2827(C_word c,C_word *av) C_noret; C_noret_decl(f_2820) static void C_ccall f_2820(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_2947) static void C_ccall f_2947(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_word t4,C_word t5,C_word t6) 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_1992) static C_word C_fcall f_1992(C_word t0,C_word t1); C_noret_decl(f_2803) static void C_ccall f_2803(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_2935) static void C_ccall f_2935(C_word c,C_word *av) C_noret; C_noret_decl(trf_1917) static void C_ccall trf_1917(C_word c,C_word *av) C_noret; static void C_ccall trf_1917(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1917(t0,t1,t2,t3);} C_noret_decl(trf_3398) static void C_ccall trf_3398(C_word c,C_word *av) C_noret; static void C_ccall trf_3398(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3398(t0,t1,t2,t3);} C_noret_decl(trf_3380) static void C_ccall trf_3380(C_word c,C_word *av) C_noret; static void C_ccall trf_3380(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3380(t0,t1,t2);} C_noret_decl(trf_3271) static void C_ccall trf_3271(C_word c,C_word *av) C_noret; static void C_ccall trf_3271(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3271(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_3093(t0,t1,t2);} C_noret_decl(trf_3153) static void C_ccall trf_3153(C_word c,C_word *av) C_noret; static void C_ccall trf_3153(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3153(t0,t1,t2);} 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_4061) static void C_ccall trf_4061(C_word c,C_word *av) C_noret; static void C_ccall trf_4061(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4061(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_1494) static void C_ccall trf_1494(C_word c,C_word *av) C_noret; static void C_ccall trf_1494(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_1494(t0,t1,t2,t3,t4);} C_noret_decl(trf_3917) static void C_ccall trf_3917(C_word c,C_word *av) C_noret; static void C_ccall trf_3917(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3917(t0,t1);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2796(t0,t1,t2,t3);} C_noret_decl(trf_2760) static void C_ccall trf_2760(C_word c,C_word *av) C_noret; static void C_ccall trf_2760(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2760(t0,t1,t2,t3);} C_noret_decl(trf_2685) static void C_ccall trf_2685(C_word c,C_word *av) C_noret; static void C_ccall trf_2685(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2685(t0,t1);} C_noret_decl(trf_2832) static void C_ccall trf_2832(C_word c,C_word *av) C_noret; static void C_ccall trf_2832(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2832(t0,t1,t2,t3);} 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_3300) static void C_ccall trf_3300(C_word c,C_word *av) C_noret; static void C_ccall trf_3300(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3300(t0,t1,t2);} C_noret_decl(trf_3621) static void C_ccall trf_3621(C_word c,C_word *av) C_noret; static void C_ccall trf_3621(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3621(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_2582(t0,t1);} 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_3416) static void C_ccall trf_3416(C_word c,C_word *av) C_noret; static void C_ccall trf_3416(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3416(t0,t1);} C_noret_decl(trf_3449) static void C_ccall trf_3449(C_word c,C_word *av) C_noret; static void C_ccall trf_3449(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3449(t0,t1);} C_noret_decl(trf_3213) static void C_ccall trf_3213(C_word c,C_word *av) C_noret; static void C_ccall trf_3213(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3213(t0,t1,t2);} C_noret_decl(trf_3242) static void C_ccall trf_3242(C_word c,C_word *av) C_noret; static void C_ccall trf_3242(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3242(t0,t1,t2);} C_noret_decl(trf_3428) static void C_ccall trf_3428(C_word c,C_word *av) C_noret; static void C_ccall trf_3428(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3428(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_3123) static void C_ccall trf_3123(C_word c,C_word *av) C_noret; static void C_ccall trf_3123(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3123(t0,t1,t2);} 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[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_3719(t0,t1,t2,t3,t4,t5,t6);} 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);} /* k3106 in loop in u8vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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(3,c,1)))){ C_save_and_reclaim((void *)f_3108,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k3494 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_3496(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3496,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[96]+1 /* (set! u8vector->blob ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3500,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:545: pack-copy */ f_3380(t3,lf[6],lf[97]);} /* make-u8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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=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_1950,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; 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=C_i_check_exact_2(t2,lf[47]); t20=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2010,a[2]=t6,a[3]=t2,a[4]=t1,a[5]=t11,a[6]=t16,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* srfi-4.scm:286: alloc */ f_1917(t20,lf[47],t2,t11);} /* k2008 in make-u8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2010,2,av);} a=C_alloc(9); t2=C_a_i_record2(&a,2,lf[4],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1978,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:287: set-finalizer! */ t5=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_1978(2,av2);}}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_1978(2,av2);}}} /* k1985 in k1976 in k2008 in make-u8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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(6,c,2)))){ C_save_and_reclaim((void *)f_1987,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1992,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li20),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( f_1992(t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f5034 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f5034(C_word c,C_word *av){ C_word tmp; C_word 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 *)f5034,3,av);} t3=C_i_check_structure_2(t2,lf[6],lf[89]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* alloc in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_fcall f_1917(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(3,0,5)))){ C_save_and_reclaim_args((void *)trf_1917,4,t1,t2,t3,t4);} a=C_alloc(3); if(C_truep(t4)){ t5=t3; t6=C_i_foreign_fixnum_argumentp(t5); t7=stub362(C_SCHEME_UNDEFINED,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{ /* srfi-4.scm:272: ##sys#error */ t8=*((C_word*)lf[1]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t1; av2[2]=t2; av2[3]=lf[42]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1933,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:273: ##sys#allocate-vector */ t6=*((C_word*)lf[43]+1);{ C_word av2[6]; av2[0]=t6; av2[1]=t5; av2[2]=t3; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}} /* ext-free in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_1915(C_word c,C_word *av){ C_word tmp; C_word 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_1915,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=stub367(C_SCHEME_UNDEFINED,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* make-s8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_2048(C_word c,C_word *av){ C_word tmp; C_word 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_2048,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; 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=C_i_check_exact_2(t2,lf[49]); t20=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2108,a[2]=t6,a[3]=t2,a[4]=t1,a[5]=t11,a[6]=t16,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* srfi-4.scm:299: alloc */ f_1917(t20,lf[49],t2,t11);} /* k1976 in k2008 in make-u8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_1978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1978,2,av);} a=C_alloc(6); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1987,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); /* srfi-4.scm:291: ##sys#check-exact-interval */ f_1494(t2,((C_word*)t0)[2],C_fix(0),C_fix(255),lf[47]);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* f5041 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f5041(C_word c,C_word *av){ C_word tmp; C_word 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 *)f5041,3,av);} t3=C_i_check_structure_2(t2,lf[4],lf[88]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* unpack in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_fcall f_3398(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_3398,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_3400,a[2]=t4,a[3]=t3,a[4]=t2,a[5]=((C_word)li86),tmp=(C_word)a,a+=6,tmp); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k3390 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3392,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_copy_block(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* pack-copy in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_fcall f_3380(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_3380,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_3382,a[2]=t2,a[3]=t3,a[4]=((C_word)li84),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_3382 in pack-copy in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *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_3382,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_3392,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_block_size(t5); /* srfi-4.scm:511: ##sys#make-blob */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[83]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[83]+1); av2[1]=t6; av2[2]=t7; tp(3,av2);}} /* k2469 in k2501 in make-s32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2471,2,av);} a=C_alloc(6); if(C_truep(((C_word*)t0)[2])){ t2=C_i_check_exact_2(((C_word*)t0)[2],lf[53]); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2485,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word)li30),tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_2485(t3,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 t9; C_word t10; C_word t11; C_word 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(189,c,5)))){ C_save_and_reclaim((void *)f_1908,2,av);} a=C_alloc(189); t2=C_mutate2((C_word*)lf[41]+1 /* (set! f64vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1915,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1917,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp); t5=C_mutate2((C_word*)lf[44]+1 /* (set! release-number-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1935,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[47]+1 /* (set! make-u8vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1950,a[2]=t3,a[3]=t4,a[4]=((C_word)li21),tmp=(C_word)a,a+=5,tmp)); t7=C_mutate2((C_word*)lf[49]+1 /* (set! make-s8vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2048,a[2]=t3,a[3]=t4,a[4]=((C_word)li23),tmp=(C_word)a,a+=5,tmp)); t8=C_mutate2((C_word*)lf[50]+1 /* (set! make-u16vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2146,a[2]=t3,a[3]=t4,a[4]=((C_word)li25),tmp=(C_word)a,a+=5,tmp)); t9=C_mutate2((C_word*)lf[51]+1 /* (set! make-s16vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2245,a[2]=t3,a[3]=t4,a[4]=((C_word)li27),tmp=(C_word)a,a+=5,tmp)); t10=C_mutate2((C_word*)lf[52]+1 /* (set! make-u32vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2344,a[2]=t3,a[3]=t4,a[4]=((C_word)li29),tmp=(C_word)a,a+=5,tmp)); t11=C_mutate2((C_word*)lf[53]+1 /* (set! make-s32vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2443,a[2]=t3,a[3]=t4,a[4]=((C_word)li31),tmp=(C_word)a,a+=5,tmp)); t12=C_mutate2((C_word*)lf[54]+1 /* (set! make-f32vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2542,a[2]=t3,a[3]=t4,a[4]=((C_word)li33),tmp=(C_word)a,a+=5,tmp)); t13=C_mutate2((C_word*)lf[55]+1 /* (set! make-f64vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2645,a[2]=t3,a[3]=t4,a[4]=((C_word)li35),tmp=(C_word)a,a+=5,tmp)); t14=*((C_word*)lf[47]+1); t15=C_mutate2((C_word*)lf[56]+1 /* (set! list->u8vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2748,a[2]=t14,a[3]=((C_word)li37),tmp=(C_word)a,a+=4,tmp)); t16=*((C_word*)lf[49]+1); t17=C_mutate2((C_word*)lf[58]+1 /* (set! list->s8vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2784,a[2]=t16,a[3]=((C_word)li39),tmp=(C_word)a,a+=4,tmp)); t18=*((C_word*)lf[50]+1); t19=C_mutate2((C_word*)lf[59]+1 /* (set! list->u16vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2820,a[2]=t18,a[3]=((C_word)li41),tmp=(C_word)a,a+=4,tmp)); t20=*((C_word*)lf[51]+1); t21=C_mutate2((C_word*)lf[60]+1 /* (set! list->s16vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2856,a[2]=t20,a[3]=((C_word)li43),tmp=(C_word)a,a+=4,tmp)); t22=*((C_word*)lf[52]+1); t23=C_mutate2((C_word*)lf[61]+1 /* (set! list->u32vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2892,a[2]=t22,a[3]=((C_word)li45),tmp=(C_word)a,a+=4,tmp)); t24=*((C_word*)lf[53]+1); t25=C_mutate2((C_word*)lf[62]+1 /* (set! list->s32vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2928,a[2]=t24,a[3]=((C_word)li47),tmp=(C_word)a,a+=4,tmp)); t26=*((C_word*)lf[54]+1); t27=C_mutate2((C_word*)lf[63]+1 /* (set! list->f32vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2964,a[2]=t26,a[3]=((C_word)li49),tmp=(C_word)a,a+=4,tmp)); t28=*((C_word*)lf[55]+1); t29=C_mutate2((C_word*)lf[64]+1 /* (set! list->f64vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3000,a[2]=t28,a[3]=((C_word)li51),tmp=(C_word)a,a+=4,tmp)); t30=C_mutate2((C_word*)lf[4]+1 /* (set! u8vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3036,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp)); t31=C_mutate2((C_word*)lf[6]+1 /* (set! s8vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3042,a[2]=((C_word)li53),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate2((C_word*)lf[8]+1 /* (set! u16vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3048,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate2((C_word*)lf[10]+1 /* (set! s16vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3054,a[2]=((C_word)li55),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate2((C_word*)lf[12]+1 /* (set! u32vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3060,a[2]=((C_word)li56),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate2((C_word*)lf[14]+1 /* (set! s32vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3066,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate2((C_word*)lf[16]+1 /* (set! f32vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3072,a[2]=((C_word)li58),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate2((C_word*)lf[18]+1 /* (set! f64vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3078,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate2((C_word*)lf[65]+1 /* (set! u8vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3084,a[2]=((C_word)li61),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate2((C_word*)lf[66]+1 /* (set! s8vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3114,a[2]=((C_word)li63),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate2((C_word*)lf[67]+1 /* (set! u16vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3144,a[2]=((C_word)li65),tmp=(C_word)a,a+=3,tmp)); t41=C_mutate2((C_word*)lf[68]+1 /* (set! s16vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3174,a[2]=((C_word)li67),tmp=(C_word)a,a+=3,tmp)); t42=C_mutate2((C_word*)lf[69]+1 /* (set! u32vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3204,a[2]=((C_word)li69),tmp=(C_word)a,a+=3,tmp)); t43=C_mutate2((C_word*)lf[70]+1 /* (set! s32vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3233,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp)); t44=C_mutate2((C_word*)lf[71]+1 /* (set! f32vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3262,a[2]=((C_word)li73),tmp=(C_word)a,a+=3,tmp)); t45=C_mutate2((C_word*)lf[72]+1 /* (set! f64vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3291,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp)); t46=C_mutate2((C_word*)lf[73]+1 /* (set! u8vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3320,a[2]=((C_word)li76),tmp=(C_word)a,a+=3,tmp)); t47=C_mutate2((C_word*)lf[74]+1 /* (set! s8vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3326,a[2]=((C_word)li77),tmp=(C_word)a,a+=3,tmp)); t48=C_mutate2((C_word*)lf[75]+1 /* (set! u16vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3332,a[2]=((C_word)li78),tmp=(C_word)a,a+=3,tmp)); t49=C_mutate2((C_word*)lf[76]+1 /* (set! s16vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3338,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp)); t50=C_mutate2((C_word*)lf[77]+1 /* (set! u32vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3344,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp)); t51=C_mutate2((C_word*)lf[78]+1 /* (set! s32vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3350,a[2]=((C_word)li81),tmp=(C_word)a,a+=3,tmp)); t52=C_mutate2((C_word*)lf[79]+1 /* (set! f32vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3356,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp)); t53=C_mutate2((C_word*)lf[80]+1 /* (set! f64vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3362,a[2]=((C_word)li83),tmp=(C_word)a,a+=3,tmp)); t54=C_mutate2((C_word*)lf[46]+1 /* (set! number-vector? ...) */,*((C_word*)lf[81]+1)); t55=C_mutate2(&lf[82] /* (set! pack-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3380,a[2]=((C_word)li85),tmp=(C_word)a,a+=3,tmp)); t56=C_mutate2(&lf[84] /* (set! unpack ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3398,a[2]=((C_word)li87),tmp=(C_word)a,a+=3,tmp)); t57=C_mutate2(&lf[86] /* (set! unpack-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3428,a[2]=((C_word)li89),tmp=(C_word)a,a+=3,tmp)); t58=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5041,a[2]=((C_word)li90),tmp=(C_word)a,a+=3,tmp); t59=C_mutate2((C_word*)lf[88]+1 /* (set! u8vector->blob/shared ...) */,t58); t60=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5034,a[2]=((C_word)li91),tmp=(C_word)a,a+=3,tmp); t61=C_mutate2((C_word*)lf[89]+1 /* (set! s8vector->blob/shared ...) */,t60); t62=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5027,a[2]=((C_word)li92),tmp=(C_word)a,a+=3,tmp); t63=C_mutate2((C_word*)lf[90]+1 /* (set! u16vector->blob/shared ...) */,t62); t64=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5020,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp); t65=C_mutate2((C_word*)lf[91]+1 /* (set! s16vector->blob/shared ...) */,t64); t66=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5013,a[2]=((C_word)li94),tmp=(C_word)a,a+=3,tmp); t67=C_mutate2((C_word*)lf[92]+1 /* (set! u32vector->blob/shared ...) */,t66); t68=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5006,a[2]=((C_word)li95),tmp=(C_word)a,a+=3,tmp); t69=C_mutate2((C_word*)lf[93]+1 /* (set! s32vector->blob/shared ...) */,t68); t70=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f4999,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp); t71=C_mutate2((C_word*)lf[94]+1 /* (set! f32vector->blob/shared ...) */,t70); t72=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f4992,a[2]=((C_word)li97),tmp=(C_word)a,a+=3,tmp); t73=C_mutate2((C_word*)lf[95]+1 /* (set! f64vector->blob/shared ...) */,t72); t74=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3496,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:544: pack-copy */ f_3380(t74,lf[4],lf[96]);} /* k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_1900(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1900,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[39]+1 /* (set! s32vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1904,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4179,a[2]=((C_word)li114),tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:236: getter-with-setter */ t5=*((C_word*)lf[154]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[32]+1); av2[4]=lf[156]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 t4; C_word t5; 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=C_mutate2((C_word*)lf[40]+1 /* (set! f32vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1908,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4149,a[2]=((C_word)li113),tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:246: getter-with-setter */ t5=*((C_word*)lf[154]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[33]+1); av2[4]=lf[155]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* f64vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_3291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3291,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[18],lf[72]); 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_3300,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li74),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3300(t8,t1,C_fix(0));} /* f64vector? in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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=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_3362,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[18]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4148 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_4149(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,6)))){ C_save_and_reclaim((void *)f_4149,4,av);} a=C_alloc(9); t4=C_i_check_structure_2(t2,lf[18],lf[41]); t5=C_u_i_f64vector_length(t2); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4177,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t7=t3; t8=C_i_check_exact_2(t7,lf[41]); t9=C_fixnum_less_or_equal_p(C_fix(0),t7); t10=(C_truep(t9)?C_fixnum_lessp(t7,t5):C_SCHEME_FALSE); if(C_truep(t10)){ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_a_u_i_f64vector_ref(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t6; av2[2]=t11; av2[3]=lf[41]; av2[4]=t7; av2[5]=C_fix(0); av2[6]=t5; tp(7,av2);}}} /* k4145 in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in ... */ static void C_ccall f_4147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4147,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2204 in make-u16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_2206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2206,2,av);} a=C_alloc(9); t2=C_a_i_record2(&a,2,lf[8],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2174,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:313: set-finalizer! */ t5=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2174(2,av2);}}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2174(2,av2);}}} /* a4178 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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=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,6)))){ C_save_and_reclaim((void *)f_4179,4,av);} a=C_alloc(9); t4=C_i_check_structure_2(t2,lf[16],lf[40]); t5=C_u_i_f32vector_length(t2); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4207,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t7=t3; t8=C_i_check_exact_2(t7,lf[40]); t9=C_fixnum_less_or_equal_p(C_fix(0),t7); t10=(C_truep(t9)?C_fixnum_lessp(t7,t5):C_SCHEME_FALSE); if(C_truep(t10)){ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_a_u_i_f32vector_ref(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t6; av2[2]=t11; av2[3]=lf[40]; av2[4]=t7; av2[5]=C_fix(0); av2[6]=t5; tp(7,av2);}}} /* k4175 in a4148 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_4177,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_u_i_f64vector_ref(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f32vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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=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_3262,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[16],lf[71]); 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_3271,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li72),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3271(t8,t1,C_fix(0));} /* k3254 in loop in s32vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_3256,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k2707 in make-f64vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_2709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2709,2,av);} a=C_alloc(9); t2=C_a_i_record2(&a,2,lf[18],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2673,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:382: set-finalizer! */ t5=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2673(2,av2);}}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2673(2,av2);}}} /* u8vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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=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_3084,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[4],lf[65]); 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_3093,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li60),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3093(t8,t1,C_fix(0));} /* k4115 in read-u8vector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in ... */ static void C_ccall f_4117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_4117,2,av);} a=C_alloc(3); t2=C_string_to_bytevector(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record2(&a,2,lf[4],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3283 in loop in f32vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_3285,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* make-u16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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=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_2146,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; 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=C_i_check_exact_2(t2,lf[50]); t20=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2206,a[2]=t6,a[3]=t2,a[4]=t1,a[5]=t11,a[6]=t16,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); t21=C_fixnum_shift_left(t2,C_fix(1)); /* srfi-4.scm:312: alloc */ f_1917(t20,lf[50],t21,t11);} /* f64vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_3078,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:451: list->f64vector */ t3=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* f32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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; 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_3072,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:448: list->f32vector */ t3=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* read-u8vector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in ... */ static void C_ccall f_4101(C_word c,C_word *av){ C_word tmp; 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_4101,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; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; 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_word*)lf[148]+1):C_i_car(t6)); t9=C_i_nullp(t6); t10=(C_truep(t9)?C_SCHEME_END_OF_LIST:C_i_cdr(t6)); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4117,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:669: ##sys#read-string/port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[151]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[151]+1); av2[1]=t11; av2[2]=t4; av2[3]=t8; tp(4,av2);}} /* doloop541 in k2469 in k2501 in make-s32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static C_word C_fcall f_2485(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;}} /* loop in f32vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_fcall f_3271(C_word t0,C_word 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_3271,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_3285,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:480: loop */ t6=t3; t7=t4; t1=t6; t2=t7; goto loop;}} /* f5013 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f5013(C_word c,C_word *av){ C_word tmp; C_word 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 *)f5013,3,av);} t3=C_i_check_structure_2(t2,lf[12],lf[92]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in u8vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_fcall f_3093(C_word t0,C_word t1,C_word 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_3093,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_3108,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_fixnum_plus(t2,C_fix(1)); /* srfi-4.scm:474: loop */ t7=t4; t8=t5; t1=t7; t2=t8; goto loop;}} /* k3666 in k3663 in user-print-hook in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3668,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_3678,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:612: g934 */ t4=t2;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f5020 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f5020(C_word c,C_word *av){ C_word tmp; C_word 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 *)f5020,3,av);} t3=C_i_check_structure_2(t2,lf[10],lf[91]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3663 in user-print-hook in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3665,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3668,a[2]=((C_word*)t0)[2],a[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:611: ##sys#print */ t4=*((C_word*)lf[135]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* f5027 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f5027(C_word c,C_word *av){ C_word tmp; C_word 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 *)f5027,3,av);} t3=C_i_check_structure_2(t2,lf[8],lf[90]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3196 in loop in s16vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3198,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* subf32vector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 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=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_3840,5,av);} /* srfi-4.scm:640: subnvector */ f_3719(t1,t2,lf[16],C_fix(4),t3,t4,lf[143]);} /* subf64vector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in ... */ 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=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_3846,5,av);} /* srfi-4.scm:641: subnvector */ f_3719(t1,t2,lf[18],C_fix(8),t3,t4,lf[144]);} /* f5006 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f5006(C_word c,C_word *av){ C_word tmp; C_word 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 *)f5006,3,av);} t3=C_i_check_structure_2(t2,lf[14],lf[93]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* subs32vector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in ... */ static void C_ccall f_3834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3834,5,av);} /* srfi-4.scm:639: subnvector */ f_3719(t1,t2,lf[14],C_fix(4),t3,t4,lf[142]);} /* list->u32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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[12]); 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:421: make-u32vector */ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k2897 in list->u32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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)li44),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));} /* s16vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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; 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_3174,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[10],lf[68]); 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_3183,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li66),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3183(t8,t1,C_fix(0));} /* write-u8vector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 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=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_3852,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; t4=C_i_nullp(t3); t5=(C_truep(t4)?*((C_word*)lf[146]+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[4],lf[145]); t20=C_i_check_port_2(t6,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[145]); t21=C_u_i_8vector_length(t2); t22=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3901,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=C_i_check_exact_2(t11,lf[145]); t25=C_fixnum_less_or_equal_p(C_fix(0),t11); t26=(C_truep(t25)?C_fixnum_lessp(t11,t23):C_SCHEME_FALSE); if(C_truep(t26)){ t27=C_SCHEME_UNDEFINED; t28=t22;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t28; av2[1]=t27; f_3901(2,av2);}} else{ t27=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t22; av2[2]=t27; av2[3]=lf[145]; av2[4]=t11; av2[5]=C_fix(0); av2[6]=t23; tp(7,av2);}}} /* k3166 in loop in u16vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3168,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k2873 in doloop671 in k2861 in list->s16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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);} /* loop in u16vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_fcall f_3153(C_word t0,C_word t1,C_word 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_3153,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_3168,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_fixnum_plus(t2,C_fix(1)); /* srfi-4.scm:476: loop */ t7=t4; t8=t5; t1=t7; t2=t8; goto loop;}} /* k2370 in k2402 in make-u32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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; 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_2372,2,av);} a=C_alloc(6); if(C_truep(((C_word*)t0)[2])){ t2=C_i_check_exact_2(((C_word*)t0)[2],lf[52]); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2386,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word)li28),tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_2386(t3,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3676 in k3666 in k3663 in user-print-hook in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in ... */ static void C_ccall f_3678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3678,2,av);} /* srfi-4.scm:612: ##sys#print */ t2=*((C_word*)lf[135]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* list->s16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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[10]); 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:420: make-s16vector */ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* list->s32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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[14]); 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:422: make-s32vector */ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k2909 in doloop684 in k2897 in list->u32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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);} /* k2106 in make-s8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 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_2108,2,av);} a=C_alloc(9); t2=C_a_i_record2(&a,2,lf[6],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2076,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:300: set-finalizer! */ t5=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2076(2,av2);}}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2076(2,av2);}}} /* k3775 in k3751 in subnvector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in ... */ static void C_ccall f_3777(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3777,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_3783,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:628: ##sys#allocate-vector */ t6=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1940 in release-number-vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_1942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1942,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=stub367(C_SCHEME_UNDEFINED,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* srfi-4.scm:281: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[44]; av2[3]=lf[45]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* doloop684 in k2897 in list->u32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ 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)); /* srfi-4.scm:421: u32vector-set! */ t7=*((C_word*)lf[26]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=t3; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ /* srfi-4.scm:421: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[57]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* release-number-vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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=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_1935,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1942,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:279: number-vector? */ t4=*((C_word*)lf[46]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1931 in alloc in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1933,2,av);} t2=C_string_to_bytevector(t1); t3=t1; t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4059 in read-u8vector! in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in ... */ static void C_fcall f_4061(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_4061,2,t0,t1);} if(C_truep(t1)){ /* srfi-4.scm:666: ##sys#read-string! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[149]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[149]+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:666: ##sys#read-string! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[149]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[149]+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);}}} /* loop in s16vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *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_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_3198,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_fixnum_plus(t2,C_fix(1)); /* srfi-4.scm:477: loop */ t7=t4; t8=t5; t1=t7; t2=t8; goto loop;}} /* s32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_3066,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:445: list->s32vector */ t3=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* u32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_3060,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:442: list->u32vector */ t3=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3751 in subnvector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in ... */ 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 t3; 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,6)))){ C_save_and_reclaim((void *)f_3753,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3777,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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=((C_word*)t0)[2]; t5=((C_word*)t0)[9]; t6=C_i_check_exact_2(t4,t5); t7=C_fixnum_less_or_equal_p(C_fix(0),t4); t8=(C_truep(t7)?C_fixnum_lessp(t4,t3):C_SCHEME_FALSE); if(C_truep(t8)){ t9=C_SCHEME_UNDEFINED; t10=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; f_3777(2,av2);}} else{ t9=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t2; av2[2]=t9; av2[3]=t5; av2[4]=t4; av2[5]=C_fix(0); av2[6]=t3; tp(7,av2);}}} /* s16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_3054,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:439: list->s16vector */ t3=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3781 in k3775 in k3751 in subnvector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 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 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_3783,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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* ##sys#check-exact-interval in k1490 */ static void C_fcall f_1494(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(0,0,6)))){ C_save_and_reclaim_args((void *)trf_1494,5,t1,t2,t3,t4,t5);} t6=C_i_check_exact_2(t2,t5); t7=C_fixnum_lessp(t2,t3); t8=(C_truep(t7)?t7:C_fixnum_greaterp(t2,t4)); if(C_truep(t8)){ /* srfi-4.scm:52: ##sys#error */ t9=*((C_word*)lf[1]+1);{ C_word av2[7]; av2[0]=t9; av2[1]=t1; av2[2]=t5; av2[3]=lf[2]; av2[4]=t2; av2[5]=t3; av2[6]=t4; ((C_proc)(void*)(*((C_word*)t9+1)))(7,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);}}} /* k1490 */ 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 t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(57,c,6)))){ C_save_and_reclaim((void *)f_1492,2,av);} a=C_alloc(57); t2=C_mutate2(&lf[0] /* (set! ##sys#check-exact-interval ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1494,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[3]+1 /* (set! u8vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1509,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[5]+1 /* (set! s8vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1515,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[7]+1 /* (set! u16vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1521,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[9]+1 /* (set! s16vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1527,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[11]+1 /* (set! u32vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1533,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[13]+1 /* (set! s32vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1539,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[15]+1 /* (set! f32vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1545,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[17]+1 /* (set! f64vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1551,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[19]+1 /* (set! u8vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1557,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[22]+1 /* (set! s8vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1599,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[23]+1 /* (set! u16vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1632,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[25]+1 /* (set! s16vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1674,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[26]+1 /* (set! u32vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1707,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[30]+1 /* (set! s32vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1762,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[32]+1 /* (set! f32vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1804,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2((C_word*)lf[33]+1 /* (set! f64vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1841,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1880,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t20=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4359,a[2]=((C_word)li120),tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:176: getter-with-setter */ t21=*((C_word*)lf[154]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t21; av2[1]=t19; av2[2]=t20; av2[3]=*((C_word*)lf[19]+1); av2[4]=lf[162]; ((C_proc)(void*)(*((C_word*)t21+1)))(5,av2);}} /* doloop513 in k2370 in k2402 in make-u32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static C_word C_fcall f_2386(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;}} /* k4385 in a4358 in k1490 */ static void C_ccall f_4387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4387,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_u_i_u8vector_ref(((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3925 in k3915 in k3902 in k3899 in write-u8vector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3927,2,av);} t2=C_slot(t1,C_fix(1)); /* srfi-4.scm:646: g1047 */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* read-u8vector! in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 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=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,2)))){ C_save_and_reclaim((void*)f_4021,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; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; 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[148]+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_SCHEME_TRUE,C_SCHEME_TRUE,lf[147]); t17=C_i_check_exact_2(t13,lf[147]); t18=C_i_check_structure_2(t3,lf[4],lf[147]); t19=(C_truep(((C_word*)t5)[1])?C_i_check_exact_2(((C_word*)t5)[1],lf[147]):C_SCHEME_UNDEFINED); t20=C_slot(t3,C_fix(1)); t21=t20; t22=C_block_size(t21); t23=t22; t24=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4061,a[2]=t1,a[3]=t5,a[4]=t21,a[5]=t8,a[6]=t13,a[7]=t23,tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t5)[1])){ t25=C_fixnum_plus(t13,((C_word*)t5)[1]); t26=t24; f_4061(t26,C_fixnum_less_or_equal_p(t25,t23));} else{ t25=t24; f_4061(t25,C_SCHEME_FALSE);}} /* k1770 in k1767 in s32vector-set! in k1490 */ 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 t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_1772,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1796,a[2]=((C_word*)t0)[2],a[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_exact_2(t3,lf[30]); t5=C_fixnum_less_or_equal_p(C_fix(0),t3); t6=(C_truep(t5)?C_fixnum_lessp(t3,((C_word*)t0)[6]):C_SCHEME_FALSE); if(C_truep(t6)){ t7=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_u_i_s32vector_set(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t2; av2[2]=t7; av2[3]=lf[30]; av2[4]=t3; av2[5]=C_fix(0); av2[6]=((C_word*)t0)[6]; tp(7,av2);}}} /* k3915 in k3902 in k3899 in write-u8vector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in ... */ static void C_fcall f_3917(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_3917,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* srfi-4.scm:646: g1047 */ 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_3927,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:655: subu8vector */ t3=*((C_word*)lf[137]+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:655: subu8vector */ t3=*((C_word*)lf[137]+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);}}}} /* k3899 in write-u8vector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in ... */ static void C_ccall f_3901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,6)))){ C_save_and_reclaim((void *)f_3901,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3904,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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=C_i_check_exact_2(((C_word*)t0)[5],lf[145]); t5=C_fixnum_less_or_equal_p(((C_word*)t0)[6],((C_word*)t0)[5]); t6=(C_truep(t5)?C_fixnum_lessp(((C_word*)t0)[5],t3):C_SCHEME_FALSE); if(C_truep(t6)){ t7=C_SCHEME_UNDEFINED; t8=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; f_3904(2,av2);}} else{ t7=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t2; av2[2]=t7; av2[3]=lf[145]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=t3; tp(7,av2);}}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_3904(2,av2);}}} /* k3902 in k3899 in write-u8vector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 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 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_3904,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_3917,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_3917(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[5],((C_word*)t0)[7])));} else{ t7=t5; f_3917(t7,C_SCHEME_FALSE);}} /* k1794 in k1770 in k1767 in s32vector-set! in k1490 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1796,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_u_i_s32vector_set(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2789 in list->s8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_2791,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_2796,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li38),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_2796(t6,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));} /* doloop645 in k2789 in list->s8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_fcall f_2796(C_word t0,C_word 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_2796,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_2803,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)); /* srfi-4.scm:418: s8vector-set! */ t7=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=t3; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ /* srfi-4.scm:418: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[57]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* ##sys#user-read-hook in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in ... */ 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=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_3593,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_3602,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* srfi-4.scm:587: read */ t6=*((C_word*)lf[131]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* srfi-4.scm:592: old-hook */ t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}} /* list->s8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_2784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2784,3,av);} a=C_alloc(4); t3=C_i_check_list_2(t2,lf[6]); t4=C_i_length(t2); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2791,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:418: make-s8vector */ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* u32vector-set! in k1490 */ 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=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,3)))){ C_save_and_reclaim((void *)f_1707,5,av);} a=C_alloc(7); t5=C_i_check_structure_2(t2,lf[12],lf[26]); t6=C_u_i_32vector_length(t2); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1714,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t6,tmp=(C_word)a,a+=7,tmp); /* srfi-4.scm:134: ##sys#check-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[29]+1); av2[1]=t7; av2[2]=t4; av2[3]=lf[26]; tp(4,av2);}} /* k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in k3502 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 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,c,8)))){ C_save_and_reclaim((void *)f_3588,2,av);} a=C_alloc(96); t2=C_mutate2((C_word*)lf[119]+1 /* (set! blob->f64vector ...) */,t1); t3=*((C_word*)lf[120]+1); t4=C_a_i_list(&a,16,lf[121],*((C_word*)lf[56]+1),lf[122],*((C_word*)lf[58]+1),lf[123],*((C_word*)lf[59]+1),lf[124],*((C_word*)lf[60]+1),lf[125],*((C_word*)lf[61]+1),lf[126],*((C_word*)lf[62]+1),lf[127],*((C_word*)lf[63]+1),lf[128],*((C_word*)lf[64]+1)); t5=t4; t6=C_mutate2((C_word*)lf[120]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3593,a[2]=t5,a[3]=t3,a[4]=((C_word)li99),tmp=(C_word)a,a+=5,tmp)); t7=*((C_word*)lf[134]+1); t8=C_mutate2((C_word*)lf[134]+1 /* (set! ##sys#user-print-hook ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3653,a[2]=t7,a[3]=((C_word)li100),tmp=(C_word)a,a+=4,tmp)); t9=C_mutate2(&lf[136] /* (set! subnvector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3719,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[137]+1 /* (set! subu8vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3804,a[2]=((C_word)li102),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[138]+1 /* (set! subu16vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3810,a[2]=((C_word)li103),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[139]+1 /* (set! subu32vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3816,a[2]=((C_word)li104),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[140]+1 /* (set! subs8vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3822,a[2]=((C_word)li105),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[141]+1 /* (set! subs16vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3828,a[2]=((C_word)li106),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[142]+1 /* (set! subs32vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3834,a[2]=((C_word)li107),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[143]+1 /* (set! subf32vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3840,a[2]=((C_word)li108),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[144]+1 /* (set! subf64vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3846,a[2]=((C_word)li109),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2((C_word*)lf[145]+1 /* (set! write-u8vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3852,a[2]=((C_word)li110),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2((C_word*)lf[147]+1 /* (set! read-u8vector! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4021,a[2]=((C_word)li111),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2((C_word*)lf[150]+1 /* (set! read-u8vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4101,a[2]=((C_word)li112),tmp=(C_word)a,a+=3,tmp)); t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4147,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:673: register-feature! */ t22=*((C_word*)lf[152]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t22; av2[1]=t21; av2[2]=lf[153]; ((C_proc)(void*)(*((C_word*)t22+1)))(3,av2);}} /* k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in k3502 in k3498 in k3494 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; 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_3580,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[117]+1 /* (set! blob->s32vector ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3584,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:568: unpack-copy */ f_3428(t3,lf[16],C_fix(4),lf[118]);} /* k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in k3502 in k3498 in ... */ static void C_ccall f_3584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3584,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[118]+1 /* (set! blob->f32vector ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3588,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:569: unpack-copy */ f_3428(t3,lf[18],C_fix(8),lf[119]);} /* k1703 in s16vector-set! in k1490 */ static void C_ccall f_1705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1705,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_u_i_s16vector_set(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in k3502 in k3498 in k3494 in k1906 in ... */ 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; 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_3576,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[116]+1 /* (set! blob->u32vector ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3580,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:567: unpack-copy */ f_3428(t3,lf[14],C_fix(4),lf[117]);} /* k1715 in k1712 in u32vector-set! in k1490 */ 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 t3; C_word 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,6)))){ C_save_and_reclaim((void *)f_1717,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1741,a[2]=((C_word*)t0)[2],a[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_exact_2(t3,lf[26]); t5=C_fixnum_less_or_equal_p(C_fix(0),t3); t6=(C_truep(t5)?C_fixnum_lessp(t3,((C_word*)t0)[6]):C_SCHEME_FALSE); if(C_truep(t6)){ t7=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_u_i_u32vector_set(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t2; av2[2]=t7; av2[3]=lf[26]; av2[4]=t3; av2[5]=C_fix(0); av2[6]=((C_word*)t0)[6]; tp(7,av2);}}} /* k1712 in u32vector-set! in k1490 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_1714,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1717,a[2]=((C_word*)t0)[2],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_negativep(((C_word*)t0)[5]))){ /* srfi-4.scm:136: ##sys#error */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[26]; av2[3]=lf[27]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ if(C_truep(C_fits_in_unsigned_int_p(((C_word*)t0)[5]))){ t3=C_SCHEME_UNDEFINED; t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; f_1717(2,av2);}} else{ /* srfi-4.scm:138: ##sys#error */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[26]; av2[3]=lf[28]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}} /* k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in k3502 in k3498 in k3494 in k1906 in k1902 in ... */ static void C_ccall f_3572(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3572,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[115]+1 /* (set! blob->s16vector ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3576,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:566: unpack-copy */ f_3428(t3,lf[12],C_fix(4),lf[116]);} /* doloop598 in k2683 in k2671 in k2707 in make-f64vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static C_word C_fcall f_2690(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;}} /* doloop632 in k2753 in list->u8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_fcall f_2760(C_word t0,C_word 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_2760,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_2767,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)); /* srfi-4.scm:417: u8vector-set! */ t7=*((C_word*)lf[19]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=t3; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ /* srfi-4.scm:417: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[57]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in k3502 in k3498 in k3494 in k1906 in k1902 in k1898 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3568,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[114]+1 /* (set! blob->u16vector ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3572,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:565: unpack-copy */ f_3428(t3,lf[10],C_fix(2),lf[115]);} /* k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in k3502 in k3498 in k3494 in k1906 in k1902 in k1898 in k1894 in k1890 in ... */ static void C_ccall f_3560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3560,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[112]+1 /* (set! blob->u8vector ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3564,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:563: unpack-copy */ f_3428(t3,lf[6],C_SCHEME_TRUE,lf[113]);} /* k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in k3502 in k3498 in k3494 in k1906 in k1902 in k1898 in k1894 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3564,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[113]+1 /* (set! blob->s8vector ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3568,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:564: unpack-copy */ f_3428(t3,lf[8],C_fix(2),lf[114]);} /* k2683 in k2671 in k2707 in make-f64vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_fcall f_2685(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_2685,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2690,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li34),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t3; av2[1]=( f_2690(t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2753 in list->u8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 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_2755,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_2760,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li36),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_2760(t6,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));} /* k2765 in doloop632 in k2753 in list->u8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2767,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_2760(t4,((C_word*)t0)[5],t2,t3);} /* s16vector-set! in k1490 */ 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=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(6,c,6)))){ C_save_and_reclaim((void *)f_1674,5,av);} a=C_alloc(6); t5=C_i_check_structure_2(t2,lf[10],lf[25]); t6=C_u_i_16vector_length(t2); t7=C_i_check_exact_2(t4,lf[25]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1705,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t9=t3; t10=C_i_check_exact_2(t9,lf[25]); t11=C_fixnum_less_or_equal_p(C_fix(0),t9); t12=(C_truep(t11)?C_fixnum_lessp(t9,t6):C_SCHEME_FALSE); if(C_truep(t12)){ t13=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=C_u_i_s16vector_set(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t13=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t8; av2[2]=t13; av2[3]=lf[25]; av2[4]=t9; av2[5]=C_fix(0); av2[6]=t6; tp(7,av2);}}} /* a4328 in k1878 in k1490 */ static void C_ccall f_4329(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(5,c,6)))){ C_save_and_reclaim((void *)f_4329,4,av);} a=C_alloc(5); t4=C_i_check_structure_2(t2,lf[6],lf[35]); t5=C_u_i_s8vector_length(t2); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4357,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t7=t3; t8=C_i_check_exact_2(t7,lf[35]); t9=C_fixnum_less_or_equal_p(C_fix(0),t7); t10=(C_truep(t9)?C_fixnum_lessp(t7,t5):C_SCHEME_FALSE); if(C_truep(t10)){ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_u_i_s8vector_ref(t2,t3); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t6; av2[2]=t11; av2[3]=lf[35]; av2[4]=t7; av2[5]=C_fix(0); av2[6]=t5; tp(7,av2);}}} /* k4325 in a4298 in k1882 in k1878 in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4327,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_u_i_u16vector_ref(((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2671 in k2707 in make-f64vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 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_2673,2,av);} a=C_alloc(10); t2=((C_word*)((C_word*)t0)[2])[1]; if(C_truep(t2)){ t3=C_i_check_number_2(((C_word*)((C_word*)t0)[2])[1],lf[55]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2685,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_blockp(((C_word*)((C_word*)t0)[2])[1]))){ t5=t4; f_2685(t5,C_SCHEME_UNDEFINED);} else{ t5=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_a_i_fix_to_flo(&a,1,((C_word*)((C_word*)t0)[2])[1])); t6=t4; f_2685(t6,t5);}} else{ t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* f32vector? in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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=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_3356,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[16]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1664 in k1640 in u16vector-set! in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1666,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_u_i_u16vector_set(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* s32vector? in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *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_3350,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[14]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop658 in k2825 in list->u16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_fcall f_2832(C_word t0,C_word 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_2832,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_2839,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)); /* srfi-4.scm:419: u16vector-set! */ t7=*((C_word*)lf[23]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=t3; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ /* srfi-4.scm:419: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[57]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* k2837 in doloop658 in k2825 in list->u16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2839,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_2832(t4,((C_word*)t0)[5],t2,t3);} /* u32vector? in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_3344(C_word c,C_word *av){ C_word tmp; C_word 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_3344,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[12]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2861 in list->s16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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)li42),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));} /* doloop429 in k2083 in k2074 in k2106 in make-s8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static C_word C_fcall f_2090(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;}} /* s16vector? in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_3338(C_word c,C_word *av){ C_word tmp; C_word 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_3338,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[10]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop671 in k2861 in list->s16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ 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)); /* srfi-4.scm:420: s16vector-set! */ t7=*((C_word*)lf[25]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=t3; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ /* srfi-4.scm:420: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[57]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* u16vector? in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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=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_3332,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[8]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1882 in k1878 in k1490 */ static void C_ccall f_1884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1884,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[35]+1 /* (set! s8vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1888,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4299,a[2]=((C_word)li118),tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:196: getter-with-setter */ t5=*((C_word*)lf[154]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[23]+1); av2[4]=lf[160]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_1888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1888,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[36]+1 /* (set! u16vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1892,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4269,a[2]=((C_word)li117),tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:206: getter-with-setter */ t5=*((C_word*)lf[154]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[25]+1); av2[4]=lf[159]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1878 in k1490 */ static void C_ccall f_1880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1880,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[34]+1 /* (set! u8vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1884,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4329,a[2]=((C_word)li119),tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:186: getter-with-setter */ t5=*((C_word*)lf[154]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[19]+1); av2[4]=lf[161]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* a4358 in k1490 */ 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=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(5,c,6)))){ C_save_and_reclaim((void *)f_4359,4,av);} a=C_alloc(5); t4=C_i_check_structure_2(t2,lf[4],lf[34]); t5=C_u_i_s8vector_length(t2); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4387,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t7=t3; t8=C_i_check_exact_2(t7,lf[34]); t9=C_fixnum_less_or_equal_p(C_fix(0),t7); t10=(C_truep(t9)?C_fixnum_lessp(t7,t5):C_SCHEME_FALSE); if(C_truep(t10)){ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_u_i_u8vector_ref(t2,t3); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t6; av2[2]=t11; av2[3]=lf[34]; av2[4]=t7; av2[5]=C_fix(0); av2[6]=t5; tp(7,av2);}}} /* s8vector? in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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=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_3326,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[6]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4355 in a4328 in k1878 in k1490 */ static void C_ccall f_4357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4357,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_u_i_s8vector_ref(((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* u8vector? in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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=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_3320,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[4]); ((C_proc)(void*)(*((C_word*)t3+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_2d4_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_srfi_2d4_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(973))){ C_save(t1); C_rereclaim2(973*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,163); lf[1]=C_h_intern(&lf[1],9,"\003syserror"); lf[2]=C_decode_literal(C_heaptop,"\376B\000\000&numeric value is not in expected range"); lf[3]=C_h_intern(&lf[3],15,"u8vector-length"); lf[4]=C_h_intern(&lf[4],8,"u8vector"); lf[5]=C_h_intern(&lf[5],15,"s8vector-length"); lf[6]=C_h_intern(&lf[6],8,"s8vector"); lf[7]=C_h_intern(&lf[7],16,"u16vector-length"); lf[8]=C_h_intern(&lf[8],9,"u16vector"); lf[9]=C_h_intern(&lf[9],16,"s16vector-length"); lf[10]=C_h_intern(&lf[10],9,"s16vector"); lf[11]=C_h_intern(&lf[11],16,"u32vector-length"); lf[12]=C_h_intern(&lf[12],9,"u32vector"); lf[13]=C_h_intern(&lf[13],16,"s32vector-length"); lf[14]=C_h_intern(&lf[14],9,"s32vector"); lf[15]=C_h_intern(&lf[15],16,"f32vector-length"); lf[16]=C_h_intern(&lf[16],9,"f32vector"); lf[17]=C_h_intern(&lf[17],16,"f64vector-length"); lf[18]=C_h_intern(&lf[18],9,"f64vector"); lf[19]=C_h_intern(&lf[19],13,"u8vector-set!"); lf[20]=C_h_intern(&lf[20],14,"\003syserror-hook"); lf[21]=C_decode_literal(C_heaptop,"\376B\000\000\034argument may not be negative"); lf[22]=C_h_intern(&lf[22],13,"s8vector-set!"); lf[23]=C_h_intern(&lf[23],14,"u16vector-set!"); lf[24]=C_decode_literal(C_heaptop,"\376B\000\000\034argument may not be negative"); lf[25]=C_h_intern(&lf[25],14,"s16vector-set!"); lf[26]=C_h_intern(&lf[26],14,"u32vector-set!"); lf[27]=C_decode_literal(C_heaptop,"\376B\000\000\034argument may not be negative"); lf[28]=C_decode_literal(C_heaptop,"\376B\000\000\036argument exceeds integer range"); lf[29]=C_h_intern(&lf[29],17,"\003syscheck-integer"); lf[30]=C_h_intern(&lf[30],14,"s32vector-set!"); lf[31]=C_decode_literal(C_heaptop,"\376B\000\000\036argument exceeds integer range"); lf[32]=C_h_intern(&lf[32],14,"f32vector-set!"); lf[33]=C_h_intern(&lf[33],14,"f64vector-set!"); lf[34]=C_h_intern(&lf[34],12,"u8vector-ref"); lf[35]=C_h_intern(&lf[35],12,"s8vector-ref"); lf[36]=C_h_intern(&lf[36],13,"u16vector-ref"); lf[37]=C_h_intern(&lf[37],13,"s16vector-ref"); lf[38]=C_h_intern(&lf[38],13,"u32vector-ref"); lf[39]=C_h_intern(&lf[39],13,"s32vector-ref"); lf[40]=C_h_intern(&lf[40],13,"f32vector-ref"); lf[41]=C_h_intern(&lf[41],13,"f64vector-ref"); lf[42]=C_decode_literal(C_heaptop,"\376B\000\000:not enough memory - cannot allocate external number vector"); lf[43]=C_h_intern(&lf[43],19,"\003sysallocate-vector"); lf[44]=C_h_intern(&lf[44],21,"release-number-vector"); lf[45]=C_decode_literal(C_heaptop,"\376B\000\000\047bad argument type - not a number vector"); lf[46]=C_h_intern(&lf[46],14,"number-vector\077"); lf[47]=C_h_intern(&lf[47],13,"make-u8vector"); lf[48]=C_h_intern(&lf[48],14,"set-finalizer!"); lf[49]=C_h_intern(&lf[49],13,"make-s8vector"); lf[50]=C_h_intern(&lf[50],14,"make-u16vector"); lf[51]=C_h_intern(&lf[51],14,"make-s16vector"); lf[52]=C_h_intern(&lf[52],14,"make-u32vector"); lf[53]=C_h_intern(&lf[53],14,"make-s32vector"); lf[54]=C_h_intern(&lf[54],14,"make-f32vector"); lf[55]=C_h_intern(&lf[55],14,"make-f64vector"); lf[56]=C_h_intern(&lf[56],14,"list->u8vector"); lf[57]=C_h_intern(&lf[57],27,"\003syserror-not-a-proper-list"); lf[58]=C_h_intern(&lf[58],14,"list->s8vector"); lf[59]=C_h_intern(&lf[59],15,"list->u16vector"); lf[60]=C_h_intern(&lf[60],15,"list->s16vector"); lf[61]=C_h_intern(&lf[61],15,"list->u32vector"); lf[62]=C_h_intern(&lf[62],15,"list->s32vector"); lf[63]=C_h_intern(&lf[63],15,"list->f32vector"); lf[64]=C_h_intern(&lf[64],15,"list->f64vector"); lf[65]=C_h_intern(&lf[65],14,"u8vector->list"); lf[66]=C_h_intern(&lf[66],14,"s8vector->list"); lf[67]=C_h_intern(&lf[67],15,"u16vector->list"); lf[68]=C_h_intern(&lf[68],15,"s16vector->list"); lf[69]=C_h_intern(&lf[69],15,"u32vector->list"); lf[70]=C_h_intern(&lf[70],15,"s32vector->list"); lf[71]=C_h_intern(&lf[71],15,"f32vector->list"); lf[72]=C_h_intern(&lf[72],15,"f64vector->list"); lf[73]=C_h_intern(&lf[73],9,"u8vector\077"); lf[74]=C_h_intern(&lf[74],9,"s8vector\077"); lf[75]=C_h_intern(&lf[75],10,"u16vector\077"); lf[76]=C_h_intern(&lf[76],10,"s16vector\077"); lf[77]=C_h_intern(&lf[77],10,"u32vector\077"); lf[78]=C_h_intern(&lf[78],10,"s32vector\077"); lf[79]=C_h_intern(&lf[79],10,"f32vector\077"); lf[80]=C_h_intern(&lf[80],10,"f64vector\077"); lf[81]=C_h_intern(&lf[81],18,"\003syssrfi-4-vector\077"); lf[83]=C_h_intern(&lf[83],13,"\003sysmake-blob"); lf[85]=C_decode_literal(C_heaptop,"\376B\000\000+blob does not have correct size for packing"); lf[87]=C_decode_literal(C_heaptop,"\376B\000\000+blob does not have correct size for packing"); lf[88]=C_h_intern(&lf[88],21,"u8vector->blob/shared"); lf[89]=C_h_intern(&lf[89],21,"s8vector->blob/shared"); lf[90]=C_h_intern(&lf[90],22,"u16vector->blob/shared"); lf[91]=C_h_intern(&lf[91],22,"s16vector->blob/shared"); lf[92]=C_h_intern(&lf[92],22,"u32vector->blob/shared"); lf[93]=C_h_intern(&lf[93],22,"s32vector->blob/shared"); lf[94]=C_h_intern(&lf[94],22,"f32vector->blob/shared"); lf[95]=C_h_intern(&lf[95],22,"f64vector->blob/shared"); lf[96]=C_h_intern(&lf[96],14,"u8vector->blob"); lf[97]=C_h_intern(&lf[97],14,"s8vector->blob"); lf[98]=C_h_intern(&lf[98],15,"u16vector->blob"); lf[99]=C_h_intern(&lf[99],15,"s16vector->blob"); lf[100]=C_h_intern(&lf[100],15,"u32vector->blob"); lf[101]=C_h_intern(&lf[101],15,"s32vector->blob"); lf[102]=C_h_intern(&lf[102],15,"f32vector->blob"); lf[103]=C_h_intern(&lf[103],15,"f64vector->blob"); lf[104]=C_h_intern(&lf[104],21,"blob->u8vector/shared"); lf[105]=C_h_intern(&lf[105],21,"blob->s8vector/shared"); lf[106]=C_h_intern(&lf[106],22,"blob->u16vector/shared"); lf[107]=C_h_intern(&lf[107],22,"blob->s16vector/shared"); lf[108]=C_h_intern(&lf[108],22,"blob->u32vector/shared"); lf[109]=C_h_intern(&lf[109],22,"blob->s32vector/shared"); lf[110]=C_h_intern(&lf[110],22,"blob->f32vector/shared"); lf[111]=C_h_intern(&lf[111],22,"blob->f64vector/shared"); lf[112]=C_h_intern(&lf[112],14,"blob->u8vector"); lf[113]=C_h_intern(&lf[113],14,"blob->s8vector"); lf[114]=C_h_intern(&lf[114],15,"blob->u16vector"); lf[115]=C_h_intern(&lf[115],15,"blob->s16vector"); lf[116]=C_h_intern(&lf[116],15,"blob->u32vector"); lf[117]=C_h_intern(&lf[117],15,"blob->s32vector"); lf[118]=C_h_intern(&lf[118],15,"blob->f32vector"); lf[119]=C_h_intern(&lf[119],15,"blob->f64vector"); lf[120]=C_h_intern(&lf[120],18,"\003sysuser-read-hook"); lf[121]=C_h_intern(&lf[121],2,"u8"); lf[122]=C_h_intern(&lf[122],2,"s8"); lf[123]=C_h_intern(&lf[123],3,"u16"); lf[124]=C_h_intern(&lf[124],3,"s16"); lf[125]=C_h_intern(&lf[125],3,"u32"); lf[126]=C_h_intern(&lf[126],3,"s32"); lf[127]=C_h_intern(&lf[127],3,"f32"); lf[128]=C_h_intern(&lf[128],3,"f64"); lf[129]=C_h_intern(&lf[129],1,"f"); lf[130]=C_h_intern(&lf[130],1,"F"); lf[131]=C_h_intern(&lf[131],4,"read"); lf[132]=C_h_intern(&lf[132],14,"\003sysread-error"); lf[133]=C_decode_literal(C_heaptop,"\376B\000\000\031illegal bytevector syntax"); lf[134]=C_h_intern(&lf[134],19,"\003sysuser-print-hook"); lf[135]=C_h_intern(&lf[135],9,"\003sysprint"); lf[137]=C_h_intern(&lf[137],11,"subu8vector"); lf[138]=C_h_intern(&lf[138],12,"subu16vector"); lf[139]=C_h_intern(&lf[139],12,"subu32vector"); lf[140]=C_h_intern(&lf[140],11,"subs8vector"); lf[141]=C_h_intern(&lf[141],12,"subs16vector"); lf[142]=C_h_intern(&lf[142],12,"subs32vector"); lf[143]=C_h_intern(&lf[143],12,"subf32vector"); lf[144]=C_h_intern(&lf[144],12,"subf64vector"); lf[145]=C_h_intern(&lf[145],14,"write-u8vector"); lf[146]=C_h_intern(&lf[146],19,"\003sysstandard-output"); lf[147]=C_h_intern(&lf[147],14,"read-u8vector!"); lf[148]=C_h_intern(&lf[148],18,"\003sysstandard-input"); lf[149]=C_h_intern(&lf[149],16,"\003sysread-string!"); lf[150]=C_h_intern(&lf[150],13,"read-u8vector"); lf[151]=C_h_intern(&lf[151],20,"\003sysread-string/port"); lf[152]=C_h_intern(&lf[152],17,"register-feature!"); lf[153]=C_h_intern(&lf[153],6,"srfi-4"); lf[154]=C_h_intern(&lf[154],18,"getter-with-setter"); lf[155]=C_decode_literal(C_heaptop,"\376B\000\000\023(f64vector-ref v i)"); lf[156]=C_decode_literal(C_heaptop,"\376B\000\000\023(f32vector-ref v i)"); lf[157]=C_decode_literal(C_heaptop,"\376B\000\000\023(s32vector-ref v i)"); lf[158]=C_decode_literal(C_heaptop,"\376B\000\000\023(u32vector-ref v i)"); lf[159]=C_decode_literal(C_heaptop,"\376B\000\000\023(s16vector-ref v i)"); lf[160]=C_decode_literal(C_heaptop,"\376B\000\000\023(u16vector-ref v i)"); lf[161]=C_decode_literal(C_heaptop,"\376B\000\000\022(s8vector-ref v i)"); lf[162]=C_decode_literal(C_heaptop,"\376B\000\000\022(u8vector-ref v i)"); C_register_lf2(lf,163,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1492,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* subu8vector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 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=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_3804,5,av);} /* srfi-4.scm:634: subnvector */ f_3719(t1,t2,lf[4],C_fix(1),t3,t4,lf[137]);} /* k2074 in k2106 in make-s8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_2076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2076,2,av);} a=C_alloc(6); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2085,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); /* srfi-4.scm:304: ##sys#check-exact-interval */ f_1494(t2,((C_word*)t0)[2],C_fix(-128),C_fix(127),lf[49]);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3312 in loop in f64vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_3314,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* a4298 in k1882 in k1878 in k1490 */ 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=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(5,c,6)))){ C_save_and_reclaim((void *)f_4299,4,av);} a=C_alloc(5); t4=C_i_check_structure_2(t2,lf[8],lf[36]); t5=C_u_i_s16vector_length(t2); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4327,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t7=t3; t8=C_i_check_exact_2(t7,lf[36]); t9=C_fixnum_less_or_equal_p(C_fix(0),t7); t10=(C_truep(t9)?C_fixnum_lessp(t7,t5):C_SCHEME_FALSE); if(C_truep(t10)){ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_u_i_u16vector_ref(t2,t3); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t6; av2[2]=t11; av2[3]=lf[36]; av2[4]=t7; av2[5]=C_fix(0); av2[6]=t5; tp(7,av2);}}} /* k4295 in a4268 in k1886 in k1882 in k1878 in k1490 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4297,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_u_i_s16vector_ref(((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* subs16vector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 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=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_3828,5,av);} /* srfi-4.scm:638: subnvector */ f_3719(t1,t2,lf[10],C_fix(2),t3,t4,lf[141]);} /* loop in f64vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_fcall f_3300(C_word t0,C_word 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_3300,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_3314,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:481: loop */ t6=t3; t7=t4; t1=t6; t2=t7; goto loop;}} /* k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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; 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_1896,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[38]+1 /* (set! u32vector-ref ...) */,t1); 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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4209,a[2]=((C_word)li115),tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:226: getter-with-setter */ t5=*((C_word*)lf[154]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[30]+1); av2[4]=lf[157]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* subs8vector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in ... */ 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=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_3822,5,av);} /* srfi-4.scm:637: subnvector */ f_3719(t1,t2,lf[6],C_fix(1),t3,t4,lf[140]);} /* k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_1892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1892,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[37]+1 /* (set! s16vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1896,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4239,a[2]=((C_word)li116),tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:216: getter-with-setter */ t5=*((C_word*)lf[154]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[26]+1); av2[4]=lf[158]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* subu32vector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 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=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_3816,5,av);} /* srfi-4.scm:636: subnvector */ f_3719(t1,t2,lf[12],C_fix(4),t3,t4,lf[139]);} /* subu16vector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in ... */ static void C_ccall f_3810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3810,5,av);} /* srfi-4.scm:635: subnvector */ f_3719(t1,t2,lf[8],C_fix(2),t3,t4,lf[138]);} /* u16vector-length in k1490 */ 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=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_1521,3,av);} t3=C_i_check_structure_2(t2,lf[8],lf[7]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_16vector_length(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2083 in k2074 in k2106 in make-s8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_2085(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2085,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2090,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li22),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( f_2090(t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* s16vector-length in k1490 */ static void C_ccall f_1527(C_word c,C_word *av){ C_word tmp; C_word 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_1527,3,av);} t3=C_i_check_structure_2(t2,lf[10],lf[9]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_16vector_length(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f64vector-set! in k1490 */ 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=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(6,c,6)))){ C_save_and_reclaim((void *)f_1841,5,av);} a=C_alloc(6); t5=C_i_check_structure_2(t2,lf[18],lf[33]); t6=C_u_i_64vector_length(t2); t7=C_i_check_number_2(t4,lf[33]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1872,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t9=t3; t10=C_i_check_exact_2(t9,lf[33]); t11=C_fixnum_less_or_equal_p(C_fix(0),t9); t12=(C_truep(t11)?C_fixnum_lessp(t9,t6):C_SCHEME_FALSE); if(C_truep(t12)){ t13=C_SCHEME_UNDEFINED; t14=t8;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t13; f_1872(2,av2);}} else{ t13=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t8; av2[2]=t13; av2[3]=lf[33]; av2[4]=t9; av2[5]=C_fix(0); av2[6]=t6; tp(7,av2);}}} /* f32vector-set! in k1490 */ static void C_ccall f_1804(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(6,c,6)))){ C_save_and_reclaim((void *)f_1804,5,av);} a=C_alloc(6); t5=C_i_check_structure_2(t2,lf[16],lf[32]); t6=C_u_i_32vector_length(t2); t7=C_i_check_number_2(t4,lf[32]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1835,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t9=t3; t10=C_i_check_exact_2(t9,lf[32]); t11=C_fixnum_less_or_equal_p(C_fix(0),t9); t12=(C_truep(t11)?C_fixnum_lessp(t9,t6):C_SCHEME_FALSE); if(C_truep(t12)){ t13=C_SCHEME_UNDEFINED; t14=t8;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t13; f_1835(2,av2);}} else{ t13=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t8; av2[2]=t13; av2[3]=lf[32]; av2[4]=t9; av2[5]=C_fix(0); av2[6]=t6; tp(7,av2);}}} /* s32vector-length in k1490 */ static void C_ccall f_1539(C_word c,C_word *av){ C_word tmp; C_word 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_1539,3,av);} t3=C_i_check_structure_2(t2,lf[14],lf[13]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_32vector_length(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* u32vector-length in k1490 */ static void C_ccall f_1533(C_word c,C_word *av){ C_word tmp; C_word 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_1533,3,av);} t3=C_i_check_structure_2(t2,lf[12],lf[11]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_32vector_length(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1870 in f64vector-set! in k1490 */ static void C_ccall f_1872(C_word c,C_word *av){ C_word tmp; C_word t0=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_1872,2,av);} a=C_alloc(4); if(C_truep(C_blockp(((C_word*)t0)[2]))){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_u_i_f64vector_set(((C_word*)t0)[4],((C_word*)t0)[5],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_a_i_fix_to_flo(&a,1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_u_i_f64vector_set(((C_word*)t0)[4],((C_word*)t0)[5],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* doloop485 in k2280 in k2271 in k2303 in make-s16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static C_word C_fcall f_2287(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;}} /* k2280 in k2271 in k2303 in make-s16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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(6,c,2)))){ C_save_and_reclaim((void *)f_2282,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2287,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li26),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( f_2287(t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* g918 in k3600 in user-read-hook in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in ... */ static void C_fcall f_3621(C_word t0,C_word 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_3621,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_3632,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:590: read */ t7=*((C_word*)lf[131]+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);}} /* f32vector-length in k1490 */ 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 *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_1545,3,av);} t3=C_i_check_structure_2(t2,lf[16],lf[15]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_32vector_length(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2580 in k2568 in k2604 in make-f32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_fcall f_2582(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_2582,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2587,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li32),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t3; av2[1]=( f_2587(t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2271 in k2303 in make-s16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_2273,2,av);} a=C_alloc(6); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2282,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); /* srfi-4.scm:330: ##sys#check-exact-interval */ f_1494(t2,((C_word*)t0)[2],C_fix(-32768),C_fix(32767),lf[51]);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k2981 in doloop710 in k2969 in list->f32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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);} /* doloop569 in k2580 in k2568 in k2604 in make-f32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static C_word C_fcall f_2587(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;}} /* f64vector-length in k1490 */ static void C_ccall f_1551(C_word c,C_word *av){ C_word tmp; C_word 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_1551,3,av);} t3=C_i_check_structure_2(t2,lf[18],lf[17]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_64vector_length(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* u8vector-set! in k1490 */ 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=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_1557,5,av);} a=C_alloc(7); t5=C_i_check_structure_2(t2,lf[4],lf[19]); t6=C_u_i_8vector_length(t2); t7=C_i_check_exact_2(t4,lf[19]); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1567,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t6,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_fixnum_lessp(t4,C_fix(0)))){ /* srfi-4.scm:104: ##sys#error */ t9=*((C_word*)lf[1]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; av2[2]=lf[19]; av2[3]=lf[21]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t9=t8;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_1567(2,av2);}}} /* make-s32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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=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_2443,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; 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=C_i_check_exact_2(t2,lf[53]); t20=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2503,a[2]=t6,a[3]=t2,a[4]=t1,a[5]=t11,a[6]=t16,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); t21=C_fixnum_shift_left(t2,C_fix(2)); /* srfi-4.scm:351: alloc */ f_1917(t20,lf[53],t21,t11);} /* k2969 in list->f32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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)li48),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));} /* doloop710 in k2969 in list->f32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ 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)); /* srfi-4.scm:423: f32vector-set! */ t7=*((C_word*)lf[32]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=t3; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ /* srfi-4.scm:423: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[57]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* f4992 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f4992(C_word c,C_word *av){ C_word tmp; C_word 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 *)f4992,3,av);} t3=C_i_check_structure_2(t2,lf[18],lf[95]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f4999 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f4999(C_word c,C_word *av){ C_word tmp; C_word 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 *)f4999,3,av);} t3=C_i_check_structure_2(t2,lf[16],lf[94]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#user-print-hook in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in ... */ 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=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!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(102,c,4)))){ C_save_and_reclaim((void *)f_3653,5,av);} a=C_alloc(102); t5=C_slot(t2,C_fix(0)); t6=C_a_i_list(&a,3,lf[4],lf[121],*((C_word*)lf[65]+1)); t7=C_a_i_list(&a,3,lf[6],lf[122],*((C_word*)lf[66]+1)); t8=C_a_i_list(&a,3,lf[8],lf[123],*((C_word*)lf[67]+1)); t9=C_a_i_list(&a,3,lf[10],lf[124],*((C_word*)lf[68]+1)); t10=C_a_i_list(&a,3,lf[12],lf[125],*((C_word*)lf[69]+1)); t11=C_a_i_list(&a,3,lf[14],lf[126],*((C_word*)lf[70]+1)); t12=C_a_i_list(&a,3,lf[16],lf[127],*((C_word*)lf[71]+1)); t13=C_a_i_list(&a,3,lf[18],lf[128],*((C_word*)lf[72]+1)); t14=C_a_i_list(&a,8,t6,t7,t8,t9,t10,t11,t12,t13); t15=C_u_i_assq(t5,t14); if(C_truep(t15)){ t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3665,a[2]=t15,a[3]=t1,a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* srfi-4.scm:610: ##sys#print */ t17=*((C_word*)lf[135]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t17; av2[1]=t16; av2[2]=C_make_character(35); av2[3]=C_SCHEME_FALSE; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}} else{ /* srfi-4.scm:613: old-hook */ t16=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; ((C_proc)C_fast_retrieve_proc(t16))(5,av2);}}} /* u8vector-length in k1490 */ 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=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_1509,3,av);} t3=C_i_check_structure_2(t2,lf[4],lf[3]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_8vector_length(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1739 in k1715 in k1712 in u32vector-set! in k1490 */ static void C_ccall f_1741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1741,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_u_i_u32vector_set(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* s8vector-length in k1490 */ static void C_ccall f_1515(C_word c,C_word *av){ C_word tmp; C_word 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_1515,3,av);} t3=C_i_check_structure_2(t2,lf[6],lf[5]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_8vector_length(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2402 in make-u32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2404,2,av);} a=C_alloc(9); t2=C_a_i_record2(&a,2,lf[12],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2372,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:339: set-finalizer! */ t5=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2372(2,av2);}}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2372(2,av2);}}} /* k4235 in a4208 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_4237,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_u_i_s32vector_ref(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a4238 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_4239(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,6)))){ C_save_and_reclaim((void *)f_4239,4,av);} a=C_alloc(9); t4=C_i_check_structure_2(t2,lf[12],lf[38]); t5=C_u_i_u32vector_length(t2); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4267,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t7=t3; t8=C_i_check_exact_2(t7,lf[38]); t9=C_fixnum_less_or_equal_p(C_fix(0),t7); t10=(C_truep(t9)?C_fixnum_lessp(t7,t5):C_SCHEME_FALSE); if(C_truep(t10)){ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_a_u_i_u32vector_ref(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t6; av2[2]=t11; av2[3]=lf[38]; av2[4]=t7; av2[5]=C_fix(0); av2[6]=t5; tp(7,av2);}}} /* k1767 in s32vector-set! in k1490 */ static void C_ccall f_1769(C_word c,C_word *av){ C_word tmp; C_word t0=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_1769,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1772,a[2]=((C_word*)t0)[2],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_fits_in_int_p(((C_word*)t0)[5]))){ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_1772(2,av2);}} else{ /* srfi-4.scm:147: ##sys#error */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[30]; av2[3]=lf[31]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k3600 in user-read-hook in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in ... */ static void C_ccall f_3602(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3602,2,av);} a=C_alloc(4); t2=C_i_symbolp(t1); t3=(C_truep(t2)?t1:C_SCHEME_FALSE); t4=C_eqp(t3,lf[129]); t5=(C_truep(t4)?t4:C_eqp(t3,lf[130])); if(C_truep(t5)){ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_3621,a[2]=((C_word*)t0)[4],a[3]=((C_word)li98),tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:587: g918 */ t8=t7; f_3621(t8,((C_word*)t0)[2],t6);} else{ /* srfi-4.scm:591: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[132]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[132]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[133]; av2[4]=t3; tp(5,av2);}}}} /* f_3400 in unpack in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_3400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3400,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_3416,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_3416(t8,t6);} else{ t8=C_fixnum_modulo(t5,((C_word*)t0)[3]); t9=t7; f_3416(t9,C_eqp(C_fix(0),t8));}} /* s32vector-set! in k1490 */ static void C_ccall f_1762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,3)))){ C_save_and_reclaim((void *)f_1762,5,av);} a=C_alloc(7); t5=C_i_check_structure_2(t2,lf[14],lf[30]); t6=C_u_i_32vector_length(t2); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1769,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t6,tmp=(C_word)a,a+=7,tmp); /* srfi-4.scm:145: ##sys#check-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[29]+1); av2[1]=t7; av2[2]=t4; av2[3]=lf[30]; tp(4,av2);}} /* a4268 in k1886 in k1882 in k1878 in k1490 */ 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=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(5,c,6)))){ C_save_and_reclaim((void *)f_4269,4,av);} a=C_alloc(5); t4=C_i_check_structure_2(t2,lf[10],lf[37]); t5=C_u_i_s16vector_length(t2); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4297,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t7=t3; t8=C_i_check_exact_2(t7,lf[37]); t9=C_fixnum_less_or_equal_p(C_fix(0),t7); t10=(C_truep(t9)?C_fixnum_lessp(t7,t5):C_SCHEME_FALSE); if(C_truep(t10)){ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_u_i_s16vector_ref(t2,t3); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t6; av2[2]=t11; av2[3]=lf[37]; av2[4]=t7; av2[5]=C_fix(0); av2[6]=t5; tp(7,av2);}}} /* k3630 in g918 in k3600 in user-read-hook in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3632,2,av);} /* srfi-4.scm:590: g921 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* list->u8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_2748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2748,3,av);} a=C_alloc(4); t3=C_i_check_list_2(t2,lf[4]); t4=C_i_length(t2); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2755,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:417: make-u8vector */ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k4265 in a4238 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_4267(C_word c,C_word *av){ C_word tmp; 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_4267,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_u_i_u32vector_ref(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3414 */ static void C_fcall f_3416(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_3416,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:521: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word av2[7]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[85]; 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);}}} /* a4208 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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=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,6)))){ C_save_and_reclaim((void *)f_4209,4,av);} a=C_alloc(9); t4=C_i_check_structure_2(t2,lf[14],lf[39]); t5=C_u_i_s32vector_length(t2); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4237,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t7=t3; t8=C_i_check_exact_2(t7,lf[39]); t9=C_fixnum_less_or_equal_p(C_fix(0),t7); t10=(C_truep(t9)?C_fixnum_lessp(t7,t5):C_SCHEME_FALSE); if(C_truep(t10)){ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_a_u_i_s32vector_ref(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t6; av2[2]=t11; av2[3]=lf[39]; av2[4]=t7; av2[5]=C_fix(0); av2[6]=t5; tp(7,av2);}}} /* k4205 in a4178 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_4207,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_u_i_f32vector_ref(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3447 in k3438 */ static void C_fcall f_3449(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_3449,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:533: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word av2[7]; av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[6]; av2[3]=lf[87]; 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);}}} /* k3438 */ static void C_ccall f_3440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3440,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_3449,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_3449(t5,t3);} else{ t5=C_fixnum_modulo(((C_word*)t0)[7],((C_word*)t0)[2]); t6=t4; f_3449(t6,C_eqp(C_fix(0),t5));}} /* f_3430 in unpack-copy in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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; 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_3430,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_3440,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:527: ##sys#make-blob */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[83]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[83]+1); av2[1]=t6; av2[2]=t5; tp(3,av2);}} /* k2604 in make-f32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_2606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2606,2,av);} a=C_alloc(9); t2=C_a_i_record2(&a,2,lf[16],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2570,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:365: set-finalizer! */ t5=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2570(2,av2);}}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2570(2,av2);}}} /* loop in u32vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_fcall f_3213(C_word t0,C_word 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_3213,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_3227,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:478: loop */ t6=t3; t7=t4; t1=t6; t2=t7; goto loop;}} /* k3225 in loop in u32vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_3227(C_word c,C_word *av){ C_word tmp; 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_3227,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* loop in s32vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_fcall f_3242(C_word t0,C_word 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_3242,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_3256,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:479: loop */ t6=t3; t7=t4; t1=t6; t2=t7; goto loop;}} /* u16vector-set! in k1490 */ 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=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_1632,5,av);} a=C_alloc(7); t5=C_i_check_structure_2(t2,lf[8],lf[23]); t6=C_u_i_16vector_length(t2); t7=C_i_check_exact_2(t4,lf[23]); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1642,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t6,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_fixnum_lessp(t4,C_fix(0)))){ /* srfi-4.scm:120: ##sys#error */ t9=*((C_word*)lf[1]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; av2[2]=lf[23]; av2[3]=lf[24]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t9=t8;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_1642(2,av2);}}} /* k1628 in s8vector-set! in k1490 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1630,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_u_i_s8vector_set(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2568 in k2604 in make-f32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_2570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_2570,2,av);} a=C_alloc(10); t2=((C_word*)((C_word*)t0)[2])[1]; if(C_truep(t2)){ t3=C_i_check_number_2(((C_word*)((C_word*)t0)[2])[1],lf[54]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2582,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_blockp(((C_word*)((C_word*)t0)[2])[1]))){ t5=t4; f_2582(t5,C_SCHEME_UNDEFINED);} else{ t5=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_a_i_fix_to_flo(&a,1,((C_word*)((C_word*)t0)[2])[1])); t6=t4; f_2582(t6,t5);}} else{ t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* doloop457 in k2181 in k2172 in k2204 in make-u16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static C_word C_fcall f_2188(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;}} /* k2181 in k2172 in k2204 in make-u16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_2183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2183,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,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)li24),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( f_2188(t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* make-u32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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=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_2344,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; 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=C_i_check_exact_2(t2,lf[52]); t20=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2404,a[2]=t6,a[3]=t2,a[4]=t1,a[5]=t11,a[6]=t16,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); t21=C_fixnum_shift_left(t2,C_fix(2)); /* srfi-4.scm:338: alloc */ f_1917(t20,lf[52],t21,t11);} /* s32vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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=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_3233,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[14],lf[70]); 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_3242,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li70),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3242(t8,t1,C_fix(0));} /* k1640 in u16vector-set! in k1490 */ static void C_ccall f_1642(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,6)))){ C_save_and_reclaim((void *)f_1642,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1666,a[2]=((C_word*)t0)[2],a[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_exact_2(t3,lf[23]); t5=C_fixnum_less_or_equal_p(C_fix(0),t3); t6=(C_truep(t5)?C_fixnum_lessp(t3,((C_word*)t0)[6]):C_SCHEME_FALSE); if(C_truep(t6)){ t7=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_u_i_u16vector_set(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t2; av2[2]=t7; av2[3]=lf[23]; av2[4]=t3; av2[5]=C_fix(0); av2[6]=((C_word*)t0)[6]; tp(7,av2);}}} /* k2172 in k2204 in make-u16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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(6,c,5)))){ C_save_and_reclaim((void *)f_2174,2,av);} a=C_alloc(6); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2183,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); /* srfi-4.scm:317: ##sys#check-exact-interval */ f_1494(t2,((C_word*)t0)[2],C_fix(0),C_fix(65535),lf[50]);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k1565 in u8vector-set! in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_1567,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1591,a[2]=((C_word*)t0)[2],a[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_exact_2(t3,lf[19]); t5=C_fixnum_less_or_equal_p(C_fix(0),t3); t6=(C_truep(t5)?C_fixnum_lessp(t3,((C_word*)t0)[6]):C_SCHEME_FALSE); if(C_truep(t6)){ t7=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_u_i_u8vector_set(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t2; av2[2]=t7; av2[3]=lf[19]; av2[4]=t3; av2[5]=C_fix(0); av2[6]=((C_word*)t0)[6]; tp(7,av2);}}} /* unpack-copy in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_fcall f_3428(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_3428,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_3430,a[2]=t4,a[3]=t3,a[4]=t2,a[5]=((C_word)li88),tmp=(C_word)a,a+=6,tmp); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k1589 in k1565 in u8vector-set! in k1490 */ static void C_ccall f_1591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1591,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_u_i_u8vector_set(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* s8vector-set! in k1490 */ 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=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(6,c,6)))){ C_save_and_reclaim((void *)f_1599,5,av);} a=C_alloc(6); t5=C_i_check_structure_2(t2,lf[6],lf[22]); t6=C_u_i_8vector_length(t2); t7=C_i_check_exact_2(t4,lf[22]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1630,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t9=t3; t10=C_i_check_exact_2(t9,lf[22]); t11=C_fixnum_less_or_equal_p(C_fix(0),t9); t12=(C_truep(t11)?C_fixnum_lessp(t9,t6):C_SCHEME_FALSE); if(C_truep(t12)){ t13=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=C_u_i_s8vector_set(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t13=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t8; av2[2]=t13; av2[3]=lf[22]; av2[4]=t9; av2[5]=C_fix(0); av2[6]=t6; tp(7,av2);}}} /* make-f64vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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=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,4)))){ C_save_and_reclaim((void*)f_2645,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; C_word t22; C_word t23; 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=C_i_check_exact_2(t2,lf[55]); t21=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2709,a[2]=t7,a[3]=t2,a[4]=t1,a[5]=t12,a[6]=t17,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); t22=C_fixnum_shift_left(t2,C_fix(3)); /* srfi-4.scm:381: alloc */ f_1917(t21,lf[55],t22,t12);} /* k3005 in list->f64vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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)li50),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));} /* list->f64vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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[18]); 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:424: make-f64vector */ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k2303 in make-s16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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; 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_2305,2,av);} a=C_alloc(9); t2=C_a_i_record2(&a,2,lf[10],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2273,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:326: set-finalizer! */ t5=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2273(2,av2);}}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2273(2,av2);}}} /* k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in k3502 in k3498 in k3494 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3556,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[111]+1 /* (set! blob->f64vector/shared ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3560,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:562: unpack-copy */ f_3428(t3,lf[4],C_SCHEME_TRUE,lf[112]);} /* k1833 in f32vector-set! in k1490 */ static void C_ccall f_1835(C_word c,C_word *av){ C_word tmp; C_word t0=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_1835,2,av);} a=C_alloc(4); if(C_truep(C_blockp(((C_word*)t0)[2]))){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_u_i_f32vector_set(((C_word*)t0)[4],((C_word*)t0)[5],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_a_i_fix_to_flo(&a,1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_u_i_f32vector_set(((C_word*)t0)[4],((C_word*)t0)[5],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in k3502 in k3498 in k3494 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3552,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[110]+1 /* (set! blob->f32vector/shared ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3556,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:560: unpack */ f_3398(t3,lf[18],C_fix(8),lf[111]);} /* u32vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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=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_3204,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[12],lf[69]); 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_3213,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li68),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3213(t8,t1,C_fix(0));} /* k3136 in loop in s8vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_3138(C_word c,C_word *av){ C_word tmp; 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_3138,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in k3502 in k3498 in k3494 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in ... */ static void C_ccall f_3548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3548,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[109]+1 /* (set! blob->s32vector/shared ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3552,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:559: unpack */ f_3398(t3,lf[16],C_fix(4),lf[110]);} /* k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in k3502 in k3498 in k3494 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3544,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[108]+1 /* (set! blob->u32vector/shared ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3548,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:558: unpack */ f_3398(t3,lf[14],C_fix(4),lf[109]);} /* k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in k3502 in k3498 in k3494 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3540,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[107]+1 /* (set! blob->s16vector/shared ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3544,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:557: unpack */ f_3398(t3,lf[12],C_fix(4),lf[108]);} /* k3017 in doloop723 in k3005 in list->f64vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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);} /* k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in k3502 in k3498 in k3494 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_3536(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3536,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[106]+1 /* (set! blob->u16vector/shared ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3540,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:556: unpack */ f_3398(t3,lf[10],C_fix(2),lf[107]);} /* doloop723 in k3005 in list->f64vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ 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)); /* srfi-4.scm:424: f64vector-set! */ t7=*((C_word*)lf[33]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=t3; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ /* srfi-4.scm:424: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[57]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* loop in s8vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_fcall f_3123(C_word t0,C_word t1,C_word 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_3123,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_3138,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_fixnum_plus(t2,C_fix(1)); /* srfi-4.scm:475: loop */ t7=t4; t8=t5; t1=t7; t2=t8; goto loop;}} /* k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in k3502 in k3498 in k3494 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_3532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3532,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[105]+1 /* (set! blob->s8vector/shared ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3536,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:555: unpack */ f_3398(t3,lf[8],C_fix(2),lf[106]);} /* u16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_3048(C_word c,C_word *av){ C_word tmp; 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_3048,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:436: list->u16vector */ t3=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* s8vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_3114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3114,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[6],lf[66]); 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_3123,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li62),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3123(t8,t1,C_fix(0));} /* k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in k3502 in k3498 in k3494 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_3528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3528,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[104]+1 /* (set! blob->u8vector/shared ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3532,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:554: unpack */ f_3398(t3,lf[6],C_SCHEME_TRUE,lf[105]);} /* k3522 in k3518 in k3514 in k3510 in k3506 in k3502 in k3498 in k3494 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_3524(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3524,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[103]+1 /* (set! f64vector->blob ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3528,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:553: unpack */ f_3398(t3,lf[4],C_SCHEME_TRUE,lf[104]);} /* s8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_3042,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:433: list->s8vector */ t3=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3518 in k3514 in k3510 in k3506 in k3502 in k3498 in k3494 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3520,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[102]+1 /* (set! f32vector->blob ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3524,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:551: pack-copy */ f_3380(t3,lf[18],lf[103]);} /* u8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_3036,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:430: list->u8vector */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3514 in k3510 in k3506 in k3502 in k3498 in k3494 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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; 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_3516,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[101]+1 /* (set! s32vector->blob ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3520,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:550: pack-copy */ f_3380(t3,lf[16],lf[102]);} /* k3510 in k3506 in k3502 in k3498 in k3494 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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; 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_3512,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[100]+1 /* (set! u32vector->blob ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3516,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:549: pack-copy */ f_3380(t3,lf[14],lf[101]);} /* k3502 in k3498 in k3494 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3504,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[98]+1 /* (set! u16vector->blob ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3508,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:547: pack-copy */ f_3380(t3,lf[10],lf[99]);} /* k3506 in k3502 in k3498 in k3494 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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; 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_3508,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[99]+1 /* (set! s16vector->blob ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3512,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:548: pack-copy */ f_3380(t3,lf[12],lf[100]);} /* k3498 in k3494 in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_3500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3500,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[97]+1 /* (set! s8vector->blob ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3504,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:546: pack-copy */ f_3380(t3,lf[8],lf[98]);} /* k2501 in make-s32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2503,2,av);} a=C_alloc(9); t2=C_a_i_record2(&a,2,lf[14],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2471,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:352: set-finalizer! */ t5=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2471(2,av2);}}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2471(2,av2);}}} /* u16vector->list in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 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_3144,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[8],lf[67]); 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_3153,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li64),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3153(t8,t1,C_fix(0));} /* list->f32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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[16]); 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:423: make-f32vector */ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k2825 in list->u16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 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_2827,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_2832,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li40),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_2832(t6,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));} /* list->u16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static void C_ccall f_2820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2820,3,av);} a=C_alloc(4); t3=C_i_check_list_2(t2,lf[8]); t4=C_i_length(t2); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2827,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:419: make-u16vector */ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* make-s16vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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=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_2245,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; 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=C_i_check_exact_2(t2,lf[51]); t20=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2305,a[2]=t6,a[3]=t2,a[4]=t1,a[5]=t11,a[6]=t16,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); t21=C_fixnum_shift_left(t2,C_fix(1)); /* srfi-4.scm:325: alloc */ f_1917(t20,lf[51],t21,t11);} /* k2945 in doloop697 in k2933 in list->s32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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);} /* subnvector in k3586 in k3582 in k3578 in k3574 in k3570 in k3566 in k3562 in k3558 in k3554 in k3550 in k3546 in k3542 in k3538 in k3534 in k3530 in k3526 in k3522 in k3518 in k3514 in k3510 in k3506 in ... */ static void C_fcall f_3719(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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,6)))){ C_save_and_reclaim_args((void *)trf_3719,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(10); 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_3753,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=t5; t16=t7; t17=C_i_check_exact_2(t15,t16); t18=C_fixnum_less_or_equal_p(C_fix(0),t15); t19=(C_truep(t18)?C_fixnum_lessp(t15,t14):C_SCHEME_FALSE); if(C_truep(t19)){ t20=C_SCHEME_UNDEFINED; t21=t13;{ C_word av2[2]; av2[0]=t21; av2[1]=t20; f_3753(2,av2);}} else{ t20=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:57: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word av2[7]; av2[0]=*((C_word*)lf[20]+1); av2[1]=t13; av2[2]=t20; av2[3]=t16; av2[4]=t15; av2[5]=C_fix(0); av2[6]=t14; tp(7,av2);}}} /* doloop697 in k2933 in list->s32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ 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)); /* srfi-4.scm:422: s32vector-set! */ t7=*((C_word*)lf[30]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=t3; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ /* srfi-4.scm:422: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[57]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* doloop401 in k1985 in k1976 in k2008 in make-u8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ static C_word C_fcall f_1992(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;}} /* k2801 in doloop645 in k2789 in list->s8vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2803,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_2796(t4,((C_word*)t0)[5],t2,t3);} /* make-f32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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 *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,4)))){ C_save_and_reclaim((void*)f_2542,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; C_word t22; C_word t23; 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=C_i_check_exact_2(t2,lf[54]); t21=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2606,a[2]=t7,a[3]=t2,a[4]=t1,a[5]=t12,a[6]=t17,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); t22=C_fixnum_shift_left(t2,C_fix(2)); /* srfi-4.scm:364: alloc */ f_1917(t21,lf[54],t22,t12);} /* k2933 in list->s32vector in k1906 in k1902 in k1898 in k1894 in k1890 in k1886 in k1882 in k1878 in k1490 */ 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)li46),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));} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[245] = { {"f_3108:srfi_2d4_2escm",(void*)f_3108}, {"f_3496:srfi_2d4_2escm",(void*)f_3496}, {"f_1950:srfi_2d4_2escm",(void*)f_1950}, {"f_2010:srfi_2d4_2escm",(void*)f_2010}, {"f_1987:srfi_2d4_2escm",(void*)f_1987}, {"f5034:srfi_2d4_2escm",(void*)f5034}, {"f_1917:srfi_2d4_2escm",(void*)f_1917}, {"f_1915:srfi_2d4_2escm",(void*)f_1915}, {"f_2048:srfi_2d4_2escm",(void*)f_2048}, {"f_1978:srfi_2d4_2escm",(void*)f_1978}, {"f5041:srfi_2d4_2escm",(void*)f5041}, {"f_3398:srfi_2d4_2escm",(void*)f_3398}, {"f_3392:srfi_2d4_2escm",(void*)f_3392}, {"f_3380:srfi_2d4_2escm",(void*)f_3380}, {"f_3382:srfi_2d4_2escm",(void*)f_3382}, {"f_2471:srfi_2d4_2escm",(void*)f_2471}, {"f_1908:srfi_2d4_2escm",(void*)f_1908}, {"f_1900:srfi_2d4_2escm",(void*)f_1900}, {"f_1904:srfi_2d4_2escm",(void*)f_1904}, {"f_3291:srfi_2d4_2escm",(void*)f_3291}, {"f_3362:srfi_2d4_2escm",(void*)f_3362}, {"f_4149:srfi_2d4_2escm",(void*)f_4149}, {"f_4147:srfi_2d4_2escm",(void*)f_4147}, {"f_2206:srfi_2d4_2escm",(void*)f_2206}, {"f_4179:srfi_2d4_2escm",(void*)f_4179}, {"f_4177:srfi_2d4_2escm",(void*)f_4177}, {"f_3262:srfi_2d4_2escm",(void*)f_3262}, {"f_3256:srfi_2d4_2escm",(void*)f_3256}, {"f_2709:srfi_2d4_2escm",(void*)f_2709}, {"f_3084:srfi_2d4_2escm",(void*)f_3084}, {"f_4117:srfi_2d4_2escm",(void*)f_4117}, {"f_3285:srfi_2d4_2escm",(void*)f_3285}, {"f_2146:srfi_2d4_2escm",(void*)f_2146}, {"f_3078:srfi_2d4_2escm",(void*)f_3078}, {"f_3072:srfi_2d4_2escm",(void*)f_3072}, {"f_4101:srfi_2d4_2escm",(void*)f_4101}, {"f_2485:srfi_2d4_2escm",(void*)f_2485}, {"f_3271:srfi_2d4_2escm",(void*)f_3271}, {"f5013:srfi_2d4_2escm",(void*)f5013}, {"f_3093:srfi_2d4_2escm",(void*)f_3093}, {"f_3668:srfi_2d4_2escm",(void*)f_3668}, {"f5020:srfi_2d4_2escm",(void*)f5020}, {"f_3665:srfi_2d4_2escm",(void*)f_3665}, {"f5027:srfi_2d4_2escm",(void*)f5027}, {"f_3198:srfi_2d4_2escm",(void*)f_3198}, {"f_3840:srfi_2d4_2escm",(void*)f_3840}, {"f_3846:srfi_2d4_2escm",(void*)f_3846}, {"f5006:srfi_2d4_2escm",(void*)f5006}, {"f_3834:srfi_2d4_2escm",(void*)f_3834}, {"f_2892:srfi_2d4_2escm",(void*)f_2892}, {"f_2899:srfi_2d4_2escm",(void*)f_2899}, {"f_3174:srfi_2d4_2escm",(void*)f_3174}, {"f_3852:srfi_2d4_2escm",(void*)f_3852}, {"f_3168:srfi_2d4_2escm",(void*)f_3168}, {"f_2875:srfi_2d4_2escm",(void*)f_2875}, {"f_3153:srfi_2d4_2escm",(void*)f_3153}, {"f_2372:srfi_2d4_2escm",(void*)f_2372}, {"f_3678:srfi_2d4_2escm",(void*)f_3678}, {"f_2856:srfi_2d4_2escm",(void*)f_2856}, {"f_2928:srfi_2d4_2escm",(void*)f_2928}, {"f_2911:srfi_2d4_2escm",(void*)f_2911}, {"f_2108:srfi_2d4_2escm",(void*)f_2108}, {"f_3777:srfi_2d4_2escm",(void*)f_3777}, {"f_1942:srfi_2d4_2escm",(void*)f_1942}, {"f_2904:srfi_2d4_2escm",(void*)f_2904}, {"f_1935:srfi_2d4_2escm",(void*)f_1935}, {"f_1933:srfi_2d4_2escm",(void*)f_1933}, {"f_4061:srfi_2d4_2escm",(void*)f_4061}, {"f_3183:srfi_2d4_2escm",(void*)f_3183}, {"f_3066:srfi_2d4_2escm",(void*)f_3066}, {"f_3060:srfi_2d4_2escm",(void*)f_3060}, {"f_3753:srfi_2d4_2escm",(void*)f_3753}, {"f_3054:srfi_2d4_2escm",(void*)f_3054}, {"f_3783:srfi_2d4_2escm",(void*)f_3783}, {"f_1494:srfi_2d4_2escm",(void*)f_1494}, {"f_1492:srfi_2d4_2escm",(void*)f_1492}, {"f_2386:srfi_2d4_2escm",(void*)f_2386}, {"f_4387:srfi_2d4_2escm",(void*)f_4387}, {"f_3927:srfi_2d4_2escm",(void*)f_3927}, {"f_4021:srfi_2d4_2escm",(void*)f_4021}, {"f_1772:srfi_2d4_2escm",(void*)f_1772}, {"f_3917:srfi_2d4_2escm",(void*)f_3917}, {"f_3901:srfi_2d4_2escm",(void*)f_3901}, {"f_3904:srfi_2d4_2escm",(void*)f_3904}, {"f_1796:srfi_2d4_2escm",(void*)f_1796}, {"f_2791:srfi_2d4_2escm",(void*)f_2791}, {"f_2796:srfi_2d4_2escm",(void*)f_2796}, {"f_3593:srfi_2d4_2escm",(void*)f_3593}, {"f_2784:srfi_2d4_2escm",(void*)f_2784}, {"f_1707:srfi_2d4_2escm",(void*)f_1707}, {"f_3588:srfi_2d4_2escm",(void*)f_3588}, {"f_3580:srfi_2d4_2escm",(void*)f_3580}, {"f_3584:srfi_2d4_2escm",(void*)f_3584}, {"f_1705:srfi_2d4_2escm",(void*)f_1705}, {"f_3576:srfi_2d4_2escm",(void*)f_3576}, {"f_1717:srfi_2d4_2escm",(void*)f_1717}, {"f_1714:srfi_2d4_2escm",(void*)f_1714}, {"f_3572:srfi_2d4_2escm",(void*)f_3572}, {"f_2690:srfi_2d4_2escm",(void*)f_2690}, {"f_2760:srfi_2d4_2escm",(void*)f_2760}, {"f_3568:srfi_2d4_2escm",(void*)f_3568}, {"f_3560:srfi_2d4_2escm",(void*)f_3560}, {"f_3564:srfi_2d4_2escm",(void*)f_3564}, {"f_2685:srfi_2d4_2escm",(void*)f_2685}, {"f_2755:srfi_2d4_2escm",(void*)f_2755}, {"f_2767:srfi_2d4_2escm",(void*)f_2767}, {"f_1674:srfi_2d4_2escm",(void*)f_1674}, {"f_4329:srfi_2d4_2escm",(void*)f_4329}, {"f_4327:srfi_2d4_2escm",(void*)f_4327}, {"f_2673:srfi_2d4_2escm",(void*)f_2673}, {"f_3356:srfi_2d4_2escm",(void*)f_3356}, {"f_1666:srfi_2d4_2escm",(void*)f_1666}, {"f_3350:srfi_2d4_2escm",(void*)f_3350}, {"f_2832:srfi_2d4_2escm",(void*)f_2832}, {"f_2839:srfi_2d4_2escm",(void*)f_2839}, {"f_3344:srfi_2d4_2escm",(void*)f_3344}, {"f_2863:srfi_2d4_2escm",(void*)f_2863}, {"f_2090:srfi_2d4_2escm",(void*)f_2090}, {"f_3338:srfi_2d4_2escm",(void*)f_3338}, {"f_2868:srfi_2d4_2escm",(void*)f_2868}, {"f_3332:srfi_2d4_2escm",(void*)f_3332}, {"f_1884:srfi_2d4_2escm",(void*)f_1884}, {"f_1888:srfi_2d4_2escm",(void*)f_1888}, {"f_1880:srfi_2d4_2escm",(void*)f_1880}, {"f_4359:srfi_2d4_2escm",(void*)f_4359}, {"f_3326:srfi_2d4_2escm",(void*)f_3326}, {"f_4357:srfi_2d4_2escm",(void*)f_4357}, {"f_3320:srfi_2d4_2escm",(void*)f_3320}, {"toplevel:srfi_2d4_2escm",(void*)C_srfi_2d4_toplevel}, {"f_3804:srfi_2d4_2escm",(void*)f_3804}, {"f_2076:srfi_2d4_2escm",(void*)f_2076}, {"f_3314:srfi_2d4_2escm",(void*)f_3314}, {"f_4299:srfi_2d4_2escm",(void*)f_4299}, {"f_4297:srfi_2d4_2escm",(void*)f_4297}, {"f_3828:srfi_2d4_2escm",(void*)f_3828}, {"f_3300:srfi_2d4_2escm",(void*)f_3300}, {"f_1896:srfi_2d4_2escm",(void*)f_1896}, {"f_3822:srfi_2d4_2escm",(void*)f_3822}, {"f_1892:srfi_2d4_2escm",(void*)f_1892}, {"f_3816:srfi_2d4_2escm",(void*)f_3816}, {"f_3810:srfi_2d4_2escm",(void*)f_3810}, {"f_1521:srfi_2d4_2escm",(void*)f_1521}, {"f_2085:srfi_2d4_2escm",(void*)f_2085}, {"f_1527:srfi_2d4_2escm",(void*)f_1527}, {"f_1841:srfi_2d4_2escm",(void*)f_1841}, {"f_1804:srfi_2d4_2escm",(void*)f_1804}, {"f_1539:srfi_2d4_2escm",(void*)f_1539}, {"f_1533:srfi_2d4_2escm",(void*)f_1533}, {"f_1872:srfi_2d4_2escm",(void*)f_1872}, {"f_2287:srfi_2d4_2escm",(void*)f_2287}, {"f_2282:srfi_2d4_2escm",(void*)f_2282}, {"f_3621:srfi_2d4_2escm",(void*)f_3621}, {"f_1545:srfi_2d4_2escm",(void*)f_1545}, {"f_2582:srfi_2d4_2escm",(void*)f_2582}, {"f_2273:srfi_2d4_2escm",(void*)f_2273}, {"f_2983:srfi_2d4_2escm",(void*)f_2983}, {"f_2587:srfi_2d4_2escm",(void*)f_2587}, {"f_1551:srfi_2d4_2escm",(void*)f_1551}, {"f_1557:srfi_2d4_2escm",(void*)f_1557}, {"f_2443:srfi_2d4_2escm",(void*)f_2443}, {"f_2971:srfi_2d4_2escm",(void*)f_2971}, {"f_2976:srfi_2d4_2escm",(void*)f_2976}, {"f4992:srfi_2d4_2escm",(void*)f4992}, {"f4999:srfi_2d4_2escm",(void*)f4999}, {"f_3653:srfi_2d4_2escm",(void*)f_3653}, {"f_1509:srfi_2d4_2escm",(void*)f_1509}, {"f_1741:srfi_2d4_2escm",(void*)f_1741}, {"f_1515:srfi_2d4_2escm",(void*)f_1515}, {"f_2404:srfi_2d4_2escm",(void*)f_2404}, {"f_4237:srfi_2d4_2escm",(void*)f_4237}, {"f_4239:srfi_2d4_2escm",(void*)f_4239}, {"f_1769:srfi_2d4_2escm",(void*)f_1769}, {"f_3602:srfi_2d4_2escm",(void*)f_3602}, {"f_3400:srfi_2d4_2escm",(void*)f_3400}, {"f_1762:srfi_2d4_2escm",(void*)f_1762}, {"f_4269:srfi_2d4_2escm",(void*)f_4269}, {"f_3632:srfi_2d4_2escm",(void*)f_3632}, {"f_2748:srfi_2d4_2escm",(void*)f_2748}, {"f_4267:srfi_2d4_2escm",(void*)f_4267}, {"f_3416:srfi_2d4_2escm",(void*)f_3416}, {"f_4209:srfi_2d4_2escm",(void*)f_4209}, {"f_4207:srfi_2d4_2escm",(void*)f_4207}, {"f_3449:srfi_2d4_2escm",(void*)f_3449}, {"f_3440:srfi_2d4_2escm",(void*)f_3440}, {"f_3430:srfi_2d4_2escm",(void*)f_3430}, {"f_2606:srfi_2d4_2escm",(void*)f_2606}, {"f_3213:srfi_2d4_2escm",(void*)f_3213}, {"f_3227:srfi_2d4_2escm",(void*)f_3227}, {"f_3242:srfi_2d4_2escm",(void*)f_3242}, {"f_1632:srfi_2d4_2escm",(void*)f_1632}, {"f_1630:srfi_2d4_2escm",(void*)f_1630}, {"f_2570:srfi_2d4_2escm",(void*)f_2570}, {"f_2188:srfi_2d4_2escm",(void*)f_2188}, {"f_2183:srfi_2d4_2escm",(void*)f_2183}, {"f_2344:srfi_2d4_2escm",(void*)f_2344}, {"f_3233:srfi_2d4_2escm",(void*)f_3233}, {"f_1642:srfi_2d4_2escm",(void*)f_1642}, {"f_2174:srfi_2d4_2escm",(void*)f_2174}, {"f_1567:srfi_2d4_2escm",(void*)f_1567}, {"f_3428:srfi_2d4_2escm",(void*)f_3428}, {"f_1591:srfi_2d4_2escm",(void*)f_1591}, {"f_1599:srfi_2d4_2escm",(void*)f_1599}, {"f_2645:srfi_2d4_2escm",(void*)f_2645}, {"f_3007:srfi_2d4_2escm",(void*)f_3007}, {"f_3000:srfi_2d4_2escm",(void*)f_3000}, {"f_2305:srfi_2d4_2escm",(void*)f_2305}, {"f_3556:srfi_2d4_2escm",(void*)f_3556}, {"f_1835:srfi_2d4_2escm",(void*)f_1835}, {"f_3552:srfi_2d4_2escm",(void*)f_3552}, {"f_3204:srfi_2d4_2escm",(void*)f_3204}, {"f_3138:srfi_2d4_2escm",(void*)f_3138}, {"f_3548:srfi_2d4_2escm",(void*)f_3548}, {"f_3544:srfi_2d4_2escm",(void*)f_3544}, {"f_3540:srfi_2d4_2escm",(void*)f_3540}, {"f_3019:srfi_2d4_2escm",(void*)f_3019}, {"f_3536:srfi_2d4_2escm",(void*)f_3536}, {"f_3012:srfi_2d4_2escm",(void*)f_3012}, {"f_3123:srfi_2d4_2escm",(void*)f_3123}, {"f_3532:srfi_2d4_2escm",(void*)f_3532}, {"f_3048:srfi_2d4_2escm",(void*)f_3048}, {"f_3114:srfi_2d4_2escm",(void*)f_3114}, {"f_3528:srfi_2d4_2escm",(void*)f_3528}, {"f_3524:srfi_2d4_2escm",(void*)f_3524}, {"f_3042:srfi_2d4_2escm",(void*)f_3042}, {"f_3520:srfi_2d4_2escm",(void*)f_3520}, {"f_3036:srfi_2d4_2escm",(void*)f_3036}, {"f_3516:srfi_2d4_2escm",(void*)f_3516}, {"f_3512:srfi_2d4_2escm",(void*)f_3512}, {"f_3504:srfi_2d4_2escm",(void*)f_3504}, {"f_3508:srfi_2d4_2escm",(void*)f_3508}, {"f_3500:srfi_2d4_2escm",(void*)f_3500}, {"f_2503:srfi_2d4_2escm",(void*)f_2503}, {"f_3144:srfi_2d4_2escm",(void*)f_3144}, {"f_2964:srfi_2d4_2escm",(void*)f_2964}, {"f_2827:srfi_2d4_2escm",(void*)f_2827}, {"f_2820:srfi_2d4_2escm",(void*)f_2820}, {"f_2245:srfi_2d4_2escm",(void*)f_2245}, {"f_2947:srfi_2d4_2escm",(void*)f_2947}, {"f_3719:srfi_2d4_2escm",(void*)f_3719}, {"f_2940:srfi_2d4_2escm",(void*)f_2940}, {"f_1992:srfi_2d4_2escm",(void*)f_1992}, {"f_2803:srfi_2d4_2escm",(void*)f_2803}, {"f_2542:srfi_2d4_2escm",(void*)f_2542}, {"f_2935:srfi_2d4_2escm",(void*)f_2935}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|eliminated procedure checks: 105 o|specializations: o| 1 (##sys#check-input-port * * *) o| 1 (##sys#check-output-port * * *) o| 1 (assq * (list-of pair)) o| 1 (memq * list) (o e)|safe calls: 418 (o e)|assignments to immediate values: 1 o|safe globals: (f64vector-set! f32vector-set! s32vector-set! u32vector-set! s16vector-set! u16vector-set! s8vector-set! u8vector-set! f64vector-length f32vector-length s32vector-length u32vector-length s16vector-length u16vector-length s8vector-length u8vector-length ##sys#check-exact-interval) o|Removed `not' forms: 9 o|inlining procedure: k1499 o|inlining procedure: k1499 o|contracted procedure: "(srfi-4.scm:105) g101102" o|inlining procedure: k1573 o|inlining procedure: k1573 o|contracted procedure: "(srfi-4.scm:112) g119120" o|inlining procedure: k1612 o|inlining procedure: k1612 o|contracted procedure: "(srfi-4.scm:121) g136137" o|inlining procedure: k1648 o|inlining procedure: k1648 o|contracted procedure: "(srfi-4.scm:128) g154155" o|inlining procedure: k1687 o|inlining procedure: k1687 o|contracted procedure: "(srfi-4.scm:139) g175176" o|inlining procedure: k1723 o|inlining procedure: k1723 o|contracted procedure: k1751 o|inlining procedure: k1748 o|inlining procedure: k1748 o|contracted procedure: "(srfi-4.scm:148) g193194" o|inlining procedure: k1778 o|inlining procedure: k1778 o|inlining procedure: k1837 o|inlining procedure: k1837 o|contracted procedure: "(srfi-4.scm:155) g211212" o|inlining procedure: k1817 o|inlining procedure: k1817 o|inlining procedure: k1874 o|inlining procedure: k1874 o|contracted procedure: "(srfi-4.scm:167) g228229" o|inlining procedure: k1854 o|inlining procedure: k1854 o|inlining procedure: k1919 o|contracted procedure: "(srfi-4.scm:270) ext-alloc360" o|inlining procedure: k1919 o|inlining procedure: k1937 o|inlining procedure: "(srfi-4.scm:280) ext-free365" o|inlining procedure: k1937 o|contracted procedure: k1982 o|inlining procedure: k1979 o|inlining procedure: k1994 o|inlining procedure: k1994 o|inlining procedure: k1979 o|contracted procedure: k2080 o|inlining procedure: k2077 o|inlining procedure: k2092 o|inlining procedure: k2092 o|inlining procedure: k2077 o|contracted procedure: k2178 o|inlining procedure: k2175 o|inlining procedure: k2190 o|inlining procedure: k2190 o|inlining procedure: k2175 o|contracted procedure: k2277 o|inlining procedure: k2274 o|inlining procedure: k2289 o|inlining procedure: k2289 o|inlining procedure: k2274 o|contracted procedure: k2376 o|inlining procedure: k2373 o|inlining procedure: k2388 o|inlining procedure: k2388 o|inlining procedure: k2373 o|contracted procedure: k2475 o|inlining procedure: k2472 o|inlining procedure: k2487 o|inlining procedure: k2487 o|inlining procedure: k2472 o|contracted procedure: k2574 o|inlining procedure: k2571 o|inlining procedure: k2589 o|inlining procedure: k2589 o|inlining procedure: k2571 o|contracted procedure: k2677 o|inlining procedure: k2674 o|inlining procedure: k2692 o|inlining procedure: k2692 o|inlining procedure: k2674 o|inlining procedure: k2762 o|inlining procedure: k2762 o|inlining procedure: k2798 o|inlining procedure: k2798 o|inlining procedure: k2834 o|inlining procedure: k2834 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: k3095 o|inlining procedure: k3095 o|inlining procedure: k3125 o|inlining procedure: k3125 o|inlining procedure: k3155 o|inlining procedure: k3155 o|inlining procedure: k3185 o|inlining procedure: k3185 o|inlining procedure: k3215 o|inlining procedure: k3215 o|inlining procedure: k3244 o|inlining procedure: k3244 o|inlining procedure: k3273 o|inlining procedure: k3273 o|inlining procedure: k3302 o|inlining procedure: k3302 o|inlining procedure: k3408 o|inlining procedure: k3408 o|inlining procedure: k3441 o|inlining procedure: k3441 o|substituted constant variable: a3599 o|inlining procedure: k3595 o|inlining procedure: k3618 o|inlining procedure: k3618 o|inlining procedure: k3595 o|inlining procedure: k3660 o|inlining procedure: k3660 o|contracted procedure: "(srfi-4.scm:626) g957958" o|inlining procedure: k3759 o|inlining procedure: k3759 o|contracted procedure: "(srfi-4.scm:625) g948949" o|inlining procedure: k3735 o|inlining procedure: k3735 o|substituted constant variable: a3876 o|substituted constant variable: a3877 o|inlining procedure: k3912 o|inlining procedure: k3912 o|inlining procedure: k3929 o|inlining procedure: k3929 o|inlining procedure: k3938 o|inlining procedure: k3938 o|contracted procedure: "(srfi-4.scm:648) g10381039" o|inlining procedure: k3953 o|inlining procedure: k3953 o|contracted procedure: "(srfi-4.scm:647) g10261027" o|inlining procedure: k3883 o|inlining procedure: k3883 o|inlining procedure: k3981 o|inlining procedure: k3981 o|substituted constant variable: a4036 o|substituted constant variable: a4037 o|contracted procedure: "(srfi-4.scm:250) g349350" o|inlining procedure: k4159 o|inlining procedure: k4159 o|contracted procedure: "(srfi-4.scm:240) g334335" o|inlining procedure: k4189 o|inlining procedure: k4189 o|contracted procedure: "(srfi-4.scm:230) g319320" o|inlining procedure: k4219 o|inlining procedure: k4219 o|contracted procedure: "(srfi-4.scm:220) g304305" o|inlining procedure: k4249 o|inlining procedure: k4249 o|contracted procedure: "(srfi-4.scm:210) g289290" o|inlining procedure: k4279 o|inlining procedure: k4279 o|contracted procedure: "(srfi-4.scm:200) g274275" o|inlining procedure: k4309 o|inlining procedure: k4309 o|contracted procedure: "(srfi-4.scm:190) g259260" o|inlining procedure: k4339 o|inlining procedure: k4339 o|contracted procedure: "(srfi-4.scm:180) g244245" o|inlining procedure: k4369 o|inlining procedure: k4369 o|simplifications: ((if . 1)) o|replaced variables: 311 o|removed binding forms: 323 o|substituted constant variable: loc106 o|substituted constant variable: from104 o|substituted constant variable: from104 o|substituted constant variable: loc106 o|substituted constant variable: loc124 o|substituted constant variable: from122 o|substituted constant variable: from122 o|substituted constant variable: loc124 o|substituted constant variable: loc141 o|substituted constant variable: from139 o|substituted constant variable: from139 o|substituted constant variable: loc141 o|substituted constant variable: loc159 o|substituted constant variable: from157 o|substituted constant variable: from157 o|substituted constant variable: loc159 o|substituted constant variable: loc180 o|substituted constant variable: from178 o|substituted constant variable: from178 o|substituted constant variable: loc180 o|substituted constant variable: loc198 o|substituted constant variable: from196 o|substituted constant variable: from196 o|substituted constant variable: loc198 o|substituted constant variable: loc216 o|substituted constant variable: from214 o|substituted constant variable: from214 o|substituted constant variable: loc216 o|substituted constant variable: loc233 o|substituted constant variable: from231 o|substituted constant variable: from231 o|substituted constant variable: loc233 o|substituted constant variable: r30964470 o|substituted constant variable: r31264472 o|substituted constant variable: r31564474 o|substituted constant variable: r31864476 o|substituted constant variable: r32164478 o|substituted constant variable: r32454480 o|substituted constant variable: r32744482 o|substituted constant variable: r33034484 o|substituted constant variable: from960 o|substituted constant variable: from960 o|substituted constant variable: from951 o|substituted constant variable: from951 o|substituted constant variable: loc1043 o|substituted constant variable: loc1043 o|substituted constant variable: loc1031 o|substituted constant variable: from1029 o|substituted constant variable: from1029 o|substituted constant variable: loc1031 o|substituted constant variable: loc354 o|substituted constant variable: from352 o|substituted constant variable: from352 o|substituted constant variable: loc354 o|substituted constant variable: loc339 o|substituted constant variable: from337 o|substituted constant variable: from337 o|substituted constant variable: loc339 o|substituted constant variable: loc324 o|substituted constant variable: from322 o|substituted constant variable: from322 o|substituted constant variable: loc324 o|substituted constant variable: loc309 o|substituted constant variable: from307 o|substituted constant variable: from307 o|substituted constant variable: loc309 o|substituted constant variable: loc294 o|substituted constant variable: from292 o|substituted constant variable: from292 o|substituted constant variable: loc294 o|substituted constant variable: loc279 o|substituted constant variable: from277 o|substituted constant variable: from277 o|substituted constant variable: loc279 o|substituted constant variable: loc264 o|substituted constant variable: from262 o|substituted constant variable: from262 o|substituted constant variable: loc264 o|substituted constant variable: loc249 o|substituted constant variable: from247 o|substituted constant variable: from247 o|substituted constant variable: loc249 o|replaced variables: 48 o|removed binding forms: 363 o|inlining procedure: k2001 o|inlining procedure: k2001 o|inlining procedure: k2099 o|inlining procedure: k2099 o|inlining procedure: k2197 o|inlining procedure: k2197 o|inlining procedure: k2296 o|inlining procedure: k2296 o|inlining procedure: k2395 o|inlining procedure: k2395 o|inlining procedure: k2494 o|inlining procedure: k2494 o|inlining procedure: k2597 o|inlining procedure: k2597 o|inlining procedure: k2700 o|inlining procedure: k2700 o|inlining procedure: k4053 o|inlining procedure: k4053 o|replaced variables: 1 o|removed binding forms: 88 o|substituted constant variable: r20024634 o|substituted constant variable: r21004638 o|substituted constant variable: r21984642 o|substituted constant variable: r22974646 o|substituted constant variable: r23964650 o|substituted constant variable: r24954654 o|substituted constant variable: r25984658 o|substituted constant variable: r27014662 o|replaced variables: 8 o|removed binding forms: 12 o|removed conditional forms: 8 o|removed binding forms: 16 o|simplifications: ((##core#call . 351) (if . 95)) o| call simplifications: o| list o| not o| fx= 2 o| fx- 2 o| fx* 2 o| ##sys#list 9 o| cadr o| caddr o| symbol? o| memq o| ##sys#check-byte-vector 2 o| eq? 6 o| ##sys#size 5 o| ##sys#slot 10 o| ##sys#structure? 8 o| fx>= 8 o| fx+ 14 o| cons 8 o| ##sys#check-list 8 o| car 31 o| null? 62 o| cdr 31 o| ##sys#make-structure 12 o| ##sys#foreign-fixnum-argument o| ##sys#check-number 4 o| ##sys#fits-in-int? o| negative? o| ##sys#fits-in-unsigned-int? o| fx<= 21 o| fx< 22 o| ##sys#check-structure 37 o| ##sys#check-exact 37 o|contracted procedure: k1496 o|contracted procedure: k1502 o|contracted procedure: k1511 o|contracted procedure: k1517 o|contracted procedure: k1523 o|contracted procedure: k1529 o|contracted procedure: k1535 o|contracted procedure: k1541 o|contracted procedure: k1547 o|contracted procedure: k1553 o|contracted procedure: k1559 o|contracted procedure: k1562 o|contracted procedure: k1570 o|contracted procedure: k1583 o|contracted procedure: k1576 o|contracted procedure: k1592 o|contracted procedure: k1601 o|contracted procedure: k1604 o|contracted procedure: k1609 o|contracted procedure: k1622 o|contracted procedure: k1615 o|contracted procedure: k1634 o|contracted procedure: k1637 o|contracted procedure: k1645 o|contracted procedure: k1658 o|contracted procedure: k1651 o|contracted procedure: k1667 o|contracted procedure: k1676 o|contracted procedure: k1679 o|contracted procedure: k1684 o|contracted procedure: k1697 o|contracted procedure: k1690 o|contracted procedure: k1709 o|contracted procedure: k1720 o|contracted procedure: k1733 o|contracted procedure: k1726 o|contracted procedure: k1742 o|contracted procedure: k1758 o|contracted procedure: k1764 o|contracted procedure: k1775 o|contracted procedure: k1788 o|contracted procedure: k1781 o|contracted procedure: k1797 o|contracted procedure: k1806 o|contracted procedure: k1809 o|contracted procedure: k1814 o|contracted procedure: k1827 o|contracted procedure: k1820 o|contracted procedure: k1843 o|contracted procedure: k1846 o|contracted procedure: k1851 o|contracted procedure: k1864 o|contracted procedure: k1857 o|contracted procedure: k1912 o|contracted procedure: k2041 o|contracted procedure: k1952 o|contracted procedure: k2035 o|contracted procedure: k1955 o|contracted procedure: k2029 o|contracted procedure: k1958 o|contracted procedure: k2023 o|contracted procedure: k1961 o|contracted procedure: k2017 o|contracted procedure: k1964 o|contracted procedure: k2011 o|contracted procedure: k1967 o|contracted procedure: k1970 o|contracted procedure: k1973 o|contracted procedure: k2139 o|contracted procedure: k2050 o|contracted procedure: k2133 o|contracted procedure: k2053 o|contracted procedure: k2127 o|contracted procedure: k2056 o|contracted procedure: k2121 o|contracted procedure: k2059 o|contracted procedure: k2115 o|contracted procedure: k2062 o|contracted procedure: k2109 o|contracted procedure: k2065 o|contracted procedure: k2068 o|contracted procedure: k2071 o|contracted procedure: k2238 o|contracted procedure: k2148 o|contracted procedure: k2232 o|contracted procedure: k2151 o|contracted procedure: k2226 o|contracted procedure: k2154 o|contracted procedure: k2220 o|contracted procedure: k2157 o|contracted procedure: k2214 o|contracted procedure: k2160 o|contracted procedure: k2208 o|contracted procedure: k2163 o|contracted procedure: k2166 o|contracted procedure: k2169 o|contracted procedure: k2337 o|contracted procedure: k2247 o|contracted procedure: k2331 o|contracted procedure: k2250 o|contracted procedure: k2325 o|contracted procedure: k2253 o|contracted procedure: k2319 o|contracted procedure: k2256 o|contracted procedure: k2313 o|contracted procedure: k2259 o|contracted procedure: k2307 o|contracted procedure: k2262 o|contracted procedure: k2265 o|contracted procedure: k2268 o|contracted procedure: k2436 o|contracted procedure: k2346 o|contracted procedure: k2430 o|contracted procedure: k2349 o|contracted procedure: k2424 o|contracted procedure: k2352 o|contracted procedure: k2418 o|contracted procedure: k2355 o|contracted procedure: k2412 o|contracted procedure: k2358 o|contracted procedure: k2406 o|contracted procedure: k2361 o|contracted procedure: k2364 o|contracted procedure: k2367 o|contracted procedure: k2379 o|contracted procedure: k2535 o|contracted procedure: k2445 o|contracted procedure: k2529 o|contracted procedure: k2448 o|contracted procedure: k2523 o|contracted procedure: k2451 o|contracted procedure: k2517 o|contracted procedure: k2454 o|contracted procedure: k2511 o|contracted procedure: k2457 o|contracted procedure: k2505 o|contracted procedure: k2460 o|contracted procedure: k2463 o|contracted procedure: k2466 o|contracted procedure: k2478 o|contracted procedure: k2638 o|contracted procedure: k2544 o|contracted procedure: k2632 o|contracted procedure: k2547 o|contracted procedure: k2626 o|contracted procedure: k2550 o|contracted procedure: k2620 o|contracted procedure: k2553 o|contracted procedure: k2614 o|contracted procedure: k2556 o|contracted procedure: k2608 o|contracted procedure: k2559 o|contracted procedure: k2562 o|contracted procedure: k2565 o|contracted procedure: k2577 o|contracted procedure: k2741 o|contracted procedure: k2647 o|contracted procedure: k2735 o|contracted procedure: k2650 o|contracted procedure: k2729 o|contracted procedure: k2653 o|contracted procedure: k2723 o|contracted procedure: k2656 o|contracted procedure: k2717 o|contracted procedure: k2659 o|contracted procedure: k2711 o|contracted procedure: k2662 o|contracted procedure: k2665 o|contracted procedure: k2668 o|contracted procedure: k2680 o|contracted procedure: k2750 o|contracted procedure: k2773 o|contracted procedure: k2786 o|contracted procedure: k2809 o|contracted procedure: k2822 o|contracted procedure: k2845 o|contracted procedure: k2858 o|contracted procedure: k2881 o|contracted procedure: k2894 o|contracted procedure: k2917 o|contracted procedure: k2930 o|contracted procedure: k2953 o|contracted procedure: k2966 o|contracted procedure: k2989 o|contracted procedure: k3002 o|contracted procedure: k3025 o|contracted procedure: k3086 o|contracted procedure: k3098 o|contracted procedure: k3110 o|contracted procedure: k3116 o|contracted procedure: k3128 o|contracted procedure: k3140 o|contracted procedure: k3146 o|contracted procedure: k3158 o|contracted procedure: k3170 o|contracted procedure: k3176 o|contracted procedure: k3188 o|contracted procedure: k3200 o|contracted procedure: k3206 o|contracted procedure: k3218 o|contracted procedure: k3229 o|contracted procedure: k3235 o|contracted procedure: k3247 o|contracted procedure: k3258 o|contracted procedure: k3264 o|contracted procedure: k3276 o|contracted procedure: k3287 o|contracted procedure: k3293 o|contracted procedure: k3305 o|contracted procedure: k3316 o|contracted procedure: k3373 o|contracted procedure: k3384 o|contracted procedure: k3387 o|contracted procedure: k3394 o|contracted procedure: k3402 o|contracted procedure: k3405 o|contracted procedure: k3411 o|contracted procedure: k3432 o|contracted procedure: k3435 o|contracted procedure: k3444 o|contracted procedure: k3590 o|contracted procedure: k3646 o|contracted procedure: k3603 o|contracted procedure: k3609 o|contracted procedure: k3612 o|contracted procedure: k3615 o|contracted procedure: k3634 o|contracted procedure: k3623 o|contracted procedure: k3687 o|contracted procedure: k3691 o|contracted procedure: k3695 o|contracted procedure: k3699 o|contracted procedure: k3703 o|contracted procedure: k3707 o|contracted procedure: k3711 o|contracted procedure: k3715 o|contracted procedure: k3657 o|contracted procedure: k3673 o|contracted procedure: k3680 o|contracted procedure: k3721 o|contracted procedure: k3724 o|contracted procedure: k3727 o|contracted procedure: k3792 o|contracted procedure: k3778 o|contracted procedure: k3784 o|contracted procedure: k3788 o|contracted procedure: k3796 o|contracted procedure: k3756 o|contracted procedure: k3769 o|contracted procedure: k3762 o|contracted procedure: k3800 o|contracted procedure: k3732 o|contracted procedure: k3745 o|contracted procedure: k3738 o|contracted procedure: k4014 o|contracted procedure: k3854 o|contracted procedure: k4008 o|contracted procedure: k3857 o|contracted procedure: k4002 o|contracted procedure: k3860 o|contracted procedure: k3996 o|contracted procedure: k3863 o|contracted procedure: k3990 o|contracted procedure: k3866 o|contracted procedure: k3984 o|contracted procedure: k3869 o|contracted procedure: k3872 o|contracted procedure: k3945 o|contracted procedure: k3905 o|inlining procedure: k3912 o|inlining procedure: k3912 o|contracted procedure: k3932 o|contracted procedure: k3935 o|contracted procedure: k3973 o|contracted procedure: k3950 o|contracted procedure: k3963 o|contracted procedure: k3956 o|contracted procedure: k3977 o|contracted procedure: k3880 o|contracted procedure: k3893 o|contracted procedure: k3886 o|contracted procedure: k4094 o|contracted procedure: k4023 o|contracted procedure: k4088 o|contracted procedure: k4026 o|contracted procedure: k4082 o|contracted procedure: k4029 o|contracted procedure: k4076 o|contracted procedure: k4032 o|contracted procedure: k4038 o|contracted procedure: k4041 o|contracted procedure: k4044 o|contracted procedure: k4047 o|contracted procedure: k4050 o|contracted procedure: k4063 o|contracted procedure: k4070 o|contracted procedure: k4139 o|contracted procedure: k4103 o|contracted procedure: k4133 o|contracted procedure: k4106 o|contracted procedure: k4127 o|contracted procedure: k4109 o|contracted procedure: k4121 o|contracted procedure: k4112 o|contracted procedure: k4151 o|contracted procedure: k4156 o|contracted procedure: k4169 o|contracted procedure: k4162 o|contracted procedure: k4181 o|contracted procedure: k4186 o|contracted procedure: k4199 o|contracted procedure: k4192 o|contracted procedure: k4211 o|contracted procedure: k4216 o|contracted procedure: k4229 o|contracted procedure: k4222 o|contracted procedure: k4241 o|contracted procedure: k4246 o|contracted procedure: k4259 o|contracted procedure: k4252 o|contracted procedure: k4271 o|contracted procedure: k4276 o|contracted procedure: k4289 o|contracted procedure: k4282 o|contracted procedure: k4301 o|contracted procedure: k4306 o|contracted procedure: k4319 o|contracted procedure: k4312 o|contracted procedure: k4331 o|contracted procedure: k4336 o|contracted procedure: k4349 o|contracted procedure: k4342 o|contracted procedure: k4361 o|contracted procedure: k4366 o|contracted procedure: k4379 o|contracted procedure: k4372 o|simplifications: ((let . 13)) o|removed binding forms: 334 o|inlining procedure: "(srfi-4.scm:542) pack" o|inlining procedure: "(srfi-4.scm:541) pack" o|inlining procedure: "(srfi-4.scm:540) pack" o|inlining procedure: "(srfi-4.scm:539) pack" o|inlining procedure: "(srfi-4.scm:538) pack" o|inlining procedure: "(srfi-4.scm:537) pack" o|inlining procedure: "(srfi-4.scm:536) pack" o|inlining procedure: "(srfi-4.scm:535) pack" o|replaced variables: 235 o|removed binding forms: 1 o|inlining procedure: k1589 o|inlining procedure: k1628 o|inlining procedure: k1664 o|inlining procedure: k1703 o|inlining procedure: k1739 o|inlining procedure: k1794 o|inlining procedure: k1922 o|removed side-effect free assignment to unused variable: pack o|substituted constant variable: tag8374988 o|substituted constant variable: loc8384989 o|substituted constant variable: tag8374995 o|substituted constant variable: loc8384996 o|substituted constant variable: tag8375002 o|substituted constant variable: loc8385003 o|substituted constant variable: tag8375009 o|substituted constant variable: loc8385010 o|substituted constant variable: tag8375016 o|substituted constant variable: loc8385017 o|substituted constant variable: tag8375023 o|substituted constant variable: loc8385024 o|substituted constant variable: tag8375030 o|substituted constant variable: loc8385031 o|substituted constant variable: tag8375037 o|substituted constant variable: loc8385038 o|inlining procedure: k4175 o|inlining procedure: k4205 o|inlining procedure: k4235 o|inlining procedure: k4265 o|inlining procedure: k4295 o|inlining procedure: k4325 o|inlining procedure: k4355 o|inlining procedure: k4385 o|simplifications: ((if . 1)) o|replaced variables: 8 o|removed binding forms: 89 o|removed binding forms: 40 o|contracted procedure: k3462 o|contracted procedure: k3466 o|contracted procedure: k3470 o|contracted procedure: k3474 o|contracted procedure: k3478 o|contracted procedure: k3482 o|contracted procedure: k3486 o|contracted procedure: k3490 o|removed binding forms: 22 o|direct leaf routine/allocation: doloop401402 0 o|direct leaf routine/allocation: doloop429430 0 o|direct leaf routine/allocation: doloop457458 0 o|direct leaf routine/allocation: doloop485486 0 o|direct leaf routine/allocation: doloop513514 0 o|direct leaf routine/allocation: doloop541542 0 o|direct leaf routine/allocation: doloop569570 0 o|direct leaf routine/allocation: doloop598599 0 o|converted assignments to bindings: (doloop401402) o|converted assignments to bindings: (doloop429430) o|converted assignments to bindings: (doloop457458) o|converted assignments to bindings: (doloop485486) o|converted assignments to bindings: (doloop513514) o|converted assignments to bindings: (doloop541542) o|converted assignments to bindings: (doloop569570) o|converted assignments to bindings: (doloop598599) o|simplifications: ((let . 8)) o|customizable procedures: (pack-copy unpack unpack-copy k4059 k3915 subnvector g918919 k3447 k3414 loop815 loop808 loop801 loop794 loop787 loop780 loop773 loop766 doloop723724 doloop710711 doloop697698 doloop684685 doloop671672 doloop658659 doloop645646 doloop632633 k2683 k2580 alloc370 ##sys#check-exact-interval) o|calls to known targets: 116 o|identified direct recursive calls: f_1992 1 o|identified direct recursive calls: f_2090 1 o|identified direct recursive calls: f_2188 1 o|identified direct recursive calls: f_2287 1 o|identified direct recursive calls: f_2386 1 o|identified direct recursive calls: f_2485 1 o|identified direct recursive calls: f_2587 1 o|identified direct recursive calls: f_2690 1 o|identified direct recursive calls: f_3093 1 o|identified direct recursive calls: f_3123 1 o|identified direct recursive calls: f_3153 1 o|identified direct recursive calls: f_3183 1 o|identified direct recursive calls: f_3213 1 o|identified direct recursive calls: f_3242 1 o|identified direct recursive calls: f_3271 1 o|identified direct recursive calls: f_3300 1 o|fast box initializations: 16 o|fast global references: 36 o|fast global assignments: 5 o|dropping unused closure argument: f_1917 o|dropping unused closure argument: f_3398 o|dropping unused closure argument: f_3380 o|dropping unused closure argument: f_1494 o|dropping unused closure argument: f_3428 o|dropping unused closure argument: f_3719 */ /* end of file */ �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/csc.scm������������������������������������������������������������������������������0000644�0001750�0001750�00000124166�13052306173�014276� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; csc.scm - Driver program for the CHICKEN compiler - felix -*- Scheme -*- ; ; Copyright (c) 2008-2017, 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) (uses posix data-structures ports srfi-1 srfi-13 utils files extras)) (define-foreign-variable INSTALL_BIN_HOME c-string "C_INSTALL_BIN_HOME") (define-foreign-variable INSTALL_CC c-string "C_INSTALL_CC") (define-foreign-variable INSTALL_CXX c-string "C_INSTALL_CXX") (define-foreign-variable INSTALL_RC_COMPILER c-string "C_INSTALL_RC_COMPILER") (define-foreign-variable TARGET_CC c-string "C_TARGET_CC") (define-foreign-variable TARGET_CXX c-string "C_TARGET_CXX") (define-foreign-variable TARGET_RC_COMPILER c-string "C_TARGET_RC_COMPILER") (define-foreign-variable TARGET_CFLAGS c-string "C_TARGET_CFLAGS") (define-foreign-variable INSTALL_CFLAGS c-string "C_INSTALL_CFLAGS") (define-foreign-variable TARGET_LDFLAGS c-string "C_TARGET_LDFLAGS") (define-foreign-variable TARGET_FEATURES c-string "C_TARGET_FEATURES") (define-foreign-variable INSTALL_LDFLAGS c-string "C_INSTALL_LDFLAGS") (define-foreign-variable INSTALL_MORE_LIBS c-string "C_INSTALL_MORE_LIBS") (define-foreign-variable INSTALL_MORE_STATIC_LIBS c-string "C_INSTALL_MORE_STATIC_LIBS") (define-foreign-variable INSTALL_SHARE_HOME c-string "C_INSTALL_SHARE_HOME") (define-foreign-variable INSTALL_LIB_HOME c-string "C_INSTALL_LIB_HOME") (define-foreign-variable INSTALL_LIB_NAME c-string "C_INSTALL_LIB_NAME") (define-foreign-variable INSTALL_INCLUDE_HOME c-string "C_INSTALL_INCLUDE_HOME") (define-foreign-variable INSTALL_STATIC_LIB_HOME c-string "C_INSTALL_STATIC_LIB_HOME") (define-foreign-variable TARGET_MORE_LIBS c-string "C_TARGET_MORE_LIBS") (define-foreign-variable TARGET_MORE_STATIC_LIBS c-string "C_TARGET_MORE_STATIC_LIBS") (define-foreign-variable TARGET_BIN_HOME c-string "C_TARGET_BIN_HOME") (define-foreign-variable TARGET_SHARE_HOME c-string "C_TARGET_SHARE_HOME") (define-foreign-variable TARGET_LIB_HOME c-string "C_TARGET_LIB_HOME") (define-foreign-variable TARGET_LIB_NAME c-string "C_TARGET_LIB_NAME") (define-foreign-variable TARGET_INCLUDE_HOME c-string "C_TARGET_INCLUDE_HOME") (define-foreign-variable TARGET_STATIC_LIB_HOME c-string "C_TARGET_STATIC_LIB_HOME") (define-foreign-variable TARGET_RUN_LIB_HOME c-string "C_TARGET_RUN_LIB_HOME") (define-foreign-variable CHICKEN_PROGRAM c-string "C_CHICKEN_PROGRAM") (define-foreign-variable CSC_PROGRAM c-string "C_CSC_PROGRAM") (define-foreign-variable WINDOWS_SHELL bool "C_WINDOWS_SHELL") (define-foreign-variable BINARY_VERSION int "C_BINARY_VERSION") (define-foreign-variable POSTINSTALL_PROGRAM c-string "C_INSTALL_POSTINSTALL_PROGRAM") (define windows-shell WINDOWS_SHELL) ;;; Parameters: (define mingw (eq? (build-platform) 'mingw32)) (define osx (eq? (software-version) 'macosx)) (define cygwin (eq? (build-platform) '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 chicken-prefix (get-environment-variable "CHICKEN_PREFIX")) (define arguments (command-line-arguments)) (define host-mode (member "-host" arguments)) (define cross-chicken (##sys#fudge 39)) (define (prefix str dir default) (if chicken-prefix (make-pathname (list chicken-prefix dir) str) default) ) (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 (prefix "" "share" (if host-mode INSTALL_SHARE_HOME TARGET_SHARE_HOME))) (define translator (quotewrap (prefix "chicken" "bin" (make-pathname INSTALL_BIN_HOME CHICKEN_PROGRAM)))) (define compiler (quotewrap (if host-mode INSTALL_CC TARGET_CC))) (define c++-compiler (quotewrap (if host-mode INSTALL_CXX TARGET_CXX))) (define rc-compiler (quotewrap (if host-mode INSTALL_RC_COMPILER TARGET_RC_COMPILER))) (define linker (quotewrap (if host-mode INSTALL_CC TARGET_CC))) (define c++-linker (quotewrap (if host-mode INSTALL_CXX TARGET_CXX))) (define object-extension "o") (define library-extension "a") (define link-output-flag "-o ") (define executable-extension "") (define compile-output-flag "-o ") (define nonstatic-compilation-options '()) (define shared-library-extension ##sys#load-dynamic-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" INSTALL_LIB_NAME)) (define dynamic-libchicken (if cygwin (string-append "cyg" INSTALL_LIB_NAME "-0") libchicken)) (define default-library (string-append libchicken "." library-extension)) (define default-compilation-optimization-options (string-split (if host-mode INSTALL_CFLAGS TARGET_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 -scrutinize ; OBSOLETE -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 -setup-mode -no-elevation -no-module-registration -no-procedure-checks-for-usual-bindings -module -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 -inline-limit -profile-name -emit-inline-file -types -emit-type-file -feature -debug-level -consult-inline-file -emit-import-library -no-feature)) (define-constant shortcuts '((-h "-help") (-s "-shared") (-S "-scrutinize") ; OBSOLETE (-M "-module") (|-P| "-check-syntax") (-f "-fixnum-arithmetic") (|-D| "-feature") (-i "-case-insensitive") (|-K| "-keyword-style") (|-X| "-extend") (|-J| "-emit-all-import-libraries") (-x "-explicit-use") (-u "-unsafe") (-j "-emit-import-library") (-n "-emit-inline-file") ; DEPRECATED (-b "-block") ) ) (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 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 deploy #f) (define deployed #f) (define rpath #f) (define extra-libraries (if host-mode INSTALL_MORE_STATIC_LIBS TARGET_MORE_STATIC_LIBS)) (define extra-shared-libraries (if host-mode INSTALL_MORE_LIBS TARGET_MORE_LIBS)) (define default-library-files (list (prefix default-library "lib" (string-append (if host-mode INSTALL_LIB_HOME TARGET_LIB_HOME) (string-append "/" default-library)))) ) (define default-shared-library-files (list (string-append "-l" (if host-mode INSTALL_LIB_NAME TARGET_LIB_NAME)))) (define library-files default-library-files) (define shared-library-files default-shared-library-files) (define translate-options '()) (define include-dir (let ((id (prefix "" (make-pathname "include" "chicken") (if host-mode INSTALL_INCLUDE_HOME TARGET_INCLUDE_HOME)))) (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 library-dir (prefix "" "lib" (if host-mode INSTALL_LIB_HOME TARGET_LIB_HOME)) ) (define link-options '()) (define (builtin-link-options) (append (cond (elf (list (conc "-L" library-dir) (conc " -Wl,-R" (if deployed "\\$ORIGIN" (quotewrap (prefix "" "lib" (if host-mode INSTALL_LIB_HOME 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) (define static-libs #f) (define required-extensions '()) ;;; Display usage information: (define (usage) (let ((csc CSC_PROGRAM)) (print #<#EOF Usage: #{csc} FILENAME | OPTION ... `#{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 wrap compiled code into implicit 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 -types 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-type-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 -R -require-extension NAME require extension and import in compiled code -dll -library compile multiple units into a dynamic library -deploy deploy self-contained application bundle 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 -lLIBNAME link with given library (`libLIBNAME' on UNIX, `LIBNAME.lib' on Windows) -static-libs link with static CHICKEN libraries -static generate completely statically linked executable -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 -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 (cons (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)) (when osx ;; needed for C_path_to_executable (see chicken.h): (set! link-options (cons "-framework CoreFoundation" link-options)))) (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)) (stop "no source files specified") ) (let ((f0 (last (if (null? c-files) object-files c-files)))) (unless target-filename (set! target-filename (if shared (pathname-replace-extension f0 shared-library-extension) (pathname-replace-extension f0 executable-extension) ) ) ) ) ] [else (when (and shared (not embedded)) (set! translate-options (cons "-dynamic" translate-options)) ) (unless target-filename (set! target-filename (if shared (pathname-replace-extension (first scheme-files) shared-library-extension) (pathname-replace-extension (first scheme-files) executable-extension) ) ) ) (run-translation) ] ) (when (and deploy (not shared)) (use-private-repository)) (unless translate-only (run-compilation) (unless compile-only (when (member target-filename scheme-files) (printf "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 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* "-feature" "chicken-compile-static" translate-options)) (set! static #t) ] [(-static-libs) (set! translate-options (cons* "-feature" "chicken-compile-static" translate-options)) (set! static-libs #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)) ] [(-require-extension -R) (check s rest) (set! required-extensions (append required-extensions (list (car rest)))) (t-options "-require-extension" (car rest)) (set! rest (cdr rest)) ] ((-private-repository) (use-private-repository)) ((-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 INSTALL_SHARE_HOME "chicken.rc" object-extension) object-files)) (set! link-options (cons* "-lkernel32" "-luser32" "-lgdi32" "-mwindows" link-options)))] ((-deploy) (set! deploy #t) (set! deployed #t)) ((-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))] [(-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-type-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) (let* ((n (car rest)) (ns (string->number n)) ) (t-options arg n) (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)) (set! link-options (append link-options (list arg))) ] [(char=? #\L (string-ref arg 1)) (set! link-options (append link-options (list arg))) ] [(char=? #\I (string-ref arg 1)) (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 char=? 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#fudge 13) '("-:d") '()) (map quote-option (append extra-features translate-options (cond (cpp-mode '("-feature" "chicken-scheme-to-c++")) (objc-mode '("-feature" "chicken-scheme-to-objc")) (else '())) translation-optimization-options)) ) ) " ") ) (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 (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 (if (or static static-libs) '() nonstatic-compilation-options) compilation-optimization-options compile-options) ) ) ) ;;; Link object files and libraries: (define (run-linking) (let* ((files (map quotewrap object-files)) (target (quotewrap target-filename)) (targetdir #f)) (when deploy (set! targetdir (pathname-strip-extension target-filename)) (when (and osx gui) (set! targetdir (make-pathname #f targetdir "app")) (command (sprintf "mkdir -p ~a" (quotewrap (make-pathname targetdir "Contents/MacOS")))) (command (sprintf "mkdir -p ~a" (quotewrap (make-pathname targetdir "Contents/Resources"))))) (set! target-filename (make-pathname targetdir (if (and osx gui) (string-append "Contents/MacOS/" (pathname-file target-filename)) (pathname-file target-filename)))) (set! target (quotewrap target-filename)) (unless (directory-exists? targetdir) (when verbose (print "mkdir " targetdir)) (create-directory targetdir))) (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 (or (not cross-chicken) 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 (lib-path) lib)))) " " target) ) (when (and gui (not deploy)) (rez target))) (when (and deploy (not (or static static-libs))) (copy-libraries (if (and osx gui) (make-pathname targetdir "Contents/MacOS") targetdir)) (when (and osx gui) (create-mac-bundle (pathname-file target-filename) targetdir))) (unless keep-files (for-each $delete-file generated-object-files)) ) ) (define (lib-path) (prefix "" "lib" (if host-mode INSTALL_LIB_HOME TARGET_RUN_LIB_HOME))) (define (target-lib-path) (or (get-environment-variable "TARGET_LIB_PATH") (let ((tdir TARGET_LIB_HOME)) (if (and (not (string=? tdir "")) cross-chicken (not host-mode)) tdir (lib-path))))) (define (copy-libraries targetdir) (let ((lib (make-pathname (target-lib-path) dynamic-libchicken (cond (osx "dylib") ((or mingw cygwin) "dll") (else (string-append "so." (number->string BINARY_VERSION))))))) (copy-files lib targetdir))) (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-append (string-intersperse (append linking-optimization-options link-options)) (if (and static (not mingw) (not osx)) " -static" "") ) ) (define (linker-libraries) (string-intersperse (append (if (or static static-libs) library-files shared-library-files) (if (or static static-libs) (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) ) ) (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-mac-bundle prg dname) (let* ((d0 (make-pathname dname "Contents")) (d (make-pathname dname "Contents/MacOS")) (d2 (make-pathname dname "Contents/Resources"))) (let ((icons (make-pathname d2 "CHICKEN.icns"))) (unless (file-exists? icons) (copy-files (make-pathname home "chicken/CHICKEN.icns") d2))) (let ((pl (make-pathname d0 "Info.plist"))) (unless (file-exists? pl) (when verbose (print "generating " pl)) (with-output-to-file pl (cut print #<#EOF <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE plist SYSTEM "file://localhost/System/Library/DTDs/PropertyList.dtd"> <plist version="0.9"> <dict> <key>CFBundlePackageType</key> <string>APPL</string> <key>CFBundleIconFile</key> <string>CHICKEN.icns</string> <key>CFBundleGetInfoString</key> <string>Created by CHICKEN</string> <key>CFBundleSignature</key> <string>????</string> <key>CFBundleExecutable</key> <string>#{prg}</string> </dict> </plist> EOF ))) d))) (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-4.12.0/srfi-13.c����������������������������������������������������������������������������0000644�0001750�0001750�00002312707�13052306243�014352� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from srfi-13.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:16 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: srfi-13.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file srfi-13.c unit: srfi_2d13 */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_srfi_2d14_toplevel) C_externimport void C_ccall C_srfi_2d14_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[154]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,7),40,97,50,52,57,51,41,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,22),40,97,50,53,50,55,32,101,110,100,49,52,53,32,97,114,103,115,49,52,54,41,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,45),40,115,116,114,105,110,103,45,112,97,114,115,101,45,115,116,97,114,116,43,101,110,100,32,112,114,111,99,49,51,53,32,115,49,51,54,32,97,114,103,115,49,51,55,41,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,7),40,97,50,53,54,51,41,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,31),40,97,50,53,54,57,32,114,101,115,116,49,53,50,32,115,116,97,114,116,49,53,51,32,101,110,100,49,53,52,41,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,112,97,114,115,101,45,102,105,110,97,108,45,115,116,97,114,116,43,101,110,100,32,112,114,111,99,49,52,57,32,115,49,53,48,32,97,114,103,115,49,53,49,41,0,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,41),40,115,117,98,115,116,114,105,110,103,45,115,112,101,99,45,111,107,63,32,115,49,53,54,32,115,116,97,114,116,49,53,55,32,101,110,100,49,53,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,51),40,99,104,101,99,107,45,115,117,98,115,116,114,105,110,103,45,115,112,101,99,32,112,114,111,99,49,54,53,32,115,49,54,54,32,115,116,97,114,116,49,54,55,32,101,110,100,49,54,56,41,0,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,47),40,115,117,98,115,116,114,105,110,103,47,115,104,97,114,101,100,32,115,49,55,48,32,115,116,97,114,116,49,55,49,32,46,32,109,97,121,98,101,45,101,110,100,49,55,50,41,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,40),40,37,115,117,98,115,116,114,105,110,103,47,115,104,97,114,101,100,32,115,49,56,50,32,115,116,97,114,116,49,56,51,32,101,110,100,49,56,52,41}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,7),40,97,50,54,57,56,41,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,23),40,97,50,55,48,52,32,115,116,97,114,116,49,57,50,32,101,110,100,49,57,51,41,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,39),40,115,116,114,105,110,103,45,99,111,112,121,32,115,49,56,55,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,56,56,41,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,7),40,97,50,55,49,54,41,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,23),40,97,50,55,50,50,32,115,116,97,114,116,50,48,49,32,101,110,100,50,48,50,41,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,46),40,115,116,114,105,110,103,45,109,97,112,32,112,114,111,99,49,57,53,32,115,49,57,54,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,57,55,41,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,21),40,100,111,108,111,111,112,50,49,48,32,105,50,49,50,32,106,50,49,51,41,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,42),40,37,115,116,114,105,110,103,45,109,97,112,32,112,114,111,99,50,48,52,32,115,50,48,53,32,115,116,97,114,116,50,48,54,32,101,110,100,50,48,55,41,0,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,7),40,97,50,55,55,55,41,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,23),40,97,50,55,56,51,32,115,116,97,114,116,50,50,52,32,101,110,100,50,50,53,41,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,47),40,115,116,114,105,110,103,45,109,97,112,33,32,112,114,111,99,50,49,56,32,115,50,49,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,50,50,48,41,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,50,51,49,32,105,50,51,51,41}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,43),40,37,115,116,114,105,110,103,45,109,97,112,33,32,112,114,111,99,50,50,55,32,115,50,50,56,32,115,116,97,114,116,50,50,57,32,101,110,100,50,51,48,41,0,0,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,7),40,97,50,56,50,56,41,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,14),40,108,112,32,118,50,52,55,32,105,50,52,56,41,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,23),40,97,50,56,51,52,32,115,116,97,114,116,50,52,52,32,101,110,100,50,52,53,41,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,55),40,115,116,114,105,110,103,45,102,111,108,100,32,107,111,110,115,50,51,55,32,107,110,105,108,50,51,56,32,115,50,51,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,50,52,48,41,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,7),40,97,50,56,55,48,41,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,14),40,108,112,32,118,50,54,49,32,105,50,54,50,41,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,23),40,97,50,56,55,54,32,115,116,97,114,116,50,53,56,32,101,110,100,50,53,57,41,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,61),40,115,116,114,105,110,103,45,102,111,108,100,45,114,105,103,104,116,32,107,111,110,115,50,53,49,32,107,110,105,108,50,53,50,32,115,50,53,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,50,53,52,41,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,13),40,102,95,51,48,54,51,32,120,50,56,48,41,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,14),40,108,112,32,99,104,117,110,107,115,51,48,54,41,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,18),40,108,112,50,32,105,50,56,57,32,115,101,101,100,50,57,48,41,0,0,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,59),40,108,112,32,99,104,117,110,107,115,50,56,50,32,110,99,104,97,114,115,50,56,51,32,99,104,117,110,107,50,56,52,32,99,104,117,110,107,45,108,101,110,50,56,53,32,105,50,56,54,32,115,101,101,100,50,56,55,41,0,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,59),40,115,116,114,105,110,103,45,117,110,102,111,108,100,32,112,50,54,53,32,102,50,54,54,32,103,50,54,55,32,115,101,101,100,50,54,56,32,46,32,98,97,115,101,43,109,97,107,101,45,102,105,110,97,108,50,54,57,41,0,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,13),40,102,95,51,50,52,48,32,120,51,51,53,41,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,19),40,108,112,32,106,51,54,50,32,99,104,117,110,107,115,51,54,51,41,0,0,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,18),40,108,112,50,32,105,51,52,52,32,115,101,101,100,51,52,53,41,0,0,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,59),40,108,112,32,99,104,117,110,107,115,51,51,55,32,110,99,104,97,114,115,51,51,56,32,99,104,117,110,107,51,51,57,32,99,104,117,110,107,45,108,101,110,51,52,48,32,105,51,52,49,32,115,101,101,100,51,52,50,41,0,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,65),40,115,116,114,105,110,103,45,117,110,102,111,108,100,45,114,105,103,104,116,32,112,51,50,48,32,102,51,50,49,32,103,51,50,50,32,115,101,101,100,51,50,51,32,46,32,98,97,115,101,43,109,97,107,101,45,102,105,110,97,108,51,50,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,7),40,97,51,50,54,51,41,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,51,56,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,23),40,97,51,50,54,57,32,115,116,97,114,116,51,56,49,32,101,110,100,51,56,50,41,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,102,111,114,45,101,97,99,104,32,112,114,111,99,51,55,53,32,115,51,55,54,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,51,55,55,41,0,0,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,7),40,97,51,51,48,52,41,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,51,57,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,23),40,97,51,51,49,48,32,115,116,97,114,116,51,57,52,32,101,110,100,51,57,53,41,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,57),40,115,116,114,105,110,103,45,102,111,114,45,101,97,99,104,45,105,110,100,101,120,32,112,114,111,99,51,56,56,32,115,51,56,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,51,57,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,7),40,97,51,51,52,49,41,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,52,50,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,52,51,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,23),40,97,51,51,52,55,32,115,116,97,114,116,52,48,55,32,101,110,100,52,48,56,41,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,52),40,115,116,114,105,110,103,45,101,118,101,114,121,32,99,114,105,116,101,114,105,97,52,48,49,32,115,52,48,50,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,52,48,51,41,0,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,7),40,97,51,52,55,49,41,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,52,53,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,52,54,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,23),40,97,51,52,55,55,32,115,116,97,114,116,52,52,51,32,101,110,100,52,52,52,41,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,50),40,115,116,114,105,110,103,45,97,110,121,32,99,114,105,116,101,114,105,97,52,51,55,32,115,52,51,56,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,52,51,57,41,0,0,0,0,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,52,55,54,32,105,52,55,56,41}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,32),40,115,116,114,105,110,103,45,116,97,98,117,108,97,116,101,32,112,114,111,99,52,55,51,32,108,101,110,52,55,52,41}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,14),40,108,112,32,105,52,57,52,32,106,52,57,53,41,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,71),40,37,115,116,114,105,110,103,45,112,114,101,102,105,120,45,108,101,110,103,116,104,32,115,49,52,56,52,32,115,116,97,114,116,49,52,56,53,32,101,110,100,49,52,56,54,32,115,50,52,56,55,32,115,116,97,114,116,50,52,56,56,32,101,110,100,50,52,56,57,41,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,14),40,108,112,32,105,53,49,49,32,106,53,49,50,41,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,71),40,37,115,116,114,105,110,103,45,115,117,102,102,105,120,45,108,101,110,103,116,104,32,115,49,53,48,49,32,115,116,97,114,116,49,53,48,50,32,101,110,100,49,53,48,51,32,115,50,53,48,52,32,115,116,97,114,116,50,53,48,53,32,101,110,100,50,53,48,54,41,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,14),40,108,112,32,105,53,50,56,32,106,53,50,57,41,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,74),40,37,115,116,114,105,110,103,45,112,114,101,102,105,120,45,108,101,110,103,116,104,45,99,105,32,115,49,53,49,56,32,115,116,97,114,116,49,53,49,57,32,101,110,100,49,53,50,48,32,115,50,53,50,49,32,115,116,97,114,116,50,53,50,50,32,101,110,100,50,53,50,51,41,0,0,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,14),40,108,112,32,105,53,52,53,32,106,53,52,54,41,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,74),40,37,115,116,114,105,110,103,45,115,117,102,102,105,120,45,108,101,110,103,116,104,45,99,105,32,115,49,53,51,53,32,115,116,97,114,116,49,53,51,54,32,101,110,100,49,53,51,55,32,115,50,53,51,56,32,115,116,97,114,116,50,53,51,57,32,101,110,100,50,53,52,48,41,0,0,0,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,7),40,97,51,57,53,49,41,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,7),40,97,51,57,54,51,41,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,25),40,97,51,57,54,57,32,115,116,97,114,116,50,53,54,57,32,101,110,100,50,53,55,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,36),40,97,51,57,53,55,32,114,101,115,116,53,53,56,53,54,51,32,115,116,97,114,116,49,53,54,52,32,101,110,100,49,53,54,53,41,0,0,0,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,57),40,115,116,114,105,110,103,45,112,114,101,102,105,120,45,108,101,110,103,116,104,32,115,49,53,53,50,32,115,50,53,53,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,53,53,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,7),40,97,51,57,56,49,41,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,7),40,97,51,57,57,51,41,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,25),40,97,51,57,57,57,32,115,116,97,114,116,50,53,56,57,32,101,110,100,50,53,57,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,36),40,97,51,57,56,55,32,114,101,115,116,53,55,56,53,56,51,32,115,116,97,114,116,49,53,56,52,32,101,110,100,49,53,56,53,41,0,0,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,57),40,115,116,114,105,110,103,45,115,117,102,102,105,120,45,108,101,110,103,116,104,32,115,49,53,55,50,32,115,50,53,55,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,53,55,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,7),40,97,52,48,49,49,41,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,7),40,97,52,48,50,51,41,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,25),40,97,52,48,50,57,32,115,116,97,114,116,50,54,48,57,32,101,110,100,50,54,49,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,36),40,97,52,48,49,55,32,114,101,115,116,53,57,56,54,48,51,32,115,116,97,114,116,49,54,48,52,32,101,110,100,49,54,48,53,41,0,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,60),40,115,116,114,105,110,103,45,112,114,101,102,105,120,45,108,101,110,103,116,104,45,99,105,32,115,49,53,57,50,32,115,50,53,57,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,53,57,52,41,0,0,0,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,7),40,97,52,48,52,49,41,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,7),40,97,52,48,53,51,41,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,25),40,97,52,48,53,57,32,115,116,97,114,116,50,54,50,57,32,101,110,100,50,54,51,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,36),40,97,52,48,52,55,32,114,101,115,116,54,49,56,54,50,51,32,115,116,97,114,116,49,54,50,52,32,101,110,100,49,54,50,53,41,0,0,0,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,60),40,115,116,114,105,110,103,45,115,117,102,102,105,120,45,108,101,110,103,116,104,45,99,105,32,115,49,54,49,50,32,115,50,54,49,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,54,49,52,41,0,0,0,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,7),40,97,52,48,55,49,41,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,7),40,97,52,48,56,51,41,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,25),40,97,52,48,56,57,32,115,116,97,114,116,50,54,52,57,32,101,110,100,50,54,53,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,36),40,97,52,48,55,55,32,114,101,115,116,54,51,56,54,52,51,32,115,116,97,114,116,49,54,52,52,32,101,110,100,49,54,52,53,41,0,0,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,112,114,101,102,105,120,63,32,115,49,54,51,50,32,115,50,54,51,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,54,51,52,41,0,0,0,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,7),40,97,52,49,48,49,41,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,7),40,97,52,49,49,51,41,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,25),40,97,52,49,49,57,32,115,116,97,114,116,50,54,54,57,32,101,110,100,50,54,55,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,36),40,97,52,49,48,55,32,114,101,115,116,54,53,56,54,54,51,32,115,116,97,114,116,49,54,54,52,32,101,110,100,49,54,54,53,41,0,0,0,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,115,117,102,102,105,120,63,32,115,49,54,53,50,32,115,50,54,53,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,54,53,52,41,0,0,0,0,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,7),40,97,52,49,51,49,41,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,7),40,97,52,49,52,51,41,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,25),40,97,52,49,52,57,32,115,116,97,114,116,50,54,56,57,32,101,110,100,50,54,57,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,36),40,97,52,49,51,55,32,114,101,115,116,54,55,56,54,56,51,32,115,116,97,114,116,49,54,56,52,32,101,110,100,49,54,56,53,41,0,0,0,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,54),40,115,116,114,105,110,103,45,112,114,101,102,105,120,45,99,105,63,32,115,49,54,55,50,32,115,50,54,55,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,54,55,52,41,0,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,7),40,97,52,49,54,49,41,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,7),40,97,52,49,55,51,41,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,25),40,97,52,49,55,57,32,115,116,97,114,116,50,55,48,57,32,101,110,100,50,55,49,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,36),40,97,52,49,54,55,32,114,101,115,116,54,57,56,55,48,51,32,115,116,97,114,116,49,55,48,52,32,101,110,100,49,55,48,53,41,0,0,0,0}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,54),40,115,116,114,105,110,103,45,115,117,102,102,105,120,45,99,105,63,32,115,49,54,57,50,32,115,50,54,57,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,54,57,52,41,0,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,92),40,37,115,116,114,105,110,103,45,99,111,109,112,97,114,101,32,115,49,55,52,56,32,115,116,97,114,116,49,55,52,57,32,101,110,100,49,55,53,48,32,115,50,55,53,49,32,115,116,97,114,116,50,55,53,50,32,101,110,100,50,55,53,51,32,112,114,111,99,60,55,53,52,32,112,114,111,99,61,55,53,53,32,112,114,111,99,62,55,53,54,41,0,0,0,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,95),40,37,115,116,114,105,110,103,45,99,111,109,112,97,114,101,45,99,105,32,115,49,55,54,53,32,115,116,97,114,116,49,55,54,54,32,101,110,100,49,55,54,55,32,115,50,55,54,56,32,115,116,97,114,116,50,55,54,57,32,101,110,100,50,55,55,48,32,112,114,111,99,60,55,55,49,32,112,114,111,99,61,55,55,50,32,112,114,111,99,62,55,55,51,41,0}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,7),40,97,52,52,48,52,41,0}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,7),40,97,52,52,49,54,41,0}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,25),40,97,52,52,50,50,32,115,116,97,114,116,50,56,48,50,32,101,110,100,50,56,48,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,36),40,97,52,52,49,48,32,114,101,115,116,55,57,49,55,57,54,32,115,116,97,114,116,49,55,57,55,32,101,110,100,49,55,57,56,41,0,0,0,0}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,78),40,115,116,114,105,110,103,45,99,111,109,112,97,114,101,32,115,49,55,56,50,32,115,50,55,56,51,32,112,114,111,99,60,55,56,52,32,112,114,111,99,61,55,56,53,32,112,114,111,99,62,55,56,54,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,55,56,55,41,0,0}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,7),40,97,52,52,51,52,41,0}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,7),40,97,52,52,52,54,41,0}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,25),40,97,52,52,53,50,32,115,116,97,114,116,50,56,50,53,32,101,110,100,50,56,50,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,36),40,97,52,52,52,48,32,114,101,115,116,56,49,52,56,49,57,32,115,116,97,114,116,49,56,50,48,32,101,110,100,49,56,50,49,41,0,0,0,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,81),40,115,116,114,105,110,103,45,99,111,109,112,97,114,101,45,99,105,32,115,49,56,48,53,32,115,50,56,48,54,32,112,114,111,99,60,56,48,55,32,112,114,111,99,61,56,48,56,32,112,114,111,99,62,56,48,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,56,49,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,7),40,97,52,52,54,52,41,0}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,7),40,97,52,52,55,54,41,0}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,12),40,97,52,53,48,48,32,105,56,53,50,41,0,0,0,0}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,12),40,97,52,53,48,51,32,105,56,53,51,41,0,0,0,0}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,12),40,97,52,53,48,57,32,105,56,53,52,41,0,0,0,0}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,25),40,97,52,52,56,50,32,115,116,97,114,116,50,56,52,53,32,101,110,100,50,56,52,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,36),40,97,52,52,55,48,32,114,101,115,116,56,51,52,56,51,57,32,115,116,97,114,116,49,56,52,48,32,101,110,100,49,56,52,49,41,0,0,0,0}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,44),40,115,116,114,105,110,103,61,32,115,49,56,50,56,32,115,50,56,50,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,56,51,48,41,0,0,0,0}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,7),40,97,52,53,51,50,41,0}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,7),40,97,52,53,52,52,41,0}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,12),40,97,52,53,54,56,32,105,56,56,48,41,0,0,0,0}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,12),40,97,52,53,55,52,32,105,56,56,49,41,0,0,0,0}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,12),40,97,52,53,55,55,32,105,56,56,50,41,0,0,0,0}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,25),40,97,52,53,53,48,32,115,116,97,114,116,50,56,55,51,32,101,110,100,50,56,55,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,36),40,97,52,53,51,56,32,114,101,115,116,56,54,50,56,54,55,32,115,116,97,114,116,49,56,54,56,32,101,110,100,49,56,54,57,41,0,0,0,0}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,45),40,115,116,114,105,110,103,60,62,32,115,49,56,53,54,32,115,50,56,53,55,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,56,53,56,41,0,0,0}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,7),40,97,52,54,49,49,41,0}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,7),40,97,52,54,50,51,41,0}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,12),40,97,52,54,52,52,32,105,57,48,52,41,0,0,0,0}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,12),40,97,52,54,53,48,32,105,57,48,53,41,0,0,0,0}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,12),40,97,52,54,53,51,32,105,57,48,54,41,0,0,0,0}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,25),40,97,52,54,50,57,32,115,116,97,114,116,50,57,48,49,32,101,110,100,50,57,48,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,36),40,97,52,54,49,55,32,114,101,115,116,56,57,48,56,57,53,32,115,116,97,114,116,49,56,57,54,32,101,110,100,49,56,57,55,41,0,0,0,0}; static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,44),40,115,116,114,105,110,103,60,32,115,49,56,56,52,32,115,50,56,56,53,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,56,56,54,41,0,0,0,0}; static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,7),40,97,52,54,54,56,41,0}; static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,7),40,97,52,54,56,48,41,0}; static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,12),40,97,52,55,48,49,32,105,57,50,56,41,0,0,0,0}; static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,12),40,97,52,55,48,52,32,105,57,50,57,41,0,0,0,0}; static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,12),40,97,52,55,48,55,32,105,57,51,48,41,0,0,0,0}; static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,25),40,97,52,54,56,54,32,115,116,97,114,116,50,57,50,53,32,101,110,100,50,57,50,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,36),40,97,52,54,55,52,32,114,101,115,116,57,49,52,57,49,57,32,115,116,97,114,116,49,57,50,48,32,101,110,100,49,57,50,49,41,0,0,0,0}; static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,44),40,115,116,114,105,110,103,62,32,115,49,57,48,56,32,115,50,57,48,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,57,49,48,41,0,0,0,0}; static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,7),40,97,52,55,50,53,41,0}; static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,7),40,97,52,55,51,55,41,0}; static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,12),40,97,52,55,53,56,32,105,57,53,50,41,0,0,0,0}; static C_char C_TLS li158[] C_aligned={C_lihdr(0,0,12),40,97,52,55,54,52,32,105,57,53,51,41,0,0,0,0}; static C_char C_TLS li159[] C_aligned={C_lihdr(0,0,12),40,97,52,55,55,48,32,105,57,53,52,41,0,0,0,0}; static C_char C_TLS li160[] C_aligned={C_lihdr(0,0,25),40,97,52,55,52,51,32,115,116,97,114,116,50,57,52,57,32,101,110,100,50,57,53,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li161[] C_aligned={C_lihdr(0,0,36),40,97,52,55,51,49,32,114,101,115,116,57,51,56,57,52,51,32,115,116,97,114,116,49,57,52,52,32,101,110,100,49,57,52,53,41,0,0,0,0}; static C_char C_TLS li162[] C_aligned={C_lihdr(0,0,45),40,115,116,114,105,110,103,60,61,32,115,49,57,51,50,32,115,50,57,51,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,57,51,52,41,0,0,0}; static C_char C_TLS li163[] C_aligned={C_lihdr(0,0,7),40,97,52,55,56,53,41,0}; static C_char C_TLS li164[] C_aligned={C_lihdr(0,0,7),40,97,52,55,57,55,41,0}; static C_char C_TLS li165[] C_aligned={C_lihdr(0,0,12),40,97,52,56,49,56,32,105,57,55,54,41,0,0,0,0}; static C_char C_TLS li166[] C_aligned={C_lihdr(0,0,12),40,97,52,56,50,49,32,105,57,55,55,41,0,0,0,0}; static C_char C_TLS li167[] C_aligned={C_lihdr(0,0,12),40,97,52,56,50,55,32,105,57,55,56,41,0,0,0,0}; static C_char C_TLS li168[] C_aligned={C_lihdr(0,0,25),40,97,52,56,48,51,32,115,116,97,114,116,50,57,55,51,32,101,110,100,50,57,55,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li169[] C_aligned={C_lihdr(0,0,36),40,97,52,55,57,49,32,114,101,115,116,57,54,50,57,54,55,32,115,116,97,114,116,49,57,54,56,32,101,110,100,49,57,54,57,41,0,0,0,0}; static C_char C_TLS li170[] C_aligned={C_lihdr(0,0,45),40,115,116,114,105,110,103,62,61,32,115,49,57,53,54,32,115,50,57,53,55,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,57,53,56,41,0,0,0}; static C_char C_TLS li171[] C_aligned={C_lihdr(0,0,7),40,97,52,56,52,53,41,0}; static C_char C_TLS li172[] C_aligned={C_lihdr(0,0,7),40,97,52,56,53,55,41,0}; static C_char C_TLS li173[] C_aligned={C_lihdr(0,0,13),40,97,52,56,56,49,32,105,49,48,48,52,41,0,0,0}; static C_char C_TLS li174[] C_aligned={C_lihdr(0,0,13),40,97,52,56,56,52,32,105,49,48,48,53,41,0,0,0}; static C_char C_TLS li175[] C_aligned={C_lihdr(0,0,13),40,97,52,56,57,48,32,105,49,48,48,54,41,0,0,0}; static C_char C_TLS li176[] C_aligned={C_lihdr(0,0,25),40,97,52,56,54,51,32,115,116,97,114,116,50,57,57,55,32,101,110,100,50,57,57,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li177[] C_aligned={C_lihdr(0,0,36),40,97,52,56,53,49,32,114,101,115,116,57,56,54,57,57,49,32,115,116,97,114,116,49,57,57,50,32,101,110,100,49,57,57,51,41,0,0,0,0}; static C_char C_TLS li178[] C_aligned={C_lihdr(0,0,47),40,115,116,114,105,110,103,45,99,105,61,32,115,49,57,56,48,32,115,50,57,56,49,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,57,56,50,41,0}; static C_char C_TLS li179[] C_aligned={C_lihdr(0,0,7),40,97,52,57,49,51,41,0}; static C_char C_TLS li180[] C_aligned={C_lihdr(0,0,7),40,97,52,57,50,53,41,0}; static C_char C_TLS li181[] C_aligned={C_lihdr(0,0,13),40,97,52,57,52,57,32,105,49,48,51,50,41,0,0,0}; static C_char C_TLS li182[] C_aligned={C_lihdr(0,0,13),40,97,52,57,53,53,32,105,49,48,51,51,41,0,0,0}; static C_char C_TLS li183[] C_aligned={C_lihdr(0,0,13),40,97,52,57,53,56,32,105,49,48,51,52,41,0,0,0}; static C_char C_TLS li184[] C_aligned={C_lihdr(0,0,27),40,97,52,57,51,49,32,115,116,97,114,116,50,49,48,50,53,32,101,110,100,50,49,48,50,54,41,0,0,0,0,0}; static C_char C_TLS li185[] C_aligned={C_lihdr(0,0,40),40,97,52,57,49,57,32,114,101,115,116,49,48,49,52,49,48,49,57,32,115,116,97,114,116,49,49,48,50,48,32,101,110,100,49,49,48,50,49,41}; static C_char C_TLS li186[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,99,105,60,62,32,115,49,49,48,48,56,32,115,50,49,48,48,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,49,48,49,48,41,0,0,0,0,0}; static C_char C_TLS li187[] C_aligned={C_lihdr(0,0,7),40,97,52,57,57,50,41,0}; static C_char C_TLS li188[] C_aligned={C_lihdr(0,0,7),40,97,53,48,48,52,41,0}; static C_char C_TLS li189[] C_aligned={C_lihdr(0,0,13),40,97,53,48,50,53,32,105,49,48,53,54,41,0,0,0}; static C_char C_TLS li190[] C_aligned={C_lihdr(0,0,13),40,97,53,48,51,49,32,105,49,48,53,55,41,0,0,0}; static C_char C_TLS li191[] C_aligned={C_lihdr(0,0,13),40,97,53,48,51,52,32,105,49,48,53,56,41,0,0,0}; static C_char C_TLS li192[] C_aligned={C_lihdr(0,0,27),40,97,53,48,49,48,32,115,116,97,114,116,50,49,48,53,51,32,101,110,100,50,49,48,53,52,41,0,0,0,0,0}; static C_char C_TLS li193[] C_aligned={C_lihdr(0,0,40),40,97,52,57,57,56,32,114,101,115,116,49,48,52,50,49,48,52,55,32,115,116,97,114,116,49,49,48,52,56,32,101,110,100,49,49,48,52,57,41}; static C_char C_TLS li194[] C_aligned={C_lihdr(0,0,50),40,115,116,114,105,110,103,45,99,105,60,32,115,49,49,48,51,54,32,115,50,49,48,51,55,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,49,48,51,56,41,0,0,0,0,0,0}; static C_char C_TLS li195[] C_aligned={C_lihdr(0,0,7),40,97,53,48,52,57,41,0}; static C_char C_TLS li196[] C_aligned={C_lihdr(0,0,7),40,97,53,48,54,49,41,0}; static C_char C_TLS li197[] C_aligned={C_lihdr(0,0,13),40,97,53,48,56,50,32,105,49,48,56,48,41,0,0,0}; static C_char C_TLS li198[] C_aligned={C_lihdr(0,0,13),40,97,53,48,56,53,32,105,49,48,56,49,41,0,0,0}; static C_char C_TLS li199[] C_aligned={C_lihdr(0,0,13),40,97,53,48,56,56,32,105,49,48,56,50,41,0,0,0}; static C_char C_TLS li200[] C_aligned={C_lihdr(0,0,27),40,97,53,48,54,55,32,115,116,97,114,116,50,49,48,55,55,32,101,110,100,50,49,48,55,56,41,0,0,0,0,0}; static C_char C_TLS li201[] C_aligned={C_lihdr(0,0,40),40,97,53,48,53,53,32,114,101,115,116,49,48,54,54,49,48,55,49,32,115,116,97,114,116,49,49,48,55,50,32,101,110,100,49,49,48,55,51,41}; static C_char C_TLS li202[] C_aligned={C_lihdr(0,0,50),40,115,116,114,105,110,103,45,99,105,62,32,115,49,49,48,54,48,32,115,50,49,48,54,49,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,49,48,54,50,41,0,0,0,0,0,0}; static C_char C_TLS li203[] C_aligned={C_lihdr(0,0,7),40,97,53,49,48,54,41,0}; static C_char C_TLS li204[] C_aligned={C_lihdr(0,0,7),40,97,53,49,49,56,41,0}; static C_char C_TLS li205[] C_aligned={C_lihdr(0,0,13),40,97,53,49,51,57,32,105,49,49,48,52,41,0,0,0}; static C_char C_TLS li206[] C_aligned={C_lihdr(0,0,13),40,97,53,49,52,53,32,105,49,49,48,53,41,0,0,0}; static C_char C_TLS li207[] C_aligned={C_lihdr(0,0,13),40,97,53,49,53,49,32,105,49,49,48,54,41,0,0,0}; static C_char C_TLS li208[] C_aligned={C_lihdr(0,0,27),40,97,53,49,50,52,32,115,116,97,114,116,50,49,49,48,49,32,101,110,100,50,49,49,48,50,41,0,0,0,0,0}; static C_char C_TLS li209[] C_aligned={C_lihdr(0,0,40),40,97,53,49,49,50,32,114,101,115,116,49,48,57,48,49,48,57,53,32,115,116,97,114,116,49,49,48,57,54,32,101,110,100,49,49,48,57,55,41}; static C_char C_TLS li210[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,99,105,60,61,32,115,49,49,48,56,52,32,115,50,49,48,56,53,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,49,48,56,54,41,0,0,0,0,0}; static C_char C_TLS li211[] C_aligned={C_lihdr(0,0,7),40,97,53,49,54,54,41,0}; static C_char C_TLS li212[] C_aligned={C_lihdr(0,0,7),40,97,53,49,55,56,41,0}; static C_char C_TLS li213[] C_aligned={C_lihdr(0,0,13),40,97,53,49,57,57,32,105,49,49,50,56,41,0,0,0}; static C_char C_TLS li214[] C_aligned={C_lihdr(0,0,13),40,97,53,50,48,50,32,105,49,49,50,57,41,0,0,0}; static C_char C_TLS li215[] C_aligned={C_lihdr(0,0,13),40,97,53,50,48,56,32,105,49,49,51,48,41,0,0,0}; static C_char C_TLS li216[] C_aligned={C_lihdr(0,0,27),40,97,53,49,56,52,32,115,116,97,114,116,50,49,49,50,53,32,101,110,100,50,49,49,50,54,41,0,0,0,0,0}; static C_char C_TLS li217[] C_aligned={C_lihdr(0,0,40),40,97,53,49,55,50,32,114,101,115,116,49,49,49,52,49,49,49,57,32,115,116,97,114,116,49,49,49,50,48,32,101,110,100,49,49,49,50,49,41}; static C_char C_TLS li218[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,99,105,62,61,32,115,49,49,49,48,56,32,115,50,49,49,48,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,49,49,49,48,41,0,0,0,0,0}; static C_char C_TLS li219[] C_aligned={C_lihdr(0,0,18),40,105,114,101,102,32,115,49,49,51,57,32,105,49,49,52,48,41,0,0,0,0,0,0}; static C_char C_TLS li220[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li221[] C_aligned={C_lihdr(0,0,18),40,108,112,32,105,49,49,52,53,32,97,110,115,49,49,52,54,41,0,0,0,0,0,0}; static C_char C_TLS li222[] C_aligned={C_lihdr(0,0,62),40,37,115,116,114,105,110,103,45,104,97,115,104,32,115,49,49,51,50,32,99,104,97,114,45,62,105,110,116,49,49,51,51,32,98,111,117,110,100,49,49,51,52,32,115,116,97,114,116,49,49,51,53,32,101,110,100,49,49,51,54,41,0,0}; static C_char C_TLS li223[] C_aligned={C_lihdr(0,0,7),40,97,53,51,49,48,41,0}; static C_char C_TLS li224[] C_aligned={C_lihdr(0,0,25),40,97,53,51,49,54,32,115,116,97,114,116,49,49,54,51,32,101,110,100,49,49,54,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li225[] C_aligned={C_lihdr(0,0,47),40,115,116,114,105,110,103,45,104,97,115,104,32,115,49,49,52,57,32,46,32,109,97,121,98,101,45,98,111,117,110,100,43,115,116,97,114,116,43,101,110,100,49,49,53,48,41,0}; static C_char C_TLS li226[] C_aligned={C_lihdr(0,0,7),40,97,53,51,53,54,41,0}; static C_char C_TLS li227[] C_aligned={C_lihdr(0,0,13),40,97,53,51,54,56,32,99,49,49,56,52,41,0,0,0}; static C_char C_TLS li228[] C_aligned={C_lihdr(0,0,25),40,97,53,51,54,50,32,115,116,97,114,116,49,49,56,50,32,101,110,100,49,49,56,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li229[] C_aligned={C_lihdr(0,0,50),40,115,116,114,105,110,103,45,104,97,115,104,45,99,105,32,115,49,49,54,56,32,46,32,109,97,121,98,101,45,98,111,117,110,100,43,115,116,97,114,116,43,101,110,100,49,49,54,57,41,0,0,0,0,0,0}; static C_char C_TLS li230[] C_aligned={C_lihdr(0,0,7),40,97,53,52,48,48,41,0}; static C_char C_TLS li231[] C_aligned={C_lihdr(0,0,25),40,97,53,52,48,54,32,115,116,97,114,116,49,49,57,51,32,101,110,100,49,49,57,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li232[] C_aligned={C_lihdr(0,0,43),40,115,116,114,105,110,103,45,117,112,99,97,115,101,32,115,49,49,56,56,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,49,56,57,41,0,0,0,0,0}; static C_char C_TLS li233[] C_aligned={C_lihdr(0,0,7),40,97,53,52,49,56,41,0}; static C_char C_TLS li234[] C_aligned={C_lihdr(0,0,25),40,97,53,52,50,52,32,115,116,97,114,116,49,50,48,49,32,101,110,100,49,50,48,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li235[] C_aligned={C_lihdr(0,0,44),40,115,116,114,105,110,103,45,117,112,99,97,115,101,33,32,115,49,49,57,54,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,49,57,55,41,0,0,0,0}; static C_char C_TLS li236[] C_aligned={C_lihdr(0,0,7),40,97,53,52,51,54,41,0}; static C_char C_TLS li237[] C_aligned={C_lihdr(0,0,25),40,97,53,52,52,50,32,115,116,97,114,116,49,50,48,57,32,101,110,100,49,50,49,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li238[] C_aligned={C_lihdr(0,0,45),40,115,116,114,105,110,103,45,100,111,119,110,99,97,115,101,32,115,49,50,48,52,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,50,48,53,41,0,0,0}; static C_char C_TLS li239[] C_aligned={C_lihdr(0,0,7),40,97,53,52,53,52,41,0}; static C_char C_TLS li240[] C_aligned={C_lihdr(0,0,25),40,97,53,52,54,48,32,115,116,97,114,116,49,50,49,55,32,101,110,100,49,50,49,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li241[] C_aligned={C_lihdr(0,0,46),40,115,116,114,105,110,103,45,100,111,119,110,99,97,115,101,33,32,115,49,50,49,50,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,50,49,51,41,0,0}; static C_char C_TLS li242[] C_aligned={C_lihdr(0,0,13),40,103,49,50,52,54,32,106,49,50,52,56,41,0,0,0}; static C_char C_TLS li243[] C_aligned={C_lihdr(0,0,13),40,97,53,53,49,51,32,99,49,50,52,53,41,0,0,0}; static C_char C_TLS li244[] C_aligned={C_lihdr(0,0,13),40,103,49,50,51,50,32,105,49,50,51,52,41,0,0,0}; static C_char C_TLS li245[] C_aligned={C_lihdr(0,0,13),40,97,53,53,51,53,32,99,49,50,51,49,41,0,0,0}; static C_char C_TLS li246[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,50,50,52,41,0,0,0,0,0,0}; static C_char C_TLS li247[] C_aligned={C_lihdr(0,0,44),40,37,115,116,114,105,110,103,45,116,105,116,108,101,99,97,115,101,33,32,115,49,50,50,48,32,115,116,97,114,116,49,50,50,49,32,101,110,100,49,50,50,50,41,0,0,0,0}; static C_char C_TLS li248[] C_aligned={C_lihdr(0,0,7),40,97,53,53,52,55,41,0}; static C_char C_TLS li249[] C_aligned={C_lihdr(0,0,25),40,97,53,53,53,51,32,115,116,97,114,116,49,50,53,56,32,101,110,100,49,50,53,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li250[] C_aligned={C_lihdr(0,0,47),40,115,116,114,105,110,103,45,116,105,116,108,101,99,97,115,101,33,32,115,49,50,53,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,50,53,52,41,0}; static C_char C_TLS li251[] C_aligned={C_lihdr(0,0,7),40,97,53,53,54,53,41,0}; static C_char C_TLS li252[] C_aligned={C_lihdr(0,0,25),40,97,53,53,55,49,32,115,116,97,114,116,49,50,54,54,32,101,110,100,49,50,54,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li253[] C_aligned={C_lihdr(0,0,46),40,115,116,114,105,110,103,45,116,105,116,108,101,99,97,115,101,32,115,49,50,54,49,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,50,54,50,41,0,0}; static C_char C_TLS li254[] C_aligned={C_lihdr(0,0,25),40,115,116,114,105,110,103,45,116,97,107,101,32,115,49,50,55,49,32,110,49,50,55,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li255[] C_aligned={C_lihdr(0,0,31),40,115,116,114,105,110,103,45,116,97,107,101,45,114,105,103,104,116,32,115,49,50,55,54,32,110,49,50,55,55,41,0}; static C_char C_TLS li256[] C_aligned={C_lihdr(0,0,25),40,115,116,114,105,110,103,45,100,114,111,112,32,115,49,50,56,50,32,110,49,50,56,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li257[] C_aligned={C_lihdr(0,0,31),40,115,116,114,105,110,103,45,100,114,111,112,45,114,105,103,104,116,32,115,49,50,56,56,32,110,49,50,56,57,41,0}; static C_char C_TLS li258[] C_aligned={C_lihdr(0,0,7),40,97,53,54,57,51,41,0}; static C_char C_TLS li259[] C_aligned={C_lihdr(0,0,13),40,103,49,51,49,54,32,105,49,51,49,56,41,0,0,0}; static C_char C_TLS li260[] C_aligned={C_lihdr(0,0,25),40,97,53,54,57,57,32,115,116,97,114,116,49,51,48,56,32,101,110,100,49,51,48,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li261[] C_aligned={C_lihdr(0,0,44),40,115,116,114,105,110,103,45,116,114,105,109,32,115,49,50,57,52,32,46,32,99,114,105,116,101,114,105,97,43,115,116,97,114,116,43,101,110,100,49,50,57,53,41,0,0,0,0}; static C_char C_TLS li262[] C_aligned={C_lihdr(0,0,7),40,97,53,55,52,48,41,0}; static C_char C_TLS li263[] C_aligned={C_lihdr(0,0,13),40,103,49,51,52,50,32,105,49,51,52,52,41,0,0,0}; static C_char C_TLS li264[] C_aligned={C_lihdr(0,0,25),40,97,53,55,52,54,32,115,116,97,114,116,49,51,51,52,32,101,110,100,49,51,51,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li265[] C_aligned={C_lihdr(0,0,50),40,115,116,114,105,110,103,45,116,114,105,109,45,114,105,103,104,116,32,115,49,51,50,48,32,46,32,99,114,105,116,101,114,105,97,43,115,116,97,114,116,43,101,110,100,49,51,50,49,41,0,0,0,0,0,0}; static C_char C_TLS li266[] C_aligned={C_lihdr(0,0,7),40,97,53,55,57,49,41,0}; static C_char C_TLS li267[] C_aligned={C_lihdr(0,0,13),40,103,49,51,54,56,32,105,49,51,55,48,41,0,0,0}; static C_char C_TLS li268[] C_aligned={C_lihdr(0,0,25),40,97,53,55,57,55,32,115,116,97,114,116,49,51,54,48,32,101,110,100,49,51,54,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li269[] C_aligned={C_lihdr(0,0,49),40,115,116,114,105,110,103,45,116,114,105,109,45,98,111,116,104,32,115,49,51,52,54,32,46,32,99,114,105,116,101,114,105,97,43,115,116,97,114,116,43,101,110,100,49,51,52,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li270[] C_aligned={C_lihdr(0,0,7),40,97,53,56,52,57,41,0}; static C_char C_TLS li271[] C_aligned={C_lihdr(0,0,25),40,97,53,56,53,53,32,115,116,97,114,116,49,51,56,55,32,101,110,100,49,51,56,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li272[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,112,97,100,45,114,105,103,104,116,32,115,49,51,55,50,32,110,49,51,55,51,32,46,32,99,104,97,114,43,115,116,97,114,116,43,101,110,100,49,51,55,52,41,0,0,0,0,0}; static C_char C_TLS li273[] C_aligned={C_lihdr(0,0,7),40,97,53,57,48,55,41,0}; static C_char C_TLS li274[] C_aligned={C_lihdr(0,0,25),40,97,53,57,49,51,32,115,116,97,114,116,49,52,48,57,32,101,110,100,49,52,49,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li275[] C_aligned={C_lihdr(0,0,45),40,115,116,114,105,110,103,45,112,97,100,32,115,49,51,57,52,32,110,49,51,57,53,32,46,32,99,104,97,114,43,115,116,97,114,116,43,101,110,100,49,51,57,54,41,0,0,0}; static C_char C_TLS li276[] C_aligned={C_lihdr(0,0,7),40,97,53,57,54,48,41,0}; static C_char C_TLS li277[] C_aligned={C_lihdr(0,0,19),40,97,53,57,57,51,32,99,49,52,50,55,32,105,49,52,50,56,41,0,0,0,0,0}; static C_char C_TLS li278[] C_aligned={C_lihdr(0,0,19),40,97,54,48,50,48,32,99,49,52,51,57,32,105,49,52,52,48,41,0,0,0,0,0}; static C_char C_TLS li279[] C_aligned={C_lihdr(0,0,19),40,97,54,48,51,53,32,99,49,52,51,54,32,105,49,52,51,55,41,0,0,0,0,0}; static C_char C_TLS li280[] C_aligned={C_lihdr(0,0,25),40,97,53,57,54,54,32,115,116,97,114,116,49,52,50,50,32,101,110,100,49,52,50,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li281[] C_aligned={C_lihdr(0,0,56),40,115,116,114,105,110,103,45,100,101,108,101,116,101,32,99,114,105,116,101,114,105,97,49,52,49,54,32,115,49,52,49,55,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,52,49,56,41}; static C_char C_TLS li282[] C_aligned={C_lihdr(0,0,7),40,97,54,48,54,56,41,0}; static C_char C_TLS li283[] C_aligned={C_lihdr(0,0,19),40,97,54,49,48,49,32,99,49,52,53,53,32,105,49,52,53,54,41,0,0,0,0,0}; static C_char C_TLS li284[] C_aligned={C_lihdr(0,0,19),40,97,54,49,50,56,32,99,49,52,54,55,32,105,49,52,54,56,41,0,0,0,0,0}; static C_char C_TLS li285[] C_aligned={C_lihdr(0,0,19),40,97,54,49,52,51,32,99,49,52,54,52,32,105,49,52,54,53,41,0,0,0,0,0}; static C_char C_TLS li286[] C_aligned={C_lihdr(0,0,25),40,97,54,48,55,52,32,115,116,97,114,116,49,52,53,48,32,101,110,100,49,52,53,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li287[] C_aligned={C_lihdr(0,0,56),40,115,116,114,105,110,103,45,102,105,108,116,101,114,32,99,114,105,116,101,114,105,97,49,52,52,52,32,115,49,52,52,53,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,52,52,54,41}; static C_char C_TLS li288[] C_aligned={C_lihdr(0,0,7),40,97,54,49,55,54,41,0}; static C_char C_TLS li289[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li290[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,52,56,57,41,0,0,0,0,0,0}; static C_char C_TLS li291[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,52,57,51,41,0,0,0,0,0,0}; static C_char C_TLS li292[] C_aligned={C_lihdr(0,0,25),40,97,54,49,56,50,32,115,116,97,114,116,49,52,55,56,32,101,110,100,49,52,55,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li293[] C_aligned={C_lihdr(0,0,57),40,115,116,114,105,110,103,45,105,110,100,101,120,32,115,116,114,49,52,55,50,32,99,114,105,116,101,114,105,97,49,52,55,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,52,55,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li294[] C_aligned={C_lihdr(0,0,7),40,97,54,50,57,57,41,0}; static C_char C_TLS li295[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li296[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,53,49,52,41,0,0,0,0,0,0}; static C_char C_TLS li297[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,53,49,56,41,0,0,0,0,0,0}; static C_char C_TLS li298[] C_aligned={C_lihdr(0,0,25),40,97,54,51,48,53,32,115,116,97,114,116,49,53,48,51,32,101,110,100,49,53,48,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li299[] C_aligned={C_lihdr(0,0,63),40,115,116,114,105,110,103,45,105,110,100,101,120,45,114,105,103,104,116,32,115,116,114,49,52,57,55,32,99,114,105,116,101,114,105,97,49,52,57,56,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,52,57,57,41,0}; static C_char C_TLS li300[] C_aligned={C_lihdr(0,0,7),40,97,54,52,51,52,41,0}; static C_char C_TLS li301[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li302[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,53,51,57,41,0,0,0,0,0,0}; static C_char C_TLS li303[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,53,52,51,41,0,0,0,0,0,0}; static C_char C_TLS li304[] C_aligned={C_lihdr(0,0,25),40,97,54,52,52,48,32,115,116,97,114,116,49,53,50,56,32,101,110,100,49,53,50,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li305[] C_aligned={C_lihdr(0,0,56),40,115,116,114,105,110,103,45,115,107,105,112,32,115,116,114,49,53,50,50,32,99,114,105,116,101,114,105,97,49,53,50,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,53,50,52,41}; static C_char C_TLS li306[] C_aligned={C_lihdr(0,0,7),40,97,54,53,53,55,41,0}; static C_char C_TLS li307[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li308[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,53,54,52,41,0,0,0,0,0,0}; static C_char C_TLS li309[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,53,54,56,41,0,0,0,0,0,0}; static C_char C_TLS li310[] C_aligned={C_lihdr(0,0,25),40,97,54,53,54,51,32,115,116,97,114,116,49,53,53,51,32,101,110,100,49,53,53,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li311[] C_aligned={C_lihdr(0,0,62),40,115,116,114,105,110,103,45,115,107,105,112,45,114,105,103,104,116,32,115,116,114,49,53,52,55,32,99,114,105,116,101,114,105,97,49,53,52,56,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,53,52,57,41,0,0}; static C_char C_TLS li312[] C_aligned={C_lihdr(0,0,7),40,97,54,54,57,50,41,0}; static C_char C_TLS li313[] C_aligned={C_lihdr(0,0,22),40,100,111,108,111,111,112,49,53,56,52,32,99,111,117,110,116,49,53,56,55,41,0,0}; static C_char C_TLS li314[] C_aligned={C_lihdr(0,0,28),40,100,111,108,111,111,112,49,53,56,57,32,105,49,53,57,49,32,99,111,117,110,116,49,53,57,50,41,0,0,0,0}; static C_char C_TLS li315[] C_aligned={C_lihdr(0,0,28),40,100,111,108,111,111,112,49,53,57,52,32,105,49,53,57,54,32,99,111,117,110,116,49,53,57,55,41,0,0,0,0}; static C_char C_TLS li316[] C_aligned={C_lihdr(0,0,25),40,97,54,54,57,56,32,115,116,97,114,116,49,53,55,56,32,101,110,100,49,53,55,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li317[] C_aligned={C_lihdr(0,0,55),40,115,116,114,105,110,103,45,99,111,117,110,116,32,115,49,53,55,50,32,99,114,105,116,101,114,105,97,49,53,55,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,53,55,52,41,0}; static C_char C_TLS li318[] C_aligned={C_lihdr(0,0,7),40,97,54,56,50,55,41,0}; static C_char C_TLS li319[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,49,54,48,56,41,0,0,0,0}; static C_char C_TLS li320[] C_aligned={C_lihdr(0,0,25),40,97,54,56,51,51,32,115,116,97,114,116,49,54,48,54,32,101,110,100,49,54,48,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li321[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,102,105,108,108,33,32,115,49,54,48,48,32,99,104,97,114,49,54,48,49,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,54,48,50,41,0,0,0,0,0}; static C_char C_TLS li322[] C_aligned={C_lihdr(0,0,7),40,97,54,56,54,56,41,0}; static C_char C_TLS li323[] C_aligned={C_lihdr(0,0,27),40,97,54,56,55,52,32,102,115,116,97,114,116,49,54,50,49,32,102,101,110,100,49,54,50,50,41,0,0,0,0,0}; static C_char C_TLS li324[] C_aligned={C_lihdr(0,0,65),40,115,116,114,105,110,103,45,99,111,112,121,33,32,116,111,49,54,49,52,32,116,115,116,97,114,116,49,54,49,53,32,102,114,111,109,49,54,49,54,32,46,32,109,97,121,98,101,45,102,115,116,97,114,116,43,102,101,110,100,49,54,49,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li325[] C_aligned={C_lihdr(0,0,7),40,97,54,57,48,51,41,0}; static C_char C_TLS li326[] C_aligned={C_lihdr(0,0,7),40,97,54,57,49,53,41,0}; static C_char C_TLS li327[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,54,53,52,41,0,0,0,0,0,0}; static C_char C_TLS li328[] C_aligned={C_lihdr(0,0,27),40,97,54,57,50,49,32,115,116,97,114,116,50,49,54,52,57,32,101,110,100,50,49,54,53,48,41,0,0,0,0,0}; static C_char C_TLS li329[] C_aligned={C_lihdr(0,0,40),40,97,54,57,48,57,32,114,101,115,116,49,54,51,56,49,54,52,51,32,115,116,97,114,116,49,49,54,52,52,32,101,110,100,49,49,54,52,53,41}; static C_char C_TLS li330[] C_aligned={C_lihdr(0,0,66),40,115,116,114,105,110,103,45,99,111,110,116,97,105,110,115,32,115,116,114,105,110,103,49,54,51,50,32,115,117,98,115,116,114,105,110,103,49,54,51,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,49,54,51,52,41,0,0,0,0,0,0}; static C_char C_TLS li331[] C_aligned={C_lihdr(0,0,7),40,97,54,57,54,53,41,0}; static C_char C_TLS li332[] C_aligned={C_lihdr(0,0,7),40,97,54,57,55,55,41,0}; static C_char C_TLS li333[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,54,56,48,41,0,0,0,0,0,0}; static C_char C_TLS li334[] C_aligned={C_lihdr(0,0,27),40,97,54,57,56,51,32,115,116,97,114,116,50,49,54,55,53,32,101,110,100,50,49,54,55,54,41,0,0,0,0,0}; static C_char C_TLS li335[] C_aligned={C_lihdr(0,0,40),40,97,54,57,55,49,32,114,101,115,116,49,54,54,52,49,54,54,57,32,115,116,97,114,116,49,49,54,55,48,32,101,110,100,49,49,54,55,49,41}; static C_char C_TLS li336[] C_aligned={C_lihdr(0,0,69),40,115,116,114,105,110,103,45,99,111,110,116,97,105,110,115,45,99,105,32,115,116,114,105,110,103,49,54,53,56,32,115,117,98,115,116,114,105,110,103,49,54,53,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,49,54,54,48,41,0,0,0}; static C_char C_TLS li337[] C_aligned={C_lihdr(0,0,7),40,97,55,48,51,51,41,0}; static C_char C_TLS li338[] C_aligned={C_lihdr(0,0,11),40,108,112,50,32,106,49,55,48,55,41,0,0,0,0,0}; static C_char C_TLS li339[] C_aligned={C_lihdr(0,0,23),40,108,112,49,32,105,49,55,48,51,32,106,49,55,48,52,32,107,49,55,48,53,41,0}; static C_char C_TLS li340[] C_aligned={C_lihdr(0,0,35),40,97,55,48,51,57,32,114,101,115,116,50,49,54,57,53,32,115,116,97,114,116,49,54,57,54,32,101,110,100,49,54,57,55,41,0,0,0,0,0}; static C_char C_TLS li341[] C_aligned={C_lihdr(0,0,62),40,109,97,107,101,45,107,109,112,45,114,101,115,116,97,114,116,45,118,101,99,116,111,114,32,112,97,116,116,101,114,110,49,54,56,52,32,46,32,109,97,121,98,101,45,99,61,43,115,116,97,114,116,43,101,110,100,49,54,56,53,41,0,0}; static C_char C_TLS li342[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,55,50,57,41,0,0,0,0,0,0}; static C_char C_TLS li343[] C_aligned={C_lihdr(0,0,56),40,107,109,112,45,115,116,101,112,32,112,97,116,49,55,50,50,32,114,118,49,55,50,51,32,99,49,55,50,52,32,105,49,55,50,53,32,99,61,49,55,50,54,32,112,45,115,116,97,114,116,49,55,50,55,41}; static C_char C_TLS li344[] C_aligned={C_lihdr(0,0,7),40,97,55,50,50,50,41,0}; static C_char C_TLS li345[] C_aligned={C_lihdr(0,0,12),40,108,112,50,32,118,105,49,55,54,50,41,0,0,0,0}; static C_char C_TLS li346[] C_aligned={C_lihdr(0,0,18),40,108,112,32,115,105,49,55,53,52,32,118,105,49,55,53,53,41,0,0,0,0,0,0}; static C_char C_TLS li347[] C_aligned={C_lihdr(0,0,39),40,97,55,50,50,56,32,114,101,115,116,50,49,55,52,57,32,115,45,115,116,97,114,116,49,55,53,48,32,115,45,101,110,100,49,55,53,49,41,0}; static C_char C_TLS li348[] C_aligned={C_lihdr(0,0,85),40,115,116,114,105,110,103,45,107,109,112,45,112,97,114,116,105,97,108,45,115,101,97,114,99,104,32,112,97,116,49,55,51,51,32,114,118,49,55,51,52,32,115,49,55,51,53,32,105,49,55,51,54,32,46,32,99,61,43,112,45,115,116,97,114,116,43,115,45,115,116,97,114,116,43,115,45,101,110,100,49,55,51,55,41,0,0,0}; static C_char C_TLS li349[] C_aligned={C_lihdr(0,0,20),40,115,116,114,105,110,103,45,110,117,108,108,63,32,115,49,55,54,55,41,0,0,0,0}; static C_char C_TLS li350[] C_aligned={C_lihdr(0,0,7),40,97,55,51,51,52,41,0}; static C_char C_TLS li351[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,49,55,55,56,32,106,49,55,56,49,41,0,0,0,0,0,0}; static C_char C_TLS li352[] C_aligned={C_lihdr(0,0,25),40,97,55,51,52,48,32,115,116,97,114,116,49,55,55,52,32,101,110,100,49,55,55,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li353[] C_aligned={C_lihdr(0,0,44),40,115,116,114,105,110,103,45,114,101,118,101,114,115,101,32,115,49,55,54,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,55,55,48,41,0,0,0,0}; static C_char C_TLS li354[] C_aligned={C_lihdr(0,0,7),40,97,55,51,56,57,41,0}; static C_char C_TLS li355[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,49,55,57,51,32,106,49,55,57,54,41,0,0,0,0,0,0}; static C_char C_TLS li356[] C_aligned={C_lihdr(0,0,25),40,97,55,51,57,53,32,115,116,97,114,116,49,55,57,49,32,101,110,100,49,55,57,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li357[] C_aligned={C_lihdr(0,0,45),40,115,116,114,105,110,103,45,114,101,118,101,114,115,101,33,32,115,49,55,56,54,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,55,56,55,41,0,0,0}; static C_char C_TLS li358[] C_aligned={C_lihdr(0,0,7),40,97,55,52,52,51,41,0}; static C_char C_TLS li359[] C_aligned={C_lihdr(0,0,26),40,100,111,108,111,111,112,49,56,48,57,32,105,49,56,49,49,32,97,110,115,49,56,49,50,41,0,0,0,0,0,0}; static C_char C_TLS li360[] C_aligned={C_lihdr(0,0,25),40,97,55,52,52,57,32,115,116,97,114,116,49,56,48,55,32,101,110,100,49,56,48,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li361[] C_aligned={C_lihdr(0,0,42),40,115,116,114,105,110,103,45,62,108,105,115,116,32,115,49,56,48,50,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,56,48,51,41,0,0,0,0,0,0}; static C_char C_TLS li362[] C_aligned={C_lihdr(0,0,36),40,115,116,114,105,110,103,45,97,112,112,101,110,100,47,115,104,97,114,101,100,32,46,32,115,116,114,105,110,103,115,49,56,49,53,41,0,0,0,0}; static C_char C_TLS li363[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,56,51,53,41,0,0,0,0,0,0}; static C_char C_TLS li364[] C_aligned={C_lihdr(0,0,37),40,108,112,32,115,116,114,105,110,103,115,49,56,49,57,32,110,99,104,97,114,115,49,56,50,48,32,102,105,114,115,116,49,56,50,49,41,0,0,0}; static C_char C_TLS li365[] C_aligned={C_lihdr(0,0,39),40,115,116,114,105,110,103,45,99,111,110,99,97,116,101,110,97,116,101,47,115,104,97,114,101,100,32,115,116,114,105,110,103,115,49,56,49,55,41,0}; static C_char C_TLS li366[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,49,56,52,53,32,105,49,56,52,56,41,0,0,0,0,0,0}; static C_char C_TLS li367[] C_aligned={C_lihdr(0,0,16),40,108,112,32,115,116,114,105,110,103,115,49,56,53,51,41}; static C_char C_TLS li368[] C_aligned={C_lihdr(0,0,32),40,115,116,114,105,110,103,45,99,111,110,99,97,116,101,110,97,116,101,32,115,116,114,105,110,103,115,49,56,52,51,41}; static C_char C_TLS li369[] C_aligned={C_lihdr(0,0,12),40,108,112,32,108,105,115,49,56,55,53,41,0,0,0,0}; static C_char C_TLS li370[] C_aligned={C_lihdr(0,0,66),40,115,116,114,105,110,103,45,99,111,110,99,97,116,101,110,97,116,101,45,114,101,118,101,114,115,101,32,115,116,114,105,110,103,45,108,105,115,116,49,56,54,48,32,46,32,109,97,121,98,101,45,102,105,110,97,108,43,101,110,100,49,56,54,49,41,0,0,0,0,0,0}; static C_char C_TLS li371[] C_aligned={C_lihdr(0,0,31),40,108,112,32,108,101,110,49,56,57,50,32,110,122,108,105,115,116,49,56,57,51,32,108,105,115,49,56,57,52,41,0}; static C_char C_TLS li372[] C_aligned={C_lihdr(0,0,73),40,115,116,114,105,110,103,45,99,111,110,99,97,116,101,110,97,116,101,45,114,101,118,101,114,115,101,47,115,104,97,114,101,100,32,115,116,114,105,110,103,45,108,105,115,116,49,56,55,57,32,46,32,109,97,121,98,101,45,102,105,110,97,108,43,101,110,100,49,56,56,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li373[] C_aligned={C_lihdr(0,0,12),40,108,112,32,108,105,115,49,57,49,52,41,0,0,0,0}; static C_char C_TLS li374[] C_aligned={C_lihdr(0,0,78),40,37,102,105,110,105,115,104,45,115,116,114,105,110,103,45,99,111,110,99,97,116,101,110,97,116,101,45,114,101,118,101,114,115,101,32,108,101,110,49,57,48,55,32,115,116,114,105,110,103,45,108,105,115,116,49,57,48,56,32,102,105,110,97,108,49,57,48,57,32,101,110,100,49,57,49,48,41,0,0}; static C_char C_TLS li375[] C_aligned={C_lihdr(0,0,7),40,97,55,56,56,57,41,0}; static C_char C_TLS li376[] C_aligned={C_lihdr(0,0,27),40,97,55,56,57,53,32,115,116,97,114,116,50,49,57,51,50,32,101,110,100,50,49,57,51,51,41,0,0,0,0,0}; static C_char C_TLS li377[] C_aligned={C_lihdr(0,0,72),40,115,116,114,105,110,103,45,114,101,112,108,97,99,101,32,115,49,49,57,50,52,32,115,50,49,57,50,53,32,115,116,97,114,116,49,49,57,50,54,32,101,110,100,49,49,57,50,55,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,57,50,56,41}; static C_char C_TLS li378[] C_aligned={C_lihdr(0,0,7),40,97,55,57,52,51,41,0}; static C_char C_TLS li379[] C_aligned={C_lihdr(0,0,20),40,103,49,57,55,57,32,116,115,116,97,114,116,45,49,49,57,56,49,41,0,0,0,0}; static C_char C_TLS li380[] C_aligned={C_lihdr(0,0,18),40,103,49,57,54,57,32,116,101,110,100,45,49,49,57,55,49,41,0,0,0,0,0,0}; static C_char C_TLS li381[] C_aligned={C_lihdr(0,0,18),40,108,112,32,105,49,57,54,48,32,97,110,115,49,57,54,49,41,0,0,0,0,0,0}; static C_char C_TLS li382[] C_aligned={C_lihdr(0,0,25),40,97,55,57,52,57,32,115,116,97,114,116,49,57,53,55,32,101,110,100,49,57,53,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li383[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,116,111,107,101,110,105,122,101,32,115,49,57,52,51,32,46,32,116,111,107,101,110,45,99,104,97,114,115,43,115,116,97,114,116,43,101,110,100,49,57,52,52,41,0,0,0,0,0}; static C_char C_TLS li384[] C_aligned={C_lihdr(0,0,7),40,97,56,48,52,52,41,0}; static C_char C_TLS li385[] C_aligned={C_lihdr(0,0,25),40,97,56,48,53,52,32,115,116,97,114,116,49,57,57,48,32,101,110,100,49,57,57,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li386[] C_aligned={C_lihdr(0,0,7),40,97,56,48,51,50,41,0}; static C_char C_TLS li387[] C_aligned={C_lihdr(0,0,32),40,97,56,48,55,54,32,116,111,49,57,57,53,32,115,116,97,114,116,49,57,57,54,32,101,110,100,49,57,57,55,41}; static C_char C_TLS li388[] C_aligned={C_lihdr(0,0,52),40,120,115,117,98,115,116,114,105,110,103,32,115,49,57,56,52,32,102,114,111,109,49,57,56,53,32,46,32,109,97,121,98,101,45,116,111,43,115,116,97,114,116,43,101,110,100,49,57,56,54,41,0,0,0,0}; static C_char C_TLS li389[] C_aligned={C_lihdr(0,0,7),40,97,56,49,51,55,41,0}; static C_char C_TLS li390[] C_aligned={C_lihdr(0,0,25),40,97,56,49,52,55,32,115,116,97,114,116,50,48,49,55,32,101,110,100,50,48,49,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li391[] C_aligned={C_lihdr(0,0,7),40,97,56,49,50,53,41,0}; static C_char C_TLS li392[] C_aligned={C_lihdr(0,0,33),40,97,56,49,54,57,32,115,116,111,50,48,50,50,32,115,116,97,114,116,50,48,50,51,32,101,110,100,50,48,50,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li393[] C_aligned={C_lihdr(0,0,79),40,115,116,114,105,110,103,45,120,99,111,112,121,33,32,116,97,114,103,101,116,50,48,48,57,32,116,115,116,97,114,116,50,48,49,48,32,115,50,48,49,49,32,115,102,114,111,109,50,48,49,50,32,46,32,109,97,121,98,101,45,115,116,111,43,115,116,97,114,116,43,101,110,100,50,48,49,51,41,0}; static C_char C_TLS li394[] C_aligned={C_lihdr(0,0,29),40,100,111,108,111,111,112,50,48,53,49,32,105,50,48,53,51,32,110,115,112,97,110,115,50,48,53,52,41,0,0,0}; static C_char C_TLS li395[] C_aligned={C_lihdr(0,0,85),40,37,109,117,108,116,105,115,112,97,110,45,114,101,112,99,111,112,121,33,32,116,97,114,103,101,116,50,48,51,56,32,116,115,116,97,114,116,50,48,51,57,32,115,50,48,52,48,32,115,102,114,111,109,50,48,52,49,32,115,116,111,50,48,52,50,32,115,116,97,114,116,50,48,52,51,32,101,110,100,50,48,52,52,41,0,0,0}; static C_char C_TLS li396[] C_aligned={C_lihdr(0,0,15),40,114,101,99,117,114,32,108,105,115,50,48,55,53,41,0}; static C_char C_TLS li397[] C_aligned={C_lihdr(0,0,27),40,98,117,105,108,100,105,116,32,108,105,115,50,48,55,50,32,102,105,110,97,108,50,48,55,51,41,0,0,0,0,0}; static C_char C_TLS li398[] C_aligned={C_lihdr(0,0,45),40,115,116,114,105,110,103,45,106,111,105,110,32,115,116,114,105,110,103,115,50,48,53,57,32,46,32,100,101,108,105,109,43,103,114,97,109,109,97,114,50,48,54,48,41,0,0,0}; static C_char C_TLS li399[] 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_5514) static void C_ccall f_5514(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_word t2) C_noret; C_noret_decl(f_6789) static void C_fcall f_6789(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3816) static void C_fcall f_3816(C_word t0,C_word t1) C_noret; C_noret_decl(f_5536) static void C_ccall f_5536(C_word c,C_word *av) C_noret; C_noret_decl(f_3801) static void C_fcall f_3801(C_word t0,C_word t1) C_noret; C_noret_decl(f_3806) static void C_fcall f_3806(C_word t0,C_word t1,C_word t2,C_word t3) 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_3874) static void C_fcall f_3874(C_word t0,C_word t1) C_noret; C_noret_decl(f_7064) static void C_fcall f_7064(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_7034) static void C_ccall f_7034(C_word c,C_word *av) 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_3837) static void C_ccall f_3837(C_word c,C_word *av) 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_7746) static void C_fcall f_7746(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_7793) static void C_fcall f_7793(C_word t0,C_word t1) C_noret; C_noret_decl(f_5311) static void C_ccall f_5311(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_6483) static void C_ccall f_6483(C_word c,C_word *av) C_noret; C_noret_decl(f_6632) static void C_ccall f_6632(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_6488) static void C_fcall f_6488(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3633) static void C_ccall f_3633(C_word c,C_word *av) C_noret; C_noret_decl(f_3636) static void C_fcall f_3636(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_2564) static void C_ccall f_2564(C_word c,C_word *av) C_noret; C_noret_decl(f_3664) static void C_fcall f_3664(C_word t0,C_word t1) C_noret; C_noret_decl(f_4493) static void C_fcall f_4493(C_word t0,C_word t1) 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_6102) static void C_ccall f_6102(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_3640) static void C_ccall f_3640(C_word c,C_word *av) C_noret; C_noret_decl(f_3649) static void C_fcall f_3649(C_word t0,C_word t1) 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_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_2558) static void C_ccall f_2558(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_4471) static void C_ccall f_4471(C_word c,C_word *av) C_noret; C_noret_decl(f_7960) static void C_ccall f_7960(C_word c,C_word *av) C_noret; C_noret_decl(f_6127) static void C_ccall f_6127(C_word c,C_word *av) C_noret; C_noret_decl(f_7964) static void C_fcall f_7964(C_word t0,C_word t1,C_word t2) 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_6124) static void C_ccall f_6124(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_8024) static void C_ccall f_8024(C_word c,C_word *av) 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_4483) static void C_ccall f_4483(C_word c,C_word *av) C_noret; C_noret_decl(f_6118) static void C_ccall f_6118(C_word c,C_word *av) C_noret; C_noret_decl(f_3654) static void C_fcall f_3654(C_word t0,C_word t1,C_word t2,C_word t3) 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_4950) static void C_ccall f_4950(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_5293) static void C_ccall f_5293(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_6144) static void C_ccall f_6144(C_word c,C_word *av) C_noret; C_noret_decl(f_8001) static void C_ccall f_8001(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_2766) static void C_ccall f_2766(C_word c,C_word *av) C_noret; C_noret_decl(f_4967) static void C_fcall f_4967(C_word t0,C_word t1) 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_6658) static void C_fcall f_6658(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5349) static void C_fcall f_5349(C_word t0,C_word t1) 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_2778) static void C_ccall f_2778(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_2741) static void C_fcall f_2741(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4908) static void C_ccall f_4908(C_word c,C_word *av) C_noret; C_noret_decl(f_7932) static void C_ccall f_7932(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_3612) static void C_fcall f_3612(C_word t0,C_word t1,C_word t2) 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_7854) static C_word C_fcall f_7854(C_word t0,C_word t1,C_word t2); C_noret_decl(f_6151) static void C_ccall f_6151(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_4914) static void C_ccall f_4914(C_word c,C_word *av) C_noret; C_noret_decl(f_6671) static void C_ccall f_6671(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_2723) static void C_ccall f_2723(C_word c,C_word *av) 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_4926) static void C_ccall f_4926(C_word c,C_word *av) 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_word t4) 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_6619) static void C_fcall f_6619(C_word t0,C_word t1,C_word t2) 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_3994) static void C_ccall f_3994(C_word c,C_word *av) C_noret; C_noret_decl(f_3276) static void C_fcall f_3276(C_word t0,C_word t1,C_word t2) 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_3270) static void C_ccall f_3270(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_2739) static void C_ccall f_2739(C_word c,C_word *av) C_noret; C_noret_decl(f_6898) static void C_ccall f_6898(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_6610) static void C_ccall f_6610(C_word c,C_word *av) C_noret; C_noret_decl(f_7842) static void C_fcall f_7842(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_7846) static void C_ccall f_7846(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_2705) static void C_ccall f_2705(C_word c,C_word *av) C_noret; C_noret_decl(f_6195) static C_word C_fcall f_6195(C_word t0,C_word t1); C_noret_decl(f_2711) static void C_ccall f_2711(C_word c,C_word *av) C_noret; C_noret_decl(f_2717) static void C_ccall f_2717(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_3742) static void C_fcall f_3742(C_word t0,C_word t1) 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_8077) static void C_ccall f_8077(C_word c,C_word *av) C_noret; C_noret_decl(f_6882) static void C_ccall f_6882(C_word c,C_word *av) C_noret; C_noret_decl(f_3229) static void C_ccall f_3229(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_8055) static void C_ccall f_8055(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_noret; C_noret_decl(f_3122) static void C_ccall f_3122(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_3706) static void C_fcall f_3706(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_8045) static void C_ccall f_8045(C_word c,C_word *av) C_noret; C_noret_decl(f_2463) static void C_ccall f_2463(C_word c,C_word *av) C_noret; C_noret_decl(f_2466) static void C_ccall f_2466(C_word c,C_word *av) C_noret; C_noret_decl(f_3732) static void C_fcall f_3732(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8033) static void C_ccall f_8033(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_3146) static void C_ccall f_3146(C_word c,C_word *av) C_noret; C_noret_decl(f_2468) static void C_ccall f_2468(C_word c,C_word *av) 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_5708) static void C_fcall f_5708(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4347) static void C_ccall f_4347(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_5700) static void C_ccall f_5700(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_3181) static void C_ccall f_3181(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_3196) static void C_fcall f_3196(C_word t0,C_word t1,C_word t2,C_word t3) 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_3286) static void C_ccall f_3286(C_word c,C_word *av) C_noret; C_noret_decl(f_7438) static void C_ccall f_7438(C_word c,C_word *av) C_noret; C_noret_decl(f_4337) static void C_fcall f_4337(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 t9) 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_4780) static void C_ccall f_4780(C_word c,C_word *av) C_noret; C_noret_decl(f_6230) static void C_fcall f_6230(C_word t0,C_word t1,C_word t2) 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_3109) static void C_fcall f_3109(C_word t0,C_word t1,C_word t2,C_word t3) 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_3103) static void C_fcall f_3103(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_3101) static void C_ccall f_3101(C_word c,C_word *av) C_noret; C_noret_decl(f_6225) static void C_ccall f_6225(C_word c,C_word *av) C_noret; C_noret_decl(f_8111) static void C_ccall f_8111(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_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_4612) static void C_ccall f_4612(C_word c,C_word *av) C_noret; C_noret_decl(f_4618) static void C_ccall f_4618(C_word c,C_word *av) 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_3466) static void C_ccall f_3466(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_3458) static void C_ccall f_3458(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_4144) static void C_ccall f_4144(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_7444) static void C_ccall f_7444(C_word c,C_word *av) C_noret; C_noret_decl(f_7329) static void C_ccall f_7329(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_4606) static void C_ccall f_4606(C_word c,C_word *av) C_noret; C_noret_decl(f_4150) static void C_ccall f_4150(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_7450) static void C_ccall f_7450(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_7335) static void C_ccall f_7335(C_word c,C_word *av) C_noret; C_noret_decl(f_6400) static void C_fcall f_6400(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3436) static void C_fcall f_3436(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4651) static void C_ccall f_4651(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_4654) static void C_ccall f_4654(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_7460) static void C_fcall f_7460(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7341) static void C_ccall f_7341(C_word c,C_word *av) C_noret; C_noret_decl(f_7348) static void C_ccall f_7348(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_4663) static void C_ccall f_4663(C_word c,C_word *av) C_noret; C_noret_decl(f_4669) static void C_ccall f_4669(C_word c,C_word *av) 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_7357) static C_word C_fcall f_7357(C_word t0,C_word t1,C_word t2); C_noret_decl(f_4630) static void C_ccall f_4630(C_word c,C_word *av) C_noret; C_noret_decl(f_4637) static void C_fcall f_4637(C_word t0,C_word t1) C_noret; C_noret_decl(f_7406) static C_word C_fcall f_7406(C_word t0,C_word t1,C_word t2); C_noret_decl(f_6453) static C_word C_fcall f_6453(C_word t0,C_word t1); C_noret_decl(f_6429) static void C_ccall f_6429(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_4645) static void C_ccall f_4645(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_6441) static void C_ccall f_6441(C_word c,C_word *av) C_noret; C_noret_decl(f_6243) static void C_ccall f_6243(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_4120) static void C_ccall f_4120(C_word c,C_word *av) C_noret; C_noret_decl(f_4126) static void C_ccall f_4126(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_7384) static void C_ccall f_7384(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_8170) static void C_ccall f_8170(C_word c,C_word *av) 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_6265) static void C_fcall f_6265(C_word t0,C_word t1,C_word t2) 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_3897) static void C_fcall f_3897(C_word t0,C_word t1) 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_5802) static void C_ccall f_5802(C_word c,C_word *av) C_noret; C_noret_decl(f_7987) static void C_ccall f_7987(C_word c,C_word *av) C_noret; C_noret_decl(f_3887) static void C_fcall f_3887(C_word t0,C_word t1,C_word t2,C_word t3) 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_2585) static void C_ccall f_2585(C_word c,C_word *av) C_noret; C_noret_decl(f_5495) static void C_fcall f_5495(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5499) static void C_ccall f_5499(C_word c,C_word *av) C_noret; C_noret_decl(f_5806) static void C_fcall f_5806(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8138) static void C_ccall f_8138(C_word c,C_word *av) C_noret; C_noret_decl(f_3023) static C_word C_fcall f_3023(C_word t0,C_word t1,C_word t2); C_noret_decl(f_5818) static void C_ccall f_5818(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_2570) static void C_ccall f_2570(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_3520) static void C_ccall f_3520(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_3525) static void C_fcall f_3525(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5443) static void C_ccall f_5443(C_word c,C_word *av) C_noret; C_noret_decl(f_5461) static void C_ccall f_5461(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_6699) static void C_ccall f_6699(C_word c,C_word *av) C_noret; C_noret_decl(f_5467) static void C_fcall f_5467(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5481) static void C_fcall f_5481(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3052) static void C_ccall f_3052(C_word c,C_word *av) C_noret; C_noret_decl(f_6693) static void C_ccall f_6693(C_word c,C_word *av) C_noret; C_noret_decl(f_6687) static void C_ccall f_6687(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_5477) static void C_ccall f_5477(C_word c,C_word *av) C_noret; C_noret_decl(f_5473) static void C_fcall f_5473(C_word t0,C_word t1,C_word t2) 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_7971) static void C_ccall f_7971(C_word c,C_word *av) C_noret; C_noret_decl(f_7896) static void C_ccall f_7896(C_word c,C_word *av) 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_3566) static void C_fcall f_3566(C_word t0,C_word t1,C_word t2) 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_4108) static void C_ccall f_4108(C_word c,C_word *av) C_noret; C_noret_decl(f_4102) static void C_ccall f_4102(C_word c,C_word *av) C_noret; C_noret_decl(f_7885) static void C_ccall f_7885(C_word c,C_word *av) 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_4114) static void C_ccall f_4114(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_4569) static void C_ccall f_4569(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_4539) static void C_ccall f_4539(C_word c,C_word *av) C_noret; C_noret_decl(f_3063) static void C_ccall f_3063(C_word c,C_word *av) C_noret; C_noret_decl(f_5035) static void C_ccall f_5035(C_word c,C_word *av) C_noret; C_noret_decl(f_5032) static void C_ccall f_5032(C_word c,C_word *av) C_noret; C_noret_decl(f_4504) static void C_ccall f_4504(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_5044) static void C_ccall f_5044(C_word c,C_word *av) C_noret; C_noret_decl(f_4551) static void C_ccall f_4551(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_6947) static void C_ccall f_6947(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_5005) static void C_ccall f_5005(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_4987) static void C_ccall f_4987(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_6934) static void C_fcall f_6934(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3360) static C_word C_fcall f_3360(C_word t0,C_word t1); C_noret_decl(f_4381) static void C_ccall f_4381(C_word c,C_word *av) 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_4993) static void C_ccall f_4993(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_7106) static void C_ccall f_7106(C_word c,C_word *av) C_noret; C_noret_decl(f_6010) static void C_ccall f_6010(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_6028) static void C_ccall f_6028(C_word c,C_word *av) C_noret; C_noret_decl(f_2784) static void C_ccall f_2784(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_6019) static void C_ccall f_6019(C_word c,C_word *av) C_noret; C_noret_decl(f_6013) static void C_ccall f_6013(C_word c,C_word *av) C_noret; C_noret_decl(f_6016) static void C_ccall f_6016(C_word c,C_word *av) C_noret; C_noret_decl(f_4874) static void C_fcall f_4874(C_word t0,C_word t1) C_noret; C_noret_decl(f_5050) static void C_ccall f_5050(C_word c,C_word *av) C_noret; C_noret_decl(f_2790) static void C_fcall f_2790(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_5056) static void C_ccall f_5056(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_2796) static void C_fcall f_2796(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6922) static void C_ccall f_6922(C_word c,C_word *av) C_noret; C_noret_decl(f_3311) static void C_ccall f_3311(C_word c,C_word *av) C_noret; C_noret_decl(f_3317) static void C_fcall f_3317(C_word t0,C_word t1,C_word t2) 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_6043) static void C_ccall f_6043(C_word c,C_word *av) C_noret; C_noret_decl(f_4846) static void C_ccall f_4846(C_word c,C_word *av) C_noret; C_noret_decl(f_4840) static void C_ccall f_4840(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_6916) static void C_ccall f_6916(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_3342) static void C_ccall f_3342(C_word c,C_word *av) C_noret; C_noret_decl(f_3348) static void C_ccall f_3348(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_4852) static void C_ccall f_4852(C_word c,C_word *av) C_noret; C_noret_decl(f_5075) static void C_fcall f_5075(C_word t0,C_word t1) C_noret; C_noret_decl(f_4858) static void C_ccall f_4858(C_word c,C_word *av) C_noret; C_noret_decl(f_5068) static void C_ccall f_5068(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_5083) static void C_ccall f_5083(C_word c,C_word *av) C_noret; C_noret_decl(f_5086) static void C_ccall f_5086(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_5011) static void C_ccall f_5011(C_word c,C_word *av) C_noret; C_noret_decl(f_5089) static void C_ccall f_5089(C_word c,C_word *av) C_noret; C_noret_decl(f_6960) static void C_ccall f_6960(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_3788) static void C_fcall f_3788(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_6088) static void C_ccall f_6088(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_5026) static void C_ccall f_5026(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_5018) static void C_fcall f_5018(C_word t0,C_word t1) C_noret; C_noret_decl(f_7180) static void C_ccall f_7180(C_word c,C_word *av) C_noret; C_noret_decl(f_3305) static void C_ccall f_3305(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_4811) static void C_fcall f_4811(C_word t0,C_word t1) C_noret; C_noret_decl(f_4819) static void C_ccall f_4819(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_6904) static void C_ccall f_6904(C_word c,C_word *av) C_noret; C_noret_decl(f_4864) static void C_ccall f_4864(C_word c,C_word *av) 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_6063) static void C_ccall f_6063(C_word c,C_word *av) C_noret; C_noret_decl(f_7550) static C_word C_fcall f_7550(C_word t0,C_word t1,C_word t2); C_noret_decl(f_3490) static C_word C_fcall f_3490(C_word t0,C_word t1); C_noret_decl(f_7484) static void C_ccall f_7484(C_word c,C_word *av) C_noret; C_noret_decl(f_5682) static void C_ccall f_5682(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(f_4828) static void C_ccall f_4828(C_word c,C_word *av) C_noret; C_noret_decl(f_7167) static void C_ccall f_7167(C_word c,C_word *av) C_noret; C_noret_decl(f_7496) static void C_fcall f_7496(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_5694) static void C_ccall f_5694(C_word c,C_word *av) C_noret; C_noret_decl(f_7490) static void C_ccall f_7490(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_7173) static void C_fcall f_7173(C_word t0,C_word t1,C_word t2) 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_2823) static void C_ccall f_2823(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_2829) static void C_ccall f_2829(C_word c,C_word *av) C_noret; C_noret_decl(f_2841) static void C_fcall f_2841(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5413) static void C_ccall f_5413(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_5407) static void C_ccall f_5407(C_word c,C_word *av) C_noret; C_noret_decl(f_2855) static void C_ccall f_2855(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_5662) static void C_ccall f_5662(C_word c,C_word *av) 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_2865) static void C_ccall f_2865(C_word c,C_word *av) C_noret; C_noret_decl(f_5431) static void C_ccall f_5431(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_2871) static void C_ccall f_2871(C_word c,C_word *av) C_noret; C_noret_decl(f_5893) static void C_ccall f_5893(C_word c,C_word *av) C_noret; C_noret_decl(f_5437) static void C_ccall f_5437(C_word c,C_word *av) C_noret; C_noret_decl(f_8243) static void C_fcall f_8243(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2877) static void C_ccall f_2877(C_word c,C_word *av) C_noret; C_noret_decl(f_4694) static void C_fcall f_4694(C_word t0,C_word t1) C_noret; C_noret_decl(f_2887) static void C_fcall f_2887(C_word t0,C_word t1,C_word t2,C_word t3) 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_8212) static void C_fcall f_8212(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_4675) static void C_ccall f_4675(C_word c,C_word *av) C_noret; C_noret_decl(f_5401) static void C_ccall f_5401(C_word c,C_word *av) C_noret; C_noret_decl(f_8283) static void C_ccall f_8283(C_word c,C_word *av) C_noret; C_noret_decl(f_8285) static void C_ccall f_8285(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_4681) static void C_ccall f_4681(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_7674) static C_word C_fcall f_7674(C_word t0,C_word t1); C_noret_decl(f_6552) static void C_ccall f_6552(C_word c,C_word *av) C_noret; C_noret_decl(f_6558) static void C_ccall f_6558(C_word c,C_word *av) C_noret; C_noret_decl(f_5223) static void C_fcall f_5223(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5221) static void C_fcall f_5221(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_6580) static C_word C_fcall f_6580(C_word t0,C_word t1); C_noret_decl(f_8325) static void C_ccall f_8325(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_2660) static void C_ccall f_2660(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_4586) static void C_fcall f_4586(C_word t0,C_word t1) C_noret; C_noret_decl(f_8299) static void C_fcall f_8299(C_word t0,C_word t1,C_word t2,C_word t3) 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_2631) static void C_ccall f_2631(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_4036) static void C_ccall f_4036(C_word c,C_word *av) C_noret; C_noret_decl(f_5200) static void C_ccall f_5200(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_4084) static void C_ccall f_4084(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_4096) static void C_ccall f_4096(C_word c,C_word *av) C_noret; C_noret_decl(f_8355) static void C_ccall f_8355(C_word c,C_word *av) C_noret; C_noret_decl(f_4575) static void C_ccall f_4575(C_word c,C_word *av) C_noret; C_noret_decl(f_4578) static void C_ccall f_4578(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_4066) static void C_ccall f_4066(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_5272) static void C_ccall f_5272(C_word c,C_word *av) C_noret; C_noret_decl(f_5274) static C_word C_fcall f_5274(C_word t0,C_word t1); C_noret_decl(f_5192) static void C_fcall f_5192(C_word t0,C_word t1) 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_2647) static void C_ccall f_2647(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_4048) static void C_ccall f_4048(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_6750) static void C_fcall f_6750(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3596) static void C_ccall f_3596(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_5961) static void C_ccall f_5961(C_word c,C_word *av) C_noret; C_noret_decl(f_5239) static void C_fcall f_5239(C_word t0,C_word t1,C_word t2,C_word t3) 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_6745) static void C_ccall f_6745(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_7396) static void C_ccall f_7396(C_word c,C_word *av) C_noret; C_noret_decl(f_7390) static void C_ccall f_7390(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_5908) static void C_ccall f_5908(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_4000) static void C_ccall f_4000(C_word c,C_word *av) C_noret; C_noret_decl(f_5585) static void C_ccall f_5585(C_word c,C_word *av) 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_3395) static void C_fcall f_3395(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_4018) static void C_ccall f_4018(C_word c,C_word *av) C_noret; C_noret_decl(f_4012) static void C_ccall f_4012(C_word c,C_word *av) C_noret; C_noret_decl(f_6711) static C_word C_fcall f_6711(C_word t0,C_word t1,C_word t2); C_noret_decl(f_5592) static void C_ccall f_5592(C_word c,C_word *av) C_noret; C_noret_decl(f_6996) static void C_fcall f_6996(C_word t0,C_word t1,C_word t2) 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_2974) static void C_ccall f_2974(C_word c,C_word *av) C_noret; C_noret_decl(f_2977) static void C_ccall f_2977(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_5914) static void C_ccall f_5914(C_word c,C_word *av) 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_2949) static void C_ccall f_2949(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_2952) static void C_ccall f_2952(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_6984) static void C_ccall f_6984(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_5579) static void C_ccall f_5579(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_6972) static void C_ccall f_6972(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(C_srfi_2d13_toplevel) C_externexport void C_ccall C_srfi_2d13_toplevel(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_2933) static void C_fcall f_2933(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_2939) static void C_fcall f_2939(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6978) static void C_ccall f_6978(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_2901) static void C_ccall f_2901(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_3946) static void C_ccall f_3946(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_4453) static void C_ccall f_4453(C_word c,C_word *av) C_noret; C_noret_decl(f_4459) static void C_ccall f_4459(C_word c,C_word *av) 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_5612) static void C_ccall f_5612(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_7583) static void C_ccall f_7583(C_word c,C_word *av) C_noret; C_noret_decl(f_4435) static void C_ccall f_4435(C_word c,C_word *av) C_noret; C_noret_decl(f_3952) static void C_ccall f_3952(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_7595) static C_word C_fcall f_7595(C_word t0,C_word t1,C_word t2); C_noret_decl(f_7590) static void C_ccall f_7590(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_4441) static void C_ccall f_4441(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_3982) static void C_ccall f_3982(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_5632) static void C_ccall f_5632(C_word c,C_word *av) C_noret; C_noret_decl(f_5146) static void C_ccall f_5146(C_word c,C_word *av) C_noret; C_noret_decl(f_5140) static void C_ccall f_5140(C_word c,C_word *av) C_noret; C_noret_decl(f_4411) static void C_ccall f_4411(C_word c,C_word *av) C_noret; C_noret_decl(f_4417) static void C_ccall f_4417(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_3976) static void C_ccall f_3976(C_word c,C_word *av) C_noret; C_noret_decl(f_5113) static void C_ccall f_5113(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_4423) static void C_ccall f_4423(C_word c,C_word *av) C_noret; C_noret_decl(f_4429) static void C_ccall f_4429(C_word c,C_word *av) C_noret; C_noret_decl(f_6844) static C_word C_fcall f_6844(C_word t0,C_word t1); C_noret_decl(f_5132) static void C_fcall f_5132(C_word t0,C_word t1) 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_5101) static void C_ccall f_5101(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_5107) static void C_ccall f_5107(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_6322) static C_word C_fcall f_6322(C_word t0,C_word t1); C_noret_decl(f_4885) static void C_ccall f_4885(C_word c,C_word *av) C_noret; C_noret_decl(f_4882) static void C_ccall f_4882(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_7205) static void C_ccall f_7205(C_word c,C_word *av) 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_6810) static void C_ccall f_6810(C_word c,C_word *av) C_noret; C_noret_decl(f_5161) static void C_ccall f_5161(C_word c,C_word *av) C_noret; C_noret_decl(f_5167) static void C_ccall f_5167(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_4751) static void C_fcall f_4751(C_word t0,C_word t1) C_noret; C_noret_decl(f_4759) static void C_ccall f_4759(C_word c,C_word *av) C_noret; C_noret_decl(f_6306) static void C_ccall f_6306(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_7223) static void C_ccall f_7223(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_7229) static void C_ccall f_7229(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_6501) static void C_ccall f_6501(C_word c,C_word *av) 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_4249) static void C_ccall f_4249(C_word c,C_word *av) C_noret; C_noret_decl(f_7238) static void C_fcall f_7238(C_word t0,C_word t1,C_word t2,C_word t3) 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_5152) static void C_ccall f_5152(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_4705) static void C_ccall f_4705(C_word c,C_word *av) C_noret; C_noret_decl(f_4708) static void C_ccall f_4708(C_word c,C_word *av) C_noret; C_noret_decl(f_7620) static C_word C_fcall f_7620(C_word t0,C_word t1); C_noret_decl(f_6523) static void C_fcall f_6523(C_word t0,C_word t1,C_word t2) 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_6869) static void C_ccall f_6869(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_4272) static void C_ccall f_4272(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_4278) static void C_fcall f_4278(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 t9) 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_7268) static void C_ccall f_7268(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_4726) static void C_ccall f_4726(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_7270) static void C_fcall f_7270(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_4732) static void C_ccall f_4732(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_7650) static void C_ccall f_7650(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_6536) static void C_ccall f_6536(C_word c,C_word *av) C_noret; C_noret_decl(f_6361) static void C_fcall f_6361(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6352) static void C_ccall f_6352(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_2678) static void C_fcall f_2678(C_word t0,C_word t1) C_noret; C_noret_decl(f_5395) static void C_ccall f_5395(C_word c,C_word *av) C_noret; C_noret_decl(f_2671) static void C_fcall f_2671(C_word t0,C_word t1,C_word t2,C_word t3) 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_7040) static void C_ccall f_7040(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_5792) static void C_ccall f_5792(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_2699) static void C_ccall f_2699(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_3861) static void C_fcall f_3861(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_3865) static void C_ccall f_3865(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_5747) static void C_ccall f_5747(C_word c,C_word *av) C_noret; C_noret_decl(f_5741) static void C_ccall f_5741(C_word c,C_word *av) 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_5983) static void C_ccall f_5983(C_word c,C_word *av) C_noret; C_noret_decl(f_5980) static void C_ccall f_5980(C_word c,C_word *av) C_noret; C_noret_decl(f_5755) static void C_fcall f_5755(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5751) static void C_ccall f_5751(C_word c,C_word *av) C_noret; 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_7076(t0,t1,t2);} C_noret_decl(trf_6789) static void C_ccall trf_6789(C_word c,C_word *av) C_noret; static void C_ccall trf_6789(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6789(t0,t1,t2,t3);} C_noret_decl(trf_3816) static void C_ccall trf_3816(C_word c,C_word *av) C_noret; static void C_ccall trf_3816(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3816(t0,t1);} C_noret_decl(trf_3801) static void C_ccall trf_3801(C_word c,C_word *av) C_noret; static void C_ccall trf_3801(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3801(t0,t1);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3806(t0,t1,t2,t3);} C_noret_decl(trf_3874) static void C_ccall trf_3874(C_word c,C_word *av) C_noret; static void C_ccall trf_3874(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3874(t0,t1);} C_noret_decl(trf_7064) static void C_ccall trf_7064(C_word c,C_word *av) C_noret; static void C_ccall trf_7064(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_7064(t0,t1,t2,t3,t4);} 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_7746) static void C_ccall trf_7746(C_word c,C_word *av) C_noret; static void C_ccall trf_7746(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_7746(t0,t1,t2,t3,t4);} C_noret_decl(trf_7793) static void C_ccall trf_7793(C_word c,C_word *av) C_noret; static void C_ccall trf_7793(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7793(t0,t1);} C_noret_decl(trf_6488) static void C_ccall trf_6488(C_word c,C_word *av) C_noret; static void C_ccall trf_6488(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6488(t0,t1,t2);} C_noret_decl(trf_3636) static void C_ccall trf_3636(C_word c,C_word *av) C_noret; static void C_ccall trf_3636(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_3636(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_3664) static void C_ccall trf_3664(C_word c,C_word *av) C_noret; static void C_ccall trf_3664(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3664(t0,t1);} C_noret_decl(trf_4493) static void C_ccall trf_4493(C_word c,C_word *av) C_noret; static void C_ccall trf_4493(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4493(t0,t1);} C_noret_decl(trf_3649) static void C_ccall trf_3649(C_word c,C_word *av) C_noret; static void C_ccall trf_3649(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3649(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_7964) static void C_ccall trf_7964(C_word c,C_word *av) C_noret; static void C_ccall trf_7964(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7964(t0,t1,t2);} C_noret_decl(trf_3654) static void C_ccall trf_3654(C_word c,C_word *av) C_noret; static void C_ccall trf_3654(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3654(t0,t1,t2,t3);} C_noret_decl(trf_4967) static void C_ccall trf_4967(C_word c,C_word *av) C_noret; static void C_ccall trf_4967(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4967(t0,t1);} C_noret_decl(trf_6658) static void C_ccall trf_6658(C_word c,C_word *av) C_noret; static void C_ccall trf_6658(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6658(t0,t1,t2);} C_noret_decl(trf_5349) static void C_ccall trf_5349(C_word c,C_word *av) C_noret; static void C_ccall trf_5349(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5349(t0,t1);} C_noret_decl(trf_2741) static void C_ccall trf_2741(C_word c,C_word *av) C_noret; static void C_ccall trf_2741(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2741(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_3612(t0,t1,t2);} 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[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_2729(t0,t1,t2,t3,t4);} C_noret_decl(trf_6619) static void C_ccall trf_6619(C_word c,C_word *av) C_noret; static void C_ccall trf_6619(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6619(t0,t1,t2);} C_noret_decl(trf_3276) static void C_ccall trf_3276(C_word c,C_word *av) C_noret; static void C_ccall trf_3276(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3276(t0,t1,t2);} C_noret_decl(trf_7842) static void C_ccall trf_7842(C_word c,C_word *av) C_noret; static void C_ccall trf_7842(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_7842(t0,t1,t2,t3,t4);} C_noret_decl(trf_3742) static void C_ccall trf_3742(C_word c,C_word *av) C_noret; static void C_ccall trf_3742(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3742(t0,t1);} 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[1]; C_word t1=av[0]; f_3719(t0,t1);} C_noret_decl(trf_3706) static void C_ccall trf_3706(C_word c,C_word *av) C_noret; static void C_ccall trf_3706(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_3706(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_3732) static void C_ccall trf_3732(C_word c,C_word *av) C_noret; static void C_ccall trf_3732(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3732(t0,t1,t2,t3);} C_noret_decl(trf_5708) static void C_ccall trf_5708(C_word c,C_word *av) C_noret; static void C_ccall trf_5708(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5708(t0,t1,t2);} C_noret_decl(trf_3196) static void C_ccall trf_3196(C_word c,C_word *av) C_noret; static void C_ccall trf_3196(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3196(t0,t1,t2,t3);} C_noret_decl(trf_4337) static void C_ccall trf_4337(C_word c,C_word *av) C_noret; static void C_ccall trf_4337(C_word c,C_word *av){ C_word t0=av[9]; C_word t1=av[8]; C_word t2=av[7]; C_word t3=av[6]; C_word t4=av[5]; C_word t5=av[4]; C_word t6=av[3]; C_word t7=av[2]; C_word t8=av[1]; C_word t9=av[0]; f_4337(t0,t1,t2,t3,t4,t5,t6,t7,t8,t9);} C_noret_decl(trf_6230) static void C_ccall trf_6230(C_word c,C_word *av) C_noret; static void C_ccall trf_6230(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6230(t0,t1,t2);} C_noret_decl(trf_3109) static void C_ccall trf_3109(C_word c,C_word *av) C_noret; static void C_ccall trf_3109(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3109(t0,t1,t2,t3);} C_noret_decl(trf_3103) static void C_ccall trf_3103(C_word c,C_word *av) C_noret; static void C_ccall trf_3103(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_3103(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_6400) static void C_ccall trf_6400(C_word c,C_word *av) C_noret; static void C_ccall trf_6400(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6400(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_3436(t0,t1,t2);} C_noret_decl(trf_7460) static void C_ccall trf_7460(C_word c,C_word *av) C_noret; static void C_ccall trf_7460(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7460(t0,t1,t2,t3);} C_noret_decl(trf_4637) static void C_ccall trf_4637(C_word c,C_word *av) C_noret; static void C_ccall trf_4637(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4637(t0,t1);} C_noret_decl(trf_6265) static void C_ccall trf_6265(C_word c,C_word *av) C_noret; static void C_ccall trf_6265(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6265(t0,t1,t2);} C_noret_decl(trf_3897) static void C_ccall trf_3897(C_word c,C_word *av) C_noret; static void C_ccall trf_3897(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3897(t0,t1);} C_noret_decl(trf_3887) static void C_ccall trf_3887(C_word c,C_word *av) C_noret; static void C_ccall trf_3887(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3887(t0,t1,t2,t3);} C_noret_decl(trf_5495) static void C_ccall trf_5495(C_word c,C_word *av) C_noret; static void C_ccall trf_5495(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5495(t0,t1,t2);} C_noret_decl(trf_5806) static void C_ccall trf_5806(C_word c,C_word *av) C_noret; static void C_ccall trf_5806(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5806(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_3525(t0,t1,t2);} C_noret_decl(trf_5467) static void C_ccall trf_5467(C_word c,C_word *av) C_noret; static void C_ccall trf_5467(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5467(t0,t1,t2,t3);} C_noret_decl(trf_5481) static void C_ccall trf_5481(C_word c,C_word *av) C_noret; static void C_ccall trf_5481(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5481(t0,t1,t2);} C_noret_decl(trf_5473) static void C_ccall trf_5473(C_word c,C_word *av) C_noret; static void C_ccall trf_5473(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5473(t0,t1,t2);} 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_3566) static void C_ccall trf_3566(C_word c,C_word *av) C_noret; static void C_ccall trf_3566(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3566(t0,t1,t2);} C_noret_decl(trf_6934) static void C_ccall trf_6934(C_word c,C_word *av) C_noret; static void C_ccall trf_6934(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6934(t0,t1,t2);} 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[1]; C_word t1=av[0]; f_4874(t0,t1);} C_noret_decl(trf_2790) static void C_ccall trf_2790(C_word c,C_word *av) C_noret; static void C_ccall trf_2790(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_2790(t0,t1,t2,t3,t4);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_2796(t0,t1,t2);} C_noret_decl(trf_3317) static void C_ccall trf_3317(C_word c,C_word *av) C_noret; static void C_ccall trf_3317(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3317(t0,t1,t2);} C_noret_decl(trf_5075) static void C_ccall trf_5075(C_word c,C_word *av) C_noret; static void C_ccall trf_5075(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5075(t0,t1);} C_noret_decl(trf_3788) static void C_ccall trf_3788(C_word c,C_word *av) C_noret; static void C_ccall trf_3788(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_3788(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_5018) static void C_ccall trf_5018(C_word c,C_word *av) C_noret; static void C_ccall trf_5018(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5018(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_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[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_7496(t0,t1,t2,t3,t4);} C_noret_decl(trf_7173) static void C_ccall trf_7173(C_word c,C_word *av) C_noret; static void C_ccall trf_7173(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7173(t0,t1,t2);} C_noret_decl(trf_2841) static void C_ccall trf_2841(C_word c,C_word *av) C_noret; static void C_ccall trf_2841(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2841(t0,t1,t2,t3);} C_noret_decl(trf_8243) static void C_ccall trf_8243(C_word c,C_word *av) C_noret; static void C_ccall trf_8243(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8243(t0,t1,t2,t3);} C_noret_decl(trf_4694) static void C_ccall trf_4694(C_word c,C_word *av) C_noret; static void C_ccall trf_4694(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4694(t0,t1);} C_noret_decl(trf_2887) static void C_ccall trf_2887(C_word c,C_word *av) C_noret; static void C_ccall trf_2887(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2887(t0,t1,t2,t3);} 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_8212) static void C_ccall trf_8212(C_word c,C_word *av) C_noret; static void C_ccall trf_8212(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_8212(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_5223) static void C_ccall trf_5223(C_word c,C_word *av) C_noret; static void C_ccall trf_5223(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5223(t0,t1,t2,t3);} C_noret_decl(trf_5221) static void C_ccall trf_5221(C_word c,C_word *av) C_noret; static void C_ccall trf_5221(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_5221(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_4586) static void C_ccall trf_4586(C_word c,C_word *av) C_noret; static void C_ccall trf_4586(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4586(t0,t1);} C_noret_decl(trf_8299) static void C_ccall trf_8299(C_word c,C_word *av) C_noret; static void C_ccall trf_8299(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8299(t0,t1,t2,t3);} C_noret_decl(trf_5192) static void C_ccall trf_5192(C_word c,C_word *av) C_noret; static void C_ccall trf_5192(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5192(t0,t1);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6750(t0,t1,t2,t3);} C_noret_decl(trf_5239) static void C_ccall trf_5239(C_word c,C_word *av) C_noret; static void C_ccall trf_5239(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5239(t0,t1,t2,t3);} C_noret_decl(trf_3395) static void C_ccall trf_3395(C_word c,C_word *av) C_noret; static void C_ccall trf_3395(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3395(t0,t1,t2);} C_noret_decl(trf_6996) static void C_ccall trf_6996(C_word c,C_word *av) C_noret; static void C_ccall trf_6996(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6996(t0,t1,t2);} C_noret_decl(trf_2933) static void C_ccall trf_2933(C_word c,C_word *av) C_noret; static void C_ccall trf_2933(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_2933(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_2939) static void C_ccall trf_2939(C_word c,C_word *av) C_noret; static void C_ccall trf_2939(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2939(t0,t1,t2,t3);} C_noret_decl(trf_5132) static void C_ccall trf_5132(C_word c,C_word *av) C_noret; static void C_ccall trf_5132(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5132(t0,t1);} C_noret_decl(trf_4751) static void C_ccall trf_4751(C_word c,C_word *av) C_noret; static void C_ccall trf_4751(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4751(t0,t1);} C_noret_decl(trf_7238) static void C_ccall trf_7238(C_word c,C_word *av) C_noret; static void C_ccall trf_7238(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7238(t0,t1,t2,t3);} C_noret_decl(trf_6523) static void C_ccall trf_6523(C_word c,C_word *av) C_noret; static void C_ccall trf_6523(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6523(t0,t1,t2);} 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[9]; C_word t1=av[8]; C_word t2=av[7]; C_word t3=av[6]; C_word t4=av[5]; C_word t5=av[4]; C_word t6=av[3]; C_word t7=av[2]; C_word t8=av[1]; C_word t9=av[0]; f_4278(t0,t1,t2,t3,t4,t5,t6,t7,t8,t9);} C_noret_decl(trf_7270) static void C_ccall trf_7270(C_word c,C_word *av) C_noret; static void C_ccall trf_7270(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7270(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_6361(t0,t1,t2);} C_noret_decl(trf_2678) static void C_ccall trf_2678(C_word c,C_word *av) C_noret; static void C_ccall trf_2678(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2678(t0,t1);} C_noret_decl(trf_2671) static void C_ccall trf_2671(C_word c,C_word *av) C_noret; static void C_ccall trf_2671(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2671(t0,t1,t2,t3);} C_noret_decl(trf_3861) static void C_ccall trf_3861(C_word c,C_word *av) C_noret; static void C_ccall trf_3861(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_3861(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_5755) static void C_ccall trf_5755(C_word c,C_word *av) C_noret; static void C_ccall trf_5755(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5755(t0,t1,t2);} /* a5513 in g1232 in k5475 in lp in %string-titlecase! in k2464 in k2461 */ 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=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_5514,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_u_i_char_alphabeticp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* lp2 in lp1 in k7045 in a7039 in make-kmp-restart-vector in k2464 in k2461 */ static void C_fcall f_7076(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_7076,3,t0,t1,t2);} a=C_alloc(9); t3=t2; t4=C_eqp(t3,C_fix(-1)); if(C_truep(t4)){ t5=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t6=t5; t7=C_fixnum_increase(((C_word*)t0)[3]); t8=C_i_string_ref(((C_word*)t0)[4],t7); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7106,a[2]=((C_word*)t0)[5],a[3]=t6,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1425: c= */ t10=((C_word*)t0)[7];{ C_word av2[4]; av2[0]=t10; av2[1]=t9; av2[2]=t8; av2[3]=((C_word*)t0)[8]; ((C_proc)C_fast_retrieve_proc(t10))(4,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7116,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); t6=C_i_string_ref(((C_word*)t0)[4],((C_word*)t0)[3]); t7=C_fixnum_plus(t2,((C_word*)t0)[10]); t8=C_i_string_ref(((C_word*)t0)[4],t7); /* srfi-13.scm:1429: c= */ t9=((C_word*)t0)[7];{ C_word av2[4]; av2[0]=t9; av2[1]=t5; av2[2]=t6; av2[3]=t8; ((C_proc)C_fast_retrieve_proc(t9))(4,av2);}}} /* doloop1594 in k6743 in a6698 in string-count in k2464 in k2461 */ static void C_fcall f_6789(C_word t0,C_word t1,C_word 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_6789,4,t0,t1,t2,t3);} a=C_alloc(6); t4=t2; t5=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t4,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|5,a[1]=(C_word)f_6810,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t7,tmp=(C_word)a,a+=6,tmp); t9=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:1292: criteria */ t10=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)C_fast_retrieve_proc(t10))(3,av2);}}} /* k3814 in lp in k3799 in k3790 in %string-prefix-length-ci in k2464 in k2461 */ static void C_fcall f_3816(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_3816,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_fixnum_difference(((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t3=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); /* srfi-13.scm:626: lp */ t4=((C_word*)((C_word*)t0)[6])[1]; f_3806(t4,((C_word*)t0)[2],t2,t3);}} /* a5535 in lp in %string-titlecase! in k2464 in k2461 */ static void C_ccall f_5536(C_word c,C_word *av){ C_word tmp; C_word 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_5536,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_u_i_char_alphabeticp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3799 in k3790 in %string-prefix-length-ci in k2464 in k2461 */ static void C_fcall f_3801(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_3801,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_word*)t0)[3]; ((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_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3806,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)li67),tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_3806(t5,((C_word*)t0)[2],((C_word*)t0)[5],((C_word*)t0)[8]);}} /* lp in k3799 in k3790 in %string-prefix-length-ci in k2464 in k2461 */ static void C_fcall f_3806(C_word t0,C_word t1,C_word 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(10,0,3)))){ C_save_and_reclaim_args((void *)trf_3806,4,t0,t1,t2,t3);} a=C_alloc(10); t4=t2; t5=C_fixnum_greater_or_equal_p(t4,((C_word*)t0)[2]); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3816,a[2]=t1,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); if(C_truep(t5)){ t7=t6; f_3816(t7,t5);} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3837,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=C_i_string_ref(((C_word*)t0)[5],t2); t9=C_i_string_ref(((C_word*)t0)[6],t3); /* srfi-13.scm:623: char-ci=? */ t10=*((C_word*)lf[41]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t7; av2[2]=t8; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}} /* a5993 in k5978 in a5966 in string-delete in k2464 in k2461 */ 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=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,2)))){ C_save_and_reclaim((void *)f_5994,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6001,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1125: criteria */ t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k3872 in k3863 in %string-suffix-length-ci in k2464 in k2461 */ static void C_fcall f_3874(C_word t0,C_word 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(10,0,4)))){ C_save_and_reclaim_args((void *)trf_3874,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_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_difference(((C_word*)t0)[4],C_fix(1)); t3=C_fixnum_difference(((C_word*)t0)[5],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|7,a[1]=(C_word)f_3887,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=t5,a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word)li69),tmp=(C_word)a,a+=8,tmp)); t7=((C_word*)t5)[1]; f_3887(t7,((C_word*)t0)[2],t2,t3);}} /* lp1 in k7045 in a7039 in make-kmp-restart-vector in k2464 in k2461 */ static void C_fcall f_7064(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,3)))){ C_save_and_reclaim_args((void *)trf_7064,5,t0,t1,t2,t3,t4);} a=C_alloc(14); t5=t2; if(C_truep(C_fixnum_lessp(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|11,a[1]=(C_word)f_7076,a[2]=t2,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]=t7,a[10]=((C_word*)t0)[8],a[11]=((C_word)li338),tmp=(C_word)a,a+=12,tmp)); t9=((C_word*)t7)[1]; f_7076(t9,t1,t3);} 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);}}} /* a7033 in make-kmp-restart-vector in k2464 in k2461 */ static void C_ccall f_7034(C_word c,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_7034,2,av);} /* srfi-13.scm:1405: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[115]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7048 in k7045 in a7039 in make-kmp-restart-vector in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7050,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3835 in lp in k3799 in k3790 in %string-prefix-length-ci in k2464 in k2461 */ static void C_ccall f_3837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3837,2,av);} t2=((C_word*)t0)[2]; f_3816(t2,C_i_not(t1));} /* k5301 in string-hash in k2464 in k2461 */ static void C_fcall f_5303(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_5303,2,t0,t1);} a=C_alloc(10); t2=C_i_check_exact_2(((C_word*)((C_word*)t0)[2])[1],lf[70]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5311,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li223),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5317,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word)li224),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:938: ##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);}} /* lp in string-concatenate-reverse/shared in k2464 in k2461 */ static void C_fcall f_7746(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(7,0,4)))){ C_save_and_reclaim_args((void *)trf_7746,5,t0,t1,t2,t3,t4);} a=C_alloc(7); if(C_truep(C_i_pairp(t4))){ t5=t4; t6=C_u_i_car(t5); t7=C_i_string_length(t6); t8=C_fixnum_plus(t2,t7); t9=t3; t10=(C_truep(t9)?t9:C_eqp(t7,C_fix(0))); if(C_truep(t10)){ t11=t3; t12=t4; t13=C_u_i_cdr(t12); /* srfi-13.scm:1649: lp */ t15=t1; t16=t8; t17=t11; t18=t13; t1=t15; t2=t16; t3=t17; t4=t18; goto loop;} else{ t11=t4; t12=t4; t13=C_u_i_cdr(t12); /* srfi-13.scm:1649: lp */ t15=t1; t16=t8; t17=t11; t18=t13; t1=t15; t2=t16; t3=t17; t4=t18; goto loop;}} else{ t5=C_eqp(t2,C_fix(0)); if(C_truep(t5)){ /* srfi-13.scm:1653: substring/shared */ t6=*((C_word*)lf[10]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7793,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t7=C_eqp(((C_word*)t0)[4],C_fix(0)); if(C_truep(t7)){ t8=C_i_car(t3); t9=C_i_string_length(t8); t10=t2; t11=t6; f_7793(t11,C_eqp(t10,t9));} else{ t8=t6; f_7793(t8,C_SCHEME_FALSE);}}}} /* k7791 in lp in string-concatenate-reverse/shared in k2464 in k2461 */ static void C_fcall f_7793(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_7793,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_i_car(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* srfi-13.scm:1660: %finish-string-concatenate-reverse */ f_7842(((C_word*)t0)[2],((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[6]);}} /* a5310 in k5301 in string-hash in k2464 in k2461 */ static void C_ccall f_5311(C_word c,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_5311,2,av);} /* srfi-13.scm:938: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[70]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5316 in k5301 in string-hash in k2464 in k2461 */ 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=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,6)))){ C_save_and_reclaim((void *)f_5317,4,av);} /* srfi-13.scm:939: %string-hash */ f_5221(t1,((C_word*)t0)[2],*((C_word*)lf[71]+1),((C_word*)((C_word*)t0)[3])[1],t2,t3);} /* k6481 in a6440 in string-skip in k2464 in k2461 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_6483,2,av);} 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_6488,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)li302),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_6488(t5,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ if(C_truep(C_i_closurep(((C_word*)t0)[4]))){ 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_6523,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)li303),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_6523(t5,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ /* srfi-13.scm:1246: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[80]; av2[3]=lf[107]; av2[4]=*((C_word*)lf[80]+1); av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* k6630 in lp in k6608 in a6563 in string-skip-right in k2464 in k2461 */ static void C_ccall f_6632(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6632,2,av);} if(C_truep(t1)){ t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:1261: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6619(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* string-hash-ci in k2464 in k2461 */ 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=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_5339,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; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_fix(4194304):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=t9; t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5349,a[2]=t7,a[3]=t2,a[4]=t10,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t12=C_eqp(((C_word*)t7)[1],C_fix(0)); if(C_truep(t12)){ t13=C_set_block_item(t7,0,C_fix(4194304)); t14=t11; f_5349(t14,t13);} else{ t13=t11; f_5349(t13,C_SCHEME_UNDEFINED);}} /* lp in k6481 in a6440 in string-skip in k2464 in k2461 */ static void C_fcall f_6488(C_word t0,C_word 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_6488,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6501,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:1238: char-set-contains? */ t7=*((C_word*)lf[32]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,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);}}} /* k3631 in doloop476 in k3601 in string-tabulate in k2464 in k2461 */ static void C_ccall f_3633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3633,2,av);} t2=C_i_string_set(((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_3612(t4,((C_word*)t0)[5],t3);} /* %string-prefix-length in k2464 in k2461 */ static void C_fcall f_3636(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(7,0,3)))){ C_save_and_reclaim_args((void *)trf_3636,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(7); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3640,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t5,a[6]=t6,tmp=(C_word)a,a+=7,tmp); t9=C_fixnum_difference(t4,t3); t10=C_fixnum_difference(t7,t6); /* srfi-13.scm:587: min */ t11=*((C_word*)lf[24]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=t8; av2[2]=t9; av2[3]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} /* a2563 in string-parse-final-start+end in k2464 in k2461 */ static void C_ccall f_2564(C_word c,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_2564,2,av);} /* srfi-13.scm:201: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3662 in lp in k3647 in k3638 in %string-prefix-length in k2464 in k2461 */ static void C_fcall f_3664(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_3664,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_fixnum_difference(((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t3=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); /* srfi-13.scm:598: lp */ t4=((C_word*)((C_word*)t0)[6])[1]; f_3654(t4,((C_word*)t0)[2],t2,t3);}} /* k4491 in a4482 in a4470 in string= in k2464 in k2461 */ static void C_fcall f_4493(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,10)))){ C_save_and_reclaim_args((void *)trf_4493,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]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4501,a[2]=((C_word)li125),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4504,a[2]=((C_word)li126),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4510,a[2]=((C_word)li127),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:785: %string-compare */ f_4278(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],t2,t3,t4);}} /* a7943 in string-tokenize in k2464 in k2461 */ 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; 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_7944,2,av);} /* srfi-13.scm:1701: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[134]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6101 in k6086 in a6074 in string-filter in k2464 in k2461 */ 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=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,2)))){ C_save_and_reclaim((void *)f_6102,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6109,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1152: criteria */ t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k6107 in a6101 in k6086 in a6074 in string-filter in k2464 in k2461 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_6109,2,av);} if(C_truep(t1)){ t2=C_i_string_set(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3638 in %string-prefix-length in k2464 in k2461 */ static void C_ccall f_3640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3640,2,av);} a=C_alloc(9); t2=t1; t3=C_fixnum_plus(((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3649,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[2],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_eqp(((C_word*)t0)[4],((C_word*)t0)[5]); if(C_truep(t6)){ t7=((C_word*)t0)[2]; t8=((C_word*)t0)[6]; t9=t5; f_3649(t9,C_eqp(t7,t8));} else{ t7=t5; f_3649(t7,C_SCHEME_FALSE);}} /* k3647 in k3638 in %string-prefix-length in k2464 in k2461 */ static void C_fcall f_3649(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_3649,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_word*)t0)[3]; ((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_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3654,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)li63),tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_3654(t5,((C_word*)t0)[2],((C_word*)t0)[5],((C_word*)t0)[8]);}} /* a7949 in string-tokenize in k2464 in k2461 */ 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=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(9,c,4)))){ C_save_and_reclaim((void *)f_7950,4,av);} 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_7956,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word)li381),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_7956(t7,t1,t3,C_SCHEME_END_OF_LIST);} /* lp in a7949 in string-tokenize in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){ C_save_and_reclaim_args((void *)trf_7956,4,t0,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7960,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]=t1,tmp=(C_word)a,a+=8,tmp); t5=((C_word*)t0)[4]; t6=t2; if(C_truep(C_fixnum_lessp(t5,t6))){ /* srfi-13.scm:1706: string-index-right */ t7=*((C_word*)lf[105]+1);{ C_word av2[6]; av2[0]=t7; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[4]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} else{ t7=t4;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_FALSE; f_7960(2,av2);}}} /* string-parse-final-start+end in k2464 in k2461 */ 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=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,5)))){ C_save_and_reclaim((void *)f_2558,5,av);} a=C_alloc(10); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2564,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word)li3),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2570,a[2]=t2,a[3]=((C_word)li4),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:200: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4476 in a4470 in string= in k2464 in k2461 */ 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!=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_4477,2,av);} /* srfi-13.scm:780: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4470 in string= in k2464 in k2461 */ 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=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(13,c,4)))){ C_save_and_reclaim((void *)f_4471,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4477,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li124),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4483,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],a[6]=((C_word)li128),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:780: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k7958 in lp in a7949 in string-tokenize in k2464 in k2461 */ static void C_ccall f_7960(C_word c,C_word *av){ C_word tmp; C_word t0=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_7960,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7964,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li380),tmp=(C_word)a,a+=8,tmp); /* srfi-13.scm:1701: g1969 */ t3=t2; f_7964(t3,((C_word*)t0)[7],t1);} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[7];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6125 in k6122 in k6119 in k6116 in a6074 in string-filter in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6127,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* g1969 in k7958 in lp in a7949 in string-tokenize in k2464 in k2461 */ static void C_fcall f_7964(C_word 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,5)))){ C_save_and_reclaim_args((void *)trf_7964,3,t0,t1,t2);} a=C_alloc(8); t3=C_fixnum_plus(C_fix(1),t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7971,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=t1,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* srfi-13.scm:1709: string-skip-right */ t6=*((C_word*)lf[94]+1);{ C_word av2[6]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[5]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* a6128 in k6122 in k6119 in k6116 in a6074 in string-filter in k2464 in k2461 */ 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=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_6129,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6136,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1168: char-set-contains? */ t5=*((C_word*)lf[32]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k6122 in k6119 in k6116 in a6074 in string-filter in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,6)))){ C_save_and_reclaim((void *)f_6124,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6127,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_6129,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word)li284),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1168: string-fold */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} /* a2527 in string-parse-start+end in k2464 in k2461 */ 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=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,7)))){ C_save_and_reclaim((void *)f_2528,4,av);} t4=t2; if(C_truep(C_fixnum_less_or_equal_p(((C_word*)t0)[2],t4))){ /* srfi-13.scm:193: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[2]; av2[4]=t2; C_values(5,av2);}} else{ /* srfi-13.scm:194: ##sys#error */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t5; av2[1]=t1; av2[2]=lf[0]; av2[3]=lf[3]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[2]; av2[6]=t2; av2[7]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(8,av2);}}} /* xsubstring in k2464 in k2461 */ 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=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,5)))){ C_save_and_reclaim((void*)f_8024,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; t5=C_i_check_exact_2(t3,lf[136]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8033,a[2]=t4,a[3]=t2,a[4]=t3,a[5]=((C_word)li386),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8077,a[2]=t3,a[3]=t2,a[4]=((C_word)li387),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1749: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* k6119 in k6116 in a6074 in string-filter in k2464 in k2461 */ 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 *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=(*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]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1167: make-string */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a4482 in a4470 in string= in k2464 in k2461 */ 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 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(9,c,2)))){ C_save_and_reclaim((void *)f_4483,4,av);} a=C_alloc(9); t4=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t5=C_fixnum_difference(t3,t2); t6=C_eqp(t4,t5); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4493,a[2]=t1,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]=t2,a[8]=t3,tmp=(C_word)a,a+=9,tmp); t8=C_eqp(((C_word*)t0)[4],((C_word*)t0)[5]); if(C_truep(t8)){ t9=((C_word*)t0)[3]; t10=t2; t11=t7; f_4493(t11,C_eqp(t9,t10));} else{ t9=t7; f_4493(t9,C_SCHEME_FALSE);}} else{ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k6116 in a6074 in string-filter in k2464 in k2461 */ static void C_ccall f_6118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6118,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6121,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|3,a[1]=(C_word)f_6144,a[2]=t2,a[3]=((C_word)li285),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1163: string-fold */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} /* lp in k3647 in k3638 in %string-prefix-length in k2464 in k2461 */ static void C_fcall f_3654(C_word t0,C_word t1,C_word 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(7,0,2)))){ C_save_and_reclaim_args((void *)trf_3654,4,t0,t1,t2,t3);} a=C_alloc(7); t4=t2; t5=C_fixnum_greater_or_equal_p(t4,((C_word*)t0)[2]); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3664,a[2]=t1,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); if(C_truep(t5)){ t7=t6; f_3664(t7,t5);} else{ t7=C_i_string_ref(((C_word*)t0)[5],t2); t8=C_i_string_ref(((C_word*)t0)[6],t3); t9=C_u_i_char_equalp(t7,t8); t10=t6; f_3664(t10,C_i_not(t9));}} /* a4955 in k4965 in a4931 in a4919 in string-ci<> in k2464 in k2461 */ 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=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_4956,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4949 in k4965 in a4931 in a4919 in string-ci<> in k2464 in k2461 */ static void C_ccall f_4950(C_word c,C_word *av){ C_word tmp; C_word 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_4950,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4958 in k4965 in a4931 in a4919 in string-ci<> in k2464 in k2461 */ 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=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_4959,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* string-hash in k2464 in k2461 */ 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 *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_5293,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; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_fix(4194304):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=t9; t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5303,a[2]=t7,a[3]=t2,a[4]=t10,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t12=C_eqp(((C_word*)t7)[1],C_fix(0)); if(C_truep(t12)){ t13=C_set_block_item(t7,0,C_fix(4194304)); t14=t11; f_5303(t14,t13);} else{ t13=t11; f_5303(t13,C_SCHEME_UNDEFINED);}} /* k7907 in a7895 in k7883 in string-replace in k2464 in k2461 */ 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 t3; C_word t4; C_word t5; C_word t6; C_word 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,1)))){ C_save_and_reclaim((void *)f_7909,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_substring_copy(t2,t1,C_fix(0),t3,C_fix(0)); t5=((C_word*)t0)[3]; t6=((C_word*)t0)[4]; t7=((C_word*)t0)[5]; t8=((C_word*)t0)[6]; t9=C_substring_copy(t6,t1,t7,t8,t5); t10=C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[7]); t11=((C_word*)t0)[2]; t12=((C_word*)t0)[8]; t13=C_substring_copy(t11,t1,t12,((C_word*)t0)[9],t10); t14=((C_word*)t0)[10];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} /* a6143 in k6116 in a6074 in string-filter in k2464 in k2461 */ 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=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_6144,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6151,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1163: char-set-contains? */ t5=*((C_word*)lf[32]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7999 in k7969 in g1969 in k7958 in lp in a7949 in string-tokenize in k2464 in k2461 */ static void C_ccall f_8001(C_word c,C_word *av){ C_word tmp; 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_8001,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k3601 in string-tabulate in k2464 in k2461 */ 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 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_3603,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3606,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_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|5,a[1]=(C_word)f_3612,a[2]=t2,a[3]=t6,a[4]=((C_word*)t0)[4],a[5]=((C_word)li61),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3612(t8,t3,t4);} /* k3604 in k3601 in string-tabulate in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3606,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2764 in doloop210 in k2734 in %string-map in k2464 in k2461 */ static void C_ccall f_2766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2766,2,av);} t2=C_i_string_set(((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); t5=((C_word*)((C_word*)t0)[5])[1]; f_2741(t5,((C_word*)t0)[6],t3,t4);} /* k4965 in a4931 in a4919 in string-ci<> in k2464 in k2461 */ static void C_fcall f_4967(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,10)))){ C_save_and_reclaim_args((void *)trf_4967,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4950,a[2]=((C_word)li181),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4956,a[2]=((C_word)li182),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4959,a[2]=((C_word)li183),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:859: %string-compare-ci */ f_4337(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],t2,t3,t4);}} /* k6134 in a6128 in k6122 in k6119 in k6116 in a6074 in string-filter in k2464 in k2461 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6136,2,av);} if(C_truep(t1)){ t2=C_i_string_set(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* lp in k6608 in a6563 in string-skip-right in k2464 in k2461 */ static void C_fcall f_6658(C_word t0,C_word 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_6658,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6671,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:1266: criteria */ t7=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(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);}}} /* k5347 in string-hash-ci in k2464 in k2461 */ static void C_fcall f_5349(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_5349,2,t0,t1);} a=C_alloc(10); t2=C_i_check_exact_2(((C_word*)((C_word*)t0)[2])[1],lf[72]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5357,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li226),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5363,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word)li228),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:948: ##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);}} /* string-map! in k2464 in k2461 */ 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=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_2772,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; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2778,a[2]=t3,a[3]=t4,a[4]=((C_word)li18),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2784,a[2]=t2,a[3]=t3,a[4]=((C_word)li19),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:315: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a2777 in string-map! in k2464 in k2461 */ 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; 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_2778,2,av);} /* srfi-13.scm:315: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[17]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5356 in k5347 in string-hash-ci in k2464 in k2461 */ 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!=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_5357,2,av);} /* srfi-13.scm:948: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[72]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* doloop210 in k2734 in %string-map in k2464 in k2461 */ static void C_fcall f_2741(C_word t0,C_word 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_2741,4,t0,t1,t2,t3);} a=C_alloc(7); t4=t2; if(C_truep(C_fixnum_greater_or_equal_p(t4,((C_word*)t0)[2]))){ 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|6,a[1]=(C_word)f_2766,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); t6=C_i_string_ref(((C_word*)t0)[5],t3); /* srfi-13.scm:312: proc */ t7=((C_word*)t0)[6];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}} /* string-ci<> in k2464 in k2461 */ static void C_ccall f_4908(C_word c,C_word *av){ C_word tmp; C_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,5)))){ C_save_and_reclaim((void*)f_4908,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=*((C_word*)lf[63]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4914,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li179),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4920,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li185),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:854: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* string-tokenize in k2464 in k2461 */ static void C_ccall f_7932(C_word c,C_word *av){ C_word tmp; C_word 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,4)))){ C_save_and_reclaim((void*)f_7932,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_word*)lf[135]+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=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7944,a[2]=t2,a[3]=t9,a[4]=((C_word)li378),tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7950,a[2]=t2,a[3]=t6,a[4]=((C_word)li382),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1701: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t10; av2[3]=t11; C_call_with_values(4,av2);}} /* k6155 in a6074 in string-filter in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6157,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_6118(2,av2);}} else{ if(C_truep(C_charp(((C_word*)t0)[3]))){ /* srfi-13.scm:1160: char-set */ t2=*((C_word*)lf[100]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ /* srfi-13.scm:1161: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[102]; av2[3]=lf[103]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}} /* doloop476 in k3601 in string-tabulate in k2464 in k2461 */ static void C_fcall f_3612(C_word t0,C_word t1,C_word 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_3612,3,t0,t1,t2);} a=C_alloc(6); 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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3633,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:572: proc */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} /* a5362 in k5347 in string-hash-ci in k2464 in k2461 */ 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=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,6)))){ C_save_and_reclaim((void *)f_5363,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5369,a[2]=((C_word)li227),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:949: %string-hash */ f_5221(t1,((C_word*)t0)[2],t4,((C_word*)((C_word*)t0)[3])[1],t2,t3);} /* lp in k7844 in %finish-string-concatenate-reverse in k2464 in k2461 */ static C_word 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 t12; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=t2; t6=C_u_i_cdr(t5); t7=C_i_string_length(t4); t8=C_fixnum_difference(t1,t7); t9=C_substring_copy(t4,((C_word*)t0)[2],C_fix(0),t7,t8); t11=t8; t12=t6; t1=t11; t2=t12; goto loop;} else{ t3=C_SCHEME_UNDEFINED; return(t3);}} /* k6149 in a6143 in k6116 in a6074 in string-filter in k2464 in k2461 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_6151,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a5368 in a5362 in k5347 in string-hash-ci in k2464 in k2461 */ 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=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_5369,3,av);} t3=C_u_i_char_downcase(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fix(C_character_code(t3)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4913 in string-ci<> in k2464 in k2461 */ 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 *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_4914,2,av);} /* srfi-13.scm:854: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6669 in lp in k6608 in a6563 in string-skip-right in k2464 in k2461 */ static void C_ccall f_6671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6671,2,av);} if(C_truep(t1)){ t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:1266: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6658(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a6182 in string-index in k2464 in k2461 */ 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=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(7,c,2)))){ C_save_and_reclaim((void *)f_6183,4,av);} a=C_alloc(7); if(C_truep(C_charp(((C_word*)t0)[2]))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6195,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li289),tmp=(C_word)a,a+=6,tmp); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=( f_6195(t4,t2) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6225,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1194: char-set? */ t5=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* a2722 in string-map in k2464 in k2461 */ static void C_ccall f_2723(C_word c,C_word *av){ C_word tmp; C_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_2723,4,av);} /* srfi-13.scm:304: %string-map */ f_2729(t1,((C_word*)t0)[2],((C_word*)t0)[3],t2,t3);} /* a4919 in string-ci<> in k2464 in k2461 */ 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=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(13,c,4)))){ C_save_and_reclaim((void *)f_4920,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4926,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li180),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4932,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],a[6]=((C_word)li184),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:854: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4925 in a4919 in string-ci<> in k2464 in k2461 */ 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 *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_4926,2,av);} /* srfi-13.scm:854: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* %string-map in k2464 in k2461 */ static void C_fcall f_2729(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(7,0,2)))){ C_save_and_reclaim_args((void *)trf_2729,5,t1,t2,t3,t4,t5);} a=C_alloc(7); t6=C_fixnum_difference(t5,t4); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2736,a[2]=t1,a[3]=t7,a[4]=t3,a[5]=t2,a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:308: make-string */ t9=*((C_word*)lf[16]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* a6176 in string-index in k2464 in k2461 */ 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 *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_6177,2,av);} /* srfi-13.scm:1187: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[81]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* lp in k6608 in a6563 in string-skip-right in k2464 in k2461 */ static void C_fcall f_6619(C_word t0,C_word 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_6619,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6632,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:1260: char-set-contains? */ t7=*((C_word*)lf[32]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,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);}}} /* string-index in k2464 in k2461 */ 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=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_6171,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; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6177,a[2]=t2,a[3]=t4,a[4]=((C_word)li288),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6183,a[2]=t3,a[3]=t2,a[4]=((C_word)li292),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1187: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a3993 in a3987 in string-suffix-length in k2464 in k2461 */ static void C_ccall f_3994(C_word c,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_3994,2,av);} /* srfi-13.scm:648: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* lp in a3269 in string-for-each in k2464 in k2461 */ static void C_fcall f_3276(C_word t0,C_word 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_3276,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3286,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:503: proc */ t7=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(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);}}} /* a4931 in a4919 in string-ci<> in k2464 in k2461 */ 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=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_4932,4,av);} a=C_alloc(9); t4=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t5=C_fixnum_difference(t3,t2); t6=C_eqp(t4,t5); t7=C_i_not(t6); if(C_truep(t7)){ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4967,a[2]=t1,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]=t2,a[8]=t3,tmp=(C_word)a,a+=9,tmp); t9=C_eqp(((C_word*)t0)[4],((C_word*)t0)[5]); if(C_truep(t9)){ t10=((C_word*)t0)[3]; t11=t2; t12=t8; f_4967(t12,C_eqp(t10,t11));} else{ t10=t8; f_4967(t10,C_SCHEME_FALSE);}}} /* a3269 in string-for-each in k2464 in k2461 */ 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=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(9,c,3)))){ C_save_and_reclaim((void *)f_3270,4,av);} 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_3276,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li42),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_3276(t7,t1,t2);} /* k2734 in %string-map in k2464 in k2461 */ 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; C_word 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_2736,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2739,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|7,a[1]=(C_word)f_2741,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li16),tmp=(C_word)a,a+=8,tmp)); t7=((C_word*)t5)[1]; f_2741(t7,t3,C_fix(0),((C_word*)t0)[6]);} /* k2737 in k2734 in %string-map in k2464 in k2461 */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* string-contains in k2464 in k2461 */ static void C_ccall f_6898(C_word c,C_word *av){ C_word tmp; C_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,5)))){ C_save_and_reclaim((void*)f_6898,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=*((C_word*)lf[113]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6904,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li325),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6910,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li329),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1330: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* k2992 in k3050 in lp2 in lp in k2929 in string-unfold in k2464 in k2461 */ 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 t4; 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_2994,2,av);} a=C_alloc(11); t2=t1; t3=C_i_string_length(t2); t4=t3; t5=C_i_string_length(((C_word*)t0)[2]); t6=t5; t7=C_fixnum_plus(C_fixnum_plus(t6,((C_word*)t0)[3]),((C_word*)t0)[4]); t8=t7; t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3006,a[2]=t2,a[3]=t4,a[4]=t8,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[2],a[9]=t6,a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); t10=C_fixnum_plus(t8,t4); /* srfi-13.scm:435: make-string */ t11=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t9; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k6608 in a6563 in string-skip-right in k2464 in k2461 */ 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 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_6610,2,av);} a=C_alloc(9); if(C_truep(t1)){ 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|6,a[1]=(C_word)f_6619,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)li308),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_6619(t6,((C_word*)t0)[6],t2);} else{ if(C_truep(C_i_closurep(((C_word*)t0)[5]))){ 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|6,a[1]=(C_word)f_6658,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)li309),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_6658(t6,((C_word*)t0)[6],t2);} else{ /* srfi-13.scm:1268: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[6]; av2[2]=lf[94]; av2[3]=lf[108]; av2[4]=*((C_word*)lf[94]+1); av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* %finish-string-concatenate-reverse in k2464 in k2461 */ static void C_fcall f_7842(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(7,0,2)))){ C_save_and_reclaim_args((void *)trf_7842,5,t1,t2,t3,t4,t5);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7846,a[2]=t2,a[3]=t4,a[4]=t5,a[5]=t3,a[6]=t1,tmp=(C_word)a,a+=7,tmp); t7=C_fixnum_plus(t5,t2); /* srfi-13.scm:1663: make-string */ t8=*((C_word*)lf[16]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k7844 in %finish-string-concatenate-reverse in k2464 in k2461 */ static void C_ccall f_7846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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(4,c,3)))){ C_save_and_reclaim((void *)f_7846,2,av);} a=C_alloc(4); t2=t1; t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; t6=C_substring_copy(t4,t2,C_fix(0),t5,t3); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7854,a[2]=t2,a[3]=((C_word)li373),tmp=(C_word)a,a+=4,tmp); t8=( f_7854(t7,((C_word*)t0)[2],((C_word*)t0)[5]) ); t9=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* a3263 in string-for-each in k2464 in k2461 */ 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!=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_3264,2,av);} /* srfi-13.scm:498: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[29]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a2704 in string-copy in k2464 in k2461 */ 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=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_2705,4,av);} /* srfi-13.scm:269: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[12]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=t3; tp(5,av2);}} /* lp in a6182 in string-index in k2464 in k2461 */ static C_word C_fcall f_6195(C_word t0,C_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=t1; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t2,t3))){ t4=C_i_string_ref(((C_word*)t0)[3],t1); if(C_truep(C_i_char_equalp(((C_word*)t0)[4],t4))){ return(t1);} else{ t5=C_fixnum_plus(t1,C_fix(1)); t7=t5; t1=t7; goto loop;}} else{ return(C_SCHEME_FALSE);}} /* string-map in k2464 in k2461 */ 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=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_2711,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; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2717,a[2]=t3,a[3]=t4,a[4]=((C_word)li13),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2723,a[2]=t2,a[3]=t3,a[4]=((C_word)li14),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:301: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a2716 in string-map in k2464 in k2461 */ static void C_ccall f_2717(C_word c,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_2717,2,av);} /* srfi-13.scm:301: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[14]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-for-each in k2464 in k2461 */ 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; 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_3258,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; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3264,a[2]=t3,a[3]=t4,a[4]=((C_word)li41),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3270,a[2]=t3,a[3]=t2,a[4]=((C_word)li43),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:498: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k3740 in lp in k3717 in k3708 in %string-suffix-length in k2464 in k2461 */ static void C_fcall f_3742(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_3742,2,t0,t1);} if(C_truep(t1)){ t2=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=C_fixnum_difference(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); t3=C_fixnum_difference(((C_word*)t0)[5],C_fix(1)); /* srfi-13.scm:612: lp */ t4=((C_word*)((C_word*)t0)[6])[1]; f_3732(t4,((C_word*)t0)[4],t2,t3);}} /* f_3240 in string-unfold-right in k2464 in k2461 */ 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=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_3240,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[28]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a8076 in xsubstring in k2464 in k2461 */ 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=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,9)))){ C_save_and_reclaim((void *)f_8077,5,av);} a=C_alloc(8); t5=C_fixnum_difference(t4,t3); t6=C_fixnum_difference(t2,((C_word*)t0)[2]); if(C_truep(C_u_i_zerop(t6))){ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=lf[137]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ if(C_truep(C_u_i_zerop(t5))){ /* srfi-13.scm:1765: ##sys#error */ t7=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(10); } av2[0]=t7; av2[1]=t1; av2[2]=lf[136]; av2[3]=lf[138]; av2[4]=*((C_word*)lf[136]+1); av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[2]; av2[7]=t2; av2[8]=t3; av2[9]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(10,av2);}} else{ t7=C_eqp(C_fix(1),t5); if(C_truep(t7)){ t8=C_i_string_ref(((C_word*)t0)[3],t3); /* srfi-13.scm:1769: make-string */ t9=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t1; av2[2]=t6; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8111,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t3,a[7]=t4,tmp=(C_word)a,a+=8,tmp); /* srfi-13.scm:1783: make-string */ t9=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}}} /* k6880 in a6874 in string-copy! in k2464 in k2461 */ static void C_ccall f_6882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_6882,2,av);} 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=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_substring_copy(t5,t3,t6,t7,t4); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k3227 in lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ static void C_ccall f_3229(C_word c,C_word *av){ C_word tmp; C_word t0=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_3229,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3166,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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); /* srfi-13.scm:478: make-final */ t3=((C_word*)t0)[9];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[10]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3119,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* srfi-13.scm:462: f */ t3=((C_word*)t0)[14];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[10]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} /* k3708 in %string-suffix-length in k2464 in k2461 */ 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 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_3710,2,av);} a=C_alloc(9); t2=t1; t3=C_fixnum_difference(((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3719,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); t6=C_eqp(((C_word*)t0)[5],((C_word*)t0)[6]); if(C_truep(t6)){ t7=((C_word*)t0)[2]; t8=((C_word*)t0)[4]; t9=t5; f_3719(t9,C_eqp(t7,t8));} else{ t7=t5; f_3719(t7,C_SCHEME_FALSE);}} /* a8054 in a8032 in xsubstring in k2464 in k2461 */ static void C_ccall f_8055(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,4)))){ C_save_and_reclaim((void *)f_8055,4,av);} t4=C_i_car(((C_word*)t0)[2]); t5=C_i_check_exact_2(t4,lf[136]); /* srfi-13.scm:1758: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t2; av2[4]=t3; C_values(5,av2);}} /* k3717 in k3708 in %string-suffix-length in k2464 in k2461 */ static void C_fcall f_3719(C_word t0,C_word 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(10,0,4)))){ C_save_and_reclaim_args((void *)trf_3719,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_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_difference(((C_word*)t0)[4],C_fix(1)); t3=C_fixnum_difference(((C_word*)t0)[5],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|7,a[1]=(C_word)f_3732,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=t5,a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word)li65),tmp=(C_word)a,a+=8,tmp)); t7=((C_word*)t5)[1]; f_3732(t7,((C_word*)t0)[2],t2,t3);}} /* k3120 in k3117 in k3227 in lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ 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 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_3122,2,av);} a=C_alloc(10); t2=t1; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_greaterp(t3,C_fix(0)))){ t4=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t5=C_i_string_set(((C_word*)t0)[3],t4,((C_word*)t0)[4]); /* srfi-13.scm:467: lp2 */ t6=((C_word*)((C_word*)t0)[5])[1]; f_3109(t6,((C_word*)t0)[6],t4,t2);} else{ t4=C_fixnum_plus(((C_word*)t0)[7],((C_word*)t0)[8]); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3143,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[6],a[9]=t2,tmp=(C_word)a,a+=10,tmp); /* srfi-13.scm:470: min */ t6=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_fix(4096); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* a6874 in string-copy! in k2464 in k2461 */ 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=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,5)))){ C_save_and_reclaim((void *)f_6875,4,av);} a=C_alloc(8); t4=C_i_check_exact_2(((C_word*)t0)[2],lf[112]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6882,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=t3,tmp=(C_word)a,a+=8,tmp); t6=C_fixnum_difference(t3,t2); t7=C_fixnum_plus(((C_word*)t0)[2],t6); /* srfi-13.scm:1317: check-substring-spec */ t8=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t5; av2[2]=*((C_word*)lf[112]+1); av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[2]; av2[5]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}} /* %string-suffix-length in k2464 in k2461 */ static void C_fcall f_3706(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(7,0,3)))){ C_save_and_reclaim_args((void *)trf_3706,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(7); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3710,a[2]=t4,a[3]=t1,a[4]=t7,a[5]=t2,a[6]=t5,tmp=(C_word)a,a+=7,tmp); t9=C_fixnum_difference(t4,t3); t10=C_fixnum_difference(t7,t6); /* srfi-13.scm:601: min */ t11=*((C_word*)lf[24]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=t8; av2[2]=t9; av2[3]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} /* a8044 in a8032 in xsubstring in k2464 in k2461 */ 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!=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_8045,2,av);} t2=C_i_cdr(((C_word*)t0)[2]); /* srfi-13.scm:1751: string-parse-final-start+end */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=*((C_word*)lf[136]+1); av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2461 */ static void C_ccall f_2463(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2463,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2466,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:18: register-feature! */ t3=*((C_word*)lf[152]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[153]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2464 in k2461 */ static void C_ccall f_2466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(291,c,11)))){ C_save_and_reclaim((void *)f_2466,2,av);} a=C_alloc(291); t2=C_mutate2((C_word*)lf[0]+1 /* (set! string-parse-start+end ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2468,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[5]+1 /* (set! string-parse-final-start+end ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2558,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[7]+1 /* (set! substring-spec-ok? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2585,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[8]+1 /* (set! check-substring-spec ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2631,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[10]+1 /* (set! substring/shared ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2647,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2(&lf[11] /* (set! %substring/shared ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2671,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[13]+1 /* (set! string-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2693,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[14]+1 /* (set! string-map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2711,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2(&lf[15] /* (set! %string-map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2729,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[17]+1 /* (set! string-map! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2772,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2(&lf[18] /* (set! %string-map! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2790,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[19]+1 /* (set! string-fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2823,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[20]+1 /* (set! string-fold-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2865,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[21]+1 /* (set! string-unfold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2911,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[26]+1 /* (set! string-unfold-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3081,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[29]+1 /* (set! string-for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3258,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2((C_word*)lf[30]+1 /* (set! string-for-each-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3299,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2((C_word*)lf[31]+1 /* (set! string-every ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3336,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2((C_word*)lf[35]+1 /* (set! string-any ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3466,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate2((C_word*)lf[37]+1 /* (set! string-tabulate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3596,a[2]=((C_word)li62),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate2(&lf[38] /* (set! %string-prefix-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3636,a[2]=((C_word)li64),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate2(&lf[39] /* (set! %string-suffix-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3706,a[2]=((C_word)li66),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate2(&lf[40] /* (set! %string-prefix-length-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3788,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate2(&lf[42] /* (set! %string-suffix-length-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3861,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate2((C_word*)lf[43]+1 /* (set! string-prefix-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3946,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate2((C_word*)lf[44]+1 /* (set! string-suffix-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3976,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate2((C_word*)lf[45]+1 /* (set! string-prefix-length-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4006,a[2]=((C_word)li85),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate2((C_word*)lf[46]+1 /* (set! string-suffix-length-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4036,a[2]=((C_word)li90),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate2((C_word*)lf[47]+1 /* (set! string-prefix? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4066,a[2]=((C_word)li95),tmp=(C_word)a,a+=3,tmp)); t31=C_mutate2((C_word*)lf[48]+1 /* (set! string-suffix? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4096,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate2((C_word*)lf[49]+1 /* (set! string-prefix-ci? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4126,a[2]=((C_word)li105),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate2((C_word*)lf[50]+1 /* (set! string-suffix-ci? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4156,a[2]=((C_word)li110),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate2(&lf[51] /* (set! %string-compare ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4278,a[2]=((C_word)li111),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate2(&lf[52] /* (set! %string-compare-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4337,a[2]=((C_word)li112),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate2((C_word*)lf[54]+1 /* (set! string-compare ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4399,a[2]=((C_word)li117),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate2((C_word*)lf[55]+1 /* (set! string-compare-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4429,a[2]=((C_word)li122),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate2((C_word*)lf[56]+1 /* (set! string= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4459,a[2]=((C_word)li130),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate2((C_word*)lf[57]+1 /* (set! string<> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4527,a[2]=((C_word)li138),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate2((C_word*)lf[58]+1 /* (set! string< ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4606,a[2]=((C_word)li146),tmp=(C_word)a,a+=3,tmp)); t41=C_mutate2((C_word*)lf[59]+1 /* (set! string> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4663,a[2]=((C_word)li154),tmp=(C_word)a,a+=3,tmp)); t42=C_mutate2((C_word*)lf[60]+1 /* (set! string<= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4720,a[2]=((C_word)li162),tmp=(C_word)a,a+=3,tmp)); t43=C_mutate2((C_word*)lf[61]+1 /* (set! string>= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4780,a[2]=((C_word)li170),tmp=(C_word)a,a+=3,tmp)); t44=C_mutate2((C_word*)lf[62]+1 /* (set! string-ci= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4840,a[2]=((C_word)li178),tmp=(C_word)a,a+=3,tmp)); t45=C_mutate2((C_word*)lf[63]+1 /* (set! string-ci<> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4908,a[2]=((C_word)li186),tmp=(C_word)a,a+=3,tmp)); t46=C_mutate2((C_word*)lf[64]+1 /* (set! string-ci< ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4987,a[2]=((C_word)li194),tmp=(C_word)a,a+=3,tmp)); t47=C_mutate2((C_word*)lf[65]+1 /* (set! string-ci> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5044,a[2]=((C_word)li202),tmp=(C_word)a,a+=3,tmp)); t48=C_mutate2((C_word*)lf[66]+1 /* (set! string-ci<= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5101,a[2]=((C_word)li210),tmp=(C_word)a,a+=3,tmp)); t49=C_mutate2((C_word*)lf[67]+1 /* (set! string-ci>= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5161,a[2]=((C_word)li218),tmp=(C_word)a,a+=3,tmp)); t50=C_mutate2(&lf[68] /* (set! %string-hash ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5221,a[2]=((C_word)li222),tmp=(C_word)a,a+=3,tmp)); t51=C_mutate2((C_word*)lf[70]+1 /* (set! string-hash ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5293,a[2]=((C_word)li225),tmp=(C_word)a,a+=3,tmp)); t52=C_mutate2((C_word*)lf[72]+1 /* (set! string-hash-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5339,a[2]=((C_word)li229),tmp=(C_word)a,a+=3,tmp)); t53=C_mutate2((C_word*)lf[73]+1 /* (set! string-upcase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5395,a[2]=((C_word)li232),tmp=(C_word)a,a+=3,tmp)); t54=C_mutate2((C_word*)lf[75]+1 /* (set! string-upcase! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5413,a[2]=((C_word)li235),tmp=(C_word)a,a+=3,tmp)); t55=C_mutate2((C_word*)lf[76]+1 /* (set! string-downcase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5431,a[2]=((C_word)li238),tmp=(C_word)a,a+=3,tmp)); t56=C_mutate2((C_word*)lf[78]+1 /* (set! string-downcase! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5449,a[2]=((C_word)li241),tmp=(C_word)a,a+=3,tmp)); t57=C_mutate2(&lf[79] /* (set! %string-titlecase! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5467,a[2]=((C_word)li247),tmp=(C_word)a,a+=3,tmp)); t58=C_mutate2((C_word*)lf[82]+1 /* (set! string-titlecase! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5542,a[2]=((C_word)li250),tmp=(C_word)a,a+=3,tmp)); t59=C_mutate2((C_word*)lf[83]+1 /* (set! string-titlecase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5560,a[2]=((C_word)li253),tmp=(C_word)a,a+=3,tmp)); t60=C_mutate2((C_word*)lf[84]+1 /* (set! string-take ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5585,a[2]=((C_word)li254),tmp=(C_word)a,a+=3,tmp)); t61=C_mutate2((C_word*)lf[86]+1 /* (set! string-take-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5605,a[2]=((C_word)li255),tmp=(C_word)a,a+=3,tmp)); t62=C_mutate2((C_word*)lf[87]+1 /* (set! string-drop ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5632,a[2]=((C_word)li256),tmp=(C_word)a,a+=3,tmp)); t63=C_mutate2((C_word*)lf[88]+1 /* (set! string-drop-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5655,a[2]=((C_word)li257),tmp=(C_word)a,a+=3,tmp)); t64=C_mutate2((C_word*)lf[89]+1 /* (set! string-trim ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5682,a[2]=((C_word)li261),tmp=(C_word)a,a+=3,tmp)); t65=C_mutate2((C_word*)lf[92]+1 /* (set! string-trim-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5729,a[2]=((C_word)li265),tmp=(C_word)a,a+=3,tmp)); t66=C_mutate2((C_word*)lf[95]+1 /* (set! string-trim-both ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5780,a[2]=((C_word)li269),tmp=(C_word)a,a+=3,tmp)); t67=C_mutate2((C_word*)lf[97]+1 /* (set! string-pad-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5835,a[2]=((C_word)li272),tmp=(C_word)a,a+=3,tmp)); t68=C_mutate2((C_word*)lf[98]+1 /* (set! string-pad ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5893,a[2]=((C_word)li275),tmp=(C_word)a,a+=3,tmp)); t69=C_mutate2((C_word*)lf[99]+1 /* (set! string-delete ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5955,a[2]=((C_word)li281),tmp=(C_word)a,a+=3,tmp)); t70=C_mutate2((C_word*)lf[102]+1 /* (set! string-filter ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6063,a[2]=((C_word)li287),tmp=(C_word)a,a+=3,tmp)); t71=C_mutate2((C_word*)lf[81]+1 /* (set! string-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6171,a[2]=((C_word)li293),tmp=(C_word)a,a+=3,tmp)); t72=C_mutate2((C_word*)lf[105]+1 /* (set! string-index-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6294,a[2]=((C_word)li299),tmp=(C_word)a,a+=3,tmp)); t73=C_mutate2((C_word*)lf[80]+1 /* (set! string-skip ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6429,a[2]=((C_word)li305),tmp=(C_word)a,a+=3,tmp)); t74=C_mutate2((C_word*)lf[94]+1 /* (set! string-skip-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6552,a[2]=((C_word)li311),tmp=(C_word)a,a+=3,tmp)); t75=C_mutate2((C_word*)lf[109]+1 /* (set! string-count ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6687,a[2]=((C_word)li317),tmp=(C_word)a,a+=3,tmp)); t76=C_mutate2((C_word*)lf[111]+1 /* (set! string-fill! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6822,a[2]=((C_word)li321),tmp=(C_word)a,a+=3,tmp)); t77=C_mutate2((C_word*)lf[112]+1 /* (set! string-copy! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6863,a[2]=((C_word)li324),tmp=(C_word)a,a+=3,tmp)); t78=C_mutate2((C_word*)lf[113]+1 /* (set! string-contains ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6898,a[2]=((C_word)li330),tmp=(C_word)a,a+=3,tmp)); t79=C_mutate2((C_word*)lf[114]+1 /* (set! string-contains-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6960,a[2]=((C_word)li336),tmp=(C_word)a,a+=3,tmp)); t80=C_mutate2((C_word*)lf[115]+1 /* (set! make-kmp-restart-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7022,a[2]=((C_word)li341),tmp=(C_word)a,a+=3,tmp)); t81=C_mutate2((C_word*)lf[118]+1 /* (set! kmp-step ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7167,a[2]=((C_word)li343),tmp=(C_word)a,a+=3,tmp)); t82=C_mutate2((C_word*)lf[119]+1 /* (set! string-kmp-partial-search ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7205,a[2]=((C_word)li348),tmp=(C_word)a,a+=3,tmp)); t83=C_mutate2((C_word*)lf[120]+1 /* (set! string-null? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7326,a[2]=((C_word)li349),tmp=(C_word)a,a+=3,tmp)); t84=C_mutate2((C_word*)lf[121]+1 /* (set! string-reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7329,a[2]=((C_word)li353),tmp=(C_word)a,a+=3,tmp)); t85=C_mutate2((C_word*)lf[122]+1 /* (set! string-reverse! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7384,a[2]=((C_word)li357),tmp=(C_word)a,a+=3,tmp)); t86=C_mutate2((C_word*)lf[123]+1 /* (set! string->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7438,a[2]=((C_word)li361),tmp=(C_word)a,a+=3,tmp)); t87=C_mutate2((C_word*)lf[124]+1 /* (set! string-append/shared ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7484,a[2]=((C_word)li362),tmp=(C_word)a,a+=3,tmp)); t88=C_mutate2((C_word*)lf[125]+1 /* (set! string-concatenate/shared ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7490,a[2]=((C_word)li365),tmp=(C_word)a,a+=3,tmp)); t89=C_mutate2((C_word*)lf[127]+1 /* (set! string-concatenate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7583,a[2]=((C_word)li368),tmp=(C_word)a,a+=3,tmp)); t90=C_mutate2((C_word*)lf[128]+1 /* (set! string-concatenate-reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7650,a[2]=((C_word)li370),tmp=(C_word)a,a+=3,tmp)); t91=C_mutate2((C_word*)lf[131]+1 /* (set! string-concatenate-reverse/shared ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7725,a[2]=((C_word)li372),tmp=(C_word)a,a+=3,tmp)); t92=C_mutate2(&lf[130] /* (set! %finish-string-concatenate-reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7842,a[2]=((C_word)li374),tmp=(C_word)a,a+=3,tmp)); t93=C_mutate2((C_word*)lf[133]+1 /* (set! string-replace ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7881,a[2]=((C_word)li377),tmp=(C_word)a,a+=3,tmp)); t94=C_mutate2((C_word*)lf[134]+1 /* (set! string-tokenize ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7932,a[2]=((C_word)li383),tmp=(C_word)a,a+=3,tmp)); t95=C_mutate2((C_word*)lf[136]+1 /* (set! xsubstring ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8024,a[2]=((C_word)li388),tmp=(C_word)a,a+=3,tmp)); t96=C_mutate2((C_word*)lf[140]+1 /* (set! string-xcopy! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8117,a[2]=((C_word)li393),tmp=(C_word)a,a+=3,tmp)); t97=C_mutate2(&lf[139] /* (set! %multispan-repcopy! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8212,a[2]=((C_word)li395),tmp=(C_word)a,a+=3,tmp)); t98=C_mutate2((C_word*)lf[142]+1 /* (set! string-join ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8285,a[2]=((C_word)li398),tmp=(C_word)a,a+=3,tmp)); t99=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t99; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t99+1)))(2,av2);}} /* lp in k3717 in k3708 in %string-suffix-length in k2464 in k2461 */ static void C_fcall f_3732(C_word t0,C_word t1,C_word 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(7,0,2)))){ C_save_and_reclaim_args((void *)trf_3732,4,t0,t1,t2,t3);} a=C_alloc(7); t4=t2; t5=C_fixnum_lessp(t4,((C_word*)t0)[2]); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3742,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t1,a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); if(C_truep(t5)){ t7=t6; f_3742(t7,t5);} else{ t7=C_i_string_ref(((C_word*)t0)[5],t2); t8=C_i_string_ref(((C_word*)t0)[6],t3); t9=C_u_i_char_equalp(t7,t8); t10=t6; f_3742(t10,C_i_not(t9));}} /* a8032 in xsubstring in k2464 in k2461 */ static void C_ccall f_8033(C_word c,C_word *av){ C_word tmp; 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(9,c,4)))){ C_save_and_reclaim((void *)f_8033,2,av);} a=C_alloc(9); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ 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)li384),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8055,a[2]=((C_word*)t0)[2],a[3]=((C_word)li385),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1751: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} else{ t2=C_i_string_length(((C_word*)t0)[3]); t3=C_fixnum_plus(((C_word*)t0)[4],t2); /* srfi-13.scm:1761: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t2; C_values(5,av2);}}} /* k3141 in k3120 in k3117 in k3227 in lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_3143,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3146,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); /* srfi-13.scm:471: make-string */ t4=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3144 in k3141 in k3120 in k3117 in k3227 in lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ static void C_ccall f_3146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,7)))){ C_save_and_reclaim((void *)f_3146,2,av);} a=C_alloc(3); t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t3=C_i_string_set(t1,t2,((C_word*)t0)[3]); t4=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]); t5=C_fixnum_plus(((C_word*)t0)[6],((C_word*)t0)[7]); /* srfi-13.scm:474: lp */ t6=((C_word*)((C_word*)t0)[8])[1]; f_3103(t6,((C_word*)t0)[9],t4,t5,t1,((C_word*)t0)[2],t2,((C_word*)t0)[10]);} /* string-parse-start+end in k2464 in k2461 */ static void C_ccall f_2468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,6)))){ C_save_and_reclaim((void *)f_2468,5,av);} a=C_alloc(13); t5=C_i_check_string_2(t3,lf[0]); t6=t3; t7=C_block_size(t6); t8=t7; if(C_truep(C_i_pairp(t4))){ t9=t4; t10=C_u_i_car(t9); t11=t4; t12=C_u_i_cdr(t11); t13=C_fixnump(t10); t14=(C_truep(t13)?C_fixnum_greater_or_equal_p(t10,C_fix(0)):C_SCHEME_FALSE); if(C_truep(t14)){ t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2494,a[2]=t12,a[3]=t8,a[4]=t2,a[5]=t3,a[6]=((C_word)li0),tmp=(C_word)a,a+=7,tmp); t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2528,a[2]=t10,a[3]=t2,a[4]=t3,a[5]=((C_word)li1),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:184: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t15; av2[3]=t16; C_call_with_values(4,av2);}} else{ /* srfi-13.scm:196: ##sys#error */ t15=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t15; av2[1]=t1; av2[2]=lf[0]; av2[3]=lf[4]; av2[4]=t2; av2[5]=t10; av2[6]=t3; ((C_proc)(void*)(*((C_word*)t15+1)))(7,av2);}}} else{ /* srfi-13.scm:198: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_END_OF_LIST; av2[3]=C_fix(0); av2[4]=t8; C_values(5,av2);}}} /* k5702 in a5699 in string-trim in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_5704,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5708,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li259),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1058: g1316 */ t3=t2; f_5708(t3,((C_word*)t0)[4],t1);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[91]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g1316 in k5702 in a5699 in string-trim in k2464 in k2461 */ static void C_fcall f_5708(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_5708,3,t0,t1,t2);} /* srfi-13.scm:1062: %substring/shared */ f_2671(t1,((C_word*)t0)[2],t2,((C_word*)t0)[3]);} /* k4345 in %string-compare-ci in k2464 in k2461 */ 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; C_word t3; 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_4347,2,av);} a=C_alloc(7); t2=t1; t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=C_eqp(t2,((C_word*)t0)[3]); if(C_truep(t4)){ t5=((C_word*)t0)[4]; /* srfi-13.scm:742: g777 */ t6=t5;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} else{ t5=((C_word*)t0)[7]; /* srfi-13.scm:742: g777 */ t6=t5;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} else{ t4=C_eqp(t2,((C_word*)t0)[3]); if(C_truep(t4)){ t5=((C_word*)t0)[8]; t6=C_fixnum_plus(((C_word*)t0)[9],t2); /* srfi-13.scm:742: g779 */ t7=t5;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=((C_word*)t0)[5]; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4381,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[9],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); t6=C_fixnum_plus(((C_word*)t0)[9],t2); t7=C_i_string_ref(((C_word*)t0)[10],t6); t8=C_fixnum_plus(((C_word*)t0)[11],t2); t9=C_i_string_ref(((C_word*)t0)[12],t8); /* srfi-13.scm:750: char-ci<? */ t10=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t5; av2[2]=t7; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}} /* k3164 in k3227 in lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ 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 t3; C_word t4; C_word 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,2)))){ C_save_and_reclaim((void *)f_3166,2,av);} a=C_alloc(12); t2=t1; t3=C_i_string_length(t2); t4=t3; t5=C_i_string_length(((C_word*)t0)[2]); t6=t5; t7=C_fixnum_difference(((C_word*)t0)[3],((C_word*)t0)[4]); t8=t7; t9=C_fixnum_plus(C_fixnum_plus(t6,((C_word*)t0)[5]),t8); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3181,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[7],a[8]=t8,a[9]=((C_word*)t0)[2],a[10]=t6,a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp); t11=C_fixnum_plus(t9,t4); /* srfi-13.scm:483: make-string */ t12=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t10; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} /* a5699 in string-trim in k2464 in k2461 */ 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=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_5700,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5704,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1061: string-skip */ t5=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* string-trim-right in k2464 in k2461 */ 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=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,4)))){ C_save_and_reclaim((void*)f_5729,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_word*)lf[90]+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=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5741,a[2]=t2,a[3]=t9,a[4]=((C_word)li262),tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5747,a[2]=t2,a[3]=t6,a[4]=((C_word)li264),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1065: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t10; av2[3]=t11; C_call_with_values(4,av2);}} /* k3179 in k3164 in k3227 in lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ 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 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,4)))){ C_save_and_reclaim((void *)f_3181,2,av);} a=C_alloc(13); t2=t1; t3=C_substring_copy(((C_word*)t0)[2],t2,C_fix(0),((C_word*)t0)[3],C_fix(0)); t4=((C_word*)t0)[4]; t5=((C_word*)t0)[5]; t6=((C_word*)t0)[6]; t7=C_substring_copy(t4,t2,t5,t6,((C_word*)t0)[3]); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3190,a[2]=((C_word*)t0)[7],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t9=C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[8]); 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_3196,a[2]=t2,a[3]=t11,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],a[6]=((C_word)li37),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_3196(t13,t8,t9,((C_word*)t0)[11]);} /* string-for-each-index in k2464 in k2461 */ 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=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,4)))){ C_save_and_reclaim((void*)f_3299,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|4,a[1]=(C_word)f_3305,a[2]=t3,a[3]=t4,a[4]=((C_word)li45),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3311,a[2]=t2,a[3]=((C_word)li47),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:506: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* lp in k3179 in k3164 in k3227 in lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ static void C_fcall f_3196(C_word t0,C_word t1,C_word 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(0,0,3)))){ C_save_and_reclaim_args((void *)trf_3196,4,t0,t1,t2,t3);} 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_i_string_length(t5); t9=t2; t10=C_substring_copy(t5,((C_word*)t0)[2],C_fix(0),t8,t9); t11=C_fixnum_plus(t2,t8); /* srfi-13.scm:493: lp */ t13=t1; t14=t11; t15=t7; t1=t13; t2=t14; t3=t15; goto loop;} else{ t4=t1; t5=t2; t6=t4;{ C_word av2[2]; av2[0]=t6; av2[1]=C_substring_copy(((C_word*)t0)[4],((C_word*)t0)[2],C_fix(0),((C_word*)t0)[5],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k3188 in k3179 in k3164 in k3227 in lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3190,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3284 in lp in a3269 in string-for-each in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3286,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:504: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3276(t3,((C_word*)t0)[4],t2);} /* string->list in k2464 in k2461 */ static void C_ccall f_7438(C_word c,C_word *av){ C_word tmp; C_word 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,4)))){ C_save_and_reclaim((void*)f_7438,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; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7444,a[2]=t2,a[3]=t3,a[4]=((C_word)li358),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7450,a[2]=t2,a[3]=((C_word)li360),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1539: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* %string-compare-ci in k2464 in k2461 */ static void C_fcall f_4337(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_word tmp; 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,0,7)))){ C_save_and_reclaim_args((void *)trf_4337,10,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10);} a=C_alloc(13); t11=C_fixnum_difference(t4,t3); t12=t11; t13=C_fixnum_difference(t7,t6); t14=t13; t15=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4347,a[2]=t12,a[3]=t14,a[4]=t9,a[5]=t1,a[6]=t4,a[7]=t8,a[8]=t10,a[9]=t3,a[10]=t2,a[11]=t6,a[12]=t5,tmp=(C_word)a,a+=13,tmp); /* srfi-13.scm:746: %string-prefix-length-ci */ f_3788(t15,t2,t3,t4,t5,t6,t7);} /* a4785 in string>= in k2464 in k2461 */ 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 *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_4786,2,av);} /* srfi-13.scm:833: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* string>= in k2464 in k2461 */ 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=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,5)))){ C_save_and_reclaim((void*)f_4780,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=*((C_word*)lf[61]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4786,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li163),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4792,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li169),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:833: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* lp in k6223 in a6182 in string-index in k2464 in k2461 */ static void C_fcall f_6230(C_word t0,C_word 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_6230,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6243,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); /* srfi-13.scm:1197: char-set-contains? */ t7=*((C_word*)lf[32]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,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);}}} /* a4797 in a4791 in string>= in k2464 in k2461 */ 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 *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_4798,2,av);} /* srfi-13.scm:833: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ static void C_fcall f_3109(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_3109,4,t0,t1,t2,t3);} a=C_alloc(15); t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_3229,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]=t1,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=t3,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); /* srfi-13.scm:461: p */ t5=((C_word*)t0)[12];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* a4791 in string>= in k2464 in k2461 */ 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=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(13,c,4)))){ C_save_and_reclaim((void *)f_4792,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4798,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li164),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4804,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word)li168),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:833: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* lp in k3099 in string-unfold-right in k2464 in k2461 */ static void C_fcall f_3103(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(16,0,4)))){ C_save_and_reclaim_args((void *)trf_3103,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(16); 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|13,a[1]=(C_word)f_3109,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t3,a[5]=t4,a[6]=t2,a[7]=((C_word*)t0)[3],a[8]=t9,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)li38),tmp=(C_word)a,a+=14,tmp)); t11=((C_word*)t9)[1]; f_3109(t11,t1,t6,t7);} /* k3099 in string-unfold-right in k2464 in k2461 */ static void C_ccall f_3101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,8)))){ C_save_and_reclaim((void *)f_3101,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_3103,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)li39),tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_3103(t5,((C_word*)t0)[7],C_SCHEME_END_OF_LIST,C_fix(0),t1,C_fix(40),C_fix(40),((C_word*)t0)[8]);} /* k6223 in a6182 in string-index in k2464 in k2461 */ static void C_ccall f_6225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6225,2,av);} 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_6230,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)li290),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_6230(t5,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ if(C_truep(C_i_closurep(((C_word*)t0)[4]))){ 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_6265,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)li291),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_6265(t5,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ /* srfi-13.scm:1204: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[81]; av2[3]=lf[104]; av2[4]=*((C_word*)lf[81]+1); av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* k8109 in a8076 in xsubstring in k2464 in k2461 */ static void C_ccall f_8111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8111,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8114,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1784: %multispan-repcopy! */ f_8212(t3,t2,C_fix(0),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* string-xcopy! in k2464 in k2461 */ 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=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); if(C_unlikely(!C_demand(C_calculate_demand((c-6)*C_SIZEOF_PAIR +13,c,5)))){ C_save_and_reclaim((void*)f_8117,c,av);} a=C_alloc((c-6)*C_SIZEOF_PAIR+13); t6=C_build_rest(&a,c,6,av); C_word t7; C_word t8; C_word t9; C_word t10; t7=C_i_check_exact_2(t5,lf[140]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8126,a[2]=t6,a[3]=t4,a[4]=t5,a[5]=((C_word)li391),tmp=(C_word)a,a+=6,tmp); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8170,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=t4,a[6]=((C_word)li392),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1801: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t8; av2[3]=t9; C_call_with_values(4,av2);}} /* k8112 in k8109 in a8076 in xsubstring in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8114,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a8147 in a8125 in string-xcopy! in k2464 in k2461 */ 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=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,4)))){ C_save_and_reclaim((void *)f_8148,4,av);} t4=C_i_car(((C_word*)t0)[2]); t5=C_i_check_exact_2(t4,lf[140]); /* srfi-13.scm:1808: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t2; av2[4]=t3; C_values(5,av2);}} /* a4611 in string< in k2464 in k2461 */ 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 *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_4612,2,av);} /* srfi-13.scm:800: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4617 in string< in k2464 in k2461 */ static void C_ccall f_4618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(13,c,4)))){ C_save_and_reclaim((void *)f_4618,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4624,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li140),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4630,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word)li144),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:800: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k3117 in k3227 in lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_3119,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3122,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); /* srfi-13.scm:463: g */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[11]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* string-any in k2464 in k2461 */ static void C_ccall f_3466(C_word c,C_word *av){ C_word tmp; C_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_3466,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; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3472,a[2]=t3,a[3]=t4,a[4]=((C_word)li55),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3478,a[2]=t2,a[3]=t3,a[4]=((C_word)li59),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:538: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4623 in a4617 in string< in k2464 in k2461 */ 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 *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_4624,2,av);} /* srfi-13.scm:800: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3456 in lp in k3388 in a3347 in string-every in k2464 in k2461 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3458,2,av);} if(C_truep(t1)){ /* srfi-13.scm:532: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3436(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a8125 in string-xcopy! in k2464 in k2461 */ 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 *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_8126,2,av);} a=C_alloc(9); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8138,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li389),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8148,a[2]=((C_word*)t0)[2],a[3]=((C_word)li390),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1803: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} else{ t2=C_i_string_length(((C_word*)t0)[3]); t3=C_fixnum_plus(((C_word*)t0)[4],t2); /* srfi-13.scm:1810: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t2; C_values(5,av2);}}} /* a4143 in a4137 in string-prefix-ci? in k2464 in k2461 */ static void C_ccall f_4144(C_word c,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_4144,2,av);} /* srfi-13.scm:681: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* string-null? in k2464 in k2461 */ 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=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_7326,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_string_null_p(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a7443 in string->list in k2464 in k2461 */ 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 *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_7444,2,av);} /* srfi-13.scm:1539: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[123]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-reverse in k2464 in k2461 */ static void C_ccall f_7329(C_word c,C_word *av){ C_word tmp; C_word 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,4)))){ C_save_and_reclaim((void*)f_7329,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; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7335,a[2]=t2,a[3]=t3,a[4]=((C_word)li350),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7341,a[2]=t2,a[3]=((C_word)li352),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1504: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* k6411 in lp in k6350 in a6305 in string-index-right in k2464 in k2461 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6413,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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)[3],C_fix(1)); /* srfi-13.scm:1223: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6400(t3,((C_word*)t0)[2],t2);}} /* string< in k2464 in k2461 */ static void C_ccall f_4606(C_word c,C_word *av){ C_word tmp; C_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,5)))){ C_save_and_reclaim((void*)f_4606,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=*((C_word*)lf[58]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4612,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li139),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4618,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li145),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:800: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a4149 in a4137 in string-prefix-ci? in k2464 in k2461 */ static void C_ccall f_4150(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(4,c,7)))){ C_save_and_reclaim((void *)f_4150,4,av);} a=C_alloc(4); t4=t1; t5=((C_word*)t0)[2]; t6=((C_word*)t0)[3]; t7=((C_word*)t0)[4]; t8=((C_word*)t0)[5]; t9=C_fixnum_difference(t7,t6); t10=t9; t11=C_fixnum_difference(t3,t2); if(C_truep(C_fixnum_less_or_equal_p(t10,t11))){ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4249,a[2]=t4,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:710: %string-prefix-length-ci */ f_3788(t12,t5,t6,t7,t8,t2,t3);} else{ t12=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} /* string-suffix-ci? in k2464 in k2461 */ 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=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,5)))){ C_save_and_reclaim((void*)f_4156,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=*((C_word*)lf[50]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4162,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li106),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4168,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li109),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:686: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a7449 in string->list in k2464 in k2461 */ 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=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_7450,4,av);} a=C_alloc(8); t4=C_fixnum_difference(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|5,a[1]=(C_word)f_7460,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word)li359),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_7460(t8,t1,t4,C_SCHEME_END_OF_LIST);} /* string-index-right in k2464 in k2461 */ 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=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_6294,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; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6300,a[2]=t2,a[3]=t4,a[4]=((C_word)li294),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6306,a[2]=t3,a[3]=t2,a[4]=((C_word)li298),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1207: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a7334 in string-reverse in k2464 in k2461 */ 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!=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_7335,2,av);} /* srfi-13.scm:1504: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[121]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* lp in k6350 in a6305 in string-index-right in k2464 in k2461 */ static void C_fcall f_6400(C_word t0,C_word 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_6400,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6413,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); /* srfi-13.scm:1222: criteria */ t7=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(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);}}} /* lp in k3388 in a3347 in string-every in k2464 in k2461 */ static void C_fcall f_3436(C_word t0,C_word t1,C_word t2){ C_word 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_3436,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_string_ref(((C_word*)t0)[2],t2); t4=C_fixnum_plus(t2,C_fix(1)); t5=t4; t6=((C_word*)t0)[3]; t7=C_eqp(t5,t6); if(C_truep(t7)){ /* srfi-13.scm:531: criteria */ t8=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t8; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3458,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:532: criteria */ t9=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t9))(3,av2);}}} /* a4650 in k4635 in a4629 in a4617 in string< in k2464 in k2461 */ static void C_ccall f_4651(C_word c,C_word *av){ C_word tmp; C_word 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_4651,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4161 in string-suffix-ci? in k2464 in k2461 */ 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; 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_4162,2,av);} /* srfi-13.scm:686: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4653 in k4635 in a4629 in a4617 in string< in k2464 in k2461 */ static void C_ccall f_4654(C_word c,C_word *av){ C_word tmp; C_word 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_4654,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4167 in string-suffix-ci? in k2464 in k2461 */ 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=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(13,c,4)))){ C_save_and_reclaim((void *)f_4168,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4174,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li107),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4180,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li108),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:686: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* doloop1809 in a7449 in string->list in k2464 in k2461 */ static void C_fcall f_7460(C_word t0,C_word t1,C_word 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(3,0,3)))){ C_save_and_reclaim_args((void *)trf_7460,4,t0,t1,t2,t3);} a=C_alloc(3); t4=t2; t5=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t4,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_string_ref(((C_word*)t0)[3],t2); t8=C_a_i_cons(&a,2,t7,t3); t10=t1; t11=t6; t12=t8; t1=t10; t2=t11; t3=t12; goto loop;}} /* a7340 in string-reverse in k2464 in k2461 */ static void C_ccall f_7341(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_7341,4,av);} a=C_alloc(6); t4=C_fixnum_difference(t3,t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7348,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1507: make-string */ t7=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k7346 in a7340 in string-reverse in k2464 in k2461 */ static void C_ccall f_7348(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7348,2,av);} a=C_alloc(5); t2=t1; t3=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7357,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word)li351),tmp=(C_word)a,a+=5,tmp); t5=( f_7357(t4,((C_word*)t0)[4],t3) ); t6=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a6434 in string-skip in k2464 in k2461 */ 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 *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_6435,2,av);} /* srfi-13.scm:1227: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[80]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string> in k2464 in k2461 */ static void C_ccall f_4663(C_word c,C_word *av){ C_word tmp; C_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,5)))){ C_save_and_reclaim((void*)f_4663,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=*((C_word*)lf[59]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4669,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li147),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4675,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li153),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:811: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a4668 in string> in k2464 in k2461 */ static void C_ccall f_4669(C_word c,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_4669,2,av);} /* srfi-13.scm:811: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4173 in a4167 in string-suffix-ci? in k2464 in k2461 */ 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 *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_4174,2,av);} /* srfi-13.scm:686: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* doloop1778 in k7346 in a7340 in string-reverse in k2464 in k2461 */ static C_word C_fcall f_7357(C_word t0,C_word t1,C_word t2){ C_word tmp; C_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:{} t3=t2; if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ t4=C_SCHEME_UNDEFINED; return(t4);} else{ t4=C_i_string_ref(((C_word*)t0)[2],t1); t5=C_i_string_set(((C_word*)t0)[3],t2,t4); t6=C_fixnum_plus(t1,C_fix(1)); t7=C_fixnum_difference(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;}} /* a4629 in a4617 in string< in k2464 in k2461 */ static void C_ccall f_4630(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,2)))){ C_save_and_reclaim((void *)f_4630,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4637,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t5=C_eqp(((C_word*)t0)[3],((C_word*)t0)[5]); if(C_truep(t5)){ t6=((C_word*)t0)[4]; t7=t2; t8=t4; f_4637(t8,C_eqp(t6,t7));} else{ t6=t4; f_4637(t6,C_SCHEME_FALSE);}} /* k4635 in a4629 in a4617 in string< in k2464 in k2461 */ static void C_fcall f_4637(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,10)))){ C_save_and_reclaim_args((void *)trf_4637,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_fixnum_lessp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4645,a[2]=((C_word)li141),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4651,a[2]=((C_word)li142),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4654,a[2]=((C_word)li143),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:806: %string-compare */ f_4278(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],t2,t3,t4);}} /* doloop1793 in a7395 in string-reverse! in k2464 in k2461 */ static C_word C_fcall f_7406(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_stack_overflow_check; loop:{} t3=t1; t4=t2; if(C_truep(C_fixnum_less_or_equal_p(t3,t4))){ t5=C_SCHEME_UNDEFINED; return(t5);} else{ t5=C_i_string_ref(((C_word*)t0)[2],t1); t6=((C_word*)t0)[2]; t7=t1; t8=C_i_string_ref(((C_word*)t0)[2],t2); t9=C_i_string_set(t6,t7,t8); t10=((C_word*)t0)[2]; t11=t2; t12=C_i_string_set(t10,t11,t5); t13=C_fixnum_difference(t1,C_fix(1)); t14=C_fixnum_plus(t2,C_fix(1)); t16=t13; t17=t14; t1=t16; t2=t17; goto loop;}} /* lp in a6440 in string-skip in k2464 in k2461 */ static C_word C_fcall f_6453(C_word t0,C_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=t1; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t2,t3))){ t4=C_i_string_ref(((C_word*)t0)[3],t1); if(C_truep(C_i_char_equalp(((C_word*)t0)[4],t4))){ t5=C_fixnum_plus(t1,C_fix(1)); t7=t5; t1=t7; goto loop;} else{ return(t1);}} else{ return(C_SCHEME_FALSE);}} /* string-skip in k2464 in k2461 */ 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=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_6429,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; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6435,a[2]=t2,a[3]=t4,a[4]=((C_word)li300),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6441,a[2]=t3,a[3]=t2,a[4]=((C_word)li304),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1227: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k3406 in lp in k3388 in a3347 in string-every in k2464 in k2461 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3408,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:524: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3395(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a4644 in k4635 in a4629 in a4617 in string< in k2464 in k2461 */ static void C_ccall f_4645(C_word c,C_word *av){ C_word tmp; C_word 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_4645,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* string-concatenate-reverse/shared in k2464 in k2461 */ 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<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_7725,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; t4=C_i_nullp(t3); t5=(C_truep(t4)?lf[132]: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_i_string_length(t6):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_check_exact_2(t11,lf[131]); 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_7746,a[2]=t16,a[3]=t6,a[4]=t11,a[5]=((C_word)li371),tmp=(C_word)a,a+=6,tmp)); t18=((C_word*)t16)[1]; f_7746(t18,t1,C_fix(0),C_SCHEME_FALSE,t2);} /* a6440 in string-skip in k2464 in k2461 */ 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=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(7,c,2)))){ C_save_and_reclaim((void *)f_6441,4,av);} a=C_alloc(7); if(C_truep(C_charp(((C_word*)t0)[2]))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6453,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li301),tmp=(C_word)a,a+=6,tmp); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=( f_6453(t4,t2) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6483,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1235: char-set? */ t5=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k6241 in lp in k6223 in a6182 in string-index in k2464 in k2461 */ static void C_ccall f_6243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6243,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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)); /* srfi-13.scm:1198: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6230(t3,((C_word*)t0)[2],t2);}} /* string-pad-right in k2464 in k2461 */ 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=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,4)))){ C_save_and_reclaim((void*)f_5835,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; t5=C_i_check_exact_2(t3,lf[97]); t6=C_i_nullp(t4); t7=(C_truep(t6)?C_make_character(32):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=t10; t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5850,a[2]=t2,a[3]=t11,a[4]=((C_word)li270),tmp=(C_word)a,a+=5,tmp); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5856,a[2]=t3,a[3]=t2,a[4]=t8,a[5]=((C_word)li271),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1083: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t12; av2[3]=t13; C_call_with_values(4,av2);}} /* a4119 in a4107 in string-suffix? in k2464 in k2461 */ 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=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(4,c,7)))){ C_save_and_reclaim((void *)f_4120,4,av);} a=C_alloc(4); t4=t1; t5=((C_word*)t0)[2]; t6=((C_word*)t0)[3]; t7=((C_word*)t0)[4]; t8=((C_word*)t0)[5]; t9=C_fixnum_difference(t7,t6); t10=t9; t11=C_fixnum_difference(t3,t2); if(C_truep(C_fixnum_less_or_equal_p(t10,t11))){ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4226,a[2]=t4,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:704: %string-suffix-length */ f_3706(t12,t5,t6,t7,t8,t2,t3);} else{ t12=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} /* string-prefix-ci? in k2464 in k2461 */ static void C_ccall f_4126(C_word c,C_word *av){ C_word tmp; C_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,5)))){ C_save_and_reclaim((void*)f_4126,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=*((C_word*)lf[49]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4132,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li101),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4138,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li104),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:681: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a5849 in string-pad-right in k2464 in k2461 */ 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 *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_5850,2,av);} /* srfi-13.scm:1083: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[97]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-reverse! in k2464 in k2461 */ 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=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,4)))){ C_save_and_reclaim((void*)f_7384,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; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7390,a[2]=t2,a[3]=t3,a[4]=((C_word)li354),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7396,a[2]=t2,a[3]=((C_word)li356),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1514: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* k6276 in lp in k6223 in a6182 in string-index in k2464 in k2461 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6278,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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)); /* srfi-13.scm:1203: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6265(t3,((C_word*)t0)[2],t2);}} /* a8169 in string-xcopy! in k2464 in k2461 */ 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=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(13,c,5)))){ C_save_and_reclaim((void *)f_8170,5,av);} a=C_alloc(13); t5=C_fixnum_difference(t2,((C_word*)t0)[2]); t6=t5; t7=C_fixnum_plus(((C_word*)t0)[3],t6); t8=t7; t9=C_fixnum_difference(t4,t3); t10=t9; t11=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8183,a[2]=t6,a[3]=t1,a[4]=t10,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[2],a[9]=t2,a[10]=t3,a[11]=t4,a[12]=t8,tmp=(C_word)a,a+=13,tmp); /* srfi-13.scm:1815: check-substring-spec */ t12=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t12; av2[1]=t11; av2[2]=*((C_word*)lf[140]+1); av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[3]; av2[5]=t8; ((C_proc)(void*)(*((C_word*)t12+1)))(6,av2);}} /* a4131 in string-prefix-ci? in k2464 in k2461 */ 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; 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_4132,2,av);} /* srfi-13.scm:681: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4137 in string-prefix-ci? in k2464 in k2461 */ 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=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(13,c,4)))){ C_save_and_reclaim((void *)f_4138,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4144,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li102),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4150,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li103),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:681: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* lp in k6223 in a6182 in string-index in k2464 in k2461 */ static void C_fcall f_6265(C_word t0,C_word 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_6265,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6278,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); /* srfi-13.scm:1202: criteria */ t7=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(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);}}} /* a5855 in string-pad-right in k2464 in k2461 */ 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=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_5856,4,av);} a=C_alloc(6); t4=C_fixnum_difference(t3,t2); t5=((C_word*)t0)[2]; if(C_truep(C_fixnum_less_or_equal_p(t5,t4))){ t6=C_fixnum_plus(t2,((C_word*)t0)[2]); /* srfi-13.scm:1087: %substring/shared */ f_2671(t1,((C_word*)t0)[3],t2,t6);} else{ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5876,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1088: make-string */ t7=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k3895 in lp in k3872 in k3863 in %string-suffix-length-ci in k2464 in k2461 */ static void C_fcall f_3897(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_3897,2,t0,t1);} if(C_truep(t1)){ t2=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=C_fixnum_difference(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); t3=C_fixnum_difference(((C_word*)t0)[5],C_fix(1)); /* srfi-13.scm:640: lp */ t4=((C_word*)((C_word*)t0)[6])[1]; f_3887(t4,((C_word*)t0)[4],t2,t3);}} /* k5489 in g1232 in k5475 in lp in %string-titlecase! in k2464 in k2461 */ 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(6,c,4)))){ C_save_and_reclaim((void *)f_5491,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5495,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li242),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:985: g1246 */ t3=t2; f_5495(t3,((C_word*)t0)[5],t1);} else{ /* srfi-13.scm:990: string-downcase! */ t2=*((C_word*)lf[78]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k5800 in a5797 in string-trim-both in k2464 in k2461 */ static void C_ccall f_5802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5802,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5806,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li267),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1072: g1368 */ t3=t2; f_5806(t3,((C_word*)t0)[5],t1);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[96]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7985 in g1979 in k7969 in g1969 in k7958 in lp in a7949 in string-tokenize in k2464 in k2461 */ static void C_ccall f_7987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_7987,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* srfi-13.scm:1711: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_7956(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* lp in k3872 in k3863 in %string-suffix-length-ci in k2464 in k2461 */ static void C_fcall f_3887(C_word t0,C_word t1,C_word 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(10,0,3)))){ C_save_and_reclaim_args((void *)trf_3887,4,t0,t1,t2,t3);} a=C_alloc(10); t4=t2; t5=C_fixnum_lessp(t4,((C_word*)t0)[2]); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3897,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t1,a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); if(C_truep(t5)){ t7=t6; f_3897(t7,t5);} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3922,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=C_i_string_ref(((C_word*)t0)[5],t2); t9=C_i_string_ref(((C_word*)t0)[6],t3); /* srfi-13.scm:637: char-ci=? */ t10=*((C_word*)lf[41]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t7; av2[2]=t8; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}} /* k8181 in a8169 in string-xcopy! in k2464 in k2461 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,11)))){ C_save_and_reclaim((void *)f_8183,2,av);} t2=C_u_i_zerop(((C_word*)t0)[2]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_u_i_zerop(((C_word*)t0)[4]))){ /* srfi-13.scm:1817: ##sys#error */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 12) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(12); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[140]; av2[3]=lf[141]; av2[4]=*((C_word*)lf[140]+1); 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_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t3+1)))(12,av2);}} else{ t3=C_eqp(C_fix(1),((C_word*)t0)[4]); if(C_truep(t3)){ t4=C_i_string_ref(((C_word*)t0)[7],((C_word*)t0)[10]); /* srfi-13.scm:1822: ##srfi13#string-fill! */ t5=*((C_word*)lf[111]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; av2[3]=t4; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ /* srfi-13.scm:1837: %multispan-repcopy! */ f_8212(((C_word*)t0)[3],((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]);}}}} /* substring-spec-ok? in k2464 in k2461 */ 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=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(0,c,1)))){ C_save_and_reclaim((void *)f_2585,5,av);} if(C_truep(C_i_stringp(t2))){ if(C_truep(C_fixnump(t3))){ if(C_truep(C_fixnump(t4))){ t5=t3; if(C_truep(C_fixnum_less_or_equal_p(C_fix(0),t5))){ t6=t3; t7=t4; if(C_truep(C_fixnum_less_or_equal_p(t6,t7))){ t8=t4; t9=t2; t10=C_block_size(t9); t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_fixnum_less_or_equal_p(t8,t10); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* g1246 in k5489 in g1232 in k5475 in lp in %string-titlecase! in k2464 in k2461 */ static void C_fcall f_5495(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_5495,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5499,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:988: string-downcase! */ t4=*((C_word*)lf[78]+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]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k5497 in g1246 in k5489 in g1232 in k5475 in lp in %string-titlecase! in k2464 in k2461 */ static void C_ccall f_5499(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5499,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:989: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_5473(t3,((C_word*)t0)[4],t2);} /* g1368 in k5800 in a5797 in string-trim-both in k2464 in k2461 */ static void C_fcall f_5806(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_5806,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5818,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1077: string-skip-right */ t4=*((C_word*)lf[94]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* a8137 in a8125 in string-xcopy! in k2464 in k2461 */ static void C_ccall f_8138(C_word c,C_word *av){ 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_8138,2,av);} t2=C_i_cdr(((C_word*)t0)[2]); /* srfi-13.scm:1803: string-parse-final-start+end */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=*((C_word*)lf[140]+1); av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* lp in k3004 in k2992 in k3050 in lp2 in lp in k2929 in string-unfold in k2464 in k2461 */ static C_word C_fcall f_3023(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_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=t2; t6=C_u_i_cdr(t5); t7=C_i_string_length(t4); t8=C_fixnum_difference(t1,t7); t9=C_substring_copy(t4,((C_word*)t0)[2],C_fix(0),t7,t8); t11=t8; t12=t6; t1=t11; t2=t12; goto loop;} else{ t3=C_SCHEME_UNDEFINED; return(t3);}} /* k5816 in g1368 in k5800 in a5797 in string-trim-both in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5818,2,av);} t2=C_fixnum_plus(C_fix(1),t1); /* srfi-13.scm:1077: %substring/shared */ f_2671(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t2);} /* a4179 in a4167 in string-suffix-ci? in k2464 in k2461 */ 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=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(4,c,7)))){ C_save_and_reclaim((void *)f_4180,4,av);} a=C_alloc(4); t4=t1; t5=((C_word*)t0)[2]; t6=((C_word*)t0)[3]; t7=((C_word*)t0)[4]; t8=((C_word*)t0)[5]; t9=C_fixnum_difference(t7,t6); t10=t9; t11=C_fixnum_difference(t3,t2); if(C_truep(C_fixnum_less_or_equal_p(t10,t11))){ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4272,a[2]=t4,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:716: %string-suffix-length-ci */ f_3861(t12,t5,t6,t7,t8,t2,t3);} else{ t12=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} /* a2569 in string-parse-final-start+end in k2464 in k2461 */ static void C_ccall f_2570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,5)))){ C_save_and_reclaim((void *)f_2570,5,av);} if(C_truep(C_i_pairp(t2))){ /* srfi-13.scm:202: ##sys#error */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=lf[5]; av2[3]=lf[6]; av2[4]=((C_word*)t0)[2]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ /* srfi-13.scm:203: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_values(4,av2);}}} /* string-unfold-right in k2464 in k2461 */ 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=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); if(C_unlikely(!C_demand(C_calculate_demand((c-6)*C_SIZEOF_PAIR +12,c,3)))){ C_save_and_reclaim((void*)f_3081,c,av);} a=C_alloc((c-6)*C_SIZEOF_PAIR+12); 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; C_word t15; C_word t16; C_word t17; C_word t18; t7=C_i_nullp(t6); t8=(C_truep(t7)?lf[27]: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_i_nullp(t11); t13=(C_truep(t12)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3240,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp):C_i_car(t11)); t14=t13; t15=C_i_nullp(t11); t16=(C_truep(t15)?C_SCHEME_END_OF_LIST:C_i_cdr(t11)); t17=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3101,a[2]=t9,a[3]=t14,a[4]=t4,a[5]=t3,a[6]=t2,a[7]=t1,a[8]=t5,tmp=(C_word)a,a+=9,tmp); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[25]+1); av2[1]=t17; av2[2]=C_fix(40); av2[3]=C_make_character(32); tp(4,av2);}} /* k3518 in a3477 in string-any in k2464 in k2461 */ 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 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_3520,2,av);} 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_3525,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)li57),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_3525(t5,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ if(C_truep(C_i_closurep(((C_word*)t0)[4]))){ t2=((C_word*)t0)[6]; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t2,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|6,a[1]=(C_word)f_3566,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t5,a[6]=((C_word)li58),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_3566(t7,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ /* srfi-13.scm:560: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[35]; av2[3]=lf[36]; av2[4]=*((C_word*)lf[35]+1); av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* string-downcase! in k2464 in k2461 */ 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=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,4)))){ C_save_and_reclaim((void*)f_5449,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; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5455,a[2]=t2,a[3]=t3,a[4]=((C_word)li239),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5461,a[2]=t2,a[3]=((C_word)li240),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:976: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* lp in k3518 in a3477 in string-any in k2464 in k2461 */ static void C_fcall f_3525(C_word t0,C_word 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_3525,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3535,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); /* srfi-13.scm:549: char-set-contains? */ t7=*((C_word*)lf[32]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,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);}}} /* a5442 in string-downcase in k2464 in k2461 */ static void C_ccall f_5443(C_word c,C_word *av){ C_word tmp; C_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_5443,4,av);} /* srfi-13.scm:974: %string-map */ f_2729(t1,*((C_word*)lf[77]+1),((C_word*)t0)[2],t2,t3);} /* a5460 in string-downcase! in k2464 in k2461 */ static void C_ccall f_5461(C_word c,C_word *av){ C_word tmp; C_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_5461,4,av);} /* srfi-13.scm:978: %string-map! */ f_2790(t1,*((C_word*)lf[77]+1),((C_word*)t0)[2],t2,t3);} /* a5454 in string-downcase! in k2464 in k2461 */ 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!=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_5455,2,av);} /* srfi-13.scm:976: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[78]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6698 in string-count in k2464 in k2461 */ 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=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(7,c,3)))){ C_save_and_reclaim((void *)f_6699,4,av);} a=C_alloc(7); if(C_truep(C_charp(((C_word*)t0)[2]))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6711,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li313),tmp=(C_word)a,a+=6,tmp); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=( f_6711(t4,t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6745,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1283: char-set? */ t5=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* %string-titlecase! in k2464 in k2461 */ static void C_fcall f_5467(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_5467,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_5473,a[2]=t2,a[3]=t6,a[4]=t4,a[5]=((C_word)li246),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_5473(t8,t1,t3);} /* g1232 in k5475 in lp in %string-titlecase! in k2464 in k2461 */ static void C_fcall f_5481(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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,5)))){ C_save_and_reclaim_args((void *)trf_5481,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_string_ref(((C_word*)t0)[2],t2); t4=C_u_i_char_upcase(t3); t5=C_i_string_set(((C_word*)t0)[2],t2,t4); t6=C_fixnum_plus(t2,C_fix(1)); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5491,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t7,a[5]=t1,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5514,a[2]=((C_word)li243),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:986: string-skip */ t10=*((C_word*)lf[80]+1);{ C_word av2[6]; av2[0]=t10; av2[1]=t8; av2[2]=((C_word*)t0)[2]; av2[3]=t9; av2[4]=t7; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}} /* k3050 in lp2 in lp in k2929 in string-unfold in k2464 in k2461 */ static void C_ccall f_3052(C_word c,C_word *av){ C_word tmp; C_word t0=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_3052,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2994,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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); /* srfi-13.scm:431: make-final */ t3=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2949,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); /* srfi-13.scm:417: f */ t3=((C_word*)t0)[14];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} /* a6692 in string-count in k2464 in k2461 */ static void C_ccall f_6693(C_word c,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_6693,2,av);} /* srfi-13.scm:1274: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[109]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-count in k2464 in k2461 */ static void C_ccall f_6687(C_word c,C_word *av){ C_word tmp; C_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_6687,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; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6693,a[2]=t2,a[3]=t4,a[4]=((C_word)li312),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6699,a[2]=t3,a[3]=t2,a[4]=((C_word)li316),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1274: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k3533 in lp in k3518 in a3477 in string-any in k2464 in k2461 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3535,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* srfi-13.scm:550: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_3525(t3,((C_word*)t0)[2],t2);}} /* k5475 in lp in %string-titlecase! in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5477,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5481,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li244),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:980: g1232 */ t3=t2; f_5481(t3,((C_word*)t0)[5],t1);} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* lp in %string-titlecase! in k2464 in k2461 */ static void C_fcall f_5473(C_word t0,C_word t1,C_word 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,5)))){ C_save_and_reclaim_args((void *)trf_5473,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5477,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); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5536,a[2]=((C_word)li245),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:982: string-index */ t5=*((C_word*)lf[81]+1);{ C_word av2[6]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=t4; av2[4]=t2; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* g1979 in k7969 in g1969 in k7958 in lp in a7949 in string-tokenize in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_7975,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7987,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); t4=C_fixnum_plus(C_fix(1),t2); /* srfi-13.scm:1712: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[12]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t4; av2[4]=((C_word*)t0)[5]; tp(5,av2);}} /* k7969 in g1969 in k7958 in lp in a7949 in string-tokenize in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_7971,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7975,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word)li379),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1707: g1979 */ t3=t2; f_7975(t3,((C_word*)t0)[6],t1);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8001,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1714: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[12]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[7]; av2[4]=((C_word*)t0)[5]; tp(5,av2);}}} /* a7895 in k7883 in string-replace in k2464 in k2461 */ static void C_ccall f_7896(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(11,c,2)))){ C_save_and_reclaim((void *)f_7896,4,av);} a=C_alloc(11); t4=C_i_string_length(((C_word*)t0)[2]); t5=t4; t6=C_fixnum_difference(t3,t2); t7=t6; t8=C_fixnum_difference(((C_word*)t0)[3],((C_word*)t0)[4]); t9=C_fixnum_difference(t5,t8); t10=C_fixnum_plus(t9,t7); t11=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7909,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=t3,a[7]=t7,a[8]=((C_word*)t0)[3],a[9]=t5,a[10]=t1,tmp=(C_word)a,a+=11,tmp); /* srfi-13.scm:1688: make-string */ t12=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t11; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} /* a7889 in k7883 in string-replace in k2464 in k2461 */ 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; 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_7890,2,av);} /* srfi-13.scm:1684: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[133]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* lp in k3518 in a3477 in string-any in k2464 in k2461 */ static void C_fcall f_3566(C_word t0,C_word t1,C_word t2){ C_word 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_3566,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_string_ref(((C_word*)t0)[2],t2); t4=C_fixnum_plus(t2,C_fix(1)); t5=t4; t6=((C_word*)t0)[3]; t7=C_eqp(t5,t6); if(C_truep(t7)){ /* srfi-13.scm:557: criteria */ t8=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t8; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3585,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:558: criteria */ t9=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t9))(3,av2);}}} /* a4544 in a4538 in string<> in k2464 in k2461 */ 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!=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_4545,2,av);} /* srfi-13.scm:790: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4107 in string-suffix? in k2464 in k2461 */ static void C_ccall f_4108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(13,c,4)))){ C_save_and_reclaim((void *)f_4108,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4114,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li97),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4120,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li98),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:676: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4101 in string-suffix? in k2464 in k2461 */ static void C_ccall f_4102(C_word c,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_4102,2,av);} /* srfi-13.scm:676: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7883 in string-replace in k2464 in k2461 */ static void C_ccall f_7885(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7885,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7890,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=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7896,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)li376),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1684: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* string-replace in k2464 in k2461 */ 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=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); if(C_unlikely(!C_demand(C_calculate_demand((c-6)*C_SIZEOF_PAIR +8,c,5)))){ C_save_and_reclaim((void*)f_7881,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; t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7885,a[2]=t3,a[3]=t6,a[4]=t2,a[5]=t5,a[6]=t4,a[7]=t1,tmp=(C_word)a,a+=8,tmp); /* srfi-13.scm:1683: check-substring-spec */ t8=*((C_word*)lf[8]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=*((C_word*)lf[133]+1); av2[3]=t2; av2[4]=t4; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}} /* a4113 in a4107 in string-suffix? in k2464 in k2461 */ 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!=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_4114,2,av);} /* srfi-13.scm:676: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3004 in k2992 in k3050 in lp2 in lp in k2929 in string-unfold in k2464 in k2461 */ 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 t4; 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,3)))){ C_save_and_reclaim((void *)f_3006,2,av);} a=C_alloc(4); t2=t1; t3=C_substring_copy(((C_word*)t0)[2],t2,C_fix(0),((C_word*)t0)[3],((C_word*)t0)[4]); t4=C_fixnum_difference(((C_word*)t0)[4],((C_word*)t0)[5]); t5=((C_word*)t0)[6]; t6=((C_word*)t0)[5]; t7=C_substring_copy(t5,t2,C_fix(0),t6,t4); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3023,a[2]=t2,a[3]=((C_word)li32),tmp=(C_word)a,a+=4,tmp); t9=( f_3023(t8,t4,((C_word*)t0)[7]) ); t10=C_substring_copy(((C_word*)t0)[8],t2,C_fix(0),((C_word*)t0)[9],C_fix(0)); t11=((C_word*)t0)[10];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} /* a4568 in k4584 in a4550 in a4538 in string<> in k2464 in k2461 */ static void C_ccall f_4569(C_word c,C_word *av){ C_word tmp; C_word 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_4569,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4532 in string<> in k2464 in k2461 */ 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 *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_4533,2,av);} /* srfi-13.scm:790: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4538 in string<> in k2464 in k2461 */ 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=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(13,c,4)))){ C_save_and_reclaim((void *)f_4539,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4545,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li132),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4551,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],a[6]=((C_word)li136),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:790: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* f_3063 in string-unfold in k2464 in k2461 */ static void C_ccall f_3063(C_word c,C_word *av){ C_word tmp; C_word 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_3063,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[23]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a5034 in k5016 in a5010 in a4998 in string-ci< in k2464 in k2461 */ static void C_ccall f_5035(C_word c,C_word *av){ C_word tmp; C_word 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_5035,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a5031 in k5016 in a5010 in a4998 in string-ci< in k2464 in k2461 */ static void C_ccall f_5032(C_word c,C_word *av){ C_word tmp; C_word 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_5032,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4503 in k4491 in a4482 in a4470 in string= in k2464 in k2461 */ 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=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_4504,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4500 in k4491 in a4482 in a4470 in string= in k2464 in k2461 */ 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=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_4501,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* string-ci> in k2464 in k2461 */ static void C_ccall f_5044(C_word c,C_word *av){ C_word tmp; C_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,5)))){ C_save_and_reclaim((void*)f_5044,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=*((C_word*)lf[65]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5050,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li195),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5056,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li201),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:875: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a4550 in a4538 in string<> in k2464 in k2461 */ static void C_ccall f_4551(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_4551,4,av);} a=C_alloc(9); t4=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t5=C_fixnum_difference(t3,t2); t6=C_eqp(t4,t5); t7=C_i_not(t6); if(C_truep(t7)){ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4586,a[2]=t1,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]=t2,a[8]=t3,tmp=(C_word)a,a+=9,tmp); t9=C_eqp(((C_word*)t0)[4],((C_word*)t0)[5]); if(C_truep(t9)){ t10=((C_word*)t0)[3]; t11=t2; t12=t8; f_4586(t12,C_eqp(t10,t11));} else{ t10=t8; f_4586(t10,C_SCHEME_FALSE);}}} /* string<> in k2464 in k2461 */ 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=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,5)))){ C_save_and_reclaim((void*)f_4527,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=*((C_word*)lf[57]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4533,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li131),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4539,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li137),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:790: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* k6945 in lp in a6921 in a6909 in string-contains in k2464 in k2461 */ static void C_ccall f_6947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6947,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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)); /* srfi-13.scm:1339: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6934(t3,((C_word*)t0)[2],t2);}} /* string-every in k2464 in k2461 */ 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=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_3336,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; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3342,a[2]=t3,a[3]=t4,a[4]=((C_word)li49),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3348,a[2]=t2,a[3]=t3,a[4]=((C_word)li53),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:512: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a5004 in a4998 in string-ci< in k2464 in k2461 */ 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 *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_5005,2,av);} /* srfi-13.scm:864: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5999 in a5993 in k5978 in a5966 in string-delete in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6001,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_i_string_set(((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[5]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* string-ci< in k2464 in k2461 */ 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=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,5)))){ C_save_and_reclaim((void*)f_4987,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=*((C_word*)lf[64]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4993,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li187),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4999,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li193),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:864: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a4509 in k4491 in a4482 in a4470 in string= in k2464 in k2461 */ 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 *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_4510,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* lp in a6921 in a6909 in string-contains in k2464 in k2461 */ static void C_fcall f_6934(C_word t0,C_word t1,C_word 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,7)))){ C_save_and_reclaim_args((void *)trf_6934,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_less_or_equal_p(t2,((C_word*)t0)[2]))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6947,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_fixnum_plus(t2,((C_word*)t0)[4]); /* srfi-13.scm:1337: string= */ t5=*((C_word*)lf[56]+1);{ C_word av2[8]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=t2; av2[5]=t4; av2[6]=((C_word*)t0)[7]; av2[7]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t5+1)))(8,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);}}} /* lp in a3347 in string-every in k2464 in k2461 */ static C_word C_fcall f_3360(C_word t0,C_word t1){ C_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=t1; t3=((C_word*)t0)[2]; t4=C_fixnum_greater_or_equal_p(t2,t3); if(C_truep(t4)){ return(t4);} else{ t5=C_i_string_ref(((C_word*)t0)[3],t1); if(C_truep(C_i_char_equalp(((C_word*)t0)[4],t5))){ t6=C_fixnum_plus(t1,C_fix(1)); t8=t6; t1=t8; goto loop;} else{ return(C_SCHEME_FALSE);}}} /* k4379 in k4345 in %string-compare-ci in k2464 in k2461 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4381,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[4]); /* srfi-13.scm:742: g779 */ t4=t2;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ t2=((C_word*)t0)[6]; t3=C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[4]); /* srfi-13.scm:742: g779 */ t4=t2;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}} /* a4998 in string-ci< in k2464 in k2461 */ 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=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(13,c,4)))){ C_save_and_reclaim((void *)f_4999,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5005,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li188),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5011,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word)li192),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:864: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4992 in string-ci< in k2464 in k2461 */ static void C_ccall f_4993(C_word c,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_4993,2,av);} /* srfi-13.scm:864: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* string-compare in k2464 in k2461 */ 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=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 +15,c,5)))){ C_save_and_reclaim((void*)f_4399,c,av);} a=C_alloc((c-7)*C_SIZEOF_PAIR+15); t7=C_build_rest(&a,c,7,av); C_word t8; C_word t9; C_word t10; C_word t11; t8=*((C_word*)lf[54]+1); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4405,a[2]=t8,a[3]=t2,a[4]=t7,a[5]=((C_word)li113),tmp=(C_word)a,a+=6,tmp); t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4411,a[2]=t8,a[3]=t3,a[4]=t2,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=((C_word)li116),tmp=(C_word)a,a+=9,tmp); /* srfi-13.scm:755: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t9; av2[3]=t10; C_call_with_values(4,av2);}} /* k7104 in lp2 in lp1 in k7045 in a7039 in make-kmp-restart-vector in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7106,2,av);} t2=(C_truep(t1)?C_i_vector_set(((C_word*)t0)[2],((C_word*)t0)[3],C_fix(-1)):C_i_vector_set(((C_word*)t0)[2],((C_word*)t0)[3],C_fix(0))); t3=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); /* srfi-13.scm:1426: lp1 */ t4=((C_word*)((C_word*)t0)[5])[1]; f_7064(t4,((C_word*)t0)[6],((C_word*)t0)[3],C_fix(0),t3);} /* k6008 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_6010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6010,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6013,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|3,a[1]=(C_word)f_6036,a[2]=t2,a[3]=((C_word)li279),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1134: string-fold */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} /* k7114 in lp2 in lp1 in k7045 in a7039 in make-kmp-restart-vector in k2464 in k2461 */ 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(0,c,4)))){ C_save_and_reclaim((void *)f_7116,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(C_fix(1),((C_word*)t0)[2]); t3=C_fixnum_plus(C_fix(1),((C_word*)t0)[3]); t4=C_i_vector_set(((C_word*)t0)[4],t2,t3); t5=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); /* srfi-13.scm:1434: lp1 */ t6=((C_word*)((C_word*)t0)[6])[1]; f_7064(t6,((C_word*)t0)[7],t2,t3,t5);} else{ t2=C_i_vector_ref(((C_word*)t0)[4],((C_word*)t0)[3]); /* srfi-13.scm:1436: lp2 */ t3=((C_word*)((C_word*)t0)[8])[1]; f_7076(t3,((C_word*)t0)[7],t2);}} /* k6026 in a6020 in k6014 in k6011 in k6008 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_6028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6028,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_i_string_set(((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[5]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a2783 in string-map! in k2464 in k2461 */ static void C_ccall f_2784(C_word c,C_word *av){ C_word tmp; C_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_2784,4,av);} /* srfi-13.scm:318: %string-map! */ f_2790(t1,((C_word*)t0)[2],((C_word*)t0)[3],t2,t3);} /* k3325 in lp in a3310 in string-for-each-index in k2464 in k2461 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3327,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:510: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3317(t3,((C_word*)t0)[4],t2);} /* k6017 in k6014 in k6011 in k6008 in a5966 in string-delete in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6019,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6011 in k6008 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_6013(C_word c,C_word *av){ C_word tmp; C_word t0=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_6013,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6016,a[2]=((C_word*)t0)[2],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); /* srfi-13.scm:1138: make-string */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6014 in k6011 in k6008 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_6016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,6)))){ C_save_and_reclaim((void *)f_6016,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6019,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_6021,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word)li278),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1139: string-fold */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} /* k4872 in a4863 in a4851 in string-ci= in k2464 in k2461 */ static void C_fcall f_4874(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,10)))){ C_save_and_reclaim_args((void *)trf_4874,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]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4882,a[2]=((C_word)li173),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4885,a[2]=((C_word)li174),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4891,a[2]=((C_word)li175),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:849: %string-compare-ci */ f_4337(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],t2,t3,t4);}} /* a5049 in string-ci> in k2464 in k2461 */ static void C_ccall f_5050(C_word c,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_5050,2,av);} /* srfi-13.scm:875: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* %string-map! in k2464 in k2461 */ static void C_fcall f_2790(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,3)))){ C_save_and_reclaim_args((void *)trf_2790,5,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_2796,a[2]=t5,a[3]=t3,a[4]=t7,a[5]=t2,a[6]=((C_word)li21),tmp=(C_word)a,a+=7,tmp)); t9=((C_word*)t7)[1]; f_2796(t9,t1,t4);} /* a5055 in string-ci> in k2464 in k2461 */ static void C_ccall f_5056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(13,c,4)))){ C_save_and_reclaim((void *)f_5056,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5062,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li196),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5068,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word)li200),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:875: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a2493 in string-parse-start+end in k2464 in k2461 */ 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 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(0,c,6)))){ C_save_and_reclaim((void *)f_2494,2,av);} if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=C_u_i_car(((C_word*)t0)[2]); t3=C_u_i_cdr(((C_word*)t0)[2]); t4=C_fixnump(t2); t5=(C_truep(t4)?C_fixnum_less_or_equal_p(t2,((C_word*)t0)[3]):C_SCHEME_FALSE); if(C_truep(t5)){ /* srfi-13.scm:190: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_values(4,av2);}} else{ /* srfi-13.scm:191: ##sys#error */ t6=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t6; av2[1]=t1; av2[2]=lf[0]; av2[3]=lf[2]; av2[4]=((C_word*)t0)[4]; av2[5]=t2; av2[6]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(7,av2);}}} else{ /* srfi-13.scm:192: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[2]; C_values(4,av2);}}} /* doloop231 in %string-map! in k2464 in k2461 */ static void 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_2796,3,t0,t1,t2);} a=C_alloc(6); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t3,t4))){ 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);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2817,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); t6=C_i_string_ref(((C_word*)t0)[3],t2); /* srfi-13.scm:323: proc */ t7=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}} /* a6921 in a6909 in string-contains in k2464 in k2461 */ static void C_ccall f_6922(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(12,c,3)))){ C_save_and_reclaim((void *)f_6922,4,av);} a=C_alloc(12); t4=C_fixnum_difference(t3,t2); t5=t4; t6=C_fixnum_difference(((C_word*)t0)[2],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|9,a[1]=(C_word)f_6934,a[2]=t7,a[3]=t9,a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t2,a[8]=t3,a[9]=((C_word)li327),tmp=(C_word)a,a+=10,tmp)); t11=((C_word*)t9)[1]; f_6934(t11,t1,((C_word*)t0)[5]);} /* a3310 in string-for-each-index in k2464 in k2461 */ static void C_ccall f_3311(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_3311,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_3317,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word)li46),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_3317(t7,t1,t2);} /* lp in a3310 in string-for-each-index in k2464 in k2461 */ static void C_fcall f_3317(C_word 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_3317,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3327,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:510: proc */ t6=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t6))(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);}}} /* k6047 in a5966 in string-delete in k2464 in k2461 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6049,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_6010(2,av2);}} else{ if(C_truep(C_charp(((C_word*)t0)[3]))){ /* srfi-13.scm:1132: char-set */ t2=*((C_word*)lf[100]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ /* srfi-13.scm:1133: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[99]; av2[3]=lf[101]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}} /* k6041 in a6035 in k6008 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_6043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6043,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a4845 in string-ci= in k2464 in k2461 */ static void C_ccall f_4846(C_word c,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_4846,2,av);} /* srfi-13.scm:844: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* string-ci= in k2464 in k2461 */ static void C_ccall f_4840(C_word c,C_word *av){ C_word tmp; C_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,5)))){ C_save_and_reclaim((void*)f_4840,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=*((C_word*)lf[62]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4846,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li171),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4852,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li177),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:844: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a5061 in a5055 in string-ci> in k2464 in k2461 */ 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 *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_5062,2,av);} /* srfi-13.scm:875: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a6915 in a6909 in string-contains in k2464 in k2461 */ static void C_ccall f_6916(C_word c,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_6916,2,av);} /* srfi-13.scm:1330: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a6909 in string-contains in k2464 in k2461 */ 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=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(13,c,4)))){ C_save_and_reclaim((void *)f_6910,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6916,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li326),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6922,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word)li328),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1330: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a3341 in string-every in k2464 in k2461 */ static void C_ccall f_3342(C_word c,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_3342,2,av);} /* srfi-13.scm:512: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[31]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3347 in string-every in k2464 in k2461 */ static void C_ccall f_3348(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(7,c,2)))){ C_save_and_reclaim((void *)f_3348,4,av);} a=C_alloc(7); if(C_truep(C_charp(((C_word*)t0)[2]))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3360,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li50),tmp=(C_word)a,a+=6,tmp); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=( f_3360(t4,t2) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3390,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:520: char-set? */ t5=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* a6035 in k6008 in a5966 in string-delete in k2464 in k2461 */ 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=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_6036,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6043,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1134: char-set-contains? */ t5=*((C_word*)lf[32]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a4851 in string-ci= in k2464 in k2461 */ static void C_ccall f_4852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(13,c,4)))){ C_save_and_reclaim((void *)f_4852,5,av);} a=C_alloc(13); t5=(*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]=t2,a[5]=((C_word)li172),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4864,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],a[6]=((C_word)li176),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:844: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k5073 in a5067 in a5055 in string-ci> in k2464 in k2461 */ static void C_fcall f_5075(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,10)))){ C_save_and_reclaim_args((void *)trf_5075,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_fixnum_greaterp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5083,a[2]=((C_word)li197),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5086,a[2]=((C_word)li198),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5089,a[2]=((C_word)li199),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:881: %string-compare-ci */ f_4337(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],t2,t3,t4);}} /* a4857 in a4851 in string-ci= in k2464 in k2461 */ static void C_ccall f_4858(C_word c,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_4858,2,av);} /* srfi-13.scm:844: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5067 in a5055 in string-ci> in k2464 in k2461 */ static void C_ccall f_5068(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,2)))){ C_save_and_reclaim((void *)f_5068,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5075,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t5=C_eqp(((C_word*)t0)[3],((C_word*)t0)[5]); if(C_truep(t5)){ t6=((C_word*)t0)[4]; t7=t2; t8=t4; f_5075(t8,C_eqp(t6,t7));} else{ t6=t4; f_5075(t6,C_SCHEME_FALSE);}} /* a6068 in string-filter in k2464 in k2461 */ 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 *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_6069,2,av);} /* srfi-13.scm:1146: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[102]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5082 in k5073 in a5067 in a5055 in string-ci> in k2464 in k2461 */ static void C_ccall f_5083(C_word c,C_word *av){ C_word tmp; C_word 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_5083,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a5085 in k5073 in a5067 in a5055 in string-ci> in k2464 in k2461 */ static void C_ccall f_5086(C_word c,C_word *av){ C_word tmp; C_word 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_5086,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3790 in %string-prefix-length-ci in k2464 in k2461 */ 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 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_3792,2,av);} a=C_alloc(9); t2=t1; t3=C_fixnum_plus(((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3801,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[2],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_eqp(((C_word*)t0)[4],((C_word*)t0)[5]); if(C_truep(t6)){ t7=((C_word*)t0)[2]; t8=((C_word*)t0)[6]; t9=t5; f_3801(t9,C_eqp(t7,t8));} else{ t7=t5; f_3801(t7,C_SCHEME_FALSE);}} /* a5010 in a4998 in string-ci< in k2464 in k2461 */ static void C_ccall f_5011(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,2)))){ C_save_and_reclaim((void *)f_5011,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5018,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t5=C_eqp(((C_word*)t0)[3],((C_word*)t0)[5]); if(C_truep(t5)){ t6=((C_word*)t0)[4]; t7=t2; t8=t4; f_5018(t8,C_eqp(t6,t7));} else{ t6=t4; f_5018(t6,C_SCHEME_FALSE);}} /* a5088 in k5073 in a5067 in a5055 in string-ci> in k2464 in k2461 */ static void C_ccall f_5089(C_word c,C_word *av){ C_word tmp; C_word 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_5089,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* string-contains-ci in k2464 in k2461 */ static void C_ccall f_6960(C_word c,C_word *av){ C_word tmp; C_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,5)))){ C_save_and_reclaim((void*)f_6960,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=*((C_word*)lf[113]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6966,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li331),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6972,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li335),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1341: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a6965 in string-contains-ci in k2464 in k2461 */ 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 *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_6966,2,av);} /* srfi-13.scm:1341: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* %string-prefix-length-ci in k2464 in k2461 */ static void C_fcall f_3788(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(7,0,3)))){ C_save_and_reclaim_args((void *)trf_3788,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(7); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3792,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t5,a[6]=t6,tmp=(C_word)a,a+=7,tmp); t9=C_fixnum_difference(t4,t3); t10=C_fixnum_difference(t7,t6); /* srfi-13.scm:615: min */ t11=*((C_word*)lf[24]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=t8; av2[2]=t9; av2[3]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} /* k6086 in a6074 in string-filter in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,6)))){ C_save_and_reclaim((void *)f_6088,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6091,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|4,a[1]=(C_word)f_6102,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word)li283),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1151: string-fold */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} /* a4803 in a4791 in string>= in k2464 in k2461 */ 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=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,2)))){ C_save_and_reclaim((void *)f_4804,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4811,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t5=C_eqp(((C_word*)t0)[3],((C_word*)t0)[5]); if(C_truep(t5)){ t6=((C_word*)t0)[4]; t7=t2; t8=t4; f_4811(t8,C_eqp(t6,t7));} else{ t6=t4; f_4811(t6,C_SCHEME_FALSE);}} /* a5025 in k5016 in a5010 in a4998 in string-ci< in k2464 in k2461 */ static void C_ccall f_5026(C_word c,C_word *av){ C_word tmp; C_word 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_5026,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a6020 in k6014 in k6011 in k6008 in a5966 in string-delete in k2464 in k2461 */ 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 *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_6021,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6028,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1139: char-set-contains? */ t5=*((C_word*)lf[32]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k5016 in a5010 in a4998 in string-ci< in k2464 in k2461 */ static void C_fcall f_5018(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,10)))){ C_save_and_reclaim_args((void *)trf_5018,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_fixnum_lessp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5026,a[2]=((C_word)li189),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5032,a[2]=((C_word)li190),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5035,a[2]=((C_word)li191),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:870: %string-compare-ci */ f_4337(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],t2,t3,t4);}} /* k7178 in lp in kmp-step in k2464 in k2461 */ static void C_ccall f_7180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7180,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_vector_ref(((C_word*)t0)[4],((C_word*)t0)[3]); t3=C_eqp(t2,C_fix(-1)); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* srfi-13.scm:1458: lp */ t4=((C_word*)((C_word*)t0)[5])[1]; f_7173(t4,((C_word*)t0)[2],t2);}}} /* a3304 in string-for-each-index in k2464 in k2461 */ static void C_ccall f_3305(C_word c,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_3305,2,av);} /* srfi-13.scm:506: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[30]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6074 in string-filter in k2464 in k2461 */ 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=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,2)))){ C_save_and_reclaim((void *)f_6075,4,av);} a=C_alloc(10); if(C_truep(C_i_closurep(((C_word*)t0)[2]))){ t4=C_fixnum_difference(t3,t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6088,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t2,a[7]=t3,tmp=(C_word)a,a+=8,tmp); /* srfi-13.scm:1150: make-string */ t7=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6118,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6157,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1159: char-set? */ t6=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k4809 in a4803 in a4791 in string>= in k2464 in k2461 */ static void C_fcall f_4811(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,10)))){ C_save_and_reclaim_args((void *)trf_4811,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_fixnum_greater_or_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4819,a[2]=((C_word)li165),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4822,a[2]=((C_word)li166),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4828,a[2]=((C_word)li167),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:839: %string-compare */ f_4278(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],t2,t3,t4);}} /* a4818 in k4809 in a4803 in a4791 in string>= in k2464 in k2461 */ static void C_ccall f_4819(C_word c,C_word *av){ C_word tmp; C_word 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_4819,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6089 in k6086 in a6074 in string-filter in k2464 in k2461 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6091,2,av);} t2=C_eqp(t1,((C_word*)t0)[2]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* srfi-13.scm:1157: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[12]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(0); av2[4]=t1; tp(5,av2);}}} /* a6903 in string-contains in k2464 in k2461 */ static void C_ccall f_6904(C_word c,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_6904,2,av);} /* srfi-13.scm:1330: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4863 in a4851 in string-ci= in k2464 in k2461 */ static void C_ccall f_4864(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(9,c,2)))){ C_save_and_reclaim((void *)f_4864,4,av);} a=C_alloc(9); t4=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t5=C_fixnum_difference(t3,t2); t6=C_eqp(t4,t5); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4874,a[2]=t1,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]=t2,a[8]=t3,tmp=(C_word)a,a+=9,tmp); t8=C_eqp(((C_word*)t0)[4],((C_word*)t0)[5]); if(C_truep(t8)){ t9=((C_word*)t0)[3]; t10=t2; t11=t7; f_4874(t11,C_eqp(t9,t10));} else{ t9=t7; f_4874(t9,C_SCHEME_FALSE);}} else{ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k7543 in lp in string-concatenate/shared in k2464 in k2461 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7545,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7550,a[2]=t2,a[3]=((C_word)li363),tmp=(C_word)a,a+=4,tmp); t4=( f_7550(t3,((C_word*)t0)[2],C_fix(0)) ); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* string-filter in k2464 in k2461 */ static void C_ccall f_6063(C_word c,C_word *av){ C_word tmp; C_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_6063,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; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6069,a[2]=t3,a[3]=t4,a[4]=((C_word)li282),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6075,a[2]=t2,a[3]=t3,a[4]=((C_word)li286),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1146: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* lp in k7543 in lp in string-concatenate/shared in k2464 in k2461 */ static C_word C_fcall f_7550(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t3=t1; t4=C_u_i_car(t3); t5=C_i_string_length(t4); t6=t2; t7=C_substring_copy(t4,((C_word*)t0)[2],C_fix(0),t5,t6); t8=t1; t9=C_u_i_cdr(t8); t10=C_fixnum_plus(t2,t5); t12=t9; t13=t10; t1=t12; t2=t13; goto loop;} else{ t3=C_SCHEME_UNDEFINED; return(t3);}} /* lp in a3477 in string-any in k2464 in k2461 */ static C_word C_fcall f_3490(C_word t0,C_word t1){ C_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=t1; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t2,t3))){ t4=C_i_string_ref(((C_word*)t0)[3],t1); t5=C_i_char_equalp(((C_word*)t0)[4],t4); if(C_truep(t5)){ return(t5);} else{ t6=C_fixnum_plus(t1,C_fix(1)); t8=t6; t1=t8; goto loop;}} else{ return(C_SCHEME_FALSE);}} /* string-append/shared in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_7484,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; /* srfi-13.scm:1565: string-concatenate/shared */ t3=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* string-trim in k2464 in k2461 */ static void C_ccall f_5682(C_word c,C_word *av){ C_word tmp; C_word 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,4)))){ C_save_and_reclaim((void*)f_5682,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_word*)lf[90]+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=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5694,a[2]=t2,a[3]=t9,a[4]=((C_word)li258),tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5700,a[2]=t2,a[3]=t6,a[4]=((C_word)li260),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1058: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t10; av2[3]=t11; C_call_with_values(4,av2);}} /* a4821 in k4809 in a4803 in a4791 in string>= in k2464 in k2461 */ 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 *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_4822,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4827 in k4809 in a4803 in a4791 in string>= in k2464 in k2461 */ 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); 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* kmp-step in k2464 in k2461 */ static void C_ccall f_7167(C_word c,C_word *av){ C_word tmp; C_word t0=av[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 *a; if(c!=8) C_bad_argc_2(c,8,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_7167,8,av);} a=C_alloc(11); 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|8,a[1]=(C_word)f_7173,a[2]=t3,a[3]=t9,a[4]=t7,a[5]=t2,a[6]=t6,a[7]=t4,a[8]=((C_word)li342),tmp=(C_word)a,a+=9,tmp)); t11=((C_word*)t9)[1]; f_7173(t11,t1,t5);} /* lp in string-concatenate/shared in k2464 in k2461 */ static void C_fcall f_7496(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(4,0,4)))){ C_save_and_reclaim_args((void *)trf_7496,5,t0,t1,t2,t3,t4);} a=C_alloc(4); if(C_truep(C_i_pairp(t2))){ t5=t2; t6=C_u_i_car(t5); t7=t2; t8=C_u_i_cdr(t7); t9=C_i_string_length(t6); t10=C_eqp(t9,C_fix(0)); if(C_truep(t10)){ /* srfi-13.scm:1574: lp */ t15=t1; t16=t8; t17=t3; t18=t4; t1=t15; t2=t16; t3=t17; t4=t18; goto loop;} else{ t11=C_fixnum_plus(t3,t9); t12=t4; if(C_truep(t12)){ /* srfi-13.scm:1575: lp */ t15=t1; t16=t8; t17=t11; t18=t12; t1=t15; t2=t16; t3=t17; t4=t18; goto loop;} else{ t13=t2; /* srfi-13.scm:1575: lp */ t15=t1; t16=t8; t17=t11; t18=t13; t1=t15; t2=t16; t3=t17; t4=t18; goto loop;}}} else{ t5=C_eqp(t3,C_fix(0)); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=lf[126]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_i_car(t4); t7=C_i_string_length(t6); t8=t3; t9=C_eqp(t8,t7); if(C_truep(t9)){ t10=t4; t11=C_u_i_car(t10); 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|3,a[1]=(C_word)f_7545,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1582: make-string */ t11=*((C_word*)lf[16]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}}}} /* a5693 in string-trim in k2464 in k2461 */ static void C_ccall f_5694(C_word c,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_5694,2,av);} /* srfi-13.scm:1058: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[89]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-concatenate/shared in k2464 in k2461 */ static void C_ccall f_7490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,5)))){ C_save_and_reclaim((void *)f_7490,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_7496,a[2]=t4,a[3]=((C_word)li364),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_7496(t6,t1,t2,C_fix(0),C_SCHEME_FALSE);} /* a3477 in string-any in k2464 in k2461 */ 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=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(7,c,2)))){ C_save_and_reclaim((void *)f_3478,4,av);} a=C_alloc(7); if(C_truep(C_charp(((C_word*)t0)[2]))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3490,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li56),tmp=(C_word)a,a+=6,tmp); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=( f_3490(t4,t2) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3520,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:546: char-set? */ t5=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* lp in kmp-step in k2464 in k2461 */ static void C_fcall f_7173(C_word 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_7173,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7180,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=C_fixnum_plus(t2,((C_word*)t0)[4]); t5=C_i_string_ref(((C_word*)t0)[5],t4); /* srfi-13.scm:1454: c= */ t6=((C_word*)t0)[6];{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=t5; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} /* a3471 in string-any in k2464 in k2461 */ 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 *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_3472,2,av);} /* srfi-13.scm:538: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[35]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-fold in k2464 in k2461 */ 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=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 +11,c,4)))){ C_save_and_reclaim((void*)f_2823,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+11); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; C_word t8; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2829,a[2]=t4,a[3]=t5,a[4]=((C_word)li23),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2835,a[2]=t4,a[3]=t2,a[4]=t3,a[5]=((C_word)li25),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:325: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a2834 in string-fold in k2464 in k2461 */ 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=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(9,c,4)))){ C_save_and_reclaim((void *)f_2835,4,av);} 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_2841,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li24),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_2841(t7,t1,((C_word*)t0)[4],t2);} /* a2828 in string-fold in k2464 in k2461 */ static void C_ccall f_2829(C_word c,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_2829,2,av);} /* srfi-13.scm:325: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[19]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* lp in a2834 in string-fold in k2464 in k2461 */ static void C_fcall f_2841(C_word t0,C_word t1,C_word 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_2841,4,t0,t1,t2,t3);} a=C_alloc(5); t4=t3; t5=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t4,t5))){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2855,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t7=C_i_string_ref(((C_word*)t0)[4],t3); /* srfi-13.scm:329: kons */ t8=((C_word*)t0)[5];{ C_word av2[4]; av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t8))(4,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);}}} /* string-upcase! in k2464 in k2461 */ static void C_ccall f_5413(C_word c,C_word *av){ C_word tmp; C_word 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,4)))){ C_save_and_reclaim((void*)f_5413,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; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5419,a[2]=t2,a[3]=t3,a[4]=((C_word)li233),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5425,a[2]=t2,a[3]=((C_word)li234),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:968: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* string-drop-right in k2464 in k2461 */ 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=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_5655,4,av);} a=C_alloc(5); t4=C_i_check_string_2(t2,lf[88]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5662,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_block_size(t2); t7=C_fixnum_plus(C_fix(1),t6); /* srfi-13.scm:1051: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[85]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[85]+1); av2[1]=t5; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t7; av2[5]=lf[88]; tp(6,av2);}} /* a5406 in string-upcase in k2464 in k2461 */ 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=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_5407,4,av);} /* srfi-13.scm:966: %string-map */ f_2729(t1,*((C_word*)lf[74]+1),((C_word*)t0)[2],t2,t3);} /* k2853 in lp in a2834 in string-fold in k2464 in k2461 */ static void C_ccall f_2855(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2855,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:329: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2841(t3,((C_word*)t0)[4],t1,t2);} /* k5874 in a5855 in string-pad-right in k2464 in k2461 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5876,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=C_substring_copy(t2,t1,t3,t4,C_fix(0)); t6=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k5660 in string-drop-right in k2464 in k2461 */ 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(0,c,4)))){ C_save_and_reclaim((void *)f_5662,2,av);} t2=C_block_size(((C_word*)t0)[2]); t3=C_fixnum_difference(t2,((C_word*)t0)[3]); /* srfi-13.scm:1055: %substring/shared */ f_2671(((C_word*)t0)[4],((C_word*)t0)[2],C_fix(0),t3);} /* a5418 in string-upcase! in k2464 in k2461 */ 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 *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_5419,2,av);} /* srfi-13.scm:968: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[75]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-fold-right in k2464 in k2461 */ static void C_ccall f_2865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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 +11,c,4)))){ C_save_and_reclaim((void*)f_2865,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+11); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; C_word t8; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2871,a[2]=t4,a[3]=t5,a[4]=((C_word)li27),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2877,a[2]=t4,a[3]=t2,a[4]=t3,a[5]=((C_word)li29),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:332: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* string-downcase in k2464 in k2461 */ static void C_ccall f_5431(C_word c,C_word *av){ C_word tmp; C_word 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,4)))){ C_save_and_reclaim((void*)f_5431,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; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5437,a[2]=t2,a[3]=t3,a[4]=((C_word)li236),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5443,a[2]=t2,a[3]=((C_word)li237),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:972: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* a5424 in string-upcase! in k2464 in k2461 */ 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=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_5425,4,av);} /* srfi-13.scm:970: %string-map! */ f_2790(t1,*((C_word*)lf[74]+1),((C_word*)t0)[2],t2,t3);} /* a2870 in string-fold-right in k2464 in k2461 */ 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 *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_2871,2,av);} /* srfi-13.scm:332: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[20]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-pad in k2464 in k2461 */ static void C_ccall f_5893(C_word c,C_word *av){ C_word tmp; C_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,4)))){ C_save_and_reclaim((void*)f_5893,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; t5=C_i_check_exact_2(t3,lf[98]); t6=C_i_nullp(t4); t7=(C_truep(t6)?C_make_character(32):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=t10; t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5908,a[2]=t2,a[3]=t11,a[4]=((C_word)li273),tmp=(C_word)a,a+=5,tmp); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5914,a[2]=t3,a[3]=t2,a[4]=t8,a[5]=((C_word)li274),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1094: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t12; av2[3]=t13; C_call_with_values(4,av2);}} /* a5436 in string-downcase in k2464 in k2461 */ static void C_ccall f_5437(C_word c,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_5437,2,av);} /* srfi-13.scm:972: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[76]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* doloop2051 in k8281 in %multispan-repcopy! in k2464 in k2461 */ static void C_fcall f_8243(C_word t0,C_word t1,C_word 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(0,0,3)))){ C_save_and_reclaim_args((void *)trf_8243,4,t0,t1,t2,t3);} t4=C_eqp(t3,C_fix(0)); if(C_truep(t4)){ t5=C_fixnum_difference(t2,((C_word*)t0)[2]); t6=C_fixnum_difference(((C_word*)t0)[3],t5); t7=C_fixnum_plus(((C_word*)t0)[4],t6); t8=t1; t9=((C_word*)t0)[5]; t10=t2; t11=((C_word*)t0)[6]; t12=((C_word*)t0)[4]; t13=t8;{ C_word av2[2]; av2[0]=t13; av2[1]=C_substring_copy(t11,t9,t12,t7,t10); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t5=((C_word*)t0)[5]; t6=t2; t7=((C_word*)t0)[6]; t8=((C_word*)t0)[4]; t9=((C_word*)t0)[7]; t10=C_substring_copy(t7,t5,t8,t9,t6); t11=C_fixnum_plus(t2,((C_word*)t0)[8]); t12=C_fixnum_difference(t3,C_fix(1)); t14=t1; t15=t11; t16=t12; t1=t14; t2=t15; t3=t16; goto loop;}} /* a2876 in string-fold-right in k2464 in k2461 */ static void C_ccall f_2877(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,4)))){ C_save_and_reclaim((void *)f_2877,4,av);} a=C_alloc(9); t4=C_fixnum_difference(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|6,a[1]=(C_word)f_2887,a[2]=t2,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li28),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_2887(t8,t1,((C_word*)t0)[4],t4);} /* k4692 in a4686 in a4674 in string> in k2464 in k2461 */ static void C_fcall f_4694(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,10)))){ C_save_and_reclaim_args((void *)trf_4694,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_fixnum_greaterp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4702,a[2]=((C_word)li149),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4705,a[2]=((C_word)li150),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4708,a[2]=((C_word)li151),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:817: %string-compare */ f_4278(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],t2,t3,t4);}} /* lp in a2876 in string-fold-right in k2464 in k2461 */ static void C_fcall f_2887(C_word t0,C_word t1,C_word 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_2887,4,t0,t1,t2,t3);} a=C_alloc(5); t4=t3; t5=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t4,t5))){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2901,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t7=C_i_string_ref(((C_word*)t0)[4],t3); /* srfi-13.scm:336: kons */ t8=((C_word*)t0)[5];{ C_word av2[4]; av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t8))(4,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);}}} /* recur in buildit in string-join in k2464 in k2461 */ 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 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_8305,3,t0,t1,t2);} 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_8325,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t6=t2; t7=C_u_i_cdr(t6); /* srfi-13.scm:1884: recur */ t9=t5; 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);}}} /* %multispan-repcopy! in k2464 in k2461 */ static void C_fcall f_8212(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(11,0,3)))){ C_save_and_reclaim_args((void *)trf_8212,8,t1,t2,t3,t4,t5,t6,t7,t8);} a=C_alloc(11); t9=C_fixnum_difference(t8,t7); t10=t9; t11=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8283,a[2]=t7,a[3]=t6,a[4]=t5,a[5]=t2,a[6]=t3,a[7]=t4,a[8]=t8,a[9]=t10,a[10]=t1,tmp=(C_word)a,a+=11,tmp); /* srfi-13.scm:1843: modulo */ t12=*((C_word*)lf[69]+1);{ C_word av2[4]; av2[0]=t12; av2[1]=t11; av2[2]=t5; av2[3]=t10; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} /* a4674 in string> in k2464 in k2461 */ static void C_ccall f_4675(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(13,c,4)))){ C_save_and_reclaim((void *)f_4675,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4681,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li148),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4687,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word)li152),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:811: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a5400 in string-upcase in k2464 in k2461 */ static void C_ccall f_5401(C_word c,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_5401,2,av);} /* srfi-13.scm:964: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[73]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k8281 in %multispan-repcopy! in k2464 in k2461 */ static void C_ccall f_8283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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(13,c,4)))){ C_save_and_reclaim((void *)f_8283,2,av);} a=C_alloc(13); t2=C_fixnum_plus(((C_word*)t0)[2],t1); t3=C_fixnum_difference(((C_word*)t0)[3],((C_word*)t0)[4]); t4=t3; t5=((C_word*)t0)[5]; t6=((C_word*)t0)[6]; t7=((C_word*)t0)[7]; t8=((C_word*)t0)[8]; t9=C_substring_copy(t7,t5,t2,t8,t6); t10=C_fixnum_difference(((C_word*)t0)[8],t2); t11=C_fixnum_difference(t4,t10); t12=C_fixnum_divide(t11,((C_word*)t0)[9]); t13=C_fixnum_plus(((C_word*)t0)[6],t10); 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|10,a[1]=(C_word)f_8243,a[2]=((C_word*)t0)[6],a[3]=t4,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],a[9]=t15,a[10]=((C_word)li394),tmp=(C_word)a,a+=11,tmp)); t17=((C_word*)t15)[1]; f_8243(t17,((C_word*)t0)[10],t13,t12);} /* string-join in k2464 in k2461 */ static void C_ccall f_8285(C_word c,C_word *av){ C_word tmp; C_word 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 +14,c,5)))){ C_save_and_reclaim((void*)f_8285,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+14); 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; t4=C_i_nullp(t3); t5=(C_truep(t4)?lf[143]: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)?lf[144]:C_i_car(t8)); t11=C_i_nullp(t8); t12=(C_truep(t11)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8299,a[2]=t6,a[3]=((C_word)li397),tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t2))){ t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8340,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t15=C_eqp(t10,lf[144]); t16=(C_truep(t15)?t15:C_eqp(t10,lf[145])); if(C_truep(t16)){ t17=t2; t18=C_u_i_car(t17); t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8355,a[2]=t18,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t20=t2; t21=C_u_i_cdr(t20); /* srfi-13.scm:1892: buildit */ t22=t13; f_8299(t22,t19,t21,C_SCHEME_END_OF_LIST);} else{ t17=C_eqp(t10,lf[146]); if(C_truep(t17)){ /* srfi-13.scm:1894: buildit */ t18=t13; f_8299(t18,t14,t2,C_SCHEME_END_OF_LIST);} else{ t18=C_eqp(t10,lf[147]); if(C_truep(t18)){ t19=t2; t20=C_u_i_car(t19); t21=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8381,a[2]=t20,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t22=t2; t23=C_u_i_cdr(t22); t24=C_a_i_list1(&a,1,t6); /* srfi-13.scm:1897: buildit */ t25=t13; f_8299(t25,t21,t23,t24);} else{ /* srfi-13.scm:1899: ##sys#error */ t19=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t19; av2[1]=t14; av2[2]=lf[142]; av2[3]=lf[148]; av2[4]=t10; av2[5]=*((C_word*)lf[142]+1); ((C_proc)(void*)(*((C_word*)t19+1)))(6,av2);}}}}} else{ if(C_truep(C_i_nullp(t2))){ t14=C_eqp(t10,lf[145]); if(C_truep(t14)){ /* srfi-13.scm:1908: ##sys#error */ t15=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t15; av2[1]=t1; av2[2]=lf[142]; av2[3]=lf[149]; av2[4]=*((C_word*)lf[142]+1); ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} else{ t15=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=lf[150]; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}} else{ /* srfi-13.scm:1903: ##sys#error */ t14=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t14; av2[1]=t1; av2[2]=lf[142]; av2[3]=lf[151]; av2[4]=t2; av2[5]=*((C_word*)lf[142]+1); ((C_proc)(void*)(*((C_word*)t14+1)))(6,av2);}}}} /* a4686 in a4674 in string> in k2464 in k2461 */ 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=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,2)))){ C_save_and_reclaim((void *)f_4687,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4694,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t5=C_eqp(((C_word*)t0)[3],((C_word*)t0)[5]); if(C_truep(t5)){ t6=((C_word*)t0)[4]; t7=t2; t8=t4; f_4694(t8,C_eqp(t6,t7));} else{ t6=t4; f_4694(t6,C_SCHEME_FALSE);}} /* a4680 in a4674 in string> in k2464 in k2461 */ static void C_ccall f_4681(C_word c,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_4681,2,av);} /* srfi-13.scm:811: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a6563 in string-skip-right in k2464 in k2461 */ 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=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(7,c,2)))){ C_save_and_reclaim((void *)f_6564,4,av);} a=C_alloc(7); if(C_truep(C_charp(((C_word*)t0)[2]))){ t4=C_fixnum_difference(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6580,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li307),tmp=(C_word)a,a+=6,tmp); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=( f_6580(t5,t4) ); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6610,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1257: char-set? */ t5=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* lp in string-concatenate-reverse in k2464 in k2461 */ static C_word C_fcall f_7674(C_word t1,C_word t2){ C_word tmp; C_word t3; C_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:{} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_i_string_length(t4); t6=C_fixnum_plus(t1,t5); t7=t2; t8=C_u_i_cdr(t7); t10=t6; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1; return(t3);}} /* string-skip-right in k2464 in k2461 */ static void C_ccall f_6552(C_word c,C_word *av){ C_word tmp; C_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_6552,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; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6558,a[2]=t2,a[3]=t4,a[4]=((C_word)li306),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6564,a[2]=t3,a[3]=t2,a[4]=((C_word)li310),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1249: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a6557 in string-skip-right in k2464 in k2461 */ static void C_ccall f_6558(C_word c,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_6558,2,av);} /* srfi-13.scm:1249: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[94]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* iref in %string-hash in k2464 in k2461 */ static void C_fcall f_5223(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,2)))){ C_save_and_reclaim_args((void *)trf_5223,4,t0,t1,t2,t3);} t4=C_i_string_ref(t2,t3); /* srfi-13.scm:923: char->int */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t1; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* %string-hash in k2464 in k2461 */ static void C_fcall f_5221(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 *a; if(C_unlikely(!C_demand(C_calculate_demand(19,0,4)))){ C_save_and_reclaim_args((void *)trf_5221,6,t1,t2,t3,t4,t5,t6);} a=C_alloc(19); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5223,a[2]=t3,a[3]=((C_word)li219),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5274,a[2]=t4,a[3]=((C_word)li220),tmp=(C_word)a,a+=4,tmp); t9=( f_5274(t8,C_fix(65536)) ); 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|8,a[1]=(C_word)f_5239,a[2]=t6,a[3]=t4,a[4]=t10,a[5]=t12,a[6]=t7,a[7]=t2,a[8]=((C_word)li221),tmp=(C_word)a,a+=9,tmp)); t14=((C_word*)t12)[1]; f_5239(t14,t1,t5,C_fix(0));} /* k8338 in string-join in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8340,2,av);} /* srfi-13.scm:1888: string-concatenate */ t2=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* lp in a6563 in string-skip-right in k2464 in k2461 */ static C_word C_fcall f_6580(C_word t0,C_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=t1; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t2,t3))){ t4=C_i_string_ref(((C_word*)t0)[3],t1); if(C_truep(C_i_char_equalp(((C_word*)t0)[4],t4))){ t5=C_fixnum_difference(t1,C_fix(1)); t7=t5; t1=t7; goto loop;} else{ return(t1);}} else{ return(C_SCHEME_FALSE);}} /* k8323 in recur in buildit in string-join in k2464 in k2461 */ 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(6,c,1)))){ C_save_and_reclaim((void *)f_8325,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; /* Re-use our own argvector */ 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);}} /* k2815 in doloop231 in %string-map! in k2464 in k2461 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2817,2,av);} t2=C_i_string_set(((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_2796(t4,((C_word*)t0)[5],t3);} /* k2658 in substring/shared in k2464 in k2461 */ 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,4)))){ C_save_and_reclaim((void *)f_2660,2,av);} /* srfi-13.scm:251: %substring/shared */ f_2671(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* k8379 in string-join in k2464 in k2461 */ 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; 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,((C_word*)t0)[2],t1); /* srfi-13.scm:1888: string-concatenate */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4584 in a4550 in a4538 in string<> in k2464 in k2461 */ static void C_fcall f_4586(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,10)))){ C_save_and_reclaim_args((void *)trf_4586,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4569,a[2]=((C_word)li133),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4575,a[2]=((C_word)li134),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4578,a[2]=((C_word)li135),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:795: %string-compare */ f_4278(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],t2,t3,t4);}} /* buildit in string-join in k2464 in k2461 */ static void C_fcall f_8299(C_word t0,C_word 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_8299,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_8305,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t3,a[5]=((C_word)li396),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_8305(t7,t1,t2);} /* a5208 in k5190 in a5184 in a5172 in string-ci>= in k2464 in k2461 */ 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=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_5209,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* check-substring-spec in k2464 in k2461 */ static void C_ccall f_2631(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,4)))){ C_save_and_reclaim((void *)f_2631,6,av);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2645,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:218: substring-spec-ok? */ t7=*((C_word*)lf[7]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t3; av2[3]=t4; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* a4029 in a4017 in string-prefix-length-ci in k2464 in k2461 */ 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=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,7)))){ C_save_and_reclaim((void *)f_4030,4,av);} /* srfi-13.scm:656: %string-prefix-length-ci */ f_3788(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2,t3);} /* string-suffix-length-ci in k2464 in k2461 */ 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=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,5)))){ C_save_and_reclaim((void*)f_4036,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=*((C_word*)lf[46]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4042,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li86),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4048,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li89),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:658: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a5199 in k5190 in a5184 in a5172 in string-ci>= in k2464 in k2461 */ static void C_ccall f_5200(C_word c,C_word *av){ C_word tmp; C_word 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_5200,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a5202 in k5190 in a5184 in a5172 in string-ci>= in k2464 in k2461 */ 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=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_5203,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4083 in a4077 in string-prefix? in k2464 in k2461 */ 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; 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_4084,2,av);} /* srfi-13.scm:671: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4089 in a4077 in string-prefix? in k2464 in k2461 */ 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=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(4,c,7)))){ C_save_and_reclaim((void *)f_4090,4,av);} a=C_alloc(4); t4=t1; t5=((C_word*)t0)[2]; t6=((C_word*)t0)[3]; t7=((C_word*)t0)[4]; t8=((C_word*)t0)[5]; t9=C_fixnum_difference(t7,t6); t10=t9; t11=C_fixnum_difference(t3,t2); if(C_truep(C_fixnum_less_or_equal_p(t10,t11))){ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4203,a[2]=t4,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:697: %string-prefix-length */ f_3636(t12,t5,t6,t7,t8,t2,t3);} else{ t12=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} /* string-suffix? in k2464 in k2461 */ static void C_ccall f_4096(C_word c,C_word *av){ C_word tmp; C_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,5)))){ C_save_and_reclaim((void*)f_4096,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=*((C_word*)lf[48]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4102,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li96),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4108,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li99),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:676: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* k8353 in string-join in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8355,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* srfi-13.scm:1888: string-concatenate */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4574 in k4584 in a4550 in a4538 in string<> in k2464 in k2461 */ static void C_ccall f_4575(C_word c,C_word *av){ C_word tmp; C_word 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_4575,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4577 in k4584 in a4550 in a4538 in string<> in k2464 in k2461 */ static void C_ccall f_4578(C_word c,C_word *av){ C_word tmp; C_word 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_4578,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4059 in a4047 in string-suffix-length-ci in k2464 in k2461 */ 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=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,7)))){ C_save_and_reclaim((void *)f_4060,4,av);} /* srfi-13.scm:661: %string-suffix-length-ci */ f_3861(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2,t3);} /* string-prefix? in k2464 in k2461 */ 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=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,5)))){ C_save_and_reclaim((void*)f_4066,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=*((C_word*)lf[47]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4072,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li91),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4078,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li94),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:671: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* k3583 in lp in k3518 in a3477 in string-any in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3585,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* srfi-13.scm:558: lp */ t2=((C_word*)((C_word*)t0)[3])[1]; f_3566(t2,((C_word*)t0)[2],((C_word*)t0)[4]);}} /* k5270 in lp in %string-hash in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5272,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],t1); t3=C_fixnum_and(((C_word*)t0)[3],t2); /* srfi-13.scm:929: lp */ t4=((C_word*)((C_word*)t0)[4])[1]; f_5239(t4,((C_word*)t0)[5],((C_word*)t0)[6],t3);} /* lp in %string-hash in k2464 in k2461 */ static C_word C_fcall f_5274(C_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=t1; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t2,t3))){ return(C_fixnum_difference(t1,C_fix(1)));} else{ t4=C_fixnum_plus(t1,t1); t6=t4; t1=t6; goto loop;}} /* k5190 in a5184 in a5172 in string-ci>= in k2464 in k2461 */ static void C_fcall f_5192(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,10)))){ C_save_and_reclaim_args((void *)trf_5192,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_fixnum_greater_or_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5200,a[2]=((C_word)li213),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5203,a[2]=((C_word)li214),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5209,a[2]=((C_word)li215),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:903: %string-compare-ci */ f_4337(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],t2,t3,t4);}} /* a4041 in string-suffix-length-ci in k2464 in k2461 */ 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; 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_4042,2,av);} /* srfi-13.scm:658: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* substring/shared in k2464 in k2461 */ static void C_ccall f_2647(C_word c,C_word *av){ C_word tmp; C_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,5)))){ C_save_and_reclaim((void*)f_2647,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; C_word t11; t5=C_i_string_length(t2); t6=C_i_nullp(t4); t7=(C_truep(t6)?t5:C_i_car(t4)); t8=t7; t9=C_i_check_exact_2(t8,lf[10]); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2660,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t8,tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:250: check-substring-spec */ t11=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t11; av2[1]=t10; av2[2]=lf[10]; av2[3]=t2; av2[4]=t3; av2[5]=t8; ((C_proc)(void*)(*((C_word*)t11+1)))(6,av2);}} /* k2643 in check-substring-spec in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_2645,2,av);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* srfi-13.scm:219: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[8]; av2[3]=lf[9]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; av2[7]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}}} /* a4047 in string-suffix-length-ci in k2464 in k2461 */ 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=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(13,c,4)))){ C_save_and_reclaim((void *)f_4048,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,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)li87),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4060,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li88),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:658: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4053 in a4047 in string-suffix-length-ci in k2464 in k2461 */ 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 *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_4054,2,av);} /* srfi-13.scm:658: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* doloop1589 in k6743 in a6698 in string-count in k2464 in k2461 */ static void C_fcall f_6750(C_word t0,C_word t1,C_word 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_6750,4,t0,t1,t2,t3);} a=C_alloc(6); t4=t2; t5=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t4,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|5,a[1]=(C_word)f_6771,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t7,tmp=(C_word)a,a+=6,tmp); t9=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:1285: char-set-contains? */ t10=*((C_word*)lf[32]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t8; av2[2]=((C_word*)t0)[5]; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}} /* string-tabulate in k2464 in k2461 */ static void C_ccall f_3596(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_3596,4,av);} a=C_alloc(5); t4=C_i_check_exact_2(t3,lf[37]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3603,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t6=t3; /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[25]+1); av2[1]=t5; av2[2]=t6; av2[3]=C_make_character(32); tp(4,av2);}} /* a5966 in string-delete in k2464 in k2461 */ 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=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,2)))){ C_save_and_reclaim((void *)f_5967,4,av);} a=C_alloc(10); if(C_truep(C_i_closurep(((C_word*)t0)[2]))){ t4=C_fixnum_difference(t3,t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5980,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t2,a[7]=t3,tmp=(C_word)a,a+=8,tmp); /* srfi-13.scm:1123: make-string */ t7=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6010,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6049,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1131: char-set? */ t6=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* a5960 in string-delete in k2464 in k2461 */ static void C_ccall f_5961(C_word c,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_5961,2,av);} /* srfi-13.scm:1119: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[99]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* lp in %string-hash in k2464 in k2461 */ static void C_fcall f_5239(C_word t0,C_word t1,C_word 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_5239,4,t0,t1,t2,t3);} a=C_alloc(7); t4=t2; t5=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t4,t5))){ /* srfi-13.scm:928: modulo */ t6=*((C_word*)lf[69]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=C_fixnum_plus(t2,C_fix(1)); t7=t6; t8=C_fixnum_times(C_fix(37),t3); t9=t8; t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5272,a[2]=t9,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=t7,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:929: iref */ t11=((C_word*)t0)[6]; f_5223(t11,t10,((C_word*)t0)[7],t2);}} /* a4023 in a4017 in string-prefix-length-ci in k2464 in k2461 */ 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!=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_4024,2,av);} /* srfi-13.scm:653: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6743 in a6698 in string-count in k2464 in k2461 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_6745,2,av);} 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_6750,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)li314),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_6750(t5,((C_word*)t0)[5],((C_word*)t0)[6],C_fix(0));} else{ if(C_truep(C_i_closurep(((C_word*)t0)[4]))){ 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_6789,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)li315),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_6789(t5,((C_word*)t0)[5],((C_word*)t0)[6],C_fix(0));} else{ /* srfi-13.scm:1295: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[109]; av2[3]=lf[110]; av2[4]=*((C_word*)lf[109]+1); av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* k5932 in a5913 in string-pad in k2464 in k2461 */ 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 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_5934,2,av);} t2=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4]; t4=((C_word*)t0)[5]; t5=((C_word*)t0)[6]; t6=C_substring_copy(t3,t1,t4,t5,t2); t7=((C_word*)t0)[7];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* a7395 in string-reverse! in k2464 in k2461 */ 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=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_7396,4,av);} a=C_alloc(4); t4=C_fixnum_difference(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7406,a[2]=((C_word*)t0)[2],a[3]=((C_word)li355),tmp=(C_word)a,a+=4,tmp); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=( f_7406(t5,t4,t2) ); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a7389 in string-reverse! in k2464 in k2461 */ 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 *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_7390,2,av);} /* srfi-13.scm:1514: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[122]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6769 in doloop1589 in k6743 in a6698 in string-count in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6771,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6750(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} else{ t2=((C_word*)t0)[2]; t3=((C_word*)((C_word*)t0)[3])[1]; f_6750(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}} /* a5907 in string-pad in k2464 in k2461 */ static void C_ccall f_5908(C_word c,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_5908,2,av);} /* srfi-13.scm:1094: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[98]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-prefix-length-ci in k2464 in k2461 */ 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; 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,5)))){ C_save_and_reclaim((void*)f_4006,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=*((C_word*)lf[45]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4012,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li81),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4018,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li84),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:653: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a3999 in a3987 in string-suffix-length in k2464 in k2461 */ 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=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,7)))){ C_save_and_reclaim((void *)f_4000,4,av);} /* srfi-13.scm:651: %string-suffix-length */ f_3706(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2,t3);} /* string-take in k2464 in k2461 */ static void C_ccall f_5585(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_5585,4,av);} a=C_alloc(5); t4=C_i_check_string_2(t2,lf[84]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5592,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t6=C_block_size(t2); t7=C_fixnum_plus(C_fix(1),t6); /* srfi-13.scm:1027: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[85]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[85]+1); av2[1]=t5; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t7; av2[5]=lf[84]; tp(6,av2);}} /* string-delete in k2464 in k2461 */ 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=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_5955,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; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5961,a[2]=t3,a[3]=t4,a[4]=((C_word)li276),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5967,a[2]=t2,a[3]=t3,a[4]=((C_word)li280),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1119: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* lp in k3388 in a3347 in string-every in k2464 in k2461 */ static void C_fcall f_3395(C_word t0,C_word t1,C_word 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(5,0,3)))){ C_save_and_reclaim_args((void *)trf_3395,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; t5=C_fixnum_greater_or_equal_p(t3,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|4,a[1]=(C_word)f_3408,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t7=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:523: char-set-contains? */ t8=*((C_word*)lf[32]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t6; av2[2]=((C_word*)t0)[5]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} /* k3388 in a3347 in string-every in k2464 in k2461 */ 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 t3; C_word 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_3390,2,av);} 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_3395,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)li51),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_3395(t5,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ if(C_truep(C_i_closurep(((C_word*)t0)[4]))){ t2=((C_word*)t0)[6]; t3=((C_word*)t0)[2]; t4=C_eqp(t2,t3); if(C_truep(t4)){ t5=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,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|6,a[1]=(C_word)f_3436,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t6,a[6]=((C_word)li52),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_3436(t8,((C_word*)t0)[5],((C_word*)t0)[6]);}} else{ /* srfi-13.scm:534: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[31]; av2[3]=lf[33]; av2[4]=*((C_word*)lf[31]+1); av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* a4017 in string-prefix-length-ci in k2464 in k2461 */ static void C_ccall f_4018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(13,c,4)))){ C_save_and_reclaim((void *)f_4018,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4024,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li82),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4030,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li83),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:653: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4011 in string-prefix-length-ci in k2464 in k2461 */ static void C_ccall f_4012(C_word c,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_4012,2,av);} /* srfi-13.scm:653: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* doloop1584 in a6698 in string-count in k2464 in k2461 */ static C_word C_fcall f_6711(C_word t0,C_word t1,C_word t2){ C_word tmp; C_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:{} t3=t1; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t3,t4))){ t5=t2; return(t5);} else{ t5=C_fixnum_plus(t1,C_fix(1)); t6=C_i_string_ref(((C_word*)t0)[3],t1); if(C_truep(C_i_char_equalp(((C_word*)t0)[4],t6))){ t7=C_fixnum_plus(t2,C_fix(1)); t9=t5; t10=t7; t1=t9; t2=t10; goto loop;} else{ t7=t2; t9=t5; t10=t7; t1=t9; t2=t10; goto loop;}}} /* k5590 in string-take in k2464 in k2461 */ static void C_ccall f_5592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5592,2,av);} /* srfi-13.scm:1028: %substring/shared */ f_2671(((C_word*)t0)[2],((C_word*)t0)[3],C_fix(0),((C_word*)t0)[4]);} /* lp in a6983 in a6971 in string-contains-ci in k2464 in k2461 */ static void C_fcall f_6996(C_word t0,C_word t1,C_word 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,7)))){ C_save_and_reclaim_args((void *)trf_6996,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_less_or_equal_p(t2,((C_word*)t0)[2]))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7009,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_fixnum_plus(t2,((C_word*)t0)[4]); /* srfi-13.scm:1348: string-ci= */ t5=*((C_word*)lf[62]+1);{ C_word av2[8]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=t2; av2[5]=t4; av2[6]=((C_word*)t0)[7]; av2[7]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t5+1)))(8,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);}}} /* a4071 in string-prefix? in k2464 in k2461 */ 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 *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_4072,2,av);} /* srfi-13.scm:671: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4077 in string-prefix? in k2464 in k2461 */ 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=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(13,c,4)))){ C_save_and_reclaim((void *)f_4078,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4084,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li92),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4090,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li93),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:671: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k2972 in k2950 in k2947 in k3050 in lp2 in lp in k2929 in string-unfold in k2464 in k2461 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_2974,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2977,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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); /* srfi-13.scm:425: make-string */ t4=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2975 in k2972 in k2950 in k2947 in k3050 in lp2 in lp in k2929 in string-unfold in k2464 in k2461 */ static void C_ccall f_2977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,7)))){ C_save_and_reclaim((void *)f_2977,2,av);} a=C_alloc(3); t2=C_i_string_set(t1,C_fix(0),((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t4=C_fixnum_plus(((C_word*)t0)[5],((C_word*)t0)[6]); /* srfi-13.scm:427: lp */ t5=((C_word*)((C_word*)t0)[7])[1]; f_2933(t5,((C_word*)t0)[8],t3,t4,t1,((C_word*)t0)[9],C_fix(1),((C_word*)t0)[10]);} /* a5547 in string-titlecase! in k2464 in k2461 */ 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!=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_5548,2,av);} /* srfi-13.scm:992: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[82]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5913 in string-pad in k2464 in k2461 */ 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=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_5914,4,av);} a=C_alloc(8); t4=C_fixnum_difference(t3,t2); t5=t4; t6=((C_word*)t0)[2]; if(C_truep(C_fixnum_less_or_equal_p(t6,t5))){ t7=C_fixnum_difference(t3,((C_word*)t0)[2]); /* srfi-13.scm:1098: %substring/shared */ f_2671(t1,((C_word*)t0)[3],t7,t3);} else{ t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5934,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t3,a[7]=t1,tmp=(C_word)a,a+=8,tmp); /* srfi-13.scm:1099: make-string */ t8=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} /* string-titlecase! in k2464 in k2461 */ 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=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,4)))){ C_save_and_reclaim((void*)f_5542,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; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5548,a[2]=t2,a[3]=t3,a[4]=((C_word)li248),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5554,a[2]=t2,a[3]=((C_word)li249),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:992: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* k2947 in k3050 in lp2 in lp in k2929 in string-unfold in k2464 in k2461 */ static void C_ccall f_2949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2949,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2952,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); /* srfi-13.scm:418: g */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[11]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a5553 in string-titlecase! in k2464 in k2461 */ 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=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_5554,4,av);} /* srfi-13.scm:994: %string-titlecase! */ f_5467(t1,((C_word*)t0)[2],t2,t3);} /* k2950 in k2947 in k3050 in lp2 in lp in k2929 in string-unfold in k2464 in k2461 */ 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_2952,2,av);} a=C_alloc(10); t2=t1; t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3]; if(C_truep(C_fixnum_lessp(t3,t4))){ t5=C_i_string_set(((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[5]); t6=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:421: lp2 */ t7=((C_word*)((C_word*)t0)[6])[1]; f_2939(t7,((C_word*)t0)[7],t6,t2);} else{ t5=C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[8]); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2974,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[7],a[9]=t2,tmp=(C_word)a,a+=10,tmp); /* srfi-13.scm:424: min */ t7=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=C_fix(4096); av2[3]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* a5565 in string-titlecase in k2464 in k2461 */ 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 *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_5566,2,av);} /* srfi-13.scm:996: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[82]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6983 in a6971 in string-contains-ci in k2464 in k2461 */ static void C_ccall f_6984(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(12,c,3)))){ C_save_and_reclaim((void *)f_6984,4,av);} a=C_alloc(12); t4=C_fixnum_difference(t3,t2); t5=t4; t6=C_fixnum_difference(((C_word*)t0)[2],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|9,a[1]=(C_word)f_6996,a[2]=t7,a[3]=t9,a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t2,a[8]=t3,a[9]=((C_word)li333),tmp=(C_word)a,a+=10,tmp)); t11=((C_word*)t9)[1]; f_6996(t11,t1,((C_word*)t0)[5]);} /* string-titlecase in k2464 in k2461 */ 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=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,4)))){ C_save_and_reclaim((void*)f_5560,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; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5566,a[2]=t2,a[3]=t3,a[4]=((C_word)li251),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5572,a[2]=t2,a[3]=((C_word)li252),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:996: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* k5577 in k5574 in a5571 in string-titlecase in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5579,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5574 in a5571 in string-titlecase in k2464 in k2461 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_5576,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5579,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]); /* srfi-13.scm:999: %string-titlecase! */ f_5467(t3,t2,C_fix(0),t4);} /* a6971 in string-contains-ci in k2464 in k2461 */ 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=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(13,c,4)))){ C_save_and_reclaim((void *)f_6972,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6978,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li332),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6984,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word)li334),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1341: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a5571 in string-titlecase in k2464 in k2461 */ 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=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_5572,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5576,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:998: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[12]+1); av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=t3; tp(5,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_srfi_2d13_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_2d13_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_srfi_2d13_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(763))){ C_save(t1); C_rereclaim2(763*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,154); lf[0]=C_h_intern(&lf[0],22,"string-parse-start+end"); lf[1]=C_h_intern(&lf[1],9,"\003syserror"); lf[2]=C_decode_literal(C_heaptop,"\376B\000\000\032Illegal substring END spec"); lf[3]=C_decode_literal(C_heaptop,"\376B\000\000 Illegal substring START/END spec"); lf[4]=C_decode_literal(C_heaptop,"\376B\000\000\034Illegal substring START spec"); lf[5]=C_h_intern(&lf[5],28,"string-parse-final-start+end"); lf[6]=C_decode_literal(C_heaptop,"\376B\000\000\034Extra arguments to procedure"); lf[7]=C_h_intern(&lf[7],18,"substring-spec-ok\077"); lf[8]=C_h_intern(&lf[8],20,"check-substring-spec"); lf[9]=C_decode_literal(C_heaptop,"\376B\000\000\027Illegal substring spec."); lf[10]=C_h_intern(&lf[10],16,"substring/shared"); lf[12]=C_h_intern(&lf[12],13,"\003syssubstring"); lf[13]=C_h_intern(&lf[13],11,"string-copy"); lf[14]=C_h_intern(&lf[14],10,"string-map"); lf[16]=C_h_intern(&lf[16],11,"make-string"); lf[17]=C_h_intern(&lf[17],11,"string-map!"); lf[19]=C_h_intern(&lf[19],11,"string-fold"); lf[20]=C_h_intern(&lf[20],17,"string-fold-right"); lf[21]=C_h_intern(&lf[21],13,"string-unfold"); lf[22]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[23]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[24]=C_h_intern(&lf[24],3,"min"); lf[25]=C_h_intern(&lf[25],15,"\003sysmake-string"); lf[26]=C_h_intern(&lf[26],19,"string-unfold-right"); lf[27]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[28]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[29]=C_h_intern(&lf[29],15,"string-for-each"); lf[30]=C_h_intern(&lf[30],21,"string-for-each-index"); lf[31]=C_h_intern(&lf[31],12,"string-every"); lf[32]=C_h_intern(&lf[32],18,"char-set-contains\077"); lf[33]=C_decode_literal(C_heaptop,"\376B\000\000\077Second param is neither char-set, char, or predicate procedure."); lf[34]=C_h_intern(&lf[34],9,"char-set\077"); lf[35]=C_h_intern(&lf[35],10,"string-any"); lf[36]=C_decode_literal(C_heaptop,"\376B\000\000\077Second param is neither char-set, char, or predicate procedure."); lf[37]=C_h_intern(&lf[37],15,"string-tabulate"); lf[41]=C_h_intern(&lf[41],9,"char-ci=\077"); lf[43]=C_h_intern(&lf[43],20,"string-prefix-length"); lf[44]=C_h_intern(&lf[44],20,"string-suffix-length"); lf[45]=C_h_intern(&lf[45],23,"string-prefix-length-ci"); lf[46]=C_h_intern(&lf[46],23,"string-suffix-length-ci"); lf[47]=C_h_intern(&lf[47],14,"string-prefix\077"); lf[48]=C_h_intern(&lf[48],14,"string-suffix\077"); lf[49]=C_h_intern(&lf[49],17,"string-prefix-ci\077"); lf[50]=C_h_intern(&lf[50],17,"string-suffix-ci\077"); lf[53]=C_h_intern(&lf[53],9,"char-ci<\077"); lf[54]=C_h_intern(&lf[54],14,"string-compare"); lf[55]=C_h_intern(&lf[55],17,"string-compare-ci"); lf[56]=C_h_intern(&lf[56],7,"string="); lf[57]=C_h_intern(&lf[57],8,"string<>"); lf[58]=C_h_intern(&lf[58],7,"string<"); lf[59]=C_h_intern(&lf[59],7,"string>"); lf[60]=C_h_intern(&lf[60],8,"string<="); lf[61]=C_h_intern(&lf[61],8,"string>="); lf[62]=C_h_intern(&lf[62],10,"string-ci="); lf[63]=C_h_intern(&lf[63],11,"string-ci<>"); lf[64]=C_h_intern(&lf[64],10,"string-ci<"); lf[65]=C_h_intern(&lf[65],10,"string-ci>"); lf[66]=C_h_intern(&lf[66],11,"string-ci<="); lf[67]=C_h_intern(&lf[67],11,"string-ci>="); lf[69]=C_h_intern(&lf[69],6,"modulo"); lf[70]=C_h_intern(&lf[70],11,"string-hash"); lf[71]=C_h_intern(&lf[71],13,"char->integer"); lf[72]=C_h_intern(&lf[72],14,"string-hash-ci"); lf[73]=C_h_intern(&lf[73],13,"string-upcase"); lf[74]=C_h_intern(&lf[74],11,"char-upcase"); lf[75]=C_h_intern(&lf[75],14,"string-upcase!"); lf[76]=C_h_intern(&lf[76],15,"string-downcase"); lf[77]=C_h_intern(&lf[77],13,"char-downcase"); lf[78]=C_h_intern(&lf[78],16,"string-downcase!"); lf[80]=C_h_intern(&lf[80],11,"string-skip"); lf[81]=C_h_intern(&lf[81],12,"string-index"); lf[82]=C_h_intern(&lf[82],17,"string-titlecase!"); lf[83]=C_h_intern(&lf[83],16,"string-titlecase"); lf[84]=C_h_intern(&lf[84],11,"string-take"); lf[85]=C_h_intern(&lf[85],15,"\003syscheck-range"); lf[86]=C_h_intern(&lf[86],17,"string-take-right"); lf[87]=C_h_intern(&lf[87],11,"string-drop"); lf[88]=C_h_intern(&lf[88],17,"string-drop-right"); lf[89]=C_h_intern(&lf[89],11,"string-trim"); lf[90]=C_h_intern(&lf[90],19,"char-set:whitespace"); lf[91]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[92]=C_h_intern(&lf[92],17,"string-trim-right"); lf[93]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[94]=C_h_intern(&lf[94],17,"string-skip-right"); lf[95]=C_h_intern(&lf[95],16,"string-trim-both"); lf[96]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[97]=C_h_intern(&lf[97],16,"string-pad-right"); lf[98]=C_h_intern(&lf[98],10,"string-pad"); lf[99]=C_h_intern(&lf[99],13,"string-delete"); lf[100]=C_h_intern(&lf[100],8,"char-set"); lf[101]=C_decode_literal(C_heaptop,"\376B\000\0006string-delete criteria not predicate, char or char-set"); lf[102]=C_h_intern(&lf[102],13,"string-filter"); lf[103]=C_decode_literal(C_heaptop,"\376B\000\0006string-delete criteria not predicate, char or char-set"); lf[104]=C_decode_literal(C_heaptop,"\376B\000\000\077Second param is neither char-set, char, or predicate procedure."); lf[105]=C_h_intern(&lf[105],18,"string-index-right"); lf[106]=C_decode_literal(C_heaptop,"\376B\000\000\077Second param is neither char-set, char, or predicate procedure."); lf[107]=C_decode_literal(C_heaptop,"\376B\000\000\077Second param is neither char-set, char, or predicate procedure."); lf[108]=C_decode_literal(C_heaptop,"\376B\000\000+CRITERIA param is neither char-set or char."); lf[109]=C_h_intern(&lf[109],12,"string-count"); lf[110]=C_decode_literal(C_heaptop,"\376B\000\000+CRITERIA param is neither char-set or char."); lf[111]=C_h_intern(&lf[111],12,"string-fill!"); lf[112]=C_h_intern(&lf[112],12,"string-copy!"); lf[113]=C_h_intern(&lf[113],15,"string-contains"); lf[114]=C_h_intern(&lf[114],18,"string-contains-ci"); lf[115]=C_h_intern(&lf[115],23,"make-kmp-restart-vector"); lf[116]=C_h_intern(&lf[116],6,"char=\077"); lf[117]=C_h_intern(&lf[117],11,"make-vector"); lf[118]=C_h_intern(&lf[118],8,"kmp-step"); lf[119]=C_h_intern(&lf[119],25,"string-kmp-partial-search"); lf[120]=C_h_intern(&lf[120],12,"string-null\077"); lf[121]=C_h_intern(&lf[121],14,"string-reverse"); lf[122]=C_h_intern(&lf[122],15,"string-reverse!"); lf[123]=C_h_intern(&lf[123],12,"string->list"); lf[124]=C_h_intern(&lf[124],20,"string-append/shared"); lf[125]=C_h_intern(&lf[125],25,"string-concatenate/shared"); lf[126]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[127]=C_h_intern(&lf[127],18,"string-concatenate"); lf[128]=C_h_intern(&lf[128],26,"string-concatenate-reverse"); lf[129]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[131]=C_h_intern(&lf[131],33,"string-concatenate-reverse/shared"); lf[132]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[133]=C_h_intern(&lf[133],14,"string-replace"); lf[134]=C_h_intern(&lf[134],15,"string-tokenize"); lf[135]=C_h_intern(&lf[135],16,"char-set:graphic"); lf[136]=C_h_intern(&lf[136],10,"xsubstring"); lf[137]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[138]=C_decode_literal(C_heaptop,"\376B\000\000\042Cannot replicate empty (sub)string"); lf[140]=C_h_intern(&lf[140],13,"string-xcopy!"); lf[141]=C_decode_literal(C_heaptop,"\376B\000\000\042Cannot replicate empty (sub)string"); lf[142]=C_h_intern(&lf[142],11,"string-join"); lf[143]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[144]=C_h_intern(&lf[144],5,"infix"); lf[145]=C_h_intern(&lf[145],12,"strict-infix"); lf[146]=C_h_intern(&lf[146],6,"prefix"); lf[147]=C_h_intern(&lf[147],6,"suffix"); lf[148]=C_decode_literal(C_heaptop,"\376B\000\000\024Illegal join grammar"); lf[149]=C_decode_literal(C_heaptop,"\376B\000\0006Empty list cannot be joined with STRICT-INFIX grammar."); lf[150]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[151]=C_decode_literal(C_heaptop,"\376B\000\000\033STRINGS parameter not list."); lf[152]=C_h_intern(&lf[152],17,"register-feature!"); lf[153]=C_h_intern(&lf[153],7,"srfi-13"); C_register_lf2(lf,154,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2463,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d14_toplevel(2,av2);}} /* k2929 in string-unfold in k2464 in k2461 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(11,c,8)))){ C_save_and_reclaim((void *)f_2931,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_2933,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)li34),tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_2933(t5,((C_word*)t0)[7],C_SCHEME_END_OF_LIST,C_fix(0),t1,C_fix(40),C_fix(0),((C_word*)t0)[8]);} /* lp in k2929 in string-unfold in k2464 in k2461 */ static void C_fcall f_2933(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(16,0,4)))){ C_save_and_reclaim_args((void *)trf_2933,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(16); 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|13,a[1]=(C_word)f_2939,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=t5,a[8]=t9,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)li33),tmp=(C_word)a,a+=14,tmp)); t11=((C_word*)t9)[1]; f_2939(t11,t1,t6,t7);} /* lp2 in lp in k2929 in string-unfold in k2464 in k2461 */ static void C_fcall f_2939(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_2939,4,t0,t1,t2,t3);} a=C_alloc(15); t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_3052,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]=t1,a[8]=((C_word*)t0)[6],a[9]=t3,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); /* srfi-13.scm:416: p */ t5=((C_word*)t0)[12];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* a6977 in a6971 in string-contains-ci in k2464 in k2461 */ static void C_ccall f_6978(C_word c,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_6978,2,av);} /* srfi-13.scm:1341: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3920 in lp in k3872 in k3863 in %string-suffix-length-ci in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3922,2,av);} t2=((C_word*)t0)[2]; f_3897(t2,C_i_not(t1));} /* k2899 in lp in a2876 in string-fold-right in k2464 in k2461 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2901,2,av);} t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:336: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2887(t3,((C_word*)t0)[4],t1,t2);} /* string-unfold in k2464 in k2461 */ 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=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); if(C_unlikely(!C_demand(C_calculate_demand((c-6)*C_SIZEOF_PAIR +12,c,3)))){ C_save_and_reclaim((void*)f_2911,c,av);} a=C_alloc((c-6)*C_SIZEOF_PAIR+12); 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; C_word t15; C_word t16; C_word t17; C_word t18; t7=C_i_nullp(t6); t8=(C_truep(t7)?lf[22]: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_i_nullp(t11); t13=(C_truep(t12)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3063,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp):C_i_car(t11)); t14=t13; t15=C_i_nullp(t11); t16=(C_truep(t15)?C_SCHEME_END_OF_LIST:C_i_cdr(t11)); t17=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2931,a[2]=t9,a[3]=t14,a[4]=t4,a[5]=t3,a[6]=t2,a[7]=t1,a[8]=t5,tmp=(C_word)a,a+=9,tmp); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[25]+1); av2[1]=t17; av2[2]=C_fix(40); av2[3]=C_make_character(32); tp(4,av2);}} /* string-prefix-length in k2464 in k2461 */ 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=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,5)))){ C_save_and_reclaim((void*)f_3946,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=*((C_word*)lf[43]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3952,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li71),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3958,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li74),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:643: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* string-take-right in k2464 in k2461 */ 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=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_5605,4,av);} a=C_alloc(5); t4=C_i_check_string_2(t2,lf[86]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5612,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_block_size(t2); t7=C_fixnum_plus(C_fix(1),t6); /* srfi-13.scm:1033: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[85]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[85]+1); av2[1]=t5; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t7; av2[5]=lf[86]; tp(6,av2);}} /* a4452 in a4440 in string-compare-ci in k2464 in k2461 */ 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=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,10)))){ C_save_and_reclaim((void *)f_4453,4,av);} /* srfi-13.scm:769: %string-compare-ci */ f_4337(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2,t3,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* string= in k2464 in k2461 */ static void C_ccall f_4459(C_word c,C_word *av){ C_word tmp; C_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,5)))){ C_save_and_reclaim((void*)f_4459,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=*((C_word*)lf[56]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4465,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li123),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4471,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li129),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:780: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a4464 in string= in k2464 in k2461 */ 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 *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_4465,2,av);} /* srfi-13.scm:780: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5610 in string-take-right in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5612,2,av);} t2=C_block_size(((C_word*)t0)[2]); t3=C_fixnum_difference(t2,((C_word*)t0)[3]); /* srfi-13.scm:1037: %substring/shared */ f_2671(((C_word*)t0)[4],((C_word*)t0)[2],t3,t2);} /* a3963 in a3957 in string-prefix-length in k2464 in k2461 */ 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!=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_3964,2,av);} /* srfi-13.scm:643: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* string-concatenate in k2464 in k2461 */ static void C_ccall f_7583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_7583,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7620,a[2]=((C_word)li366),tmp=(C_word)a,a+=3,tmp); t4=( f_7620(t2,C_fix(0)) ); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7590,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1601: make-string */ t6=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* a4434 in string-compare-ci in k2464 in k2461 */ static void C_ccall f_4435(C_word c,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_4435,2,av);} /* srfi-13.scm:763: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3951 in string-prefix-length in k2464 in k2461 */ static void C_ccall f_3952(C_word c,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_3952,2,av);} /* srfi-13.scm:643: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3957 in string-prefix-length in k2464 in k2461 */ 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=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(13,c,4)))){ C_save_and_reclaim((void *)f_3958,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3964,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li72),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3970,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li73),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:643: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* lp in k7588 in string-concatenate in k2464 in k2461 */ static C_word C_fcall f_7595(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; 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=t1; t7=C_substring_copy(t4,((C_word*)t0)[2],C_fix(0),t5,t6); t8=C_fixnum_plus(t1,t5); t9=t2; t10=C_u_i_cdr(t9); t12=t8; t13=t10; t1=t12; t2=t13; goto loop;} else{ t3=C_SCHEME_UNDEFINED; return(t3);}} /* k7588 in string-concatenate in k2464 in k2461 */ static void C_ccall f_7590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7590,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7595,a[2]=t2,a[3]=((C_word)li367),tmp=(C_word)a,a+=4,tmp); t4=( f_7595(t3,C_fix(0),((C_word*)t0)[2]) ); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k5637 in string-drop in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5639,2,av);} t2=C_block_size(((C_word*)t0)[2]); /* srfi-13.scm:1046: %substring/shared */ f_2671(((C_word*)t0)[3],((C_word*)t0)[2],((C_word*)t0)[4],t2);} /* a4440 in string-compare-ci in k2464 in k2461 */ 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=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(16,c,4)))){ C_save_and_reclaim((void *)f_4441,5,av);} a=C_alloc(16); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4447,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li119),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4453,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li120),tmp=(C_word)a,a+=10,tmp); /* srfi-13.scm:763: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4446 in a4440 in string-compare-ci in k2464 in k2461 */ 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 *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_4447,2,av);} /* srfi-13.scm:763: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3981 in string-suffix-length in k2464 in k2461 */ 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 *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_3982,2,av);} /* srfi-13.scm:648: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3987 in string-suffix-length in k2464 in k2461 */ 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=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(13,c,4)))){ C_save_and_reclaim((void *)f_3988,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3994,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li77),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4000,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li78),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:648: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* string-drop in k2464 in k2461 */ static void C_ccall f_5632(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_5632,4,av);} a=C_alloc(5); t4=C_i_check_string_2(t2,lf[87]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5639,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t6=C_block_size(t2); t7=C_fixnum_plus(C_fix(1),t6); /* srfi-13.scm:1042: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[85]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[85]+1); av2[1]=t5; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t7; av2[5]=lf[87]; tp(6,av2);}} /* a5145 in k5130 in a5124 in a5112 in string-ci<= in k2464 in k2461 */ static void C_ccall f_5146(C_word c,C_word *av){ C_word tmp; C_word 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_5146,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a5139 in k5130 in a5124 in a5112 in string-ci<= in k2464 in k2461 */ static void C_ccall f_5140(C_word c,C_word *av){ C_word tmp; C_word 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_5140,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4410 in string-compare in k2464 in k2461 */ static void C_ccall f_4411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(16,c,4)))){ C_save_and_reclaim((void *)f_4411,5,av);} a=C_alloc(16); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4417,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li114),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4423,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li115),tmp=(C_word)a,a+=10,tmp); /* srfi-13.scm:755: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4416 in a4410 in string-compare in k2464 in k2461 */ static void C_ccall f_4417(C_word c,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_4417,2,av);} /* srfi-13.scm:755: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3969 in a3957 in string-prefix-length in k2464 in k2461 */ 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=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,7)))){ C_save_and_reclaim((void *)f_3970,4,av);} /* srfi-13.scm:646: %string-prefix-length */ f_3636(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2,t3);} /* string-suffix-length in k2464 in k2461 */ static void C_ccall f_3976(C_word c,C_word *av){ C_word tmp; C_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,5)))){ C_save_and_reclaim((void*)f_3976,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=*((C_word*)lf[44]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3982,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li76),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3988,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li79),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:648: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a5112 in string-ci<= in k2464 in k2461 */ static void C_ccall f_5113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(13,c,4)))){ C_save_and_reclaim((void *)f_5113,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5119,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li204),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5125,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word)li208),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:886: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a5118 in a5112 in string-ci<= in k2464 in k2461 */ 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 *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_5119,2,av);} /* srfi-13.scm:886: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a4422 in a4410 in string-compare in k2464 in k2461 */ 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=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,10)))){ C_save_and_reclaim((void *)f_4423,4,av);} /* srfi-13.scm:761: %string-compare */ f_4278(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2,t3,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* string-compare-ci in k2464 in k2461 */ static void C_ccall f_4429(C_word c,C_word *av){ C_word tmp; C_word t0=av[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 +15,c,5)))){ C_save_and_reclaim((void*)f_4429,c,av);} a=C_alloc((c-7)*C_SIZEOF_PAIR+15); t7=C_build_rest(&a,c,7,av); C_word t8; C_word t9; C_word t10; C_word t11; t8=*((C_word*)lf[55]+1); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4435,a[2]=t8,a[3]=t2,a[4]=t7,a[5]=((C_word)li118),tmp=(C_word)a,a+=6,tmp); t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4441,a[2]=t8,a[3]=t3,a[4]=t2,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=((C_word)li121),tmp=(C_word)a,a+=9,tmp); /* srfi-13.scm:763: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t9; av2[3]=t10; C_call_with_values(4,av2);}} /* doloop1608 in a6833 in string-fill! in k2464 in k2461 */ static C_word C_fcall f_6844(C_word t0,C_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=t1; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t2,t3))){ t4=C_SCHEME_UNDEFINED; return(t4);} else{ t4=C_i_string_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]); t5=C_fixnum_difference(t1,C_fix(1)); t7=t5; t1=t7; goto loop;}} /* k5130 in a5124 in a5112 in string-ci<= in k2464 in k2461 */ static void C_fcall f_5132(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,10)))){ C_save_and_reclaim_args((void *)trf_5132,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_fixnum_less_or_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5140,a[2]=((C_word)li205),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5146,a[2]=((C_word)li206),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5152,a[2]=((C_word)li207),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:892: %string-compare-ci */ f_4337(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],t2,t3,t4);}} /* a4404 in string-compare in k2464 in k2461 */ 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!=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_4405,2,av);} /* srfi-13.scm:755: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* string-ci<= in k2464 in k2461 */ static void C_ccall f_5101(C_word c,C_word *av){ C_word tmp; C_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,5)))){ C_save_and_reclaim((void*)f_5101,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=*((C_word*)lf[66]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5107,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li203),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5113,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li209),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:886: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a6833 in string-fill! in k2464 in k2461 */ 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=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_6834,4,av);} a=C_alloc(6); t4=C_fixnum_difference(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6844,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li319),tmp=(C_word)a,a+=6,tmp); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=( f_6844(t5,t4) ); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a5106 in string-ci<= in k2464 in k2461 */ static void C_ccall f_5107(C_word c,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_5107,2,av);} /* srfi-13.scm:886: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* string-copy! in k2464 in k2461 */ 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=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 +11,c,4)))){ C_save_and_reclaim((void*)f_6863,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+11); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; C_word t8; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6869,a[2]=t4,a[3]=t5,a[4]=((C_word)li322),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6875,a[2]=t3,a[3]=t2,a[4]=t4,a[5]=((C_word)li323),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1313: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* lp in a6305 in string-index-right in k2464 in k2461 */ static C_word C_fcall f_6322(C_word t0,C_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=t1; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t2,t3))){ t4=C_i_string_ref(((C_word*)t0)[3],t1); if(C_truep(C_i_char_equalp(((C_word*)t0)[4],t4))){ return(t1);} else{ t5=C_fixnum_difference(t1,C_fix(1)); t7=t5; t1=t7; goto loop;}} else{ return(C_SCHEME_FALSE);}} /* a4884 in k4872 in a4863 in a4851 in string-ci= in k2464 in k2461 */ 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=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_4885,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4881 in k4872 in a4863 in a4851 in string-ci= in k2464 in k2461 */ static void C_ccall f_4882(C_word c,C_word *av){ C_word tmp; C_word 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_4882,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4890 in k4872 in a4863 in a4851 in string-ci= in k2464 in k2461 */ 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=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_4891,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* string-kmp-partial-search in k2464 in k2461 */ 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=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); if(C_unlikely(!C_demand(C_calculate_demand((c-6)*C_SIZEOF_PAIR +14,c,5)))){ C_save_and_reclaim((void*)f_7205,c,av);} a=C_alloc((c-6)*C_SIZEOF_PAIR+14); 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; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; t7=C_i_nullp(t6); t8=(C_truep(t7)?*((C_word*)lf[116]+1):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_i_nullp(t11); t13=(C_truep(t12)?C_fix(0):C_i_car(t11)); t14=t13; t15=C_i_nullp(t11); t16=(C_truep(t15)?C_SCHEME_END_OF_LIST:C_i_cdr(t11)); t17=t16; t18=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7223,a[2]=t4,a[3]=t17,a[4]=((C_word)li344),tmp=(C_word)a,a+=5,tmp); t19=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7229,a[2]=t3,a[3]=t4,a[4]=t14,a[5]=t2,a[6]=t9,a[7]=t5,a[8]=((C_word)li347),tmp=(C_word)a,a+=9,tmp); /* srfi-13.scm:1471: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t18; av2[3]=t19; C_call_with_values(4,av2);}} /* a4743 in a4731 in string<= in k2464 in k2461 */ 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=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,2)))){ C_save_and_reclaim((void *)f_4744,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4751,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t5=C_eqp(((C_word*)t0)[3],((C_word*)t0)[5]); if(C_truep(t5)){ t6=((C_word*)t0)[4]; t7=t2; t8=t4; f_4751(t8,C_eqp(t6,t7));} else{ t6=t4; f_4751(t6,C_SCHEME_FALSE);}} /* k6808 in doloop1594 in k6743 in a6698 in string-count in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6810,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6789(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} else{ t2=((C_word*)t0)[2]; t3=((C_word*)((C_word*)t0)[3])[1]; f_6789(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}} /* string-ci>= in k2464 in k2461 */ static void C_ccall f_5161(C_word c,C_word *av){ C_word tmp; C_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,5)))){ C_save_and_reclaim((void*)f_5161,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=*((C_word*)lf[67]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5167,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li211),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5173,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li217),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:897: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a5166 in string-ci>= in k2464 in k2461 */ static void C_ccall f_5167(C_word c,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_5167,2,av);} /* srfi-13.scm:897: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a6827 in string-fill! in k2464 in k2461 */ 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 *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_6828,2,av);} /* srfi-13.scm:1306: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[111]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4749 in a4743 in a4731 in string<= in k2464 in k2461 */ static void C_fcall f_4751(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,10)))){ C_save_and_reclaim_args((void *)trf_4751,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_fixnum_less_or_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4759,a[2]=((C_word)li157),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4765,a[2]=((C_word)li158),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4771,a[2]=((C_word)li159),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:828: %string-compare */ f_4278(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],t2,t3,t4);}} /* a4758 in k4749 in a4743 in a4731 in string<= in k2464 in k2461 */ static void C_ccall f_4759(C_word c,C_word *av){ C_word tmp; C_word 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_4759,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a6305 in string-index-right in k2464 in k2461 */ static void C_ccall f_6306(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(7,c,2)))){ C_save_and_reclaim((void *)f_6306,4,av);} a=C_alloc(7); if(C_truep(C_charp(((C_word*)t0)[2]))){ t4=C_fixnum_difference(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6322,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li295),tmp=(C_word)a,a+=6,tmp); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=( f_6322(t5,t4) ); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6352,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1214: char-set? */ t5=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* a6299 in string-index-right in k2464 in k2461 */ 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,4)))){ C_save_and_reclaim((void *)f_6300,2,av);} /* srfi-13.scm:1207: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[105]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a7222 in string-kmp-partial-search in k2464 in k2461 */ 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!=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_7223,2,av);} /* srfi-13.scm:1476: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[119]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a4764 in k4749 in a4743 in a4731 in string<= in k2464 in k2461 */ 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=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_4765,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a7228 in string-kmp-partial-search in k2464 in k2461 */ static void C_ccall f_7229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(13,c,4)))){ C_save_and_reclaim((void *)f_7229,5,av);} a=C_alloc(13); t5=C_i_vector_length(((C_word*)t0)[2]); 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|10,a[1]=(C_word)f_7238,a[2]=t6,a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=t8,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word)li346),tmp=(C_word)a,a+=11,tmp)); t10=((C_word*)t8)[1]; f_7238(t10,t1,t3,((C_word*)t0)[7]);} /* k6372 in lp in k6350 in a6305 in string-index-right in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6374,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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)[3],C_fix(1)); /* srfi-13.scm:1218: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6361(t3,((C_word*)t0)[2],t2);}} /* k6499 in lp in k6481 in a6440 in string-skip in k2464 in k2461 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6501,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:1239: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6488(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a5184 in a5172 in string-ci>= in k2464 in k2461 */ 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=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,2)))){ C_save_and_reclaim((void *)f_5185,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5192,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t5=C_eqp(((C_word*)t0)[3],((C_word*)t0)[5]); if(C_truep(t5)){ t6=((C_word*)t0)[4]; t7=t2; t8=t4; f_5192(t8,C_eqp(t6,t7));} else{ t6=t4; f_5192(t6,C_SCHEME_FALSE);}} /* k4247 in a4149 in a4137 in string-prefix-ci? in k2464 in k2461 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_4249,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* lp in a7228 in string-kmp-partial-search in k2464 in k2461 */ static void C_fcall f_7238(C_word t0,C_word t1,C_word 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(16,0,3)))){ C_save_and_reclaim_args((void *)trf_7238,4,t0,t1,t2,t3);} a=C_alloc(16); t4=t3; t5=C_eqp(t4,((C_word*)t0)[2]); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_fixnum_negate(t2); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=t2; t7=((C_word*)t0)[3]; t8=C_eqp(t6,t7); if(C_truep(t8)){ t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_i_string_ref(((C_word*)t0)[4],t2); t10=t9; t11=C_fixnum_plus(t2,C_fix(1)); t12=t11; t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7268,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t12,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|8,a[1]=(C_word)f_7270,a[2]=((C_word*)t0)[6],a[3]=t15,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=t10,a[8]=((C_word)li345),tmp=(C_word)a,a+=9,tmp)); t17=((C_word*)t15)[1]; f_7270(t17,t13,t3);}}} /* a4770 in k4749 in a4743 in a4731 in string<= in k2464 in k2461 */ 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=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_4771,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a5151 in k5130 in a5124 in a5112 in string-ci<= in k2464 in k2461 */ 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=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_5152,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4701 in k4692 in a4686 in a4674 in string> in k2464 in k2461 */ 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=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_4702,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4704 in k4692 in a4686 in a4674 in string> in k2464 in k2461 */ static void C_ccall f_4705(C_word c,C_word *av){ C_word tmp; C_word 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_4705,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4707 in k4692 in a4686 in a4674 in string> in k2464 in k2461 */ static void C_ccall f_4708(C_word c,C_word *av){ C_word tmp; C_word 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_4708,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop1845 in string-concatenate in k2464 in k2461 */ static C_word C_fcall f_7620(C_word t1,C_word t2){ C_word tmp; C_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=C_i_cdr(t1); t4=t1; t5=C_u_i_car(t4); t6=C_i_string_length(t5); t7=C_fixnum_plus(t2,t6); t9=t3; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t2; return(t3);}} /* lp in k6481 in a6440 in string-skip in k2464 in k2461 */ static void C_fcall f_6523(C_word t0,C_word 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_6523,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6536,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:1244: criteria */ t7=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(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);}}} /* a5124 in a5112 in string-ci<= in k2464 in k2461 */ 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=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,2)))){ C_save_and_reclaim((void *)f_5125,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5132,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t5=C_eqp(((C_word*)t0)[3],((C_word*)t0)[5]); if(C_truep(t5)){ t6=((C_word*)t0)[4]; t7=t2; t8=t4; f_5132(t8,C_eqp(t6,t7));} else{ t6=t4; f_5132(t6,C_SCHEME_FALSE);}} /* a6868 in string-copy! in k2464 in k2461 */ 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!=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_6869,2,av);} /* srfi-13.scm:1313: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[112]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4224 in a4119 in a4107 in string-suffix? in k2464 in k2461 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4226,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4270 in a4179 in a4167 in string-suffix-ci? in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4272,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a5172 in string-ci>= in k2464 in k2461 */ 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=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(13,c,4)))){ C_save_and_reclaim((void *)f_5173,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5179,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li212),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5185,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word)li216),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:897: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* %string-compare in k2464 in k2461 */ static void C_fcall f_4278(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_word tmp; 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,0,7)))){ C_save_and_reclaim_args((void *)trf_4278,10,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10);} a=C_alloc(13); t11=C_fixnum_difference(t4,t3); t12=t11; t13=C_fixnum_difference(t7,t6); t14=t13; t15=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4288,a[2]=t12,a[3]=t14,a[4]=t9,a[5]=t1,a[6]=t4,a[7]=t8,a[8]=t10,a[9]=t3,a[10]=t2,a[11]=t6,a[12]=t5,tmp=(C_word)a,a+=13,tmp); /* srfi-13.scm:732: %string-prefix-length */ f_3636(t15,t2,t3,t4,t5,t6,t7);} /* a5178 in a5172 in string-ci>= in k2464 in k2461 */ 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!=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_5179,2,av);} /* srfi-13.scm:897: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7266 in lp in a7228 in string-kmp-partial-search in k2464 in k2461 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7268,2,av);} /* srfi-13.scm:1485: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7238(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* string<= in k2464 in k2461 */ 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=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,5)))){ C_save_and_reclaim((void*)f_4720,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=*((C_word*)lf[60]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4726,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li155),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4732,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li161),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:822: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a4725 in string<= in k2464 in k2461 */ 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 *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_4726,2,av);} /* srfi-13.scm:822: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4286 in %string-compare in k2464 in k2461 */ 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 t3; 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,2)))){ C_save_and_reclaim((void *)f_4288,2,av);} t2=C_eqp(t1,((C_word*)t0)[2]); if(C_truep(t2)){ t3=C_eqp(t1,((C_word*)t0)[3]); if(C_truep(t3)){ t4=((C_word*)t0)[4]; /* srfi-13.scm:728: g760 */ t5=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t4=((C_word*)t0)[7]; /* srfi-13.scm:728: g760 */ t5=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} else{ t3=C_eqp(t1,((C_word*)t0)[3]); if(C_truep(t3)){ t4=((C_word*)t0)[8]; t5=C_fixnum_plus(t1,((C_word*)t0)[9]); /* srfi-13.scm:728: g762 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=((C_word*)t0)[5]; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} else{ t4=C_fixnum_plus(((C_word*)t0)[9],t1); t5=C_i_string_ref(((C_word*)t0)[10],t4); t6=C_fixnum_plus(((C_word*)t0)[11],t1); t7=C_i_string_ref(((C_word*)t0)[12],t6); if(C_truep(C_u_i_char_lessp(t5,t7))){ t8=((C_word*)t0)[7]; t9=C_fixnum_plus(t1,((C_word*)t0)[9]); /* srfi-13.scm:728: g762 */ t10=t8;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=((C_word*)t0)[5]; av2[2]=t9; ((C_proc)C_fast_retrieve_proc(t10))(3,av2);}} else{ t8=((C_word*)t0)[8]; t9=C_fixnum_plus(t1,((C_word*)t0)[9]); /* srfi-13.scm:728: g762 */ t10=t8;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=((C_word*)t0)[5]; av2[2]=t9; ((C_proc)C_fast_retrieve_proc(t10))(3,av2);}}}}} /* lp2 in lp in a7228 in string-kmp-partial-search in k2464 in k2461 */ static void C_fcall f_7270(C_word 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_7270,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7277,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=C_fixnum_plus(t2,((C_word*)t0)[4]); t5=C_i_string_ref(((C_word*)t0)[5],t4); /* srfi-13.scm:1487: c= */ t6=((C_word*)t0)[6];{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=t5; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} /* k7275 in lp2 in lp in a7228 in string-kmp-partial-search in k2464 in k2461 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7277,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_vector_ref(((C_word*)t0)[4],((C_word*)t0)[3]); t3=C_eqp(t2,C_fix(-1)); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* srfi-13.scm:1491: lp2 */ t4=((C_word*)((C_word*)t0)[5])[1]; f_7270(t4,((C_word*)t0)[2],t2);}}} /* a4731 in string<= in k2464 in k2461 */ 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=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(13,c,4)))){ C_save_and_reclaim((void *)f_4732,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4738,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li156),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4744,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word)li160),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:822: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4737 in a4731 in string<= in k2464 in k2461 */ 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!=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_4738,2,av);} /* srfi-13.scm:822: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* string-concatenate-reverse in k2464 in k2461 */ 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=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_7650,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; t4=C_i_nullp(t3); t5=(C_truep(t4)?lf[129]: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_i_string_length(t5):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_exact_2(t9,lf[128]); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7674,a[2]=((C_word)li369),tmp=(C_word)a,a+=3,tmp); t14=( f_7674(C_fix(0),t2) ); /* srfi-13.scm:1634: %finish-string-concatenate-reverse */ f_7842(t1,t14,t2,t5,t9);} /* string-fill! in k2464 in k2461 */ 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=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_6822,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; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6828,a[2]=t2,a[3]=t4,a[4]=((C_word)li318),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6834,a[2]=t2,a[3]=t3,a[4]=((C_word)li320),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1306: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k6534 in lp in k6481 in a6440 in string-skip in k2464 in k2461 */ static void C_ccall f_6536(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6536,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:1244: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6523(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* lp in k6350 in a6305 in string-index-right in k2464 in k2461 */ static void C_fcall f_6361(C_word t0,C_word 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_6361,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6374,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); /* srfi-13.scm:1217: char-set-contains? */ t7=*((C_word*)lf[32]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,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);}}} /* k6350 in a6305 in string-index-right in k2464 in k2461 */ static void C_ccall f_6352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6352,2,av);} a=C_alloc(9); if(C_truep(t1)){ 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|6,a[1]=(C_word)f_6361,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)li296),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_6361(t6,((C_word*)t0)[6],t2);} else{ if(C_truep(C_i_closurep(((C_word*)t0)[5]))){ 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|6,a[1]=(C_word)f_6400,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)li297),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_6400(t6,((C_word*)t0)[6],t2);} else{ /* srfi-13.scm:1224: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[6]; av2[2]=lf[105]; av2[3]=lf[106]; av2[4]=*((C_word*)lf[105]+1); av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* make-kmp-restart-vector in k2464 in k2461 */ 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=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_7022,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_word*)lf[116]+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=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7034,a[2]=t2,a[3]=t9,a[4]=((C_word)li337),tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7040,a[2]=t2,a[3]=t6,a[4]=((C_word)li340),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1402: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t10; av2[3]=t11; C_call_with_values(4,av2);}} /* k2676 in %substring/shared in k2464 in k2461 */ static void C_fcall f_2678(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_2678,2,t0,t1);} 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{ /* srfi-13.scm:265: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[12]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; tp(5,av2);}}} /* string-upcase in k2464 in k2461 */ static void C_ccall f_5395(C_word c,C_word *av){ C_word tmp; C_word 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,4)))){ C_save_and_reclaim((void*)f_5395,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; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5401,a[2]=t2,a[3]=t3,a[4]=((C_word)li230),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5407,a[2]=t2,a[3]=((C_word)li231),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:964: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* %substring/shared in k2464 in k2461 */ static void C_fcall f_2671(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(6,0,2)))){ C_save_and_reclaim_args((void *)trf_2671,4,t1,t2,t3,t4);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2678,a[2]=t2,a[3]=t1,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t6=C_eqp(t3,C_fix(0)); if(C_truep(t6)){ t7=C_i_string_length(t2); t8=t4; t9=t5; f_2678(t9,C_eqp(t8,t7));} else{ t7=t5; f_2678(t7,C_SCHEME_FALSE);}} /* string-trim-both in k2464 in k2461 */ 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=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,4)))){ C_save_and_reclaim((void*)f_5780,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_word*)lf[90]+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=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5792,a[2]=t2,a[3]=t9,a[4]=((C_word)li266),tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5798,a[2]=t2,a[3]=t6,a[4]=((C_word)li268),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1072: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t10; av2[3]=t11; C_call_with_values(4,av2);}} /* a7039 in make-kmp-restart-vector in k2464 in k2461 */ static void C_ccall f_7040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,3)))){ C_save_and_reclaim((void *)f_7040,5,av);} a=C_alloc(7); t5=C_fixnum_difference(t4,t3); t6=t5; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7047,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1407: make-vector */ t8=*((C_word*)lf[117]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=t6; av2[3]=C_fix(-1); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k7045 in a7039 in make-kmp-restart-vector in k2464 in k2461 */ 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 t3; C_word t4; 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_7047,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7050,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnum_greaterp(((C_word*)t0)[3],C_fix(0)))){ t4=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); t5=t4; t6=C_i_string_ref(((C_word*)t0)[4],((C_word*)t0)[5]); 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|9,a[1]=(C_word)f_7064,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t9,a[6]=((C_word*)t0)[6],a[7]=t7,a[8]=((C_word*)t0)[5],a[9]=((C_word)li339),tmp=(C_word)a,a+=10,tmp)); t11=((C_word*)t9)[1]; f_7064(t11,t3,C_fix(0),C_fix(-1),((C_word*)t0)[5]);} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a5791 in string-trim-both in k2464 in k2461 */ static void C_ccall f_5792(C_word c,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_5792,2,av);} /* srfi-13.scm:1072: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[95]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5797 in string-trim-both in k2464 in k2461 */ 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=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,5)))){ C_save_and_reclaim((void *)f_5798,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5802,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1075: string-skip */ t5=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* a2698 in string-copy in k2464 in k2461 */ 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 *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_2699,2,av);} /* srfi-13.scm:267: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[13]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-copy in k2464 in k2461 */ 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=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,4)))){ C_save_and_reclaim((void*)f_2693,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; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2699,a[2]=t2,a[3]=t3,a[4]=((C_word)li10),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2705,a[2]=t2,a[3]=((C_word)li11),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:267: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* %string-suffix-length-ci in k2464 in k2461 */ static void C_fcall f_3861(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(7,0,3)))){ C_save_and_reclaim_args((void *)trf_3861,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(7); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3865,a[2]=t4,a[3]=t1,a[4]=t7,a[5]=t2,a[6]=t5,tmp=(C_word)a,a+=7,tmp); t9=C_fixnum_difference(t4,t3); t10=C_fixnum_difference(t7,t6); /* srfi-13.scm:629: min */ t11=*((C_word*)lf[24]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=t8; av2[2]=t9; av2[3]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} /* k3863 in %string-suffix-length-ci in k2464 in k2461 */ 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 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_3865,2,av);} a=C_alloc(9); t2=t1; t3=C_fixnum_difference(((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3874,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); t6=C_eqp(((C_word*)t0)[5],((C_word*)t0)[6]); if(C_truep(t6)){ t7=((C_word*)t0)[2]; t8=((C_word*)t0)[4]; t9=t5; f_3874(t9,C_eqp(t7,t8));} else{ t7=t5; f_3874(t7,C_SCHEME_FALSE);}} /* k4201 in a4089 in a4077 in string-prefix? in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4203,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a5746 in string-trim-right in k2464 in k2461 */ 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=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_5747,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5751,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1068: string-skip-right */ t5=*((C_word*)lf[94]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* a5740 in string-trim-right in k2464 in k2461 */ static void C_ccall f_5741(C_word c,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_5741,2,av);} /* srfi-13.scm:1065: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[92]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7007 in lp in a6983 in a6971 in string-contains-ci in k2464 in k2461 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7009,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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)); /* srfi-13.scm:1350: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6996(t3,((C_word*)t0)[2],t2);}} /* k5981 in k5978 in a5966 in string-delete in k2464 in k2461 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5983,2,av);} t2=C_eqp(t1,((C_word*)t0)[2]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* srfi-13.scm:1129: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[12]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(0); av2[4]=t1; tp(5,av2);}}} /* k5978 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_5980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5980,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5983,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|4,a[1]=(C_word)f_5994,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word)li277),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1124: string-fold */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} /* g1342 in k5749 in a5746 in string-trim-right in k2464 in k2461 */ static void C_fcall f_5755(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_5755,3,t0,t1,t2);} t3=C_fixnum_plus(C_fix(1),t2); /* srfi-13.scm:1069: %substring/shared */ f_2671(t1,((C_word*)t0)[2],((C_word*)t0)[3],t3);} /* k5749 in a5746 in string-trim-right in k2464 in k2461 */ static void C_ccall f_5751(C_word c,C_word *av){ C_word tmp; C_word t0=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_5751,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5755,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li263),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1065: g1342 */ t3=t2; f_5755(t3,((C_word*)t0)[4],t1);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[93]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[555] = { {"f_5514:srfi_2d13_2escm",(void*)f_5514}, {"f_7076:srfi_2d13_2escm",(void*)f_7076}, {"f_6789:srfi_2d13_2escm",(void*)f_6789}, {"f_3816:srfi_2d13_2escm",(void*)f_3816}, {"f_5536:srfi_2d13_2escm",(void*)f_5536}, {"f_3801:srfi_2d13_2escm",(void*)f_3801}, {"f_3806:srfi_2d13_2escm",(void*)f_3806}, {"f_5994:srfi_2d13_2escm",(void*)f_5994}, {"f_3874:srfi_2d13_2escm",(void*)f_3874}, {"f_7064:srfi_2d13_2escm",(void*)f_7064}, {"f_7034:srfi_2d13_2escm",(void*)f_7034}, {"f_7050:srfi_2d13_2escm",(void*)f_7050}, {"f_3837:srfi_2d13_2escm",(void*)f_3837}, {"f_5303:srfi_2d13_2escm",(void*)f_5303}, {"f_7746:srfi_2d13_2escm",(void*)f_7746}, {"f_7793:srfi_2d13_2escm",(void*)f_7793}, {"f_5311:srfi_2d13_2escm",(void*)f_5311}, {"f_5317:srfi_2d13_2escm",(void*)f_5317}, {"f_6483:srfi_2d13_2escm",(void*)f_6483}, {"f_6632:srfi_2d13_2escm",(void*)f_6632}, {"f_5339:srfi_2d13_2escm",(void*)f_5339}, {"f_6488:srfi_2d13_2escm",(void*)f_6488}, {"f_3633:srfi_2d13_2escm",(void*)f_3633}, {"f_3636:srfi_2d13_2escm",(void*)f_3636}, {"f_2564:srfi_2d13_2escm",(void*)f_2564}, {"f_3664:srfi_2d13_2escm",(void*)f_3664}, {"f_4493:srfi_2d13_2escm",(void*)f_4493}, {"f_7944:srfi_2d13_2escm",(void*)f_7944}, {"f_6102:srfi_2d13_2escm",(void*)f_6102}, {"f_6109:srfi_2d13_2escm",(void*)f_6109}, {"f_3640:srfi_2d13_2escm",(void*)f_3640}, {"f_3649:srfi_2d13_2escm",(void*)f_3649}, {"f_7950:srfi_2d13_2escm",(void*)f_7950}, {"f_7956:srfi_2d13_2escm",(void*)f_7956}, {"f_2558:srfi_2d13_2escm",(void*)f_2558}, {"f_4477:srfi_2d13_2escm",(void*)f_4477}, {"f_4471:srfi_2d13_2escm",(void*)f_4471}, {"f_7960:srfi_2d13_2escm",(void*)f_7960}, {"f_6127:srfi_2d13_2escm",(void*)f_6127}, {"f_7964:srfi_2d13_2escm",(void*)f_7964}, {"f_6129:srfi_2d13_2escm",(void*)f_6129}, {"f_6124:srfi_2d13_2escm",(void*)f_6124}, {"f_2528:srfi_2d13_2escm",(void*)f_2528}, {"f_8024:srfi_2d13_2escm",(void*)f_8024}, {"f_6121:srfi_2d13_2escm",(void*)f_6121}, {"f_4483:srfi_2d13_2escm",(void*)f_4483}, {"f_6118:srfi_2d13_2escm",(void*)f_6118}, {"f_3654:srfi_2d13_2escm",(void*)f_3654}, {"f_4956:srfi_2d13_2escm",(void*)f_4956}, {"f_4950:srfi_2d13_2escm",(void*)f_4950}, {"f_4959:srfi_2d13_2escm",(void*)f_4959}, {"f_5293:srfi_2d13_2escm",(void*)f_5293}, {"f_7909:srfi_2d13_2escm",(void*)f_7909}, {"f_6144:srfi_2d13_2escm",(void*)f_6144}, {"f_8001:srfi_2d13_2escm",(void*)f_8001}, {"f_3603:srfi_2d13_2escm",(void*)f_3603}, {"f_3606:srfi_2d13_2escm",(void*)f_3606}, {"f_2766:srfi_2d13_2escm",(void*)f_2766}, {"f_4967:srfi_2d13_2escm",(void*)f_4967}, {"f_6136:srfi_2d13_2escm",(void*)f_6136}, {"f_6658:srfi_2d13_2escm",(void*)f_6658}, {"f_5349:srfi_2d13_2escm",(void*)f_5349}, {"f_2772:srfi_2d13_2escm",(void*)f_2772}, {"f_2778:srfi_2d13_2escm",(void*)f_2778}, {"f_5357:srfi_2d13_2escm",(void*)f_5357}, {"f_2741:srfi_2d13_2escm",(void*)f_2741}, {"f_4908:srfi_2d13_2escm",(void*)f_4908}, {"f_7932:srfi_2d13_2escm",(void*)f_7932}, {"f_6157:srfi_2d13_2escm",(void*)f_6157}, {"f_3612:srfi_2d13_2escm",(void*)f_3612}, {"f_5363:srfi_2d13_2escm",(void*)f_5363}, {"f_7854:srfi_2d13_2escm",(void*)f_7854}, {"f_6151:srfi_2d13_2escm",(void*)f_6151}, {"f_5369:srfi_2d13_2escm",(void*)f_5369}, {"f_4914:srfi_2d13_2escm",(void*)f_4914}, {"f_6671:srfi_2d13_2escm",(void*)f_6671}, {"f_6183:srfi_2d13_2escm",(void*)f_6183}, {"f_2723:srfi_2d13_2escm",(void*)f_2723}, {"f_4920:srfi_2d13_2escm",(void*)f_4920}, {"f_4926:srfi_2d13_2escm",(void*)f_4926}, {"f_2729:srfi_2d13_2escm",(void*)f_2729}, {"f_6177:srfi_2d13_2escm",(void*)f_6177}, {"f_6619:srfi_2d13_2escm",(void*)f_6619}, {"f_6171:srfi_2d13_2escm",(void*)f_6171}, {"f_3994:srfi_2d13_2escm",(void*)f_3994}, {"f_3276:srfi_2d13_2escm",(void*)f_3276}, {"f_4932:srfi_2d13_2escm",(void*)f_4932}, {"f_3270:srfi_2d13_2escm",(void*)f_3270}, {"f_2736:srfi_2d13_2escm",(void*)f_2736}, {"f_2739:srfi_2d13_2escm",(void*)f_2739}, {"f_6898:srfi_2d13_2escm",(void*)f_6898}, {"f_2994:srfi_2d13_2escm",(void*)f_2994}, {"f_6610:srfi_2d13_2escm",(void*)f_6610}, {"f_7842:srfi_2d13_2escm",(void*)f_7842}, {"f_7846:srfi_2d13_2escm",(void*)f_7846}, {"f_3264:srfi_2d13_2escm",(void*)f_3264}, {"f_2705:srfi_2d13_2escm",(void*)f_2705}, {"f_6195:srfi_2d13_2escm",(void*)f_6195}, {"f_2711:srfi_2d13_2escm",(void*)f_2711}, {"f_2717:srfi_2d13_2escm",(void*)f_2717}, {"f_3258:srfi_2d13_2escm",(void*)f_3258}, {"f_3742:srfi_2d13_2escm",(void*)f_3742}, {"f_3240:srfi_2d13_2escm",(void*)f_3240}, {"f_8077:srfi_2d13_2escm",(void*)f_8077}, {"f_6882:srfi_2d13_2escm",(void*)f_6882}, {"f_3229:srfi_2d13_2escm",(void*)f_3229}, {"f_3710:srfi_2d13_2escm",(void*)f_3710}, {"f_8055:srfi_2d13_2escm",(void*)f_8055}, {"f_3719:srfi_2d13_2escm",(void*)f_3719}, {"f_3122:srfi_2d13_2escm",(void*)f_3122}, {"f_6875:srfi_2d13_2escm",(void*)f_6875}, {"f_3706:srfi_2d13_2escm",(void*)f_3706}, {"f_8045:srfi_2d13_2escm",(void*)f_8045}, {"f_2463:srfi_2d13_2escm",(void*)f_2463}, {"f_2466:srfi_2d13_2escm",(void*)f_2466}, {"f_3732:srfi_2d13_2escm",(void*)f_3732}, {"f_8033:srfi_2d13_2escm",(void*)f_8033}, {"f_3143:srfi_2d13_2escm",(void*)f_3143}, {"f_3146:srfi_2d13_2escm",(void*)f_3146}, {"f_2468:srfi_2d13_2escm",(void*)f_2468}, {"f_5704:srfi_2d13_2escm",(void*)f_5704}, {"f_5708:srfi_2d13_2escm",(void*)f_5708}, {"f_4347:srfi_2d13_2escm",(void*)f_4347}, {"f_3166:srfi_2d13_2escm",(void*)f_3166}, {"f_5700:srfi_2d13_2escm",(void*)f_5700}, {"f_5729:srfi_2d13_2escm",(void*)f_5729}, {"f_3181:srfi_2d13_2escm",(void*)f_3181}, {"f_3299:srfi_2d13_2escm",(void*)f_3299}, {"f_3196:srfi_2d13_2escm",(void*)f_3196}, {"f_3190:srfi_2d13_2escm",(void*)f_3190}, {"f_3286:srfi_2d13_2escm",(void*)f_3286}, {"f_7438:srfi_2d13_2escm",(void*)f_7438}, {"f_4337:srfi_2d13_2escm",(void*)f_4337}, {"f_4786:srfi_2d13_2escm",(void*)f_4786}, {"f_4780:srfi_2d13_2escm",(void*)f_4780}, {"f_6230:srfi_2d13_2escm",(void*)f_6230}, {"f_4798:srfi_2d13_2escm",(void*)f_4798}, {"f_3109:srfi_2d13_2escm",(void*)f_3109}, {"f_4792:srfi_2d13_2escm",(void*)f_4792}, {"f_3103:srfi_2d13_2escm",(void*)f_3103}, {"f_3101:srfi_2d13_2escm",(void*)f_3101}, {"f_6225:srfi_2d13_2escm",(void*)f_6225}, {"f_8111:srfi_2d13_2escm",(void*)f_8111}, {"f_8117:srfi_2d13_2escm",(void*)f_8117}, {"f_8114:srfi_2d13_2escm",(void*)f_8114}, {"f_8148:srfi_2d13_2escm",(void*)f_8148}, {"f_4612:srfi_2d13_2escm",(void*)f_4612}, {"f_4618:srfi_2d13_2escm",(void*)f_4618}, {"f_3119:srfi_2d13_2escm",(void*)f_3119}, {"f_3466:srfi_2d13_2escm",(void*)f_3466}, {"f_4624:srfi_2d13_2escm",(void*)f_4624}, {"f_3458:srfi_2d13_2escm",(void*)f_3458}, {"f_8126:srfi_2d13_2escm",(void*)f_8126}, {"f_4144:srfi_2d13_2escm",(void*)f_4144}, {"f_7326:srfi_2d13_2escm",(void*)f_7326}, {"f_7444:srfi_2d13_2escm",(void*)f_7444}, {"f_7329:srfi_2d13_2escm",(void*)f_7329}, {"f_6413:srfi_2d13_2escm",(void*)f_6413}, {"f_4606:srfi_2d13_2escm",(void*)f_4606}, {"f_4150:srfi_2d13_2escm",(void*)f_4150}, {"f_4156:srfi_2d13_2escm",(void*)f_4156}, {"f_7450:srfi_2d13_2escm",(void*)f_7450}, {"f_6294:srfi_2d13_2escm",(void*)f_6294}, {"f_7335:srfi_2d13_2escm",(void*)f_7335}, {"f_6400:srfi_2d13_2escm",(void*)f_6400}, {"f_3436:srfi_2d13_2escm",(void*)f_3436}, {"f_4651:srfi_2d13_2escm",(void*)f_4651}, {"f_4162:srfi_2d13_2escm",(void*)f_4162}, {"f_4654:srfi_2d13_2escm",(void*)f_4654}, {"f_4168:srfi_2d13_2escm",(void*)f_4168}, {"f_7460:srfi_2d13_2escm",(void*)f_7460}, {"f_7341:srfi_2d13_2escm",(void*)f_7341}, {"f_7348:srfi_2d13_2escm",(void*)f_7348}, {"f_6435:srfi_2d13_2escm",(void*)f_6435}, {"f_4663:srfi_2d13_2escm",(void*)f_4663}, {"f_4669:srfi_2d13_2escm",(void*)f_4669}, {"f_4174:srfi_2d13_2escm",(void*)f_4174}, {"f_7357:srfi_2d13_2escm",(void*)f_7357}, {"f_4630:srfi_2d13_2escm",(void*)f_4630}, {"f_4637:srfi_2d13_2escm",(void*)f_4637}, {"f_7406:srfi_2d13_2escm",(void*)f_7406}, {"f_6453:srfi_2d13_2escm",(void*)f_6453}, {"f_6429:srfi_2d13_2escm",(void*)f_6429}, {"f_3408:srfi_2d13_2escm",(void*)f_3408}, {"f_4645:srfi_2d13_2escm",(void*)f_4645}, {"f_7725:srfi_2d13_2escm",(void*)f_7725}, {"f_6441:srfi_2d13_2escm",(void*)f_6441}, {"f_6243:srfi_2d13_2escm",(void*)f_6243}, {"f_5835:srfi_2d13_2escm",(void*)f_5835}, {"f_4120:srfi_2d13_2escm",(void*)f_4120}, {"f_4126:srfi_2d13_2escm",(void*)f_4126}, {"f_5850:srfi_2d13_2escm",(void*)f_5850}, {"f_7384:srfi_2d13_2escm",(void*)f_7384}, {"f_6278:srfi_2d13_2escm",(void*)f_6278}, {"f_8170:srfi_2d13_2escm",(void*)f_8170}, {"f_4132:srfi_2d13_2escm",(void*)f_4132}, {"f_4138:srfi_2d13_2escm",(void*)f_4138}, {"f_6265:srfi_2d13_2escm",(void*)f_6265}, {"f_5856:srfi_2d13_2escm",(void*)f_5856}, {"f_3897:srfi_2d13_2escm",(void*)f_3897}, {"f_5491:srfi_2d13_2escm",(void*)f_5491}, {"f_5802:srfi_2d13_2escm",(void*)f_5802}, {"f_7987:srfi_2d13_2escm",(void*)f_7987}, {"f_3887:srfi_2d13_2escm",(void*)f_3887}, {"f_8183:srfi_2d13_2escm",(void*)f_8183}, {"f_2585:srfi_2d13_2escm",(void*)f_2585}, {"f_5495:srfi_2d13_2escm",(void*)f_5495}, {"f_5499:srfi_2d13_2escm",(void*)f_5499}, {"f_5806:srfi_2d13_2escm",(void*)f_5806}, {"f_8138:srfi_2d13_2escm",(void*)f_8138}, {"f_3023:srfi_2d13_2escm",(void*)f_3023}, {"f_5818:srfi_2d13_2escm",(void*)f_5818}, {"f_4180:srfi_2d13_2escm",(void*)f_4180}, {"f_2570:srfi_2d13_2escm",(void*)f_2570}, {"f_3081:srfi_2d13_2escm",(void*)f_3081}, {"f_3520:srfi_2d13_2escm",(void*)f_3520}, {"f_5449:srfi_2d13_2escm",(void*)f_5449}, {"f_3525:srfi_2d13_2escm",(void*)f_3525}, {"f_5443:srfi_2d13_2escm",(void*)f_5443}, {"f_5461:srfi_2d13_2escm",(void*)f_5461}, {"f_5455:srfi_2d13_2escm",(void*)f_5455}, {"f_6699:srfi_2d13_2escm",(void*)f_6699}, {"f_5467:srfi_2d13_2escm",(void*)f_5467}, {"f_5481:srfi_2d13_2escm",(void*)f_5481}, {"f_3052:srfi_2d13_2escm",(void*)f_3052}, {"f_6693:srfi_2d13_2escm",(void*)f_6693}, {"f_6687:srfi_2d13_2escm",(void*)f_6687}, {"f_3535:srfi_2d13_2escm",(void*)f_3535}, {"f_5477:srfi_2d13_2escm",(void*)f_5477}, {"f_5473:srfi_2d13_2escm",(void*)f_5473}, {"f_7975:srfi_2d13_2escm",(void*)f_7975}, {"f_7971:srfi_2d13_2escm",(void*)f_7971}, {"f_7896:srfi_2d13_2escm",(void*)f_7896}, {"f_7890:srfi_2d13_2escm",(void*)f_7890}, {"f_3566:srfi_2d13_2escm",(void*)f_3566}, {"f_4545:srfi_2d13_2escm",(void*)f_4545}, {"f_4108:srfi_2d13_2escm",(void*)f_4108}, {"f_4102:srfi_2d13_2escm",(void*)f_4102}, {"f_7885:srfi_2d13_2escm",(void*)f_7885}, {"f_7881:srfi_2d13_2escm",(void*)f_7881}, {"f_4114:srfi_2d13_2escm",(void*)f_4114}, {"f_3006:srfi_2d13_2escm",(void*)f_3006}, {"f_4569:srfi_2d13_2escm",(void*)f_4569}, {"f_4533:srfi_2d13_2escm",(void*)f_4533}, {"f_4539:srfi_2d13_2escm",(void*)f_4539}, {"f_3063:srfi_2d13_2escm",(void*)f_3063}, {"f_5035:srfi_2d13_2escm",(void*)f_5035}, {"f_5032:srfi_2d13_2escm",(void*)f_5032}, {"f_4504:srfi_2d13_2escm",(void*)f_4504}, {"f_4501:srfi_2d13_2escm",(void*)f_4501}, {"f_5044:srfi_2d13_2escm",(void*)f_5044}, {"f_4551:srfi_2d13_2escm",(void*)f_4551}, {"f_4527:srfi_2d13_2escm",(void*)f_4527}, {"f_6947:srfi_2d13_2escm",(void*)f_6947}, {"f_3336:srfi_2d13_2escm",(void*)f_3336}, {"f_5005:srfi_2d13_2escm",(void*)f_5005}, {"f_6001:srfi_2d13_2escm",(void*)f_6001}, {"f_4987:srfi_2d13_2escm",(void*)f_4987}, {"f_4510:srfi_2d13_2escm",(void*)f_4510}, {"f_6934:srfi_2d13_2escm",(void*)f_6934}, {"f_3360:srfi_2d13_2escm",(void*)f_3360}, {"f_4381:srfi_2d13_2escm",(void*)f_4381}, {"f_4999:srfi_2d13_2escm",(void*)f_4999}, {"f_4993:srfi_2d13_2escm",(void*)f_4993}, {"f_4399:srfi_2d13_2escm",(void*)f_4399}, {"f_7106:srfi_2d13_2escm",(void*)f_7106}, {"f_6010:srfi_2d13_2escm",(void*)f_6010}, {"f_7116:srfi_2d13_2escm",(void*)f_7116}, {"f_6028:srfi_2d13_2escm",(void*)f_6028}, {"f_2784:srfi_2d13_2escm",(void*)f_2784}, {"f_3327:srfi_2d13_2escm",(void*)f_3327}, {"f_6019:srfi_2d13_2escm",(void*)f_6019}, {"f_6013:srfi_2d13_2escm",(void*)f_6013}, {"f_6016:srfi_2d13_2escm",(void*)f_6016}, {"f_4874:srfi_2d13_2escm",(void*)f_4874}, {"f_5050:srfi_2d13_2escm",(void*)f_5050}, {"f_2790:srfi_2d13_2escm",(void*)f_2790}, {"f_5056:srfi_2d13_2escm",(void*)f_5056}, {"f_2494:srfi_2d13_2escm",(void*)f_2494}, {"f_2796:srfi_2d13_2escm",(void*)f_2796}, {"f_6922:srfi_2d13_2escm",(void*)f_6922}, {"f_3311:srfi_2d13_2escm",(void*)f_3311}, {"f_3317:srfi_2d13_2escm",(void*)f_3317}, {"f_6049:srfi_2d13_2escm",(void*)f_6049}, {"f_6043:srfi_2d13_2escm",(void*)f_6043}, {"f_4846:srfi_2d13_2escm",(void*)f_4846}, {"f_4840:srfi_2d13_2escm",(void*)f_4840}, {"f_5062:srfi_2d13_2escm",(void*)f_5062}, {"f_6916:srfi_2d13_2escm",(void*)f_6916}, {"f_6910:srfi_2d13_2escm",(void*)f_6910}, {"f_3342:srfi_2d13_2escm",(void*)f_3342}, {"f_3348:srfi_2d13_2escm",(void*)f_3348}, {"f_6036:srfi_2d13_2escm",(void*)f_6036}, {"f_4852:srfi_2d13_2escm",(void*)f_4852}, {"f_5075:srfi_2d13_2escm",(void*)f_5075}, {"f_4858:srfi_2d13_2escm",(void*)f_4858}, {"f_5068:srfi_2d13_2escm",(void*)f_5068}, {"f_6069:srfi_2d13_2escm",(void*)f_6069}, {"f_5083:srfi_2d13_2escm",(void*)f_5083}, {"f_5086:srfi_2d13_2escm",(void*)f_5086}, {"f_3792:srfi_2d13_2escm",(void*)f_3792}, {"f_5011:srfi_2d13_2escm",(void*)f_5011}, {"f_5089:srfi_2d13_2escm",(void*)f_5089}, {"f_6960:srfi_2d13_2escm",(void*)f_6960}, {"f_6966:srfi_2d13_2escm",(void*)f_6966}, {"f_3788:srfi_2d13_2escm",(void*)f_3788}, {"f_6088:srfi_2d13_2escm",(void*)f_6088}, {"f_4804:srfi_2d13_2escm",(void*)f_4804}, {"f_5026:srfi_2d13_2escm",(void*)f_5026}, {"f_6021:srfi_2d13_2escm",(void*)f_6021}, {"f_5018:srfi_2d13_2escm",(void*)f_5018}, {"f_7180:srfi_2d13_2escm",(void*)f_7180}, {"f_3305:srfi_2d13_2escm",(void*)f_3305}, {"f_6075:srfi_2d13_2escm",(void*)f_6075}, {"f_4811:srfi_2d13_2escm",(void*)f_4811}, {"f_4819:srfi_2d13_2escm",(void*)f_4819}, {"f_6091:srfi_2d13_2escm",(void*)f_6091}, {"f_6904:srfi_2d13_2escm",(void*)f_6904}, {"f_4864:srfi_2d13_2escm",(void*)f_4864}, {"f_7545:srfi_2d13_2escm",(void*)f_7545}, {"f_6063:srfi_2d13_2escm",(void*)f_6063}, {"f_7550:srfi_2d13_2escm",(void*)f_7550}, {"f_3490:srfi_2d13_2escm",(void*)f_3490}, {"f_7484:srfi_2d13_2escm",(void*)f_7484}, {"f_5682:srfi_2d13_2escm",(void*)f_5682}, {"f_4822:srfi_2d13_2escm",(void*)f_4822}, {"f_4828:srfi_2d13_2escm",(void*)f_4828}, {"f_7167:srfi_2d13_2escm",(void*)f_7167}, {"f_7496:srfi_2d13_2escm",(void*)f_7496}, {"f_5694:srfi_2d13_2escm",(void*)f_5694}, {"f_7490:srfi_2d13_2escm",(void*)f_7490}, {"f_3478:srfi_2d13_2escm",(void*)f_3478}, {"f_7173:srfi_2d13_2escm",(void*)f_7173}, {"f_3472:srfi_2d13_2escm",(void*)f_3472}, {"f_2823:srfi_2d13_2escm",(void*)f_2823}, {"f_2835:srfi_2d13_2escm",(void*)f_2835}, {"f_2829:srfi_2d13_2escm",(void*)f_2829}, {"f_2841:srfi_2d13_2escm",(void*)f_2841}, {"f_5413:srfi_2d13_2escm",(void*)f_5413}, {"f_5655:srfi_2d13_2escm",(void*)f_5655}, {"f_5407:srfi_2d13_2escm",(void*)f_5407}, {"f_2855:srfi_2d13_2escm",(void*)f_2855}, {"f_5876:srfi_2d13_2escm",(void*)f_5876}, {"f_5662:srfi_2d13_2escm",(void*)f_5662}, {"f_5419:srfi_2d13_2escm",(void*)f_5419}, {"f_2865:srfi_2d13_2escm",(void*)f_2865}, {"f_5431:srfi_2d13_2escm",(void*)f_5431}, {"f_5425:srfi_2d13_2escm",(void*)f_5425}, {"f_2871:srfi_2d13_2escm",(void*)f_2871}, {"f_5893:srfi_2d13_2escm",(void*)f_5893}, {"f_5437:srfi_2d13_2escm",(void*)f_5437}, {"f_8243:srfi_2d13_2escm",(void*)f_8243}, {"f_2877:srfi_2d13_2escm",(void*)f_2877}, {"f_4694:srfi_2d13_2escm",(void*)f_4694}, {"f_2887:srfi_2d13_2escm",(void*)f_2887}, {"f_8305:srfi_2d13_2escm",(void*)f_8305}, {"f_8212:srfi_2d13_2escm",(void*)f_8212}, {"f_4675:srfi_2d13_2escm",(void*)f_4675}, {"f_5401:srfi_2d13_2escm",(void*)f_5401}, {"f_8283:srfi_2d13_2escm",(void*)f_8283}, {"f_8285:srfi_2d13_2escm",(void*)f_8285}, {"f_4687:srfi_2d13_2escm",(void*)f_4687}, {"f_4681:srfi_2d13_2escm",(void*)f_4681}, {"f_6564:srfi_2d13_2escm",(void*)f_6564}, {"f_7674:srfi_2d13_2escm",(void*)f_7674}, {"f_6552:srfi_2d13_2escm",(void*)f_6552}, {"f_6558:srfi_2d13_2escm",(void*)f_6558}, {"f_5223:srfi_2d13_2escm",(void*)f_5223}, {"f_5221:srfi_2d13_2escm",(void*)f_5221}, {"f_8340:srfi_2d13_2escm",(void*)f_8340}, {"f_6580:srfi_2d13_2escm",(void*)f_6580}, {"f_8325:srfi_2d13_2escm",(void*)f_8325}, {"f_2817:srfi_2d13_2escm",(void*)f_2817}, {"f_2660:srfi_2d13_2escm",(void*)f_2660}, {"f_8381:srfi_2d13_2escm",(void*)f_8381}, {"f_4586:srfi_2d13_2escm",(void*)f_4586}, {"f_8299:srfi_2d13_2escm",(void*)f_8299}, {"f_5209:srfi_2d13_2escm",(void*)f_5209}, {"f_2631:srfi_2d13_2escm",(void*)f_2631}, {"f_4030:srfi_2d13_2escm",(void*)f_4030}, {"f_4036:srfi_2d13_2escm",(void*)f_4036}, {"f_5200:srfi_2d13_2escm",(void*)f_5200}, {"f_5203:srfi_2d13_2escm",(void*)f_5203}, {"f_4084:srfi_2d13_2escm",(void*)f_4084}, {"f_4090:srfi_2d13_2escm",(void*)f_4090}, {"f_4096:srfi_2d13_2escm",(void*)f_4096}, {"f_8355:srfi_2d13_2escm",(void*)f_8355}, {"f_4575:srfi_2d13_2escm",(void*)f_4575}, {"f_4578:srfi_2d13_2escm",(void*)f_4578}, {"f_4060:srfi_2d13_2escm",(void*)f_4060}, {"f_4066:srfi_2d13_2escm",(void*)f_4066}, {"f_3585:srfi_2d13_2escm",(void*)f_3585}, {"f_5272:srfi_2d13_2escm",(void*)f_5272}, {"f_5274:srfi_2d13_2escm",(void*)f_5274}, {"f_5192:srfi_2d13_2escm",(void*)f_5192}, {"f_4042:srfi_2d13_2escm",(void*)f_4042}, {"f_2647:srfi_2d13_2escm",(void*)f_2647}, {"f_2645:srfi_2d13_2escm",(void*)f_2645}, {"f_4048:srfi_2d13_2escm",(void*)f_4048}, {"f_4054:srfi_2d13_2escm",(void*)f_4054}, {"f_6750:srfi_2d13_2escm",(void*)f_6750}, {"f_3596:srfi_2d13_2escm",(void*)f_3596}, {"f_5967:srfi_2d13_2escm",(void*)f_5967}, {"f_5961:srfi_2d13_2escm",(void*)f_5961}, {"f_5239:srfi_2d13_2escm",(void*)f_5239}, {"f_4024:srfi_2d13_2escm",(void*)f_4024}, {"f_6745:srfi_2d13_2escm",(void*)f_6745}, {"f_5934:srfi_2d13_2escm",(void*)f_5934}, {"f_7396:srfi_2d13_2escm",(void*)f_7396}, {"f_7390:srfi_2d13_2escm",(void*)f_7390}, {"f_6771:srfi_2d13_2escm",(void*)f_6771}, {"f_5908:srfi_2d13_2escm",(void*)f_5908}, {"f_4006:srfi_2d13_2escm",(void*)f_4006}, {"f_4000:srfi_2d13_2escm",(void*)f_4000}, {"f_5585:srfi_2d13_2escm",(void*)f_5585}, {"f_5955:srfi_2d13_2escm",(void*)f_5955}, {"f_3395:srfi_2d13_2escm",(void*)f_3395}, {"f_3390:srfi_2d13_2escm",(void*)f_3390}, {"f_4018:srfi_2d13_2escm",(void*)f_4018}, {"f_4012:srfi_2d13_2escm",(void*)f_4012}, {"f_6711:srfi_2d13_2escm",(void*)f_6711}, {"f_5592:srfi_2d13_2escm",(void*)f_5592}, {"f_6996:srfi_2d13_2escm",(void*)f_6996}, {"f_4072:srfi_2d13_2escm",(void*)f_4072}, {"f_4078:srfi_2d13_2escm",(void*)f_4078}, {"f_2974:srfi_2d13_2escm",(void*)f_2974}, {"f_2977:srfi_2d13_2escm",(void*)f_2977}, {"f_5548:srfi_2d13_2escm",(void*)f_5548}, {"f_5914:srfi_2d13_2escm",(void*)f_5914}, {"f_5542:srfi_2d13_2escm",(void*)f_5542}, {"f_2949:srfi_2d13_2escm",(void*)f_2949}, {"f_5554:srfi_2d13_2escm",(void*)f_5554}, {"f_2952:srfi_2d13_2escm",(void*)f_2952}, {"f_5566:srfi_2d13_2escm",(void*)f_5566}, {"f_6984:srfi_2d13_2escm",(void*)f_6984}, {"f_5560:srfi_2d13_2escm",(void*)f_5560}, {"f_5579:srfi_2d13_2escm",(void*)f_5579}, {"f_5576:srfi_2d13_2escm",(void*)f_5576}, {"f_6972:srfi_2d13_2escm",(void*)f_6972}, {"f_5572:srfi_2d13_2escm",(void*)f_5572}, {"toplevel:srfi_2d13_2escm",(void*)C_srfi_2d13_toplevel}, {"f_2931:srfi_2d13_2escm",(void*)f_2931}, {"f_2933:srfi_2d13_2escm",(void*)f_2933}, {"f_2939:srfi_2d13_2escm",(void*)f_2939}, {"f_6978:srfi_2d13_2escm",(void*)f_6978}, {"f_3922:srfi_2d13_2escm",(void*)f_3922}, {"f_2901:srfi_2d13_2escm",(void*)f_2901}, {"f_2911:srfi_2d13_2escm",(void*)f_2911}, {"f_3946:srfi_2d13_2escm",(void*)f_3946}, {"f_5605:srfi_2d13_2escm",(void*)f_5605}, {"f_4453:srfi_2d13_2escm",(void*)f_4453}, {"f_4459:srfi_2d13_2escm",(void*)f_4459}, {"f_4465:srfi_2d13_2escm",(void*)f_4465}, {"f_5612:srfi_2d13_2escm",(void*)f_5612}, {"f_3964:srfi_2d13_2escm",(void*)f_3964}, {"f_7583:srfi_2d13_2escm",(void*)f_7583}, {"f_4435:srfi_2d13_2escm",(void*)f_4435}, {"f_3952:srfi_2d13_2escm",(void*)f_3952}, {"f_3958:srfi_2d13_2escm",(void*)f_3958}, {"f_7595:srfi_2d13_2escm",(void*)f_7595}, {"f_7590:srfi_2d13_2escm",(void*)f_7590}, {"f_5639:srfi_2d13_2escm",(void*)f_5639}, {"f_4441:srfi_2d13_2escm",(void*)f_4441}, {"f_4447:srfi_2d13_2escm",(void*)f_4447}, {"f_3982:srfi_2d13_2escm",(void*)f_3982}, {"f_3988:srfi_2d13_2escm",(void*)f_3988}, {"f_5632:srfi_2d13_2escm",(void*)f_5632}, {"f_5146:srfi_2d13_2escm",(void*)f_5146}, {"f_5140:srfi_2d13_2escm",(void*)f_5140}, {"f_4411:srfi_2d13_2escm",(void*)f_4411}, {"f_4417:srfi_2d13_2escm",(void*)f_4417}, {"f_3970:srfi_2d13_2escm",(void*)f_3970}, {"f_3976:srfi_2d13_2escm",(void*)f_3976}, {"f_5113:srfi_2d13_2escm",(void*)f_5113}, {"f_5119:srfi_2d13_2escm",(void*)f_5119}, {"f_4423:srfi_2d13_2escm",(void*)f_4423}, {"f_4429:srfi_2d13_2escm",(void*)f_4429}, {"f_6844:srfi_2d13_2escm",(void*)f_6844}, {"f_5132:srfi_2d13_2escm",(void*)f_5132}, {"f_4405:srfi_2d13_2escm",(void*)f_4405}, {"f_5101:srfi_2d13_2escm",(void*)f_5101}, {"f_6834:srfi_2d13_2escm",(void*)f_6834}, {"f_5107:srfi_2d13_2escm",(void*)f_5107}, {"f_6863:srfi_2d13_2escm",(void*)f_6863}, {"f_6322:srfi_2d13_2escm",(void*)f_6322}, {"f_4885:srfi_2d13_2escm",(void*)f_4885}, {"f_4882:srfi_2d13_2escm",(void*)f_4882}, {"f_4891:srfi_2d13_2escm",(void*)f_4891}, {"f_7205:srfi_2d13_2escm",(void*)f_7205}, {"f_4744:srfi_2d13_2escm",(void*)f_4744}, {"f_6810:srfi_2d13_2escm",(void*)f_6810}, {"f_5161:srfi_2d13_2escm",(void*)f_5161}, {"f_5167:srfi_2d13_2escm",(void*)f_5167}, {"f_6828:srfi_2d13_2escm",(void*)f_6828}, {"f_4751:srfi_2d13_2escm",(void*)f_4751}, {"f_4759:srfi_2d13_2escm",(void*)f_4759}, {"f_6306:srfi_2d13_2escm",(void*)f_6306}, {"f_6300:srfi_2d13_2escm",(void*)f_6300}, {"f_7223:srfi_2d13_2escm",(void*)f_7223}, {"f_4765:srfi_2d13_2escm",(void*)f_4765}, {"f_7229:srfi_2d13_2escm",(void*)f_7229}, {"f_6374:srfi_2d13_2escm",(void*)f_6374}, {"f_6501:srfi_2d13_2escm",(void*)f_6501}, {"f_5185:srfi_2d13_2escm",(void*)f_5185}, {"f_4249:srfi_2d13_2escm",(void*)f_4249}, {"f_7238:srfi_2d13_2escm",(void*)f_7238}, {"f_4771:srfi_2d13_2escm",(void*)f_4771}, {"f_5152:srfi_2d13_2escm",(void*)f_5152}, {"f_4702:srfi_2d13_2escm",(void*)f_4702}, {"f_4705:srfi_2d13_2escm",(void*)f_4705}, {"f_4708:srfi_2d13_2escm",(void*)f_4708}, {"f_7620:srfi_2d13_2escm",(void*)f_7620}, {"f_6523:srfi_2d13_2escm",(void*)f_6523}, {"f_5125:srfi_2d13_2escm",(void*)f_5125}, {"f_6869:srfi_2d13_2escm",(void*)f_6869}, {"f_4226:srfi_2d13_2escm",(void*)f_4226}, {"f_4272:srfi_2d13_2escm",(void*)f_4272}, {"f_5173:srfi_2d13_2escm",(void*)f_5173}, {"f_4278:srfi_2d13_2escm",(void*)f_4278}, {"f_5179:srfi_2d13_2escm",(void*)f_5179}, {"f_7268:srfi_2d13_2escm",(void*)f_7268}, {"f_4720:srfi_2d13_2escm",(void*)f_4720}, {"f_4726:srfi_2d13_2escm",(void*)f_4726}, {"f_4288:srfi_2d13_2escm",(void*)f_4288}, {"f_7270:srfi_2d13_2escm",(void*)f_7270}, {"f_7277:srfi_2d13_2escm",(void*)f_7277}, {"f_4732:srfi_2d13_2escm",(void*)f_4732}, {"f_4738:srfi_2d13_2escm",(void*)f_4738}, {"f_7650:srfi_2d13_2escm",(void*)f_7650}, {"f_6822:srfi_2d13_2escm",(void*)f_6822}, {"f_6536:srfi_2d13_2escm",(void*)f_6536}, {"f_6361:srfi_2d13_2escm",(void*)f_6361}, {"f_6352:srfi_2d13_2escm",(void*)f_6352}, {"f_7022:srfi_2d13_2escm",(void*)f_7022}, {"f_2678:srfi_2d13_2escm",(void*)f_2678}, {"f_5395:srfi_2d13_2escm",(void*)f_5395}, {"f_2671:srfi_2d13_2escm",(void*)f_2671}, {"f_5780:srfi_2d13_2escm",(void*)f_5780}, {"f_7040:srfi_2d13_2escm",(void*)f_7040}, {"f_7047:srfi_2d13_2escm",(void*)f_7047}, {"f_5792:srfi_2d13_2escm",(void*)f_5792}, {"f_5798:srfi_2d13_2escm",(void*)f_5798}, {"f_2699:srfi_2d13_2escm",(void*)f_2699}, {"f_2693:srfi_2d13_2escm",(void*)f_2693}, {"f_3861:srfi_2d13_2escm",(void*)f_3861}, {"f_3865:srfi_2d13_2escm",(void*)f_3865}, {"f_4203:srfi_2d13_2escm",(void*)f_4203}, {"f_5747:srfi_2d13_2escm",(void*)f_5747}, {"f_5741:srfi_2d13_2escm",(void*)f_5741}, {"f_7009:srfi_2d13_2escm",(void*)f_7009}, {"f_5983:srfi_2d13_2escm",(void*)f_5983}, {"f_5980:srfi_2d13_2escm",(void*)f_5980}, {"f_5755:srfi_2d13_2escm",(void*)f_5755}, {"f_5751:srfi_2d13_2escm",(void*)f_5751}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|eliminated procedure checks: 300 o|specializations: o| 4 (eqv? * (not float)) o| 4 (zero? number) o| 2 (zero? fixnum) o| 2 (string-set! string fixnum char) o| 1 (> fixnum fixnum) o| 1 (char<? char char) o| 2 (char=? char char) o| 3 (make-string fixnum) o| 4 (<= fixnum fixnum) o| 1 (>= fixnum fixnum) o| 13 (cdr pair) o| 15 (car pair) o| 2 (string-length string) (o e)|safe calls: 995 (o e)|assignments to immediate values: 2 o|Removed `not' forms: 7 o|inlining procedure: k2476 o|inlining procedure: k2496 o|inlining procedure: k2496 o|inlining procedure: k2530 o|inlining procedure: k2530 o|substituted constant variable: a2552 o|inlining procedure: k2476 o|inlining procedure: k2572 o|inlining procedure: k2572 o|inlining procedure: k2587 o|inlining procedure: k2599 o|inlining procedure: k2611 o|inlining procedure: k2611 o|substituted constant variable: a2628 o|inlining procedure: k2599 o|inlining procedure: k2587 o|contracted procedure: k2636 o|inlining procedure: k2633 o|inlining procedure: k2633 o|inlining procedure: k2673 o|inlining procedure: k2673 o|inlining procedure: k2743 o|inlining procedure: k2743 o|inlining procedure: k2798 o|inlining procedure: k2798 o|inlining procedure: k2843 o|inlining procedure: k2843 o|inlining procedure: k2889 o|inlining procedure: k2889 o|contracted procedure: k2944 o|inlining procedure: k2941 o|inlining procedure: "(srfi-13.scm:447) %string-copy!" o|inlining procedure: k3025 o|inlining procedure: "(srfi-13.scm:445) %string-copy!" o|inlining procedure: k3025 o|inlining procedure: "(srfi-13.scm:438) %string-copy!" o|inlining procedure: "(srfi-13.scm:436) %string-copy!" o|inlining procedure: k2941 o|substituted constant variable: a3053 o|contracted procedure: k3114 o|inlining procedure: k3111 o|inlining procedure: k3198 o|inlining procedure: "(srfi-13.scm:492) %string-copy!" o|inlining procedure: k3198 o|inlining procedure: "(srfi-13.scm:494) %string-copy!" o|inlining procedure: "(srfi-13.scm:485) %string-copy!" o|inlining procedure: "(srfi-13.scm:484) %string-copy!" o|inlining procedure: k3111 o|substituted constant variable: a3230 o|inlining procedure: k3278 o|inlining procedure: k3278 o|inlining procedure: k3319 o|inlining procedure: k3319 o|inlining procedure: k3350 o|inlining procedure: k3365 o|inlining procedure: k3365 o|inlining procedure: k3350 o|inlining procedure: k3400 o|inlining procedure: k3400 o|inlining procedure: k3420 o|inlining procedure: k3444 o|inlining procedure: k3444 o|inlining procedure: k3420 o|inlining procedure: k3480 o|inlining procedure: k3492 o|inlining procedure: k3492 o|inlining procedure: k3480 o|inlining procedure: k3527 o|inlining procedure: k3527 o|inlining procedure: k3550 o|inlining procedure: k3574 o|inlining procedure: k3574 o|inlining procedure: k3550 o|inlining procedure: k3614 o|inlining procedure: k3614 o|inlining procedure: k3644 o|inlining procedure: k3644 o|inlining procedure: k3656 o|inlining procedure: k3656 o|inlining procedure: k3714 o|inlining procedure: k3714 o|inlining procedure: k3734 o|inlining procedure: k3734 o|inlining procedure: k3796 o|inlining procedure: k3796 o|inlining procedure: k3808 o|inlining procedure: k3808 o|inlining procedure: k3869 o|inlining procedure: k3869 o|inlining procedure: k3889 o|inlining procedure: k3889 o|contracted procedure: "(srfi-13.scm:674) %string-prefix?" o|inlining procedure: k4191 o|inlining procedure: k4191 o|contracted procedure: "(srfi-13.scm:679) %string-suffix?" o|inlining procedure: k4214 o|inlining procedure: k4214 o|contracted procedure: "(srfi-13.scm:684) %string-prefix-ci?" o|inlining procedure: k4237 o|inlining procedure: k4237 o|contracted procedure: "(srfi-13.scm:689) %string-suffix-ci?" o|inlining procedure: k4260 o|inlining procedure: k4260 o|inlining procedure: k4289 o|inlining procedure: k4289 o|inlining procedure: k4317 o|inlining procedure: k4317 o|inlining procedure: k4348 o|inlining procedure: k4348 o|inlining procedure: k4376 o|inlining procedure: k4376 o|inlining procedure: k4485 o|inlining procedure: k4506 o|inlining procedure: k4506 o|inlining procedure: k4485 o|inlining procedure: k4556 o|inlining procedure: k4556 o|contracted procedure: k4562 o|inlining procedure: k4571 o|inlining procedure: k4571 o|inlining procedure: k4580 o|inlining procedure: k4580 o|inlining procedure: k4632 o|inlining procedure: k4632 o|inlining procedure: k4647 o|inlining procedure: k4647 o|inlining procedure: k4689 o|inlining procedure: k4689 o|inlining procedure: k4710 o|inlining procedure: k4710 o|inlining procedure: k4746 o|inlining procedure: k4746 o|inlining procedure: k4761 o|inlining procedure: k4761 o|inlining procedure: k4767 o|inlining procedure: k4767 o|inlining procedure: k4806 o|inlining procedure: k4806 o|inlining procedure: k4824 o|inlining procedure: k4824 o|inlining procedure: k4830 o|inlining procedure: k4830 o|inlining procedure: k4866 o|inlining procedure: k4887 o|inlining procedure: k4887 o|inlining procedure: k4866 o|inlining procedure: k4937 o|inlining procedure: k4937 o|contracted procedure: k4943 o|inlining procedure: k4952 o|inlining procedure: k4952 o|inlining procedure: k4961 o|inlining procedure: k4961 o|inlining procedure: k5013 o|inlining procedure: k5013 o|inlining procedure: k5028 o|inlining procedure: k5028 o|inlining procedure: k5070 o|inlining procedure: k5070 o|inlining procedure: k5091 o|inlining procedure: k5091 o|inlining procedure: k5127 o|inlining procedure: k5127 o|inlining procedure: k5142 o|inlining procedure: k5142 o|inlining procedure: k5148 o|inlining procedure: k5148 o|inlining procedure: k5187 o|inlining procedure: k5187 o|inlining procedure: k5205 o|inlining procedure: k5205 o|inlining procedure: k5211 o|inlining procedure: k5211 o|inlining procedure: k5241 o|inlining procedure: k5241 o|inlining procedure: k5276 o|inlining procedure: k5276 o|inlining procedure: k5492 o|inlining procedure: k5492 o|contracted procedure: "(srfi-13.scm:984) g12351236" o|inlining procedure: k5478 o|inlining procedure: k5478 o|inlining procedure: k5705 o|inlining procedure: k5705 o|inlining procedure: k5752 o|inlining procedure: k5752 o|inlining procedure: k5803 o|inlining procedure: k5803 o|inlining procedure: k5861 o|inlining procedure: k5861 o|inlining procedure: "(srfi-13.scm:1089) %string-copy!" o|inlining procedure: k5919 o|inlining procedure: k5919 o|inlining procedure: "(srfi-13.scm:1100) %string-copy!" o|inlining procedure: k5969 o|inlining procedure: k5996 o|inlining procedure: k5996 o|inlining procedure: k5969 o|inlining procedure: k6023 o|inlining procedure: k6023 o|inlining procedure: k6038 o|inlining procedure: k6038 o|inlining procedure: k6050 o|inlining procedure: k6050 o|inlining procedure: k6077 o|inlining procedure: k6104 o|inlining procedure: k6104 o|inlining procedure: k6077 o|inlining procedure: k6131 o|inlining procedure: k6131 o|inlining procedure: k6146 o|inlining procedure: k6146 o|inlining procedure: k6158 o|inlining procedure: k6158 o|inlining procedure: k6185 o|inlining procedure: k6197 o|inlining procedure: k6197 o|inlining procedure: k6185 o|inlining procedure: k6232 o|inlining procedure: k6232 o|inlining procedure: k6255 o|inlining procedure: k6267 o|inlining procedure: k6267 o|inlining procedure: k6255 o|inlining procedure: k6308 o|inlining procedure: k6324 o|inlining procedure: k6324 o|inlining procedure: k6308 o|inlining procedure: k6363 o|inlining procedure: k6363 o|inlining procedure: k6386 o|inlining procedure: k6402 o|inlining procedure: k6402 o|inlining procedure: k6386 o|inlining procedure: k6443 o|inlining procedure: k6455 o|inlining procedure: k6455 o|inlining procedure: k6443 o|inlining procedure: k6490 o|inlining procedure: k6490 o|inlining procedure: k6513 o|inlining procedure: k6525 o|inlining procedure: k6525 o|inlining procedure: k6513 o|inlining procedure: k6566 o|inlining procedure: k6582 o|inlining procedure: k6582 o|inlining procedure: k6566 o|inlining procedure: k6621 o|inlining procedure: k6621 o|inlining procedure: k6644 o|inlining procedure: k6660 o|inlining procedure: k6660 o|inlining procedure: k6644 o|inlining procedure: k6701 o|inlining procedure: k6713 o|inlining procedure: k6713 o|inlining procedure: k6727 o|inlining procedure: k6727 o|inlining procedure: k6701 o|inlining procedure: k6752 o|inlining procedure: k6752 o|inlining procedure: k6766 o|inlining procedure: k6766 o|inlining procedure: k6779 o|inlining procedure: k6791 o|inlining procedure: k6791 o|inlining procedure: k6805 o|inlining procedure: k6805 o|inlining procedure: k6779 o|inlining procedure: k6846 o|inlining procedure: k6846 o|inlining procedure: "(srfi-13.scm:1318) %string-copy!" o|inlining procedure: k6936 o|inlining procedure: k6936 o|inlining procedure: k6998 o|inlining procedure: k6998 o|inlining procedure: k7048 o|inlining procedure: k7066 o|inlining procedure: k7078 o|inlining procedure: k7101 o|inlining procedure: k7101 o|inlining procedure: k7078 o|inlining procedure: k7066 o|inlining procedure: k7048 o|substituted constant variable: a7153 o|inlining procedure: k7175 o|inlining procedure: k7175 o|inlining procedure: k7240 o|inlining procedure: k7240 o|inlining procedure: k7272 o|inlining procedure: k7272 o|inlining procedure: k7359 o|inlining procedure: k7359 o|inlining procedure: k7408 o|inlining procedure: k7408 o|inlining procedure: k7462 o|inlining procedure: k7462 o|inlining procedure: k7498 o|inlining procedure: k7526 o|inlining procedure: k7526 o|inlining procedure: k7498 o|inlining procedure: k7536 o|inlining procedure: k7536 o|inlining procedure: k7552 o|inlining procedure: "(srfi-13.scm:1587) %string-copy!" o|inlining procedure: k7552 o|inlining procedure: k7597 o|inlining procedure: "(srfi-13.scm:1606) %string-copy!" o|inlining procedure: k7597 o|contracted procedure: k7625 o|inlining procedure: k7622 o|inlining procedure: k7622 o|inlining procedure: k7676 o|inlining procedure: k7676 o|inlining procedure: k7748 o|inlining procedure: k7765 o|inlining procedure: k7765 o|inlining procedure: k7748 o|inlining procedure: k7788 o|inlining procedure: k7788 o|inlining procedure: k7856 o|inlining procedure: "(srfi-13.scm:1671) %string-copy!" o|inlining procedure: k7856 o|inlining procedure: "(srfi-13.scm:1664) %string-copy!" o|inlining procedure: "(srfi-13.scm:1691) %string-copy!" o|inlining procedure: "(srfi-13.scm:1690) %string-copy!" o|inlining procedure: "(srfi-13.scm:1689) %string-copy!" o|inlining procedure: k7972 o|inlining procedure: k7972 o|inlining procedure: k7961 o|inlining procedure: k7961 o|inlining procedure: k8035 o|inlining procedure: k8035 o|inlining procedure: k8085 o|inlining procedure: k8085 o|inlining procedure: k8096 o|inlining procedure: k8096 o|inlining procedure: k8128 o|inlining procedure: k8128 o|inlining procedure: k8185 o|inlining procedure: k8185 o|inlining procedure: k8195 o|inlining procedure: k8195 o|inlining procedure: k8245 o|inlining procedure: "(srfi-13.scm:1858) %string-copy!" o|inlining procedure: k8245 o|inlining procedure: "(srfi-13.scm:1860) %string-copy!" o|inlining procedure: "(srfi-13.scm:1847) %string-copy!" o|inlining procedure: k8307 o|inlining procedure: k8307 o|inlining procedure: k8328 o|inlining procedure: k8338 o|inlining procedure: k8338 o|inlining procedure: k8367 o|inlining procedure: k8367 o|substituted constant variable: a8392 o|substituted constant variable: a8394 o|substituted constant variable: a8399 o|substituted constant variable: a8401 o|inlining procedure: k8328 o|contracted procedure: k8405 o|inlining procedure: k8411 o|inlining procedure: k8411 o|replaced variables: 952 o|removed binding forms: 258 o|substituted constant variable: r26128459 o|substituted constant variable: r26008460 o|substituted constant variable: r25888461 o|substituted constant variable: fstart16298479 o|substituted constant variable: tstart16278477 o|substituted constant variable: fstart16298486 o|substituted constant variable: fstart16298493 o|substituted constant variable: fstart16298499 o|substituted constant variable: fstart16298508 o|substituted constant variable: fstart16298515 o|substituted constant variable: fstart16298527 o|substituted constant variable: tstart16278525 o|substituted constant variable: r34938546 o|substituted constant variable: r35288549 o|substituted constant variable: r41928573 o|substituted constant variable: r42158575 o|substituted constant variable: r42388577 o|substituted constant variable: r42618579 o|inlining procedure: k4295 o|inlining procedure: k4295 o|inlining procedure: k4354 o|inlining procedure: k4354 o|substituted constant variable: r45078589 o|substituted constant variable: r45078590 o|substituted constant variable: r44868591 o|substituted constant variable: r45728594 o|substituted constant variable: r45728595 o|substituted constant variable: r45818596 o|substituted constant variable: r45818597 o|substituted constant variable: r46488600 o|substituted constant variable: r46488601 o|substituted constant variable: r47118604 o|substituted constant variable: r47118605 o|substituted constant variable: r47628608 o|substituted constant variable: r47628609 o|substituted constant variable: r47688610 o|substituted constant variable: r47688611 o|substituted constant variable: r48258614 o|substituted constant variable: r48258615 o|substituted constant variable: r48318616 o|substituted constant variable: r48318617 o|substituted constant variable: r48888619 o|substituted constant variable: r48888620 o|substituted constant variable: r48678621 o|substituted constant variable: r49538624 o|substituted constant variable: r49538625 o|substituted constant variable: r49628626 o|substituted constant variable: r49628627 o|substituted constant variable: r50298630 o|substituted constant variable: r50298631 o|substituted constant variable: r50928634 o|substituted constant variable: r50928635 o|substituted constant variable: r51438638 o|substituted constant variable: r51438639 o|substituted constant variable: r51498640 o|substituted constant variable: r51498641 o|substituted constant variable: r52068644 o|substituted constant variable: r52068645 o|substituted constant variable: r52128646 o|substituted constant variable: r52128647 o|substituted constant variable: r57068657 o|substituted constant variable: r57538659 o|substituted constant variable: r58048661 o|substituted constant variable: tstart16278666 o|substituted constant variable: r61988700 o|substituted constant variable: r62338703 o|substituted constant variable: r62688706 o|substituted constant variable: r63258710 o|substituted constant variable: r63648713 o|substituted constant variable: r64038716 o|substituted constant variable: r64568720 o|substituted constant variable: r64918723 o|substituted constant variable: r65268726 o|substituted constant variable: r65838730 o|substituted constant variable: r66228733 o|substituted constant variable: r66618736 o|removed side-effect free assignment to unused variable: %string-copy! o|substituted constant variable: r69378769 o|substituted constant variable: r69998771 o|substituted constant variable: r71028776 o|substituted constant variable: r71028776 o|substituted constant variable: r71028778 o|substituted constant variable: r71028778 o|substituted constant variable: fstart16298809 o|substituted constant variable: fstart16298817 o|substituted constant variable: fstart16298841 o|substituted constant variable: fstart16298848 o|substituted constant variable: fstart16298866 o|substituted constant variable: tstart16278864 o|substituted constant variable: r80868874 o|removed side-effect free assignment to unused variable: ##srfi13#string-fill! o|substituted constant variable: r84128915 o|replaced variables: 81 o|removed binding forms: 1003 o|inlining procedure: k3019 o|inlining procedure: k3039 o|inlining procedure: k5877 o|inlining procedure: k5935 o|inlining procedure: k7870 o|inlining procedure: k7916 o|replaced variables: 14 o|removed binding forms: 180 o|contracted procedure: k3007 o|contracted procedure: k3013 o|contracted procedure: k3182 o|contracted procedure: k3185 o|contracted procedure: k3209 o|contracted procedure: k7562 o|contracted procedure: k7607 o|contracted procedure: k7847 o|contracted procedure: k7910 o|contracted procedure: k7913 o|contracted procedure: k8223 o|contracted procedure: k8266 o|removed binding forms: 34 o|replaced variables: 14 o|removed binding forms: 7 o|simplifications: ((if . 66) (##core#call . 738)) o| call simplifications: o| list o| quotient o| vector-length o| fx> o| vector-ref 3 o| add1 o| vector-set! 3 o| fx- 4 o| fx+ 8 o| char-upcase o| char-alphabetic? 2 o| char-downcase o| char->integer o| * o| fxand o| eq? 23 o| not 6 o| char? 9 o| procedure? 9 o| char=? 7 o| > 3 o| cdr 24 o| cons 9 o| < 23 o| - 104 o| >= 20 o| string-ref 53 o| string-set! 14 o| + 93 o| zero? 7 o| = 45 o| string-length 22 o| null? 44 o| car 27 o| ##sys#check-exact 13 o| string? o| ##sys#check-string 5 o| ##sys#size 9 o| fx>= o| ##sys#call-with-values 92 o| <= 10 o| pair? 16 o| fixnum? 4 o| fx<= 6 o| values 9 o|contracted procedure: k2470 o|contracted procedure: k2473 o|contracted procedure: k2479 o|contracted procedure: k2545 o|contracted procedure: k2487 o|contracted procedure: k2499 o|contracted procedure: k2516 o|contracted procedure: k2507 o|contracted procedure: k2533 o|contracted procedure: k2575 o|contracted procedure: k2590 o|contracted procedure: k2596 o|contracted procedure: k2602 o|contracted procedure: k2608 o|contracted procedure: k2614 o|contracted procedure: k2622 o|contracted procedure: k2649 o|contracted procedure: k2664 o|contracted procedure: k2652 o|contracted procedure: k2655 o|contracted procedure: k2682 o|contracted procedure: k2689 o|contracted procedure: k2731 o|contracted procedure: k2746 o|contracted procedure: k2749 o|contracted procedure: k2756 o|contracted procedure: k2760 o|contracted procedure: k2768 o|contracted procedure: k2801 o|contracted procedure: k2804 o|contracted procedure: k2811 o|contracted procedure: k2819 o|contracted procedure: k2846 o|contracted procedure: k2857 o|contracted procedure: k2861 o|contracted procedure: k2883 o|contracted procedure: k2892 o|contracted procedure: k2903 o|contracted procedure: k2907 o|contracted procedure: k3074 o|contracted procedure: k2913 o|contracted procedure: k3068 o|contracted procedure: k2916 o|contracted procedure: k3060 o|contracted procedure: k2919 o|contracted procedure: k3054 o|contracted procedure: k2922 o|contracted procedure: k2995 o|contracted procedure: k2998 o|contracted procedure: k3001 o|contracted procedure: k3010 o|contracted procedure: k3028 o|contracted procedure: k3033 o|contracted procedure: k3036 o|contracted procedure: k3046 o|contracted procedure: k2956 o|contracted procedure: k2959 o|contracted procedure: k2966 o|contracted procedure: k2969 o|contracted procedure: k2978 o|contracted procedure: k2985 o|contracted procedure: k2989 o|contracted procedure: k3251 o|contracted procedure: k3083 o|contracted procedure: k3245 o|contracted procedure: k3086 o|contracted procedure: k3237 o|contracted procedure: k3089 o|contracted procedure: k3231 o|contracted procedure: k3092 o|contracted procedure: k3167 o|contracted procedure: k3170 o|contracted procedure: k3173 o|contracted procedure: k3176 o|contracted procedure: k3192 o|contracted procedure: k3201 o|contracted procedure: k3206 o|contracted procedure: k3216 o|contracted procedure: k3223 o|contracted procedure: k3126 o|substituted constant variable: g9830 o|contracted procedure: k3129 o|contracted procedure: k3132 o|contracted procedure: k3138 o|contracted procedure: k3147 o|contracted procedure: k3150 o|contracted procedure: k3157 o|contracted procedure: k3161 o|contracted procedure: k3281 o|contracted procedure: k3291 o|contracted procedure: k3295 o|contracted procedure: k3322 o|contracted procedure: k3332 o|contracted procedure: k3353 o|contracted procedure: k3362 o|contracted procedure: k3382 o|contracted procedure: k3371 o|contracted procedure: k3378 o|contracted procedure: k3397 o|contracted procedure: k3413 o|contracted procedure: k3417 o|contracted procedure: k3423 o|contracted procedure: k3426 o|contracted procedure: k3438 o|contracted procedure: k3441 o|contracted procedure: k3447 o|contracted procedure: k3483 o|contracted procedure: k3495 o|contracted procedure: k3512 o|contracted procedure: k3498 o|contracted procedure: k3508 o|contracted procedure: k3530 o|contracted procedure: k3543 o|contracted procedure: k3547 o|contracted procedure: k3553 o|contracted procedure: k3559 o|contracted procedure: k3568 o|contracted procedure: k3571 o|contracted procedure: k3577 o|contracted procedure: k3598 o|contracted procedure: k3608 o|contracted procedure: k3617 o|substituted constant variable: g9872 o|contracted procedure: k3620 o|contracted procedure: k3627 o|contracted procedure: k3641 o|contracted procedure: k3659 o|contracted procedure: k3672 o|contracted procedure: k3676 o|contracted procedure: k3684 o|contracted procedure: k3688 o|contracted procedure: k3691 o|contracted procedure: k3698 o|contracted procedure: k3702 o|contracted procedure: k3711 o|contracted procedure: k3724 o|contracted procedure: k3728 o|contracted procedure: k3737 o|contracted procedure: k3747 o|contracted procedure: k3754 o|contracted procedure: k3758 o|contracted procedure: k3766 o|contracted procedure: k3770 o|contracted procedure: k3773 o|contracted procedure: k3780 o|contracted procedure: k3784 o|contracted procedure: k3793 o|contracted procedure: k3811 o|contracted procedure: k3824 o|contracted procedure: k3828 o|contracted procedure: k3839 o|contracted procedure: k3843 o|contracted procedure: k3846 o|contracted procedure: k3853 o|contracted procedure: k3857 o|contracted procedure: k3866 o|contracted procedure: k3879 o|contracted procedure: k3883 o|contracted procedure: k3892 o|contracted procedure: k3902 o|contracted procedure: k3909 o|contracted procedure: k3913 o|contracted procedure: k3924 o|contracted procedure: k3928 o|contracted procedure: k3931 o|contracted procedure: k3938 o|contracted procedure: k3942 o|contracted procedure: k4188 o|contracted procedure: k4205 o|contracted procedure: k4194 o|contracted procedure: k4211 o|contracted procedure: k4228 o|contracted procedure: k4217 o|contracted procedure: k4234 o|contracted procedure: k4251 o|contracted procedure: k4240 o|contracted procedure: k4257 o|contracted procedure: k4274 o|contracted procedure: k4263 o|contracted procedure: k4280 o|contracted procedure: k4283 o|contracted procedure: k4292 o|contracted procedure: k4301 o|contracted procedure: k4311 o|contracted procedure: k4314 o|contracted procedure: k4333 o|contracted procedure: k4321 o|contracted procedure: k4329 o|contracted procedure: k4325 o|contracted procedure: k4339 o|contracted procedure: k4342 o|contracted procedure: k4351 o|contracted procedure: k4360 o|contracted procedure: k4370 o|contracted procedure: k4373 o|contracted procedure: k4395 o|contracted procedure: k4383 o|contracted procedure: k4391 o|contracted procedure: k4387 o|contracted procedure: k4519 o|contracted procedure: k4523 o|contracted procedure: k4488 o|contracted procedure: k4512 o|contracted procedure: k4598 o|contracted procedure: k4602 o|contracted procedure: k4594 o|contracted procedure: k4553 o|contracted procedure: k4587 o|contracted procedure: k4656 o|contracted procedure: k4713 o|contracted procedure: k4773 o|contracted procedure: k4833 o|contracted procedure: k4900 o|contracted procedure: k4904 o|contracted procedure: k4869 o|contracted procedure: k4893 o|contracted procedure: k4979 o|contracted procedure: k4983 o|contracted procedure: k4975 o|contracted procedure: k4934 o|contracted procedure: k4968 o|contracted procedure: k5037 o|contracted procedure: k5094 o|contracted procedure: k5154 o|contracted procedure: k5214 o|contracted procedure: k5229 o|contracted procedure: k5244 o|contracted procedure: k5254 o|contracted procedure: k5266 o|contracted procedure: k5262 o|contracted procedure: k5258 o|contracted procedure: k5279 o|contracted procedure: k5289 o|contracted procedure: k5332 o|contracted procedure: k5295 o|contracted procedure: k5326 o|contracted procedure: k5298 o|contracted procedure: k5304 o|contracted procedure: k5322 o|contracted procedure: k5388 o|contracted procedure: k5341 o|contracted procedure: k5382 o|contracted procedure: k5344 o|contracted procedure: k5350 o|contracted procedure: k5375 o|contracted procedure: k5378 o|contracted procedure: k5529 o|contracted procedure: k5525 o|contracted procedure: k5483 o|contracted procedure: k5486 o|contracted procedure: k5504 o|contracted procedure: k5581 o|contracted procedure: k5587 o|contracted procedure: k5601 o|contracted procedure: k5597 o|contracted procedure: k5607 o|contracted procedure: k5613 o|contracted procedure: k5620 o|contracted procedure: k5628 o|contracted procedure: k5624 o|contracted procedure: k5634 o|contracted procedure: k5640 o|contracted procedure: k5651 o|contracted procedure: k5647 o|contracted procedure: k5657 o|contracted procedure: k5663 o|contracted procedure: k5670 o|contracted procedure: k5678 o|contracted procedure: k5674 o|contracted procedure: k5722 o|contracted procedure: k5684 o|contracted procedure: k5716 o|contracted procedure: k5687 o|contracted procedure: k5773 o|contracted procedure: k5731 o|contracted procedure: k5767 o|contracted procedure: k5734 o|contracted procedure: k5761 o|contracted procedure: k5828 o|contracted procedure: k5782 o|contracted procedure: k5822 o|contracted procedure: k5785 o|contracted procedure: k5812 o|contracted procedure: k5837 o|contracted procedure: k5886 o|contracted procedure: k5840 o|contracted procedure: k5880 o|contracted procedure: k5843 o|contracted procedure: k5858 o|contracted procedure: k5864 o|contracted procedure: k5871 o|contracted procedure: k5895 o|contracted procedure: k5948 o|contracted procedure: k5898 o|contracted procedure: k5942 o|contracted procedure: k5901 o|contracted procedure: k5916 o|contracted procedure: k5922 o|contracted procedure: k5929 o|contracted procedure: k5939 o|contracted procedure: k5972 o|contracted procedure: k5975 o|contracted procedure: k5987 o|contracted procedure: k6002 o|contracted procedure: k6029 o|contracted procedure: k6053 o|contracted procedure: k6080 o|contracted procedure: k6083 o|contracted procedure: k6095 o|contracted procedure: k6110 o|contracted procedure: k6137 o|contracted procedure: k6161 o|contracted procedure: k6188 o|contracted procedure: k6200 o|contracted procedure: k6217 o|contracted procedure: k6206 o|contracted procedure: k6213 o|contracted procedure: k6235 o|contracted procedure: k6248 o|contracted procedure: k6252 o|contracted procedure: k6258 o|contracted procedure: k6270 o|contracted procedure: k6283 o|contracted procedure: k6287 o|contracted procedure: k6311 o|contracted procedure: k6318 o|contracted procedure: k6327 o|contracted procedure: k6344 o|contracted procedure: k6333 o|contracted procedure: k6340 o|contracted procedure: k6357 o|contracted procedure: k6366 o|contracted procedure: k6379 o|contracted procedure: k6383 o|contracted procedure: k6389 o|contracted procedure: k6396 o|contracted procedure: k6405 o|contracted procedure: k6418 o|contracted procedure: k6422 o|contracted procedure: k6446 o|contracted procedure: k6458 o|contracted procedure: k6475 o|contracted procedure: k6464 o|contracted procedure: k6471 o|contracted procedure: k6493 o|contracted procedure: k6506 o|contracted procedure: k6510 o|contracted procedure: k6516 o|contracted procedure: k6528 o|contracted procedure: k6541 o|contracted procedure: k6545 o|contracted procedure: k6569 o|contracted procedure: k6576 o|contracted procedure: k6585 o|contracted procedure: k6602 o|contracted procedure: k6591 o|contracted procedure: k6598 o|contracted procedure: k6615 o|contracted procedure: k6624 o|contracted procedure: k6637 o|contracted procedure: k6641 o|contracted procedure: k6647 o|contracted procedure: k6654 o|contracted procedure: k6663 o|contracted procedure: k6676 o|contracted procedure: k6680 o|contracted procedure: k6704 o|contracted procedure: k6716 o|contracted procedure: k6723 o|contracted procedure: k6737 o|contracted procedure: k6730 o|contracted procedure: k6727 o|contracted procedure: k6755 o|contracted procedure: k6762 o|contracted procedure: k6766 o|contracted procedure: k6776 o|contracted procedure: k6782 o|contracted procedure: k6794 o|contracted procedure: k6801 o|contracted procedure: k6805 o|contracted procedure: k6815 o|contracted procedure: k6840 o|contracted procedure: k6849 o|contracted procedure: k6852 o|contracted procedure: k6859 o|contracted procedure: k6877 o|contracted procedure: k6891 o|contracted procedure: k6887 o|contracted procedure: k6924 o|contracted procedure: k6927 o|contracted procedure: k6939 o|contracted procedure: k6952 o|contracted procedure: k6956 o|contracted procedure: k6986 o|contracted procedure: k6989 o|contracted procedure: k7001 o|contracted procedure: k7014 o|contracted procedure: k7018 o|contracted procedure: k7160 o|contracted procedure: k7024 o|contracted procedure: k7154 o|contracted procedure: k7027 o|contracted procedure: k7042 o|contracted procedure: k7051 o|contracted procedure: k7054 o|contracted procedure: k7057 o|contracted procedure: k7069 o|contracted procedure: k7081 o|substituted constant variable: g10062 o|contracted procedure: k7084 o|contracted procedure: k7108 o|contracted procedure: k7087 o|contracted procedure: k7090 o|contracted procedure: k7097 o|contracted procedure: k7117 o|contracted procedure: k7120 o|contracted procedure: k7123 o|contracted procedure: k7130 o|contracted procedure: k7137 o|contracted procedure: k7141 o|contracted procedure: k7149 o|contracted procedure: k7145 o|contracted procedure: k7184 o|contracted procedure: k7190 o|substituted constant variable: g10070 o|contracted procedure: k7201 o|contracted procedure: k7197 o|contracted procedure: k7319 o|contracted procedure: k7207 o|contracted procedure: k7313 o|contracted procedure: k7210 o|contracted procedure: k7307 o|contracted procedure: k7213 o|contracted procedure: k7301 o|contracted procedure: k7216 o|contracted procedure: k7231 o|contracted procedure: k7243 o|contracted procedure: k7252 o|contracted procedure: k7255 o|contracted procedure: k7262 o|contracted procedure: k7281 o|contracted procedure: k7287 o|substituted constant variable: g10074 o|contracted procedure: k7298 o|contracted procedure: k7294 o|contracted procedure: k7343 o|contracted procedure: k7353 o|contracted procedure: k7362 o|substituted constant variable: g10084 o|contracted procedure: k7380 o|contracted procedure: k7365 o|contracted procedure: k7372 o|contracted procedure: k7376 o|contracted procedure: k7402 o|contracted procedure: k7411 o|contracted procedure: k7414 o|contracted procedure: k7420 o|contracted procedure: k7430 o|contracted procedure: k7434 o|contracted procedure: k7456 o|contracted procedure: k7465 o|contracted procedure: k7472 o|contracted procedure: k7480 o|contracted procedure: k7476 o|contracted procedure: k7501 o|contracted procedure: k7506 o|contracted procedure: k7512 o|contracted procedure: k7522 o|contracted procedure: k7533 o|contracted procedure: k7579 o|contracted procedure: k7575 o|contracted procedure: k7539 o|contracted procedure: k7555 o|contracted procedure: k7559 o|contracted procedure: k7571 o|contracted procedure: k7600 o|contracted procedure: k7604 o|contracted procedure: k7614 o|contracted procedure: k7646 o|contracted procedure: k7632 o|contracted procedure: k7640 o|contracted procedure: k7636 o|contracted procedure: k7718 o|contracted procedure: k7652 o|contracted procedure: k7712 o|contracted procedure: k7655 o|contracted procedure: k7703 o|contracted procedure: k7658 o|contracted procedure: k7697 o|contracted procedure: k7661 o|contracted procedure: k7664 o|contracted procedure: k7679 o|contracted procedure: k7692 o|contracted procedure: k7686 o|contracted procedure: k7835 o|contracted procedure: k7727 o|contracted procedure: k7829 o|contracted procedure: k7730 o|contracted procedure: k7820 o|contracted procedure: k7733 o|contracted procedure: k7814 o|contracted procedure: k7736 o|contracted procedure: k7739 o|contracted procedure: k7751 o|contracted procedure: k7754 o|contracted procedure: k7761 o|contracted procedure: k7770 o|contracted procedure: k7782 o|contracted procedure: k7800 o|contracted procedure: k7811 o|contracted procedure: k7807 o|contracted procedure: k7859 o|contracted procedure: k7864 o|contracted procedure: k7867 o|contracted procedure: k7877 o|contracted procedure: k7898 o|contracted procedure: k7901 o|contracted procedure: k7928 o|contracted procedure: k7924 o|contracted procedure: k7904 o|contracted procedure: k7920 o|contracted procedure: k8017 o|contracted procedure: k7934 o|contracted procedure: k8011 o|contracted procedure: k7937 o|contracted procedure: k7966 o|contracted procedure: k7981 o|contracted procedure: k7989 o|contracted procedure: k8005 o|contracted procedure: k8026 o|contracted procedure: k8038 o|contracted procedure: k8051 o|contracted procedure: k8057 o|contracted procedure: k8060 o|contracted procedure: k8066 o|contracted procedure: k8073 o|contracted procedure: k8079 o|contracted procedure: k8082 o|contracted procedure: k8099 o|substituted constant variable: g10117 o|contracted procedure: k8106 o|contracted procedure: k8119 o|contracted procedure: k8131 o|contracted procedure: k8144 o|contracted procedure: k8150 o|contracted procedure: k8153 o|contracted procedure: k8159 o|contracted procedure: k8166 o|contracted procedure: k8172 o|contracted procedure: k8175 o|contracted procedure: k8178 o|contracted procedure: k8198 o|substituted constant variable: g10119 o|contracted procedure: k8205 o|contracted procedure: k8214 o|contracted procedure: k8217 o|contracted procedure: k8220 o|contracted procedure: k8226 o|contracted procedure: k8229 o|contracted procedure: k8232 o|contracted procedure: k8239 o|contracted procedure: k8248 o|contracted procedure: k8263 o|contracted procedure: k8259 o|contracted procedure: k8255 o|contracted procedure: k8273 o|contracted procedure: k8277 o|contracted procedure: k8442 o|contracted procedure: k8287 o|contracted procedure: k8436 o|contracted procedure: k8290 o|contracted procedure: k8430 o|contracted procedure: k8293 o|contracted procedure: k8424 o|contracted procedure: k8296 o|contracted procedure: k8310 o|contracted procedure: k8317 o|contracted procedure: k8331 o|contracted procedure: k8341 o|contracted procedure: k8344 o|inlining procedure: k8338 o|contracted procedure: k8361 o|contracted procedure: k8370 o|inlining procedure: k8338 o|contracted procedure: k8385 o|contracted procedure: k8421 o|contracted procedure: k8414 o|simplifications: ((let . 91)) o|replaced variables: 59 o|removed binding forms: 577 o|inlining procedure: k4304 o|inlining procedure: k4304 o|inlining procedure: k4304 o|inlining procedure: k4363 o|inlining procedure: k4363 o|inlining procedure: k4363 o|replaced variables: 210 o|removed binding forms: 67 o|replaced variables: 10 o|removed binding forms: 101 o|replaced variables: 8 o|removed binding forms: 10 o|removed binding forms: 1 o|direct leaf routine/allocation: lp304 0 o|direct leaf routine/allocation: lp413 0 o|direct leaf routine/allocation: lp449 0 o|direct leaf routine/allocation: lp1141 0 o|direct leaf routine/allocation: lp1484 0 o|direct leaf routine/allocation: lp1509 0 o|direct leaf routine/allocation: lp1534 0 o|direct leaf routine/allocation: lp1559 0 o|direct leaf routine/allocation: doloop15841585 0 o|direct leaf routine/allocation: doloop16081609 0 o|direct leaf routine/allocation: doloop17781779 0 o|direct leaf routine/allocation: doloop17931794 0 o|direct leaf routine/allocation: lp1833 0 o|direct leaf routine/allocation: lp1851 0 o|direct leaf routine/allocation: doloop18451846 0 o|direct leaf routine/allocation: lp1873 0 o|direct leaf routine/allocation: lp1912 0 o|contracted procedure: k3016 o|converted assignments to bindings: (lp304) o|converted assignments to bindings: (lp413) o|converted assignments to bindings: (lp449) o|contracted procedure: k5232 o|converted assignments to bindings: (lp1141) o|converted assignments to bindings: (lp1484) o|converted assignments to bindings: (lp1509) o|converted assignments to bindings: (lp1534) o|converted assignments to bindings: (lp1559) o|converted assignments to bindings: (doloop15841585) o|converted assignments to bindings: (doloop16081609) o|contracted procedure: k7349 o|converted assignments to bindings: (doloop17781779) o|converted assignments to bindings: (doloop17931794) o|contracted procedure: k7546 o|converted assignments to bindings: (lp1833) o|contracted procedure: k7585 o|contracted procedure: k7591 o|converted assignments to bindings: (lp1851) o|converted assignments to bindings: (doloop18451846) o|contracted procedure: k7667 o|converted assignments to bindings: (lp1873) o|contracted procedure: k7850 o|converted assignments to bindings: (lp1912) o|simplifications: ((let . 17)) o|removed binding forms: 8 o|replaced variables: 4 o|removed binding forms: 2 o|customizable procedures: (buildit2071 recur2074 doloop20512052 %multispan-repcopy! g19691970 g19791980 lp1959 k7791 lp1891 %finish-string-concatenate-reverse lp1818 doloop18091810 lp21761 lp1753 lp1728 lp21706 lp11702 lp1679 lp1653 doloop15941595 doloop15891590 lp1567 lp1563 lp1542 lp1538 lp1517 lp1513 lp1492 lp1488 g13681369 g13421343 g13161317 %string-titlecase! g12321233 g12461247 lp1223 k5347 k5301 %string-hash iref1137 lp1144 k5190 k5130 k5073 k5016 k4965 k4872 k4809 k4749 k4692 k4635 k4584 k4491 %string-compare-ci %string-compare %string-suffix-length-ci %string-prefix-length-ci %string-suffix-length %string-prefix-length k3872 k3895 lp544 k3799 k3814 lp527 k3717 k3740 lp510 k3647 k3662 lp493 doloop476477 lp464 lp456 lp430 lp420 lp396 lp383 lp336 lp2343 lp361 lp281 lp2288 lp260 lp246 doloop231232 %string-map! doloop210211 %string-map k2676 %substring/shared) o|calls to known targets: 206 o|identified direct recursive calls: f_3023 1 o|identified direct recursive calls: f_3196 1 o|identified direct recursive calls: f_3360 1 o|identified direct recursive calls: f_3490 1 o|identified direct recursive calls: f_5274 1 o|identified direct recursive calls: f_6195 1 o|identified direct recursive calls: f_6322 1 o|identified direct recursive calls: f_6453 1 o|identified direct recursive calls: f_6580 1 o|identified direct recursive calls: f_6711 2 o|identified direct recursive calls: f_6844 1 o|identified direct recursive calls: f_7357 1 o|identified direct recursive calls: f_7406 1 o|identified direct recursive calls: f_7460 1 o|identified direct recursive calls: f_7550 1 o|identified direct recursive calls: f_7496 3 o|identified direct recursive calls: f_7620 1 o|identified direct recursive calls: f_7595 1 o|identified direct recursive calls: f_7674 1 o|identified direct recursive calls: f_7746 2 o|identified direct recursive calls: f_7854 1 o|identified direct recursive calls: f_8243 1 o|identified direct recursive calls: f_8305 1 o|fast box initializations: 45 o|fast global references: 48 o|fast global assignments: 13 o|dropping unused closure argument: f_3636 o|dropping unused closure argument: f_2729 o|dropping unused closure argument: f_7842 o|dropping unused closure argument: f_3706 o|dropping unused closure argument: f_4337 o|dropping unused closure argument: f_5467 o|dropping unused closure argument: f_2790 o|dropping unused closure argument: f_3788 o|dropping unused closure argument: f_8212 o|dropping unused closure argument: f_7674 o|dropping unused closure argument: f_5221 o|dropping unused closure argument: f_7620 o|dropping unused closure argument: f_4278 o|dropping unused closure argument: f_2671 o|dropping unused closure argument: f_3861 */ /* end of file */ ���������������������������������������������������������chicken-4.12.0/extras.import.c����������������������������������������������������������������������0000644�0001750�0001750�00000013677�13052306544�016013� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from extras.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: extras.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file extras.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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_199) static void C_ccall f_199(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(f_205) static void C_ccall f_205(C_word c,C_word *av) C_noret; C_noret_decl(f_202) static void C_ccall f_202(C_word c,C_word *av) C_noret; C_noret_decl(f_208) static void C_ccall f_208(C_word c,C_word *av) C_noret; /* k197 */ static void C_ccall f_199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_199,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(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(214))){ C_save(t1); C_rereclaim2(214*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,3); lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module"); lf[1]=C_h_intern(&lf[1],6,"extras"); lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006format\376\003\000\000\002\376\001\000\000\007fprintf\376\003\000\000\002\376\001\000\000\002pp\376\003\000\000\002\376\001\000\000\014pretty-print\376\003\000\000\002\376\001\000\000\022pre" "tty-print-width\376\003\000\000\002\376\001\000\000\006printf\376\003\000\000\002\376\001\000\000\006random\376\003\000\000\002\376\001\000\000\011randomize\376\003\000\000\002\376\001\000\000\015read" "-buffered\376\003\000\000\002\376\001\000\000\011read-byte\376\003\000\000\002\376\001\000\000\011read-file\376\003\000\000\002\376\001\000\000\011read-line\376\003\000\000\002\376\001\000\000\012read" "-lines\376\003\000\000\002\376\001\000\000\013read-string\376\003\000\000\002\376\001\000\000\014read-string!\376\003\000\000\002\376\001\000\000\012read-token\376\003\000\000\002\376\001\000\000\007s" "printf\376\003\000\000\002\376\001\000\000\012write-byte\376\003\000\000\002\376\001\000\000\012write-line\376\003\000\000\002\376\001\000\000\014write-string\376\377\016"); C_register_lf2(lf,3,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_199,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k203 in k200 in k197 */ static void C_ccall f_205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_205,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* extras.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; /* Re-use our own argvector */ } 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);}} /* k200 in k197 */ static void C_ccall f_202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k206 in k203 in k200 in k197 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_208,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {"f_199:extras_2eimport_2escm",(void*)f_199}, {"toplevel:extras_2eimport_2escm",(void*)C_toplevel}, {"f_205:extras_2eimport_2escm",(void*)f_205}, {"f_202:extras_2eimport_2escm",(void*)f_202}, {"f_208:extras_2eimport_2escm",(void*)f_208}, {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-4.12.0/tcp.scm������������������������������������������������������������������������������0000644�0001750�0001750�00000057015�13052306173�014312� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; tcp.scm - Networking stuff ; ; Copyright (c) 2008-2017, 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 ports scheduler) (disable-interrupts) ; Avoid race conditions around errno/WSAGetLastError (export tcp-close tcp-listen tcp-connect tcp-accept tcp-accept-ready? ##sys#tcp-port->fileno 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) (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 ) ) (include "common-declarations.scm") (register-feature! 'tcp) (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 ##net#last-error-code (foreign-lambda int "get_last_socket_error")) (define ##net#error-code->message (foreign-lambda c-string "errormsg_from_code" int)) (define ##net#retry? (foreign-lambda bool "should_retry_call")) (define ##net#in-progress? (foreign-lambda bool "call_in_progress")) (define ##net#interrupted? (foreign-lambda bool "call_was_interrupted")) (define ##net#socket (foreign-lambda int "socket" int int int)) (define ##net#bind (foreign-lambda int "bind" int scheme-pointer int)) (define ##net#listen (foreign-lambda int "listen" int int)) (define ##net#accept (foreign-lambda int "accept" int c-pointer c-pointer)) (define ##net#close (foreign-lambda int "closesocket" int)) (define ##net#recv (foreign-lambda int "recv" int scheme-pointer int int)) (define ##net#shutdown (foreign-lambda int "shutdown" int int)) (define ##net#connect (foreign-lambda int "connect" int scheme-pointer int)) (define ##net#check-fd-ready (foreign-lambda int "C_check_fd_ready" int)) (define ##net#set-socket-options (foreign-lambda int "C_set_socket_options" int)) (define ##net#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 ##net#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 ##net#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 ##net#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 ##net#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 ##net#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 (##net#startup) (##sys#signal-hook #:network-error "cannot initialize Winsock") ) (define ##net#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 ##net#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 (##net#last-error-code) msg . args)))) (define-syntax network-error/close (syntax-rules () ((_ loc msg socket . args) (let ((error-code (##net#last-error-code))) (##net#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 " - ") (##net#error-code->message error-code)) . args)))) (define ##net#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 (##net#getservbyname s proto)) ) (when (eq? 0 p) (network-error 'tcp-connect "cannot compute port from service" s) ) p) ) (loop (fx+ i 1)) ) ) ) ) ) ) ) ) (define ##net#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 (##net#bind-socket style host port) (let ((addr (make-string _sockaddr_in_size))) (if host (unless (##net#gethostaddr addr host port) (##sys#signal-hook #:network-error 'tcp-listen "getting listener host IP failed" host port) ) (##net#fresh-addr addr port) ) (let ((s (##net#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 (##net#set-socket-options s)) (network-error 'tcp-listen "error while setting up socket" s) ) (when (eq? _socket_error (##net#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-exact port) (when (or (fx< port 0) (fx> port 65535)) (##sys#signal-hook #:domain-error 'tcp-listen "invalid port number" port) ) (##sys#check-exact backlog) (let ((s (##net#bind-socket _sock_stream host port))) (when (eq? _socket_error (##net#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 (##net#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-exact 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 ##net#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 (##net#recv fd buf +input-buffer-size+ 0))) (cond ((eq? _socket_error n) (cond ((##net#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) ) ((##net#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 (##net#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) (##net#shutdown fd _shut_rd)) (when (and oclosed (eq? _socket_error (##net#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- (##sys#fudge 21) 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 (##net#send fd s offset count 0)) ) (cond ((eq? _socket_error n) (cond ((##net#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) ) ((##net#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) (##net#shutdown fd _shut_wr)) (when (and iclosed (eq? _socket_error (##net#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 (##net#accept fd #f #f))) (cond ((not (eq? _invalid_socket fd)) (##net#io-ports 'tcp-accept fd)) ((##net#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 (##net#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) (##net#parse-host host "tcp")) (unless port (##sys#signal-hook #:domain-error 'tcp-connect "no port specified" host)) ) (##sys#check-exact port) (unless (##net#gethostaddr addr host port) (##sys#signal-hook #:network-error 'tcp-connect "cannot find host address" host) ) (let ((s (##net#socket _af_inet _sock_stream 0)) ) (when (eq? _invalid_socket s) (network-error 'tcp-connect "cannot create socket" host port) ) (when (eq? _socket_error (##net#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 (##net#connect s addr _sockaddr_in_size)) (cond ((##net#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 ((##net#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) (##net#close s) (network-error/code 'tcp-connect err "cannot create socket")))) (##net#io-ports 'tcp-connect s) ) ) ) (define (##sys#tcp-port->fileno p) (let ((data (##sys#port-data p))) (if (vector? data) ; a meagre test, but better than nothing (##sys#slot data 0) (error '##sys#tcp-port->fileno "argument does not appear to be a TCP port" p)))) (define (tcp-addresses p) (##sys#check-open-port p 'tcp-addresses) (let ((fd (##sys#tcp-port->fileno p))) (values (or (##net#getsockname fd) (network-error 'tcp-addresses "cannot compute local address" p) ) (or (##net#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 (##sys#tcp-port->fileno p))) (let ((sp (##net#getsockport fd)) (pp (##net#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 (##net#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) (if (##sys#slot p 1) 1 2) #t) ) (define (tcp-listener-fileno l) (##sys#check-structure l 'tcp-listener 'tcp-listener-fileno) (##sys#slot l 1) ) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/files.import.c�����������������������������������������������������������������������0000644�0001750�0001750�00000014175�13052306543�015600� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from files.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: files.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file files.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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_199) static void C_ccall f_199(C_word c,C_word *av) C_noret; C_noret_decl(f_208) static void C_ccall f_208(C_word c,C_word *av) C_noret; C_noret_decl(f_205) static void C_ccall f_205(C_word c,C_word *av) C_noret; C_noret_decl(f_202) static void C_ccall f_202(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; /* k197 */ static void C_ccall f_199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_199,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k206 in k203 in k200 in k197 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_208,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k203 in k200 in k197 */ static void C_ccall f_205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_205,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* files.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; /* Re-use our own argvector */ } 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);}} /* k200 in k197 */ static void C_ccall f_202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(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(214))){ C_save(t1); C_rereclaim2(214*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,3); lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module"); lf[1]=C_h_intern(&lf[1],5,"files"); lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\014delete-file\052\376\003\000\000\002\376\001\000\000\011file-copy\376\003\000\000\002\376\001\000\000\011file-move\376\003\000\000\002\376\001\000\000\015make-pathn" "ame\376\003\000\000\002\376\001\000\000\017directory-null\077\376\003\000\000\002\376\001\000\000\026make-absolute-pathname\376\003\000\000\002\376\001\000\000\032create-tem" "porary-directory\376\003\000\000\002\376\001\000\000\025create-temporary-file\376\003\000\000\002\376\001\000\000\023decompose-directory\376\003\000\000" "\002\376\001\000\000\022decompose-pathname\376\003\000\000\002\376\001\000\000\022absolute-pathname\077\376\003\000\000\002\376\001\000\000\022pathname-directory" "\376\003\000\000\002\376\001\000\000\022pathname-extension\376\003\000\000\002\376\001\000\000\015pathname-file\376\003\000\000\002\376\001\000\000\032pathname-replace-di" "rectory\376\003\000\000\002\376\001\000\000\032pathname-replace-extension\376\003\000\000\002\376\001\000\000\025pathname-replace-file\376\003\000\000\002\376" "\001\000\000\030pathname-strip-directory\376\003\000\000\002\376\001\000\000\030pathname-strip-extension\376\003\000\000\002\376\001\000\000\022normaliz" "e-pathname\376\377\016"); C_register_lf2(lf,3,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_199,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {"f_199:files_2eimport_2escm",(void*)f_199}, {"f_208:files_2eimport_2escm",(void*)f_208}, {"f_205:files_2eimport_2escm",(void*)f_205}, {"f_202:files_2eimport_2escm",(void*)f_202}, {"toplevel:files_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-4.12.0/config-arch.sh�����������������������������������������������������������������������0000644�0001750�0001750�00000003553�13052302367�015533� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/bin/sh # config-arch.sh - return host architecture id, if supported by apply-hack # # Copyright (c) 2008-2017, 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-4.12.0/optimizer.scm������������������������������������������������������������������������0000644�0001750�0001750�00000165135�13052306173�015551� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; optimizer.scm - The CHICKEN Scheme compiler (optimizations) ; ; Copyright (c) 2008-2017, 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) (not inline ##sys#compiler-syntax-hook) ) (include "compiler-namespace") (include "tweaks") (define-constant maximal-number-of-free-variables-for-liftable 16) ;;; 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) (for-each (lambda (n) (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 (remove (lambda (p) (eq? (car p) var)) previous)))] [(if ##core#cond ##core#switch) (scan (first subs) e) (touch) (scan (first subs) e) (set! previous '()) (scan (second subs) e)] [(let) (scan-each (butlast subs) e) (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)] ) ) ) (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 (perform-high-level-optimizations node db) (let ([removed-lets 0] [removed-ifs 0] [replaced-vars 0] [rest-consers '()] [simplified-classes '()] [dirty #f] ) (define (test sym item) (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 (##sys#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 (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) (if (eq? '##core#variable (node-class (car subs))) (let ((var (first (node-parameters (car subs))))) (if (and (intrinsic? var) (foldable? var) (every constant-node? (cddr subs)) ) (constant-form-eval var (cddr subs) (lambda (ok form result msg) (cond ((not ok) (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) ) ) ) ))) n1) ) n1) ) (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 (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) (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) (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 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)] ) (decompose-lambda-list llist (lambda (vars argc rest) (let ((ifid (first lparams)) (external (node? (variable-mark var '##compiler#inline-global)))) (cond ((and inline-locally (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-max-size))))) (debugging 'i (if external "global inlining" "inlining") info ifid (fourth lparams)) (for-each (cut 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))) (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) (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 (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 (proper-list? llist) (null? (cdr llist))) (let* ((var (car llist)) (refs (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) (##sys#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 a b c d) (let loop ((entries (or (##sys#hash-table-ref substitution-table a) '()))) (cond ((null? entries) #f) ((simplify-named-call db 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 var0 var1 var2 op const1 const2 body1 body2 d1 d2 rest) (and (equal? op eq-inline-operator) (immediate? const1) (immediate? const2) (= 1 (length (get-list db var1 'references))) (= 1 (length (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 var op var0 const d body n clauses) (and (equal? op eq-inline-operator) (immediate? const) (= 1 (length (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 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 (get db (first params) 'inline-transient)) (not (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 (get db (first params) 'inline-transient)) (not (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 var1 var2 p more) (and (= 1 (length (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 var op args d x y) (and (not (equal? op eq-inline-operator)) (= 1 (length (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 d1 d2 d3 x y z var) (and inline-substitutions-enabled (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 d1 op x clist y z) (and-let* ([opa (assoc op membership-test-operators)] [(proper-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 (fold-right (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 (fold (lambda (gn body) (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 (fold-right (lambda (var rest) (make-node 'let (list var) (list (make-node '##core#undefined '() '()) rest) ) ) (fold-right (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 (##sys#hash-table-ref substitution-table name) '()))) (##sys#hash-table-set! substitution-table name (append old (list class-and-args))) ) ) (define (simplify-named-call db 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 inline-substitutions-enabled (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 inline-substitutions-enabled (= (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 inline-substitutions-enabled (intrinsic? name) (or (not (second classargs)) (= (length callargs) (second classargs))) (fold-right (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 inline-substitutions-enabled 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 inline-substitutions-enabled (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) inline-substitutions-enabled (= 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) inline-substitutions-enabled (= (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 inline-substitutions-enabled (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 inline-substitutions-enabled (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)] ) (fold-right (lambda (x n y) (make-node 'let (list n) (list x y))) (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) ) ) ) callargs names) ) ) ) ) ) ;; (<op> a [b]) -> (<primitiveop> a (quote <i>) b) ((10) ; classargs = (<primitiveop> <i> <bvar> <safe>) (and inline-substitutions-enabled (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 inline-substitutions-enabled (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 inline-substitutions-enabled (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 inline-substitutions-enabled (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 inline-substitutions-enabled (= (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 inline-substitutions-enabled (= 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 inline-substitutions-enabled (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 inline-substitutions-enabled (= (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 inline-substitutions-enabled (null? callargs) (intrinsic? name) (make-node '##core#call (list #t) (list cont (qnode (first classargs))) ) ) ) ;; (<op>) -> <id> ;; (<op> <x>) -> <x> ;; (<op> <x1> ...) -> (##core#inline <fixop> <x1> (##core#inline <fixop> ...)) [fixnum-mode] ;; (<op> <x1> ...) -> (##core#inline <ufixop> <x1> (##core#inline <ufixop> ...)) [fixnum-mode + unsafe] ;; - Remove "<id>" from arguments. ((19) ; classargs = (<id> <fixop> <ufixop> <fixmode>) (and inline-substitutions-enabled (intrinsic? name) (let* ([id (first classargs)] [fixop (if unsafe (third classargs) (second classargs))] [callargs (remove (lambda (x) (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))) ] [(or (fourth classargs) (eq? number-type 'fixnum)) (make-node '##core#call (list #t) (list cont (fold-inner (lambda (x y) (make-node '##core#inline (list fixop) (list x y)) ) callargs) ) ) ] [else #f] ) ) ) ) ;; (<op> ...) -> (##core#inline <iop> <arg1> ... (quote <x>) <argN>) ((20) ; classargs = (<argc> <iop> <x> <safe>) (let ([n (length callargs)]) (and (or (fourth classargs) unsafe) inline-substitutions-enabled (= 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 inline-substitutions-enabled (intrinsic? name) (let* ([id (first classargs)] [words (fifth classargs)] [genop (fourth classargs)] [fixop (if unsafe (third classargs) (second classargs))] [callargs (remove (lambda (x) (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 inline-substitutions-enabled (= 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 inline-substitutions-enabled (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 (get db d 'unknown)) (proper-list? llist) (and-let* ([val (get db d 'value)] [refs (get-list db d 'references)] [sites (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 (get db v 'boxed)) (not (memq v env)) (and (not recursive) (begin (set! allocated (+ allocated 2)) #t) ) ) ) ] [(##core#lambda) (and v (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 (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 "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 "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 "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)) ) ) ) ) ) (lset-difference (lambda (s1 s2) (eq? (cdr s1) (cdr s2))) sites ksites) ) ;; 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 (fold-right ; 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 (get db svar 'references) '())) (length (or (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) (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))) (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 (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-4.12.0/irregex.import.scm�������������������������������������������������������������������0000644�0001750�0001750�00000005050�13052306173�016472� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; irregex.import.scm - import library for "regex" module (irregex API) ; ; Copyright (c) 2008-2017, 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 'irregex '(irregex irregex-apply-match irregex-dfa irregex-dfa/extract irregex-dfa/search irregex-extract irregex-flags irregex-fold irregex-fold/chunked irregex-lengths irregex-match irregex-match? irregex-match-data? irregex-match-end-chunk irregex-match-end-index irregex-match-names irregex-match-num-submatches irregex-match-start-chunk irregex-match-start-index irregex-match-string irregex-match-subchunk irregex-match-substring irregex-match-valid-index? irregex-match/chunked irregex-names irregex-new-matches irregex-nfa irregex-num-submatches irregex-opt irregex-quote irregex-replace irregex-replace/all irregex-reset-matches! irregex-search irregex-search/chunked irregex-search/matches irregex-split irregex? make-irregex-chunker maybe-string->sre sre->irregex sre->string string->irregex string->sre )) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/synrules.scm�������������������������������������������������������������������������0000644�0001750�0001750�00000025767�13052306173�015421� 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))) (##sys#process-syntax-rules ellipsis rules subkeywords r c))))) (define (##sys#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 (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 (##sys#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! `(##sys#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) `(##sys#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-4.12.0/config.make��������������������������������������������������������������������������0000644�0001750�0001750�00000002207�13052302315�015107� 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 # Enable GC of symbols: #SYMBOLGC=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-4.12.0/csi.import.c�������������������������������������������������������������������������0000644�0001750�0001750�00000012133�13052306545�015246� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from csi.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: csi.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file csi.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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_199) static void C_ccall f_199(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(f_202) static void C_ccall f_202(C_word c,C_word *av) C_noret; C_noret_decl(f_205) static void C_ccall f_205(C_word c,C_word *av) C_noret; C_noret_decl(f_208) static void C_ccall f_208(C_word c,C_word *av) C_noret; /* k197 */ static void C_ccall f_199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_199,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(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(44))){ C_save(t1); C_rereclaim2(44*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,3); lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module"); lf[1]=C_h_intern(&lf[1],3,"csi"); lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\020toplevel-command\376\003\000\000\002\376\001\000\000\016editor-command\376\003\000\000\002\376\001\000\000\016set-describer!\376\377\016"); C_register_lf2(lf,3,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_199,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k200 in k197 */ static void C_ccall f_202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k203 in k200 in k197 */ static void C_ccall f_205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_205,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* 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; /* Re-use our own argvector */ } 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);}} /* k206 in k203 in k200 in k197 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_208,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {"f_199:csi_2eimport_2escm",(void*)f_199}, {"toplevel:csi_2eimport_2escm",(void*)C_toplevel}, {"f_202:csi_2eimport_2escm",(void*)f_202}, {"f_205:csi_2eimport_2escm",(void*)f_205}, {"f_208:csi_2eimport_2escm",(void*)f_208}, {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-4.12.0/setup-download.scm�������������������������������������������������������������������0000644�0001750�0001750�00000042533�13052306173�016470� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; setup-download.scm ; ; Copyright (c) 2008-2017, 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. (require-library extras irregex posix utils setup-api srfi-1 data-structures tcp srfi-13 files) (module setup-download (retrieve-extension locate-egg/local locate-egg/svn locate-egg/http gather-egg-information list-extensions list-extension-versions temporary-directory) (import scheme chicken foreign) (import extras irregex posix utils srfi-1 data-structures tcp srfi-13 srfi-14 files setup-api) (define-constant +default-tcp-connect-timeout+ 30000) ; 30 seconds (define-constant +default-tcp-read/write-timeout+ 30000) ; 30 seconds (define-constant +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 *quiet* #f) (define *chicken-install-user-agent* (conc "chicken-install " (chicken-version))) (define *trunk* #f) (define *mode* 'default) (define *windows-shell* (foreign-value "C_WINDOWS_SHELL" bool)) (define (d fstr . args) (let ([port (if *quiet* (current-error-port) (current-output-port))]) (apply fprintf port fstr args) (flush-output port) ) ) (define temporary-directory (make-parameter #f)) (define (get-temporary-directory) (or (temporary-directory) (let ([dir (create-temporary-directory)]) (temporary-directory dir) dir ) ) ) (define (existing-version egg version vs) (if version (if (member version vs) version (error "version not found" egg version) ) (let ([vs (sort vs version>=?)]) (and (pair? vs) (car vs) ) ) ) ) (define (when-no-such-version-warning egg version) (when version (warning "extension has no such version - using default" egg version)) ) (define (list-eggs/local dir) (string-concatenate (map (cut string-append <> "\n") (directory dir))) ) (define (list-egg-versions/local name dir) (let ((eggdir (make-pathname dir (string-append name "/tags")))) (cond ((directory-exists? eggdir) (string-concatenate (map (cut string-append <> "\n") (directory eggdir)))) (else "unknown\n")))) (define (locate-egg/local egg dir #!optional version destination clean) (let* ((eggdir (make-pathname dir egg)) (tagdir (make-pathname eggdir "tags")) (tagver (and (not *trunk*) (file-exists? tagdir) (directory? tagdir) (existing-version egg version (directory tagdir)) ) ) (dest (and destination (make-pathname destination egg)))) (let-values (((src ver) (if tagver (values (make-pathname tagdir tagver) tagver) (let ((trunkdir (make-pathname eggdir "trunk"))) (when-no-such-version-warning egg version) (if (and (file-exists? trunkdir) (directory? trunkdir)) (values trunkdir "trunk") (values eggdir "") ) ) ) ) ) (cond ((or (not (file-exists? eggdir)) (not (directory? eggdir))) (values #f "")) (dest (create-directory dest) (let ((qdest (qs (normalize-pathname dest))) (qsrc (qs (normalize-pathname src))) (cmd (if *windows-shell* (sprintf "xcopy ~a ~a" src dest) (sprintf "cp -r ~a/* ~a" src dest)))) (d " ~a~%" cmd) (if (zero? (system cmd)) (values dest ver) (values #f "")))) (else ;; remove *.so files in toplevel dir, just for being careful (when clean (let ((sos (filter (cut string-suffix? ".so" <>) (directory src)))) (for-each (lambda (f) (d " deleting stale file `~a' from local build directory~%" f) (delete-file* f)) sos))) (values src ver)))))) (define (gather-egg-information dir) ; used by salmonella (among others) (let ((ls (directory dir))) (filter-map (lambda (egg) (let-values (((loc version) (locate-egg/local egg dir))) (let ((meta (make-pathname loc egg "meta"))) (and (file-exists? meta) (call/cc (lambda (return) (cons (string->symbol egg) (cons (list 'version version) (handle-exceptions ex (begin (warning "extension has syntactically invalid .meta file" egg) (return #f)) (with-input-from-file meta read)))))))))) ls))) (define (make-svn-ls-cmd uarg parg pnam #!key recursive?) (conc "svn ls " uarg #\space parg (if recursive? " -R " " ") (qs pnam)) ) (define (make-svn-export-cmd uarg parg dir tmpdir) (conc "svn export " uarg #\space parg #\space #\" dir #\" #\space #\" tmpdir #\" (if *quiet* " 1>&2" "")) ) (define (list-eggs/svn repo #!optional username password) (let ([uarg (if username (string-append "--username='" username "'") "")] [parg (if password (string-append "--password='" password "'") "")]) (let ([cmd (make-svn-ls-cmd uarg parg repo)]) (d "listing extension directory ...~% ~a~%" cmd) (string-concatenate (map (lambda (s) (string-append (string-chomp s "/") "\n")) (with-input-from-pipe cmd read-lines))) ) ) ) (define (list-egg-versions/svn name repo #!optional username password) (let* ((uarg (if username (string-append "--username='" username "'") "")) (parg (if password (string-append "--password='" password "'") "")) (cmd (make-svn-ls-cmd uarg parg (make-pathname repo (string-append name "/tags")))) (input (with-input-from-pipe cmd read-lines))) (if (null? input) "unknown\n" (string-concatenate (map (lambda (s) (string-append (string-chomp s "/") "\n")) (with-input-from-pipe cmd read-lines))) ) )) (define (locate-egg/svn egg repo #!optional version destination username password) (let* ([uarg (if username (string-append "--username='" username "'") "")] [parg (if password (string-append "--password='" password "'") "")] [cmd (make-svn-ls-cmd uarg parg (make-pathname repo egg) recursive?: #t)]) (d "checking available versions ...~% ~a~%" cmd) (let* ([files (with-input-from-pipe cmd read-lines)] [tagver (existing-version egg version (filter-map (lambda (f) (and-let* ((m (irregex-search "^tags/([^/]+)/" f))) (irregex-match-substring m 1))) files))]) (let-values ([(filedir ver) (if tagver (values (string-append "tags/" tagver) tagver) (begin (when-no-such-version-warning egg version) (if (member "trunk/" files) (values "trunk" "trunk") (values "" "") ) ) ) ] ) (let* ((tmpdir (make-pathname (or destination (get-temporary-directory)) egg)) (cmd (make-svn-export-cmd uarg parg (conc repo #\/ egg #\/ (if (eq? *mode* 'meta) (metafile filedir egg) filedir)) (if (eq? *mode* 'meta) (begin (create-directory tmpdir) (metafile tmpdir egg)) tmpdir)))) (d " ~a~%" cmd) (if (zero? (system cmd)) (values tmpdir ver) (values #f "") ) ) ) ) ) ) (define (metafile dir egg) (conc dir #\/ egg ".meta")) (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 (locate-egg/http egg url #!optional version destination tests proxy-host proxy-port proxy-user-pass) (receive (host port locn) (deconstruct-url url) (let* ((locn (string-append locn "?name=" egg (if version (string-append "&version=" version) "") "&mode=" (->string *mode*) (if tests "&tests=yes" ""))) (tmpdir (or destination (get-temporary-directory))) (eggdir (make-pathname tmpdir egg)) (pre-existing-dir? (file-exists? eggdir)) ) (unless pre-existing-dir? (create-directory eggdir)) (handle-exceptions exn (begin (unless pre-existing-dir? (remove-directory eggdir)) (signal exn)) (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 (network-failure msg . args) (signal (make-composite-condition (make-property-condition 'exn 'message "invalid response from server" 'arguments args) (make-property-condition 'http-fetch))) ) (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 (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 (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) (display (make-HTTP-GET/1.1 locn *chicken-install-user-agent* host port: port accept: "*/*" proxy-host: proxy-host proxy-port: proxy-port) out) (flush-output out) (d "reading response ...~%") (let ([chunked #f]) (let* ([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 *chicken-install-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 (string-null? ln) (when (match-chunked-transfer-encoding ln) (set! chunked #t)) (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))) (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 ((string-every char-set:whitespace ln) (skip)) (else (error "unrecognized file-information - possibly corrupt transmission" ln))))) (let get-files ((files '())) (let ((ins (skip))) (let ((name (read ins))) (cond ((and (pair? name) (eq? 'error (car name))) (throw-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-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 (list-eggs/http location proxy-host proxy-port proxy-user-pass) (let-values ([(host port locn) (deconstruct-url location)]) (let-values (((in out) (http-connect host port (string-append locn "?list=1") proxy-host proxy-port proxy-user-pass))) (let ((ls (read-all in))) (close-input-port in) (close-output-port out) ls)))) (define (throw-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-concatenate-reverse data)) (else (let ([chunk (read-string size in)]) (d ".") (read-line in) (get-chunks (cons chunk data)) ) ) ) ) )) (define slashes (char-set #\\ #\/)) (define (valid-extension-name? name) (and (not (member name '("" ".." "."))) (not (string-index name slashes)))) (define (check-egg-name name) (unless (valid-extension-name? name) (error "invalid extension name" name))) (define (retrieve-extension name transport location #!key version quiet destination username password tests proxy-host proxy-port proxy-user-pass trunk (mode 'default) clean) (check-egg-name name) (fluid-let ((*quiet* quiet) (*trunk* trunk) (*mode* mode)) (case transport ((local) (locate-egg/local name location version destination clean) ) ((svn) (locate-egg/svn name location version destination username password) ) ((http) (locate-egg/http name location version destination tests proxy-host proxy-port proxy-user-pass) ) (else (error "cannot retrieve extension - unsupported transport" transport) ) ) ) ) (define (list-extensions transport location #!key quiet username password proxy-host proxy-port proxy-user-pass) (fluid-let ((*quiet* quiet)) (case transport ((local) (list-eggs/local location) ) ((svn) (list-eggs/svn location username password) ) ((http) (list-eggs/http location proxy-host proxy-port proxy-user-pass)) (else (error "cannot list extensions - unsupported transport" transport) ) ) ) ) (define (list-extension-versions name transport location #!key quiet username password) (check-egg-name name) (fluid-let ((*quiet* quiet)) (case transport ((local) (list-egg-versions/local name location) ) ((svn) (list-egg-versions/svn name location username password) ) (else (error "cannot list extensions - unsupported transport" transport) ) ) ) ) ) ;module setup-download ���������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/lolevel.c����������������������������������������������������������������������������0000644�0001750�0001750�00001041044�13052306230�014614� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from lolevel.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:16 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: lolevel.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file lolevel.c unit: lolevel */ #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_srfi_2d69_toplevel) C_externimport void C_ccall C_srfi_2d69_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[141]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,99,104,101,99,107,45,98,108,111,99,107,32,120,54,52,32,108,111,99,54,53,41,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,41),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,56,55,32,108,111,99,56,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,99,104,101,99,107,45,112,111,105,110,116,101,114,32,120,49,48,54,32,46,32,108,111,99,49,48,55,41,0,0,0,0,0}; static C_char C_TLS li3[] 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 li4[] C_aligned={C_lihdr(0,0,16),40,115,105,122,101,114,114,32,97,114,103,115,50,48,57,41}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,29),40,99,104,101,99,107,110,49,32,110,50,49,48,32,110,109,97,120,50,49,49,32,111,102,102,50,49,50,41,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,47),40,99,104,101,99,107,110,50,32,110,50,49,51,32,110,109,97,120,50,49,52,32,110,109,97,120,50,50,49,53,32,111,102,102,49,50,49,54,32,111,102,102,50,50,49,55,41,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,20),40,109,111,118,101,32,102,114,111,109,50,50,48,32,116,111,50,50,49,41,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,40),40,109,111,118,101,45,109,101,109,111,114,121,33,32,102,114,111,109,49,57,48,32,116,111,49,57,49,32,46,32,116,109,112,49,56,57,49,57,50,41}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,51,48,54,32,105,51,48,56,41}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,11),40,99,111,112,121,32,120,50,57,53,41,0,0,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,18),40,111,98,106,101,99,116,45,99,111,112,121,32,120,50,57,51,41,0,0,0,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,20),40,97,108,108,111,99,97,116,101,32,105,110,116,51,49,52,51,49,55,41,0,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,22),40,102,114,101,101,32,99,45,112,111,105,110,116,101,114,51,50,48,51,50,52,41,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,15),40,112,111,105,110,116,101,114,63,32,120,51,50,55,41,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,20),40,112,111,105,110,116,101,114,45,108,105,107,101,63,32,120,51,51,50,41,0,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,26),40,97,100,100,114,101,115,115,45,62,112,111,105,110,116,101,114,32,97,100,100,114,51,51,56,41,0,0,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,25),40,112,111,105,110,116,101,114,45,62,97,100,100,114,101,115,115,32,112,116,114,51,52,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,22),40,111,98,106,101,99,116,45,62,112,111,105,110,116,101,114,32,120,51,52,52,41,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,24),40,112,111,105,110,116,101,114,45,62,111,98,106,101,99,116,32,112,116,114,51,53,52,41}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,23),40,112,111,105,110,116,101,114,61,63,32,112,49,51,53,55,32,112,50,51,53,56,41,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,30),40,112,111,105,110,116,101,114,43,32,112,116,114,51,54,50,51,54,55,32,111,102,102,51,54,51,51,54,56,41,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,20),40,97,108,105,103,110,45,116,111,45,119,111,114,100,32,120,51,55,56,41,0,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,27),40,116,97,103,45,112,111,105,110,116,101,114,32,112,116,114,51,56,56,32,116,97,103,51,56,57,41,0,0,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,34),40,116,97,103,103,101,100,45,112,111,105,110,116,101,114,63,32,120,52,48,50,32,46,32,116,109,112,52,48,49,52,48,51,41,0,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,18),40,112,111,105,110,116,101,114,45,116,97,103,32,120,52,49,53,41,0,0,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,33),40,109,97,107,101,45,108,111,99,97,116,105,118,101,32,111,98,106,52,50,51,32,46,32,105,110,100,101,120,52,50,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,38),40,109,97,107,101,45,119,101,97,107,45,108,111,99,97,116,105,118,101,32,111,98,106,52,51,48,32,46,32,105,110,100,101,120,52,51,49,41,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,25),40,108,111,99,97,116,105,118,101,45,115,101,116,33,32,120,52,51,55,32,121,52,51,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,23),40,108,111,99,97,116,105,118,101,45,62,111,98,106,101,99,116,32,120,52,52,50,41,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,16),40,108,111,99,97,116,105,118,101,63,32,120,52,52,52,41}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,27),40,112,111,105,110,116,101,114,45,117,56,45,115,101,116,33,32,112,52,52,55,32,110,52,52,56,41,0,0,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,27),40,112,111,105,110,116,101,114,45,115,56,45,115,101,116,33,32,112,52,53,48,32,110,52,53,49,41,0,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,28),40,112,111,105,110,116,101,114,45,117,49,54,45,115,101,116,33,32,112,52,53,51,32,110,52,53,52,41,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,28),40,112,111,105,110,116,101,114,45,115,49,54,45,115,101,116,33,32,112,52,53,54,32,110,52,53,55,41,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,28),40,112,111,105,110,116,101,114,45,117,51,50,45,115,101,116,33,32,112,52,53,57,32,110,52,54,48,41,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,28),40,112,111,105,110,116,101,114,45,115,51,50,45,115,101,116,33,32,112,52,54,50,32,110,52,54,51,41,0,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,28),40,112,111,105,110,116,101,114,45,102,51,50,45,115,101,116,33,32,112,52,54,53,32,110,52,54,54,41,0,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,28),40,112,111,105,110,116,101,114,45,102,54,52,45,115,101,116,33,32,112,52,54,56,32,110,52,54,57,41,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,12),40,97,50,49,55,48,32,120,52,57,48,41,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,17),40,97,50,49,56,54,32,120,52,57,50,32,105,52,57,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,34),40,101,120,116,101,110,100,45,112,114,111,99,101,100,117,114,101,32,112,114,111,99,52,56,56,32,100,97,116,97,52,56,57,41,0,0,0,0,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,12),40,97,50,50,49,51,32,120,53,48,52,41,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,26),40,101,120,116,101,110,100,101,100,45,112,114,111,99,101,100,117,114,101,63,32,120,52,57,55,41,0,0,0,0,0,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,12),40,97,50,50,52,54,32,120,53,49,52,41,0,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,21),40,112,114,111,99,101,100,117,114,101,45,100,97,116,97,32,120,53,48,55,41,0,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,34),40,115,101,116,45,112,114,111,99,101,100,117,114,101,45,100,97,116,97,33,32,112,114,111,99,53,49,55,32,120,53,49,56,41,0,0,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,19),40,118,101,99,116,111,114,45,108,105,107,101,63,32,120,53,50,49,41,0,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,22),40,110,117,109,98,101,114,45,111,102,45,115,108,111,116,115,32,120,53,51,50,41,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,22),40,110,117,109,98,101,114,45,111,102,45,98,121,116,101,115,32,120,53,51,53,41,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,40),40,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,53,52,49,32,46,32,97,114,103,115,53,52,50,41}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,35),40,114,101,99,111,114,100,45,105,110,115,116,97,110,99,101,63,32,120,53,52,57,32,46,32,116,109,112,53,52,56,53,53,48,41,0,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,27),40,114,101,99,111,114,100,45,105,110,115,116,97,110,99,101,45,116,121,112,101,32,120,53,54,53,41,0,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,29),40,114,101,99,111,114,100,45,105,110,115,116,97,110,99,101,45,108,101,110,103,116,104,32,120,53,54,56,41,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,42),40,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,53,55,49,32,105,53,55,50,32,121,53,55,51,41,0,0,0,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,53,56,53,41,0,0,0,0,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,21),40,114,101,99,111,114,100,45,62,118,101,99,116,111,114,32,120,53,56,50,41,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,22),40,111,98,106,101,99,116,45,101,118,105,99,116,101,100,63,32,120,53,57,50,41,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,54,49,53,32,105,54,49,55,41}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,12),40,101,118,105,99,116,32,120,54,48,52,41,0,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,18),40,102,95,50,53,56,57,32,105,110,116,53,57,56,54,48,49,41,0,0,0,0,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,34),40,111,98,106,101,99,116,45,101,118,105,99,116,32,120,53,57,52,32,46,32,97,108,108,111,99,97,116,111,114,53,57,53,41,0,0,0,0,0,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,54,53,50,32,105,54,53,52,41}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,12),40,101,118,105,99,116,32,120,54,52,48,41,0,0,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,49),40,111,98,106,101,99,116,45,101,118,105,99,116,45,116,111,45,108,111,99,97,116,105,111,110,32,120,54,50,57,32,112,116,114,54,51,48,32,46,32,108,105,109,105,116,54,51,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,54,56,53,32,105,54,56,55,41}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,14),40,114,101,108,101,97,115,101,32,120,54,55,57,41,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,24),40,102,95,50,56,52,50,32,99,45,112,111,105,110,116,101,114,54,55,50,54,55,54,41}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,35),40,111,98,106,101,99,116,45,114,101,108,101,97,115,101,32,120,54,54,56,32,46,32,114,101,108,101,97,115,101,114,54,54,57,41,0,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,55,48,52,32,105,55,48,54,41}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,12),40,101,118,105,99,116,32,120,54,57,55,41,0,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,18),40,111,98,106,101,99,116,45,115,105,122,101,32,120,54,57,52,41,0,0,0,0,0,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,55,52,51,32,105,55,52,53,41}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,11),40,99,111,112,121,32,120,55,50,57,41,0,0,0,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,33),40,111,98,106,101,99,116,45,117,110,101,118,105,99,116,32,120,55,50,48,32,46,32,116,109,112,55,49,57,55,50,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,115,116,55,50,41,0,0,0,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,24),40,111,98,106,101,99,116,45,98,101,99,111,109,101,33,32,97,108,115,116,55,53,50,41}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,34),40,109,117,116,97,116,101,45,112,114,111,99,101,100,117,114,101,33,32,111,108,100,55,53,53,32,112,114,111,99,55,53,54,41,0,0,0,0,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,55,55,57,41,0,0,0,0,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,38),40,109,97,107,101,45,112,111,105,110,116,101,114,45,118,101,99,116,111,114,32,110,55,54,57,32,46,32,116,109,112,55,54,56,55,55,48,41,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,22),40,112,111,105,110,116,101,114,45,118,101,99,116,111,114,63,32,120,55,56,56,41,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,24),40,100,111,108,111,111,112,55,57,52,32,112,116,114,115,55,57,54,32,105,55,57,55,41}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,26),40,112,111,105,110,116,101,114,45,118,101,99,116,111,114,32,46,32,112,116,114,115,55,57,48,41,0,0,0,0,0,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,56,48,55,41,0,0,0,0,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,35),40,112,111,105,110,116,101,114,45,118,101,99,116,111,114,45,102,105,108,108,33,32,112,118,56,48,51,32,112,116,114,56,48,52,41,0,0,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,31),40,112,118,45,98,117,102,45,115,101,116,33,32,105,56,50,52,56,51,48,32,112,116,114,56,50,53,56,51,49,41,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,39),40,112,111,105,110,116,101,114,45,118,101,99,116,111,114,45,115,101,116,33,32,112,118,56,51,52,32,105,56,51,53,32,112,116,114,56,51,54,41,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,29),40,112,111,105,110,116,101,114,45,118,101,99,116,111,114,45,108,101,110,103,116,104,32,112,118,56,52,56,41,0,0,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,18),40,97,51,51,48,56,32,112,118,56,52,50,32,105,56,52,51,41,0,0,0,0,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,17),40,97,51,51,51,49,32,120,53,55,55,32,105,53,55,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,12),40,97,51,51,53,53,32,112,52,56,53,41,0,0,0,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,12),40,97,51,51,53,56,32,112,52,56,51,41,0,0,0,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,12),40,97,51,51,54,49,32,112,52,56,49,41,0,0,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,12),40,97,51,51,54,52,32,112,52,55,57,41,0,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,12),40,97,51,51,54,55,32,112,52,55,55,41,0,0,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,12),40,97,51,51,55,48,32,112,52,55,53,41,0,0,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,12),40,97,51,51,55,51,32,112,52,55,51,41,0,0,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,12),40,97,51,51,55,54,32,112,52,55,49,41,0,0,0,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,14),40,97,51,51,55,57,32,108,111,99,52,52,48,41,0,0}; static C_char C_TLS li99[] 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 stub826(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 stub817(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 k2845 */ C_regparm static C_word C_fcall stub673(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 k2592 */ C_regparm static C_word C_fcall stub599(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 k1938 */ C_regparm static C_word C_fcall stub374(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 stub364(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 stub349(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 k1851 */ C_regparm static C_word C_fcall stub321(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 k1844 */ C_regparm static C_word C_fcall stub315(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 k1401 */ C_regparm static C_word C_fcall stub173(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 k1373 */ C_regparm static C_word C_fcall stub157(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 k1345 */ 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_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 k1317 */ C_regparm static C_word C_fcall stub125(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_1204) static void C_ccall f_1204(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_1201) static void C_ccall f_1201(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_3166) static void C_ccall f_3166(C_word c,C_word *av) C_noret; C_noret_decl(f_2136) static void C_ccall f_2136(C_word c,C_word *av) C_noret; C_noret_decl(f_3160) static void C_ccall f_3160(C_word c,C_word *av) C_noret; C_noret_decl(f_2111) static void C_ccall f_2111(C_word c,C_word *av) C_noret; C_noret_decl(f_1149) static void C_ccall f_1149(C_word c,C_word *av) C_noret; C_noret_decl(f_2096) static void C_ccall f_2096(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_2123) static void C_ccall f_2123(C_word c,C_word *av) C_noret; C_noret_decl(f_2102) static void C_ccall f_2102(C_word c,C_word *av) C_noret; C_noret_decl(f_2093) static void C_ccall f_2093(C_word c,C_word *av) C_noret; C_noret_decl(f_2091) static void C_ccall f_2091(C_word c,C_word *av) C_noret; C_noret_decl(f_3298) static void C_ccall f_3298(C_word c,C_word *av) C_noret; C_noret_decl(f_1218) static void C_fcall f_1218(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2086) static void C_ccall f_2086(C_word c,C_word *av) C_noret; C_noret_decl(f_2117) static void C_ccall f_2117(C_word c,C_word *av) C_noret; C_noret_decl(f_2114) static void C_ccall f_2114(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_3171) static void C_ccall f_3171(C_word c,C_word *av) C_noret; C_noret_decl(f_3179) static void C_fcall f_3179(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_3300) static void C_ccall f_3300(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_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_1230) static void C_fcall f_1230(C_word t0,C_word t1) C_noret; C_noret_decl(f_2396) static void C_ccall f_2396(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_2391) static void C_ccall f_2391(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_3042) static void C_ccall f_3042(C_word c,C_word *av) C_noret; C_noret_decl(f_1921) static void C_ccall f_1921(C_word c,C_word *av) C_noret; C_noret_decl(f3719) static void C_ccall f3719(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_1916) static void C_ccall f_1916(C_word c,C_word *av) 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_1910) static void C_ccall f_1910(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_3359) static void C_ccall f_3359(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_3060) static void C_ccall f_3060(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_3069) static void C_ccall f_3069(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_2979) static void C_ccall f_2979(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_3374) static void C_ccall f_3374(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_2276) static void C_ccall f_2276(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_3377) static void C_ccall f_3377(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_3082) static void C_ccall f_3082(C_word c,C_word *av) C_noret; C_noret_decl(f_3365) static void C_ccall f_3365(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_2950) static void C_fcall f_2950(C_word t0,C_word t1,C_word t2) 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_2966) static void C_ccall f_2966(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_3094) static void C_ccall f_3094(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_2998) static void C_ccall f_2998(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_1795) static void C_ccall f_1795(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_1759) static void C_ccall f_1759(C_word c,C_word *av) C_noret; C_noret_decl(f_1765) static void C_fcall f_1765(C_word t0,C_word t1,C_word t2) 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(f_1416) static void C_ccall f_1416(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_2416) static void C_ccall f_2416(C_word c,C_word *av) C_noret; C_noret_decl(f_2413) static void C_ccall f_2413(C_word c,C_word *av) C_noret; C_noret_decl(f_2409) static void C_ccall f_2409(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_1472) static void C_fcall f_1472(C_word t0,C_word t1) C_noret; C_noret_decl(f_2319) static void C_ccall f_2319(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_2310) static void C_ccall f_2310(C_word c,C_word *av) 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_2187) static void C_ccall f_2187(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_1881) static void C_ccall f_1881(C_word c,C_word *av) C_noret; C_noret_decl(f_2938) static void C_ccall f_2938(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_2589) static void C_ccall f_2589(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_1181) static void C_fcall f_1181(C_word t0,C_word t1,C_word t2) 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_2945) static void C_ccall f_2945(C_word c,C_word *av) C_noret; C_noret_decl(f_1443) static void C_fcall f_1443(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1886) static void C_ccall f_1886(C_word c,C_word *av) C_noret; C_noret_decl(f_2054) static void C_ccall f_2054(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_2475) static void C_ccall f_2475(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_1437) static void C_fcall f_1437(C_word t0,C_word t1) C_noret; C_noret_decl(f_1449) static void C_fcall f_1449(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_2042) static void C_fcall f_2042(C_word t0,C_word t1) C_noret; C_noret_decl(f_2387) static void C_ccall f_2387(C_word c,C_word *av) C_noret; C_noret_decl(f_1465) static void C_fcall f_1465(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_1962) static void C_fcall f_1962(C_word t0,C_word t1) C_noret; C_noret_decl(f_2532) static void C_fcall f_2532(C_word t0,C_word t1) C_noret; C_noret_decl(f_2658) static void C_fcall f_2658(C_word t0,C_word t1) C_noret; C_noret_decl(f_2651) static void C_ccall f_2651(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_1275) static void C_ccall f_1275(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_2522) static void C_ccall f_2522(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_2645) static void C_ccall f_2645(C_word c,C_word *av) C_noret; C_noret_decl(f_2642) static void C_fcall f_2642(C_word t0,C_word t1) C_noret; C_noret_decl(f_1575) static void C_fcall f_1575(C_word t0,C_word t1) C_noret; C_noret_decl(f_1640) static void C_ccall f_1640(C_word c,C_word *av) C_noret; C_noret_decl(f_2534) static void C_fcall f_2534(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1848) static void C_ccall f_1848(C_word c,C_word *av) C_noret; C_noret_decl(f_1982) static void C_ccall f_1982(C_word c,C_word *av) C_noret; C_noret_decl(f_1985) static void C_ccall f_1985(C_word c,C_word *av) C_noret; C_noret_decl(f_2512) static void C_ccall f_2512(C_word c,C_word *av) C_noret; C_noret_decl(f_1866) static void C_ccall f_1866(C_word c,C_word *av) C_noret; C_noret_decl(f_2435) static void C_ccall f_2435(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_2437) static void C_ccall f_2437(C_word c,C_word *av) C_noret; C_noret_decl(f_1978) static void C_ccall f_1978(C_word c,C_word *av) C_noret; C_noret_decl(f_1669) static void C_ccall f_1669(C_word c,C_word *av) C_noret; C_noret_decl(f_1877) static void C_ccall f_1877(C_word c,C_word *av) C_noret; C_noret_decl(f_1973) static void C_ccall f_1973(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_2197) static void C_ccall f_2197(C_word c,C_word *av) C_noret; C_noret_decl(f_1591) static void C_fcall f_1591(C_word t0,C_word t1) 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_1895) static void C_ccall f_1895(C_word c,C_word *av) C_noret; C_noret_decl(f_2660) static void C_fcall f_2660(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1662) static void C_fcall f_1662(C_word t0,C_word t1) 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_fcall f_2519(C_word t0,C_word t1) 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_2342) static void C_ccall f_2342(C_word c,C_word *av) C_noret; C_noret_decl(f_2617) static void C_fcall f_2617(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2030) static void C_ccall f_2030(C_word c,C_word *av) C_noret; C_noret_decl(f_2612) static void C_ccall f_2612(C_word c,C_word *av) C_noret; C_noret_decl(f_1993) static void C_fcall f_1993(C_word t0,C_word t1) 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_1999) static void C_ccall f_1999(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_2452) static C_word C_fcall f_2452(C_word t0,C_word t1); C_noret_decl(f_2606) static void C_ccall f_2606(C_word c,C_word *av) C_noret; C_noret_decl(f_2609) static void C_ccall f_2609(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_2447) static void C_ccall f_2447(C_word c,C_word *av) C_noret; C_noret_decl(f_2603) static void C_fcall f_2603(C_word t0,C_word t1) 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_2441) static void C_ccall f_2441(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_2636) static void C_fcall f_2636(C_word t0,C_word t1) C_noret; C_noret_decl(f_2639) static void C_ccall f_2639(C_word c,C_word *av) C_noret; C_noret_decl(f_2351) static void C_ccall f_2351(C_word c,C_word *av) C_noret; C_noret_decl(f_2627) static void C_ccall f_2627(C_word c,C_word *av) C_noret; C_noret_decl(f_2308) static void C_ccall f_2308(C_word c,C_word *av) C_noret; C_noret_decl(f_2366) static void C_fcall f_2366(C_word t0,C_word t1) 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_2893) static void C_fcall f_2893(C_word t0,C_word t1) C_noret; C_noret_decl(f_2895) static void C_fcall f_2895(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1152) static void C_ccall f_1152(C_word c,C_word *av) C_noret; C_noret_decl(f_1154) static void C_fcall f_1154(C_word t0,C_word t1,C_word t2) 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_2883) static void C_ccall f_2883(C_word c,C_word *av) C_noret; C_noret_decl(f_2886) static void C_ccall f_2886(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_2880) static void C_fcall f_2880(C_word t0,C_word t1) C_noret; C_noret_decl(f_1810) static void C_fcall f_1810(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2166) static void C_ccall f_2166(C_word c,C_word *av) C_noret; C_noret_decl(f_3021) static void C_fcall f_3021(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1262) static void C_fcall f_1262(C_word t0,C_word t1) C_noret; C_noret_decl(f_2140) static void C_ccall f_2140(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_1492) static void C_ccall f_1492(C_word c,C_word *av) C_noret; C_noret_decl(f_1506) static void C_fcall f_1506(C_word t0,C_word t1,C_word t2,C_word t3) 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_3015) static void C_ccall f_3015(C_word c,C_word *av) C_noret; C_noret_decl(f_3012) static void C_ccall f_3012(C_word c,C_word *av) C_noret; C_noret_decl(f_3206) static void C_ccall f_3206(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_1679) static void C_ccall f_1679(C_word c,C_word *av) C_noret; C_noret_decl(f_1498) static void C_ccall f_1498(C_word c,C_word *av) C_noret; C_noret_decl(f_1495) static void C_ccall f_1495(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_2798) static void C_ccall f_2798(C_word c,C_word *av) C_noret; C_noret_decl(f_2070) static void C_ccall f_2070(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_3224) static C_word C_fcall f_3224(C_word t0,C_word t1); C_noret_decl(f_2842) static void C_ccall f_2842(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_2874) static void C_ccall f_2874(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_1617) static void C_ccall f_1617(C_word c,C_word *av) C_noret; C_noret_decl(f_2493) static void C_fcall f_2493(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2769) static void C_fcall f_2769(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2764) static void C_fcall f_2764(C_word t0,C_word t1) C_noret; C_noret_decl(f_2214) static void C_ccall f_2214(C_word c,C_word *av) C_noret; C_noret_decl(f_2861) static void C_fcall f_2861(C_word t0,C_word t1,C_word t2) 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_2485) static void C_ccall f_2485(C_word c,C_word *av) C_noret; C_noret_decl(f_2488) static void C_ccall f_2488(C_word c,C_word *av) C_noret; C_noret_decl(f_2482) static void C_fcall f_2482(C_word t0,C_word t1) 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_2105) static void C_ccall f_2105(C_word c,C_word *av) C_noret; C_noret_decl(f_2814) static void C_fcall f_2814(C_word t0,C_word t1,C_word t2) 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_2751) static void C_ccall f_2751(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_2742) static void C_ccall f_2742(C_word c,C_word *av) C_noret; C_noret_decl(f_3267) static void C_ccall f_3267(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_2231) static void C_ccall f_2231(C_word c,C_word *av) C_noret; C_noret_decl(f_2734) static void C_ccall f_2734(C_word c,C_word *av) C_noret; C_noret_decl(f_2264) static void C_ccall f_2264(C_word c,C_word *av) C_noret; C_noret_decl(f_3253) static C_word C_fcall f_3253(C_word t0,C_word t1,C_word t2); C_noret_decl(f_2730) static void C_ccall f_2730(C_word c,C_word *av) C_noret; C_noret_decl(f_2726) static void C_ccall f_2726(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_2132) static void C_ccall f_2132(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_2144) static void C_ccall f_2144(C_word c,C_word *av) C_noret; C_noret_decl(f_2148) static void C_ccall f_2148(C_word c,C_word *av) C_noret; C_noret_decl(f_3132) static C_word C_fcall f_3132(C_word t0,C_word t1); C_noret_decl(trf_1218) static void C_ccall trf_1218(C_word c,C_word *av) C_noret; static void C_ccall trf_1218(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1218(t0,t1,t2);} C_noret_decl(trf_3179) static void C_ccall trf_3179(C_word c,C_word *av) C_noret; static void C_ccall trf_3179(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3179(t0,t1,t2,t3);} C_noret_decl(trf_1230) static void C_ccall trf_1230(C_word c,C_word *av) C_noret; static void C_ccall trf_1230(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1230(t0,t1);} C_noret_decl(trf_2950) static void C_ccall trf_2950(C_word c,C_word *av) C_noret; static void C_ccall trf_2950(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2950(t0,t1,t2);} C_noret_decl(trf_1765) static void C_ccall trf_1765(C_word c,C_word *av) C_noret; static void C_ccall trf_1765(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1765(t0,t1,t2);} C_noret_decl(trf_1472) static void C_ccall trf_1472(C_word c,C_word *av) C_noret; static void C_ccall trf_1472(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1472(t0,t1);} C_noret_decl(trf_1181) static void C_ccall trf_1181(C_word c,C_word *av) C_noret; static void C_ccall trf_1181(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1181(t0,t1,t2);} C_noret_decl(trf_1443) static void C_ccall trf_1443(C_word c,C_word *av) C_noret; static void C_ccall trf_1443(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1443(t0,t1,t2);} C_noret_decl(trf_1437) static void C_ccall trf_1437(C_word c,C_word *av) C_noret; static void C_ccall trf_1437(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1437(t0,t1);} C_noret_decl(trf_1449) static void C_ccall trf_1449(C_word c,C_word *av) C_noret; static void C_ccall trf_1449(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_1449(t0,t1,t2,t3,t4);} C_noret_decl(trf_2042) static void C_ccall trf_2042(C_word c,C_word *av) C_noret; static void C_ccall trf_2042(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2042(t0,t1);} C_noret_decl(trf_1465) static void C_ccall trf_1465(C_word c,C_word *av) C_noret; static void C_ccall trf_1465(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_1465(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_1962) static void C_ccall trf_1962(C_word c,C_word *av) C_noret; static void C_ccall trf_1962(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1962(t0,t1);} C_noret_decl(trf_2532) static void C_ccall trf_2532(C_word c,C_word *av) C_noret; static void C_ccall trf_2532(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2532(t0,t1);} C_noret_decl(trf_2658) static void C_ccall trf_2658(C_word c,C_word *av) C_noret; static void C_ccall trf_2658(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2658(t0,t1);} C_noret_decl(trf_2642) static void C_ccall trf_2642(C_word c,C_word *av) C_noret; static void C_ccall trf_2642(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2642(t0,t1);} C_noret_decl(trf_1575) static void C_ccall trf_1575(C_word c,C_word *av) C_noret; static void C_ccall trf_1575(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1575(t0,t1);} C_noret_decl(trf_2534) static void C_ccall trf_2534(C_word c,C_word *av) C_noret; static void C_ccall trf_2534(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2534(t0,t1,t2);} C_noret_decl(trf_1591) static void C_ccall trf_1591(C_word c,C_word *av) C_noret; static void C_ccall trf_1591(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1591(t0,t1);} C_noret_decl(trf_2660) static void C_ccall trf_2660(C_word c,C_word *av) C_noret; static void C_ccall trf_2660(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2660(t0,t1,t2);} C_noret_decl(trf_1662) static void C_ccall trf_1662(C_word c,C_word *av) C_noret; static void C_ccall trf_1662(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1662(t0,t1);} C_noret_decl(trf_2519) static void C_ccall trf_2519(C_word c,C_word *av) C_noret; static void C_ccall trf_2519(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2519(t0,t1);} C_noret_decl(trf_2617) static void C_ccall trf_2617(C_word c,C_word *av) C_noret; static void C_ccall trf_2617(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2617(t0,t1,t2);} C_noret_decl(trf_1993) static void C_ccall trf_1993(C_word c,C_word *av) C_noret; static void C_ccall trf_1993(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1993(t0,t1);} C_noret_decl(trf_2603) static void C_ccall trf_2603(C_word c,C_word *av) C_noret; static void C_ccall trf_2603(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2603(t0,t1);} C_noret_decl(trf_2636) static void C_ccall trf_2636(C_word c,C_word *av) C_noret; static void C_ccall trf_2636(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2636(t0,t1);} C_noret_decl(trf_2366) static void C_ccall trf_2366(C_word c,C_word *av) C_noret; static void C_ccall trf_2366(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2366(t0,t1);} C_noret_decl(trf_2893) static void C_ccall trf_2893(C_word c,C_word *av) C_noret; static void C_ccall trf_2893(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2893(t0,t1);} C_noret_decl(trf_2895) static void C_ccall trf_2895(C_word c,C_word *av) C_noret; static void C_ccall trf_2895(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2895(t0,t1,t2);} C_noret_decl(trf_1154) static void C_ccall trf_1154(C_word c,C_word *av) C_noret; static void C_ccall trf_1154(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1154(t0,t1,t2);} C_noret_decl(trf_2880) static void C_ccall trf_2880(C_word c,C_word *av) C_noret; static void C_ccall trf_2880(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2880(t0,t1);} C_noret_decl(trf_1810) static void C_ccall trf_1810(C_word c,C_word *av) C_noret; static void C_ccall trf_1810(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1810(t0,t1,t2);} C_noret_decl(trf_3021) static void C_ccall trf_3021(C_word c,C_word *av) C_noret; static void C_ccall trf_3021(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3021(t0,t1,t2);} C_noret_decl(trf_1262) static void C_ccall trf_1262(C_word c,C_word *av) C_noret; static void C_ccall trf_1262(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1262(t0,t1);} C_noret_decl(trf_1506) static void C_ccall trf_1506(C_word c,C_word *av) C_noret; static void C_ccall trf_1506(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1506(t0,t1,t2,t3);} C_noret_decl(trf_2493) static void C_ccall trf_2493(C_word c,C_word *av) C_noret; static void C_ccall trf_2493(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2493(t0,t1,t2);} C_noret_decl(trf_2769) static void C_ccall trf_2769(C_word c,C_word *av) C_noret; static void C_ccall trf_2769(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2769(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[1]; C_word t1=av[0]; f_2764(t0,t1);} C_noret_decl(trf_2861) static void C_ccall trf_2861(C_word c,C_word *av) C_noret; static void C_ccall trf_2861(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2861(t0,t1,t2);} C_noret_decl(trf_2482) static void C_ccall trf_2482(C_word c,C_word *av) C_noret; static void C_ccall trf_2482(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2482(t0,t1);} C_noret_decl(trf_2814) static void C_ccall trf_2814(C_word c,C_word *av) C_noret; static void C_ccall trf_2814(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2814(t0,t1,t2);} /* k1202 in k1199 in loop in object-become! in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_1204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1204,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* lolevel.scm:92: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1181(t4,((C_word*)t0)[4],t3);} /* pointer-f32-set! in k2089 in k1150 in k1147 */ 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); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2120,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_pointer_f32_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1199 in loop in object-become! in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_1201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1201,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1204,a[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:91: ##sys#check-block */ f_1154(t2,t3,C_a_i_list(&a,1,lf[111]));} /* k3275 in pointer-vector-set! in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 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_3277,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3280,a[2]=((C_word*)t0)[2],a[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:672: ##sys#check-pointer */ t3=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[122]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=C_slot(((C_word*)t0)[2],C_fix(2)); /* lolevel.scm:673: pv-buf-set! */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( /* lolevel.scm:673: pv-buf-set! */ f_3253(t3,((C_word*)t0)[4],((C_word*)t0)[5]) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* pointer-vector in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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; 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_3166,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_3171,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:642: make-pointer-vector */ t6=*((C_word*)lf[116]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2136,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[55]+1 /* (set! pointer-u16-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2140,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3368,a[2]=((C_word)li94),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:340: getter-with-setter */ t5=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[48]+1); av2[4]=lf[134]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* pointer-vector? in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_3160(C_word c,C_word *av){ C_word tmp; C_word 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_3160,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[117]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* pointer-s16-set! in k2089 in k1150 in k1147 */ static void C_ccall f_2111(C_word c,C_word *av){ C_word tmp; C_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_2111,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_pointer_s16_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1147 */ static void C_ccall f_1149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1149,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1152,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:49: register-feature! */ t3=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[140]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* locative? in k2089 in k1150 in k1147 */ static void C_ccall f_2096(C_word c,C_word *av){ C_word tmp; C_word 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_2096,3,av);} if(C_truep(C_blockp(t2))){ t3=C_locativep(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2126 in k2089 in k1150 in k1147 */ 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 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_2128,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[53]+1 /* (set! pointer-u8-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2132,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3374,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:328: getter-with-setter */ t5=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[46]+1); av2[4]=lf[136]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* pointer-f64-set! in k2089 in k1150 in k1147 */ static void C_ccall f_2123(C_word c,C_word *av){ C_word tmp; C_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_2123,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_pointer_f64_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* pointer-u8-set! in k2089 in k1150 in k1147 */ static void C_ccall f_2102(C_word c,C_word *av){ C_word tmp; C_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_2102,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_pointer_u8_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* locative->object in k2089 in k1150 in k1147 */ static void C_ccall f_2093(C_word c,C_word *av){ C_word tmp; C_word 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_2093,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_locative_to_object(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2089 in k1150 in k1147 */ static void C_ccall f_2091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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,4)))){ C_save_and_reclaim((void *)f_2091,2,av);} a=C_alloc(36); t2=C_mutate2((C_word*)lf[42]+1 /* (set! locative-ref ...) */,t1); t3=C_mutate2((C_word*)lf[43]+1 /* (set! locative->object ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2093,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[44]+1 /* (set! locative? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2096,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[45]+1 /* (set! pointer-u8-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2102,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[46]+1 /* (set! pointer-s8-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2105,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[47]+1 /* (set! pointer-u16-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2108,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[48]+1 /* (set! pointer-s16-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2111,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[49]+1 /* (set! pointer-u32-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2114,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[50]+1 /* (set! pointer-s32-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2117,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[51]+1 /* (set! pointer-f32-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2120,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[52]+1 /* (set! pointer-f64-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2123,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2128,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3377,a[2]=((C_word)li97),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:322: getter-with-setter */ t15=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t15; av2[1]=t13; av2[2]=t14; av2[3]=*((C_word*)lf[45]+1); av2[4]=lf[137]; ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} /* k3296 in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_3298(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3298,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[123]+1 /* (set! pointer-vector-ref ...) */,t1); t3=C_mutate2((C_word*)lf[124]+1 /* (set! pointer-vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3300,a[2]=((C_word)li87),tmp=(C_word)a,a+=3,tmp)); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#check-generic-structure in k1150 in k1147 */ static void C_fcall f_1218(C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_1218,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1230,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_1230(t7,t6);} else{ t6=t4; f_1230(t6,C_SCHEME_FALSE);}} /* locative-set! in k1150 in k1147 */ static void C_ccall f_2086(C_word c,C_word *av){ C_word tmp; C_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_2086,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_locative_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* pointer-s32-set! in k2089 in k1150 in k1147 */ static void C_ccall f_2117(C_word c,C_word *av){ C_word tmp; C_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_2117,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_pointer_s32_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* pointer-u32-set! in k2089 in k1150 in k1147 */ static void C_ccall f_2114(C_word c,C_word *av){ C_word tmp; C_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_2114,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_pointer_u32_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3317 in a3308 in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_3319,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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=stub817(t5,t2,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k3169 in pointer-vector in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 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_3171,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_3179,a[2]=t2,a[3]=t4,a[4]=t6,a[5]=((C_word)li81),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3179(t8,((C_word*)t0)[2],((C_word*)t0)[3],C_fix(0));} /* doloop794 in k3169 in pointer-vector in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_fcall f_3179(C_word t0,C_word 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_3179,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_3192,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:648: ##sys#check-pointer */ t7=*((C_word*)lf[6]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=t5; av2[3]=lf[117]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* pointer->object in k1150 in k1147 */ 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=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_1906,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1910,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:226: ##sys#check-pointer */ t4=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[29]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* pointer-vector-length in k3296 in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_3300,3,av);} t3=C_i_check_structure_2(t2,lf[117],lf[124]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a3308 in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_3309,4,av);} a=C_alloc(5); t4=C_i_check_structure_2(t2,lf[117],lf[123]); t5=C_i_check_exact_2(t3,lf[123]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3319,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:680: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[85]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[85]+1); av2[1]=t6; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t7; tp(5,av2);}} /* a3331 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_3332,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3336,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* lolevel.scm:462: ##sys#check-generic-structure */ f_1218(t4,t2,C_a_i_list(&a,1,lf[86]));} /* k3334 in a3331 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_3336,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3339,a[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:463: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[85]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[85]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(0); av2[4]=t4; av2[5]=lf[86]; tp(6,av2);}} /* k1228 in check-generic-structure in k1150 in k1147 */ static void C_fcall f_1230(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_1230,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:100: ##sys#signal-hook */ t4=*((C_word*)lf[3]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[4]; av2[3]=t3; av2[4]=lf[5]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ /* lolevel.scm:100: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[4]; av2[3]=C_SCHEME_FALSE; av2[4]=lf[5]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* record-instance-length in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2396(C_word c,C_word *av){ C_word tmp; C_word 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,3)))){ C_save_and_reclaim((void *)f_2396,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2400,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:451: ##sys#check-generic-structure */ f_1218(t3,t2,C_a_i_list(&a,1,lf[83]));} /* k3337 in k3334 in a3331 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3339,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2389 in record-instance-type in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2391,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_slot(((C_word*)t0)[3],C_fix(0)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3190 in doloop794 in k3169 in pointer-vector in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 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_3192,2,av);} t2=( /* lolevel.scm:649: pv-buf-set! */ f_3253(((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_3179(t6,((C_word*)t0)[7],t4,t5);} /* k3040 in doloop743 in k3010 in k3007 in k2964 in copy in k2943 in object-unevict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 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_3042,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_3021(t4,((C_word*)t0)[5],t3);} /* pointer+ in k1150 in k1147 */ static void C_ccall f_1921(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,1)))){ C_save_and_reclaim((void *)f_1921,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_i_foreign_integer_argumentp(t3); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=stub364(t4,t5,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* f3719 in release in k2762 in object-release in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f3719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f3719,2,av);} /* lolevel.scm:557: free */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1917 in k1914 in pointer=? in k1150 in k1147 */ 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,1)))){ C_save_and_reclaim((void *)f_1919,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k1914 in pointer=? in k1150 in k1147 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_1916,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1919,a[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:231: ##sys#check-special */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[27]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[30]; tp(4,av2);}} /* pointer=? in k1150 in k1147 */ 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=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_1912,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1916,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* lolevel.scm:230: ##sys#check-special */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[27]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[30]; tp(4,av2);}} /* k1908 in pointer->object in k1150 in k1147 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1910,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_pointer_to_object(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a3355 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_3356,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_u_i_pointer_f64_ref(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a3358 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_3359,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_u_i_pointer_f32_ref(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* mutate-procedure! in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_3065,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3069,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* lolevel.scm:611: ##sys#check-closure */ t5=*((C_word*)lf[65]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[114]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k3058 in object-become! in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3060,2,av);} /* lolevel.scm:608: ##sys#become! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[112]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[112]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* align-to-word in k1150 in k1147 */ 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; 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_1941,3,av);} a=C_alloc(6); if(C_truep(C_i_integerp(t2))){ t3=t1; t4=t2; t5=C_a_i_bytevector(&a,1,C_fix(4)); t6=C_i_foreign_integer_argumentp(t4); t7=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=stub374(t5,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1962,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_1962(t6,t5);} else{ t5=t3; f_1962(t5,C_SCHEME_FALSE);}}} /* k3067 in mutate-procedure! in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 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_3069,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3072,a[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:612: ##sys#check-closure */ t3=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[114]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* vector-like? in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_2287,3,av);} if(C_truep(C_blockp(t2))){ t3=C_specialp(t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2977 in k2964 in copy in k2943 in object-unevict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2979,2,av);} a=C_alloc(4); t2=C_copy_block(((C_word*)t0)[2],t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2982,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:587: hash-table-set! */ t4=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* object-become! in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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(11,c,3)))){ C_save_and_reclaim((void *)f_3056,3,av);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3060,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; t5=C_i_check_list_2(t4,lf[111]); 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_1181,a[2]=t7,a[3]=t4,a[4]=((C_word)li75),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_1181(t9,t3,t4);} /* a3373 in k2126 in k2089 in k1150 in k1147 */ 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=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_3374,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_u_i_pointer_s8_ref(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a3370 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_3371,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_u_i_pointer_u16_ref(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2274 in set-procedure-data! in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2276,2,av);} t2=C_eqp(t1,((C_word*)t0)[2]); if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* lolevel.scm:400: ##sys#signal-hook */ t3=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[4]; av2[3]=lf[69]; av2[4]=lf[70]; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* set-procedure-data! in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_2272,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2276,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:397: extend-procedure */ t5=*((C_word*)lf[63]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a3376 in k2089 in k1150 in k1147 */ static void C_ccall f_3377(C_word c,C_word *av){ C_word tmp; C_word 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_3377,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_u_i_pointer_u8_ref(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2980 in k2977 in k2964 in copy in k2943 in object-unevict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2982,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3080 in k3077 in k3070 in k3067 in mutate-procedure! in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3082,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a3364 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_3365(C_word c,C_word *av){ C_word tmp; C_word 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_3365,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_u_i_pointer_u32_ref(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a3361 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_3362,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_u_i_pointer_s32_ref(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a3367 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_3368,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_u_i_pointer_s16_ref(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* copy in k2943 in object-unevict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_fcall f_2950(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,4)))){ C_save_and_reclaim_args((void *)trf_2950,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_blockp(t2))){ if(C_truep(C_permanentp(t2))){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2966,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); /* lolevel.scm:583: hash-table-ref/default */ t4=*((C_word*)lf[92]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t2; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+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);}}} /* k3070 in k3067 in mutate-procedure! in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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; 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_3072,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_3079,a[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:615: ##sys#make-vector */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[17]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[17]+1); av2[1]=t4; av2[2]=t3; tp(3,av2);}} /* k3077 in k3070 in k3067 in mutate-procedure! in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3079,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_3082,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_3094,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:616: proc */ t5=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2964 in copy in k2943 in object-unevict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 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_2966,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_byteblockp(((C_word*)t0)[3]))){ if(C_truep(((C_word*)t0)[4])){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2979,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); t3=C_block_size(((C_word*)t0)[3]); /* lolevel.scm:586: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[110]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[110]+1); av2[1]=t2; av2[2]=t3; tp(3,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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|4,a[1]=(C_word)f_2995,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); t3=C_slot(((C_word*)t0)[3],C_fix(1)); /* lolevel.scm:591: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t2; av2[2]=t3; C_string_to_symbol(3,av2);}} else{ t2=C_block_size(((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3009,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* lolevel.scm:596: ##sys#make-vector */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[17]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[17]+1); av2[1]=t4; av2[2]=t3; tp(3,av2);}}}}} /* a3379 in k1150 in k1147 */ 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=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_3380,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_locative_ref(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3092 in k3077 in k3070 in k3067 in mutate-procedure! in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3094,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:616: ##sys#become! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[112]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[112]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t3; tp(3,av2);}} /* make-pointer-vector in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_3099,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)?((C_word*)t0)[2]:C_i_car(t3)); t6=t5; t7=C_i_check_exact_2(t2,lf[116]); t8=C_fudge(C_fix(7)); t9=C_fixnum_times(t2,t8); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3115,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* lolevel.scm:628: ##sys#make-blob */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[119]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[119]+1); av2[1]=t10; av2[2]=t9; tp(3,av2);}} /* k2996 in k2993 in k2964 in copy in k2943 in object-unevict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2998,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2993 in k2964 in copy in k2943 in object-unevict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 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_2995,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2998,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:592: hash-table-set! */ t4=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1793 in copy in object-copy in k1150 in k1147 */ static void C_ccall f_1795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1795,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_1798,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_byteblockp(((C_word*)t0)[2]); t5=(C_truep(t4)?t4:C_i_symbolp(((C_word*)t0)[2])); if(C_truep(t5)){ t6=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=(C_truep(C_specialp(((C_word*)t0)[2]))?C_fix(1):C_fix(0)); 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_1810,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t8,a[5]=((C_word*)t0)[5],a[6]=((C_word)li9),tmp=(C_word)a,a+=7,tmp)); t10=((C_word*)t8)[1]; f_1810(t10,t3,t6);}} /* k1796 in k1793 in copy in object-copy in k1150 in k1147 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1798,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* object-copy in k1150 in k1147 */ 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 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_1759,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_1765,a[2]=t4,a[3]=((C_word)li10),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_1765(t6,t1,t2);} /* copy in object-copy in k1150 in k1147 */ static void C_fcall f_1765(C_word t0,C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_1765,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_blockp(t2))){ if(C_truep(C_i_symbolp(t2))){ t3=C_slot(t2,C_fix(1)); /* lolevel.scm:192: ##sys#intern-symbol */{ C_word av2[3]; av2[0]=0; av2[1]=t1; av2[2]=t3; C_string_to_symbol(3,av2);}} else{ t3=C_block_size(t2); t4=t3; t5=(C_truep(C_byteblockp(t2))?C_words(t4):t4); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1795,a[2]=t2,a[3]=t1,a[4]=t4,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* lolevel.scm:196: ##sys#make-vector */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[17]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[17]+1); av2[1]=t6; av2[2]=t5; tp(3,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);}}} /* 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_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_lolevel_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(874))){ C_save(t1); C_rereclaim2(874*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,141); lf[1]=C_h_intern(&lf[1],14,"\003syserror-hook"); lf[3]=C_h_intern(&lf[3],15,"\003syssignal-hook"); lf[4]=C_h_intern(&lf[4],11,"\000type-error"); lf[5]=C_decode_literal(C_heaptop,"\376B\000\000#bad argument type - not a structure"); lf[6]=C_h_intern(&lf[6],17,"\003syscheck-pointer"); lf[7]=C_decode_literal(C_heaptop,"\376B\000\000!bad argument type - not a pointer"); lf[8]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\004mmap\376\003\000\000\002\376\001\000\000\010u8vector\376\003\000\000\002\376\001\000\000\011u16vector\376\003\000\000\002\376\001\000\000\011u32vector\376\003\000\000\002\376\001\000\000\010" "s8vector\376\003\000\000\002\376\001\000\000\011s16vector\376\003\000\000\002\376\001\000\000\011s32vector\376\003\000\000\002\376\001\000\000\011f32vector\376\003\000\000\002\376\001\000\000\011f64ve" "ctor\376\377\016"); lf[9]=C_h_intern(&lf[9],12,"move-memory!"); lf[10]=C_h_intern(&lf[10],9,"\003syserror"); lf[11]=C_decode_literal(C_heaptop,"\376B\000\000\034need number of bytes to move"); lf[12]=C_decode_literal(C_heaptop,"\376B\000\000!number of bytes to move too large"); lf[13]=C_h_intern(&lf[13],15,"\003sysbytevector\077"); lf[14]=C_decode_literal(C_heaptop,"\376B\000\000\033negative destination offset"); lf[15]=C_decode_literal(C_heaptop,"\376B\000\000\026negative source offset"); lf[16]=C_h_intern(&lf[16],11,"object-copy"); lf[17]=C_h_intern(&lf[17],15,"\003sysmake-vector"); lf[18]=C_h_intern(&lf[18],8,"allocate"); lf[19]=C_h_intern(&lf[19],4,"free"); lf[20]=C_h_intern(&lf[20],8,"pointer\077"); lf[21]=C_h_intern(&lf[21],13,"pointer-like\077"); lf[22]=C_h_intern(&lf[22],16,"address->pointer"); lf[23]=C_h_intern(&lf[23],20,"\003sysaddress->pointer"); lf[24]=C_h_intern(&lf[24],17,"\003syscheck-integer"); lf[25]=C_h_intern(&lf[25],16,"pointer->address"); lf[26]=C_h_intern(&lf[26],20,"\003syspointer->address"); lf[27]=C_h_intern(&lf[27],17,"\003syscheck-special"); lf[28]=C_h_intern(&lf[28],15,"object->pointer"); lf[29]=C_h_intern(&lf[29],15,"pointer->object"); lf[30]=C_h_intern(&lf[30],9,"pointer=\077"); lf[31]=C_h_intern(&lf[31],8,"pointer+"); lf[32]=C_h_intern(&lf[32],13,"align-to-word"); lf[33]=C_decode_literal(C_heaptop,"\376B\000\000,bad argument type - not a pointer or integer"); lf[34]=C_h_intern(&lf[34],11,"tag-pointer"); lf[35]=C_h_intern(&lf[35],23,"\003sysmake-tagged-pointer"); lf[36]=C_h_intern(&lf[36],15,"tagged-pointer\077"); lf[37]=C_h_intern(&lf[37],11,"pointer-tag"); lf[38]=C_h_intern(&lf[38],13,"make-locative"); lf[39]=C_h_intern(&lf[39],17,"\003sysmake-locative"); lf[40]=C_h_intern(&lf[40],18,"make-weak-locative"); lf[41]=C_h_intern(&lf[41],13,"locative-set!"); lf[42]=C_h_intern(&lf[42],12,"locative-ref"); lf[43]=C_h_intern(&lf[43],16,"locative->object"); lf[44]=C_h_intern(&lf[44],9,"locative\077"); lf[45]=C_h_intern(&lf[45],15,"pointer-u8-set!"); lf[46]=C_h_intern(&lf[46],15,"pointer-s8-set!"); lf[47]=C_h_intern(&lf[47],16,"pointer-u16-set!"); lf[48]=C_h_intern(&lf[48],16,"pointer-s16-set!"); lf[49]=C_h_intern(&lf[49],16,"pointer-u32-set!"); lf[50]=C_h_intern(&lf[50],16,"pointer-s32-set!"); lf[51]=C_h_intern(&lf[51],16,"pointer-f32-set!"); lf[52]=C_h_intern(&lf[52],16,"pointer-f64-set!"); lf[53]=C_h_intern(&lf[53],14,"pointer-u8-ref"); lf[54]=C_h_intern(&lf[54],14,"pointer-s8-ref"); lf[55]=C_h_intern(&lf[55],15,"pointer-u16-ref"); lf[56]=C_h_intern(&lf[56],15,"pointer-s16-ref"); lf[57]=C_h_intern(&lf[57],15,"pointer-u32-ref"); lf[58]=C_h_intern(&lf[58],15,"pointer-s32-ref"); lf[59]=C_h_intern(&lf[59],15,"pointer-f32-ref"); lf[60]=C_h_intern(&lf[60],15,"pointer-f64-ref"); lf[61]=C_h_intern(&lf[61],8,"extended"); lf[63]=C_h_intern(&lf[63],16,"extend-procedure"); lf[64]=C_h_intern(&lf[64],19,"\003sysdecorate-lambda"); lf[65]=C_h_intern(&lf[65],17,"\003syscheck-closure"); lf[66]=C_h_intern(&lf[66],19,"extended-procedure\077"); lf[67]=C_h_intern(&lf[67],21,"\003syslambda-decoration"); lf[68]=C_h_intern(&lf[68],14,"procedure-data"); lf[69]=C_h_intern(&lf[69],19,"set-procedure-data!"); lf[70]=C_decode_literal(C_heaptop,"\376B\000\000-bad argument type - not an extended procedure"); lf[71]=C_h_intern(&lf[71],12,"vector-like\077"); lf[72]=C_h_intern(&lf[72],10,"block-set!"); lf[73]=C_h_intern(&lf[73],14,"\003sysblock-set!"); lf[74]=C_h_intern(&lf[74],9,"block-ref"); lf[75]=C_h_intern(&lf[75],15,"number-of-slots"); lf[76]=C_decode_literal(C_heaptop,"\376B\000\000,bad argument type - not a vector-like object"); lf[77]=C_h_intern(&lf[77],15,"number-of-bytes"); lf[78]=C_decode_literal(C_heaptop,"\376B\000\0002cannot compute number of bytes of immediate object"); lf[79]=C_h_intern(&lf[79],20,"make-record-instance"); lf[80]=C_h_intern(&lf[80],18,"\003sysmake-structure"); lf[81]=C_h_intern(&lf[81],16,"record-instance\077"); lf[82]=C_h_intern(&lf[82],20,"record-instance-type"); lf[83]=C_h_intern(&lf[83],22,"record-instance-length"); lf[84]=C_h_intern(&lf[84],25,"record-instance-slot-set!"); lf[85]=C_h_intern(&lf[85],15,"\003syscheck-range"); lf[86]=C_h_intern(&lf[86],20,"record-instance-slot"); lf[87]=C_h_intern(&lf[87],14,"record->vector"); lf[88]=C_h_intern(&lf[88],15,"object-evicted\077"); lf[89]=C_h_intern(&lf[89],12,"object-evict"); lf[90]=C_h_intern(&lf[90],15,"hash-table-set!"); lf[91]=C_h_intern(&lf[91],19,"\003sysundefined-value"); lf[92]=C_h_intern(&lf[92],22,"hash-table-ref/default"); lf[93]=C_h_intern(&lf[93],15,"make-hash-table"); lf[94]=C_h_intern(&lf[94],3,"eq\077"); lf[95]=C_h_intern(&lf[95],24,"object-evict-to-location"); lf[96]=C_h_intern(&lf[96],24,"\003sysset-pointer-address!"); lf[97]=C_h_intern(&lf[97],6,"signal"); lf[98]=C_h_intern(&lf[98],24,"make-composite-condition"); lf[99]=C_h_intern(&lf[99],23,"make-property-condition"); lf[100]=C_h_intern(&lf[100],5,"evict"); lf[101]=C_h_intern(&lf[101],5,"limit"); lf[102]=C_h_intern(&lf[102],3,"exn"); lf[103]=C_h_intern(&lf[103],8,"location"); lf[104]=C_h_intern(&lf[104],7,"message"); lf[105]=C_decode_literal(C_heaptop,"\376B\000\000$cannot evict object - limit exceeded"); lf[106]=C_h_intern(&lf[106],9,"arguments"); lf[107]=C_h_intern(&lf[107],14,"object-release"); lf[108]=C_h_intern(&lf[108],11,"object-size"); lf[109]=C_h_intern(&lf[109],14,"object-unevict"); lf[110]=C_h_intern(&lf[110],15,"\003sysmake-string"); lf[111]=C_h_intern(&lf[111],14,"object-become!"); lf[112]=C_h_intern(&lf[112],11,"\003sysbecome!"); lf[113]=C_decode_literal(C_heaptop,"\376B\000\000:bad argument type - not an a-list of non-immediate objects"); lf[114]=C_h_intern(&lf[114],17,"mutate-procedure!"); lf[115]=C_h_intern(&lf[115],5,"unset"); lf[116]=C_h_intern(&lf[116],19,"make-pointer-vector"); lf[117]=C_h_intern(&lf[117],14,"pointer-vector"); lf[119]=C_h_intern(&lf[119],13,"\003sysmake-blob"); lf[120]=C_h_intern(&lf[120],15,"pointer-vector\077"); lf[121]=C_h_intern(&lf[121],20,"pointer-vector-fill!"); lf[122]=C_h_intern(&lf[122],19,"pointer-vector-set!"); lf[123]=C_h_intern(&lf[123],18,"pointer-vector-ref"); lf[124]=C_h_intern(&lf[124],21,"pointer-vector-length"); lf[125]=C_h_intern(&lf[125],18,"getter-with-setter"); lf[126]=C_decode_literal(C_heaptop,"\376B\000\000\031(pointer-vector-ref pv i)"); lf[127]=C_decode_literal(C_heaptop,"\376B\000\000\032(record-instance-slot x i)"); lf[128]=C_h_intern(&lf[128],13,"\003sysblock-ref"); lf[129]=C_decode_literal(C_heaptop,"\376B\000\000\017(block-ref x i)"); lf[130]=C_decode_literal(C_heaptop,"\376B\000\000\023(pointer-f64-ref p)"); lf[131]=C_decode_literal(C_heaptop,"\376B\000\000\023(pointer-f32-ref p)"); lf[132]=C_decode_literal(C_heaptop,"\376B\000\000\023(pointer-s32-ref p)"); lf[133]=C_decode_literal(C_heaptop,"\376B\000\000\023(pointer-u32-ref p)"); lf[134]=C_decode_literal(C_heaptop,"\376B\000\000\023(pointer-s16-ref p)"); lf[135]=C_decode_literal(C_heaptop,"\376B\000\000\023(pointer-u16-ref p)"); lf[136]=C_decode_literal(C_heaptop,"\376B\000\000\022(pointer-s8-ref p)"); lf[137]=C_decode_literal(C_heaptop,"\376B\000\000\022(pointer-u8-ref p)"); lf[138]=C_decode_literal(C_heaptop,"\376B\000\000\022(locative-ref loc)"); lf[139]=C_h_intern(&lf[139],17,"register-feature!"); lf[140]=C_h_intern(&lf[140],7,"lolevel"); C_register_lf2(lf,141,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1149,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d69_toplevel(2,av2);}} /* move-memory! in k1150 in k1147 */ static void C_ccall f_1416(C_word c,C_word *av){ C_word tmp; C_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 +41,c,7)))){ C_save_and_reclaim((void*)f_1416,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+41); 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_1437,a[2]=t2,a[3]=t3,a[4]=((C_word)li3),tmp=(C_word)a,a+=5,tmp)); t29=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1443,a[2]=t2,a[3]=t3,a[4]=((C_word)li4),tmp=(C_word)a,a+=5,tmp)); t30=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1449,a[2]=t23,a[3]=((C_word)li5),tmp=(C_word)a,a+=4,tmp)); t31=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1465,a[2]=t23,a[3]=((C_word)li6),tmp=(C_word)a,a+=4,tmp)); t32=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_1492,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:152: ##sys#check-block */ f_1154(t32,t2,C_a_i_list(&a,1,lf[9]));} /* k2553 in doloop615 in k2530 in k2520 in k2517 in k2514 in k2510 in k2501 in evict in k2486 in k2483 in k2480 in object-evict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in ... */ 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 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_2555,2,av);} t2=C_i_set_i_slot(((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_2534(t4,((C_word*)t0)[5],t3);} /* k2414 in k2411 in record-instance-slot-set! in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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; 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_2416,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k2411 in record-instance-slot-set! in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2413,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2416,a[2]=((C_word*)t0)[2],a[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:456: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[85]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[85]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(0); av2[4]=t4; av2[5]=lf[84]; tp(6,av2);}} /* record-instance-slot-set! in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(9,c,3)))){ C_save_and_reclaim((void *)f_2409,5,av);} a=C_alloc(9); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2413,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* lolevel.scm:455: ##sys#check-generic-structure */ f_1218(t5,t2,C_a_i_list(&a,1,lf[84]));} /* k2398 in record-instance-length in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2400,2,av);} t2=C_block_size(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fixnum_difference(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1470 in checkn2 in move-memory! in k1150 in k1147 */ static void C_fcall f_1472(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_1472,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:150: sizerr */ t2=((C_word*)((C_word*)t0)[4])[1]; f_1443(t2,((C_word*)t0)[3],C_a_i_list(&a,3,((C_word*)t0)[2],((C_word*)t0)[5],((C_word*)t0)[6]));}} /* number-of-bytes in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2319(C_word c,C_word *av){ C_word tmp; C_word 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,5)))){ C_save_and_reclaim((void *)f_2319,3,av);} if(C_truep(C_blockp(t2))){ if(C_truep(C_byteblockp(t2))){ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_block_size(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_block_size(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_bytes(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ /* lolevel.scm:421: ##sys#signal-hook */ t3=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t1; av2[2]=lf[4]; av2[3]=lf[77]; av2[4]=lf[78]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* k2312 in number-of-slots in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2314,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_block_size(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* number-of-slots in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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(12,c,2)))){ C_save_and_reclaim((void *)f_2310,3,av);} a=C_alloc(12); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2314,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t3; t5=t2; t6=C_a_i_list(&a,1,lf[75]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1262,a[2]=t4,a[3]=t6,a[4]=t5,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_blockp(t5))){ t8=C_specialp(t5); if(C_truep(t8)){ t9=t7; f_1262(t9,C_i_not(t8));} else{ t9=C_byteblockp(t5); t10=t7; f_1262(t10,C_i_not(t9));}} else{ t8=t7; f_1262(t8,C_SCHEME_FALSE);}} /* object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_2596,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_2600,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* lolevel.scm:504: ##sys#check-special */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[27]+1); av2[1]=t5; av2[2]=t3; av2[3]=lf[95]; tp(4,av2);}} /* a2186 in k2164 in extend-procedure in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_2187,4,av);} a=C_alloc(3); t4=C_a_i_cons(&a,2,lf[62],((C_word*)t0)[2]); t5=C_i_setslot(t2,t3,t4); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k2697 in k2640 in k2637 in k2634 in k2625 in evict in k2607 in k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2699,2,av);} a=C_alloc(4); t2=C_a_i_plus(&a,2,t1,((C_word*)t0)[2]); /* lolevel.scm:532: ##sys#set-pointer-address! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[96]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[96]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; tp(4,av2);}} /* k1879 in address->pointer in k1150 in k1147 */ static void C_ccall f_1881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1881,2,av);} /* lolevel.scm:215: ##sys#address->pointer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[23]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* object-unevict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2938(C_word c,C_word *av){ C_word tmp; C_word 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_2938,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_2945,a[2]=t6,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* lolevel.scm:579: make-hash-table */ t8=*((C_word*)lf[93]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=*((C_word*)lf[94]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k2929 in k2872 in evict in k2854 in object-size in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2931,2,av);} t2=C_bytes(C_fix(1)); t3=((C_word*)t0)[2]; f_2880(t3,C_fixnum_plus(t1,t2));} /* f_2589 in object-evict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2589(C_word c,C_word *av){ C_word tmp; C_word 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_2589,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=stub599(t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a2170 in k2164 in extend-procedure in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_2171,3,av);} if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_eqp(lf[62],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop in object-become! in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_fcall f_1181(C_word t0,C_word t1,C_word t2){ C_word 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_1181,3,t0,t1,t2);} a=C_alloc(9); 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,lf[111]); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1201,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); t8=C_u_i_car(t5); /* lolevel.scm:90: ##sys#check-block */ f_1154(t7,t8,C_a_i_list(&a,1,lf[111]));} else{ /* lolevel.scm:94: ##sys#signal-hook */ t4=*((C_word*)lf[3]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t1; av2[2]=lf[4]; av2[3]=lf[111]; av2[4]=lf[113]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}}} /* k2679 in doloop652 in k2656 in k2646 in k2643 in k2640 in k2637 in k2634 in k2625 in evict in k2607 in k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in ... */ 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 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_2681,2,av);} t2=C_i_set_i_slot(((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_2660(t4,((C_word*)t0)[5],t3);} /* k2943 in object-unevict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2945,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_2950,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t4,a[5]=((C_word)li73),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_2950(t6,((C_word*)t0)[3],((C_word*)t0)[4]);} /* sizerr in move-memory! in k1150 in k1147 */ static void C_fcall f_1443(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_1443,3,t0,t1,t2);}{ C_word av2[8]; av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[10]+1); av2[3]=lf[9]; av2[4]=lf[12]; av2[5]=((C_word*)t0)[2]; av2[6]=((C_word*)t0)[3]; av2[7]=t2; C_apply(8,av2);}} /* pointer->address in k1150 in k1147 */ static void C_ccall f_1886(C_word c,C_word *av){ C_word tmp; C_word 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_1886,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1890,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:218: ##sys#check-special */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[27]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[25]; tp(4,av2);}} /* make-locative in k1150 in k1147 */ static void C_ccall f_2054(C_word c,C_word *av){ C_word tmp; C_word 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_2054,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:292: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[39]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[39]+1); av2[1]=t1; av2[2]=t2; av2[3]=C_fix(0); av2[4]=C_SCHEME_FALSE; av2[5]=lf[38]; tp(6,av2);}} else{ t4=C_i_car(t3); /* lolevel.scm:292: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[39]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[39]+1); av2[1]=t1; av2[2]=t2; av2[3]=t4; av2[4]=C_SCHEME_FALSE; av2[5]=lf[38]; tp(6,av2);}}} /* k2915 in doloop704 in k2891 in k2881 in k2878 in k2872 in evict in k2854 in object-size in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2917,2,av);} t2=C_fixnum_plus(t1,((C_word*)((C_word*)t0)[2])[1]); t3=C_set_block_item(((C_word*)t0)[2],0,t2); t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t5=((C_word*)((C_word*)t0)[4])[1]; f_2895(t5,((C_word*)t0)[5],t4);} /* object-evicted? in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_2475,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_permanentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* object-evict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 +7,c,3)))){ C_save_and_reclaim((void*)f_2478,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|3,a[1]=(C_word)f_2482,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_2482(t6,C_u_i_car(t5));} else{ t5=t4; f_2482(t5,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2589,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp));}} /* nosizerr in move-memory! in k1150 in k1147 */ static void C_fcall f_1437(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_1437,2,t0,t1);} /* lolevel.scm:137: ##sys#error */ t2=*((C_word*)lf[10]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=t1; av2[2]=lf[9]; av2[3]=lf[11]; av2[4]=((C_word*)t0)[2]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* checkn1 in move-memory! in k1150 in k1147 */ static void C_fcall f_1449(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_1449,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:145: sizerr */ t6=((C_word*)((C_word*)t0)[2])[1]; f_1443(t6,t1,C_a_i_list(&a,2,t2,t3));}} /* k2040 in pointer-tag in k1150 in k1147 */ static void C_fcall f_2042(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_2042,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:269: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[1]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=lf[37]; av2[4]=((C_word*)t0)[3]; tp(5,av2);}}} /* record-instance-type in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2387(C_word c,C_word *av){ C_word tmp; C_word 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,3)))){ C_save_and_reclaim((void *)f_2387,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2391,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:447: ##sys#check-generic-structure */ f_1218(t3,t2,C_a_i_list(&a,1,lf[82]));} /* checkn2 in move-memory! in k1150 in k1147 */ static void C_fcall f_1465(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_1465,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(7); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1472,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_1472(t10,C_fixnum_less_or_equal_p(t2,t9));} else{ t9=t7; f_1472(t9,C_SCHEME_FALSE);}} /* k1960 in align-to-word in k1150 in k1147 */ static void C_fcall f_1962(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_1962,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1973,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:244: ##sys#pointer->address */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[26]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ /* lolevel.scm:246: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[4]; av2[3]=lf[32]; av2[4]=lf[33]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k2530 in k2520 in k2517 in k2514 in k2510 in k2501 in evict in k2486 in k2483 in k2480 in object-evict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in ... */ static void C_fcall f_2532(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_2532,2,t0,t1);} 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_2534,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)li58),tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_2534(t5,((C_word*)t0)[6],t1);} /* k2656 in k2646 in k2643 in k2640 in k2637 in k2634 in k2625 in evict in k2607 in k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in ... */ static void C_fcall f_2658(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_2658,2,t0,t1);} 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_2660,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)li62),tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_2660(t5,((C_word*)t0)[6],t1);} /* k2649 in k2646 in k2643 in k2640 in k2637 in k2634 in k2625 in evict in k2607 in k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in ... */ static void C_ccall f_2651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2651,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* allocate in k1150 in k1147 */ 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=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_1841,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=stub315(t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* ##sys#check-pointer in k1150 in k1147 */ 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=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_1275,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; /* Re-use our own argvector */ 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:114: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=t5; av2[3]=t7; av2[4]=lf[7]; av2[5]=t2; tp(6,av2);}} else{ /* lolevel.scm:114: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=t5; av2[3]=C_SCHEME_FALSE; av2[4]=lf[7]; av2[5]=t2; tp(6,av2);}}}} /* pointer? in k1150 in k1147 */ 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=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_1858,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_safe_pointerp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2520 in k2517 in k2514 in k2510 in k2501 in evict in k2486 in k2483 in k2480 in object-evict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in ... */ 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 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_2522,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2525,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_byteblockp(((C_word*)t0)[4]))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2532,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]=t2,tmp=(C_word)a,a+=7,tmp); t4=C_specialp(((C_word*)t0)[4]); if(C_truep(t4)){ t5=t3; f_2532(t5,(C_truep(t4)?C_fix(1):C_fix(0)));} else{ t5=C_i_symbolp(((C_word*)t0)[4]); t6=t3; f_2532(t6,(C_truep(t5)?C_fix(1):C_fix(0)));}}} /* k2646 in k2643 in k2640 in k2637 in k2634 in k2625 in evict in k2607 in k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in ... */ 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 t3; 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_2648,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2651,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_byteblockp(((C_word*)t0)[4]))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2658,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]=t2,tmp=(C_word)a,a+=7,tmp); t4=C_specialp(((C_word*)t0)[4]); if(C_truep(t4)){ t5=t3; f_2658(t5,(C_truep(t4)?C_fix(1):C_fix(0)));} else{ t5=C_i_symbolp(((C_word*)t0)[4]); t6=t3; f_2658(t6,(C_truep(t5)?C_fix(1):C_fix(0)));}}} /* k2643 in k2640 in k2637 in k2634 in k2625 in evict in k2607 in k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_2645,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2648,a[2]=((C_word*)t0)[2],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); /* lolevel.scm:533: hash-table-set! */ t3=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2640 in k2637 in k2634 in k2625 in evict in k2607 in k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in ... */ static void C_fcall f_2642(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(13,0,2)))){ C_save_and_reclaim_args((void *)trf_2642,2,t0,t1);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2645,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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|4,a[1]=(C_word)f_2699,a[2]=((C_word*)t0)[8],a[3]=t2,a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp); /* lolevel.scm:532: ##sys#pointer->address */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[26]+1); av2[1]=t3; av2[2]=((C_word*)t0)[9]; tp(3,av2);}} /* k1573 in move in k1499 in k1496 in k1493 in k1490 in move-memory! in k1150 in k1147 */ static void C_fcall f_1575(C_word 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_1575,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1591,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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_1591(t5,t4);} else{ t5=C_locativep(t3); t6=t2; f_1591(t6,t5);}} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1640,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:174: ##sys#bytevector? */ {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]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}} /* k1638 in k1573 in move in k1499 in k1496 in k1493 in k1490 in move-memory! in k1150 in k1147 */ static void C_ccall f_1640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1640,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_1662,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_1662(t8,t7);} else{ t8=C_locativep(t6); t9=t5; f_1662(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:128: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[9]; av2[4]=t4; tp(5,av2);}}} /* doloop615 in k2530 in k2520 in k2517 in k2514 in k2510 in k2501 in evict in k2486 in k2483 in k2480 in object-evict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in ... */ static void C_fcall f_2534(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_2534,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_2555,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); /* lolevel.scm:500: evict */ t5=((C_word*)((C_word*)t0)[6])[1]; f_2493(t5,t3,t4);}} /* free in k1150 in k1147 */ static void C_ccall f_1848(C_word c,C_word *av){ C_word tmp; C_word 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_1848,3,av);} if(C_truep(t2)){ t3=C_i_foreign_pointer_argumentp(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=stub321(C_SCHEME_UNDEFINED,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=stub321(C_SCHEME_UNDEFINED,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k1980 in tag-pointer in k1150 in k1147 */ static void C_ccall f_1982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1982,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1985,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_1993,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_1993(t7,t6);} else{ t6=t4; f_1993(t6,C_SCHEME_FALSE);}} /* k1983 in k1980 in tag-pointer in k1150 in k1147 */ static void C_ccall f_1985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1985,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2510 in k2501 in evict in k2486 in k2483 in k2480 in object-evict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2512,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2516,a[2]=((C_word*)t0)[2],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_bytes(C_fix(1)); t4=C_fixnum_plus(t1,t3); /* lolevel.scm:493: allocator */ t5=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* pointer-like? in k1150 in k1147 */ static void C_ccall f_1866(C_word c,C_word *av){ C_word tmp; C_word 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_1866,3,av);} if(C_truep(C_blockp(t2))){ t3=C_specialp(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(55,c,5)))){ C_save_and_reclaim((void *)f_2435,2,av);} a=C_alloc(55); t2=C_mutate2((C_word*)lf[86]+1 /* (set! record-instance-slot ...) */,t1); t3=C_mutate2((C_word*)lf[87]+1 /* (set! record->vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2437,a[2]=((C_word)li56),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[88]+1 /* (set! object-evicted? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2475,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[89]+1 /* (set! object-evict ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2478,a[2]=((C_word)li61),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[95]+1 /* (set! object-evict-to-location ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2596,a[2]=((C_word)li64),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[107]+1 /* (set! object-release ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2760,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[108]+1 /* (set! object-size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2852,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[109]+1 /* (set! object-unevict ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2938,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[111]+1 /* (set! object-become! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3056,a[2]=((C_word)li76),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[114]+1 /* (set! mutate-procedure! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3065,a[2]=((C_word)li77),tmp=(C_word)a,a+=3,tmp)); t12=C_a_i_list1(&a,1,lf[115]); t13=t12; t14=C_mutate2((C_word*)lf[116]+1 /* (set! make-pointer-vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3099,a[2]=t13,a[3]=((C_word)li79),tmp=(C_word)a,a+=4,tmp)); t15=C_mutate2((C_word*)lf[120]+1 /* (set! pointer-vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3160,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[117]+1 /* (set! pointer-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3166,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[121]+1 /* (set! pointer-vector-fill! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3206,a[2]=((C_word)li84),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2(&lf[118] /* (set! pv-buf-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3253,a[2]=((C_word)li85),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2((C_word*)lf[122]+1 /* (set! pointer-vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3267,a[2]=((C_word)li86),tmp=(C_word)a,a+=3,tmp)); t20=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3298,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3309,a[2]=((C_word)li88),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:676: getter-with-setter */ t22=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t22; av2[1]=t20; av2[2]=t21; av2[3]=*((C_word*)lf[122]+1); av2[4]=lf[126]; ((C_proc)(void*)(*((C_word*)t22+1)))(5,av2);}} /* k2523 in k2520 in k2517 in k2514 in k2510 in k2501 in evict in k2486 in k2483 in k2480 in object-evict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2525,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* record->vector in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2437(C_word c,C_word *av){ C_word tmp; C_word 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,3)))){ C_save_and_reclaim((void *)f_2437,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2441,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:469: ##sys#check-generic-structure */ f_1218(t3,t2,C_a_i_list(&a,1,lf[87]));} /* tag-pointer in k1150 in k1147 */ static void C_ccall f_1978(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1978,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1982,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:254: ##sys#make-tagged-pointer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[35]+1); av2[1]=t4; av2[2]=t3; tp(3,av2);}} /* k1667 in k1660 in k1638 in k1573 in move in k1499 in k1496 in k1493 in k1490 in move-memory! in k1150 in k1147 */ static void C_ccall f_1669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1669,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; /* Re-use our own argvector */ av2[0]=t10; av2[1]=stub141(C_SCHEME_UNDEFINED,t5,t6,t7,t8,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* address->pointer in k1150 in k1147 */ static void C_ccall f_1877(C_word c,C_word *av){ C_word tmp; C_word 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_1877,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1881,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:214: ##sys#check-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[24]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[24]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[22]; tp(4,av2);}} /* k1971 in k1960 in align-to-word in k1150 in k1147 */ static void C_ccall f_1973(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_1973,2,av);} a=C_alloc(6); t2=C_a_i_bytevector(&a,1,C_fix(4)); t3=C_i_foreign_integer_argumentp(t1); t4=stub374(t2,t3); /* lolevel.scm:244: ##sys#address->pointer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[23]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[23]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t4; tp(3,av2);}} /* k2501 in evict in k2486 in k2483 in k2480 in object-evict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 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_2503,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_block_size(((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2512,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],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); if(C_truep(C_byteblockp(((C_word*)t0)[3]))){ /* lolevel.scm:492: align-to-word */ t5=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_bytes(t3); f_2512(2,av2);}}}} /* extended-procedure? in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2197(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2197,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_2231,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=t2; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2214,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:383: ##sys#lambda-decoration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[67]+1); av2[1]=t3; av2[2]=t4; av2[3]=t5; tp(4,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k1589 in k1573 in move in k1499 in k1496 in k1493 in k1490 in move-memory! in k1150 in k1147 */ static void C_fcall f_1591(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_1591,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1598,a[2]=((C_word*)t0)[2],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_1598(2,av2);}} else{ /* lolevel.scm:169: nosizerr */ t3=((C_word*)((C_word*)t0)[8])[1]; f_1437(t3,t2);}} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1607,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:170: ##sys#bytevector? */ {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]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}}} /* k1888 in pointer->address in k1150 in k1147 */ 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,2)))){ C_save_and_reclaim((void *)f_1890,2,av);} /* lolevel.scm:219: ##sys#pointer->address */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[26]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* object->pointer in k1150 in k1147 */ 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 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_1895,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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=stub349(t5,t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* doloop652 in k2656 in k2646 in k2643 in k2640 in k2637 in k2634 in k2625 in evict in k2607 in k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in ... */ static void C_fcall f_2660(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_2660,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_2681,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); /* lolevel.scm:537: evict */ t5=((C_word*)((C_word*)t0)[6])[1]; f_2617(t5,t3,t4);}} /* k1660 in k1638 in k1573 in move in k1499 in k1496 in k1493 in k1490 in move-memory! in k1150 in k1147 */ static void C_fcall f_1662(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_1662,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,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],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[7])){ /* lolevel.scm:177: checkn1 */ t3=((C_word*)((C_word*)t0)[8])[1]; f_1449(t3,t2,((C_word*)t0)[7],((C_word*)t0)[9],((C_word*)t0)[6]);} else{ /* lolevel.scm:177: checkn1 */ t3=((C_word*)((C_word*)t0)[8])[1]; f_1449(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_1679,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:178: ##sys#bytevector? */ {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]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}}} /* k2514 in k2510 in k2501 in evict in k2486 in k2483 in k2480 in object-evict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 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_2516,2,av);} a=C_alloc(8); t2=C_evict_block(((C_word*)t0)[2],t1); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2519,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],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){ t4=*((C_word*)lf[91]+1); t5=t3; f_2519(t5,C_i_set_i_slot(t2,C_fix(0),*((C_word*)lf[91]+1)));} else{ t4=t3; f_2519(t4,C_SCHEME_UNDEFINED);}} /* k2517 in k2514 in k2510 in k2501 in evict in k2486 in k2483 in k2480 in object-evict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 in ... */ static void C_fcall f_2519(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,4)))){ C_save_and_reclaim_args((void *)trf_2519,2,t0,t1);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2522,a[2]=((C_word*)t0)[2],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); /* lolevel.scm:495: hash-table-set! */ t3=*((C_word*)lf[90]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k1596 in k1589 in k1573 in move in k1499 in k1496 in k1493 in k1490 in move-memory! in k1150 in k1147 */ 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 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_1598,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; /* Re-use our own argvector */ av2[0]=t10; av2[1]=stub125(C_SCHEME_UNDEFINED,t5,t6,t7,t8,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* make-record-instance in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_2342,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[79]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[80]+1); av2[3]=t2; av2[4]=t3; C_apply(5,av2);}} /* evict in k2607 in k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_fcall f_2617(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(8,0,4)))){ C_save_and_reclaim_args((void *)trf_2617,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_blockp(t2))){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2627,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); /* lolevel.scm:514: hash-table-ref/default */ t4=*((C_word*)lf[92]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t2; av2[4]=C_SCHEME_FALSE; ((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);}}} /* pointer-tag in k1150 in k1147 */ static void C_ccall f_2030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2030,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2042,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_2042(t6,t5);} else{ t5=t3; f_2042(t5,C_SCHEME_FALSE);}} /* k2610 in k2607 in k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2612,2,av);} /* lolevel.scm:539: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1991 in k1980 in tag-pointer in k1150 in k1147 */ static void C_fcall f_1993(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_1993,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:257: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[1]+1); av2[1]=((C_word*)t0)[5]; av2[2]=t2; av2[3]=lf[34]; av2[4]=((C_word*)t0)[2]; tp(5,av2);}}} /* k1687 in k1677 in k1660 in k1638 in k1573 in move in k1499 in k1496 in k1493 in k1490 in move-memory! in k1150 in k1147 */ 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 t3; 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_1689,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; /* Re-use our own argvector */ av2[0]=t10; av2[1]=stub173(C_SCHEME_UNDEFINED,t5,t6,t7,t8,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* tagged-pointer? in k1150 in k1147 */ static void C_ccall f_1999(C_word c,C_word *av){ C_word tmp; C_word 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_1999,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k3125 in k3113 in make-pointer-vector in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_3127,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3132,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li78),tmp=(C_word)a,a+=6,tmp); t3=( f_3132(t2,C_fix(0)) ); t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record3(&a,3,lf[117],((C_word*)t0)[2],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* doloop585 in k2445 in k2439 in record->vector in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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_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;}} /* k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2606,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2609,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); /* lolevel.scm:510: make-hash-table */ t4=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[94]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2607 in k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2609(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2609,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2612,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|6,a[1]=(C_word)f_2617,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word)li63),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_2617(t7,t3,((C_word*)t0)[5]);} /* k1829 in doloop306 in k1793 in copy in object-copy in k1150 in k1147 */ 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; 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_1831,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_1810(t4,((C_word*)t0)[5],t3);} /* k2445 in k2439 in record->vector in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 *a; C_check_for_interrupt; 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=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2452,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word)li55),tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_2452(t3,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_fcall f_2603(C_word 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_2603,2,t0,t1);} 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|4,a[1]=(C_word)f_2606,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_2751,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:509: ##sys#pointer->address */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[26]+1); av2[1]=t5; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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; C_word t3; 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_2600,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2603,a[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=C_i_check_exact_2(t4,lf[95]); t6=t2; f_2603(t6,t4);} else{ t3=t2; f_2603(t3,C_SCHEME_FALSE);}} /* k2439 in record->vector in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 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_2441,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_2447,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* lolevel.scm:471: ##sys#make-vector */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[17]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[17]+1); av2[1]=t4; av2[2]=t3; tp(3,av2);}} /* k3113 in make-pointer-vector in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3115,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record3(&a,3,lf[117],((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_3127,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:631: ##sys#check-pointer */ t5=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=lf[116]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_3127(2,av2);}}}} /* k2634 in k2625 in evict in k2607 in k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_fcall f_2636(C_word t0,C_word t1){ C_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(22,0,8)))){ C_save_and_reclaim_args((void *)trf_2636,2,t0,t1);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2639,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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)[8])[1])){ t4=C_fixnum_difference(((C_word*)((C_word*)t0)[8])[1],t2); t5=C_set_block_item(((C_word*)t0)[8],0,t4); if(C_truep(C_fixnum_lessp(((C_word*)((C_word*)t0)[8])[1],C_fix(0)))){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2726,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2730,a[2]=t6,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); t8=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[8])[1]); /* lolevel.scm:525: make-property-condition */ t9=*((C_word*)lf[99]+1);{ C_word av2[9]; av2[0]=t9; av2[1]=t7; av2[2]=lf[102]; av2[3]=lf[103]; av2[4]=lf[95]; av2[5]=lf[104]; av2[6]=lf[105]; av2[7]=lf[106]; av2[8]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(9,av2);}} else{ t6=C_SCHEME_UNDEFINED; t7=t3;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; f_2639(2,av2);}}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2639(2,av2);}}} /* k2637 in k2634 in k2625 in evict in k2607 in k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 in ... */ static void C_ccall f_2639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2639,2,av);} a=C_alloc(10); t2=C_evict_block(((C_word*)t0)[2],((C_word*)t0)[3]); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2642,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],tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){ t4=*((C_word*)lf[91]+1); t5=t3; f_2642(t5,C_i_set_i_slot(t2,C_fix(0),*((C_word*)lf[91]+1)));} else{ t4=t3; f_2642(t4,C_SCHEME_UNDEFINED);}} /* record-instance? in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2351(C_word c,C_word *av){ C_word tmp; C_word 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_2351,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_2366,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_2366(t10,t9);} else{ t9=t7; f_2366(t9,C_SCHEME_FALSE);}} /* k2625 in evict in k2607 in k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2627,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_block_size(((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2636,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2742,a[2]=t4,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_byteblockp(((C_word*)t0)[3]))){ /* lolevel.scm:518: align-to-word */ t6=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t6=C_bytes(t3); t7=C_bytes(C_fix(1)); t8=t4; f_2636(t8,C_fixnum_plus(t6,t7));}}} /* k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_2308,2,av);} a=C_alloc(27); t2=C_mutate2((C_word*)lf[74]+1 /* (set! block-ref ...) */,t1); t3=C_mutate2((C_word*)lf[75]+1 /* (set! number-of-slots ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2310,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[77]+1 /* (set! number-of-bytes ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2319,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[79]+1 /* (set! make-record-instance ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2342,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[81]+1 /* (set! record-instance? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2351,a[2]=((C_word)li51),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[82]+1 /* (set! record-instance-type ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2387,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[83]+1 /* (set! record-instance-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2396,a[2]=((C_word)li53),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[84]+1 /* (set! record-instance-slot-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2409,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2435,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3332,a[2]=((C_word)li89),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:460: getter-with-setter */ t12=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t12; av2[1]=t10; av2[2]=t11; av2[3]=*((C_word*)lf[84]+1); av2[4]=lf[127]; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} /* k2364 in record-instance? in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_fcall f_2366(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_2366,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);}}} /* k3007 in k2964 in copy in k2943 in object-unevict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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(7,c,4)))){ C_save_and_reclaim((void *)f_3009,2,av);} a=C_alloc(7); t2=C_copy_block(((C_word*)t0)[2],t1); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3012,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],tmp=(C_word)a,a+=7,tmp); /* lolevel.scm:597: hash-table-set! */ t4=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[2]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2891 in k2881 in k2878 in k2872 in evict in k2854 in object-size in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_fcall f_2893(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_2893,2,t0,t1);} 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_2895,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)li69),tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_2895(t5,((C_word*)t0)[6],t1);} /* doloop704 in k2891 in k2881 in k2878 in k2872 in evict in k2854 in object-size in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_fcall f_2895(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_2895,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_2917,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); /* lolevel.scm:575: evict */ t5=((C_word*)((C_word*)t0)[6])[1]; f_2861(t5,t3,t4);}} /* k1150 in k1147 */ static void C_ccall f_1152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(73,c,4)))){ C_save_and_reclaim((void *)f_1152,2,av);} a=C_alloc(73); t2=C_mutate2(&lf[0] /* (set! ##sys#check-block ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1154,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2(&lf[2] /* (set! ##sys#check-generic-structure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1218,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[6]+1 /* (set! ##sys#check-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1275,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t5=lf[8]; t6=C_mutate2((C_word*)lf[9]+1 /* (set! move-memory! ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1416,a[2]=t5,a[3]=((C_word)li8),tmp=(C_word)a,a+=4,tmp)); t7=C_mutate2((C_word*)lf[16]+1 /* (set! object-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1759,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[18]+1 /* (set! allocate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1841,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[19]+1 /* (set! free ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1848,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[20]+1 /* (set! pointer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1858,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[21]+1 /* (set! pointer-like? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1866,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[22]+1 /* (set! address->pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1877,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[25]+1 /* (set! pointer->address ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1886,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[28]+1 /* (set! object->pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1895,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[29]+1 /* (set! pointer->object ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1906,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[30]+1 /* (set! pointer=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1912,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[31]+1 /* (set! pointer+ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1921,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2((C_word*)lf[32]+1 /* (set! align-to-word ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1941,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2((C_word*)lf[34]+1 /* (set! tag-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1978,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2((C_word*)lf[36]+1 /* (set! tagged-pointer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1999,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate2((C_word*)lf[37]+1 /* (set! pointer-tag ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2030,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate2((C_word*)lf[38]+1 /* (set! make-locative ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2054,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate2((C_word*)lf[40]+1 /* (set! make-weak-locative ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2070,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate2((C_word*)lf[41]+1 /* (set! locative-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2086,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); t25=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2091,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3380,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:300: getter-with-setter */ t27=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t27; av2[1]=t25; av2[2]=t26; av2[3]=*((C_word*)lf[41]+1); av2[4]=lf[138]; ((C_proc)(void*)(*((C_word*)t27+1)))(5,av2);}} /* ##sys#check-block in k1150 in k1147 */ static void C_fcall f_1154(C_word 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_1154,3,t1,t2,t3);} if(C_truep(C_blockp(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_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:79: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=t4; av2[3]=t6; av2[4]=t2; tp(5,av2);}} else{ /* lolevel.scm:79: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=t2; tp(5,av2);}}}} /* extend-procedure in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_2162,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2166,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* lolevel.scm:376: ##sys#check-closure */ t5=*((C_word*)lf[65]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[63]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k2881 in k2878 in k2872 in evict in k2854 in object-size in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 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_2883,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2886,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_byteblockp(((C_word*)t0)[4]))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2893,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]=t2,tmp=(C_word)a,a+=7,tmp); t4=C_specialp(((C_word*)t0)[4]); if(C_truep(t4)){ t5=t3; f_2893(t5,(C_truep(t4)?C_fix(1):C_fix(0)));} else{ t5=C_i_symbolp(((C_word*)t0)[4]); t6=t3; f_2893(t6,(C_truep(t5)?C_fix(1):C_fix(0)));}}} /* k2884 in k2881 in k2878 in k2872 in evict in k2854 in object-size in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2886,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 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_2152,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[59]+1 /* (set! pointer-f32-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2156,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3356,a[2]=((C_word)li90),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:364: getter-with-setter */ t5=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[52]+1); av2[4]=lf[130]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k2878 in k2872 in evict in k2854 in object-size in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_fcall f_2880(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,4)))){ C_save_and_reclaim_args((void *)trf_2880,2,t0,t1);} a=C_alloc(9); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2883,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); /* lolevel.scm:571: hash-table-set! */ t5=*((C_word*)lf[90]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[3]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* doloop306 in k1793 in copy in object-copy in k1150 in k1147 */ static void C_fcall f_1810(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_1810,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_1831,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:200: copy */ t5=((C_word*)((C_word*)t0)[5])[1]; f_1765(t5,t3,t4);}} /* k2164 in extend-procedure in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2166,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2171,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2187,a[2]=((C_word*)t0)[2],a[3]=((C_word)li40),tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:377: ##sys#decorate-lambda */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[64]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[64]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; av2[4]=t3; tp(5,av2);}} /* doloop743 in k3010 in k3007 in k2964 in copy in k2943 in object-unevict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_fcall f_3021(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_3021,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_3042,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:600: copy */ t5=((C_word*)((C_word*)t0)[5])[1]; f_2950(t5,t3,t4);}} /* k1260 in number-of-slots in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_fcall f_1262(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,5)))){ C_save_and_reclaim_args((void *)trf_1262,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_u_i_car(((C_word*)t0)[3]); /* lolevel.scm:108: ##sys#signal-hook */ t3=*((C_word*)lf[3]+1);{ C_word av2[6]; av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[4]; av2[3]=t2; av2[4]=lf[76]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ /* lolevel.scm:108: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[4]; av2[3]=C_SCHEME_FALSE; av2[4]=lf[76]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2140,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[56]+1 /* (set! pointer-s16-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2144,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3365,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:346: getter-with-setter */ t5=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[49]+1); av2[4]=lf[133]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1499 in k1496 in k1493 in k1490 in move-memory! in k1150 in k1147 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_1501,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_1506,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)li7),tmp=(C_word)a,a+=11,tmp)); t5=((C_word*)t3)[1]; f_1506(t5,((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);} /* k1490 in move-memory! in k1150 in k1147 */ 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 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_1492,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_1495,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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:153: ##sys#check-block */ f_1154(t2,((C_word*)t0)[11],C_a_i_list(&a,1,lf[9]));} /* move in k1499 in k1496 in k1493 in k1490 in move-memory! in k1150 in k1147 */ static void C_fcall f_1506(C_word t0,C_word t1,C_word 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_1506,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:161: 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:128: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[1]+1); av2[1]=t5; av2[2]=t7; av2[3]=lf[9]; 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:165: 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:128: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[1]+1); av2[1]=t5; av2[2]=t7; av2[3]=lf[9]; av2[4]=t6; tp(5,av2);}}} else{ t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_1575,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_1575(t7,t6);} else{ t7=C_locativep(t5); t8=t4; f_1575(t8,t7);}}}} /* k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 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_2156,2,av);} a=C_alloc(20); t2=C_mutate2((C_word*)lf[60]+1 /* (set! pointer-f64-ref ...) */,t1); t3=C_a_i_vector1(&a,1,lf[61]); t4=C_mutate2(&lf[62] /* (set! xproc-tag ...) */,t3); t5=C_mutate2((C_word*)lf[63]+1 /* (set! extend-procedure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2162,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[66]+1 /* (set! extended-procedure? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2197,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[68]+1 /* (set! procedure-data ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2233,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[69]+1 /* (set! set-procedure-data! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2272,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[71]+1 /* (set! vector-like? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2287,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[72]+1 /* (set! block-set! ...) */,*((C_word*)lf[73]+1)); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2308,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:412: getter-with-setter */ t12=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t12; av2[1]=t11; av2[2]=*((C_word*)lf[128]+1); av2[3]=*((C_word*)lf[73]+1); av2[4]=lf[129]; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} /* k3013 in k3010 in k3007 in k2964 in copy in k2943 in object-unevict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3010 in k3007 in k2964 in copy in k2943 in object-unevict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_3012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_3012,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3015,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(C_truep(C_specialp(((C_word*)t0)[4]))?C_fix(1):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|6,a[1]=(C_word)f_3021,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=t5,a[5]=((C_word*)t0)[6],a[6]=((C_word)li72),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_3021(t7,t2,t3);} /* pointer-vector-fill! in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_3206(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_3206,4,av);} a=C_alloc(5); t4=C_i_check_structure_2(t2,lf[117],lf[121]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3213,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(t3)){ /* lolevel.scm:653: ##sys#check-pointer */ t6=*((C_word*)lf[6]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t3; av2[3]=lf[121]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_3213(2,av2);}}} /* k1605 in k1589 in k1573 in move in k1499 in k1496 in k1493 in k1490 in move-memory! in k1150 in k1147 */ 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 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_1607,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_1617,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_1621,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:171: checkn1 */ t6=((C_word*)((C_word*)t0)[7])[1]; f_1449(t6,t3,((C_word*)t0)[8],t5,((C_word*)t0)[5]);} else{ /* lolevel.scm:171: nosizerr */ t5=((C_word*)((C_word*)t0)[9])[1]; f_1437(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:128: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[9]; av2[4]=t4; tp(5,av2);}}} /* k1677 in k1660 in k1638 in k1573 in move in k1499 in k1496 in k1493 in k1490 in move-memory! in k1150 in k1147 */ 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 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_1679,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_1689,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:179: checkn2 */ t6=((C_word*)((C_word*)t0)[9])[1]; f_1465(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:128: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[9]; av2[4]=t4; tp(5,av2);}}} /* k1496 in k1493 in k1490 in move-memory! in k1150 in k1147 */ static void C_ccall f_1498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1498,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_1501,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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:157: ##sys#error */ t3=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[9]; av2[3]=lf[14]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_1501(2,av2);}}} /* k1493 in k1490 in move-memory! in k1150 in k1147 */ static void C_ccall f_1495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1495,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_1498,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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:155: ##sys#error */ t3=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[9]; av2[3]=lf[15]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_1498(2,av2);}}} /* k2854 in object-size in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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; C_word t3; 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_2856,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_2861,a[2]=t4,a[3]=t2,a[4]=((C_word)li70),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_2861(t6,((C_word*)t0)[2],((C_word*)t0)[3]);} /* k2796 in release in k2762 in object-release in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_2798,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2805,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:558: ##sys#address->pointer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[23]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[23]+1); av2[1]=t2; av2[2]=C_block_address(&a,1,((C_word*)t0)[4]); tp(3,av2);}} /* make-weak-locative in k1150 in k1147 */ static void C_ccall f_2070(C_word c,C_word *av){ C_word tmp; C_word 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_2070,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:295: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[39]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[39]+1); av2[1]=t1; av2[2]=t2; av2[3]=C_fix(0); av2[4]=C_SCHEME_TRUE; av2[5]=lf[40]; tp(6,av2);}} else{ t4=C_i_car(t3); /* lolevel.scm:295: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[39]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[39]+1); av2[1]=t1; av2[2]=t2; av2[3]=t4; av2[4]=C_SCHEME_TRUE; av2[5]=lf[40]; tp(6,av2);}}} /* object-size in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_2852,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2856,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:562: make-hash-table */ t4=*((C_word*)lf[93]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[94]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* doloop807 in k3211 in pointer-vector-fill! in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static C_word C_fcall f_3224(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:658: pv-buf-set! */ f_3253(((C_word*)t0)[3],t1,((C_word*)t0)[4]) ); t3=C_fixnum_plus(t1,C_fix(1)); t5=t3; t1=t5; goto loop;}} /* f_2842 in object-release in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2842(C_word c,C_word *av){ C_word tmp; C_word 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_2842,3,av);} if(C_truep(t2)){ t3=C_i_foreign_pointer_argumentp(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=stub673(C_SCHEME_UNDEFINED,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=stub673(C_SCHEME_UNDEFINED,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k1619 in k1605 in k1589 in k1573 in move in k1499 in k1496 in k1493 in k1490 in move-memory! in k1150 in k1147 */ 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; 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_1621,2,av);} t2=C_block_size(((C_word*)t0)[2]); /* lolevel.scm:171: checkn1 */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1449(t3,((C_word*)t0)[4],t1,t2,((C_word*)t0)[5]);} /* k2872 in evict in k2854 in object-size in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,2)))){ C_save_and_reclaim((void *)f_2874,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_block_size(((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2880,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|2,a[1]=(C_word)f_2931,a[2]=t4,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_byteblockp(((C_word*)t0)[3]))){ /* lolevel.scm:569: align-to-word */ t6=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t6=C_bytes(t3); t7=C_bytes(C_fix(1)); t8=t4; f_2880(t8,C_fixnum_plus(t6,t7));}}} /* k3211 in pointer-vector-fill! in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 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_3213,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_3224,a[2]=t5,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word)li83),tmp=(C_word)a,a+=6,tmp); t7=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=( f_3224(t6,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k1615 in k1605 in k1589 in k1573 in move in k1499 in k1496 in k1493 in k1490 in move-memory! in k1150 in k1147 */ 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; C_word t3; 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_1617,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; /* Re-use our own argvector */ av2[0]=t10; av2[1]=stub157(C_SCHEME_UNDEFINED,t5,t6,t7,t8,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* evict in k2486 in k2483 in k2480 in object-evict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_fcall f_2493(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,4)))){ C_save_and_reclaim_args((void *)trf_2493,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_blockp(t2))){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2503,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); /* lolevel.scm:489: hash-table-ref/default */ t4=*((C_word*)lf[92]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t2; av2[4]=C_SCHEME_FALSE; ((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);}}} /* release in k2762 in object-release in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_fcall f_2769(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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,0,3)))){ C_save_and_reclaim_args((void *)trf_2769,3,t0,t1,t2);} a=C_alloc(17); if(C_truep(C_blockp(t2))){ if(C_truep(C_permanentp(t2))){ if(C_truep(C_i_memq(t2,((C_word*)((C_word*)t0)[2])[1]))){ 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_block_size(t2); t4=t3; t5=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[2])[1]); t6=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t5); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2798,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_byteblockp(t2))){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f3719,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:558: ##sys#address->pointer */ {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]=t8; av2[2]=C_block_address(&a,1,t2); tp(3,av2);}} else{ t8=(C_truep(C_specialp(t2))?C_fix(1):C_fix(0)); 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_2814,a[2]=t4,a[3]=t10,a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word)li65),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_2814(t12,t7,t8);}}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+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);}}} /* k2762 in object-release in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_fcall f_2764(C_word t0,C_word t1){ C_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,3)))){ C_save_and_reclaim_args((void *)trf_2764,2,t0,t1);} a=C_alloc(10); 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=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_2769,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li66),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_2769(t8,((C_word*)t0)[2],((C_word*)t0)[3]);} /* a2213 in extended-procedure? in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2214(C_word c,C_word *av){ C_word tmp; C_word 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_2214,3,av);} if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_eqp(lf[62],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* evict in k2854 in object-size in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_fcall f_2861(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,4)))){ C_save_and_reclaim_args((void *)trf_2861,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_blockp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2874,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); /* lolevel.scm:565: hash-table-ref/default */ t4=*((C_word*)lf[92]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t2; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* object-release in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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,3)))){ C_save_and_reclaim((void*)f_2760,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|3,a[1]=(C_word)f_2764,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_2764(t6,C_u_i_car(t5));} else{ t5=t4; f_2764(t5,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2842,a[2]=((C_word)li67),tmp=(C_word)a,a+=3,tmp));}} /* k2483 in k2480 in object-evict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2485,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2488,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); /* lolevel.scm:486: ##sys#check-closure */ t4=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=lf[89]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2486 in k2483 in k2480 in object-evict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2488,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_2493,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li59),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_2493(t5,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k2480 in object-evict in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_fcall f_2482(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_2482,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2485,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* lolevel.scm:485: make-hash-table */ t4=*((C_word*)lf[93]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[94]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* pointer-u16-set! in k2089 in k1150 in k1147 */ 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=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_2108,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_pointer_u16_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* pointer-s8-set! in k2089 in k1150 in k1147 */ 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=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_2105,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_pointer_s8_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* doloop685 in release in k2762 in object-release in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_fcall f_2814(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_2814,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_2824,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(((C_word*)t0)[4],t2); /* lolevel.scm:556: release */ t5=((C_word*)((C_word*)t0)[5])[1]; f_2769(t5,t3,t4);}} /* a2246 in procedure-data in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_2247,3,av);} if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_eqp(lf[62],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2749 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2751,2,av);} /* lolevel.scm:509: ##sys#address->pointer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[23]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[23]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k2803 in k2796 in release in k2762 in object-release in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2805,2,av);} /* lolevel.scm:557: free */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2740 in k2625 in evict in k2607 in k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2742,2,av);} t2=C_bytes(C_fix(1)); t3=((C_word*)t0)[2]; f_2636(t3,C_fixnum_plus(t1,t2));} /* pointer-vector-set! in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_3267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3267,5,av);} a=C_alloc(6); t5=C_i_check_structure_2(t2,lf[117],lf[123]); t6=C_i_check_exact_2(t3,lf[123]); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3277,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:671: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[85]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[85]+1); av2[1]=t7; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t8; tp(5,av2);}} /* procedure-data in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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=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_2233,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_2264,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=t2; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2247,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:383: ##sys#lambda-decoration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[67]+1); av2[1]=t3; av2[2]=t4; av2[3]=t5; tp(4,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2229 in extended-procedure? in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2231,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2732 in k2728 in k2634 in k2625 in evict in k2607 in k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in ... */ static void C_ccall f_2734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2734,2,av);} /* lolevel.scm:524: make-composite-condition */ t2=*((C_word*)lf[98]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2262 in procedure-data in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2264,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* pv-buf-set! in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static C_word C_fcall f_3253(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(stub826(C_SCHEME_UNDEFINED,t1,t4,t5));} else{ return(stub826(C_SCHEME_UNDEFINED,t1,t4,C_SCHEME_FALSE));}} /* k2728 in k2634 in k2625 in evict in k2607 in k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 in ... */ 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 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_2730,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2734,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:529: make-property-condition */ t4=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[100]; av2[3]=lf[101]; av2[4]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2724 in k2634 in k2625 in evict in k2607 in k2604 in k2601 in k2598 in object-evict-to-location in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 in ... */ static void C_ccall f_2726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2726,2,av);} /* lolevel.scm:523: signal */ t2=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2822 in doloop685 in release in k2762 in object-release in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2824,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2814(t3,((C_word*)t0)[4],t2);} /* k2130 in k2126 in k2089 in k1150 in k1147 */ 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 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_2132,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[54]+1 /* (set! pointer-s8-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2136,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3371,a[2]=((C_word)li95),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:334: getter-with-setter */ t5=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[47]+1); av2[4]=lf[135]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k3278 in k3275 in pointer-vector-set! in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 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_3280,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(2)); /* lolevel.scm:673: pv-buf-set! */ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( /* lolevel.scm:673: pv-buf-set! */ f_3253(t2,((C_word*)t0)[4],((C_word*)t0)[5]) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ 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 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_2144,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[57]+1 /* (set! pointer-u32-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2148,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3362,a[2]=((C_word)li92),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:352: getter-with-setter */ t5=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[50]+1); av2[4]=lf[132]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static void C_ccall f_2148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2148,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[58]+1 /* (set! pointer-s32-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2152,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3359,a[2]=((C_word)li91),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:358: getter-with-setter */ t5=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[51]+1); av2[4]=lf[131]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* doloop779 in k3125 in k3113 in make-pointer-vector in k2433 in k2306 in k2154 in k2150 in k2146 in k2142 in k2138 in k2134 in k2130 in k2126 in k2089 in k1150 in k1147 */ static C_word C_fcall f_3132(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:634: pv-buf-set! */ f_3253(((C_word*)t0)[3],t1,((C_word*)t0)[4]) ); t3=C_fixnum_plus(t1,C_fix(1)); t5=t3; t1=t5; goto loop;}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[231] = { {"f_1204:lolevel_2escm",(void*)f_1204}, {"f_2120:lolevel_2escm",(void*)f_2120}, {"f_1201:lolevel_2escm",(void*)f_1201}, {"f_3277:lolevel_2escm",(void*)f_3277}, {"f_3166:lolevel_2escm",(void*)f_3166}, {"f_2136:lolevel_2escm",(void*)f_2136}, {"f_3160:lolevel_2escm",(void*)f_3160}, {"f_2111:lolevel_2escm",(void*)f_2111}, {"f_1149:lolevel_2escm",(void*)f_1149}, {"f_2096:lolevel_2escm",(void*)f_2096}, {"f_2128:lolevel_2escm",(void*)f_2128}, {"f_2123:lolevel_2escm",(void*)f_2123}, {"f_2102:lolevel_2escm",(void*)f_2102}, {"f_2093:lolevel_2escm",(void*)f_2093}, {"f_2091:lolevel_2escm",(void*)f_2091}, {"f_3298:lolevel_2escm",(void*)f_3298}, {"f_1218:lolevel_2escm",(void*)f_1218}, {"f_2086:lolevel_2escm",(void*)f_2086}, {"f_2117:lolevel_2escm",(void*)f_2117}, {"f_2114:lolevel_2escm",(void*)f_2114}, {"f_3319:lolevel_2escm",(void*)f_3319}, {"f_3171:lolevel_2escm",(void*)f_3171}, {"f_3179:lolevel_2escm",(void*)f_3179}, {"f_1906:lolevel_2escm",(void*)f_1906}, {"f_3300:lolevel_2escm",(void*)f_3300}, {"f_3309:lolevel_2escm",(void*)f_3309}, {"f_3332:lolevel_2escm",(void*)f_3332}, {"f_3336:lolevel_2escm",(void*)f_3336}, {"f_1230:lolevel_2escm",(void*)f_1230}, {"f_2396:lolevel_2escm",(void*)f_2396}, {"f_3339:lolevel_2escm",(void*)f_3339}, {"f_2391:lolevel_2escm",(void*)f_2391}, {"f_3192:lolevel_2escm",(void*)f_3192}, {"f_3042:lolevel_2escm",(void*)f_3042}, {"f_1921:lolevel_2escm",(void*)f_1921}, {"f3719:lolevel_2escm",(void*)f3719}, {"f_1919:lolevel_2escm",(void*)f_1919}, {"f_1916:lolevel_2escm",(void*)f_1916}, {"f_1912:lolevel_2escm",(void*)f_1912}, {"f_1910:lolevel_2escm",(void*)f_1910}, {"f_3356:lolevel_2escm",(void*)f_3356}, {"f_3359:lolevel_2escm",(void*)f_3359}, {"f_3065:lolevel_2escm",(void*)f_3065}, {"f_3060:lolevel_2escm",(void*)f_3060}, {"f_1941:lolevel_2escm",(void*)f_1941}, {"f_3069:lolevel_2escm",(void*)f_3069}, {"f_2287:lolevel_2escm",(void*)f_2287}, {"f_2979:lolevel_2escm",(void*)f_2979}, {"f_3056:lolevel_2escm",(void*)f_3056}, {"f_3374:lolevel_2escm",(void*)f_3374}, {"f_3371:lolevel_2escm",(void*)f_3371}, {"f_2276:lolevel_2escm",(void*)f_2276}, {"f_2272:lolevel_2escm",(void*)f_2272}, {"f_3377:lolevel_2escm",(void*)f_3377}, {"f_2982:lolevel_2escm",(void*)f_2982}, {"f_3082:lolevel_2escm",(void*)f_3082}, {"f_3365:lolevel_2escm",(void*)f_3365}, {"f_3362:lolevel_2escm",(void*)f_3362}, {"f_3368:lolevel_2escm",(void*)f_3368}, {"f_2950:lolevel_2escm",(void*)f_2950}, {"f_3072:lolevel_2escm",(void*)f_3072}, {"f_3079:lolevel_2escm",(void*)f_3079}, {"f_2966:lolevel_2escm",(void*)f_2966}, {"f_3380:lolevel_2escm",(void*)f_3380}, {"f_3094:lolevel_2escm",(void*)f_3094}, {"f_3099:lolevel_2escm",(void*)f_3099}, {"f_2998:lolevel_2escm",(void*)f_2998}, {"f_2995:lolevel_2escm",(void*)f_2995}, {"f_1795:lolevel_2escm",(void*)f_1795}, {"f_1798:lolevel_2escm",(void*)f_1798}, {"f_1759:lolevel_2escm",(void*)f_1759}, {"f_1765:lolevel_2escm",(void*)f_1765}, {"toplevel:lolevel_2escm",(void*)C_lolevel_toplevel}, {"f_1416:lolevel_2escm",(void*)f_1416}, {"f_2555:lolevel_2escm",(void*)f_2555}, {"f_2416:lolevel_2escm",(void*)f_2416}, {"f_2413:lolevel_2escm",(void*)f_2413}, {"f_2409:lolevel_2escm",(void*)f_2409}, {"f_2400:lolevel_2escm",(void*)f_2400}, {"f_1472:lolevel_2escm",(void*)f_1472}, {"f_2319:lolevel_2escm",(void*)f_2319}, {"f_2314:lolevel_2escm",(void*)f_2314}, {"f_2310:lolevel_2escm",(void*)f_2310}, {"f_2596:lolevel_2escm",(void*)f_2596}, {"f_2187:lolevel_2escm",(void*)f_2187}, {"f_2699:lolevel_2escm",(void*)f_2699}, {"f_1881:lolevel_2escm",(void*)f_1881}, {"f_2938:lolevel_2escm",(void*)f_2938}, {"f_2931:lolevel_2escm",(void*)f_2931}, {"f_2589:lolevel_2escm",(void*)f_2589}, {"f_2171:lolevel_2escm",(void*)f_2171}, {"f_1181:lolevel_2escm",(void*)f_1181}, {"f_2681:lolevel_2escm",(void*)f_2681}, {"f_2945:lolevel_2escm",(void*)f_2945}, {"f_1443:lolevel_2escm",(void*)f_1443}, {"f_1886:lolevel_2escm",(void*)f_1886}, {"f_2054:lolevel_2escm",(void*)f_2054}, {"f_2917:lolevel_2escm",(void*)f_2917}, {"f_2475:lolevel_2escm",(void*)f_2475}, {"f_2478:lolevel_2escm",(void*)f_2478}, {"f_1437:lolevel_2escm",(void*)f_1437}, {"f_1449:lolevel_2escm",(void*)f_1449}, {"f_2042:lolevel_2escm",(void*)f_2042}, {"f_2387:lolevel_2escm",(void*)f_2387}, {"f_1465:lolevel_2escm",(void*)f_1465}, {"f_1962:lolevel_2escm",(void*)f_1962}, {"f_2532:lolevel_2escm",(void*)f_2532}, {"f_2658:lolevel_2escm",(void*)f_2658}, {"f_2651:lolevel_2escm",(void*)f_2651}, {"f_1841:lolevel_2escm",(void*)f_1841}, {"f_1275:lolevel_2escm",(void*)f_1275}, {"f_1858:lolevel_2escm",(void*)f_1858}, {"f_2522:lolevel_2escm",(void*)f_2522}, {"f_2648:lolevel_2escm",(void*)f_2648}, {"f_2645:lolevel_2escm",(void*)f_2645}, {"f_2642:lolevel_2escm",(void*)f_2642}, {"f_1575:lolevel_2escm",(void*)f_1575}, {"f_1640:lolevel_2escm",(void*)f_1640}, {"f_2534:lolevel_2escm",(void*)f_2534}, {"f_1848:lolevel_2escm",(void*)f_1848}, {"f_1982:lolevel_2escm",(void*)f_1982}, {"f_1985:lolevel_2escm",(void*)f_1985}, {"f_2512:lolevel_2escm",(void*)f_2512}, {"f_1866:lolevel_2escm",(void*)f_1866}, {"f_2435:lolevel_2escm",(void*)f_2435}, {"f_2525:lolevel_2escm",(void*)f_2525}, {"f_2437:lolevel_2escm",(void*)f_2437}, {"f_1978:lolevel_2escm",(void*)f_1978}, {"f_1669:lolevel_2escm",(void*)f_1669}, {"f_1877:lolevel_2escm",(void*)f_1877}, {"f_1973:lolevel_2escm",(void*)f_1973}, {"f_2503:lolevel_2escm",(void*)f_2503}, {"f_2197:lolevel_2escm",(void*)f_2197}, {"f_1591:lolevel_2escm",(void*)f_1591}, {"f_1890:lolevel_2escm",(void*)f_1890}, {"f_1895:lolevel_2escm",(void*)f_1895}, {"f_2660:lolevel_2escm",(void*)f_2660}, {"f_1662:lolevel_2escm",(void*)f_1662}, {"f_2516:lolevel_2escm",(void*)f_2516}, {"f_2519:lolevel_2escm",(void*)f_2519}, {"f_1598:lolevel_2escm",(void*)f_1598}, {"f_2342:lolevel_2escm",(void*)f_2342}, {"f_2617:lolevel_2escm",(void*)f_2617}, {"f_2030:lolevel_2escm",(void*)f_2030}, {"f_2612:lolevel_2escm",(void*)f_2612}, {"f_1993:lolevel_2escm",(void*)f_1993}, {"f_1689:lolevel_2escm",(void*)f_1689}, {"f_1999:lolevel_2escm",(void*)f_1999}, {"f_3127:lolevel_2escm",(void*)f_3127}, {"f_2452:lolevel_2escm",(void*)f_2452}, {"f_2606:lolevel_2escm",(void*)f_2606}, {"f_2609:lolevel_2escm",(void*)f_2609}, {"f_1831:lolevel_2escm",(void*)f_1831}, {"f_2447:lolevel_2escm",(void*)f_2447}, {"f_2603:lolevel_2escm",(void*)f_2603}, {"f_2600:lolevel_2escm",(void*)f_2600}, {"f_2441:lolevel_2escm",(void*)f_2441}, {"f_3115:lolevel_2escm",(void*)f_3115}, {"f_2636:lolevel_2escm",(void*)f_2636}, {"f_2639:lolevel_2escm",(void*)f_2639}, {"f_2351:lolevel_2escm",(void*)f_2351}, {"f_2627:lolevel_2escm",(void*)f_2627}, {"f_2308:lolevel_2escm",(void*)f_2308}, {"f_2366:lolevel_2escm",(void*)f_2366}, {"f_3009:lolevel_2escm",(void*)f_3009}, {"f_2893:lolevel_2escm",(void*)f_2893}, {"f_2895:lolevel_2escm",(void*)f_2895}, {"f_1152:lolevel_2escm",(void*)f_1152}, {"f_1154:lolevel_2escm",(void*)f_1154}, {"f_2162:lolevel_2escm",(void*)f_2162}, {"f_2883:lolevel_2escm",(void*)f_2883}, {"f_2886:lolevel_2escm",(void*)f_2886}, {"f_2152:lolevel_2escm",(void*)f_2152}, {"f_2880:lolevel_2escm",(void*)f_2880}, {"f_1810:lolevel_2escm",(void*)f_1810}, {"f_2166:lolevel_2escm",(void*)f_2166}, {"f_3021:lolevel_2escm",(void*)f_3021}, {"f_1262:lolevel_2escm",(void*)f_1262}, {"f_2140:lolevel_2escm",(void*)f_2140}, {"f_1501:lolevel_2escm",(void*)f_1501}, {"f_1492:lolevel_2escm",(void*)f_1492}, {"f_1506:lolevel_2escm",(void*)f_1506}, {"f_2156:lolevel_2escm",(void*)f_2156}, {"f_3015:lolevel_2escm",(void*)f_3015}, {"f_3012:lolevel_2escm",(void*)f_3012}, {"f_3206:lolevel_2escm",(void*)f_3206}, {"f_1607:lolevel_2escm",(void*)f_1607}, {"f_1679:lolevel_2escm",(void*)f_1679}, {"f_1498:lolevel_2escm",(void*)f_1498}, {"f_1495:lolevel_2escm",(void*)f_1495}, {"f_2856:lolevel_2escm",(void*)f_2856}, {"f_2798:lolevel_2escm",(void*)f_2798}, {"f_2070:lolevel_2escm",(void*)f_2070}, {"f_2852:lolevel_2escm",(void*)f_2852}, {"f_3224:lolevel_2escm",(void*)f_3224}, {"f_2842:lolevel_2escm",(void*)f_2842}, {"f_1621:lolevel_2escm",(void*)f_1621}, {"f_2874:lolevel_2escm",(void*)f_2874}, {"f_3213:lolevel_2escm",(void*)f_3213}, {"f_1617:lolevel_2escm",(void*)f_1617}, {"f_2493:lolevel_2escm",(void*)f_2493}, {"f_2769:lolevel_2escm",(void*)f_2769}, {"f_2764:lolevel_2escm",(void*)f_2764}, {"f_2214:lolevel_2escm",(void*)f_2214}, {"f_2861:lolevel_2escm",(void*)f_2861}, {"f_2760:lolevel_2escm",(void*)f_2760}, {"f_2485:lolevel_2escm",(void*)f_2485}, {"f_2488:lolevel_2escm",(void*)f_2488}, {"f_2482:lolevel_2escm",(void*)f_2482}, {"f_2108:lolevel_2escm",(void*)f_2108}, {"f_2105:lolevel_2escm",(void*)f_2105}, {"f_2814:lolevel_2escm",(void*)f_2814}, {"f_2247:lolevel_2escm",(void*)f_2247}, {"f_2751:lolevel_2escm",(void*)f_2751}, {"f_2805:lolevel_2escm",(void*)f_2805}, {"f_2742:lolevel_2escm",(void*)f_2742}, {"f_3267:lolevel_2escm",(void*)f_3267}, {"f_2233:lolevel_2escm",(void*)f_2233}, {"f_2231:lolevel_2escm",(void*)f_2231}, {"f_2734:lolevel_2escm",(void*)f_2734}, {"f_2264:lolevel_2escm",(void*)f_2264}, {"f_3253:lolevel_2escm",(void*)f_3253}, {"f_2730:lolevel_2escm",(void*)f_2730}, {"f_2726:lolevel_2escm",(void*)f_2726}, {"f_2824:lolevel_2escm",(void*)f_2824}, {"f_2132:lolevel_2escm",(void*)f_2132}, {"f_3280:lolevel_2escm",(void*)f_3280}, {"f_2144:lolevel_2escm",(void*)f_2144}, {"f_2148:lolevel_2escm",(void*)f_2148}, {"f_3132:lolevel_2escm",(void*)f_3132}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|eliminated procedure checks: 95 o|specializations: o| 1 (length list) o| 3 (cdr pair) o| 9 (car pair) (o e)|safe calls: 272 (o e)|assignments to immediate values: 2 o|Removed `not' forms: 9 o|merged explicitly consed rest parameter: loc65 o|inlining procedure: k1156 o|inlining procedure: k1156 o|inlining procedure: k1164 o|inlining procedure: k1164 o|merged explicitly consed rest parameter: loc88 o|inlining procedure: k1220 o|inlining procedure: k1220 o|inlining procedure: k1235 o|inlining procedure: k1235 o|contracted procedure: "(lolevel.scm:99) g8990" o|inlining procedure: k1225 o|inlining procedure: k1225 o|inlining procedure: k1277 o|inlining procedure: k1277 o|inlining procedure: k1290 o|inlining procedure: k1290 o|contracted procedure: "(lolevel.scm:113) g108109" o|merged explicitly consed rest parameter: args209 o|inlining procedure: k1451 o|inlining procedure: k1451 o|consed rest parameter at call site: "(lolevel.scm:145) sizerr206" 1 o|inlining procedure: k1467 o|inlining procedure: k1467 o|consed rest parameter at call site: "(lolevel.scm:150) sizerr206" 1 o|inlining procedure: k1508 o|inlining procedure: "(lolevel.scm:162) typerr118" o|inlining procedure: k1508 o|inlining procedure: k1540 o|inlining procedure: k1540 o|inlining procedure: "(lolevel.scm:166) typerr118" o|inlining procedure: k1560 o|contracted procedure: "(lolevel.scm:169) memmove1114" o|inlining procedure: k1602 o|contracted procedure: "(lolevel.scm:171) memmove3116" o|inlining procedure: k1602 o|inlining procedure: "(lolevel.scm:173) typerr118" o|contracted procedure: "(lolevel.scm:168) g239240" o|inlining procedure: k1586 o|inlining procedure: k1586 o|contracted procedure: "(lolevel.scm:58) g245246" o|inlining procedure: k1560 o|inlining procedure: k1647 o|contracted procedure: "(lolevel.scm:177) memmove2115" o|inlining procedure: k1671 o|inlining procedure: k1671 o|inlining procedure: k1647 o|contracted procedure: "(lolevel.scm:179) memmove4117" o|inlining procedure: "(lolevel.scm:182) typerr118" o|contracted procedure: "(lolevel.scm:176) g265266" o|inlining procedure: k1657 o|inlining procedure: k1657 o|contracted procedure: "(lolevel.scm:58) g271272" o|inlining procedure: "(lolevel.scm:184) typerr118" o|contracted procedure: "(lolevel.scm:167) g226227" o|inlining procedure: k1570 o|inlining procedure: k1570 o|contracted procedure: "(lolevel.scm:58) g232233" o|consed rest parameter at call site: "(lolevel.scm:153) check-block" 2 o|consed rest parameter at call site: "(lolevel.scm:152) check-block" 2 o|contracted procedure: k1770 o|inlining procedure: k1767 o|inlining procedure: k1796 o|inlining procedure: k1796 o|inlining procedure: k1812 o|inlining procedure: k1812 o|inlining procedure: k1767 o|inlining procedure: k1851 o|inlining procedure: k1851 o|contracted procedure: "(lolevel.scm:209) g328329" o|contracted procedure: "(lolevel.scm:211) g333334" o|inlining procedure: k1870 o|inlining procedure: k1870 o|inlining procedure: k1897 o|contracted procedure: "(lolevel.scm:221) g346347" o|inlining procedure: k1897 o|inlining procedure: k1943 o|inlining procedure: k1943 o|contracted procedure: "(lolevel.scm:243) g383384" o|inlining procedure: k1957 o|inlining procedure: k1957 o|inlining procedure: k1983 o|inlining procedure: k1983 o|contracted procedure: "(lolevel.scm:255) g391392" o|inlining procedure: k1988 o|inlining procedure: k1988 o|inlining procedure: k2004 o|inlining procedure: k2013 o|inlining procedure: k2013 o|inlining procedure: k2004 o|inlining procedure: k2032 o|inlining procedure: k2032 o|contracted procedure: "(lolevel.scm:266) g416417" o|inlining procedure: k2037 o|inlining procedure: k2037 o|inlining procedure: k2060 o|inlining procedure: k2060 o|inlining procedure: k2076 o|inlining procedure: k2076 o|inlining procedure: k2098 o|inlining procedure: k2098 o|inlining procedure: k2173 o|inlining procedure: k2173 o|inlining procedure: k2199 o|inlining procedure: k2205 o|inlining procedure: k2205 o|contracted procedure: "(lolevel.scm:387) g501502" o|inlining procedure: k2216 o|inlining procedure: k2216 o|inlining procedure: k2199 o|inlining procedure: k2235 o|inlining procedure: k2265 o|inlining procedure: k2265 o|contracted procedure: "(lolevel.scm:392) g511512" o|inlining procedure: k2249 o|inlining procedure: k2249 o|inlining procedure: k2235 o|inlining procedure: k2277 o|inlining procedure: k2277 o|contracted procedure: "(lolevel.scm:407) g522523" o|inlining procedure: k2291 o|inlining procedure: k2298 o|inlining procedure: k2298 o|inlining procedure: k2291 o|contracted procedure: "(lolevel.scm:416) check-generic-vector" o|inlining procedure: k1245 o|inlining procedure: k1245 o|inlining procedure: k1267 o|inlining procedure: k1267 o|contracted procedure: "(lolevel.scm:107) g9798" o|inlining procedure: k1250 o|inlining procedure: k1257 o|inlining procedure: k1257 o|inlining procedure: k1250 o|contracted procedure: k2324 o|inlining procedure: k2321 o|inlining procedure: k2321 o|inlining procedure: k2356 o|inlining procedure: k2356 o|contracted procedure: "(lolevel.scm:442) g557558" o|inlining procedure: k2361 o|inlining procedure: k2361 o|consed rest parameter at call site: "(lolevel.scm:447) check-generic-structure" 2 o|consed rest parameter at call site: "(lolevel.scm:451) check-generic-structure" 2 o|consed rest parameter at call site: "(lolevel.scm:455) check-generic-structure" 2 o|inlining procedure: k2454 o|inlining procedure: k2454 o|consed rest parameter at call site: "(lolevel.scm:469) check-generic-structure" 2 o|contracted procedure: k2498 o|inlining procedure: k2495 o|inlining procedure: k2523 o|inlining procedure: k2523 o|inlining procedure: k2536 o|inlining procedure: k2536 o|inlining procedure: k2560 o|inlining procedure: k2560 o|inlining procedure: k2495 o|contracted procedure: k2622 o|inlining procedure: k2619 o|inlining procedure: k2649 o|inlining procedure: k2649 o|inlining procedure: k2662 o|inlining procedure: k2662 o|inlining procedure: k2686 o|inlining procedure: k2686 o|inlining procedure: k2714 o|inlining procedure: k2714 o|inlining procedure: k2740 o|inlining procedure: k2740 o|inlining procedure: k2619 o|contracted procedure: k2774 o|inlining procedure: k2771 o|contracted procedure: k2780 o|inlining procedure: k2783 o|inlining procedure: k2783 o|inlining procedure: k2816 o|inlining procedure: k2816 o|inlining procedure: k2771 o|inlining procedure: k2845 o|inlining procedure: k2845 o|contracted procedure: k2866 o|inlining procedure: k2863 o|inlining procedure: k2884 o|inlining procedure: k2884 o|inlining procedure: k2897 o|inlining procedure: k2897 o|inlining procedure: k2922 o|inlining procedure: k2922 o|inlining procedure: k2929 o|inlining procedure: k2929 o|inlining procedure: k2863 o|contracted procedure: k2955 o|inlining procedure: k2952 o|contracted procedure: k2961 o|inlining procedure: k2967 o|inlining procedure: k2967 o|inlining procedure: k2973 o|inlining procedure: k2973 o|inlining procedure: k2987 o|inlining procedure: k2987 o|inlining procedure: k3023 o|inlining procedure: k3023 o|inlining procedure: k2952 o|contracted procedure: "(lolevel.scm:607) check-become-alist" o|inlining procedure: k1186 o|inlining procedure: k1186 o|consed rest parameter at call site: "(lolevel.scm:91) check-block" 2 o|consed rest parameter at call site: "(lolevel.scm:90) check-block" 2 o|inlining procedure: k3134 o|inlining procedure: k3134 o|inlining procedure: k3181 o|inlining procedure: k3181 o|inlining procedure: k3226 o|inlining procedure: k3226 o|inlining procedure: k3260 o|inlining procedure: k3260 o|contracted procedure: "(lolevel.scm:681) pv-buf-ref" o|consed rest parameter at call site: "(lolevel.scm:462) check-generic-structure" 2 o|replaced variables: 384 o|removed binding forms: 208 o|substituted constant variable: r11653386 o|substituted constant variable: r11653386 o|substituted constant variable: r12363392 o|substituted constant variable: r12363392 o|substituted constant variable: r12263395 o|substituted constant variable: r12913400 o|substituted constant variable: r12913400 o|substituted constant variable: r18523466 o|substituted constant variable: r18523466 o|substituted constant variable: r18713469 o|substituted constant variable: r18983471 o|substituted constant variable: r19583475 o|substituted constant variable: r19893481 o|substituted constant variable: r20053485 o|substituted constant variable: r20383489 o|substituted constant variable: r20613490 o|substituted constant variable: r20613490 o|substituted constant variable: r20773494 o|substituted constant variable: r20773494 o|substituted constant variable: r20993499 o|substituted constant variable: r21743501 o|substituted constant variable: r22063503 o|substituted constant variable: r22063504 o|substituted constant variable: r22173506 o|substituted constant variable: r22003507 o|substituted constant variable: r22663510 o|substituted constant variable: r22503512 o|substituted constant variable: r22363513 o|substituted constant variable: r22923521 o|substituted constant variable: r12683526 o|substituted constant variable: r12683526 o|substituted constant variable: r12513533 o|substituted constant variable: r23573537 o|substituted constant variable: r23623539 o|substituted constant variable: r28463578 o|substituted constant variable: r28463578 o|substituted constant variable: r28643595 o|substituted constant variable: loc70 o|substituted constant variable: loc70 o|substituted constant variable: loc70 o|substituted constant variable: loc70 o|substituted constant variable: loc70 o|inlining procedure: k3116 o|substituted constant variable: r32613616 o|substituted constant variable: r32613616 o|replaced variables: 63 o|removed binding forms: 362 o|inlining procedure: k1583 o|inlining procedure: k1654 o|inlining procedure: k1567 o|inlining procedure: k2796 o|replaced variables: 21 o|removed binding forms: 100 o|contracted procedure: k1282 o|simplifications: ((let . 10)) o|replaced variables: 3 o|removed binding forms: 16 o|replaced variables: 6 o|removed binding forms: 3 o|removed binding forms: 3 o|simplifications: ((if . 37) (##core#call . 226)) o| call simplifications: o| vector o| ##sys#check-structure 4 o| ##sys#structure? o| ##sys#fudge o| fx* o| ##sys#make-structure 2 o| ##sys#check-list o| ##sys#check-pair o| ##sys#check-exact 4 o| list 3 o| + o| values o| void 2 o| ##sys#setislot 4 o| ##sys#check-symbol o| cons 3 o| eq? 6 o| not 6 o| equal? o| integer? o| ##sys#foreign-integer-argument 2 o| symbol? 8 o| fx>= 9 o| ##sys#setslot 5 o| fx+ 18 o| ##sys#intern-symbol 2 o| car 10 o| null? 14 o| cdr 3 o| fx< 3 o| ##sys#generic-structure? 2 o| string? 3 o| ##sys#size 18 o| ##sys#foreign-block-argument 4 o| ##sys#foreign-pointer-argument 8 o| ##sys#foreign-fixnum-argument 16 o| memq 3 o| ##sys#slot 30 o| fx- 7 o| fx<= 3 o| apply 2 o| pair? 11 o|contracted procedure: k1167 o|contracted procedure: k1238 o|contracted procedure: k1293 o|contracted procedure: k1752 o|contracted procedure: k1418 o|contracted procedure: k1746 o|contracted procedure: k1421 o|contracted procedure: k1740 o|contracted procedure: k1424 o|contracted procedure: k1734 o|contracted procedure: k1427 o|contracted procedure: k1728 o|contracted procedure: k1430 o|contracted procedure: k1722 o|contracted procedure: k1433 o|contracted procedure: k1461 o|contracted procedure: k1454 o|contracted procedure: k1487 o|contracted procedure: k1476 o|contracted procedure: k1483 o|contracted procedure: k1511 o|contracted procedure: k1531 o|contracted procedure: k1517 o|contracted procedure: k1524 o|contracted procedure: k1537 o|contracted procedure: k1557 o|contracted procedure: k1543 o|contracted procedure: k1550 o|contracted procedure: k1301 o|contracted procedure: k1305 o|contracted procedure: k1309 o|contracted procedure: k1313 o|contracted procedure: k1317 o|contracted procedure: k1608 o|contracted procedure: k1357 o|contracted procedure: k1361 o|contracted procedure: k1365 o|contracted procedure: k1369 o|contracted procedure: k1373 o|contracted procedure: k1623 o|contracted procedure: k1641 o|contracted procedure: k1644 o|contracted procedure: k1329 o|contracted procedure: k1333 o|contracted procedure: k1337 o|contracted procedure: k1341 o|contracted procedure: k1345 o|contracted procedure: k1680 o|contracted procedure: k1385 o|contracted procedure: k1389 o|contracted procedure: k1393 o|contracted procedure: k1397 o|contracted procedure: k1401 o|contracted procedure: k1691 o|contracted procedure: k1695 o|contracted procedure: k1710 o|contracted procedure: k1716 o|contracted procedure: k1776 o|contracted procedure: k1783 o|contracted procedure: k1786 o|contracted procedure: k1789 o|contracted procedure: k1799 o|contracted procedure: k1806 o|contracted procedure: k1815 o|contracted procedure: k1818 o|contracted procedure: k1825 o|contracted procedure: k1833 o|contracted procedure: k1844 o|contracted procedure: k1851 o|contracted procedure: k1924 o|contracted procedure: k1928 o|contracted procedure: k1938 o|contracted procedure: k1946 o|contracted procedure: k2023 o|contracted procedure: k2001 o|contracted procedure: k2010 o|contracted procedure: k2020 o|contracted procedure: k2063 o|contracted procedure: k2060 o|contracted procedure: k2079 o|contracted procedure: k2076 o|contracted procedure: k2158 o|contracted procedure: k2176 o|contracted procedure: k2183 o|contracted procedure: k2193 o|contracted procedure: k2189 o|contracted procedure: k2219 o|contracted procedure: k2226 o|contracted procedure: k2252 o|contracted procedure: k2259 o|contracted procedure: k2280 o|contracted procedure: k1270 o|contracted procedure: k2337 o|contracted procedure: k2344 o|contracted procedure: k2380 o|contracted procedure: k2353 o|contracted procedure: k2367 o|contracted procedure: k2377 o|contracted procedure: k2405 o|contracted procedure: k2421 o|contracted procedure: k2429 o|contracted procedure: k2425 o|contracted procedure: k2442 o|contracted procedure: k2457 o|contracted procedure: k2471 o|contracted procedure: k2460 o|contracted procedure: k2467 o|contracted procedure: k2507 o|contracted procedure: k2539 o|contracted procedure: k2542 o|contracted procedure: k2549 o|contracted procedure: k2557 o|contracted procedure: k2560 o|contracted procedure: k2566 o|contracted procedure: k2573 o|propagated global variable: r2574 ##sys#undefined-value o|contracted procedure: k2577 o|contracted procedure: k2585 o|contracted procedure: k2592 o|contracted procedure: k2631 o|contracted procedure: k2665 o|contracted procedure: k2668 o|contracted procedure: k2675 o|contracted procedure: k2683 o|contracted procedure: k2686 o|contracted procedure: k2693 o|contracted procedure: k2700 o|contracted procedure: k2707 o|propagated global variable: r2708 ##sys#undefined-value o|contracted procedure: k2711 o|contracted procedure: k2717 o|contracted procedure: k2736 o|contracted procedure: k2752 o|contracted procedure: k2756 o|contracted procedure: k2786 o|contracted procedure: k2789 o|contracted procedure: k2793 o|contracted procedure: k2810 o|contracted procedure: k2819 o|contracted procedure: k2829 o|contracted procedure: k2833 o|contracted procedure: k2838 o|contracted procedure: k2845 o|contracted procedure: k2875 o|contracted procedure: k2900 o|contracted procedure: k2904 o|contracted procedure: k2911 o|contracted procedure: k2919 o|contracted procedure: k2922 o|contracted procedure: k3049 o|contracted procedure: k2940 o|contracted procedure: k2984 o|contracted procedure: k2990 o|contracted procedure: k3000 o|contracted procedure: k3003 o|contracted procedure: k3017 o|contracted procedure: k3026 o|contracted procedure: k3029 o|contracted procedure: k3036 o|contracted procedure: k3044 o|contracted procedure: k1174 o|contracted procedure: k1183 o|contracted procedure: k1192 o|contracted procedure: k1196 o|contracted procedure: k3073 o|contracted procedure: k3088 o|contracted procedure: k3084 o|contracted procedure: k3096 o|contracted procedure: k3153 o|contracted procedure: k3101 o|contracted procedure: k3104 o|contracted procedure: k3107 o|contracted procedure: k3110 o|contracted procedure: k3122 o|contracted procedure: k3137 o|contracted procedure: k3147 o|contracted procedure: k3172 o|contracted procedure: k3184 o|contracted procedure: k3187 o|contracted procedure: k3202 o|contracted procedure: k3208 o|contracted procedure: k3214 o|contracted procedure: k3217 o|contracted procedure: k3229 o|contracted procedure: k3239 o|contracted procedure: k3256 o|contracted procedure: k3260 o|contracted procedure: k3269 o|contracted procedure: k3272 o|contracted procedure: k3285 o|contracted procedure: k3292 o|contracted procedure: k3302 o|contracted procedure: k3311 o|contracted procedure: k3314 o|contracted procedure: k3324 o|contracted procedure: k3249 o|contracted procedure: k3328 o|contracted procedure: k3344 o|contracted procedure: k3352 o|contracted procedure: k3348 o|simplifications: ((let . 38)) o|removed binding forms: 198 o|inlining procedure: k1619 o|inlining procedure: "(lolevel.scm:242) align372" o|inlining procedure: "(lolevel.scm:244) align372" o|inlining procedure: k3278 o|replaced variables: 65 o|replaced variables: 4 o|removed binding forms: 49 o|inlining procedure: k1967 o|removed binding forms: 4 o|removed binding forms: 1 o|direct leaf routine/allocation: doloop585586 0 o|direct leaf routine/allocation: pv-buf-set! 0 o|converted assignments to bindings: (doloop585586) o|contracted procedure: "(lolevel.scm:634) k3140" o|contracted procedure: "(lolevel.scm:649) k3193" o|contracted procedure: "(lolevel.scm:658) k3232" o|simplifications: ((let . 1)) o|removed binding forms: 3 o|direct leaf routine/allocation: doloop779780 0 o|direct leaf routine/allocation: doloop807808 0 o|contracted procedure: k3116 o|converted assignments to bindings: (doloop779780) o|converted assignments to bindings: (doloop807808) o|simplifications: ((let . 2)) o|removed binding forms: 1 o|customizable procedures: (doloop794795 loop71 copy728 doloop743744 k2878 k2891 evict696 doloop704705 k2762 release678 doloop685686 k2601 k2634 k2640 k2656 evict639 doloop652653 k2480 k2517 k2530 evict603 doloop615616 ##sys#check-generic-structure k2364 k1260 k2040 k1991 k1960 copy294 doloop306307 ##sys#check-block k1573 k1660 checkn2208 k1589 checkn1207 nosizerr205 move219 k1470 sizerr206 k1228) o|calls to known targets: 98 o|identified direct recursive calls: f_1506 2 o|identified direct recursive calls: f_2452 1 o|identified direct recursive calls: f_3132 1 o|identified direct recursive calls: f_3224 1 o|fast box initializations: 19 o|fast global references: 18 o|fast global assignments: 4 o|dropping unused closure argument: f_1218 o|dropping unused closure argument: f_1154 o|dropping unused closure argument: f_3253 */ /* end of file */ ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/chicken.png��������������������������������������������������������������������������0000644�0001750�0001750�00000073405�13040667210�015132� 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-4.12.0/modules.scm��������������������������������������������������������������������������0000644�0001750�0001750�00000102300�13052306173�015160� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; modules.scm - module-system support ; ; Copyright (c) 2011-2017, 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 modules) (disable-interrupts) (fixnum) (hide lookup merge-se module-indirect-exports) (not inline ##sys#alias-global-hook)) (include "common-declarations.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)) ;;; Support definitions ;; duoplicates code in the hope of being inlined (define (lookup id se) (cond ((##core#inline "C_u_i_assq" id se) => cdr) ((getp id '##core#macro-alias)) (else #f))) #+debugbuild (define (map-se se) (map (lambda (a) (cons (car a) (if (symbol? (cdr a)) (cdr a) '<macro>))) se)) ;;; 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-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 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 (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 explist vexports sexports iexports) (%make-module name 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 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 mod exp val) #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)) (##sys#find-export sym mod #t))) (ulist (module-undefined-list mod))) (##sys#toplevel-definition-hook ; in compiler, hides unexported bindings (##sys#module-rename sym (module-name mod)) mod exp #f) (and-let* ((a (assq sym ulist))) (set-module-undefined-list! mod (##sys#delq a ulist))) (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)) (##sys#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#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 explist #!optional (vexports '()) (sexports '())) (let ((mod (make-module name explist vexports sexports '()))) (set! ##sys#module-table (cons (cons name mod) ##sys#module-table)) mod) ) (define (##sys#mark-imported-symbols se) (for-each (lambda (imp) (when (and (symbol? (cdr imp)) (not (eq? (car imp) (cdr imp)))) (dm `(MARKING: ,(cdr imp))) (putp (cdr imp) '##core#aliased #t))) se)) (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) (##sys#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 ((se (apply append ses))) (dm "merging " (length ses) " se's with total length of " (length se)) (let ((se2 (let loop ((se se)) (cond ((null? se) '()) ((assq (caar se) (cdr se)) (loop (cdr se))) (else (cons (car se) (loop (cdr se)))))))) (dm " merged has length " (length se2)) 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 (pair? ifs) `((eval '(import ,@(##sys#strip-syntax ifs)))) '()) ,@(if (pair? mifs) `((import ,@(##sys#strip-syntax mifs))) '()) ,@(##sys#fast-reverse (map ##sys#strip-syntax (module-meta-expressions mod))) (##sys#register-compiled-module ',(module-name mod) (list ,@(map (lambda (ie) (if (symbol? (cdr ie)) `'(,(car ie) . ,(cdr ie)) `(list ',(car ie) '() ,(cdr ie)))) (module-iexports mod))) ',(module-vexports mod) (list ,@(map (lambda (sexport) (let* ((name (car sexport)) (a (assq name dlist))) (cond ((pair? a) `(cons ',(car sexport) ,(##sys#strip-syntax (cdr a)))) (else (dm "re-exported syntax" name mname) `',name)))) sexports)) (list ,@(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 `(cons ',(caar sd) ,(##sys#strip-syntax (cdar sd))) (loop (cdr sd))))))))))))) (define (##sys#register-compiled-module name 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)) (iexps (map (lambda (ie) (if (pair? (cdr ie)) (list (car ie) (cadr ie) (##sys#ensure-transformer (caddr ie) (car ie))) ie)) iexports)) (nexps (map (lambda (ne) (list (car ne) #f (##sys#ensure-transformer (cdr ne) (car ne)))) sdefs)) (mod (make-module name '() vexports sexps iexps)) (senv (merge-se (##sys#macro-environment) (##sys#current-environment) iexps vexports sexps nexps))) (##sys#mark-imported-symbols iexps) (for-each (lambda (sexp) (set-car! (cdr sexp) (merge-se (or (cadr sexp) '()) senv))) sexps) (for-each (lambda (iexp) (when (pair? (cdr iexp)) (set-car! (cdr iexp) (merge-se (or (cadr iexp) '()) senv)))) iexps) (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#primitive-alias sym) (let ((palias (##sys#string->symbol (##sys#string-append "#%" (##sys#slot sym 1))))) (putp palias '##core#primitive sym) palias)) (define (##sys#register-primitive-module name vexports #!optional (sexports '())) (let* ((me (##sys#macro-environment)) (mod (make-module name '() (map (lambda (ve) (if (symbol? ve) (cons ve (##sys#primitive-alias ve)) ve)) 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)) (define (##sys#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) '()) ((##sys#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 (##sys#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))) (##sys#mark-imported-symbols iexports) (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#find-module/import-library mname loc) (let* ((mname (##sys#resolve-module-name mname loc)) (mod (##sys#find-module mname #f loc))) (unless mod (let* ((il (##sys#find-extension (string-append (symbol->string mname) ".import") #t))) (cond (il (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 (##sys#load il #f #f))) (set! mod (##sys#find-module mname 'import))) (else (##sys#syntax-error-hook loc "cannot import from undefined module" mname))))) mod)) (define (##sys#expand-import x r c import-env macro-env meta? reexp? loc) (let ((%only (r 'only)) (%rename (r 'rename)) (%except (r 'except)) (%prefix (r 'prefix)) (%srfi (r 'srfi))) (define (resolve sym) (or (lookup sym '()) sym)) ;XXX really empty se? (define (warn msg mod id) (##sys#warn (sprintf msg 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" )))) (define (import-name spec) (let* ((mod (##sys#find-module/import-library (##sys#strip-syntax spec) 'import)) (vexp (module-vexports mod)) (sexp (module-sexports mod)) (iexp (module-iexports mod)) (name (module-name mod))) (values name name vexp sexp iexp))) (define (import-spec spec) (cond ((symbol? spec) (import-name spec)) ((or (not (list? spec)) (< (length spec) 2)) (##sys#syntax-error-hook loc "invalid import specification" spec)) ((and (c %srfi (car spec)) (fixnum? (cadr spec)) (null? (cddr spec))) ; only one number (import-name (##sys#intern-symbol (##sys#string-append "srfi-" (##sys#number->string (cadr spec)))))) (else (let ((head (car spec)) (imports (cddr spec))) (let-values (((name form impv imps impi) (import-spec (cadr spec)))) (cond ((c %only head) (##sys#check-syntax loc spec '(_ _ . #(symbol 0))) (let ((ids (map resolve imports))) (let loop ((ids ids) (v '()) (s '()) (missing '())) (cond ((null? ids) (for-each (lambda (id) (warn "imported identifier doesn't exist in module ~s: ~s" name id)) missing) (values name `(,head ,form ,@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 spec '(_ _ . #(symbol 0))) (let ((ids (map resolve imports))) (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 in module ~s: ~s" name id)) ids) (values name `(,head ,form ,@imports) v s impi)) ((memq (caar imps) ids) => (lambda (id) (loop (cdr imps) s (##sys#delq (car id) ids)))) (else (loop (cdr imps) (cons (car imps) s) ids))))) ((memq (caar impv) ids) => (lambda (id) (loop (cdr impv) v (##sys#delq (car id) ids)))) (else (loop (cdr impv) (cons (car impv) v) ids)))))) ((c %rename head) (##sys#check-syntax loc spec '(_ _ . #((symbol symbol) 0))) (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 "renamed identifier doesn't exist in module ~s: ~s" name id)) (map car ids)) (values name `(,head ,form ,@imports) v s impi)) ((assq (caar imps) ids) => (lambda (a) (loop (cdr imps) (cons (cons (cadr a) (cdar imps)) s) (##sys#delq a ids)))) (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) (##sys#delq a ids)))) (else (loop (cdr impv) (cons (car impv) v) ids))))) ((c %prefix head) (##sys#check-syntax loc spec '(_ _ _)) (let ((pref (caddr spec))) (define (ren imp) (cons (##sys#string->symbol (##sys#string-append (tostr pref) (##sys#symbol->string (car imp)))) (cdr imp) ) ) (values name `(,head ,form ,pref) (map ren impv) (map ren imps) impi))) (else (##sys#syntax-error-hook loc "invalid import specification" spec)))))))) (##sys#check-syntax loc x '(_ . #(_ 1))) (let ((cm (##sys#current-module))) (for-each (lambda (spec) (let-values (((name form vsv vss vsi) (import-spec spec))) (when cm ; save import form (if meta? (set-module-meta-import-forms! cm (append (module-meta-import-forms cm) (list form))) (set-module-import-forms! cm (append (module-import-forms cm) (list form))))) (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))) (##sys#mark-imported-symbols vsv) ; mark imports as ##core#aliased (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))))) (cdr x)) '(##core#undefined)))) (define (##sys#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 (##sys#register-undefined sym mod where)) (##sys#module-rename sym (module-name mod)))) (else sym))) (cond ((##sys#qualified-symbol? sym) sym) ((getp sym '##core#primitive) => (lambda (p) (dm "(ALIAS) primitive: " p) p)) ((getp sym '##core#aliased) (dm "(ALIAS) marked: " sym) sym) ((assq sym ((##sys#active-eval-environment))) => (lambda (a) (let ((sym2 (cdr a))) (dm "(ALIAS) in current environment " sym " -> " sym2) (if (pair? sym2) ; macro (XXX can this be?) (mrename sym) (or (getp sym2 '##core#primitive) sym2))))) (else (mrename sym)))) (define (##sys#register-interface name exps) ;; expects exps to be stripped and validated (putp name '##core#interface exps)) (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" x 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))) (iface (cadr x)) (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 ((alias (caar p)) (mname (cadar p)) (exps (cdr p))) (##sys#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)) (def? (pair? p1)) (alias (if def? (car p1) p1)) (mname (car as)) (exps (cdr p))) (##sys#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 (##sys#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 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 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 load read eof-object? read-char peek-char write display write-char newline with-input-from-file with-output-to-file eval char-ready? imag-part real-part magnitude numerator denominator angle scheme-report-environment null-environment interaction-environment else)) (r4rs-syntax ;;XXX better would be to move these into the "chicken" ;; module. "import[-for-syntax]" and "reexport" are in ;; ##sys#initial-macro-environment and thus always available inside ;; modules. ##sys#default-macro-environment)) (##sys#register-primitive-module 'r4rs r4rs-values r4rs-syntax) (##sys#register-primitive-module 'scheme (append '(dynamic-wind values call-with-values) r4rs-values) r4rs-syntax) (##sys#register-primitive-module 'r4rs-null '() r4rs-syntax) (##sys#register-primitive-module 'r5rs-null '() r4rs-syntax)) (##sys#register-module-alias 'r5rs 'scheme) (register-feature! 'module-environments) (define (module-environment mname #!optional (ename mname)) (let* ((mod (##sys#find-module/import-library mname 'module-environment)) (saved (module-saved-environments mod))) (##sys#make-structure 'environment ename (car saved) #t))) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/build-version.c����������������������������������������������������������������������0000644�0001750�0001750�00000007344�13052306321�015741� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from build-version.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:17 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: build-version.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file build-version.c unit: build_2dversion */ #include "chicken.h" #include "buildtag.h" static C_PTABLE_ENTRY *create_ptable(void); 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,17),40,35,35,115,121,115,35,98,117,105,108,100,45,116,97,103,41,0,0,0,0,0,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(C_build_2dversion_toplevel) C_externexport void C_ccall C_build_2dversion_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(f_213) static void C_ccall f_213(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_2dversion_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_build_2dversion_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(35))){ C_save(t1); C_rereclaim2(35*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,7); lf[0]=C_h_intern(&lf[0],13,"\003sysbuild-tag"); lf[1]=C_h_intern(&lf[1],17,"\003syspeek-c-string"); lf[2]=C_h_intern(&lf[2],12,"\003sysbuild-id"); lf[3]=C_decode_literal(C_heaptop,"\376B\000\000\0076ea24b6"); lf[4]=C_h_intern(&lf[4],16,"\003sysbuild-branch"); lf[5]=C_h_intern(&lf[5],17,"\003sysbuild-version"); lf[6]=C_decode_literal(C_heaptop,"\376B\000\000\0064.12.0"); C_register_lf2(lf,7,create_ptable());{} t2=C_mutate2((C_word*)lf[0]+1 /* (set! ##sys#build-tag ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_213,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[2]+1 /* (set! ##sys#build-id ...) */,lf[3]); t4=C_set_block_item(lf[4] /* ##sys#build-branch */,0,C_SCHEME_FALSE); t5=C_mutate2((C_word*)lf[5]+1 /* (set! ##sys#build-version ...) */,lf[6]); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* ##sys#build-tag */ static void C_ccall f_213(C_word c,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(3,c,3)))){ C_save_and_reclaim((void *)f_213,2,av);} a=C_alloc(3); /* ##sys#peek-c-string */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=C_mpointer(&a,(void*)C_BUILD_TAG); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[3] = { {"toplevel:build_2dversion_2escm",(void*)C_build_2dversion_toplevel}, {"f_213:build_2dversion_2escm",(void*)f_213}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|eliminated procedure checks: 1 o|safe globals: (##sys#build-version ##sys#build-branch ##sys#build-id ##sys#build-tag) o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 */ /* end of file */ ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/tcp.import.scm�����������������������������������������������������������������������0000644�0001750�0001750�00000003615�13052306173�015620� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; tcp.import.scm - import library for "tcp" module ; ; Copyright (c) 2008-2017, 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 'tcp '(tcp-abandon-port tcp-accept tcp-accept-ready? tcp-accept-timeout tcp-addresses tcp-buffer-size tcp-close tcp-connect tcp-connect-timeout tcp-listen tcp-listener-fileno tcp-listener-port tcp-listener? tcp-port-numbers tcp-read-timeout tcp-write-timeout)) �������������������������������������������������������������������������������������������������������������������chicken-4.12.0/srfi-13.scm��������������������������������������������������������������������������0000644�0001750�0001750�00000234317�13052306173�014712� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; srfi-13.scm - Shivers' reference implementation of SRFI-13 (declare (unit srfi-13) (uses srfi-14) (fixnum) (hide %string-prefix? %string-hash %finish-string-concatenate-reverse %string-suffix-length %string-prefix-length %string-map %string-copy! %string-compare %substring/shared %string-suffix? %multispan-repcopy! %string-prefix-length-ci %string-suffix-length-ci %string-prefix-ci? %string-suffix-ci? ##srfi13#traverse %string-titlecase! %string-map! %string-compare-ci ##srfi13#string-fill!) (not standard-bindings string-copy string->list string-fill!) (disable-interrupts) ) (include "common-declarations.scm") (register-feature! 'srfi-13) (define-inline (char-cased? c) (char-alphabetic? c)) (define-inline (char-titlecase c) (char-upcase c)) ;;; SRFI 13 string library reference implementation -*- Scheme -*- ;;; Olin Shivers 5/2000 ;;; ;;; Copyright (c) 1988-1994 Massachusetts Institute of Technology. ;;; Copyright (c) 1998, 1999, 2000 Olin Shivers. All rights reserved. ;;; The details of the copyrights appear at the end of the file. Short ;;; summary: BSD-style open source. ;;; Exports: ;;; string-map string-map! ;;; string-fold string-unfold ;;; string-fold-right string-unfold-right ;;; string-tabulate string-for-each string-for-each-index ;;; string-every string-any ;;; string-hash string-hash-ci ;;; string-compare string-compare-ci ;;; string= string< string> string<= string>= string<> ;;; string-ci= string-ci< string-ci> string-ci<= string-ci>= string-ci<> ;;; string-downcase string-upcase string-titlecase ;;; string-downcase! string-upcase! string-titlecase! ;;; string-take string-take-right ;;; string-drop string-drop-right ;;; string-pad string-pad-right ;;; string-trim string-trim-right string-trim-both ;;; string-filter string-delete ;;; string-index string-index-right ;;; string-skip string-skip-right ;;; string-count ;;; string-prefix-length string-prefix-length-ci ;;; string-suffix-length string-suffix-length-ci ;;; string-prefix? string-prefix-ci? ;;; string-suffix? string-suffix-ci? ;;; string-contains string-contains-ci ;;; string-copy! substring/shared ;;; string-reverse string-reverse! reverse-list->string ;;; string-concatenate string-concatenate/shared string-concatenate-reverse ;;; string-append/shared ;;; xsubstring string-xcopy! ;;; string-null? ;;; string-join ;;; string-tokenize ;;; string-replace ;;; ;;; R5RS extended: ;;; string->list string-copy string-fill! ;;; ;;; R5RS re-exports: ;;; string? make-string string-length string-ref string-set! ;;; ;;; R5RS re-exports (also defined here but commented-out): ;;; string string-append list->string ;;; ;;; Low-level routines: ;;; make-kmp-restart-vector string-kmp-partial-search kmp-step ;;; string-parse-start+end ;;; string-parse-final-start+end ;;; let-string-start+end ;;; check-substring-spec ;;; substring-spec-ok? ;;; Imports ;;; This is a fairly large library. While it was written for portability, you ;;; must be aware of its dependencies in order to run it in a given scheme ;;; implementation. Here is a complete list of the dependencies it has and the ;;; assumptions it makes beyond stock R5RS Scheme: ;;; ;;; This code has the following non-R5RS dependencies: ;;; - (RECEIVE (var ...) mv-exp body ...) multiple-value binding macro; ;;; ;;; - Various imports from the char-set library for the routines that can ;;; take char-set arguments; ;;; ;;; - An n-ary ERROR procedure; ;;; ;;; - BITWISE-AND for the hash functions; ;;; ;;; - A simple CHECK-ARG procedure for checking parameter values; it is ;;; (lambda (pred val proc) ;;; (if (pred val) val (error "Bad arg" val pred proc))) ;;; ;;; - :OPTIONAL and LET-OPTIONALS* macros for parsing, defaulting & ;;; type-checking optional parameters from a rest argument; ;;; ;;; - CHAR-CASED? and CHAR-TITLECASE for the STRING-TITLECASE & ;;; STRING-TITLECASE! procedures. The former returns true iff a character is ;;; one that has case distinctions; in ASCII it returns true on a-z and A-Z. ;;; CHAR-TITLECASE is analagous to CHAR-UPCASE and CHAR-DOWNCASE. In ASCII & ;;; Latin-1, it is the same as CHAR-UPCASE. ;;; ;;; The code depends upon a small set of core string primitives from R5RS: ;;; MAKE-STRING STRING-REF STRING-SET! STRING? STRING-LENGTH SUBSTRING ;;; (Actually, SUBSTRING is not a primitive, but we assume that an ;;; implementation's native version is probably faster than one we could ;;; define, so we import it from R5RS.) ;;; ;;; The code depends upon a small set of R5RS character primitives: ;;; char? char=? char-ci=? char<? char-ci<? ;;; char-upcase char-downcase ;;; char->integer (for the hash functions) ;;; ;;; We assume the following: ;;; - CHAR-DOWNCASE o CHAR-UPCASE = CHAR-DOWNCASE ;;; - CHAR-CI=? is equivalent to ;;; (lambda (c1 c2) (char=? (char-downcase (char-upcase c1)) ;;; (char-downcase (char-upcase c2)))) ;;; - CHAR-UPCASE, CHAR-DOWNCASE and CHAR-TITLECASE are locale-insensitive ;;; and consistent with Unicode's 1-1 char-mapping spec. ;;; These things are typically true, but if not, you would need to modify ;;; the case-mapping and case-insensitive routines. ;;; Enough introductory blather. On to the source code. (But see the end of ;;; the file for further notes on porting & performance tuning.) ;;; Support for START/END substring specs ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define-syntax let-string-start+end2 (syntax-rules () ((_ (s-e1 s-e2 s-e3 s-e4) proc s1 s2 args . body) (let ((procv proc)) (let-string-start+end (s-e1 s-e2 rest) procv s1 args (let-string-start+end (s-e3 s-e4) procv s2 rest . body) ) ) ) ) ) (define-syntax let-string-start+end (er-macro-transformer (lambda (form r c) (##sys#check-syntax 'let-string-start+end form '(_ _ _ _ _ . _)) (let ((s-e-r (cadr form)) (proc (caddr form)) (s-exp (cadddr form)) (args-exp (car (cddddr form))) (body (cdr (cddddr form))) (%receive (r 'receive)) (%string-parse-start+end (r 'string-parse-start+end)) (%string-parse-final-start+end (r 'string-parse-final-start+end))) (if (pair? (cddr s-e-r)) `(,%receive (,(caddr s-e-r) ,(car s-e-r) ,(cadr s-e-r)) (,%string-parse-start+end ,proc ,s-exp ,args-exp) ,@body) `(,%receive ,s-e-r (,%string-parse-final-start+end ,proc ,s-exp ,args-exp) ,@body) ) )))) ;;; Returns three values: rest start end (define (string-parse-start+end proc s args) (##sys#check-string s 'string-parse-start+end) (let ((slen (string-length s))) (if (pair? args) (let ((start (car args)) (args (cdr args))) ; (if (and (integer? start) (exact? start) (>= start 0)) (if (and (fixnum? start) (>= start 0)) (receive (end args) (if (pair? args) (let ((end (car args)) (args (cdr args))) ; (if (and (integer? end) (exact? end) (<= end slen)) (if (and (fixnum? end) (<= end slen)) (values end args) (##sys#error 'string-parse-start+end "Illegal substring END spec" proc end s))) (values slen args)) (if (<= start end) (values args start end) (##sys#error 'string-parse-start+end "Illegal substring START/END spec" proc start end s))) (##sys#error 'string-parse-start+end "Illegal substring START spec" proc start s))) (values '() 0 slen)))) (define (string-parse-final-start+end proc s args) (receive (rest start end) (string-parse-start+end proc s args) (if (pair? rest) (##sys#error 'string-parse-final-start+end "Extra arguments to procedure" proc rest) (values start end)))) (define (substring-spec-ok? s start end) (and (string? s) ; (integer? start) ; (exact? start) ; (integer? end) ; (exact? end) (fixnum? start) (fixnum? end) (<= 0 start) (<= start end) (<= end (string-length s)))) (define (check-substring-spec proc s start end) (if (not (substring-spec-ok? s start end)) (##sys#error 'check-substring-spec "Illegal substring spec." proc s start end))) ;;; Defined by R5RS, so commented out here. ;(define (string . chars) ; (let* ((len (length chars)) ; (ans (make-string len))) ; (do ((i 0 (+ i 1)) ; (chars chars (cdr chars))) ; ((>= i len)) ; (string-set! ans i (car chars))) ; ans)) ; ;(define (string . chars) (string-unfold null? car cdr chars)) ;;; substring/shared S START [END] ;;; string-copy S [START END] ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; All this goop is just arg parsing & checking surrounding a call to the ;;; actual primitive, %SUBSTRING/SHARED. (define (substring/shared s start . maybe-end) ; (check-arg string? s substring/shared) (let ((slen (string-length s))) ; (check-arg (lambda (start) (and (integer? start) (exact? start) (<= 0 start))) ; start substring/shared) (let ([n (optional maybe-end slen)]) (##sys#check-exact n 'substring/shared) (check-substring-spec 'substring/shared s start n) (%substring/shared s start n) ) ) ) #| (%substring/shared s start (:optional maybe-end slen (lambda (end) (and (integer? end) (exact? end) (<= start end) (<= end slen))))))) |# ;;; Split out so that other routines in this library can avoid arg-parsing ;;; overhead for END parameter. (define (%substring/shared s start end) (if (and (zero? start) (= end (string-length s))) s (##sys#substring s start end))) (define (string-copy s . maybe-start+end) (let-string-start+end (start end) string-copy s maybe-start+end (##sys#substring s start end))) ;This library uses the R5RS SUBSTRING, but doesn't export it. ;Here is a definition, just for completeness. ;(define (substring s start end) ; (check-substring-spec substring s start end) ; (let* ((slen (- end start)) ; (ans (make-string slen))) ; (do ((i 0 (+ i 1)) ; (j start (+ j 1))) ; ((>= i slen) ans) ; (string-set! ans i (string-ref s j))))) ;;; Basic iterators and other higher-order abstractions ;;; (string-map proc s [start end]) ;;; (string-map! proc s [start end]) ;;; (string-fold kons knil s [start end]) ;;; (string-fold-right kons knil s [start end]) ;;; (string-unfold p f g seed [base make-final]) ;;; (string-unfold-right p f g seed [base make-final]) ;;; (string-for-each proc s [start end]) ;;; (string-for-each-index proc s [start end]) ;;; (string-every char-set/char/pred s [start end]) ;;; (string-any char-set/char/pred s [start end]) ;;; (string-tabulate len proc) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; You want compiler support for high-level transforms on fold and unfold ops. ;;; You'd at least like a lot of inlining for clients of these procedures. ;;; Don't hold your breath. ;;; Shut up, Olin (flw) (define (string-map proc s . maybe-start+end) ; (check-arg procedure? proc string-map) (let-string-start+end (start end) string-map s maybe-start+end (%string-map proc s start end))) (define (%string-map proc s start end) ; Internal utility (let* ((len (- end start)) (ans (make-string len))) (do ((i 0 (+ i 1)) (j start (+ j 1))) ((>= i len)) (string-set! ans i (proc (string-ref s j)))) ans)) (define (string-map! proc s . maybe-start+end) ; (check-arg procedure? proc string-map!) (let-string-start+end (start end) string-map! s maybe-start+end (%string-map! proc s start end))) (define (%string-map! proc s start end) (do ((i start (+ i 1))) ((>= i end) s) (string-set! s i (proc (string-ref s i))))) (define (string-fold kons knil s . maybe-start+end) ; (check-arg procedure? kons string-fold) (let-string-start+end (start end) string-fold s maybe-start+end (let lp ((v knil) (i start)) (if (< i end) (lp (kons (string-ref s i) v) (+ i 1)) v)))) (define (string-fold-right kons knil s . maybe-start+end) ; (check-arg procedure? kons string-fold-right) (let-string-start+end (start end) string-fold-right s maybe-start+end (let lp ((v knil) (i (- end 1))) (if (>= i start) (lp (kons (string-ref s i) v) (- i 1)) v)))) ;;; (string-unfold p f g seed [base make-final]) ;;; This is the fundamental constructor for strings. ;;; - G is used to generate a series of "seed" values from the initial seed: ;;; SEED, (G SEED), (G^2 SEED), (G^3 SEED), ... ;;; - P tells us when to stop -- when it returns true when applied to one ;;; of these seed values. ;;; - F maps each seed value to the corresponding character ;;; in the result string. These chars are assembled into the ;;; string in a left-to-right order. ;;; - BASE is the optional initial/leftmost portion of the constructed string; ;;; it defaults to the empty string "". ;;; - MAKE-FINAL is applied to the terminal seed value (on which P returns ;;; true) to produce the final/rightmost portion of the constructed string. ;;; It defaults to (LAMBDA (X) ""). ;;; ;;; In other words, the following (simple, inefficient) definition holds: ;;; (define (string-unfold p f g seed base make-final) ;;; (string-append base ;;; (let recur ((seed seed)) ;;; (if (p seed) (make-final seed) ;;; (string-append (string (f seed)) ;;; (recur (g seed))))))) ;;; ;;; STRING-UNFOLD is a fairly powerful constructor -- you can use it to ;;; reverse a string, copy a string, convert a list to a string, read ;;; a port into a string, and so forth. Examples: ;;; (port->string port) = ;;; (string-unfold (compose eof-object? peek-char) ;;; read-char values port) ;;; ;;; (list->string lis) = (string-unfold null? car cdr lis) ;;; ;;; (tabulate-string f size) = (string-unfold (lambda (i) (= i size)) f add1 0) ;;; A problem with the following simple formulation is that it pushes one ;;; stack frame for every char in the result string -- an issue if you are ;;; using it to read a 100kchar string. So we don't use it -- but I include ;;; it to give a clear, straightforward description of what the function ;;; does. ;(define (string-unfold p f g seed base make-final) ; (let ((ans (let recur ((seed seed) (i (string-length base))) ; (if (p seed) ; (let* ((final (make-final seed)) ; (ans (make-string (+ i (string-length final))))) ; (string-copy! ans i final) ; ans) ; ; (let* ((c (f seed)) ; (s (recur (g seed) (+ i 1)))) ; (string-set! s i c) ; s))))) ; (string-copy! ans 0 base) ; ans)) ;;; The strategy is to allocate a series of chunks into which we stash the ;;; chars as we generate them. Chunk size goes up in powers of two starting ;;; with 40 and levelling out at 4k, i.e. ;;; 40 40 80 160 320 640 1280 2560 4096 4096 4096 4096 4096... ;;; This should work pretty well for short strings, 1-line (80 char) strings, ;;; and longer ones. When done, we allocate an answer string and copy the ;;; chars over from the chunk buffers. (define (string-unfold p f g seed . base+make-final) ; (check-arg procedure? p string-unfold) ; (check-arg procedure? f string-unfold) ; (check-arg procedure? g string-unfold) (let-optionals* base+make-final ((base "") ; (string? base)) (make-final (lambda (x) ""))) ;(procedure? make-final))) (let lp ((chunks '()) ; Previously filled chunks (nchars 0) ; Number of chars in CHUNKS (chunk (make-string 40)) ; Current chunk into which we write (chunk-len 40) (i 0) ; Number of chars written into CHUNK (seed seed)) (let lp2 ((i i) (seed seed)) (if (not (p seed)) (let ((c (f seed)) (seed (g seed))) (if (< i chunk-len) (begin (string-set! chunk i c) (lp2 (+ i 1) seed)) (let* ((nchars2 (+ chunk-len nchars)) (chunk-len2 (min 4096 nchars2)) (new-chunk (make-string chunk-len2))) (string-set! new-chunk 0 c) (lp (cons chunk chunks) (+ nchars chunk-len) new-chunk chunk-len2 1 seed)))) ;; We're done. Make the answer string & install the bits. (let* ((final (make-final seed)) (flen (string-length final)) (base-len (string-length base)) (j (+ base-len nchars i)) (ans (make-string (+ j flen)))) (%string-copy! ans j final 0 flen) ; Install FINAL. (let ((j (- j i))) (%string-copy! ans j chunk 0 i) ; Install CHUNK[0,I). (let lp ((j j) (chunks chunks)) ; Install CHUNKS. (if (pair? chunks) (let* ((chunk (car chunks)) (chunks (cdr chunks)) (chunk-len (string-length chunk)) (j (- j chunk-len))) (%string-copy! ans j chunk 0 chunk-len) (lp j chunks))))) (%string-copy! ans 0 base 0 base-len) ; Install BASE. ans)))))) (define (string-unfold-right p f g seed . base+make-final) (let-optionals* base+make-final ((base ""); (string? base)) (make-final (lambda (x) ""))); (procedure? make-final))) (let lp ((chunks '()) ; Previously filled chunks (nchars 0) ; Number of chars in CHUNKS (chunk (make-string 40)) ; Current chunk into which we write (chunk-len 40) (i 40) ; Number of chars available in CHUNK (seed seed)) (let lp2 ((i i) (seed seed)) ; Fill up CHUNK from right (if (not (p seed)) ; to left. (let ((c (f seed)) (seed (g seed))) (if (> i 0) (let ((i (- i 1))) (string-set! chunk i c) (lp2 i seed)) (let* ((nchars2 (+ chunk-len nchars)) (chunk-len2 (min 4096 nchars2)) (new-chunk (make-string chunk-len2)) (i (- chunk-len2 1))) (string-set! new-chunk i c) (lp (cons chunk chunks) (+ nchars chunk-len) new-chunk chunk-len2 i seed)))) ;; We're done. Make the answer string & install the bits. (let* ((final (make-final seed)) (flen (string-length final)) (base-len (string-length base)) (chunk-used (- chunk-len i)) (j (+ base-len nchars chunk-used)) (ans (make-string (+ j flen)))) (%string-copy! ans 0 final 0 flen) ; Install FINAL. (%string-copy! ans flen chunk i chunk-len); Install CHUNK[I,). (let lp ((j (+ flen chunk-used)) ; Install CHUNKS. (chunks chunks)) (if (pair? chunks) (let* ((chunk (car chunks)) (chunks (cdr chunks)) (chunk-len (string-length chunk))) (%string-copy! ans j chunk 0 chunk-len) (lp (+ j chunk-len) chunks)) (%string-copy! ans j base 0 base-len))); Install BASE. ans)))))) (define (string-for-each proc s . maybe-start+end) ; (check-arg procedure? proc string-for-each) (let-string-start+end (start end) string-for-each s maybe-start+end (let lp ((i start)) (if (< i end) (begin (proc (string-ref s i)) (lp (+ i 1))))))) (define (string-for-each-index proc s . maybe-start+end) ; (check-arg procedure? proc string-for-each-index) (let-string-start+end (start end) string-for-each-index s maybe-start+end (let lp ((i start)) (if (< i end) (begin (proc i) (lp (+ i 1))))))) (define (string-every criteria s . maybe-start+end) (let-string-start+end (start end) string-every s maybe-start+end (cond ((char? criteria) (let lp ((i start)) (or (>= i end) (and (char=? criteria (string-ref s i)) (lp (+ i 1)))))) ((char-set? criteria) (let lp ((i start)) (or (>= i end) (and (char-set-contains? criteria (string-ref s i)) (lp (+ i 1)))))) ((procedure? criteria) ; Slightly funky loop so that (or (= start end) ; final (PRED S[END-1]) call (let lp ((i start)) ; is a tail call. (let ((c (string-ref s i)) (i1 (+ i 1))) (if (= i1 end) (criteria c) ; Tail call. (and (criteria c) (lp i1))))))) (else (##sys#error 'string-every "Second param is neither char-set, char, or predicate procedure." string-every criteria))))) (define (string-any criteria s . maybe-start+end) (let-string-start+end (start end) string-any s maybe-start+end (cond ((char? criteria) (let lp ((i start)) (and (< i end) (or (char=? criteria (string-ref s i)) (lp (+ i 1)))))) ((char-set? criteria) (let lp ((i start)) (and (< i end) (or (char-set-contains? criteria (string-ref s i)) (lp (+ i 1)))))) ((procedure? criteria) ; Slightly funky loop so that (and (< start end) ; final (PRED S[END-1]) call (let lp ((i start)) ; is a tail call. (let ((c (string-ref s i)) (i1 (+ i 1))) (if (= i1 end) (criteria c) ; Tail call (or (criteria c) (lp i1))))))) (else (##sys#error 'string-any "Second param is neither char-set, char, or predicate procedure." string-any criteria))))) (define (string-tabulate proc len) ; (check-arg procedure? proc string-tabulate) ; (check-arg (lambda (val) (and (integer? val) (exact? val) (<= 0 val))) ; len string-tabulate) (##sys#check-exact len 'string-tabulate) (let ((s (make-string len))) (do ((i (- len 1) (- i 1))) ((< i 0)) (string-set! s i (proc i))) s)) ;;; string-prefix-length[-ci] s1 s2 [start1 end1 start2 end2] ;;; string-suffix-length[-ci] s1 s2 [start1 end1 start2 end2] ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Find the length of the common prefix/suffix. ;;; It is not required that the two substrings passed be of equal length. ;;; This was microcode in MIT Scheme -- a very tightly bummed primitive. ;;; %STRING-PREFIX-LENGTH is the core routine of all string-comparisons, ;;; so should be as tense as possible. (define (%string-prefix-length s1 start1 end1 s2 start2 end2) (let* ((delta (min (- end1 start1) (- end2 start2))) (end1 (+ start1 delta))) (if (and (eq? s1 s2) (= start1 start2)) ; EQ fast path delta (let lp ((i start1) (j start2)) ; Regular path (if (or (>= i end1) (not (char=? (string-ref s1 i) (string-ref s2 j)))) (- i start1) (lp (+ i 1) (+ j 1))))))) (define (%string-suffix-length s1 start1 end1 s2 start2 end2) (let* ((delta (min (- end1 start1) (- end2 start2))) (start1 (- end1 delta))) (if (and (eq? s1 s2) (= end1 end2)) ; EQ fast path delta (let lp ((i (- end1 1)) (j (- end2 1))) ; Regular path (if (or (< i start1) (not (char=? (string-ref s1 i) (string-ref s2 j)))) (- (- end1 i) 1) (lp (- i 1) (- j 1))))))) (define (%string-prefix-length-ci s1 start1 end1 s2 start2 end2) (let* ((delta (min (- end1 start1) (- end2 start2))) (end1 (+ start1 delta))) (if (and (eq? s1 s2) (= start1 start2)) ; EQ fast path delta (let lp ((i start1) (j start2)) ; Regular path (if (or (>= i end1) (not (char-ci=? (string-ref s1 i) (string-ref s2 j)))) (- i start1) (lp (+ i 1) (+ j 1))))))) (define (%string-suffix-length-ci s1 start1 end1 s2 start2 end2) (let* ((delta (min (- end1 start1) (- end2 start2))) (start1 (- end1 delta))) (if (and (eq? s1 s2) (= end1 end2)) ; EQ fast path delta (let lp ((i (- end1 1)) (j (- end2 1))) ; Regular path (if (or (< i start1) (not (char-ci=? (string-ref s1 i) (string-ref s2 j)))) (- (- end1 i) 1) (lp (- i 1) (- j 1))))))) (define (string-prefix-length s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string-prefix-length s1 s2 maybe-starts+ends (%string-prefix-length s1 start1 end1 s2 start2 end2))) (define (string-suffix-length s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string-suffix-length s1 s2 maybe-starts+ends (%string-suffix-length s1 start1 end1 s2 start2 end2))) (define (string-prefix-length-ci s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string-prefix-length-ci s1 s2 maybe-starts+ends (%string-prefix-length-ci s1 start1 end1 s2 start2 end2))) (define (string-suffix-length-ci s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string-suffix-length-ci s1 s2 maybe-starts+ends (%string-suffix-length-ci s1 start1 end1 s2 start2 end2))) ;;; string-prefix? s1 s2 [start1 end1 start2 end2] ;;; string-suffix? s1 s2 [start1 end1 start2 end2] ;;; string-prefix-ci? s1 s2 [start1 end1 start2 end2] ;;; string-suffix-ci? s1 s2 [start1 end1 start2 end2] ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; These are all simple derivatives of the previous counting funs. (define (string-prefix? s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string-prefix? s1 s2 maybe-starts+ends (%string-prefix? s1 start1 end1 s2 start2 end2))) (define (string-suffix? s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string-suffix? s1 s2 maybe-starts+ends (%string-suffix? s1 start1 end1 s2 start2 end2))) (define (string-prefix-ci? s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string-prefix-ci? s1 s2 maybe-starts+ends (%string-prefix-ci? s1 start1 end1 s2 start2 end2))) (define (string-suffix-ci? s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string-suffix-ci? s1 s2 maybe-starts+ends (%string-suffix-ci? s1 start1 end1 s2 start2 end2))) ;;; Here are the internal routines that do the real work. (define (%string-prefix? s1 start1 end1 s2 start2 end2) (let ((len1 (- end1 start1))) (and (<= len1 (- end2 start2)) ; Quick check (= (%string-prefix-length s1 start1 end1 s2 start2 end2) len1)))) (define (%string-suffix? s1 start1 end1 s2 start2 end2) (let ((len1 (- end1 start1))) (and (<= len1 (- end2 start2)) ; Quick check (= len1 (%string-suffix-length s1 start1 end1 s2 start2 end2))))) (define (%string-prefix-ci? s1 start1 end1 s2 start2 end2) (let ((len1 (- end1 start1))) (and (<= len1 (- end2 start2)) ; Quick check (= len1 (%string-prefix-length-ci s1 start1 end1 s2 start2 end2))))) (define (%string-suffix-ci? s1 start1 end1 s2 start2 end2) (let ((len1 (- end1 start1))) (and (<= len1 (- end2 start2)) ; Quick check (= len1 (%string-suffix-length-ci s1 start1 end1 s2 start2 end2))))) ;;; string-compare s1 s2 proc< proc= proc> [start1 end1 start2 end2] ;;; string-compare-ci s1 s2 proc< proc= proc> [start1 end1 start2 end2] ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Primitive string-comparison functions. ;;; Continuation order is different from MIT Scheme. ;;; Continuations are applied to s1's mismatch index; ;;; in the case of equality, this is END1. (define (%string-compare s1 start1 end1 s2 start2 end2 proc< proc= proc>) (let ((size1 (- end1 start1)) (size2 (- end2 start2))) (let ((match (%string-prefix-length s1 start1 end1 s2 start2 end2))) (if (= match size1) ((if (= match size2) proc= proc<) end1) ((if (= match size2) proc> (if (char<? (string-ref s1 (+ start1 match)) (string-ref s2 (+ start2 match))) proc< proc>)) (+ match start1)))))) (define (%string-compare-ci s1 start1 end1 s2 start2 end2 proc< proc= proc>) (let ((size1 (- end1 start1)) (size2 (- end2 start2))) (let ((match (%string-prefix-length-ci s1 start1 end1 s2 start2 end2))) (if (= match size1) ((if (= match size2) proc= proc<) end1) ((if (= match size2) proc> (if (char-ci<? (string-ref s1 (+ start1 match)) (string-ref s2 (+ start2 match))) proc< proc>)) (+ start1 match)))))) (define (string-compare s1 s2 proc< proc= proc> . maybe-starts+ends) ; (check-arg procedure? proc< string-compare) ; (check-arg procedure? proc= string-compare) ; (check-arg procedure? proc> string-compare) (let-string-start+end2 (start1 end1 start2 end2) string-compare s1 s2 maybe-starts+ends (%string-compare s1 start1 end1 s2 start2 end2 proc< proc= proc>))) (define (string-compare-ci s1 s2 proc< proc= proc> . maybe-starts+ends) ; (check-arg procedure? proc< string-compare-ci) ; (check-arg procedure? proc= string-compare-ci) ; (check-arg procedure? proc> string-compare-ci) (let-string-start+end2 (start1 end1 start2 end2) string-compare-ci s1 s2 maybe-starts+ends (%string-compare-ci s1 start1 end1 s2 start2 end2 proc< proc= proc>))) ;;; string= string<> string-ci= string-ci<> ;;; string< string> string-ci< string-ci> ;;; string<= string>= string-ci<= string-ci>= ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Simple definitions in terms of the previous comparison funs. ;;; I sure hope the %STRING-COMPARE calls get integrated. (define (string= s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string= s1 s2 maybe-starts+ends (and (= (- end1 start1) (- end2 start2)) ; Quick filter (or (and (eq? s1 s2) (= start1 start2)) ; Fast path (%string-compare s1 start1 end1 s2 start2 end2 ; Real test (lambda (i) #f) (lambda (i) (if i #t #f)) (lambda (i) #f)))))) (define (string<> s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string<> s1 s2 maybe-starts+ends (or (not (= (- end1 start1) (- end2 start2))) ; Fast path (and (not (and (eq? s1 s2) (= start1 start2))) ; Quick filter (%string-compare s1 start1 end1 s2 start2 end2 ; Real test (lambda (i) (if i #t #f)) (lambda (i) #f) (lambda (i) (if i #t #f))))))) (define (string< s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string< s1 s2 maybe-starts+ends (if (and (eq? s1 s2) (= start1 start2)) ; Fast path (< end1 end2) (%string-compare s1 start1 end1 s2 start2 end2 ; Real test (lambda (i) (if i #t #f)) (lambda (i) #f) (lambda (i) #f))))) (define (string> s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string> s1 s2 maybe-starts+ends (if (and (eq? s1 s2) (= start1 start2)) ; Fast path (> end1 end2) (%string-compare s1 start1 end1 s2 start2 end2 ; Real test (lambda (i) #f) (lambda (i) #f) (lambda (i) (if i #t #f)))))) (define (string<= s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string<= s1 s2 maybe-starts+ends (if (and (eq? s1 s2) (= start1 start2)) ; Fast path (<= end1 end2) (%string-compare s1 start1 end1 s2 start2 end2 ; Real test (lambda (i) (if i #t #f)) (lambda (i) (if i #t #f)) (lambda (i) #f))))) (define (string>= s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string>= s1 s2 maybe-starts+ends (if (and (eq? s1 s2) (= start1 start2)) ; Fast path (>= end1 end2) (%string-compare s1 start1 end1 s2 start2 end2 ; Real test (lambda (i) #f) (lambda (i) (if i #t #f)) (lambda (i) (if i #t #f)))))) (define (string-ci= s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string-ci= s1 s2 maybe-starts+ends (and (= (- end1 start1) (- end2 start2)) ; Quick filter (or (and (eq? s1 s2) (= start1 start2)) ; Fast path (%string-compare-ci s1 start1 end1 s2 start2 end2 ; Real test (lambda (i) #f) (lambda (i) (if i #t #f)) (lambda (i) #f)))))) (define (string-ci<> s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string-ci<> s1 s2 maybe-starts+ends (or (not (= (- end1 start1) (- end2 start2))) ; Fast path (and (not (and (eq? s1 s2) (= start1 start2))) ; Quick filter (%string-compare-ci s1 start1 end1 s2 start2 end2 ; Real test (lambda (i) (if i #t #f)) (lambda (i) #f) (lambda (i) (if i #t #f))))))) (define (string-ci< s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string-ci< s1 s2 maybe-starts+ends (if (and (eq? s1 s2) (= start1 start2)) ; Fast path (< end1 end2) (%string-compare-ci s1 start1 end1 s2 start2 end2 ; Real test (lambda (i) (if i #t #f)) (lambda (i) #f) (lambda (i) #f))))) (define (string-ci> s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string-ci> s1 s2 maybe-starts+ends (if (and (eq? s1 s2) (= start1 start2)) ; Fast path (> end1 end2) (%string-compare-ci s1 start1 end1 s2 start2 end2 ; Real test (lambda (i) #f) (lambda (i) #f) (lambda (i) (if i #t #f)))))) (define (string-ci<= s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string-ci<= s1 s2 maybe-starts+ends (if (and (eq? s1 s2) (= start1 start2)) ; Fast path (<= end1 end2) (%string-compare-ci s1 start1 end1 s2 start2 end2 ; Real test (lambda (i) (if i #t #f)) (lambda (i) (if i #t #f)) (lambda (i) #f))))) (define (string-ci>= s1 s2 . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string-ci>= s1 s2 maybe-starts+ends (if (and (eq? s1 s2) (= start1 start2)) ; Fast path (>= end1 end2) (%string-compare-ci s1 start1 end1 s2 start2 end2 ; Real test (lambda (i) #f) (lambda (i) (if i #t #f)) (lambda (i) (if i #t #f)))))) ;;; Hash ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Compute (c + 37 c + 37^2 c + ...) modulo BOUND. ;;; If you keep BOUND small enough, the intermediate calculations will ;;; always be fixnums. How small is dependent on the underlying Scheme system; ;;; we use a default BOUND of 2^22 = 4194304, which should hack it in ;;; Schemes that give you at least 29 signed bits for fixnums. The core ;;; calculation that you don't want to overflow is, worst case, ;;; (+ 65535 (* 37 (- bound 1))) ;;; where 65535 is the max character code. Choose the default BOUND to be the ;;; biggest power of two that won't cause this expression to fixnum overflow, ;;; and everything will be copacetic. (define (%string-hash s char->int bound start end) (let ((iref (lambda (s i) (char->int (string-ref s i)))) ;; Compute a 111...1 mask that will cover BOUND-1: (mask (let lp ((i #x10000)) ; Let's skip first 16 iterations, eh? (if (>= i bound) (- i 1) (lp (+ i i)))))) (let lp ((i start) (ans 0)) (if (>= i end) (modulo ans bound) (lp (+ i 1) (fxand mask (+ (* 37 ans) (iref s i)))))))) (define (string-hash s . maybe-bound+start+end) (let-optionals* maybe-bound+start+end ((bound 4194304); (and (integer? bound) ; (exact? bound) ; (<= 0 bound))) rest) (if (zero? bound) (set! bound 4194304)) (##sys#check-exact bound 'string-hash) (let-string-start+end (start end) string-hash s rest (%string-hash s char->integer bound start end)))) (define (string-hash-ci s . maybe-bound+start+end) (let-optionals* maybe-bound+start+end ((bound 4194304) ;(and (integer? bound) ; (exact? bound) ; (<= 0 bound))) rest) (if (zero? bound) (set! bound 4194304)) (##sys#check-exact bound 'string-hash-ci) (let-string-start+end (start end) string-hash-ci s rest (%string-hash s (lambda (c) (char->integer (char-downcase c))) bound start end)))) ;;; Case hacking ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; string-upcase s [start end] ;;; string-upcase! s [start end] ;;; string-downcase s [start end] ;;; string-downcase! s [start end] ;;; ;;; string-titlecase s [start end] ;;; string-titlecase! s [start end] ;;; Capitalize every contiguous alpha sequence: capitalise ;;; first char, lowercase rest. (define (string-upcase s . maybe-start+end) (let-string-start+end (start end) string-upcase s maybe-start+end (%string-map char-upcase s start end))) (define (string-upcase! s . maybe-start+end) (let-string-start+end (start end) string-upcase! s maybe-start+end (%string-map! char-upcase s start end))) (define (string-downcase s . maybe-start+end) (let-string-start+end (start end) string-downcase s maybe-start+end (%string-map char-downcase s start end))) (define (string-downcase! s . maybe-start+end) (let-string-start+end (start end) string-downcase! s maybe-start+end (%string-map! char-downcase s start end))) (define (%string-titlecase! s start end) (let lp ((i start)) (cond ((string-index s char-cased? i end) => (lambda (i) (string-set! s i (char-titlecase (string-ref s i))) (let ((i1 (+ i 1))) (cond ((string-skip s char-cased? i1 end) => (lambda (j) (string-downcase! s i1 j) (lp (+ j 1)))) (else (string-downcase! s i1 end))))))))) (define (string-titlecase! s . maybe-start+end) (let-string-start+end (start end) string-titlecase! s maybe-start+end (%string-titlecase! s start end))) (define (string-titlecase s . maybe-start+end) (let-string-start+end (start end) string-titlecase! s maybe-start+end (let ((ans (##sys#substring s start end))) (%string-titlecase! ans 0 (- end start)) ans))) ;;; Cutting & pasting strings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; string-take string nchars ;;; string-drop string nchars ;;; ;;; string-take-right string nchars ;;; string-drop-right string nchars ;;; ;;; string-pad string k [char start end] ;;; string-pad-right string k [char start end] ;;; ;;; string-trim string [char/char-set/pred start end] ;;; string-trim-right string [char/char-set/pred start end] ;;; string-trim-both string [char/char-set/pred start end] ;;; ;;; These trimmers invert the char-set meaning from MIT Scheme -- you ;;; say what you want to trim. (define (string-take s n) ; (check-arg string? s string-take) ; (check-arg (lambda (val) (and (integer? n) (exact? n) ; (<= 0 n (string-length s)))) ; n string-take) (##sys#check-string s 'string-take) (##sys#check-range n 0 (fx+ 1 (##sys#size s)) 'string-take) (%substring/shared s 0 n)) (define (string-take-right s n) ; (check-arg string? s string-take-right) (##sys#check-string s 'string-take-right) (##sys#check-range n 0 (fx+ 1 (##sys#size s)) 'string-take-right) (let ((len (##sys#size s))) ; (check-arg (lambda (val) (and (integer? n) (exact? n) (<= 0 n len))) ; n string-take-right) (%substring/shared s (- len n) len))) (define (string-drop s n) ; (check-arg string? s string-drop) (##sys#check-string s 'string-drop) (##sys#check-range n 0 (fx+ 1 (##sys#size s)) 'string-drop) (let ((len (##sys#size s))) ; (check-arg (lambda (val) (and (integer? n) (exact? n) (<= 0 n len))) ; n string-drop) (%substring/shared s n len))) (define (string-drop-right s n) ; (check-arg string? s string-drop-right) (##sys#check-string s 'string-drop-right) (##sys#check-range n 0 (fx+ 1 (##sys#size s)) 'string-drop-right) (let ((len (##sys#size s))) ; (check-arg (lambda (val) (and (integer? n) (exact? n) (<= 0 n len))) ; n string-drop-right) (%substring/shared s 0 (- len n)))) (define (string-trim s . criteria+start+end) (let-optionals* criteria+start+end ((criteria char-set:whitespace) rest) (let-string-start+end (start end) string-trim s rest (cond ((string-skip s criteria start end) => (lambda (i) (%substring/shared s i end))) (else ""))))) (define (string-trim-right s . criteria+start+end) (let-optionals* criteria+start+end ((criteria char-set:whitespace) rest) (let-string-start+end (start end) string-trim-right s rest (cond ((string-skip-right s criteria start end) => (lambda (i) (%substring/shared s start (+ 1 i)))) (else ""))))) (define (string-trim-both s . criteria+start+end) (let-optionals* criteria+start+end ((criteria char-set:whitespace) rest) (let-string-start+end (start end) string-trim-both s rest (cond ((string-skip s criteria start end) => (lambda (i) (%substring/shared s i (+ 1 (string-skip-right s criteria i end))))) (else ""))))) (define (string-pad-right s n . char+start+end) (##sys#check-exact n 'string-pad-right) (let-optionals* char+start+end ((char #\space) rest) ; (char? char)) rest) (let-string-start+end (start end) string-pad-right s rest (let ((len (- end start))) (if (<= n len) (%substring/shared s start (+ start n)) (let ((ans (make-string n char))) (%string-copy! ans 0 s start end) ans)))))) (define (string-pad s n . char+start+end) (##sys#check-exact n 'string-pad) (let-optionals* char+start+end ((char #\space) rest) ; (char? char)) rest) (let-string-start+end (start end) string-pad s rest (let ((len (- end start))) (if (<= n len) (%substring/shared s (- end n) end) (let ((ans (make-string n char))) (%string-copy! ans (- n len) s start end) ans)))))) ;;; Filtering strings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; string-delete char/char-set/pred string [start end] ;;; string-filter char/char-set/pred string [start end] ;;; ;;; If the criteria is a char or char-set, we scan the string twice with ;;; string-fold -- once to determine the length of the result string, ;;; and once to do the filtered copy. ;;; If the criteria is a predicate, we don't do this double-scan strategy, ;;; because the predicate might have side-effects or be very expensive to ;;; compute. So we preallocate a temp buffer pessimistically, and only do ;;; one scan over S. This is likely to be faster and more space-efficient ;;; than consing a list. (define (string-delete criteria s . maybe-start+end) (let-string-start+end (start end) string-delete s maybe-start+end (if (procedure? criteria) (let* ((slen (- end start)) (temp (make-string slen)) (ans-len (string-fold (lambda (c i) (if (criteria c) i (begin (string-set! temp i c) (+ i 1)))) 0 s start end))) (if (= ans-len slen) temp (##sys#substring temp 0 ans-len))) (let* ((cset (cond ((char-set? criteria) criteria) ((char? criteria) (char-set criteria)) (else (##sys#error 'string-delete "string-delete criteria not predicate, char or char-set" criteria)))) (len (string-fold (lambda (c i) (if (char-set-contains? cset c) i (+ i 1))) 0 s start end)) (ans (make-string len))) (string-fold (lambda (c i) (if (char-set-contains? cset c) i (begin (string-set! ans i c) (+ i 1)))) 0 s start end) ans)))) (define (string-filter criteria s . maybe-start+end) (let-string-start+end (start end) string-filter s maybe-start+end (if (procedure? criteria) (let* ((slen (- end start)) (temp (make-string slen)) (ans-len (string-fold (lambda (c i) (if (criteria c) (begin (string-set! temp i c) (+ i 1)) i)) 0 s start end))) (if (= ans-len slen) temp (##sys#substring temp 0 ans-len))) (let* ((cset (cond ((char-set? criteria) criteria) ((char? criteria) (char-set criteria)) (else (##sys#error 'string-filter "string-delete criteria not predicate, char or char-set" criteria)))) (len (string-fold (lambda (c i) (if (char-set-contains? cset c) (+ i 1) i)) 0 s start end)) (ans (make-string len))) (string-fold (lambda (c i) (if (char-set-contains? cset c) (begin (string-set! ans i c) (+ i 1)) i)) 0 s start end) ans)))) ;;; String search ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; string-index string char/char-set/pred [start end] ;;; string-index-right string char/char-set/pred [start end] ;;; string-skip string char/char-set/pred [start end] ;;; string-skip-right string char/char-set/pred [start end] ;;; string-count char/char-set/pred string [start end] ;;; There's a lot of replicated code here for efficiency. ;;; For example, the char/char-set/pred discrimination has ;;; been lifted above the inner loop of each proc. (define (string-index str criteria . maybe-start+end) (let-string-start+end (start end) string-index str maybe-start+end (cond ((char? criteria) (let lp ((i start)) (and (< i end) (if (char=? criteria (string-ref str i)) i (lp (+ i 1)))))) ((char-set? criteria) (let lp ((i start)) (and (< i end) (if (char-set-contains? criteria (string-ref str i)) i (lp (+ i 1)))))) ((procedure? criteria) (let lp ((i start)) (and (< i end) (if (criteria (string-ref str i)) i (lp (+ i 1)))))) (else (##sys#error 'string-index "Second param is neither char-set, char, or predicate procedure." string-index criteria))))) (define (string-index-right str criteria . maybe-start+end) (let-string-start+end (start end) string-index-right str maybe-start+end (cond ((char? criteria) (let lp ((i (- end 1))) (and (>= i start) (if (char=? criteria (string-ref str i)) i (lp (- i 1)))))) ((char-set? criteria) (let lp ((i (- end 1))) (and (>= i start) (if (char-set-contains? criteria (string-ref str i)) i (lp (- i 1)))))) ((procedure? criteria) (let lp ((i (- end 1))) (and (>= i start) (if (criteria (string-ref str i)) i (lp (- i 1)))))) (else (##sys#error 'string-index-right "Second param is neither char-set, char, or predicate procedure." string-index-right criteria))))) (define (string-skip str criteria . maybe-start+end) (let-string-start+end (start end) string-skip str maybe-start+end (cond ((char? criteria) (let lp ((i start)) (and (< i end) (if (char=? criteria (string-ref str i)) (lp (+ i 1)) i)))) ((char-set? criteria) (let lp ((i start)) (and (< i end) (if (char-set-contains? criteria (string-ref str i)) (lp (+ i 1)) i)))) ((procedure? criteria) (let lp ((i start)) (and (< i end) (if (criteria (string-ref str i)) (lp (+ i 1)) i)))) (else (##sys#error 'string-skip "Second param is neither char-set, char, or predicate procedure." string-skip criteria))))) (define (string-skip-right str criteria . maybe-start+end) (let-string-start+end (start end) string-skip-right str maybe-start+end (cond ((char? criteria) (let lp ((i (- end 1))) (and (>= i start) (if (char=? criteria (string-ref str i)) (lp (- i 1)) i)))) ((char-set? criteria) (let lp ((i (- end 1))) (and (>= i start) (if (char-set-contains? criteria (string-ref str i)) (lp (- i 1)) i)))) ((procedure? criteria) (let lp ((i (- end 1))) (and (>= i start) (if (criteria (string-ref str i)) (lp (- i 1)) i)))) (else (##sys#error 'string-skip-right "CRITERIA param is neither char-set or char." string-skip-right criteria))))) ; [felix] Boooh! original code had "s" and "criteria" in the wrong order: (define (string-count s criteria . maybe-start+end) (let-string-start+end (start end) string-count s maybe-start+end (cond ((char? criteria) (do ((i start (+ i 1)) (count 0 (if (char=? criteria (string-ref s i)) (+ count 1) count))) ((>= i end) count))) ((char-set? criteria) (do ((i start (+ i 1)) (count 0 (if (char-set-contains? criteria (string-ref s i)) (+ count 1) count))) ((>= i end) count))) ((procedure? criteria) (do ((i start (+ i 1)) (count 0 (if (criteria (string-ref s i)) (+ count 1) count))) ((>= i end) count))) (else (##sys#error 'string-count "CRITERIA param is neither char-set or char." string-count criteria))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; string-fill! string char [start end] ;;; ;;; string-copy! to tstart from [fstart fend] ;;; Guaranteed to work, even if s1 eq s2. (define (string-fill! s char . maybe-start+end) ; (check-arg char? char string-fill!) (let-string-start+end (start end) string-fill! s maybe-start+end (do ((i (- end 1) (- i 1))) ((< i start)) (string-set! s i char)))) (define (string-copy! to tstart from . maybe-fstart+fend) (let-string-start+end (fstart fend) string-copy! from maybe-fstart+fend ; (check-arg integer? tstart string-copy!) (##sys#check-exact tstart 'string-copy!) (check-substring-spec string-copy! to tstart (+ tstart (- fend fstart))) (%string-copy! to tstart from fstart fend))) ;;; Library-internal routine (define (%string-copy! to tstart from fstart fend) (##core#inline "C_substring_copy" from to fstart fend tstart)) ;;; Returns starting-position in STRING or #f if not true. ;;; This implementation is slow & simple. It is useful as a "spec" or for ;;; comparison testing with fancier implementations. ;;; See below for fast KMP version. (define (string-contains string substring . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string-contains string substring maybe-starts+ends (let* ((len (fx- end2 start2)) (i-bound (fx- end1 len))) (let lp ((i start1)) (and (fx<= i i-bound) (if (string= string substring i (fx+ i len) start2 end2) i (lp (fx+ i 1)))))))) (define (string-contains-ci string substring . maybe-starts+ends) (let-string-start+end2 (start1 end1 start2 end2) string-contains string substring maybe-starts+ends (let* ((len (fx- end2 start2)) (i-bound (fx- end1 len))) (let lp ((i start1)) (and (fx<= i i-bound) (if (string-ci= string substring i (fx+ i len) start2 end2) i (lp (fx+ i 1)))))))) ;;; Searching for an occurrence of a substring ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; this is completely broken and was probably never tested. Thanks, Olin! (flw) ;;; Knuth-Morris-Pratt string searching ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; See ;;; "Fast pattern matching in strings" ;;; SIAM J. Computing 6(2):323-350 1977 ;;; D. E. Knuth, J. H. Morris and V. R. Pratt ;;; also described in ;;; "Pattern matching in strings" ;;; Alfred V. Aho ;;; Formal Language Theory - Perspectives and Open Problems ;;; Ronald V. Brook (editor) ;;; This algorithm is O(m + n) where m and n are the ;;; lengths of the pattern and string respectively ;;; (make-kmp-restart-vector pattern [c= start end]) -> integer-vector ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Compute the KMP restart vector RV for string PATTERN. If ;;; we have matched chars 0..i-1 of PATTERN against a search string S, and ;;; PATTERN[i] doesn't match S[k], then reset i := RV[i], and try again to ;;; match S[k]. If RV[i] = -1, then punt S[k] completely, and move on to ;;; S[k+1] and PATTERN[0] -- no possible match of PAT[0..i] contains S[k]. ;;; ;;; In other words, if you have matched the first i chars of PATTERN, but ;;; the i+1'th char doesn't match, RV[i] tells you what the next-longest ;;; prefix of PATTERN is that you have matched. ;;; ;;; - C= (default CHAR=?) is used to compare characters for equality. ;;; Pass in CHAR-CI=? for case-folded string search. ;;; ;;; - START & END restrict the pattern to the indicated substring; the ;;; returned vector will be of length END - START. The numbers stored ;;; in the vector will be values in the range [0,END-START) -- that is, ;;; they are valid indices into the restart vector; you have to add START ;;; to them to use them as indices into PATTERN. ;;; ;;; I've split this out as a separate function in case other constant-string ;;; searchers might want to use it. ;;; ;;; E.g.: ;;; a b d a b x ;;; #(-1 0 0 -1 1 2) (define (make-kmp-restart-vector pattern . maybe-c=+start+end) (let-optionals* maybe-c=+start+end ((c= char=?) rest) ; (procedure? c=)) (receive (rest2 start end) (string-parse-start+end make-kmp-restart-vector pattern rest) (let* ((rvlen (- end start)) (rv (make-vector rvlen -1))) (if (> rvlen 0) (let ((rvlen-1 (- rvlen 1)) (c0 (string-ref pattern start))) ;; Here's the main loop. We have set rv[0] ... rv[i]. ;; K = I + START -- it is the corresponding index into PATTERN. (let lp1 ((i 0) (j -1) (k start)) (if (< i rvlen-1) ;; lp2 invariant: ;; pat[(k-j) .. k-1] matches pat[start .. start+j-1] ;; or j = -1. (let lp2 ((j j)) (cond ((= j -1) (let ((i1 (+ i 1)) (ck+1 (string-ref pattern (add1 k)))) (vector-set! rv i1 (if (c= ck+1 c0) -1 0)) (lp1 i1 0 (+ k 1)))) ;; pat[(k-j) .. k] matches pat[start..start+j]. ((c= (string-ref pattern k) (string-ref pattern (+ j start))) (let* ((i1 (+ 1 i)) (j1 (+ 1 j))) (vector-set! rv i1 j1) (lp1 i1 j1 (+ k 1)))) (else (lp2 (vector-ref rv j))))))))) rv)))) ;;; We've matched I chars from PAT. C is the next char from the search string. ;;; Return the new I after handling C. ;;; ;;; The pattern is (VECTOR-LENGTH RV) chars long, beginning at index PAT-START ;;; in PAT (PAT-START is usually 0). The I chars of the pattern we've matched ;;; are ;;; PAT[PAT-START .. PAT-START + I]. ;;; ;;; It's *not* an oversight that there is no friendly error checking or ;;; defaulting of arguments. This is a low-level, inner-loop procedure ;;; that we want integrated/inlined into the point of call. (define (kmp-step pat rv c i c= p-start) (let lp ((i i)) (if (c= c (string-ref pat (+ i p-start))) ; Match => (+ i 1) ; Done. (let ((i (vector-ref rv i))) ; Back up in PAT. (if (= i -1) 0 ; Can't back up further. (lp i)))))) ; Keep trying for match. ;;; Zip through S[start,end), looking for a match of PAT. Assume we've ;;; already matched the first I chars of PAT when we commence at S[start]. ;;; - <0: If we find a match *ending* at index J, return -J. ;;; - >=0: If we get to the end of the S[start,end) span without finding ;;; a complete match, return the number of chars from PAT we'd matched ;;; when we ran off the end. ;;; ;;; This is useful for searching *across* buffers -- that is, when your ;;; input comes in chunks of text. We hand-integrate the KMP-STEP loop ;;; for speed. (define (string-kmp-partial-search pat rv s i . c=+p-start+s-start+s-end) ; (check-arg vector? rv string-kmp-partial-search) (let-optionals* c=+p-start+s-start+s-end ((c= char=?) ; (procedure? c=)) (p-start 0) rest) ; (and (integer? p-start) (exact? p-start) (<= 0 p-start))) (receive (rest2 s-start s-end) (string-parse-start+end string-kmp-partial-search s rest) ;; Enough prelude. Here's the actual code. (let ((patlen (vector-length rv))) (let lp ((si s-start) ; An index into S. (vi i)) ; An index into RV. (cond ((= vi patlen) (- si)) ; Win. ((= si s-end) vi) ; Ran off the end. (else ; Match s[si] & loop. (let ((c (string-ref s si))) (lp (+ si 1) (let lp2 ((vi vi)) ; This is just KMP-STEP. (if (c= c (string-ref pat (+ vi p-start))) (+ vi 1) (let ((vi (vector-ref rv vi))) (if (= vi -1) 0 (lp2 vi))))))))))))) ) ;;; Misc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; (string-null? s) ;;; (string-reverse s [start end]) ;;; (string-reverse! s [start end]) ;;; (reverse-list->string clist) ;;; (string->list s [start end]) (define (string-null? s) (##core#inline "C_i_string_null_p" s)) (define (string-reverse s . maybe-start+end) (let-string-start+end (start end) string-reverse s maybe-start+end (let* ((len (- end start)) (ans (make-string len))) (do ((i start (+ i 1)) (j (- len 1) (- j 1))) ((< j 0)) (string-set! ans j (string-ref s i))) ans))) (define (string-reverse! s . maybe-start+end) (let-string-start+end (start end) string-reverse! s maybe-start+end (do ((i (- end 1) (- i 1)) (j start (+ j 1))) ((<= i j)) (let ((ci (string-ref s i))) (string-set! s i (string-ref s j)) (string-set! s j ci))))) #| this is already available in library.scm: (define (reverse-list->string clist) (let* ((len (length clist)) (s (make-string len))) (do ((i (- len 1) (- i 1)) (clist clist (cdr clist))) ((not (pair? clist))) (string-set! s i (car clist))) s)) |# ;(define (string->list s . maybe-start+end) ; (apply string-fold-right cons '() s maybe-start+end)) (define (string->list s . maybe-start+end) (let-string-start+end (start end) string->list s maybe-start+end (do ((i (- end 1) (- i 1)) (ans '() (cons (string-ref s i) ans))) ((< i start) ans)))) ;;; Defined by R5RS, so commented out here. ;(define (list->string lis) (string-unfold null? car cdr lis)) ;;; string-concatenate string-list -> string ;;; string-concatenate/shared string-list -> string ;;; string-append/shared s ... -> string ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; STRING-APPEND/SHARED has license to return a string that shares storage ;;; with any of its arguments. In particular, if there is only one non-empty ;;; string amongst its parameters, it is permitted to return that string as ;;; its result. STRING-APPEND, by contrast, always allocates new storage. ;;; ;;; STRING-CONCATENATE & STRING-CONCATENATE/SHARED are passed a list of ;;; strings, which they concatenate into a result string. STRING-CONCATENATE ;;; always allocates a fresh string; STRING-CONCATENATE/SHARED may (or may ;;; not) return a result that shares storage with any of its arguments. In ;;; particular, if it is applied to a singleton list, it is permitted to ;;; return the car of that list as its value. (define (string-append/shared . strings) (string-concatenate/shared strings)) (define (string-concatenate/shared strings) (let lp ((strings strings) (nchars 0) (first #f)) (cond ((pair? strings) ; Scan the args, add up total (let* ((string (car strings)) ; length, remember 1st (tail (cdr strings)) ; non-empty string. (slen (string-length string))) (if (zero? slen) (lp tail nchars first) (lp tail (+ nchars slen) (or first strings))))) ((zero? nchars) "") ;; Just one non-empty string! Return it. ((= nchars (string-length (car first))) (car first)) (else (let ((ans (make-string nchars))) (let lp ((strings first) (i 0)) (if (pair? strings) (let* ((s (car strings)) (slen (string-length s))) (%string-copy! ans i s 0 slen) (lp (cdr strings) (+ i slen))))) ans))))) ; Alas, Scheme 48's APPLY blows up if you have many, many arguments. ;(define (string-concatenate strings) (apply string-append strings)) ;;; Here it is written out. I avoid using REDUCE to add up string lengths ;;; to avoid non-R5RS dependencies. (define (string-concatenate strings) (let* ((total (do ((strings strings (cdr strings)) (i 0 (+ i (string-length (car strings))))) ((not (pair? strings)) i))) (ans (make-string total))) (let lp ((i 0) (strings strings)) (if (pair? strings) (let* ((s (car strings)) (slen (string-length s))) (%string-copy! ans i s 0 slen) (lp (+ i slen) (cdr strings))))) ans)) ;;; Defined by R5RS, so commented out here. ;(define (string-append . strings) (string-concatenate strings)) ;;; string-concatenate-reverse string-list [final-string end] -> string ;;; string-concatenate-reverse/shared string-list [final-string end] -> string ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Return ;;; (string-concatenate ;;; (reverse ;;; (cons (substring final-string 0 end) string-list))) (define (string-concatenate-reverse string-list . maybe-final+end) (let-optionals* maybe-final+end ((final ""); (string? final)) (end (string-length final)) ) ; (and (integer? end) ; (exact? end) ; (<= 0 end (string-length final))))) (##sys#check-exact end 'string-concatenate-reverse) (let ((len (let lp ((sum 0) (lis string-list)) (if (pair? lis) (lp (+ sum (string-length (car lis))) (cdr lis)) sum)))) (%finish-string-concatenate-reverse len string-list final end)))) (define (string-concatenate-reverse/shared string-list . maybe-final+end) (let-optionals* maybe-final+end ((final ""); (string? final)) (end (string-length final))) ; (and (integer? end) ; (exact? end) ; (<= 0 end (string-length final))))) (##sys#check-exact end 'string-concatenate-reverse/shared) ;; Add up the lengths of all the strings in STRING-LIST; also get a ;; pointer NZLIST into STRING-LIST showing where the first non-zero-length ;; string starts. (let lp ((len 0) (nzlist #f) (lis string-list)) (if (pair? lis) (let ((slen (string-length (car lis)))) (lp (+ len slen) (if (or nzlist (zero? slen)) nzlist lis) (cdr lis))) (cond ((zero? len) (substring/shared final 0 end)) ;; LEN > 0, so NZLIST is non-empty. ((and (zero? end) (= len (string-length (car nzlist)))) (car nzlist)) (else (%finish-string-concatenate-reverse len nzlist final end))))))) (define (%finish-string-concatenate-reverse len string-list final end) (let ((ans (make-string (+ end len)))) (%string-copy! ans len final 0 end) (let lp ((i len) (lis string-list)) (if (pair? lis) (let* ((s (car lis)) (lis (cdr lis)) (slen (string-length s)) (i (- i slen))) (%string-copy! ans i s 0 slen) (lp i lis)))) ans)) ;;; string-replace s1 s2 start1 end1 [start2 end2] -> string ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Replace S1[START1,END1) with S2[START2,END2). (define (string-replace s1 s2 start1 end1 . maybe-start+end) (check-substring-spec string-replace s1 start1 end1) (let-string-start+end (start2 end2) string-replace s2 maybe-start+end (let* ((slen1 (string-length s1)) (sublen2 (- end2 start2)) (alen (+ (- slen1 (- end1 start1)) sublen2)) (ans (make-string alen))) (%string-copy! ans 0 s1 0 start1) (%string-copy! ans start1 s2 start2 end2) (%string-copy! ans (+ start1 sublen2) s1 end1 slen1) ans))) ;;; string-tokenize s [token-set start end] -> list ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Break S up into a list of token strings, where a token is a maximal ;;; non-empty contiguous sequence of chars belonging to TOKEN-SET. ;;; (string-tokenize "hello, world") => ("hello," "world") (define (string-tokenize s . token-chars+start+end) (let-optionals* token-chars+start+end ((token-chars char-set:graphic) rest) ; (char-set? token-chars)) rest) (let-string-start+end (start end) string-tokenize s rest (let lp ((i end) (ans '())) (cond ((and (< start i) (string-index-right s token-chars start i)) => (lambda (tend-1) (let ((tend (+ 1 tend-1))) (cond ((string-skip-right s token-chars start tend-1) => (lambda (tstart-1) (lp tstart-1 (cons (##sys#substring s (+ 1 tstart-1) tend) ans)))) (else (cons (##sys#substring s start tend) ans)))))) (else ans)))))) ;;; xsubstring s from [to start end] -> string ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; S is a string; START and END are optional arguments that demarcate ;;; a substring of S, defaulting to 0 and the length of S (e.g., the whole ;;; string). Replicate this substring up and down index space, in both the ;; positive and negative directions. For example, if S = "abcdefg", START=3, ;;; and END=6, then we have the conceptual bidirectionally-infinite string ;;; ... d e f d e f d e f d e f d e f d e f d e f ... ;;; ... -9 -8 -7 -6 -5 -4 -3 -2 -1 0 1 2 3 4 5 6 7 8 9 ... ;;; XSUBSTRING returns the substring of this string beginning at index FROM, ;;; and ending at TO (which defaults to FROM+(END-START)). ;;; ;;; You can use XSUBSTRING in many ways: ;;; - To rotate a string left: (xsubstring "abcdef" 2) => "cdefab" ;;; - To rotate a string right: (xsubstring "abcdef" -2) => "efabcd" ;;; - To replicate a string: (xsubstring "abc" 0 7) => "abcabca" ;;; ;;; Note that ;;; - The FROM/TO indices give a half-open range -- the characters from ;;; index FROM up to, but not including index TO. ;;; - The FROM/TO indices are not in terms of the index space for string S. ;;; They are in terms of the replicated index space of the substring ;;; defined by S, START, and END. ;;; ;;; It is an error if START=END -- although this is allowed by special ;;; dispensation when FROM=TO. (define (xsubstring s from . maybe-to+start+end) ; (check-arg (lambda (val) (and (integer? val) (exact? val))) ; from xsubstring) (##sys#check-exact from 'xsubstring) (receive (to start end) (if (pair? maybe-to+start+end) (let-string-start+end (start end) xsubstring s (cdr maybe-to+start+end) (let ((to (car maybe-to+start+end))) ; (check-arg (lambda (val) (and (integer? val) ; (exact? val) ; (<= from val))) ; to xsubstring) (##sys#check-exact to 'xsubstring) (values to start end))) ; (let ((slen (string-length (check-arg string? s xsubstring)))) (let ((slen (string-length s))) (values (+ from slen) 0 slen))) (let ((slen (- end start)) (anslen (- to from))) (cond ((zero? anslen) "") ((zero? slen) (##sys#error 'xsubstring "Cannot replicate empty (sub)string" xsubstring s from to start end)) ((= 1 slen) ; Fast path for 1-char replication. (make-string anslen (string-ref s start))) ;; CHICKEN compiles this file with (declare (fixnum)), so ;; flonum operations are not reliable. Since this clause ;; just provides a shorter path to avoid calling ;; %multispan-repcopy!, we comment it out and leave the ;; fixnum declaration. ;; ;; Selected text falls entirely within one span. ;; ((= (floor (/ from slen)) (floor (/ to slen))) ;; (##sys#substring s (+ start (modulo from slen)) ;; (+ start (modulo to slen)))) ;; Selected text requires multiple spans. (else (let ((ans (make-string anslen))) (%multispan-repcopy! ans 0 s from to start end) ans)))))) ;;; string-xcopy! target tstart s sfrom [sto start end] -> unspecific ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Exactly the same as xsubstring, but the extracted text is written ;;; into the string TARGET starting at index TSTART. ;;; This operation is not defined if (EQ? TARGET S) -- you cannot copy ;;; a string on top of itself. (define ##srfi13#string-fill! string-fill!) ; or we use std-binding. (define (string-xcopy! target tstart s sfrom . maybe-sto+start+end) ; (check-arg (lambda (val) (and (integer? val) (exact? val))) ; sfrom string-xcopy!) (##sys#check-exact sfrom 'string-xcopy!) (receive (sto start end) (if (pair? maybe-sto+start+end) (let-string-start+end (start end) string-xcopy! s (cdr maybe-sto+start+end) (let ((sto (car maybe-sto+start+end))) ; (check-arg (lambda (val) (and (integer? val) (exact? val))) ; sto string-xcopy!) (##sys#check-exact sto 'string-xcopy!) (values sto start end))) (let ((slen (string-length s))) (values (+ sfrom slen) 0 slen))) (let* ((tocopy (- sto sfrom)) (tend (+ tstart tocopy)) (slen (- end start))) (check-substring-spec string-xcopy! target tstart tend) (cond ((zero? tocopy)) ((zero? slen) (##sys#error 'string-xcopy! "Cannot replicate empty (sub)string" string-xcopy! target tstart s sfrom sto start end)) ((= 1 slen) ; Fast path for 1-char replication. (##srfi13#string-fill! target (string-ref s start) tstart tend)) ;; CHICKEN compiles this file with (declare (fixnum)), so ;; flonum operations are not reliable. Since this clause ;; just provides a shorter path to avoid calling ;; %multispan-repcopy!, we comment it out and leave the ;; fixnum declaration. ;; ;; Selected text falls entirely within one span. ;; ((= (floor (/ sfrom slen)) (floor (/ sto slen))) ;; (%string-copy! target tstart s ;; (+ start (modulo sfrom slen)) ;; (+ start (modulo sto slen)))) ;; Multi-span copy. (else (%multispan-repcopy! target tstart s sfrom sto start end)))))) ;;; This is the core copying loop for XSUBSTRING and STRING-XCOPY! ;;; Internal -- not exported, no careful arg checking. (define (%multispan-repcopy! target tstart s sfrom sto start end) (let* ((slen (- end start)) (i0 (+ start (modulo sfrom slen))) (total-chars (- sto sfrom))) ;; Copy the partial span @ the beginning (%string-copy! target tstart s i0 end) (let* ((ncopied (- end i0)) ; We've copied this many. (nleft (- total-chars ncopied)) ; # chars left to copy. (nspans (quotient nleft slen))) ; # whole spans to copy ;; Copy the whole spans in the middle. (do ((i (+ tstart ncopied) (+ i slen)) ; Current target index. (nspans nspans (- nspans 1))) ; # spans to copy ((zero? nspans) ;; Copy the partial-span @ the end & we're done. (%string-copy! target i s start (+ start (- total-chars (- i tstart))))) (%string-copy! target i s start end))))); Copy a whole span. ;;; (string-join string-list [delimiter grammar]) => string ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Paste strings together using the delimiter string. ;;; ;;; (join-strings '("foo" "bar" "baz") ":") => "foo:bar:baz" ;;; ;;; DELIMITER defaults to a single space " " ;;; GRAMMAR is one of the symbols {prefix, infix, strict-infix, suffix} ;;; and defaults to 'infix. ;;; ;;; I could rewrite this more efficiently -- precompute the length of the ;;; answer string, then allocate & fill it in iteratively. Using ;;; STRING-CONCATENATE is less efficient. (define (string-join strings . delim+grammar) (let-optionals* delim+grammar ((delim " ") ; (string? delim)) (grammar 'infix)) (let ((buildit (lambda (lis final) (let recur ((lis lis)) (if (pair? lis) (cons delim (cons (car lis) (recur (cdr lis)))) final))))) (cond ((pair? strings) (string-concatenate (case grammar ((infix strict-infix) (cons (car strings) (buildit (cdr strings) '()))) ((prefix) (buildit strings '())) ((suffix) (cons (car strings) (buildit (cdr strings) (list delim)))) (else (##sys#error 'string-join "Illegal join grammar" grammar string-join))))) ((not (null? strings)) (##sys#error 'string-join "STRINGS parameter not list." strings string-join)) ;; STRINGS is () ((eq? grammar 'strict-infix) (##sys#error 'string-join "Empty list cannot be joined with STRICT-INFIX grammar." string-join)) (else ""))))) ; Special-cased for infix grammar. ;;; Porting & performance-tuning notes ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; See the section at the beginning of this file on external dependencies. ;;; ;;; The biggest issue with respect to porting is the LET-OPTIONALS* macro. ;;; There are many, many optional arguments in this library; the complexity ;;; of parsing, defaulting & type-testing these parameters is handled with the ;;; aid of this macro. There are about 15 uses of LET-OPTIONALS*. You can ;;; rewrite the uses, port the hairy macro definition (which is implemented ;;; using a Clinger-Rees low-level explicit-renaming macro system), or port ;;; the simple, high-level definition, which is less efficient. ;;; ;;; There is a fair amount of argument checking. This is, strictly speaking, ;;; unnecessary -- the actual body of the procedures will blow up if, say, a ;;; START/END index is improper. However, the error message will not be as ;;; good as if the error were caught at the "higher level." Also, a very, very ;;; smart Scheme compiler may be able to exploit having the type checks done ;;; early, so that the actual body of the procedures can assume proper values. ;;; This isn't likely; this kind of compiler technology isn't common any ;;; longer. ;;; ;;; The overhead of optional-argument parsing is irritating. The optional ;;; arguments must be consed into a rest list on entry, and then parsed out. ;;; Function call should be a matter of a few register moves and a jump; it ;;; should not involve heap allocation! Your Scheme system may have a superior ;;; non-R5RS optional-argument system that can eliminate this overhead. If so, ;;; then this is a prime candidate for optimising these procedures, ;;; *especially* the many optional START/END index parameters. ;;; ;;; Note that optional arguments are also a barrier to procedure integration. ;;; If your Scheme system permits you to specify alternate entry points ;;; for a call when the number of optional arguments is known in a manner ;;; that enables inlining/integration, this can provide performance ;;; improvements. ;;; ;;; There is enough *explicit* error checking that *all* string-index ;;; operations should *never* produce a bounds error. Period. Feel like ;;; living dangerously? *Big* performance win to be had by replacing ;;; STRING-REF's and STRING-SET!'s with unsafe equivalents in the loops. ;;; Similarly, fixnum-specific operators can speed up the arithmetic done on ;;; the index values in the inner loops. The only arguments that are not ;;; completely error checked are ;;; - string lists (complete checking requires time proportional to the ;;; length of the list) ;;; - procedure arguments, such as char->char maps & predicates. ;;; There is no way to check the range & domain of procedures in Scheme. ;;; Procedures that take these parameters cannot fully check their ;;; arguments. But all other types to all other procedures are fully ;;; checked. ;;; ;;; This does open up the alternate possibility of simply *removing* these ;;; checks, and letting the safe primitives raise the errors. On a dumb ;;; Scheme system, this would provide speed (by eliminating the redundant ;;; error checks) at the cost of error-message clarity. ;;; ;;; See the comments preceding the hash function code for notes on tuning ;;; the default bound so that the code never overflows your implementation's ;;; fixnum size into bignum calculation. ;;; ;;; In an interpreted Scheme, some of these procedures, or the internal ;;; routines with % prefixes, are excellent candidates for being rewritten ;;; in C. Consider STRING-HASH, %STRING-COMPARE, the ;;; %STRING-{SUF,PRE}FIX-LENGTH routines, STRING-COPY!, STRING-INDEX & ;;; STRING-SKIP (char-set & char cases), SUBSTRING and SUBSTRING/SHARED, ;;; %KMP-SEARCH, and %MULTISPAN-REPCOPY!. ;;; ;;; It would also be nice to have the ability to mark some of these ;;; routines as candidates for inlining/integration. ;;; ;;; All the %-prefixed routines in this source code are written ;;; to be called internally to this library. They do *not* perform ;;; friendly error checks on the inputs; they assume everything is ;;; proper. They also do not take optional arguments. These two properties ;;; save calling overhead and enable procedure integration -- but they ;;; are not appropriate for exported routines. ;;; Copyright details ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; The prefix/suffix and comparison routines in this code had (extremely ;;; distant) origins in MIT Scheme's string lib, and was substantially ;;; reworked by Olin Shivers (shivers@ai.mit.edu) 9/98. As such, it is ;;; covered by MIT Scheme's open source copyright. See below for details. ;;; ;;; The KMP string-search code was influenced by implementations written ;;; by Stephen Bevan, Brian Dehneyer and Will Fitzgerald. However, this ;;; version was written from scratch by myself. ;;; I guessed that much. (flw) ;;; ;;; The remainder of this code was written from scratch by myself for scsh. ;;; The scsh copyright is a BSD-style open source copyright. See below for ;;; details. ;;; -Olin Shivers ;;; MIT Scheme copyright terms ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; This material was developed by the Scheme project at the Massachusetts ;;; Institute of Technology, Department of Electrical Engineering and ;;; Computer Science. Permission to copy and modify this software, to ;;; redistribute either the original software or a modified version, and ;;; to use this software 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. Users of this software agree to make their best efforts (a) to ;;; return to the MIT Scheme project any improvements or extensions that ;;; they make, so that these may be included in future releases; and (b) ;;; to inform MIT of noteworthy uses of this software. ;;; ;;; 3. All materials developed as a consequence of the use of this ;;; software shall duly acknowledge such use, in accordance with the usual ;;; standards of acknowledging credit in academic research. ;;; ;;; 4. MIT has made no warrantee or representation that the operation of ;;; this software will be error-free, and MIT is under no obligation to ;;; provide any services, by way of maintenance, update, or otherwise. ;;; ;;; 5. In conjunction with products arising from the use of this material, ;;; there shall be no use of the name of the Massachusetts Institute of ;;; Technology nor of any adaptation thereof in any advertising, ;;; promotional, or sales literature without prior written consent from ;;; MIT in each case. ;;; Scsh copyright terms ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; 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. �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/chicken-uninstall.scm����������������������������������������������������������������0000644�0001750�0001750�00000014416�13052306173�017135� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken-uninstall.scm ; ; Copyright (c) 2008-2017, 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. (require-library setup-api srfi-1 posix data-structures utils ports irregex srfi-13 files) (module main () (import scheme chicken foreign) (import setup-api) (import srfi-1 posix data-structures utils ports irregex srfi-13 files) (define-foreign-variable C_TARGET_LIB_HOME c-string) (define-foreign-variable C_BINARY_VERSION int) (define *cross-chicken* (feature? #:cross-chicken)) (define *host-extensions* *cross-chicken*) (define *target-extensions* *cross-chicken*) (define *prefix* #f) (define *deploy* #f) (define (repo-path) (if *deploy* *prefix* (if (and *cross-chicken* (not *host-extensions*)) (make-pathname C_TARGET_LIB_HOME (sprintf "chicken/~a" C_BINARY_VERSION)) (if *prefix* (make-pathname *prefix* (sprintf "lib/chicken/~a" (##sys#fudge 42))) (repository-path))))) (define *force* #f) (define (grep rx lst) (filter (cut irregex-search rx <>) lst)) (define (gather-eggs patterns) (let ((eggs (map pathname-file (glob (make-pathname (repo-path) "*" "setup-info"))))) (delete-duplicates (concatenate (map (cut grep <> eggs) patterns)) string=?))) (define (fini code) (print "aborted.") (exit code)) (define (ask eggs) (handle-exceptions ex (if (eq? ex 'aborted) (fini 1) (signal ex)) (yes-or-no? (string-concatenate (append '("About to delete the following extensions:\n\n") (map (cut string-append " " <> "\n") eggs) '("\nDo you want to proceed?"))) default: "no" abort: (abort-setup)))) (define (uninstall pats) (let ((eggs (gather-eggs pats))) (cond ((null? eggs) (print "nothing to remove.") ) ((or *force* (ask eggs)) (for-each (lambda (e) (print "removing " e) (cond ((and *host-extensions* *target-extensions*) (remove-extension e) (fluid-let ((*host-extensions* #f)) (remove-extension e (repo-path)) )) (else (remove-extension e (repo-path))))) eggs))))) (define (usage code) (print #<<EOF usage: chicken-uninstall [OPTION | PATTERN] ... -h -help show this message and exit -version show version and exit -force don't ask, delete whatever matches -exact treat PATTERN as exact match (not a pattern) -s -sudo use external command to elevate privileges for deleting files -p -prefix PREFIX change installation prefix to PREFIX -deploy prefix is a deployment directory -host when cross-compiling, uninstall host extensions only -target when cross-compiling, uninstall target extensions only EOF );| (sic) (exit code)) (define *short-options* '(#\h #\s #\p)) (define (main args) (let ((exact #f)) (let loop ((args args) (pats '())) (cond ((null? args) (when (null? pats) (usage 1)) (when (and *deploy* (not *prefix*)) (with-output-to-port (current-error-port) (cut print "`-deploy' only makes sense in combination with `-prefix DIRECTORY`")) (exit 1)) (uninstall (reverse (map (lambda (p) (if exact (irregex (string-append "^" (irregex-quote p) "$")) (##sys#glob->regexp p))) pats)))) (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* #t) (loop (cdr args) pats)) ((string=? arg "-exact") (set! exact #t) (loop (cdr args) pats)) ((or (string=? arg "-s") (string=? arg "-sudo")) (sudo-install #t) (loop (cdr args) pats)) ((string=? "-deploy" arg) (set! *deploy* #t) (loop (cdr args) pats)) ((or (string=? arg "-p") (string=? arg "-prefix")) (unless (pair? (cdr args)) (usage 1)) (set! *prefix* (let ((p (cadr args))) (if (absolute-pathname? p) p (normalize-pathname (make-pathname (current-directory) p) ) ) ) ) (loop (cddr 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-4.12.0/compiler-namespace.scm���������������������������������������������������������������0000644�0001750�0001750�00000016323�13052306173�017265� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; compiler-namespace.scm - private namespace declarations for compiler units ; ; Copyright (c) 2009-2017, 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. (private compiler analyze-expression all-import-libraries banner basic-literal? big-fixnum? block-compilation block-variable-literal-name block-variable-literal? bootstrap-mode bomb broken-constant-nodes build-expression-tree build-lambda-list build-node-graph c-ify-string callback-names call-info canonicalize-list-type canonicalize-begin-body canonicalize-expression check-and-open-input-file check-and-validate-type check-signature chop-extension chop-separator cleanup close-checked-input-file collapsable-literal? collect! collected-debugging-output compile-format-string compiler-arguments compiler-cleanup-hook compiler-source-file compiler-syntax-enabled compiler-syntax-statistics compute-database-statistics constant-form-eval constant-table constant? constants-used copy-node! copy-node-tree-and-rename count! create-foreign-stub csc-control-file current-program-size data-declarations debug-info-index debug-info-vector-name debug-lambda-list debug-variable-list debugging debugging-chicken debugging-executable determine-loop-and-dispatch decompose-lambda-list default-debugging-declarations default-declarations default-default-target-heap-size default-extended-bindings default-optimization-iterations default-optimization-passes default-optimization-passes-when-trying-harder default-output-filename default-profiling-declarations default-standard-bindings defconstant-bindings dependency-list direct-call-ids disable-stack-overflow-checking disabled-warnings display-analysis-database display-line-number-database display-real-name-table dump-defined-globals dump-global-refs dump-nodes dump-undefined-globals emit-closure-info emit-control-file-item emit-global-inline-file emit-profile emit-syntax-trace-info emit-trace-info emit-type-file enable-inline-files enable-specialization encode-literal encodeable-literal? eq-inline-operator estimate-foreign-result-location-size estimate-foreign-result-size expand-debug-assignment expand-debug-call expand-debug-lambda expand-foreign-callback-lambda expand-foreign-callback-lambda* expand-foreign-lambda expand-foreign-lambda* expand-foreign-primitive expand-profile-lambda explicit-use-flag export-dump-hook export-variable expression-has-side-effects? external-protos-first external-to-pointer external-variables file-io-only file-requirements final-foreign-type find-early-refs find-inlining-candidates finish-foreign-result first-analysis fold-boolean fold-inner foldable-bindings follow-without-loop foreign-argument-conversion foreign-declarations foreign-lambda-stubs foreign-result-conversion foreign-string-result-reserve foreign-type->scrutiny-type foreign-type-check foreign-type-convert-argument foreign-type-convert-result foreign-type-declaration foreign-type-table foreign-variables gen gen-list generate-code generate-external-variables generate-foreign-callback-header generate-foreign-callback-stub-prototypes generate-foreign-stubs get get-all get-line get-line-2 get-list hide-variable immediate? immutable-constants import-libraries read-info-hook initialize-analysis-database initialize-compiler inline-lambda-bindings inline-locally inline-max-size inline-substitutions-enabled inline-table inline-table-used inlining insert-timer-checks install-specializations installation-home internal-bindings intrinsic? line-number-database-2 line-number-database-size llist-length llist-match? load-identifier-database load-inline-file load-type-database local-definitions location-pointer-map make-argument-list make-block-variable-literal make-random-name make-variable-list mark-variable match-node membership-test-operators membership-unfold-limit no-argc-checks no-bound-checks no-global-procedure-checks enable-module-registration no-procedure-checks node->sexpr non-foldable-bindings nonwinding-call/cc optimization-iterations original-program-size output pending-canonicalizations perform-closure-conversion perform-cps-conversion perform-high-level-optimizations perform-inlining! perform-pre-optimization! perform-secondary-flow-analysis posv posq postponed-initforms pprint-expressions-to-file prepare-for-code-generation print-debug-options print-program-statistics print-usage print-version process-command-line process-declaration profile-info-vector-name profile-lambda-index profile-lambda-list profiled-procedures put! qnode quit r-c-s read/source-info real-name real-name-table real-name2 register-unboxed-op reorganize-recursive-bindings require-imports-flag rest-parameters-promoted-to-vector rewrite safe-globals-flag scan-free-variables scan-sharp-greater-string scan-toplevel-assignments scan-used-variables scrutinize scrutiny-debug set-real-name! sexpr->node simple-lambda-node? simplifications simplified-ops simplify-named-call simplify-type backslashify sort-symbols source-filename source-info->string source-info->line specialize-node! standalone-executable strict-variable-types string->c-identifier string->expr stringify substitution-table symbolify target-heap-size target-include-file target-stack-size toplevel-lambda-id toplevel-scope transform-direct-lambdas! tree-copy uncommentify undefine-shadowed-macros unique-id unit-name units-used-by-default unlikely-variables update-line-number-database update-line-number-database! used-units valid-c-identifier? valid-compiler-options valid-compiler-options-with-argument validate-type variable-hidden? variable-mark variable-visible? varnode verbose-mode with-debugging-output words words->bytes words-per-flonum) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/�������������������������������������������������������������������������0000755�0001750�0001750�00000000000�13052306552�015230� 5����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/C interface.html���������������������������������������������������������0000644�0001750�0001750�00000200347�13052306550�020225� 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_i_numberp">C_i_numberp</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_swigpointerp">C_swigpointerp</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_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_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: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_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_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_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_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_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_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></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_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></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 <a href="#sec:constructors-for-immediate-scheme-objects">below</a> 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_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 or flonum)?</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_swigpointerp"><a href="#sec:C_swigpointerp">C_swigpointerp</a></h5><pre>[C macro] C_word C_swigpointerp(C_word x)</pre><p>Is <tt>x</tt> a SWIG 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_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_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_flonum)</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 either a fixnum or a flonum. 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)?</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., not a fixnum)?</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: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.</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>.</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_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>.</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_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.</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>.</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_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_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_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><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)</pre><p>Calculates the quotient of the 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><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><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="Other%20support%20procedures.html">Other support procedures</a></p><p>Next: <a href="Extensions.html">Extensions</a></p></div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Unit srfi-13.html��������������������������������������������������������0000644�0001750�0001750�00000217002�13052306551�020203� 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; Unit srfi-13</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"><h2 id="sec:Unit_srfi-13"><a href="#sec:Unit_srfi-13">Unit srfi-13</a></h2><p>SRFI 13 (string library). Certain procedures contained in this SRFI, such as <tt>string-append</tt>, are identical to R5RS versions and are omitted from this document. For full documentation, see the <a href="http://srfi.schemers.org/srfi-13/srfi-13.html">original SRFI-13 document</a>.</p><p>On systems that support dynamic loading, the <tt>srfi-13</tt> unit can be made available in the CHICKEN interpreter (<tt>csi</tt>) by entering</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">require-extension srfi-13</span>)</span></pre><p>The <tt>string-hash</tt> and <tt>string-hash-ci</tt> procedures are not provided in this library unit. <a href="Unit%20srfi-69.html">Unit srfi-69</a> has compatible definitions.</p> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Unit_srfi-13">Unit srfi-13</a></li> <li><a href="#sec:Notes">Notes</a> <ul> <li><a href="#sec:Strings_are_code-point_sequences">Strings are code-point sequences</a></li> <li><a href="#sec:Case_mapping_and_case-folding">Case mapping and case-folding</a></li> <li><a href="#sec:String_equality_.26_string_normalisation">String equality &amp; string normalisation</a></li> <li><a href="#sec:String_inequality">String inequality</a></li> <li><a href="#sec:Naming_conventions">Naming conventions</a></li> <li><a href="#sec:Shared_storage">Shared storage</a></li></ul></li> <li><a href="#sec:Procedure_Specification">Procedure Specification</a> <ul> <li><a href="#sec:Main_procedures">Main procedures</a> <ul> <li><a href="#sec:Predicates">Predicates</a></li> <li><a href="#sec:Constructors">Constructors</a></li> <li><a href="#sec:List_.26_string_conversion">List &amp; string conversion</a></li> <li><a href="#sec:Selection">Selection</a></li> <li><a href="#sec:Modification">Modification</a></li> <li><a href="#sec:Comparison">Comparison</a></li> <li><a href="#sec:Prefixes_.26_suffixes">Prefixes &amp; suffixes</a></li> <li><a href="#sec:Searching">Searching</a></li> <li><a href="#sec:Alphabetic_case_mapping">Alphabetic case mapping</a></li> <li><a href="#sec:Reverse_.26_append">Reverse &amp; append</a></li> <li><a href="#sec:Fold.2c_unfold_.26_map">Fold, unfold &amp; map</a></li> <li><a href="#sec:Replicate_.26_rotate">Replicate &amp; rotate</a></li> <li><a href="#sec:Miscellaneous:_insertion.2c_parsing">Miscellaneous: insertion, parsing</a></li> <li><a href="#sec:Filtering_.26_deleting">Filtering &amp; deleting</a></li></ul></li> <li><a href="#sec:Low-level_procedures">Low-level procedures</a> <ul> <li><a href="#sec:Start.2fend_optional-argument_parsing_.26_checking_utilities">Start/end optional-argument parsing &amp; checking utilities</a></li> <li><a href="#sec:Knuth-Morris-Pratt_searching">Knuth-Morris-Pratt searching</a></li></ul></li></ul></li></ul></div><h2 id="sec:Notes"><a href="#sec:Notes">Notes</a></h2><h3 id="sec:Strings_are_code-point_sequences"><a href="#sec:Strings_are_code-point_sequences">Strings are code-point sequences</a></h3><p>This SRFI considers strings simply to be a sequence of &quot;code points&quot; or character encodings. Operations such as comparison or reversal are always done code point by code point.</p><p>CHICKEN's native strings are simple byte sequences (not Unicode code points). Comparison or reversal is done byte-wise. If Unicode semantics are desired, see the <a href="http://wiki.call-cc.org/egg/utf8">utf8</a> egg.</p><h3 id="sec:Case_mapping_and_case-folding"><a href="#sec:Case_mapping_and_case-folding">Case mapping and case-folding</a></h3><p>Upper- and lower-casing characters is complex in super-ASCII encodings. SRFI 13 makes no attempt to deal with these issues; it uses a simple 1-1 locale- and context-independent case-mapping, specifically Unicode's 1-1 case-mappings given in <a href="ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData.txt">ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData.txt</a>.</p><p>On CHICKEN, case-mapping is restricted to operate on ASCII characters.</p><h3 id="sec:String_equality_.26_string_normalisation"><a href="#sec:String_equality_.26_string_normalisation">String equality &amp; string normalisation</a></h3><p>SRFI 13 string equality is simply based upon comparing the encoding values used for the characters. On CHICKEN, strings are compared byte-wise.</p><h3 id="sec:String_inequality"><a href="#sec:String_inequality">String inequality</a></h3><p>SRFI 13 string ordering is strictly based upon a character-by-character comparison of the values used for representing the string.</p><h3 id="sec:Naming_conventions"><a href="#sec:Naming_conventions">Naming conventions</a></h3><ul><li>Procedures whose names end in &quot;-ci&quot; are case-insensitive variants. </li> <li>Procedures whose names end in &quot;!&quot; are side-effecting variants. What values these procedures return is usually not specified. </li> <li>The order of common parameters is consistent across the different procedures. </li> <li>Left/right/both directionality: Procedures that have left/right directional variants use the following convention: </li> </ul> <table> <tr><th>Direction</th><th>Suffix</th></tr> <tr><td>left-to-right</td><td><i>none</i></td></tr> <tr><td>right-to-left</td><td><tt>-right</tt></td></tr> <tr><td>both</td><td><tt>-both</tt></td></tr> </table> <h3 id="sec:Shared_storage"><a href="#sec:Shared_storage">Shared storage</a></h3><p>CHICKEN does not currently have shared-text substrings, nor does its implementation of SRFI 13 routines ever return one of the strings that was passed in as a parameter, as is allowed by the specification.</p><p>On the other hand, the functionality is present to allow one to write efficient code <i>without</i> shared-text substrings. You can write efficient code that works by passing around start/end ranges indexing into a string instead of simply building a shared-text substring.</p><h2 id="sec:Procedure_Specification"><a href="#sec:Procedure_Specification">Procedure Specification</a></h2><p>In the following procedure specifications:</p><ul><li>An S parameter is a string. </li> <li>A CHAR parameter is a character. </li> <li>START and END parameters are half-open string indices specifying a substring within a string parameter; when optional, they default to 0 and the length of the string, respectively. When specified, it must be the case that 0 &lt;= START &lt;= END &lt;= <tt>(string-length S)</tt>, for the corresponding parameter S. They typically restrict a procedure's action to the indicated substring. </li> <li>A PRED parameter is a unary character predicate procedure, returning a true/false value when applied to a character. </li> <li>A CHAR/CHAR-SET/PRED parameter is a value used to select/search for a character in a string. If it is a character, it is used in an equality test; if it is a character set, it is used as a membership test; if it is a procedure, it is applied to the characters as a test predicate. </li> <li>An I parameter is an exact non-negative integer specifying an index into a string. </li> <li>LEN and NCHARS parameters are exact non-negative integers specifying a length of a string or some number of characters. </li> <li>An OBJ parameter may be any value at all. </li> </ul> <p>Passing values to procedures with these parameters that do not satisfy these types is an error.</p><p>Parameters given in square brackets are optional. Unless otherwise noted in the text describing the procedure, any prefix of these optional parameters may be supplied, from zero arguments to the full list. When a procedure returns multiple values, this is shown by listing the return values in square brackets, as well. So, for example, the procedure with signature</p><pre>halts? F [X INIT-STORE] -&gt; [BOOLEAN INTEGER]</pre><p>would take one (F), two (F, X) or three (F, X, INIT-STORE) input parameters, and return two values, a boolean and an integer.</p><p>A parameter followed by &quot;<tt>...</tt>&quot; means zero-or-more elements. So the procedure with the signature</p><pre>sum-squares X ... -&gt; NUMBER</pre><p>takes zero or more arguments (X ...), while the procedure with signature</p><pre>spell-check DOC DICT_1 DICT_2 ... -&gt; STRING-LIST</pre><p>takes two required parameters (DOC and DICT_1) and zero or more optional parameters (DICT_2 ...).</p><p>If a procedure is said to return &quot;unspecified,&quot; this means that nothing at all is said about what the procedure returns. Such a procedure is not even required to be consistent from call to call. It is simply required to return a value (or values) that may be passed to a command continuation, <i>e.g.</i> as the value of an expression appearing as a non-terminal subform of a <tt>begin</tt> expression. Note that in R5RS, this restricts such a procedure to returning a single value; non-R5RS systems may not even provide this restriction.</p><h3 id="sec:Main_procedures"><a href="#sec:Main_procedures">Main procedures</a></h3><h4 id="sec:Predicates"><a href="#sec:Predicates">Predicates</a></h4><dl class="defsig"><dt class="defsig" id="def:string-null.3f"><span class="sig"><tt>(string-null? s) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Is S the empty string?</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-every"><span class="sig"><tt>(string-every char/char-set/pred s [start end]) -&gt; value</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-any"><span class="sig"><tt>(string-any char/char-set/pred s [start end]) -&gt; value</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Checks to see if the given criteria is true of every / any character in S, proceeding from left (index START) to right (index END).</p><p>If CHAR/CHAR-SET/PRED is a character, it is tested for equality with the elements of S.</p><p>If CHAR/CHAR-SET/PRED is a character set, the elements of S are tested for membership in the set.</p><p>If CHAR/CHAR-SET/PRED is a predicate procedure, it is applied to the elements of S. The predicate is &quot;witness-generating:&quot;</p><ul><li>If <tt>string-any</tt> returns true, the returned true value is the one produced by the application of the predicate. </li> <li>If <tt>string-every</tt> returns true, the returned true value is the one produced by the final application of the predicate to S[END-1]. If <tt>string-every</tt> is applied to an empty sequence of characters, it simply returns <tt>#t</tt>. </li> </ul> <p>If <tt>string-every</tt> or <tt>string-any</tt> apply the predicate to the final element of the selected sequence (<i>i.e.</i>, S[END-1]), that final application is a tail call.</p><p>The names of these procedures do not end with a question mark -- this is to indicate that, in the predicate case, they do not return a simple boolean (<tt>#t</tt> or <tt>#f</tt>), but a general value.</p></dd> </dl> <h4 id="sec:Constructors"><a href="#sec:Constructors">Constructors</a></h4><dl class="defsig"><dt class="defsig" id="def:string-tabulate"><span class="sig"><tt>(string-tabulate proc len) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>PROC is an integer-&gt;char procedure. Construct a string of size LEN by applying PROC to each index to produce the corresponding string element. The order in which PROC is applied to the indices is not specified.</p></dd> </dl> <h4 id="sec:List_.26_string_conversion"><a href="#sec:List_.26_string_conversion">List &amp; string conversion</a></h4><dl class="defsig"><dt class="defsig" id="def:string-.3elist"><span class="sig"><tt>(string-&gt;list s [start end]) -&gt; char-list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>string-&gt;list</tt> is extended from the R5RS definition to take optional START/END arguments.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:reverse-list-.3estring"><span class="sig"><tt>(reverse-list-&gt;string char-list) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>An efficient implementation of <tt>(compose list-&gt;string reverse)</tt>:</p><pre>(reverse-list-&gt;string '(#\a #\B #\c)) -&gt; &quot;cBa&quot;</pre><p>This is a common idiom in the epilog of string-processing loops that accumulate an answer in a reverse-order list. (See also <tt>string-concatenate-reverse</tt> for the &quot;chunked&quot; variant.)</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-join"><span class="sig"><tt>(string-join string-list [delimiter grammar]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>This procedure is a simple unparser --- it pastes strings together using the delimiter string.</p><p>The GRAMMAR argument is a symbol that determines how the delimiter is used, and defaults to <tt>'infix</tt>.</p><ul><li><tt>'infix</tt> means an infix or separator grammar: insert the delimiter between list elements. An empty list will produce an empty string -- note, however, that parsing an empty string with an infix or separator grammar is ambiguous. Is it an empty list, or a list of one element, the empty string? </li> <li><tt>'strict-infix</tt> means the same as <tt>'infix</tt>, but will raise an error if given an empty list. </li> <li><tt>'suffix</tt> means a suffix or terminator grammar: insert the delimiter after every list element. This grammar has no ambiguities. </li> <li><tt>'prefix</tt> means a prefix grammar: insert the delimiter before every list element. This grammar has no ambiguities. </li> </ul> <p>The delimiter is the string used to delimit elements; it defaults to a single space &quot; &quot;.</p><pre>(string-join '(&quot;foo&quot; &quot;bar&quot; &quot;baz&quot;) &quot;:&quot;) =&gt; &quot;foo:bar:baz&quot; (string-join '(&quot;foo&quot; &quot;bar&quot; &quot;baz&quot;) &quot;:&quot; 'suffix) =&gt; &quot;foo:bar:baz:&quot; ;; Infix grammar is ambiguous wrt empty list vs. empty string, (string-join '() &quot;:&quot;) =&gt; &quot;&quot; (string-join '(&quot;&quot;) &quot;:&quot;) =&gt; &quot;&quot; ;; but suffix &amp; prefix grammars are not. (string-join '() &quot;:&quot; 'suffix) =&gt; &quot;&quot; (string-join '(&quot;&quot;) &quot;:&quot; 'suffix) =&gt; &quot;:&quot;</pre></dd> </dl> <h4 id="sec:Selection"><a href="#sec:Selection">Selection</a></h4><dl class="defsig"><dt class="defsig" id="def:string-copy"><span class="sig"><tt>(string-copy s [start end]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:substring.2fshared"><span class="sig"><tt>(substring/shared s start [end]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>[R5RS+] <tt>substring/shared</tt> returns a string whose contents are the characters of S beginning with index START (inclusive) and ending with index END (exclusive). It differs from the R5RS <tt>substring</tt> in two ways:</p><ul><li>The END parameter is optional, not required. </li> <li><tt>substring/shared</tt> may return a value that shares memory with S or is <tt>eq?</tt> to S. </li> </ul> <p><tt>string-copy</tt> is extended from its R5RS definition by the addition of its optional START/END parameters. In contrast to <tt>substring/shared</tt>, it is guaranteed to produce a freshly-allocated string.</p><p>Use <tt>string-copy</tt> when you want to indicate explicitly in your code that you wish to allocate new storage; use <tt>substring/shared</tt> when you don't care if you get a fresh copy or share storage with the original string.</p><pre>(string-copy &quot;Beta substitution&quot;) =&gt; &quot;Beta substitution&quot; (string-copy &quot;Beta substitution&quot; 1 10) =&gt; &quot;eta subst&quot; (string-copy &quot;Beta substitution&quot; 5) =&gt; &quot;substitution&quot;</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-copy.21"><span class="sig"><tt>(string-copy! target tstart s [start end]) -&gt; unspecified</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Copy the sequence of characters from index range [START,END) in string S to string TARGET, beginning at index TSTART. The characters are copied left-to-right or right-to-left as needed -- the copy is guaranteed to work, even if TARGET and S are the same string.</p><p>It is an error if the copy operation runs off the end of the target string, <i>e.g.</i></p><pre>(string-copy! (string-copy &quot;Microsoft&quot;) 0 &quot;Regional Microsoft Operating Companies&quot;) =&gt; ''error''</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-take"><span class="sig"><tt>(string-take s nchars) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-drop"><span class="sig"><tt>(string-drop s nchars) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-take-right"><span class="sig"><tt>(string-take-right s nchars) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-drop-right"><span class="sig"><tt>(string-drop-right s nchars) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>string-take</tt> returns the first NCHARS of S; <tt>string-drop</tt> returns all but the first NCHARS of S. <tt>string-take-right</tt> returns the last NCHARS of S; <tt>string-drop-right</tt> returns all but the last NCHARS of S. If these procedures produce the entire string, they may return either S or a copy of S; in some implementations, proper substrings may share memory with S.</p><pre>(string-take &quot;Pete Szilagyi&quot; 6) =&gt; &quot;Pete S&quot; (string-drop &quot;Pete Szilagyi&quot; 6) =&gt; &quot;zilagyi&quot; (string-take-right &quot;Beta rules&quot; 5) =&gt; &quot;rules&quot; (string-drop-right &quot;Beta rules&quot; 5) =&gt; &quot;Beta &quot;</pre><p>It is an error to take or drop more characters than are in the string:</p><pre>(string-take &quot;foo&quot; 37) =&gt; ''error''</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-pad"><span class="sig"><tt>(string-pad s len [char start end]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-pad-right"><span class="sig"><tt>(string-pad-right s len [char start end]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Build a string of length LEN comprised of S padded on the left (right) by as many occurrences of the character CHAR as needed. If S has more than LEN chars, it is truncated on the left (right) to length LEN. CHAR defaults to #\space.</p><p>If LEN &lt;= END-START, the returned value is allowed to share storage with S, or be exactly S (if LEN = END-START).</p><pre>(string-pad &quot;325&quot; 5) =&gt; &quot; 325&quot; (string-pad &quot;71325&quot; 5) =&gt; &quot;71325&quot; (string-pad &quot;8871325&quot; 5) =&gt; &quot;71325&quot;</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-trim"><span class="sig"><tt>(string-trim s [char/char-set/pred start end]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-trim-right"><span class="sig"><tt>(string-trim-right s [char/char-set/pred start end]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-trim-both"><span class="sig"><tt>(string-trim-both s [char/char-set/pred start end]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Trim S by skipping over all characters on the left / on the right / on both sides that satisfy the second parameter CHAR/CHAR-SET/PRED:</p><ul><li>if it is a character CHAR, characters equal to CHAR are trimmed; </li> <li>if it is a char set CS, characters contained in CS are trimmed; </li> <li>if it is a predicate PRED, it is a test predicate that is applied to the characters in S; a character causing it to return true is skipped. </li> </ul> <p>CHAR/CHAR-SET/PRED defaults to the character set <tt>char-set:whitespace</tt> defined in SRFI 14.</p><p>If no trimming occurs, these functions may return either S or a copy of S; in some implementations, proper substrings may share memory with S.</p><pre>(string-trim-both &quot; The outlook wasn't brilliant, \n\r&quot;) =&gt; &quot;The outlook wasn't brilliant,&quot;</pre></dd> </dl> <h4 id="sec:Modification"><a href="#sec:Modification">Modification</a></h4><dl class="defsig"><dt class="defsig" id="def:string-fill.21"><span class="sig"><tt>(string-fill! s char [start end]) -&gt; unspecified</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>[R5RS+] Stores CHAR in every element of S.</p><p><tt>string-fill!</tt> is extended from the R5RS definition to take optional START/END arguments.</p></dd> </dl> <h4 id="sec:Comparison"><a href="#sec:Comparison">Comparison</a></h4><dl class="defsig"><dt class="defsig" id="def:string-compare"><span class="sig"><tt>(string-compare s1 s2 proc&lt; proc= proc&gt; [start1 end1 start2 end2]) -&gt; values</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-compare-ci"><span class="sig"><tt>(string-compare-ci s1 s2 proc&lt; proc= proc&gt; [start1 end1 start2 end2]) -&gt; values</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Apply PROC&lt;, PROC=, or PROC&gt; to the mismatch index, depending upon whether S1 is less than, equal to, or greater than S2. The &quot;mismatch index&quot; is the largest index I such that for every 0 &lt;= J &lt; I, S1[J] = S2[J] -- that is, I is the first position that doesn't match.</p><p><tt>string-compare-ci</tt> is the case-insensitive variant. Case-insensitive comparison is done by case-folding characters with the operation</p><pre>(char-downcase (char-upcase C))</pre><p>where the two case-mapping operations are assumed to be 1-1, locale- and context-insensitive, and compatible with the 1-1 case mappings specified by Unicode's UnicodeData.txt table:</p><p><a href="ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData.txt">ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData.txt</a></p><p>The optional start/end indices restrict the comparison to the indicated substrings of S1 and S2. The mismatch index is always an index into S1; in the case of PROC=, it is always END1; we observe the protocol in this redundant case for uniformity.</p><pre>(string-compare &quot;The cat in the hat&quot; &quot;abcdefgh&quot; values values values 4 6 ; Select &quot;ca&quot; 2 4) ; &amp; &quot;cd&quot; =&gt; 5 ; Index of S1's &quot;a&quot;</pre><p>Comparison is simply done on individual code-points of the string. True text collation is not handled by this SRFI.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string.3d"><span class="sig"><tt>(string= s1 s2 [start1 end1 start2 end2]) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string.3c.3e"><span class="sig"><tt>(string&lt;&gt; s1 s2 [start1 end1 start2 end2]) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string.3c"><span class="sig"><tt>(string&lt; s1 s2 [start1 end1 start2 end2]) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string.3e"><span class="sig"><tt>(string&gt; s1 s2 [start1 end1 start2 end2]) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string.3c.3d"><span class="sig"><tt>(string&lt;= s1 s2 [start1 end1 start2 end2]) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string.3e.3d"><span class="sig"><tt>(string&gt;= s1 s2 [start1 end1 start2 end2]) -&gt; boolean</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, <tt>string&lt;</tt> is the lexicographic ordering on strings induced by the ordering <tt>char&lt;?</tt> 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>The optional start/end indices restrict the comparison to the indicated substrings of S1 and S2.</p><p>Comparison is simply done on individual code-points of the string. True text collation is not handled by this SRFI.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-ci.3d"><span class="sig"><tt>(string-ci= s1 s2 [start1 end1 start2 end2]) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-ci.3c.3e"><span class="sig"><tt>(string-ci&lt;&gt; s1 s2 [start1 end1 start2 end2]) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-ci.3c"><span class="sig"><tt>(string-ci&lt; s1 s2 [start1 end1 start2 end2]) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-ci.3e"><span class="sig"><tt>(string-ci&gt; s1 s2 [start1 end1 start2 end2]) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-ci.3c.3d"><span class="sig"><tt>(string-ci&lt;= s1 s2 [start1 end1 start2 end2]) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-ci.3e.3d"><span class="sig"><tt>(string-ci&gt;= s1 s2 [start1 end1 start2 end2]) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Case-insensitive variants.</p><p>Case-insensitive comparison is done by case-folding characters with the operation</p><pre>(char-downcase (char-upcase C))</pre><p>where the two case-mapping operations are assumed to be 1-1, locale- and context-insensitive, and compatible with the 1-1 case mappings specified by Unicode's UnicodeData.txt table:</p><p><a href="ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData.txt">ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData.txt</a></p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-hash"><span class="sig"><tt>(string-hash s [bound start end]) -&gt; integer</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-hash-ci"><span class="sig"><tt>(string-hash-ci s [bound start end]) -&gt; integer</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Compute a hash value for the string S. BOUND is a non-negative exact integer specifying the range of the hash function. A positive value restricts the return value to the range [0,BOUND).</p><p>If BOUND is either zero or not given, the implementation may use an implementation-specific default value, chosen to be as large as is efficiently practical. For instance, the default range might be chosen for a given implementation to map all strings into the range of integers that can be represented with a single machine word.</p><p>The optional start/end indices restrict the hash operation to the indicated substring of S.</p><p><tt>string-hash-ci</tt> is the case-insensitive variant. Case-insensitive comparison is done by case-folding characters with the operation</p><pre>(char-downcase (char-upcase C))</pre><p>where the two case-mapping operations are assumed to be 1-1, locale- and context-insensitive, and compatible with the 1-1 case mappings specified by Unicode's UnicodeData.txt table:</p><p><a href="ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData.txt">ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData.txt</a></p><p>Invariants:</p><pre>(&lt;= 0 (string-hash s b) (- b 1)) ; When B &gt; 0. (string= s1 s2) =&gt; (= (string-hash s1 b) (string-hash s2 b)) (string-ci= s1 s2) =&gt; (= (string-hash-ci s1 b) (string-hash-ci s2 b))</pre><p>A legal but nonetheless discouraged implementation:</p><pre>(define (string-hash s . other-args) 1) (define (string-hash-ci s . other-args) 1)</pre><p>Rationale: allowing the user to specify an explicit bound simplifies user code by removing the mod operation that typically accompanies every hash computation, and also may allow the implementation of the hash function to exploit a reduced range to efficiently compute the hash value. <i>E.g.</i>, for small bounds, the hash function may be computed in a fashion such that intermediate values never overflow into bignum integers, allowing the implementor to provide a fixnum-specific &quot;fast path&quot; for computing the common cases very rapidly.</p></dd> </dl> <h4 id="sec:Prefixes_.26_suffixes"><a href="#sec:Prefixes_.26_suffixes">Prefixes &amp; suffixes</a></h4><dl class="defsig"><dt class="defsig" id="def:string-prefix-length"><span class="sig"><tt>(string-prefix-length s1 s2 [start1 end1 start2 end2]) -&gt; integer</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-suffix-length"><span class="sig"><tt>(string-suffix-length s1 s2 [start1 end1 start2 end2]) -&gt; integer</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-prefix-length-ci"><span class="sig"><tt>(string-prefix-length-ci s1 s2 [start1 end1 start2 end2]) -&gt; integer</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-suffix-length-ci"><span class="sig"><tt>(string-suffix-length-ci s1 s2 [start1 end1 start2 end2]) -&gt; integer</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Return the length of the longest common prefix/suffix of the two strings. For prefixes, this is equivalent to the &quot;mismatch index&quot; for the strings (modulo the STARTi index offsets).</p><p>The optional start/end indices restrict the comparison to the indicated substrings of S1 and S2.</p><p><tt>string-prefix-length-ci</tt> and <tt>string-suffix-length-ci</tt> are the case-insensitive variants. Case-insensitive comparison is done by case-folding characters with the operation</p><pre>(char-downcase (char-upcase c))</pre><p>where the two case-mapping operations are assumed to be 1-1, locale- and context-insensitive, and compatible with the 1-1 case mappings specified by Unicode's UnicodeData.txt table:</p><p><a href="ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData.txt">ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData.txt</a></p><p>Comparison is simply done on individual code-points of the string.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-prefix.3f"><span class="sig"><tt>(string-prefix? s1 s2 [start1 end1 start2 end2]) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-suffix.3f"><span class="sig"><tt>(string-suffix? s1 s2 [start1 end1 start2 end2]) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-prefix-ci.3f"><span class="sig"><tt>(string-prefix-ci? s1 s2 [start1 end1 start2 end2]) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-suffix-ci.3f"><span class="sig"><tt>(string-suffix-ci? s1 s2 [start1 end1 start2 end2]) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Is S1 a prefix/suffix of S2?</p><p>The optional start/end indices restrict the comparison to the indicated substrings of S1 and S2.</p><p><tt>string-prefix-ci?</tt> and <tt>string-suffix-ci?</tt> are the case-insensitive variants. Case-insensitive comparison is done by case-folding characters with the operation</p><pre>(char-downcase (char-upcase c))</pre><p>where the two case-mapping operations are assumed to be 1-1, locale- and context-insensitive, and compatible with the 1-1 case mappings specified by Unicode's UnicodeData.txt table:</p><p><a href="ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData.txt">ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData.txt</a></p><p>Comparison is simply done on individual code-points of the string.</p></dd> </dl> <h4 id="sec:Searching"><a href="#sec:Searching">Searching</a></h4><dl class="defsig"><dt class="defsig" id="def:string-index"><span class="sig"><tt>(string-index s char/char-set/pred [start end]) -&gt; integer or #f</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-index-right"><span class="sig"><tt>(string-index-right s char/char-set/pred [start end]) -&gt; integer or #f</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-skip"><span class="sig"><tt>(string-skip s char/char-set/pred [start end]) -&gt; integer or #f</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-skip-right"><span class="sig"><tt>(string-skip-right s char/char-set/pred [start end]) -&gt; integer or #f</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>string-index</tt> (<tt>string-index-right</tt>) searches through the string from the left (right), returning the index of the first occurrence of a character which</p><ul><li>equals CHAR/CHAR-SET/PRED (if it is a character); </li> <li>is in CHAR/CHAR-SET/PRED (if it is a character set); </li> <li>satisfies the predicate CHAR/CHAR-SET/PRED (if it is a procedure). </li> </ul> <p>If no match is found, the functions return false.</p><p>The START and END parameters specify the beginning and end indices of the search; the search includes the start index, but not the end index. Be careful of &quot;fencepost&quot; considerations: when searching right-to-left, the first index considered is</p><p>END-1</p><p>whereas when searching left-to-right, the first index considered is</p><p>START</p><p>That is, the start/end indices describe a same half-open interval [START,END) in these procedures that they do in all the other SRFI 13 procedures.</p><p>The skip functions are similar, but use the complement of the criteria: they search for the first char that <i>doesn't</i> satisfy the test. <i>E.g.</i>, to skip over initial whitespace, say</p><pre>(cond ((string-skip s char-set:whitespace) =&gt;</pre><pre> (lambda (i) ...)) ; s[i] is not whitespace. ...)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-count"><span class="sig"><tt>(string-count s char/char-set/pred [start end]) -&gt; integer</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Return a count of the number of characters in S that satisfy the CHAR/CHAR-SET/PRED argument. If this argument is a procedure, it is applied to the character as a predicate; if it is a character set, the character is tested for membership; if it is a character, it is used in an equality test.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-contains"><span class="sig"><tt>(string-contains s1 s2 [start1 end1 start2 end2]) -&gt; integer or false</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-contains-ci"><span class="sig"><tt>(string-contains-ci s1 s2 [start1 end1 start2 end2]) -&gt; integer or false</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Does string S1 contain string S2?</p><p>Return the index in S1 where S2 occurs as a substring, or false. The optional start/end indices restrict the operation to the indicated substrings.</p><p>The returned index is in the range [START1,END1). A successful match must lie entirely in the [START1,END1) range of S1.</p><pre>(string-contains &quot;eek -- what a geek.&quot; &quot;ee&quot; 12 18) ; Searches &quot;a geek&quot; =&gt; 15</pre><p><tt>string-contains-ci</tt> is the case-insensitive variant. Case-insensitive comparison is done by case-folding characters with the operation</p><pre>(char-downcase (char-upcase C))</pre><p>where the two case-mapping operations are assumed to be 1-1, locale- and context-insensitive, and compatible with the 1-1 case mappings specified by Unicode's UnicodeData.txt table:</p><p><a href="ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData.txt">ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData.txt</a></p><p>Comparison is simply done on individual code-points of the string.</p><p>The names of these procedures do not end with a question mark -- this is to indicate that they do not return a simple boolean (<tt>#t</tt> or <tt>#f</tt>). Rather, they return either false (<tt>#f</tt>) or an exact non-negative integer.</p></dd> </dl> <h4 id="sec:Alphabetic_case_mapping"><a href="#sec:Alphabetic_case_mapping">Alphabetic case mapping</a></h4><dl class="defsig"><dt class="defsig" id="def:string-titlecase"><span class="sig"><tt>(string-titlecase s [start end]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-titlecase.21"><span class="sig"><tt>(string-titlecase! s [start end]) -&gt; unspecified</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>For every character C in the selected range of S, if C is preceded by a cased character, it is downcased; otherwise it is titlecased.</p><p><tt>string-titlecase</tt> returns the result string and does not alter its S parameter. <tt>string-titlecase!</tt> is the in-place side-effecting variant.</p><pre>(string-titlecase &quot;--capitalize tHIS sentence.&quot;) =&gt; &quot;--Capitalize This Sentence.&quot; (string-titlecase &quot;see Spot run. see Nix run.&quot;) =&gt; &quot;See Spot Run. See Nix Run.&quot; (string-titlecase &quot;3com makes routers.&quot;) =&gt; &quot;3Com Makes Routers.&quot;</pre><p>Note that if a START index is specified, then the character preceding S[START] has no effect on the titlecase decision for character S[START]:</p><pre>(string-titlecase &quot;greasy fried chicken&quot; 2) =&gt; &quot;Easy Fried Chicken&quot;</pre><p>Titlecase and cased information must be compatible with the Unicode specification.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-upcase"><span class="sig"><tt>(string-upcase s [start end]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-upcase.21"><span class="sig"><tt>(string-upcase! s [start end]) -&gt; unspecified</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-downcase"><span class="sig"><tt>(string-downcase s [start end]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-downcase.21"><span class="sig"><tt>(string-downcase! s [start end]) -&gt; unspecified</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Raise or lower the case of the alphabetic characters in the string.</p><p><tt>string-upcase</tt> and <tt>string-downcase</tt> return the result string and do not alter their S parameter. <tt>string-upcase!</tt> and <tt>string-downcase!</tt> are the in-place side-effecting variants.</p><p>These procedures use the locale- and context-insensitive 1-1 case mappings defined by Unicode's UnicodeData.txt table:</p><p><a href="ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData.txt">ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData.txt</a></p></dd> </dl> <h4 id="sec:Reverse_.26_append"><a href="#sec:Reverse_.26_append">Reverse &amp; append</a></h4><dl class="defsig"><dt class="defsig" id="def:string-reverse"><span class="sig"><tt>(string-reverse s [start end]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-reverse.21"><span class="sig"><tt>(string-reverse! s [start end]) -&gt; unspecified</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Reverse the string.</p><p><tt>string-reverse</tt> returns the result string and does not alter its S parameter. <tt>string-reverse!</tt> is the in-place side-effecting variant.</p><pre>(string-reverse &quot;Able was I ere I saw elba.&quot;) =&gt; &quot;.able was I ere I saw elbA&quot; ;;; In-place rotate-left, the Bell Labs way: (lambda (s i) (let ((i (modulo i (string-length s)))) (string-reverse! s 0 i) (string-reverse! s i) (string-reverse! s)))</pre><p>Unicode note: Reversing a string simply reverses the sequence of code-points it contains. So a zero-width accent character A coming <i>after</i> a base character B in string S would come out <i>before</i> B in the reversed result.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-concatenate"><span class="sig"><tt>(string-concatenate string-list) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Append the elements of <tt>string-list</tt> together into a single string. Guaranteed to return a freshly allocated string.</p><p>Note that the <tt>(apply string-append STRING-LIST)</tt> idiom is not robust for long lists of strings, as some Scheme implementations limit the number of arguments that may be passed to an n-ary procedure.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-concatenate.2fshared"><span class="sig"><tt>(string-concatenate/shared string-list) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-append.2fshared"><span class="sig"><tt>(string-append/shared s_1 ...) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>These two procedures are variants of <tt>string-concatenate</tt> and <tt>string-append</tt> that are permitted to return results that share storage with their parameters. In particular, if <tt>string-append/shared</tt> is applied to just one argument, it may return exactly that argument, whereas <tt>string-append</tt> is required to allocate a fresh string.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-concatenate-reverse"><span class="sig"><tt>(string-concatenate-reverse string-list [final-string end]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-concatenate-reverse.2fshared"><span class="sig"><tt>(string-concatenate-reverse/shared string-list [final-string end]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>With no optional arguments, these functions are equivalent to</p><pre>(string-concatenate (reverse STRING-LIST))</pre><p>and</p><pre>(string-concatenate/shared (reverse STRING-LIST))</pre><p>respectively.</p><p>If the optional argument FINAL-STRING is specified, it is consed onto the beginning of STRING-LIST before performing the list-reverse and string-concatenate operations.</p><p>If the optional argument END is given, only the first END characters of FINAL-STRING are added to the string list, thus producing</p><pre>(string-concatenate (reverse (cons (substring/shared FINAL-STRING 0 END) STRING-LIST)))</pre><p><i>E.g.</i></p><pre>(string-concatenate-reverse '(&quot; must be&quot; &quot;Hello, I&quot;) &quot; going.XXXX&quot; 7) =&gt; &quot;Hello, I must be going.&quot;</pre><p>This procedure is useful in the construction of procedures that accumulate character data into lists of string buffers, and wish to convert the accumulated data into a single string when done.</p><p>Unicode note: Reversing a string simply reverses the sequence of code-points it contains. So a zero-width accent character AC coming <i>after</i> a base character BC in string S would come out <i>before</i> BC in the reversed result.</p></dd> </dl> <h4 id="sec:Fold.2c_unfold_.26_map"><a href="#sec:Fold.2c_unfold_.26_map">Fold, unfold &amp; map</a></h4><dl class="defsig"><dt class="defsig" id="def:string-map"><span class="sig"><tt>(string-map proc s [start end]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-map.21"><span class="sig"><tt>(string-map! proc s [start end]) -&gt; unspecified</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>PROC is a char-&gt;char procedure; it is mapped over S.</p><p><tt>string-map</tt> returns the result string and does not alter its S parameter. <tt>string-map!</tt> is the in-place side-effecting variant.</p><p>Note: The order in which PROC is applied to the elements of S is not specified.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-fold"><span class="sig"><tt>(string-fold kons knil s [start end]) -&gt; value</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-fold-right"><span class="sig"><tt>(string-fold-right kons knil s [start end]) -&gt; value</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>These are the fundamental iterators for strings.</p><p>The left-fold operator maps the KONS procedure across the string from left to right</p><pre>(... (KONS S[2] (KONS S[1] (KONS S[0] KNIL))))</pre><p>In other words, <tt>string-fold</tt> obeys the (tail) recursion</p><pre>(string-fold KONS KNIL S START END) = (string-fold KONS (KONS S[START] KNIL) START+1 END)</pre><p>The right-fold operator maps the KONS procedure across the string from right to left</p><pre>(KONS S[0] (... (KONS S[END-3] (KONS S[END-2] (KONS S[END-1] KNIL)))))</pre><p>obeying the (tail) recursion</p><pre>(string-fold-right KONS KNIL S START END) = (string-fold-right KONS (KONS S[END-1] KNIL) START END-1)</pre><p>Examples:</p><pre>;;; Convert a string to a list of chars. (string-fold-right cons '() s) ;;; Count the number of lower-case characters in a string. (string-fold (lambda (c count) (if (char-lower-case? c) (+ count 1) count)) 0 s) ;;; Double every backslash character in S. (let* ((ans-len (string-fold (lambda (c sum) (+ sum (if (char=? c #\\) 2 1))) 0 s)) (ans (make-string ans-len))) (string-fold (lambda (c i) (let ((i (if (char=? c #\\) (begin (string-set! ans i #\\) (+ i 1)) i))) (string-set! ans i c) (+ i 1))) 0 s) ans)</pre><p>The right-fold combinator is sometimes called a &quot;catamorphism.&quot;</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-unfold"><span class="sig"><tt>(string-unfold p f g seed [base make-final]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>This is a fundamental constructor for strings.</p><ul><li>G is used to generate a series of &quot;seed&quot; values from the initial seed: SEED, (G SEED), (G^2 SEED), (G^3 SEED), ... </li> <li>P tells us when to stop -- when it returns true when applied to one of these seed values. </li> <li>F maps each seed value to the corresponding character in the result string. These chars are assembled into the string in a left-to-right order. </li> <li>BASE is the optional initial/leftmost portion of the constructed string; it defaults to the empty string &quot;&quot;. </li> <li>MAKE-FINAL is applied to the terminal seed value (on which P returns true) to produce the final/rightmost portion of the constructed string. It defaults to <tt>(lambda (x) &quot;&quot;)</tt>. </li> </ul> <p>More precisely, the following (simple, inefficient) definitions hold:</p><pre>;;; Iterative (define (string-unfold p f g seed base make-final) (let lp ((seed seed) (ans base)) (if (p seed) (string-append ans (make-final seed)) (lp (g seed) (string-append ans (string (f seed))))))) ;;; Recursive (define (string-unfold p f g seed base make-final) (string-append base (let recur ((seed seed)) (if (p seed) (make-final seed) (string-append (string (f seed)) (recur (g seed)))))))</pre><p><tt>string-unfold</tt> is a fairly powerful string constructor -- you can use it to convert a list to a string, read a port into a string, reverse a string, copy a string, and so forth. Examples:</p><pre>(port-&gt;string p) = (string-unfold eof-object? values (lambda (x) (read-char p)) (read-char p)) (list-&gt;string lis) = (string-unfold null? car cdr lis) (string-tabulate f size) = (string-unfold (lambda (i) (= i size)) f add1 0)</pre><p>To map F over a list LIS, producing a string:</p><pre>(string-unfold null? (compose f car) cdr lis)</pre><p>Interested functional programmers may enjoy noting that <tt>string-fold-right</tt> and <tt>string-unfold</tt> are in some sense inverses. That is, given operations KNULL?, KAR, KDR, KONS, and KNIL satisfying</p><pre>(KONS (KAR x) (KDR x)) = x and (KNULL? KNIL) = #t</pre><p>then</p><pre>(string-fold-right KONS KNIL (string-unfold KNULL? KAR KDR X)) = X</pre><p>and</p><pre>(string-unfold KNULL? KAR KDR (string-fold-right KONS KNIL S)) = S.</pre><p>The final string constructed does not share storage with either BASE or the value produced by MAKE-FINAL.</p><p>This combinator sometimes is called an &quot;anamorphism.&quot;</p><p>Note: implementations should take care that runtime stack limits do not cause overflow when constructing large (<i>e.g.</i>, megabyte) strings with <tt>string-unfold</tt>.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-unfold-right"><span class="sig"><tt>(string-unfold-right p f g seed [base make-final]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>This is a fundamental constructor for strings.</p><ul><li>G is used to generate a series of &quot;seed&quot; values from the initial seed: SEED, (G SEED), (G^2 SEED), (G^3 SEED), ... </li> <li>P tells us when to stop -- when it returns true when applied to one of these seed values. </li> <li>F maps each seed value to the corresponding character in the result string. These chars are assembled into the string in a right-to-left order. </li> <li>BASE is the optional initial/rightmost portion of the constructed string; it defaults to the empty string &quot;&quot;. </li> <li>MAKE-FINAL is applied to the terminal seed value (on which P returns true) to produce the final/leftmost portion of the constructed string. It defaults to <tt>(lambda (x) &quot;&quot;)</tt>. </li> </ul> <p>More precisely, the following (simple, inefficient) definitions hold:</p><pre>;;; Iterative (define (string-unfold-right p f g seed base make-final) (let lp ((seed seed) (ans base)) (if (p seed) (string-append (make-final seed) ans) (lp (g seed) (string-append (string (f seed)) ans))))) ;;; Recursive (define (string-unfold-right p f g seed base make-final) (string-append (let recur ((seed seed)) (if (p seed) (make-final seed) (string-append (recur (g seed)) (string (f seed))))) base))</pre><p>Interested functional programmers may enjoy noting that <tt>string-fold</tt> and <tt>string-unfold-right</tt> are in some sense inverses. That is, given operations KNULL?, KAR, KDR, KONS, and KNIL satisfying</p><p><tt>(KONS (KAR X) (KDR X))</tt> = X and <tt>(KNULL? KNIL)</tt> = #t</p><p>then</p><pre>(string-fold KONS KNIL (string-unfold-right KNULL? KAR KDR X)) = X</pre><p>and</p><pre>(string-unfold-right KNULL? KAR KDR (string-fold KONS KNIL S)) = S.</pre><p>The final string constructed does not share storage with either BASE or the value produced by MAKE-FINAL.</p><p>Note: implementations should take care that runtime stack limits do not cause overflow when constructing large (<i>e.g.</i>, megabyte) strings with <tt>string-unfold-right.</tt></p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-for-each"><span class="sig"><tt>(string-for-each proc s [start end]) -&gt; unspecified</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Apply PROC to each character in S. <tt>string-for-each</tt> is required to iterate from START to END in increasing order.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-for-each-index"><span class="sig"><tt>(string-for-each-index proc s [start end]) -&gt; unspecified</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Apply PROC to each index of S, in order. The optional START/END pairs restrict the endpoints of the loop. This is simply a method of looping over a string that is guaranteed to be safe and correct. Example:</p><pre>(let* ((len (string-length s)) (ans (make-string len))) (string-for-each-index (lambda (i) (string-set! ans (- len i) (string-ref s i))) s) ans)</pre></dd> </dl> <h4 id="sec:Replicate_.26_rotate"><a href="#sec:Replicate_.26_rotate">Replicate &amp; rotate</a></h4><dl class="defsig"><dt class="defsig" id="def:xsubstring"><span class="sig"><tt>(xsubstring s from [to start end]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>This is the &quot;extended substring&quot; procedure that implements replicated copying of a substring of some string.</p><p>S is a string; START and END are optional arguments that demarcate a substring of S, defaulting to 0 and the length of S (<i>i.e.</i>, the whole string). Replicate this substring up and down index space, in both the positive and negative directions. For example, if S = &quot;abcdefg&quot;, START=3, and END=6, then we have the conceptual bidirectionally-infinite string</p><table> <tr><td>...</td><td>d</td><td>e</td><td>f</td><td>d</td><td>e</td><td>f</td><td>d</td><td>e</td><td>f</td><td>d</td><td>e</td><td>f</td><td>d</td><td>e</td><td>f</td><td>d</td><td>e</td><td>f</td><td>d</td><td>...</td></tr> <tr><td>...</td><td>-9</td><td>-8</td><td>-7</td><td>-6</td><td>-5</td><td>-4</td><td>-3</td><td>-2</td><td>-1</td><td>0</td><td>+1</td><td>+2</td><td>+3</td><td>+4</td><td>+5</td><td>+6</td><td>+7</td><td>+8</td><td>+9</td><td>...</td></tr> </table> <p><tt>xsubstring</tt> returns the substring of this string beginning at index FROM, and ending at TO (which defaults to FROM+(END-START)).</p><p>You can use <tt>xsubstring</tt> to perform a variety of tasks:</p><ul><li>To rotate a string left: <tt>(xsubstring &quot;abcdef&quot; 2)</tt> =&gt; <tt>&quot;cdefab&quot;</tt> </li> <li>To rotate a string right: <tt>(xsubstring &quot;abcdef&quot; -2)</tt> =&gt; <tt>&quot;efabcd&quot;</tt> </li> <li>To replicate a string: <tt>(xsubstring &quot;abc&quot; 0 7)</tt> =&gt; <tt>&quot;abcabca&quot;</tt> </li> </ul> <p>Note that</p><ul><li>The FROM/TO indices give a half-open range -- the characters from index FROM up to, but not including, index TO. </li> <li>The FROM/TO indices are not in terms of the index space for string S. They are in terms of the replicated index space of the substring defined by S, START, and END. </li> </ul> <p>It is an error if START=END -- although this is allowed by special dispensation when FROM=TO.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-xcopy.21"><span class="sig"><tt>(string-xcopy! target tstart s sfrom [sto start end]) -&gt; unspecified</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Exactly the same as <tt>xsubstring,</tt> but the extracted text is written into the string TARGET starting at index TSTART. This operation is not defined if <tt>(eq? TARGET S)</tt> or these two arguments share storage -- you cannot copy a string on top of itself.</p></dd> </dl> <h4 id="sec:Miscellaneous:_insertion.2c_parsing"><a href="#sec:Miscellaneous:_insertion.2c_parsing">Miscellaneous: insertion, parsing</a></h4><dl class="defsig"><dt class="defsig" id="def:string-replace"><span class="sig"><tt>(string-replace s1 s2 start1 end1 [start2 end2]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns</p><pre>(string-append (substring/shared S1 0 START1) (substring/shared S2 START2 END2) (substring/shared S1 END1 (string-length S1)))</pre><p>That is, the segment of characters in S1 from START1 to END1 is replaced by the segment of characters in S2 from START2 to END2. If START1=END1, this simply splices the S2 characters into S1 at the specified index.</p><p>Examples:</p><pre>(string-replace &quot;The TCL programmer endured daily ridicule.&quot; &quot;another miserable perl drone&quot; 4 7 8 22 ) =&gt; &quot;The miserable perl programmer endured daily ridicule.&quot; (string-replace &quot;It's easy to code it up in Scheme.&quot; &quot;lots of fun&quot; 5 9) =&gt; &quot;It's lots of fun to code it up in Scheme.&quot; (define (string-insert s i t) (string-replace s t i i)) (string-insert &quot;It's easy to code it up in Scheme.&quot; 5 &quot;really &quot;) =&gt; &quot;It's really easy to code it up in Scheme.&quot;</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-tokenize"><span class="sig"><tt>(string-tokenize s [token-set start end]) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Split the string S into a list of substrings, where each substring is a maximal non-empty contiguous sequence of characters from the character set TOKEN-SET.</p><ul><li>TOKEN-SET defaults to <tt>char-set:graphic</tt> (see SRFI 14 for more on character sets and <tt>char-set:graphic</tt>). </li> <li>If START or END indices are provided, they restrict <tt>string-tokenize</tt> to operating on the indicated substring of S. </li> </ul> <p>This function provides a minimal parsing facility for simple applications. More sophisticated parsers that handle quoting and backslash effects can easily be constructed using regular-expression systems; be careful not to use <tt>string-tokenize</tt> in contexts where more serious parsing is needed.</p><pre>(string-tokenize &quot;Help make programs run, run, RUN!&quot;) =&gt; (&quot;Help&quot; &quot;make&quot; &quot;programs&quot; &quot;run,&quot; &quot;run,&quot; &quot;RUN!&quot;)</pre></dd> </dl> <h4 id="sec:Filtering_.26_deleting"><a href="#sec:Filtering_.26_deleting">Filtering &amp; deleting</a></h4><dl class="defsig"><dt class="defsig" id="def:string-filter"><span class="sig"><tt>(string-filter char/char-set/pred s [start end]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-delete"><span class="sig"><tt>(string-delete char/char-set/pred s [start end]) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Filter the string S, retaining only those characters that satisfy / do not satisfy the CHAR/CHAR-SET/PRED argument. If this argument is a procedure, it is applied to the character as a predicate; if it is a char-set, the character is tested for membership; if it is a character, it is used in an equality test.</p><p>If the string is unaltered by the filtering operation, these functions may return either S or a copy of S.</p></dd> </dl> <h3 id="sec:Low-level_procedures"><a href="#sec:Low-level_procedures">Low-level procedures</a></h3><p>The following procedures are useful for writing other string-processing functions. In a Scheme system that has a module or package system, these procedures should be contained in a module named &quot;string-lib-internals&quot;.</p><h4 id="sec:Start.2fend_optional-argument_parsing_.26_checking_utilities"><a href="#sec:Start.2fend_optional-argument_parsing_.26_checking_utilities">Start/end optional-argument parsing &amp; checking utilities</a></h4><dl class="defsig"><dt class="defsig" id="def:string-parse-start.2bend"><span class="sig"><tt>(string-parse-start+end proc s args) -&gt; [rest start end]</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-parse-final-start.2bend"><span class="sig"><tt>(string-parse-final-start+end proc s args) -&gt; [start end]</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>string-parse-start+end</tt> may be used to parse a pair of optional START/END arguments from an argument list, defaulting them to 0 and the length of some string S, respectively. Let the length of string S be SLEN.</p><ul><li>If ARGS = (), the function returns <tt>(values '() 0 SLEN)</tt> </li> <li>If ARGS = (I), I is checked to ensure it is an exact integer, and that 0 &lt;= i &lt;= SLEN. Returns <tt>(values (cdr ARGS) I SLEN)</tt>. </li> <li>If ARGS = <tt>(I J ...)</tt>, I and J are checked to ensure they are exact integers, and that 0 &lt;= I &lt;= J &lt;= SLEN. Returns <tt>(values (cddr ARGS) I J)</tt>. </li> </ul> <p>If any of the checks fail, an error condition is raised, and PROC is used as part of the error condition -- it should be the client procedure whose argument list <tt>string-parse-start+end</tt> is parsing.</p><p><tt>string-parse-final-start+end</tt> is exactly the same, except that the ARGS list passed to it is required to be of length two or less; if it is longer, an error condition is raised. It may be used when the optional START/END parameters are final arguments to the procedure.</p><p>Note that in all cases, these functions ensure that S is a string (by necessity, since all cases apply <tt>string-length</tt> to S either to default END or to bounds-check it).</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:let-string-start.2bend"><span class="sig"><tt>(let-string-start+end (start end [rest]) proc-exp s-exp args-exp body ...) -&gt; value(s)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>[Syntax] Syntactic sugar for an application of <tt>string-parse-start+end</tt> or <tt>string-parse-final-start+end.</tt></p><p>If a REST variable is given, the form is equivalent to</p><pre>(call-with-values (lambda () (string-parse-start+end PROC-EXP S-EXP ARGS-EXP)) (lambda (REST START END) BODY ...))</pre><p>If no REST variable is given, the form is equivalent to</p><pre>(call-with-values (lambda () (string-parse-final-start+end PROC-EXP S-EXP ARGS-EXP)) (lambda (START END) BODY ...))</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:check-substring-spec"><span class="sig"><tt>(check-substring-spec proc s start end) -&gt; unspecified</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:substring-spec-ok.3f"><span class="sig"><tt>(substring-spec-ok? s start end) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Check values S, START and END to ensure they specify a valid substring. This means that S is a string, START and END are exact integers, and 0 &lt;= START &lt;= END &lt;= <tt>(string-length S)</tt></p><p>If the values are not proper</p><ul><li><tt>check-substring-spec</tt> raises an error condition. PROC is used as part of the error condition, and should be the procedure whose parameters we are checking. </li> <li><tt>substring-spec-ok?</tt> returns false. </li> </ul> <p>Otherwise, <tt>substring-spec-ok?</tt> returns true, and <tt>check-substring-spec</tt> simply returns (what it returns is not specified).</p></dd> </dl> <h4 id="sec:Knuth-Morris-Pratt_searching"><a href="#sec:Knuth-Morris-Pratt_searching">Knuth-Morris-Pratt searching</a></h4><p>The Knuth-Morris-Pratt string-search algorithm is a method of rapidly scanning a sequence of text for the occurrence of some fixed string. It has the advantage of never requiring backtracking -- hence, it is useful for searching not just strings, but also other sequences of text that do not support backtracking or random-access, such as input ports. These routines package up the initialisation and searching phases of the algorithm for general use. They also support searching through sequences of text that arrive in buffered chunks, in that intermediate search state can be carried across applications of the search loop from the end of one buffer application to the next.</p><p>A second critical property of KMP search is that it requires the allocation of auxiliary memory proportional to the length of the pattern, but <i>constant</i> in the size of the character type. Alternate searching algorithms frequently require the construction of a table with an entry for every possible character -- which can be prohibitively expensive in a 16- or 32-bit character representation.</p><dl class="defsig"><dt class="defsig" id="def:make-kmp-restart-vector"><span class="sig"><tt>(make-kmp-restart-vector s [c= start end]) -&gt; integer-vector</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Build a Knuth-Morris-Pratt &quot;restart vector,&quot; which is useful for quickly searching character sequences for the occurrence of string S (or the substring of S demarcated by the optional START/END parameters, if provided). C= is a character-equality function used to construct the restart vector. It defaults to <tt>char=?</tt>; use <tt>char-ci=?</tt> instead for case-folded string search.</p><p>The definition of the restart vector RV for string S is: If we have matched chars 0..I-1 of S against some search string SS, and S[I] doesn't match SS[K], then reset I := RV[I], and try again to match SS[K]. If RV[I] = -1, then punt SS[K] completely, and move on to SS[K+1] and S[0].</p><p>In other words, if you have matched the first I chars of S, but the I+1'th char doesn't match, RV[I] tells you what the next-longest prefix of S is that you have matched.</p><p>The following string-search function shows how a restart vector is used to search. Note the attractive feature of the search process: it is &quot;on line,&quot; that is, it never needs to back up and reconsider previously seen data. It simply consumes characters one-at-a-time until declaring a complete match or reaching the end of the sequence. Thus, it can be easily adapted to search other character sequences (such as ports) that do not provide random access to their contents.</p><pre>(define (find-substring pattern source start end) (let ((plen (string-length pattern)) (rv (make-kmp-restart-vector pattern))) ;; The search loop. SJ &amp; PJ are redundant state. (let lp ((si start) (pi 0) (sj (- end start)) ; (- end si) -- how many chars left. (pj plen)) ; (- plen pi) -- how many chars left. (if (= pi plen) (- si plen) ; Win. (and (&lt;= pj sj) ; Lose. (if (char=? (string-ref source si) ; Test. (string-ref pattern pi)) (lp (+ 1 si) (+ 1 pi) (- sj 1) (- pj 1)) ; Advance. (let ((pi (vector-ref rv pi))) ; Retreat. (if (= pi -1) (lp (+ si 1) 0 (- sj 1) plen) ; Punt. (lp si pi sj (- plen pi))))))))))</pre><p>The optional START/END parameters restrict the restart vector to the indicated substring of PAT; RV is END - START elements long. If START &gt; 0, then RV is offset by START elements from PAT. That is, RV[I] describes pattern element PAT[I + START]. Elements of RV are themselves indices that range just over [0, END-START), <i>not</i> [START, END).</p><p>Rationale: the actual value of RV is &quot;position independent&quot; -- it does not depend on where in the PAT string the pattern occurs, but only on the actual characters comprising the pattern.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:kmp-step"><span class="sig"><tt>(kmp-step pat rv c i c= p-start) -&gt; integer</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>This function encapsulates the work performed by one step of the KMP string search; it can be used to scan strings, input ports, or other on-line character sources for fixed strings.</p><p>PAT is the non-empty string specifying the text for which we are searching. RV is the Knuth-Morris-Pratt restart vector for the pattern, as constructed by <tt>make-kmp-restart-vector.</tt> The pattern begins at PAT[P-START], and is <tt>(string-length RV)</tt> characters long. C= is the character-equality function used to construct the restart vector, typically <tt>char=?</tt> or <tt>char-ci=?</tt>.</p><p>Suppose the pattern is N characters in length: PAT[P-START, P-START + N). We have already matched I characters: PAT[P-START, P-START + I). (P-START is typically zero.) C is the next character in the input stream. <tt>kmp-step</tt> returns the new I value -- that is, how much of the pattern we have matched, <i>including</i> character C. When I reaches N, the entire pattern has been matched.</p><p>Thus a typical search loop looks like this:</p><pre>(let lp ((i 0)) (or (= i n) ; Win -- #t (and (not (end-of-stream)) ; Lose -- #f (lp (kmp-step pat rv (get-next-character) i char=? 0)))))</pre><p>Example:</p><pre>;; Read chars from IPORT until we find string PAT or hit EOF. (define (port-skip pat iport) (let* ((rv (make-kmp-restart-vector pat)) (patlen (string-length pat))) (let lp ((i 0) (nchars 0)) (if (= i patlen) nchars ; Win -- nchars skipped (let ((c (read-char iport))) (if (eof-object? c) c ; Fail -- EOF (lp (kmp-step pat rv c i char=? 0) ; Continue (+ nchars 1))))))))</pre><p>This procedure could be defined as follows:</p><pre>(define (kmp-step pat rv c i c= p-start) (let lp ((i i)) (if (c= c (string-ref pat (+ i p-start))) ; Match =&gt; (+ i 1) ; Done. (let ((i (vector-ref rv i))) ; Back up in PAT. (if (= i -1) 0 ; Can't back up more. (lp i))))))) ; Keep going.</pre><p>Rationale: this procedure takes no optional arguments because it is intended as an inner-loop primitive and we do not want any run-time penalty for optional-argument parsing and defaulting, nor do we wish barriers to procedure integration/inlining.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-kmp-partial-search"><span class="sig"><tt>(string-kmp-partial-search pat rv s i [c= p-start s-start s-end]) -&gt; integer</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Applies <tt>kmp-step</tt> across S; optional S-START/S-END bounds parameters restrict search to a substring of S. The pattern is <tt>(vector-length RV)</tt> characters long; optional P-START index indicates non-zero start of pattern in PAT.</p><p>Suppose PLEN = <tt>(vector-length RV)</tt> is the length of the pattern. I is an integer index into the pattern (that is, 0 &lt;= I &lt; PLEN) indicating how much of the pattern has already been matched. (This means the pattern must be non-empty -- PLEN &gt; 0.)</p><ul><li>On success, returns -J, where J is the index in S bounding the <i>end</i> of the pattern -- <i>e.g.</i>, a value that could be used as the END parameter in a call to <tt>substring/shared</tt>. </li> <li>On continue, returns the current search state I' (an index into RV) when the search reached the end of the string. This is a non-negative integer. </li> </ul> <p>Hence:</p><ul><li>A negative return value indicates success, and says where in the string the match occurred. </li> <li>A non-negative return value provides the I to use for continued search in a following string. </li> </ul> <p>This utility is designed to allow searching for occurrences of a fixed string that might extend across multiple buffers of text. This is why, for example, we do not provide the index of the <i>start</i> of the match on success -- it may have occurred in a previous buffer.</p><p>To search a character sequence that arrives in &quot;chunks,&quot; write a loop of this form:</p><pre>(let lp ((i 0)) (and (not (end-of-data?)) ; Lose -- return #f. (let* ((buf (get-next-chunk)) ; Get or fill up the buffer. (i (string-kmp-partial-search pat rv buf i))) (if (&lt; i 0) (- i) ; Win -- return end index. (lp i))))) ; Keep looking.</pre><p>Modulo start/end optional-argument parsing, this procedure could be defined as follows:</p><pre>(define (string-kmp-partial-search pat rv s i c= p-start s-start s-end) (let ((patlen (vector-length rv))) (let lp ((si s-start) ; An index into S. (vi i)) ; An index into RV. (cond ((= vi patlen) (- si)) ; Win. ((= si end) vi) ; Ran off the end. (else (lp (+ si 1) ; Match s[si] &amp; loop. (kmp-step pat rv (string-ref s si) vi c= p-start)))))))</pre></dd> </dl> <hr /><p>Previous: <a href="Unit%20srfi-4.html">Unit srfi-4</a></p><p>Next: <a href="Unit%20srfi-14.html">Unit srfi-14</a></p></div></div></body>������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Interface to external functions and variables.html�����������������������0000644�0001750�0001750�00000002702�13052306551�026671� 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 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="Callbacks.html">Callbacks</a> </li> <li><a href="Locations.html">Locations</a> </li> <li><a href="Other%20support%20procedures.html">Other support procedures</a> </li> <li><a href="C%20interface.html">C interface</a> </li> </ul> <hr /><p>Previous: <a href="Debugging.html">Debugging</a></p><p>Next: <a href="Extensions.html">Extensions</a></p></div></div></body>��������������������������������������������������������������chicken-4.12.0/manual-html/Unit extras.html���������������������������������������������������������0000644�0001750�0001750�00000030164�13052306551�020327� 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; Unit extras</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:Unit_extras">Unit extras</a> <ul> <li><a href="#sec:Random_numbers">Random numbers</a> <ul> <li><a href="#sec:randomize">randomize</a></li> <li><a href="#sec:random">random</a></li></ul></li> <li><a href="#sec:Formatted_output">Formatted output</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> <li><a href="#sec:format">format</a></li></ul></li> <li><a href="#sec:Pretty-printing">Pretty-printing</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> <li><a href="#sec:Input.2fOutput_extensions">Input/Output extensions</a> <ul> <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-file">read-file</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></li></ul></div><h2 id="sec:Unit_extras"><a href="#sec:Unit_extras">Unit extras</a></h2><p>This unit contains a collection of useful utility definitions. The unit is used in <tt>csi</tt> by default.</p><h3 id="sec:Random_numbers"><a href="#sec:Random_numbers">Random numbers</a></h3><h4 id="sec:randomize"><a href="#sec:randomize">randomize</a></h4><dl class="defsig"><dt class="defsig" id="def:randomize"><span class="sig"><tt>(randomize [SEED])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Set random-number seed. If <tt>SEED</tt> (an <tt>exact integer</tt>) is not supplied, the current time is used. On startup (when Unit <tt>extras</tt> is initialized), the random number generator is initialized with the current time.</p></dd> </dl> <h4 id="sec:random"><a href="#sec:random">random</a></h4><dl class="defsig"><dt class="defsig" id="def:random"><span class="sig"><tt>(random N)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a pseudo-random <tt>integer</tt> in <tt>[0, N-1]</tt>. <tt>N</tt> is an <tt>integer</tt>.</p><p>On Windows, <tt>N</tt> and the random value are <tt>exact integer</tt>.</p><p><b>Warning</b>: This procedure uses <i>rand(3)</i> internally and exhibits its deficiencies, including low quality pseudo-randomness:</p><ul><li>On Windows and Solaris, only 32768 unique random values can be generated in the range <tt>[0, N-1]</tt>. If <tt>N &gt;= 32768</tt>, there will be gaps in the result set.</li> <li>On Mac OS X, Windows and some other platforms, little variance in output is seen with nearby seeds. Since the random generator is seeded with <tt>current-seconds</tt> at startup, new processes may see similar or identical random sequences for up to a minute.</li> <li>On Linux, <i>rand(3)</i> is an alias to <i>random(3)</i>, which provides output of reasonable quality.</li> </ul> </dd> </dl> <h3 id="sec:Formatted_output"><a href="#sec:Formatted_output">Formatted output</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"><tt>(fprintf PORT FORMATSTRING [ARG...])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:printf"><span class="sig"><tt>(printf FORMATSTRING [ARG...])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:sprintf"><span class="sig"><tt>(sprintf FORMATSTRING [ARG...])</tt></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 <tt>FORMATSTRING</tt> 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 <tt>FORMATSTRING</tt>. 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> <h4 id="sec:format"><a href="#sec:format">format</a></h4><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> <h3 id="sec:Pretty-printing"><a href="#sec:Pretty-printing">Pretty-printing</a></h3><h4 id="sec:pretty-print"><a href="#sec:pretty-print">pretty-print</a></h4><dl class="defsig"><dt class="defsig" id="def:pretty-print"><span class="sig"><tt>(pretty-print EXP [PORT])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:pp"><span class="sig"><tt>(pp EXP [PORT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Print expression nicely formatted. <tt>PORT</tt> defaults to the value of <tt>(current-output-port)</tt>.</p></dd> </dl> <h4 id="sec:pretty-print-width"><a href="#sec:pretty-print-width">pretty-print-width</a></h4><dl class="defsig"><dt class="defsig" id="def:pretty-print-width"><span class="sig"><tt>pretty-print-width</tt></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> <h3 id="sec:Input.2fOutput_extensions"><a href="#sec:Input.2fOutput_extensions">Input/Output extensions</a></h3><h4 id="sec:read-byte"><a href="#sec:read-byte">read-byte</a></h4><h4 id="sec:write-byte"><a href="#sec:write-byte">write-byte</a></h4><dl class="defsig"><dt class="defsig" id="def:read-byte"><span class="sig"><tt>(read-byte [PORT])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:write-byte"><span class="sig"><tt>(write-byte BYTE [PORT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Read/write a byte to the port given in <tt>PORT</tt>, which default to the values of <tt>(current-input-port)</tt> and <tt>(current-output-port)</tt>, respectively.</p></dd> </dl> <h4 id="sec:read-file"><a href="#sec:read-file">read-file</a></h4><dl class="defsig"><dt class="defsig" id="def:read-file"><span class="sig"><tt>(read-file [FILE-OR-PORT [READER [MAXCOUNT]]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a list containing all toplevel expressions read from the file or port <tt>FILE-OR-PORT</tt>. If no argument is given, input is read from the port that is the current value of <tt>(current-input-port)</tt>. After all expressions are read, and if the argument is a port, then the port will not be closed. The <tt>READER</tt> argument specifies the procedure used to read expressions from the given file or port and defaults to <tt>read</tt>. The reader procedure will be called with a single argument (an input port). If <tt>MAXCOUNT</tt> is given then only up to <tt>MAXCOUNT</tt> expressions will be read in.</p></dd> </dl> <h4 id="sec:read-line"><a href="#sec:read-line">read-line</a></h4><h4 id="sec:write-line"><a href="#sec:write-line">write-line</a></h4><dl class="defsig"><dt class="defsig" id="def:read-line"><span class="sig"><tt>(read-line [PORT [LIMIT]])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:write-line"><span class="sig"><tt>(write-line STRING [PORT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Line-input and -output. <tt>PORT</tt> defaults to the value of <tt>(current-input-port)</tt> and <tt>(current-output-port)</tt>, respectively. If the optional argument <tt>LIMIT</tt> is given and not <tt>#f</tt>, then <tt>read-line</tt> reads at most <tt>LIMIT</tt> 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> <h4 id="sec:read-lines"><a href="#sec:read-lines">read-lines</a></h4><dl class="defsig"><dt class="defsig" id="def:read-lines"><span class="sig"><tt>(read-lines [PORT [MAX]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Read <tt>MAX</tt> or fewer lines from <tt>PORT</tt>. <tt>PORT</tt> defaults to the value of <tt>(current-input-port)</tt>. <tt>PORT</tt> may optionally be a string naming a file. Returns a list of strings, each string representing a line read, not including any line separation character(s).</p></dd> </dl> <h4 id="sec:read-string"><a href="#sec:read-string">read-string</a></h4><h4 id="sec:read-string.21"><a href="#sec:read-string.21">read-string!</a></h4><h4 id="sec:write-string"><a href="#sec:write-string">write-string</a></h4><dl class="defsig"><dt class="defsig" id="def:read-string"><span class="sig"><tt>(read-string [NUM [PORT]])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:read-string.21"><span class="sig"><tt>(read-string! NUM STRING [PORT [START]])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:write-string"><span class="sig"><tt>(write-string STRING [NUM [PORT]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Read or write <tt>NUM</tt> characters from/to <tt>PORT</tt>, which defaults to the value of <tt>(current-input-port)</tt> or <tt>(current-output-port)</tt>, respectively. If <tt>NUM</tt> 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 the empty string. <tt>read-string!</tt> reads destructively into the given <tt>STRING</tt> argument, but never more characters than would fit into <tt>STRING</tt>. If <tt>START</tt> 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> <h4 id="sec:read-token"><a href="#sec:read-token">read-token</a></h4><dl class="defsig"><dt class="defsig" id="def:read-token"><span class="sig"><tt>(read-token PREDICATE [PORT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Reads characters from <tt>PORT</tt> (which defaults to the value of <tt>(current-input-port)</tt>) and calls the procedure <tt>PREDICATE</tt> with each character until <tt>PREDICATE</tt> returns false. Returns a string with the accumulated characters.</p></dd> </dl> <hr /><p>Previous: <a href="Unit%20files.html">Unit files</a></p><p>Next: <a href="Unit%20irregex.html">Unit irregex</a></p></div></div></body>������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Unit lolevel.html��������������������������������������������������������0000644�0001750�0001750�00000137644�13052306550�020475� 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; Unit lolevel</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:Unit_lolevel">Unit lolevel</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-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-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></ul></li> <li><a href="#sec:Locatives">Locatives</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> <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> <li><a href="#sec:move-memory.21">move-memory!</a></li></ul></li> <li><a href="#sec:Data_in_unmanaged_memory">Data in unmanaged memory</a> <ul> <li><a href="#sec:object-evict">object-evict</a></li> <li><a href="#sec:object-evict-to-location">object-evict-to-location</a></li> <li><a href="#sec:object-evicted.3f">object-evicted?</a></li> <li><a href="#sec:object-release">object-release</a></li> <li><a href="#sec:object-unevict">object-unevict</a></li> <li><a href="#sec:object-size">object-size</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:Unit_lolevel"><a href="#sec:Unit_lolevel">Unit lolevel</a></h2><p>This unit provides a number of handy low-level operations. <b>Use at your own risk.</b></p><p>This unit uses the <tt>srfi-4</tt> and <tt>extras</tt> units.</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 foreign pointer object, a <a href="#sec:Tagged_pointers">tagged foreign pointer object</a>, or a SWIG-pointer.</dd><dt><i>pointer-like object</i></dt> <dd>is a closure, port, <a href="#sec:Locatives">locative</a>, or a pointer object.</dd></dl> <p>SWIG-pointers are currently an issue due to &quot;bitrot&quot; in the SWIG CHICKEN translator. While they are considered a pointer object unexpected results are possible.</p><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"><tt>(address-&gt;pointer ADDRESS)</tt></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 <tt>ADDRESS</tt>.</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"><tt>(allocate BYTES)</tt></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"><tt>(free POINTER)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Frees the memory pointed to by <tt>POINTER</tt>.</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"><tt>(object-&gt;pointer X)</tt></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"><tt>(pointer-&gt;object POINTER)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the Scheme object pointed to by the pointer object <tt>POINTER</tt>.</p><p>Whether the <tt>POINTER</tt> 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"><tt>(pointer? X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>X</tt> 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"><tt>(pointer-like? X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>X</tt> 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"><tt>(pointer=? POINTER*1 POINTER*2)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if the pointer-like objects <tt>POINTER*1</tt> and <tt>POINTER*2</tt> 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"><tt>(pointer-&gt;address POINTER*)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the address, to which the pointer-like object <tt>POINTER*</tt> 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"><tt>(pointer+ POINTER* N)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new foreign pointer object representing the pointer-like object <tt>POINTER*</tt> address value increased by the byte-offset <tt>N</tt>.</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"><tt>(align-to-word POINTER*-OR-INT)</tt></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"><tt>(pointer-u8-ref POINTER)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the unsigned byte at the address designated by <tt>POINTER</tt>.</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"><tt>(pointer-s8-ref POINTER)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the signed byte at the address designated by <tt>POINTER</tt>.</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"><tt>(pointer-u16-ref POINTER)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the unsigned 16-bit integer at the address designated by <tt>POINTER</tt>.</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"><tt>(pointer-s16-ref POINTER)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the signed 16-bit integer at the address designated by <tt>POINTER</tt>.</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"><tt>(pointer-u32-ref POINTER)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the unsigned 32-bit integer at the address designated by <tt>POINTER</tt>.</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"><tt>(pointer-s32-ref POINTER)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the signed 32-bit integer at the address designated by <tt>POINTER</tt>.</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"><tt>(pointer-f32-ref POINTER)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the 32-bit float at the address designated by <tt>POINTER</tt>.</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"><tt>(pointer-f64-ref POINTER)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the 64-bit double at the address designated by <tt>POINTER</tt>.</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"><tt>(pointer-u8-set! POINTER N)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><tt>(set! (pointer-u8-ref POINTER) N)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Stores the unsigned byte <tt>N</tt> at the address designated by <tt>POINTER</tt>.</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"><tt>(pointer-s8-set! POINTER N)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><tt>(set! (pointer-s8-ref POINTER) N)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Stores the signed byte <tt>N</tt> at the address designated by <tt>POINTER</tt>.</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"><tt>(pointer-u16-set! POINTER N)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><tt>(set! (pointer-u16-ref POINTER) N)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Stores the unsigned 16-bit integer <tt>N</tt> at the address designated by <tt>POINTER</tt>.</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"><tt>(pointer-s16-set! POINTER N)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><tt>(set! (pointer-s16-ref POINTER) N)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Stores the signed 16-bit integer <tt>N</tt> at the address designated by <tt>POINTER</tt>.</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"><tt>(pointer-u32-set! POINTER N)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><tt>(set! (pointer-u32-ref POINTER) N)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Stores the unsigned 32-bit integer <tt>N</tt> at the address designated by <tt>POINTER</tt>.</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"><tt>(pointer-s32-set! POINTER N)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><tt>(set! (pointer-s32-ref POINTER) N)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Stores the 32-bit integer <tt>N</tt> at the address designated by <tt>POINTER</tt>.</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"><tt>(pointer-f32-set! POINTER N)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><tt>(set! (pointer-f32-ref POINTER) N)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Stores the 32-bit floating-point number <tt>N</tt> at the address designated by <tt>POINTER</tt>.</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"><tt>(pointer-f64-set! POINTER N)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><tt>(set! (pointer-f64-ref POINTER) N)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Stores the 64-bit floating-point number <tt>N</tt> at the address designated by <tt>POINTER</tt>.</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"><tt>(tag-pointer POINTER* TAG)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a new tagged foreign pointer object from the pointer-like object <tt>POINTER*</tt> with the tag <tt>TAG</tt>, 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"><tt>(tagged-pointer? X [TAG])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>X</tt> is a tagged foreign pointer object, or <tt>#f</tt> otherwise.</p><p>Further, returns <tt>#t</tt> when <tt>X</tt> has the optional tag <tt>TAG</tt> (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"><tt>(pointer-tag POINTER*)</tt></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 <tt>POINTER*</tt> 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"><tt>(make-pointer-vector LENGTH [INIT])</tt></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 <tt>INIT</tt>, 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"><tt>(pointer-vector? X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>X</tt> 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"><tt>(pointer-vector POINTER ...)</tt></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"><tt>(pointer-vector-length POINTERVECTOR)</tt></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"><tt>(pointer-vector-ref POINTERVECTOR INDEX)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the pointer at <tt>INDEX</tt> 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"><tt>(pointer-vector-set! POINTERVECTOR INDEX POINTER)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the element at the position <tt>INDEX</tt> in the given pointer-vector to <tt>POINTER</tt>. The alternative syntax</p><pre> (set! (pointer-vector-ref POINTERVECTOR INDEX) POINTER)</pre><p>is also allowed.</p></dd> </dl> <h3 id="sec:Locatives"><a href="#sec:Locatives">Locatives</a></h3><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. The effect of creating locatives for evicted data (see <tt>object-evict</tt>) is undefined.</p><h4 id="sec:make-locative"><a href="#sec:make-locative">make-locative</a></h4><dl class="defsig"><dt class="defsig" id="def:make-locative"><span class="sig"><tt>(make-locative OBJ [INDEX])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a locative that refers to the element of the non-immediate object <tt>OBJ</tt> at position <tt>INDEX</tt>. <tt>OBJ</tt> may be a vector, pair, string, blob, SRFI-4 number-vector, or record structure. <tt>INDEX</tt> should be a fixnum. <tt>INDEX</tt> defaults to 0.</p></dd> </dl> <h4 id="sec:make-weak-locative"><a href="#sec:make-weak-locative">make-weak-locative</a></h4><dl class="defsig"><dt class="defsig" id="def:make-weak-locative"><span class="sig"><tt>(make-weak-locative OBJ [INDEX])</tt></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> <h4 id="sec:locative.3f"><a href="#sec:locative.3f">locative?</a></h4><dl class="defsig"><dt class="defsig" id="def:locative.3f"><span class="sig"><tt>(locative? X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>X</tt> is a locative, or <tt>#f</tt> otherwise.</p></dd> </dl> <h4 id="sec:locative-ref"><a href="#sec:locative-ref">locative-ref</a></h4><dl class="defsig"><dt class="defsig" id="def:locative-ref"><span class="sig"><tt>(locative-ref LOC)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the element to which the locative <tt>LOC</tt> 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> <h4 id="sec:locative-set.21"><a href="#sec:locative-set.21">locative-set!</a></h4><dl class="defsig"><dt class="defsig" id="def:locative-set.21"><span class="sig"><tt>(locative-set! LOC X)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><tt>(set! (locative-ref LOC) X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Changes the element to which the locative <tt>LOC</tt> refers to <tt>X</tt>. If the containing object has been reclaimed by garbage collection, an error is signalled.</p></dd> </dl> <h4 id="sec:locative-.3eobject"><a href="#sec:locative-.3eobject">locative-&gt;object</a></h4><dl class="defsig"><dt class="defsig" id="def:locative-.3eobject"><span class="sig"><tt>(locative-&gt;object LOC)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the object that contains the element referred to by <tt>LOC</tt> 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> <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"><tt>(extend-procedure PROCEDURE X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a copy of the procedure <tt>PROCEDURE</tt> which contains an additional data slot initialized to <tt>X</tt>. If <tt>PROCEDURE</tt> is already an extended procedure, then its data slot is changed to contain <tt>X</tt> and the same procedure is returned. Signals an error when <tt>PROCEDURE</tt> 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"><tt>(extended-procedure? PROCEDURE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>PROCEDURE</tt> 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"><tt>(procedure-data PROCEDURE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the data object contained in the extended procedure <tt>PROCEDURE</tt>, 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"><tt>(set-procedure-data! PROCEDURE X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Changes the data object contained in the extended procedure <tt>PROCEDURE</tt> to <tt>X</tt>. Signals an error when <tt>PROCEDURE</tt> 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 <tt>vector-like objects</tt>. A <tt>vector-like object</tt> is a vector, record structure, pair, symbol or keyword.</p><p>Note that strings and blobs are not considered vector-like.</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"><tt>(vector-like? X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> when <tt>X</tt> 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"><tt>(block-ref VECTOR* INDEX)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the contents of the <tt>INDEX</tt>th slot of the vector-like object <tt>VECTOR*</tt>.</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"><tt>(block-set! VECTOR* INDEX X)</tt></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 <tt>INDEX</tt>th slot of the vector-like object <tt>VECTOR*</tt> to the value of <tt>X</tt>.</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"><tt>(number-of-slots VECTOR*)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the number of slots that the vector-like object <tt>VECTOR*</tt> 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"><tt>(number-of-bytes BLOCK)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the number of bytes that the object <tt>BLOCK</tt> contains. <tt>BLOCK</tt> 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"><tt>(object-copy X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Copies <tt>X</tt> recursively and returns the fresh copy. Objects allocated in static memory are copied back into garbage collected storage.</p></dd> </dl> <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"><tt>(move-memory! FROM TO [BYTES [FROM-OFFSET [TO-OFFSET]]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Copies <tt>BYTES</tt> bytes of memory from <tt>FROM</tt> to <tt>TO</tt>. <tt>FROM</tt> and <tt>TO</tt> may be strings, blobs, <a href="Unit%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 <tt>BYTES</tt> 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> <h3 id="sec:Data_in_unmanaged_memory"><a href="#sec:Data_in_unmanaged_memory">Data in unmanaged memory</a></h3><h4 id="sec:object-evict"><a href="#sec:object-evict">object-evict</a></h4><dl class="defsig"><dt class="defsig" id="def:object-evict"><span class="sig"><tt>(object-evict X [ALLOCATOR])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Copies the object <tt>X</tt> recursively into the memory pointed to by the foreign pointer object returned by <tt>ALLOCATOR</tt>. The freshly copied object is returned. <tt>ALLOCATOR</tt> should be a procedure of a single argument (the number of bytes to allocate), and defaults to <tt>allocate</tt>.</p><p>This facility allows moving arbitrary objects into static memory, but care should be taken when mutating evicted data: setting slots in evicted vector-like objects to non-evicted data is not allowed. It <b>is</b> possible to set characters/bytes in evicted strings or byte-vectors, though. It is advisable <b>not</b> to evict ports, because they might be mutated by certain file-operations. <tt>object-evict</tt> is able to handle circular and shared structures.</p><p>Evicted symbols are no longer unique: a fresh copy of the symbol is created, so</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> x &#x27;foo</span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> y <span class="paren2">(<span class="default">object-evict &#x27;foo</span>)</span></span>)</span> y ==&gt; foo <span class="paren1">(<span class="default">eq? x y</span>)</span> ==&gt; #f <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> z <span class="paren2">(<span class="default">object-evict &#x27;<span class="paren3">(<span class="default">bar bar</span>)</span></span>)</span></span>)</span> <span class="paren1">(<span class="default">eq? <span class="paren2">(<span class="default">car z</span>)</span> <span class="paren2">(<span class="default">cadr z</span>)</span></span>)</span> ==&gt; #t</pre><p>This loss of uniqueness also implies that an evicted structure -- such as one created with <tt>define-record</tt> -- cannot be operated on with the existing predicate or accessors, as internally a symbol is used to denote the type:</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">point? <span class="paren2">(<span class="default">make-point x y</span>)</span></span>)</span> <span class="comment">; =&gt; #t </span><span class="paren1">(<span class="default">point? <span class="paren2">(<span class="default">object-evict <span class="paren3">(<span class="default">make-point x y</span>)</span></span>)</span></span>)</span> <span class="comment">; =&gt; #f</span></pre></dd> </dl> <h4 id="sec:object-evict-to-location"><a href="#sec:object-evict-to-location">object-evict-to-location</a></h4><dl class="defsig"><dt class="defsig" id="def:object-evict-to-location"><span class="sig"><tt>(object-evict-to-location X POINTER* [LIMIT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>As <tt>object-evict</tt> but moves the object at the address pointed to by the pointer-like object <tt>POINTER*</tt>. If the number of copied bytes exceeds the optional <tt>LIMIT</tt> then an error is signalled (specifically a composite condition of types <tt>exn</tt> and <tt>evict</tt>. The latter provides a <tt>limit</tt> property which holds the exceeded limit. Two values are returned: the evicted object and a new pointer pointing to the first free address after the evicted object.</p><p>Use of anything other than a pointer object as the <tt>POINTER*</tt> argument is questionable.</p></dd> </dl> <h4 id="sec:object-evicted.3f"><a href="#sec:object-evicted.3f">object-evicted?</a></h4><dl class="defsig"><dt class="defsig" id="def:object-evicted.3f"><span class="sig"><tt>(object-evicted? X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>X</tt> is a non-immediate evicted data object, or <tt>#f</tt> otherwise.</p></dd> </dl> <h4 id="sec:object-release"><a href="#sec:object-release">object-release</a></h4><dl class="defsig"><dt class="defsig" id="def:object-release"><span class="sig"><tt>(object-release X [RELEASER])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Frees memory occupied by the evicted object <tt>X</tt> recursively. <tt>RELEASER</tt> should be a procedure of a single argument (a foreign pointer object to the static memory to be freed) and defaults to <tt>free</tt>.</p></dd> </dl> <h4 id="sec:object-unevict"><a href="#sec:object-unevict">object-unevict</a></h4><dl class="defsig"><dt class="defsig" id="def:object-unevict"><span class="sig"><tt>(object-unevict X [FULL])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Copies the object <tt>X</tt> and nested objects back into the normal Scheme heap. Symbols are re-interned into the symbol table. Strings and byte-vectors are <b>not</b> copied, unless <tt>FULL</tt> is given and not <tt>#f</tt>.</p></dd> </dl> <h4 id="sec:object-size"><a href="#sec:object-size">object-size</a></h4><dl class="defsig"><dt class="defsig" id="def:object-size"><span class="sig"><tt>(object-size X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the number of bytes that would be needed to evict the data object <tt>X</tt>. If <tt>X</tt> is an immediate object, zero is returned.</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"><tt>(make-record-instance SYMBOL ARG1 ...)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new instance of the record type <tt>SYMBOL</tt>, 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"><tt>(record-instance? X [SYMBOL])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>X</tt> is a record structure, or <tt>#f</tt> otherwise.</p><p>Further, returns <tt>#t</tt> if <tt>X</tt> is of type <tt>SYMBOL</tt>, 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"><tt>(record-instance-type RECORD)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns type symbol of the record structure <tt>RECORD</tt>. Signals an error if <tt>RECORD</tt> 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"><tt>(record-instance-length RECORD)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns number of slots for the record structure <tt>RECORD</tt>. The record-instance type is not counted. Signals an error if <tt>RECORD</tt> 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"><tt>(record-instance-slot RECORD INDEX)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the contents of the <tt>INDEX</tt>th slot of the record structure <tt>RECORD</tt>. The slot index range is the open interval <tt>[0 record-instance-length)</tt>. Signals an error if <tt>RECORD</tt> 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"><tt>(record-instance-slot-set! RECORD INDEX X)</tt></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 <tt>INDEX</tt>th slot of the record structure <tt>RECORD</tt> to <tt>X</tt>. The slot index range is the open interval <tt>[0 record-instance-length)</tt>. Signals an error if <tt>RECORD</tt> 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"><tt>(record-&gt;vector RECORD)</tt></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 <tt>RECORD</tt>. Signals an error if <tt>RECORD</tt> 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"><tt>(object-become! ALIST)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Changes the identity of the value of the car of each pair in <tt>ALIST</tt> to the value of the cdr. Both values may not 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"><tt>(mutate-procedure! OLD PROC)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Replaces the procedure <tt>OLD</tt> with the result of calling the one-argument procedure <tt>PROC</tt>. <tt>PROC</tt> will receive a copy of <tt>OLD</tt> that will be identical in behaviour to the result of <tt>OLD</tt>:</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="Unit%20tcp.html">Unit tcp</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-4.12.0/manual-html/Using the interpreter.html�����������������������������������������������0000644�0001750�0001750�00000043601�13052306550�022272� 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:Interpreter_command_line_format">Interpreter command line format</a></li> <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:toplevel-command">toplevel-command</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:set-describer.21">set-describer!</a></li> <li><a href="#sec:Auto-completion_and_edition">Auto-completion and edition</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:Interpreter_command_line_format"><a href="#sec:Interpreter_command_line_format">Interpreter 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>.</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 <a href="Non-standard%20read%20syntax.html">non-standard read syntax</a>.</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> <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 (don't forget to declare used library units).</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:</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"><tt>(toplevel-command SYMBOL PROC [HELPSTRING])</tt></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>. <tt>PROC</tt> 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 <tt>HELPSTRING</tt> is given, it will be listed by the <tt>,?</tt> command.</p></dd> </dl> <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> which 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>As a truly last resort, <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 returned is implicitly quoted.</p><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"><tt>(set-describer! TAG PROC)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Sets a custom description handler that invokes <tt>PROC</tt> when the <tt>,d</tt> command is invoked with a record-type object that has the type <tt>TAG</tt> (a symbol). <tt>PROC</tt> 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:Auto-completion_and_edition"><a href="#sec:Auto-completion_and_edition">Auto-completion and edition</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/egg/readline">readline</a> egg by Tony Garnock Jones. 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/egg/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><p>The interpreter <tt>csi</tt> internally requires some routines from the <tt>ports</tt> and <tt>extras</tt> library units and loads them automatically on startup. These libraries are not automatically loaded in compiled code, so there is an inconsistency between code that is executed in <tt>csi</tt> versus code that is compiled and executed.</p><hr /><p>Previous: <a href="Using%20the%20compiler.html">Using the compiler</a></p><p>Next: <a href="Supported%20language.html">Supported language</a></p></div></div></body>�������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Unit tcp.html������������������������������������������������������������0000644�0001750�0001750�00000033114�13052306547�017612� 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; Unit 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:Unit_tcp">Unit 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:Unit_tcp"><a href="#sec:Unit_tcp">Unit tcp</a></h2><p>This unit provides basic facilities for communicating over TCP sockets. The socket interface should be mostly compatible to the one found in PLT Scheme.</p><p>This unit uses the <tt>extras</tt> unit.</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"><tt>(tcp-listen TCPPORT [BACKLOG [HOST]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Creates and returns a TCP listener object that listens for connections on <tt>TCPPORT</tt>, which should be an exact integer. <tt>BACKLOG</tt> specifies the number of maximally pending connections (and defaults to 100). If the optional argument <tt>HOST</tt> 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"><tt>(tcp-listener? X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>X</tt> 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"><tt>(tcp-close LISTENER)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Reclaims any resources associated with <tt>LISTENER</tt>.</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"><tt>(tcp-accept LISTENER)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Waits until a connection is established on the port on which <tt>LISTENER</tt> 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"><tt>(tcp-accept-ready? LISTENER)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if there are any connections pending on <tt>LISTENER</tt>, 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"><tt>(tcp-listener-port LISTENER)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the port number assigned to <tt>LISTENER</tt> (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"><tt>(tcp-listener-fileno LISTENER)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the file-descriptor associated with <tt>LISTENER</tt>.</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"><tt>(tcp-connect HOSTNAME [TCPPORT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Establishes a client-side TCP connection to the machine with the name <tt>HOSTNAME</tt> (a string) at <tt>TCPPORT</tt> (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 <tt>TCPPORT</tt> is omitted, the port is parsed from the <tt>HOSTNAME</tt> 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"><tt>(tcp-addresses PORT)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns two values for the input- or output-port <tt>PORT</tt> (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 <tt>PORT</tt>. 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"><tt>(tcp-port-numbers PORT)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns two values for the input- or output-port <tt>PORT</tt> (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 <tt>PORT</tt>.</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"><tt>(tcp-abandon-port PORT)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Marks the socket port <tt>PORT</tt> 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"><tt>tcp-buffer-size</tt></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"><tt>tcp-read-timeout</tt></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"><tt>tcp-write-timeout</tt></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"><tt>tcp-connect-timeout</tt></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"><tt>tcp-accept-timeout</tt></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="Unit%20utils.html">Unit utils</a></p><p>Next: <a href="Unit%20lolevel.html">Unit lolevel</a></p></div></div></body>����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Unit files.html����������������������������������������������������������0000644�0001750�0001750�00000031477�13052306547�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; Unit files</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:Unit_files">Unit files</a> <ul> <li><a href="#sec:Pathname_operations">Pathname operations</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></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:Deleting_a_file_without_signalling_an_error">Deleting a file without signalling an error</a> <ul> <li><a href="#sec:delete-file.2a">delete-file*</a></li></ul></li> <li><a href="#sec:File_move.2fcopy">File move/copy</a> <ul> <li><a href="#sec:file-copy">file-copy</a></li> <li><a href="#sec:file-move">file-move</a></li></ul></li></ul></li></ul></div><h2 id="sec:Unit_files"><a href="#sec:Unit_files">Unit files</a></h2><p>This unit contains file- and pathname-oriented procedures. It uses the <tt>regex</tt> unit.</p><h3 id="sec:Pathname_operations"><a href="#sec:Pathname_operations">Pathname operations</a></h3><h4 id="sec:absolute-pathname.3f"><a href="#sec:absolute-pathname.3f">absolute-pathname?</a></h4><dl class="defsig"><dt class="defsig" id="def:absolute-pathname.3f"><span class="sig"><tt>(absolute-pathname? PATHNAME)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if the string <tt>PATHNAME</tt> names an absolute pathname, and returns <tt>#f</tt> otherwise.</p></dd> </dl> <h4 id="sec:decompose-pathname"><a href="#sec:decompose-pathname">decompose-pathname</a></h4><dl class="defsig"><dt class="defsig" id="def:decompose-pathname"><span class="sig"><tt>(decompose-pathname PATHNAME)</tt></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 <tt>PATHNAME</tt>. For any component that is not contained in <tt>PATHNAME</tt>, <tt>#f</tt> is returned.</p></dd> </dl> <h4 id="sec:make-pathname"><a href="#sec:make-pathname">make-pathname</a></h4><h4 id="sec:make-absolute-pathname"><a href="#sec:make-absolute-pathname">make-absolute-pathname</a></h4><dl class="defsig"><dt class="defsig" id="def:make-pathname"><span class="sig"><tt>(make-pathname DIRECTORY FILENAME [EXTENSION])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:make-absolute-pathname"><span class="sig"><tt>(make-absolute-pathname DIRECTORY FILENAME [EXTENSION])</tt></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) <tt>EXTENSION</tt> 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). <tt>DIRECTORY</tt> can be <tt>#f</tt> (meaning no directory component), a string or a list of strings. <tt>FILENAME</tt> and <tt>EXTENSION</tt> should be strings or <tt>#f</tt>. <tt>make-absolute-pathname</tt> returns always an absolute pathname.</p></dd> </dl> <h4 id="sec:pathname-directory"><a href="#sec:pathname-directory">pathname-directory</a></h4><h4 id="sec:pathname-file"><a href="#sec:pathname-file">pathname-file</a></h4><h4 id="sec:pathname-extension"><a href="#sec:pathname-extension">pathname-extension</a></h4><dl class="defsig"><dt class="defsig" id="def:pathname-directory"><span class="sig"><tt>(pathname-directory PATHNAME)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:pathname-file"><span class="sig"><tt>(pathname-file PATHNAME)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:pathname-extension"><span class="sig"><tt>(pathname-extension PATHNAME)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Accessors for the components of <tt>PATHNAME</tt>. If the pathname does not contain the accessed component, then <tt>#f</tt> is returned.</p></dd> </dl> <h4 id="sec:pathname-replace-directory"><a href="#sec:pathname-replace-directory">pathname-replace-directory</a></h4><h4 id="sec:pathname-replace-file"><a href="#sec:pathname-replace-file">pathname-replace-file</a></h4><h4 id="sec:pathname-replace-extension"><a href="#sec:pathname-replace-extension">pathname-replace-extension</a></h4><dl class="defsig"><dt class="defsig" id="def:pathname-replace-directory"><span class="sig"><tt>(pathname-replace-directory PATHNAME DIRECTORY)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:pathname-replace-file"><span class="sig"><tt>(pathname-replace-file PATHNAME FILENAME)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:pathname-replace-extension"><span class="sig"><tt>(pathname-replace-extension PATHNAME EXTENSION)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Return a new pathname with the specified component of <tt>PATHNAME</tt> replaced by a new value.</p></dd> </dl> <h4 id="sec:pathname-strip-directory"><a href="#sec:pathname-strip-directory">pathname-strip-directory</a></h4><h4 id="sec:pathname-strip-extension"><a href="#sec:pathname-strip-extension">pathname-strip-extension</a></h4><dl class="defsig"><dt class="defsig" id="def:pathname-strip-directory"><span class="sig"><tt>(pathname-strip-directory PATHNAME)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:pathname-strip-extension"><span class="sig"><tt>(pathname-strip-extension PATHNAME)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Return a new pathname with the specified component of <tt>PATHNAME</tt> stripped.</p></dd> </dl> <h4 id="sec:normalize-pathname"><a href="#sec:normalize-pathname">normalize-pathname</a></h4><dl class="defsig"><dt class="defsig" id="def:normalize-pathname"><span class="sig"><tt>(normalize-pathname PATHNAME [PLATFORM])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Performs a simple &quot;normalization&quot; on the <tt>PATHNAME</tt>, suitably for <tt>PLATFORM</tt>, 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> <h4 id="sec:directory-null.3f"><a href="#sec:directory-null.3f">directory-null?</a></h4><dl class="defsig"><dt class="defsig" id="def:directory-null.3f"><span class="sig"><tt>(directory-null? DIRECTORY)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Does the <tt>DIRECTORY</tt> consist only of path separators and the period?</p><p><tt>DIRECTORY</tt> may be a string or a list of strings.</p></dd> </dl> <h4 id="sec:decompose-directory"><a href="#sec:decompose-directory">decompose-directory</a></h4><dl class="defsig"><dt class="defsig" id="def:decompose-directory"><span class="sig"><tt>(decompose-directory DIRECTORY)</tt></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 <tt>DIRECTORY</tt>.</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 <tt>DIRECTORY</tt> 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><tt>DIRECTORY</tt> 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: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"><tt>(create-temporary-file [EXTENSION])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Creates an empty temporary file and returns its pathname. If <tt>EXTENSION</tt> 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"><tt>(create-temporary-directory)</tt></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:Deleting_a_file_without_signalling_an_error"><a href="#sec:Deleting_a_file_without_signalling_an_error">Deleting a file without signalling an error</a></h3><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"><tt>(delete-file* FILENAME)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>If the file <tt>FILENAME</tt> 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> <h3 id="sec:File_move.2fcopy"><a href="#sec:File_move.2fcopy">File move/copy</a></h3><h4 id="sec:file-copy"><a href="#sec:file-copy">file-copy</a></h4><dl class="defsig"><dt class="defsig" id="def:file-copy"><span class="sig"><tt>(file-copy ORIGFILE NEWFILE #!optional CLOBBER BLOCKSIZE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Copies <tt>ORIGFILE</tt> (a string denoting some filename) to <tt>NEWFILE</tt>, <tt>BLOCKSIZE</tt> bytes at a time. <tt>BLOCKSIZE</tt> defaults to 1024, and must be a positive integer. Returns the number of bytes copied on success, or errors on failure. <tt>CLOBBER</tt> determines the behaviour of <tt>file-copy</tt> when <tt>NEWFILE</tt> is already extant. When set to <tt>#f</tt> (default), an error is signalled. When set to any other value, <tt>NEWFILE</tt> is overwritten. <tt>file-copy</tt> will work across filesystems and devices and is not platform-dependent.</p></dd> </dl> <h4 id="sec:file-move"><a href="#sec:file-move">file-move</a></h4><dl class="defsig"><dt class="defsig" id="def:file-move"><span class="sig"><tt>(file-move ORIGFILE NEWFILE #!optional CLOBBER BLOCKSIZE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Moves <tt>ORIGFILE</tt> (a string denoting some filename) to <tt>NEWFILE</tt>, with the same semantics as <tt>file-copy</tt>, above. <tt>file-move</tt> is safe across filesystems and devices (unlike <tt>rename-file</tt>). It is possible for an error to be signalled despite partial success if <tt>NEWFILE</tt> could be created and fully written but removing <tt>ORIGFILE</tt> fails.</p></dd> </dl> <hr /><p>Previous: <a href="Unit%20ports.html">Unit ports</a></p><p>Next: <a href="Unit%20extras.html">Unit extras</a></p></div></div></body>�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Unit eval.html�����������������������������������������������������������0000644�0001750�0001750�00000027363�13052306551�017757� 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; Unit 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:Unit_eval">Unit eval</a> <ul> <li><a href="#sec:Loading_code">Loading code</a> <ul> <li><a href="#sec:load">load</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:set-dynamic-load-mode.21">set-dynamic-load-mode!</a></li></ul></li> <li><a href="#sec:Read-eval-print_loop">Read-eval-print loop</a> <ul> <li><a href="#sec:repl">repl</a></li></ul></li> <li><a href="#sec:Loading_extension_libraries">Loading extension libraries</a> <ul> <li><a href="#sec:repository-path">repository-path</a></li> <li><a href="#sec:extension-information">extension-information</a></li> <li><a href="#sec:provide">provide</a></li> <li><a href="#sec:provided.3f">provided?</a></li> <li><a href="#sec:require">require</a></li></ul></li> <li><a href="#sec:System_information">System information</a> <ul> <li><a href="#sec:chicken-home">chicken-home</a></li></ul></li> <li><a href="#sec:Eval">Eval</a> <ul> <li><a href="#sec:eval">eval</a></li></ul></li></ul></li></ul></div><h2 id="sec:Unit_eval"><a href="#sec:Unit_eval">Unit eval</a></h2><p>This unit has support for evaluation and macro-handling. This unit is used by default, unless the program is compiled with the <tt>-explicit-use</tt> option.</p><h3 id="sec:Loading_code"><a href="#sec:Loading_code">Loading code</a></h3><h4 id="sec:load"><a href="#sec:load">load</a></h4><dl class="defsig"><dt class="defsig" id="def:load"><span class="sig"><tt>(load FILE [EVALPROC])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Loads and evaluates expressions from the given source file, which may be either a string or an input port. Each expression read is passed to <tt>EVALPROC</tt> (which defaults to <tt>eval</tt>). On platforms that support it (currently BSD, Haiku, MacOS X, Linux, Solaris, and Windows), <tt>load</tt> can be used to load 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>The second argument to <tt>load</tt> is ignored when loading compiled code. If source code is loaded from a port, then that port is closed after all expressions have been read.</p><p>A compiled file can only be loaded once. Subsequent attempts to load the same file have no effect.</p></dd> </dl> <h4 id="sec:load-relative"><a href="#sec:load-relative">load-relative</a></h4><dl class="defsig"><dt class="defsig" id="def:load-relative"><span class="sig"><tt>(load-relative FILE [EVALPROC])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Similar to <tt>load</tt>, but loads <tt>FILE</tt> relative to the path of the currently loaded file.</p></dd> </dl> <h4 id="sec:load-noisily"><a href="#sec:load-noisily">load-noisily</a></h4><dl class="defsig"><dt class="defsig" id="def:load-noisily"><span class="sig"><tt>(load-noisily FILE #!key EVALUATOR TIME PRINTER)</tt></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 <tt>EVALUATOR</tt> is given and not <tt>#f</tt>, then each expression is evaluated by calling this argument with the read expression as argument. If <tt>TIME</tt> is given and not false, then the execution time of each expression is shown (as with the <tt>time</tt> macro). If <tt>PRINTER</tt> 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="Parameters.html#sec:load-verbose">load-verbose</a> parameter.</p></dd> </dl> <h4 id="sec:load-library"><a href="#sec:load-library">load-library</a></h4><dl class="defsig"><dt class="defsig" id="def:load-library"><span class="sig"><tt>(load-library UNIT [LIBRARYFILE])</tt></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 <tt>UNIT</tt> (which should be a symbol). If the string <tt>LIBRARYFILE</tt> is given, then the given shared library will be loaded and the toplevel code of the contained unit will be executed. If no <tt>LIBRARYFILE</tt> argument is given, then the following libraries are checked for the required unit:</p><ul><li>a file named <i><tt>&lt;UNIT&gt;.so</tt></i></li> <li>the files given in the parameter <tt>dynamic-load-libraries</tt></li> </ul> <p>If the unit is not found, an error is signaled. When the library unit can be successfully loaded, a feature-identifier named <tt>UNIT</tt> is registered. If the feature is already registered before loading, the <tt>load-library</tt> does nothing.</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"><tt>(set-dynamic-load-mode! MODELIST)</tt></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> <h3 id="sec:Read-eval-print_loop"><a href="#sec:Read-eval-print_loop">Read-eval-print loop</a></h3><h4 id="sec:repl"><a href="#sec:repl">repl</a></h4><dl class="defsig"><dt class="defsig" id="def:repl"><span class="sig"><tt>(repl [EVALUATOR])</tt></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 <tt>EVALUATOR</tt> 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:Loading_extension_libraries"><a href="#sec:Loading_extension_libraries">Loading extension libraries</a></h3><p>This functionality is only available on platforms that support dynamic loading of compiled code. Currently Linux, BSD, Solaris, Windows (with Cygwin) and HP/UX are supported.</p><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"><tt>repository-path</tt></span> <span class="type">parameter</span></dt> <dd class="defsig"><p>Contains a string naming the path to the extension repository, which defaults to either the value of the environment variable <tt>CHICKEN_REPOSITORY</tt> or the default library path (usually <tt>/usr/local/lib/chicken</tt> on UNIX systems).</p></dd> </dl> <h4 id="sec:extension-information"><a href="#sec:extension-information">extension-information</a></h4><dl class="defsig"><dt class="defsig" id="def:extension-information"><span class="sig"><tt>(extension-information ID)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>If an extension with the name <tt>ID</tt> is installed and if it has a setup-information list registered in the extension repository, then the info-list is returned. Otherwise <tt>extension-information</tt> returns <tt>#f</tt>.</p></dd> </dl> <h4 id="sec:provide"><a href="#sec:provide">provide</a></h4><dl class="defsig"><dt class="defsig" id="def:provide"><span class="sig"><tt>(provide ID ...)</tt></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 extension identifiers.</p></dd> </dl> <h4 id="sec:provided.3f"><a href="#sec:provided.3f">provided?</a></h4><dl class="defsig"><dt class="defsig" id="def:provided.3f"><span class="sig"><tt>(provided? ID ...)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if the extension with the IDs <tt>ID ...</tt> are currently loaded, or <tt>#f</tt> otherwise.</p></dd> </dl> <h4 id="sec:require"><a href="#sec:require">require</a></h4><dl class="defsig"><dt class="defsig" id="def:require"><span class="sig"><tt>(require ID ...)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>If the extension library <tt>ID</tt> is not already loaded into the system, then <tt>require</tt> will lookup the location of the shared extension library and load it. If <tt>ID</tt> 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 include path, which defaults to the pathnames given in <tt>CHICKEN_INCLUDE_PATH</tt>.</li> <li>the current directory</li> </ul> <p><tt>ID</tt> should be a string or a symbol.</p></dd> </dl> <h3 id="sec:System_information"><a href="#sec:System_information">System information</a></h3><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"><tt>(chicken-home)</tt></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). As a last option, if the environment variable <tt>CHICKEN_PREFIX</tt> is set, then <tt>chicken-home</tt> will return <tt>$CHICKEN_PREFIX/share/chicken</tt>.</p></dd> </dl> <h3 id="sec:Eval"><a href="#sec:Eval">Eval</a></h3><h4 id="sec:eval"><a href="#sec:eval">eval</a></h4><dl class="defsig"><dt class="defsig" id="def:eval"><span class="sig"><tt>(eval EXP [ENVIRONMENT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Evaluates <tt>EXP</tt> and returns the result of the evaluation. The second argument is optional and defaults to the value of <tt>(interaction-environment)</tt>.</p><p><b>Note</b>: if you want to eval an expression containing chicken special forms you must</p><pre> (use chicken-syntax)</pre><p>before calling <tt>eval</tt>.</p></dd> </dl> <hr /><p>Previous: <a href="Unit%20library.html">Unit library</a></p><p>Next: <a href="Unit%20expand.html">Unit expand</a></p></div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Acknowledgements.html����������������������������������������������������0000644�0001750�0001750�00000013134�13052306550�021410� 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, William P. Heinemann, Bill Hoffman, Bruce Hoult, Hans Hübner, Markus Hülsmann, Götz Isenmann, Paulo Jabardo, Wietse Jacobs, David Janssens, Christian Jäger, Matt Jones, Dale Jordan, Valentin Kamyshenko, Daishi Kato, Peter Keller, Christian Kellermann, Brad Kind, Ron Kneusel, 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, John Lenz, Kirill Lisovsky, Jürgen Lorenz, Kon Lovett, Lam Luu, 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, 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, Reed Sheridan, Vasilij Schneidermann, 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, Sunnan, 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 <a href="http://www.bevuta.com">bevuta IT GmbH</a> for providing serverspace and contributing patches and 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 awesome 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><tt>syntax-rules</tt> expander</dd><dt>Mikael Djurfeldt</dt> <dd>topological sort used by compiler.</dd><dt>Aubrey Jaffer</dt> <dd>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> and reference implementations of SRFI-1, SRFI-13 and SRFI-14.</dd><dt>Andrew Wilcox</dt> <dd>queues.</dd></dl> <p>The documentation and examples for explicit renaming macros was taken from the following paper:</p><p>William D. Clinger. <a href="ftp://ftp.cs.indiana.edu/pub/scheme-repository/doc/prop/exrename.ps.gz"><i>Hygienic macros through explicit renaming</i></a>. Lisp Pointers. IV(4). December 1991.</p><hr /><p>Previous: <a href="faq.html">FAQ</a></p><p>Next: <a href="Bibliography.html">Bibliography</a></p></div></div></body>������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Unit srfi-1.html���������������������������������������������������������0000644�0001750�0001750�00000214751�13052306547�020135� 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; Unit srfi-1</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"><h2 id="sec:Unit_srfi-1"><a href="#sec:Unit_srfi-1">Unit srfi-1</a></h2><p>SRFI 1 (list library) procedures. A few procedures that can be found in R5RS, such as <tt>car</tt> and <tt>append</tt>, are omitted below. For more information, see the <a href="http://srfi.schemers.org/srfi-1/srfi-1.html">original SRFI 1 document</a>.</p> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Unit_srfi-1">Unit srfi-1</a></li> <li><a href="#sec:The_procedures">The procedures</a> <ul> <li><a href="#sec:Constructors">Constructors</a></li> <li><a href="#sec:Predicates">Predicates</a></li> <li><a href="#sec:Selectors">Selectors</a></li> <li><a href="#sec:Miscellaneous">Miscellaneous</a></li> <li><a href="#sec:Fold.2c_unfold_.26_map">Fold, unfold &amp; map</a></li> <li><a href="#sec:Filtering_.26_partitioning">Filtering &amp; partitioning</a></li> <li><a href="#sec:Searching">Searching</a></li> <li><a href="#sec:Deletion">Deletion</a></li> <li><a href="#sec:Association_lists">Association lists</a></li> <li><a href="#sec:Set_operations_on_lists">Set operations on lists</a></li></ul></li></ul></div><h2 id="sec:The_procedures"><a href="#sec:The_procedures">The procedures</a></h2><p>The templates given below obey the following conventions for procedure formals:</p><table> <tr><th>LIST</th><td>A proper (finite, nil-terminated) list</td></tr> <tr><th>CLIST</th><td>A proper or circular list</td></tr> <tr><th>FLIST</th><td>A finite (proper or dotted) list</td></tr> <tr><th>PAIR</th><td>A pair</td></tr> <tr><th>X, Y, D, A</th><td>Any value</td></tr> <tr><th>OBJECT, VALUE</th><td>Any value</td></tr> <tr><th>N, I</th><td>A natural number (an integer &gt;= 0)</td></tr> <tr><th>PROC</th><td>A procedure</td></tr> <tr><th>PRED</th><td>A procedure whose return value is treated as a boolean</td></tr> <tr><th>=</th><td>A boolean procedure taking two arguments</td></tr> </table> <p>It is an error to pass a circular or dotted list to a procedure not defined to accept such an argument.</p><h3 id="sec:Constructors"><a href="#sec:Constructors">Constructors</a></h3><dl class="defsig"><dt class="defsig" id="def:xcons"><span class="sig"><tt>(xcons d a) -&gt; pair</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><pre>(lambda (d a) (cons a d))</pre><p>Of utility only as a value to be conveniently passed to higher-order procedures.</p><pre>(xcons '(b c) 'a) =&gt; (a b c)</pre><p>The name stands for &quot;eXchanged CONS.&quot;</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:cons.2a"><span class="sig"><tt>(cons* elt_1 elt_2 ...) -&gt; object</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Like <tt>list</tt>, but the last argument provides the tail of the constructed list, returning</p><p><tt> (cons ELT_1 (cons ELT_2 (cons ... ELT_N))) </tt></p><p>This function is called <tt>list*</tt> in Common Lisp and about half of the Schemes that provide it, and <tt>cons*</tt> in the other half.</p><pre>(cons* 1 2 3 4) =&gt; (1 2 3 . 4) (cons* 1) =&gt; 1</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:make-list"><span class="sig"><tt>(make-list n [fill]) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns an N-element list, whose elements are all the value FILL. If the FILL argument is not given, the elements of the list may be arbitrary values.</p><pre>(make-list 4 'c) =&gt; (c c c c)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:list-tabulate"><span class="sig"><tt>(list-tabulate n init-proc) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns an N-element list. Element I of the list, where 0 &lt;= I &lt; N, is produced by <tt>(INIT-PROC I)</tt>. No guarantee is made about the dynamic order in which INIT-PROC is applied to these indices.</p><pre>(list-tabulate 4 values) =&gt; (0 1 2 3)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:list-copy"><span class="sig"><tt>(list-copy flist) -&gt; flist</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Copies the spine of the argument.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:circular-list"><span class="sig"><tt>(circular-list elt_1 elt_2 ...) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Constructs a circular list of the elements.</p><pre>(circular-list 'z 'q) =&gt; (z q z q z q ...)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:iota"><span class="sig"><tt>(iota count [start step]) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a list containing the elements</p><pre>(START START+STEP ... START+(COUNT-1)*STEP)</pre><p>The START and STEP parameters default to 0 and 1, respectively. This procedure takes its name from the APL primitive.</p><pre>(iota 5) =&gt; (0 1 2 3 4) (iota 5 0 -0.1) =&gt; (0 -0.1 -0.2 -0.3 -0.4)</pre></dd> </dl> <h3 id="sec:Predicates"><a href="#sec:Predicates">Predicates</a></h3><p>Note: the predicates <tt>proper-list?</tt>, <tt>circular-list?</tt>, and <tt>dotted-list?</tt> partition the entire universe of Scheme values.</p><dl class="defsig"><dt class="defsig" id="def:proper-list.3f"><span class="sig"><tt>(proper-list? x) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns true iff X is a proper list -- a finite, nil-terminated list.</p><p>More carefully: The empty list is a proper list. A pair whose cdr is a proper list is also a proper list:</p><pre>&lt;proper-list&gt; ::= () (Empty proper list) | (cons &lt;x&gt; &lt;proper-list&gt;) (Proper-list pair)</pre><p>Note that this definition rules out circular lists. This function is required to detect this case and return false.</p><p>Nil-terminated lists are called &quot;proper&quot; lists by R5RS and Common Lisp. The opposite of proper is improper.</p><p>R5RS binds this function to the variable <tt>list?</tt>.</p><pre>(not (proper-list? X)) = (or (dotted-list? X) (circular-list? X))</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:circular-list.3f"><span class="sig"><tt>(circular-list? x) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>True if X is a circular list. A circular list is a value such that for every N &gt;= 0, cdr^N(X) is a pair.</p><p>Terminology: The opposite of circular is finite.</p><pre>(not (circular-list? X)) = (or (proper-list? X) (dotted-list? X))</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:dotted-list.3f"><span class="sig"><tt>(dotted-list? x) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>True if X is a finite, non-nil-terminated list. That is, there exists an N &gt;= 0 such that cdr^N(X) is neither a pair nor (). This includes non-pair, non-() values (<i>e.g.</i> symbols, numbers), which are considered to be dotted lists of length 0.</p><pre>(not (dotted-list? X)) = (or (proper-list? X) (circular-list? X))</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:null-list.3f"><span class="sig"><tt>(null-list? list) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>LIST is a proper or circular list. This procedure returns true if the argument is the empty list (), and false otherwise. It is an error to pass this procedure a value which is not a proper or circular list. This procedure is recommended as the termination condition for list-processing procedures that are not defined on dotted lists.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:not-pair.3f"><span class="sig"><tt>(not-pair? x) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><pre>(lambda (x) (not (pair? x)))</pre><p>Provided as a procedure as it can be useful as the termination condition for list-processing procedures that wish to handle all finite lists, both proper and dotted.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:list.3d"><span class="sig"><tt>(list= elt= list_1 ...) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Determines list equality, given an element-equality procedure. Proper list A equals proper list B if they are of the same length, and their corresponding elements are equal, as determined by ELT=. If the element-comparison procedure's first argument is from LIST_I, then its second argument is from LIST_I+1, <i>i.e.</i> it is always called as <tt>(ELT= A B)</tt> for A an element of list A, and B an element of list B.</p><p>In the N-ary case, every LIST_I is compared to LIST_I+1 (as opposed, for example, to comparing LIST_1 to every LIST_I, for I&gt;1). If there are no list arguments at all, <tt>list=</tt> simply returns true.</p><p>It is an error to apply <tt>list=</tt> to anything except proper lists. While implementations may choose to extend it to circular lists, note that it cannot reasonably be extended to dotted lists, as it provides no way to specify an equality procedure for comparing the list terminators.</p><p>Note that the dynamic order in which the ELT= procedure is applied to pairs of elements is not specified. For example, if <tt>list=</tt> is applied to three lists, A, B, and C, it may first completely compare A to B, then compare B to C, or it may compare the first elements of A and B, then the first elements of B and C, then the second elements of A and B, and so forth.</p><p>The equality procedure must be consistent with <tt>eq?</tt>. That is, it must be the case that</p><p><tt>(eq? X Y)</tt> =&gt; <tt>(ELT= X Y)</tt>.</p><p>Note that this implies that two lists which are <tt>eq?</tt> are always LIST=, as well; implementations may exploit this fact to &quot;short-cut&quot; the element-by-element comparisons.</p><pre>(list= eq?) =&gt; #t ; Trivial cases (list= eq? '(a)) =&gt; #t</pre></dd> </dl> <h3 id="sec:Selectors"><a href="#sec:Selectors">Selectors</a></h3><dl class="defsig"><dt class="defsig" id="def:first"><span class="sig"><tt>(first pair) -&gt; object</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:second"><span class="sig"><tt>(second pair) -&gt; object</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:third"><span class="sig"><tt>(third pair) -&gt; object</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fourth"><span class="sig"><tt>(fourth pair) -&gt; object</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fifth"><span class="sig"><tt>(fifth pair) -&gt; object</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:sixth"><span class="sig"><tt>(sixth pair) -&gt; object</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:seventh"><span class="sig"><tt>(seventh pair) -&gt; object</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:eighth"><span class="sig"><tt>(eighth pair) -&gt; object</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:ninth"><span class="sig"><tt>(ninth pair) -&gt; object</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:tenth"><span class="sig"><tt>(tenth pair) -&gt; object</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Synonyms for <tt>car</tt>, <tt>cadr</tt>, <tt>caddr</tt>, ...</p><pre>(third '(a b c d e)) =&gt; c</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:car.2bcdr"><span class="sig"><tt>(car+cdr pair) -&gt; [x y]</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>The fundamental pair deconstructor:</p><pre>(lambda (p) (values (car p) (cdr p)))</pre><p>This can, of course, be implemented more efficiently by a compiler.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:take"><span class="sig"><tt>(take x i) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:drop"><span class="sig"><tt>(drop x i) -&gt; object</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>take</tt> returns the first I elements of list X. <tt>drop</tt> returns all but the first I elements of list X.</p><pre>(take '(a b c d e) 2) =&gt; (a b) (drop '(a b c d e) 2) =&gt; (c d e)</pre><p>X may be any value -- a proper, circular, or dotted list:</p><pre>(take '(1 2 3 . d) 2) =&gt; (1 2) (drop '(1 2 3 . d) 2) =&gt; (3 . d) (take '(1 2 3 . d) 3) =&gt; (1 2 3) (drop '(1 2 3 . d) 3) =&gt; d</pre><p>For a legal I, <tt>take</tt> and <tt>drop</tt> partition the list in a manner which can be inverted with <tt>append</tt>:</p><pre>(append (take X I) (drop X I)) = X</pre><p><tt>drop</tt> is exactly equivalent to performing I cdr operations on X; the returned value shares a common tail with X. If the argument is a list of non-zero length, <tt>take</tt> is guaranteed to return a freshly-allocated list, even in the case where the entire list is taken, <i>e.g.</i> <tt>(take lis (length lis))</tt>.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:take-right"><span class="sig"><tt>(take-right flist i) -&gt; object</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:drop-right"><span class="sig"><tt>(drop-right flist i) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>take-right</tt> returns the last I elements of FLIST. <tt>drop-right</tt> returns all but the last I elements of FLIST.</p><pre>(take-right '(a b c d e) 2) =&gt; (d e) (drop-right '(a b c d e) 2) =&gt; (a b c)</pre><p>The returned list may share a common tail with the argument list.</p><p>FLIST may be any finite list, either proper or dotted:</p><pre>(take-right '(1 2 3 . d) 2) =&gt; (2 3 . d) (drop-right '(1 2 3 . d) 2) =&gt; (1) (take-right '(1 2 3 . d) 0) =&gt; d (drop-right '(1 2 3 . d) 0) =&gt; (1 2 3)</pre><p>For a legal I, <tt>take-right</tt> and <tt>drop-right</tt> partition the list in a manner which can be inverted with <tt>append</tt>:</p><pre>(append (take FLIST I) (drop FLIST I)) = FLIST</pre><p><tt>take-right</tt>'s return value is guaranteed to share a common tail with FLIST. If the argument is a list of non-zero length, <tt>drop-right</tt> is guaranteed to return a freshly-allocated list, even in the case where nothing is dropped, <i>e.g.</i> <tt>(drop-right lis 0)</tt>.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:take.21"><span class="sig"><tt>(take! x i) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:drop-right.21"><span class="sig"><tt>(drop-right! flist i) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>take!</tt> and <tt>drop-right!</tt> are &quot;linear-update&quot; variants of <tt>take</tt> and <tt>drop-right</tt>: the procedure is allowed, but not required, to alter the argument list to produce the result.</p><p>If X is circular, <tt>take!</tt> may return a shorter-than-expected list:</p><pre>(take! (circular-list 1 3 5) 8) =&gt; (1 3) (take! (circular-list 1 3 5) 8) =&gt; (1 3 5 1 3 5 1 3)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:split-at"><span class="sig"><tt>(split-at x i) -&gt; [list object]</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:split-at.21"><span class="sig"><tt>(split-at! x i) -&gt; [list object]</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>split-at</tt> splits the list X at index I, returning a list of the first I elements, and the remaining tail. It is equivalent to</p><pre>(values (take x i) (drop x i))</pre><p><tt>split-at!</tt> is the linear-update variant. It is allowed, but not required, to alter the argument list to produce the result.</p><pre>(split-at '(a b c d e f g h) 3) =&gt; (a b c) (d e f g h)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:last"><span class="sig"><tt>(last pair) -&gt; object</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:last-pair"><span class="sig"><tt>(last-pair pair) -&gt; pair</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>last</tt> returns the last element of the non-empty, finite list PAIR. <tt>last-pair</tt> returns the last pair in the non-empty, finite list PAIR.</p><pre>(last '(a b c)) =&gt; c (last-pair '(a b c)) =&gt; (c)</pre></dd> </dl> <h3 id="sec:Miscellaneous"><a href="#sec:Miscellaneous">Miscellaneous</a></h3><dl class="defsig"><dt class="defsig" id="def:length.2b"><span class="sig"><tt>(length+ clist) -&gt; integer or #f</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Both <tt>length</tt> and <tt>length+</tt> return the length of the argument. It is an error to pass a value to <tt>length</tt> which is not a proper list (finite and nil-terminated). In particular, this means an implementation may diverge or signal an error when <tt>length</tt> is applied to a circular list.</p><p><tt>length+</tt>, on the other hand, returns <tt>#F</tt> when applied to a circular list.</p><p>The length of a proper list is a non-negative integer N such that <tt>cdr</tt> applied N times to the list produces the empty list.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:append.21"><span class="sig"><tt>(append! list_1 ...) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>append!</tt> is the &quot;linear-update&quot; variant of <tt>append</tt> -- it is allowed, but not required, to alter cons cells in the argument lists to construct the result list. The last argument is never altered; the result list shares structure with this parameter.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:concatenate"><span class="sig"><tt>(concatenate list-of-lists) -&gt; value</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:concatenate.21"><span class="sig"><tt>(concatenate! list-of-lists) -&gt; value</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>These functions append the elements of their argument together. That is, <tt>concatenate</tt> returns</p><pre>(apply append list-of-lists)</pre><p>or, equivalently,</p><pre>(reduce-right append '() list-of-lists)</pre><p><tt>concatenate!</tt> is the linear-update variant, defined in terms of <tt>append!</tt> instead of <tt>append</tt>.</p><p>Note that some Scheme implementations do not support passing more than a certain number (<i>e.g.</i>, 64) of arguments to an n-ary procedure. In these implementations, the <tt>(apply append ...)</tt> idiom would fail when applied to long lists, but <tt>concatenate</tt> would continue to function properly.</p><p>As with <tt>append</tt> and <tt>append!</tt>, the last element of the input list may be any value at all.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:reverse.21"><span class="sig"><tt>(reverse! list) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>reverse!</tt> is the linear-update variant of <tt>reverse</tt>. It is permitted, but not required, to alter the argument's cons cells to produce the reversed list.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:append-reverse"><span class="sig"><tt>(append-reverse rev-head tail) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:append-reverse.21"><span class="sig"><tt>(append-reverse! rev-head tail) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>append-reverse</tt> returns <tt>(append (reverse REV-HEAD) TAIL)</tt>. It is provided because it is a common operation -- a common list-processing style calls for this exact operation to transfer values accumulated in reverse order onto the front of another list, and because the implementation is significantly more efficient than the simple composition it replaces. (But note that this pattern of iterative computation followed by a reverse can frequently be rewritten as a recursion, dispensing with the <tt>reverse</tt> and <tt>append-reverse</tt> steps, and shifting temporary, intermediate storage from the heap to the stack, which is typically a win for reasons of cache locality and eager storage reclamation.)</p><p><tt>append-reverse!</tt> is just the linear-update variant -- it is allowed, but not required, to alter REV-HEAD's cons cells to construct the result.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:zip"><span class="sig"><tt>(zip clist_1 clist_2 ...) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><pre>(lambda lists (apply map list lists))</pre><p>If <tt>zip</tt> is passed N lists, it returns a list as long as the shortest of these lists, each element of which is an N-element list comprised of the corresponding elements from the parameter lists.</p><pre>(zip '(one two three) '(1 2 3) '(odd even odd even odd even odd even)) =&gt; ((one 1 odd) (two 2 even) (three 3 odd)) (zip '(1 2 3)) =&gt; ((1) (2) (3))</pre><p>At least one of the argument lists must be finite:</p><pre>(zip '(3 1 4 1) (circular-list #f #t)) =&gt; ((3 #f) (1 #t) (4 #f) (1 #t))</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:unzip1"><span class="sig"><tt>(unzip1 list) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:unzip2"><span class="sig"><tt>(unzip2 list) -&gt; [list list]</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:unzip3"><span class="sig"><tt>(unzip3 list) -&gt; [list list list]</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:unzip4"><span class="sig"><tt>(unzip4 list) -&gt; [list list list list]</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:unzip5"><span class="sig"><tt>(unzip5 list) -&gt; [list list list list list]</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>unzip1</tt> takes a list of lists, where every list must contain at least one element, and returns a list containing the initial element of each such list. That is, it returns <tt>(map car lists)</tt>. <tt>unzip2</tt> takes a list of lists, where every list must contain at least two elements, and returns two values: a list of the first elements, and a list of the second elements. <tt>unzip3</tt> does the same for the first three elements of the lists, and so forth.</p><pre>(unzip2 '((1 one) (2 two) (3 three))) =&gt; (1 2 3) (one two three)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:count"><span class="sig"><tt>(count pred clist_1 clist_2) -&gt; integer</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>PRED is a procedure taking as many arguments as there are lists and returning a single value. It is applied element-wise to the elements of the LISTs, and a count is tallied of the number of elements that produce a true value. This count is returned. <tt>count</tt> is &quot;iterative&quot; in that it is guaranteed to apply PRED to the LIST elements in a left-to-right order. The counting stops when the shortest list expires.</p><pre>(count even? '(3 1 4 1 5 9 2 5 6)) =&gt; 3 (count &lt; '(1 2 4 8) '(2 4 6 8 10 12 14 16)) =&gt; 3</pre><p>At least one of the argument lists must be finite:</p><pre>(count &lt; '(3 1 4 1) (circular-list 1 10)) =&gt; 2</pre></dd> </dl> <h3 id="sec:Fold.2c_unfold_.26_map"><a href="#sec:Fold.2c_unfold_.26_map">Fold, unfold &amp; map</a></h3><dl class="defsig"><dt class="defsig" id="def:fold"><span class="sig"><tt>(fold kons knil clist_1 clist_2 ...) -&gt; value</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>The fundamental list iterator.</p><p>First, consider the single list-parameter case. If CLIST_1 = (E_1 E_2 ... E_N), then this procedure returns</p><p><tt>(KONS E_N ... (KONS E_2 (KONS E_1 KNIL)) ... )</tt></p><p>That is, it obeys the (tail) recursion</p><pre>(fold KONS KNIL LIS) = (fold KONS (KONS (car LIS) KNIL) (cdr LIS)) (fold KONS KNIL '()) = KNIL</pre><p>Examples:</p><pre>(fold + 0 lis) ; Add up the elements of LIS. (fold cons '() lis) ; Reverse LIS. (fold cons tail rev-head) ; See APPEND-REVERSE. ;; How many symbols in LIS? (fold (lambda (x count) (if (symbol? x) (+ count 1) count)) 0 lis) ;; Length of the longest string in LIS: (fold (lambda (s max-len) (max max-len (string-length s))) 0 lis)</pre><p>If N list arguments are provided, then the KONS function must take N+1 parameters: one element from each list, and the &quot;seed&quot; or fold state, which is initially KNIL. The fold operation terminates when the shortest list runs out of values:</p><pre>(fold cons* '() '(a b c) '(1 2 3 4 5)) =&gt; (c 3 b 2 a 1)</pre><p>At least one of the list arguments must be finite.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:fold-right"><span class="sig"><tt>(fold-right kons knil clist_1 clist_2 ...) -&gt; value</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>The fundamental list recursion operator.</p><p>First, consider the single list-parameter case. If CLIST_1 = <tt>(E_1 E_2 ... E_N)</tt>, then this procedure returns</p><p><tt> (KONS E_1 (KONS E_2 ... (KONS E_N KNIL))) </tt></p><p>That is, it obeys the recursion</p><pre>(fold-right KONS KNIL LIS) = (KONS (car LIS) (fold-right KONS KNIL (cdr LIS))) (fold-right KONS KNIL '()) = KNIL</pre><p>Examples:</p><pre>(fold-right cons '() lis) ; Copy LIS. ;; Filter the even numbers out of LIS. (fold-right (lambda (x l) (if (even? x) (cons x l) l)) '() lis))</pre><p>If N list arguments are provided, then the KONS function must take N+1 parameters: one element from each list, and the &quot;seed&quot; or fold state, which is initially KNIL. The fold operation terminates when the shortest list runs out of values:</p><pre>(fold-right cons* '() '(a b c) '(1 2 3 4 5)) =&gt; (a 1 b 2 c 3)</pre><p>At least one of the list arguments must be finite.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:pair-fold"><span class="sig"><tt>(pair-fold kons knil clist_1 clist_2 ...) -&gt; value</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Analogous to <tt>fold</tt>, but KONS is applied to successive sublists of the lists, rather than successive elements -- that is, KONS is applied to the pairs making up the lists, giving this (tail) recursion:</p><pre>(pair-fold KONS KNIL LIS) = (let ((tail (cdr LIS))) (pair-fold KONS (KONS LIS KNIL) tail)) (pair-fold KONS KNIL {{'()}}) = KNIL</pre><p>For finite lists, the KONS function may reliably apply <tt>set-cdr!</tt> to the pairs it is given without altering the sequence of execution.</p><p>Example:</p><pre>;;; Destructively reverse a list. (pair-fold (lambda (pair tail) (set-cdr! pair tail) pair) '() lis))</pre><p>At least one of the list arguments must be finite.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:pair-fold-right"><span class="sig"><tt>(pair-fold-right kons knil clist_1 clist_2 ...) -&gt; value</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Holds the same relationship with <tt>fold-right</tt> that <tt>pair-fold</tt> holds with <tt>fold</tt>. Obeys the recursion</p><pre>(pair-fold-right KONS KNIL LIS) = (KONS LIS (pair-fold-right KONS KNIL (cdr LIS))) (pair-fold-right KONS KNIL {{'()}}) = KNIL</pre><p>Example:</p><pre>(pair-fold-right cons '() '(a b c)) =&gt; ((a b c) (b c) (c))</pre><p>At least one of the list arguments must be finite.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:reduce"><span class="sig"><tt>(reduce f ridentity list) -&gt; value</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>reduce</tt> is a variant of <tt>fold</tt>.</p><p>RIDENTITY should be a &quot;right identity&quot; of the procedure F -- that is, for any value X acceptable to F,</p><pre>(F X RIDENTITY) = X</pre><p><tt>reduce</tt> has the following definition:</p><p>If LIST = (), return RIDENTITY; Otherwise, return <tt>(fold F (car LIST) (cdr LIST))</tt>.</p><p>...in other words, we compute <tt>(fold F RIDENTITY LIST)</tt>.</p><p>Note that RIDENTITY is used <i>only</i> in the empty-list case. You typically use <tt>reduce</tt> when applying F is expensive and you'd like to avoid the extra application incurred when <tt>fold</tt> applies F to the head of LIST and the identity value, redundantly producing the same value passed in to F. For example, if F involves searching a file directory or performing a database query, this can be significant. In general, however, <tt>fold</tt> is useful in many contexts where <tt>reduce</tt> is not (consider the examples given in the <tt>fold</tt> definition -- only one of the five folds uses a function with a right identity. The other four may not be performed with <tt>reduce</tt>).</p><p>Note: MIT Scheme and Haskell flip F's arg order for their <tt>reduce</tt> and <tt>fold</tt> functions.</p><pre>;; Take the max of a list of non-negative integers. (reduce max 0 nums) ; i.e., (apply max 0 nums)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:reduce-right"><span class="sig"><tt>(reduce-right f ridentity list) -&gt; value</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>reduce-right</tt> is the fold-right variant of <tt>reduce</tt>. It obeys the following definition:</p><pre>(reduce-right F RIDENTITY '()) = RIDENTITY (reduce-right F RIDENTITY '(E_1)) = (F E_1 RIDENTITY) = E_1 (reduce-right F RIDENTITY '(E_1 E_2 ...)) = (F E_1 (reduce F RIDENTITY (E_2 ...)))</pre><p>...in other words, we compute <tt>(fold-right F RIDENTITY LIST)</tt>.</p><pre>;; Append a bunch of lists together. ;; I.e., (apply append list-of-lists) (reduce-right append '() list-of-lists)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:unfold"><span class="sig"><tt>(unfold p f g seed [tail-gen]) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>unfold</tt> is best described by its basic recursion:</p><pre>(unfold P F G SEED) = (if (P SEED) (TAIL-GEN SEED) (cons (F SEED) (unfold P F G (G SEED))))</pre><dl><dt>P</dt> <dd>Determines when to stop unfolding.</dd><dt>F</dt> <dd>Maps each seed value to the corresponding list element.</dd><dt>G</dt> <dd>Maps each seed value to next seed value.</dd><dt>SEED</dt> <dd>The &quot;state&quot; value for the unfold.</dd><dt>TAIL-GEN</dt> <dd>Creates the tail of the list; defaults to <tt>(lambda (x) '())</tt></dd></dl> <p>In other words, we use G to generate a sequence of seed values</p><p>SEED, G(SEED), G^2(SEED), G^3(SEED), ...</p><p>These seed values are mapped to list elements by F, producing the elements of the result list in a left-to-right order. P says when to stop.</p><p><tt>unfold</tt> is the fundamental recursive list constructor, just as <tt>fold-right</tt> is the fundamental recursive list consumer. While <tt>unfold</tt> may seem a bit abstract to novice functional programmers, it can be used in a number of ways:</p><pre>;; List of squares: 1^2 ... 10^2 (unfold (lambda (x) (&gt; x 10)) (lambda (x) (* x x)) (lambda (x) (+ x 1)) 1) (unfold null-list? car cdr lis) ; Copy a proper list. ;; Read current input port into a list of values. (unfold eof-object? values (lambda (x) (read)) (read)) ;; Copy a possibly non-proper list: (unfold not-pair? car cdr lis values) ;; Append HEAD onto TAIL: (unfold null-list? car cdr head (lambda (x) tail))</pre><p>Interested functional programmers may enjoy noting that <tt>fold-right</tt> and <tt>unfold</tt> are in some sense inverses. That is, given operations KNULL?, KAR, KDR, KONS, and KNIL satisfying</p><p><tt>(KONS (KAR X) (KDR X))</tt> = <tt>x</tt> and <tt>(KNULL? KNIL)</tt> = <tt>#t</tt></p><p>then</p><p><tt>(fold-right KONS KNIL (unfold KNULL? KAR KDR X))</tt> = X</p><p>and</p><p><tt>(unfold KNULL? KAR KDR (fold-right KONS KNIL X))</tt> = X.</p><p>This combinator sometimes is called an &quot;anamorphism;&quot; when an explicit TAIL-GEN procedure is supplied, it is called an &quot;apomorphism.&quot;</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:unfold-right"><span class="sig"><tt>(unfold-right p f g seed [tail]) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>unfold-right</tt> constructs a list with the following loop:</p><pre>(let lp ((seed seed) (lis tail)) (if (p seed) lis (lp (g seed) (cons (f seed) lis))))</pre><dl><dt>P</dt> <dd>Determines when to stop unfolding.</dd><dt>F</dt> <dd>Maps each seed value to the corresponding list element.</dd><dt>G</dt> <dd>Maps each seed value to next seed value.</dd><dt>SEED</dt> <dd>The &quot;state&quot; value for the unfold.</dd><dt>TAIL</dt> <dd>list terminator; defaults to <tt>'()</tt>.</dd></dl> <p>In other words, we use G to generate a sequence of seed values</p><p>SEED, G(SEED), G^2(SEED), G^3(SEED), ...</p><p>These seed values are mapped to list elements by F, producing the elements of the result list in a right-to-left order. P says when to stop.</p><p><tt>unfold-right</tt> is the fundamental iterative list constructor, just as <tt>fold</tt> is the fundamental iterative list consumer. While <tt>unfold-right</tt> may seem a bit abstract to novice functional programmers, it can be used in a number of ways:</p><pre>;; List of squares: 1^2 ... 10^2 (unfold-right zero? (lambda (x) (* x x)) (lambda (x) (- x 1)) 10) ;; Reverse a proper list. (unfold-right null-list? car cdr lis) ;; Read current input port into a list of values. (unfold-right eof-object? values (lambda (x) (read)) (read)) ;; (append-reverse rev-head tail) (unfold-right null-list? car cdr rev-head tail)</pre><p>Interested functional programmers may enjoy noting that <tt>fold</tt> and <tt>unfold-right</tt> are in some sense inverses. That is, given operations KNULL?, KAR, KDR, KONS, and KNIL satisfying</p><p><tt>(KONS (KAR X) (KDR X))</tt> = <tt>x</tt> and <tt>(KNULL? KNIL)</tt> = <tt>#t</tt></p><p>then</p><p><tt>(fold KONS KNIL (unfold-right KNULL? KAR KDR X))</tt> = X</p><p>and</p><p><tt>(unfold-right KNULL? KAR KDR (fold KONS KNIL X))</tt> = X.</p><p>This combinator presumably has some pretentious mathematical name; interested readers are invited to communicate it to the author.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:map"><span class="sig"><tt>(map proc clist_1 clist_2 ...) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>This procedure is extended from its R5RS specification to allow the arguments to be of unequal length; it terminates when the shortest list runs out.</p><p>At least one of the argument lists must be finite:</p><pre>(map + '(3 1 4 1) (circular-list 1 0)) =&gt; (4 1 5 1)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:for-each"><span class="sig"><tt>(for-each proc clist_1 clist_2 ...) -&gt; unspecified</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>This procedure is extended from its R5RS specification to allow the arguments to be of unequal length; it terminates when the shortest list runs out.</p><p>At least one of the argument lists must be finite.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:append-map"><span class="sig"><tt>(append-map f clist_1 clist_2 ...) -&gt; value</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:append-map.21"><span class="sig"><tt>(append-map! f clist_1 clist_2 ...) -&gt; value</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Equivalent to</p><p><tt> (apply append (map F CLIST_1 CLIST_2 ...)) </tt></p><p>and</p><p><tt> (apply append! (map F CLIST_1 CLIST_2 ...)) </tt></p><p>Map F over the elements of the lists, just as in the <tt>map</tt> function. However, the results of the applications are appended together to make the final result. <tt>append-map</tt> uses <tt>append</tt> to append the results together; <tt>append-map!</tt> uses <tt>append!</tt>.</p><p>The dynamic order in which the various applications of F are made is not specified.</p><p>Example:</p><pre>(append-map! (lambda (x) (list x (- x))) '(1 3 8)) =&gt; (1 -1 3 -3 8 -8)</pre><p>At least one of the list arguments must be finite.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:map.21"><span class="sig"><tt>(map! f list_1 clist_2 ...) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Linear-update variant of <tt>map</tt> -- <tt>map!</tt> is allowed, but not required, to alter the cons cells of LIST_1 to construct the result list.</p><p>The dynamic order in which the various applications of F are made is not specified. In the n-ary case, CLIST_2, CLIST_3, ... must have at least as many elements as LIST_1.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:map-in-order"><span class="sig"><tt>(map-in-order f clist_1 clist_2 ...) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>A variant of the <tt>map</tt> procedure that guarantees to apply F across the elements of the LIST_I arguments in a left-to-right order. This is useful for mapping procedures that both have side effects and return useful values.</p><p>At least one of the list arguments must be finite.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:pair-for-each"><span class="sig"><tt>(pair-for-each f clist_1 clist_2 ...) -&gt; unspecific</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Like <tt>for-each</tt>, but F is applied to successive sublists of the argument lists. That is, F is applied to the cons cells of the lists, rather than the lists' elements. These applications occur in left-to-right order.</p><p>The F procedure may reliably apply <tt>set-cdr!</tt> to the pairs it is given without altering the sequence of execution.</p><pre>(pair-for-each (lambda (pair) (display pair) (newline)) '(a b c)) ==&gt; (a b c) (b c) (c)</pre><p>At least one of the list arguments must be finite.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:filter-map"><span class="sig"><tt>(filter-map f clist_1 clist_2 ...) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Like <tt>map</tt>, but only true values are saved.</p><pre>(filter-map (lambda (x) (and (number? x) (* x x))) '(a 1 b 3 c 7)) =&gt; (1 9 49)</pre><p>The dynamic order in which the various applications of F are made is not specified.</p><p>At least one of the list arguments must be finite.</p></dd> </dl> <h3 id="sec:Filtering_.26_partitioning"><a href="#sec:Filtering_.26_partitioning">Filtering &amp; partitioning</a></h3><dl class="defsig"><dt class="defsig" id="def:filter"><span class="sig"><tt>(filter pred list) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Return all the elements of LIST that satisfy predicate PRED. The list is not disordered -- elements that appear in the result list occur in the same order as they occur in the argument list. The returned list may share a common tail with the argument list. The dynamic order in which the various applications of PRED are made is not specified.</p><pre>(filter even? '(0 7 8 8 43 -4)) =&gt; (0 8 8 -4)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:partition"><span class="sig"><tt>(partition pred list) -&gt; [list list]</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Partitions the elements of LIST with predicate PRED, and returns two values: the list of in-elements and the list of out-elements. The list is not disordered -- elements occur in the result lists in the same order as they occur in the argument list. The dynamic order in which the various applications of PRED are made is not specified. One of the returned lists may share a common tail with the argument list.</p><pre>(partition symbol? '(one 2 3 four five 6)) =&gt; (one four five) (2 3 6)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:remove"><span class="sig"><tt>(remove pred list) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns LIST without the elements that satisfy predicate PRED:</p><pre>(lambda (pred list) (filter (lambda (x) (not (pred x))) list))</pre><p>The list is not disordered -- elements that appear in the result list occur in the same order as they occur in the argument list. The returned list may share a common tail with the argument list. The dynamic order in which the various applications of PRED are made is not specified.</p><pre>(remove even? '(0 7 8 8 43 -4)) =&gt; (7 43)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:filter.21"><span class="sig"><tt>(filter! pred list) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:partition.21"><span class="sig"><tt>(partition! pred list) -&gt; [list list]</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:remove.21"><span class="sig"><tt>(remove! pred list) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Linear-update variants of <tt>filter</tt>, <tt>partition</tt> and <tt>remove</tt>. These procedures are allowed, but not required, to alter the cons cells in the argument list to construct the result lists.</p></dd> </dl> <h3 id="sec:Searching"><a href="#sec:Searching">Searching</a></h3><p>The following procedures all search lists for a leftmost element satisfying some criteria. This means they do not always examine the entire list; thus, there is no efficient way for them to reliably detect and signal an error when passed a dotted or circular list. Here are the general rules describing how these procedures work when applied to different kinds of lists:</p><dl><dt>Proper lists</dt> <dd>The standard, canonical behavior happens in this case.</dd><dt>Dotted lists</dt> <dd>It is an error to pass these procedures a dotted list that does not contain an element satisfying the search criteria. That is, it is an error if the procedure has to search all the way to the end of the dotted list. However, this SRFI does <i>not</i> specify anything at all about the behavior of these procedures when passed a dotted list containing an element satisfying the search criteria. It may finish successfully, signal an error, or perform some third action. Different implementations may provide different functionality in this case; code which is compliant with this SRFI may not rely on any particular behavior. Future SRFI's may refine SRFI-1 to define specific behavior in this case. In brief, SRFI-1 compliant code may not pass a dotted list argument to these procedures.</dd><dt>Circular lists</dt> <dd>It is an error to pass these procedures a circular list that does not contain an element satisfying the search criteria. Note that the procedure is not required to detect this case; it may simply diverge. It is, however, acceptable to search a circular list <i>if the search is successful</i> -- that is, if the list contains an element satisfying the search criteria.</dd></dl> <p>Here are some examples, using the <tt>find</tt> and <tt>any</tt> procedures as canonical representatives:</p><pre>;; Proper list -- success (find even? '(1 2 3)) =&gt; 2 (any even? '(1 2 3)) =&gt; #t ;; proper list -- failure (find even? '(1 7 3)) =&gt; #f (any even? '(1 7 3)) =&gt; #f ;; Failure is error on a dotted list. (find even? '(1 3 . x)) =&gt; error (any even? '(1 3 . x)) =&gt; error ;; The dotted list contains an element satisfying the search. ;; This case is not specified -- it could be success, an error, ;; or some third possibility. (find even? '(1 2 . x)) =&gt; error/undefined (any even? '(1 2 . x)) =&gt; error/undefined ; success, error or other. ;; circular list -- success (find even? (circular-list 1 6 3)) =&gt; 6 (any even? (circular-list 1 6 3)) =&gt; #t ;; circular list -- failure is error. Procedure may diverge. (find even? (circular-list 1 3)) =&gt; error (any even? (circular-list 1 3)) =&gt; error</pre><dl class="defsig"><dt class="defsig" id="def:find"><span class="sig"><tt>(find pred clist) -&gt; value</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Return the first element of CLIST that satisfies predicate PRED; false if no element does.</p><pre>(find even? '(3 1 4 1 5 9)) =&gt; 4</pre><p>Note that <tt>find</tt> has an ambiguity in its lookup semantics -- if <tt>find</tt> returns <tt>#f</tt>, you cannot tell (in general) if it found a <tt>#f</tt> element that satisfied PRED, or if it did not find any element at all. In many situations, this ambiguity cannot arise -- either the list being searched is known not to contain any <tt>#f</tt> elements, or the list is guaranteed to have an element satisfying PRED. However, in cases where this ambiguity can arise, you should use <tt>find-tail</tt> instead of <tt>find</tt> -- <tt>find-tail</tt> has no such ambiguity:</p><pre>(cond ((find-tail pred lis) =&gt; (lambda (pair) ...)) ; Handle (CAR PAIR) (else ...)) ; Search failed.</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:find-tail"><span class="sig"><tt>(find-tail pred clist) -&gt; pair or false</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Return the first pair of CLIST whose car satisfies PRED. If no pair does, return false.</p><p><tt>find-tail</tt> can be viewed as a general-predicate variant of the <tt>member</tt> function.</p><p>Examples:</p><pre>(find-tail even? '(3 1 37 -8 -5 0 0)) =&gt; (-8 -5 0 0) (find-tail even? '(3 1 37 -5)) =&gt; #f ;; MEMBER X LIS: (find-tail (lambda (elt) (equal? x elt)) lis)</pre><p>In the circular-list case, this procedure &quot;rotates&quot; the list.</p><p><tt>Find-tail</tt> is essentially <tt>drop-while</tt>, where the sense of the predicate is inverted: <tt>Find-tail</tt> searches until it finds an element satisfying the predicate; <tt>drop-while</tt> searches until it finds an element that <i>doesn't</i> satisfy the predicate.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:take-while"><span class="sig"><tt>(take-while pred clist) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:take-while.21"><span class="sig"><tt>(take-while! pred clist) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the longest initial prefix of CLIST whose elements all satisfy the predicate PRED.</p><p><tt>Take-while!</tt> is the linear-update variant. It is allowed, but not required, to alter the argument list to produce the result.</p><pre>(take-while even? '(2 18 3 10 22 9)) =&gt; (2 18)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:drop-while"><span class="sig"><tt>(drop-while pred clist) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Drops the longest initial prefix of CLIST whose elements all satisfy the predicate PRED, and returns the rest of the list.</p><pre>(drop-while even? '(2 18 3 10 22 9)) =&gt; (3 10 22 9)</pre><p>The circular-list case may be viewed as &quot;rotating&quot; the list.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:span"><span class="sig"><tt>(span pred clist) -&gt; [list clist]</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:span.21"><span class="sig"><tt>(span! pred list) -&gt; [list list]</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:break"><span class="sig"><tt>(break pred clist) -&gt; [list clist]</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:break.21"><span class="sig"><tt>(break! pred list) -&gt; [list list]</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>Span</tt> splits the list into the longest initial prefix whose elements all satisfy PRED, and the remaining tail. <tt>Break</tt> inverts the sense of the predicate: the tail commences with the first element of the input list that satisfies the predicate.</p><p>In other words: <tt>span</tt> finds the intial span of elements satisfying PRED, and <tt>break</tt> breaks the list at the first element satisfying PRED.</p><p><tt>Span</tt> is equivalent to</p><pre>(values (take-while PRED CLIST) (drop-while PRED CLIST))</pre><p><tt>Span!</tt> and <tt>break!</tt> are the linear-update variants. They are allowed, but not required, to alter the argument list to produce the result.</p><pre>(span even? '(2 18 3 10 22 9)) =&gt; (2 18) (3 10 22 9) (break even? '(3 1 4 1 5 9)) =&gt; (3 1) (4 1 5 9)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:any"><span class="sig"><tt>(any pred clist_1 clist_2 ...) -&gt; value</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Applies the predicate across the lists, returning true if the predicate returns true on any application.</p><p>If there are N list arguments CLIST_1 ... CLIST_N, then PRED must be a procedure taking N arguments and returning a boolean result.</p><p><tt>any</tt> applies PRED to the first elements of the CLIST_I parameters. If this application returns a true value, <tt>any</tt> immediately returns that value. Otherwise, it iterates, applying PRED to the second elements of the CLIST_I parameters, then the third, and so forth. The iteration stops when a true value is produced or one of the lists runs out of values; in the latter case, <tt>any</tt> returns <tt>#f</tt>. The application of PRED to the last element of the lists is a tail call.</p><p>Note the difference between <tt>find</tt> and <tt>any</tt> -- <tt>find</tt> returns the element that satisfied the predicate; <tt>any</tt> returns the true value that the predicate produced.</p><p>Like <tt>every</tt>, <tt>any</tt>'s name does not end with a question mark -- this is to indicate that it does not return a simple boolean (<tt>#t</tt> or <tt>#f</tt>), but a general value.</p><pre>(any integer? '(a 3 b 2.7)) =&gt; #t (any integer? '(a 3.1 b 2.7)) =&gt; #f (any &lt; '(3 1 4 1 5) '(2 7 1 8 2)) =&gt; #t</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:every"><span class="sig"><tt>(every pred clist_1 clist_2 ...) -&gt; value</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Applies the predicate across the lists, returning true if the predicate returns true on every application.</p><p>If there are N list arguments CLIST_1 ... CLIST_N, then PRED must be a procedure taking N arguments and returning a boolean result.</p><p><tt>every</tt> applies PRED to the first elements of the CLIST_I parameters. If this application returns false, <tt>every</tt> immediately returns false. Otherwise, it iterates, applying PRED to the second elements of the CLIST_I parameters, then the third, and so forth. The iteration stops when a false value is produced or one of the lists runs out of values. In the latter case, <tt>every</tt> returns the true value produced by its final application of PRED. The application of PRED to the last element of the lists is a tail call.</p><p>If one of the CLIST_I has no elements, <tt>every</tt> simply returns <tt>#t</tt>.</p><p>Like <tt>any</tt>, <tt>every</tt>'s name does not end with a question mark -- this is to indicate that it does not return a simple boolean (<tt>#t</tt> or <tt>#f</tt>), but a general value.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:list-index"><span class="sig"><tt>(list-index pred clist_1 clist_2 ...) -&gt; integer or false</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Return the index of the leftmost element that satisfies PRED.</p><p>If there are N list arguments CLIST_1 ... CLIST_N, then PRED must be a function taking N arguments and returning a boolean result.</p><p><tt>list-index</tt> applies PRED to the first elements of the CLIST_I parameters. If this application returns true, <tt>list-index</tt> immediately returns zero. Otherwise, it iterates, applying PRED to the second elements of the CLIST_I parameters, then the third, and so forth. When it finds a tuple of list elements that cause PRED to return true, it stops and returns the zero-based index of that position in the lists.</p><p>The iteration stops when one of the lists runs out of values; in this case, <tt>list-index</tt> returns <tt>#f</tt>.</p><pre>(list-index even? '(3 1 4 1 5 9)) =&gt; 2 (list-index &lt; '(3 1 4 1 5 9 2 5 6) '(2 7 1 8 2)) =&gt; 1 (list-index = '(3 1 4 1 5 9 2 5 6) '(2 7 1 8 2)) =&gt; #f</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:member"><span class="sig"><tt>(member x list [=]) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>member</tt> is extended from its R5RS definition to allow the client to pass in an optional equality procedure = used to compare keys.</p><p>The comparison procedure is used to compare the elements E_I of LIST to the key X in this way:</p><p><tt> (= X E_I) ; list is (E1 ... En) </tt></p><p>That is, the first argument is always X, and the second argument is one of the list elements. Thus one can reliably find the first element of LIST that is greater than five with <tt>(member 5 LIST &lt;)</tt></p><p>Note that fully general list searching may be performed with the <tt>find-tail</tt> and <tt>find</tt> procedures, <i>e.g.</i></p><pre>(find-tail even? list) ; Find the first elt with an even key.</pre></dd> </dl> <h3 id="sec:Deletion"><a href="#sec:Deletion">Deletion</a></h3><dl class="defsig"><dt class="defsig" id="def:delete"><span class="sig"><tt>(delete x list [=]) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:delete.21"><span class="sig"><tt>(delete! x list [=]) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>delete</tt> uses the comparison procedure =, which defaults to <tt>equal?</tt>, to find all elements of LIST that are equal to X, and deletes them from LIST. The dynamic order in which the various applications of = are made is not specified.</p><p>The list is not disordered -- elements that appear in the result list occur in the same order as they occur in the argument list. The result may share a common tail with the argument list.</p><p>Note that fully general element deletion can be performed with the <tt>remove</tt> and <tt>remove!</tt> procedures, <i>e.g.</i>:</p><pre>;; Delete all the even elements from LIS: (remove even? lis)</pre><p>The comparison procedure is used in this way: <tt>(= X E_I)</tt>. That is, X is always the first argument, and a list element is always the second argument. The comparison procedure will be used to compare each element of LIST exactly once; the order in which it is applied to the various E_I is not specified. Thus, one can reliably remove all the numbers greater than five from a list with <tt>(delete 5 list &lt;)</tt></p><p><tt>delete!</tt> is the linear-update variant of <tt>delete</tt>. It is allowed, but not required, to alter the cons cells in its argument list to construct the result.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:delete-duplicates"><span class="sig"><tt>(delete-duplicates list [=]) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:delete-duplicates.21"><span class="sig"><tt>(delete-duplicates! list [=]) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>delete-duplicates</tt> removes duplicate elements from the list argument. If there are multiple equal elements in the argument list, the result list only contains the first or leftmost of these elements in the result. The order of these surviving elements is the same as in the original list -- <tt>delete-duplicates</tt> does not disorder the list (hence it is useful for &quot;cleaning up&quot; association lists).</p><p>The = parameter is used to compare the elements of the list; it defaults to <tt>equal?</tt>. If X comes before Y in LIST, then the comparison is performed <tt>(= X Y)</tt>. The comparison procedure will be used to compare each pair of elements in LIST no more than once; the order in which it is applied to the various pairs is not specified.</p><p>Implementations of <tt>delete-duplicates</tt> are allowed to share common tails between argument and result lists -- for example, if the list argument contains only unique elements, it may simply return exactly this list.</p><p>Be aware that, in general, <tt>delete-duplicates</tt> runs in time O(n^2) for N-element lists. Uniquifying long lists can be accomplished in O(n lg n) time by sorting the list to bring equal elements together, then using a linear-time algorithm to remove equal elements. Alternatively, one can use algorithms based on element-marking, with linear-time results.</p><p><tt>delete-duplicates!</tt> is the linear-update variant of <tt>delete-duplicates</tt>; it is allowed, but not required, to alter the cons cells in its argument list to construct the result.</p><pre>(delete-duplicates '(a b a c a b c z)) =&gt; (a b c z) ;; Clean up an alist: (delete-duplicates '((a . 3) (b . 7) (a . 9) (c . 1)) (lambda (x y) (eq? (car x) (car y)))) =&gt; ((a . 3) (b . 7) (c . 1))</pre></dd> </dl> <h3 id="sec:Association_lists"><a href="#sec:Association_lists">Association lists</a></h3><p>An &quot;association list&quot; (or &quot;alist&quot;) is a list of pairs. The car of each pair contains a key value, and the cdr contains the associated data value. They can be used to construct simple look-up tables in Scheme. Note that association lists are probably inappropriate for performance-critical use on large data; in these cases, hash tables or some other alternative should be employed.</p><dl class="defsig"><dt class="defsig" id="def:assoc"><span class="sig"><tt>(assoc key alist [=]) -&gt; pair or #f</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>assoc</tt> is extended from its R5RS definition to allow the client to pass in an optional equality procedure = used to compare keys.</p><p>The comparison procedure is used to compare the elements E_I of LIST to the KEY parameter in this way:</p><p><tt> (= KEY (car E_I)) ; list is (E1 ... En) </tt></p><p>That is, the first argument is always KEY, and the second argument is one of the list elements. Thus one can reliably find the first entry of ALIST whose key is greater than five with <tt>(assoc 5 ALIST &lt;)</tt></p><p>Note that fully general alist searching may be performed with the <tt>find-tail</tt> and <tt>find</tt> procedures, <i>e.g.</i></p><pre>;; Look up the first association in ALIST with an even key: (find (lambda (a) (even? (car a))) alist)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:alist-cons"><span class="sig"><tt>(alist-cons key datum alist) -&gt; alist</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><pre>(lambda (key datum alist) (cons (cons key datum) alist))</pre><p>Cons a new alist entry mapping KEY -&gt; DATUM onto ALIST.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:alist-copy"><span class="sig"><tt>(alist-copy alist) -&gt; alist</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Make a fresh copy of ALIST. This means copying each pair that forms an association as well as the spine of the list, <i>i.e.</i></p><pre>(lambda (a) (map (lambda (elt) (cons (car elt) (cdr elt))) a))</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:alist-delete"><span class="sig"><tt>(alist-delete key alist [=]) -&gt; alist</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:alist-delete.21"><span class="sig"><tt>(alist-delete! key alist [=]) -&gt; alist</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>alist-delete</tt> deletes all associations from ALIST with the given KEY, using key-comparison procedure =, which defaults to <tt>equal?</tt>. The dynamic order in which the various applications of = are made is not specified.</p><p>Return values may share common tails with the ALIST argument. The alist is not disordered -- elements that appear in the result alist occur in the same order as they occur in the argument alist.</p><p>The comparison procedure is used to compare the element keys K_I of ALIST's entries to the KEY parameter in this way: <tt>(= KEY K_I)</tt>. Thus, one can reliably remove all entries of ALIST whose key is greater than five with <tt>(alist-delete 5 ALIST &lt;)</tt></p><p><tt>alist-delete!</tt> is the linear-update variant of <tt>alist-delete</tt>. It is allowed, but not required, to alter cons cells from the ALIST parameter to construct the result.</p></dd> </dl> <h3 id="sec:Set_operations_on_lists"><a href="#sec:Set_operations_on_lists">Set operations on lists</a></h3><p>These procedures implement operations on sets represented as lists of elements. They all take an = argument used to compare elements of lists. This equality procedure is required to be consistent with <tt>eq?</tt>. That is, it must be the case that</p><p><tt>(eq? X Y)</tt> =&gt; <tt>(= X Y)</tt>.</p><p>Note that this implies, in turn, that two lists that are <tt>eq?</tt> are also set-equal by any legal comparison procedure. This allows for constant-time determination of set operations on <tt>eq?</tt> lists.</p><p>Be aware that these procedures typically run in time O(N * M) for N- and M-element list arguments. Performance-critical applications operating upon large sets will probably wish to use other data structures and algorithms.</p><dl class="defsig"><dt class="defsig" id="def:lset.3c.3d"><span class="sig"><tt>(lset&lt;= = list_1 ...) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns true iff every LIST_I is a subset of LIST_I+1, using = for the element-equality procedure. List A is a subset of list B if every element in A is equal to some element of B. When performing an element comparison, the = procedure's first argument is an element of A; its second, an element of B.</p><pre>(lset&lt;= eq? '(a) '(a b a) '(a b c c)) =&gt; #t (lset&lt;= eq?) =&gt; #t ; Trivial cases (lset&lt;= eq? '(a)) =&gt; #t</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:lset.3d"><span class="sig"><tt>(lset= = list_1 list_2 ...) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns true iff every LIST_I is set-equal to LIST_I+1, using = for the element-equality procedure. &quot;Set-equal&quot; simply means that LIST_I is a subset of LIST_I+1, and LIST_I+1 is a subset of LIST_I. The = procedure's first argument is an element of LIST_I; its second is an element of LIST_I+1.</p><pre>(lset= eq? '(b e a) '(a e b) '(e e b a)) =&gt; #t (lset= eq?) =&gt; #t ; Trivial cases (lset= eq? '(a)) =&gt; #t</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:lset-adjoin"><span class="sig"><tt>(lset-adjoin = list elt_1 ...) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Adds the ELT_I elements not already in the list parameter to the result list. The result shares a common tail with the list parameter. The new elements are added to the front of the list, but no guarantees are made about their order. The = parameter is an equality procedure used to determine if an ELT_I is already a member of LIST. Its first argument is an element of LIST; its second is one of the ELT_I.</p><p>The list parameter is always a suffix of the result -- even if the list parameter contains repeated elements, these are not reduced.</p><pre>(lset-adjoin eq? '(a b c d c e) 'a 'e 'i 'o 'u) =&gt; (u o i a b c d c e)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:lset-union"><span class="sig"><tt>(lset-union = list_1 ...) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the union of the lists, using = for the element-equality procedure.</p><p>The union of lists A and B is constructed as follows:</p><ul><li>If A is the empty list, the answer is B (or a copy of B). </li> <li>Otherwise, the result is initialised to be list A (or a copy of A). </li> <li>Proceed through the elements of list B in a left-to-right order. If B is such an element of B, compare every element R of the current result list to B: <tt>(= R B)</tt>. If all comparisons fail, B is consed onto the front of the result. </li> </ul> <p>However, there is no guarantee that = will be applied to every pair of arguments from A and B. In particular, if A is <tt>eq</tt>? to B, the operation may immediately terminate.</p><p>In the n-ary case, the two-argument list-union operation is simply folded across the argument lists.</p><pre>(lset-union eq? '(a b c d e) '(a e i o u)) =&gt; (u o i a b c d e) ;; Repeated elements in LIST1 are preserved. (lset-union eq? '(a a c) '(x a x)) =&gt; (x a a c) ;; Trivial cases (lset-union eq?) =&gt; () (lset-union eq? '(a b c)) =&gt; (a b c)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:lset-intersection"><span class="sig"><tt>(lset-intersection = list_1 list_2 ...) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the intersection of the lists, using = for the element-equality procedure.</p><p>The intersection of lists A and B is comprised of every element of A that is = to some element of B: <tt>(= A B)</tt>, for A in A, and B in B. Note this implies that an element which appears in B and multiple times in list A will also appear multiple times in the result.</p><p>The order in which elements appear in the result is the same as they appear in LIST_1 -- that is, <tt>lset-intersection</tt> essentially filters LIST_1, without disarranging element order. The result may share a common tail with LIST_1.</p><p>In the n-ary case, the two-argument list-intersection operation is simply folded across the argument lists. However, the dynamic order in which the applications of = are made is not specified. The procedure may check an element of LIST_1 for membership in every other list before proceeding to consider the next element of LIST_1, or it may completely intersect LIST_1 and LIST_2 before proceeding to LIST_3, or it may go about its work in some third order.</p><pre>(lset-intersection eq? '(a b c d e) '(a e i o u)) =&gt; (a e) ;; Repeated elements in LIST1 are preserved. (lset-intersection eq? '(a x y a) '(x a x z)) =&gt; '(a x a) (lset-intersection eq? '(a b c)) =&gt; (a b c) ; Trivial case</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:lset-difference"><span class="sig"><tt>(lset-difference = list_1 list_2 ...) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the difference of the lists, using = for the element-equality procedure -- all the elements of LIST_1 that are not = to any element from one of the other LIST_I parameters.</p><p>The = procedure's first argument is always an element of LIST_1; its second is an element of one of the other LIST_I. Elements that are repeated multiple times in the LIST_1 parameter will occur multiple times in the result. The order in which elements appear in the result is the same as they appear in LIST_1 -- that is, <tt>lset-difference</tt> essentially filters LIST_1, without disarranging element order. The result may share a common tail with LIST_1. The dynamic order in which the applications of = are made is not specified. The procedure may check an element of LIST_1 for membership in every other list before proceeding to consider the next element of LIST_1, or it may completely compute the difference of LIST_1 and LIST_2 before proceeding to LIST_3, or it may go about its work in some third order.</p><pre>(lset-difference eq? '(a b c d e) '(a e i o u)) =&gt; (b c d) (lset-difference eq? '(a b c)) =&gt; (a b c) ; Trivial case</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:lset-xor"><span class="sig"><tt>(lset-xor = list_1 ...) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the exclusive-or of the sets, using = for the element-equality procedure. If there are exactly two lists, this is all the elements that appear in exactly one of the two lists. The operation is associative, and thus extends to the n-ary case -- the elements that appear in an odd number of the lists. The result may share a common tail with any of the LIST_I parameters.</p><p>More precisely, for two lists A and B, A xor B is a list of</p><ul><li>every element A of A such that there is no element B of B such that <tt>(= A B)</tt>, and </li> <li>every element B of B such that there is no element A of A such that <tt>(= B A)</tt>. </li> </ul> <p>However, an implementation is allowed to assume that = is symmetric -- that is, that</p><p><tt>(= A B)</tt> =&gt; <tt>(= B A)</tt>.</p><p>This means, for example, that if a comparison <tt>(= A B)</tt> produces true for some A in A and B in B, both A and B may be removed from inclusion in the result.</p><p>In the n-ary case, the binary-xor operation is simply folded across the lists.</p><pre>(lset-xor eq? '(a b c d e) '(a e i o u)) =&gt; (d c b i o u) ;; Trivial cases. (lset-xor eq?) =&gt; () (lset-xor eq? '(a b c d e)) =&gt; (a b c d e)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:lset-diff.2bintersection"><span class="sig"><tt>(lset-diff+intersection = list_1 list_2 ...) -&gt; [list list]</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns two values -- the difference and the intersection of the lists. Is equivalent to</p><pre>(values (lset-difference = LIST_1 LIST_2 ...) (lset-intersection = LIST_1 (lset-union = LIST_2 ...)))</pre><p>but can be implemented more efficiently.</p><p>The = procedure's first argument is an element of LIST_1; its second is an element of one of the other LIST_I.</p><p>Either of the answer lists may share a common tail with LIST_1. This operation essentially partitions LIST_1.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:lset-union.21"><span class="sig"><tt>(lset-union! = list_1 ...) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:lset-intersection.21"><span class="sig"><tt>(lset-intersection! = list_1 list_2 ...) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:lset-difference.21"><span class="sig"><tt>(lset-difference! = list_1 list_2 ...) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:lset-xor.21"><span class="sig"><tt>(lset-xor! = list_1 ...) -&gt; list</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:lset-diff.2bintersection.21"><span class="sig"><tt>(lset-diff+intersection! = list_1 list_2 ...) -&gt; [list list]</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>These are linear-update variants. They are allowed, but not required, to use the cons cells in their first list parameter to construct their answer. <tt>lset-union!</tt> is permitted to recycle cons cells from <i>any</i> of its list arguments.</p></dd> </dl> <hr /><p>Previous: <a href="Unit%20irregex.html">Unit irregex</a></p><p>Next: <a href="Unit%20srfi-4.html">Unit srfi-4</a></p></div></div></body>�����������������������chicken-4.12.0/manual-html/The R5RS standard.html���������������������������������������������������0000644�0001750�0001750�00000522335�13052306551�021144� 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 R5RS standard</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"><h2 id="sec:The_R5RS_standard"><a href="#sec:The_R5RS_standard">The R5RS standard</a></h2><p>This document describes CHICKEN's R5RS support, with a heavy emphasis on syntax and procedures. It is based directly on the <i>Revised^5 Report on the Algorithmic Language Scheme</i>.</p> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:The_R5RS_standard">The R5RS standard</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: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></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></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></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></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></dd> </dl> <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>The <tt>delay-force</tt> macro is a CHICKEN extension to R5RS, taken from R7RS.</p><p>See the description of force (under <a href="#sec:control-features">Control features</a>, below) for a more complete description of delayed evaluation.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:make-promise"><span class="sig"><tt>(make-promise obj)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>The make-promise procedure returns a promise which, when forced, will return <tt>obj</tt> . It is similar to <tt>delay</tt>, but does not delay its argument: it is a procedure rather than syntax. If <tt>obj</tt> is already a promise, it is returned.</p><p>This procedure is a CHICKEN extension to R5RS, taken from R7RS.</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; . &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> <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.</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.</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><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><pre>(define-syntax &lt;keyword&gt; &lt;transformer spec&gt;)</pre><p>&lt;Keyword&gt; is an identifier, and the &lt;transformer spec&gt; should be an instance of syntax-rules. The top-level syntactic environment is extended by binding the &lt;keyword&gt; to the specified transformer.</p><p>There is no define-syntax analogue of internal definitions.</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><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 (currently not supported by CHICKEN core, see the &quot;<a href="http://wiki.call-cc.org/egg/numbers">numbers</a>&quot; egg)</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 (NOTE: fractional numbers are not supported by CHICKEN core, see the &quot;<a href="http://wiki.call-cc.org/egg/numbers">numbers</a>&quot; egg)</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"><tt>(number? obj)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:complex.3f"><span class="sig"><tt>(complex? obj)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:real.3f"><span class="sig"><tt>(real? obj)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:rational.3f"><span class="sig"><tt>(rational? obj)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:integer.3f"><span class="sig"><tt>(integer? obj)</tt></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"><tt>(exact? z)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:inexact.3f"><span class="sig"><tt>(inexact? z)</tt></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"><tt>(zero? z)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:positive.3f"><span class="sig"><tt>(positive? x)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:negative.3f"><span class="sig"><tt>(negative? x)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:odd.3f"><span class="sig"><tt>(odd? n)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:even.3f"><span class="sig"><tt>(even? n)</tt></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"><tt>(- z)</tt></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"><tt>(/ z)</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> <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"><tt>(abs x)</tt></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"><tt>(numerator q)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:denominator"><span class="sig"><tt>(denominator q)</tt></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"><tt>(floor x)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:ceiling"><span class="sig"><tt>(ceiling x)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:truncate"><span class="sig"><tt>(truncate x)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:round"><span class="sig"><tt>(round x)</tt></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"><tt>(rationalize x y)</tt></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"><tt>(exp z)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:log"><span class="sig"><tt>(log z)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:sin"><span class="sig"><tt>(sin z)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cos"><span class="sig"><tt>(cos z)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:tan"><span class="sig"><tt>(tan z)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:asin"><span class="sig"><tt>(asin z)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:acos"><span class="sig"><tt>(acos z)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:atan"><span class="sig"><tt>(atan z)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:atan"><span class="sig"><tt>(atan y x)</tt></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"><tt>(sqrt z)</tt></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"><tt>(real-part z)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:imag-part"><span class="sig"><tt>(imag-part z)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:magnitude"><span class="sig"><tt>(magnitude z)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:angle"><span class="sig"><tt>(angle z)</tt></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"><tt>(exact-&gt;inexact z)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:inexact-.3eexact"><span class="sig"><tt>(inexact-&gt;exact z)</tt></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"><tt>(number-&gt;string z)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:number-.3estring"><span class="sig"><tt>(number-&gt;string z radix)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Radix must be an exact integer, either 2, 8, 10, or 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></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-.3enumber"><span class="sig"><tt>(string-&gt;number string)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-.3enumber"><span class="sig"><tt>(string-&gt;number string radix)</tt></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, either 2, 8, 10, or 16. 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></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"><tt>(not obj)</tt></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"><tt>(boolean? obj)</tt></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"><tt>(pair? obj)</tt></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"><tt>(car pair)</tt></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"><tt>(cdr pair)</tt></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"><tt>(set-car! pair obj)</tt></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"><tt>(set-cdr! pair obj)</tt></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"><tt>(caar pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cadr"><span class="sig"><tt>(cadr pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cdar"><span class="sig"><tt>(cdar pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cddr"><span class="sig"><tt>(cddr pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:caaar"><span class="sig"><tt>(caaar pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:caadr"><span class="sig"><tt>(caadr pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cadar"><span class="sig"><tt>(cadar pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:caddr"><span class="sig"><tt>(caddr pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cdaar"><span class="sig"><tt>(cdaar pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cdadr"><span class="sig"><tt>(cdadr pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cddar"><span class="sig"><tt>(cddar pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cdddr"><span class="sig"><tt>(cdddr pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:caaaar"><span class="sig"><tt>(caaaar pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:caaadr"><span class="sig"><tt>(caaadr pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:caadar"><span class="sig"><tt>(caadar pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:caaddr"><span class="sig"><tt>(caaddr pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cadaar"><span class="sig"><tt>(cadaar pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cadadr"><span class="sig"><tt>(cadadr pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:caddar"><span class="sig"><tt>(caddar pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cadddr"><span class="sig"><tt>(cadddr pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cdaaar"><span class="sig"><tt>(cdaaar pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cdaadr"><span class="sig"><tt>(cdaadr pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cdadar"><span class="sig"><tt>(cdadar pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cdaddr"><span class="sig"><tt>(cdaddr pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cddaar"><span class="sig"><tt>(cddaar pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cddadr"><span class="sig"><tt>(cddadr pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cdddar"><span class="sig"><tt>(cdddar pair)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:cddddr"><span class="sig"><tt>(cddddr pair)</tt></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"><tt>(null? obj)</tt></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"><tt>(list? obj)</tt></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"><tt>(list obj ...)</tt></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"><tt>(length list)</tt></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"><tt>(append list ...)</tt></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"><tt>(reverse list)</tt></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"><tt>(list-tail list k)</tt></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"><tt>(list-ref list k)</tt></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"><tt>(memq obj list)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:memv"><span class="sig"><tt>(memv obj list)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:member"><span class="sig"><tt>(member obj list)</tt></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"><tt>(assq obj alist)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:assv"><span class="sig"><tt>(assv obj alist)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:assoc"><span class="sig"><tt>(assoc obj alist)</tt></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"><tt>(symbol? obj)</tt></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"><tt>(symbol-&gt;string symbol)</tt></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"><tt>(string-&gt;symbol string)</tt></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"><tt>(char? obj)</tt></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"><tt>(char-alphabetic? char)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-numeric.3f"><span class="sig"><tt>(char-numeric? char)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-whitespace.3f"><span class="sig"><tt>(char-whitespace? char)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-upper-case.3f"><span class="sig"><tt>(char-upper-case? letter)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-lower-case.3f"><span class="sig"><tt>(char-lower-case? letter)</tt></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"><tt>(char-&gt;integer char)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:integer-.3echar"><span class="sig"><tt>(integer-&gt;char n)</tt></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"><tt>(char-upcase char)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-downcase"><span class="sig"><tt>(char-downcase char)</tt></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"><tt>(string? obj)</tt></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"><tt>(make-string k)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:make-string"><span class="sig"><tt>(make-string k char)</tt></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"><tt>(string char ...)</tt></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"><tt>(string-length string)</tt></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"><tt>(string-ref string k)</tt></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"><tt>(string-set! string k char)</tt></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"><tt>(substring string start end)</tt></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).</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-append"><span class="sig"><tt>(string-append string ...)</tt></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"><tt>(string-&gt;list string)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3estring"><span class="sig"><tt>(list-&gt;string list)</tt></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"><tt>(string-copy string)</tt></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"><tt>(string-fill! string char)</tt></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"><tt>(vector? obj)</tt></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"><tt>(make-vector k)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:make-vector"><span class="sig"><tt>(make-vector k fill)</tt></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"><tt>(vector obj ...)</tt></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"><tt>(vector-length vector)</tt></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"><tt>(vector-ref vector k)</tt></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"><tt>(vector-set! vector k obj)</tt></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"><tt>(vector-&gt;list vector)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3evector"><span class="sig"><tt>(list-&gt;vector list)</tt></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"><tt>(vector-fill! vector fill)</tt></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"><tt>(procedure? obj)</tt></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"><tt>(force promise)</tt></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.</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><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></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:call-with-current-continuation"><span class="sig"><tt>(call-with-current-continuation proc)</tt></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"><tt>(values obj ...)</tt></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"><tt>(call-with-values producer consumer)</tt></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"><tt>(dynamic-wind before thunk after)</tt></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.</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"><tt>(eval expression environment-specifier)</tt></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></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:scheme-report-environment"><span class="sig"><tt>(scheme-report-environment version)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:null-environment"><span class="sig"><tt>(null-environment version)</tt></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.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:interaction-environment"><span class="sig"><tt>(interaction-environment)</tt></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)</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)</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></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:input-port.3f"><span class="sig"><tt>(input-port? obj)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:output-port.3f"><span class="sig"><tt>(output-port? obj)</tt></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"><tt>(current-input-port)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:current-output-port"><span class="sig"><tt>(current-output-port)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the current default input or output port.</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)</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)</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></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:open-input-file"><span class="sig"><tt>(open-input-file filename)</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></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:open-output-file"><span class="sig"><tt>(open-output-file filename)</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></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:close-input-port"><span class="sig"><tt>(close-input-port port)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:close-output-port"><span class="sig"><tt>(close-output-port port)</tt></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"><tt>(read)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:read"><span class="sig"><tt>(read port)</tt></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"><tt>(read-char)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:read-char"><span class="sig"><tt>(read-char port)</tt></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"><tt>(peek-char)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:peek-char"><span class="sig"><tt>(peek-char port)</tt></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"><tt>(eof-object? obj)</tt></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"><tt>(char-ready?)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-ready.3f"><span class="sig"><tt>(char-ready? port)</tt></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"><tt>(write obj)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:write"><span class="sig"><tt>(write obj port)</tt></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"><tt>(display obj)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:display"><span class="sig"><tt>(display obj port)</tt></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"><tt>(newline)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:newline"><span class="sig"><tt>(newline port)</tt></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"><tt>(write-char char)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:write-char"><span class="sig"><tt>(write-char char port)</tt></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"><tt>(load filename)</tt></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>Rationale: For portability, load must operate on source files. Its operation on other kinds of files necessarily varies among implementations.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:transcript-on"><span class="sig"><tt>(transcript-on filename)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:transcript-off"><span class="sig"><tt>(transcript-off)</tt></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="Supported%20language.html">Supported language</a></p><p>Next: <a href="Deviations%20from%20the%20standard.html">Deviations from the standard</a></p></div></div></body>���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Unit utils.html����������������������������������������������������������0000644�0001750�0001750�00000017675�13052306547�020202� 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; Unit utils</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:Unit_utils">Unit utils</a> <ul> <li><a href="#sec:Executing_shell_commands_with_formatstring_and_error_checking">Executing shell commands with formatstring and error checking</a> <ul> <li><a href="#sec:system.2a">system*</a></li></ul></li> <li><a href="#sec:Reading_a_file.27s_contents">Reading a file's contents</a> <ul> <li><a href="#sec:read-all">read-all</a></li></ul></li> <li><a href="#sec:Shell_argument_quoting">Shell argument quoting</a> <ul> <li><a href="#sec:qs">qs</a></li></ul></li> <li><a href="#sec:Dynamic_compilation">Dynamic compilation</a> <ul> <li><a href="#sec:compile-file">compile-file</a></li> <li><a href="#sec:compile-file-options">compile-file-options</a></li></ul></li> <li><a href="#sec:Scanning_through_an_input_port">Scanning through an input port</a> <ul> <li><a href="#sec:scan-input-lines">scan-input-lines</a></li></ul></li> <li><a href="#sec:Asking_the_user_for_confirmation">Asking the user for confirmation</a> <ul> <li><a href="#sec:yes-or-no.3f">yes-or-no?</a></li></ul></li></ul></li></ul></div><h2 id="sec:Unit_utils"><a href="#sec:Unit_utils">Unit utils</a></h2><p>This unit contains a &quot;grab bag&quot; of procedures without a good home, and which don't have to be available by default (as compared to the <a href="Unit%20extras.html">extras</a> unit).</p><p>This unit uses the <tt>extras</tt> and <tt>srfi-13</tt> units.</p><h3 id="sec:Executing_shell_commands_with_formatstring_and_error_checking"><a href="#sec:Executing_shell_commands_with_formatstring_and_error_checking">Executing shell commands with formatstring and error checking</a></h3><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"><tt>(system* FORMATSTRING ARGUMENT1 ...)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Similar to <tt>(system (sprintf FORMATSTRING ARGUMENT1 ...))</tt>, but signals an error should the invoked program return a nonzero exit status.</p></dd> </dl> <h3 id="sec:Reading_a_file.27s_contents"><a href="#sec:Reading_a_file.27s_contents">Reading a file's contents</a></h3><h4 id="sec:read-all"><a href="#sec:read-all">read-all</a></h4><dl class="defsig"><dt class="defsig" id="def:read-all"><span class="sig"><tt>(read-all [FILE-OR-PORT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>If <tt>FILE-OR-PORT</tt> is a string, then this procedure returns the contents of the file as a string. If <tt>FILE-OR-PORT</tt> is a port, all remaining input is read and returned as a string. The port is not closed. If no argument is provided, input will be read from the port that is the current value of <tt>(current-input-port)</tt>.</p></dd> </dl> <h3 id="sec:Shell_argument_quoting"><a href="#sec:Shell_argument_quoting">Shell argument quoting</a></h3><h4 id="sec:qs"><a href="#sec:qs">qs</a></h4><dl class="defsig"><dt class="defsig" id="def:qs"><span class="sig"><tt>(qs STRING [PLATFORM])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Escapes <tt>STRING</tt> suitably for passing to a shell command on <tt>PLATFORM</tt>. <tt>PLATFORM</tt> 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> <h3 id="sec:Dynamic_compilation"><a href="#sec:Dynamic_compilation">Dynamic compilation</a></h3><h4 id="sec:compile-file"><a href="#sec:compile-file">compile-file</a></h4><dl class="defsig"><dt class="defsig" id="def:compile-file"><span class="sig"><tt>(compile-file FILENAME #!key options output-file load)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Compiles the Scheme source file <tt>FILENAME</tt> into a dynamically loadable library by invoking the <tt>csc</tt> compiler driver. If the library can be successfully created and <tt>load</tt> is not given or true, the file is loaded into the current Scheme process. <tt>options</tt> may be a list of strings which are passed as additional command line options to <tt>csc</tt>. If <tt>output-file</tt> is not given, then the compiled file is stored in a temporary location and will be deleted when the process exits successfully. When compilation and loading succeeds, the name of the compiled file is returned, otherwise <tt>#f</tt> is returned.</p><p>Notes:</p><ul><li>loading the same compiled file multiple times is only supported on Linux in the moment and should be considered unreliable. For this reason, a new temporary file is created for every invocation of <tt>compile-file</tt>, unless an explicit output file name is given.</li> <li>this procedure is compatible to the <tt>scheme-compile-file</tt> command in <tt>emacs</tt>' <tt>scheme-mode</tt>.</li> </ul> </dd> </dl> <h4 id="sec:compile-file-options"><a href="#sec:compile-file-options">compile-file-options</a></h4><dl class="defsig"><dt class="defsig" id="def:compile-file-options"><span class="sig"><tt>compile-file-options</tt></span> <span class="type">parameter</span></dt> <dd class="defsig"><p>A parameter that holds a list of default options that should be given to <tt>csc</tt> after invocation of the <tt>compile-file</tt> procedure. The initial default options are <tt>-scrutinize -O2 -d2</tt>.</p></dd> </dl> <h3 id="sec:Scanning_through_an_input_port"><a href="#sec:Scanning_through_an_input_port">Scanning through an input port</a></h3><h4 id="sec:scan-input-lines"><a href="#sec:scan-input-lines">scan-input-lines</a></h4><dl class="defsig"><dt class="defsig" id="def:scan-input-lines"><span class="sig"><tt>(scan-input-lines REGEXP [PORT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Reads lines from <tt>PORT</tt> (defaults to the result of <tt>(current-input-port)</tt>) using <tt>read-line</tt> and returns the result of <tt>(irregex-search REGEXP LINE)</tt>, if the match succeeds. If no match could be found, <tt>#f</tt> is returned.</p><p><tt>REGEXP</tt> may also be a procedure of one argument which is called for each input line and should return a non-false value on success, which will then be the result of the call to <tt>scan-input-lines</tt>.</p></dd> </dl> <h3 id="sec:Asking_the_user_for_confirmation"><a href="#sec:Asking_the_user_for_confirmation">Asking the user for confirmation</a></h3><h4 id="sec:yes-or-no.3f"><a href="#sec:yes-or-no.3f">yes-or-no?</a></h4><dl class="defsig"><dt class="defsig" id="def:yes-or-no.3f"><span class="sig"><tt>(yes-or-no? MESSAGE #!key default title abort)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Prints the string <tt>MESSAGE</tt> and asks for entering &quot;yes&quot;, &quot;no&quot; or &quot;abort&quot;. If running under Windows in GUI mode, then a suitable dialog box is shown. Returns either <tt>#t</tt> or <tt>#f</tt> depending on whether <tt>yes</tt> or <tt>no</tt> was entered. The <tt>default</tt> keyword argument specifies the default answer that is effective if the user just presses ENTER (or the default button in case of a dialog box). <tt>title</tt> specifies the text shown in the caption of the dialog box and is ignored when not running in GUI mode. <tt>abort</tt> should be a zero-argument procedure that is called when the user selects &quot;abort&quot;. The default value for <tt>abort</tt> is the <tt>reset</tt> procedure. A value of <tt>#f</tt> for <tt>abort</tt> disables aborting completely.</p><p>Previous: <a href="Unit%20posix.html">Unit posix</a></p><p>Next: <a href="Unit%20tcp.html">Unit tcp</a></p></dd> </dl> </div></div></body>�������������������������������������������������������������������chicken-4.12.0/manual-html/Exceptions.html����������������������������������������������������������0000644�0001750�0001750�00000063044�13052306550�020244� 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; Exceptions</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:Exceptions">Exceptions</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></li></ul></li> <li><a href="#sec:SRFI-12_specification">SRFI-12 specification</a> <ul> <li><a href="#sec:Exception_Handlers">Exception Handlers</a></li> <li><a href="#sec:Raising_Exceptions">Raising Exceptions</a></li> <li><a href="#sec:Condition_Objects">Condition Objects</a></li> <li><a href="#sec:More_Examples">More Examples</a></li></ul></li></ul></div><h2 id="sec:Exceptions"><a href="#sec:Exceptions">Exceptions</a></h2><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><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>When the <tt>posix</tt> unit is available and used, then 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><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> <dl class="defsig"><dt class="defsig" id="def:get-condition-property"><span class="sig"><tt>(get-condition-property CONDITION KIND PROPERTY [DEFAULT])</tt></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> <dl class="defsig"><dt class="defsig" id="def:condition-.3elist"><span class="sig"><tt>(condition-&gt;list CONDITION)</tt></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><p><tt>condition-&gt;list</tt> was introduced in CHICKEN 4.7.0.</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><dl class="defsig"><dt class="defsig" id="def:current-exception-handler"><span class="sig"><tt>(current-exception-handler [PROCEDURE])</tt></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> <dl class="defsig"><dt class="defsig" id="def:with-exception-handler"><span class="sig"><tt>(with-exception-handler handler thunk)</tt></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> <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><dl class="defsig"><dt class="defsig" id="def:abort"><span class="sig"><tt>(abort obj)</tt></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> <dl class="defsig"><dt class="defsig" id="def:signal"><span class="sig"><tt>(signal obj)</tt></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><dl class="defsig"><dt class="defsig" id="def:condition.3f"><span class="sig"><tt>(condition? obj)</tt></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> <dl class="defsig"><dt class="defsig" id="def:make-property-condition"><span class="sig"><tt>(make-property-condition kind-key prop-key value ...)</tt></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> <dl class="defsig"><dt class="defsig" id="def:make-composite-condition"><span class="sig"><tt>(make-composite-condition condition ...)</tt></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> <dl class="defsig"><dt class="defsig" id="def:condition-predicate"><span class="sig"><tt>(condition-predicate kind-key)</tt></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> <dl class="defsig"><dt class="defsig" id="def:condition-property-accessor"><span class="sig"><tt>(condition-property-accessor kind-key prop-key [default])</tt></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="Parameters.html">Parameters</a> Next: <a href="Unit%20library.html">Unit library</a></p></div></div></body>��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/faq.html�����������������������������������������������������������������0000644�0001750�0001750�00000147300�13052306550�016670� 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; faq</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:FAQ">FAQ</a> <ul> <li><a href="#sec:General_">General </a> <ul> <li><a href="#sec:Why_yet_another_Scheme_implementation.3f">Why yet another Scheme implementation?</a></li> <li><a href="#sec:What_should_I_do_if_I_find_a_bug.3f">What should I do if I find a bug?</a></li></ul></li> <li><a href="#sec:Specific">Specific</a> <ul> <li><a href="#sec:Why_are_values_defined_with_define-foreign-variable_or_define-constant_or_define-inline_not_seen_outside_of_the_containing_source_file.3f">Why are values defined with <tt>define-foreign-variable</tt> or <tt>define-constant</tt> or <tt>define-inline</tt> not seen outside of the containing source file?</a></li> <li><a href="#sec:How_does_cond-expand_know_which_features_are_registered_in_used_units.3f">How does <tt>cond-expand</tt> know which features are registered in used units?</a></li> <li><a href="#sec:Why_are_constants_defined_by_define-constant_not_honoured_in_case_constructs.3f">Why are constants defined by <tt>define-constant</tt> not honoured in <tt>case</tt> constructs?</a></li> <li><a href="#sec:How_can_I_enable_case_sensitive_reading.2fwriting_in_user_code.3f">How can I enable case sensitive reading/writing in user code?</a></li> <li><a href="#sec:Why_doesn.27t_CHICKEN_support_the_full_numeric_tower_by_default.3f">Why doesn't CHICKEN support the full numeric tower by default?</a></li> <li><a href="#sec:Does_CHICKEN_support_native_threads.3f">Does CHICKEN support native threads?</a></li> <li><a href="#sec:Does_CHICKEN_support_Unicode_strings.3f">Does CHICKEN support Unicode strings?</a></li></ul></li> <li><a href="#sec:Why_are_.60dynamic-wind.27_thunks_not_executed_when_a_SRFI-18_thread_signals_an_error.3f">Why are `dynamic-wind' thunks not executed when a SRFI-18 thread signals an error?</a></li> <li><a href="#sec:Platform_specific">Platform specific</a> <ul> <li><a href="#sec:How_do_I_generate_a_DLL_under_MS_Windows_.28tm.29_.3f">How do I generate a DLL under MS Windows (tm) ?</a></li> <li><a href="#sec:How_do_I_generate_a_GUI_application_under_Windows.28tm.29.3f">How do I generate a GUI application under Windows(tm)?</a></li> <li><a href="#sec:Compiling_very_large_files_under_Windows_with_the_Microsoft_C_compiler_fails_with_a_message_indicating_insufficient_heap_space.2e">Compiling very large files under Windows with the Microsoft C compiler fails with a message indicating insufficient heap space.</a></li> <li><a href="#sec:When_I_run_csi_inside_an_emacs_buffer_under_Windows.2c_nothing_happens.2e">When I run <tt>csi</tt> inside an emacs buffer under Windows, nothing happens.</a></li> <li><a href="#sec:On_Windows.2c_csc.2eexe_seems_to_be_doing_something_wrong.2e">On Windows, <tt>csc.exe</tt> seems to be doing something wrong.</a></li> <li><a href="#sec:On_Windows_source_and.2for_output_filenames_with_embedded_whitespace_are_not_found.2e">On Windows source and/or output filenames with embedded whitespace are not found.</a></li></ul></li> <li><a href="#sec:Customization">Customization</a> <ul> <li><a href="#sec:How_do_I_run_custom_startup_code_before_the_runtime-system_is_invoked.3f">How do I run custom startup code before the runtime-system is invoked?</a></li> <li><a href="#sec:How_can_I_add_compiled_user_passes.3f">How can I add compiled user passes?</a></li></ul></li> <li><a href="#sec:Macros">Macros</a> <ul> <li><a href="#sec:Where_is_define-macro.3f">Where is <tt>define-macro</tt>?</a></li> <li><a href="#sec:Why_are_low-level_macros_defined_with_define-syntax_complaining_about_unbound_variables.3f">Why are low-level macros defined with <tt>define-syntax</tt> complaining about unbound variables?</a></li> <li><a href="#sec:Why_isn.27t_load_properly_loading_my_library_of_macros.3f">Why isn't <tt>load</tt> properly loading my library of macros?</a></li></ul></li> <li><a href="#sec:Warnings_and_errors">Warnings and errors</a> <ul> <li><a href="#sec:Why_does_my_program_crash_when_I_use_callback_functions_.28from_Scheme_to_C_and_back_to_Scheme_again.29.3f">Why does my program crash when I use callback functions (from Scheme to C and back to Scheme again)?</a></li> <li><a href="#sec:Why_does_the_linker_complain_about_a_missing_function__C_.2e.2e.2e_toplevel.3f">Why does the linker complain about a missing function <tt>_C_..._toplevel</tt>?</a></li> <li><a href="#sec:Why_does_the_linker_complain_about_a_missing_function__C_toplevel.3f">Why does the linker complain about a missing function <tt>_C_toplevel</tt>?</a></li> <li><a href="#sec:Why_does_my_program_crash_when_I_compile_a_file_with_-unsafe_or_unsafe_declarations.3f">Why does my program crash when I compile a file with <tt>-unsafe</tt> or unsafe declarations?</a></li> <li><a href="#sec:Why_don.27t_toplevel-continuations_captured_in_interpreted_code_work.3f">Why don't toplevel-continuations captured in interpreted code work?</a></li> <li><a href="#sec:Why_does_define-reader-ctor_not_work_in_my_compiled_program.3f">Why does <tt>define-reader-ctor</tt> not work in my compiled program?</a></li> <li><a href="#sec:Why_do_built-in_units.2c_such_as_srfi-1.2c_srfi-18.2c_and_posix_fail_to_load.3f">Why do built-in units, such as srfi-1, srfi-18, and posix fail to load?</a></li> <li><a href="#sec:How_can_I_increase_the_size_of_the_trace_shown_when_runtime_errors_are_detected.3f">How can I increase the size of the trace shown when runtime errors are detected?</a></li></ul></li> <li><a href="#sec:Optimizations">Optimizations</a> <ul> <li><a href="#sec:How_can_I_obtain_smaller_executables.3f">How can I obtain smaller executables?</a></li> <li><a href="#sec:How_can_I_obtain_faster_executables.3f">How can I obtain faster executables?</a></li> <li><a href="#sec:Which_non-standard_procedures_are_treated_specially_when_the_extended-bindings_or_usual-integrations_declaration_or_compiler_option_is_used.3f">Which non-standard procedures are treated specially when the <tt>extended-bindings</tt> or <tt>usual-integrations</tt> declaration or compiler option is used?</a></li> <li><a href="#sec:What.27s_the_difference_betweem_.22block.22_and_.22local.22_mode.3f">What's the difference betweem &quot;block&quot; and &quot;local&quot; mode?</a></li> <li><a href="#sec:Can_I_load_compiled_code_at_runtime.3f">Can I load compiled code at runtime?</a></li> <li><a href="#sec:Why_is_my_program_which_uses_regular_expressions_so_slow.3f">Why is my program which uses regular expressions so slow?</a></li></ul></li> <li><a href="#sec:Garbage_collection">Garbage collection</a> <ul> <li><a href="#sec:Why_does_a_loop_that_doesn.27t_cons_still_trigger_garbage_collections.3f">Why does a loop that doesn't <tt>cons</tt> still trigger garbage collections?</a></li> <li><a href="#sec:Why_do_finalizers_not_seem_to_work_in_simple_cases_in_the_interpeter.3f">Why do finalizers not seem to work in simple cases in the interpeter?</a></li></ul></li> <li><a href="#sec:Interpreter">Interpreter</a> <ul> <li><a href="#sec:Does_CSI_support_history_and_autocompletion.3f">Does CSI support history and autocompletion?</a></li> <li><a href="#sec:Does_code_loaded_with_load_run_compiled_or_interpreted.3f">Does code loaded with <tt>load</tt> run compiled or interpreted?</a></li> <li><a href="#sec:How_do_I_use_extended_.28non-standard.29_syntax_in_evaluated_code_at_run-time.3f">How do I use extended (non-standard) syntax in evaluated code at run-time?</a></li></ul></li> <li><a href="#sec:Extensions_">Extensions </a> <ul> <li><a href="#sec:Where_is_.22chicken-setup.22_.3f">Where is &quot;chicken-setup&quot; ?</a></li> <li><a href="#sec:How_can_I_install_CHICKEN_eggs_to_a_non-default_location.3f">How can I install CHICKEN eggs to a non-default location?</a></li> <li><a href="#sec:Can_I_install_chicken_eggs_as_a_non-root_user.3f">Can I install chicken eggs as a non-root user?</a></li> <li><a href="#sec:Why_does_downloading_an_extension_via_chicken-install_fail_on_Windows_Vista.3f">Why does downloading an extension via <tt>chicken-install</tt> fail on Windows Vista?</a></li></ul></li></ul></li></ul></div><h2 id="sec:FAQ"><a href="#sec:FAQ">FAQ</a></h2><p>This is the list of Frequently Asked Questions about CHICKEN Scheme. If you have a question not answered here, feel free to post to the chicken-users mailing list; if you consider your question general enough, feel free to add it to this list.</p><h3 id="sec:General_"><a href="#sec:General_">General </a></h3><h4 id="sec:Why_yet_another_Scheme_implementation.3f"><a href="#sec:Why_yet_another_Scheme_implementation.3f">Why yet another Scheme implementation?</a></h4><p>Since Scheme is a relatively simple language, a large number of implementations exist and each has its specific advantages and disadvantages. Some are fast, some provide a rich programming environment. Some are free, others are tailored to specific domains, and so on. The reasons for the existence of CHICKEN are:</p><ul><li>CHICKEN is portable because it generates C code that runs on a large number of platforms.</li> <li>CHICKEN is extensible, since its code generation scheme and runtime system/garbage collector fits neatly into a C environment.</li> <li>CHICKEN is free and can be freely distributed, including its source code.</li> <li>CHICKEN offers better performance than nearly all interpreter based implementations, but still provides full Scheme semantics.</li> <li>As far as we know, CHICKEN is the first implementation of Scheme that uses Henry Baker's <a href="http://home.pipeline.com/~hbaker1/CheneyMTA.html">Cheney on the M.T.A</a> concept.</li> </ul> <h4 id="sec:What_should_I_do_if_I_find_a_bug.3f"><a href="#sec:What_should_I_do_if_I_find_a_bug.3f">What should I do if I find a bug?</a></h4><p>Fill a ticket at <a href="http://bugs.call-cc.org">bugs.call-cc.org</a> with some hints about the problem, like version/build of the compiler, platform, system configuration, code that causes the bug, etc.</p><h3 id="sec:Specific"><a href="#sec:Specific">Specific</a></h3><h4 id="sec:Why_are_values_defined_with_define-foreign-variable_or_define-constant_or_define-inline_not_seen_outside_of_the_containing_source_file.3f"><a href="#sec:Why_are_values_defined_with_define-foreign-variable_or_define-constant_or_define-inline_not_seen_outside_of_the_containing_source_file.3f">Why are values defined with <tt>define-foreign-variable</tt> or <tt>define-constant</tt> or <tt>define-inline</tt> not seen outside of the containing source file?</a></h4><p>Accesses to foreign variables are translated directly into C constructs that access the variable, so the Scheme name given to that variable does only exist during compile-time. The same goes for constant- and inline-definitions: The name is only there to tell the compiler that this reference is to be replaced with the actual value.</p><h4 id="sec:How_does_cond-expand_know_which_features_are_registered_in_used_units.3f"><a href="#sec:How_does_cond-expand_know_which_features_are_registered_in_used_units.3f">How does <tt>cond-expand</tt> know which features are registered in used units?</a></h4><p>Each unit used via <tt>(declare (uses ...))</tt> is registered as a feature and so a symbol with the unit-name can be tested by <tt>cond-expand</tt> during macro-expansion-time. Features registered using the <tt>register-feature!</tt> procedure are only available during run-time of the compiled file. You can use the <tt>eval-when</tt> form to register features at compile time.</p><h4 id="sec:Why_are_constants_defined_by_define-constant_not_honoured_in_case_constructs.3f"><a href="#sec:Why_are_constants_defined_by_define-constant_not_honoured_in_case_constructs.3f">Why are constants defined by <tt>define-constant</tt> not honoured in <tt>case</tt> constructs?</a></h4><p><tt>case</tt> expands into a cascaded <tt>if</tt> expression, where the first item in each arm is treated as a quoted list. So the <tt>case</tt> macro can not infer whether a symbol is to be treated as a constant-name (defined via <tt>define-constant</tt>) or a literal symbol.</p><h4 id="sec:How_can_I_enable_case_sensitive_reading.2fwriting_in_user_code.3f"><a href="#sec:How_can_I_enable_case_sensitive_reading.2fwriting_in_user_code.3f">How can I enable case sensitive reading/writing in user code?</a></h4><p>To enable the <tt>read</tt> procedure to read symbols and identifiers case sensitive, you can set the parameter <tt>case-sensitivity</tt> to <tt>#t</tt>.</p><h4 id="sec:Why_doesn.27t_CHICKEN_support_the_full_numeric_tower_by_default.3f"><a href="#sec:Why_doesn.27t_CHICKEN_support_the_full_numeric_tower_by_default.3f">Why doesn't CHICKEN support the full numeric tower by default?</a></h4><p>The short answer is to use the <a href="http://wiki.call-cc.org/egg/numbers">numbers</a> egg:</p> <pre class="highlight colorize">% chicken-install numbers % csi -q #<span class="comment">;1&gt; (use numbers)</span></pre><p>The long answer:</p><p>There are a number of reasons for this:</p><p>- For most applications of Scheme fixnums (exact word-sized integers) and flonums (64-bit floating-point numbers) are more than sufficient;</p><p>- Interfacing to C is simpler;</p><p>- Dispatching of arithmetic operations is more efficient.</p><h4 id="sec:Does_CHICKEN_support_native_threads.3f"><a href="#sec:Does_CHICKEN_support_native_threads.3f">Does CHICKEN support native threads?</a></h4><p>Native threads are not supported for two reasons. One, the runtime system is not reentrant. Two, concurrency implemented properly would require mandatory locking of every object that could be potentially shared between two threads. The garbage-collection algorithm would then become much more complex and inefficient, since the location of every object has to be accessed via a thread synchronization protocol. Such a design would make native threads in CHICKEN essentially equivalent to Unix processes and shared memory.</p><p>For a different approach to concurrency, please see the <a href="http://wiki.call-cc.org/egg/mpi">mpi</a> or <a href="http://wiki.call-cc.org/egg/concurrent-native-callbacks">concurrent-native-callbacks</a> egg.</p><p><a href="http://www.stylewarning.com/blog/about">Robert Smith</a> has put <a href="http://www.stylewarning.com/blog/bounties">a bounty</a> on a release-quality implementation of native threads.</p><h4 id="sec:Does_CHICKEN_support_Unicode_strings.3f"><a href="#sec:Does_CHICKEN_support_Unicode_strings.3f">Does CHICKEN support Unicode strings?</a></h4><p>The system does not directly support Unicode, but there is an extension for UTF-8 strings: <a href="http://wiki.call-cc.org/egg/utf8">utf8</a>.</p><h3 id="sec:Why_are_.60dynamic-wind.27_thunks_not_executed_when_a_SRFI-18_thread_signals_an_error.3f"><a href="#sec:Why_are_.60dynamic-wind.27_thunks_not_executed_when_a_SRFI-18_thread_signals_an_error.3f">Why are `dynamic-wind' thunks not executed when a SRFI-18 thread signals an error?</a></h3><p>Here is what Marc Feeley, the author of <a href="http://srfi.schemers.org/srfi-18">SRFI-18</a> has to say about this subject:</p><pre> &gt;No the default exception handler shouldn't invoke the after &gt; thunks of the current continuation. That's because the &gt; exception handler doesn't &quot;continue&quot; at the initial &gt; continuation of that thread. Here are the relevant words of &gt; SRFI 18: &gt; &gt; Moreover, in this dynamic environment the exception handler &gt; is bound to the &quot;initial exception handler&quot; which is a unary &gt; procedure which causes the (then) current thread to store in &gt; its end-exception field an &quot;uncaught exception&quot; object whose &gt; &quot;reason&quot; is the argument of the handler, abandon all mutexes &gt; it owns, and finally terminate. &gt; &gt;The rationale is that, when an uncaught exception occurs in a &gt;thread the thread is in bad shape and things have gone &gt;sufficiently wrong that there is no universally acceptable way to &gt;continue execution. Executing after thunks could require a &gt;whole lot of processing that the thread is not in a shape to do. &gt;So the safe thing is to terminate the thread. If the programmer &gt;knows how to recover from an exception, then he can capture the &gt;continuation early on, and install an exception handler which &gt;invokes the continuation. When the continuation is invoked the &gt;after thunks will execute.</pre><h3 id="sec:Platform_specific"><a href="#sec:Platform_specific">Platform specific</a></h3><h4 id="sec:How_do_I_generate_a_DLL_under_MS_Windows_.28tm.29_.3f"><a href="#sec:How_do_I_generate_a_DLL_under_MS_Windows_.28tm.29_.3f">How do I generate a DLL under MS Windows (tm) ?</a></h4><p>Use <tt>csc</tt> in combination with the <tt>-dll</tt> option:</p><p><tt>C:\&gt; csc foo.scm -dll</tt></p><h4 id="sec:How_do_I_generate_a_GUI_application_under_Windows.28tm.29.3f"><a href="#sec:How_do_I_generate_a_GUI_application_under_Windows.28tm.29.3f">How do I generate a GUI application under Windows(tm)?</a></h4><p>Invoke <tt>csc</tt> with the <tt>-gui</tt> option. In GUI-mode, the runtime system displays error messages in a message box and does some rudimentary command-line parsing.</p><h4 id="sec:Compiling_very_large_files_under_Windows_with_the_Microsoft_C_compiler_fails_with_a_message_indicating_insufficient_heap_space.2e"><a href="#sec:Compiling_very_large_files_under_Windows_with_the_Microsoft_C_compiler_fails_with_a_message_indicating_insufficient_heap_space.2e">Compiling very large files under Windows with the Microsoft C compiler fails with a message indicating insufficient heap space.</a></h4><p>It seems that the Microsoft C compiler can only handle files up to a certain size, and it doesn't utilize virtual memory as well as the GNU C compiler, for example. Try closing running applications. If that fails, try to break up the Scheme code into several library units.</p><h4 id="sec:When_I_run_csi_inside_an_emacs_buffer_under_Windows.2c_nothing_happens.2e"><a href="#sec:When_I_run_csi_inside_an_emacs_buffer_under_Windows.2c_nothing_happens.2e">When I run <tt>csi</tt> inside an emacs buffer under Windows, nothing happens.</a></h4><p>Invoke <tt>csi</tt> with the <tt>-:c</tt> runtime option. Under Windows the interpreter thinks it is not running under control of a terminal and doesn't print the prompt and does not flush the output stream properly.</p><h4 id="sec:On_Windows.2c_csc.2eexe_seems_to_be_doing_something_wrong.2e"><a href="#sec:On_Windows.2c_csc.2eexe_seems_to_be_doing_something_wrong.2e">On Windows, <tt>csc.exe</tt> seems to be doing something wrong.</a></h4><p>The Windows development tools include a C# compiler with the same name. Either invoke <tt>csc.exe</tt> with a full pathname, or put the directory where you installed CHICKEN in front of the MS development tool path in the <tt>PATH</tt> environment variable.</p><h4 id="sec:On_Windows_source_and.2for_output_filenames_with_embedded_whitespace_are_not_found.2e"><a href="#sec:On_Windows_source_and.2for_output_filenames_with_embedded_whitespace_are_not_found.2e">On Windows source and/or output filenames with embedded whitespace are not found.</a></h4><p>There is no current workaround. Do not use filenames with embedded whitespace for code. However, command names with embedded whitespace will work correctly.</p><h3 id="sec:Customization"><a href="#sec:Customization">Customization</a></h3><h4 id="sec:How_do_I_run_custom_startup_code_before_the_runtime-system_is_invoked.3f"><a href="#sec:How_do_I_run_custom_startup_code_before_the_runtime-system_is_invoked.3f">How do I run custom startup code before the runtime-system is invoked?</a></h4><p>When you invoke the C compiler for your translated Scheme source program, add the C compiler option <tt>-DC_EMBEDDED</tt>, or pass <tt>-embedded</tt> to the <tt>csc</tt> driver program, so no entry-point function will be generated (<tt>main()</tt>). When your are finished with your startup processing, invoke:</p> <pre class="highlight colorize">CHICKEN_main<span class="paren1">(<span class="default">argc, argv, C_toplevel</span>)</span>;</pre><p>where <tt>C_toplevel</tt> is the entry-point into the compiled Scheme code. You should add the following declarations at the head of your code:</p> <pre class="highlight colorize"><span class="special">#include &quot;chicken.h&quot; </span><span class="symbol">extern</span> <span class="symbol">void</span> C_toplevel<span class="paren1">(<span class="default">C_word,C_word,C_word</span>)</span> C_noret;</pre><h4 id="sec:How_can_I_add_compiled_user_passes.3f"><a href="#sec:How_can_I_add_compiled_user_passes.3f">How can I add compiled user passes?</a></h4><p>To add a compiled user pass instead of an interpreted one, create a library unit and recompile the main unit of the compiler (in the file <tt>chicken.scm</tt>) with an additional <tt>uses</tt> declaration. Then link all compiler modules and your (compiled) extension to create a new version of the compiler, like this (assuming all sources are in the current directory):</p> <pre class="highlight colorize"> % cat userpass.scm <span class="comment">;;;; userpass.scm - My very own compiler pass </span> <span class="paren1">(<span class="default">declare <span class="paren2">(<span class="default">unit userpass</span>)</span></span>)</span> <span class="comment">;; Perhaps more user passes/extensions are added: </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">old <span class="paren4">(<span class="default">user-pass</span>)</span></span>]</span></span>)</span> <span class="paren2">(<span class="default">user-pass <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"><i><span class="symbol">let</span></i> <span class="paren5">(<span class="default"><span class="paren6">[<span class="default">x2 <span class="paren1">(<span class="default">do-something-with x</span>)</span></span>]</span></span>)</span> <span class="paren5">(<span class="default"><i><span class="symbol">if</span></i> old <span class="paren6">(<span class="default">old x2</span>)</span> x2</span>)</span> </span>)</span> </span>)</span> </span>)</span> </span>)</span></pre><pre>% csc -c -x userpass.scm % csc chicken.scm -c -o chicken-extended.o -uses userpass % gcc chicken-extended.o support.o easyffi.o compiler.o optimizer.o batch-driver.o c-platform.o \ c-backend.o userpass.o `csc -ldflags -libs` -o chicken-extended</pre><p>On platforms that support it (Linux ELF, Solaris, Windows + VC++), compiled code can be loaded via <tt>-extend</tt> just like source files (see <tt>load</tt> in the User's Manual).</p><h3 id="sec:Macros"><a href="#sec:Macros">Macros</a></h3><h4 id="sec:Where_is_define-macro.3f"><a href="#sec:Where_is_define-macro.3f">Where is <tt>define-macro</tt>?</a></h4><p>With CHICKEN 4, the macro-expansion subsystem is now hygienic where old Lisp-style low-level macros are not available anymore. <tt>define-syntax</tt> can define hygienic macros using <tt>syntax-rules</tt> or low-level macros with user-controlled hygienic with <i>explicit renaming</i> macros. Translating old-style macros into ER-macros isn't that hard, see <a href="Macros.html">Macros</a> for more information.</p><h4 id="sec:Why_are_low-level_macros_defined_with_define-syntax_complaining_about_unbound_variables.3f"><a href="#sec:Why_are_low-level_macros_defined_with_define-syntax_complaining_about_unbound_variables.3f">Why are low-level macros defined with <tt>define-syntax</tt> complaining about unbound variables?</a></h4><p>Macro bodies that are defined and used in a compiled source-file are evaluated during compilation and so have no access to anything created with <tt>define</tt>. Use <tt>define-for-syntax</tt> instead.</p><h4 id="sec:Why_isn.27t_load_properly_loading_my_library_of_macros.3f"><a href="#sec:Why_isn.27t_load_properly_loading_my_library_of_macros.3f">Why isn't <tt>load</tt> properly loading my library of macros?</a></h4><p>During compile-time, macros are only available in the source file in which they are defined. Files included via <tt>include</tt> are considered part of the containing file.</p><h3 id="sec:Warnings_and_errors"><a href="#sec:Warnings_and_errors">Warnings and errors</a></h3><h4 id="sec:Why_does_my_program_crash_when_I_use_callback_functions_.28from_Scheme_to_C_and_back_to_Scheme_again.29.3f"><a href="#sec:Why_does_my_program_crash_when_I_use_callback_functions_.28from_Scheme_to_C_and_back_to_Scheme_again.29.3f">Why does my program crash when I use callback functions (from Scheme to C and back to Scheme again)?</a></h4><p>There are two reasons why code involving callbacks can crash out of no apparent reason:</p><ol><li>It is important to use <tt>foreign-safe-lambda/foreign-safe-lambda*</tt> for the C code that is to call back into Scheme. If this is not done than sooner or later the available stack space will be exhausted.</li> <li>If the C code uses a large amount of stack storage, or if Scheme-to-C-to-Scheme calls are nested deeply, then the available nursery space on the stack will run low. To avoid this it might be advisable to run the compiled code with a larger nursery setting, i.e. run the code with <tt>-:s...</tt> and a larger value than the default (for example <tt>-:s300k</tt>), or use the <tt>-nursery</tt> compiler option. Note that this can decrease runtime performance on some platforms.</li> </ol> <h4 id="sec:Why_does_the_linker_complain_about_a_missing_function__C_.2e.2e.2e_toplevel.3f"><a href="#sec:Why_does_the_linker_complain_about_a_missing_function__C_.2e.2e.2e_toplevel.3f">Why does the linker complain about a missing function <tt>_C_..._toplevel</tt>?</a></h4><p>This message indicates that your program uses a library-unit, but that the object-file or library was not supplied to the linker. If you have the unit <tt>foo</tt>, which is contained in <tt>foo.o</tt> than you have to supply it to the linker like this (assuming a GCC environment):</p><p><tt>% csc program.scm foo.o -o program</tt></p><h4 id="sec:Why_does_the_linker_complain_about_a_missing_function__C_toplevel.3f"><a href="#sec:Why_does_the_linker_complain_about_a_missing_function__C_toplevel.3f">Why does the linker complain about a missing function <tt>_C_toplevel</tt>?</a></h4><p>This means you have compiled a library unit as an application. When a unit-declaration (as in <tt>(declare (unit ...))</tt>) is given, then this file has a specially named toplevel entry procedure. Just remove the declaration, or compile this file to an object-module and link it to your application code.</p><h4 id="sec:Why_does_my_program_crash_when_I_compile_a_file_with_-unsafe_or_unsafe_declarations.3f"><a href="#sec:Why_does_my_program_crash_when_I_compile_a_file_with_-unsafe_or_unsafe_declarations.3f">Why does my program crash when I compile a file with <tt>-unsafe</tt> or unsafe declarations?</a></h4><p>The compiler option <tt>-unsafe</tt> or the declaration <tt>(declare (unsafe))</tt> disable certain safety-checks to improve performance, so code that would normally trigger an error will work unexpectedly or even crash the running application. It is advisable to develop and debug a program in safe mode (without unsafe declarations) and use this feature only if the application works properly.</p><h4 id="sec:Why_don.27t_toplevel-continuations_captured_in_interpreted_code_work.3f"><a href="#sec:Why_don.27t_toplevel-continuations_captured_in_interpreted_code_work.3f">Why don't toplevel-continuations captured in interpreted code work?</a></h4><p>Consider the following piece of code:</p> <pre class="highlight colorize"> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> k <span class="paren2">(<span class="default">call-with-current-continuation <span class="paren3">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren4">(<span class="default">k</span>)</span> k</span>)</span></span>)</span></span>)</span> <span class="paren1">(<span class="default">k k</span>)</span></pre><p>When compiled, this will loop endlessly. But when interpreted, <tt>(k k)</tt> will return to the read-eval-print loop! This happens because the continuation captured will eventually read the next toplevel expression from the standard-input (or an input-file if loading from a file). At the moment <tt>k</tt> was defined, the next expression was <tt>(k k)</tt>. But when <tt>k</tt> is invoked, the next expression will be whatever follows after <tt>(k k)</tt>. In other words, invoking a captured continuation will not rewind the file-position of the input source. A solution is to wrap the whole code into a <tt>(begin ...)</tt> expression, so all toplevel expressions will be loaded together.</p><h4 id="sec:Why_does_define-reader-ctor_not_work_in_my_compiled_program.3f"><a href="#sec:Why_does_define-reader-ctor_not_work_in_my_compiled_program.3f">Why does <tt>define-reader-ctor</tt> not work in my compiled program?</a></h4><p>The following piece of code does not work as expected:</p> <pre class="highlight colorize"> <span class="paren1">(<span class="default"><i><span class="symbol">eval-when</span></i> <span class="paren2">(<span class="default">compile</span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define-reader-ctor</span></i> &#x27;integer-&gt;char integer-&gt;char</span>)</span> </span>)</span> <span class="paren1">(<span class="default">print #,<span class="paren2">(<span class="default">integer-&gt;char 33</span>)</span></span>)</span></pre><p>The problem is that the compiler reads the complete source-file before doing any processing on it, so the sharp-comma form is encountered before the reader-ctor is defined. A possible solution is to include the file containing the sharp-comma form, like this:</p> <pre class="highlight colorize"> <span class="paren1">(<span class="default"><i><span class="symbol">eval-when</span></i> <span class="paren2">(<span class="default">compile</span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define-reader-ctor</span></i> &#x27;integer-&gt;char integer-&gt;char</span>)</span> </span>)</span> <span class="paren1">(<span class="default">include <span class="string">&quot;other-file&quot;</span></span>)</span></pre> <pre class="highlight colorize"> <span class="comment">;;; other-file.scm: </span> <span class="paren1">(<span class="default">print #,<span class="paren2">(<span class="default">integer-&gt;char 33</span>)</span></span>)</span></pre><h4 id="sec:Why_do_built-in_units.2c_such_as_srfi-1.2c_srfi-18.2c_and_posix_fail_to_load.3f"><a href="#sec:Why_do_built-in_units.2c_such_as_srfi-1.2c_srfi-18.2c_and_posix_fail_to_load.3f">Why do built-in units, such as srfi-1, srfi-18, and posix fail to load?</a></h4><p>When you try to <tt>use</tt> a built-in unit such as <tt>srfi-18</tt>, you may get the following error:</p> <pre class="highlight colorize"> #<span class="comment">;1&gt; (use srfi-18) </span> <span class="comment">; loading library srfi-18 ... </span> <span class="keyword">Error:</span> <span class="paren1">(<span class="default">load-library</span>)</span> unable to load library srfi-18 <span class="string">&quot;dlopen(libchicken.dylib, 9): image not found&quot;</span> <span class="comment">;; on a Mac </span> <span class="string">&quot;libchicken.so: cannot open shared object file: No such file or directory&quot;</span> <span class="comment">;; Linux</span></pre><p>Another symptom is that <tt>(require 'srfi-18)</tt> will silently fail.</p><p>This typically happens because the CHICKEN libraries have been installed in a non-standard location, such as your home directory. The workaround is to explicitly tell the dynamic linker where to look for your libraries:</p><pre>export DYLD_LIBRARY_PATH=~/scheme/chicken/lib:$DYLD_LIBRARY_PATH ;; Mac export LD_LIBRARY_PATH=~/scheme/chicken/lib:$LD_LIBRARY_PATH ;; Linux</pre><h4 id="sec:How_can_I_increase_the_size_of_the_trace_shown_when_runtime_errors_are_detected.3f"><a href="#sec:How_can_I_increase_the_size_of_the_trace_shown_when_runtime_errors_are_detected.3f">How can I increase the size of the trace shown when runtime errors are detected?</a></h4><p>When a runtime error is detected, CHICKEN will print the last entries from the trace of functions called (unless your executable was compiled with the <tt>-no-trace</tt> option. By default, only 16 entries will be shown. To increase this number pass the <tt>-:aN</tt> parameter to your executable.</p><h3 id="sec:Optimizations"><a href="#sec:Optimizations">Optimizations</a></h3><h4 id="sec:How_can_I_obtain_smaller_executables.3f"><a href="#sec:How_can_I_obtain_smaller_executables.3f">How can I obtain smaller executables?</a></h4><p>If you don't need <tt>eval</tt> or the stuff in the <tt>extras</tt> library unit, you can just use the <tt>library</tt> unit:</p> <pre class="highlight colorize"> <span class="paren1">(<span class="default">declare <span class="paren2">(<span class="default">uses library</span>)</span></span>)</span> <span class="paren1">(<span class="default">display <span class="string">&quot;Hello, world!</span><span class="string">\n</span><span class="string">&quot;</span></span>)</span></pre><p>(Don't forget to compile with the <tt>-explicit-use</tt> option) Compiled with Visual C++ this generates an executable of around 240 kilobytes. It is theoretically possible to compile something without the library, but a program would have to implement quite a lot of support code on its own.</p><h4 id="sec:How_can_I_obtain_faster_executables.3f"><a href="#sec:How_can_I_obtain_faster_executables.3f">How can I obtain faster executables?</a></h4><p>There are a number of declaration specifiers that should be used to speed up compiled files: declaring <tt>(standard-bindings)</tt> is mandatory, since this enables most optimizations. Even if some standard procedures should be redefined, you can list untouched bindings in the declaration. Declaring <tt>(extended-bindings)</tt> lets the compiler choose faster versions of certain internal library functions. This might give another speedup. You can also use the the <tt>usual-integrations</tt> declaration, which is identical to declaring <tt>standard-bindings</tt> and <tt>extended-bindings</tt> (note that <tt>usual-integrations</tt> is set by default). Declaring <tt>(block)</tt> tells the compiler that global procedures are not changed outside the current compilation unit, this gives the compiler some more opportunities for optimization. If no floating point arithmetic is required, then declaring <tt>(number-type fixnum)</tt> can give a big performance improvement, because the compiler can now inline most arithmetic operations. Declaring <tt>(unsafe)</tt> will switch off most safety checks. If threads are not used, you can declare <tt>(disable-interrupts)</tt>. You should always use maximum optimizations settings for your C compiler. Good GCC compiler options on Pentium (and compatible) hardware are: <tt>-Os -fomit-frame-pointer -fno-strict-aliasing</tt> Some programs are very sensitive to the setting of the nursery (the first heap-generation). You should experiment with different nursery settings (either by compiling with the <tt>-nursery</tt> option or by using the <tt>-:s...</tt> runtime option).</p><h4 id="sec:Which_non-standard_procedures_are_treated_specially_when_the_extended-bindings_or_usual-integrations_declaration_or_compiler_option_is_used.3f"><a href="#sec:Which_non-standard_procedures_are_treated_specially_when_the_extended-bindings_or_usual-integrations_declaration_or_compiler_option_is_used.3f">Which non-standard procedures are treated specially when the <tt>extended-bindings</tt> or <tt>usual-integrations</tt> declaration or compiler option is used?</a></h4><p>The following standard bindings are handled specially, depending on optimization options and compiler settings:</p><p><tt>*</tt> <tt>+</tt> <tt>-</tt> <tt>/</tt> <tt>&lt;=</tt> <tt>&lt;</tt> <tt>=</tt> <tt>&gt;=</tt> <tt>&gt;</tt> <tt>abs</tt> <tt>acos</tt> <tt>apply</tt> <tt>asin</tt> <tt>assoc</tt> <tt>assv</tt> <tt>atan</tt> <tt>boolean?</tt> <tt>c...r</tt> <tt>call-with-current-continuation</tt> <tt>call-with-values</tt> <tt>ceiling</tt> <tt>char-&gt;integer</tt> <tt>char-alphabetic?</tt> <tt>char-downcase</tt> <tt>char-lower-case?</tt> <tt>char-numeric?</tt> <tt>char-upcae</tt> <tt>char-upper-case?</tt> <tt>char-whitespace?</tt> <tt>char&lt;=?</tt> <tt>char&lt;?</tt> <tt>char=?</tt> <tt>char&gt;=?</tt> <tt>char&gt;?</tt> <tt>char?</tt> <tt>complex?</tt> <tt>cons</tt> <tt>cos</tt> <tt>current-input-port</tt> <tt>current-output-port</tt> <tt>eof-object?</tt> <tt>eq?</tt> <tt>equal?</tt> <tt>eqv?</tt> <tt>even?</tt> <tt>exact-&gt;inexact</tt> <tt>exact?</tt> <tt>exp</tt> <tt>floor</tt> <tt>for-each</tt> <tt>for-each</tt> <tt>gcd</tt> <tt>inexact-&gt;exact</tt> <tt>inexact?</tt> <tt>integer-&gt;char</tt> <tt>lcm</tt> <tt>length</tt> <tt>list-ref</tt> <tt>list-tail</tt> <tt>list?</tt> <tt>list</tt> <tt>log</tt> <tt>make-vector</tt> <tt>map</tt> <tt>member</tt> <tt>memq</tt> <tt>memv</tt> <tt>negative?</tt> <tt>not</tt> <tt>null?</tt> <tt>number-&gt;string</tt> <tt>number?</tt> <tt>odd?</tt> <tt>pair?</tt> <tt>positive?</tt> <tt>procedure?</tt> <tt>quotient</tt> <tt>rational?</tt> <tt>read-string</tt> <tt>real?</tt> <tt>remainder</tt> <tt>round</tt> <tt>set-car!</tt> <tt>set-cdr!</tt> <tt>sin</tt> <tt>sqrt</tt> <tt>string-&gt;number</tt> <tt>string-append</tt> <tt>string-ci=?</tt> <tt>string-length</tt> <tt>string-ref</tt> <tt>string-set!</tt> <tt>string=?</tt> <tt>string?</tt> <tt>string</tt> <tt>substring</tt> <tt>symbol?</tt> <tt>tan</tt> <tt>truncate</tt> <tt>values</tt> <tt>vector-length</tt> <tt>vector-ref</tt> <tt>vector-set!</tt> <tt>vector?</tt> <tt>vector</tt> <tt>write-char</tt> <tt>zero?</tt></p><p>The following extended bindings are handled specially:</p><p><tt>add1</tt> <tt>alist-cons</tt> <tt>any?</tt> <tt>arithmetic-shift</tt> <tt>atom?</tt> <tt>bit-set?</tt> <tt>bitwise-and</tt> <tt>bitwise-ior</tt> <tt>bitwise-not</tt> <tt>bitwise-xor</tt> <tt>blob-size</tt> <tt>block-ref</tt> <tt>block-set!</tt> <tt>call/cc</tt> <tt>current-error-port</tt> <tt>current-thread</tt> <tt>error</tt> <tt>f32vector-&gt;blob/shared</tt> <tt>f32vector-length</tt> <tt>f32vector-ref</tt> <tt>f64vector-&gt;blob/shared</tt> <tt>f64vector-length</tt> <tt>f64vector-ref</tt> <tt>finite?</tt> <tt>first</tt> <tt>fixnum?</tt> <tt>flonum?</tt> <tt>flush-output</tt> <tt>foldl</tt> <tt>foldr</tt> <tt>format</tt> <tt>fourth</tt> <tt>fp*</tt> <tt>fp+</tt> <tt>fp-</tt> <tt>fp/</tt> <tt>fp&lt;=</tt> <tt>fp&lt;</tt> <tt>fp=</tt> <tt>fp=</tt> <tt>fp&gt;=</tt> <tt>fp&gt;=</tt> <tt>fp&gt;</tt> <tt>fp&gt;</tt> <tt>fpabs</tt> <tt>fpacos</tt> <tt>fpasin</tt> <tt>fpatan2</tt> <tt>fpatan</tt> <tt>fpceiling</tt> <tt>fpcos</tt> <tt>fpexpt</tt> <tt>fpexp</tt> <tt>fpfloor</tt> <tt>fpinteger?</tt> <tt>fplog</tt> <tt>fpmax</tt> <tt>fpmin</tt> <tt>fpneg</tt> <tt>fprintf</tt> <tt>fpround</tt> <tt>fpsin</tt> <tt>fpsqrt</tt> <tt>fptan</tt> <tt>fptruncate</tt> <tt>fx*?</tt> <tt>fx*</tt> <tt>fx+?</tt> <tt>fx+</tt> <tt>fx-?</tt> <tt>fx-</tt> <tt>fx/?</tt> <tt>fx/</tt> <tt>fx=</tt> <tt>fx&gt;=</tt> <tt>fx&gt;</tt> <tt>fxand</tt> <tt>fxeven?</tt> <tt>fxior</tt> <tt>fxmax</tt> <tt>fxmin</tt> <tt>fxmod</tt> <tt>fxneg</tt> <tt>fxnot</tt> <tt>fxodd?</tt> <tt>fxshl</tt> <tt>fxshr</tt> <tt>fxxor</tt> <tt>hash-table-ref</tt> <tt>identity</tt> <tt>locative-&gt;object</tt> <tt>locative-ref</tt> <tt>locative-set!</tt> <tt>locative?</tt> <tt>make-record-instance</tt> <tt>not-pair?</tt> <tt>null-list?</tt> <tt>number-of-slots</tt> <tt>o</tt> <tt>pointer+</tt> <tt>pointer-&gt;object</tt> <tt>pointer-f32-ref</tt> <tt>pointer-f32-set!</tt> <tt>pointer-f64-ref</tt> <tt>pointer-f64-set!</tt> <tt>pointer-s16-ref</tt> <tt>pointer-s16-set!</tt> <tt>pointer-s32-ref</tt> <tt>pointer-s32-set!</tt> <tt>pointer-s8-ref</tt> <tt>pointer-s8-set!</tt> <tt>pointer-u16-ref</tt> <tt>pointer-u16-set!</tt> <tt>pointer-u32-ref</tt> <tt>pointer-u32-set!</tt> <tt>pointer-u8-ref</tt> <tt>pointer-u8-set!</tt> <tt>pointer=?</tt> <tt>print*</tt> <tt>printf</tt> <tt>print</tt> <tt>s16vector-&gt;blob/shared</tt> <tt>s16vector-length</tt> <tt>s16vector-ref</tt> <tt>s16vector-set!</tt> <tt>s32vector-&gt;blob/shared</tt> <tt>s32vector-length</tt> <tt>s32vector-ref</tt> <tt>s32vector-set!</tt> <tt>s8vector-&gt;blob/shared</tt> <tt>s8vector-length</tt> <tt>s8vector-ref</tt> <tt>s8vector-set!</tt> <tt>second</tt> <tt>signum</tt> <tt>sprintf</tt> <tt>sub1</tt> <tt>substring-ci=?</tt> <tt>substring-index-ci</tt> <tt>substring-index</tt> <tt>substring=?</tt> <tt>third</tt> <tt>thread-specific-set!</tt> <tt>thread-specific</tt> <tt>u16vector-&gt;blob/shared</tt> <tt>u16vector-length</tt> <tt>u16vector-ref</tt> <tt>u16vector-set!</tt> <tt>u32vector-&gt;blob/shared</tt> <tt>u32vector-length</tt> <tt>u32vector-ref</tt> <tt>u32vector-set!</tt> <tt>u8vector-&gt;blob/shared</tt> <tt>u8vector-length</tt> <tt>u8vector-ref</tt> <tt>u8vector-set!</tt> <tt>xcons</tt></p><h4 id="sec:What.27s_the_difference_betweem_.22block.22_and_.22local.22_mode.3f"><a href="#sec:What.27s_the_difference_betweem_.22block.22_and_.22local.22_mode.3f">What's the difference betweem &quot;block&quot; and &quot;local&quot; mode?</a></h4><p>In <tt>block</tt> mode, the compiler assumes that definitions in the current file are not visible from outside of the current compilation unit, so unused definitions can be removed and calls can be inlined. In <tt>local</tt> mode, definitions are not hidden, but the compiler assumes that they are not modified from other compilation units (or code evaluated at runtime), and thus allows inlining of them.</p><h4 id="sec:Can_I_load_compiled_code_at_runtime.3f"><a href="#sec:Can_I_load_compiled_code_at_runtime.3f">Can I load compiled code at runtime?</a></h4><p>Yes. You can load compiled at code at runtime with <tt>load</tt> just as well as you can load Scheme source code. Compiled code will, of course, run faster.</p><p>To do this, pass to <tt>load</tt> a path for a shared object. Use a form such as <tt>(load &quot;foo.so&quot;)</tt> and run <tt>csc -shared foo.scm</tt> to produce <tt>foo.so</tt> from <tt>foo.scm</tt> (at which point <tt>foo.scm</tt> will no longer be required).</p><p>If you have compiled code that contains a <tt>module</tt> definition, then executing the code will &quot;register&quot; the module to allow importing the bindings provided by the module into a running Scheme process. The information required to use a module is in this case embedded in the compiled code. Compiling another program that uses this (compiled) module is more difficult: the used module will not necessarily be loaded into the compiler, so the registration will not be executed. In this case the information about what bindings the compiled module exports must be separated from the actual code that executes at runtime. To make this possible, compiling a module can be done in such a manner that an &quot;import library&quot; is created. This is a file that contains the binding information of the module and we can use it to compile a file that refers to that module. An example can perhaps make this clearer:</p><pre> ;; my-module.scm (module my-module (...) ...)</pre><pre> ;; use-my-module.scm</pre><pre> (import my-module) ...</pre><p>Compile the module and generate an import library for the &quot;my-module&quot; module:</p><pre> % csc -s my-module.scm -emit-import-library my-module</pre><p>Compile the program that uses the module:</p><pre> % csc use-my-module.scm</pre><h4 id="sec:Why_is_my_program_which_uses_regular_expressions_so_slow.3f"><a href="#sec:Why_is_my_program_which_uses_regular_expressions_so_slow.3f">Why is my program which uses regular expressions so slow?</a></h4><p>The regular expression engine has recently been replaced by <a href="http://wiki.call-cc.org/users/alex shinn">alex shinn</a>'s excellent <tt>irregex</tt> library, which is fully implemented in Scheme. Precompiling regular expressions to internal forms is somewhat slower than with the old PCRE-based regex engine. It is advisable to use <tt>irregex</tt> to precompile regular expressions outside of time-critical loops and use them where performance matters.</p><h3 id="sec:Garbage_collection"><a href="#sec:Garbage_collection">Garbage collection</a></h3><h4 id="sec:Why_does_a_loop_that_doesn.27t_cons_still_trigger_garbage_collections.3f"><a href="#sec:Why_does_a_loop_that_doesn.27t_cons_still_trigger_garbage_collections.3f">Why does a loop that doesn't <tt>cons</tt> still trigger garbage collections?</a></h4><p>Under CHICKEN's implementation policy, tail recursion is achieved simply by avoiding returns from function calls. Since the programs are CPS converted, a continuous sequence of nested procedure calls is performed. At some stage the stack-space has to run out and the current procedure and its parameters (including the current continuation) are stored somewhere in the runtime system. Now a minor garbage collection occurs and rescues all live data from the stack (the first heap generation) and moves it into the the second heap generation. Then the stack is cleared (using a <tt>longjmp</tt>) and execution can continue from the saved state. With this method arbitrary recursion (in tail- or non-tail position) can happen, provided the application doesn't run out of heap-space. (The difference between a tail- and a non-tail call is that the tail-call has no live data after it invokes its continuation - and so the amount of heap-space needed stays constant)</p><h4 id="sec:Why_do_finalizers_not_seem_to_work_in_simple_cases_in_the_interpeter.3f"><a href="#sec:Why_do_finalizers_not_seem_to_work_in_simple_cases_in_the_interpeter.3f">Why do finalizers not seem to work in simple cases in the interpeter?</a></h4><p>Consider the following interaction in CSI:</p><pre>#;1&gt; (define x '(1 2 3)) #;2&gt; (define (yammer x) (print x &quot; is dead&quot;)) #;3&gt; (set-finalizer! x yammer) (1 2 3) #;4&gt; (gc #t) 157812 #;5&gt; (define x #f) #;6&gt; (gc #t) 157812 #;7&gt;</pre><p>While you might expect objects to be reclaimed and &quot;<i>(1 2 3) is dead</i>&quot; printed, it won't happen: the literal list gets held in the interpreter history, because it is the result value of the set-finalizer! call. Running this in a normal program will work fine.</p><p>When testing finalizers from the interpreter, you might want to define a trivial macro such as</p><pre>(define-syntax v (syntax-rules () ((_ x) (begin (print x) (void)))))</pre><p>and wrap calls to <tt>set-finalizer!</tt> in it.</p><h3 id="sec:Interpreter"><a href="#sec:Interpreter">Interpreter</a></h3><h4 id="sec:Does_CSI_support_history_and_autocompletion.3f"><a href="#sec:Does_CSI_support_history_and_autocompletion.3f">Does CSI support history and autocompletion?</a></h4><p>CSI doesn't support it natively but it can be activated with one of the <a href="http://wiki.call-cc.org/egg/readline">readline</a>, <a href="http://wiki.call-cc.org/egg/linenoise">linenoise</a> or <a href="http://wiki.call-cc.org/egg/parley">parley</a> eggs. Out of these three, the parley egg is recommended. After installing parley, add the following to your <tt>~/.csirc</tt> or equivalent file:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">use parley</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">old <span class="paren4">(<span class="default">current-input-port</span>)</span></span>)</span></span>)</span> <span class="paren2">(<span class="default">current-input-port <span class="paren3">(<span class="default">make-parley-port old</span>)</span></span>)</span></span>)</span></pre><p>Users of *nix-like systems (including Cygwin), may also want to check out <a href="http://utopia.knoware.nl/~hlub/rlwrap/">rlwrap</a>. This program lets you &quot;wrap&quot; another process (e.g. <tt>rlwrap csi</tt>) with the readline library, giving you history, autocompletion, and the ability to set the keystroke set. Vi fans can get vi keystrokes by adding &quot;set editing-mode vi&quot; to their <tt>.inputrc</tt> file.</p><h4 id="sec:Does_code_loaded_with_load_run_compiled_or_interpreted.3f"><a href="#sec:Does_code_loaded_with_load_run_compiled_or_interpreted.3f">Does code loaded with <tt>load</tt> run compiled or interpreted?</a></h4><p>If you compile a file with a call to <tt>load</tt>, the code will be loaded at runtime and, if the file loaded is a Scheme source code file (instead of a shared object), it will be interpreted (even if the caller program is compiled).</p><h4 id="sec:How_do_I_use_extended_.28non-standard.29_syntax_in_evaluated_code_at_run-time.3f"><a href="#sec:How_do_I_use_extended_.28non-standard.29_syntax_in_evaluated_code_at_run-time.3f">How do I use extended (non-standard) syntax in evaluated code at run-time?</a></h4><p>Normally, only standard Scheme syntax is available to the evaluator. To use the extensions provided in the CHICKEN compiler and interpreter, add:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">require-library chicken-syntax</span>)</span></pre><h3 id="sec:Extensions_"><a href="#sec:Extensions_">Extensions </a></h3><h4 id="sec:Where_is_.22chicken-setup.22_.3f"><a href="#sec:Where_is_.22chicken-setup.22_.3f">Where is &quot;chicken-setup&quot; ?</a></h4><p><tt>chicken-setup</tt> has been rewritten from scratch and its functionality is now contained in the three tools <tt>chicken-install</tt>, <tt>chicken-uninstall</tt> and <tt>chicken-status</tt>. See the <a href="Extensions.html">Extensions</a> chapter for more information.</p><h4 id="sec:How_can_I_install_CHICKEN_eggs_to_a_non-default_location.3f"><a href="#sec:How_can_I_install_CHICKEN_eggs_to_a_non-default_location.3f">How can I install CHICKEN eggs to a non-default location?</a></h4><p>You can just set the <tt>CHICKEN_REPOSITORY</tt> environment variable. It should contain the path where you want eggs to be installed:</p><pre>$ export CHICKEN_REPOSITORY=~/eggs/lib/chicken/5 $ chicken-install -init ~/eggs/lib/chicken/5 $ chicken-install -p ~/eggs/ extensionname</pre><p>In order to make programs (including csi) see these eggs, you should set this variable when you run them. See the <a href="Extensions.html#sec:Changing_repository_location">Extensions/Changing repository location</a> section of the manual for more information on that.</p><p>Alternatively, you can call the <tt>repository-path</tt> Scheme procedure before loading the eggs, as in:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">repository-path <span class="string">&quot;/home/azul/eggs&quot;</span></span>)</span> <span class="paren1">(<span class="default">use format-modular</span>)</span></pre><p>Note, however, that using <tt>repository-path</tt> as above hard-codes the location of your eggs in your source files. While this might not be an issue in your case, it might be safe to keep this configuration outside of the source code (that is, specifying it as an environment variable) to make it easier to maintain.</p><p>The repository needs to be initialized before use. See the documentation for the <tt>-init</tt> option to <tt>chicken-install</tt>, in <a href="Extensions.html">Extensions</a>.</p><h4 id="sec:Can_I_install_chicken_eggs_as_a_non-root_user.3f"><a href="#sec:Can_I_install_chicken_eggs_as_a_non-root_user.3f">Can I install chicken eggs as a non-root user?</a></h4><p>Yes, just install them in a directory you can write to by using <tt>CHICKEN_REPOSITORY</tt> (see above).</p><h4 id="sec:Why_does_downloading_an_extension_via_chicken-install_fail_on_Windows_Vista.3f"><a href="#sec:Why_does_downloading_an_extension_via_chicken-install_fail_on_Windows_Vista.3f">Why does downloading an extension via <tt>chicken-install</tt> fail on Windows Vista?</a></h4><p>Possibly the Windows Firewall is active, which prevents <tt>chicken-install</tt> from opening a TCP connection to the egg repository. Try disabling the firewall temporarily.</p><hr /><p>Previous: <a href="Bugs%20and%20limitations.html">Bugs and limitations</a></p><p>Next: <a href="Acknowledgements.html">Acknowledgements</a></p></div></div></body>��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Unit srfi-4.html���������������������������������������������������������0000644�0001750�0001750�00000070435�13052306551�020132� 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; Unit srfi-4</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"><h2 id="sec:Unit_srfi-4"><a href="#sec:Unit_srfi-4">Unit 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> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Unit_srfi-4">Unit srfi-4</a></li> <li><a href="#sec:CHICKEN_implementation">CHICKEN implementation</a> <ul> <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:CHICKEN_implementation"><a href="#sec:CHICKEN_implementation">CHICKEN implementation</a></h2><ul><li>Procedures for blob 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> <li>64-bit integer vectors (<tt>u64vector</tt> and <tt>s64vector</tt>) are not supported.</li> </ul> <h3 id="sec:Blob_conversions"><a href="#sec:Blob_conversions">Blob conversions</a></h3><dl class="defsig"><dt class="defsig" id="def:u8vector-.3eblob"><span class="sig"><tt>(u8vector-&gt;blob U8VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s8vector-.3eblob"><span class="sig"><tt>(s8vector-&gt;blob S8VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:u16vector-.3eblob"><span class="sig"><tt>(u16vector-&gt;blob U16VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s16vector-.3eblob"><span class="sig"><tt>(s16vector-&gt;blob S16VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:u32vector-.3eblob"><span class="sig"><tt>(u32vector-&gt;blob U32VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s32vector-.3eblob"><span class="sig"><tt>(s32vector-&gt;blob S32VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:f32vector-.3eblob"><span class="sig"><tt>(f32vector-&gt;blob F32VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:f64vector-.3eblob"><span class="sig"><tt>(f64vector-&gt;blob F64VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:u8vector-.3eblob.2fshared"><span class="sig"><tt>(u8vector-&gt;blob/shared U8VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s8vector-.3eblob.2fshared"><span class="sig"><tt>(s8vector-&gt;blob/shared S8VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:u16vector-.3eblob.2fshared"><span class="sig"><tt>(u16vector-&gt;blob/shared U16VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s16vector-.3eblob.2fshared"><span class="sig"><tt>(s16vector-&gt;blob/shared S16VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:u32vector-.3eblob.2fshared"><span class="sig"><tt>(u32vector-&gt;blob/shared U32VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s32vector-.3eblob.2fshared"><span class="sig"><tt>(s32vector-&gt;blob/shared S32VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:f32vector-.3eblob.2fshared"><span class="sig"><tt>(f32vector-&gt;blob/shared F32VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:f64vector-.3eblob.2fshared"><span class="sig"><tt>(f64vector-&gt;blob/shared F64VECTOR)</tt></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.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:blob-.3eu8vector"><span class="sig"><tt>(blob-&gt;u8vector BLOB)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3es8vector"><span class="sig"><tt>(blob-&gt;s8vector BLOB)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3eu16vector"><span class="sig"><tt>(blob-&gt;u16vector BLOB)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3es16vector"><span class="sig"><tt>(blob-&gt;s16vector BLOB)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3eu32vector"><span class="sig"><tt>(blob-&gt;u32vector BLOB)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3es32vector"><span class="sig"><tt>(blob-&gt;s32vector BLOB)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3ef32vector"><span class="sig"><tt>(blob-&gt;f32vector BLOB)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3ef64vector"><span class="sig"><tt>(blob-&gt;f64vector BLOB)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3eu8vector.2fshared"><span class="sig"><tt>(blob-&gt;u8vector/shared BLOB)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3es8vector.2fshared"><span class="sig"><tt>(blob-&gt;s8vector/shared BLOB)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3eu16vector.2fshared"><span class="sig"><tt>(blob-&gt;u16vector/shared BLOB)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3es16vector.2fshared"><span class="sig"><tt>(blob-&gt;s16vector/shared BLOB)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3eu32vector.2fshared"><span class="sig"><tt>(blob-&gt;u32vector/shared BLOB)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3es32vector.2fshared"><span class="sig"><tt>(blob-&gt;s32vector/shared BLOB)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3ef32vector.2fshared"><span class="sig"><tt>(blob-&gt;f32vector/shared BLOB)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3ef64vector.2fshared"><span class="sig"><tt>(blob-&gt;f64vector/shared BLOB)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Each of these procedures return a vector where the argument <tt>BLOB</tt> 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.</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"><tt>(subu8vector U8VECTOR FROM TO)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:subu16vector"><span class="sig"><tt>(subu16vector U16VECTOR FROM TO)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:subu32vector"><span class="sig"><tt>(subu32vector U32VECTOR FROM TO)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:subs8vector"><span class="sig"><tt>(subs8vector S8VECTOR FROM TO)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:subs16vector"><span class="sig"><tt>(subs16vector S16VECTOR FROM TO)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:subs32vector"><span class="sig"><tt>(subs32vector S32VECTOR FROM TO)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:subf32vector"><span class="sig"><tt>(subf32vector F32VECTOR FROM TO)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:subf64vector"><span class="sig"><tt>(subf64vector F64VECTOR FROM TO)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a number vector of the same type as the argument vector with the elements at the positions <tt>FROM</tt> up to but not including <tt>TO</tt>.</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"><tt>(read-u8vector [LENGTH [PORT]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Reads <tt>LENGTH</tt> bytes from the <tt>PORT</tt> and returns a fresh <tt>u8vector</tt> or less if end-of-file is encountered. <tt>PORT</tt> defaults to the value of <tt>(current-input-port)</tt>.</p><p>If <tt>LENGTH</tt> 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"><tt>(read-u8vector! LENGTH U8VECTOR [PORT [START]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Reads <tt>LENGTH</tt> bytes from the <tt>PORT</tt> writing the read input into <tt>U8VECTOR</tt> beginning at <tt>START</tt> (or 0 if not given). <tt>PORT</tt> defaults to the value of <tt>(current-input-port)</tt>.</p><p>If <tt>LENGTH</tt> 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"><tt>(write-u8vector U8VECTOR [PORT [START [END]]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Writes the bytes <tt>U8VECTOR</tt> between the indices <tt>START</tt> (inclusive) and <tt>END</tt> (exclusive) to <tt>PORT</tt>.</p><p><tt>PORT</tt> 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^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"><tt>(u8vector? OBJ)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s8vector.3f"><span class="sig"><tt>(s8vector? OBJ)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:u16vector.3f"><span class="sig"><tt>(u16vector? OBJ)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s16vector.3f"><span class="sig"><tt>(s16vector? OBJ)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:u32vector.3f"><span class="sig"><tt>(u32vector? OBJ)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s32vector.3f"><span class="sig"><tt>(s32vector? OBJ)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:f32vector.3f"><span class="sig"><tt>(f32vector? OBJ)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:f64vector.3f"><span class="sig"><tt>(f64vector? OBJ)</tt></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"><tt>(number-vector? OBJ)</tt></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>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-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"><tt>(u8vector U8VALUE ...)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s8vector"><span class="sig"><tt>(s8vector S8VALUE ...)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:u16vector"><span class="sig"><tt>(u16vector U16VALUE ...)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s16vector"><span class="sig"><tt>(s16vector S16VALUE ...)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:u32vector"><span class="sig"><tt>(u32vector U32VALUE ...)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s32vector"><span class="sig"><tt>(s32vector S32VALUE ...)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:f32vector"><span class="sig"><tt>(f32vector F32VALUE ...)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:f64vector"><span class="sig"><tt>(f64vector F64VALUE ...)</tt></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"><tt>(u8vector-length U8VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s8vector-length"><span class="sig"><tt>(s8vector-length S8VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:u16vector-length"><span class="sig"><tt>(u16vector-length U16VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s16vector-length"><span class="sig"><tt>(s16vector-length S16VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:u32vector-length"><span class="sig"><tt>(u32vector-length U32VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s32vector-length"><span class="sig"><tt>(s32vector-length S32VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:f32vector-length"><span class="sig"><tt>(f32vector-length F32VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:f64vector-length"><span class="sig"><tt>(f64vector-length F64VECTOR)</tt></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"><tt>(u8vector-ref U8VECTOR I)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s8vector-ref"><span class="sig"><tt>(s8vector-ref S8VECTOR i)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:u16vector-ref"><span class="sig"><tt>(u16vector-ref U16VECTOR I)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s16vector-ref"><span class="sig"><tt>(s16vector-ref S16VECTOR I)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:u32vector-ref"><span class="sig"><tt>(u32vector-ref U32VECTOR I)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s32vector-ref"><span class="sig"><tt>(s32vector-ref S32VECTOR I)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:f32vector-ref"><span class="sig"><tt>(f32vector-ref F32VECTOR I)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:f64vector-ref"><span class="sig"><tt>(f64vector-ref F64VECTOR I)</tt></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 <tt>I</tt> 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"><tt>(u8vector-set! U8VECTOR I U8VALUE)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s8vector-set.21"><span class="sig"><tt>(s8vector-set! S8VECTOR I S8VALUE)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:u16vector-set.21"><span class="sig"><tt>(u16vector-set! U16VECTOR I U16VALUE)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s16vector-set.21"><span class="sig"><tt>(s16vector-set! S16VECTOR I S16VALUE)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:u32vector-set.21"><span class="sig"><tt>(u32vector-set! U32VECTOR I U32VALUE)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s32vector-set.21"><span class="sig"><tt>(s32vector-set! S32VECTOR I S32VALUE)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:f32vector-set.21"><span class="sig"><tt>(f32vector-set! F32VECTOR I F32VALUE)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:f64vector-set.21"><span class="sig"><tt>(f64vector-set! F64VECTOR I F64VALUE)</tt></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. <tt>I</tt> 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"><tt>(u8vector-&gt;list U8VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s8vector-.3elist"><span class="sig"><tt>(s8vector-&gt;list S8VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:u16vector-.3elist"><span class="sig"><tt>(u16vector-&gt;list U16VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s16vector-.3elist"><span class="sig"><tt>(s16vector-&gt;list S16VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:u32vector-.3elist"><span class="sig"><tt>(u32vector-&gt;list U32VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:s32vector-.3elist"><span class="sig"><tt>(s32vector-&gt;list S32VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:f32vector-.3elist"><span class="sig"><tt>(f32vector-&gt;list F32VECTOR)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:f64vector-.3elist"><span class="sig"><tt>(f64vector-&gt;list F64VECTOR)</tt></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"><tt>(list-&gt;u8vector U8LIST)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3es8vector"><span class="sig"><tt>(list-&gt;s8vector S8LIST)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3eu16vector"><span class="sig"><tt>(list-&gt;u16vector U16LIST)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3es16vector"><span class="sig"><tt>(list-&gt;s16vector S16LIST)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3eu32vector"><span class="sig"><tt>(list-&gt;u32vector U32LIST)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3es32vector"><span class="sig"><tt>(list-&gt;s32vector S32LIST)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3ef32vector"><span class="sig"><tt>(list-&gt;f32vector F32LIST)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3ef64vector"><span class="sig"><tt>(list-&gt;f64vector F64LIST)</tt></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"><tt>(release-number-vector NVECTOR)</tt></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="Unit%20srfi-1.html">Unit srfi-1</a></p><p>Next: <a href="Unit%20srfi-13.html">Unit srfi-13</a></p></div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Macros.html��������������������������������������������������������������0000644�0001750�0001750�00000035024�13052306550�017344� 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; Macros</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:Macros">Macros</a> <ul> <li><a href="#sec:Macro_definitions">Macro definitions</a> <ul> <li><a href="#sec:define-syntax">define-syntax</a></li> <li><a href="#sec:er-macro-transformer">er-macro-transformer</a></li> <li><a href="#sec:ir-macro-transformer">ir-macro-transformer</a></li> <li><a href="#sec:strip-syntax">strip-syntax</a></li></ul></li> <li><a href="#sec:Explicit_renaming_macros">Explicit renaming macros</a></li> <li><a href="#sec:Implicit_renaming_macros">Implicit renaming macros</a></li></ul></li></ul></div><h2 id="sec:Macros"><a href="#sec:Macros">Macros</a></h2><p>CHICKEN supports standard R5RS <tt>syntax-rules</tt> macros and a low-level macro system based on <i>explicit renaming</i>.</p><h3 id="sec:Macro_definitions"><a href="#sec:Macro_definitions">Macro definitions</a></h3><h4 id="sec:define-syntax"><a href="#sec:define-syntax">define-syntax</a></h4><dl class="defsig"><dt class="defsig" id="def:define-syntax"><span class="sig"><tt>(define-syntax IDENTIFIER TRANSFORMER)</tt></span> <span class="type">syntax</span></dt> <dd class="defsig"><p>Defines a macro named <tt>IDENTIFIER</tt> that will transform an expression with <tt>IDENTIFIER</tt> in operator position according to <tt>TRANSFORMER</tt>. The transformer expression must the result of a call to<tt>er-macro-transformer</tt> or <tt>ir-macro-transformer</tt>, or it must be a <tt>syntax-rules</tt> form. If <tt>syntax-rules</tt> is used, the usual R5RS semantics apply. If <tt>TRANSFORMER</tt> is a transformer, then its transformer 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><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></dd> </dl> <h4 id="sec:er-macro-transformer"><a href="#sec:er-macro-transformer">er-macro-transformer</a></h4><dl class="defsig"><dt class="defsig" id="def:er-macro-transformer"><span class="sig"><tt>(er-macro-transformer PROCEDURE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns an explicit-remnaming transformer object wrapping the syntax-transformer procedure <tt>PROCEDURE</tt>. The procedure will be called with the form to be expanded and rename and compare procedures and perform explicit renaming to maintain hygiene. See below for more information about explicit renaming macros.</p></dd> </dl> <h4 id="sec:ir-macro-transformer"><a href="#sec:ir-macro-transformer">ir-macro-transformer</a></h4><dl class="defsig"><dt class="defsig" id="def:ir-macro-transformer"><span class="sig"><tt>(ir-macro-transformer PROCEDURE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a implicit-renaming transformer object wrapping the syntax-transformer procedure <tt>PROCEDURE</tt>. The procedure will be called with the form to be expanded and an inject and compare procedure and perform implicit renaming to maintain hygiene. See below for more information about implicit renaming macros.</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"><tt>(strip-syntax EXPRESSION)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Strips all syntactical information from <tt>EXPRESSION</tt>, returning a new expression where symbols have all context-information removed.</p></dd> </dl> <h3 id="sec:Explicit_renaming_macros"><a href="#sec:Explicit_renaming_macros">Explicit renaming macros</a></h3><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><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><hr /><p>Previous: <a href="Non-standard%20macros%20and%20special%20forms.html">Non-standard macros and special forms</a></p><p>Next: <a href="Modules.html">Modules</a></p></div></div></body>������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Declarations.html��������������������������������������������������������0000644�0001750�0001750�00000041662�13052306551�020536� 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:check-c-syntax">check-c-syntax</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:interrupts-enabled">interrupts-enabled</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><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:check-c-syntax"><a href="#sec:check-c-syntax">check-c-syntax</a></h3><pre>[declaration specifier] (check-c-syntax) [declaration specifier] (not check-c-syntax)</pre><p>Enables or disables syntax-checking of embedded C/C++ code fragments. Checking C syntax is the default.</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) [declaration specifier] (not interrupts-enabled)</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:interrupts-enabled"><a href="#sec:interrupts-enabled">interrupts-enabled</a></h3><pre>[declaration specifier] (interrupts-enabled)</pre><p>Enable timer-interrupts checks in the compiled program (the default).</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="Parameters.html">Parameters</a></p></div></div></body>������������������������������������������������������������������������������chicken-4.12.0/manual-html/The User's Manual.html���������������������������������������������������0000644�0001750�0001750�00000004537�13052306547�021202� 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 4.12.0</p><dl><dt><a href="Getting%20started.html">Getting started</a></dt> <dd>What is CHICKEN and how do I use it?</dd><dt><a href="Basic%20mode%20of%20operation.html">Basic mode of operation</a></dt> <dd>Compiling Scheme files.</dd><dt><a href="Using%20the%20compiler.html">Using the compiler</a></dt> <dd>Explains how to use CHICKEN to compile programs and execute them.</dd><dt><a href="Using%20the%20interpreter.html">Using the interpreter</a></dt> <dd>Invocation and usage of <tt>csi</tt>, the CHICKEN interpreter.</dd><dt><a href="Supported%20language.html">Supported language</a></dt> <dd>The language implemented by CHICKEN (deviations from the standard and extensions).</dd><dt><a href="Debugging.html">Debugging</a></dt> <dd>Using &quot;Feathers&quot;, the CHICKEN debugger.</dd><dt><a href="Interface%20to%20external%20functions%20and%20variables.html">Interface to external functions and variables</a></dt> <dd>Accessing C and C++ code and data.</dd><dt><a href="Extensions.html">Extensions</a></dt> <dd>Packaging and installing extension libraries.</dd><dt><a href="Deployment.html">Deployment</a></dt> <dd>Deploying programs developed with CHICKEN.</dd><dt><a href="Cross%20development.html">Cross development</a></dt> <dd>Building software for a different architecture.</dd><dt><a href="Data%20representation.html">Data representation</a></dt> <dd>How Scheme data is internally represented.</dd><dt><a href="Bugs%20and%20limitations.html">Bugs and limitations</a></dt> <dd>Things that do not work yet.</dd><dt><a href="faq.html">FAQ</a></dt> <dd>A list of Frequently Asked Questions about CHICKEN (and their answers).</dd><dt><a href="Acknowledgements.html">Acknowledgements</a></dt> <dd>A list of some of the people that have contributed to make CHICKEN what it is.</dd><dt><a href="Bibliography.html">Bibliography</a></dt> <dd>Links to documents that may be of interest.</dd></dl> </div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Supported language.html��������������������������������������������������0000644�0001750�0001750�00000005164�13052306550�021653� 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; Supported language</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"><h2 id="sec:Supported_language"><a href="#sec:Supported_language">Supported language</a></h2><ul><li><a href="The%20R5RS%20standard.html">The R5RS standard</a></li> <li><a href="Deviations%20from%20the%20standard.html">Deviations from the standard</a> </li> <li><a href="Extensions%20to%20the%20standard.html">Extensions to the standard</a> </li> <li><a href="Non-standard%20read%20syntax.html">Non-standard read syntax</a> </li> <li><a href="Non-standard%20macros%20and%20special%20forms.html">Non-standard macros and special forms</a></li> <li><a href="Macros.html">Macros</a></li> <li><a href="Modules.html">Modules</a></li> <li><a href="Types.html">Types</a></li> <li><a href="Declarations.html">Declarations</a></li> <li><a href="Parameters.html">Parameters</a></li> <li><a href="Exceptions.html">Exceptions</a></li> <li><a href="Unit%20library.html">Unit library</a> Basic Scheme definitions</li> <li><a href="Unit%20eval.html">Unit eval</a> Evaluation</li> <li><a href="Unit%20expand.html">Unit expand</a> Modules and macros handling</li> <li><a href="Unit%20data-structures.html">Unit data-structures</a> Data structures</li> <li><a href="Unit%20ports.html">Unit ports</a> I/O ports</li> <li><a href="Unit%20files.html">Unit files</a> File and pathname operations</li> <li><a href="Unit%20extras.html">Unit extras</a> Useful utility definitions</li> <li><a href="Unit%20irregex.html">Unit irregex</a> Regular expressions</li> <li><a href="Unit%20srfi-1.html">Unit srfi-1</a> List Library</li> <li><a href="Unit%20srfi-4.html">Unit srfi-4</a> Homogeneous numeric vectors</li> <li><a href="Unit%20srfi-13.html">Unit srfi-13</a> String library</li> <li><a href="Unit%20srfi-14.html">Unit srfi-14</a> Character set library </li> <li><a href="Unit%20srfi-18.html">Unit srfi-18</a> multithreading</li> <li><a href="Unit%20srfi-69.html">Unit srfi-69</a> Hashtable Library</li> <li><a href="Unit%20posix.html">Unit posix</a> Unix-like services</li> <li><a href="Unit%20utils.html">Unit utils</a> Shell scripting and file operations</li> <li><a href="Unit%20tcp.html">Unit tcp</a> Basic TCP-sockets</li> <li><a href="Unit%20lolevel.html">Unit lolevel</a> Low-level operations</li> </ul> <hr /><p>Previous: <a href="Using%20the%20interpreter.html">Using the interpreter</a></p><p>Next: <a href="Debugging.html">Debugging</a></p></div></div></body>������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Unit irregex.html��������������������������������������������������������0000644�0001750�0001750�00000172673�13052306551�020502� 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; Unit 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:Unit_irregex">Unit irregex</a> <ul> <li><a href="#sec:Specification">Specification</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: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-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-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></li></ul></div><h2 id="sec:Unit_irregex"><a href="#sec:Unit_irregex">Unit irregex</a></h2><p>This library unit 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> unit can be made available in the CHICKEN interpreter (<tt>csi</tt>) by entering</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">require-extension irregex</span>)</span></pre><h3 id="sec:Specification"><a href="#sec:Specification">Specification</a></h3><h4 id="sec:Procedures"><a href="#sec:Procedures">Procedures</a></h4><h5 id="sec:irregex"><a href="#sec:irregex">irregex</a></h5><h5 id="sec:string-.3eirregex"><a href="#sec:string-.3eirregex">string-&gt;irregex</a></h5><h5 id="sec:sre-.3eirregex"><a href="#sec:sre-.3eirregex">sre-&gt;irregex</a></h5><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> <h5 id="sec:string-.3esre"><a href="#sec:string-.3esre">string-&gt;sre</a></h5><h5 id="sec:maybe-string-.3esre"><a href="#sec:maybe-string-.3esre">maybe-string-&gt;sre</a></h5><dl class="defsig"><dt class="defsig" id="def:string-.3esre"><span class="sig"><tt>(string-&gt;sre &lt;str&gt;)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:maybe-string-.3esre"><span class="sig"><tt>(maybe-string-&gt;sre &lt;obj&gt;)</tt></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 <tt>&lt;obj&gt;</tt> 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> <h5 id="sec:irregex.3f"><a href="#sec:irregex.3f">irregex?</a></h5><dl class="defsig"><dt class="defsig" id="def:irregex.3f"><span class="sig"><tt>(irregex? &lt;obj&gt;)</tt></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> <h5 id="sec:irregex-search"><a href="#sec:irregex-search">irregex-search</a></h5><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> <h5 id="sec:irregex-match"><a href="#sec:irregex-match">irregex-match</a></h5><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> <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>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> <h5 id="sec:irregex-match-data.3f"><a href="#sec:irregex-match-data.3f">irregex-match-data?</a></h5><dl class="defsig"><dt class="defsig" id="def:irregex-match-data.3f"><span class="sig"><tt>(irregex-match-data? &lt;obj&gt;)</tt></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> <h5 id="sec:irregex-num-submatches"><a href="#sec:irregex-num-submatches">irregex-num-submatches</a></h5><h5 id="sec:irregex-match-num-submatches"><a href="#sec:irregex-match-num-submatches">irregex-match-num-submatches</a></h5><dl class="defsig"><dt class="defsig" id="def:irregex-num-submatches"><span class="sig"><tt>(irregex-num-submatches &lt;irx&gt;)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:irregex-match-num-submatches"><span class="sig"><tt>(irregex-match-num-submatches &lt;match&gt;)</tt></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> <h5 id="sec:irregex-names"><a href="#sec:irregex-names">irregex-names</a></h5><h5 id="sec:irregex-match-names"><a href="#sec:irregex-match-names">irregex-match-names</a></h5><dl class="defsig"><dt class="defsig" id="def:irregex-names"><span class="sig"><tt>(irregex-names &lt;irx&gt;)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:irregex-match-names"><span class="sig"><tt>(irregex-match-names &lt;match&gt;)</tt></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> <h5 id="sec:irregex-match-valid-index.3f"><a href="#sec:irregex-match-valid-index.3f">irregex-match-valid-index?</a></h5><dl class="defsig"><dt class="defsig" id="def:irregex-match-valid-index.3f"><span class="sig"><tt>(irregex-match-valid-index? &lt;match&gt; &lt;index-or-name&gt;)</tt></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> <h5 id="sec:irregex-match-substring"><a href="#sec:irregex-match-substring">irregex-match-substring</a></h5><h5 id="sec:irregex-match-start-index"><a href="#sec:irregex-match-start-index">irregex-match-start-index</a></h5><h5 id="sec:irregex-match-end-index"><a href="#sec:irregex-match-end-index">irregex-match-end-index</a></h5><dl class="defsig"><dt class="defsig" id="def:irregex-match-substring"><span class="sig"><tt>(irregex-match-substring &lt;match&gt; [&lt;index-or-name&gt;])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:irregex-match-start-index"><span class="sig"><tt>(irregex-match-start-index &lt;match&gt; [&lt;index-or-name&gt;])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:irregex-match-end-index"><span class="sig"><tt>(irregex-match-end-index &lt;match&gt; [&lt;index-or-name&gt;])</tt></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> <h5 id="sec:irregex-match-subchunk"><a href="#sec:irregex-match-subchunk">irregex-match-subchunk</a></h5><dl class="defsig"><dt class="defsig" id="def:irregex-match-subchunk"><span class="sig"><tt>(irregex-match-subchunk &lt;match&gt; [&lt;index-or-name&gt;])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>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> <h5 id="sec:irregex-replace"><a href="#sec:irregex-replace">irregex-replace</a></h5><h5 id="sec:irregex-replace.2fall"><a href="#sec:irregex-replace.2fall">irregex-replace/all</a></h5><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> <h5 id="sec:irregex-split"><a href="#sec:irregex-split">irregex-split</a></h5><h5 id="sec:irregex-extract"><a href="#sec:irregex-extract">irregex-extract</a></h5><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> <h5 id="sec:irregex-fold"><a href="#sec:irregex-fold">irregex-fold</a></h5><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> <h4 id="sec:Extended_SRE_Syntax"><a href="#sec:Extended_SRE_Syntax">Extended SRE Syntax</a></h4><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><h5 id="sec:Basic_SRE_Patterns"><a href="#sec:Basic_SRE_Patterns">Basic SRE Patterns</a></h5><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><h5 id="sec:SRE_Repetition_Patterns"><a href="#sec:SRE_Repetition_Patterns">SRE Repetition Patterns</a></h5><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><h5 id="sec:SRE_Character_Sets"><a href="#sec:SRE_Character_Sets">SRE Character Sets</a></h5><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><h5 id="sec:SRE_Assertion_Patterns"><a href="#sec:SRE_Assertion_Patterns">SRE Assertion Patterns</a></h5><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><h5 id="sec:SRE_Utility_Patterns"><a href="#sec:SRE_Utility_Patterns">SRE Utility Patterns</a></h5><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><h4 id="sec:Supported_PCRE_Syntax"><a href="#sec:Supported_PCRE_Syntax">Supported PCRE Syntax</a></h4><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><h4 id="sec:Chunked_String_Matching"><a href="#sec:Chunked_String_Matching">Chunked String Matching</a></h4><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><h5 id="sec:make-irregex-chunker"><a href="#sec:make-irregex-chunker">make-irregex-chunker</a></h5><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> <h5 id="sec:irregex-search.2fchunked"><a href="#sec:irregex-search.2fchunked">irregex-search/chunked</a></h5><h5 id="sec:irregex-match.2fchunked"><a href="#sec:irregex-match.2fchunked">irregex-match/chunked</a></h5><dl class="defsig"><dt class="defsig" id="def:irregex-search.2fchunked"><span class="sig"><tt>(irregex-search/chunked &lt;irx&gt; &lt;chunker&gt; &lt;chunk&gt; [&lt;start&gt;])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:irregex-match.2fchunked"><span class="sig"><tt>(irregex-match/chunked &lt;irx&gt; &lt;chunker&gt; &lt;chunk&gt; [&lt;start&gt;])</tt></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> <h5 id="sec:irregex-fold.2fchunked"><a href="#sec:irregex-fold.2fchunked">irregex-fold/chunked</a></h5><dl class="defsig"><dt class="defsig" id="def:irregex-fold.2fchunked"><span class="sig"><tt>(irregex-fold/chunked &lt;irx&gt; &lt;kons&gt; &lt;knil&gt; &lt;chunker&gt; &lt;chunk&gt; [&lt;finish&gt; [&lt;start-index&gt;]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Chunked version of <tt>irregex-fold</tt>.</p></dd> </dl> <h4 id="sec:Utilities"><a href="#sec:Utilities">Utilities</a></h4><p>The following procedures are also available.</p><h5 id="sec:irregex-quote"><a href="#sec:irregex-quote">irregex-quote</a></h5><dl class="defsig"><dt class="defsig" id="def:irregex-quote"><span class="sig"><tt>(irregex-quote &lt;str&gt;)</tt></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> <h5 id="sec:irregex-opt"><a href="#sec:irregex-opt">irregex-opt</a></h5><dl class="defsig"><dt class="defsig" id="def:irregex-opt"><span class="sig"><tt>(irregex-opt &lt;list-of-strings&gt;)</tt></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> <h5 id="sec:sre-.3estring"><a href="#sec:sre-.3estring">sre-&gt;string</a></h5><dl class="defsig"><dt class="defsig" id="def:sre-.3estring"><span class="sig"><tt>(sre-&gt;string &lt;sre&gt;)</tt></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="Unit%20extras.html">Unit extras</a></p><p>Next: <a href="Unit%20srfi-1.html">Unit srfi-1</a></p></div></div></body>���������������������������������������������������������������������chicken-4.12.0/manual-html/Unit data-structures.html������������������������������������������������0000644�0001750�0001750�00000111774�13052306550�022161� 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; Unit data-structures</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:Unit_data-structures">Unit data-structures</a> <ul> <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:rassoc">rassoc</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:intersperse">intersperse</a></li> <li><a href="#sec:join">join</a></li> <li><a href="#sec:tail.3f">tail?</a></li></ul></li> <li><a href="#sec:Queues">Queues</a> <ul> <li><a href="#sec:list-.3equeue">list-&gt;queue</a></li> <li><a href="#sec:make-queue">make-queue</a></li> <li><a href="#sec:queue.3f">queue?</a></li> <li><a href="#sec:queue-length">queue-length</a></li> <li><a href="#sec:queue-.3elist">queue-&gt;list</a></li> <li><a href="#sec:queue-add.21">queue-add!</a></li> <li><a href="#sec:queue-empty.3f">queue-empty?</a></li> <li><a href="#sec:queue-first">queue-first</a></li> <li><a href="#sec:queue-last">queue-last</a></li> <li><a href="#sec:queue-remove.21">queue-remove!</a></li> <li><a href="#sec:queue-push-back.21">queue-push-back!</a></li> <li><a href="#sec:queue-push-back-list.21">queue-push-back-list!</a></li></ul></li> <li><a href="#sec:Sorting">Sorting</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> <li><a href="#sec:Strings">Strings</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-string-append">reverse-string-append</a></li></ul></li> <li><a href="#sec:Combinators">Combinators</a> <ul> <li><a href="#sec:any.3f">any?</a></li> <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:Binary_searching">Binary searching</a> <ul> <li><a href="#sec:binary-search">binary-search</a></li></ul></li></ul></li></ul></div><h2 id="sec:Unit_data-structures"><a href="#sec:Unit_data-structures">Unit data-structures</a></h2><p>This unit contains a collection of procedures related to data structures. This unit is used by default, unless the program is compiled with the <tt>-explicit-use</tt> option.</p><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"><tt>(alist-ref KEY ALIST [TEST [DEFAULT]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Looks up <tt>KEY</tt> in <tt>ALIST</tt> using <tt>TEST</tt> as the comparison function (or <tt>eqv?</tt> if no test was given) and returns the cdr of the found pair, or <tt>DEFAULT</tt> (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"><tt>(alist-update KEY VALUE ALIST [TEST])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:alist-update.21"><span class="sig"><tt>(alist-update! KEY VALUE ALIST [TEST])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>If the list <tt>ALIST</tt> contains a pair of the form <tt>(KEY . X)</tt>, then this procedure replaces <tt>X</tt> with <tt>VALUE</tt> and returns <tt>ALIST</tt>. If <tt>ALIST</tt> contains no such item, then <tt>alist-update</tt> returns <tt>((KEY . VALUE) . ALIST)</tt>. The optional argument <tt>TEST</tt> specifies the comparison procedure to search a matching pair in <tt>ALIST</tt> 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"><tt>(atom? X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>X</tt> is not a pair. This is identical to <tt>not-pair?</tt> from <a href="Unit%20srfi-1.html">Unit srfi-1</a> but kept for historical reasons.</p></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"><tt>(rassoc KEY LIST [TEST])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Similar to <tt>assoc</tt>, but compares <tt>KEY</tt> with the <tt>cdr</tt> of each pair in <tt>LIST</tt> using <tt>TEST</tt> as the comparison procedures (which defaults to <tt>eqv?</tt>.</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"><tt>(butlast LIST)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a fresh list with all elements but the last of <tt>LIST</tt>.</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"><tt>(chop LIST N)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new list of sublists, where each sublist contains <tt>N</tt> elements of <tt>LIST</tt>. If <tt>LIST</tt> has a length that is not a multiple of <tt>N</tt>, 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"><tt>(compress BLIST LIST)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new list with elements taken from <tt>LIST</tt> with corresponding true values in the list <tt>BLIST</tt>.</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"><tt>(flatten LIST1 ...)</tt></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:intersperse"><a href="#sec:intersperse">intersperse</a></h4><dl class="defsig"><dt class="defsig" id="def:intersperse"><span class="sig"><tt>(intersperse LIST X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new list with <tt>X</tt> 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"><tt>(join LISTOFLISTS [LIST])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Concatenates the lists in <tt>LISTOFLISTS</tt> with <tt>LIST</tt> placed between each sublist. <tt>LIST</tt> 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:tail.3f"><a href="#sec:tail.3f">tail?</a></h4><dl class="defsig"><dt class="defsig" id="def:tail.3f"><span class="sig"><tt>(tail? X LIST)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns true if <tt>X</tt> is one of the tails (cdr's) of <tt>LIST</tt>.</p></dd> </dl> <h3 id="sec:Queues"><a href="#sec:Queues">Queues</a></h3><h4 id="sec:list-.3equeue"><a href="#sec:list-.3equeue">list-&gt;queue</a></h4><dl class="defsig"><dt class="defsig" id="def:list-.3equeue"><span class="sig"><tt>(list-&gt;queue LIST)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>LIST</tt> converted into a queue, where the first element of the list is the same as the first element of the queue. The resulting queue may share memory with the list and the list should not be modified after this operation.</p></dd> </dl> <h4 id="sec:make-queue"><a href="#sec:make-queue">make-queue</a></h4><dl class="defsig"><dt class="defsig" id="def:make-queue"><span class="sig"><tt>(make-queue)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a newly created queue.</p></dd> </dl> <h4 id="sec:queue.3f"><a href="#sec:queue.3f">queue?</a></h4><dl class="defsig"><dt class="defsig" id="def:queue.3f"><span class="sig"><tt>(queue? X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>X</tt> is a queue, or <tt>#f</tt> otherwise.</p></dd> </dl> <h4 id="sec:queue-length"><a href="#sec:queue-length">queue-length</a></h4><dl class="defsig"><dt class="defsig" id="def:queue-length"><span class="sig"><tt>(queue-length QUEUE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the current number of items stored in <tt>QUEUE</tt>.</p></dd> </dl> <h4 id="sec:queue-.3elist"><a href="#sec:queue-.3elist">queue-&gt;list</a></h4><dl class="defsig"><dt class="defsig" id="def:queue-.3elist"><span class="sig"><tt>(queue-&gt;list QUEUE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>QUEUE</tt> converted into a list, where the first element of the list is the same as the first element of the queue. The resulting list is freshly allocated and does not share memory with the queue object.</p></dd> </dl> <h4 id="sec:queue-add.21"><a href="#sec:queue-add.21">queue-add!</a></h4><dl class="defsig"><dt class="defsig" id="def:queue-add.21"><span class="sig"><tt>(queue-add! QUEUE X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Adds <tt>X</tt> to the rear of <tt>QUEUE</tt>.</p></dd> </dl> <h4 id="sec:queue-empty.3f"><a href="#sec:queue-empty.3f">queue-empty?</a></h4><dl class="defsig"><dt class="defsig" id="def:queue-empty.3f"><span class="sig"><tt>(queue-empty? QUEUE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>QUEUE</tt> is empty, or <tt>#f</tt> otherwise.</p></dd> </dl> <h4 id="sec:queue-first"><a href="#sec:queue-first">queue-first</a></h4><dl class="defsig"><dt class="defsig" id="def:queue-first"><span class="sig"><tt>(queue-first QUEUE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the first element of <tt>QUEUE</tt>. If <tt>QUEUE</tt> is empty an error is signaled</p></dd> </dl> <h4 id="sec:queue-last"><a href="#sec:queue-last">queue-last</a></h4><dl class="defsig"><dt class="defsig" id="def:queue-last"><span class="sig"><tt>(queue-last QUEUE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the last element of <tt>QUEUE</tt>. If <tt>QUEUE</tt> is empty an error is signaled</p></dd> </dl> <h4 id="sec:queue-remove.21"><a href="#sec:queue-remove.21">queue-remove!</a></h4><dl class="defsig"><dt class="defsig" id="def:queue-remove.21"><span class="sig"><tt>(queue-remove! QUEUE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Removes and returns the first element of <tt>QUEUE</tt>. If <tt>QUEUE</tt> is empty an error is signaled</p></dd> </dl> <h4 id="sec:queue-push-back.21"><a href="#sec:queue-push-back.21">queue-push-back!</a></h4><dl class="defsig"><dt class="defsig" id="def:queue-push-back.21"><span class="sig"><tt>(queue-push-back! QUEUE ITEM)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Pushes an item into the first position of a queue, i.e. the next <tt>queue-remove!</tt> will return <tt>ITEM</tt>.</p></dd> </dl> <h4 id="sec:queue-push-back-list.21"><a href="#sec:queue-push-back-list.21">queue-push-back-list!</a></h4><dl class="defsig"><dt class="defsig" id="def:queue-push-back-list.21"><span class="sig"><tt>(queue-push-back-list! QUEUE LIST)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Pushes the items in item-list back onto the queue, so that <tt>(car LIST)</tt> becomes the next removable item.</p></dd> </dl> <h3 id="sec:Sorting"><a href="#sec:Sorting">Sorting</a></h3><h4 id="sec:merge"><a href="#sec:merge">merge</a></h4><dl class="defsig"><dt class="defsig" id="def:merge"><span class="sig"><tt>(merge LIST1 LIST2 LESS?)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:merge.21"><span class="sig"><tt>(merge! LIST1 LIST2 LESS?)</tt></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> <h4 id="sec:sort"><a href="#sec:sort">sort</a></h4><dl class="defsig"><dt class="defsig" id="def:sort"><span class="sig"><tt>(sort SEQUENCE LESS?)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:sort.21"><span class="sig"><tt>(sort! SEQUENCE LESS?)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Sort <tt>SEQUENCE</tt>, which should be a list or a vector. <tt>sort!</tt> is the destructive version of sort.</p></dd> </dl> <h4 id="sec:sorted.3f"><a href="#sec:sorted.3f">sorted?</a></h4><dl class="defsig"><dt class="defsig" id="def:sorted.3f"><span class="sig"><tt>(sorted? SEQUENCE LESS?)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns true if the list or vector <tt>SEQUENCE</tt> is already sorted.</p></dd> </dl> <h4 id="sec:topological-sort"><a href="#sec:topological-sort">topological-sort</a></h4><dl class="defsig"><dt class="defsig" id="def:topological-sort"><span class="sig"><tt>(topological-sort DAG PRED)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Sorts the directed acyclic graph dag <tt>DAG</tt> so that for every edge from vertex u to v, u will come before v in the resulting list of vertices.</p><p><tt>DAG</tt> 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> <h3 id="sec:Strings"><a href="#sec:Strings">Strings</a></h3><h4 id="sec:conc"><a href="#sec:conc">conc</a></h4><dl class="defsig"><dt class="defsig" id="def:conc"><span class="sig"><tt>(conc X ...)</tt></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> <h4 id="sec:-.3estring"><a href="#sec:-.3estring">-&gt;string</a></h4><dl class="defsig"><dt class="defsig" id="def:-.3estring"><span class="sig"><tt>(-&gt;string X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a string-representation of <tt>X</tt>.</p></dd> </dl> <h4 id="sec:string-chop"><a href="#sec:string-chop">string-chop</a></h4><dl class="defsig"><dt class="defsig" id="def:string-chop"><span class="sig"><tt>(string-chop STRING LENGTH)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a list of substrings taken by <i>chopping</i> <tt>STRING</tt> every <tt>LENGTH</tt> 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> <h4 id="sec:string-chomp"><a href="#sec:string-chomp">string-chomp</a></h4><dl class="defsig"><dt class="defsig" id="def:string-chomp"><span class="sig"><tt>(string-chomp STRING [SUFFIX])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>If <tt>STRING</tt> ends with <tt>SUFFIX</tt>, then this procedure returns a copy of its first argument with the suffix removed, otherwise returns <tt>STRING</tt> unchanged. <tt>SUFFIX</tt> defaults to <tt>&quot;\n&quot;</tt>.</p></dd> </dl> <h4 id="sec:string-compare3"><a href="#sec:string-compare3">string-compare3</a></h4><dl class="defsig"><dt class="defsig" id="def:string-compare3"><span class="sig"><tt>(string-compare3 STRING1 STRING2)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-compare3-ci"><span class="sig"><tt>(string-compare3-ci STRING1 STRING2)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Perform a three-way comparison between the <tt>STRING1</tt> and <tt>STRING2</tt>, returning either <tt>-1</tt> if <tt>STRING1</tt> is lexicographically less than <tt>STRING2</tt>, <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> <h4 id="sec:string-intersperse"><a href="#sec:string-intersperse">string-intersperse</a></h4><dl class="defsig"><dt class="defsig" id="def:string-intersperse"><span class="sig"><tt>(string-intersperse LIST [STRING])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a string that contains all strings in <tt>LIST</tt> concatenated together. <tt>STRING</tt> 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> <h4 id="sec:string-split"><a href="#sec:string-split">string-split</a></h4><dl class="defsig"><dt class="defsig" id="def:string-split"><span class="sig"><tt>(string-split STRING [DELIMITER-STRING [KEEPEMPTY]])</tt></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 <tt>KEEPEMPTY</tt> 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> <h4 id="sec:string-translate"><a href="#sec:string-translate">string-translate</a></h4><dl class="defsig"><dt class="defsig" id="def:string-translate"><span class="sig"><tt>(string-translate STRING FROM [TO])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a fresh copy of <tt>STRING</tt> with characters matching <tt>FROM</tt> translated to <tt>TO</tt>. If <tt>TO</tt> is omitted, then matching characters are removed. <tt>FROM</tt> and <tt>TO</tt> may be a character, a string or a list. If both <tt>FROM</tt> and <tt>TO</tt> are strings, then the character at the same position in <tt>TO</tt> as the matching character in <tt>FROM</tt> is substituted.</p></dd> </dl> <h4 id="sec:string-translate.2a"><a href="#sec:string-translate.2a">string-translate*</a></h4><dl class="defsig"><dt class="defsig" id="def:string-translate.2a"><span class="sig"><tt>(string-translate* STRING SMAP)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Substitutes elements of <tt>STRING</tt> according to <tt>SMAP</tt>. <tt>SMAP</tt> 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 <tt>STRING</tt> 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> <h4 id="sec:substring.3d.3f"><a href="#sec:substring.3d.3f">substring=?</a></h4><dl class="defsig"><dt class="defsig" id="def:substring.3d.3f"><span class="sig"><tt>(substring=? STRING1 STRING2 [START1 [START2 [LENGTH]]])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:substring-ci.3d.3f"><span class="sig"><tt>(substring-ci=? STRING1 STRING2 [START1 [START2 [LENGTH]]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if the strings <tt>STRING1</tt> and <tt>STRING2</tt> are equal, or <tt>#f</tt> otherwise. The comparison starts at the positions <tt>START1</tt> and <tt>START2</tt> (which default to 0), comparing <tt>LENGTH</tt> characters (which defaults to the minimum of the remaining length of both strings).</p></dd> </dl> <h4 id="sec:substring-index"><a href="#sec:substring-index">substring-index</a></h4><dl class="defsig"><dt class="defsig" id="def:substring-index"><span class="sig"><tt>(substring-index WHICH WHERE [START])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:substring-index-ci"><span class="sig"><tt>(substring-index-ci WHICH WHERE [START])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Searches for first index in string <tt>WHERE</tt> where string <tt>WHICH</tt> occurs. If the optional argument <tt>START</tt> 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> <h4 id="sec:reverse-string-append"><a href="#sec:reverse-string-append">reverse-string-append</a></h4><dl class="defsig"><dt class="defsig" id="def:reverse-string-append"><span class="sig"><tt>(reverse-string-append LIST)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>(apply string-append (reverse LIST))</tt></p></dd> </dl> <h3 id="sec:Combinators"><a href="#sec:Combinators">Combinators</a></h3><h4 id="sec:any.3f"><a href="#sec:any.3f">any?</a></h4><dl class="defsig"><dt class="defsig" id="def:any.3f"><span class="sig"><tt>(any? X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Ignores its argument and always returns <tt>#t</tt>. This is actually useful sometimes.</p></dd> </dl> <h4 id="sec:constantly"><a href="#sec:constantly">constantly</a></h4><dl class="defsig"><dt class="defsig" id="def:constantly"><span class="sig"><tt>(constantly X ...)</tt></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"><tt>(complement PROC)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a procedure that returns the boolean inverse of <tt>PROC</tt>.</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"><tt>(compose PROC1 PROC2 ...)</tt></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"><tt>(conjoin PRED ...)</tt></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"><tt>(disjoin PRED ...)</tt></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"><tt>(each PROC ...)</tt></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 <tt>PROC</tt> 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"><tt>(flip PROC)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a two-argument procedure that calls <tt>PROC</tt> 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"><tt>(identity X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns its sole argument <tt>X</tt>.</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"><tt>(list-of? PRED)</tt></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 <tt>PRED</tt>, 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"><tt>(o PROC ...)</tt></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:Binary_searching"><a href="#sec:Binary_searching">Binary searching</a></h3><h4 id="sec:binary-search"><a href="#sec:binary-search">binary-search</a></h4><dl class="defsig"><dt class="defsig" id="def:binary-search"><span class="sig"><tt>(binary-search SEQUENCE PROC)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Performs a binary search in <tt>SEQUENCE</tt>, which should be a sorted list or vector. <tt>PROC</tt> is called to compare items in the sequence, should accept a single argument and return an exact integer: zero if the searched value is equal to the current item, negative if the searched value is <i>less</i> than the current item, and positive otherwise. Returns the index of the found value or <tt>#f</tt> otherwise.</p></dd> </dl> <hr /><p>Previous: <a href="Unit%20expand.html">Unit expand</a></p><p>Next: <a href="Unit%20ports.html">Unit ports</a></p></div></div></body>����chicken-4.12.0/manual-html/Getting started.html�����������������������������������������������������0000644�0001750�0001750�00000076565�13052306550�021167� 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 and Emacs Lisp are the other two 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 language design.</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 not all Scheme implementations will be made compliant with it. CHICKEN essentially complies with R5RS.</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><p>The CHICKEN community is at present developing tutorials for programmers who are new to Scheme but experienced with Python, Ruby, or other languages. These can be found on the CHICKEN wiki.</p><h3 id="sec:CHICKEN"><a href="#sec:CHICKEN">CHICKEN</a></h3><p>CHICKEN is an implementation of Scheme that has many advantages.</p><p>CHICKEN Scheme combines an optimising compiler with a reasonably fast interpreter. It supports almost all of R5RS 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 almost all of R5RS 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<ul><li>the C support allows Scheme code to include `embedded' C code, thus making it relatively easy to invoke host OS or library functions</li> </ul> </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.</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 relatively inexpensive, because a generational garbage collection scheme is used, in which short-lived data structures are reclaimed extremely quickly.</li> <li>Moreover, <tt>call-with-current-continuation</tt> is practically for free 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 is fully tail-recursive.</p><p>Some of the features supported by CHICKEN:</p><ul><li>SRFIs 0, 1, 2, 4, 6, 8-18, 23, 26, 28, 30, 31, 39, 46, 55, 61, 62, 69, 85, 88 and 98.</li> <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>Create interpreted or compiled shell scripts written in Scheme for UNIX or Windows</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 and deployment</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 large-scale 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.2c_and_community"><a href="#sec:CHICKEN_repositories.2c_websites.2c_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 CHICKEN is 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 were shipped on the OS X DVD with older versions of the operating system, and are installable from the App Store with recent versions of the operating system.</li> <li>On Windows, you have three choices:<ul><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.<ul><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> is 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> </li> </ul> </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 calling 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>You will need a text editor that knows Scheme; it's just too painful with editors that don't do parenthesis matching and proper indentation. Some editors allow you to execute Scheme code directly in the editor. This makes programming very interactive: you can type in a function and then try it right away. This feature is very highly recommended.</p><p>As programmers have very specific tastes about editors, the editors listed here are shown in alphabetic order. We aren't about to tell you which editor to use, and there may be editors not shown here that might satisfy your needs. We would be very interested in reports of other editors that have been used with CHICKEN, especially those that support interactive evaluation of forms during editing. Pointers to these (and to any editor customization files appropriate) should be put on the CHICKEN wiki, and will likely be added to future editions of this manual. (We have had a request for editors that support proportional fonts, in particular.)</p><ul><li>Emacs (<a href="http://www.gnu.org/software/emacs">http://www.gnu.org/software/emacs</a>) is an extensible, customizable, self-documenting editor available for Linux/Unix, Macintosh, and Windows systems; See <a href="http://wiki.call-cc.org/emacs">http://wiki.call-cc.org/emacs</a> for more information about the available options.</li> <li>SciTE (<a href="http://scintilla.sourceforge.net/SciTE.html">http://scintilla.sourceforge.net/SciTE.html</a>), unlike Emacs or Vim, follows typical graphical UI design conventions and control-key mappings, and for simple tasks is as familiar and easy to use as Notepad, KEdit, TeachText etc. However it has many programming features such as multiple open files, syntax highlighting for a large number of languages (including Lisps), matching of brackets, ability to fold sections of code based on the matched brackets, column selections, comment/uncomment, and the ability to run commands in the same directory as the current file (such as make, grep, etc.) SciTE is written with the GTK toolkit and is portable to any GTK platform, including Windows, Linux and MacOS. It uses the Scintilla text-editing component, which lends itself well to embedding within other IDEs and graphical toolkits. It does not have any other Scheme-specific features, but being open-source and modular, features like auto-formatting of S-expressions could be added. The syntax highlighting can be configured to use different fonts for different types of syntax, including proportional fonts.</li> <li>Vim (<a href="http://www.vim.org">http://www.vim.org</a>) is a highly configurable text editor built to enable efficient and fast text editing. It is an improved version of the vi editor distributed with most UNIX systems. Vim comes with generic Lisp (and therefore Scheme) editing capabilities out of the box. See <a href="http://wiki.call-cc.org/Vim">/Vim</a> for a few tips on using Vim with CHICKEN.</li> </ul> <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-2016, The CHICKEN Team (c) 2000-2007, Felix L. Winkelmann Version 4.11.0 (rev ce980c4) linux-unix-gnu-x86-64 [ 64bit manyargs dload ptables ] compiled 2016-05-28 on yves.more-magic.net (Linux) #;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="paren1">(<span class="default">use irregex</span>)</span> <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"><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> </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>Compiled code can be intermixed with interpreted code on systems that support dynamic loading, which includes modern versions of *BSD, Linux, Mac OS X, Solaris, and Windows.</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 type is used in OS X and Windows, rather than <tt>dylib</tt> or <tt>dll</tt>, respectively).</p><pre>chicken$ csc -dynamic 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"><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"><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><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 (again, 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. The installation produces a lot of output, which we have edited for space.</p><pre>$ chicken-install uri-common retrieving ... resolving alias `kitten-technologies' to: http://chicken.kitten-technologies.co.uk/henrietta.cgi connecting to host &quot;chicken.kitten-technologies.co.uk&quot;, port 80 ... requesting &quot;/henrietta.cgi?name=uri-common&amp;mode=default&quot; ... reading response ... [...] /usr/bin/csc -feature compiling-extension -setup-mode -s -O2 uri-common.scm -j uri-common /usr/bin/csc -feature compiling-extension -setup-mode -s -O2 uri-common.import.scm cp -r uri-common.so /usr/lib/chicken/5/uri-common.so chmod a+r /usr/lib/chicken/5/uri-common.so cp -r uri-common.import.so /usr/lib/chicken/5/uri-common.import.so chmod a+r /usr/lib/chicken/5/uri-common.import.so chmod a+r /usr/lib/chicken/5/uri-common.setup-info</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; (use uri-common) ; loading /usr/lib/chicken/5/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 nearly 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 #&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="Basic%20mode%20of%20operation.html">Basic mode of operation</a></p></div></div></body>�������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Locations.html�����������������������������������������������������������0000644�0001750�0001750�00000011762�13052306550�020056� 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; Locations</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: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: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="Callbacks.html">Callbacks</a></p><p>Next: <a href="Other%20support%20procedures.html">Other support procedures</a></p></div></div></body>��������������chicken-4.12.0/manual-html/Unit posix.html����������������������������������������������������������0000644�0001750�0001750�00000315243�13052306547�020174� 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; Unit 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:Unit_posix">Unit 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: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:Permission_bits">Permission bits</a></li></ul></li> <li><a href="#sec:Directories">Directories</a> <ul> <li><a href="#sec:change-directory">change-directory</a></li> <li><a href="#sec:change-directory.2a">change-directory*</a></li> <li><a href="#sec:current-directory">current-directory</a></li> <li><a href="#sec:create-directory">create-directory</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.3f">directory?</a></li> <li><a href="#sec:glob">glob</a></li> <li><a href="#sec:set-root-directory.21">set-root-directory!</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: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: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: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: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:regular-file.3f">regular-file?</a></li> <li><a href="#sec:file-owner">file-owner</a></li> <li><a href="#sec:file-permissions">file-permissions</a></li> <li><a href="#sec:file-read-access.3f">file-read-access?</a></li> <li><a href="#sec:file-write-access.3f">file-write-access?</a></li> <li><a href="#sec:file-execute-access.3f">file-execute-access?</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></ul></li> <li><a href="#sec:Changing_file_attributes">Changing file attributes</a> <ul> <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:change-file-mode">change-file-mode</a></li> <li><a href="#sec:change-file-owner">change-file-owner</a></li> <li><a href="#sec:file-creation-mode">file-creation-mode</a></li></ul></li> <li><a href="#sec:Processes">Processes</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: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-wait">process-wait</a></li> <li><a href="#sec:process">process</a></li> <li><a href="#sec:process.2a">process*</a></li> <li><a href="#sec:sleep">sleep</a></li> <li><a href="#sec:create-session">create-session</a></li></ul></li> <li><a href="#sec:Hard_and_symbolic_links">Hard and symbolic links</a> <ul> <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> <li><a href="#sec:file-link">file-link</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-effective-user-id">current-effective-user-id</a></li> <li><a href="#sec:user-information">user-information</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> <li><a href="#sec:group-information">group-information</a></li> <li><a href="#sec:get-groups">get-groups</a></li></ul></li> <li><a href="#sec:Changing_user_.26_group_information">Changing user &amp; group information</a> <ul> <li><a href="#sec:set-groups.21">set-groups!</a></li> <li><a href="#sec:initialize-groups">initialize-groups</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> <li><a href="#sec:Signal_handling">Signal handling</a> <ul> <li><a href="#sec:set-alarm.21">set-alarm!</a></li> <li><a href="#sec:set-signal-handler.21">set-signal-handler!</a></li> <li><a href="#sec:signal-handler">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> <li><a href="#sec:Environment_access">Environment access</a> <ul> <li><a href="#sec:get-environment-variables">get-environment-variables</a></li> <li><a href="#sec:setenv">setenv</a></li> <li><a href="#sec:unsetenv">unsetenv</a></li></ul></li> <li><a href="#sec:Memory_mapped_I.2fO">Memory mapped I/O</a> <ul> <li><a href="#sec:memory-mapped-file.3f">memory-mapped-file?</a></li> <li><a href="#sec:map-file-to-memory">map-file-to-memory</a></li> <li><a href="#sec:memory-mapped-file-pointer">memory-mapped-file-pointer</a></li> <li><a href="#sec:unmap-file-from-memory">unmap-file-from-memory</a></li> <li><a href="#sec:Memory_Mapped_I.2fO_Example">Memory Mapped I/O Example</a></li></ul></li> <li><a href="#sec:Date_and_time_routines">Date and time routines</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> <li><a href="#sec:Raw_exit">Raw exit</a> <ul> <li><a href="#sec:_exit">_exit</a></li></ul></li> <li><a href="#sec:ERRNO_values">ERRNO values</a></li> <li><a href="#sec:Finding_files">Finding files</a> <ul> <li><a href="#sec:find-files">find-files</a></li></ul></li> <li><a href="#sec:Getting_the_hostname_and_system_information">Getting the hostname and system information</a> <ul> <li><a href="#sec:get-host-name">get-host-name</a></li> <li><a href="#sec:system-information">system-information</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:How_Scheme_procedures_relate_to_UNIX_C_functions">How Scheme procedures relate to UNIX C functions</a></li> <li><a href="#sec:Windows_specific_notes">Windows specific notes</a> <ul> <li><a href="#sec:Procedure_Changes">Procedure Changes</a></li> <li><a href="#sec:Unsupported_Definitions">Unsupported Definitions</a></li> <li><a href="#sec:Additional_Definitions">Additional Definitions</a></li> <li><a href="#sec:process-spawn">process-spawn</a></li></ul></li></ul></li></ul></div><h2 id="sec:Unit_posix"><a href="#sec:Unit_posix">Unit posix</a></h2><p>This unit provides services as used on many UNIX-like systems. Note that the following definitions are not all available on non-UNIX systems like Windows. See below for Windows specific notes.</p><p>This unit uses the <tt>regex</tt>, <tt>scheduler</tt>, <tt>extras</tt> and <tt>utils</tt> units.</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"><tt>fcntl/dupfd</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:fcntl.2fgetfd"><span class="sig"><tt>fcntl/getfd</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:fcntl.2fsetfd"><span class="sig"><tt>fcntl/setfd</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:fcntl.2fgetfl"><span class="sig"><tt>fcntl/getfl</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:fcntl.2fsetfl"><span class="sig"><tt>fcntl/setfl</tt></span> <span class="type">constant</span></dt> <dd class="defsig"><p>Operations used with <tt>file-control</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"><tt>fileno/stdin</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:fileno.2fstdout"><span class="sig"><tt>fileno/stdout</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:fileno.2fstderr"><span class="sig"><tt>fileno/stderr</tt></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"><tt>open/rdonly</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fwronly"><span class="sig"><tt>open/wronly</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:open.2frdwr"><span class="sig"><tt>open/rdwr</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fread"><span class="sig"><tt>open/read</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fwrite"><span class="sig"><tt>open/write</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fcreat"><span class="sig"><tt>open/creat</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fappend"><span class="sig"><tt>open/append</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fexcl"><span class="sig"><tt>open/excl</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fnoctty"><span class="sig"><tt>open/noctty</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fnonblock"><span class="sig"><tt>open/nonblock</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:open.2ftrunc"><span class="sig"><tt>open/trunc</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fsync"><span class="sig"><tt>open/sync</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:open.2ffsync"><span class="sig"><tt>open/fsync</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fbinary"><span class="sig"><tt>open/binary</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:open.2ftext"><span class="sig"><tt>open/text</tt></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></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"><tt>perm/irusr</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2fiwusr"><span class="sig"><tt>perm/iwusr</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2fixusr"><span class="sig"><tt>perm/ixusr</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2firgrp"><span class="sig"><tt>perm/irgrp</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2fiwgrp"><span class="sig"><tt>perm/iwgrp</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2fixgrp"><span class="sig"><tt>perm/ixgrp</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2firoth"><span class="sig"><tt>perm/iroth</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2fiwoth"><span class="sig"><tt>perm/iwoth</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2fixoth"><span class="sig"><tt>perm/ixoth</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2firwxu"><span class="sig"><tt>perm/irwxu</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2firwxg"><span class="sig"><tt>perm/irwxg</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2firwxo"><span class="sig"><tt>perm/irwxo</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2fisvtx"><span class="sig"><tt>perm/isvtx</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2fisuid"><span class="sig"><tt>perm/isuid</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2fisgid"><span class="sig"><tt>perm/isgid</tt></span> <span class="type">constant</span></dt> <dd class="defsig"><p>Permission bits used with, for example, <tt>file-open</tt>.</p></dd> </dl> <h3 id="sec:Directories"><a href="#sec:Directories">Directories</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"><tt>(change-directory NAME)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Changes the current working directory to <tt>NAME</tt>.</p></dd> </dl> <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"><tt>(change-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 <tt>FD</tt>, which should be an exact integer.</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"><tt>(current-directory [DIR])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the name of the current working directory. If the optional argument <tt>DIR</tt> is given, then <tt>(current-directory DIR)</tt> is equivalent to <tt>(change-directory DIR)</tt>.</p></dd> </dl> <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"><tt>(create-directory NAME #!optional PARENTS?)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a directory with the pathname <tt>NAME</tt>. If the <tt>PARENTS?</tt> argument is given and not false, any nonexistent parent directories are also created.</p><p>Notice that if <tt>NAME</tt> exists, <tt>create-directory</tt> won't try to create it and will return <tt>NAME</tt> (i.e., it won't raise an error when given a <tt>NAME</tt> that already exists).</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"><tt>(delete-directory NAME [RECURSIVE])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Deletes the directory with the pathname <tt>NAME</tt>. If <tt>RECURSIVE</tt> 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"><tt>(directory [PATHNAME [SHOW-DOTFILES?]])</tt></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 <tt>PATHNAME</tt> (which defaults to the value of <tt>(current-directory)</tt>). Files beginning with <tt>.</tt> are included only if <tt>SHOW-DOTFILES?</tt> is given and not <tt>#f</tt>.</p></dd> </dl> <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"><tt>(directory? FILE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>FILE</tt> designates directory. Otherwise, it returns <tt>#f</tt>. <tt>FILE</tt> may be a pathname, a file-descriptor or a port object.</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"><tt>(glob PATTERN1 ...)</tt></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> <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"><tt>(set-root-directory! STRING)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the root directory for the current process to the path given in <tt>STRING</tt> (using the <tt>chroot</tt> function). If the current process has no root permissions, the operation will fail.</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"><tt>(call-with-input-pipe CMDLINE PROC [MODE])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:call-with-output-pipe"><span class="sig"><tt>(call-with-output-pipe CMDLINE PROC [MODE])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Call <tt>PROC</tt> with a single argument: a input- or output port for a pipe connected to the subprocess named in <tt>CMDLINE</tt>. If <tt>PROC</tt> 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"><tt>(close-input-pipe PORT)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:close-output-pipe"><span class="sig"><tt>(close-output-pipe PORT)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Closes the pipe given in <tt>PORT</tt> 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"><tt>(create-pipe)</tt></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></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"><tt>(open-input-pipe CMDLINE [MODE])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Spawns a subprocess with the command-line string <tt>CMDLINE</tt> and returns a port, from which the output of the process can be read. If <tt>MODE</tt> 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"><tt>(open-output-pipe CMDLINE [MODE])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Spawns a subprocess with the command-line string <tt>CMDLINE</tt> and returns a port. Anything written to that port is treated as the input for the process. If <tt>MODE</tt> 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><p>This variable contains the maximal number of bytes that can be written atomically into a pipe or FIFO.</p><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"><tt>(with-input-from-pipe CMDLINE THUNK [MODE])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:with-output-to-pipe"><span class="sig"><tt>(with-output-to-pipe CMDLINE THUNK [MODE])</tt></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 <tt>CMDLINE</tt> and call the procedure <tt>THUNK</tt> with no arguments. After <tt>THUNK</tt> 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: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"><tt>(create-fifo FILENAME [MODE])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a FIFO with the name <tt>FILENAME</tt> and the permission bits <tt>MODE</tt>, which defaults to</p> <pre class="highlight colorize"> <span class="paren1">(<span class="default">+ perm/irwxu perm/irwxg perm/irwxo</span>)</span></pre></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"><tt>(fifo? FILE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>FILE</tt> names a FIFO. <tt>FILE</tt> may be a filename, a port or a file-descriptor.</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"><tt>(duplicate-fileno OLD [NEW])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>If <tt>NEW</tt> is given, then the file-descriptor <tt>NEW</tt> is opened to access the file with the file-descriptor <tt>OLD</tt>. Otherwise a fresh file-descriptor accessing the same file as <tt>OLD</tt> 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"><tt>(file-close FILENO)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Closes the input/output file with the file-descriptor <tt>FILENO</tt>.</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"><tt>(file-open FILENAME FLAGS [MODE])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Opens the file specified with the string <tt>FILENAME</tt> and open-flags <tt>FLAGS</tt> using the C function <tt>open(2)</tt>. On success a file-descriptor for the opened file is returned.</p><p><tt>FLAGS</tt> 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 <tt>MODE</tt> 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"><tt>(file-mkstemp TEMPLATE-FILENAME)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Create a file based on the given <tt>TEMPLATE-FILENAME</tt>, 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"><tt>(file-read FILENO SIZE [BUFFER])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Reads <tt>SIZE</tt> bytes from the file with the file-descriptor <tt>FILENO</tt>. If a string or bytevector is passed in the optional argument <tt>BUFFER</tt>, 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"><tt>(file-select READFDLIST WRITEFDLIST [TIMEOUT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Waits until any of the file-descriptors given in the lists <tt>READFDLIST</tt> and <tt>WRITEFDLIST</tt> is ready for input or output, respectively. If the optional argument <tt>TIMEOUT</tt> 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. <tt>READFDLIST</tt> 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 <tt>READFDLIST</tt> or <tt>WRITEFDLIST</tt> argument, which is equivalent to <tt>()</tt>.</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"><tt>(file-write FILENO BUFFER [SIZE])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Writes the contents of the string or bytevector <tt>BUFFER</tt> into the file with the file-descriptor <tt>FILENO</tt>. If the optional argument <tt>SIZE</tt> 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"><tt>(file-control FILENO COMMAND [ARGUMENT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Performs the fcntl operation <tt>COMMAND</tt> with the given <tt>FILENO</tt> and optional <tt>ARGUMENT</tt>. The return value is meaningful depending on the <tt>COMMAND</tt>.</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"><tt>(open-input-file* FILENO [OPENMODE])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:open-output-file.2a"><span class="sig"><tt>(open-output-file* FILENO [OPENMODE])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Opens file for the file-descriptor <tt>FILENO</tt> for input or output and returns a port. <tt>FILENO</tt> should be a positive exact integer. <tt>OPENMODE</tt> 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"><tt>(port-&gt;fileno PORT)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>If <tt>PORT</tt> 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: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"><tt>(file-access-time FILE)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:file-change-time"><span class="sig"><tt>(file-change-time FILE)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:file-modification-time"><span class="sig"><tt>(file-modification-time FILE)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><tt>(set! (file-modification-time FILE) SECONDS)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns time (in seconds) of the last access, modification or change of <tt>FILE</tt>. <tt>FILE</tt> may be a filename or a file-descriptor. If the file does not exist, an error is signaled.</p><p><tt>file-access-time</tt>, <tt>file-change-time</tt> and <tt>file-modification-time</tt> also accept a port object as their argument.</p><p><tt>(set! (file-modification-time FILE) SECONDS)</tt> sets the access- and modification time of <tt>FILE</tt> to <tt>SECONDS</tt>.</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"><tt>(file-stat FILE [LINK])</tt></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 <tt>LINK</tt> is given and not <tt>#f</tt>, the status of the link itself is returned.</p><p><tt>FILE</tt> 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"><tt>(file-position FILE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the current file position of <tt>FILE</tt>, 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"><tt>(file-size FILE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the size of the file designated by <tt>FILE</tt>. <tt>FILE</tt> 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: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"><tt>(regular-file? FILE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns true, if <tt>FILE</tt> 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. <tt>FILE</tt> may refer to a filename, file descriptor or ports object.</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"><tt>(file-owner FILE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the user-id of <tt>FILE</tt>. <tt>FILE</tt> may be a filename, a file-descriptor or a port object.</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"><tt>(file-permissions FILE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the permission bits for <tt>FILE</tt>. You can test this value by performing bitwise operations on the result and the <tt>perm/...</tt> values. <tt>FILE</tt> may be a filename, a file-descriptor or a port object.</p></dd> </dl> <h4 id="sec:file-read-access.3f"><a href="#sec:file-read-access.3f">file-read-access?</a></h4><h4 id="sec:file-write-access.3f"><a href="#sec:file-write-access.3f">file-write-access?</a></h4><h4 id="sec:file-execute-access.3f"><a href="#sec:file-execute-access.3f">file-execute-access?</a></h4><dl class="defsig"><dt class="defsig" id="def:file-read-access.3f"><span class="sig"><tt>(file-read-access? FILENAME)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:file-write-access.3f"><span class="sig"><tt>(file-write-access? FILENAME)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:file-execute-access.3f"><span class="sig"><tt>(file-execute-access? FILENAME)</tt></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 <tt>FILENAME</tt>.</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"><tt>(file-type FILE [LINK [ERROR]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the file-type for <tt>FILE</tt>, which should be a filename, a file-descriptor or a port object. If <tt>LINK</tt> 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 <tt>ERROR</tt> 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"><tt>(character-device? FILE)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:block-device.3f"><span class="sig"><tt>(block-device? FILE)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:socket.3f"><span class="sig"><tt>(socket? FILE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures return <tt>#t</tt> if <tt>FILE</tt> given is of the appropriate type. <tt>FILE</tt> 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> <h3 id="sec:Changing_file_attributes"><a href="#sec:Changing_file_attributes">Changing file attributes</a></h3><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"><tt>(file-truncate FILE OFFSET)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Truncates the file <tt>FILE</tt> to the length <tt>OFFSET</tt>, which should be an integer. If the file-size is smaller or equal to <tt>OFFSET</tt> then nothing is done. <tt>FILE</tt> should be a filename or a file-descriptor.</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"><tt>(set-file-position! FILE POSITION [WHENCE])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><tt>(set! (file-position FILE) POSITION)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the current read/write position of <tt>FILE</tt> to <tt>POSITION</tt>, which should be an exact integer. <tt>FILE</tt> should be a port or a file-descriptor. <tt>WHENCE</tt> 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:change-file-mode"><a href="#sec:change-file-mode">change-file-mode</a></h4><dl class="defsig"><dt class="defsig" id="def:change-file-mode"><span class="sig"><tt>(change-file-mode FILENAME MODE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Changes the current file mode of the file named <tt>FILENAME</tt> to <tt>MODE</tt> 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.</p></dd> </dl> <h4 id="sec:change-file-owner"><a href="#sec:change-file-owner">change-file-owner</a></h4><dl class="defsig"><dt class="defsig" id="def:change-file-owner"><span class="sig"><tt>(change-file-owner FILENAME UID GID)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Changes the owner information of the file named <tt>FILENAME</tt> to the user- and group-ids <tt>UID</tt> and <tt>GID</tt> (which should be exact integers) using the <tt>chown()</tt> system call.</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"><tt>(file-creation-mode [MODE])</tt></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 <tt>MODE</tt> 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 <tt>MODE</tt> is a bitwise combination of one or more of the <tt>perm/...</tt> flags.</p></dd> </dl> <h3 id="sec:Processes"><a href="#sec:Processes">Processes</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"><tt>(current-process-id)</tt></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"><tt>(parent-process-id)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the process ID of the parent of the current process.</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"><tt>(process-group-id PID)</tt></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 <tt>PID</tt>.</p></dd> </dl> <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"><tt>(process-execute PATHNAME [ARGUMENT-LIST [ENVIRONMENT-LIST]])</tt></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 <tt>PATHNAME</tt>, using the C library function <tt>execvp(3)</tt>. If the optional argument <tt>ARGUMENT-LIST</tt> is given, then it should contain a list of strings which are passed as arguments to the subprocess. If the optional argument <tt>ENVIRONMENT-LIST</tt> is supplied, then the library function <tt>execve(2)</tt> is used, and the environment passed in <tt>ENVIRONMENT-LIST</tt> (which should be of the form <tt>(&quot;&lt;NAME&gt;=&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></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"><tt>(process-fork [THUNK [KILLOTHERS?]])</tt></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 <tt>THUNK</tt> is given, then the child process calls it as a procedure with no arguments and terminates. If <tt>THUNK</tt> is given and the optional argument <tt>KILLOTHERS?</tt> is true, then kill all other existing threads in the child process, leaving only the current thread to run <tt>THUNK</tt> and terminate.</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"><tt>(process-run COMMANDLINE)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:process-run"><span class="sig"><tt>(process-run COMMAND ARGUMENT-LIST)</tt></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 <tt>COMMANDLINE</tt> to the system shell, so usual argument expansion can take place.</li> <li>The multiple parameter version directly invokes the <tt>COMMAND</tt> with the <tt>ARGUMENT-LIST</tt>.</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"><tt>(process-signal PID [SIGNAL])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Sends <tt>SIGNAL</tt> to the process with the id <tt>PID</tt> using the UNIX system call <tt>kill()</tt>. <tt>SIGNAL</tt> defaults to the value of the variable <tt>signal/term</tt>.</p></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"><tt>(process-wait [PID [NOHANG]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Suspends the current process until the child process with the id <tt>PID</tt> has terminated using the UNIX system call <tt>waitpid()</tt>. If <tt>PID</tt> is not given, then this procedure waits for any child process. If <tt>NOHANG</tt> is given and not <tt>#f</tt> then the current process is not suspended. This procedure returns three values:</p><ul><li><tt>PID</tt> or 0, if <tt>NOHANG</tt> 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></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"><tt>(process COMMANDLINE)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:process"><span class="sig"><tt>(process COMMAND ARGUMENT-LIST [ENVIRONMENT-LIST])</tt></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 <tt>COMMANDLINE</tt> to the host-system's shell that is invoked as a subprocess.</li> <li>The multiple parameter version directly invokes the <tt>COMMAND</tt> as a subprocess. The <tt>ARGUMENT-LIST</tt> is directly passed, as is <tt>ENVIRONMENT-LIST</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"><tt>(process* COMMANDLINE)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:process.2a"><span class="sig"><tt>(process* COMMAND ARGUMENT-LIST [ENVIRONMENT-LIST])</tt></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:sleep"><a href="#sec:sleep">sleep</a></h4><dl class="defsig"><dt class="defsig" id="def:sleep"><span class="sig"><tt>(sleep SECONDS)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Puts the process to sleep for <tt>SECONDS</tt>. 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:create-session"><a href="#sec:create-session">create-session</a></h4><dl class="defsig"><dt class="defsig" id="def:create-session"><span class="sig"><tt>(create-session)</tt></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></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: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"><tt>(symbolic-link? FILE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns true, if <tt>FILE</tt> names a symbolic link. If no such file exists, <tt>#f</tt> is returned. This operation does not follow symbolic links itself. <tt>FILE</tt> 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"><tt>(create-symbolic-link OLDNAME NEWNAME)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a symbolic link with the filename <tt>NEWNAME</tt> that points to the file named <tt>OLDNAME</tt>.</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"><tt>(read-symbolic-link FILENAME [CANONICALIZE])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the filename to which the symbolic link <tt>FILENAME</tt> points. If <tt>CANONICALIZE</tt> is given and true, then symbolic links are resolved repeatedly until the result is not a link.</p></dd> </dl> <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"><tt>(file-link OLDNAME NEWNAME)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a hard link from <tt>OLDNAME</tt> to <tt>NEWNAME</tt> (both strings).</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"><tt>(current-user-id)</tt></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></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"><tt>(current-effective-user-id)</tt></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></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"><tt>(user-information USER [AS-VECTOR])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>If <tt>USER</tt> 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 <tt>AS-VECTOR</tt> 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></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"><tt>(current-group-id)</tt></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></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"><tt>(current-effective-group-id)</tt></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></dd> </dl> <h4 id="sec:group-information"><a href="#sec:group-information">group-information</a></h4><dl class="defsig"><dt class="defsig" id="def:group-information"><span class="sig"><tt>(group-information GROUP)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>If <tt>GROUP</tt> specifies a valid group-name or group-id, then this procedure returns a list of four values: the group-name, the encrypted group password, the group ID and a list of the names of all group members. If no group with the given name or ID exists, then <tt>#f</tt> is returned.</p></dd> </dl> <h4 id="sec:get-groups"><a href="#sec:get-groups">get-groups</a></h4><dl class="defsig"><dt class="defsig" id="def:get-groups"><span class="sig"><tt>(get-groups)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a list with the supplementary group IDs of the current user.</p></dd> </dl> <h3 id="sec:Changing_user_.26_group_information"><a href="#sec:Changing_user_.26_group_information">Changing user &amp; group information</a></h3><h4 id="sec:set-groups.21"><a href="#sec:set-groups.21">set-groups!</a></h4><dl class="defsig"><dt class="defsig" id="def:set-groups.21"><span class="sig"><tt>(set-groups! GIDLIST)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the supplementrary group IDs of the current user to the IDs given in the list <tt>GIDLIST</tt>.</p><p>Only the superuser may invoke this procedure.</p></dd> </dl> <h4 id="sec:initialize-groups"><a href="#sec:initialize-groups">initialize-groups</a></h4><dl class="defsig"><dt class="defsig" id="def:initialize-groups"><span class="sig"><tt>(initialize-groups USERNAME BASEGID)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the supplementrary group IDs of the current user to the IDs from the user with name <tt>USERNAME</tt> (a string), including <tt>BASEGID</tt>.</p><p>Only the superuser may invoke this procedure.</p></dd> </dl> <h3 id="sec:Record_locking"><a href="#sec:Record_locking">Record locking</a></h3><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"><tt>(file-lock PORT [START [LEN]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Locks the file associated with <tt>PORT</tt> for reading or writing (according to whether <tt>PORT</tt> is an input- or output-port). <tt>START</tt> specifies the starting position in the file to be locked and defaults to 0. <tt>LEN</tt> 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></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"><tt>(file-lock/blocking PORT [START [LEN]])</tt></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></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"><tt>(file-test-lock PORT [START [LEN]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Tests whether the file associated with <tt>PORT</tt> is locked for reading or writing (according to whether <tt>PORT</tt> is an input- or output-port) and returns either <tt>#f</tt> or the process-id of the locking process.</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"><tt>(file-unlock LOCK)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Unlocks the previously locked portion of a file given in <tt>LOCK</tt>.</p></dd> </dl> <h3 id="sec:Signal_handling"><a href="#sec:Signal_handling">Signal handling</a></h3><h4 id="sec:set-alarm.21"><a href="#sec:set-alarm.21">set-alarm!</a></h4><dl class="defsig"><dt class="defsig" id="def:set-alarm.21"><span class="sig"><tt>(set-alarm! SECONDS)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Sets an internal timer to raise the <tt>signal/alrm</tt> after <tt>SECONDS</tt> are elapsed. You can use the <tt>set-signal-handler!</tt> procedure to write a handler for this signal.</p></dd> </dl> <h4 id="sec:set-signal-handler.21"><a href="#sec:set-signal-handler.21">set-signal-handler!</a></h4><h4 id="sec:signal-handler"><a href="#sec:signal-handler">signal-handler</a></h4><dl class="defsig"><dt class="defsig" id="def:signal-handler"><span class="sig"><tt>(signal-handler SIGNUM)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the signal handler for the code <tt>SIGNUM</tt> or <tt>#f</tt>.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:set-signal-handler.21"><span class="sig"><tt>(set-signal-handler! SIGNUM PROC)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Establishes the procedure of one argument <tt>PROC</tt> as the handler for the signal with the code <tt>SIGNUM</tt>. <tt>PROC</tt> is called with the signal number as its sole argument. If the argument <tt>PROC</tt> 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> <h4 id="sec:set-signal-mask.21"><a href="#sec:set-signal-mask.21">set-signal-mask!</a></h4><dl class="defsig"><dt class="defsig" id="def:set-signal-mask.21"><span class="sig"><tt>(set-signal-mask! SIGLIST)</tt></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 <tt>SIGLIST</tt>. Signals masked in that way will not be delivered to the current process.</p></dd> </dl> <h4 id="sec:signal-mask"><a href="#sec:signal-mask">signal-mask</a></h4><dl class="defsig"><dt class="defsig" id="def:signal-mask"><span class="sig"><tt>(signal-mask)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the signal mask of the current process.</p></dd> </dl> <h4 id="sec:signal-masked.3f"><a href="#sec:signal-masked.3f">signal-masked?</a></h4><dl class="defsig"><dt class="defsig" id="def:signal-masked.3f"><span class="sig"><tt>(signal-masked? SIGNUM)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns whether the signal for the code <tt>SIGNUM</tt> is currently masked.</p></dd> </dl> <h4 id="sec:signal-mask.21"><a href="#sec:signal-mask.21">signal-mask!</a></h4><dl class="defsig"><dt class="defsig" id="def:signal-mask.21"><span class="sig"><tt>(signal-mask! SIGNUM)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Masks (blocks) the signal for the code <tt>SIGNUM</tt>.</p></dd> </dl> <h4 id="sec:signal-unmask.21"><a href="#sec:signal-unmask.21">signal-unmask!</a></h4><dl class="defsig"><dt class="defsig" id="def:signal-unmask.21"><span class="sig"><tt>(signal-unmask! SIGNUM)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Unmasks (unblocks) the signal for the code <tt>SIGNUM</tt>.</p></dd> </dl> <h4 id="sec:Signal_codes"><a href="#sec:Signal_codes">Signal codes</a></h4><dl class="defsig"><dt class="defsig" id="def:signal.2fterm"><span class="sig"><tt>signal/term</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fkill"><span class="sig"><tt>signal/kill</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fint"><span class="sig"><tt>signal/int</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fhup"><span class="sig"><tt>signal/hup</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2ffpe"><span class="sig"><tt>signal/fpe</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fill"><span class="sig"><tt>signal/ill</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fsegv"><span class="sig"><tt>signal/segv</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fabrt"><span class="sig"><tt>signal/abrt</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2ftrap"><span class="sig"><tt>signal/trap</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fquit"><span class="sig"><tt>signal/quit</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2falrm"><span class="sig"><tt>signal/alrm</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fvtalrm"><span class="sig"><tt>signal/vtalrm</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fprof"><span class="sig"><tt>signal/prof</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fio"><span class="sig"><tt>signal/io</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2furg"><span class="sig"><tt>signal/urg</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fchld"><span class="sig"><tt>signal/chld</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fcont"><span class="sig"><tt>signal/cont</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fstop"><span class="sig"><tt>signal/stop</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2ftstp"><span class="sig"><tt>signal/tstp</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fpipe"><span class="sig"><tt>signal/pipe</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fxcpu"><span class="sig"><tt>signal/xcpu</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fxfsz"><span class="sig"><tt>signal/xfsz</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fusr1"><span class="sig"><tt>signal/usr1</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fusr2"><span class="sig"><tt>signal/usr2</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fbus"><span class="sig"><tt>signal/bus</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fwinch"><span class="sig"><tt>signal/winch</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fbreak"><span class="sig"><tt>signal/break</tt></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></dd> </dl> <h3 id="sec:Environment_access"><a href="#sec:Environment_access">Environment access</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"><tt>(get-environment-variables)</tt></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:setenv"><a href="#sec:setenv">setenv</a></h4><dl class="defsig"><dt class="defsig" id="def:setenv"><span class="sig"><tt>(setenv VARIABLE VALUE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the environment variable named <tt>VARIABLE</tt> to <tt>VALUE</tt>. 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:unsetenv"><a href="#sec:unsetenv">unsetenv</a></h4><dl class="defsig"><dt class="defsig" id="def:unsetenv"><span class="sig"><tt>(unsetenv VARIABLE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Removes the definition of the environment variable <tt>VARIABLE</tt> from the environment of the current process. If the variable is not defined, nothing happens.</p></dd> </dl> <h3 id="sec:Memory_mapped_I.2fO"><a href="#sec:Memory_mapped_I.2fO">Memory mapped I/O</a></h3><p>Memory mapped I/O takes the contents of a file descriptor and places them in memory.</p><h4 id="sec:memory-mapped-file.3f"><a href="#sec:memory-mapped-file.3f">memory-mapped-file?</a></h4><dl class="defsig"><dt class="defsig" id="def:memory-mapped-file.3f"><span class="sig"><tt>(memory-mapped-file? X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt>, if <tt>X</tt> is an object representing a memory mapped file, or <tt>#f</tt> otherwise.</p></dd> </dl> <h4 id="sec:map-file-to-memory"><a href="#sec:map-file-to-memory">map-file-to-memory</a></h4><dl class="defsig"><dt class="defsig" id="def:map-file-to-memory"><span class="sig"><tt>(map-file-to-memory ADDRESS LEN PROTECTION FLAG FILENO [OFFSET])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Maps a section of a file to memory using the C function <tt>mmap()</tt>. <tt>ADDRESS</tt> should be a foreign pointer object or <tt>#f</tt>; <tt>LEN</tt> specifies the size of the section to be mapped; <tt>PROTECTION</tt> should be one or more of the flags <tt>prot/read, prot/write, prot/exec</tt> or <tt>prot/none</tt> <b>bitwise-ior</b>ed together; <tt>FLAG</tt> should be one or more of the flags <tt>map/fixed, map/shared, map/private, map/anonymous</tt> or <tt>map/file</tt>; <tt>FILENO</tt> should be the file-descriptor of the mapped file. The optional argument <tt>OFFSET</tt> gives the offset of the section of the file to be mapped and defaults to 0. This procedure returns an object representing the mapped file section. The procedure <tt>move-memory!</tt> can be used to access the mapped memory.</p></dd> </dl> <h4 id="sec:memory-mapped-file-pointer"><a href="#sec:memory-mapped-file-pointer">memory-mapped-file-pointer</a></h4><dl class="defsig"><dt class="defsig" id="def:memory-mapped-file-pointer"><span class="sig"><tt>(memory-mapped-file-pointer MMAP)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a machine pointer to the start of the memory region to which the file is mapped.</p></dd> </dl> <h4 id="sec:unmap-file-from-memory"><a href="#sec:unmap-file-from-memory">unmap-file-from-memory</a></h4><dl class="defsig"><dt class="defsig" id="def:unmap-file-from-memory"><span class="sig"><tt>(unmap-file-from-memory MMAP [LEN])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Unmaps the section of a file mapped to memory using the C function <tt>munmap()</tt>. <tt>MMAP</tt> should be a mapped file as returned by the procedure <tt>map-file-to-memory</tt>. The optional argument <tt>LEN</tt> specifies the length of the section to be unmapped and defaults to the complete length given when the file was mapped.</p></dd> </dl> <h4 id="sec:Memory_Mapped_I.2fO_Example"><a href="#sec:Memory_Mapped_I.2fO_Example">Memory Mapped I/O Example</a></h4> <pre class="highlight colorize"><span class="comment">;; example-mmap.scm </span><span class="comment">;; </span><span class="comment">;; basic example of memory mapped I/O </span><span class="comment">;; </span><span class="comment">;; This example does no error checking or cleanup, and serves </span><span class="comment">;; only to demonstrate how the mmap functions work together. </span><span class="comment">;; </span><span class="paren1">(<span class="default">use posix</span>)</span> <span class="paren1">(<span class="default">use lolevel</span>)</span> <span class="comment">; open a file using the posix module, so we have the file descriptor. </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">fd <span class="paren4">(<span class="default">file-open <span class="string">&quot;example-mmap.scm&quot;</span> <span class="paren5">(<span class="default">+ open/rdonly open/nonblock</span>)</span></span>)</span></span>)</span> <span class="comment">; fstat(2) the file descriptor fd to determine its size </span> <span class="paren3">(<span class="default">size <span class="paren4">(<span class="default">file-size fd</span>)</span></span>)</span> <span class="comment">; mmap(2) the file for reading. </span> <span class="paren3">(<span class="default">mmap <span class="paren4">(<span class="default">map-file-to-memory #f size prot/read <span class="paren5">(<span class="default">+ map/file map/shared</span>)</span> fd</span>)</span></span>)</span> <span class="comment">; return a pointer object to the beginning of the memory map. </span> <span class="paren3">(<span class="default">buf <span class="paren4">(<span class="default">memory-mapped-file-pointer mmap</span>)</span></span>)</span> <span class="comment">; allocate a string the same size as the file. </span> <span class="paren3">(<span class="default">str <span class="paren4">(<span class="default">make-string size</span>)</span></span>)</span></span>)</span> <span class="comment">; copy the mapped memory into a string </span> <span class="paren2">(<span class="default">move-memory! buf str size</span>)</span> <span class="paren2">(<span class="default">display str</span>)</span> <span class="comment">; alternately, print the string byte-by-byte without copying. </span> <span class="paren2">(<span class="default"><i><span class="symbol">let</span></i> <i><span class="symbol">loop</span></i> <span class="paren3">(<span class="default"><span class="paren4">(<span class="default">p buf</span>)</span> <span class="paren4">(<span class="default">i 0</span>)</span></span>)</span> <span class="paren3">(<span class="default">unless <span class="paren4">(<span class="default">= i size</span>)</span> <span class="paren4">(<span class="default">display <span class="paren5">(<span class="default">integer-&gt;char <span class="paren6">(<span class="default">pointer-s8-ref p</span>)</span></span>)</span></span>)</span> <span class="paren4">(<span class="default"><i><span class="symbol">loop</span></i> <span class="paren5">(<span class="default">pointer+ p 1</span>)</span> <span class="paren5">(<span class="default">+ i 1</span>)</span></span>)</span></span>)</span></span>)</span></span>)</span></pre><h3 id="sec:Date_and_time_routines"><a href="#sec:Date_and_time_routines">Date and time routines</a></h3><h4 id="sec:seconds-.3elocal-time"><a href="#sec:seconds-.3elocal-time">seconds-&gt;local-time</a></h4><dl class="defsig"><dt class="defsig" id="def:seconds-.3elocal-time"><span class="sig"><tt>(seconds-&gt;local-time [SECONDS])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Breaks down the time value represented in <tt>SECONDS</tt> 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><tt>SECONDS</tt> defaults to the value of <tt>(current-seconds)</tt>.</p></dd> </dl> <h4 id="sec:local-time-.3eseconds"><a href="#sec:local-time-.3eseconds">local-time-&gt;seconds</a></h4><dl class="defsig"><dt class="defsig" id="def:local-time-.3eseconds"><span class="sig"><tt>(local-time-&gt;seconds VECTOR)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Converts the ten-element vector <tt>VECTOR</tt> representing the time value relative to the current timezone into the number of seconds since the first of January, 1970 UTC.</p></dd> </dl> <h4 id="sec:local-timezone-abbreviation"><a href="#sec:local-timezone-abbreviation">local-timezone-abbreviation</a></h4><dl class="defsig"><dt class="defsig" id="def:local-timezone-abbreviation"><span class="sig"><tt>(local-timezone-abbreviation)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the abbreviation for the local timezone as a string.</p></dd> </dl> <h4 id="sec:seconds-.3estring"><a href="#sec:seconds-.3estring">seconds-&gt;string</a></h4><dl class="defsig"><dt class="defsig" id="def:seconds-.3estring"><span class="sig"><tt>(seconds-&gt;string [SECONDS])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Converts the time represented in <tt>SECONDS</tt> into a local-time string of the form <tt>&quot;Tue May 21 13:46:22 1991&quot;</tt>. <tt>SECONDS</tt> defaults to the value of <tt>(current-seconds)</tt>.</p></dd> </dl> <h4 id="sec:seconds-.3eutc-time"><a href="#sec:seconds-.3eutc-time">seconds-&gt;utc-time</a></h4><dl class="defsig"><dt class="defsig" id="def:seconds-.3eutc-time"><span class="sig"><tt>(seconds-&gt;utc-time [SECONDS])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Similar to <tt>seconds-&gt;local-time</tt>, but interpretes <tt>SECONDS</tt> as UTC time. <tt>SECONDS</tt> defaults to the value of <tt>(current-seconds)</tt>.</p></dd> </dl> <h4 id="sec:utc-time-.3eseconds"><a href="#sec:utc-time-.3eseconds">utc-time-&gt;seconds</a></h4><dl class="defsig"><dt class="defsig" id="def:utc-time-.3eseconds"><span class="sig"><tt>(utc-time-&gt;seconds VECTOR)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Converts the ten-element vector <tt>VECTOR</tt> representing the UTC time value into the number of seconds since the first of January, 1970 UTC.</p></dd> </dl> <h4 id="sec:time-.3estring"><a href="#sec:time-.3estring">time-&gt;string</a></h4><dl class="defsig"><dt class="defsig" id="def:time-.3estring"><span class="sig"><tt>(time-&gt;string VECTOR [FORMAT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Converts the broken down time represented in the 10 element vector <tt>VECTOR</tt> into a string of the form represented by the <tt>FORMAT</tt> string. The default time form produces something like <tt>&quot;Tue May 21 13:46:22 1991&quot;</tt>.</p><p>The <tt>FORMAT</tt> string follows the rules for the C library procedure <tt>strftime</tt>. The default <tt>FORMAT</tt> string is &quot;%a %b %e %H:%M:%S %Z %Y&quot;.</p></dd> </dl> <h4 id="sec:string-.3etime"><a href="#sec:string-.3etime">string-&gt;time</a></h4><dl class="defsig"><dt class="defsig" id="def:string-.3etime"><span class="sig"><tt>(string-&gt;time TIME [FORMAT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Converts a string of the form represented by the <tt>FORMAT</tt> 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 <tt>FORMAT</tt> string follows the rules for the C library procedure <tt>strptime</tt>. The default <tt>FORMAT</tt> string is &quot;%a %b %e %H:%M:%S %Z %Y&quot;.</p></dd> </dl> <h3 id="sec:Raw_exit"><a href="#sec:Raw_exit">Raw exit</a></h3><h4 id="sec:_exit"><a href="#sec:_exit">_exit</a></h4><dl class="defsig"><dt class="defsig" id="def:_exit"><span class="sig"><tt>(_exit [CODE])</tt></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 return-code <tt>CODE</tt> defaults to <tt>0</tt>.</p></dd> </dl> <h3 id="sec:ERRNO_values"><a href="#sec:ERRNO_values">ERRNO values</a></h3><dl class="defsig"><dt class="defsig" id="def:errno.2fperm"><span class="sig"><tt>errno/perm</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fnoent"><span class="sig"><tt>errno/noent</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fsrch"><span class="sig"><tt>errno/srch</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fintr"><span class="sig"><tt>errno/intr</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fio"><span class="sig"><tt>errno/io</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fnoexec"><span class="sig"><tt>errno/noexec</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fbadf"><span class="sig"><tt>errno/badf</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fchild"><span class="sig"><tt>errno/child</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fnomem"><span class="sig"><tt>errno/nomem</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2facces"><span class="sig"><tt>errno/acces</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2ffault"><span class="sig"><tt>errno/fault</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fbusy"><span class="sig"><tt>errno/busy</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fnotdir"><span class="sig"><tt>errno/notdir</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fisdir"><span class="sig"><tt>errno/isdir</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2finval"><span class="sig"><tt>errno/inval</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fmfile"><span class="sig"><tt>errno/mfile</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fnospc"><span class="sig"><tt>errno/nospc</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fspipe"><span class="sig"><tt>errno/spipe</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fpipe"><span class="sig"><tt>errno/pipe</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fagain"><span class="sig"><tt>errno/again</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2frofs"><span class="sig"><tt>errno/rofs</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fexist"><span class="sig"><tt>errno/exist</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fwouldblock"><span class="sig"><tt>errno/wouldblock</tt></span> <span class="type">constant</span></dt> <dd class="defsig"><p>These variables contain error codes as returned by <tt>errno</tt>.</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"><tt>(find-files DIRECTORY #!key test action seed limit dotfiles follow-symlinks)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Recursively traverses the contents of <tt>DIRECTORY</tt> (which should be a string) and invokes the procedure <tt>action</tt> for all files in which the procedure <tt>test</tt> is true.</p><p><tt>test</tt> 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>. <tt>test</tt> defaults to <tt>(constantly #t)</tt>.</p><p><tt>action</tt> should be a procedure of two arguments: the currently encountered file and the result of the previous invocation of <tt>action</tt>, or, if this is the first invocation, the value of <tt>seed</tt>. <tt>action</tt> defaults to <tt>cons</tt>, <tt>seed</tt> defaults to <tt>()</tt>.</p><p><tt>limit</tt> 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. <tt>limit</tt> 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. <tt>limit</tt> may also be <tt>#f</tt> (the default), which is equivalent to <tt>(constantly #t)</tt>.</p><p>If <tt>dotfiles</tt> 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 <tt>follow-symlinks</tt> 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 <tt>action</tt> is called with the full pathname of each file, including the directory prefix.</p><p>This procedure's signature was changed in CHICKEN 4.6. In older versions, <tt>find-files</tt> has a different signature:</p><pre> (find-files DIRECTORY [TEST [ACTION [SEED [LIMIT]]]])</pre><p>The old signature was supported until CHICKEN 4.7.3 for compatibility reasons, at which point it became invalid. The optional arguments are ignored and use their default values, and no warning is issued. One symptom is that your <tt>TEST</tt> does not work, returning every file.</p></dd> </dl> <h3 id="sec:Getting_the_hostname_and_system_information"><a href="#sec:Getting_the_hostname_and_system_information">Getting the hostname and system information</a></h3><h4 id="sec:get-host-name"><a href="#sec:get-host-name">get-host-name</a></h4><dl class="defsig"><dt class="defsig" id="def:get-host-name"><span class="sig"><tt>(get-host-name)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the hostname of the machine that this process is running on.</p></dd> </dl> <h4 id="sec:system-information"><a href="#sec:system-information">system-information</a></h4><dl class="defsig"><dt class="defsig" id="def:system-information"><span class="sig"><tt>(system-information)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Invokes the UNIX system call <tt>uname()</tt> and returns a list of 5 values: system-name, node-name, OS release, OS version and machine.</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"><tt>(set-buffering-mode! PORT MODE [BUFSIZE])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the buffering-mode for the file associated with <tt>PORT</tt> to <tt>MODE</tt>, which should be one of the keywords <tt>#:full</tt>, <tt>#:line</tt> or <tt>#:none</tt>. If <tt>BUFSIZE</tt> 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"><tt>(terminal-name PORT)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the name of the terminal that is connected to <tt>PORT</tt>.</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"><tt>(terminal-port? PORT)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>PORT</tt> 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"><tt>(terminal-size PORT)</tt></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 <tt>PORT</tt> or <tt>0</tt>, <tt>0</tt> if the terminal size can not be obtained. On Windows, this procedure always returns <tt>0</tt>, <tt>0</tt>.</p></dd> </dl> <h3 id="sec:How_Scheme_procedures_relate_to_UNIX_C_functions"><a href="#sec:How_Scheme_procedures_relate_to_UNIX_C_functions">How Scheme procedures relate to UNIX C functions</a></h3><dl><dt><tt>change-directory</tt></dt> <dd><tt>chdir</tt></dd><dt><tt>change-directory*</tt></dt> <dd><tt>fchdir</tt></dd><dt><tt>change-file-mode</tt></dt> <dd><tt>chmod</tt></dd><dt><tt>change-file-owner</tt></dt> <dd><tt>chown</tt></dd><dt><tt>create-directory</tt></dt> <dd><tt>mkdir</tt></dd><dt><tt>create-fifo</tt></dt> <dd><tt>mkfifo</tt></dd><dt><tt>create-pipe</tt></dt> <dd><tt>pipe</tt></dd><dt><tt>create-session</tt></dt> <dd><tt>setsid</tt></dd><dt><tt>create-symbolic-link</tt></dt> <dd><tt>link</tt></dd><dt><tt>current-directory</tt></dt> <dd><tt>curdir</tt></dd><dt><tt>current-effective-group-id</tt></dt> <dd><tt>getegid</tt></dd><dt><tt>current-effective-user-id</tt></dt> <dd><tt>geteuid</tt></dd><dt><tt>current-group-id</tt></dt> <dd><tt>getgid</tt></dd><dt><tt>current-parent-id</tt></dt> <dd><tt>getppid</tt></dd><dt><tt>current-process-id</tt></dt> <dd><tt>getpid</tt></dd><dt><tt>current-user-id</tt></dt> <dd><tt>getuid</tt></dd><dt><tt>delete-directory</tt></dt> <dd><tt>rmdir</tt></dd><dt><tt>duplicate-fileno</tt></dt> <dd><tt>dup/dup2</tt></dd><dt><tt>_exit</tt></dt> <dd><tt>_exit</tt></dd><dt><tt>file-close</tt></dt> <dd><tt>close</tt></dd><dt><tt>file-access-time</tt></dt> <dd><tt>stat</tt></dd><dt><tt>file-change-time</tt></dt> <dd><tt>stat</tt></dd><dt><tt>file-creation-mode</tt></dt> <dd><tt>umask</tt></dd><dt><tt>file-modification-time</tt></dt> <dd><tt>stat</tt></dd><dt><tt>file-execute-access?</tt></dt> <dd><tt>access</tt></dd><dt><tt>file-open</tt></dt> <dd><tt>open</tt></dd><dt><tt>file-lock</tt></dt> <dd><tt>fcntl</tt></dd><dt><tt>file-position</tt></dt> <dd><tt>ftell/lseek</tt></dd><dt><tt>file-read</tt></dt> <dd><tt>read</tt></dd><dt><tt>file-read-access?</tt></dt> <dd><tt>access</tt></dd><dt><tt>file-select</tt></dt> <dd><tt>select</tt></dd><dt><tt>file-control</tt></dt> <dd><tt>fcntl</tt></dd><dt><tt>file-stat</tt></dt> <dd><tt>stat</tt></dd><dt><tt>file-test-lock</tt></dt> <dd><tt>fcntl</tt></dd><dt><tt>file-truncate</tt></dt> <dd><tt>truncate/ftruncate</tt></dd><dt><tt>file-unlock</tt></dt> <dd><tt>fcntl</tt></dd><dt><tt>file-write</tt></dt> <dd><tt>write</tt></dd><dt><tt>file-write-access?</tt></dt> <dd><tt>access</tt></dd><dt><tt>get-groups</tt></dt> <dd><tt>getgroups</tt></dd><dt><tt>get-host-name</tt></dt> <dd><tt>gethostname</tt></dd><dt><tt>initialize-groups</tt></dt> <dd><tt>initgroups</tt></dd><dt><tt>local-time-&gt;seconds</tt></dt> <dd><tt>mktime</tt></dd><dt><tt>local-timezone-abbreviation</tt></dt> <dd><tt>localtime</tt></dd><dt><tt>map-file-to-memory</tt></dt> <dd><tt>mmap</tt></dd><dt><tt>open-input-file*</tt></dt> <dd><tt>fdopen</tt></dd><dt><tt>open-output-file*</tt></dt> <dd><tt>fdopen</tt></dd><dt><tt>open-input-pipe</tt></dt> <dd><tt>popen</tt></dd><dt><tt>open-output-pipe</tt></dt> <dd><tt>popen</tt></dd><dt><tt>port-&gt;fileno</tt></dt> <dd><tt>fileno</tt></dd><dt><tt>process-execute</tt></dt> <dd><tt>execvp</tt></dd><dt><tt>process-fork</tt></dt> <dd><tt>fork</tt></dd><dt><tt>process-group-id</tt></dt> <dd><tt>getpgid</tt></dd><dt><tt>process-signal</tt></dt> <dd><tt>kill</tt></dd><dt><tt>process-wait</tt></dt> <dd><tt>waitpid</tt></dd><dt><tt>close-input-pipe</tt></dt> <dd><tt>pclose</tt></dd><dt><tt>close-output-pipe</tt></dt> <dd><tt>pclose</tt></dd><dt><tt>read-symbolic-link</tt></dt> <dd><tt>readlink</tt></dd><dt><tt>seconds-&gt;local-time</tt></dt> <dd><tt>localtime</tt></dd><dt><tt>seconds-&gt;string</tt></dt> <dd><tt>ctime</tt></dd><dt><tt>seconds-&gt;utc-time</tt></dt> <dd><tt>gmtime</tt></dd><dt><tt>set-alarm!</tt></dt> <dd><tt>alarm</tt></dd><dt><tt>set-buffering-mode!</tt></dt> <dd><tt>setvbuf</tt></dd><dt><tt>set-file-position!</tt></dt> <dd><tt>fseek/seek</tt></dd><dt><tt>set-groups!</tt></dt> <dd><tt>setgroups</tt></dd><dt><tt>set-signal-mask!</tt></dt> <dd><tt>sigprocmask</tt></dd><dt><tt>set-group-id!</tt></dt> <dd><tt>setgid</tt></dd><dt><tt>set-user-id!</tt></dt> <dd><tt>setuid</tt></dd><dt><tt>set-root-directory!</tt></dt> <dd><tt>chroot</tt></dd><dt><tt>setenv</tt></dt> <dd><tt>setenv/putenv</tt></dd><dt><tt>sleep</tt></dt> <dd><tt>sleep</tt></dd><dt><tt>system-information</tt></dt> <dd><tt>uname</tt></dd><dt><tt>terminal-name</tt></dt> <dd><tt>ttyname</tt></dd><dt><tt>terminal-port?</tt></dt> <dd><tt>isatty</tt></dd><dt><tt>time-&gt;string</tt></dt> <dd><tt>asctime</tt></dd><dt><tt>unsetenv</tt></dt> <dd><tt>putenv</tt></dd><dt><tt>unmap-file-from-memory</tt></dt> <dd><tt>munmap</tt></dd><dt><tt>user-information</tt></dt> <dd><tt>getpwnam/getpwuid</tt></dd><dt><tt>utc-time-&gt;seconds</tt></dt> <dd><tt>timegm</tt></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 is 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><h4 id="sec:Procedure_Changes"><a href="#sec:Procedure_Changes">Procedure Changes</a></h4><p>Exceptions to the above procedure definitions.</p><dl class="defsig"><dt class="defsig" id="def:create-pipe"><span class="sig"><tt>(create-pipe [MODE])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>The optional parameter <tt>MODE</tt>, default <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> <dl class="defsig"><dt class="defsig" id="def:process-wait"><span class="sig"><tt>(process-wait [PID [NOHANG]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><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> <dl class="defsig"><dt class="defsig" id="def:process-execute"><span class="sig"><tt>(process-execute PATHNAME [ARGUMENT-LIST [ENVIRONMENT-LIST [EXACT-FLAG]]])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:process"><span class="sig"><tt>(process COMMAND ARGUMENT-LIST [ENVIRONMENT-LIST [EXACT-FLAG]])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:process.2a"><span class="sig"><tt>(process* COMMAND ARGUMENT-LIST [ENVIRONMENT-LIST [EXACT-FLAG]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>The optional parameter <tt>EXACT-FLAG</tt>, default <tt>#f</tt>. When <tt>#f</tt> 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:Unsupported_Definitions"><a href="#sec:Unsupported_Definitions">Unsupported Definitions</a></h4><p>The following definitions are not supported for native Windows builds (compiled with the Microsoft tools or with MinGW):</p><pre>open/noctty open/nonblock open/fsync open/sync perm/isvtx perm/isuid perm/isgid file-select file-control signal/... (except signal/term, signal/int, signal/fpe, signal/ill, signal/segv, signal/abrt, signal/break) set-signal-mask! signal-mask signal-masked? signal-mask! signal-unmask! user-information group-information get-groups set-groups! initialize-groups errno/wouldblock change-directory* change-file-owner current-user-id current-group-id current-effective-user-id current-effective-group-id set-user-id! set-group-id! create-session process-group-id create-symbolic-link read-symbolic-link file-truncate file-lock file-lock/blocking file-unlock file-test-lock create-fifo fifo? set-alarm! terminal-port? terminal-name process-fork process-signal parent-process-id set-root-directory! utc-time-&gt;seconds</pre><h4 id="sec:Additional_Definitions"><a href="#sec:Additional_Definitions">Additional Definitions</a></h4><p>Only available for Windows</p><ul><li>open/noinherit</li> </ul> <p>This variable is a mode value for <tt>create-pipe</tt>. Useful when spawning a child process.</p><ul><li>spawn/overlay</li> <li>spawn/wait</li> <li>spawn/nowait</li> <li>spawn/nowaito</li> <li>spawn/detach</li> </ul> <p>These variables contains special flags that specify the exact semantics of <tt>process-spawn</tt>: <tt>spawn/overlay</tt> replaces the current process with the new one. <tt>spawn/wait</tt> suspends execution of the current process until the spawned process returns. <tt>spawn/nowait</tt> does the opposite (<tt>spawn/nowaito</tt> is identical, according to the Microsoft documentation) and runs the process asynchronously. <tt>spawn/detach</tt> runs the new process in the background, without being attached to a console.</p><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"><tt>(process-spawn MODE COMMAND [ARGUMENT-LIST [ENVIRONMENT-LIST [EXACT-FLAG]]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Creates and runs a new process with the given <tt>COMMAND</tt> filename and the optional <tt>ARGUMENT-LIST</tt> and <tt>ENVIRONMENT-LIST</tt>. <tt>MODE</tt> specifies how exactly the process should be executed and must be one or more of the <tt>spawn/...</tt> flags defined above.</p><p>The <tt>EXACT-FLAG</tt>, 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> </dd> </dl> <hr /><p>Previous: <a href="Unit%20srfi-69.html">Unit srfi-69</a></p><p>Next: <a href="Unit%20utils.html">Unit utils</a></p></div></div></body>�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Bugs and limitations.html������������������������������������������������0000644�0001750�0001750�00000002016�13052306550�022053� 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.</li> </ul> <hr /><p>Previous: <a href="Data%20representation.html">Data representation</a></p><p>Next: <a href="faq.html">FAQ</a></p></div></div></body>������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Extensions to the standard.html������������������������������������������0000644�0001750�0001750�00000031554�13052306550�023210� 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_standard">Extensions to the 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_macros">Non-standard macros</a></li> <li><a href="#sec:Extended_DSSSL_style_lambda_lists">Extended DSSSL style lambda lists</a></li> <li><a href="#sec:set.21"><tt>set!</tt></a></li> <li><a href="#sec:cond"><tt>cond</tt></a></li> <li><a href="#sec:begin"><tt>begin</tt></a></li> <li><a href="#sec:Delayed_expressions">Delayed expressions</a></li> <li><a href="#sec:Internal_definitions">Internal definitions</a></li> <li><a href="#sec:Curried_definitions">Curried definitions</a></li> <li><a href="#sec:Non-standard_procedures">Non-standard procedures</a></li> <li><a href="#sec:Special_IEEE_floating-point_numbers">Special IEEE floating-point numbers</a></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> <li><a href="#sec:Number.2fString_conversions">Number/String conversions</a></li> <li><a href="#sec:force"><tt>force</tt></a></li> <li><a href="#sec:eval"><tt>eval</tt></a></li> <li><a href="#sec:Optional_arguments_for_port-related_procedures">Optional arguments for port-related procedures</a></li> <li><a href="#sec:exit"><tt>exit</tt></a></li></ul></li></ul></div><h2 id="sec:Extensions_to_the_standard"><a href="#sec:Extensions_to_the_standard">Extensions to the 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. See <a href="Non-standard%20read%20syntax.html">Non-standard read syntax</a>.</p><h3 id="sec:Non-standard_macros"><a href="#sec:Non-standard_macros">Non-standard macros</a></h3><p>Numerous non-standard macros are provided. See <a href="Non-standard%20macros%20and%20special%20forms.html">Non-standard macros and special forms</a> for more information.</p><h3 id="sec:Extended_DSSSL_style_lambda_lists"><a href="#sec:Extended_DSSSL_style_lambda_lists">Extended DSSSL style lambda lists</a></h3><p>Extended DSSSL style lambda lists are supported. 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><h3 id="sec:set.21"><a href="#sec:set.21"><tt>set!</tt></a></h3><p><tt>set!</tt> for unbound toplevel variables is allowed. <tt>set! (PROCEDURE ...) ...)</tt> is supported, as CHICKEN implements <a href="http://srfi.schemers.org/srfi-17/srfi-17.html">SRFI-17</a>.</p><h3 id="sec:cond"><a href="#sec:cond"><tt>cond</tt></a></h3><p>The <tt>cond</tt> form supports <a href="http://srfi.schemers.org/srfi-61">SRFI-61</a>.</p><h3 id="sec:begin"><a href="#sec:begin"><tt>begin</tt></a></h3><p><tt>(begin)</tt> is allowed in non-toplevel contexts and evaluates to an unspecified value.</p><h3 id="sec:Delayed_expressions"><a href="#sec:Delayed_expressions">Delayed expressions</a></h3><p>Delayed expressions may return multiple values.</p><h3 id="sec:Internal_definitions"><a href="#sec:Internal_definitions">Internal definitions</a></h3><p>CHICKEN extends standard 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:Curried_definitions"><a href="#sec:Curried_definitions">Curried definitions</a></h3><p><tt>define</tt> with a single argument is allowed and initializes the toplevel or local binding to an unspecified value. CHICKEN supports <i>curried</i> definitions, where the variable name may also be a list specifying a name and a nested lambda list. So</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><h3 id="sec:Non-standard_procedures"><a href="#sec:Non-standard_procedures">Non-standard procedures</a></h3><p>CHICKEN provides numerous non-standard procedures. See the manual sections on library units for more information.</p><h3 id="sec:Special_IEEE_floating-point_numbers"><a href="#sec:Special_IEEE_floating-point_numbers">Special IEEE floating-point numbers</a></h3><p>The special IEEE floating-point numbers <i>+nan</i>, <i>+inf</i> and <i>-inf</i> are supported, as is negative zero.</p><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><p>The third argument to <tt>substring</tt> is optional and defaults to the length of the string.</p><h3 id="sec:Number.2fString_conversions"><a href="#sec:Number.2fString_conversions">Number/String conversions</a></h3><p>The optional &quot;base&quot; argument to <tt>string-&gt;number</tt> and <tt>number-&gt;string</tt> may be any integral value from 2 to 36.</p><h3 id="sec:force"><a href="#sec:force"><tt>force</tt></a></h3><p><tt>force</tt> called with an argument that is not a promise returns that object unchanged. Captured continuations can be safely invoked inside before- and after-thunks of a <tt>dynamic-wind</tt> form and execute in the outer dynamic context of the <tt>dynamic-wind</tt> form.</p><p><b>Implicit</b> non-multival continuations accept multiple values by discarding all but the first result. Zero values result in the continuation receiving an unspecified value. Note that this slight relaxation of the behaviour of returning mulitple values to non-multival continuations does not apply to explicit continuations (created with <tt>call-with-current-continuation</tt>).</p><h3 id="sec:eval"><a href="#sec:eval"><tt>eval</tt></a></h3><p>The second argument to <tt>eval</tt> is optional and defaults to the value of <tt>(interaction-environment)</tt>. <tt>scheme-report-environment</tt> and <tt>null-environment</tt> accept an optional 2nd parameter: if not <tt>#f</tt> (which is the default), toplevel bindings to standard procedures are mutable and new toplevel bindings may be introduced.</p><h3 id="sec:Optional_arguments_for_port-related_procedures"><a href="#sec:Optional_arguments_for_port-related_procedures">Optional arguments for port-related procedures</a></h3><p>If the procedures <tt>current-input-port</tt> and <tt>current-output-port</tt> are called with an argument (which should be a port), then that argument is selected as the new current input- and output-port, respectively. The procedures <tt>open-input-file</tt>, <tt>open-output-file</tt>, <tt>with-input-from-file</tt>, <tt>with-output-to-file</tt>, <tt>call-with-input-file</tt> and <tt>call-with-output-file</tt> accept an optional second (or third) argument which should be one or more keywords, if supplied. These arguments specify the mode in which the file is opened. Possible values are the keywords <tt>#:text</tt>, <tt>#:binary</tt> or <tt>#:append</tt>.</p><h3 id="sec:exit"><a href="#sec:exit"><tt>exit</tt></a></h3><p>The <tt>exit</tt> procedure exits a program right away and does <i>not</i> invoke pending <tt>dynamic-wind</tt> thunks.</p><hr /><p>Previous: <a href="Deviations%20from%20the%20standard.html">Deviations from the standard</a></p><p>Next: <a href="Non-standard%20read%20syntax.html">Non-standard read syntax</a></p></div></div></body>����������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Unit expand.html���������������������������������������������������������0000644�0001750�0001750�00000011472�13052306550�020300� 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; Unit expand</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:Unit_expand">Unit expand</a> <ul> <li><a href="#sec:Macros">Macros</a> <ul> <li><a href="#sec:get-line-number">get-line-number</a></li> <li><a href="#sec:expand">expand</a></li> <li><a href="#sec:syntax-error">syntax-error</a></li> <li><a href="#sec:er-macro-transformer">er-macro-transformer</a></li> <li><a href="#sec:ir-macro-transformer">ir-macro-transformer</a></li></ul></li></ul></li></ul></div><h2 id="sec:Unit_expand"><a href="#sec:Unit_expand">Unit expand</a></h2><p>This unit has support for syntax- and module handling. This unit is used by default, unless the program is compiled with the <tt>-explicit-use</tt> option.</p><h3 id="sec:Macros"><a href="#sec:Macros">Macros</a></h3><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"><tt>(get-line-number EXPR)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>If <tt>EXPR</tt> 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:expand"><a href="#sec:expand">expand</a></h4><dl class="defsig"><dt class="defsig" id="def:expand"><span class="sig"><tt>(expand X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>If <tt>X</tt> is a macro-form, expand the macro (and repeat expansion until expression is a non-macro form). Returns the resulting expression.</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> <h4 id="sec:er-macro-transformer"><a href="#sec:er-macro-transformer">er-macro-transformer</a></h4><dl class="defsig"><dt class="defsig" id="def:er-macro-transformer"><span class="sig"><tt>(er-macro-transformer TRANSFORMER)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns an explicit-renaming macro transformer procedure created from the procedural macro body <tt>TRANSFORMER</tt>, which is a procedure of three arguments.</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> <h4 id="sec:ir-macro-transformer"><a href="#sec:ir-macro-transformer">ir-macro-transformer</a></h4><dl class="defsig"><dt class="defsig" id="def:ir-macro-transformer"><span class="sig"><tt>(ir-macro-transformer TRANSFORMER)</tt></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.</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> <hr /><p>Previous: <a href="Unit%20library.html">Unit library</a></p><p>Next: <a href="Unit%20data-structures.html">Unit data-structures</a></p></div></div></body>������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Non-standard macros and special forms.html�������������������������������0000644�0001750�0001750�00000134701�13052306550�025152� 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; Non-standard macros and special forms</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:Non-standard_macros_and_special_forms">Non-standard macros and special forms</a> <ul> <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> <li><a href="#sec:use">use</a></li> <li><a href="#sec:require-extension-for-syntax">require-extension-for-syntax</a></li> <li><a href="#sec:use-for-syntax">use-for-syntax</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:parameterize">parameterize</a></li> <li><a href="#sec:receive">receive</a></li> <li><a href="#sec:set.21-values">set!-values</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> <li><a href="#sec:define-for-syntax">define-for-syntax</a></li> <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> <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:assert">assert</a></li> <li><a href="#sec:begin-for-syntax">begin-for-syntax</a></li> <li><a href="#sec:cond-expand">cond-expand</a></li></ul></li> <li><a href="#sec:delay-force">delay-force</a> <ul> <li><a href="#sec:ensure">ensure</a></li> <li><a href="#sec:eval-when">eval-when</a></li> <li><a href="#sec:include">include</a></li> <li><a href="#sec:nth-value">nth-value</a></li> <li><a href="#sec:time">time</a></li></ul></li></ul></li></ul></div><h2 id="sec:Non-standard_macros_and_special_forms"><a href="#sec:Non-standard_macros_and_special_forms">Non-standard macros and special forms</a></h2><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> <h4 id="sec:use"><a href="#sec:use">use</a></h4><dl class="defsig"><dt class="defsig" id="def:use"><span class="sig"><tt>(use ID ...)</tt></span> <span class="type">syntax</span></dt> <dd class="defsig"><p><tt>use</tt> is just a shorter alias for <tt>require-extension</tt>.</p></dd> </dl> <h4 id="sec:require-extension-for-syntax"><a href="#sec:require-extension-for-syntax">require-extension-for-syntax</a></h4><dl class="defsig"><dt class="defsig" id="def:require-extension-for-syntax"><span class="sig"><tt>(require-extension-for-syntax ID ...)</tt></span> <span class="type">syntax</span></dt> <dd class="defsig"><p>An abbreviation for the idiom:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">begin-for-syntax <span class="paren2">(<span class="default">require-library ID ...</span>)</span></span>)</span> <span class="comment">; load extension at expansion-time </span><span class="paren1">(<span class="default">import-for-syntax ID ...</span>)</span> <span class="comment">; import extension for use in syntax-transformers</span></pre></dd> </dl> <h4 id="sec:use-for-syntax"><a href="#sec:use-for-syntax">use-for-syntax</a></h4><dl class="defsig"><dt class="defsig" id="def:use-for-syntax"><span class="sig"><tt>(use-for-syntax ID ...)</tt></span> <span class="type">syntax</span></dt> <dd class="defsig"><p><tt>use</tt> is just a shorter alias for <tt>require-extension-for-syntax</tt> (which is quite a mouthful).</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></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></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></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). This implements <a href="http://srfi.schemers.org/srfi-11/srfi-11.html">SRFI-11</a>.</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). This is also part of <a href="http://srfi.schemers.org/srfi-11/srfi-11.html">SRFI-11</a>.</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: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></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> <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> <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>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: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> <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></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:assert"><a href="#sec:assert">assert</a></h4><dl class="defsig"><dt class="defsig" id="def:assert"><span class="sig"><tt>(assert EXP [STRING ARG ...])</tt></span> <span class="type">syntax</span></dt> <dd class="defsig"><p>Signals an error if <tt>EXP</tt> evaluates to false. An optional message <tt>STRING</tt> and arguments <tt>ARG ...</tt> may be supplied to give a more informative error-message. If compiled in <i>unsafe</i> mode (either by specifying the <tt>-unsafe</tt> compiler option or by declaring <tt>(unsafe)</tt>), then this expression expands to an unspecified value. The result is the value of <tt>EXP</tt>.</p></dd> </dl> <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.</p></dd> </dl> <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>utils</tt>, <tt>regex</tt>, <tt>srfi-0</tt>, <tt>srfi-1</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>, <tt>srfi-69</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>srfi-69</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>srfi-69</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:delay-force"><a href="#sec:delay-force">delay-force</a></h3><p>CHICKEN supports the R7RS <tt>delay-force</tt> syntax which allows for iterative lazy algorithms to be expressed in bounded space.</p><p>For more information regarding this behaviour, see the <a href="http://srfi.schemers.org/srfi-45/srfi-45.html">SRFI-45</a> rationale.</p><h4 id="sec:ensure"><a href="#sec:ensure">ensure</a></h4><dl class="defsig"><dt class="defsig" id="def:ensure"><span class="sig"><tt>(ensure PREDICATE EXP [ARGUMENTS ...])</tt></span> <span class="type">syntax</span></dt> <dd class="defsig"><p>Evaluates the expression <tt>EXP</tt> and applies the one-argument procedure <tt>PREDICATE</tt> to the result. If the predicate returns <tt>#f</tt> an error is signaled, otherwise the result of <tt>EXP</tt> is returned. If compiled in <i>unsafe</i> mode (either by specifying the <tt>-unsafe</tt> compiler option or by declaring <tt>(unsafe)</tt>), then this expression expands to an unspecified value. If specified, the optional <tt>ARGUMENTS</tt> are used as arguments to the invocation of the error-signalling code, as in <tt>(error ARGUMENTS ...)</tt>. If no <tt>ARGUMENTS</tt> are given, a generic error message is displayed with the offending value and <tt>PREDICATE</tt> expression.</p></dd> </dl> <h4 id="sec:eval-when"><a href="#sec:eval-when">eval-when</a></h4><dl class="defsig"><dt class="defsig" id="def:eval-when"><span class="sig"><tt>(eval-when (SITUATION ...) EXP ...)</tt></span> <span class="type">syntax</span></dt> <dd class="defsig"><p>Controls evaluation/compilation of subforms. <tt>SITUATION</tt> should be one of the symbols <tt>eval</tt>, <tt>compile</tt> or <tt>load</tt>. When encountered in the evaluator, and the situation specifier <tt>eval</tt> is not given, then this form is not evaluated and an unspecified value is returned. When encountered while compiling code, and the situation specifier <tt>compile</tt> is given, then this form is evaluated at compile-time. When encountered while compiling code, and the situation specifier <tt>load</tt> is not given, then this form is ignored and an expression resulting into an unspecified value is compiled instead.</p><p>The following table should make this clearer:</p><table> <tr><th></th><th>In compiled code</th><th>In interpreted code</th></tr> <tr><td><tt>eval</tt></td><td>ignore</td><td>evaluate</td></tr> <tr><td><tt>compile</tt></td><td>evaluate at compile time</td><td>ignore</td></tr> <tr><td><tt>load</tt></td><td>compile as normal</td><td>ignore</td></tr> </table> </dd> </dl> <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 in the current directory and, if not found, in all directories specified in the <tt>-include-path</tt> option.</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> <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="Non-standard%20read%20syntax.html">Non-standard read syntax</a></p><p>Next: <a href="Macros.html">Macros</a></p></div></div></body>���������������������������������������������������������������chicken-4.12.0/manual-html/Other support procedures.html��������������������������������������������0000644�0001750�0001750�00000002240�13052306551�023025� 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; Other support procedures</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:Other_support_procedures">Other support procedures</a> <ul> <li><a href="#sec:argc.2bargv">argc+argv</a></li></ul></li></ul></div><h2 id="sec:Other_support_procedures"><a href="#sec:Other_support_procedures">Other support procedures</a></h2><h3 id="sec:argc.2bargv"><a href="#sec:argc.2bargv">argc+argv</a></h3><dl class="defsig"><dt class="defsig" id="def:argc.2bargv"><span class="sig"><tt>(argc+argv)</tt></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> <hr /><p>Previous: <a href="Locations.html">Locations</a></p><p>Next: <a href="C%20interface.html">C interface</a></p></div></div></body>����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Unit srfi-18.html��������������������������������������������������������0000644�0001750�0001750�00000146104�13052306550�020213� 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; Unit srfi-18</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:Unit_srfi-18">Unit srfi-18</a></li> <li><a href="#sec:CHICKEN_implementation">CHICKEN implementation</a> <ul> <li><a href="#sec:Notes">Notes</a></li> <li><a href="#sec:Procedures">Procedures</a></li></ul></li> <li><a href="#sec:SRFI-18_specification">SRFI-18 specification</a> <ul> <li><a href="#sec:Background_information">Background information</a> <ul> <li><a href="#sec:Threads">Threads</a></li> <li><a href="#sec:Mutexes">Mutexes</a></li> <li><a href="#sec:Condition_variables">Condition variables</a></li> <li><a href="#sec:Fairness">Fairness</a></li> <li><a href="#sec:Memory_coherency_and_lack_of_atomicity">Memory coherency and lack of atomicity</a></li> <li><a href="#sec:Dynamic_environments.2c_continuations_and_dynamic-wind">Dynamic environments, continuations and <tt>dynamic-wind</tt></a></li> <li><a href="#sec:Time_objects_and_timeouts">Time objects and timeouts</a></li> <li><a href="#sec:Primitives_and_exceptions">Primitives and exceptions</a></li> <li><a href="#sec:Primordial_thread">Primordial thread</a></li></ul></li> <li><a href="#sec:Procedures">Procedures</a></li></ul></li></ul></div><h2 id="sec:Unit_srfi-18"><a href="#sec:Unit_srfi-18">Unit srfi-18</a></h2><p>A multithreading package, largely following the specification of <a href="http://srfi.schemers.org/srfi-18/srfi-18.html">SRFI-18</a>. This document contains the core of the SRFI-18 documentation as well as information on CHICKEN deviations from the spec.</p><p>The threads implemented in CHICKEN are so called &quot;green&quot; threads, based on first-class continuations. Native threads that map directly to the threads provided by the operating system are not supported. The advantage of this is that threads are very lightweight and somewhat larger degree of determinism. The disadvantage is that execution of Scheme code on multiple processor cores is not available.</p><p>SRFI-18 defines the following multithreading datatypes:</p><ul><li>Thread </li> <li>Mutex </li> <li>Condition variable </li> <li>Time </li> </ul> <p>It also defines a mechanism to handle exceptions and some multithreading exception datatypes.</p><h2 id="sec:CHICKEN_implementation"><a href="#sec:CHICKEN_implementation">CHICKEN implementation</a></h2><h3 id="sec:Notes"><a href="#sec:Notes">Notes</a></h3><ul><li><tt>thread-start!</tt> accepts a thunk (a zero argument procedure) as argument, which is equivalent to <tt>(thread-start! (make-thread THUNK))</tt>.</li> <li><tt>thread-sleep!</tt> accepts a seconds real number value in addition to a time object.</li> <li>When an uncaught exception (i.e. an error) is signalled in a thread other than the primordial thread and warnings are enabled (see: <tt>enable-warnings</tt>, then a warning message is written to the port that is the value of <tt>(current-error-port)</tt>.</li> <li>Blocking I/O will block all threads, except for some socket operations (see the section about the <tt>tcp</tt> unit). An exception is the read-eval-print loop on UNIX platforms: waiting for input will not block other threads, provided the current input port reads input from a console.</li> <li>It is generally not a good idea for one thread to call a continuation created by another thread, if <tt>dynamic-wind</tt> is involved.</li> <li>When more than one thread compete for the current time-slice, the thread that was waiting first will become the next runnable thread.</li> <li>The dynamic environment of a thread consists of the following state:<ul><li>The current input-, output- and error-port</li> <li>The current exception handler</li> <li>The values of all current parameters (created by <tt>make-parameter</tt>)</li> <li>Any pending <tt>dynamic-wind</tt> thunks.</li> </ul> </li> <li>When an error is triggered inside the execution context of a thread, the default exception-handler will simply terminate the thread (and store the error condition for later use). Pending <tt>dynamic-wind</tt> thunks will <i>not</i> be invoked. Use a custom exception handler for the thread in that case.</li> </ul> <h3 id="sec:Procedures"><a href="#sec:Procedures">Procedures</a></h3><p>The following procedures are provided in addition to the procedures defined in SRFI-18.</p><dl class="defsig"><dt class="defsig" id="def:thread-signal.21"><span class="sig"><tt>(thread-signal! THREAD X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>This will cause <tt>THREAD</tt> to signal the condition <tt>X</tt> once it is scheduled for execution. After signalling the condition, the thread continues with its normal execution.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:thread-quantum"><span class="sig"><tt>(thread-quantum THREAD)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the quantum of <tt>THREAD</tt>, which is an exact integer specifying the approximate time-slice of the thread in milliseconds.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:thread-quantum-set.21"><span class="sig"><tt>(thread-quantum-set! THREAD QUANTUM)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the quantum of <tt>THREAD</tt> to <tt>QUANTUM</tt>.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:thread-suspend.21"><span class="sig"><tt>(thread-suspend! THREAD)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Suspends the execution of <tt>THREAD</tt> until resumed.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:thread-resume.21"><span class="sig"><tt>(thread-resume! THREAD)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Readies the suspended thread <tt>THREAD</tt>.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:thread-wait-for-i.2fo.21"><span class="sig"><tt>(thread-wait-for-i/o! FD [MODE])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Suspends the current thread until input (<tt>MODE</tt> is <tt>#:input</tt>), output (<tt>MODE</tt> is <tt>#:output</tt>) or both (<tt>MODE</tt> is <tt>#:all</tt>) is available. <tt>FD</tt> should be a file-descriptor (not a port!) open for input or output, respectively.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:thread-state"><span class="sig"><tt>(thread-state thread)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns information about the state of the <tt>thread</tt>. The possible results are:</p><ul><li><b>symbol <tt>created</tt></b>: the <tt>thread</tt> is in the created state </li> <li><b>symbol <tt>ready</tt></b>: the <tt>thread</tt> is in the ready state </li> <li><b>symbol <tt>running</tt></b>: the <tt>thread</tt> is in the running state </li> <li><b>symbol <tt>blocked</tt></b>: the <tt>thread</tt> is in the blocked state </li> <li><b>symbol <tt>suspended</tt></b>: the <tt>thread</tt> is in the suspended state </li> <li><b>symbol <tt>sleeping</tt></b>: the <tt>thread</tt> is in the sleeping state </li> <li><b>symbol <tt>terminated</tt></b>: the <tt>thread</tt> is in the terminated state </li> <li><b>symbol <tt>dead</tt></b>: the <tt>thread</tt> is in the dead state </li> </ul> </dd> </dl> <h2 id="sec:SRFI-18_specification"><a href="#sec:SRFI-18_specification">SRFI-18 specification</a></h2><p>The thread system provides the following data types:</p><ul><li>Thread (a virtual processor which shares object space with all other threads) </li> <li>Mutex (a mutual exclusion device, also known as a lock and binary semaphore) </li> <li>Condition variable (a set of blocked threads) </li> <li>Time (an absolute point on the time line) </li> </ul> <p>Some multithreading exception datatypes are also specified, and a general mechanism for handling exceptions.</p><h3 id="sec:Background_information"><a href="#sec:Background_information">Background information</a></h3><h4 id="sec:Threads"><a href="#sec:Threads">Threads</a></h4><p>A &quot;running&quot; thread is a thread that is currently executing. There can be more than one running thread on a multiprocessor machine. A &quot;runnable&quot; thread is a thread that is ready to execute or running. A thread is &quot;blocked&quot; if it is waiting for a mutex to become unlocked, an I/O operation to become possible, the end of a &quot;sleep&quot; period, etc. A &quot;new&quot; thread is a thread that has not yet become runnable. A new thread becomes runnable when it is started. A &quot;terminated&quot; thread is a thread that can no longer become runnable (but &quot;deadlocked&quot; threads are not considered terminated). The only valid transitions between the thread states are from new to runnable, between runnable and blocked, and from any state to terminated:</p><pre> unblock start &lt;------- NEW -------&gt; RUNNABLE -------&gt; BLOCKED \ | block / \ v / +-----&gt; TERMINATED &lt;----+</pre><p>Each thread has a &quot;specific&quot; field which can be used in an application specific way to associate data with the thread (some thread systems call this &quot;thread local storage&quot;).</p><h4 id="sec:Mutexes"><a href="#sec:Mutexes">Mutexes</a></h4><p>A mutex can be in one of four states: locked (either owned or not owned) and unlocked (either abandoned or not abandoned). An attempt to lock a mutex only succeeds if the mutex is in an unlocked state, otherwise the current thread must wait. A mutex in the locked/owned state has an associated &quot;owner&quot; thread, which by convention is the thread that is responsible for unlocking the mutex (this case is typical of critical sections implemented as &quot;lock mutex, perform operation, unlock mutex&quot;). A mutex in the locked/not-owned state is not linked to a particular thread. A mutex becomes locked when a thread locks it using the <tt>mutex-lock!</tt> primitive. A mutex becomes unlocked/abandoned when the owner of a locked/owned mutex terminates. A mutex becomes unlocked/not-abandoned when a thread unlocks it using the <tt>mutex-unlock!</tt> primitive. The mutex primitives specified in this SRFI do not implement &quot;recursive&quot; mutex semantics; an attempt to lock a mutex that is locked implies that the current thread must wait even if the mutex is owned by the current thread (this can lead to a deadlock if no other thread unlocks the mutex).</p><p>Each mutex has a &quot;specific&quot; field which can be used in an application specific way to associate data with the mutex.</p><h4 id="sec:Condition_variables"><a href="#sec:Condition_variables">Condition variables</a></h4><p>A condition variable represents a set of blocked threads. These blocked threads are waiting for a certain condition to become true. When a thread modifies some program state that might make the condition true, the thread unblocks some number of threads (one or all depending on the primitive used) so they can check the value of the condition. This allows complex forms of interthread synchronization to be expressed more conveniently than with mutexes alone.</p><p>Each condition variable has a &quot;specific&quot; field which can be used in an application specific way to associate data with the condition variable.</p><h4 id="sec:Fairness"><a href="#sec:Fairness">Fairness</a></h4><p>In various situations the scheduler must select one thread from a set of threads (e.g. which thread to run when a running thread blocks or expires its quantum, which thread to unblock when a mutex unlocks or a condition variable is signaled). The constraints on the selection process determine the scheduler's &quot;fairness&quot;. Typically the selection depends on the order in which threads become runnable or blocked and on some &quot;priority&quot; attached to the threads.</p><p>Because we do not wish to preclude extensions to this SRFI (such as for real-time multithreading) that require specific fairness constraints, there are no fairness constraints imposed by this SRFI. It is expected however that implementations of Scheme that support this SRFI will document the fairness constraints they provide.</p><h4 id="sec:Memory_coherency_and_lack_of_atomicity"><a href="#sec:Memory_coherency_and_lack_of_atomicity">Memory coherency and lack of atomicity</a></h4><p>Read and write operations on the store (such as reading and writing a variable, an element of a vector or a string) are not required to be atomic. It is an error for a thread to write a location in the store while some other thread reads or writes that same location. It is the responsibility of the application to avoid write/read and write/write races through appropriate uses of the synchronization primitives.</p><p>Concurrent reads and writes to ports are allowed. It is the responsibility of the implementation to serialize accesses to a given port using the appropriate synchronization primitives.</p><h4 id="sec:Dynamic_environments.2c_continuations_and_dynamic-wind"><a href="#sec:Dynamic_environments.2c_continuations_and_dynamic-wind">Dynamic environments, continuations and <tt>dynamic-wind</tt></a></h4><p>The &quot;dynamic environment&quot; is a structure which allows the system to find the value returned by <tt>current-input-port</tt>, <tt>current-output-port</tt>, etc. The procedures <tt>with-input-from-file</tt>, <tt>with-output-to-file</tt>, etc extend the dynamic environment to produce a new dynamic environment which is in effect for the duration of the call to the thunk passed as the last argument. Some Scheme systems generalize the dynamic environment by providing procedures and special forms to define new &quot;dynamic variables&quot; and bind them in the dynamic environment (e.g. <tt>make-parameter</tt> and <tt>parameterize</tt>).</p><p>Each thread has its own dynamic environment. When a thread's dynamic environment is extended this does not affect the dynamic environment of other threads. When a thread creates a continuation, the thread's dynamic environment and the <tt>dynamic-wind</tt> stack are saved within the continuation (an alternate but equivalent point of view is that the <tt>dynamic-wind</tt> stack is part of the dynamic environment). When this continuation is invoked the required <tt>dynamic-wind</tt> before and after thunks are called and the saved dynamic environment is reinstated as the dynamic environment of the current thread. During the call to each required <tt>dynamic-wind</tt> before and after thunk, the dynamic environment and the <tt>dynamic-wind</tt> stack in effect when the corresponding <tt>dynamic-wind</tt> was executed are reinstated. Note that this specification clearly defines the semantics of calling <tt>call-with-current-continuation</tt> or invoking a continuation within a before or after thunk. The semantics are well defined even when a continuation created by another thread is invoked. Below is an example exercising the subtleties of this semantics.</p><pre> (with-output-to-file &quot;foo&quot; (lambda () (let ((k (call-with-current-continuation (lambda (exit) (with-output-to-file &quot;bar&quot; (lambda () (dynamic-wind (lambda () (write '(b1))) (lambda () (let ((x (call-with-current-continuation (lambda (cont) (exit cont))))) (write '(t1)) x)) (lambda () (write '(a1)))))))))) (if k (dynamic-wind (lambda () (write '(b2))) (lambda () (with-output-to-file &quot;baz&quot; (lambda () (write '(t2)) ; go back inside (with-output-to-file &quot;bar&quot; ...) (k #f)))) (lambda () (write '(a2))))))))</pre><p>In an implementation of Scheme where <tt>with-output-to-file</tt> only closes the port it opened when the thunk returns normally, then the following actions will occur: <tt>(b1)(a1)</tt> is written to &quot;bar&quot;, <tt>(b2)</tt> is written to &quot;foo&quot;, <tt>(t2)</tt> is written to &quot;baz&quot;, <tt>(a2)</tt> is written to &quot;foo&quot;, and <tt>(b1)(t1)(a1)</tt> is written to &quot;bar&quot;.</p><p>When the scheduler stops the execution of a running thread T1 (whether because it blocked, expired its quantum, was terminated, etc) and then resumes the execution of a thread T2, there is in a sense a transfer of control between T1's current continuation and the continuation of T2. This transfer of control by the scheduler does not cause any <tt>dynamic-wind</tt> before and after thunks to be called. It is only when a thread itself transfers control to a continuation that <tt>dynamic-wind</tt> before and after thunks are called.</p><h4 id="sec:Time_objects_and_timeouts"><a href="#sec:Time_objects_and_timeouts">Time objects and timeouts</a></h4><p>A time object represents a point on the time line. Its resolution is implementation dependent (implementations are encouraged to implement at least millisecond resolution so that precise timing is possible). Using <tt>time-&gt;seconds</tt> and <tt>seconds-&gt;time</tt>, a time object can be converted to and from a real number which corresponds to the number of seconds from a reference point on the time line. The reference point is implementation dependent and does not change for a given execution of the program (e.g. the reference point could be the time at which the program started).</p><p>All synchronization primitives which take a timeout parameter accept three types of values as a timeout, with the following meaning:</p><ul><li>a time object represents an absolute point in time </li> <li>an exact or inexact real number represents a relative time in seconds from the moment the primitive was called </li> <li><tt>#f</tt> means that there is no timeout </li> </ul> <p>When a timeout denotes the current time or a time in the past, the synchronization primitive claims that the timeout has been reached only after the other synchronization conditions have been checked. Moreover the thread remains running (it does not enter the blocked state). For example, <tt>(mutex-lock! m 0)</tt> will lock mutex <tt>m</tt> and return <tt>#t</tt> if <tt>m</tt> is currently unlocked, otherwise <tt>#f</tt> is returned because the timeout is reached.</p><h4 id="sec:Primitives_and_exceptions"><a href="#sec:Primitives_and_exceptions">Primitives and exceptions</a></h4><p>When one of the primitives defined in this SRFI raises an exception defined in this SRFI, the exception handler is called with the same continuation as the primitive (i.e. it is a tail call to the exception handler). This requirement avoids having to use <tt>call-with-current-continuation</tt> to get the same effect in some situations.</p><h4 id="sec:Primordial_thread"><a href="#sec:Primordial_thread">Primordial thread</a></h4><p>The execution of a program is initially under the control of a single thread known as the &quot;primordial thread&quot;. The primordial thread has an unspecified name, specific field, dynamic environment, <tt>dynamic-wind</tt> stack, and exception handler. All threads are terminated when the primordial thread terminates (normally or not).</p><h3 id="sec:Procedures"><a href="#sec:Procedures">Procedures</a></h3><dl class="defsig"><dt class="defsig" id="def:current-thread"><span class="sig"><tt>(current-thread)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the current thread.</p><pre> (eq? (current-thread) (current-thread)) ==&gt; #t</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:thread.3f"><span class="sig"><tt>(thread? obj)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>obj</tt> is a thread, otherwise returns <tt>#f</tt>.</p><pre> (thread? (current-thread)) ==&gt; #t (thread? 'foo) ==&gt; #f</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:make-thread"><span class="sig"><tt>(make-thread thunk [name])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new thread. This thread is not automatically made runnable (the procedure <tt>thread-start!</tt> must be used for this).</p><p>A thread has the following fields: name, specific, end-result, end-exception, and a list of locked/owned mutexes it owns. The thread's execution consists of a call to <i>thunk</i> with the &quot;initial continuation&quot;. This continuation causes the (then) current thread to store the result in its end-result field, abandon all mutexes it owns, and finally terminate. The <tt>dynamic-wind</tt> stack of the initial continuation is empty. The optional <tt>name</tt> is an arbitrary Scheme object which identifies the thread (useful for debugging); it defaults to an unspecified value. The specific field is set to an unspecified value.</p><p>The thread inherits the dynamic environment from the current thread. Moreover, in this dynamic environment the exception handler is bound to the &quot;initial exception handler&quot; which is a unary procedure which causes the (then) current thread to store in its end-exception field an &quot;uncaught exception&quot; object whose &quot;reason&quot; is the argument of the handler, abandon all mutexes it owns, and finally terminate.</p><pre> (make-thread (lambda () (write 'hello))) ==&gt; ''a thread''</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:thread-name"><span class="sig"><tt>(thread-name thread)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the name of the <tt>thread</tt>.</p><pre> (thread-name (make-thread (lambda () #f) 'foo)) ==&gt; foo</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:thread-specific"><span class="sig"><tt>(thread-specific thread)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the content of the <tt>thread</tt>'s specific field.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:thread-specific-set.21"><span class="sig"><tt>(thread-specific-set! thread obj)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Stores <tt>obj</tt> into the <tt>thread</tt>'s specific field. <tt>thread-specific-set!</tt> returns an unspecified value.</p><pre> (thread-specific-set! (current-thread) &quot;hello&quot;) ==&gt; ''unspecified'' (thread-specific (current-thread)) ==&gt; &quot;hello&quot;</pre><p>Alternatively, you can use</p><pre> (set! (thread-specific (current-thread)) &quot;hello&quot;)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:thread-start.21"><span class="sig"><tt>(thread-start! thread)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Makes <tt>thread</tt> runnable. The <tt>thread</tt> must be a new thread. <tt>thread-start!</tt> returns the <tt>thread</tt>.</p><pre> (let ((t (thread-start! (make-thread (lambda () (write 'a)))))) (write 'b) (thread-join! t)) ==&gt; ''unspecified'' ''after writing'' ab ''or'' ba</pre><p>NOTE: It is useful to separate thread creation and thread activation to avoid the race condition that would occur if the created thread tries to examine a table in which the current thread stores the created thread. See the last example of <tt>thread-terminate!</tt> which contains mutually recursive threads.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:thread-yield.21"><span class="sig"><tt>(thread-yield!)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>The current thread exits the running state as if its quantum had expired. <tt>thread-yield!</tt> returns an unspecified value.</p><pre> ; a busy loop that avoids being too wasteful of the CPU (let loop () (if (mutex-lock! m 0) ; try to lock m but don't block (begin (display &quot;locked mutex m&quot;) (mutex-unlock! m)) (begin (do-something-else) (thread-yield!) ; relinquish rest of quantum (loop))))</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:thread-sleep.21"><span class="sig"><tt>(thread-sleep! timeout)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>The current thread waits until the timeout is reached. This blocks the thread only if <tt>timeout</tt> represents a point in the future. It is an error for <tt>timeout</tt> to be <tt>#f</tt>. <tt>thread-sleep!</tt> returns an unspecified value.</p><pre> ; a clock with a gradual drift: (let loop ((x 1)) (thread-sleep! 1) (write x) (loop (+ x 1))) ; a clock with no drift: (let ((start (time-&gt;seconds (current-time))) (let loop ((x 1)) (thread-sleep! (seconds-&gt;time (+ x start))) (write x) (loop (+ x 1))))</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:thread-terminate.21"><span class="sig"><tt>(thread-terminate! thread)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Causes an abnormal termination of the <tt>thread</tt>. If the <tt>thread</tt> is not already terminated, all mutexes owned by the <tt>thread</tt> become unlocked/abandoned and a &quot;terminated thread exception&quot; object is stored in the <tt>thread</tt>'s end-exception field. If <tt>thread</tt> is the current thread, <tt>thread-terminate!</tt> does not return. Otherwise <tt>thread-terminate!</tt> returns an unspecified value; the termination of the <tt>thread</tt> will occur before <tt>thread-terminate!</tt> returns.</p><pre> (thread-terminate! (current-thread)) ==&gt; ''does not return'' (define (amb thunk1 thunk2) (let ((result #f) (result-mutex (make-mutex)) (done-mutex (make-mutex))) (letrec ((child1 (make-thread (lambda () (let ((x (thunk1))) (mutex-lock! result-mutex #f #f) (set! result x) (thread-terminate! child2) (mutex-unlock! done-mutex))))) (child2 (make-thread (lambda () (let ((x (thunk2))) (mutex-lock! result-mutex #f #f) (set! result x) (thread-terminate! child1) (mutex-unlock! done-mutex)))))) (mutex-lock! done-mutex #f #f) (thread-start! child1) (thread-start! child2) (mutex-lock! done-mutex #f #f) result)))</pre><p>NOTE: This operation must be used carefully because it terminates a thread abruptly and it is impossible for that thread to perform any kind of cleanup. This may be a problem if the thread is in the middle of a critical section where some structure has been put in an inconsistent state. However, another thread attempting to enter this critical section will raise an &quot;abandoned mutex exception&quot; because the mutex is unlocked/abandoned. This helps avoid observing an inconsistent state. Clean termination can be obtained by polling, as shown in the example below.</p><pre> (define (spawn thunk) (let ((t (make-thread thunk))) (thread-specific-set! t #t) (thread-start! t) t)) (define (stop! thread) (thread-specific-set! thread #f) (thread-join! thread)) (define (keep-going?) (thread-specific (current-thread))) (define count! (let ((m (make-mutex)) (i 0)) (lambda () (mutex-lock! m) (let ((x (+ i 1))) (set! i x) (mutex-unlock! m) x)))) (define (increment-forever!) (let loop () (count!) (if (keep-going?) (loop)))) (let ((t1 (spawn increment-forever!)) (t2 (spawn increment-forever!))) (thread-sleep! 1) (stop! t1) (stop! t2) (count!)) ==&gt; 377290</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:thread-join.21"><span class="sig"><tt>(thread-join! thread [timeout [timeout-val]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>The current thread waits until the <tt>thread</tt> terminates (normally or not) or until the timeout is reached if <tt>timeout</tt> is supplied. If the timeout is reached, <tt>thread-join!</tt> returns <tt>timeout-val</tt> if it is supplied, otherwise a &quot;join timeout exception&quot; is raised. If the <tt>thread</tt> terminated normally, the content of the end-result field is returned, otherwise the content of the end-exception field is raised.</p><pre> (let ((t (thread-start! (make-thread (lambda () (expt 2 100)))))) (do-something-else) (thread-join! t)) ==&gt; 1267650600228229401496703205376 (let ((t (thread-start! (make-thread (lambda () (raise 123)))))) (do-something-else) (with-exception-handler (lambda (exc) (if (uncaught-exception? exc) (* 10 (uncaught-exception-reason exc)) 99999)) (lambda () (+ 1 (thread-join! t))))) ==&gt; 1231 (define thread-alive? (let ((unique (list 'unique))) (lambda (thread) ; Note: this procedure raises an exception if ; the thread terminated abnormally. (eq? (thread-join! thread 0 unique) unique)))) (define (wait-for-termination! thread) (let ((eh (current-exception-handler))) (with-exception-handler (lambda (exc) (if (not (or (terminated-thread-exception? exc) (uncaught-exception? exc))) (eh exc))) ; unexpected exceptions are handled by eh (lambda () ; The following call to thread-join! will wait until the ; thread terminates. If the thread terminated normally ; thread-join! will return normally. If the thread ; terminated abnormally then one of these two exceptions ; is raised by thread-join!: ; - terminated thread exception ; - uncaught exception (thread-join! thread) #f)))) ; ignore result of thread-join!</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:mutex.3f"><span class="sig"><tt>(mutex? obj)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>obj</tt> is a mutex, otherwise returns <tt>#f</tt>.</p><pre> (mutex? (make-mutex)) ==&gt; #t (mutex? 'foo) ==&gt; #f</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:make-mutex"><span class="sig"><tt>(make-mutex [name])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new mutex in the unlocked/not-abandoned state. The optional <tt>name</tt> is an arbitrary Scheme object which identifies the mutex (useful for debugging); it defaults to an unspecified value. The mutex's specific field is set to an unspecified value.</p><pre> (make-mutex) ==&gt; ''an unlocked/not-abandoned mutex'' (make-mutex 'foo) ==&gt; ''an unlocked/not-abandoned mutex named'' foo</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:mutex-name"><span class="sig"><tt>(mutex-name mutex)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the name of the <tt>mutex</tt>.</p><pre> (mutex-name (make-mutex 'foo)) ==&gt; foo</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:mutex-specific"><span class="sig"><tt>(mutex-specific mutex)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the content of the <tt>mutex</tt>'s specific field.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:mutex-specific-set.21"><span class="sig"><tt>(mutex-specific-set! mutex obj)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Stores <tt>obj</tt> into the <tt>mutex</tt>'s specific field. <tt>mutex-specific-set!</tt> returns an unspecified value.</p><pre> (define m (make-mutex)) (mutex-specific-set! m &quot;hello&quot;) ==&gt; ''unspecified'' (mutex-specific m) ==&gt; &quot;hello&quot; (define (mutex-lock-recursively! mutex) (if (eq? (mutex-state mutex) (current-thread)) (let ((n (mutex-specific mutex))) (mutex-specific-set! mutex (+ n 1))) (begin (mutex-lock! mutex) (mutex-specific-set! mutex 0)))) (define (mutex-unlock-recursively! mutex) (let ((n (mutex-specific mutex))) (if (= n 0) (mutex-unlock! mutex) (mutex-specific-set! mutex (- n 1)))))</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:mutex-state"><span class="sig"><tt>(mutex-state mutex)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns information about the state of the <tt>mutex</tt>. The possible results are:</p><ul><li><b>thread T</b>: the <tt>mutex</tt> is in the locked/owned state and thread T is the owner of the <tt>mutex</tt> </li> <li><b>symbol <tt>not-owned</tt></b>: the <tt>mutex</tt> is in the locked/not-owned state </li> <li><b>symbol <tt>abandoned</tt></b>: the <tt>mutex</tt> is in the unlocked/abandoned state </li> <li><b>symbol <tt>not-abandoned</tt></b>: the <tt>mutex</tt> is in the unlocked/not-abandoned state </li> </ul> <pre> (mutex-state (make-mutex)) ==&gt; not-abandoned (define (thread-alive? thread) (let ((mutex (make-mutex))) (mutex-lock! mutex #f thread) (let ((state (mutex-state mutex))) (mutex-unlock! mutex) ; avoid space leak (eq? state thread))))</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:mutex-lock.21"><span class="sig"><tt>(mutex-lock! mutex [timeout [thread]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>If the <tt>mutex</tt> is currently locked, the current thread waits until the <tt>mutex</tt> is unlocked, or until the timeout is reached if <tt>timeout</tt> is supplied. If the timeout is reached, <tt>mutex-lock!</tt> returns <tt>#f</tt>. Otherwise, the state of the <tt>mutex</tt> is changed as follows:</p><ul><li>if <tt>thread</tt> is <tt>#f</tt> the <tt>mutex</tt> becomes locked/not-owned, </li> <li>otherwise, let T be <tt>thread</tt> (or the current thread if <tt>thread</tt> is not supplied), <ul><li>if T is terminated the <tt>mutex</tt> becomes unlocked/abandoned, </li> <li>otherwise <tt>mutex</tt> becomes locked/owned with T as the owner. </li> </ul> </li> </ul> <p>After changing the state of the <tt>mutex</tt>, an &quot;abandoned mutex exception&quot; is raised if the <tt>mutex</tt> was unlocked/abandoned before the state change, otherwise <tt>mutex-lock!</tt> returns <tt>#t</tt>. It is not an error if the <tt>mutex</tt> is owned by the current thread (but the current thread will have to wait).</p><pre> ; an implementation of a mailbox object of depth one; this ; implementation does not behave well in the presence of forced ; thread terminations using thread-terminate! (deadlock can occur ; if a thread is terminated in the middle of a put! or get! operation) (define (make-empty-mailbox) (let ((put-mutex (make-mutex)) ; allow put! operation (get-mutex (make-mutex)) (cell #f)) (define (put! obj) (mutex-lock! put-mutex #f #f) ; prevent put! operation (set! cell obj) (mutex-unlock! get-mutex)) ; allow get! operation (define (get!) (mutex-lock! get-mutex #f #f) ; wait until object in mailbox (let ((result cell)) (set! cell #f) ; prevent space leaks (mutex-unlock! put-mutex) ; allow put! operation result)) (mutex-lock! get-mutex #f #f) ; prevent get! operation (lambda (msg) (case msg ((put!) put!) ((get!) get!) (else (error &quot;unknown message&quot;)))))) (define (mailbox-put! m obj) ((m 'put!) obj)) (define (mailbox-get! m) ((m 'get!))) ; an alternate implementation of thread-sleep! (define (sleep! timeout) (let ((m (make-mutex))) (mutex-lock! m #f #f) (mutex-lock! m timeout #f))) ; a procedure that waits for one of two mutexes to unlock (define (lock-one-of! mutex1 mutex2) ; this procedure assumes that neither mutex1 or mutex2 ; are owned by the current thread (let ((ct (current-thread)) (done-mutex (make-mutex))) (mutex-lock! done-mutex #f #f) (let ((t1 (thread-start! (make-thread (lambda () (mutex-lock! mutex1 #f ct) (mutex-unlock! done-mutex))))) (t2 (thread-start! (make-thread (lambda () (mutex-lock! mutex2 #f ct) (mutex-unlock! done-mutex)))))) (mutex-lock! done-mutex #f #f) (thread-terminate! t1) (thread-terminate! t2) (if (eq? (mutex-state mutex1) ct) (begin (if (eq? (mutex-state mutex2) ct) (mutex-unlock! mutex2)) ; don't lock both mutex1) mutex2))))</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:mutex-unlock.21"><span class="sig"><tt>(mutex-unlock! mutex [condition-variable [timeout]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Unlocks the <tt>mutex</tt> by making it unlocked/not-abandoned. It is not an error to unlock an unlocked mutex and a mutex that is owned by any thread. If <tt>condition-variable</tt> is supplied, the current thread is blocked and added to the <tt>condition-variable</tt> before unlocking <tt>mutex</tt>; the thread can unblock at any time but no later than when an appropriate call to <tt>condition-variable-signal!</tt> or <tt>condition-variable-broadcast!</tt> is performed (see below), and no later than the timeout (if <tt>timeout</tt> is supplied). If there are threads waiting to lock this <tt>mutex</tt>, the scheduler selects a thread, the mutex becomes locked/owned or locked/not-owned, and the thread is unblocked. <tt>mutex-unlock!</tt> returns <tt>#f</tt> when the timeout is reached, otherwise it returns <tt>#t</tt>.</p><p>NOTE: The reason the thread can unblock at any time (when <tt>condition-variable</tt> is supplied) is to allow extending this SRFI with primitives that force a specific blocked thread to become runnable. For example a primitive to interrupt a thread so that it performs a certain operation, whether the thread is blocked or not, may be useful to handle the case where the scheduler has detected a serious problem (such as a deadlock) and it must unblock one of the threads (such as the primordial thread) so that it can perform some appropriate action. After a thread blocked on a condition-variable has handled such an interrupt it would be wrong for the scheduler to return the thread to the blocked state, because any calls to <tt>condition-variable-broadcast!</tt> during the interrupt will have gone unnoticed. It is necessary for the thread to remain runnable and return from the call to <tt>mutex-unlock!</tt> with a result of <tt>#t</tt>.</p><p>NOTE: <tt>mutex-unlock!</tt> is related to the &quot;wait&quot; operation on condition variables available in other thread systems. The main difference is that &quot;wait&quot; automatically locks <tt>mutex</tt> just after the thread is unblocked. This operation is not performed by <tt>mutex-unlock!</tt> and so must be done by an explicit call to <tt>mutex-lock!</tt>. This has the advantages that a different timeout and exception handler can be specified on the <tt>mutex-lock!</tt> and <tt>mutex-unlock!</tt> and the location of all the mutex operations is clearly apparent. A typical use with a condition variable is:</p><pre> (let loop () (mutex-lock! m) (if (condition-is-true?) (begin (do-something-when-condition-is-true) (mutex-unlock! m)) (begin (mutex-unlock! m cv) (loop))))</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:condition-variable.3f"><span class="sig"><tt>(condition-variable? obj)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>obj</tt> is a condition variable, otherwise returns <tt>#f</tt>.</p><pre> (condition-variable? (make-condition-variable)) ==&gt; #t (condition-variable? 'foo) ==&gt; #f</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:make-condition-variable"><span class="sig"><tt>(make-condition-variable [name])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new empty condition variable. The optional <tt>name</tt> is an arbitrary Scheme object which identifies the condition variable (useful for debugging); it defaults to an unspecified value. The condition variable's specific field is set to an unspecified value.</p><pre> (make-condition-variable) ==&gt; ''an empty condition variable''</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:condition-variable-name"><span class="sig"><tt>(condition-variable-name condition-variable)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the name of the <tt>condition-variable</tt>.</p><pre> (condition-variable-name (make-condition-variable 'foo)) ==&gt; foo</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:condition-variable-specific"><span class="sig"><tt>(condition-variable-specific condition-variable)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the content of the <tt>condition-variable</tt>'s specific field.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:condition-variable-specific-set.21"><span class="sig"><tt>(condition-variable-specific-set! condition-variable obj)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Stores <tt>obj</tt> into the <tt>condition-variable</tt>'s specific field. <tt>condition-variable-specific-set!</tt> returns an unspecified value.</p><pre> (define cv (make-condition-variable)) (condition-variable-specific-set! cv &quot;hello&quot;) ==&gt; ''unspecified'' (condition-variable-specific cv) ==&gt; &quot;hello&quot;</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:condition-variable-signal.21"><span class="sig"><tt>(condition-variable-signal! condition-variable)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>If there are threads blocked on the <tt>condition-variable</tt>, the scheduler selects a thread and unblocks it. <tt>condition-variable-signal!</tt> returns an unspecified value.</p><pre> ; an implementation of a mailbox object of depth one; this ; implementation behaves gracefully when threads are forcibly ; terminated using thread-terminate! (the &quot;abandoned mutex&quot; ; exception will be raised when a put! or get! operation is attempted ; after a thread is terminated in the middle of a put! or get! ; operation) (define (make-empty-mailbox) (let ((mutex (make-mutex)) (put-condvar (make-condition-variable)) (get-condvar (make-condition-variable)) (full? #f) (cell #f)) (define (put! obj) (mutex-lock! mutex) (if full? (begin (mutex-unlock! mutex put-condvar) (put! obj)) (begin (set! cell obj) (set! full? #t) (condition-variable-signal! get-condvar) (mutex-unlock! mutex)))) (define (get!) (mutex-lock! mutex) (if (not full?) (begin (mutex-unlock! mutex get-condvar) (get!)) (let ((result cell)) (set! cell #f) ; avoid space leaks (set! full? #f) (condition-variable-signal! put-condvar) (mutex-unlock! mutex)))) (lambda (msg) (case msg ((put!) put!) ((get!) get!) (else (error &quot;unknown message&quot;)))))) (define (mailbox-put! m obj) ((m 'put!) obj)) (define (mailbox-get! m) ((m 'get!)))</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:condition-variable-broadcast.21"><span class="sig"><tt>(condition-variable-broadcast! condition-variable)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Unblocks all the threads blocked on the <tt>condition-variable</tt>. <tt>condition-variable-broadcast!</tt> returns an unspecified value.</p><pre> (define (make-semaphore n) (vector n (make-mutex) (make-condition-variable))) (define (semaphore-wait! sema) (mutex-lock! (vector-ref sema 1)) (let ((n (vector-ref sema 0))) (if (&gt; n 0) (begin (vector-set! sema 0 (- n 1)) (mutex-unlock! (vector-ref sema 1))) (begin (mutex-unlock! (vector-ref sema 1) (vector-ref sema 2)) (semaphore-wait! sema)))) (define (semaphore-signal-by! sema increment) (mutex-lock! (vector-ref sema 1)) (let ((n (+ (vector-ref sema 0) increment))) (vector-set! sema 0 n) (if (&gt; n 0) (condition-variable-broadcast! (vector-ref sema 2))) (mutex-unlock! (vector-ref sema 1))))</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:current-time"><span class="sig"><tt>(current-time)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the time object corresponding to the current time.</p><pre> (current-time) ==&gt; ''a time object''</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:time.3f"><span class="sig"><tt>(time? obj)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>obj</tt> is a time object, otherwise returns <tt>#f</tt>.</p><pre> (time? (current-time)) ==&gt; #t (time? 123) ==&gt; #f</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:time-.3eseconds"><span class="sig"><tt>(time-&gt;seconds time)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Converts the time object <tt>time</tt> into an exact or inexact real number representing the number of seconds elapsed since some implementation dependent reference point.</p><pre> (time-&gt;seconds (current-time)) ==&gt; 955039784.928075</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:seconds-.3etime"><span class="sig"><tt>(seconds-&gt;time x)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Converts into a time object the exact or inexact real number <tt>x</tt> representing the number of seconds elapsed since some implementation dependent reference point.</p><pre> (seconds-&gt;time (+ 10 (time-&gt;seconds (current-time))) ==&gt; ''a time object representing 10 seconds in the future''</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:current-exception-handler"><span class="sig"><tt>(current-exception-handler)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the current exception handler.</p><pre> (current-exception-handler) ==&gt; ''a procedure''</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:with-exception-handler"><span class="sig"><tt>(with-exception-handler handler thunk)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the result(s) of calling <tt>thunk</tt> with no arguments. The <tt>handler</tt>, which must be a procedure, is installed as the current exception handler in the dynamic environment in effect during the call to <tt>thunk</tt>.</p><pre> (with-exception-handler list current-exception-handler) ==&gt; ''the procedure'' list</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:raise"><span class="sig"><tt>(raise obj)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Calls the current exception handler with <tt>obj</tt> as the single argument. <tt>obj</tt> may be any Scheme object.</p><pre> (define (f n) (if (&lt; n 0) (raise &quot;negative arg&quot;) (sqrt n)))) (define (g) (call-with-current-continuation (lambda (return) (with-exception-handler (lambda (exc) (return (if (string? exc) (string-append &quot;error: &quot; exc) &quot;unknown error&quot;))) (lambda () (write (f 4.)) (write (f -1.)) (write (f 9.))))))) (g) ==&gt; ''writes'' 2. ''and returns'' &quot;error: negative arg&quot;</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:join-timeout-exception.3f"><span class="sig"><tt>(join-timeout-exception? obj)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>obj</tt> is a &quot;join timeout exception&quot; object, otherwise returns <tt>#f</tt>. A join timeout exception is raised when <tt>thread-join!</tt> is called, the timeout is reached and no <tt>timeout-val</tt> is supplied.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:abandoned-mutex-exception.3f"><span class="sig"><tt>(abandoned-mutex-exception? obj)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>obj</tt> is an &quot;abandoned mutex exception&quot; object, otherwise returns <tt>#f</tt>. An abandoned mutex exception is raised when the current thread locks a mutex that was owned by a thread which terminated (see <tt>mutex-lock!</tt>).</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:terminated-thread-exception.3f"><span class="sig"><tt>(terminated-thread-exception? obj)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>obj</tt> is a &quot;terminated thread exception&quot; object, otherwise returns <tt>#f</tt>. A terminated thread exception is raised when <tt>thread-join!</tt> is called and the target thread has terminated as a result of a call to <tt>thread-terminate!</tt>.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:uncaught-exception.3f"><span class="sig"><tt>(uncaught-exception? obj)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>obj</tt> is an &quot;uncaught exception&quot; object, otherwise returns <tt>#f</tt>. An uncaught exception is raised when <tt>thread-join!</tt> is called and the target thread has terminated because it raised an exception that called the initial exception handler of that thread.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:uncaught-exception-reason"><span class="sig"><tt>(uncaught-exception-reason exc)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p><tt>exc</tt> must be an &quot;uncaught exception&quot; object. <tt>uncaught-exception-reason</tt> returns the object which was passed to the initial exception handler of that thread.</p></dd> </dl> <hr /><p>Previous: <a href="Unit%20srfi-14.html">Unit srfi-14</a></p><p>Next: <a href="Unit%20srfi-69.html">Unit srfi-69</a></p></div></div></body>������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Unit ports.html����������������������������������������������������������0000644�0001750�0001750�00000030165�13052306550�020170� 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; Unit ports</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:Unit_ports">Unit ports</a> <ul> <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></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-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:Unit_ports"><a href="#sec:Unit_ports">Unit ports</a></h2><p>This unit contains various extended port definitions. This unit is used by default, unless the program is compiled with the <tt>-explicit-use</tt> option.</p><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"><tt>(with-output-to-port PORT THUNK)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Call procedure <tt>THUNK</tt> with the current output-port temporarily bound to <tt>PORT</tt>.</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"><tt>(make-input-port READ-CHAR CHAR-READY? CLOSE [PEEK-CHAR [READ-STRING! [READ-LINE]]])</tt></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><tt>READ-CHAR</tt> 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><tt>CHAR-READY?</tt> 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><tt>CLOSE</tt> is a thunk which is called when the port is closed.</li> <li><tt>PEEK-CHAR</tt> 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>, <tt>READ-CHAR</tt> will be used instead and the created port object handles peeking automatically (by calling <tt>READ</tt> and buffering the character).</li> <li><tt>READ-STRING!</tt> 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 <tt>READ-CHAR</tt>.</li> <li><tt>READ-LINE</tt> 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 <tt>READ-CHAR</tt>.</li> </ul> <p>All the optional procedures except for <tt>PEEK-CHAR</tt> 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"><tt>(make-output-port WRITE CLOSE [FLUSH])</tt></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. <tt>WRITE</tt> is called when output is sent to the port and receives a single argument, a string. <tt>CLOSE</tt> is called when the port is closed and should be a procedure of no arguments. <tt>FLUSH</tt> (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"><tt>(with-error-output-to-port PORT THUNK)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Call procedure <tt>THUNK</tt> with the current error output-port temporarily bound to <tt>PORT</tt>.</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"><tt>(with-input-from-port PORT THUNK)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Call procedure <tt>THUNK</tt> with the current input-port temporarily bound to <tt>PORT</tt>.</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"><tt>(call-with-input-string STRING PROC)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Calls the procedure <tt>PROC</tt> with a single argument that is a string-input-port with the contents of <tt>STRING</tt>.</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"><tt>(call-with-output-string PROC)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Calls the procedure <tt>PROC</tt> 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"><tt>(with-input-from-string STRING THUNK)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Call procedure <tt>THUNK</tt> with the current input-port temporarily bound to an input-string-port with the contents of <tt>STRING</tt>.</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"><tt>(with-output-to-string THUNK)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Call procedure <tt>THUNK</tt> with the current 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"><tt>(port-for-each FN THUNK)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Apply <tt>FN</tt> to successive results of calling the zero argument procedure <tt>THUNK</tt> (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"><tt>(port-map FN THUNK)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Apply <tt>FN</tt> to successive results of calling the zero argument procedure <tt>THUNK</tt> (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"><tt>(port-fold FN ACC THUNK)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Apply <tt>FN</tt> to successive results of calling the zero argument procedure <tt>THUNK</tt>, (typically <tt>read</tt>) passing the <tt>ACC</tt> value as the second argument. The <tt>FN</tt> result becomes the new <tt>ACC</tt> value. When <tt>THUNK</tt> returns <tt>#!eof</tt>, the last <tt>FN</tt> 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"><tt>(copy-port FROM TO [READ [WRITE]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Reads all remaining data from port <tt>FROM</tt> using the reader procedure <tt>READ</tt> and writes it to port <tt>TO</tt> using the writer procedure <tt>WRITE</tt>. <tt>READ</tt> defaults to <tt>read-char</tt> and <tt>WRITE</tt> to <tt>write-char</tt>. Note that this procedure does not check <tt>FROM</tt> and <tt>TO</tt> 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-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"><tt>(make-broadcast-port PORT ...)</tt></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"><tt>(make-concatenated-port PORT1 PORT2 ...)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a custom input port that reads its input from <tt>PORT1</tt>, until it is empty, then from <tt>PORT2</tt> and so on. Closing the concatenated port does not close any of the argument ports.</p></dd> </dl> <hr /><p>Previous: <a href="Unit%20data-structures.html">Unit data-structures</a></p><p>Next: <a href="Unit%20files.html">Unit files</a></p></div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Deployment.html����������������������������������������������������������0000644�0001750�0001750�00000023042�13052306550�020235� 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:Simple_executables">Simple executables</a></li> <li><a href="#sec:Self_contained_applications">Self contained applications</a> <ul> <li><a href="#sec:Platform-specific_notes">Platform-specific notes</a> <ul> <li><a href="#sec:Linux">Linux</a></li> <li><a href="#sec:Windows">Windows</a></li> <li><a href="#sec:MacOS_X">MacOS X</a></li> <li><a href="#sec:Other_UNIX_flavors">Other UNIX flavors</a></li></ul></li></ul></li> <li><a href="#sec:Deploying_source_code">Deploying source code</a></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><h3 id="sec:Simple_executables"><a href="#sec:Simple_executables">Simple executables</a></h3><p>The simplest form of deployment is the single executable. The runtime library (<tt>libchicken.so</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.5 =&gt; /home/felix/chicken/core/lib/libchicken.so.5 (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><p>Linking your application statically will include the runtime library in the executable, but this will increase its size substantially:</p><pre> % ls myprogram -rwxr-xr-x 1 felix felix 3566656 2010-02-22 20:30 myprogram</pre><p>Programs distributed this way can only use <a href="Extensions.html">Extensions</a> if these extensions get linked in statically, which is basically supported but not available for all extensions.</p><h3 id="sec:Self_contained_applications"><a href="#sec:Self_contained_applications">Self contained applications</a></h3><p>The solution to many of these problems is creating an application directory that contains the executable, the runtime libraries, extensions and additional support files needed by the program. The executable has to be linked specially to make sure the correct included runtime library is used. You do this by using the <tt>-deploy</tt> options provided by the compiler driver, <tt>csc</tt>:</p><pre> % csc -deploy myprogram.scm % ls -l myprogram -rwxr-xr-x 1 felix felix 7972753 2010-02-22 20:19 libchicken.so.5 -rwxr-xr-x 1 felix felix 34839 2010-02-22 20:19 myprogram % ldd myprogram linux-gate.so.1 =&gt; (0xb806a000) libchicken.so.5 =&gt; /home/felix/tmp/myprogram/libchicken.so.5 (0xb7c30000) libm.so.6 =&gt; /lib/tls/i686/cmov/libm.so.6 (0xb7bfa000) libdl.so.2 =&gt; /lib/tls/i686/cmov/libdl.so.2 (0xb7bf5000) libc.so.6 =&gt; /lib/tls/i686/cmov/libc.so.6 (0xb7a92000) /lib/ld-linux.so.2 (0xb806b000)</pre><p>As can be seen here, <tt>myprogram</tt> is prepared to load the contained <tt>libchicken</tt>, not any installed in the system that happens to have the same name.</p><p>You can even install extensions inside the application directory:</p><pre> % chicken-install -deploy -p $PWD/myprogram defstruct ... % ls -l myprogram -rwxr-xr-x 1 felix felix 82842 2010-02-22 20:24 defstruct.import.so -rw-r--r-- 1 felix felix 182 2010-02-22 20:24 defstruct.setup-info -rwxr-xr-x 1 felix felix 11394 2010-02-22 20:24 defstruct.so -rwxr-xr-x 1 felix felix 7972753 2010-02-22 20:19 libchicken.so.5 -rwxr-xr-x 1 felix felix 34839 2010-02-22 20:19 myprogram</pre><p>We can check with ldd that those compiled extension libraries are linked with the correct library:</p><pre> % ldd myprogram/*.so /home/felix/tmp/myprogram/defstruct.import.so: linux-gate.so.1 =&gt; (0xb7f4f000) libchicken.so.5 =&gt; /home/felix/tmp/myprogram/libchicken.so.5 (0xb7b08000) libm.so.6 =&gt; /lib/tls/i686/cmov/libm.so.6 (0xb7ad2000) libdl.so.2 =&gt; /lib/tls/i686/cmov/libdl.so.2 (0xb7acd000) libc.so.6 =&gt; /lib/tls/i686/cmov/libc.so.6 (0xb796a000) /lib/ld-linux.so.2 (0xb7f50000) /home/felix/tmp/myprogram/defstruct.so: linux-gate.so.1 =&gt; (0xb80c9000) libchicken.so.5 =&gt; /home/felix/tmp/myprogram/libchicken.so.5 (0xb7c8c000) libm.so.6 =&gt; /lib/tls/i686/cmov/libm.so.6 (0xb7c56000) libdl.so.2 =&gt; /lib/tls/i686/cmov/libdl.so.2 (0xb7c51000) libc.so.6 =&gt; /lib/tls/i686/cmov/libc.so.6 (0xb7aee000) /lib/ld-linux.so.2 (0xb80ca000)</pre><p>The <tt>-deploy</tt> option passed to <tt>csc</tt> when compiling <tt>myprogram.scm</tt> has taken care of setting up the application directory as the &quot;repository&quot; for extensions that the program will use at runtime:</p><pre> % myprogram/myprogram -:d [debug] application startup... [debug] heap resized to 500000 bytes [debug] stack bottom is 0xbfdbdf60. [debug] entering toplevel toplevel... [debug] stack resized to 131072 bytes [debug] entering toplevel library_toplevel... [debug] entering toplevel eval_toplevel... [debug] entering toplevel expand_toplevel... [debug] loading compiled module `/home/felix/tmp/myprogram/defstruct.so' (handle is 0x886ce98) ...</pre><p>There is one restriction that you should be aware of: you cannot <tt>chicken-install -deploy</tt> an uninstalled extension, e.g. directly from an SVN checkout. You must first install it on your build system normally with <tt>chicken-install</tt>, so that <tt>csc</tt> can find its import library in the system-wide repository (or in a custom one if you have set <tt>CHICKEN_REPOSITORY</tt>). This is only needed while you are deploying the extension into the application directory; once deployed, of course, it's totally self-contained.</p><p>You can execute the program from its location, or you can install a symbolic link pointing to it - it will find the correct directory where the actual executable is located.</p><p>The application directory 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 hunt them down yourself and place them in the application directory. If these again have dependencies, things will get complicated and will involve things like patching binaries or writing &quot;trampoline&quot; shell scripts to run your application.</p><p>Deployment is fully compatible with &quot;cross CHICKENs&quot; (see <a href="Cross%20development.html">Cross development</a>).</p><h4 id="sec:Platform-specific_notes"><a href="#sec:Platform-specific_notes">Platform-specific notes</a></h4><h5 id="sec:Linux"><a href="#sec:Linux">Linux</a></h5><p>Deployment is fully supported on Linux</p><h5 id="sec:Windows"><a href="#sec:Windows">Windows</a></h5><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><h5 id="sec:MacOS_X"><a href="#sec:MacOS_X">MacOS X</a></h5><p>On the Macintosh, passing the <tt>-gui</tt> option to <tt>csc</tt> will result in a true GUI application bundle (named <tt>&lt;your-program&gt;.app</tt>).</p><p>Invoking</p><pre> % otool -L &lt;yourprogram&gt;</pre><p>will list dynamic libraries that your application needs.</p><h5 id="sec:Other_UNIX_flavors"><a href="#sec:Other_UNIX_flavors">Other UNIX flavors</a></h5><p>Setting up the application executable to load runtime libraries from the same directory is supported on FreeBSD, NetBSD, OpenBSD and Solaris.</p><p>Under NetBSD, you must invoke the binary using its full absolute path (or via <tt>$PATH</tt>), otherwise it will give you an error message:</p><pre> execname not specified in AUX vector: No such file or directory</pre><p>On AIX, deployment is currently not fully supported as the runtime linker will only load libraries from paths hardcoded at link time.</p><h3 id="sec:Deploying_source_code"><a href="#sec:Deploying_source_code">Deploying source code</a></h3><p>An alternative to deploying binaries is deployment as compiled C sources.</p><p>See the corresponding section in <a href="Using%20the%20compiler.html">Using the compiler</a>.</p><hr /><p>Previous: <a href="Extensions.html">Extensions</a></p><p>Next: <a href="Cross%20development.html">Cross development</a></p></div></div></body>����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Callbacks.html�����������������������������������������������������������0000644�0001750�0001750�00000013762�13052306547�020012� 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; Callbacks</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: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></ul></div><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><hr /><p>Previous: <a href="Embedding.html">Embedding</a></p><p>Next: <a href="Locations.html">Locations</a></p></div></div></body>��������������chicken-4.12.0/manual-html/manual.css���������������������������������������������������������������0000644�0001750�0001750�00000001741�13052306551�017221� 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-4.12.0/manual-html/chicken.png��������������������������������������������������������������0000644�0001750�0001750�00000073405�13052306551�017352� 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-4.12.0/manual-html/Non-standard read syntax.html��������������������������������������������0000644�0001750�0001750�00000025337�13052306550�022661� 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; Non-standard 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: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:Sharp_Prefixed_Symbol">Sharp Prefixed Symbol</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: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><pre>#$EXPRESSION</pre><p>An abbreviation for <tt>(location EXPRESSION)</tt>.</p><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:Sharp_Prefixed_Symbol"><a href="#sec:Sharp_Prefixed_Symbol">Sharp Prefixed Symbol</a></h3><dl class="defsig"><dt class="defsig" id="def:.23.25"><span class="sig"><tt>#%</tt></span> <span class="type">read</span></dt> <dd class="defsig"><pre>#%... </pre><p>Reads like a normal symbol.</p></dd> </dl> <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="Extensions%20to%20the%20standard.html">Extensions to the standard</a></p><p>Next: <a href="Non-standard%20macros%20and%20special%20forms.html">Non-standard macros and special forms</a></p></div></div></body>�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Unit srfi-14.html��������������������������������������������������������0000644�0001750�0001750�00000144174�13052306550�020214� 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; Unit srfi-14</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"><h2 id="sec:Unit_srfi-14"><a href="#sec:Unit_srfi-14">Unit srfi-14</a></h2><p>Character set library. An abbreviated version of the SRFI is provided in this document. Full documentation is available in the <a href="http://srfi.schemers.org/srfi-14/srfi-14.html">original SRFI-14 document</a>.</p><p>On systems that support dynamic loading, the <tt>srfi-14</tt> unit can be made available in the interpreter (<tt>csi</tt>) by entering</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">require-extension srfi-14</span>)</span></pre><p>This library provides only the Latin-1 character set. To get Unicode semantics, see the <a href="http://wiki.call-cc.org/egg/utf8">utf8</a> egg. However, information on Unicode character sets is still provided in this document.</p><h2 id="sec:Specification"><a href="#sec:Specification">Specification</a></h2><p>In the following procedure specifications:</p><ul><li>A CS parameter is a character set. </li> <li>An S parameter is a string. </li> <li>A CHAR parameter is a character. </li> <li>A CHAR-LIST parameter is a list of characters. </li> <li>A PRED parameter is a unary character predicate procedure, returning a true/false value when applied to a character. </li> <li>An OBJ parameter may be any value at all. </li> </ul> <p>Passing values to procedures with these parameters that do not satisfy these types is an error.</p><p>Unless otherwise noted in the specification of a procedure, procedures always return character sets that are distinct (from the point of view of the linear-update operations) from the parameter character sets. For example, <tt>char-set-adjoin</tt> is guaranteed to provide a fresh character set, even if it is not given any character parameters.</p><p>Parameters given in square brackets are optional. Unless otherwise noted in the text describing the procedure, any prefix of these optional parameters may be supplied, from zero arguments to the full list. When a procedure returns multiple values, this is shown by listing the return values in square brackets, as well. So, for example, the procedure with signature</p><pre>halts? F [X INIT-STORE] -&gt; [BOOLEAN INTEGER]</pre><p>would take one (F), two (F, X) or three (F, X, INIT-STORE) input parameters, and return two values, a boolean and an integer.</p><p>A parameter followed by &quot;<tt>...</tt>&quot; means zero-or-more elements. So the procedure with the signature</p><pre>sum-squares X ... -&gt; NUMBER</pre><p>takes zero or more arguments (X ...), while the procedure with signature</p><pre>spell-check DOC DICT_1 DICT_2 ... -&gt; STRING-LIST</pre><p>takes two required parameters (DOC and DICT_1) and zero or more optional parameters (DICT_2 ...).</p><h3 id="sec:General_procedures"><a href="#sec:General_procedures">General procedures</a></h3><dl class="defsig"><dt class="defsig" id="def:char-set.3f"><span class="sig"><tt>(char-set? obj) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Is the object OBJ a character set?</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set.3d"><span class="sig"><tt>(char-set= cs_1 ...) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Are the character sets equal?</p><p>Boundary cases:</p><pre>(char-set=) =&gt; TRUE (char-set= cs) =&gt; TRUE</pre><p>Rationale: transitive binary relations are generally extended to n-ary relations in Scheme, which enables clearer, more concise code to be written. While the zero-argument and one-argument cases will almost certainly not arise in first-order uses of such relations, they may well arise in higher-order cases or macro-generated code. <i>E.g.,</i> consider</p><pre>(apply char-set= cset-list)</pre><p>This is well-defined if the list is empty or a singleton list. Hence we extend these relations to any number of arguments. Implementors have reported actual uses of n-ary relations in higher-order cases allowing for fewer than two arguments. The way of Scheme is to handle the general case; we provide the fully general extension.</p><p>A counter-argument to this extension is that R5RS's transitive binary arithmetic relations (<tt>=</tt>, <tt>&lt;</tt>, <i>etc.</i>) require at least two arguments, hence this decision is a break with the prior convention -- although it is at least one that is backwards-compatible.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set.3c.3d"><span class="sig"><tt>(char-set&lt;= cs_1 ...) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns true if every character set CS_I is a subset of character set CS_I+1.</p><p>Boundary cases:</p><pre>(char-set&lt;=) =&gt; TRUE (char-set&lt;= cs) =&gt; TRUE</pre><p>Rationale: See <tt>char-set=</tt> for discussion of zero- and one-argument applications. Consider testing a list of char-sets for monotonicity with</p><pre>(apply char-set&lt;= cset-list)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set-hash"><span class="sig"><tt>(char-set-hash cs [bound]) -&gt; integer</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Compute a hash value for the character set CS. BOUND is a non-negative exact integer specifying the range of the hash function. A positive value restricts the return value to the range [0,BOUND).</p><p>If BOUND is either zero or not given, the implementation may use an implementation-specific default value, chosen to be as large as is efficiently practical. For instance, the default range might be chosen for a given implementation to map all strings into the range of integers that can be represented with a single machine word.</p><p>Invariant:</p><pre>(char-set= cs_1 cs_2) =&gt; (= (char-set-hash cs_1 b) (char-set-hash cs_2 b))</pre><p>A legal but nonetheless discouraged implementation:</p><pre>(define (char-set-hash cs . maybe-bound) 1)</pre><p>Rationale: allowing the user to specify an explicit bound simplifies user code by removing the mod operation that typically accompanies every hash computation, and also may allow the implementation of the hash function to exploit a reduced range to efficiently compute the hash value. <i>E.g.</i>, for small bounds, the hash function may be computed in a fashion such that intermediate values never overflow into bignum integers, allowing the implementor to provide a fixnum-specific &quot;fast path&quot; for computing the common cases very rapidly.</p></dd> </dl> <h3 id="sec:Iterating_over_character_sets"><a href="#sec:Iterating_over_character_sets">Iterating over character sets</a></h3><dl class="defsig"><dt class="defsig" id="def:char-set-cursor"><span class="sig"><tt>(char-set-cursor cset) -&gt; cursor</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-set-ref"><span class="sig"><tt>(char-set-ref cset cursor) -&gt; char</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-set-cursor-next"><span class="sig"><tt>(char-set-cursor-next cset cursor) -&gt; cursor</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:end-of-char-set.3f"><span class="sig"><tt>(end-of-char-set? cursor) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Cursors are a low-level facility for iterating over the characters in a set. A cursor is a value that indexes a character in a char set. <tt>char-set-cursor</tt> produces a new cursor for a given char set. The set element indexed by the cursor is fetched with <tt>char-set-ref</tt>. A cursor index is incremented with <tt>char-set-cursor-next</tt>; in this way, code can step through every character in a char set. Stepping a cursor &quot;past the end&quot; of a char set produces a cursor that answers true to <tt>end-of-char-set?</tt>. It is an error to pass such a cursor to <tt>char-set-ref</tt> or to <tt>char-set-cursor-next</tt>.</p><p>A cursor value may not be used in conjunction with a different character set; if it is passed to <tt>char-set-ref</tt> or <tt>char-set-cursor-next</tt> with a character set other than the one used to create it, the results and effects are undefined.</p><p>Cursor values are <i>not</i> necessarily distinct from other types. They may be integers, linked lists, records, procedures or other values. This license is granted to allow cursors to be very &quot;lightweight&quot; values suitable for tight iteration, even in fairly simple implementations.</p><p>Note that these primitives are necessary to export an iteration facility for char sets to loop macros.</p><p>Example:</p><pre>(define cs (char-set #\G #\a #\T #\e #\c #\h)) ;; Collect elts of CS into a list. (let lp ((cur (char-set-cursor cs)) (ans '())) (if (end-of-char-set? cur) ans (lp (char-set-cursor-next cs cur) (cons (char-set-ref cs cur) ans)))) =&gt; (#\G #\T #\a #\c #\e #\h) ;; Equivalently, using a list unfold (from SRFI 1): (unfold-right end-of-char-set? (curry char-set-ref cs) (curry char-set-cursor-next cs) (char-set-cursor cs)) =&gt; (#\G #\T #\a #\c #\e #\h)</pre><p>Rationale: Note that the cursor API's four functions &quot;fit&quot; the functional protocol used by the unfolders provided by the list, string and char-set SRFIs (see the example above). By way of contrast, here is a simpler, two-function API that was rejected for failing this criterion. Besides <tt>char-set-cursor</tt>, it provided a single function that mapped a cursor and a character set to two values, the indexed character and the next cursor. If the cursor had exhausted the character set, then this function returned false instead of the character value, and another end-of-char-set cursor. In this way, the other three functions of the current API were combined together.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set-fold"><span class="sig"><tt>(char-set-fold kons knil cs) -&gt; object</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>This is the fundamental iterator for character sets. Applies the function KONS across the character set CS using initial state value KNIL. That is, if CS is the empty set, the procedure returns KNIL. Otherwise, some element C of CS is chosen; let CS' be the remaining, unchosen characters. The procedure returns</p><pre>(char-set-fold KONS (KONS C KNIL) CS')</pre><p>Examples:</p><pre>;; CHAR-SET-MEMBERS (lambda (cs) (char-set-fold cons '() cs)) ;; CHAR-SET-SIZE (lambda (cs) (char-set-fold (lambda (c i) (+ i 1)) 0 cs)) ;; How many vowels in the char set? (lambda (cs) (char-set-fold (lambda (c i) (if (vowel? c) (+ i 1) i)) 0 cs))</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set-unfold"><span class="sig"><tt>(char-set-unfold f p g seed [base-cs]) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-set-unfold.21"><span class="sig"><tt>(char-set-unfold! f p g seed base-cs) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>This is a fundamental constructor for char-sets.</p><ul><li>G is used to generate a series of &quot;seed&quot; values from the initial seed: SEED, (G SEED), (G^2 SEED), (G^3 SEED), ... </li> <li>P tells us when to stop -- when it returns true when applied to one of these seed values. </li> <li>F maps each seed value to a character. These characters are added to the base character set BASE-CS to form the result; BASE-CS defaults to the empty set. <tt>char-set-unfold!</tt> adds the characters to BASE-CS in a linear-update -- it is allowed, but not required, to side-effect and use BASE-CS's storage to construct the result. </li> </ul> <p>More precisely, the following definitions hold, ignoring the optional-argument issues:</p><pre>(define (char-set-unfold p f g seed base-cs) (char-set-unfold! p f g seed (char-set-copy base-cs))) (define (char-set-unfold! p f g seed base-cs) (let lp ((seed seed) (cs base-cs)) (if (p seed) cs ; P says we are done. (lp (g seed) ; Loop on (G SEED). (char-set-adjoin! cs (f seed)))))) ; Add (F SEED) to set.</pre><p>(Note that the actual implementation may be more efficient.)</p><p>Examples:</p><pre>(port-&gt;char-set p) = (char-set-unfold eof-object? values (lambda (x) (read-char p)) (read-char p)) (list-&gt;char-set lis) = (char-set-unfold null? car cdr lis)</pre></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set-for-each"><span class="sig"><tt>(char-set-for-each proc cs) -&gt; unspecified</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Apply procedure PROC to each character in the character set CS. Note that the order in which PROC is applied to the characters in the set is not specified, and may even change from one procedure application to another.</p><p>Nothing at all is specified about the value returned by this procedure; it is not even required to be consistent from call to call. It is simply required to be a value (or values) that may be passed to a command continuation, <i>e.g.</i> as the value of an expression appearing as a non-terminal subform of a <tt>begin</tt> expression. Note that in R5RS, this restricts the procedure to returning a single value; non-R5RS systems may not even provide this restriction.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set-map"><span class="sig"><tt>(char-set-map proc cs) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>PROC is a char-&gt;char procedure. Apply it to all the characters in the char-set CS, and collect the results into a new character set.</p><p>Essentially lifts PROC from a char-&gt;char procedure to a char-set -&gt; char-set procedure.</p><p>Example:</p><pre>(char-set-map char-downcase cset)</pre></dd> </dl> <h3 id="sec:Creating_character_sets"><a href="#sec:Creating_character_sets">Creating character sets</a></h3><dl class="defsig"><dt class="defsig" id="def:char-set-copy"><span class="sig"><tt>(char-set-copy cs) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a copy of the character set CS. &quot;Copy&quot; means that if either the input parameter or the result value of this procedure is passed to one of the linear-update procedures described below, the other character set is guaranteed not to be altered.</p><p>A system that provides pure-functional implementations of the linear-operator suite could implement this procedure as the identity function -- so copies are <i>not</i> guaranteed to be distinct by <tt>eq?</tt>.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set"><span class="sig"><tt>(char-set char_1 ...) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Return a character set containing the given characters.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:list-.3echar-set"><span class="sig"><tt>(list-&gt;char-set char-list [base-cs]) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3echar-set.21"><span class="sig"><tt>(list-&gt;char-set! char-list base-cs) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Return a character set containing the characters in the list of characters CHAR-LIST.</p><p>If character set BASE-CS is provided, the characters from CHAR-LIST are added to it. <tt>list-&gt;char-set!</tt> is allowed, but not required, to side-effect and reuse the storage in BASE-CS; <tt>list-&gt;char-set</tt> produces a fresh character set.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:string-.3echar-set"><span class="sig"><tt>(string-&gt;char-set s [base-cs]) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-.3echar-set.21"><span class="sig"><tt>(string-&gt;char-set! s base-cs) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Return a character set containing the characters in the string S.</p><p>If character set BASE-CS is provided, the characters from S are added to it. <tt>string-&gt;char-set!</tt> is allowed, but not required, to side-effect and reuse the storage in BASE-CS; <tt>string-&gt;char-set</tt> produces a fresh character set.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set-filter"><span class="sig"><tt>(char-set-filter pred cs [base-cs]) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-set-filter.21"><span class="sig"><tt>(char-set-filter! pred cs base-cs) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a character set containing every character C in CS such that <tt>(PRED C)</tt> returns true.</p><p>If character set BASE-CS is provided, the characters specified by PRED are added to it. <tt>char-set-filter!</tt> is allowed, but not required, to side-effect and reuse the storage in BASE-CS; <tt>char-set-filter</tt> produces a fresh character set.</p><p>An implementation may not save away a reference to PRED and invoke it after <tt>char-set-filter</tt> or <tt>char-set-filter!</tt> returns -- that is, &quot;lazy,&quot; on-demand implementations are not allowed, as PRED may have external dependencies on mutable data or have other side-effects.</p><p>Rationale: This procedure provides a means of converting a character predicate into its equivalent character set; the CS parameter allows the programmer to bound the predicate's domain. Programmers should be aware that filtering a character set such as <tt>char-set:full</tt> could be a very expensive operation in an implementation that provided an extremely large character type, such as 32-bit Unicode. An earlier draft of this library provided a simple <tt>predicate-&gt;char-set</tt> procedure, which was rejected in favor of <tt>char-set-filter</tt> for this reason.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:ucs-range-.3echar-set"><span class="sig"><tt>(ucs-range-&gt;char-set lower upper [error? base-cs]) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:ucs-range-.3echar-set.21"><span class="sig"><tt>(ucs-range-&gt;char-set! lower upper error? base-cs) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>LOWER and UPPER are exact non-negative integers; LOWER &lt;= UPPER.</p><p>Returns a character set containing every character whose ISO/IEC 10646 UCS-4 code lies in the half-open range [LOWER,UPPER).</p><ul><li>If the requested range includes unassigned UCS values, these are silently ignored (the current UCS specification has &quot;holes&quot; in the space of assigned codes). </li> <li>If the requested range includes &quot;private&quot; or &quot;user space&quot; codes, these are handled in an implementation-specific manner; however, a UCS- or Unicode-based Scheme implementation should pass them through transparently. </li> <li>If any code from the requested range specifies a valid, assigned UCS character that has no corresponding representative in the implementation's character type, then (1) an error is raised if ERROR? is true, and (2) the code is ignored if ERROR? is false (the default). This might happen, for example, if the implementation uses ASCII characters, and the requested range includes non-ASCII characters. </li> </ul> <p>If character set BASE-CS is provided, the characters specified by the range are added to it. <tt>ucs-range-&gt;char-set!</tt> is allowed, but not required, to side-effect and reuse the storage in BASE-CS; <tt>ucs-range-&gt;char-set</tt> produces a fresh character set.</p><p>Note that ASCII codes are a subset of the Latin-1 codes, which are in turn a subset of the 16-bit Unicode codes, which are themselves a subset of the 32-bit UCS-4 codes. We commit to a specific encoding in this routine, regardless of the underlying representation of characters, so that client code using this library will be portable. <i>I.e.</i>, a conformant Scheme implementation may use EBCDIC or SHIFT-JIS to encode characters; it must simply map the UCS characters from the given range into the native representation when possible, and report errors when not possible.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:-.3echar-set"><span class="sig"><tt>(-&gt;char-set x) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Coerces X into a char-set. X may be a string, character or char-set. A string is converted to the set of its constituent characters; a character is converted to a singleton set; a char-set is returned as-is. This procedure is intended for use by other procedures that want to provide &quot;user-friendly,&quot; wide-spectrum interfaces to their clients.</p></dd> </dl> <h3 id="sec:Querying_character_sets"><a href="#sec:Querying_character_sets">Querying character sets</a></h3><dl class="defsig"><dt class="defsig" id="def:char-set-size"><span class="sig"><tt>(char-set-size cs) -&gt; integer</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the number of elements in character set CS.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set-count"><span class="sig"><tt>(char-set-count pred cs) -&gt; integer</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Apply PRED to the chars of character set CS, and return the number of chars that caused the predicate to return true.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set-.3elist"><span class="sig"><tt>(char-set-&gt;list cs) -&gt; character-list</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>This procedure returns a list of the members of character set CS. The order in which CS's characters appear in the list is not defined, and may be different from one call to another.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set-.3estring"><span class="sig"><tt>(char-set-&gt;string cs) -&gt; string</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>This procedure returns a string containing the members of character set CS. The order in which CS's characters appear in the string is not defined, and may be different from one call to another.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set-contains.3f"><span class="sig"><tt>(char-set-contains? cs char) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>This procedure tests CHAR for membership in character set CS.</p><p>The MIT Scheme character-set package called this procedure CHAR-SET-MEMBER?, but the argument order isn't consistent with the name.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set-every"><span class="sig"><tt>(char-set-every pred cs) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-set-any"><span class="sig"><tt>(char-set-any pred cs) -&gt; boolean</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>The <tt>char-set-every</tt> procedure returns true if predicate PRED returns true of every character in the character set CS. Likewise, <tt>char-set-any</tt> applies PRED to every character in character set CS, and returns the first true value it finds. If no character produces a true value, it returns false. The order in which these procedures sequence through the elements of CS is not specified.</p><p>Note that if you need to determine the actual character on which a predicate returns true, use <tt>char-set-any</tt> and arrange for the predicate to return the character parameter as its true value, <i>e.g.</i></p><pre>(char-set-any (lambda (c) (and (char-upper-case? c) c)) cs)</pre></dd> </dl> <h3 id="sec:Character-set_algebra"><a href="#sec:Character-set_algebra">Character-set algebra</a></h3><dl class="defsig"><dt class="defsig" id="def:char-set-adjoin"><span class="sig"><tt>(char-set-adjoin cs char_1 ...) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-set-delete"><span class="sig"><tt>(char-set-delete cs char_1 ...) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Add/delete the CHAR_I characters to/from character set CS.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set-adjoin.21"><span class="sig"><tt>(char-set-adjoin! cs char_1 ...) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-set-delete.21"><span class="sig"><tt>(char-set-delete! cs char_1 ...) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Linear-update variants. These procedures are allowed, but not required, to side-effect their first parameter.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set-complement"><span class="sig"><tt>(char-set-complement cs) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-set-union"><span class="sig"><tt>(char-set-union cs_1 ...) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-set-intersection"><span class="sig"><tt>(char-set-intersection cs_1 ...) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-set-difference"><span class="sig"><tt>(char-set-difference cs_1 cs_2 ...) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-set-xor"><span class="sig"><tt>(char-set-xor cs_1 ...) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-set-diff.2bintersection"><span class="sig"><tt>(char-set-diff+intersection cs_1 cs_2 ...) -&gt; [char-set char-set]</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures implement set complement, union, intersection, difference, and exclusive-or for character sets. The union, intersection and xor operations are n-ary. The difference function is also n-ary, associates to the left (that is, it computes the difference between its first argument and the union of all the other arguments), and requires at least one argument.</p><p>Boundary cases:</p><pre>(char-set-union) =&gt; char-set:empty (char-set-intersection) =&gt; char-set:full (char-set-xor) =&gt; char-set:empty (char-set-difference CS) =&gt; CS</pre><p><tt>char-set-diff+intersection</tt> returns both the difference and the intersection of the arguments -- it partitions its first parameter. It is equivalent to</p><pre>(values (char-set-difference CS_1 CS_2 ...) (char-set-intersection CS_1 (char-set-union CS_2 ...)))</pre><p>but can be implemented more efficiently.</p><p>Programmers should be aware that <tt>char-set-complement</tt> could potentially be a very expensive operation in Scheme implementations that provide a very large character type, such as 32-bit Unicode. If this is a possibility, sets can be complimented with respect to a smaller universe using <tt>char-set-difference</tt>.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set-complement.21"><span class="sig"><tt>(char-set-complement! cs) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-set-union.21"><span class="sig"><tt>(char-set-union! cs_1 cs_2 ...) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-set-intersection.21"><span class="sig"><tt>(char-set-intersection! cs_1 cs_2 ...) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-set-difference.21"><span class="sig"><tt>(char-set-difference! cs_1 cs_2 ...) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-set-xor.21"><span class="sig"><tt>(char-set-xor! cs_1 cs_2 ...) -&gt; char-set</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:char-set-diff.2bintersection.21"><span class="sig"><tt>(char-set-diff+intersection! cs_1 cs_2 cs_3 ...) -&gt; [char-set char-set]</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>These are linear-update variants of the set-algebra functions. They are allowed, but not required, to side-effect their first (required) parameter.</p><p><tt>char-set-diff+intersection!</tt> is allowed to side-effect both of its two required parameters, CS_1 and CS_2.</p></dd> </dl> <h2 id="sec:Standard_character_sets"><a href="#sec:Standard_character_sets">Standard character sets</a></h2><p>Several character sets are predefined for convenience:</p><table> <tr><td><tt>char-set:lower-case</tt></td><td>Lower-case letters</td></tr> <tr><td><tt>char-set:upper-case</tt></td><td>Upper-case letters</td></tr> <tr><td><tt>char-set:title-case</tt></td><td>Title-case letters</td></tr> <tr><td><tt>char-set:letter</tt></td><td>Letters</td></tr> <tr><td><tt>char-set:digit</tt></td><td>Digits</td></tr> <tr><td><tt>char-set:letter+digit</tt></td><td>Letters and digits</td></tr> <tr><td><tt>char-set:graphic</tt></td><td>Printing characters except spaces</td></tr> <tr><td><tt>char-set:printing</tt></td><td>Printing characters including spaces</td></tr> <tr><td><tt>char-set:whitespace</tt></td><td>Whitespace characters</td></tr> <tr><td><tt>char-set:iso-control</tt></td><td>The ISO control characters</td></tr> <tr><td><tt>char-set:punctuation</tt></td><td>Punctuation characters</td></tr> <tr><td><tt>char-set:symbol</tt></td><td>Symbol characters</td></tr> <tr><td><tt>char-set:hex-digit</tt></td><td>A hexadecimal digit: 0-9, A-F, a-f</td></tr> <tr><td><tt>char-set:blank</tt></td><td>Blank characters -- horizontal whitespace</td></tr> <tr><td><tt>char-set:ascii</tt></td><td>All characters in the ASCII set.</td></tr> <tr><td><tt>char-set:empty</tt></td><td>Empty set</td></tr> <tr><td><tt>char-set:full</tt></td><td>All characters</td></tr> </table> <p>In Unicode Scheme implementations, the base character sets are compatible with Java's Unicode specifications. For ASCII or Latin-1, we simply restrict the Unicode set specifications to their first 128 or 256 codes, respectively.</p><p>Here are the definitions for some of the sets in an ASCII implementation:</p><table> <tr><td><tt>char-set:lower-case</tt></td><td>a-z</td></tr> <tr><td><tt>char-set:upper-case</tt></td><td>A-Z</td></tr> <tr><td><tt>char-set:letter</tt></td><td>A-Z and a-z</td></tr> <tr><td><tt>char-set:digit</tt></td><td>0123456789</td></tr> <tr><td><tt>char-set:punctuation</tt></td><td><tt>!&quot;#%&amp;'()*,-./:;?@[\]_{</tt>}</td></tr> <tr><td><tt>char-set:symbol</tt></td><td><tt>$+&lt;=&gt;^`|~</tt></td></tr> <tr><td><tt>char-set:whitespace</tt></td><td>Space, newline, tab, form feed, vertical tab, carriage return</td></tr> <tr><td><tt>char-set:blank</tt></td><td>Space and tab</td></tr> <tr><td><tt>char-set:graphic</tt></td><td>letter + digit + punctuation + symbol</td></tr> <tr><td><tt>char-set:printing</tt></td><td>graphic + whitespace</td></tr> <tr><td><tt>char-set:iso-control</tt></td><td>ASCII 0-31 and 127</td></tr> </table> <h3 id="sec:Character_set_constants"><a href="#sec:Character_set_constants">Character set constants</a></h3><dl class="defsig"><dt class="defsig" id="def:char-set:lower-case"><span class="sig"><tt>char-set:lower-case</tt></span> <span class="type">constant</span></dt> <dd class="defsig"><p>For Unicode, a character is lowercase if</p><ul><li>it is not in the range [U+2000,U+2FFF], and </li> <li>the Unicode attribute table does not give a lowercase mapping for it, and </li> <li>at least one of the following is true: <ul><li>the Unicode attribute table gives a mapping to uppercase for the character, or </li> <li>the name for the character in the Unicode attribute table contains the words &quot;SMALL LETTER&quot; or &quot;SMALL LIGATURE&quot;. </li> </ul> </li> </ul> <p>The lower-case ASCII characters are</p><p>abcdefghijklmnopqrstuvwxyz</p><p>Latin-1 adds another 33 lower-case characters to the ASCII set:</p><table> <tr><td>00B5</td><td>MICRO SIGN</td></tr> <tr><td>00DF</td><td>LATIN SMALL LETTER SHARP S</td></tr> <tr><td>00E0</td><td>LATIN SMALL LETTER A WITH GRAVE</td></tr> <tr><td>00E1</td><td>LATIN SMALL LETTER A WITH ACUTE</td></tr> <tr><td>00E2</td><td>LATIN SMALL LETTER A WITH CIRCUMFLEX</td></tr> <tr><td>00E3</td><td>LATIN SMALL LETTER A WITH TILDE</td></tr> <tr><td>00E4</td><td>LATIN SMALL LETTER A WITH DIAERESIS</td></tr> <tr><td>00E5</td><td>LATIN SMALL LETTER A WITH RING ABOVE</td></tr> <tr><td>00E6</td><td>LATIN SMALL LETTER AE</td></tr> <tr><td>00E7</td><td>LATIN SMALL LETTER C WITH CEDILLA</td></tr> <tr><td>00E8</td><td>LATIN SMALL LETTER E WITH GRAVE</td></tr> <tr><td>00E9</td><td>LATIN SMALL LETTER E WITH ACUTE</td></tr> <tr><td>00EA</td><td>LATIN SMALL LETTER E WITH CIRCUMFLEX</td></tr> <tr><td>00EB</td><td>LATIN SMALL LETTER E WITH DIAERESIS</td></tr> <tr><td>00EC</td><td>LATIN SMALL LETTER I WITH GRAVE</td></tr> <tr><td>00ED</td><td>LATIN SMALL LETTER I WITH ACUTE</td></tr> <tr><td>00EE</td><td>LATIN SMALL LETTER I WITH CIRCUMFLEX</td></tr> <tr><td>00EF</td><td>LATIN SMALL LETTER I WITH DIAERESIS</td></tr> <tr><td>00F0</td><td>LATIN SMALL LETTER ETH</td></tr> <tr><td>00F1</td><td>LATIN SMALL LETTER N WITH TILDE</td></tr> <tr><td>00F2</td><td>LATIN SMALL LETTER O WITH GRAVE</td></tr> <tr><td>00F3</td><td>LATIN SMALL LETTER O WITH ACUTE</td></tr> <tr><td>00F4</td><td>LATIN SMALL LETTER O WITH CIRCUMFLEX</td></tr> <tr><td>00F5</td><td>LATIN SMALL LETTER O WITH TILDE</td></tr> <tr><td>00F6</td><td>LATIN SMALL LETTER O WITH DIAERESIS</td></tr> <tr><td>00F8</td><td>LATIN SMALL LETTER O WITH STROKE</td></tr> <tr><td>00F9</td><td>LATIN SMALL LETTER U WITH GRAVE</td></tr> <tr><td>00FA</td><td>LATIN SMALL LETTER U WITH ACUTE</td></tr> <tr><td>00FB</td><td>LATIN SMALL LETTER U WITH CIRCUMFLEX</td></tr> <tr><td>00FC</td><td>LATIN SMALL LETTER U WITH DIAERESIS</td></tr> <tr><td>00FD</td><td>LATIN SMALL LETTER Y WITH ACUTE</td></tr> <tr><td>00FE</td><td>LATIN SMALL LETTER THORN</td></tr> <tr><td>00FF</td><td>LATIN SMALL LETTER Y WITH DIAERESIS</td></tr> </table> <p>Note that three of these have no corresponding Latin-1 upper-case character:</p><table> <tr><td>00B5</td><td>MICRO SIGN</td></tr> <tr><td>00DF</td><td>LATIN SMALL LETTER SHARP S</td></tr> <tr><td>00FF</td><td>LATIN SMALL LETTER Y WITH DIAERESIS</td></tr> </table> <p>(The compatibility micro character uppercases to the non-Latin-1 Greek capital mu; the German sharp s character uppercases to the pair of characters &quot;SS,&quot; and the capital y-with-diaeresis is non-Latin-1.)</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set:upper-case"><span class="sig"><tt>char-set:upper-case</tt></span> <span class="type">constant</span></dt> <dd class="defsig"><p>For Unicode, a character is uppercase if</p><ul><li>it is not in the range [U+2000,U+2FFF], and </li> <li>the Unicode attribute table does not give an uppercase mapping for it (this excludes titlecase characters), and </li> <li>at least one of the following is true: <ul><li>the Unicode attribute table gives a mapping to lowercase for the character, or </li> <li>the name for the character in the Unicode attribute table contains the words &quot;CAPITAL LETTER&quot; or &quot;CAPITAL LIGATURE&quot;. </li> </ul> </li> </ul> <p>The upper-case ASCII characters are</p><p>ABCDEFGHIJKLMNOPQRSTUVWXYZ</p><p>Latin-1 adds another 30 upper-case characters to the ASCII set:</p><table> <tr><td>00C0</td><td>LATIN CAPITAL LETTER A WITH GRAVE</td></tr> <tr><td>00C1</td><td>LATIN CAPITAL LETTER A WITH ACUTE</td></tr> <tr><td>00C2</td><td>LATIN CAPITAL LETTER A WITH CIRCUMFLEX</td></tr> <tr><td>00C3</td><td>LATIN CAPITAL LETTER A WITH TILDE</td></tr> <tr><td>00C4</td><td>LATIN CAPITAL LETTER A WITH DIAERESIS</td></tr> <tr><td>00C5</td><td>LATIN CAPITAL LETTER A WITH RING ABOVE</td></tr> <tr><td>00C6</td><td>LATIN CAPITAL LETTER AE</td></tr> <tr><td>00C7</td><td>LATIN CAPITAL LETTER C WITH CEDILLA</td></tr> <tr><td>00C8</td><td>LATIN CAPITAL LETTER E WITH GRAVE</td></tr> <tr><td>00C9</td><td>LATIN CAPITAL LETTER E WITH ACUTE</td></tr> <tr><td>00CA</td><td>LATIN CAPITAL LETTER E WITH CIRCUMFLEX</td></tr> <tr><td>00CB</td><td>LATIN CAPITAL LETTER E WITH DIAERESIS</td></tr> <tr><td>00CC</td><td>LATIN CAPITAL LETTER I WITH GRAVE</td></tr> <tr><td>00CD</td><td>LATIN CAPITAL LETTER I WITH ACUTE</td></tr> <tr><td>00CE</td><td>LATIN CAPITAL LETTER I WITH CIRCUMFLEX</td></tr> <tr><td>00CF</td><td>LATIN CAPITAL LETTER I WITH DIAERESIS</td></tr> <tr><td>00D0</td><td>LATIN CAPITAL LETTER ETH</td></tr> <tr><td>00D1</td><td>LATIN CAPITAL LETTER N WITH TILDE</td></tr> <tr><td>00D2</td><td>LATIN CAPITAL LETTER O WITH GRAVE</td></tr> <tr><td>00D3</td><td>LATIN CAPITAL LETTER O WITH ACUTE</td></tr> <tr><td>00D4</td><td>LATIN CAPITAL LETTER O WITH CIRCUMFLEX</td></tr> <tr><td>00D5</td><td>LATIN CAPITAL LETTER O WITH TILDE</td></tr> <tr><td>00D6</td><td>LATIN CAPITAL LETTER O WITH DIAERESIS</td></tr> <tr><td>00D8</td><td>LATIN CAPITAL LETTER O WITH STROKE</td></tr> <tr><td>00D9</td><td>LATIN CAPITAL LETTER U WITH GRAVE</td></tr> <tr><td>00DA</td><td>LATIN CAPITAL LETTER U WITH ACUTE</td></tr> <tr><td>00DB</td><td>LATIN CAPITAL LETTER U WITH CIRCUMFLEX</td></tr> <tr><td>00DC</td><td>LATIN CAPITAL LETTER U WITH DIAERESIS</td></tr> <tr><td>00DD</td><td>LATIN CAPITAL LETTER Y WITH ACUTE</td></tr> <tr><td>00DE</td><td>LATIN CAPITAL LETTER THORN</td></tr> </table> </dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set:title-case"><span class="sig"><tt>char-set:title-case</tt></span> <span class="type">constant</span></dt> <dd class="defsig"><p>In Unicode, a character is titlecase if it has the category Lt in the character attribute database. There are very few of these characters; here is the entire 31-character list as of Unicode 3.0:</p><table> <tr><td>01C5</td><td>LATIN CAPITAL LETTER D WITH SMALL LETTER Z WITH CARON</td></tr> <tr><td>01C8</td><td>LATIN CAPITAL LETTER L WITH SMALL LETTER J</td></tr> <tr><td>01CB</td><td>LATIN CAPITAL LETTER N WITH SMALL LETTER J</td></tr> <tr><td>01F2</td><td>LATIN CAPITAL LETTER D WITH SMALL LETTER Z</td></tr> <tr><td>1F88</td><td>GREEK CAPITAL LETTER ALPHA WITH PSILI AND PROSGEGRAMMENI</td></tr> <tr><td>1F89</td><td>GREEK CAPITAL LETTER ALPHA WITH DASIA AND PROSGEGRAMMENI</td></tr> <tr><td>1F8A</td><td>GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA AND PROSGEGRAMMENI</td></tr> <tr><td>1F8B</td><td>GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA AND PROSGEGRAMMENI</td></tr> <tr><td>1F8C</td><td>GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA AND PROSGEGRAMMENI</td></tr> <tr><td>1F8D</td><td>GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA AND PROSGEGRAMMENI</td></tr> <tr><td>1F8E</td><td>GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI</td></tr> <tr><td>1F8F</td><td>GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI</td></tr> <tr><td>1F98</td><td>GREEK CAPITAL LETTER ETA WITH PSILI AND PROSGEGRAMMENI</td></tr> <tr><td>1F99</td><td>GREEK CAPITAL LETTER ETA WITH DASIA AND PROSGEGRAMMENI</td></tr> <tr><td>1F9A</td><td>GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA AND PROSGEGRAMMENI</td></tr> <tr><td>1F9B</td><td>GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA AND PROSGEGRAMMENI</td></tr> <tr><td>1F9C</td><td>GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA AND PROSGEGRAMMENI</td></tr> <tr><td>1F9D</td><td>GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA AND PROSGEGRAMMENI</td></tr> <tr><td>1F9E</td><td>GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI</td></tr> <tr><td>1F9F</td><td>GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI</td></tr> <tr><td>1FA8</td><td>GREEK CAPITAL LETTER OMEGA WITH PSILI AND PROSGEGRAMMENI</td></tr> <tr><td>1FA9</td><td>GREEK CAPITAL LETTER OMEGA WITH DASIA AND PROSGEGRAMMENI</td></tr> <tr><td>1FAA</td><td>GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA AND PROSGEGRAMMENI</td></tr> <tr><td>1FAB</td><td>GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA AND PROSGEGRAMMENI</td></tr> <tr><td>1FAC</td><td>GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA AND PROSGEGRAMMENI</td></tr> <tr><td>1FAD</td><td>GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA AND PROSGEGRAMMENI</td></tr> <tr><td>1FAE</td><td>GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI</td></tr> <tr><td>1FAF</td><td>GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI</td></tr> <tr><td>1FBC</td><td>GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI</td></tr> <tr><td>1FCC</td><td>GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI</td></tr> <tr><td>1FFC</td><td>GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI</td></tr> </table> <p>There are no ASCII or Latin-1 titlecase characters.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set:letter"><span class="sig"><tt>char-set:letter</tt></span> <span class="type">constant</span></dt> <dd class="defsig"><p>In Unicode, a letter is any character with one of the letter categories (Lu, Ll, Lt, Lm, Lo) in the Unicode character database.</p><p>There are 52 ASCII letters</p><p>abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ</p><p>There are 117 Latin-1 letters. These are the 115 characters that are members of the Latin-1 <tt>char-set:lower-case</tt> and <tt>char-set:upper-case</tt> sets, plus</p><table> <tr><td>00AA</td><td>FEMININE ORDINAL INDICATOR</td></tr> <tr><td>00BA</td><td>MASCULINE ORDINAL INDICATOR</td></tr> </table> <p>(These two letters are considered lower-case by Unicode, but not by SRFI 14.)</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set:digit"><span class="sig"><tt>char-set:digit</tt></span> <span class="type">constant</span></dt> <dd class="defsig"><p>In Unicode, a character is a digit if it has the category Nd in the character attribute database. In Latin-1 and ASCII, the only such characters are 0123456789. In Unicode, there are other digit characters in other code blocks, such as Gujarati digits and Tibetan digits.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set:hex-digit"><span class="sig"><tt>char-set:hex-digit</tt></span> <span class="type">constant</span></dt> <dd class="defsig"><p>The only hex digits are 0123456789abcdefABCDEF.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set:letter.2bdigit"><span class="sig"><tt>char-set:letter+digit</tt></span> <span class="type">constant</span></dt> <dd class="defsig"><p>The union of <tt>char-set:letter</tt> and <tt>char-set:digit.</tt></p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set:graphic"><span class="sig"><tt>char-set:graphic</tt></span> <span class="type">constant</span></dt> <dd class="defsig"><p>A graphic character is one that would put ink on paper. The ASCII and Latin-1 graphic characters are the members of</p><table> <tr><td><tt>char-set:letter</tt></td></tr> <tr><td><tt>char-set:digit</tt></td></tr> <tr><td><tt>char-set:punctuation</tt></td></tr> <tr><td><tt>char-set:symbol</tt></td></tr> </table> </dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set:printing"><span class="sig"><tt>char-set:printing</tt></span> <span class="type">constant</span></dt> <dd class="defsig"><p>A printing character is one that would occupy space when printed, <i>i.e.</i>, a graphic character or a space character. <tt>char-set:printing</tt> is the union of <tt>char-set:whitespace</tt> and <tt>char-set:graphic.</tt></p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set:whitespace"><span class="sig"><tt>char-set:whitespace</tt></span> <span class="type">constant</span></dt> <dd class="defsig"><p>In Unicode, a whitespace character is either</p><ul><li>a character with one of the space, line, or paragraph separator categories (Zs, Zl or Zp) of the Unicode character database. </li> <li>U+0009 Horizontal tabulation (\t control-I) </li> <li>U+000A Line feed (\n control-J) </li> <li>U+000B Vertical tabulation (\v control-K) </li> <li>U+000C Form feed (\f control-L) </li> <li>U+000D Carriage return (\r control-M) </li> </ul> <p>There are 24 whitespace characters in Unicode 3.0:</p><table> <tr><td>0009</td><td>HORIZONTAL TABULATION</td><td>\t control-I</td></tr> <tr><td>000A</td><td>LINE FEED</td><td>\n control-J</td></tr> <tr><td>000B</td><td>VERTICAL TABULATION</td><td>\v control-K</td></tr> <tr><td>000C</td><td>FORM FEED</td><td>\f control-L</td></tr> <tr><td>000D</td><td>CARRIAGE RETURN</td><td>\r control-M</td></tr> <tr><td>0020</td><td>SPACE</td><td>Zs</td></tr> <tr><td>00A0</td><td>NO-BREAK SPACE</td><td>Zs</td></tr> <tr><td>1680</td><td>OGHAM SPACE MARK</td><td>Zs</td></tr> <tr><td>2000</td><td>EN QUAD</td><td>Zs</td></tr> <tr><td>2001</td><td>EM QUAD</td><td>Zs</td></tr> <tr><td>2002</td><td>EN SPACE</td><td>Zs</td></tr> <tr><td>2003</td><td>EM SPACE</td><td>Zs</td></tr> <tr><td>2004</td><td>THREE-PER-EM SPACE</td><td>Zs</td></tr> <tr><td>2005</td><td>FOUR-PER-EM SPACE</td><td>Zs</td></tr> <tr><td>2006</td><td>SIX-PER-EM SPACE</td><td>Zs</td></tr> <tr><td>2007</td><td>FIGURE SPACE</td><td>Zs</td></tr> <tr><td>2008</td><td>PUNCTUATION SPACE</td><td>Zs</td></tr> <tr><td>2009</td><td>THIN SPACE</td><td>Zs</td></tr> <tr><td>200A</td><td>HAIR SPACE</td><td>Zs</td></tr> <tr><td>200B</td><td>ZERO WIDTH SPACE</td><td>Zs</td></tr> <tr><td>2028</td><td>LINE SEPARATOR</td><td>Zl</td></tr> <tr><td>2029</td><td>PARAGRAPH SEPARATOR</td><td>Zp</td></tr> <tr><td>202F</td><td>NARROW NO-BREAK SPACE</td><td>Zs</td></tr> <tr><td>3000</td><td>IDEOGRAPHIC SPACE</td><td>Zs</td></tr> </table> <p>The ASCII whitespace characters are the first six characters in the above list -- line feed, horizontal tabulation, vertical tabulation, form feed, carriage return, and space. These are also exactly the characters recognised by the Posix <tt>isspace()</tt> procedure. Latin-1 adds the no-break space.</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set:iso-control"><span class="sig"><tt>char-set:iso-control</tt></span> <span class="type">constant</span></dt> <dd class="defsig"><p>The ISO control characters are the Unicode/Latin-1 characters in the ranges [U+0000,U+001F] and [U+007F,U+009F].</p><p>ASCII restricts this set to the characters in the range [U+0000,U+001F] plus the character U+007F.</p><p>Note that Unicode defines other control characters which do not belong to this set (hence the qualifying prefix &quot;iso-&quot; in the name).</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set:punctuation"><span class="sig"><tt>char-set:punctuation</tt></span> <span class="type">constant</span></dt> <dd class="defsig"><p>In Unicode, a punctuation character is any character that has one of the punctuation categories in the Unicode character database (Pc, Pd, Ps, Pe, Pi, Pf, or Po.)</p><p>ASCII has 23 punctuation characters:</p><pre>!&quot;#%&amp;'()*,-./:;?@[\]_{}</pre><p>Latin-1 adds six more:</p><table> <tr><td>00A1</td><td>INVERTED EXCLAMATION MARK</td></tr> <tr><td>00AB</td><td>LEFT-POINTING DOUBLE ANGLE QUOTATION MARK</td></tr> <tr><td>00AD</td><td>SOFT HYPHEN</td></tr> <tr><td>00B7</td><td>MIDDLE DOT</td></tr> <tr><td>00BB</td><td>RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK</td></tr> <tr><td>00BF</td><td>INVERTED QUESTION MARK</td></tr> </table> <p>Note that the nine ASCII characters <tt>$+&lt;=&gt;^`|~</tt> are <i>not</i> punctuation. They are &quot;symbols.&quot;</p></dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set:symbol"><span class="sig"><tt>char-set:symbol</tt></span> <span class="type">constant</span></dt> <dd class="defsig"><p>In Unicode, a symbol is any character that has one of the symbol categories in the Unicode character database (Sm, Sc, Sk, or So). There are nine ASCII symbol characters:</p><pre>$+&lt;=&gt;^`|~</pre><p>Latin-1 adds 18 more:</p><table> <tr><td>00A2</td><td>CENT SIGN</td></tr> <tr><td>00A3</td><td>POUND SIGN</td></tr> <tr><td>00A4</td><td>CURRENCY SIGN</td></tr> <tr><td>00A5</td><td>YEN SIGN</td></tr> <tr><td>00A6</td><td>BROKEN BAR</td></tr> <tr><td>00A7</td><td>SECTION SIGN</td></tr> <tr><td>00A8</td><td>DIAERESIS</td></tr> <tr><td>00A9</td><td>COPYRIGHT SIGN</td></tr> <tr><td>00AC</td><td>NOT SIGN</td></tr> <tr><td>00AE</td><td>REGISTERED SIGN</td></tr> <tr><td>00AF</td><td>MACRON</td></tr> <tr><td>00B0</td><td>DEGREE SIGN</td></tr> <tr><td>00B1</td><td>PLUS-MINUS SIGN</td></tr> <tr><td>00B4</td><td>ACUTE ACCENT</td></tr> <tr><td>00B6</td><td>PILCROW SIGN</td></tr> <tr><td>00B8</td><td>CEDILLA</td></tr> <tr><td>00D7</td><td>MULTIPLICATION SIGN</td></tr> <tr><td>00F7</td><td>DIVISION SIGN</td></tr> </table> </dd> </dl> <dl class="defsig"><dt class="defsig" id="def:char-set:blank"><span class="sig"><tt>char-set:blank</tt></span> <span class="type">constant</span></dt> <dd class="defsig"><p>Blank chars are horizontal whitespace. In Unicode, a blank character is either</p><ul><li>a character with the space separator category (Zs) in the Unicode character database. </li> <li>U+0009 Horizontal tabulation (\t control-I) </li> </ul> <p>There are eighteen blank characters in Unicode 3.0:</p><table> <tr><td>0009</td><td>HORIZONTAL TABULATION</td><td>\t control-I</td></tr> <tr><td>0020</td><td>SPACE</td><td>Zs</td></tr> <tr><td>00A0</td><td>NO-BREAK SPACE</td><td>Zs</td></tr> <tr><td>1680</td><td>OGHAM SPACE MARK</td><td>Zs</td></tr> <tr><td>2000</td><td>EN QUAD</td><td>Zs</td></tr> <tr><td>2001</td><td>EM QUAD</td><td>Zs</td></tr> <tr><td>2002</td><td>EN SPACE</td><td>Zs</td></tr> <tr><td>2003</td><td>EM SPACE</td><td>Zs</td></tr> <tr><td>2004</td><td>THREE-PER-EM SPACE</td><td>Zs</td></tr> <tr><td>2005</td><td>FOUR-PER-EM SPACE</td><td>Zs</td></tr> <tr><td>2006</td><td>SIX-PER-EM SPACE</td><td>Zs</td></tr> <tr><td>2007</td><td>FIGURE SPACE</td><td>Zs</td></tr> <tr><td>2008</td><td>PUNCTUATION SPACE</td><td>Zs</td></tr> <tr><td>2009</td><td>THIN SPACE</td><td>Zs</td></tr> <tr><td>200A</td><td>HAIR SPACE</td><td>Zs</td></tr> <tr><td>200B</td><td>ZERO WIDTH SPACE</td><td>Zs</td></tr> <tr><td>202F</td><td>NARROW NO-BREAK SPACE</td><td>Zs</td></tr> <tr><td>3000</td><td>IDEOGRAPHIC SPACE</td><td>Zs</td></tr> </table> <p>The ASCII blank characters are the first two characters above -- horizontal tab and space. Latin-1 adds the no-break space.</p></dd> </dl> <hr /><p>Previous: <a href="Unit%20srfi-13.html">Unit srfi-13</a></p><p>Next: <a href="Unit%20srfi-18.html">Unit srfi-18</a></p></div></div></body>����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Types.html���������������������������������������������������������������0000644�0001750�0001750�00000043077�13052306551�017234� 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><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>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>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>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>string</tt></td><td>string</td></tr> <tr><td><tt>symbol</tt></td><td>symbol</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>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>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>queue</tt></td><td>see &quot;data-structures&quot; unit</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>mmap</tt></td><td>memory mapped file</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-type-file FILENAME</tt> writes the type-information for all declared definitions in an internal format to <tt>FILENAME</tt>.</p><p><tt>-types 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-type-file</tt>.</p><p>If library code is used with <tt>require-extension</tt> or <tt>(declare (unit ...))</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-4.12.0/manual-html/Unit srfi-69.html��������������������������������������������������������0000644�0001750�0001750�00000056647�13052306551�020236� 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; Unit srfi-69</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:Unit_srfi-69">Unit srfi-69</a> <ul> <li><a href="#sec:Hash_Table_Procedures">Hash Table Procedures</a> <ul> <li><a href="#sec:make-hash-table">make-hash-table</a></li> <li><a href="#sec:alist-.3ehash-table">alist-&gt;hash-table</a></li> <li><a href="#sec:hash-table.3f">hash-table?</a></li> <li><a href="#sec:hash-table-size">hash-table-size</a></li> <li><a href="#sec:hash-table-equivalence-function">hash-table-equivalence-function</a></li> <li><a href="#sec:hash-table-hash-function">hash-table-hash-function</a></li> <li><a href="#sec:hash-table-min-load">hash-table-min-load</a></li> <li><a href="#sec:hash-table-max-load">hash-table-max-load</a></li> <li><a href="#sec:hash-table-weak-keys">hash-table-weak-keys</a></li> <li><a href="#sec:hash-table-weak-values">hash-table-weak-values</a></li> <li><a href="#sec:hash-table-has-initial.3f">hash-table-has-initial?</a></li> <li><a href="#sec:hash-table-initial">hash-table-initial</a></li> <li><a href="#sec:hash-table-keys">hash-table-keys</a></li> <li><a href="#sec:hash-table-values">hash-table-values</a></li> <li><a href="#sec:hash-table-.3ealist">hash-table-&gt;alist</a></li> <li><a href="#sec:hash-table-ref">hash-table-ref</a></li> <li><a href="#sec:hash-table-ref.2fdefault">hash-table-ref/default</a></li> <li><a href="#sec:hash-table-exists.3f">hash-table-exists?</a></li> <li><a href="#sec:hash-table-set.21">hash-table-set!</a></li> <li><a href="#sec:hash-table-update.21">hash-table-update!</a></li> <li><a href="#sec:hash-table-update.21.2fdefault">hash-table-update!/default</a></li> <li><a href="#sec:hash-table-copy">hash-table-copy</a></li> <li><a href="#sec:hash-table-delete.21">hash-table-delete!</a></li> <li><a href="#sec:hash-table-remove.21">hash-table-remove!</a></li> <li><a href="#sec:hash-table-clear.21">hash-table-clear!</a></li> <li><a href="#sec:hash-table-merge">hash-table-merge</a></li> <li><a href="#sec:hash-table-merge.21">hash-table-merge!</a></li> <li><a href="#sec:hash-table-map">hash-table-map</a></li> <li><a href="#sec:hash-table-fold">hash-table-fold</a></li> <li><a href="#sec:hash-table-for-each">hash-table-for-each</a></li> <li><a href="#sec:hash-table-walk">hash-table-walk</a></li></ul></li> <li><a href="#sec:Hashing_Functions">Hashing Functions</a> <ul> <li><a href="#sec:number-hash">number-hash</a></li> <li><a href="#sec:object-uid-hash">object-uid-hash</a></li> <li><a href="#sec:symbol-hash">symbol-hash</a></li> <li><a href="#sec:keyword-hash">keyword-hash</a></li> <li><a href="#sec:string-hash">string-hash</a></li> <li><a href="#sec:string-ci-hash">string-ci-hash</a></li> <li><a href="#sec:eq.3f-hash">eq?-hash</a></li> <li><a href="#sec:eqv.3f-hash">eqv?-hash</a></li> <li><a href="#sec:equal.3f-hash">equal?-hash</a></li> <li><a href="#sec:hash">hash</a></li> <li><a href="#sec:hash-by-identity">hash-by-identity</a></li></ul></li> <li><a href="#sec:recursive-hash-max-depth">recursive-hash-max-depth</a></li> <li><a href="#sec:recursive-hash-max-length">recursive-hash-max-length</a></li></ul></li></ul></div><h2 id="sec:Unit_srfi-69"><a href="#sec:Unit_srfi-69">Unit srfi-69</a></h2><p>CHICKEN implements SRFI 69 with SRFI 90 extensions. For more information, see <a href="http://srfi.schemers.org/srfi-69/srfi-69.html">SRFI-69</a> and <a href="http://srfi.schemers.org/srfi-90/srfi-90.html">SRFI-90</a>.</p><h3 id="sec:Hash_Table_Procedures"><a href="#sec:Hash_Table_Procedures">Hash Table Procedures</a></h3><h4 id="sec:make-hash-table"><a href="#sec:make-hash-table">make-hash-table</a></h4><dl class="defsig"><dt class="defsig" id="def:make-hash-table"><span class="sig"><tt>(make-hash-table [TEST HASH SIZE] [#:test TEST] [#:hash HASH] [#:size SIZE] [#:initial INITIAL] [#:min-load MIN-LOAD] [#:max-load MAX-LOAD] [#:weak-keys WEAK-KEYS] [#:weak-values WEAK-VALUES])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new <tt>HASH-TABLE</tt> with the supplied configuration.</p><dl><dt><tt>TEST</tt></dt> <dd>The equivalence function.</dd><dt><tt>HASH</tt></dt> <dd>The hash function.</dd><dt><tt>SIZE</tt></dt> <dd>The expected number of table elements.</dd><dt><tt>INITIAL</tt></dt> <dd>The default initial value.</dd><dt><tt>MIN-LOAD</tt></dt> <dd>The minimum load factor. A <tt>flonum</tt> in (0.0 1.0).</dd><dt><tt>MAX-LOAD</tt></dt> <dd>The maximum load factor. A <tt>flonum</tt> in (0.0 1.0).</dd><dt><tt>WEAK-KEYS</tt></dt> <dd>Use weak references for keys. (Ignored)</dd><dt><tt>WEAK-VALUES</tt></dt> <dd>Use weak references for values. (Ignored)</dd></dl> <p>Please note that hash tables are <i>not</i> guaranteed to compare <tt>equal?</tt> to each other, even if they contain exactly the same key/value pairs.</p></dd> </dl> <h4 id="sec:alist-.3ehash-table"><a href="#sec:alist-.3ehash-table">alist-&gt;hash-table</a></h4><dl class="defsig"><dt class="defsig" id="def:alist-.3ehash-table"><span class="sig"><tt>(alist-&gt;hash-table A-LIST [#:test TEST] [#:hash HASH] [#:size SIZE] [#:initial INITIAL] [#:min-load MIN-LOAD] [#:max-load MAX-LOAD] [#:weak-keys WEAK-KEYS] [#:weak-values WEAK-VALUES])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new <tt>HASH-TABLE</tt>. The <tt>HASH-TABLE</tt> is populated from the <tt>A-LIST</tt>. The keyword arguments are per <tt>make-hash-table</tt>.</p></dd> </dl> <h4 id="sec:hash-table.3f"><a href="#sec:hash-table.3f">hash-table?</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table.3f"><span class="sig"><tt>(hash-table? OBJECT)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Is the <tt>OBJECT</tt> a <tt>hash-table</tt>?</p></dd> </dl> <h4 id="sec:hash-table-size"><a href="#sec:hash-table-size">hash-table-size</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-size"><span class="sig"><tt>(hash-table-size HASH-TABLE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the number of associations in <tt>HASH-TABLE</tt>.</p></dd> </dl> <h4 id="sec:hash-table-equivalence-function"><a href="#sec:hash-table-equivalence-function">hash-table-equivalence-function</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-equivalence-function"><span class="sig"><tt>(hash-table-equivalence-function HASH-TABLE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>The <tt>HASH-TABLE</tt> <tt>equivalence-function</tt>.</p></dd> </dl> <h4 id="sec:hash-table-hash-function"><a href="#sec:hash-table-hash-function">hash-table-hash-function</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-hash-function"><span class="sig"><tt>(hash-table-hash-function HASH-TABLE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>The <tt>HASH-TABLE</tt> <tt>hash-function</tt>.</p></dd> </dl> <h4 id="sec:hash-table-min-load"><a href="#sec:hash-table-min-load">hash-table-min-load</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-min-load"><span class="sig"><tt>(hash-table-min-load HASH-TABLE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>The <tt>HASH-TABLE</tt> minimum load factor.</p></dd> </dl> <h4 id="sec:hash-table-max-load"><a href="#sec:hash-table-max-load">hash-table-max-load</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-max-load"><span class="sig"><tt>(hash-table-max-load HASH-TABLE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>The <tt>HASH-TABLE</tt> maximum load factor.</p></dd> </dl> <h4 id="sec:hash-table-weak-keys"><a href="#sec:hash-table-weak-keys">hash-table-weak-keys</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-weak-keys"><span class="sig"><tt>(hash-table-weak-keys HASH-TABLE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Does the <tt>HASH-TABLE</tt> use weak references for keys?</p></dd> </dl> <h4 id="sec:hash-table-weak-values"><a href="#sec:hash-table-weak-values">hash-table-weak-values</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-weak-values"><span class="sig"><tt>(hash-table-weak-values HASH-TABLE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Does the <tt>HASH-TABLE</tt> use weak references for values?</p></dd> </dl> <h4 id="sec:hash-table-has-initial.3f"><a href="#sec:hash-table-has-initial.3f">hash-table-has-initial?</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-has-initial.3f"><span class="sig"><tt>(hash-table-has-initial? HASH-TABLE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Does the <tt>HASH-TABLE</tt> have a default initial value?</p></dd> </dl> <h4 id="sec:hash-table-initial"><a href="#sec:hash-table-initial">hash-table-initial</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-initial"><span class="sig"><tt>(hash-table-initial HASH-TABLE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>The <tt>HASH-TABLE</tt> default initial value.</p></dd> </dl> <h4 id="sec:hash-table-keys"><a href="#sec:hash-table-keys">hash-table-keys</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-keys"><span class="sig"><tt>(hash-table-keys HASH-TABLE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a list of the keys in the <tt>HASH-TABLE</tt> population.</p></dd> </dl> <h4 id="sec:hash-table-values"><a href="#sec:hash-table-values">hash-table-values</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-values"><span class="sig"><tt>(hash-table-values HASH-TABLE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a list of the values in the <tt>HASH-TABLE</tt> population.</p></dd> </dl> <h4 id="sec:hash-table-.3ealist"><a href="#sec:hash-table-.3ealist">hash-table-&gt;alist</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-.3ealist"><span class="sig"><tt>(hash-table-&gt;alist HASH-TABLE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the population of the <tt>HASH-TABLE</tt> as an <tt>a-list</tt>.</p></dd> </dl> <h4 id="sec:hash-table-ref"><a href="#sec:hash-table-ref">hash-table-ref</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-ref"><span class="sig"><tt>(hash-table-ref HASH-TABLE KEY)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the <tt>VALUE</tt> for the <tt>KEY</tt> in the <tt>HASH-TABLE</tt>.</p><p>Aborts with an exception when the <tt>KEY</tt> is missing.</p></dd> </dl> <h4 id="sec:hash-table-ref.2fdefault"><a href="#sec:hash-table-ref.2fdefault">hash-table-ref/default</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-ref.2fdefault"><span class="sig"><tt>(hash-table-ref/default HASH-TABLE KEY DEFAULT)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the <tt>VALUE</tt> for the <tt>KEY</tt> in the <tt>HASH-TABLE</tt>, or the <tt>DEFAULT</tt> when the <tt>KEY</tt> is missing.</p></dd> </dl> <h4 id="sec:hash-table-exists.3f"><a href="#sec:hash-table-exists.3f">hash-table-exists?</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-exists.3f"><span class="sig"><tt>(hash-table-exists? HASH-TABLE KEY)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Does the <tt>KEY</tt> exist in the <tt>HASH-TABLE</tt>?</p></dd> </dl> <h4 id="sec:hash-table-set.21"><a href="#sec:hash-table-set.21">hash-table-set!</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-set.21"><span class="sig"><tt>(hash-table-set! HASH-TABLE KEY VALUE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Set the <tt>VALUE</tt> for the <tt>KEY</tt> in the <tt>HASH-TABLE</tt>.</p><p>A setter for <tt>hash-table-ref</tt> is defined, so</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">set! <span class="paren2">(<span class="default">hash-table-ref HASH-TABLE KEY</span>)</span> VALUE</span>)</span></pre><p>is equivalent to</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">hash-table-set! HASH-TABLE KEY VALUE</span>)</span></pre></dd> </dl> <h4 id="sec:hash-table-update.21"><a href="#sec:hash-table-update.21">hash-table-update!</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-update.21"><span class="sig"><tt>(hash-table-update! HASH-TABLE KEY [UPDATE-FUNCTION [DEFAULT-VALUE-FUNCTION]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Sets or replaces the <tt>VALUE</tt> for <tt>KEY</tt> in the <tt>HASH-TABLE</tt>.</p><p>The <tt>UPDATE-FUNCTION</tt> takes the existing <tt>VALUE</tt> for <tt>KEY</tt> and returns the new <tt>VALUE</tt>. The default is <tt>identity</tt></p><p>The <tt>DEFAULT-VALUE-FUNCTION</tt> is called when the entry for <tt>KEY</tt> is missing. The default uses the <tt>(hash-table-initial-value)</tt>, if provided. Otherwise aborts with an exception.</p><p>Returns the new <tt>VALUE</tt>.</p></dd> </dl> <h4 id="sec:hash-table-update.21.2fdefault"><a href="#sec:hash-table-update.21.2fdefault">hash-table-update!/default</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-update.21.2fdefault"><span class="sig"><tt>(hash-table-update!/default HASH-TABLE KEY UPDATE-FUNCTION DEFAULT-VALUE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Sets or replaces the <tt>VALUE</tt> for <tt>KEY</tt> in the <tt>HASH-TABLE</tt>.</p><p>The <tt>UPDATE-FUNCTION</tt> takes the existing <tt>VALUE</tt> for <tt>KEY</tt> and returns the new <tt>VALUE</tt>.</p><p>The <tt>DEFAULT-VALUE</tt> is used when the entry for <tt>KEY</tt> is missing.</p><p>Returns the new <tt>VALUE</tt>.</p></dd> </dl> <h4 id="sec:hash-table-copy"><a href="#sec:hash-table-copy">hash-table-copy</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-copy"><span class="sig"><tt>(hash-table-copy HASH-TABLE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a shallow copy of the <tt>HASH-TABLE</tt>.</p></dd> </dl> <h4 id="sec:hash-table-delete.21"><a href="#sec:hash-table-delete.21">hash-table-delete!</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-delete.21"><span class="sig"><tt>(hash-table-delete! HASH-TABLE KEY)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Deletes the entry for <tt>KEY</tt> in the <tt>HASH-TABLE</tt>.</p></dd> </dl> <h4 id="sec:hash-table-remove.21"><a href="#sec:hash-table-remove.21">hash-table-remove!</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-remove.21"><span class="sig"><tt>(hash-table-remove! HASH-TABLE PROC)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Calls <tt>PROC</tt> for all entries in <tt>HASH-TABLE</tt> with the key and value of each entry. If <tt>PROC</tt> returns true, then that entry is removed.</p></dd> </dl> <h4 id="sec:hash-table-clear.21"><a href="#sec:hash-table-clear.21">hash-table-clear!</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-clear.21"><span class="sig"><tt>(hash-table-clear! HASH-TABLE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Deletes all entries in <tt>HASH-TABLE</tt>.</p></dd> </dl> <h4 id="sec:hash-table-merge"><a href="#sec:hash-table-merge">hash-table-merge</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-merge"><span class="sig"><tt>(hash-table-merge HASH-TABLE-1 HASH-TABLE-2)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new <tt>HASH-TABLE</tt> with the union of <tt>HASH-TABLE-1</tt> and <tt>HASH-TABLE-2</tt>.</p></dd> </dl> <h4 id="sec:hash-table-merge.21"><a href="#sec:hash-table-merge.21">hash-table-merge!</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-merge.21"><span class="sig"><tt>(hash-table-merge! HASH-TABLE-1 HASH-TABLE-2)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>HASH-TABLE-1</tt> as the union of <tt>HASH-TABLE-1</tt> and <tt>HASH-TABLE-2</tt>.</p></dd> </dl> <h4 id="sec:hash-table-map"><a href="#sec:hash-table-map">hash-table-map</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-map"><span class="sig"><tt>(hash-table-map HASH-TABLE FUNC)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Calls <tt>FUNC</tt> for all entries in <tt>HASH-TABLE</tt> with the key and value of each entry.</p><p>Returns a list of the results of each call.</p></dd> </dl> <h4 id="sec:hash-table-fold"><a href="#sec:hash-table-fold">hash-table-fold</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-fold"><span class="sig"><tt>(hash-table-fold HASH-TABLE FUNC INIT)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Calls <tt>FUNC</tt> for all entries in <tt>HASH-TABLE</tt> with the key and value of each entry, and the current folded value. The initial folded value is <tt>INIT</tt>.</p><p>Returns the final folded value.</p></dd> </dl> <h4 id="sec:hash-table-for-each"><a href="#sec:hash-table-for-each">hash-table-for-each</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-for-each"><span class="sig"><tt>(hash-table-for-each HASH-TABLE PROC)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Calls <tt>PROC</tt> for all entries in <tt>HASH-TABLE</tt> with the key and value of each entry.</p></dd> </dl> <h4 id="sec:hash-table-walk"><a href="#sec:hash-table-walk">hash-table-walk</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-table-walk"><span class="sig"><tt>(hash-table-walk HASH-TABLE PROC)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Calls <tt>PROC</tt> for all entries in <tt>HASH-TABLE</tt> with the key and value of each entry.</p></dd> </dl> <h3 id="sec:Hashing_Functions"><a href="#sec:Hashing_Functions">Hashing Functions</a></h3><p>All hash functions return a <tt>fixnum</tt> in the range [0 <tt>BOUND</tt>).</p><p>When given the fixnum RANDOMIZATION, these functions will use this to perturb the value; if not specified, the value will differ for each invocation of your program. This is for security reasons; an attacker who knows what a value hashes to can deliberately try to cause collisions, thereby flattening your hash table, effectively reducing it to a list. Always make sure you don't expose any hashed value to an attacker.</p><h4 id="sec:number-hash"><a href="#sec:number-hash">number-hash</a></h4><dl class="defsig"><dt class="defsig" id="def:number-hash"><span class="sig"><tt>(number-hash NUMBER [BOUND RANDOMIZATION])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>For use with <tt>=</tt> as a <tt>hash-table-equivalence-function</tt>.</p></dd> </dl> <h4 id="sec:object-uid-hash"><a href="#sec:object-uid-hash">object-uid-hash</a></h4><dl class="defsig"><dt class="defsig" id="def:object-uid-hash"><span class="sig"><tt>(object-uid-hash OBJECT [BOUND RANDOMIZATION])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Currently a synonym for <tt>equal?-hash</tt>.</p></dd> </dl> <h4 id="sec:symbol-hash"><a href="#sec:symbol-hash">symbol-hash</a></h4><dl class="defsig"><dt class="defsig" id="def:symbol-hash"><span class="sig"><tt>(symbol-hash SYMBOL [BOUND RANDOMIZATION])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>For use with <tt>eq?</tt> as a <tt>hash-table-equivalence-function</tt>.</p></dd> </dl> <h4 id="sec:keyword-hash"><a href="#sec:keyword-hash">keyword-hash</a></h4><dl class="defsig"><dt class="defsig" id="def:keyword-hash"><span class="sig"><tt>(keyword-hash KEYWORD [BOUND RANDOMIZATION])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>For use with <tt>eq?</tt> as a <tt>hash-table-equivalence-function</tt>.</p></dd> </dl> <h4 id="sec:string-hash"><a href="#sec:string-hash">string-hash</a></h4><dl class="defsig"><dt class="defsig" id="def:string-hash"><span class="sig"><tt>(string-hash STRING [BOUND START END RANDOMIZATION])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>For use with <tt>string=?</tt> as a <tt>hash-table-equivalence-function</tt>. The optional <tt>START</tt> and <tt>END</tt> arguments may be given to limit the hash calculation to a specific sub-section of <tt>STRING</tt>.</p></dd> </dl> <h4 id="sec:string-ci-hash"><a href="#sec:string-ci-hash">string-ci-hash</a></h4><dl class="defsig"><dt class="defsig" id="def:string-hash-ci"><span class="sig"><tt>(string-hash-ci STRING [BOUND START END RANDOMIZATION])</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:string-ci-hash"><span class="sig"><tt>(string-ci-hash STRING [BOUND START END RANDOMIZATION])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>For use with <tt>string-ci=?</tt> as a <tt>hash-table-equivalence-function</tt>.</p></dd> </dl> <h4 id="sec:eq.3f-hash"><a href="#sec:eq.3f-hash">eq?-hash</a></h4><dl class="defsig"><dt class="defsig" id="def:eq.3f-hash"><span class="sig"><tt>(eq?-hash OBJECT [BOUND RANDOMIZATION])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>For use with <tt>eq?</tt> as a <tt>hash-table-equivalence-function</tt>.</p></dd> </dl> <h4 id="sec:eqv.3f-hash"><a href="#sec:eqv.3f-hash">eqv?-hash</a></h4><dl class="defsig"><dt class="defsig" id="def:eqv.3f-hash"><span class="sig"><tt>(eqv?-hash OBJECT [BOUND RANDOMIZATION])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>For use with <tt>eqv?</tt> as a <tt>hash-table-equivalence-function</tt>.</p></dd> </dl> <h4 id="sec:equal.3f-hash"><a href="#sec:equal.3f-hash">equal?-hash</a></h4><dl class="defsig"><dt class="defsig" id="def:equal.3f-hash"><span class="sig"><tt>(equal?-hash OBJECT [BOUND RANDOMIZATION])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>For use with <tt>equal?</tt> as a <tt>hash-table-equivalence-function</tt>.</p></dd> </dl> <h4 id="sec:hash"><a href="#sec:hash">hash</a></h4><dl class="defsig"><dt class="defsig" id="def:hash"><span class="sig"><tt>(hash OBJECT [BOUND RANDOMIZATION])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Synonym for <tt>equal?-hash</tt>.</p></dd> </dl> <h4 id="sec:hash-by-identity"><a href="#sec:hash-by-identity">hash-by-identity</a></h4><dl class="defsig"><dt class="defsig" id="def:hash-by-identity"><span class="sig"><tt>(hash-by-identity OBJECT [BOUND RANDOMIZATION])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Synonym for <tt>eq?-hash</tt>.</p></dd> </dl> <h3 id="sec:recursive-hash-max-depth"><a href="#sec:recursive-hash-max-depth">recursive-hash-max-depth</a></h3><dl class="defsig"><dt class="defsig" id="def:recursive-hash-max-depth"><span class="sig"><tt>(recursive-hash-max-depth)</tt></span> <span class="type">parameter</span></dt> <dd class="defsig"><p>The maximum structure depth to follow when computing a hash value. The default is <tt>4</tt>.</p></dd> </dl> <h3 id="sec:recursive-hash-max-length"><a href="#sec:recursive-hash-max-length">recursive-hash-max-length</a></h3><dl class="defsig"><dt class="defsig" id="def:recursive-hash-max-length"><span class="sig"><tt>(recursive-hash-max-length)</tt></span> <span class="type">parameter</span></dt> <dd class="defsig"><p>The maximum vector length to follow when computing a hash value. The default is <tt>4</tt>.</p><p>Previous: <a href="Unit%20srfi-18.html">Unit srfi-18</a> Next: <a href="Unit%20posix.html">Unit posix</a></p></dd> </dl> </div></div></body>�����������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Debugging.html�����������������������������������������������������������0000644�0001750�0001750�00000020642�13052306550�020013� 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="Tcl%2FTk.html">http://tcl.tk</a> script, installed together with all other components of the CHICKEN system. To use the debugger, Tcl/Tk version 8.5 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="Supported%20language.html">Supported language</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-4.12.0/manual-html/Extensions.html����������������������������������������������������������0000644�0001750�0001750�00000124023�13052306550�020255� 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:Extensions">Extensions</a> <ul> <li><a href="#sec:Extension_libraries">Extension libraries</a></li> <li><a href="#sec:Installing_extensions">Installing extensions</a> <ul> <li><a href="#sec:Installing_extensions_that_use_libraries">Installing extensions that use libraries</a></li></ul></li> <li><a href="#sec:Creating_extensions">Creating extensions</a></li> <li><a href="#sec:Procedures_and_macros_available_in_setup_scripts">Procedures and macros available in setup scripts</a> <ul> <li><a href="#sec:install-extension">install-extension</a> <ul> <li><a href="#sec:syntax">syntax</a></li> <li><a href="#sec:require-at-runtime">require-at-runtime</a></li> <li><a href="#sec:import-only">import-only</a></li> <li><a href="#sec:version">version</a></li> <li><a href="#sec:egg-name">egg-name</a></li></ul></li> <li><a href="#sec:install-program">install-program</a></li> <li><a href="#sec:install-script">install-script</a></li> <li><a href="#sec:standard-extension">standard-extension</a></li> <li><a href="#sec:run">run</a></li> <li><a href="#sec:compile">compile</a></li> <li><a href="#sec:patch">patch</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:remove-file.2a">remove-file*</a></li> <li><a href="#sec:find-library">find-library</a></li> <li><a href="#sec:find-header">find-header</a></li> <li><a href="#sec:try-compile">try-compile</a></li> <li><a href="#sec:create-directory.2fparents">create-directory/parents</a></li> <li><a href="#sec:extension-name-and-version">extension-name-and-version</a></li> <li><a href="#sec:version.3e.3d.3f">version&gt;=?</a></li> <li><a href="#sec:installation-prefix">installation-prefix</a></li> <li><a href="#sec:program-path">program-path</a></li> <li><a href="#sec:setup-root-directory">setup-root-directory</a></li> <li><a href="#sec:setup-install-mode">setup-install-mode</a></li> <li><a href="#sec:host-extension">host-extension</a></li></ul></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> <li><a href="#sec:Notes_on_chicken-install">Notes on chicken-install</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> <li><a href="#sec:Security">Security</a></li> <li><a href="#sec:Changing_repository_location">Changing repository location</a> <ul> <li><a href="#sec:Upgrading">Upgrading</a></li></ul></li> <li><a href="#sec:Other_modes_of_installation">Other modes of installation</a></li></ul></li></ul></div><h2 id="sec:Extensions"><a href="#sec:Extensions">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>Note: Extension 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 extensions, version information and things like the author/maintainer of the extension. Three tools provide an easy to use interface for installing extensions, removing them and querying the current status of installed extensions.</p><h3 id="sec:Installing_extensions"><a href="#sec:Installing_extensions">Installing extensions</a></h3><p>To install an extension library, run the <tt>chicken-install</tt> program with the extension name as argument. The extension archive is downloaded, its contents extracted and the contained <i>setup</i> script is executed. This setup script is a normal Scheme source file, which will be interpreted by <tt>chicken-install</tt>. The complete language supported by <tt>csi</tt> is available, and the library units <tt>srfi-1 regex utils posix tcp</tt> are loaded. Additional libraries can be loaded at run-time.</p><p>The setup script should perform all necessary steps to build the new library (or application). After a successful build, the extension can be installed by invoking one of the procedures <tt>install-extension</tt>, <tt>install-program</tt> or <tt>install-script</tt>. These procedures will copy a number of given files into the local extension 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 extension name is given on the command-line, then all <tt>.setup</tt> scripts in the current directory are processed, in the order given on the command line.</p><h4 id="sec:Installing_extensions_that_use_libraries"><a href="#sec:Installing_extensions_that_use_libraries">Installing extensions that use libraries</a></h4><p>Sometimes an extension 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><h3 id="sec:Creating_extensions"><a href="#sec:Creating_extensions">Creating extensions</a></h3><p>An extension can be created by placing its code and some special files in a directory named after it. For example, if your extension is called <tt>foo</tt>, create a directory called <tt>foo</tt> and put the extension code in it.</p><p>Extensions need two special files: an <tt>&lt;extension name&gt;.setup</tt> file and an <tt>&lt;extension name&gt;.meta</tt> file (where <tt>&lt;extension name&gt;</tt> is the name of your extension). The former indicates how the egg is to be compiled and the latter provides some information about the extension (author, license, dependencies etc). See the <a href="http://wiki.call-cc.org/eggs tutorial">eggs tutorial</a> for further information about how to create extensions.</p><h3 id="sec:Procedures_and_macros_available_in_setup_scripts"><a href="#sec:Procedures_and_macros_available_in_setup_scripts">Procedures and macros available in setup scripts</a></h3><h4 id="sec:install-extension"><a href="#sec:install-extension">install-extension</a></h4><dl class="defsig"><dt class="defsig" id="def:install-extension"><span class="sig"><tt>(install-extension ID FILELIST [INFOLIST])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Installs the extension library with the name <tt>ID</tt>. All files given in the list of strings <tt>FILELIST</tt> will be copied to the extension repository. It should be noted here that the extension id has to be identical to the name of the file implementing the extension. The extension may load or include other files, or may load other extensions at runtime specified by the <tt>require-at-runtime</tt> property.</p><p><tt>FILELIST</tt> may be a filename, a list of filenames, or a list of pairs of the form <tt>(SOURCE DEST)</tt> (if you want to copy into a particular sub-directory - the destination directory will be created as needed). If <tt>DEST</tt> is a relative pathname, it will be copied into the extension repository.</p><p>The optional argument <tt>INFOLIST</tt> should be an association list that maps symbols to values, this list will be stored as <tt>ID.setup-info</tt> at the same location as the extension code. Currently the following properties are used:</p></dd> </dl> <h5 id="sec:syntax"><a href="#sec:syntax">syntax</a></h5><pre>[extension property] (syntax)</pre><p>Marks the extension as syntax-only. No code is compiled, the extension is intended as a file containing macros to be loaded at compile/macro-expansion time.</p><h5 id="sec:require-at-runtime"><a href="#sec:require-at-runtime">require-at-runtime</a></h5><pre>[extension property] (require-at-runtime ID ...)</pre><p>Specifies extensions that should be loaded (via <tt>require</tt>) at runtime. This is mostly useful for syntax extensions that need additional support code at runtime.</p><h5 id="sec:import-only"><a href="#sec:import-only">import-only</a></h5><pre> [extension property] (import-only)</pre><p>Specifies that this extension only provides a expansion-time code in an import library and does not require code to be loaded at runtime.</p><h5 id="sec:version"><a href="#sec:version">version</a></h5><pre>[extension property] (version STRING)</pre><p>Specifies version string.</p><h5 id="sec:egg-name"><a href="#sec:egg-name">egg-name</a></h5><pre>[extension property] (egg-name STRING)</pre><p>This is reserved for internal use. It is only listed here to tell you that you should avoid using this property.</p><h4 id="sec:install-program"><a href="#sec:install-program">install-program</a></h4><dl class="defsig"><dt class="defsig" id="def:install-program"><span class="sig"><tt>(install-program ID FILELIST [INFOLIST])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Similar to <tt>install-extension</tt>, but installs an executable program in the executable path (usually <tt>/usr/local/bin</tt>).</p></dd> </dl> <h4 id="sec:install-script"><a href="#sec:install-script">install-script</a></h4><dl class="defsig"><dt class="defsig" id="def:install-script"><span class="sig"><tt>(install-script ID FILELIST [INFOLIST])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Similar to <tt>install-program</tt>, but additionally changes the file permissions of all files in <tt>FILELIST</tt> to executable (for installing shell-scripts).</p></dd> </dl> <h4 id="sec:standard-extension"><a href="#sec:standard-extension">standard-extension</a></h4><dl class="defsig"><dt class="defsig" id="def:standard-extension"><span class="sig"><tt>(standard-extension ID [VERSION] #!key info)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>A convenience procedure that combines the compilation and installation of a simple single-file extension. This is roughly equivalent to:</p><pre> (compile -s -O3 -d1 ID.scm -j ID) (compile -s -O3 -d0 ID.import.scm) (install-extension 'ID '(&quot;ID.so&quot; &quot;ID.import.so&quot;) '((version VERSION) ... `INFO' ... ))</pre><p><tt>VERSION</tt> may be <tt>#f</tt> or can be omitted, in that case the version obtained from where the extension has been retrieved wil be taken. If installed directly from a local directory, the version will default to <tt>&quot;unknown&quot;</tt>.</p></dd> </dl> <h4 id="sec:run"><a href="#sec:run">run</a></h4><dl class="defsig"><dt class="defsig" id="def:run"><span class="sig"><tt>(run FORM ...)</tt></span> <span class="type">syntax</span></dt> <dd class="defsig"><p>Runs the shell command <tt>FORM</tt>, which is wrapped in an implicit <tt>quasiquote</tt>. <tt>(run (csc ...))</tt> is treated specially and passes <tt>-v</tt> (if <tt>-verbose</tt> has been given to <tt>chicken-install</tt>) and <tt>-feature compiling-extension</tt> options to the compiler.</p></dd> </dl> <h4 id="sec:compile"><a href="#sec:compile">compile</a></h4><dl class="defsig"><dt class="defsig" id="def:compile"><span class="sig"><tt>(compile FORM ...)</tt></span> <span class="type">syntax</span></dt> <dd class="defsig"><p>Equivalent to <tt>(run (csc FORM ...))</tt>.</p></dd> </dl> <h4 id="sec:patch"><a href="#sec:patch">patch</a></h4><dl class="defsig"><dt class="defsig" id="def:patch"><span class="sig"><tt>(patch WHICH REGEX SUBST)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Replaces all occurrences of the regular expression <tt>REGEX</tt> with the string <tt>SUBST</tt>, in the file given in <tt>WHICH</tt>. If <tt>WHICH</tt> is a string, the file will be patched and overwritten. If <tt>WHICH</tt> is a list of the form <tt>OLD NEW</tt>, then a different file named <tt>NEW</tt> will be generated.</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"><tt>(copy-file FROM TO)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Copies the file or directory (recursively) given in the string <tt>FROM</tt> to the destination file or directory <tt>TO</tt>.</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"><tt>(move-file FROM TO)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Moves the file or directory (recursively) given in the string <tt>FROM</tt> to the destination file or directory <tt>TO</tt>.</p></dd> </dl> <h4 id="sec:remove-file.2a"><a href="#sec:remove-file.2a">remove-file*</a></h4><dl class="defsig"><dt class="defsig" id="def:remove-file.2a"><span class="sig"><tt>(remove-file* PATH)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Removes the file or directory given in the string <tt>PATH</tt>, if it exists.</p></dd> </dl> <h4 id="sec:find-library"><a href="#sec:find-library">find-library</a></h4><dl class="defsig"><dt class="defsig" id="def:find-library"><span class="sig"><tt>(find-library NAME PROC)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if the library named <tt>libNAME.[a|so]</tt> (unix) or <tt>NAME.lib</tt> (windows) could be found by compiling and linking a test program. <tt>PROC</tt> should be the name of a C function that must be provided by the library. If no such library was found or the function could not be resolved, <tt>#f</tt> is returned.</p></dd> </dl> <h4 id="sec:find-header"><a href="#sec:find-header">find-header</a></h4><dl class="defsig"><dt class="defsig" id="def:find-header"><span class="sig"><tt>(find-header NAME)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if a C include-file with the given name is available, or <tt>#f</tt> otherwise.</p></dd> </dl> <h4 id="sec:try-compile"><a href="#sec:try-compile">try-compile</a></h4><dl class="defsig"><dt class="defsig" id="def:try-compile"><span class="sig"><tt>(try-compile CODE #!key cc cflags ldflags compile-only c++)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if the C code in <tt>CODE</tt> compiles and links successfully, or <tt>#f</tt> otherwise. The keyword parameters <tt>cc</tt> (compiler name, defaults to the C compiler used to build this system), <tt>cflags</tt> and <tt>ldflags</tt> accept additional compilation and linking options. If <tt>compile-only</tt> is true, then no linking step takes place. If the keyword argument <tt>c++</tt> is given and true, then the code will be compiled in C++ mode.</p></dd> </dl> <h4 id="sec:create-directory.2fparents"><a href="#sec:create-directory.2fparents">create-directory/parents</a></h4><dl class="defsig"><dt class="defsig" id="def:create-directory.2fparents"><span class="sig"><tt>(create-directory/parents PATH)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Creates the directory given in the string <tt>PATH</tt>, with all parent directories as needed.</p></dd> </dl> <h4 id="sec:extension-name-and-version"><a href="#sec:extension-name-and-version">extension-name-and-version</a></h4><dl class="defsig"><dt class="defsig" id="def:extension-name-and-version"><span class="sig"><tt>extension-name-and-version</tt></span> <span class="type">parameter</span></dt> <dd class="defsig"><p>Returns a list containing the name and version of the currently installed extension as strings. If the setup script is not invoked via <tt>chicken-install</tt>, then name and version will be empty.</p></dd> </dl> <h4 id="sec:version.3e.3d.3f"><a href="#sec:version.3e.3d.3f">version&gt;=?</a></h4><dl class="defsig"><dt class="defsig" id="def:version.3e.3d.3f"><span class="sig"><tt>(version&gt;=? V1 V2)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Compares the version numbers <tt>V1</tt> and <tt>V2</tt> and returns <tt>#t</tt> if <tt>V1</tt> is &quot;less&quot; than <tt>V2</tt> or <tt>#f</tt> otherwise. A version number can be an integer, a floating-point number or a string. <tt>version&gt;=?</tt> handles dot-separated version-indicators of the form <tt>&quot;X.Y. ..&quot;</tt>.</p><p>If one version number is the prefix of the other, then the shorter version is considered &quot;less&quot; than the longer.</p></dd> </dl> <h4 id="sec:installation-prefix"><a href="#sec:installation-prefix">installation-prefix</a></h4><dl class="defsig"><dt class="defsig" id="def:installation-prefix"><span class="sig"><tt>(installation-prefix)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>An alternative installation prefix that will be prepended to extension installation paths if specified. It is set by the <tt>-prefix</tt> option or environment variable <tt>CHICKEN_INSTALL_PREFIX</tt>.</p></dd> </dl> <h4 id="sec:program-path"><a href="#sec:program-path">program-path</a></h4><dl class="defsig"><dt class="defsig" id="def:program-path"><span class="sig"><tt>(program-path [PATH])</tt></span> <span class="type">parameter</span></dt> <dd class="defsig"><p>Holds the path where executables are installed and defaults to either <tt>$CHICKEN_PREFIX/bin</tt>, if the environment variable <tt>CHICKEN_PREFIX</tt> is set or the path where the CHICKEN binaries (<tt>chicken</tt>, <tt>csi</tt>, etc.) are installed.</p></dd> </dl> <h4 id="sec:setup-root-directory"><a href="#sec:setup-root-directory">setup-root-directory</a></h4><dl class="defsig"><dt class="defsig" id="def:setup-root-directory"><span class="sig"><tt>(setup-root-directory [PATH])</tt></span> <span class="type">parameter</span></dt> <dd class="defsig"><p>Contains the path of the directory where <tt>chicken-install</tt> was invoked.</p></dd> </dl> <h4 id="sec:setup-install-mode"><a href="#sec:setup-install-mode">setup-install-mode</a></h4><dl class="defsig"><dt class="defsig" id="def:setup-install-mode"><span class="sig"><tt>(setup-install-mode [BOOL])</tt></span> <span class="type">parameter</span></dt> <dd class="defsig"><p>Reflects the setting of the <tt>-no-install</tt> option, i.e. is <tt>#f</tt>, if <tt>-no-install</tt> was given to <tt>chicken-install</tt>.</p></dd> </dl> <h4 id="sec:host-extension"><a href="#sec:host-extension">host-extension</a></h4><dl class="defsig"><dt class="defsig" id="def:host-extension"><span class="sig"><tt>host-extension</tt></span> <span class="type">parameter</span></dt> <dd class="defsig"><p>For a cross-compiling CHICKEN, when compiling an extension, then it should be built for the host environment (as opposed to the target environment). This parameter is controlled by the <tt>-host</tt> command-line option. A setup script should perform the proper steps of compiling any code by passing <tt>-host</tt> when invoking <tt>csc</tt> or using the <tt>compile</tt> macro.</p></dd> </dl> <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 a <tt>.setup</tt> script to build and install our nifty extension:</p> <pre class="highlight colorize"><span class="comment">;;;; hello.setup </span> <span class="comment">;; compile the code into a dynamically loadable shared object </span><span class="comment">;; (will generate hello.so) </span><span class="paren1">(<span class="default">compile -s hello.scm</span>)</span> <span class="comment">;; Install as extension library </span><span class="paren1">(<span class="default">install-extension &#x27;hello <span class="string">&quot;hello.so&quot;</span></span>)</span></pre><p>Lastly, we need a file <tt>hello.meta</tt> defining a minimal set of properties:</p> <pre class="highlight colorize"><span class="comment">;;;; hello.meta </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">files <span class="string">&quot;hello.scm&quot;</span> <span class="string">&quot;hello.setup&quot;</span></span>)</span></span>)</span></pre><p>(for more information about available properties, see <a href="http://wiki.call-cc.org/Metafile reference">the metafile reference</a>)</p><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. If the compilation succeeds, <tt>hello.so</tt> will be stored in the repository, together with a file named <tt>hello.setup-info</tt> containing an a-list with metadata (what you stored above in <tt>hello.meta</tt>). If no extension name is given to <tt>chicken-install</tt>, it will simply execute the any files with the <tt>.setup</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/4/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 a setup script:</p> <pre class="highlight colorize"><span class="comment">;;;; hello2.setup </span> <span class="paren1">(<span class="default">compile hello2.scm</span>)</span> <span class="comment">; compile `hello2&#x27; </span><span class="paren1">(<span class="default">install-program &#x27;hello2 <span class="string">&quot;hello2&quot;</span></span>)</span> <span class="comment">; name of the extension and files to be installed</span></pre> <pre class="highlight colorize"><span class="comment">;;;; hello2.meta </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 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">files <span class="string">&quot;hello.scm&quot;</span> <span class="string">&quot;hello.setup&quot;</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 meta file:</p> <pre class="highlight colorize"><span class="comment">;;; my-lib.meta </span> <span class="paren1">(<span class="default"><span class="paren2">(<span class="default">files <span class="string">&quot;my-lib.setup&quot;</span> <span class="string">&quot;my-lib.scm&quot;</span></span>)</span> <span class="paren2">(<span class="default">licence <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>The setup file is:</p> <pre class="highlight colorize"><span class="comment">;;; my-lib.setup </span> <span class="paren1">(<span class="default">compile -s -O3 -d1 <span class="string">&quot;my-lib.scm&quot;</span> -j my-lib</span>)</span> <span class="paren1">(<span class="default">compile -s -O3 -d0 <span class="string">&quot;my-lib.import.scm&quot;</span></span>)</span> <span class="paren1">(<span class="default">install-extension &#x27;my-lib &#x27;<span class="paren2">(<span class="default"><span class="string">&quot;my-lib.so&quot;</span> <span class="string">&quot;my-lib.import.so&quot;</span></span>)</span> &#x27;<span class="paren2">(<span class="default"><span class="paren3">(<span class="default">version 1.0</span>)</span></span>)</span></span>)</span></pre><p>The first line tells the compiler to create a shared (<tt>-s</tt>) library and to create an import file (<tt>my-lib.import.scm</tt>, because of the <tt>-j</tt> flag). The second line compiles the import file created by the first one.</p><p>IMPORTANT: the module name exported by my-lib.scm must be the same module name passed to the compiler using the -j option, otherwise the imports file will not be generated!</p><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; (use 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><h4 id="sec:Notes_on_chicken-install"><a href="#sec:Notes_on_chicken-install">Notes on chicken-install</a></h4><p>When running <tt>chicken-install</tt> with an argument <tt>NAME</tt>, for which no associated <tt>.setup</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><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><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>-l -location LOCATION</tt></dt> <dd>install from given location instead of default</dd><dt><tt>-t -transport TRANSPORT</tt></dt> <dd>use given transport instead of default</dd><dt><tt>-list</tt></dt> <dd>list extensions available</dd><dt><tt>-proxy HOST[:PORT]</tt></dt> <dd>connect via HTTP proxy</dd><dt><tt>-s -sudo</tt></dt> <dd>use external command to elevate privileges when installing or removing files</dd><dt><tt>-r -retrieve</tt></dt> <dd>only retrieve egg into current directory, don't install</dd><dt><tt>-n -no-install</tt></dt> <dd>do not install, just build (implies <tt>-keep</tt>)</dd><dt><tt>-p -prefix PREFIX</tt></dt> <dd>change installation prefix to <tt>PREFIX</tt></dd><dt><tt>-host</tt></dt> <dd>when cross-compiling, compile extension for host only</dd><dt><tt>-target</tt></dt> <dd>when cross-compiling, compile extension for target only</dd><dt><tt>-test</tt></dt> <dd>run included test-cases, if available</dd><dt><tt>-username USER</tt></dt> <dd>set username for transports that require this</dd><dt><tt>-password PASS</tt></dt> <dd>set password for transports that require this</dd><dt><tt>-i -init DIRECTORY</tt></dt> <dd>initialize empty alternative repository</dd><dt><tt>-u -update-db</tt></dt> <dd>update export database</dd><dt><tt>-repository</tt></dt> <dd>print path to extension repository</dd><dt><tt>-deploy</tt></dt> <dd>install extension in the application directory for a deployed application (see <a href="Deployment.html">Deployment</a> for more information)</dd><dt><tt>-trunk</tt></dt> <dd>build trunk instead of tagged version (only local)</dd><dt><tt>-D -feature FEATURE</tt></dt> <dd>pass this on to subinvocations of <tt>csi</tt> and <tt>csc</tt> (when done via <tt>compile</tt> or <tt>(run (csc ...))</tt>)</dd><dt><tt>-debug</tt></dt> <dd>print full call-trace when encountering errors in the setup script</dd><dt><tt>-keep-going</tt></dt> <dd>continue installation, even if a dependency fails</dd><dt><tt>-x -keep-installed</tt></dt> <dd>ignore those extensions given on the command line, that are already installed</dd><dt><tt>-reinstall</tt></dt> <dd>reinstall all currently installed extensions, keeping the current versions, if possible</dd><dt><tt>-scan DIRECTORY</tt></dt> <dd>scan local egg source repository for highest available versions</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>-csi FILENAME</tt></dt> <dd>when invoking <tt>csi</tt>, the CHICKEN interpreter for executing installation scripts, use this program instead.</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><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>-s -sudo</tt></dt> <dd>use external command to elevate privileges for deleting files</dd><dt><tt>-p -prefix PREFIX</tt></dt> <dd>change installation prefix to <tt>PREFIX</tt></dd><dt><tt>-deploy</tt></dt> <dd>uninstall extension from the application directory for a deployed application (see <a href="Deployment.html">Deployment</a> for more information)</dd><dt><tt>-host</tt></dt> <dd>when cross-compiling, remove extensions for host system only</dd><dt><tt>-target</tt></dt> <dd>when cross-compiling, remove extensions for target system only</dd><dt><tt>-exact</tt></dt> <dd>match extension-name exactly (do not match as pattern)</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>-host</tt></dt> <dd>when cross-compiling, show extensions for host system only</dd><dt><tt>-target</tt></dt> <dd>when cross-compiling, show extensions for target system only</dd><dt><tt>-p -prefix PREFIX</tt></dt> <dd>change installation prefix to <tt>PREFIX</tt></dd><dt><tt>-deploy</tt></dt> <dd>look for extensions in the application directory for a deployed application (see <a href="Deployment.html">Deployment</a> for more information)</dd><dt><tt>-exact</tt></dt> <dd>match extension-name exactly (do not match as pattern)</dd><dt><tt>-list</tt></dt> <dd>list installed egg version in format suitable for <tt>chicken-install -override</tt></dd></dl> <h3 id="sec:Security"><a href="#sec:Security">Security</a></h3><p>When extensions 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 extensions. 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 extension 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/5</tt>.</p><h3 id="sec:Changing_repository_location"><a href="#sec:Changing_repository_location">Changing 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/6/</tt>). It is possible to keep an eggs 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 an initial repository directory with some default extensions and set the <tt>CHICKEN_REPOSITORY</tt> environment variable:</p><p>Note that your binary version can differ from 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>First, initialize the new repository with</p><pre> mkdir -p ~/myeggs/lib/chicken/6 # to create directory structure chicken-install -init ~/myeggs/lib/chicken/6</pre><p>Then set this environment variable:</p><pre> export CHICKEN_REPOSITORY=~/myeggs/lib/chicken/6</pre><p><tt>CHICKEN_REPOSITORY</tt> is the place where extensions are to be loaded from for all chicken-based programs (which includes all the tools).</p><p>If you want to install eggs somewhere other than the default or your environment variable, you can use</p><pre> chicken-install -p ~/myeggs &lt;package&gt;</pre><p>See that the argument to chicken-install is just <tt>~/myeggs</tt>, while everywhere else it's <tt>~/myeggs/lib/chicken/5</tt>.</p><p>When you load eggs from the interpreter, you will see messages showing where libraries are being loaded from:</p><pre>#;1&gt; (use numbers) ; loading /home/jdoe/myeggs/lib/chicken/6/numbers.import.so ... ; loading /home/jdoe/myeggs/lib/chicken/6/scheme.import.so ... ; loading /home/jdoe/myeggs/lib/chicken/6/chicken.import.so ... ; loading /home/jdoe/myeggs/lib/chicken/6/foreign.import.so ... ; loading /home/jdoe/myeggs/lib/chicken/6/regex.import.so ... ; loading /home/jdoe/myeggs/lib/chicken/6/numbers.so ... #;2&gt;</pre><h4 id="sec:Upgrading"><a href="#sec:Upgrading">Upgrading</a></h4><p>After a main upgrade, you need to reinstall all the eggs. First, reset the repository environment variable:</p><pre> export CHICKEN_REPOSITORY=/usr/lib/chicken/6</pre><p>Then, make a new directory that reflects the systematic one:</p><pre> mkdir ~/myeggs/lib/chicken/6</pre><p>After that, do the same steps above for the new directory (initialize, set repository environment variable) and reinstall all the eggs.</p><h3 id="sec:Other_modes_of_installation"><a href="#sec:Other_modes_of_installation">Other modes of installation</a></h3><p>It is possible to install extensions directly from a <a href="http://subversion.apache.org/">Subversion</a> repository or from a local checkout of the repository tree by using the <tt>-transport</tt> and <tt>-location</tt> options when invoking <tt>chicken-install</tt>. Three possible transport mechanisms are currently supported:</p><dl><dt><tt>http</tt></dt> <dd>download extension sources via HTTP from a web-server (this is the default)</dd><dt><tt>svn</tt></dt> <dd>perform an <tt>svn export</tt> from the central extension repository; this will require a <tt>svn(1)</tt> client to be installed on the machine</dd><dt><tt>local</tt></dt> <dd>use sources from the local filesystem and build directly in the source directory</dd></dl> <p>The <tt>-location</tt> option specifies where to look for the source repository and names a web URL, a subversion repository URL or a filesystem path, respectively. A list of locations to try when retrieving extensions is stored in the file <tt>setup.defaults</tt> (usually installed in <tt>/usr/local/share/chicken</tt>). For <tt>http</tt> transports, <tt>chicken-install</tt> will detect networking timeouts and try alternative locations, as listed in the file.</p><p>Dependency information, which is necessary to ensure required extensions are also installed, is processed automatically.</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="Deployment.html">Deployment</a></p></div></div></body>�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Using the compiler.html��������������������������������������������������0000644�0001750�0001750�00000103630�13052306550�021540� 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:Examples">Examples</a> <ul> <li><a href="#sec:A_simple_example_.28with_one_source_file.29">A simple example (with one source file)</a> <ul> <li><a href="#sec:Writing_your_source_file">Writing your source file</a></li> <li><a href="#sec:Compiling_your_program">Compiling your program</a></li> <li><a href="#sec:Running_your_program">Running your program</a></li></ul></li> <li><a href="#sec:An_example_with_multiple_files">An example with multiple files</a> <ul> <li><a href="#sec:Writing_your_source_files">Writing your source files</a></li> <li><a href="#sec:Compiling_and_running_your_program">Compiling and running your program</a></li></ul></li></ul></li> <li><a href="#sec:Extending_the_compiler">Extending the compiler</a></li> <li><a href="#sec:Distributing_compiled_C_files">Distributing compiled C files</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>csc FILENAME-OR-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 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.</dd></dl> <pre> -debug-level 0 is equivalent to -no-trace -no-lambda-info -debug-level 1 is equivalent to -no-trace -debug-level 2 is equivalent to -scrutinize</pre><dl><dt>-disable-interrupts</dt> <dd>Equivalent to the <tt>(disable-interrupts)</tt> declaration. No interrupt-checks are generated for compiled programs.</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>-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-type-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>-types</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 <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 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 which stand for mega- and kilobytes, respectively. The default heap size is 5 kilobytes. Note that only half of it is in use at every given time.</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 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>.</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>. 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>-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</dt> <dd>wraps the compiled code in an implicit module named <tt>main</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 symbols may be given, if comma-separated.</dd><dt>-no-lambda-info</dt> <dd>Don't 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 only needed if you want to use an import library that is generated by other means (manually, for example).</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.</dd></dl> <pre> -optimize-level 0 is equivalent to -no-usual-integrations -no-compiler-syntax -optimize-level 1 is equivalent to -optimize-leaf-routines -optimize-level 2 is equivalent to -optimize-leaf-routines -inline -optimize-level 3 is equivalent to -optimize-leaf-routines -local -inline -inline-global -specialize -optimize-level 4 is equivalent to -optimize-leaf-routines -local -inline -inline-global -specialize -unsafe -optimize-level 5 is equivalent to -optimize-leaf-routines -block -inline -inline-global -specialize -unsafe -disable-interrupts -no-trace -no-lambda-info -clustering -lfa2</pre><dl><dt>-output-file FILENAME</dt> <dd>Specifies the pathname of the generated C file. Default is <tt>FILENAME.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 <a href="Non-standard%20read%20syntax.html">non-standard read syntax</a>.</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>).</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>-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.</dd><dt>-types 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>.</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:</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 &quot;temporary stack&quot; size. This is used mostly for <tt>apply</tt>. If you supply a zero size (the default), the 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 (ASCII 7) 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, suitable for platform).</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 with 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>-:w</tt></dt> <dd>Enables garbage collection of unused symbols. By default unused and unbound symbols are not garbage collected.</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>-:wh64m</tt> is OK, but <tt>-:h64mw</tt> will not enable GC of unused symbols.</p><h3 id="sec:Examples"><a href="#sec:Examples">Examples</a></h3><h4 id="sec:A_simple_example_.28with_one_source_file.29"><a href="#sec:A_simple_example_.28with_one_source_file.29">A simple example (with one source file)</a></h4><p>To compile a Scheme program (assuming a UNIX-like environment) consisting of a single source file, perform the following steps.</p><h5 id="sec:Writing_your_source_file"><a href="#sec:Writing_your_source_file">Writing your source file</a></h5><p>In this example we will assume your source file is called <tt>foo.scm</tt>:</p> <pre class="highlight colorize"><span class="comment">;;; foo.scm </span> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">fac n</span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">if</span></i> <span class="paren3">(<span class="default">zero? n</span>)</span> 1 <span class="paren3">(<span class="default">* n <span class="paren4">(<span class="default">fac <span class="paren5">(<span class="default">- n 1</span>)</span></span>)</span></span>)</span> </span>)</span> </span>)</span> <span class="paren1">(<span class="default">write <span class="paren2">(<span class="default">fac 10</span>)</span></span>)</span> <span class="paren1">(<span class="default">newline</span>)</span></pre><h5 id="sec:Compiling_your_program"><a href="#sec:Compiling_your_program">Compiling your program</a></h5><p>Compile the file <tt>foo.scm</tt>:</p><pre>% csc foo.scm</pre><p>This will produce the <tt>foo</tt> executable:</p><pre>% ls foo foo.scm</pre><h5 id="sec:Running_your_program"><a href="#sec:Running_your_program">Running your program</a></h5><p>To run your newly compiled executable use:</p><pre>% ./foo 3628800</pre><h4 id="sec:An_example_with_multiple_files"><a href="#sec:An_example_with_multiple_files">An example with multiple files</a></h4><p>If multiple bodies of Scheme code are to be combined into a single executable, then we have to compile each file and link the resulting object files together with the runtime system.</p><p>Let's consider an example where your program consists of multiple source files.</p><h5 id="sec:Writing_your_source_files"><a href="#sec:Writing_your_source_files">Writing your source files</a></h5><p>The declarations in these files specify which of the compiled files is the main module, and which is the library module. An executable can only have one main module, since a program has only a single entry-point. In this case <tt>foo.scm</tt> is the main module, because it doesn't have a <tt>unit</tt> declaration:</p> <pre class="highlight colorize"><span class="comment">;;; foo.scm </span> <span class="comment">; The declaration marks this source file as dependant on the symbols provided </span><span class="comment">; by the bar unit: </span><span class="paren1">(<span class="default">declare <span class="paren2">(<span class="default">uses bar</span>)</span></span>)</span> <span class="paren1">(<span class="default">write <span class="paren2">(<span class="default">fac 10</span>)</span></span>)</span> <span class="paren1">(<span class="default">newline</span>)</span></pre><p><tt>bar.scm</tt> will be our library:</p> <pre class="highlight colorize"><span class="comment">;;; bar.scm </span> <span class="comment">; The declaration marks this source file as the bar unit. The names of the </span><span class="comment">; units and your files don&#x27;t need to match. </span><span class="paren1">(<span class="default">declare <span class="paren2">(<span class="default">unit bar</span>)</span></span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">fac n</span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">if</span></i> <span class="paren3">(<span class="default">zero? n</span>)</span> 1 <span class="paren3">(<span class="default">* n <span class="paren4">(<span class="default">fac <span class="paren5">(<span class="default">- n 1</span>)</span></span>)</span></span>)</span> </span>)</span> </span>)</span></pre><h5 id="sec:Compiling_and_running_your_program"><a href="#sec:Compiling_and_running_your_program">Compiling and running your program</a></h5><p>You should compile your two files with the following commands:</p><pre>% csc -c bar.scm % csc -c foo.scm</pre><p>That should produce two files, <tt>bar.o</tt> and <tt>foo.o</tt>. They contain the code from your source files in compiled form.</p><p>To link your compiled files use the following command:</p><pre>% csc foo.o bar.o -o foo</pre><p>This should produce the <tt>foo</tt> executable, which you can run just as in the previous example. At this point you can also erase the <tt>*.o</tt> files.</p><p>You could avoid one step and link the two files just as <tt>foo.scm</tt> is compiled:</p><pre>% csc -c bar.scm % csc foo.scm bar.o -o foo</pre><p>Note that if you want to distribute your program, you might want it to follow the GNU Coding Standards. One relatively easy way to achieve this is to use Autoconf and Automake, two tools made for this specific purpose.</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, user-read-pass, user-preprocessor-pass, user-pass</tt> and <tt>user-post-analysis-pass</tt> can be set to procedures that are called to perform certain compilation passes instead of the usual processing (for more information about parameters see: <a href="Supported%20language.html">Supported language</a>.</p><dl class="defsig"><dt class="defsig" id="def:user-options-pass"><span class="sig"><tt>user-options-pass</tt></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"><tt>user-read-pass</tt></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"><tt>user-preprocessor-pass</tt></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"><tt>user-pass</tt></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"><tt>user-post-analysis-pass</tt></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>Loaded code (via the <tt>-extend</tt> option) has access to the library units <tt>extras, srfi-1, srfi-4, utils, regex</tt> and the pattern matching macros. Multithreading is not available.</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 by <tt>user-pass</tt>.</p></dd> </dl> <h3 id="sec:Distributing_compiled_C_files"><a href="#sec:Distributing_compiled_C_files">Distributing compiled C files</a></h3><p>It is relatively easy to create distributions of Scheme projects that have been compiled to C. The runtime system of CHICKEN consists of only three handcoded C files (<tt>runtime.c</tt> and <tt>chicken.h</tt>), plus the file <tt>chicken-config.h</tt>, which is 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 the most frequent operating systems, like Windows, Linux or FreeBSD (Static binaries are NOT supported on Mac OS X):</p><p>Let's take a simple example.</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>build-version.c</tt>, <tt>buildtag.h</tt> and <tt>runtime.c</tt>, which contain the basic runtime system, plus the five basic library files <tt>library.c</tt>, <tt>eval.c</tt>, <tt>expand.c</tt>, <tt>modules.c</tt> and <tt>build-version.c</tt> which contain the same functionality as the library linked into a plain CHICKEN-compiled application, or which is available by default in the interpreter, <tt>csi</tt>:</p><pre> % cd /tmp % echo '(print &quot;Hello World.&quot;)' &gt; hello.scm % cp $CHICKEN_BUILD/runtime.c . % cp $CHICKEN_BUILD/library.c . % cp $CHICKEN_BUILD/eval.c . % cp $CHICKEN_BUILD/extras.c . % cp $CHICKEN_BUILD/expand.c . % cp $CHICKEN_BUILD/modules.c . % cp $CHICKEN_BUILD/build-version.c . % cp $CHICKEN_BUILD/chicken.h . % cp $CHICKEN_BUILD/chicken-config.h . % cp $CHICKEN_BUILD/buildtag.h . % gcc -static -Os -fomit-frame-pointer -DHAVE_CHICKEN_CONFIG_H runtime.c build-version.c \ library.c eval.c expand.c modules.c hello.c -o hello -lm</pre><p>Now we have all files together, and can create an tarball containing all the files:</p><pre>% tar cf hello.tar hello.c runtime.c build-version.c library.c eval.c extras.c \ expand.c modules.c chicken.h chicken-config.h % gzip hello.tar</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 wrong 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>Note also that the size of the application can still be reduced by removing <tt>eval</tt> and compiling <tt>hello.scm</tt> with the <tt>-explicit-use</tt> option.</p><p>For more information, study the CHICKEN source code and/or ask on the CHICKEN mailing list.</p><hr /><p>Previous: <a href="Basic%20mode%20of%20operation.html">Basic mode of operation</a></p><p>Next: <a href="Using%20the%20interpreter.html">Using the interpreter</a></p></div></div></body>��������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Data representation.html�������������������������������������������������0000644�0001750�0001750�00000020003�13052306547�022011� 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.</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.</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>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>lambda infos</b>: byte-vector objects with type-bits <tt>C_LAMBDA_INFO_TYPE</tt>, currently 1101.</p><p><b>buckets</b>: vector objects with type-bits <tt>C_BUCKET_TYPE</tt>, currently 1111. These are only used internally for the implementation of symbol tables.</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="Cross%20development.html">Cross development</a></p><p>Next: <a href="Bugs%20and%20limitations.html">Bugs and limitations</a></p></div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Cross development.html���������������������������������������������������0000644�0001750�0001750�00000025212�13052306550�021512� 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 | | `-- 8 | | : | | | |-- libchicken.a | |-- libchicken.so -&gt; libchicken.so.8 | `-- libchicken.so.8 `-- 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-bug | |-- arm-chicken-install | |-- arm-chicken-profile | |-- arm-chicken-status | |-- arm-chicken-uninstall | |-- arm-csc | `-- arm-csi |-- include | |-- chicken-config.h | `-- chicken.h |-- lib | |-- chicken | | `-- 8 | | : | | | |-- libchicken.a | |-- libchicken.so -&gt; libchicken.so.8 | `-- libchicken.so.8 `-- 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 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/6</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> Next: <a href="Data%20representation.html">Data representation</a></p></div></div></body>��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/index.html���������������������������������������������������������������0000644�0001750�0001750�00000000523�13052306551�017224� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<html> <body> <center> <img src="chicken.png"> <p><a href="The%20User%27s%20Manual.html">The User's Manual</a> <p>For more information and latest news, visit <a href="http://wiki.call-cc.org/">the CHICKEN wiki</a> <blink><span style="color: #f00"><-- CHECK IT OUT!</span></blink> </center> </body> </html> �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Embedding.html�����������������������������������������������������������0000644�0001750�0001750�00000034452�13052306550�020002� 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:return-to-host">return-to-host</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. Passing <tt>0</tt> to one or more of these parameters will select a default size. <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 <tt>return-to-host</tt> (see below).</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: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"><tt>(return-to-host)</tt></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><p>The <tt>eval</tt> library unit also provides boilerplate callbacks, that simplify invoking Scheme code embedded in a C or C++ application:</p></dd> </dl> <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. Note that the <tt>srfi-18</tt> library unit has to be linked in for this.</p><p>An example:</p><pre>% cat x.scm ;;; x.scm (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 (require-extension srfi-18) (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="Callbacks.html">Callbacks</a></p></div></div></body>����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Accessing external objects.html������������������������������������������0000644�0001750�0001750�00000042376�13052306550�023244� 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_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: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_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: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 C_alloc 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 f64vector; 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 chicken scheme foreign</span>)</span> <span class="paren2">(<span class="default">use 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-4.12.0/manual-html/Foreign type specifiers.html���������������������������������������������0000644�0001750�0001750�00000065141�13052306551�022574� 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: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: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-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-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-]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-4.12.0/manual-html/Unit library.html��������������������������������������������������������0000644�0001750�0001750�00000232431�13052306550�020465� 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; Unit library</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:Unit_library">Unit library</a> <ul> <li><a href="#sec:Arithmetic">Arithmetic</a> <ul> <li><a href="#sec:add1.2fsub1">add1/sub1</a></li> <li><a href="#sec:Binary_integer_operations">Binary integer operations</a></li> <li><a href="#sec:bit-set.3f">bit-set?</a></li> <li><a href="#sec:Arithmetic_fixnum_operations">Arithmetic fixnum operations</a></li> <li><a href="#sec:Fixnum_comparison_and_predicates">Fixnum comparison and predicates</a></li> <li><a href="#sec:fixnum.3f">fixnum?</a></li> <li><a href="#sec:Fixnum_limits">Fixnum limits</a></li> <li><a href="#sec:Arithmetic_floating-point_operations">Arithmetic floating-point operations</a></li> <li><a href="#sec:flonum.3f">flonum?</a></li> <li><a href="#sec:Flonum_limits">Flonum limits</a></li> <li><a href="#sec:finite.3f">finite?</a></li> <li><a href="#sec:signum">signum</a></li></ul></li> <li><a href="#sec:File_Input.2fOutput">File Input/Output</a> <ul> <li><a href="#sec:current-output-port">current-output-port</a></li> <li><a href="#sec:current-error-port">current-error-port</a></li> <li><a href="#sec:flush-output">flush-output</a></li> <li><a href="#sec:port-closed.3f">port-closed?</a></li> <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:Files">Files</a> <ul> <li><a href="#sec:delete-file">delete-file</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></ul></li> <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> <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:Keywords">Keywords</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> <li><a href="#sec:Environment_information_and_system_interface">Environment information and system interface</a> <ul> <li><a href="#sec:argv">argv</a></li> <li><a href="#sec:exit">exit</a></li> <li><a href="#sec:build-platform">build-platform</a></li> <li><a href="#sec:chicken-version">chicken-version</a></li> <li><a href="#sec:errno">errno</a></li> <li><a href="#sec:get-environment-variable">get-environment-variable</a></li> <li><a href="#sec:machine-byte-order">machine-byte-order</a></li> <li><a href="#sec:machine-type">machine-type</a></li> <li><a href="#sec:on-exit">on-exit</a></li> <li><a href="#sec:software-type">software-type</a></li> <li><a href="#sec:software-version">software-version</a></li> <li><a href="#sec:system">system</a></li></ul></li> <li><a href="#sec:Execution_time">Execution time</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> <li><a href="#sec:current-gc-milliseconds">current-gc-milliseconds</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:get-call-chain">get-call-chain</a></li> <li><a href="#sec:print-call-chain">print-call-chain</a></li> <li><a href="#sec:print-error-message">print-error-message</a></li> <li><a href="#sec:procedure-information">procedure-information</a></li> <li><a href="#sec:quit">quit</a></li> <li><a href="#sec:reset">reset</a></li> <li><a href="#sec:warning">warning</a></li></ul></li> <li><a href="#sec:Garbage_collection">Garbage collection</a> <ul> <li><a href="#sec:gc">gc</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:set-gc-report.21">set-gc-report!</a></li></ul></li> <li><a href="#sec:Other_predicates_and_comparison_operations">Other predicates and comparison operations</a> <ul> <li><a href="#sec:promise.3f">promise?</a></li> <li><a href="#sec:equal.3d.3f">equal=?</a></li></ul></li> <li><a href="#sec:String_utilities">String utilities</a> <ul> <li><a href="#sec:reverse-list-.3estring">reverse-list-&gt;string</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> <li><a href="#sec:Property_lists">Property lists</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></li> <li><a href="#sec:Standard_Input.2fOutput">Standard Input/Output</a> <ul> <li><a href="#sec:port.3f">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: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:Blobs">Blobs</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> <li><a href="#sec:Lists">Lists</a> <ul> <li><a href="#sec:foldl">foldl</a></li> <li><a href="#sec:foldr">foldr</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: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> <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> <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:Reader_extensions">Reader extensions</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></ul></li></ul></li></ul></div><h2 id="sec:Unit_library"><a href="#sec:Unit_library">Unit library</a></h2><p>This unit contains basic Scheme definitions. This unit is used by default, unless the program is compiled with the <tt>-explicit-use</tt> option.</p><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"><tt>(add1 N)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:sub1"><span class="sig"><tt>(sub1 N)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Adds/subtracts 1 from <tt>N</tt>.</p></dd> </dl> <h4 id="sec:Binary_integer_operations"><a href="#sec:Binary_integer_operations">Binary integer operations</a></h4><dl class="defsig"><dt class="defsig" id="def:bitwise-and"><span class="sig"><tt>(bitwise-and N1 ...)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:bitwise-ior"><span class="sig"><tt>(bitwise-ior N1 ...)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:bitwise-xor"><span class="sig"><tt>(bitwise-xor N1 ...)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:bitwise-not"><span class="sig"><tt>(bitwise-not N)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:arithmetic-shift"><span class="sig"><tt>(arithmetic-shift N1 N2)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Binary integer operations. <tt>arithmetic-shift</tt> shifts the argument <tt>N1</tt> by <tt>N2</tt> bits to the left. If <tt>N2</tt> is negative, then <tt>N1</tt> is shifted to the right. These operations only accept exact integers or inexact integers in word range (32 bit signed on 32-bit platforms, or 64 bit signed on 64-bit platforms).</p></dd> </dl> <h4 id="sec:bit-set.3f"><a href="#sec:bit-set.3f">bit-set?</a></h4><dl class="defsig"><dt class="defsig" id="def:bit-set.3f"><span class="sig"><tt>(bit-set? N INDEX)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if the bit at the position <tt>INDEX</tt> in the integer <tt>N</tt> is set, or <tt>#f</tt> otherwise. The rightmost/least-significant bit is bit 0.</p></dd> </dl> <h4 id="sec:Arithmetic_fixnum_operations"><a href="#sec:Arithmetic_fixnum_operations">Arithmetic fixnum operations</a></h4><dl class="defsig"><dt class="defsig" id="def:fx.2b"><span class="sig"><tt>(fx+ N1 N2)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fx-"><span class="sig"><tt>(fx- N1 N2)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fx.2a"><span class="sig"><tt>(fx* N1 N2)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fx.2f"><span class="sig"><tt>(fx/ N1 N2)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fxmod"><span class="sig"><tt>(fxmod N1 N2)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fxneg"><span class="sig"><tt>(fxneg N)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fxmin"><span class="sig"><tt>(fxmin N1 N2)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fxmax"><span class="sig"><tt>(fxmax N1 N2)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fxand"><span class="sig"><tt>(fxand N1 N2)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fxior"><span class="sig"><tt>(fxior N1 N2)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fxxor"><span class="sig"><tt>(fxxor N1 N2)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fxnot"><span class="sig"><tt>(fxnot N)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fxshl"><span class="sig"><tt>(fxshl N1 N2)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fxshr"><span class="sig"><tt>(fxshr N1 N2)</tt></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> and <tt>fxmod</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> <h4 id="sec:Fixnum_comparison_and_predicates"><a href="#sec:Fixnum_comparison_and_predicates">Fixnum comparison and predicates</a></h4><dl class="defsig"><dt class="defsig" id="def:fxodd.3f"><span class="sig"><tt>(fxodd? N)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fxeven.3f"><span class="sig"><tt>(fxeven? N)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fx.3d"><span class="sig"><tt>(fx= N1 N2)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fx.3e"><span class="sig"><tt>(fx&gt; N1 N2)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fx.3c"><span class="sig"><tt>(fx&lt; N1 N2)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fx.3e.3d"><span class="sig"><tt>(fx&gt;= N1 N2)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fx.3c.3d"><span class="sig"><tt>(fx&lt;= N1 N2)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Comparison of fixnums and predicates on them.</p></dd> </dl> <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"><tt>(fixnum? X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>X</tt> is a fixnum, or <tt>#f</tt> otherwise.</p></dd> </dl> <h4 id="sec:Fixnum_limits"><a href="#sec:Fixnum_limits">Fixnum limits</a></h4><dl class="defsig"><dt class="defsig" id="def:most-positive-fixnum"><span class="sig"><tt>most-positive-fixnum</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:most-negative-fixnum"><span class="sig"><tt>most-negative-fixnum</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:fixnum-bits"><span class="sig"><tt>fixnum-bits</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:fixnum-precision"><span class="sig"><tt>fixnum-precision</tt></span> <span class="type">constant</span></dt> <dd class="defsig"><p>Platform-specific fixnum limits.</p></dd> </dl> <h4 id="sec:Arithmetic_floating-point_operations"><a href="#sec:Arithmetic_floating-point_operations">Arithmetic floating-point operations</a></h4><dl class="defsig"><dt class="defsig" id="def:fp.2b"><span class="sig"><tt>(fp+ X Y)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fp-"><span class="sig"><tt>(fp- X Y)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fp.2a"><span class="sig"><tt>(fp* X Y)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fp.2f"><span class="sig"><tt>(fp/ X Y)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fpneg"><span class="sig"><tt>(fpneg X)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fpmin"><span class="sig"><tt>(fpmin X Y)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fpmax"><span class="sig"><tt>(fpmax X Y)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fp.3d"><span class="sig"><tt>(fp= X Y)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fp.3e"><span class="sig"><tt>(fp&gt; X Y)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fp.3c"><span class="sig"><tt>(fp&lt; X Y)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fp.3e.3d"><span class="sig"><tt>(fp&gt;= X Y)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fp.3c.3d"><span class="sig"><tt>(fp&lt;= X Y)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fpfloor"><span class="sig"><tt>(fpfloor X)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fpceiling"><span class="sig"><tt>(fpceiling X)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fptruncate"><span class="sig"><tt>(fptruncate X)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fpround"><span class="sig"><tt>(fpround X)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fpsin"><span class="sig"><tt>(fpsin X)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fpcos"><span class="sig"><tt>(fpcos X)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fptan"><span class="sig"><tt>(fptan X)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fpasin"><span class="sig"><tt>(fpasin X)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fpacos"><span class="sig"><tt>(fpacos X)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fpatan"><span class="sig"><tt>(fpatan X)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fpatan2"><span class="sig"><tt>(fpatan2 X Y)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fplog"><span class="sig"><tt>(fplog X)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fpexp"><span class="sig"><tt>(fpexp X)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fpexpt"><span class="sig"><tt>(fpexpt X Y)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fpsqrt"><span class="sig"><tt>(fpsqrt X)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fpabs"><span class="sig"><tt>(fpabs X)</tt></span> <span class="type">procedure</span></dt> <dt class="defsig" id="def:fpinteger.3f"><span class="sig"><tt>(fpinteger? X)</tt></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> <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"><tt>(flonum? X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>X</tt> is a flonum, or <tt>#f</tt> otherwise.</p></dd> </dl> <h4 id="sec:Flonum_limits"><a href="#sec:Flonum_limits">Flonum limits</a></h4><dl class="defsig"><dt class="defsig" id="def:maximum-flonum"><span class="sig"><tt>maximum-flonum</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:minimum-flonum"><span class="sig"><tt>minimum-flonum</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:flonum-radix"><span class="sig"><tt>flonum-radix</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:flonum-epsilon"><span class="sig"><tt>flonum-epsilon</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:flonum-precision"><span class="sig"><tt>flonum-precision</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:flonum-decimal-precision"><span class="sig"><tt>flonum-decimal-precision</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:flonum-maximum-exponent"><span class="sig"><tt>flonum-maximum-exponent</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:flonum-minimum-exponent"><span class="sig"><tt>flonum-minimum-exponent</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:flonum-maximum-decimal-exponent"><span class="sig"><tt>flonum-maximum-decimal-exponent</tt></span> <span class="type">constant</span></dt> <dt class="defsig" id="def:flonum-minimum-decimal-exponent"><span class="sig"><tt>flonum-minimum-decimal-exponent</tt></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"><tt>(flonum-print-precision [PRECISION])</tt></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. <tt>PRECISION</tt> 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> <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"><tt>(finite? N)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#f</tt> if <tt>N</tt> is negative or positive infinity, and <tt>#t</tt> otherwise.</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"><tt>(signum N)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>1</tt> if <tt>N</tt> is positive, <tt>-1</tt> if <tt>N</tt> is negative or <tt>0</tt> if <tt>N</tt> is zero. <tt>signum</tt> is exactness preserving.</p></dd> </dl> <h3 id="sec:File_Input.2fOutput"><a href="#sec:File_Input.2fOutput">File Input/Output</a></h3><h4 id="sec:current-output-port"><a href="#sec:current-output-port">current-output-port</a></h4><dl class="defsig"><dt class="defsig" id="def:current-output-port"><span class="sig"><tt>(current-output-port [PORT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns default output port. If <tt>PORT</tt> is given, then that port is selected as the new current output port.</p><p>Note that the default output port is not buffered. Use <a href="Unit%20posix.html#sec:Setting_the_file_buffering_mode"><tt>set-buffering-mode!</tt></a> if you need a different behavior.</p></dd> </dl> <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"><tt>(current-error-port [PORT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns default error output port. If <tt>PORT</tt> 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="Unit%20posix.html#sec:Setting_the_file_buffering_mode"><tt>set-buffering-mode!</tt></a> if you need a different behavior.</p></dd> </dl> <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"><tt>(flush-output [PORT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Write buffered output to the given output-port. <tt>PORT</tt> defaults to the value of <tt>(current-output-port)</tt>.</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"><tt>(port-closed? PORT)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Is the given <tt>PORT</tt> closed?</p></dd> </dl> <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"><tt>(port-name [PORT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Fetch filename from <tt>PORT</tt>. This returns the filename that was used to open this file. Returns a special tag string, enclosed into parentheses for non-file ports. <tt>PORT</tt> 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"><tt>(port-position [PORT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the current position of <tt>PORT</tt> 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. <tt>PORT</tt> 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"><tt>(set-port-name! PORT STRING)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the name of <tt>PORT</tt> to <tt>STRING</tt>.</p></dd> </dl> <h3 id="sec:Files"><a href="#sec:Files">Files</a></h3><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"><tt>(delete-file STRING)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Deletes the file with the pathname <tt>STRING</tt>. If the file does not exist, an error is signaled.</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"><tt>(directory-exists? STRING)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>STRING</tt> 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"><tt>(file-exists? STRING)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>STRING</tt> 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"><tt>(rename-file OLD NEW)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Renames the file or directory with the pathname <tt>OLD</tt> to <tt>NEW</tt>. If the operation does not succeed, an error is signaled.</p></dd> </dl> <h3 id="sec:String_ports"><a href="#sec:String_ports">String ports</a></h3><h4 id="sec:get-output-string"><a href="#sec:get-output-string">get-output-string</a></h4><dl class="defsig"><dt class="defsig" id="def:get-output-string"><span class="sig"><tt>(get-output-string PORT)</tt></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> <h4 id="sec:open-input-string"><a href="#sec:open-input-string">open-input-string</a></h4><dl class="defsig"><dt class="defsig" id="def:open-input-string"><span class="sig"><tt>(open-input-string STRING)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a port for reading from <tt>STRING</tt>.</p></dd> </dl> <h4 id="sec:open-output-string"><a href="#sec:open-output-string">open-output-string</a></h4><dl class="defsig"><dt class="defsig" id="def:open-output-string"><span class="sig"><tt>(open-output-string)</tt></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: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"><tt>(features)</tt></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"><tt>(feature? ID ...)</tt></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"><tt>(register-feature! FEATURE ...)</tt></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"><tt>(unregister-feature! FEATURE ...)</tt></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:Keywords"><a href="#sec:Keywords">Keywords</a></h3><p>Keywords are special symbols prefixed with <tt>#:</tt> that evaluate to themselves. Procedures can use keywords to accept optional named parameters in addition to normal required parameters. Assignment to and bindings of keyword symbols is not allowed. 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"><tt>(get-keyword KEYWORD ARGLIST [THUNK])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the argument from <tt>ARGLIST</tt> specified under the keyword <tt>KEYWORD</tt>. If the keyword is not found, then the zero-argument procedure <tt>THUNK</tt> is invoked and the result value is returned. If <tt>THUNK</tt> 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 <tt>KEYWORD</tt> 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"><tt>(keyword? X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>X</tt> is a keyword symbol, 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"><tt>(keyword-&gt;string KEYWORD)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Transforms <tt>KEYWORD</tt> 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"><tt>(string-&gt;keyword STRING)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a keyword with the name <tt>STRING</tt>.</p></dd> </dl> <h3 id="sec:Environment_information_and_system_interface"><a href="#sec:Environment_information_and_system_interface">Environment information and system interface</a></h3><h4 id="sec:argv"><a href="#sec:argv">argv</a></h4><dl class="defsig"><dt class="defsig" id="def:argv"><span class="sig"><tt>(argv)</tt></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> <h4 id="sec:exit"><a href="#sec:exit">exit</a></h4><dl class="defsig"><dt class="defsig" id="def:exit"><span class="sig"><tt>(exit [CODE])</tt></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> <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"><tt>(build-platform)</tt></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 metrowerks watcom unknown</pre></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"><tt>(chicken-version [FULL])</tt></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 <tt>FULL</tt> is given and true, then a full version string is returned.</p></dd> </dl> <h4 id="sec:errno"><a href="#sec:errno">errno</a></h4><dl class="defsig"><dt class="defsig" id="def:errno"><span class="sig"><tt>(errno)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the error code of the last system call.</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"><tt>(get-environment-variable STRING)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the value of the environment variable <tt>STRING</tt> 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: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"><tt>(machine-byte-order)</tt></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"><tt>(machine-type)</tt></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> <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"><tt>(on-exit THUNK)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Schedules the zero-argument procedures <tt>THUNK</tt> 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> <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"><tt>(software-type)</tt></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"><tt>(software-version)</tt></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> <h4 id="sec:system"><a href="#sec:system">system</a></h4><dl class="defsig"><dt class="defsig" id="def:system"><span class="sig"><tt>(system STRING)</tt></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> <h3 id="sec:Execution_time"><a href="#sec:Execution_time">Execution time</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"><tt>(cpu-time)</tt></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"><tt>(current-milliseconds)</tt></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"><tt>(current-seconds)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the number of seconds since midnight, Jan. 1, 1970.</p></dd> </dl> <h4 id="sec:current-gc-milliseconds"><a href="#sec:current-gc-milliseconds">current-gc-milliseconds</a></h4><dl class="defsig"><dt class="defsig" id="def:current-gc-milliseconds"><span class="sig"><tt>(current-gc-milliseconds)</tt></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: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"><tt>(enable-warnings [BOOL])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Enables or disables warnings, depending on wether <tt>BOOL</tt> 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: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"><tt>(get-call-chain [START [THREAD]])</tt></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 <tt>START</tt> is given, the backtrace starts at this offset, i.e. when <tt>START</tt> is 1, the next to last trace-entry is printed, and so on. If the optional argument <tt>THREAD</tt> 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"><tt>(print-call-chain [PORT [START [THREAD [HEADER]]]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Prints a backtrace of the procedure call history to <tt>PORT</tt>, which defaults to <tt>(current-output-port)</tt>. The output is prefixed by the <tt>HEADER</tt>, which defaults to <tt>&quot;\n\tCall history:\n&quot;</tt>.</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"><tt>(print-error-message EXN [PORT [HEADER]])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Prints an appropriate error message to <tt>PORT</tt> (which defaults to the value of <tt>(current-output-port)</tt> for the object <tt>EXN</tt>. <tt>EXN</tt> may be a condition, a string or any other object. The output is prefixed by the <tt>HEADER</tt>, which defaults to <tt>&quot;Error:&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"><tt>(procedure-information PROC)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns an s-expression with debug information for the procedure <tt>PROC</tt>, or <tt>#f</tt>, if <tt>PROC</tt> has no associated debug information.</p></dd> </dl> <h4 id="sec:quit"><a href="#sec:quit">quit</a></h4><dl class="defsig"><dt class="defsig" id="def:quit"><span class="sig"><tt>(quit [RESULT])</tt></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: <tt>repl</tt>.</p></dd> </dl> <h4 id="sec:reset"><a href="#sec:reset">reset</a></h4><dl class="defsig"><dt class="defsig" id="def:reset"><span class="sig"><tt>(reset)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Reset program (Invokes <tt>reset-handler</tt>).</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"><tt>(warning STRING EXP ...)</tt></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:Garbage_collection"><a href="#sec:Garbage_collection">Garbage collection</a></h3><h4 id="sec:gc"><a href="#sec:gc">gc</a></h4><dl class="defsig"><dt class="defsig" id="def:gc"><span class="sig"><tt>(gc [FLAG])</tt></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> <h4 id="sec:memory-statistics"><a href="#sec:memory-statistics">memory-statistics</a></h4><dl class="defsig"><dt class="defsig" id="def:memory-statistics"><span class="sig"><tt>(memory-statistics)</tt></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> <h4 id="sec:set-finalizer.21"><a href="#sec:set-finalizer.21">set-finalizer!</a></h4><dl class="defsig"><dt class="defsig" id="def:set-finalizer.21"><span class="sig"><tt>(set-finalizer! X PROC)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Registers a procedure of one argument <tt>PROC</tt>, that will be called as soon as the non-immediate data object <tt>X</tt> 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 <tt>X</tt>.</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> <h4 id="sec:set-gc-report.21"><a href="#sec:set-gc-report.21">set-gc-report!</a></h4><dl class="defsig"><dt class="defsig" id="def:set-gc-report.21"><span class="sig"><tt>(set-gc-report! FLAG)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Print statistics after every GC, depending on <tt>FLAG</tt>. 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> <h3 id="sec:Other_predicates_and_comparison_operations"><a href="#sec:Other_predicates_and_comparison_operations">Other predicates and comparison operations</a></h3><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"><tt>(promise? X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>X</tt> is a promise returned by <tt>delay</tt>, or <tt>#f</tt> otherwise.</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"><tt>(equal=? X y)</tt></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:String_utilities"><a href="#sec:String_utilities">String utilities</a></h3><h4 id="sec:reverse-list-.3estring"><a href="#sec:reverse-list-.3estring">reverse-list-&gt;string</a></h4><dl class="defsig"><dt class="defsig" id="def:reverse-list-.3estring"><span class="sig"><tt>(reverse-list-&gt;string LIST)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a string with the characters in <tt>LIST</tt> in reverse order. This is equivalent to <tt>(list-&gt;string (reverse LIST))</tt>, but much more efficient.</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"><tt>(symbol-append SYMBOL1 ...)</tt></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"><tt>(gensym [STRING-OR-SYMBOL])</tt></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"><tt>(string-&gt;uninterned-symbol STRING)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a newly created, unique symbol with the name <tt>STRING</tt>.</p></dd> </dl> <h4 id="sec:Property_lists"><a href="#sec:Property_lists">Property lists</a></h4><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><h5 id="sec:get"><a href="#sec:get">get</a></h5><dl class="defsig"><dt class="defsig" id="def:get"><span class="sig"><tt>(get SYMBOL PROPERTY [DEFAULT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the value stored under the key <tt>PROPERTY</tt> in the property list of <tt>SYMBOL</tt>. If no such property is stored, returns <tt>DEFAULT</tt>. The <tt>DEFAULT</tt> is optional and defaults to <tt>#f</tt>.</p></dd> </dl> <h5 id="sec:put.21"><a href="#sec:put.21">put!</a></h5><dl class="defsig"><dt class="defsig" id="def:put.21"><span class="sig"><tt>(put! SYMBOL PROPERTY VALUE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>setter: (set! (get SYMBOL PROPERTY) VALUE)</p><p>Stores <tt>VALUE</tt> under the key <tt>PROPERTY</tt> in the property list of <tt>SYMBOL</tt> replacing any previously stored value.</p></dd> </dl> <h5 id="sec:remprop.21"><a href="#sec:remprop.21">remprop!</a></h5><dl class="defsig"><dt class="defsig" id="def:remprop.21"><span class="sig"><tt>(remprop! SYMBOL PROPERTY)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Deletes the first property matching the key <tt>PROPERTY</tt> in the property list of <tt>SYMBOL</tt>. Returns <tt>#t</tt> when a deletion performed, and <tt>#f</tt> otherwise.</p></dd> </dl> <h5 id="sec:symbol-plist"><a href="#sec:symbol-plist">symbol-plist</a></h5><dl class="defsig"><dt class="defsig" id="def:symbol-plist"><span class="sig"><tt>(symbol-plist SYMBOL)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>setter: (set! (symbol-plist SYMBOL) LST)</p><p>Returns the property list of <tt>SYMBOL</tt> or sets it.</p></dd> </dl> <h5 id="sec:get-properties"><a href="#sec:get-properties">get-properties</a></h5><dl class="defsig"><dt class="defsig" id="def:get-properties"><span class="sig"><tt>(get-properties SYMBOL PROPERTIES)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Searches the property list of <tt>SYMBOL</tt> for the first property with a key in the list <tt>PROPERTIES</tt>. 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><tt>PROPERTIES</tt> may also be an atom, in which case it is treated as a list of one element.</p></dd> </dl> <h3 id="sec:Standard_Input.2fOutput"><a href="#sec:Standard_Input.2fOutput">Standard Input/Output</a></h3><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"><tt>(port? X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>X</tt> is a port object or <tt>#f</tt> otherwise.</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: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"><tt>(char-name SYMBOL-OR-CHAR [CHAR])</tt></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 <tt>SYMBOL-OR-CHAR</tt> 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 <tt>SYMBOL-OR-CHAR</tt> 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 <tt>CHAR</tt> is provided, then <tt>SYMBOL-OR-CHAR</tt> 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:Blobs"><a href="#sec:Blobs">Blobs</a></h3><p>&quot;blobs&quot; are collections of unstructured bytes. You can't do much with them, but allow conversion to and from SRFI-4 number vectors.</p><h4 id="sec:make-blob"><a href="#sec:make-blob">make-blob</a></h4><dl class="defsig"><dt class="defsig" id="def:make-blob"><span class="sig"><tt>(make-blob SIZE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a blob object of <tt>SIZE</tt> bytes, aligned on an 8-byte boundary, uninitialized.</p></dd> </dl> <h4 id="sec:blob.3f"><a href="#sec:blob.3f">blob?</a></h4><dl class="defsig"><dt class="defsig" id="def:blob.3f"><span class="sig"><tt>(blob? X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>X</tt> is a blob object, or <tt>#f</tt> otherwise.</p></dd> </dl> <h4 id="sec:blob-size"><a href="#sec:blob-size">blob-size</a></h4><dl class="defsig"><dt class="defsig" id="def:blob-size"><span class="sig"><tt>(blob-size BLOB)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the number of bytes in <tt>BLOB</tt>.</p></dd> </dl> <h4 id="sec:blob-.3estring"><a href="#sec:blob-.3estring">blob-&gt;string</a></h4><dl class="defsig"><dt class="defsig" id="def:blob-.3estring"><span class="sig"><tt>(blob-&gt;string BLOB)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a string with the contents of <tt>BLOB</tt>.</p></dd> </dl> <h4 id="sec:string-.3eblob"><a href="#sec:string-.3eblob">string-&gt;blob</a></h4><dl class="defsig"><dt class="defsig" id="def:string-.3eblob"><span class="sig"><tt>(string-&gt;blob STRING)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a blob with the contents of <tt>STRING</tt>.</p></dd> </dl> <h4 id="sec:blob.3d.3f"><a href="#sec:blob.3d.3f">blob=?</a></h4><dl class="defsig"><dt class="defsig" id="def:blob.3d.3f"><span class="sig"><tt>(blob=? BLOB1 BLOB2)</tt></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> <h3 id="sec:Lists"><a href="#sec:Lists">Lists</a></h3><h4 id="sec:foldl"><a href="#sec:foldl">foldl</a></h4><dl class="defsig"><dt class="defsig" id="def:foldl"><span class="sig"><tt>(foldl PROCEDURE INIT LIST)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Applies <tt>PROCEDURE</tt> to the elements from <tt>LIST</tt>, 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 <tt>PROCEDURE</tt> 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"><tt>(foldr PROCEDURE INIT LIST)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Applies <tt>PROCEDURE</tt> to the elements from <tt>LIST</tt>, 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> <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"><tt>(vector-copy! VECTOR1 VECTOR2 [COUNT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Copies contents of <tt>VECTOR1</tt> into <tt>VECTOR2</tt>. If the argument <tt>COUNT</tt> 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></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"><tt>(vector-resize VECTOR N [INIT])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Creates and returns a new vector with the contents of <tt>VECTOR</tt> and length <tt>N</tt>. If <tt>N</tt> is greater than the original length of <tt>VECTOR</tt>, then all additional items are initialized to <tt>INIT</tt>. If <tt>INIT</tt> 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"><tt>(subvector VECTOR FROM [TO])</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new vector with elements taken from <tt>VECTOR</tt> in the given range. <tt>TO</tt> 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: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"><tt>(void ARGUMENT ...)</tt></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"><tt>(call/cc PROCEDURE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>An alias for <tt>call-with-current-continuation</tt>.</p></dd> </dl> <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"><tt>(continuation-capture PROCEDURE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a continuation object representing the current continuation and tail-calls <tt>PROCEDURE</tt> with this continuation as the single argument.</p><p>More information about this continuation API can be found in the paper <a href="http://repository.readscheme.org/ftp/papers/sw2001/feeley.pdf">http://repository.readscheme.org/ftp/papers/sw2001/feeley.pdf</a> <i>A Better API for first class Continuations</i> by Marc Feeley.</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"><tt>(continuation? X)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <tt>X</tt> 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"><tt>(continuation-graft CONT THUNK)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Calls the procedure <tt>THUNK</tt> with no arguments and the implicit continuation <tt>CONT</tt>.</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"><tt>(continuation-return CONT VALUE ...)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the value(s) to the continuation <tt>CONT</tt>. <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> <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"><tt>(setter PROCEDURE)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the setter-procedure of <tt>PROCEDURE</tt>, or signals an error if <tt>PROCEDURE</tt> 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"><tt>(getter-with-setter GETTER SETTER)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a copy of the procedure <tt>GETTER</tt> with the associated setter procedure <tt>SETTER</tt>. Contrary to the SRFI specification, the setter of the returned procedure may be changed.</p></dd> </dl> <h3 id="sec:Reader_extensions"><a href="#sec:Reader_extensions">Reader extensions</a></h3><h4 id="sec:define-reader-ctor"><a href="#sec:define-reader-ctor">define-reader-ctor</a></h4><dl class="defsig"><dt class="defsig" id="def:define-reader-ctor"><span class="sig"><tt>(define-reader-ctor SYMBOL PROC)</tt></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> <h4 id="sec:set-read-syntax.21"><a href="#sec:set-read-syntax.21">set-read-syntax!</a></h4><dl class="defsig"><dt class="defsig" id="def:set-read-syntax.21"><span class="sig"><tt>(set-read-syntax! CHAR-OR-SYMBOL PROC)</tt></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 <tt>PROC</tt> 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 <tt>CHAR-OR-SYMBOL</tt> 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> <h4 id="sec:set-sharp-read-syntax.21"><a href="#sec:set-sharp-read-syntax.21">set-sharp-read-syntax!</a></h4><dl class="defsig"><dt class="defsig" id="def:set-sharp-read-syntax.21"><span class="sig"><tt>(set-sharp-read-syntax! CHAR-OR-SYMBOL PROC)</tt></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><tt>PROC</tt> may be <tt>#f</tt> to disable previously defined &quot;sharp&quot; read syntax.</p></dd> </dl> <h4 id="sec:set-parameterized-read-syntax.21"><a href="#sec:set-parameterized-read-syntax.21">set-parameterized-read-syntax!</a></h4><dl class="defsig"><dt class="defsig" id="def:set-parameterized-read-syntax.21"><span class="sig"><tt>(set-parameterized-read-syntax! CHAR-OR-SYMBOL PROC)</tt></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 <tt>PROC</tt> 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><tt>PROC</tt> may be <tt>#f</tt> to disable previously defined parameterized read syntax.</p></dd> </dl> <h4 id="sec:copy-read-table"><a href="#sec:copy-read-table">copy-read-table</a></h4><dl class="defsig"><dt class="defsig" id="def:copy-read-table"><span class="sig"><tt>(copy-read-table READ-TABLE)</tt></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>.</p></dd> </dl> <hr /><p>Previous: <a href="Exceptions.html">Exceptions</a> Next: <a href="Unit%20eval.html">Unit eval</a></p></div></div></body>���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Deviations from the standard.html����������������������������������������0000644�0001750�0001750�00000016042�13052306550�023472� 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"><a href="#sec:Confirmed_deviations">Confirmed deviations</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:numerator.2c_denominator_and_rationalize"><a href="#sec:numerator.2c_denominator_and_rationalize"><tt>numerator</tt>, <tt>denominator</tt> and <tt>rationalize</tt></a></h3><p>The <tt>numerator</tt> and <tt>denominator</tt> procedures cannot be applied to inexact numbers, and the procedure <tt>rationalize</tt> is not implemented at all.</p><h3 id="sec:Numeric_string-conversion_considerations"><a href="#sec:Numeric_string-conversion_considerations">Numeric string-conversion considerations</a></h3><p>The runtime system uses the numerical string-conversion routines of the underlying C library and so does only understand standard (C-library) syntax for floating-point constants. Consequently, the procedures <tt>string-&gt;number</tt>, <tt>read</tt>, <tt>write</tt>, and <tt>display</tt> do not obey read/write invariance to 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:No_built-in_support_for_bignums"><a href="#sec:No_built-in_support_for_bignums">No built-in support for bignums</a></h3><p>There is no built-in support for exact rationals, complex numbers or extended-precision integers (bignums). The routines <tt>complex?</tt>, <tt>real?</tt> and <tt>rational?</tt> are identical to the standard procedure <tt>number?</tt>. The procedures <tt>make-rectangular</tt> and <tt>make-polar</tt> are not implemented. Fixnums are limited to 2^<sup>30</sup> (or 2^<sup>62</sup> on 64-bit hardware). Support for the full numeric tower is available as a separate package (see the <tt>numbers</tt> package).</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="The%20R5RS%20standard.html">The R5RS standard</a></p><p>Next: <a href="Extensions%20to%20the%20standard.html">Extensions to the standard</a></p></div></div></body>����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Modules.html�������������������������������������������������������������0000644�0001750�0001750�00000057654�13052306551�017546� 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-for-syntax">import-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:Using_modules_as_evaluation_environments">Using modules as evaluation environments</a> <ul> <li><a href="#sec:module-environment">module-environment</a></li></ul></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></ul></div><h3 id="sec:Modules"><a href="#sec:Modules">Modules</a></h3><p>To allow some control over visible bindings and to organize code at the global level, a simple 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 macro-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 accessed via the <tt>uses</tt> declaration, just like normal toplevel expressions. Exported macro-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 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). 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</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>Module-generating code is only created, when needed</li> <li>Supports batch-compilation of separate compilation units</li> <li>No separate &quot;identifier&quot; type is used, all identifiers appearing in code and processed in expansions are symbols</li> <li>The module system is fully optional</li> <li>Parameterized modules are supported</li> </ul> <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 NAME1 = NAME2 [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> <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>(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 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>The syntax <tt>(module NAME1 = NAME2)</tt> defines an alias <tt>NAME1</tt> for the module <tt>NAME2</tt>, so <tt>NAME1</tt> can be used in place of <tt>NAME2</tt> in all forms that accept module names. Module aliases defined inside a module are local to that module. If followed by a module body, then this is a special form of <i>functor instantiation</i>.</p><p>Nested modules, modules not at toplevel (i.e. local modules) or mutually recursive modules are not supported. As an exception module alias definitions are allowed inside a module definition.</p><p>When compiled, the module information, including exported macros is stored in the generated binary and available when loading it into interpreted or compiled code. Note that this is different to normal macros (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 does not load or link it - this is a separate operation from importing its bindings.</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 the form <tt>(srfi N)</tt>. An <tt>IMPORT</tt> defines a set of bindings that are to be made visible in the current scope.</p><p>Note that the imported bindings are only visible in the next toplevel expression (regardless of whether the import appears inside or outside a module):</p><pre> (begin (import m1) ...) ; imports not visible here ... ; imports visible here</pre></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-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: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 chicken</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. Import libraries may also be explicitly loaded into the compiler by using the <tt>-extend</tt> compiler option. Interpreted code can simply load the import library to make the module-definition available. Macro-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 macros. Note that these definitions will ruthlessly pollute the toplevel namespace and so they should be used sparingly.</p><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"><tt>(module-environment MODULENAME)</tt></span> <span class="type">procedure</span></dt> <dd class="defsig"><p>Locates the module with the name <tt>MODULENAME</tt> 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> <h3 id="sec:Predefined_modules"><a href="#sec:Predefined_modules">Predefined modules</a></h3><p>Import libraries for the following modules are initially available:</p><pre>[module] scheme [module] r4rs [module] r5rs</pre><p>Exports the definitions given in R4RS or R5RS. <tt>r5rs</tt> is a module alias for <tt>scheme</tt>.</p><pre>[module] chicken</pre><p>Everything from the <tt>library</tt>, <tt>eval</tt> and <tt>expand</tt> library units.</p><pre>[module] extras [module] data-structures [module] ports [module] lolevel [module] posix [module] regex [module] srfi-1 [module] srfi-4 [module] srfi-13 [module] srfi-14 [module] srfi-18 [module] srfi-69 [module] tcp [module] utils</pre><p>Modules exporting the bindings from the respective library units.</p><pre>[module] foreign</pre><p>Exports all macros and procedures that are used to access foreign C/C++ code.</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 are depending on external libraries inside your module, follow the general rule of <tt>(import chicken scheme) (use anything-else)</tt> like so:</p><pre>(module test (hello greet) (import chicken scheme) (use posix) (use srfi-4) ...)</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">use srfi-1</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> <hr /><p>Previous: <a href="Macros.html">Macros</a></p><p>Next: <a href="Types.html">Types</a></p></div></div></body>������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Parameters.html����������������������������������������������������������0000644�0001750�0001750�00000027040�13052306551�020223� 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; Parameters</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:Parameters">Parameters</a> <ul> <li><a href="#sec:make-parameter">make-parameter</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:dynamic-load-libraries">dynamic-load-libraries</a></li> <li><a href="#sec:command-line-arguments">command-line-arguments</a></li> <li><a href="#sec:current-read-table">current-read-table</a></li> <li><a href="#sec:exit-handler">exit-handler</a></li> <li><a href="#sec:eval-handler">eval-handler</a></li> <li><a href="#sec:force-finalizers">force-finalizers</a></li> <li><a href="#sec:implicit-exit-handler">implicit-exit-handler</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> <li><a href="#sec:load-verbose">load-verbose</a></li> <li><a href="#sec:program-name">program-name</a></li> <li><a href="#sec:repl-prompt">repl-prompt</a></li> <li><a href="#sec:reset-handler">reset-handler</a></li> <li><a href="#sec:recursive-hash-max-depth">recursive-hash-max-depth</a></li> <li><a href="#sec:recursive-hash-max-length">recursive-hash-max-length</a></li></ul></li></ul></div><h2 id="sec:Parameters"><a href="#sec:Parameters">Parameters</a></h2><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>.</p><h3 id="sec:make-parameter"><a href="#sec:make-parameter">make-parameter</a></h3><dl class="defsig"><dt class="defsig" id="def:make-parameter"><span class="sig"><tt>(make-parameter VALUE [GUARD])</tt></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 <tt>VALUE</tt>. 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). <tt>GUARD</tt> 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></dd> </dl> <h2 id="sec:Built-in_parameters"><a href="#sec:Built-in_parameters">Built-in parameters</a></h2><p>Certain behavior of the interpreter and compiled programs can be customized via the following built-in parameters:</p><h3 id="sec:case-sensitive"><a href="#sec:case-sensitive">case-sensitive</a></h3><dl class="defsig"><dt class="defsig" id="def:case-sensitive"><span class="sig"><tt>(case-sensitive)</tt></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> <h3 id="sec:dynamic-load-libraries"><a href="#sec:dynamic-load-libraries">dynamic-load-libraries</a></h3><dl class="defsig"><dt class="defsig" id="def:dynamic-load-libraries"><span class="sig"><tt>(dynamic-load-libraries)</tt></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> <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"><tt>(command-line-arguments)</tt></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> <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"><tt>(current-read-table)</tt></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> <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"><tt>(exit-handler)</tt></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></dd> </dl> <h3 id="sec:eval-handler"><a href="#sec:eval-handler">eval-handler</a></h3><dl class="defsig"><dt class="defsig" id="def:eval-handler"><span class="sig"><tt>(eval-handler)</tt></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:force-finalizers"><a href="#sec:force-finalizers">force-finalizers</a></h3><dl class="defsig"><dt class="defsig" id="def:force-finalizers"><span class="sig"><tt>(force-finalizers)</tt></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: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"><tt>(implicit-exit-handler)</tt></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> <h3 id="sec:keyword-style"><a href="#sec:keyword-style">keyword-style</a></h3><dl class="defsig"><dt class="defsig" id="def:keyword-style"><span class="sig"><tt>(keyword-style)</tt></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> <h3 id="sec:parenthesis-synonyms"><a href="#sec:parenthesis-synonyms">parenthesis-synonyms</a></h3><dl class="defsig"><dt class="defsig" id="def:parenthesis-synonyms"><span class="sig"><tt>(parenthesis-synonyms)</tt></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> <h3 id="sec:symbol-escape"><a href="#sec:symbol-escape">symbol-escape</a></h3><dl class="defsig"><dt class="defsig" id="def:symbol-escape"><span class="sig"><tt>(symbol-escape)</tt></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> <h3 id="sec:load-verbose"><a href="#sec:load-verbose">load-verbose</a></h3><dl class="defsig"><dt class="defsig" id="def:load-verbose"><span class="sig"><tt>(load-verbose)</tt></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> <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"><tt>(program-name)</tt></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:repl-prompt"><a href="#sec:repl-prompt">repl-prompt</a></h3><dl class="defsig"><dt class="defsig" id="def:repl-prompt"><span class="sig"><tt>(repl-prompt)</tt></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:reset-handler"><a href="#sec:reset-handler">reset-handler</a></h3><dl class="defsig"><dt class="defsig" id="def:reset-handler"><span class="sig"><tt>(reset-handler)</tt></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> <h3 id="sec:recursive-hash-max-depth"><a href="#sec:recursive-hash-max-depth">recursive-hash-max-depth</a></h3><dl class="defsig"><dt class="defsig" id="def:recursive-hash-max-depth"><span class="sig"><tt>(recursive-hash-max-depth)</tt></span> <span class="type">parameter</span></dt> <dd class="defsig"><p>The maximum structure depth to follow when computing a hash value. The default is <tt>4</tt>.</p></dd> </dl> <h3 id="sec:recursive-hash-max-length"><a href="#sec:recursive-hash-max-length">recursive-hash-max-length</a></h3><dl class="defsig"><dt class="defsig" id="def:recursive-hash-max-length"><span class="sig"><tt>(recursive-hash-max-length)</tt></span> <span class="type">parameter</span></dt> <dd class="defsig"><p>The maximum vector length to follow when computing a hash value. The default is <tt>4</tt>.</p></dd> </dl> <hr /><p>Previous: <a href="Declarations.html">Declarations</a> Next: <a href="Exceptions.html">Exceptions</a></p></div></div></body>������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/manual-html/Basic mode of operation.html���������������������������������������������0000644�0001750�0001750�00000006306�13052306547�022423� 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; Basic mode of operation</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"><h2 id="sec:Basic_mode_of_operation"><a href="#sec:Basic_mode_of_operation">Basic mode of operation</a></h2><p>The compiler translates Scheme source code into fairly portable C that can be compiled and linked with most available C compilers. CHICKEN supports the generation of executables and libraries, linked either statically or dynamically. Compiled Scheme code can be loaded dynamically, or can be embedded in applications written in other languages. Separate compilation of modules is fully supported.</p><p>The most portable way of creating separately linkable entities is supported by so-called <i>unit</i>s. A unit is a single compiled object module that contains a number of toplevel expressions that are executed either when the unit is the <i>main</i> unit or if the unit is <i>used</i>. To use a unit, the unit has to be <i>declare</i>d as used, like this:</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>The toplevel expressions of used units are executed in the order in which the units appear in the <tt>uses</tt> declaration. Units may be used multiple times and <tt>uses</tt> declarations may be circular (the unit is initialized at most once). To compile a file as a unit, add a <tt>unit</tt> declaration:</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>When compiling different object modules, make sure to have one main unit. This unit is called initially and initializes all used units before executing its toplevel expressions. The main-unit has no <tt>unit</tt> declaration.</p><p>Another method of using definitions in separate source files is to <i>include</i> them. This simply inserts the code in a given file into the current file:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">include <span class="string">&quot;FILENAME&quot;</span></span>)</span></pre><p>Macro definitions are only available when processed by <tt>include</tt> or <tt>import</tt>. Macro definitions in separate units are not available, since they are defined at compile time, i.e the time when that other unit was compiled (macros can optionally be available at runtime, see <tt>define-syntax</tt> in <a href="Non-standard%20macros%20and%20special%20forms.html">Substitution forms and macros</a>).</p><p>On platforms that support dynamic loading of compiled code (Windows, most ELF based systems like Linux or BSD, MacOS X, and others) code can be compiled into a shared object <tt>.dll</tt>, <tt>.so</tt>, <tt>.dylib</tt>) and loaded dynamically into a running application.</p><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-4.12.0/manual-html/Bibliography.html��������������������������������������������������������0000644�0001750�0001750�00000001531�13052306551�020530� 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><hr /><p>Previous: <a href="Acknowledgements.html">Acknowledgements</a></p></div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/buildtag.h���������������������������������������������������������������������������0000644�0001750�0001750�00000000111�13052306321�014740� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������#define C_BUILD_TAG "compiled 2017-02-19 on yves.more-magic.net (Linux)" �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/chicken.c����������������������������������������������������������������������������0000644�0001750�0001750�00000157644�13052306430�014575� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:18 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: chicken.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -no-lambda-info -extend private-namespace.scm -no-trace -output-file chicken.c used units: library eval chicken_2dsyntax chicken_2dsyntax chicken_2dffi_2dsyntax srfi_2d1 srfi_2d4 utils files extras data_2dstructures srfi_2d69 lolevel support compiler optimizer lfa2 compiler_2dsyntax scrutinizer driver platform backend */ #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_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_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_2d1_toplevel) C_externimport void C_ccall C_srfi_2d1_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_utils_toplevel) C_externimport void C_ccall C_utils_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_files_toplevel) C_externimport void C_ccall C_files_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_srfi_2d69_toplevel) C_externimport void C_ccall C_srfi_2d69_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_driver_toplevel) C_externimport void C_ccall C_driver_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_platform_toplevel) C_externimport void C_ccall C_platform_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_backend_toplevel) C_externimport void C_ccall C_backend_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[44]; static double C_possibly_force_alignment; C_noret_decl(f_644) static void C_ccall f_644(C_word c,C_word *av) C_noret; C_noret_decl(f_397) static void C_fcall f_397(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_370) static void C_ccall f_370(C_word c,C_word *av) C_noret; C_noret_decl(f_373) static void C_ccall f_373(C_word c,C_word *av) C_noret; C_noret_decl(f_340) static void C_ccall f_340(C_word c,C_word *av) C_noret; C_noret_decl(f_586) static void C_ccall f_586(C_word c,C_word *av) C_noret; C_noret_decl(f_385) static void C_ccall f_385(C_word c,C_word *av) C_noret; C_noret_decl(f_389) static void C_ccall f_389(C_word c,C_word *av) C_noret; C_noret_decl(f_361) static void C_ccall f_361(C_word c,C_word *av) C_noret; C_noret_decl(f_358) static void C_ccall f_358(C_word c,C_word *av) C_noret; C_noret_decl(f_355) static void C_ccall f_355(C_word c,C_word *av) C_noret; C_noret_decl(f_710) static void C_ccall f_710(C_word c,C_word *av) C_noret; C_noret_decl(f_352) static void C_ccall f_352(C_word c,C_word *av) C_noret; C_noret_decl(f_376) static void C_ccall f_376(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_379) static void C_ccall f_379(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_576) static void C_ccall f_576(C_word c,C_word *av) C_noret; C_noret_decl(f_737) static void C_ccall f_737(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_349) static void C_ccall f_349(C_word c,C_word *av) C_noret; C_noret_decl(f_346) static void C_ccall f_346(C_word c,C_word *av) C_noret; C_noret_decl(f_391) static void C_ccall f_391(C_word c,C_word *av) C_noret; C_noret_decl(f_343) static void C_ccall f_343(C_word c,C_word *av) C_noret; C_noret_decl(f_449) static void C_ccall f_449(C_word c,C_word *av) C_noret; C_noret_decl(f_364) static void C_ccall f_364(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_566) static void C_ccall f_566(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_745) static void C_ccall f_745(C_word c,C_word *av) C_noret; C_noret_decl(f_749) static void C_ccall f_749(C_word c,C_word *av) C_noret; C_noret_decl(f_521) static void C_fcall f_521(C_word t0,C_word t1,C_word t2) 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_411) static void C_ccall f_411(C_word c,C_word *av) C_noret; C_noret_decl(f_556) static void C_ccall f_556(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(f_337) static void C_ccall f_337(C_word c,C_word *av) C_noret; C_noret_decl(f_331) static void C_ccall f_331(C_word c,C_word *av) C_noret; C_noret_decl(f_334) static void C_ccall f_334(C_word c,C_word *av) C_noret; C_noret_decl(f_431) static void C_fcall f_431(C_word t0,C_word t1) C_noret; C_noret_decl(f_606) static void C_ccall f_606(C_word c,C_word *av) C_noret; C_noret_decl(f_513) static void C_ccall f_513(C_word c,C_word *av) C_noret; C_noret_decl(f_516) static void C_ccall f_516(C_word c,C_word *av) C_noret; C_noret_decl(f_495) static void C_ccall f_495(C_word c,C_word *av) C_noret; C_noret_decl(f_497) static void C_ccall f_497(C_word c,C_word *av) C_noret; C_noret_decl(f_325) static void C_ccall f_325(C_word c,C_word *av) C_noret; C_noret_decl(f_328) static void C_ccall f_328(C_word c,C_word *av) C_noret; C_noret_decl(f_322) static void C_ccall f_322(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_509) static void C_ccall f_509(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_489) static void C_ccall f_489(C_word c,C_word *av) C_noret; C_noret_decl(f_382) static void C_ccall f_382(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(trf_397) static void C_ccall trf_397(C_word c,C_word *av) C_noret; static void C_ccall trf_397(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_397(t0,t1,t2,t3,t4);} C_noret_decl(trf_521) static void C_ccall trf_521(C_word c,C_word *av) C_noret; static void C_ccall trf_521(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_521(t0,t1,t2);} C_noret_decl(trf_431) static void C_ccall trf_431(C_word c,C_word *av) C_noret; static void C_ccall trf_431(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_431(t0,t1);} /* k642 in loop in a508 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in ... */ static void C_ccall f_644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_644,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_u_i_cdr(((C_word*)t0)[3]); /* chicken.scm:142: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_521(t4,((C_word*)t0)[5],t3);} /* loop in process-command-line in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in ... */ static void C_fcall f_397(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_397,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_411,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* chicken.scm:59: reverse */ t6=*((C_word*)lf[2]+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_431,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_431(t13,C_u_i_char_equalp(C_make_character(58),t12));} else{ t12=t11; f_431(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:68: 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:69: loop */ t15=t1; t16=t12; t17=t3; t18=t6; t1=t15; t2=t16; t3=t17; t4=t18; goto loop;}}}} /* k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in k320 */ static void C_ccall f_370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_370,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_373,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_compiler_2dsyntax_toplevel(2,av2);}} /* k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in k320 */ static void C_ccall f_373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_373,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_376,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_scrutinizer_toplevel(2,av2);}} /* k338 in k335 in k332 in k329 in k326 in k323 in k320 */ static void C_ccall f_340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_340,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_343,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_utils_toplevel(2,av2);}} /* k584 in loop in a508 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in ... */ static void C_ccall f_586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_586,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_u_i_cdr(((C_word*)t0)[3]); /* chicken.scm:134: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_521(t4,((C_word*)t0)[5],t3);} /* k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in k320 in ... */ static void C_ccall f_385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_385,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_389,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_727,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_737,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_745,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_749,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken.scm:46: get-environment-variable */ t7=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[43]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in ... */ static void C_ccall f_389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_389,2,av);} a=C_alloc(9); t2=C_mutate2((C_word*)lf[0]+1 /* (set! ##compiler#compiler-arguments ...) */,t1); t3=C_mutate2((C_word*)lf[1]+1 /* (set! ##compiler#process-command-line ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_391,tmp=(C_word)a,a+=2,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_489,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_497,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_509,tmp=(C_word)a,a+=2,tmp); /* chicken.scm:74: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t4; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in k320 */ static void C_ccall f_361(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_361,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_364,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_compiler_toplevel(2,av2);}} /* k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in k320 */ static void C_ccall f_358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_358,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_361,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_support_toplevel(2,av2);}} /* k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in k320 */ static void C_ccall f_355(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_355,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_358,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_lolevel_toplevel(2,av2);}} /* k708 in loop in a508 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in ... */ static void C_ccall f_710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_710,2,av);} /* chicken.scm:152: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_521(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in k320 */ static void C_ccall f_352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_352,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_355,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d69_toplevel(2,av2);}} /* k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in k320 */ static void C_ccall f_376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_376,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_379,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_driver_toplevel(2,av2);}} /* k451 in k429 in loop in process-command-line in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_453,2,av);} /* chicken.scm:66: string->symbol */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in k320 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_379,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_382,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_platform_toplevel(2,av2);}} /* k733 in k725 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in ... */ 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(0,c,3)))){ C_save_and_reclaim((void *)f_735,2,av);} t2=C_i_cdr(t1); /* chicken.scm:43: append */ t3=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k574 in loop in a508 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in ... */ static void C_ccall f_576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_576,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_u_i_cdr(((C_word*)t0)[3]); /* chicken.scm:134: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_521(t4,((C_word*)t0)[5],t3);} /* a736 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in ... */ static void C_ccall f_737(C_word c,C_word *av){ C_word 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_737,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_string_equal_p(t2,lf[38]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k725 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_727,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_735,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken.scm:47: argv */ t4=*((C_word*)lf[37]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in k320 */ static void C_ccall f_349(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_349,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_352,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in k320 */ static void C_ccall f_346(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_346,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_349,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* ##compiler#process-command-line in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in ... */ static void C_ccall f_391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_391,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_397,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_397(t6,t1,t2,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} /* k341 in k338 in k335 in k332 in k329 in k326 in k323 in k320 */ static void C_ccall f_343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_343,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_346,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_files_toplevel(2,av2);}} /* k447 in k429 in loop in process-command-line in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in ... */ static void C_ccall f_449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_449,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* chicken.scm:66: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_397(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2,((C_word*)t0)[6]);} /* k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in k320 */ static void C_ccall f_364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_364,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_367,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_optimizer_toplevel(2,av2);}} /* k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in k320 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_367,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_370,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_lfa2_toplevel(2,av2);}} /* k564 in loop in a508 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in ... */ static void C_ccall f_566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_566,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_u_i_cdr(((C_word*)t0)[3]); /* chicken.scm:134: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_521(t4,((C_word*)t0)[5],t3);} /* k715 in loop in a508 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in ... */ 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_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_717,2,av);} /* chicken.scm:149: warning */ t2=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[33]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k743 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in ... */ static void C_ccall f_745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_745,2,av);} /* chicken.scm:44: remove */ t2=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k747 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in ... */ static void C_ccall f_749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_749,2,av);} if(C_truep(t1)){ t2=t1; /* chicken.scm:46: string-split */ t3=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:46: string-split */ t2=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* loop in a508 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in ... */ static void C_fcall f_521(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(10,0,15)))){ C_save_and_reclaim_args((void *)trf_521,3,t0,t1,t2);} a=C_alloc(10); 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[9],t3); if(C_truep(t6)){ t7=C_i_car(t5); t8=C_a_i_string_to_number(&a,2,t7,C_fix(10)); switch(t8){ case C_fix(0): t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_556,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); /* chicken.scm:84: cons* */ t10=*((C_word*)lf[10]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t9; av2[2]=lf[11]; av2[3]=lf[12]; av2[4]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);} case C_fix(1): t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_566,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); /* chicken.scm:87: cons* */ t10=*((C_word*)lf[10]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t9; av2[2]=lf[13]; av2[3]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);} case C_fix(2): t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_576,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); /* chicken.scm:92: cons* */ t10=*((C_word*)lf[10]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t9; av2[2]=lf[13]; av2[3]=lf[14]; av2[4]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);} case C_fix(3): t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_586,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); /* chicken.scm:99: cons* */ t10=*((C_word*)lf[10]+1);{ C_word av2[8]; av2[0]=t10; av2[1]=t9; av2[2]=lf[13]; av2[3]=lf[14]; av2[4]=lf[15]; av2[5]=lf[16]; av2[6]=lf[17]; av2[7]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t10+1)))(8,av2);} case C_fix(4): t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_596,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); /* chicken.scm:109: cons* */ t10=*((C_word*)lf[10]+1);{ C_word av2[9]; av2[0]=t10; av2[1]=t9; av2[2]=lf[13]; av2[3]=lf[14]; av2[4]=lf[15]; av2[5]=lf[17]; av2[6]=lf[16]; av2[7]=lf[18]; av2[8]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t10+1)))(9,av2);} default: if(C_truep(C_i_greater_or_equalp(t8,C_fix(5)))){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_606,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); /* chicken.scm:120: cons* */ t10=*((C_word*)lf[10]+1);{ C_word av2[16]; av2[0]=t10; av2[1]=t9; av2[2]=lf[19]; av2[3]=lf[20]; av2[4]=lf[18]; av2[5]=lf[21]; av2[6]=lf[13]; av2[7]=lf[22]; av2[8]=lf[17]; av2[9]=lf[13]; av2[10]=lf[22]; av2[11]=lf[14]; av2[12]=lf[15]; av2[13]=lf[23]; av2[14]=lf[24]; av2[15]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t10+1)))(16,av2);}} else{ t9=C_u_i_cdr(t5); /* chicken.scm:134: loop */ t19=t1; t20=t9; t1=t19; t2=t20; goto loop;}}} else{ t7=C_eqp(lf[25],t3); if(C_truep(t7)){ t8=C_i_car(t5); t9=C_a_i_string_to_number(&a,2,t8,C_fix(10)); switch(t9){ case C_fix(0): t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_644,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); /* chicken.scm:138: cons* */ t11=*((C_word*)lf[10]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t10; av2[2]=lf[22]; av2[3]=lf[20]; av2[4]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);} case C_fix(1): t10=C_a_i_cons(&a,2,lf[20],((C_word*)((C_word*)t0)[2])[1]); t11=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t10); t12=C_u_i_cdr(t5); /* chicken.scm:142: loop */ t19=t1; t20=t12; t1=t19; t2=t20; goto loop; case C_fix(2): t10=C_a_i_cons(&a,2,lf[26],((C_word*)((C_word*)t0)[2])[1]); t11=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t10); t12=C_u_i_cdr(t5); /* chicken.scm:142: loop */ t19=t1; t20=t12; t1=t19; t2=t20; goto loop; default: t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_668,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); /* chicken.scm:141: cons* */ t11=*((C_word*)lf[10]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t10; av2[2]=lf[26]; av2[3]=lf[27]; av2[4]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}} else{ if(C_truep(C_i_memq(t3,*((C_word*)lf[28]+1)))){ /* chicken.scm:143: loop */ t19=t1; t20=t5; t1=t19; t2=t20; goto loop;} else{ if(C_truep(C_i_memq(t3,*((C_word*)lf[29]+1)))){ if(C_truep(C_i_pairp(t5))){ t8=C_u_i_cdr(t5); /* chicken.scm:146: loop */ t19=t1; t20=t8; t1=t19; t2=t20; goto loop;} else{ /* chicken.scm:147: quit */ t8=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t1; av2[2]=lf[31]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} else{ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_710,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_717,a[2]=t8,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_stringp(t3))){ /* chicken.scm:149: warning */ t10=*((C_word*)lf[32]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t8; av2[2]=lf[33]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ /* chicken.scm:151: conc */ t10=*((C_word*)lf[34]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t9; av2[2]=lf[35]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}}}}}} /* k666 in loop in a508 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_668,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_u_i_cdr(((C_word*)t0)[3]); /* chicken.scm:142: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_521(t4,((C_word*)t0)[5],t3);} /* k409 in loop in process-command-line in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in ... */ static void C_ccall f_411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_411,2,av);} /* chicken.scm:59: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k554 in loop in a508 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in ... */ static void C_ccall f_556(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_556,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_u_i_cdr(((C_word*)t0)[3]); /* chicken.scm:134: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_521(t4,((C_word*)t0)[5],t3);} /* 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(266))){ C_save(t1); C_rereclaim2(266*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,44); lf[0]=C_h_intern(&lf[0],27,"\010compilercompiler-arguments"); lf[1]=C_h_intern(&lf[1],29,"\010compilerprocess-command-line"); lf[2]=C_h_intern(&lf[2],7,"reverse"); lf[3]=C_h_intern(&lf[3],14,"string->symbol"); lf[4]=C_h_intern(&lf[4],9,"substring"); lf[5]=C_h_intern(&lf[5],25,"\003sysimplicit-exit-handler"); lf[6]=C_h_intern(&lf[6],17,"user-options-pass"); lf[7]=C_h_intern(&lf[7],4,"exit"); lf[8]=C_h_intern(&lf[8],19,"compile-source-file"); lf[9]=C_h_intern(&lf[9],14,"optimize-level"); lf[10]=C_h_intern(&lf[10],5,"cons\052"); lf[11]=C_h_intern(&lf[11],18,"no-compiler-syntax"); lf[12]=C_h_intern(&lf[12],21,"no-usual-integrations"); lf[13]=C_h_intern(&lf[13],22,"optimize-leaf-routines"); lf[14]=C_h_intern(&lf[14],6,"inline"); lf[15]=C_h_intern(&lf[15],13,"inline-global"); lf[16]=C_h_intern(&lf[16],5,"local"); lf[17]=C_h_intern(&lf[17],10,"specialize"); lf[18]=C_h_intern(&lf[18],6,"unsafe"); lf[19]=C_h_intern(&lf[19],18,"disable-interrupts"); lf[20]=C_h_intern(&lf[20],8,"no-trace"); lf[21]=C_h_intern(&lf[21],5,"block"); lf[22]=C_h_intern(&lf[22],14,"no-lambda-info"); lf[23]=C_h_intern(&lf[23],10,"clustering"); lf[24]=C_h_intern(&lf[24],4,"lfa2"); lf[25]=C_h_intern(&lf[25],11,"debug-level"); lf[26]=C_h_intern(&lf[26],10,"scrutinize"); lf[27]=C_h_intern(&lf[27],10,"debug-info"); lf[28]=C_h_intern(&lf[28],31,"\010compilervalid-compiler-options"); lf[29]=C_h_intern(&lf[29],45,"\010compilervalid-compiler-options-with-argument"); lf[30]=C_h_intern(&lf[30],13,"\010compilerquit"); lf[31]=C_decode_literal(C_heaptop,"\376B\000\000 missing argument to `-~s\047 option"); lf[32]=C_h_intern(&lf[32],7,"warning"); lf[33]=C_decode_literal(C_heaptop,"\376B\000\000!invalid compiler option (ignored)"); lf[34]=C_h_intern(&lf[34],4,"conc"); lf[35]=C_decode_literal(C_heaptop,"\376B\000\000\001-"); lf[36]=C_h_intern(&lf[36],6,"append"); lf[37]=C_h_intern(&lf[37],4,"argv"); lf[38]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[39]=C_h_intern(&lf[39],6,"remove"); lf[40]=C_h_intern(&lf[40],12,"string-split"); lf[41]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[42]=C_h_intern(&lf[42],24,"get-environment-variable"); lf[43]=C_decode_literal(C_heaptop,"\376B\000\000\017CHICKEN_OPTIONS"); C_register_lf2(lf,44,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_322,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k335 in k332 in k329 in k326 in k323 in k320 */ static void C_ccall f_337(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_337,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_340,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d4_toplevel(2,av2);}} /* k329 in k326 in k323 in k320 */ static void C_ccall f_331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_331,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_334,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dffi_2dsyntax_toplevel(2,av2);}} /* k332 in k329 in k326 in k323 in k320 */ static void C_ccall f_334(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_334,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_337,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d1_toplevel(2,av2);}} /* k429 in loop in process-command-line in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in ... */ static void C_fcall f_431(C_word 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_431,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* chicken.scm:65: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_397(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_449,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_453,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* chicken.scm:66: substring */ t6=*((C_word*)lf[4]+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);}}} /* k604 in loop in a508 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in ... */ static void C_ccall f_606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_606,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_u_i_cdr(((C_word*)t0)[3]); /* chicken.scm:134: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_521(t4,((C_word*)t0)[5],t3);} /* k511 in a508 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in ... */ static void C_ccall f_513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_513,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_516,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t2; av2[2]=*((C_word*)lf[8]+1); av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)((C_word*)t0)[4])[1]; C_apply(5,av2);}} /* k514 in k511 in a508 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in ... */ static void C_ccall f_516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_516,2,av);} /* chicken.scm:154: exit */ t2=*((C_word*)lf[7]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k493 in k487 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in ... */ static void C_ccall f_495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_495,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a496 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in ... */ static void C_ccall f_497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_497,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_501,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken.scm:74: user-options-pass */ t3=*((C_word*)lf[6]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k323 in k320 */ static void C_ccall f_325(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_325,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_328,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k326 in k323 in k320 */ static void C_ccall f_328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_328,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_331,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k320 */ static void C_ccall f_322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_322,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_325,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k490 in k487 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_492,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a508 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in ... */ 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=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_509,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_513,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_521,a[2]=t4,a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_521(t9,t5,((C_word*)t4)[1]);} /* k499 in a496 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_501,2,av);} if(C_truep(t1)){ t2=t1; /* chicken.scm:74: g39 */ t3=t2;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[0]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=*((C_word*)lf[1]+1); t3=*((C_word*)lf[1]+1); /* chicken.scm:74: g39 */ t4=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[0]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k487 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in ... */ static void C_ccall f_489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_489,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_492,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_495,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#implicit-exit-handler */ t4=*((C_word*)lf[5]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in k329 in k326 in k323 in k320 */ static void C_ccall f_382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_382,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_385,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_backend_toplevel(2,av2);}} /* k594 in loop in a508 in k387 in k383 in k380 in k377 in k374 in k371 in k368 in k365 in k362 in k359 in k356 in k353 in k350 in k347 in k344 in k341 in k338 in k335 in k332 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_596,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_u_i_cdr(((C_word*)t0)[3]); /* chicken.scm:134: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_521(t4,((C_word*)t0)[5],t3);} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[55] = { {"f_644:chicken_2escm",(void*)f_644}, {"f_397:chicken_2escm",(void*)f_397}, {"f_370:chicken_2escm",(void*)f_370}, {"f_373:chicken_2escm",(void*)f_373}, {"f_340:chicken_2escm",(void*)f_340}, {"f_586:chicken_2escm",(void*)f_586}, {"f_385:chicken_2escm",(void*)f_385}, {"f_389:chicken_2escm",(void*)f_389}, {"f_361:chicken_2escm",(void*)f_361}, {"f_358:chicken_2escm",(void*)f_358}, {"f_355:chicken_2escm",(void*)f_355}, {"f_710:chicken_2escm",(void*)f_710}, {"f_352:chicken_2escm",(void*)f_352}, {"f_376:chicken_2escm",(void*)f_376}, {"f_453:chicken_2escm",(void*)f_453}, {"f_379:chicken_2escm",(void*)f_379}, {"f_735:chicken_2escm",(void*)f_735}, {"f_576:chicken_2escm",(void*)f_576}, {"f_737:chicken_2escm",(void*)f_737}, {"f_727:chicken_2escm",(void*)f_727}, {"f_349:chicken_2escm",(void*)f_349}, {"f_346:chicken_2escm",(void*)f_346}, {"f_391:chicken_2escm",(void*)f_391}, {"f_343:chicken_2escm",(void*)f_343}, {"f_449:chicken_2escm",(void*)f_449}, {"f_364:chicken_2escm",(void*)f_364}, {"f_367:chicken_2escm",(void*)f_367}, {"f_566:chicken_2escm",(void*)f_566}, {"f_717:chicken_2escm",(void*)f_717}, {"f_745:chicken_2escm",(void*)f_745}, {"f_749:chicken_2escm",(void*)f_749}, {"f_521:chicken_2escm",(void*)f_521}, {"f_668:chicken_2escm",(void*)f_668}, {"f_411:chicken_2escm",(void*)f_411}, {"f_556:chicken_2escm",(void*)f_556}, {"toplevel:chicken_2escm",(void*)C_toplevel}, {"f_337:chicken_2escm",(void*)f_337}, {"f_331:chicken_2escm",(void*)f_331}, {"f_334:chicken_2escm",(void*)f_334}, {"f_431:chicken_2escm",(void*)f_431}, {"f_606:chicken_2escm",(void*)f_606}, {"f_513:chicken_2escm",(void*)f_513}, {"f_516:chicken_2escm",(void*)f_516}, {"f_495:chicken_2escm",(void*)f_495}, {"f_497:chicken_2escm",(void*)f_497}, {"f_325:chicken_2escm",(void*)f_325}, {"f_328:chicken_2escm",(void*)f_328}, {"f_322:chicken_2escm",(void*)f_322}, {"f_492:chicken_2escm",(void*)f_492}, {"f_509:chicken_2escm",(void*)f_509}, {"f_501:chicken_2escm",(void*)f_501}, {"f_489:chicken_2escm",(void*)f_489}, {"f_382:chicken_2escm",(void*)f_382}, {"f_596:chicken_2escm",(void*)f_596}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|eliminated procedure checks: 1 o|specializations: o| 8 (eqv? * (not float)) o| 8 (cdr pair) o| 2 (> fixnum fixnum) o| 2 (char=? char char) o| 2 (string-ref string fixnum) (o e)|safe calls: 54 o|inlining procedure: k399 o|substituted constant variable: a419 o|inlining procedure: k399 o|inlining procedure: k426 o|inlining procedure: k426 o|substituted constant variable: a460 o|substituted constant variable: a457 o|substituted constant variable: a462 o|inlining procedure: k463 o|inlining procedure: k463 o|substituted constant variable: a480 o|substituted constant variable: a486 o|inlining procedure: k502 o|inlining procedure: k502 o|propagated global variable: r503764 ##compiler#process-command-line o|inlining procedure: k523 o|inlining procedure: k523 o|inlining procedure: k557 o|inlining procedure: k557 o|inlining procedure: k577 o|inlining procedure: k577 o|inlining procedure: k597 o|inlining procedure: k597 o|substituted constant variable: a608 o|substituted constant variable: a610 o|substituted constant variable: a612 o|substituted constant variable: a614 o|substituted constant variable: a616 o|inlining procedure: k621 o|inlining procedure: k645 o|inlining procedure: k645 o|substituted constant variable: a670 o|substituted constant variable: a672 o|substituted constant variable: a674 o|inlining procedure: k621 o|inlining procedure: k688 o|inlining procedure: k688 o|inlining procedure: k715 o|inlining procedure: k715 o|inlining procedure: k750 o|inlining procedure: k750 o|replaced variables: 77 o|removed binding forms: 33 o|propagated global variable: g3940765 ##compiler#process-command-line o|substituted constant variable: r751789 o|substituted constant variable: r751789 o|replaced variables: 10 o|removed binding forms: 79 o|inlining procedure: k542 o|inlining procedure: k542 o|inlining procedure: k542 o|inlining procedure: k542 o|inlining procedure: k542 o|inlining procedure: k542 o|inlining procedure: k542 o|inlining procedure: k630 o|inlining procedure: k630 o|inlining procedure: k630 o|inlining procedure: k630 o|removed binding forms: 12 o|removed binding forms: 13 o|removed binding forms: 1 o|simplifications: ((if . 1) (##core#call . 35)) o| call simplifications: o| string=? o| cdr o| ##sys#call-with-values o| memq 2 o| string? o| pair? o| string->number 2 o| eq? 10 o| >= o| apply o| null? 2 o| car 4 o| string-length o| fx> 2 o| cons 4 o| values o|contracted procedure: k402 o|contracted procedure: k412 o|contracted procedure: k415 o|contracted procedure: k423 o|contracted procedure: k443 o|contracted procedure: k454 o|contracted procedure: k472 o|contracted procedure: k526 o|contracted procedure: k529 o|contracted procedure: k536 o|contracted procedure: k618 o|contracted procedure: k539 o|contracted procedure: k550 o|contracted procedure: k560 o|contracted procedure: k570 o|contracted procedure: k580 o|contracted procedure: k590 o|contracted procedure: k600 o|contracted procedure: k624 o|contracted procedure: k676 o|contracted procedure: k627 o|contracted procedure: k638 o|contracted procedure: k648 o|contracted procedure: k652 o|contracted procedure: k658 o|contracted procedure: k662 o|contracted procedure: k682 o|contracted procedure: k691 o|contracted procedure: k697 o|contracted procedure: k718 o|contracted procedure: k729 o|simplifications: ((let . 14)) o|removed binding forms: 31 o|replaced variables: 12 o|removed binding forms: 4 o|customizable procedures: (loop46 k429 loop29) o|calls to known targets: 22 o|identified direct recursive calls: f_397 2 o|identified direct recursive calls: f_521 5 o|fast box initializations: 2 */ /* end of file */ ��������������������������������������������������������������������������������������������chicken-4.12.0/posixwin.scm�������������������������������������������������������������������������0000644�0001750�0001750�00000133335�13052306173�015404� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; posixwin.scm - Miscellaneous file- and process-handling routines, available on Windows ; ; Copyright (c) 2008-2017, 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 ; symbolic-link? ; set-signal-mask! signal-mask signal-masked? signal-mask! signal-unmask! ; user-information group-information get-groups set-groups! initialize-groups ; errno/wouldblock ; change-directory* ; 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 fifo? ; prot/... ; map/... ; set-alarm! ; terminal-name ; 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 (unit posix) (uses scheduler irregex extras files ports lolevel) (disable-interrupts) (hide quote-arg-string) (not inline ##sys#interrupt-hook ##sys#user-interrupt-hook) (foreign-declare #<<EOF #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 <utime.h> #include <winsock2.h> #define PIPE_BUF 512 static C_TLS struct group *C_group; 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_hostname[256] = ""; static C_TLS char C_osver[16] = ""; static C_TLS char C_osrel[16] = ""; static C_TLS char C_processor[16] = ""; static C_TLS char C_shlcmd[256] = ""; /* Windows NT or better */ static int C_isNT = 0; /* Current user name */ static C_TLS TCHAR C_username[255 + 1] = ""; /* Directory Operations */ #define C_mkdir(str) C_fix(mkdir(C_c_string(str))) #define C_chdir(str) C_fix(chdir(C_c_string(str))) #define C_rmdir(str) C_fix(rmdir(C_c_string(str))) #ifndef __WATCOMC__ /* DIRENT stuff */ 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 /* ifndef __WATCOMC__ */ #ifdef __WATCOMC__ /* there is no P_DETACH in Watcom CRTL */ # define P_DETACH P_NOWAIT #endif #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_data_pointer(fn), C_unfix(m))) #define C_setvbuf(p, m, s) C_fix(setvbuf(C_port_file(p), NULL, C_unfix(m), C_unfix(s))) #define C_test_access(fn, m) C_fix(access((char *)C_data_pointer(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_getenventry(i) environ[ i ] #define C_lstat(fn) C_stat(fn) #define C_u_i_execvp(f,a) C_fix(execvp(C_data_pointer(f), (const char *const *)C_c_pointer_vector_or_null(a))) #define C_u_i_execve(f,a,e) C_fix(execve(C_data_pointer(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_data_pointer(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_data_pointer(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 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) #define C_sleep(t) (Sleep(C_unfix(t) * 1000), C_fix(0)) static int C_fcall get_hostname() { /* Do we already have hostname? */ if (strlen(C_hostname)) { return 1; } else { WSADATA wsa; if (WSAStartup(MAKEWORD(1, 1), &wsa) == 0) { int nok = gethostname(C_hostname, sizeof(C_hostname)); WSACleanup(); return !nok; } return 0; } } static int C_fcall sysinfo() { /* Do we need to build the sysinfo? */ if (!strlen(C_osrel)) { OSVERSIONINFO ovf; ZeroMemory(&ovf, sizeof(ovf)); ovf.dwOSVersionInfoSize = sizeof(ovf); if (get_hostname() && GetVersionEx(&ovf)) { SYSTEM_INFO si; _snprintf(C_osver, sizeof(C_osver) - 1, "%d.%d.%d", ovf.dwMajorVersion, ovf.dwMinorVersion, ovf.dwBuildNumber); strncpy(C_osrel, "Win", sizeof(C_osrel) - 1); switch (ovf.dwPlatformId) { case VER_PLATFORM_WIN32s: strncpy(C_osrel, "Win32s", sizeof(C_osrel) - 1); break; case VER_PLATFORM_WIN32_WINDOWS: if (ovf.dwMajorVersion == 4) { if (ovf.dwMinorVersion == 0) strncpy(C_osrel, "Win95", sizeof(C_osrel) - 1); else if (ovf.dwMinorVersion == 10) strncpy(C_osrel, "Win98", sizeof(C_osrel) - 1); else if (ovf.dwMinorVersion == 90) strncpy(C_osrel, "WinMe", sizeof(C_osrel) - 1); } break; case VER_PLATFORM_WIN32_NT: C_isNT = 1; if (ovf.dwMajorVersion == 6) strncpy(C_osrel, "WinVista", sizeof(C_osrel) - 1); else if (ovf.dwMajorVersion == 5) { if (ovf.dwMinorVersion == 2) strncpy(C_osrel, "WinServer2003", sizeof(C_osrel) - 1); else if (ovf.dwMinorVersion == 1) strncpy(C_osrel, "WinXP", sizeof(C_osrel) - 1); else if ( ovf.dwMinorVersion == 0) strncpy(C_osrel, "Win2000", sizeof(C_osrel) - 1); } else if (ovf.dwMajorVersion <= 4) strncpy(C_osrel, "WinNT", sizeof(C_osrel) - 1); break; } GetSystemInfo(&si); strncpy(C_processor, "Unknown", sizeof(C_processor) - 1); switch (si.wProcessorArchitecture) { case PROCESSOR_ARCHITECTURE_INTEL: strncpy(C_processor, "x86", sizeof(C_processor) - 1); break; # ifdef PROCESSOR_ARCHITECTURE_IA64 case PROCESSOR_ARCHITECTURE_IA64: strncpy(C_processor, "IA64", sizeof(C_processor) - 1); break; # endif # ifdef PROCESSOR_ARCHITECTURE_AMD64 case PROCESSOR_ARCHITECTURE_AMD64: strncpy(C_processor, "x64", sizeof(C_processor) - 1); break; # endif # ifdef PROCESSOR_ARCHITECTURE_IA32_ON_WIN64 case PROCESSOR_ARCHITECTURE_IA32_ON_WIN64: strncpy(C_processor, "WOW64", sizeof(C_processor) - 1); break; # endif } } else return set_last_errno(); } return 1; } static int C_fcall get_shlcmd() { /* Do we need to build the shell command pathname? */ if (!strlen(C_shlcmd)) { if (sysinfo()) /* for C_isNT */ { char *cmdnam = C_isNT ? "\\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(); } else return 0; } return 1; } #define C_get_hostname() (get_hostname() ? C_SCHEME_TRUE : C_SCHEME_FALSE) #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, C_word * 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 tm) { struct _utimbuf tb; tb.actime = tb.modtime = C_num_to_int(tm); return _utime(filename, &tb); } EOF ) ) ;;; common code (include "posix-common.scm") ;;; Lo-level I/O: (define-foreign-variable _pipe_buf int "PIPE_BUF") (define pipe/buf _pipe_buf) (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") (define-foreign-variable _o_noinherit int "O_NOINHERIT") (define open/rdonly _o_rdonly) (define open/wronly _o_wronly) (define open/rdwr _o_rdwr) (define open/read _o_rdwr) (define open/write _o_wronly) (define open/creat _o_creat) (define open/append _o_append) (define open/excl _o_excl) (define open/trunc _o_trunc) (define open/binary _o_binary) (define open/text _o_text) (define open/noinherit _o_noinherit) (define-foreign-variable _s_irusr int "S_IREAD") (define-foreign-variable _s_iwusr int "S_IWRITE") (define-foreign-variable _s_ixusr int "S_IEXEC") (define-foreign-variable _s_irgrp int "S_IREAD") (define-foreign-variable _s_iwgrp int "S_IWRITE") (define-foreign-variable _s_ixgrp int "S_IEXEC") (define-foreign-variable _s_iroth int "S_IREAD") (define-foreign-variable _s_iwoth int "S_IWRITE") (define-foreign-variable _s_ixoth int "S_IEXEC") (define-foreign-variable _s_irwxu int "S_IREAD | S_IWRITE | S_IEXEC") (define-foreign-variable _s_irwxg int "S_IREAD | S_IWRITE | S_IEXEC") (define-foreign-variable _s_irwxo int "S_IREAD | S_IWRITE | S_IEXEC") (define perm/irusr _s_irusr) (define perm/iwusr _s_iwusr) (define perm/ixusr _s_ixusr) (define perm/irgrp _s_irgrp) (define perm/iwgrp _s_iwgrp) (define perm/ixgrp _s_ixgrp) (define perm/iroth _s_iroth) (define perm/iwoth _s_iwoth) (define perm/ixoth _s_ixoth) (define perm/irwxu _s_irwxu) (define perm/irwxg _s_irwxg) (define perm/irwxo _s_irwxo) (define 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-exact flags 'file-open) (##sys#check-exact 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) ) ) ) ) (define file-close (lambda (fd) (##sys#check-exact fd 'file-close) (let loop () (when (fx< (##core#inline "C_close" fd) 0) (select _errno ((_eintr) (##sys#dispatch-interrupt loop)) (else (posix-error #:file-error 'file-close "cannot close file" fd))))))) (define file-read (lambda (fd size . buffer) (##sys#check-exact fd 'file-read) (##sys#check-exact 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) ) ) ) ) (define file-write (lambda (fd buffer . size) (##sys#check-exact 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-exact 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) ) ) ) (define 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 (directory-exists? (or (pathname-directory template) "."))) ;; 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 (random diz-len))) (suffix-loop (fx- index 1)))) (let ((fd (##core#inline "C_open" (##sys#make-c-string tmpl 'file-open) (bitwise-ior open/rdwr open/creat 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))))))) ;;; Directory stuff: (define change-directory (lambda (name) (##sys#check-string name 'change-directory) (let ((sname (##sys#make-c-string name 'change-directory))) (unless (fx= 0 (##core#inline "C_chdir" sname)) (##sys#update-errno) (##sys#signal-hook #:file-error 'change-directory "cannot change current directory" name) ) name))) ;;; Pipes: (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 cmd inp r) (##sys#update-errno) (if (##sys#null-pointer? r) (##sys#signal-hook #:file-error "cannot open pipe" cmd) (let ([port (##sys#make-port inp ##sys#stream-port-class "(pipe)" 'stream)]) (##core#inline "C_set_file_ptr" port r) port) ) ) (set! open-input-pipe (lambda (cmd . m) (##sys#check-string cmd 'open-input-pipe) (let ([m (mode m)]) (check 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! open-output-pipe (lambda (cmd . m) (##sys#check-string cmd 'open-output-pipe) (let ((m (mode m))) (check 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! close-input-pipe (lambda (port) (##sys#check-input-port port #t 'close-input-pipe) (let ((r (##core#inline "close_pipe" port))) (##sys#update-errno) (when (eq? -1 r) (##sys#signal-hook #:file-error 'close-input-pipe "error while closing pipe" port) ) r))) (set! close-output-pipe (lambda (port) (##sys#check-output-port port #t 'close-output-pipe) (let ((r (##core#inline "close_pipe" port))) (##sys#update-errno) (when (eq? -1 r) (##sys#signal-hook #:file-error 'close-output-pipe "error while closing pipe" port) ) r)))) (define call-with-input-pipe (lambda (cmd proc . mode) (let ([p (apply open-input-pipe cmd mode)]) (##sys#call-with-values (lambda () (proc p)) (lambda results (close-input-pipe p) (apply values results) ) ) ) ) ) (define call-with-output-pipe (lambda (cmd proc . mode) (let ([p (apply open-output-pipe cmd mode)]) (##sys#call-with-values (lambda () (proc p)) (lambda results (close-output-pipe p) (apply values results) ) ) ) ) ) (define with-input-from-pipe (lambda (cmd thunk . mode) (let ([p (apply open-input-pipe cmd mode)]) (fluid-let ((##sys#standard-input p)) (##sys#call-with-values thunk (lambda results (close-input-pipe p) (apply values results) ) ) ) ) ) ) (define with-output-to-pipe (lambda (cmd thunk . mode) (let ([p (apply open-output-pipe cmd mode)]) (fluid-let ((##sys#standard-output p)) (##sys#call-with-values thunk (lambda results (close-output-pipe p) (apply values results) ) ) ) ) ) ) ;;; Pipe primitive: (define-foreign-variable _pipefd0 int "C_pipefds[ 0 ]") (define-foreign-variable _pipefd1 int "C_pipefds[ 1 ]") (define create-pipe (lambda (#!optional (mode (fxior open/binary 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") (define signal/term _sigterm) (define signal/int _sigint) (define signal/fpe _sigfpe) (define signal/ill _sigill) (define signal/segv _sigsegv) (define signal/abrt _sigabrt) (define signal/break _sigbreak) (define signal/alrm 0) (define signal/chld 0) (define signal/cont 0) (define signal/hup 0) (define signal/io 0) (define signal/kill 0) (define signal/pipe 0) (define signal/prof 0) (define signal/quit 0) (define signal/stop 0) (define signal/trap 0) (define signal/tstp 0) (define signal/urg 0) (define signal/usr1 0) (define signal/usr2 0) (define signal/vtalrm 0) (define signal/winch 0) (define signal/xcpu 0) (define signal/xfsz 0) (define signals-list (list signal/term signal/int signal/fpe signal/ill signal/segv signal/abrt signal/break)) ;;; More errno codes: (define errno/perm _eperm) (define errno/noent _enoent) (define errno/srch _esrch) (define errno/intr _eintr) (define errno/io _eio) (define errno/noexec _enoexec) (define errno/badf _ebadf) (define errno/child _echild) (define errno/nomem _enomem) (define errno/acces _eacces) (define errno/fault _efault) (define errno/busy _ebusy) (define errno/exist _eexist) (define errno/notdir _enotdir) (define errno/isdir _eisdir) (define errno/inval _einval) (define errno/mfile _emfile) (define errno/nospc _enospc) (define errno/spipe _espipe) (define errno/pipe _epipe) (define errno/again _eagain) (define errno/rofs _erofs) (define errno/nxio _enxio) (define errno/2big _e2big) (define errno/xdev _exdev) (define errno/nodev _enodev) (define errno/nfile _enfile) (define errno/notty _enotty) (define errno/fbig _efbig) (define errno/mlink _emlink) (define errno/dom _edom) (define errno/range _erange) (define errno/deadlk _edeadlk) (define errno/nametoolong _enametoolong) (define errno/nolck _enolck) (define errno/nosys _enosys) (define errno/notempty _enotempty) (define errno/ilseq _eilseq) ;;; Permissions and owners: (define change-file-mode (lambda (fname m) (##sys#check-string fname 'change-file-mode) (##sys#check-exact m 'change-file-mode) (when (fx< (##core#inline "C_chmod" (##sys#make-c-string fname 'change-file-mode) m) 0) (##sys#update-errno) (##sys#signal-hook #:file-error 'change-file-mode "cannot change file mode" fname m) ) ) ) (define-foreign-variable _r_ok int "2") (define-foreign-variable _w_ok int "4") (define-foreign-variable _x_ok int "2") (let () (define (check filename acc loc) (##sys#check-string filename loc) (let ([r (fx= 0 (##core#inline "C_test_access" (##sys#make-c-string filename loc) acc))]) (unless r (##sys#update-errno)) r) ) (set! file-read-access? (lambda (filename) (check filename _r_ok 'file-read-access?))) (set! file-write-access? (lambda (filename) (check filename _w_ok 'file-write-access?))) (set! file-execute-access? (lambda (filename) (check filename _x_ok 'file-execute-access?))) ) (define-foreign-variable _filename_max int "FILENAME_MAX") ;;; Using file-descriptors: (define-foreign-variable _stdin_fileno int "0") (define-foreign-variable _stdout_fileno int "1") (define-foreign-variable _stderr_fileno int "2") (define fileno/stdin _stdin_fileno) (define fileno/stdout _stdout_fileno) (define fileno/stderr _stderr_fileno) (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 fd inp r) (##sys#update-errno) (if (##sys#null-pointer? r) (##sys#signal-hook #:file-error "cannot open file" fd) (let ([port (##sys#make-port inp ##sys#stream-port-class "(fdport)" 'stream)]) (##core#inline "C_set_file_ptr" port r) port) ) ) (set! open-input-file* (lambda (fd . m) (##sys#check-exact fd 'open-input-file*) (check fd #t (##core#inline_allocate ("C_fdopen" 2) fd (mode #t m 'open-input-file*))) ) ) (set! open-output-file* (lambda (fd . m) (##sys#check-exact fd 'open-output-file*) (check fd #f (##core#inline_allocate ("C_fdopen" 2) fd (mode #f m 'open-output-file*)) ) ) ) ) (define port->fileno (lambda (port) (##sys#check-open-port port 'port->fileno) (if (not (zero? (##sys#peek-unsigned-integer port 0))) (let ([fd (##core#inline "C_C_fileno" port)]) (when (fx< fd 0) (##sys#update-errno) (##sys#signal-hook #:file-error 'port->fileno "cannot access file-descriptor of port" port) ) fd) (##sys#signal-hook #:type-error 'port->fileno "port has no attached file" port) ) ) ) (define duplicate-fileno (lambda (old . new) (##sys#check-exact old duplicate-fileno) (let ([fd (if (null? new) (##core#inline "C_dup" old) (let ([n (car new)]) (##sys#check-exact 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: (define local-timezone-abbreviation (foreign-lambda* c-string () "char *z = (_daylight ? _tzname[1] : _tzname[0]);\n" "C_return(z);") ) ;;; Other things: (define _exit (let ([ex0 (foreign-lambda void "_exit" int)]) (lambda code (ex0 (if (pair? code) (car code) 0)) ) ) ) (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 (terminal-size port) (if (terminal-port? port) (values 0 0) (##sys#error 'terminal-size "port is not connected to a terminal" port))) (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 set-buffering-mode! (lambda (port mode . size) (##sys#check-open-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-exact size 'set-buffering-mode!) (when (fx< (if (eq? 'stream (##sys#slot port 7)) (##core#inline "C_setvbuf" port mode size) -1) 0) (##sys#error 'set-buffering-mode! "cannot set buffering mode" port mode size) ) ) ) ) ;;; 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") (define spawn/overlay _p_overlay) (define spawn/wait _p_wait) (define spawn/nowait _p_nowait) (define spawn/nowaito _p_nowaito) (define 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)))) (define (process-execute 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))))))) (define (process-spawn mode filename #!optional (arglist '()) envlist exactf) (let ((argconv (if exactf (lambda (x) x) quote-arg-string))) (##sys#check-exact 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 (##sys#shell-command) (or (get-environment-variable "COMSPEC") (if (##core#inline "C_get_shlcmd") _shlcmd (begin (##sys#update-errno) (##sys#error '##sys#shell-command "cannot retrieve system directory") ) ) ) ) (define (##sys#shell-command-arguments cmdlin) (list "/c" cmdlin) ) (define process-run (lambda (f . args) (let ([args (if (pair? args) (car args) #f)]) (if args (process-spawn spawn/nowait f args) (process-spawn spawn/nowait (##sys#shell-command) (##sys#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 ;; ##sys#process ; 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 ##sys#process ;; 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 (open-input-file* stdout_fd)) ;Parent stdin (and stdinf (open-output-file* stdin_fd)) ;Parent stdout handle (and stderrf (open-input-file* stderr_fd))) (begin (##sys#update-errno) (##sys#signal-hook #:process-error loc "cannot execute process" cmdlin))) ) ) ) ) ) ) (define process) (define process*) (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 (##sys#shell-command-arguments cmd)) (set! cmd (##sys#shell-command)) ) ) (when env (chkstrlst env)) (receive [in out pid err] (##sys#process loc cmd args env #t #t err? exactf) (if err? (values in out pid err) (values in out pid) ) ) ) )] ) (set! process (lambda (cmd #!optional args env exactf) (%process 'process #f cmd args env exactf) )) (set! process* (lambda (cmd #!optional args env exactf) (%process 'process* #t cmd args env exactf) )) ) (define-foreign-variable _exstatus int "C_exstatus") (define (##sys#process-wait pid nohang) (if (##core#inline "C_process_wait" pid nohang) (values pid #t _exstatus) (values -1 #f #f) ) ) (define (sleep s) (##sys#check-exact s 'sleep) (##core#inline "C_sleep" s)) (define-foreign-variable _hostname c-string "C_hostname") (define-foreign-variable _osver c-string "C_osver") (define-foreign-variable _osrel c-string "C_osrel") (define-foreign-variable _processor c-string "C_processor") (define get-host-name (lambda () (if (##core#inline "C_get_hostname") _hostname (##sys#error 'get-host-name "cannot retrieve host-name") ) ) ) ;;; Getting system-, group- and user-information: (define system-information (lambda () (if (##core#inline "C_sysinfo") (list "windows" _hostname _osrel _osver _processor) (begin (##sys#update-errno) (##sys#error 'system-information "cannot retrieve system-information") ) ) ) ) (define-foreign-variable _username c-string "C_username") (define (current-user-name) (if (##core#inline "C_get_user_name") _username (begin (##sys#update-errno) (##sys#error 'current-user-name "cannot retrieve current user-name") ) ) ) ;;; memory mapped files #> #define PROT_NONE 0 #define PROT_READ 1 #define PROT_WRITE 2 #define PROT_EXEC 4 #define MAP_FILE 0 #define MAP_SHARED 1 #define MAP_PRIVATE 2 #define MAP_FIXED 0x10 #define MAP_ANONYMOUS 0x20 // This value is available starting with Windows XP with SP2 // and Windows Server 2003 with SP1. #ifndef FILE_MAP_EXECUTE #define FILE_MAP_EXECUTE 0x20 #endif//FILE_MAP_EXECUTE static int page_flags[] = { 0, PAGE_READONLY, PAGE_READWRITE, PAGE_READWRITE, PAGE_EXECUTE_READ, PAGE_EXECUTE_READ, PAGE_EXECUTE_READWRITE }; static int file_flags[] = { 0, FILE_MAP_READ, FILE_MAP_READ|FILE_MAP_WRITE, FILE_MAP_READ|FILE_MAP_WRITE, FILE_MAP_READ|FILE_MAP_EXECUTE, FILE_MAP_READ|FILE_MAP_EXECUTE, FILE_MAP_READ|FILE_MAP_WRITE|FILE_MAP_EXECUTE }; void* mmap(void* addr,int len,int prot,int flags,int fd,int off) { HANDLE hMap; HANDLE hFile; void* ptr; if ((flags & MAP_FIXED) || (flags & MAP_PRIVATE) || (flags & MAP_ANONYMOUS)) { errno = EINVAL; return (void*)-1; } /* * We must cast because _get_osfhandle returns intptr_t, but it must * be compared with INVALID_HANDLE_VALUE, which is a HANDLE type. * Who comes up with this shit? */ hFile = (HANDLE)_get_osfhandle(fd); if (hFile == INVALID_HANDLE_VALUE) { return (void*)-1; } hMap = CreateFileMapping( hFile, NULL, page_flags[prot & (PROT_READ|PROT_WRITE|PROT_EXEC)], 0, 0, NULL); if (hMap == INVALID_HANDLE_VALUE) { set_last_errno(); return (void*)-1; } ptr = MapViewOfFile( hMap, file_flags[prot & (PROT_READ|PROT_WRITE|PROT_EXEC)], 0, off, len); if (ptr == NULL) { set_last_errno(); ptr = (void*)-1; } CloseHandle(hMap); return ptr; } int munmap(void* addr,int len) { if (UnmapViewOfFile(addr)) { errno = 0; return 0; } set_last_errno(); return -1; } int is_bad_mmap(void* p) { void* bad_ptr; bad_ptr = (void*)-1; return p == bad_ptr; } <# (define-foreign-variable _prot_none int "PROT_NONE") (define-foreign-variable _prot_read int "PROT_READ") (define-foreign-variable _prot_write int "PROT_WRITE") (define-foreign-variable _prot_exec int "PROT_EXEC") (define-foreign-variable _map_file int "MAP_FILE") (define-foreign-variable _map_shared int "MAP_SHARED") (define-foreign-variable _map_fixed int "MAP_FIXED") (define-foreign-variable _map_private int "MAP_PRIVATE") (define-foreign-variable _map_anonymous int "MAP_ANONYMOUS") (define prot/none _prot_none) (define prot/read _prot_read) (define prot/write _prot_write) (define prot/exec _prot_exec) (define map/file _map_file) (define map/shared _map_shared) (define map/private _map_private) (define map/fixed _map_fixed) (define map/anonymous _map_anonymous) (define map-file-to-memory (let ([mmap (foreign-lambda c-pointer "mmap" c-pointer integer int int int integer)] [bad-mmap? (foreign-lambda bool "is_bad_mmap" c-pointer)] ) (lambda (addr len prot flag fd . off) (let ([addr (if (not addr) (##sys#null-pointer) addr)] [off (if (pair? off) (car off) 0)] ) (unless (and (##core#inline "C_blockp" addr) (##core#inline "C_specialp" addr)) (##sys#signal-hook #:type-error 'map-file-to-memory "bad argument type - not a foreign pointer" addr) ) (let ([addr2 (mmap addr len prot flag fd off)]) (when (bad-mmap? addr2) (posix-error #:file-error 'map-file-to-memory "cannot map file to memory" addr len prot flag fd off) ) (##sys#make-structure 'mmap addr2 len) ) ) ) ) ) (define unmap-file-from-memory (let ([munmap (foreign-lambda int "munmap" c-pointer integer)] ) (lambda (mmap . len) (##sys#check-structure mmap 'mmap 'unmap-file-from-memory) (let ([len (if (pair? len) (car len) (##sys#slot mmap 2))]) (unless (eq? 0 (munmap (##sys#slot mmap 1) len)) (posix-error #:file-error 'unmap-file-from-memory "cannot unmap file from memory" mmap len) ) ) ) ) ) (define (memory-mapped-file-pointer mmap) (##sys#check-structure mmap 'mmap 'memory-mapped-file-pointer) (##sys#slot mmap 1) ) (define (memory-mapped-file? x) (##sys#structure? x 'mmap) ) ;;; unimplemented stuff: (define-syntax define-unimplemented (syntax-rules () [(_ ?name) (define (?name . _) (error '?name (##core#immutable '"this function is not available on this platform")) ) ] ) ) (define-unimplemented change-directory*) (define-unimplemented change-file-owner) (define-unimplemented create-fifo) (define-unimplemented create-session) (define-unimplemented create-symbolic-link) (define-unimplemented current-effective-group-id) (define-unimplemented current-effective-user-id) (define-unimplemented current-effective-user-name) (define-unimplemented current-group-id) (define-unimplemented current-user-id) (define-unimplemented file-link) (define-unimplemented file-lock) (define-unimplemented file-lock/blocking) (define-unimplemented file-select) (define-unimplemented file-test-lock) (define-unimplemented file-truncate) (define-unimplemented file-unlock) (define-unimplemented get-groups) (define-unimplemented group-information) (define-unimplemented initialize-groups) (define-unimplemented parent-process-id) (define-unimplemented process-fork) (define-unimplemented process-group-id) (define-unimplemented process-signal) (define-unimplemented read-symbolic-link) (define-unimplemented set-alarm!) (define-unimplemented set-group-id!) (define-unimplemented set-groups!) (define-unimplemented set-process-group-id!) (define-unimplemented set-root-directory!) (define-unimplemented set-signal-mask!) (define-unimplemented set-user-id!) (define-unimplemented signal-mask) (define-unimplemented signal-mask!) (define-unimplemented signal-masked?) (define-unimplemented signal-unmask!) (define-unimplemented terminal-name) (define-unimplemented user-information) (define-unimplemented utc-time->seconds) (define-unimplemented string->time) (define errno/wouldblock 0) (define (fifo? _) #f) (define open/fsync 0) (define open/noctty 0) (define open/nonblock 0) (define open/sync 0) (define perm/isgid 0) (define perm/isuid 0) (define perm/isvtx 0) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/NEWS���������������������������������������������������������������������������������0000644�0001750�0001750�00000234336�13052302367�013523� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������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-4.12.0/chicken-status.scm�������������������������������������������������������������������0000644�0001750�0001750�00000021157�13052306173�016447� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken-status.scm ; ; Copyright (c) 2008-2017, 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. (require-library setup-api srfi-1 posix data-structures utils ports irregex files) (module main () (import scheme chicken foreign) (import srfi-1 posix data-structures utils ports irregex files setup-api extras) (define-foreign-variable C_TARGET_LIB_HOME c-string) (define-foreign-variable C_BINARY_VERSION int) (define-foreign-variable C_TARGET_PREFIX c-string) (define *cross-chicken* (feature? #:cross-chicken)) (define *host-extensions* *cross-chicken*) (define *target-extensions* *cross-chicken*) (define *prefix* #f) (define *deploy* #f) (define (repo-path) (if *deploy* *prefix* (if (and *cross-chicken* (not *host-extensions*)) (make-pathname C_TARGET_LIB_HOME (sprintf "chicken/~a" C_BINARY_VERSION)) (if *prefix* (make-pathname *prefix* (sprintf "lib/chicken/~a" (##sys#fudge 42))) (repository-path))))) (define (grep rx lst) (filter (cut irregex-search rx <>) lst)) (define (gather-extensions patterns) (let ((extensions (gather-all-extensions))) (delete-duplicates (concatenate (map (cut grep <> extensions) patterns)) string=?))) (define (gather-eggs patterns) (define (egg-name extension) (and-let* ((egg (assq 'egg-name (read-info extension (repo-path))))) (cadr egg))) (let loop ((eggs '()) (extensions (gather-extensions patterns))) (if (null? extensions) eggs (let ((egg (egg-name (car extensions)))) (loop (if (and egg (not (member egg eggs))) (cons egg eggs) eggs) (cdr extensions)))))) (define (gather-all-extensions) (map pathname-file (glob (make-pathname (repo-path) "*" "setup-info")))) (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 get-terminal-width (let ((default-width 80)) ; Standard default terminal width (lambda () (let ((cop (current-output-port))) (if (terminal-port? cop) (let ((w (nth-value 1 (terminal-size cop)))) (if (zero? w) default-width (min default-width w))) default-width))))) (define (list-installed-extensions extensions) (let ((w (quotient (- (get-terminal-width) 2) 2))) (for-each (lambda (extension) (let ((version (assq 'version (read-info extension (repo-path))))) (if version (print (format-string (string-append extension " ") w #f #\.) (format-string (string-append " version: " (->string (cadr version))) w #t #\.)) (print extension)))) (sort extensions string<?)))) (define (list-installed-eggs eggs) (for-each print eggs)) (define (list-installed-files extensions) (for-each print (sort (append-map (lambda (extension) (let ((files (assq 'files (read-info extension (repo-path))))) (if files (cdr files) '()))) extensions) string<?))) (define (dump-installed-versions) (for-each (lambda (extension) (let ((version (assq 'version (read-info extension (repo-path))))) (pp (list (string->symbol extension) (->string (and version (cadr version))))))) (gather-all-extensions))) (define (usage code) (print #<<EOF usage: chicken-status [OPTION | PATTERN] ... -h -help show this message -version show version and exit -f -files list installed files -exact treat PATTERN as exact match (not a pattern) -host when cross-compiling, show status of host extensions only -target when cross-compiling, show status of target extensions only -p -prefix PREFIX change installation prefix to PREFIX -deploy prefix is a deployment directory -list dump installed extensions and their versions in "override" format -e -eggs list installed eggs EOF );| (exit code)) (define *short-options* '(#\h #\f #\p)) (define (main args) (let ((files #f) (eggs #f) (dump #f) (exact #f)) (let loop ((args args) (pats '())) (if (null? args) (cond ((and eggs (or dump files)) (with-output-to-port (current-error-port) (cut print "-eggs cannot be used with -list.")) (exit 1)) ((and *deploy* (not *prefix*)) (with-output-to-port (current-error-port) (cut print "`-deploy' only makes sense in combination with `-prefix DIRECTORY`")) (exit 1)) (else (let ((status (lambda () (let* ((patterns (map irregex (cond ((null? pats) '(".*")) (exact (map (lambda (p) (string-append "^" (irregex-quote p) "$")) pats)) (else (map ##sys#glob->regexp pats))))) (eggs/exts ((if eggs gather-eggs gather-extensions) patterns))) (if (null? eggs/exts) (display "(none)\n" (current-error-port)) ((cond (eggs list-installed-eggs) (files list-installed-files) (else list-installed-extensions)) eggs/exts)))))) (cond (dump (dump-installed-versions)) ((and *host-extensions* *target-extensions*) (print "host at " (repo-path) ":\n") (status) (fluid-let ((*host-extensions* #f)) (print "\ntarget at " (repo-path) ":\n") (status))) (else (status)))))) (let ((arg (car args))) (cond ((or (string=? arg "-help") (string=? arg "-h") (string=? arg "--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=? "-deploy" arg) (set! *deploy* #t) (loop (cdr args) pats)) ((or (string=? arg "-p") (string=? arg "-prefix")) (unless (pair? (cdr args)) (usage 1)) (set! *prefix* (let ((p (cadr args))) (if (absolute-pathname? p) p (normalize-pathname (make-pathname (current-directory) p) ) ) ) ) (loop (cddr args) pats)) ((string=? arg "-exact") (set! exact #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 "-e") (string=? arg "-eggs")) (set! eggs #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-4.12.0/srfi-4.scm���������������������������������������������������������������������������0000644�0001750�0001750�00000061203�13052306173�014622� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; srfi-4.scm - Homogeneous numeric vectors ; ; Copyright (c) 2008-2017, 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 extras) (disable-interrupts) (not inline ##sys#user-print-hook ##sys#number-hash-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 ) ) (include "common-declarations.scm") ;;; Helper routines: (declare (hide ##sys#check-exact-interval)) (define ##sys#check-exact-interval (lambda (n from to loc) (##sys#check-exact n loc) (if (or (##core#inline "C_fixnum_lessp" n from) (##core#inline "C_fixnum_greaterp" n to) ) (##sys#error loc "numeric value is not in expected range" n from to) ) ) ) (define-inline (check-range i from to loc) (##sys#check-exact 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) ) ) ;;; Get vector length: (define (u8vector-length x) (##sys#check-structure x 'u8vector 'u8vector-length) (##core#inline "C_u_i_8vector_length" x)) (define (s8vector-length x) (##sys#check-structure x 's8vector 's8vector-length) (##core#inline "C_u_i_8vector_length" x)) (define (u16vector-length x) (##sys#check-structure x 'u16vector 'u16vector-length) (##core#inline "C_u_i_16vector_length" x)) (define (s16vector-length x) (##sys#check-structure x 's16vector 's16vector-length) (##core#inline "C_u_i_16vector_length" x)) (define (u32vector-length x) (##sys#check-structure x 'u32vector 'u32vector-length) (##core#inline "C_u_i_32vector_length" x)) (define (s32vector-length x) (##sys#check-structure x 's32vector 's32vector-length) (##core#inline "C_u_i_32vector_length" x)) (define (f32vector-length x) (##sys#check-structure x 'f32vector 'f32vector-length) (##core#inline "C_u_i_32vector_length" x)) (define (f64vector-length x) (##sys#check-structure x 'f64vector 'f64vector-length) (##core#inline "C_u_i_64vector_length" x)) ;;; Safe accessors: (define (u8vector-set! x i y) (##sys#check-structure x 'u8vector 'u8vector-set!) (let ((len (##core#inline "C_u_i_8vector_length" x))) (##sys#check-exact y 'u8vector-set!) (when (fx< y 0) (##sys#error 'u8vector-set! "argument may not be negative" y)) (check-range i 0 len 'u8vector-set!) (##core#inline "C_u_i_u8vector_set" x i y))) (define (s8vector-set! x i y) (##sys#check-structure x 's8vector 's8vector-set!) (let ((len (##core#inline "C_u_i_8vector_length" x))) (##sys#check-exact y 's8vector-set!) (check-range i 0 len 's8vector-set!) (##core#inline "C_u_i_s8vector_set" x i y))) (define (u16vector-set! x i y) (##sys#check-structure x 'u16vector 'u16vector-set!) (let ((len (##core#inline "C_u_i_16vector_length" x))) (##sys#check-exact y 'u16vector-set!) (when (fx< y 0) (##sys#error 'u16vector-set! "argument may not be negative" y)) (check-range i 0 len 'u16vector-set!) (##core#inline "C_u_i_u16vector_set" x i y))) (define (s16vector-set! x i y) (##sys#check-structure x 's16vector 's16vector-set!) (let ((len (##core#inline "C_u_i_16vector_length" x))) (##sys#check-exact y 's16vector-set!) (check-range i 0 len 's16vector-set!) (##core#inline "C_u_i_s16vector_set" x i y))) (define (u32vector-set! x i y) (##sys#check-structure x 'u32vector 'u32vector-set!) (let ((len (##core#inline "C_u_i_32vector_length" x))) (##sys#check-integer y 'u32vector-set!) (cond ((negative? y) (##sys#error 'u32vector-set! "argument may not be negative" y) ) ((not (##sys#fits-in-unsigned-int? y)) (##sys#error 'u32vector-set! "argument exceeds integer range" y) ) ) (check-range i 0 len 'u32vector-set!) (##core#inline "C_u_i_u32vector_set" x i y))) (define (s32vector-set! x i y) (##sys#check-structure x 's32vector 's32vector-set!) (let ((len (##core#inline "C_u_i_32vector_length" x))) (##sys#check-integer y 's32vector-set!) (unless (##sys#fits-in-int? y) (##sys#error 's32vector-set! "argument exceeds integer range" y) ) (check-range i 0 len 's32vector-set!) (##core#inline "C_u_i_s32vector_set" x i y))) (define (f32vector-set! x i y) (##sys#check-structure x 'f32vector 'f32vector-set!) (let ((len (##core#inline "C_u_i_32vector_length" x))) (##sys#check-number y 'f32vector-set!) (check-range i 0 len 'f32vector-set!) (##core#inline "C_u_i_f32vector_set" x i (if (##core#inline "C_blockp" y) y (##core#inline_allocate ("C_a_i_fix_to_flo" 4) y))))) (define (f64vector-set! x i y) (##sys#check-structure x 'f64vector 'f64vector-set!) (let ((len (##core#inline "C_u_i_64vector_length" x))) (##sys#check-number y 'f64vector-set!) (check-range i 0 len 'f64vector-set!) (##core#inline "C_u_i_f64vector_set" x i (if (##core#inline "C_blockp" y) y (##core#inline_allocate ("C_a_i_fix_to_flo" 4) y))))) (define u8vector-ref (getter-with-setter (lambda (x i) (##sys#check-structure x 'u8vector 'u8vector-ref) (let ((len (##core#inline "C_u_i_s8vector_length" x))) (check-range i 0 len 'u8vector-ref) (##core#inline "C_u_i_u8vector_ref" x i))) u8vector-set! "(u8vector-ref v i)")) (define s8vector-ref (getter-with-setter (lambda (x i) (##sys#check-structure x 's8vector 's8vector-ref) (let ((len (##core#inline "C_u_i_s8vector_length" x))) (check-range i 0 len 's8vector-ref) (##core#inline "C_u_i_s8vector_ref" x i))) u8vector-set! "(s8vector-ref v i)")) (define u16vector-ref (getter-with-setter (lambda (x i) (##sys#check-structure x 'u16vector 'u16vector-ref) (let ((len (##core#inline "C_u_i_s16vector_length" x))) (check-range i 0 len 'u16vector-ref) (##core#inline "C_u_i_u16vector_ref" x i))) u16vector-set! "(u16vector-ref v i)")) (define s16vector-ref (getter-with-setter (lambda (x i) (##sys#check-structure x 's16vector 's16vector-ref) (let ((len (##core#inline "C_u_i_s16vector_length" x))) (check-range i 0 len 's16vector-ref) (##core#inline "C_u_i_s16vector_ref" x i))) s16vector-set! "(s16vector-ref v i)")) (define u32vector-ref (getter-with-setter (lambda (x i) (##sys#check-structure x 'u32vector 'u32vector-ref) (let ((len (##core#inline "C_u_i_u32vector_length" x))) (check-range i 0 len 'u32vector-ref) (##core#inline_allocate ("C_a_u_i_u32vector_ref" 4) x i))) u32vector-set! "(u32vector-ref v i)")) (define s32vector-ref (getter-with-setter (lambda (x i) (##sys#check-structure x 's32vector 's32vector-ref) (let ((len (##core#inline "C_u_i_s32vector_length" x))) (check-range i 0 len 's32vector-ref) (##core#inline_allocate ("C_a_u_i_s32vector_ref" 4) x i))) s32vector-set! "(s32vector-ref v i)")) (define f32vector-ref (getter-with-setter (lambda (x i) (##sys#check-structure x 'f32vector 'f32vector-ref) (let ((len (##core#inline "C_u_i_f32vector_length" x))) (check-range i 0 len 'f32vector-ref) (##core#inline_allocate ("C_a_u_i_f32vector_ref" 4) x i))) f32vector-set! "(f32vector-ref v i)")) (define f64vector-ref (getter-with-setter (lambda (x i) (##sys#check-structure x 'f64vector 'f64vector-ref) (let ((len (##core#inline "C_u_i_f64vector_length" x))) (check-range i 0 len 'f64vector-ref) (##core#inline_allocate ("C_a_u_i_f64vector_ref" 4) x i))) f64vector-set! "(f64vector-ref v i)")) ;;; Basic constructors: (let* ([ext-alloc (foreign-lambda* scheme-object ([int bytes]) "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 len ext?) (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)) (##sys#check-exact len 'make-u8vector) (let ((v (##sys#make-structure 'u8vector (alloc 'make-u8vector len ext?)))) (when (and ext? fin?) (set-finalizer! v ext-free)) (if (not init) v (begin (##sys#check-exact-interval init 0 #xff '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)) (##sys#check-exact len 'make-s8vector) (let ((v (##sys#make-structure 's8vector (alloc 'make-s8vector len ext?)))) (when (and ext? fin?) (set-finalizer! v ext-free)) (if (not init) v (begin (##sys#check-exact-interval init -128 127 '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)) (##sys#check-exact len 'make-u16vector) (let ((v (##sys#make-structure 'u16vector (alloc 'make-u16vector (##core#inline "C_fixnum_shift_left" len 1) ext?)))) (when (and ext? fin?) (set-finalizer! v ext-free)) (if (not init) v (begin (##sys#check-exact-interval init 0 #xffff '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)) (##sys#check-exact len 'make-s16vector) (let ((v (##sys#make-structure 's16vector (alloc 'make-s16vector (##core#inline "C_fixnum_shift_left" len 1) ext?)))) (when (and ext? fin?) (set-finalizer! v ext-free)) (if (not init) v (begin (##sys#check-exact-interval init -32768 32767 '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)) (##sys#check-exact len 'make-u32vector) (let ((v (##sys#make-structure 'u32vector (alloc 'make-u32vector (##core#inline "C_fixnum_shift_left" len 2) ext?)))) (when (and ext? fin?) (set-finalizer! v ext-free)) (if (not init) v (begin (##sys#check-exact init '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-s32vector (lambda (len #!optional (init #f) (ext? #f) (fin? #t)) (##sys#check-exact len 'make-s32vector) (let ((v (##sys#make-structure 's32vector (alloc 'make-s32vector (##core#inline "C_fixnum_shift_left" len 2) ext?)))) (when (and ext? fin?) (set-finalizer! v ext-free)) (if (not init) v (begin (##sys#check-exact init '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-f32vector (lambda (len #!optional (init #f) (ext? #f) (fin? #t)) (##sys#check-exact len 'make-f32vector) (let ((v (##sys#make-structure 'f32vector (alloc 'make-f32vector (##core#inline "C_fixnum_shift_left" len 2) ext?)))) (when (and ext? fin?) (set-finalizer! v ext-free)) (if (not init) v (begin (##sys#check-number init 'make-f32vector) (unless (##core#inline "C_blockp" init) (set! init (##core#inline_allocate ("C_a_i_fix_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)) (##sys#check-exact len 'make-f64vector) (let ((v (##sys#make-structure 'f64vector (alloc 'make-f64vector (##core#inline "C_fixnum_shift_left" len 3) ext?)))) (when (and ext? fin?) (set-finalizer! v ext-free)) (if (not init) v (begin (##sys#check-number init 'make-f64vector) (unless (##core#inline "C_blockp" init) (set! init (##core#inline_allocate ("C_a_i_fix_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 (##sys#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 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 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 (##sys#strip-syntax (cadr x))) (alloc? (pair? (cddr x))) (name (string->symbol (string-append (symbol->string tag) "->list")))) `(define (,name v) (##sys#check-structure v ',tag ',name) (let ((len (##core#inline ,(conc "C_u_i_" tag "_length") v))) (let loop ((i 0)) (if (fx>= i len) '() (cons ,(if alloc? `(##core#inline_allocate (,(conc "C_a_u_i_" tag "_ref") 4) v i) `(##core#inline ,(conc "C_u_i_" tag "_ref") v i)) (loop (fx+ i 1)) ) ) ) ) ) ) ))) (NNNvector->list u8vector) (NNNvector->list s8vector) (NNNvector->list u16vector) (NNNvector->list s16vector) (NNNvector->list u32vector #t) (NNNvector->list s32vector #t) (NNNvector->list f32vector #t) (NNNvector->list f64vector #t) ;;; Predicates: (define (u8vector? x) (##sys#structure? x 'u8vector)) (define (s8vector? x) (##sys#structure? x 's8vector)) (define (u16vector? x) (##sys#structure? x 'u16vector)) (define (s16vector? x) (##sys#structure? x 's16vector)) (define (u32vector? x) (##sys#structure? x 'u32vector)) (define (s32vector? x) (##sys#structure? x 's32vector)) (define (f32vector? x) (##sys#structure? x 'f32vector)) (define (f64vector? x) (##sys#structure? x 'f64vector)) ;; Catch-all predicate (define number-vector? ##sys#srfi-4-vector?) ;;; Accessing the packed bytevector: (declare (hide pack pack-copy unpack unpack-copy)) (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 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 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->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->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 '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) (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: (declare (hide subnvector)) (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 (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 (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-exact start 'read-u8vector!) (##sys#check-structure dest 'u8vector 'read-u8vector!) (when n (##sys#check-exact 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))) (##sys#read-string! n dest port start))) (define (read-u8vector #!optional n (p ##sys#standard-input)) (let ((str (##sys#read-string/port n p))) (##core#inline "C_string_to_bytevector" str) (##sys#make-structure 'u8vector str))) (register-feature! 'srfi-4) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/setup-download.import.c��������������������������������������������������������������0000644�0001750�0001750�00000020263�13052306546�017441� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from setup-download.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: setup-download.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file setup-download.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(f_209) static void C_ccall f_209(C_word c,C_word *av) C_noret; C_noret_decl(f_206) static void C_ccall f_206(C_word c,C_word *av) C_noret; C_noret_decl(f_203) static void C_ccall f_203(C_word c,C_word *av) C_noret; C_noret_decl(f_200) static void C_ccall f_200(C_word c,C_word *av) C_noret; C_noret_decl(f_212) static void C_ccall f_212(C_word c,C_word *av) C_noret; /* 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(331))){ C_save(t1); C_rereclaim2(331*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,5); lf[0]=C_h_intern(&lf[0],28,"\003sysregister-compiled-module"); lf[1]=C_h_intern(&lf[1],14,"setup-download"); lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022retrieve-extension\376\001\000\000!setup-download#retrieve-extension\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\020locate-egg/local\376\001\000\000\037setup-download#locate-egg/local\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016locate-" "egg/svn\376\001\000\000\035setup-download#locate-egg/svn\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017locate-egg/http\376\001\000\000\036setu" "p-download#locate-egg/http\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026gather-egg-information\376\001\000\000%setup-downlo" "ad#gather-egg-information\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017list-extensions\376\001\000\000\036setup-download#list-" "extensions\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027list-extension-versions\376\001\000\000&setup-download#list-extensi" "on-versions\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023temporary-directory\376\001\000\000\042setup-download#temporary-direc" "tory\376\377\016"); lf[3]=C_h_intern(&lf[3],4,"eval"); lf[4]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006import\376\003\000\000\002\376\001\000\000\006scheme\376\003\000\000\002\376\001\000\000\007chicken\376\003\000\000\002\376\001\000\000\007foreign\376\003\000\000\002\376\001\000\000\006extr" "as\376\003\000\000\002\376\001\000\000\007irregex\376\003\000\000\002\376\001\000\000\005posix\376\003\000\000\002\376\001\000\000\005utils\376\003\000\000\002\376\001\000\000\006srfi-1\376\003\000\000\002\376\001\000\000\017data-" "structures\376\003\000\000\002\376\001\000\000\003tcp\376\003\000\000\002\376\001\000\000\007srfi-13\376\003\000\000\002\376\001\000\000\007srfi-14\376\003\000\000\002\376\001\000\000\005files\376\003\000\000\002\376\001\000" "\000\011setup-api\376\377\016"); C_register_lf2(lf,5,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_200,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k207 in k204 in k201 in k198 */ static void C_ccall f_209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_209,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_212,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* setup-download.import.scm:18: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=lf[2]; av2[5]=C_SCHEME_END_OF_LIST; av2[6]=C_SCHEME_END_OF_LIST; tp(7,av2);}} /* k204 in k201 in k198 */ static void C_ccall f_206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_206,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_209,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* setup-download.import.scm:3: eval */ t3=C_fast_retrieve(lf[3]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k201 in k198 */ static void C_ccall f_203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_203,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_206,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k198 */ static void C_ccall f_200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_200,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_203,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k210 in k207 in k204 in k201 in k198 */ static void C_ccall f_212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_212,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[7] = { {"toplevel:setup_2ddownload_2eimport_2escm",(void*)C_toplevel}, {"f_209:setup_2ddownload_2eimport_2escm",(void*)f_209}, {"f_206:setup_2ddownload_2eimport_2escm",(void*)f_206}, {"f_203:setup_2ddownload_2eimport_2escm",(void*)f_203}, {"f_200:setup_2ddownload_2eimport_2escm",(void*)f_200}, {"f_212:setup_2ddownload_2eimport_2escm",(void*)f_212}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 4 o|replaced variables: 1 o|removed binding forms: 5 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| list 3 o|contracted procedure: k214 o|contracted procedure: k218 o|contracted procedure: k222 o|removed binding forms: 3 o|substituted constant variable: r215 o|substituted constant variable: r219 o|substituted constant variable: r215 o|substituted constant variable: r219 o|substituted constant variable: r223 o|removed binding forms: 5 */ /* end of file */ ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/feathers.1���������������������������������������������������������������������������0000644�0001750�0001750�00000003064�13052302315�014670� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������.\" dummy line .TH FEATHERS 1 "13 Aug 2008" .SH NAME feathers \- a simple source-level debugger for CHICKEN Scheme .SH SYNOPSIS feathers [OPTION ...] [PROGRAM ARGUMENTS ...] .SH DESCRIPTION .I feathers 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. 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 .B CHICKEN_DEBUGGER which holds a connection address of the form .B <ADDRESS>:<PORT> . .SH OPTIONS .TP .B \-help Shows a list of supported command-line options. .TP .B \-n Do not load the default startup file .B \.feathers .TP .B \-port PORT Select a different TCP port than the default (9999) .TP .B \-dir DIRECTORY Add .B DIRECTORY to the list of searched paths for locating source files .SH ENVIRONMENT\ VARIABLES .TP .B 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 .B localhost:9999 .SH DOCUMENTATION More information can be found in the .I CHICKEN\ User's\ Manual .SH BUGS Submit bug reports by e-mail to .I chicken-janitors@nongnu.org , preferrably using the .B chicken\-bug tool. .SH AUTHORS The CHICKEN Team .SH SEE ALSO .BR chicken-uninstall(1) .BR chicken-status(1) .BR chicken(1) .BR csc(1) .BR chicken-bug(1) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/runtime.c����������������������������������������������������������������������������0000644�0001750�0001750�00000727401�13052302367�014653� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* runtime.c - Runtime code for compiler generated executables ; ; Copyright (c) 2008-2017, 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 <errno.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> /* 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> #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_HEAP_SIZE DEFAULT_STACK_SIZE #define MINIMAL_HEAP_SIZE DEFAULT_STACK_SIZE #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 WEAK_TABLE_SIZE 997 #define WEAK_HASH_ITERATIONS 4 #define WEAK_HASH_DISPLACEMENT 7 #define WEAK_COUNTER_MASK 3 #define WEAK_COUNTER_MAX 2 #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 # define ALIGNMENT_HOLE_MARKER ((C_word)0xfffffffffffffffeL) # define FORWARDING_BIT_SHIFT 63 # define UWORD_FORMAT_STRING "0x%016lx" # define UWORD_COUNT_FORMAT_STRING "%lu" #else # define ALIGNMENT_HOLE_MARKER ((C_word)0xfffffffe) # define FORWARDING_BIT_SHIFT 31 # define UWORD_FORMAT_STRING "0x%08x" # define UWORD_COUNT_FORMAT_STRING "%u" #endif #ifdef C_LLP # define LONG_FORMAT_STRING "%lldf" #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 is_fptr(x) (((x) & C_GC_FORWARDING_BIT) != 0) #define ptr_to_fptr(x) ((((x) >> FORWARDING_BIT_SHIFT) & 1) | C_GC_FORWARDING_BIT | ((x) & ~1)) #define fptr_to_ptr(x) (((C_uword)(x) << FORWARDING_BIT_SHIFT) | ((x) & ~(C_GC_FORWARDING_BIT | 1))) #define C_check_flonum(x, w) if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) \ barf(C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR, w, x); #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); /* these could be shorter in unsafe mode: */ #define C_check_int(x, f, n, w) if(((x) & C_FIXNUM_BIT) != 0) n = 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 { double _m; \ f = C_flonum_magnitude(x); \ if(modf(f, &_m) != 0.0 || f < C_WORD_MIN || f > C_WORD_MAX) \ barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, w, x); \ else n = (C_word)f; \ } #ifdef BITWISE_UINT_ONLY #define C_check_uint(x, f, n, w) if(((x) & C_FIXNUM_BIT) != 0) n = 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 { double _m; \ f = C_flonum_magnitude(x); \ if(modf(f, &_m) != 0.0 || f < 0 || f > C_UWORD_MAX) \ barf(C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR, w, x); \ else n = (C_uword)f; \ } #else #define C_check_uint(x, f, n, w) if(((x) & C_FIXNUM_BIT) != 0) n = 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 { double _m; \ f = C_flonum_magnitude(x); \ if(modf(f, &_m) != 0.0 || f > C_UWORD_MAX) \ barf(C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR, w, x); \ else n = (C_uword)f; \ } #endif #ifdef C_SIXTY_FOUR #define C_limit_fixnum(n) ((n) & C_MOST_POSITIVE_FIXNUM) #else #define C_limit_fixnum(n) (n) #endif #define C_pte(name) pt[ i ].id = #name; pt[ i++ ].ptr = (void *)name; #ifndef SIGBUS # define SIGBUS 0 #endif /* Type definitions: */ 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 weak_table_entry_struct { C_word item, /* item weakly held (symbol) */ container; /* object holding reference to symbol, lowest 3 bits are */ } WEAK_TABLE_ENTRY; /* also used as a counter, saturated at 2 or more */ 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_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, int cln) = NULL; C_TLS int C_gui_mode = 0, C_abort_on_thread_exceptions, C_enable_repl, C_interrupts_enabled, C_disable_overflow_check, #ifdef C_COLLECT_ALL_SYMBOLS C_enable_gcweak = 1, #else C_enable_gcweak = 0, #endif 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, *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, 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; 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, *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, weak_table_randomization, 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 WEAK_TABLE_ENTRY *weak_item_table; 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 **profile_table = NULL; static C_TLS int pending_interrupts[ MAX_PENDING_INTERRUPTS ], pending_interrupts_count, handling_interrupts; /* 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 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 WEAK_TABLE_ENTRY *C_fcall lookup_weak_table_entry(C_word item, C_word container) 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_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 double compute_symbol_table_load(double *avg_bucket_len, int *total); static C_word C_fcall convert_string_to_number(C_char *str, int radix, C_word *fix, double *flo) C_regparm; static C_word C_fcall maybe_inexact_to_exact(C_word n) C_regparm; 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 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_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; 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; /* Allocate weak item table: */ if(C_enable_gcweak) { weak_item_table = (WEAK_TABLE_ENTRY *)C_calloc(WEAK_TABLE_SIZE, sizeof(WEAK_TABLE_ENTRY)); if(weak_item_table == NULL) return 0; } /* 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); initialize_symbol_table(); 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; live_finalizer_count = 0; allocated_finalizer_count = 0; current_module_name = NULL; current_module_handle = NULL; callback_continuation_level = 0; gc_ms = 0; (void)C_randomize(C_fix(time(NULL))); 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); return 1; } void *C_get_statistics(void) { static void *stats[ 8 ]; stats[ 0 ] = fromspace_start; stats[ 1 ] = C_fromspace_limit; stats[ 2 ] = NULL; stats[ 3 ] = NULL; stats[ 4 ] = C_stack_limit; stats[ 5 ] = stack_bottom; stats[ 6 ] = C_fromspace_top; stats[ 7 ] = NULL; 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) * 56); 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_divide); 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_quotient); C_pte(C_flonum_fraction); C_pte(C_flonum_rat); C_pte(C_expt); C_pte(C_number_to_string); C_pte(C_make_symbol); C_pte(C_string_to_symbol); 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); C_pte(C_make_tagged_pointer); C_pte(C_peek_signed_integer); C_pte(C_peek_unsigned_integer); C_pte(C_context_switch); C_pte(C_register_finalizer); C_pte(C_locative_ref); /* OBSOLETE */ C_pte(C_copy_closure); C_pte(C_dump_heap_state); C_pte(C_filter_heap_objects); /* 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 void C_delete_symbol_table(C_SYMBOL_TABLE *st) { C_SYMBOL_TABLE *stp, *prev = NULL; for(stp = symbol_table_list; stp != NULL; stp = stp->next) if(stp == st) { if(prev != NULL) prev->next = stp->next; else symbol_table_list = stp->next; return; } } C_regparm void C_set_symbol_table(C_SYMBOL_TABLE *st) { symbol_table = st; } 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: */ interrupt_hook_symbol = C_intern2(C_heaptop, C_text("\003sysinterrupt-hook")); error_hook_symbol = C_intern2(C_heaptop, C_text("\003syserror-hook")); callback_continuation_stack_symbol = C_intern3(C_heaptop, C_text("\003syscallback-continuation-stack"), C_SCHEME_END_OF_LIST); pending_finalizers_symbol = C_intern2(C_heaptop, C_text("\003syspending-finalizers")); current_thread_symbol = C_intern3(C_heaptop, C_text("\003syscurrent-thread"), 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" " -:w enable garbage collection of unused symbols\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 'w': C_enable_gcweak = 1; 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. */ int argcount = C_temporary_stack_bottom - C_temporary_stack; C_word *p = C_alloc(argcount); C_memcpy(p, C_temporary_stack, argcount * 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); if(C_immediatep(err)) panic(C_text("`##sys#error-hook' is not defined - the `library' unit was probably not linked with this executable")); 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_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_NO_INPUT_PORT_ERROR: msg = C_text("bad argument type - not an input-port"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_OUTPUT_PORT_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; default: panic(C_text("illegal internal error code")); } av = C_alloc(c + 4); if(!C_immediatep(err)) { 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); } else panic(msg); } /* Hook for setting breakpoints */ C_word C_dbg_hook(C_word dummy) { return dummy; } /* Timing routines: */ C_regparm double C_fcall C_milliseconds(void) { #ifdef C_NONUNIX if(CLOCKS_PER_SEC == 1000) return clock(); else return C_floor(((double)clock() / (double)CLOCKS_PER_SEC) * 1000); #else struct timeval tv; if(C_gettimeofday(&tv, NULL) == -1) return 0; else return C_floor(((double)tv.tv_sec - C_startup_time_seconds) * 1000.0 + 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 double C_fcall C_cpu_milliseconds(void) { #if defined(C_NONUNIX) || defined(__CYGWIN__) if(CLOCKS_PER_SEC == 1000) return clock(); else return C_floor(((double)clock() / (double)CLOCKS_PER_SEC) * 1000); #else struct rusage ru; if(C_getrusage(RUSAGE_SELF, &ru) == -1) return 0; else return C_floor(((double)ru.ru_utime.tv_sec + ru.ru_stime.tv_sec) * 1000 + ((double)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_mutate2(&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_mutate2(&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); 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(2), 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_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, if looked up symbol is in nursery. also: allocate in static memory. */ 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); 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_mutate2(&C_block_item(s,0), value); 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; } 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; int keyw = C_header_size(string) > 0 && *((char *)C_data_pointer(string)) == 0; 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, keyw ? sym : C_SCHEME_UNBOUND); /* keyword? */ 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 */ bucket = C_a_bucket(ptr, sym, b2); /* create new bucket */ 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_mutate2(&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); } /* 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(void) { barf(C_STACK_OVERFLOW_ERROR, NULL); } void C_stack_overflow_with_loc(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); } /* 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_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_regparm C_word C_fcall C_swigmpointer(C_word **ptr, void *mp, void *sdata) { C_word *p = *ptr, *p0 = p; *(p++) = C_SWIG_POINTER_TAG; *((void **)p) = mp; *((void **)p + 1) = sdata; *ptr = p + 2; 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; } /* Initiate garbage collection: */ void C_save_and_reclaim(void *trampoline, int n, C_word *av) { C_word new_size = nmax(1UL << (int)ceil(log2(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, weakn = 0; C_uword count, bytes; C_word *p, **msp, bucket, last, item, container; C_header h; C_byte *tmp, *start; LF_LIST *lfn; C_SCHEME_BLOCK *bp; C_GC_ROOT *gcrp; WEAK_TABLE_ENTRY *wep; 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 = (C_proc)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; if(C_enable_gcweak) weak_table_randomization = rand(); /* 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) { --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(C_enable_gcweak) { /* Check entries in weak item table and recover items ref'd only once, which are unbound symbols and have empty property-lists: */ weakn = 0; wep = weak_item_table; for(i = 0; i < WEAK_TABLE_SIZE; ++i, ++wep) if(wep->item != 0) { if((wep->container & WEAK_COUNTER_MAX) == 0 && /* counter saturated? (more than 1) */ is_fptr((item = C_block_header(wep->item)))) { /* and forwarded/collected */ item = fptr_to_ptr(item); /* recover obj from forwarding ptr */ container = wep->container & ~WEAK_COUNTER_MASK; if(C_header_bits(item) == C_SYMBOL_TYPE && C_block_item(item, 0) == C_SCHEME_UNBOUND && C_block_item(item, 2) == C_SCHEME_END_OF_LIST) { ++weakn; C_set_block_item(container, 0, C_SCHEME_UNDEFINED); /* clear reference to item */ } } wep->item = wep->container = 0; } /* Remove empty buckets in symbol table: */ 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)) if(C_block_item(bucket,0) == C_SCHEME_UNDEFINED) { if(last) C_set_block_item(last, 1, C_block_item(bucket,1)); else stp->table[ i ] = C_block_item(bucket,1); } else last = bucket; } } } } if(gc_mode == GC_MAJOR) { 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); if(gc_mode == GC_MAJOR && C_enable_gcweak && weakn) C_dbg("GC", C_text("%d recoverable weakly held items found\n"), weakn); C_dbg("GC", C_text("%d locatives (from %d)\n"), locative_table_count, locative_table_size); } 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(&interrupt_hook_symbol); mark(&error_hook_symbol); mark(&callback_continuation_stack_symbol); mark(&pending_finalizers_symbol); mark(&current_thread_symbol); } C_regparm void C_fcall really_mark(C_word *x) { C_word val, item; C_uword n, bytes; C_header h; C_SCHEME_BLOCK *p, *p2; WEAK_TABLE_ENTRY *wep; val = *x; if (!C_in_stackp(val) && !C_in_heapp(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) */ /* Increase counter (saturated at 2) if weakly held item (someone pointed to this object): */ if(C_enable_gcweak && (h & C_HEADER_TYPE_BITS) == C_SYMBOL_TYPE && (wep = lookup_weak_table_entry(val, 0)) != NULL) { if((wep->container & WEAK_COUNTER_MAX) == 0) ++wep->container; } if(is_fptr(h)) { val = fptr_to_ptr(h); /* When we marked the bucket, it may have already referred to * the moved symbol instead of its original location. Re-check: */ if(C_enable_gcweak && (C_block_header(val) & C_HEADER_TYPE_BITS) == C_SYMBOL_TYPE && (wep = lookup_weak_table_entry(*x, 0)) != NULL) { if((wep->container & WEAK_COUNTER_MAX) == 0) ++wep->container; } 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); /* See above: might happen twice */ if(C_enable_gcweak && (C_block_header(val) & C_HEADER_TYPE_BITS) == C_SYMBOL_TYPE && /* Check both the original and intermediate location: */ ((wep = lookup_weak_table_entry((C_word)p, 0)) != NULL || (wep = lookup_weak_table_entry(*x, 0)) != NULL)) { if((wep->container & WEAK_COUNTER_MAX) == 0) ++wep->container; } 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 if(C_enable_gcweak && (h & C_HEADER_TYPE_BITS) == C_BUCKET_TYPE) { item = C_block_item(val,0); /* Lookup item in weak item table or add entry: */ if((wep = lookup_weak_table_entry(item, (C_word)p2)) != NULL) { /* If item is already forwarded, then set count to 2: */ if(is_fptr(C_block_header(item))) wep->container |= 2; } } 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, item, last; C_header h; C_byte *tmp, *start; LF_LIST *lfn; C_SCHEME_BLOCK *bp; WEAK_TABLE_ENTRY *wep; 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; 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); } /* Clear weakly held items: */ if(C_enable_gcweak) { wep = weak_item_table; for(i = 0; i < WEAK_TABLE_SIZE; ++i, ++wep) wep->item = wep->container = 0; } /* 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); } 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(&interrupt_hook_symbol); remark(&error_hook_symbol); remark(&callback_continuation_stack_symbol); remark(&pending_finalizers_symbol); remark(&current_thread_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; WEAK_TABLE_ENTRY *wep; val = *x; if (!C_in_stackp(val) && !C_in_heapp(val) && !C_in_new_heapp(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; } C_regparm WEAK_TABLE_ENTRY *C_fcall lookup_weak_table_entry(C_word item, C_word container) { C_uword key = (C_uword)item >> 2, disp = 0, n; WEAK_TABLE_ENTRY *wep; for(n = 0; n < WEAK_HASH_ITERATIONS; ++n) { key = (key + disp + weak_table_randomization) % WEAK_TABLE_SIZE; wep = &weak_item_table[ key ]; if(wep->item == 0) { if(container != 0) { /* Add fresh entry: */ wep->item = item; wep->container = container; return wep; } return NULL; } else if(wep->item == item) return wep; else disp += WEAK_HASH_DISPLACEMENT; } return NULL; } 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; /* 18 <=> 2 headers + trampoline + 1 extra slot + 9 for interning + 5 for string */ p = C_alloc(18 + 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; } key = tb->raw; if (key == NULL) return; /* May happen while in C_trace() */ /* We could also just hash the pointer but that's a bit trickier */ 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 = (PROFILE_BUCKET *)C_malloc(sizeof(PROFILE_BUCKET)); if(b == NULL) panic(C_text("out of memory - cannot allocate profile table-bucket")); 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) { if(show_trace) { C_fputs(name, C_stderr); C_fputc('\n', C_stderr); } 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; trace_buffer_top->thread = C_block_item(current_thread_symbol, 0); ++trace_buffer_top; } C_regparm C_word C_fcall C_emit_trace_info2(char *raw, C_word x, C_word y, C_word t) { 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_mutate2(&C_block_item(buffer, p++), (C_word)ptr->raw); /* subject to GC */ C_mutate2(&C_block_item(buffer, p++), ptr->cooked1); C_mutate2(&C_block_item(buffer, p++), ptr->cooked2); C_mutate2(&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 toplevel %s...\n"), name); } 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 (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_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 * 3 + 8 ], /* 3 flonums, 1 vector of 7 elements */ *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, "get-environment-variable", 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_fudge(C_word fudge_factor) { int i, j; double tgc; switch(fudge_factor) { case C_fix(1): return C_SCHEME_END_OF_FILE; /* eof object */ case C_fix(2): /* get time */ panic(C_text("(##sys#fudge 2) [get time] not implemented")); case C_fix(3): /* 64-bit system? */ #ifdef C_SIXTY_FOUR return C_SCHEME_TRUE; #else return C_SCHEME_FALSE; #endif case C_fix(4): /* is this a console application? */ return C_mk_bool(!C_gui_mode); case C_fix(5): /* is this a GUI/console or Windows-GUI application? (silly) */ if(C_gui_mode) { #ifdef _WIN32 return C_fix(1); #else return C_SCHEME_FALSE; #endif } return C_fix(0); case C_fix(6): /* milliseconds CPU */ panic(C_text("(##sys#fudge 6) [current CPU milliseconds] not implemented")); case C_fix(7): /* wordsize */ return C_fix(sizeof(C_word)); case C_fix(8): /* words needed for double */ return C_fix(C_wordsperdouble(1)); case C_fix(9): /* latency */ return C_fix(last_interrupt_latency); case C_fix(10): /* clocks per sec */ return C_fix(CLOCKS_PER_SEC); case C_fix(11): /* not a unix system? */ #if defined(C_NONUNIX) || defined(__CYGWIN__) return C_SCHEME_FALSE; #else return C_SCHEME_TRUE; #endif case C_fix(12): /* tty forced? */ return C_mk_bool(fake_tty_flag); case C_fix(13): /* debug mode */ return C_mk_bool(debug_mode); case C_fix(14): /* interrupts enabled? */ return C_mk_bool(C_interrupts_enabled); case C_fix(15): /* symbol-gc enabled? */ return C_mk_bool(C_enable_gcweak); case C_fix(16): /* milliseconds (wall clock) */ panic(C_text("(##sys#fudge 16) [current wall clock milliseconds] not implemented")); case C_fix(17): /* fixed heap? */ return(C_mk_bool(C_heap_size_is_fixed)); case C_fix(18): /* stack direction */ return(C_fix(C_STACK_GROWS_DOWNWARD)); case C_fix(19): /* number of locatives */ for(i = j = 0; i < locative_table_count; ++i) if(locative_table[ i ] != C_SCHEME_UNDEFINED) ++j; return C_fix(j); case C_fix(20): /* unused */ return C_SCHEME_FALSE; case C_fix(21): /* largest fixnum */ return C_fix(C_MOST_POSITIVE_FIXNUM); case C_fix(22): /* does this process use a private egg-repository? */ return C_mk_bool(private_repository != NULL); case C_fix(23): /* seconds since process startup */ return C_fix(C_startup_time_seconds); case C_fix(24): /* dynamic loading available? */ #ifdef NO_DLOAD2 return C_SCHEME_FALSE; #else return C_SCHEME_TRUE; #endif case C_fix(25): /* REPL on error? XXX Is this used anywhere? */ return C_mk_bool(C_enable_repl); case C_fix(26): /* number of untriggered finalizers */ return C_fix(live_finalizer_count); case C_fix(27): /* total number of finalizers used and unused */ return C_fix(allocated_finalizer_count); case C_fix(28): /* are procedure-tabled enabled? */ #ifdef C_ENABLE_PTABLES return C_SCHEME_TRUE; #else return C_SCHEME_FALSE; #endif case C_fix(29): /* size of ring-buffer used to hold trace entries */ return C_fix(C_trace_buffer_size); case C_fix(30): /* unused */ return C_SCHEME_FALSE; case C_fix(31): /* GC time since last invocation */ tgc = timer_accumulated_gc_ms; timer_accumulated_gc_ms = 0; return C_fix(tgc); case C_fix(32): /* are GC-hooks enabled? */ #ifdef C_GC_HOOKS return C_SCHEME_TRUE; #else return C_SCHEME_FALSE; #endif case C_fix(33): /* return process-ID */ return C_fix(C_getpid()); case C_fix(34): /* effective maximum for procedure arguments */ return C_fix(stack_size / 2); /* An educated guess :) */ case C_fix(35): /* unused */ /* used to be apply-hook indicator */ return C_SCHEME_FALSE; case C_fix(36): /* toggle debug mode */ debug_mode = !debug_mode; return C_mk_bool(debug_mode); case C_fix(37): /* heap-dump enabled? */ return C_mk_bool(dump_heap_on_exit); case C_fix(38): /* SVN revision of built sources */ #ifdef C_SVN_REVISION return C_fix(C_SVN_REVISION); #else return C_fix(0); #endif case C_fix(39): /* is this a cross-chicken? */ #if defined(C_CROSS_CHICKEN) && C_CROSS_CHICKEN return C_SCHEME_TRUE; #else return C_SCHEME_FALSE; #endif case C_fix(40): /* many arguments supported? */ return C_SCHEME_TRUE; case C_fix(41): /* major CHICKEN version */ return C_fix(C_MAJOR_VERSION); case C_fix(42): /* binary version number */ #ifdef C_BINARY_VERSION return C_fix(C_BINARY_VERSION); #else return C_fix(0); #endif case C_fix(43): /* minor CHICKEN version */ return C_fix(C_MINOR_VERSION); case C_fix(44): /* whether debugger is active */ return C_mk_bool(C_debugging); case C_fix(45): /* Whether we're currently profiling */ return C_mk_bool(profiling); default: return C_SCHEME_UNDEFINED; } } C_regparm void C_fcall C_paranoid_check_for_interrupt(void) { if(--C_timer_interrupt_counter <= 0) C_raise_interrupt(C_TIMER_INTERRUPT_NUMBER); } 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_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_exactp(C_word x) { if(x & C_FIXNUM_BIT) return C_SCHEME_TRUE; if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "exact?", x); return C_SCHEME_FALSE; } C_regparm C_word C_fcall C_i_inexactp(C_word x) { if(x & C_FIXNUM_BIT) return C_SCHEME_FALSE; if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "inexact?", x); return C_SCHEME_TRUE; } 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)); if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "zero?", x); return C_mk_bool(C_flonum_magnitude(x) == 0.0); } /* I */ C_regparm C_word C_fcall C_u_i_zerop(C_word x) { if(x & C_FIXNUM_BIT) return C_mk_bool(x == C_fix(0)); return C_mk_bool(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_mk_bool(C_unfix(x) > 0); if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "positive?", x); return C_mk_bool(C_flonum_magnitude(x) > 0.0); } /* I */ C_regparm C_word C_fcall C_u_i_positivep(C_word x) { if(x & C_FIXNUM_BIT) return C_mk_bool(C_unfix(x) > 0); return C_mk_bool(C_flonum_magnitude(x) > 0.0); } C_regparm C_word C_fcall C_i_negativep(C_word x) { if(x & C_FIXNUM_BIT) return C_mk_bool(C_unfix(x) < 0); if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "negative?", x); return C_mk_bool(C_flonum_magnitude(x) < 0.0); } /* I */ C_regparm C_word C_fcall C_u_i_negativep(C_word x) { if(x & C_FIXNUM_BIT) return C_mk_bool(C_unfix(x) < 0); return C_mk_bool(C_flonum_magnitude(x) < 0.0); } C_regparm C_word C_fcall C_i_evenp(C_word x) { double val, dummy; if(x & C_FIXNUM_BIT) return C_mk_nbool(x & 0x02); if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "even?", x); 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); return C_mk_bool(fmod(val, 2.0) == 0.0); } /* I */ C_regparm C_word C_fcall C_u_i_evenp(C_word x) { if(x & C_FIXNUM_BIT) return C_mk_nbool(x & 0x02); return C_mk_bool(fmod(C_flonum_magnitude(x), 2.0) == 0.0); } C_regparm C_word C_fcall C_i_oddp(C_word x) { double val, dummy; if(x & C_FIXNUM_BIT) return C_mk_bool(x & 0x02); if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "odd?", x); 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); return C_mk_bool(fmod(val, 2.0) != 0.0); } /* I */ C_regparm C_word C_fcall C_u_i_oddp(C_word x) { if(x & C_FIXNUM_BIT) return C_mk_bool(x & 0x02); return C_mk_bool(fmod(C_flonum_magnitude(x), 2.0) != 0.0); } 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_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_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(lst) != 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 maybe_inexact_to_exact(C_word n) { double m; C_word r; if(modf(C_flonum_magnitude(n), &m) == 0.0) { r = (C_word)m; if(r == m && C_fitsinfixnump(r)) return C_fix(r); } return C_SCHEME_FALSE; } C_regparm C_word C_fcall C_i_inexact_to_exact(C_word n) { C_word r; if(n & C_FIXNUM_BIT) return n; else if(C_immediatep(n) || C_block_header(n) != C_FLONUM_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "inexact->exact", n); r = maybe_inexact_to_exact(n); if (r != C_SCHEME_FALSE) return r; barf(C_CANT_REPRESENT_INEXACT_ERROR, "inexact->exact", n); return 0; } 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_mutate2(&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_mutate2(&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_mutate2(&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_a_i_abs(C_word **a, int c, C_word x) { if(x & C_FIXNUM_BIT) return C_fix(labs(C_unfix(x))); if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "abs", x); return C_flonum(a, fabs(C_flonum_magnitude(x))); } C_regparm C_word C_fcall C_a_i_bitwise_and(C_word **a, int c, C_word n1, C_word n2) { double f1, f2; C_uword nn1, nn2; C_check_uint(n1, f1, nn1, "bitwise-and"); C_check_uint(n2, f2, nn2, "bitwise-and"); nn1 = C_limit_fixnum(nn1 & nn2); if(C_ufitsinfixnump(nn1)) return C_fix(nn1); else return C_flonum(a, nn1); } C_regparm C_word C_fcall C_a_i_bitwise_ior(C_word **a, int c, C_word n1, C_word n2) { double f1, f2; C_uword nn1, nn2; C_check_uint(n1, f1, nn1, "bitwise-ior"); C_check_uint(n2, f2, nn2, "bitwise-ior"); nn1 = C_limit_fixnum(nn1 | nn2); if(C_ufitsinfixnump(nn1)) return C_fix(nn1); else return C_flonum(a, nn1); } C_regparm C_word C_fcall C_a_i_bitwise_xor(C_word **a, int c, C_word n1, C_word n2) { double f1, f2; C_uword nn1, nn2; C_check_uint(n1, f1, nn1, "bitwise-xor"); C_check_uint(n2, f2, nn2, "bitwise-xor"); nn1 = C_limit_fixnum(nn1 ^ nn2); if(C_ufitsinfixnump(nn1)) return C_fix(nn1); else return C_flonum(a, nn1); } C_regparm C_word C_fcall C_i_bit_setp(C_word n, C_word i) { double f1; C_uword nn1; int index; if((i & C_FIXNUM_BIT) == 0) barf(C_BAD_ARGUMENT_TYPE_NO_FIXNUM_ERROR, "bit-set?", i); index = C_unfix(i); if(index < 0 || index >= C_WORD_SIZE) barf(C_OUT_OF_RANGE_ERROR, "bit-set?", n, i); C_check_uint(n, f1, nn1, "bit-set?"); return C_mk_bool((nn1 & (1 << index)) != 0); } C_regparm C_word C_fcall C_a_i_bitwise_not(C_word **a, int c, C_word n) { double f; C_uword nn; C_check_uint(n, f, nn, "bitwise-not"); nn = C_limit_fixnum(~nn); if(C_ufitsinfixnump(nn)) return C_fix(nn); else return C_flonum(a, nn); } C_regparm C_word C_fcall C_a_i_arithmetic_shift(C_word **a, int c, C_word n1, C_word n2) { C_word nn; C_uword unn; C_word s; int sgn = 1; if((n1 & C_FIXNUM_BIT) != 0) { nn = C_unfix(n1); if((sgn = nn < 0 ? -1 : 1) >= 0) unn = nn; } else if(C_immediatep(n1) || C_block_header(n1) != C_FLONUM_TAG) barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "arithmetic-shift", n1); else { double m, f; f = C_flonum_magnitude(n1); if(C_isnan(f) || C_isinf(f) || C_modf(f, &m) != 0.0) barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "arithmetic-shift", n1); if(f < C_WORD_MIN || f > C_UWORD_MAX) barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "arithmetic-shift", n1); else if(f < 0) { if(f > C_WORD_MAX) barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "arithmetic-shift", n1); else { sgn = -1; nn = (C_word)f; } } else if(f > C_WORD_MAX) unn = (C_uword)f; else { nn = (C_word)f; sgn = -1; } } if((n2 & C_FIXNUM_BIT) != 0) s = C_unfix(n2); else barf(C_BAD_ARGUMENT_TYPE_NO_FIXNUM_ERROR, "arithmetic-shift", n2); if(sgn < 0) { if(s < 0) nn >>= -s; else nn = (C_word)((C_uword)nn << s); if(C_fitsinfixnump(nn)) return C_fix(nn); else return C_flonum(a, nn); } else { if(s < 0) unn >>= -s; else unn <<= s; if(C_ufitsinfixnump(unn)) return C_fix(unn); else return C_flonum(a, unn); } } /* 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_exact_2(C_word x, C_word loc) { if((x & C_FIXNUM_BIT) == 0) { 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_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_FLONUM_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((x & C_FIXNUM_BIT) == 0 && (C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG)) { 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_immediatep(x) || C_block_header(x) != C_SYMBOL_TAG) { 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_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 input, C_word open, C_word loc) { int inp; if(C_immediatep(x) || C_header_bits(x) != C_PORT_TYPE) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_PORT_ERROR, NULL, x); } inp = C_block_item(x, 1) == C_SCHEME_TRUE; /* slot #1: I/O flag */ switch(input) { case C_SCHEME_TRUE: if(!inp) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_INPUT_PORT_ERROR, NULL, x); } break; case C_SCHEME_FALSE: if(inp) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_OUTPUT_PORT_ERROR, NULL, x); } break; /* any other value: omit direction check */ } if(open == C_SCHEME_TRUE) { if(C_block_item(x, 8) != C_SCHEME_FALSE) { /* slot #8: closed flag */ 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_SWIG_POINTER_TYPE && (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_scheme_or_c_pointer_argumentp(C_word x) { if(C_immediatep(x) || (C_header_bits(x) != C_SWIG_POINTER_TYPE && (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_integer_argumentp(C_word x) { double m; if((x & C_FIXNUM_BIT) != 0) return x; if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { m = C_flonum_magnitude(x); if(m >= C_WORD_MIN && m <= C_WORD_MAX) return x; } barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, NULL, x); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_foreign_integer64_argumentp(C_word x) { double m, r; if((x & C_FIXNUM_BIT) != 0) return x; if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { m = C_flonum_magnitude(x); if(m >= C_S64_MIN && m <= C_S64_MAX && C_modf(m, &r) == 0.0) return x; } barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, NULL, x); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_foreign_unsigned_integer_argumentp(C_word x) { double m ,r; if((x & C_FIXNUM_BIT) != 0) return x; if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { m = C_flonum_magnitude(x); if(m >= 0 && m <= C_UWORD_MAX && C_modf(m, &r) == 0.0) return x; } barf(C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR, NULL, x); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_foreign_unsigned_integer64_argumentp(C_word x) { double m, r; if((x & C_FIXNUM_BIT) != 0) return x; if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { m = C_flonum_magnitude(x); if(m >= 0 && m <= C_U64_MAX && C_modf(m, &r) == 0.0) return x; } barf(C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR, NULL, x); return C_SCHEME_UNDEFINED; } /* 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_with_loc("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(3), 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_with_loc("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(4), 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(4), 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); } void C_ccall C_times(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], x, y, iresult = C_fix(1); double fresult; C_alloc_flonum; c -= 2; av += 2; while(c--) { x = *(av++); if(x & C_FIXNUM_BIT) { y = C_i_o_fixnum_times(iresult, x); if(y == C_SCHEME_FALSE) { fresult = (double)C_unfix(iresult) * (double)C_unfix(x); goto flonum_result; } else iresult = y; } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { fresult = (double)C_unfix(iresult) * C_flonum_magnitude(x); goto flonum_result; } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "*", x); } C_kontinue(k, iresult); flonum_result: while(c--) { x = *(av++); if(x & C_FIXNUM_BIT) fresult *= (double)C_unfix(x); else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) fresult *= C_flonum_magnitude(x); else barf(C_BAD_ARGUMENT_TYPE_ERROR, "*", x); } C_kontinue_flonum(k, fresult); } C_regparm C_word C_fcall C_2_times(C_word **ptr, C_word x, C_word y) { C_word iresult; if(x & C_FIXNUM_BIT) { if(y & C_FIXNUM_BIT) { iresult = C_i_o_fixnum_times(x, y); if(iresult == C_SCHEME_FALSE) return C_flonum(ptr, (double)C_unfix(x) * (double)C_unfix(y)); else return iresult; } else if(!C_immediatep(y) && C_block_header(y) == C_FLONUM_TAG) return C_flonum(ptr, (double)C_unfix(x) * C_flonum_magnitude(y)); else barf(C_BAD_ARGUMENT_TYPE_ERROR, "*", y); } else if(!C_immediatep(x) && 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) && C_block_header(y) == C_FLONUM_TAG) return C_flonum(ptr, C_flonum_magnitude(x) * C_flonum_magnitude(y)); else barf(C_BAD_ARGUMENT_TYPE_ERROR, "*", y); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "*", x); /* shutup compiler */ return C_flonum(ptr, 0.0/0.0); } void C_ccall C_plus(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], x, y, iresult = C_fix(0); double fresult; C_alloc_flonum; c -= 2; av += 2; while(c--) { x = *(av++); if(x & C_FIXNUM_BIT) { y = C_i_o_fixnum_plus(iresult, x); if(y == C_SCHEME_FALSE) { fresult = (double)C_unfix(iresult) + (double)C_unfix(x); goto flonum_result; } else iresult = y; } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { fresult = (double)C_unfix(iresult) + C_flonum_magnitude(x); goto flonum_result; } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "+", x); } C_kontinue(k, iresult); flonum_result: while(c--) { x = *(av++); if(x & C_FIXNUM_BIT) fresult += (double)C_unfix(x); else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) fresult += C_flonum_magnitude(x); else barf(C_BAD_ARGUMENT_TYPE_ERROR, "+", x); } C_kontinue_flonum(k, fresult); } C_regparm C_word C_fcall C_2_plus(C_word **ptr, C_word x, C_word y) { C_word iresult; if(x & C_FIXNUM_BIT) { if(y & C_FIXNUM_BIT) { iresult = C_i_o_fixnum_plus(x, y); if(iresult == C_SCHEME_FALSE) return C_flonum(ptr, (double)C_unfix(x) + (double)C_unfix(y)); else return iresult; } else if(!C_immediatep(y) && C_block_header(y) == C_FLONUM_TAG) return C_flonum(ptr, (double)C_unfix(x) + C_flonum_magnitude(y)); else barf(C_BAD_ARGUMENT_TYPE_ERROR, "+", y); } else if(!C_immediatep(x) && 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) && C_block_header(y) == C_FLONUM_TAG) return C_flonum(ptr, C_flonum_magnitude(x) + C_flonum_magnitude(y)); else barf(C_BAD_ARGUMENT_TYPE_ERROR, "+", y); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "+", x); /* shutup compiler */ return C_flonum(ptr, 0.0/0.0); } void C_ccall C_minus(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], x, y, n1, iresult; double fresult; int ff = 0; C_alloc_flonum; if(c < 3) C_bad_min_argc(c, 3); n1 = av[ 2 ]; if(n1 & C_FIXNUM_BIT) iresult = n1; else if(!C_immediatep(n1) && C_block_header(n1) == C_FLONUM_TAG) { fresult = C_flonum_magnitude(n1); ff = 1; } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "-", n1); if(c == 3) { if(!ff) { C_kontinue(k, C_fix(-C_unfix(n1))); } else { C_kontinue_flonum(k, -fresult); } } c -= 3; av += 3; if(ff) goto flonum_result; while(c--) { x = *(av++); if(x & C_FIXNUM_BIT) { y = C_i_o_fixnum_difference(iresult, x); if(y == C_SCHEME_FALSE) { fresult = (double)C_unfix(iresult) - (double)C_unfix(x); goto flonum_result; } else iresult = y; } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { fresult = (double)C_unfix(iresult) - C_flonum_magnitude(x); goto flonum_result; } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "-", x); } C_kontinue(k, iresult); flonum_result: while(c--) { x = *(av++); if(x & C_FIXNUM_BIT) fresult -= (double)C_unfix(x); else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) fresult -= C_flonum_magnitude(x); else barf(C_BAD_ARGUMENT_TYPE_ERROR, "-", x); } C_kontinue_flonum(k, fresult); } C_regparm C_word C_fcall C_2_minus(C_word **ptr, C_word x, C_word y) { C_word iresult; if(x & C_FIXNUM_BIT) { if(y & C_FIXNUM_BIT) { iresult = C_i_o_fixnum_difference(x, y); if(iresult == C_SCHEME_FALSE) return C_flonum(ptr, (double)C_unfix(x) - (double)C_unfix(y)); else return iresult; } else if(!C_immediatep(y) && C_block_header(y) == C_FLONUM_TAG) return C_flonum(ptr, (double)C_unfix(x) - C_flonum_magnitude(y)); else barf(C_BAD_ARGUMENT_TYPE_ERROR, "-", y); } else if(!C_immediatep(x) && 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) && C_block_header(y) == C_FLONUM_TAG) return C_flonum(ptr, C_flonum_magnitude(x) - C_flonum_magnitude(y)); else barf(C_BAD_ARGUMENT_TYPE_ERROR, "-", y); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "-", x); /* shutup compiler */ return C_flonum(ptr, 0.0/0.0); } void C_ccall C_divide(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], n1, n2, iresult, n3; int fflag; double fresult, f2; C_alloc_flonum; if(c < 3) C_bad_min_argc(c, 3); n1 = av[ 2 ]; if(n1 & C_FIXNUM_BIT) { iresult = C_unfix(n1); fflag = 0; } else if(!C_immediatep(n1) && C_block_header(n1) == C_FLONUM_TAG) { fresult = C_flonum_magnitude(n1); fflag = 1; } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "/", n1); if(c == 3) { if(fflag) { if(fresult == 0) barf(C_DIVISION_BY_ZERO_ERROR, "/"); fresult = 1.0 / fresult; } else { if(iresult == 0) barf(C_DIVISION_BY_ZERO_ERROR, "/"); else if(iresult == 1) C_kontinue(k, C_fix(1)); fresult = 1.0 / (double)iresult; fflag = 1; } goto cont; } c -= 3; av += 3; while(c--) { n1 = *(av++); if(n1 & C_FIXNUM_BIT) { if(fflag) { if((n1 = C_unfix(n1)) == 0) barf(C_DIVISION_BY_ZERO_ERROR, "/"); fresult /= n1; } else { if((n2 = C_unfix(n1)) == 0) barf(C_DIVISION_BY_ZERO_ERROR, "/"); n3 = iresult / n2; if((fresult = (double)iresult / (double)n2) != n3) fflag = 1; else iresult = n3; } } else if(!C_immediatep(n1) && C_block_header(n1) == C_FLONUM_TAG) { if(fflag) { if((f2 = C_flonum_magnitude(n1)) == 0) barf(C_DIVISION_BY_ZERO_ERROR, "/"); fresult /= f2; } else { fflag = 1; if((f2 = C_flonum_magnitude(n1)) == 0) barf(C_DIVISION_BY_ZERO_ERROR, "/"); fresult = (double)iresult / f2; } } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "/", n1); } cont: if(fflag) { C_kontinue_flonum(k, fresult); } else n1 = C_fix(iresult); C_kontinue(k, n1); } C_regparm C_word C_fcall C_2_divide(C_word **ptr, C_word x, C_word y) { C_word iresult; double fresult; int fflag = 0; if(x & C_FIXNUM_BIT) { if(y & C_FIXNUM_BIT) { if((iresult = C_unfix(y)) == 0) barf(C_DIVISION_BY_ZERO_ERROR, "/"); fresult = (double)C_unfix(x) / (double)iresult; iresult = C_unfix(x) / iresult; } else if(!C_immediatep(y) && C_block_header(y) == C_FLONUM_TAG) { if((fresult = C_flonum_magnitude(y)) == 0.0) barf(C_DIVISION_BY_ZERO_ERROR, "/"); fresult = (double)C_unfix(x) / fresult; fflag = 1; } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "/", y); } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { fflag = 1; if(y & C_FIXNUM_BIT) { fresult = C_flonum_magnitude(x); if((iresult = C_unfix(y)) == 0) barf(C_DIVISION_BY_ZERO_ERROR, "/"); fresult = fresult / (double)iresult; } else if(!C_immediatep(y) && C_block_header(y) == C_FLONUM_TAG) { if((fresult = C_flonum_magnitude(y)) == 0.0) barf(C_DIVISION_BY_ZERO_ERROR, "/"); fresult = C_flonum_magnitude(x) / fresult; } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "/", y); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "/", x); if(fflag || (double)iresult != fresult) return C_flonum(ptr, fresult); else return C_fix(iresult); } void C_ccall C_nequalp(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], x, i2, f, fflag, ilast; double flast, f2; c -= 2; f = 1; av += 2; if(c == 0) goto cont; x = *(av++); if(x & C_FIXNUM_BIT) { fflag = 0; ilast = C_unfix(x); } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { fflag = 1; flast = C_flonum_magnitude(x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "=", x); while(--c) { x = *(av++); if(x & C_FIXNUM_BIT) { if(fflag) { f = flast == (f2 = (double)C_unfix(x)); flast = f2; } else { f = ilast == (i2 = C_unfix(x)); ilast = i2; } } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { if(fflag) { f = flast == (f2 = C_flonum_magnitude(x)); flast = f2; } else { f = (double)ilast == (f2 = C_flonum_magnitude(x)); flast = f2; fflag = 1; } } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "=", x); if(!f) break; } cont: C_kontinue(k, C_mk_bool(f)); } C_regparm C_word C_fcall C_i_nequalp(C_word x, C_word y) { if(x & C_FIXNUM_BIT) { if(y & C_FIXNUM_BIT) return C_mk_bool(x == y); else if(!C_immediatep(y) && C_block_header(y) == C_FLONUM_TAG) return C_mk_bool((double)C_unfix(x) == C_flonum_magnitude(y)); barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "=", y); } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { if(y & C_FIXNUM_BIT) return C_mk_bool(C_flonum_magnitude(x) == (double)C_unfix(y)); else if(!C_immediatep(y) && C_block_header(y) == C_FLONUM_TAG) return C_mk_bool(C_flonum_magnitude(x) == C_flonum_magnitude(y)); barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "=", y); } else barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "=", x); return C_SCHEME_FALSE; } void C_ccall C_greaterp(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], x, i2, f, fflag, ilast; double flast, f2; c -= 2; f = 1; av += 2; if(c == 0) goto cont; x = *(av++); if(x & C_FIXNUM_BIT) { fflag = 0; ilast = C_unfix(x); } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { fflag = 1; flast = C_flonum_magnitude(x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, ">", x); while(--c) { x = *(av++); if(x & C_FIXNUM_BIT) { if(fflag) { f = flast > (f2 = (double)C_unfix(x)); flast = f2; } else { f = ilast > (i2 = C_unfix(x)); ilast = i2; } } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { if(fflag) { f = flast > (f2 = C_flonum_magnitude(x)); flast = f2; } else { f = (double)ilast > (f2 = C_flonum_magnitude(x)); flast = f2; fflag = 1; } } else barf(C_BAD_ARGUMENT_TYPE_ERROR, ">", x); if(!f) break; } cont: C_kontinue(k, C_mk_bool(f)); } C_regparm C_word C_fcall C_i_greaterp(C_word x, C_word y) { if(x & C_FIXNUM_BIT) { if(y & C_FIXNUM_BIT) return C_mk_bool(x > y); else if(!C_immediatep(y) && C_block_header(y) == C_FLONUM_TAG) return C_mk_bool((double)C_unfix(x) > C_flonum_magnitude(y)); barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, ">", y); } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { if(y & C_FIXNUM_BIT) return C_mk_bool(C_flonum_magnitude(x) > (double)C_unfix(y)); else if(!C_immediatep(y) && C_block_header(y) == C_FLONUM_TAG) return C_mk_bool(C_flonum_magnitude(x) > C_flonum_magnitude(y)); barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, ">", y); } else barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, ">", x); return C_SCHEME_FALSE; } void C_ccall C_lessp(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], x, i2, f, fflag, ilast; double flast, f2; c -= 2; f = 1; av += 2; if(c == 0) goto cont; x = *(av++); if(x &C_FIXNUM_BIT) { fflag = 0; ilast = C_unfix(x); } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { fflag = 1; flast = C_flonum_magnitude(x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "<", x); while(--c) { x = *(av++); if(x &C_FIXNUM_BIT) { if(fflag) { f = flast < (f2 = (double)C_unfix(x)); flast = f2; } else { f = ilast < (i2 = C_unfix(x)); ilast = i2; } } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { if(fflag) { f = flast < (f2 = C_flonum_magnitude(x)); flast = f2; } else { f = (double)ilast < (f2 = C_flonum_magnitude(x)); flast = f2; fflag = 1; } } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "<", x); if(!f) break; } cont: C_kontinue(k, C_mk_bool(f)); } C_regparm C_word C_fcall C_i_lessp(C_word x, C_word y) { if(x & C_FIXNUM_BIT) { if(y & C_FIXNUM_BIT) return C_mk_bool(x < y); else if(!C_immediatep(y) && C_block_header(y) == C_FLONUM_TAG) return C_mk_bool((double)C_unfix(x) < C_flonum_magnitude(y)); barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "<", y); } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { if(y & C_FIXNUM_BIT) return C_mk_bool(C_flonum_magnitude(x) < (double)C_unfix(y)); else if(!C_immediatep(y) && C_block_header(y) == C_FLONUM_TAG) return C_mk_bool(C_flonum_magnitude(x) < C_flonum_magnitude(y)); barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "<", y); } else barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "<", x); return C_SCHEME_FALSE; } void C_ccall C_greater_or_equal_p(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], x, i2, f, fflag, ilast; double flast, f2; c -= 2; f = 1; av += 2; if(c == 0) goto cont; x = *(av++); if(x &C_FIXNUM_BIT) { fflag = 0; ilast = C_unfix(x); } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { fflag = 1; flast = C_flonum_magnitude(x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, ">=", x); while(--c) { x = *(av++); if(x &C_FIXNUM_BIT) { if(fflag) { f = flast >= (f2 = (double)C_unfix(x)); flast = f2; } else { f = ilast >= (i2 = C_unfix(x)); ilast = i2; } } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { if(fflag) { f = flast >= (f2 = C_flonum_magnitude(x)); flast = f2; } else { f = (double)ilast >= (f2 = C_flonum_magnitude(x)); flast = f2; fflag = 1; } } else barf(C_BAD_ARGUMENT_TYPE_ERROR, ">=", x); if(!f) break; } cont: C_kontinue(k, C_mk_bool(f)); } C_regparm C_word C_fcall C_i_greater_or_equalp(C_word x, C_word y) { if(x & C_FIXNUM_BIT) { if(y & C_FIXNUM_BIT) return C_mk_bool(x >= y); else if(!C_immediatep(y) && C_block_header(y) == C_FLONUM_TAG) return C_mk_bool((double)C_unfix(x) >= C_flonum_magnitude(y)); barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, ">=", y); } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { if(y & C_FIXNUM_BIT) return C_mk_bool(C_flonum_magnitude(x) >= (double)C_unfix(y)); else if(!C_immediatep(y) && C_block_header(y) == C_FLONUM_TAG) return C_mk_bool(C_flonum_magnitude(x) >= C_flonum_magnitude(y)); barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, ">=", y); } else barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, ">=", x); return C_SCHEME_FALSE; } void C_ccall C_less_or_equal_p(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], x, i2, f, fflag, ilast; double flast, f2; c -= 2; f = 1; av += 2; if(c == 0) goto cont; x = *(av++); if(x &C_FIXNUM_BIT) { fflag = 0; ilast = C_unfix(x); } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { fflag = 1; flast = C_flonum_magnitude(x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "<=", x); while(--c) { x = *(av++); if(x &C_FIXNUM_BIT) { if(fflag) { f = flast <= (f2 = (double)C_unfix(x)); flast = f2; } else { f = ilast <= (i2 = C_unfix(x)); ilast = i2; } } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { if(fflag) { f = flast <= (f2 = C_flonum_magnitude(x)); flast = f2; } else { f = (double)ilast <= (f2 = C_flonum_magnitude(x)); flast = f2; fflag = 1; } } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "<=", x); if(!f) break; } cont: C_kontinue(k, C_mk_bool(f)); } C_regparm C_word C_fcall C_i_less_or_equalp(C_word x, C_word y) { if(x & C_FIXNUM_BIT) { if(y & C_FIXNUM_BIT) return C_mk_bool(x <= y); else if(!C_immediatep(y) && C_block_header(y) == C_FLONUM_TAG) return C_mk_bool((double)C_unfix(x) <= C_flonum_magnitude(y)); barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "<=", y); } else if(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG) { if(y & C_FIXNUM_BIT) return C_mk_bool(C_flonum_magnitude(x) <= (double)C_unfix(y)); else if(!C_immediatep(y) && C_block_header(y) == C_FLONUM_TAG) return C_mk_bool(C_flonum_magnitude(x) <= C_flonum_magnitude(y)); barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "<=", y); } else barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "<=", x); return C_SCHEME_FALSE; } void C_ccall C_expt(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], n1, n2, r; double m1, m2; C_alloc_flonum; if(c != 4) C_bad_argc(c, 4); n1 = av[ 2 ]; n2 = av[ 3 ]; if(n1 & C_FIXNUM_BIT) m1 = C_unfix(n1); else if(!C_immediatep(n1) && C_block_header(n1) == C_FLONUM_TAG) m1 = C_flonum_magnitude(n1); else barf(C_BAD_ARGUMENT_TYPE_ERROR, "expt", n1); if(n2 & C_FIXNUM_BIT) m2 = C_unfix(n2); else if(!C_immediatep(n2) && C_block_header(n2) == C_FLONUM_TAG) m2 = C_flonum_magnitude(n2); else barf(C_BAD_ARGUMENT_TYPE_ERROR, "expt", n2); m1 = pow(m1, m2); r = (C_word)m1; if(r == m1 && (n1 & C_FIXNUM_BIT) && (n2 & C_FIXNUM_BIT) && modf(m1, &m2) == 0.0 && C_fitsinfixnump(r)) C_kontinue(k, C_fix(r)); C_kontinue_flonum(k, m1); } 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, c); } 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); } 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_BUCKET); 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_flonum_fraction(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], n = av[ 2 ]; double i, fn = C_flonum_magnitude(n); C_alloc_flonum; C_kontinue_flonum(k, modf(fn, &i)); } void C_ccall C_flonum_rat(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], n = av[ 2 ]; double frac, tmp, numer, denom, fn = C_flonum_magnitude(n); double ga, gb; C_word ab[WORDS_PER_FLONUM * 2], *ap = ab; int i = 0; C_word av2[ 4 ]; if (isnormal(fn)) { /* Calculate bit-length of the fractional part (ie, after decimal point) */ frac = fn; while(!C_isnan(frac) && !C_isinf(frac) && C_modf(frac, &tmp) != 0.0) { frac *= 2; if (i++ > 3000) /* should this be flonum-maximum-exponent? */ barf(C_CANT_REPRESENT_INEXACT_ERROR, "fprat", n); } /* Now we can compute the rational number r = 2^i/X*2^i = numer/denom. */ denom = pow(2, i); numer = fn*denom; } else { /* denormalised/subnormal number: [+-]1.0/+inf.0 */ numer = fn > 0.0 ? 1.0 : -1.0; denom = 1.0/0.0; /* +inf */ } av2[ 0 ] = C_SCHEME_UNDEFINED; av2[ 1 ] = k; av2[ 2 ] = C_flonum(&ap, numer); av2[ 3 ] = C_flonum(&ap, denom); C_values(4, av2); } C_regparm C_word C_fcall C_a_i_exact_to_inexact(C_word **a, int c, C_word n) { if(n & C_FIXNUM_BIT) return C_flonum(a, (double)C_unfix(n)); else if(C_immediatep(n) || C_block_header(n) != C_FLONUM_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "exact->inexact", n); return 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); } void C_ccall C_quotient(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], n1, n2; double f1, f2, r; C_word result; C_alloc_flonum; if(c != 4) C_bad_argc(c, 4); n1 = av[ 2 ]; n2 = av[ 3 ]; if(n1 &C_FIXNUM_BIT) { if(n2 &C_FIXNUM_BIT) { if((n2 = C_unfix(n2)) == 0) barf(C_DIVISION_BY_ZERO_ERROR, "quotient"); result = C_fix(C_unfix(n1) / n2); C_kontinue(k, result); } else if(!C_immediatep(n2) && C_block_header(n2) == C_FLONUM_TAG) { f1 = (double)C_unfix(n1); f2 = C_flonum_magnitude(n2); if(C_isnan(f2) || C_isinf(f2) || C_modf(f2, &r) != 0.0) barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "quotient", n2); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "quotient", n2); } else if(!C_immediatep(n1) && C_block_header(n1) == C_FLONUM_TAG) { f1 = C_flonum_magnitude(n1); if(C_isnan(f1) || C_isinf(f1) || C_modf(f1, &r) != 0.0) barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "quotient", n1); if(n2 &C_FIXNUM_BIT) f2 = (double)C_unfix(n2); else if(!C_immediatep(n2) && C_block_header(n2) == C_FLONUM_TAG) { f2 = C_flonum_magnitude(n2); if(C_isnan(f2) || C_isinf(f2) || C_modf(f2, &r) != 0.0) barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "quotient", n2); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "quotient", n2); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "quotient", n1); if(f2 == 0) barf(C_DIVISION_BY_ZERO_ERROR, "quotient"); modf(f1 / f2, &r); C_kontinue_flonum(k, r); } C_regparm C_word C_fcall C_a_i_string_to_number(C_word **a, int c, C_word str, C_word radix0) { int radix, radixpf = 0, sharpf = 0, ratf = 0, exactf = 0, exactpf = 0, periodf = 0, expf = 0; C_word n1, n; C_char *sptr, *eptr, *rptr; double fn1, fn; if(radix0 & C_FIXNUM_BIT) radix = C_unfix(radix0); else barf(C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR, "string->number", radix0); if (radix < 2 || radix > 36) /* Makes no sense and isn't supported */ barf(C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR, "string->number", radix0); if(C_immediatep(str) || C_header_bits(str) != C_STRING_TYPE) barf(C_BAD_ARGUMENT_TYPE_ERROR, "string->number", str); if((n = C_header_size(str)) == 0) { fail: n = C_SCHEME_FALSE; goto fini; } if(n >= STRING_BUFFER_SIZE - 1) goto fail; C_memcpy(sptr = buffer, C_c_string(str), n > (STRING_BUFFER_SIZE - 1) ? STRING_BUFFER_SIZE : n); buffer[ n ] = '\0'; if (n != strlen(buffer)) /* Don't barf; this is simply invalid number syntax */ goto fail; while(*sptr == '#') { switch(C_tolower((int)*(++sptr))) { case 'b': if(radixpf) goto fail; else { radix = 2; radixpf = 1; } break; case 'o': if(radixpf) goto fail; else { radix = 8; radixpf = 1; } break; case 'd': if(radixpf) goto fail; else { radix = 10; radixpf = 1; } break; case 'x': if(radixpf) goto fail; else { radix = 16; radixpf = 1; } break; case 'e': if(exactpf) goto fail; else { exactf = 1; exactpf = 1; } break; case 'i': if(exactpf) goto fail; else { exactf = 0; exactpf = 1; } break; default: goto fail; /* Unknown prefix type */ } ++sptr; } /* Scan for embedded special characters and do basic sanity checking: */ for(eptr = sptr, rptr = sptr; *eptr != '\0'; ++eptr) { switch(C_tolower((int)*eptr)) { case '.': if(periodf || ratf || expf) goto fail; periodf = 1; break; case '#': if (expf || (eptr == rptr) || (!sharpf && (eptr == rptr+1) && (C_strchr("+-.", *rptr) != NULL))) goto fail; sharpf = 1; *eptr = '0'; break; case '/': if(periodf || ratf || expf || eptr == sptr) goto fail; sharpf = 0; /* Allow sharp signs in the denominator */ ratf = 1; rptr = eptr+1; break; case 'e': case 'd': case 'f': case 'l': case 's': /* Don't set exp flag if we see the "f" in "inf.0" (preceded by 'n') */ /* Other failure modes are handled elsewhere. */ if(radix == 10 && eptr > sptr && C_tolower((int)*(eptr-1)) != 'n') { if (ratf) goto fail; expf = 1; sharpf = 0; *eptr = 'e'; /* strtod() normally only understands 'e', not dfls */ } break; default: if(sharpf) goto fail; break; } } if (eptr == rptr) goto fail; /* Disallow "empty" numbers like "#x" and "1/" */ /* check for rational representation: */ if(rptr != sptr) { if (*(rptr) == '-' || *(rptr) == '+') { n = C_SCHEME_FALSE; goto fini; } *(rptr-1) = '\0'; switch(convert_string_to_number(sptr, radix, &n1, &fn1)) { case 0: n = C_SCHEME_FALSE; goto fini; case 1: fn1 = (double)n1; break; /* case 2: nop */ } sptr = rptr; } /* convert number and return result: */ switch(convert_string_to_number(sptr, radix, &n, &fn)) { case 0: /* failed */ n = C_SCHEME_FALSE; break; case 1: /* fixnum */ if(sharpf || ratf || (exactpf && !exactf)) { n = C_flonum(a, ratf ? fn1 / (double)n : (double)n); if(exactpf && exactf) n = maybe_inexact_to_exact(n); } else n = C_fix(n); break; case 2: /* flonum */ n = C_flonum(a, ratf ? fn1 / fn : fn); if(exactpf && exactf) n = maybe_inexact_to_exact(n); break; } fini: return n; } static int from_n_nary(C_char *str, int base, double *r) { double n = 0; C_char *ptr = str; while(*ptr != '\0') { int c = C_tolower((int)(*(ptr++))); if(c < '0') return 0; else if(c >= '0' + base) { if(base < 10) return 0; else if(c < 'a') return 0; else if(c >= 'a' + base - 10) return 0; else n = n * base + c - 'a' + 10; } else n = n * base + c - '0'; } *r = n; return 1; } C_regparm C_word C_fcall convert_string_to_number(C_char *str, int radix, C_word *fix, double *flo) { C_ulong ln; C_word n; C_char *eptr, *eptr2; double fn; int len = C_strlen(str); if(radix == 10) { if (len == 6) { if((*str == '+' || *str == '-') && C_strchr("inIN", *(str+1)) != NULL && C_strchr("naNA", *(str+2)) != NULL && C_strchr("fnFN", *(str+3)) != NULL && *(str+4) == '.' && *(str+5) == '0') { if (*(str+1) == 'i' || *(str+1) == 'I') /* Inf */ *flo = 1.0/0.0; else /* NaN */ *flo = 0.0/0.0; if (*str == '-') *flo *= -1.0; return 2; } } /* Prevent C parser from accepting things like "-inf" on its own... */ for(n = 0; n < len; ++n) { if (C_strchr("+-0123456789e.", *(str+n)) == NULL) return 0; } } if(C_strpbrk(str, "xX\0") != NULL) return 0; errno = 0; n = C_strtow(str, &eptr, radix); if(((n == C_LONG_MAX || n == C_LONG_MIN) && errno != 0) || *eptr != '\0') { if(radix != 10) return from_n_nary(str, radix, flo) ? 2 : 0; errno = 0; fn = C_strtod(str, &eptr2); if((fn == HUGE_VAL && errno != 0) || fn == -HUGE_VAL) return 0; else if(eptr2 == str) return 0; else if(*eptr2 == '\0' || (eptr != eptr2 && !C_strncmp(eptr2, ".0", C_strlen(eptr2)))) { *flo = fn; return 2; } return 0; } else if((n & C_INT_SIGN_BIT) != (((C_uword)n << 1) & C_INT_SIGN_BIT)) { /* doesn't fit into fixnum? */ if(*eptr == '\0' || !C_strncmp(eptr, ".0", C_strlen(eptr))) { *flo = (double)n; return 2; } else return 0; } else { *fix = n; return 1; } } static char *to_n_nary(C_uword num, C_uword base) { char *p; static char digits[] ={ '0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F' }; buffer [ 66 ] = '\0'; p = buffer + 66; do { *(--p) = digits [ num % base ]; num /= base; } while (num); return p; } void C_ccall C_number_to_string(C_word c, C_word *av) { C_word /* closure * av[ 0 ] */ k = av[ 1 ], num, radix, *a; C_char *p; double f; int neg = 0; if(c == 3) radix = 10; else if(c == 4) { radix = av[ 3 ]; if(radix & C_FIXNUM_BIT) radix = C_unfix(radix); else 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) { num = C_unfix(num); if(num < 0) { neg = 1; num = -num; } if((radix < 2) || (radix > 16)){ barf(C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR, "number->string", C_fix(radix)); } switch(radix) { #ifdef C_SIXTY_FOUR case 8: C_snprintf(p = buffer + 1, sizeof(buffer) -1 , C_text("%llo"), (long long)num); break; case 10: C_snprintf(p = buffer + 1, sizeof(buffer) - 1, C_text("%lld"), (long long)num); break; case 16: C_snprintf(p = buffer + 1, sizeof(buffer) - 1, C_text("%llx"), (long long)num); break; #else case 8: C_snprintf(p = buffer + 1, sizeof(buffer) - 1, C_text("%o"), num); break; case 10: C_snprintf(p = buffer + 1, sizeof(buffer) - 1, C_text("%d"), num); break; case 16: C_snprintf(p = buffer + 1, sizeof(buffer) - 1, C_text("%x"), num); break; #endif default: p = to_n_nary(num, radix); } } else if(!C_immediatep(num) && C_block_header(num) == C_FLONUM_TAG) { f = C_flonum_magnitude(num); if(C_fits_in_unsigned_int_p(num) == C_SCHEME_TRUE) { if(f < 0) { neg = 1; f = -f; } if((radix < 2) || (radix > 16)){ barf(C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR, "number->string", C_fix(radix)); } switch(radix) { case 8: C_snprintf(p = buffer, sizeof(buffer), "%o", (unsigned int)f); goto fini; case 16: C_snprintf(p = buffer, sizeof(buffer), "%x", (unsigned int)f); goto fini; case 10: break; /* force output of decimal point to retain read/write invariance (the little we support) */ default: p = to_n_nary((unsigned int)f, radix); goto fini; } } if(C_isnan(f)) { C_strlcpy(buffer, C_text("+nan.0"), sizeof(buffer)); p = buffer; goto fini; } else if(C_isinf(f)) { C_snprintf(buffer, sizeof(buffer), "%cinf.0", f > 0 ? '+' : '-'); p = buffer; goto fini; } C_snprintf(buffer, STRING_BUFFER_SIZE, C_text("%.*g"), flonum_print_precision, f); buffer[STRING_BUFFER_SIZE-1] = '\0'; if((p = C_strpbrk(buffer, C_text(".eE"))) == NULL) { if(*buffer == 'i' || *buffer == 'n') { /* inf or nan */ C_memmove(buffer + 1, buffer, C_strlen(buffer) + 1); *buffer = '+'; } else if(buffer[ 1 ] != 'i') C_strlcat(buffer, C_text(".0"), sizeof(buffer)); /* negative infinity? */ } p = buffer; } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "number->string", num); fini: if(neg) *(--p) = '-'; radix = C_strlen(p); a = C_alloc((C_bytestowords(radix) + 1)); radix = C_string(&a, radix, p); C_kontinue(k, radix); } /* special case for fixnum arg and decimal radix */ void C_ccall C_fixnum_to_string(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], num = av[ 2 ], *a, s; int n; /*XXX is this necessary? */ #ifdef C_SIXTY_FOUR C_snprintf(buffer, sizeof(buffer), C_text(LONG_FORMAT_STRING), C_unfix(num)); #else C_snprintf(buffer, sizeof(buffer), C_text("%d"), C_unfix(num)); #endif n = C_strlen(buffer); a = C_alloc(C_bytestowords(n) + 1); s = C_string2(&a, buffer); C_kontinue(k, s); } 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(size + 2), 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, c); 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, c); } 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 + 5 ], /* 2 flonums + 1 vector of 4 elements */ *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[ 3 ], *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)); C_alloc_flonum; if((x & C_INT_SIGN_BIT) != (((C_uword)x << 1) & C_INT_SIGN_BIT)) { C_kontinue_flonum(k, (double)x); } C_kontinue(k, C_fix(x)); } 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)); C_alloc_flonum; if((x & C_INT_SIGN_BIT) || (((C_uword)x << 1) & C_INT_SIGN_BIT)) { C_kontinue_flonum(k, (double)(C_uword)x); } C_kontinue(k, C_fix(x)); } 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[ 11 ], *a = ab, info; tsecs = (time_t)((secs & C_FIXNUM_BIT) != 0 ? C_unfix(secs) : C_flonum_magnitude(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))) /* not GCable? */ C_kontinue(k, x); 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 module `%s' (handle is " 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 module `%s' (handle is " 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 module `%s' (handle is " 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_number(a, C_floor(((double)clock() / (double)CLOCKS_PER_SEC) * 1000)); #else struct rusage ru; if(C_getrusage(RUSAGE_SELF, &ru) == -1) u = 0; else { u = C_number(a, C_floor((double)ru.ru_utime.tv_sec * 1000 + ru.ru_utime.tv_usec / 1000)); s = C_number(a, C_floor((double)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_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; } /* DEPRECATED */ void C_ccall C_locative_ref(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], loc, *ptr, val, ab[WORDS_PER_FLONUM], *a = ab; if(c != 3) C_bad_argc(c, 3); loc = av[ 2 ]; 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: C_kontinue(k, *ptr); case C_CHAR_LOCATIVE: C_kontinue(k, C_make_character(*((char *)ptr))); case C_U8_LOCATIVE: C_kontinue(k, C_fix(*((unsigned char *)ptr))); case C_S8_LOCATIVE: C_kontinue(k, C_fix(*((char *)ptr))); case C_U16_LOCATIVE: C_kontinue(k, C_fix(*((unsigned short *)ptr))); case C_S16_LOCATIVE: C_kontinue(k, C_fix(*((short *)ptr))); case C_U32_LOCATIVE: C_kontinue(k, C_unsigned_int_to_num(&a, *((C_u32 *)ptr))); case C_S32_LOCATIVE: C_kontinue(k, C_int_to_num(&a, *((C_s32 *)ptr))); case C_F32_LOCATIVE: C_kontinue(k, C_flonum(&a, *((float *)ptr))); case C_F64_LOCATIVE: C_kontinue(k, C_flonum(&a, *((double *)ptr))); default: panic(C_text("bad locative type")); } } 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_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_mutate2(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((x & C_FIXNUM_BIT) == 0 && (C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG)) barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); *((C_u32 *)ptr) = C_num_to_unsigned_int(x); break; case C_S32_LOCATIVE: if((x & C_FIXNUM_BIT) == 0 && (C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG)) barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); *((C_s32 *)ptr) = C_num_to_int(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(cells + 1), *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); } /* Creating black holes: */ void C_ccall C_call_with_cthulhu(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], proc = av[ 2 ], *a = C_alloc(3), av2[ 3 ]; av2[ 0 ] = C_closure(&a, 1, (C_word)termination_continuation); /* k */ av2[ 1 ] = proc; av2[ 2 ] = C_SCHEME_END_OF_LIST; C_do_apply(3, 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_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_FLONUM_TYPE >> (24 + 32)) & 0xff: #else case (C_FLONUM_TYPE >> 24) & 0xff: #endif bits = C_FLONUM_TYPE; 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_FLONUM_TYPE) { C_word ln; double fn; switch (convert_string_to_number(*str, 10, &ln, &fn)) { case 0: /* failed */ panic(C_text("invalid encoded numeric literal")); break; case 1: /* fixnum */ val = C_fix(ln); break; case 2: /* flonum */ val = C_flonum(ptr, fn); break; } while(*((*str)++) != '\0'); /* skip terminating '\0' */ return val; } if((bits & C_SPECIALBLOCK_BIT) != 0) panic(C_text("literals with special bit cannot be decoded")); size = decode_size(str); switch(bits) { 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")); val = C_h_intern(dest, size, *str); *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 == NULL ? NULL : C_strdup(path); } C_char * C_private_repository_path() { return private_repository; } C_regparm C_word C_fcall C_i_getprop(C_word sym, C_word prop, C_word def) { C_word pl = C_block_item(sym, 2); 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_block_item(sym, 2); while(pl != C_SCHEME_END_OF_LIST) { if(C_block_item(pl, 0) == prop) { C_mutate2(&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_block_item(sym, 2)); pl = C_a_pair(ptr, prop, pl); C_mutate_slot(&C_block_item(sym, 2), 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, c); } 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; 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_SWIG_POINTER_TYPE: C_fprintf(C_stderr, C_text("swig pointer ")); break; case C_LAMBDA_INFO_TYPE: C_fprintf(C_stderr, C_text("lambda info ")); break; case C_BUCKET_TYPE: C_fprintf(C_stderr, C_text("bucket ")); 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; /* 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, c); } 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 = 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; } } ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/Makefile.macosx����������������������������������������������������������������������0000644�0001750�0001750�00000011203�13052303762�015737� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# Makefile.macosx - configuration for Apple Macintosh OS X -*- Makefile -*- # # Copyright (c) 2008-2017, 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_GRP_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 ifdef SYMBOLGC echo "#define C_COLLECT_ALL_SYMBOLS" >>$@ endif cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/feathers.in��������������������������������������������������������������������������0000644�0001750�0001750�00000003423�13052302367�015144� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/bin/sh # # loader for feathers.tcl, the CHICKEN debugger # # Copyright (c) 2015-2017, 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-4.12.0/lolevel.import.c���������������������������������������������������������������������0000644�0001750�0001750�00000021311�13052306542�016125� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from lolevel.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: lolevel.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file lolevel.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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_202) static void C_ccall f_202(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(f_205) static void C_ccall f_205(C_word c,C_word *av) C_noret; C_noret_decl(f_199) static void C_ccall f_199(C_word c,C_word *av) C_noret; C_noret_decl(f_208) static void C_ccall f_208(C_word c,C_word *av) C_noret; /* k200 in k197 */ static void C_ccall f_202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(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(694))){ C_save(t1); C_rereclaim2(694*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,3); lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module"); lf[1]=C_h_intern(&lf[1],7,"lolevel"); lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\020address->pointer\376\003\000\000\002\376\001\000\000\015align-to-word\376\003\000\000\002\376\001\000\000\010allocate\376\003\000\000\002\376\001\000\000\011blo" "ck-ref\376\003\000\000\002\376\001\000\000\012block-set!\376\003\000\000\002\376\001\000\000\020extend-procedure\376\003\000\000\002\376\001\000\000\023extended-procedure" "\077\376\003\000\000\002\376\001\000\000\004free\376\003\000\000\002\376\001\000\000\020locative->object\376\003\000\000\002\376\001\000\000\014locative-ref\376\003\000\000\002\376\001\000\000\015locativ" "e-set!\376\003\000\000\002\376\001\000\000\011locative\077\376\003\000\000\002\376\001\000\000\015make-locative\376\003\000\000\002\376\001\000\000\024make-record-instance\376\003" "\000\000\002\376\001\000\000\023make-pointer-vector\376\003\000\000\002\376\001\000\000\022make-weak-locative\376\003\000\000\002\376\001\000\000\014move-memory!\376\003\000" "\000\002\376\001\000\000\021mutate-procedure!\376\003\000\000\002\376\001\000\000\017number-of-bytes\376\003\000\000\002\376\001\000\000\017number-of-slots\376\003\000\000\002\376" "\001\000\000\017object->pointer\376\003\000\000\002\376\001\000\000\016object-become!\376\003\000\000\002\376\001\000\000\013object-copy\376\003\000\000\002\376\001\000\000\014object" "-evict\376\003\000\000\002\376\001\000\000\030object-evict-to-location\376\003\000\000\002\376\001\000\000\017object-evicted\077\376\003\000\000\002\376\001\000\000\016objec" "t-release\376\003\000\000\002\376\001\000\000\013object-size\376\003\000\000\002\376\001\000\000\016object-unevict\376\003\000\000\002\376\001\000\000\020pointer->address" "\376\003\000\000\002\376\001\000\000\015pointer-like\077\376\003\000\000\002\376\001\000\000\017pointer->object\376\003\000\000\002\376\001\000\000\017pointer-f32-ref\376\003\000\000\002\376\001" "\000\000\020pointer-f32-set!\376\003\000\000\002\376\001\000\000\017pointer-f64-ref\376\003\000\000\002\376\001\000\000\020pointer-f64-set!\376\003\000\000\002\376\001\000\000\010" "pointer+\376\003\000\000\002\376\001\000\000\017pointer-s16-ref\376\003\000\000\002\376\001\000\000\020pointer-s16-set!\376\003\000\000\002\376\001\000\000\017pointer-s32" "-ref\376\003\000\000\002\376\001\000\000\020pointer-s32-set!\376\003\000\000\002\376\001\000\000\016pointer-s8-ref\376\003\000\000\002\376\001\000\000\017pointer-s8-set!\376" "\003\000\000\002\376\001\000\000\016pointer-vector\376\003\000\000\002\376\001\000\000\017pointer-vector\077\376\003\000\000\002\376\001\000\000\025pointer-vector-length\376" "\003\000\000\002\376\001\000\000\022pointer-vector-ref\376\003\000\000\002\376\001\000\000\023pointer-vector-set!\376\003\000\000\002\376\001\000\000\013pointer-tag\376\003\000" "\000\002\376\001\000\000\017pointer-u16-ref\376\003\000\000\002\376\001\000\000\020pointer-u16-set!\376\003\000\000\002\376\001\000\000\017pointer-u32-ref\376\003\000\000\002\376\001" "\000\000\020pointer-u32-set!\376\003\000\000\002\376\001\000\000\016pointer-u8-ref\376\003\000\000\002\376\001\000\000\017pointer-u8-set!\376\003\000\000\002\376\001\000\000\011po" "inter=\077\376\003\000\000\002\376\001\000\000\010pointer\077\376\003\000\000\002\376\001\000\000\016procedure-data\376\003\000\000\002\376\001\000\000\016record->vector\376\003\000\000\002\376\001" "\000\000\020record-instance\077\376\003\000\000\002\376\001\000\000\026record-instance-length\376\003\000\000\002\376\001\000\000\024record-instance-slo" "t\376\003\000\000\002\376\001\000\000\031record-instance-slot-set!\376\003\000\000\002\376\001\000\000\024record-instance-type\376\003\000\000\002\376\001\000\000\023set-" "procedure-data!\376\003\000\000\002\376\001\000\000\013tag-pointer\376\003\000\000\002\376\001\000\000\017tagged-pointer\077\376\003\000\000\002\376\001\000\000\014vector-li" "ke\077\376\377\016"); C_register_lf2(lf,3,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_199,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k203 in k200 in k197 */ static void C_ccall f_205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_205,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* lolevel.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; /* Re-use our own argvector */ } 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);}} /* k197 */ static void C_ccall f_199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_199,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k206 in k203 in k200 in k197 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_208,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {"f_202:lolevel_2eimport_2escm",(void*)f_202}, {"toplevel:lolevel_2eimport_2escm",(void*)C_toplevel}, {"f_205:lolevel_2eimport_2escm",(void*)f_205}, {"f_199:lolevel_2eimport_2escm",(void*)f_199}, {"f_208:lolevel_2eimport_2escm",(void*)f_208}, {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-4.12.0/profiler.scm�������������������������������������������������������������������������0000644�0001750�0001750�00000011430�13052306173�015335� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; profiler.scm - Support code for profiling applications ; ; Copyright (c) 2008-2017, 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)) (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 (##sys#exit-handler)] [oldieh (##sys#implicit-exit-handler)] ) (##sys#exit-handler (lambda args (##sys#finish-profile) (apply oldeh args) ) ) (##sys#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: (define cpu-ms (foreign-lambda double "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 (fp+ (if (eq? t 0) 0.0 t) (fp- (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#fudge 13) (##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-4.12.0/data-structures.import.c�������������������������������������������������������������0000644�0001750�0001750�00000017646�13052306543�017636� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from data-structures.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: data-structures.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file data-structures.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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_199) static void C_ccall f_199(C_word c,C_word *av) C_noret; C_noret_decl(f_208) static void C_ccall f_208(C_word c,C_word *av) C_noret; C_noret_decl(f_205) static void C_ccall f_205(C_word c,C_word *av) C_noret; C_noret_decl(f_202) static void C_ccall f_202(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; /* k197 */ static void C_ccall f_199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_199,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k206 in k203 in k200 in k197 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_208,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k203 in k200 in k197 */ static void C_ccall f_205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_205,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* data-structures.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; /* Re-use our own argvector */ } 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);}} /* k200 in k197 */ static void C_ccall f_202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(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(584))){ C_save(t1); C_rereclaim2(584*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,3); lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module"); lf[1]=C_h_intern(&lf[1],15,"data-structures"); lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\010->string\376\003\000\000\002\376\001\000\000\011alist-ref\376\003\000\000\002\376\001\000\000\015alist-update!\376\003\000\000\002\376\001\000\000\014alist-upda" "te\376\003\000\000\002\376\001\000\000\004any\077\376\003\000\000\002\376\001\000\000\005atom\077\376\003\000\000\002\376\001\000\000\015binary-search\376\003\000\000\002\376\001\000\000\007butlast\376\003\000\000\002\376\001\000\000" "\004chop\376\003\000\000\002\376\001\000\000\012complement\376\003\000\000\002\376\001\000\000\007compose\376\003\000\000\002\376\001\000\000\010compress\376\003\000\000\002\376\001\000\000\004conc\376\003\000\000\002\376" "\001\000\000\007conjoin\376\003\000\000\002\376\001\000\000\012constantly\376\003\000\000\002\376\001\000\000\007disjoin\376\003\000\000\002\376\001\000\000\004each\376\003\000\000\002\376\001\000\000\007flatten\376" "\003\000\000\002\376\001\000\000\004flip\376\003\000\000\002\376\001\000\000\010identity\376\003\000\000\002\376\001\000\000\013intersperse\376\003\000\000\002\376\001\000\000\004join\376\003\000\000\002\376\001\000\000\013list" "->queue\376\003\000\000\002\376\001\000\000\010list-of\077\376\003\000\000\002\376\001\000\000\012make-queue\376\003\000\000\002\376\001\000\000\005merge\376\003\000\000\002\376\001\000\000\006merge!\376\003\000\000" "\002\376\001\000\000\001o\376\003\000\000\002\376\001\000\000\013queue->list\376\003\000\000\002\376\001\000\000\012queue-add!\376\003\000\000\002\376\001\000\000\014queue-empty\077\376\003\000\000\002\376\001\000\000\013" "queue-first\376\003\000\000\002\376\001\000\000\012queue-last\376\003\000\000\002\376\001\000\000\014queue-length\376\003\000\000\002\376\001\000\000\020queue-push-back!\376" "\003\000\000\002\376\001\000\000\025queue-push-back-list!\376\003\000\000\002\376\001\000\000\015queue-remove!\376\003\000\000\002\376\001\000\000\006queue\077\376\003\000\000\002\376\001\000\000\006r" "assoc\376\003\000\000\002\376\001\000\000\025reverse-string-append\376\003\000\000\002\376\001\000\000\004sort\376\003\000\000\002\376\001\000\000\005sort!\376\003\000\000\002\376\001\000\000\007sorte" "d\077\376\003\000\000\002\376\001\000\000\020topological-sort\376\003\000\000\002\376\001\000\000\014string-chomp\376\003\000\000\002\376\001\000\000\013string-chop\376\003\000\000\002\376\001\000\000" "\017string-compare3\376\003\000\000\002\376\001\000\000\022string-compare3-ci\376\003\000\000\002\376\001\000\000\022string-intersperse\376\003\000\000\002\376\001\000" "\000\014string-split\376\003\000\000\002\376\001\000\000\020string-translate\376\003\000\000\002\376\001\000\000\021string-translate\052\376\003\000\000\002\376\001\000\000\016sub" "string-ci=\077\376\003\000\000\002\376\001\000\000\017substring-index\376\003\000\000\002\376\001\000\000\022substring-index-ci\376\003\000\000\002\376\001\000\000\013substr" "ing=\077\376\003\000\000\002\376\001\000\000\005tail\077\376\377\016"); C_register_lf2(lf,3,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_199,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {"f_199:data_2dstructures_2eimport_2escm",(void*)f_199}, {"f_208:data_2dstructures_2eimport_2escm",(void*)f_208}, {"f_205:data_2dstructures_2eimport_2escm",(void*)f_205}, {"f_202:data_2dstructures_2eimport_2escm",(void*)f_202}, {"toplevel:data_2dstructures_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-4.12.0/foreign.import.scm�������������������������������������������������������������������0000644�0001750�0001750�00000003235�13052306173�016461� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; foreign.import.scm - import library for "foreign" pseudo module ; ; Copyright (c) 2008-2017, 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 'foreign '() ##sys#chicken-ffi-macro-environment) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/chicken.1����������������������������������������������������������������������������0000644�0001750�0001750�00000002203�13052302315�014465� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������.\" dummy line .TH CHICKEN 1 "10 Sep 2002" .SH NAME chicken \- A Scheme\-to\-C translator .SH SYNOPSIS .B chicken .I PATHNAME [ .I OPTION ... ] .SH DESCRIPTION .I CHICKEN is a compiler and interpreter for the programming language .I Scheme supporting most of the features as described in the .I Revised^5 Report on .I the Algorithmic Language Scheme \. The .B chicken program is the basic Scheme-to-C translator used in this system. For a more convenient interface, see the manual page for csc(1). .SH OPTIONS Enter .B chicken\ \-help for a list of supported command-line options. .SH ENVIRONMENT\ VARIABLES .TP .B CHICKEN_PREFIX Is used as a prefix directory for support files, include-files and libraries. .TP .B CHICKEN_INCLUDE_PATH Contains one or more pathnames where the compiler should additionally look for include-files, separated by .B \; characters. .TP .B CHICKEN_OPTIONS Holds a string of default compiler options that should apply to every invocation of .B chicken \. .SH DOCUMENTATION More information can be found in the .I CHICKEN\ User's\ Manual .SH AUTHORS The CHICKEN Team. .SH SEE ALSO .BR csc(1) .BR chicken-bug(1) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/chicken.scm��������������������������������������������������������������������������0000644�0001750�0001750�00000012211�13052306173�015115� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.scm - The CHICKEN Scheme compiler (loader/main-module) ; ; Copyright (c) 2008-2017, 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-1 srfi-4 utils files extras data-structures srfi-69 lolevel ; unused, but loaded to make foldable bindings available support compiler optimizer lfa2 compiler-syntax scrutinizer driver platform backend)) (include "compiler-namespace") (include "tweaks") ;;; Prefix argument list with default options: (define compiler-arguments (append (remove (lambda (x) (string=? x "")) (string-split (or (get-environment-variable "CHICKEN_OPTIONS") ""))) (cdr (argv)))) ;;; 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) (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 ;XXX 'lfa2 options)) ) ((2) (set! options (cons* 'optimize-leaf-routines 'inline ;XXX 'clustering ;XXX 'lfa2 options)) ) ((3) (set! options (cons* 'optimize-leaf-routines 'inline 'inline-global 'local ;XXX 'clustering ;XXX 'lfa2 'specialize options) ) ) ((4) (set! options (cons* 'optimize-leaf-routines 'inline 'inline-global 'specialize ;XXX 'clustering ;XXX '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) (let ((level (string->number (car rest)))) (case level ((0) (set! options (cons* 'no-lambda-info 'no-trace options))) ((1) (set! options (cons 'no-trace options))) ((2) (set! options (cons 'scrutinize options))) (else (set! options (cons* 'scrutinize 'debug-info options)))) (loop (cdr rest)) ) ) ((memq o valid-compiler-options) (loop rest)) ((memq o valid-compiler-options-with-argument) (if (pair? rest) (loop (cdr rest)) (quit "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 options) (exit) ) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/library.c����������������������������������������������������������������������������0000644�0001750�0001750�00010475214�13052306177�014642� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from library.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:15 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: library.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file library.c unit: library */ #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_direct_continuation(dummy) t1 #define C_a_get_current_seconds(ptr, c, dummy) C_flonum(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; } 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[1148]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,16),40,101,120,105,116,32,46,32,116,109,112,55,53,55,54,41}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,7),40,114,101,115,101,116,41,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,113,117,105,116,45,104,111,111,107,32,114,101,115,117,108,116,56,56,41,0,0,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,16),40,113,117,105,116,32,46,32,116,109,112,57,53,57,54,41}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,17),40,101,114,114,111,114,32,46,32,97,114,103,115,49,48,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,26),40,119,97,114,110,105,110,103,32,109,115,103,49,48,55,32,46,32,97,114,103,115,49,48,56,41,0,0,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,25),40,110,111,116,105,99,101,32,109,115,103,49,49,48,32,46,32,97,114,103,115,49,49,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,27),40,101,110,97,98,108,101,45,119,97,114,110,105,110,103,115,32,46,32,98,111,111,108,49,49,52,41,0,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,24),40,115,101,116,45,103,99,45,114,101,112,111,114,116,33,32,102,108,97,103,49,49,57,41}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,4),67,95,103,99,0,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,115,101,116,115,108,111,116,32,120,49,50,50,32,105,49,50,51,32,121,49,50,52,41,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,115,101,116,105,115,108,111,116,32,120,49,50,54,32,105,49,50,55,32,121,49,50,56,41,0}; static C_char C_TLS li12[] 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 li13[] C_aligned={C_lihdr(0,0,11),40,97,114,103,99,43,97,114,103,118,41,0,0,0,0,0}; static C_char C_TLS li14[] 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 li15[] 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 li16[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,102,117,100,103,101,32,105,110,100,101,120,49,51,52,41,0,0}; static C_char C_TLS li17[] 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 li18[] 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 li19[] 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 li20[] C_aligned={C_lihdr(0,0,22),40,99,117,114,114,101,110,116,45,109,105,108,108,105,115,101,99,111,110,100,115,41,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,25),40,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,0,0,0}; static C_char C_TLS li22[] 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 li23[] C_aligned={C_lihdr(0,0,41),40,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,99,45,115,116,114,105,110,103,49,52,50,49,52,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li24[] 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 li25[] 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 li26[] 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 li27[] 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 li28[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,105,109,109,101,100,105,97,116,101,63,32,120,49,54,48,41,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,109,101,115,115,97,103,101,32,115,116,114,49,54,50,41,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,98,121,116,101,32,120,49,54,52,32,105,49,54,53,41,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,115,101,116,98,121,116,101,32,120,49,54,55,32,105,49,54,56,32,110,49,54,57,41,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,13),40,118,111,105,100,32,46,32,95,49,55,49,41,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,19),40,35,35,115,121,115,35,104,97,108,116,32,109,115,103,49,55,53,41,0,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,20),40,35,35,115,121,115,35,102,108,111,50,102,105,120,32,110,49,55,55,41,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,8),67,95,98,101,99,111,109,101}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,98,108,111,99,107,45,114,101,102,32,120,49,56,48,32,105,49,56,49,41,0,0,0,0,0}; static C_char C_TLS li37[] 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 li38[] 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 li39[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,98,108,111,99,107,45,115,101,116,33,32,120,49,56,54,32,105,49,56,55,32,121,49,56,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,17),40,99,117,114,114,101,110,116,45,115,101,99,111,110,100,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,10),40,99,112,117,45,116,105,109,101,41,0,0,0,0,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,99,104,101,99,107,45,115,116,114,117,99,116,117,114,101,32,120,50,48,51,32,121,50,48,52,32,46,32,108,111,99,50,48,53,41,0,0,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,99,104,101,99,107,45,98,108,111,98,32,120,50,48,55,32,46,32,108,111,99,50,48,56,41}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,99,104,101,99,107,45,112,97,105,114,32,120,50,49,49,32,46,32,108,111,99,50,49,50,41}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,99,104,101,99,107,45,108,105,115,116,32,120,50,49,52,32,46,32,108,111,99,50,49,53,41}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,99,104,101,99,107,45,115,116,114,105,110,103,32,120,50,49,55,32,46,32,108,111,99,50,49,56,41,0,0,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,99,104,101,99,107,45,110,117,109,98,101,114,32,120,50,50,48,32,46,32,108,111,99,50,50,49,41,0,0,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,99,104,101,99,107,45,101,120,97,99,116,32,120,50,50,51,32,46,32,108,111,99,50,50,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,99,104,101,99,107,45,105,110,101,120,97,99,116,32,120,50,50,54,32,46,32,108,111,99,50,50,55,41,0,0,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,99,104,101,99,107,45,115,121,109,98,111,108,32,120,50,50,57,32,46,32,108,111,99,50,51,48,41,0,0,0,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,99,104,101,99,107,45,118,101,99,116,111,114,32,120,50,51,50,32,46,32,108,111,99,50,51,51,41,0,0,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,99,104,101,99,107,45,99,104,97,114,32,120,50,51,53,32,46,32,108,111,99,50,51,54,41}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,99,104,101,99,107,45,98,111,111,108,101,97,110,32,120,50,51,56,32,46,32,108,111,99,50,51,57,41,0,0,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,99,104,101,99,107,45,108,111,99,97,116,105,118,101,32,120,50,52,49,32,46,32,108,111,99,50,52,50,41,0,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,99,104,101,99,107,45,105,110,116,101,103,101,114,32,120,50,52,52,32,46,32,108,111,99,50,52,53,41,0,0,0,0,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,47),40,35,35,115,121,115,35,99,104,101,99,107,45,114,97,110,103,101,32,105,50,52,57,32,102,114,111,109,50,53,48,32,116,111,50,53,49,32,46,32,108,111,99,50,53,50,41,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,99,104,101,99,107,45,115,112,101,99,105,97,108,32,112,116,114,50,53,56,32,46,32,108,111,99,50,53,57,41,0,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,99,104,101,99,107,45,99,108,111,115,117,114,101,32,120,50,54,51,32,46,32,108,111,99,50,54,52,41,0,0,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,26),40,108,112,32,112,114,111,109,105,115,101,50,54,56,32,102,111,114,119,97,114,100,50,54,57,41,0,0,0,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,14),40,102,111,114,99,101,32,111,98,106,50,54,54,41,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,15),40,115,121,115,116,101,109,32,99,109,100,50,56,57,41,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,7),67,95,100,108,111,97,100,0}; static C_char C_TLS li63[] 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 li64[] C_aligned={C_lihdr(0,0,10),40,110,111,116,32,120,51,48,48,41,0,0,0,0,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,15),40,98,111,111,108,101,97,110,63,32,120,51,48,50,41,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,15),40,101,113,63,32,120,51,48,52,32,121,51,48,53,41,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,16),40,101,113,118,63,32,120,51,48,55,32,121,51,48,56,41}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,18),40,101,113,117,97,108,63,32,120,51,49,48,32,121,51,49,49,41,0,0,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,12),40,112,97,105,114,63,32,120,51,49,51,41,0,0,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,16),40,99,111,110,115,32,120,51,49,53,32,121,51,49,54,41}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,13),40,102,95,55,52,55,52,32,120,51,49,56,41,0,0,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,13),40,102,95,55,52,55,55,32,120,51,50,48,41,0,0,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,20),40,115,101,116,45,99,97,114,33,32,120,51,50,50,32,121,51,50,51,41,0,0,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,20),40,115,101,116,45,99,100,114,33,32,120,51,50,53,32,121,51,50,54,41,0,0,0,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,13),40,102,95,55,52,56,54,32,120,51,50,56,41,0,0,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,13),40,102,95,55,52,56,57,32,120,51,51,48,41,0,0,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,13),40,99,97,100,100,100,114,32,120,51,51,50,41,0,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,13),40,99,100,100,100,100,114,32,120,51,51,52,41,0,0,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,13),40,102,95,55,52,57,56,32,120,51,51,54,41,0,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,13),40,102,95,55,53,48,49,32,120,51,51,56,41,0,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,13),40,102,95,55,53,48,52,32,120,51,52,48,41,0,0,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,13),40,102,95,55,53,48,55,32,120,51,52,50,41,0,0,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,13),40,102,95,55,53,50,49,32,120,51,52,52,41,0,0,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,13),40,102,95,55,53,50,56,32,120,51,52,54,41,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,13),40,102,95,55,53,51,53,32,120,51,52,56,41,0,0,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,13),40,102,95,55,53,52,57,32,120,51,53,48,41,0,0,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,13),40,102,95,55,53,53,54,32,120,51,53,50,41,0,0,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,13),40,102,95,55,53,55,48,32,120,51,53,52,41,0,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,13),40,99,97,97,97,97,114,32,120,51,53,54,41,0,0,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,13),40,99,97,97,97,100,114,32,120,51,53,56,41,0,0,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,13),40,99,97,97,100,97,114,32,120,51,54,48,41,0,0,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,13),40,99,97,97,100,100,114,32,120,51,54,50,41,0,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,13),40,99,97,100,97,97,114,32,120,51,54,52,41,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,13),40,99,97,100,97,100,114,32,120,51,54,54,41,0,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,13),40,99,97,100,100,97,114,32,120,51,54,56,41,0,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,13),40,99,100,97,97,97,114,32,120,51,55,48,41,0,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,13),40,99,100,97,97,100,114,32,120,51,55,50,41,0,0,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,13),40,99,100,97,100,97,114,32,120,51,55,52,41,0,0,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,13),40,99,100,97,100,100,114,32,120,51,55,54,41,0,0,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,13),40,99,100,100,97,97,114,32,120,51,55,56,41,0,0,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,13),40,99,100,100,97,100,114,32,120,51,56,48,41,0,0,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,13),40,99,100,100,100,97,114,32,120,51,56,50,41,0,0,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,12),40,110,117,108,108,63,32,120,51,56,52,41,0,0,0,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,15),40,108,105,115,116,32,46,32,108,115,116,51,56,54,41,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,15),40,108,101,110,103,116,104,32,108,115,116,51,56,56,41,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,23),40,108,105,115,116,45,116,97,105,108,32,108,115,116,51,57,48,32,105,51,57,49,41,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,20),40,102,95,55,55,54,50,32,108,115,116,51,57,51,32,105,51,57,52,41,0,0,0,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,108,115,116,51,57,57,41,0,0,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,100,101,108,113,32,120,51,57,54,32,108,115,116,51,57,55,41}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,50),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,52,49,48,32,46,32,116,109,112,52,48,57,52,49,49,41,0,0,0,0,0,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,14),40,99,111,112,121,32,110,111,100,101,52,50,51,41,0,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,108,115,116,115,52,50,49,41,0,0}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,18),40,97,112,112,101,110,100,32,46,32,108,115,116,115,52,49,57,41,0,0,0,0,0,0}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,108,115,116,52,51,51,32,114,101,115,116,52,51,52,41,0,0,0}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,17),40,114,101,118,101,114,115,101,32,108,115,116,48,52,51,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,108,115,116,52,52,51,32,114,101,115,116,52,52,52,41,0,0,0}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,102,97,115,116,45,114,101,118,101,114,115,101,32,108,115,116,48,52,52,49,41,0,0,0,0}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,18),40,109,101,109,113,32,120,52,52,55,32,108,115,116,52,52,56,41,0,0,0,0,0,0}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,18),40,109,101,109,118,32,120,52,53,48,32,108,115,116,52,53,49,41,0,0,0,0,0,0}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,20),40,109,101,109,98,101,114,32,120,52,53,51,32,108,115,116,52,53,52,41,0,0,0,0}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,18),40,97,115,115,113,32,120,52,53,54,32,108,115,116,52,53,55,41,0,0,0,0,0,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,18),40,97,115,115,118,32,120,52,53,57,32,108,115,116,52,54,48,41,0,0,0,0,0,0}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,19),40,97,115,115,111,99,32,120,52,54,50,32,108,115,116,52,54,51,41,0,0,0,0,0}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,12),40,108,105,115,116,63,32,120,52,54,53,41,0,0,0,0}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,14),40,115,116,114,105,110,103,63,32,120,52,54,55,41,0,0}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,20),40,115,116,114,105,110,103,45,108,101,110,103,116,104,32,115,52,54,57,41,0,0,0,0}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,18),40,102,95,55,57,57,57,32,115,52,55,49,32,105,52,55,50,41,0,0,0,0,0,0}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,28),40,115,116,114,105,110,103,45,115,101,116,33,32,115,52,55,52,32,105,52,55,53,32,99,52,55,54,41,0,0,0,0}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,39),40,35,35,115,121,115,35,109,97,107,101,45,115,116,114,105,110,103,32,115,105,122,101,52,56,50,32,46,32,116,109,112,52,56,49,52,56,51,41,0}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,31),40,109,97,107,101,45,115,116,114,105,110,103,32,115,105,122,101,52,57,52,32,46,32,102,105,108,108,52,57,53,41,0}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,53,48,56,41,0,0,0,0,0}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,19),40,115,116,114,105,110,103,45,62,108,105,115,116,32,115,53,48,53,41,0,0,0,0,0}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,53,49,54,32,108,115,116,53,49,57,41,0,0,0,0,0,0}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,22),40,108,105,115,116,45,62,115,116,114,105,110,103,32,108,115,116,48,53,49,51,41,0,0}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,12),40,105,116,101,114,32,110,50,53,51,49,41,0,0,0,0}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,27),40,114,101,118,101,114,115,101,45,108,105,115,116,45,62,115,116,114,105,110,103,32,108,53,50,54,41,0,0,0,0,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,24),40,115,116,114,105,110,103,45,102,105,108,108,33,32,115,53,52,51,32,99,53,52,52,41}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,18),40,115,116,114,105,110,103,45,99,111,112,121,32,115,53,52,57,41,0,0,0,0,0,0}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,34),40,115,117,98,115,116,114,105,110,103,32,115,53,53,53,32,115,116,97,114,116,53,53,54,32,46,32,101,110,100,53,53,55,41,0,0,0,0,0,0}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,115,117,98,115,116,114,105,110,103,32,115,53,54,56,32,115,116,97,114,116,53,54,57,32,101,110,100,53,55,48,41,0,0}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,20),40,115,116,114,105,110,103,61,63,32,120,53,55,52,32,121,53,55,53,41,0,0,0,0}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,23),40,115,116,114,105,110,103,45,99,105,61,63,32,120,53,55,55,32,121,53,55,56,41,0}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,36),40,99,111,109,112,97,114,101,53,55,57,32,115,49,53,56,50,32,115,50,53,56,51,32,108,111,99,53,56,52,32,107,53,56,53,41,0,0,0,0}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,30),40,97,56,51,49,48,32,108,101,110,49,53,57,50,32,108,101,110,50,53,57,51,32,99,109,112,53,57,52,41,0,0}; static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,22),40,115,116,114,105,110,103,60,63,32,115,49,53,57,48,32,115,50,53,57,49,41,0,0}; static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,30),40,97,56,51,51,52,32,108,101,110,49,54,48,49,32,108,101,110,50,54,48,50,32,99,109,112,54,48,51,41,0,0}; static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,22),40,115,116,114,105,110,103,62,63,32,115,49,53,57,57,32,115,50,54,48,48,41,0,0}; static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,30),40,97,56,51,53,56,32,108,101,110,49,54,49,48,32,108,101,110,50,54,49,49,32,99,109,112,54,49,50,41,0,0}; static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,23),40,115,116,114,105,110,103,60,61,63,32,115,49,54,48,56,32,115,50,54,48,57,41,0}; static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,30),40,97,56,51,55,57,32,108,101,110,49,54,49,53,32,108,101,110,50,54,49,54,32,99,109,112,54,49,55,41,0,0}; static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,23),40,115,116,114,105,110,103,62,61,63,32,115,49,54,49,51,32,115,50,54,49,52,41,0}; static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,36),40,99,111,109,112,97,114,101,54,50,50,32,115,49,54,50,53,32,115,50,54,50,54,32,108,111,99,54,50,55,32,107,54,50,56,41,0,0,0,0}; static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,30),40,97,56,52,50,48,32,108,101,110,49,54,51,53,32,108,101,110,50,54,51,54,32,99,109,112,54,51,55,41,0,0}; static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,25),40,115,116,114,105,110,103,45,99,105,60,63,32,115,49,54,51,51,32,115,50,54,51,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,30),40,97,56,52,52,52,32,108,101,110,49,54,52,52,32,108,101,110,50,54,52,53,32,99,109,112,54,52,54,41,0,0}; static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,25),40,115,116,114,105,110,103,45,99,105,62,63,32,115,49,54,52,50,32,115,50,54,52,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,30),40,97,56,52,54,56,32,108,101,110,49,54,53,51,32,108,101,110,50,54,53,52,32,99,109,112,54,53,53,41,0,0}; static C_char C_TLS li158[] C_aligned={C_lihdr(0,0,26),40,115,116,114,105,110,103,45,99,105,60,61,63,32,115,49,54,53,49,32,115,50,54,53,50,41,0,0,0,0,0,0}; static C_char C_TLS li159[] C_aligned={C_lihdr(0,0,30),40,97,56,52,56,57,32,108,101,110,49,54,53,56,32,108,101,110,50,54,53,57,32,99,109,112,54,54,48,41,0,0}; static C_char C_TLS li160[] C_aligned={C_lihdr(0,0,26),40,115,116,114,105,110,103,45,99,105,62,61,63,32,115,49,54,53,54,32,115,50,54,53,55,41,0,0,0,0,0,0}; static C_char C_TLS li161[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,115,116,114,105,110,103,45,97,112,112,101,110,100,32,120,54,54,54,32,121,54,54,55,41,0}; static C_char C_TLS li162[] C_aligned={C_lihdr(0,0,19),40,108,111,111,112,32,115,116,114,115,54,55,55,32,110,54,55,56,41,0,0,0,0,0}; static C_char C_TLS li163[] C_aligned={C_lihdr(0,0,24),40,115,116,114,105,110,103,45,97,112,112,101,110,100,32,46,32,97,108,108,54,55,52,41}; static C_char C_TLS li164[] C_aligned={C_lihdr(0,0,19),40,115,116,114,105,110,103,32,46,32,99,104,97,114,115,54,56,55,41,0,0,0,0,0}; static C_char C_TLS li165[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,112,111,115,54,57,52,41,0,0,0}; static C_char C_TLS li166[] C_aligned={C_lihdr(0,0,40),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,54,56,57,32,102,115,54,57,48,41}; static C_char C_TLS li167[] C_aligned={C_lihdr(0,0,14),40,102,105,120,110,117,109,63,32,120,55,48,56,41,0,0}; static C_char C_TLS li168[] C_aligned={C_lihdr(0,0,15),40,102,120,43,32,120,55,49,48,32,121,55,49,49,41,0}; static C_char C_TLS li169[] C_aligned={C_lihdr(0,0,15),40,102,120,45,32,120,55,49,51,32,121,55,49,52,41,0}; static C_char C_TLS li170[] C_aligned={C_lihdr(0,0,15),40,102,120,42,32,120,55,49,54,32,121,55,49,55,41,0}; static C_char C_TLS li171[] C_aligned={C_lihdr(0,0,15),40,102,120,61,32,120,55,49,57,32,121,55,50,48,41,0}; static C_char C_TLS li172[] C_aligned={C_lihdr(0,0,15),40,102,120,62,32,120,55,50,50,32,121,55,50,51,41,0}; static C_char C_TLS li173[] C_aligned={C_lihdr(0,0,15),40,102,120,60,32,120,55,50,53,32,121,55,50,54,41,0}; static C_char C_TLS li174[] C_aligned={C_lihdr(0,0,16),40,102,120,62,61,32,120,55,50,56,32,121,55,50,57,41}; static C_char C_TLS li175[] C_aligned={C_lihdr(0,0,16),40,102,120,60,61,32,120,55,51,49,32,121,55,51,50,41}; static C_char C_TLS li176[] C_aligned={C_lihdr(0,0,17),40,102,120,109,105,110,32,120,55,51,52,32,121,55,51,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li177[] C_aligned={C_lihdr(0,0,17),40,102,120,109,97,120,32,120,55,51,55,32,121,55,51,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li178[] C_aligned={C_lihdr(0,0,12),40,102,120,110,101,103,32,120,55,52,48,41,0,0,0,0}; static C_char C_TLS li179[] C_aligned={C_lihdr(0,0,17),40,102,120,97,110,100,32,120,55,52,50,32,121,55,52,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li180[] C_aligned={C_lihdr(0,0,17),40,102,120,105,111,114,32,120,55,52,53,32,121,55,52,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li181[] C_aligned={C_lihdr(0,0,17),40,102,120,120,111,114,32,120,55,52,56,32,121,55,52,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li182[] C_aligned={C_lihdr(0,0,12),40,102,120,110,111,116,32,120,55,53,49,41,0,0,0,0}; static C_char C_TLS li183[] C_aligned={C_lihdr(0,0,17),40,102,120,115,104,108,32,120,55,53,51,32,121,55,53,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li184[] C_aligned={C_lihdr(0,0,17),40,102,120,115,104,114,32,120,55,53,54,32,121,55,53,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li185[] C_aligned={C_lihdr(0,0,13),40,102,120,111,100,100,63,32,120,55,53,57,41,0,0,0}; static C_char C_TLS li186[] C_aligned={C_lihdr(0,0,14),40,102,120,101,118,101,110,63,32,120,55,54,49,41,0,0}; static C_char C_TLS li187[] C_aligned={C_lihdr(0,0,15),40,102,120,47,32,120,55,54,51,32,121,55,54,52,41,0}; static C_char C_TLS li188[] C_aligned={C_lihdr(0,0,17),40,102,120,109,111,100,32,120,55,54,54,32,121,55,54,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li189[] C_aligned={C_lihdr(0,0,16),40,102,120,43,63,32,120,55,54,57,32,121,55,55,48,41}; static C_char C_TLS li190[] C_aligned={C_lihdr(0,0,16),40,102,120,45,63,32,120,55,55,50,32,121,55,55,51,41}; static C_char C_TLS li191[] C_aligned={C_lihdr(0,0,16),40,102,120,42,63,32,120,55,55,53,32,121,55,55,54,41}; static C_char C_TLS li192[] C_aligned={C_lihdr(0,0,16),40,102,120,47,63,32,120,55,55,56,32,121,55,55,57,41}; static C_char C_TLS li193[] C_aligned={C_lihdr(0,0,14),40,102,108,111,110,117,109,63,32,120,56,48,49,41,0,0}; static C_char C_TLS li194[] C_aligned={C_lihdr(0,0,14),40,102,105,110,105,116,101,63,32,120,56,48,51,41,0,0}; static C_char C_TLS li195[] C_aligned={C_lihdr(0,0,15),40,102,112,43,32,120,56,48,54,32,121,56,48,55,41,0}; static C_char C_TLS li196[] C_aligned={C_lihdr(0,0,15),40,102,112,45,32,120,56,49,55,32,121,56,49,56,41,0}; static C_char C_TLS li197[] C_aligned={C_lihdr(0,0,15),40,102,112,42,32,120,56,50,56,32,121,56,50,57,41,0}; static C_char C_TLS li198[] C_aligned={C_lihdr(0,0,15),40,102,112,47,32,120,56,51,57,32,121,56,52,48,41,0}; static C_char C_TLS li199[] C_aligned={C_lihdr(0,0,16),40,102,112,47,63,32,120,56,53,48,32,121,56,53,49,41}; static C_char C_TLS li200[] C_aligned={C_lihdr(0,0,15),40,102,112,61,32,120,56,54,49,32,121,56,54,50,41,0}; static C_char C_TLS li201[] C_aligned={C_lihdr(0,0,15),40,102,112,62,32,120,56,55,50,32,121,56,55,51,41,0}; static C_char C_TLS li202[] C_aligned={C_lihdr(0,0,15),40,102,112,60,32,120,56,56,51,32,121,56,56,52,41,0}; static C_char C_TLS li203[] C_aligned={C_lihdr(0,0,16),40,102,112,62,61,32,120,56,57,52,32,121,56,57,53,41}; static C_char C_TLS li204[] C_aligned={C_lihdr(0,0,16),40,102,112,60,61,32,120,57,48,53,32,121,57,48,54,41}; static C_char C_TLS li205[] C_aligned={C_lihdr(0,0,12),40,102,112,110,101,103,32,120,57,49,54,41,0,0,0,0}; static C_char C_TLS li206[] C_aligned={C_lihdr(0,0,17),40,102,112,109,97,120,32,120,57,50,52,32,121,57,50,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li207[] C_aligned={C_lihdr(0,0,17),40,102,112,109,105,110,32,120,57,51,53,32,121,57,51,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li208[] C_aligned={C_lihdr(0,0,14),40,102,112,102,108,111,111,114,32,120,57,52,54,41,0,0}; static C_char C_TLS li209[] C_aligned={C_lihdr(0,0,17),40,102,112,116,114,117,110,99,97,116,101,32,120,57,53,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li210[] C_aligned={C_lihdr(0,0,14),40,102,112,114,111,117,110,100,32,120,57,54,50,41,0,0}; static C_char C_TLS li211[] C_aligned={C_lihdr(0,0,16),40,102,112,99,101,105,108,105,110,103,32,120,57,55,48,41}; static C_char C_TLS li212[] C_aligned={C_lihdr(0,0,12),40,102,112,115,105,110,32,120,57,56,49,41,0,0,0,0}; static C_char C_TLS li213[] C_aligned={C_lihdr(0,0,12),40,102,112,99,111,115,32,120,57,56,57,41,0,0,0,0}; static C_char C_TLS li214[] C_aligned={C_lihdr(0,0,12),40,102,112,116,97,110,32,120,57,57,55,41,0,0,0,0}; static C_char C_TLS li215[] C_aligned={C_lihdr(0,0,14),40,102,112,97,115,105,110,32,120,49,48,48,53,41,0,0}; static C_char C_TLS li216[] C_aligned={C_lihdr(0,0,14),40,102,112,97,99,111,115,32,120,49,48,49,51,41,0,0}; static C_char C_TLS li217[] C_aligned={C_lihdr(0,0,14),40,102,112,97,116,97,110,32,120,49,48,50,49,41,0,0}; static C_char C_TLS li218[] C_aligned={C_lihdr(0,0,21),40,102,112,97,116,97,110,50,32,120,49,48,50,57,32,121,49,48,51,48,41,0,0,0}; static C_char C_TLS li219[] C_aligned={C_lihdr(0,0,13),40,102,112,101,120,112,32,120,49,48,52,48,41,0,0,0}; static C_char C_TLS li220[] C_aligned={C_lihdr(0,0,20),40,102,112,101,120,112,116,32,120,49,48,52,56,32,121,49,48,52,57,41,0,0,0,0}; static C_char C_TLS li221[] C_aligned={C_lihdr(0,0,13),40,102,112,108,111,103,32,120,49,48,53,57,41,0,0,0}; static C_char C_TLS li222[] C_aligned={C_lihdr(0,0,14),40,102,112,115,113,114,116,32,120,49,48,54,55,41,0,0}; static C_char C_TLS li223[] C_aligned={C_lihdr(0,0,13),40,102,112,97,98,115,32,120,49,48,55,53,41,0,0,0}; static C_char C_TLS li224[] C_aligned={C_lihdr(0,0,18),40,102,112,105,110,116,101,103,101,114,63,32,120,49,48,56,51,41,0,0,0,0,0,0}; static C_char C_TLS li225[] C_aligned={C_lihdr(0,0,7),67,95,116,105,109,101,115,0}; static C_char C_TLS li226[] C_aligned={C_lihdr(0,0,7),67,95,109,105,110,117,115,0}; static C_char C_TLS li227[] C_aligned={C_lihdr(0,0,6),67,95,112,108,117,115,0,0}; static C_char C_TLS li228[] C_aligned={C_lihdr(0,0,8),67,95,100,105,118,105,100,101}; static C_char C_TLS li229[] 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 li230[] 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 li231[] C_aligned={C_lihdr(0,0,7),67,95,108,101,115,115,112,0}; static C_char C_TLS li232[] 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 li233[] 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 li234[] C_aligned={C_lihdr(0,0,12),40,97,100,100,49,32,110,49,49,48,48,41,0,0,0,0}; static C_char C_TLS li235[] C_aligned={C_lihdr(0,0,12),40,115,117,98,49,32,110,49,49,48,50,41,0,0,0,0}; static C_char C_TLS li236[] C_aligned={C_lihdr(0,0,10),67,95,113,117,111,116,105,101,110,116,0,0,0,0,0,0}; static C_char C_TLS li237[] C_aligned={C_lihdr(0,0,15),40,110,117,109,98,101,114,63,32,120,49,49,48,53,41,0}; static C_char C_TLS li238[] C_aligned={C_lihdr(0,0,17),40,114,97,116,105,111,110,97,108,63,32,110,49,49,49,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li239[] C_aligned={C_lihdr(0,0,17),67,95,102,108,111,110,117,109,95,102,114,97,99,116,105,111,110,0,0,0,0,0,0,0}; static C_char C_TLS li240[] C_aligned={C_lihdr(0,0,12),67,95,102,108,111,110,117,109,95,114,97,116,0,0,0,0}; static C_char C_TLS li241[] C_aligned={C_lihdr(0,0,16),40,105,110,116,101,103,101,114,63,32,120,49,49,49,52,41}; static C_char C_TLS li242[] C_aligned={C_lihdr(0,0,14),40,101,120,97,99,116,63,32,120,49,49,49,55,41,0,0}; static C_char C_TLS li243[] C_aligned={C_lihdr(0,0,16),40,105,110,101,120,97,99,116,63,32,120,49,49,49,57,41}; static C_char C_TLS li244[] C_aligned={C_lihdr(0,0,6),67,95,101,120,112,116,0,0}; static C_char C_TLS li245[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,102,105,116,115,45,105,110,45,105,110,116,63,32,110,49,49,50,52,41,0,0,0,0,0,0}; static C_char C_TLS li246[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,102,105,116,115,45,105,110,45,117,110,115,105,103,110,101,100,45,105,110,116,63,32,110,49,49,50,54,41,0,0,0,0,0}; static C_char C_TLS li247[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,102,108,111,110,117,109,45,105,110,45,102,105,120,110,117,109,45,114,97,110,103,101,63,32,110,49,49,50,56,41,0,0,0}; static C_char C_TLS li248[] C_aligned={C_lihdr(0,0,13),40,122,101,114,111,63,32,110,49,49,51,48,41,0,0,0}; static C_char C_TLS li249[] C_aligned={C_lihdr(0,0,17),40,112,111,115,105,116,105,118,101,63,32,110,49,49,51,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li250[] C_aligned={C_lihdr(0,0,17),40,110,101,103,97,116,105,118,101,63,32,110,49,49,51,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li251[] C_aligned={C_lihdr(0,0,11),40,97,98,115,32,110,49,49,51,54,41,0,0,0,0,0}; static C_char C_TLS li252[] C_aligned={C_lihdr(0,0,13),40,97,110,103,108,101,32,110,49,49,51,56,41,0,0,0}; static C_char C_TLS li253[] C_aligned={C_lihdr(0,0,17),40,114,101,97,108,45,112,97,114,116,32,110,49,49,52,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li254[] C_aligned={C_lihdr(0,0,17),40,105,109,97,103,45,112,97,114,116,32,110,49,49,52,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li255[] C_aligned={C_lihdr(0,0,7),40,97,57,52,52,48,41,0}; static C_char C_TLS li256[] C_aligned={C_lihdr(0,0,25),40,97,57,52,52,54,32,110,117,109,49,49,53,50,32,100,101,110,111,109,49,49,53,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li257[] C_aligned={C_lihdr(0,0,17),40,110,117,109,101,114,97,116,111,114,32,110,49,49,52,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li258[] C_aligned={C_lihdr(0,0,7),40,97,57,52,54,55,41,0}; static C_char C_TLS li259[] C_aligned={C_lihdr(0,0,25),40,97,57,52,55,51,32,110,117,109,49,49,54,49,32,100,101,110,111,109,49,49,54,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li260[] C_aligned={C_lihdr(0,0,19),40,100,101,110,111,109,105,110,97,116,111,114,32,110,49,49,53,54,41,0,0,0,0,0}; static C_char C_TLS li261[] C_aligned={C_lihdr(0,0,14),40,115,105,103,110,117,109,32,110,49,49,54,54,41,0,0}; static C_char C_TLS li262[] C_aligned={C_lihdr(0,0,22),40,101,120,97,99,116,45,62,105,110,101,120,97,99,116,32,110,49,49,55,50,41,0,0}; static C_char C_TLS li263[] C_aligned={C_lihdr(0,0,22),40,105,110,101,120,97,99,116,45,62,101,120,97,99,116,32,110,49,49,55,52,41,0,0}; static C_char C_TLS li264[] C_aligned={C_lihdr(0,0,13),40,102,108,111,111,114,32,120,49,49,55,56,41,0,0,0}; static C_char C_TLS li265[] C_aligned={C_lihdr(0,0,15),40,99,101,105,108,105,110,103,32,120,49,49,56,49,41,0}; static C_char C_TLS li266[] C_aligned={C_lihdr(0,0,16),40,116,114,117,110,99,97,116,101,32,120,49,49,56,52,41}; static C_char C_TLS li267[] C_aligned={C_lihdr(0,0,13),40,114,111,117,110,100,32,120,49,49,56,55,41,0,0,0}; static C_char C_TLS li268[] C_aligned={C_lihdr(0,0,23),40,114,101,109,97,105,110,100,101,114,32,120,49,49,57,48,32,121,49,49,57,49,41,0}; static C_char C_TLS li269[] C_aligned={C_lihdr(0,0,20),40,109,111,100,117,108,111,32,97,49,49,57,51,32,98,49,49,57,52,41,0,0,0,0}; static C_char C_TLS li270[] C_aligned={C_lihdr(0,0,13),40,101,118,101,110,63,32,110,49,49,57,55,41,0,0,0}; static C_char C_TLS li271[] C_aligned={C_lihdr(0,0,12),40,111,100,100,63,32,110,49,49,57,57,41,0,0,0,0}; static C_char C_TLS li272[] C_aligned={C_lihdr(0,0,35),40,108,111,111,112,32,110,98,101,115,116,49,50,48,57,32,105,110,101,120,97,99,116,49,50,49,48,32,110,115,49,50,49,49,41,0,0,0,0,0}; static C_char C_TLS li273[] C_aligned={C_lihdr(0,0,35),40,109,97,120,109,105,110,49,50,48,50,32,110,49,49,50,48,53,32,110,115,49,50,48,54,32,112,114,101,100,49,50,48,55,41,0,0,0,0,0}; static C_char C_TLS li274[] C_aligned={C_lihdr(0,0,21),40,109,97,120,32,110,49,49,50,49,56,32,46,32,110,115,49,50,49,57,41,0,0,0}; static C_char C_TLS li275[] C_aligned={C_lihdr(0,0,21),40,109,105,110,32,110,49,49,50,50,49,32,46,32,110,115,49,50,50,50,41,0,0,0}; static C_char C_TLS li276[] C_aligned={C_lihdr(0,0,11),40,101,120,112,32,110,49,50,50,55,41,0,0,0,0,0}; static C_char C_TLS li277[] C_aligned={C_lihdr(0,0,11),40,108,111,103,32,110,49,50,50,57,41,0,0,0,0,0}; static C_char C_TLS li278[] C_aligned={C_lihdr(0,0,11),40,115,105,110,32,110,49,50,51,49,41,0,0,0,0,0}; static C_char C_TLS li279[] C_aligned={C_lihdr(0,0,11),40,99,111,115,32,110,49,50,51,51,41,0,0,0,0,0}; static C_char C_TLS li280[] C_aligned={C_lihdr(0,0,11),40,116,97,110,32,110,49,50,51,53,41,0,0,0,0,0}; static C_char C_TLS li281[] C_aligned={C_lihdr(0,0,12),40,97,115,105,110,32,110,49,50,51,55,41,0,0,0,0}; static C_char C_TLS li282[] C_aligned={C_lihdr(0,0,12),40,97,99,111,115,32,110,49,50,51,57,41,0,0,0,0}; static C_char C_TLS li283[] C_aligned={C_lihdr(0,0,12),40,115,113,114,116,32,110,49,50,52,49,41,0,0,0,0}; static C_char C_TLS li284[] C_aligned={C_lihdr(0,0,22),40,97,116,97,110,32,110,49,49,50,52,51,32,46,32,110,50,49,50,52,52,41,0,0}; static C_char C_TLS li285[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,32,120,49,50,53,49,32,121,49,50,53,50,41,0,0,0,0,0,0}; static C_char C_TLS li286[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,103,99,100,32,120,49,50,52,56,32,121,49,50,52,57,41,0}; static C_char C_TLS li287[] C_aligned={C_lihdr(0,0,19),40,108,111,111,112,32,110,115,49,50,53,55,32,102,49,50,53,56,41,0,0,0,0,0}; static C_char C_TLS li288[] C_aligned={C_lihdr(0,0,14),40,103,99,100,32,46,32,110,115,49,50,53,53,41,0,0}; static C_char C_TLS li289[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,108,99,109,32,120,49,50,54,54,32,121,49,50,54,55,41,0}; static C_char C_TLS li290[] C_aligned={C_lihdr(0,0,19),40,108,111,111,112,32,110,115,49,50,55,49,32,102,49,50,55,50,41,0,0,0,0,0}; static C_char C_TLS li291[] C_aligned={C_lihdr(0,0,14),40,108,99,109,32,46,32,110,115,49,50,54,57,41,0,0}; static C_char C_TLS li292[] C_aligned={C_lihdr(0,0,38),40,115,116,114,105,110,103,45,62,110,117,109,98,101,114,32,115,116,114,49,50,56,52,32,46,32,116,109,112,49,50,56,51,49,50,56,53,41,0,0}; static C_char C_TLS li293[] 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 li294[] 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 li295[] C_aligned={C_lihdr(0,0,38),40,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,116,109,112,49,51,49,51,49,51,49,52,41,0,0}; static C_char C_TLS li296[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,49,51,51,57,41,0,0,0,0}; static C_char C_TLS li297[] C_aligned={C_lihdr(0,0,37),40,99,111,109,112,97,114,101,45,115,108,111,116,115,32,120,49,51,50,56,32,121,49,51,50,57,32,115,116,97,114,116,49,51,51,48,41,0,0,0}; static C_char C_TLS li298[] C_aligned={C_lihdr(0,0,18),40,119,97,108,107,32,120,49,51,52,50,32,121,49,51,52,51,41,0,0,0,0,0,0}; static C_char C_TLS li299[] C_aligned={C_lihdr(0,0,21),40,101,113,117,97,108,61,63,32,120,49,51,50,52,32,121,49,51,50,53,41,0,0,0}; static C_char C_TLS li300[] 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 li301[] C_aligned={C_lihdr(0,0,15),40,115,121,109,98,111,108,63,32,120,49,51,54,53,41,0}; static C_char C_TLS li302[] 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 li303[] C_aligned={C_lihdr(0,0,30),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,49,51,54,57,41,0,0}; static C_char C_TLS li304[] C_aligned={C_lihdr(0,0,30),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,49,51,55,49,41,0,0}; static C_char C_TLS li305[] C_aligned={C_lihdr(0,0,15),40,115,112,108,105,116,32,108,101,110,49,51,56,48,41,0}; static C_char C_TLS li306[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,115,121,109,98,111,108,45,62,115,116,114,105,110,103,32,115,49,51,56,52,41,0,0,0,0}; static C_char C_TLS li307[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,115,121,109,98,111,108,45,62,113,117,97,108,105,102,105,101,100,45,115,116,114,105,110,103,32,115,49,51,56,56,41,0,0}; static C_char C_TLS li308[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,113,117,97,108,105,102,105,101,100,45,115,121,109,98,111,108,45,112,114,101,102,105,120,32,115,49,51,57,50,41,0,0,0}; static C_char C_TLS li309[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,113,117,97,108,105,102,105,101,100,45,115,121,109,98,111,108,63,32,115,49,52,48,49,41,0}; static C_char C_TLS li310[] C_aligned={C_lihdr(0,0,51),40,35,35,115,121,115,35,115,116,114,105,110,103,45,62,113,117,97,108,105,102,105,101,100,45,115,121,109,98,111,108,32,112,114,101,102,105,120,49,52,48,53,32,115,116,114,49,52,48,54,41,0,0,0,0,0}; static C_char C_TLS li311[] C_aligned={C_lihdr(0,0,22),40,115,121,109,98,111,108,45,62,115,116,114,105,110,103,32,115,49,52,48,56,41,0,0}; static C_char C_TLS li312[] C_aligned={C_lihdr(0,0,24),40,115,116,114,105,110,103,45,62,115,121,109,98,111,108,32,115,116,114,49,52,49,50,41}; static C_char C_TLS li313[] C_aligned={C_lihdr(0,0,35),40,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,49,52,49,54,41,0,0,0,0,0}; static C_char C_TLS li314[] C_aligned={C_lihdr(0,0,25),40,103,101,110,115,121,109,32,46,32,115,116,114,45,111,114,45,115,121,109,49,52,50,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li315[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,52,51,56,32,103,49,52,53,48,49,52,53,56,41}; static C_char C_TLS li316[] C_aligned={C_lihdr(0,0,24),40,115,121,109,98,111,108,45,97,112,112,101,110,100,32,46,32,115,115,49,52,51,53,41}; static C_char C_TLS li317[] C_aligned={C_lihdr(0,0,16),40,107,101,121,119,111,114,100,63,32,120,49,52,54,53,41}; static C_char C_TLS li318[] C_aligned={C_lihdr(0,0,23),40,115,116,114,105,110,103,45,62,107,101,121,119,111,114,100,32,115,49,52,54,57,41,0}; static C_char C_TLS li319[] C_aligned={C_lihdr(0,0,24),40,107,101,121,119,111,114,100,45,62,115,116,114,105,110,103,32,107,119,49,52,55,51,41}; static C_char C_TLS li320[] C_aligned={C_lihdr(0,0,44),40,103,101,116,45,107,101,121,119,111,114,100,32,107,101,121,49,52,56,48,32,97,114,103,115,49,52,56,49,32,46,32,116,109,112,49,52,55,57,49,52,56,50,41,0,0,0,0}; static C_char C_TLS li321[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,109,97,107,101,45,98,108,111,98,32,115,105,122,101,49,52,57,51,41,0,0,0,0,0,0}; static C_char C_TLS li322[] C_aligned={C_lihdr(0,0,20),40,109,97,107,101,45,98,108,111,98,32,115,105,122,101,49,52,57,55,41,0,0,0,0}; static C_char C_TLS li323[] C_aligned={C_lihdr(0,0,13),40,98,108,111,98,63,32,120,49,53,48,48,41,0,0,0}; static C_char C_TLS li324[] C_aligned={C_lihdr(0,0,18),40,98,108,111,98,45,115,105,122,101,32,98,118,49,53,48,51,41,0,0,0,0,0,0}; static C_char C_TLS li325[] C_aligned={C_lihdr(0,0,20),40,115,116,114,105,110,103,45,62,98,108,111,98,32,115,49,53,48,54,41,0,0,0,0}; static C_char C_TLS li326[] C_aligned={C_lihdr(0,0,21),40,98,108,111,98,45,62,115,116,114,105,110,103,32,98,118,49,53,49,50,41,0,0,0}; static C_char C_TLS li327[] C_aligned={C_lihdr(0,0,22),40,98,108,111,98,61,63,32,98,49,49,53,49,56,32,98,50,49,53,49,57,41,0,0}; static C_char C_TLS li328[] C_aligned={C_lihdr(0,0,15),40,118,101,99,116,111,114,63,32,120,49,53,50,53,41,0}; static C_char C_TLS li329[] C_aligned={C_lihdr(0,0,21),40,118,101,99,116,111,114,45,108,101,110,103,116,104,32,118,49,53,50,55,41,0,0,0}; static C_char C_TLS li330[] C_aligned={C_lihdr(0,0,21),40,102,95,49,48,54,50,48,32,118,49,53,50,57,32,105,49,53,51,48,41,0,0,0}; static C_char C_TLS li331[] C_aligned={C_lihdr(0,0,31),40,118,101,99,116,111,114,45,115,101,116,33,32,118,49,53,51,50,32,105,49,53,51,51,32,120,49,53,51,52,41,0}; static C_char C_TLS li332[] C_aligned={C_lihdr(0,0,33),40,109,97,107,101,45,118,101,99,116,111,114,32,115,105,122,101,49,53,51,54,32,46,32,102,105,108,108,49,53,51,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li333[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,49,53,52,55,41,0,0,0,0}; static C_char C_TLS li334[] C_aligned={C_lihdr(0,0,23),40,108,105,115,116,45,62,118,101,99,116,111,114,32,108,115,116,48,49,53,52,50,41,0}; static C_char C_TLS li335[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,49,53,53,52,41,0,0,0,0}; static C_char C_TLS li336[] C_aligned={C_lihdr(0,0,20),40,118,101,99,116,111,114,45,62,108,105,115,116,32,118,49,53,53,49,41,0,0,0,0}; static C_char C_TLS li337[] C_aligned={C_lihdr(0,0,17),40,118,101,99,116,111,114,32,46,32,120,115,49,53,53,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li338[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,49,53,54,51,41,0,0,0,0}; static C_char C_TLS li339[] C_aligned={C_lihdr(0,0,26),40,118,101,99,116,111,114,45,102,105,108,108,33,32,118,49,53,54,48,32,120,49,53,54,49,41,0,0,0,0,0,0}; static C_char C_TLS li340[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,49,53,55,57,41,0,0,0,0}; static C_char C_TLS li341[] C_aligned={C_lihdr(0,0,38),40,118,101,99,116,111,114,45,99,111,112,121,33,32,102,114,111,109,49,53,55,48,32,116,111,49,53,55,49,32,46,32,110,49,53,55,50,41,0,0}; static C_char C_TLS li342[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,49,54,48,56,41,0,0,0,0}; static C_char C_TLS li343[] C_aligned={C_lihdr(0,0,37),40,115,117,98,118,101,99,116,111,114,32,118,49,53,57,51,32,105,49,53,57,52,32,46,32,116,109,112,49,53,57,50,49,53,57,53,41,0,0,0}; static C_char C_TLS li344[] C_aligned={C_lihdr(0,0,41),40,118,101,99,116,111,114,45,114,101,115,105,122,101,32,118,49,54,50,49,32,110,49,54,50,50,32,46,32,116,109,112,49,54,50,48,49,54,50,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li345[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,49,54,51,55,41,0,0,0,0}; static C_char C_TLS li346[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,118,101,99,116,111,114,45,114,101,115,105,122,101,32,118,49,54,51,50,32,110,49,54,51,51,32,105,110,105,116,49,54,51,52,41,0,0,0,0,0,0}; static C_char C_TLS li347[] C_aligned={C_lihdr(0,0,13),40,99,104,97,114,63,32,120,49,54,52,51,41,0,0,0}; static C_char C_TLS li348[] C_aligned={C_lihdr(0,0,21),40,99,104,97,114,45,62,105,110,116,101,103,101,114,32,99,49,54,52,53,41,0,0,0}; static C_char C_TLS li349[] C_aligned={C_lihdr(0,0,21),40,105,110,116,101,103,101,114,45,62,99,104,97,114,32,110,49,54,52,56,41,0,0,0}; static C_char C_TLS li350[] C_aligned={C_lihdr(0,0,22),40,99,104,97,114,61,63,32,99,49,49,54,53,49,32,99,50,49,54,53,50,41,0,0}; static C_char C_TLS li351[] C_aligned={C_lihdr(0,0,22),40,99,104,97,114,62,63,32,99,49,49,54,53,52,32,99,50,49,54,53,53,41,0,0}; static C_char C_TLS li352[] C_aligned={C_lihdr(0,0,22),40,99,104,97,114,60,63,32,99,49,49,54,53,55,32,99,50,49,54,53,56,41,0,0}; static C_char C_TLS li353[] C_aligned={C_lihdr(0,0,23),40,99,104,97,114,62,61,63,32,99,49,49,54,54,48,32,99,50,49,54,54,49,41,0}; static C_char C_TLS li354[] C_aligned={C_lihdr(0,0,23),40,99,104,97,114,60,61,63,32,99,49,49,54,54,51,32,99,50,49,54,54,52,41,0}; static C_char C_TLS li355[] C_aligned={C_lihdr(0,0,19),40,99,104,97,114,45,117,112,99,97,115,101,32,99,49,54,54,54,41,0,0,0,0,0}; static C_char C_TLS li356[] C_aligned={C_lihdr(0,0,21),40,99,104,97,114,45,100,111,119,110,99,97,115,101,32,99,49,54,54,57,41,0,0,0}; static C_char C_TLS li357[] C_aligned={C_lihdr(0,0,23),40,99,104,97,114,45,99,105,61,63,32,120,49,54,55,55,32,121,49,54,55,56,41,0}; static C_char C_TLS li358[] C_aligned={C_lihdr(0,0,23),40,99,104,97,114,45,99,105,62,63,32,120,49,54,55,57,32,121,49,54,56,48,41,0}; static C_char C_TLS li359[] C_aligned={C_lihdr(0,0,23),40,99,104,97,114,45,99,105,60,63,32,120,49,54,56,49,32,121,49,54,56,50,41,0}; static C_char C_TLS li360[] C_aligned={C_lihdr(0,0,24),40,99,104,97,114,45,99,105,62,61,63,32,120,49,54,56,51,32,121,49,54,56,52,41}; static C_char C_TLS li361[] C_aligned={C_lihdr(0,0,24),40,99,104,97,114,45,99,105,60,61,63,32,120,49,54,56,53,32,121,49,54,56,54,41}; static C_char C_TLS li362[] C_aligned={C_lihdr(0,0,24),40,99,104,97,114,45,117,112,112,101,114,45,99,97,115,101,63,32,99,49,54,57,50,41}; static C_char C_TLS li363[] C_aligned={C_lihdr(0,0,24),40,99,104,97,114,45,108,111,119,101,114,45,99,97,115,101,63,32,99,49,54,57,53,41}; static C_char C_TLS li364[] C_aligned={C_lihdr(0,0,21),40,99,104,97,114,45,110,117,109,101,114,105,99,63,32,99,49,54,57,56,41,0,0,0}; static C_char C_TLS li365[] C_aligned={C_lihdr(0,0,24),40,99,104,97,114,45,119,104,105,116,101,115,112,97,99,101,63,32,99,49,55,48,49,41}; static C_char C_TLS li366[] C_aligned={C_lihdr(0,0,24),40,99,104,97,114,45,97,108,112,104,97,98,101,116,105,99,63,32,99,49,55,48,52,41}; static C_char C_TLS li367[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li368[] C_aligned={C_lihdr(0,0,19),40,108,111,111,107,117,112,45,99,104,97,114,32,99,49,55,49,48,41,0,0,0,0,0}; static C_char C_TLS li369[] C_aligned={C_lihdr(0,0,25),40,99,104,97,114,45,110,97,109,101,32,120,49,55,49,56,32,46,32,121,49,55,49,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li370[] C_aligned={C_lihdr(0,0,18),40,112,114,111,99,101,100,117,114,101,63,32,120,49,55,51,56,41,0,0,0,0,0,0}; static C_char C_TLS li371[] C_aligned={C_lihdr(0,0,7),67,95,97,112,112,108,121,0}; static C_char C_TLS li372[] 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 li373[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,99,97,108,108,45,119,105,116,104,45,100,105,114,101,99,116,45,99,111,110,116,105,110,117,97,116,105,111,110,32,107,49,55,52,50,41,0,0,0,0,0}; static C_char C_TLS li374[] 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 li375[] C_aligned={C_lihdr(0,0,8),67,95,118,97,108,117,101,115}; static C_char C_TLS li376[] 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 li377[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,108,115,116,49,55,53,49,41,0,0}; static C_char C_TLS li378[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,102,111,114,45,101,97,99,104,32,112,49,55,52,56,32,108,115,116,48,49,55,52,57,41,0}; static C_char C_TLS li379[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,108,115,116,49,55,54,50,41,0,0}; static C_char C_TLS li380[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,109,97,112,32,112,49,55,53,57,32,108,115,116,48,49,55,54,48,41,0,0,0,0,0,0}; static C_char C_TLS li381[] C_aligned={C_lihdr(0,0,46),40,109,97,112,115,97,102,101,49,55,55,48,32,112,49,55,55,54,32,108,115,116,115,49,55,55,55,32,115,116,97,114,116,49,55,55,56,32,108,111,99,49,55,55,57,41,0,0}; static C_char C_TLS li382[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li383[] C_aligned={C_lihdr(0,0,38),40,99,104,101,99,107,49,55,55,49,32,108,115,116,115,49,55,56,53,32,115,116,97,114,116,49,55,56,54,32,108,111,99,49,55,56,55,41,0,0}; static C_char C_TLS li384[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,56,48,49,32,103,49,56,48,56,49,56,49,50,41,0,0,0}; static C_char C_TLS li385[] C_aligned={C_lihdr(0,0,14),40,97,49,49,53,54,57,32,120,49,56,50,52,41,0,0}; static C_char C_TLS li386[] C_aligned={C_lihdr(0,0,14),40,97,49,49,53,55,57,32,120,49,56,50,51,41,0,0}; static C_char C_TLS li387[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,97,108,108,49,56,49,55,41,0,0}; static C_char C_TLS li388[] C_aligned={C_lihdr(0,0,37),40,102,111,114,45,101,97,99,104,32,102,110,49,55,57,54,32,108,115,116,49,49,55,57,55,32,46,32,108,115,116,115,49,55,57,56,41,0,0,0}; static C_char C_TLS li389[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,56,51,50,32,103,49,56,52,52,49,56,53,48,41}; static C_char C_TLS li390[] C_aligned={C_lihdr(0,0,14),40,97,49,49,54,55,52,32,120,49,56,54,52,41,0,0}; static C_char C_TLS li391[] C_aligned={C_lihdr(0,0,14),40,97,49,49,54,56,52,32,120,49,56,54,51,41,0,0}; static C_char C_TLS li392[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,97,108,108,49,56,53,55,41,0,0}; static C_char C_TLS li393[] C_aligned={C_lihdr(0,0,32),40,109,97,112,32,102,110,49,56,50,55,32,108,115,116,49,49,56,50,56,32,46,32,108,115,116,115,49,56,50,57,41}; static C_char C_TLS li394[] C_aligned={C_lihdr(0,0,22),40,97,49,49,55,48,56,32,46,32,114,101,115,117,108,116,115,49,56,55,53,41,0,0}; static C_char C_TLS li395[] C_aligned={C_lihdr(0,0,45),40,100,121,110,97,109,105,99,45,119,105,110,100,32,98,101,102,111,114,101,49,56,55,50,32,116,104,117,110,107,49,56,55,51,32,97,102,116,101,114,49,56,55,52,41,0,0,0}; static C_char C_TLS li396[] C_aligned={C_lihdr(0,0,28),40,99,111,110,116,105,110,117,97,116,105,111,110,32,46,32,114,101,115,117,108,116,115,49,56,56,54,41,0,0,0,0}; static C_char C_TLS li397[] C_aligned={C_lihdr(0,0,17),40,97,49,49,55,51,50,32,99,111,110,116,49,56,56,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li398[] C_aligned={C_lihdr(0,0,41),40,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,49,56,56,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li399[] C_aligned={C_lihdr(0,0,38),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,49,56,57,49,32,110,49,56,57,50,41,0,0}; static C_char C_TLS li400[] C_aligned={C_lihdr(0,0,31),40,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,49,57,48,56,41,0}; static C_char C_TLS li401[] C_aligned={C_lihdr(0,0,21),40,99,111,110,116,105,110,117,97,116,105,111,110,63,32,120,49,57,49,50,41,0,0,0}; static C_char C_TLS li402[] 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 li403[] C_aligned={C_lihdr(0,0,36),40,99,111,110,116,105,110,117,97,116,105,111,110,45,103,114,97,102,116,32,107,49,57,49,53,32,116,104,117,110,107,49,57,49,54,41,0,0,0,0}; static C_char C_TLS li404[] C_aligned={C_lihdr(0,0,8),40,97,49,49,56,56,51,41}; static C_char C_TLS li405[] C_aligned={C_lihdr(0,0,38),40,99,111,110,116,105,110,117,97,116,105,111,110,45,114,101,116,117,114,110,32,107,49,57,50,49,32,46,32,118,97,108,115,49,57,50,50,41,0,0}; static C_char C_TLS li406[] C_aligned={C_lihdr(0,0,13),40,112,111,114,116,63,32,120,49,57,50,53,41,0,0,0}; static C_char C_TLS li407[] C_aligned={C_lihdr(0,0,19),40,105,110,112,117,116,45,112,111,114,116,63,32,120,49,57,50,55,41,0,0,0,0,0}; static C_char C_TLS li408[] C_aligned={C_lihdr(0,0,20),40,111,117,116,112,117,116,45,112,111,114,116,63,32,120,49,57,51,52,41,0,0,0,0}; static C_char C_TLS li409[] C_aligned={C_lihdr(0,0,20),40,112,111,114,116,45,99,108,111,115,101,100,63,32,112,49,57,52,49,41,0,0,0,0}; static C_char C_TLS li410[] C_aligned={C_lihdr(0,0,53),40,35,35,115,121,115,35,109,97,107,101,45,112,111,114,116,32,105,47,111,49,57,52,52,32,99,108,97,115,115,49,57,52,53,32,110,97,109,101,49,57,52,54,32,116,121,112,101,49,57,52,55,41,0,0,0}; static C_char C_TLS li411[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li412[] C_aligned={C_lihdr(0,0,14),40,97,50,53,50,53,49,32,112,49,57,53,54,41,0,0}; static C_char C_TLS li413[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li414[] C_aligned={C_lihdr(0,0,14),40,97,50,53,50,57,52,32,112,49,57,54,54,41,0,0}; static C_char C_TLS li415[] C_aligned={C_lihdr(0,0,20),40,97,50,53,51,51,55,32,112,49,57,55,54,32,99,49,57,55,55,41,0,0,0,0}; static C_char C_TLS li416[] C_aligned={C_lihdr(0,0,20),40,97,50,53,51,52,48,32,112,49,57,55,56,32,115,49,57,55,57,41,0,0,0,0}; static C_char C_TLS li417[] C_aligned={C_lihdr(0,0,14),40,97,50,53,51,52,51,32,112,49,57,56,48,41,0,0}; static C_char C_TLS li418[] C_aligned={C_lihdr(0,0,14),40,97,50,53,51,52,57,32,112,49,57,56,50,41,0,0}; static C_char C_TLS li419[] C_aligned={C_lihdr(0,0,14),40,97,50,53,51,53,50,32,112,49,57,56,51,41,0,0}; static C_char C_TLS li420[] C_aligned={C_lihdr(0,0,8),40,97,50,53,51,57,50,41}; static C_char C_TLS li421[] C_aligned={C_lihdr(0,0,32),40,108,111,111,112,32,114,101,109,49,57,56,57,32,97,99,116,49,57,57,48,32,115,116,97,114,116,49,57,57,49,41}; static C_char C_TLS li422[] C_aligned={C_lihdr(0,0,39),40,97,50,53,51,53,53,32,112,49,57,56,52,32,110,49,57,56,53,32,100,101,115,116,49,57,56,54,32,115,116,97,114,116,49,57,56,55,41,0}; static C_char C_TLS li423[] C_aligned={C_lihdr(0,0,8),40,97,50,53,53,53,54,41}; static C_char C_TLS li424[] C_aligned={C_lihdr(0,0,52),40,108,111,111,112,32,108,101,110,50,48,48,55,32,108,105,109,105,116,50,48,48,56,32,98,117,102,102,101,114,50,48,48,57,32,114,101,115,117,108,116,50,48,49,48,32,102,50,48,49,49,41,0,0,0,0}; static C_char C_TLS li425[] C_aligned={C_lihdr(0,0,25),40,97,50,53,52,53,55,32,112,50,48,48,51,32,114,108,105,109,105,116,50,48,48,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li426[] 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 li427[] C_aligned={C_lihdr(0,0,49),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,50,48,51,51,32,111,112,101,110,50,48,51,52,32,46,32,108,111,99,50,48,51,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li428[] C_aligned={C_lihdr(0,0,50),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,50,48,51,55,32,111,112,101,110,50,48,51,56,32,46,32,108,111,99,50,48,51,57,41,0,0,0,0,0,0}; static C_char C_TLS li429[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,99,104,101,99,107,45,112,111,114,116,32,120,50,48,52,49,32,46,32,108,111,99,50,48,52,50,41,0,0,0,0,0,0}; static C_char C_TLS li430[] C_aligned={C_lihdr(0,0,39),40,35,35,115,121,115,35,99,104,101,99,107,45,111,112,101,110,45,112,111,114,116,32,120,50,48,52,52,32,46,32,108,111,99,50,48,52,53,41,0}; static C_char C_TLS li431[] C_aligned={C_lihdr(0,0,10),40,98,111,100,121,50,48,53,49,41,0,0,0,0,0,0}; static C_char C_TLS li432[] C_aligned={C_lihdr(0,0,31),40,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,50,48,52,55,41,0}; static C_char C_TLS li433[] C_aligned={C_lihdr(0,0,10),40,98,111,100,121,50,48,55,54,41,0,0,0,0,0,0}; static C_char C_TLS li434[] C_aligned={C_lihdr(0,0,32),40,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,50,48,55,50,41}; static C_char C_TLS li435[] C_aligned={C_lihdr(0,0,10),40,98,111,100,121,50,49,48,49,41,0,0,0,0,0,0}; static C_char C_TLS li436[] C_aligned={C_lihdr(0,0,31),40,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,50,48,57,55,41,0}; static C_char C_TLS li437[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,116,116,121,45,112,111,114,116,63,32,112,111,114,116,50,49,50,50,41,0,0,0,0,0,0}; static C_char C_TLS li438[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,112,111,114,116,45,100,97,116,97,32,112,111,114,116,50,49,50,53,41,0,0,0,0,0,0}; static C_char C_TLS li439[] C_aligned={C_lihdr(0,0,40),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,50,49,50,55,32,100,97,116,97,50,49,50,56,41}; static C_char C_TLS li440[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,112,108,97,116,102,111,114,109,45,102,105,120,117,112,45,112,97,116,104,110,97,109,101,32,110,97,109,101,50,49,51,52,41}; static C_char C_TLS li441[] C_aligned={C_lihdr(0,0,22),40,100,111,108,111,111,112,50,49,53,50,32,109,111,100,101,115,50,49,53,52,41,0,0}; static C_char C_TLS li442[] C_aligned={C_lihdr(0,0,41),40,111,112,101,110,32,110,97,109,101,50,49,52,54,32,105,110,112,50,49,52,55,32,109,111,100,101,115,50,49,52,56,32,108,111,99,50,49,52,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li443[] C_aligned={C_lihdr(0,0,24),40,99,108,111,115,101,32,112,111,114,116,50,49,54,57,32,108,111,99,50,49,55,48,41}; static C_char C_TLS li444[] C_aligned={C_lihdr(0,0,37),40,111,112,101,110,45,105,110,112,117,116,45,102,105,108,101,32,110,97,109,101,50,49,55,54,32,46,32,109,111,100,101,50,49,55,55,41,0,0,0}; static C_char C_TLS li445[] C_aligned={C_lihdr(0,0,38),40,111,112,101,110,45,111,117,116,112,117,116,45,102,105,108,101,32,110,97,109,101,50,49,55,56,32,46,32,109,111,100,101,50,49,55,57,41,0,0}; static C_char C_TLS li446[] C_aligned={C_lihdr(0,0,27),40,99,108,111,115,101,45,105,110,112,117,116,45,112,111,114,116,32,112,111,114,116,50,49,56,48,41,0,0,0,0,0}; static C_char C_TLS li447[] C_aligned={C_lihdr(0,0,28),40,99,108,111,115,101,45,111,117,116,112,117,116,45,112,111,114,116,32,112,111,114,116,50,49,56,49,41,0,0,0,0}; static C_char C_TLS li448[] C_aligned={C_lihdr(0,0,8),40,97,49,50,52,51,52,41}; static C_char C_TLS li449[] C_aligned={C_lihdr(0,0,22),40,97,49,50,52,52,48,32,46,32,114,101,115,117,108,116,115,50,49,57,52,41,0,0}; static C_char C_TLS li450[] C_aligned={C_lihdr(0,0,48),40,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,50,49,57,48,32,112,50,49,57,49,32,46,32,109,111,100,101,50,49,57,50,41}; static C_char C_TLS li451[] C_aligned={C_lihdr(0,0,8),40,97,49,50,52,53,56,41}; static C_char C_TLS li452[] C_aligned={C_lihdr(0,0,22),40,97,49,50,52,54,52,32,46,32,114,101,115,117,108,116,115,50,50,48,51,41,0,0}; static C_char C_TLS li453[] C_aligned={C_lihdr(0,0,49),40,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,50,49,57,57,32,112,50,50,48,48,32,46,32,109,111,100,101,50,50,48,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li454[] C_aligned={C_lihdr(0,0,8),40,97,49,50,52,56,50,41}; static C_char C_TLS li455[] C_aligned={C_lihdr(0,0,22),40,97,49,50,52,57,51,32,46,32,114,101,115,117,108,116,115,50,50,50,48,41,0,0}; static C_char C_TLS li456[] C_aligned={C_lihdr(0,0,8),40,97,49,50,52,56,55,41}; static C_char C_TLS li457[] C_aligned={C_lihdr(0,0,8),40,97,49,50,53,48,50,41}; static C_char C_TLS li458[] C_aligned={C_lihdr(0,0,51),40,119,105,116,104,45,105,110,112,117,116,45,102,114,111,109,45,102,105,108,101,32,115,116,114,50,50,48,56,32,116,104,117,110,107,50,50,48,57,32,46,32,109,111,100,101,50,50,49,48,41,0,0,0,0,0}; static C_char C_TLS li459[] C_aligned={C_lihdr(0,0,8),40,97,49,50,53,49,54,41}; static C_char C_TLS li460[] C_aligned={C_lihdr(0,0,22),40,97,49,50,53,50,55,32,46,32,114,101,115,117,108,116,115,50,50,51,57,41,0,0}; static C_char C_TLS li461[] C_aligned={C_lihdr(0,0,8),40,97,49,50,53,50,49,41}; static C_char C_TLS li462[] C_aligned={C_lihdr(0,0,8),40,97,49,50,53,51,54,41}; static C_char C_TLS li463[] C_aligned={C_lihdr(0,0,50),40,119,105,116,104,45,111,117,116,112,117,116,45,116,111,45,102,105,108,101,32,115,116,114,50,50,50,55,32,116,104,117,110,107,50,50,50,56,32,46,32,109,111,100,101,50,50,50,57,41,0,0,0,0,0,0}; static C_char C_TLS li464[] C_aligned={C_lihdr(0,0,56),40,35,35,115,121,115,35,102,105,108,101,45,101,120,105,115,116,115,63,32,110,97,109,101,50,50,52,52,32,102,105,108,101,63,50,50,52,53,32,100,105,114,63,50,50,52,54,32,108,111,99,50,50,52,55,41}; static C_char C_TLS li465[] C_aligned={C_lihdr(0,0,23),40,102,105,108,101,45,101,120,105,115,116,115,63,32,110,97,109,101,50,50,53,53,41,0}; static C_char C_TLS li466[] C_aligned={C_lihdr(0,0,28),40,100,105,114,101,99,116,111,114,121,45,101,120,105,115,116,115,63,32,110,97,109,101,50,50,53,57,41,0,0,0,0}; static C_char C_TLS li467[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,102,108,117,115,104,45,111,117,116,112,117,116,32,112,111,114,116,50,50,54,51,41,0,0,0}; static C_char C_TLS li468[] C_aligned={C_lihdr(0,0,28),40,102,108,117,115,104,45,111,117,116,112,117,116,32,46,32,116,109,112,50,50,55,49,50,50,55,50,41,0,0,0,0}; static C_char C_TLS li469[] C_aligned={C_lihdr(0,0,25),40,112,111,114,116,45,110,97,109,101,32,46,32,116,109,112,50,50,56,51,50,50,56,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li470[] C_aligned={C_lihdr(0,0,34),40,115,101,116,45,112,111,114,116,45,110,97,109,101,33,32,112,111,114,116,50,50,57,50,32,110,97,109,101,50,50,57,51,41,0,0,0,0,0,0}; static C_char C_TLS li471[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,112,111,114,116,45,108,105,110,101,32,112,111,114,116,50,50,57,55,41,0,0,0,0,0,0}; static C_char C_TLS li472[] C_aligned={C_lihdr(0,0,29),40,112,111,114,116,45,112,111,115,105,116,105,111,110,32,46,32,116,109,112,50,51,48,51,50,51,48,52,41,0,0,0}; static C_char C_TLS li473[] C_aligned={C_lihdr(0,0,26),40,100,101,108,101,116,101,45,102,105,108,101,32,102,105,108,101,110,97,109,101,50,51,49,50,41,0,0,0,0,0,0}; static C_char C_TLS li474[] C_aligned={C_lihdr(0,0,29),40,114,101,110,97,109,101,45,102,105,108,101,32,111,108,100,50,51,49,55,32,110,101,119,50,51,49,56,41,0,0,0}; static C_char C_TLS li475[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,50,51,51,53,32,105,50,51,51,55,41,0,0,0,0,0,0}; static C_char C_TLS li476[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,50,51,50,57,41,0,0,0,0}; static C_char C_TLS li477[] C_aligned={C_lihdr(0,0,55),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,50,51,50,52,32,112,114,101,100,50,51,50,53,32,100,101,99,111,114,97,116,111,114,50,51,50,54,41,0}; static C_char C_TLS li478[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,50,51,52,56,41,0,0,0,0}; static C_char C_TLS li479[] C_aligned={C_lihdr(0,0,43),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,50,51,52,53,32,112,114,101,100,50,51,52,54,41,0,0,0,0,0}; static C_char C_TLS li480[] C_aligned={C_lihdr(0,0,32),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,50,51,53,51,41}; static C_char C_TLS li481[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,108,97,109,98,100,97,45,105,110,102,111,63,32,120,50,51,53,57,41,0,0,0,0,0,0}; static C_char C_TLS li482[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,108,97,109,98,100,97,45,105,110,102,111,32,112,114,111,99,50,51,54,50,41,0,0,0,0}; static C_char C_TLS li483[] C_aligned={C_lihdr(0,0,36),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,50,51,54,52,41,0,0,0,0}; static C_char C_TLS li484[] C_aligned={C_lihdr(0,0,29),40,112,114,111,99,101,100,117,114,101,45,105,110,102,111,114,109,97,116,105,111,110,32,120,50,51,54,57,41,0,0,0}; static C_char C_TLS li485[] C_aligned={C_lihdr(0,0,20),40,97,49,50,57,56,53,32,112,50,52,49,57,32,105,50,52,50,48,41,0,0,0,0}; static C_char C_TLS li486[] C_aligned={C_lihdr(0,0,14),40,97,49,50,57,57,53,32,120,50,52,49,52,41,0,0}; static C_char C_TLS li487[] C_aligned={C_lihdr(0,0,23),40,97,49,51,48,49,49,32,112,114,111,99,50,52,49,54,32,105,50,52,49,55,41,0}; static C_char C_TLS li488[] C_aligned={C_lihdr(0,0,50),40,103,101,116,116,101,114,45,119,105,116,104,45,115,101,116,116,101,114,32,103,101,116,50,52,48,48,32,115,101,116,50,52,48,49,32,46,32,116,109,112,50,51,57,57,50,52,48,50,41,0,0,0,0,0,0}; static C_char C_TLS li489[] C_aligned={C_lihdr(0,0,15),40,102,95,49,51,50,54,56,32,120,50,52,54,54,41,0}; static C_char C_TLS li490[] C_aligned={C_lihdr(0,0,44),40,97,115,115,105,103,110,32,118,97,108,50,52,55,48,32,110,50,52,55,49,32,99,111,110,118,101,114,116,63,50,52,55,50,32,115,101,116,63,50,52,55,51,41,0,0,0,0}; static C_char C_TLS li491[] C_aligned={C_lihdr(0,0,32),40,98,111,100,121,50,52,56,53,32,99,111,110,118,101,114,116,63,50,52,57,52,32,115,101,116,63,50,52,57,53,41}; static C_char C_TLS li492[] C_aligned={C_lihdr(0,0,32),40,100,101,102,45,115,101,116,63,50,52,56,56,32,37,99,111,110,118,101,114,116,63,50,52,56,51,50,52,57,55,41}; static C_char C_TLS li493[] C_aligned={C_lihdr(0,0,18),40,100,101,102,45,99,111,110,118,101,114,116,63,50,52,56,55,41,0,0,0,0,0,0}; static C_char C_TLS li494[] C_aligned={C_lihdr(0,0,19),40,97,49,51,49,53,57,32,46,32,97,114,103,115,50,52,55,55,41,0,0,0,0,0}; static C_char C_TLS li495[] C_aligned={C_lihdr(0,0,16),40,97,49,51,50,52,49,32,118,97,108,50,53,48,52,41}; static C_char C_TLS li496[] C_aligned={C_lihdr(0,0,39),40,109,97,107,101,45,112,97,114,97,109,101,116,101,114,32,105,110,105,116,50,52,53,57,32,46,32,116,109,112,50,52,53,56,50,52,54,48,41,0}; static C_char C_TLS li497[] C_aligned={C_lihdr(0,0,19),40,101,111,102,45,111,98,106,101,99,116,63,32,120,50,53,49,48,41,0,0,0,0,0}; static C_char C_TLS li498[] C_aligned={C_lihdr(0,0,27),40,99,104,97,114,45,114,101,97,100,121,63,32,46,32,116,109,112,50,53,49,53,50,53,49,54,41,0,0,0,0,0}; static C_char C_TLS li499[] C_aligned={C_lihdr(0,0,25),40,114,101,97,100,45,99,104,97,114,32,46,32,116,109,112,50,53,50,57,50,53,51,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li500[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,114,101,97,100,45,99,104,97,114,45,48,32,112,50,53,51,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li501[] C_aligned={C_lihdr(0,0,31),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,50,53,53,48,41,0}; static C_char C_TLS li502[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,112,101,101,107,45,99,104,97,114,45,48,32,112,50,53,53,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li503[] C_aligned={C_lihdr(0,0,25),40,112,101,101,107,45,99,104,97,114,32,46,32,116,109,112,50,53,54,50,50,53,54,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li504[] C_aligned={C_lihdr(0,0,20),40,114,101,97,100,32,46,32,116,109,112,50,53,55,52,50,53,55,53,41,0,0,0,0}; static C_char C_TLS li505[] 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 li506[] C_aligned={C_lihdr(0,0,31),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,50,53,56,55,41,0}; static C_char C_TLS li507[] C_aligned={C_lihdr(0,0,40),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,50,53,56,57,32,110,50,53,57,48,41}; static C_char C_TLS li508[] C_aligned={C_lihdr(0,0,48),40,35,35,115,121,115,35,114,101,97,100,45,119,97,114,110,105,110,103,32,112,111,114,116,50,53,57,56,32,109,115,103,50,53,57,57,32,46,32,97,114,103,115,50,54,48,48,41}; static C_char C_TLS li509[] C_aligned={C_lihdr(0,0,46),40,35,35,115,121,115,35,114,101,97,100,45,101,114,114,111,114,32,112,111,114,116,50,54,48,53,32,109,115,103,50,54,48,54,32,46,32,97,114,103,115,50,54,48,55,41,0,0}; static C_char C_TLS li510[] C_aligned={C_lihdr(0,0,15),40,102,95,49,51,53,53,50,32,99,50,54,51,52,41,0}; static C_char C_TLS li511[] C_aligned={C_lihdr(0,0,33),40,105,110,102,111,32,99,108,97,115,115,50,54,51,53,32,100,97,116,97,50,54,51,54,32,118,97,108,50,54,51,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li512[] C_aligned={C_lihdr(0,0,12),40,115,107,105,112,32,99,50,54,51,57,41,0,0,0,0}; static C_char C_TLS li513[] 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 li514[] C_aligned={C_lihdr(0,0,26),40,114,101,115,101,114,118,101,100,45,99,104,97,114,97,99,116,101,114,32,99,50,54,52,50,41,0,0,0,0,0,0}; static C_char C_TLS li515[] C_aligned={C_lihdr(0,0,33),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,50,54,52,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li516[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,99,50,54,54,53,41,0,0,0,0}; static C_char C_TLS li517[] 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 li518[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,115,101,113,50,54,56,48,32,110,50,54,56,49,41,0,0,0,0}; static C_char C_TLS li519[] C_aligned={C_lihdr(0,0,34),40,114,45,117,115,101,113,117,101,110,99,101,32,117,50,54,55,54,32,110,50,54,55,55,32,98,97,115,101,50,54,55,56,41,0,0,0,0,0,0}; static C_char C_TLS li520[] C_aligned={C_lihdr(0,0,18),40,108,112,32,105,50,54,57,55,32,108,115,116,50,54,57,56,41,0,0,0,0,0,0}; static C_char C_TLS li521[] C_aligned={C_lihdr(0,0,33),40,114,45,99,111,110,115,45,99,111,100,101,112,111,105,110,116,32,99,112,50,54,57,50,32,108,115,116,50,54,57,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li522[] C_aligned={C_lihdr(0,0,22),40,101,97,116,45,119,115,32,99,50,55,51,57,32,110,108,63,50,55,52,48,41,0,0}; static C_char C_TLS li523[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,99,50,55,48,50,32,108,115,116,50,55,48,51,41,0,0,0,0}; static C_char C_TLS li524[] C_aligned={C_lihdr(0,0,19),40,114,45,115,116,114,105,110,103,32,116,101,114,109,50,55,48,48,41,0,0,0,0,0}; static C_char C_TLS li525[] C_aligned={C_lihdr(0,0,23),40,115,116,97,114,116,105,110,103,45,108,105,110,101,32,109,115,103,50,55,54,57,41,0}; static C_char C_TLS li526[] C_aligned={C_lihdr(0,0,15),40,102,95,49,52,51,56,50,32,99,50,55,55,50,41,0}; static C_char C_TLS li527[] C_aligned={C_lihdr(0,0,23),40,97,49,52,52,57,55,32,116,111,107,50,56,48,49,32,107,119,50,56,48,50,41,0}; static C_char C_TLS li528[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,108,97,115,116,50,55,55,52,41,0}; static C_char C_TLS li529[] C_aligned={C_lihdr(0,0,19),40,97,49,52,51,55,56,32,114,101,116,117,114,110,50,55,55,49,41,0,0,0,0,0}; static C_char C_TLS li530[] C_aligned={C_lihdr(0,0,26),40,114,45,108,105,115,116,32,115,116,97,114,116,50,55,54,51,32,101,110,100,50,55,54,52,41,0,0,0,0,0,0}; static C_char C_TLS li531[] 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 li532[] C_aligned={C_lihdr(0,0,23),40,97,49,52,54,50,54,32,116,111,107,50,56,50,57,32,107,119,50,56,51,48,41,0}; static C_char C_TLS li533[] C_aligned={C_lihdr(0,0,34),40,114,45,110,117,109,98,101,114,32,114,97,100,105,120,50,56,50,55,32,101,120,97,99,116,110,101,115,115,50,56,50,56,41,0,0,0,0,0,0}; static C_char C_TLS li534[] C_aligned={C_lihdr(0,0,35),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,50,56,52,56,41,0,0,0,0,0}; static C_char C_TLS li535[] C_aligned={C_lihdr(0,0,35),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,50,56,53,57,41,0,0,0,0,0}; static C_char C_TLS li536[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,99,50,56,55,49,32,108,115,116,50,56,55,50,41,0,0,0,0}; static C_char C_TLS li537[] 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 li538[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,99,50,56,56,55,32,108,115,116,50,56,56,56,41,0,0,0,0}; static C_char C_TLS li539[] 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 li540[] C_aligned={C_lihdr(0,0,23),40,97,49,52,57,53,50,32,115,116,114,50,56,57,56,32,107,119,50,56,57,57,41,0}; static C_char C_TLS li541[] 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 li542[] C_aligned={C_lihdr(0,0,22),40,108,111,111,112,32,108,115,116,50,57,48,52,32,115,107,119,50,57,48,53,41,0,0}; static C_char C_TLS li543[] C_aligned={C_lihdr(0,0,16),40,114,45,120,116,111,107,101,110,32,107,50,57,48,49,41}; static C_char C_TLS li544[] C_aligned={C_lihdr(0,0,8),40,114,45,99,104,97,114,41}; static C_char C_TLS li545[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,50,57,55,55,41,0,0,0,0}; static C_char C_TLS li546[] 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 li547[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,50,57,57,48,41,0,0,0,0}; static C_char C_TLS li548[] 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 li549[] C_aligned={C_lihdr(0,0,23),40,98,117,105,108,100,45,107,101,121,119,111,114,100,32,116,111,107,51,48,48,48,41,0}; static C_char C_TLS li550[] C_aligned={C_lihdr(0,0,8),40,97,49,53,54,48,53,41}; static C_char C_TLS li551[] C_aligned={C_lihdr(0,0,17),40,97,49,53,54,49,49,32,46,32,120,115,51,48,48,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li552[] C_aligned={C_lihdr(0,0,8),40,97,49,53,55,52,56,41}; static C_char C_TLS li553[] C_aligned={C_lihdr(0,0,17),40,97,49,53,55,53,52,32,46,32,120,115,51,48,51,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li554[] C_aligned={C_lihdr(0,0,8),40,97,49,53,56,49,57,41}; static C_char C_TLS li555[] C_aligned={C_lihdr(0,0,17),40,97,49,53,56,50,53,32,46,32,120,115,51,48,52,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li556[] C_aligned={C_lihdr(0,0,8),40,97,49,53,57,51,51,41}; static C_char C_TLS li557[] C_aligned={C_lihdr(0,0,8),40,97,49,53,57,51,56,41}; static C_char C_TLS li558[] C_aligned={C_lihdr(0,0,8),40,97,49,53,57,52,52,41}; static C_char C_TLS li559[] C_aligned={C_lihdr(0,0,8),40,97,49,54,48,57,53,41}; static C_char C_TLS li560[] C_aligned={C_lihdr(0,0,23),40,97,49,54,49,48,54,32,115,116,114,51,48,57,54,32,107,119,51,48,57,55,41,0}; static C_char C_TLS li561[] C_aligned={C_lihdr(0,0,8),40,97,49,54,49,48,48,41}; static C_char C_TLS li562[] C_aligned={C_lihdr(0,0,8),40,97,49,54,49,51,53,41}; static C_char C_TLS li563[] C_aligned={C_lihdr(0,0,8),40,97,49,54,50,53,57,41}; static C_char C_TLS li564[] C_aligned={C_lihdr(0,0,17),40,97,49,54,50,54,53,32,46,32,120,115,51,49,50,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li565[] 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 li566[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,114,101,97,100,32,112,111,114,116,50,54,49,56,32,105,110,102,111,104,97,110,100,108,101,114,50,54,49,57,41,0,0,0}; static C_char C_TLS li567[] C_aligned={C_lihdr(0,0,31),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,51,49,55,49,41,0}; static C_char C_TLS li568[] C_aligned={C_lihdr(0,0,32),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,51,49,55,56,41}; static C_char C_TLS li569[] C_aligned={C_lihdr(0,0,43),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,51,49,56,49,32,108,111,51,49,56,50,41,0,0,0,0,0}; static C_char C_TLS li570[] C_aligned={C_lihdr(0,0,11),40,104,101,120,32,99,51,49,57,48,41,0,0,0,0,0}; static C_char C_TLS li571[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,108,115,116,51,49,57,57,32,104,51,50,48,48,41,0,0,0,0}; static C_char C_TLS li572[] C_aligned={C_lihdr(0,0,40),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,51,49,56,56,41}; static C_char C_TLS li573[] C_aligned={C_lihdr(0,0,27),40,102,95,49,54,56,57,51,32,99,104,97,114,51,50,49,49,32,112,111,114,116,51,50,49,50,41,0,0,0,0,0}; static C_char C_TLS li574[] C_aligned={C_lihdr(0,0,39),40,35,35,115,121,115,35,115,101,116,45,114,101,97,100,45,109,97,114,107,33,32,115,121,109,51,50,50,57,32,112,114,111,99,51,50,51,48,41,0}; static C_char C_TLS li575[] C_aligned={C_lihdr(0,0,26),40,102,95,49,54,57,54,51,32,99,104,114,51,50,52,48,32,112,114,111,99,51,50,52,49,41,0,0,0,0,0,0}; static C_char C_TLS li576[] C_aligned={C_lihdr(0,0,41),40,115,121,110,116,97,120,45,115,101,116,116,101,114,32,108,111,99,51,50,51,55,32,115,108,111,116,51,50,51,56,32,119,114,97,112,51,50,51,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li577[] C_aligned={C_lihdr(0,0,24),40,99,111,112,121,45,114,101,97,100,45,116,97,98,108,101,32,114,116,51,50,55,50,41}; static C_char C_TLS li578[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,119,114,105,116,101,45,99,104,97,114,45,48,32,99,51,50,56,49,32,112,51,50,56,50,41}; static C_char C_TLS li579[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,119,114,105,116,101,45,99,104,97,114,47,112,111,114,116,32,99,51,50,56,55,32,112,111,114,116,51,50,56,56,41,0,0}; static C_char C_TLS li580[] C_aligned={C_lihdr(0,0,32),40,119,114,105,116,101,45,99,104,97,114,32,99,51,50,57,54,32,46,32,116,109,112,51,50,57,53,51,50,57,55,41}; static C_char C_TLS li581[] C_aligned={C_lihdr(0,0,23),40,110,101,119,108,105,110,101,32,46,32,116,109,112,51,51,48,57,51,51,49,48,41,0}; static C_char C_TLS li582[] C_aligned={C_lihdr(0,0,27),40,119,114,105,116,101,32,120,51,51,50,49,32,46,32,116,109,112,51,51,50,48,51,51,50,50,41,0,0,0,0,0}; static C_char C_TLS li583[] C_aligned={C_lihdr(0,0,29),40,100,105,115,112,108,97,121,32,120,51,51,51,52,32,46,32,116,109,112,51,51,51,51,51,51,51,53,41,0,0,0}; static C_char C_TLS li584[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,51,52,57,32,103,51,51,53,54,51,51,54,56,41,0,0,0}; static C_char C_TLS li585[] C_aligned={C_lihdr(0,0,18),40,112,114,105,110,116,32,46,32,97,114,103,115,51,51,52,51,41,0,0,0,0,0,0}; static C_char C_TLS li586[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,51,56,50,32,103,51,51,56,57,51,52,48,49,41,0,0,0}; static C_char C_TLS li587[] C_aligned={C_lihdr(0,0,19),40,112,114,105,110,116,42,32,46,32,97,114,103,115,51,51,55,54,41,0,0,0,0,0}; static C_char C_TLS li588[] C_aligned={C_lihdr(0,0,25),40,111,117,116,115,116,114,32,112,111,114,116,51,52,50,56,32,115,116,114,51,52,50,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li589[] C_aligned={C_lihdr(0,0,25),40,111,117,116,99,104,114,32,112,111,114,116,51,52,52,51,32,99,104,114,51,52,52,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li590[] C_aligned={C_lihdr(0,0,25),40,111,117,116,115,121,109,32,112,111,114,116,51,52,53,56,32,115,121,109,51,52,53,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li591[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,51,52,54,56,41,0,0,0,0}; static C_char C_TLS li592[] C_aligned={C_lihdr(0,0,33),40,111,117,116,114,101,97,100,97,98,108,101,115,121,109,32,112,111,114,116,51,52,54,52,32,115,116,114,51,52,54,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li593[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,51,53,48,51,41,0,0,0,0}; static C_char C_TLS li594[] C_aligned={C_lihdr(0,0,26),40,115,121,109,45,105,115,45,114,101,97,100,97,98,108,101,63,32,115,116,114,51,52,56,56,41,0,0,0,0,0,0}; static C_char C_TLS li595[] C_aligned={C_lihdr(0,0,14),40,103,51,53,52,57,32,99,110,51,53,53,49,41,0,0}; static C_char C_TLS li596[] C_aligned={C_lihdr(0,0,24),40,100,111,108,111,111,112,51,53,55,51,32,105,51,53,55,53,32,99,51,53,55,54,41}; static C_char C_TLS li597[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,51,54,48,51,32,120,51,54,48,53,41,0,0,0,0,0,0}; static C_char C_TLS li598[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,51,54,49,55,32,105,51,54,49,57,41,0,0,0,0,0,0}; static C_char C_TLS li599[] C_aligned={C_lihdr(0,0,24),40,100,111,108,111,111,112,51,54,51,53,32,105,51,54,51,55,32,99,51,54,51,56,41}; static C_char C_TLS li600[] C_aligned={C_lihdr(0,0,11),40,111,117,116,32,120,51,53,51,52,41,0,0,0,0,0}; static C_char C_TLS li601[] C_aligned={C_lihdr(0,0,41),40,35,35,115,121,115,35,112,114,105,110,116,32,120,51,52,49,52,32,114,101,97,100,97,98,108,101,51,52,49,53,32,112,111,114,116,51,52,49,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li602[] C_aligned={C_lihdr(0,0,31),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,51,54,53,54,41,0}; static C_char C_TLS li603[] C_aligned={C_lihdr(0,0,49),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,51,54,54,48,32,112,114,111,99,51,54,54,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li604[] C_aligned={C_lihdr(0,0,8),40,97,49,56,52,55,52,41}; static C_char C_TLS li605[] C_aligned={C_lihdr(0,0,15),40,97,49,56,52,54,56,32,101,120,51,54,56,48,41,0}; static C_char C_TLS li606[] C_aligned={C_lihdr(0,0,8),40,97,49,56,53,50,53,41}; static C_char C_TLS li607[] C_aligned={C_lihdr(0,0,8),40,97,49,56,53,52,48,41}; static C_char C_TLS li608[] C_aligned={C_lihdr(0,0,23),40,97,49,56,53,51,52,32,46,32,97,114,103,115,51,54,55,52,51,54,56,56,41,0}; static C_char C_TLS li609[] C_aligned={C_lihdr(0,0,8),40,97,49,56,53,49,57,41}; static C_char C_TLS li610[] C_aligned={C_lihdr(0,0,18),40,97,49,56,52,54,50,32,107,51,54,55,51,51,54,55,57,41,0,0,0,0,0,0}; static C_char C_TLS li611[] C_aligned={C_lihdr(0,0,51),40,35,35,115,121,115,35,117,115,101,114,45,112,114,105,110,116,45,104,111,111,107,32,120,51,54,54,53,32,114,101,97,100,97,98,108,101,51,54,54,54,32,112,111,114,116,51,54,54,55,41,0,0,0,0,0}; static C_char C_TLS li612[] C_aligned={C_lihdr(0,0,8),40,97,49,56,54,48,55,41}; static C_char C_TLS li613[] C_aligned={C_lihdr(0,0,8),40,97,49,56,54,53,48,41}; static C_char C_TLS li614[] C_aligned={C_lihdr(0,0,8),40,97,49,56,54,53,54,41}; static C_char C_TLS li615[] C_aligned={C_lihdr(0,0,19),40,97,49,56,54,48,49,32,114,101,116,117,114,110,51,55,48,52,41,0,0,0,0,0}; static C_char C_TLS li616[] C_aligned={C_lihdr(0,0,51),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,51,55,48,50,32,116,104,117,110,107,51,55,48,51,41,0,0,0,0,0}; static C_char C_TLS li617[] C_aligned={C_lihdr(0,0,19),40,108,111,111,112,32,120,51,55,53,54,32,120,115,51,55,53,55,41,0,0,0,0,0}; static C_char C_TLS li618[] C_aligned={C_lihdr(0,0,22),40,98,105,116,119,105,115,101,45,97,110,100,32,46,32,120,115,51,55,53,52,41,0,0}; static C_char C_TLS li619[] C_aligned={C_lihdr(0,0,19),40,108,111,111,112,32,120,51,55,54,50,32,120,115,51,55,54,51,41,0,0,0,0,0}; static C_char C_TLS li620[] C_aligned={C_lihdr(0,0,22),40,98,105,116,119,105,115,101,45,105,111,114,32,46,32,120,115,51,55,54,48,41,0,0}; static C_char C_TLS li621[] C_aligned={C_lihdr(0,0,19),40,108,111,111,112,32,120,51,55,54,56,32,120,115,51,55,54,57,41,0,0,0,0,0}; static C_char C_TLS li622[] C_aligned={C_lihdr(0,0,22),40,98,105,116,119,105,115,101,45,120,111,114,32,46,32,120,115,51,55,54,54,41,0,0}; static C_char C_TLS li623[] C_aligned={C_lihdr(0,0,19),40,98,105,116,119,105,115,101,45,110,111,116,32,120,51,55,55,50,41,0,0,0,0,0}; static C_char C_TLS li624[] C_aligned={C_lihdr(0,0,30),40,97,114,105,116,104,109,101,116,105,99,45,115,104,105,102,116,32,120,51,55,55,52,32,121,51,55,55,53,41,0,0}; static C_char C_TLS li625[] C_aligned={C_lihdr(0,0,22),40,98,105,116,45,115,101,116,63,32,110,51,55,55,55,32,105,51,55,55,56,41,0,0}; static C_char C_TLS li626[] C_aligned={C_lihdr(0,0,23),40,99,104,101,99,107,51,55,56,48,32,112,51,55,56,51,32,110,51,55,56,52,41,0}; static C_char C_TLS li627[] C_aligned={C_lihdr(0,0,14),40,97,50,52,55,48,53,32,112,51,55,57,53,41,0,0}; static C_char C_TLS li628[] C_aligned={C_lihdr(0,0,14),40,97,50,52,55,51,48,32,112,51,56,48,49,41,0,0}; static C_char C_TLS li629[] C_aligned={C_lihdr(0,0,20),40,97,50,52,55,52,56,32,112,51,56,48,53,32,99,51,56,48,54,41,0,0,0,0}; static C_char C_TLS li630[] C_aligned={C_lihdr(0,0,22),40,97,50,52,55,54,55,32,112,51,56,49,49,32,115,116,114,51,56,49,50,41,0,0}; static C_char C_TLS li631[] C_aligned={C_lihdr(0,0,14),40,97,50,52,55,56,54,32,112,51,56,49,56,41,0,0}; static C_char C_TLS li632[] C_aligned={C_lihdr(0,0,14),40,97,50,52,55,56,57,32,112,51,56,49,57,41,0,0}; static C_char C_TLS li633[] C_aligned={C_lihdr(0,0,39),40,97,50,52,56,48,51,32,112,51,56,50,48,32,110,51,56,50,49,32,100,101,115,116,51,56,50,50,32,115,116,97,114,116,51,56,50,51,41,0}; static C_char C_TLS li634[] C_aligned={C_lihdr(0,0,16),40,97,50,52,56,55,56,32,112,111,115,51,56,51,56,41}; static C_char C_TLS li635[] C_aligned={C_lihdr(0,0,8),40,97,50,52,56,54,56,41}; static C_char C_TLS li636[] C_aligned={C_lihdr(0,0,41),40,97,50,52,56,56,55,32,110,101,120,116,51,56,51,57,32,108,105,110,101,51,56,52,48,32,102,117,108,108,45,108,105,110,101,63,51,56,52,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li637[] C_aligned={C_lihdr(0,0,24),40,97,50,52,56,52,52,32,112,51,56,51,50,32,108,105,109,105,116,51,56,51,51,41}; static C_char C_TLS li638[] C_aligned={C_lihdr(0,0,14),40,97,50,52,57,50,56,32,112,51,56,52,53,41,0,0}; static C_char C_TLS li639[] C_aligned={C_lihdr(0,0,53),40,99,111,112,121,38,97,112,112,101,110,100,32,98,117,102,51,56,53,56,32,111,102,102,115,101,116,51,56,53,57,32,112,111,115,51,56,54,48,32,111,108,100,45,108,105,110,101,51,56,54,49,41,0,0,0}; static C_char C_TLS li640[] C_aligned={C_lihdr(0,0,8),40,97,49,56,56,54,52,41}; static C_char C_TLS li641[] C_aligned={C_lihdr(0,0,37),40,97,49,56,56,55,48,32,98,117,102,51,56,55,51,32,111,102,102,115,101,116,51,56,55,52,32,108,105,109,105,116,51,56,55,53,41,0,0,0}; static C_char C_TLS li642[] C_aligned={C_lihdr(0,0,8),40,97,49,56,57,50,56,41}; static C_char C_TLS li643[] C_aligned={C_lihdr(0,0,37),40,97,49,56,57,51,52,32,98,117,102,51,56,56,53,32,111,102,102,115,101,116,51,56,56,54,32,108,105,109,105,116,51,56,56,55,41,0,0,0}; static C_char C_TLS li644[] C_aligned={C_lihdr(0,0,52),40,108,111,111,112,32,98,117,102,51,56,54,55,32,111,102,102,115,101,116,51,56,54,56,32,112,111,115,51,56,54,57,32,108,105,109,105,116,51,56,55,48,32,108,105,110,101,51,56,55,49,41,0,0,0,0}; static C_char C_TLS li645[] C_aligned={C_lihdr(0,0,72),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,51,56,53,51,32,108,105,109,105,116,51,56,53,52,32,115,116,97,114,116,45,112,111,115,51,56,53,53,32,101,111,115,45,104,97,110,100,108,101,114,51,56,53,54,41}; static C_char C_TLS li646[] C_aligned={C_lihdr(0,0,30),40,111,112,101,110,45,105,110,112,117,116,45,115,116,114,105,110,103,32,115,116,114,105,110,103,51,56,57,49,41,0,0}; static C_char C_TLS li647[] C_aligned={C_lihdr(0,0,20),40,111,112,101,110,45,111,117,116,112,117,116,45,115,116,114,105,110,103,41,0,0,0,0}; static C_char C_TLS li648[] C_aligned={C_lihdr(0,0,28),40,103,101,116,45,111,117,116,112,117,116,45,115,116,114,105,110,103,32,112,111,114,116,51,57,48,51,41,0,0,0,0}; static C_char C_TLS li649[] C_aligned={C_lihdr(0,0,13),40,103,51,57,49,51,32,120,51,57,50,50,41,0,0,0}; static C_char C_TLS li650[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,57,49,50,32,103,51,57,49,57,51,57,50,52,41,0,0,0}; static C_char C_TLS li651[] C_aligned={C_lihdr(0,0,30),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,51,57,48,56,41,0,0}; static C_char C_TLS li652[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,112,111,105,110,116,101,114,45,62,115,116,114,105,110,103,32,120,51,57,51,49,41,0,0,0}; static C_char C_TLS li653[] C_aligned={C_lihdr(0,0,15),40,115,111,102,116,119,97,114,101,45,116,121,112,101,41,0}; static C_char C_TLS li654[] C_aligned={C_lihdr(0,0,14),40,109,97,99,104,105,110,101,45,116,121,112,101,41,0,0}; static C_char C_TLS li655[] C_aligned={C_lihdr(0,0,20),40,109,97,99,104,105,110,101,45,98,121,116,101,45,111,114,100,101,114,41,0,0,0,0}; static C_char C_TLS li656[] C_aligned={C_lihdr(0,0,18),40,115,111,102,116,119,97,114,101,45,118,101,114,115,105,111,110,41,0,0,0,0,0,0}; static C_char C_TLS li657[] C_aligned={C_lihdr(0,0,16),40,98,117,105,108,100,45,112,108,97,116,102,111,114,109,41}; static C_char C_TLS li658[] C_aligned={C_lihdr(0,0,11),40,115,116,114,32,120,51,57,55,54,41,0,0,0,0,0}; static C_char C_TLS li659[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,45,118,101,114,115,105,111,110,32,46,32,116,109,112,51,57,54,51,51,57,54,52,41,0}; static C_char C_TLS li660[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,45,62,102,101,97,116,117,114,101,45,105,100,32,120,51,57,56,56,41,0,0,0,0,0,0}; static C_char C_TLS li661[] C_aligned={C_lihdr(0,0,13),40,99,104,101,99,107,32,102,51,57,57,55,41,0,0,0}; static C_char C_TLS li662[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,52,48,48,55,32,103,52,48,49,52,52,48,50,48,41,0,0,0}; static C_char C_TLS li663[] C_aligned={C_lihdr(0,0,28),40,114,101,103,105,115,116,101,114,45,102,101,97,116,117,114,101,33,32,46,32,102,115,52,48,48,52,41,0,0,0,0}; static C_char C_TLS li664[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,102,102,115,52,48,53,53,41,0,0}; static C_char C_TLS li665[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,52,48,51,48,32,103,52,48,52,50,52,48,52,56,41}; static C_char C_TLS li666[] C_aligned={C_lihdr(0,0,30),40,117,110,114,101,103,105,115,116,101,114,45,102,101,97,116,117,114,101,33,32,46,32,102,115,52,48,50,54,41,0,0}; static C_char C_TLS li667[] C_aligned={C_lihdr(0,0,10),40,102,101,97,116,117,114,101,115,41,0,0,0,0,0,0}; static C_char C_TLS li668[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,105,100,115,52,48,54,52,41,0,0}; static C_char C_TLS li669[] C_aligned={C_lihdr(0,0,20),40,102,101,97,116,117,114,101,63,32,46,32,105,100,115,52,48,54,50,41,0,0,0,0}; static C_char C_TLS li670[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,52,49,48,48,41,0,0,0,0}; static C_char C_TLS li671[] C_aligned={C_lihdr(0,0,30),40,103,101,116,45,99,97,108,108,45,99,104,97,105,110,32,46,32,116,109,112,52,48,56,49,52,48,56,50,41,0,0}; static C_char C_TLS li672[] C_aligned={C_lihdr(0,0,8),40,97,49,57,56,52,51,41}; static C_char C_TLS li673[] C_aligned={C_lihdr(0,0,16),40,103,52,49,49,54,32,105,110,102,111,52,49,50,53,41}; static C_char C_TLS li674[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,52,49,49,53,32,103,52,49,50,50,52,49,51,55,41,0,0,0}; static C_char C_TLS li675[] C_aligned={C_lihdr(0,0,61),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,52,49,49,48,32,99,104,97,105,110,52,49,49,49,32,104,101,97,100,101,114,52,49,49,50,41,0,0,0}; static C_char C_TLS li676[] C_aligned={C_lihdr(0,0,32),40,112,114,105,110,116,45,99,97,108,108,45,99,104,97,105,110,32,46,32,116,109,112,52,49,52,55,52,49,52,56,41}; static C_char C_TLS li677[] C_aligned={C_lihdr(0,0,7),40,98,114,101,97,107,41,0}; static C_char C_TLS li678[] 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 li679[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,52,50,55,50,32,103,52,50,55,57,52,50,56,52,41,0,0,0}; static C_char C_TLS li680[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li681[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,99,108,101,97,110,117,112,45,98,101,102,111,114,101,45,101,120,105,116,41,0,0,0,0,0}; static C_char C_TLS li682[] C_aligned={C_lihdr(0,0,19),40,111,110,45,101,120,105,116,32,116,104,117,110,107,52,50,57,55,41,0,0,0,0,0}; static C_char C_TLS li683[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,100,101,98,117,103,103,101,114,32,109,115,103,52,50,57,57,32,46,32,97,114,103,115,52,51,48,48,41,0,0,0,0,0}; static C_char C_TLS li684[] C_aligned={C_lihdr(0,0,8),40,97,50,48,49,56,55,41}; static C_char C_TLS li685[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,52,51,49,57,32,103,52,51,50,54,52,51,51,50,41,0,0,0}; static C_char C_TLS li686[] C_aligned={C_lihdr(0,0,47),40,35,35,115,121,115,35,115,105,103,110,97,108,45,104,111,111,107,32,109,111,100,101,52,51,48,50,32,109,115,103,52,51,48,51,32,46,32,97,114,103,115,52,51,48,52,41,0}; static C_char C_TLS li687[] C_aligned={C_lihdr(0,0,13),40,97,98,111,114,116,32,120,52,51,54,48,41,0,0,0}; static C_char C_TLS li688[] C_aligned={C_lihdr(0,0,14),40,115,105,103,110,97,108,32,120,52,51,54,51,41,0,0}; static C_char C_TLS li689[] C_aligned={C_lihdr(0,0,15),40,102,95,50,48,52,53,57,32,99,52,51,54,57,41,0}; static C_char C_TLS li690[] C_aligned={C_lihdr(0,0,8),40,97,50,48,54,50,52,41}; static C_char C_TLS li691[] C_aligned={C_lihdr(0,0,8),40,97,50,48,54,50,56,41}; static C_char C_TLS li692[] C_aligned={C_lihdr(0,0,46),40,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,52,52,48,49,32,116,104,117,110,107,52,52,48,50,41,0,0}; static C_char C_TLS li693[] C_aligned={C_lihdr(0,0,10),40,98,111,100,121,52,52,48,57,41,0,0,0,0,0,0}; static C_char C_TLS li694[] C_aligned={C_lihdr(0,0,38),40,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,52,52,48,53,41,0,0}; static C_char C_TLS li695[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,112,114,111,112,115,52,52,51,51,41}; static C_char C_TLS li696[] C_aligned={C_lihdr(0,0,46),40,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,52,52,51,48,32,46,32,112,114,111,112,115,52,52,51,49,41,0,0}; static C_char C_TLS li697[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,52,52,52,49,41,0,0,0,0,0}; static C_char C_TLS li698[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,52,52,56,54,32,103,52,52,57,56,52,53,48,53,41}; static C_char C_TLS li699[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,52,52,53,57,32,103,52,52,55,49,52,52,55,56,41}; static C_char C_TLS li700[] C_aligned={C_lihdr(0,0,45),40,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,52,52,51,54,32,46,32,99,111,110,100,115,52,52,51,55,41,0,0,0}; static C_char C_TLS li701[] C_aligned={C_lihdr(0,0,18),40,99,111,110,100,105,116,105,111,110,63,32,120,52,53,49,51,41,0,0,0,0,0,0}; static C_char C_TLS li702[] C_aligned={C_lihdr(0,0,24),40,108,111,111,112,32,112,114,111,112,115,52,53,52,48,32,114,101,115,52,53,52,49,41}; static C_char C_TLS li703[] C_aligned={C_lihdr(0,0,13),40,103,52,53,50,55,32,107,52,53,51,56,41,0,0,0}; static C_char C_TLS li704[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,52,53,50,49,32,103,52,53,51,51,52,53,52,56,41}; static C_char C_TLS li705[] C_aligned={C_lihdr(0,0,23),40,99,111,110,100,105,116,105,111,110,45,62,108,105,115,116,32,120,52,53,49,53,41,0}; static C_char C_TLS li706[] C_aligned={C_lihdr(0,0,15),40,102,95,50,49,48,49,49,32,99,52,53,53,55,41,0}; static C_char C_TLS li707[] C_aligned={C_lihdr(0,0,30),40,99,111,110,100,105,116,105,111,110,45,112,114,101,100,105,99,97,116,101,32,107,105,110,100,52,53,53,54,41,0,0}; static C_char C_TLS li708[] C_aligned={C_lihdr(0,0,15),40,102,95,50,49,48,51,56,32,99,52,53,54,53,41,0}; static C_char C_TLS li709[] C_aligned={C_lihdr(0,0,61),40,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,52,53,54,48,32,112,114,111,112,52,53,54,49,32,46,32,101,114,114,45,100,101,102,52,53,54,50,41,0,0,0}; static C_char C_TLS li710[] C_aligned={C_lihdr(0,0,62),40,103,101,116,45,99,111,110,100,105,116,105,111,110,45,112,114,111,112,101,114,116,121,32,99,52,53,55,51,32,107,105,110,100,52,53,55,52,32,112,114,111,112,52,53,55,53,32,46,32,101,114,114,45,100,101,102,52,53,55,54,41,0,0}; static C_char C_TLS li711[] C_aligned={C_lihdr(0,0,46),40,35,35,115,121,115,35,101,114,114,111,114,45,104,111,111,107,32,99,111,100,101,52,53,56,49,32,108,111,99,52,53,56,50,32,46,32,97,114,103,115,52,53,56,51,41,0,0}; static C_char C_TLS li712[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,115,116,114,117,99,116,117,114,101,63,32,120,52,53,57,55,32,115,52,53,57,56,41,0,0}; static C_char C_TLS li713[] C_aligned={C_lihdr(0,0,32),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,52,54,48,48,41}; static C_char C_TLS li714[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,115,108,111,116,32,120,52,54,48,50,32,105,52,54,48,51,41}; static C_char C_TLS li715[] C_aligned={C_lihdr(0,0,18),40,35,35,115,121,115,35,115,105,122,101,32,120,52,54,48,53,41,0,0,0,0,0,0}; static C_char C_TLS li716[] 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 li717[] 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 li718[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,112,111,105,110,116,101,114,63,32,120,52,54,48,57,41,0,0}; static C_char C_TLS li719[] C_aligned={C_lihdr(0,0,45),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,52,54,49,49,32,97,100,100,114,52,54,49,50,41,0,0,0}; static C_char C_TLS li720[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,98,121,116,101,118,101,99,116,111,114,63,32,120,52,54,49,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li721[] C_aligned={C_lihdr(0,0,33),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,52,54,49,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li722[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,112,101,114,109,97,110,101,110,116,63,32,120,52,54,49,56,41}; static C_char C_TLS li723[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,98,108,111,99,107,45,97,100,100,114,101,115,115,32,120,52,54,50,48,41,0,0,0,0,0}; static C_char C_TLS li724[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,108,111,99,97,116,105,118,101,63,32,120,52,54,50,50,41,0}; static C_char C_TLS li725[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,115,114,102,105,45,52,45,118,101,99,116,111,114,63,32,120,52,54,50,52,41,0,0,0,0}; static C_char C_TLS li726[] 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 li727[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,110,117,108,108,45,112,111,105,110,116,101,114,63,32,120,52,54,51,49,41,0,0,0,0,0}; static C_char C_TLS li728[] C_aligned={C_lihdr(0,0,33),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,52,54,51,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li729[] C_aligned={C_lihdr(0,0,32),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,52,54,51,55,41}; static C_char C_TLS li730[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,109,97,107,101,45,99,45,115,116,114,105,110,103,32,115,116,114,52,54,52,51,32,46,32,116,109,112,52,54,52,50,52,54,52,52,41,0,0,0,0,0}; static C_char C_TLS li731[] 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 li732[] 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 li733[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,112,101,101,107,45,102,105,120,110,117,109,32,98,52,54,53,56,32,105,52,54,53,57,41,0}; static C_char C_TLS li734[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,112,101,101,107,45,98,121,116,101,32,112,116,114,52,54,54,49,32,105,52,54,54,50,41,0}; static C_char C_TLS li735[] C_aligned={C_lihdr(0,0,34),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,52,54,54,52,41,0,0,0,0,0,0}; static C_char C_TLS li736[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,112,101,101,107,45,100,111,117,98,108,101,32,98,52,54,54,54,32,105,52,54,54,55,41,0}; static C_char C_TLS li737[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,112,101,101,107,45,99,45,115,116,114,105,110,103,32,98,52,54,54,57,32,105,52,54,55,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li738[] C_aligned={C_lihdr(0,0,41),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,52,54,55,54,32,105,52,54,55,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li739[] 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,99,45,115,116,114,105,110,103,32,98,52,54,56,50,32,105,52,54,56,51,41,0,0,0,0,0,0}; static C_char C_TLS li740[] C_aligned={C_lihdr(0,0,50),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,52,54,57,48,32,105,52,54,57,49,41,0,0,0,0,0,0}; static C_char C_TLS li741[] C_aligned={C_lihdr(0,0,39),40,35,35,115,121,115,35,112,111,107,101,45,99,45,115,116,114,105,110,103,32,98,52,54,57,55,32,105,52,54,57,56,32,115,52,54,57,57,41,0}; static C_char C_TLS li742[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,112,111,107,101,45,105,110,116,101,103,101,114,32,98,52,55,48,49,32,105,52,55,48,50,32,110,52,55,48,51,41,0,0}; static C_char C_TLS li743[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,112,111,107,101,45,100,111,117,98,108,101,32,98,52,55,48,53,32,105,52,55,48,54,32,110,52,55,48,55,41,0,0,0}; static C_char C_TLS li744[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,52,55,50,50,41,0,0,0,0}; static C_char C_TLS li745[] C_aligned={C_lihdr(0,0,40),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,52,55,49,57,32,110,52,55,50,48,41}; static C_char C_TLS li746[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,52,55,52,56,41,0,0,0,0}; static C_char C_TLS li747[] C_aligned={C_lihdr(0,0,49),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,52,55,52,52,32,110,52,55,52,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li748[] C_aligned={C_lihdr(0,0,41),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,52,55,53,56,32,97,100,100,114,52,55,53,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li749[] C_aligned={C_lihdr(0,0,42),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,52,55,54,50,41,0,0,0,0,0,0}; static C_char C_TLS li750[] C_aligned={C_lihdr(0,0,68),40,35,35,115,121,115,35,99,111,112,121,45,98,121,116,101,115,32,102,114,111,109,52,55,54,52,32,116,111,52,55,54,53,32,111,102,102,115,101,116,49,52,55,54,54,32,111,102,102,115,101,116,50,52,55,54,55,32,98,121,116,101,115,52,55,54,56,41,0,0,0,0}; static C_char C_TLS li751[] C_aligned={C_lihdr(0,0,68),40,35,35,115,121,115,35,99,111,112,121,45,119,111,114,100,115,32,102,114,111,109,52,55,55,48,32,116,111,52,55,55,49,32,111,102,102,115,101,116,49,52,55,55,50,32,111,102,102,115,101,116,50,52,55,55,51,32,119,111,114,100,115,52,55,55,52,41,0,0,0,0}; static C_char C_TLS li752[] C_aligned={C_lihdr(0,0,71),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,52,55,55,54,32,116,111,52,55,55,55,32,111,102,102,115,101,116,49,52,55,55,56,32,111,102,102,115,101,116,50,52,55,55,57,32,98,121,116,101,115,52,55,56,48,41,0}; static C_char C_TLS li753[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,98,108,111,99,107,45,112,111,105,110,116,101,114,32,120,52,55,56,50,41,0,0,0,0,0}; static C_char C_TLS li754[] C_aligned={C_lihdr(0,0,35),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,52,55,56,54,41,0,0,0,0,0}; static C_char C_TLS li755[] C_aligned={C_lihdr(0,0,37),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,52,55,56,56,41,0,0,0}; static C_char C_TLS li756[] C_aligned={C_lihdr(0,0,37),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,52,55,57,48,41,0,0,0}; static C_char C_TLS li757[] C_aligned={C_lihdr(0,0,36),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,52,55,57,50,41,0,0,0,0}; static C_char C_TLS li758[] C_aligned={C_lihdr(0,0,51),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,52,55,57,52,32,120,52,55,57,53,41,0,0,0,0,0}; static C_char C_TLS li759[] C_aligned={C_lihdr(0,0,37),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,52,55,57,55,41,0,0,0}; static C_char C_TLS li760[] C_aligned={C_lihdr(0,0,37),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,52,55,57,57,41,0,0,0}; static C_char C_TLS li761[] C_aligned={C_lihdr(0,0,38),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,52,56,48,49,41,0,0}; static C_char C_TLS li762[] C_aligned={C_lihdr(0,0,52),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,52,56,48,51,32,116,120,52,56,48,52,41,0,0,0,0}; static C_char C_TLS li763[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,105,110,116,101,103,101,114,45,97,114,103,117,109,101,110,116,32,120,52,56,48,54,41,0,0}; static C_char C_TLS li764[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,105,110,116,101,103,101,114,54,52,45,97,114,103,117,109,101,110,116,32,120,52,56,48,56,41}; static C_char C_TLS li765[] C_aligned={C_lihdr(0,0,47),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,117,110,115,105,103,110,101,100,45,105,110,116,101,103,101,114,45,97,114,103,117,109,101,110,116,32,120,52,56,49,48,41,0}; static C_char C_TLS li766[] C_aligned={C_lihdr(0,0,49),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,117,110,115,105,103,110,101,100,45,105,110,116,101,103,101,114,54,52,45,97,114,103,117,109,101,110,116,32,120,52,56,49,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li767[] C_aligned={C_lihdr(0,0,41),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,52,56,49,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li768[] C_aligned={C_lihdr(0,0,54),40,35,35,115,121,115,35,109,97,107,101,45,116,104,114,101,97,100,32,116,104,117,110,107,52,56,49,55,32,115,116,97,116,101,52,56,49,56,32,110,97,109,101,52,56,49,57,32,113,52,56,50,48,41,0,0}; static C_char C_TLS li769[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,109,97,107,101,45,109,117,116,101,120,32,105,100,52,56,50,52,32,111,119,110,101,114,52,56,50,53,41,0,0,0,0,0}; static C_char C_TLS li770[] 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 li771[] C_aligned={C_lihdr(0,0,8),40,97,50,50,48,57,51,41}; static C_char C_TLS li772[] C_aligned={C_lihdr(0,0,19),40,97,50,50,48,56,52,32,114,101,116,117,114,110,52,56,51,48,41,0,0,0,0,0}; static C_char C_TLS li773[] 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 li774[] C_aligned={C_lihdr(0,0,36),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,52,56,51,52,41,0,0,0,0}; static C_char C_TLS li775[] 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 li776[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,114,101,97,115,111,110,52,56,52,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li777[] C_aligned={C_lihdr(0,0,43),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,52,56,51,56,32,115,116,97,116,101,52,56,51,57,41,0,0,0,0,0}; static C_char C_TLS li778[] C_aligned={C_lihdr(0,0,32),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,52,56,53,49,41}; static C_char C_TLS li779[] 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 li780[] C_aligned={C_lihdr(0,0,7),40,101,114,114,110,111,41,0}; static C_char C_TLS li781[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,52,56,54,57,32,99,52,56,55,49,41,0,0,0,0,0,0}; static C_char C_TLS li782[] C_aligned={C_lihdr(0,0,17),40,114,101,97,100,108,110,32,112,111,114,116,52,56,54,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li783[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li784[] C_aligned={C_lihdr(0,0,44),40,114,101,97,100,45,101,115,99,97,112,101,100,45,115,101,120,112,32,112,111,114,116,52,56,55,55,32,115,107,105,112,45,98,114,97,99,101,63,52,56,55,56,41,0,0,0,0}; static C_char C_TLS li785[] C_aligned={C_lihdr(0,0,19),40,100,111,108,111,111,112,52,57,49,50,32,108,110,52,57,49,52,41,0,0,0,0,0}; static C_char C_TLS li786[] 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 li787[] C_aligned={C_lihdr(0,0,39),40,108,111,111,112,50,32,108,115,116,52,57,54,49,32,110,101,120,116,45,115,116,114,105,110,103,52,57,54,50,32,97,99,99,52,57,54,51,41,0}; static C_char C_TLS li788[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,108,115,116,52,57,51,56,41,0,0}; static C_char C_TLS li789[] C_aligned={C_lihdr(0,0,40),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,52,56,56,57,32,112,111,114,116,52,56,57,48,41}; static C_char C_TLS li790[] C_aligned={C_lihdr(0,0,24),40,100,111,108,111,111,112,53,48,48,51,32,105,53,48,48,53,32,118,53,48,48,54,41}; static C_char C_TLS li791[] C_aligned={C_lihdr(0,0,6),40,97,114,103,118,41,0,0}; static C_char C_TLS li792[] 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 li793[] C_aligned={C_lihdr(0,0,28),40,115,101,116,45,102,105,110,97,108,105,122,101,114,33,32,120,53,48,50,54,32,121,53,48,50,55,41,0,0,0,0}; static C_char C_TLS li794[] C_aligned={C_lihdr(0,0,8),40,97,50,50,57,50,56,41}; static C_char C_TLS li795[] C_aligned={C_lihdr(0,0,15),40,97,50,50,57,50,50,32,101,120,53,48,53,50,41,0}; static C_char C_TLS li796[] C_aligned={C_lihdr(0,0,8),40,97,50,50,57,52,48,41}; static C_char C_TLS li797[] C_aligned={C_lihdr(0,0,8),40,97,50,50,57,54,51,41}; static C_char C_TLS li798[] C_aligned={C_lihdr(0,0,23),40,97,50,50,57,53,55,32,46,32,97,114,103,115,53,48,52,54,53,48,53,53,41,0}; static C_char C_TLS li799[] C_aligned={C_lihdr(0,0,8),40,97,50,50,57,51,52,41}; static C_char C_TLS li800[] C_aligned={C_lihdr(0,0,18),40,97,50,50,57,49,54,32,107,53,48,52,53,53,48,53,49,41,0,0,0,0,0,0}; static C_char C_TLS li801[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,53,48,52,49,32,105,53,48,52,51,41,0,0,0,0,0,0}; static C_char C_TLS li802[] C_aligned={C_lihdr(0,0,40),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,53,48,51,57,41}; static C_char C_TLS li803[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li804[] 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 li805[] C_aligned={C_lihdr(0,0,14),40,103,99,32,46,32,97,114,103,53,48,56,49,41,0,0}; static C_char C_TLS li806[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,109,97,107,101,45,112,114,111,109,105,115,101,32,112,114,111,99,53,49,48,57,41,0,0,0}; static C_char C_TLS li807[] C_aligned={C_lihdr(0,0,16),40,112,114,111,109,105,115,101,63,32,120,53,49,49,49,41}; static C_char C_TLS li808[] C_aligned={C_lihdr(0,0,8),40,97,50,51,48,57,56,41}; static C_char C_TLS li809[] C_aligned={C_lihdr(0,0,22),40,109,97,107,101,45,112,114,111,109,105,115,101,32,111,98,106,53,49,49,51,41,0,0}; static C_char C_TLS li810[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,114,101,97,100,45,102,114,111,109,45,115,116,114,105,110,103,32,115,53,49,49,53,41,0,0}; static C_char C_TLS li811[] C_aligned={C_lihdr(0,0,8),40,97,50,51,49,51,48,41}; static C_char C_TLS li812[] C_aligned={C_lihdr(0,0,13),40,103,53,49,51,49,32,120,53,49,52,48,41,0,0,0}; static C_char C_TLS li813[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,53,49,51,48,32,103,53,49,51,55,53,49,52,51,41,0,0,0}; static C_char C_TLS li814[] C_aligned={C_lihdr(0,0,29),40,119,114,105,116,101,97,114,103,115,32,97,114,103,115,53,49,50,54,32,112,111,114,116,53,49,50,55,41,0,0,0}; static C_char C_TLS li815[] C_aligned={C_lihdr(0,0,15),40,103,53,49,55,51,32,109,115,103,53,49,55,53,41,0}; static C_char C_TLS li816[] C_aligned={C_lihdr(0,0,30),40,98,111,100,121,53,49,53,49,32,112,111,114,116,53,49,54,48,32,104,101,97,100,101,114,53,49,54,49,41,0,0}; static C_char C_TLS li817[] C_aligned={C_lihdr(0,0,30),40,100,101,102,45,104,101,97,100,101,114,53,49,53,52,32,37,112,111,114,116,53,49,52,57,53,49,57,51,41,0,0}; static C_char C_TLS li818[] C_aligned={C_lihdr(0,0,14),40,100,101,102,45,112,111,114,116,53,49,53,51,41,0,0}; static C_char C_TLS li819[] C_aligned={C_lihdr(0,0,39),40,112,114,105,110,116,45,101,114,114,111,114,45,109,101,115,115,97,103,101,32,101,120,53,49,52,55,32,46,32,97,114,103,115,53,49,52,56,41,0}; static C_char C_TLS li820[] C_aligned={C_lihdr(0,0,62),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,53,50,49,48,32,99,97,117,115,101,53,50,49,49,32,46,32,116,109,112,53,50,48,57,53,50,49,50,41,0,0}; static C_char C_TLS li821[] C_aligned={C_lihdr(0,0,57),40,35,35,115,121,115,35,109,97,107,101,45,108,111,99,97,116,105,118,101,32,111,98,106,53,50,50,55,32,105,110,100,101,120,53,50,50,56,32,119,101,97,107,63,53,50,50,57,32,108,111,99,53,50,51,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li822[] C_aligned={C_lihdr(0,0,19),40,109,101,109,111,114,121,45,115,116,97,116,105,115,116,105,99,115,41,0,0,0,0,0}; static C_char C_TLS li823[] C_aligned={C_lihdr(0,0,31),40,112,117,116,33,32,115,121,109,53,50,55,48,32,112,114,111,112,53,50,55,49,32,118,97,108,53,50,55,50,41,0}; static C_char C_TLS li824[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,103,101,116,32,115,121,109,53,50,56,48,32,112,114,111,112,53,50,56,49,32,46,32,116,109,112,53,50,55,57,53,50,56,50,41,0,0,0,0,0,0}; static C_char C_TLS li825[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,112,116,108,53,50,57,53,41,0,0}; static C_char C_TLS li826[] C_aligned={C_lihdr(0,0,27),40,114,101,109,112,114,111,112,33,32,115,121,109,53,50,57,49,32,112,114,111,112,53,50,57,50,41,0,0,0,0,0}; static C_char C_TLS li827[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,112,108,105,115,116,53,51,49,55,41}; static C_char C_TLS li828[] C_aligned={C_lihdr(0,0,34),40,103,101,116,45,112,114,111,112,101,114,116,105,101,115,32,115,121,109,53,51,49,52,32,112,114,111,112,115,53,51,49,53,41,0,0,0,0,0,0}; static C_char C_TLS li829[] C_aligned={C_lihdr(0,0,14),40,112,110,117,109,32,110,117,109,53,51,51,52,41,0,0}; static C_char C_TLS li830[] C_aligned={C_lihdr(0,0,22),40,114,111,117,110,100,45,116,111,32,120,53,51,51,53,32,121,53,51,51,54,41,0,0}; static C_char C_TLS li831[] C_aligned={C_lihdr(0,0,16),40,112,109,101,109,32,98,121,116,101,115,53,51,51,55,41}; static C_char C_TLS li832[] C_aligned={C_lihdr(0,0,30),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,53,51,50,54,41,0,0}; static C_char C_TLS li833[] 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 li834[] 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 li835[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,108,115,116,53,51,56,54,32,122,53,51,56,55,41,0,0,0,0}; static C_char C_TLS li836[] C_aligned={C_lihdr(0,0,27),40,102,111,108,100,108,32,102,53,51,56,50,32,122,53,51,56,51,32,108,115,116,53,51,56,52,41,0,0,0,0,0}; static C_char C_TLS li837[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,108,115,116,53,51,57,53,41,0,0}; static C_char C_TLS li838[] C_aligned={C_lihdr(0,0,27),40,102,111,108,100,114,32,102,53,51,57,49,32,122,53,51,57,50,32,108,115,116,53,51,57,51,41,0,0,0,0,0}; static C_char C_TLS li839[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,108,115,116,53,52,48,51,41,0,0}; static C_char C_TLS li840[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,100,101,108,32,120,53,51,57,57,32,108,115,116,53,52,48,48,32,116,115,116,53,52,48,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li841[] C_aligned={C_lihdr(0,0,15),40,114,101,99,117,114,32,108,105,115,53,52,49,48,41,0}; static C_char C_TLS li842[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,110,111,100,117,112,115,32,108,105,115,53,52,48,55,32,101,108,116,61,53,52,48,56,41,0}; static C_char C_TLS li843[] C_aligned={C_lihdr(0,0,24),40,108,111,111,112,32,108,101,110,53,52,49,57,32,105,110,112,117,116,53,52,50,48,41}; static C_char C_TLS li844[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,100,114,111,112,45,114,105,103,104,116,32,105,110,112,117,116,53,52,49,54,32,116,101,109,112,53,52,49,55,41,0,0,0}; static C_char C_TLS li845[] C_aligned={C_lihdr(0,0,24),40,108,111,111,112,32,108,101,110,53,52,51,48,32,105,110,112,117,116,53,52,51,49,41}; static C_char C_TLS li846[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,116,97,107,101,45,114,105,103,104,116,32,105,110,112,117,116,53,52,50,55,32,116,101,109,112,53,52,50,56,41,0,0,0}; static C_char C_TLS li847[] C_aligned={C_lihdr(0,0,16),40,97,50,52,50,53,55,32,115,121,109,53,51,48,55,41}; static C_char C_TLS li848[] C_aligned={C_lihdr(0,0,24),40,97,50,52,50,54,54,32,115,121,109,53,51,48,57,32,108,115,116,53,51,49,48,41}; static C_char C_TLS li849[] C_aligned={C_lihdr(0,0,14),40,97,50,52,51,48,48,32,120,53,48,50,48,41,0,0}; static C_char C_TLS li850[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,97,114,103,115,53,48,49,53,41,0}; static C_char C_TLS li851[] C_aligned={C_lihdr(0,0,19),40,102,50,57,52,56,48,32,120,53,48,50,48,50,57,52,55,57,41,0,0,0,0,0}; static C_char C_TLS li852[] C_aligned={C_lihdr(0,0,19),40,102,50,57,52,56,54,32,120,53,48,49,48,50,57,52,56,53,41,0,0,0,0,0}; static C_char C_TLS li853[] C_aligned={C_lihdr(0,0,19),40,102,50,57,52,57,50,32,120,53,48,49,48,50,57,52,57,49,41,0,0,0,0,0}; static C_char C_TLS li854[] C_aligned={C_lihdr(0,0,8),40,97,50,52,51,56,53,41}; static C_char C_TLS li855[] C_aligned={C_lihdr(0,0,22),40,97,50,52,51,57,49,32,46,32,116,109,112,52,50,52,56,52,50,52,57,41,0,0}; static C_char C_TLS li856[] C_aligned={C_lihdr(0,0,8),40,97,50,52,52,49,53,41}; static C_char C_TLS li857[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,52,49,57,48,32,103,52,49,57,55,52,50,48,51,41,0,0,0}; static C_char C_TLS li858[] C_aligned={C_lihdr(0,0,8),40,97,50,52,52,54,54,41}; static C_char C_TLS li859[] C_aligned={C_lihdr(0,0,13),40,103,52,50,50,48,32,120,52,50,50,57,41,0,0,0}; static C_char C_TLS li860[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,52,50,49,57,32,103,52,50,50,54,52,50,51,50,41,0,0,0}; static C_char C_TLS li861[] C_aligned={C_lihdr(0,0,19),40,97,50,52,53,55,55,32,46,32,97,114,103,115,52,49,55,55,41,0,0,0,0,0}; static C_char C_TLS li862[] C_aligned={C_lihdr(0,0,27),40,97,50,52,52,50,52,32,109,115,103,52,49,55,53,32,46,32,97,114,103,115,52,49,55,54,41,0,0,0,0,0}; static C_char C_TLS li863[] 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 li864[] 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 li865[] 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 li866[] 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 li867[] 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 li868[] C_aligned={C_lihdr(0,0,32),40,102,95,50,52,57,53,53,32,95,51,50,54,52,32,112,111,114,116,51,50,54,53,32,110,117,109,51,50,54,54,41}; static C_char C_TLS li869[] C_aligned={C_lihdr(0,0,17),40,97,50,52,57,53,50,32,112,114,111,99,51,50,54,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li870[] C_aligned={C_lihdr(0,0,24),40,102,95,50,52,57,54,54,32,95,51,50,54,48,32,112,111,114,116,51,50,54,49,41}; static C_char C_TLS li871[] C_aligned={C_lihdr(0,0,17),40,97,50,52,57,54,51,32,112,114,111,99,51,50,53,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li872[] C_aligned={C_lihdr(0,0,24),40,102,95,50,52,57,55,55,32,95,51,50,53,54,32,112,111,114,116,51,50,53,55,41}; static C_char C_TLS li873[] C_aligned={C_lihdr(0,0,17),40,97,50,52,57,55,52,32,112,114,111,99,51,50,53,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li874[] C_aligned={C_lihdr(0,0,26),40,97,50,52,57,57,51,32,120,50,52,52,56,32,105,50,52,52,57,32,121,50,52,53,48,41,0,0,0,0,0,0}; static C_char C_TLS li875[] C_aligned={C_lihdr(0,0,20),40,97,50,53,48,48,51,32,120,50,52,52,54,32,121,50,52,52,55,41,0,0,0,0}; static C_char C_TLS li876[] C_aligned={C_lihdr(0,0,20),40,97,50,53,48,49,51,32,120,50,52,52,52,32,121,50,52,52,53,41,0,0,0,0}; static C_char C_TLS li877[] C_aligned={C_lihdr(0,0,20),40,97,50,53,48,50,51,32,120,50,52,52,50,32,121,50,52,52,51,41,0,0,0,0}; static C_char C_TLS li878[] C_aligned={C_lihdr(0,0,20),40,97,50,53,48,51,51,32,120,50,52,52,48,32,121,50,52,52,49,41,0,0,0,0}; static C_char C_TLS li879[] C_aligned={C_lihdr(0,0,20),40,97,50,53,48,52,51,32,120,50,52,51,56,32,121,50,52,51,57,41,0,0,0,0}; static C_char C_TLS li880[] C_aligned={C_lihdr(0,0,20),40,97,50,53,48,53,51,32,120,50,52,51,54,32,121,50,52,51,55,41,0,0,0,0}; static C_char C_TLS li881[] C_aligned={C_lihdr(0,0,20),40,97,50,53,48,54,51,32,120,50,52,51,52,32,121,50,52,51,53,41,0,0,0,0}; static C_char C_TLS li882[] C_aligned={C_lihdr(0,0,20),40,97,50,53,48,55,51,32,120,50,52,51,50,32,121,50,52,51,51,41,0,0,0,0}; static C_char C_TLS li883[] C_aligned={C_lihdr(0,0,20),40,97,50,53,48,56,51,32,120,50,52,51,48,32,121,50,52,51,49,41,0,0,0,0}; static C_char C_TLS li884[] C_aligned={C_lihdr(0,0,20),40,97,50,53,48,57,51,32,120,50,52,50,56,32,121,50,52,50,57,41,0,0,0,0}; static C_char C_TLS li885[] C_aligned={C_lihdr(0,0,20),40,97,50,53,49,48,51,32,120,50,52,50,54,32,121,50,52,50,55,41,0,0,0,0}; static C_char C_TLS li886[] C_aligned={C_lihdr(0,0,20),40,97,50,53,49,49,51,32,120,50,52,50,52,32,121,50,52,50,53,41,0,0,0,0}; static C_char C_TLS li887[] C_aligned={C_lihdr(0,0,14),40,97,50,53,49,52,55,32,120,50,51,55,57,41,0,0}; static C_char C_TLS li888[] C_aligned={C_lihdr(0,0,17),40,97,50,53,49,50,51,32,112,114,111,99,50,51,55,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li889[] C_aligned={C_lihdr(0,0,14),40,97,50,53,49,54,51,32,120,50,51,56,49,41,0,0}; static C_char C_TLS li890[] C_aligned={C_lihdr(0,0,14),40,97,50,53,50,49,56,32,120,50,51,56,56,41,0,0}; static C_char C_TLS li891[] C_aligned={C_lihdr(0,0,23),40,97,50,53,50,51,52,32,112,114,111,99,50,51,57,48,32,105,50,51,57,49,41,0}; static C_char C_TLS li892[] C_aligned={C_lihdr(0,0,24),40,97,50,53,49,56,57,32,103,101,116,50,51,56,53,32,115,101,116,50,51,56,54,41}; static C_char C_TLS li893[] C_aligned={C_lihdr(0,0,23),40,97,50,53,49,55,57,32,112,114,111,99,50,51,56,51,32,105,50,51,56,52,41,0}; static C_char C_TLS li894[] 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 li895[] 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 stub4999(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 k21910 */ C_regparm static C_word C_fcall stub4739(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 k21901 */ C_regparm static C_word C_fcall stub4731(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 k21849 */ C_regparm static C_word C_fcall stub4712(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 stub4074(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 k6954 in get-environment-variable in k6799 */ C_regparm static C_word C_fcall stub143(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_string_or_null(C_a0); C_r=C_mpointer(&C_a,(void*)C_getenv(t0)); return C_r;} C_noret_decl(f_15055) static void C_ccall f_15055(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_13550) static void C_ccall f_13550(C_word c,C_word *av) C_noret; C_noret_decl(f_13558) static void C_fcall f_13558(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_13012) static void C_ccall f_13012(C_word c,C_word *av) C_noret; C_noret_decl(f_22905) static void C_ccall f_22905(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_24386) static void C_ccall f_24386(C_word c,C_word *av) C_noret; C_noret_decl(f_24384) static void C_ccall f_24384(C_word c,C_word *av) C_noret; C_noret_decl(f_24380) static void C_ccall f_24380(C_word c,C_word *av) C_noret; C_noret_decl(f_22917) static void C_ccall f_22917(C_word c,C_word *av) C_noret; C_noret_decl(f_24392) static void C_ccall f_24392(C_word c,C_word *av) C_noret; C_noret_decl(f_22929) static void C_ccall f_22929(C_word c,C_word *av) C_noret; C_noret_decl(f_22923) static void C_ccall f_22923(C_word c,C_word *av) C_noret; C_noret_decl(f_13039) static void C_ccall f_13039(C_word c,C_word *av) C_noret; C_noret_decl(f_18425) static void C_ccall f_18425(C_word c,C_word *av) C_noret; C_noret_decl(f_18422) static void C_ccall f_18422(C_word c,C_word *av) C_noret; C_noret_decl(f_22935) static void C_ccall f_22935(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_13055) static void C_ccall f_13055(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_13059) static void C_ccall f_13059(C_word c,C_word *av) C_noret; C_noret_decl(f_22941) static void C_ccall f_22941(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_15099) static void C_ccall f_15099(C_word c,C_word *av) C_noret; C_noret_decl(f_24129) static void C_fcall f_24129(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_24123) static void C_ccall f_24123(C_word c,C_word *av) C_noret; C_noret_decl(f_22958) static void C_ccall f_22958(C_word c,C_word *av) C_noret; C_noret_decl(f_13043) static void C_ccall f_13043(C_word c,C_word *av) C_noret; C_noret_decl(f_13047) static void C_ccall f_13047(C_word c,C_word *av) C_noret; C_noret_decl(f_11459) static void C_fcall f_11459(C_word t0,C_word t1) C_noret; C_noret_decl(f_15088) static void C_ccall f_15088(C_word c,C_word *av) C_noret; C_noret_decl(f_22964) static void C_ccall f_22964(C_word c,C_word *av) C_noret; C_noret_decl(f_13075) static void C_ccall f_13075(C_word c,C_word *av) C_noret; C_noret_decl(f_13071) static void C_ccall f_13071(C_word c,C_word *av) C_noret; C_noret_decl(f_18771) static void C_ccall f_18771(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_9086) static void C_ccall f_9086(C_word c,C_word *av) C_noret; C_noret_decl(f_9081) static void C_ccall f_9081(C_word c,C_word *av) C_noret; C_noret_decl(f_13063) static void C_ccall f_13063(C_word c,C_word *av) C_noret; C_noret_decl(f_25034) static void C_ccall f_25034(C_word c,C_word *av) C_noret; C_noret_decl(f_15592) static void C_ccall f_15592(C_word c,C_word *av) C_noret; C_noret_decl(f_13067) static void C_ccall f_13067(C_word c,C_word *av) C_noret; C_noret_decl(f_15598) static void C_fcall f_15598(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_24113) static void C_ccall f_24113(C_word c,C_word *av) C_noret; C_noret_decl(f_22986) static void C_ccall f_22986(C_word c,C_word *av) C_noret; C_noret_decl(f_17206) static void C_fcall f_17206(C_word t0,C_word t1,C_word t2) 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_25004) static void C_ccall f_25004(C_word c,C_word *av) C_noret; C_noret_decl(f_18793) static void C_ccall f_18793(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_13091) static void C_ccall f_13091(C_word c,C_word *av) C_noret; C_noret_decl(f_13095) static void C_ccall f_13095(C_word c,C_word *av) C_noret; C_noret_decl(f_22982) static void C_ccall f_22982(C_word c,C_word *av) C_noret; C_noret_decl(f_15589) static void C_ccall f_15589(C_word c,C_word *av) C_noret; C_noret_decl(f_15586) static void C_ccall f_15586(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_22994) static void C_ccall f_22994(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_18799) static void C_ccall f_18799(C_word c,C_word *av) C_noret; C_noret_decl(f_13087) static void C_ccall f_13087(C_word c,C_word *av) C_noret; C_noret_decl(f_22990) static void C_ccall f_22990(C_word c,C_word *av) 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_10790) static void C_fcall f_10790(C_word t0,C_word t1) 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_10796) static void C_ccall f_10796(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_7624) static void C_ccall f_7624(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_9045) static void C_ccall f_9045(C_word c,C_word *av) C_noret; C_noret_decl(f_7942) static void C_ccall f_7942(C_word c,C_word *av) C_noret; C_noret_decl(f_25074) static void C_ccall f_25074(C_word c,C_word *av) C_noret; C_noret_decl(f_7948) static void C_fcall f_7948(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11931) static void C_ccall f_11931(C_word c,C_word *av) C_noret; C_noret_decl(f_11935) static void C_ccall f_11935(C_word c,C_word *av) C_noret; C_noret_decl(f_25044) static void C_ccall f_25044(C_word c,C_word *av) C_noret; C_noret_decl(f_18168) static void C_fcall f_18168(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7642) static void C_ccall f_7642(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_9063) static void C_ccall f_9063(C_word c,C_word *av) C_noret; C_noret_decl(f_9065) static void C_ccall f_9065(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_25014) static void C_ccall f_25014(C_word c,C_word *av) C_noret; C_noret_decl(f_18178) static void C_fcall f_18178(C_word t0,C_word t1) C_noret; C_noret_decl(f_7631) static void C_ccall f_7631(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_12996) static void C_ccall f_12996(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_11437) static void C_ccall f_11437(C_word c,C_word *av) C_noret; C_noret_decl(f_18181) static void C_ccall f_18181(C_word c,C_word *av) C_noret; C_noret_decl(f_15405) static void C_ccall f_15405(C_word c,C_word *av) C_noret; C_noret_decl(f_15401) static void C_fcall f_15401(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_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_25084) static void C_ccall f_25084(C_word c,C_word *av) C_noret; C_noret_decl(f_15693) static void C_ccall f_15693(C_word c,C_word *av) C_noret; C_noret_decl(f_7682) static void C_ccall f_7682(C_word c,C_word *av) C_noret; C_noret_decl(f_15689) static void C_ccall f_15689(C_word c,C_word *av) 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_17291) static void C_ccall f_17291(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_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_10716) static void C_fcall f_10716(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_25054) static void C_ccall f_25054(C_word c,C_word *av) C_noret; C_noret_decl(f_15682) static void C_ccall f_15682(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_15675) static void C_ccall f_15675(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_17267) static void C_ccall f_17267(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_word t3) C_noret; C_noret_decl(f_11467) static C_word C_fcall f_11467(C_word t0); C_noret_decl(f_10411) static void C_ccall f_10411(C_word c,C_word *av) C_noret; C_noret_decl(f_10413) static void C_fcall f_10413(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7117) static void C_ccall f_7117(C_word c,C_word *av) C_noret; C_noret_decl(f_15441) static void C_ccall f_15441(C_word c,C_word *av) C_noret; C_noret_decl(f_17392) static void C_ccall f_17392(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_7613) static void C_ccall f_7613(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_12978) static void C_ccall f_12978(C_word c,C_word *av) C_noret; C_noret_decl(f_12975) static void C_ccall f_12975(C_word c,C_word *av) C_noret; C_noret_decl(f_18850) static void C_fcall f_18850(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_10478) static void C_ccall f_10478(C_word c,C_word *av) 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_12986) static void C_ccall f_12986(C_word c,C_word *av) C_noret; C_noret_decl(f_25094) static void C_ccall f_25094(C_word c,C_word *av) C_noret; C_noret_decl(f_10755) static C_word C_fcall f_10755(C_word t0,C_word t1); C_noret_decl(f_12921) static void C_ccall f_12921(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_10447) static void C_ccall f_10447(C_word c,C_word *av) C_noret; C_noret_decl(f_18865) static void C_ccall f_18865(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_24017) static void C_ccall f_24017(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_18109) static void C_ccall f_18109(C_word c,C_word *av) C_noret; C_noret_decl(f_12930) static void C_ccall f_12930(C_word c,C_word *av) C_noret; C_noret_decl(f_18106) static void C_ccall f_18106(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_18190) static void C_ccall f_18190(C_word c,C_word *av) C_noret; C_noret_decl(f_24038) static void C_ccall f_24038(C_word c,C_word *av) C_noret; C_noret_decl(f_24035) static void C_ccall f_24035(C_word c,C_word *av) C_noret; C_noret_decl(f_17367) static void C_ccall f_17367(C_word c,C_word *av) C_noret; C_noret_decl(f_12951) static void C_ccall f_12951(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_15464) static void C_ccall f_15464(C_word c,C_word *av) C_noret; C_noret_decl(f_24005) static void C_ccall f_24005(C_word c,C_word *av) C_noret; C_noret_decl(f_24459) static void C_ccall f_24459(C_word c,C_word *av) C_noret; C_noret_decl(f_24456) static void C_ccall f_24456(C_word c,C_word *av) C_noret; C_noret_decl(f_12962) static void C_ccall f_12962(C_word c,C_word *av) C_noret; C_noret_decl(f_24450) static void C_ccall f_24450(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_20192) static void C_ccall f_20192(C_word c,C_word *av) C_noret; C_noret_decl(f_19194) static void C_ccall f_19194(C_word c,C_word *av) C_noret; C_noret_decl(f_20198) static void C_ccall f_20198(C_word c,C_word *av) C_noret; C_noret_decl(f_24058) static void C_fcall f_24058(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_19198) static void C_ccall f_19198(C_word c,C_word *av) C_noret; C_noret_decl(f_12959) static void C_ccall f_12959(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_24467) static void C_ccall f_24467(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_12972) static void C_ccall f_12972(C_word c,C_word *av) C_noret; C_noret_decl(f_24462) static void C_ccall f_24462(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_7194) static void C_ccall f_7194(C_word c,C_word *av) C_noret; C_noret_decl(f_20188) static void C_ccall f_20188(C_word c,C_word *av) C_noret; C_noret_decl(f_24020) static void C_ccall f_24020(C_word c,C_word *av) C_noret; C_noret_decl(f_12969) static void C_ccall f_12969(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_24026) static void C_ccall f_24026(C_word c,C_word *av) C_noret; C_noret_decl(f_24023) static void C_ccall f_24023(C_word c,C_word *av) C_noret; C_noret_decl(f_17316) static void C_fcall f_17316(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_17311) static void C_ccall f_17311(C_word c,C_word *av) C_noret; C_noret_decl(f_17314) static void C_ccall f_17314(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_7183) static void C_ccall f_7183(C_word c,C_word *av) C_noret; C_noret_decl(f_10467) static void C_ccall f_10467(C_word c,C_word *av) C_noret; C_noret_decl(f_20175) static void C_ccall f_20175(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_24076) static void C_ccall f_24076(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_19187) static void C_ccall f_19187(C_word c,C_word *av) C_noret; C_noret_decl(f_24049) static void C_ccall f_24049(C_word c,C_word *av) C_noret; C_noret_decl(f_17332) static void C_ccall f_17332(C_word c,C_word *av) C_noret; C_noret_decl(f_24497) static void C_fcall f_24497(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17347) static void C_ccall f_17347(C_word c,C_word *av) C_noret; C_noret_decl(f_17344) static void C_ccall f_17344(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_7150) static void C_ccall f_7150(C_word c,C_word *av) C_noret; C_noret_decl(f_21123) static void C_ccall f_21123(C_word c,C_word *av) C_noret; C_noret_decl(f_11393) static void C_ccall f_11393(C_word c,C_word *av) C_noret; C_noret_decl(f_24438) static void C_ccall f_24438(C_word c,C_word *av) C_noret; C_noret_decl(f_17350) static void C_ccall f_17350(C_word c,C_word *av) C_noret; C_noret_decl(f_23542) static void C_ccall f_23542(C_word c,C_word *av) C_noret; C_noret_decl(f_18802) static void C_ccall f_18802(C_word c,C_word *av) C_noret; C_noret_decl(f_21119) static void C_ccall f_21119(C_word c,C_word *av) C_noret; C_noret_decl(f_24447) static void C_ccall f_24447(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_24444) static void C_ccall f_24444(C_word c,C_word *av) C_noret; C_noret_decl(f_21108) static void C_ccall f_21108(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_18827) static void C_ccall f_18827(C_word c,C_word *av) C_noret; C_noret_decl(f_20114) static void C_ccall f_20114(C_word c,C_word *av) C_noret; C_noret_decl(f_9879) static void C_ccall f_9879(C_word c,C_word *av) C_noret; C_noret_decl(f_19116) static void C_fcall f_19116(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9870) static void C_ccall f_9870(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_11347) static void C_ccall f_11347(C_word c,C_word *av) C_noret; C_noret_decl(f_18830) static void C_fcall f_18830(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_16816) static void C_ccall f_16816(C_word c,C_word *av) C_noret; C_noret_decl(f_20104) static void C_fcall f_20104(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8164) static C_word C_fcall f_8164(C_word t0,C_word t1,C_word t2); C_noret_decl(f_17326) static void C_ccall f_17326(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_11369) static void C_fcall f_11369(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19101) static void C_fcall f_19101(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19100) static void C_ccall f_19100(C_word c,C_word *av) C_noret; C_noret_decl(f_23558) static void C_ccall f_23558(C_word c,C_word *av) C_noret; C_noret_decl(f_17257) static void C_fcall f_17257(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21145) static void C_ccall f_21145(C_word c,C_word *av) 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_9820) static void C_ccall f_9820(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_19150) static void C_ccall f_19150(C_word c,C_word *av) C_noret; C_noret_decl(f_19158) static void C_ccall f_19158(C_word c,C_word *av) C_noret; C_noret_decl(f_11301) static void C_ccall f_11301(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_9834) static void C_fcall f_9834(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11304) static void C_ccall f_11304(C_word c,C_word *av) C_noret; C_noret_decl(f_11309) static void C_ccall f_11309(C_word c,C_word *av) C_noret; C_noret_decl(f_17238) static void C_ccall f_17238(C_word c,C_word *av) C_noret; C_noret_decl(f_17233) static void C_ccall f_17233(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_9844) static void C_ccall f_9844(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_8113) static C_word C_fcall f_8113(C_word t0,C_word t1,C_word t2); C_noret_decl(f_22537) static void C_ccall f_22537(C_word c,C_word *av) C_noret; C_noret_decl(f_9859) static void C_ccall f_9859(C_word c,C_word *av) C_noret; C_noret_decl(f_19139) static void C_ccall f_19139(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_22507) static void C_fcall f_22507(C_word t0,C_word t1) C_noret; C_noret_decl(f_14140) static void C_ccall f_14140(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_24929) static void C_ccall f_24929(C_word c,C_word *av) C_noret; C_noret_decl(f_11331) static void C_fcall f_11331(C_word t0,C_word t1,C_word t2) 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_16963) static void C_ccall f_16963(C_word c,C_word *av) C_noret; C_noret_decl(f_16961) static void C_fcall f_16961(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_19126) static void C_ccall f_19126(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_18002) static void C_ccall f_18002(C_word c,C_word *av) C_noret; C_noret_decl(f_16988) static void C_ccall f_16988(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_14112) static void C_ccall f_14112(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_16976) static void C_ccall f_16976(C_word c,C_word *av) C_noret; C_noret_decl(f_16979) static void C_fcall f_16979(C_word t0,C_word t1) 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_21861) static void C_fcall f_21861(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22595) static void C_ccall f_22595(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_9378) static void C_ccall f_9378(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_16918) static void C_ccall f_16918(C_word c,C_word *av) C_noret; C_noret_decl(f_21881) static void C_ccall f_21881(C_word c,C_word *av) C_noret; C_noret_decl(f_18040) static void C_ccall f_18040(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_9381) static void C_ccall f_9381(C_word c,C_word *av) C_noret; C_noret_decl(f_9384) static void C_ccall f_9384(C_word c,C_word *av) C_noret; C_noret_decl(f_21835) static void C_ccall f_21835(C_word c,C_word *av) C_noret; C_noret_decl(f_21830) static void C_ccall f_21830(C_word c,C_word *av) C_noret; C_noret_decl(f_21832) static void C_ccall f_21832(C_word c,C_word *av) C_noret; C_noret_decl(f_13584) static void C_fcall f_13584(C_word t0,C_word t1) 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_22588) static void C_ccall f_22588(C_word c,C_word *av) C_noret; C_noret_decl(f_21825) static void C_ccall f_21825(C_word c,C_word *av) C_noret; C_noret_decl(f_21823) static void C_ccall f_21823(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_13577) static void C_fcall f_13577(C_word t0,C_word t1,C_word t2) 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_9365) static void C_ccall f_9365(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_25588) static void C_ccall f_25588(C_word c,C_word *av) C_noret; C_noret_decl(f_25580) static void C_ccall f_25580(C_word c,C_word *av) C_noret; C_noret_decl(f_25584) static void C_ccall f_25584(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_23402) static void C_ccall f_23402(C_word c,C_word *av) C_noret; C_noret_decl(f_24981) static void C_ccall f_24981(C_word c,C_word *av) C_noret; C_noret_decl(f_21160) static void C_ccall f_21160(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_6989) static void C_ccall f_6989(C_word c,C_word *av) C_noret; C_noret_decl(f_14194) static void C_fcall f_14194(C_word t0,C_word t1) C_noret; C_noret_decl(f_21156) static void C_ccall f_21156(C_word c,C_word *av) C_noret; C_noret_decl(f_24994) static void C_ccall f_24994(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_9399) static void C_ccall f_9399(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_9390) static void C_ccall f_9390(C_word c,C_word *av) C_noret; C_noret_decl(f_24964) static void C_ccall f_24964(C_word c,C_word *av) C_noret; C_noret_decl(f_24966) static void C_ccall f_24966(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_24977) static void C_ccall f_24977(C_word c,C_word *av) C_noret; C_noret_decl(f_21813) static void C_ccall f_21813(C_word c,C_word *av) C_noret; C_noret_decl(f_24975) static void C_ccall f_24975(C_word c,C_word *av) C_noret; C_noret_decl(f_21819) static void C_ccall f_21819(C_word c,C_word *av) C_noret; C_noret_decl(f_16994) static void C_ccall f_16994(C_word c,C_word *av) C_noret; C_noret_decl(f_14829) static void C_ccall f_14829(C_word c,C_word *av) C_noret; C_noret_decl(f_14162) static void C_ccall f_14162(C_word c,C_word *av) C_noret; C_noret_decl(f_24948) static void C_ccall f_24948(C_word c,C_word *av) C_noret; C_noret_decl(f_14165) static void C_ccall f_14165(C_word c,C_word *av) C_noret; C_noret_decl(f_21801) static void C_ccall f_21801(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_24953) static void C_ccall f_24953(C_word c,C_word *av) C_noret; C_noret_decl(f_24955) static void C_ccall f_24955(C_word c,C_word *av) C_noret; C_noret_decl(f_24959) static void C_ccall f_24959(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_6971) static void C_ccall f_6971(C_word c,C_word *av) C_noret; C_noret_decl(f_6975) static void C_ccall f_6975(C_word c,C_word *av) C_noret; C_noret_decl(f_6978) static void C_ccall f_6978(C_word c,C_word *av) C_noret; C_noret_decl(f_14841) static void C_fcall f_14841(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6965) static void C_ccall f_6965(C_word c,C_word *av) C_noret; C_noret_decl(f_6969) static void C_ccall f_6969(C_word c,C_word *av) C_noret; C_noret_decl(f_14839) static void C_ccall f_14839(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_noret; C_noret_decl(f_9808) static void C_ccall f_9808(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_6998) static void C_ccall f_6998(C_word c,C_word *av) C_noret; C_noret_decl(f_25511) static void C_ccall f_25511(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_12900) static void C_ccall f_12900(C_word c,C_word *av) C_noret; C_noret_decl(f_23494) static void C_ccall f_23494(C_word c,C_word *av) C_noret; C_noret_decl(f_25526) static void C_ccall f_25526(C_word c,C_word *av) C_noret; C_noret_decl(f_14851) static void C_fcall f_14851(C_word t0,C_word t1) 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_6937) static void C_ccall f_6937(C_word c,C_word *av) C_noret; C_noret_decl(f_6931) static void C_ccall f_6931(C_word c,C_word *av) C_noret; C_noret_decl(f_23478) static void C_ccall f_23478(C_word c,C_word *av) C_noret; C_noret_decl(f_12902) static void C_ccall f_12902(C_word c,C_word *av) C_noret; C_noret_decl(f_13432) static void C_ccall f_13432(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_14502) static void C_ccall f_14502(C_word c,C_word *av) 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_13467) static void C_ccall f_13467(C_word c,C_word *av) 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_14533) static void C_ccall f_14533(C_word c,C_word *av) C_noret; C_noret_decl(f_10734) static void C_ccall f_10734(C_word c,C_word *av) C_noret; C_noret_decl(f_13453) static void C_ccall f_13453(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_13459) static void C_ccall f_13459(C_word c,C_word *av) C_noret; C_noret_decl(f_24192) static void C_ccall f_24192(C_word c,C_word *av) C_noret; C_noret_decl(f_13302) static void C_ccall f_13302(C_word c,C_word *av) C_noret; C_noret_decl(f_24190) static void C_ccall f_24190(C_word c,C_word *av) C_noret; C_noret_decl(f_12934) static void C_ccall f_12934(C_word c,C_word *av) C_noret; C_noret_decl(f_12937) static void C_ccall f_12937(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_13402) static void C_ccall f_13402(C_word c,C_word *av) C_noret; C_noret_decl(f_10740) static void C_ccall f_10740(C_word c,C_word *av) C_noret; C_noret_decl(f_24163) static void C_fcall f_24163(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12947) static void C_ccall f_12947(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_24177) static void C_ccall f_24177(C_word c,C_word *av) C_noret; C_noret_decl(f_19948) static void C_ccall f_19948(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_13324) static void C_ccall f_13324(C_word c,C_word *av) C_noret; C_noret_decl(f_6912) static void C_ccall f_6912(C_word c,C_word *av) C_noret; C_noret_decl(f_24145) static void C_ccall f_24145(C_word c,C_word *av) C_noret; C_noret_decl(f_6919) static void C_ccall f_6919(C_word c,C_word *av) C_noret; C_noret_decl(f_6916) static void C_ccall f_6916(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_24153) static void C_ccall f_24153(C_word c,C_word *av) C_noret; C_noret_decl(f_24157) static void C_ccall f_24157(C_word c,C_word *av) C_noret; C_noret_decl(f_24869) static void C_ccall f_24869(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_18967) static void C_ccall f_18967(C_word c,C_word *av) C_noret; C_noret_decl(f_24888) static void C_ccall f_24888(C_word c,C_word *av) C_noret; C_noret_decl(f_18984) static void C_ccall f_18984(C_word c,C_word *av) C_noret; C_noret_decl(f_18871) static void C_ccall f_18871(C_word c,C_word *av) C_noret; C_noret_decl(f_15482) static void C_fcall f_15482(C_word t0,C_word t1) C_noret; C_noret_decl(f_15495) static void C_ccall f_15495(C_word c,C_word *av) C_noret; C_noret_decl(f_6947) static void C_ccall f_6947(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_13389) static void C_ccall f_13389(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_18915) static void C_ccall f_18915(C_word c,C_word *av) C_noret; C_noret_decl(f_15489) static void C_ccall f_15489(C_word c,C_word *av) 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_18898) static void C_ccall f_18898(C_word c,C_word *av) C_noret; C_noret_decl(f_18921) static void C_fcall f_18921(C_word t0,C_word t1) C_noret; C_noret_decl(f_18924) static void C_ccall f_18924(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_18935) static void C_ccall f_18935(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_12441) static void C_ccall f_12441(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_12459) static void C_ccall f_12459(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_12450) static void C_ccall f_12450(C_word c,C_word *av) C_noret; C_noret_decl(f_9341) static void C_ccall f_9341(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_12469) static void C_ccall f_12469(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_17506) static void C_ccall f_17506(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_9314) static void C_ccall f_9314(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_19908) static void C_ccall f_19908(C_word c,C_word *av) C_noret; C_noret_decl(f_17515) static void C_ccall f_17515(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_12483) static void C_ccall f_12483(C_word c,C_word *av) C_noret; C_noret_decl(f_25543) static void C_ccall f_25543(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_17526) static void C_ccall f_17526(C_word c,C_word *av) C_noret; C_noret_decl(f_18904) static void C_fcall f_18904(C_word t0,C_word t1) 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_25557) static void C_ccall f_25557(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_17535) static void C_ccall f_17535(C_word c,C_word *av) C_noret; C_noret_decl(f_17538) static void C_ccall f_17538(C_word c,C_word *av) C_noret; C_noret_decl(f_25569) static void C_ccall f_25569(C_word c,C_word *av) C_noret; C_noret_decl(f_25565) static void C_ccall f_25565(C_word c,C_word *av) C_noret; C_noret_decl(f_24879) static void C_ccall f_24879(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_12430) static void C_ccall f_12430(C_word c,C_word *av) C_noret; C_noret_decl(f_24845) static void C_ccall f_24845(C_word c,C_word *av) C_noret; C_noret_decl(f_17561) static void C_fcall f_17561(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21709) static void C_ccall f_21709(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_10873) static C_word C_fcall f_10873(C_word t0,C_word t1); C_noret_decl(f_19719) static void C_ccall f_19719(C_word c,C_word *av) C_noret; C_noret_decl(f_12478) static void C_ccall f_12478(C_word c,C_word *av) C_noret; C_noret_decl(f_12474) static void C_ccall f_12474(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_16244) static void C_ccall f_16244(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_12402) static void C_ccall f_12402(C_word c,C_word *av) C_noret; C_noret_decl(f_12414) static void C_ccall f_12414(C_word c,C_word *av) C_noret; C_noret_decl(f_10862) static void C_ccall f_10862(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_10865) static void C_ccall f_10865(C_word c,C_word *av) C_noret; C_noret_decl(f_21744) static void C_ccall f_21744(C_word c,C_word *av) C_noret; C_noret_decl(f_19708) static void C_fcall f_19708(C_word t0,C_word t1) C_noret; C_noret_decl(f_16225) static void C_ccall f_16225(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_18596) static void C_ccall f_18596(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_11789) static void C_ccall f_11789(C_word c,C_word *av) 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_12420) static void C_ccall f_12420(C_word c,C_word *av) C_noret; C_noret_decl(f_21734) static void C_ccall f_21734(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_21721) static void C_ccall f_21721(C_word c,C_word *av) C_noret; C_noret_decl(f_16206) static void C_ccall f_16206(C_word c,C_word *av) C_noret; C_noret_decl(f_21727) static void C_ccall f_21727(C_word c,C_word *av) C_noret; C_noret_decl(f_19096) static void C_ccall f_19096(C_word c,C_word *av) C_noret; C_noret_decl(f_16200) static void C_ccall f_16200(C_word c,C_word *av) C_noret; C_noret_decl(f_21711) static void C_ccall f_21711(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_21781) static void C_ccall f_21781(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_21772) static void C_ccall f_21772(C_word c,C_word *av) C_noret; C_noret_decl(f_21775) static void C_ccall f_21775(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_21769) static void C_ccall f_21769(C_word c,C_word *av) C_noret; C_noret_decl(f_11767) static void C_fcall f_11767(C_word t0,C_word t1,C_word t2) 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_19062) static void C_ccall f_19062(C_word c,C_word *av) C_noret; C_noret_decl(f_23437) static void C_ccall f_23437(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_8897) static void C_ccall f_8897(C_word c,C_word *av) C_noret; C_noret_decl(f_19024) static void C_ccall f_19024(C_word c,C_word *av) C_noret; C_noret_decl(f_19031) static void C_ccall f_19031(C_word c,C_word *av) C_noret; C_noret_decl(f_16266) static void C_ccall f_16266(C_word c,C_word *av) C_noret; C_noret_decl(f_16906) static void C_ccall f_16906(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_23462) static void C_ccall f_23462(C_word c,C_word *av) C_noret; C_noret_decl(f_19043) static void C_ccall f_19043(C_word c,C_word *av) C_noret; C_noret_decl(f_22612) static void C_ccall f_22612(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_22620) static void C_ccall f_22620(C_word c,C_word *av) C_noret; C_noret_decl(f_11268) static void C_ccall f_11268(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_8871) static void C_ccall f_8871(C_word c,C_word *av) C_noret; C_noret_decl(f_16938) static void C_ccall f_16938(C_word c,C_word *av) 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_22639) static void C_ccall f_22639(C_word c,C_word *av) C_noret; C_noret_decl(f_22631) static void C_ccall f_22631(C_word c,C_word *av) C_noret; C_noret_decl(f_14204) static void C_ccall f_14204(C_word c,C_word *av) 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_22646) static void C_ccall f_22646(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_14231) static void C_ccall f_14231(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_14220) static void C_ccall f_14220(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_8847) static void C_ccall f_8847(C_word c,C_word *av) C_noret; C_noret_decl(f_10016) static void C_ccall f_10016(C_word c,C_word *av) C_noret; C_noret_decl(f_9669) static void C_ccall f_9669(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_13479) static void C_ccall f_13479(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_13471) static void C_ccall f_13471(C_word c,C_word *av) C_noret; C_noret_decl(f_19619) static void C_ccall f_19619(C_word c,C_word *av) C_noret; C_noret_decl(f_24692) static void C_ccall f_24692(C_word c,C_word *av) C_noret; C_noret_decl(f_9672) static void C_ccall f_9672(C_word c,C_word *av) C_noret; C_noret_decl(f_24696) static void C_ccall f_24696(C_word c,C_word *av) C_noret; C_noret_decl(f_19610) static void C_ccall f_19610(C_word c,C_word *av) C_noret; C_noret_decl(f_19628) static void C_fcall f_19628(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13496) static void C_ccall f_13496(C_word c,C_word *av) C_noret; C_noret_decl(f_13493) static void C_ccall f_13493(C_word c,C_word *av) C_noret; C_noret_decl(f_19622) static void C_ccall f_19622(C_word c,C_word *av) C_noret; C_noret_decl(f_16352) static void C_ccall f_16352(C_word c,C_word *av) C_noret; C_noret_decl(f_10033) static void C_fcall f_10033(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_16340) static void C_ccall f_16340(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_24296) static void C_ccall f_24296(C_word c,C_word *av) C_noret; C_noret_decl(f_19652) static void C_ccall f_19652(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_19665) static void C_ccall f_19665(C_word c,C_word *av) C_noret; C_noret_decl(f_23313) static void C_fcall f_23313(C_word t0,C_word t1,C_word t2) 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_23318) static void C_fcall f_23318(C_word t0,C_word t1) C_noret; C_noret_decl(f_13483) static void C_ccall f_13483(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_24607) static void C_ccall f_24607(C_word c,C_word *av) C_noret; C_noret_decl(f_13708) static void C_ccall f_13708(C_word c,C_word *av) C_noret; C_noret_decl(f_23372) static void C_ccall f_23372(C_word c,C_word *av) C_noret; C_noret_decl(f_23375) static void C_ccall f_23375(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_23378) static void C_ccall f_23378(C_word c,C_word *av) C_noret; C_noret_decl(f_11298) static void C_ccall f_11298(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_11292) static void C_ccall f_11292(C_word c,C_word *av) C_noret; C_noret_decl(f_9693) static void C_ccall f_9693(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_9696) static void C_ccall f_9696(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_23353) static void C_ccall f_23353(C_word c,C_word *av) C_noret; C_noret_decl(f_11277) static void C_ccall f_11277(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_11271) static void C_ccall f_11271(C_word c,C_word *av) C_noret; C_noret_decl(f_10801) static C_word C_fcall f_10801(C_word t0,C_word t1); C_noret_decl(f_11274) static void C_ccall f_11274(C_word c,C_word *av) C_noret; C_noret_decl(f_23363) static void C_ccall f_23363(C_word c,C_word *av) C_noret; C_noret_decl(f_23366) static void C_ccall f_23366(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_23369) static void C_ccall f_23369(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_11283) static void C_ccall f_11283(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_13739) static void C_fcall f_13739(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19813) static void C_ccall f_19813(C_word c,C_word *av) C_noret; C_noret_decl(f_19814) static void C_fcall f_19814(C_word t0,C_word t1,C_word t2) 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_18622) static void C_ccall f_18622(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_14634) static void C_ccall f_14634(C_word c,C_word *av) C_noret; C_noret_decl(f_13751) static void C_fcall f_13751(C_word t0,C_word t1,C_word t2,C_word t3) 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_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_10843) static void C_ccall f_10843(C_word c,C_word *av) 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_18612) static void C_ccall f_18612(C_word c,C_word *av) C_noret; C_noret_decl(f_14602) static void C_fcall f_14602(C_word t0,C_word t1) C_noret; C_noret_decl(f_14600) static void C_ccall f_14600(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_18615) static void C_ccall f_18615(C_word c,C_word *av) C_noret; C_noret_decl(f_14606) static void C_ccall f_14606(C_word c,C_word *av) C_noret; C_noret_decl(f_9624) static void C_ccall f_9624(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_9619) static void C_ccall f_9619(C_word c,C_word *av) C_noret; C_noret_decl(f_13268) static void C_ccall f_13268(C_word c,C_word *av) C_noret; C_noret_decl(f_13256) static void C_ccall f_13256(C_word c,C_word *av) C_noret; C_noret_decl(f_9631) static void C_fcall f_9631(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_14620) static void C_fcall f_14620(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_25200) static void C_ccall f_25200(C_word c,C_word *av) C_noret; C_noret_decl(f_14627) static void C_ccall f_14627(C_word c,C_word *av) C_noret; C_noret_decl(f_19880) static void C_ccall f_19880(C_word c,C_word *av) C_noret; C_noret_decl(f_18159) static void C_ccall f_18159(C_word c,C_word *av) C_noret; C_noret_decl(f_18687) static void C_fcall f_18687(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_18681) static void C_ccall f_18681(C_word c,C_word *av) C_noret; C_noret_decl(f_25219) static void C_ccall f_25219(C_word c,C_word *av) C_noret; C_noret_decl(f_13274) static void C_ccall f_13274(C_word c,C_word *av) C_noret; C_noret_decl(f_13277) static void C_ccall f_13277(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_19833) static void C_ccall f_19833(C_word c,C_word *av) C_noret; C_noret_decl(f_19836) static void C_ccall f_19836(C_word c,C_word *av) C_noret; C_noret_decl(f_18116) static void C_ccall f_18116(C_word c,C_word *av) C_noret; C_noret_decl(f_19689) static void C_fcall f_19689(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19844) static void C_ccall f_19844(C_word c,C_word *av) C_noret; C_noret_decl(f_19681) static void C_ccall f_19681(C_word c,C_word *av) C_noret; C_noret_decl(f_13242) static void C_ccall f_13242(C_word c,C_word *av) C_noret; C_noret_decl(f_14656) static void C_fcall f_14656(C_word t0,C_word t1) C_noret; C_noret_decl(f_19851) static void C_fcall f_19851(C_word t0,C_word t1) C_noret; C_noret_decl(f_19857) static void C_ccall f_19857(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_18661) static void C_ccall f_18661(C_word c,C_word *av) C_noret; C_noret_decl(f_18667) static void C_ccall f_18667(C_word c,C_word *av) C_noret; C_noret_decl(f_18664) static void C_ccall f_18664(C_word c,C_word *av) 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_9192) static void C_ccall f_9192(C_word c,C_word *av) C_noret; C_noret_decl(f_18633) static void C_ccall f_18633(C_word c,C_word *av) C_noret; C_noret_decl(f_10991) static void C_ccall f_10991(C_word c,C_word *av) C_noret; C_noret_decl(f_9194) static void C_ccall f_9194(C_word c,C_word *av) C_noret; C_noret_decl(f_25288) static void C_ccall f_25288(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_10994) static void C_ccall f_10994(C_word c,C_word *av) C_noret; C_noret_decl(f_18636) static void C_ccall f_18636(C_word c,C_word *av) C_noret; C_noret_decl(f_18639) static void C_ccall f_18639(C_word c,C_word *av) C_noret; C_noret_decl(f_25284) static void C_ccall f_25284(C_word c,C_word *av) C_noret; C_noret_decl(f_19803) static void C_ccall f_19803(C_word c,C_word *av) C_noret; C_noret_decl(f_18602) static void C_ccall f_18602(C_word c,C_word *av) 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_18608) static void C_ccall f_18608(C_word c,C_word *av) C_noret; C_noret_decl(f_25292) static void C_ccall f_25292(C_word c,C_word *av) C_noret; C_noret_decl(f_24790) static void C_ccall f_24790(C_word c,C_word *av) C_noret; C_noret_decl(f_18651) static void C_ccall f_18651(C_word c,C_word *av) C_noret; C_noret_decl(f_9176) static void C_ccall f_9176(C_word c,C_word *av) C_noret; C_noret_decl(f_18657) static void C_ccall f_18657(C_word c,C_word *av) C_noret; C_noret_decl(f_12107) static C_word C_fcall f_12107(C_word t0,C_word t1); C_noret_decl(f_9174) static void C_ccall f_9174(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_25235) static void C_ccall f_25235(C_word c,C_word *av) 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_12118) static C_word C_fcall f_12118(C_word t0); C_noret_decl(f_12113) static C_word C_fcall f_12113(C_word t0); C_noret_decl(f_18363) static void C_fcall f_18363(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11709) static void C_ccall f_11709(C_word c,C_word *av) C_noret; C_noret_decl(f_24772) static void C_ccall f_24772(C_word c,C_word *av) C_noret; C_noret_decl(f_10633) static void C_ccall f_10633(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_9158) static void C_ccall f_9158(C_word c,C_word *av) C_noret; C_noret_decl(f_11717) static void C_ccall f_11717(C_word c,C_word *av) C_noret; C_noret_decl(f_24700) static void C_ccall f_24700(C_word c,C_word *av) C_noret; C_noret_decl(f_24706) static void C_ccall f_24706(C_word c,C_word *av) C_noret; C_noret_decl(f_24704) static void C_ccall f_24704(C_word c,C_word *av) C_noret; C_noret_decl(f_25258) static void C_ccall f_25258(C_word c,C_word *av) C_noret; C_noret_decl(f_25250) static void C_ccall f_25250(C_word c,C_word *av) C_noret; C_noret_decl(f_25252) static void C_ccall f_25252(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_12153) static void C_ccall f_12153(C_word c,C_word *av) C_noret; C_noret_decl(f_10617) static void C_ccall f_10617(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_25268) static void C_ccall f_25268(C_word c,C_word *av) C_noret; C_noret_decl(f_10935) static void C_fcall f_10935(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11733) static void C_ccall f_11733(C_word c,C_word *av) C_noret; C_noret_decl(f_10939) static void C_ccall f_10939(C_word c,C_word *av) 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_10620) static void C_ccall f_10620(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_10626) static void C_ccall f_10626(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_10947) static C_word C_fcall f_10947(C_word t0,C_word t1); C_noret_decl(f_12732) static void C_ccall f_12732(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_12739) static void C_ccall f_12739(C_word c,C_word *av) C_noret; C_noret_decl(f_10671) static void C_ccall f_10671(C_word c,C_word *av) C_noret; C_noret_decl(f_10676) static C_word C_fcall f_10676(C_word t0,C_word t1,C_word t2); C_noret_decl(f_10914) static void C_ccall f_10914(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_12749) static void C_ccall f_12749(C_word c,C_word *av) C_noret; C_noret_decl(f_12168) static C_word C_fcall f_12168(C_word t0,C_word t1); C_noret_decl(f_18376) static void C_ccall f_18376(C_word c,C_word *av) C_noret; C_noret_decl(f_18379) static void C_ccall f_18379(C_word c,C_word *av) C_noret; C_noret_decl(f_12755) static void C_ccall f_12755(C_word c,C_word *av) C_noret; C_noret_decl(f_10655) static void C_ccall f_10655(C_word c,C_word *av) C_noret; C_noret_decl(f_18267) static void C_ccall f_18267(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_noret; C_noret_decl(f_12766) static void C_ccall f_12766(C_word c,C_word *av) C_noret; C_noret_decl(f_10977) static void C_ccall f_10977(C_word c,C_word *av) C_noret; C_noret_decl(f_10974) static void C_ccall f_10974(C_word c,C_word *av) C_noret; C_noret_decl(f_18317) static void C_ccall f_18317(C_word c,C_word *av) C_noret; C_noret_decl(f_12762) static void C_ccall f_12762(C_word c,C_word *av) C_noret; C_noret_decl(f_18311) static void C_ccall f_18311(C_word c,C_word *av) C_noret; C_noret_decl(f_12777) static void C_ccall f_12777(C_word c,C_word *av) C_noret; C_noret_decl(f_19895) static void C_ccall f_19895(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_10984) static void C_ccall f_10984(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_18676) static void C_ccall f_18676(C_word c,C_word *av) C_noret; C_noret_decl(f_18673) static void C_ccall f_18673(C_word c,C_word *av) 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_20734) static void C_ccall f_20734(C_word c,C_word *av) C_noret; C_noret_decl(f_18304) static void C_ccall f_18304(C_word c,C_word *av) C_noret; C_noret_decl(f_18301) static void C_ccall f_18301(C_word c,C_word *av) C_noret; C_noret_decl(f_12790) static void C_fcall f_12790(C_word t0,C_word t1,C_word t2) 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_20743) static void C_ccall f_20743(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_12728) static void C_ccall f_12728(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_10170) static C_word C_fcall f_10170(C_word t0,C_word t1); C_noret_decl(f_23391) static void C_ccall f_23391(C_word c,C_word *av) C_noret; C_noret_decl(f_20708) static void C_fcall f_20708(C_word t0,C_word t1,C_word t2) 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_18289) static void C_ccall f_18289(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_20762) static void C_ccall f_20762(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_9138) static void C_ccall f_9138(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_23385) static void C_ccall f_23385(C_word c,C_word *av) C_noret; C_noret_decl(f_9140) static void C_ccall f_9140(C_word c,C_word *av) C_noret; C_noret_decl(f_11100) static void C_ccall f_11100(C_word c,C_word *av) C_noret; C_noret_decl(f_8753) static void C_ccall f_8753(C_word c,C_word *av) C_noret; C_noret_decl(f_8751) static void C_ccall f_8751(C_word c,C_word *av) C_noret; C_noret_decl(f_11108) static void C_ccall f_11108(C_word c,C_word *av) C_noret; C_noret_decl(f_10197) static void C_ccall f_10197(C_word c,C_word *av) C_noret; C_noret_decl(f_11110) static void C_fcall f_11110(C_word t0,C_word t1,C_word t2) 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_20778) static void C_ccall f_20778(C_word c,C_word *av) C_noret; C_noret_decl(f_12179) static C_word C_fcall f_12179(C_word t0); C_noret_decl(f_12174) static C_word C_fcall f_12174(C_word t0); C_noret_decl(f_11123) static C_word C_fcall f_11123(C_word t0,C_word t1); C_noret_decl(f_9104) static void C_ccall f_9104(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_20780) static void C_fcall f_20780(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11151) static void C_ccall f_11151(C_word c,C_word *av) C_noret; C_noret_decl(f_11155) static void C_fcall f_11155(C_word t0,C_word t1) C_noret; C_noret_decl(f_10259) static void C_ccall f_10259(C_word c,C_word *av) C_noret; C_noret_decl(f_8775) static void C_ccall f_8775(C_word c,C_word *av) C_noret; C_noret_decl(f_14377) static void C_ccall f_14377(C_word c,C_word *av) C_noret; C_noret_decl(f_8777) static void C_ccall f_8777(C_word c,C_word *av) C_noret; C_noret_decl(f_14379) static void C_ccall f_14379(C_word c,C_word *av) C_noret; C_noret_decl(f_11164) static void C_ccall f_11164(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_10235) static void C_ccall f_10235(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_7227) static void C_ccall f_7227(C_word c,C_word *av) C_noret; C_noret_decl(f_10241) static void C_ccall f_10241(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_9120) static void C_ccall f_9120(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_14334) static void C_ccall f_14334(C_word c,C_word *av) C_noret; C_noret_decl(f_16745) static void C_ccall f_16745(C_word c,C_word *av) C_noret; C_noret_decl(f_16748) static void C_fcall f_16748(C_word t0,C_word t1,C_word t2) 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_8729) static void C_ccall f_8729(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_12842) static void C_ccall f_12842(C_word c,C_word *av) C_noret; C_noret_decl(f_7295) static void C_ccall f_7295(C_word c,C_word *av) C_noret; C_noret_decl(f_19516) static void C_ccall f_19516(C_word c,C_word *av) C_noret; C_noret_decl(f_19518) static void C_fcall f_19518(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16026) static void C_ccall f_16026(C_word c,C_word *av) C_noret; C_noret_decl(f_16029) static void C_ccall f_16029(C_word c,C_word *av) C_noret; C_noret_decl(f_14382) static void C_ccall f_14382(C_word c,C_word *av) C_noret; C_noret_decl(f_12854) static void C_ccall f_12854(C_word c,C_word *av) C_noret; C_noret_decl(f_13786) static void C_fcall f_13786(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_13784) static void C_ccall f_13784(C_word c,C_word *av) C_noret; C_noret_decl(f_19528) static void C_ccall f_19528(C_word c,C_word *av) C_noret; C_noret_decl(f_12864) static void C_fcall f_12864(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13776) static void C_fcall f_13776(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20512) static void C_ccall f_20512(C_word c,C_word *av) C_noret; C_noret_decl(f27442) static void C_ccall f27442(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_16002) static void C_ccall f_16002(C_word c,C_word *av) C_noret; C_noret_decl(f_20502) static void C_ccall f_20502(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_20505) static void C_ccall f_20505(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_20573) static void C_ccall f_20573(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_19552) static void C_ccall f_19552(C_word c,C_word *av) C_noret; C_noret_decl(f_19554) static void C_fcall f_19554(C_word t0,C_word t1,C_word t2) 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_14340) static void C_fcall f_14340(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_14349) static void C_fcall f_14349(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_12893) static void C_ccall f_12893(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(f_16014) static void C_ccall f_16014(C_word c,C_word *av) C_noret; C_noret_decl(f_24749) static void C_ccall f_24749(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_16041) static void C_ccall f_16041(C_word c,C_word *av) 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_19541) static void C_ccall f_19541(C_word c,C_word *av) C_noret; C_noret_decl(f_19548) static void C_ccall f_19548(C_word c,C_word *av) C_noret; C_noret_decl(f_16079) static void C_ccall f_16079(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_8799) static void C_ccall f_8799(C_word c,C_word *av) C_noret; C_noret_decl(f_7216) static void C_ccall f_7216(C_word c,C_word *av) C_noret; C_noret_decl(f_13604) static void C_fcall f_13604(C_word t0,C_word t1,C_word t2) 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_24787) static void C_ccall f_24787(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_16057) static void C_ccall f_16057(C_word c,C_word *av) C_noret; C_noret_decl(f_24753) static void C_ccall f_24753(C_word c,C_word *av) 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_20591) static void C_ccall f_20591(C_word c,C_word *av) C_noret; C_noret_decl(f_16088) static void C_ccall f_16088(C_word c,C_word *av) C_noret; C_noret_decl(f_13628) static void C_fcall f_13628(C_word t0,C_word t1) C_noret; C_noret_decl(f_24768) static void C_ccall f_24768(C_word c,C_word *av) C_noret; C_noret_decl(f_20588) static void C_ccall f_20588(C_word c,C_word *av) C_noret; C_noret_decl(f_13613) static void C_fcall f_13613(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11182) static void C_ccall f_11182(C_word c,C_word *av) C_noret; C_noret_decl(f_13617) static void C_ccall f_13617(C_word c,C_word *av) C_noret; C_noret_decl(f_24731) static void C_ccall f_24731(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_13641) static void C_fcall f_13641(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16096) static void C_ccall f_16096(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_16091) static void C_ccall f_16091(C_word c,C_word *av) C_noret; C_noret_decl(f_13639) static void C_ccall f_13639(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_14723) static void C_ccall f_14723(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_13654) static void C_ccall f_13654(C_word c,C_word *av) 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_21656) static void C_ccall f_21656(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_21653) static void C_ccall f_21653(C_word c,C_word *av) C_noret; C_noret_decl(f_9965) static void C_fcall f_9965(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_21679) static void C_ccall f_21679(C_word c,C_word *av) C_noret; C_noret_decl(f_21676) static void C_ccall f_21676(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_21673) static void C_ccall f_21673(C_word c,C_word *av) C_noret; C_noret_decl(f_21667) static void C_ccall f_21667(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_21662) static void C_ccall f_21662(C_word c,C_word *av) C_noret; C_noret_decl(f_18240) static void C_fcall f_18240(C_word t0,C_word t1,C_word t2) 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_18253) static void C_ccall f_18253(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_21688) static void C_ccall f_21688(C_word c,C_word *av) C_noret; C_noret_decl(f_21682) static void C_ccall f_21682(C_word c,C_word *av) C_noret; C_noret_decl(f_7318) static void C_fcall f_7318(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_25114) static void C_ccall f_25114(C_word c,C_word *av) C_noret; C_noret_decl(f_24408) static void C_ccall f_24408(C_word c,C_word *av) C_noret; C_noret_decl(f_18203) static void C_ccall f_18203(C_word c,C_word *av) C_noret; C_noret_decl(f_25124) static void C_ccall f_25124(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_23126) static void C_ccall f_23126(C_word c,C_word *av) C_noret; C_noret_decl(f_23122) static void C_fcall f_23122(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_23120) static void C_fcall f_23120(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7367) static void C_fcall f_7367(C_word t0,C_word t1) 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_18229) static void C_ccall f_18229(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_9474) static void C_ccall f_9474(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_19583) static void C_ccall f_19583(C_word c,C_word *av) C_noret; C_noret_decl(f_23102) static void C_ccall f_23102(C_word c,C_word *av) C_noret; C_noret_decl(f_18235) static void C_ccall f_18235(C_word c,C_word *av) C_noret; C_noret_decl(f_14762) static void C_ccall f_14762(C_word c,C_word *av) C_noret; C_noret_decl(f_14764) static void C_fcall f_14764(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19585) static void C_fcall f_19585(C_word t0,C_word t1,C_word t2) 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_23116) static void C_ccall f_23116(C_word c,C_word *av) C_noret; C_noret_decl(f_23119) static void C_ccall f_23119(C_word c,C_word *av) C_noret; C_noret_decl(f_25164) static void C_ccall f_25164(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_9468) static void C_ccall f_9468(C_word c,C_word *av) C_noret; C_noret_decl(f_25104) static void C_ccall f_25104(C_word c,C_word *av) C_noret; C_noret_decl(f_24477) static void C_ccall f_24477(C_word c,C_word *av) C_noret; C_noret_decl(f_15999) static void C_ccall f_15999(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_25190) static void C_ccall f_25190(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_9481) static void C_ccall f_9481(C_word c,C_word *av) 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_12229) static void C_ccall f_12229(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_24416) static void C_ccall f_24416(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_17747) static void C_ccall f_17747(C_word c,C_word *av) C_noret; C_noret_decl(f_12237) static void C_ccall f_12237(C_word c,C_word *av) C_noret; C_noret_decl(f_17484) static void C_fcall f_17484(C_word t0,C_word t1,C_word t2) 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_11890) static void C_ccall f_11890(C_word c,C_word *av) C_noret; C_noret_decl(f_12231) static void C_ccall f_12231(C_word c,C_word *av) C_noret; C_noret_decl(f_24420) static void C_ccall f_24420(C_word c,C_word *av) C_noret; C_noret_decl(f_24425) static void C_ccall f_24425(C_word c,C_word *av) C_noret; C_noret_decl(f_24429) static void C_ccall f_24429(C_word c,C_word *av) C_noret; C_noret_decl(f_17752) static void C_fcall f_17752(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_25148) static void C_ccall f_25148(C_word c,C_word *av) C_noret; C_noret_decl(f_12245) static void C_ccall f_12245(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_12249) static void C_ccall f_12249(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_10308) static void C_ccall f_10308(C_word c,C_word *av) C_noret; C_noret_decl(f_17461) static void C_ccall f_17461(C_word c,C_word *av) C_noret; C_noret_decl(f_7306) static void C_ccall f_7306(C_word c,C_word *av) C_noret; C_noret_decl(f_13982) static void C_ccall f_13982(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_13985) static void C_ccall f_13985(C_word c,C_word *av) C_noret; C_noret_decl(f_10359) static void C_ccall f_10359(C_word c,C_word *av) C_noret; C_noret_decl(f_10355) static void C_ccall f_10355(C_word c,C_word *av) C_noret; C_noret_decl(f_17472) static void C_fcall f_17472(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_17479) static void C_ccall f_17479(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_13979) static void C_fcall f_13979(C_word t0,C_word t1) 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_18762) static void C_ccall f_18762(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_18768) static void C_ccall f_18768(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_10334) static void C_ccall f_10334(C_word c,C_word *av) C_noret; C_noret_decl(f_25180) static void C_ccall f_25180(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_13999) static void C_ccall f_13999(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_11835) static void C_ccall f_11835(C_word c,C_word *av) C_noret; C_noret_decl(f_21945) static void C_ccall f_21945(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_8085) static void C_ccall f_8085(C_word c,C_word *av) C_noret; C_noret_decl(f_11842) static void C_ccall f_11842(C_word c,C_word *av) C_noret; C_noret_decl(f_21935) static void C_ccall f_21935(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_11812) static void C_ccall f_11812(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_21925) static void C_fcall f_21925(C_word t0,C_word t1,C_word t2) 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_20416) static void C_ccall f_20416(C_word c,C_word *av) C_noret; C_noret_decl(f_23225) static void C_ccall f_23225(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_23222) static void C_ccall f_23222(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_10388) static void C_ccall f_10388(C_word c,C_word *av) C_noret; C_noret_decl(f_23228) static void C_ccall f_23228(C_word c,C_word *av) C_noret; C_noret_decl(f_11875) static void C_ccall f_11875(C_word c,C_word *av) C_noret; C_noret_decl(f_12805) static void C_fcall f_12805(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21982) static void C_ccall f_21982(C_word c,C_word *av) C_noret; C_noret_decl(f_12800) static void C_ccall f_12800(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_15987) static void C_ccall f_15987(C_word c,C_word *av) C_noret; C_noret_decl(f_23204) static void C_ccall f_23204(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_10295) static void C_ccall f_10295(C_word c,C_word *av) C_noret; C_noret_decl(f_21975) static void C_ccall f_21975(C_word c,C_word *av) 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_23210) static void C_ccall f_23210(C_word c,C_word *av) C_noret; C_noret_decl(f_17448) static void C_fcall f_17448(C_word t0,C_word t1,C_word t2,C_word t3) 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_8061) static void C_ccall f_8061(C_word c,C_word *av) C_noret; C_noret_decl(f_17452) static void C_ccall f_17452(C_word c,C_word *av) C_noret; C_noret_decl(f_23218) static void C_fcall f_23218(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21954) static void C_ccall f_21954(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_18708) static void C_ccall f_18708(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_17420) static void C_ccall f_17420(C_word c,C_word *av) C_noret; C_noret_decl(f_10282) static void C_ccall f_10282(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_18714) static void C_fcall f_18714(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_23241) static void C_ccall f_23241(C_word c,C_word *av) C_noret; C_noret_decl(f_23245) static void C_ccall f_23245(C_word c,C_word *av) C_noret; C_noret_decl(f_8002) static void C_ccall f_8002(C_word c,C_word *av) C_noret; C_noret_decl(f_8665) static void C_ccall f_8665(C_word c,C_word *av) C_noret; C_noret_decl(f_8668) static void C_ccall f_8668(C_word c,C_word *av) C_noret; C_noret_decl(f_22001) static void C_ccall f_22001(C_word c,C_word *av) 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_8032) static void C_ccall f_8032(C_word c,C_word *av) C_noret; C_noret_decl(f_8656) static void C_ccall f_8656(C_word c,C_word *av) C_noret; C_noret_decl(f_8659) static void C_ccall f_8659(C_word c,C_word *av) 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_18735) static void C_ccall f_18735(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_8650) static void C_ccall f_8650(C_word c,C_word *av) C_noret; C_noret_decl(f_9420) static void C_ccall f_9420(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_22007) static void C_ccall f_22007(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_22004) static void C_ccall f_22004(C_word c,C_word *av) C_noret; C_noret_decl(f_8605) static void C_ccall f_8605(C_word c,C_word *av) C_noret; C_noret_decl(f_18741) static void C_fcall f_18741(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9441) static void C_ccall f_9441(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_20463) static void C_ccall f_20463(C_word c,C_word *av) C_noret; C_noret_decl(f_16798) static void C_ccall f_16798(C_word c,C_word *av) C_noret; C_noret_decl(f_16794) static void C_fcall f_16794(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8070) static void C_fcall f_8070(C_word t0,C_word t1,C_word t2) 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_20459) static void C_ccall f_20459(C_word c,C_word *av) C_noret; C_noret_decl(f_22010) static void C_ccall f_22010(C_word c,C_word *av) C_noret; C_noret_decl(f_22013) static void C_ccall f_22013(C_word c,C_word *av) C_noret; C_noret_decl(f_20450) static void C_ccall f_20450(C_word c,C_word *av) C_noret; C_noret_decl(f_12283) static void C_fcall f_12283(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_8644) static void C_ccall f_8644(C_word c,C_word *av) C_noret; C_noret_decl(f_8647) static void C_ccall f_8647(C_word c,C_word *av) C_noret; C_noret_decl(f_8641) static void C_ccall f_8641(C_word c,C_word *av) C_noret; C_noret_decl(f_22022) static void C_ccall f_22022(C_word c,C_word *av) C_noret; C_noret_decl(f_12299) static void C_ccall f_12299(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_12293) static void C_ccall f_12293(C_word c,C_word *av) C_noret; C_noret_decl(f_22016) static void C_ccall f_22016(C_word c,C_word *av) C_noret; C_noret_decl(f_8635) static void C_ccall f_8635(C_word c,C_word *av) C_noret; C_noret_decl(f_22019) static void C_ccall f_22019(C_word c,C_word *av) C_noret; C_noret_decl(f_8638) static void C_ccall f_8638(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_8632) static void C_ccall f_8632(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_14460) static void C_ccall f_14460(C_word c,C_word *av) C_noret; C_noret_decl(f_14466) static void C_ccall f_14466(C_word c,C_word *av) C_noret; C_noret_decl(f_22025) static void C_ccall f_22025(C_word c,C_word *av) C_noret; C_noret_decl(f_22028) static void C_ccall f_22028(C_word c,C_word *av) C_noret; C_noret_decl(f_14457) static void C_ccall f_14457(C_word c,C_word *av) C_noret; C_noret_decl(f_14454) static void C_fcall f_14454(C_word t0,C_word t1) 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_22079) static void C_ccall f_22079(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_14404) static void C_fcall f_14404(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22085) static void C_ccall f_22085(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_8680) static void C_ccall f_8680(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_8671) static void C_ccall f_8671(C_word c,C_word *av) C_noret; C_noret_decl(f_22053) static void C_ccall f_22053(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_8629) static void C_ccall f_8629(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_8623) static void C_ccall f_8623(C_word c,C_word *av) C_noret; C_noret_decl(f_22061) static void C_ccall f_22061(C_word c,C_word *av) C_noret; C_noret_decl(f_22064) static void C_ccall f_22064(C_word c,C_word *av) C_noret; C_noret_decl(f_23921) static void C_ccall f_23921(C_word c,C_word *av) 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_8617) static void C_ccall f_8617(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_8611) static void C_ccall f_8611(C_word c,C_word *av) C_noret; C_noret_decl(f_19409) static void C_ccall f_19409(C_word c,C_word *av) C_noret; C_noret_decl(f_14442) static void C_ccall f_14442(C_word c,C_word *av) C_noret; C_noret_decl(f_14445) static void C_ccall f_14445(C_word c,C_word *av) C_noret; C_noret_decl(f_22094) static void C_ccall f_22094(C_word c,C_word *av) C_noret; C_noret_decl(f_22070) static void C_ccall f_22070(C_word c,C_word *av) C_noret; C_noret_decl(f_13685) static void C_fcall f_13685(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_16430) static void C_ccall f_16430(C_word c,C_word *av) C_noret; C_noret_decl(f_13679) static void C_fcall f_13679(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_13670) static void C_ccall f_13670(C_word c,C_word *av) 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_14483) static void C_ccall f_14483(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_14479) static void C_ccall f_14479(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_19470) static void C_ccall f_19470(C_word c,C_word *av) C_noret; C_noret_decl(f_19473) static void C_ccall f_19473(C_word c,C_word *av) C_noret; C_noret_decl(f_19476) static void C_fcall f_19476(C_word t0,C_word t1) C_noret; C_noret_decl(f_16168) static void C_ccall f_16168(C_word c,C_word *av) C_noret; C_noret_decl(f_16165) static void C_ccall f_16165(C_word c,C_word *av) C_noret; C_noret_decl(f_14424) static void C_ccall f_14424(C_word c,C_word *av) C_noret; C_noret_decl(f_24095) static void C_fcall f_24095(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19482) static void C_fcall f_19482(C_word t0,C_word t1) C_noret; C_noret_decl(f_19485) static void C_fcall f_19485(C_word t0,C_word t1) C_noret; C_noret_decl(f_19479) static void C_fcall f_19479(C_word t0,C_word t1) C_noret; C_noret_decl(f_16156) static void C_ccall f_16156(C_word c,C_word *av) C_noret; C_noret_decl(f_14411) static void C_fcall f_14411(C_word t0,C_word t1) 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_16152) static void C_ccall f_16152(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_22038) static void C_ccall f_22038(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_8696) static void C_ccall f_8696(C_word c,C_word *av) C_noret; C_noret_decl(f_22034) static void C_ccall f_22034(C_word c,C_word *av) C_noret; C_noret_decl(f_22031) static void C_ccall f_22031(C_word c,C_word *av) C_noret; C_noret_decl(f_19497) static void C_ccall f_19497(C_word c,C_word *av) C_noret; C_noret_decl(f_19488) static void C_fcall f_19488(C_word t0,C_word t1) C_noret; C_noret_decl(f_16107) static void C_ccall f_16107(C_word c,C_word *av) C_noret; C_noret_decl(f_16101) static void C_ccall f_16101(C_word c,C_word *av) C_noret; C_noret_decl(f_22041) static void C_ccall f_22041(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_23984) static void C_ccall f_23984(C_word c,C_word *av) C_noret; C_noret_decl(f_23981) static void C_ccall f_23981(C_word c,C_word *av) C_noret; C_noret_decl(f_24086) static void C_ccall f_24086(C_word c,C_word *av) C_noret; C_noret_decl(f_23996) static void C_ccall f_23996(C_word c,C_word *av) C_noret; C_noret_decl(f_23999) static void C_ccall f_23999(C_word c,C_word *av) C_noret; C_noret_decl(f_16197) static void C_fcall f_16197(C_word t0,C_word t1) 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_23963) static void C_ccall f_23963(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_14774) static void C_ccall f_14774(C_word c,C_word *av) C_noret; C_noret_decl(f_23972) static void C_ccall f_23972(C_word c,C_word *av) C_noret; C_noret_decl(f_23978) static void C_ccall f_23978(C_word c,C_word *av) C_noret; C_noret_decl(f_19461) static void C_ccall f_19461(C_word c,C_word *av) C_noret; C_noret_decl(f_19464) static void C_ccall f_19464(C_word c,C_word *av) 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_23942) static void C_ccall f_23942(C_word c,C_word *av) C_noret; C_noret_decl(f_23945) static void C_ccall f_23945(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_8560) static void C_ccall f_8560(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_8550) static void C_ccall f_8550(C_word c,C_word *av) C_noret; C_noret_decl(f29492) static void C_ccall f29492(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(f29486) static void C_ccall f29486(C_word c,C_word *av) 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_16188) static void C_ccall f_16188(C_word c,C_word *av) C_noret; C_noret_decl(f_8521) static void C_ccall f_8521(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_8527) static void C_fcall f_8527(C_word t0,C_word t1,C_word t2,C_word t3) 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_11825) static void C_ccall f_11825(C_word c,C_word *av) C_noret; C_noret_decl(f_8515) static void C_ccall f_8515(C_word c,C_word *av) C_noret; C_noret_decl(f_23183) static void C_fcall f_23183(C_word t0,C_word t1) C_noret; C_noret_decl(f_23189) static void C_ccall f_23189(C_word c,C_word *av) C_noret; C_noret_decl(f_23186) static void C_ccall f_23186(C_word c,C_word *av) C_noret; C_noret_decl(f_8505) static void C_ccall f_8505(C_word c,C_word *av) C_noret; C_noret_decl(f_23192) static void C_ccall f_23192(C_word c,C_word *av) C_noret; C_noret_decl(f29480) static void C_ccall f29480(C_word c,C_word *av) C_noret; C_noret_decl(f_23282) static void C_ccall f_23282(C_word c,C_word *av) C_noret; C_noret_decl(f_23165) static void C_ccall f_23165(C_word c,C_word *av) C_noret; C_noret_decl(f_23291) static void C_ccall f_23291(C_word c,C_word *av) C_noret; C_noret_decl(f_23167) static void C_fcall f_23167(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_23285) static void C_ccall f_23285(C_word c,C_word *av) C_noret; C_noret_decl(f_23174) static void C_ccall f_23174(C_word c,C_word *av) C_noret; C_noret_decl(f_11094) static void C_ccall f_11094(C_word c,C_word *av) C_noret; C_noret_decl(f_23177) static void C_ccall f_23177(C_word c,C_word *av) C_noret; C_noret_decl(f_23143) static void C_fcall f_23143(C_word t0,C_word t1,C_word t2) 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_11018) static void C_ccall f_11018(C_word c,C_word *av) C_noret; C_noret_decl(f_17626) static void C_fcall f_17626(C_word t0,C_word t1) C_noret; C_noret_decl(f_23153) static void C_ccall f_23153(C_word c,C_word *av) C_noret; C_noret_decl(f_19425) static void C_ccall f_19425(C_word c,C_word *av) C_noret; C_noret_decl(f_15945) static void C_ccall f_15945(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_19443) static void C_fcall f_19443(C_word t0,C_word t1) 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_11003) static void C_ccall f_11003(C_word c,C_word *av) C_noret; C_noret_decl(f_11000) static void C_ccall f_11000(C_word c,C_word *av) C_noret; C_noret_decl(f_19438) static void C_ccall f_19438(C_word c,C_word *av) C_noret; C_noret_decl(f_23023) static void C_ccall f_23023(C_word c,C_word *av) C_noret; C_noret_decl(f_15923) static void C_ccall f_15923(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_15929) static void C_ccall f_15929(C_word c,C_word *av) C_noret; C_noret_decl(f_15926) static void C_ccall f_15926(C_word c,C_word *av) C_noret; C_noret_decl(f_8570) static void C_ccall f_8570(C_word c,C_word *av) C_noret; C_noret_decl(f_23032) static void C_ccall f_23032(C_word c,C_word *av) C_noret; C_noret_decl(f_17610) static void C_fcall f_17610(C_word t0,C_word t1,C_word t2) 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_11065) static void C_ccall f_11065(C_word c,C_word *av) C_noret; C_noret_decl(f_14866) static void C_fcall f_14866(C_word t0,C_word t1) C_noret; C_noret_decl(f_14869) static void C_ccall f_14869(C_word c,C_word *av) C_noret; C_noret_decl(f_19458) static void C_ccall f_19458(C_word c,C_word *av) C_noret; C_noret_decl(f_23004) static void C_ccall f_23004(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(f_13905) static void C_ccall f_13905(C_word c,C_word *av) 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_8575) static C_word C_fcall f_8575(C_word t0,C_word t1,C_word t2); C_noret_decl(f_23014) static void C_ccall f_23014(C_word c,C_word *av) C_noret; C_noret_decl(f_23010) static void C_fcall f_23010(C_word t0,C_word t1) C_noret; C_noret_decl(f_15934) static void C_ccall f_15934(C_word c,C_word *av) C_noret; C_noret_decl(f_9763) static void C_fcall f_9763(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11043) static void C_ccall f_11043(C_word c,C_word *av) C_noret; C_noret_decl(f_15939) static void C_ccall f_15939(C_word c,C_word *av) C_noret; C_noret_decl(f_13926) static void C_ccall f_13926(C_word c,C_word *av) C_noret; C_noret_decl(f_15875) static void C_ccall f_15875(C_word c,C_word *av) C_noret; C_noret_decl(f_11012) static void C_ccall f_11012(C_word c,C_word *av) C_noret; C_noret_decl(f_24523) static void C_ccall f_24523(C_word c,C_word *av) C_noret; C_noret_decl(f_24529) static void C_ccall f_24529(C_word c,C_word *av) C_noret; C_noret_decl(f_15863) static void C_ccall f_15863(C_word c,C_word *av) C_noret; C_noret_decl(f_24583) static void C_ccall f_24583(C_word c,C_word *av) C_noret; C_noret_decl(f_17633) static void C_ccall f_17633(C_word c,C_word *av) C_noret; C_noret_decl(f_24814) static void C_fcall f_24814(C_word t0,C_word t1) C_noret; C_noret_decl(f_24595) static void C_ccall f_24595(C_word c,C_word *av) C_noret; C_noret_decl(f_24599) static void C_ccall f_24599(C_word c,C_word *av) C_noret; C_noret_decl(f_24591) static void C_ccall f_24591(C_word c,C_word *av) C_noret; C_noret_decl(f_11054) static void C_ccall f_11054(C_word c,C_word *av) C_noret; C_noret_decl(f_20146) static void C_ccall f_20146(C_word c,C_word *av) C_noret; C_noret_decl(f_13958) static void C_ccall f_13958(C_word c,C_word *av) C_noret; C_noret_decl(f_13950) static void C_ccall f_13950(C_word c,C_word *av) C_noret; C_noret_decl(f_20149) static void C_ccall f_20149(C_word c,C_word *av) C_noret; C_noret_decl(f_20134) static void C_ccall f_20134(C_word c,C_word *av) C_noret; C_noret_decl(f_24578) static void C_ccall f_24578(C_word c,C_word *av) C_noret; C_noret_decl(f_15812) static void C_fcall f_15812(C_word t0,C_word t1) C_noret; C_noret_decl(f_20139) static void C_ccall f_20139(C_word c,C_word *av) C_noret; C_noret_decl(f_24804) static void C_ccall f_24804(C_word c,C_word *av) C_noret; C_noret_decl(f_13884) static void C_ccall f_13884(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_noret; C_noret_decl(f_9799) static void C_ccall f_9799(C_word c,C_word *av) C_noret; C_noret_decl(f_15887) static void C_ccall f_15887(C_word c,C_word *av) C_noret; C_noret_decl(f_15899) static void C_ccall f_15899(C_word c,C_word *av) C_noret; C_noret_decl(f_15395) static void C_fcall f_15395(C_word t0,C_word t1) C_noret; C_noret_decl(f_15370) static void C_fcall f_15370(C_word t0,C_word t1) 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_23914) static void C_ccall f_23914(C_word c,C_word *av) C_noret; C_noret_decl(f_11082) static void C_ccall f_11082(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_22115) static void C_ccall f_22115(C_word c,C_word *av) C_noret; C_noret_decl(f_22111) static void C_ccall f_22111(C_word c,C_word *av) C_noret; C_noret_decl(f_11088) static void C_ccall f_11088(C_word c,C_word *av) C_noret; C_noret_decl(f_21797) static void C_ccall f_21797(C_word c,C_word *av) C_noret; C_noret_decl(f_17690) static void C_fcall f_17690(C_word t0,C_word t1) 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_21791) static void C_ccall f_21791(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_13867) static void C_ccall f_13867(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_9732) static void C_fcall f_9732(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9749) static void C_ccall f_9749(C_word c,C_word *av) C_noret; C_noret_decl(f_22109) static void C_ccall f_22109(C_word c,C_word *av) C_noret; C_noret_decl(f_22100) static void C_ccall f_22100(C_word c,C_word *av) C_noret; C_noret_decl(f_9726) static void C_ccall f_9726(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_16506) static void C_ccall f_16506(C_word c,C_word *av) C_noret; C_noret_decl(f_22199) static void C_fcall f_22199(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22197) static void C_ccall f_22197(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_12020) static void C_ccall f_12020(C_word c,C_word *av) C_noret; C_noret_decl(f_22142) static void C_fcall f_22142(C_word t0,C_word t1,C_word t2) 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_12046) static C_word C_fcall f_12046(C_word t0,C_word t1); C_noret_decl(f_12044) static void C_ccall f_12044(C_word c,C_word *av) C_noret; C_noret_decl(f_12057) static C_word C_fcall f_12057(C_word t0); C_noret_decl(f_23826) static void C_ccall f_23826(C_word c,C_word *av) C_noret; C_noret_decl(f_12052) static C_word C_fcall f_12052(C_word t0); C_noret_decl(f_23834) static void C_fcall f_23834(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22172) static void C_ccall f_22172(C_word c,C_word *av) C_noret; C_noret_decl(f_9711) static void C_ccall f_9711(C_word c,C_word *av) C_noret; C_noret_decl(f_9714) static void C_ccall f_9714(C_word c,C_word *av) C_noret; C_noret_decl(f_22186) static void C_fcall f_22186(C_word t0,C_word t1) C_noret; C_noret_decl(f_24546) static void C_ccall f_24546(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_24552) static void C_fcall f_24552(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_24550) static void C_ccall f_24550(C_word c,C_word *av) C_noret; C_noret_decl(f_22152) static void C_ccall f_22152(C_word c,C_word *av) C_noret; C_noret_decl(f_22168) static void C_ccall f_22168(C_word c,C_word *av) C_noret; C_noret_decl(f_22161) static void C_ccall f_22161(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_24535) static void C_ccall f_24535(C_word c,C_word *av) C_noret; C_noret_decl(f_24536) static void C_fcall f_24536(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_24532) static void C_ccall f_24532(C_word c,C_word *av) C_noret; C_noret_decl(f_20274) static void C_fcall f_20274(C_word t0,C_word t1) C_noret; C_noret_decl(f_23897) static void C_ccall f_23897(C_word c,C_word *av) C_noret; C_noret_decl(f_23890) static void C_ccall f_23890(C_word c,C_word *av) C_noret; C_noret_decl(f_23866) static void C_ccall f_23866(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_23873) static void C_ccall f_23873(C_word c,C_word *av) C_noret; C_noret_decl(f_23842) static void C_ccall f_23842(C_word c,C_word *av) C_noret; C_noret_decl(f_23846) static void C_ccall f_23846(C_word c,C_word *av) C_noret; C_noret_decl(f_16683) static void C_ccall f_16683(C_word c,C_word *av) C_noret; C_noret_decl(f_23856) static void C_fcall f_23856(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_23854) static void C_ccall f_23854(C_word c,C_word *av) C_noret; C_noret_decl(f_20213) static void C_ccall f_20213(C_word c,C_word *av) C_noret; C_noret_decl(f_16671) static void C_ccall f_16671(C_word c,C_word *av) C_noret; C_noret_decl(f_20203) static void C_fcall f_20203(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18518) static void C_ccall f_18518(C_word c,C_word *av) C_noret; C_noret_decl(f_18520) static void C_ccall f_18520(C_word c,C_word *av) C_noret; C_noret_decl(f_14991) static void C_fcall f_14991(C_word t0,C_word t1) C_noret; C_noret_decl(f_18526) static void C_ccall f_18526(C_word c,C_word *av) C_noret; C_noret_decl(f_14997) static void C_fcall f_14997(C_word t0,C_word t1) 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_14982) static void C_ccall f_14982(C_word c,C_word *av) C_noret; C_noret_decl(f_12092) static void C_ccall f_12092(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_14972) static void C_fcall f_14972(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14978) static void C_fcall f_14978(C_word t0,C_word t1,C_word t2,C_word t3) 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_12582) static void C_ccall f_12582(C_word c,C_word *av) C_noret; C_noret_decl(f_23081) static void C_ccall f_23081(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_14964) static void C_ccall f_14964(C_word c,C_word *av) C_noret; C_noret_decl(f_23099) static void C_ccall f_23099(C_word c,C_word *av) C_noret; C_noret_decl(f_23094) static void C_ccall f_23094(C_word c,C_word *av) C_noret; C_noret_decl(f_12594) static void C_ccall f_12594(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_15806) static void C_ccall f_15806(C_word c,C_word *av) C_noret; C_noret_decl(f_18579) static void C_ccall f_18579(C_word c,C_word *av) C_noret; C_noret_decl(f_23075) static void C_ccall f_23075(C_word c,C_word *av) C_noret; C_noret_decl(f_17974) static void C_ccall f_17974(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_17940) static void C_ccall f_17940(C_word c,C_word *av) C_noret; C_noret_decl(f_20002) static void C_ccall f_20002(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_12503) static void C_ccall f_12503(C_word c,C_word *av) C_noret; C_noret_decl(f_17964) static void C_ccall f_17964(C_word c,C_word *av) C_noret; C_noret_decl(f_18541) static void C_ccall f_18541(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_18548) static void C_ccall f_18548(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_12508) static void C_ccall f_12508(C_word c,C_word *av) C_noret; C_noret_decl(f_18551) static void C_ccall f_18551(C_word c,C_word *av) C_noret; C_noret_decl(f_18554) static void C_ccall f_18554(C_word c,C_word *av) C_noret; C_noret_decl(f_12522) static void C_ccall f_12522(C_word c,C_word *av) C_noret; C_noret_decl(f_25478) static void C_fcall f_25478(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_15826) static void C_ccall f_15826(C_word c,C_word *av) C_noret; C_noret_decl(f_12517) static void C_ccall f_12517(C_word c,C_word *av) C_noret; C_noret_decl(f_17989) static void C_fcall f_17989(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_13816) static void C_ccall f_13816(C_word c,C_word *av) 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_18563) static void C_ccall f_18563(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_12528) static void C_ccall f_12528(C_word c,C_word *av) C_noret; C_noret_decl(f_13803) static void C_ccall f_13803(C_word c,C_word *av) C_noret; C_noret_decl(f_12542) static void C_ccall f_12542(C_word c,C_word *av) C_noret; C_noret_decl(f_24220) static void C_ccall f_24220(C_word c,C_word *av) C_noret; C_noret_decl(f_24228) static void C_ccall f_24228(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_18500) static void C_ccall f_18500(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_20026) static void C_ccall f_20026(C_word c,C_word *av) C_noret; C_noret_decl(f_24238) static void C_fcall f_24238(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_12547) static void C_ccall f_12547(C_word c,C_word *av) C_noret; C_noret_decl(f_20099) static void C_ccall f_20099(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_20080) static void C_fcall f_20080(C_word t0,C_word t1) C_noret; C_noret_decl(f_24258) static void C_ccall f_24258(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_10538) static void C_ccall f_10538(C_word c,C_word *av) C_noret; C_noret_decl(f_17914) static void C_ccall f_17914(C_word c,C_word *av) C_noret; C_noret_decl(f_20251) static void C_fcall f_20251(C_word t0,C_word t1) C_noret; C_noret_decl(f_20254) static void C_fcall f_20254(C_word t0,C_word t1) C_noret; C_noret_decl(f_24267) static void C_ccall f_24267(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_17933) static void C_ccall f_17933(C_word c,C_word *av) C_noret; C_noret_decl(f_20054) static void C_ccall f_20054(C_word c,C_word *av) C_noret; C_noret_decl(f_20230) static void C_fcall f_20230(C_word t0,C_word t1) C_noret; C_noret_decl(f_24202) static void C_fcall f_24202(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10564) static void C_ccall f_10564(C_word c,C_word *av) C_noret; C_noret_decl(f_17902) static void C_ccall f_17902(C_word c,C_word *av) 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_20046) static void C_ccall f_20046(C_word c,C_word *av) C_noret; C_noret_decl(f_15205) static void C_ccall f_15205(C_word c,C_word *av) C_noret; C_noret_decl(f_15238) static void C_ccall f_15238(C_word c,C_word *av) C_noret; C_noret_decl(f_10574) static void C_ccall f_10574(C_word c,C_word *av) C_noret; C_noret_decl(f_10576) static void C_ccall f_10576(C_word c,C_word *av) C_noret; C_noret_decl(f_17957) static void C_ccall f_17957(C_word c,C_word *av) C_noret; C_noret_decl(f_20039) static void C_ccall f_20039(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_20030) static void C_ccall f_20030(C_word c,C_word *av) C_noret; C_noret_decl(f_25416) static void C_ccall f_25416(C_word c,C_word *av) C_noret; C_noret_decl(f_10540) static void C_ccall f_10540(C_word c,C_word *av) C_noret; C_noret_decl(f_10549) static void C_ccall f_10549(C_word c,C_word *av) C_noret; C_noret_decl(f_17920) static void C_ccall f_17920(C_word c,C_word *av) C_noret; C_noret_decl(f_25420) static void C_ccall f_25420(C_word c,C_word *av) C_noret; C_noret_decl(f_25424) static void C_ccall f_25424(C_word c,C_word *av) C_noret; C_noret_decl(f_10559) static void C_ccall f_10559(C_word c,C_word *av) C_noret; C_noret_decl(f_10555) static void C_ccall f_10555(C_word c,C_word *av) C_noret; C_noret_decl(f_15228) static void C_ccall f_15228(C_word c,C_word *av) 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_10586) static void C_ccall f_10586(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_20069) static void C_ccall f_20069(C_word c,C_word *av) C_noret; C_noret_decl(f_20063) static void C_ccall f_20063(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_15222) static void C_fcall f_15222(C_word t0,C_word t1) 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_10592) static void C_ccall f_10592(C_word c,C_word *av) C_noret; C_noret_decl(f_23803) static void C_ccall f_23803(C_word c,C_word *av) C_noret; C_noret_decl(f_23818) static void C_fcall f_23818(C_word t0,C_word t1) 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_21076) static void C_ccall f_21076(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_8380) static void C_ccall f_8380(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_7459) static void C_ccall f_7459(C_word c,C_word *av) C_noret; C_noret_decl(f_8439) static void C_ccall f_8439(C_word c,C_word *av) C_noret; C_noret_decl(f_7453) static void C_ccall f_7453(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_21080) static void C_ccall f_21080(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_8469) static void C_ccall f_8469(C_word c,C_word *av) C_noret; C_noret_decl(f_22228) static void C_ccall f_22228(C_word c,C_word *av) C_noret; C_noret_decl(f_7446) static void C_ccall f_7446(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_8463) static void C_ccall f_8463(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_7462) static void C_ccall f_7462(C_word c,C_word *av) C_noret; C_noret_decl(f_7465) static void C_ccall f_7465(C_word c,C_word *av) C_noret; C_noret_decl(f_8329) static void C_ccall f_8329(C_word c,C_word *av) C_noret; C_noret_decl(f_8359) static void C_ccall f_8359(C_word c,C_word *av) C_noret; C_noret_decl(f_8353) static void C_ccall f_8353(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_22237) static void C_ccall f_22237(C_word c,C_word *av) C_noret; C_noret_decl(f_8305) static void C_ccall f_8305(C_word c,C_word *av) C_noret; C_noret_decl(f_22233) static void C_fcall f_22233(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8490) static void C_ccall f_8490(C_word c,C_word *av) C_noret; C_noret_decl(f_7433) static void C_ccall f_7433(C_word c,C_word *av) C_noret; C_noret_decl(f_25458) static void C_ccall f_25458(C_word c,C_word *av) C_noret; C_noret_decl(f_22248) static void C_fcall f_22248(C_word t0,C_word t1) C_noret; C_noret_decl(f_8335) static void C_ccall f_8335(C_word c,C_word *av) C_noret; C_noret_decl(f_22243) static void C_ccall f_22243(C_word c,C_word *av) C_noret; C_noret_decl(f_22240) static void C_ccall f_22240(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_21018) static void C_ccall f_21018(C_word c,C_word *av) C_noret; C_noret_decl(f_25465) static void C_fcall f_25465(C_word t0,C_word t1) C_noret; C_noret_decl(f_22294) static void C_ccall f_22294(C_word c,C_word *av) C_noret; C_noret_decl(f_22291) static void C_ccall f_22291(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_8394) static void C_ccall f_8394(C_word c,C_word *av) C_noret; C_noret_decl(f_7762) static void C_ccall f_7762(C_word c,C_word *av) C_noret; C_noret_decl(f_7765) static void C_ccall f_7765(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_7753) static void C_ccall f_7753(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_7759) static void C_ccall f_7759(C_word c,C_word *av) C_noret; C_noret_decl(f_8374) static void C_ccall f_8374(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_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_17169) static void C_ccall f_17169(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_7489) static void C_ccall f_7489(C_word c,C_word *av) C_noret; C_noret_decl(f_7486) static void C_ccall f_7486(C_word c,C_word *av) C_noret; C_noret_decl(f_10153) static void C_ccall f_10153(C_word c,C_word *av) 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_22768) static void C_ccall f_22768(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_7480) static void C_ccall f_7480(C_word c,C_word *av) C_noret; C_noret_decl(f_22762) static void C_ccall f_22762(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_17187) static void C_ccall f_17187(C_word c,C_word *av) C_noret; C_noret_decl(f_22772) static void C_ccall f_22772(C_word c,C_word *av) C_noret; C_noret_decl(f_9258) static void C_ccall f_9258(C_word c,C_word *av) C_noret; C_noret_decl(f_15726) static void C_ccall f_15726(C_word c,C_word *av) C_noret; C_noret_decl(f_22789) static void C_ccall f_22789(C_word c,C_word *av) C_noret; C_noret_decl(f_7747) static void C_ccall f_7747(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_9276) static void C_ccall f_9276(C_word c,C_word *av) C_noret; C_noret_decl(f_15705) static void C_ccall f_15705(C_word c,C_word *av) C_noret; C_noret_decl(f_15702) static void C_ccall f_15702(C_word c,C_word *av) C_noret; C_noret_decl(f_22728) static void C_fcall f_22728(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_22722) static void C_ccall f_22722(C_word c,C_word *av) C_noret; C_noret_decl(f_14957) static void C_ccall f_14957(C_word c,C_word *av) C_noret; C_noret_decl(f_14953) static void C_ccall f_14953(C_word c,C_word *av) C_noret; C_noret_decl(f_8311) static void C_ccall f_8311(C_word c,C_word *av) C_noret; C_noret_decl(f_21038) static void C_ccall f_21038(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_21030) static void C_ccall f_21030(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_7471) static void C_ccall f_7471(C_word c,C_word *av) C_noret; C_noret_decl(f_14947) static void C_fcall f_14947(C_word t0,C_word t1) C_noret; C_noret_decl(f_6898) static void C_ccall f_6898(C_word c,C_word *av) C_noret; C_noret_decl(f_17115) static void C_ccall f_17115(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_6886) static void C_ccall f_6886(C_word c,C_word *av) C_noret; C_noret_decl(f_14934) static void C_ccall f_14934(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_22754) static void C_ccall f_22754(C_word c,C_word *av) C_noret; C_noret_decl(f_22758) static void C_ccall f_22758(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_7771) static void C_fcall f_7771(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22750) static void C_ccall f_22750(C_word c,C_word *av) C_noret; C_noret_decl(f_14927) static void C_ccall f_14927(C_word c,C_word *av) C_noret; C_noret_decl(f_14921) static void C_fcall f_14921(C_word t0,C_word t1) 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_17136) static void C_ccall f_17136(C_word c,C_word *av) C_noret; C_noret_decl(f_15749) static void C_ccall f_15749(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_14911) static void C_fcall f_14911(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_15732) static void C_fcall f_15732(C_word t0,C_word t1) 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_17103) static void C_ccall f_17103(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_24650) static void C_ccall f_24650(C_word c,C_word *av) C_noret; C_noret_decl(f_14909) static void C_ccall f_14909(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_14901) static void C_fcall f_14901(C_word t0,C_word t1) C_noret; C_noret_decl(f_17151) static void C_ccall f_17151(C_word c,C_word *av) C_noret; C_noret_decl(f_24666) static void C_ccall f_24666(C_word c,C_word *av) C_noret; C_noret_decl(f_24662) static void C_ccall f_24662(C_word c,C_word *av) C_noret; C_noret_decl(f_22714) static void C_ccall f_22714(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_6833) static void C_ccall f_6833(C_word c,C_word *av) C_noret; C_noret_decl(f_24684) static void C_ccall f_24684(C_word c,C_word *av) C_noret; C_noret_decl(f_24688) static void C_ccall f_24688(C_word c,C_word *av) C_noret; C_noret_decl(f_24680) static void C_ccall f_24680(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_6824) static void C_ccall f_6824(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_9294) static void C_ccall f_9294(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_6806) static void C_ccall f_6806(C_word c,C_word *av) 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_12673) static void C_ccall f_12673(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_7798) static void C_ccall f_7798(C_word c,C_word *av) C_noret; C_noret_decl(f_12661) static void C_ccall f_12661(C_word c,C_word *av) 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_11673) static void C_ccall f_11673(C_word c,C_word *av) C_noret; C_noret_decl(f_25602) static void C_ccall f_25602(C_word c,C_word *av) C_noret; C_noret_decl(f_11683) static void C_ccall f_11683(C_word c,C_word *av) C_noret; C_noret_decl(f_11685) static void C_ccall f_11685(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_11669) static void C_ccall f_11669(C_word c,C_word *av) C_noret; C_noret_decl(f_9236) static void C_ccall f_9236(C_word c,C_word *av) C_noret; C_noret_decl(f_9234) static void C_ccall f_9234(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_11696) static void C_ccall f_11696(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_6857) static void C_ccall f_6857(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_12613) static void C_ccall f_12613(C_word c,C_word *av) C_noret; C_noret_decl(f_6842) static void C_ccall f_6842(C_word c,C_word *av) C_noret; C_noret_decl(f_23618) static void C_ccall f_23618(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_12631) static void C_ccall f_12631(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_word t2) 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_12600) static void C_ccall f_12600(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_17801) static void C_ccall f_17801(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_8919) static void C_ccall f_8919(C_word c,C_word *av) C_noret; C_noret_decl(f_11632) static void C_ccall f_11632(C_word c,C_word *av) C_noret; C_noret_decl(f_25634) static void C_ccall f_25634(C_word c,C_word *av) C_noret; C_noret_decl(f_11648) static void C_fcall f_11648(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17860) static void C_ccall f_17860(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_23692) static C_word C_fcall f_23692(C_word t0,C_word t1,C_word t2); C_noret_decl(f_17841) static void C_ccall f_17841(C_word c,C_word *av) C_noret; C_noret_decl(f_17811) static void C_fcall f_17811(C_word t0,C_word t1,C_word t2) 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_9216) static void C_ccall f_9216(C_word c,C_word *av) 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_18351) static void C_ccall f_18351(C_word c,C_word *av) C_noret; C_noret_decl(f_18354) static void C_ccall f_18354(C_word c,C_word *av) C_noret; C_noret_decl(f_18320) static void C_ccall f_18320(C_word c,C_word *av) C_noret; C_noret_decl(f_8985) static void C_ccall f_8985(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_15137) static void C_ccall f_15137(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_8961) static void C_ccall f_8961(C_word c,C_word *av) C_noret; C_noret_decl(f_22802) static void C_ccall f_22802(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_13103) static void C_ccall f_13103(C_word c,C_word *av) C_noret; C_noret_decl(f_22838) static void C_ccall f_22838(C_word c,C_word *av) C_noret; C_noret_decl(f_13122) static void C_fcall f_13122(C_word t0,C_word t1) 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_22810) static void C_ccall f_22810(C_word c,C_word *av) C_noret; C_noret_decl(f_22848) static void C_ccall f_22848(C_word c,C_word *av) C_noret; C_noret_decl(f_13110) static void C_ccall f_13110(C_word c,C_word *av) C_noret; C_noret_decl(f_13117) static void C_ccall f_13117(C_word c,C_word *av) C_noret; C_noret_decl(f_13118) static void C_fcall f_13118(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_23738) static void C_ccall f_23738(C_word c,C_word *av) C_noret; C_noret_decl(f_13141) static void C_ccall f_13141(C_word c,C_word *av) C_noret; C_noret_decl(f_23740) static void C_ccall f_23740(C_word c,C_word *av) C_noret; C_noret_decl(f_15186) static void C_fcall f_15186(C_word t0,C_word t1) C_noret; C_noret_decl(f_23747) static void C_fcall f_23747(C_word t0,C_word t1) 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_22880) static void C_ccall f_22880(C_word c,C_word *av) C_noret; C_noret_decl(f_22883) static void C_ccall f_22883(C_word c,C_word *av) C_noret; C_noret_decl(f_13160) static void C_ccall f_13160(C_word c,C_word *av) C_noret; C_noret_decl(f_22852) static void C_fcall f_22852(C_word t0,C_word t1) C_noret; C_noret_decl(f_22324) static void C_fcall f_22324(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19310) static void C_ccall f_19310(C_word c,C_word *av) 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_22322) static void C_ccall f_22322(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_19318) static void C_ccall f_19318(C_word c,C_word *av) C_noret; C_noret_decl(f_13152) static void C_fcall f_13152(C_word t0,C_word t1) 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_15193) static void C_ccall f_15193(C_word c,C_word *av) C_noret; C_noret_decl(f_22337) static void C_ccall f_22337(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_21998) static void C_ccall f_21998(C_word c,C_word *av) C_noret; C_noret_decl(f_21992) static void C_ccall f_21992(C_word c,C_word *av) C_noret; C_noret_decl(f_13186) static void C_fcall f_13186(C_word t0,C_word t1) C_noret; C_noret_decl(f_13181) static void C_fcall f_13181(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7535) static void C_ccall f_7535(C_word c,C_word *av) C_noret; C_noret_decl(f_13172) static void C_fcall f_13172(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7836) static void C_fcall f_7836(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_23759) static void C_fcall f_23759(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7556) static void C_ccall f_7556(C_word c,C_word *av) C_noret; C_noret_decl(f_22892) static void C_fcall f_22892(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7824) static void C_ccall f_7824(C_word c,C_word *av) C_noret; C_noret_decl(f_7855) static void C_fcall f_7855(C_word t0,C_word t1,C_word t2) 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_7521) static void C_ccall f_7521(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_19302) static void C_ccall f_19302(C_word c,C_word *av) C_noret; C_noret_decl(f_19306) static void C_ccall f_19306(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_8219) static void C_ccall f_8219(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_20893) static void C_ccall f_20893(C_word c,C_word *av) C_noret; C_noret_decl(f_15529) static void C_ccall f_15529(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_15519) static void C_fcall f_15519(C_word t0,C_word t1) C_noret; C_noret_decl(f_8238) static void C_fcall f_8238(C_word t0,C_word t1) C_noret; C_noret_decl(f_18475) static void C_ccall f_18475(C_word c,C_word *av) C_noret; C_noret_decl(f_18479) static void C_ccall f_18479(C_word c,C_word *av) C_noret; C_noret_decl(f_15500) static void C_fcall f_15500(C_word t0,C_word t1,C_word t2) 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_18482) static void C_ccall f_18482(C_word c,C_word *av) C_noret; C_noret_decl(f_8945) static void C_ccall f_8945(C_word c,C_word *av) C_noret; C_noret_decl(f_8943) static void C_ccall f_8943(C_word c,C_word *av) C_noret; C_noret_decl(f_15783) static void C_ccall f_15783(C_word c,C_word *av) C_noret; C_noret_decl(f_22353) static void C_ccall f_22353(C_word c,C_word *av) C_noret; C_noret_decl(f_22356) static void C_ccall f_22356(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_18497) static void C_ccall f_18497(C_word c,C_word *av) C_noret; C_noret_decl(f_22363) static void C_ccall f_22363(C_word c,C_word *av) C_noret; C_noret_decl(f_7069) static void C_ccall f_7069(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_ccall f_8284(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_7063) static void C_ccall f_7063(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_8921) static void C_ccall f_8921(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_7507) static void C_ccall f_7507(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_8279) static void C_ccall f_8279(C_word c,C_word *av) C_noret; C_noret_decl(f_8273) static void C_ccall f_8273(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_7012) static void C_ccall f_7012(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_22309) static void C_ccall f_22309(C_word c,C_word *av) C_noret; C_noret_decl(f_17087) static void C_ccall f_17087(C_word c,C_word *av) C_noret; C_noret_decl(f_22306) static void C_ccall f_22306(C_word c,C_word *av) C_noret; C_noret_decl(f_22303) static void C_ccall f_22303(C_word c,C_word *av) C_noret; C_noret_decl(f_9579) static void C_ccall f_9579(C_word c,C_word *av) C_noret; C_noret_decl(f_15548) static void C_ccall f_15548(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_17050) static void C_ccall f_17050(C_word c,C_word *av) 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_7004) static void C_ccall f_7004(C_word c,C_word *av) 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_22315) static void C_ccall f_22315(C_word c,C_word *av) C_noret; C_noret_decl(f_15533) static void C_ccall f_15533(C_word c,C_word *av) C_noret; C_noret_decl(f_15537) static void C_ccall f_15537(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_7035) static void C_ccall f_7035(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_18463) static void C_ccall f_18463(C_word c,C_word *av) C_noret; C_noret_decl(f_18469) static void C_ccall f_18469(C_word c,C_word *av) C_noret; C_noret_decl(f_25301) static void C_ccall f_25301(C_word c,C_word *av) C_noret; C_noret_decl(f_24336) static void C_fcall f_24336(C_word t0,C_word t1) C_noret; C_noret_decl(f_25311) static void C_ccall f_25311(C_word c,C_word *av) C_noret; C_noret_decl(f_24301) static void C_ccall f_24301(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_18408) static void C_ccall f_18408(C_word c,C_word *av) C_noret; C_noret_decl(f_15612) static void C_ccall f_15612(C_word c,C_word *av) C_noret; C_noret_decl(f_24317) static void C_fcall f_24317(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18412) static void C_ccall f_18412(C_word c,C_word *av) C_noret; C_noret_decl(f_17026) static void C_ccall f_17026(C_word c,C_word *av) C_noret; C_noret_decl(f_15606) static void C_ccall f_15606(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_19295) static void C_ccall f_19295(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_19269) static void C_ccall f_19269(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_7584) static void C_ccall f_7584(C_word c,C_word *av) C_noret; C_noret_decl(f_7094) static void C_ccall f_7094(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_15666) static void C_ccall f_15666(C_word c,C_word *av) C_noret; C_noret_decl(f_24346) static void C_ccall f_24346(C_word c,C_word *av) C_noret; C_noret_decl(f_19289) static void C_ccall f_19289(C_word c,C_word *av) C_noret; C_noret_decl(f_7083) static void C_ccall f_7083(C_word c,C_word *av) C_noret; C_noret_decl(f_15650) static void C_ccall f_15650(C_word c,C_word *av) 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_25366) static void C_fcall f_25366(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_19281) static void C_ccall f_19281(C_word c,C_word *av) C_noret; C_noret_decl(f_25364) static void C_fcall f_25364(C_word t0,C_word t1) 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_24356) static void C_ccall f_24356(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_20826) static void C_fcall f_20826(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17064) static void C_ccall f_17064(C_word c,C_word *av) C_noret; C_noret_decl(f_15641) static void C_ccall f_15641(C_word c,C_word *av) C_noret; C_noret_decl(f_23637) static void C_ccall f_23637(C_word c,C_word *av) 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_17030) static void C_ccall f_17030(C_word c,C_word *av) C_noret; C_noret_decl(f_15634) static void C_ccall f_15634(C_word c,C_word *av) C_noret; C_noret_decl(f_17034) static void C_ccall f_17034(C_word c,C_word *av) C_noret; C_noret_decl(f_25382) static void C_ccall f_25382(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_14677) static void C_ccall f_14677(C_word c,C_word *av) C_noret; C_noret_decl(f_25393) static void C_ccall f_25393(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_19277) static void C_ccall f_19277(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_9581) static void C_ccall f_9581(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_11982) static void C_ccall f_11982(C_word c,C_word *av) C_noret; C_noret_decl(f_25327) static void C_ccall f_25327(C_word c,C_word *av) C_noret; C_noret_decl(f_11987) static void C_ccall f_11987(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_25331) static void C_ccall f_25331(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_19215) static void C_ccall f_19215(C_word c,C_word *av) C_noret; C_noret_decl(f_19214) static void C_ccall f_19214(C_word c,C_word *av) C_noret; C_noret_decl(f_23679) static void C_ccall f_23679(C_word c,C_word *av) C_noret; C_noret_decl(f_23677) static void C_ccall f_23677(C_word c,C_word *av) C_noret; C_noret_decl(f_25338) static void C_ccall f_25338(C_word c,C_word *av) C_noret; C_noret_decl(f_23653) static void C_ccall f_23653(C_word c,C_word *av) C_noret; C_noret_decl(f_25341) static void C_ccall f_25341(C_word c,C_word *av) C_noret; C_noret_decl(f_25344) static void C_ccall f_25344(C_word c,C_word *av) C_noret; C_noret_decl(f_23660) static void C_ccall f_23660(C_word c,C_word *av) C_noret; C_noret_decl(f_25356) static void C_ccall f_25356(C_word c,C_word *av) C_noret; C_noret_decl(f_25350) static void C_ccall f_25350(C_word c,C_word *av) C_noret; C_noret_decl(f_25353) static void C_ccall f_25353(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_19209) static void C_ccall f_19209(C_word c,C_word *av) 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_23634) static void C_ccall f_23634(C_word c,C_word *av) C_noret; C_noret_decl(f_23630) static void C_ccall f_23630(C_word c,C_word *av) C_noret; C_noret_decl(f_19202) static void C_ccall f_19202(C_word c,C_word *av) C_noret; C_noret_decl(f_19203) static void C_ccall f_19203(C_word c,C_word *av) C_noret; C_noret_decl(f_22422) static void C_ccall f_22422(C_word c,C_word *av) C_noret; C_noret_decl(f_19255) static void C_fcall f_19255(C_word t0,C_word t1) 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_9558) static void C_ccall f_9558(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_19250) static void C_ccall f_19250(C_word c,C_word *av) C_noret; C_noret_decl(f_22432) static void C_ccall f_22432(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_19226) static void C_ccall f_19226(C_word c,C_word *av) C_noret; C_noret_decl(f_12377) static void C_fcall f_12377(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9522) static void C_ccall f_9522(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_22424) static void C_fcall f_22424(C_word t0,C_word t1) 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_19220) static void C_ccall f_19220(C_word c,C_word *av) C_noret; C_noret_decl(f_20883) static void C_ccall f_20883(C_word c,C_word *av) C_noret; C_noret_decl(f_20889) static void C_ccall f_20889(C_word c,C_word *av) C_noret; C_noret_decl(f_11968) static void C_ccall f_11968(C_word c,C_word *av) C_noret; C_noret_decl(f_20972) static void C_fcall f_20972(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9534) static void C_ccall f_9534(C_word c,C_word *av) C_noret; C_noret_decl(f_22438) static void C_ccall f_22438(C_word c,C_word *av) C_noret; C_noret_decl(f_11570) static void C_ccall f_11570(C_word c,C_word *av) C_noret; C_noret_decl(f_11578) static void C_ccall f_11578(C_word c,C_word *av) C_noret; C_noret_decl(f_19247) static void C_ccall f_19247(C_word c,C_word *av) C_noret; C_noret_decl(f_12393) static void C_ccall f_12393(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_19244) static void C_ccall f_19244(C_word c,C_word *av) C_noret; C_noret_decl(f_11548) static void C_fcall f_11548(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20860) static C_word C_fcall f_20860(C_word t0); C_noret_decl(f_9512) static void C_ccall f_9512(C_word c,C_word *av) C_noret; C_noret_decl(f_9517) static void C_ccall f_9517(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_22419) static void C_ccall f_22419(C_word c,C_word *av) C_noret; C_noret_decl(f_22416) static void C_ccall f_22416(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_14021) static void C_ccall f_14021(C_word c,C_word *av) C_noret; C_noret_decl(f_14028) static void C_ccall f_14028(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_11568) static void C_ccall f_11568(C_word c,C_word *av) C_noret; C_noret_decl(f_16891) static void C_ccall f_16891(C_word c,C_word *av) 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_14016) static void C_ccall f_14016(C_word c,C_word *av) C_noret; C_noret_decl(f_12381) static void C_ccall f_12381(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_19232) static void C_fcall f_19232(C_word t0,C_word t1) C_noret; C_noret_decl(f_22478) static void C_ccall f_22478(C_word c,C_word *av) C_noret; C_noret_decl(f_14041) static void C_ccall f_14041(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_11580) static void C_ccall f_11580(C_word c,C_word *av) C_noret; C_noret_decl(f_22443) static void C_fcall f_22443(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22447) static void C_ccall f_22447(C_word c,C_word *av) C_noret; C_noret_decl(f_11589) static void C_ccall f_11589(C_word c,C_word *av) C_noret; C_noret_decl(f_14032) static void C_ccall f_14032(C_word c,C_word *av) C_noret; C_noret_decl(f_20914) static void C_fcall f_20914(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_22459) static void C_ccall f_22459(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_fcall f_12322(C_word t0,C_word t1,C_word t2) 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_14061) static void C_ccall f_14061(C_word c,C_word *av) C_noret; C_noret_decl(f_20908) static void C_ccall f_20908(C_word c,C_word *av) C_noret; C_noret_decl(f_20900) static void C_fcall f_20900(C_word t0,C_word t1,C_word t2) 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_9011) static void C_ccall f_9011(C_word c,C_word *av) C_noret; C_noret_decl(f_14057) static void C_ccall f_14057(C_word c,C_word *av) C_noret; C_noret_decl(f_7909) static void C_fcall f_7909(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20629) static void C_ccall f_20629(C_word c,C_word *av) C_noret; C_noret_decl(f_20625) static void C_ccall f_20625(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_9027) static void C_ccall f_9027(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_22484) static void C_fcall f_22484(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_14070) static void C_fcall f_14070(C_word t0,C_word t1) 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_23526) static void C_ccall f_23526(C_word c,C_word *av) C_noret; C_noret_decl(f_22498) static void C_ccall f_22498(C_word c,C_word *av) C_noret; C_noret_decl(f_11518) static void C_fcall f_11518(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12335) static void C_ccall f_12335(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_14095) static void C_fcall f_14095(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_14090) static void C_fcall f_14090(C_word t0,C_word t1) C_noret; C_noret_decl(f_12305) static void C_ccall f_12305(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_7972) static void C_ccall f_7972(C_word c,C_word *av) C_noret; C_noret_decl(f_7975) static void C_ccall f_7975(C_word c,C_word *av) C_noret; C_noret_decl(f_7978) static void C_ccall f_7978(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_20619) static void C_ccall f_20619(C_word c,C_word *av) C_noret; C_noret_decl(f_20648) static C_word C_fcall f_20648(C_word t0,C_word t1); C_noret_decl(f_20646) static void C_ccall f_20646(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_7993) static void C_ccall f_7993(C_word c,C_word *av) C_noret; C_noret_decl(f_7996) static void C_ccall f_7996(C_word c,C_word *av) 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_11528) static void C_ccall f_11528(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_7984) static void C_ccall f_7984(C_word c,C_word *av) C_noret; C_noret_decl(f_7987) static void C_ccall f_7987(C_word c,C_word *av) C_noret; C_noret_decl(f_16880) static void C_ccall f_16880(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_23510) static void C_ccall f_23510(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_20654) static C_word C_fcall f_20654(C_word t0); C_noret_decl(f_20659) static C_word C_fcall f_20659(C_word t0); C_noret_decl(f_23574) static void C_ccall f_23574(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_15015) static void C_ccall f_15015(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_23581) static void C_ccall f_23581(C_word c,C_word *av) C_noret; C_noret_decl(f_13519) static void C_ccall f_13519(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_13541) static void C_ccall f_13541(C_word c,C_word *av) C_noret; C_noret_decl(f_18445) static void C_ccall f_18445(C_word c,C_word *av) C_noret; C_noret_decl(f_13544) static void C_ccall f_13544(C_word c,C_word *av) C_noret; C_noret_decl(f_13547) static void C_ccall f_13547(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_15075) static void C_ccall f_15075(C_word c,C_word *av) C_noret; C_noret_decl(f_15071) static void C_ccall f_15071(C_word c,C_word *av) C_noret; C_noret_decl(f_14498) static void C_ccall f_14498(C_word c,C_word *av) C_noret; C_noret_decl(f_18458) static void C_ccall f_18458(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_13538) static void C_ccall f_13538(C_word c,C_word *av) C_noret; C_noret_decl(f_15064) static void C_ccall f_15064(C_word c,C_word *av) C_noret; C_noret_decl(f_15079) static void C_ccall f_15079(C_word c,C_word *av) C_noret; C_noret_decl(f_13567) static void C_fcall f_13567(C_word t0,C_word t1) C_noret; C_noret_decl(trf_13558) static void C_ccall trf_13558(C_word c,C_word *av) C_noret; static void C_ccall trf_13558(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_13558(t0,t1,t2,t3,t4);} C_noret_decl(trf_24129) static void C_ccall trf_24129(C_word c,C_word *av) C_noret; static void C_ccall trf_24129(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_24129(t0,t1,t2);} C_noret_decl(trf_11459) static void C_ccall trf_11459(C_word c,C_word *av) C_noret; static void C_ccall trf_11459(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11459(t0,t1);} C_noret_decl(trf_15598) static void C_ccall trf_15598(C_word c,C_word *av) C_noret; static void C_ccall trf_15598(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15598(t0,t1);} C_noret_decl(trf_17206) static void C_ccall trf_17206(C_word c,C_word *av) C_noret; static void C_ccall trf_17206(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17206(t0,t1,t2);} 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_10790) static void C_ccall trf_10790(C_word c,C_word *av) C_noret; static void C_ccall trf_10790(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10790(t0,t1);} C_noret_decl(trf_7948) static void C_ccall trf_7948(C_word c,C_word *av) C_noret; static void C_ccall trf_7948(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7948(t0,t1,t2,t3);} C_noret_decl(trf_18168) static void C_ccall trf_18168(C_word c,C_word *av) C_noret; static void C_ccall trf_18168(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18168(t0,t1,t2);} C_noret_decl(trf_18178) static void C_ccall trf_18178(C_word c,C_word *av) C_noret; static void C_ccall trf_18178(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18178(t0,t1);} C_noret_decl(trf_15401) static void C_ccall trf_15401(C_word c,C_word *av) C_noret; static void C_ccall trf_15401(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15401(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_10716(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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_17388(t0,t1,t2,t3);} C_noret_decl(trf_10413) static void C_ccall trf_10413(C_word c,C_word *av) C_noret; static void C_ccall trf_10413(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10413(t0,t1,t2);} C_noret_decl(trf_18850) static void C_ccall trf_18850(C_word c,C_word *av) C_noret; static void C_ccall trf_18850(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_18850(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_24058) static void C_ccall trf_24058(C_word c,C_word *av) C_noret; static void C_ccall trf_24058(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_24058(t0,t1,t2,t3);} C_noret_decl(trf_17316) static void C_ccall trf_17316(C_word c,C_word *av) C_noret; static void C_ccall trf_17316(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_17316(t0,t1,t2,t3);} C_noret_decl(trf_24497) static void C_ccall trf_24497(C_word c,C_word *av) C_noret; static void C_ccall trf_24497(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_24497(t0,t1,t2);} C_noret_decl(trf_19116) static void C_ccall trf_19116(C_word c,C_word *av) C_noret; static void C_ccall trf_19116(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19116(t0,t1,t2);} C_noret_decl(trf_18830) static void C_ccall trf_18830(C_word c,C_word *av) C_noret; static void C_ccall trf_18830(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_18830(t0,t1,t2,t3,t4);} C_noret_decl(trf_20104) static void C_ccall trf_20104(C_word c,C_word *av) C_noret; static void C_ccall trf_20104(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20104(t0,t1,t2);} C_noret_decl(trf_11369) static void C_ccall trf_11369(C_word c,C_word *av) C_noret; static void C_ccall trf_11369(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11369(t0,t1,t2);} C_noret_decl(trf_19101) static void C_ccall trf_19101(C_word c,C_word *av) C_noret; static void C_ccall trf_19101(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19101(t0,t1,t2);} C_noret_decl(trf_17257) static void C_ccall trf_17257(C_word c,C_word *av) C_noret; static void C_ccall trf_17257(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17257(t0,t1,t2);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9834(t0,t1,t2,t3);} C_noret_decl(trf_22507) static void C_ccall trf_22507(C_word c,C_word *av) C_noret; static void C_ccall trf_22507(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22507(t0,t1);} C_noret_decl(trf_11331) static void C_ccall trf_11331(C_word c,C_word *av) C_noret; static void C_ccall trf_11331(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11331(t0,t1,t2);} C_noret_decl(trf_16961) static void C_ccall trf_16961(C_word c,C_word *av) C_noret; static void C_ccall trf_16961(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_16961(t0,t1,t2,t3,t4);} C_noret_decl(trf_16979) static void C_ccall trf_16979(C_word c,C_word *av) C_noret; static void C_ccall trf_16979(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16979(t0,t1);} C_noret_decl(trf_21861) static void C_ccall trf_21861(C_word c,C_word *av) C_noret; static void C_ccall trf_21861(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21861(t0,t1,t2);} C_noret_decl(trf_13584) static void C_ccall trf_13584(C_word c,C_word *av) C_noret; static void C_ccall trf_13584(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13584(t0,t1);} C_noret_decl(trf_13577) static void C_ccall trf_13577(C_word c,C_word *av) C_noret; static void C_ccall trf_13577(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13577(t0,t1,t2);} C_noret_decl(trf_14194) static void C_ccall trf_14194(C_word c,C_word *av) C_noret; static void C_ccall trf_14194(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14194(t0,t1);} C_noret_decl(trf_14841) static void C_ccall trf_14841(C_word c,C_word *av) C_noret; static void C_ccall trf_14841(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14841(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[1]; C_word t1=av[0]; f_14831(t0,t1);} C_noret_decl(trf_14851) static void C_ccall trf_14851(C_word c,C_word *av) C_noret; static void C_ccall trf_14851(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14851(t0,t1);} C_noret_decl(trf_24163) static void C_ccall trf_24163(C_word c,C_word *av) C_noret; static void C_ccall trf_24163(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_24163(t0,t1,t2);} C_noret_decl(trf_15482) static void C_ccall trf_15482(C_word c,C_word *av) C_noret; static void C_ccall trf_15482(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15482(t0,t1);} C_noret_decl(trf_18921) static void C_ccall trf_18921(C_word c,C_word *av) C_noret; static void C_ccall trf_18921(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18921(t0,t1);} C_noret_decl(trf_18904) static void C_ccall trf_18904(C_word c,C_word *av) C_noret; static void C_ccall trf_18904(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18904(t0,t1);} C_noret_decl(trf_17561) static void C_ccall trf_17561(C_word c,C_word *av) C_noret; static void C_ccall trf_17561(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17561(t0,t1,t2);} C_noret_decl(trf_19708) static void C_ccall trf_19708(C_word c,C_word *av) C_noret; static void C_ccall trf_19708(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19708(t0,t1);} C_noret_decl(trf_11767) static void C_ccall trf_11767(C_word c,C_word *av) C_noret; static void C_ccall trf_11767(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11767(t0,t1,t2);} C_noret_decl(trf_19628) static void C_ccall trf_19628(C_word c,C_word *av) C_noret; static void C_ccall trf_19628(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19628(t0,t1,t2);} C_noret_decl(trf_10033) static void C_ccall trf_10033(C_word c,C_word *av) C_noret; static void C_ccall trf_10033(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10033(t0,t1,t2,t3);} C_noret_decl(trf_23313) static void C_ccall trf_23313(C_word c,C_word *av) C_noret; static void C_ccall trf_23313(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23313(t0,t1,t2);} C_noret_decl(trf_23318) static void C_ccall trf_23318(C_word c,C_word *av) C_noret; static void C_ccall trf_23318(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23318(t0,t1);} C_noret_decl(trf_13739) static void C_ccall trf_13739(C_word c,C_word *av) C_noret; static void C_ccall trf_13739(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13739(t0,t1,t2);} C_noret_decl(trf_19814) static void C_ccall trf_19814(C_word c,C_word *av) C_noret; static void C_ccall trf_19814(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19814(t0,t1,t2);} C_noret_decl(trf_13751) static void C_ccall trf_13751(C_word c,C_word *av) C_noret; static void C_ccall trf_13751(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_13751(t0,t1,t2,t3);} C_noret_decl(trf_14602) static void C_ccall trf_14602(C_word c,C_word *av) C_noret; static void C_ccall trf_14602(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14602(t0,t1);} C_noret_decl(trf_9631) static void C_ccall trf_9631(C_word c,C_word *av) C_noret; static void C_ccall trf_9631(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_9631(t0,t1,t2,t3,t4);} C_noret_decl(trf_14620) static void C_ccall trf_14620(C_word c,C_word *av) C_noret; static void C_ccall trf_14620(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14620(t0,t1,t2,t3);} C_noret_decl(trf_18687) static void C_ccall trf_18687(C_word c,C_word *av) C_noret; static void C_ccall trf_18687(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18687(t0,t1,t2,t3);} C_noret_decl(trf_19689) static void C_ccall trf_19689(C_word c,C_word *av) C_noret; static void C_ccall trf_19689(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19689(t0,t1,t2);} C_noret_decl(trf_14656) static void C_ccall trf_14656(C_word c,C_word *av) C_noret; static void C_ccall trf_14656(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14656(t0,t1);} 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[1]; C_word t1=av[0]; f_19851(t0,t1);} C_noret_decl(trf_18363) static void C_ccall trf_18363(C_word c,C_word *av) C_noret; static void C_ccall trf_18363(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18363(t0,t1,t2,t3);} C_noret_decl(trf_10935) static void C_ccall trf_10935(C_word c,C_word *av) C_noret; static void C_ccall trf_10935(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10935(t0,t1,t2,t3);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_19885(t0,t1,t2);} C_noret_decl(trf_12790) static void C_ccall trf_12790(C_word c,C_word *av) C_noret; static void C_ccall trf_12790(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12790(t0,t1,t2);} C_noret_decl(trf_20708) static void C_ccall trf_20708(C_word c,C_word *av) C_noret; static void C_ccall trf_20708(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20708(t0,t1,t2);} C_noret_decl(trf_11110) static void C_ccall trf_11110(C_word c,C_word *av) C_noret; static void C_ccall trf_11110(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11110(t0,t1,t2);} C_noret_decl(trf_20780) static void C_ccall trf_20780(C_word c,C_word *av) C_noret; static void C_ccall trf_20780(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20780(t0,t1,t2);} C_noret_decl(trf_11155) static void C_ccall trf_11155(C_word c,C_word *av) C_noret; static void C_ccall trf_11155(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11155(t0,t1);} C_noret_decl(trf_16748) static void C_ccall trf_16748(C_word c,C_word *av) C_noret; static void C_ccall trf_16748(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16748(t0,t1,t2);} C_noret_decl(trf_19518) static void C_ccall trf_19518(C_word c,C_word *av) C_noret; static void C_ccall trf_19518(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19518(t0,t1,t2);} C_noret_decl(trf_13786) static void C_ccall trf_13786(C_word c,C_word *av) C_noret; static void C_ccall trf_13786(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_13786(t0,t1,t2,t3);} C_noret_decl(trf_12864) static void C_ccall trf_12864(C_word c,C_word *av) C_noret; static void C_ccall trf_12864(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12864(t0,t1,t2);} C_noret_decl(trf_13776) static void C_ccall trf_13776(C_word c,C_word *av) C_noret; static void C_ccall trf_13776(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13776(t0,t1,t2);} C_noret_decl(trf_19554) static void C_ccall trf_19554(C_word c,C_word *av) C_noret; static void C_ccall trf_19554(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19554(t0,t1,t2);} C_noret_decl(trf_14340) static void C_ccall trf_14340(C_word c,C_word *av) C_noret; static void C_ccall trf_14340(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14340(t0,t1,t2,t3);} C_noret_decl(trf_14349) static void C_ccall trf_14349(C_word c,C_word *av) C_noret; static void C_ccall trf_14349(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14349(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);} C_noret_decl(trf_13604) static void C_ccall trf_13604(C_word c,C_word *av) C_noret; static void C_ccall trf_13604(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13604(t0,t1,t2);} C_noret_decl(trf_13628) static void C_ccall trf_13628(C_word c,C_word *av) C_noret; static void C_ccall trf_13628(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13628(t0,t1);} C_noret_decl(trf_13613) static void C_ccall trf_13613(C_word c,C_word *av) C_noret; static void C_ccall trf_13613(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13613(t0,t1,t2);} C_noret_decl(trf_13641) static void C_ccall trf_13641(C_word c,C_word *av) C_noret; static void C_ccall trf_13641(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13641(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_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_9965) static void C_ccall trf_9965(C_word c,C_word *av) C_noret; static void C_ccall trf_9965(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_9965(t0,t1,t2,t3,t4);} C_noret_decl(trf_18240) static void C_ccall trf_18240(C_word c,C_word *av) C_noret; static void C_ccall trf_18240(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18240(t0,t1,t2);} C_noret_decl(trf_7318) static void C_ccall trf_7318(C_word c,C_word *av) C_noret; static void C_ccall trf_7318(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7318(t0,t1,t2,t3);} C_noret_decl(trf_23122) static void C_ccall trf_23122(C_word c,C_word *av) C_noret; static void C_ccall trf_23122(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23122(t0,t1,t2);} C_noret_decl(trf_23120) static void C_ccall trf_23120(C_word c,C_word *av) C_noret; static void C_ccall trf_23120(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23120(t0,t1,t2);} C_noret_decl(trf_7367) static void C_ccall trf_7367(C_word c,C_word *av) C_noret; static void C_ccall trf_7367(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7367(t0,t1);} C_noret_decl(trf_14764) static void C_ccall trf_14764(C_word c,C_word *av) C_noret; static void C_ccall trf_14764(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14764(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_19585(t0,t1,t2);} C_noret_decl(trf_17484) static void C_ccall trf_17484(C_word c,C_word *av) C_noret; static void C_ccall trf_17484(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17484(t0,t1,t2);} C_noret_decl(trf_17752) static void C_ccall trf_17752(C_word c,C_word *av) C_noret; static void C_ccall trf_17752(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17752(t0,t1,t2);} C_noret_decl(trf_17472) static void C_ccall trf_17472(C_word c,C_word *av) C_noret; static void C_ccall trf_17472(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_17472(t0,t1,t2,t3);} C_noret_decl(trf_13979) static void C_ccall trf_13979(C_word c,C_word *av) C_noret; static void C_ccall trf_13979(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13979(t0,t1);} C_noret_decl(trf_21925) static void C_ccall trf_21925(C_word c,C_word *av) C_noret; static void C_ccall trf_21925(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21925(t0,t1,t2);} C_noret_decl(trf_12805) static void C_ccall trf_12805(C_word c,C_word *av) C_noret; static void C_ccall trf_12805(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12805(t0,t1,t2);} C_noret_decl(trf_17448) static void C_ccall trf_17448(C_word c,C_word *av) C_noret; static void C_ccall trf_17448(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_17448(t0,t1,t2,t3);} C_noret_decl(trf_23218) static void C_ccall trf_23218(C_word c,C_word *av) C_noret; static void C_ccall trf_23218(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23218(t0,t1,t2);} C_noret_decl(trf_18714) static void C_ccall trf_18714(C_word c,C_word *av) C_noret; static void C_ccall trf_18714(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18714(t0,t1,t2,t3);} C_noret_decl(trf_18741) static void C_ccall trf_18741(C_word c,C_word *av) C_noret; static void C_ccall trf_18741(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18741(t0,t1,t2,t3);} C_noret_decl(trf_16794) static void C_ccall trf_16794(C_word c,C_word *av) C_noret; static void C_ccall trf_16794(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_16794(t0,t1,t2,t3);} C_noret_decl(trf_8070) static void C_ccall trf_8070(C_word c,C_word *av) C_noret; static void C_ccall trf_8070(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8070(t0,t1,t2);} C_noret_decl(trf_12283) static void C_ccall trf_12283(C_word c,C_word *av) C_noret; static void C_ccall trf_12283(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_12283(t0,t1,t2,t3,t4);} C_noret_decl(trf_14454) static void C_ccall trf_14454(C_word c,C_word *av) C_noret; static void C_ccall trf_14454(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14454(t0,t1);} C_noret_decl(trf_14404) static void C_ccall trf_14404(C_word c,C_word *av) C_noret; static void C_ccall trf_14404(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14404(t0,t1,t2);} C_noret_decl(trf_13685) static void C_ccall trf_13685(C_word c,C_word *av) C_noret; static void C_ccall trf_13685(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_13685(t0,t1,t2,t3);} C_noret_decl(trf_13679) static void C_ccall trf_13679(C_word c,C_word *av) C_noret; static void C_ccall trf_13679(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_13679(t0,t1,t2,t3,t4);} C_noret_decl(trf_19476) static void C_ccall trf_19476(C_word c,C_word *av) C_noret; static void C_ccall trf_19476(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19476(t0,t1);} C_noret_decl(trf_24095) static void C_ccall trf_24095(C_word c,C_word *av) C_noret; static void C_ccall trf_24095(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_24095(t0,t1,t2);} C_noret_decl(trf_19482) static void C_ccall trf_19482(C_word c,C_word *av) C_noret; static void C_ccall trf_19482(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19482(t0,t1);} C_noret_decl(trf_19485) static void C_ccall trf_19485(C_word c,C_word *av) C_noret; static void C_ccall trf_19485(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19485(t0,t1);} C_noret_decl(trf_19479) static void C_ccall trf_19479(C_word c,C_word *av) C_noret; static void C_ccall trf_19479(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19479(t0,t1);} C_noret_decl(trf_14411) static void C_ccall trf_14411(C_word c,C_word *av) C_noret; static void C_ccall trf_14411(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14411(t0,t1);} C_noret_decl(trf_19488) static void C_ccall trf_19488(C_word c,C_word *av) C_noret; static void C_ccall trf_19488(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19488(t0,t1);} C_noret_decl(trf_16197) static void C_ccall trf_16197(C_word c,C_word *av) C_noret; static void C_ccall trf_16197(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16197(t0,t1);} C_noret_decl(trf_8527) static void C_ccall trf_8527(C_word c,C_word *av) C_noret; static void C_ccall trf_8527(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8527(t0,t1,t2,t3);} C_noret_decl(trf_23183) static void C_ccall trf_23183(C_word c,C_word *av) C_noret; static void C_ccall trf_23183(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23183(t0,t1);} C_noret_decl(trf_23167) static void C_ccall trf_23167(C_word c,C_word *av) C_noret; static void C_ccall trf_23167(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_23167(t0,t1,t2,t3);} C_noret_decl(trf_23143) static void C_ccall trf_23143(C_word c,C_word *av) C_noret; static void C_ccall trf_23143(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23143(t0,t1,t2);} C_noret_decl(trf_17626) static void C_ccall trf_17626(C_word c,C_word *av) C_noret; static void C_ccall trf_17626(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17626(t0,t1);} C_noret_decl(trf_19443) static void C_ccall trf_19443(C_word c,C_word *av) C_noret; static void C_ccall trf_19443(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19443(t0,t1);} C_noret_decl(trf_17610) static void C_ccall trf_17610(C_word c,C_word *av) C_noret; static void C_ccall trf_17610(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17610(t0,t1,t2);} C_noret_decl(trf_14866) static void C_ccall trf_14866(C_word c,C_word *av) C_noret; static void C_ccall trf_14866(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14866(t0,t1);} C_noret_decl(trf_23010) static void C_ccall trf_23010(C_word c,C_word *av) C_noret; static void C_ccall trf_23010(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23010(t0,t1);} C_noret_decl(trf_9763) static void C_ccall trf_9763(C_word c,C_word *av) C_noret; static void C_ccall trf_9763(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9763(t0,t1,t2,t3);} C_noret_decl(trf_24814) static void C_ccall trf_24814(C_word c,C_word *av) C_noret; static void C_ccall trf_24814(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_24814(t0,t1);} C_noret_decl(trf_15812) static void C_ccall trf_15812(C_word c,C_word *av) C_noret; static void C_ccall trf_15812(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15812(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[1]; C_word t1=av[0]; f_17652(t0,t1);} C_noret_decl(trf_15395) static void C_ccall trf_15395(C_word c,C_word *av) C_noret; static void C_ccall trf_15395(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15395(t0,t1);} C_noret_decl(trf_15370) static void C_ccall trf_15370(C_word c,C_word *av) C_noret; static void C_ccall trf_15370(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15370(t0,t1);} C_noret_decl(trf_17690) static void C_ccall trf_17690(C_word c,C_word *av) C_noret; static void C_ccall trf_17690(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17690(t0,t1);} C_noret_decl(trf_9732) static void C_ccall trf_9732(C_word c,C_word *av) C_noret; static void C_ccall trf_9732(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9732(t0,t1,t2,t3);} C_noret_decl(trf_22199) static void C_ccall trf_22199(C_word c,C_word *av) C_noret; static void C_ccall trf_22199(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22199(t0,t1,t2);} C_noret_decl(trf_22142) static void C_ccall trf_22142(C_word c,C_word *av) C_noret; static void C_ccall trf_22142(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22142(t0,t1,t2);} C_noret_decl(trf_23834) static void C_ccall trf_23834(C_word c,C_word *av) C_noret; static void C_ccall trf_23834(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23834(t0,t1,t2);} C_noret_decl(trf_22186) static void C_ccall trf_22186(C_word c,C_word *av) C_noret; static void C_ccall trf_22186(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22186(t0,t1);} C_noret_decl(trf_24552) static void C_ccall trf_24552(C_word c,C_word *av) C_noret; static void C_ccall trf_24552(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_24552(t0,t1,t2);} C_noret_decl(trf_24536) static void C_ccall trf_24536(C_word c,C_word *av) C_noret; static void C_ccall trf_24536(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_24536(t0,t1,t2);} C_noret_decl(trf_20274) static void C_ccall trf_20274(C_word c,C_word *av) C_noret; static void C_ccall trf_20274(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20274(t0,t1);} C_noret_decl(trf_23856) static void C_ccall trf_23856(C_word c,C_word *av) C_noret; static void C_ccall trf_23856(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23856(t0,t1,t2);} C_noret_decl(trf_20203) static void C_ccall trf_20203(C_word c,C_word *av) C_noret; static void C_ccall trf_20203(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20203(t0,t1,t2);} C_noret_decl(trf_14991) static void C_ccall trf_14991(C_word c,C_word *av) C_noret; static void C_ccall trf_14991(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14991(t0,t1);} C_noret_decl(trf_14997) static void C_ccall trf_14997(C_word c,C_word *av) C_noret; static void C_ccall trf_14997(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14997(t0,t1);} C_noret_decl(trf_14972) static void C_ccall trf_14972(C_word c,C_word *av) C_noret; static void C_ccall trf_14972(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14972(t0,t1,t2);} C_noret_decl(trf_14978) static void C_ccall trf_14978(C_word c,C_word *av) C_noret; static void C_ccall trf_14978(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14978(t0,t1,t2,t3);} C_noret_decl(trf_25478) static void C_ccall trf_25478(C_word c,C_word *av) C_noret; static void C_ccall trf_25478(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_25478(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_17989) static void C_ccall trf_17989(C_word c,C_word *av) C_noret; static void C_ccall trf_17989(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_17989(t0,t1,t2,t3);} C_noret_decl(trf_24238) static void C_ccall trf_24238(C_word c,C_word *av) C_noret; static void C_ccall trf_24238(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_24238(t0,t1,t2,t3);} C_noret_decl(trf_20080) static void C_ccall trf_20080(C_word c,C_word *av) C_noret; static void C_ccall trf_20080(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20080(t0,t1);} C_noret_decl(trf_20251) static void C_ccall trf_20251(C_word c,C_word *av) C_noret; static void C_ccall trf_20251(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20251(t0,t1);} C_noret_decl(trf_20254) static void C_ccall trf_20254(C_word c,C_word *av) C_noret; static void C_ccall trf_20254(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20254(t0,t1);} C_noret_decl(trf_20230) static void C_ccall trf_20230(C_word c,C_word *av) C_noret; static void C_ccall trf_20230(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20230(t0,t1);} C_noret_decl(trf_24202) static void C_ccall trf_24202(C_word c,C_word *av) C_noret; static void C_ccall trf_24202(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_24202(t0,t1,t2,t3);} C_noret_decl(trf_15222) static void C_ccall trf_15222(C_word c,C_word *av) C_noret; static void C_ccall trf_15222(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15222(t0,t1);} C_noret_decl(trf_23818) static void C_ccall trf_23818(C_word c,C_word *av) C_noret; static void C_ccall trf_23818(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23818(t0,t1);} C_noret_decl(trf_22233) static void C_ccall trf_22233(C_word c,C_word *av) C_noret; static void C_ccall trf_22233(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22233(t0,t1,t2);} C_noret_decl(trf_22248) static void C_ccall trf_22248(C_word c,C_word *av) C_noret; static void C_ccall trf_22248(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22248(t0,t1);} C_noret_decl(trf_25465) static void C_ccall trf_25465(C_word c,C_word *av) C_noret; static void C_ccall trf_25465(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25465(t0,t1);} C_noret_decl(trf_22728) static void C_ccall trf_22728(C_word c,C_word *av) C_noret; static void C_ccall trf_22728(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_22728(t0,t1,t2,t3);} C_noret_decl(trf_14947) static void C_ccall trf_14947(C_word c,C_word *av) C_noret; static void C_ccall trf_14947(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14947(t0,t1);} C_noret_decl(trf_7771) static void C_ccall trf_7771(C_word c,C_word *av) C_noret; static void C_ccall trf_7771(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7771(t0,t1,t2);} C_noret_decl(trf_14921) static void C_ccall trf_14921(C_word c,C_word *av) C_noret; static void C_ccall trf_14921(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14921(t0,t1);} C_noret_decl(trf_14911) static void C_ccall trf_14911(C_word c,C_word *av) C_noret; static void C_ccall trf_14911(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14911(t0,t1,t2,t3);} C_noret_decl(trf_15732) static void C_ccall trf_15732(C_word c,C_word *av) C_noret; static void C_ccall trf_15732(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15732(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_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[2]; C_word t1=av[1]; C_word t2=av[0]; f_11607(t0,t1,t2);} C_noret_decl(trf_11648) static void C_ccall trf_11648(C_word c,C_word *av) C_noret; static void C_ccall trf_11648(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11648(t0,t1,t2);} C_noret_decl(trf_17811) static void C_ccall trf_17811(C_word c,C_word *av) C_noret; static void C_ccall trf_17811(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17811(t0,t1,t2);} C_noret_decl(trf_13122) static void C_ccall trf_13122(C_word c,C_word *av) C_noret; static void C_ccall trf_13122(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13122(t0,t1);} C_noret_decl(trf_13118) static void C_ccall trf_13118(C_word c,C_word *av) C_noret; static void C_ccall trf_13118(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_13118(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_15186) static void C_ccall trf_15186(C_word c,C_word *av) C_noret; static void C_ccall trf_15186(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15186(t0,t1);} C_noret_decl(trf_23747) static void C_ccall trf_23747(C_word c,C_word *av) C_noret; static void C_ccall trf_23747(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23747(t0,t1);} C_noret_decl(trf_22852) static void C_ccall trf_22852(C_word c,C_word *av) C_noret; static void C_ccall trf_22852(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22852(t0,t1);} C_noret_decl(trf_22324) static void C_ccall trf_22324(C_word c,C_word *av) C_noret; static void C_ccall trf_22324(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22324(t0,t1,t2);} C_noret_decl(trf_13152) static void C_ccall trf_13152(C_word c,C_word *av) C_noret; static void C_ccall trf_13152(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13152(t0,t1);} C_noret_decl(trf_13186) static void C_ccall trf_13186(C_word c,C_word *av) C_noret; static void C_ccall trf_13186(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13186(t0,t1);} C_noret_decl(trf_13181) static void C_ccall trf_13181(C_word c,C_word *av) C_noret; static void C_ccall trf_13181(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13181(t0,t1,t2);} C_noret_decl(trf_13172) static void C_ccall trf_13172(C_word c,C_word *av) C_noret; static void C_ccall trf_13172(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_13172(t0,t1,t2,t3);} C_noret_decl(trf_7836) static void C_ccall trf_7836(C_word c,C_word *av) C_noret; static void C_ccall trf_7836(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7836(t0,t1,t2);} C_noret_decl(trf_23759) static void C_ccall trf_23759(C_word c,C_word *av) C_noret; static void C_ccall trf_23759(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23759(t0,t1,t2);} C_noret_decl(trf_22892) static void C_ccall trf_22892(C_word c,C_word *av) C_noret; static void C_ccall trf_22892(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22892(t0,t1,t2);} C_noret_decl(trf_7855) static void C_ccall trf_7855(C_word c,C_word *av) C_noret; static void C_ccall trf_7855(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7855(t0,t1,t2);} 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_15519) static void C_ccall trf_15519(C_word c,C_word *av) C_noret; static void C_ccall trf_15519(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15519(t0,t1);} C_noret_decl(trf_8238) static void C_ccall trf_8238(C_word c,C_word *av) C_noret; static void C_ccall trf_8238(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8238(t0,t1);} C_noret_decl(trf_15500) static void C_ccall trf_15500(C_word c,C_word *av) C_noret; static void C_ccall trf_15500(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15500(t0,t1,t2);} C_noret_decl(trf_24336) static void C_ccall trf_24336(C_word c,C_word *av) C_noret; static void C_ccall trf_24336(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_24336(t0,t1);} C_noret_decl(trf_24317) static void C_ccall trf_24317(C_word c,C_word *av) C_noret; static void C_ccall trf_24317(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_24317(t0,t1,t2);} C_noret_decl(trf_25366) static void C_ccall trf_25366(C_word c,C_word *av) C_noret; static void C_ccall trf_25366(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_25366(t0,t1,t2,t3,t4);} C_noret_decl(trf_25364) static void C_ccall trf_25364(C_word c,C_word *av) C_noret; static void C_ccall trf_25364(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25364(t0,t1);} C_noret_decl(trf_20826) static void C_ccall trf_20826(C_word c,C_word *av) C_noret; static void C_ccall trf_20826(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20826(t0,t1,t2);} C_noret_decl(trf_19255) static void C_ccall trf_19255(C_word c,C_word *av) C_noret; static void C_ccall trf_19255(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19255(t0,t1);} C_noret_decl(trf_12377) static void C_ccall trf_12377(C_word c,C_word *av) C_noret; static void C_ccall trf_12377(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12377(t0,t1,t2);} C_noret_decl(trf_22424) static void C_ccall trf_22424(C_word c,C_word *av) C_noret; static void C_ccall trf_22424(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22424(t0,t1);} C_noret_decl(trf_20972) static void C_ccall trf_20972(C_word c,C_word *av) C_noret; static void C_ccall trf_20972(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20972(t0,t1,t2);} C_noret_decl(trf_11548) static void C_ccall trf_11548(C_word c,C_word *av) C_noret; static void C_ccall trf_11548(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11548(t0,t1,t2);} C_noret_decl(trf_19232) static void C_ccall trf_19232(C_word c,C_word *av) C_noret; static void C_ccall trf_19232(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19232(t0,t1);} C_noret_decl(trf_22443) static void C_ccall trf_22443(C_word c,C_word *av) C_noret; static void C_ccall trf_22443(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22443(t0,t1,t2);} C_noret_decl(trf_20914) static void C_ccall trf_20914(C_word c,C_word *av) C_noret; static void C_ccall trf_20914(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_20914(t0,t1,t2,t3);} C_noret_decl(trf_12322) static void C_ccall trf_12322(C_word c,C_word *av) C_noret; static void C_ccall trf_12322(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12322(t0,t1,t2);} C_noret_decl(trf_20900) static void C_ccall trf_20900(C_word c,C_word *av) C_noret; static void C_ccall trf_20900(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20900(t0,t1,t2);} C_noret_decl(trf_7909) static void C_ccall trf_7909(C_word c,C_word *av) C_noret; static void C_ccall trf_7909(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7909(t0,t1,t2,t3);} C_noret_decl(trf_22484) static void C_ccall trf_22484(C_word c,C_word *av) C_noret; static void C_ccall trf_22484(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_22484(t0,t1,t2,t3,t4);} C_noret_decl(trf_14070) static void C_ccall trf_14070(C_word c,C_word *av) C_noret; static void C_ccall trf_14070(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14070(t0,t1);} C_noret_decl(trf_11518) static void C_ccall trf_11518(C_word c,C_word *av) C_noret; static void C_ccall trf_11518(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11518(t0,t1,t2);} C_noret_decl(trf_14095) static void C_ccall trf_14095(C_word c,C_word *av) C_noret; static void C_ccall trf_14095(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14095(t0,t1,t2,t3);} C_noret_decl(trf_14090) static void C_ccall trf_14090(C_word c,C_word *av) C_noret; static void C_ccall trf_14090(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14090(t0,t1);} C_noret_decl(trf_13567) static void C_ccall trf_13567(C_word c,C_word *av) C_noret; static void C_ccall trf_13567(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13567(t0,t1);} /* k15053 in k14989 in k14980 in loop in r-xtoken in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 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; C_word t3; C_word t4; 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_15055,2,av);} a=C_alloc(9); switch(t1){ case C_make_character(124): t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15064,a[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:2726: r-string */ t3=((C_word*)((C_word*)t0)[5])[1]; f_13776(t3,t2,C_make_character(124)); case C_make_character(10): t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15088,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_15099,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* library.scm:2732: ##sys#reverse-list->string */ t4=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);} 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[591]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=C_set_block_item(((C_word*)t0)[8],0,C_SCHEME_TRUE); /* library.scm:2737: loop */ t5=((C_word*)((C_word*)t0)[2])[1]; f_14978(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:2738: loop */ t5=((C_word*)((C_word*)t0)[2])[1]; f_14978(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_15137,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:2740: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);} 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:2747: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_14978(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:2747: loop */ t4=((C_word*)((C_word*)t0)[2])[1]; f_14978(t4,((C_word*)t0)[3],t3,C_SCHEME_FALSE);}}} /* f_13552 in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ 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 *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_13552,3,av);} /* library.scm:2408: ##sys#read-error */ t3=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[547]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in ... */ static void C_ccall f_13550(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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,5)))){ C_save_and_reclaim((void *)f_13550,2,av);} a=C_alloc(56); t2=t1; t3=C_SCHEME_FALSE; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=lf[546]; t6=C_SCHEME_FALSE; 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_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13552,a[2]=((C_word*)t0)[2],a[3]=((C_word)li510),tmp=(C_word)a,a+=4,tmp)); t21=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13558,a[2]=((C_word*)t0)[3],a[3]=((C_word)li511),tmp=(C_word)a,a+=4,tmp)); t22=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13567,a[2]=((C_word*)t0)[2],a[3]=((C_word)li513),tmp=(C_word)a,a+=4,tmp)); t23=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13604,a[2]=((C_word*)t0)[2],a[3]=((C_word)li514),tmp=(C_word)a,a+=4,tmp)); t24=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13613,a[2]=t7,a[3]=t15,a[4]=((C_word)li515),tmp=(C_word)a,a+=5,tmp)); t25=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_13628,a[2]=((C_word*)t0)[2],a[3]=t13,a[4]=t9,a[5]=t11,a[6]=t19,a[7]=((C_word*)t0)[4],a[8]=t4,a[9]=((C_word*)t0)[5],a[10]=t17,a[11]=t5,a[12]=t7,a[13]=t15,a[14]=((C_word*)t0)[6],a[15]=t2,a[16]=((C_word*)t0)[7],a[17]=((C_word*)t0)[8],a[18]=((C_word)li565),tmp=(C_word)a,a+=19,tmp)); /* library.scm:2988: readrec */ t26=((C_word*)t19)[1]; f_13628(t26,((C_word*)t0)[9]);} /* info in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_fcall f_13558(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_13558,5,t0,t1,t2,t3,t4);} if(C_truep(((C_word*)t0)[2])){ /* library.scm:2412: 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);}}} /* a13011 in k12992 in k12973 in k12970 in k12967 in getter-with-setter in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in ... */ static void C_ccall f_13012(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_13012,4,av);} a=C_alloc(3); t4=C_a_i_cons(&a,2,lf[514],((C_word*)t0)[2]); t5=C_i_setslot(t2,t3,t4); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k22903 in doloop5041 in k22878 in run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in ... */ static void C_ccall f_22905(C_word c,C_word *av){ C_word tmp; C_word t0=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_22905,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22908,a[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:4745: g5049 */ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k22906 in k22903 in doloop5041 in k22878 in run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22908,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_22892(t3,((C_word*)t0)[4],t2);} /* a24385 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in ... */ static void C_ccall f_24386(C_word c,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_24386,2,av);} /* library.scm:3960: ##sys#cleanup-before-exit */ t2=*((C_word*)lf[793]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k24382 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_ccall f_24384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_24384,2,av);} a=C_alloc(3); if(C_truep(C_i_nullp(t1))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f29486,a[2]=((C_word)li852),tmp=(C_word)a,a+=3,tmp); /* library.scm:4663: make-parameter */ t3=*((C_word*)lf[520]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1095]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24380,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4666: argv */ t3=*((C_word*)lf[990]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k24378 in k24382 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_ccall f_24380(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_24380,2,av);} a=C_alloc(3); t2=C_i_car(t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f29492,a[2]=((C_word)li853),tmp=(C_word)a,a+=3,tmp); /* library.scm:4663: make-parameter */ t4=*((C_word*)lf[520]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a22916 in doloop5041 in k22878 in run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in ... */ static void C_ccall f_22917(C_word c,C_word *av){ C_word tmp; C_word 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_22917,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22923,a[2]=t2,a[3]=((C_word)li795),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22935,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li799),tmp=(C_word)a,a+=5,tmp); /* library.scm:4745: with-exception-handler */ t5=*((C_word*)lf[685]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a24391 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in ... */ static void C_ccall f_24392(C_word c,C_word *av){ C_word tmp; 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_24392,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; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_fix(0):C_i_car(t2)); t5=t4; t6=C_i_check_exact(t5); if(C_truep(lf[787])){ /* library.scm:3952: ##sys#warn */ t7=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t1; av2[2]=lf[1098]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24408,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:3954: ##sys#cleanup-before-exit */ t8=*((C_word*)lf[793]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* a22928 in a22922 in a22916 in doloop5041 in k22878 in run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_ccall f_22929(C_word c,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_22929,2,av);} /* library.scm:4749: ##sys#show-exception-warning */ t2=*((C_word*)lf[1000]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[1001]; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a22922 in a22916 in doloop5041 in k22878 in run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_22923(C_word c,C_word *av){ C_word tmp; C_word 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_22923,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22929,a[2]=t2,a[3]=((C_word)li794),tmp=(C_word)a,a+=4,tmp); /* library.scm:4745: k5045 */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static void C_ccall f_13039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13039,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[96]+1 /* (set! car ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13043,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2232: getter-with-setter */ t4=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[97]+1); av2[3]=*((C_word*)lf[99]+1); av2[4]=lf[1128]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* ##sys#register-record-printer in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_18425(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_18425,4,av);} a=C_alloc(6); t4=C_i_assq(t2,*((C_word*)lf[678]+1)); if(C_truep(t4)){ t5=C_i_setslot(t4,C_fix(1),t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_word*)lf[678]+1)); t7=C_mutate2((C_word*)lf[678]+1 /* (set! ##sys#record-printers ...) */,t6); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k18420 in k18410 in procedure->string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_18422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18422,2,av);} /* library.scm:3406: string-append */ t2=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[675]; av2[3]=t1; av2[4]=lf[676]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a22934 in a22916 in doloop5041 in k22878 in run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_22935(C_word c,C_word *av){ C_word tmp; 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_22935,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22941,a[2]=((C_word*)t0)[2],a[3]=((C_word)li796),tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22958,a[2]=((C_word*)t0)[3],a[3]=((C_word)li798),tmp=(C_word)a,a+=4,tmp); /* library.scm:4745: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* k11439 in k11435 in mapsafe1770 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11441,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in ... */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_13055,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[105]+1 /* (set! cdar ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13059,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25084,a[2]=((C_word)li883),tmp=(C_word)a,a+=3,tmp); /* library.scm:2236: getter-with-setter */ t5=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[106]+1); av2[3]=t4; av2[4]=lf[1124]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in ... */ 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; 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_13051,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[100]+1 /* (set! cadr ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13055,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25094,a[2]=((C_word)li884),tmp=(C_word)a,a+=3,tmp); /* library.scm:2235: getter-with-setter */ t5=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[105]+1); av2[3]=t4; av2[4]=lf[1125]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in ... */ static void C_ccall f_13059(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13059,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[106]+1 /* (set! cddr ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13063,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25074,a[2]=((C_word)li882),tmp=(C_word)a,a+=3,tmp); /* library.scm:2237: getter-with-setter */ t5=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[107]+1); av2[3]=t4; av2[4]=lf[1123]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* a22940 in a22934 in a22916 in doloop5041 in k22878 in run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_ccall f_22941(C_word c,C_word *av){ C_word tmp; C_word t0=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_22941,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=C_slot(*((C_word*)lf[979]+1),t2); t4=C_slot(*((C_word*)lf[979]+1),((C_word*)t0)[2]); /* library.scm:4745: g5053 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t1; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* check1771 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *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_11449,5,av);} a=C_alloc(8); t5=C_i_not(t3); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11459,a[2]=t1,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ t7=t6; f_11459(t7,t5);} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11467,a[2]=((C_word)li382),tmp=(C_word)a,a+=3,tmp); t8=t6; f_11459(t8,( f_11467(t2) ));}} /* k15097 in k15053 in k14989 in k14980 in loop in r-xtoken in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_15099,2,av);} /* library.scm:2730: ##sys#read-warning */ t2=*((C_word*)lf[540]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[590]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* loop in del in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ static void C_fcall f_24129(C_word 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_24129,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; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24145,a[2]=t2,a[3]=t1,a[4]=t4,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* library.scm:5111: tst */ t6=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}}} /* ##sys#del in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_ccall f_24123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,3)))){ C_save_and_reclaim((void *)f_24123,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_24129,a[2]=t6,a[3]=t4,a[4]=t2,a[5]=((C_word)li839),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_24129(t8,t1,t3);} /* a22957 in a22934 in a22916 in doloop5041 in k22878 in run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_ccall f_22958(C_word c,C_word *av){ C_word tmp; 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_22958,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_22964,a[2]=t2,a[3]=((C_word)li797),tmp=(C_word)a,a+=4,tmp); /* library.scm:4745: k5045 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ static void C_ccall f_13043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13043,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[97]+1 /* (set! cdr ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13047,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25114,a[2]=((C_word)li886),tmp=(C_word)a,a+=3,tmp); /* library.scm:2233: getter-with-setter */ t5=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[104]+1); av2[3]=t4; av2[4]=lf[1127]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in ... */ static void C_ccall f_13047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13047,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[104]+1 /* (set! caar ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13051,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25104,a[2]=((C_word)li885),tmp=(C_word)a,a+=3,tmp); /* library.scm:2234: getter-with-setter */ t5=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[100]+1); av2[3]=t4; av2[4]=lf[1126]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k11457 in check1771 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_fcall f_11459(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_11459,2,t0,t1);} if(C_truep(t1)){ /* library.scm:1621: ##sys#error */ t2=*((C_word*)lf[17]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[420]; 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);}}} /* k15086 in k15053 in k14989 in k14980 in loop in r-xtoken in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_15088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15088,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_make_character(10),((C_word*)t0)[2]); /* library.scm:2733: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_14978(t3,((C_word*)t0)[4],t2,C_SCHEME_FALSE);} /* a22963 in a22957 in a22934 in a22916 in doloop5041 in k22878 in run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ static void C_ccall f_22964(C_word c,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_22964,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in ... */ static void C_ccall f_13075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13075,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[101]+1 /* (set! caddr ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13079,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25034,a[2]=((C_word)li878),tmp=(C_word)a,a+=3,tmp); /* library.scm:2241: getter-with-setter */ t5=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[110]+1); av2[3]=t4; av2[4]=lf[1119]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in ... */ static void C_ccall f_13071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13071,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[109]+1 /* (set! cadar ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13075,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25044,a[2]=((C_word)li879),tmp=(C_word)a,a+=3,tmp); /* library.scm:2240: getter-with-setter */ t5=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[101]+1); av2[3]=t4; av2[4]=lf[1120]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* check3780 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_18771(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_18771,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_18793,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[0]))){ /* library.scm:3513: ##sys#error */ t12=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t11; av2[2]=lf[698]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} else{ t12=t11;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_UNDEFINED; f_18793(2,av2);}}} else{ t11=C_SCHEME_UNDEFINED; t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} /* k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in ... */ 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 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_13079,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[110]+1 /* (set! cdaar ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13083,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25024,a[2]=((C_word)li877),tmp=(C_word)a,a+=3,tmp); /* library.scm:2242: getter-with-setter */ t5=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[111]+1); av2[3]=t4; av2[4]=lf[1118]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* fpsin in k6799 */ static void C_ccall f_9086(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9086,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9102,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_flonum_sin(&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:786: ##sys#error-hook */ t6=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[239]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k9079 in fpceiling in k6799 */ static void C_ccall f_9081(C_word c,C_word *av){ C_word tmp; 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_9081,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_ceiling(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in ... */ static void C_ccall f_13063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13063,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[107]+1 /* (set! caaar ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13067,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25064,a[2]=((C_word)li881),tmp=(C_word)a,a+=3,tmp); /* library.scm:2238: getter-with-setter */ t5=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[108]+1); av2[3]=t4; av2[4]=lf[1122]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* a25033 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in ... */ static void C_ccall f_25034(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25034,4,av);} t4=C_i_caar(t2); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_set_cdr(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_15592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,2)))){ C_save_and_reclaim((void *)f_15592,2,av);} a=C_alloc(27); t2=t1; t3=C_slot(((C_word*)t0)[2],C_fix(1)); t4=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_15598,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)[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]=((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); if(C_truep(C_eofp(t2))){ t5=t4; f_15598(t5,C_SCHEME_FALSE);} else{ if(C_truep(t3)){ t5=C_fix(C_character_code(t2)); t6=t4; f_15598(t6,C_slot(t3,t5));} else{ t5=t4; f_15598(t5,C_SCHEME_FALSE);}}} /* k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in ... */ static void C_ccall f_13067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13067,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[108]+1 /* (set! caadr ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13071,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25054,a[2]=((C_word)li880),tmp=(C_word)a,a+=3,tmp); /* library.scm:2239: getter-with-setter */ t5=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[109]+1); av2[3]=t4; av2[4]=lf[1121]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_fcall f_15598(C_word t0,C_word t1){ C_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_15598,2,t0,t1);} a=C_alloc(20); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15606,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li550),tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15612,a[2]=((C_word*)t0)[4],a[3]=((C_word)li551),tmp=(C_word)a,a+=4,tmp); /* library.scm:2841: ##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_15634,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* library.scm:2847: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+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);} case C_make_character(96): t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15650,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* library.scm:2850: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+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);} case C_make_character(44): t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15666,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); /* library.scm:2853: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+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);} case C_make_character(35): t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_15702,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)[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],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); /* library.scm:2859: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+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);} case C_make_character(40): /* library.scm:2971: r-list */ t3=((C_word*)((C_word*)t0)[20])[1]; f_14340(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_16340,a[2]=((C_word*)t0)[21],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* library.scm:2972: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+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);} case C_make_character(34): t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16352,a[2]=((C_word*)t0)[22],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:2973: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+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);} case C_make_character(46): /* library.scm:2974: r-number */ t3=((C_word*)((C_word*)t0)[23])[1]; f_14620(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:2975: r-number */ t5=((C_word*)((C_word*)t0)[23])[1]; f_14620(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:2978: r-number */ t5=((C_word*)((C_word*)t0)[23])[1]; f_14620(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)[24])[1]))){ /* library.scm:2980: reserved-character */ t5=((C_word*)((C_word*)t0)[25])[1]; f_13604(t5,((C_word*)t0)[5],((C_word*)t0)[2]);} else{ switch(((C_word*)t0)[2]){ case C_make_character(91): /* library.scm:2983: r-list */ t5=((C_word*)((C_word*)t0)[20])[1]; f_14340(t5,((C_word*)t0)[5],C_make_character(91),C_make_character(93)); case C_make_character(123): /* library.scm:2984: r-list */ t5=((C_word*)((C_word*)t0)[20])[1]; f_14340(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_16430,a[2]=((C_word*)t0)[21],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* library.scm:2985: ##sys#read-char-0 */ t8=*((C_word*)lf[523]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ /* library.scm:2986: r-symbol */ t7=((C_word*)((C_word*)t0)[26])[1]; f_14947(t7,((C_word*)t0)[5]);}}}}}}}}} /* cdaaar in k6799 */ 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=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_7653,3,av);} t3=C_i_car(t2); t4=C_i_car(t3); t5=C_i_car(t4); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_cdr(t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k24111 in loop in foldr in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_24113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24113,2,av);} /* library.scm:5100: f */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k22984 in run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in ... */ static void C_ccall f_22986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_22986,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22990,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_fudge(C_fix(26)); /* library.scm:4741: ##sys#number->string */ t5=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* for-each-loop3349 in print in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in ... */ static void C_fcall f_17206(C_word 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_17206,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_17216,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[638]+1); /* library.scm:3165: g3365 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[638]+1); av2[1]=t3; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[454]+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);}}} /* k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 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 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_13099,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[371]+1 /* (set! vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13103,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24994,a[2]=((C_word)li874),tmp=(C_word)a,a+=3,tmp); /* library.scm:2249: getter-with-setter */ t5=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[132]+1); av2[3]=t4; av2[4]=lf[1113]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* a25003 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in ... */ static void C_ccall f_25004(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25004,4,av);} t4=C_i_cddr(t2); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_set_cdr(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k18791 in check3780 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_18793(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_18793,2,av);} a=C_alloc(9); t2=C_fixnum_plus(((C_word*)t0)[2],((C_word*)t0)[2]); t3=C_i_fixnum_min(lf[0],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18799,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:3515: ##sys#make-string */ t6=*((C_word*)lf[149]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k15580 in build-keyword in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15582,2,av);} /* library.scm:2826: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; C_string_to_symbol(3,av2);}} /* k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in ... */ static void C_ccall f_13091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13091,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[113]+1 /* (set! cdddr ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13095,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2245: getter-with-setter */ t4=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[147]+1); av2[3]=*((C_word*)lf[148]+1); av2[4]=lf[1115]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in ... */ static void C_ccall f_13095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13095,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[147]+1 /* (set! string-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13099,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2246: getter-with-setter */ t4=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[371]+1); av2[3]=*((C_word*)lf[372]+1); av2[4]=lf[1114]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k22980 in run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in ... */ static void C_ccall f_22982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_22982,2,av);} /* library.scm:4739: ##sys#print */ t2=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[455]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_15589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,2)))){ C_save_and_reclaim((void *)f_15589,2,av);} a=C_alloc(26); t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_15592,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* library.scm:2835: ##sys#peek-char-0 */ t3=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_15586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_15586,2,av);} a=C_alloc(26); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_15589,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],tmp=(C_word)a,a+=26,tmp); /* library.scm:2834: r-spaces */ t4=((C_word*)((C_word*)t0)[26])[1]; f_13631(t4,t3);} /* caaadr in k6799 */ 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=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_7602,3,av);} t3=C_i_cadr(t2); t4=C_i_car(t3); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_car(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k22992 in k22988 in k22984 in run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in ... */ static void C_ccall f_22994(C_word c,C_word *av){ C_word tmp; C_word 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_22994,2,av);} /* library.scm:4740: string-append */ t2=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1002]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[1003]; av2[5]=((C_word*)t0)[4]; av2[6]=lf[1004]; av2[7]=t1; av2[8]=lf[1005]; ((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} /* k17214 in for-each-loop3349 in print in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in ... */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_17216,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_17206(t3,((C_word*)t0)[4],t2);} /* k18797 in k18791 in check3780 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_18799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18799,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18802,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:3516: ##sys#copy-bytes */ t4=*((C_word*)lf[697]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t4; 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]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} /* k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in ... */ static void C_ccall f_13087(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13087,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[112]+1 /* (set! cddar ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13091,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25004,a[2]=((C_word)li875),tmp=(C_word)a,a+=3,tmp); /* library.scm:2244: getter-with-setter */ t5=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[113]+1); av2[3]=t4; av2[4]=lf[1116]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k22988 in k22984 in run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in ... */ static void C_ccall f_22990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_22990,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22994,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_fudge(C_fix(27)); /* library.scm:4742: ##sys#number->string */ t5=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* build-keyword in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_15574,3,t0,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15582,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:2827: ##sys#string-append */ t4=*((C_word*)lf[173]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k10788 in vector-copy! in k6799 */ static void C_fcall f_10790(C_word t0,C_word 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,7)))){ C_save_and_reclaim_args((void *)trf_10790,2,t0,t1);} a=C_alloc(6); t2=t1; t3=C_i_check_exact_2(t2,lf[381]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10796,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); t5=C_fixnum_greaterp(t2,((C_word*)t0)[5]); t6=(C_truep(t5)?t5:C_fixnum_greaterp(t2,((C_word*)t0)[6])); if(C_truep(t6)){ /* library.scm:1420: ##sys#signal-hook */ t7=*((C_word*)lf[8]+1);{ C_word av2[8]; av2[0]=t7; av2[1]=t4; av2[2]=lf[151]; av2[3]=lf[381]; av2[4]=lf[382]; av2[5]=((C_word*)t0)[2]; av2[6]=((C_word*)t0)[3]; av2[7]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(8,av2);}} else{ t7=t4;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_10796(2,av2);}}} /* k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in ... */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_13083,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[111]+1 /* (set! cdadr ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13087,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25014,a[2]=((C_word)li876),tmp=(C_word)a,a+=3,tmp); /* library.scm:2243: getter-with-setter */ t5=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[112]+1); av2[3]=t4; av2[4]=lf[1117]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k10794 in k10788 in vector-copy! in k6799 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10796,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10801,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li340),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( f_10801(t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a25023 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 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=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_25024,4,av);} t4=C_i_cadr(t2); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_set_cdr(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* caaddr in k6799 */ static void C_ccall f_7624(C_word c,C_word *av){ C_word tmp; C_word 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_7624,3,av);} t3=C_i_caddr(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_car(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* fpround in k6799 */ 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=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_9047,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9063,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_flonum_round(&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:786: ##sys#error-hook */ t6=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[234]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k9043 in fptruncate in k6799 */ static void C_ccall f_9045(C_word c,C_word *av){ C_word tmp; 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_9045,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_truncate(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#fast-reverse in k6799 */ static void C_ccall f_7942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_7942,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_7948,a[2]=t4,a[3]=((C_word)li116),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_7948(t6,t1,t2,C_SCHEME_END_OF_LIST);} /* a25073 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in ... */ static void C_ccall f_25074(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25074,4,av);} t4=C_i_caar(t2); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_set_car(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* loop in fast-reverse in k6799 */ static void C_fcall f_7948(C_word t0,C_word t1,C_word 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_7948,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:490: 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);}}} /* port-closed? in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11931(C_word c,C_word *av){ C_word tmp; C_word 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_11931,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11935,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:1737: ##sys#check-port */ t4=*((C_word*)lf[437]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[436]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k11933 in port-closed? in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11935(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11935,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_slot(((C_word*)t0)[3],C_fix(8)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a25043 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in ... */ static void C_ccall f_25044(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25044,4,av);} t4=C_i_cddr(t2); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_set_car(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* doloop3603 in k18157 in k18154 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_fcall f_18168(C_word t0,C_word 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_18168,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_18178,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_18178(t6,t4);} else{ t6=C_pairp(t2); t7=t5; f_18178(t7,C_i_not(t6));}} /* cadadr in k6799 */ static void C_ccall f_7642(C_word c,C_word *av){ C_word tmp; C_word 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_7642,3,av);} t3=C_i_cadr(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_cadr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* caddar in k6799 */ 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; 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_7646,3,av);} t3=C_i_car(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_caddr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9061 in fpround in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_9063,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_round(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* fpceiling in k6799 */ 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=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_9065,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9081,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_flonum_ceiling(&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:786: ##sys#error-hook */ t6=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[235]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* ##sys#make-port in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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=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(17,c,1)))){ C_save_and_reclaim((void *)f_11940,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=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} /* a25013 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in ... */ static void C_ccall f_25014(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25014,4,av);} t4=C_i_cdar(t2); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_set_cdr(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k18176 in doloop3603 in k18157 in k18154 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ static void C_fcall f_18178(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_18178,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18181,a[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(t3)){ /* library.scm:3359: outchr */ t4=((C_word*)((C_word*)t0)[2])[1]; f_17388(t4,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(41));} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18190,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* library.scm:3357: outstr */ t5=((C_word*)((C_word*)t0)[7])[1]; f_17316(t5,t4,((C_word*)t0)[4],lf[662]);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18200,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:3360: outchr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_17388(t3,t2,((C_word*)t0)[4],C_make_character(32));}} /* cadaar in k6799 */ static void C_ccall f_7631(C_word c,C_word *av){ C_word tmp; C_word 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_7631,3,av);} t3=C_i_car(t2); t4=C_i_car(t3); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_cadr(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k12992 in k12973 in k12970 in k12967 in getter-with-setter in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_12994,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12996,a[2]=((C_word)li486),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13012,a[2]=((C_word*)t0)[2],a[3]=((C_word)li487),tmp=(C_word)a,a+=4,tmp); /* library.scm:2216: ##sys#decorate-lambda */ t4=*((C_word*)lf[504]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* a12995 in k12992 in k12973 in k12970 in k12967 in getter-with-setter in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in ... */ 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=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_12996,3,av);} if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_eqp(lf[514],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a25063 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 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=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_25064,4,av);} t4=C_i_cadr(t2); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_set_car(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k11435 in mapsafe1770 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_11437,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11441,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:1612: mapsafe */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18179 in k18176 in doloop3603 in k18157 in k18154 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in ... */ static void C_ccall f_18181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18181,2,av);} /* library.scm:3359: outchr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17388(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(41));} /* k15403 in loop in r-comment in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_15405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_15405,2,av);} a=C_alloc(5); switch(t1){ case C_make_character(124): t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15441,a[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:2791: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);} case C_make_character(35): t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15464,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); /* library.scm:2795: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);} default: if(C_truep(C_eofp(t1))){ /* library.scm:2799: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[594]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ /* library.scm:2800: loop */ t2=((C_word*)((C_word*)t0)[4])[1]; f_15401(t2,((C_word*)t0)[3],((C_word*)t0)[2]);}}} /* loop in r-comment in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_fcall f_15401(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_15401,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15405,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); /* library.scm:2789: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+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);}} /* mapsafe1770 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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=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_11405,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; /* Re-use our own argvector */ 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:1610: check */ t9=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; /* Re-use our own argvector */ 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_11437,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:1612: p */ t10=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=t7; ((C_proc)C_fast_retrieve_proc(t10))(3,av2);}} else{ /* library.scm:1613: ##sys#error-not-a-proper-list */ t9=*((C_word*)lf[134]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t1; av2[2]=t7; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}}}} /* k17279 in print* in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in ... */ 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(3,c,2)))){ C_save_and_reclaim((void *)f_17281,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17284,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3176: ##sys#flush-output */ t3=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[454]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k17282 in k17279 in print* in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17284,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[46]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a25083 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in ... */ static void C_ccall f_25084(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25084,4,av);} t4=C_i_cdr(t2); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_set_cdr(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k15691 in k15664 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_15693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_15693,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_15675,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:2855: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_15689,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2857: readrec */ t4=((C_word*)((C_word*)t0)[3])[1]; f_13628(t4,t3);}} /* cdadar in k6799 */ static void C_ccall f_7682(C_word c,C_word *av){ C_word tmp; C_word 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_7682,3,av);} t3=C_i_car(t2); t4=C_i_cadr(t3); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_cdr(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k15687 in k15691 in k15664 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_15689(C_word c,C_word *av){ C_word tmp; 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_15689,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list2(&a,2,lf[600],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#check-symbol in k6799 */ 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=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_7172,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in ... */ static void C_ccall f_17291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_17291,2,av);} a=C_alloc(3); t2=C_mutate2(&lf[642] /* (set! current-print-length ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17295,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3180: make-parameter */ t4=*((C_word*)lf[520]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10436 in map-loop1438 in symbol-append in k6799 */ 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(3,c,2)))){ C_save_and_reclaim((void *)f_10438,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10413(t6,((C_word*)t0)[5],t5);} /* k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 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; 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_17295,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[643]+1 /* (set! ##sys#print-length-limit ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17299,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3181: make-parameter */ t4=*((C_word*)lf[520]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 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 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; if(C_unlikely(!C_demand(C_calculate_demand(110,c,6)))){ C_save_and_reclaim((void *)f_17299,2,av);} a=C_alloc(110); t2=C_mutate2(&lf[644] /* (set! ##sys#print-exit ...) */,t1); t3=*((C_word*)lf[535]+1); t4=*((C_word*)lf[536]+1); t5=C_mutate2((C_word*)lf[638]+1 /* (set! ##sys#print ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17301,a[2]=t4,a[3]=t3,a[4]=((C_word)li601),tmp=(C_word)a,a+=5,tmp)); t6=C_mutate2((C_word*)lf[665]+1 /* (set! ##sys#procedure->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18408,a[2]=((C_word)li602),tmp=(C_word)a,a+=3,tmp)); t7=C_set_block_item(lf[678] /* ##sys#record-printers */,0,C_SCHEME_END_OF_LIST); t8=C_mutate2((C_word*)lf[679]+1 /* (set! ##sys#register-record-printer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18425,a[2]=((C_word)li603),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[664]+1 /* (set! ##sys#user-print-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18445,a[2]=((C_word)li611),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[690]+1 /* (set! ##sys#with-print-length-limit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18596,a[2]=((C_word)li616),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[691]+1 /* (set! bitwise-and ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18681,a[2]=((C_word)li618),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[692]+1 /* (set! bitwise-ior ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18708,a[2]=((C_word)li620),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[693]+1 /* (set! bitwise-xor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18735,a[2]=((C_word)li622),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[694]+1 /* (set! bitwise-not ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18762,a[2]=((C_word)li623),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[695]+1 /* (set! arithmetic-shift ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18765,a[2]=((C_word)li624),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[696]+1 /* (set! bit-set? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18768,a[2]=((C_word)li625),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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18771,a[2]=t18,a[3]=((C_word)li626),tmp=(C_word)a,a+=4,tmp); t20=C_set_block_item(t18,0,t19); t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24706,a[2]=((C_word)li627),tmp=(C_word)a,a+=3,tmp); t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24731,a[2]=((C_word)li628),tmp=(C_word)a,a+=3,tmp); t23=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24749,a[2]=t18,a[3]=((C_word)li629),tmp=(C_word)a,a+=4,tmp); t24=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24768,a[2]=t18,a[3]=((C_word)li630),tmp=(C_word)a,a+=4,tmp); t25=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24787,a[2]=((C_word)li631),tmp=(C_word)a,a+=3,tmp); t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24790,a[2]=((C_word)li632),tmp=(C_word)a,a+=3,tmp); t27=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24804,a[2]=((C_word)li633),tmp=(C_word)a,a+=3,tmp); t28=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24845,a[2]=((C_word)li637),tmp=(C_word)a,a+=3,tmp); t29=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24929,a[2]=((C_word)li638),tmp=(C_word)a,a+=3,tmp); t30=C_a_i_vector(&a,10,t21,t22,t23,t24,*((C_word*)lf[44]+1),t25,t26,t27,t28,t29); t31=C_mutate2((C_word*)lf[701]+1 /* (set! ##sys#string-port-class ...) */,t30); t32=C_mutate2((C_word*)lf[699]+1 /* (set! ##sys#scan-buffer-line ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18827,a[2]=((C_word)li645),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate2((C_word*)lf[512]+1 /* (set! open-input-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19024,a[2]=((C_word)li646),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate2((C_word*)lf[706]+1 /* (set! open-output-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19043,a[2]=((C_word)li647),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate2((C_word*)lf[708]+1 /* (set! get-output-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19062,a[2]=((C_word)li648),tmp=(C_word)a,a+=3,tmp)); t36=*((C_word*)lf[708]+1); t37=*((C_word*)lf[706]+1); t38=C_mutate2((C_word*)lf[710]+1 /* (set! ##sys#print-to-string ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19096,a[2]=t36,a[3]=t37,a[4]=((C_word)li651),tmp=(C_word)a,a+=5,tmp)); t39=C_mutate2((C_word*)lf[659]+1 /* (set! ##sys#pointer->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19139,a[2]=((C_word)li652),tmp=(C_word)a,a+=3,tmp)); t40=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t41=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_software_type,a[2]=((C_word)li867),tmp=(C_word)a,a+=3,tmp); t42=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24704,a[2]=t40,tmp=(C_word)a,a+=3,tmp); /* library.scm:3686: g3939 */ t43=t41;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t43; av2[1]=t42; ((C_proc)C_fast_retrieve_proc(t43))(2,av2);}} /* loop in vector->list in k6799 */ static void C_fcall f_10716(C_word t0,C_word t1,C_word t2){ C_word 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_10716,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_10734,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_fixnum_plus(t2,C_fix(1)); /* library.scm:1400: loop */ t8=t5; t9=t6; t1=t8; t2=t9; goto loop;}} /* a25053 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in ... */ static void C_ccall f_25054(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25054,4,av);} t4=C_i_cdar(t2); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_set_car(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k15680 in k15673 in k15691 in k15664 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_15682(C_word c,C_word *av){ C_word tmp; 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_15682,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list2(&a,2,lf[599],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* cdaadr in k6799 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_7671,3,av);} t3=C_i_cadr(t2); t4=C_i_car(t3); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_cdr(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k15673 in k15691 in k15664 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_15675(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15675,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15682,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2856: readrec */ t3=((C_word*)((C_word*)t0)[3])[1]; f_13628(t3,t2);} /* ##sys#check-inexact in k6799 */ 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=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_7161,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k17265 in for-each-loop3382 in print* in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in ... */ static void C_ccall f_17267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_17267,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_17257(t3,((C_word*)t0)[4],t2);} /* outchr in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_fcall f_17388(C_word t0,C_word 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_17388,4,t0,t1,t2,t3);} a=C_alloc(12); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17392,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_17405,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:3212: current-print-length */ t6=lf[642];{ 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)); /* library.scm:3188: g3450 */ 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);}}} /* loop in check1771 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static C_word C_fcall f_11467(C_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(t2)){ return(C_SCHEME_FALSE);} else{ t3=C_slot(t1,C_fix(0)); t4=C_eqp(t3,C_SCHEME_END_OF_LIST); if(C_truep(t4)){ return(C_SCHEME_FALSE);} else{ t5=C_slot(t1,C_fix(1)); t7=t5; t1=t7; goto loop;}}} /* k10409 in symbol-append in k6799 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10411,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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-loop1438 in symbol-append in k6799 */ static void C_fcall f_10413(C_word 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_10413,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_10438,a[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[354]); /* library.scm:1287: ##sys#symbol->string */ t6=*((C_word*)lf[341]+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=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#check-list in k6799 */ static void C_ccall f_7117(C_word c,C_word *av){ C_word tmp; C_word 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_7117,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k15439 in k15403 in loop in r-comment in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_15441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_15441,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(t3)){ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* library.scm:2793: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_15401(t5,((C_word*)t0)[3],t4);}} else{ /* library.scm:2794: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_15401(t3,((C_word*)t0)[3],((C_word*)t0)[2]);}} /* k17390 in outchr in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_17392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_17392,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_slot(t2,C_fix(2)); /* library.scm:3188: g3450 */ t4=t3;{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* vector-copy! in k6799 */ 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; 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_10774,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[381]); t6=C_i_check_vector_2(t3,lf[381]); 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_10790,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_10790(t13,C_u_i_car(t12));} else{ t12=t11; f_10790(t12,C_i_fixnum_min(t10,t8));}} /* caadar in k6799 */ 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; 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_7613,3,av);} t3=C_i_car(t2); t4=C_i_cadr(t3); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_car(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* ##sys#check-pair in k6799 */ 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=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_7106,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k12976 in k12973 in k12970 in k12967 in getter-with-setter in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in ... */ 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(4,c,4)))){ C_save_and_reclaim((void *)f_12978,2,av);} a=C_alloc(4); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12986,a[2]=((C_word*)t0)[2],a[3]=((C_word)li485),tmp=(C_word)a,a+=4,tmp); /* library.scm:2223: ##sys#decorate-lambda */ t3=*((C_word*)lf[504]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=*((C_word*)lf[507]+1); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=t1; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12973 in k12970 in k12967 in getter-with-setter in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in ... */ static void C_ccall f_12975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_12975,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12978,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_12994,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* library.scm:2217: ##sys#copy-closure */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in scan-buffer-line in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_18850(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_18850,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_18860,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:3607: copy&append */ f_18830(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_18898,a[2]=t1,a[3]=t11,tmp=(C_word)a,a+=4,tmp); /* library.scm:3614: copy&append */ f_18830(t12,t2,t3,t4,t6);} else{ t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_18904,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_18904(t15,C_eqp(t14,C_make_character(10)));} else{ t13=t10; f_18904(t13,C_SCHEME_FALSE);}} else{ t12=t10; f_18904(t12,C_SCHEME_FALSE);}}}} /* k10476 in string->keyword in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10478,2,av);} /* library.scm:1299: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; C_string_to_symbol(3,av2);}} /* ##sys#check-number in k6799 */ 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=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_7139,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a12985 in k12976 in k12973 in k12970 in k12967 in getter-with-setter in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 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=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_12986,4,av);} t4=C_i_setslot(t2,t3,((C_word*)t0)[2]); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a25093 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in ... */ static void C_ccall f_25094(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25094,4,av);} t4=C_i_car(t2); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_set_cdr(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* doloop1563 in vector-fill! in k6799 */ static C_word C_fcall f_10755(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;}} /* ##sys#lambda-info->string in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 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=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_12921,3,av);} a=C_alloc(5); t3=C_block_size(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12928,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:2164: ##sys#make-string */ t6=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k18858 in loop in scan-buffer-line in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_18860,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18865,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li640),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18871,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word)li641),tmp=(C_word)a,a+=5,tmp); /* library.scm:3607: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* keyword? in k6799 */ 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=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_10447,3,av);} if(C_truep(C_i_symbolp(t2))){ t3=C_slot(t2,C_fix(1)); t4=C_subbyte(t3,C_fix(0)); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_eqp(C_fix(0),t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a18864 in k18858 in loop in scan-buffer-line in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_18865(C_word c,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_18865,2,av);} /* library.scm:3608: eos-handler */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#check-string in k6799 */ 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=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_7128,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k24015 in k23952 in k23946 in k23943 in k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in ... */ static void C_ccall f_24017(C_word c,C_word *av){ C_word tmp; C_word t0=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_24017,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24020,a[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:5061: pnum */ f_23818(t2,((C_word*)t0)[5]);} /* ##sys#lambda-info in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 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_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12915,3,av);} /* library.scm:2160: ##sys#lambda-decoration */ t3=*((C_word*)lf[505]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=*((C_word*)lf[507]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k18107 in k18104 in k18038 in doloop3573 in k17981 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_18109,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18116,a[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:3347: ##sys#number->string */ t3=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* procedure-information in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_ccall f_12930(C_word c,C_word *av){ C_word tmp; C_word 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_12930,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12934,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:2170: ##sys#check-closure */ t4=*((C_word*)lf[78]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[510]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k18104 in k18038 in doloop3573 in k17981 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ static void C_ccall f_18106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_18106,2,av);} a=C_alloc(6); t2=(*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]=((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:3346: outchr */ t3=((C_word*)((C_word*)t0)[6])[1]; f_17388(t3,t2,((C_word*)t0)[4],C_make_character(48));} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_18109(2,av2);}}} /* k12926 in lambda-info->string in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12928,2,av);} t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k18188 in k18176 in doloop3603 in k18157 in k18154 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18190,2,av);} /* library.scm:3358: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17752(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k24036 in k24033 in k23946 in k23943 in k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in ... */ static void C_ccall f_24038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_24038,2,av);} /* library.scm:5035: ##sys#print */ t2=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1078]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k24033 in k23946 in k23943 in k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in ... */ static void C_ccall f_24035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_24035,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24038,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:5055: pnum */ f_23818(t2,((C_word*)t0)[4]);} /* k17365 in k17324 in outstr in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_17367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_17367,2,av);} t2=((C_word*)t0)[2]; t3=C_slot(t2,C_fix(2)); t4=C_slot(t3,C_fix(3)); /* library.scm:3188: g3441 */ t5=t4;{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12949 in k12935 in k12932 in procedure-information in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in ... */ static void C_ccall f_12951(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12951,2,av);} /* library.scm:2172: open-input-string */ t2=*((C_word*)lf[512]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k24000 in k23997 in k23994 in k23961 in k23952 in k23946 in k23943 in k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_24002,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24005,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:5071: pnum */ f_23818(t2,((C_word*)t0)[4]);} /* k15462 in k15403 in loop in r-comment in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_15464(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_15464,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:2795: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_15401(t4,((C_word*)t0)[4],t3);} else{ t3=((C_word*)t0)[2]; /* library.scm:2795: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_15401(t4,((C_word*)t0)[4],t3);}} /* k24003 in k24000 in k23997 in k23994 in k23961 in k23952 in k23946 in k23943 in k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in ... */ static void C_ccall f_24005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_24005,2,av);} /* library.scm:5035: ##sys#print */ t2=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1074]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k24457 in k24454 in k24448 in k24445 in k24442 in k24439 in k24436 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_ccall f_24459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_24459,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24462,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3930: ##sys#print */ t3=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[455]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k24454 in k24448 in k24445 in k24442 in k24439 in k24436 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_ccall f_24456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_24456,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24459,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3929: repl */ t3=*((C_word*)lf[1099]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_halt(C_SCHEME_FALSE); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* getter-with-setter in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static void C_ccall f_12962(C_word c,C_word *av){ C_word tmp; C_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_12962,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_12969,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=t7,tmp=(C_word)a,a+=6,tmp); /* library.scm:2210: ##sys#check-closure */ t9=*((C_word*)lf[78]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; av2[2]=t2; av2[3]=lf[516]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* k24448 in k24445 in k24442 in k24439 in k24436 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_24450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_24450,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24456,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[784]+1))){ /* library.scm:3928: ##sys#symbol-has-toplevel-binding? */ t3=*((C_word*)lf[950]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1099]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_24456(2,av2);}}} /* keyword->string in k6799 */ 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=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_10488,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10495,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:1304: keyword? */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k20190 in a20187 in for-each-loop4319 in k20179 in k20176 in k20173 in signal-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in ... */ static void C_ccall f_20192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20192,2,av);} /* library.scm:4020: ##sys#write-char-0 */ t2=*((C_word*)lf[633]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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[455]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k19192 in pointer->string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_19194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19194,2,av);} /* library.scm:3680: string-append */ t2=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[717]; av2[3]=t1; av2[4]=lf[718]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k20196 in k20179 in k20176 in k20173 in signal-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in ... */ static void C_ccall f_20198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20198,2,av);} /* library.scm:4022: ##sys#flush-output */ t2=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* loop in foldl in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ static void C_fcall f_24058(C_word t0,C_word t1,C_word 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_24058,4,t0,t1,t2,t3);} a=C_alloc(5); 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_24076,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:5093: f */ t8=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t8; av2[1]=t6; av2[2]=t3; av2[3]=t7; ((C_proc)C_fast_retrieve_proc(t8))(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);}}} /* k19196 in pointer->string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_19198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19198,2,av);} /* library.scm:3680: ##sys#number->string */ t2=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_ccall f_12959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_12959,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[513]+1 /* (set! setter ...) */,t1); t3=C_mutate2((C_word*)lf[515]+1 /* (set! ##sys#setter ...) */,*((C_word*)lf[513]+1)); t4=C_mutate2((C_word*)lf[516]+1 /* (set! getter-with-setter ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12962,a[2]=((C_word)li488),tmp=(C_word)a,a+=3,tmp)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13039,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2231: getter-with-setter */ t6=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=*((C_word*)lf[96]+1); av2[3]=*((C_word*)lf[98]+1); av2[4]=lf[1129]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_17308,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17311,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:3189: keyword-style */ t4=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a24466 in k24439 in k24436 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in ... */ static void C_ccall f_24467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_24467,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_24477,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:3918: ##sys#print */ t6=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[1100]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+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_24497,a[2]=t7,a[3]=((C_word)li857),tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_24497(t9,t1,t5);}} /* ##sys#print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 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=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_17301,5,av);} a=C_alloc(7); t5=t4; t6=C_i_check_port_2(t5,C_SCHEME_FALSE,C_SCHEME_TRUE,C_SCHEME_FALSE); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17308,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:3188: case-sensitive */ t8=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k12970 in k12967 in getter-with-setter in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in ... */ static void C_ccall f_12972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_12972,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12975,a[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[516]); /* library.scm:2214: ##sys#make-lambda-info */ t4=*((C_word*)lf[506]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ /* library.scm:2215: ##sys#lambda-info */ t3=*((C_word*)lf[508]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k24460 in k24457 in k24454 in k24448 in k24445 in k24442 in k24439 in k24436 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in ... */ static void C_ccall f_24462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_24462,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10493 in keyword->string in k6799 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10495,2,av);} if(C_truep(t1)){ /* library.scm:1305: ##sys#symbol->string */ t2=*((C_word*)lf[341]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ /* library.scm:1306: ##sys#signal-hook */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[56]; av2[3]=lf[357]; av2[4]=lf[358]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* ##sys#check-char in k6799 */ 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=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_7194,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a20187 in for-each-loop4319 in k20179 in k20176 in k20173 in signal-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in ... */ static void C_ccall f_20188(C_word c,C_word *av){ 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_20188,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20192,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:4019: ##sys#print */ t3=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[455]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k24018 in k24015 in k23952 in k23946 in k23943 in k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in ... */ static void C_ccall f_24020(C_word c,C_word *av){ C_word tmp; C_word t0=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_24020,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24023,a[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:5036: ##sys#write-char-0 */ t3=*((C_word*)lf[633]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(47); av2[3]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k12967 in getter-with-setter in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ static void C_ccall f_12969(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12969,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12972,a[2]=((C_word*)t0)[2],a[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:2211: ##sys#check-closure */ t3=*((C_word*)lf[78]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[516]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k20179 in k20176 in k20173 in signal-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_20181,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20198,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_20203,a[2]=t5,a[3]=((C_word)li685),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_20203(t7,t3,t2);} /* k24024 in k24021 in k24018 in k24015 in k23952 in k23946 in k23943 in k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_24026,2,av);} /* library.scm:5035: ##sys#print */ t2=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1076]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k24021 in k24018 in k24015 in k23952 in k23946 in k23943 in k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in ... */ static void C_ccall f_24023(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_24023,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24026,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:5063: pnum */ f_23818(t2,((C_word*)t0)[4]);} /* outstr in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_fcall f_17316(C_word t0,C_word t1,C_word 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_17316,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_17326,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:3196: current-print-length */ t7=lf[642];{ 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)); /* library.scm:3188: g3441 */ 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);}}} /* k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_17311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_17311,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17314,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:3190: ##sys#print-length-limit */ t4=*((C_word*)lf[643]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_17314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(50,c,4)))){ C_save_and_reclaim((void *)f_17314,2,av);} a=C_alloc(50); 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_17316,a[2]=t2,a[3]=((C_word)li588),tmp=(C_word)a,a+=4,tmp)); t14=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17388,a[2]=t2,a[3]=((C_word)li589),tmp=(C_word)a,a+=4,tmp)); t15=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17448,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t10,a[5]=t12,a[6]=((C_word)li590),tmp=(C_word)a,a+=7,tmp)); t16=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17472,a[2]=t6,a[3]=t4,a[4]=((C_word)li592),tmp=(C_word)a,a+=5,tmp)); t17=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17561,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li594),tmp=(C_word)a,a+=5,tmp)); t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17747,a[2]=((C_word*)t0)[5],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_17752,a[2]=t4,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=t6,a[6]=((C_word*)t0)[3],a[7]=t8,a[8]=t20,a[9]=((C_word)li600),tmp=(C_word)a,a+=10,tmp)); t22=((C_word*)t20)[1]; f_17752(t22,t18,((C_word*)t0)[7]);} /* cdaddr in k6799 */ 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 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_7693,3,av);} t3=C_i_caddr(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_cdr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#check-vector in k6799 */ 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; 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_7183,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* string->keyword in k6799 */ static void C_ccall f_10467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10467,3,av);} a=C_alloc(5); t3=C_i_check_string_2(t2,lf[356]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10478,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=C_a_i_string(&a,1,C_make_character(0)); /* library.scm:1299: ##sys#string-append */ t6=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k20173 in signal-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_20175(C_word c,C_word *av){ C_word tmp; C_word t0=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_20175,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20178,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:4010: ##sys#print */ t3=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[455]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k20176 in k20173 in signal-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 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 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_20178,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20181,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_20230,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(t3)){ t5=t4; f_20230(t5,t3);} else{ t5=((C_word*)t0)[2]; t6=C_u_i_length(t5); t7=t4; f_20230(t7,C_fixnum_greaterp(t6,C_fix(1)));}} /* k24074 in loop in foldl in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24076,2,av);} /* library.scm:5093: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_24058(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k19181 in pointer->string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19183,2,av);} /* library.scm:3678: string-append */ t2=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[715]; av2[3]=t1; av2[4]=lf[716]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k19185 in pointer->string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_19187(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19187,2,av);} /* library.scm:3678: ##sys#number->string */ t2=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* foldl in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_ccall f_24049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_24049,5,av);} a=C_alloc(7); t5=C_i_check_list_2(t4,lf[1082]); 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_24058,a[2]=t7,a[3]=t2,a[4]=((C_word)li835),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_24058(t9,t1,t4,t3);} /* k17330 in k17324 in outstr in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_17332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17332,2,av);} /* library.scm:3204: current-print-length */ t2=lf[642];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop4190 in a24466 in k24439 in k24436 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_fcall f_24497(C_word t0,C_word t1,C_word 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_24497,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_24507,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_24489,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* library.scm:3923: ##sys#print */ t8=*((C_word*)lf[638]+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[455]+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);}}} /* k17345 in k17342 in k17324 in outstr in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_17347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_17347,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17350,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3202: ##sys#print-exit */ t3=lf[644];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k17342 in k17324 in outstr in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_17344(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_17344,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17347,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)); /* library.scm:3188: g3441 */ t6=t5;{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t2; av2[2]=t3; av2[3]=lf[645]; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} /* k11387 in loop in map in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11389,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11393,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:1598: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_11369(t5,t3,t4);} /* ##sys#check-exact in k6799 */ static void C_ccall f_7150(C_word c,C_word *av){ C_word tmp; C_word 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_7150,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k21121 in k21117 in error-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_ccall f_21123(C_word c,C_word *av){ C_word tmp; C_word 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_21123,2,av);} /* library.scm:4201: string-append */ t2=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[870]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[871]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k11391 in k11387 in loop in map in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11393,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k24436 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in ... */ static void C_ccall f_24438(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_24438,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24441,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_24523,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* library.scm:3912: ##sys#print */ t4=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[1101]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_24441(2,av2);}}} /* k17348 in k17345 in k17342 in k17324 in outstr in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_17350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_17350,2,av);} t2=*((C_word*)lf[46]+1); /* library.scm:3199: g3434 */ t3=t1;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[46]+1); ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} /* k23540 in make-locative in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_23542(C_word c,C_word *av){ C_word tmp; 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_23542,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k18800 in k18797 in k18791 in check3780 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_18802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18802,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:3519: check */ t4=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k21117 in error-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_21119(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21119,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21123,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:4202: ##sys#number->string */ t4=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k24445 in k24442 in k24439 in k24436 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_24447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_24447,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24450,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3927: print-call-chain */ t3=*((C_word*)lf[778]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k24439 in k24436 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_24441,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24444,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24467,a[2]=((C_word*)t0)[3],a[3]=((C_word)li858),tmp=(C_word)a,a+=4,tmp); /* library.scm:3914: ##sys#with-print-length-limit */ t4=*((C_word*)lf[690]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=C_fix(400); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k24442 in k24439 in k24436 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_24444,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24447,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3926: ##sys#print */ t3=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[455]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21106 in error-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_21108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_21108,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; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[825]; 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_proc(*((C_word*)lf[8]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[8]+1); av2[1]=((C_word*)t0)[3]; av2[2]=lf[825]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; tp(5,av2);}}} /* k19109 in k19098 in print-to-string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_19111,2,av);} /* library.scm:3663: get-output-string */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#scan-buffer-line in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_18827(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_18827,6,av);} a=C_alloc(11); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18830,a[2]=((C_word)li639),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_18850,a[2]=t5,a[3]=t8,a[4]=t6,a[5]=((C_word)li644),tmp=(C_word)a,a+=6,tmp)); t10=((C_word*)t8)[1]; f_18850(t10,t1,t2,t4,t4,t3,lf[704]);} /* k20112 in for-each-loop4272 in loop in k20052 in cleanup-before-exit in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in ... */ static void C_ccall f_20114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_20114,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_20104(t3,((C_word*)t0)[4],t2);} /* string->number in k6799 */ static void C_ccall f_9879(C_word c,C_word *av){ C_word tmp; C_word 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,1)))){ C_save_and_reclaim((void*)f_9879,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; 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)); t10=C_i_nullp(t7); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t12=C_a_i_string_to_number(&a,2,t2,t5); t13=C_eqp(t9,lf[326]); if(C_truep(t13)){ t14=C_a_i_exact_to_inexact(&a,1,t12); t15=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t14=C_eqp(t9,lf[327]); t15=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=(C_truep(t14)?(C_truep(t12)?(C_truep(C_i_finitep(t12))?C_i_inexact_to_exact(t12):C_SCHEME_FALSE):C_SCHEME_FALSE):t12); ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}} /* for-each-loop3912 in k19098 in print-to-string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_fcall f_19116(C_word t0,C_word t1,C_word 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_19116,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_19126,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:3658: g3913 */ t5=((C_word*)t0)[3]; f_19101(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);}}} /* k9868 in k9857 in k9842 in loop in lcm in k6799 */ static void C_ccall f_9870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9870,2,av);} a=C_alloc(3); t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_a_i_cons(&a,2,t1,t2); /* library.scm:1118: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_9834(t4,((C_word*)t0)[4],t3,C_SCHEME_FALSE);} /* k8106 in list->string in k6799 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_8108,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8113,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li133),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_8113(t3,C_fix(0),((C_word*)t0)[4]) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11345 in loop in for-each in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11347,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* library.scm:1591: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_11331(t3,((C_word*)t0)[4],t2);} /* copy&append in scan-buffer-line in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_18830(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_18830,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_18837,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:3597: ##sys#make-string */ t11=*((C_word*)lf[149]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t8; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k18835 in copy&append in scan-buffer-line in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ 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 t4; 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_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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k16814 in k16796 in loop in read-bytevector-literal in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in ... */ static void C_ccall f_16816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16816,2,av);} t2=C_string_to_bytevector(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* for-each-loop4272 in loop in k20052 in cleanup-before-exit in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_fcall f_20104(C_word t0,C_word t1,C_word 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_20104,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_20114,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:3981: 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);}}} /* iter in k8153 in reverse-list->string in k6799 */ static C_word C_fcall f_8164(C_word t0,C_word t1,C_word t2){ C_word tmp; C_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[157]); 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);}} /* k17324 in outstr in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 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 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_17326,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_17332,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_17344,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_17367,a[2]=((C_word*)t0)[5],a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* library.scm:3200: ##sys#substring */ t8=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[6]; av2[3]=C_fix(0); av2[4]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_17344(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)); /* library.scm:3188: g3441 */ t9=t8;{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* ##sys#map in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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=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_11363,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_11369,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=((C_word)li379),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_11369(t7,t1,t3);} /* loop in map in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_fcall f_11369(C_word 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_11369,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_11389,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:1598: 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:1599: ##sys#error-not-a-proper-list */ t4=*((C_word*)lf[134]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[4]; av2[3]=lf[419]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}} /* g3913 in k19098 in print-to-string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_fcall f_19101(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_19101,3,t0,t1,t2);} /* library.scm:3662: ##sys#print */ t3=*((C_word*)lf[638]+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);}} /* k19098 in print-to-string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_19100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_19100,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19101,a[2]=t2,a[3]=((C_word)li649),tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[2]; t5=C_i_check_list_2(t4,lf[417]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19111,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_19116,a[2]=t8,a[3]=t3,a[4]=((C_word)li650),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_19116(t10,t6,t4);} /* k23556 in make-locative in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_23558(C_word c,C_word *av){ C_word tmp; C_word t0=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_23558,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* for-each-loop3382 in print* in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in ... */ static void C_fcall f_17257(C_word 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_17257,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_17267,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[638]+1); /* library.scm:3165: g3398 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[638]+1); av2[1]=t3; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[454]+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);}}} /* k21143 in error-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_21145(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_21145,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; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[825]; 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_proc(*((C_word*)lf[8]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[8]+1); av2[1]=((C_word*)t0)[3]; av2[2]=lf[825]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; tp(5,av2);}}} /* lcm in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_9822,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fix(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_9834,a[2]=t4,a[3]=((C_word)li290),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_9834(t6,t1,t2,C_SCHEME_TRUE);}} /* k9818 in lcm in k6799 */ 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,3)))){ C_save_and_reclaim((void *)f_9820,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_quotient(4,av2);}} /* k19152 in k19148 in pointer->string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ 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,6)))){ C_save_and_reclaim((void *)f_19154,2,av);} /* library.scm:3669: string-append */ t2=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[711]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[712]; av2[5]=t1; av2[6]=lf[713]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k19148 in pointer->string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_19150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_19150,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19154,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_19158,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* library.scm:3675: ##sys#pointer->address */ t5=*((C_word*)lf[714]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19156 in k19148 in pointer->string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_19158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19158,2,av);} /* library.scm:3675: ##sys#number->string */ t2=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11301(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11301,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11304,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1571: char-name */ t3=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1136]; av2[3]=C_make_character(12); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 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(132,c,6)))){ C_save_and_reclaim((void *)f_11307,2,av);} a=C_alloc(132); t2=C_mutate2((C_word*)lf[408]+1 /* (set! procedure? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11309,a[2]=((C_word)li370),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[409]+1 /* (set! apply ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_apply,a[2]=((C_word)li371),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[410]+1 /* (set! ##sys#call-with-current-continuation ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_call_cc,a[2]=((C_word)li372),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[411]+1 /* (set! ##sys#call-with-direct-continuation ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11314,a[2]=((C_word)li373),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[412]+1 /* (set! ##sys#call-with-cthulhu ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_call_with_cthulhu,a[2]=((C_word)li374),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[413]+1 /* (set! values ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_values,a[2]=((C_word)li375),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[414]+1 /* (set! call-with-values ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_call_with_values,a[2]=((C_word)li376),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[415]+1 /* (set! ##sys#call-with-values ...) */,*((C_word*)lf[414]+1)); t10=C_mutate2((C_word*)lf[416]+1 /* (set! ##sys#for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11325,a[2]=((C_word)li378),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[418]+1 /* (set! ##sys#map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11363,a[2]=((C_word)li380),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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11405,a[2]=t15,a[3]=t13,a[4]=((C_word)li381),tmp=(C_word)a,a+=5,tmp); t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11449,a[2]=((C_word)li383),tmp=(C_word)a,a+=3,tmp); t18=C_set_block_item(t13,0,t16); t19=C_set_block_item(t15,0,t17); t20=C_mutate2((C_word*)lf[417]+1 /* (set! for-each ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11503,a[2]=t13,a[3]=t15,a[4]=((C_word)li388),tmp=(C_word)a,a+=5,tmp)); t21=C_mutate2((C_word*)lf[419]+1 /* (set! map ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11589,a[2]=t13,a[3]=t15,a[4]=((C_word)li393),tmp=(C_word)a,a+=5,tmp)); t22=C_set_block_item(lf[421] /* ##sys#dynamic-winds */,0,C_SCHEME_END_OF_LIST); t23=C_mutate2((C_word*)lf[422]+1 /* (set! dynamic-wind ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11696,a[2]=((C_word)li395),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate2((C_word*)lf[423]+1 /* (set! ##sys#dynamic-wind ...) */,*((C_word*)lf[422]+1)); t25=C_mutate2((C_word*)lf[424]+1 /* (set! call-with-current-continuation ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11727,a[2]=((C_word)li398),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate2((C_word*)lf[426]+1 /* (set! call/cc ...) */,*((C_word*)lf[424]+1)); t27=C_mutate2(&lf[425] /* (set! ##sys#dynamic-unwind ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11767,a[2]=((C_word)li399),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate2((C_word*)lf[427]+1 /* (set! continuation-capture ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11825,a[2]=((C_word)li400),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate2((C_word*)lf[429]+1 /* (set! continuation? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11835,a[2]=((C_word)li401),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate2((C_word*)lf[430]+1 /* (set! ##sys#continuation-graft ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_continuation_graft,a[2]=((C_word)li402),tmp=(C_word)a,a+=3,tmp)); t31=C_mutate2((C_word*)lf[431]+1 /* (set! continuation-graft ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11842,a[2]=((C_word)li403),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate2((C_word*)lf[432]+1 /* (set! continuation-return ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11875,a[2]=((C_word)li405),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate2((C_word*)lf[433]+1 /* (set! port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11890,a[2]=((C_word)li406),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate2((C_word*)lf[434]+1 /* (set! input-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11893,a[2]=((C_word)li407),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate2((C_word*)lf[435]+1 /* (set! output-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11910,a[2]=((C_word)li408),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate2((C_word*)lf[436]+1 /* (set! port-closed? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11931,a[2]=((C_word)li409),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate2((C_word*)lf[438]+1 /* (set! ##sys#make-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11940,a[2]=((C_word)li410),tmp=(C_word)a,a+=3,tmp)); t38=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25252,a[2]=((C_word)li412),tmp=(C_word)a,a+=3,tmp); t39=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25295,a[2]=((C_word)li414),tmp=(C_word)a,a+=3,tmp); t40=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25338,a[2]=((C_word)li415),tmp=(C_word)a,a+=3,tmp); t41=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25341,a[2]=((C_word)li416),tmp=(C_word)a,a+=3,tmp); t42=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25344,a[2]=((C_word)li417),tmp=(C_word)a,a+=3,tmp); t43=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25350,a[2]=((C_word)li418),tmp=(C_word)a,a+=3,tmp); t44=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25353,a[2]=((C_word)li419),tmp=(C_word)a,a+=3,tmp); t45=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25356,a[2]=((C_word)li422),tmp=(C_word)a,a+=3,tmp); t46=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25458,a[2]=((C_word)li425),tmp=(C_word)a,a+=3,tmp); t47=C_a_i_vector(&a,10,t38,t39,t40,t41,t42,t43,t44,t45,t46,C_SCHEME_FALSE); t48=C_mutate2((C_word*)lf[451]+1 /* (set! ##sys#stream-port-class ...) */,t47); t49=C_mutate2((C_word*)lf[452]+1 /* (set! ##sys#open-file-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_open_file_port,a[2]=((C_word)li426),tmp=(C_word)a,a+=3,tmp)); t50=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11968,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1884: ##sys#make-port */ t51=*((C_word*)lf[438]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t51; av2[1]=t50; av2[2]=C_SCHEME_TRUE; av2[3]=*((C_word*)lf[451]+1); av2[4]=lf[1134]; av2[5]=lf[472]; ((C_proc)(void*)(*((C_word*)t51+1)))(6,av2);}} /* loop in lcm in k6799 */ static void C_fcall f_9834(C_word t0,C_word t1,C_word 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_9834,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_slot(t2,C_fix(0)); t5=t4; t6=C_slot(t2,C_fix(1)); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9844,a[2]=t7,a[3]=t1,a[4]=t5,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); if(C_truep(t3)){ /* library.scm:1113: ##sys#check-integer */ t9=*((C_word*)lf[74]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t8; av2[2]=t5; av2[3]=lf[324]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t9=t8;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_9844(2,av2);}}} /* k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11304,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11307,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1572: char-name */ t3=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1135]; av2[3]=C_make_character(8); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* procedure? in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11309(C_word c,C_word *av){ C_word tmp; C_word 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_11309,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_closurep(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* print* in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in ... */ static void C_ccall f_17238(C_word c,C_word *av){ C_word tmp; 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_17238,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[454]+1); t4=C_i_check_port_2(*((C_word*)lf[454]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[640]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17281,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=C_i_check_list_2(t2,lf[417]); 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_17257,a[2]=t8,a[3]=((C_word)li586),tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_17257(t10,t5,t2);} /* k17231 in k17228 in print in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in ... */ static void C_ccall f_17233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17233,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[46]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k17228 in print in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_17230,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17233,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3170: ##sys#write-char-0 */ t3=*((C_word*)lf[633]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[454]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k9842 in loop in lcm in k6799 */ static void C_ccall f_9844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_9844,2,av);} a=C_alloc(7); if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_abs(&a,1,((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_slot(((C_word*)t0)[2],C_fix(0)); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9859,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* library.scm:1117: ##sys#check-integer */ t5=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=lf[324]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* ##sys#call-with-direct-continuation in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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=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_11314,3,av);} t3=C_direct_continuation(C_SCHEME_FALSE); t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* doloop516 in k8106 in list->string in k6799 */ static C_word C_fcall f_8113(C_word t0,C_word t1,C_word t2){ C_word tmp; C_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[155]); 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;}} /* k22535 in k22505 in loop2 in k22469 in k22457 in k22445 in loop in k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in ... */ static void C_ccall f_22537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_22537,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,3,lf[95],t1,((C_word*)t0)[2]); t3=C_a_i_list(&a,3,lf[95],((C_word*)t0)[3],t2); /* library.scm:4627: loop2 */ t4=((C_word*)((C_word*)t0)[4])[1]; f_22484(t4,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_END_OF_LIST,t3);} /* k9857 in k9842 in loop in lcm in k6799 */ static void C_ccall f_9859(C_word c,C_word *av){ C_word tmp; C_word t0=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_9859,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9870,a[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:1120: ##sys#lcm */ t3=*((C_word*)lf[323]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* ##sys#pointer->string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_19139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_19139,3,av);} a=C_alloc(7); if(C_truep(C_taggedpointerp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19150,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:3671: ##sys#print-to-string */ t7=*((C_word*)lf[710]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t3; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t5=C_a_i_list1(&a,1,t4); /* library.scm:3671: ##sys#print-to-string */ t6=*((C_word*)lf[710]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} else{ if(C_truep(C_swigpointerp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19183,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19187,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* library.scm:3678: ##sys#pointer->address */ t5=*((C_word*)lf[714]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19194,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19198,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* library.scm:3680: ##sys#pointer->address */ t5=*((C_word*)lf[714]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}} /* ##sys#for-each in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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=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_11325,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_11331,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=((C_word)li377),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_11331(t7,t1,t3);} /* k22505 in loop2 in k22469 in k22457 in k22445 in loop in k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in ... */ static void C_fcall f_22507(C_word t0,C_word 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_22507,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:4625: loop2 */ t7=((C_word*)((C_word*)t0)[4])[1]; f_22484(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_22537,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:4630: ##sys#print-to-string */ t7=*((C_word*)lf[710]+1);{ 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);}}} /* k14138 in k14125 in eat-ws in k14088 in k14068 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ static void C_ccall f_14140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14140,2,av);} /* library.scm:2513: eat-ws */ t2=((C_word*)((C_word*)t0)[2])[1]; f_14095(t2,((C_word*)t0)[3],t1,C_SCHEME_TRUE);} /* string-fill! in k6799 */ 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; 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_8194,4,av);} t4=C_i_check_string_2(t2,lf[159]); t5=C_i_check_char_2(t3,lf[159]); t6=C_block_size(t2); t7=C_set_memory(t2,t3,t6); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* a24928 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_24929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_24929,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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=lf[700]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24948,a[2]=t2,a[3]=t6,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:3586: ##sys#substring */ t8=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=t4; av2[3]=t3; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} /* loop in for-each in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_fcall f_11331(C_word 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_11331,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_11347,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:1590: 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:1592: ##sys#error-not-a-proper-list */ t4=*((C_word*)lf[134]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[4]; av2[3]=lf[417]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}} /* k22554 in k22457 in k22445 in loop in k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 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,3)))){ C_save_and_reclaim((void *)f_22556,2,av);} /* library.scm:4616: ##sys#read-warning */ t2=*((C_word*)lf[540]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_16963 in syntax-setter in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in ... */ static void C_ccall f_16963(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(8,c,3)))){ C_save_and_reclaim((void *)f_16963,4,av);} a=C_alloc(8); if(C_truep(C_i_symbolp(t2))){ /* library.scm:3084: ##sys#set-read-mark! */ t4=*((C_word*)lf[627]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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|7,a[1]=(C_word)f_16976,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); /* library.scm:3086: crt */ t5=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* syntax-setter in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in ... */ static void C_fcall f_16961(C_word t0,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(7,0,4)))){ C_save_and_reclaim_args((void *)trf_16961,5,t0,t1,t2,t3,t4);} a=C_alloc(7); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16963,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=((C_word)li575),tmp=(C_word)a,a+=7,tmp); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k19124 in for-each-loop3912 in k19098 in print-to-string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_19126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_19126,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_19116(t3,((C_word*)t0)[4],t2);} /* k14125 in eat-ws in k14088 in k14068 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_14127,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_14140,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:2513: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ /* library.scm:2514: eat-ws */ t3=((C_word*)((C_word*)t0)[2])[1]; f_14095(t3,((C_word*)t0)[3],t1,C_SCHEME_TRUE);}} /* k18000 in doloop3573 in k17981 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_18002(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18002,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_17989(t4,((C_word*)t0)[5],t2,t3);} /* k16986 in k16977 in k16974 */ static void C_ccall f_16988(C_word c,C_word *av){ C_word tmp; C_word t0=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_16988,2,av);} a=C_alloc(8); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16994,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); /* library.scm:3093: ##sys#check-closure */ t3=*((C_word*)lf[78]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ 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);}}} /* k22577 in k22445 in loop in k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_22579,2,av);} a=C_alloc(9); switch(t1){ case C_make_character(35): t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22588,a[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_22595,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:4636: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);} case C_make_character(123): t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22612,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:4638: read-escaped-sexp */ f_22233(t2,((C_word*)t0)[6],C_SCHEME_TRUE); default: t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22631,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:4640: read-escaped-sexp */ f_22233(t2,((C_word*)t0)[6],C_SCHEME_FALSE);}} /* k14110 in eat-ws in k14088 in k14068 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14112,2,av);} /* library.scm:2507: eat-ws */ t2=((C_word*)((C_word*)t0)[2])[1]; f_14095(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k21869 in loop in peek-c-string-list in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_21871,2,av);} a=C_alloc(4); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21881,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:4361: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_21861(t5,t3,t4);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16974 */ static void C_ccall f_16976(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_16976,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16979,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_16979(t4,C_SCHEME_UNDEFINED);} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17022,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* library.scm:3088: ##sys#make-vector */ t5=*((C_word*)lf[375]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_fix(256); av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k16977 in k16974 */ static void C_fcall f_16979(C_word 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_16979,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_16988,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); /* library.scm:3091: ##sys#check-range */ t6=*((C_word*)lf[55]+1);{ C_word av2[6]; av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=C_fix(0); av2[4]=C_fix(256); av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* k8153 in reverse-list->string in k6799 */ 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 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_8155,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_8164,a[2]=t2,a[3]=((C_word)li135),tmp=(C_word)a,a+=4,tmp); t5=( f_8164(t4,((C_word*)t0)[3],t3) ); t6=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* loop in peek-c-string-list in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_fcall f_21861(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_21861,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_21871,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=stub4712(t7,t8,t9); /* library.scm:4354: ##sys#peek-c-string */ t11=*((C_word*)lf[36]+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);}}} /* k22593 in k22577 in k22445 in loop in k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_22595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_22595,2,av);} /* library.scm:4636: ##sys#write-char-0 */ t2=*((C_word*)lf[633]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* reverse-list->string in k6799 */ 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=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_8144,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_8155,a[2]=t4,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:559: ##sys#make-string */ t6=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* library.scm:567: ##sys#error-not-a-proper-list */ t3=*((C_word*)lf[134]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=lf[157]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* ##sys#fits-in-int? in k6799 */ static void C_ccall f_9378(C_word c,C_word *av){ C_word tmp; C_word 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_9378,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fits_in_int_p(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* inexact? in k6799 */ 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=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_9372,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_inexactp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k16916 */ static void C_ccall f_16918(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16918,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k21879 in k21869 in loop in peek-c-string-list in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_ccall f_21881(C_word c,C_word *av){ C_word tmp; 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_21881,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k18038 in doloop3573 in k17981 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_18040(C_word c,C_word *av){ C_word tmp; C_word t0=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_18040,2,av);} a=C_alloc(7); switch(((C_word*)t0)[2]){ case C_fix(7): /* library.scm:3337: outchr */ t2=((C_word*)((C_word*)t0)[3])[1]; f_17388(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(97)); case C_fix(8): /* library.scm:3338: outchr */ t2=((C_word*)((C_word*)t0)[3])[1]; f_17388(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(98)); case C_fix(9): /* library.scm:3339: outchr */ t2=((C_word*)((C_word*)t0)[3])[1]; f_17388(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(116)); case C_fix(10): /* library.scm:3340: outchr */ t2=((C_word*)((C_word*)t0)[3])[1]; f_17388(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(110)); case C_fix(11): /* library.scm:3341: outchr */ t2=((C_word*)((C_word*)t0)[3])[1]; f_17388(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(118)); case C_fix(12): /* library.scm:3342: outchr */ t2=((C_word*)((C_word*)t0)[3])[1]; f_17388(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(102)); case C_fix(13): /* library.scm:3343: outchr */ t2=((C_word*)((C_word*)t0)[3])[1]; f_17388(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_18106,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:3345: outchr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_17388(t3,t2,((C_word*)t0)[5],C_make_character(120));}} /* zero? in k6799 */ 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=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_9387,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_zerop(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#fits-in-unsigned-int? in k6799 */ 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=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_9381,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fits_in_unsigned_int_p(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#flonum-in-fixnum-range? in k6799 */ static void C_ccall f_9384(C_word c,C_word *av){ C_word tmp; C_word 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_9384,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_flonum_in_fixnum_range_p(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#poke-double in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21835,5,av);} t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_poke_double(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k21828 in poke-c-string in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_21830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21830,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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 k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21832,5,av);} t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_poke_integer(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k13582 in skip in k13573 in skip-to-eol in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_fcall f_13584(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_13584,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13591,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:2418: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+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_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);}}} /* number? in k6799 */ 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=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_9354,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_numberp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k22586 in k22577 in k22445 in loop in k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_22588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22588,2,av);} /* library.scm:4637: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_22443(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* ##sys#poke-c-string in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21825,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21830,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* library.scm:4348: ##sys#make-c-string */ t6=*((C_word*)lf[37]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k21821 in peek-and-free-nonnull-c-string in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_21823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21823,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k13573 in skip-to-eol in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ 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(7,c,3)))){ C_save_and_reclaim((void *)f_13575,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_13577,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li512),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_13577(t5,((C_word*)t0)[3],t1);} /* skip in k13573 in skip-to-eol in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_fcall f_13577(C_word t0,C_word t1,C_word 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_13577,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13584,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_eofp(t2))){ t4=t3; f_13584(t4,C_SCHEME_FALSE);} else{ t4=C_eqp(C_make_character(10),t2); t5=t3; f_13584(t5,C_i_not(t4));}} /* exact? in k6799 */ 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=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_9369,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_exactp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* integer? in k6799 */ static void C_ccall f_9365(C_word c,C_word *av){ C_word tmp; C_word 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_9365,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_integerp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* rational? in k6799 */ 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=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_9360,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_rationalp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k25586 in k25541 in loop in k25463 in a25457 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_25588,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_25557,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)li423),tmp=(C_word)a,a+=9,tmp); /* library.scm:1864: ##sys#dispatch-interrupt */ t8=*((C_word*)lf[439]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=((C_word*)t0)[8]; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25580,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_25584,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k25578 in k25586 in k25541 in loop in k25463 in a25457 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 in ... */ static void C_ccall f_25580(C_word c,C_word *av){ C_word tmp; C_word 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_25580,2,av);} /* library.scm:1870: ##sys#signal-hook */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[440]; av2[3]=lf[448]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k25582 in k25586 in k25541 in loop in k25463 in a25457 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 in ... */ static void C_ccall f_25584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_25584,2,av);} /* library.scm:1872: ##sys#string-append */ t2=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[449]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* ##sys#peek-c-string-list in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ 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=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_21855,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_21861,a[2]=t3,a[3]=t5,a[4]=t2,a[5]=((C_word)li744),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_21861(t7,t1,C_fix(0));} /* ##sys#make-locative in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in ... */ static void C_ccall f_23402(C_word c,C_word *av){ C_word tmp; C_word t0=av[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 *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_23402,6,av);} a=C_alloc(6); if(C_truep(C_immp(t2))){ /* library.scm:4905: ##sys#signal-hook */ t6=*((C_word*)lf[8]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=lf[56]; av2[3]=t5; av2[4]=lf[1047]; 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_23424,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:4907: ##sys#check-range */ t10=*((C_word*)lf[55]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t8; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t9; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t10+1)))(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_23437,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:4914: ##sys#check-range */ t11=*((C_word*)lf[55]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t9; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t10; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t11+1)))(6,av2);}} else{ if(C_truep(C_structurep(t2))){ t9=C_slot(t2,C_fix(0)); t10=C_eqp(t9,lf[1048]); if(C_truep(t10)){ t11=C_slot(t2,C_fix(1)); t12=t11; t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23462,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:4920: ##sys#check-range */ t15=*((C_word*)lf[55]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t13; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t14; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t15+1)))(6,av2);}} else{ t11=C_eqp(t9,lf[1049]); if(C_truep(t11)){ t12=C_slot(t2,C_fix(1)); t13=t12; t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23478,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:4924: ##sys#check-range */ t16=*((C_word*)lf[55]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t14; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t15; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t16+1)))(6,av2);}} else{ t12=C_eqp(t9,lf[1050]); if(C_truep(t12)){ t13=C_slot(t2,C_fix(1)); t14=t13; t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23494,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:4928: ##sys#check-range */ t17=*((C_word*)lf[55]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t17; av2[1]=t15; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t16; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t17+1)))(6,av2);}} else{ t13=C_eqp(t9,lf[1051]); if(C_truep(t13)){ t14=C_slot(t2,C_fix(1)); t15=t14; t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23510,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:4932: ##sys#check-range */ t18=*((C_word*)lf[55]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=t16; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t17; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t18+1)))(6,av2);}} else{ t14=C_eqp(t9,lf[1052]); if(C_truep(t14)){ t15=C_slot(t2,C_fix(1)); t16=t15; t17=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23526,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:4936: ##sys#check-range */ t19=*((C_word*)lf[55]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t19; av2[1]=t17; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t18; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t19+1)))(6,av2);}} else{ t15=C_eqp(t9,lf[1053]); if(C_truep(t15)){ t16=C_slot(t2,C_fix(1)); t17=t16; t18=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23542,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:4940: ##sys#check-range */ t20=*((C_word*)lf[55]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t20; av2[1]=t18; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t19; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t20+1)))(6,av2);}} else{ t16=C_eqp(t9,lf[1054]); if(C_truep(t16)){ t17=C_slot(t2,C_fix(1)); t18=t17; t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23558,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:4944: ##sys#check-range */ t21=*((C_word*)lf[55]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t21; av2[1]=t19; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t20; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t21+1)))(6,av2);}} else{ t17=C_eqp(t9,lf[1055]); if(C_truep(t17)){ t18=C_slot(t2,C_fix(1)); t19=t18; t20=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23574,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:4948: ##sys#check-range */ t22=*((C_word*)lf[55]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t22; av2[1]=t20; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t21; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t22+1)))(6,av2);}} else{ t18=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23581,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t19=C_block_size(t2); t20=C_fixnum_difference(t19,C_fix(1)); /* library.scm:4952: ##sys#check-range */ t21=*((C_word*)lf[55]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t21; av2[1]=t18; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t20; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t21+1)))(6,av2);}}}}}}}}}} else{ if(C_truep(C_i_stringp(t2))){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23618,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:4955: ##sys#check-range */ t11=*((C_word*)lf[55]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t9; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t10; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t11+1)))(6,av2);}} else{ /* library.scm:4958: ##sys#signal-hook */ t9=*((C_word*)lf[8]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t1; av2[2]=lf[56]; av2[3]=t5; av2[4]=lf[1056]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(6,av2);}}}}}}} /* k24979 */ static void C_ccall f_24981(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24981,2,av);} /* library.scm:3104: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k21158 in k21154 in error-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_ccall f_21160(C_word c,C_word *av){ C_word tmp; C_word 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_21160,2,av);} /* library.scm:4210: string-append */ t2=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[872]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[873]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k13589 in k13582 in skip in k13573 in skip-to-eol in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13591,2,av);} /* library.scm:2418: skip */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13577(t2,((C_word*)t0)[3],t1);} /* k6987 in k6976 in k6973 in stop-timer in k6799 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6989,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k14192 in k14088 in k14068 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_fcall f_14194(C_word t0,C_word 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_14194,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_14220,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:2533: r-usequence */ t7=((C_word*)((C_word*)t0)[7])[1]; f_13679(t7,t6,lf[565],C_fix(2),C_fix(8));} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14231,a[2]=((C_word*)t0)[2],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:2536: ##sys#read-warning */ t3=*((C_word*)lf[540]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[566]; av2[4]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k21154 in error-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_21156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21156,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21160,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:4211: ##sys#number->string */ t4=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a24993 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in ... */ static void C_ccall f_24994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_24994,5,av);} t5=C_i_list_tail(t2,t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_set_car(t5,t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* negative? in k6799 */ 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=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_9393,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_negativep(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* angle in k6799 */ static void C_ccall f_9399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,1)))){ C_save_and_reclaim((void *)f_9399,3,av);} a=C_alloc(8); t3=C_i_check_number_2(t2,lf[285]); if(C_truep(C_i_lessp(t2,C_fix(0)))){ t4=C_a_i_flonum_acos(&a,1,lf[286]); t5=C_a_i_flonum_times(&a,2,lf[287],t4); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[286]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* abs in k6799 */ 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=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,1)))){ C_save_and_reclaim((void *)f_9396,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_abs(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* positive? in k6799 */ static void C_ccall f_9390(C_word c,C_word *av){ C_word tmp; C_word 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_9390,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_positivep(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a24963 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in ... */ static void C_ccall f_24964(C_word c,C_word *av){ C_word tmp; C_word 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_24964,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24966,a[2]=t2,a[3]=((C_word)li870),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_24966 in a24963 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in ... */ static void C_ccall f_24966(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24966,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24970,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:3111: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k24968 */ 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,2)))){ C_save_and_reclaim((void *)f_24970,2,av);} /* library.scm:3112: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* f_24977 in a24974 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in ... */ static void C_ccall f_24977(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24977,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24981,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:3103: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k21811 in peek-and-free-c-string in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_21813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_21813,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a24974 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in ... */ static void C_ccall f_24975(C_word c,C_word *av){ C_word tmp; C_word 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_24975,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24977,a[2]=t2,a[3]=((C_word)li872),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#peek-and-free-nonnull-c-string in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21819(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_21819,4,av);} a=C_alloc(6); t4=C_fetch_c_strlen(t2,t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21823,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* library.scm:4342: ##sys#make-string */ t6=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k16992 in k16986 in k16977 in k16974 */ static void C_ccall f_16994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_16994,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_17005,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* library.scm:3094: wrap */ t5=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14827 in r-number-with-radix in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_14829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14829,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_14774,a[2]=((C_word*)t0)[2],a[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:2668: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ /* library.scm:2676: r-number */ t3=((C_word*)((C_word*)t0)[4])[1]; f_14620(t3,((C_word*)t0)[2],C_fix(10),((C_word*)t0)[5]);}} /* k14160 in eat-ws in k14088 in k14068 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_14162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14162,2,av);} /* library.scm:2518: eat-ws */ t2=((C_word*)((C_word*)t0)[2])[1]; f_14095(t2,((C_word*)t0)[3],t1,C_SCHEME_TRUE);} /* k24946 in a24928 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_24948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_24948,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k14163 in eat-ws in k14088 in k14068 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_14165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14165,2,av);} /* library.scm:2524: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13786(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* k21799 in peek-nonnull-c-string in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_21801(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_21801,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#peek-and-free-c-string in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 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=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_21803,4,av);} a=C_alloc(6); if(C_truep(C_null_pointerp(t2))){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_fetch_c_strlen(t2,t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21813,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* library.scm:4335: ##sys#make-string */ t6=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* a24952 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in ... */ static void C_ccall f_24953(C_word c,C_word *av){ C_word tmp; C_word 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_24953,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24955,a[2]=t2,a[3]=((C_word)li868),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_24955 in a24952 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in ... */ static void C_ccall f_24955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_24955,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24959,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* library.scm:3119: ##sys#read-char-0 */ t6=*((C_word*)lf[523]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k24957 */ static void C_ccall f_24959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24959,2,av);} /* library.scm:3120: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k23422 in make-locative in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_23424,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* ##sys#stop-timer in k6799 */ static void C_ccall f_6971(C_word c,C_word *av){ C_word tmp; 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_6971,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_stop_timer,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6975,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:224: g153 */ t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k6973 in stop-timer in k6799 */ static void C_ccall f_6975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6975,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6978,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:228: ##sys#gc */ t4=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6976 in k6973 in stop-timer in k6799 */ static void C_ccall f_6978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6978,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_stop_timer,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6989,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:229: g155 */ t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* loop in k14837 in r-token in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_fcall f_14841(C_word t0,C_word 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_14841,4,t0,t1,t2,t3);} a=C_alloc(10); t4=C_eofp(t2); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_14851,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],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); if(C_truep(t4)){ t6=t5; f_14851(t6,t4);} else{ t6=C_u_i_char_whitespacep(t2); t7=t5; f_14851(t7,(C_truep(t6)?t6:C_i_memq(t2,((C_word*)t0)[7])));}} /* ##sys#start-timer in k6799 */ static void C_ccall f_6965(C_word c,C_word *av){ 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_6965,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6969,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:221: ##sys#gc */ t3=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6967 in start-timer in k6799 */ static void C_ccall f_6969(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6969,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_start_timer(); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k14837 in r-token in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_14839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_14839,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_14841,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)li536),tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_14841(t5,((C_word*)t0)[7],t1,C_SCHEME_END_OF_LIST);} /* r-token in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_14831(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_14831,2,t0,t1);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14839,a[2]=((C_word*)t0)[2],a[3]=((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); /* library.scm:2679: ##sys#peek-char-0 */ t3=*((C_word*)lf[525]+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);}} /* ##sys#lcm in k6799 */ static void C_ccall f_9808(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_9808,4,av);} a=C_alloc(8); t4=C_a_i_times(&a,2,t2,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9820,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* library.scm:1105: ##sys#gcd */ t7=*((C_word*)lf[321]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* ##sys#immediate? in k6799 */ 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=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_6991,3,av);} t3=C_blockp(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_not(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#message in k6799 */ 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=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_6998,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_message(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k25509 in loop in k25463 in a25457 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_25511,2,av);} /* library.scm:1854: ##sys#string-append */ t2=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* peek-char in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_13414,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[453]+1); t4=C_i_check_port_2(*((C_word*)lf[453]+1),C_SCHEME_TRUE,C_SCHEME_TRUE,lf[444]); /* library.scm:2344: ##sys#peek-char-0 */ t5=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t1; av2[2]=*((C_word*)lf[453]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_i_car(t2); t4=C_i_check_port_2(t3,C_SCHEME_TRUE,C_SCHEME_TRUE,lf[444]); /* library.scm:2344: ##sys#peek-char-0 */ t5=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k12898 in make-lambda-info in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static void C_ccall f_12900(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_12900,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k23492 in make-locative in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_23494(C_word c,C_word *av){ C_word tmp; C_word t0=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_23494,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k25524 in loop in k25463 in a25457 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_25526,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_25530,a[2]=((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:1858: ##sys#string-append */ t4=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14849 in loop in k14837 in r-token in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_fcall f_14851(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_14851,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ /* library.scm:2683: ##sys#reverse-list->string */ t2=*((C_word*)lf[158]+1);{ C_word av2[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_char_equalp(((C_word*)t0)[4],C_make_character(0)))){ /* library.scm:2685: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[589]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14866,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],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=((C_word*)t0)[4]; if(C_truep(C_u_i_char_equalp(t3,C_make_character(47)))){ t4=C_set_block_item(((C_word*)t0)[9],0,C_SCHEME_TRUE); t5=t2; f_14866(t5,t4);} else{ t4=t2; f_14866(t4,C_SCHEME_UNDEFINED);}}}} /* vector->list in k6799 */ 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=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_10707,3,av);} a=C_alloc(8); t3=C_i_check_vector_2(t2,lf[377]); 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_10716,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li335),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_10716(t8,t1,C_fix(0));} /* current-milliseconds in k6799 */ 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; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_6937,2,av);} a=C_alloc(4); t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_current_milliseconds(&a,1,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#fudge in k6799 */ static void C_ccall f_6931(C_word c,C_word *av){ C_word tmp; C_word 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_6931,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fudge(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k23476 in make-locative in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_23478(C_word c,C_word *av){ C_word tmp; 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_23478,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* ##sys#lambda-info? in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_ccall f_12902(C_word c,C_word *av){ C_word tmp; C_word 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_12902,3,av);} if(C_truep(C_immp(t2))){ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_lambdainfop(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* read in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in ... */ static void C_ccall f_13432(C_word c,C_word *av){ C_word tmp; 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_13432,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[453]+1); t4=C_i_check_port_2(*((C_word*)lf[453]+1),C_SCHEME_TRUE,C_SCHEME_TRUE,lf[526]); /* library.scm:2348: ##sys#read */ t5=*((C_word*)lf[511]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=*((C_word*)lf[453]+1); av2[3]=*((C_word*)lf[527]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=C_i_car(t2); t4=C_i_check_port_2(t3,C_SCHEME_TRUE,C_SCHEME_TRUE,lf[526]); /* library.scm:2348: ##sys#read */ t5=*((C_word*)lf[511]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=*((C_word*)lf[527]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* argc+argv in k6799 */ 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 *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_6923,2,av);} a=C_alloc(3); /* library.scm:208: ##sys#values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14500 in a14497 in k14452 in k14443 in k14440 in k14412 in k14409 in k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in ... */ static void C_ccall f_14502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_14502,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14505,a[2]=((C_word*)t0)[2],a[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[573]); t5=(C_truep(t4)?C_eqp(((C_word*)((C_word*)t0)[6])[1],lf[574]):C_SCHEME_FALSE); if(C_truep(t5)){ /* library.scm:2602: build-keyword */ t6=((C_word*)((C_word*)t0)[7])[1]; f_15574(t6,t3,lf[575]);} else{ if(C_truep(((C_word*)t0)[8])){ /* library.scm:2603: build-keyword */ t6=((C_word*)((C_word*)t0)[7])[1]; f_15574(t6,t3,t2);} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14533,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_u_i_char_numericp(((C_word*)t0)[9]))){ /* library.scm:2605: ##sys#string->number */ t7=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ /* library.scm:2823: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t3; av2[2]=t2; C_string_to_symbol(3,av2);}}}}} /* k14503 in k14500 in a14497 in k14452 in k14443 in k14440 in k14412 in k14409 in k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_14505,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:2611: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_14404(t4,((C_word*)t0)[5],t2);} else{ t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); /* library.scm:2611: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_14404(t4,((C_word*)t0)[5],t2);}} /* k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_13467,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[535]+1 /* (set! case-sensitive ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13471,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2360: make-parameter */ t4=*((C_word*)lf[520]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[574]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6954 in get-environment-variable in k6799 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6956,2,av);} t2=stub143(((C_word*)t0)[2],t1); /* library.scm:218: ##sys#peek-c-string */ t3=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14531 in k14500 in a14497 in k14452 in k14443 in k14440 in k14412 in k14409 in k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in ... */ static void C_ccall f_14533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14533,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; f_14505(2,av2);}} else{ /* library.scm:2823: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k10732 in loop in vector->list in k6799 */ static void C_ccall f_10734(C_word c,C_word *av){ C_word tmp; 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_10734,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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#read-prompt-hook in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in ... */ static void C_ccall f_13453(C_word c,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_13453,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#infix-list-hook in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in ... */ 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=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_13456,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#sharp-number-hook in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in ... */ static void C_ccall f_13459(C_word c,C_word *av){ C_word tmp; C_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_13459,4,av);} /* library.scm:2357: ##sys#read-error */ t4=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=lf[534]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* ##sys#drop-right in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_ccall f_24192(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24192,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_24202,a[2]=t3,a[3]=t6,a[4]=((C_word)li843),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_24202(t8,t1,t4,t2);} /* read-char in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in ... */ static void C_ccall f_13302(C_word c,C_word *av){ C_word tmp; 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_13302,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[453]+1); t4=C_i_check_port_2(*((C_word*)lf[453]+1),C_SCHEME_TRUE,C_SCHEME_TRUE,lf[441]); /* library.scm:2315: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t1; av2[2]=*((C_word*)lf[453]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_i_car(t2); t4=C_i_check_port_2(t3,C_SCHEME_TRUE,C_SCHEME_TRUE,lf[441]); /* library.scm:2315: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k24188 in recur in nodups in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_24190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24190,2,av);} /* library.scm:5120: recur */ t2=((C_word*)((C_word*)t0)[2])[1]; f_24163(t2,((C_word*)t0)[3],t1);} /* k12932 in procedure-information in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static void C_ccall f_12934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12934,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12937,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2171: ##sys#lambda-info */ t3=*((C_word*)lf[508]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12935 in k12932 in procedure-information in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ static void C_ccall f_12937(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_12937,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12947,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12951,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* library.scm:2172: ##sys#lambda-info->string */ t4=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* vector-fill! in k6799 */ 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=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_10746,4,av);} a=C_alloc(6); t4=C_i_check_vector_2(t2,lf[380]); t5=C_block_size(t2); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10755,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=((C_word)li338),tmp=(C_word)a,a+=6,tmp); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=( f_10755(t6,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k13400 in peek-char-0 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13402,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* vector in k6799 */ static void C_ccall f_10740(C_word c,C_word *av){ C_word tmp; 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_10740,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; /* library.scm:1403: ##sys#list->vector */ t3=*((C_word*)lf[379]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* recur in nodups in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ static void C_fcall f_24163(C_word t0,C_word t1,C_word t2){ C_word 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_24163,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_24177,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_24190,a[2]=((C_word*)t0)[2],a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* library.scm:5120: ##sys#del */ t9=*((C_word*)lf[1084]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t8; av2[2]=t4; av2[3]=t6; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} /* k12945 in k12935 in k12932 in procedure-information in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in ... */ static void C_ccall f_12947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12947,2,av);} /* library.scm:2172: ##sys#read */ t2=*((C_word*)lf[511]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k19943 in print-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in ... */ 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(4,c,4)))){ C_save_and_reclaim((void *)f_19945,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19948,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:3883: ##sys#really-print-call-chain */ t4=*((C_word*)lf[772]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t2; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k24175 in recur in nodups in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_24177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_24177,2,av);} a=C_alloc(3); t2=C_eqp(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k19946 in k19943 in print-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in ... */ static void C_ccall f_19948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19948,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#read-char-0 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in ... */ 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=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_13320,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13324,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_END_OF_FILE; f_13324(2,av2);}} else{ t4=C_slot(t2,C_fix(2)); t5=C_slot(t4,C_fix(0)); /* library.scm:2318: g2541 */ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t3; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* k13322 in read-char-0 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in ... */ static void C_ccall f_13324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_13324,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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ if(C_truep(C_eofp(t1))){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_slot(((C_word*)t0)[2],C_fix(5)); t4=C_fixnum_plus(t3,C_fix(1)); t5=C_i_set_i_slot(((C_word*)t0)[2],C_fix(5),t4); t6=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} /* set-gc-report! in k6799 */ static void C_ccall f_6912(C_word c,C_word *av){ C_word tmp; C_word 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_6912,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_set_gc_report(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k24143 in loop in del in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_24145(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_24145,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_u_i_cdr(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24153,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); /* library.scm:5113: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_24129(t5,t2,t4);}} /* ##sys#setislot in k6799 */ static void C_ccall f_6919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6919,5,av);} t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_set_i_slot(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* ##sys#setslot in k6799 */ static void C_ccall f_6916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6916,5,av);} t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_setslot(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* ##sys#user-interrupt-hook in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 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 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_19999,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20002,a[2]=((C_word)li677),tmp=(C_word)a,a+=3,tmp); t3=C_eqp(*((C_word*)lf[770]+1),*((C_word*)lf[783]+1)); if(C_truep(t3)){ t4=t1; /* library.scm:3892: ##sys#signal-hook */ t5=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[782]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_setslot(*((C_word*)lf[783]+1),C_fix(1),t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k24151 in k24143 in loop in del in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in ... */ static void C_ccall f_24153(C_word c,C_word *av){ C_word tmp; 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_24153,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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#nodups in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_ccall f_24157(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24157,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_24163,a[2]=t5,a[3]=t3,a[4]=((C_word)li841),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_24163(t7,t1,t2);} /* a24868 in a24844 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_24869(C_word c,C_word *av){ C_word tmp; C_word t0=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_24869,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_24879,a[2]=((C_word)li634),tmp=(C_word)a,a+=3,tmp); /* library.scm:3569: ##sys#scan-buffer-line */ t5=*((C_word*)lf[699]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=((C_word*)t0)[4]; av2[3]=t3; av2[4]=((C_word*)t0)[5]; av2[5]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k18957 in a18934 in k18922 in k18919 in k18902 in loop in scan-buffer-line in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ 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,6)))){ C_save_and_reclaim((void *)f_18959,2,av);} /* library.scm:3627: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_18850(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[5],((C_word*)t0)[6],t1);} /* k18965 in a18934 in k18922 in k18919 in k18902 in loop in scan-buffer-line in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18967,2,av);} /* library.scm:3630: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a24887 in a24844 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_24888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_24888,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* k18982 in k18919 in k18902 in loop in scan-buffer-line in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_18984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18984,2,av);} /* library.scm:3632: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a18870 in k18858 in loop in scan-buffer-line in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_18871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18871,5,av);} if(C_truep(t2)){ /* library.scm:3610: loop */ t5=((C_word*)((C_word*)t0)[2])[1]; f_18850(t5,t1,t2,t3,t3,t4,((C_word*)t0)[3]);} else{ /* library.scm:3611: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[3]; av2[4]=C_SCHEME_FALSE; C_values(5,av2);}}} /* r-ext-symbol in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_15482(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_15482,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15486,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:2803: ##sys#make-string */ t3=*((C_word*)lf[149]+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);}} /* k15493 in k15487 in k15484 in r-ext-symbol in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_15495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_15495,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_15500,a[2]=((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)li547),tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_15500(t5,((C_word*)t0)[6],C_fix(0));} /* get-environment-variable in k6799 */ static void C_ccall f_6947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6947,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_6956,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t5=C_i_foreign_string_argumentp(t2); /* library.scm:218: ##sys#make-c-string */ t6=*((C_word*)lf[37]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=stub143(t3,C_SCHEME_FALSE); /* library.scm:218: ##sys#peek-c-string */ t6=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t1; av2[2]=t5; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* current-gc-milliseconds in k6799 */ 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; 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_6940,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fudge(C_fix(31)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#peek-char-0 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in ... */ 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=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_13389,3,av);} a=C_alloc(4); if(C_truep(C_slot(t2,C_fix(6)))){ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_13402,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:2337: g2555 */ t6=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* ##sys#read-char/port in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in ... */ 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=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_13380,3,av);} t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_TRUE,C_SCHEME_TRUE,lf[441]); /* library.scm:2332: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k18913 in k18902 in loop in scan-buffer-line in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_18915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18915,2,av);} /* library.scm:3618: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15487 in k15484 in r-ext-symbol in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_15489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_15489,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_block_size(((C_word*)t3)[1]); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15495,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); if(C_truep(*((C_word*)lf[529]+1))){ t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_15495(2,av2);}} else{ /* library.scm:2807: ##sys#read-error */ t7=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[2]; av2[3]=lf[596]; av2[4]=((C_word*)t3)[1]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k15484 in r-ext-symbol in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_15486,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15489,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:2804: r-token */ t4=((C_word*)((C_word*)t0)[4])[1]; f_14831(t4,t3);} /* k18896 in loop in scan-buffer-line in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_18898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18898,2,av);} /* library.scm:3614: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18919 in k18902 in loop in scan-buffer-line in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_fcall f_18921(C_word 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_18921,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18924,a[2]=((C_word*)t0)[2],a[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:3621: copy&append */ f_18830(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_18984,a[2]=((C_word*)t0)[5],a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* library.scm:3632: copy&append */ f_18830(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:3633: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_18850(t4,((C_word*)t0)[5],((C_word*)t0)[7],((C_word*)t0)[8],t3,((C_word*)t0)[11],((C_word*)t0)[9]);}}} /* k18922 in k18919 in k18902 in loop in scan-buffer-line in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_18924(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_18924,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18929,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li642),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18935,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word)li643),tmp=(C_word)a,a+=5,tmp); /* library.scm:3621: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a18928 in k18922 in k18919 in k18902 in loop in scan-buffer-line in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ 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 *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_18929,2,av);} /* library.scm:3622: eos-handler */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a18934 in k18922 in k18919 in k18902 in loop in scan-buffer-line in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_18935(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18935,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:3625: values */{ C_word *av2=av; /* Re-use our own argvector */ 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_18959,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:3628: ##sys#string-append */ t8=*((C_word*)lf[173]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[2]; av2[3]=lf[702]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18967,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* library.scm:3630: ##sys#string-append */ t6=*((C_word*)lf[173]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=lf[703]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k12443 in a12440 in k12428 in call-with-input-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12445,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a12440 in k12428 in call-with-input-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_12441,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_12445,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:2008: close-input-port */ t4=*((C_word*)lf[483]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9328 in fpinteger? in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9330,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_u_i_fpintegerp(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a12458 in k12452 in call-with-output-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ 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; 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_12459,2,av);} /* library.scm:2017: p */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12452 in call-with-output-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_12454,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12459,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li451),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12465,a[2]=t2,a[3]=((C_word)li452),tmp=(C_word)a,a+=4,tmp); /* library.scm:2016: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* call-with-output-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_ccall f_12450(C_word c,C_word *av){ C_word tmp; C_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_12450,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_12454,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* add1 in k6799 */ static void C_ccall f_9341(C_word c,C_word *av){ C_word tmp; C_word 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,1)))){ C_save_and_reclaim((void *)f_9341,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_plus(&a,2,t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* sub1 in k6799 */ 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=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,1)))){ C_save_and_reclaim((void *)f_9347,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_minus(&a,2,t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k12467 in a12464 in k12452 in call-with-output-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in ... */ static void C_ccall f_12469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12469,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a12464 in k12452 in call-with-output-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ 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; 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_12465,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_12469,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:2019: close-output-port */ t4=*((C_word*)lf[484]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17504 in loop in k17477 in outreadablesym in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_17506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_17506,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_17512,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:3240: outchr */ t5=((C_word*)((C_word*)t0)[8])[1]; f_17388(t5,t4,((C_word*)t0)[7],C_make_character(48));} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_17512(2,av2);}}} /* k9310 in fpabs in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_9312,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_abs(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* fpinteger? in k6799 */ static void C_ccall f_9314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9314,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9330,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; /* Re-use our own argvector */ 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:786: ##sys#error-hook */ t6=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[251]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k25528 in k25524 in loop in k25463 in a25457 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_25530,2,av);} /* library.scm:1855: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_25478(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,C_SCHEME_TRUE);} /* print-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_19908,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; 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[454]+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=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_word*)lf[770]+1):C_i_car(t11)); t14=C_i_nullp(t11); t15=(C_truep(t14)?C_SCHEME_END_OF_LIST:C_i_cdr(t11)); t16=C_i_nullp(t15); t17=(C_truep(t16)?lf[779]:C_i_car(t15)); t18=t17; t19=C_i_nullp(t15); t20=(C_truep(t19)?C_SCHEME_END_OF_LIST:C_i_cdr(t15)); t21=C_i_check_port_2(t5,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[778]); t22=C_i_check_exact_2(t9,lf[778]); t23=C_i_check_string_2(t18,lf[778]); t24=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19945,a[2]=t1,a[3]=t5,a[4]=t18,tmp=(C_word)a,a+=5,tmp); /* library.scm:3882: ##sys#get-call-chain */ t25=*((C_word*)lf[780]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t25; av2[1]=t24; av2[2]=t9; av2[3]=t13; ((C_proc)(void*)(*((C_word*)t25+1)))(4,av2);}} /* k17513 in k17510 in k17504 in loop in k17477 in outreadablesym in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ static void C_ccall f_17515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_17515,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* library.scm:3242: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_17484(t3,((C_word*)t0)[4],t2);} /* k17510 in k17504 in loop in k17477 in outreadablesym in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 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; 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_17512,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17515,a[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_17526,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* library.scm:3241: ##sys#number->string */ t4=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=C_fix(16); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a12482 in k12476 in with-input-from-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ 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!=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_12483,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[453]+1)); t3=C_mutate2((C_word*)lf[453]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k25541 in loop in k25463 in a25457 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25543(C_word c,C_word *av){ C_word tmp; C_word t0=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_25543,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25588,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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); /* library.scm:1862: errno */ t3=*((C_word*)lf[443]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a12487 in k12476 in with-input-from-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ 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 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_12488,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12494,a[2]=((C_word*)t0)[2],a[3]=((C_word)li455),tmp=(C_word)a,a+=4,tmp); /* library.scm:2028: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17524 in k17510 in k17504 in loop in k17477 in outreadablesym in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ static void C_ccall f_17526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17526,2,av);} /* library.scm:3241: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17316(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k18902 in loop in scan-buffer-line in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_fcall f_18904(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_18904,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_18915,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* library.scm:3618: copy&append */ f_18830(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_18921,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_18921(t5,C_eqp(((C_word*)t0)[11],t4));} else{ t4=t2; f_18921(t4,C_SCHEME_FALSE);}}} /* a12493 in a12487 in k12476 in with-input-from-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_12494,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_12498,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:2030: close-input-port */ t4=*((C_word*)lf[483]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a25556 in k25586 in k25541 in loop in k25463 in a25457 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 in ... */ static void C_ccall f_25557(C_word c,C_word *av){ C_word tmp; 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_25557,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_25565,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_25569,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* library.scm:1868: ##sys#substring */ t4=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k12496 in a12493 in a12487 in k12476 in with-input-from-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12498,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17533 in loop in k17477 in outreadablesym in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_17535,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17538,a[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:3245: outchr */ t3=((C_word*)((C_word*)t0)[5])[1]; f_17388(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7]);} /* k17536 in k17533 in loop in k17477 in outreadablesym in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_17538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_17538,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* library.scm:3246: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_17484(t3,((C_word*)t0)[4],t2);} /* k25567 in a25556 in k25586 in k25541 in loop in k25463 in a25457 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in ... */ static void C_ccall f_25569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_25569,2,av);} /* library.scm:1867: ##sys#string-append */ t2=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k25563 in a25556 in k25586 in k25541 in loop in k25463 in a25457 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in ... */ static void C_ccall f_25565(C_word c,C_word *av){ C_word tmp; C_word 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_25565,2,av);} /* library.scm:1866: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_25478(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,C_SCHEME_TRUE);} /* a24878 in a24868 in a24844 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_24879(C_word c,C_word *av){ C_word tmp; C_word 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_24879,3,av);} /* library.scm:3571: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a12434 in k12428 in call-with-input-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ 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 *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_12435,2,av);} /* library.scm:2006: p */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12428 in call-with-input-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ 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; 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_12430,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12435,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li448),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12441,a[2]=t2,a[3]=((C_word)li449),tmp=(C_word)a,a+=4,tmp); /* library.scm:2005: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a24844 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_24845(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24845,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; /* Re-use our own argvector */ 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_24869,a[2]=t11,a[3]=t7,a[4]=t9,a[5]=t5,a[6]=((C_word)li635),tmp=(C_word)a,a+=7,tmp); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24888,a[2]=t2,a[3]=((C_word)li636),tmp=(C_word)a,a+=4,tmp); /* library.scm:3568: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t12; av2[3]=t13; C_call_with_values(4,av2);}}} /* sym-is-readable? in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_fcall f_17561(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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(10,0,3)))){ C_save_and_reclaim_args((void *)trf_17561,3,t0,t1,t2);} a=C_alloc(10); 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[648])); 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|7,a[1]=(C_word)f_17610,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t7,a[5]=t4,a[6]=((C_word*)t0)[3],a[7]=((C_word)li593),tmp=(C_word)a,a+=8,tmp)); t9=((C_word*)t7)[1]; f_17610(t9,t1,t5);}} /* k21707 in null-pointer in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_21709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_21709,2,av);} t2=C_update_pointer(C_fix(0),t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#null-pointer in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 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 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_21705,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21709,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:4283: ##sys#make-pointer */ t3=*((C_word*)lf[923]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop1608 in k10866 in k10863 in k10860 in subvector in k6799 */ static C_word C_fcall f_10873(C_word t0,C_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;}} /* k19717 in k19725 in k19706 in loop in k19679 in get-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_19719(C_word c,C_word *av){ C_word tmp; 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_19719,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k12476 in with-input-from-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static void C_ccall f_12478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_12478,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_12483,a[2]=t6,a[3]=t4,a[4]=((C_word)li454),tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12488,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li456),tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12503,a[2]=t4,a[3]=t6,a[4]=((C_word)li457),tmp=(C_word)a,a+=5,tmp); /* library.scm:2023: ##sys#dynamic-wind */ t10=*((C_word*)lf[423]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* with-input-from-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_ccall f_12474(C_word c,C_word *av){ C_word tmp; C_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_12474,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_12478,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19725 in k19706 in loop in k19679 in get-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 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 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_19727,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_19719,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:3846: loop */ t10=((C_word*)((C_word*)t0)[5])[1]; f_19689(t10,t8,t9);} /* k16242 in k16204 in k16195 in k16189 in k16186 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in ... */ static void C_ccall f_16244(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16244,2,av);} t2=C_i_assq(t1,lf[618]); if(C_truep(t2)){ t3=C_slot(t2,C_fix(1)); /* library.scm:2962: g3120 */ t4=t3;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:2965: ##sys#read-error */ t3=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[619]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* open-output-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ 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=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_12408,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; /* library.scm:1996: open */ f_12283(t1,t2,C_SCHEME_FALSE,t3,lf[482]);} /* open-input-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_ccall f_12402(C_word c,C_word *av){ C_word tmp; C_word 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_12402,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; /* library.scm:1995: open */ f_12283(t1,t2,C_SCHEME_TRUE,t3,lf[481]);} /* close-input-port in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_ccall f_12414(C_word c,C_word *av){ C_word tmp; C_word 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_12414,3,av);} /* library.scm:1997: close */ f_12377(t1,t2,lf[483]);} /* k10860 in subvector in k6799 */ static void C_ccall f_10862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10862,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10865,a[2]=((C_word*)t0)[2],a[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:1433: ##sys#check-range */ t4=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_fix(0); av2[4]=t3; av2[5]=lf[383]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k10866 in k10863 in k10860 in subvector in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_10868,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10873,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)li342),tmp=(C_word)a,a+=7,tmp); t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_10873(t3,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10863 in k10860 in subvector in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10865,2,av);} a=C_alloc(6); t2=(*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]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:1434: make-vector */ t3=*((C_word*)lf[373]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k21742 in make-c-string in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_21744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_21744,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; /* Re-use our own argvector */ 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:4306: ##sys#error-hook */ t7=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=((C_word*)t0)[4]; av2[2]=t6; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k19706 in loop in k19679 in get-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in ... */ static void C_fcall f_19708(C_word 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_19708,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19727,a[2]=((C_word*)t0)[2],a[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=stub4074(t4,t3); /* library.scm:3829: ##sys#peek-nonnull-c-string */ t6=*((C_word*)lf[771]+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:3847: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_19689(t3,((C_word*)t0)[4],t2);}} /* k16223 in k16204 in k16195 in k16189 in k16186 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in ... */ static void C_ccall f_16225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16225,2,av);} t2=((C_word*)t0)[2]; /* library.scm:2823: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t2; av2[2]=t1; C_string_to_symbol(3,av2);}} /* k11781 in dynamic-unwind in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11783,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_11789,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:1685: g1900 */ t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)C_fast_retrieve_proc(t5))(2,av2);}} /* ##sys#with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_18596(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_18596,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18602,a[2]=t2,a[3]=t3,a[4]=((C_word)li615),tmp=(C_word)a,a+=5,tmp); /* library.scm:3447: call-with-current-continuation */ t5=*((C_word*)lf[424]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k18592 in k18546 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18594,2,av);} /* library.scm:3434: ##sys#print */ t2=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11787 in k11781 in dynamic-unwind in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11789,2,av);} t2=C_mutate2((C_word*)lf[421]+1 /* (set! ##sys#dynamic-winds ...) */,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* call-with-input-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ 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=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_12426,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_12430,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* close-output-port in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_ccall f_12420(C_word c,C_word *av){ C_word tmp; C_word 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_12420,3,av);} /* library.scm:1998: close */ f_12377(t1,t2,lf[484]);} /* ##sys#make-c-string in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21734(C_word c,C_word *av){ C_word tmp; C_word 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_21734,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[37]:C_i_car(t3)); t6=t5; t7=C_block_size(t2); t8=t7; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21744,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:4301: ##sys#make-string */ t11=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t9; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k21723 in address->pointer in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 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 t3; 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_update_pointer(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#address->pointer in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21721(C_word c,C_word *av){ C_word tmp; C_word 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_21721,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21725,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:4291: ##sys#make-pointer */ t4=*((C_word*)lf[923]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k16204 in k16195 in k16189 in k16186 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in ... */ static void C_ccall f_16206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16206,2,av);} a=C_alloc(5); t2=t1; if(C_truep(C_i_string_equal_p(lf[613],t2))){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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[614]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t2,lf[615]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t2,lf[616]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16225,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2960: ##sys#string-append */ t4=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[617]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16244,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:2962: string->symbol */ t4=*((C_word*)lf[349]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}} /* ##sys#pointer->address in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21727(C_word c,C_word *av){ C_word tmp; C_word 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,1)))){ C_save_and_reclaim((void *)f_21727,3,av);} a=C_alloc(4); t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_unsigned_int_to_num(&a,1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#print-to-string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_19096(C_word c,C_word *av){ C_word tmp; C_word 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_19096,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19100,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:3661: open-output-string */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k16198 in k16195 in k16189 in k16186 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in ... */ static void C_ccall f_16200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16200,2,av);} /* library.scm:2955: readrec */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13628(t2,((C_word*)t0)[3]);} /* ##sys#null-pointer? in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21711(C_word c,C_word *av){ C_word tmp; C_word 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_21711,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21719,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:4288: ##sys#pointer->address */ t4=*((C_word*)lf[714]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k21717 in null-pointer? in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21719,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(C_fix(0),t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#peek-c-string in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ 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=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_21781,4,av);} a=C_alloc(6); if(C_truep(C_null_pointerp(t2))){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_fetch_c_strlen(t2,t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21791,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* library.scm:4322: ##sys#make-string */ t6=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k11738 in continuation in a11732 in call-with-current-continuation in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11740,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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#peek-byte in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21772(C_word c,C_word *av){ C_word tmp; C_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_21772,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_peek_byte(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#vector->structure! in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21775(C_word c,C_word *av){ C_word tmp; C_word 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_21775,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_vector_to_structure(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#peek-double in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ 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=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_21778,4,av);} a=C_alloc(4); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_f64peek(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#peek-fixnum in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21769(C_word c,C_word *av){ C_word tmp; C_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_21769,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_peek_fixnum(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#dynamic-unwind in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_fcall f_11767(C_word t1,C_word 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_11767,3,t1,t2,t3);} a=C_alloc(5); t4=C_eqp(*((C_word*)lf[421]+1),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_11783,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:1688: ##sys#dynamic-unwind */ t11=t5; t12=t6; t13=t7; t1=t11; t2=t12; t3=t13; goto loop;} else{ t5=C_slot(*((C_word*)lf[421]+1),C_fix(0)); t6=C_slot(t5,C_fix(1)); t7=C_slot(*((C_word*)lf[421]+1),C_fix(1)); t8=C_mutate2((C_word*)lf[421]+1 /* (set! ##sys#dynamic-winds ...) */,t7); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11812,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:1694: after */ t10=t6;{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)C_fast_retrieve_proc(t10))(2,av2);}}}} /* k19058 in k19045 in open-output-string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19060,2,av);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(12),t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* get-output-string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_19062(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_19062,3,av);} t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_FALSE,lf[708]); t5=C_slot(t2,C_fix(7)); t6=C_eqp(lf[175],t5); if(C_truep(t6)){ t7=C_slot(t2,C_fix(12)); t8=C_slot(t2,C_fix(10)); /* library.scm:3655: ##sys#substring */ t9=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t1; av2[2]=t7; av2[3]=C_fix(0); av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ /* library.scm:3653: ##sys#signal-hook */ t7=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t1; av2[2]=lf[56]; av2[3]=lf[708]; av2[4]=lf[709]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}} /* k23435 in make-locative in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_23437(C_word c,C_word *av){ C_word tmp; C_word t0=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_23437,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8893 in fp< in k6799 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8895,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_flonum_lessp(((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* fp>= in k6799 */ static void C_ccall f_8897(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_8897,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8919,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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_flonum_greater_or_equal_p(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:790: ##sys#error-hook */ t10=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t4; av2[2]=t9; av2[3]=lf[227]; av2[4]=t5; av2[5]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}} /* open-input-string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_19024(C_word c,C_word *av){ C_word tmp; C_word 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_19024,3,av);} a=C_alloc(4); t3=C_i_check_string_2(t2,lf[512]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19031,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:3637: ##sys#make-port */ t5=*((C_word*)lf[438]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=*((C_word*)lf[701]+1); av2[4]=lf[705]; av2[5]=lf[175]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k19029 in open-input-string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_19031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_19031,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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a16265 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_16266(C_word c,C_word *av){ C_word tmp; 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_16266,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:2970: readrec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_13628(t3,t1);} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16904 */ static void C_ccall f_16906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16906,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a16259 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ 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; 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_16260,2,av);} /* library.scm:2969: ##sys#user-read-hook */ t2=*((C_word*)lf[620]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k23460 in make-locative in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_23462(C_word c,C_word *av){ C_word tmp; C_word t0=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_23462,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* open-output-string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_19043(C_word c,C_word *av){ 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_19043,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19047,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:3644: ##sys#make-port */ t3=*((C_word*)lf[438]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_FALSE; av2[3]=*((C_word*)lf[701]+1); av2[4]=lf[707]; av2[5]=lf[175]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k22610 in k22577 in k22445 in loop in k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_22612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_22612,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22620,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:4639: get/clear-str */ t4=((C_word*)t0)[5]; f_22424(t4,t3);} /* k19045 in open-output-string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_19047,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_19060,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:3647: ##sys#make-string */ t6=*((C_word*)lf[149]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=C_fix(256); ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k22618 in k22610 in k22577 in k22445 in loop in k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in ... */ static void C_ccall f_22620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_22620,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:4638: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_22443(t4,((C_word*)t0)[5],t3);} /* k11266 in k11106 in k6799 */ static void C_ccall f_11268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11268,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11271,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1560: char-name */ t3=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1146]; av2[3]=C_make_character(9); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* fp< in k6799 */ 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=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_8873,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8895,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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_flonum_lessp(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:790: ##sys#error-hook */ t10=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t4; av2[2]=t9; av2[3]=lf[226]; av2[4]=t5; av2[5]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}} /* k8869 in fp> in k6799 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8871,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_flonum_greaterp(((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#set-read-mark! in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in ... */ static void C_ccall f_16938(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_16938,4,av);} a=C_alloc(6); t4=C_i_assq(t2,lf[618]); if(C_truep(t4)){ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_setslot(t4,C_fix(1),t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_a_i_cons(&a,2,t2,t3); t6=C_a_i_cons(&a,2,t5,lf[618]); t7=C_mutate2(&lf[618] /* (set! read-marks ...) */,t6); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* fp/? in k6799 */ 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=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_8801,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8823,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; /* Re-use our own argvector */ 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:790: ##sys#error-hook */ t10=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t4; av2[2]=t9; av2[3]=lf[223]; av2[4]=t5; av2[5]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}} /* k22637 in k22629 in k22577 in k22445 in loop in k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in ... */ static void C_ccall f_22639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_22639,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:4640: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_22443(t4,((C_word*)t0)[5],t3);} /* k22629 in k22577 in k22445 in loop in k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_22631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_22631,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22639,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:4641: get/clear-str */ t4=((C_word*)t0)[5]; f_22424(t4,t3);} /* k14202 in k14218 in k14192 in k14088 in k14068 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ static void C_ccall f_14204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14204,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* library.scm:2534: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_13786(t3,((C_word*)t0)[5],t1,t2);} /* fp= in k6799 */ 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=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_8825,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8847,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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_flonum_equalp(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:790: ##sys#error-hook */ t10=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t4; av2[2]=t9; av2[3]=lf[224]; av2[4]=t5; av2[5]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}} /* k22644 in k22445 in loop in k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22646,2,av);} /* library.scm:4644: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_22443(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k8821 in fp/? in k6799 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_8823,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k14229 in k14192 in k14088 in k14068 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_14231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14231,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14238,a[2]=((C_word*)t0)[2],a[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:2540: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14236 in k14229 in k14192 in k14088 in k14068 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_14238,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:2540: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_13786(t3,((C_word*)t0)[5],t1,t2);} /* k14218 in k14192 in k14088 in k14068 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ 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 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_14220,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_14204,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:2534: ##sys#read-char-0 */ t6=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* fp> in k6799 */ 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=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_8849,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8871,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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_flonum_greaterp(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:790: ##sys#error-hook */ t10=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t4; av2[2]=t9; av2[3]=lf[225]; av2[4]=t5; av2[5]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}} /* k8845 in fp= in k6799 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8847,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_flonum_equalp(((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10014 in loop in compare-slots in equal=? in k6799 */ static void C_ccall f_10016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10016,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* library.scm:1156: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_9992(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9667 in loop in maxmin1202 in k6799 */ static void C_ccall f_9669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_9669,2,av);} t2=(C_truep(t1)?((C_word*)t0)[2]:((C_word*)t0)[3]); t3=((C_word*)t0)[4]; t4=(C_truep(t3)?t3:C_blockp(((C_word*)t0)[2])); t5=C_slot(((C_word*)t0)[5],C_fix(1)); /* library.scm:1045: loop */ t6=((C_word*)((C_word*)t0)[6])[1]; f_9631(t6,((C_word*)t0)[7],t2,t4,t5);} /* min in k6799 */ 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=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_9681,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_number_2(t2,lf[311]); /* library.scm:1051: maxmin */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=*((C_word*)lf[258]+1); ((C_proc)C_fast_retrieve_proc(t5))(5,av2);}} /* k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in ... */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_13479,2,av);} a=C_alloc(8); t2=C_mutate2((C_word*)lf[538]+1 /* (set! symbol-escape ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13483,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_a_i_record4(&a,4,lf[632],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE); /* library.scm:2363: make-parameter */ t5=*((C_word*)lf[520]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_13475,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[537]+1 /* (set! parentheses-synonyms ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13479,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2362: make-parameter */ t4=*((C_word*)lf[520]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in ... */ static void C_ccall f_13471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13471,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[536]+1 /* (set! keyword-style ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13475,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2361: make-parameter */ t4=*((C_word*)lf[520]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* features in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in ... */ static void C_ccall f_19619(C_word c,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_19619,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[762]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k24690 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_24692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24692,2,av);} /* library.scm:3698: string->symbol */ t2=*((C_word*)lf[349]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* max in k6799 */ static void C_ccall f_9672(C_word c,C_word *av){ C_word tmp; C_word 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_9672,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_number_2(t2,lf[310]); /* library.scm:1050: maxmin */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=*((C_word*)lf[257]+1); ((C_proc)C_fast_retrieve_proc(t5))(5,av2);}} /* k24694 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_24696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24696,2,av);} /* library.scm:3694: string->symbol */ t2=*((C_word*)lf[349]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19608 in map-loop4030 in unregister-feature! in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in ... */ static void C_ccall f_19610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_19610,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_19585(t6,((C_word*)t0)[5],t5);} /* loop in feature? in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in ... */ static void C_fcall f_19628(C_word 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_19628,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_19652,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:3817: ##sys#->feature-id */ t6=*((C_word*)lf[760]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k13494 in k13491 in read-warning in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in ... */ static void C_ccall f_13496(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13496,2,av);}{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[18]+1); av2[3]=t1; av2[4]=((C_word*)t0)[3]; C_apply(5,av2);}} /* k13491 in read-warning in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in ... */ static void C_ccall f_13493(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13493,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13496,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(C_truep(*((C_word*)lf[528]+1))?t1:C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13506,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* library.scm:2372: ##sys#number->string */ t5=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[18]+1); av2[3]=t4; av2[4]=((C_word*)t0)[3]; C_apply(5,av2);}}} /* feature? in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in ... */ static void C_ccall f_19622(C_word c,C_word *av){ C_word tmp; 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_19622,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_19628,a[2]=t4,a[3]=((C_word)li668),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_19628(t6,t1,t2);} /* k16350 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_16352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16352,2,av);} /* library.scm:2973: r-string */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13776(t2,((C_word*)t0)[3],C_make_character(34));} /* walk in equal=? in k6799 */ static void C_fcall f_10033(C_word t0,C_word t1,C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_10033,4,t0,t1,t2,t3);} a=C_alloc(4); 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_fixnump(t2))){ if(C_truep(C_i_flonump(t3))){ t5=t2; t6=C_a_i_fix_to_flo(&a,1,t5); t7=t3; t8=C_flonum_equalp(t6,t7); t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+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);}}} else{ if(C_truep(C_i_flonump(t2))){ t5=C_fixnump(t3); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=(C_truep(t5)?C_i_nequalp(t2,t3):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_i_flonump(t3); t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=(C_truep(t6)?C_i_nequalp(t2,t3):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ if(C_truep(C_blockp(t2))){ if(C_truep(C_blockp(t3))){ if(C_truep(C_sametypep(t2,t3))){ if(C_truep(C_specialp(t2))){ if(C_truep(C_specialp(t3))){ if(C_truep(C_closurep(t2))){ t5=shallow_equal(t2,t3); t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* library.scm:1173: compare-slots */ t5=((C_word*)((C_word*)t0)[2])[1]; f_9965(t5,t1,t2,t3,C_fix(1));}} 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{ if(C_truep(C_byteblockp(t2))){ if(C_truep(C_byteblockp(t3))){ t5=C_block_size(t2); t6=C_block_size(t3); t7=C_eqp(t5,t6); t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=(C_truep(t7)?C_substring_compare(t2,t3,C_fix(0),C_fix(0),t5):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t8+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{ t5=C_block_size(t2); t6=C_block_size(t3); t7=C_eqp(t5,t6); if(C_truep(t7)){ /* library.scm:1182: compare-slots */ t8=((C_word*)((C_word*)t0)[2])[1]; f_9965(t8,t1,t2,t3,C_fix(0));} 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{ 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=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+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);}}}}}} /* k16338 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_16340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16340,2,av);} /* library.scm:2972: container */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k24297 in k24294 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_24299,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24301,a[2]=((C_word)li849),tmp=(C_word)a,a+=3,tmp); /* library.scm:4672: make-parameter */ t3=*((C_word*)lf[520]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k24294 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_ccall f_24296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_24296,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24299,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_24317,a[2]=t5,a[3]=((C_word)li850),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_24317(t7,t2,t3);} else{ t3=t1; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f29480,a[2]=((C_word)li851),tmp=(C_word)a,a+=3,tmp); /* library.scm:4672: make-parameter */ t5=*((C_word*)lf[520]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k19650 in loop in feature? in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in ... */ static void C_ccall f_19652(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_19652,2,av);} if(C_truep(C_i_memq(t1,*((C_word*)lf[762]+1)))){ t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* library.scm:3818: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_19628(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k14587 in k14412 in k14409 in k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_14589,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:2617: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_14404(t4,((C_word*)t0)[5],t2);} else{ t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); /* library.scm:2617: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_14404(t4,((C_word*)t0)[5],t2);}} /* get-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in ... */ static void C_ccall f_19665(C_word c,C_word *av){ C_word tmp; 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_19665,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_word*)lf[770]+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_fix((C_word)C_trace_buffer_size); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19681,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:3834: ##sys#make-vector */ t16=*((C_word*)lf[375]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t16; av2[1]=t14; av2[2]=t15; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}} /* def-header5154 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_fcall f_23313(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_23313,3,t0,t1,t2);} /* library.scm:4825: body5151 */ t3=((C_word*)t0)[2]; f_23167(t3,t1,t2,lf[1042]);} /* ##sys#read-warning in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in ... */ 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=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_13485,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_13493,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:2370: ##sys#port-line */ t6=*((C_word*)lf[497]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* def-port5153 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_fcall f_23318(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_23318,2,t0,t1);} /* library.scm:4825: def-header5154 */ t2=((C_word*)t0)[2]; f_23313(t2,t1,*((C_word*)lf[454]+1));} /* k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in ... */ static void C_ccall f_13483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(46,c,5)))){ C_save_and_reclaim((void *)f_13483,2,av);} a=C_alloc(46); t2=C_mutate2((C_word*)lf[539]+1 /* (set! current-read-table ...) */,t1); t3=C_mutate2((C_word*)lf[540]+1 /* (set! ##sys#read-warning ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13485,a[2]=((C_word)li508),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[533]+1 /* (set! ##sys#read-error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13508,a[2]=((C_word)li509),tmp=(C_word)a,a+=3,tmp)); t5=*((C_word*)lf[536]+1); t6=*((C_word*)lf[535]+1); t7=*((C_word*)lf[537]+1); t8=*((C_word*)lf[538]+1); t9=*((C_word*)lf[539]+1); t10=C_a_i_string(&a,1,C_make_character(0)); t11=t10; t12=C_mutate2((C_word*)lf[511]+1 /* (set! ##sys#read ...) */,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13534,a[2]=t11,a[3]=t9,a[4]=t8,a[5]=t7,a[6]=t5,a[7]=t6,a[8]=((C_word)li566),tmp=(C_word)a,a+=9,tmp)); t13=C_mutate2((C_word*)lf[552]+1 /* (set! ##sys#char->utf8-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16506,a[2]=((C_word)li567),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[559]+1 /* (set! ##sys#unicode-surrogate? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16671,a[2]=((C_word)li568),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[556]+1 /* (set! ##sys#surrogates->codepoint ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16683,a[2]=((C_word)li569),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[607]+1 /* (set! ##sys#read-bytevector-literal ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16745,a[2]=((C_word)li572),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[620]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16893,a[2]=((C_word)li573),tmp=(C_word)a,a+=3,tmp)); t18=lf[618] /* read-marks */ =C_SCHEME_END_OF_LIST;; t19=C_mutate2((C_word*)lf[627]+1 /* (set! ##sys#set-read-mark! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16938,a[2]=((C_word)li574),tmp=(C_word)a,a+=3,tmp)); t20=C_set_block_item(lf[628] /* set-read-syntax! */,0,C_SCHEME_UNDEFINED); t21=C_set_block_item(lf[629] /* set-sharp-read-syntax! */,0,C_SCHEME_UNDEFINED); t22=C_set_block_item(lf[630] /* set-parameterized-read-syntax! */,0,C_SCHEME_UNDEFINED); t23=*((C_word*)lf[539]+1); t24=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16961,a[2]=t23,a[3]=((C_word)li576),tmp=(C_word)a,a+=4,tmp); t25=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17026,a[2]=((C_word*)t0)[2],a[3]=t24,tmp=(C_word)a,a+=4,tmp); t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24975,a[2]=((C_word)li873),tmp=(C_word)a,a+=3,tmp); /* library.scm:3099: syntax-setter */ t27=t24; f_16961(t27,t25,lf[628],C_fix(1),t26);} /* k14591 in k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_14593,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_14411(t3,t2);} /* k24605 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in ... */ static void C_ccall f_24607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24607,2,av);} /* library.scm:3783: ##sys#string-append */ t2=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1105]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k13706 in k13693 in loop in r-usequence in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_13708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13708,2,av);} /* library.scm:2448: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k23370 in k23367 in k23364 in k23361 in show-exception-warning in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_23372(C_word c,C_word *av){ C_word tmp; C_word t0=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_23372,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_23375,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:4896: display */ t3=*((C_word*)lf[639]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k23373 in k23370 in k23367 in k23364 in k23361 in show-exception-warning in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in ... */ static void C_ccall f_23375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_23375,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23378,a[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_23385,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* library.scm:4897: get-output-string */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* exp in k6799 */ 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=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,1)))){ C_save_and_reclaim((void *)f_9690,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_exp(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k23376 in k23373 in k23370 in k23367 in k23364 in k23361 in show-exception-warning in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in ... */ static void C_ccall f_23378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_23378,2,av);} /* library.scm:4898: print-call-chain */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=*((C_word*)lf[455]+1); av2[3]=C_fix(0); av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11298(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11298,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11301,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1570: char-name */ t3=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1137]; av2[3]=C_make_character(13); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_11295,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11298,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1569: char-name */ t3=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1138]; av2[3]=C_make_character(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_11292,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11295,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1568: char-name */ t3=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1139]; av2[3]=C_make_character(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* log in k6799 */ static void C_ccall f_9693(C_word c,C_word *av){ C_word tmp; C_word 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,1)))){ C_save_and_reclaim((void *)f_9693,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_log(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* cos in k6799 */ 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=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,1)))){ C_save_and_reclaim((void *)f_9699,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cos(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* sin in k6799 */ 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=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,1)))){ C_save_and_reclaim((void *)f_9696,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_sin(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k13709 in loop in r-usequence in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_13711,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:2454: ##sys#read-error */ t4=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[551]; ((C_proc)(void*)(*((C_word*)t4+1)))(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:2455: loop */ t6=((C_word*)((C_word*)t0)[6])[1]; f_13685(t6,((C_word*)t0)[2],t4,t5);}} /* ##sys#show-exception-warning in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in ... */ static void C_ccall f_23353(C_word c,C_word *av){ C_word tmp; C_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_23353,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_word*)lf[770]+1):C_i_car(t4)); t7=t6; if(C_truep(*((C_word*)lf[10]+1))){ t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_23363,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:4889: open-output-string */ t9=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11277,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11280,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1563: char-name */ t3=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1144]; av2[3]=C_make_character(11); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k13741 in r-cons-codepoint in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ 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 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_13743,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_13751,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li520),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_13751(t8,((C_word*)t0)[2],C_fix(0),((C_word*)t0)[3]);} /* k11269 in k11266 in k11106 in k6799 */ 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(3,c,3)))){ C_save_and_reclaim((void *)f_11271,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11274,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1561: char-name */ t3=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1145]; av2[3]=C_make_character(10); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* doloop1579 in k10794 in k10788 in vector-copy! in k6799 */ static C_word C_fcall f_10801(C_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;}} /* k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_11274,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11277,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1562: char-name */ t3=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[636]; av2[3]=C_make_character(10); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k23361 in show-exception-warning in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_23363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_23363,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_23366,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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:4890: display */ t4=*((C_word*)lf[639]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[1045]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k23364 in k23361 in show-exception-warning in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_ccall f_23366(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_23366,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_23369,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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_23388,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:4892: display */ t4=*((C_word*)lf[639]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[1044]; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_23369(2,av2);}}} /* k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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,3)))){ 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); /* library.scm:1567: char-name */ t3=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1140]; av2[3]=C_make_character(7); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k23367 in k23364 in k23361 in show-exception-warning in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ static void C_ccall f_23369(C_word c,C_word *av){ C_word tmp; C_word t0=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_23369,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_23372,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:4895: display */ t3=*((C_word*)lf[639]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1043]; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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(3,c,3)))){ C_save_and_reclaim((void *)f_11286,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11289,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1566: char-name */ t3=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1141]; av2[3]=C_make_character(27); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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(3,c,3)))){ C_save_and_reclaim((void *)f_11283,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11286,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1565: char-name */ t3=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1142]; av2[3]=C_make_character(27); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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(3,c,3)))){ C_save_and_reclaim((void *)f_11280,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11283,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1564: char-name */ t3=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1143]; av2[3]=C_make_character(127); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* r-cons-codepoint in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_13739(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_13739,3,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13743,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_make_character(C_unfix(t2)); /* library.scm:2458: ##sys#char->utf8-string */ t6=*((C_word*)lf[552]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k19811 in really-print-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in ... */ static void C_ccall f_19813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_19813,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19814,a[2]=((C_word*)t0)[2],a[3]=((C_word)li673),tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19880,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_19885,a[2]=t6,a[3]=t2,a[4]=((C_word)li674),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_19885(t8,t4,t3);} /* g4116 in k19811 in really-print-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in ... */ static void C_fcall f_19814(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_19814,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[773]); t8=t7; t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19827,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:3857: ##sys#print */ t10=*((C_word*)lf[638]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t9; av2[2]=lf[776]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* k14639 in k14632 in a14626 in r-number in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14641,2,av);} /* library.scm:2636: info */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13558(t2,((C_word*)t0)[3],lf[579],((C_word*)t0)[4],t1);} /* k18620 in k18616 in k18613 in k18610 in a18607 in a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_18622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18622,2,av);} a=C_alloc(12); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_18626,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:3448: print-exit37103711 */ t4=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k18624 in k18620 in k18616 in k18613 in k18610 in a18607 in a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_18626,2,av);} a=C_alloc(11); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_18630,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:3448: current-print-length37123713 */ t4=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k14632 in a14626 in r-number in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_14634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14634,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14641,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:2636: ##sys#port-line */ t4=*((C_word*)lf[497]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* lp in k13741 in r-cons-codepoint in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_fcall f_13751(C_word t0,C_word t1,C_word 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_13751,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:2463: lp */ t8=t1; t9=t4; t10=t6; t1=t8; t2=t9; t3=t10; goto loop;}} /* k19825 in g4116 in k19811 in really-print-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_19827,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19830,a[2]=((C_word*)t0)[2],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:3858: ##sys#print */ t4=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14660 in k14654 in a14626 in r-number in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 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 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_14662,2,av);} a=C_alloc(13); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14668,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14677,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t3,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); /* library.scm:2644: ##sys#inexact? */ t5=*((C_word*)lf[276]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ if(C_truep(((C_word*)t0)[7])){ /* library.scm:2649: ##sys#read-error */ t3=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[584]; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[6]; /* library.scm:2823: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t3; av2[2]=t4; C_string_to_symbol(3,av2);}}}} /* k14666 in k14660 in k14654 in a14626 in r-number in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_14668,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* subvector in k6799 */ 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=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_10843,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[383]); 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_10862,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:1432: ##sys#check-range */ t16=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t16; av2[1]=t14; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t15; av2[5]=lf[383]; ((C_proc)(void*)(*((C_word*)t16+1)))(6,av2);}} /* k9615 in modulo in k6799 */ 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 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_9617,2,av);} a=C_alloc(12); t2=C_a_i_times(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_minus(&a,2,((C_word*)t0)[3],t2); if(C_truep(C_i_lessp(((C_word*)t0)[2],C_fix(0)))){ t4=C_i_less_or_equalp(t3,C_fix(0)); t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=(C_truep(t4)?t3:C_a_i_plus(&a,2,t3,((C_word*)t0)[2])); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_greater_or_equalp(t3,C_fix(0)); t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=(C_truep(t4)?t3:C_a_i_plus(&a,2,t3,((C_word*)t0)[2])); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k18610 in a18607 in a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_18612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18612,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_18615,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((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:3448: print-exit37103711 */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[3])[1]; f_18615(2,av2);}}} /* r-vector in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_14602(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_14602,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14606,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:2625: r-list */ t3=((C_word*)((C_word*)t0)[3])[1]; f_14340(t3,t2,C_make_character(40),C_make_character(41));} /* k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_14600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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(30,c,4)))){ C_save_and_reclaim((void *)f_14600,2,av);} a=C_alloc(30); 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_14349,a[2]=t6,a[3]=((C_word)li525),tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14366,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|13,a[1]=(C_word)f_14379,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]=((C_word*)t0)[12],a[12]=t6,a[13]=((C_word)li529),tmp=(C_word)a,a+=14,tmp); /* library.scm:2555: ##sys#call-with-current-continuation */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t9; av2[2]=t10; C_call_cc(3,av2);}} else{ /* library.scm:2622: ##sys#read-error */ t3=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[7]; av2[3]=lf[577]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k18616 in k18613 in k18610 in a18607 in a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ 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; 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_18618,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_18622,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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:3448: print-length-limit37083709 */ t4=((C_word*)t0)[10];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k18613 in k18610 in a18607 in a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_18615(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18615,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_18618,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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:3448: current-print-length37123713 */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[4])[1]; f_18618(2,av2);}}} /* k14604 in r-vector in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_14606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14606,2,av);} if(C_truep(C_i_listp(t1))){ /* library.scm:2627: ##sys#list->vector */ t2=*((C_word*)lf[379]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:2628: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[578]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* maxmin1202 in k6799 */ static void C_ccall f_9624(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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,5)))){ C_save_and_reclaim((void *)f_9624,5,av);} a=C_alloc(7); t5=C_blockp(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|4,a[1]=(C_word)f_9631,a[2]=t7,a[3]=t4,a[4]=((C_word)li272),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_9631(t9,t1,t2,t5,t3);} /* odd? in k6799 */ 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=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_9622,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_oddp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* even? in k6799 */ static void C_ccall f_9619(C_word c,C_word *av){ C_word tmp; C_word 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_9619,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_evenp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_13268 in make-parameter in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in ... */ static void C_ccall f_13268(C_word c,C_word *av){ C_word tmp; C_word 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_13268,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k13254 in k13115 in make-parameter in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in ... */ static void C_ccall f_13256(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13256,2,av);} t2=C_mutate2(&lf[517] /* (set! ##sys#default-parameter-vector ...) */,t1); t3=((C_word*)t0)[2]; f_13152(t3,t2);} /* loop in maxmin1202 in k6799 */ static void C_fcall f_9631(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(8,0,3)))){ C_save_and_reclaim_args((void *)trf_9631,5,t0,t1,t2,t3,t4);} a=C_alloc(8); t5=C_eqp(t4,C_SCHEME_END_OF_LIST); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=(C_truep(t3)?(C_truep(C_blockp(t2))?t2:C_a_i_fix_to_flo(&a,1,t2)):t2); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_slot(t4,C_fix(0)); t7=t6; t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9669,a[2]=t7,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=((C_word*)t0)[2],a[7]=t1,tmp=(C_word)a,a+=8,tmp); /* library.scm:1045: pred */ t9=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t9; av2[1]=t8; av2[2]=t7; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t9))(4,av2);}}} /* k18154 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ 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; 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_18156,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18159,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:3352: out */ t4=((C_word*)((C_word*)t0)[5])[1]; f_17752(t4,t2,t3);} /* r-number in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_14620(C_word 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_14620,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14627,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)[2],a[7]=t2,a[8]=((C_word)li532),tmp=(C_word)a,a+=9,tmp); /* library.scm:2632: r-xtoken */ t6=((C_word*)((C_word*)t0)[6])[1]; f_14972(t6,t1,t5);} /* k25198 in a25189 in a25179 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ static void C_ccall f_25200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_25200,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; /* Re-use our own argvector */ 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:2203: ##sys#become! */ t5=*((C_word*)lf[49]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* a14626 in r-number in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_14627(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,3)))){ C_save_and_reclaim((void *)f_14627,4,av);} a=C_alloc(8); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14634,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:2635: build-keyword */ t5=((C_word*)((C_word*)t0)[4])[1]; f_15574(t5,t4,t2);} else{ if(C_truep(C_i_string_equal_p(t2,lf[580]))){ /* library.scm:2638: ##sys#read-error */ t4=*((C_word*)lf[533]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=lf[581]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14656,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,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_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_14656(t8,C_u_i_char_equalp(t7,C_make_character(35)));} else{ t6=t4; f_14656(t6,C_SCHEME_FALSE);}}}} /* k19878 in k19811 in really-print-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in ... */ static void C_ccall f_19880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19880,2,av);} /* library.scm:3874: ##sys#print */ t2=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[777]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k18157 in k18154 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_18159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_18159,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_18168,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)li597),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_18168(t6,((C_word*)t0)[7],t2);} /* loop in bitwise-and in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_18687(C_word t0,C_word t1,C_word 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(4,0,3)))){ C_save_and_reclaim_args((void *)trf_18687,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=C_slot(t3,C_fix(0)); t5=C_a_i_bitwise_and(&a,2,t2,t4); t6=C_slot(t3,C_fix(1)); /* library.scm:3461: loop */ t8=t1; t9=t5; t10=t6; t1=t8; t2=t9; t3=t10; goto loop;}} /* bitwise-and in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_18681(C_word c,C_word *av){ C_word tmp; 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_18681,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_18687,a[2]=t4,a[3]=((C_word)li617),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_18687(t6,t1,C_fix(-1),t2);} /* a25218 in a25189 in a25179 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ static void C_ccall f_25219(C_word c,C_word *av){ C_word tmp; C_word 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_25219,3,av);} if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_eqp(lf[514],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* eof-object? in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in ... */ static void C_ccall f_13274(C_word c,C_word *av){ C_word tmp; C_word 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_13274,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_eofp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* char-ready? in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in ... */ static void C_ccall f_13277(C_word c,C_word *av){ C_word tmp; 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_13277,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[453]+1):C_i_car(t2)); t5=C_i_check_port_2(t4,C_SCHEME_TRUE,C_SCHEME_TRUE,lf[522]); t6=C_slot(t4,C_fix(2)); t7=C_slot(t6,C_fix(6)); /* library.scm:2309: g2522 */ t8=t7;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t1; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}} /* k19828 in k19825 in g4116 in k19811 in really-print-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 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 *a; 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=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19833,a[2]=((C_word*)t0)[2],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:3859: ##sys#print */ t3=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[775]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k19831 in k19828 in k19825 in g4116 in k19811 in really-print-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_19833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_19833,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19836,a[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_19851,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_19851(t4,C_slot(((C_word*)t0)[6],C_fix(1)));} else{ t4=C_SCHEME_UNDEFINED; t5=t3; f_19851(t5,t4);}} else{ t4=t3; f_19851(t4,C_SCHEME_FALSE);}} /* k19834 in k19831 in k19828 in k19825 in g4116 in k19811 in really-print-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_19836,2,av);} a=C_alloc(5); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19844,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li672),tmp=(C_word)a,a+=5,tmp); /* library.scm:3869: ##sys#with-print-length-limit */ t3=*((C_word*)lf[690]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=C_fix(100); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18114 in k18107 in k18104 in k18038 in doloop3573 in k17981 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in ... */ static void C_ccall f_18116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18116,2,av);} /* library.scm:3347: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17316(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* loop in k19679 in get-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in ... */ static void C_fcall f_19689(C_word t0,C_word t1,C_word 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_19689,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_19708,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_19708(t7,t5);} else{ t7=C_i_not(((C_word*)t0)[5]); t8=t6; f_19708(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[5],t4)));}}} /* a19843 in k19834 in k19831 in k19828 in k19825 in g4116 in k19811 in really-print-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_ccall f_19844(C_word c,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_19844,2,av);} /* library.scm:3872: ##sys#print */ t2=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19679 in get-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in ... */ static void C_ccall f_19681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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,3)))){ C_save_and_reclaim((void *)f_19681,2,av);} a=C_alloc(9); 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_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_19689,a[2]=t6,a[3]=t2,a[4]=t8,a[5]=((C_word*)t0)[4],a[6]=((C_word)li670),tmp=(C_word)a,a+=7,tmp)); t10=((C_word*)t8)[1]; f_19689(t10,((C_word*)t0)[5],C_fix(0));} /* a13241 in k13150 in k13115 in make-parameter in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in ... */ static void C_ccall f_13242(C_word c,C_word *av){ C_word tmp; C_word 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_13242,3,av);} t3=C_block_size(*((C_word*)lf[518]+1)); /* library.scm:2302: assign */ t4=((C_word*)t0)[2]; f_13118(t4,t1,t2,t3,C_SCHEME_FALSE,C_SCHEME_TRUE);} /* k14654 in a14626 in r-number in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_fcall f_14656(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,4)))){ C_save_and_reclaim_args((void *)trf_14656,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ /* library.scm:2640: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[582]; 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_14662,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)[7],tmp=(C_word)a,a+=8,tmp); t3=((C_word*)t0)[7]; if(C_truep(t3)){ /* library.scm:2642: ##sys#string->number */ t4=*((C_word*)lf[328]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=t3; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ /* library.scm:2642: ##sys#string->number */ t4=*((C_word*)lf[328]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(10); av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}} /* k19849 in k19831 in k19828 in k19825 in g4116 in k19811 in really-print-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_fcall f_19851(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_19851,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19854,a[2]=((C_word*)t0)[2],a[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:3861: ##sys#write-char-0 */ t3=*((C_word*)lf[633]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(91); 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_19836(2,av2);}}} /* k19855 in k19852 in k19849 in k19831 in k19828 in k19825 in g4116 in k19811 in really-print-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_ccall f_19857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19857,2,av);} /* library.scm:3867: ##sys#print */ t2=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[774]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k19852 in k19849 in k19831 in k19828 in k19825 in g4116 in k19811 in really-print-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_19854,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19857,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:3862: ##sys#print */ t4=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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:3862: ##sys#print */ t3=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k18659 in a18656 in a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_18661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18661,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18664,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:3448: print-exit37103711 */ t4=((C_word*)t0)[7];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k18665 in k18662 in k18659 in a18656 in a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_18667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18667,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_18670,a[2]=((C_word*)t0)[2],a[3]=((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:3448: print-length-limit37083709 */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18662 in k18659 in a18656 in a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_18664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18664,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_18667,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:3448: current-print-length37123713 */ t4=((C_word*)t0)[7];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k18628 in k18624 in k18620 in k18616 in k18613 in k18610 in a18607 in a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_18630,2,av);} a=C_alloc(8); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18633,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:3448: print-length-limit37083709 */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9190 in fpatan in k6799 */ static void C_ccall f_9192(C_word c,C_word *av){ C_word tmp; 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_9192,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_atan(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k18631 in k18628 in k18624 in k18620 in k18616 in k18613 in k18610 in a18607 in a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ static void C_ccall f_18633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_18633,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18636,a[2]=((C_word*)t0)[2],a[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:3448: print-exit37103711 */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* char=? in k6799 */ static void C_ccall f_10991(C_word c,C_word *av){ C_word tmp; C_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_10991,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_char_equalp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* fpatan2 in k6799 */ static void C_ccall f_9194(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_9194,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9216,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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_a_i_flonum_atan2(&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:790: ##sys#error-hook */ t10=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t4; av2[2]=t9; av2[3]=lf[245]; av2[4]=t5; av2[5]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}} /* k25286 in k25290 in k25266 in loop in a25251 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_25288,2,av);} /* library.scm:1793: ##sys#string-append */ t2=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[442]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* char<? in k6799 */ 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=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_10997,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_char_lessp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* char>? in k6799 */ 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=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_10994,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_char_greaterp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k18634 in k18631 in k18628 in k18624 in k18620 in k18616 in k18613 in k18610 in a18607 in a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in ... */ static void C_ccall f_18636(C_word c,C_word *av){ C_word tmp; C_word t0=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_18636,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18639,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:3448: current-print-length37123713 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18637 in k18634 in k18631 in k18628 in k18624 in k18620 in k18616 in k18613 in k18610 in a18607 in a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in ... */ static void C_ccall f_18639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_18639,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k25282 in k25290 in k25266 in loop in a25251 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25284(C_word c,C_word *av){ C_word tmp; C_word 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_25284,2,av);} /* library.scm:1791: ##sys#signal-hook */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[440]; av2[3]=lf[441]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* ##sys#really-print-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in ... */ static void C_ccall f_19803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19803,5,av);} a=C_alloc(5); if(C_truep(C_i_pairp(t3))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19813,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:3851: ##sys#print */ t6=*((C_word*)lf[638]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_18602(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_18602,3,av);} a=C_alloc(31); t3=*((C_word*)lf[643]+1); t4=lf[644]; t5=lf[642]; 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_18608,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)li612),tmp=(C_word)a,a+=10,tmp); t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18651,a[2]=((C_word*)t0)[3],a[3]=((C_word)li613),tmp=(C_word)a,a+=4,tmp); t17=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18657,a[2]=t8,a[3]=t10,a[4]=t12,a[5]=t5,a[6]=t4,a[7]=t3,a[8]=((C_word)li614),tmp=(C_word)a,a+=9,tmp); /* library.scm:3448: ##sys#dynamic-wind */ t18=*((C_word*)lf[423]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a25294 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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=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_25295,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_25301,a[2]=t2,a[3]=t4,a[4]=((C_word)li413),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; f_25301(2,av2);}} /* a18607 in a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_18608(C_word c,C_word *av){ 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_18608,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18612,a[2]=((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:3448: print-length-limit37083709 */ t3=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_18612(2,av2);}}} /* k25290 in k25266 in loop in a25251 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_25292,2,av);} a=C_alloc(10); t2=C_fix((C_word)EINTR); t3=C_eqp(t1,t2); if(C_truep(t3)){ /* library.scm:1790: ##sys#dispatch-interrupt */ t4=*((C_word*)lf[439]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25284,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_25288,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* a24789 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_24790(C_word c,C_word *av){ C_word tmp; C_word 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_24790,3,av);} t3=C_slot(t2,C_fix(10)); t4=C_slot(t2,C_fix(11)); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_fixnum_lessp(t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a18650 in a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_18651(C_word c,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_18651,2,av);} /* library.scm:3452: thunk */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* fpatan in k6799 */ static void C_ccall f_9176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9176,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9192,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_flonum_atan(&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:786: ##sys#error-hook */ t6=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[244]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* a18656 in a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_18657(C_word c,C_word *av){ 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_18657,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18661,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:3448: print-length-limit37083709 */ t3=((C_word*)t0)[7];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* body2076 in k12103 in current-output-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static C_word C_fcall f_12107(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_mutate2((C_word*)lf[454]+1 /* (set! ##sys#standard-output ...) */,((C_word*)t0)[2]); return(t2);} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* k9172 in fpacos in k6799 */ static void C_ccall f_9174(C_word c,C_word *av){ C_word tmp; 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_9174,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_acos(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12103 in current-output-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 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 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_12105,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_12107,a[2]=((C_word*)t0)[3],a[3]=((C_word)li433),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12113,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12118,a[2]=t5,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t3))){ t7=( /* library.scm:1926: def-convert?2078 */ f_12118(t6) ); t8=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ 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:1926: def-set?2079 */ f_12113(t5) ); t10=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ 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:1926: body2076 */ f_12107(t4,t9) ); t12=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}} /* a25234 in a25189 in a25179 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ 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; 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_25235,4,av);} a=C_alloc(3); t4=C_a_i_cons(&a,2,lf[514],((C_word*)t0)[2]); t5=C_i_setslot(t2,t3,t4); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k11698 in dynamic-wind in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 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_11700,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_word*)lf[421]+1)); t4=C_mutate2((C_word*)lf[421]+1 /* (set! ##sys#dynamic-winds ...) */,t3); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11709,a[2]=((C_word*)t0)[3],a[3]=((C_word)li394),tmp=(C_word)a,a+=4,tmp); /* library.scm:1664: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* def-convert?2078 in k12103 in current-output-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static C_word C_fcall f_12118(C_word t0){ C_word tmp; C_word t1; C_stack_overflow_check;{} return(( /* library.scm:1926: def-set?2079 */ f_12113(((C_word*)t0)[2]) ));} /* def-set?2079 in k12103 in current-output-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static C_word C_fcall f_12113(C_word t0){ C_word tmp; C_word t1; C_stack_overflow_check;{} return(( /* library.scm:1926: body2076 */ f_12107(((C_word*)t0)[2],C_SCHEME_TRUE) ));} /* doloop3635 in k18352 in k18349 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_fcall f_18363(C_word 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_18363,4,t0,t1,t2,t3);} a=C_alloc(8); t4=C_eqp(t3,C_fix(0)); if(C_truep(t4)){ /* library.scm:3395: outchr */ t5=((C_word*)((C_word*)t0)[2])[1]; f_17388(t5,t1,((C_word*)t0)[3],C_make_character(41));} else{ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18376,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:3396: outchr */ t6=((C_word*)((C_word*)t0)[2])[1]; f_17388(t6,t5,((C_word*)t0)[3],C_make_character(32));}} /* a11708 in k11698 in dynamic-wind in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11709(C_word c,C_word *av){ C_word tmp; 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_11709,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_word*)lf[421]+1),C_fix(1)); t4=C_mutate2((C_word*)lf[421]+1 /* (set! ##sys#dynamic-winds ...) */,t3); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11717,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:1668: after */ t6=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)C_fast_retrieve_proc(t6))(2,av2);}} /* k24770 in a24767 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_24772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_24772,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; /* Re-use our own argvector */ 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);}} /* k10631 in make-vector in k6799 */ static void C_ccall f_10633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10633,2,av);} if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ t2=C_SCHEME_UNDEFINED; /* library.scm:1371: ##sys#allocate-vector */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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:1371: ##sys#allocate-vector */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k9154 in fpasin in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_9156,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_asin(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* fpacos in k6799 */ static void C_ccall f_9158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9158,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9174,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_flonum_acos(&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:786: ##sys#error-hook */ t6=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[243]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k11715 in a11708 in k11698 in dynamic-wind in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11717,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k24698 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_24700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24700,2,av);} /* library.scm:3690: string->symbol */ t2=*((C_word*)lf[349]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a24705 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_24706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_24706,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k24702 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_24704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24704,2,av);} /* library.scm:3686: string->symbol */ t2=*((C_word*)lf[349]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 a25251 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25258(C_word c,C_word *av){ C_word tmp; C_word t0=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_25258,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_25268,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* library.scm:1788: ##sys#update-errno */ t5=*((C_word*)lf[86]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k25248 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in ... */ static void C_ccall f_25250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_25250,2,av);} /* library.scm:1947: string->symbol */ t2=*((C_word*)lf[349]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a25251 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_25252,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_25258,a[2]=t2,a[3]=t4,a[4]=((C_word)li411),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; f_25258(2,av2);}} /* call-with-current-continuation in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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=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_11727,3,av);} a=C_alloc(5); t3=*((C_word*)lf[421]+1); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11733,a[2]=t3,a[3]=t2,a[4]=((C_word)li397),tmp=(C_word)a,a+=5,tmp); /* library.scm:1675: ##sys#call-with-current-continuation */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t4; C_call_cc(3,av2);}} /* current-error-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in ... */ static void C_ccall f_12153(C_word c,C_word *av){ C_word tmp; 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_12153,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[455]+1); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=*((C_word*)lf[455]+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_12166,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:1934: ##sys#check-port */ t6=*((C_word*)lf[437]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=lf[461]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* vector-length in k6799 */ static void C_ccall f_10617(C_word c,C_word *av){ C_word tmp; C_word 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_10617,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_vector_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* vector? in k6799 */ 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_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10614,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_vectorp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k25266 in loop in a25251 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25268(C_word c,C_word *av){ C_word tmp; C_word t0=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_25268,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25292,a[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:1789: errno */ t3=*((C_word*)lf[443]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#vector-resize in k6799 */ static void C_fcall f_10935(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_10935,4,t1,t2,t3,t4);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10939,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:1445: ##sys#make-vector */ t6=*((C_word*)lf[375]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* a11732 in call-with-current-continuation in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11733(C_word c,C_word *av){ C_word tmp; C_word 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_11733,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11736,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li396),tmp=(C_word)a,a+=5,tmp); /* library.scm:1681: proc */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k10937 in vector-resize in k6799 */ static void C_ccall f_10939(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_10939,2,av);} a=C_alloc(5); t2=t1; 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)[3],tmp=(C_word)a,a+=5,tmp); t4=C_block_size(((C_word*)t0)[2]); /* library.scm:1446: min */ t5=*((C_word*)lf[311]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* continuation in a11732 in call-with-current-continuation in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_11736,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_11740,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_eqp(*((C_word*)lf[421]+1),((C_word*)t0)[3]); if(C_truep(t4)){{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_word*)lf[421]+1)); t6=C_i_length(((C_word*)t0)[3]); t7=C_fixnum_difference(t5,t6); /* library.scm:1679: ##sys#dynamic-unwind */ f_11767(t3,((C_word*)t0)[3],t7);}} /* f_10620 in k6799 */ static void C_ccall f_10620(C_word c,C_word *av){ C_word tmp; C_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_10620,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_vector_ref(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* vector-set! in k6799 */ 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=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_10623,5,av);} t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_vector_set(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* make-vector in k6799 */ 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=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_10626,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=C_i_check_exact_2(t2,lf[373]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10633,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ /* library.scm:1370: ##sys#error */ t6=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[373]; av2[3]=lf[374]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_10633(2,av2);}}} /* k10940 in k10937 in vector-resize in k6799 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10942,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10947,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li345),tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_10947(t3,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* doloop1637 in k10940 in k10937 in vector-resize in k6799 */ static C_word 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 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;}} /* k12730 in k12719 in k12735 in delete-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12732,2,av);} /* library.scm:2100: ##sys#string-append */ t2=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[501]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k12735 in delete-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12737,2,av);} a=C_alloc(4); t2=C_delete_file(t1); t3=C_eqp(C_fix(0),t2); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_12721,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:2097: ##sys#update-errno */ t5=*((C_word*)lf[86]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* rename-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_ccall f_12739(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_12739,4,av);} a=C_alloc(10); t4=C_i_check_string_2(t2,lf[502]); t5=C_i_check_string_2(t3,lf[502]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12749,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12771,a[2]=t1,a[3]=t3,a[4]=t6,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* library.scm:2106: ##sys#make-c-string */ t8=*((C_word*)lf[37]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=t2; av2[3]=lf[502]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k10669 in list->vector in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_10671,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10676,a[2]=t2,a[3]=((C_word)li333),tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_10676(t3,((C_word*)t0)[3],C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in k10669 in list->vector in k6799 */ static C_word C_fcall f_10676(C_word t0,C_word t1,C_word t2){ C_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;}} /* vector-resize in k6799 */ 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=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,4)))){ C_save_and_reclaim((void*)f_10914,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; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=C_i_check_vector_2(t2,lf[384]); t8=C_i_check_exact_2(t3,lf[384]); /* library.scm:1442: ##sys#vector-resize */ f_10935(t1,t2,t3,t6);} /* k12164 in current-error-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 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 t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_12166,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_12168,a[2]=((C_word*)t0)[3],a[3]=((C_word)li435),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12174,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12179,a[2]=t5,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t3))){ t7=( /* library.scm:1935: def-convert?2103 */ f_12179(t6) ); t8=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ 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:1935: def-set?2104 */ f_12174(t5) ); t10=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ 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:1935: body2101 */ f_12168(t4,t9) ); t12=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}} /* k12747 in rename-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static void C_ccall f_12749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12749,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* body2101 in k12164 in current-error-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static C_word C_fcall f_12168(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_mutate2((C_word*)lf[455]+1 /* (set! ##sys#standard-error ...) */,((C_word*)t0)[2]); return(t2);} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* k18374 in doloop3635 in k18352 in k18349 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ static void C_ccall f_18376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18376,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18379,a[2]=((C_word*)t0)[2],a[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:3397: out */ t4=((C_word*)((C_word*)t0)[7])[1]; f_17752(t4,t2,t3);} /* k18377 in k18374 in doloop3635 in k18352 in k18349 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in ... */ static void C_ccall f_18379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18379,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_18363(t4,((C_word*)t0)[5],t2,t3);} /* k12753 in k12773 in k12769 in rename-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in ... */ static void C_ccall f_12755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_12755,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12762,a[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_12766,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* list->vector in k6799 */ static void C_ccall f_10655(C_word c,C_word *av){ C_word tmp; C_word 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_10655,3,av);} a=C_alloc(4); if(C_truep(C_i_listp(t2))){ t3=C_i_length(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10671,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:1384: ##sys#make-vector */ t5=*((C_word*)lf[375]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* library.scm:1382: ##sys#error-not-a-proper-list */ t3=*((C_word*)lf[134]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=lf[376]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k18265 in k18251 in doloop3617 in k18227 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ static void C_ccall f_18267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18267,2,av);} /* library.scm:3370: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17316(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* for-each-loop4115 in k19811 in really-print-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in ... */ static void C_fcall f_19885(C_word t0,C_word t1,C_word 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_19885,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_19895,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:3852: g4116 */ t5=((C_word*)t0)[3]; f_19814(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);}}} /* k12764 in k12753 in k12773 in k12769 in rename-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12766,2,av);} /* library.scm:2110: ##sys#string-append */ t2=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[503]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* char->integer in k6799 */ static void C_ccall f_10977(C_word c,C_word *av){ C_word tmp; C_word 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_10977,3,av);} t3=C_i_check_char_2(t2,lf[387]); t4=C_character_code(t2); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_fix(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* char? in k6799 */ static void C_ccall f_10974(C_word c,C_word *av){ C_word tmp; C_word 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_10974,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_charp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k18315 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_18317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18317,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18320,a[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:3383: outstr */ t4=((C_word*)((C_word*)t0)[2])[1]; f_17316(t4,t2,((C_word*)t0)[4],t3);} /* k12760 in k12753 in k12773 in k12769 in rename-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in ... */ static void C_ccall f_12762(C_word c,C_word *av){ C_word tmp; C_word 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_12762,2,av);} /* library.scm:2108: ##sys#signal-hook */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[440]; av2[3]=lf[502]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k18309 in k18299 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_18311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18311,2,av);} /* library.scm:3377: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17316(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* ##sys#decorate-lambda in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_ccall f_12777(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_12777,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_12790,a[2]=t6,a[3]=t2,a[4]=t4,a[5]=t9,a[6]=t3,a[7]=((C_word)li476),tmp=(C_word)a,a+=8,tmp)); t11=((C_word*)t9)[1]; f_12790(t11,t1,t7);} /* k19893 in for-each-loop4115 in k19811 in really-print-call-chain in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in ... */ static void C_ccall f_19895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_19895,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_19885(t3,((C_word*)t0)[4],t2);} /* k12773 in k12769 in rename-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_12775,2,av);} a=C_alloc(5); t2=C_rename_file(((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; /* Re-use our own argvector */ 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_12755,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); /* library.scm:2107: ##sys#update-errno */ t5=*((C_word*)lf[86]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* integer->char in k6799 */ 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=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_10984,3,av);} t3=C_i_check_exact_2(t2,lf[388]); t4=C_unfix(t2); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_make_character(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k12769 in rename-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_12771,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12775,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); /* library.scm:2106: ##sys#make-c-string */ t4=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18674 in k18671 in k18668 in k18665 in k18662 in k18659 in a18656 in a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_18676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_18676,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_mutate2(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); t4=C_mutate2(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]); t5=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k18671 in k18668 in k18665 in k18662 in k18659 in a18656 in a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_18673(C_word c,C_word *av){ C_word tmp; C_word t0=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_18673,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18676,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:3448: current-print-length37123713 */ t3=((C_word*)t0)[9];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18668 in k18665 in k18662 in k18659 in a18656 in a18601 in with-print-length-limit in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 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; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_18670,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18673,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:3448: print-exit37103711 */ t3=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20732 in loop in make-property-condition in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_ccall f_20734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_20734,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; /* Re-use our own argvector */ 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);}} /* k18302 in k18299 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_18304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18304,2,av);} /* library.scm:3378: outchr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17388(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(62));} /* k18299 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_18301(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18301,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18304,a[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_18311,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:3377: ##sys#lambda-info->string */ t4=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in decorate-lambda in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static void C_fcall f_12790(C_word t0,C_word t1,C_word 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_12790,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_i_zerop(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12800,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); t4=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* library.scm:2122: make-vector */ t5=*((C_word*)lf[373]+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_slot(((C_word*)t0)[3],t2); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12842,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:2131: pred */ t5=((C_word*)t0)[6];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} /* delete-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 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=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_12708,3,av);} a=C_alloc(9); t3=C_i_check_string_2(t2,lf[500]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12715,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12737,a[2]=t1,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* library.scm:2096: ##sys#make-c-string */ t6=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=lf[500]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* make-composite-condition in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 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=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_20743,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_20860,a[2]=((C_word)li697),tmp=(C_word)a,a+=3,tmp); t7=( f_20860(t5) ); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20762,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_20824,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_20826,a[2]=t11,a[3]=t15,a[4]=t12,a[5]=((C_word)li699),tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_20826(t17,t13,t5);} /* k12713 in delete-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12715,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12726 in k12719 in k12735 in delete-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_12728,2,av);} /* library.scm:2098: ##sys#signal-hook */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[440]; av2[3]=lf[500]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k12719 in k12735 in delete-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_12721,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12728,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_12732,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* split in k6799 */ static C_word C_fcall f_10170(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_stack_overflow_check;{} t3=C_subbyte(t1,C_fix(0)); if(C_truep(C_fixnum_greaterp(t2,C_fix(0)))){ if(C_truep(C_fixnum_lessp(t3,t2))){ t4=C_fixnum_less_or_equal_p(t3,C_fix(31)); return((C_truep(t4)?C_fixnum_plus(t3,C_fix(1)):C_SCHEME_FALSE));} else{ return(C_SCHEME_FALSE);}} else{ return(C_SCHEME_FALSE);}} /* k23389 in k23386 in k23364 in k23361 in show-exception-warning in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_23391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_23391,2,av);} /* write-char/port */ t2=*((C_word*)lf[634]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in make-property-condition in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_fcall f_20708(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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(8,0,2)))){ C_save_and_reclaim_args((void *)trf_20708,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_car(t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],t3); t5=t4; t6=C_i_cadr(t2); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20734,a[2]=t7,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t9=t2; t10=C_u_i_cdr(t9); t11=C_u_i_cdr(t10); /* library.scm:4138: loop */ t13=t8; t14=t11; t1=t13; t2=t14; goto loop;}} /* k20704 in make-property-condition in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_20706,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_record3(&a,3,lf[680],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k18287 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_18289(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18289,2,av);} /* library.scm:3373: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17316(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* fp+ in k6799 */ 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=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_8705,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8727,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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_a_i_flonum_plus(&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:790: ##sys#error-hook */ t10=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t4; av2[2]=t9; av2[3]=lf[219]; av2[4]=t5; av2[5]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}} /* k20760 in make-composite-condition in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ 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 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_20762,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20766,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_20778,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_20780,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li698),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_20780(t12,t8,((C_word*)t0)[3]);} /* k20764 in k20760 in make-composite-condition in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_20766,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_record3(&a,3,lf[680],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9136 in fptan in k6799 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_9138,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_tan(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k23386 in k23364 in k23361 in show-exception-warning in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_23388,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23391,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:4893: display */ t3=*((C_word*)lf[639]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k23383 in k23373 in k23370 in k23367 in k23364 in k23361 in show-exception-warning in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in ... */ static void C_ccall f_23385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_23385,2,av);} /* library.scm:4897: print-error-message */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[455]+1); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* fpasin in k6799 */ static void C_ccall f_9140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_9140,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9156,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_flonum_asin(&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:786: ##sys#error-hook */ t6=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[242]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* char-alphabetic? in k6799 */ 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=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_11100,3,av);} t3=C_i_check_char_2(t2,lf[405]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_char_alphabeticp(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* fp* in k6799 */ static void C_ccall f_8753(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_8753,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8775,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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_a_i_flonum_times(&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:790: ##sys#error-hook */ t10=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t4; av2[2]=t9; av2[3]=lf[221]; av2[4]=t5; av2[5]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}} /* k8749 in fp- in k6799 */ static void C_ccall f_8751(C_word c,C_word *av){ C_word tmp; 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_8751,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_difference(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11106 in k6799 */ static void C_ccall f_11108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_11108,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_11110,a[2]=t2,a[3]=((C_word)li368),tmp=(C_word)a,a+=4,tmp); t6=C_mutate2((C_word*)lf[406]+1 /* (set! char-name ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11151,a[2]=t5,a[3]=t4,a[4]=t2,a[5]=((C_word)li369),tmp=(C_word)a,a+=6,tmp)); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11268,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1559: char-name */ t8=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=lf[1147]; av2[3]=C_make_character(32); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* ##sys#symbol->string in k6799 */ static void C_ccall f_10197(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,4)))){ C_save_and_reclaim((void *)f_10197,3,av);} t3=C_slot(t2,C_fix(1)); t4=C_block_size(t3); t5=( /* library.scm:1215: split */ f_10170(t3,t4) ); if(C_truep(t5)){ /* library.scm:1216: ##sys#substring */ t6=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=t5; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* lookup-char in k11106 in k6799 */ static void C_fcall f_11110(C_word t0,C_word 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_11110,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_11123,a[2]=t2,a[3]=((C_word)li367),tmp=(C_word)a,a+=4,tmp); t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=( f_11123(t6,t5) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* ##sys#symbol->qualified-string in k6799 */ 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=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(6,c,4)))){ C_save_and_reclaim((void *)f_10215,3,av);} a=C_alloc(6); t3=C_slot(t2,C_fix(1)); t4=t3; t5=C_block_size(t4); t6=t5; t7=( /* library.scm:1222: split */ f_10170(t4,t6) ); t8=t7; if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10235,a[2]=t1,a[3]=t4,a[4]=t8,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* library.scm:1224: ##sys#substring */ t10=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t9; av2[2]=t4; av2[3]=C_fix(1); av2[4]=t8; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k20776 in k20760 in make-composite-condition in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 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(0,c,3)))){ C_save_and_reclaim((void *)f_20778,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[862]+1); av2[3]=t1; C_apply(4,av2);}} /* def-convert?2103 in k12164 in current-error-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static C_word C_fcall f_12179(C_word t0){ C_word tmp; C_word t1; C_stack_overflow_check;{} return(( /* library.scm:1935: def-set?2104 */ f_12174(((C_word*)t0)[2]) ));} /* def-set?2104 in k12164 in current-error-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static C_word C_fcall f_12174(C_word t0){ C_word tmp; C_word t1; C_stack_overflow_check;{} return(( /* library.scm:1935: body2101 */ f_12168(((C_word*)t0)[2],C_SCHEME_TRUE) ));} /* loop in lookup-char in k11106 in k6799 */ static C_word C_fcall f_11123(C_word t0,C_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);}} /* fpcos in k6799 */ 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=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_9104,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9120,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_flonum_cos(&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:786: ##sys#error-hook */ t6=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[240]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k9100 in fpsin in k6799 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_9102,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_sin(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop4486 in k20760 in make-composite-condition in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_fcall f_20780(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_20780,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_mutate2(((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);}}} /* char-name in k11106 in k6799 */ static void C_ccall f_11151(C_word c,C_word *av){ C_word tmp; C_word 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_11151,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_11155,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_11155(t6,C_u_i_car(t5));} else{ t5=t4; f_11155(t5,C_SCHEME_FALSE);}} /* k11153 in char-name in k11106 in k6799 */ static void C_fcall f_11155(C_word t0,C_word t1){ C_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_11155,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_11164,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* library.scm:1533: lookup-char */ t4=((C_word*)t0)[4]; f_11110(t4,t3,((C_word*)t0)[2]);} else{ if(C_truep(t2)){ t3=C_i_check_symbol_2(((C_word*)t0)[2],lf[406]); t4=C_i_check_char_2(t2,lf[406]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11182,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:1539: ##sys#signal-hook */ t8=*((C_word*)lf[8]+1);{ C_word av2[6]; av2[0]=t8; av2[1]=t5; av2[2]=lf[56]; av2[3]=lf[406]; av2[4]=lf[407]; 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_11182(2,av2);}}} else{ t3=C_i_check_symbol_2(((C_word*)t0)[2],lf[406]); 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);}}}} /* ##sys#qualified-symbol? in k6799 */ static void C_ccall f_10259(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10259,3,av);} t3=C_slot(t2,C_fix(1)); t4=C_block_size(t3); if(C_truep(C_fixnum_greaterp(t4,C_fix(0)))){ t5=C_subbyte(t3,C_fix(0)); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_fixnum_less_or_equal_p(t5,C_fix(31)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k8773 in fp* in k6799 */ static void C_ccall f_8775(C_word c,C_word *av){ C_word tmp; 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_8775,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_times(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k14375 in k14364 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_14377(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14377,2,av);} /* library.scm:2620: info */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13558(t2,((C_word*)t0)[3],lf[568],t1,((C_word*)((C_word*)t0)[4])[1]);} /* fp/ in k6799 */ static void C_ccall f_8777(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_8777,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8799,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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_a_i_flonum_quotient(&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:790: ##sys#error-hook */ t10=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t4; av2[2]=t9; av2[3]=lf[222]; av2[4]=t5; av2[5]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}} /* a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_14379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(23,c,3)))){ C_save_and_reclaim((void *)f_14379,3,av);} a=C_alloc(23); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14382,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)li526),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|13,a[1]=(C_word)f_14404,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*)t0)[12],a[13]=((C_word)li528),tmp=(C_word)a,a+=14,tmp)); t7=((C_word*)t5)[1]; f_14404(t7,t1,C_SCHEME_END_OF_LIST);} /* k11162 in k11153 in char-name in k11106 in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11164,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k14361 in starting-line in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14363,2,av);} /* library.scm:2551: string-append */ t2=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[567]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k14364 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_14366,2,av);} a=C_alloc(5); t2=C_mutate2(((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_14377,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:2620: ##sys#infix-list-hook */ t4=*((C_word*)lf[531]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10233 in symbol->qualified-string in k6799 */ static void C_ccall f_10235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10235,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10239,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:1224: ##sys#substring */ t4=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k10237 in k10233 in symbol->qualified-string in k6799 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10239,2,av);} /* library.scm:1224: string-append */ t2=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[343]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[344]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* ##sys#check-integer in k6799 */ static void C_ccall f_7227(C_word c,C_word *av){ C_word tmp; C_word 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_7227,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_integerp(t2))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_INTEGER_ERROR); if(C_truep(C_i_pairp(t3))){ t5=t3; t6=C_u_i_car(t5); /* library.scm:336: ##sys#error-hook */ t7=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t1; av2[2]=t4; av2[3]=t6; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ /* library.scm:336: ##sys#error-hook */ t5=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}} /* ##sys#qualified-symbol-prefix in k6799 */ static void C_ccall f_10241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,4)))){ C_save_and_reclaim((void *)f_10241,3,av);} t3=C_slot(t2,C_fix(1)); t4=C_block_size(t3); t5=( /* library.scm:1231: split */ f_10170(t3,t4) ); if(C_truep(t5)){ /* library.scm:1232: ##sys#substring */ t6=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* ##sys#check-range in k6799 */ 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=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 +0,c,6)))){ C_save_and_reclaim((void*)f_7245,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+0); 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_check_exact_2(t2,t5); t7=C_fixnum_less_or_equal_p(t3,t2); t8=(C_truep(t7)?C_fixnum_lessp(t2,t4):C_SCHEME_FALSE); if(C_truep(t8)){ t9=C_SCHEME_UNDEFINED; t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=C_fix((C_word)C_OUT_OF_RANGE_ERROR); if(C_truep(C_i_pairp(t5))){ t10=t5; t11=C_u_i_car(t10); /* library.scm:343: ##sys#error-hook */ t12=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t12; av2[1]=t1; av2[2]=t9; av2[3]=t11; av2[4]=t2; av2[5]=t3; av2[6]=t4; ((C_proc)(void*)(*((C_word*)t12+1)))(7,av2);}} else{ /* library.scm:343: ##sys#error-hook */ t10=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t10; av2[1]=t1; av2[2]=t9; av2[3]=C_SCHEME_FALSE; av2[4]=t2; av2[5]=t3; av2[6]=t4; ((C_proc)(void*)(*((C_word*)t10+1)))(7,av2);}}}} /* k9118 in fpcos in k6799 */ 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_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_9120,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_cos(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* fptan in k6799 */ 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=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_9122,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9138,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_flonum_tan(&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:786: ##sys#error-hook */ t6=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[241]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k14332 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_14334,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:2542: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_13786(t3,((C_word*)t0)[5],t1,t2);} /* ##sys#read-bytevector-literal in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in ... */ static void C_ccall f_16745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16745,3,av);} a=C_alloc(12); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16748,a[2]=t2,a[3]=((C_word)li570),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_16794,a[2]=t2,a[3]=t5,a[4]=t3,a[5]=((C_word)li571),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_16794(t7,t1,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} /* hex in read-bytevector-literal in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in ... */ static void C_fcall f_16748(C_word t0,C_word 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_16748,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:3030: ##sys#read-error */ t6=*((C_word*)lf[533]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[624]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}} /* ##sys#check-special in k6799 */ 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=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_7275,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; /* Re-use our own argvector */ 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:349: ##sys#signal-hook */ t7=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t1; av2[2]=lf[56]; av2[3]=t6; av2[4]=lf[77]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} else{ /* library.scm:349: ##sys#signal-hook */ t5=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=lf[56]; av2[3]=C_SCHEME_FALSE; av2[4]=lf[77]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}}} /* fp- in k6799 */ static void C_ccall f_8729(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_8729,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8751,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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_a_i_flonum_difference(&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:790: ##sys#error-hook */ t10=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t4; av2[2]=t9; av2[3]=lf[220]; av2[4]=t5; av2[5]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}} /* k8725 in fp+ in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_8727,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_plus(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12840 in loop in decorate-lambda in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12842,2,av);} if(C_truep(t1)){ /* library.scm:2132: decorator */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:2133: loop */ t3=((C_word*)((C_word*)t0)[6])[1]; f_12790(t3,((C_word*)t0)[3],t2);}} /* ##sys#check-closure in k6799 */ static void C_ccall f_7295(C_word c,C_word *av){ C_word tmp; C_word 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_7295,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k19514 in register-feature! in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in ... */ static void C_ccall f_19516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19516,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop4007 in register-feature! in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in ... */ static void C_fcall f_19518(C_word t0,C_word 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_19518,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_19528,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_19503,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* library.scm:3794: ##sys#->feature-id */ t7=*((C_word*)lf[760]+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);}}} /* k16024 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_16026(C_word c,C_word *av){ C_word tmp; C_word t0=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_16026,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16029,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:2922: readrec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_13628(t3,t2);} /* k16027 in k16024 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ static void C_ccall f_16029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16029,2,av);} /* library.scm:2922: readrec */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13628(t2,((C_word*)t0)[3]);} /* f_14382 in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_14382(C_word c,C_word *av){ C_word tmp; C_word 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_14382,3,av);} a=C_alloc(6); t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ /* library.scm:2560: return */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_14399,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:2563: starting-line */ t5=((C_word*)t0)[5]; f_14349(t5,t4,lf[569]);}} /* ##sys#lambda-decoration in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_ccall f_12854(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_12854,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_12864,a[2]=t2,a[3]=t7,a[4]=t3,a[5]=((C_word)li478),tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_12864(t9,t1,t5);} /* loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_fcall f_13786(C_word t0,C_word t1,C_word 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_13786,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:2468: ##sys#read-error */ t5=*((C_word*)lf[533]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[553]; ((C_proc)(void*)(*((C_word*)t5+1)))(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_13803,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:2470: ##sys#read-char-0 */ t7=*((C_word*)lf[523]+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{ t6=C_eqp(((C_word*)t0)[6],((C_word*)t4)[1]); if(C_truep(t6)){ /* library.scm:2541: ##sys#reverse-list->string */ t7=*((C_word*)lf[158]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14334,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* library.scm:2542: ##sys#read-char-0 */ t8=*((C_word*)lf[523]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}}} /* k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_13784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13784,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_13786,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)li523),tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_13786(t5,((C_word*)t0)[6],t1,C_SCHEME_END_OF_LIST);} /* k19526 in for-each-loop4007 in register-feature! in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in ... */ static void C_ccall f_19528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_19528,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_19518(t3,((C_word*)t0)[4],t2);} /* loop in lambda-decoration in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static void C_fcall f_12864(C_word 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_12864,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_12880,a[2]=t1,a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* library.scm:2139: 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);}}} /* r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_13776(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_13776,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13784,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:2466: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+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);}} /* k20510 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_20512,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20516,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_20542,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* library.scm:4091: ##sys#symbol->qualified-string */ t9=*((C_word*)lf[342]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t8=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t5; f_20516(2,av2);}}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[853]; f_20516(2,av2);}}} /* f27442 in exit in k6799 */ static void C_ccall f27442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f27442,2,av);} /* library.scm:168: g82 */ t2=t1;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* k20514 in k20510 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20516,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; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ } 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);}}} /* k16000 in k15997 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ static void C_ccall f_16002(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16002,2,av);} /* library.scm:2916: readrec */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13628(t2,((C_word*)t0)[3]);} /* k20500 */ static void C_ccall f_20502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_20502,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20505,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4101: ##sys#reset-handler */ t3=*((C_word*)lf[4]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k19501 in for-each-loop4007 in register-feature! in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_19503,2,av);} a=C_alloc(3); if(C_truep(C_i_memq(t1,*((C_word*)lf[762]+1)))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_word*)lf[762]+1)); t3=C_mutate2((C_word*)lf[762]+1 /* (set! ##sys#features ...) */,t2); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k20503 in k20500 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20505,2,av);} /* library.scm:4080: g4387 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k12878 in loop in lambda-decoration in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12880,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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:2141: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_12864(t3,((C_word*)t0)[2],t2);}} /* k20571 */ static void C_ccall f_20573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_20573,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20576,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4104: ##sys#reset-handler */ t3=*((C_word*)lf[4]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k20574 in k20571 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20576,2,av);} /* library.scm:4078: g4390 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k19550 in k19546 in unregister-feature! in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in ... */ static void C_ccall f_19552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_19552,2,av);} t2=C_mutate2((C_word*)lf[762]+1 /* (set! ##sys#features ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in k19546 in unregister-feature! in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in ... */ static void C_fcall f_19554(C_word t0,C_word t1,C_word t2){ C_word 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_19554,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:3808: loop */ t8=t1; t9=t5; t1=t8; t2=t9; goto loop;} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19583,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* library.scm:3809: loop */ t8=t6; t9=t5; t1=t8; t2=t9; goto loop;}}} /* k16067 in k16058 in k16055 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16069,2,av);} /* library.scm:2931: ##sys#read-bytevector-literal */ t2=*((C_word*)lf[607]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_14340(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(13,0,2)))){ C_save_and_reclaim_args((void *)trf_14340,4,t0,t1,t2,t3);} a=C_alloc(13); t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_14600,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],a[12]=((C_word*)t0)[9],tmp=(C_word)a,a+=13,tmp); /* library.scm:2545: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+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);}} /* starting-line in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_fcall f_14349(C_word t0,C_word t1,C_word 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_14349,3,t0,t1,t2);} a=C_alloc(4); t3=(C_truep(((C_word*)((C_word*)t0)[2])[1])?*((C_word*)lf[528]+1):C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14363,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:2553: ##sys#number->string */ t5=*((C_word*)lf[331]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(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);}}} /* k16058 in k16055 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ 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(4,c,2)))){ C_save_and_reclaim((void *)f_16060,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_16069,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:2930: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16079,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2932: readrec */ t3=((C_word*)((C_word*)t0)[4])[1]; f_13628(t3,t2);}} /* ##sys#make-lambda-info in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ 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=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_12893,3,av);} a=C_alloc(5); t3=C_block_size(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12900,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:2148: ##sys#make-string */ t6=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* loop in compare-slots in equal=? in k6799 */ 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 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_9992,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:1154: walk */ t6=((C_word*)((C_word*)t0)[5])[1]; f_10033(t6,t1,t4,t5);} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10016,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:1155: walk */ t7=((C_word*)((C_word*)t0)[5])[1]; f_10033(t7,t4,t5,t6);}} /* k16012 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_16014(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16014,2,av);} /* library.scm:2919: r-ext-symbol */ t2=((C_word*)((C_word*)t0)[2])[1]; f_15482(t2,((C_word*)t0)[3]);} /* a24748 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_24749(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24749,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24753,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:3538: check */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=C_fix(1); ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} /* k16046 in k16039 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ 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(6,c,1)))){ C_save_and_reclaim((void *)f_16048,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list2(&a,2,lf[606],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k16039 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_16041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16041,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16048,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2925: readrec */ t3=((C_word*)((C_word*)t0)[3])[1]; f_13628(t3,t2);} /* k20540 in k20510 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_20542,2,av);} if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){ t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* library.scm:4090: string-append */ t3=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[850]; av2[3]=t1; av2[4]=lf[851]; 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:4090: string-append */ t2=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[850]; av2[3]=t1; av2[4]=lf[851]; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ /* library.scm:4090: string-append */ t2=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[850]; av2[3]=t1; av2[4]=lf[851]; av2[5]=lf[852]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* unregister-feature! in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in ... */ static void C_ccall f_19541(C_word c,C_word *av){ C_word tmp; 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_19541,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[760]+1); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19548,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_19585,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li665),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_19585(t12,t8,t2);} /* k19546 in unregister-feature! in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in ... */ static void C_ccall f_19548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_19548,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19552,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_19554,a[2]=t2,a[3]=t5,a[4]=((C_word)li664),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_19554(t7,t3,*((C_word*)lf[762]+1));} /* k16077 in k16058 in k16055 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in ... */ static void C_ccall f_16079(C_word c,C_word *av){ C_word tmp; 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_16079,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list2(&a,2,lf[608],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k14397 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_14399,2,av);} /* library.scm:2561: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k8797 in fp/ in k6799 */ static void C_ccall f_8799(C_word c,C_word *av){ C_word tmp; 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_8799,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_quotient(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#check-locative in k6799 */ static void C_ccall f_7216(C_word c,C_word *av){ C_word tmp; C_word 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_7216,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* reserved-character in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_fcall f_13604(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_13604,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13608,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:2421: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+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);}} /* k13606 in reserved-character in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13608,2,av);} /* library.scm:2422: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[548]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a24786 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_24787(C_word c,C_word *av){ C_word tmp; C_word 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_24787,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#check-boolean in k6799 */ 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=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_7205,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k16055 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_16057,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16060,a[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:2928: ##sys#peek-char-0 */ t3=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k24751 in a24748 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_24753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_24753,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; /* Re-use our own argvector */ 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);}} /* k20592 in k20589 in k20586 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20594,2,av);} /* library.scm:4078: g4395 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k20589 in k20586 */ static void C_ccall f_20591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_20591,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20594,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4109: ##sys#reset-handler */ t3=*((C_word*)lf[4]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k16086 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_16088(C_word c,C_word *av){ C_word tmp; C_word t0=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_16088,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16091,a[2]=((C_word*)t0)[2],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:2935: ##sys#peek-char-0 */ t3=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_fcall f_13628(C_word t0,C_word t1){ C_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(161,0,5)))){ C_save_and_reclaim_args((void *)trf_13628,2,t0,t1);} a=C_alloc(161); 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_13631,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li517),tmp=(C_word)a,a+=5,tmp)); t37=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13679,a[2]=((C_word*)t0)[2],a[3]=((C_word)li519),tmp=(C_word)a,a+=4,tmp)); t38=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13739,a[2]=((C_word)li521),tmp=(C_word)a,a+=3,tmp)); t39=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13776,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t7,a[5]=((C_word)li524),tmp=(C_word)a,a+=6,tmp)); t40=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_14340,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]=t35,a[9]=t27,a[10]=((C_word)li530),tmp=(C_word)a,a+=11,tmp)); t41=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14602,a[2]=((C_word*)t0)[2],a[3]=t11,a[4]=((C_word)li531),tmp=(C_word)a,a+=5,tmp)); t42=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14620,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=t35,a[6]=t27,a[7]=((C_word)li533),tmp=(C_word)a,a+=8,tmp)); t43=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14713,a[2]=((C_word*)t0)[2],a[3]=t15,a[4]=((C_word)li534),tmp=(C_word)a,a+=5,tmp)); t44=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14764,a[2]=((C_word*)t0)[2],a[3]=t15,a[4]=((C_word)li535),tmp=(C_word)a,a+=5,tmp)); t45=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14831,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[11],a[7]=((C_word)li537),tmp=(C_word)a,a+=8,tmp)); t46=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14901,a[2]=((C_word*)t0)[2],a[3]=((C_word)li539),tmp=(C_word)a,a+=4,tmp)); t47=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14947,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=t35,a[5]=t27,a[6]=((C_word)li541),tmp=(C_word)a,a+=7,tmp)); t48=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_14972,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[13],a[5]=t9,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[11],a[9]=((C_word)li543),tmp=(C_word)a,a+=10,tmp)); t49=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15186,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[11],a[4]=t21,a[5]=((C_word)li544),tmp=(C_word)a,a+=6,tmp)); t50=C_set_block_item(t31,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15395,a[2]=((C_word*)t0)[2],a[3]=((C_word)li546),tmp=(C_word)a,a+=4,tmp)); t51=C_set_block_item(t33,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15482,a[2]=((C_word*)t0)[2],a[3]=t21,a[4]=((C_word)li548),tmp=(C_word)a,a+=5,tmp)); t52=C_set_block_item(t35,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15574,a[2]=((C_word*)t0)[14],a[3]=((C_word)li549),tmp=(C_word)a,a+=4,tmp)); t53=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_15586,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[15],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],a[6]=t1,a[7]=t23,a[8]=t17,a[9]=t19,a[10]=((C_word*)t0)[9],a[11]=t13,a[12]=t29,a[13]=t31,a[14]=t33,a[15]=((C_word*)t0)[7],a[16]=t35,a[17]=t27,a[18]=t21,a[19]=((C_word*)t0)[3],a[20]=t11,a[21]=((C_word*)t0)[4],a[22]=t9,a[23]=t15,a[24]=((C_word*)t0)[13],a[25]=t25,a[26]=t3,tmp=(C_word)a,a+=27,tmp); if(C_truep(((C_word*)t0)[16])){ t54=C_SCHEME_END_OF_LIST; if(C_truep(((C_word*)t0)[17])){ /* library.scm:2831: append */ t55=*((C_word*)lf[135]+1);{ C_word av2[4]; av2[0]=t55; av2[1]=t53; av2[2]=t54; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t55+1)))(4,av2);}} else{ /* library.scm:2831: append */ t55=*((C_word*)lf[135]+1);{ C_word av2[4]; av2[0]=t55; av2[1]=t53; av2[2]=t54; av2[3]=lf[621]; ((C_proc)(void*)(*((C_word*)t55+1)))(4,av2);}}} else{ t54=lf[622]; if(C_truep(((C_word*)t0)[17])){ /* library.scm:2831: append */ t55=*((C_word*)lf[135]+1);{ C_word av2[4]; av2[0]=t55; av2[1]=t53; av2[2]=t54; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t55+1)))(4,av2);}} else{ /* library.scm:2831: append */ t55=*((C_word*)lf[135]+1);{ C_word av2[4]; av2[0]=t55; av2[1]=t53; av2[2]=t54; av2[3]=lf[621]; ((C_proc)(void*)(*((C_word*)t55+1)))(4,av2);}}}} /* a24767 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_24768(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24768,4,av);} a=C_alloc(6); t4=C_block_size(t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24772,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* library.scm:3545: check */ t6=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} /* k20586 */ static void C_ccall f_20588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_20588,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20591,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[857],t3); t5=C_i_cadr(t4); /* library.scm:4078: g4393 */ t6=t1;{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t2; av2[2]=lf[858]; av2[3]=t5; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} /* read-unreserved-char-0 in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_fcall f_13613(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_13613,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13617,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:2425: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11180 in k11153 in char-name in k11106 in k6799 */ static void C_ccall f_11182(C_word c,C_word *av){ C_word tmp; C_word t0=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_11182,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11185,a[2]=((C_word*)t0)[2],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:1540: lookup-char */ t3=((C_word*)t0)[7]; f_11110(t3,t2,((C_word*)t0)[5]);} /* k13615 in read-unreserved-char-0 in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_13617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13617,2,av);} if(C_truep(C_i_memq(t1,((C_word*)((C_word*)t0)[2])[1]))){ /* library.scm:2427: reserved-character */ t2=((C_word*)((C_word*)t0)[3])[1]; f_13604(t2,((C_word*)t0)[4],t1);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a24730 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_24731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_24731,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k11183 in k11180 in k11153 in char-name in k11106 in k6799 */ 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 t3; 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_11185,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; /* Re-use our own argvector */ 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_mutate2(((C_word *)((C_word*)t0)[3])+1,t5); t7=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ 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_mutate2(((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; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_i_setslot(((C_word*)t0)[6],t3,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* loop in k13637 in r-spaces in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_fcall f_13641(C_word 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_13641,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_13654,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:2436: skip-to-eol */ t6=((C_word*)((C_word*)t0)[4])[1]; f_13567(t6,t5);} else{ if(C_truep(C_u_i_char_whitespacep(t2))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13670,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:2439: ##sys#read-char-0 */ t6=*((C_word*)lf[523]+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=C_SCHEME_UNDEFINED; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}} /* a16095 in k16089 in k16086 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in ... */ static void C_ccall f_16096(C_word c,C_word *av){ C_word tmp; 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_16096,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* r-spaces in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_13631(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_13631,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13639,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:2433: ##sys#peek-char-0 */ t3=*((C_word*)lf[525]+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);}} /* k16089 in k16086 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ static void C_ccall f_16091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_16091,2,av);} a=C_alloc(23); 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_16096,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word)li559),tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16101,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)li561),tmp=(C_word)a,a+=7,tmp); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16136,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word)li562),tmp=(C_word)a,a+=6,tmp); /* library.scm:2935: ##sys#dynamic-wind */ t10=*((C_word*)lf[423]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=((C_word*)t0)[6]; av2[2]=t7; av2[3]=t8; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* k13637 in r-spaces in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_13639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13639,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_13641,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li516),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_13641(t5,((C_word*)t0)[4],t1);} /* k13659 in k13652 in loop in k13637 in r-spaces in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13661,2,av);} /* library.scm:2437: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13641(t2,((C_word*)t0)[3],t1);} /* k14721 in k14760 in r-number-with-exactness in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_14723,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14726,a[2]=((C_word*)t0)[2],a[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:2655: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14724 in k14721 in k14760 in r-number-with-exactness in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 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,4)))){ C_save_and_reclaim((void *)f_14726,2,av);} if(C_truep(C_eofp(t1))){ /* library.scm:2657: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[585]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ if(C_truep(C_i_char_equalp(t1,C_make_character(105)))){ /* library.scm:2658: r-number */ t2=((C_word*)((C_word*)t0)[4])[1]; f_14620(t2,((C_word*)t0)[2],((C_word*)t0)[5],lf[326]);} else{ if(C_truep(C_u_i_char_equalp(t1,C_make_character(101)))){ /* library.scm:2659: r-number */ t2=((C_word*)((C_word*)t0)[4])[1]; f_14620(t2,((C_word*)t0)[2],((C_word*)t0)[5],lf[327]);} else{ /* library.scm:2661: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[586]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}}} /* k13652 in loop in k13637 in r-spaces in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_13654,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13661,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:2437: ##sys#peek-char-0 */ t3=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* r-number-with-exactness in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_14713,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14762,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:2653: ##sys#peek-char-0 */ t4=*((C_word*)lf[525]+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);}} /* ##sys#generic-structure? in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21656(C_word c,C_word *av){ C_word tmp; C_word 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_21656,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_structurep(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#slot in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 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=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_21659,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#structure? in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21653(C_word c,C_word *av){ C_word tmp; C_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_21653,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_structurep(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* compare-slots in equal=? in k6799 */ static void C_fcall f_9965(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_9965,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_9992,a[2]=t10,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[2],a[6]=t12,a[7]=((C_word)li296),tmp=(C_word)a,a+=8,tmp)); t14=((C_word*)t12)[1]; f_9992(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);}}} /* equal=? in k6799 */ 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=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_9962,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_9965,a[2]=t7,a[3]=((C_word)li297),tmp=(C_word)a,a+=4,tmp)); t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10033,a[2]=t5,a[3]=((C_word)li298),tmp=(C_word)a,a+=4,tmp)); /* library.scm:1183: walk */ t10=((C_word*)t7)[1]; f_10033(t10,t1,t2,t3);} /* ##sys#permanent? in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21679(C_word c,C_word *av){ C_word tmp; C_word 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_21679,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_permanentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#string->pbytevector in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21676(C_word c,C_word *av){ C_word tmp; C_word 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_21676,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_string_to_pbytevector(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#set-pointer-address! in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 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=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_21670,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_update_pointer(t3,t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#bytevector? in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21673(C_word c,C_word *av){ C_word tmp; C_word 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_21673,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_bytevectorp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#pointer? in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21667(C_word c,C_word *av){ C_word tmp; C_word 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_21667,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_anypointerp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* flonum-print-precision in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_9944,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_SCHEME_FALSE:C_i_car(t2)); t5=C_get_print_precision(); if(C_truep(t4)){ t6=C_i_check_exact_2(t4,lf[332]); t7=C_set_print_precision(t4); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* ##sys#size in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 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; 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_21662,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_block_size(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop3617 in k18227 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_fcall f_18240(C_word 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_18240,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_18253,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:3369: outchr */ t6=((C_word*)((C_word*)t0)[7])[1]; f_17388(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_18253(2,av2);}}}} /* k18254 in k18251 in doloop3617 in k18227 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18256,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_18240(t3,((C_word*)t0)[4],t2);} /* k18251 in doloop3617 in k18227 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_18253(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18253,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18256,a[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_18267,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* library.scm:3370: ##sys#number->string */ t4=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=C_fix(16); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* ##sys#locative? in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 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=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_21685,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_locativep(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#srfi-4-vector? in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ 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=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_21688,3,av);} if(C_truep(C_blockp(t2))){ if(C_truep(C_structurep(t2))){ t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_memq(t3,lf[933]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* ##sys#block-address in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21682(C_word c,C_word *av){ C_word tmp; C_word 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,1)))){ C_save_and_reclaim((void *)f_21682,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_block_address(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* lp in force in k6799 */ static void C_fcall f_7318(C_word t0,C_word t1,C_word 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_7318,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:361: ##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_7352,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* library.scm:365: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t6; av2[2]=t4; av2[3]=*((C_word*)lf[81]+1); C_call_with_values(4,av2);}} else{ if(C_truep(C_i_structurep(t4,lf[80]))){ /* library.scm:377: 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);}}}}}} /* a25113 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in ... */ static void C_ccall f_25114(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25114,4,av);} t4=C_i_car(t2); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_set_car(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k24406 in a24391 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in ... */ static void C_ccall f_24408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_24408,2,av);} t2=C_exit_runtime(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k18201 in k18198 in k18176 in doloop3603 in k18157 in k18154 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in ... */ static void C_ccall f_18203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_18203,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_18168(t3,((C_word*)t0)[4],t2);} /* a25123 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_ccall f_25124(C_word c,C_word *av){ C_word tmp; C_word 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_25124,3,av);} a=C_alloc(7); if(C_truep(C_i_closurep(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25140,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25148,a[2]=((C_word)li887),tmp=(C_word)a,a+=3,tmp); /* library.scm:2186: ##sys#lambda-decoration */ t5=*((C_word*)lf[505]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} else{ /* library.scm:2188: ##sys#error */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=lf[513]; av2[3]=lf[1130]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k18198 in k18176 in doloop3603 in k18157 in k18154 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 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(5,c,2)))){ C_save_and_reclaim((void *)f_18200,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18203,a[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:3361: out */ t4=((C_word*)((C_word*)t0)[5])[1]; f_17752(t4,t2,t3);} /* k23124 in g5131 in writeargs in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_ccall f_23126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_23126,2,av);} /* library.scm:4837: newline */ t2=*((C_word*)lf[636]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* g5131 in writeargs in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_fcall f_23122(C_word t0,C_word t1,C_word 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_23122,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23126,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_23131,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li811),tmp=(C_word)a,a+=5,tmp); /* library.scm:4836: ##sys#with-print-length-limit */ t5=*((C_word*)lf[690]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=C_fix(80); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* writeargs in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in ... */ static void C_fcall f_23120(C_word t1,C_word 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_23120,3,t1,t2,t3);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23122,a[2]=t3,a[3]=((C_word)li812),tmp=(C_word)a,a+=4,tmp); t5=C_i_check_list_2(t2,lf[417]); 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_23143,a[2]=t7,a[3]=t4,a[4]=((C_word)li813),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_23143(t9,t1,t2);} /* k7365 in k7350 in lp in force in k6799 */ static void C_fcall f_7367(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_7367,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:372: lp */ t5=((C_word*)((C_word*)t0)[4])[1]; f_7318(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);}}} /* a23130 in g5131 in writeargs in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 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; 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_23131,2,av);} /* library.scm:4836: write */ t2=*((C_word*)lf[637]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18227 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_18229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_18229,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_18235,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_18240,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)li598),tmp=(C_word)a,a+=9,tmp)); t8=((C_word*)t6)[1]; f_18240(t8,t4,C_fix(0));} /* k7350 in lp in force in k6799 */ 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 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_7352,2,av);} a=C_alloc(6); t2=t1; t3=C_slot(((C_word*)t0)[2],C_fix(1)); if(C_truep(C_i_closurep(t3))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7367,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_nullp(t2))){ t5=t4; f_7367(t5,C_SCHEME_FALSE);} else{ t5=C_i_cdr(t2); if(C_truep(C_i_nullp(t5))){ t6=C_slot(t2,C_fix(0)); t7=t4; f_7367(t7,C_i_structurep(t6,lf[80]));} else{ t6=t4; f_7367(t6,C_SCHEME_FALSE);}}} else{ /* library.scm:367: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_7318(t4,((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[5]);}} /* a9473 in denominator in k6799 */ static void C_ccall f_9474(C_word c,C_word *av){ C_word tmp; C_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_9474,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k23104 in read-from-string in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_23106,2,av);} /* library.scm:4819: read */ t2=*((C_word*)lf[526]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19581 in loop in k19546 in unregister-feature! in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in ... */ static void C_ccall f_19583(C_word c,C_word *av){ C_word tmp; 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_19583,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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#read-from-string in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in ... */ static void C_ccall f_23102(C_word c,C_word *av){ C_word tmp; C_word 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_23102,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23106,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:4818: open-input-string */ t4=*((C_word*)lf[512]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k18233 in k18227 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_18235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18235,2,av);} /* library.scm:3371: outchr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17388(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(125));} /* k14760 in r-number-with-exactness in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_14762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14762,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_14723,a[2]=((C_word*)t0)[2],a[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:2654: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ /* library.scm:2664: r-number */ t3=((C_word*)((C_word*)t0)[4])[1]; f_14620(t3,((C_word*)t0)[2],((C_word*)t0)[5],C_SCHEME_FALSE);}} /* r-number-with-radix in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_14764(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_14764,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14829,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:2667: ##sys#peek-char-0 */ t4=*((C_word*)lf[525]+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);}} /* map-loop4030 in unregister-feature! in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in ... */ static void C_fcall f_19585(C_word t0,C_word t1,C_word 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_19585,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_19610,a[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:3800: g4036 */ 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);}}} /* k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_23113,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23116,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:4830: condition-property-accessor */ t4=*((C_word*)lf[867]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[846]; av2[3]=lf[608]; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in ... */ static void C_ccall f_23116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_23116,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23119,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:4831: condition-property-accessor */ t4=*((C_word*)lf[867]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[846]; av2[3]=lf[1092]; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in ... */ static void C_ccall f_23119(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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(32,c,6)))){ C_save_and_reclaim((void *)f_23119,2,av);} a=C_alloc(32); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23120,a[2]=((C_word)li814),tmp=(C_word)a,a+=3,tmp); t4=C_mutate2((C_word*)lf[1032]+1 /* (set! print-error-message ...) */,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23165,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li819),tmp=(C_word)a,a+=7,tmp)); t5=*((C_word*)lf[1032]+1); t6=*((C_word*)lf[778]+1); t7=*((C_word*)lf[706]+1); t8=*((C_word*)lf[708]+1); t9=C_mutate2((C_word*)lf[1000]+1 /* (set! ##sys#show-exception-warning ...) */,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23353,a[2]=t6,a[3]=t5,a[4]=t8,a[5]=t7,a[6]=((C_word)li820),tmp=(C_word)a,a+=7,tmp)); t10=C_mutate2((C_word*)lf[1046]+1 /* (set! ##sys#make-locative ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23402,a[2]=((C_word)li821),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[1057]+1 /* (set! memory-statistics ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23630,a[2]=((C_word)li822),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[1058]+1 /* (set! put! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23653,a[2]=((C_word)li823),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[1059]+1 /* (set! ##sys#put! ...) */,*((C_word*)lf[1058]+1)); t14=C_mutate2((C_word*)lf[1060]+1 /* (set! ##sys#get ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23660,a[2]=((C_word)li824),tmp=(C_word)a,a+=3,tmp)); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23677,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* library.scm:4985: getter-with-setter */ t16=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t16; av2[1]=t15; av2[2]=*((C_word*)lf[1060]+1); av2[3]=*((C_word*)lf[1058]+1); av2[4]=lf[1091]; ((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}} /* a25163 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_ccall f_25164(C_word c,C_word *av){ C_word tmp; C_word 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_25164,3,av);} if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_eqp(lf[514],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9492 in signum in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9494,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?C_fix(1):lf[296]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a9467 in denominator in k6799 */ static void C_ccall f_9468(C_word c,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_9468,2,av);} /* library.scm:979: ##sys#fprat */ t2=*((C_word*)lf[270]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a25103 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in ... */ static void C_ccall f_25104(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25104,4,av);} t4=C_i_cdr(t2); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_set_car(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k24475 in a24466 in k24439 in k24436 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_24477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_24477,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(0)); /* library.scm:3919: ##sys#print */ t3=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[455]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k15997 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_15999(C_word c,C_word *av){ C_word tmp; C_word t0=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_15999,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16002,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:2916: r-comment */ t3=((C_word*)((C_word*)t0)[4])[1]; f_15395(t3,t2);} /* ##sys#tty-port? in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in ... */ 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=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_12214,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12229,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:1940: ##sys#peek-unsigned-integer */ t4=*((C_word*)lf[463]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a25189 in a25179 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static void C_ccall f_25190(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25190,4,av);} a=C_alloc(11); if(C_truep(C_i_closurep(t2))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25200,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25219,a[2]=((C_word)li890),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25235,a[2]=t3,a[3]=((C_word)li891),tmp=(C_word)a,a+=4,tmp); /* library.scm:2197: ##sys#decorate-lambda */ t7=*((C_word*)lf[504]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t4; av2[2]=t2; av2[3]=t5; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ /* library.scm:2204: error */ t4=*((C_word*)lf[7]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=lf[1131]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k24487 in for-each-loop4190 in a24466 in k24439 in k24436 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_24489,2,av);} /* library.scm:3924: ##sys#print */ t2=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[455]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* signum in k6799 */ 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=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_9481,3,av);} a=C_alloc(3); if(C_truep(C_i_greaterp(t2,C_fix(0)))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9494,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:987: ##sys#exact? */ t4=*((C_word*)lf[275]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ if(C_truep(C_i_lessp(t2,C_fix(0)))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9506,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:988: ##sys#exact? */ t4=*((C_word*)lf[275]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9512,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:989: ##sys#exact? */ t4=*((C_word*)lf[275]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}} /* k10317 in string->symbol in k6799 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10319,2,av);} /* library.scm:1254: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; C_string_to_symbol(3,av2);}} /* k12227 in tty-port? in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12229,2,av);} if(C_truep(C_i_zerop(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_tty_portp(((C_word*)t0)[3]); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* denominator in k6799 */ 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=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,5)))){ C_save_and_reclaim((void *)f_9453,3,av);} a=C_alloc(7); t3=C_i_check_number_2(t2,lf[292]); if(C_truep(C_u_i_exactp(t2))){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fix(1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_finitep(t2))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9468,a[2]=t2,a[3]=((C_word)li258),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9474,a[2]=((C_word)li259),tmp=(C_word)a,a+=3,tmp); /* library.scm:979: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} else{ /* library.scm:981: ##sys#signal-hook */ t4=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t1; av2[2]=lf[56]; av2[3]=lf[292]; av2[4]=lf[293]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}}} /* a24415 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in ... */ static void C_ccall f_24416(C_word c,C_word *av){ 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_24416,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24420,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:3943: ##sys#exit-handler */ t3=*((C_word*)lf[2]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* string->uninterned-symbol in k6799 */ 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=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_10321,3,av);} a=C_alloc(3); t3=C_i_check_string_2(t2,lf[350]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10332,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:1260: string-copy */ t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k17745 in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_17747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17747,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[46]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#set-port-data! in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in ... */ static void C_ccall f_12237(C_word c,C_word *av){ C_word tmp; C_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_12237,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_setslot(t2,C_fix(9),t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in k17477 in outreadablesym in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_fcall f_17484(C_word t0,C_word t1,C_word t2){ C_word 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_17484,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ /* library.scm:3235: outchr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_17388(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_17506,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:3238: outstr */ t7=((C_word*)((C_word*)t0)[7])[1]; f_17316(t7,t6,((C_word*)t0)[4],lf[647]);} else{ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17535,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:3244: outchr */ t8=((C_word*)((C_word*)t0)[3])[1]; f_17388(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_17535(2,av2);}}} else{ t8=C_eqp(t3,C_make_character(92)); if(C_truep(t8)){ /* library.scm:3244: outchr */ t9=((C_word*)((C_word*)t0)[3])[1]; f_17388(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_17535(2,av2);}}}}}} /* input-port? in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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=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_11893,3,av);} t3=t2; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep(C_blockp(t3))?(C_truep(C_portp(t3))?C_slot(t2,C_fix(1)):C_SCHEME_FALSE):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* port? in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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=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_11890,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_portp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#port-data in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in ... */ static void C_ccall f_12231(C_word c,C_word *av){ C_word tmp; C_word 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_12231,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_slot(t2,C_fix(9)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k24418 in a24415 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in ... */ static void C_ccall f_24420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24420,2,av);} /* library.scm:3942: g4241 */ t2=t1;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix((C_word)EX_SOFTWARE); ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in ... */ static void C_ccall f_24425(C_word c,C_word *av){ C_word tmp; C_word 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_24425,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_24429,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_24578,a[2]=((C_word)li861),tmp=(C_word)a,a+=3,tmp); /* library.scm:3908: ##sys#error-handler */ t6=*((C_word*)lf[785]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in ... */ static void C_ccall f_24429(C_word c,C_word *av){ C_word tmp; C_word t0=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_24429,2,av);} a=C_alloc(5); if(C_truep(C_fudge(C_fix(4)))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24438,a[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:3910: ##sys#print */ t3=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1102]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24529,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:3934: open-output-string */ t3=*((C_word*)lf[706]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_fcall f_17752(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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,3)))){ C_save_and_reclaim_args((void *)trf_17752,3,t0,t1,t2);} a=C_alloc(9); switch(t2){ case C_SCHEME_END_OF_LIST: /* library.scm:3281: outstr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_17316(t3,t1,((C_word*)t0)[3],lf[649]); case C_SCHEME_TRUE: /* library.scm:3282: outstr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_17316(t3,t1,((C_word*)t0)[3],lf[650]); case C_SCHEME_FALSE: /* library.scm:3283: outstr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_17316(t3,t1,((C_word*)t0)[3],lf[651]); default: if(C_truep(C_eofp(t2))){ /* library.scm:3284: outstr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_17316(t3,t1,((C_word*)t0)[3],lf[652]);} else{ if(C_truep(C_undefinedp(t2))){ /* library.scm:3285: outstr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_17316(t3,t1,((C_word*)t0)[3],lf[653]);} 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_17801,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:3288: outstr */ t4=((C_word*)((C_word*)t0)[2])[1]; f_17316(t4,t3,((C_word*)t0)[3],lf[654]);} else{ /* library.scm:3297: outchr */ t3=((C_word*)((C_word*)t0)[5])[1]; f_17388(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_17860,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:3298: ##sys#number->string */ t4=*((C_word*)lf[331]+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_slot(lf[655],C_fix(0)); t4=C_eqp(t2,t3); if(C_truep(t4)){ /* library.scm:3300: outstr */ t5=((C_word*)((C_word*)t0)[2])[1]; f_17316(t5,t1,((C_word*)t0)[3],lf[656]);} else{ if(C_truep(C_blockp(t2))){ if(C_truep(C_forwardedp(t2))){ /* library.scm:3302: outstr */ t5=((C_word*)((C_word*)t0)[2])[1]; f_17316(t5,t1,((C_word*)t0)[3],lf[657]);} else{ if(C_truep(C_symbolp(t2))){ t5=C_slot(t2,C_fix(1)); t6=C_subbyte(t5,C_fix(0)); t7=C_eqp(C_fix(0),t6); if(C_truep(t7)){ t8=C_eqp(((C_word*)t0)[6],lf[591]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17902,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:3307: outchr */ t10=((C_word*)((C_word*)t0)[5])[1]; f_17388(t10,t9,((C_word*)t0)[3],C_make_character(58));} else{ t9=C_eqp(((C_word*)t0)[6],lf[574]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17914,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:3310: outsym */ t11=((C_word*)((C_word*)t0)[7])[1]; f_17448(t11,t10,((C_word*)t0)[3],t2);} else{ t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17920,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:3313: outstr */ t11=((C_word*)((C_word*)t0)[2])[1]; f_17316(t11,t10,((C_word*)t0)[3],lf[658]);}}} else{ t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17933,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); /* library.scm:3315: ##sys#qualified-symbol? */ t9=*((C_word*)lf[346]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17957,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:3319: ##sys#number? */ t6=*((C_word*)lf[265]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}} else{ /* library.scm:3301: outstr */ t5=((C_word*)((C_word*)t0)[2])[1]; f_17316(t5,t1,((C_word*)t0)[3],lf[674]);}}}}}}}} /* a25147 in a25123 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static void C_ccall f_25148(C_word c,C_word *av){ C_word tmp; C_word 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_25148,3,av);} if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_eqp(lf[514],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in ... */ static void C_ccall f_12245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(114,c,6)))){ C_save_and_reclaim((void *)f_12245,2,av);} a=C_alloc(114); t2=C_eqp(t1,lf[466]); t3=t2; t4=C_mutate2((C_word*)lf[467]+1 /* (set! ##sys#platform-fixup-pathname ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12249,a[2]=t3,a[3]=((C_word)li440),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_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_12283,a[2]=((C_word)li442),tmp=(C_word)a,a+=3,tmp)); t10=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12377,a[2]=((C_word)li443),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[481]+1 /* (set! open-input-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12402,a[2]=t6,a[3]=((C_word)li444),tmp=(C_word)a,a+=4,tmp)); t12=C_mutate2((C_word*)lf[482]+1 /* (set! open-output-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12408,a[2]=t6,a[3]=((C_word)li445),tmp=(C_word)a,a+=4,tmp)); t13=C_mutate2((C_word*)lf[483]+1 /* (set! close-input-port ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12414,a[2]=t8,a[3]=((C_word)li446),tmp=(C_word)a,a+=4,tmp)); t14=C_mutate2((C_word*)lf[484]+1 /* (set! close-output-port ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12420,a[2]=t8,a[3]=((C_word)li447),tmp=(C_word)a,a+=4,tmp)); t15=*((C_word*)lf[481]+1); t16=C_mutate2((C_word*)lf[485]+1 /* (set! call-with-input-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12426,a[2]=t15,a[3]=((C_word)li450),tmp=(C_word)a,a+=4,tmp)); t17=*((C_word*)lf[482]+1); t18=C_mutate2((C_word*)lf[486]+1 /* (set! call-with-output-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12450,a[2]=t17,a[3]=((C_word)li453),tmp=(C_word)a,a+=4,tmp)); t19=*((C_word*)lf[481]+1); t20=C_mutate2((C_word*)lf[487]+1 /* (set! with-input-from-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12474,a[2]=t19,a[3]=((C_word)li458),tmp=(C_word)a,a+=4,tmp)); t21=*((C_word*)lf[482]+1); t22=C_mutate2((C_word*)lf[488]+1 /* (set! with-output-to-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12508,a[2]=t21,a[3]=((C_word)li463),tmp=(C_word)a,a+=4,tmp)); t23=C_mutate2((C_word*)lf[489]+1 /* (set! ##sys#file-exists? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12542,a[2]=((C_word)li464),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate2((C_word*)lf[491]+1 /* (set! file-exists? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12568,a[2]=((C_word)li465),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate2((C_word*)lf[492]+1 /* (set! directory-exists? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12584,a[2]=((C_word)li466),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate2((C_word*)lf[493]+1 /* (set! ##sys#flush-output ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12600,a[2]=((C_word)li467),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate2((C_word*)lf[494]+1 /* (set! flush-output ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12613,a[2]=((C_word)li468),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate2((C_word*)lf[495]+1 /* (set! port-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12631,a[2]=((C_word)li469),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate2((C_word*)lf[496]+1 /* (set! set-port-name! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12649,a[2]=((C_word)li470),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate2((C_word*)lf[497]+1 /* (set! ##sys#port-line ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12661,a[2]=((C_word)li471),tmp=(C_word)a,a+=3,tmp)); t31=C_mutate2((C_word*)lf[498]+1 /* (set! port-position ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12673,a[2]=((C_word)li472),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate2((C_word*)lf[500]+1 /* (set! delete-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12708,a[2]=((C_word)li473),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate2((C_word*)lf[502]+1 /* (set! rename-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12739,a[2]=((C_word)li474),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate2((C_word*)lf[504]+1 /* (set! ##sys#decorate-lambda ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12777,a[2]=((C_word)li477),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate2((C_word*)lf[505]+1 /* (set! ##sys#lambda-decoration ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12854,a[2]=((C_word)li479),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate2((C_word*)lf[506]+1 /* (set! ##sys#make-lambda-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12893,a[2]=((C_word)li480),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate2((C_word*)lf[507]+1 /* (set! ##sys#lambda-info? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12902,a[2]=((C_word)li481),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate2((C_word*)lf[508]+1 /* (set! ##sys#lambda-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12915,a[2]=((C_word)li482),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate2((C_word*)lf[509]+1 /* (set! ##sys#lambda-info->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12921,a[2]=((C_word)li483),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate2((C_word*)lf[510]+1 /* (set! procedure-information ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12930,a[2]=((C_word)li484),tmp=(C_word)a,a+=3,tmp)); t41=C_a_i_vector1(&a,1,lf[513]); t42=C_mutate2(&lf[514] /* (set! setter-tag ...) */,t41); t43=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12959,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t44=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25124,a[2]=((C_word)li888),tmp=(C_word)a,a+=3,tmp); t45=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25164,a[2]=((C_word)li889),tmp=(C_word)a,a+=3,tmp); t46=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25180,a[2]=((C_word)li893),tmp=(C_word)a,a+=3,tmp); /* library.scm:2183: ##sys#decorate-lambda */ t47=*((C_word*)lf[504]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t47; av2[1]=t43; av2[2]=t44; av2[3]=t45; av2[4]=t46; ((C_proc)(void*)(*((C_word*)t47+1)))(5,av2);}} /* k25138 in a25123 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 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(0,c,4)))){ C_save_and_reclaim((void *)f_25140,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* library.scm:2188: ##sys#error */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[513]; av2[3]=lf[1130]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} else{ /* library.scm:2188: ##sys#error */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[513]; av2[3]=lf[1130]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* ##sys#platform-fixup-pathname in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_ccall f_12249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,4)))){ C_save_and_reclaim((void *)f_12249,3,av);} if(C_truep(((C_word*)t0)[2])){ t3=C_block_size(t2); t4=C_fixnum_difference(t3,C_fix(1)); if(C_truep(C_fixnum_greater_or_equal_p(t4,C_fix(0)))){ t5=C_subchar(t2,t4); t6=C_eqp(t5,C_make_character(92)); t7=(C_truep(t6)?t6:C_eqp(t5,C_make_character(47))); if(C_truep(t7)){ /* library.scm:1955: ##sys#substring */ t8=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t1; av2[2]=t2; av2[3]=C_fix(0); av2[4]=t4; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t8=t2; t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=t2; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10304 in symbol->string in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10306,2,av);} /* library.scm:1248: string-copy */ t2=*((C_word*)lf[160]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* string->symbol in k6799 */ 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=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_10308,3,av);} a=C_alloc(3); t3=C_i_check_string_2(t2,lf[349]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10319,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:1254: string-copy */ t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k17459 in k17450 in outsym in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_17461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17461,2,av);} if(C_truep(t1)){ /* library.scm:3227: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17316(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ /* library.scm:3228: outreadablesym */ t2=((C_word*)((C_word*)t0)[6])[1]; f_17472(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}} /* force in k6799 */ static void C_ccall f_7306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_7306,3,av);} a=C_alloc(6); if(C_truep(C_i_structurep(t2,lf[80]))){ 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_7318,a[2]=t4,a[3]=((C_word)li59),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_7318(t6,t1,t2,C_SCHEME_FALSE);} else{ t3=t2; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k13980 in k13977 in k13971 in k13965 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_13982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13982,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13985,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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:2488: ##sys#surrogates->codepoint */ t4=*((C_word*)lf[556]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k10349 in gensym in k6799 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10351,2,av);} /* library.scm:1267: ##sys#make-symbol */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; C_make_symbol(3,av2);}} /* k13983 in k13980 in k13977 in k13971 in k13965 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ static void C_ccall f_13985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13985,2,av);} a=C_alloc(7); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13995,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:2490: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ /* library.scm:2492: ##sys#read-error */ t3=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[6]; av2[3]=lf[555]; av2[4]=((C_word*)t0)[7]; av2[5]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* k10357 in k10353 in gensym in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10359,2,av);} /* library.scm:1268: ##sys#string-append */ t2=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10353 in gensym in k6799 */ static void C_ccall f_10355(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_10355,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10359,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:1277: ##sys#number->string */ t4=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* outreadablesym in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_fcall f_17472(C_word t0,C_word 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_17472,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_17479,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:3232: outchr */ t7=((C_word*)((C_word*)t0)[2])[1]; f_17388(t7,t6,t2,C_make_character(124));} /* k17477 in outreadablesym in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_17479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_17479,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_17484,a[2]=((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)li591),tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_17484(t5,((C_word*)t0)[7],C_fix(0));} /* k13971 in k13965 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_13973,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13979,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_14021,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* library.scm:2485: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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|6,a[1]=(C_word)f_14028,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:2494: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k13977 in k13971 in k13965 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_fcall f_13979(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_13979,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13982,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:2487: r-usequence */ t3=((C_word*)((C_word*)t0)[8])[1]; f_13679(t3,t2,lf[557],C_fix(4),C_fix(16));} else{ /* library.scm:2493: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[6]; av2[3]=lf[558]; av2[4]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k10366 in gensym in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10368,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_10355(2,av2);}} else{ /* library.scm:1265: ##sys#signal-hook */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[56]; av2[3]=lf[351]; av2[4]=lf[353]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* bitwise-not in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_18762(C_word c,C_word *av){ C_word tmp; C_word 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,1)))){ C_save_and_reclaim((void *)f_18762,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_bitwise_not(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* arithmetic-shift in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ 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=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_18765,4,av);} a=C_alloc(4); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_arithmetic_shift(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* bit-set? in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_18768(C_word c,C_word *av){ C_word tmp; C_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_18768,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_bit_setp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10330 in string->uninterned-symbol in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10332,2,av);} /* library.scm:1260: ##sys#make-symbol */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; C_make_symbol(3,av2);}} /* gensym in k6799 */ static void C_ccall f_10334(C_word c,C_word *av){ C_word tmp; 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 +11,c,5)))){ C_save_and_reclaim((void*)f_10334,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; C_word t9; C_word t10; C_word t11; 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)f_10351,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10355,a[2]=t5,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t7=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t7)){ t8=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=lf[352]; f_10355(2,av2);}} else{ t8=C_i_car(t2); t9=t8; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10368,a[2]=t6,a[3]=t9,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_blockp(t9))){ if(C_truep(C_stringp(t9))){ t11=t10;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t9; f_10368(2,av2);}} else{ if(C_truep(C_symbolp(t9))){ /* library.scm:1274: ##sys#symbol->string */ t11=*((C_word*)lf[341]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ /* library.scm:1265: ##sys#signal-hook */ t11=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t11; av2[1]=t10; av2[2]=lf[56]; av2[3]=lf[351]; av2[4]=lf[353]; av2[5]=t9; ((C_proc)(void*)(*((C_word*)t11+1)))(6,av2);}}}} else{ t11=t10;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_SCHEME_FALSE; f_10368(2,av2);}}}} /* a25179 in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_ccall f_25180(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25180,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25190,a[2]=((C_word)li892),tmp=(C_word)a,a+=3,tmp); t5=C_a_i_cons(&a,2,lf[514],t4); t6=C_i_setslot(t2,t3,t5); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k13993 in k13983 in k13980 in k13977 in k13971 in k13965 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 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; 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_13995,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13999,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:2491: r-cons-codepoint */ f_13739(t3,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k13997 in k13993 in k13983 in k13980 in k13977 in k13971 in k13965 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in ... */ static void C_ccall f_13999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13999,2,av);} /* library.scm:2490: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13786(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* list->string in k6799 */ 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=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_8092,3,av);} a=C_alloc(5); if(C_truep(C_i_listp(t2))){ t3=C_i_length(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8108,a[2]=t4,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:544: ##sys#make-string */ t6=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* library.scm:542: ##sys#error-not-a-proper-list */ t3=*((C_word*)lf[134]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=lf[155]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* continuation? in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11835(C_word c,C_word *av){ C_word tmp; C_word 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_11835,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[428]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k21943 in k21933 in loop in peek-and-free-c-string-list in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_ccall f_21945(C_word c,C_word *av){ C_word tmp; 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_21945,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k10394 in symbol-append in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10396,2,av);} /* library.scm:1282: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; C_string_to_symbol(3,av2);}} /* k8083 in loop in string->list in k6799 */ static void C_ccall f_8085(C_word c,C_word *av){ C_word tmp; 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_8085,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* continuation-graft in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11842(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_11842,4,av);} a=C_alloc(5); t4=C_i_check_structure_2(t2,lf[428],lf[431]); t5=C_slot(t2,C_fix(2)); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11852,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t7=C_eqp(*((C_word*)lf[421]+1),t5); if(C_truep(t7)){ /* library.scm:1712: ##sys#continuation-graft */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_continuation_graft(4,av2);}} else{ t8=C_i_length(*((C_word*)lf[421]+1)); t9=C_i_length(t5); t10=C_fixnum_difference(t8,t9); /* library.scm:1711: ##sys#dynamic-unwind */ f_11767(t6,t5,t10);}} /* k21933 in loop in peek-and-free-c-string-list in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_ccall f_21935(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_21935,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_21945,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:4374: loop */ t6=((C_word*)((C_word*)t0)[5])[1]; f_21925(t6,t4,t5);} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k17406 in k17403 in outchr in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ 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(3,c,3)))){ C_save_and_reclaim((void *)f_17408,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_17417,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)); /* library.scm:3188: g3441 */ t6=t5;{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t2; av2[2]=t3; av2[3]=lf[646]; ((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)); /* library.scm:3188: g3450 */ t4=t3;{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k11810 in dynamic-unwind in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11812,2,av);} t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* library.scm:1695: ##sys#dynamic-unwind */ f_11767(((C_word*)t0)[3],((C_word*)t0)[4],t2);} /* k17403 in outchr in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_17405,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17408,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:3213: current-print-length */ t5=lf[642];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* loop in peek-and-free-c-string-list in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_fcall f_21925(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_21925,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_21935,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=stub4731(t7,t8,t9); /* library.scm:4365: ##sys#peek-c-string */ t11=*((C_word*)lf[36]+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);}}} /* k21918 in peek-and-free-c-string-list in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21920,2,av);} t2=((C_word*)t0)[2]; if(C_truep(t2)){ t3=C_i_foreign_pointer_argumentp(t2); t4=stub4739(C_SCHEME_UNDEFINED,t3); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=stub4739(C_SCHEME_UNDEFINED,C_SCHEME_FALSE); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k20414 in signal-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_20416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_20416,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_20251(t3,t2);} /* k23223 in k23220 in g5173 in k23184 in k23181 in k23175 in k23172 in body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in ... */ static void C_ccall f_23225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_23225,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23228,a[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_23241,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_23245,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* library.scm:4851: ##sys#symbol->qualified-string */ t6=*((C_word*)lf[342]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* library.scm:4852: display */ t4=*((C_word*)lf[639]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k17415 in k17406 in k17403 in outchr in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 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(3,c,2)))){ C_save_and_reclaim((void *)f_17417,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17420,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3216: ##sys#print-exit */ t3=lf[644];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k23220 in g5173 in k23184 in k23181 in k23175 in k23172 in body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in ... */ static void C_ccall f_23222(C_word c,C_word *av){ C_word tmp; C_word t0=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_23222,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23225,a[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:4849: errloc */ t3=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#peek-and-free-c-string-list in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 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=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_21916,4,av);} a=C_alloc(12); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21920,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_21925,a[2]=t3,a[3]=t2,a[4]=t6,a[5]=((C_word)li746),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_21925(t8,t4,C_fix(0));} /* symbol-append in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +20,c,3)))){ C_save_and_reclaim((void*)f_10388,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_10396,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_10411,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_10413,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li315),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_10413(t12,t8,t2);} /* k23226 in k23223 in k23220 in g5173 in k23184 in k23181 in k23175 in k23172 in body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in ... */ static void C_ccall f_23228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_23228,2,av);} /* library.scm:4852: display */ t2=*((C_word*)lf[639]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* continuation-return in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11875(C_word c,C_word *av){ C_word tmp; C_word 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_11875,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_check_structure_2(t2,lf[428],lf[432]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11884,a[2]=t3,a[3]=((C_word)li404),tmp=(C_word)a,a+=4,tmp); /* library.scm:1717: continuation-graft */ t6=*((C_word*)lf[431]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* doloop2335 in k12798 in loop in decorate-lambda in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in ... */ static void C_fcall f_12805(C_word t0,C_word t1,C_word 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_12805,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:2127: 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;}} /* ##sys#copy-words in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21982(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_21982,7,av);} t7=C_fixnum_plus(t4,t6); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_subvector_copy(t2,t3,t4,t7,t5); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k12798 in loop in decorate-lambda in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ static void C_ccall f_12800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_12800,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_12805,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)li475),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_12805(t6,((C_word*)t0)[5],C_fix(1));} /* ##sys#compare-bytes in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ 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=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_21989,7,av);} t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_substring_compare(t2,t3,t4,t5,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k15985 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15987,2,av);} /* library.scm:2913: r-char */ t2=((C_word*)((C_word*)t0)[2])[1]; f_15186(t2,((C_word*)t0)[3]);} /* k23202 in k23190 in k23187 in k23184 in k23181 in k23175 in k23172 in body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in ... */ static void C_ccall f_23204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_23204,2,av);} /* library.scm:4864: writeargs */ f_23120(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* a11883 in continuation-return in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *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_11884,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* symbol->string in k6799 */ static void C_ccall f_10295(C_word c,C_word *av){ C_word tmp; C_word 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_10295,3,av);} a=C_alloc(3); t3=C_i_check_symbol_2(t2,lf[348]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10306,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:1248: ##sys#symbol->string */ t5=*((C_word*)lf[341]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* ##sys#copy-bytes in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21975(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_21975,7,av);} t7=C_fixnum_plus(t4,t6); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_substring_copy(t2,t3,t4,t7,t5); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k10288 in string->qualified-symbol in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10290,2,av);} /* library.scm:1241: ##sys#string->symbol */ t2=*((C_word*)lf[340]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k23208 in k23190 in k23187 in k23184 in k23181 in k23175 in k23172 in body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in ... */ static void C_ccall f_23210(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_23210,2,av);} /* library.scm:4867: writeargs */ f_23120(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* outsym in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_fcall f_17448(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_17448,4,t0,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17452,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:3225: ##sys#symbol->string */ t5=*((C_word*)lf[341]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11850 in continuation-graft in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11852,2,av);} /* library.scm:1712: ##sys#continuation-graft */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_continuation_graft(4,av2);}} /* string->list in k6799 */ 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 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_8061,3,av);} a=C_alloc(8); t3=C_i_check_string_2(t2,lf[153]); 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_8070,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li131),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_8070(t8,t1,C_fix(0));} /* k17450 in outsym in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_17452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_17452,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_17461,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t3; f_17461(2,av2);}} else{ /* library.scm:3226: sym-is-readable? */ t5=((C_word*)((C_word*)t0)[7])[1]; f_17561(t5,t4,t2);}} /* g5173 in k23184 in k23181 in k23175 in k23172 in body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in ... */ static void C_fcall f_23218(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_23218,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23222,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:4848: display */ t4=*((C_word*)lf[639]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=lf[1036]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* ##sys#vector->closure! in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21954(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_21954,4,av);} t4=C_vector_to_closure(t2); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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 k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ 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=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_21957,3,av);} t3=C_slot(t2,C_fix(0)); t4=C_slot(lf[655],C_fix(0)); t5=C_eqp(t3,t4); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_not(t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* bitwise-ior in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_18708,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_18714,a[2]=t4,a[3]=((C_word)li619),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_18714(t6,t1,C_fix(0),t2);} /* k23264 in k23184 in k23181 in k23175 in k23172 in body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_23266,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* library.scm:4859: display */ t3=*((C_word*)lf[639]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17418 in k17415 in k17406 in k17403 in outchr in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 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,2)))){ C_save_and_reclaim((void *)f_17420,2,av);} t2=*((C_word*)lf[46]+1); /* library.scm:3214: g3446 */ t3=t1;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[46]+1); ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} /* ##sys#string->qualified-symbol in k6799 */ static void C_ccall f_10282(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,3)))){ C_save_and_reclaim((void *)f_10282,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10290,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(t2)){ /* library.scm:1243: ##sys#string-append */ t5=*((C_word*)lf[173]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t3; /* library.scm:1241: ##sys#string->symbol */ t6=*((C_word*)lf[340]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* ##sys#make-string in k6799 */ 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=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_8005,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:511: ##sys#allocate-vector */ t6=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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:511: ##sys#allocate-vector */ t7=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}}} /* loop in bitwise-ior in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_18714(C_word t0,C_word t1,C_word 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(4,0,3)))){ C_save_and_reclaim_args((void *)trf_18714,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=C_slot(t3,C_fix(0)); t5=C_a_i_bitwise_ior(&a,2,t2,t4); t6=C_slot(t3,C_fix(1)); /* library.scm:3468: loop */ t8=t1; t9=t5; t10=t6; t1=t8; t2=t9; t3=t10; goto loop;}} /* k23239 in k23223 in k23220 in g5173 in k23184 in k23181 in k23175 in k23172 in body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in ... */ static void C_ccall f_23241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_23241,2,av);} /* library.scm:4851: display */ t2=*((C_word*)lf[639]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k23243 in k23223 in k23220 in g5173 in k23184 in k23181 in k23175 in k23172 in body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in ... */ static void C_ccall f_23245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_23245,2,av);} /* library.scm:4851: string-append */ t2=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1034]; av2[3]=t1; av2[4]=lf[1035]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-set! in k6799 */ static void C_ccall f_8002(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8002,5,av);} t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_string_set(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* fxeven? in k6799 */ static void C_ccall f_8665(C_word c,C_word *av){ C_word tmp; C_word 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_8665,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_fixnumevenp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* fx/ in k6799 */ static void C_ccall f_8668(C_word c,C_word *av){ C_word tmp; C_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_8668,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fixnum_divide(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#foreign-fixnum-argument in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_22001(C_word c,C_word *av){ C_word tmp; C_word 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_22001,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_foreign_fixnum_argumentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* fxodd? in k6799 */ 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=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_8662,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_fixnumoddp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8030 in make-string in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_8032,2,av);} if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[4]; /* library.scm:511: ##sys#allocate-vector */ t4=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[150]); t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; /* library.scm:511: ##sys#allocate-vector */ t6=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}}} /* fxshl in k6799 */ static void C_ccall f_8656(C_word c,C_word *av){ C_word tmp; C_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_8656,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fixnum_shift_left(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* fxshr in k6799 */ static void C_ccall f_8659(C_word c,C_word *av){ C_word tmp; C_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_8659,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fixnum_shift_right(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k13965 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ 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(9,c,2)))){ C_save_and_reclaim((void *)f_13967,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13973,a[2]=((C_word*)t0)[2],a[3]=((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:2484: ##sys#unicode-surrogate? */ t4=*((C_word*)lf[559]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* bitwise-xor in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_18735(C_word c,C_word *av){ C_word tmp; 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_18735,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_18741,a[2]=t4,a[3]=((C_word)li621),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_18741(t6,t1,C_fix(0),t2);} /* fxnot in k6799 */ 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 *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_8653,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fixnum_not(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* fxxor in k6799 */ static void C_ccall f_8650(C_word c,C_word *av){ C_word tmp; C_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_8650,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fixnum_xor(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* imag-part in k6799 */ static void C_ccall f_9420(C_word c,C_word *av){ C_word tmp; C_word 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_9420,3,av);} t3=C_i_check_number_2(t2,lf[289]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* numerator in k6799 */ 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=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,5)))){ C_save_and_reclaim((void *)f_9426,3,av);} a=C_alloc(7); t3=C_i_check_number_2(t2,lf[290]); if(C_truep(C_u_i_exactp(t2))){ t4=t2; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_finitep(t2))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9441,a[2]=t2,a[3]=((C_word)li255),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9447,a[2]=((C_word)li256),tmp=(C_word)a,a+=3,tmp); /* library.scm:969: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} else{ /* library.scm:971: ##sys#signal-hook */ t4=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t1; av2[2]=lf[56]; av2[3]=lf[290]; av2[4]=lf[291]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}}} /* ##sys#foreign-block-argument in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_22007(C_word c,C_word *av){ C_word tmp; C_word 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_22007,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_foreign_block_argumentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* fx+ in k6799 */ 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=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_8608,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fixnum_plus(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#foreign-flonum-argument in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_22004(C_word c,C_word *av){ C_word tmp; C_word 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_22004,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_foreign_flonum_argumentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* fixnum? in k6799 */ static void C_ccall f_8605(C_word c,C_word *av){ C_word tmp; C_word 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_8605,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fixnump(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in bitwise-xor in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_18741(C_word t0,C_word t1,C_word 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(4,0,3)))){ C_save_and_reclaim_args((void *)trf_18741,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=C_slot(t3,C_fix(0)); t5=C_a_i_bitwise_xor(&a,2,t2,t4); t6=C_slot(t3,C_fix(1)); /* library.scm:3475: loop */ t8=t1; t9=t5; t10=t6; t1=t8; t2=t9; t3=t10; goto loop;}} /* a9440 in numerator in k6799 */ 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!=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_9441,2,av);} /* library.scm:969: ##sys#fprat */ t2=*((C_word*)lf[270]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a9446 in numerator in k6799 */ 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=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_9447,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k20461 */ static void C_ccall f_20463(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_20463,2,av);} a=C_alloc(10); t2=C_a_i_list2(&a,2,lf[844],((C_word*)t0)[2]); t3=C_a_i_record3(&a,3,lf[680],lf[845],t2); /* library.scm:4110: ##sys#abort */ t4=*((C_word*)lf[802]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k16796 in loop in read-bytevector-literal in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in ... */ static void C_ccall f_16798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_16798,2,av);} a=C_alloc(6); if(C_truep(C_eofp(t1))){ /* library.scm:3034: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[625]; ((C_proc)(void*)(*((C_word*)t2+1)))(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_16816,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:3036: ##sys#reverse-list->string */ t6=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t2; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t3=((C_word*)t0)[5]; /* library.scm:3036: ##sys#reverse-list->string */ t4=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(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:3044: loop */ t5=((C_word*)((C_word*)t0)[6])[1]; f_16794(t5,((C_word*)t0)[2],t4,C_SCHEME_FALSE);} else{ /* library.scm:3045: loop */ t2=((C_word*)((C_word*)t0)[6])[1]; f_16794(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_16880,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:3046: hex */ t3=((C_word*)t0)[7]; f_16748(t3,t2,t1);} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16891,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:3047: hex */ t3=((C_word*)t0)[7]; f_16748(t3,t2,t1);}}}}} /* loop in read-bytevector-literal in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in ... */ static void C_fcall f_16794(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_16794,4,t0,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16798,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:3032: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+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);}} /* loop in string->list in k6799 */ static void C_fcall f_8070(C_word t0,C_word t1,C_word 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_8070,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_subchar(((C_word*)t0)[3],t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8085,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_fixnum_plus(t2,C_fix(1)); /* library.scm:536: loop */ t7=t4; t8=t5; t1=t7; t2=t8; goto loop;}} /* real-part in k6799 */ 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=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_9414,3,av);} t3=C_i_check_number_2(t2,lf[288]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_20459 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_20459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_20459,3,av);} a=C_alloc(14); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20463,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_structurep(t2,lf[680]))){ t4=C_mutate2((C_word*)lf[843]+1 /* (set! ##sys#last-exception ...) */,t2); t5=C_slot(t2,C_fix(1)); if(C_truep(C_i_memq(lf[846],t5))){ t6=C_slot(t2,C_fix(2)); t7=C_i_member(lf[847],t6); t8=t7; t9=C_i_member(lf[848],t6); t10=t9; t11=C_i_member(lf[849],t6); t12=t11; t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20502,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20512,a[2]=t10,a[3]=t13,a[4]=t8,a[5]=t12,tmp=(C_word)a,a+=6,tmp); /* library.scm:4085: ##sys#error-handler */ t15=*((C_word*)lf[785]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t6=C_slot(t5,C_fix(0)); t7=C_eqp(lf[854],t6); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20573,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* library.scm:4103: ##sys#print */ t9=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t8; av2[2]=lf[855]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t8=C_slot(t5,C_fix(0)); t9=C_eqp(lf[856],t8); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20588,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:4106: ##sys#error-handler */ t11=*((C_word*)lf[785]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t10=C_a_i_list2(&a,2,lf[844],t2); t11=C_a_i_record3(&a,3,lf[680],lf[845],t10); /* library.scm:4110: ##sys#abort */ t12=*((C_word*)lf[802]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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[844],t2); t5=C_a_i_record3(&a,3,lf[680],lf[845],t4); /* library.scm:4110: ##sys#abort */ t6=*((C_word*)lf[802]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* ##sys#foreign-struct-wrapper-argument in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_22010(C_word c,C_word *av){ C_word tmp; C_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_22010,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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 k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_22013(C_word c,C_word *av){ C_word tmp; C_word 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_22013,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_foreign_string_argumentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* signal in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_20450(C_word c,C_word *av){ C_word tmp; C_word 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_20450,3,av);} /* library.scm:4065: ##sys#current-exception-handler */ t3=*((C_word*)lf[840]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* open in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_fcall f_12283(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_12283,5,t1,t2,t3,t4,t5);} a=C_alloc(22); t6=C_i_check_string_2(t2,t5); t7=(C_truep(t3)?lf[468]:lf[469]); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=lf[470]; 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_12293,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_12322,a[2]=t14,a[3]=t11,a[4]=t3,a[5]=t5,a[6]=t9,a[7]=((C_word)li441),tmp=(C_word)a,a+=8,tmp)); t16=((C_word*)t14)[1]; f_12322(t16,t12,t4);} /* fxand in k6799 */ static void C_ccall f_8644(C_word c,C_word *av){ C_word tmp; C_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_8644,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fixnum_and(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* fxior in k6799 */ 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=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_8647,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fixnum_or(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* fxneg in k6799 */ static void C_ccall f_8641(C_word c,C_word *av){ C_word tmp; C_word 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_8641,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fixnum_negate(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#foreign-tagged-pointer-argument in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_22022(C_word c,C_word *av){ C_word tmp; C_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_22022,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_foreign_tagged_pointer_argumentp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k12297 in k12294 in k12291 in open in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in ... */ static void C_ccall f_12299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12299,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12294 in k12291 in open in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_12296,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12299,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_12302,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_12320,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:1982: ##sys#string-append */ t6=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)((C_word*)t0)[5])[1]; av2[3]=((C_word*)((C_word*)t0)[6])[1]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k12291 in open in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 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(7,c,5)))){ C_save_and_reclaim((void *)f_12293,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,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],tmp=(C_word)a,a+=7,tmp); /* library.scm:1981: ##sys#make-port */ t3=*((C_word*)lf[438]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=*((C_word*)lf[451]+1); av2[4]=((C_word*)t0)[4]; av2[5]=lf[472]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* ##sys#foreign-symbol-argument in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_22016(C_word c,C_word *av){ C_word tmp; C_word 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_22016,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_foreign_symbol_argumentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* fxmin in k6799 */ static void C_ccall f_8635(C_word c,C_word *av){ C_word tmp; C_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_8635,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_fixnum_min(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#foreign-pointer-argument in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_22019(C_word c,C_word *av){ C_word tmp; C_word 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_22019,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_foreign_pointer_argumentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* fxmax in k6799 */ static void C_ccall f_8638(C_word c,C_word *av){ C_word tmp; C_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_8638,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_fixnum_max(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k20435 in abort in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){ C_save_and_reclaim((void *)f_20437,2,av);} a=C_alloc(22); t2=C_a_i_list6(&a,6,lf[835],lf[836],lf[837],C_SCHEME_END_OF_LIST,lf[838],C_SCHEME_FALSE); t3=C_a_i_record3(&a,3,lf[680],lf[839],t2); /* library.scm:4056: ##sys#abort */ t4=*((C_word*)lf[802]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* fx<= in k6799 */ static void C_ccall f_8632(C_word c,C_word *av){ C_word tmp; C_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_8632,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fixnum_less_or_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* abort in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 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=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_20433,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20437,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:4055: ##sys#current-exception-handler */ t4=*((C_word*)lf[840]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k14458 in k14455 in k14452 in k14443 in k14440 in k14412 in k14409 in k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in ... */ static void C_ccall f_14460(C_word c,C_word *av){ C_word tmp; C_word t0=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_14460,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14487,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:2586: readrec */ t3=((C_word*)((C_word*)t0)[8])[1]; f_13628(t3,t2);} /* k14464 in k14485 in k14458 in k14455 in k14452 in k14443 in k14440 in k14412 in k14409 in k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in ... */ static void C_ccall f_14466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14466,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14483,a[2]=((C_word*)t0)[2],a[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:2588: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#foreign-integer-argument in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_22025(C_word c,C_word *av){ C_word tmp; C_word 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_22025,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_foreign_integer_argumentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#foreign-integer64-argument in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_22028(C_word c,C_word *av){ C_word tmp; C_word 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_22028,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_foreign_integer64_argumentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k14455 in k14452 in k14443 in k14440 in k14412 in k14409 in k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in ... */ static void C_ccall f_14457(C_word c,C_word *av){ C_word tmp; C_word t0=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_14457,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14460,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:2585: r-spaces */ t3=((C_word*)((C_word*)t0)[7])[1]; f_13631(t3,t2);} /* k14452 in k14443 in k14440 in k14412 in k14409 in k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in ... */ static void C_fcall f_14454(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_14454,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14457,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_14457(2,av2);}} else{ /* library.scm:2584: ##sys#read-error */ t3=*((C_word*)lf[533]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[572]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14498,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*)t0)[13],a[8]=((C_word)li527),tmp=(C_word)a,a+=9,tmp); /* library.scm:2594: r-xtoken */ t3=((C_word*)((C_word*)t0)[14])[1]; f_14972(t3,((C_word*)t0)[4],t2);}} /* make-string in k6799 */ 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=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,5)))){ C_save_and_reclaim((void*)f_8025,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=C_i_check_exact_2(t2,lf[150]); t5=(*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); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ /* library.scm:519: ##sys#signal-hook */ t6=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t5; av2[2]=lf[151]; av2[3]=lf[150]; av2[4]=lf[152]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} else{ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_8032(2,av2);}}} /* ##sys#thread-yield! in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_22079(C_word c,C_word *av){ 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_22079,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22085,a[2]=((C_word)li772),tmp=(C_word)a,a+=3,tmp); /* library.scm:4485: ##sys#call-with-current-continuation */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=t2; C_call_cc(3,av2);}} /* k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_14408,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|13,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],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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)[9])[1])){ t3=t2; f_14411(t3,C_SCHEME_UNDEFINED);} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14593,a[2]=((C_word*)t0)[14],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:2567: ##sys#port-line */ t4=*((C_word*)lf[497]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_fcall f_14404(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(15,0,2)))){ C_save_and_reclaim_args((void *)trf_14404,3,t0,t1,t2);} a=C_alloc(15); t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_14408,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],a[14]=((C_word*)t0)[12],tmp=(C_word)a,a+=15,tmp); /* library.scm:2566: r-spaces */ t4=((C_word*)((C_word*)t0)[5])[1]; f_13631(t4,t3);} /* a22084 in thread-yield! in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_ccall f_22085(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_22085,3,av);} a=C_alloc(4); t3=*((C_word*)lf[770]+1); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22094,a[2]=t2,a[3]=((C_word)li771),tmp=(C_word)a,a+=4,tmp); t5=C_i_setslot(*((C_word*)lf[770]+1),C_fix(1),t4); /* library.scm:4489: ##sys#schedule */ t6=*((C_word*)lf[973]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* fx/? in k6799 */ 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=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_8683,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_o_fixnum_quotient(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* fx*? in k6799 */ static void C_ccall f_8680(C_word c,C_word *av){ C_word tmp; C_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_8680,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_o_fixnum_times(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* fx-? in k6799 */ 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=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_8677,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_o_fixnum_difference(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* fxmod in k6799 */ 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=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_8671,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fixnum_modulo(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k22051 in make-thread in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_22053(C_word c,C_word *av){ C_word tmp; C_word t0=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,1)))){ C_save_and_reclaim((void *)f_22053,2,av);} a=C_alloc(22); t2=C_a_i_vector6(&a,6,*((C_word*)lf[421]+1),*((C_word*)lf[453]+1),*((C_word*)lf[454]+1),*((C_word*)lf[455]+1),*((C_word*)lf[968]+1),t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record(&a,14,lf[687],((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); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* fx+? in k6799 */ 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=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_8674,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_o_fixnum_plus(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* fx>= in k6799 */ 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=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_8629,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fixnum_greater_or_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* fx< in k6799 */ 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=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_8626,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fixnum_lessp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* fx> in k6799 */ static void C_ccall f_8623(C_word c,C_word *av){ C_word tmp; C_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_8623,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fixnum_greaterp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_22061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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,c,4)))){ C_save_and_reclaim((void *)f_22061,2,av);} a=C_alloc(18); t2=C_mutate2((C_word*)lf[783]+1 /* (set! ##sys#primordial-thread ...) */,t1); t3=C_mutate2((C_word*)lf[770]+1 /* (set! ##sys#current-thread ...) */,*((C_word*)lf[783]+1)); t4=C_mutate2((C_word*)lf[971]+1 /* (set! ##sys#make-mutex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22064,a[2]=((C_word)li769),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[973]+1 /* (set! ##sys#schedule ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22070,a[2]=((C_word)li770),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[974]+1 /* (set! ##sys#thread-yield! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22079,a[2]=((C_word)li773),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[975]+1 /* (set! ##sys#kill-other-threads ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22100,a[2]=((C_word)li774),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[976]+1 /* (set! ##sys#context-switch ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_context_switch,a[2]=((C_word)li775),tmp=(C_word)a,a+=3,tmp)); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22109,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4499: make-vector */ t10=*((C_word*)lf[373]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t9; av2[2]=C_fix(256); av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} /* ##sys#make-mutex in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_22064(C_word c,C_word *av){ C_word tmp; C_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_22064,4,av);} a=C_alloc(8); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record7(&a,7,lf[972],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);}} /* k23919 in pmem in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_23921(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_23921,2,av);} /* library.scm:5047: pnum */ f_23818(((C_word*)t0)[3],t1);} /* k23926 in pmem in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_23928,2,av);} t2=((C_word*)t0)[2]; /* library.scm:5035: ##sys#print */ t3=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1072]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* fx= in k6799 */ 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=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_8617,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_eqp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* fx* in k6799 */ 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=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_8614,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fixnum_times(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* fx- in k6799 */ static void C_ccall f_8611(C_word c,C_word *av){ C_word tmp; C_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_8611,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fixnum_difference(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#->feature-id in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_19409(C_word c,C_word *av){ C_word tmp; C_word 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_19409,3,av);} a=C_alloc(4); if(C_truep(C_i_stringp(t2))){ /* library.scm:3755: string->keyword */ t3=*((C_word*)lf[356]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19425,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:3756: keyword? */ t4=*((C_word*)lf[355]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k14440 in k14412 in k14409 in k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_14442(C_word c,C_word *av){ C_word tmp; C_word t0=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_14442,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_14445,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* library.scm:2577: ##sys#peek-char-0 */ t3=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14443 in k14440 in k14412 in k14409 in k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ static void C_ccall f_14445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_14445,2,av);} a=C_alloc(15); t2=t1; t3=C_u_i_char_whitespacep(t2); t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_14454,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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],tmp=(C_word)a,a+=15,tmp); if(C_truep(t3)){ t5=t4; f_14454(t5,t3);} else{ t5=C_eqp(t2,C_make_character(40)); if(C_truep(t5)){ t6=t4; f_14454(t6,t5);} else{ t6=C_eqp(t2,C_make_character(41)); if(C_truep(t6)){ t7=t4; f_14454(t7,t6);} else{ t7=C_eqp(t2,C_make_character(34)); t8=t4; f_14454(t8,(C_truep(t7)?t7:C_eqp(t2,C_make_character(59))));}}}} /* a22093 in a22084 in thread-yield! in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_ccall f_22094(C_word c,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_22094,2,av);} /* library.scm:4488: return */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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#schedule in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_22070(C_word c,C_word *av){ 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_22070,2,av);} t2=C_slot(*((C_word*)lf[770]+1),C_fix(1)); /* library.scm:4482: g4827 */ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* loop in r-usequence in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_fcall f_13685(C_word 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_13685,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_13695,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:2445: ##sys#reverse-list->string */ t6=*((C_word*)lf[158]+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_13711,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* library.scm:2452: ##sys#read-char-0 */ t6=*((C_word*)lf[523]+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);}}} /* k16428 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_16430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16430,2,av);} /* library.scm:2985: container */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* r-usequence in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_13679(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_13679,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_13685,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t6,a[6]=((C_word)li518),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_13685(t8,t1,C_SCHEME_END_OF_LIST,t3);} /* k13675 in k13668 in loop in k13637 in r-spaces in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13677,2,av);} /* library.scm:2440: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13641(t2,((C_word*)t0)[3],t1);} /* k13668 in loop in k13637 in r-spaces in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_13670(C_word c,C_word *av){ C_word tmp; C_word t0=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_13670,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13677,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:2440: ##sys#peek-char-0 */ t3=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14485 in k14458 in k14455 in k14452 in k14443 in k14440 in k14412 in k14409 in k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_14487,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_14466,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:2587: r-spaces */ t4=((C_word*)((C_word*)t0)[7])[1]; f_13631(t4,t3);} /* k14481 in k14464 in k14485 in k14458 in k14455 in k14452 in k14443 in k14440 in k14412 in k14409 in k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in ... */ static void C_ccall f_14483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14483,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; /* Re-use our own argvector */ 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_14479,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:2591: starting-line */ t4=((C_word*)t0)[5]; f_14349(t4,t3,lf[571]);}} /* a16135 in k16089 in k16086 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 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; 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_16136,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k14477 in k14481 in k14464 in k14485 in k14458 in k14455 in k14452 in k14443 in k14440 in k14412 in k14409 in k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in ... */ static void C_ccall f_14479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14479,2,av);} /* library.scm:2589: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k13693 in loop in r-usequence in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 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; 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_13695,2,av);} a=C_alloc(8); t2=C_a_i_string_to_number(&a,2,t1,((C_word*)t0)[2]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_13708,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* library.scm:2450: string-append */ t4=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[549]; av2[3]=((C_word*)t0)[5]; av2[4]=t1; av2[5]=lf[550]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} /* k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_19470,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19473,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24650,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:3774: machine-byte-order */ t4=*((C_word*)lf[721]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in ... */ static void C_ccall f_19473(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_19473,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19476,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fudge(C_fix(40)))){ t3=C_a_i_cons(&a,2,lf[1110],*((C_word*)lf[762]+1)); t4=C_mutate2((C_word*)lf[762]+1 /* (set! ##sys#features ...) */,t3); t5=t2; f_19476(t5,t4);} else{ t3=t2; f_19476(t3,C_SCHEME_UNDEFINED);}} /* k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in ... */ static void C_fcall f_19476(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_19476,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19479,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fudge(C_fix(24)))){ t3=C_a_i_cons(&a,2,lf[1109],*((C_word*)lf[762]+1)); t4=C_mutate2((C_word*)lf[762]+1 /* (set! ##sys#features ...) */,t3); t5=t2; f_19479(t5,t4);} else{ t3=t2; f_19479(t3,C_SCHEME_UNDEFINED);}} /* k16166 in k16163 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ static void C_ccall f_16168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_16168,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16179,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:2948: readrec */ t4=((C_word*)((C_word*)t0)[3])[1]; f_13628(t4,t3);} /* k16163 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_16165(C_word c,C_word *av){ C_word tmp; C_word t0=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_16165,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16168,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:2947: readrec */ t3=((C_word*)((C_word*)t0)[3])[1]; f_13628(t3,t2);} /* k14422 in k14412 in k14409 in k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_14424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14424,2,av);} /* library.scm:2570: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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 foldr in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ static void C_fcall f_24095(C_word t0,C_word t1,C_word t2){ C_word 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_24095,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24113,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=C_slot(t2,C_fix(1)); /* library.scm:5100: loop */ t8=t5; t9=t6; t1=t8; t2=t9; 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);}}} /* k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in ... */ static void C_fcall f_19482(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_19482,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19485,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fudge(C_fix(39)))){ t3=C_a_i_cons(&a,2,lf[1107],*((C_word*)lf[762]+1)); t4=C_mutate2((C_word*)lf[762]+1 /* (set! ##sys#features ...) */,t3); t5=t2; f_19485(t5,t4);} else{ t3=t2; f_19485(t3,C_SCHEME_UNDEFINED);}} /* k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in ... */ static void C_fcall f_19485(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_19485,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19488,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fudge(C_fix(3)))){ t3=C_a_i_cons(&a,2,lf[1106],*((C_word*)lf[762]+1)); t4=C_mutate2((C_word*)lf[762]+1 /* (set! ##sys#features ...) */,t3); t5=t2; f_19488(t5,t4);} else{ t3=t2; f_19488(t3,C_SCHEME_UNDEFINED);}} /* k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in ... */ static void C_fcall f_19479(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_19479,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19482,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fudge(C_fix(28)))){ t3=C_a_i_cons(&a,2,lf[1108],*((C_word*)lf[762]+1)); t4=C_mutate2((C_word*)lf[762]+1 /* (set! ##sys#features ...) */,t3); t5=t2; f_19482(t5,t4);} else{ t3=t2; f_19482(t3,C_SCHEME_UNDEFINED);}} /* k16154 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_16156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16156,2,av);} /* library.scm:2944: ##sys#string-append */ t2=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[610]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k14409 in k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_fcall f_14411(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(14,0,2)))){ C_save_and_reclaim_args((void *)trf_14411,2,t0,t1);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|13,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],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* library.scm:2568: ##sys#peek-char-0 */ t3=*((C_word*)lf[525]+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);}} /* k14412 in k14409 in k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_14414,2,av);} a=C_alloc(14); if(C_truep(C_eofp(t1))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14424,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:2572: starting-line */ t3=((C_word*)t0)[4]; f_14349(t3,t2,lf[570]);} else{ t2=C_eqp(t1,((C_word*)t0)[5]); if(C_truep(t2)){ /* library.scm:2574: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=C_eqp(t1,C_make_character(46)); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_14442,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],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); /* library.scm:2576: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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|5,a[1]=(C_word)f_14589,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:2613: readrec */ t5=((C_word*)((C_word*)t0)[8])[1]; f_13628(t5,t4);}}}} /* k16150 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_16152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16152,2,av);} t2=((C_word*)t0)[2]; /* library.scm:2823: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t2; av2[2]=t1; C_string_to_symbol(3,av2);}} /* finite? in k6799 */ 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; 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_8699,3,av);} t3=C_i_check_number_2(t2,lf[218]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_finitep(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#default-exception-handler in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_22038(C_word c,C_word *av){ C_word tmp; C_word 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_22038,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_halt(lf[969]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_19492,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24583,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:3784: ##sys#->feature-id */ t4=*((C_word*)lf[760]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* flonum? in k6799 */ 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=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_8696,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_flonump(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#foreign-unsigned-integer64-argument in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_22034(C_word c,C_word *av){ C_word tmp; C_word 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_22034,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_foreign_unsigned_integer64_argumentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#foreign-unsigned-integer-argument in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_22031(C_word c,C_word *av){ C_word tmp; C_word 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_22031,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_foreign_unsigned_integer_argumentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* register-feature! in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in ... */ static void C_ccall f_19497(C_word c,C_word *av){ C_word tmp; 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_19497,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_19516,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_19518,a[2]=t5,a[3]=((C_word)li662),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_19518(t7,t3,t2);} /* k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in ... */ static void C_fcall f_19488(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_19488,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19492,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24607,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_fudge(C_fix(41)); /* library.scm:3783: ##sys#number->string */ 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);}} /* a16106 in a16100 in k16089 in k16086 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in ... */ static void C_ccall f_16107(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,3)))){ C_save_and_reclaim((void *)f_16107,4,av);} t4=C_block_size(t2); t5=C_eqp(C_fix(0),t4); if(C_truep(t5)){ if(C_truep(C_i_char_equalp(((C_word*)t0)[2],C_make_character(124)))){ /* library.scm:2942: build-keyword */ t6=((C_word*)((C_word*)t0)[3])[1]; f_15574(t6,t1,t2);} else{ /* library.scm:2941: ##sys#read-error */ t6=*((C_word*)lf[533]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=((C_word*)t0)[4]; av2[3]=lf[609]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} else{ /* library.scm:2942: build-keyword */ t6=((C_word*)((C_word*)t0)[3])[1]; f_15574(t6,t1,t2);}} /* a16100 in k16089 in k16086 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in ... */ static void C_ccall f_16101(C_word c,C_word *av){ 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_16101,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16107,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li560),tmp=(C_word)a,a+=6,tmp); /* library.scm:2937: r-xtoken */ t3=((C_word*)((C_word*)t0)[5])[1]; f_14972(t3,t1,t2);} /* ##sys#make-thread in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_22041(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_22041,6,av);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22053,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_word*)lf[518]+1)); /* library.scm:4456: ##sys#vector-resize */ f_10935(t6,*((C_word*)lf[518]+1),t7,C_SCHEME_FALSE);} /* k16177 in k16166 in k16163 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ C_save_and_reclaim((void *)f_16179,2,av);} a=C_alloc(15); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_list3(&a,3,lf[611],t2,lf[612]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k23982 in k23979 in k23976 in k23970 in k23961 in k23952 in k23946 in k23943 in k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in ... */ static void C_ccall f_23984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_23984,2,av);} /* library.scm:5077: ##sys#flush-output */ t2=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k23979 in k23976 in k23970 in k23961 in k23952 in k23946 in k23943 in k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in ... */ static void C_ccall f_23981(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_23981,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23984,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:5076: ##sys#write-char-0 */ t3=*((C_word*)lf[633]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* foldr in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_ccall f_24086(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_24086,5,av);} a=C_alloc(8); t5=C_i_check_list_2(t4,lf[1083]); 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_24095,a[2]=t2,a[3]=t7,a[4]=t3,a[5]=((C_word)li837),tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_24095(t9,t1,t4);} /* k23994 in k23961 in k23952 in k23946 in k23943 in k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in ... */ static void C_ccall f_23996(C_word c,C_word *av){ C_word tmp; C_word t0=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_23996,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23999,a[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:5069: pnum */ f_23818(t2,((C_word*)t0)[5]);} /* k23997 in k23994 in k23961 in k23952 in k23946 in k23943 in k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in ... */ static void C_ccall f_23999(C_word c,C_word *av){ C_word tmp; C_word t0=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_23999,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24002,a[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:5036: ##sys#write-char-0 */ t3=*((C_word*)lf[633]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(47); av2[3]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k16195 in k16189 in k16186 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in ... */ static void C_fcall f_16197(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_16197,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16200,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:2954: skip-to-eol */ t3=((C_word*)((C_word*)t0)[4])[1]; f_13567(t3,t2);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16206,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:2957: r-token */ t3=((C_word*)((C_word*)t0)[6])[1]; f_14831(t3,t2);}} /* k16189 in k16186 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_16191,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16197,a[2]=((C_word*)t0)[2],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_16197(t4,t3);} else{ t4=C_u_i_char_equalp(C_make_character(47),t1); t5=t2; f_16197(t5,t4);}} else{ t3=t2; f_16197(t3,C_SCHEME_FALSE);}} /* k23961 in k23952 in k23946 in k23943 in k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in ... */ static void C_ccall f_23963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_23963,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_23972,a[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_23996,a[2]=t6,a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* library.scm:5035: ##sys#print */ t10=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t9; av2[2]=lf[1075]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t9=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_23972(2,av2);}}} /* k14775 in k14772 in k14827 in r-number-with-radix in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14777,2,av);} if(C_truep(C_eofp(t1))){ /* library.scm:2670: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[587]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ if(C_truep(C_i_char_equalp(t1,C_make_character(120)))){ /* library.scm:2671: r-number */ t2=((C_word*)((C_word*)t0)[4])[1]; f_14620(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:2672: r-number */ t2=((C_word*)((C_word*)t0)[4])[1]; f_14620(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:2673: r-number */ t2=((C_word*)((C_word*)t0)[4])[1]; f_14620(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:2674: r-number */ t2=((C_word*)((C_word*)t0)[4])[1]; f_14620(t2,((C_word*)t0)[2],C_fix(2),((C_word*)t0)[5]);} else{ /* library.scm:2675: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[588]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}}}}} /* k14772 in k14827 in r-number-with-radix in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_14774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14774,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14777,a[2]=((C_word*)t0)[2],a[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:2669: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k23970 in k23961 in k23952 in k23946 in k23943 in k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in ... */ static void C_ccall f_23972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_23972,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_23978,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:5035: ##sys#print */ t5=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=lf[1073]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k23976 in k23970 in k23961 in k23952 in k23946 in k23943 in k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in ... */ static void C_ccall f_23978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_23978,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23981,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:5075: pmem */ t3=((C_word*)((C_word*)t0)[3])[1]; f_23856(t3,t2,((C_word*)t0)[4]);} /* k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_19461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19461,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19464,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_24662,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:3771: software-version */ t4=*((C_word*)lf[722]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_19464(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19464,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19467,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_24658,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:3772: build-platform */ t4=*((C_word*)lf[723]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_19467,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19470,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_24654,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:3773: machine-type */ t4=*((C_word*)lf[720]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ static void C_ccall f_23942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_23942,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23945,a[2]=((C_word*)t0)[2],a[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:5050: pnum */ f_23818(t2,t3);} /* k23943 in k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_23945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_23945,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23948,a[2]=((C_word*)t0)[2],a[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:5035: ##sys#print */ t3=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1080]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k23946 in k23943 in k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in ... */ 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 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_23948,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_23954,a[2]=((C_word*)t0)[2],a[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_24035,a[2]=t4,a[3]=((C_word*)t0)[5],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:5035: ##sys#print */ t6=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[1079]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_23954(2,av2);}}} /* string in k6799 */ static void C_ccall f_8560(C_word c,C_word *av){ C_word tmp; 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_8560,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; /* list->string */ t3=*((C_word*)lf[156]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k23952 in k23946 in k23943 in k23940 in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in ... */ 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 t3; C_word 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_23954,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_23963,a[2]=((C_word*)t0)[2],a[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_24017,a[2]=t6,a[3]=((C_word*)t0)[5],a[4]=t5,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* library.scm:5035: ##sys#print */ t8=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=lf[1077]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_23963(2,av2);}}} /* k8548 in loop in string-append in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8550,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f29492 in k24378 in k24382 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in ... */ static void C_ccall f29492(C_word c,C_word *av){ C_word tmp; C_word 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 *)f29492,3,av);} t3=C_i_check_string_2(t2,lf[991]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#fragments->string in k6799 */ 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 *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_8566,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8570,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* library.scm:721: ##sys#make-string */ t5=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* f29486 in k24382 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_ccall f29486(C_word c,C_word *av){ C_word tmp; C_word 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 *)f29486,3,av);} t3=C_i_check_string_2(t2,lf[991]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k14874 in k14867 in k14864 in k14849 in loop in k14837 in r-token in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_14876,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:2689: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_14841(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:2689: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_14841(t4,((C_word*)t0)[6],t1,t3);}} /* k16186 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_16188,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,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],tmp=(C_word)a,a+=7,tmp); /* library.scm:2951: ##sys#peek-char-0 */ t3=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* string-append in k6799 */ static void C_ccall f_8521(C_word c,C_word *av){ C_word tmp; 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_8521,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_8525,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_8527,a[2]=t4,a[3]=t7,a[4]=((C_word)li162),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_8527(t9,t5,t2,C_fix(0));} /* k8536 in loop in string-append in k6799 */ 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,1)))){ C_save_and_reclaim((void *)f_8538,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in string-append in k6799 */ static void C_fcall f_8527(C_word t0,C_word t1,C_word 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_8527,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_8538,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:708: ##sys#make-string */ t6=*((C_word*)lf[149]+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_slot(t2,C_fix(0)); t6=t5; t7=C_i_check_string_2(t6,lf[174]); t8=C_block_size(t6); t9=t8; t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8550,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:712: loop */ t14=t10; t15=t11; t16=t12; t1=t14; t2=t15; t3=t16; goto loop;}} /* k8523 in string-append in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8525,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* continuation-capture in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11825,3,av);} a=C_alloc(4); t3=*((C_word*)lf[421]+1); t4=C_direct_continuation(C_SCHEME_FALSE); t5=C_a_i_record3(&a,3,lf[428],t4,*((C_word*)lf[421]+1)); /* library.scm:1700: proc */ t6=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} /* k8513 in string-append in k6799 */ static void C_ccall f_8515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8515,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k23181 in k23175 in k23172 in body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_fcall f_23183(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_23183,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23186,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:4846: 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_23282,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); /* library.scm:4869: display */ t3=*((C_word*)lf[639]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=lf[1040]; 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_23291,a[2]=((C_word*)t0)[6],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:4873: display */ t3=*((C_word*)lf[639]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=lf[1041]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}} /* k23187 in k23184 in k23181 in k23175 in k23172 in body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in ... */ static void C_ccall f_23189(C_word c,C_word *av){ C_word tmp; C_word t0=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_23189,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23192,a[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:4860: errargs */ t3=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k23184 in k23181 in k23175 in k23172 in body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in ... */ static void C_ccall f_23186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_23186,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23189,a[2]=((C_word*)t0)[2],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_23218,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[6],a[5]=((C_word)li815),tmp=(C_word)a,a+=6,tmp); /* library.scm:4846: g5173 */ t4=t3; f_23218(t4,t2,t1);} else{ t3=C_slot(((C_word*)t0)[6],C_fix(1)); if(C_truep(C_i_equalp(lf[1037],t3))){ /* library.scm:4856: display */ t4=*((C_word*)lf[639]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=lf[1038]; 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_23266,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:4858: display */ t5=*((C_word*)lf[639]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[1039]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* ##sys#string-append in k6799 */ static void C_ccall f_8505(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_8505,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_8515,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:699: ##sys#make-string */ t10=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k23190 in k23187 in k23184 in k23181 in k23175 in k23172 in body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in ... */ static void C_ccall f_23192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_23192,2,av);} a=C_alloc(6); t2=t1; if(C_truep(t2)){ t3=C_i_length(t2); t4=C_eqp(C_fix(1),t3); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23204,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:4863: display */ t6=*((C_word*)lf[639]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=lf[1033]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23210,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:4866: newline */ t6=*((C_word*)lf[636]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* f29480 in k24294 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in ... */ static void C_ccall f29480(C_word c,C_word *av){ C_word tmp; C_word 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 *)f29480,3,av);} t3=C_i_check_list_2(t2,lf[992]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k23280 in k23181 in k23175 in k23172 in body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in ... */ static void C_ccall f_23282(C_word c,C_word *av){ C_word tmp; C_word t0=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_23282,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23285,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:4870: display */ t3=*((C_word*)lf[639]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in ... */ static void C_ccall f_23165(C_word c,C_word *av){ C_word tmp; C_word 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_23165,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_23167,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)li816),tmp=(C_word)a,a+=8,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23313,a[2]=t4,a[3]=((C_word)li817),tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23318,a[2]=t5,a[3]=((C_word)li818),tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ /* library.scm:4825: def-port5153 */ t7=t6; f_23318(t7,t1);} else{ t7=C_i_car(t3); t8=C_u_i_cdr(t3); if(C_truep(C_i_nullp(t8))){ /* library.scm:4825: def-header5154 */ t9=t5; f_23313(t9,t1,t7);} else{ t9=C_i_car(t8); t10=C_u_i_cdr(t8); /* library.scm:4825: body5151 */ t11=t4; f_23167(t11,t1,t7,t9);}}} /* k23289 in k23181 in k23175 in k23172 in body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in ... */ static void C_ccall f_23291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_23291,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* library.scm:4874: writeargs */ f_23120(((C_word*)t0)[4],t2,((C_word*)t0)[5]);} /* body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_fcall f_23167(C_word t0,C_word 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_23167,4,t0,t1,t2,t3);} a=C_alloc(10); t4=t2; t5=C_i_check_port_2(t4,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[1032]); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_23174,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]=t3,tmp=(C_word)a,a+=10,tmp); /* library.scm:4843: newline */ t7=*((C_word*)lf[636]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k23283 in k23280 in k23181 in k23175 in k23172 in body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in ... */ static void C_ccall f_23285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_23285,2,av);} /* library.scm:4871: newline */ t2=*((C_word*)lf[636]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k23172 in body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_ccall f_23174(C_word c,C_word *av){ C_word tmp; C_word t0=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_23174,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_23177,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:4844: display */ t3=*((C_word*)lf[639]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* char-whitespace? in k6799 */ static void C_ccall f_11094(C_word c,C_word *av){ C_word tmp; C_word 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_11094,3,av);} t3=C_i_check_char_2(t2,lf[404]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_char_whitespacep(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k23175 in k23172 in body5151 in print-error-message in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ static void C_ccall f_23177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_23177,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_23183,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_immp(((C_word*)t0)[6]))){ t3=t2; f_23183(t3,C_SCHEME_FALSE);} else{ t3=C_slot(((C_word*)t0)[6],C_fix(0)); t4=t2; f_23183(t4,C_eqp(lf[680],t3));}} /* for-each-loop5130 in writeargs in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_fcall f_23143(C_word t0,C_word t1,C_word 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_23143,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_23153,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:4833: g5131 */ t5=((C_word*)t0)[3]; f_23122(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);}}} /* k15909 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15911,2,av);} /* library.scm:2901: r-number-with-radix */ t2=((C_word*)((C_word*)t0)[2])[1]; f_14764(t2,((C_word*)t0)[3],lf[327]);} /* char-ci=? in k6799 */ 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=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_11018,4,av);} t4=C_u_i_char_downcase(t2); t5=C_u_i_char_downcase(t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_eqp(t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k17624 in loop in sym-is-readable? in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_fcall f_17626(C_word t0,C_word 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(4,0,2)))){ C_save_and_reclaim_args((void *)trf_17626,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17633,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3265: ##sys#string->number */ t3=*((C_word*)lf[328]+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_eqp(((C_word*)t0)[4],C_make_character(58)); if(C_truep(t2)){ t3=C_eqp(((C_word*)t0)[5],lf[591]); t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=C_i_not(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17652,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=C_eqp(((C_word*)t0)[4],C_make_character(35)); if(C_truep(t4)){ t5=C_subchar(((C_word*)t0)[3],C_fix(1)); t6=C_eqp(C_make_character(37),t5); t7=t3; f_17652(t7,C_i_not(t6));} else{ t5=t3; f_17652(t5,C_SCHEME_FALSE);}}}} /* k23151 in for-each-loop5130 in writeargs in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_ccall f_23153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_23153,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_23143(t3,((C_word*)t0)[4],t2);} /* k19423 in ->feature-id in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_19425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19425,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19438,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3757: ##sys#symbol->string */ t3=*((C_word*)lf[341]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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]; t3=C_a_i_list(&a,1,((C_word*)t0)[3]);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=t2; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=lf[761]; av2[5]=t3; C_apply(6,av2);}}}} /* a15944 in k15927 in k15924 in k15921 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in ... */ static void C_ccall f_15945(C_word c,C_word *av){ C_word tmp; 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_15945,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k24505 in for-each-loop4190 in a24466 in k24439 in k24436 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24507,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_24497(t3,((C_word*)t0)[4],t2);} /* check in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_fcall f_19443(C_word t1,C_word 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_19443,2,t1,t2);} a=C_alloc(3); t3=C_eqp(lf[735],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_19458,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:3769: ##sys#->feature-id */ t5=*((C_word*)lf[760]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* char-upcase in k6799 */ 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=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_11006,3,av);} t3=C_i_check_char_2(t2,lf[394]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_char_upcase(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* char<=? in k6799 */ static void C_ccall f_11003(C_word c,C_word *av){ C_word tmp; C_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_11003,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_char_less_or_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* char>=? in k6799 */ static void C_ccall f_11000(C_word c,C_word *av){ C_word tmp; C_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_11000,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_char_greater_or_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k19436 in k19423 in ->feature-id in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_19438(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19438,2,av);} /* library.scm:3757: string->keyword */ t2=*((C_word*)lf[356]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k23021 in k23012 in loop in force-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in ... */ static void C_ccall f_23023(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_23023,2,av);} /* library.scm:4764: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23010(t2,((C_word*)t0)[3]);} /* k15921 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_15923(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15923,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15926,a[2]=((C_word*)t0)[2],a[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:2904: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9771 in loop in gcd in k6799 */ 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 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_9773,2,av);} a=C_alloc(7); if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_abs(&a,1,((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_slot(((C_word*)t0)[2],C_fix(0)); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9788,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* library.scm:1101: ##sys#check-integer */ t5=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=lf[322]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k15927 in k15924 in k15921 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in ... */ static void C_ccall f_15929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_15929,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_15934,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word)li556),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15939,a[2]=((C_word*)t0)[3],a[3]=((C_word)li557),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15945,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word)li558),tmp=(C_word)a,a+=6,tmp); /* library.scm:2904: ##sys#dynamic-wind */ t9=*((C_word*)lf[423]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15924 in k15921 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ static void C_ccall f_15926(C_word c,C_word *av){ C_word tmp; C_word t0=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_15926,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15929,a[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:2907: ##sys#read-error */ t3=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[604]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ switch(t1){ case C_make_character(105): t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_15929(2,av2);} case C_make_character(115): t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_TRUE; f_15929(2,av2);} default: /* library.scm:2910: ##sys#read-error */ t3=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[605]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}} /* k8568 in fragments->string in k6799 */ static void C_ccall f_8570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8570,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8575,a[2]=t2,a[3]=((C_word)li165),tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_8575(t3,((C_word*)t0)[3],C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* gc in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in ... */ static void C_ccall f_23032(C_word c,C_word *av){ C_word tmp; 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_23032,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_pairp(t2))){ t3=t2; if(C_truep(C_u_i_car(t3))){ /* library.scm:4770: ##sys#force-finalizers */ t4=*((C_word*)lf[794]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[21]+1); av2[3]=t2; C_apply(4,av2);}}} else{{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[21]+1); av2[3]=t2; C_apply(4,av2);}}} /* loop in sym-is-readable? in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_fcall f_17610(C_word t0,C_word t1,C_word t2){ C_word 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_17610,3,t0,t1,t2);} a=C_alloc(8); 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_17626,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_17626(t7,t5);} else{ t7=C_eqp(t4,C_make_character(43)); if(C_truep(t7)){ t8=t6; f_17626(t8,t7);} else{ t8=C_eqp(t4,C_make_character(46)); t9=t6; f_17626(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|7,a[1]=(C_word)f_17690,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[6])){ t6=t5; f_17690(t6,((C_word*)t0)[6]);} else{ t6=C_u_i_char_upper_casep(t4); t7=t5; f_17690(t7,C_i_not(t6));}}} /* k9786 in k9771 in loop in gcd in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_9788,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9799,a[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:1102: ##sys#gcd */ t3=*((C_word*)lf[321]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* char-ci<=? in k6799 */ 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=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_11065,4,av);} t4=C_u_i_char_downcase(t2); t5=C_u_i_char_downcase(t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_u_i_char_less_or_equal_p(t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k14864 in k14849 in loop in k14837 in r-token in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_fcall f_14866(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_14866,2,t0,t1);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14869,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:2688: read-unreserved-char-0 */ t3=((C_word*)((C_word*)t0)[8])[1]; f_13613(t3,t2,((C_word*)t0)[7]);} /* k14867 in k14864 in k14849 in loop in k14837 in r-token in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_14869(C_word c,C_word *av){ C_word tmp; C_word t0=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_14869,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14876,a[2]=((C_word*)t0)[2],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:2689: ##sys#peek-char-0 */ t3=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19456 in check in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_19458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19458,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,*((C_word*)lf[762]+1)); t3=C_mutate2((C_word*)lf[762]+1 /* (set! ##sys#features ...) */,t2); t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#force-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in ... */ static void C_ccall f_23004(C_word c,C_word *av){ C_word tmp; C_word t0=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_23004,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_23010,a[2]=t3,a[3]=((C_word)li803),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_23010(t5,t1);} /* 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_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_library_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(6305))){ C_save(t1); C_rereclaim2(6305*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,1148); lf[1]=C_h_intern(&lf[1],4,"exit"); lf[2]=C_h_intern(&lf[2],16,"\003sysexit-handler"); lf[3]=C_h_intern(&lf[3],5,"reset"); lf[4]=C_h_intern(&lf[4],17,"\003sysreset-handler"); lf[5]=C_h_intern(&lf[5],13,"\003sysquit-hook"); lf[6]=C_h_intern(&lf[6],4,"quit"); lf[7]=C_h_intern(&lf[7],5,"error"); lf[8]=C_h_intern(&lf[8],15,"\003syssignal-hook"); lf[9]=C_h_intern(&lf[9],6,"\000error"); lf[10]=C_h_intern(&lf[10],20,"\003syswarnings-enabled"); lf[11]=C_h_intern(&lf[11],19,"\003sysnotices-enabled"); lf[12]=C_h_intern(&lf[12],7,"warning"); lf[13]=C_h_intern(&lf[13],8,"\000warning"); lf[14]=C_h_intern(&lf[14],6,"notice"); lf[15]=C_h_intern(&lf[15],7,"\000notice"); lf[16]=C_h_intern(&lf[16],15,"enable-warnings"); lf[17]=C_h_intern(&lf[17],9,"\003syserror"); lf[18]=C_h_intern(&lf[18],8,"\003syswarn"); lf[19]=C_h_intern(&lf[19],10,"\003sysnotice"); lf[20]=C_h_intern(&lf[20],14,"set-gc-report!"); lf[21]=C_h_intern(&lf[21],6,"\003sysgc"); lf[22]=C_h_intern(&lf[22],11,"\003syssetslot"); lf[23]=C_h_intern(&lf[23],12,"\003syssetislot"); lf[24]=C_h_intern(&lf[24],19,"\003sysallocate-vector"); lf[25]=C_h_intern(&lf[25],9,"argc+argv"); lf[26]=C_h_intern(&lf[26],18,"\003sysmake-structure"); lf[27]=C_h_intern(&lf[27],23,"\003sysensure-heap-reserve"); lf[28]=C_h_intern(&lf[28],9,"\003sysfudge"); lf[29]=C_h_intern(&lf[29],14,"return-to-host"); lf[30]=C_h_intern(&lf[30],21,"\003syssymbol-table-info"); lf[31]=C_h_intern(&lf[31],15,"\003sysmemory-info"); lf[32]=C_h_intern(&lf[32],20,"current-milliseconds"); lf[33]=C_h_intern(&lf[33],23,"current-gc-milliseconds"); lf[34]=C_h_intern(&lf[34],18,"\003sysdecode-seconds"); lf[35]=C_h_intern(&lf[35],24,"get-environment-variable"); lf[36]=C_h_intern(&lf[36],17,"\003syspeek-c-string"); lf[37]=C_h_intern(&lf[37],17,"\003sysmake-c-string"); lf[38]=C_h_intern(&lf[38],15,"\003sysstart-timer"); lf[39]=C_h_intern(&lf[39],14,"\003sysstop-timer"); lf[40]=C_h_intern(&lf[40],14,"\003sysimmediate\077"); lf[41]=C_h_intern(&lf[41],11,"\003sysmessage"); lf[42]=C_h_intern(&lf[42],8,"\003sysbyte"); lf[43]=C_h_intern(&lf[43],11,"\003syssetbyte"); lf[44]=C_h_intern(&lf[44],4,"void"); lf[45]=C_h_intern(&lf[45],8,"\003sysvoid"); lf[46]=C_h_intern(&lf[46],19,"\003sysundefined-value"); lf[47]=C_h_intern(&lf[47],8,"\003syshalt"); lf[48]=C_h_intern(&lf[48],11,"\003sysflo2fix"); lf[49]=C_h_intern(&lf[49],11,"\003sysbecome!"); lf[50]=C_h_intern(&lf[50],13,"\003sysblock-ref"); lf[51]=C_h_intern(&lf[51],16,"\003sysapply-values"); lf[52]=C_h_intern(&lf[52],16,"\003syscopy-closure"); lf[53]=C_h_intern(&lf[53],24,"\003sysapply-argument-limit"); lf[54]=C_h_intern(&lf[54],14,"\003sysblock-set!"); lf[55]=C_h_intern(&lf[55],15,"\003syscheck-range"); lf[56]=C_h_intern(&lf[56],11,"\000type-error"); lf[57]=C_decode_literal(C_heaptop,"\376B\000\000\023slot not accessible"); lf[58]=C_h_intern(&lf[58],15,"current-seconds"); lf[59]=C_h_intern(&lf[59],8,"cpu-time"); lf[60]=C_h_intern(&lf[60],19,"\003syscheck-structure"); lf[61]=C_h_intern(&lf[61],14,"\003syscheck-blob"); lf[62]=C_h_intern(&lf[62],21,"\003syscheck-byte-vector"); lf[63]=C_h_intern(&lf[63],14,"\003syscheck-pair"); lf[64]=C_h_intern(&lf[64],14,"\003syscheck-list"); lf[65]=C_h_intern(&lf[65],16,"\003syscheck-string"); lf[66]=C_h_intern(&lf[66],16,"\003syscheck-number"); lf[67]=C_h_intern(&lf[67],15,"\003syscheck-exact"); lf[68]=C_h_intern(&lf[68],17,"\003syscheck-inexact"); lf[69]=C_h_intern(&lf[69],16,"\003syscheck-symbol"); lf[70]=C_h_intern(&lf[70],16,"\003syscheck-vector"); lf[71]=C_h_intern(&lf[71],14,"\003syscheck-char"); lf[72]=C_h_intern(&lf[72],17,"\003syscheck-boolean"); lf[73]=C_h_intern(&lf[73],18,"\003syscheck-locative"); lf[74]=C_h_intern(&lf[74],17,"\003syscheck-integer"); lf[75]=C_h_intern(&lf[75],14,"\003syserror-hook"); lf[76]=C_h_intern(&lf[76],17,"\003syscheck-special"); lf[77]=C_decode_literal(C_heaptop,"\376B\000\000-bad argument type - not a pointer-like object"); lf[78]=C_h_intern(&lf[78],17,"\003syscheck-closure"); lf[79]=C_h_intern(&lf[79],5,"force"); lf[80]=C_h_intern(&lf[80],7,"promise"); lf[81]=C_h_intern(&lf[81],8,"\003syslist"); lf[82]=C_h_intern(&lf[82],9,"\003sysforce"); lf[83]=C_h_intern(&lf[83],6,"system"); lf[84]=C_h_intern(&lf[84],14,"\000process-error"); lf[85]=C_decode_literal(C_heaptop,"\376B\000\000\032`system\047 invocation failed"); lf[86]=C_h_intern(&lf[86],16,"\003sysupdate-errno"); lf[87]=C_h_intern(&lf[87],9,"\003sysdload"); lf[88]=C_h_intern(&lf[88],21,"\003sysset-dlopen-flags!"); lf[89]=C_h_intern(&lf[89],3,"not"); lf[90]=C_h_intern(&lf[90],8,"boolean\077"); lf[91]=C_h_intern(&lf[91],3,"eq\077"); lf[92]=C_h_intern(&lf[92],4,"eqv\077"); lf[93]=C_h_intern(&lf[93],6,"equal\077"); lf[94]=C_h_intern(&lf[94],5,"pair\077"); lf[95]=C_h_intern(&lf[95],4,"cons"); lf[96]=C_h_intern(&lf[96],3,"car"); lf[97]=C_h_intern(&lf[97],3,"cdr"); lf[98]=C_h_intern(&lf[98],8,"set-car!"); lf[99]=C_h_intern(&lf[99],8,"set-cdr!"); lf[100]=C_h_intern(&lf[100],4,"cadr"); lf[101]=C_h_intern(&lf[101],5,"caddr"); lf[102]=C_h_intern(&lf[102],6,"cadddr"); lf[103]=C_h_intern(&lf[103],6,"cddddr"); lf[104]=C_h_intern(&lf[104],4,"caar"); lf[105]=C_h_intern(&lf[105],4,"cdar"); lf[106]=C_h_intern(&lf[106],4,"cddr"); lf[107]=C_h_intern(&lf[107],5,"caaar"); lf[108]=C_h_intern(&lf[108],5,"caadr"); lf[109]=C_h_intern(&lf[109],5,"cadar"); lf[110]=C_h_intern(&lf[110],5,"cdaar"); lf[111]=C_h_intern(&lf[111],5,"cdadr"); lf[112]=C_h_intern(&lf[112],5,"cddar"); lf[113]=C_h_intern(&lf[113],5,"cdddr"); lf[114]=C_h_intern(&lf[114],6,"caaaar"); lf[115]=C_h_intern(&lf[115],6,"caaadr"); lf[116]=C_h_intern(&lf[116],6,"caadar"); lf[117]=C_h_intern(&lf[117],6,"caaddr"); lf[118]=C_h_intern(&lf[118],6,"cadaar"); lf[119]=C_h_intern(&lf[119],6,"cadadr"); lf[120]=C_h_intern(&lf[120],6,"caddar"); lf[121]=C_h_intern(&lf[121],6,"cdaaar"); lf[122]=C_h_intern(&lf[122],6,"cdaadr"); lf[123]=C_h_intern(&lf[123],6,"cdadar"); lf[124]=C_h_intern(&lf[124],6,"cdaddr"); lf[125]=C_h_intern(&lf[125],6,"cddaar"); lf[126]=C_h_intern(&lf[126],6,"cddadr"); lf[127]=C_h_intern(&lf[127],6,"cdddar"); lf[128]=C_h_intern(&lf[128],5,"null\077"); lf[129]=C_h_intern(&lf[129],4,"list"); lf[130]=C_h_intern(&lf[130],6,"length"); lf[131]=C_h_intern(&lf[131],9,"list-tail"); lf[132]=C_h_intern(&lf[132],8,"list-ref"); lf[133]=C_h_intern(&lf[133],8,"\003sysdelq"); lf[134]=C_h_intern(&lf[134],27,"\003syserror-not-a-proper-list"); lf[135]=C_h_intern(&lf[135],6,"append"); lf[136]=C_h_intern(&lf[136],7,"reverse"); lf[137]=C_h_intern(&lf[137],16,"\003sysfast-reverse"); lf[138]=C_h_intern(&lf[138],4,"memq"); lf[139]=C_h_intern(&lf[139],4,"memv"); lf[140]=C_h_intern(&lf[140],6,"member"); lf[141]=C_h_intern(&lf[141],4,"assq"); lf[142]=C_h_intern(&lf[142],4,"assv"); lf[143]=C_h_intern(&lf[143],5,"assoc"); lf[144]=C_h_intern(&lf[144],5,"list\077"); lf[145]=C_h_intern(&lf[145],7,"string\077"); lf[146]=C_h_intern(&lf[146],13,"string-length"); lf[147]=C_h_intern(&lf[147],10,"string-ref"); lf[148]=C_h_intern(&lf[148],11,"string-set!"); lf[149]=C_h_intern(&lf[149],15,"\003sysmake-string"); lf[150]=C_h_intern(&lf[150],11,"make-string"); lf[151]=C_h_intern(&lf[151],13,"\000bounds-error"); lf[152]=C_decode_literal(C_heaptop,"\376B\000\000\020size is negative"); lf[153]=C_h_intern(&lf[153],12,"string->list"); lf[154]=C_h_intern(&lf[154],16,"\003sysstring->list"); lf[155]=C_h_intern(&lf[155],12,"list->string"); lf[156]=C_h_intern(&lf[156],16,"\003syslist->string"); lf[157]=C_h_intern(&lf[157],20,"reverse-list->string"); lf[158]=C_h_intern(&lf[158],24,"\003sysreverse-list->string"); lf[159]=C_h_intern(&lf[159],12,"string-fill!"); lf[160]=C_h_intern(&lf[160],11,"string-copy"); lf[161]=C_h_intern(&lf[161],9,"substring"); lf[162]=C_h_intern(&lf[162],13,"\003syssubstring"); lf[163]=C_h_intern(&lf[163],8,"string=\077"); lf[164]=C_h_intern(&lf[164],11,"string-ci=\077"); lf[165]=C_h_intern(&lf[165],8,"string<\077"); lf[166]=C_h_intern(&lf[166],8,"string>\077"); lf[167]=C_h_intern(&lf[167],9,"string<=\077"); lf[168]=C_h_intern(&lf[168],9,"string>=\077"); lf[169]=C_h_intern(&lf[169],11,"string-ci<\077"); lf[170]=C_h_intern(&lf[170],11,"string-ci>\077"); lf[171]=C_h_intern(&lf[171],12,"string-ci<=\077"); lf[172]=C_h_intern(&lf[172],12,"string-ci>=\077"); lf[173]=C_h_intern(&lf[173],17,"\003sysstring-append"); lf[174]=C_h_intern(&lf[174],13,"string-append"); lf[175]=C_h_intern(&lf[175],6,"string"); lf[176]=C_h_intern(&lf[176],21,"\003sysfragments->string"); lf[177]=C_h_intern(&lf[177],20,"most-positive-fixnum"); lf[178]=C_h_intern(&lf[178],20,"most-negative-fixnum"); lf[179]=C_h_intern(&lf[179],11,"fixnum-bits"); lf[180]=C_h_intern(&lf[180],16,"fixnum-precision"); lf[181]=C_h_intern(&lf[181],7,"fixnum\077"); lf[182]=C_h_intern(&lf[182],3,"fx+"); lf[183]=C_h_intern(&lf[183],3,"fx-"); lf[184]=C_h_intern(&lf[184],3,"fx\052"); lf[185]=C_h_intern(&lf[185],3,"fx="); lf[186]=C_h_intern(&lf[186],3,"fx>"); lf[187]=C_h_intern(&lf[187],3,"fx<"); lf[188]=C_h_intern(&lf[188],4,"fx>="); lf[189]=C_h_intern(&lf[189],4,"fx<="); lf[190]=C_h_intern(&lf[190],5,"fxmin"); lf[191]=C_h_intern(&lf[191],5,"fxmax"); lf[192]=C_h_intern(&lf[192],5,"fxneg"); lf[193]=C_h_intern(&lf[193],5,"fxand"); lf[194]=C_h_intern(&lf[194],5,"fxior"); lf[195]=C_h_intern(&lf[195],5,"fxxor"); lf[196]=C_h_intern(&lf[196],5,"fxnot"); lf[197]=C_h_intern(&lf[197],5,"fxshl"); lf[198]=C_h_intern(&lf[198],5,"fxshr"); lf[199]=C_h_intern(&lf[199],6,"fxodd\077"); lf[200]=C_h_intern(&lf[200],7,"fxeven\077"); lf[201]=C_h_intern(&lf[201],3,"fx/"); lf[202]=C_h_intern(&lf[202],5,"fxmod"); lf[203]=C_h_intern(&lf[203],4,"fx+\077"); lf[204]=C_h_intern(&lf[204],4,"fx-\077"); lf[205]=C_h_intern(&lf[205],4,"fx\052\077"); lf[206]=C_h_intern(&lf[206],4,"fx/\077"); lf[207]=C_h_intern(&lf[207],14,"maximum-flonum"); lf[208]=C_h_intern(&lf[208],14,"minimum-flonum"); lf[209]=C_h_intern(&lf[209],12,"flonum-radix"); lf[210]=C_h_intern(&lf[210],14,"flonum-epsilon"); lf[211]=C_h_intern(&lf[211],16,"flonum-precision"); lf[212]=C_h_intern(&lf[212],24,"flonum-decimal-precision"); lf[213]=C_h_intern(&lf[213],23,"flonum-maximum-exponent"); lf[214]=C_h_intern(&lf[214],23,"flonum-minimum-exponent"); lf[215]=C_h_intern(&lf[215],31,"flonum-maximum-decimal-exponent"); lf[216]=C_h_intern(&lf[216],31,"flonum-minimum-decimal-exponent"); lf[217]=C_h_intern(&lf[217],7,"flonum\077"); lf[218]=C_h_intern(&lf[218],7,"finite\077"); lf[219]=C_h_intern(&lf[219],3,"fp+"); lf[220]=C_h_intern(&lf[220],3,"fp-"); lf[221]=C_h_intern(&lf[221],3,"fp\052"); lf[222]=C_h_intern(&lf[222],3,"fp/"); lf[223]=C_h_intern(&lf[223],4,"fp/\077"); lf[224]=C_h_intern(&lf[224],3,"fp="); lf[225]=C_h_intern(&lf[225],3,"fp>"); lf[226]=C_h_intern(&lf[226],3,"fp<"); lf[227]=C_h_intern(&lf[227],4,"fp>="); lf[228]=C_h_intern(&lf[228],4,"fp<="); lf[229]=C_h_intern(&lf[229],5,"fpneg"); lf[230]=C_h_intern(&lf[230],5,"fpmax"); lf[231]=C_h_intern(&lf[231],5,"fpmin"); lf[232]=C_h_intern(&lf[232],7,"fpfloor"); lf[233]=C_h_intern(&lf[233],10,"fptruncate"); lf[234]=C_h_intern(&lf[234],7,"fpround"); lf[235]=C_h_intern(&lf[235],9,"fpceiling"); lf[236]=C_h_intern(&lf[236],9,"\003sysfloor"); lf[237]=C_h_intern(&lf[237],12,"\003systruncate"); lf[238]=C_h_intern(&lf[238],11,"\003sysceiling"); lf[239]=C_h_intern(&lf[239],5,"fpsin"); lf[240]=C_h_intern(&lf[240],5,"fpcos"); lf[241]=C_h_intern(&lf[241],5,"fptan"); lf[242]=C_h_intern(&lf[242],6,"fpasin"); lf[243]=C_h_intern(&lf[243],6,"fpacos"); lf[244]=C_h_intern(&lf[244],6,"fpatan"); lf[245]=C_h_intern(&lf[245],7,"fpatan2"); lf[246]=C_h_intern(&lf[246],5,"fpexp"); lf[247]=C_h_intern(&lf[247],6,"fpexpt"); lf[248]=C_h_intern(&lf[248],5,"fplog"); lf[249]=C_h_intern(&lf[249],6,"fpsqrt"); lf[250]=C_h_intern(&lf[250],5,"fpabs"); lf[251]=C_h_intern(&lf[251],10,"fpinteger\077"); lf[252]=C_h_intern(&lf[252],1,"\052"); lf[253]=C_h_intern(&lf[253],1,"-"); lf[254]=C_h_intern(&lf[254],1,"+"); lf[255]=C_h_intern(&lf[255],1,"/"); lf[256]=C_h_intern(&lf[256],1,"="); lf[257]=C_h_intern(&lf[257],1,">"); lf[258]=C_h_intern(&lf[258],1,"<"); lf[259]=C_h_intern(&lf[259],2,">="); lf[260]=C_h_intern(&lf[260],2,"<="); lf[261]=C_h_intern(&lf[261],4,"add1"); lf[262]=C_h_intern(&lf[262],4,"sub1"); lf[263]=C_h_intern(&lf[263],8,"quotient"); lf[264]=C_h_intern(&lf[264],7,"number\077"); lf[265]=C_h_intern(&lf[265],11,"\003sysnumber\077"); lf[266]=C_h_intern(&lf[266],8,"complex\077"); lf[267]=C_h_intern(&lf[267],5,"real\077"); lf[268]=C_h_intern(&lf[268],9,"rational\077"); lf[269]=C_h_intern(&lf[269],19,"\003sysflonum-fraction"); lf[270]=C_h_intern(&lf[270],9,"\003sysfprat"); lf[271]=C_h_intern(&lf[271],8,"integer\077"); lf[272]=C_h_intern(&lf[272],12,"\003sysinteger\077"); lf[273]=C_h_intern(&lf[273],6,"exact\077"); lf[274]=C_h_intern(&lf[274],8,"inexact\077"); lf[275]=C_h_intern(&lf[275],10,"\003sysexact\077"); lf[276]=C_h_intern(&lf[276],12,"\003sysinexact\077"); lf[277]=C_h_intern(&lf[277],4,"expt"); lf[278]=C_h_intern(&lf[278],16,"\003sysfits-in-int\077"); lf[279]=C_h_intern(&lf[279],25,"\003sysfits-in-unsigned-int\077"); lf[280]=C_h_intern(&lf[280],27,"\003sysflonum-in-fixnum-range\077"); lf[281]=C_h_intern(&lf[281],5,"zero\077"); lf[282]=C_h_intern(&lf[282],9,"positive\077"); lf[283]=C_h_intern(&lf[283],9,"negative\077"); lf[284]=C_h_intern(&lf[284],3,"abs"); lf[285]=C_h_intern(&lf[285],5,"angle"); lf[286]=C_decode_literal(C_heaptop,"\376U0.0\000"); lf[287]=C_decode_literal(C_heaptop,"\376U2.0\000"); lf[288]=C_h_intern(&lf[288],9,"real-part"); lf[289]=C_h_intern(&lf[289],9,"imag-part"); lf[290]=C_h_intern(&lf[290],9,"numerator"); lf[291]=C_decode_literal(C_heaptop,"\376B\000\000)bad argument type - not a rational number"); lf[292]=C_h_intern(&lf[292],11,"denominator"); lf[293]=C_decode_literal(C_heaptop,"\376B\000\000)bad argument type - not a rational number"); lf[294]=C_h_intern(&lf[294],9,"magnitude"); lf[295]=C_h_intern(&lf[295],6,"signum"); lf[296]=C_decode_literal(C_heaptop,"\376U1.0\000"); lf[297]=C_decode_literal(C_heaptop,"\376U-1.0\000"); lf[298]=C_h_intern(&lf[298],14,"exact->inexact"); lf[299]=C_h_intern(&lf[299],14,"inexact->exact"); lf[300]=C_h_intern(&lf[300],18,"\003sysexact->inexact"); lf[301]=C_h_intern(&lf[301],18,"\003sysinexact->exact"); lf[302]=C_h_intern(&lf[302],5,"floor"); lf[303]=C_h_intern(&lf[303],7,"ceiling"); lf[304]=C_h_intern(&lf[304],8,"truncate"); lf[305]=C_h_intern(&lf[305],5,"round"); lf[306]=C_h_intern(&lf[306],9,"remainder"); lf[307]=C_h_intern(&lf[307],6,"modulo"); lf[308]=C_h_intern(&lf[308],5,"even\077"); lf[309]=C_h_intern(&lf[309],4,"odd\077"); lf[310]=C_h_intern(&lf[310],3,"max"); lf[311]=C_h_intern(&lf[311],3,"min"); lf[312]=C_h_intern(&lf[312],3,"exp"); lf[313]=C_h_intern(&lf[313],3,"log"); lf[314]=C_h_intern(&lf[314],3,"sin"); lf[315]=C_h_intern(&lf[315],3,"cos"); lf[316]=C_h_intern(&lf[316],3,"tan"); lf[317]=C_h_intern(&lf[317],4,"asin"); lf[318]=C_h_intern(&lf[318],4,"acos"); lf[319]=C_h_intern(&lf[319],4,"sqrt"); lf[320]=C_h_intern(&lf[320],4,"atan"); lf[321]=C_h_intern(&lf[321],7,"\003sysgcd"); lf[322]=C_h_intern(&lf[322],3,"gcd"); lf[323]=C_h_intern(&lf[323],7,"\003syslcm"); lf[324]=C_h_intern(&lf[324],3,"lcm"); lf[325]=C_h_intern(&lf[325],14,"string->number"); lf[326]=C_h_intern(&lf[326],1,"i"); lf[327]=C_h_intern(&lf[327],1,"e"); lf[328]=C_h_intern(&lf[328],18,"\003sysstring->number"); lf[329]=C_h_intern(&lf[329],14,"number->string"); lf[330]=C_h_intern(&lf[330],18,"\003sysfixnum->string"); lf[331]=C_h_intern(&lf[331],18,"\003sysnumber->string"); lf[332]=C_h_intern(&lf[332],22,"flonum-print-precision"); lf[333]=C_h_intern(&lf[333],7,"equal=\077"); lf[334]=C_h_intern(&lf[334],15,"\003sysmake-symbol"); lf[335]=C_h_intern(&lf[335],7,"symbol\077"); lf[336]=C_h_intern(&lf[336],9,"\003syssnafu"); lf[337]=C_h_intern(&lf[337],9,"\003sysfnord"); lf[338]=C_h_intern(&lf[338],17,"\003sysintern-symbol"); lf[339]=C_h_intern(&lf[339],20,"\003sysinterned-symbol\077"); lf[340]=C_h_intern(&lf[340],18,"\003sysstring->symbol"); lf[341]=C_h_intern(&lf[341],18,"\003syssymbol->string"); lf[342]=C_h_intern(&lf[342],28,"\003syssymbol->qualified-string"); lf[343]=C_decode_literal(C_heaptop,"\376B\000\000\002##"); lf[344]=C_decode_literal(C_heaptop,"\376B\000\000\001#"); lf[345]=C_h_intern(&lf[345],27,"\003sysqualified-symbol-prefix"); lf[346]=C_h_intern(&lf[346],21,"\003sysqualified-symbol\077"); lf[347]=C_h_intern(&lf[347],28,"\003sysstring->qualified-symbol"); lf[348]=C_h_intern(&lf[348],14,"symbol->string"); lf[349]=C_h_intern(&lf[349],14,"string->symbol"); lf[350]=C_h_intern(&lf[350],25,"string->uninterned-symbol"); lf[351]=C_h_intern(&lf[351],6,"gensym"); lf[352]=C_decode_literal(C_heaptop,"\376B\000\000\001g"); lf[353]=C_decode_literal(C_heaptop,"\376B\000\000\042argument is not a string or symbol"); lf[354]=C_h_intern(&lf[354],13,"symbol-append"); lf[355]=C_h_intern(&lf[355],8,"keyword\077"); lf[356]=C_h_intern(&lf[356],15,"string->keyword"); lf[357]=C_h_intern(&lf[357],15,"keyword->string"); lf[358]=C_decode_literal(C_heaptop,"\376B\000\000!bad argument type - not a keyword"); lf[359]=C_h_intern(&lf[359],3,"tag"); lf[360]=C_h_intern(&lf[360],11,"get-keyword"); lf[361]=C_h_intern(&lf[361],15,"\003sysget-keyword"); lf[362]=C_h_intern(&lf[362],13,"\003sysmake-blob"); lf[363]=C_h_intern(&lf[363],9,"make-blob"); lf[364]=C_h_intern(&lf[364],5,"blob\077"); lf[365]=C_h_intern(&lf[365],9,"blob-size"); lf[366]=C_h_intern(&lf[366],12,"string->blob"); lf[367]=C_h_intern(&lf[367],12,"blob->string"); lf[368]=C_h_intern(&lf[368],6,"blob=\077"); lf[369]=C_h_intern(&lf[369],7,"vector\077"); lf[370]=C_h_intern(&lf[370],13,"vector-length"); lf[371]=C_h_intern(&lf[371],10,"vector-ref"); lf[372]=C_h_intern(&lf[372],11,"vector-set!"); lf[373]=C_h_intern(&lf[373],11,"make-vector"); lf[374]=C_decode_literal(C_heaptop,"\376B\000\000\020size is negative"); lf[375]=C_h_intern(&lf[375],15,"\003sysmake-vector"); lf[376]=C_h_intern(&lf[376],12,"list->vector"); lf[377]=C_h_intern(&lf[377],12,"vector->list"); lf[378]=C_h_intern(&lf[378],6,"vector"); lf[379]=C_h_intern(&lf[379],16,"\003syslist->vector"); lf[380]=C_h_intern(&lf[380],12,"vector-fill!"); lf[381]=C_h_intern(&lf[381],12,"vector-copy!"); lf[382]=C_decode_literal(C_heaptop,"\376B\000\000)cannot copy vector - count exceeds length"); lf[383]=C_h_intern(&lf[383],9,"subvector"); lf[384]=C_h_intern(&lf[384],13,"vector-resize"); lf[386]=C_h_intern(&lf[386],5,"char\077"); lf[387]=C_h_intern(&lf[387],13,"char->integer"); lf[388]=C_h_intern(&lf[388],13,"integer->char"); lf[389]=C_h_intern(&lf[389],6,"char=\077"); lf[390]=C_h_intern(&lf[390],6,"char>\077"); lf[391]=C_h_intern(&lf[391],6,"char<\077"); lf[392]=C_h_intern(&lf[392],7,"char>=\077"); lf[393]=C_h_intern(&lf[393],7,"char<=\077"); lf[394]=C_h_intern(&lf[394],11,"char-upcase"); lf[395]=C_h_intern(&lf[395],13,"char-downcase"); lf[396]=C_h_intern(&lf[396],9,"char-ci=\077"); lf[397]=C_h_intern(&lf[397],9,"char-ci>\077"); lf[398]=C_h_intern(&lf[398],9,"char-ci<\077"); lf[399]=C_h_intern(&lf[399],10,"char-ci>=\077"); lf[400]=C_h_intern(&lf[400],10,"char-ci<=\077"); lf[401]=C_h_intern(&lf[401],16,"char-upper-case\077"); lf[402]=C_h_intern(&lf[402],16,"char-lower-case\077"); lf[403]=C_h_intern(&lf[403],13,"char-numeric\077"); lf[404]=C_h_intern(&lf[404],16,"char-whitespace\077"); lf[405]=C_h_intern(&lf[405],16,"char-alphabetic\077"); lf[406]=C_h_intern(&lf[406],9,"char-name"); lf[407]=C_decode_literal(C_heaptop,"\376B\000\000\026invalid character name"); lf[408]=C_h_intern(&lf[408],10,"procedure\077"); lf[409]=C_h_intern(&lf[409],5,"apply"); lf[410]=C_h_intern(&lf[410],34,"\003syscall-with-current-continuation"); lf[411]=C_h_intern(&lf[411],33,"\003syscall-with-direct-continuation"); lf[412]=C_h_intern(&lf[412],21,"\003syscall-with-cthulhu"); lf[413]=C_h_intern(&lf[413],6,"values"); lf[414]=C_h_intern(&lf[414],16,"call-with-values"); lf[415]=C_h_intern(&lf[415],20,"\003syscall-with-values"); lf[416]=C_h_intern(&lf[416],12,"\003sysfor-each"); lf[417]=C_h_intern(&lf[417],8,"for-each"); lf[418]=C_h_intern(&lf[418],7,"\003sysmap"); lf[419]=C_h_intern(&lf[419],3,"map"); lf[420]=C_decode_literal(C_heaptop,"\376B\000\000\034lists are not of same length"); lf[421]=C_h_intern(&lf[421],17,"\003sysdynamic-winds"); lf[422]=C_h_intern(&lf[422],12,"dynamic-wind"); lf[423]=C_h_intern(&lf[423],16,"\003sysdynamic-wind"); lf[424]=C_h_intern(&lf[424],30,"call-with-current-continuation"); lf[426]=C_h_intern(&lf[426],7,"call/cc"); lf[427]=C_h_intern(&lf[427],20,"continuation-capture"); lf[428]=C_h_intern(&lf[428],12,"continuation"); lf[429]=C_h_intern(&lf[429],13,"continuation\077"); lf[430]=C_h_intern(&lf[430],22,"\003syscontinuation-graft"); lf[431]=C_h_intern(&lf[431],18,"continuation-graft"); lf[432]=C_h_intern(&lf[432],19,"continuation-return"); lf[433]=C_h_intern(&lf[433],5,"port\077"); lf[434]=C_h_intern(&lf[434],11,"input-port\077"); lf[435]=C_h_intern(&lf[435],12,"output-port\077"); lf[436]=C_h_intern(&lf[436],12,"port-closed\077"); lf[437]=C_h_intern(&lf[437],14,"\003syscheck-port"); lf[438]=C_h_intern(&lf[438],13,"\003sysmake-port"); lf[439]=C_h_intern(&lf[439],22,"\003sysdispatch-interrupt"); lf[440]=C_h_intern(&lf[440],11,"\000file-error"); lf[441]=C_h_intern(&lf[441],9,"read-char"); lf[442]=C_decode_literal(C_heaptop,"\376B\000\000\030cannot read from port - "); lf[443]=C_h_intern(&lf[443],5,"errno"); lf[444]=C_h_intern(&lf[444],9,"peek-char"); lf[445]=C_decode_literal(C_heaptop,"\376B\000\000\030cannot read from port - "); lf[446]=C_h_intern(&lf[446],12,"read-string!"); lf[447]=C_decode_literal(C_heaptop,"\376B\000\000\030cannot read from port - "); lf[448]=C_h_intern(&lf[448],9,"read-line"); lf[449]=C_decode_literal(C_heaptop,"\376B\000\000\030cannot read from port - "); lf[450]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[451]=C_h_intern(&lf[451],21,"\003sysstream-port-class"); lf[452]=C_h_intern(&lf[452],18,"\003sysopen-file-port"); lf[453]=C_h_intern(&lf[453],18,"\003sysstandard-input"); lf[454]=C_h_intern(&lf[454],19,"\003sysstandard-output"); lf[455]=C_h_intern(&lf[455],18,"\003sysstandard-error"); lf[456]=C_h_intern(&lf[456],20,"\003syscheck-input-port"); lf[457]=C_h_intern(&lf[457],21,"\003syscheck-output-port"); lf[458]=C_h_intern(&lf[458],19,"\003syscheck-open-port"); lf[459]=C_h_intern(&lf[459],18,"current-input-port"); lf[460]=C_h_intern(&lf[460],19,"current-output-port"); lf[461]=C_h_intern(&lf[461],18,"current-error-port"); lf[462]=C_h_intern(&lf[462],13,"\003systty-port\077"); lf[463]=C_h_intern(&lf[463],25,"\003syspeek-unsigned-integer"); lf[464]=C_h_intern(&lf[464],13,"\003sysport-data"); lf[465]=C_h_intern(&lf[465],18,"\003sysset-port-data!"); lf[466]=C_h_intern(&lf[466],7,"mingw32"); lf[467]=C_h_intern(&lf[467],27,"\003sysplatform-fixup-pathname"); lf[468]=C_decode_literal(C_heaptop,"\376B\000\000\001r"); lf[469]=C_decode_literal(C_heaptop,"\376B\000\000\001w"); lf[470]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[471]=C_decode_literal(C_heaptop,"\376B\000\000\023cannot open file - "); lf[472]=C_h_intern(&lf[472],6,"stream"); lf[473]=C_h_intern(&lf[473],7,"\000binary"); lf[474]=C_decode_literal(C_heaptop,"\376B\000\000\001b"); lf[475]=C_h_intern(&lf[475],5,"\000text"); lf[476]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[477]=C_h_intern(&lf[477],7,"\000append"); lf[478]=C_decode_literal(C_heaptop,"\376B\000\000&cannot use append mode with input file"); lf[479]=C_decode_literal(C_heaptop,"\376B\000\000\001a"); lf[480]=C_decode_literal(C_heaptop,"\376B\000\000\023invalid file option"); lf[481]=C_h_intern(&lf[481],15,"open-input-file"); lf[482]=C_h_intern(&lf[482],16,"open-output-file"); lf[483]=C_h_intern(&lf[483],16,"close-input-port"); lf[484]=C_h_intern(&lf[484],17,"close-output-port"); lf[485]=C_h_intern(&lf[485],20,"call-with-input-file"); lf[486]=C_h_intern(&lf[486],21,"call-with-output-file"); lf[487]=C_h_intern(&lf[487],20,"with-input-from-file"); lf[488]=C_h_intern(&lf[488],19,"with-output-to-file"); lf[489]=C_h_intern(&lf[489],16,"\003sysfile-exists\077"); lf[490]=C_decode_literal(C_heaptop,"\376B\000\000(system error while trying to access file"); lf[491]=C_h_intern(&lf[491],12,"file-exists\077"); lf[492]=C_h_intern(&lf[492],17,"directory-exists\077"); lf[493]=C_h_intern(&lf[493],16,"\003sysflush-output"); lf[494]=C_h_intern(&lf[494],12,"flush-output"); lf[495]=C_h_intern(&lf[495],9,"port-name"); lf[496]=C_h_intern(&lf[496],14,"set-port-name!"); lf[497]=C_h_intern(&lf[497],13,"\003sysport-line"); lf[498]=C_h_intern(&lf[498],13,"port-position"); lf[499]=C_decode_literal(C_heaptop,"\376B\000\000\037cannot compute position of port"); lf[500]=C_h_intern(&lf[500],11,"delete-file"); lf[501]=C_decode_literal(C_heaptop,"\376B\000\000\025cannot delete file - "); lf[502]=C_h_intern(&lf[502],11,"rename-file"); lf[503]=C_decode_literal(C_heaptop,"\376B\000\000\025cannot rename file - "); lf[504]=C_h_intern(&lf[504],19,"\003sysdecorate-lambda"); lf[505]=C_h_intern(&lf[505],21,"\003syslambda-decoration"); lf[506]=C_h_intern(&lf[506],20,"\003sysmake-lambda-info"); lf[507]=C_h_intern(&lf[507],16,"\003syslambda-info\077"); lf[508]=C_h_intern(&lf[508],15,"\003syslambda-info"); lf[509]=C_h_intern(&lf[509],23,"\003syslambda-info->string"); lf[510]=C_h_intern(&lf[510],21,"procedure-information"); lf[511]=C_h_intern(&lf[511],8,"\003sysread"); lf[512]=C_h_intern(&lf[512],17,"open-input-string"); lf[513]=C_h_intern(&lf[513],6,"setter"); lf[515]=C_h_intern(&lf[515],10,"\003syssetter"); lf[516]=C_h_intern(&lf[516],18,"getter-with-setter"); lf[518]=C_h_intern(&lf[518],28,"\003syscurrent-parameter-vector"); lf[519]=C_decode_literal(C_heaptop,"\376\000\000\000\000"); lf[520]=C_h_intern(&lf[520],14,"make-parameter"); lf[521]=C_h_intern(&lf[521],11,"eof-object\077"); lf[522]=C_h_intern(&lf[522],11,"char-ready\077"); lf[523]=C_h_intern(&lf[523],15,"\003sysread-char-0"); lf[524]=C_h_intern(&lf[524],18,"\003sysread-char/port"); lf[525]=C_h_intern(&lf[525],15,"\003syspeek-char-0"); lf[526]=C_h_intern(&lf[526],4,"read"); lf[527]=C_h_intern(&lf[527],26,"\003sysdefault-read-info-hook"); lf[528]=C_h_intern(&lf[528],31,"\003sysread-error-with-line-number"); lf[529]=C_h_intern(&lf[529],21,"\003sysenable-qualifiers"); lf[530]=C_h_intern(&lf[530],20,"\003sysread-prompt-hook"); lf[531]=C_h_intern(&lf[531],19,"\003sysinfix-list-hook"); lf[532]=C_h_intern(&lf[532],21,"\003syssharp-number-hook"); lf[533]=C_h_intern(&lf[533],14,"\003sysread-error"); lf[534]=C_decode_literal(C_heaptop,"\376B\000\000\032invalid `#...\047 read syntax"); lf[535]=C_h_intern(&lf[535],14,"case-sensitive"); lf[536]=C_h_intern(&lf[536],13,"keyword-style"); lf[537]=C_h_intern(&lf[537],20,"parentheses-synonyms"); lf[538]=C_h_intern(&lf[538],13,"symbol-escape"); lf[539]=C_h_intern(&lf[539],18,"current-read-table"); lf[540]=C_h_intern(&lf[540],16,"\003sysread-warning"); lf[541]=C_decode_literal(C_heaptop,"\376B\000\000\006(line "); lf[542]=C_decode_literal(C_heaptop,"\376B\000\000\002) "); lf[543]=C_h_intern(&lf[543],13,"\000syntax-error"); lf[544]=C_decode_literal(C_heaptop,"\376B\000\000\006(line "); lf[545]=C_decode_literal(C_heaptop,"\376B\000\000\002) "); lf[546]=C_decode_literal(C_heaptop,"\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[547]=C_decode_literal(C_heaptop,"\376B\000\000\032unexpected list terminator"); lf[548]=C_decode_literal(C_heaptop,"\376B\000\000\022reserved character"); lf[549]=C_decode_literal(C_heaptop,"\376B\000\000\032invalid escape-sequence \047\134"); lf[550]=C_decode_literal(C_heaptop,"\376B\000\000\001\047"); lf[551]=C_decode_literal(C_heaptop,"\376B\000\000\034unterminated string constant"); lf[552]=C_h_intern(&lf[552],21,"\003syschar->utf8-string"); lf[553]=C_decode_literal(C_heaptop,"\376B\000\000\023unterminated string"); lf[554]=C_decode_literal(C_heaptop,"\376B\000\000\001x"); lf[555]=C_decode_literal(C_heaptop,"\376B\000\000\022bad surrogate pair"); lf[556]=C_h_intern(&lf[556],25,"\003syssurrogates->codepoint"); lf[557]=C_decode_literal(C_heaptop,"\376B\000\000\001u"); lf[558]=C_decode_literal(C_heaptop,"\376B\000\000\032unpaired escaped surrogate"); lf[559]=C_h_intern(&lf[559],22,"\003sysunicode-surrogate\077"); lf[560]=C_decode_literal(C_heaptop,"\376B\000\000\001u"); lf[561]=C_decode_literal(C_heaptop,"\376B\000\000\032invalid escape (surrogate)"); lf[562]=C_decode_literal(C_heaptop,"\376B\000\000\001U"); lf[563]=C_decode_literal(C_heaptop,"\376B\000\0006escaped whitespace, but no newline - collapsing anyway"); lf[564]=C_decode_literal(C_heaptop,"\376B\000\000\023unterminated string"); lf[565]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[566]=C_decode_literal(C_heaptop,"\376B\000\000\077undefined escape sequence in string - probably forgot backslash"); lf[567]=C_decode_literal(C_heaptop,"\376B\000\000\023, starting in line "); lf[568]=C_h_intern(&lf[568],9,"list-info"); lf[569]=C_decode_literal(C_heaptop,"\376B\000\000\030list-terminator mismatch"); lf[570]=C_decode_literal(C_heaptop,"\376B\000\000\021unterminated list"); lf[571]=C_decode_literal(C_heaptop,"\376B\000\000\027missing list terminator"); lf[572]=C_decode_literal(C_heaptop,"\376B\000\000\022invalid use of `.\047"); lf[573]=C_decode_literal(C_heaptop,"\376B\000\000\002.:"); lf[574]=C_h_intern(&lf[574],7,"\000suffix"); lf[575]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[576]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[577]=C_decode_literal(C_heaptop,"\376B\000\000\015missing token"); lf[578]=C_decode_literal(C_heaptop,"\376B\000\000\025invalid vector syntax"); lf[579]=C_h_intern(&lf[579],11,"symbol-info"); lf[580]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[581]=C_decode_literal(C_heaptop,"\376B\000\000\022invalid use of `.\047"); lf[582]=C_decode_literal(C_heaptop,"\376B\000\000\042unexpected prefix in number syntax"); lf[583]=C_decode_literal(C_heaptop,"\376B\000\0003cannot represent exact fraction - coerced to flonum"); lf[584]=C_decode_literal(C_heaptop,"\376B\000\000\025illegal number syntax"); lf[585]=C_decode_literal(C_heaptop,"\376B\000\000!unexpected end of numeric literal"); lf[586]=C_decode_literal(C_heaptop,"\376B\000\0000illegal number syntax - invalid exactness prefix"); lf[587]=C_decode_literal(C_heaptop,"\376B\000\000!unexpected end of numeric literal"); lf[588]=C_decode_literal(C_heaptop,"\376B\000\000%illegal number syntax - invalid radix"); lf[589]=C_decode_literal(C_heaptop,"\376B\000\000Eattempt to read expression from something that looks like binary data"); lf[590]=C_decode_literal(C_heaptop,"\376B\000\000\052escaped symbol syntax spans multiple lines"); lf[591]=C_h_intern(&lf[591],7,"\000prefix"); lf[592]=C_decode_literal(C_heaptop,"\376B\000\0006unexpected end of file while reading escaped character"); lf[593]=C_decode_literal(C_heaptop,"\376B\000\000\027unknown named character"); lf[594]=C_decode_literal(C_heaptop,"\376B\000\000\032unterminated block-comment"); lf[595]=C_decode_literal(C_heaptop,"\376B\000\000\037invalid qualified symbol syntax"); lf[596]=C_decode_literal(C_heaptop,"\376B\000\000&qualified symbol syntax is not allowed"); lf[597]=C_h_intern(&lf[597],5,"quote"); lf[598]=C_h_intern(&lf[598],10,"quasiquote"); lf[599]=C_h_intern(&lf[599],16,"unquote-splicing"); lf[600]=C_h_intern(&lf[600],7,"unquote"); lf[601]=C_decode_literal(C_heaptop,"\376B\000\000,unexpected end of input after reading #-sign"); lf[602]=C_decode_literal(C_heaptop,"\376B\000\000%unexpected end of input after reading"); lf[603]=C_decode_literal(C_heaptop,"\376B\000\000!invalid parameterized read syntax"); lf[604]=C_decode_literal(C_heaptop,"\376B\000\0006unexpected end of input while reading `#c...\047 sequence"); lf[605]=C_decode_literal(C_heaptop,"\376B\000\000\052invalid case specifier in `#c...\047 sequence"); lf[606]=C_h_intern(&lf[606],11,"quasisyntax"); lf[607]=C_h_intern(&lf[607],27,"\003sysread-bytevector-literal"); lf[608]=C_h_intern(&lf[608],8,"location"); lf[609]=C_decode_literal(C_heaptop,"\376B\000\000\015empty keyword"); lf[610]=C_decode_literal(C_heaptop,"\376B\000\000\001#"); lf[611]=C_h_intern(&lf[611],11,"cond-expand"); lf[612]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\004else\376\377\016"); lf[613]=C_decode_literal(C_heaptop,"\376B\000\000\003eof"); lf[614]=C_decode_literal(C_heaptop,"\376B\000\000\010optional"); lf[615]=C_decode_literal(C_heaptop,"\376B\000\000\004rest"); lf[616]=C_decode_literal(C_heaptop,"\376B\000\000\003key"); lf[617]=C_decode_literal(C_heaptop,"\376B\000\000\002#!"); lf[619]=C_decode_literal(C_heaptop,"\376B\000\000\022invalid `#!\047 token"); lf[620]=C_h_intern(&lf[620],18,"\003sysuser-read-hook"); lf[621]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\012\000\000|\376\377\016"); lf[622]=C_decode_literal(C_heaptop,"\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[623]=C_decode_literal(C_heaptop,"\376B\000\000\035UTF-8 codepoint out of range:"); lf[624]=C_decode_literal(C_heaptop,"\376B\000\000 invalid hex-code in blob-literal"); lf[625]=C_decode_literal(C_heaptop,"\376B\000\000\036unexpected end of blob literal"); lf[626]=C_decode_literal(C_heaptop,"\376B\000\000\036invalid sharp-sign read syntax"); lf[627]=C_h_intern(&lf[627],18,"\003sysset-read-mark!"); lf[628]=C_h_intern(&lf[628],16,"set-read-syntax!"); lf[629]=C_h_intern(&lf[629],22,"set-sharp-read-syntax!"); lf[630]=C_h_intern(&lf[630],30,"set-parameterized-read-syntax!"); lf[631]=C_h_intern(&lf[631],15,"copy-read-table"); lf[632]=C_h_intern(&lf[632],10,"read-table"); lf[633]=C_h_intern(&lf[633],16,"\003syswrite-char-0"); lf[634]=C_h_intern(&lf[634],19,"\003syswrite-char/port"); lf[635]=C_h_intern(&lf[635],10,"write-char"); lf[636]=C_h_intern(&lf[636],7,"newline"); lf[637]=C_h_intern(&lf[637],5,"write"); lf[638]=C_h_intern(&lf[638],9,"\003sysprint"); lf[639]=C_h_intern(&lf[639],7,"display"); lf[640]=C_h_intern(&lf[640],5,"print"); lf[641]=C_h_intern(&lf[641],6,"print\052"); lf[643]=C_h_intern(&lf[643],22,"\003sysprint-length-limit"); lf[645]=C_decode_literal(C_heaptop,"\376B\000\000\003..."); lf[646]=C_decode_literal(C_heaptop,"\376B\000\000\003..."); lf[647]=C_decode_literal(C_heaptop,"\376B\000\000\002\134x"); lf[648]=C_decode_literal(C_heaptop,"\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[649]=C_decode_literal(C_heaptop,"\376B\000\000\002()"); lf[650]=C_decode_literal(C_heaptop,"\376B\000\000\002#t"); lf[651]=C_decode_literal(C_heaptop,"\376B\000\000\002#f"); lf[652]=C_decode_literal(C_heaptop,"\376B\000\000\005#!eof"); lf[653]=C_decode_literal(C_heaptop,"\376B\000\000\016#<unspecified>"); lf[654]=C_decode_literal(C_heaptop,"\376B\000\000\002#\134"); lf[655]=C_h_intern(&lf[655],28,"\003sysarbitrary-unbound-symbol"); lf[656]=C_decode_literal(C_heaptop,"\376B\000\000\020#<unbound value>"); lf[657]=C_decode_literal(C_heaptop,"\376B\000\000\033#<invalid forwarded object>"); lf[658]=C_decode_literal(C_heaptop,"\376B\000\000\002#:"); lf[659]=C_h_intern(&lf[659],19,"\003syspointer->string"); lf[660]=C_decode_literal(C_heaptop,"\376B\000\000\002\134\042"); lf[661]=C_decode_literal(C_heaptop,"\376B\000\000\002\134\134"); lf[662]=C_decode_literal(C_heaptop,"\376B\000\000\003 . "); lf[663]=C_decode_literal(C_heaptop,"\376B\000\000\003#${"); lf[664]=C_h_intern(&lf[664],19,"\003sysuser-print-hook"); lf[665]=C_h_intern(&lf[665],21,"\003sysprocedure->string"); lf[666]=C_decode_literal(C_heaptop,"\376B\000\000\013#<locative>"); lf[667]=C_decode_literal(C_heaptop,"\376B\000\000\016#<lambda info "); lf[668]=C_decode_literal(C_heaptop,"\376B\000\000\002\042>"); lf[669]=C_decode_literal(C_heaptop,"\376B\000\000\016#<input port \042"); lf[670]=C_decode_literal(C_heaptop,"\376B\000\000\017#<output port \042"); lf[671]=C_decode_literal(C_heaptop,"\376B\000\000\003#()"); lf[672]=C_decode_literal(C_heaptop,"\376B\000\000\002#("); lf[673]=C_decode_literal(C_heaptop,"\376B\000\000,unprintable non-immediate object encountered"); lf[674]=C_decode_literal(C_heaptop,"\376B\000\000\033#<invalid immediate object>"); lf[675]=C_decode_literal(C_heaptop,"\376B\000\000\014#<procedure "); lf[676]=C_decode_literal(C_heaptop,"\376B\000\000\001>"); lf[677]=C_decode_literal(C_heaptop,"\376B\000\000\014#<procedure>"); lf[678]=C_h_intern(&lf[678],19,"\003sysrecord-printers"); lf[679]=C_h_intern(&lf[679],27,"\003sysregister-record-printer"); lf[680]=C_h_intern(&lf[680],9,"condition"); lf[681]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\007message"); lf[682]=C_decode_literal(C_heaptop,"\376B\000\000\003\047: "); lf[683]=C_decode_literal(C_heaptop,"\376B\000\000\002\047>"); lf[684]=C_decode_literal(C_heaptop,"\376B\000\000##<Error in printer of record type `"); lf[685]=C_h_intern(&lf[685],22,"with-exception-handler"); lf[686]=C_decode_literal(C_heaptop,"\376B\000\000\002: "); lf[687]=C_h_intern(&lf[687],6,"thread"); lf[688]=C_decode_literal(C_heaptop,"\376B\000\000\002: "); lf[689]=C_decode_literal(C_heaptop,"\376B\000\000\002#<"); lf[690]=C_h_intern(&lf[690],27,"\003syswith-print-length-limit"); lf[691]=C_h_intern(&lf[691],11,"bitwise-and"); lf[692]=C_h_intern(&lf[692],11,"bitwise-ior"); lf[693]=C_h_intern(&lf[693],11,"bitwise-xor"); lf[694]=C_h_intern(&lf[694],11,"bitwise-not"); lf[695]=C_h_intern(&lf[695],16,"arithmetic-shift"); lf[696]=C_h_intern(&lf[696],8,"bit-set\077"); lf[697]=C_h_intern(&lf[697],14,"\003syscopy-bytes"); lf[698]=C_decode_literal(C_heaptop,"\376B\000\000\022string buffer full"); lf[699]=C_h_intern(&lf[699],20,"\003sysscan-buffer-line"); lf[700]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[701]=C_h_intern(&lf[701],21,"\003sysstring-port-class"); lf[702]=C_decode_literal(C_heaptop,"\376B\000\000\001\015"); lf[703]=C_decode_literal(C_heaptop,"\376B\000\000\001\015"); lf[704]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[705]=C_decode_literal(C_heaptop,"\376B\000\000\010(string)"); lf[706]=C_h_intern(&lf[706],18,"open-output-string"); lf[707]=C_decode_literal(C_heaptop,"\376B\000\000\010(string)"); lf[708]=C_h_intern(&lf[708],17,"get-output-string"); lf[709]=C_decode_literal(C_heaptop,"\376B\000\000$argument is not a string-output-port"); lf[710]=C_h_intern(&lf[710],19,"\003sysprint-to-string"); lf[711]=C_decode_literal(C_heaptop,"\376B\000\000\021#<tagged pointer "); lf[712]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[713]=C_decode_literal(C_heaptop,"\376B\000\000\001>"); lf[714]=C_h_intern(&lf[714],20,"\003syspointer->address"); lf[715]=C_decode_literal(C_heaptop,"\376B\000\000\021#<SWIG pointer 0x"); lf[716]=C_decode_literal(C_heaptop,"\376B\000\000\001>"); lf[717]=C_decode_literal(C_heaptop,"\376B\000\000\014#<pointer 0x"); lf[718]=C_decode_literal(C_heaptop,"\376B\000\000\001>"); lf[719]=C_h_intern(&lf[719],13,"software-type"); lf[720]=C_h_intern(&lf[720],12,"machine-type"); lf[721]=C_h_intern(&lf[721],18,"machine-byte-order"); lf[722]=C_h_intern(&lf[722],16,"software-version"); lf[723]=C_h_intern(&lf[723],14,"build-platform"); lf[724]=C_h_intern(&lf[724],20,"\003syswindows-platform"); lf[725]=C_h_intern(&lf[725],15,"chicken-version"); lf[726]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[727]=C_decode_literal(C_heaptop,"\376B\000\000\010Version "); lf[728]=C_h_intern(&lf[728],17,"\003sysbuild-version"); lf[729]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[730]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[731]=C_h_intern(&lf[731],13,"\003sysbuild-tag"); lf[732]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[733]=C_decode_literal(C_heaptop,"\376B\000\000\002 ["); lf[734]=C_decode_literal(C_heaptop,"\376B\000\000\002 ]"); lf[735]=C_h_intern(&lf[735],7,"unknown"); lf[736]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[737]=C_decode_literal(C_heaptop,"\376B\000\000\001-"); lf[738]=C_h_intern(&lf[738],12,"\003sysbuild-id"); lf[739]=C_decode_literal(C_heaptop,"\376B\000\000\006 (rev "); lf[740]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[741]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[742]=C_h_intern(&lf[742],16,"\003sysbuild-branch"); lf[743]=C_decode_literal(C_heaptop,"\376B\000\000\002 ("); lf[744]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[745]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[746]=C_decode_literal(C_heaptop,"\376B\000\000\006 64bit"); lf[747]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[748]=C_decode_literal(C_heaptop,"\376B\000\000\011 symbolgc"); lf[749]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[750]=C_decode_literal(C_heaptop,"\376B\000\000\011 manyargs"); lf[751]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[752]=C_decode_literal(C_heaptop,"\376B\000\000\006 dload"); lf[753]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[754]=C_decode_literal(C_heaptop,"\376B\000\000\010 ptables"); lf[755]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[756]=C_decode_literal(C_heaptop,"\376B\000\000\010 gchooks"); lf[757]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[758]=C_decode_literal(C_heaptop,"\376B\000\000\006 cross"); lf[759]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[760]=C_h_intern(&lf[760],16,"\003sys->feature-id"); lf[761]=C_decode_literal(C_heaptop,"\376B\000\0001bad argument type - not a valid feature identifer"); lf[762]=C_h_intern(&lf[762],12,"\003sysfeatures"); lf[763]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\010\000chicken\376\003\000\000\002\376\001\000\000\007\000srfi-6\376\003\000\000\002\376\001\000\000\010\000srfi-10\376\003\000\000\002\376\001\000\000\010\000srfi-23\376\003\000\000\002\376\001\000\000" "\010\000srfi-30\376\003\000\000\002\376\001\000\000\010\000srfi-39\376\003\000\000\002\376\001\000\000\010\000srfi-62\376\003\000\000\002\376\001\000\000\010\000srfi-17\376\003\000\000\002\376\001\000\000\010\000srfi-1" "2\376\003\000\000\002\376\001\000\000\010\000srfi-88\376\003\000\000\002\376\001\000\000\010\000srfi-98\376\003\000\000\002\376\001\000\000\025\000irregex-is-core-unit\376\377\016"); lf[764]=C_h_intern(&lf[764],17,"register-feature!"); lf[765]=C_h_intern(&lf[765],19,"unregister-feature!"); lf[766]=C_h_intern(&lf[766],8,"features"); lf[767]=C_h_intern(&lf[767],8,"feature\077"); lf[768]=C_h_intern(&lf[768],12,"\003sysfeature\077"); lf[769]=C_h_intern(&lf[769],14,"get-call-chain"); lf[770]=C_h_intern(&lf[770],18,"\003syscurrent-thread"); lf[771]=C_h_intern(&lf[771],25,"\003syspeek-nonnull-c-string"); lf[772]=C_h_intern(&lf[772],27,"\003sysreally-print-call-chain"); lf[773]=C_h_intern(&lf[773],9,"frameinfo"); lf[774]=C_decode_literal(C_heaptop,"\376B\000\000\002] "); lf[775]=C_decode_literal(C_heaptop,"\376B\000\000\003\011 "); lf[776]=C_decode_literal(C_heaptop,"\376B\000\000\002\012\011"); lf[777]=C_decode_literal(C_heaptop,"\376B\000\000\005\011<--\012"); lf[778]=C_h_intern(&lf[778],16,"print-call-chain"); lf[779]=C_decode_literal(C_heaptop,"\376B\000\000\020\012\011Call history:\012"); lf[780]=C_h_intern(&lf[780],18,"\003sysget-call-chain"); lf[781]=C_h_intern(&lf[781],23,"\003sysuser-interrupt-hook"); lf[782]=C_h_intern(&lf[782],15,"\000user-interrupt"); lf[783]=C_h_intern(&lf[783],21,"\003sysprimordial-thread"); lf[784]=C_h_intern(&lf[784],18,"\003sysbreak-on-error"); lf[785]=C_h_intern(&lf[785],17,"\003syserror-handler"); lf[786]=C_h_intern(&lf[786],13,"reset-handler"); lf[788]=C_h_intern(&lf[788],12,"exit-handler"); lf[789]=C_h_intern(&lf[789],21,"implicit-exit-handler"); lf[790]=C_h_intern(&lf[790],25,"\003sysimplicit-exit-handler"); lf[791]=C_h_intern(&lf[791],16,"force-finalizers"); lf[792]=C_h_intern(&lf[792],17,"\003syscleanup-tasks"); lf[793]=C_h_intern(&lf[793],23,"\003syscleanup-before-exit"); lf[794]=C_h_intern(&lf[794],20,"\003sysforce-finalizers"); lf[795]=C_decode_literal(C_heaptop,"\376B\000\000\036[debug] forcing finalizers...\012"); lf[796]=C_h_intern(&lf[796],19,"\003sysdump-heap-state"); lf[797]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[798]=C_h_intern(&lf[798],7,"on-exit"); lf[799]=C_h_intern(&lf[799],12,"\003sysdebugger"); lf[800]=C_h_intern(&lf[800],20,"\000debugger-invocation"); lf[801]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016user-interrupt\376\377\016"); lf[802]=C_h_intern(&lf[802],9,"\003sysabort"); lf[803]=C_decode_literal(C_heaptop,"\376B\000\000\002: "); lf[804]=C_decode_literal(C_heaptop,"\376B\000\000\012\012Warning: "); lf[805]=C_decode_literal(C_heaptop,"\376B\000\000\007\012Note: "); lf[806]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\007message"); lf[807]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\011arguments"); lf[808]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\012call-chain"); lf[809]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\010location"); lf[810]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\003\000\000\002\376\001\000\000\004type\376\377\016"); lf[811]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\003\000\000\002\376\001\000\000\006syntax\376\377\016"); lf[812]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\003\000\000\002\376\001\000\000\006bounds\376\377\016"); lf[813]=C_h_intern(&lf[813],17,"\000arithmetic-error"); lf[814]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\003\000\000\002\376\001\000\000\012arithmetic\376\377\016"); lf[815]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\003\000\000\002\376\001\000\000\003i/o\376\003\000\000\002\376\001\000\000\004file\376\377\016"); lf[816]=C_h_intern(&lf[816],14,"\000runtime-error"); lf[817]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\003\000\000\002\376\001\000\000\007runtime\376\377\016"); lf[818]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\003\000\000\002\376\001\000\000\007process\376\377\016"); lf[819]=C_h_intern(&lf[819],14,"\000network-error"); lf[820]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\003\000\000\002\376\001\000\000\003i/o\376\003\000\000\002\376\001\000\000\003net\376\377\016"); lf[821]=C_h_intern(&lf[821],22,"\000network-timeout-error"); lf[822]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\003\000\000\002\376\001\000\000\003i/o\376\003\000\000\002\376\001\000\000\003net\376\003\000\000\002\376\001\000\000\007timeout\376\377\016"); lf[823]=C_h_intern(&lf[823],12,"\000limit-error"); lf[824]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\003\000\000\002\376\001\000\000\007runtime\376\003\000\000\002\376\001\000\000\005limit\376\377\016"); lf[825]=C_h_intern(&lf[825],12,"\000arity-error"); lf[826]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\003\000\000\002\376\001\000\000\005arity\376\377\016"); lf[827]=C_h_intern(&lf[827],13,"\000access-error"); lf[828]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\003\000\000\002\376\001\000\000\006access\376\377\016"); lf[829]=C_h_intern(&lf[829],13,"\000domain-error"); lf[830]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\003\000\000\002\376\001\000\000\006domain\376\377\016"); lf[831]=C_h_intern(&lf[831],13,"\000memory-error"); lf[832]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\003\000\000\002\376\001\000\000\006memory\376\377\016"); lf[833]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\377\016"); lf[834]=C_h_intern(&lf[834],5,"abort"); lf[835]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\007message"); lf[836]=C_decode_literal(C_heaptop,"\376B\000\000\032exception handler returned"); lf[837]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\011arguments"); lf[838]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\010location"); lf[839]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\377\016"); lf[840]=C_h_intern(&lf[840],29,"\003syscurrent-exception-handler"); lf[841]=C_h_intern(&lf[841],6,"signal"); lf[842]=C_h_intern(&lf[842],10,"\003syssignal"); lf[843]=C_h_intern(&lf[843],18,"\003syslast-exception"); lf[844]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\022uncaught-exception\376\001\000\000\006reason"); lf[845]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\022uncaught-exception\376\377\016"); lf[846]=C_h_intern(&lf[846],3,"exn"); lf[847]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\007message"); lf[848]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\011arguments"); lf[849]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\010location"); lf[850]=C_decode_literal(C_heaptop,"\376B\000\000\001("); lf[851]=C_decode_literal(C_heaptop,"\376B\000\000\002) "); lf[852]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[853]=C_decode_literal(C_heaptop,"\376B\000\000 <exn: has no `message\047 property>"); lf[854]=C_h_intern(&lf[854],14,"user-interrupt"); lf[855]=C_decode_literal(C_heaptop,"\376B\000\000\030\012\052\052\052 user interrupt \052\052\052\012"); lf[856]=C_h_intern(&lf[856],18,"uncaught-exception"); lf[857]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\022uncaught-exception\376\001\000\000\006reason"); lf[858]=C_decode_literal(C_heaptop,"\376B\000\000\022uncaught exception"); lf[859]=C_h_intern(&lf[859],25,"current-exception-handler"); lf[860]=C_h_intern(&lf[860],23,"make-property-condition"); lf[861]=C_h_intern(&lf[861],24,"make-composite-condition"); lf[862]=C_h_intern(&lf[862],10,"\003sysappend"); lf[863]=C_h_intern(&lf[863],10,"condition\077"); lf[864]=C_h_intern(&lf[864],15,"condition->list"); lf[865]=C_decode_literal(C_heaptop,"\376B\000\000\042argument is not a condition object"); lf[866]=C_h_intern(&lf[866],19,"condition-predicate"); lf[867]=C_h_intern(&lf[867],27,"condition-property-accessor"); lf[868]=C_decode_literal(C_heaptop,"\376B\000\000\036condition has no such property"); lf[869]=C_h_intern(&lf[869],22,"get-condition-property"); lf[870]=C_decode_literal(C_heaptop,"\376B\000\000\036bad argument count - received "); lf[871]=C_decode_literal(C_heaptop,"\376B\000\000\016 but expected "); lf[872]=C_decode_literal(C_heaptop,"\376B\000\000\035too few arguments - received "); lf[873]=C_decode_literal(C_heaptop,"\376B\000\000\016 but expected "); lf[874]=C_decode_literal(C_heaptop,"\376B\000\000\021bad argument type"); lf[875]=C_decode_literal(C_heaptop,"\376B\000\000\020unbound variable"); lf[876]=C_decode_literal(C_heaptop,"\376B\000\000\015out of memory"); lf[877]=C_decode_literal(C_heaptop,"\376B\000\000\020division by zero"); lf[878]=C_decode_literal(C_heaptop,"\376B\000\000\014out of range"); lf[879]=C_decode_literal(C_heaptop,"\376B\000\000\025call of non-procedure"); lf[880]=C_decode_literal(C_heaptop,"\376B\000\000+continuation cannot receive multiple values"); lf[881]=C_decode_literal(C_heaptop,"\376B\000\000)bad argument type - not a non-cyclic list"); lf[882]=C_decode_literal(C_heaptop,"\376B\000\000\022recursion too deep"); lf[883]=C_decode_literal(C_heaptop,"\376B\000\0007inexact number cannot be represented as an exact number"); lf[884]=C_decode_literal(C_heaptop,"\376B\000\000%bad argument type - not a proper list"); lf[885]=C_decode_literal(C_heaptop,"\376B\000\000 bad argument type - not a fixnum"); lf[886]=C_decode_literal(C_heaptop,"\376B\000\000 bad argument type - not a number"); lf[887]=C_decode_literal(C_heaptop,"\376B\000\000 bad argument type - not a string"); lf[888]=C_decode_literal(C_heaptop,"\376B\000\000\036bad argument type - not a pair"); lf[889]=C_decode_literal(C_heaptop,"\376B\000\000\036bad argument type - not a list"); lf[890]=C_decode_literal(C_heaptop,"\376B\000\000#bad argument type - not a character"); lf[891]=C_decode_literal(C_heaptop,"\376B\000\000 bad argument type - not a vector"); lf[892]=C_decode_literal(C_heaptop,"\376B\000\000 bad argument type - not a symbol"); lf[893]=C_decode_literal(C_heaptop,"\376B\000\000\016stack overflow"); lf[894]=C_decode_literal(C_heaptop,"\376B\000\0008bad argument type - not a structure of the required type"); lf[895]=C_decode_literal(C_heaptop,"\376B\000\000\036bad argument type - not a blob"); lf[896]=C_decode_literal(C_heaptop,"\376B\000\000#locative refers to reclaimed object"); lf[897]=C_decode_literal(C_heaptop,"\376B\000\000-bad argument type - not a non-immediate value"); lf[898]=C_decode_literal(C_heaptop,"\376B\000\000\047bad argument type - not a number vector"); lf[899]=C_decode_literal(C_heaptop,"\376B\000\000\042bad argument type - not an integer"); lf[900]=C_decode_literal(C_heaptop,"\376B\000\000+bad argument type - not an unsigned integer"); lf[901]=C_decode_literal(C_heaptop,"\376B\000\000!bad argument type - not a pointer"); lf[902]=C_decode_literal(C_heaptop,"\376B\000\000(bad argument type - not a tagged pointer"); lf[903]=C_decode_literal(C_heaptop,"\376B\000\000 bad argument type - not a flonum"); lf[904]=C_decode_literal(C_heaptop,"\376B\000\000#bad argument type - not a procedure"); lf[905]=C_decode_literal(C_heaptop,"\376B\000\000 bad argument type - invalid base"); lf[906]=C_decode_literal(C_heaptop,"\376B\000\000/recursion too deep or circular data encountered"); lf[907]=C_decode_literal(C_heaptop,"\376B\000\000!bad argument type - not a boolean"); lf[908]=C_decode_literal(C_heaptop,"\376B\000\000\042bad argument type - not a locative"); lf[909]=C_decode_literal(C_heaptop,"\376B\000\000\036bad argument type - not a port"); lf[910]=C_decode_literal(C_heaptop,"\376B\000\000%bad argument type - not an input-port"); lf[911]=C_decode_literal(C_heaptop,"\376B\000\000&bad argument type - not an output-port"); lf[912]=C_decode_literal(C_heaptop,"\376B\000\000\023port already closed"); lf[913]=C_decode_literal(C_heaptop,"\376B\000\0002cannot represent string with NUL bytes as C string"); lf[914]=C_decode_literal(C_heaptop,"\376B\000\000\026segmentation violation"); lf[915]=C_decode_literal(C_heaptop,"\376B\000\000\030floating-point exception"); lf[916]=C_decode_literal(C_heaptop,"\376B\000\000\023illegal instruction"); lf[917]=C_decode_literal(C_heaptop,"\376B\000\000\011bus error"); lf[918]=C_decode_literal(C_heaptop,"\376B\000\000\026unknown internal error"); lf[919]=C_h_intern(&lf[919],14,"\003sysstructure\077"); lf[920]=C_h_intern(&lf[920],22,"\003sysgeneric-structure\077"); lf[921]=C_h_intern(&lf[921],8,"\003sysslot"); lf[922]=C_h_intern(&lf[922],8,"\003syssize"); lf[923]=C_h_intern(&lf[923],16,"\003sysmake-pointer"); lf[924]=C_h_intern(&lf[924],23,"\003sysmake-tagged-pointer"); lf[925]=C_h_intern(&lf[925],12,"\003syspointer\077"); lf[926]=C_h_intern(&lf[926],24,"\003sysset-pointer-address!"); lf[927]=C_h_intern(&lf[927],15,"\003sysbytevector\077"); lf[928]=C_h_intern(&lf[928],23,"\003sysstring->pbytevector"); lf[929]=C_h_intern(&lf[929],14,"\003syspermanent\077"); lf[930]=C_h_intern(&lf[930],17,"\003sysblock-address"); lf[931]=C_h_intern(&lf[931],13,"\003syslocative\077"); lf[932]=C_h_intern(&lf[932],18,"\003syssrfi-4-vector\077"); lf[933]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\010u8vector\376\003\000\000\002\376\001\000\000\011u16vector\376\003\000\000\002\376\001\000\000\010s8vector\376\003\000\000\002\376\001\000\000\011s16vector\376\003\000\000\002\376" "\001\000\000\011u32vector\376\003\000\000\002\376\001\000\000\011s32vector\376\003\000\000\002\376\001\000\000\011f32vector\376\003\000\000\002\376\001\000\000\011f64vector\376\377\016"); lf[934]=C_h_intern(&lf[934],16,"\003sysnull-pointer"); lf[935]=C_h_intern(&lf[935],17,"\003sysnull-pointer\077"); lf[936]=C_h_intern(&lf[936],20,"\003sysaddress->pointer"); lf[937]=C_h_intern(&lf[937],23,"\003syspeek-signed-integer"); lf[938]=C_h_intern(&lf[938],15,"\003syspeek-fixnum"); lf[939]=C_h_intern(&lf[939],13,"\003syspeek-byte"); lf[940]=C_h_intern(&lf[940],22,"\003sysvector->structure!"); lf[941]=C_h_intern(&lf[941],15,"\003syspeek-double"); lf[942]=C_h_intern(&lf[942],26,"\003syspeek-and-free-c-string"); lf[943]=C_h_intern(&lf[943],34,"\003syspeek-and-free-nonnull-c-string"); lf[944]=C_h_intern(&lf[944],17,"\003syspoke-c-string"); lf[945]=C_h_intern(&lf[945],16,"\003syspoke-integer"); lf[946]=C_h_intern(&lf[946],15,"\003syspoke-double"); lf[947]=C_h_intern(&lf[947],22,"\003syspeek-c-string-list"); lf[948]=C_h_intern(&lf[948],31,"\003syspeek-and-free-c-string-list"); lf[949]=C_h_intern(&lf[949],20,"\003sysvector->closure!"); lf[950]=C_h_intern(&lf[950],32,"\003syssymbol-has-toplevel-binding\077"); lf[951]=C_h_intern(&lf[951],14,"\003syscopy-words"); lf[952]=C_h_intern(&lf[952],17,"\003syscompare-bytes"); lf[953]=C_h_intern(&lf[953],17,"\003sysblock-pointer"); lf[954]=C_h_intern(&lf[954],25,"\003sysforeign-char-argument"); lf[955]=C_h_intern(&lf[955],27,"\003sysforeign-fixnum-argument"); lf[956]=C_h_intern(&lf[956],27,"\003sysforeign-flonum-argument"); lf[957]=C_h_intern(&lf[957],26,"\003sysforeign-block-argument"); lf[958]=C_h_intern(&lf[958],35,"\003sysforeign-struct-wrapper-argument"); lf[959]=C_h_intern(&lf[959],27,"\003sysforeign-string-argument"); lf[960]=C_h_intern(&lf[960],27,"\003sysforeign-symbol-argument"); lf[961]=C_h_intern(&lf[961],28,"\003sysforeign-pointer-argument"); lf[962]=C_h_intern(&lf[962],35,"\003sysforeign-tagged-pointer-argument"); lf[963]=C_h_intern(&lf[963],28,"\003sysforeign-integer-argument"); lf[964]=C_h_intern(&lf[964],30,"\003sysforeign-integer64-argument"); lf[965]=C_h_intern(&lf[965],37,"\003sysforeign-unsigned-integer-argument"); lf[966]=C_h_intern(&lf[966],39,"\003sysforeign-unsigned-integer64-argument"); lf[967]=C_h_intern(&lf[967],26,"\003sysdefault-thread-quantum"); lf[968]=C_h_intern(&lf[968],29,"\003sysdefault-exception-handler"); lf[969]=C_decode_literal(C_heaptop,"\376B\000\000>internal error: default exception handler shouldn\047t be called!"); lf[970]=C_h_intern(&lf[970],15,"\003sysmake-thread"); lf[971]=C_h_intern(&lf[971],14,"\003sysmake-mutex"); lf[972]=C_h_intern(&lf[972],5,"mutex"); lf[973]=C_h_intern(&lf[973],12,"\003sysschedule"); lf[974]=C_h_intern(&lf[974],17,"\003systhread-yield!"); lf[975]=C_h_intern(&lf[975],22,"\003syskill-other-threads"); lf[976]=C_h_intern(&lf[976],18,"\003syscontext-switch"); lf[977]=C_h_intern(&lf[977],17,"\003syssignal-vector"); lf[978]=C_h_intern(&lf[978],18,"\003sysinterrupt-hook"); lf[979]=C_h_intern(&lf[979],22,"\003syspending-finalizers"); lf[980]=C_h_intern(&lf[980],26,"\003sysrun-pending-finalizers"); lf[981]=C_decode_literal(C_heaptop,"\376B\000\000Lunexpected end of file - unterminated `#{...}\047 item in `here\047 string litera" "l"); lf[982]=C_decode_literal(C_heaptop,"\376B\000\000&unterminated here-doc string literal `"); lf[983]=C_decode_literal(C_heaptop,"\376B\000\000\001\047"); lf[984]=C_decode_literal(C_heaptop,"\376B\000\000$Missing tag after #<< here-doc token"); lf[985]=C_decode_literal(C_heaptop,"\376B\000\000!Whitespace after #<< here-doc tag"); lf[986]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005quote\376\003\000\000\002\376\377\016\376\377\016"); lf[987]=C_decode_literal(C_heaptop,"\376B\000\000$Missing tag after #<# here-doc token"); lf[988]=C_decode_literal(C_heaptop,"\376B\000\000!Whitespace after #<# here-doc tag"); lf[989]=C_decode_literal(C_heaptop,"\376B\000\000\021unreadable object"); lf[990]=C_h_intern(&lf[990],4,"argv"); lf[991]=C_h_intern(&lf[991],12,"program-name"); lf[992]=C_h_intern(&lf[992],22,"command-line-arguments"); lf[993]=C_h_intern(&lf[993],18,"\003sysset-finalizer!"); lf[994]=C_h_intern(&lf[994],14,"set-finalizer!"); lf[995]=C_decode_literal(C_heaptop,"\376B\000\000\035[debug] too many finalizers ("); lf[996]=C_decode_literal(C_heaptop,"\376B\000\000\035), resized max finalizers to "); lf[997]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[998]=C_decode_literal(C_heaptop,"\376B\000\000\035[debug] too many finalizers ("); lf[999]=C_decode_literal(C_heaptop,"\376B\000\000\017), forcing ...\012"); lf[1000]=C_h_intern(&lf[1000],26,"\003sysshow-exception-warning"); lf[1001]=C_decode_literal(C_heaptop,"\376B\000\000\014in finalizer"); lf[1002]=C_decode_literal(C_heaptop,"\376B\000\000\020[debug] running "); lf[1003]=C_decode_literal(C_heaptop,"\376B\000\000\017 finalizer(s) ("); lf[1004]=C_decode_literal(C_heaptop,"\376B\000\000\007 live, "); lf[1005]=C_decode_literal(C_heaptop,"\376B\000\000\020 allocated) ...\012"); lf[1006]=C_h_intern(&lf[1006],2,"gc"); lf[1007]=C_h_intern(&lf[1007],10,"\003syslength"); lf[1008]=C_h_intern(&lf[1008],8,"\003syscons"); lf[1009]=C_h_intern(&lf[1009],10,"\003sysvector"); lf[1010]=C_h_intern(&lf[1010],9,"\003sysapply"); lf[1011]=C_h_intern(&lf[1011],10,"\003sysvalues"); lf[1012]=C_h_intern(&lf[1012],10,"\003sysequal\077"); lf[1013]=C_h_intern(&lf[1013],7,"\003syscar"); lf[1014]=C_h_intern(&lf[1014],7,"\003syscdr"); lf[1015]=C_h_intern(&lf[1015],9,"\003syspair\077"); lf[1016]=C_h_intern(&lf[1016],11,"\003sysvector\077"); lf[1017]=C_h_intern(&lf[1017],16,"\003sysvector->list"); lf[1018]=C_h_intern(&lf[1018],17,"\003sysvector-length"); lf[1019]=C_h_intern(&lf[1019],14,"\003sysvector-ref"); lf[1020]=C_h_intern(&lf[1020],6,"\003sys>="); lf[1021]=C_h_intern(&lf[1021],5,"\003sys="); lf[1022]=C_h_intern(&lf[1022],5,"\003sys+"); lf[1023]=C_h_intern(&lf[1023],7,"\003syseq\077"); lf[1024]=C_h_intern(&lf[1024],8,"\003syseqv\077"); lf[1025]=C_h_intern(&lf[1025],9,"\003syslist\077"); lf[1026]=C_h_intern(&lf[1026],9,"\003sysnull\077"); lf[1027]=C_h_intern(&lf[1027],9,"\003sysmap-n"); lf[1028]=C_h_intern(&lf[1028],16,"\003sysmake-promise"); lf[1029]=C_h_intern(&lf[1029],8,"promise\077"); lf[1030]=C_h_intern(&lf[1030],12,"make-promise"); lf[1031]=C_h_intern(&lf[1031],20,"\003sysread-from-string"); lf[1032]=C_h_intern(&lf[1032],19,"print-error-message"); lf[1033]=C_decode_literal(C_heaptop,"\376B\000\000\002: "); lf[1034]=C_decode_literal(C_heaptop,"\376B\000\000\001("); lf[1035]=C_decode_literal(C_heaptop,"\376B\000\000\002) "); lf[1036]=C_decode_literal(C_heaptop,"\376B\000\000\002: "); lf[1037]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016user-interrupt\376\377\016"); lf[1038]=C_decode_literal(C_heaptop,"\376B\000\000\030: \052\052\052 user interrupt \052\052\052"); lf[1039]=C_decode_literal(C_heaptop,"\376B\000\000\016: <condition> "); lf[1040]=C_decode_literal(C_heaptop,"\376B\000\000\002: "); lf[1041]=C_decode_literal(C_heaptop,"\376B\000\000\026: uncaught exception: "); lf[1042]=C_decode_literal(C_heaptop,"\376B\000\000\005Error"); lf[1043]=C_decode_literal(C_heaptop,"\376B\000\000\002: "); lf[1044]=C_decode_literal(C_heaptop,"\376B\000\000\002 ("); lf[1045]=C_decode_literal(C_heaptop,"\376B\000\000\007Warning"); lf[1046]=C_h_intern(&lf[1046],17,"\003sysmake-locative"); lf[1047]=C_decode_literal(C_heaptop,"\376B\000\000)locative cannot refer to immediate object"); lf[1048]=C_h_intern(&lf[1048],8,"u8vector"); lf[1049]=C_h_intern(&lf[1049],8,"s8vector"); lf[1050]=C_h_intern(&lf[1050],9,"u16vector"); lf[1051]=C_h_intern(&lf[1051],9,"s16vector"); lf[1052]=C_h_intern(&lf[1052],9,"u32vector"); lf[1053]=C_h_intern(&lf[1053],9,"s32vector"); lf[1054]=C_h_intern(&lf[1054],9,"f32vector"); lf[1055]=C_h_intern(&lf[1055],9,"f64vector"); lf[1056]=C_decode_literal(C_heaptop,"\376B\000\000Abad argument type - locative cannot refer to objects of this type"); lf[1057]=C_h_intern(&lf[1057],17,"memory-statistics"); lf[1058]=C_h_intern(&lf[1058],4,"put!"); lf[1059]=C_h_intern(&lf[1059],8,"\003sysput!"); lf[1060]=C_h_intern(&lf[1060],7,"\003sysget"); lf[1061]=C_h_intern(&lf[1061],3,"get"); lf[1062]=C_h_intern(&lf[1062],8,"remprop!"); lf[1063]=C_h_intern(&lf[1063],12,"symbol-plist"); lf[1064]=C_h_intern(&lf[1064],14,"get-properties"); lf[1065]=C_h_intern(&lf[1065],17,"\003sysdisplay-times"); lf[1066]=C_decode_literal(C_heaptop,"\376B\000\000\0010"); lf[1067]=C_decode_literal(C_heaptop,"\376U10.0\000"); lf[1068]=C_decode_literal(C_heaptop,"\376\377U1073741824\000"); lf[1069]=C_decode_literal(C_heaptop,"\376B\000\000\004 GiB"); lf[1070]=C_decode_literal(C_heaptop,"\376B\000\000\004 MiB"); lf[1071]=C_decode_literal(C_heaptop,"\376B\000\000\004 KiB"); lf[1072]=C_decode_literal(C_heaptop,"\376B\000\000\006 bytes"); lf[1073]=C_decode_literal(C_heaptop,"\376B\000\000\025, maximum live heap: "); lf[1074]=C_decode_literal(C_heaptop,"\376B\000\000\022 GCs (major/minor)"); lf[1075]=C_decode_literal(C_heaptop,"\376B\000\000\002, "); lf[1076]=C_decode_literal(C_heaptop,"\376B\000\000\032 mutations (total/tracked)"); lf[1077]=C_decode_literal(C_heaptop,"\376B\000\000\002, "); lf[1078]=C_decode_literal(C_heaptop,"\376B\000\000\021s GC time (major)"); lf[1079]=C_decode_literal(C_heaptop,"\376B\000\000\002, "); lf[1080]=C_decode_literal(C_heaptop,"\376B\000\000\012s CPU time"); lf[1081]=C_h_intern(&lf[1081],23,"\003sysfilter-heap-objects"); lf[1082]=C_h_intern(&lf[1082],5,"foldl"); lf[1083]=C_h_intern(&lf[1083],5,"foldr"); lf[1084]=C_h_intern(&lf[1084],7,"\003sysdel"); lf[1085]=C_h_intern(&lf[1085],10,"\003sysnodups"); lf[1086]=C_h_intern(&lf[1086],14,"\003sysdrop-right"); lf[1087]=C_h_intern(&lf[1087],14,"\003systake-right"); lf[1088]=C_h_intern(&lf[1088],19,"symbol-plist/setter"); lf[1089]=C_decode_literal(C_heaptop,"\376B\000\000$property-list must be of even length"); lf[1090]=C_decode_literal(C_heaptop,"\376B\000\000\022(symbol-plist sym)"); lf[1091]=C_decode_literal(C_heaptop,"\376B\000\000\030(get sym prop . default)"); lf[1092]=C_h_intern(&lf[1092],9,"arguments"); lf[1093]=C_h_intern(&lf[1093],7,"message"); lf[1094]=C_decode_literal(C_heaptop,"\376B\000\000\002-:"); lf[1095]=C_decode_literal(C_heaptop,"\376B\000\000\011<unknown>"); lf[1096]=C_h_intern(&lf[1096],7,"running"); lf[1097]=C_h_intern(&lf[1097],10,"primordial"); lf[1098]=C_decode_literal(C_heaptop,"\376B\000\000,\042exit\042 called while processing on-exit tasks"); lf[1099]=C_h_intern(&lf[1099],4,"repl"); lf[1100]=C_decode_literal(C_heaptop,"\376B\000\000\002: "); lf[1101]=C_decode_literal(C_heaptop,"\376B\000\000\002: "); lf[1102]=C_decode_literal(C_heaptop,"\376B\000\000\006\012Error"); lf[1103]=C_decode_literal(C_heaptop,"\376B\000\000\016error in error"); lf[1104]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[1105]=C_decode_literal(C_heaptop,"\376B\000\000\010chicken-"); lf[1106]=C_h_intern(&lf[1106],6,"\00064bit"); lf[1107]=C_h_intern(&lf[1107],14,"\000cross-chicken"); lf[1108]=C_h_intern(&lf[1108],8,"\000ptables"); lf[1109]=C_h_intern(&lf[1109],6,"\000dload"); lf[1110]=C_h_intern(&lf[1110],9,"\000manyargs"); lf[1111]=C_h_intern(&lf[1111],7,"windows"); lf[1112]=C_h_intern(&lf[1112],6,"cygwin"); lf[1113]=C_decode_literal(C_heaptop,"\376B\000\000\020(list-ref lst i)"); lf[1114]=C_decode_literal(C_heaptop,"\376B\000\000\022(vector-ref vec i)"); lf[1115]=C_decode_literal(C_heaptop,"\376B\000\000\022(string-ref str i)"); lf[1116]=C_decode_literal(C_heaptop,"\376B\000\000\011(cdddr p)"); lf[1117]=C_decode_literal(C_heaptop,"\376B\000\000\011(cddar p)"); lf[1118]=C_decode_literal(C_heaptop,"\376B\000\000\011(cdadr p)"); lf[1119]=C_decode_literal(C_heaptop,"\376B\000\000\011(cdaar p)"); lf[1120]=C_decode_literal(C_heaptop,"\376B\000\000\011(caddr p)"); lf[1121]=C_decode_literal(C_heaptop,"\376B\000\000\011(cadar p)"); lf[1122]=C_decode_literal(C_heaptop,"\376B\000\000\011(caadr p)"); lf[1123]=C_decode_literal(C_heaptop,"\376B\000\000\011(caaar p)"); lf[1124]=C_decode_literal(C_heaptop,"\376B\000\000\010(cddr p)"); lf[1125]=C_decode_literal(C_heaptop,"\376B\000\000\010(cdar p)"); lf[1126]=C_decode_literal(C_heaptop,"\376B\000\000\010(cadr p)"); lf[1127]=C_decode_literal(C_heaptop,"\376B\000\000\010(caar p)"); lf[1128]=C_decode_literal(C_heaptop,"\376B\000\000\007(cdr p)"); lf[1129]=C_decode_literal(C_heaptop,"\376B\000\000\007(car p)"); lf[1130]=C_decode_literal(C_heaptop,"\376B\000\000\021no setter defined"); lf[1131]=C_decode_literal(C_heaptop,"\376B\000\000!can\047t set setter of non-procedure"); lf[1132]=C_decode_literal(C_heaptop,"\376B\000\000\010(stderr)"); lf[1133]=C_decode_literal(C_heaptop,"\376B\000\000\010(stdout)"); lf[1134]=C_decode_literal(C_heaptop,"\376B\000\000\007(stdin)"); lf[1135]=C_h_intern(&lf[1135],9,"backspace"); lf[1136]=C_h_intern(&lf[1136],4,"page"); lf[1137]=C_h_intern(&lf[1137],6,"return"); lf[1138]=C_h_intern(&lf[1138],4,"null"); lf[1139]=C_h_intern(&lf[1139],3,"nul"); lf[1140]=C_h_intern(&lf[1140],5,"alarm"); lf[1141]=C_h_intern(&lf[1141],6,"escape"); lf[1142]=C_h_intern(&lf[1142],3,"esc"); lf[1143]=C_h_intern(&lf[1143],6,"delete"); lf[1144]=C_h_intern(&lf[1144],4,"vtab"); lf[1145]=C_h_intern(&lf[1145],8,"linefeed"); lf[1146]=C_h_intern(&lf[1146],3,"tab"); lf[1147]=C_h_intern(&lf[1147],5,"space"); C_register_lf2(lf,1148,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6801,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_build_2dversion_toplevel(2,av2);}} /* k13903 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_13905(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13905,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_make_character(11),((C_word*)t0)[2]); /* library.scm:2477: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_13786(t3,((C_word*)t0)[4],t1,t2);} /* char-ci>? in k6799 */ 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=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_11032,4,av);} t4=C_u_i_char_downcase(t2); t5=C_u_i_char_downcase(t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_u_i_char_greaterp(t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* loop in k8568 in fragments->string in k6799 */ static C_word C_fcall f_8575(C_word t0,C_word t1,C_word t2){ C_word tmp; C_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;}} /* k23012 in loop in force-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in ... */ static void C_ccall f_23014(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_23014,2,av);} a=C_alloc(4); t2=C_slot(*((C_word*)lf[979]+1),C_fix(0)); if(C_truep(C_fixnum_greaterp(t2,C_fix(0)))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23023,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:4763: ##sys#run-pending-finalizers */ t4=*((C_word*)lf[980]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop in force-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in ... */ static void C_fcall f_23010(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_23010,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23014,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:4761: ##sys#gc */ t3=*((C_word*)lf[21]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a15933 in k15927 in k15924 in k15921 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in ... */ static void C_ccall f_15934(C_word c,C_word *av){ C_word tmp; 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_15934,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in gcd in k6799 */ static void C_fcall f_9763(C_word t0,C_word t1,C_word 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_9763,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_slot(t2,C_fix(0)); t5=t4; t6=C_slot(t2,C_fix(1)); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9773,a[2]=t7,a[3]=t1,a[4]=t5,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); if(C_truep(t3)){ /* library.scm:1097: ##sys#check-integer */ t9=*((C_word*)lf[74]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t8; av2[2]=t5; av2[3]=lf[322]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t9=t8;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_9773(2,av2);}}} /* char-ci<? in k6799 */ static void C_ccall f_11043(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_11043,4,av);} t4=C_u_i_char_downcase(t2); t5=C_u_i_char_downcase(t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_u_i_char_lessp(t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a15938 in k15927 in k15924 in k15921 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in ... */ static void C_ccall f_15939(C_word c,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_15939,2,av);} /* library.scm:2911: readrec */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13628(t2,t1);} /* k13924 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_13926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13926,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_make_character(12),((C_word*)t0)[2]); /* library.scm:2478: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_13786(t3,((C_word*)t0)[4],t1,t2);} /* k15873 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_15875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15875,2,av);} /* library.scm:2898: r-number-with-exactness */ t2=((C_word*)((C_word*)t0)[2])[1]; f_14713(t2,((C_word*)t0)[3],C_fix(8));} /* char-downcase in k6799 */ static void C_ccall f_11012(C_word c,C_word *av){ C_word tmp; C_word 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_11012,3,av);} t3=C_i_check_char_2(t2,lf[395]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_char_downcase(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k24521 in k24436 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in ... */ static void C_ccall f_24523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_24523,2,av);} /* library.scm:3913: ##sys#print */ t2=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[455]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k24527 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in ... */ static void C_ccall f_24529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_24529,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24532,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:3935: ##sys#print */ t4=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_24532(2,av2);}}} /* k15861 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_15863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15863,2,av);} /* library.scm:2897: r-number-with-exactness */ t2=((C_word*)((C_word*)t0)[2])[1]; f_14713(t2,((C_word*)t0)[3],C_fix(10));} /* k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in ... */ static void C_ccall f_24583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_24583,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24591,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_24595,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24599,a[2]=t4,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t6=C_fudge(C_fix(43)); /* library.scm:3788: ##sys#number->string */ t7=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k17631 in k17624 in loop in sym-is-readable? in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_17633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17633,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k24812 in a24803 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_24814(C_word t0,C_word 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_24814,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);}} /* k24593 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in ... */ static void C_ccall f_24595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24595,2,av);} /* library.scm:3785: ##sys#->feature-id */ t2=*((C_word*)lf[760]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k24597 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in ... */ static void C_ccall f_24599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_24599,2,av);} /* library.scm:3786: string-append */ t2=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[1104]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in ... */ static void C_ccall f_24591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(36,c,5)))){ C_save_and_reclaim((void *)f_24591,2,av);} a=C_alloc(36); t2=C_a_i_cons(&a,2,t1,*((C_word*)lf[762]+1)); t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); t4=C_mutate2((C_word*)lf[762]+1 /* (set! ##sys#features ...) */,t3); t5=C_mutate2((C_word*)lf[764]+1 /* (set! register-feature! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19497,a[2]=((C_word)li663),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[765]+1 /* (set! unregister-feature! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19541,a[2]=((C_word)li666),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[766]+1 /* (set! features ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19619,a[2]=((C_word)li667),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[767]+1 /* (set! feature? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19622,a[2]=((C_word)li669),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[768]+1 /* (set! ##sys#feature? ...) */,*((C_word*)lf[767]+1)); t10=C_mutate2((C_word*)lf[769]+1 /* (set! get-call-chain ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19665,a[2]=((C_word)li671),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[772]+1 /* (set! ##sys#really-print-call-chain ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19803,a[2]=((C_word)li675),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[778]+1 /* (set! print-call-chain ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19908,a[2]=((C_word)li676),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[780]+1 /* (set! ##sys#get-call-chain ...) */,*((C_word*)lf[769]+1)); t14=C_mutate2((C_word*)lf[781]+1 /* (set! ##sys#user-interrupt-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19999,a[2]=((C_word)li678),tmp=(C_word)a,a+=3,tmp)); t15=C_fudge(C_fix(25)); t16=C_mutate2((C_word*)lf[784]+1 /* (set! ##sys#break-on-error ...) */,t15); t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20026,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24425,a[2]=((C_word)li862),tmp=(C_word)a,a+=3,tmp); /* library.scm:3905: make-parameter */ t19=*((C_word*)lf[520]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t19; av2[1]=t17; av2[2]=t18; ((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}} /* char-ci>=? in k6799 */ static void C_ccall f_11054(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_11054,4,av);} t4=C_u_i_char_downcase(t2); t5=C_u_i_char_downcase(t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_u_i_char_greater_or_equal_p(t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* ##sys#debugger in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_20146(C_word c,C_word *av){ C_word tmp; C_word 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_20146,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=signal_debug_event(lf[800],t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k13956 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_13958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13958,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_13950,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:2481: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k13948 in k13956 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_13950(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13950,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* library.scm:2481: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_13786(t3,((C_word*)t0)[5],t1,t2);} /* ##sys#signal-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_20149(C_word c,C_word *av){ C_word tmp; C_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_20149,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[782]); if(C_truep(t9)){ t10=C_a_i_record3(&a,3,lf[680],lf[801],C_SCHEME_END_OF_LIST); /* library.scm:4001: ##sys#abort */ t11=*((C_word*)lf[802]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t1; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t10=C_eqp(t8,lf[13]); t11=(C_truep(t10)?t10:C_eqp(t8,lf[15])); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20175,a[2]=t4,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t13=C_eqp(t2,lf[13]); if(C_truep(t13)){ /* library.scm:4007: ##sys#print */ t14=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t14; av2[1]=t12; av2[2]=lf[804]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}} else{ /* library.scm:4007: ##sys#print */ t14=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t14; av2[1]=t12; av2[2]=lf[805]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}}} else{ t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20251,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_20416,a[2]=t5,a[3]=t12,tmp=(C_word)a,a+=4,tmp); /* library.scm:4025: ##sys#symbol->string */ t16=*((C_word*)lf[341]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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_20251(t15,C_SCHEME_UNDEFINED);}}}} /* k20132 in cleanup-before-exit in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_20134(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20134,2,av);} /* library.scm:3974: ##sys#dump-heap-state */ t2=*((C_word*)lf[796]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a24577 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in ... */ static void C_ccall f_24578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_24578,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_halt(lf[1103]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_fcall f_15812(C_word t0,C_word t1){ C_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_15812,2,t0,t1);} a=C_alloc(10); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15820,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li554),tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15826,a[2]=((C_word*)t0)[4],a[3]=((C_word)li555),tmp=(C_word)a,a+=4,tmp); /* library.scm:2891: ##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_15851,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:2896: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+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);} case C_make_character(100): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15863,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:2897: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+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);} case C_make_character(111): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15875,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:2898: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+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);} case C_make_character(98): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15887,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:2899: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+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);} case C_make_character(105): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15899,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:2900: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+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);} case C_make_character(101): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15911,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:2901: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+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);} case C_make_character(99): t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15923,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:2903: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+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);} case C_make_character(40): /* library.scm:2912: r-vector */ t4=((C_word*)((C_word*)t0)[9])[1]; f_14602(t4,((C_word*)t0)[5]); case C_make_character(92): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15987,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:2913: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+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);} case C_make_character(124): t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15999,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:2915: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+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);} case C_make_character(35): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16014,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:2918: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+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);} case C_make_character(59): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16026,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:2921: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+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);} case C_make_character(96): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16041,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* library.scm:2924: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+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);} case C_make_character(36): t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16057,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:2927: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+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);} case C_make_character(58): t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16088,a[2]=((C_word*)t0)[13],a[3]=((C_word*)t0)[14],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[15],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* library.scm:2934: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+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);} case C_make_character(37): t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16152,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16156,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* library.scm:2944: r-token */ t6=((C_word*)((C_word*)t0)[16])[1]; f_14831(t6,t5); case C_make_character(43): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16165,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* library.scm:2946: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+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);} case C_make_character(33): t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16188,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)[16],tmp=(C_word)a,a+=7,tmp); /* library.scm:2950: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+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);} default: t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16260,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li563),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16266,a[2]=((C_word*)t0)[4],a[3]=((C_word)li564),tmp=(C_word)a,a+=4,tmp); /* library.scm:2969: ##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);}}}} /* on-exit in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_20139(C_word c,C_word *av){ C_word tmp; C_word 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_20139,3,av);} a=C_alloc(3); t3=C_a_i_cons(&a,2,t2,*((C_word*)lf[792]+1)); t4=C_mutate2((C_word*)lf[792]+1 /* (set! ##sys#cleanup-tasks ...) */,t3); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a24803 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_24804(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24804,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_24814,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_24814(t14,t13);} else{ t13=t11; f_24814(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_24814(t14,t13);} else{ t13=t11; f_24814(t13,C_SCHEME_UNDEFINED);}}} /* k13882 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_13884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13884,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_make_character(7),((C_word*)t0)[2]); /* library.scm:2476: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_13786(t3,((C_word*)t0)[4],t1,t2);} /* k17650 in k17624 in loop in sym-is-readable? in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_fcall f_17652(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_17652,2,t0,t1);} 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_fix(C_character_code(((C_word*)t0)[3])); t3=C_fixnum_less_or_equal_p(t2,C_fix(32)); t4=(C_truep(t3)?t3:C_i_memq(((C_word*)t0)[3],lf[648])); 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);}}} /* k9797 in k9786 in k9771 in loop in gcd in k6799 */ static void C_ccall f_9799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_9799,2,av);} a=C_alloc(3); t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_a_i_cons(&a,2,t1,t2); /* library.scm:1102: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_9763(t4,((C_word*)t0)[4],t3,C_SCHEME_FALSE);} /* k15885 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_15887(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15887,2,av);} /* library.scm:2899: r-number-with-exactness */ t2=((C_word*)((C_word*)t0)[2])[1]; f_14713(t2,((C_word*)t0)[3],C_fix(2));} /* k15897 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_15899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15899,2,av);} /* library.scm:2900: r-number-with-radix */ t2=((C_word*)((C_word*)t0)[2])[1]; f_14764(t2,((C_word*)t0)[3],lf[326]);} /* r-comment in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_15395(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_15395,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_15401,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li545),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_15401(t5,t1,C_fix(0));} /* k15368 in k15191 in k15188 in r-char in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_fcall f_15370(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_15370,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15377,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2758: ##sys#substring */ t3=*((C_word*)lf[162]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(1); 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_FALSE; f_15205(2,av2);}}} /* k15375 in k15368 in k15191 in k15188 in r-char in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15377,2,av);} /* library.scm:2758: ##sys#string->number */ t2=*((C_word*)lf[328]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k23912 in pmem in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_23914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_23914,2,av);} t2=((C_word*)t0)[2]; /* library.scm:5035: ##sys#print */ t3=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1071]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* char-lower-case? in k6799 */ static void C_ccall f_11082(C_word c,C_word *av){ C_word tmp; C_word 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_11082,3,av);} t3=C_i_check_char_2(t2,lf[402]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_char_lower_casep(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* char-upper-case? in k6799 */ 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=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_11076,3,av);} t3=C_i_check_char_2(t2,lf[401]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_char_upper_casep(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k22113 in interrupt-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_ccall f_22115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_22115,2,av);} t2=C_slot(*((C_word*)lf[979]+1),C_fix(0)); if(C_truep(C_fixnum_greaterp(t2,C_fix(0)))){ /* library.scm:4509: ##sys#run-pending-finalizers */ t3=*((C_word*)lf[980]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ if(C_truep(C_i_closurep(((C_word*)t0)[3]))){ /* library.scm:4510: state */ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* library.scm:4511: ##sys#context-switch */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}}} /* ##sys#interrupt-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_ccall f_22111(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_22111,4,av);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22115,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_22142,a[2]=t6,a[3]=((C_word)li776),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_22142(t8,t4,t2);} /* char-numeric? in k6799 */ static void C_ccall f_11088(C_word c,C_word *av){ C_word tmp; C_word 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_11088,3,av);} t3=C_i_check_char_2(t2,lf[403]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_u_i_char_numericp(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#peek-nonnull-c-string in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21797(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_21797,4,av);} a=C_alloc(6); t4=C_fetch_c_strlen(t2,t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21801,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* library.scm:4328: ##sys#make-string */ t6=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k17688 in loop in sym-is-readable? in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_fcall f_17690(C_word t0,C_word t1){ C_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(0,0,2)))){ C_save_and_reclaim_args((void *)trf_17690,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[648])); if(C_truep(t4)){ 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{ 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)[4],C_fix(1)); /* library.scm:3278: loop */ t8=((C_word*)((C_word*)t0)[5])[1]; f_17610(t8,((C_word*)t0)[3],t7);} else{ 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=C_fixnum_difference(((C_word*)t0)[6],C_fix(1)); t8=C_fixnum_lessp(((C_word*)t0)[4],t7); if(C_truep(t8)){ if(C_truep(t8)){ t9=C_fixnum_difference(((C_word*)t0)[4],C_fix(1)); /* library.scm:3278: loop */ t10=((C_word*)((C_word*)t0)[5])[1]; f_17610(t10,((C_word*)t0)[3],t9);} else{ t9=((C_word*)t0)[3];{ 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(((C_word*)t0)[7],lf[574]); if(C_truep(C_i_not(t9))){ t10=C_fixnum_difference(((C_word*)t0)[4],C_fix(1)); /* library.scm:3278: loop */ t11=((C_word*)((C_word*)t0)[5])[1]; f_17610(t11,((C_word*)t0)[3],t10);} 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{ 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);}}} /* tan in k6799 */ 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=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,1)))){ C_save_and_reclaim((void *)f_9702,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_tan(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k21789 in peek-c-string in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21791,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* asin in k6799 */ 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=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,1)))){ C_save_and_reclaim((void *)f_9705,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_asin(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* acos in k6799 */ 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=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,1)))){ C_save_and_reclaim((void *)f_9708,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_acos(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k13865 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_13867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13867,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_make_character(10),((C_word*)t0)[2]); /* library.scm:2475: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_13786(t3,((C_word*)t0)[4],t1,t2);} /* gcd in k6799 */ 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_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_9751,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=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fix(0); ((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|3,a[1]=(C_word)f_9763,a[2]=t5,a[3]=((C_word)li287),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_9763(t7,t1,t2,C_SCHEME_TRUE);}} /* loop in gcd in k6799 */ static void C_fcall f_9732(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_9732,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_zerop(t3))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_abs(&a,1,t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9749,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:1089: remainder */ t5=*((C_word*)lf[306]+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);}}} /* k9747 in loop in gcd in k6799 */ static void C_ccall f_9749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9749,2,av);} /* library.scm:1089: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9732(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_22109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(44,c,4)))){ C_save_and_reclaim((void *)f_22109,2,av);} a=C_alloc(44); t2=C_mutate2((C_word*)lf[977]+1 /* (set! ##sys#signal-vector ...) */,t1); t3=C_mutate2((C_word*)lf[978]+1 /* (set! ##sys#interrupt-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22111,a[2]=((C_word)li777),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[439]+1 /* (set! ##sys#dispatch-interrupt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22161,a[2]=((C_word)li778),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_mutate2((C_word*)lf[86]+1 /* (set! ##sys#update-errno ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22168,a[2]=t6,a[3]=((C_word)li779),tmp=(C_word)a,a+=4,tmp)); t8=C_mutate2((C_word*)lf[443]+1 /* (set! errno ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22172,a[2]=t6,a[3]=((C_word)li780),tmp=(C_word)a,a+=4,tmp)); t9=*((C_word*)lf[620]+1); 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_22186,a[2]=((C_word)li782),tmp=(C_word)a,a+=3,tmp)); t15=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22233,a[2]=((C_word)li784),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[620]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22278,a[2]=t11,a[3]=t13,a[4]=t9,a[5]=((C_word)li789),tmp=(C_word)a,a+=6,tmp)); t17=C_SCHEME_FALSE; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_mutate2((C_word*)lf[990]+1 /* (set! argv ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22714,a[2]=t18,a[3]=((C_word)li791),tmp=(C_word)a,a+=4,tmp)); t20=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22754,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24384,a[2]=t20,tmp=(C_word)a,a+=3,tmp); /* library.scm:4664: argv */ t22=*((C_word*)lf[990]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t22; av2[1]=t21; ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}} /* ##sys#kill-other-threads in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_22100(C_word c,C_word *av){ C_word tmp; C_word 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_22100,3,av);} /* library.scm:4492: thunk */ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* ##sys#gcd in k6799 */ static void C_ccall f_9726(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_9726,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_9732,a[2]=t5,a[3]=((C_word)li285),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_9732(t7,t1,t2,t3);} /* ##sys#check-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 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=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_12009,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#char->utf8-string in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in ... */ static void C_ccall f_16506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16506,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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:3010: error */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=lf[623]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}}}} /* doloop4869 in k22195 in k22188 in readln in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in ... */ static void C_fcall f_22199(C_word 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_22199,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:4546: get-output-string */ t5=*((C_word*)lf[708]+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_22221,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:4547: ##sys#write-char-0 */ t6=*((C_word*)lf[633]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k22195 in k22188 in readln in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in ... */ static void C_ccall f_22197(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_22197,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_22199,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word)li781),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_22199(t5,((C_word*)t0)[4],t1);} /* k22188 in readln in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_22190,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22197,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:4544: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#check-open-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in ... */ static void C_ccall f_12020(C_word c,C_word *av){ C_word tmp; C_word 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_12020,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* loop in interrupt-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_fcall f_22142(C_word t0,C_word t1,C_word 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_22142,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(t2)){ t3=C_slot(*((C_word*)lf[977]+1),t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22152,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(t3)){ /* library.scm:4506: 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:4507: 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);}}} /* current-input-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_12031,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[453]+1); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=*((C_word*)lf[453]+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_12044,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:1916: ##sys#check-port */ t6=*((C_word*)lf[437]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=lf[459]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* body2051 in k12042 in current-input-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static C_word C_fcall f_12046(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_mutate2((C_word*)lf[453]+1 /* (set! ##sys#standard-input ...) */,((C_word*)t0)[2]); return(t2);} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* k12042 in current-input-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ 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 t3; C_word t4; C_word 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_12044,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_12046,a[2]=((C_word*)t0)[3],a[3]=((C_word)li431),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12052,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12057,a[2]=t5,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t3))){ t7=( /* library.scm:1917: def-convert?2053 */ f_12057(t6) ); t8=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ 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:1917: def-set?2054 */ f_12052(t5) ); t10=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ 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:1917: body2051 */ f_12046(t4,t9) ); t12=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}} /* def-convert?2053 in k12042 in current-input-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static C_word C_fcall f_12057(C_word t0){ C_word tmp; C_word t1; C_stack_overflow_check;{} return(( /* library.scm:1917: def-set?2054 */ f_12052(((C_word*)t0)[2]) ));} /* k23824 in pnum in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_23826,2,av);} /* library.scm:5038: ##sys#print */ t2=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[455]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* def-set?2054 in k12042 in current-input-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static C_word C_fcall f_12052(C_word t0){ C_word tmp; C_word t1; C_stack_overflow_check;{} return(( /* library.scm:1917: body2051 */ f_12046(((C_word*)t0)[2],C_SCHEME_TRUE) ));} /* round-to in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ static void C_fcall f_23834(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_23834,3,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23842,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23854,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* library.scm:5040: expt */ t6=*((C_word*)lf[277]+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);}} /* errno in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_ccall f_22172(C_word c,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_22172,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* sqrt in k6799 */ static void C_ccall f_9711(C_word c,C_word *av){ C_word tmp; C_word 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,1)))){ C_save_and_reclaim((void *)f_9711,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_sqrt(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* atan in k6799 */ static void C_ccall f_9714(C_word c,C_word *av){ C_word tmp; C_word 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,1)))){ C_save_and_reclaim((void*)f_9714,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; if(C_truep(C_i_nullp(t3))){ t4=C_a_i_atan(&a,1,t2); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_car(t3); t5=C_a_i_atan2(&a,2,t2,t4); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* readln in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_fcall f_22186(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_22186,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22190,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:4543: open-output-string */ t4=*((C_word*)lf[706]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k24544 in k24533 in k24530 in k24527 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_24546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_24546,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24550,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3938: get-output-string */ t3=*((C_word*)lf[708]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k24538 in g4220 in k24533 in k24530 in k24527 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_24540,2,av);} /* library.scm:3937: ##sys#print */ t2=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop4219 in k24533 in k24530 in k24527 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_fcall f_24552(C_word t0,C_word t1,C_word 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_24552,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_24562,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:3937: g4220 */ t5=((C_word*)t0)[3]; f_24536(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);}}} /* k24548 in k24544 in k24533 in k24530 in k24527 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_24550(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_24550,2,av);} t2=C_halt(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k22150 in loop in interrupt-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in ... */ static void C_ccall f_22152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_22152,2,av);} t2=C_i_pending_interrupt(C_SCHEME_FALSE); /* library.scm:4507: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_22142(t3,((C_word*)t0)[3],t2);} /* ##sys#update-errno in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_ccall f_22168(C_word c,C_word *av){ 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_22168,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_fix((C_word)errno)); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#dispatch-interrupt in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_ccall f_22161(C_word c,C_word *av){ C_word tmp; C_word 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_22161,3,av);} t3=C_i_pending_interrupt(C_SCHEME_FALSE); /* library.scm:4514: ##sys#interrupt-hook */ t4=*((C_word*)lf[978]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20280 in k20272 in k20252 in k20249 in signal-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,2)))){ C_save_and_reclaim((void *)f_20282,2,av);} a=C_alloc(28); t2=C_a_i_list8(&a,8,lf[806],((C_word*)t0)[2],lf[807],((C_word*)t0)[3],lf[808],t1,lf[809],((C_word*)t0)[4]); t3=C_a_i_record3(&a,3,lf[680],((C_word*)t0)[5],t2); /* library.scm:4030: ##sys#abort */ t4=*((C_word*)lf[802]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k24533 in k24530 in k24527 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in ... */ static void C_ccall f_24535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_24535,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24536,a[2]=((C_word*)t0)[2],a[3]=((C_word)li859),tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24546,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_24552,a[2]=t6,a[3]=t2,a[4]=((C_word)li860),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_24552(t8,t4,t3);} /* g4220 in k24533 in k24530 in k24527 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_fcall f_24536(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_24536,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24540,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:3937: ##sys#print */ t4=*((C_word*)lf[638]+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);}} /* k24530 in k24527 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in ... */ static void C_ccall f_24532(C_word c,C_word *av){ C_word tmp; C_word t0=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_24532,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24535,a[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:3936: ##sys#print */ t3=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20272 in k20252 in k20249 in signal-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_fcall f_20274(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_20274,2,t0,t1);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20282,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:4051: ##sys#get-call-chain */ t4=*((C_word*)lf[780]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k23895 in pmem in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_23897(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_23897,2,av);} /* library.scm:5045: pnum */ f_23818(((C_word*)t0)[3],t1);} /* k23888 in pmem in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_23890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_23890,2,av);} t2=((C_word*)t0)[2]; /* library.scm:5035: ##sys#print */ t3=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1070]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k23864 in pmem in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_23866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_23866,2,av);} t2=((C_word*)t0)[2]; /* library.scm:5035: ##sys#print */ t3=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1069]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k24560 in for-each-loop4219 in k24533 in k24530 in k24527 in k24427 in a24424 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24562,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_24552(t3,((C_word*)t0)[4],t2);} /* k23871 in pmem in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_23873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_23873,2,av);} /* library.scm:5043: pnum */ f_23818(((C_word*)t0)[3],t1);} /* k23840 in round-to in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_23842(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_23842,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23846,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:5040: expt */ t4=*((C_word*)lf[277]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[1067]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k23844 in k23840 in round-to in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in ... */ static void C_ccall f_23846(C_word c,C_word *av){ C_word tmp; 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_23846,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_divide(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#surrogates->codepoint in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in ... */ static void C_ccall f_16683(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_16683,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* pmem in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ static void C_fcall f_23856(C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_23856,3,t0,t1,t2);} a=C_alloc(11); if(C_truep(C_i_greaterp(t2,lf[1068]))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23866,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23873,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_a_i_divide(&a,2,t2,lf[1068]); /* library.scm:5043: round-to */ f_23834(t4,t5,C_fix(2));} else{ if(C_truep(C_i_greaterp(t2,C_fix(1048576)))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23890,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23897,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_a_i_divide(&a,2,t2,C_fix(1048576)); /* library.scm:5045: round-to */ f_23834(t4,t5,C_fix(2));} else{ if(C_truep(C_i_greaterp(t2,C_fix(1024)))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23914,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23921,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_a_i_divide(&a,2,t2,C_fix(1024)); /* library.scm:5047: round-to */ f_23834(t4,t5,C_fix(2));} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23928,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:5048: pnum */ f_23818(t3,t2);}}}} /* k23852 in round-to in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_23854(C_word c,C_word *av){ C_word tmp; C_word t0=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_23854,2,av);} a=C_alloc(4); t2=C_a_i_times(&a,2,((C_word*)t0)[2],t1); /* library.scm:5040: round */ t3=*((C_word*)lf[305]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20211 in for-each-loop4319 in k20179 in k20176 in k20173 in signal-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in ... */ static void C_ccall f_20213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_20213,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_20203(t3,((C_word*)t0)[4],t2);} /* ##sys#unicode-surrogate? in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in ... */ static void C_ccall f_16671(C_word c,C_word *av){ C_word tmp; C_word 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_16671,3,av);} t3=C_fixnum_less_or_equal_p(C_fix(55296),t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* for-each-loop4319 in k20179 in k20176 in k20173 in signal-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in ... */ static void C_fcall f_20203(C_word t0,C_word 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_20203,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_20213,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_20188,a[2]=t5,a[3]=((C_word)li684),tmp=(C_word)a,a+=4,tmp); /* library.scm:4016: ##sys#with-print-length-limit */ t7=*((C_word*)lf[690]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t3; av2[2]=C_fix(400); 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);}}} /* k18516 in k18477 in a18474 in a18468 in a18462 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_18518(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18518,2,av);} /* library.scm:3424: ##sys#print */ t2=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a18519 in a18462 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_18520(C_word c,C_word *av){ C_word tmp; 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_18520,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18526,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li606),tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18535,a[2]=((C_word*)t0)[5],a[3]=((C_word)li608),tmp=(C_word)a,a+=4,tmp); /* library.scm:3421: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* k14989 in k14980 in loop in r-xtoken in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_fcall f_14991(C_word 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_14991,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14997,a[2]=((C_word*)t0)[2],a[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[574]); if(C_truep(t3)){ t4=C_i_cdr(((C_word*)t0)[4]); t5=C_i_nullp(t4); t6=t2; f_14997(t6,C_i_not(t5));} else{ t4=t2; f_14997(t4,C_SCHEME_FALSE);}} else{ t3=t2; f_14997(t3,C_SCHEME_FALSE);}} else{ if(C_truep(C_i_memq(((C_word*)t0)[8],((C_word*)((C_word*)t0)[9])[1]))){ /* library.scm:2721: reserved-character */ t2=((C_word*)((C_word*)t0)[10])[1]; f_13604(t2,((C_word*)t0)[3],((C_word*)t0)[8]);} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_15055,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:2723: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[13]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} /* a18525 in a18519 in a18462 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_18526(C_word c,C_word *av){ 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_18526,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* library.scm:3421: g3686 */ t3=t2;{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14995 in k14989 in k14980 in loop in r-xtoken in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_fcall f_14997(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_14997,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15004,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:2717: ##sys#reverse-list->string */ t4=*((C_word*)lf[158]+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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15015,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:2718: ##sys#reverse-list->string */ t3=*((C_word*)lf[158]+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);}}} /* file-exists? in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ 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(7,c,2)))){ C_save_and_reclaim((void *)f_12568,3,av);} a=C_alloc(7); t3=C_i_check_string_2(t2,lf[491]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12578,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12582,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* library.scm:2056: ##sys#platform-fixup-pathname */ t6=*((C_word*)lf[467]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k14980 in loop in r-xtoken in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_14982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_14982,2,av);} a=C_alloc(15); t2=t1; t3=C_eofp(t2); t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_14991,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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_14991(t5,t3);} else{ t5=C_u_i_char_whitespacep(t2); t6=t4; f_14991(t6,(C_truep(t5)?t5:C_i_memq(t2,((C_word*)t0)[14])));}} /* current-output-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in ... */ static void C_ccall f_12092(C_word c,C_word *av){ C_word tmp; 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_12092,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[454]+1); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=*((C_word*)lf[454]+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_12105,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:1925: ##sys#check-port */ t6=*((C_word*)lf[437]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=lf[460]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k12576 in file-exists? in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_12578,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* r-xtoken in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_14972(C_word t0,C_word t1,C_word 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_14972,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_14978,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)li542),tmp=(C_word)a,a+=13,tmp)); t8=((C_word*)t6)[1]; f_14978(t8,t1,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} /* loop in r-xtoken in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_fcall f_14978(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_14978,4,t0,t1,t2,t3);} a=C_alloc(15); t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_14982,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:2709: ##sys#peek-char-0 */ t5=*((C_word*)lf[525]+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);}} /* make-promise in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in ... */ 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=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_23087,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23094,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:4811: promise? */ t4=*((C_word*)lf[1029]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12580 in file-exists? in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_12582,2,av);} /* library.scm:2055: ##sys#file-exists? */ t2=*((C_word*)lf[489]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; av2[5]=lf[491]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* promise? in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in ... */ static void C_ccall f_23081(C_word c,C_word *av){ C_word tmp; C_word 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_23081,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[80]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* directory-exists? in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 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=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_12584,3,av);} a=C_alloc(7); t3=C_i_check_string_2(t2,lf[492]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12594,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12598,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* library.scm:2063: ##sys#platform-fixup-pathname */ t6=*((C_word*)lf[467]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k14962 in k14955 in a14952 in r-symbol in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_14964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14964,2,av);} /* library.scm:2704: info */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13558(t2,((C_word*)t0)[3],lf[579],((C_word*)t0)[4],t1);} /* a23098 in k23092 in make-promise in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in ... */ static void C_ccall f_23099(C_word c,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_23099,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k23092 in make-promise in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in ... */ static void C_ccall f_23094(C_word c,C_word *av){ C_word tmp; C_word t0=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_23094,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_23099,a[2]=((C_word*)t0)[2],a[3]=((C_word)li808),tmp=(C_word)a,a+=4,tmp); /* library.scm:4812: ##sys#make-promise */ t3=*((C_word*)lf[1028]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k12592 in directory-exists? in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static void C_ccall f_12594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12594,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k12596 in directory-exists? in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_12598,2,av);} /* library.scm:2062: ##sys#file-exists? */ t2=*((C_word*)lf[489]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; av2[5]=lf[492]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k15804 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_15806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_15806,2,av);} a=C_alloc(12); t2=C_a_i_string_to_number(&a,2,t1,C_fix(10)); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15726,a[2]=((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],tmp=(C_word)a,a+=8,tmp); /* library.scm:2867: ##sys#peek-char-0 */ t5=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18577 in k18549 in k18546 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_18579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_18579,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(6)); /* library.scm:3441: ##sys#print */ t3=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#make-promise in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in ... */ static void C_ccall f_23075(C_word c,C_word *av){ C_word tmp; C_word 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_23075,3,av);} a=C_alloc(3); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record2(&a,2,lf[80],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k17972 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_17974(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17974,2,av);} /* library.scm:3320: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17316(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k15849 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15851,2,av);} /* library.scm:2896: r-number-with-exactness */ t2=((C_word*)((C_word*)t0)[2])[1]; f_14713(t2,((C_word*)t0)[3],C_fix(16));} /* k17938 in k17931 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_17940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17940,2,av);} /* library.scm:3316: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17316(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* break in user-interrupt-hook in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in ... */ static void C_ccall f_20002(C_word c,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_20002,2,av);} /* library.scm:3892: ##sys#signal-hook */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=lf[782]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a18534 in a18519 in a18462 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 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; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_18535,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_18541,a[2]=t2,a[3]=((C_word)li607),tmp=(C_word)a,a+=4,tmp); /* library.scm:3421: k3673 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a12502 in k12476 in with-input-from-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ static void C_ccall f_12503(C_word c,C_word *av){ C_word tmp; 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_12503,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[453]+1)); t3=C_mutate2((C_word*)lf[453]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k17962 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_17964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17964,2,av);} /* library.scm:3319: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17316(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* a18540 in a18534 in a18519 in a18462 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_18541(C_word c,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_18541,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* a15819 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 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 *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_15820,2,av);} /* library.scm:2892: h */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18546 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_18548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18548,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18551,a[2]=((C_word*)t0)[2],a[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_18594,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:3434: ##sys#symbol->string */ t4=*((C_word*)lf[341]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12510 in with-output-to-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ 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 t3; 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_12512,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_12517,a[2]=t6,a[3]=t4,a[4]=((C_word)li459),tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12522,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li461),tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12537,a[2]=t4,a[3]=t6,a[4]=((C_word)li462),tmp=(C_word)a,a+=5,tmp); /* library.scm:2034: ##sys#dynamic-wind */ t10=*((C_word*)lf[423]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* with-output-to-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ 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=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_12508,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_12512,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18549 in k18546 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ 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; 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_18551,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18554,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[680]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18563,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:3437: ##sys#print */ t5=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=lf[686]; 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[687]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18579,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:3440: ##sys#print */ t6=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[688]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ /* library.scm:3442: ##sys#write-char-0 */ t5=*((C_word*)lf[633]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(62); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* k18552 in k18549 in k18546 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_18554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18554,2,av);} /* library.scm:3442: ##sys#write-char-0 */ t2=*((C_word*)lf[633]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a12521 in k12510 in with-output-to-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ static void C_ccall f_12522(C_word c,C_word *av){ 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_12522,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12528,a[2]=((C_word*)t0)[2],a[3]=((C_word)li460),tmp=(C_word)a,a+=4,tmp); /* library.scm:2039: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in k25463 in a25457 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_fcall f_25478(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_25478,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(t8)){ if(C_truep(C_fixnum_lessp(t8,C_fix(0)))){ t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25543,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:1861: ##sys#update-errno */ t10=*((C_word*)lf[86]+1);{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(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_25602,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* library.scm:1875: ##sys#substring */ t13=*((C_word*)lf[162]+1);{ C_word av2[5]; av2[0]=t13; av2[1]=t12; av2[2]=t4; av2[3]=C_fix(0); av2[4]=t8; ((C_proc)(void*)(*((C_word*)t13+1)))(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:1878: ##sys#substring */ t12=*((C_word*)lf[162]+1);{ C_word av2[5]; av2[0]=t12; av2[1]=t1; av2[2]=t4; av2[3]=C_fix(0); av2[4]=t8; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}}} else{ if(C_truep(C_fixnum_lessp(t3,t2))){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25511,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* library.scm:1854: ##sys#substring */ t10=*((C_word*)lf[162]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t9; av2[2]=t4; av2[3]=C_fix(0); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(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_25526,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:1857: ##sys#make-string */ t15=*((C_word*)lf[149]+1);{ C_word av2[3]; av2[0]=t15; av2[1]=t13; av2[2]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}}}} /* a15825 in k15810 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_15826(C_word c,C_word *av){ C_word tmp; 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_15826,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:2893: readrec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_13628(t3,t1);} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a12516 in k12510 in with-output-to-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ static void C_ccall f_12517(C_word c,C_word *av){ C_word tmp; 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_12517,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[454]+1)); t3=C_mutate2((C_word*)lf[454]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* doloop3573 in k17981 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_fcall f_17989(C_word t0,C_word t1,C_word 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_17989,4,t0,t1,t2,t3);} a=C_alloc(13); t4=C_eqp(t3,C_fix(0)); if(C_truep(t4)){ /* library.scm:3327: outchr */ t5=((C_word*)((C_word*)t0)[2])[1]; f_17388(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_18002,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:3330: outstr */ t7=((C_word*)((C_word*)t0)[6])[1]; f_17316(t7,t6,((C_word*)t0)[3],lf[660]); case C_fix(92): /* library.scm:3331: outstr */ t7=((C_word*)((C_word*)t0)[6])[1]; f_17316(t7,t6,((C_word*)t0)[3],lf[661]); 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_18040,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:3335: outchr */ t10=((C_word*)((C_word*)t0)[2])[1]; f_17388(t10,t9,((C_word*)t0)[3],C_make_character(92));} else{ t9=C_fix_to_char(t5); /* library.scm:3348: outchr */ t10=((C_word*)((C_word*)t0)[2])[1]; f_17388(t10,t6,((C_word*)t0)[3],t9);}}}} /* k13814 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_13816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13816,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_make_character(9),((C_word*)t0)[2]); /* library.scm:2472: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_13786(t3,((C_word*)t0)[4],t1,t2);} /* k17981 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_17983,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_17989,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)li596),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_17989(t6,((C_word*)t0)[6],C_fix(0),t2);} /* k18561 in k18549 in k18546 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_18563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_18563,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* library.scm:3438: ##sys#print */ t3=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12530 in a12527 in a12521 in k12510 in with-output-to-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12532,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a12527 in a12521 in k12510 in with-output-to-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in ... */ static void C_ccall f_12528(C_word c,C_word *av){ C_word tmp; 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_12528,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_12532,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:2041: close-output-port */ t4=*((C_word*)lf[484]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_13803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word 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_13803,2,av);} a=C_alloc(9); t2=C_mutate2(((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_13816,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:2472: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);} case C_make_character(114): t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13833,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:2473: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);} case C_make_character(98): t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13850,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:2474: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);} case C_make_character(110): t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13867,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:2475: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);} case C_make_character(97): t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13884,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:2476: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);} case C_make_character(118): t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13905,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:2477: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);} case C_make_character(102): t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13926,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:2478: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);} case C_make_character(120): t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13958,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:2480: r-usequence */ t5=((C_word*)((C_word*)t0)[7])[1]; f_13679(t5,t4,lf[554],C_fix(2),C_fix(16)); case C_make_character(117): t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13967,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:2483: r-usequence */ t5=((C_word*)((C_word*)t0)[7])[1]; f_13679(t5,t4,lf[560],C_fix(4),C_fix(16)); case C_make_character(85): t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14041,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:2496: r-usequence */ t5=((C_word*)((C_word*)t0)[7])[1]; f_13679(t5,t4,lf[562],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_14070,a[2]=((C_word*)t0)[2],a[3]=((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_14070(t6,t4);} else{ t6=C_eqp(t3,C_make_character(39)); if(C_truep(t6)){ t7=t5; f_14070(t7,t6);} else{ t7=C_eqp(t3,C_make_character(34)); t8=t5; f_14070(t8,(C_truep(t7)?t7:C_eqp(t3,C_make_character(124))));}}}} /* ##sys#file-exists? in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_ccall f_12542(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_12542,6,av);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12547,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=t5,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* library.scm:2045: ##sys#make-c-string */ t7=*((C_word*)lf[37]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k24218 in loop in drop-right in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_24220(C_word c,C_word *av){ C_word tmp; 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_24220,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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#take-right in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_ccall f_24228(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_24228,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_24238,a[2]=t3,a[3]=t6,a[4]=((C_word)li845),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_24238(t8,t1,t4,t2);} /* a12536 in k12510 in with-output-to-file in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 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 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_12537,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[454]+1)); t3=C_mutate2((C_word*)lf[454]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k18498 in k18495 in k18480 in k18477 in a18474 in a18468 in a18462 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_18500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18500,2,av);} /* library.scm:3429: ##sys#write-char-0 */ t2=*((C_word*)lf[633]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k13831 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_13833,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_make_character(13),((C_word*)t0)[2]); /* library.scm:2473: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_13786(t3,((C_word*)t0)[4],t1,t2);} /* k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in ... */ static void C_ccall f_20026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_20026,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[785]+1 /* (set! ##sys#error-handler ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20030,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24416,a[2]=((C_word)li856),tmp=(C_word)a,a+=3,tmp); /* library.scm:3941: make-parameter */ t5=*((C_word*)lf[520]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* loop in take-right in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ static void C_fcall f_24238(C_word t0,C_word t1,C_word 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; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_24238,4,t0,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_i_greaterp(t2,((C_word*)t0)[2]))){ t4=C_a_i_minus(&a,2,t2,C_fix(1)); t5=C_i_cdr(t3); /* library.scm:5140: loop */ t7=t1; t8=t4; t9=t5; t1=t7; t2=t8; t3=t9; 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);}}} /* k12545 in file-exists? in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static void C_ccall f_12547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12547,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} default: /* library.scm:2049: ##sys#signal-hook */ t3=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=lf[440]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[490]; av2[5]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* k20097 in loop in k20052 in cleanup-before-exit in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_ccall f_20099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20099,2,av);} /* library.scm:3982: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20080(t2,((C_word*)t0)[3]);} /* k13848 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ 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(3,c,3)))){ C_save_and_reclaim((void *)f_13850,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_make_character(8),((C_word*)t0)[2]); /* library.scm:2474: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_13786(t3,((C_word*)t0)[4],t1,t2);} /* loop in k20052 in cleanup-before-exit in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_fcall f_20080(C_word t0,C_word t1){ C_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_20080,2,t0,t1);} a=C_alloc(10); t2=*((C_word*)lf[792]+1); t3=C_set_block_item(lf[792] /* ##sys#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[417]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20099,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_20104,a[2]=t7,a[3]=((C_word)li679),tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_20104(t9,t5,t2);}} /* a24257 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_24258(C_word c,C_word *av){ C_word tmp; C_word 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_24258,3,av);} t3=C_i_check_symbol_2(t2,lf[1063]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#make-blob in k6799 */ 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=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_10534,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10538,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:1323: ##sys#allocate-vector */ t4=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10536 in make-blob in k6799 */ static void C_ccall f_10538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10538,2,av);} t2=C_string_to_bytevector(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k17912 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_17914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17914,2,av);} /* library.scm:3311: outchr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17388(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(58));} /* k20249 in signal-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_fcall f_20251(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_20251,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20254,a[2]=((C_word*)t0)[2],a[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_20254(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_20254(t5,(C_truep(t4)?C_i_pairp(((C_word*)t0)[3]):C_SCHEME_FALSE));}} /* k20252 in k20249 in signal-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_fcall f_20254(C_word t0,C_word t1){ C_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_20254,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_20274,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[56]); if(C_truep(t10)){ t11=t9; f_20274(t11,lf[810]);} else{ t11=C_eqp(t8,lf[543]); if(C_truep(t11)){ t12=t9; f_20274(t12,lf[811]);} else{ t12=C_eqp(t8,lf[151]); if(C_truep(t12)){ t13=t9; f_20274(t13,lf[812]);} else{ t13=C_eqp(t8,lf[813]); if(C_truep(t13)){ t14=t9; f_20274(t14,lf[814]);} else{ t14=C_eqp(t8,lf[440]); if(C_truep(t14)){ t15=t9; f_20274(t15,lf[815]);} else{ t15=C_eqp(t8,lf[816]); if(C_truep(t15)){ t16=t9; f_20274(t16,lf[817]);} else{ t16=C_eqp(t8,lf[84]); if(C_truep(t16)){ t17=t9; f_20274(t17,lf[818]);} else{ t17=C_eqp(t8,lf[819]); if(C_truep(t17)){ t18=t9; f_20274(t18,lf[820]);} else{ t18=C_eqp(t8,lf[821]); if(C_truep(t18)){ t19=t9; f_20274(t19,lf[822]);} else{ t19=C_eqp(t8,lf[823]); if(C_truep(t19)){ t20=t9; f_20274(t20,lf[824]);} else{ t20=C_eqp(t8,lf[825]); if(C_truep(t20)){ t21=t9; f_20274(t21,lf[826]);} else{ t21=C_eqp(t8,lf[827]); if(C_truep(t21)){ t22=t9; f_20274(t22,lf[828]);} else{ t22=C_eqp(t8,lf[829]); if(C_truep(t22)){ t23=t9; f_20274(t23,lf[830]);} else{ t23=C_eqp(t8,lf[831]); t24=t9; f_20274(t24,(C_truep(t23)?lf[832]:lf[833]));}}}}}}}}}}}}}} /* a24266 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_24267(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,5)))){ C_save_and_reclaim((void *)f_24267,4,av);} t4=C_i_check_symbol_2(t2,lf[1063]); t5=C_i_check_list_2(t3,lf[1088]); t6=C_i_length(t3); if(C_truep(C_i_fixnumevenp(t6))){ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_i_setslot(t2,C_fix(2),t3); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ /* library.scm:5011: ##sys#signal-hook */ t7=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t1; av2[2]=lf[56]; av2[3]=lf[1089]; av2[4]=t3; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}} /* get-keyword in k6799 */ 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=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_10506,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; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=C_i_check_list_2(t3,lf[360]); t8=C_i_get_keyword(t2,t3,((C_word*)t0)[2]); t9=C_eqp(t8,((C_word*)t0)[2]); if(C_truep(t9)){ if(C_truep(t6)){ /* library.scm:1314: thunk */ t10=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t10))(2,av2);}} else{ t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} else{ t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* k17931 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_17933(C_word c,C_word *av){ C_word tmp; C_word t0=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_17933,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17940,a[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:3316: ##sys#symbol->qualified-string */ t3=*((C_word*)lf[342]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ /* library.scm:3318: outsym */ t2=((C_word*)((C_word*)t0)[6])[1]; f_17448(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}} /* k20052 in cleanup-before-exit in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_20054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_20054,2,av);} a=C_alloc(9); t2=C_fudge(C_fix(45)); t3=(C_truep(t2)?C_i_dump_statistical_profile():C_SCHEME_UNDEFINED); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20060,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|3,a[1]=(C_word)f_20080,a[2]=t6,a[3]=((C_word)li680),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_20080(t8,t4);} /* k20228 in k20176 in k20173 in signal-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_fcall f_20230(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_20230,2,t0,t1);} if(C_truep(t1)){ /* library.scm:4012: ##sys#write-char-0 */ t2=*((C_word*)lf[633]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ /* library.scm:4013: ##sys#print */ t2=*((C_word*)lf[638]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[803]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* loop in drop-right in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ static void C_fcall f_24202(C_word t0,C_word t1,C_word 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(8,0,3)))){ C_save_and_reclaim_args((void *)trf_24202,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_greaterp(t2,((C_word*)t0)[2]))){ t4=C_i_car(t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24220,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_a_i_minus(&a,2,t2,C_fix(1)); t8=t3; t9=C_u_i_cdr(t8); /* library.scm:5131: loop */ t11=t6; t12=t7; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;} 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);}}} /* string->blob in k6799 */ static void C_ccall f_10564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10564,3,av);} a=C_alloc(5); t3=C_i_check_string_2(t2,lf[366]); t4=C_block_size(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10574,a[2]=t2,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:1342: ##sys#make-blob */ t7=*((C_word*)lf[362]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k17900 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_17902(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17902,2,av);} /* library.scm:3308: outsym */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17448(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* ##sys#cleanup-before-exit in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 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 *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_20049,2,av);} a=C_alloc(6); t2=lf[787] /* exit-in-progress */ =C_SCHEME_TRUE;; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20054,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fudge(C_fix(37)))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20134,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* library.scm:3973: ##sys#print */ t5=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=lf[797]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_20054(2,av2);}}} /* k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in ... */ static void C_ccall f_20046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(219,c,7)))){ C_save_and_reclaim((void *)f_20046,2,av);} a=C_alloc(219); t2=C_mutate2((C_word*)lf[791]+1 /* (set! force-finalizers ...) */,t1); t3=C_set_block_item(lf[792] /* ##sys#cleanup-tasks */,0,C_SCHEME_END_OF_LIST); t4=C_mutate2((C_word*)lf[793]+1 /* (set! ##sys#cleanup-before-exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20049,a[2]=((C_word)li681),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[798]+1 /* (set! on-exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20139,a[2]=((C_word)li682),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[799]+1 /* (set! ##sys#debugger ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20146,a[2]=((C_word)li683),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[8]+1 /* (set! ##sys#signal-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20149,a[2]=((C_word)li686),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[834]+1 /* (set! abort ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20433,a[2]=((C_word)li687),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[841]+1 /* (set! signal ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20450,a[2]=((C_word)li688),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[802]+1 /* (set! ##sys#abort ...) */,*((C_word*)lf[834]+1)); t11=C_mutate2((C_word*)lf[842]+1 /* (set! ##sys#signal ...) */,*((C_word*)lf[841]+1)); t12=C_set_block_item(lf[843] /* ##sys#last-exception */,0,C_SCHEME_FALSE); t13=C_mutate2((C_word*)lf[840]+1 /* (set! ##sys#current-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20459,a[2]=((C_word)li689),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[685]+1 /* (set! with-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20619,a[2]=((C_word)li692),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[859]+1 /* (set! current-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20633,a[2]=((C_word)li694),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[860]+1 /* (set! make-property-condition ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20694,a[2]=((C_word)li696),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[861]+1 /* (set! make-composite-condition ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20743,a[2]=((C_word)li700),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2((C_word*)lf[863]+1 /* (set! condition? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20883,a[2]=((C_word)li701),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2((C_word*)lf[864]+1 /* (set! condition->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20889,a[2]=((C_word)li705),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2((C_word*)lf[866]+1 /* (set! condition-predicate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21009,a[2]=((C_word)li707),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate2((C_word*)lf[867]+1 /* (set! condition-property-accessor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21030,a[2]=((C_word)li709),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate2((C_word*)lf[869]+1 /* (set! get-condition-property ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21076,a[2]=((C_word)li710),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate2((C_word*)lf[75]+1 /* (set! ##sys#error-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21085,a[2]=((C_word)li711),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate2((C_word*)lf[919]+1 /* (set! ##sys#structure? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21653,a[2]=((C_word)li712),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate2((C_word*)lf[920]+1 /* (set! ##sys#generic-structure? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21656,a[2]=((C_word)li713),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate2((C_word*)lf[921]+1 /* (set! ##sys#slot ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21659,a[2]=((C_word)li714),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate2((C_word*)lf[922]+1 /* (set! ##sys#size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21662,a[2]=((C_word)li715),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate2((C_word*)lf[923]+1 /* (set! ##sys#make-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_make_pointer,a[2]=((C_word)li716),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate2((C_word*)lf[924]+1 /* (set! ##sys#make-tagged-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_make_tagged_pointer,a[2]=((C_word)li717),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate2((C_word*)lf[925]+1 /* (set! ##sys#pointer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21667,a[2]=((C_word)li718),tmp=(C_word)a,a+=3,tmp)); t31=C_mutate2((C_word*)lf[926]+1 /* (set! ##sys#set-pointer-address! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21670,a[2]=((C_word)li719),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate2((C_word*)lf[927]+1 /* (set! ##sys#bytevector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21673,a[2]=((C_word)li720),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate2((C_word*)lf[928]+1 /* (set! ##sys#string->pbytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21676,a[2]=((C_word)li721),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate2((C_word*)lf[929]+1 /* (set! ##sys#permanent? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21679,a[2]=((C_word)li722),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate2((C_word*)lf[930]+1 /* (set! ##sys#block-address ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21682,a[2]=((C_word)li723),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate2((C_word*)lf[931]+1 /* (set! ##sys#locative? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21685,a[2]=((C_word)li724),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate2((C_word*)lf[932]+1 /* (set! ##sys#srfi-4-vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21688,a[2]=((C_word)li725),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate2((C_word*)lf[934]+1 /* (set! ##sys#null-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21705,a[2]=((C_word)li726),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate2((C_word*)lf[935]+1 /* (set! ##sys#null-pointer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21711,a[2]=((C_word)li727),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate2((C_word*)lf[936]+1 /* (set! ##sys#address->pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21721,a[2]=((C_word)li728),tmp=(C_word)a,a+=3,tmp)); t41=C_mutate2((C_word*)lf[714]+1 /* (set! ##sys#pointer->address ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21727,a[2]=((C_word)li729),tmp=(C_word)a,a+=3,tmp)); t42=C_mutate2((C_word*)lf[37]+1 /* (set! ##sys#make-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21734,a[2]=((C_word)li730),tmp=(C_word)a,a+=3,tmp)); t43=C_mutate2((C_word*)lf[937]+1 /* (set! ##sys#peek-signed-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_peek_signed_integer,a[2]=((C_word)li731),tmp=(C_word)a,a+=3,tmp)); t44=C_mutate2((C_word*)lf[463]+1 /* (set! ##sys#peek-unsigned-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_peek_unsigned_integer,a[2]=((C_word)li732),tmp=(C_word)a,a+=3,tmp)); t45=C_mutate2((C_word*)lf[938]+1 /* (set! ##sys#peek-fixnum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21769,a[2]=((C_word)li733),tmp=(C_word)a,a+=3,tmp)); t46=C_mutate2((C_word*)lf[939]+1 /* (set! ##sys#peek-byte ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21772,a[2]=((C_word)li734),tmp=(C_word)a,a+=3,tmp)); t47=C_mutate2((C_word*)lf[940]+1 /* (set! ##sys#vector->structure! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21775,a[2]=((C_word)li735),tmp=(C_word)a,a+=3,tmp)); t48=C_mutate2((C_word*)lf[941]+1 /* (set! ##sys#peek-double ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21778,a[2]=((C_word)li736),tmp=(C_word)a,a+=3,tmp)); t49=C_mutate2((C_word*)lf[36]+1 /* (set! ##sys#peek-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21781,a[2]=((C_word)li737),tmp=(C_word)a,a+=3,tmp)); t50=C_mutate2((C_word*)lf[771]+1 /* (set! ##sys#peek-nonnull-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21797,a[2]=((C_word)li738),tmp=(C_word)a,a+=3,tmp)); t51=C_mutate2((C_word*)lf[942]+1 /* (set! ##sys#peek-and-free-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21803,a[2]=((C_word)li739),tmp=(C_word)a,a+=3,tmp)); t52=C_mutate2((C_word*)lf[943]+1 /* (set! ##sys#peek-and-free-nonnull-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21819,a[2]=((C_word)li740),tmp=(C_word)a,a+=3,tmp)); t53=C_mutate2((C_word*)lf[944]+1 /* (set! ##sys#poke-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21825,a[2]=((C_word)li741),tmp=(C_word)a,a+=3,tmp)); t54=C_mutate2((C_word*)lf[945]+1 /* (set! ##sys#poke-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21832,a[2]=((C_word)li742),tmp=(C_word)a,a+=3,tmp)); t55=C_mutate2((C_word*)lf[946]+1 /* (set! ##sys#poke-double ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21835,a[2]=((C_word)li743),tmp=(C_word)a,a+=3,tmp)); t56=C_mutate2((C_word*)lf[947]+1 /* (set! ##sys#peek-c-string-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21855,a[2]=((C_word)li745),tmp=(C_word)a,a+=3,tmp)); t57=C_mutate2((C_word*)lf[948]+1 /* (set! ##sys#peek-and-free-c-string-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21916,a[2]=((C_word)li747),tmp=(C_word)a,a+=3,tmp)); t58=C_mutate2((C_word*)lf[949]+1 /* (set! ##sys#vector->closure! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21954,a[2]=((C_word)li748),tmp=(C_word)a,a+=3,tmp)); t59=C_mutate2((C_word*)lf[950]+1 /* (set! ##sys#symbol-has-toplevel-binding? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21957,a[2]=((C_word)li749),tmp=(C_word)a,a+=3,tmp)); t60=C_mutate2((C_word*)lf[697]+1 /* (set! ##sys#copy-bytes ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21975,a[2]=((C_word)li750),tmp=(C_word)a,a+=3,tmp)); t61=C_mutate2((C_word*)lf[951]+1 /* (set! ##sys#copy-words ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21982,a[2]=((C_word)li751),tmp=(C_word)a,a+=3,tmp)); t62=C_mutate2((C_word*)lf[952]+1 /* (set! ##sys#compare-bytes ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21989,a[2]=((C_word)li752),tmp=(C_word)a,a+=3,tmp)); t63=C_mutate2((C_word*)lf[953]+1 /* (set! ##sys#block-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21992,a[2]=((C_word)li753),tmp=(C_word)a,a+=3,tmp)); t64=C_mutate2((C_word*)lf[954]+1 /* (set! ##sys#foreign-char-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21998,a[2]=((C_word)li754),tmp=(C_word)a,a+=3,tmp)); t65=C_mutate2((C_word*)lf[955]+1 /* (set! ##sys#foreign-fixnum-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22001,a[2]=((C_word)li755),tmp=(C_word)a,a+=3,tmp)); t66=C_mutate2((C_word*)lf[956]+1 /* (set! ##sys#foreign-flonum-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22004,a[2]=((C_word)li756),tmp=(C_word)a,a+=3,tmp)); t67=C_mutate2((C_word*)lf[957]+1 /* (set! ##sys#foreign-block-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22007,a[2]=((C_word)li757),tmp=(C_word)a,a+=3,tmp)); t68=C_mutate2((C_word*)lf[958]+1 /* (set! ##sys#foreign-struct-wrapper-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22010,a[2]=((C_word)li758),tmp=(C_word)a,a+=3,tmp)); t69=C_mutate2((C_word*)lf[959]+1 /* (set! ##sys#foreign-string-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22013,a[2]=((C_word)li759),tmp=(C_word)a,a+=3,tmp)); t70=C_mutate2((C_word*)lf[960]+1 /* (set! ##sys#foreign-symbol-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22016,a[2]=((C_word)li760),tmp=(C_word)a,a+=3,tmp)); t71=C_mutate2((C_word*)lf[961]+1 /* (set! ##sys#foreign-pointer-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22019,a[2]=((C_word)li761),tmp=(C_word)a,a+=3,tmp)); t72=C_mutate2((C_word*)lf[962]+1 /* (set! ##sys#foreign-tagged-pointer-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22022,a[2]=((C_word)li762),tmp=(C_word)a,a+=3,tmp)); t73=C_mutate2((C_word*)lf[963]+1 /* (set! ##sys#foreign-integer-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22025,a[2]=((C_word)li763),tmp=(C_word)a,a+=3,tmp)); t74=C_mutate2((C_word*)lf[964]+1 /* (set! ##sys#foreign-integer64-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22028,a[2]=((C_word)li764),tmp=(C_word)a,a+=3,tmp)); t75=C_mutate2((C_word*)lf[965]+1 /* (set! ##sys#foreign-unsigned-integer-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22031,a[2]=((C_word)li765),tmp=(C_word)a,a+=3,tmp)); t76=C_mutate2((C_word*)lf[966]+1 /* (set! ##sys#foreign-unsigned-integer64-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22034,a[2]=((C_word)li766),tmp=(C_word)a,a+=3,tmp)); t77=C_set_block_item(lf[967] /* ##sys#default-thread-quantum */,0,C_fix(10000)); t78=C_mutate2((C_word*)lf[968]+1 /* (set! ##sys#default-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22038,a[2]=((C_word)li767),tmp=(C_word)a,a+=3,tmp)); t79=C_mutate2((C_word*)lf[970]+1 /* (set! ##sys#make-thread ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22041,a[2]=((C_word)li768),tmp=(C_word)a,a+=3,tmp)); t80=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22061,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4468: ##sys#make-thread */ t81=*((C_word*)lf[970]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t81; av2[1]=t80; av2[2]=C_SCHEME_FALSE; av2[3]=lf[1096]; av2[4]=lf[1097]; av2[5]=*((C_word*)lf[967]+1); ((C_proc)(void*)(*((C_word*)t81+1)))(6,av2);}} /* k15203 in k15191 in k15188 in r-char in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_15205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(5,c,2)))){ C_save_and_reclaim((void *)f_15205,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=t1; t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ 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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15222,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_fixnum_less_or_equal_p(C_fix(192),t3))){ if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(247)))){ t5=C_fixnum_shift_right(t3,C_fix(4)); t6=C_fixnum_and(t5,C_fix(3)); t7=C_fixnum_shift_right(t6,C_fix(1)); t8=C_fixnum_or(t6,t7); t9=C_fixnum_difference(t6,C_fix(1)); t10=C_fixnum_and(t8,t9); t11=C_fixnum_plus(C_fix(2),t10); t12=C_eqp(((C_word*)t0)[5],t11); if(C_truep(t12)){ t13=C_fixnum_difference(C_fix(8),t11); t14=C_fixnum_shift_left(C_fix(1),t13); t15=C_fixnum_difference(t14,C_fix(1)); t16=C_fixnum_and(t3,t15); t17=C_fixnum_shift_left(t16,C_fix(6)); t18=C_subchar(((C_word*)t0)[3],C_fix(1)); t19=C_fix(C_character_code(t18)); t20=C_fixnum_and(t19,C_fix(63)); t21=C_fixnum_plus(t17,t20); t22=t21; if(C_truep(t22)){ if(C_truep(C_fixnum_greater_or_equal_p(t11,C_fix(3)))){ t23=C_fixnum_shift_left(t22,C_fix(6)); t24=C_subchar(((C_word*)t0)[3],C_fix(2)); t25=C_fix(C_character_code(t24)); t26=C_fixnum_and(t25,C_fix(63)); t27=C_fixnum_plus(t23,t26); t28=t22=t27; t29=C_eqp(t11,C_fix(4)); if(C_truep(t29)){ t30=C_fixnum_shift_left(t22,C_fix(6)); t31=C_subchar(((C_word*)t0)[3],C_fix(3)); t32=C_fix(C_character_code(t31)); t33=C_fixnum_and(t32,C_fix(63)); t34=C_fixnum_plus(t30,t33); t35=t22=t34; t36=t4; f_15222(t36,C_make_character(C_unfix(t22)));} else{ t30=t4; f_15222(t30,C_make_character(C_unfix(t22)));}} else{ t23=t4; f_15222(t23,C_make_character(C_unfix(t22)));}} else{ t23=t4; f_15222(t23,C_SCHEME_FALSE);}} else{ t13=t4; f_15222(t13,C_SCHEME_FALSE);}} else{ t5=t4; f_15222(t5,C_SCHEME_FALSE);}} else{ t5=t4; f_15222(t5,C_SCHEME_FALSE);}}} /* k15236 in k15220 in k15203 in k15191 in k15188 in r-char in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_15238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15238,2,av);} /* library.scm:2782: char-name */ t2=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k10572 in string->blob in k6799 */ static void C_ccall f_10574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_10574,2,av);} t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* blob->string in k6799 */ static void C_ccall f_10576(C_word c,C_word *av){ C_word tmp; C_word 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_10576,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10580,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:1347: ##sys#check-blob */ t4=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[367]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_17957(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_17957,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17964,a[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:3319: ##sys#number->string */ t3=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_anypointerp(((C_word*)t0)[5]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17974,a[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:3320: ##sys#pointer->string */ t3=*((C_word*)lf[659]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_stringp(((C_word*)t0)[5]))){ if(C_truep(((C_word*)t0)[6])){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17983,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:3323: outchr */ t3=((C_word*)((C_word*)t0)[7])[1]; f_17388(t3,t2,((C_word*)t0)[4],C_make_character(34));} else{ /* library.scm:3349: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17316(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_18156,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:3351: outchr */ t3=((C_word*)((C_word*)t0)[7])[1]; f_17388(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_18229,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:3363: outstr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_17316(t3,t2,((C_word*)t0)[4],lf[663]);} else{ if(C_truep(C_structurep(((C_word*)t0)[5]))){ /* library.scm:3372: ##sys#user-print-hook */ t2=*((C_word*)lf[664]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } 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)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ if(C_truep(C_closurep(((C_word*)t0)[5]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18289,a[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:3373: ##sys#procedure->string */ t3=*((C_word*)lf[665]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_locativep(((C_word*)t0)[5]))){ /* library.scm:3374: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17316(t2,((C_word*)t0)[3],((C_word*)t0)[4],lf[666]);} else{ if(C_truep(C_lambdainfop(((C_word*)t0)[5]))){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18301,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:3376: outstr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_17316(t3,t2,((C_word*)t0)[4],lf[667]);} else{ if(C_truep(C_portp(((C_word*)t0)[5]))){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18317,a[2]=((C_word*)t0)[2],a[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*)t0)[5],C_fix(1)))){ /* library.scm:3381: outstr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_17316(t3,t2,((C_word*)t0)[4],lf[669]);} else{ /* library.scm:3382: outstr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_17316(t3,t2,((C_word*)t0)[4],lf[670]);}} 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:3388: outstr */ t4=((C_word*)((C_word*)t0)[2])[1]; f_17316(t4,((C_word*)t0)[3],((C_word*)t0)[4],lf[671]);} else{ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18351,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:3390: outstr */ t5=((C_word*)((C_word*)t0)[2])[1]; f_17316(t5,t4,((C_word*)t0)[4],lf[672]);}} else{ /* library.scm:3398: ##sys#error */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[673]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}}}}}}}}}}}} /* k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in ... */ static void C_ccall f_20039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_20039,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[789]+1 /* (set! implicit-exit-handler ...) */,t1); t3=C_mutate2((C_word*)lf[2]+1 /* (set! ##sys#exit-handler ...) */,*((C_word*)lf[788]+1)); t4=C_mutate2((C_word*)lf[4]+1 /* (set! ##sys#reset-handler ...) */,*((C_word*)lf[786]+1)); t5=C_mutate2((C_word*)lf[790]+1 /* (set! ##sys#implicit-exit-handler ...) */,*((C_word*)lf[789]+1)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20046,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3966: make-parameter */ t7=*((C_word*)lf[520]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_20035,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[788]+1 /* (set! exit-handler ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20039,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24386,a[2]=((C_word)li854),tmp=(C_word)a,a+=3,tmp); /* library.scm:3958: make-parameter */ t5=*((C_word*)lf[520]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in ... */ static void C_ccall f_20030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_20030,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[786]+1 /* (set! reset-handler ...) */,t1); t3=lf[787] /* exit-in-progress */ =C_SCHEME_FALSE;; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20035,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24392,a[2]=((C_word)li855),tmp=(C_word)a,a+=3,tmp); /* library.scm:3948: make-parameter */ t6=*((C_word*)lf[520]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k25414 in k25422 in k25380 in loop in k25362 in a25355 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 in ... */ static void C_ccall f_25416(C_word c,C_word *av){ C_word tmp; C_word 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_25416,2,av);} /* library.scm:1831: ##sys#signal-hook */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[440]; av2[3]=lf[446]; 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);}} /* make-blob in k6799 */ static void C_ccall f_10540(C_word c,C_word *av){ C_word tmp; C_word 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_10540,3,av);} t3=C_i_check_exact_2(t2,lf[363]); /* library.scm:1329: ##sys#make-blob */ t4=*((C_word*)lf[362]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* blob? in k6799 */ static void C_ccall f_10549(C_word c,C_word *av){ C_word tmp; C_word 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_10549,3,av);} if(C_truep(C_blockp(t2))){ t3=C_bytevectorp(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k17918 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_17920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17920,2,av);} /* library.scm:3314: outsym */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17448(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* k25418 in k25422 in k25380 in loop in k25362 in a25355 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 in ... */ static void C_ccall f_25420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_25420,2,av);} /* library.scm:1833: ##sys#string-append */ t2=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[447]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k25422 in k25380 in loop in k25362 in a25355 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_25424,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_25393,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li420),tmp=(C_word)a,a+=8,tmp); /* library.scm:1828: ##sys#dispatch-interrupt */ t5=*((C_word*)lf[439]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[7]; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_25416,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_25420,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k10557 in blob-size in k6799 */ static void C_ccall f_10559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10559,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_block_size(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* blob-size in k6799 */ static void C_ccall f_10555(C_word c,C_word *av){ C_word tmp; C_word 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_10555,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10559,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:1336: ##sys#check-blob */ t4=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[365]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k15226 in k15220 in k15203 in k15191 in k15188 in r-char in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_15228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_15228,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* library.scm:2783: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[593]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* blob=? in k6799 */ 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=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_10588,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10592,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:1354: ##sys#check-blob */ t5=*((C_word*)lf[61]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[368]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k10584 in k10578 in blob->string in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10586,2,av);} t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10578 in blob->string in k6799 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_10580,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_10586,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:1349: ##sys#make-string */ t5=*((C_word*)lf[149]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k20067 in k20061 in k20058 in k20052 in cleanup-before-exit in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in ... */ static void C_ccall f_20069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_20069,2,av);} if(C_truep(t1)){ /* library.scm:3985: ##sys#force-finalizers */ t2=*((C_word*)lf[794]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20061 in k20058 in k20052 in cleanup-before-exit in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_ccall f_20063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_20063,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20069,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3985: force-finalizers */ t3=*((C_word*)lf[791]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k20058 in k20052 in cleanup-before-exit in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_20060,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20063,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fudge(C_fix(13)))){ /* library.scm:3984: ##sys#print */ t3=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[795]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_20063(2,av2);}}} /* k15220 in k15203 in k15191 in k15188 in r-char in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_fcall f_15222(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_15222,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_15228,a[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_15238,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* library.scm:2782: ##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);}}} /* k10593 in k10590 in blob=? in k6799 */ 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 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_10595,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_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_zerop(t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k10590 in blob=? in k6799 */ 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(5,c,3)))){ C_save_and_reclaim((void *)f_10592,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10595,a[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:1355: ##sys#check-blob */ t3=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[368]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* ##sys#display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_ccall f_23803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_23803,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_23818,a[2]=((C_word)li829),tmp=(C_word)a,a+=3,tmp)); t10=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23834,a[2]=((C_word)li830),tmp=(C_word)a,a+=3,tmp)); t11=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23856,a[2]=t4,a[3]=t6,a[4]=((C_word)li831),tmp=(C_word)a,a+=5,tmp)); t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23942,a[2]=t2,a[3]=t1,a[4]=t8,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* library.scm:5049: ##sys#flush-output */ t13=*((C_word*)lf[493]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t12; av2[2]=*((C_word*)lf[454]+1); ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} /* pnum in display-times in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ static void C_fcall f_23818(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_23818,2,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23826,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_zerop(t2))){ /* library.scm:5038: ##sys#print */ t4=*((C_word*)lf[638]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=lf[1066]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[455]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ /* library.scm:5038: ##sys#number->string */ t4=*((C_word*)lf[331]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* a8420 in string-ci<? in k6799 */ 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=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_8421,5,av);} t5=C_fixnum_lessp(t4,C_fix(0)); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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);}}} /* get-condition-property in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 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=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_21076,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_21080,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[867]+1); av2[3]=t3; av2[4]=t4; av2[5]=t5; C_apply(6,av2);}} /* string-ci<? in k6799 */ 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=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_8415,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8421,a[2]=((C_word)li153),tmp=(C_word)a,a+=3,tmp); /* library.scm:668: compare */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=lf[169]; av2[5]=t4; ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} /* a8379 in string>=? in k6799 */ 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=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_8380,5,av);} t5=C_eqp(t4,C_fix(0)); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* a8444 in string-ci>? in k6799 */ 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=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_8445,5,av);} t5=C_fixnum_greaterp(t4,C_fix(0)); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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);}}} /* eq? in k6799 */ 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=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_7459,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_eqp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* string-ci>? in k6799 */ static void C_ccall f_8439(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_8439,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8445,a[2]=((C_word)li155),tmp=(C_word)a,a+=3,tmp); /* library.scm:675: compare */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=lf[170]; av2[5]=t4; ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} /* not in k6799 */ static void C_ccall f_7453(C_word c,C_word *av){ C_word tmp; C_word 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_7453,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_not(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* boolean? in k6799 */ 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 *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_7456,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_booleanp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k21078 in get-condition-property in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 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);} /* library.scm:4185: g4577 */ t2=t1;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#error-hook in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ 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=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_21085,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_21108,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_21119,a[2]=t10,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* library.scm:4201: ##sys#number->string */ t12=*((C_word*)lf[331]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t11; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t12+1)))(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_21145,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_21156,a[2]=t10,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* library.scm:4210: ##sys#number->string */ t12=*((C_word*)lf[331]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t11; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);} case C_fix(3):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[874]; av2[6]=t4; C_apply(7,av2);} case C_fix(4):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[816]; av2[4]=t3; av2[5]=lf[875]; av2[6]=t4; C_apply(7,av2);} case C_fix(6):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[823]; av2[4]=t3; av2[5]=lf[876]; av2[6]=t4; C_apply(7,av2);} case C_fix(7):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[813]; av2[4]=t3; av2[5]=lf[877]; av2[6]=t4; C_apply(7,av2);} case C_fix(8):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[151]; av2[4]=t3; av2[5]=lf[878]; av2[6]=t4; C_apply(7,av2);} case C_fix(9):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[879]; av2[6]=t4; C_apply(7,av2);} case C_fix(10):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[825]; av2[4]=t3; av2[5]=lf[880]; av2[6]=t4; C_apply(7,av2);} case C_fix(11):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[881]; av2[6]=t4; C_apply(7,av2);} case C_fix(12):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[823]; av2[4]=t3; av2[5]=lf[882]; av2[6]=t4; C_apply(7,av2);} case C_fix(13):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[883]; av2[6]=t4; C_apply(7,av2);} case C_fix(14):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[884]; av2[6]=t4; C_apply(7,av2);} case C_fix(15):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[885]; av2[6]=t4; C_apply(7,av2);} case C_fix(16):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[886]; av2[6]=t4; C_apply(7,av2);} case C_fix(17):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[887]; av2[6]=t4; C_apply(7,av2);} case C_fix(18):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[888]; av2[6]=t4; C_apply(7,av2);} case C_fix(19):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[889]; av2[6]=t4; C_apply(7,av2);} case C_fix(20):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[890]; av2[6]=t4; C_apply(7,av2);} case C_fix(21):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[891]; av2[6]=t4; C_apply(7,av2);} case C_fix(22):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[892]; av2[6]=t4; C_apply(7,av2);} case C_fix(23):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[823]; av2[4]=t3; av2[5]=lf[893]; av2[6]=t4; C_apply(7,av2);} case C_fix(24):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[894]; av2[6]=t4; C_apply(7,av2);} case C_fix(25):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[895]; av2[6]=t4; C_apply(7,av2);} case C_fix(26):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[896]; av2[6]=t4; C_apply(7,av2);} case C_fix(27):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[897]; av2[6]=t4; C_apply(7,av2);} case C_fix(28):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[898]; av2[6]=t4; C_apply(7,av2);} case C_fix(29):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[899]; av2[6]=t4; C_apply(7,av2);} case C_fix(30):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[900]; av2[6]=t4; C_apply(7,av2);} case C_fix(31):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[901]; av2[6]=t4; C_apply(7,av2);} case C_fix(32):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[902]; av2[6]=t4; C_apply(7,av2);} case C_fix(33):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[903]; av2[6]=t4; C_apply(7,av2);} case C_fix(34):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[904]; av2[6]=t4; C_apply(7,av2);} case C_fix(35):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[905]; av2[6]=t4; C_apply(7,av2);} case C_fix(36):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[823]; av2[4]=t3; av2[5]=lf[906]; av2[6]=t4; C_apply(7,av2);} case C_fix(37):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[907]; av2[6]=t4; C_apply(7,av2);} case C_fix(38):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[908]; av2[6]=t4; C_apply(7,av2);} case C_fix(39):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[909]; av2[6]=t4; C_apply(7,av2);} case C_fix(40):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[910]; av2[6]=t4; C_apply(7,av2);} case C_fix(41):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[911]; av2[6]=t4; C_apply(7,av2);} case C_fix(42):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[440]; av2[4]=t3; av2[5]=lf[912]; av2[6]=t4; C_apply(7,av2);} case C_fix(43):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[56]; av2[4]=t3; av2[5]=lf[913]; av2[6]=t4; C_apply(7,av2);} case C_fix(44):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[831]; av2[4]=t3; av2[5]=lf[914]; av2[6]=t4; C_apply(7,av2);} case C_fix(45):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[813]; av2[4]=t3; av2[5]=lf[915]; av2[6]=t4; C_apply(7,av2);} case C_fix(46):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[816]; av2[4]=t3; av2[5]=lf[916]; av2[6]=t4; C_apply(7,av2);} case C_fix(47):{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[831]; av2[4]=t3; av2[5]=lf[917]; av2[6]=t4; C_apply(7,av2);} default:{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[816]; av2[4]=t3; av2[5]=lf[918]; av2[6]=t4; C_apply(7,av2);}}} /* a8468 in string-ci<=? in k6799 */ static void C_ccall f_8469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8469,5,av);} t5=C_eqp(t4,C_fix(0)); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=(C_truep(t5)?C_fixnum_greater_or_equal_p(t2,t3):C_fixnum_lessp(t4,C_fix(0))); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k22226 in k22219 in doloop4869 in k22195 in k22188 in readln in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in ... */ static void C_ccall f_22228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22228,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_22199(t2,((C_word*)t0)[3],t1);} /* k7444 in system in k6799 */ static void C_ccall f_7446(C_word c,C_word *av){ C_word tmp; C_word 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_7446,2,av);} /* library.scm:387: ##sys#signal-hook */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[84]; av2[3]=lf[83]; av2[4]=lf[85]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k22219 in doloop4869 in k22195 in k22188 in readln in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_22221,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22228,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:4544: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* string-ci<=? in k6799 */ static void C_ccall f_8463(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_8463,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8469,a[2]=((C_word)li157),tmp=(C_word)a,a+=3,tmp); /* library.scm:682: compare */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=lf[171]; av2[5]=t4; ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} /* pair? in k6799 */ 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=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_7468,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_pairp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* eqv? in k6799 */ 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=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_7462,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_eqvp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* equal? in k6799 */ static void C_ccall f_7465(C_word c,C_word *av){ C_word tmp; C_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_7465,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_equalp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* string>? in k6799 */ 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=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_8329,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8335,a[2]=((C_word)li146),tmp=(C_word)a,a+=3,tmp); /* library.scm:633: compare */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=lf[166]; av2[5]=t4; ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} /* a8358 in string<=? in k6799 */ static void C_ccall f_8359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8359,5,av);} t5=C_eqp(t4,C_fix(0)); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* string<=? in k6799 */ static void C_ccall f_8353(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_8353,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8359,a[2]=((C_word)li148),tmp=(C_word)a,a+=3,tmp); /* library.scm:640: compare */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=lf[167]; av2[5]=t4; ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} /* ##sys#string->symbol in k6799 */ 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=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_10161,3,av);} t3=C_i_check_string(t2); /* library.scm:1196: ##sys#intern-symbol */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t2; C_string_to_symbol(3,av2);}} /* k22235 in read-escaped-sexp in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_ccall f_22237(C_word c,C_word *av){ C_word tmp; C_word t0=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_22237,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22240,a[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:4550: read */ t3=*((C_word*)lf[526]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* string<? in k6799 */ 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=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_8305,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8311,a[2]=((C_word)li144),tmp=(C_word)a,a+=3,tmp); /* library.scm:626: compare */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=lf[165]; av2[5]=t4; ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} /* read-escaped-sexp in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_fcall f_22233(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_22233,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22237,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t3)){ /* library.scm:4549: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+1);{ C_word av2[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[2]; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_22237(2,av2);}}} /* a8489 in string-ci>=? in k6799 */ static void C_ccall f_8490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8490,5,av);} t5=C_eqp(t4,C_fix(0)); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=(C_truep(t5)?C_fixnum_less_or_equal_p(t2,t3):C_fixnum_greaterp(t4,C_fix(0))); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* system in k6799 */ static void C_ccall f_7433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_7433,3,av);} a=C_alloc(4); t3=C_i_check_string_2(t2,lf[83]); 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_7446,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:386: ##sys#update-errno */ t6=*((C_word*)lf[86]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a25457 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25458(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(9,c,2)))){ C_save_and_reclaim((void *)f_25458,4,av);} a=C_alloc(9); t4=(C_truep(t3)?C_i_check_exact_2(t3,lf[448]):C_SCHEME_UNDEFINED); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25465,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_slot(t2,C_fix(12)))){ t6=t5; f_25465(t6,C_SCHEME_UNDEFINED);} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25634,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:1843: ##sys#make-string */ t7=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=C_fix(1024); ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} /* loop in k22238 in k22235 in read-escaped-sexp in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in ... */ static void C_fcall f_22248(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_22248,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22252,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:4554: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+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);}} /* a8334 in string>? in k6799 */ 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=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_8335,5,av);} t5=C_fixnum_greaterp(t4,C_fix(0)); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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);}}} /* k22241 in k22238 in k22235 in read-escaped-sexp in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in ... */ static void C_ccall f_22243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_22243,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k22238 in k22235 in read-escaped-sexp in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in ... */ static void C_ccall f_22240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_22240,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22243,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_22248,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word)li783),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_22248(t7,t3);} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* f_21011 in condition-predicate in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ 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=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_21011,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21018,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:4168: condition? */ t4=*((C_word*)lf[863]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k21016 */ static void C_ccall f_21018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_21018,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k25463 in a25457 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_fcall f_25465(C_word t0,C_word t1){ C_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_25465,2,t0,t1);} a=C_alloc(8); t2=((C_word*)t0)[2]; t3=(C_truep(t2)?t2:lf[0]); 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_25478,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=((C_word)li424),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_25478(t8,((C_word*)t0)[4],C_fix(1024),t3,t4,lf[450],C_SCHEME_FALSE);} /* k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in ... */ static void C_ccall f_22294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_22294,2,av);} a=C_alloc(6); switch(t1){ case C_make_character(60): t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22303,a[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:4565: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);} case C_make_character(35): t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22416,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:4590: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);} default: /* library.scm:4645: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[2]; av2[3]=lf[989]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_ccall f_22291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_22291,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22294,a[2]=((C_word*)t0)[2],a[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:4563: ##sys#peek-char-0 */ t3=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* condition-predicate in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ 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=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_21009,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21011,a[2]=t2,a[3]=((C_word)li706),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* compare622 in k6799 */ 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=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_8394,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:660: k */ t11=t5;{ C_word *av2=av; /* Re-use our own argvector */ 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:660: k */ t11=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t1; av2[2]=t8; av2[3]=t9; av2[4]=t10; ((C_proc)C_fast_retrieve_proc(t11))(5,av2);}}} /* f_7762 in k6799 */ static void C_ccall f_7762(C_word c,C_word *av){ C_word tmp; C_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_7762,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_list_ref(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#delq in k6799 */ static void C_ccall f_7765(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_7765,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_7771,a[2]=t2,a[3]=t5,a[4]=((C_word)li108),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_7771(t7,t1,t3);} /* ##sys#user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 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=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_22278,4,av);} a=C_alloc(6); if(C_truep(C_i_char_equalp(C_make_character(60),t2))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22291,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* read-char/port */ t5=*((C_word*)lf[524]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* library.scm:4560: old */ t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}} /* list in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_7753,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* length in k6799 */ 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=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_7756,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* list-tail in k6799 */ 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=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_7759,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_list_tail(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* string>=? in k6799 */ static void C_ccall f_8374(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_8374,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8380,a[2]=((C_word)li150),tmp=(C_word)a,a+=3,tmp); /* library.scm:647: compare */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=lf[168]; av2[5]=t4; ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} /* cddaar in k6799 */ 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=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_7700,3,av);} t3=C_i_car(t2); t4=C_i_car(t3); t5=C_i_cdr(t4); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_cdr(t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* cddddr in k6799 */ 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=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_7495,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_cddddr(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_7498 in k6799 */ 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=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_7498,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_caar(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* display in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in ... */ static void C_ccall f_17169(C_word c,C_word *av){ C_word tmp; C_word 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_17169,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[454]+1); t5=C_i_check_port_2(*((C_word*)lf[454]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[639]); /* library.scm:3162: ##sys#print */ t6=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[454]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t4=C_i_car(t3); t5=C_i_check_port_2(t4,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[639]); /* library.scm:3162: ##sys#print */ t6=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* cadddr in k6799 */ 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=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_7492,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_cadddr(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_7489 in k6799 */ 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 *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_7489,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_caddr(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_7486 in k6799 */ static void C_ccall f_7486(C_word c,C_word *av){ C_word tmp; C_word 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_7486,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_cadr(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* symbol? in k6799 */ static void C_ccall f_10153(C_word c,C_word *av){ C_word tmp; C_word 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_10153,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_symbolp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#interned-symbol? in k6799 */ 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=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_10158,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_lookup_symbol(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* set-finalizer! in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in ... */ static void C_ccall f_22768(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_22768,4,av);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22772,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_fudge(C_fix(26)); 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_22789,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:4707: ##sys#vector-resize */ f_10935(t7,*((C_word*)lf[979]+1),t9,C_SCHEME_UNDEFINED);} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22825,a[2]=t4,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fudge(C_fix(13)))){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22838,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t9=C_fudge(C_fix(26)); /* library.scm:4722: string-append */ t10=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t8; av2[2]=lf[998]; av2[3]=t9; av2[4]=lf[999]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ /* library.scm:4727: ##sys#force-finalizers */ t8=*((C_word*)lf[794]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} else{ /* library.scm:4728: ##sys#set-finalizer! */ t6=*((C_word*)lf[993]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* set-cdr! in k6799 */ 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=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_7483,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_set_cdr(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* set-car! in k6799 */ 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=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_7480,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_set_car(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in ... */ static void C_ccall f_22762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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; if(C_unlikely(!C_demand(C_calculate_demand(33,c,4)))){ C_save_and_reclaim((void *)f_22762,2,av);} a=C_alloc(33); t2=C_mutate2((C_word*)lf[979]+1 /* (set! ##sys#pending-finalizers ...) */,t1); t3=C_i_set_i_slot(*((C_word*)lf[979]+1),C_fix(0),C_fix(0)); t4=C_mutate2((C_word*)lf[993]+1 /* (set! ##sys#set-finalizer! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_register_finalizer,a[2]=((C_word)li792),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[994]+1 /* (set! set-finalizer! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22768,a[2]=((C_word)li793),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_mutate2((C_word*)lf[980]+1 /* (set! ##sys#run-pending-finalizers ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22848,a[2]=t7,a[3]=((C_word)li802),tmp=(C_word)a,a+=4,tmp)); t9=C_mutate2((C_word*)lf[794]+1 /* (set! ##sys#force-finalizers ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23004,a[2]=((C_word)li804),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[1006]+1 /* (set! gc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23032,a[2]=((C_word)li805),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[379]+1 /* (set! ##sys#list->vector ...) */,*((C_word*)lf[376]+1)); t12=C_mutate2((C_word*)lf[81]+1 /* (set! ##sys#list ...) */,*((C_word*)lf[129]+1)); t13=C_mutate2((C_word*)lf[1007]+1 /* (set! ##sys#length ...) */,*((C_word*)lf[130]+1)); t14=C_mutate2((C_word*)lf[1008]+1 /* (set! ##sys#cons ...) */,*((C_word*)lf[95]+1)); t15=C_mutate2((C_word*)lf[862]+1 /* (set! ##sys#append ...) */,*((C_word*)lf[135]+1)); t16=C_mutate2((C_word*)lf[1009]+1 /* (set! ##sys#vector ...) */,*((C_word*)lf[378]+1)); t17=C_mutate2((C_word*)lf[1010]+1 /* (set! ##sys#apply ...) */,*((C_word*)lf[409]+1)); t18=C_mutate2((C_word*)lf[1011]+1 /* (set! ##sys#values ...) */,*((C_word*)lf[413]+1)); t19=C_mutate2((C_word*)lf[1012]+1 /* (set! ##sys#equal? ...) */,*((C_word*)lf[93]+1)); t20=C_mutate2((C_word*)lf[1013]+1 /* (set! ##sys#car ...) */,*((C_word*)lf[96]+1)); t21=C_mutate2((C_word*)lf[1014]+1 /* (set! ##sys#cdr ...) */,*((C_word*)lf[97]+1)); t22=C_mutate2((C_word*)lf[1015]+1 /* (set! ##sys#pair? ...) */,*((C_word*)lf[94]+1)); t23=C_mutate2((C_word*)lf[1016]+1 /* (set! ##sys#vector? ...) */,*((C_word*)lf[369]+1)); t24=C_mutate2((C_word*)lf[1017]+1 /* (set! ##sys#vector->list ...) */,*((C_word*)lf[377]+1)); t25=C_mutate2((C_word*)lf[1018]+1 /* (set! ##sys#vector-length ...) */,*((C_word*)lf[370]+1)); t26=C_mutate2((C_word*)lf[1019]+1 /* (set! ##sys#vector-ref ...) */,*((C_word*)lf[371]+1)); t27=C_mutate2((C_word*)lf[1020]+1 /* (set! ##sys#>= ...) */,*((C_word*)lf[259]+1)); t28=C_mutate2((C_word*)lf[1021]+1 /* (set! ##sys#= ...) */,*((C_word*)lf[256]+1)); t29=C_mutate2((C_word*)lf[1022]+1 /* (set! ##sys#+ ...) */,*((C_word*)lf[254]+1)); t30=C_mutate2((C_word*)lf[1023]+1 /* (set! ##sys#eq? ...) */,*((C_word*)lf[91]+1)); t31=C_mutate2((C_word*)lf[1024]+1 /* (set! ##sys#eqv? ...) */,*((C_word*)lf[92]+1)); t32=C_mutate2((C_word*)lf[1025]+1 /* (set! ##sys#list? ...) */,*((C_word*)lf[144]+1)); t33=C_mutate2((C_word*)lf[1026]+1 /* (set! ##sys#null? ...) */,*((C_word*)lf[128]+1)); t34=C_mutate2((C_word*)lf[1027]+1 /* (set! ##sys#map-n ...) */,*((C_word*)lf[419]+1)); t35=C_mutate2((C_word*)lf[1028]+1 /* (set! ##sys#make-promise ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23075,a[2]=((C_word)li806),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate2((C_word*)lf[1029]+1 /* (set! promise? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23081,a[2]=((C_word)li807),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate2((C_word*)lf[1030]+1 /* (set! make-promise ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23087,a[2]=((C_word)li809),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate2((C_word*)lf[1031]+1 /* (set! ##sys#read-from-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23102,a[2]=((C_word)li810),tmp=(C_word)a,a+=3,tmp)); t39=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23113,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4829: condition-property-accessor */ t40=*((C_word*)lf[867]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t40; av2[1]=t39; av2[2]=lf[846]; av2[3]=lf[1093]; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t40+1)))(5,av2);}} /* fplog in k6799 */ 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=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_9260,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9276,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_flonum_log(&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:786: ##sys#error-hook */ t6=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[248]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* print in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +9,c,3)))){ C_save_and_reclaim((void*)f_17187,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[454]+1); t4=C_i_check_port_2(*((C_word*)lf[454]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[640]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17230,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=C_i_check_list_2(t2,lf[417]); 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_17206,a[2]=t8,a[3]=((C_word)li584),tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_17206(t10,t5,t2);} /* k22770 in set-finalizer! in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in ... */ static void C_ccall f_22772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_22772,2,av);} /* library.scm:4728: ##sys#set-finalizer! */ t2=*((C_word*)lf[993]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9256 in fpexpt in k6799 */ static void C_ccall f_9258(C_word c,C_word *av){ C_word tmp; 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_9258,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k15724 in k15804 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_15726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_15726,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_15732,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_15732(t6,C_slot(t3,t5));} else{ t5=t4; f_15732(t5,C_SCHEME_FALSE);}} else{ t5=t4; f_15732(t5,C_SCHEME_FALSE);}} /* k22787 in set-finalizer! in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in ... */ static void C_ccall f_22789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_22789,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[979]+1 /* (set! ##sys#pending-finalizers ...) */,t1); if(C_truep(C_fudge(C_fix(13)))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22802,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22806,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_fudge(C_fix(26)); /* library.scm:4714: ##sys#number->string */ t6=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* library.scm:4728: ##sys#set-finalizer! */ t3=*((C_word*)lf[993]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* null? in k6799 */ static void C_ccall f_7747(C_word c,C_word *av){ C_word tmp; C_word 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_7747,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_eqp(t2,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* fpsqrt in k6799 */ 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=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_9278,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9294,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_flonum_sqrt(&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:786: ##sys#error-hook */ t6=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[249]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k9274 in fplog in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_9276,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_log(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_15705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_15705,2,av);} a=C_alloc(18); t2=t1; if(C_truep(C_eofp(t2))){ /* library.scm:2863: ##sys#read-error */ t3=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[601]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ if(C_truep(C_u_i_char_numericp(t2))){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15806,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); /* library.scm:2866: r-digits */ t4=((C_word*)((C_word*)t0)[7])[1]; f_14901(t4,t3);} else{ t3=C_slot(((C_word*)t0)[4],C_fix(2)); t4=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_15812,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],tmp=(C_word)a,a+=18,tmp); if(C_truep(t3)){ t5=C_fix(C_character_code(t2)); t6=t4; f_15812(t6,C_slot(t3,t5));} else{ t5=t4; f_15812(t5,C_SCHEME_FALSE);}}}} /* k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_15702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){ C_save_and_reclaim((void *)f_15702,2,av);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_15705,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); /* library.scm:2860: ##sys#peek-char-0 */ t3=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* doloop5003 in argv in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_fcall f_22728(C_word t0,C_word t1,C_word 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_22728,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_22750,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=stub4999(t8,t7); /* library.scm:4653: ##sys#peek-c-string */ t10=*((C_word*)lf[36]+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);}}} /* k22720 in argv in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_ccall f_22722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_22722,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k14955 in a14952 in r-symbol in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_14957(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14957,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14964,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:2704: ##sys#port-line */ t4=*((C_word*)lf[497]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a14952 in r-symbol in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_14953(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_14953,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14957,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)){ /* library.scm:2703: build-keyword */ t5=((C_word*)((C_word*)t0)[4])[1]; f_15574(t5,t4,t2);} else{ t5=t2; /* library.scm:2823: ##sys#intern-symbol */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t4; av2[2]=t5; C_string_to_symbol(3,av2);}}} /* a8310 in string<? in k6799 */ static void C_ccall f_8311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8311,5,av);} t5=C_fixnum_lessp(t4,C_fix(0)); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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);}}} /* f_21038 in condition-property-accessor in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_21038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_21038,3,av);} t3=C_i_check_structure(t2,lf[680]); 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; /* Re-use our own argvector */ 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:4179: ##sys#signal-hook */ t7=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t1; av2[2]=lf[56]; av2[3]=lf[867]; av2[4]=lf[868]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} else{ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* f_7477 in k6799 */ 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=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_7477,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_cdr(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* condition-property-accessor in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21030(C_word c,C_word *av){ C_word tmp; C_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_21030,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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21038,a[2]=t2,a[3]=t8,a[4]=t6,a[5]=t3,a[6]=t4,a[7]=((C_word)li708),tmp=(C_word)a,a+=8,tmp); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* f_7474 in k6799 */ 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=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_7474,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* cons in k6799 */ 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=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_7471,4,av);} a=C_alloc(3); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* r-symbol in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_14947(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_14947,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14953,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li540),tmp=(C_word)a,a+=6,tmp); /* library.scm:2701: r-xtoken */ t3=((C_word*)((C_word*)t0)[5])[1]; f_14972(t3,t1,t2);} /* enable-warnings in k6799 */ static void C_ccall f_6898(C_word c,C_word *av){ C_word tmp; 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_6898,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_mutate2((C_word*)lf[10]+1 /* (set! ##sys#warnings-enabled ...) */,C_u_i_car(t3)); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=*((C_word*)lf[10]+1); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=*((C_word*)lf[10]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* write-char in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in ... */ static void C_ccall f_17115(C_word c,C_word *av){ C_word tmp; C_word 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_17115,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[454]+1):C_i_car(t3)); t6=C_i_check_char_2(t2,lf[635]); t7=C_i_check_port_2(t5,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[635]); /* library.scm:3151: ##sys#write-char-0 */ t8=*((C_word*)lf[633]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t1; av2[2]=t2; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* string-ci>=? in k6799 */ 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=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_8484,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8490,a[2]=((C_word)li159),tmp=(C_word)a,a+=3,tmp); /* library.scm:689: compare */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=lf[172]; av2[5]=t4; ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} /* notice in k6799 */ static void C_ccall f_6886(C_word c,C_word *av){ C_word tmp; C_word 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_6886,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[11]+1))?*((C_word*)lf[10]+1):C_SCHEME_FALSE); if(C_truep(t4)){{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[15]; av2[4]=t2; av2[5]=t3; C_apply(6,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k14932 in k14925 in k14919 in loop in k14907 in r-digits in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_14934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14934,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* library.scm:2698: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_14911(t3,((C_word*)t0)[5],t1,t2);} /* a15754 in k15730 in k15724 in k15804 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_15755,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:2878: readrec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_13628(t3,t1);} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_ccall f_22754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_22754,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[991]+1 /* (set! program-name ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22758,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24296,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* library.scm:4673: argv */ t5=*((C_word*)lf[990]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_ccall f_22758(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_22758,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[992]+1 /* (set! command-line-arguments ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22762,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_fixnum_times(C_fix(2),C_fix((C_word)C_max_pending_finalizers)); t5=C_fixnum_plus(t4,C_fix(1)); /* library.scm:4695: ##sys#make-vector */ t6=*((C_word*)lf[375]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k22250 in loop in k22238 in k22235 in read-escaped-sexp in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_22252,2,av);} if(C_truep(C_eofp(t1))){ /* library.scm:4556: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[981]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ if(C_truep(C_i_char_equalp(C_make_character(125),t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* library.scm:4557: loop */ t2=((C_word*)((C_word*)t0)[4])[1]; f_22248(t2,((C_word*)t0)[2]);}}} /* loop in delq in k6799 */ static void C_fcall f_7771(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_7771,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_7798,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=C_slot(t2,C_fix(1)); /* library.scm:459: loop */ t10=t7; t11=t8; t1=t10; t2=t11; goto loop;}}} /* k22748 in doloop5003 in argv in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in ... */ static void C_ccall f_22750(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_22750,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_22728(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k14925 in k14919 in loop in k14907 in r-digits in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_14927(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_14927,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14934,a[2]=((C_word*)t0)[2],a[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:2698: ##sys#peek-char-0 */ t3=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k14919 in loop in k14907 in r-digits in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_fcall f_14921(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_14921,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ /* library.scm:2695: ##sys#reverse-list->string */ t2=*((C_word*)lf[158]+1);{ C_word av2[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|6,a[1]=(C_word)f_14927,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:2697: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+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);}}} /* warning in k6799 */ 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=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_6877,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[10]+1))){{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[13]; av2[4]=t2; av2[5]=t3; C_apply(6,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* newline in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in ... */ static void C_ccall f_17136(C_word c,C_word *av){ C_word tmp; 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_17136,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[454]+1); t4=*((C_word*)lf[454]+1); /* library.scm:3154: ##sys#write-char/port */ t5=*((C_word*)lf[634]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[454]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=C_i_car(t2); /* library.scm:3154: ##sys#write-char/port */ t4=*((C_word*)lf[634]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=C_make_character(10); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* a15748 in k15730 in k15724 in k15804 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in ... */ static void C_ccall f_15749(C_word c,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_15749,2,av);} /* library.scm:2877: h */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* cdddar in k6799 */ 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 *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_7729,3,av);} t3=C_i_car(t2); t4=C_i_cdr(t3); t5=C_i_cdr(t4); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_cdr(t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* loop in k14907 in r-digits in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_fcall f_14911(C_word t0,C_word 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_14911,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_eofp(t2); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14921,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_14921(t6,t4);} else{ t6=C_u_i_char_numericp(t2); t7=t5; f_14921(t7,C_i_not(t6));}} /* k15730 in k15724 in k15804 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ static void C_fcall f_15732(C_word 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_15732,2,t0,t1);} a=C_alloc(11); t2=t1; if(C_truep(C_eofp(((C_word*)t0)[2]))){ /* library.scm:2873: ##sys#read-error */ t3=*((C_word*)lf[533]+1);{ C_word av2[6]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[602]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15749,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)li552),tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15755,a[2]=((C_word*)t0)[7],a[3]=((C_word)li553),tmp=(C_word)a,a+=4,tmp); /* library.scm:2876: ##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:2881: ##sys#sharp-number-hook */ t5=*((C_word*)lf[532]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15783,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:2882: ##sys#read-char-0 */ t6=*((C_word*)lf[523]+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);}}}}} /* k24656 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24658,2,av);} /* library.scm:3772: check */ f_19443(((C_word*)t0)[3],t1);} /* ##sys#write-char/port in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in ... */ static void C_ccall f_17103(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_17103,4,av);} t4=t3; t5=C_i_check_port_2(t4,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[635]); t6=C_i_check_char_2(t2,lf[635]); /* library.scm:3146: ##sys#write-char-0 */ t7=*((C_word*)lf[633]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k24652 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24654,2,av);} /* library.scm:3773: check */ f_19443(((C_word*)t0)[3],t1);} /* k24648 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in ... */ static void C_ccall f_24650(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24650,2,av);} /* library.scm:3774: check */ f_19443(((C_word*)t0)[3],t1);} /* k14907 in r-digits in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_14909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_14909,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_14911,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li538),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_14911(t5,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* cddadr in k6799 */ 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=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_7718,3,av);} t3=C_i_cadr(t2); t4=C_i_cdr(t3); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_cdr(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* r-digits in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_14901(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_14901,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14909,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:2693: ##sys#peek-char-0 */ t3=*((C_word*)lf[525]+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);}} /* write in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in ... */ static void C_ccall f_17151(C_word c,C_word *av){ C_word tmp; C_word 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_17151,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[454]+1); t5=C_i_check_port_2(*((C_word*)lf[454]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[637]); /* library.scm:3158: ##sys#print */ t6=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=*((C_word*)lf[454]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t4=C_i_car(t3); t5=C_i_check_port_2(t4,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[637]); /* library.scm:3158: ##sys#print */ t6=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k24664 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_24666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24666,2,av);} /* library.scm:3770: check */ f_19443(((C_word*)t0)[3],t1);} /* k24660 in k19459 in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_24662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24662,2,av);} /* library.scm:3771: check */ f_19443(((C_word*)t0)[3],t1);} /* argv in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static void C_ccall f_22714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_22714,2,av);} a=C_alloc(10); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_22722,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_22728,a[2]=t5,a[3]=((C_word)li790),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_22728(t7,t2,t3,C_SCHEME_END_OF_LIST);}} /* k6835 in quit-hook in k6799 */ 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_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6837,2,av);} /* library.scm:170: g89 */ t2=t1;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* ##sys#quit-hook in k6799 */ static void C_ccall f_6833(C_word c,C_word *av){ C_word tmp; C_word 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_6833,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6837,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:170: ##sys#exit-handler */ t4=*((C_word*)lf[2]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k24682 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_24684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_24684,2,av);} a=C_alloc(3); t2=C_eqp(lf[1111],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24680,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3708: build-platform */ t4=*((C_word*)lf[723]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=((C_word*)t0)[2]; f_19232(t3,C_SCHEME_FALSE);}} /* k24686 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_24688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24688,2,av);} /* library.scm:3702: string->symbol */ t2=*((C_word*)lf[349]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k24678 in k24682 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_24680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_24680,2,av);} t2=C_eqp(lf[1112],t1); t3=((C_word*)t0)[2]; f_19232(t3,C_i_not(t2));} /* k6826 in reset in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6828,2,av);} /* library.scm:169: g85 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* reset in k6799 */ 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 *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_6824,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6828,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:169: ##sys#reset-handler */ t3=*((C_word*)lf[4]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6811 in exit in k6799 */ 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);} /* library.scm:168: g82 */ t2=t1;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k9292 in fpsqrt in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_9294,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_sqrt(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* fpabs in k6799 */ 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=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_9296,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9312,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_flonum_abs(&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:786: ##sys#error-hook */ t6=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[250]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* exit in k6799 */ static void C_ccall f_6806(C_word c,C_word *av){ C_word tmp; 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_6806,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)f27442,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:168: ##sys#exit-handler */ t4=*((C_word*)lf[2]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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_6813,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* library.scm:168: ##sys#exit-handler */ t6=*((C_word*)lf[2]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k6799 */ 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 t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(1037,c,6)))){ C_save_and_reclaim((void *)f_6801,2,av);} a=C_alloc(1037); t2=C_mutate2(&lf[0] /* (set! maximal-string-length ...) */,C_unsigned_long_to_num(&a,C_HEADER_SIZE_MASK)); t3=C_mutate2((C_word*)lf[1]+1 /* (set! exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6806,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[3]+1 /* (set! reset ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6824,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[5]+1 /* (set! ##sys#quit-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6833,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[6]+1 /* (set! quit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6842,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[7]+1 /* (set! error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6857,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t8=C_set_block_item(lf[10] /* ##sys#warnings-enabled */,0,C_SCHEME_TRUE); t9=C_fudge(C_fix(13)); t10=C_mutate2((C_word*)lf[11]+1 /* (set! ##sys#notices-enabled ...) */,t9); t11=C_mutate2((C_word*)lf[12]+1 /* (set! warning ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6877,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[14]+1 /* (set! notice ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6886,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[16]+1 /* (set! enable-warnings ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6898,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[17]+1 /* (set! ##sys#error ...) */,*((C_word*)lf[7]+1)); t15=C_mutate2((C_word*)lf[18]+1 /* (set! ##sys#warn ...) */,*((C_word*)lf[12]+1)); t16=C_mutate2((C_word*)lf[19]+1 /* (set! ##sys#notice ...) */,*((C_word*)lf[14]+1)); t17=C_mutate2((C_word*)lf[20]+1 /* (set! set-gc-report! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6912,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2((C_word*)lf[21]+1 /* (set! ##sys#gc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_gc,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2((C_word*)lf[22]+1 /* (set! ##sys#setslot ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6916,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2((C_word*)lf[23]+1 /* (set! ##sys#setislot ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6919,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate2((C_word*)lf[24]+1 /* (set! ##sys#allocate-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_allocate_vector,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate2((C_word*)lf[25]+1 /* (set! argc+argv ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6923,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate2((C_word*)lf[26]+1 /* (set! ##sys#make-structure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_make_structure,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate2((C_word*)lf[27]+1 /* (set! ##sys#ensure-heap-reserve ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_ensure_heap_reserve,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate2((C_word*)lf[28]+1 /* (set! ##sys#fudge ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6931,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate2((C_word*)lf[29]+1 /* (set! return-to-host ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_return_to_host,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate2((C_word*)lf[30]+1 /* (set! ##sys#symbol-table-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_get_symbol_table_info,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate2((C_word*)lf[31]+1 /* (set! ##sys#memory-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_get_memory_info,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate2((C_word*)lf[32]+1 /* (set! current-milliseconds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6937,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate2((C_word*)lf[33]+1 /* (set! current-gc-milliseconds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6940,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); t31=C_mutate2((C_word*)lf[34]+1 /* (set! ##sys#decode-seconds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_decode_seconds,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate2((C_word*)lf[35]+1 /* (set! get-environment-variable ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6947,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate2((C_word*)lf[38]+1 /* (set! ##sys#start-timer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6965,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate2((C_word*)lf[39]+1 /* (set! ##sys#stop-timer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6971,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate2((C_word*)lf[40]+1 /* (set! ##sys#immediate? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6991,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate2((C_word*)lf[41]+1 /* (set! ##sys#message ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6998,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate2((C_word*)lf[42]+1 /* (set! ##sys#byte ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7001,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate2((C_word*)lf[43]+1 /* (set! ##sys#setbyte ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7004,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate2((C_word*)lf[44]+1 /* (set! void ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7007,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate2((C_word*)lf[45]+1 /* (set! ##sys#void ...) */,*((C_word*)lf[44]+1)); t41=C_set_block_item(lf[46] /* ##sys#undefined-value */,0,C_SCHEME_UNDEFINED); t42=C_mutate2((C_word*)lf[47]+1 /* (set! ##sys#halt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7012,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp)); t43=C_mutate2((C_word*)lf[48]+1 /* (set! ##sys#flo2fix ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7015,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); t44=C_mutate2((C_word*)lf[49]+1 /* (set! ##sys#become! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_become,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp)); t45=C_mutate2((C_word*)lf[50]+1 /* (set! ##sys#block-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7019,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); t46=C_mutate2((C_word*)lf[51]+1 /* (set! ##sys#apply-values ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_apply_values,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp)); t47=C_mutate2((C_word*)lf[52]+1 /* (set! ##sys#copy-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_copy_closure,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); t48=C_fudge(C_fix(34)); t49=C_mutate2((C_word*)lf[53]+1 /* (set! ##sys#apply-argument-limit ...) */,t48); t50=C_mutate2((C_word*)lf[54]+1 /* (set! ##sys#block-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7028,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp)); t51=C_mutate2((C_word*)lf[58]+1 /* (set! current-seconds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7063,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp)); t52=C_a_i_vector2(&a,2,C_SCHEME_FALSE,C_SCHEME_FALSE); t53=t52; t54=C_mutate2((C_word*)lf[59]+1 /* (set! cpu-time ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7069,a[2]=t53,a[3]=((C_word)li41),tmp=(C_word)a,a+=4,tmp)); t55=C_mutate2((C_word*)lf[60]+1 /* (set! ##sys#check-structure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7083,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); t56=C_mutate2((C_word*)lf[61]+1 /* (set! ##sys#check-blob ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7094,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp)); t57=C_mutate2((C_word*)lf[62]+1 /* (set! ##sys#check-byte-vector ...) */,*((C_word*)lf[61]+1)); t58=C_mutate2((C_word*)lf[63]+1 /* (set! ##sys#check-pair ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7106,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); t59=C_mutate2((C_word*)lf[64]+1 /* (set! ##sys#check-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7117,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp)); t60=C_mutate2((C_word*)lf[65]+1 /* (set! ##sys#check-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7128,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp)); t61=C_mutate2((C_word*)lf[66]+1 /* (set! ##sys#check-number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7139,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp)); t62=C_mutate2((C_word*)lf[67]+1 /* (set! ##sys#check-exact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7150,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp)); t63=C_mutate2((C_word*)lf[68]+1 /* (set! ##sys#check-inexact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7161,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp)); t64=C_mutate2((C_word*)lf[69]+1 /* (set! ##sys#check-symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7172,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp)); t65=C_mutate2((C_word*)lf[70]+1 /* (set! ##sys#check-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7183,a[2]=((C_word)li51),tmp=(C_word)a,a+=3,tmp)); t66=C_mutate2((C_word*)lf[71]+1 /* (set! ##sys#check-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7194,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp)); t67=C_mutate2((C_word*)lf[72]+1 /* (set! ##sys#check-boolean ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7205,a[2]=((C_word)li53),tmp=(C_word)a,a+=3,tmp)); t68=C_mutate2((C_word*)lf[73]+1 /* (set! ##sys#check-locative ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7216,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); t69=C_mutate2((C_word*)lf[74]+1 /* (set! ##sys#check-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7227,a[2]=((C_word)li55),tmp=(C_word)a,a+=3,tmp)); t70=C_mutate2((C_word*)lf[55]+1 /* (set! ##sys#check-range ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7245,a[2]=((C_word)li56),tmp=(C_word)a,a+=3,tmp)); t71=C_mutate2((C_word*)lf[76]+1 /* (set! ##sys#check-special ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7275,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp)); t72=C_mutate2((C_word*)lf[78]+1 /* (set! ##sys#check-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7295,a[2]=((C_word)li58),tmp=(C_word)a,a+=3,tmp)); t73=C_mutate2((C_word*)lf[79]+1 /* (set! force ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7306,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp)); t74=C_mutate2((C_word*)lf[82]+1 /* (set! ##sys#force ...) */,*((C_word*)lf[79]+1)); t75=C_mutate2((C_word*)lf[83]+1 /* (set! system ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7433,a[2]=((C_word)li61),tmp=(C_word)a,a+=3,tmp)); t76=C_mutate2((C_word*)lf[87]+1 /* (set! ##sys#dload ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_dload,a[2]=((C_word)li62),tmp=(C_word)a,a+=3,tmp)); t77=C_mutate2((C_word*)lf[88]+1 /* (set! ##sys#set-dlopen-flags! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_set_dlopen_flags,a[2]=((C_word)li63),tmp=(C_word)a,a+=3,tmp)); t78=C_mutate2((C_word*)lf[89]+1 /* (set! not ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7453,a[2]=((C_word)li64),tmp=(C_word)a,a+=3,tmp)); t79=C_mutate2((C_word*)lf[90]+1 /* (set! boolean? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7456,a[2]=((C_word)li65),tmp=(C_word)a,a+=3,tmp)); t80=C_mutate2((C_word*)lf[91]+1 /* (set! eq? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7459,a[2]=((C_word)li66),tmp=(C_word)a,a+=3,tmp)); t81=C_mutate2((C_word*)lf[92]+1 /* (set! eqv? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7462,a[2]=((C_word)li67),tmp=(C_word)a,a+=3,tmp)); t82=C_mutate2((C_word*)lf[93]+1 /* (set! equal? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7465,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp)); t83=C_mutate2((C_word*)lf[94]+1 /* (set! pair? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7468,a[2]=((C_word)li69),tmp=(C_word)a,a+=3,tmp)); t84=C_mutate2((C_word*)lf[95]+1 /* (set! cons ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7471,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp)); t85=C_mutate2((C_word*)lf[96]+1 /* (set! car ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7474,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp)); t86=C_mutate2((C_word*)lf[97]+1 /* (set! cdr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7477,a[2]=((C_word)li72),tmp=(C_word)a,a+=3,tmp)); t87=C_mutate2((C_word*)lf[98]+1 /* (set! set-car! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7480,a[2]=((C_word)li73),tmp=(C_word)a,a+=3,tmp)); t88=C_mutate2((C_word*)lf[99]+1 /* (set! set-cdr! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7483,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp)); t89=C_mutate2((C_word*)lf[100]+1 /* (set! cadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7486,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp)); t90=C_mutate2((C_word*)lf[101]+1 /* (set! caddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7489,a[2]=((C_word)li76),tmp=(C_word)a,a+=3,tmp)); t91=C_mutate2((C_word*)lf[102]+1 /* (set! cadddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7492,a[2]=((C_word)li77),tmp=(C_word)a,a+=3,tmp)); t92=C_mutate2((C_word*)lf[103]+1 /* (set! cddddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7495,a[2]=((C_word)li78),tmp=(C_word)a,a+=3,tmp)); t93=C_mutate2((C_word*)lf[104]+1 /* (set! caar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7498,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp)); t94=C_mutate2((C_word*)lf[105]+1 /* (set! cdar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7501,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp)); t95=C_mutate2((C_word*)lf[106]+1 /* (set! cddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7504,a[2]=((C_word)li81),tmp=(C_word)a,a+=3,tmp)); t96=C_mutate2((C_word*)lf[107]+1 /* (set! caaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7507,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp)); t97=C_mutate2((C_word*)lf[108]+1 /* (set! caadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7521,a[2]=((C_word)li83),tmp=(C_word)a,a+=3,tmp)); t98=C_mutate2((C_word*)lf[109]+1 /* (set! cadar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7528,a[2]=((C_word)li84),tmp=(C_word)a,a+=3,tmp)); t99=C_mutate2((C_word*)lf[110]+1 /* (set! cdaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7535,a[2]=((C_word)li85),tmp=(C_word)a,a+=3,tmp)); t100=C_mutate2((C_word*)lf[111]+1 /* (set! cdadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7549,a[2]=((C_word)li86),tmp=(C_word)a,a+=3,tmp)); t101=C_mutate2((C_word*)lf[112]+1 /* (set! cddar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7556,a[2]=((C_word)li87),tmp=(C_word)a,a+=3,tmp)); t102=C_mutate2((C_word*)lf[113]+1 /* (set! cdddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7570,a[2]=((C_word)li88),tmp=(C_word)a,a+=3,tmp)); t103=C_mutate2((C_word*)lf[114]+1 /* (set! caaaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7584,a[2]=((C_word)li89),tmp=(C_word)a,a+=3,tmp)); t104=C_mutate2((C_word*)lf[115]+1 /* (set! caaadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7602,a[2]=((C_word)li90),tmp=(C_word)a,a+=3,tmp)); t105=C_mutate2((C_word*)lf[116]+1 /* (set! caadar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7613,a[2]=((C_word)li91),tmp=(C_word)a,a+=3,tmp)); t106=C_mutate2((C_word*)lf[117]+1 /* (set! caaddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7624,a[2]=((C_word)li92),tmp=(C_word)a,a+=3,tmp)); t107=C_mutate2((C_word*)lf[118]+1 /* (set! cadaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7631,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp)); t108=C_mutate2((C_word*)lf[119]+1 /* (set! cadadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7642,a[2]=((C_word)li94),tmp=(C_word)a,a+=3,tmp)); t109=C_mutate2((C_word*)lf[120]+1 /* (set! caddar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7646,a[2]=((C_word)li95),tmp=(C_word)a,a+=3,tmp)); t110=C_mutate2((C_word*)lf[121]+1 /* (set! cdaaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7653,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp)); t111=C_mutate2((C_word*)lf[122]+1 /* (set! cdaadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7671,a[2]=((C_word)li97),tmp=(C_word)a,a+=3,tmp)); t112=C_mutate2((C_word*)lf[123]+1 /* (set! cdadar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7682,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp)); t113=C_mutate2((C_word*)lf[124]+1 /* (set! cdaddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7693,a[2]=((C_word)li99),tmp=(C_word)a,a+=3,tmp)); t114=C_mutate2((C_word*)lf[125]+1 /* (set! cddaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7700,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp)); t115=C_mutate2((C_word*)lf[126]+1 /* (set! cddadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7718,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp)); t116=C_mutate2((C_word*)lf[127]+1 /* (set! cdddar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7729,a[2]=((C_word)li102),tmp=(C_word)a,a+=3,tmp)); t117=C_mutate2((C_word*)lf[128]+1 /* (set! null? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7747,a[2]=((C_word)li103),tmp=(C_word)a,a+=3,tmp)); t118=C_mutate2((C_word*)lf[129]+1 /* (set! list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7753,a[2]=((C_word)li104),tmp=(C_word)a,a+=3,tmp)); t119=C_mutate2((C_word*)lf[130]+1 /* (set! length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7756,a[2]=((C_word)li105),tmp=(C_word)a,a+=3,tmp)); t120=C_mutate2((C_word*)lf[131]+1 /* (set! list-tail ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7759,a[2]=((C_word)li106),tmp=(C_word)a,a+=3,tmp)); t121=C_mutate2((C_word*)lf[132]+1 /* (set! list-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7762,a[2]=((C_word)li107),tmp=(C_word)a,a+=3,tmp)); t122=C_mutate2((C_word*)lf[133]+1 /* (set! ##sys#delq ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7765,a[2]=((C_word)li109),tmp=(C_word)a,a+=3,tmp)); t123=C_mutate2((C_word*)lf[134]+1 /* (set! ##sys#error-not-a-proper-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7808,a[2]=((C_word)li110),tmp=(C_word)a,a+=3,tmp)); t124=C_mutate2((C_word*)lf[135]+1 /* (set! append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7824,a[2]=((C_word)li113),tmp=(C_word)a,a+=3,tmp)); t125=C_mutate2((C_word*)lf[136]+1 /* (set! reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7903,a[2]=((C_word)li115),tmp=(C_word)a,a+=3,tmp)); t126=C_mutate2((C_word*)lf[137]+1 /* (set! ##sys#fast-reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7942,a[2]=((C_word)li117),tmp=(C_word)a,a+=3,tmp)); t127=C_mutate2((C_word*)lf[138]+1 /* (set! memq ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7972,a[2]=((C_word)li118),tmp=(C_word)a,a+=3,tmp)); t128=C_mutate2((C_word*)lf[139]+1 /* (set! memv ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7975,a[2]=((C_word)li119),tmp=(C_word)a,a+=3,tmp)); t129=C_mutate2((C_word*)lf[140]+1 /* (set! member ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7978,a[2]=((C_word)li120),tmp=(C_word)a,a+=3,tmp)); t130=C_mutate2((C_word*)lf[141]+1 /* (set! assq ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7981,a[2]=((C_word)li121),tmp=(C_word)a,a+=3,tmp)); t131=C_mutate2((C_word*)lf[142]+1 /* (set! assv ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7984,a[2]=((C_word)li122),tmp=(C_word)a,a+=3,tmp)); t132=C_mutate2((C_word*)lf[143]+1 /* (set! assoc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7987,a[2]=((C_word)li123),tmp=(C_word)a,a+=3,tmp)); t133=C_mutate2((C_word*)lf[144]+1 /* (set! list? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7990,a[2]=((C_word)li124),tmp=(C_word)a,a+=3,tmp)); t134=C_mutate2((C_word*)lf[145]+1 /* (set! string? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7993,a[2]=((C_word)li125),tmp=(C_word)a,a+=3,tmp)); t135=C_mutate2((C_word*)lf[146]+1 /* (set! string-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7996,a[2]=((C_word)li126),tmp=(C_word)a,a+=3,tmp)); t136=C_mutate2((C_word*)lf[147]+1 /* (set! string-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7999,a[2]=((C_word)li127),tmp=(C_word)a,a+=3,tmp)); t137=C_mutate2((C_word*)lf[148]+1 /* (set! string-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8002,a[2]=((C_word)li128),tmp=(C_word)a,a+=3,tmp)); t138=C_mutate2((C_word*)lf[149]+1 /* (set! ##sys#make-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8005,a[2]=((C_word)li129),tmp=(C_word)a,a+=3,tmp)); t139=C_mutate2((C_word*)lf[150]+1 /* (set! make-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8025,a[2]=((C_word)li130),tmp=(C_word)a,a+=3,tmp)); t140=C_mutate2((C_word*)lf[153]+1 /* (set! string->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8061,a[2]=((C_word)li132),tmp=(C_word)a,a+=3,tmp)); t141=C_mutate2((C_word*)lf[154]+1 /* (set! ##sys#string->list ...) */,*((C_word*)lf[153]+1)); t142=C_mutate2((C_word*)lf[155]+1 /* (set! list->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8092,a[2]=((C_word)li134),tmp=(C_word)a,a+=3,tmp)); t143=C_mutate2((C_word*)lf[156]+1 /* (set! ##sys#list->string ...) */,*((C_word*)lf[155]+1)); t144=C_mutate2((C_word*)lf[157]+1 /* (set! reverse-list->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8144,a[2]=((C_word)li136),tmp=(C_word)a,a+=3,tmp)); t145=C_mutate2((C_word*)lf[158]+1 /* (set! ##sys#reverse-list->string ...) */,*((C_word*)lf[157]+1)); t146=C_mutate2((C_word*)lf[159]+1 /* (set! string-fill! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8194,a[2]=((C_word)li137),tmp=(C_word)a,a+=3,tmp)); t147=C_mutate2((C_word*)lf[160]+1 /* (set! string-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8207,a[2]=((C_word)li138),tmp=(C_word)a,a+=3,tmp)); t148=C_mutate2((C_word*)lf[161]+1 /* (set! substring ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8219,a[2]=((C_word)li139),tmp=(C_word)a,a+=3,tmp)); t149=C_mutate2((C_word*)lf[162]+1 /* (set! ##sys#substring ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8269,a[2]=((C_word)li140),tmp=(C_word)a,a+=3,tmp)); t150=C_mutate2((C_word*)lf[163]+1 /* (set! string=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8279,a[2]=((C_word)li141),tmp=(C_word)a,a+=3,tmp)); t151=C_mutate2((C_word*)lf[164]+1 /* (set! string-ci=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8282,a[2]=((C_word)li142),tmp=(C_word)a,a+=3,tmp)); t152=C_SCHEME_UNDEFINED; t153=(*a=C_VECTOR_TYPE|1,a[1]=t152,tmp=(C_word)a,a+=2,tmp); t154=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8284,a[2]=((C_word)li143),tmp=(C_word)a,a+=3,tmp); t155=C_set_block_item(t153,0,t154); t156=C_mutate2((C_word*)lf[165]+1 /* (set! string<? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8305,a[2]=t153,a[3]=((C_word)li145),tmp=(C_word)a,a+=4,tmp)); t157=C_mutate2((C_word*)lf[166]+1 /* (set! string>? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8329,a[2]=t153,a[3]=((C_word)li147),tmp=(C_word)a,a+=4,tmp)); t158=C_mutate2((C_word*)lf[167]+1 /* (set! string<=? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8353,a[2]=t153,a[3]=((C_word)li149),tmp=(C_word)a,a+=4,tmp)); t159=C_mutate2((C_word*)lf[168]+1 /* (set! string>=? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8374,a[2]=t153,a[3]=((C_word)li151),tmp=(C_word)a,a+=4,tmp)); t160=C_SCHEME_UNDEFINED; t161=(*a=C_VECTOR_TYPE|1,a[1]=t160,tmp=(C_word)a,a+=2,tmp); t162=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8394,a[2]=((C_word)li152),tmp=(C_word)a,a+=3,tmp); t163=C_set_block_item(t161,0,t162); t164=C_mutate2((C_word*)lf[169]+1 /* (set! string-ci<? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8415,a[2]=t161,a[3]=((C_word)li154),tmp=(C_word)a,a+=4,tmp)); t165=C_mutate2((C_word*)lf[170]+1 /* (set! string-ci>? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8439,a[2]=t161,a[3]=((C_word)li156),tmp=(C_word)a,a+=4,tmp)); t166=C_mutate2((C_word*)lf[171]+1 /* (set! string-ci<=? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8463,a[2]=t161,a[3]=((C_word)li158),tmp=(C_word)a,a+=4,tmp)); t167=C_mutate2((C_word*)lf[172]+1 /* (set! string-ci>=? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8484,a[2]=t161,a[3]=((C_word)li160),tmp=(C_word)a,a+=4,tmp)); t168=C_mutate2((C_word*)lf[173]+1 /* (set! ##sys#string-append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8505,a[2]=((C_word)li161),tmp=(C_word)a,a+=3,tmp)); t169=C_mutate2((C_word*)lf[174]+1 /* (set! string-append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8521,a[2]=((C_word)li163),tmp=(C_word)a,a+=3,tmp)); t170=C_mutate2((C_word*)lf[175]+1 /* (set! string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8560,a[2]=((C_word)li164),tmp=(C_word)a,a+=3,tmp)); t171=C_mutate2((C_word*)lf[176]+1 /* (set! ##sys#fragments->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8566,a[2]=((C_word)li166),tmp=(C_word)a,a+=3,tmp)); t172=C_set_block_item(lf[177] /* most-positive-fixnum */,0,C_fix((C_word)C_MOST_POSITIVE_FIXNUM)); t173=C_set_block_item(lf[178] /* most-negative-fixnum */,0,C_fix((C_word)C_MOST_NEGATIVE_FIXNUM)); t174=C_set_block_item(lf[179] /* fixnum-bits */,0,C_fix((C_word)(C_WORD_SIZE - 1))); t175=C_set_block_item(lf[180] /* fixnum-precision */,0,C_fix((C_word)(C_WORD_SIZE - (1 + 1)))); t176=C_mutate2((C_word*)lf[181]+1 /* (set! fixnum? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8605,a[2]=((C_word)li167),tmp=(C_word)a,a+=3,tmp)); t177=C_mutate2((C_word*)lf[182]+1 /* (set! fx+ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8608,a[2]=((C_word)li168),tmp=(C_word)a,a+=3,tmp)); t178=C_mutate2((C_word*)lf[183]+1 /* (set! fx- ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8611,a[2]=((C_word)li169),tmp=(C_word)a,a+=3,tmp)); t179=C_mutate2((C_word*)lf[184]+1 /* (set! fx* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8614,a[2]=((C_word)li170),tmp=(C_word)a,a+=3,tmp)); t180=C_mutate2((C_word*)lf[185]+1 /* (set! fx= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8617,a[2]=((C_word)li171),tmp=(C_word)a,a+=3,tmp)); t181=C_mutate2((C_word*)lf[186]+1 /* (set! fx> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8623,a[2]=((C_word)li172),tmp=(C_word)a,a+=3,tmp)); t182=C_mutate2((C_word*)lf[187]+1 /* (set! fx< ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8626,a[2]=((C_word)li173),tmp=(C_word)a,a+=3,tmp)); t183=C_mutate2((C_word*)lf[188]+1 /* (set! fx>= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8629,a[2]=((C_word)li174),tmp=(C_word)a,a+=3,tmp)); t184=C_mutate2((C_word*)lf[189]+1 /* (set! fx<= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8632,a[2]=((C_word)li175),tmp=(C_word)a,a+=3,tmp)); t185=C_mutate2((C_word*)lf[190]+1 /* (set! fxmin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8635,a[2]=((C_word)li176),tmp=(C_word)a,a+=3,tmp)); t186=C_mutate2((C_word*)lf[191]+1 /* (set! fxmax ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8638,a[2]=((C_word)li177),tmp=(C_word)a,a+=3,tmp)); t187=C_mutate2((C_word*)lf[192]+1 /* (set! fxneg ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8641,a[2]=((C_word)li178),tmp=(C_word)a,a+=3,tmp)); t188=C_mutate2((C_word*)lf[193]+1 /* (set! fxand ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8644,a[2]=((C_word)li179),tmp=(C_word)a,a+=3,tmp)); t189=C_mutate2((C_word*)lf[194]+1 /* (set! fxior ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8647,a[2]=((C_word)li180),tmp=(C_word)a,a+=3,tmp)); t190=C_mutate2((C_word*)lf[195]+1 /* (set! fxxor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8650,a[2]=((C_word)li181),tmp=(C_word)a,a+=3,tmp)); t191=C_mutate2((C_word*)lf[196]+1 /* (set! fxnot ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8653,a[2]=((C_word)li182),tmp=(C_word)a,a+=3,tmp)); t192=C_mutate2((C_word*)lf[197]+1 /* (set! fxshl ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8656,a[2]=((C_word)li183),tmp=(C_word)a,a+=3,tmp)); t193=C_mutate2((C_word*)lf[198]+1 /* (set! fxshr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8659,a[2]=((C_word)li184),tmp=(C_word)a,a+=3,tmp)); t194=C_mutate2((C_word*)lf[199]+1 /* (set! fxodd? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8662,a[2]=((C_word)li185),tmp=(C_word)a,a+=3,tmp)); t195=C_mutate2((C_word*)lf[200]+1 /* (set! fxeven? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8665,a[2]=((C_word)li186),tmp=(C_word)a,a+=3,tmp)); t196=C_mutate2((C_word*)lf[201]+1 /* (set! fx/ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8668,a[2]=((C_word)li187),tmp=(C_word)a,a+=3,tmp)); t197=C_mutate2((C_word*)lf[202]+1 /* (set! fxmod ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8671,a[2]=((C_word)li188),tmp=(C_word)a,a+=3,tmp)); t198=C_mutate2((C_word*)lf[203]+1 /* (set! fx+? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8674,a[2]=((C_word)li189),tmp=(C_word)a,a+=3,tmp)); t199=C_mutate2((C_word*)lf[204]+1 /* (set! fx-? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8677,a[2]=((C_word)li190),tmp=(C_word)a,a+=3,tmp)); t200=C_mutate2((C_word*)lf[205]+1 /* (set! fx*? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8680,a[2]=((C_word)li191),tmp=(C_word)a,a+=3,tmp)); t201=C_mutate2((C_word*)lf[206]+1 /* (set! fx/? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8683,a[2]=((C_word)li192),tmp=(C_word)a,a+=3,tmp)); t202=C_mutate2((C_word*)lf[207]+1 /* (set! maximum-flonum ...) */,C_flonum(&a,DBL_MAX)); t203=C_mutate2((C_word*)lf[208]+1 /* (set! minimum-flonum ...) */,C_flonum(&a,DBL_MIN)); t204=C_set_block_item(lf[209] /* flonum-radix */,0,C_fix((C_word)FLT_RADIX)); t205=C_mutate2((C_word*)lf[210]+1 /* (set! flonum-epsilon ...) */,C_flonum(&a,DBL_EPSILON)); t206=C_set_block_item(lf[211] /* flonum-precision */,0,C_fix((C_word)DBL_MANT_DIG)); t207=C_set_block_item(lf[212] /* flonum-decimal-precision */,0,C_fix((C_word)DBL_DIG)); t208=C_set_block_item(lf[213] /* flonum-maximum-exponent */,0,C_fix((C_word)DBL_MAX_EXP)); t209=C_set_block_item(lf[214] /* flonum-minimum-exponent */,0,C_fix((C_word)DBL_MIN_EXP)); t210=C_set_block_item(lf[215] /* flonum-maximum-decimal-exponent */,0,C_fix((C_word)DBL_MAX_10_EXP)); t211=C_set_block_item(lf[216] /* flonum-minimum-decimal-exponent */,0,C_fix((C_word)DBL_MIN_10_EXP)); t212=C_mutate2((C_word*)lf[217]+1 /* (set! flonum? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8696,a[2]=((C_word)li193),tmp=(C_word)a,a+=3,tmp)); t213=C_mutate2((C_word*)lf[218]+1 /* (set! finite? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8699,a[2]=((C_word)li194),tmp=(C_word)a,a+=3,tmp)); t214=C_mutate2((C_word*)lf[219]+1 /* (set! fp+ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8705,a[2]=((C_word)li195),tmp=(C_word)a,a+=3,tmp)); t215=C_mutate2((C_word*)lf[220]+1 /* (set! fp- ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8729,a[2]=((C_word)li196),tmp=(C_word)a,a+=3,tmp)); t216=C_mutate2((C_word*)lf[221]+1 /* (set! fp* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8753,a[2]=((C_word)li197),tmp=(C_word)a,a+=3,tmp)); t217=C_mutate2((C_word*)lf[222]+1 /* (set! fp/ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8777,a[2]=((C_word)li198),tmp=(C_word)a,a+=3,tmp)); t218=C_mutate2((C_word*)lf[223]+1 /* (set! fp/? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8801,a[2]=((C_word)li199),tmp=(C_word)a,a+=3,tmp)); t219=C_mutate2((C_word*)lf[224]+1 /* (set! fp= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8825,a[2]=((C_word)li200),tmp=(C_word)a,a+=3,tmp)); t220=C_mutate2((C_word*)lf[225]+1 /* (set! fp> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8849,a[2]=((C_word)li201),tmp=(C_word)a,a+=3,tmp)); t221=C_mutate2((C_word*)lf[226]+1 /* (set! fp< ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8873,a[2]=((C_word)li202),tmp=(C_word)a,a+=3,tmp)); t222=C_mutate2((C_word*)lf[227]+1 /* (set! fp>= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8897,a[2]=((C_word)li203),tmp=(C_word)a,a+=3,tmp)); t223=C_mutate2((C_word*)lf[228]+1 /* (set! fp<= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8921,a[2]=((C_word)li204),tmp=(C_word)a,a+=3,tmp)); t224=C_mutate2((C_word*)lf[229]+1 /* (set! fpneg ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8945,a[2]=((C_word)li205),tmp=(C_word)a,a+=3,tmp)); t225=C_mutate2((C_word*)lf[230]+1 /* (set! fpmax ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8963,a[2]=((C_word)li206),tmp=(C_word)a,a+=3,tmp)); t226=C_mutate2((C_word*)lf[231]+1 /* (set! fpmin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8987,a[2]=((C_word)li207),tmp=(C_word)a,a+=3,tmp)); t227=C_mutate2((C_word*)lf[232]+1 /* (set! fpfloor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9011,a[2]=((C_word)li208),tmp=(C_word)a,a+=3,tmp)); t228=C_mutate2((C_word*)lf[233]+1 /* (set! fptruncate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9029,a[2]=((C_word)li209),tmp=(C_word)a,a+=3,tmp)); t229=C_mutate2((C_word*)lf[234]+1 /* (set! fpround ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9047,a[2]=((C_word)li210),tmp=(C_word)a,a+=3,tmp)); t230=C_mutate2((C_word*)lf[235]+1 /* (set! fpceiling ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9065,a[2]=((C_word)li211),tmp=(C_word)a,a+=3,tmp)); t231=C_mutate2((C_word*)lf[236]+1 /* (set! ##sys#floor ...) */,*((C_word*)lf[232]+1)); t232=C_mutate2((C_word*)lf[237]+1 /* (set! ##sys#truncate ...) */,*((C_word*)lf[233]+1)); t233=C_mutate2((C_word*)lf[238]+1 /* (set! ##sys#ceiling ...) */,*((C_word*)lf[235]+1)); t234=C_mutate2((C_word*)lf[239]+1 /* (set! fpsin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9086,a[2]=((C_word)li212),tmp=(C_word)a,a+=3,tmp)); t235=C_mutate2((C_word*)lf[240]+1 /* (set! fpcos ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9104,a[2]=((C_word)li213),tmp=(C_word)a,a+=3,tmp)); t236=C_mutate2((C_word*)lf[241]+1 /* (set! fptan ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9122,a[2]=((C_word)li214),tmp=(C_word)a,a+=3,tmp)); t237=C_mutate2((C_word*)lf[242]+1 /* (set! fpasin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9140,a[2]=((C_word)li215),tmp=(C_word)a,a+=3,tmp)); t238=C_mutate2((C_word*)lf[243]+1 /* (set! fpacos ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9158,a[2]=((C_word)li216),tmp=(C_word)a,a+=3,tmp)); t239=C_mutate2((C_word*)lf[244]+1 /* (set! fpatan ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9176,a[2]=((C_word)li217),tmp=(C_word)a,a+=3,tmp)); t240=C_mutate2((C_word*)lf[245]+1 /* (set! fpatan2 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9194,a[2]=((C_word)li218),tmp=(C_word)a,a+=3,tmp)); t241=C_mutate2((C_word*)lf[246]+1 /* (set! fpexp ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9218,a[2]=((C_word)li219),tmp=(C_word)a,a+=3,tmp)); t242=C_mutate2((C_word*)lf[247]+1 /* (set! fpexpt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9236,a[2]=((C_word)li220),tmp=(C_word)a,a+=3,tmp)); t243=C_mutate2((C_word*)lf[248]+1 /* (set! fplog ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9260,a[2]=((C_word)li221),tmp=(C_word)a,a+=3,tmp)); t244=C_mutate2((C_word*)lf[249]+1 /* (set! fpsqrt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9278,a[2]=((C_word)li222),tmp=(C_word)a,a+=3,tmp)); t245=C_mutate2((C_word*)lf[250]+1 /* (set! fpabs ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9296,a[2]=((C_word)li223),tmp=(C_word)a,a+=3,tmp)); t246=C_mutate2((C_word*)lf[251]+1 /* (set! fpinteger? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9314,a[2]=((C_word)li224),tmp=(C_word)a,a+=3,tmp)); t247=C_mutate2((C_word*)lf[252]+1 /* (set! * ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_times,a[2]=((C_word)li225),tmp=(C_word)a,a+=3,tmp)); t248=C_mutate2((C_word*)lf[253]+1 /* (set! - ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_minus,a[2]=((C_word)li226),tmp=(C_word)a,a+=3,tmp)); t249=C_mutate2((C_word*)lf[254]+1 /* (set! + ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_plus,a[2]=((C_word)li227),tmp=(C_word)a,a+=3,tmp)); t250=C_mutate2((C_word*)lf[255]+1 /* (set! / ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_divide,a[2]=((C_word)li228),tmp=(C_word)a,a+=3,tmp)); t251=C_mutate2((C_word*)lf[256]+1 /* (set! = ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_nequalp,a[2]=((C_word)li229),tmp=(C_word)a,a+=3,tmp)); t252=C_mutate2((C_word*)lf[257]+1 /* (set! > ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_greaterp,a[2]=((C_word)li230),tmp=(C_word)a,a+=3,tmp)); t253=C_mutate2((C_word*)lf[258]+1 /* (set! < ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_lessp,a[2]=((C_word)li231),tmp=(C_word)a,a+=3,tmp)); t254=C_mutate2((C_word*)lf[259]+1 /* (set! >= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_greater_or_equal_p,a[2]=((C_word)li232),tmp=(C_word)a,a+=3,tmp)); t255=C_mutate2((C_word*)lf[260]+1 /* (set! <= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_less_or_equal_p,a[2]=((C_word)li233),tmp=(C_word)a,a+=3,tmp)); t256=C_mutate2((C_word*)lf[261]+1 /* (set! add1 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9341,a[2]=((C_word)li234),tmp=(C_word)a,a+=3,tmp)); t257=C_mutate2((C_word*)lf[262]+1 /* (set! sub1 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9347,a[2]=((C_word)li235),tmp=(C_word)a,a+=3,tmp)); t258=C_mutate2((C_word*)lf[263]+1 /* (set! quotient ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_quotient,a[2]=((C_word)li236),tmp=(C_word)a,a+=3,tmp)); t259=C_mutate2((C_word*)lf[264]+1 /* (set! number? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9354,a[2]=((C_word)li237),tmp=(C_word)a,a+=3,tmp)); t260=C_mutate2((C_word*)lf[265]+1 /* (set! ##sys#number? ...) */,*((C_word*)lf[264]+1)); t261=C_mutate2((C_word*)lf[266]+1 /* (set! complex? ...) */,*((C_word*)lf[264]+1)); t262=C_mutate2((C_word*)lf[267]+1 /* (set! real? ...) */,*((C_word*)lf[264]+1)); t263=C_mutate2((C_word*)lf[268]+1 /* (set! rational? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9360,a[2]=((C_word)li238),tmp=(C_word)a,a+=3,tmp)); t264=C_mutate2((C_word*)lf[269]+1 /* (set! ##sys#flonum-fraction ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_flonum_fraction,a[2]=((C_word)li239),tmp=(C_word)a,a+=3,tmp)); t265=C_mutate2((C_word*)lf[270]+1 /* (set! ##sys#fprat ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_flonum_rat,a[2]=((C_word)li240),tmp=(C_word)a,a+=3,tmp)); t266=C_mutate2((C_word*)lf[271]+1 /* (set! integer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9365,a[2]=((C_word)li241),tmp=(C_word)a,a+=3,tmp)); t267=C_mutate2((C_word*)lf[272]+1 /* (set! ##sys#integer? ...) */,*((C_word*)lf[271]+1)); t268=C_mutate2((C_word*)lf[273]+1 /* (set! exact? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9369,a[2]=((C_word)li242),tmp=(C_word)a,a+=3,tmp)); t269=C_mutate2((C_word*)lf[274]+1 /* (set! inexact? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9372,a[2]=((C_word)li243),tmp=(C_word)a,a+=3,tmp)); t270=C_mutate2((C_word*)lf[275]+1 /* (set! ##sys#exact? ...) */,*((C_word*)lf[273]+1)); t271=C_mutate2((C_word*)lf[276]+1 /* (set! ##sys#inexact? ...) */,*((C_word*)lf[274]+1)); t272=C_mutate2((C_word*)lf[277]+1 /* (set! expt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_expt,a[2]=((C_word)li244),tmp=(C_word)a,a+=3,tmp)); t273=C_mutate2((C_word*)lf[278]+1 /* (set! ##sys#fits-in-int? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9378,a[2]=((C_word)li245),tmp=(C_word)a,a+=3,tmp)); t274=C_mutate2((C_word*)lf[279]+1 /* (set! ##sys#fits-in-unsigned-int? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9381,a[2]=((C_word)li246),tmp=(C_word)a,a+=3,tmp)); t275=C_mutate2((C_word*)lf[280]+1 /* (set! ##sys#flonum-in-fixnum-range? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9384,a[2]=((C_word)li247),tmp=(C_word)a,a+=3,tmp)); t276=C_mutate2((C_word*)lf[281]+1 /* (set! zero? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9387,a[2]=((C_word)li248),tmp=(C_word)a,a+=3,tmp)); t277=C_mutate2((C_word*)lf[282]+1 /* (set! positive? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9390,a[2]=((C_word)li249),tmp=(C_word)a,a+=3,tmp)); t278=C_mutate2((C_word*)lf[283]+1 /* (set! negative? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9393,a[2]=((C_word)li250),tmp=(C_word)a,a+=3,tmp)); t279=C_mutate2((C_word*)lf[284]+1 /* (set! abs ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9396,a[2]=((C_word)li251),tmp=(C_word)a,a+=3,tmp)); t280=C_mutate2((C_word*)lf[285]+1 /* (set! angle ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9399,a[2]=((C_word)li252),tmp=(C_word)a,a+=3,tmp)); t281=C_mutate2((C_word*)lf[288]+1 /* (set! real-part ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9414,a[2]=((C_word)li253),tmp=(C_word)a,a+=3,tmp)); t282=C_mutate2((C_word*)lf[289]+1 /* (set! imag-part ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9420,a[2]=((C_word)li254),tmp=(C_word)a,a+=3,tmp)); t283=C_mutate2((C_word*)lf[290]+1 /* (set! numerator ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9426,a[2]=((C_word)li257),tmp=(C_word)a,a+=3,tmp)); t284=C_mutate2((C_word*)lf[292]+1 /* (set! denominator ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9453,a[2]=((C_word)li260),tmp=(C_word)a,a+=3,tmp)); t285=C_mutate2((C_word*)lf[294]+1 /* (set! magnitude ...) */,*((C_word*)lf[284]+1)); t286=C_mutate2((C_word*)lf[295]+1 /* (set! signum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9481,a[2]=((C_word)li261),tmp=(C_word)a,a+=3,tmp)); t287=C_mutate2((C_word*)lf[298]+1 /* (set! exact->inexact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9514,a[2]=((C_word)li262),tmp=(C_word)a,a+=3,tmp)); t288=C_mutate2((C_word*)lf[299]+1 /* (set! inexact->exact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9517,a[2]=((C_word)li263),tmp=(C_word)a,a+=3,tmp)); t289=C_mutate2((C_word*)lf[300]+1 /* (set! ##sys#exact->inexact ...) */,*((C_word*)lf[298]+1)); t290=C_mutate2((C_word*)lf[301]+1 /* (set! ##sys#inexact->exact ...) */,*((C_word*)lf[299]+1)); t291=C_mutate2((C_word*)lf[302]+1 /* (set! floor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9522,a[2]=((C_word)li264),tmp=(C_word)a,a+=3,tmp)); t292=C_mutate2((C_word*)lf[303]+1 /* (set! ceiling ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9534,a[2]=((C_word)li265),tmp=(C_word)a,a+=3,tmp)); t293=C_mutate2((C_word*)lf[304]+1 /* (set! truncate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9546,a[2]=((C_word)li266),tmp=(C_word)a,a+=3,tmp)); t294=C_mutate2((C_word*)lf[305]+1 /* (set! round ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9558,a[2]=((C_word)li267),tmp=(C_word)a,a+=3,tmp)); t295=C_mutate2((C_word*)lf[306]+1 /* (set! remainder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9567,a[2]=((C_word)li268),tmp=(C_word)a,a+=3,tmp)); t296=C_mutate2((C_word*)lf[307]+1 /* (set! modulo ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9581,a[2]=((C_word)li269),tmp=(C_word)a,a+=3,tmp)); t297=C_mutate2((C_word*)lf[308]+1 /* (set! even? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9619,a[2]=((C_word)li270),tmp=(C_word)a,a+=3,tmp)); t298=C_mutate2((C_word*)lf[309]+1 /* (set! odd? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9622,a[2]=((C_word)li271),tmp=(C_word)a,a+=3,tmp)); t299=C_SCHEME_UNDEFINED; t300=(*a=C_VECTOR_TYPE|1,a[1]=t299,tmp=(C_word)a,a+=2,tmp); t301=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9624,a[2]=((C_word)li273),tmp=(C_word)a,a+=3,tmp); t302=C_set_block_item(t300,0,t301); t303=C_mutate2((C_word*)lf[310]+1 /* (set! max ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9672,a[2]=t300,a[3]=((C_word)li274),tmp=(C_word)a,a+=4,tmp)); t304=C_mutate2((C_word*)lf[311]+1 /* (set! min ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9681,a[2]=t300,a[3]=((C_word)li275),tmp=(C_word)a,a+=4,tmp)); t305=C_mutate2((C_word*)lf[312]+1 /* (set! exp ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9690,a[2]=((C_word)li276),tmp=(C_word)a,a+=3,tmp)); t306=C_mutate2((C_word*)lf[313]+1 /* (set! log ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9693,a[2]=((C_word)li277),tmp=(C_word)a,a+=3,tmp)); t307=C_mutate2((C_word*)lf[314]+1 /* (set! sin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9696,a[2]=((C_word)li278),tmp=(C_word)a,a+=3,tmp)); t308=C_mutate2((C_word*)lf[315]+1 /* (set! cos ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9699,a[2]=((C_word)li279),tmp=(C_word)a,a+=3,tmp)); t309=C_mutate2((C_word*)lf[316]+1 /* (set! tan ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9702,a[2]=((C_word)li280),tmp=(C_word)a,a+=3,tmp)); t310=C_mutate2((C_word*)lf[317]+1 /* (set! asin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9705,a[2]=((C_word)li281),tmp=(C_word)a,a+=3,tmp)); t311=C_mutate2((C_word*)lf[318]+1 /* (set! acos ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9708,a[2]=((C_word)li282),tmp=(C_word)a,a+=3,tmp)); t312=C_mutate2((C_word*)lf[319]+1 /* (set! sqrt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9711,a[2]=((C_word)li283),tmp=(C_word)a,a+=3,tmp)); t313=C_mutate2((C_word*)lf[320]+1 /* (set! atan ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9714,a[2]=((C_word)li284),tmp=(C_word)a,a+=3,tmp)); t314=C_mutate2((C_word*)lf[321]+1 /* (set! ##sys#gcd ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9726,a[2]=((C_word)li286),tmp=(C_word)a,a+=3,tmp)); t315=C_mutate2((C_word*)lf[322]+1 /* (set! gcd ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9751,a[2]=((C_word)li288),tmp=(C_word)a,a+=3,tmp)); t316=C_mutate2((C_word*)lf[323]+1 /* (set! ##sys#lcm ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9808,a[2]=((C_word)li289),tmp=(C_word)a,a+=3,tmp)); t317=C_mutate2((C_word*)lf[324]+1 /* (set! lcm ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9822,a[2]=((C_word)li291),tmp=(C_word)a,a+=3,tmp)); t318=C_mutate2((C_word*)lf[325]+1 /* (set! string->number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9879,a[2]=((C_word)li292),tmp=(C_word)a,a+=3,tmp)); t319=C_mutate2((C_word*)lf[328]+1 /* (set! ##sys#string->number ...) */,*((C_word*)lf[325]+1)); t320=C_mutate2((C_word*)lf[329]+1 /* (set! number->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_number_to_string,a[2]=((C_word)li293),tmp=(C_word)a,a+=3,tmp)); t321=C_mutate2((C_word*)lf[330]+1 /* (set! ##sys#fixnum->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_fixnum_to_string,a[2]=((C_word)li294),tmp=(C_word)a,a+=3,tmp)); t322=C_mutate2((C_word*)lf[331]+1 /* (set! ##sys#number->string ...) */,*((C_word*)lf[329]+1)); t323=C_mutate2((C_word*)lf[332]+1 /* (set! flonum-print-precision ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9944,a[2]=((C_word)li295),tmp=(C_word)a,a+=3,tmp)); t324=C_mutate2((C_word*)lf[333]+1 /* (set! equal=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9962,a[2]=((C_word)li299),tmp=(C_word)a,a+=3,tmp)); t325=C_mutate2((C_word*)lf[334]+1 /* (set! ##sys#make-symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_make_symbol,a[2]=((C_word)li300),tmp=(C_word)a,a+=3,tmp)); t326=C_mutate2((C_word*)lf[335]+1 /* (set! symbol? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10153,a[2]=((C_word)li301),tmp=(C_word)a,a+=3,tmp)); t327=C_mutate2((C_word*)lf[336]+1 /* (set! ##sys#snafu ...) */,lf[337]); t328=C_mutate2((C_word*)lf[338]+1 /* (set! ##sys#intern-symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_string_to_symbol,a[2]=((C_word)li302),tmp=(C_word)a,a+=3,tmp)); t329=C_mutate2((C_word*)lf[339]+1 /* (set! ##sys#interned-symbol? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10158,a[2]=((C_word)li303),tmp=(C_word)a,a+=3,tmp)); t330=C_mutate2((C_word*)lf[340]+1 /* (set! ##sys#string->symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10161,a[2]=((C_word)li304),tmp=(C_word)a,a+=3,tmp)); t331=*((C_word*)lf[160]+1); t332=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10170,a[2]=((C_word)li305),tmp=(C_word)a,a+=3,tmp); t333=C_mutate2((C_word*)lf[341]+1 /* (set! ##sys#symbol->string ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10197,a[2]=t332,a[3]=((C_word)li306),tmp=(C_word)a,a+=4,tmp)); t334=C_mutate2((C_word*)lf[342]+1 /* (set! ##sys#symbol->qualified-string ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10215,a[2]=t332,a[3]=((C_word)li307),tmp=(C_word)a,a+=4,tmp)); t335=C_mutate2((C_word*)lf[345]+1 /* (set! ##sys#qualified-symbol-prefix ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10241,a[2]=t332,a[3]=((C_word)li308),tmp=(C_word)a,a+=4,tmp)); t336=C_mutate2((C_word*)lf[346]+1 /* (set! ##sys#qualified-symbol? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10259,a[2]=((C_word)li309),tmp=(C_word)a,a+=3,tmp)); t337=C_mutate2((C_word*)lf[347]+1 /* (set! ##sys#string->qualified-symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10282,a[2]=((C_word)li310),tmp=(C_word)a,a+=3,tmp)); t338=C_mutate2((C_word*)lf[348]+1 /* (set! symbol->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10295,a[2]=((C_word)li311),tmp=(C_word)a,a+=3,tmp)); t339=*((C_word*)lf[160]+1); t340=C_mutate2((C_word*)lf[349]+1 /* (set! string->symbol ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10308,a[2]=t339,a[3]=((C_word)li312),tmp=(C_word)a,a+=4,tmp)); t341=*((C_word*)lf[160]+1); t342=C_mutate2((C_word*)lf[350]+1 /* (set! string->uninterned-symbol ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10321,a[2]=t341,a[3]=((C_word)li313),tmp=(C_word)a,a+=4,tmp)); t343=C_fix(-1); t344=(*a=C_VECTOR_TYPE|1,a[1]=t343,tmp=(C_word)a,a+=2,tmp); t345=C_mutate2((C_word*)lf[351]+1 /* (set! gensym ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10334,a[2]=t344,a[3]=((C_word)li314),tmp=(C_word)a,a+=4,tmp)); t346=*((C_word*)lf[174]+1); t347=C_mutate2((C_word*)lf[354]+1 /* (set! symbol-append ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10388,a[2]=t346,a[3]=((C_word)li316),tmp=(C_word)a,a+=4,tmp)); t348=C_mutate2((C_word*)lf[355]+1 /* (set! keyword? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10447,a[2]=((C_word)li317),tmp=(C_word)a,a+=3,tmp)); t349=C_mutate2((C_word*)lf[356]+1 /* (set! string->keyword ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10467,a[2]=((C_word)li318),tmp=(C_word)a,a+=3,tmp)); t350=*((C_word*)lf[355]+1); t351=C_mutate2((C_word*)lf[357]+1 /* (set! keyword->string ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10488,a[2]=t350,a[3]=((C_word)li319),tmp=(C_word)a,a+=4,tmp)); t352=C_a_i_list1(&a,1,lf[359]); t353=t352; t354=C_mutate2((C_word*)lf[360]+1 /* (set! get-keyword ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10506,a[2]=t353,a[3]=((C_word)li320),tmp=(C_word)a,a+=4,tmp)); t355=C_mutate2((C_word*)lf[361]+1 /* (set! ##sys#get-keyword ...) */,*((C_word*)lf[360]+1)); t356=C_mutate2((C_word*)lf[362]+1 /* (set! ##sys#make-blob ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10534,a[2]=((C_word)li321),tmp=(C_word)a,a+=3,tmp)); t357=C_mutate2((C_word*)lf[363]+1 /* (set! make-blob ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10540,a[2]=((C_word)li322),tmp=(C_word)a,a+=3,tmp)); t358=C_mutate2((C_word*)lf[364]+1 /* (set! blob? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10549,a[2]=((C_word)li323),tmp=(C_word)a,a+=3,tmp)); t359=C_mutate2((C_word*)lf[365]+1 /* (set! blob-size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10555,a[2]=((C_word)li324),tmp=(C_word)a,a+=3,tmp)); t360=C_mutate2((C_word*)lf[366]+1 /* (set! string->blob ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10564,a[2]=((C_word)li325),tmp=(C_word)a,a+=3,tmp)); t361=C_mutate2((C_word*)lf[367]+1 /* (set! blob->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10576,a[2]=((C_word)li326),tmp=(C_word)a,a+=3,tmp)); t362=C_mutate2((C_word*)lf[368]+1 /* (set! blob=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10588,a[2]=((C_word)li327),tmp=(C_word)a,a+=3,tmp)); t363=C_mutate2((C_word*)lf[369]+1 /* (set! vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10614,a[2]=((C_word)li328),tmp=(C_word)a,a+=3,tmp)); t364=C_mutate2((C_word*)lf[370]+1 /* (set! vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10617,a[2]=((C_word)li329),tmp=(C_word)a,a+=3,tmp)); t365=C_mutate2((C_word*)lf[371]+1 /* (set! vector-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10620,a[2]=((C_word)li330),tmp=(C_word)a,a+=3,tmp)); t366=C_mutate2((C_word*)lf[372]+1 /* (set! vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10623,a[2]=((C_word)li331),tmp=(C_word)a,a+=3,tmp)); t367=C_mutate2((C_word*)lf[373]+1 /* (set! make-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10626,a[2]=((C_word)li332),tmp=(C_word)a,a+=3,tmp)); t368=C_mutate2((C_word*)lf[375]+1 /* (set! ##sys#make-vector ...) */,*((C_word*)lf[373]+1)); t369=C_mutate2((C_word*)lf[376]+1 /* (set! list->vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10655,a[2]=((C_word)li334),tmp=(C_word)a,a+=3,tmp)); t370=C_mutate2((C_word*)lf[377]+1 /* (set! vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10707,a[2]=((C_word)li336),tmp=(C_word)a,a+=3,tmp)); t371=C_mutate2((C_word*)lf[378]+1 /* (set! vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10740,a[2]=((C_word)li337),tmp=(C_word)a,a+=3,tmp)); t372=C_mutate2((C_word*)lf[380]+1 /* (set! vector-fill! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10746,a[2]=((C_word)li339),tmp=(C_word)a,a+=3,tmp)); t373=C_mutate2((C_word*)lf[381]+1 /* (set! vector-copy! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10774,a[2]=((C_word)li341),tmp=(C_word)a,a+=3,tmp)); t374=C_mutate2((C_word*)lf[383]+1 /* (set! subvector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10843,a[2]=((C_word)li343),tmp=(C_word)a,a+=3,tmp)); t375=C_mutate2((C_word*)lf[384]+1 /* (set! vector-resize ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10914,a[2]=((C_word)li344),tmp=(C_word)a,a+=3,tmp)); t376=C_mutate2(&lf[385] /* (set! ##sys#vector-resize ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10935,a[2]=((C_word)li346),tmp=(C_word)a,a+=3,tmp)); t377=C_mutate2((C_word*)lf[386]+1 /* (set! char? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10974,a[2]=((C_word)li347),tmp=(C_word)a,a+=3,tmp)); t378=C_mutate2((C_word*)lf[387]+1 /* (set! char->integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10977,a[2]=((C_word)li348),tmp=(C_word)a,a+=3,tmp)); t379=C_mutate2((C_word*)lf[388]+1 /* (set! integer->char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10984,a[2]=((C_word)li349),tmp=(C_word)a,a+=3,tmp)); t380=C_mutate2((C_word*)lf[389]+1 /* (set! char=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10991,a[2]=((C_word)li350),tmp=(C_word)a,a+=3,tmp)); t381=C_mutate2((C_word*)lf[390]+1 /* (set! char>? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10994,a[2]=((C_word)li351),tmp=(C_word)a,a+=3,tmp)); t382=C_mutate2((C_word*)lf[391]+1 /* (set! char<? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10997,a[2]=((C_word)li352),tmp=(C_word)a,a+=3,tmp)); t383=C_mutate2((C_word*)lf[392]+1 /* (set! char>=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11000,a[2]=((C_word)li353),tmp=(C_word)a,a+=3,tmp)); t384=C_mutate2((C_word*)lf[393]+1 /* (set! char<=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11003,a[2]=((C_word)li354),tmp=(C_word)a,a+=3,tmp)); t385=C_mutate2((C_word*)lf[394]+1 /* (set! char-upcase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11006,a[2]=((C_word)li355),tmp=(C_word)a,a+=3,tmp)); t386=C_mutate2((C_word*)lf[395]+1 /* (set! char-downcase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11012,a[2]=((C_word)li356),tmp=(C_word)a,a+=3,tmp)); t387=C_mutate2((C_word*)lf[396]+1 /* (set! char-ci=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11018,a[2]=((C_word)li357),tmp=(C_word)a,a+=3,tmp)); t388=C_mutate2((C_word*)lf[397]+1 /* (set! char-ci>? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11032,a[2]=((C_word)li358),tmp=(C_word)a,a+=3,tmp)); t389=C_mutate2((C_word*)lf[398]+1 /* (set! char-ci<? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11043,a[2]=((C_word)li359),tmp=(C_word)a,a+=3,tmp)); t390=C_mutate2((C_word*)lf[399]+1 /* (set! char-ci>=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11054,a[2]=((C_word)li360),tmp=(C_word)a,a+=3,tmp)); t391=C_mutate2((C_word*)lf[400]+1 /* (set! char-ci<=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11065,a[2]=((C_word)li361),tmp=(C_word)a,a+=3,tmp)); t392=C_mutate2((C_word*)lf[401]+1 /* (set! char-upper-case? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11076,a[2]=((C_word)li362),tmp=(C_word)a,a+=3,tmp)); t393=C_mutate2((C_word*)lf[402]+1 /* (set! char-lower-case? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11082,a[2]=((C_word)li363),tmp=(C_word)a,a+=3,tmp)); t394=C_mutate2((C_word*)lf[403]+1 /* (set! char-numeric? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11088,a[2]=((C_word)li364),tmp=(C_word)a,a+=3,tmp)); t395=C_mutate2((C_word*)lf[404]+1 /* (set! char-whitespace? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11094,a[2]=((C_word)li365),tmp=(C_word)a,a+=3,tmp)); t396=C_mutate2((C_word*)lf[405]+1 /* (set! char-alphabetic? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11100,a[2]=((C_word)li366),tmp=(C_word)a,a+=3,tmp)); t397=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11108,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1519: make-vector */ t398=*((C_word*)lf[373]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t398; av2[1]=t397; av2[2]=C_fix(37); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t398+1)))(4,av2);}} /* port-position in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 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_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,3)))){ C_save_and_reclaim((void*)f_12673,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[453]+1):C_i_car(t2)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12680,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:2089: ##sys#check-port */ t7=*((C_word*)lf[437]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=t5; av2[3]=lf[498]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* set-port-name! in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ 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=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_12649,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12653,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:2080: ##sys#check-port */ t5=*((C_word*)lf[437]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[496]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7796 in loop in delq in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7798,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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#port-line in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_ccall f_12661(C_word c,C_word *av){ C_word tmp; C_word 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_12661,3,av);} t3=C_slot(t2,C_fix(1)); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=(C_truep(t3)?C_slot(t2,C_fix(4)):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a11674 in k11663 in loop in map in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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=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_11675,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_cdr(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11671 in k11663 in loop in map in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11673,2,av);} /* library.scm:1642: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11648(t2,((C_word*)t0)[3],t1);} /* k25600 in loop in k25463 in a25457 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25602(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_25602,2,av);} /* library.scm:1875: ##sys#string-append */ t2=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k11681 in loop in map in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11683,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a11684 in loop in map in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11685(C_word c,C_word *av){ C_word tmp; C_word 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_11685,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k12678 in port-position in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12680,2,av);} if(C_truep(C_slot(((C_word*)t0)[2],C_fix(1)))){ t2=C_slot(((C_word*)t0)[2],C_fix(4)); t3=C_slot(((C_word*)t0)[2],C_fix(5)); /* library.scm:2091: ##sys#values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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{ /* library.scm:2092: ##sys#error */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[498]; av2[3]=lf[499]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k11667 in k11663 in loop in map in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11669,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* fpexpt in k6799 */ static void C_ccall f_9236(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_9236,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9258,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; /* Re-use our own argvector */ 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:790: ##sys#error-hook */ t10=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t4; av2[2]=t9; av2[3]=lf[247]; av2[4]=t5; av2[5]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}} /* k9232 in fpexp in k6799 */ static void C_ccall f_9234(C_word c,C_word *av){ C_word tmp; 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_9234,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_exp(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11663 in loop in map in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 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_11665,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11669,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_11673,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_11675,a[2]=((C_word)li390),tmp=(C_word)a,a+=3,tmp); /* library.scm:1642: mapsafe */ t6=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[419]; ((C_proc)C_fast_retrieve_proc(t6))(6,av2);}} /* dynamic-wind in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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=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_11696,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11700,a[2]=t2,a[3]=t4,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* library.scm:1662: before */ t6=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)C_fast_retrieve_proc(t6))(2,av2);}} /* k11690 in loop in map in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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,1)))){ C_save_and_reclaim((void *)f_11692,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* error in k6799 */ 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; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_6857,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; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[9]; av2[4]=t2; C_apply(5,av2);}} else{ /* library.scm:176: ##sys#signal-hook */ t3=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=lf[9]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* ##sys#error-not-a-proper-list in k6799 */ 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 *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_7808,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:462: ##sys#error-hook */ t5=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t4=C_i_car(t3); t5=C_fix((C_word)C_NOT_A_PROPER_LIST_ERROR); /* library.scm:462: ##sys#error-hook */ t6=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=t5; av2[3]=t4; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* flush-output in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_ccall f_12613(C_word c,C_word *av){ C_word tmp; 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_12613,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[454]+1); t4=C_i_check_port_2(*((C_word*)lf[454]+1),C_SCHEME_FALSE,C_SCHEME_TRUE,lf[494]); /* library.scm:2073: ##sys#flush-output */ t5=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t1; av2[2]=*((C_word*)lf[454]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_i_car(t2); t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[494]); /* library.scm:2073: ##sys#flush-output */ t5=*((C_word*)lf[493]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* quit in k6799 */ static void C_ccall f_6842(C_word c,C_word *av){ C_word tmp; 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_6842,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))){ /* library.scm:171: ##sys#quit-hook */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=C_i_car(t2); /* library.scm:171: ##sys#quit-hook */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k23616 in make-locative in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_23618(C_word c,C_word *av){ C_word tmp; C_word t0=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_23618,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k12636 in port-name in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12638,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_slot(((C_word*)t0)[3],C_fix(3)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* port-name in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,3)))){ C_save_and_reclaim((void*)f_12631,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[453]+1):C_i_car(t2)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12638,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* library.scm:2076: ##sys#check-port */ t7=*((C_word*)lf[437]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=t5; av2[3]=lf[495]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* map-loop1832 in map in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_fcall f_11607(C_word t0,C_word t1,C_word 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_11607,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_11632,a[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:1637: g1838 */ 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);}}} /* k12605 in flush-output in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12607,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#flush-output in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ 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=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_12600,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_12607,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:2067: g2264 */ t6=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} /* k12651 in set-port-name! in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12653,2,av);} t2=C_i_check_string_2(((C_word*)t0)[2],lf[496]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k17799 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ 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 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_17801,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_17807,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:3290: char-name */ t5=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17805 in k17799 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_17807,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17811,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li595),tmp=(C_word)a,a+=5,tmp); /* library.scm:3289: g3549 */ t3=t2; f_17811(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_17834,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:3294: outchr */ t5=((C_word*)((C_word*)t0)[6])[1]; f_17388(t5,t4,((C_word*)t0)[3],C_make_character(120));} else{ /* library.scm:3296: outchr */ t4=((C_word*)((C_word*)t0)[6])[1]; f_17388(t4,((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[7]);}}} /* k8917 in fp>= in k6799 */ static void C_ccall f_8919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8919,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_flonum_greater_or_equal_p(((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11630 in map-loop1832 in map in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11632(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_11632,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11607(t6,((C_word*)t0)[5],t5);} /* k25632 in a25457 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_25634,2,av);} t2=((C_word*)t0)[2]; f_25465(t2,C_i_setslot(((C_word*)t0)[3],C_fix(12),t1));} /* loop in map in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_fcall f_11648(C_word t0,C_word 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_11648,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_11665,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_11683,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_11685,a[2]=((C_word)li391),tmp=(C_word)a,a+=3,tmp); /* library.scm:1641: 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[419]; ((C_proc)C_fast_retrieve_proc(t7))(6,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11692,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=C_i_cdr(t2); /* library.scm:1643: 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[419]; ((C_proc)C_fast_retrieve_proc(t6))(5,av2);}}} /* k17858 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_17860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17860,2,av);} /* library.scm:3298: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17316(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k17832 in k17805 in k17799 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 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; 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_17841,a[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:3295: ##sys#number->string */ t3=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in remprop! in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static C_word C_fcall f_23692(C_word t0,C_word t1,C_word t2){ C_word tmp; C_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_SCHEME_FALSE);} else{ t3=C_slot(t1,C_fix(1)); t4=C_slot(t3,C_fix(1)); t5=C_slot(t1,C_fix(0)); t6=C_eqp(t5,((C_word*)t0)[2]); if(C_truep(t6)){ t7=(C_truep(t2)?C_i_setslot(t2,C_fix(1),t4):C_i_setslot(((C_word*)t0)[3],C_fix(2),t4)); return(C_SCHEME_TRUE);} else{ t9=t4; t10=t3; t1=t9; t2=t10; goto loop;}}} /* k17839 in k17832 in k17805 in k17799 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_17841(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17841,2,av);} /* library.scm:3295: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17316(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* g3549 in k17805 in k17799 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_fcall f_17811(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_17811,3,t0,t1,t2);} t3=C_slot(t2,C_fix(1)); /* library.scm:3292: outstr */ t4=((C_word*)((C_word*)t0)[2])[1]; f_17316(t4,t1,((C_word*)t0)[3],t3);} /* k7884 in copy in loop in append in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7886,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k9214 in fpatan2 in k6799 */ static void C_ccall f_9216(C_word c,C_word *av){ C_word tmp; 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_9216,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_atan2(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* fpexp in k6799 */ 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=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_9218,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9234,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_flonum_exp(&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:786: ##sys#error-hook */ t6=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[246]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k18349 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_18351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18351,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18354,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:3391: out */ t4=((C_word*)((C_word*)t0)[6])[1]; f_17752(t4,t2,t3);} /* k18352 in k18349 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_18354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_18354,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_18363,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)li599),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_18363(t6,((C_word*)t0)[7],C_fix(1),t2);} /* k18318 in k18315 in k17955 in out in k17312 in k17309 in k17306 in print in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_18320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18320,2,av);} /* library.scm:3384: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17316(t2,((C_word*)t0)[3],((C_word*)t0)[4],lf[668]);} /* k8983 in fpmax in k6799 */ static void C_ccall f_8985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8985,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* fpmin in k6799 */ 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=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_8987,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9009,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; /* Re-use our own argvector */ 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:790: ##sys#error-hook */ t10=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t4; av2[2]=t9; av2[3]=lf[231]; av2[4]=t5; av2[5]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}} /* k15135 in k15053 in k14989 in k14980 in loop in r-xtoken in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_15137(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15137,2,av);} a=C_alloc(3); if(C_truep(C_eofp(t1))){ /* library.scm:2742: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[592]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]); /* library.scm:2745: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_14978(t3,((C_word*)t0)[2],t2,C_SCHEME_FALSE);}} /* fpmax in k6799 */ 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=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_8963,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8985,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; /* Re-use our own argvector */ 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:790: ##sys#error-hook */ t10=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t4; av2[2]=t9; av2[3]=lf[230]; av2[4]=t5; av2[5]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}} /* k8959 in fpneg in k6799 */ static void C_ccall f_8961(C_word c,C_word *av){ C_word tmp; 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_8961,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k22800 in k22787 in set-finalizer! in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in ... */ static void C_ccall f_22802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_22802,2,av);} /* library.scm:4711: ##sys#print */ t2=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[455]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k22804 in k22787 in set-finalizer! in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 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(4,c,2)))){ C_save_and_reclaim((void *)f_22806,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22810,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:4716: ##sys#number->string */ t4=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_fix((C_word)C_max_pending_finalizers); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in k11977 in ... */ static void C_ccall f_13103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(59,c,4)))){ C_save_and_reclaim((void *)f_13103,2,av);} a=C_alloc(59); t2=C_mutate2((C_word*)lf[132]+1 /* (set! 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_mutate2(&lf[517] /* (set! ##sys#default-parameter-vector ...) */,t4); t6=C_mutate2((C_word*)lf[518]+1 /* (set! ##sys#current-parameter-vector ...) */,lf[519]); t7=C_fix(0); t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_mutate2((C_word*)lf[520]+1 /* (set! make-parameter ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13110,a[2]=t8,a[3]=((C_word)li496),tmp=(C_word)a,a+=4,tmp)); t10=C_mutate2((C_word*)lf[521]+1 /* (set! eof-object? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13274,a[2]=((C_word)li497),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[522]+1 /* (set! char-ready? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13277,a[2]=((C_word)li498),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[441]+1 /* (set! read-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13302,a[2]=((C_word)li499),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[523]+1 /* (set! ##sys#read-char-0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13320,a[2]=((C_word)li500),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[524]+1 /* (set! ##sys#read-char/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13380,a[2]=((C_word)li501),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[525]+1 /* (set! ##sys#peek-char-0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13389,a[2]=((C_word)li502),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[444]+1 /* (set! peek-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13414,a[2]=((C_word)li503),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[526]+1 /* (set! read ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13432,a[2]=((C_word)li504),tmp=(C_word)a,a+=3,tmp)); t18=C_set_block_item(lf[527] /* ##sys#default-read-info-hook */,0,C_SCHEME_FALSE); t19=C_set_block_item(lf[528] /* ##sys#read-error-with-line-number */,0,C_SCHEME_FALSE); t20=C_set_block_item(lf[529] /* ##sys#enable-qualifiers */,0,C_SCHEME_TRUE); t21=C_mutate2((C_word*)lf[530]+1 /* (set! ##sys#read-prompt-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13453,a[2]=((C_word)li505),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate2((C_word*)lf[531]+1 /* (set! ##sys#infix-list-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13456,a[2]=((C_word)li506),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate2((C_word*)lf[532]+1 /* (set! ##sys#sharp-number-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13459,a[2]=((C_word)li507),tmp=(C_word)a,a+=3,tmp)); t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13467,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2359: make-parameter */ t25=*((C_word*)lf[520]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t25; av2[1]=t24; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t25+1)))(3,av2);}} /* k22836 in set-finalizer! in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in ... */ static void C_ccall f_22838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_22838,2,av);} /* library.scm:4721: ##sys#print */ t2=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[455]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k13120 in assign in k13115 in make-parameter in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in ... */ static void C_fcall f_13122(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_13122,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13125,a[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:2272: 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_13125(2,av2);}}} /* k13123 in k13120 in assign in k13115 in make-parameter in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13125,2,av);} if(C_truep(((C_word*)t0)[2])){ t2=C_i_setslot(*((C_word*)lf[518]+1),((C_word*)t0)[3],t1); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k22808 in k22804 in k22787 in set-finalizer! in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in ... */ static void C_ccall f_22810(C_word c,C_word *av){ C_word tmp; C_word 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_22810,2,av);} /* library.scm:4712: string-append */ t2=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[995]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[996]; av2[5]=t1; av2[6]=lf[997]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* ##sys#run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in ... */ static void C_ccall f_22848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_22848,3,av);} a=C_alloc(15); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22852,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_22852(t4,C_SCHEME_UNDEFINED);} else{ t4=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t5=C_slot(*((C_word*)lf[979]+1),C_fix(0)); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22880,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t6,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fudge(C_fix(13)))){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22982,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22986,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* library.scm:4740: ##sys#number->string */ t10=*((C_word*)lf[331]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t8=t7;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_22880(2,av2);}}}} /* make-parameter in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in k11980 in ... */ static void C_ccall f_13110(C_word c,C_word *av){ C_word tmp; C_word 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_13110,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_13268,a[2]=((C_word)li489),tmp=(C_word)a,a+=3,tmp):C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13117,a[2]=((C_word*)t0)[2],a[3]=t6,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:2263: guard */ t8=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}} /* k13115 in make-parameter in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in k11983 in ... */ static void C_ccall f_13117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_13117,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_13118,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word)li490),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_13152,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(lf[517]); if(C_truep(C_fixnum_greater_or_equal_p(t3,t8))){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13256,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t10=C_fixnum_plus(t3,C_fix(1)); /* library.scm:2280: ##sys#vector-resize */ f_10935(t9,lf[517],t10,C_SCHEME_UNDEFINED);} else{ t9=t7; f_13152(t9,C_SCHEME_UNDEFINED);}} /* assign in k13115 in make-parameter in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in ... */ static void C_fcall f_13118(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_13118,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(11); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13122,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_13141,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* library.scm:2268: ##sys#vector-resize */ f_10935(t7,*((C_word*)lf[518]+1),t8,*((C_word*)lf[336]+1));} else{ t7=t6; f_13122(t7,C_SCHEME_UNDEFINED);}} /* k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_23738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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(30,c,5)))){ C_save_and_reclaim((void *)f_23738,2,av);} a=C_alloc(30); t2=C_mutate2((C_word*)lf[1063]+1 /* (set! symbol-plist ...) */,t1); t3=C_mutate2((C_word*)lf[1064]+1 /* (set! get-properties ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23740,a[2]=((C_word)li828),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[1065]+1 /* (set! ##sys#display-times ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23803,a[2]=((C_word)li832),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[796]+1 /* (set! ##sys#dump-heap-state ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_dump_heap_state,a[2]=((C_word)li833),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[1081]+1 /* (set! ##sys#filter-heap-objects ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_filter_heap_objects,a[2]=((C_word)li834),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[1082]+1 /* (set! foldl ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24049,a[2]=((C_word)li836),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[1083]+1 /* (set! foldr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24086,a[2]=((C_word)li838),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[1084]+1 /* (set! ##sys#del ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24123,a[2]=((C_word)li840),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[1085]+1 /* (set! ##sys#nodups ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24157,a[2]=((C_word)li842),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[1086]+1 /* (set! ##sys#drop-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24192,a[2]=((C_word)li844),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[1087]+1 /* (set! ##sys#take-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24228,a[2]=((C_word)li846),tmp=(C_word)a,a+=3,tmp)); t13=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} /* k13139 in assign in k13115 in make-parameter in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in ... */ static void C_ccall f_13141(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_13141,2,av);} t2=C_mutate2((C_word*)lf[518]+1 /* (set! ##sys#current-parameter-vector ...) */,t1); t3=((C_word*)t0)[2]; f_13122(t3,t2);} /* get-properties in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_ccall f_23740(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_23740,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[1064]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23747,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_23747(t9,t8);} else{ t7=t6; f_23747(t7,C_SCHEME_UNDEFINED);}} /* r-char in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_fcall f_15186(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_15186,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15190,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:2753: ##sys#peek-char-0 */ t3=*((C_word*)lf[525]+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);}} /* k23745 in get-properties in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ static void C_fcall f_23747(C_word t0,C_word 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_23747,2,t0,t1);} a=C_alloc(7); t2=C_i_check_list_2(((C_word*)((C_word*)t0)[2])[1],lf[1064]); 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_23759,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=((C_word)li827),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_23759(t7,((C_word*)t0)[4],t3);} /* k22823 in set-finalizer! in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 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,1)))){ C_save_and_reclaim((void *)f_22825,2,av);} /* library.scm:4727: ##sys#force-finalizers */ t2=*((C_word*)lf[794]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k22878 in run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in ... */ static void C_ccall f_22880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_22880,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22883,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_22892,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word)li801),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_22892(t6,t2,C_fix(0));} /* k22881 in k22878 in run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in ... */ static void C_ccall f_22883(C_word c,C_word *av){ C_word tmp; C_word t0=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_22883,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22886,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:4752: vector-fill! */ t3=*((C_word*)lf[380]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[979]+1); av2[3]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a13159 in k13150 in k13115 in make-parameter in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in ... */ static void C_ccall f_13160(C_word c,C_word *av){ C_word tmp; 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_13160,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_word*)lf[518]+1)); 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_13172,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word)li491),tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13181,a[2]=t7,a[3]=((C_word)li492),tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13186,a[2]=t8,a[3]=((C_word)li493),tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t6))){ /* library.scm:2290: def-convert?2487 */ t10=t9; f_13186(t10,t1);} else{ t10=C_i_car(t6); t11=C_u_i_cdr(t6); if(C_truep(C_i_nullp(t11))){ /* library.scm:2290: def-set?2488 */ t12=t8; f_13181(t12,t1,t10);} else{ t12=C_i_car(t11); t13=C_u_i_cdr(t11); /* library.scm:2290: body2485 */ t14=t7; f_13172(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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_slot(lf[517],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_slot(*((C_word*)lf[518]+1),((C_word*)t0)[3]); t6=C_eqp(t5,*((C_word*)lf[336]+1)); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=(C_truep(t6)?C_slot(lf[517],((C_word*)t0)[3]):t5); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}} /* k22850 in run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in ... */ static void C_fcall f_22852(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_22852,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:4756: 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:4757: ##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);}}}}} /* doloop4912 in k22320 in k22313 in k22307 in k22304 in k22301 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_fcall f_22324(C_word t0,C_word t1,C_word 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_22324,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_22337,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_22350,a[2]=t5,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t7=C_a_i_list(&a,3,lf[982],((C_word*)t0)[2],lf[983]); /* library.scm:4534: ##sys#print-to-string */ t8=*((C_word*)lf[710]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ /* library.scm:4584: get-output-string */ t6=*((C_word*)lf[708]+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_22353,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:4586: ##sys#write-char-0 */ t6=*((C_word*)lf[633]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(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_22353(2,av2);}}}} /* k19308 in k19304 in k19300 in k19293 in chicken-version in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in ... */ static void C_ccall f_19310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_19310,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19314,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)){ t6=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=lf[732]; f_19314(2,av2);}} else{ /* library.scm:3738: string-append */ t6=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=lf[733]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[734]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k19312 in k19308 in k19304 in k19300 in k19293 in chicken-version in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_19314,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19318,a[2]=((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:3740: ##sys#build-tag */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[731]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[731]+1); av2[1]=t3; tp(2,av2);}} /* k22320 in k22313 in k22307 in k22304 in k22301 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_22322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_22322,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_22324,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)li785),tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_22324(t5,((C_word*)t0)[7],t1);} /* k22884 in k22881 in k22878 in run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_22886,2,av);} t2=C_i_set_i_slot(*((C_word*)lf[979]+1),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_22852(t4,t3);} /* k19316 in k19312 in k19308 in k19304 in k19300 in k19293 in chicken-version in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in ... */ static void C_ccall f_19318(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,10)))){ C_save_and_reclaim((void *)f_19318,2,av);} t2=(C_truep(t1)?t1:lf[726]); /* library.scm:3730: string-append */ t3=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 11) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(11); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[727]; av2[3]=*((C_word*)lf[728]+1); av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=lf[729]; av2[7]=((C_word*)t0)[5]; av2[8]=((C_word*)t0)[6]; av2[9]=lf[730]; av2[10]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(11,av2);}} /* k13150 in k13115 in make-parameter in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in k12957 in k12243 in ... */ static void C_fcall f_13152(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_13152,2,t0,t1);} a=C_alloc(9); t2=C_i_setslot(lf[517],((C_word*)t0)[2],((C_word*)t0)[3]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13160,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word)li494),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13242,a[2]=((C_word*)t0)[4],a[3]=((C_word)li495),tmp=(C_word)a,a+=4,tmp); /* library.scm:2286: getter-with-setter */ t5=*((C_word*)lf[516]+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);}} /* k15188 in r-char in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_15190,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15193,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:2754: r-token */ t4=((C_word*)((C_word*)t0)[5])[1]; f_14831(t4,t3);} /* k15191 in k15188 in r-char in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_15193(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_15193,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_15205,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_15370,a[2]=t5,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(t6)){ t8=t7; f_15370(t8,t6);} else{ t8=C_u_i_char_equalp(C_make_character(117),((C_word*)t0)[4]); if(C_truep(t8)){ t9=t7; f_15370(t9,t8);} else{ t9=C_u_i_char_equalp(C_make_character(85),((C_word*)t0)[4]); t10=t7; f_15370(t10,t9);}}} else{ if(C_truep(C_i_memq(((C_word*)t0)[4],((C_word*)t0)[5]))){ /* library.scm:2784: ##sys#read-char-0 */ t5=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} /* k22335 in doloop4912 in k22320 in k22313 in k22307 in k22304 in k22301 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ static void C_ccall f_22337(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22337,2,av);} /* library.scm:4584: get-output-string */ t2=*((C_word*)lf[708]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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 block-pointer in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21996,2,av);} t2=C_pointer_to_block(t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#foreign-char-argument in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21998(C_word c,C_word *av){ C_word tmp; C_word 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_21998,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_foreign_char_argumentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#block-pointer in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_21992(C_word c,C_word *av){ C_word tmp; C_word 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_21992,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21996,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:4407: ##sys#make-pointer */ t4=*((C_word*)lf[923]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* def-convert?2487 in a13159 in k13150 in k13115 in make-parameter in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in ... */ static void C_fcall f_13186(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_13186,2,t0,t1);} /* library.scm:2290: def-set?2488 */ t2=((C_word*)t0)[2]; f_13181(t2,t1,C_SCHEME_TRUE);} /* def-set?2488 in a13159 in k13150 in k13115 in make-parameter in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in ... */ static void C_fcall f_13181(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_13181,3,t0,t1,t2);} /* library.scm:2290: body2485 */ t3=((C_word*)t0)[2]; f_13172(t3,t1,t2,C_SCHEME_TRUE);} /* f_7535 in k6799 */ static void C_ccall f_7535(C_word c,C_word *av){ C_word tmp; C_word 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_7535,3,av);} t3=C_i_car(t2); t4=C_i_car(t3); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_cdr(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* body2485 in a13159 in k13150 in k13115 in make-parameter in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in k13037 in ... */ static void C_fcall f_13172(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_13172,4,t0,t1,t2,t3);} t4=C_i_car(((C_word*)t0)[2]); /* library.scm:2292: assign */ t5=((C_word*)t0)[3]; f_13118(t5,t1,t4,((C_word*)t0)[4],t2,t3);} /* loop in append in k6799 */ static void C_fcall f_7836(C_word t0,C_word t1,C_word t2){ C_word 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_7836,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_7855,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t7,a[5]=((C_word)li111),tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_7855(t9,t1,t5);}} /* loop in k23745 in get-properties in k23736 in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_fcall f_23759(C_word t0,C_word t1,C_word t2){ C_word 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_23759,3,t0,t1,t2);} if(C_truep(C_i_nullp(t2))){ /* library.scm:5023: 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:5028: 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:5029: loop */ t8=t1; t9=t5; t1=t8; t2=t9; goto loop;}}} /* f_7556 in k6799 */ static void C_ccall f_7556(C_word c,C_word *av){ C_word tmp; C_word 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_7556,3,av);} t3=C_i_car(t2); t4=C_i_cdr(t3); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_cdr(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* doloop5041 in k22878 in run-pending-finalizers in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in ... */ static void C_fcall f_22892(C_word t0,C_word t1,C_word 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_22892,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_22905,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_22917,a[2]=t5,a[3]=((C_word)li800),tmp=(C_word)a,a+=4,tmp); /* library.scm:4745: call-with-current-continuation */ t8=*((C_word*)lf[424]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* append in k6799 */ static void C_ccall f_7824(C_word c,C_word *av){ C_word tmp; 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_7824,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; /* Re-use our own argvector */ 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_7836,a[2]=t5,a[3]=((C_word)li112),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_7836(t7,t1,t2);}} /* copy in loop in append in k6799 */ static void C_fcall f_7855(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_7855,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:473: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_7836(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_7886,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_slot(t2,C_fix(1)); /* library.scm:475: copy */ t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t4=C_slot(((C_word*)t0)[2],C_fix(0)); /* library.scm:477: ##sys#error-not-a-proper-list */ t5=*((C_word*)lf[134]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=lf[135]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* k8227 in substring in k6799 */ static void C_fcall f_8229(C_word 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_8229,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_8238,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_8238(t6,(C_truep(t5)?C_fixnum_less_or_equal_p(t2,t3):C_SCHEME_FALSE));} else{ t5=t4; f_8238(t5,C_SCHEME_FALSE);}} /* f_7521 in k6799 */ 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=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_7521,3,av);} t3=C_i_cadr(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_car(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_7528 in k6799 */ 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 *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_7528,3,av);} t3=C_i_car(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_cadr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k19300 in k19293 in chicken-version in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_19302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19302,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19306,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*)lf[738]+1))){ /* library.scm:3733: string-append */ t4=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[739]; av2[3]=*((C_word*)lf[738]+1); av2[4]=lf[740]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[741]; f_19306(2,av2);}}} /* k19304 in k19300 in k19293 in chicken-version in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in ... */ static void C_ccall f_19306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_19306,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19310,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_19244,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* library.scm:3712: build-platform */ t6=*((C_word*)lf[723]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k8215 in string-copy in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8217,2,av);} t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* substring in k6799 */ static void C_ccall f_8219(C_word c,C_word *av){ C_word tmp; C_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_8219,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; t5=C_i_check_string_2(t2,lf[161]); t6=C_i_check_exact_2(t3,lf[161]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8229,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t4))){ t8=t4; t9=C_u_i_car(t8); t10=C_i_check_exact_2(t9,lf[161]); t11=t7; f_8229(t11,t9);} else{ t8=t7; f_8229(t8,C_block_size(t2));}} /* k20894 in k20891 in condition->list in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ 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 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_20896,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_20900,a[2]=((C_word*)t0)[2],a[3]=((C_word)li703),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[419]); 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_20972,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,a[6]=((C_word)li704),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_20972(t12,((C_word*)t0)[3],t7);} /* k20891 in condition->list in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_20893(C_word c,C_word *av){ C_word tmp; C_word t0=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_20893,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20896,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; f_20896(2,av2);}} else{ /* library.scm:4152: ##sys#signal-hook */ t3=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[56]; av2[3]=lf[864]; av2[4]=lf[865]; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* k15527 in k15517 in loop in k15493 in k15487 in k15484 in r-ext-symbol in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_15529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15529,2,av);} /* library.scm:2815: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; C_string_to_symbol(3,av2);}} /* f_7549 in k6799 */ 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=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_7549,3,av);} t3=C_i_cadr(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_cdr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k15517 in loop in k15493 in k15487 in k15484 in r-ext-symbol in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_fcall f_15519(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_15519,2,t0,t1);} a=C_alloc(10); t2=C_setbyte(((C_word*)t0)[2],C_fix(0),((C_word*)t0)[3]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15529,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15533,a[2]=t3,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); /* library.scm:2818: ##sys#substring */ t5=*((C_word*)lf[162]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[5])[1]; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k8236 in k8227 in substring in k6799 */ static void C_fcall f_8238(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_8238,2,t0,t1);} if(C_truep(t1)){ /* library.scm:597: ##sys#substring */ t2=*((C_word*)lf[162]+1);{ C_word av2[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);}} else{ t2=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* library.scm:598: ##sys#error-hook */ t3=*((C_word*)lf[75]+1);{ C_word av2[6]; av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=lf[161]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* a18474 in a18468 in a18462 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ static void C_ccall f_18475(C_word c,C_word *av){ 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_18475,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18479,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:3423: ##sys#print */ t3=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[684]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k18477 in a18474 in a18468 in a18462 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_18479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18479,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18482,a[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_18518,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* library.scm:3424: ##sys#symbol->string */ t4=*((C_word*)lf[341]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in k15493 in k15487 in k15484 in r-ext-symbol in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_fcall f_15500(C_word t0,C_word t1,C_word t2){ C_word 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(11,0,4)))){ C_save_and_reclaim_args((void *)trf_15500,3,t0,t1,t2);} a=C_alloc(11); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ /* library.scm:2810: ##sys#read-error */ t3=*((C_word*)lf[533]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=lf[595]; av2[4]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=C_subbyte(((C_word*)((C_word*)t0)[4])[1],t2); t4=C_eqp(t3,C_fix(35)); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15519,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_fixnum_greaterp(t2,C_fix(31)))){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15548,a[2]=((C_word*)t0)[4],a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* library.scm:2813: ##sys#substring */ t7=*((C_word*)lf[162]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_fix(0); av2[4]=C_fix(31); ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t6=t5; f_15519(t6,C_SCHEME_UNDEFINED);}} else{ t5=C_fixnum_plus(t2,C_fix(1)); /* library.scm:2820: loop */ t8=t1; t9=t5; t1=t8; t2=t9; goto loop;}}} /* ##sys#substring in k6799 */ 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=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_8269,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8273,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:603: ##sys#make-string */ t7=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k18480 in k18477 in a18474 in a18468 in a18462 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_18482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_18482,2,av);} a=C_alloc(5); if(C_truep(C_i_structurep(((C_word*)t0)[2],lf[680]))){ t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_i_member(lf[681],t2); t4=t3; if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18497,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* library.scm:3427: ##sys#print */ t6=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[682]; 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ /* library.scm:3430: ##sys#print */ t2=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[683]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* fpneg in k6799 */ static void C_ccall f_8945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8945,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8961,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; /* Re-use our own argvector */ 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:786: ##sys#error-hook */ t6=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[229]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k8941 in fp<= in k6799 */ static void C_ccall f_8943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8943,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_flonum_less_or_equal_p(((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15781 in k15730 in k15724 in k15804 in k15703 in k15700 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in ... */ static void C_ccall f_15783(C_word c,C_word *av){ C_word tmp; C_word 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_15783,2,av);} /* library.scm:2883: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[603]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k22351 in doloop4912 in k22320 in k22313 in k22307 in k22304 in k22301 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ static void C_ccall f_22353(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_22353,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22356,a[2]=((C_word*)t0)[2],a[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:4588: display */ t3=*((C_word*)lf[639]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k22354 in k22351 in doloop4912 in k22320 in k22313 in k22307 in k22304 in k22301 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in ... */ static void C_ccall f_22356(C_word c,C_word *av){ C_word tmp; C_word t0=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_22356,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22363,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:4579: readln */ f_22186(t2,((C_word*)t0)[5]);} /* k22348 in doloop4912 in k22320 in k22313 in k22307 in k22304 in k22301 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_22350,2,av);} /* library.scm:4582: ##sys#read-warning */ t2=*((C_word*)lf[540]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k18495 in k18480 in k18477 in a18474 in a18468 in a18462 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ 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; 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_18497,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18500,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:3428: ##sys#print */ t4=*((C_word*)lf[638]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k22361 in k22354 in k22351 in doloop4912 in k22320 in k22313 in k22307 in k22304 in k22301 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in ... */ static void C_ccall f_22363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22363,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_22324(t2,((C_word*)t0)[3],t1);} /* cpu-time in k6799 */ static void C_ccall f_7069(C_word c,C_word *av){ C_word tmp; C_word t0=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,3)))){ C_save_and_reclaim((void *)f_7069,2,av);} a=C_alloc(8); t2=C_a_i_cpu_time(&a,1,((C_word*)t0)[2]); t3=C_slot(((C_word*)t0)[2],C_fix(0)); t4=C_slot(((C_word*)t0)[2],C_fix(1)); /* library.scm:265: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_values(4,av2);}} /* string-ci=? in k6799 */ 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=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_8282,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_string_ci_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* compare579 in k6799 */ 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=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_8284,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:618: k */ t11=t5;{ C_word *av2=av; /* Re-use our own argvector */ 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:618: k */ t11=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t1; av2[2]=t8; av2[3]=t9; av2[4]=t10; ((C_proc)C_fast_retrieve_proc(t11))(5,av2);}}} /* f_7504 in k6799 */ 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=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_7504,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_cddr(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* current-seconds in k6799 */ 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; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_7063,2,av);} a=C_alloc(4); t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_get_current_seconds(&a,1,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_7501 in k6799 */ 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=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_7501,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_cdar(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* fp<= in k6799 */ 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=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_8921,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8943,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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_flonum_less_or_equal_p(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:790: ##sys#error-hook */ t10=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t4; av2[2]=t9; av2[3]=lf[228]; av2[4]=t5; av2[5]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}} /* ##sys#block-ref in k6799 */ 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=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_7019,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_7507 in k6799 */ 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=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_7507,3,av);} t3=C_i_car(t2); t4=C_i_car(t3); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_car(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* remainder in k6799 */ 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=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_9567,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9579,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t4; av2[2]=t2; av2[3]=t3; C_quotient(4,av2);}} /* string=? in k6799 */ static void C_ccall f_8279(C_word c,C_word *av){ C_word tmp; C_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_8279,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_string_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8271 in substring in k6799 */ static void C_ccall f_8273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8273,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_7570 in k6799 */ 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=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_7570,3,av);} t3=C_i_cdr(t2); t4=C_i_cdr(t3); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_cdr(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* ##sys#halt in k6799 */ 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=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_7012,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_halt(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#flo2fix in k6799 */ 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=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_7015,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_quickflonumtruncate(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k22307 in k22304 in k22301 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in ... */ static void C_ccall f_22309(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_22309,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_22315,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:4572: ##sys#read-warning */ t9=*((C_word*)lf[540]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t7; av2[2]=((C_word*)t0)[3]; av2[3]=lf[984]; ((C_proc)(void*)(*((C_word*)t9+1)))(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:4576: ##sys#read-warning */ t12=*((C_word*)lf[540]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t12; av2[1]=t7; av2[2]=((C_word*)t0)[3]; av2[3]=lf[985]; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} else{ t12=C_SCHEME_UNDEFINED; t13=t7;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t12; f_22315(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:4576: ##sys#read-warning */ t14=*((C_word*)lf[540]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t14; av2[1]=t7; av2[2]=((C_word*)t0)[3]; av2[3]=lf[985]; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} else{ t14=C_SCHEME_UNDEFINED; t15=t7;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; f_22315(2,av2);}}}}} /* ##sys#write-char-0 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in ... */ static void C_ccall f_17087(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_17087,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_17094,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:3139: g3283 */ t7=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t3; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}} /* k22304 in k22301 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in ... */ static void C_ccall f_22306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_22306,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22309,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:4567: readln */ f_22186(t3,((C_word*)t0)[2]);} /* k22301 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in ... */ static void C_ccall f_22303(C_word c,C_word *av){ C_word tmp; C_word t0=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_22303,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22306,a[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:4566: open-output-string */ t3=*((C_word*)lf[706]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9577 in remainder in k6799 */ static void C_ccall f_9579(C_word c,C_word *av){ C_word tmp; C_word t0=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_9579,2,av);} a=C_alloc(8); t2=C_a_i_times(&a,2,t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_minus(&a,2,((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k15546 in loop in k15493 in k15487 in k15484 in r-ext-symbol in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_15548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15548,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_15519(t3,t2);} /* ##sys#byte in k6799 */ 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=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_7001,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_subbyte(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k17048 in copy-read-table in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in ... */ static void C_ccall f_17050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_17050,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_17057,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); /* library.scm:3132: ##sys#vector-resize */ f_10935(t4,t3,t5,C_SCHEME_FALSE);} else{ t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_17057(2,av2);}}} /* void in k6799 */ 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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7007,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#setbyte in k6799 */ 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=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_7004,5,av);} t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_setbyte(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k17055 in k17048 in copy-read-table in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in ... */ 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; 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_17057,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_17064,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); /* library.scm:3134: ##sys#vector-resize */ f_10935(t4,t3,t5,C_SCHEME_FALSE);} else{ t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[632],((C_word*)t0)[4],t2,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k22313 in k22307 in k22304 in k22301 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in ... */ static void C_ccall f_22315(C_word c,C_word *av){ C_word tmp; C_word t0=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_22315,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22322,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:4579: readln */ f_22186(t2,((C_word*)t0)[4]);} /* k15531 in k15517 in loop in k15493 in k15487 in k15484 in r-ext-symbol in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_15533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_15533,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15537,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_fix(1)); /* library.scm:2819: ##sys#substring */ t5=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[5])[1]; av2[3]=t4; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k15535 in k15531 in k15517 in loop in k15493 in k15487 in k15484 in r-ext-symbol in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_15537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_15537,2,av);} /* library.scm:2816: string-append */ t2=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7030 in block-set! in k6799 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_7032,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7035,a[2]=((C_word*)t0)[2],a[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:252: ##sys#check-range */ t4=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(0); av2[4]=t3; av2[5]=lf[54]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k7033 in k7030 in block-set! in k6799 */ static void C_ccall f_7035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7035,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* ##sys#block-set! in k6799 */ 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=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_7028,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7032,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:251: ##sys#signal-hook */ t8=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t5; av2[2]=lf[56]; av2[3]=lf[54]; av2[4]=lf[57]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}} else{ t8=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_7032(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:251: ##sys#signal-hook */ t9=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t9; av2[1]=t5; av2[2]=lf[56]; av2[3]=lf[54]; av2[4]=lf[57]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(6,av2);}} else{ t9=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_7032(2,av2);}}} else{ if(C_truep(C_byteblockp(t2))){ /* library.scm:251: ##sys#signal-hook */ t9=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t9; av2[1]=t5; av2[2]=lf[56]; av2[3]=lf[54]; av2[4]=lf[57]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(6,av2);}} else{ t9=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_7032(2,av2);}}}}} /* a18462 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_18463(C_word c,C_word *av){ C_word tmp; C_word 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_18463,3,av);} a=C_alloc(13); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18469,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li605),tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18520,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)li609),tmp=(C_word)a,a+=7,tmp); /* library.scm:3421: with-exception-handler */ t5=*((C_word*)lf[685]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a18468 in a18462 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_18469(C_word c,C_word *av){ C_word tmp; C_word 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_18469,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18475,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li604),tmp=(C_word)a,a+=6,tmp); /* library.scm:3421: k3673 */ t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* loop in a25294 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25301(C_word c,C_word *av){ C_word tmp; C_word t0=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_25301,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_25311,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* library.scm:1801: ##sys#update-errno */ t5=*((C_word*)lf[86]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k24334 in loop in k24294 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in ... */ static void C_fcall f_24336(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_24336,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ /* library.scm:4682: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_24317(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24346,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:4683: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_24317(t3,t2,((C_word*)t0)[4]);}} /* k25309 in loop in a25294 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25311(C_word c,C_word *av){ C_word tmp; C_word t0=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_25311,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25335,a[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:1802: errno */ t3=*((C_word*)lf[443]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a24300 in k24297 in k24294 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in ... */ static void C_ccall f_24301(C_word c,C_word *av){ C_word tmp; C_word 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_24301,3,av);} t3=C_i_check_list_2(t2,lf[992]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k17092 in write-char-0 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in ... */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17094,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[46]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#procedure->string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_18408(C_word c,C_word *av){ C_word tmp; C_word 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_18408,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18412,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:3404: ##sys#lambda-info */ t4=*((C_word*)lf[508]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a15611 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_15612(C_word c,C_word *av){ C_word tmp; 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_15612,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:2843: readrec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_13628(t3,t1);} else{ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop in k24294 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in ... */ static void C_fcall f_24317(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_24317,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_24336,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_24356,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* library.scm:4681: ##sys#substring */ t10=*((C_word*)lf[162]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t9; av2[2]=t4; av2[3]=C_fix(0); av2[4]=C_fix(2); ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t9=t7; f_24336(t9,C_SCHEME_FALSE);}}} /* k18410 in procedure->string in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_18412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_18412,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18422,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3406: ##sys#lambda-info->string */ t3=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[677]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in ... */ static void C_ccall f_17026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_17026,2,av);} a=C_alloc(7); t2=C_mutate2((C_word*)lf[628]+1 /* (set! set-read-syntax! ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17030,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_24964,a[2]=((C_word)li871),tmp=(C_word)a,a+=3,tmp); /* library.scm:3107: syntax-setter */ t5=((C_word*)t0)[3]; f_16961(t5,t3,lf[629],C_fix(2),t4);} /* a15605 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_15606(C_word c,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_15606,2,av);} /* library.scm:2842: h */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k17020 in k16974 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17022,2,av);} t2=((C_word*)t0)[2]; f_16979(t2,C_i_setslot(((C_word*)t0)[3],((C_word*)t0)[4],t1));} /* k19293 in chicken-version in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_19295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19295,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19302,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(*((C_word*)lf[742]+1))){ /* library.scm:3732: string-append */ t4=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[743]; av2[3]=*((C_word*)lf[742]+1); av2[4]=lf[744]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[745]; f_19302(2,av2);}}} /* ##sys#check-output-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 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=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_11998,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_SCHEME_FALSE,t3,t6); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t5=C_i_check_port(t2,C_SCHEME_FALSE,t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k19267 in str in k19251 in k19248 in k19245 in k19242 in k19304 in k19300 in k19293 in chicken-version in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19269,2,av);} /* ##sys#string-append */ t2=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[737]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* string-copy in k6799 */ 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=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_8207,3,av);} a=C_alloc(5); t3=C_i_check_string_2(t2,lf[160]); t4=C_block_size(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8217,a[2]=t2,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:581: ##sys#make-string */ t7=*((C_word*)lf[149]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* caaaar in k6799 */ 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=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_7584,3,av);} t3=C_i_car(t2); t4=C_i_car(t3); t5=C_i_car(t4); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_i_car(t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* ##sys#check-blob in k6799 */ static void C_ccall f_7094(C_word c,C_word *av){ C_word tmp; C_word 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_7094,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k17003 in k16992 in k16986 in k16977 in k16974 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17005,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k15664 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_15666(C_word c,C_word *av){ C_word tmp; C_word t0=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_15666,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15693,a[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:2854: ##sys#peek-char-0 */ t3=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k24344 in k24334 in loop in k24294 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in ... */ static void C_ccall f_24346(C_word c,C_word *av){ C_word tmp; 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_24346,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k19287 in k19283 in k19279 in k19275 in k19251 in k19248 in k19245 in k19242 in k19304 in k19300 in k19293 in chicken-version in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in ... */ static void C_ccall f_19289(C_word c,C_word *av){ C_word tmp; C_word 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_19289,2,av);} /* library.scm:3720: string-append */ t2=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#check-structure in k6799 */ 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=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_7083,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k15648 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_15650(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15650,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15657,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2851: readrec */ t3=((C_word*)((C_word*)t0)[3])[1]; f_13628(t3,t2);} /* k15655 in k15648 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_15657,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list2(&a,2,lf[598],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k25362 in a25355 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_fcall f_25366(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_25366,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_25382,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:1826: ##sys#update-errno */ t7=*((C_word*)lf[86]+1);{ 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,t2))){ t6=C_fixnum_difference(t2,t5); t7=C_fixnum_plus(t3,t5); t8=C_fixnum_plus(t4,t5); /* library.scm:1836: 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);}}}}} /* k19279 in k19275 in k19251 in k19248 in k19245 in k19242 in k19304 in k19300 in k19293 in chicken-version in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in ... */ static void C_ccall f_19281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19281,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19285,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:3720: str */ f_19255(t3,((C_word*)t0)[6]);} /* k25362 in a25355 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_fcall f_25364(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_25364,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_25366,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)li421),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_25366(t5,((C_word*)t0)[5],t1,C_fix(0),((C_word*)t0)[6]);} /* k19283 in k19279 in k19275 in k19251 in k19248 in k19245 in k19242 in k19304 in k19300 in k19293 in chicken-version in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_19285,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19289,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:3720: ##sys#symbol->string */ t4=*((C_word*)lf[341]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k24354 in loop in k24294 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_24356,2,av);} t2=((C_word*)t0)[2]; f_24336(t2,C_i_string_equal_p(lf[1094],t1));} /* k20822 in make-composite-condition in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20824,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[862]+1); av2[3]=t1; C_apply(4,av2);}} /* map-loop4459 in make-composite-condition in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_fcall f_20826(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_20826,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_mutate2(((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);}}} /* k17062 in k17055 in k17048 in copy-read-table in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_17064(C_word c,C_word *av){ C_word tmp; 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_17064,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_record4(&a,4,lf[632],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15639 in k15632 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_15641(C_word c,C_word *av){ C_word tmp; 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_15641,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list2(&a,2,lf[597],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k23635 in k23632 in memory-statistics in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_ccall f_23637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_23637,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_vector3(&a,3,t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* copy-read-table in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in ... */ 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=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_17036,3,av);} a=C_alloc(4); t3=C_i_check_structure_2(t2,lf[632],lf[631]); t4=C_slot(t2,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17050,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(t4)){ t6=C_block_size(t4); /* library.scm:3130: ##sys#vector-resize */ f_10935(t5,t4,t6,C_SCHEME_FALSE);} else{ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_17050(2,av2);}}} /* k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in ... */ static void C_ccall f_17030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_17030,2,av);} a=C_alloc(6); t2=C_mutate2((C_word*)lf[629]+1 /* (set! set-sharp-read-syntax! ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17034,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24953,a[2]=((C_word)li869),tmp=(C_word)a,a+=3,tmp); /* library.scm:3115: syntax-setter */ t5=((C_word*)t0)[3]; f_16961(t5,t3,lf[630],C_fix(3),t4);} /* k15632 in k15596 in k15590 in k15587 in k15584 in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_15634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_15634,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15641,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2848: readrec */ t3=((C_word*)((C_word*)t0)[3])[1]; f_13628(t3,t2);} /* k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in ... */ static void C_ccall f_17034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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(30,c,4)))){ C_save_and_reclaim((void *)f_17034,2,av);} a=C_alloc(30); t2=C_mutate2((C_word*)lf[630]+1 /* (set! set-parameterized-read-syntax! ...) */,t1); t3=C_mutate2((C_word*)lf[631]+1 /* (set! copy-read-table ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17036,a[2]=((C_word)li577),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[633]+1 /* (set! ##sys#write-char-0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17087,a[2]=((C_word)li578),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[634]+1 /* (set! ##sys#write-char/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17103,a[2]=((C_word)li579),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[635]+1 /* (set! write-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17115,a[2]=((C_word)li580),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[636]+1 /* (set! newline ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17136,a[2]=((C_word)li581),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[637]+1 /* (set! write ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17151,a[2]=((C_word)li582),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[639]+1 /* (set! display ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17169,a[2]=((C_word)li583),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[640]+1 /* (set! print ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17187,a[2]=((C_word)li585),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[641]+1 /* (set! print* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17238,a[2]=((C_word)li587),tmp=(C_word)a,a+=3,tmp)); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17291,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3179: make-parameter */ t13=*((C_word*)lf[520]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t12; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} /* k25380 in loop in k25362 in a25355 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25382(C_word c,C_word *av){ C_word tmp; C_word t0=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_25382,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25424,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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); /* library.scm:1827: errno */ t3=*((C_word*)lf[443]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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(3,c,4)))){ C_save_and_reclaim((void *)f_11976,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[455]+1 /* (set! ##sys#standard-error ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11979,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1888: ##sys#open-file-port */ t4=*((C_word*)lf[452]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[453]+1); av2[3]=C_fix(0); av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k14675 in k14660 in k14654 in a14626 in r-number in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14677,2,av);} if(C_truep(t1)){ t2=C_eqp(((C_word*)t0)[2],lf[326]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=((C_word*)((C_word*)t0)[5])[1]; if(C_truep(t3)){ /* library.scm:2645: ##sys#read-warning */ t4=*((C_word*)lf[540]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[6]; av2[2]=((C_word*)t0)[7]; av2[3]=lf[583]; av2[4]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a25392 in k25422 in k25380 in loop in k25362 in a25355 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 in ... */ static void C_ccall f_25393(C_word c,C_word *av){ C_word tmp; C_word t0=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_25393,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:1830: loop */ t5=((C_word*)((C_word*)t0)[6])[1]; f_25366(t5,t1,t2,t3,t4);} /* k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_11972,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[454]+1 /* (set! ##sys#standard-output ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11976,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1886: ##sys#make-port */ t4=*((C_word*)lf[438]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; av2[3]=*((C_word*)lf[451]+1); av2[4]=lf[1132]; av2[5]=lf[472]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k19275 in k19251 in k19248 in k19245 in k19242 in k19304 in k19300 in k19293 in chicken-version in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in ... */ static void C_ccall f_19277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19277,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19281,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:3720: str */ f_19255(t3,((C_word*)t0)[6]);} /* k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_11979,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11982,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1889: ##sys#open-file-port */ t3=*((C_word*)lf[452]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[454]+1); av2[3]=C_fix(1); av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* modulo in k6799 */ static void C_ccall f_9581(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_9581,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9617,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t4; av2[2]=t2; av2[3]=t3; C_quotient(4,av2);}} /* k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 in ... */ 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 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_11985,2,av);} a=C_alloc(39); t2=C_mutate2((C_word*)lf[456]+1 /* (set! ##sys#check-input-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11987,a[2]=((C_word)li427),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[457]+1 /* (set! ##sys#check-output-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11998,a[2]=((C_word)li428),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[437]+1 /* (set! ##sys#check-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12009,a[2]=((C_word)li429),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[458]+1 /* (set! ##sys#check-open-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12020,a[2]=((C_word)li430),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[459]+1 /* (set! current-input-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12031,a[2]=((C_word)li432),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[460]+1 /* (set! current-output-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12092,a[2]=((C_word)li434),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[461]+1 /* (set! current-error-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12153,a[2]=((C_word)li436),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[462]+1 /* (set! ##sys#tty-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12214,a[2]=((C_word)li437),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[464]+1 /* (set! ##sys#port-data ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12231,a[2]=((C_word)li438),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[465]+1 /* (set! ##sys#set-port-data! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12237,a[2]=((C_word)li439),tmp=(C_word)a,a+=3,tmp)); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12245,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_build_platform,a[2]=((C_word)li894),tmp=(C_word)a,a+=3,tmp); t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25250,a[2]=t12,tmp=(C_word)a,a+=3,tmp); /* library.scm:1947: g2131 */ t15=t13;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; ((C_proc)C_fast_retrieve_proc(t15))(2,av2);}} /* k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_11982,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11985,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1890: ##sys#open-file-port */ t3=*((C_word*)lf[452]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[455]+1); av2[3]=C_fix(2); av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k25325 in k25333 in k25309 in loop in a25294 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25327(C_word c,C_word *av){ C_word tmp; C_word 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_25327,2,av);} /* library.scm:1804: ##sys#signal-hook */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[440]; av2[3]=lf[444]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* ##sys#check-input-port in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in ... */ static void C_ccall f_11987(C_word c,C_word *av){ C_word tmp; C_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_11987,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_SCHEME_TRUE,t3,t6); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t5=C_i_check_port(t2,C_SCHEME_TRUE,t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k25333 in k25309 in loop in a25294 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_25335,2,av);} a=C_alloc(10); t2=C_fix((C_word)EINTR); t3=C_eqp(t1,t2); if(C_truep(t3)){ /* library.scm:1803: ##sys#dispatch-interrupt */ t4=*((C_word*)lf[439]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25327,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_25331,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k25329 in k25333 in k25309 in loop in a25294 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_25331,2,av);} /* library.scm:1806: ##sys#string-append */ t2=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[445]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* output-port? in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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; 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_11910,3,av);} t3=t2; if(C_truep(C_blockp(t3))){ if(C_truep(C_portp(t3))){ t4=C_slot(t2,C_fix(1)); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_i_not(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* machine-byte-order in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 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 *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_19215,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in ... */ static void C_ccall f_19214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_19214,2,av);} a=C_alloc(13); t2=t1; t3=C_mutate2((C_word*)lf[721]+1 /* (set! machine-byte-order ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19215,a[2]=t2,a[3]=((C_word)li655),tmp=(C_word)a,a+=4,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19220,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)li864),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24692,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* library.scm:3698: g3951 */ t7=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)C_fast_retrieve_proc(t7))(2,av2);}} /* remprop! in k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_23679(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_23679,4,av);} a=C_alloc(5); t4=C_i_check_symbol_2(t2,lf[1062]); t5=C_slot(t2,C_fix(2)); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23692,a[2]=t3,a[3]=t2,a[4]=((C_word)li825),tmp=(C_word)a,a+=5,tmp); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=( f_23692(t6,t5,C_SCHEME_FALSE) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k23675 in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in ... */ static void C_ccall f_23677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_23677,2,av);} a=C_alloc(12); t2=C_mutate2((C_word*)lf[1061]+1 /* (set! get ...) */,t1); t3=C_mutate2((C_word*)lf[1062]+1 /* (set! remprop! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23679,a[2]=((C_word)li826),tmp=(C_word)a,a+=3,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23738,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24258,a[2]=((C_word)li847),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24267,a[2]=((C_word)li848),tmp=(C_word)a,a+=3,tmp); /* library.scm:5002: getter-with-setter */ t7=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t4; av2[2]=t5; av2[3]=t6; av2[4]=lf[1090]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* a25337 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25338(C_word c,C_word *av){ C_word tmp; C_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_25338,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_display_char(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* put! in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in ... */ static void C_ccall f_23653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_23653,5,av);} a=C_alloc(8); t5=C_i_check_symbol_2(t2,lf[1058]); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_putprop(&a,3,t2,t3,t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a25340 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25341(C_word c,C_word *av){ C_word tmp; C_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_25341,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_display_string(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a25343 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25344(C_word c,C_word *av){ C_word tmp; C_word 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_25344,3,av);} t3=C_close_file(t2); /* library.scm:1815: ##sys#update-errno */ t4=*((C_word*)lf[86]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#get in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in ... */ static void C_ccall f_23660(C_word c,C_word *av){ C_word tmp; C_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_23660,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[1061]); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_i_getprop(t2,t3,t6); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* a25355 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25356(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_25356,6,av);} a=C_alloc(7); t6=t3; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_25364,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_25364(t8,t6);} else{ t8=C_block_size(t4); t9=t7; f_25364(t9,C_fixnum_difference(t8,t5));}} /* a25349 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25350(C_word c,C_word *av){ C_word tmp; C_word 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_25350,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_flush_output(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a25352 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_25353(C_word c,C_word *av){ C_word tmp; C_word 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_25353,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_char_ready_p(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ 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; C_word 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_19208,2,av);} a=C_alloc(13); t2=t1; t3=C_mutate2((C_word*)lf[720]+1 /* (set! machine-type ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19209,a[2]=t2,a[3]=((C_word)li654),tmp=(C_word)a,a+=4,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19214,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)li865),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24696,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* library.scm:3694: g3947 */ t7=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)C_fast_retrieve_proc(t7))(2,av2);}} /* machine-type in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 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; 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_19209,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* truncate in k6799 */ 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=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_9546,3,av);} t3=C_i_check_number_2(t2,lf[304]); if(C_truep(C_fixnump(t2))){ t4=t2; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* library.scm:1014: fptruncate */ t4=*((C_word*)lf[233]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k23632 in memory-statistics in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_23634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_23634,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23637,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:4968: ##sys#memory-info */ t4=*((C_word*)lf[31]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* memory-statistics in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in ... */ static void C_ccall f_23630(C_word c,C_word *av){ 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_23630,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23634,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:4967: ##sys#gc */ t3=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_19202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_19202,2,av);} a=C_alloc(13); t2=t1; t3=C_mutate2((C_word*)lf[719]+1 /* (set! software-type ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19203,a[2]=t2,a[3]=((C_word)li653),tmp=(C_word)a,a+=4,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19208,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)li866),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24700,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* library.scm:3690: g3943 */ t7=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)C_fast_retrieve_proc(t7))(2,av2);}} /* software-type in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_19203(C_word c,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_19203,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in ... */ static void C_ccall f_22422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_22422,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_22424,a[2]=t3,a[3]=((C_word)li786),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_22438,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:4601: ##sys#read-warning */ t9=*((C_word*)lf[540]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t7; av2[2]=((C_word*)t0)[3]; av2[3]=lf[987]; ((C_proc)(void*)(*((C_word*)t9+1)))(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:4605: ##sys#read-warning */ t12=*((C_word*)lf[540]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t12; av2[1]=t7; av2[2]=((C_word*)t0)[3]; av2[3]=lf[988]; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} else{ t12=C_SCHEME_UNDEFINED; t13=t7;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t12; f_22438(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:4605: ##sys#read-warning */ t14=*((C_word*)lf[540]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t14; av2[1]=t7; av2[2]=((C_word*)t0)[3]; av2[3]=lf[988]; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} else{ t14=C_SCHEME_UNDEFINED; t15=t7;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; f_22438(2,av2);}}}}} /* str in k19251 in k19248 in k19245 in k19242 in k19304 in k19300 in k19293 in chicken-version in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in ... */ static void C_fcall f_19255(C_word t1,C_word 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_19255,2,t1,t2);} a=C_alloc(3); t3=C_eqp(lf[735],t2); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=lf[736]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19269,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:3719: symbol->string */ t5=*((C_word*)lf[348]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k20995 in map-loop4521 in k20894 in k20891 in condition->list in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in ... */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20997,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_20972(t6,((C_word*)t0)[5],t5);} /* round in k6799 */ static void C_ccall f_9558(C_word c,C_word *av){ C_word tmp; C_word 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,1)))){ C_save_and_reclaim((void *)f_9558,3,av);} a=C_alloc(4); t3=C_i_check_number_2(t2,lf[305]); if(C_truep(C_fixnump(t2))){ t4=t2; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_a_i_flonum_round_proper(&a,1,t2); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k19251 in k19248 in k19245 in k19242 in k19304 in k19300 in k19293 in chicken-version in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in ... */ 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 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_19253,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19255,a[2]=((C_word)li658),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19277,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:3720: str */ f_19255(t4,((C_word*)t0)[5]);} /* k19248 in k19245 in k19242 in k19304 in k19300 in k19293 in chicken-version in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in ... */ static void C_ccall f_19250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19250,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19253,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:3715: machine-type */ t4=*((C_word*)lf[720]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k22430 in k22426 in get/clear-str in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_ccall f_22432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_22432,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* build-platform in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 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 *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_19227,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in ... */ static void C_ccall f_19226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_19226,2,av);} a=C_alloc(10); t2=t1; t3=C_mutate2((C_word*)lf[723]+1 /* (set! build-platform ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19227,a[2]=t2,a[3]=((C_word)li657),tmp=(C_word)a,a+=4,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19232,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24684,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* library.scm:3706: software-type */ t6=*((C_word*)lf[719]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* close in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in ... */ static void C_fcall f_12377(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_12377,3,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12381,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:1988: ##sys#check-port */ t5=*((C_word*)lf[437]+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);}} /* floor in k6799 */ static void C_ccall f_9522(C_word c,C_word *av){ C_word tmp; C_word 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_9522,3,av);} t3=C_i_check_number_2(t2,lf[302]); if(C_truep(C_fixnump(t2))){ t4=t2; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* library.scm:1002: fpfloor */ t4=*((C_word*)lf[232]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k22426 in get/clear-str in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_22428,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22432,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:4595: open-output-string */ t4=*((C_word*)lf[706]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* get/clear-str in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in ... */ static void C_fcall f_22424(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_22424,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22428,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:4594: get-output-string */ t3=*((C_word*)lf[708]+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);}} /* software-version in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 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!=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_19221,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in ... */ 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 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_19220,2,av);} a=C_alloc(13); t2=t1; t3=C_mutate2((C_word*)lf[722]+1 /* (set! software-version ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19221,a[2]=t2,a[3]=((C_word)li656),tmp=(C_word)a,a+=4,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19226,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)li863),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24688,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* library.scm:3702: g3955 */ t7=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)C_fast_retrieve_proc(t7))(2,av2);}} /* condition? in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_20883(C_word c,C_word *av){ C_word tmp; C_word 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_20883,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[680]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* condition->list in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_20889(C_word c,C_word *av){ C_word tmp; C_word 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_20889,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20893,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:4151: condition? */ t4=*((C_word*)lf[863]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11968(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_11968,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[453]+1 /* (set! ##sys#standard-input ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11972,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:1885: ##sys#make-port */ t4=*((C_word*)lf[438]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; av2[3]=*((C_word*)lf[451]+1); av2[4]=lf[1133]; av2[5]=lf[472]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* map-loop4521 in k20894 in k20891 in condition->list in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_fcall f_20972(C_word t0,C_word t1,C_word 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_20972,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_20997,a[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:4155: g4527 */ t5=((C_word*)t0)[4]; f_20900(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);}}} /* ceiling in k6799 */ static void C_ccall f_9534(C_word c,C_word *av){ C_word tmp; C_word 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_9534,3,av);} t3=C_i_check_number_2(t2,lf[303]); if(C_truep(C_fixnump(t2))){ t4=t2; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* library.scm:1008: fpceiling */ t4=*((C_word*)lf[235]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in ... */ static void C_ccall f_22438(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_22438,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_22443,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)li788),tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_22443(t5,((C_word*)t0)[7],C_SCHEME_END_OF_LIST);} /* a11569 in k11559 in loop in for-each in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11570(C_word c,C_word *av){ C_word tmp; C_word 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_11570,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_cdr(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11576 in loop in for-each in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11578,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k19245 in k19242 in k19304 in k19300 in k19293 in chicken-version in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in ... */ static void C_ccall f_19247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19247,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19250,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:3714: software-version */ t4=*((C_word*)lf[722]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k12391 in k12379 in close in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ static void C_ccall f_12393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12393,2,av);} t2=C_i_set_i_slot(((C_word*)t0)[2],C_fix(8),C_SCHEME_TRUE); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9504 in signum in k6799 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9506,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?C_fix(-1):lf[297]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19242 in k19304 in k19300 in k19293 in chicken-version in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in ... */ static void C_ccall f_19244(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_19244,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19247,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:3713: software-type */ t4=*((C_word*)lf[719]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in for-each in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_fcall f_11548(C_word t0,C_word 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_11548,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_11561,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_11578,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_11580,a[2]=((C_word)li386),tmp=(C_word)a,a+=3,tmp); /* library.scm:1630: 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[417]; ((C_proc)C_fast_retrieve_proc(t7))(6,av2);}} else{ /* library.scm:1632: 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[417]; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}}} /* for-each-loop4441 in make-composite-condition in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static C_word C_fcall f_20860(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[680],lf[861]); t4=C_slot(t1,C_fix(1)); t6=t4; t1=t6; goto loop;} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* k9510 in signum in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9512,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=(C_truep(t1)?C_fix(0):lf[286]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* inexact->exact in k6799 */ static void C_ccall f_9517(C_word c,C_word *av){ C_word tmp; C_word 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_9517,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_inexact_to_exact(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* exact->inexact in k6799 */ 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,1)))){ C_save_and_reclaim((void *)f_9514,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_exact_to_inexact(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in ... */ static void C_ccall f_22419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_22419,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22422,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:4592: open-output-string */ t4=*((C_word*)lf[706]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in ... */ static void C_ccall f_22416(C_word c,C_word *av){ C_word tmp; C_word t0=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_22416,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22419,a[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:4591: readln */ f_22186(t2,((C_word*)t0)[2]);} /* k22469 in k22457 in k22445 in loop in k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 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 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_22471,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22478,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_22484,a[2]=t5,a[3]=((C_word)li787),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_22484(t7,t2,t3,C_SCHEME_END_OF_LIST,lf[986]);} /* k14019 in k13971 in k13965 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_14021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14021,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_14016,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2486: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_13979(t3,C_SCHEME_FALSE);}} /* k14026 in k13971 in k13965 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_14028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14028,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14032,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:2494: r-cons-codepoint */ f_13739(t3,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k11559 in loop in for-each in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_11561,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11568,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_11570,a[2]=((C_word)li385),tmp=(C_word)a,a+=3,tmp); /* library.scm:1631: mapsafe */ t4=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[417]; ((C_proc)C_fast_retrieve_proc(t4))(6,av2);}} /* k11566 in k11559 in loop in for-each in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11568,2,av);} /* library.scm:1631: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11548(t2,((C_word*)t0)[3],t1);} /* k16889 in k16796 in loop in read-bytevector-literal in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in ... */ static void C_ccall f_16891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_16891,2,av);} t2=C_fixnum_shift_left(t1,C_fix(4)); /* library.scm:3047: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_16794(t3,((C_word*)t0)[3],((C_word*)t0)[4],t2);} /* f_16893 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in ... */ 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=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_16893,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_16906,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:3059: ##sys#read-char-0 */ t8=*((C_word*)lf[523]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(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_16918,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:3060: ##sys#read-char-0 */ t10=*((C_word*)lf[523]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ /* library.scm:3061: ##sys#read-error */ t9=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t1; av2[2]=t3; av2[3]=lf[626]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}}} /* k14014 in k14019 in k13971 in k13965 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_14016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_14016,2,av);} t2=((C_word*)t0)[2]; f_13979(t2,C_eqp(C_make_character(117),t1));} /* k12379 in close in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static void C_ccall f_12381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_12381,2,av);} a=C_alloc(4); if(C_truep(C_slot(((C_word*)t0)[2],C_fix(8)))){ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_slot(t2,C_fix(4)); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12393,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:1990: g2171 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} /* chicken-version in k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 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((c-2)*C_SIZEOF_PAIR +3,c,8)))){ C_save_and_reclaim((void*)f_19234,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; C_word t8; C_word t9; C_word t10; 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)); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19295,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=C_fudge(C_fix(3)); t7=(C_truep(t6)?lf[746]:lf[747]); t8=C_fudge(C_fix(15)); t9=(C_truep(t8)?lf[748]:lf[749]); t10=C_fudge(C_fix(40)); t11=(C_truep(t10)?lf[750]:lf[751]); t12=C_fudge(C_fix(24)); t13=(C_truep(t12)?lf[752]:lf[753]); t14=C_fudge(C_fix(28)); t15=(C_truep(t14)?lf[754]:lf[755]); t16=C_fudge(C_fix(32)); t17=(C_truep(t16)?lf[756]:lf[757]); if(C_truep(C_fudge(C_fix(39)))){ /* library.scm:3722: string-append */ t18=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t18; av2[1]=t5; av2[2]=t7; av2[3]=t9; av2[4]=t11; av2[5]=t13; av2[6]=t15; av2[7]=t17; av2[8]=lf[758]; ((C_proc)(void*)(*((C_word*)t18+1)))(9,av2);}} else{ /* library.scm:3722: string-append */ t18=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t18; av2[1]=t5; av2[2]=t7; av2[3]=t9; av2[4]=t11; av2[5]=t13; av2[6]=t15; av2[7]=t17; av2[8]=lf[759]; ((C_proc)(void*)(*((C_word*)t18+1)))(9,av2);}}} else{ t5=*((C_word*)lf[728]+1); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=*((C_word*)lf[728]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k19230 in k19224 in k19218 in k19212 in k19206 in k19200 in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_fcall f_19232(C_word t0,C_word t1){ C_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,3)))){ C_save_and_reclaim_args((void *)trf_19232,2,t0,t1);} a=C_alloc(17); t2=C_set_block_item(lf[724] /* ##sys#windows-platform */,0,t1); t3=C_mutate2((C_word*)lf[725]+1 /* (set! chicken-version ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19234,a[2]=((C_word)li659),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[760]+1 /* (set! ##sys#->feature-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19409,a[2]=((C_word)li660),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[762]+1 /* (set! ##sys#features ...) */,lf[763]); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19443,a[2]=((C_word)li661),tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19461,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_24666,a[2]=t6,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* library.scm:3770: software-type */ t9=*((C_word*)lf[719]+1);{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* k22476 in k22469 in k22457 in k22445 in loop in k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in ... */ static void C_ccall f_22478(C_word c,C_word *av){ C_word tmp; 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_22478,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[710],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k14039 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_ccall f_14041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14041,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14047,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:2497: ##sys#unicode-surrogate? */ t4=*((C_word*)lf[559]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k14045 in k14039 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ 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(7,c,4)))){ C_save_and_reclaim((void *)f_14047,2,av);} a=C_alloc(7); if(C_truep(t1)){ /* library.scm:2498: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[561]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14057,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:2499: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* a11579 in loop in for-each in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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=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_11580,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_fcall f_22443(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_22443,3,t0,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22447,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:4610: ##sys#read-char-0 */ t4=*((C_word*)lf[523]+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);}} /* k22445 in loop in k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in ... */ static void C_ccall f_22447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_22447,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_22459,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:4613: get/clear-str */ t6=((C_word*)t0)[7]; f_22424(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_22579,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:4633: ##sys#peek-char-0 */ t7=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22646,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:4643: ##sys#write-char-0 */ t7=*((C_word*)lf[633]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=((C_word*)((C_word*)t0)[8])[1]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}} /* map in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11589(C_word c,C_word *av){ C_word tmp; C_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_11589,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[419]); 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_11607,a[2]=t7,a[3]=t13,a[4]=t9,a[5]=t8,a[6]=((C_word)li389),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_11607(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_11648,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word)li392),tmp=(C_word)a,a+=7,tmp)); t9=((C_word*)t7)[1]; f_11648(t9,t1,t5);}} /* k14030 in k14026 in k13971 in k13965 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_14032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14032,2,av);} /* library.scm:2494: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13786(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* loop in g4527 in k20894 in k20891 in condition->list in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in ... */ static void C_fcall f_20914(C_word t0,C_word t1,C_word 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(9,0,3)))){ C_save_and_reclaim_args((void *)trf_20914,4,t0,t1,t2,t3);} a=C_alloc(9); 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_caar(t2); t5=C_eqp(((C_word*)t0)[2],t4); if(C_truep(t5)){ t6=C_i_cddr(t2); t7=C_i_cdar(t2); t8=C_i_cadr(t2); t9=C_a_i_list2(&a,2,t7,t8); t10=C_a_i_cons(&a,2,t9,t3); /* library.scm:4162: loop */ t12=t1; t13=t6; t14=t10; t1=t12; t2=t13; t3=t14; goto loop;} else{ t6=C_i_cddr(t2); /* library.scm:4163: loop */ t12=t1; t13=t6; t14=t3; t1=t12; t2=t13; t3=t14; goto loop;}}} /* k22457 in k22445 in loop in k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in ... */ static void C_ccall f_22459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_22459,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_22471,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_22556,a[2]=t4,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t6=C_a_i_list(&a,3,lf[982],((C_word*)t0)[3],lf[983]); /* library.scm:4534: ##sys#print-to-string */ t7=*((C_word*)lf[710]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_22471(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:4631: loop */ t6=((C_word*)((C_word*)t0)[7])[1]; f_22443(t6,((C_word*)t0)[4],t5);}} /* k12318 in k12294 in k12291 in open in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in ... */ 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(0,c,4)))){ C_save_and_reclaim((void *)f_12320,2,av);} /* library.scm:1982: ##sys#open-file-port */ t2=*((C_word*)lf[452]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* doloop2152 in open in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in ... */ static void C_fcall f_12322(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_12322,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_12335,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=C_eqp(t3,lf[473]); if(C_truep(t5)){ t6=C_mutate2(((C_word *)((C_word*)t0)[3])+1,lf[474]); t7=C_slot(t2,C_fix(1)); t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ t6=C_eqp(t3,lf[475]); if(C_truep(t6)){ t7=C_mutate2(((C_word *)((C_word*)t0)[3])+1,lf[476]); t8=C_slot(t2,C_fix(1)); t11=t1; t12=t8; t1=t11; t2=t12; goto loop;} else{ t7=C_eqp(t3,lf[477]); if(C_truep(t7)){ if(C_truep(((C_word*)t0)[4])){ /* library.scm:1978: ##sys#error */ t8=*((C_word*)lf[17]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=lf[478]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t8=C_mutate2(((C_word *)((C_word*)t0)[6])+1,lf[479]); t9=C_slot(t2,C_fix(1)); t11=t1; t12=t9; t1=t11; t2=t12; goto loop;}} else{ /* library.scm:1980: ##sys#error */ t8=*((C_word*)lf[17]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=lf[480]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}}}}} /* k9007 in fpmin in k6799 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9009,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k14059 in k14055 in k14045 in k14039 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in ... */ static void C_ccall f_14061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14061,2,av);} /* library.scm:2499: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13786(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k20906 in g4527 in k20894 in k20891 in condition->list in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in ... */ static void C_ccall f_20908(C_word c,C_word *av){ C_word tmp; 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_20908,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* g4527 in k20894 in k20891 in condition->list in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in ... */ static void C_fcall f_20900(C_word t0,C_word t1,C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_20900,3,t0,t1,t2);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20908,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_20914,a[2]=t2,a[3]=t6,a[4]=((C_word)li702),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_20914(t8,t3,t4,C_SCHEME_END_OF_LIST);} /* reverse in k6799 */ 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=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_7903,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_7909,a[2]=t4,a[3]=t2,a[4]=((C_word)li114),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_7909(t6,t1,t2,C_SCHEME_END_OF_LIST);} /* fpfloor in k6799 */ 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=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_9011,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9027,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_flonum_floor(&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:786: ##sys#error-hook */ t6=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[232]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k14055 in k14045 in k14039 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_14057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_14057,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14061,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:2499: r-cons-codepoint */ f_13739(t3,((C_word*)t0)[5],((C_word*)t0)[6]);} /* loop in reverse in k6799 */ static void C_fcall f_7909(C_word t0,C_word t1,C_word 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_7909,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:484: loop */ t9=t1; t10=t5; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;} else{ /* library.scm:485: ##sys#error-not-a-proper-list */ t5=*((C_word*)lf[134]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=lf[136]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* a20628 in with-exception-handler in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_20629(C_word c,C_word *av){ 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_20629,2,av);} t2=C_mutate2((C_word*)lf[840]+1 /* (set! ##sys#current-exception-handler ...) */,((C_word*)t0)[2]); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a20624 in with-exception-handler in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_20625(C_word c,C_word *av){ 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_20625,2,av);} t2=C_mutate2((C_word*)lf[840]+1 /* (set! ##sys#current-exception-handler ...) */,((C_word*)t0)[2]); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* fptruncate in k6799 */ 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=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_9029,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9045,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_flonum_truncate(&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:786: ##sys#error-hook */ t6=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[233]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k9025 in fpfloor in k6799 */ static void C_ccall f_9027(C_word c,C_word *av){ C_word tmp; 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_9027,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_flonum_floor(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12314 in k12303 in k12300 in k12294 in k12291 in open in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12316,2,av);} /* library.scm:1984: ##sys#string-append */ t2=*((C_word*)lf[173]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[471]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* loop2 in k22469 in k22457 in k22445 in loop in k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in ... */ static void C_fcall f_22484(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_22484,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_22498,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* library.scm:4623: ##sys#print-to-string */ t6=*((C_word*)lf[710]+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=C_i_stringp(t5); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22507,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_22507(t8,t6);} else{ t8=t2; t9=C_u_i_car(t8); t10=t7; f_22507(t10,C_charp(t9));}}} /* k12310 in k12303 in k12300 in k12294 in k12291 in open in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_12312,2,av);} /* library.scm:1984: ##sys#signal-hook */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[440]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k14068 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in ... */ static void C_fcall f_14070(C_word 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_14070,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14077,a[2]=((C_word*)t0)[2],a[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:2501: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+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_eqp(((C_word*)t0)[7],C_make_character(10)); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14090,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_14090(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[7],C_make_character(13)); if(C_truep(t4)){ t5=t3; f_14090(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[7],C_make_character(32)); t6=t3; f_14090(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[7],C_make_character(9))));}}}} /* k14075 in k14068 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_14077,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:2501: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_13786(t3,((C_word*)t0)[5],t1,t2);} /* k23524 in make-locative in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_23526(C_word c,C_word *av){ C_word tmp; C_word t0=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_23526,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k22496 in loop2 in k22469 in k22457 in k22445 in loop in k22436 in k22420 in k22417 in k22414 in k22292 in k22289 in user-read-hook in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in ... */ static void C_ccall f_22498(C_word c,C_word *av){ C_word tmp; 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_22498,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[95],t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop1801 in for-each in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_fcall f_11518(C_word t0,C_word t1,C_word 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_11518,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_11528,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:1626: g1802 */ 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);}}} /* k12333 in doloop2152 in open in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in ... */ static void C_ccall f_12335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_12335,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_12322(t3,((C_word*)t0)[4],t2);} /* current-exception-handler in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 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 *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_20633,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[840]+1); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=*((C_word*)lf[840]+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_20646,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:4127: ##sys#check-closure */ t6=*((C_word*)lf[78]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=lf[859]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* eat-ws in k14088 in k14068 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_fcall f_14095(C_word t0,C_word t1,C_word 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_14095,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_14112,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:2507: ##sys#read-char-0 */ t8=*((C_word*)lf[523]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ switch(t4){ case C_make_character(13): if(C_truep(t3)){ /* library.scm:2510: loop */ t7=((C_word*)((C_word*)t0)[4])[1]; f_13786(t7,t1,t2,((C_word*)t0)[5]);} else{ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14127,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:2511: ##sys#read-char-0 */ t8=*((C_word*)lf[523]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} case C_make_character(10): if(C_truep(t3)){ /* library.scm:2517: loop */ t7=((C_word*)((C_word*)t0)[4])[1]; f_13786(t7,t1,t2,((C_word*)t0)[5]);} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14162,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:2518: ##sys#read-char-0 */ t8=*((C_word*)lf[523]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} default: t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14165,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:2524: loop */ t8=((C_word*)((C_word*)t0)[4])[1]; f_13786(t8,t1,t2,((C_word*)t0)[5]);} else{ /* library.scm:2521: ##sys#read-warning */ t8=*((C_word*)lf[540]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[3]; av2[3]=lf[563]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}}}} /* k14088 in k14068 in k13801 in loop in k13782 in r-string in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_fcall f_14090(C_word 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_14090,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_14095,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)li522),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_14095(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:2527: ##sys#read-error */ t2=*((C_word*)lf[533]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[2]; av2[3]=lf[564]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14194,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_word*)((C_word*)t0)[6])[1]; if(C_truep(C_u_i_char_greater_or_equal_p(t3,C_make_character(48)))){ t4=((C_word*)((C_word*)t0)[6])[1]; t5=C_u_i_char_less_or_equal_p(t4,C_make_character(55)); t6=t2; f_14194(t6,t5);} else{ t4=t2; f_14194(t4,C_SCHEME_FALSE);}} else{ t3=t2; f_14194(t3,C_SCHEME_FALSE);}}}} /* k12303 in k12300 in k12294 in k12291 in open in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in ... */ static void C_ccall f_12305(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_12305,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12312,a[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_12316,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k12300 in k12294 in k12291 in open in k12243 in k11983 in k11980 in k11977 in k11974 in k11970 in k11966 in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_12302,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_12305,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:1983: ##sys#update-errno */ t3=*((C_word*)lf[86]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* memq in k6799 */ static void C_ccall f_7972(C_word c,C_word *av){ C_word tmp; C_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_7972,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_memq(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* memv in k6799 */ 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=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_7975,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_memv(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* member in k6799 */ static void C_ccall f_7978(C_word c,C_word *av){ C_word tmp; C_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_7978,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_member(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* for-each in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ 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=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_11503,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[417]); 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_11518,a[2]=t9,a[3]=t5,a[4]=((C_word)li384),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_11518(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_11548,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word)li387),tmp=(C_word)a,a+=7,tmp)); t9=((C_word*)t7)[1]; f_11548(t9,t1,t5);}} /* with-exception-handler in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ static void C_ccall f_20619(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_20619,4,av);} a=C_alloc(8); t4=*((C_word*)lf[840]+1); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20625,a[2]=t2,a[3]=((C_word)li690),tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20629,a[2]=t4,a[3]=((C_word)li691),tmp=(C_word)a,a+=4,tmp); /* library.scm:4118: ##sys#dynamic-wind */ t7=*((C_word*)lf[423]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* body4409 in k20644 in current-exception-handler in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static C_word C_fcall f_20648(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_mutate2((C_word*)lf[840]+1 /* (set! ##sys#current-exception-handler ...) */,((C_word*)t0)[2]); return(t2);} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* k20644 in current-exception-handler in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in ... */ static void C_ccall f_20646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_20646,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_20648,a[2]=((C_word*)t0)[3],a[3]=((C_word)li693),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20654,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20659,a[2]=t5,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t3))){ t7=( /* library.scm:4128: def-convert?4411 */ f_20659(t6) ); t8=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ 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:4128: def-set?4412 */ f_20654(t5) ); t10=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ 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:4128: body4409 */ f_20648(t4,t9) ); t12=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}} /* list? in k6799 */ 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=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_7990,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_listp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* string? in k6799 */ 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=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_7993,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_stringp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* string-length in k6799 */ 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=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_7996,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_string_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_7999 in k6799 */ 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=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_7999,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_string_ref(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11526 in for-each-loop1801 in for-each in k11305 in k11302 in k11299 in k11296 in k11293 in k11290 in k11287 in k11284 in k11281 in k11278 in k11275 in k11272 in k11269 in k11266 in k11106 in k6799 */ static void C_ccall f_11528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_11528,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_11518(t3,((C_word*)t0)[4],t2);} /* assq in k6799 */ 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=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_7981,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_assq(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* assv in k6799 */ 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=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_7984,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_assv(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* assoc in k6799 */ static void C_ccall f_7987(C_word c,C_word *av){ C_word tmp; C_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_7987,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_assoc(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k16878 in k16796 in loop in read-bytevector-literal in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in ... */ static void C_ccall f_16880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_16880,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:3046: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_16794(t5,((C_word*)t0)[5],t4,C_SCHEME_FALSE);} /* k13504 in k13491 in read-warning in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_13506,2,av);} /* library.scm:2372: string-append */ t2=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[541]; av2[3]=t1; av2[4]=lf[542]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k23508 in make-locative in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_23510(C_word c,C_word *av){ C_word tmp; 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_23510,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* ##sys#read-error in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 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=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_13508,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_13516,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:2382: ##sys#port-line */ t6=*((C_word*)lf[497]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* def-set?4412 in k20644 in current-exception-handler in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static C_word C_fcall f_20654(C_word t0){ C_word tmp; C_word t1; C_stack_overflow_check;{} return(( /* library.scm:4128: body4409 */ f_20648(((C_word*)t0)[2],C_SCHEME_TRUE) ));} /* def-convert?4411 in k20644 in current-exception-handler in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in ... */ static C_word C_fcall f_20659(C_word t0){ C_word tmp; C_word t1; C_stack_overflow_check;{} return(( /* library.scm:4128: def-set?4412 */ f_20654(((C_word*)t0)[2]) ));} /* k23572 in make-locative in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_23574(C_word c,C_word *av){ C_word tmp; 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_23574,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k13527 in k13514 in read-error in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in ... */ 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,5)))){ C_save_and_reclaim((void *)f_13529,2,av);} /* library.scm:2384: string-append */ t2=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[544]; av2[3]=t1; av2[4]=lf[545]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k15013 in k14995 in k14989 in k14980 in loop in r-xtoken in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15015,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:2718: k */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:2718: k */ t2=((C_word*)t0)[4];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k13514 in read-error in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 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; 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_13516,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13519,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(C_truep(*((C_word*)lf[528]+1))?t1:C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13529,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* library.scm:2384: ##sys#number->string */ t5=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[543]; av2[4]=t4; av2[5]=((C_word*)t0)[3]; C_apply(6,av2);}}} /* k23579 in make-locative in k23117 in k23114 in k23111 in k22760 in k22756 in k22752 in k22107 in k22059 in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in ... */ static void C_ccall f_23581(C_word c,C_word *av){ C_word tmp; C_word t0=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_23581,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; /* Re-use our own argvector */ 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);}} /* k13517 in k13514 in read-error in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in ... */ static void C_ccall f_13519(C_word c,C_word *av){ C_word tmp; C_word 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_13519,2,av);}{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[8]+1); av2[3]=lf[543]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; C_apply(6,av2);}} /* k15002 in k14995 in k14989 in k14980 in loop in r-xtoken in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15004,2,av);} /* library.scm:2717: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in ... */ static void C_ccall f_13541(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13541,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_13544,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); /* library.scm:2399: parentheses-synonyms */ t5=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* ##sys#user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_ccall f_18445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_18445,5,av);} a=C_alloc(10); t5=C_slot(t2,C_fix(0)); t6=t5; t7=C_i_assq(t6,*((C_word*)lf[678]+1)); t8=t7; if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18458,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18463,a[2]=t4,a[3]=t6,a[4]=t8,a[5]=t2,a[6]=((C_word)li610),tmp=(C_word)a,a+=7,tmp); /* library.scm:3421: call-with-current-continuation */ t11=*((C_word*)lf[424]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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_18548,a[2]=t1,a[3]=t4,a[4]=t6,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* library.scm:3433: ##sys#print */ t10=*((C_word*)lf[638]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=lf[689]; av2[3]=C_SCHEME_FALSE; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}} /* k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in ... */ static void C_ccall f_13544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13544,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13547,a[2]=((C_word*)t0)[2],a[3]=((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); /* library.scm:2400: symbol-escape */ t4=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in ... */ static void C_ccall f_13547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_13547,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13550,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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:2401: current-read-table */ t4=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* make-property-condition in k20044 in k20037 in k20033 in k20028 in k20024 in k24589 in k24581 in k19490 in k19486 in k19483 in k19480 in k19477 in k19474 in k19471 in k19468 in k19465 in k19462 in k19459 in k19230 in k19224 in k19218 in ... */ 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 *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 +14,c,3)))){ C_save_and_reclaim((void*)f_20694,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+14); 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_a_i_list1(&a,1,t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20706,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_20708,a[2]=t2,a[3]=t8,a[4]=((C_word)li695),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_20708(t10,t6,t3);} /* k15073 in k15062 in k15053 in k14989 in k14980 in loop in r-xtoken in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_15075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15075,2,av);} /* library.scm:2727: append */ t2=*((C_word*)lf[135]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k15069 in k15062 in k15053 in k14989 in k14980 in loop in r-xtoken in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_15071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15071,2,av);} /* library.scm:2727: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_14978(t2,((C_word*)t0)[3],t1,C_SCHEME_FALSE);} /* a14497 in k14452 in k14443 in k14440 in k14412 in k14409 in k14406 in loop in a14378 in k14598 in r-list in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in ... */ static void C_ccall f_14498(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(10,c,3)))){ C_save_and_reclaim((void *)f_14498,4,av);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_14502,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]=t3,a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); /* library.scm:2596: ##sys#string-append */ t5=*((C_word*)lf[173]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=lf[576]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k18456 in user-print-hook in k17297 in k17293 in k17289 in k17032 in k17028 in k17024 in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in ... */ static void C_ccall f_18458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18458,2,av);} /* library.scm:3421: g3677 */ t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* ##sys#read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in k13041 in ... */ 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=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(10,c,2)))){ C_save_and_reclaim((void *)f_13534,4,av);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13538,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]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); /* library.scm:2397: case-sensitive */ t5=((C_word*)t0)[7];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in k13061 in k13057 in k13053 in k13049 in k13045 in ... */ static void C_ccall f_13538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_13538,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_13541,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); /* library.scm:2398: keyword-style */ t5=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k15062 in k15053 in k14989 in k14980 in loop in r-xtoken in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in ... */ static void C_ccall f_15064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_15064,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15071,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_15075,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_15079,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* library.scm:2727: ##sys#string->list */ t5=*((C_word*)lf[154]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k15077 in k15062 in k15053 in k14989 in k14980 in loop in r-xtoken in readrec in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in ... */ static void C_ccall f_15079(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15079,2,av);} /* library.scm:2727: ##sys#fast-reverse */ t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* skip-to-eol in k13548 in k13545 in k13542 in k13539 in k13536 in read in k13481 in k13477 in k13473 in k13469 in k13465 in k13101 in k13097 in k13093 in k13089 in k13085 in k13081 in k13077 in k13073 in k13069 in k13065 in ... */ static void C_fcall f_13567(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_13567,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13575,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:2416: ##sys#read-char-0 */ t3=*((C_word*)lf[523]+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);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[1820] = { {"f_15055:library_2escm",(void*)f_15055}, {"f_13552:library_2escm",(void*)f_13552}, {"f_13550:library_2escm",(void*)f_13550}, {"f_13558:library_2escm",(void*)f_13558}, {"f_13012:library_2escm",(void*)f_13012}, {"f_22905:library_2escm",(void*)f_22905}, {"f_22908:library_2escm",(void*)f_22908}, {"f_24386:library_2escm",(void*)f_24386}, {"f_24384:library_2escm",(void*)f_24384}, {"f_24380:library_2escm",(void*)f_24380}, {"f_22917:library_2escm",(void*)f_22917}, {"f_24392:library_2escm",(void*)f_24392}, {"f_22929:library_2escm",(void*)f_22929}, {"f_22923:library_2escm",(void*)f_22923}, {"f_13039:library_2escm",(void*)f_13039}, {"f_18425:library_2escm",(void*)f_18425}, {"f_18422:library_2escm",(void*)f_18422}, {"f_22935:library_2escm",(void*)f_22935}, {"f_11441:library_2escm",(void*)f_11441}, {"f_13055:library_2escm",(void*)f_13055}, {"f_13051:library_2escm",(void*)f_13051}, {"f_13059:library_2escm",(void*)f_13059}, {"f_22941:library_2escm",(void*)f_22941}, {"f_11449:library_2escm",(void*)f_11449}, {"f_15099:library_2escm",(void*)f_15099}, {"f_24129:library_2escm",(void*)f_24129}, {"f_24123:library_2escm",(void*)f_24123}, {"f_22958:library_2escm",(void*)f_22958}, {"f_13043:library_2escm",(void*)f_13043}, {"f_13047:library_2escm",(void*)f_13047}, {"f_11459:library_2escm",(void*)f_11459}, {"f_15088:library_2escm",(void*)f_15088}, {"f_22964:library_2escm",(void*)f_22964}, {"f_13075:library_2escm",(void*)f_13075}, {"f_13071:library_2escm",(void*)f_13071}, {"f_18771:library_2escm",(void*)f_18771}, {"f_13079:library_2escm",(void*)f_13079}, {"f_9086:library_2escm",(void*)f_9086}, {"f_9081:library_2escm",(void*)f_9081}, {"f_13063:library_2escm",(void*)f_13063}, {"f_25034:library_2escm",(void*)f_25034}, {"f_15592:library_2escm",(void*)f_15592}, {"f_13067:library_2escm",(void*)f_13067}, {"f_15598:library_2escm",(void*)f_15598}, {"f_7653:library_2escm",(void*)f_7653}, {"f_24113:library_2escm",(void*)f_24113}, {"f_22986:library_2escm",(void*)f_22986}, {"f_17206:library_2escm",(void*)f_17206}, {"f_13099:library_2escm",(void*)f_13099}, {"f_25004:library_2escm",(void*)f_25004}, {"f_18793:library_2escm",(void*)f_18793}, {"f_15582:library_2escm",(void*)f_15582}, {"f_13091:library_2escm",(void*)f_13091}, {"f_13095:library_2escm",(void*)f_13095}, {"f_22982:library_2escm",(void*)f_22982}, {"f_15589:library_2escm",(void*)f_15589}, {"f_15586:library_2escm",(void*)f_15586}, {"f_7602:library_2escm",(void*)f_7602}, {"f_22994:library_2escm",(void*)f_22994}, {"f_17216:library_2escm",(void*)f_17216}, {"f_18799:library_2escm",(void*)f_18799}, {"f_13087:library_2escm",(void*)f_13087}, {"f_22990:library_2escm",(void*)f_22990}, {"f_15574:library_2escm",(void*)f_15574}, {"f_10790:library_2escm",(void*)f_10790}, {"f_13083:library_2escm",(void*)f_13083}, {"f_10796:library_2escm",(void*)f_10796}, {"f_25024:library_2escm",(void*)f_25024}, {"f_7624:library_2escm",(void*)f_7624}, {"f_9047:library_2escm",(void*)f_9047}, {"f_9045:library_2escm",(void*)f_9045}, {"f_7942:library_2escm",(void*)f_7942}, {"f_25074:library_2escm",(void*)f_25074}, {"f_7948:library_2escm",(void*)f_7948}, {"f_11931:library_2escm",(void*)f_11931}, {"f_11935:library_2escm",(void*)f_11935}, {"f_25044:library_2escm",(void*)f_25044}, {"f_18168:library_2escm",(void*)f_18168}, {"f_7642:library_2escm",(void*)f_7642}, {"f_7646:library_2escm",(void*)f_7646}, {"f_9063:library_2escm",(void*)f_9063}, {"f_9065:library_2escm",(void*)f_9065}, {"f_11940:library_2escm",(void*)f_11940}, {"f_25014:library_2escm",(void*)f_25014}, {"f_18178:library_2escm",(void*)f_18178}, {"f_7631:library_2escm",(void*)f_7631}, {"f_12994:library_2escm",(void*)f_12994}, {"f_12996:library_2escm",(void*)f_12996}, {"f_25064:library_2escm",(void*)f_25064}, {"f_11437:library_2escm",(void*)f_11437}, {"f_18181:library_2escm",(void*)f_18181}, {"f_15405:library_2escm",(void*)f_15405}, {"f_15401:library_2escm",(void*)f_15401}, {"f_11405:library_2escm",(void*)f_11405}, {"f_17281:library_2escm",(void*)f_17281}, {"f_17284:library_2escm",(void*)f_17284}, {"f_25084:library_2escm",(void*)f_25084}, {"f_15693:library_2escm",(void*)f_15693}, {"f_7682:library_2escm",(void*)f_7682}, {"f_15689:library_2escm",(void*)f_15689}, {"f_7172:library_2escm",(void*)f_7172}, {"f_17291:library_2escm",(void*)f_17291}, {"f_10438:library_2escm",(void*)f_10438}, {"f_17295:library_2escm",(void*)f_17295}, {"f_17299:library_2escm",(void*)f_17299}, {"f_10716:library_2escm",(void*)f_10716}, {"f_25054:library_2escm",(void*)f_25054}, {"f_15682:library_2escm",(void*)f_15682}, {"f_7671:library_2escm",(void*)f_7671}, {"f_15675:library_2escm",(void*)f_15675}, {"f_7161:library_2escm",(void*)f_7161}, {"f_17267:library_2escm",(void*)f_17267}, {"f_17388:library_2escm",(void*)f_17388}, {"f_11467:library_2escm",(void*)f_11467}, {"f_10411:library_2escm",(void*)f_10411}, {"f_10413:library_2escm",(void*)f_10413}, {"f_7117:library_2escm",(void*)f_7117}, {"f_15441:library_2escm",(void*)f_15441}, {"f_17392:library_2escm",(void*)f_17392}, {"f_10774:library_2escm",(void*)f_10774}, {"f_7613:library_2escm",(void*)f_7613}, {"f_7106:library_2escm",(void*)f_7106}, {"f_12978:library_2escm",(void*)f_12978}, {"f_12975:library_2escm",(void*)f_12975}, {"f_18850:library_2escm",(void*)f_18850}, {"f_10478:library_2escm",(void*)f_10478}, {"f_7139:library_2escm",(void*)f_7139}, {"f_12986:library_2escm",(void*)f_12986}, {"f_25094:library_2escm",(void*)f_25094}, {"f_10755:library_2escm",(void*)f_10755}, {"f_12921:library_2escm",(void*)f_12921}, {"f_18860:library_2escm",(void*)f_18860}, {"f_10447:library_2escm",(void*)f_10447}, {"f_18865:library_2escm",(void*)f_18865}, {"f_7128:library_2escm",(void*)f_7128}, {"f_24017:library_2escm",(void*)f_24017}, {"f_12915:library_2escm",(void*)f_12915}, {"f_18109:library_2escm",(void*)f_18109}, {"f_12930:library_2escm",(void*)f_12930}, {"f_18106:library_2escm",(void*)f_18106}, {"f_12928:library_2escm",(void*)f_12928}, {"f_18190:library_2escm",(void*)f_18190}, {"f_24038:library_2escm",(void*)f_24038}, {"f_24035:library_2escm",(void*)f_24035}, {"f_17367:library_2escm",(void*)f_17367}, {"f_12951:library_2escm",(void*)f_12951}, {"f_24002:library_2escm",(void*)f_24002}, {"f_15464:library_2escm",(void*)f_15464}, {"f_24005:library_2escm",(void*)f_24005}, {"f_24459:library_2escm",(void*)f_24459}, {"f_24456:library_2escm",(void*)f_24456}, {"f_12962:library_2escm",(void*)f_12962}, {"f_24450:library_2escm",(void*)f_24450}, {"f_10488:library_2escm",(void*)f_10488}, {"f_20192:library_2escm",(void*)f_20192}, {"f_19194:library_2escm",(void*)f_19194}, {"f_20198:library_2escm",(void*)f_20198}, {"f_24058:library_2escm",(void*)f_24058}, {"f_19198:library_2escm",(void*)f_19198}, {"f_12959:library_2escm",(void*)f_12959}, {"f_17308:library_2escm",(void*)f_17308}, {"f_24467:library_2escm",(void*)f_24467}, {"f_17301:library_2escm",(void*)f_17301}, {"f_12972:library_2escm",(void*)f_12972}, {"f_24462:library_2escm",(void*)f_24462}, {"f_10495:library_2escm",(void*)f_10495}, {"f_7194:library_2escm",(void*)f_7194}, {"f_20188:library_2escm",(void*)f_20188}, {"f_24020:library_2escm",(void*)f_24020}, {"f_12969:library_2escm",(void*)f_12969}, {"f_20181:library_2escm",(void*)f_20181}, {"f_24026:library_2escm",(void*)f_24026}, {"f_24023:library_2escm",(void*)f_24023}, {"f_17316:library_2escm",(void*)f_17316}, {"f_17311:library_2escm",(void*)f_17311}, {"f_17314:library_2escm",(void*)f_17314}, {"f_7693:library_2escm",(void*)f_7693}, {"f_7183:library_2escm",(void*)f_7183}, {"f_10467:library_2escm",(void*)f_10467}, {"f_20175:library_2escm",(void*)f_20175}, {"f_20178:library_2escm",(void*)f_20178}, {"f_24076:library_2escm",(void*)f_24076}, {"f_19183:library_2escm",(void*)f_19183}, {"f_19187:library_2escm",(void*)f_19187}, {"f_24049:library_2escm",(void*)f_24049}, {"f_17332:library_2escm",(void*)f_17332}, {"f_24497:library_2escm",(void*)f_24497}, {"f_17347:library_2escm",(void*)f_17347}, {"f_17344:library_2escm",(void*)f_17344}, {"f_11389:library_2escm",(void*)f_11389}, {"f_7150:library_2escm",(void*)f_7150}, {"f_21123:library_2escm",(void*)f_21123}, {"f_11393:library_2escm",(void*)f_11393}, {"f_24438:library_2escm",(void*)f_24438}, {"f_17350:library_2escm",(void*)f_17350}, {"f_23542:library_2escm",(void*)f_23542}, {"f_18802:library_2escm",(void*)f_18802}, {"f_21119:library_2escm",(void*)f_21119}, {"f_24447:library_2escm",(void*)f_24447}, {"f_24441:library_2escm",(void*)f_24441}, {"f_24444:library_2escm",(void*)f_24444}, {"f_21108:library_2escm",(void*)f_21108}, {"f_19111:library_2escm",(void*)f_19111}, {"f_18827:library_2escm",(void*)f_18827}, {"f_20114:library_2escm",(void*)f_20114}, {"f_9879:library_2escm",(void*)f_9879}, {"f_19116:library_2escm",(void*)f_19116}, {"f_9870:library_2escm",(void*)f_9870}, {"f_8108:library_2escm",(void*)f_8108}, {"f_11347:library_2escm",(void*)f_11347}, {"f_18830:library_2escm",(void*)f_18830}, {"f_18837:library_2escm",(void*)f_18837}, {"f_16816:library_2escm",(void*)f_16816}, {"f_20104:library_2escm",(void*)f_20104}, {"f_8164:library_2escm",(void*)f_8164}, {"f_17326:library_2escm",(void*)f_17326}, {"f_11363:library_2escm",(void*)f_11363}, {"f_11369:library_2escm",(void*)f_11369}, {"f_19101:library_2escm",(void*)f_19101}, {"f_19100:library_2escm",(void*)f_19100}, {"f_23558:library_2escm",(void*)f_23558}, {"f_17257:library_2escm",(void*)f_17257}, {"f_21145:library_2escm",(void*)f_21145}, {"f_9822:library_2escm",(void*)f_9822}, {"f_9820:library_2escm",(void*)f_9820}, {"f_19154:library_2escm",(void*)f_19154}, {"f_19150:library_2escm",(void*)f_19150}, {"f_19158:library_2escm",(void*)f_19158}, {"f_11301:library_2escm",(void*)f_11301}, {"f_11307:library_2escm",(void*)f_11307}, {"f_9834:library_2escm",(void*)f_9834}, {"f_11304:library_2escm",(void*)f_11304}, {"f_11309:library_2escm",(void*)f_11309}, {"f_17238:library_2escm",(void*)f_17238}, {"f_17233:library_2escm",(void*)f_17233}, {"f_17230:library_2escm",(void*)f_17230}, {"f_9844:library_2escm",(void*)f_9844}, {"f_11314:library_2escm",(void*)f_11314}, {"f_8113:library_2escm",(void*)f_8113}, {"f_22537:library_2escm",(void*)f_22537}, {"f_9859:library_2escm",(void*)f_9859}, {"f_19139:library_2escm",(void*)f_19139}, {"f_11325:library_2escm",(void*)f_11325}, {"f_22507:library_2escm",(void*)f_22507}, {"f_14140:library_2escm",(void*)f_14140}, {"f_8194:library_2escm",(void*)f_8194}, {"f_24929:library_2escm",(void*)f_24929}, {"f_11331:library_2escm",(void*)f_11331}, {"f_22556:library_2escm",(void*)f_22556}, {"f_16963:library_2escm",(void*)f_16963}, {"f_16961:library_2escm",(void*)f_16961}, {"f_19126:library_2escm",(void*)f_19126}, {"f_14127:library_2escm",(void*)f_14127}, {"f_18002:library_2escm",(void*)f_18002}, {"f_16988:library_2escm",(void*)f_16988}, {"f_22579:library_2escm",(void*)f_22579}, {"f_14112:library_2escm",(void*)f_14112}, {"f_21871:library_2escm",(void*)f_21871}, {"f_16976:library_2escm",(void*)f_16976}, {"f_16979:library_2escm",(void*)f_16979}, {"f_8155:library_2escm",(void*)f_8155}, {"f_21861:library_2escm",(void*)f_21861}, {"f_22595:library_2escm",(void*)f_22595}, {"f_8144:library_2escm",(void*)f_8144}, {"f_9378:library_2escm",(void*)f_9378}, {"f_9372:library_2escm",(void*)f_9372}, {"f_16918:library_2escm",(void*)f_16918}, {"f_21881:library_2escm",(void*)f_21881}, {"f_18040:library_2escm",(void*)f_18040}, {"f_9387:library_2escm",(void*)f_9387}, {"f_9381:library_2escm",(void*)f_9381}, {"f_9384:library_2escm",(void*)f_9384}, {"f_21835:library_2escm",(void*)f_21835}, {"f_21830:library_2escm",(void*)f_21830}, {"f_21832:library_2escm",(void*)f_21832}, {"f_13584:library_2escm",(void*)f_13584}, {"f_9354:library_2escm",(void*)f_9354}, {"f_22588:library_2escm",(void*)f_22588}, {"f_21825:library_2escm",(void*)f_21825}, {"f_21823:library_2escm",(void*)f_21823}, {"f_13575:library_2escm",(void*)f_13575}, {"f_13577:library_2escm",(void*)f_13577}, {"f_9369:library_2escm",(void*)f_9369}, {"f_9365:library_2escm",(void*)f_9365}, {"f_9360:library_2escm",(void*)f_9360}, {"f_25588:library_2escm",(void*)f_25588}, {"f_25580:library_2escm",(void*)f_25580}, {"f_25584:library_2escm",(void*)f_25584}, {"f_21855:library_2escm",(void*)f_21855}, {"f_23402:library_2escm",(void*)f_23402}, {"f_24981:library_2escm",(void*)f_24981}, {"f_21160:library_2escm",(void*)f_21160}, {"f_13591:library_2escm",(void*)f_13591}, {"f_6989:library_2escm",(void*)f_6989}, {"f_14194:library_2escm",(void*)f_14194}, {"f_21156:library_2escm",(void*)f_21156}, {"f_24994:library_2escm",(void*)f_24994}, {"f_9393:library_2escm",(void*)f_9393}, {"f_9399:library_2escm",(void*)f_9399}, {"f_9396:library_2escm",(void*)f_9396}, {"f_9390:library_2escm",(void*)f_9390}, {"f_24964:library_2escm",(void*)f_24964}, {"f_24966:library_2escm",(void*)f_24966}, {"f_24970:library_2escm",(void*)f_24970}, {"f_24977:library_2escm",(void*)f_24977}, {"f_21813:library_2escm",(void*)f_21813}, {"f_24975:library_2escm",(void*)f_24975}, {"f_21819:library_2escm",(void*)f_21819}, {"f_16994:library_2escm",(void*)f_16994}, {"f_14829:library_2escm",(void*)f_14829}, {"f_14162:library_2escm",(void*)f_14162}, {"f_24948:library_2escm",(void*)f_24948}, {"f_14165:library_2escm",(void*)f_14165}, {"f_21801:library_2escm",(void*)f_21801}, {"f_21803:library_2escm",(void*)f_21803}, {"f_24953:library_2escm",(void*)f_24953}, {"f_24955:library_2escm",(void*)f_24955}, {"f_24959:library_2escm",(void*)f_24959}, {"f_23424:library_2escm",(void*)f_23424}, {"f_6971:library_2escm",(void*)f_6971}, {"f_6975:library_2escm",(void*)f_6975}, {"f_6978:library_2escm",(void*)f_6978}, {"f_14841:library_2escm",(void*)f_14841}, {"f_6965:library_2escm",(void*)f_6965}, {"f_6969:library_2escm",(void*)f_6969}, {"f_14839:library_2escm",(void*)f_14839}, {"f_14831:library_2escm",(void*)f_14831}, {"f_9808:library_2escm",(void*)f_9808}, {"f_6991:library_2escm",(void*)f_6991}, {"f_6998:library_2escm",(void*)f_6998}, {"f_25511:library_2escm",(void*)f_25511}, {"f_13414:library_2escm",(void*)f_13414}, {"f_12900:library_2escm",(void*)f_12900}, {"f_23494:library_2escm",(void*)f_23494}, {"f_25526:library_2escm",(void*)f_25526}, {"f_14851:library_2escm",(void*)f_14851}, {"f_10707:library_2escm",(void*)f_10707}, {"f_6937:library_2escm",(void*)f_6937}, {"f_6931:library_2escm",(void*)f_6931}, {"f_23478:library_2escm",(void*)f_23478}, {"f_12902:library_2escm",(void*)f_12902}, {"f_13432:library_2escm",(void*)f_13432}, {"f_6923:library_2escm",(void*)f_6923}, {"f_14502:library_2escm",(void*)f_14502}, {"f_14505:library_2escm",(void*)f_14505}, {"f_13467:library_2escm",(void*)f_13467}, {"f_6956:library_2escm",(void*)f_6956}, {"f_14533:library_2escm",(void*)f_14533}, {"f_10734:library_2escm",(void*)f_10734}, {"f_13453:library_2escm",(void*)f_13453}, {"f_13456:library_2escm",(void*)f_13456}, {"f_13459:library_2escm",(void*)f_13459}, {"f_24192:library_2escm",(void*)f_24192}, {"f_13302:library_2escm",(void*)f_13302}, {"f_24190:library_2escm",(void*)f_24190}, {"f_12934:library_2escm",(void*)f_12934}, {"f_12937:library_2escm",(void*)f_12937}, {"f_10746:library_2escm",(void*)f_10746}, {"f_13402:library_2escm",(void*)f_13402}, {"f_10740:library_2escm",(void*)f_10740}, {"f_24163:library_2escm",(void*)f_24163}, {"f_12947:library_2escm",(void*)f_12947}, {"f_19945:library_2escm",(void*)f_19945}, {"f_24177:library_2escm",(void*)f_24177}, {"f_19948:library_2escm",(void*)f_19948}, {"f_13320:library_2escm",(void*)f_13320}, {"f_13324:library_2escm",(void*)f_13324}, {"f_6912:library_2escm",(void*)f_6912}, {"f_24145:library_2escm",(void*)f_24145}, {"f_6919:library_2escm",(void*)f_6919}, {"f_6916:library_2escm",(void*)f_6916}, {"f_19999:library_2escm",(void*)f_19999}, {"f_24153:library_2escm",(void*)f_24153}, {"f_24157:library_2escm",(void*)f_24157}, {"f_24869:library_2escm",(void*)f_24869}, {"f_18959:library_2escm",(void*)f_18959}, {"f_18967:library_2escm",(void*)f_18967}, {"f_24888:library_2escm",(void*)f_24888}, {"f_18984:library_2escm",(void*)f_18984}, {"f_18871:library_2escm",(void*)f_18871}, {"f_15482:library_2escm",(void*)f_15482}, {"f_15495:library_2escm",(void*)f_15495}, {"f_6947:library_2escm",(void*)f_6947}, {"f_6940:library_2escm",(void*)f_6940}, {"f_13389:library_2escm",(void*)f_13389}, {"f_13380:library_2escm",(void*)f_13380}, {"f_18915:library_2escm",(void*)f_18915}, {"f_15489:library_2escm",(void*)f_15489}, {"f_15486:library_2escm",(void*)f_15486}, {"f_18898:library_2escm",(void*)f_18898}, {"f_18921:library_2escm",(void*)f_18921}, {"f_18924:library_2escm",(void*)f_18924}, {"f_18929:library_2escm",(void*)f_18929}, {"f_18935:library_2escm",(void*)f_18935}, {"f_12445:library_2escm",(void*)f_12445}, {"f_12441:library_2escm",(void*)f_12441}, {"f_9330:library_2escm",(void*)f_9330}, {"f_12459:library_2escm",(void*)f_12459}, {"f_12454:library_2escm",(void*)f_12454}, {"f_12450:library_2escm",(void*)f_12450}, {"f_9341:library_2escm",(void*)f_9341}, {"f_9347:library_2escm",(void*)f_9347}, {"f_12469:library_2escm",(void*)f_12469}, {"f_12465:library_2escm",(void*)f_12465}, {"f_17506:library_2escm",(void*)f_17506}, {"f_9312:library_2escm",(void*)f_9312}, {"f_9314:library_2escm",(void*)f_9314}, {"f_25530:library_2escm",(void*)f_25530}, {"f_19908:library_2escm",(void*)f_19908}, {"f_17515:library_2escm",(void*)f_17515}, {"f_17512:library_2escm",(void*)f_17512}, {"f_12483:library_2escm",(void*)f_12483}, {"f_25543:library_2escm",(void*)f_25543}, {"f_12488:library_2escm",(void*)f_12488}, {"f_17526:library_2escm",(void*)f_17526}, {"f_18904:library_2escm",(void*)f_18904}, {"f_12494:library_2escm",(void*)f_12494}, {"f_25557:library_2escm",(void*)f_25557}, {"f_12498:library_2escm",(void*)f_12498}, {"f_17535:library_2escm",(void*)f_17535}, {"f_17538:library_2escm",(void*)f_17538}, {"f_25569:library_2escm",(void*)f_25569}, {"f_25565:library_2escm",(void*)f_25565}, {"f_24879:library_2escm",(void*)f_24879}, {"f_12435:library_2escm",(void*)f_12435}, {"f_12430:library_2escm",(void*)f_12430}, {"f_24845:library_2escm",(void*)f_24845}, {"f_17561:library_2escm",(void*)f_17561}, {"f_21709:library_2escm",(void*)f_21709}, {"f_21705:library_2escm",(void*)f_21705}, {"f_10873:library_2escm",(void*)f_10873}, {"f_19719:library_2escm",(void*)f_19719}, {"f_12478:library_2escm",(void*)f_12478}, {"f_12474:library_2escm",(void*)f_12474}, {"f_19727:library_2escm",(void*)f_19727}, {"f_16244:library_2escm",(void*)f_16244}, {"f_12408:library_2escm",(void*)f_12408}, {"f_12402:library_2escm",(void*)f_12402}, {"f_12414:library_2escm",(void*)f_12414}, {"f_10862:library_2escm",(void*)f_10862}, {"f_10868:library_2escm",(void*)f_10868}, {"f_10865:library_2escm",(void*)f_10865}, {"f_21744:library_2escm",(void*)f_21744}, {"f_19708:library_2escm",(void*)f_19708}, {"f_16225:library_2escm",(void*)f_16225}, {"f_11783:library_2escm",(void*)f_11783}, {"f_18596:library_2escm",(void*)f_18596}, {"f_18594:library_2escm",(void*)f_18594}, {"f_11789:library_2escm",(void*)f_11789}, {"f_12426:library_2escm",(void*)f_12426}, {"f_12420:library_2escm",(void*)f_12420}, {"f_21734:library_2escm",(void*)f_21734}, {"f_21725:library_2escm",(void*)f_21725}, {"f_21721:library_2escm",(void*)f_21721}, {"f_16206:library_2escm",(void*)f_16206}, {"f_21727:library_2escm",(void*)f_21727}, {"f_19096:library_2escm",(void*)f_19096}, {"f_16200:library_2escm",(void*)f_16200}, {"f_21711:library_2escm",(void*)f_21711}, {"f_21719:library_2escm",(void*)f_21719}, {"f_21781:library_2escm",(void*)f_21781}, {"f_11740:library_2escm",(void*)f_11740}, {"f_21772:library_2escm",(void*)f_21772}, {"f_21775:library_2escm",(void*)f_21775}, {"f_21778:library_2escm",(void*)f_21778}, {"f_21769:library_2escm",(void*)f_21769}, {"f_11767:library_2escm",(void*)f_11767}, {"f_19060:library_2escm",(void*)f_19060}, {"f_19062:library_2escm",(void*)f_19062}, {"f_23437:library_2escm",(void*)f_23437}, {"f_8895:library_2escm",(void*)f_8895}, {"f_8897:library_2escm",(void*)f_8897}, {"f_19024:library_2escm",(void*)f_19024}, {"f_19031:library_2escm",(void*)f_19031}, {"f_16266:library_2escm",(void*)f_16266}, {"f_16906:library_2escm",(void*)f_16906}, {"f_16260:library_2escm",(void*)f_16260}, {"f_23462:library_2escm",(void*)f_23462}, {"f_19043:library_2escm",(void*)f_19043}, {"f_22612:library_2escm",(void*)f_22612}, {"f_19047:library_2escm",(void*)f_19047}, {"f_22620:library_2escm",(void*)f_22620}, {"f_11268:library_2escm",(void*)f_11268}, {"f_8873:library_2escm",(void*)f_8873}, {"f_8871:library_2escm",(void*)f_8871}, {"f_16938:library_2escm",(void*)f_16938}, {"f_8801:library_2escm",(void*)f_8801}, {"f_22639:library_2escm",(void*)f_22639}, {"f_22631:library_2escm",(void*)f_22631}, {"f_14204:library_2escm",(void*)f_14204}, {"f_8825:library_2escm",(void*)f_8825}, {"f_22646:library_2escm",(void*)f_22646}, {"f_8823:library_2escm",(void*)f_8823}, {"f_14231:library_2escm",(void*)f_14231}, {"f_14238:library_2escm",(void*)f_14238}, {"f_14220:library_2escm",(void*)f_14220}, {"f_8849:library_2escm",(void*)f_8849}, {"f_8847:library_2escm",(void*)f_8847}, {"f_10016:library_2escm",(void*)f_10016}, {"f_9669:library_2escm",(void*)f_9669}, {"f_9681:library_2escm",(void*)f_9681}, {"f_13479:library_2escm",(void*)f_13479}, {"f_13475:library_2escm",(void*)f_13475}, {"f_13471:library_2escm",(void*)f_13471}, {"f_19619:library_2escm",(void*)f_19619}, {"f_24692:library_2escm",(void*)f_24692}, {"f_9672:library_2escm",(void*)f_9672}, {"f_24696:library_2escm",(void*)f_24696}, {"f_19610:library_2escm",(void*)f_19610}, {"f_19628:library_2escm",(void*)f_19628}, {"f_13496:library_2escm",(void*)f_13496}, {"f_13493:library_2escm",(void*)f_13493}, {"f_19622:library_2escm",(void*)f_19622}, {"f_16352:library_2escm",(void*)f_16352}, {"f_10033:library_2escm",(void*)f_10033}, {"f_16340:library_2escm",(void*)f_16340}, {"f_24299:library_2escm",(void*)f_24299}, {"f_24296:library_2escm",(void*)f_24296}, {"f_19652:library_2escm",(void*)f_19652}, {"f_14589:library_2escm",(void*)f_14589}, {"f_19665:library_2escm",(void*)f_19665}, {"f_23313:library_2escm",(void*)f_23313}, {"f_13485:library_2escm",(void*)f_13485}, {"f_23318:library_2escm",(void*)f_23318}, {"f_13483:library_2escm",(void*)f_13483}, {"f_14593:library_2escm",(void*)f_14593}, {"f_24607:library_2escm",(void*)f_24607}, {"f_13708:library_2escm",(void*)f_13708}, {"f_23372:library_2escm",(void*)f_23372}, {"f_23375:library_2escm",(void*)f_23375}, {"f_9690:library_2escm",(void*)f_9690}, {"f_23378:library_2escm",(void*)f_23378}, {"f_11298:library_2escm",(void*)f_11298}, {"f_11295:library_2escm",(void*)f_11295}, {"f_11292:library_2escm",(void*)f_11292}, {"f_9693:library_2escm",(void*)f_9693}, {"f_9699:library_2escm",(void*)f_9699}, {"f_9696:library_2escm",(void*)f_9696}, {"f_13711:library_2escm",(void*)f_13711}, {"f_23353:library_2escm",(void*)f_23353}, {"f_11277:library_2escm",(void*)f_11277}, {"f_13743:library_2escm",(void*)f_13743}, {"f_11271:library_2escm",(void*)f_11271}, {"f_10801:library_2escm",(void*)f_10801}, {"f_11274:library_2escm",(void*)f_11274}, {"f_23363:library_2escm",(void*)f_23363}, {"f_23366:library_2escm",(void*)f_23366}, {"f_11289:library_2escm",(void*)f_11289}, {"f_23369:library_2escm",(void*)f_23369}, {"f_11286:library_2escm",(void*)f_11286}, {"f_11283:library_2escm",(void*)f_11283}, {"f_11280:library_2escm",(void*)f_11280}, {"f_13739:library_2escm",(void*)f_13739}, {"f_19813:library_2escm",(void*)f_19813}, {"f_19814:library_2escm",(void*)f_19814}, {"f_14641:library_2escm",(void*)f_14641}, {"f_18622:library_2escm",(void*)f_18622}, {"f_18626:library_2escm",(void*)f_18626}, {"f_14634:library_2escm",(void*)f_14634}, {"f_13751:library_2escm",(void*)f_13751}, {"f_19827:library_2escm",(void*)f_19827}, {"f_14662:library_2escm",(void*)f_14662}, {"f_14668:library_2escm",(void*)f_14668}, {"f_10843:library_2escm",(void*)f_10843}, {"f_9617:library_2escm",(void*)f_9617}, {"f_18612:library_2escm",(void*)f_18612}, {"f_14602:library_2escm",(void*)f_14602}, {"f_14600:library_2escm",(void*)f_14600}, {"f_18618:library_2escm",(void*)f_18618}, {"f_18615:library_2escm",(void*)f_18615}, {"f_14606:library_2escm",(void*)f_14606}, {"f_9624:library_2escm",(void*)f_9624}, {"f_9622:library_2escm",(void*)f_9622}, {"f_9619:library_2escm",(void*)f_9619}, {"f_13268:library_2escm",(void*)f_13268}, {"f_13256:library_2escm",(void*)f_13256}, {"f_9631:library_2escm",(void*)f_9631}, {"f_18156:library_2escm",(void*)f_18156}, {"f_14620:library_2escm",(void*)f_14620}, {"f_25200:library_2escm",(void*)f_25200}, {"f_14627:library_2escm",(void*)f_14627}, {"f_19880:library_2escm",(void*)f_19880}, {"f_18159:library_2escm",(void*)f_18159}, {"f_18687:library_2escm",(void*)f_18687}, {"f_18681:library_2escm",(void*)f_18681}, {"f_25219:library_2escm",(void*)f_25219}, {"f_13274:library_2escm",(void*)f_13274}, {"f_13277:library_2escm",(void*)f_13277}, {"f_19830:library_2escm",(void*)f_19830}, {"f_19833:library_2escm",(void*)f_19833}, {"f_19836:library_2escm",(void*)f_19836}, {"f_18116:library_2escm",(void*)f_18116}, {"f_19689:library_2escm",(void*)f_19689}, {"f_19844:library_2escm",(void*)f_19844}, {"f_19681:library_2escm",(void*)f_19681}, {"f_13242:library_2escm",(void*)f_13242}, {"f_14656:library_2escm",(void*)f_14656}, {"f_19851:library_2escm",(void*)f_19851}, {"f_19857:library_2escm",(void*)f_19857}, {"f_19854:library_2escm",(void*)f_19854}, {"f_18661:library_2escm",(void*)f_18661}, {"f_18667:library_2escm",(void*)f_18667}, {"f_18664:library_2escm",(void*)f_18664}, {"f_18630:library_2escm",(void*)f_18630}, {"f_9192:library_2escm",(void*)f_9192}, {"f_18633:library_2escm",(void*)f_18633}, {"f_10991:library_2escm",(void*)f_10991}, {"f_9194:library_2escm",(void*)f_9194}, {"f_25288:library_2escm",(void*)f_25288}, {"f_10997:library_2escm",(void*)f_10997}, {"f_10994:library_2escm",(void*)f_10994}, {"f_18636:library_2escm",(void*)f_18636}, {"f_18639:library_2escm",(void*)f_18639}, {"f_25284:library_2escm",(void*)f_25284}, {"f_19803:library_2escm",(void*)f_19803}, {"f_18602:library_2escm",(void*)f_18602}, {"f_25295:library_2escm",(void*)f_25295}, {"f_18608:library_2escm",(void*)f_18608}, {"f_25292:library_2escm",(void*)f_25292}, {"f_24790:library_2escm",(void*)f_24790}, {"f_18651:library_2escm",(void*)f_18651}, {"f_9176:library_2escm",(void*)f_9176}, {"f_18657:library_2escm",(void*)f_18657}, {"f_12107:library_2escm",(void*)f_12107}, {"f_9174:library_2escm",(void*)f_9174}, {"f_12105:library_2escm",(void*)f_12105}, {"f_25235:library_2escm",(void*)f_25235}, {"f_11700:library_2escm",(void*)f_11700}, {"f_12118:library_2escm",(void*)f_12118}, {"f_12113:library_2escm",(void*)f_12113}, {"f_18363:library_2escm",(void*)f_18363}, {"f_11709:library_2escm",(void*)f_11709}, {"f_24772:library_2escm",(void*)f_24772}, {"f_10633:library_2escm",(void*)f_10633}, {"f_9156:library_2escm",(void*)f_9156}, {"f_9158:library_2escm",(void*)f_9158}, {"f_11717:library_2escm",(void*)f_11717}, {"f_24700:library_2escm",(void*)f_24700}, {"f_24706:library_2escm",(void*)f_24706}, {"f_24704:library_2escm",(void*)f_24704}, {"f_25258:library_2escm",(void*)f_25258}, {"f_25250:library_2escm",(void*)f_25250}, {"f_25252:library_2escm",(void*)f_25252}, {"f_11727:library_2escm",(void*)f_11727}, {"f_12153:library_2escm",(void*)f_12153}, {"f_10617:library_2escm",(void*)f_10617}, {"f_10614:library_2escm",(void*)f_10614}, {"f_25268:library_2escm",(void*)f_25268}, {"f_10935:library_2escm",(void*)f_10935}, {"f_11733:library_2escm",(void*)f_11733}, {"f_10939:library_2escm",(void*)f_10939}, {"f_11736:library_2escm",(void*)f_11736}, {"f_10620:library_2escm",(void*)f_10620}, {"f_10623:library_2escm",(void*)f_10623}, {"f_10626:library_2escm",(void*)f_10626}, {"f_10942:library_2escm",(void*)f_10942}, {"f_10947:library_2escm",(void*)f_10947}, {"f_12732:library_2escm",(void*)f_12732}, {"f_12737:library_2escm",(void*)f_12737}, {"f_12739:library_2escm",(void*)f_12739}, {"f_10671:library_2escm",(void*)f_10671}, {"f_10676:library_2escm",(void*)f_10676}, {"f_10914:library_2escm",(void*)f_10914}, {"f_12166:library_2escm",(void*)f_12166}, {"f_12749:library_2escm",(void*)f_12749}, {"f_12168:library_2escm",(void*)f_12168}, {"f_18376:library_2escm",(void*)f_18376}, {"f_18379:library_2escm",(void*)f_18379}, {"f_12755:library_2escm",(void*)f_12755}, {"f_10655:library_2escm",(void*)f_10655}, {"f_18267:library_2escm",(void*)f_18267}, {"f_19885:library_2escm",(void*)f_19885}, {"f_12766:library_2escm",(void*)f_12766}, {"f_10977:library_2escm",(void*)f_10977}, {"f_10974:library_2escm",(void*)f_10974}, {"f_18317:library_2escm",(void*)f_18317}, {"f_12762:library_2escm",(void*)f_12762}, {"f_18311:library_2escm",(void*)f_18311}, {"f_12777:library_2escm",(void*)f_12777}, {"f_19895:library_2escm",(void*)f_19895}, {"f_12775:library_2escm",(void*)f_12775}, {"f_10984:library_2escm",(void*)f_10984}, {"f_12771:library_2escm",(void*)f_12771}, {"f_18676:library_2escm",(void*)f_18676}, {"f_18673:library_2escm",(void*)f_18673}, {"f_18670:library_2escm",(void*)f_18670}, {"f_20734:library_2escm",(void*)f_20734}, {"f_18304:library_2escm",(void*)f_18304}, {"f_18301:library_2escm",(void*)f_18301}, {"f_12790:library_2escm",(void*)f_12790}, {"f_12708:library_2escm",(void*)f_12708}, {"f_20743:library_2escm",(void*)f_20743}, {"f_12715:library_2escm",(void*)f_12715}, {"f_12728:library_2escm",(void*)f_12728}, {"f_12721:library_2escm",(void*)f_12721}, {"f_10170:library_2escm",(void*)f_10170}, {"f_23391:library_2escm",(void*)f_23391}, {"f_20708:library_2escm",(void*)f_20708}, {"f_20706:library_2escm",(void*)f_20706}, {"f_18289:library_2escm",(void*)f_18289}, {"f_8705:library_2escm",(void*)f_8705}, {"f_20762:library_2escm",(void*)f_20762}, {"f_20766:library_2escm",(void*)f_20766}, {"f_9138:library_2escm",(void*)f_9138}, {"f_23388:library_2escm",(void*)f_23388}, {"f_23385:library_2escm",(void*)f_23385}, {"f_9140:library_2escm",(void*)f_9140}, {"f_11100:library_2escm",(void*)f_11100}, {"f_8753:library_2escm",(void*)f_8753}, {"f_8751:library_2escm",(void*)f_8751}, {"f_11108:library_2escm",(void*)f_11108}, {"f_10197:library_2escm",(void*)f_10197}, {"f_11110:library_2escm",(void*)f_11110}, {"f_10215:library_2escm",(void*)f_10215}, {"f_20778:library_2escm",(void*)f_20778}, {"f_12179:library_2escm",(void*)f_12179}, {"f_12174:library_2escm",(void*)f_12174}, {"f_11123:library_2escm",(void*)f_11123}, {"f_9104:library_2escm",(void*)f_9104}, {"f_9102:library_2escm",(void*)f_9102}, {"f_20780:library_2escm",(void*)f_20780}, {"f_11151:library_2escm",(void*)f_11151}, {"f_11155:library_2escm",(void*)f_11155}, {"f_10259:library_2escm",(void*)f_10259}, {"f_8775:library_2escm",(void*)f_8775}, {"f_14377:library_2escm",(void*)f_14377}, {"f_8777:library_2escm",(void*)f_8777}, {"f_14379:library_2escm",(void*)f_14379}, {"f_11164:library_2escm",(void*)f_11164}, {"f_14363:library_2escm",(void*)f_14363}, {"f_14366:library_2escm",(void*)f_14366}, {"f_10235:library_2escm",(void*)f_10235}, {"f_10239:library_2escm",(void*)f_10239}, {"f_7227:library_2escm",(void*)f_7227}, {"f_10241:library_2escm",(void*)f_10241}, {"f_7245:library_2escm",(void*)f_7245}, {"f_9120:library_2escm",(void*)f_9120}, {"f_9122:library_2escm",(void*)f_9122}, {"f_14334:library_2escm",(void*)f_14334}, {"f_16745:library_2escm",(void*)f_16745}, {"f_16748:library_2escm",(void*)f_16748}, {"f_7275:library_2escm",(void*)f_7275}, {"f_8729:library_2escm",(void*)f_8729}, {"f_8727:library_2escm",(void*)f_8727}, {"f_12842:library_2escm",(void*)f_12842}, {"f_7295:library_2escm",(void*)f_7295}, {"f_19516:library_2escm",(void*)f_19516}, {"f_19518:library_2escm",(void*)f_19518}, {"f_16026:library_2escm",(void*)f_16026}, {"f_16029:library_2escm",(void*)f_16029}, {"f_14382:library_2escm",(void*)f_14382}, {"f_12854:library_2escm",(void*)f_12854}, {"f_13786:library_2escm",(void*)f_13786}, {"f_13784:library_2escm",(void*)f_13784}, {"f_19528:library_2escm",(void*)f_19528}, {"f_12864:library_2escm",(void*)f_12864}, {"f_13776:library_2escm",(void*)f_13776}, {"f_20512:library_2escm",(void*)f_20512}, {"f27442:library_2escm",(void*)f27442}, {"f_20516:library_2escm",(void*)f_20516}, {"f_16002:library_2escm",(void*)f_16002}, {"f_20502:library_2escm",(void*)f_20502}, {"f_19503:library_2escm",(void*)f_19503}, {"f_20505:library_2escm",(void*)f_20505}, {"f_12880:library_2escm",(void*)f_12880}, {"f_20573:library_2escm",(void*)f_20573}, {"f_20576:library_2escm",(void*)f_20576}, {"f_19552:library_2escm",(void*)f_19552}, {"f_19554:library_2escm",(void*)f_19554}, {"f_16069:library_2escm",(void*)f_16069}, {"f_14340:library_2escm",(void*)f_14340}, {"f_14349:library_2escm",(void*)f_14349}, {"f_16060:library_2escm",(void*)f_16060}, {"f_12893:library_2escm",(void*)f_12893}, {"f_9992:library_2escm",(void*)f_9992}, {"f_16014:library_2escm",(void*)f_16014}, {"f_24749:library_2escm",(void*)f_24749}, {"f_16048:library_2escm",(void*)f_16048}, {"f_16041:library_2escm",(void*)f_16041}, {"f_20542:library_2escm",(void*)f_20542}, {"f_19541:library_2escm",(void*)f_19541}, {"f_19548:library_2escm",(void*)f_19548}, {"f_16079:library_2escm",(void*)f_16079}, {"f_14399:library_2escm",(void*)f_14399}, {"f_8799:library_2escm",(void*)f_8799}, {"f_7216:library_2escm",(void*)f_7216}, {"f_13604:library_2escm",(void*)f_13604}, {"f_13608:library_2escm",(void*)f_13608}, {"f_24787:library_2escm",(void*)f_24787}, {"f_7205:library_2escm",(void*)f_7205}, {"f_16057:library_2escm",(void*)f_16057}, {"f_24753:library_2escm",(void*)f_24753}, {"f_20594:library_2escm",(void*)f_20594}, {"f_20591:library_2escm",(void*)f_20591}, {"f_16088:library_2escm",(void*)f_16088}, {"f_13628:library_2escm",(void*)f_13628}, {"f_24768:library_2escm",(void*)f_24768}, {"f_20588:library_2escm",(void*)f_20588}, {"f_13613:library_2escm",(void*)f_13613}, {"f_11182:library_2escm",(void*)f_11182}, {"f_13617:library_2escm",(void*)f_13617}, {"f_24731:library_2escm",(void*)f_24731}, {"f_11185:library_2escm",(void*)f_11185}, {"f_13641:library_2escm",(void*)f_13641}, {"f_16096:library_2escm",(void*)f_16096}, {"f_13631:library_2escm",(void*)f_13631}, {"f_16091:library_2escm",(void*)f_16091}, {"f_13639:library_2escm",(void*)f_13639}, {"f_13661:library_2escm",(void*)f_13661}, {"f_14723:library_2escm",(void*)f_14723}, {"f_14726:library_2escm",(void*)f_14726}, {"f_13654:library_2escm",(void*)f_13654}, {"f_14713:library_2escm",(void*)f_14713}, {"f_21656:library_2escm",(void*)f_21656}, {"f_21659:library_2escm",(void*)f_21659}, {"f_21653:library_2escm",(void*)f_21653}, {"f_9965:library_2escm",(void*)f_9965}, {"f_9962:library_2escm",(void*)f_9962}, {"f_21679:library_2escm",(void*)f_21679}, {"f_21676:library_2escm",(void*)f_21676}, {"f_21670:library_2escm",(void*)f_21670}, {"f_21673:library_2escm",(void*)f_21673}, {"f_21667:library_2escm",(void*)f_21667}, {"f_9944:library_2escm",(void*)f_9944}, {"f_21662:library_2escm",(void*)f_21662}, {"f_18240:library_2escm",(void*)f_18240}, {"f_18256:library_2escm",(void*)f_18256}, {"f_18253:library_2escm",(void*)f_18253}, {"f_21685:library_2escm",(void*)f_21685}, {"f_21688:library_2escm",(void*)f_21688}, {"f_21682:library_2escm",(void*)f_21682}, {"f_7318:library_2escm",(void*)f_7318}, {"f_25114:library_2escm",(void*)f_25114}, {"f_24408:library_2escm",(void*)f_24408}, {"f_18203:library_2escm",(void*)f_18203}, {"f_25124:library_2escm",(void*)f_25124}, {"f_18200:library_2escm",(void*)f_18200}, {"f_23126:library_2escm",(void*)f_23126}, {"f_23122:library_2escm",(void*)f_23122}, {"f_23120:library_2escm",(void*)f_23120}, {"f_7367:library_2escm",(void*)f_7367}, {"f_23131:library_2escm",(void*)f_23131}, {"f_18229:library_2escm",(void*)f_18229}, {"f_7352:library_2escm",(void*)f_7352}, {"f_9474:library_2escm",(void*)f_9474}, {"f_23106:library_2escm",(void*)f_23106}, {"f_19583:library_2escm",(void*)f_19583}, {"f_23102:library_2escm",(void*)f_23102}, {"f_18235:library_2escm",(void*)f_18235}, {"f_14762:library_2escm",(void*)f_14762}, {"f_14764:library_2escm",(void*)f_14764}, {"f_19585:library_2escm",(void*)f_19585}, {"f_23113:library_2escm",(void*)f_23113}, {"f_23116:library_2escm",(void*)f_23116}, {"f_23119:library_2escm",(void*)f_23119}, {"f_25164:library_2escm",(void*)f_25164}, {"f_9494:library_2escm",(void*)f_9494}, {"f_9468:library_2escm",(void*)f_9468}, {"f_25104:library_2escm",(void*)f_25104}, {"f_24477:library_2escm",(void*)f_24477}, {"f_15999:library_2escm",(void*)f_15999}, {"f_12214:library_2escm",(void*)f_12214}, {"f_25190:library_2escm",(void*)f_25190}, {"f_24489:library_2escm",(void*)f_24489}, {"f_9481:library_2escm",(void*)f_9481}, {"f_10319:library_2escm",(void*)f_10319}, {"f_12229:library_2escm",(void*)f_12229}, {"f_9453:library_2escm",(void*)f_9453}, {"f_24416:library_2escm",(void*)f_24416}, {"f_10321:library_2escm",(void*)f_10321}, {"f_17747:library_2escm",(void*)f_17747}, {"f_12237:library_2escm",(void*)f_12237}, {"f_17484:library_2escm",(void*)f_17484}, {"f_11893:library_2escm",(void*)f_11893}, {"f_11890:library_2escm",(void*)f_11890}, {"f_12231:library_2escm",(void*)f_12231}, {"f_24420:library_2escm",(void*)f_24420}, {"f_24425:library_2escm",(void*)f_24425}, {"f_24429:library_2escm",(void*)f_24429}, {"f_17752:library_2escm",(void*)f_17752}, {"f_25148:library_2escm",(void*)f_25148}, {"f_12245:library_2escm",(void*)f_12245}, {"f_25140:library_2escm",(void*)f_25140}, {"f_12249:library_2escm",(void*)f_12249}, {"f_10306:library_2escm",(void*)f_10306}, {"f_10308:library_2escm",(void*)f_10308}, {"f_17461:library_2escm",(void*)f_17461}, {"f_7306:library_2escm",(void*)f_7306}, {"f_13982:library_2escm",(void*)f_13982}, {"f_10351:library_2escm",(void*)f_10351}, {"f_13985:library_2escm",(void*)f_13985}, {"f_10359:library_2escm",(void*)f_10359}, {"f_10355:library_2escm",(void*)f_10355}, {"f_17472:library_2escm",(void*)f_17472}, {"f_17479:library_2escm",(void*)f_17479}, {"f_13973:library_2escm",(void*)f_13973}, {"f_13979:library_2escm",(void*)f_13979}, {"f_10368:library_2escm",(void*)f_10368}, {"f_18762:library_2escm",(void*)f_18762}, {"f_18765:library_2escm",(void*)f_18765}, {"f_18768:library_2escm",(void*)f_18768}, {"f_10332:library_2escm",(void*)f_10332}, {"f_10334:library_2escm",(void*)f_10334}, {"f_25180:library_2escm",(void*)f_25180}, {"f_13995:library_2escm",(void*)f_13995}, {"f_13999:library_2escm",(void*)f_13999}, {"f_8092:library_2escm",(void*)f_8092}, {"f_11835:library_2escm",(void*)f_11835}, {"f_21945:library_2escm",(void*)f_21945}, {"f_10396:library_2escm",(void*)f_10396}, {"f_8085:library_2escm",(void*)f_8085}, {"f_11842:library_2escm",(void*)f_11842}, {"f_21935:library_2escm",(void*)f_21935}, {"f_17408:library_2escm",(void*)f_17408}, {"f_11812:library_2escm",(void*)f_11812}, {"f_17405:library_2escm",(void*)f_17405}, {"f_21925:library_2escm",(void*)f_21925}, {"f_21920:library_2escm",(void*)f_21920}, {"f_20416:library_2escm",(void*)f_20416}, {"f_23225:library_2escm",(void*)f_23225}, {"f_17417:library_2escm",(void*)f_17417}, {"f_23222:library_2escm",(void*)f_23222}, {"f_21916:library_2escm",(void*)f_21916}, {"f_10388:library_2escm",(void*)f_10388}, {"f_23228:library_2escm",(void*)f_23228}, {"f_11875:library_2escm",(void*)f_11875}, {"f_12805:library_2escm",(void*)f_12805}, {"f_21982:library_2escm",(void*)f_21982}, {"f_12800:library_2escm",(void*)f_12800}, {"f_21989:library_2escm",(void*)f_21989}, {"f_15987:library_2escm",(void*)f_15987}, {"f_23204:library_2escm",(void*)f_23204}, {"f_11884:library_2escm",(void*)f_11884}, {"f_10295:library_2escm",(void*)f_10295}, {"f_21975:library_2escm",(void*)f_21975}, {"f_10290:library_2escm",(void*)f_10290}, {"f_23210:library_2escm",(void*)f_23210}, {"f_17448:library_2escm",(void*)f_17448}, {"f_11852:library_2escm",(void*)f_11852}, {"f_8061:library_2escm",(void*)f_8061}, {"f_17452:library_2escm",(void*)f_17452}, {"f_23218:library_2escm",(void*)f_23218}, {"f_21954:library_2escm",(void*)f_21954}, {"f_21957:library_2escm",(void*)f_21957}, {"f_18708:library_2escm",(void*)f_18708}, {"f_23266:library_2escm",(void*)f_23266}, {"f_17420:library_2escm",(void*)f_17420}, {"f_10282:library_2escm",(void*)f_10282}, {"f_8005:library_2escm",(void*)f_8005}, {"f_18714:library_2escm",(void*)f_18714}, {"f_23241:library_2escm",(void*)f_23241}, {"f_23245:library_2escm",(void*)f_23245}, {"f_8002:library_2escm",(void*)f_8002}, {"f_8665:library_2escm",(void*)f_8665}, {"f_8668:library_2escm",(void*)f_8668}, {"f_22001:library_2escm",(void*)f_22001}, {"f_8662:library_2escm",(void*)f_8662}, {"f_8032:library_2escm",(void*)f_8032}, {"f_8656:library_2escm",(void*)f_8656}, {"f_8659:library_2escm",(void*)f_8659}, {"f_13967:library_2escm",(void*)f_13967}, {"f_18735:library_2escm",(void*)f_18735}, {"f_8653:library_2escm",(void*)f_8653}, {"f_8650:library_2escm",(void*)f_8650}, {"f_9420:library_2escm",(void*)f_9420}, {"f_9426:library_2escm",(void*)f_9426}, {"f_22007:library_2escm",(void*)f_22007}, {"f_8608:library_2escm",(void*)f_8608}, {"f_22004:library_2escm",(void*)f_22004}, {"f_8605:library_2escm",(void*)f_8605}, {"f_18741:library_2escm",(void*)f_18741}, {"f_9441:library_2escm",(void*)f_9441}, {"f_9447:library_2escm",(void*)f_9447}, {"f_20463:library_2escm",(void*)f_20463}, {"f_16798:library_2escm",(void*)f_16798}, {"f_16794:library_2escm",(void*)f_16794}, {"f_8070:library_2escm",(void*)f_8070}, {"f_9414:library_2escm",(void*)f_9414}, {"f_20459:library_2escm",(void*)f_20459}, {"f_22010:library_2escm",(void*)f_22010}, {"f_22013:library_2escm",(void*)f_22013}, {"f_20450:library_2escm",(void*)f_20450}, {"f_12283:library_2escm",(void*)f_12283}, {"f_8644:library_2escm",(void*)f_8644}, {"f_8647:library_2escm",(void*)f_8647}, {"f_8641:library_2escm",(void*)f_8641}, {"f_22022:library_2escm",(void*)f_22022}, {"f_12299:library_2escm",(void*)f_12299}, {"f_12296:library_2escm",(void*)f_12296}, {"f_12293:library_2escm",(void*)f_12293}, {"f_22016:library_2escm",(void*)f_22016}, {"f_8635:library_2escm",(void*)f_8635}, {"f_22019:library_2escm",(void*)f_22019}, {"f_8638:library_2escm",(void*)f_8638}, {"f_20437:library_2escm",(void*)f_20437}, {"f_8632:library_2escm",(void*)f_8632}, {"f_20433:library_2escm",(void*)f_20433}, {"f_14460:library_2escm",(void*)f_14460}, {"f_14466:library_2escm",(void*)f_14466}, {"f_22025:library_2escm",(void*)f_22025}, {"f_22028:library_2escm",(void*)f_22028}, {"f_14457:library_2escm",(void*)f_14457}, {"f_14454:library_2escm",(void*)f_14454}, {"f_8025:library_2escm",(void*)f_8025}, {"f_22079:library_2escm",(void*)f_22079}, {"f_14408:library_2escm",(void*)f_14408}, {"f_14404:library_2escm",(void*)f_14404}, {"f_22085:library_2escm",(void*)f_22085}, {"f_8683:library_2escm",(void*)f_8683}, {"f_8680:library_2escm",(void*)f_8680}, {"f_8677:library_2escm",(void*)f_8677}, {"f_8671:library_2escm",(void*)f_8671}, {"f_22053:library_2escm",(void*)f_22053}, {"f_8674:library_2escm",(void*)f_8674}, {"f_8629:library_2escm",(void*)f_8629}, {"f_8626:library_2escm",(void*)f_8626}, {"f_8623:library_2escm",(void*)f_8623}, {"f_22061:library_2escm",(void*)f_22061}, {"f_22064:library_2escm",(void*)f_22064}, {"f_23921:library_2escm",(void*)f_23921}, {"f_23928:library_2escm",(void*)f_23928}, {"f_8617:library_2escm",(void*)f_8617}, {"f_8614:library_2escm",(void*)f_8614}, {"f_8611:library_2escm",(void*)f_8611}, {"f_19409:library_2escm",(void*)f_19409}, {"f_14442:library_2escm",(void*)f_14442}, {"f_14445:library_2escm",(void*)f_14445}, {"f_22094:library_2escm",(void*)f_22094}, {"f_22070:library_2escm",(void*)f_22070}, {"f_13685:library_2escm",(void*)f_13685}, {"f_16430:library_2escm",(void*)f_16430}, {"f_13679:library_2escm",(void*)f_13679}, {"f_13677:library_2escm",(void*)f_13677}, {"f_13670:library_2escm",(void*)f_13670}, {"f_14487:library_2escm",(void*)f_14487}, {"f_14483:library_2escm",(void*)f_14483}, {"f_16136:library_2escm",(void*)f_16136}, {"f_14479:library_2escm",(void*)f_14479}, {"f_13695:library_2escm",(void*)f_13695}, {"f_19470:library_2escm",(void*)f_19470}, {"f_19473:library_2escm",(void*)f_19473}, {"f_19476:library_2escm",(void*)f_19476}, {"f_16168:library_2escm",(void*)f_16168}, {"f_16165:library_2escm",(void*)f_16165}, {"f_14424:library_2escm",(void*)f_14424}, {"f_24095:library_2escm",(void*)f_24095}, {"f_19482:library_2escm",(void*)f_19482}, {"f_19485:library_2escm",(void*)f_19485}, {"f_19479:library_2escm",(void*)f_19479}, {"f_16156:library_2escm",(void*)f_16156}, {"f_14411:library_2escm",(void*)f_14411}, {"f_14414:library_2escm",(void*)f_14414}, {"f_16152:library_2escm",(void*)f_16152}, {"f_8699:library_2escm",(void*)f_8699}, {"f_22038:library_2escm",(void*)f_22038}, {"f_19492:library_2escm",(void*)f_19492}, {"f_8696:library_2escm",(void*)f_8696}, {"f_22034:library_2escm",(void*)f_22034}, {"f_22031:library_2escm",(void*)f_22031}, {"f_19497:library_2escm",(void*)f_19497}, {"f_19488:library_2escm",(void*)f_19488}, {"f_16107:library_2escm",(void*)f_16107}, {"f_16101:library_2escm",(void*)f_16101}, {"f_22041:library_2escm",(void*)f_22041}, {"f_16179:library_2escm",(void*)f_16179}, {"f_23984:library_2escm",(void*)f_23984}, {"f_23981:library_2escm",(void*)f_23981}, {"f_24086:library_2escm",(void*)f_24086}, {"f_23996:library_2escm",(void*)f_23996}, {"f_23999:library_2escm",(void*)f_23999}, {"f_16197:library_2escm",(void*)f_16197}, {"f_16191:library_2escm",(void*)f_16191}, {"f_23963:library_2escm",(void*)f_23963}, {"f_14777:library_2escm",(void*)f_14777}, {"f_14774:library_2escm",(void*)f_14774}, {"f_23972:library_2escm",(void*)f_23972}, {"f_23978:library_2escm",(void*)f_23978}, {"f_19461:library_2escm",(void*)f_19461}, {"f_19464:library_2escm",(void*)f_19464}, {"f_19467:library_2escm",(void*)f_19467}, {"f_23942:library_2escm",(void*)f_23942}, {"f_23945:library_2escm",(void*)f_23945}, {"f_23948:library_2escm",(void*)f_23948}, {"f_8560:library_2escm",(void*)f_8560}, {"f_23954:library_2escm",(void*)f_23954}, {"f_8550:library_2escm",(void*)f_8550}, {"f29492:library_2escm",(void*)f29492}, {"f_8566:library_2escm",(void*)f_8566}, {"f29486:library_2escm",(void*)f29486}, {"f_14876:library_2escm",(void*)f_14876}, {"f_16188:library_2escm",(void*)f_16188}, {"f_8521:library_2escm",(void*)f_8521}, {"f_8538:library_2escm",(void*)f_8538}, {"f_8527:library_2escm",(void*)f_8527}, {"f_8525:library_2escm",(void*)f_8525}, {"f_11825:library_2escm",(void*)f_11825}, {"f_8515:library_2escm",(void*)f_8515}, {"f_23183:library_2escm",(void*)f_23183}, {"f_23189:library_2escm",(void*)f_23189}, {"f_23186:library_2escm",(void*)f_23186}, {"f_8505:library_2escm",(void*)f_8505}, {"f_23192:library_2escm",(void*)f_23192}, {"f29480:library_2escm",(void*)f29480}, {"f_23282:library_2escm",(void*)f_23282}, {"f_23165:library_2escm",(void*)f_23165}, {"f_23291:library_2escm",(void*)f_23291}, {"f_23167:library_2escm",(void*)f_23167}, {"f_23285:library_2escm",(void*)f_23285}, {"f_23174:library_2escm",(void*)f_23174}, {"f_11094:library_2escm",(void*)f_11094}, {"f_23177:library_2escm",(void*)f_23177}, {"f_23143:library_2escm",(void*)f_23143}, {"f_15911:library_2escm",(void*)f_15911}, {"f_11018:library_2escm",(void*)f_11018}, {"f_17626:library_2escm",(void*)f_17626}, {"f_23153:library_2escm",(void*)f_23153}, {"f_19425:library_2escm",(void*)f_19425}, {"f_15945:library_2escm",(void*)f_15945}, {"f_24507:library_2escm",(void*)f_24507}, {"f_19443:library_2escm",(void*)f_19443}, {"f_11006:library_2escm",(void*)f_11006}, {"f_11003:library_2escm",(void*)f_11003}, {"f_11000:library_2escm",(void*)f_11000}, {"f_19438:library_2escm",(void*)f_19438}, {"f_23023:library_2escm",(void*)f_23023}, {"f_15923:library_2escm",(void*)f_15923}, {"f_9773:library_2escm",(void*)f_9773}, {"f_15929:library_2escm",(void*)f_15929}, {"f_15926:library_2escm",(void*)f_15926}, {"f_8570:library_2escm",(void*)f_8570}, {"f_23032:library_2escm",(void*)f_23032}, {"f_17610:library_2escm",(void*)f_17610}, {"f_9788:library_2escm",(void*)f_9788}, {"f_11065:library_2escm",(void*)f_11065}, {"f_14866:library_2escm",(void*)f_14866}, {"f_14869:library_2escm",(void*)f_14869}, {"f_19458:library_2escm",(void*)f_19458}, {"f_23004:library_2escm",(void*)f_23004}, {"toplevel:library_2escm",(void*)C_library_toplevel}, {"f_13905:library_2escm",(void*)f_13905}, {"f_11032:library_2escm",(void*)f_11032}, {"f_8575:library_2escm",(void*)f_8575}, {"f_23014:library_2escm",(void*)f_23014}, {"f_23010:library_2escm",(void*)f_23010}, {"f_15934:library_2escm",(void*)f_15934}, {"f_9763:library_2escm",(void*)f_9763}, {"f_11043:library_2escm",(void*)f_11043}, {"f_15939:library_2escm",(void*)f_15939}, {"f_13926:library_2escm",(void*)f_13926}, {"f_15875:library_2escm",(void*)f_15875}, {"f_11012:library_2escm",(void*)f_11012}, {"f_24523:library_2escm",(void*)f_24523}, {"f_24529:library_2escm",(void*)f_24529}, {"f_15863:library_2escm",(void*)f_15863}, {"f_24583:library_2escm",(void*)f_24583}, {"f_17633:library_2escm",(void*)f_17633}, {"f_24814:library_2escm",(void*)f_24814}, {"f_24595:library_2escm",(void*)f_24595}, {"f_24599:library_2escm",(void*)f_24599}, {"f_24591:library_2escm",(void*)f_24591}, {"f_11054:library_2escm",(void*)f_11054}, {"f_20146:library_2escm",(void*)f_20146}, {"f_13958:library_2escm",(void*)f_13958}, {"f_13950:library_2escm",(void*)f_13950}, {"f_20149:library_2escm",(void*)f_20149}, {"f_20134:library_2escm",(void*)f_20134}, {"f_24578:library_2escm",(void*)f_24578}, {"f_15812:library_2escm",(void*)f_15812}, {"f_20139:library_2escm",(void*)f_20139}, {"f_24804:library_2escm",(void*)f_24804}, {"f_13884:library_2escm",(void*)f_13884}, {"f_17652:library_2escm",(void*)f_17652}, {"f_9799:library_2escm",(void*)f_9799}, {"f_15887:library_2escm",(void*)f_15887}, {"f_15899:library_2escm",(void*)f_15899}, {"f_15395:library_2escm",(void*)f_15395}, {"f_15370:library_2escm",(void*)f_15370}, {"f_15377:library_2escm",(void*)f_15377}, {"f_23914:library_2escm",(void*)f_23914}, {"f_11082:library_2escm",(void*)f_11082}, {"f_11076:library_2escm",(void*)f_11076}, {"f_22115:library_2escm",(void*)f_22115}, {"f_22111:library_2escm",(void*)f_22111}, {"f_11088:library_2escm",(void*)f_11088}, {"f_21797:library_2escm",(void*)f_21797}, {"f_17690:library_2escm",(void*)f_17690}, {"f_9702:library_2escm",(void*)f_9702}, {"f_21791:library_2escm",(void*)f_21791}, {"f_9705:library_2escm",(void*)f_9705}, {"f_9708:library_2escm",(void*)f_9708}, {"f_13867:library_2escm",(void*)f_13867}, {"f_9751:library_2escm",(void*)f_9751}, {"f_9732:library_2escm",(void*)f_9732}, {"f_9749:library_2escm",(void*)f_9749}, {"f_22109:library_2escm",(void*)f_22109}, {"f_22100:library_2escm",(void*)f_22100}, {"f_9726:library_2escm",(void*)f_9726}, {"f_12009:library_2escm",(void*)f_12009}, {"f_16506:library_2escm",(void*)f_16506}, {"f_22199:library_2escm",(void*)f_22199}, {"f_22197:library_2escm",(void*)f_22197}, {"f_22190:library_2escm",(void*)f_22190}, {"f_12020:library_2escm",(void*)f_12020}, {"f_22142:library_2escm",(void*)f_22142}, {"f_12031:library_2escm",(void*)f_12031}, {"f_12046:library_2escm",(void*)f_12046}, {"f_12044:library_2escm",(void*)f_12044}, {"f_12057:library_2escm",(void*)f_12057}, {"f_23826:library_2escm",(void*)f_23826}, {"f_12052:library_2escm",(void*)f_12052}, {"f_23834:library_2escm",(void*)f_23834}, {"f_22172:library_2escm",(void*)f_22172}, {"f_9711:library_2escm",(void*)f_9711}, {"f_9714:library_2escm",(void*)f_9714}, {"f_22186:library_2escm",(void*)f_22186}, {"f_24546:library_2escm",(void*)f_24546}, {"f_24540:library_2escm",(void*)f_24540}, {"f_24552:library_2escm",(void*)f_24552}, {"f_24550:library_2escm",(void*)f_24550}, {"f_22152:library_2escm",(void*)f_22152}, {"f_22168:library_2escm",(void*)f_22168}, {"f_22161:library_2escm",(void*)f_22161}, {"f_20282:library_2escm",(void*)f_20282}, {"f_24535:library_2escm",(void*)f_24535}, {"f_24536:library_2escm",(void*)f_24536}, {"f_24532:library_2escm",(void*)f_24532}, {"f_20274:library_2escm",(void*)f_20274}, {"f_23897:library_2escm",(void*)f_23897}, {"f_23890:library_2escm",(void*)f_23890}, {"f_23866:library_2escm",(void*)f_23866}, {"f_24562:library_2escm",(void*)f_24562}, {"f_23873:library_2escm",(void*)f_23873}, {"f_23842:library_2escm",(void*)f_23842}, {"f_23846:library_2escm",(void*)f_23846}, {"f_16683:library_2escm",(void*)f_16683}, {"f_23856:library_2escm",(void*)f_23856}, {"f_23854:library_2escm",(void*)f_23854}, {"f_20213:library_2escm",(void*)f_20213}, {"f_16671:library_2escm",(void*)f_16671}, {"f_20203:library_2escm",(void*)f_20203}, {"f_18518:library_2escm",(void*)f_18518}, {"f_18520:library_2escm",(void*)f_18520}, {"f_14991:library_2escm",(void*)f_14991}, {"f_18526:library_2escm",(void*)f_18526}, {"f_14997:library_2escm",(void*)f_14997}, {"f_12568:library_2escm",(void*)f_12568}, {"f_14982:library_2escm",(void*)f_14982}, {"f_12092:library_2escm",(void*)f_12092}, {"f_12578:library_2escm",(void*)f_12578}, {"f_14972:library_2escm",(void*)f_14972}, {"f_14978:library_2escm",(void*)f_14978}, {"f_23087:library_2escm",(void*)f_23087}, {"f_12582:library_2escm",(void*)f_12582}, {"f_23081:library_2escm",(void*)f_23081}, {"f_12584:library_2escm",(void*)f_12584}, {"f_14964:library_2escm",(void*)f_14964}, {"f_23099:library_2escm",(void*)f_23099}, {"f_23094:library_2escm",(void*)f_23094}, {"f_12594:library_2escm",(void*)f_12594}, {"f_12598:library_2escm",(void*)f_12598}, {"f_15806:library_2escm",(void*)f_15806}, {"f_18579:library_2escm",(void*)f_18579}, {"f_23075:library_2escm",(void*)f_23075}, {"f_17974:library_2escm",(void*)f_17974}, {"f_15851:library_2escm",(void*)f_15851}, {"f_17940:library_2escm",(void*)f_17940}, {"f_20002:library_2escm",(void*)f_20002}, {"f_18535:library_2escm",(void*)f_18535}, {"f_12503:library_2escm",(void*)f_12503}, {"f_17964:library_2escm",(void*)f_17964}, {"f_18541:library_2escm",(void*)f_18541}, {"f_15820:library_2escm",(void*)f_15820}, {"f_18548:library_2escm",(void*)f_18548}, {"f_12512:library_2escm",(void*)f_12512}, {"f_12508:library_2escm",(void*)f_12508}, {"f_18551:library_2escm",(void*)f_18551}, {"f_18554:library_2escm",(void*)f_18554}, {"f_12522:library_2escm",(void*)f_12522}, {"f_25478:library_2escm",(void*)f_25478}, {"f_15826:library_2escm",(void*)f_15826}, {"f_12517:library_2escm",(void*)f_12517}, {"f_17989:library_2escm",(void*)f_17989}, {"f_13816:library_2escm",(void*)f_13816}, {"f_17983:library_2escm",(void*)f_17983}, {"f_18563:library_2escm",(void*)f_18563}, {"f_12532:library_2escm",(void*)f_12532}, {"f_12528:library_2escm",(void*)f_12528}, {"f_13803:library_2escm",(void*)f_13803}, {"f_12542:library_2escm",(void*)f_12542}, {"f_24220:library_2escm",(void*)f_24220}, {"f_24228:library_2escm",(void*)f_24228}, {"f_12537:library_2escm",(void*)f_12537}, {"f_18500:library_2escm",(void*)f_18500}, {"f_13833:library_2escm",(void*)f_13833}, {"f_20026:library_2escm",(void*)f_20026}, {"f_24238:library_2escm",(void*)f_24238}, {"f_12547:library_2escm",(void*)f_12547}, {"f_20099:library_2escm",(void*)f_20099}, {"f_13850:library_2escm",(void*)f_13850}, {"f_20080:library_2escm",(void*)f_20080}, {"f_24258:library_2escm",(void*)f_24258}, {"f_10534:library_2escm",(void*)f_10534}, {"f_10538:library_2escm",(void*)f_10538}, {"f_17914:library_2escm",(void*)f_17914}, {"f_20251:library_2escm",(void*)f_20251}, {"f_20254:library_2escm",(void*)f_20254}, {"f_24267:library_2escm",(void*)f_24267}, {"f_10506:library_2escm",(void*)f_10506}, {"f_17933:library_2escm",(void*)f_17933}, {"f_20054:library_2escm",(void*)f_20054}, {"f_20230:library_2escm",(void*)f_20230}, {"f_24202:library_2escm",(void*)f_24202}, {"f_10564:library_2escm",(void*)f_10564}, {"f_17902:library_2escm",(void*)f_17902}, {"f_20049:library_2escm",(void*)f_20049}, {"f_20046:library_2escm",(void*)f_20046}, {"f_15205:library_2escm",(void*)f_15205}, {"f_15238:library_2escm",(void*)f_15238}, {"f_10574:library_2escm",(void*)f_10574}, {"f_10576:library_2escm",(void*)f_10576}, {"f_17957:library_2escm",(void*)f_17957}, {"f_20039:library_2escm",(void*)f_20039}, {"f_20035:library_2escm",(void*)f_20035}, {"f_20030:library_2escm",(void*)f_20030}, {"f_25416:library_2escm",(void*)f_25416}, {"f_10540:library_2escm",(void*)f_10540}, {"f_10549:library_2escm",(void*)f_10549}, {"f_17920:library_2escm",(void*)f_17920}, {"f_25420:library_2escm",(void*)f_25420}, {"f_25424:library_2escm",(void*)f_25424}, {"f_10559:library_2escm",(void*)f_10559}, {"f_10555:library_2escm",(void*)f_10555}, {"f_15228:library_2escm",(void*)f_15228}, {"f_10588:library_2escm",(void*)f_10588}, {"f_10586:library_2escm",(void*)f_10586}, {"f_10580:library_2escm",(void*)f_10580}, {"f_20069:library_2escm",(void*)f_20069}, {"f_20063:library_2escm",(void*)f_20063}, {"f_20060:library_2escm",(void*)f_20060}, {"f_15222:library_2escm",(void*)f_15222}, {"f_10595:library_2escm",(void*)f_10595}, {"f_10592:library_2escm",(void*)f_10592}, {"f_23803:library_2escm",(void*)f_23803}, {"f_23818:library_2escm",(void*)f_23818}, {"f_8421:library_2escm",(void*)f_8421}, {"f_21076:library_2escm",(void*)f_21076}, {"f_8415:library_2escm",(void*)f_8415}, {"f_8380:library_2escm",(void*)f_8380}, {"f_8445:library_2escm",(void*)f_8445}, {"f_7459:library_2escm",(void*)f_7459}, {"f_8439:library_2escm",(void*)f_8439}, {"f_7453:library_2escm",(void*)f_7453}, {"f_7456:library_2escm",(void*)f_7456}, {"f_21080:library_2escm",(void*)f_21080}, {"f_21085:library_2escm",(void*)f_21085}, {"f_8469:library_2escm",(void*)f_8469}, {"f_22228:library_2escm",(void*)f_22228}, {"f_7446:library_2escm",(void*)f_7446}, {"f_22221:library_2escm",(void*)f_22221}, {"f_8463:library_2escm",(void*)f_8463}, {"f_7468:library_2escm",(void*)f_7468}, {"f_7462:library_2escm",(void*)f_7462}, {"f_7465:library_2escm",(void*)f_7465}, {"f_8329:library_2escm",(void*)f_8329}, {"f_8359:library_2escm",(void*)f_8359}, {"f_8353:library_2escm",(void*)f_8353}, {"f_10161:library_2escm",(void*)f_10161}, {"f_22237:library_2escm",(void*)f_22237}, {"f_8305:library_2escm",(void*)f_8305}, {"f_22233:library_2escm",(void*)f_22233}, {"f_8490:library_2escm",(void*)f_8490}, {"f_7433:library_2escm",(void*)f_7433}, {"f_25458:library_2escm",(void*)f_25458}, {"f_22248:library_2escm",(void*)f_22248}, {"f_8335:library_2escm",(void*)f_8335}, {"f_22243:library_2escm",(void*)f_22243}, {"f_22240:library_2escm",(void*)f_22240}, {"f_21011:library_2escm",(void*)f_21011}, {"f_21018:library_2escm",(void*)f_21018}, {"f_25465:library_2escm",(void*)f_25465}, {"f_22294:library_2escm",(void*)f_22294}, {"f_22291:library_2escm",(void*)f_22291}, {"f_21009:library_2escm",(void*)f_21009}, {"f_8394:library_2escm",(void*)f_8394}, {"f_7762:library_2escm",(void*)f_7762}, {"f_7765:library_2escm",(void*)f_7765}, {"f_22278:library_2escm",(void*)f_22278}, {"f_7753:library_2escm",(void*)f_7753}, {"f_7756:library_2escm",(void*)f_7756}, {"f_7759:library_2escm",(void*)f_7759}, {"f_8374:library_2escm",(void*)f_8374}, {"f_7700:library_2escm",(void*)f_7700}, {"f_7495:library_2escm",(void*)f_7495}, {"f_7498:library_2escm",(void*)f_7498}, {"f_17169:library_2escm",(void*)f_17169}, {"f_7492:library_2escm",(void*)f_7492}, {"f_7489:library_2escm",(void*)f_7489}, {"f_7486:library_2escm",(void*)f_7486}, {"f_10153:library_2escm",(void*)f_10153}, {"f_10158:library_2escm",(void*)f_10158}, {"f_22768:library_2escm",(void*)f_22768}, {"f_7483:library_2escm",(void*)f_7483}, {"f_7480:library_2escm",(void*)f_7480}, {"f_22762:library_2escm",(void*)f_22762}, {"f_9260:library_2escm",(void*)f_9260}, {"f_17187:library_2escm",(void*)f_17187}, {"f_22772:library_2escm",(void*)f_22772}, {"f_9258:library_2escm",(void*)f_9258}, {"f_15726:library_2escm",(void*)f_15726}, {"f_22789:library_2escm",(void*)f_22789}, {"f_7747:library_2escm",(void*)f_7747}, {"f_9278:library_2escm",(void*)f_9278}, {"f_9276:library_2escm",(void*)f_9276}, {"f_15705:library_2escm",(void*)f_15705}, {"f_15702:library_2escm",(void*)f_15702}, {"f_22728:library_2escm",(void*)f_22728}, {"f_22722:library_2escm",(void*)f_22722}, {"f_14957:library_2escm",(void*)f_14957}, {"f_14953:library_2escm",(void*)f_14953}, {"f_8311:library_2escm",(void*)f_8311}, {"f_21038:library_2escm",(void*)f_21038}, {"f_7477:library_2escm",(void*)f_7477}, {"f_21030:library_2escm",(void*)f_21030}, {"f_7474:library_2escm",(void*)f_7474}, {"f_7471:library_2escm",(void*)f_7471}, {"f_14947:library_2escm",(void*)f_14947}, {"f_6898:library_2escm",(void*)f_6898}, {"f_17115:library_2escm",(void*)f_17115}, {"f_8484:library_2escm",(void*)f_8484}, {"f_6886:library_2escm",(void*)f_6886}, {"f_14934:library_2escm",(void*)f_14934}, {"f_15755:library_2escm",(void*)f_15755}, {"f_22754:library_2escm",(void*)f_22754}, {"f_22758:library_2escm",(void*)f_22758}, {"f_22252:library_2escm",(void*)f_22252}, {"f_7771:library_2escm",(void*)f_7771}, {"f_22750:library_2escm",(void*)f_22750}, {"f_14927:library_2escm",(void*)f_14927}, {"f_14921:library_2escm",(void*)f_14921}, {"f_6877:library_2escm",(void*)f_6877}, {"f_17136:library_2escm",(void*)f_17136}, {"f_15749:library_2escm",(void*)f_15749}, {"f_7729:library_2escm",(void*)f_7729}, {"f_14911:library_2escm",(void*)f_14911}, {"f_15732:library_2escm",(void*)f_15732}, {"f_24658:library_2escm",(void*)f_24658}, {"f_17103:library_2escm",(void*)f_17103}, {"f_24654:library_2escm",(void*)f_24654}, {"f_24650:library_2escm",(void*)f_24650}, {"f_14909:library_2escm",(void*)f_14909}, {"f_7718:library_2escm",(void*)f_7718}, {"f_14901:library_2escm",(void*)f_14901}, {"f_17151:library_2escm",(void*)f_17151}, {"f_24666:library_2escm",(void*)f_24666}, {"f_24662:library_2escm",(void*)f_24662}, {"f_22714:library_2escm",(void*)f_22714}, {"f_6837:library_2escm",(void*)f_6837}, {"f_6833:library_2escm",(void*)f_6833}, {"f_24684:library_2escm",(void*)f_24684}, {"f_24688:library_2escm",(void*)f_24688}, {"f_24680:library_2escm",(void*)f_24680}, {"f_6828:library_2escm",(void*)f_6828}, {"f_6824:library_2escm",(void*)f_6824}, {"f_6813:library_2escm",(void*)f_6813}, {"f_9294:library_2escm",(void*)f_9294}, {"f_9296:library_2escm",(void*)f_9296}, {"f_6806:library_2escm",(void*)f_6806}, {"f_6801:library_2escm",(void*)f_6801}, {"f_12673:library_2escm",(void*)f_12673}, {"f_12649:library_2escm",(void*)f_12649}, {"f_7798:library_2escm",(void*)f_7798}, {"f_12661:library_2escm",(void*)f_12661}, {"f_11675:library_2escm",(void*)f_11675}, {"f_11673:library_2escm",(void*)f_11673}, {"f_25602:library_2escm",(void*)f_25602}, {"f_11683:library_2escm",(void*)f_11683}, {"f_11685:library_2escm",(void*)f_11685}, {"f_12680:library_2escm",(void*)f_12680}, {"f_11669:library_2escm",(void*)f_11669}, {"f_9236:library_2escm",(void*)f_9236}, {"f_9234:library_2escm",(void*)f_9234}, {"f_11665:library_2escm",(void*)f_11665}, {"f_11696:library_2escm",(void*)f_11696}, {"f_11692:library_2escm",(void*)f_11692}, {"f_6857:library_2escm",(void*)f_6857}, {"f_7808:library_2escm",(void*)f_7808}, {"f_12613:library_2escm",(void*)f_12613}, {"f_6842:library_2escm",(void*)f_6842}, {"f_23618:library_2escm",(void*)f_23618}, {"f_12638:library_2escm",(void*)f_12638}, {"f_12631:library_2escm",(void*)f_12631}, {"f_11607:library_2escm",(void*)f_11607}, {"f_12607:library_2escm",(void*)f_12607}, {"f_12600:library_2escm",(void*)f_12600}, {"f_12653:library_2escm",(void*)f_12653}, {"f_17801:library_2escm",(void*)f_17801}, {"f_17807:library_2escm",(void*)f_17807}, {"f_8919:library_2escm",(void*)f_8919}, {"f_11632:library_2escm",(void*)f_11632}, {"f_25634:library_2escm",(void*)f_25634}, {"f_11648:library_2escm",(void*)f_11648}, {"f_17860:library_2escm",(void*)f_17860}, {"f_17834:library_2escm",(void*)f_17834}, {"f_23692:library_2escm",(void*)f_23692}, {"f_17841:library_2escm",(void*)f_17841}, {"f_17811:library_2escm",(void*)f_17811}, {"f_7886:library_2escm",(void*)f_7886}, {"f_9216:library_2escm",(void*)f_9216}, {"f_9218:library_2escm",(void*)f_9218}, {"f_18351:library_2escm",(void*)f_18351}, {"f_18354:library_2escm",(void*)f_18354}, {"f_18320:library_2escm",(void*)f_18320}, {"f_8985:library_2escm",(void*)f_8985}, {"f_8987:library_2escm",(void*)f_8987}, {"f_15137:library_2escm",(void*)f_15137}, {"f_8963:library_2escm",(void*)f_8963}, {"f_8961:library_2escm",(void*)f_8961}, {"f_22802:library_2escm",(void*)f_22802}, {"f_22806:library_2escm",(void*)f_22806}, {"f_13103:library_2escm",(void*)f_13103}, {"f_22838:library_2escm",(void*)f_22838}, {"f_13122:library_2escm",(void*)f_13122}, {"f_13125:library_2escm",(void*)f_13125}, {"f_22810:library_2escm",(void*)f_22810}, {"f_22848:library_2escm",(void*)f_22848}, {"f_13110:library_2escm",(void*)f_13110}, {"f_13117:library_2escm",(void*)f_13117}, {"f_13118:library_2escm",(void*)f_13118}, {"f_23738:library_2escm",(void*)f_23738}, {"f_13141:library_2escm",(void*)f_13141}, {"f_23740:library_2escm",(void*)f_23740}, {"f_15186:library_2escm",(void*)f_15186}, {"f_23747:library_2escm",(void*)f_23747}, {"f_22825:library_2escm",(void*)f_22825}, {"f_22880:library_2escm",(void*)f_22880}, {"f_22883:library_2escm",(void*)f_22883}, {"f_13160:library_2escm",(void*)f_13160}, {"f_22852:library_2escm",(void*)f_22852}, {"f_22324:library_2escm",(void*)f_22324}, {"f_19310:library_2escm",(void*)f_19310}, {"f_19314:library_2escm",(void*)f_19314}, {"f_22322:library_2escm",(void*)f_22322}, {"f_22886:library_2escm",(void*)f_22886}, {"f_19318:library_2escm",(void*)f_19318}, {"f_13152:library_2escm",(void*)f_13152}, {"f_15190:library_2escm",(void*)f_15190}, {"f_15193:library_2escm",(void*)f_15193}, {"f_22337:library_2escm",(void*)f_22337}, {"f_21996:library_2escm",(void*)f_21996}, {"f_21998:library_2escm",(void*)f_21998}, {"f_21992:library_2escm",(void*)f_21992}, {"f_13186:library_2escm",(void*)f_13186}, {"f_13181:library_2escm",(void*)f_13181}, {"f_7535:library_2escm",(void*)f_7535}, {"f_13172:library_2escm",(void*)f_13172}, {"f_7836:library_2escm",(void*)f_7836}, {"f_23759:library_2escm",(void*)f_23759}, {"f_7556:library_2escm",(void*)f_7556}, {"f_22892:library_2escm",(void*)f_22892}, {"f_7824:library_2escm",(void*)f_7824}, {"f_7855:library_2escm",(void*)f_7855}, {"f_8229:library_2escm",(void*)f_8229}, {"f_7521:library_2escm",(void*)f_7521}, {"f_7528:library_2escm",(void*)f_7528}, {"f_19302:library_2escm",(void*)f_19302}, {"f_19306:library_2escm",(void*)f_19306}, {"f_8217:library_2escm",(void*)f_8217}, {"f_8219:library_2escm",(void*)f_8219}, {"f_20896:library_2escm",(void*)f_20896}, {"f_20893:library_2escm",(void*)f_20893}, {"f_15529:library_2escm",(void*)f_15529}, {"f_7549:library_2escm",(void*)f_7549}, {"f_15519:library_2escm",(void*)f_15519}, {"f_8238:library_2escm",(void*)f_8238}, {"f_18475:library_2escm",(void*)f_18475}, {"f_18479:library_2escm",(void*)f_18479}, {"f_15500:library_2escm",(void*)f_15500}, {"f_8269:library_2escm",(void*)f_8269}, {"f_18482:library_2escm",(void*)f_18482}, {"f_8945:library_2escm",(void*)f_8945}, {"f_8943:library_2escm",(void*)f_8943}, {"f_15783:library_2escm",(void*)f_15783}, {"f_22353:library_2escm",(void*)f_22353}, {"f_22356:library_2escm",(void*)f_22356}, {"f_22350:library_2escm",(void*)f_22350}, {"f_18497:library_2escm",(void*)f_18497}, {"f_22363:library_2escm",(void*)f_22363}, {"f_7069:library_2escm",(void*)f_7069}, {"f_8282:library_2escm",(void*)f_8282}, {"f_8284:library_2escm",(void*)f_8284}, {"f_7504:library_2escm",(void*)f_7504}, {"f_7063:library_2escm",(void*)f_7063}, {"f_7501:library_2escm",(void*)f_7501}, {"f_8921:library_2escm",(void*)f_8921}, {"f_7019:library_2escm",(void*)f_7019}, {"f_7507:library_2escm",(void*)f_7507}, {"f_9567:library_2escm",(void*)f_9567}, {"f_8279:library_2escm",(void*)f_8279}, {"f_8273:library_2escm",(void*)f_8273}, {"f_7570:library_2escm",(void*)f_7570}, {"f_7012:library_2escm",(void*)f_7012}, {"f_7015:library_2escm",(void*)f_7015}, {"f_22309:library_2escm",(void*)f_22309}, {"f_17087:library_2escm",(void*)f_17087}, {"f_22306:library_2escm",(void*)f_22306}, {"f_22303:library_2escm",(void*)f_22303}, {"f_9579:library_2escm",(void*)f_9579}, {"f_15548:library_2escm",(void*)f_15548}, {"f_7001:library_2escm",(void*)f_7001}, {"f_17050:library_2escm",(void*)f_17050}, {"f_7007:library_2escm",(void*)f_7007}, {"f_7004:library_2escm",(void*)f_7004}, {"f_17057:library_2escm",(void*)f_17057}, {"f_22315:library_2escm",(void*)f_22315}, {"f_15533:library_2escm",(void*)f_15533}, {"f_15537:library_2escm",(void*)f_15537}, {"f_7032:library_2escm",(void*)f_7032}, {"f_7035:library_2escm",(void*)f_7035}, {"f_7028:library_2escm",(void*)f_7028}, {"f_18463:library_2escm",(void*)f_18463}, {"f_18469:library_2escm",(void*)f_18469}, {"f_25301:library_2escm",(void*)f_25301}, {"f_24336:library_2escm",(void*)f_24336}, {"f_25311:library_2escm",(void*)f_25311}, {"f_24301:library_2escm",(void*)f_24301}, {"f_17094:library_2escm",(void*)f_17094}, {"f_18408:library_2escm",(void*)f_18408}, {"f_15612:library_2escm",(void*)f_15612}, {"f_24317:library_2escm",(void*)f_24317}, {"f_18412:library_2escm",(void*)f_18412}, {"f_17026:library_2escm",(void*)f_17026}, {"f_15606:library_2escm",(void*)f_15606}, {"f_17022:library_2escm",(void*)f_17022}, {"f_19295:library_2escm",(void*)f_19295}, {"f_11998:library_2escm",(void*)f_11998}, {"f_19269:library_2escm",(void*)f_19269}, {"f_8207:library_2escm",(void*)f_8207}, {"f_7584:library_2escm",(void*)f_7584}, {"f_7094:library_2escm",(void*)f_7094}, {"f_17005:library_2escm",(void*)f_17005}, {"f_15666:library_2escm",(void*)f_15666}, {"f_24346:library_2escm",(void*)f_24346}, {"f_19289:library_2escm",(void*)f_19289}, {"f_7083:library_2escm",(void*)f_7083}, {"f_15650:library_2escm",(void*)f_15650}, {"f_15657:library_2escm",(void*)f_15657}, {"f_25366:library_2escm",(void*)f_25366}, {"f_19281:library_2escm",(void*)f_19281}, {"f_25364:library_2escm",(void*)f_25364}, {"f_19285:library_2escm",(void*)f_19285}, {"f_24356:library_2escm",(void*)f_24356}, {"f_20824:library_2escm",(void*)f_20824}, {"f_20826:library_2escm",(void*)f_20826}, {"f_17064:library_2escm",(void*)f_17064}, {"f_15641:library_2escm",(void*)f_15641}, {"f_23637:library_2escm",(void*)f_23637}, {"f_17036:library_2escm",(void*)f_17036}, {"f_17030:library_2escm",(void*)f_17030}, {"f_15634:library_2escm",(void*)f_15634}, {"f_17034:library_2escm",(void*)f_17034}, {"f_25382:library_2escm",(void*)f_25382}, {"f_11976:library_2escm",(void*)f_11976}, {"f_14677:library_2escm",(void*)f_14677}, {"f_25393:library_2escm",(void*)f_25393}, {"f_11972:library_2escm",(void*)f_11972}, {"f_19277:library_2escm",(void*)f_19277}, {"f_11979:library_2escm",(void*)f_11979}, {"f_9581:library_2escm",(void*)f_9581}, {"f_11985:library_2escm",(void*)f_11985}, {"f_11982:library_2escm",(void*)f_11982}, {"f_25327:library_2escm",(void*)f_25327}, {"f_11987:library_2escm",(void*)f_11987}, {"f_25335:library_2escm",(void*)f_25335}, {"f_25331:library_2escm",(void*)f_25331}, {"f_11910:library_2escm",(void*)f_11910}, {"f_19215:library_2escm",(void*)f_19215}, {"f_19214:library_2escm",(void*)f_19214}, {"f_23679:library_2escm",(void*)f_23679}, {"f_23677:library_2escm",(void*)f_23677}, {"f_25338:library_2escm",(void*)f_25338}, {"f_23653:library_2escm",(void*)f_23653}, {"f_25341:library_2escm",(void*)f_25341}, {"f_25344:library_2escm",(void*)f_25344}, {"f_23660:library_2escm",(void*)f_23660}, {"f_25356:library_2escm",(void*)f_25356}, {"f_25350:library_2escm",(void*)f_25350}, {"f_25353:library_2escm",(void*)f_25353}, {"f_19208:library_2escm",(void*)f_19208}, {"f_19209:library_2escm",(void*)f_19209}, {"f_9546:library_2escm",(void*)f_9546}, {"f_23634:library_2escm",(void*)f_23634}, {"f_23630:library_2escm",(void*)f_23630}, {"f_19202:library_2escm",(void*)f_19202}, {"f_19203:library_2escm",(void*)f_19203}, {"f_22422:library_2escm",(void*)f_22422}, {"f_19255:library_2escm",(void*)f_19255}, {"f_20997:library_2escm",(void*)f_20997}, {"f_9558:library_2escm",(void*)f_9558}, {"f_19253:library_2escm",(void*)f_19253}, {"f_19250:library_2escm",(void*)f_19250}, {"f_22432:library_2escm",(void*)f_22432}, {"f_19227:library_2escm",(void*)f_19227}, {"f_19226:library_2escm",(void*)f_19226}, {"f_12377:library_2escm",(void*)f_12377}, {"f_9522:library_2escm",(void*)f_9522}, {"f_22428:library_2escm",(void*)f_22428}, {"f_22424:library_2escm",(void*)f_22424}, {"f_19221:library_2escm",(void*)f_19221}, {"f_19220:library_2escm",(void*)f_19220}, {"f_20883:library_2escm",(void*)f_20883}, {"f_20889:library_2escm",(void*)f_20889}, {"f_11968:library_2escm",(void*)f_11968}, {"f_20972:library_2escm",(void*)f_20972}, {"f_9534:library_2escm",(void*)f_9534}, {"f_22438:library_2escm",(void*)f_22438}, {"f_11570:library_2escm",(void*)f_11570}, {"f_11578:library_2escm",(void*)f_11578}, {"f_19247:library_2escm",(void*)f_19247}, {"f_12393:library_2escm",(void*)f_12393}, {"f_9506:library_2escm",(void*)f_9506}, {"f_19244:library_2escm",(void*)f_19244}, {"f_11548:library_2escm",(void*)f_11548}, {"f_20860:library_2escm",(void*)f_20860}, {"f_9512:library_2escm",(void*)f_9512}, {"f_9517:library_2escm",(void*)f_9517}, {"f_9514:library_2escm",(void*)f_9514}, {"f_22419:library_2escm",(void*)f_22419}, {"f_22416:library_2escm",(void*)f_22416}, {"f_22471:library_2escm",(void*)f_22471}, {"f_14021:library_2escm",(void*)f_14021}, {"f_14028:library_2escm",(void*)f_14028}, {"f_11561:library_2escm",(void*)f_11561}, {"f_11568:library_2escm",(void*)f_11568}, {"f_16891:library_2escm",(void*)f_16891}, {"f_16893:library_2escm",(void*)f_16893}, {"f_14016:library_2escm",(void*)f_14016}, {"f_12381:library_2escm",(void*)f_12381}, {"f_19234:library_2escm",(void*)f_19234}, {"f_19232:library_2escm",(void*)f_19232}, {"f_22478:library_2escm",(void*)f_22478}, {"f_14041:library_2escm",(void*)f_14041}, {"f_14047:library_2escm",(void*)f_14047}, {"f_11580:library_2escm",(void*)f_11580}, {"f_22443:library_2escm",(void*)f_22443}, {"f_22447:library_2escm",(void*)f_22447}, {"f_11589:library_2escm",(void*)f_11589}, {"f_14032:library_2escm",(void*)f_14032}, {"f_20914:library_2escm",(void*)f_20914}, {"f_22459:library_2escm",(void*)f_22459}, {"f_12320:library_2escm",(void*)f_12320}, {"f_12322:library_2escm",(void*)f_12322}, {"f_9009:library_2escm",(void*)f_9009}, {"f_14061:library_2escm",(void*)f_14061}, {"f_20908:library_2escm",(void*)f_20908}, {"f_20900:library_2escm",(void*)f_20900}, {"f_7903:library_2escm",(void*)f_7903}, {"f_9011:library_2escm",(void*)f_9011}, {"f_14057:library_2escm",(void*)f_14057}, {"f_7909:library_2escm",(void*)f_7909}, {"f_20629:library_2escm",(void*)f_20629}, {"f_20625:library_2escm",(void*)f_20625}, {"f_9029:library_2escm",(void*)f_9029}, {"f_9027:library_2escm",(void*)f_9027}, {"f_12316:library_2escm",(void*)f_12316}, {"f_22484:library_2escm",(void*)f_22484}, {"f_12312:library_2escm",(void*)f_12312}, {"f_14070:library_2escm",(void*)f_14070}, {"f_14077:library_2escm",(void*)f_14077}, {"f_23526:library_2escm",(void*)f_23526}, {"f_22498:library_2escm",(void*)f_22498}, {"f_11518:library_2escm",(void*)f_11518}, {"f_12335:library_2escm",(void*)f_12335}, {"f_20633:library_2escm",(void*)f_20633}, {"f_14095:library_2escm",(void*)f_14095}, {"f_14090:library_2escm",(void*)f_14090}, {"f_12305:library_2escm",(void*)f_12305}, {"f_12302:library_2escm",(void*)f_12302}, {"f_7972:library_2escm",(void*)f_7972}, {"f_7975:library_2escm",(void*)f_7975}, {"f_7978:library_2escm",(void*)f_7978}, {"f_11503:library_2escm",(void*)f_11503}, {"f_20619:library_2escm",(void*)f_20619}, {"f_20648:library_2escm",(void*)f_20648}, {"f_20646:library_2escm",(void*)f_20646}, {"f_7990:library_2escm",(void*)f_7990}, {"f_7993:library_2escm",(void*)f_7993}, {"f_7996:library_2escm",(void*)f_7996}, {"f_7999:library_2escm",(void*)f_7999}, {"f_11528:library_2escm",(void*)f_11528}, {"f_7981:library_2escm",(void*)f_7981}, {"f_7984:library_2escm",(void*)f_7984}, {"f_7987:library_2escm",(void*)f_7987}, {"f_16880:library_2escm",(void*)f_16880}, {"f_13506:library_2escm",(void*)f_13506}, {"f_23510:library_2escm",(void*)f_23510}, {"f_13508:library_2escm",(void*)f_13508}, {"f_20654:library_2escm",(void*)f_20654}, {"f_20659:library_2escm",(void*)f_20659}, {"f_23574:library_2escm",(void*)f_23574}, {"f_13529:library_2escm",(void*)f_13529}, {"f_15015:library_2escm",(void*)f_15015}, {"f_13516:library_2escm",(void*)f_13516}, {"f_23581:library_2escm",(void*)f_23581}, {"f_13519:library_2escm",(void*)f_13519}, {"f_15004:library_2escm",(void*)f_15004}, {"f_13541:library_2escm",(void*)f_13541}, {"f_18445:library_2escm",(void*)f_18445}, {"f_13544:library_2escm",(void*)f_13544}, {"f_13547:library_2escm",(void*)f_13547}, {"f_20694:library_2escm",(void*)f_20694}, {"f_15075:library_2escm",(void*)f_15075}, {"f_15071:library_2escm",(void*)f_15071}, {"f_14498:library_2escm",(void*)f_14498}, {"f_18458:library_2escm",(void*)f_18458}, {"f_13534:library_2escm",(void*)f_13534}, {"f_13538:library_2escm",(void*)f_13538}, {"f_15064:library_2escm",(void*)f_15064}, {"f_15079:library_2escm",(void*)f_15079}, {"f_13567:library_2escm",(void*)f_13567}, {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| for-each 8 S| ##sys#map 1 S| ##sys#for-each 4 S| map 5 o|eliminated procedure checks: 3065 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|specializations: o| 1 (memq * list) o| 1 (cddr (pair * pair)) o| 1 (zero? fixnum) o| 1 (string-append string string) o| 1 (char>? char char) o| 13 (char=? char char) o| 3 (string-ref string fixnum) o| 3 (char<=? char char) o| 3 (char>=? char char) o| 26 (eqv? (not float) *) o| 5 (##sys#check-input-port * * *) o| 11 (##sys#check-output-port * * *) o| 23 (cdr pair) o| 10 (##sys#check-list (or pair list) *) o| 1 (= fixnum float) o| 138 (eqv? * (not float)) o| 1 (fp* float float) o| 1 (acos float) o| 3 (length list) o| 30 (car pair) (o e)|safe calls: 2162 (o e)|dropped branches: 3 (o e)|assignments to immediate values: 23 o|dropping redundant toplevel assignment: max o|dropping redundant toplevel assignment: min o|dropping redundant toplevel assignment: ##sys#symbol->string o|dropping redundant toplevel assignment: ##sys#symbol->qualified-string o|dropping redundant toplevel assignment: ##sys#qualified-symbol-prefix o|dropping redundant toplevel assignment: char-ci=? o|dropping redundant toplevel assignment: char-ci>? o|dropping redundant toplevel assignment: char-ci<? o|dropping redundant toplevel assignment: char-ci>=? o|dropping redundant toplevel assignment: char-ci<=? o|dropping redundant toplevel assignment: for-each o|dropping redundant toplevel assignment: map o|dropping redundant toplevel assignment: open-input-file o|dropping redundant toplevel assignment: open-output-file o|dropping redundant toplevel assignment: close-input-port o|dropping redundant toplevel assignment: close-output-port o|dropping redundant toplevel assignment: ##sys#update-errno o|dropping redundant toplevel assignment: errno o|safe globals: (##sys#warnings-enabled error quit ##sys#quit-hook reset exit maximal-string-length constant66 constant63) o|Removed `not' forms: 31 o|removed side-effect free assignment to unused variable: constant63 o|removed side-effect free assignment to unused variable: constant66 o|inlining procedure: k6844 o|inlining procedure: k6844 o|inlining procedure: k6859 o|inlining procedure: k6859 o|inlining procedure: k6879 o|inlining procedure: k6879 o|inlining procedure: k6888 o|inlining procedure: k6888 o|inlining procedure: k6900 o|inlining procedure: k6900 o|propagated global variable: r690125691 ##sys#warnings-enabled o|inlining procedure: k6954 o|inlining procedure: k6954 o|inlining procedure: k7055 o|inlining procedure: k7055 o|inlining procedure: k7085 o|inlining procedure: k7085 o|inlining procedure: k7096 o|inlining procedure: k7096 o|inlining procedure: k7108 o|inlining procedure: k7108 o|inlining procedure: k7119 o|inlining procedure: k7119 o|inlining procedure: k7130 o|inlining procedure: k7130 o|inlining procedure: k7141 o|inlining procedure: k7141 o|inlining procedure: k7152 o|inlining procedure: k7152 o|inlining procedure: k7163 o|inlining procedure: k7163 o|inlining procedure: k7174 o|inlining procedure: k7174 o|inlining procedure: k7185 o|inlining procedure: k7185 o|inlining procedure: k7196 o|inlining procedure: k7196 o|inlining procedure: k7207 o|inlining procedure: k7207 o|inlining procedure: k7218 o|inlining procedure: k7218 o|inlining procedure: k7229 o|inlining procedure: k7229 o|inlining procedure: k7237 o|inlining procedure: k7237 o|inlining procedure: k7250 o|inlining procedure: k7250 o|inlining procedure: k7261 o|inlining procedure: k7261 o|inlining procedure: k7277 o|inlining procedure: k7277 o|inlining procedure: k7287 o|inlining procedure: k7287 o|inlining procedure: k7297 o|inlining procedure: k7297 o|inlining procedure: k7308 o|inlining procedure: k7323 o|inlining procedure: k7323 o|inlining procedure: k7341 o|contracted procedure: k7356 o|inlining procedure: k7362 o|inlining procedure: k7362 o|contracted procedure: k7387 o|inlining procedure: k7390 o|inlining procedure: k7390 o|inlining procedure: k7341 o|inlining procedure: k7308 o|inlining procedure: k7438 o|inlining procedure: k7438 o|inlining procedure: k7773 o|inlining procedure: k7773 o|inlining procedure: k7826 o|inlining procedure: k7826 o|inlining procedure: k7838 o|inlining procedure: k7838 o|inlining procedure: k7857 o|inlining procedure: k7857 o|inlining procedure: k7911 o|inlining procedure: k7911 o|inlining procedure: k7950 o|inlining procedure: k7950 o|contracted procedure: "(library.scm:514) g489490" o|contracted procedure: "(library.scm:520) g496497" o|inlining procedure: k8072 o|inlining procedure: k8072 o|contracted procedure: k8097 o|inlining procedure: k8094 o|inlining procedure: k8115 o|inlining procedure: k8115 o|inlining procedure: k8094 o|inlining procedure: k8146 o|inlining procedure: k8166 o|inlining procedure: k8166 o|inlining procedure: k8146 o|inlining procedure: k8233 o|inlining procedure: k8233 o|inlining procedure: k8249 o|inlining procedure: k8249 o|inlining procedure: k8316 o|inlining procedure: k8316 o|inlining procedure: k8340 o|inlining procedure: k8340 o|inlining procedure: k8361 o|inlining procedure: k8361 o|inlining procedure: k8382 o|inlining procedure: k8382 o|inlining procedure: k8426 o|inlining procedure: k8426 o|inlining procedure: k8450 o|inlining procedure: k8450 o|inlining procedure: k8471 o|inlining procedure: k8471 o|inlining procedure: k8492 o|inlining procedure: k8492 o|inlining procedure: k8529 o|inlining procedure: k8529 o|inlining procedure: k8577 o|inlining procedure: k8577 o|contracted procedure: "(library.scm:793) g808809" o|inlining procedure: k8709 o|inlining procedure: k8709 o|contracted procedure: "(library.scm:797) g819820" o|inlining procedure: k8733 o|inlining procedure: k8733 o|contracted procedure: "(library.scm:801) g830831" o|inlining procedure: k8757 o|inlining procedure: k8757 o|contracted procedure: "(library.scm:805) g841842" o|inlining procedure: k8781 o|inlining procedure: k8781 o|contracted procedure: "(library.scm:809) g852853" o|inlining procedure: k8805 o|inlining procedure: k8805 o|contracted procedure: "(library.scm:813) g863864" o|inlining procedure: k8829 o|inlining procedure: k8829 o|contracted procedure: "(library.scm:817) g874875" o|inlining procedure: k8853 o|inlining procedure: k8853 o|contracted procedure: "(library.scm:821) g885886" o|inlining procedure: k8877 o|inlining procedure: k8877 o|contracted procedure: "(library.scm:825) g896897" o|inlining procedure: k8901 o|inlining procedure: k8901 o|contracted procedure: "(library.scm:829) g907908" o|inlining procedure: k8925 o|inlining procedure: k8925 o|contracted procedure: "(library.scm:833) g917918" o|inlining procedure: k8949 o|inlining procedure: k8949 o|contracted procedure: "(library.scm:837) g926927" o|inlining procedure: k8967 o|inlining procedure: k8967 o|contracted procedure: "(library.scm:841) g937938" o|inlining procedure: k8991 o|inlining procedure: k8991 o|contracted procedure: "(library.scm:845) g947948" o|inlining procedure: k9015 o|inlining procedure: k9015 o|contracted procedure: "(library.scm:849) g955956" o|inlining procedure: k9033 o|inlining procedure: k9033 o|contracted procedure: "(library.scm:853) g963964" o|inlining procedure: k9051 o|inlining procedure: k9051 o|contracted procedure: "(library.scm:857) g971972" o|inlining procedure: k9069 o|inlining procedure: k9069 o|contracted procedure: "(library.scm:865) g982983" o|inlining procedure: k9090 o|inlining procedure: k9090 o|contracted procedure: "(library.scm:869) g990991" o|inlining procedure: k9108 o|inlining procedure: k9108 o|contracted procedure: "(library.scm:873) g998999" o|inlining procedure: k9126 o|inlining procedure: k9126 o|contracted procedure: "(library.scm:877) g10061007" o|inlining procedure: k9144 o|inlining procedure: k9144 o|contracted procedure: "(library.scm:881) g10141015" o|inlining procedure: k9162 o|inlining procedure: k9162 o|contracted procedure: "(library.scm:885) g10221023" o|inlining procedure: k9180 o|inlining procedure: k9180 o|contracted procedure: "(library.scm:889) g10311032" o|inlining procedure: k9198 o|inlining procedure: k9198 o|contracted procedure: "(library.scm:893) g10411042" o|inlining procedure: k9222 o|inlining procedure: k9222 o|contracted procedure: "(library.scm:897) g10501051" o|inlining procedure: k9240 o|inlining procedure: k9240 o|contracted procedure: "(library.scm:901) g10601061" o|inlining procedure: k9264 o|inlining procedure: k9264 o|contracted procedure: "(library.scm:905) g10681069" o|inlining procedure: k9282 o|inlining procedure: k9282 o|contracted procedure: "(library.scm:909) g10761077" o|inlining procedure: k9300 o|inlining procedure: k9300 o|contracted procedure: "(library.scm:913) g10841085" o|inlining procedure: k9318 o|inlining procedure: k9318 o|substituted constant variable: a9412 o|inlining procedure: k9404 o|substituted constant variable: a9410 o|inlining procedure: k9404 o|inlining procedure: k9431 o|inlining procedure: k9431 o|inlining procedure: k9458 o|inlining procedure: k9458 o|inlining procedure: k9483 o|inlining procedure: k9483 o|inlining procedure: k9501 o|inlining procedure: k9501 o|inlining procedure: k9507 o|inlining procedure: k9507 o|inlining procedure: k9527 o|inlining procedure: k9527 o|inlining procedure: k9539 o|inlining procedure: k9539 o|inlining procedure: k9551 o|inlining procedure: k9551 o|inlining procedure: k9563 o|inlining procedure: k9563 o|inlining procedure: k9586 o|inlining procedure: k9586 o|inlining procedure: k9633 o|inlining procedure: k9642 o|inlining procedure: k9642 o|inlining procedure: k9633 o|inlining procedure: k9716 o|inlining procedure: k9716 o|inlining procedure: k9734 o|inlining procedure: k9734 o|inlining procedure: k9753 o|inlining procedure: k9753 o|inlining procedure: k9774 o|inlining procedure: k9774 o|inlining procedure: k9824 o|inlining procedure: k9824 o|inlining procedure: k9845 o|inlining procedure: k9845 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|inlining procedure: k9949 o|inlining procedure: k9949 o|inlining procedure: k9973 o|inlining procedure: k9994 o|inlining procedure: k9994 o|inlining procedure: k9973 o|inlining procedure: k10038 o|inlining procedure: k10038 o|inlining procedure: k10047 o|inlining procedure: k10047 o|inlining procedure: k10059 o|inlining procedure: k10059 o|contracted procedure: k10083 o|contracted procedure: k10089 o|inlining procedure: k10086 o|contracted procedure: k10095 o|inlining procedure: k10098 o|inlining procedure: k10104 o|inlining procedure: k10104 o|inlining procedure: k10098 o|inlining procedure: k10113 o|inlining procedure: k10113 o|inlining procedure: k10132 o|inlining procedure: k10132 o|inlining procedure: k10086 o|inlining procedure: k10175 o|inlining procedure: k10175 o|inlining procedure: k10187 o|inlining procedure: k10187 o|inlining procedure: k10208 o|inlining procedure: k10208 o|inlining procedure: k10226 o|inlining procedure: k10226 o|inlining procedure: k10252 o|inlining procedure: k10252 o|inlining procedure: k10264 o|inlining procedure: k10264 o|inlining procedure: k10288 o|inlining procedure: k10288 o|inlining procedure: k10369 o|inlining procedure: k10369 o|inlining procedure: "(library.scm:1276) err1421" o|inlining procedure: k10375 o|inlining procedure: k10375 o|inlining procedure: "(library.scm:1275) err1421" o|inlining procedure: k10415 o|contracted procedure: "(library.scm:1285) g14441453" o|inlining procedure: k10415 o|inlining procedure: k10449 o|inlining procedure: k10449 o|folded constant expression: (integer->char (quote 0)) o|inlining procedure: k10490 o|inlining procedure: k10490 o|inlining procedure: k10514 o|inlining procedure: k10514 o|inlining procedure: k10551 o|inlining procedure: k10551 o|inlining procedure: k10599 o|inlining procedure: k10599 o|inlining procedure: k10638 o|inlining procedure: k10638 o|contracted procedure: k10660 o|inlining procedure: k10657 o|inlining procedure: k10678 o|inlining procedure: k10678 o|inlining procedure: k10657 o|inlining procedure: k10718 o|inlining procedure: k10718 o|inlining procedure: k10757 o|inlining procedure: k10757 o|inlining procedure: k10803 o|inlining procedure: k10803 o|inlining procedure: k10875 o|inlining procedure: k10875 o|inlining procedure: k10949 o|inlining procedure: k10949 o|inlining procedure: k11125 o|inlining procedure: k11125 o|inlining procedure: k11156 o|inlining procedure: k11156 o|inlining procedure: k11186 o|inlining procedure: k11186 o|inlining procedure: k11256 o|inlining procedure: k11256 o|inlining procedure: k11333 o|inlining procedure: k11333 o|inlining procedure: k11371 o|inlining procedure: k11371 o|inlining procedure: k11407 o|inlining procedure: k11407 o|inlining procedure: k11425 o|inlining procedure: k11425 o|inlining procedure: k11451 o|inlining procedure: k11451 o|contracted procedure: k11472 o|inlining procedure: k11469 o|inlining procedure: k11469 o|contracted procedure: k11478 o|inlining procedure: k11505 o|inlining procedure: k11520 o|inlining procedure: k11520 o|inlining procedure: k11505 o|inlining procedure: k11553 o|inlining procedure: k11553 o|inlining procedure: k11591 o|inlining procedure: k11609 o|inlining procedure: k11609 o|inlining procedure: k11591 o|inlining procedure: k11653 o|inlining procedure: k11653 o|inlining procedure: k11738 o|inlining procedure: k11738 o|inlining procedure: k11772 o|inlining procedure: k11772 o|propagated global variable: winds1909 ##sys#dynamic-winds o|inlining procedure: k11850 o|inlining procedure: k11850 o|inlining procedure: k11895 o|inlining procedure: k11895 o|contracted procedure: "(library.scm:1729) g19291930" o|inlining procedure: k11900 o|inlining procedure: k11900 o|inlining procedure: k11912 o|inlining procedure: k11912 o|contracted procedure: "(library.scm:1733) g19361937" o|inlining procedure: k11917 o|inlining procedure: k11917 o|inlining procedure: k11989 o|inlining procedure: k11989 o|inlining procedure: k12000 o|inlining procedure: k12000 o|inlining procedure: k12011 o|inlining procedure: k12011 o|inlining procedure: k12022 o|inlining procedure: k12022 o|inlining procedure: k12033 o|propagated global variable: r1203426060 ##sys#standard-input o|removed unused formal parameters: (convert?2060) o|inlining procedure: k12048 o|inlining procedure: k12048 o|removed unused parameter to known procedure: convert?2060 "(library.scm:1917) body20512059" o|inlining procedure: k12033 o|inlining procedure: k12075 o|inlining procedure: k12075 o|removed unused parameter to known procedure: convert?2060 "(library.scm:1917) body20512059" o|inlining procedure: k12094 o|propagated global variable: r1209526066 ##sys#standard-output o|removed unused formal parameters: (convert?2085) o|inlining procedure: k12109 o|inlining procedure: k12109 o|removed unused parameter to known procedure: convert?2085 "(library.scm:1926) body20762084" o|inlining procedure: k12094 o|inlining procedure: k12136 o|inlining procedure: k12136 o|removed unused parameter to known procedure: convert?2085 "(library.scm:1926) body20762084" o|inlining procedure: k12155 o|propagated global variable: r1215626072 ##sys#standard-error o|removed unused formal parameters: (convert?2110) o|inlining procedure: k12170 o|inlining procedure: k12170 o|removed unused parameter to known procedure: convert?2110 "(library.scm:1935) body21012109" o|inlining procedure: k12155 o|inlining procedure: k12197 o|inlining procedure: k12197 o|removed unused parameter to known procedure: convert?2110 "(library.scm:1935) body21012109" o|contracted procedure: k12219 o|inlining procedure: k12216 o|inlining procedure: k12216 o|inlining procedure: k12251 o|inlining procedure: k12263 o|inlining procedure: k12263 o|inlining procedure: k12251 o|inlining procedure: k12297 o|inlining procedure: k12297 o|inlining procedure: k12324 o|inlining procedure: k12324 o|inlining procedure: k12347 o|inlining procedure: k12347 o|inlining procedure: k12360 o|inlining procedure: k12360 o|substituted constant variable: a12371 o|substituted constant variable: a12373 o|substituted constant variable: a12375 o|inlining procedure: k12382 o|inlining procedure: k12382 o|inlining procedure: k12548 o|inlining procedure: k12548 o|substituted constant variable: a12564 o|substituted constant variable: a12566 o|inlining procedure: k12573 o|inlining procedure: k12573 o|inlining procedure: k12589 o|inlining procedure: k12589 o|substituted constant variable: a12619 o|substituted constant variable: a12620 o|inlining procedure: k12663 o|inlining procedure: k12663 o|inlining procedure: k12681 o|inlining procedure: k12681 o|inlining procedure: k12713 o|inlining procedure: k12713 o|inlining procedure: k12747 o|inlining procedure: k12747 o|inlining procedure: k12792 o|inlining procedure: k12807 o|inlining procedure: k12807 o|inlining procedure: k12792 o|inlining procedure: k12866 o|inlining procedure: k12866 o|contracted procedure: k12907 o|inlining procedure: k12904 o|inlining procedure: k12904 o|inlining procedure: k12938 o|inlining procedure: k12938 o|inlining procedure: k12979 o|inlining procedure: k12979 o|inlining procedure: k12998 o|inlining procedure: k12998 o|inlining procedure: k13126 o|inlining procedure: k13126 o|inlining procedure: k13165 o|inlining procedure: k13204 o|inlining procedure: k13204 o|inlining procedure: k13165 o|inlining procedure: k13232 o|inlining procedure: k13232 o|substituted constant variable: a13283 o|substituted constant variable: a13284 o|substituted constant variable: a13308 o|substituted constant variable: a13309 o|inlining procedure: k13325 o|inlining procedure: k13325 o|contracted procedure: k13348 o|substituted constant variable: a13383 o|substituted constant variable: a13384 o|inlining procedure: k13391 o|inlining procedure: k13391 o|substituted constant variable: a13420 o|substituted constant variable: a13421 o|substituted constant variable: a13438 o|substituted constant variable: a13439 o|inlining procedure: k13494 o|inlining procedure: k13494 o|inlining procedure: k13517 o|inlining procedure: k13517 o|inlining procedure: k13560 o|inlining procedure: k13560 o|inlining procedure: k13579 o|inlining procedure: k13579 o|contracted procedure: k13592 o|inlining procedure: k13618 o|inlining procedure: k13618 o|inlining procedure: k13643 o|inlining procedure: k13643 o|inlining procedure: k13662 o|inlining procedure: k13662 o|inlining procedure: k13687 o|inlining procedure: k13687 o|inlining procedure: k13753 o|inlining procedure: k13753 o|inlining procedure: k13788 o|inlining procedure: k13788 o|inlining procedure: k13804 o|inlining procedure: k13804 o|inlining procedure: k13838 o|inlining procedure: k13838 o|inlining procedure: k13872 o|folded constant expression: (integer->char (quote 7)) o|inlining procedure: k13872 o|folded constant expression: (integer->char (quote 11)) o|inlining procedure: k13914 o|folded constant expression: (integer->char (quote 12)) o|inlining procedure: k13914 o|inlining procedure: k13959 o|inlining procedure: k13974 o|inlining procedure: k13974 o|substituted constant variable: a14012 o|substituted constant variable: a14017 o|inlining procedure: k13959 o|inlining procedure: k14042 o|inlining procedure: k14042 o|inlining procedure: k14062 o|inlining procedure: k14062 o|inlining procedure: k14097 o|inlining procedure: k14097 o|inlining procedure: k14119 o|inlining procedure: k14119 o|inlining procedure: k14144 o|inlining procedure: k14144 o|substituted constant variable: a14173 o|substituted constant variable: a14175 o|substituted constant variable: a14180 o|substituted constant variable: a14182 o|inlining procedure: k14183 o|inlining procedure: k14183 o|substituted constant variable: a14250 o|inlining procedure: k14246 o|substituted constant variable: a14252 o|inlining procedure: k14246 o|inlining procedure: k14256 o|inlining procedure: k14256 o|substituted constant variable: a14269 o|substituted constant variable: a14271 o|substituted constant variable: a14273 o|substituted constant variable: a14275 o|inlining procedure: k14279 o|inlining procedure: k14279 o|substituted constant variable: a14292 o|substituted constant variable: a14294 o|substituted constant variable: a14296 o|substituted constant variable: a14298 o|substituted constant variable: a14300 o|substituted constant variable: a14302 o|substituted constant variable: a14304 o|substituted constant variable: a14306 o|substituted constant variable: a14308 o|substituted constant variable: a14310 o|substituted constant variable: a14312 o|substituted constant variable: a14314 o|substituted constant variable: a14316 o|substituted constant variable: a14318 o|inlining procedure: k14319 o|inlining procedure: k14319 o|inlining procedure: k14351 o|inlining procedure: k14351 o|inlining procedure: k14342 o|inlining procedure: k14384 o|inlining procedure: k14384 o|inlining procedure: k14415 o|inlining procedure: k14415 o|inlining procedure: k14434 o|inlining procedure: k14467 o|inlining procedure: k14467 o|inlining procedure: k14509 o|inlining procedure: k14509 o|inlining procedure: k14525 o|inlining procedure: k14525 o|inlining procedure: "(library.scm:2606) build-symbol2662" o|inlining procedure: k14555 o|inlining procedure: k14555 o|inlining procedure: k14567 o|inlining procedure: k14567 o|inlining procedure: k14434 o|inlining procedure: k14342 o|inlining procedure: k14607 o|inlining procedure: k14607 o|inlining procedure: k14629 o|inlining procedure: k14629 o|inlining procedure: k14651 o|inlining procedure: k14651 o|inlining procedure: k14666 o|inlining procedure: k14666 o|contracted procedure: k14681 o|inlining procedure: k14678 o|inlining procedure: k14678 o|inlining procedure: k14688 o|inlining procedure: k14688 o|inlining procedure: "(library.scm:2650) build-symbol2662" o|inlining procedure: k14698 o|inlining procedure: k14698 o|substituted constant variable: a14706 o|substituted constant variable: a14707 o|inlining procedure: k14715 o|inlining procedure: k14736 o|inlining procedure: k14736 o|substituted constant variable: a14749 o|inlining procedure: k14715 o|inlining procedure: k14766 o|inlining procedure: k14787 o|inlining procedure: k14787 o|substituted constant variable: a14800 o|substituted constant variable: a14808 o|inlining procedure: k14804 o|inlining procedure: k14804 o|substituted constant variable: a14816 o|inlining procedure: k14766 o|inlining procedure: k14843 o|inlining procedure: k14843 o|inlining procedure: k14882 o|inlining procedure: k14882 o|substituted constant variable: a14889 o|inlining procedure: k14894 o|inlining procedure: k14894 o|inlining procedure: k14913 o|inlining procedure: k14913 o|inlining procedure: "(library.scm:2703) build-symbol2662" o|inlining procedure: k14983 o|inlining procedure: k15017 o|inlining procedure: k15017 o|inlining procedure: k15027 o|inlining procedure: k15027 o|inlining procedure: k14983 o|inlining procedure: k15056 o|inlining procedure: k15056 o|inlining procedure: k15100 o|inlining procedure: k15100 o|inlining procedure: k15138 o|inlining procedure: k15138 o|inlining procedure: k15162 o|inlining procedure: k15162 o|substituted constant variable: a15169 o|substituted constant variable: a15171 o|substituted constant variable: a15173 o|substituted constant variable: a15175 o|inlining procedure: k15179 o|inlining procedure: k15179 o|inlining procedure: k15197 o|contracted procedure: "(library.scm:2757) g29572958" o|inlining procedure: k15223 o|inlining procedure: k15223 o|inlining procedure: k15242 o|inlining procedure: k15263 o|inlining procedure: k15279 o|inlining procedure: k15279 o|inlining procedure: k15263 o|inlining procedure: k15242 o|substituted constant variable: a15378 o|inlining procedure: k15380 o|inlining procedure: k15380 o|substituted constant variable: a15383 o|inlining procedure: k15197 o|inlining procedure: k15406 o|contracted procedure: k15421 o|inlining procedure: k15418 o|inlining procedure: k15418 o|inlining procedure: k15406 o|inlining procedure: k15452 o|inlining procedure: k15452 o|inlining procedure: k15465 o|inlining procedure: k15465 o|substituted constant variable: a15478 o|substituted constant variable: a15480 o|inlining procedure: k15502 o|inlining procedure: k15502 o|folded constant expression: (char->integer (quote #\#)) o|inlining procedure: k15599 o|inlining procedure: k15614 o|inlining procedure: k15614 o|inlining procedure: k15599 o|inlining procedure: k15642 o|inlining procedure: k15642 o|inlining procedure: k15667 o|inlining procedure: k15667 o|inlining procedure: k15694 o|inlining procedure: k15715 o|inlining procedure: k15742 o|inlining procedure: k15757 o|inlining procedure: k15757 o|inlining procedure: k15742 o|inlining procedure: k15793 o|inlining procedure: k15793 o|inlining procedure: k15715 o|inlining procedure: k15828 o|inlining procedure: k15828 o|inlining procedure: k15843 o|inlining procedure: k15843 o|inlining procedure: k15867 o|inlining procedure: k15867 o|inlining procedure: k15891 o|inlining procedure: k15891 o|inlining procedure: k15915 o|inlining procedure: k15955 o|inlining procedure: k15955 o|inlining procedure: k15915 o|inlining procedure: k15979 o|inlining procedure: k15979 o|inlining procedure: k16006 o|inlining procedure: k16006 o|inlining procedure: k16033 o|inlining procedure: k16033 o|inlining procedure: k16061 o|inlining procedure: k16061 o|inlining procedure: k16080 o|inlining procedure: k16109 o|inlining procedure: k16109 o|inlining procedure: k16080 o|inlining procedure: "(library.scm:2944) build-symbol2662" o|inlining procedure: k16157 o|inlining procedure: k16157 o|inlining procedure: k16192 o|inlining procedure: k16192 o|inlining procedure: k16213 o|inlining procedure: "(library.scm:2960) build-symbol2662" o|inlining procedure: k16213 o|inlining procedure: k16251 o|inlining procedure: k16251 o|substituted constant variable: a16254 o|inlining procedure: k16268 o|inlining procedure: k16268 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|substituted constant variable: a16297 o|substituted constant variable: a16299 o|substituted constant variable: a16301 o|substituted constant variable: a16303 o|substituted constant variable: a16305 o|substituted constant variable: a16307 o|substituted constant variable: a16309 o|substituted constant variable: a16311 o|substituted constant variable: a16313 o|substituted constant variable: a16315 o|inlining procedure: k15694 o|inlining procedure: k16332 o|inlining procedure: k16332 o|inlining procedure: k16356 o|inlining procedure: k16356 o|inlining procedure: k16377 o|inlining procedure: k16377 o|inlining procedure: k16392 o|inlining procedure: k16392 o|inlining procedure: k16410 o|inlining procedure: k16410 o|substituted constant variable: a16441 o|substituted constant variable: a16443 o|substituted constant variable: a16445 o|substituted constant variable: a16447 o|substituted constant variable: a16452 o|substituted constant variable: a16454 o|substituted constant variable: a16456 o|substituted constant variable: a16458 o|substituted constant variable: a16460 o|substituted constant variable: a16462 o|substituted constant variable: a16464 o|substituted constant variable: a16466 o|substituted constant variable: a16468 o|substituted constant variable: a16470 o|contracted procedure: k16471 o|inlining procedure: k16474 o|inlining procedure: k16474 o|contracted procedure: k16496 o|inlining procedure: k16493 o|inlining procedure: k16493 o|contracted procedure: k16499 o|inlining procedure: k16511 o|inlining procedure: k16511 o|inlining procedure: k16553 o|inlining procedure: k16553 o|inlining procedure: k16673 o|inlining procedure: k16673 o|inlining procedure: k16685 o|inlining procedure: k16697 o|inlining procedure: k16697 o|inlining procedure: k16685 o|inlining procedure: k16753 o|inlining procedure: k16753 o|substituted constant variable: a16783 o|substituted constant variable: a16785 o|substituted constant variable: a16787 o|substituted constant variable: a16789 o|inlining procedure: k16799 o|inlining procedure: k16799 o|inlining procedure: k16818 o|inlining procedure: k16818 o|inlining procedure: k16832 o|inlining procedure: k16832 o|inlining procedure: k16895 o|inlining procedure: k16895 o|substituted constant variable: a16926 o|substituted constant variable: a16928 o|substituted constant variable: a16933 o|substituted constant variable: a16935 o|inlining procedure: k16943 o|inlining procedure: k16943 o|inlining procedure: k16965 o|inlining procedure: k16965 o|inlining procedure: k17062 o|inlining procedure: k17062 o|substituted constant variable: a17106 o|substituted constant variable: a17107 o|substituted constant variable: a17124 o|substituted constant variable: a17125 o|inlining procedure: k17138 o|propagated global variable: r1713926435 ##sys#standard-output o|inlining procedure: k17138 o|substituted constant variable: a17157 o|substituted constant variable: a17158 o|substituted constant variable: a17175 o|substituted constant variable: a17176 o|propagated global variable: a17189 ##sys#standard-output o|substituted constant variable: a17190 o|substituted constant variable: a17191 o|contracted procedure: "(library.scm:3169) g33443345" o|inlining procedure: k17208 o|contracted procedure: "(library.scm:3169) g33503357" o|propagated global variable: g33653366 ##sys#print o|inlining procedure: k17208 o|propagated global variable: a17240 ##sys#standard-output o|substituted constant variable: a17241 o|substituted constant variable: a17242 o|contracted procedure: "(library.scm:3175) g33773378" o|inlining procedure: k17259 o|contracted procedure: "(library.scm:3169) g33833390" o|propagated global variable: g33983399 ##sys#print o|inlining procedure: k17259 o|substituted constant variable: a17304 o|substituted constant variable: a17305 o|inlining procedure: k17318 o|inlining procedure: k17318 o|inlining procedure: k17409 o|inlining procedure: k17409 o|inlining procedure: k17441 o|inlining procedure: k17441 o|substituted constant variable: special-characters3420 o|inlining procedure: k17453 o|inlining procedure: k17453 o|inlining procedure: k17486 o|inlining procedure: k17486 o|substituted constant variable: a17559 o|inlining procedure: k17566 o|inlining procedure: k17566 o|inlining procedure: k17578 o|inlining procedure: k17578 o|inlining procedure: k17593 o|inlining procedure: k17593 o|inlining procedure: k17612 o|inlining procedure: k17634 o|inlining procedure: k17634 o|inlining procedure: k17653 o|inlining procedure: k17653 o|inlining procedure: k17673 o|inlining procedure: k17673 o|inlining procedure: k17612 o|contracted procedure: k17694 o|inlining procedure: k17691 o|inlining procedure: k17691 o|inlining procedure: k17716 o|inlining procedure: k17716 o|inlining procedure: k17754 o|inlining procedure: k17754 o|inlining procedure: k17772 o|inlining procedure: k17772 o|inlining procedure: k17787 o|inlining procedure: k17787 o|inlining procedure: k17796 o|inlining procedure: k17823 o|inlining procedure: k17823 o|inlining procedure: k17796 o|inlining procedure: k17851 o|inlining procedure: k17851 o|contracted procedure: k17873 o|inlining procedure: k17870 o|inlining procedure: k17885 o|inlining procedure: k17894 o|inlining procedure: k17894 o|substituted constant variable: a17925 o|substituted constant variable: a17927 o|inlining procedure: k17928 o|inlining procedure: k17928 o|inlining procedure: k17885 o|inlining procedure: k17965 o|inlining procedure: k17965 o|inlining procedure: k17978 o|inlining procedure: k17991 o|inlining procedure: k17991 o|inlining procedure: k18020 o|inlining procedure: k18020 o|inlining procedure: k18041 o|inlining procedure: k18041 o|inlining procedure: k18059 o|inlining procedure: k18059 o|inlining procedure: k18077 o|inlining procedure: k18077 o|inlining procedure: k18095 o|inlining procedure: k18095 o|substituted constant variable: a18124 o|substituted constant variable: a18126 o|substituted constant variable: a18128 o|substituted constant variable: a18130 o|substituted constant variable: a18132 o|substituted constant variable: a18134 o|substituted constant variable: a18136 o|substituted constant variable: a18145 o|substituted constant variable: a18147 o|inlining procedure: k17978 o|inlining procedure: k18151 o|inlining procedure: k18170 o|contracted procedure: k18185 o|inlining procedure: k18170 o|inlining procedure: k18151 o|inlining procedure: k18242 o|inlining procedure: k18242 o|inlining procedure: k18274 o|inlining procedure: k18274 o|inlining procedure: k18290 o|inlining procedure: k18290 o|inlining procedure: k18312 o|inlining procedure: k18312 o|inlining procedure: k18340 o|inlining procedure: k18340 o|inlining procedure: k18365 o|inlining procedure: k18365 o|inlining procedure: k17870 o|inlining procedure: k18413 o|inlining procedure: k18413 o|inlining procedure: k18430 o|inlining procedure: k18430 o|inlining procedure: k18453 o|inlining procedure: k18483 o|inlining procedure: k18483 o|inlining procedure: k18453 o|inlining procedure: k18571 o|inlining procedure: k18571 o|substituted constant variable: a18588 o|substituted constant variable: a18590 o|substituted constant variable: saved371837193731 o|inlining procedure: k18689 o|inlining procedure: k18689 o|inlining procedure: k18716 o|inlining procedure: k18716 o|inlining procedure: k18743 o|inlining procedure: k18743 o|inlining procedure: k18785 o|inlining procedure: k18785 o|inlining procedure: k18852 o|inlining procedure: k18873 o|inlining procedure: k18873 o|inlining procedure: k18852 o|inlining procedure: k18899 o|inlining procedure: k18899 o|inlining procedure: k18937 o|inlining procedure: k18937 o|inlining procedure: k18968 o|inlining procedure: k18968 o|inlining procedure: k19005 o|inlining procedure: k19005 o|substituted constant variable: a19065 o|substituted constant variable: a19066 o|contracted procedure: k19070 o|inlining procedure: k19067 o|inlining procedure: k19067 o|inlining procedure: k19118 o|inlining procedure: k19118 o|inlining procedure: k19141 o|inlining procedure: k19167 o|inlining procedure: k19167 o|inlining procedure: k19141 o|inlining procedure: k19290 o|contracted procedure: "(library.scm:3735) get-config3970" o|inlining procedure: k19257 o|inlining procedure: k19257 o|substituted constant variable: a19270 o|inlining procedure: k19290 o|propagated global variable: r1929126574 ##sys#build-version o|removed side-effect free assignment to unused variable: prefix3985 o|inlining procedure: k19411 o|inlining procedure: k19411 o|inlining procedure: k19426 o|inlining procedure: k19426 o|contracted procedure: "(library.scm:3758) err3984" o|inlining procedure: k19445 o|inlining procedure: k19445 o|inlining procedure: k19520 o|contracted procedure: "(library.scm:3791) g40084015" o|inlining procedure: k19504 o|inlining procedure: k19504 o|inlining procedure: k19520 o|inlining procedure: k19556 o|inlining procedure: k19556 o|inlining procedure: k19587 o|inlining procedure: k19587 o|inlining procedure: k19633 o|inlining procedure: k19633 o|inlining procedure: k19691 o|inlining procedure: k19691 o|substituted constant variable: c4095 o|contracted procedure: "(library.scm:3843) extract4072" o|substituted constant variable: c4095 o|inlining procedure: k19758 o|inlining procedure: k19758 o|substituted constant variable: c4095 o|substituted constant variable: c4095 o|inlining procedure: k19837 o|inlining procedure: k19837 o|inlining procedure: k19862 o|inlining procedure: k19862 o|inlining procedure: k19868 o|inlining procedure: k19868 o|inlining procedure: k19805 o|inlining procedure: k19887 o|inlining procedure: k19887 o|inlining procedure: k19805 o|substituted constant variable: a19935 o|substituted constant variable: a19936 o|inlining procedure: k20007 o|inlining procedure: "(library.scm:3894) break4170" o|inlining procedure: k20007 o|inlining procedure: k20064 o|inlining procedure: k20064 o|inlining procedure: k20083 o|inlining procedure: k20083 o|inlining procedure: k20106 o|contracted procedure: "(library.scm:3981) g42734280" o|inlining procedure: k20106 o|inlining procedure: k20151 o|inlining procedure: k20151 o|inlining procedure: k20205 o|contracted procedure: "(library.scm:4014) g43204327" o|inlining procedure: k20205 o|inlining procedure: k20243 o|inlining procedure: k20243 o|inlining procedure: k20286 o|inlining procedure: k20286 o|inlining procedure: k20298 o|inlining procedure: k20298 o|inlining procedure: k20310 o|inlining procedure: k20310 o|inlining procedure: k20322 o|inlining procedure: k20322 o|inlining procedure: k20334 o|inlining procedure: k20334 o|inlining procedure: k20346 o|inlining procedure: k20346 o|inlining procedure: k20358 o|inlining procedure: k20358 o|substituted constant variable: a20365 o|substituted constant variable: a20367 o|substituted constant variable: a20369 o|substituted constant variable: a20371 o|substituted constant variable: a20373 o|substituted constant variable: a20375 o|substituted constant variable: a20377 o|substituted constant variable: a20379 o|substituted constant variable: a20381 o|substituted constant variable: a20383 o|substituted constant variable: a20385 o|substituted constant variable: a20387 o|substituted constant variable: a20389 o|substituted constant variable: a20391 o|substituted constant variable: a20427 o|substituted constant variable: a20429 o|substituted constant variable: a20431 o|inlining procedure: k20482 o|inlining procedure: k20518 o|inlining procedure: k20518 o|inlining procedure: k20530 o|inlining procedure: k20544 o|inlining procedure: k20544 o|inlining procedure: k20530 o|inlining procedure: k20482 o|inlining procedure: k20580 o|inlining procedure: k20580 o|inlining procedure: k20635 o|propagated global variable: r2063626655 ##sys#current-exception-handler o|removed unused formal parameters: (convert?4418) o|inlining procedure: k20650 o|inlining procedure: k20650 o|removed unused parameter to known procedure: convert?4418 "(library.scm:4128) body44094417" o|inlining procedure: k20635 o|inlining procedure: k20677 o|inlining procedure: k20677 o|removed unused parameter to known procedure: convert?4418 "(library.scm:4128) body44094417" o|inlining procedure: k20710 o|inlining procedure: k20710 o|inlining procedure: k20782 o|contracted procedure: "(library.scm:4146) g44924501" o|inlining procedure: k20782 o|inlining procedure: k20828 o|contracted procedure: "(library.scm:4145) g44654474" o|inlining procedure: k20828 o|inlining procedure: k20862 o|contracted procedure: "(library.scm:4140) g44424449" o|inlining procedure: k20862 o|inlining procedure: k20916 o|inlining procedure: k20916 o|inlining procedure: k20974 o|inlining procedure: k20974 o|inlining procedure: k21013 o|inlining procedure: k21013 o|inlining procedure: k21043 o|inlining procedure: k21058 o|inlining procedure: k21058 o|inlining procedure: k21043 o|inlining procedure: k21087 o|inlining procedure: k21110 o|inlining procedure: k21110 o|inlining procedure: k21087 o|inlining procedure: k21147 o|inlining procedure: k21147 o|inlining procedure: k21161 o|inlining procedure: k21161 o|inlining procedure: k21179 o|inlining procedure: k21179 o|inlining procedure: k21197 o|inlining procedure: k21197 o|inlining procedure: k21215 o|inlining procedure: k21215 o|inlining procedure: k21233 o|inlining procedure: k21233 o|inlining procedure: k21251 o|inlining procedure: k21251 o|inlining procedure: k21269 o|inlining procedure: k21269 o|inlining procedure: k21287 o|inlining procedure: k21287 o|inlining procedure: k21305 o|inlining procedure: k21305 o|inlining procedure: k21323 o|inlining procedure: k21323 o|inlining procedure: k21341 o|inlining procedure: k21341 o|inlining procedure: k21359 o|inlining procedure: k21359 o|inlining procedure: k21377 o|inlining procedure: k21377 o|inlining procedure: k21395 o|inlining procedure: k21395 o|inlining procedure: k21413 o|inlining procedure: k21413 o|inlining procedure: k21431 o|inlining procedure: k21431 o|inlining procedure: k21449 o|inlining procedure: k21449 o|inlining procedure: k21467 o|inlining procedure: k21467 o|inlining procedure: k21485 o|inlining procedure: k21485 o|inlining procedure: k21503 o|inlining procedure: k21503 o|inlining procedure: k21521 o|inlining procedure: k21521 o|inlining procedure: k21539 o|inlining procedure: k21539 o|substituted constant variable: a21561 o|substituted constant variable: a21563 o|substituted constant variable: a21565 o|substituted constant variable: a21567 o|substituted constant variable: a21569 o|substituted constant variable: a21571 o|substituted constant variable: a21573 o|substituted constant variable: a21575 o|substituted constant variable: a21577 o|substituted constant variable: a21579 o|substituted constant variable: a21581 o|substituted constant variable: a21583 o|substituted constant variable: a21585 o|substituted constant variable: a21587 o|substituted constant variable: a21589 o|substituted constant variable: a21591 o|substituted constant variable: a21593 o|substituted constant variable: a21595 o|substituted constant variable: a21597 o|substituted constant variable: a21599 o|substituted constant variable: a21601 o|substituted constant variable: a21603 o|substituted constant variable: a21605 o|substituted constant variable: a21607 o|substituted constant variable: a21609 o|substituted constant variable: a21611 o|substituted constant variable: a21613 o|substituted constant variable: a21615 o|substituted constant variable: a21617 o|substituted constant variable: a21619 o|substituted constant variable: a21621 o|substituted constant variable: a21623 o|substituted constant variable: a21625 o|substituted constant variable: a21627 o|substituted constant variable: a21629 o|substituted constant variable: a21631 o|substituted constant variable: a21633 o|substituted constant variable: a21635 o|substituted constant variable: a21637 o|substituted constant variable: a21639 o|substituted constant variable: a21641 o|substituted constant variable: a21643 o|substituted constant variable: a21645 o|substituted constant variable: a21647 o|substituted constant variable: a21649 o|substituted constant variable: a21651 o|inlining procedure: k21690 o|substituted constant variable: a21703 o|inlining procedure: k21690 o|inlining procedure: k21745 o|inlining procedure: k21745 o|contracted procedure: k21786 o|inlining procedure: k21783 o|inlining procedure: k21783 o|contracted procedure: k21808 o|inlining procedure: k21805 o|inlining procedure: k21805 o|inlining procedure: k21863 o|inlining procedure: k21863 o|contracted procedure: "(library.scm:4359) fetch4709" o|contracted procedure: "(library.scm:4376) free4728" o|inlining procedure: k21910 o|inlining procedure: k21910 o|inlining procedure: k21927 o|inlining procedure: k21927 o|contracted procedure: "(library.scm:4371) fetch4727" o|propagated global variable: ct4831 ##sys#current-thread o|inlining procedure: k22116 o|inlining procedure: k22116 o|inlining procedure: k22144 o|inlining procedure: k22144 o|inlining procedure: k22201 o|inlining procedure: k22201 o|inlining procedure: k22241 o|inlining procedure: k22253 o|inlining procedure: k22253 o|contracted procedure: k22265 o|inlining procedure: k22241 o|contracted procedure: k22283 o|inlining procedure: k22280 o|inlining procedure: k22326 o|inlining procedure: k22326 o|substituted constant variable: a22384 o|inlining procedure: k22377 o|inlining procedure: k22377 o|substituted constant variable: a22397 o|inlining procedure: k22408 o|inlining procedure: k22448 o|inlining procedure: k22486 o|inlining procedure: k22486 o|inlining procedure: k22448 o|inlining procedure: k22580 o|inlining procedure: k22580 o|substituted constant variable: a22641 o|substituted constant variable: a22643 o|substituted constant variable: a22651 o|substituted constant variable: a22656 o|substituted constant variable: a22658 o|substituted constant variable: a22672 o|inlining procedure: k22665 o|inlining procedure: k22665 o|substituted constant variable: a22685 o|inlining procedure: k22408 o|substituted constant variable: a22700 o|substituted constant variable: a22702 o|inlining procedure: k22280 o|inlining procedure: k22716 o|inlining procedure: k22716 o|inlining procedure: k22730 o|inlining procedure: k22730 o|contracted procedure: "(library.scm:4658) fetch-arg4997" o|inlining procedure: k22770 o|inlining procedure: k22790 o|inlining procedure: k22790 o|inlining procedure: k22823 o|inlining procedure: k22823 o|inlining procedure: k22770 o|inlining procedure: k22856 o|inlining procedure: k22856 o|inlining procedure: k22868 o|inlining procedure: k22868 o|inlining procedure: k22894 o|inlining procedure: k22894 o|inlining procedure: k23015 o|inlining procedure: k23015 o|inlining procedure: k23037 o|inlining procedure: k23037 o|inlining procedure: k23089 o|inlining procedure: k23089 o|inlining procedure: k23145 o|inlining procedure: k23145 o|substituted constant variable: a23170 o|substituted constant variable: a23171 o|inlining procedure: k23178 o|inlining procedure: k23196 o|inlining procedure: k23196 o|inlining procedure: k23226 o|inlining procedure: k23226 o|inlining procedure: k23255 o|inlining procedure: k23255 o|inlining procedure: k23178 o|contracted procedure: k23299 o|inlining procedure: k23323 o|inlining procedure: k23323 o|inlining procedure: k23358 o|inlining procedure: k23358 o|inlining procedure: k23404 o|inlining procedure: k23404 o|inlining procedure: k23429 o|inlining procedure: k23429 o|inlining procedure: k23451 o|inlining procedure: k23451 o|inlining procedure: k23483 o|inlining procedure: k23483 o|inlining procedure: k23515 o|inlining procedure: k23515 o|inlining procedure: k23547 o|inlining procedure: k23547 o|substituted constant variable: a23595 o|substituted constant variable: a23597 o|substituted constant variable: a23599 o|substituted constant variable: a23601 o|substituted constant variable: a23603 o|substituted constant variable: a23605 o|substituted constant variable: a23607 o|substituted constant variable: a23609 o|inlining procedure: k23610 o|inlining procedure: k23610 o|contracted procedure: k23697 o|inlining procedure: k23694 o|inlining procedure: k23694 o|inlining procedure: k23718 o|inlining procedure: k23718 o|inlining procedure: k23761 o|inlining procedure: k23761 o|inlining procedure: k23824 o|inlining procedure: k23824 o|inlining procedure: k23858 o|inlining procedure: "(library.scm:5043) pstr5327" o|folded constant expression: (expt (quote 1024) (quote 3)) o|inlining procedure: k23858 o|inlining procedure: "(library.scm:5045) pstr5327" o|folded constant expression: (expt (quote 1024) (quote 2)) o|inlining procedure: k23906 o|inlining procedure: "(library.scm:5047) pstr5327" o|inlining procedure: k23906 o|inlining procedure: "(library.scm:5048) pstr5327" o|folded constant expression: (expt (quote 1024) (quote 2)) o|folded constant expression: (expt (quote 1024) (quote 3)) o|inlining procedure: "(library.scm:5074) pstr5327" o|inlining procedure: "(library.scm:5072) pstr5327" o|inlining procedure: "(library.scm:5070) pchr5328" o|inlining procedure: "(library.scm:5068) pstr5327" o|inlining procedure: "(library.scm:5064) pstr5327" o|inlining procedure: "(library.scm:5062) pchr5328" o|inlining procedure: "(library.scm:5060) pstr5327" o|inlining procedure: "(library.scm:5056) pstr5327" o|inlining procedure: "(library.scm:5054) pstr5327" o|inlining procedure: "(library.scm:5051) pstr5327" o|contracted procedure: k24063 o|inlining procedure: k24060 o|inlining procedure: k24060 o|contracted procedure: k24100 o|inlining procedure: k24097 o|inlining procedure: k24097 o|inlining procedure: k24131 o|inlining procedure: k24131 o|inlining procedure: k24165 o|inlining procedure: k24165 o|inlining procedure: k24204 o|inlining procedure: k24204 o|inlining procedure: k24240 o|inlining procedure: k24240 o|inlining procedure: k24275 o|inlining procedure: k24275 o|inlining procedure: k24319 o|inlining procedure: k24319 o|inlining procedure: k24400 o|inlining procedure: k24400 o|inlining procedure: k24430 o|inlining procedure: k24469 o|inlining procedure: k24469 o|inlining procedure: k24499 o|contracted procedure: "(library.scm:3921) g41914198" o|inlining procedure: k24499 o|inlining procedure: k24430 o|inlining procedure: k24554 o|inlining procedure: k24554 o|inlining procedure: k24717 o|inlining procedure: k24717 o|inlining procedure: k24742 o|inlining procedure: k24742 o|inlining procedure: k24833 o|inlining procedure: k24833 o|inlining procedure: k24859 o|inlining procedure: k24859 o|inlining procedure: k24940 o|inlining procedure: k24940 o|folded constant expression: (integer->char (quote 0)) o|inlining procedure: k25129 o|inlining procedure: k25129 o|inlining procedure: k25141 o|inlining procedure: k25141 o|inlining procedure: k25150 o|inlining procedure: k25150 o|inlining procedure: k25166 o|inlining procedure: k25166 o|inlining procedure: k25192 o|inlining procedure: k25221 o|inlining procedure: k25221 o|inlining procedure: k25192 o|inlining procedure: k25260 o|inlining procedure: k25260 o|inlining procedure: k25303 o|inlining procedure: k25303 o|inlining procedure: k25368 o|inlining procedure: k25368 o|inlining procedure: k25383 o|inlining procedure: k25383 o|inlining procedure: k25426 o|inlining procedure: k25426 o|inlining procedure: k25484 o|inlining procedure: k25484 o|contracted procedure: k25496 o|inlining procedure: k25535 o|inlining procedure: k25535 o|inlining procedure: k25499 o|inlining procedure: k25499 o|substituted constant variable: sblen2005 o|substituted constant variable: sblen2005 o|folded constant expression: (integer->char (quote 8)) o|folded constant expression: (integer->char (quote 12)) o|folded constant expression: (integer->char (quote 0)) o|folded constant expression: (integer->char (quote 0)) o|folded constant expression: (integer->char (quote 7)) o|folded constant expression: (integer->char (quote 27)) o|folded constant expression: (integer->char (quote 27)) o|folded constant expression: (integer->char (quote 127)) o|folded constant expression: (integer->char (quote 11)) o|replaced variables: 3288 o|removed binding forms: 1607 o|Removed `not' forms: 1 o|substituted constant variable: r684525674 o|substituted constant variable: r684525674 o|substituted constant variable: r695525695 o|substituted constant variable: r695525695 o|substituted constant variable: r723825730 o|substituted constant variable: r723825730 o|substituted constant variable: r726225736 o|substituted constant variable: r726225736 o|substituted constant variable: r728825742 o|substituted constant variable: r728825742 o|substituted constant variable: r739125753 o|substituted constant variable: r807325770 o|substituted constant variable: r825025783 o|substituted constant variable: loc812 o|substituted constant variable: loc823 o|substituted constant variable: loc834 o|substituted constant variable: loc845 o|substituted constant variable: loc856 o|substituted constant variable: loc867 o|substituted constant variable: loc878 o|substituted constant variable: loc889 o|substituted constant variable: loc900 o|substituted constant variable: loc911 o|substituted constant variable: loc920 o|substituted constant variable: loc930 o|substituted constant variable: loc941 o|substituted constant variable: loc950 o|substituted constant variable: loc958 o|substituted constant variable: loc966 o|substituted constant variable: loc974 o|substituted constant variable: loc985 o|substituted constant variable: loc993 o|substituted constant variable: loc1001 o|substituted constant variable: loc1009 o|substituted constant variable: loc1017 o|substituted constant variable: loc1025 o|substituted constant variable: loc1035 o|substituted constant variable: loc1044 o|substituted constant variable: loc1054 o|substituted constant variable: loc1063 o|substituted constant variable: loc1071 o|substituted constant variable: loc1079 o|substituted constant variable: loc1087 o|substituted constant variable: r940525865 o|substituted constant variable: r945925868 o|substituted constant variable: r950225872 o|substituted constant variable: r950225873 o|substituted constant variable: r950825874 o|substituted constant variable: r950825875 o|contracted procedure: k9642 o|substituted constant variable: r964325888 o|substituted constant variable: r975425894 o|substituted constant variable: r982525898 o|substituted constant variable: r990625905 o|substituted constant variable: r997425913 o|substituted constant variable: r1011425926 o|substituted constant variable: r1013325928 o|substituted constant variable: r1008725929 o|substituted constant variable: r1017625931 o|substituted constant variable: r1018825933 o|substituted constant variable: r1025325939 o|substituted constant variable: r1026525941 o|substituted constant variable: r1045025963 o|contracted procedure: k10484 o|substituted constant variable: r1055225969 o|substituted constant variable: r1060025971 o|substituted constant variable: r1071925980 o|substituted constant variable: r1112625991 o|substituted constant variable: r1125725997 o|substituted constant variable: r1147026008 o|substituted constant variable: r1165426021 o|converted assignments to bindings: (continuation1885) o|substituted constant variable: r1189626045 o|substituted constant variable: r1190126047 o|substituted constant variable: r1191326049 o|substituted constant variable: r1191826051 o|removed unused formal parameters: (%convert?20492063) o|removed unused parameter to known procedure: %convert?20492063 "(library.scm:1917) def-set?20542062" o|removed unused parameter to known procedure: %convert?20492063 "(library.scm:1917) def-set?20542062" o|removed unused formal parameters: (%convert?20742088) o|removed unused parameter to known procedure: %convert?20742088 "(library.scm:1926) def-set?20792087" o|removed unused parameter to known procedure: %convert?20742088 "(library.scm:1926) def-set?20792087" o|removed unused formal parameters: (%convert?20992113) o|removed unused parameter to known procedure: %convert?20992113 "(library.scm:1935) def-set?21042112" o|removed unused parameter to known procedure: %convert?20992113 "(library.scm:1935) def-set?21042112" o|substituted constant variable: r1221726078 o|substituted constant variable: r1254926098 o|substituted constant variable: r1257426101 o|substituted constant variable: r1259026103 o|substituted constant variable: r1266426105 o|substituted constant variable: r1286726121 o|substituted constant variable: r1290526122 o|substituted constant variable: r1293926125 o|substituted constant variable: r1299926129 o|inlining procedure: k13325 o|substituted constant variable: r1339226144 o|inlining procedure: k13403 o|contracted procedure: k13890 o|contracted procedure: k13911 o|contracted procedure: k13932 o|substituted constant variable: r1424726195 o|inlining procedure: k14576 o|converted assignments to bindings: (starting-line2768) o|substituted constant variable: r1467926245 o|substituted constant variable: r1469926256 o|substituted constant variable: r1469926256 o|substituted constant variable: r1501826286 o|substituted constant variable: r1501826286 o|substituted constant variable: r1502826289 o|inlining procedure: k15266 o|inlining procedure: k15266 o|inlining procedure: k15266 o|substituted constant variable: r1526426310 o|substituted constant variable: r1524326311 o|contracted procedure: k15561 o|removed side-effect free assignment to unused variable: build-symbol2662 o|substituted constant variable: r1579426342 o|substituted constant variable: r1595626353 o|substituted constant variable: r1647526400 o|substituted constant variable: r1649426401 o|substituted constant variable: r1649426401 o|substituted constant variable: r1649426403 o|substituted constant variable: r1649426403 o|substituted constant variable: r1667426410 o|substituted constant variable: r1669826413 o|substituted constant variable: r1668626414 o|converted assignments to bindings: (hex3189) o|substituted constant variable: r1689626425 o|substituted constant variable: r1706326433 o|substituted constant variable: r1706326433 o|propagated global variable: port331126436 ##sys#standard-output o|substituted constant variable: r1756726459 o|substituted constant variable: r1757926461 o|substituted constant variable: r1759426463 o|substituted constant variable: r1759426464 o|substituted constant variable: r1765426468 o|substituted constant variable: r1765426469 o|substituted constant variable: r1769226473 o|inlining procedure: k18179 o|substituted constant variable: r1841426530 o|inlining procedure: k18552 o|substituted constant variable: r1900626560 o|converted assignments to bindings: (copy&append3857) o|substituted constant variable: r1925826572 o|converted assignments to bindings: (str3975) o|substituted constant variable: r1955726585 o|substituted constant variable: r1969226591 o|converted assignments to bindings: (break4170) o|substituted constant variable: r2024426623 o|substituted constant variable: r2024426623 o|substituted constant variable: r2024426625 o|substituted constant variable: r2024426625 o|substituted constant variable: r2028726627 o|substituted constant variable: r2029926629 o|substituted constant variable: r2031126631 o|substituted constant variable: r2032326633 o|substituted constant variable: r2033526635 o|substituted constant variable: r2034726637 o|substituted constant variable: r2035926639 o|substituted constant variable: r2035926640 o|substituted constant variable: r2051926644 o|substituted constant variable: r2051926644 o|inlining procedure: k20544 o|inlining procedure: k20544 o|removed unused formal parameters: (%convert?44074421) o|removed unused parameter to known procedure: %convert?44074421 "(library.scm:4128) def-set?44124420" o|removed unused parameter to known procedure: %convert?44074421 "(library.scm:4128) def-set?44124420" o|substituted constant variable: r2071126661 o|substituted constant variable: r2101426674 o|substituted constant variable: r2104426678 o|substituted constant variable: r2111126682 o|substituted constant variable: r2111126682 o|substituted constant variable: r2114826687 o|substituted constant variable: r2114826687 o|substituted constant variable: r2169126734 o|substituted constant variable: r2178426737 o|substituted constant variable: r2180626739 o|substituted constant variable: r2186426741 o|substituted constant variable: r2191126745 o|substituted constant variable: r2191126745 o|substituted constant variable: r2192826747 o|inlining procedure: k22335 o|converted assignments to bindings: (get/clear-str4926) o|inlining procedure: k22770 o|inlining procedure: k22770 o|substituted constant variable: r2369526853 o|removed side-effect free assignment to unused variable: pstr5327 o|removed side-effect free assignment to unused variable: pchr5328 o|substituted constant variable: r2382526861 o|substituted constant variable: r2382526861 o|substituted constant variable: str533226867 o|contracted procedure: k23879 o|substituted constant variable: str533226873 o|contracted procedure: k23903 o|substituted constant variable: str533226879 o|substituted constant variable: str533226885 o|contracted procedure: k23933 o|contracted procedure: k23937 o|substituted constant variable: str533226890 o|substituted constant variable: str533226895 o|substituted constant variable: chr533326900 o|substituted constant variable: str533226905 o|substituted constant variable: str533226910 o|substituted constant variable: chr533326915 o|substituted constant variable: str533226920 o|substituted constant variable: str533226925 o|substituted constant variable: str533226930 o|substituted constant variable: str533226935 o|substituted constant variable: r2413226943 o|substituted constant variable: r2420526948 o|substituted constant variable: r2432026953 o|inlining procedure: k24451 o|inlining procedure: k24451 o|substituted constant variable: r2471826965 o|substituted constant variable: r2474326967 o|substituted constant variable: r2486026973 o|substituted constant variable: r2494126975 o|converted assignments to bindings: (syntax-setter3236) o|contracted procedure: k24986 o|substituted constant variable: r2514226980 o|substituted constant variable: r2515126982 o|substituted constant variable: r2516726984 o|substituted constant variable: r2522226987 o|contracted procedure: k25639 o|contracted procedure: k25643 o|contracted procedure: k25647 o|contracted procedure: k25651 o|contracted procedure: k25655 o|contracted procedure: k25659 o|contracted procedure: k25663 o|contracted procedure: k25667 o|contracted procedure: k25671 o|converted assignments to bindings: (lookup-char1709) o|converted assignments to bindings: (split1378) o|simplifications: ((let . 10)) o|replaced variables: 103 o|removed binding forms: 3395 o|removed conditional forms: 1 o|inlining procedure: k6808 o|inlining procedure: k7046 o|inlining procedure: k7046 o|inlining procedure: k7046 o|inlining procedure: k7810 o|inlining procedure: k8007 o|inlining procedure: k8042 o|inlining procedure: k8042 o|inlining procedure: k8297 o|inlining procedure: k8297 o|inlining procedure: k8407 o|inlining procedure: k8407 o|inlining procedure: k10071 o|inlining procedure: k10178 o|inlining procedure: k10178 o|substituted constant variable: r10485 o|inlining procedure: k12333 o|inlining procedure: k12333 o|inlining procedure: k12333 o|inlining procedure: k12615 o|propagated global variable: r1261627550 ##sys#standard-output o|propagated global variable: r1261627550 ##sys#standard-output o|inlining procedure: k13304 o|propagated global variable: r1330527558 ##sys#standard-input o|propagated global variable: r1330527558 ##sys#standard-input o|inlining procedure: k13416 o|propagated global variable: r1341727560 ##sys#standard-input o|propagated global variable: r1341727560 ##sys#standard-input o|inlining procedure: k13434 o|propagated global variable: r1343527562 ##sys#standard-input o|propagated global variable: r1343527562 ##sys#standard-input o|substituted constant variable: r13891 o|substituted constant variable: r13912 o|substituted constant variable: r13933 o|inlining procedure: k14163 o|substituted constant variable: r15562 o|inlining procedure: k16112 o|inlining procedure: k17153 o|propagated global variable: r1715427592 ##sys#standard-output o|propagated global variable: r1715427592 ##sys#standard-output o|inlining procedure: k17171 o|propagated global variable: r1717227594 ##sys#standard-output o|propagated global variable: r1717227594 ##sys#standard-output o|inlining procedure: k17549 o|inlining procedure: k19363 o|inlining procedure: k19363 o|inlining procedure: k20401 o|inlining procedure: k22150 o|inlining procedure: "(library.scm:4583) format-here-doc-warning" o|inlining procedure: k22385 o|inlining procedure: k22385 o|inlining procedure: "(library.scm:4617) format-here-doc-warning" o|inlining procedure: k22673 o|inlining procedure: k22673 o|inlining procedure: k23034 o|inlining procedure: k23034 o|inlining procedure: k23706 o|inlining procedure: k23706 o|substituted constant variable: r23880 o|substituted constant variable: r23904 o|substituted constant variable: r23934 o|substituted constant variable: r23938 o|substituted constant variable: r24987 o|inlining procedure: k25126 o|inlining procedure: k25126 o|substituted constant variable: r25640 o|substituted constant variable: r25644 o|substituted constant variable: r25648 o|substituted constant variable: r25652 o|substituted constant variable: r25656 o|substituted constant variable: r25660 o|substituted constant variable: r25664 o|substituted constant variable: r25668 o|substituted constant variable: r25672 o|replaced variables: 53 o|removed binding forms: 326 o|Removed `not' forms: 1 o|substituted constant variable: r680927439 o|substituted constant variable: r781127451 o|substituted constant variable: r800827461 o|substituted constant variable: r800827461 o|substituted constant variable: r804327465 o|substituted constant variable: r804327465 o|substituted constant variable: r1017927502 o|substituted constant variable: r1017927504 o|inlining procedure: k11903 o|inlining procedure: k11903 o|inlining procedure: k14531 o|inlining procedure: k14669 o|inlining procedure: k14669 o|inlining procedure: k14669 o|substituted constant variable: r1611327589 o|substituted constant variable: r1936427625 o|substituted constant variable: r1936427626 o|substituted constant variable: r2054527300 o|removed side-effect free assignment to unused variable: ##sys#format-here-doc-warning o|substituted constant variable: r2303527701 o|substituted constant variable: r2370727704 o|substituted constant variable: r2370727704 o|substituted constant variable: r2370727705 o|substituted constant variable: r2370727705 o|substituted constant variable: r2512727728 o|substituted constant variable: r2512727728 o|substituted constant variable: r2512727728 o|substituted constant variable: r2512727730 o|substituted constant variable: r2512727730 o|substituted constant variable: r2512727730 o|simplifications: ((let . 9)) o|replaced variables: 27 o|removed binding forms: 87 o|removed conditional forms: 8 o|substituted constant variable: code7727440 o|substituted constant variable: r1190427803 o|substituted constant variable: r1453227824 o|substituted constant variable: r1453227824 o|substituted constant variable: r1467027828 o|substituted constant variable: r1467027830 o|inlining procedure: k16489 o|inlining procedure: k16489 o|simplifications: ((let . 1)) o|replaced variables: 3 o|removed binding forms: 47 o|removed conditional forms: 4 o|simplifications: ((let . 1)) o|removed binding forms: 9 o|simplifications: ((let . 1)) o|simplifications: ((if . 150) (##core#call . 2160)) o| call simplifications: o| fxneg o| set-cdr! 6 o| list-tail o| set-car! 7 o| ##sys#make-vector o| / 4 o| vector? o| write-char o| equal? o| read-char o| string-length 2 o| string-ref 2 o| ##sys#list 6 o| ##sys#context-switch 2 o| ##sys#foreign-pointer-argument 3 o| ##sys#foreign-fixnum-argument 2 o| ##sys#null-pointer? 2 o| ##sys#generic-structure? 2 o| caddr 2 o| memv 2 o| caar 3 o| cddr 4 o| cdar 3 o| vector 7 o| string? 5 o| ##sys#apply 2 o| cadr 12 o| char-upper-case? o| char<? o| void 2 o| ##sys#void 4 o| member 7 o| list 21 o| ##sys#setbyte o| fxshr 11 o| fxior 13 o| fxshl 7 o| fxand 15 o| string=? 6 o| char-numeric? 7 o| fx* 9 o| integer->char 19 o| eof-object? 25 o| char=? 11 o| string->number 2 o| char-whitespace? 7 o| memq 12 o| ##sys#immediate? 3 o| ##sys#check-structure 5 o| ##sys#continuation-graft 2 o| ##sys#make-structure 13 o| ##sys#call-with-current-continuation 3 o| char? 4 o| assq 6 o| ##sys#setislot 28 o| char->integer 17 o| char-downcase 14 o| fxmin 3 o| ##sys#check-vector 6 o| ##sys#check-list 14 o| string 6 o| symbol? 9 o| ##sys#make-symbol 2 o| ##sys#check-symbol 10 o| ##sys#byte 6 o| ##sys#intern-symbol 13 o| fixnum? 3 o| = 2 o| zero? 5 o| abs 3 o| >= o| <= o| quotient 3 o| * 4 o| > 7 o| < 3 o| - 5 o| + 3 o| flonum? 47 o| ##sys#check-number 12 o| list->string o| fx> 24 o| fx- 43 o| list? 4 o| length 9 o| fx>= 34 o| fx+ 84 o| ##sys#check-char 16 o| cons 101 o| eq? 295 o| ##sys#check-string 26 o| ##sys#call-with-values 17 o| procedure? 6 o| cdr 35 o| ##sys#structure? 9 o| ##sys#check-exact 13 o| fx<= 21 o| fx< 29 o| values 10 o| fx= 15 o| ##sys#size 68 o| not 24 o| ##sys#slot 318 o| ##sys#setslot 47 o| ##sys#foreign-string-argument o| ##sys#fudge 30 o| ##sys#values 3 o| pair? 69 o| apply 81 o| null? 98 o| car 100 o|contracted procedure: k6817 o|contracted procedure: k6808 o|contracted procedure: k6850 o|contracted procedure: k6844 o|contracted procedure: k6862 o|contracted procedure: k6873 o|contracted procedure: k6891 o|contracted procedure: k6903 o|contracted procedure: k6961 o|contracted procedure: k6983 o|contracted procedure: k6979 o|contracted procedure: k7024 o|contracted procedure: k7040 o|contracted procedure: k7043 o|contracted procedure: k7052 o|contracted procedure: k7066 o|contracted procedure: k7075 o|contracted procedure: k7079 o|contracted procedure: k7088 o|contracted procedure: k7099 o|contracted procedure: k7111 o|contracted procedure: k7122 o|contracted procedure: k7133 o|contracted procedure: k7144 o|contracted procedure: k7155 o|contracted procedure: k7166 o|contracted procedure: k7177 o|contracted procedure: k7188 o|contracted procedure: k7199 o|contracted procedure: k7210 o|contracted procedure: k7221 o|contracted procedure: k7240 o|contracted procedure: k7247 o|contracted procedure: k7268 o|contracted procedure: k7253 o|contracted procedure: k7264 o|contracted procedure: k7280 o|contracted procedure: k7290 o|contracted procedure: k7300 o|contracted procedure: k7311 o|contracted procedure: k7320 o|contracted procedure: k7326 o|contracted procedure: k7335 o|contracted procedure: k7344 o|contracted procedure: k7347 o|contracted procedure: k7416 o|contracted procedure: k7412 o|contracted procedure: k7368 o|contracted procedure: k7378 o|contracted procedure: k7371 o|contracted procedure: k7381 o|contracted procedure: k7408 o|contracted procedure: k7404 o|contracted procedure: k7393 o|contracted procedure: k7400 o|contracted procedure: k7425 o|contracted procedure: k7435 o|contracted procedure: k7441 o|contracted procedure: k7517 o|contracted procedure: k7513 o|contracted procedure: k7531 o|contracted procedure: k7545 o|contracted procedure: k7541 o|contracted procedure: k7566 o|contracted procedure: k7562 o|contracted procedure: k7580 o|contracted procedure: k7576 o|contracted procedure: k7598 o|contracted procedure: k7594 o|contracted procedure: k7590 o|contracted procedure: k7608 o|contracted procedure: k7620 o|contracted procedure: k7638 o|contracted procedure: k7634 o|contracted procedure: k7649 o|contracted procedure: k7667 o|contracted procedure: k7663 o|contracted procedure: k7659 o|contracted procedure: k7677 o|contracted procedure: k7689 o|contracted procedure: k7714 o|contracted procedure: k7710 o|contracted procedure: k7706 o|contracted procedure: k7724 o|contracted procedure: k7743 o|contracted procedure: k7739 o|contracted procedure: k7735 o|contracted procedure: k7776 o|contracted procedure: k7804 o|contracted procedure: k7782 o|contracted procedure: k7792 o|contracted procedure: k7800 o|contracted procedure: k7817 o|contracted procedure: k7810 o|contracted procedure: k7829 o|contracted procedure: k7899 o|contracted procedure: k7841 o|contracted procedure: k7851 o|contracted procedure: k7860 o|contracted procedure: k7867 o|contracted procedure: k7873 o|contracted procedure: k7880 o|contracted procedure: k7888 o|contracted procedure: k7895 o|contracted procedure: k7914 o|contracted procedure: k7920 o|contracted procedure: k7927 o|contracted procedure: k7935 o|contracted procedure: k7931 o|contracted procedure: k7953 o|contracted procedure: k7960 o|contracted procedure: k7968 o|contracted procedure: k7964 o|contracted procedure: k8018 o|contracted procedure: k8007 o|contracted procedure: k8027 o|contracted procedure: k8045 o|contracted procedure: k8048 o|contracted procedure: k8051 o|contracted procedure: k8054 o|contracted procedure: k8063 o|contracted procedure: k8075 o|contracted procedure: k8087 o|contracted procedure: k8139 o|contracted procedure: k8103 o|contracted procedure: k8118 o|contracted procedure: k8121 o|contracted procedure: k8124 o|contracted procedure: k8131 o|contracted procedure: k8135 o|contracted procedure: k8149 o|contracted procedure: k8160 o|contracted procedure: k8169 o|contracted procedure: k8172 o|contracted procedure: k8175 o|contracted procedure: k8182 o|contracted procedure: k8186 o|contracted procedure: k8196 o|contracted procedure: k8199 o|contracted procedure: k8203 o|contracted procedure: k8209 o|contracted procedure: k8212 o|contracted procedure: k8221 o|contracted procedure: k8224 o|contracted procedure: k8230 o|contracted procedure: k8246 o|contracted procedure: k8252 o|contracted procedure: k8258 o|contracted procedure: k8262 o|contracted procedure: k8275 o|contracted procedure: k8286 o|contracted procedure: k8289 o|contracted procedure: k8300 o|contracted procedure: k8313 o|contracted procedure: k8322 o|contracted procedure: k8337 o|contracted procedure: k8346 o|contracted procedure: k8364 o|contracted procedure: k8385 o|contracted procedure: k8396 o|contracted procedure: k8399 o|contracted procedure: k8410 o|contracted procedure: k8423 o|contracted procedure: k8432 o|contracted procedure: k8447 o|contracted procedure: k8456 o|contracted procedure: k8474 o|contracted procedure: k8495 o|contracted procedure: k8507 o|contracted procedure: k8510 o|contracted procedure: k8517 o|contracted procedure: k8532 o|contracted procedure: k8539 o|contracted procedure: k8542 o|contracted procedure: k8545 o|contracted procedure: k8552 o|contracted procedure: k8556 o|contracted procedure: k8580 o|contracted procedure: k8583 o|contracted procedure: k8586 o|contracted procedure: k8593 o|contracted procedure: k8597 o|contracted procedure: k8701 o|contracted procedure: k8719 o|contracted procedure: k8712 o|contracted procedure: k8743 o|contracted procedure: k8736 o|contracted procedure: k8767 o|contracted procedure: k8760 o|contracted procedure: k8791 o|contracted procedure: k8784 o|contracted procedure: k8815 o|contracted procedure: k8808 o|contracted procedure: k8839 o|contracted procedure: k8832 o|contracted procedure: k8863 o|contracted procedure: k8856 o|contracted procedure: k8887 o|contracted procedure: k8880 o|contracted procedure: k8911 o|contracted procedure: k8904 o|contracted procedure: k8935 o|contracted procedure: k8928 o|contracted procedure: k8952 o|contracted procedure: k8977 o|contracted procedure: k8970 o|contracted procedure: k9001 o|contracted procedure: k8994 o|contracted procedure: k9018 o|contracted procedure: k9036 o|contracted procedure: k9054 o|contracted procedure: k9072 o|contracted procedure: k9093 o|contracted procedure: k9111 o|contracted procedure: k9129 o|contracted procedure: k9147 o|contracted procedure: k9165 o|contracted procedure: k9183 o|contracted procedure: k9208 o|contracted procedure: k9201 o|contracted procedure: k9225 o|contracted procedure: k9250 o|contracted procedure: k9243 o|contracted procedure: k9267 o|contracted procedure: k9285 o|contracted procedure: k9303 o|contracted procedure: k9321 o|contracted procedure: k9401 o|contracted procedure: k9407 o|contracted procedure: k9416 o|contracted procedure: k9422 o|contracted procedure: k9428 o|contracted procedure: k9455 o|contracted procedure: k9486 o|contracted procedure: k9498 o|contracted procedure: k9524 o|contracted procedure: k9536 o|contracted procedure: k9548 o|contracted procedure: k9560 o|contracted procedure: k9573 o|contracted procedure: k9611 o|contracted procedure: k9583 o|contracted procedure: k9589 o|contracted procedure: k9595 o|contracted procedure: k9604 o|contracted procedure: k9636 o|contracted procedure: k9649 o|contracted procedure: k9656 o|contracted procedure: k9660 o|contracted procedure: k9664 o|contracted procedure: k9674 o|contracted procedure: k9683 o|contracted procedure: k9719 o|contracted procedure: k9722 o|contracted procedure: k9737 o|contracted procedure: k9756 o|contracted procedure: k9765 o|contracted procedure: k9768 o|contracted procedure: k9777 o|contracted procedure: k9783 o|contracted procedure: k9801 o|contracted procedure: k9793 o|contracted procedure: k9814 o|contracted procedure: k9827 o|contracted procedure: k9836 o|contracted procedure: k9839 o|contracted procedure: k9848 o|contracted procedure: k9854 o|contracted procedure: k9872 o|contracted procedure: k9864 o|contracted procedure: k9933 o|contracted procedure: k9881 o|contracted procedure: k9927 o|contracted procedure: k9884 o|contracted procedure: k9921 o|contracted procedure: k9887 o|contracted procedure: k9915 o|contracted procedure: k9890 o|contracted procedure: k9896 o|contracted procedure: k9902 o|contracted procedure: k9955 o|contracted procedure: k9946 o|contracted procedure: k9952 o|contracted procedure: k9967 o|contracted procedure: k9970 o|contracted procedure: k9976 o|contracted procedure: k9979 o|contracted procedure: k9985 o|contracted procedure: k9997 o|contracted procedure: k10004 o|contracted procedure: k10008 o|contracted procedure: k10021 o|contracted procedure: k10025 o|contracted procedure: k10029 o|contracted procedure: k10035 o|contracted procedure: k10044 o|contracted procedure: k10050 o|contracted procedure: k10062 o|contracted procedure: k10068 o|contracted procedure: k10071 o|contracted procedure: k10116 o|contracted procedure: k10126 o|contracted procedure: k10122 o|contracted procedure: k10129 o|contracted procedure: k10142 o|contracted procedure: k10135 o|contracted procedure: k10163 o|contracted procedure: k10172 o|contracted procedure: k10184 o|contracted procedure: k10190 o|contracted procedure: k10178 o|contracted procedure: k10199 o|contracted procedure: k10202 o|contracted procedure: k10217 o|contracted procedure: k10220 o|contracted procedure: k10243 o|contracted procedure: k10246 o|contracted procedure: k10261 o|contracted procedure: k10278 o|contracted procedure: k10267 o|contracted procedure: k10274 o|contracted procedure: k10297 o|contracted procedure: k10310 o|contracted procedure: k10323 o|contracted procedure: k10342 o|contracted procedure: k10360 o|contracted procedure: k10363 o|contracted procedure: k10398 o|contracted procedure: k10418 o|contracted procedure: k10421 o|contracted procedure: k10424 o|contracted procedure: k10432 o|contracted procedure: k10440 o|contracted procedure: k10403 o|contracted procedure: k10452 o|contracted procedure: k10463 o|contracted procedure: k10459 o|contracted procedure: k10469 o|contracted procedure: k10480 o|contracted procedure: k10503 o|contracted procedure: k10526 o|contracted procedure: k10508 o|contracted procedure: k10511 o|contracted procedure: k10517 o|contracted procedure: k10542 o|contracted procedure: k10566 o|contracted procedure: k10569 o|contracted procedure: k10581 o|contracted procedure: k10596 o|contracted procedure: k10610 o|contracted procedure: k10602 o|contracted procedure: k10628 o|contracted procedure: k10641 o|contracted procedure: k10638 o|contracted procedure: k10647 o|contracted procedure: k10703 o|contracted procedure: k10666 o|contracted procedure: k10681 o|contracted procedure: k10699 o|contracted procedure: k10684 o|contracted procedure: k10691 o|contracted procedure: k10695 o|contracted procedure: k10709 o|contracted procedure: k10721 o|contracted procedure: k10728 o|contracted procedure: k10736 o|contracted procedure: k10748 o|contracted procedure: k10760 o|contracted procedure: k10763 o|contracted procedure: k10770 o|contracted procedure: k10776 o|contracted procedure: k10779 o|contracted procedure: k10782 o|contracted procedure: k10785 o|contracted procedure: k10791 o|contracted procedure: k10806 o|contracted procedure: k10820 o|contracted procedure: k10809 o|contracted procedure: k10816 o|contracted procedure: k10823 o|contracted procedure: k10826 o|contracted procedure: k10835 o|contracted procedure: k10907 o|contracted procedure: k10845 o|contracted procedure: k10848 o|contracted procedure: k10851 o|contracted procedure: k10854 o|contracted procedure: k10857 o|contracted procedure: k10878 o|contracted procedure: k10896 o|contracted procedure: k10892 o|contracted procedure: k10881 o|contracted procedure: k10888 o|contracted procedure: k10900 o|contracted procedure: k10904 o|contracted procedure: k10928 o|contracted procedure: k10916 o|contracted procedure: k10919 o|contracted procedure: k10922 o|contracted procedure: k10952 o|contracted procedure: k10966 o|contracted procedure: k10955 o|contracted procedure: k10962 o|contracted procedure: k10970 o|contracted procedure: k10979 o|contracted procedure: k10986 o|contracted procedure: k11008 o|contracted procedure: k11014 o|contracted procedure: k11024 o|contracted procedure: k11028 o|contracted procedure: k11035 o|contracted procedure: k11039 o|contracted procedure: k11046 o|contracted procedure: k11050 o|contracted procedure: k11057 o|contracted procedure: k11061 o|contracted procedure: k11068 o|contracted procedure: k11072 o|contracted procedure: k11078 o|contracted procedure: k11084 o|contracted procedure: k11090 o|contracted procedure: k11096 o|contracted procedure: k11102 o|contracted procedure: k11112 o|contracted procedure: k11119 o|contracted procedure: k11128 o|contracted procedure: k11131 o|contracted procedure: k11148 o|contracted procedure: k11137 o|contracted procedure: k11144 o|contracted procedure: k11159 o|contracted procedure: k11174 o|contracted procedure: k11177 o|contracted procedure: k11189 o|contracted procedure: k11192 o|contracted procedure: k11206 o|contracted procedure: k11202 o|contracted procedure: k11210 o|contracted procedure: k11233 o|contracted procedure: k11214 o|contracted procedure: k11225 o|contracted procedure: k11229 o|contracted procedure: k11221 o|contracted procedure: k11247 o|contracted procedure: k11243 o|contracted procedure: k11236 o|contracted procedure: k11250 o|contracted procedure: k11253 o|contracted procedure: k11262 o|contracted procedure: k11336 o|contracted procedure: k11342 o|contracted procedure: k11352 o|contracted procedure: k11356 o|contracted procedure: k11374 o|contracted procedure: k11380 o|contracted procedure: k11395 o|contracted procedure: k11399 o|contracted procedure: k11410 o|contracted procedure: k11413 o|contracted procedure: k11419 o|contracted procedure: k11428 o|contracted procedure: k11443 o|contracted procedure: k11454 o|contracted procedure: k11497 o|contracted procedure: k11493 o|contracted procedure: k11489 o|contracted procedure: k11485 o|contracted procedure: k11508 o|contracted procedure: k11511 o|contracted procedure: k11523 o|contracted procedure: k11533 o|contracted procedure: k11537 o|contracted procedure: k11544 o|contracted procedure: k11550 o|contracted procedure: k11556 o|contracted procedure: k11594 o|contracted procedure: k11597 o|contracted procedure: k11600 o|contracted procedure: k11612 o|contracted procedure: k11615 o|contracted procedure: k11618 o|contracted procedure: k11626 o|contracted procedure: k11634 o|contracted procedure: k11644 o|contracted procedure: k11650 o|contracted procedure: k11656 o|contracted procedure: k11722 o|contracted procedure: k11702 o|contracted procedure: k11712 o|contracted procedure: k11744 o|contracted procedure: k11755 o|contracted procedure: k11759 o|contracted procedure: k11751 o|contracted procedure: k11769 o|contracted procedure: k11778 o|contracted procedure: k11792 o|contracted procedure: k11784 o|contracted procedure: k11796 o|contracted procedure: k11800 o|contracted procedure: k11821 o|contracted procedure: k11803 o|contracted procedure: k11807 o|contracted procedure: k11817 o|contracted procedure: k11831 o|contracted procedure: k11844 o|contracted procedure: k11847 o|contracted procedure: k11856 o|contracted procedure: k11867 o|contracted procedure: k11871 o|contracted procedure: k11863 o|contracted procedure: k11877 o|contracted procedure: k11927 o|contracted procedure: k11942 o|contracted procedure: k11945 o|contracted procedure: k11948 o|contracted procedure: k11951 o|contracted procedure: k11954 o|contracted procedure: k11957 o|contracted procedure: k25263 o|contracted procedure: k25272 o|contracted procedure: k25306 o|contracted procedure: k25315 o|contracted procedure: k25371 o|contracted procedure: k25377 o|contracted procedure: k25386 o|contracted procedure: k25399 o|contracted procedure: k25403 o|contracted procedure: k25407 o|contracted procedure: k25429 o|contracted procedure: k25436 o|contracted procedure: k25440 o|contracted procedure: k25444 o|contracted procedure: k25454 o|contracted procedure: k25460 o|contracted procedure: k25470 o|contracted procedure: k25474 o|contracted procedure: k25481 o|contracted procedure: k25487 o|contracted procedure: k25538 o|contracted procedure: k25547 o|contracted procedure: k25571 o|contracted procedure: k25550 o|contracted procedure: k25608 o|contracted procedure: k25604 o|contracted procedure: k25593 o|contracted procedure: k25622 o|contracted procedure: k25618 o|contracted procedure: k25611 o|contracted procedure: k25502 o|contracted procedure: k25516 o|contracted procedure: k25520 o|contracted procedure: k25532 o|contracted procedure: k25625 o|contracted procedure: k11961 o|contracted procedure: k11992 o|contracted procedure: k12003 o|contracted procedure: k12014 o|contracted procedure: k12025 o|contracted procedure: k12036 o|contracted procedure: k12039 o|contracted procedure: k12065 o|contracted procedure: k12071 o|contracted procedure: k12078 o|contracted procedure: k12084 o|contracted procedure: k12097 o|contracted procedure: k12100 o|contracted procedure: k12126 o|contracted procedure: k12132 o|contracted procedure: k12139 o|contracted procedure: k12145 o|contracted procedure: k12158 o|contracted procedure: k12161 o|contracted procedure: k12187 o|contracted procedure: k12193 o|contracted procedure: k12200 o|contracted procedure: k12206 o|contracted procedure: k12223 o|contracted procedure: k12246 o|contracted procedure: k12279 o|contracted procedure: k12254 o|contracted procedure: k12260 o|contracted procedure: k12266 o|contracted procedure: k12269 o|contracted procedure: k12285 o|contracted procedure: k12288 o|contracted procedure: k12327 o|contracted procedure: k12330 o|contracted procedure: k12340 o|contracted procedure: k12343 o|contracted procedure: k1234027539 o|contracted procedure: k12350 o|contracted procedure: k1234027543 o|contracted procedure: k12357 o|contracted procedure: k1234027547 o|contracted procedure: k12385 o|contracted procedure: k12398 o|contracted procedure: k12388 o|contracted procedure: k12382 o|contracted procedure: k12551 o|contracted procedure: k12557 o|contracted procedure: k12570 o|contracted procedure: k12586 o|contracted procedure: k12609 o|contracted procedure: k12602 o|contracted procedure: k12624 o|contracted procedure: k12615 o|contracted procedure: k12642 o|contracted procedure: k12633 o|contracted procedure: k12654 o|contracted procedure: k12666 o|contracted procedure: k12701 o|contracted procedure: k12675 o|contracted procedure: k12684 o|contracted procedure: k12691 o|contracted procedure: k12695 o|contracted procedure: k12710 o|contracted procedure: k12716 o|contracted procedure: k12741 o|contracted procedure: k12744 o|contracted procedure: k12750 o|contracted procedure: k12779 o|contracted procedure: k12786 o|contracted procedure: k12795 o|contracted procedure: k12810 o|contracted procedure: k12827 o|contracted procedure: k12816 o|contracted procedure: k12823 o|contracted procedure: k12831 o|contracted procedure: k12834 o|contracted procedure: k12850 o|contracted procedure: k12889 o|contracted procedure: k12860 o|contracted procedure: k12869 o|contracted procedure: k12872 o|contracted procedure: k12885 o|contracted procedure: k12895 o|contracted procedure: k12911 o|contracted procedure: k12923 o|contracted procedure: k12953 o|contracted procedure: k13030 o|contracted procedure: k12964 o|contracted procedure: k12988 o|contracted procedure: k13001 o|contracted procedure: k13008 o|contracted procedure: k13018 o|contracted procedure: k13014 o|contracted procedure: k13021 o|contracted procedure: k13105 o|contracted procedure: k13265 o|contracted procedure: k13112 o|contracted procedure: k13126 o|contracted procedure: k13135 o|contracted procedure: k13143 o|contracted procedure: k13147 o|contracted procedure: k13153 o|contracted procedure: k13162 o|contracted procedure: k13168 o|contracted procedure: k13178 o|contracted procedure: k13194 o|contracted procedure: k13200 o|contracted procedure: k13207 o|contracted procedure: k13213 o|contracted procedure: k13223 o|contracted procedure: k13229 o|contracted procedure: k13235 o|contracted procedure: k13244 o|contracted procedure: k13262 o|contracted procedure: k13250 o|contracted procedure: k13258 o|contracted procedure: k13295 o|contracted procedure: k13279 o|contracted procedure: k13292 o|contracted procedure: k13285 o|contracted procedure: k13313 o|contracted procedure: k13304 o|contracted procedure: k13328 o|contracted procedure: k13342 o|contracted procedure: k13338 o|contracted procedure: k13331 o|inlining procedure: k13325 o|contracted procedure: k13359 o|contracted procedure: k13355 o|inlining procedure: k13325 o|contracted procedure: k13363 o|contracted procedure: k13366 o|contracted procedure: k13376 o|contracted procedure: k13369 o|contracted procedure: k13394 o|contracted procedure: k13410 o|contracted procedure: k13397 o|contracted procedure: k13403 o|contracted procedure: k13425 o|contracted procedure: k13416 o|contracted procedure: k13443 o|contracted procedure: k13434 o|contracted procedure: k13497 o|contracted procedure: k13520 o|contracted procedure: k13531 o|contracted procedure: k13599 o|contracted procedure: k13621 o|contracted procedure: k13649 o|contracted procedure: k13665 o|contracted procedure: k13690 o|contracted procedure: k13696 o|contracted procedure: k13715 o|contracted procedure: k13718 o|contracted procedure: k13728 o|contracted procedure: k13732 o|contracted procedure: k13744 o|contracted procedure: k13756 o|contracted procedure: k13763 o|contracted procedure: k13767 o|contracted procedure: k13772 o|contracted procedure: k13797 o|contracted procedure: k13807 o|contracted procedure: k13818 o|contracted procedure: k13824 o|contracted procedure: k13835 o|contracted procedure: k13841 o|contracted procedure: k13852 o|contracted procedure: k13858 o|contracted procedure: k13869 o|contracted procedure: k13875 o|contracted procedure: k13886 o|contracted procedure: k13896 o|contracted procedure: k13907 o|contracted procedure: k13917 o|contracted procedure: k13928 o|contracted procedure: k13938 o|contracted procedure: k13941 o|contracted procedure: k13952 o|contracted procedure: k13962 o|contracted procedure: k14006 o|contracted procedure: k14036 o|contracted procedure: k14065 o|contracted procedure: k14079 o|contracted procedure: k14085 o|contracted procedure: k14100 o|contracted procedure: k14103 o|contracted procedure: k14116 o|contracted procedure: k14131 o|contracted procedure: k14147 o|contracted procedure: k14226 o|contracted procedure: k14222 o|contracted procedure: k14214 o|contracted procedure: k14210 o|contracted procedure: k14195 o|contracted procedure: k14206 o|contracted procedure: k14240 o|contracted procedure: k14243 o|contracted procedure: k14253 o|contracted procedure: k14259 o|contracted procedure: k14276 o|contracted procedure: k14282 o|contracted procedure: k14322 o|contracted procedure: k14336 o|contracted procedure: k14345 o|contracted procedure: k14354 o|contracted procedure: k14387 o|contracted procedure: k14428 o|contracted procedure: k14437 o|contracted procedure: k14449 o|contracted procedure: k14461 o|contracted procedure: k14470 o|contracted procedure: k14488 o|contracted procedure: k14506 o|contracted procedure: k14509 o|contracted procedure: k14546 o|contracted procedure: k14519 o|contracted procedure: k14540 o|contracted procedure: k14552 o|contracted procedure: k14558 o|contracted procedure: k14564 o|contracted procedure: k14573 o|contracted procedure: k14576 o|contracted procedure: k14610 o|contracted procedure: k14645 o|contracted procedure: k14685 o|contracted procedure: k14709 o|contracted procedure: k14701 o|contracted procedure: k14718 o|contracted procedure: k14730 o|contracted procedure: k14739 o|contracted procedure: k14769 o|contracted procedure: k14781 o|contracted procedure: k14790 o|contracted procedure: k14846 o|contracted procedure: k14858 o|inlining procedure: k14878 o|contracted procedure: k14882 o|inlining procedure: k14878 o|contracted procedure: k14891 o|contracted procedure: k14916 o|contracted procedure: k14936 o|contracted procedure: k14943 o|contracted procedure: k14986 o|contracted procedure: k15006 o|contracted procedure: k15024 o|contracted procedure: k15017 o|contracted procedure: k15030 o|contracted procedure: k15041 o|contracted procedure: k15037 o|contracted procedure: k15047 o|contracted procedure: k15059 o|contracted procedure: k15083 o|contracted procedure: k15093 o|contracted procedure: k15103 o|contracted procedure: k15123 o|contracted procedure: k15109 o|contracted procedure: k15120 o|contracted procedure: k15132 o|contracted procedure: k15141 o|contracted procedure: k15151 o|inlining procedure: k15158 o|contracted procedure: k15162 o|inlining procedure: k15158 o|contracted procedure: k15176 o|contracted procedure: k15194 o|contracted procedure: k15200 o|contracted procedure: k15217 o|contracted procedure: k15239 o|contracted procedure: k15245 o|contracted procedure: k15361 o|contracted procedure: k15248 o|contracted procedure: k15357 o|contracted procedure: k15349 o|contracted procedure: k15353 o|contracted procedure: k15345 o|contracted procedure: k15251 o|contracted procedure: k15257 o|contracted procedure: k15341 o|contracted procedure: k15337 o|contracted procedure: k15333 o|contracted procedure: k15329 o|contracted procedure: k15316 o|contracted procedure: k15324 o|contracted procedure: k15320 o|contracted procedure: k15260 o|contracted procedure: k15272 o|contracted procedure: k15303 o|contracted procedure: k15311 o|contracted procedure: k15307 o|contracted procedure: k15276 o|contracted procedure: k15282 o|contracted procedure: k15290 o|contracted procedure: k15298 o|contracted procedure: k15294 o|contracted procedure: k15286 o|contracted procedure: k15365 o|contracted procedure: k15388 o|contracted procedure: k15409 o|contracted procedure: k15415 o|contracted procedure: k15432 o|contracted procedure: k15428 o|contracted procedure: k15445 o|contracted procedure: k15455 o|contracted procedure: k15452 o|contracted procedure: k15468 o|contracted procedure: k15490 o|contracted procedure: k15505 o|contracted procedure: k15557 o|contracted procedure: k15514 o|contracted procedure: k15520 o|contracted procedure: k15539 o|contracted procedure: k15542 o|contracted procedure: k15553 o|contracted procedure: k15593 o|contracted procedure: k15617 o|contracted procedure: k15629 o|contracted procedure: k15645 o|contracted procedure: k15661 o|contracted procedure: k15670 o|contracted procedure: k15697 o|contracted procedure: k15709 o|contracted procedure: k15718 o|contracted procedure: k15721 o|contracted procedure: k15727 o|contracted procedure: k15736 o|contracted procedure: k15760 o|contracted procedure: k15772 o|contracted procedure: k15775 o|contracted procedure: k15790 o|contracted procedure: k15800 o|contracted procedure: k15807 o|contracted procedure: k15831 o|contracted procedure: k15840 o|contracted procedure: k15846 o|contracted procedure: k15858 o|contracted procedure: k15870 o|contracted procedure: k15882 o|contracted procedure: k15894 o|contracted procedure: k15906 o|contracted procedure: k15918 o|contracted procedure: k15949 o|contracted procedure: k15958 o|contracted procedure: k15964 o|contracted procedure: k15973 o|contracted procedure: k15982 o|contracted procedure: k15994 o|contracted procedure: k16009 o|contracted procedure: k16021 o|contracted procedure: k16036 o|contracted procedure: k16052 o|contracted procedure: k16064 o|contracted procedure: k16083 o|contracted procedure: k16132 o|contracted procedure: k16121 o|contracted procedure: k16112 o|contracted procedure: k16143 o|contracted procedure: k16160 o|contracted procedure: k16173 o|contracted procedure: k16183 o|contracted procedure: k16210 o|contracted procedure: k16216 o|contracted procedure: k16226 o|contracted procedure: k16232 o|contracted procedure: k16245 o|contracted procedure: k16248 o|contracted procedure: k16271 o|contracted procedure: k16320 o|contracted procedure: k16326 o|contracted procedure: k16335 o|contracted procedure: k16347 o|contracted procedure: k16359 o|contracted procedure: k16368 o|contracted procedure: k16371 o|contracted procedure: k16380 o|contracted procedure: k16386 o|contracted procedure: k16395 o|contracted procedure: k16404 o|contracted procedure: k16413 o|contracted procedure: k16422 o|contracted procedure: k16425 o|contracted procedure: k16485 o|contracted procedure: k16481 o|contracted procedure: k16508 o|contracted procedure: k16514 o|contracted procedure: k16523 o|contracted procedure: k16550 o|contracted procedure: k16546 o|contracted procedure: k16530 o|contracted procedure: k16542 o|contracted procedure: k16538 o|contracted procedure: k16534 o|contracted procedure: k16556 o|contracted procedure: k16599 o|contracted procedure: k16595 o|contracted procedure: k16563 o|contracted procedure: k16591 o|contracted procedure: k16587 o|contracted procedure: k16583 o|contracted procedure: k16567 o|contracted procedure: k16579 o|contracted procedure: k16575 o|contracted procedure: k16571 o|contracted procedure: k16605 o|contracted procedure: k16664 o|contracted procedure: k16660 o|contracted procedure: k16612 o|contracted procedure: k16656 o|contracted procedure: k16652 o|contracted procedure: k16648 o|contracted procedure: k16616 o|contracted procedure: k16644 o|contracted procedure: k16640 o|contracted procedure: k16636 o|contracted procedure: k16620 o|contracted procedure: k16632 o|contracted procedure: k16628 o|contracted procedure: k16624 o|contracted procedure: k16676 o|contracted procedure: k16688 o|contracted procedure: k16694 o|contracted procedure: k16700 o|contracted procedure: k16706 o|contracted procedure: k16741 o|contracted procedure: k16737 o|contracted procedure: k16733 o|contracted procedure: k16713 o|contracted procedure: k16729 o|contracted procedure: k16721 o|contracted procedure: k16725 o|contracted procedure: k16717 o|contracted procedure: k16750 o|contracted procedure: k16756 o|contracted procedure: k16763 o|contracted procedure: k16769 o|contracted procedure: k16776 o|contracted procedure: k16802 o|contracted procedure: k16811 o|contracted procedure: k16829 o|contracted procedure: k16825 o|contracted procedure: k16818 o|contracted procedure: k16835 o|contracted procedure: k16853 o|contracted procedure: k16849 o|contracted procedure: k16845 o|contracted procedure: k16874 o|contracted procedure: k16870 o|contracted procedure: k16866 o|contracted procedure: k16885 o|contracted procedure: k16898 o|contracted procedure: k16901 o|contracted procedure: k16910 o|contracted procedure: k16913 o|contracted procedure: k16940 o|contracted procedure: k16954 o|contracted procedure: k16950 o|contracted procedure: k16968 o|contracted procedure: k16980 o|contracted procedure: k16983 o|contracted procedure: k16999 o|contracted procedure: k17010 o|contracted procedure: k17013 o|contracted procedure: k17038 o|contracted procedure: k17045 o|contracted procedure: k17052 o|contracted procedure: k17059 o|contracted procedure: k17069 o|contracted procedure: k17076 o|contracted procedure: k17083 o|contracted procedure: k17099 o|contracted procedure: k17089 o|contracted procedure: k17108 o|contracted procedure: k17129 o|contracted procedure: k17117 o|contracted procedure: k17120 o|contracted procedure: k17144 o|contracted procedure: k17138 o|contracted procedure: k17162 o|contracted procedure: k17153 o|contracted procedure: k17180 o|contracted procedure: k17171 o|contracted procedure: k17199 o|contracted procedure: k17211 o|contracted procedure: k17221 o|contracted procedure: k17225 o|contracted procedure: k17250 o|contracted procedure: k17262 o|contracted procedure: k17272 o|contracted procedure: k17276 o|contracted procedure: k17321 o|contracted procedure: k17327 o|contracted procedure: k17336 o|contracted procedure: k17339 o|contracted procedure: k17355 o|propagated global variable: r17356 ##sys#undefined-value o|contracted procedure: k17358 o|contracted procedure: k17384 o|contracted procedure: k17377 o|contracted procedure: k17400 o|contracted procedure: k17393 o|contracted procedure: k17412 o|contracted procedure: k17425 o|propagated global variable: r17426 ##sys#undefined-value o|contracted procedure: k17429 o|contracted procedure: k17435 o|contracted procedure: k17438 o|contracted procedure: k17456 o|contracted procedure: k17474 o|contracted procedure: k17489 o|contracted procedure: k17498 o|contracted procedure: k17501 o|contracted procedure: k17507 o|contracted procedure: k17520 o|contracted procedure: k17527 o|contracted procedure: k17543 o|contracted procedure: k17546 o|contracted procedure: k17549 o|contracted procedure: k17563 o|contracted procedure: k17569 o|contracted procedure: k17575 o|contracted procedure: k17581 o|contracted procedure: k17584 o|contracted procedure: k17596 o|contracted procedure: k17606 o|contracted procedure: k17615 o|contracted procedure: k17621 o|contracted procedure: k17637 o|contracted procedure: k17644 o|contracted procedure: k17659 o|contracted procedure: k17666 o|contracted procedure: k17670 o|contracted procedure: k17676 o|contracted procedure: k17731 o|contracted procedure: k17700 o|contracted procedure: k17710 o|contracted procedure: k17727 o|contracted procedure: k17713 o|contracted procedure: k17723 o|contracted procedure: k17742 o|contracted procedure: k17757 o|contracted procedure: k17766 o|contracted procedure: k17775 o|contracted procedure: k17802 o|contracted procedure: k17817 o|contracted procedure: k17826 o|contracted procedure: k17829 o|contracted procedure: k18404 o|contracted procedure: k17864 o|contracted procedure: k17949 o|contracted procedure: k17945 o|contracted procedure: k17891 o|contracted procedure: k17897 o|contracted procedure: k17909 o|contracted procedure: k17994 o|contracted procedure: k18007 o|contracted procedure: k18011 o|contracted procedure: k18014 o|contracted procedure: k18023 o|contracted procedure: k18032 o|contracted procedure: k18035 o|contracted procedure: k18044 o|contracted procedure: k18053 o|contracted procedure: k18062 o|contracted procedure: k18071 o|contracted procedure: k18080 o|contracted procedure: k18089 o|contracted procedure: k18098 o|contracted procedure: k18117 o|contracted procedure: k18164 o|contracted procedure: k18173 o|contracted procedure: k18195 o|contracted procedure: k18208 o|contracted procedure: k18212 o|contracted procedure: k18221 o|contracted procedure: k18230 o|contracted procedure: k18245 o|contracted procedure: k18248 o|contracted procedure: k18261 o|contracted procedure: k18268 o|contracted procedure: k18325 o|contracted procedure: k18328 o|contracted procedure: k18343 o|contracted procedure: k18359 o|contracted procedure: k18368 o|contracted procedure: k18384 o|contracted procedure: k18388 o|contracted procedure: k18392 o|contracted procedure: k18396 o|contracted procedure: k18427 o|contracted procedure: k18430 o|contracted procedure: k18441 o|contracted procedure: k18437 o|contracted procedure: k18447 o|contracted procedure: k18450 o|contracted procedure: k18486 o|contracted procedure: k18509 o|contracted procedure: k18489 o|contracted procedure: k18505 o|contracted procedure: k18528 o|contracted procedure: k18558 o|contracted procedure: k18568 o|contracted procedure: k18574 o|contracted procedure: k18584 o|contracted procedure: k18692 o|contracted procedure: k18700 o|contracted procedure: k18704 o|contracted procedure: k18719 o|contracted procedure: k18727 o|contracted procedure: k18731 o|contracted procedure: k18746 o|contracted procedure: k18754 o|contracted procedure: k18758 o|contracted procedure: k18773 o|contracted procedure: k18776 o|contracted procedure: k18779 o|contracted procedure: k18782 o|contracted procedure: k18788 o|contracted procedure: k18813 o|contracted procedure: k18794 o|contracted procedure: k18803 o|contracted procedure: k18806 o|contracted procedure: k18816 o|contracted procedure: k24708 o|contracted procedure: k24711 o|contracted procedure: k24714 o|contracted procedure: k24720 o|contracted procedure: k24727 o|contracted procedure: k24723 o|contracted procedure: k24733 o|contracted procedure: k24736 o|contracted procedure: k24739 o|contracted procedure: k24745 o|contracted procedure: k24754 o|contracted procedure: k24757 o|contracted procedure: k24764 o|contracted procedure: k24773 o|contracted procedure: k24776 o|contracted procedure: k24783 o|contracted procedure: k24796 o|contracted procedure: k24800 o|contracted procedure: k24806 o|contracted procedure: k24841 o|contracted procedure: k24809 o|contracted procedure: k24816 o|contracted procedure: k24820 o|contracted procedure: k24827 o|contracted procedure: k24823 o|contracted procedure: k24830 o|contracted procedure: k24833 o|contracted procedure: k24847 o|contracted procedure: k24850 o|contracted procedure: k24853 o|contracted procedure: k24856 o|contracted procedure: k24862 o|contracted procedure: k24884 o|contracted procedure: k24875 o|contracted procedure: k24893 o|contracted procedure: k24907 o|contracted procedure: k24903 o|contracted procedure: k24896 o|contracted procedure: k24918 o|contracted procedure: k24922 o|contracted procedure: k24914 o|contracted procedure: k24931 o|contracted procedure: k24934 o|contracted procedure: k24937 o|contracted procedure: k24943 o|contracted procedure: k24949 o|contracted procedure: k18823 o|contracted procedure: k18832 o|contracted procedure: k18843 o|contracted procedure: k18839 o|contracted procedure: k18855 o|contracted procedure: k18885 o|contracted procedure: k18892 o|contracted procedure: k18909 o|contracted procedure: k18943 o|contracted procedure: k18950 o|contracted procedure: k18971 o|contracted procedure: k18978 o|contracted procedure: k18989 o|contracted procedure: k18992 o|contracted procedure: k18999 o|contracted procedure: k19002 o|contracted procedure: k19020 o|contracted procedure: k19008 o|contracted procedure: k19016 o|contracted procedure: k19026 o|contracted procedure: k19032 o|contracted procedure: k19035 o|contracted procedure: k19038 o|contracted procedure: k19048 o|contracted procedure: k19051 o|contracted procedure: k19054 o|contracted procedure: k19092 o|contracted procedure: k19088 o|contracted procedure: k19080 o|contracted procedure: k19084 o|contracted procedure: k19106 o|contracted procedure: k19121 o|contracted procedure: k19131 o|contracted procedure: k19135 o|contracted procedure: k19160 o|contracted procedure: k19170 o|inlining procedure: k19163 o|inlining procedure: k19163 o|contracted procedure: k19387 o|contracted procedure: k19236 o|contracted procedure: k19319 o|contracted procedure: k19329 o|contracted procedure: k19322 o|contracted procedure: k19260 o|contracted procedure: k19384 o|contracted procedure: k19339 o|contracted procedure: k19381 o|contracted procedure: k19343 o|contracted procedure: k19378 o|contracted procedure: k19347 o|contracted procedure: k19375 o|contracted procedure: k19351 o|contracted procedure: k19372 o|contracted procedure: k19355 o|contracted procedure: k19369 o|contracted procedure: k19359 o|contracted procedure: k19366 o|contracted procedure: k19414 o|contracted procedure: k19429 o|contracted procedure: k19448 o|contracted procedure: k19452 o|contracted procedure: k24585 o|contracted procedure: k19493 o|contracted procedure: k19523 o|contracted procedure: k19533 o|contracted procedure: k19537 o|contracted procedure: k19507 o|contracted procedure: k19511 o|contracted procedure: k19543 o|contracted procedure: k19559 o|contracted procedure: k19562 o|contracted procedure: k19565 o|contracted procedure: k19571 o|contracted procedure: k19590 o|contracted procedure: k19593 o|contracted procedure: k19596 o|contracted procedure: k19604 o|contracted procedure: k19612 o|contracted procedure: k19630 o|contracted procedure: k19639 o|contracted procedure: k19646 o|contracted procedure: k19654 o|contracted procedure: k19796 o|contracted procedure: k19667 o|contracted procedure: k19790 o|contracted procedure: k19670 o|contracted procedure: k19784 o|contracted procedure: k19673 o|contracted procedure: k19778 o|contracted procedure: k19676 o|contracted procedure: k19768 o|contracted procedure: k19682 o|contracted procedure: k19694 o|contracted procedure: k19765 o|contracted procedure: k19697 o|contracted procedure: k19703 o|contracted procedure: k19741 o|contracted procedure: k19729 o|contracted procedure: k19737 o|contracted procedure: k19733 o|contracted procedure: k19713 o|contracted procedure: k19721 o|contracted procedure: k19745 o|contracted procedure: k19752 o|contracted procedure: k19755 o|contracted procedure: k19775 o|contracted procedure: k19808 o|contracted procedure: k19816 o|contracted procedure: k19819 o|contracted procedure: k19822 o|contracted procedure: k19862 o|contracted procedure: k19875 o|contracted procedure: k19890 o|contracted procedure: k19900 o|contracted procedure: k19904 o|contracted procedure: k19991 o|contracted procedure: k19910 o|contracted procedure: k19985 o|contracted procedure: k19913 o|contracted procedure: k19979 o|contracted procedure: k19916 o|contracted procedure: k19973 o|contracted procedure: k19919 o|contracted procedure: k19967 o|contracted procedure: k19922 o|contracted procedure: k19961 o|contracted procedure: k19925 o|contracted procedure: k19955 o|contracted procedure: k19928 o|contracted procedure: k19949 o|contracted procedure: k19931 o|contracted procedure: k19937 o|contracted procedure: k19940 o|contracted procedure: k20010 o|contracted procedure: k20020 o|contracted procedure: k20126 o|contracted procedure: k20055 o|contracted procedure: k20073 o|contracted procedure: k20086 o|contracted procedure: k20094 o|contracted procedure: k20109 o|contracted procedure: k20119 o|contracted procedure: k20123 o|contracted procedure: k20129 o|contracted procedure: k20142 o|contracted procedure: k20154 o|contracted procedure: k20161 o|contracted procedure: k20167 o|contracted procedure: k20170 o|contracted procedure: k20208 o|contracted procedure: k20218 o|contracted procedure: k20222 o|contracted procedure: k20225 o|contracted procedure: k20246 o|contracted procedure: k20255 o|contracted procedure: k20258 o|contracted procedure: k20261 o|contracted procedure: k20276 o|contracted procedure: k20268 o|contracted procedure: k20283 o|contracted procedure: k20289 o|contracted procedure: k20295 o|contracted procedure: k20301 o|contracted procedure: k20307 o|contracted procedure: k20313 o|contracted procedure: k20319 o|contracted procedure: k20325 o|contracted procedure: k20331 o|contracted procedure: k20337 o|contracted procedure: k20343 o|contracted procedure: k20349 o|contracted procedure: k20355 o|contracted procedure: k20361 o|contracted procedure: k20398 o|contracted procedure: k20401 o|contracted procedure: k20417 o|contracted procedure: k20410 o|contracted procedure: k20446 o|contracted procedure: k20442 o|contracted procedure: k20472 o|contracted procedure: k20468 o|contracted procedure: k20475 o|contracted procedure: k20479 o|contracted procedure: k20485 o|contracted procedure: k20488 o|contracted procedure: k20491 o|contracted procedure: k20494 o|contracted procedure: k20497 o|contracted procedure: k20518 o|contracted procedure: k20524 o|contracted procedure: k20527 o|contracted procedure: k20533 o|contracted procedure: k20547 o|contracted procedure: k20544 o|contracted procedure: k20556 o|contracted procedure: k20615 o|contracted procedure: k20568 o|contracted procedure: k20611 o|contracted procedure: k20583 o|contracted procedure: k20607 o|contracted procedure: k20603 o|contracted procedure: k20599 o|contracted procedure: k20638 o|contracted procedure: k20641 o|contracted procedure: k20667 o|contracted procedure: k20673 o|contracted procedure: k20680 o|contracted procedure: k20686 o|contracted procedure: k20700 o|contracted procedure: k20713 o|contracted procedure: k20739 o|contracted procedure: k20720 o|contracted procedure: k20728 o|contracted procedure: k20724 o|contracted procedure: k20745 o|contracted procedure: k20768 o|contracted procedure: k20785 o|contracted procedure: k20807 o|contracted procedure: k20803 o|contracted procedure: k20788 o|contracted procedure: k20791 o|contracted procedure: k20799 o|contracted procedure: k20814 o|contracted procedure: k20831 o|contracted procedure: k20853 o|contracted procedure: k20849 o|contracted procedure: k20834 o|contracted procedure: k20837 o|contracted procedure: k20845 o|contracted procedure: k20865 o|contracted procedure: k20879 o|contracted procedure: k20868 o|contracted procedure: k20875 o|contracted procedure: k20897 o|contracted procedure: k20910 o|contracted procedure: k20919 o|contracted procedure: k20959 o|contracted procedure: k20925 o|contracted procedure: k20932 o|contracted procedure: k20944 o|contracted procedure: k20948 o|contracted procedure: k20940 o|contracted procedure: k20936 o|contracted procedure: k20955 o|contracted procedure: k20962 o|contracted procedure: k20965 o|contracted procedure: k20977 o|contracted procedure: k20980 o|contracted procedure: k20983 o|contracted procedure: k20991 o|contracted procedure: k20999 o|contracted procedure: k21026 o|contracted procedure: k21022 o|contracted procedure: k21032 o|contracted procedure: k21035 o|contracted procedure: k21040 o|contracted procedure: k21072 o|contracted procedure: k21046 o|contracted procedure: k21068 o|contracted procedure: k21049 o|contracted procedure: k21090 o|contracted procedure: k21093 o|contracted procedure: k21096 o|contracted procedure: k21099 o|contracted procedure: k21110 o|contracted procedure: k21127 o|contracted procedure: k21130 o|contracted procedure: k21133 o|contracted procedure: k21136 o|contracted procedure: k21147 o|contracted procedure: k21164 o|contracted procedure: k21173 o|contracted procedure: k21182 o|contracted procedure: k21191 o|contracted procedure: k21200 o|contracted procedure: k21209 o|contracted procedure: k21218 o|contracted procedure: k21227 o|contracted procedure: k21236 o|contracted procedure: k21245 o|contracted procedure: k21254 o|contracted procedure: k21263 o|contracted procedure: k21272 o|contracted procedure: k21281 o|contracted procedure: k21290 o|contracted procedure: k21299 o|contracted procedure: k21308 o|contracted procedure: k21317 o|contracted procedure: k21326 o|contracted procedure: k21335 o|contracted procedure: k21344 o|contracted procedure: k21353 o|contracted procedure: k21362 o|contracted procedure: k21371 o|contracted procedure: k21380 o|contracted procedure: k21389 o|contracted procedure: k21398 o|contracted procedure: k21407 o|contracted procedure: k21416 o|contracted procedure: k21425 o|contracted procedure: k21434 o|contracted procedure: k21443 o|contracted procedure: k21452 o|contracted procedure: k21461 o|contracted procedure: k21470 o|contracted procedure: k21479 o|contracted procedure: k21488 o|contracted procedure: k21497 o|contracted procedure: k21506 o|contracted procedure: k21515 o|contracted procedure: k21524 o|contracted procedure: k21533 o|contracted procedure: k21542 o|contracted procedure: k21551 o|contracted procedure: k21696 o|contracted procedure: k21700 o|contracted procedure: k21730 o|contracted procedure: k21760 o|contracted procedure: k21736 o|contracted procedure: k21739 o|contracted procedure: k21748 o|contracted procedure: k21757 o|contracted procedure: k21793 o|contracted procedure: k21815 o|contracted procedure: k21866 o|contracted procedure: k21883 o|contracted procedure: k21845 o|contracted procedure: k21849 o|contracted procedure: k21910 o|contracted procedure: k21930 o|contracted procedure: k21947 o|contracted procedure: k21897 o|contracted procedure: k21901 o|contracted procedure: k21967 o|contracted procedure: k21971 o|contracted procedure: k21963 o|contracted procedure: k21978 o|contracted procedure: k21985 o|contracted procedure: k22047 o|contracted procedure: k22055 o|contracted procedure: k22072 o|contracted procedure: k22087 o|contracted procedure: k22138 o|contracted procedure: k22119 o|contracted procedure: k22128 o|contracted procedure: k22147 o|contracted procedure: k22204 o|contracted procedure: k22207 o|contracted procedure: k22213 o|contracted procedure: k22256 o|contracted procedure: k22272 o|contracted procedure: k22704 o|contracted procedure: k22298 o|contracted procedure: k22402 o|contracted procedure: k22310 o|contracted procedure: k22329 o|contracted procedure: k22332 o|contracted procedure: k22341 o|contracted procedure: k2218127674 o|contracted procedure: k22371 o|contracted procedure: k22399 o|contracted procedure: k22381 o|contracted procedure: k22394 o|contracted procedure: k22411 o|contracted procedure: k22690 o|contracted procedure: k22433 o|contracted procedure: k22451 o|contracted procedure: k22454 o|contracted procedure: k22463 o|contracted procedure: k22466 o|contracted procedure: k22480 o|contracted procedure: k22489 o|contracted procedure: k22544 o|contracted procedure: k22502 o|contracted procedure: k22514 o|contracted procedure: k22531 o|contracted procedure: k22525 o|contracted procedure: k22547 o|contracted procedure: k2218127687 o|contracted procedure: k22565 o|contracted procedure: k22561 o|contracted procedure: k22574 o|contracted procedure: k22583 o|contracted procedure: k22599 o|contracted procedure: k22614 o|contracted procedure: k22606 o|contracted procedure: k22633 o|contracted procedure: k22625 o|contracted procedure: k22659 o|contracted procedure: k22687 o|contracted procedure: k22669 o|contracted procedure: k22682 o|contracted procedure: k22724 o|contracted procedure: k22733 o|contracted procedure: k22740 o|contracted procedure: k22744 o|contracted procedure: k22763 o|contracted procedure: k22844 o|contracted procedure: k22776 o|contracted procedure: k22783 o|contracted procedure: k22793 o|contracted procedure: k22812 o|contracted procedure: k22820 o|contracted procedure: k22816 o|contracted procedure: k22829 o|contracted procedure: k22840 o|contracted procedure: k22853 o|contracted procedure: k22862 o|contracted procedure: k22875 o|contracted procedure: k22887 o|contracted procedure: k22897 o|contracted procedure: k22970 o|contracted procedure: k22900 o|contracted procedure: k22913 o|contracted procedure: k22954 o|contracted procedure: k22943 o|contracted procedure: k22950 o|contracted procedure: k22973 o|contracted procedure: k22996 o|contracted procedure: k23000 o|contracted procedure: k23028 o|contracted procedure: k23018 o|contracted procedure: k23046 o|contracted procedure: k23136 o|contracted procedure: k23148 o|contracted procedure: k23158 o|contracted procedure: k23162 o|contracted procedure: k23215 o|contracted procedure: k23199 o|contracted procedure: k23232 o|contracted procedure: k23252 o|contracted procedure: k23258 o|contracted procedure: k23271 o|contracted procedure: k23277 o|contracted procedure: k23296 o|contracted procedure: k23310 o|contracted procedure: k23306 o|contracted procedure: k23326 o|contracted procedure: k23332 o|contracted procedure: k23339 o|contracted procedure: k23345 o|contracted procedure: k23395 o|contracted procedure: k23355 o|contracted procedure: k23407 o|contracted procedure: k23416 o|contracted procedure: k23419 o|contracted procedure: k23426 o|contracted procedure: k23432 o|contracted procedure: k23439 o|contracted procedure: k23445 o|contracted procedure: k23448 o|contracted procedure: k23454 o|contracted procedure: k23457 o|contracted procedure: k23464 o|contracted procedure: k23470 o|contracted procedure: k23473 o|contracted procedure: k23480 o|contracted procedure: k23486 o|contracted procedure: k23489 o|contracted procedure: k23496 o|contracted procedure: k23502 o|contracted procedure: k23505 o|contracted procedure: k23512 o|contracted procedure: k23518 o|contracted procedure: k23521 o|contracted procedure: k23528 o|contracted procedure: k23534 o|contracted procedure: k23537 o|contracted procedure: k23544 o|contracted procedure: k23550 o|contracted procedure: k23553 o|contracted procedure: k23560 o|contracted procedure: k23566 o|contracted procedure: k23569 o|contracted procedure: k23576 o|contracted procedure: k23583 o|contracted procedure: k23591 o|contracted procedure: k23587 o|contracted procedure: k23613 o|contracted procedure: k23620 o|contracted procedure: k23638 o|contracted procedure: k23645 o|contracted procedure: k23649 o|contracted procedure: k23655 o|contracted procedure: k23668 o|contracted procedure: k23662 o|contracted procedure: k23665 o|contracted procedure: k23681 o|contracted procedure: k23688 o|contracted procedure: k23732 o|contracted procedure: k23700 o|contracted procedure: k23703 o|contracted procedure: k23728 o|contracted procedure: k23715 o|contracted procedure: k23718 o|contracted procedure: k23742 o|contracted procedure: k23748 o|contracted procedure: k23755 o|contracted procedure: k23764 o|contracted procedure: k23770 o|contracted procedure: k23773 o|contracted procedure: k23776 o|contracted procedure: k23782 o|contracted procedure: k23789 o|contracted procedure: k23795 o|contracted procedure: k23799 o|contracted procedure: k23827 o|contracted procedure: k23848 o|contracted procedure: k23861 o|contracted procedure: k23875 o|contracted procedure: k23885 o|contracted procedure: k23899 o|contracted procedure: k23909 o|contracted procedure: k23923 o|contracted procedure: k23949 o|contracted procedure: k23955 o|contracted procedure: k23958 o|contracted procedure: k23964 o|contracted procedure: k23967 o|contracted procedure: k23973 o|contracted procedure: k23988 o|contracted procedure: k23991 o|contracted procedure: k24012 o|contracted procedure: k24030 o|contracted procedure: k24043 o|contracted procedure: k24051 o|contracted procedure: k24082 o|contracted procedure: k24070 o|contracted procedure: k24078 o|contracted procedure: k24088 o|contracted procedure: k24119 o|contracted procedure: k24107 o|contracted procedure: k24115 o|contracted procedure: k24134 o|contracted procedure: k24137 o|contracted procedure: k24168 o|contracted procedure: k24171 o|contracted procedure: k24181 o|contracted procedure: k24198 o|contracted procedure: k24207 o|contracted procedure: k24214 o|contracted procedure: k24222 o|contracted procedure: k24234 o|contracted procedure: k24243 o|contracted procedure: k24250 o|contracted procedure: k24254 o|contracted procedure: k24260 o|contracted procedure: k24269 o|contracted procedure: k24272 o|contracted procedure: k24290 o|contracted procedure: k24286 o|contracted procedure: k24303 o|contracted procedure: k24306 o|contracted procedure: k24313 o|contracted procedure: k24322 o|contracted procedure: k24325 o|contracted procedure: k24328 o|contracted procedure: k24358 o|contracted procedure: k24347 o|contracted procedure: k24368 o|contracted procedure: k24371 o|contracted procedure: k24409 o|contracted procedure: k24394 o|contracted procedure: k24397 o|contracted procedure: k24433 o|contracted procedure: k24472 o|contracted procedure: k24482 o|contracted procedure: k24502 o|contracted procedure: k24512 o|contracted procedure: k24516 o|contracted procedure: k24557 o|contracted procedure: k24567 o|contracted procedure: k24571 o|contracted procedure: k24601 o|contracted procedure: k24609 o|contracted procedure: k24612 o|contracted procedure: k24616 o|contracted procedure: k24619 o|contracted procedure: k24623 o|contracted procedure: k24626 o|contracted procedure: k24630 o|contracted procedure: k24633 o|contracted procedure: k24637 o|contracted procedure: k24640 o|contracted procedure: k24644 o|contracted procedure: k24667 o|contracted procedure: k24674 o|contracted procedure: k24990 o|contracted procedure: k25000 o|contracted procedure: k25010 o|contracted procedure: k25020 o|contracted procedure: k25030 o|contracted procedure: k25040 o|contracted procedure: k25050 o|contracted procedure: k25060 o|contracted procedure: k25070 o|contracted procedure: k25080 o|contracted procedure: k25090 o|contracted procedure: k25100 o|contracted procedure: k25110 o|contracted procedure: k25120 o|contracted procedure: k25135 o|contracted procedure: k25126 o|contracted procedure: k25153 o|contracted procedure: k25160 o|contracted procedure: k25169 o|contracted procedure: k25176 o|contracted procedure: k25195 o|contracted procedure: k25204 o|contracted procedure: k25215 o|contracted procedure: k25211 o|contracted procedure: k25224 o|contracted procedure: k25231 o|contracted procedure: k25241 o|contracted procedure: k25237 o|contracted procedure: k25186 o|contracted procedure: k25182 o|simplifications: ((if . 1) (let . 422)) o|removed binding forms: 1827 o|inlining procedure: k11920 o|inlining procedure: k11920 o|inlining procedure: "(library.scm:3201) outstr03422" o|inlining procedure: "(library.scm:3200) outstr03422" o|inlining procedure: "(library.scm:3203) outstr03422" o|inlining procedure: "(library.scm:3205) outstr03422" o|inlining procedure: "(library.scm:3215) outstr03422" o|inlining procedure: k17390 o|inlining procedure: k17390 o|inlining procedure: k17703 o|inlining procedure: k17703 o|inlining procedure: k17703 o|inlining procedure: k24890 o|inlining procedure: k24890 o|inlining procedure: k20461 o|inlining procedure: k20461 o|inlining procedure: k24297 o|inlining procedure: k24362 o|inlining procedure: k24362 o|replaced variables: 627 o|removed binding forms: 4 o|inlining procedure: k8725 o|inlining procedure: k8749 o|inlining procedure: k8773 o|inlining procedure: k8797 o|inlining procedure: k8821 o|inlining procedure: k8845 o|inlining procedure: k8869 o|inlining procedure: k8893 o|inlining procedure: k8917 o|inlining procedure: k8941 o|inlining procedure: k8959 o|inlining procedure: k8983 o|inlining procedure: k9007 o|inlining procedure: k9025 o|inlining procedure: k9043 o|inlining procedure: k9061 o|inlining procedure: k9079 o|inlining procedure: k9100 o|inlining procedure: k9118 o|inlining procedure: k9136 o|inlining procedure: k9154 o|inlining procedure: k9172 o|inlining procedure: k9190 o|inlining procedure: k9214 o|inlining procedure: k9232 o|inlining procedure: k9256 o|inlining procedure: k9274 o|inlining procedure: k9292 o|inlining procedure: k9310 o|inlining procedure: k9328 o|substituted constant variable: r1192129285 o|substituted constant variable: str344029336 o|removed side-effect free assignment to unused variable: outstr03422 o|substituted constant variable: str344029356 o|inlining procedure: k21921 o|inlining procedure: k21921 o|substituted constant variable: r2436329483 o|simplifications: ((let . 1) (if . 5)) o|replaced variables: 15 o|removed binding forms: 335 o|removed conditional forms: 1 o|inlining procedure: "(library.scm:3254) specialchar?3424" o|inlining procedure: "(library.scm:3270) specialchar?3424" o|inlining procedure: "(library.scm:3274) specialchar?3424" o|removed binding forms: 49 o|removed side-effect free assignment to unused variable: specialchar?3424 o|simplifications: ((let . 1)) o|replaced variables: 11 o|removed binding forms: 30 o|inlining procedure: k17590 o|inlining procedure: k17656 o|removed binding forms: 9 o|contracted procedure: k17735 o|removed binding forms: 3 o|direct leaf routine/allocation: doloop516517 0 o|direct leaf routine/allocation: iter529 0 o|direct leaf routine/allocation: loop692 0 o|direct leaf routine/allocation: split1378 0 o|direct leaf routine/allocation: loop1545 0 o|direct leaf routine/allocation: doloop15631564 0 o|direct leaf routine/allocation: doloop15791580 0 o|direct leaf routine/allocation: doloop16081609 0 o|direct leaf routine/allocation: doloop16371638 0 o|direct leaf routine/allocation: loop1713 0 o|direct leaf routine/allocation: loop1791 0 o|direct leaf routine/allocation: body20512059 0 o|direct leaf routine/allocation: def-set?20542062 0 o|direct leaf routine/allocation: def-convert?20532064 0 o|direct leaf routine/allocation: body20762084 0 o|direct leaf routine/allocation: def-set?20792087 0 o|direct leaf routine/allocation: def-convert?20782089 0 o|direct leaf routine/allocation: body21012109 0 o|direct leaf routine/allocation: def-set?21042112 0 o|direct leaf routine/allocation: def-convert?21032114 0 o|direct leaf routine/allocation: body44094417 0 o|direct leaf routine/allocation: def-set?44124420 0 o|direct leaf routine/allocation: def-convert?44114422 0 o|direct leaf routine/allocation: for-each-loop44414452 0 o|direct leaf routine/allocation: loop5293 0 o|converted assignments to bindings: (doloop516517) o|contracted procedure: k8156 o|converted assignments to bindings: (iter529) o|converted assignments to bindings: (loop692) o|contracted procedure: "(library.scm:1215) k10205" o|contracted procedure: "(library.scm:1222) k10223" o|contracted procedure: "(library.scm:1231) k10249" o|converted assignments to bindings: (loop1545) o|converted assignments to bindings: (doloop15631564) o|converted assignments to bindings: (doloop15791580) o|converted assignments to bindings: (doloop16081609) o|converted assignments to bindings: (doloop16371638) o|converted assignments to bindings: (loop1713) o|converted assignments to bindings: (loop1791) o|inlining procedure: "(library.scm:1917) k12062" o|inlining procedure: "(library.scm:1917) k12062" o|inlining procedure: "(library.scm:1917) k12062" o|inlining procedure: "(library.scm:1926) k12123" o|inlining procedure: "(library.scm:1926) k12123" o|inlining procedure: "(library.scm:1926) k12123" o|inlining procedure: "(library.scm:1935) k12184" o|inlining procedure: "(library.scm:1935) k12184" o|inlining procedure: "(library.scm:1935) k12184" o|inlining procedure: "(library.scm:4128) k20664" o|inlining procedure: "(library.scm:4128) k20664" o|inlining procedure: "(library.scm:4128) k20664" o|contracted procedure: k20753 o|converted assignments to bindings: (for-each-loop44414452) o|converted assignments to bindings: (loop5293) o|simplifications: ((let . 12)) o|removed binding forms: 5 o|replaced variables: 9 o|removed binding forms: 4 o|removed binding forms: 3 o|customizable procedures: (syntax-setter3236 k19230 check3996 k19474 k19477 k19480 k19483 k19486 g42204227 for-each-loop42194231 for-each-loop41904202 k24334 loop5014 loop5429 loop5418 recur5409 loop5402 loop5394 loop5385 pmem5331 round-to5330 pnum5329 k23745 loop5316 def-port51535194 def-header51545192 body51515159 k23181 g51735174 writeargs5125 g51315138 for-each-loop51305142 loop5072 doloop50415042 k22850 doloop50035004 read-escaped-sexp4866 get/clear-str4926 loop4937 k22505 loop24960 readln4865 doloop49124913 loop4880 doloop48694870 loop4840 loop4747 loop4721 g45274536 map-loop45214547 loop4539 map-loop44594477 map-loop44864504 loop4432 k20249 k20252 k20272 k20228 for-each-loop43194331 for-each-loop42724283 loop4268 g41164123 for-each-loop41154136 k19849 k19706 loop4099 loop4063 map-loop40304047 loop4054 for-each-loop40074019 str3975 g39133920 for-each-loop39123923 k18902 k18919 copy&append3857 loop3866 k24812 loop3767 loop3761 loop3755 doloop36353636 doloop36173618 k18176 doloop36033604 out3533 doloop35733574 outsym3425 g35493550 k17688 loop3502 k17624 k17650 loop3467 outchr3423 sym-is-readable?3427 outreadablesym3426 outstr3421 for-each-loop33823400 for-each-loop33493367 k16977 hex3189 loop3198 k15596 r-symbol2657 k15810 k16195 r-ext-symbol2661 r-comment2660 r-char2659 r-vector2651 r-number-with-radix2654 r-number-with-exactness2653 r-digits2656 k15730 loop2989 k15517 loop2976 r-token2655 k15368 k15220 k14989 r-string2649 loop2903 k14995 k14919 loop2886 k14849 k14864 read-unreserved-char-02632 loop2870 r-number2652 k14654 r-list2650 k14409 k14452 r-xtoken2658 build-keyword2663 loop2773 readrec2633 r-spaces2646 starting-line2768 info2629 k14068 k14088 k14192 eat-ws2738 k13977 r-cons-codepoint2648 r-usequence2647 loop2701 lp2696 loop2679 skip-to-eol2630 loop2664 reserved-character2631 k13582 skip2638 k13150 def-convert?24872498 def-set?24882496 body24852493 assign2469 k13120 loop2347 loop2328 doloop23352336 close2145 open2144 doloop21522153 k25463 loop2006 k25362 loop1988 ##sys#dynamic-unwind loop1856 map-loop18321849 loop1816 for-each-loop18011811 k11457 loop1761 loop1750 k11153 lookup-char1709 ##sys#vector-resize k10788 loop1553 map-loop14381457 compare-slots1326 loop1338 walk1327 loop1270 loop1256 loop1250 loop1208 loop676 k8227 k8236 loop507 loop442 loop432 copy422 loop420 loop398 k7365 lp267) o|calls to known targets: 696 o|unused rest argument: _171 f_7007 o|identified direct recursive calls: f_7318 1 o|identified direct recursive calls: f_7771 1 o|identified direct recursive calls: f_7855 1 o|identified direct recursive calls: f_7909 1 o|identified direct recursive calls: f_7948 1 o|identified direct recursive calls: f_8070 1 o|identified direct recursive calls: f_8113 1 o|identified direct recursive calls: f_8164 1 o|identified direct recursive calls: f_8527 1 o|identified direct recursive calls: f_8575 1 o|identified direct recursive calls: f_10676 1 o|identified direct recursive calls: f_10716 1 o|identified direct recursive calls: f_10755 1 o|identified direct recursive calls: f_10801 1 o|identified direct recursive calls: f_10873 1 o|identified direct recursive calls: f_10947 1 o|identified direct recursive calls: f_11123 1 o|identified direct recursive calls: f_11467 1 o|identified direct recursive calls: f_11767 1 o|identified direct recursive calls: f_25366 1 o|identified direct recursive calls: f_12322 3 o|identified direct recursive calls: f_12805 1 o|identified direct recursive calls: f_13751 1 o|identified direct recursive calls: f_15500 1 o|identified direct recursive calls: f_18687 1 o|identified direct recursive calls: f_18714 1 o|identified direct recursive calls: f_18741 1 o|identified direct recursive calls: f_19554 2 o|identified direct recursive calls: f_20708 1 o|identified direct recursive calls: f_20860 1 o|identified direct recursive calls: f_20780 1 o|identified direct recursive calls: f_20826 1 o|identified direct recursive calls: f_20914 2 o|identified direct recursive calls: f_22142 1 o|identified direct recursive calls: f_23692 1 o|identified direct recursive calls: f_23759 1 o|identified direct recursive calls: f_24095 1 o|identified direct recursive calls: f_24202 1 o|identified direct recursive calls: f_24238 1 o|unused rest argument: args4177 f_24578 o|fast box initializations: 137 o|fast global references: 39 o|fast global assignments: 12 o|dropping unused closure argument: f_11467 o|dropping unused closure argument: f_18830 o|dropping unused closure argument: f_11767 o|dropping unused closure argument: f_13739 o|dropping unused closure argument: f_10935 o|dropping unused closure argument: f_10170 o|dropping unused closure argument: f_23120 o|dropping unused closure argument: f_12283 o|dropping unused closure argument: f_19443 o|dropping unused closure argument: f_23834 o|dropping unused closure argument: f_22186 o|dropping unused closure argument: f_23818 o|dropping unused closure argument: f_22233 o|dropping unused closure argument: f_19255 o|dropping unused closure argument: f_12377 o|dropping unused closure argument: f_20860 */ /* end of file */ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/library.scm��������������������������������������������������������������������������0000644�0001750�0001750�00000516040�13052306173�015166� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; library.scm - R5RS library for the CHICKEN compiler ; ; Copyright (c) 2008-2017, 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 read-marks ##sys#print-exit ##sys#format-here-doc-warning exit-in-progress maximal-string-length) (not inline ##sys#user-read-hook ##sys#error-hook ##sys#signal-hook ##sys#schedule ##sys#default-read-info-hook ##sys#infix-list-hook ##sys#sharp-number-hook ##sys#user-print-hook ##sys#user-interrupt-hook ##sys#step-hook) (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_direct_continuation(dummy) t1 #define C_a_get_current_seconds(ptr, c, dummy) C_flonum(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; } EOF ) ) (include "common-declarations.scm") (include "banner.scm") (define-constant namespace-max-id-len 31) (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)) ;;; System routines: (define (exit #!optional (code 0)) ((##sys#exit-handler) code)) (define (reset) ((##sys#reset-handler))) (define (##sys#quit-hook result) ((##sys#exit-handler) 0)) (define (quit #!optional result) (##sys#quit-hook result)) (define (error . args) (if (pair? args) (apply ##sys#signal-hook #:error args) (##sys#signal-hook #:error #f))) (define ##sys#warnings-enabled #t) (define ##sys#notices-enabled (##sys#fudge 13)) (define (warning msg . args) (when ##sys#warnings-enabled (apply ##sys#signal-hook #:warning msg args) ) ) (define (notice msg . args) (when (and ##sys#notices-enabled ##sys#warnings-enabled) (apply ##sys#signal-hook #:notice msg args) ) ) (define (enable-warnings . 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 main_argc int "C_main_argc") (define-foreign-variable main_argv c-pointer "C_main_argv") (define-foreign-variable strerror c-string "strerror(errno)") (define (set-gc-report! flag) (##core#inline "C_set_gc_report" flag)) (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 (argc+argv) (##sys#values main_argc main_argv)) (define ##sys#make-structure (##core#primitive "C_make_structure")) (define ##sys#ensure-heap-reserve (##core#primitive "C_ensure_heap_reserve")) (define (##sys#fudge index) (##core#inline "C_fudge" index)) (define return-to-host (##core#primitive "C_return_to_host")) (define ##sys#symbol-table-info (##core#primitive "C_get_symbol_table_info")) (define ##sys#memory-info (##core#primitive "C_get_memory_info")) (define (current-milliseconds) (##core#inline_allocate ("C_a_i_current_milliseconds" 4) #f)) (define (current-gc-milliseconds) (##sys#fudge 31)) (define ##sys#decode-seconds (##core#primitive "C_decode_seconds")) (define get-environment-variable (foreign-lambda c-string "C_getenv" c-string)) (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 (void . _) (##core#undefined)) (define ##sys#void void) (define ##sys#undefined-value (##core#undefined)) (define (##sys#halt msg) (##core#inline "C_halt" msg)) (define (##sys#flo2fix n) (##core#inline "C_quickflonumtruncate" n)) (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#apply-argument-limit (##sys#fudge 34)) (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) ) (define (current-seconds) (##core#inline_allocate ("C_a_get_current_seconds" 4) #f)) (define cpu-time (let ((buf (vector #f #f))) (lambda () ;; 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))))) (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-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-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-hook (foreign-value "C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR" int) (and (pair? loc) (car loc)) x) ) ) (define (##sys#check-range i from to . loc) (##sys#check-exact 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) ) ) (define (force 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)) (define ##sys#force force) (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) ) ) ) ;;; Dynamic Load (define ##sys#dload (##core#primitive "C_dload")) (define ##sys#set-dlopen-flags! (##core#primitive "C_set_dlopen_flags")) ;;; 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 (##sys#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#error-not-a-proper-list arg #!optional loc) (##sys#error-hook (foreign-value "C_NOT_A_PROPER_LIST_ERROR" int) loc arg)) (define (append . 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 (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 (##sys#fast-reverse lst0) (let loop ((lst lst0) (rest '())) (if (pair? lst) (loop (##sys#slot lst 1) (cons (##sys#slot lst 0) rest)) rest))) (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 (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-inline (%make-string size fill) (##sys#allocate-vector size #t fill #f) ) (define (##sys#make-string size #!optional (fill #\space)) (%make-string size fill)) (define (make-string size . fill) (##sys#check-exact 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 ) ) ) ) (define string->list (lambda (s) (##sys#check-string s 'string->list) (let ((len (##core#inline "C_block_size" s))) (let loop ((i 0)) (if (fx>= i len) '() (cons (##core#inline "C_subchar" s i) (loop (fx+ i 1)) ) ) ) ) ) ) (define ##sys#string->list string->list) (define (list->string 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 (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) ) ) (define ##sys#reverse-list->string reverse-list->string) (define (string-fill! 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) ) (define 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) ) ) (define (substring s start . end) (##sys#check-string s 'substring) (##sys#check-exact start 'substring) (let ([end (if (pair? end) (let ([end (car end)]) (##sys#check-exact 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 ) ) (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)) (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! string<? (lambda (s1 s2) (compare s1 s2 'string<? (lambda (len1 len2 cmp) (or (fx< cmp 0) (and (fx< len1 len2) (eq? cmp 0) ) ) ) ) ) ) (set! string>? (lambda (s1 s2) (compare s1 s2 'string>? (lambda (len1 len2 cmp) (or (fx> cmp 0) (and (fx< len2 len1) (eq? cmp 0) ) ) ) ) ) ) (set! string<=? (lambda (s1 s2) (compare s1 s2 'string<=? (lambda (len1 len2 cmp) (if (eq? cmp 0) (fx<= len1 len2) (fx< cmp 0) ) ) ) ) ) (set! 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! 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! 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! 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! 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) ) (define (string-append . 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 ) ) (define 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)) ) ) ) ) ) ;;; Numeric routines: (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 (fixnum? x) (##core#inline "C_fixnump" x)) (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 (fx/ x y) (##core#inline "C_fixnum_divide" x y) ) (define (fxmod x y) (##core#inline "C_fixnum_modulo" x y) ) ;; these are currently undocumented (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) ) (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 (flonum? x) (##core#inline "C_i_flonump" x)) (define (finite? x) (##sys#check-number x 'finite?) (##core#inline "C_i_finitep" x) ) (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 (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 ##sys#floor fpfloor) ;XXX needed for backwards compatibility with "numbers" egg (really?) (define ##sys#truncate fptruncate) (define ##sys#ceiling fpceiling) (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 * (##core#primitive "C_times")) (define - (##core#primitive "C_minus")) (define + (##core#primitive "C_plus")) (define / (##core#primitive "C_divide")) (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 add1 (lambda (n) (+ n 1))) (define sub1 (lambda (n) (- n 1))) (define quotient (##core#primitive "C_quotient")) (define (number? x) (##core#inline "C_i_numberp" x)) (define ##sys#number? number?) (define complex? number?) (define real? number?) (define (rational? n) (##core#inline "C_i_rationalp" n)) (define ##sys#flonum-fraction (##core#primitive "C_flonum_fraction")) (define ##sys#fprat (##core#primitive "C_flonum_rat")) (define (integer? x) (##core#inline "C_i_integerp" x)) (define ##sys#integer? integer?) (define (exact? x) (##core#inline "C_i_exactp" x)) (define (inexact? x) (##core#inline "C_i_inexactp" x)) (define ##sys#exact? exact?) (define ##sys#inexact? inexact?) (define expt (##core#primitive "C_expt")) (define (##sys#fits-in-int? n) (##core#inline "C_fits_in_int_p" n)) (define (##sys#fits-in-unsigned-int? n) (##core#inline "C_fits_in_unsigned_int_p" n)) (define (##sys#flonum-in-fixnum-range? n) (##core#inline "C_flonum_in_fixnum_range_p" n)) (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 (abs n) (##core#inline_allocate ("C_a_i_abs" 4) n)) ; 4 => words-per-flonum (define (angle n) (##sys#check-number n 'angle) (if (< n 0) (fp* 2.0 (acos 0.0)) 0.0) ) (define (real-part n) (##sys#check-number n 'real-part) n) (define (imag-part n) (##sys#check-number n 'imag-part) 0) (define (numerator n) (##sys#check-number n 'numerator) (cond ((##core#inline "C_u_i_exactp" n) n) ((##core#inline "C_i_finitep" n) (receive (num denom) (##sys#fprat n) num)) (else (##sys#signal-hook #:type-error 'numerator "bad argument type - not a rational number" n)) ) ) (define (denominator n) (##sys#check-number n 'denominator) (cond ((##core#inline "C_u_i_exactp" n) 1) ((##core#inline "C_i_finitep" n) (receive (num denom) (##sys#fprat n) denom)) (else (##sys#signal-hook #:type-error 'denominator "bad argument type - not a rational number" n)) ) ) (define magnitude abs) (define (signum n) (cond ((> n 0) (if (##sys#exact? n) 1 1.0)) ((< n 0) (if (##sys#exact? n) -1 -1.0)) (else (if (##sys#exact? n) 0 0.0) ) ) ) ;; hooks for numbers (define (exact->inexact n) (##core#inline_allocate ("C_a_i_exact_to_inexact" 4) n)) (define (inexact->exact n) (##core#inline "C_i_inexact_to_exact" n)) (define ##sys#exact->inexact exact->inexact) (define ##sys#inexact->exact inexact->exact) (define (floor x) (##sys#check-number x 'floor) (if (##core#inline "C_fixnump" x) x (fpfloor x) ) ) (define (ceiling x) (##sys#check-number x 'ceiling) (if (##core#inline "C_fixnump" x) x (fpceiling x) ) ) (define (truncate x) (##sys#check-number x 'truncate) (if (##core#inline "C_fixnump" x) x (fptruncate x) ) ) (define (round x) (##sys#check-number x 'round) (if (##core#inline "C_fixnump" x) x (##core#inline_allocate ("C_a_i_flonum_round_proper" 4) x))) (define remainder (lambda (x y) (- x (* (quotient x y) y))) ) (define (modulo a b) ; copied from chibi scheme without asking Alex (let ((res (- a (* (quotient a b) b))) ) ; remainder (if (< b 0) (if (<= res 0) res (+ res b)) (if (>= res 0) res (+ res b))))) (define (even? n) (##core#inline "C_i_evenp" n)) (define (odd? n) (##core#inline "C_i_oddp" n)) (define max) (define min) (letrec ((maxmin (lambda (n1 ns pred) (let loop ((nbest n1) (inexact (##core#inline "C_blockp" n1)) (ns ns)) (if (eq? ns '()) (if (and inexact (not (##core#inline "C_blockp" nbest))) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) nbest) nbest) (let ([ni (##sys#slot ns 0)]) (loop (if (pred ni nbest) ni nbest) (or inexact (##core#inline "C_blockp" ni)) (##sys#slot ns 1) ) ) ) ) ) ) ) (set! max (lambda (n1 . ns) (##sys#check-number n1 'max) (maxmin n1 ns >))) (set! min (lambda (n1 . ns) (##sys#check-number n1 'min) (maxmin n1 ns <))) ) (define (exp n) (##core#inline_allocate ("C_a_i_exp" 4) n) ) (define (log n) (##core#inline_allocate ("C_a_i_log" 4) n) ) (define (sin n) (##core#inline_allocate ("C_a_i_sin" 4) n) ) (define (cos n) (##core#inline_allocate ("C_a_i_cos" 4) n) ) (define (tan n) (##core#inline_allocate ("C_a_i_tan" 4) n) ) (define (asin n) (##core#inline_allocate ("C_a_i_asin" 4) n) ) (define (acos n) (##core#inline_allocate ("C_a_i_acos" 4) n) ) (define (sqrt n) (##core#inline_allocate ("C_a_i_sqrt" 4) n) ) (define (atan n1 . n2) (if (null? n2) (##core#inline_allocate ("C_a_i_atan" 4) n1) (let ([n2 (car n2)]) (##core#inline_allocate ("C_a_i_atan2" 4) n1 n2) ) ) ) (define ##sys#gcd (let ((remainder remainder)) (lambda (x y) (let loop ((x x) (y y)) (if (zero? y) (abs x) (loop y (remainder x y)) ) ) ) ) ) (define (gcd . ns) (if (eq? ns '()) 0 (let loop ([ns ns] [f #t]) (let ([head (##sys#slot ns 0)] [next (##sys#slot ns 1)] ) (when f (##sys#check-integer head 'gcd)) (if (null? next) (abs head) (let ([n2 (##sys#slot next 0)]) (##sys#check-integer n2 'gcd) (loop (cons (##sys#gcd head n2) (##sys#slot next 1)) #f) ) ) ) ) ) ) (define (##sys#lcm x y) (quotient (* x y) (##sys#gcd x y)) ) (define (lcm . ns) (if (null? ns) 1 (let loop ([ns ns] [f #t]) (let ([head (##sys#slot ns 0)] [next (##sys#slot ns 1)] ) (when f (##sys#check-integer head 'lcm)) (if (null? next) (abs head) (let ([n2 (##sys#slot next 0)]) (##sys#check-integer n2 'lcm) (loop (cons (##sys#lcm head n2) (##sys#slot next 1)) #f) ) ) ) ) ) ) (define (string->number str #!optional (radix 10) exactness) (let ((num (##core#inline_allocate ("C_a_i_string_to_number" 4) str radix))) (case exactness ((i) (##core#inline_allocate ("C_a_i_exact_to_inexact" 4) num)) ;; If inf/nan, don't error but just return #f ((e) (and num (##core#inline "C_i_finitep" num) (##core#inline "C_i_inexact_to_exact" num))) (else num)))) (define ##sys#string->number string->number) (define number->string (##core#primitive "C_number_to_string")) (define ##sys#fixnum->string (##core#primitive "C_fixnum_to_string")) (define ##sys#number->string number->string) (define (flonum-print-precision #!optional prec) (let ([prev (##core#inline "C_get_print_precision")]) (when prec (##sys#check-exact prec 'flonum-print-precision) (##core#inline "C_set_print_precision" prec) ) prev ) ) (define (equal=? 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)) ((fixnum? x) (if (flonum? y) (= x y) (eq? x y))) ((flonum? x) (and (or (fixnum? y) (flonum? y)) (= 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#make-symbol (##core#primitive "C_make_symbol")) (define (symbol? x) (##core#inline "C_i_symbolp" x)) (define ##sys#snafu '##sys#fnord) (define ##sys#intern-symbol (##core#primitive "C_string_to_symbol")) (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) (define ##sys#symbol->qualified-string) (define ##sys#qualified-symbol-prefix) (let ([string-append string-append] [string-copy string-copy] ) (define (split str len) (let ([b0 (##sys#byte str 0)]) ; we fetch the byte, wether len is 0 or not (if (and (fx> len 0) (fx< b0 len) (fx<= b0 namespace-max-id-len)) (fx+ b0 1) #f) ) ) (set! ##sys#symbol->string (lambda (s) (let* ([str (##sys#slot s 1)] [len (##sys#size str)] [i (split str len)] ) (if i (##sys#substring str i len) str) ) ) ) (set! ##sys#symbol->qualified-string (lambda (s) (let* ([str (##sys#slot s 1)] [len (##sys#size str)] [i (split str len)] ) (if i (string-append "##" (##sys#substring str 1 i) "#" (##sys#substring str i len)) str) ) ) ) (set! ##sys#qualified-symbol-prefix (lambda (s) (let* ([str (##sys#slot s 1)] [len (##sys#size str)] [i (split str len)] ) (and i (##sys#substring str 0 i)) ) ) ) ) (define (##sys#qualified-symbol? s) (let ((str (##sys#slot s 1))) (and (fx> (##sys#size str) 0) (fx<= (##sys#byte str 0) namespace-max-id-len)))) (define ##sys#string->qualified-symbol (lambda (prefix str) (##sys#string->symbol (if prefix (##sys#string-append prefix str) str) ) ) ) (define (symbol->string s) (##sys#check-symbol s 'symbol->string) (string-copy (##sys#symbol->string s) ) ) (define string->symbol (let ([string-copy string-copy]) (lambda (str) (##sys#check-string str 'string->symbol) (##sys#intern-symbol (string-copy str)) ) ) ) (define string->uninterned-symbol (let ([string-copy string-copy]) (lambda (str) (##sys#check-string str 'string->uninterned-symbol) (##sys#make-symbol (string-copy str)) ) ) ) (define 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)) (##sys#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) ) ) ) ) ) ) (define 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: (define (keyword? x) (and (symbol? x) (fx= 0 (##sys#byte (##sys#slot x 1) 0))) ) (define string->keyword (let ([string string] ) (lambda (s) (##sys#check-string s 'string->keyword) (##sys#intern-symbol (##sys#string-append (string (integer->char 0)) 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-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) ;;; Blob: (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-exact 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))))) ;;; 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 size . fill) (##sys#check-exact 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) (define (list->vector 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)) ) ) ) ) )) (define (vector->list 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)) ) ) ) ) ) (define (vector . xs) (##sys#list->vector xs) ) (define (vector-fill! 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) ) ) ) (define (vector-copy! 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-exact 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)) ) ) ) (define (subvector 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))))))) (define (vector-resize v n #!optional init) (##sys#check-vector v 'vector-resize) (##sys#check-exact 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: (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-exact 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<=?) (let ((char-downcase char-downcase)) (set! char-ci=? (lambda (x y) (eq? (char-downcase x) (char-downcase y)))) (set! char-ci>? (lambda (x y) (##core#inline "C_u_i_char_greaterp" (char-downcase x) (char-downcase y)))) (set! char-ci<? (lambda (x y) (##core#inline "C_u_i_char_lessp" (char-downcase x) (char-downcase y)))) (set! char-ci>=? (lambda (x y) (##core#inline "C_u_i_char_greater_or_equal_p" (char-downcase x) (char-downcase y)))) (set! char-ci<=? (lambda (x y) (##core#inline "C_u_i_char_less_or_equal_p" (char-downcase x) (char-downcase y)))) ) (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) ) (define 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 (procedure? x) (##core#inline "C_i_closurep" x)) (define apply (##core#primitive "C_apply")) (define ##sys#call-with-current-continuation (##core#primitive "C_call_cc")) (define (##sys#call-with-direct-continuation k) (##core#app k (##core#inline "C_direct_continuation" #f))) (define ##sys#call-with-cthulhu (##core#primitive "C_call_with_cthulhu")) (define values (##core#primitive "C_values")) (define call-with-values (##core#primitive "C_call_with_values")) (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)) ) )) (define for-each) (define 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! 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! 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 '()) (define (dynamic-wind 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) (define (call-with-current-continuation 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))))) (define 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)) ) ] ) ) (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 ##sys#continuation-graft (##core#primitive "C_continuation_graft")) (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))) ) (##sys#continuation-graft k thunk) ) ) (define continuation-return (lambda (k . vals) (##sys#check-structure k 'continuation 'continuation-return) (continuation-graft k (lambda () (apply values vals))) ) ) ;;; Ports: (define (port? x) (##core#inline "C_i_portp" x)) (define-inline (%port? x) (and (##core#inline "C_blockp" x) (##core#inline "C_portp" x)) ) (define (input-port? x) (and (%port? x) (##sys#slot x 1) ) ) (define (output-port? x) (and (%port? x) (not (##sys#slot x 1)) ) ) (define (port-closed? p) (##sys#check-port p 'port-closed?) (##sys#slot p 8)) ;;; Port layout: ; ; 0: FP (special) ; 1: input/output (bool) ; 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 (bool) ; 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) 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) (##sys#update-errno) (if (eq? (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) (##sys#update-errno) (if (eq? (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) ; 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) (##sys#update-errno) (if (eq? (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-exact 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) (##sys#update-errno) (if (eq? (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 #t ##sys#stream-port-class "(stdin)" 'stream)) (define ##sys#standard-output (##sys#make-port #f ##sys#stream-port-class "(stdout)" 'stream)) (define ##sys#standard-error (##sys#make-port #f ##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 #t open (car loc)) (##core#inline "C_i_check_port" x #t open) ) ) (define (##sys#check-output-port x open . loc) (if (pair? loc) (##core#inline "C_i_check_port_2" x #f open (car loc)) (##core#inline "C_i_check_port" x #f 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) ) ) (define (current-input-port . 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))) (define (current-output-port . 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))) (define (current-error-port . 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)) (define ##sys#platform-fixup-pathname (let* ([bp (string->symbol ((##core#primitive "C_build_platform")))] [fixsuffix (eq? bp 'mingw32)]) (lambda (name) (if fixsuffix (let ([end (fx- (##sys#size name) 1)]) (if (fx>= end 0) (let ([c (##core#inline "C_subchar" name end)]) (if (or (eq? c #\\) (eq? c #\/)) (##sys#substring name 0 end) name) ) name) ) name) ) ) ) (define open-input-file) (define open-output-file) (define close-input-port) (define close-output-port) (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 inp ##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 loc) (##sys#check-port port loc) ;; repeated closing is ignored (unless (##sys#slot port 8) ; closed? ((##sys#slot (##sys#slot port 2) 4) port) ; close (##sys#setislot port 8 #t) ) (##core#undefined) ) (set! open-input-file (lambda (name . mode) (open name #t mode 'open-input-file))) (set! open-output-file (lambda (name . mode) (open name #f mode 'open-output-file))) (set! close-input-port (lambda (port) (close port 'close-input-port))) (set! close-output-port (lambda (port) (close port 'close-output-port))) ) (define 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) ) ) ) ) ) ) (define 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) ) ) ) ) ) ) (define 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) ) ) ) ) ) ) ) (define 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 (file-exists? name) (##sys#check-string name 'file-exists?) (and (##sys#file-exists? (##sys#platform-fixup-pathname name) #f #f 'file-exists?) name) ) (define (directory-exists? name) (##sys#check-string name 'directory-exists?) (and (##sys#file-exists? (##sys#platform-fixup-pathname name) #f #t 'directory-exists?) name) ) (define (##sys#flush-output port) ((##sys#slot (##sys#slot port 2) 5) port) ; flush-output (##core#undefined) ) (define (flush-output #!optional (port ##sys#standard-output)) (##sys#check-output-port port #t 'flush-output) (##sys#flush-output port) ) (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 (##sys#port-line port) (and (##sys#slot port 1) (##sys#slot port 4) ) ) (define (port-position #!optional (port ##sys#standard-input)) (##sys#check-port port 'port-position) (if (##sys#slot port 1) (##sys#values (##sys#slot port 4) (##sys#slot port 5)) (##sys#error 'port-position "cannot compute position of port" port) ) ) (define (delete-file filename) (##sys#check-string filename 'delete-file) (unless (eq? 0 (##core#inline "C_delete_file" (##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 (rename-file old new) (##sys#check-string old 'rename-file) (##sys#check-string new 'rename-file) (unless (eq? 0 (##core#inline "C_rename_file" (##sys#make-c-string old 'rename-file) (##sys#make-c-string new))) (##sys#update-errno) (##sys#signal-hook #:file-error 'rename-file (##sys#string-append "cannot rename file - " strerror) old new) ) new) ;;; 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) ) (define 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))) ) (define 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't set setter of non-procedure" get) ) ) ) ) proc) ) ) (define ##sys#setter setter) (define (getter-with-setter 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! car (getter-with-setter car set-car! "(car p)")) (set! cdr (getter-with-setter cdr set-cdr! "(cdr p)")) (set! caar (getter-with-setter caar (lambda (x y) (set-car! (car x) y)) "(caar p)")) (set! cadr (getter-with-setter cadr (lambda (x y) (set-car! (cdr x) y)) "(cadr p)")) (set! cdar (getter-with-setter cdar (lambda (x y) (set-cdr! (car x) y)) "(cdar p)")) (set! cddr (getter-with-setter cddr (lambda (x y) (set-cdr! (cdr x) y)) "(cddr p)")) (set! caaar (getter-with-setter caaar (lambda (x y) (set-car! (caar x) y)) "(caaar p)")) (set! caadr (getter-with-setter caadr (lambda (x y) (set-car! (cadr x) y)) "(caadr p)")) (set! cadar (getter-with-setter cadar (lambda (x y) (set-car! (cdar x) y)) "(cadar p)")) (set! caddr (getter-with-setter caddr (lambda (x y) (set-car! (cddr x) y)) "(caddr p)")) (set! cdaar (getter-with-setter cdaar (lambda (x y) (set-cdr! (caar x) y)) "(cdaar p)")) (set! cdadr (getter-with-setter cdadr (lambda (x y) (set-cdr! (cadr x) y)) "(cdadr p)")) (set! cddar (getter-with-setter cddar (lambda (x y) (set-cdr! (cdar x) y)) "(cddar p)")) (set! cdddr (getter-with-setter cdddr (lambda (x y) (set-cdr! (cddr x) y)) "(cdddr p)")) (set! string-ref (getter-with-setter string-ref string-set! "(string-ref str i)")) (set! vector-ref (getter-with-setter vector-ref vector-set! "(vector-ref vec i)")) (set! list-ref (getter-with-setter list-ref (lambda (x i y) (set-car! (list-tail x i) y)) "(list-ref lst i)")) ;;; Parameters: (define ##sys#default-parameter-vector (##sys#make-vector default-parameter-vector-size)) (define ##sys#current-parameter-vector '#()) (define 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: (define (eof-object? x) (##core#inline "C_eofp" x)) (define (char-ready? #!optional (port ##sys#standard-input)) (##sys#check-input-port port #t 'char-ready?) ((##sys#slot (##sys#slot port 2) 6) port) ) ; char-ready? (define (read-char #!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) ) ) (define (peek-char #!optional (port ##sys#standard-input)) (##sys#check-input-port port #t 'peek-char) (##sys#peek-char-0 port) ) (define (read #!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#enable-qualifiers #t) (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) ) (define case-sensitive (make-parameter #t)) (define keyword-style (make-parameter #:suffix)) (define parentheses-synonyms (make-parameter #t)) (define symbol-escape (make-parameter #t)) (define 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 current-read-table) (kwprefix (string (integer->char 0)))) (lambda (port infohandler) (let ([csp (case-sensitive)] [ksp (keyword-style)] [psp (parentheses-synonyms)] [sep (symbol-escape)] [crt (current-read-table)] [rat-flag #f] ; 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) (set! rat-flag #f) (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)) (else (let ((val (##sys#string->number tok (or radix 10) exactness)) ) (cond (val (when (and (##sys#inexact? val) (not (eq? exactness 'i)) rat-flag) (##sys#read-warning port "cannot represent exact fraction - coerced to flonum" tok) ) val) (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 (when (char=? c #\/) (set! rat-flag #t)) (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* ([p (##sys#make-string 1)] [tok (r-token)] [toklen (##sys#size tok)] ) (unless ##sys#enable-qualifiers (##sys#read-error port "qualified symbol syntax is not allowed" tok) ) (let loop ([i 0]) (cond [(fx>= i toklen) (##sys#read-error port "invalid qualified symbol syntax" tok) ] [(fx= (##sys#byte tok i) (char->integer #\#)) (when (fx> i namespace-max-id-len) (set! tok (##sys#substring tok 0 namespace-max-id-len)) ) (##sys#setbyte p 0 i) (##sys#intern-symbol (string-append p (##sys#substring tok 0 i) (##sys#substring tok (fx+ i 1) toklen)) ) ] [else (loop (fx+ i 1))] ) ) ) ) (define (build-symbol tok) (##sys#intern-symbol tok) ) (define (build-keyword tok) (##sys#intern-symbol (##sys#string-append kwprefix 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) (list 'quote (readrec)) ) ((#\`) (##sys#read-char-0 port) (list 'quasiquote (readrec)) ) ((#\,) (##sys#read-char-0 port) (cond ((eq? (##sys#peek-char-0 port) #\@) (##sys#read-char-0 port) (list 'unquote-splicing (readrec)) ) (else (list 'unquote (readrec))) ) ) ((#\#) (##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) (list 'quasisyntax (readrec)) ) ((#\$) (##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 (list 'location (readrec)) )))) ((#\:) (##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))))))) ((#\%) (build-symbol (##sys#string-append "#" (r-token))) ) ((#\+) (##sys#read-char-0 port) (let ((tst (readrec))) (list 'cond-expand (list tst (readrec)) '(else)) ) ) ((#\!) (##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) 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: ; ; - should be either #f or a 256-element vector containing procedures ; - the procedure is called with two arguments, a char (peeked) and a port and should return an expression (define read-marks '()) (define (##sys#set-read-mark! sym proc) (let ((a (assq sym read-marks))) (if a (##sys#setslot a 1 proc) (set! read-marks (cons (cons sym proc) read-marks)) ) ) ) (define set-read-syntax!) (define set-sharp-read-syntax!) (define set-parameterized-read-syntax!) (let ((crt current-read-table)) (define ((syntax-setter loc slot wrap) chr proc) (cond ((symbol? chr) (##sys#set-read-mark! chr proc)) (else (let ((crt (crt))) (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)))))))) (set! set-read-syntax! (syntax-setter 'set-read-syntax! 1 (lambda (proc) (lambda (_ port) (##sys#read-char-0 port) (proc port) ) ) ) ) (set! set-sharp-read-syntax! (syntax-setter 'set-sharp-read-syntax! 2 (lambda (proc) (lambda (_ port) (##sys#read-char-0 port) (proc port) ) ) ) ) (set! 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) ) ) )) ;;; 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) ) (define (write-char 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) ) (define (newline #!optional (port ##sys#standard-output)) (##sys#write-char/port #\newline port) ) (define (write x #!optional (port ##sys#standard-output)) (##sys#check-output-port port #t 'write) (##sys#print x #t port) ) (define (display 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) ) (define (print . args) (##sys#check-output-port ##sys#standard-output #t 'print) (*print-each args) (##sys#write-char-0 #\newline ##sys#standard-output) (void) ) (define (print* . 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 #\:) (not (eq? ksp #:prefix))) ((and (eq? c #\#) (not (eq? #\% (##core#inline "C_subchar" str 1)))) #f) ((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)) (not (eq? ksp #:suffix))) (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))) ((eq? x (##sys#slot '##sys#arbitrary-unbound-symbol 0)) (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_symbolp" x) (cond ((fx= 0 (##sys#byte (##sys#slot x 1) 0)) ; keyword (case ksp ((#:prefix) (outchr port #\:) (outsym port x)) ((#:suffix) (outsym port x) (outchr port #\:)) (else (outstr port "#:") (outsym port x)))) ((##sys#qualified-symbol? x) (outstr port (##sys#symbol->qualified-string x))) (else (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) (if (##sys#slot x 1) (outstr port "#<input port \"") (outstr port "#<output 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))))))) ;;; Bitwise fixnum operations: (define (bitwise-and . xs) (let loop ([x -1] [xs xs]) (if (null? xs) x (loop (##core#inline_allocate ("C_a_i_bitwise_and" 4) x (##sys#slot xs 0)) (##sys#slot xs 1)) ) ) ) (define (bitwise-ior . xs) (let loop ([x 0] [xs xs]) (if (null? xs) x (loop (##core#inline_allocate ("C_a_i_bitwise_ior" 4) x (##sys#slot xs 0)) (##sys#slot xs 1)) ) ) ) (define (bitwise-xor . xs) (let loop ([x 0] [xs xs]) (if (null? xs) x (loop (##core#inline_allocate ("C_a_i_bitwise_xor" 4) x (##sys#slot xs 0)) (##sys#slot xs 1)) ) ) ) (define (bitwise-not x) (##core#inline_allocate ("C_a_i_bitwise_not" 4) x) ) (define (arithmetic-shift x y) (##core#inline_allocate ("C_a_i_arithmetic_shift" 4) x y) ) (define (bit-set? n i) (##core#inline "C_i_bit_setp" n i) ) ;;; 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) ; char-ready? (fx< (##sys#slot p 10) (##sys#slot p 11)) ) (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)) ) ) ) ) ) (define (open-input-string string) (##sys#check-string string 'open-input-string) (let ([port (##sys#make-port #t ##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 ) ) (define (open-output-string) (let ([port (##sys#make-port #f ##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 ) ) (define (get-output-string 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) (cond ((##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) ">") ) ((##core#inline "C_swigpointerp" x) (string-append "#<SWIG pointer 0x" (##sys#number->string (##sys#pointer->address x) 16) ">") ) (else (string-append "#<pointer 0x" (##sys#number->string (##sys#pointer->address x) 16) ">") ) ) ) ) ) ;;; Platform configuration inquiry: (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 (build-platform)))) ) (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 (##sys#fudge 3) " 64bit" "") (if (##sys#fudge 15) " symbolgc" "") (if (##sys#fudge 40) " manyargs" "") (if (##sys#fudge 24) " dload" "") (if (##sys#fudge 28) " ptables" "") (if (##sys#fudge 32) " gchooks" "") (if (##sys#fudge 39) " 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 " ]") ) "\n" (or (##sys#build-tag) ""))) ##sys#build-version) ) ;;; Feature identifiers: (define ##sys#->feature-id (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 [(string? x) (string->keyword x)] [(keyword? x) x] [(symbol? x) (string->keyword (##sys#symbol->string x))] [else (err x)] ) ) ) ) (define ##sys#features '(#:chicken #:srfi-6 #:srfi-10 #:srfi-23 #:srfi-30 #:srfi-39 #:srfi-62 #:srfi-17 #:srfi-12 #:srfi-88 #:srfi-98 #:irregex-is-core-unit)) ;; Add system features: (let ((check (lambda (f) (unless (eq? 'unknown f) (set! ##sys#features (cons (##sys#->feature-id f) ##sys#features)))))) (check (software-type)) (check (software-version)) (check (build-platform)) (check (machine-type)) (check (machine-byte-order)) ) (when (##sys#fudge 40) (set! ##sys#features (cons #:manyargs ##sys#features))) (when (##sys#fudge 24) (set! ##sys#features (cons #:dload ##sys#features))) (when (##sys#fudge 28) (set! ##sys#features (cons #:ptables ##sys#features))) (when (##sys#fudge 39) (set! ##sys#features (cons #:cross-chicken ##sys#features))) (when (##sys#fudge 3) (set! ##sys#features (cons #:64bit ##sys#features))) (set! ##sys#features (let ((major (##sys#string-append "chicken-" (##sys#number->string (##sys#fudge 41))))) (cons (##sys#->feature-id major) (cons (##sys#->feature-id (string-append major "." (##sys#number->string (##sys#fudge 43)))) ##sys#features)))) (define (register-feature! . fs) (for-each (lambda (f) (let ([id (##sys#->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 ##sys#->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 (##sys#->feature-id (##sys#slot ids 0)) ##sys#features) (loop (##sys#slot ids 1)) ) ) ) ) (define ##sys#feature? feature?) ;;; Access backtrace: (define-constant +trace-buffer-entry-slot-count+ 4) (define 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))) ) (let loop ((i 0)) (if (fx>= i n) '() (let ((t (##sys#slot vec (fx+ i 3)))) ; thread (if (or (not t) (not thread) (eq? thread 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) ) ) (define (print-call-chain #!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-exact start 'print-call-chain) (##sys#check-string header 'print-call-chain) (let ((ct (##sys#get-call-chain start thread))) (##sys#really-print-call-chain port ct header) ct)) (define ##sys#get-call-chain get-call-chain) ;;; 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 ##sys#break-on-error (##sys#fudge 25)) (define-foreign-variable _ex_software int "EX_SOFTWARE") (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 ((##sys#fudge 4) (##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? 'repl)) (repl) (##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 reset-handler (make-parameter (lambda () ((##sys#exit-handler) _ex_software)) ) ) (define exit-in-progress #f) (define exit-handler (make-parameter (lambda (#!optional (code 0)) (##sys#check-exact code) (cond (exit-in-progress (##sys#warn "\"exit\" called while processing on-exit tasks")) (else (##sys#cleanup-before-exit) (##core#inline "C_exit_runtime" code)))))) (define implicit-exit-handler (make-parameter (lambda () (##sys#cleanup-before-exit) ) ) ) (define ##sys#exit-handler exit-handler) (define ##sys#reset-handler reset-handler) (define ##sys#implicit-exit-handler implicit-exit-handler) (define force-finalizers (make-parameter #t)) (define ##sys#cleanup-tasks '()) (define (##sys#cleanup-before-exit) (set! exit-in-progress #t) (when (##sys#fudge 37) ; -:H given? (##sys#print "\n" #f ##sys#standard-error) (##sys#dump-heap-state)) (when (##sys#fudge 45) ; -:p or -:P given? (##core#inline "C_i_dump_statistical_profile")) (let loop () (let ((tasks ##sys#cleanup-tasks)) (set! ##sys#cleanup-tasks '()) (unless (null? tasks) (for-each (lambda (t) (t)) tasks) (loop)))) (when (##sys#fudge 13) ; debug mode (##sys#print "[debug] forcing finalizers...\n" #f ##sys#standard-error) ) (when (force-finalizers) (##sys#force-finalizers)) ) (define (on-exit thunk) (set! ##sys#cleanup-tasks (cons thunk ##sys#cleanup-tasks))) ;;; Condition handling: (define (##sys#debugger msg . args) (##core#inline "signal_debug_event" #:debugger-invocation msg args) ) (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) (##sys#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 (##sys#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)] ) (##sys#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) (##sys#get-call-chain) '(exn . location) loc) ) ) ) ] ) ) (define (abort x) (##sys#current-exception-handler x) (##sys#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#abort abort) (define ##sys#signal signal) (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->qualified-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)) ) ) ) ) (##sys#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)) ) ) ) (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))) (define (make-property-condition kind . props) (##sys#make-structure 'condition (list kind) (let loop ((props props)) (if (null? props) '() (cons (cons kind (car props)) (cons (cadr props) (loop (cddr 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? x) (##sys#structure? x 'condition)) (define (condition->list x) (or (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)) (res '())) (cond ((null? props) res) ((eq? k (caar props)) (loop (cddr props) (cons (list (cdar props) (cadr props)) res))) (else (loop (cddr props) res)))))) (##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))) ;;; 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) ...unused...) ((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 an input-port" args)) ((41) (apply ##sys#signal-hook #:type-error loc "bad argument type - not an output-port" args)) ((42) (apply ##sys#signal-hook #:file-error loc "port already closed" args)) ((43) (apply ##sys#signal-hook #:type-error loc "cannot represent string with NUL bytes as C string" args)) ((44) (apply ##sys#signal-hook #:memory-error loc "segmentation violation" args)) ((45) (apply ##sys#signal-hook #:arithmetic-error loc "floating-point exception" args)) ((46) (apply ##sys#signal-hook #:runtime-error loc "illegal instruction" args)) ((47) (apply ##sys#signal-hook #:memory-error loc "bus error" args)) (else (apply ##sys#signal-hook #:runtime-error loc "unknown internal error" args)) ) ) ) ) ;;; 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" 4) x)) (define (##sys#locative? x) (##core#inline "C_locativep" x)) (define (##sys#srfi-4-vector? x) (and (##core#inline "C_blockp" x) (##sys#generic-structure? x) (memq (##sys#slot x 0) '(u8vector u16vector s8vector s16vector u32vector s32vector f32vector f64vector)))) (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 '4' is platform dependent! (##core#inline_allocate ("C_a_unsigned_int_to_num" 4) (##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) (not (eq? (##sys#slot s 0) (##sys#slot '##sys#arbitrary-unbound-symbol 0))) ) (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-integer-argument x) (##core#inline "C_i_foreign_integer_argumentp" x)) (define (##sys#foreign-integer64-argument x) (##core#inline "C_i_foreign_integer64_argumentp" x)) (define (##sys#foreign-unsigned-integer-argument x) (##core#inline "C_i_foreign_unsigned_integer_argumentp" x)) (define (##sys#foreign-unsigned-integer64-argument x) (##core#inline "C_i_foreign_unsigned_integer64_argumentp" x)) ;;; 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? (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 ;;; 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 ##sys#errno int "errno") (define ##sys#update-errno) (define errno) (let ([rn 0]) (set! ##sys#update-errno (lambda () (set! rn ##sys#errno) rn)) (set! errno (lambda () rn)) ) ;;; 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")] ) ] ) ) ) ) ;;; command-line handling (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) ) ) ;;; 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>= (##sys#fudge 26) _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#fudge 13) (##sys#print (string-append "[debug] too many finalizers (" (##sys#number->string (##sys#fudge 26)) "), resized max finalizers to " (##sys#number->string _max_pending_finalizers) "\n") #f ##sys#standard-error))) (else (when (##sys#fudge 13) (##sys#print (string-append "[debug] too many finalizers (" (##sys#fudge 26) "), 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#fudge 13) (##sys#print (string-append "[debug] running " (##sys#number->string c) " finalizer(s) (" (##sys#number->string (##sys#fudge 26)) " live, " (##sys#number->string (##sys#fudge 27)) " 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 (##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) (apply ##sys#gc arg) ) ) ) ;;; 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) ;;; Promises: (define (##sys#make-promise proc) (##sys#make-structure 'promise proc)) (define (promise? x) (##sys#structure? x 'promise) ) (define (make-promise obj) (if (promise? obj) obj (##sys#make-promise (lambda () obj)))) ;;; Internal string-reader: (define ##sys#read-from-string (lambda (s) (let ([i (open-input-string s)]) (read i) ) ) ) ;;; 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->qualified-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) ) ) ) ) ) (and-let* ([args (errargs ex)]) (if (fx= 1 (length args)) (begin (display ": " port) (writeargs args port) ) (begin (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) ) )))) ;;; 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?) ) ] [(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) 8 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) 9 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) ] ) ) ;;; More 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)) ) ) ;;; Property lists (define (put! sym prop val) (##sys#check-symbol sym 'put!) (##core#inline_allocate ("C_a_i_putprop" 8) sym prop val) ) (define ##sys#put! put!) (define (##sys#get sym prop #!optional default) (##sys#check-symbol sym 'get) (##core#inline "C_i_getprop" sym prop default)) (define get (getter-with-setter ##sys#get put! "(get sym prop . default)")) (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) ) ) ) ) ) (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))) "(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) ) ) ) ) ) ;;; 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")) ;;; 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)))))) ;; Some list-operations, used by the syntax-rules implementation, inside module ;; implementation and in csi (define (##sys#del x lst tst) (let loop ((lst lst)) (if (null? lst) '() (let ((y (car lst))) (if (tst x y) (cdr lst) (cons y (loop (cdr lst))) ) ) ) ) ) (define (##sys#nodups lis elt=) (let recur ((lis lis)) (if (null? lis) lis (let* ((x (car lis)) (tail (cdr lis)) (new-tail (recur (##sys#del x tail elt=)))) (if (eq? tail new-tail) lis (cons x new-tail)))))) ;; contributed by Peter Bex (define (##sys#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 (##sys#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)))) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/files.c������������������������������������������������������������������������������0000644�0001750�0001750�00000536664�13052306224�014277� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from files.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:16 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: files.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file files.c unit: files */ #include "chicken.h" #include <errno.h> #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 static C_PTABLE_ENTRY *create_ptable(void); 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_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[109]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,21),40,100,101,108,101,116,101,45,102,105,108,101,42,32,102,105,108,101,54,52,41,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,100,57,51,32,108,57,52,41,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,42),40,102,105,108,101,45,99,111,112,121,32,111,114,105,103,102,105,108,101,55,49,32,110,101,119,102,105,108,101,55,50,32,46,32,116,109,112,55,48,55,51,41,0,0,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,100,49,51,50,32,108,49,51,51,41}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,46),40,102,105,108,101,45,109,111,118,101,32,111,114,105,103,102,105,108,101,49,49,48,32,110,101,119,102,105,108,101,49,49,49,32,46,32,116,109,112,49,48,57,49,49,50,41,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,26),40,97,98,115,111,108,117,116,101,45,112,97,116,104,110,97,109,101,63,32,112,110,49,54,52,41,0,0,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,101,110,49,55,48,41,0,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,17),40,99,104,111,112,45,112,100,115,32,115,116,114,49,54,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,115,116,114,115,49,56,56,41,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,19),40,99,111,110,99,45,100,105,114,115,32,100,105,114,115,49,56,54,41,0,0,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,27),40,99,97,110,111,110,105,99,97,108,105,122,101,45,100,105,114,115,32,100,105,114,115,49,57,50,41,0,0,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,45),40,95,109,97,107,101,45,112,97,116,104,110,97,109,101,32,108,111,99,50,48,48,32,100,105,114,50,48,49,32,102,105,108,101,50,48,50,32,101,120,116,50,48,51,41,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,43),40,109,97,107,101,45,112,97,116,104,110,97,109,101,32,100,105,114,115,50,50,53,32,102,105,108,101,50,50,54,32,46,32,116,109,112,50,50,52,50,50,55,41,0,0,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,52),40,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,50,51,55,32,102,105,108,101,50,51,56,32,46,32,116,109,112,50,51,54,50,51,57,41,0,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,18),40,115,116,114,105,112,45,112,100,115,32,100,105,114,50,53,54,41,0,0,0,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,26),40,100,101,99,111,109,112,111,115,101,45,112,97,116,104,110,97,109,101,32,112,110,50,53,57,41,0,0,0,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,7),40,97,49,52,55,48,41,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,47),40,97,49,52,55,54,32,100,105,114,50,54,53,50,54,54,50,55,49,32,102,105,108,101,50,54,55,50,54,56,50,55,50,32,101,120,116,50,54,57,50,55,48,50,55,51,41,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,26),40,112,97,116,104,110,97,109,101,45,100,105,114,101,99,116,111,114,121,32,112,110,50,54,52,41,0,0,0,0,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,7),40,97,49,52,56,53,41,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,47),40,97,49,52,57,49,32,100,105,114,50,55,57,50,56,48,50,56,53,32,102,105,108,101,50,56,49,50,56,50,50,56,54,32,101,120,116,50,56,51,50,56,52,50,56,55,41,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,21),40,112,97,116,104,110,97,109,101,45,102,105,108,101,32,112,110,50,55,56,41,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,7),40,97,49,53,48,48,41,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,47),40,97,49,53,48,54,32,100,105,114,50,57,51,50,57,52,50,57,57,32,102,105,108,101,50,57,53,50,57,54,51,48,48,32,101,120,116,50,57,55,50,57,56,51,48,49,41,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,26),40,112,97,116,104,110,97,109,101,45,101,120,116,101,110,115,105,111,110,32,112,110,50,57,50,41,0,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,7),40,97,49,53,49,53,41,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,47),40,97,49,53,50,49,32,100,105,114,51,48,55,51,48,56,51,49,51,32,102,105,108,101,51,48,57,51,49,48,51,49,52,32,101,120,116,51,49,49,51,49,50,51,49,53,41,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,32),40,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,51,48,54,41}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,7),40,97,49,53,51,51,41,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,47),40,97,49,53,51,57,32,100,105,114,51,50,49,51,50,50,51,50,55,32,102,105,108,101,51,50,51,51,50,52,51,50,56,32,101,120,116,51,50,53,51,50,54,51,50,57,41,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,32),40,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,51,50,48,41}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,7),40,97,49,53,53,49,41,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,45),40,97,49,53,53,55,32,95,51,51,54,51,51,55,51,52,50,32,102,105,108,101,51,51,56,51,51,57,51,52,51,32,101,120,116,51,52,48,51,52,49,51,52,52,41,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,41),40,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,51,51,52,32,100,105,114,51,51,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,7),40,97,49,53,54,57,41,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,44),40,97,49,53,55,53,32,100,105,114,51,53,49,51,53,50,51,53,55,32,95,51,53,51,51,53,52,51,53,56,32,101,120,116,51,53,53,51,53,54,51,53,57,41,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,37),40,112,97,116,104,110,97,109,101,45,114,101,112,108,97,99,101,45,102,105,108,101,32,112,110,51,52,57,32,102,105,108,101,51,53,48,41,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,7),40,97,49,53,56,55,41,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,45),40,97,49,53,57,51,32,100,105,114,51,54,54,51,54,55,51,55,50,32,102,105,108,101,51,54,56,51,54,57,51,55,51,32,95,51,55,48,51,55,49,51,55,52,41,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,41),40,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,51,54,52,32,101,120,116,51,54,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li40[] 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 li41[] C_aligned={C_lihdr(0,0,12),40,97,49,54,53,52,32,112,52,49,49,41,0,0,0,0}; 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,35),40,99,114,101,97,116,101,45,116,101,109,112,111,114,97,114,121,45,102,105,108,101,32,46,32,116,109,112,52,48,49,52,48,50,41,0,0,0,0,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,28),40,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}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,18),40,97,100,100,112,97,114,116,32,112,97,114,116,115,52,50,53,41,0,0,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,6),40,112,100,115,63,41,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,11),40,103,52,54,52,32,112,52,55,51,41,0,0,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,52,54,51,32,103,52,55,48,52,55,54,41,0,0,0,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,28),40,108,111,111,112,32,105,52,53,49,32,112,114,101,118,52,53,50,32,112,97,114,116,115,52,53,51,41,0,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,40),40,110,111,114,109,97,108,105,122,101,45,112,97,116,104,110,97,109,101,32,112,97,116,104,52,51,55,32,46,32,116,109,112,52,51,54,52,51,56,41}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,40),40,115,112,108,105,116,45,100,105,114,101,99,116,111,114,121,32,108,111,99,52,57,54,32,100,105,114,52,57,55,32,107,101,101,112,63,52,57,56,41}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,24),40,100,105,114,101,99,116,111,114,121,45,110,117,108,108,63,32,100,105,114,53,48,49,41}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,28),40,100,101,99,111,109,112,111,115,101,45,100,105,114,101,99,116,111,114,121,32,100,105,114,53,49,48,41,0,0,0,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,14),40,102,95,50,50,48,49,32,112,110,49,52,57,41,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,14),40,102,95,50,50,48,55,32,114,116,49,53,48,41,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,14),40,102,95,50,50,49,54,32,114,116,49,53,50,41,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,30),40,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,49,53,55,41,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,19),40,114,111,111,116,45,111,114,105,103,105,110,32,114,116,49,53,56,41,0,0,0,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,22),40,114,111,111,116,45,100,105,114,101,99,116,111,114,121,32,114,116,49,53,57,41,0,0}; static C_char C_TLS li62[] 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_860) static void C_ccall f_860(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_874) static void C_ccall f_874(C_word c,C_word *av) C_noret; C_noret_decl(f_1516) static void C_ccall f_1516(C_word c,C_word *av) C_noret; C_noret_decl(f_1510) static void C_ccall f_1510(C_word c,C_word *av) C_noret; C_noret_decl(f_783) static void C_ccall f_783(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_1471) static void C_ccall f_1471(C_word c,C_word *av) C_noret; C_noret_decl(f_1477) static void C_ccall f_1477(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_2226) static void C_ccall f_2226(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_1528) static void C_ccall f_1528(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_2234) static void C_ccall f_2234(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_1486) static void C_ccall f_1486(C_word c,C_word *av) C_noret; C_noret_decl(f_2237) static void C_ccall f_2237(C_word c,C_word *av) 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_1534) static void C_ccall f_1534(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_1313) static void C_ccall f_1313(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_noret; C_noret_decl(f_2216) static void C_ccall f_2216(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_1540) static void C_ccall f_1540(C_word c,C_word *av) C_noret; C_noret_decl(f_1324) static void C_ccall f_1324(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_1700) static void C_ccall f_1700(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_955) static void C_ccall f_955(C_word c,C_word *av) C_noret; C_noret_decl(f_2199) static void C_ccall f_2199(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_2196) static void C_ccall f_2196(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_1332) static void C_ccall f_1332(C_word c,C_word *av) C_noret; C_noret_decl(f_1558) static void C_ccall f_1558(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(C_files_toplevel) C_externexport void C_ccall C_files_toplevel(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_2007) static void C_fcall f_2007(C_word t0,C_word t1) C_noret; C_noret_decl(f_1820) static void C_fcall f_1820(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_1724) static void C_ccall f_1724(C_word c,C_word *av) C_noret; C_noret_decl(f_1728) static void C_ccall f_1728(C_word c,C_word *av) C_noret; C_noret_decl(f_1720) static void C_ccall f_1720(C_word c,C_word *av) 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_1672) static void C_ccall f_1672(C_word c,C_word *av) C_noret; C_noret_decl(f_1875) static void C_ccall f_1875(C_word c,C_word *av) 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_1684) static void C_ccall f_1684(C_word c,C_word *av) C_noret; C_noret_decl(f_1884) static void C_fcall f_1884(C_word t0,C_word t1) C_noret; C_noret_decl(f_1881) static void C_ccall f_1881(C_word c,C_word *av) C_noret; C_noret_decl(f_1910) static void C_fcall f_1910(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_999) static void C_ccall f_999(C_word c,C_word *av) C_noret; C_noret_decl(f_2153) static void C_ccall f_2153(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_1655) static void C_ccall f_1655(C_word c,C_word *av) 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_1854) static void C_ccall f_1854(C_word c,C_word *av) C_noret; C_noret_decl(f_1740) static void C_ccall f_1740(C_word c,C_word *av) C_noret; C_noret_decl(f_986) static void C_ccall f_986(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_880) static void C_ccall f_880(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_983) static void C_ccall f_983(C_word c,C_word *av) C_noret; C_noret_decl(f_1861) static void C_fcall f_1861(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1860) static void C_ccall f_1860(C_word c,C_word *av) C_noret; C_noret_decl(f_1750) static C_word C_fcall f_1750(C_word *a,C_word t0,C_word t1); 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_fcall f_973(C_word t0,C_word t1,C_word t2,C_word t3) 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_1690) static void C_fcall f_1690(C_word t0,C_word t1) 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_1694) static void C_ccall f_1694(C_word c,C_word *av) C_noret; C_noret_decl(f_1891) static void C_ccall f_1891(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_1180) static void C_ccall f_1180(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_1576) static void C_ccall f_1576(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_1620) static void C_ccall f_1620(C_word c,C_word *av) C_noret; C_noret_decl(f_1015) static void C_ccall f_1015(C_word c,C_word *av) C_noret; C_noret_decl(f_2061) static void C_fcall f_2061(C_word t0,C_word t1,C_word t2,C_word t3) 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_1073) static void C_ccall f_1073(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_1732) static void C_ccall f_1732(C_word c,C_word *av) C_noret; C_noret_decl(f_1075) static void C_fcall f_1075(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_2074) static void C_ccall f_2074(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_1607) static void C_ccall f_1607(C_word c,C_word *av) C_noret; C_noret_decl(f_1088) static void C_fcall f_1088(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1600) static void C_fcall f_1600(C_word t0,C_word t1) 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_1060) static void C_fcall f_1060(C_word t0,C_word t1) C_noret; C_noret_decl(f_964) static void C_ccall f_964(C_word c,C_word *av) C_noret; C_noret_decl(f_961) static void C_ccall f_961(C_word c,C_word *av) C_noret; C_noret_decl(f_1955) static void C_fcall f_1955(C_word t0,C_word t1) C_noret; C_noret_decl(f_2082) static void C_ccall f_2082(C_word c,C_word *av) C_noret; C_noret_decl(f_1419) static void C_ccall f_1419(C_word c,C_word *av) C_noret; C_noret_decl(f_2084) static C_word C_fcall f_2084(C_word t0); C_noret_decl(f_1614) static void C_ccall f_1614(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_1920) static void C_ccall f_1920(C_word c,C_word *av) C_noret; C_noret_decl(f_1343) static void C_ccall f_1343(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_1346) static void C_ccall f_1346(C_word c,C_word *av) C_noret; C_noret_decl(f_1423) static void C_ccall f_1423(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_1349) static void C_ccall f_1349(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_1248) static void C_ccall f_1248(C_word c,C_word *av) C_noret; C_noret_decl(f_844) static void C_fcall f_844(C_word t0,C_word t1,C_word t2,C_word t3) 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_1946) static void C_ccall f_1946(C_word c,C_word *av) C_noret; C_noret_decl(f_1255) static void C_fcall f_1255(C_word t0,C_word t1) C_noret; C_noret_decl(f_1368) static void C_ccall f_1368(C_word c,C_word *av) C_noret; C_noret_decl(f_1409) static void C_ccall f_1409(C_word c,C_word *av) C_noret; C_noret_decl(f_1991) static void C_ccall f_1991(C_word c,C_word *av) C_noret; C_noret_decl(f_1371) static void C_ccall f_1371(C_word c,C_word *av) C_noret; C_noret_decl(f_1372) static void C_fcall f_1372(C_word t0,C_word t1) C_noret; C_noret_decl(f_1379) static void C_ccall f_1379(C_word c,C_word *av) C_noret; C_noret_decl(f_1006) static void C_ccall f_1006(C_word c,C_word *av) C_noret; C_noret_decl(f_1452) static void C_ccall f_1452(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_1465) static void C_ccall f_1465(C_word c,C_word *av) C_noret; C_noret_decl(f_820) static void C_ccall f_820(C_word c,C_word *av) C_noret; C_noret_decl(f_2114) static void C_ccall f_2114(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_1431) static void C_ccall f_1431(C_word c,C_word *av) C_noret; C_noret_decl(f_835) static void C_ccall f_835(C_word c,C_word *av) C_noret; C_noret_decl(f_832) static void C_ccall f_832(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_829) static void C_ccall f_829(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_826) static void C_ccall f_826(C_word c,C_word *av) C_noret; C_noret_decl(f_823) static void C_ccall f_823(C_word c,C_word *av) C_noret; C_noret_decl(f_1152) static void C_fcall f_1152(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1143) static void C_fcall f_1143(C_word t0,C_word t1,C_word t2) 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_1660) static void C_ccall f_1660(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_1194) static void C_fcall f_1194(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1225) static void C_fcall f_1225(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_1637) static void C_fcall f_1637(C_word t0,C_word t1) C_noret; C_noret_decl(f_795) static void C_ccall f_795(C_word c,C_word *av) C_noret; C_noret_decl(f_1641) static void C_ccall f_1641(C_word c,C_word *av) C_noret; C_noret_decl(f_790) static void C_ccall f_790(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_1788) static void C_ccall f_1788(C_word c,C_word *av) C_noret; C_noret_decl(f_778) static void C_ccall f_778(C_word c,C_word *av) C_noret; C_noret_decl(f_775) static void C_ccall f_775(C_word c,C_word *av) C_noret; C_noret_decl(f_2161) static void C_ccall f_2161(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_2167) static void C_ccall f_2167(C_word c,C_word *av) C_noret; C_noret_decl(f_1095) static void C_fcall f_1095(C_word t0,C_word t1) C_noret; C_noret_decl(f_1797) static C_word C_fcall f_1797(C_word t0,C_word t1); C_noret_decl(f_1492) static void C_ccall f_1492(C_word c,C_word *av) C_noret; C_noret_decl(f_1495) static void C_ccall f_1495(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_2178) static void C_ccall f_2178(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_1501) static void C_ccall f_1501(C_word c,C_word *av) C_noret; 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[1]; C_word t1=av[0]; f_1830(t0,t1);} C_noret_decl(trf_2007) static void C_ccall trf_2007(C_word c,C_word *av) C_noret; static void C_ccall trf_2007(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2007(t0,t1);} C_noret_decl(trf_1820) static void C_ccall trf_1820(C_word c,C_word *av) C_noret; static void C_ccall trf_1820(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_1820(t0,t1,t2,t3,t4);} C_noret_decl(trf_1884) static void C_ccall trf_1884(C_word c,C_word *av) C_noret; static void C_ccall trf_1884(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1884(t0,t1);} C_noret_decl(trf_1910) static void C_ccall trf_1910(C_word c,C_word *av) C_noret; static void C_ccall trf_1910(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1910(t0,t1,t2);} C_noret_decl(trf_1861) static void C_ccall trf_1861(C_word c,C_word *av) C_noret; static void C_ccall trf_1861(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1861(t0,t1,t2);} C_noret_decl(trf_973) static void C_ccall trf_973(C_word c,C_word *av) C_noret; static void C_ccall trf_973(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_973(t0,t1,t2,t3);} C_noret_decl(trf_1690) static void C_ccall trf_1690(C_word c,C_word *av) C_noret; static void C_ccall trf_1690(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1690(t0,t1);} C_noret_decl(trf_2061) static void C_ccall trf_2061(C_word c,C_word *av) C_noret; static void C_ccall trf_2061(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2061(t0,t1,t2,t3);} C_noret_decl(trf_1075) static void C_ccall trf_1075(C_word c,C_word *av) C_noret; static void C_ccall trf_1075(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1075(t0,t1);} C_noret_decl(trf_1088) static void C_ccall trf_1088(C_word c,C_word *av) C_noret; static void C_ccall trf_1088(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1088(t0,t1,t2);} C_noret_decl(trf_1600) static void C_ccall trf_1600(C_word c,C_word *av) C_noret; static void C_ccall trf_1600(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1600(t0,t1);} C_noret_decl(trf_1060) static void C_ccall trf_1060(C_word c,C_word *av) C_noret; static void C_ccall trf_1060(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1060(t0,t1);} C_noret_decl(trf_1955) static void C_ccall trf_1955(C_word c,C_word *av) C_noret; static void C_ccall trf_1955(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1955(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_844) static void C_ccall trf_844(C_word c,C_word *av) C_noret; static void C_ccall trf_844(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_844(t0,t1,t2,t3);} C_noret_decl(trf_1255) static void C_ccall trf_1255(C_word c,C_word *av) C_noret; static void C_ccall trf_1255(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1255(t0,t1);} C_noret_decl(trf_1372) static void C_ccall trf_1372(C_word c,C_word *av) C_noret; static void C_ccall trf_1372(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1372(t0,t1);} C_noret_decl(trf_1152) static void C_ccall trf_1152(C_word c,C_word *av) C_noret; static void C_ccall trf_1152(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1152(t0,t1,t2);} C_noret_decl(trf_1143) static void C_ccall trf_1143(C_word c,C_word *av) C_noret; static void C_ccall trf_1143(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1143(t0,t1,t2);} C_noret_decl(trf_1194) static void C_ccall trf_1194(C_word c,C_word *av) C_noret; static void C_ccall trf_1194(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1194(t0,t1,t2);} C_noret_decl(trf_1225) static void C_ccall trf_1225(C_word c,C_word *av) C_noret; static void C_ccall trf_1225(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_1225(t0,t1,t2,t3,t4);} C_noret_decl(trf_1637) static void C_ccall trf_1637(C_word c,C_word *av) C_noret; static void C_ccall trf_1637(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1637(t0,t1);} C_noret_decl(trf_1095) static void C_ccall trf_1095(C_word c,C_word *av) C_noret; static void C_ccall trf_1095(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1095(t0,t1);} /* k858 in loop in k840 in k833 in k830 in k827 in k824 in k821 in k818 in file-copy in k779 in k776 in k773 */ 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(6,c,4)))){ C_save_and_reclaim((void *)f_860,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_867,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* files.scm:100: read-string! */ t3=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* file-move in k779 in k776 in k773 */ 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=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_924,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[17]); t16=C_i_check_string_2(t3,lf[17]); t17=C_i_check_number_2(t12,lf[17]); t18=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_949,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; /* Re-use our own argvector */ av2[0]=t19; av2[1]=C_SCHEME_UNDEFINED; f_949(2,av2);}} else{ /* files.scm:107: ##sys#error */ t19=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t19; av2[1]=t18; av2[2]=lf[17]; av2[3]=lf[20]; av2[4]=t12; ((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}}} else{ /* files.scm:107: ##sys#error */ t19=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t19; av2[1]=t18; av2[2]=lf[17]; av2[3]=lf[20]; av2[4]=t12; ((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}}} /* k872 in k821 in k818 in file-copy in k779 in k776 in k773 */ static void C_ccall f_874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_874,2,av);} if(C_truep(t1)){ /* files.scm:87: ##sys#error */ t2=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[3]; av2[3]=lf[13]; 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_826(2,av2);}}} /* a1515 in pathname-strip-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1516(C_word c,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_1516,2,av);} /* files.scm:281: decompose-pathname */ t2=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* pathname-strip-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1510(C_word c,C_word *av){ C_word tmp; C_word 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_1510,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1516,a[2]=t2,a[3]=((C_word)li25),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1522,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp); /* files.scm:280: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* delete-file* in k779 in k776 in k773 */ static void C_ccall f_783(C_word c,C_word *av){ C_word tmp; C_word 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_783,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_790,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* files.scm:67: file-exists? */ t4=*((C_word*)lf[2]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k779 in k776 in k773 */ 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 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_781,2,av);} a=C_alloc(15); t2=C_mutate2((C_word*)lf[0]+1 /* (set! delete-file* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_783,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[3]+1 /* (set! file-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_795,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[17]+1 /* (set! file-move ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_924,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t5=lf[21] /* absolute-pathname-root */ =C_SCHEME_UNDEFINED;; t6=lf[22] /* root-origin */ =C_SCHEME_UNDEFINED;; t7=lf[23] /* root-directory */ =C_SCHEME_UNDEFINED;; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1060,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[28]+1))){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2199,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* files.scm:146: irregex */ t10=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=lf[105]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2226,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* files.scm:150: irregex */ t10=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=lf[106]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}} /* a1470 in pathname-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 *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_1471,2,av);} /* files.scm:266: decompose-pathname */ t2=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1476 in pathname-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1477,5,av);} t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* absolute-pathname-root in k2224 in k779 in k776 in k773 */ 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; 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_2228,3,av);} /* files.scm:151: irregex-match */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2224 in k779 in k776 in k773 */ 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 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_2226,2,av);} a=C_alloc(10); t2=t1; t3=C_mutate2(&lf[21] /* (set! absolute-pathname-root ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2228,a[2]=t2,a[3]=((C_word)li59),tmp=(C_word)a,a+=4,tmp)); t4=C_mutate2(&lf[22] /* (set! root-origin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2234,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2(&lf[23] /* (set! root-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2237,a[2]=((C_word)li61),tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t0)[2]; f_1060(t6,t5);} /* a1521 in pathname-strip-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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=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_1522,5,av);} /* files.scm:282: make-pathname */ t5=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* pathname-strip-extension in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1528(C_word c,C_word *av){ C_word tmp; C_word 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_1528,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1534,a[2]=t2,a[3]=((C_word)li28),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1540,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp); /* files.scm:285: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* k865 in k858 in loop in k840 in k833 in k830 in k827 in k824 in k821 in k818 in file-copy in k779 in k776 in k773 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_867,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],((C_word*)t0)[3]); /* files.scm:100: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_844(t3,((C_word*)t0)[5],t1,t2);} /* root-origin in k2224 in k779 in k776 in k773 */ 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; 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_2234,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* pathname-file in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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=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_1480,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1486,a[2]=t2,a[3]=((C_word)li19),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1492,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp); /* files.scm:270: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a1485 in pathname-file in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1486(C_word c,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_1486,2,av);} /* files.scm:271: decompose-pathname */ t2=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* root-directory in k2224 in k779 in k776 in k773 */ static void C_ccall f_2237(C_word c,C_word *av){ C_word tmp; C_word 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_2237,3,av);} if(C_truep(t2)){ /* files.scm:153: irregex-match-substring */ t3=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* f_2201 in k2197 in k779 in k776 in k773 */ 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=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_2201,3,av);} /* files.scm:147: irregex-match */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1533 in pathname-strip-extension in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1534(C_word c,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_1534,2,av);} /* files.scm:286: decompose-pathname */ t2=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_2207 in k2197 in k779 in k776 in k773 */ 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=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_2207,3,av);} if(C_truep(t2)){ /* files.scm:148: irregex-match-substring */ t3=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* make-pathname in k1058 in k779 in k776 in k773 */ 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=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_1313,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_1324,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t7,tmp=(C_word)a,a+=6,tmp); /* files.scm:218: canonicalize-dirs */ t9=((C_word*)((C_word*)t0)[3])[1]; f_1194(t9,t8,t2);} /* k1828 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_fcall f_1830(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_1830,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[85]); 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])){ /* files.scm:385: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[42]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[42]+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[86]; if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ /* files.scm:385: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[42]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[42]+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_1854,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); /* files.scm:386: open-output-string */ t3=*((C_word*)lf[92]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* f_2216 in k2197 in k779 in k776 in k773 */ static void C_ccall f_2216(C_word c,C_word *av){ C_word tmp; C_word 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_2216,3,av);} if(C_truep(t2)){ /* files.scm:149: irregex-match-substring */ t3=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* pathname-replace-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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=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_1546,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1552,a[2]=t2,a[3]=((C_word)li31),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1558,a[2]=t3,a[3]=((C_word)li32),tmp=(C_word)a,a+=4,tmp); /* files.scm:290: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* a1539 in pathname-strip-extension in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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=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_1540,5,av);} /* files.scm:287: make-pathname */ t5=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k1322 in make-pathname in k1058 in k779 in k776 in k773 */ static void C_ccall f_1324(C_word c,C_word *av){ C_word tmp; C_word 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_1324,2,av);} /* files.scm:218: _make-pathname */ f_1225(((C_word*)t0)[3],lf[30],t1,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k1705 in k1698 in k1692 in loop in create-temporary-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 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_1707,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; /* Re-use our own argvector */ 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_1720,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_1724,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k1698 in k1692 in loop in create-temporary-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1700,2,av);} a=C_alloc(4); if(C_truep(t1)){ /* files.scm:347: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1690(t2,((C_word*)t0)[3]);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1707,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* files.scm:348: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[75]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[75]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[70]; tp(4,av2);}}} /* k956 in k953 in k950 in k947 in file-move in k779 in k776 in k773 */ 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(6,c,3)))){ C_save_and_reclaim((void *)f_958,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_961,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); /* files.scm:120: open-output-file */ t4=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=lf[10]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k953 in k950 in k947 in file-move in k779 in k776 in k773 */ static void C_ccall f_955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_955,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_958,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* files.scm:119: open-input-file */ t3=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=lf[10]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2197 in k779 in k776 in k773 */ static void C_ccall f_2199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_2199,2,av);} a=C_alloc(10); t2=t1; t3=C_mutate2(&lf[21] /* (set! absolute-pathname-root ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2201,a[2]=t2,a[3]=((C_word)li56),tmp=(C_word)a,a+=4,tmp)); t4=C_mutate2(&lf[22] /* (set! root-origin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2207,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2(&lf[23] /* (set! root-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2216,a[2]=((C_word)li58),tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t0)[2]; f_1060(t6,t5);} /* k950 in k947 in file-move in k779 in k776 in k773 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_952,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_955,a[2]=((C_word*)t0)[2],a[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_1006,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* files.scm:113: file-exists? */ t4=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_2196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2196,2,av);} a=C_alloc(17); t2=C_eqp(t1,lf[77]); t3=(C_truep(t2)?lf[78]:lf[79]); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1750,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp); t6=C_mutate2((C_word*)lf[83]+1 /* (set! normalize-pathname ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1788,a[2]=t4,a[3]=t5,a[4]=((C_word)li51),tmp=(C_word)a,a+=5,tmp)); t7=C_mutate2(&lf[94] /* (set! split-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2061,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[98]+1 /* (set! directory-null? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2074,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[101]+1 /* (set! decompose-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2114,a[2]=((C_word)li55),tmp=(C_word)a,a+=3,tmp)); t10=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* a1551 in pathname-replace-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 *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_1552,2,av);} /* files.scm:291: decompose-pathname */ t2=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* make-absolute-pathname in k1058 in k779 in k776 in k773 */ 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=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_1332,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_1343,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); /* files.scm:224: canonicalize-dirs */ t9=((C_word*)((C_word*)t0)[4])[1]; f_1194(t9,t8,t2);} /* a1557 in pathname-replace-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1558,5,av);} /* files.scm:292: make-pathname */ t5=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k947 in file-move in k779 in k776 in k773 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_949,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_952,a[2]=((C_word*)t0)[2],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_1015,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* files.scm:111: directory-exists? */ t4=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_files_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("files_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_files_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(466))){ C_save(t1); C_rereclaim2(466*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,109); lf[0]=C_h_intern(&lf[0],12,"delete-file\052"); lf[1]=C_h_intern(&lf[1],11,"delete-file"); lf[2]=C_h_intern(&lf[2],12,"file-exists\077"); lf[3]=C_h_intern(&lf[3],9,"file-copy"); lf[4]=C_h_intern(&lf[4],17,"close-output-port"); lf[5]=C_h_intern(&lf[5],16,"close-input-port"); lf[6]=C_h_intern(&lf[6],12,"read-string!"); lf[7]=C_h_intern(&lf[7],12,"write-string"); lf[8]=C_h_intern(&lf[8],11,"make-string"); lf[9]=C_h_intern(&lf[9],16,"open-output-file"); lf[10]=C_h_intern(&lf[10],7,"\000binary"); lf[11]=C_h_intern(&lf[11],15,"open-input-file"); lf[12]=C_h_intern(&lf[12],9,"\003syserror"); lf[13]=C_decode_literal(C_heaptop,"\376B\000\000\030can not copy directories"); lf[14]=C_h_intern(&lf[14],17,"directory-exists\077"); lf[15]=C_decode_literal(C_heaptop,"\376B\000\000#newfile exists but clobber is false"); lf[16]=C_decode_literal(C_heaptop,"\376B\000\000/invalid blocksize given: not a positive integer"); lf[17]=C_h_intern(&lf[17],9,"file-move"); lf[18]=C_decode_literal(C_heaptop,"\376B\000\000#newfile exists but clobber is false"); lf[19]=C_decode_literal(C_heaptop,"\376B\000\000\030can not move directories"); lf[20]=C_decode_literal(C_heaptop,"\376B\000\000/invalid blocksize given: not a positive integer"); lf[24]=C_h_intern(&lf[24],18,"absolute-pathname\077"); lf[25]=C_h_intern(&lf[25],19,"irregex-match-data\077"); lf[27]=C_h_intern(&lf[27],13,"\003syssubstring"); lf[28]=C_h_intern(&lf[28],20,"\003syswindows-platform"); lf[29]=C_decode_literal(C_heaptop,"\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[30]=C_h_intern(&lf[30],13,"make-pathname"); lf[31]=C_h_intern(&lf[31],22,"make-absolute-pathname"); lf[32]=C_decode_literal(C_heaptop,"\376B\000\000\001\134"); lf[33]=C_decode_literal(C_heaptop,"\376B\000\000\001/"); lf[34]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[35]=C_h_intern(&lf[35],13,"string-append"); lf[36]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[37]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[38]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[39]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[40]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[41]=C_decode_literal(C_heaptop,"\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[42]=C_h_intern(&lf[42],17,"\003sysstring-append"); lf[43]=C_decode_literal(C_heaptop,"\376B\000\000&^(.\052[\134/\134\134])\077([^\134/\134\134]+)(\134.([^\134/\134\134.]+))$"); lf[44]=C_decode_literal(C_heaptop,"\376B\000\000\033^(.\052/)\077([^/]+)(\134.([^/.]+))$"); lf[45]=C_decode_literal(C_heaptop,"\376B\000\000\034^(.\052[\134/\134\134])\077((\134.)\077[^\134/\134\134]+)$"); lf[46]=C_decode_literal(C_heaptop,"\376B\000\000\024^(.\052/)\077((\134.)\077[^/]+)$"); lf[47]=C_h_intern(&lf[47],18,"decompose-pathname"); lf[48]=C_h_intern(&lf[48],23,"irregex-match-substring"); lf[49]=C_h_intern(&lf[49],14,"irregex-search"); lf[50]=C_h_intern(&lf[50],18,"pathname-directory"); lf[51]=C_h_intern(&lf[51],13,"pathname-file"); lf[52]=C_h_intern(&lf[52],18,"pathname-extension"); lf[53]=C_h_intern(&lf[53],24,"pathname-strip-directory"); lf[54]=C_h_intern(&lf[54],24,"pathname-strip-extension"); lf[55]=C_h_intern(&lf[55],26,"pathname-replace-directory"); lf[56]=C_h_intern(&lf[56],21,"pathname-replace-file"); lf[57]=C_h_intern(&lf[57],26,"pathname-replace-extension"); lf[58]=C_decode_literal(C_heaptop,"\376B\000\000\004temp"); lf[59]=C_decode_literal(C_heaptop,"\376B\000\000\004/tmp"); lf[60]=C_h_intern(&lf[60],24,"get-environment-variable"); lf[61]=C_decode_literal(C_heaptop,"\376B\000\000\003TMP"); lf[62]=C_decode_literal(C_heaptop,"\376B\000\000\004TEMP"); lf[63]=C_decode_literal(C_heaptop,"\376B\000\000\006TMPDIR"); lf[64]=C_h_intern(&lf[64],21,"create-temporary-file"); lf[65]=C_decode_literal(C_heaptop,"\376B\000\000\003tmp"); lf[66]=C_h_intern(&lf[66],21,"call-with-output-file"); lf[67]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[68]=C_h_intern(&lf[68],18,"\003sysnumber->string"); lf[69]=C_h_intern(&lf[69],14,"number->string"); lf[70]=C_h_intern(&lf[70],26,"create-temporary-directory"); lf[71]=C_h_intern(&lf[71],15,"\003syssignal-hook"); lf[72]=C_h_intern(&lf[72],11,"\000file-error"); lf[73]=C_decode_literal(C_heaptop,"\376B\000\000$cannot create temporary directory - "); lf[74]=C_h_intern(&lf[74],17,"\003syspeek-c-string"); lf[75]=C_h_intern(&lf[75],17,"\003sysmake-c-string"); lf[76]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[77]=C_h_intern(&lf[77],7,"mingw32"); lf[78]=C_h_intern(&lf[78],7,"windows"); lf[79]=C_h_intern(&lf[79],4,"unix"); lf[80]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[81]=C_decode_literal(C_heaptop,"\376B\000\000\002.."); lf[82]=C_decode_literal(C_heaptop,"\376B\000\000\002.."); lf[83]=C_h_intern(&lf[83],18,"normalize-pathname"); lf[84]=C_decode_literal(C_heaptop,"\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[85]=C_h_intern(&lf[85],3,"abs"); lf[86]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[87]=C_h_intern(&lf[87],7,"display"); lf[88]=C_h_intern(&lf[88],16,"\003syswrite-char-0"); lf[89]=C_h_intern(&lf[89],8,"for-each"); lf[90]=C_h_intern(&lf[90],17,"get-output-string"); lf[91]=C_h_intern(&lf[91],16,"\003sysfast-reverse"); lf[92]=C_h_intern(&lf[92],18,"open-output-string"); lf[93]=C_h_intern(&lf[93],3,"rel"); lf[95]=C_h_intern(&lf[95],12,"string-split"); lf[96]=C_decode_literal(C_heaptop,"\376B\000\000\002/\134"); lf[97]=C_decode_literal(C_heaptop,"\376B\000\000\001/"); lf[98]=C_h_intern(&lf[98],15,"directory-null\077"); lf[99]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[100]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[101]=C_h_intern(&lf[101],19,"decompose-directory"); lf[102]=C_h_intern(&lf[102],14,"build-platform"); lf[103]=C_h_intern(&lf[103],7,"irregex"); lf[104]=C_h_intern(&lf[104],13,"irregex-match"); lf[105]=C_decode_literal(C_heaptop,"\376B\000\000\026([A-Za-z]:)\077([\134/\134\134]).\052"); lf[106]=C_decode_literal(C_heaptop,"\376B\000\000\005(/).\052"); lf[107]=C_h_intern(&lf[107],17,"register-feature!"); lf[108]=C_h_intern(&lf[108],5,"files"); C_register_lf2(lf,109,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_775,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_irregex_toplevel(2,av2);}} /* pathname-replace-file in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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=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_1564,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1570,a[2]=t2,a[3]=((C_word)li34),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1576,a[2]=t3,a[3]=((C_word)li35),tmp=(C_word)a,a+=4,tmp); /* files.scm:295: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* k2005 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_fcall f_2007(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_2007,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2011,a[2]=((C_word*)t0)[2],a[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)); /* files.scm:412: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[27]+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)); /* files.scm:414: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_1820(t3,((C_word*)t0)[5],t2,((C_word*)t0)[7],((C_word*)((C_word*)t0)[8])[1]);}} /* loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_fcall f_1820(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_1820,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_1830,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_1946,a[2]=((C_word*)t0)[6],a[3]=t5,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* files.scm:382: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[27]+1); av2[1]=t7; av2[2]=((C_word*)t0)[7]; av2[3]=t3; av2[4]=t2; tp(5,av2);}} else{ t7=t6; f_1830(t7,C_SCHEME_UNDEFINED);}} else{ t6=C_i_string_ref(((C_word*)t0)[7],t2); t7=( /* files.scm:401: pds? */ f_1797(((C_word*)t0)[8],t6) ); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1955,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); t9=((C_word*)((C_word*)t0)[3])[1]; if(C_truep(t9)){ t10=t8; f_1955(t10,C_SCHEME_UNDEFINED);} else{ t10=C_eqp(t2,t3); if(C_truep(t10)){ t11=C_mutate2(((C_word *)((C_word*)t0)[3])+1,lf[85]); t12=t8; f_1955(t12,t11);} else{ t11=C_mutate2(((C_word *)((C_word*)t0)[3])+1,lf[93]); t12=t8; f_1955(t12,t11);}}} else{ t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2007,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_2007(t12,(C_truep(C_u_i_char_equalp(t11,C_make_character(58)))?C_eqp(((C_word*)t0)[10],lf[78]):C_SCHEME_FALSE));} else{ t9=t8; f_2007(t9,C_SCHEME_FALSE);}}}} /* k1722 in k1705 in k1698 in k1692 in loop in create-temporary-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1724,2,av);} /* files.scm:353: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[42]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[42]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[73]; av2[3]=t1; tp(4,av2);}} /* k1726 in loop in create-temporary-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1728,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1732,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_1736,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* files.scm:343: number->string */ t5=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(16); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k1718 in k1705 in k1698 in k1692 in loop in create-temporary-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1720(C_word c,C_word *av){ C_word tmp; C_word 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_1720,2,av);} /* files.scm:351: ##sys#signal-hook */ t2=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[72]; av2[3]=lf[70]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2009 in k2005 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 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_2011,2,av);} t2=C_mutate2(((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)); /* files.scm:413: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_1820(t5,((C_word*)t0)[5],t3,t4,C_SCHEME_END_OF_LIST);} /* k1670 in k1666 in k1658 in loop in create-temporary-file in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1672(C_word c,C_word *av){ C_word tmp; C_word 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_1672,2,av);} /* files.scm:326: string-append */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[67]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k1873 in k1858 in k1855 in k1852 in k1828 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1875,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1878,a[2]=((C_word*)t0)[2],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)){ /* files.scm:394: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[88]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[88]+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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_1878(2,av2);}}} /* k1876 in k1873 in k1858 in k1855 in k1852 in k1828 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_1878,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1881,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* files.scm:395: get-output-string */ t3=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* create-temporary-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 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_1684,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_1690,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li44),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_1690(t5,t1);} /* k1882 in k1879 in k1876 in k1873 in k1858 in k1855 in k1852 in k1828 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_fcall f_1884(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_1884,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_1891,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* files.scm:399: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[42]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[42]+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);}}} /* k1879 in k1876 in k1873 in k1858 in k1855 in k1852 in k1828 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1881,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_1884,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[85]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1898,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t7=C_a_i_string(&a,1,((C_word*)t0)[5]); /* files.scm:397: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[42]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[42]+1); av2[1]=t6; av2[2]=t7; av2[3]=((C_word*)t3)[1]; tp(4,av2);}} else{ t6=t4; f_1884(t6,C_SCHEME_UNDEFINED);}} /* for-each-loop463 in k1858 in k1855 in k1852 in k1828 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_fcall f_1910(C_word t0,C_word t1,C_word 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_1910,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_1920,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)); /* files.scm:389: g464 */ t5=((C_word*)t0)[3]; f_1861(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);}}} /* k997 in k990 in loop in k969 in k962 in k959 in k956 in k953 in k950 in k947 in file-move in k779 in k776 in k773 */ static void C_ccall f_999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_999,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],((C_word*)t0)[3]); /* files.scm:132: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_973(t3,((C_word*)t0)[5],t1,t2);} /* k2151 in k2172 in k2165 in k2162 in k2159 in decompose-directory in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_2153(C_word c,C_word *av){ C_word tmp; 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_2153,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k1855 in k1852 in k1828 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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; 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_1857,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1860,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); /* files.scm:388: display */ t5=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1654 in k1645 in k1639 in loop in create-temporary-file in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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=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_1655,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k990 in loop in k969 in k962 in k959 in k956 in k953 in k950 in k947 in file-move in k779 in k776 in k773 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_992,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_999,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* files.scm:132: read-string! */ t3=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1852 in k1828 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_1854,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1857,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); /* files.scm:387: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[91]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[91]+1); av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[8])[1]; tp(3,av2);}} /* k1738 in k1734 in k1726 in loop in create-temporary-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1740(C_word c,C_word *av){ C_word tmp; C_word 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_1740,2,av);} /* files.scm:341: string-append */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[76]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k984 in k981 in loop in k969 in k962 in k959 in k956 in k953 in k950 in k947 in file-move in k779 in k776 in k773 */ static void C_ccall f_986(C_word c,C_word *av){ C_word tmp; C_word t0=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_986,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_989,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* files.scm:128: delete-file */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k987 in k984 in k981 in loop in k969 in k962 in k959 in k956 in k953 in k950 in k947 in file-move in k779 in k776 in k773 */ 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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_989,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k878 in k818 in file-copy in k779 in k776 in k773 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_880,2,av);} if(C_truep(t1)){ if(C_truep(((C_word*)t0)[2])){ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; f_823(2,av2);}} else{ /* files.scm:82: ##sys#error */ t2=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[3]; av2[3]=lf[15]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_823(2,av2);}}} /* k1863 in g464 in k1858 in k1855 in k1852 in k1828 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1865,2,av);} /* files.scm:392: display */ t2=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k981 in loop in k969 in k962 in k959 in k956 in k953 in k950 in k947 in file-move in k779 in k776 in k773 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_983,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_986,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* files.scm:127: close-output-port */ t3=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* g464 in k1858 in k1855 in k1852 in k1828 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_fcall f_1861(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_1861,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1865,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* files.scm:391: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[88]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[88]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} /* k1858 in k1855 in k1852 in k1828 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_1860,2,av);} a=C_alloc(21); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1861,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li48),tmp=(C_word)a,a+=5,tmp); t3=C_u_i_cdr(((C_word*)t0)[4]); t4=C_i_check_list_2(t3,lf[89]); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1875,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_1910,a[2]=t7,a[3]=t2,a[4]=((C_word)li49),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_1910(t9,t5,t3);} /* addpart in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static C_word C_fcall f_1750(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[80],t1))){ t3=t2; return(t3);} else{ t3=t1; if(C_truep(C_u_i_string_equal_p(lf[81],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[82],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));}}} /* k969 in k962 in k959 in k956 in k953 in k950 in k947 in file-move in k779 in k776 in k773 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_971,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_973,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)li3),tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_973(t5,((C_word*)t0)[7],t1,C_fix(0));} /* loop in k969 in k962 in k959 in k956 in k953 in k950 in k947 in file-move in k779 in k776 in k773 */ static void C_fcall f_973(C_word 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_973,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_983,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); /* files.scm:126: close-input-port */ t6=*((C_word*)lf[5]+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_992,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); /* files.scm:131: write-string */ t6=*((C_word*)lf[7]+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);}}} /* decompose-pathname in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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=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_1393,3,av);} a=C_alloc(6); t3=C_i_check_string_2(t2,lf[47]); t4=C_block_size(t2); t5=C_eqp(C_fix(0),t4); if(C_truep(t5)){ /* files.scm:249: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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_1409,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); /* files.scm:250: irregex-search */ t7=*((C_word*)lf[49]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* loop in create-temporary-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_fcall f_1690(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_1690,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_1694,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_1728,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* files.scm:340: tempdir */ t5=((C_word*)t0)[4]; f_1600(t5,t4);} /* k1896 in k1879 in k1876 in k1873 in k1858 in k1855 in k1852 in k1828 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_1898,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_1884(t3,t2);} /* k1692 in loop in create-temporary-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1694,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1700,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* files.scm:346: file-exists? */ t4=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1889 in k1882 in k1879 in k1876 in k1873 in k1858 in k1855 in k1852 in k1828 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1891,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1182 in k1178 in loop in conc-dirs in k1058 in k779 in k776 in k773 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1184,2,av);} /* files.scm:187: string-append */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1178 in loop in conc-dirs in k1058 in k779 in k776 in k773 */ 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 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_1180,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1184,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); /* files.scm:190: loop */ t6=((C_word*)((C_word*)t0)[5])[1]; f_1152(t6,t3,t5);} /* a1569 in pathname-replace-file in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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; 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_1570,2,av);} /* files.scm:296: decompose-pathname */ t2=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1575 in pathname-replace-file in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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=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_1576,5,av);} /* files.scm:297: make-pathname */ t5=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* create-temporary-file in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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; 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_1625,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[65]:C_i_car(t2)); t5=t4; t6=C_i_check_string_2(t5,lf[64]); 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_1637,a[2]=t8,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li42),tmp=(C_word)a,a+=7,tmp)); t10=((C_word*)t8)[1]; f_1637(t10,t1);} /* k1618 in k1612 in k1605 in tempdir in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1620,2,av);} if(C_truep(t1)){ t2=t1; t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=lf[59]; t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1013 in k947 in file-move in k779 in k776 in k773 */ static void C_ccall f_1015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1015,2,av);} if(C_truep(t1)){ /* files.scm:112: ##sys#error */ t2=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[17]; av2[3]=lf[19]; 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_952(2,av2);}}} /* split-directory in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_fcall f_2061(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_2061,4,t1,t2,t3,t4);} t5=C_i_check_string_2(t3,t2); if(C_truep(*((C_word*)lf[28]+1))){ /* files.scm:423: string-split */ t6=*((C_word*)lf[95]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=lf[96]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ /* files.scm:423: string-split */ t6=*((C_word*)lf[95]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=lf[97]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k1734 in k1726 in loop in create-temporary-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 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_1736,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1740,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_fudge(C_fix(33)); /* files.scm:345: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[68]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} /* k1071 in absolute-pathname? in k1058 in k779 in k776 in k773 */ 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_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1073,2,av);} /* files.scm:157: irregex-match-data? */ t2=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* pathname-replace-extension in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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=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_1582,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1588,a[2]=t2,a[3]=((C_word)li37),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1594,a[2]=t3,a[3]=((C_word)li38),tmp=(C_word)a,a+=4,tmp); /* files.scm:300: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* k1730 in k1726 in loop in create-temporary-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1732,2,av);} /* files.scm:339: make-pathname */ t2=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* chop-pds in k1058 in k779 in k776 in k773 */ static void C_fcall f_1075(C_word 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_1075,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_1088,a[2]=t5,a[3]=t2,a[4]=((C_word)li6),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_1088(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);}}} /* a1587 in pathname-replace-extension in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 *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_1588,2,av);} /* files.scm:301: decompose-pathname */ t2=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* directory-null? in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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=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_2074,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2082,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_listp(t2))){ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; f_2082(2,av2);}} else{ /* files.scm:429: split-directory */ f_2061(t3,lf[98],t2,C_SCHEME_TRUE);}} /* a1593 in pathname-replace-extension in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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=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_1594,5,av);} /* files.scm:302: make-pathname */ t5=*((C_word*)lf[30]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k1605 in tempdir in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1607,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=t1; t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_1614,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* files.scm:314: get-environment-variable */ t3=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[62]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* lp in chop-pds in k1058 in k779 in k776 in k773 */ static void C_fcall f_1088(C_word t0,C_word 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_1088,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1095,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[28]+1))){ t6=C_u_i_memq(t5,lf[29]); t7=t3; f_1095(t7,t6);} else{ t6=t3; f_1095(t6,C_eqp(C_make_character(47),t5));}} else{ t4=t3; f_1095(t4,C_SCHEME_FALSE);}} /* tempdir in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_fcall f_1600(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_1600,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_1607,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* files.scm:313: get-environment-variable */ t4=*((C_word*)lf[60]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[63]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* absolute-pathname? in k1058 in k779 in k776 in k773 */ 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; 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_1062,3,av);} a=C_alloc(3); t3=C_i_check_string_2(t2,lf[24]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1073,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* files.scm:157: absolute-pathname-root */ t5=lf[21];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k1058 in k779 in k776 in k773 */ static void C_fcall f_1060(C_word t0,C_word t1){ C_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_1060,2,t0,t1);} a=C_alloc(38); t2=C_mutate2((C_word*)lf[24]+1 /* (set! absolute-pathname? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1062,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2(&lf[26] /* (set! chop-pds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1075,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t4=C_set_block_item(lf[30] /* make-pathname */,0,C_SCHEME_UNDEFINED); t5=C_set_block_item(lf[31] /* make-absolute-pathname */,0,C_SCHEME_UNDEFINED); t6=(C_truep(*((C_word*)lf[28]+1))?lf[32]:lf[33]); 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_1143,a[2]=t7,a[3]=((C_word)li9),tmp=(C_word)a,a+=4,tmp)); t15=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1194,a[2]=t9,a[3]=((C_word)li10),tmp=(C_word)a,a+=4,tmp)); t16=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1225,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[30]+1 /* (set! make-pathname ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1313,a[2]=t13,a[3]=t11,a[4]=((C_word)li12),tmp=(C_word)a,a+=5,tmp)); t18=C_mutate2((C_word*)lf[31]+1 /* (set! make-absolute-pathname ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1332,a[2]=t13,a[3]=t7,a[4]=t11,a[5]=((C_word)li13),tmp=(C_word)a,a+=6,tmp)); t19=(C_truep(*((C_word*)lf[28]+1))?lf[43]:lf[44]); t20=(C_truep(*((C_word*)lf[28]+1))?lf[45]:lf[46]); t21=t20; t22=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1368,a[2]=((C_word*)t0)[2],a[3]=t21,tmp=(C_word)a,a+=4,tmp); /* files.scm:237: irregex */ t23=*((C_word*)lf[103]+1);{ C_word av2[3]; av2[0]=t23; av2[1]=t22; av2[2]=t19; ((C_proc)(void*)(*((C_word*)t23+1)))(3,av2);}} /* k962 in k959 in k956 in k953 in k950 in k947 in file-move in k779 in k776 in k773 */ static void C_ccall f_964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_964,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_971,a[2]=((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); /* files.scm:122: read-string! */ t4=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k959 in k956 in k953 in k950 in k947 in file-move in k779 in k776 in k773 */ static void C_ccall f_961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_961,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_964,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); /* files.scm:121: make-string */ t4=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1953 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_fcall f_1955(C_word t0,C_word t1){ C_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_1955,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)); /* files.scm:405: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_1820(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_1991,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); /* files.scm:408: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[27]+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);}}} /* k2080 in directory-null? in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_2082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2082,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2084,a[2]=((C_word)li53),tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=( f_2084(t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1417 in k1407 in decompose-pathname in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1419,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1423,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* files.scm:254: irregex-match-substring */ t4=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in k2080 in directory-null? in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static C_word C_fcall f_2084(C_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[99]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t3,lf[100]))?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);}}} /* k1612 in k1605 in tempdir in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1614,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=t1; t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_1620,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* files.scm:315: get-environment-variable */ t3=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[61]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k1271 in _make-pathname in k1058 in k779 in k776 in k773 */ static void C_fcall f_1273(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_1273,2,t0,t1);} if(C_truep(t1)){ t2=C_block_size(((C_word*)t0)[2]); /* files.scm:208: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[27]+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_1248(2,av2);}}} /* k1918 in for-each-loop463 in k1858 in k1855 in k1852 in k1828 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1920,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1910(t3,((C_word*)t0)[4],t2);} /* k1341 in make-absolute-pathname in k1058 in k779 in k776 in k773 */ static void C_ccall f_1343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1343,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1346,a[2]=((C_word*)t0)[2],a[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_1349,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); /* files.scm:225: absolute-pathname? */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k855 in k852 in loop in k840 in k833 in k830 in k827 in k824 in k821 in k818 in file-copy in k779 in k776 in k773 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_857,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1344 in k1341 in make-absolute-pathname in k1058 in k779 in k776 in k773 */ static void C_ccall f_1346(C_word c,C_word *av){ C_word tmp; C_word 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_1346,2,av);} /* files.scm:222: _make-pathname */ f_1225(((C_word*)t0)[3],lf[31],t1,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k1421 in k1417 in k1407 in decompose-pathname in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1423,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1427,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* files.scm:255: irregex-match-substring */ t4=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k852 in loop in k840 in k833 in k830 in k827 in k824 in k821 in k818 in file-copy in k779 in k776 in k773 */ 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(4,c,2)))){ C_save_and_reclaim((void *)f_854,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_857,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* files.scm:96: close-output-port */ t3=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1347 in k1341 in make-absolute-pathname in k1058 in k779 in k776 in k773 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_1349,2,av);} if(C_truep(t1)){ /* files.scm:222: _make-pathname */ f_1225(((C_word*)t0)[3],lf[31],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} else{ /* files.scm:227: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[42]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[42]+1); av2[1]=((C_word*)t0)[7]; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t0)[4]; tp(4,av2);}}} /* k1425 in k1421 in k1417 in k1407 in decompose-pathname in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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,4)))){ C_save_and_reclaim((void *)f_1427,2,av);} /* files.scm:252: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1246 in _make-pathname in k1058 in k779 in k776 in k773 */ static void C_ccall f_1248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_1248,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1255,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_1255(t7,C_i_not(t6));} else{ t5=t3; f_1255(t5,C_SCHEME_FALSE);}} /* loop in k840 in k833 in k830 in k827 in k824 in k821 in k818 in file-copy in k779 in k776 in k773 */ static void C_fcall f_844(C_word 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_844,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_854,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* files.scm:95: close-input-port */ t6=*((C_word*)lf[5]+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_860,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); /* files.scm:99: write-string */ t6=*((C_word*)lf[7]+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);}}} /* k840 in k833 in k830 in k827 in k824 in k821 in k818 in file-copy in k779 in k776 in k773 */ 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 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_842,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_844,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)li1),tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_844(t5,((C_word*)t0)[6],t1,C_fix(0));} /* k1944 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_1946,2,av);} a=C_alloc(9); t2=( /* files.scm:382: addpart */ f_1750(C_a_i(&a,9),t1,((C_word*)((C_word*)t0)[3])[1]) ); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t2); t4=((C_word*)t0)[4]; f_1830(t4,t3);} /* k1253 in k1246 in _make-pathname in k1058 in k779 in k776 in k773 */ static void C_fcall f_1255(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_1255,2,t0,t1);} if(C_truep(t1)){ /* files.scm:203: string-append */ t2=*((C_word*)lf[35]+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[39]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ /* files.scm:203: string-append */ t2=*((C_word*)lf[35]+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[40]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1368,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1371,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* files.scm:238: irregex */ t4=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1407 in decompose-pathname in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1409,2,av);} a=C_alloc(8); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1419,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_1431,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* files.scm:253: irregex-match-substring */ t5=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_1434,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* files.scm:256: irregex-search */ t4=*((C_word*)lf[49]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k1989 in k1953 in loop in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1991(C_word c,C_word *av){ C_word tmp; C_word t0=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_1991,2,av);} a=C_alloc(9); t2=( /* files.scm:408: addpart */ f_1750(C_a_i(&a,9),t1,((C_word*)((C_word*)t0)[3])[1]) ); /* files.scm:406: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_1820(t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2);} /* k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(52,c,4)))){ C_save_and_reclaim((void *)f_1371,2,av);} a=C_alloc(52); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1372,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp); t4=C_mutate2((C_word*)lf[47]+1 /* (set! decompose-pathname ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1393,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word)li15),tmp=(C_word)a,a+=6,tmp)); t5=C_mutate2((C_word*)lf[50]+1 /* (set! pathname-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1465,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[51]+1 /* (set! pathname-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1480,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[52]+1 /* (set! pathname-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1495,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[53]+1 /* (set! pathname-strip-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1510,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[54]+1 /* (set! pathname-strip-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1528,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[55]+1 /* (set! pathname-replace-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1546,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[56]+1 /* (set! pathname-replace-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1564,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[57]+1 /* (set! pathname-replace-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1582,a[2]=((C_word)li39),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=lf[58]; t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1600,a[2]=t14,a[3]=((C_word)li40),tmp=(C_word)a,a+=4,tmp); t17=C_mutate2((C_word*)lf[64]+1 /* (set! create-temporary-file ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1625,a[2]=t15,a[3]=t16,a[4]=((C_word)li43),tmp=(C_word)a,a+=5,tmp)); t18=C_mutate2((C_word*)lf[70]+1 /* (set! create-temporary-directory ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1684,a[2]=t15,a[3]=t16,a[4]=((C_word)li45),tmp=(C_word)a,a+=5,tmp)); t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2196,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* files.scm:360: build-platform */ t20=*((C_word*)lf[102]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t20; av2[1]=t19; ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} /* strip-pds in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_fcall f_1372(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_1372,2,t1,t2);} a=C_alloc(4); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1379,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* files.scm:242: chop-pds */ f_1075(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);}}} /* k1377 in strip-pds in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1379,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* files.scm:245: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[27]+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);}}} /* k1004 in k950 in k947 in file-move in k779 in k776 in k773 */ static void C_ccall f_1006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1006,2,av);} if(C_truep(t1)){ if(C_truep(((C_word*)t0)[2])){ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; f_955(2,av2);}} else{ /* files.scm:115: ##sys#error */ t2=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[17]; av2[3]=lf[18]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_955(2,av2);}}} /* k1450 in k1432 in k1407 in decompose-pathname in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1452,2,av);} /* files.scm:259: strip-pds */ f_1372(((C_word*)t0)[3],t1);} /* k1457 in k1432 in k1407 in decompose-pathname in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1459,2,av);} /* files.scm:262: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* pathname-directory in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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=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_1465,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1471,a[2]=t2,a[3]=((C_word)li16),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1477,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp); /* files.scm:265: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* k818 in file-copy in k779 in k776 in k773 */ static void C_ccall f_820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_820,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_823,a[2]=((C_word*)t0)[2],a[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_880,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* files.scm:80: file-exists? */ t4=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* decompose-directory in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_2114(C_word c,C_word *av){ C_word tmp; C_word 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_2114,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2161,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* files.scm:455: split-directory */ f_2061(t3,lf[101],t2,C_SCHEME_FALSE);} /* k1432 in k1407 in decompose-pathname in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_1434,2,av);} a=C_alloc(8); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1444,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_1452,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* files.scm:259: irregex-match-substring */ t5=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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_1459,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* files.scm:262: strip-pds */ f_1372(t3,((C_word*)t0)[4]);}} /* k1429 in k1407 in decompose-pathname in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1431,2,av);} /* files.scm:253: strip-pds */ f_1372(((C_word*)t0)[3],t1);} /* k833 in k830 in k827 in k824 in k821 in k818 in file-copy in k779 in k776 in k773 */ static void C_ccall f_835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_835,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_842,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); /* files.scm:91: read-string! */ t4=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k830 in k827 in k824 in k821 in k818 in file-copy in k779 in k776 in k773 */ static void C_ccall f_832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_832,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_835,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); /* files.scm:90: make-string */ t4=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1442 in k1432 in k1407 in decompose-pathname in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1444,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1448,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* files.scm:260: irregex-match-substring */ t4=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k827 in k824 in k821 in k818 in file-copy in k779 in k776 in k773 */ static void C_ccall f_829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_829,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_832,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* files.scm:89: open-output-file */ t4=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[10]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k1446 in k1442 in k1432 in k1407 in decompose-pathname in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1448,2,av);} /* files.scm:258: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k824 in k821 in k818 in file-copy in k779 in k776 in k773 */ static void C_ccall f_826(C_word c,C_word *av){ C_word tmp; C_word t0=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_826,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_829,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* files.scm:88: open-input-file */ t3=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[10]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k821 in k818 in file-copy in k779 in k776 in k773 */ static void C_ccall f_823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_823,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_826,a[2]=((C_word*)t0)[2],a[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_874,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* files.scm:86: directory-exists? */ t4=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in conc-dirs in k1058 in k779 in k776 in k773 */ static void C_fcall f_1152(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_1152,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[34]; ((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); /* files.scm:186: loop */ t10=t1; t11=t7; t1=t10; t2=t11; goto loop;} else{ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1180,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); /* files.scm:188: chop-pds */ f_1075(t6,t8);}}} /* conc-dirs in k1058 in k779 in k776 in k773 */ static void C_fcall f_1143(C_word t0,C_word 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_1143,3,t0,t1,t2);} a=C_alloc(7); t3=C_i_check_list_2(t2,lf[30]); 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_1152,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word)li8),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_1152(t7,t1,t2);} /* k1662 in k1658 in loop in create-temporary-file in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1664,2,av);} /* files.scm:324: make-pathname */ t2=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1658 in loop in create-temporary-file in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1660,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1664,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_1668,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* files.scm:328: number->string */ t5=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(16); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k1666 in k1658 in loop in create-temporary-file in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1668,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1672,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_fudge(C_fix(33)); /* files.scm:330: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[68]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} /* canonicalize-dirs in k1058 in k779 in k776 in k773 */ static void C_fcall f_1194(C_word 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_1194,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[36]; ((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); /* files.scm:194: conc-dirs */ t6=((C_word*)((C_word*)t0)[2])[1]; f_1143(t6,t1,t5);} else{ /* files.scm:195: conc-dirs */ t5=((C_word*)((C_word*)t0)[2])[1]; f_1143(t5,t1,t2);}}} /* _make-pathname in k1058 in k779 in k776 in k773 */ static void C_fcall f_1225(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_1225,5,t1,t2,t3,t4,t5);} a=C_alloc(9); t6=(C_truep(t5)?t5:lf[37]); t7=t6; t8=(C_truep(t4)?t4:lf[38]); t9=t8; t10=C_i_check_string_2(t3,t2); t11=C_i_check_string_2(t9,t2); t12=C_i_check_string_2(t7,t2); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1248,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_1273,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[28]+1))){ t18=C_u_i_memq(t17,lf[41]); t19=t14; f_1273(t19,t18);} else{ t18=t14; f_1273(t18,C_eqp(C_make_character(47),t17));}} else{ t17=t14; f_1273(t17,C_SCHEME_FALSE);}} else{ t16=t14; f_1273(t16,C_SCHEME_FALSE);}} /* loop in create-temporary-file in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_fcall f_1637(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_1637,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_1641,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_1660,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); /* files.scm:325: tempdir */ t5=((C_word*)t0)[5]; f_1600(t5,t4);} /* file-copy in k779 in k776 in k773 */ static void C_ccall f_795(C_word c,C_word *av){ C_word tmp; C_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_795,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[3]); t16=C_i_check_string_2(t3,lf[3]); t17=C_i_check_number_2(t12,lf[3]); t18=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_820,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; /* Re-use our own argvector */ av2[0]=t19; av2[1]=C_SCHEME_UNDEFINED; f_820(2,av2);}} else{ /* files.scm:76: ##sys#error */ t19=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t19; av2[1]=t18; av2[2]=lf[3]; av2[3]=lf[16]; av2[4]=t12; ((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}}} else{ /* files.scm:76: ##sys#error */ t19=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t19; av2[1]=t18; av2[2]=lf[3]; av2[3]=lf[16]; av2[4]=t12; ((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}}} /* k1639 in loop in create-temporary-file in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1641,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1647,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* files.scm:332: file-exists? */ t4=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k788 in delete-file* in k779 in k776 in k773 */ static void C_ccall f_790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_790,2,av);} if(C_truep(t1)){ /* files.scm:67: delete-file */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k1645 in k1639 in loop in create-temporary-file in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1647,2,av);} a=C_alloc(4); if(C_truep(t1)){ /* files.scm:333: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1637(t2,((C_word*)t0)[3]);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1655,a[2]=((C_word*)t0)[4],a[3]=((C_word)li41),tmp=(C_word)a,a+=4,tmp); /* files.scm:334: call-with-output-file */ t3=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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=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_1788,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[78]); 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_1797,a[2]=t6,a[3]=((C_word)li47),tmp=(C_word)a,a+=4,tmp); t11=C_i_check_string_2(t2,lf[83]); 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_1820,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)li50),tmp=(C_word)a,a+=12,tmp)); t21=((C_word*)t19)[1]; f_1820(t21,t1,C_fix(0),C_fix(0),C_SCHEME_END_OF_LIST);} /* k776 in k773 */ static void C_ccall f_778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_778,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_781,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* files.scm:57: register-feature! */ t3=*((C_word*)lf[107]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[108]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k773 */ static void C_ccall f_775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_775,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_778,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k2159 in decompose-directory in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_2161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2161,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2164,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* files.scm:456: absolute-pathname-root */ t4=lf[21];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2162 in k2159 in decompose-directory in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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; 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_2164,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2167,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* files.scm:457: root-origin */ t4=lf[22];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2165 in k2162 in k2159 in decompose-directory in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_2167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2167,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2174,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* files.scm:458: root-directory */ t4=lf[23];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1093 in lp in chop-pds in k1058 in k779 in k776 in k773 */ static void C_fcall f_1095(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_1095,2,t0,t1);} if(C_truep(t1)){ t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* files.scm:169: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1088(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))){ /* files.scm:171: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[27]+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);}}}} /* pds? in normalize-pathname in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static C_word C_fcall f_1797(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[78]); if(C_truep(t2)){ t3=t1; t4=C_u_i_memq(t3,lf[84]); return(t4);} else{ return(C_eqp(t1,C_make_character(47)));}} /* a1491 in pathname-file in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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=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_1492,5,av);} t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* pathname-extension in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_1495(C_word c,C_word *av){ C_word tmp; C_word 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_1495,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1501,a[2]=t2,a[3]=((C_word)li22),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1507,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp); /* files.scm:275: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* k2172 in k2165 in k2162 in k2159 in decompose-directory in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 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,c,4)))){ C_save_and_reclaim((void *)f_2174,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2178,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_truep(t4)?C_SCHEME_FALSE:((C_word*)t0)[4]); t6=t3; if(C_truep(((C_word*)t0)[3])){ t7=C_i_car(t5); t8=C_block_size(((C_word*)t0)[3]); if(C_truep(C_substring_compare(((C_word*)t0)[3],t7,C_fix(0),C_fix(0),t8))){ t9=C_u_i_cdr(t5); t10=C_block_size(t7); t11=C_block_size(t10); t12=C_eqp(t8,t11); if(C_truep(t12)){ t13=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2153,a[2]=t6,a[3]=t9,tmp=(C_word)a,a+=4,tmp); /* files.scm:454: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[27]+1); av2[1]=t13; av2[2]=t7; av2[3]=t8; av2[4]=t10; tp(5,av2);}}} else{ t9=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k2176 in k2172 in k2165 in k2162 in k2159 in decompose-directory in k2194 in k1369 in k1366 in k1058 in k779 in k776 in k773 */ static void C_ccall f_2178(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2178,2,av);} /* files.scm:458: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1506 in pathname-extension in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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=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_1507,5,av);} t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a1500 in pathname-extension in k1369 in k1366 in k1058 in k779 in k776 in k773 */ 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 *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_1501,2,av);} /* files.scm:276: decompose-pathname */ t2=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[165] = { {"f_860:files_2escm",(void*)f_860}, {"f_924:files_2escm",(void*)f_924}, {"f_874:files_2escm",(void*)f_874}, {"f_1516:files_2escm",(void*)f_1516}, {"f_1510:files_2escm",(void*)f_1510}, {"f_783:files_2escm",(void*)f_783}, {"f_781:files_2escm",(void*)f_781}, {"f_1471:files_2escm",(void*)f_1471}, {"f_1477:files_2escm",(void*)f_1477}, {"f_2228:files_2escm",(void*)f_2228}, {"f_2226:files_2escm",(void*)f_2226}, {"f_1522:files_2escm",(void*)f_1522}, {"f_1528:files_2escm",(void*)f_1528}, {"f_867:files_2escm",(void*)f_867}, {"f_2234:files_2escm",(void*)f_2234}, {"f_1480:files_2escm",(void*)f_1480}, {"f_1486:files_2escm",(void*)f_1486}, {"f_2237:files_2escm",(void*)f_2237}, {"f_2201:files_2escm",(void*)f_2201}, {"f_1534:files_2escm",(void*)f_1534}, {"f_2207:files_2escm",(void*)f_2207}, {"f_1313:files_2escm",(void*)f_1313}, {"f_1830:files_2escm",(void*)f_1830}, {"f_2216:files_2escm",(void*)f_2216}, {"f_1546:files_2escm",(void*)f_1546}, {"f_1540:files_2escm",(void*)f_1540}, {"f_1324:files_2escm",(void*)f_1324}, {"f_1707:files_2escm",(void*)f_1707}, {"f_1700:files_2escm",(void*)f_1700}, {"f_958:files_2escm",(void*)f_958}, {"f_955:files_2escm",(void*)f_955}, {"f_2199:files_2escm",(void*)f_2199}, {"f_952:files_2escm",(void*)f_952}, {"f_2196:files_2escm",(void*)f_2196}, {"f_1552:files_2escm",(void*)f_1552}, {"f_1332:files_2escm",(void*)f_1332}, {"f_1558:files_2escm",(void*)f_1558}, {"f_949:files_2escm",(void*)f_949}, {"toplevel:files_2escm",(void*)C_files_toplevel}, {"f_1564:files_2escm",(void*)f_1564}, {"f_2007:files_2escm",(void*)f_2007}, {"f_1820:files_2escm",(void*)f_1820}, {"f_1724:files_2escm",(void*)f_1724}, {"f_1728:files_2escm",(void*)f_1728}, {"f_1720:files_2escm",(void*)f_1720}, {"f_2011:files_2escm",(void*)f_2011}, {"f_1672:files_2escm",(void*)f_1672}, {"f_1875:files_2escm",(void*)f_1875}, {"f_1878:files_2escm",(void*)f_1878}, {"f_1684:files_2escm",(void*)f_1684}, {"f_1884:files_2escm",(void*)f_1884}, {"f_1881:files_2escm",(void*)f_1881}, {"f_1910:files_2escm",(void*)f_1910}, {"f_999:files_2escm",(void*)f_999}, {"f_2153:files_2escm",(void*)f_2153}, {"f_1857:files_2escm",(void*)f_1857}, {"f_1655:files_2escm",(void*)f_1655}, {"f_992:files_2escm",(void*)f_992}, {"f_1854:files_2escm",(void*)f_1854}, {"f_1740:files_2escm",(void*)f_1740}, {"f_986:files_2escm",(void*)f_986}, {"f_989:files_2escm",(void*)f_989}, {"f_880:files_2escm",(void*)f_880}, {"f_1865:files_2escm",(void*)f_1865}, {"f_983:files_2escm",(void*)f_983}, {"f_1861:files_2escm",(void*)f_1861}, {"f_1860:files_2escm",(void*)f_1860}, {"f_1750:files_2escm",(void*)f_1750}, {"f_971:files_2escm",(void*)f_971}, {"f_973:files_2escm",(void*)f_973}, {"f_1393:files_2escm",(void*)f_1393}, {"f_1690:files_2escm",(void*)f_1690}, {"f_1898:files_2escm",(void*)f_1898}, {"f_1694:files_2escm",(void*)f_1694}, {"f_1891:files_2escm",(void*)f_1891}, {"f_1184:files_2escm",(void*)f_1184}, {"f_1180:files_2escm",(void*)f_1180}, {"f_1570:files_2escm",(void*)f_1570}, {"f_1576:files_2escm",(void*)f_1576}, {"f_1625:files_2escm",(void*)f_1625}, {"f_1620:files_2escm",(void*)f_1620}, {"f_1015:files_2escm",(void*)f_1015}, {"f_2061:files_2escm",(void*)f_2061}, {"f_1736:files_2escm",(void*)f_1736}, {"f_1073:files_2escm",(void*)f_1073}, {"f_1582:files_2escm",(void*)f_1582}, {"f_1732:files_2escm",(void*)f_1732}, {"f_1075:files_2escm",(void*)f_1075}, {"f_1588:files_2escm",(void*)f_1588}, {"f_2074:files_2escm",(void*)f_2074}, {"f_1594:files_2escm",(void*)f_1594}, {"f_1607:files_2escm",(void*)f_1607}, {"f_1088:files_2escm",(void*)f_1088}, {"f_1600:files_2escm",(void*)f_1600}, {"f_1062:files_2escm",(void*)f_1062}, {"f_1060:files_2escm",(void*)f_1060}, {"f_964:files_2escm",(void*)f_964}, {"f_961:files_2escm",(void*)f_961}, {"f_1955:files_2escm",(void*)f_1955}, {"f_2082:files_2escm",(void*)f_2082}, {"f_1419:files_2escm",(void*)f_1419}, {"f_2084:files_2escm",(void*)f_2084}, {"f_1614:files_2escm",(void*)f_1614}, {"f_1273:files_2escm",(void*)f_1273}, {"f_1920:files_2escm",(void*)f_1920}, {"f_1343:files_2escm",(void*)f_1343}, {"f_857:files_2escm",(void*)f_857}, {"f_1346:files_2escm",(void*)f_1346}, {"f_1423:files_2escm",(void*)f_1423}, {"f_854:files_2escm",(void*)f_854}, {"f_1349:files_2escm",(void*)f_1349}, {"f_1427:files_2escm",(void*)f_1427}, {"f_1248:files_2escm",(void*)f_1248}, {"f_844:files_2escm",(void*)f_844}, {"f_842:files_2escm",(void*)f_842}, {"f_1946:files_2escm",(void*)f_1946}, {"f_1255:files_2escm",(void*)f_1255}, {"f_1368:files_2escm",(void*)f_1368}, {"f_1409:files_2escm",(void*)f_1409}, {"f_1991:files_2escm",(void*)f_1991}, {"f_1371:files_2escm",(void*)f_1371}, {"f_1372:files_2escm",(void*)f_1372}, {"f_1379:files_2escm",(void*)f_1379}, {"f_1006:files_2escm",(void*)f_1006}, {"f_1452:files_2escm",(void*)f_1452}, {"f_1459:files_2escm",(void*)f_1459}, {"f_1465:files_2escm",(void*)f_1465}, {"f_820:files_2escm",(void*)f_820}, {"f_2114:files_2escm",(void*)f_2114}, {"f_1434:files_2escm",(void*)f_1434}, {"f_1431:files_2escm",(void*)f_1431}, {"f_835:files_2escm",(void*)f_835}, {"f_832:files_2escm",(void*)f_832}, {"f_1444:files_2escm",(void*)f_1444}, {"f_829:files_2escm",(void*)f_829}, {"f_1448:files_2escm",(void*)f_1448}, {"f_826:files_2escm",(void*)f_826}, {"f_823:files_2escm",(void*)f_823}, {"f_1152:files_2escm",(void*)f_1152}, {"f_1143:files_2escm",(void*)f_1143}, {"f_1664:files_2escm",(void*)f_1664}, {"f_1660:files_2escm",(void*)f_1660}, {"f_1668:files_2escm",(void*)f_1668}, {"f_1194:files_2escm",(void*)f_1194}, {"f_1225:files_2escm",(void*)f_1225}, {"f_1637:files_2escm",(void*)f_1637}, {"f_795:files_2escm",(void*)f_795}, {"f_1641:files_2escm",(void*)f_1641}, {"f_790:files_2escm",(void*)f_790}, {"f_1647:files_2escm",(void*)f_1647}, {"f_1788:files_2escm",(void*)f_1788}, {"f_778:files_2escm",(void*)f_778}, {"f_775:files_2escm",(void*)f_775}, {"f_2161:files_2escm",(void*)f_2161}, {"f_2164:files_2escm",(void*)f_2164}, {"f_2167:files_2escm",(void*)f_2167}, {"f_1095:files_2escm",(void*)f_1095}, {"f_1797:files_2escm",(void*)f_1797}, {"f_1492:files_2escm",(void*)f_1492}, {"f_1495:files_2escm",(void*)f_1495}, {"f_2174:files_2escm",(void*)f_2174}, {"f_2178:files_2escm",(void*)f_2178}, {"f_1507:files_2escm",(void*)f_1507}, {"f_1501:files_2escm",(void*)f_1501}, {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| for-each 1 o|eliminated procedure checks: 41 o|specializations: o| 1 (char=? char char) o| 1 (string-ref string fixnum) o| 1 (string=? string string) o| 1 (car pair) o| 5 (cdr pair) o| 1 (zero? fixnum) o| 3 (memq * list) (o e)|safe calls: 234 o|dropping redundant toplevel assignment: create-temporary-file o|dropping redundant toplevel assignment: create-temporary-directory o|Removed `not' forms: 4 o|inlining procedure: k785 o|inlining procedure: k785 o|inlining procedure: k846 o|inlining procedure: k846 o|inlining procedure: k881 o|inlining procedure: k881 o|inlining procedure: k975 o|inlining procedure: k975 o|inlining procedure: k1007 o|inlining procedure: k1007 o|inlining procedure: k1077 o|inlining procedure: k1090 o|inlining procedure: k1090 o|contracted procedure: "(files.scm:168) g176177" o|inlining procedure: k1121 o|substituted constant variable: a1125 o|inlining procedure: k1121 o|inlining procedure: k1077 o|inlining procedure: k1154 o|inlining procedure: k1154 o|inlining procedure: k1196 o|inlining procedure: k1196 o|inlining procedure: k1250 o|inlining procedure: k1250 o|inlining procedure: k1284 o|contracted procedure: "(files.scm:207) g214215" o|inlining procedure: k1292 o|substituted constant variable: a1296 o|inlining procedure: k1292 o|inlining procedure: k1284 o|inlining procedure: k1344 o|inlining procedure: k1344 o|inlining procedure: k1374 o|inlining procedure: k1374 o|inlining procedure: k1398 o|inlining procedure: k1398 o|inlining procedure: k1435 o|inlining procedure: k1435 o|inlining procedure: k1602 o|inlining procedure: k1602 o|inlining procedure: k1615 o|inlining procedure: k1615 o|inlining procedure: k1642 o|inlining procedure: k1642 o|inlining procedure: k1695 o|inlining procedure: k1695 o|inlining procedure: k1752 o|inlining procedure: k1752 o|substituted constant variable: a1761 o|inlining procedure: k1763 o|inlining procedure: k1763 o|inlining procedure: k1799 o|substituted constant variable: a1806 o|inlining procedure: k1799 o|inlining procedure: k1822 o|inlining procedure: k1840 o|inlining procedure: k1840 o|inlining procedure: k1885 o|inlining procedure: k1885 o|inlining procedure: k1912 o|inlining procedure: k1912 o|inlining procedure: k1822 o|inlining procedure: k1956 o|inlining procedure: k1956 o|contracted procedure: k1992 o|inlining procedure: k1996 o|inlining procedure: k1996 o|inlining procedure: k2002 o|inlining procedure: k2002 o|substituted constant variable: a2043 o|inlining procedure: k2037 o|inlining procedure: k2037 o|inlining procedure: k2070 o|inlining procedure: k2070 o|inlining procedure: k2089 o|inlining procedure: k2089 o|contracted procedure: "(files.scm:458) strip-origin-prefix511" o|contracted procedure: k2122 o|inlining procedure: k2119 o|contracted procedure: k2134 o|inlining procedure: k2141 o|inlining procedure: k2141 o|inlining procedure: k2119 o|contracted procedure: k2183 o|inlining procedure: k2209 o|inlining procedure: k2209 o|inlining procedure: k2218 o|inlining procedure: k2218 o|inlining procedure: k2239 o|inlining procedure: k2239 o|replaced variables: 243 o|removed binding forms: 113 o|substituted constant variable: r7862246 o|substituted constant variable: r10782260 o|substituted constant variable: r11552261 o|substituted constant variable: r11972263 o|substituted constant variable: r12512265 o|substituted constant variable: r12512265 o|substituted constant variable: r12512267 o|substituted constant variable: r12512267 o|substituted constant variable: r12852272 o|substituted constant variable: r13752278 o|inlining procedure: k1608 o|inlining procedure: k1608 o|inlining procedure: k1608 o|inlining procedure: k1608 o|substituted constant variable: r19972309 o|substituted constant variable: r19972311 o|substituted constant variable: r20382316 o|converted assignments to bindings: (pds?445) o|substituted constant variable: r20712317 o|substituted constant variable: r20712317 o|substituted constant variable: r20712319 o|substituted constant variable: r20712319 o|converted assignments to bindings: (addpart423) o|converted assignments to bindings: (tempdir383) o|substituted constant variable: r22102328 o|substituted constant variable: r22192330 o|substituted constant variable: r22402332 o|simplifications: ((let . 3)) o|replaced variables: 16 o|removed binding forms: 245 o|inlining procedure: k887 o|inlining procedure: k1019 o|inlining procedure: k1837 o|replaced variables: 11 o|removed binding forms: 41 o|substituted constant variable: r8882388 o|substituted constant variable: r10202391 o|simplifications: ((let . 1)) o|replaced variables: 1 o|removed binding forms: 8 o|removed conditional forms: 2 o|removed binding forms: 3 o|simplifications: ((if . 23) (##core#call . 141)) o| call simplifications: o| list? o| member o| string-ref o| pair? o| ##sys#slot 2 o| string 2 o| string=? 2 o| cons 3 o| ##sys#fudge 2 o| ##sys#call-with-values 8 o| values 5 o| fx> 3 o| char=? o| not 2 o| string? o| list o| ##sys#check-list 2 o| string-length o| fx>= 4 o| eq? 11 o| ##sys#size 12 o| fx< o| fx- 2 o| car 13 o| null? 19 o| cdr 5 o| ##sys#check-string 12 o| ##sys#check-number 2 o| integer? 2 o| > 2 o| fx= 7 o| fx+ 10 o|contracted procedure: k917 o|contracted procedure: k797 o|contracted procedure: k911 o|contracted procedure: k800 o|contracted procedure: k905 o|contracted procedure: k803 o|contracted procedure: k899 o|contracted procedure: k806 o|contracted procedure: k809 o|contracted procedure: k812 o|contracted procedure: k815 o|contracted procedure: k849 o|contracted procedure: k869 o|contracted procedure: k893 o|contracted procedure: k887 o|substituted constant variable: g2465 o|contracted procedure: k1049 o|contracted procedure: k926 o|contracted procedure: k1043 o|contracted procedure: k929 o|contracted procedure: k1037 o|contracted procedure: k932 o|contracted procedure: k1031 o|contracted procedure: k935 o|contracted procedure: k938 o|contracted procedure: k941 o|contracted procedure: k944 o|contracted procedure: k978 o|contracted procedure: k1001 o|contracted procedure: k1025 o|contracted procedure: k1019 o|substituted constant variable: g2469 o|contracted procedure: k1064 o|contracted procedure: k1084 o|contracted procedure: k1100 o|contracted procedure: k1113 o|contracted procedure: k1106 o|contracted procedure: k1116 o|contracted procedure: k1134 o|contracted procedure: k1139 o|contracted procedure: k1145 o|contracted procedure: k1157 o|contracted procedure: k1160 o|contracted procedure: k1190 o|contracted procedure: k1166 o|contracted procedure: k1199 o|contracted procedure: k1202 o|contracted procedure: k1208 o|contracted procedure: k1215 o|contracted procedure: k1227 o|contracted procedure: k1230 o|contracted procedure: k1233 o|contracted procedure: k1236 o|contracted procedure: k1239 o|contracted procedure: k1268 o|contracted procedure: k1256 o|contracted procedure: k1263 o|contracted procedure: k1278 o|contracted procedure: k1309 o|contracted procedure: k1281 o|contracted procedure: k1305 o|contracted procedure: k1287 o|contracted procedure: k1325 o|contracted procedure: k1315 o|contracted procedure: k1353 o|contracted procedure: k1334 o|contracted procedure: k1360 o|contracted procedure: k1363 o|contracted procedure: k1390 o|contracted procedure: k1383 o|contracted procedure: k1395 o|contracted procedure: k1461 o|contracted procedure: k1401 o|contracted procedure: k1677 o|contracted procedure: k1627 o|contracted procedure: k1630 o|contracted procedure: k1674 o|contracted procedure: k1711 o|contracted procedure: k1742 o|contracted procedure: k2190 o|contracted procedure: k1746 o|contracted procedure: k1755 o|contracted procedure: k1766 o|inlining procedure: k1769 o|contracted procedure: k1782 o|inlining procedure: k1769 o|contracted procedure: k2054 o|contracted procedure: k1790 o|contracted procedure: k2051 o|contracted procedure: k1793 o|contracted procedure: k1802 o|contracted procedure: k1810 o|contracted procedure: k1813 o|contracted procedure: k1825 o|contracted procedure: k1834 o|contracted procedure: k1846 o|contracted procedure: k1837 o|contracted procedure: k1870 o|contracted procedure: k1892 o|contracted procedure: k1900 o|contracted procedure: k1903 o|contracted procedure: k1915 o|contracted procedure: k1925 o|contracted procedure: k1929 o|contracted procedure: k1933 o|contracted procedure: k1936 o|contracted procedure: k1959 o|contracted procedure: k1966 o|contracted procedure: k1970 o|contracted procedure: k1977 o|contracted procedure: k1981 o|contracted procedure: k1999 o|contracted procedure: k2016 o|contracted procedure: k2020 o|contracted procedure: k2024 o|contracted procedure: k2031 o|contracted procedure: k2034 o|contracted procedure: k2048 o|contracted procedure: k2063 o|contracted procedure: k2086 o|contracted procedure: k2104 o|contracted procedure: k2095 o|contracted procedure: k2107 o|contracted procedure: k2187 o|contracted procedure: k2180 o|contracted procedure: k2125 o|contracted procedure: k2128 o|contracted procedure: k2138 o|contracted procedure: k2155 o|contracted procedure: k2144 o|simplifications: ((if . 1) (let . 20)) o|replaced variables: 2 o|removed binding forms: 126 o|replaced variables: 53 o|removed binding forms: 5 o|removed binding forms: 24 o|direct leaf routine/allocation: addpart423 9 o|direct leaf routine/allocation: pds?445 0 o|direct leaf routine/allocation: loop502 0 o|contracted procedure: "(files.scm:382) k1940" o|contracted procedure: "(files.scm:401) k1950" o|contracted procedure: "(files.scm:408) k1985" o|converted assignments to bindings: (loop502) o|simplifications: ((let . 1)) o|removed binding forms: 3 o|customizable procedures: (k1058 split-directory k2005 k1953 loop450 k1828 g464471 for-each-loop463475 k1882 loop414 tempdir383 loop408 strip-pds255 canonicalize-dirs184 _make-pathname185 k1271 k1253 conc-dirs183 chop-pds loop187 k1093 lp169 loop131 loop92) o|calls to known targets: 68 o|identified direct recursive calls: f_1152 1 o|identified direct recursive calls: f_2084 1 o|fast box initializations: 11 o|fast global references: 8 o|fast global assignments: 11 o|dropping unused closure argument: f_1750 o|dropping unused closure argument: f_2061 o|dropping unused closure argument: f_1075 o|dropping unused closure argument: f_2084 o|dropping unused closure argument: f_1372 o|dropping unused closure argument: f_1225 */ /* end of file */ ����������������������������������������������������������������������������chicken-4.12.0/Makefile.bsd�������������������������������������������������������������������������0000644�0001750�0001750�00000010170�13052302367�015217� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# Makefile.bsd - configuration for BSD UNIX -*- Makefile -*- # # Copyright (c) 2008-2017, 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_GRP_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 ifdef SYMBOLGC echo "#define C_COLLECT_ALL_SYMBOLS" >>$@ endif # Of the BSDs, only FreeBSD hates composable feature macros... echo "#ifndef __FreeBSD__" >> $@ echo "# define C_USE_STD_FEATURE_MACROS" >> $@ echo "#endif" >> $@ cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/chicken-bug.1������������������������������������������������������������������������0000644�0001750�0001750�00000002713�13052302315�015246� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������.\" dummy line .TH CHICKEN-BUG 1 "19 Sep 2001" .SH NAME chicken-bug \- generates a bug report from user input .SH SYNOPSIS .B chicken-bug [ .I filename | .I OPTION ... ] .SH OPTIONS .TP .B \-help Show usage information. .TP .B \-to-stdout Write bug report to standard output instead of writing it to a file. .TP .B \- Read user input from standard input, even if files are given on the command line. .SH DESCRIPTION .I chicken-bug generates a bug report file that collects user-input, optional files and system information obtained from the installed CHICKEN executables and libraries. Non-option arguments given on the command line are inserted into the bug report. If no option is given, or if .B \- has been passed on the command line, then a description of the problem is read from standard input, until EOF (CTRL-D) or a line consisting only of "." (period) is read. The bug report will be written to a file in the current directory, which should be sent to CHICKEN maintainers as it contains various useful bits of information that make it easier to classify the problem described. Bug reports should be as detailed as possible. It is also very helpful to include code that reproduces the problem. The more detailed the input and the more thorough the description is, the easier you make it for the CHICKEN developers to help you. .SH BUGS Submit bug reports by e-mail to .I chicken-janitors@nongnu.org .SH AUTHOR The CHICKEN Team. .SH SEE ALSO .BR chicken(1) �����������������������������������������������������chicken-4.12.0/Makefile.ios�������������������������������������������������������������������������0000644�0001750�0001750�00000010250�13052303762�015240� 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 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_GRP_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 ifdef SYMBOLGC echo "#define C_COLLECT_ALL_SYMBOLS" >>$@ endif cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/chicken.import.scm�������������������������������������������������������������������0000644�0001750�0001750�00000011643�13052306173�016436� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.import.scm - import library for "chicken" module ; ; Copyright (c) 2008-2017, 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 '(abort add1 argc+argv argv arithmetic-shift bit-set? bitwise-and bitwise-ior bitwise-not bitwise-xor blob->string blob-size blob? blob=? build-platform call/cc case-sensitive char-name chicken-home chicken-version command-line-arguments condition-predicate condition-property-accessor condition? condition->list continuation-capture continuation-graft continuation-return continuation? copy-read-table cpu-time current-error-port current-exception-handler current-gc-milliseconds current-milliseconds current-read-table current-seconds define-reader-ctor delete-file directory-exists? enable-warnings equal=? er-macro-transformer errno error exit exit-handler expand extension-information feature? features file-exists? finite? fixnum-bits fixnum-precision fixnum? flonum-decimal-precision flonum-epsilon flonum-maximum-decimal-exponent flonum-maximum-exponent flonum-minimum-decimal-exponent flonum-minimum-exponent flonum-precision flonum-print-precision flonum-radix flonum? flush-output foldl foldr force-finalizers fp- fp* fp/ fp+ fp< fp<= fp= fp> fp>= fpabs fpacos fpasin fpatan fpatan2 fpexp fpexpt fpfloor fpceiling fpcos fpinteger? fplog fpmax fpmin fpneg fpround fpsin fpsqrt fptan fptruncate fx- fx* fx/ fx+ fx< fx<= fx= fx> fx>= fxand fxeven? fxior fxmax fxmin fxmod fxneg fxnot fxodd? fxshl fxshr fxxor gc gensym get get-call-chain get-condition-property get-environment-variable get-keyword get-output-string get-properties getter-with-setter implicit-exit-handler ir-macro-transformer keyword->string keyword-style keyword? load-library load-relative load-verbose machine-byte-order machine-type make-blob make-composite-condition make-parameter make-promise make-property-condition maximum-flonum memory-statistics minimum-flonum module-environment most-negative-fixnum most-positive-fixnum on-exit open-input-string open-output-string parentheses-synonyms port-closed? port-name port-position port? print print-call-chain print-error-message print* procedure-information program-name promise? put! quit register-feature! remprop! rename-file repl repl-prompt repository-path require reset reset-handler return-to-host reverse-list->string set-finalizer! set-gc-report! set-parameterized-read-syntax! set-port-name! set-read-syntax! set-sharp-read-syntax! setter signal signum singlestep software-type software-version string->blob string->keyword string->uninterned-symbol strip-syntax sub1 subvector symbol-append symbol-escape symbol-plist syntax-error system unregister-feature! vector-resize vector-copy! void warning eval-handler er-macro-transformer ir-macro-transformer dynamic-load-libraries with-exception-handler) ##sys#chicken-macro-environment) ;XXX incorrect - won't work in compiled executable that does expansion ���������������������������������������������������������������������������������������������chicken-4.12.0/buildversion�������������������������������������������������������������������������0000644�0001750�0001750�00000000006�13052305462�015434� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������4.12.0��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/Makefile.android���������������������������������������������������������������������0000644�0001750�0001750�00000007604�13052303762�016077� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# Makefile.android - configuration for Android -*- Makefile -*- # # Copyright (c) 2013-2017, 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_GRP_H 1" >>$@ echo "#define HAVE_ERRNO_H 1" >>$@ echo "#define HAVE_MEMMOVE 1" >>$@ echo "#define C_STACK_GROWS_DOWNWARD 1" >>$@ ifdef GCHOOKS echo "#define C_GC_HOOKS" >>$@ endif ifdef SYMBOLGC echo "#define C_COLLECT_ALL_SYMBOLS" >>$@ endif echo "#define C_USE_STD_FEATURE_MACROS" >>$@ cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make ����������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/ports.import.c�����������������������������������������������������������������������0000644�0001750�0001750�00000013574�13052306543�015647� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from ports.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: ports.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file ports.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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_199) static void C_ccall f_199(C_word c,C_word *av) C_noret; C_noret_decl(f_208) static void C_ccall f_208(C_word c,C_word *av) C_noret; C_noret_decl(f_205) static void C_ccall f_205(C_word c,C_word *av) C_noret; C_noret_decl(f_202) static void C_ccall f_202(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; /* k197 */ static void C_ccall f_199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_199,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k206 in k203 in k200 in k197 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_208,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k203 in k200 in k197 */ static void C_ccall f_205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_205,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ports.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; /* Re-use our own argvector */ } 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);}} /* k200 in k197 */ static void C_ccall f_202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(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(174))){ C_save(t1); C_rereclaim2(174*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,3); lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module"); lf[1]=C_h_intern(&lf[1],5,"ports"); lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\026call-with-input-string\376\003\000\000\002\376\001\000\000\027call-with-output-string\376\003\000\000\002\376\001\000\000\011copy-" "port\376\003\000\000\002\376\001\000\000\017make-input-port\376\003\000\000\002\376\001\000\000\020make-output-port\376\003\000\000\002\376\001\000\000\015port-for-each\376\003" "\000\000\002\376\001\000\000\010port-map\376\003\000\000\002\376\001\000\000\011port-fold\376\003\000\000\002\376\001\000\000\023make-broadcast-port\376\003\000\000\002\376\001\000\000\026make-c" "oncatenated-port\376\003\000\000\002\376\001\000\000\031with-error-output-to-port\376\003\000\000\002\376\001\000\000\024with-input-from-por" "t\376\003\000\000\002\376\001\000\000\026with-input-from-string\376\003\000\000\002\376\001\000\000\023with-output-to-port\376\003\000\000\002\376\001\000\000\025with-out" "put-to-string\376\003\000\000\002\376\001\000\000\031with-error-output-to-port\376\377\016"); C_register_lf2(lf,3,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_199,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {"f_199:ports_2eimport_2escm",(void*)f_199}, {"f_208:ports_2eimport_2escm",(void*)f_208}, {"f_205:ports_2eimport_2escm",(void*)f_205}, {"f_202:ports_2eimport_2escm",(void*)f_202}, {"toplevel:ports_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-4.12.0/setup-download.import.scm������������������������������������������������������������0000644�0001750�0001750�00000001614�13052306524�017774� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; setup-download.import.scm - GENERATED BY CHICKEN 4.12.0 -*- Scheme -*- (eval '(import scheme chicken foreign extras irregex posix utils srfi-1 data-structures tcp srfi-13 srfi-14 files setup-api)) (##sys#register-compiled-module 'setup-download (list) '((retrieve-extension . setup-download#retrieve-extension) (locate-egg/local . setup-download#locate-egg/local) (locate-egg/svn . setup-download#locate-egg/svn) (locate-egg/http . setup-download#locate-egg/http) (gather-egg-information . setup-download#gather-egg-information) (list-extensions . setup-download#list-extensions) (list-extension-versions . setup-download#list-extension-versions) (temporary-directory . setup-download#temporary-directory)) (list) (list)) ;; END OF FILE ��������������������������������������������������������������������������������������������������������������������chicken-4.12.0/Makefile.haiku�����������������������������������������������������������������������0000644�0001750�0001750�00000007504�13052302367�015557� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# Makefile.haiku - configuration for Haiku -*- Makefile -*- # # Copyright (c) 2011-2017, 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_GRP_H 1" >>$@ echo "#define HAVE_ERRNO_H 1" >>$@ echo "#define HAVE_MEMMOVE 1" >>$@ echo "#define C_STACK_GROWS_DOWNWARD 1" >>$@ echo "#define SIGIO 0" >>$@ ifdef GCHOOKS echo "#define C_GC_HOOKS" >>$@ endif ifdef SYMBOLGC echo "#define C_COLLECT_ALL_SYMBOLS" >>$@ endif echo "#define C_USE_STD_FEATURE_MACROS" >>$@ cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/debugger-client.c��������������������������������������������������������������������0000644�0001750�0001750�00000003661�13052306300�016212� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from debugger-client.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:17 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: debugger-client.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file debugger-client.c unit: debugger_2dclient */ #include "chicken.h" #include "dbg-stub.c" static C_PTABLE_ENTRY *create_ptable(void); 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 *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("debugger_2dclient_toplevel")); C_check_nursery_minimum(C_calculate_demand(0,c,1)); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void*)C_debugger_2dclient_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(0))){ C_save(t1); C_rereclaim2(0*sizeof(C_word),1); t1=C_restore;} a=C_alloc(0);{} t2=connect_to_debugger(); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[2] = { {"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-4.12.0/srfi-69.scm��������������������������������������������������������������������������0000644�0001750�0001750�00000117335�13052306173�014725� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; srfi-69.scm - Optional non-standard extensions ; ; Copyright (c) 2008-2017, 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-69) (hide *eq?-hash *eqv?-hash *equal?-hash *make-hash-table *hash-table-copy *hash-table-merge! *hash-table-update!/default *hash-table-for-each *hash-table-fold hash-default-randomization hash-table-canonical-length hash-table-rehash! hash-table-check-resize! ) ) (include "common-declarations.scm") (foreign-declare "#define C_rnd_fix() (C_fix(rand()))") (register-feature! 'srfi-69) ;;; Naming Conventions: ;; %foo - inline primitive ;; %%foo - local inline (no such thing but at least it looks different) ;; $foo - local macro ;; *foo - local unchecked variant of a checked procedure ;; ##sys#foo - public, but undocumented, un-checked procedure ;; foo - public checked procedure ;; ;;; Core Inlines: (define-inline (%fix wrd) (##core#inline "C_fix" wrd) ) (define-inline (%block? obj) (##core#inline "C_blockp" obj) ) (define-inline (%immediate? obj) (not (##core#inline "C_blockp" obj)) ) (define-inline (%special? obj) (##core#inline "C_specialp" obj) ) (define-inline (%port? obj) (##core#inline "C_portp" obj) ) (define-inline (%byte-block? obj) (##core#inline "C_byteblockp" obj) ) (define-inline (%string-hash str rnd) (##core#inline "C_u_i_string_hash" str rnd) ) (define-inline (%string-ci-hash str rnd) (##core#inline "C_u_i_string_ci_hash" str rnd) ) (define-inline (%subbyte bytvec i) (##core#inline "C_subbyte" bytvec i) ) (define-inline (exactify n) (if (##sys#immediate? n) n (##core#inline "C_i_inexact_to_exact" n))) ;;; Generation of hash-values: ;; All '%foo-hash' return a fixnum, not necessarily positive. The "overflow" of ;; a, supposedly, unsigned hash value into negative is not checked during ;; intermediate computation. ;; ;; The body of '*eq?-hash' is duplicated in '*eqv?-hash' and the body of '*eqv?-hash' ;; is duplicated in '*equal?-hash' to save on procedure calls. ;; Fixed hash-values: (define-constant other-hash-value 99) (define-constant true-hash-value 256) (define-constant false-hash-value 257) (define-constant null-hash-value 258) (define-constant eof-hash-value 259) (define-constant input-port-hash-value 260) (define-constant output-port-hash-value 261) (define-constant unknown-immediate-hash-value 262) (define-constant hash-default-bound 536870912) (define hash-default-randomization (##core#inline "C_rnd_fix")) ;; Force Hash to Bounded Fixnum: (define-inline (%fxabs fxn) (if (fx< fxn 0) (fxneg fxn) fxn ) ) (define-inline (%hash/limit hsh lim) ;; use 32-bit mask to have identical hashes on 64-bit platforms (fxmod (fxand (foreign-value "C_MOST_POSITIVE_32_BIT_FIXNUM" int) (%fxabs hsh)) lim) ) ;; Number Hash: (define-constant flonum-magic 331804471) (define-syntax $flonum-hash (er-macro-transformer (lambda (form r c) (let ( (flo (cadr form)) (_%subbyte (r '%subbyte)) (_flonum-magic (r 'flonum-magic)) (_fx+ (r 'fx+)) (_fx* (r 'fx*)) (_fxshl (r 'fxshl)) ) `(,_fx* ,_flonum-magic ,(let loop ( (idx (fx- (##sys#size 1.0) 1)) ) (if (fx= 0 idx) `(,_%subbyte ,flo 0) `(,_fx+ (,_%subbyte ,flo ,idx) (,_fxshl ,(loop (fx- idx 1)) 1)) ) ) ) ) )) ) (define (##sys#number-hash-hook obj rnd) (*equal?-hash obj rnd) ) (define-inline (%non-fixnum-number-hash obj rnd) (cond [(flonum? obj) ($flonum-hash obj rnd)] [else (%fix (##sys#number-hash-hook obj rnd))] ) ) (define-inline (%number-hash obj rnd) (cond [(fixnum? obj) (fxxor obj rnd)] [else (%non-fixnum-number-hash obj rnd)] ) ) (define (number-hash obj #!optional (bound hash-default-bound) (randomization hash-default-randomization)) (unless (number? obj) (##sys#signal-hook #:type 'number-hash "invalid number" obj) ) (##sys#check-exact bound 'number-hash) (%hash/limit (%number-hash obj randomization) bound) ) ;; Object UID Hash: #; ;NOT YET (no weak-reference) (define-inline (%object-uid-hash obj) (%uid-hash (##sys#object->uid obj)) ) (define-inline (%object-uid-hash obj rnd) (*equal?-hash obj rnd) ) (define (object-uid-hash obj #!optional (bound hash-default-bound) (randomization hash-default-randomization)) (##sys#check-exact bound 'object-uid-hash) (%hash/limit (%object-uid-hash obj randomization) bound) ) ;; Symbol Hash: #; ;NOT YET (no unique-symbol-hash) (define-inline (%symbol-hash obj) (##sys#slot obj INDEX-OF-UNIQUE-HASH-VALUE-COMPUTED-DURING-SYMBOL-CREATION) ) (define-inline (%symbol-hash obj rnd) (%string-hash (##sys#slot obj 1) rnd) ) (define (symbol-hash obj #!optional (bound hash-default-bound) (randomization hash-default-randomization)) (##sys#check-symbol obj 'symbol-hash) (##sys#check-exact bound 'symbol-hash) (%hash/limit (%symbol-hash obj randomization) bound) ) ;; Keyword Hash: (define (##sys#check-keyword x . y) (unless (keyword? x) (##sys#signal-hook #:type-error (and (not (null? y)) (car y)) "bad argument type - not a keyword" x) ) ) #; ;NOT YET (no unique-keyword-hash) (define-inline (%keyword-hash obj) (##sys#slot obj INDEX-OF-UNIQUE-HASH-VALUE-COMPUTED-DURING-KEYWORD-CREATION) ) (define-inline (%keyword-hash obj rnd) (%string-hash (##sys#slot obj 1) rnd) ) (define (keyword-hash obj #!optional (bound hash-default-bound) (randomization hash-default-randomization)) (##sys#check-keyword obj 'keyword-hash) (##sys#check-exact bound 'keyword-hash) (%hash/limit (%keyword-hash obj randomization) bound) ) ;; Eq Hash: (define-inline (%eq?-hash-object? obj) (or (%immediate? obj) (symbol? obj) #; ;NOT YET (no keyword vs. symbol issue) (keyword? obj) ) ) (define (*eq?-hash obj rnd) (cond [(fixnum? obj) (fxxor obj rnd)] [(char? obj) (fxxor (char->integer obj) rnd)] [(eq? obj #t) (fxxor true-hash-value rnd)] [(eq? obj #f) (fxxor false-hash-value rnd)] [(null? obj) (fxxor null-hash-value rnd)] [(eof-object? obj) (fxxor eof-hash-value rnd)] [(symbol? obj) (%symbol-hash obj rnd)] #; ;NOT YET (no keyword vs. symbol issue) [(keyword? obj) (%keyword-hash obj rnd)] [(%immediate? obj) (fxxor unknown-immediate-hash-value rnd)] [else (%object-uid-hash obj rnd) ] ) ) (define (eq?-hash obj #!optional (bound hash-default-bound) (randomization hash-default-randomization)) (##sys#check-exact bound 'eq?-hash) (%hash/limit (*eq?-hash obj randomization) bound) ) (define hash-by-identity eq?-hash) ;; Eqv Hash: (define-inline (%eqv?-hash-object? obj) (or (%eq?-hash-object? obj) (number? obj) ) ) (define (*eqv?-hash obj rnd) (cond [(fixnum? obj) (fxxor obj rnd)] [(char? obj) (fxxor (char->integer obj) rnd)] [(eq? obj #t) (fxxor true-hash-value rnd)] [(eq? obj #f) (fxxor false-hash-value rnd)] [(null? obj) (fxxor null-hash-value rnd)] [(eof-object? obj) (fxxor eof-hash-value rnd)] [(symbol? obj) (%symbol-hash obj rnd)] #; ;NOT YET (no keyword vs. symbol issue) [(keyword? obj) (%keyword-hash obj rnd)] [(number? obj) (%non-fixnum-number-hash obj rnd)] [(%immediate? obj) (fxxor unknown-immediate-hash-value rnd)] [else (%object-uid-hash obj rnd) ] ) ) (define (eqv?-hash obj #!optional (bound hash-default-bound) (randomization hash-default-randomization)) (##sys#check-exact bound 'eqv?-hash) (%hash/limit (*eqv?-hash obj randomization) bound) ) ;; Equal Hash: (define-constant default-recursive-hash-max-depth 4) (define-constant default-recursive-hash-max-length 4) (define *recursive-hash-max-depth* default-recursive-hash-max-depth) (define recursive-hash-max-depth (make-parameter default-recursive-hash-max-depth (lambda (x) (if (and (fixnum? x) (positive? x)) (begin (set! *recursive-hash-max-depth* x) x ) *recursive-hash-max-depth*)))) (define *recursive-hash-max-length* default-recursive-hash-max-length) (define recursive-hash-max-length (make-parameter default-recursive-hash-max-length (lambda (x) (if (and (fixnum? x) (positive? x)) (begin (set! *recursive-hash-max-length* x) x ) *recursive-hash-max-length*)))) ;; NOTE - These refer to identifiers available only within the body of '*equal?-hash'. (define-inline (%%pair-hash obj rnd) (fx+ (fxshl (recursive-hash (##sys#slot obj 0) (fx+ depth 1) rnd) 16) (recursive-hash (##sys#slot obj 1) (fx+ depth 1) rnd)) ) (define-inline (%%port-hash obj rnd) (fx+ (fxxor (fxshl (##sys#peek-fixnum obj 0) 4) rnd) ; Little extra "identity" (if (input-port? obj) input-port-hash-value output-port-hash-value)) ) (define-inline (%%special-vector-hash obj rnd) (vector-hash obj (##sys#peek-fixnum obj 0) depth 1 rnd) ) (define-inline (%%regular-vector-hash obj rnd) (vector-hash obj 0 depth 0 rnd) ) (define (*equal?-hash obj rnd) ; Recurse into some portion of the vector's slots (define (vector-hash obj seed depth start rnd) (let ([len (##sys#size obj)]) (let loop ([hsh (fx+ len (fxxor seed rnd))] [i start] [len (fx- (fxmax start (fxmin *recursive-hash-max-length* len)) start)] ) (if (fx= len 0) hsh (loop (fx+ hsh (fx+ (fxshl hsh 4) (recursive-hash (##sys#slot obj i) (fx+ depth 1) rnd))) (fx+ i 1) (fx- len 1) ) ) ) ) ) ; Recurse into structured objects (define (recursive-hash obj depth rnd) (cond [(fx>= depth *recursive-hash-max-depth*) (fxxor other-hash-value rnd)] [(fixnum? obj) (fxxor obj rnd)] [(char? obj) (fxxor (char->integer obj) rnd)] [(eq? obj #t) (fxxor true-hash-value rnd)] [(eq? obj #f) (fxxor false-hash-value rnd)] [(null? obj) (fxxor null-hash-value rnd)] [(eof-object? obj) (fxxor eof-hash-value rnd)] [(symbol? obj) (%symbol-hash obj rnd)] #; ;NOT YET (no keyword vs. symbol issue) [(keyword? obj) (%keyword-hash obj rnd)] [(number? obj) (%non-fixnum-number-hash obj rnd)] [(%immediate? obj) (fxxor unknown-immediate-hash-value rnd)] [(%byte-block? obj) (%string-hash obj rnd)] [(pair? obj) (%%pair-hash obj rnd)] [(%port? obj) (%%port-hash obj rnd)] [(%special? obj) (%%special-vector-hash obj rnd)] [else (%%regular-vector-hash obj rnd)] ) ) ; (recursive-hash obj 0 rnd) ) (define (equal?-hash obj #!optional (bound hash-default-bound) (randomization hash-default-randomization)) (##sys#check-exact bound 'hash) (%hash/limit (*equal?-hash obj randomization) bound) ) (define hash equal?-hash) ;; String Hash: (define (string-hash str #!optional (bound hash-default-bound) start end (randomization hash-default-randomization)) (##sys#check-string str 'string-hash) (##sys#check-exact bound 'string-hash) (let ((str (if start (let ((end (or end (##sys#size str)))) (##sys#check-range start 0 (##sys#size str) 'string-hash) (##sys#check-range end 0 (##sys#size str) 'string-hash) (##sys#substring str start end)) str)) ) (%hash/limit (%string-hash str randomization) bound) ) ) (define (string-ci-hash str #!optional (bound hash-default-bound) start end (randomization hash-default-randomization)) (##sys#check-string str 'string-ci-hash) (##sys#check-exact bound 'string-ci-hash) (let ((str (if start (let ((end (or end (##sys#size str)))) (##sys#check-range start 0 (##sys#size str) 'string-hash) (##sys#check-range end 0 (##sys#size str) 'string-hash) (##sys#substring str start end)) str)) ) (%hash/limit (%string-ci-hash str randomization) bound) ) ) (define string-hash-ci string-ci-hash) ;;; Hash-Tables: ; Predefined sizes for the hash tables: ; ; Starts with 307; each element is the smallest prime that is at least twice in ; magnitude as the previous element in the list. ; ; The last number is an exception: it is the largest 32-bit fixnum we can represent. (define-constant hash-table-prime-lengths '(307 617 1237 2477 4957 9923 19853 39709 79423 158849 317701 635413 1270849 2541701 5083423 10166857 20333759 40667527 81335063 162670129 325340273 650680571 ; 1073741823)) (define-constant hash-table-default-length 307) (define-constant hash-table-max-length 1073741823) (define-constant hash-table-new-length-factor 2) (define-constant hash-table-default-min-load 0.5) (define-constant hash-table-default-max-load 0.8) ;; Restrict hash-table length to tabled lengths: (define (hash-table-canonical-length tab req) (let loop ([tab tab]) (let ([cur (##sys#slot tab 0)] [nxt (##sys#slot tab 1)]) (if (or (fx>= cur req) (null? nxt)) cur (loop nxt) ) ) ) ) (define *make-hash-function (let ((eq?-hash eq?-hash) (eqv?-hash eqv?-hash) (equal?-hash equal?-hash) (hash hash) (string-hash string-hash) (string-hash-ci string-hash-ci) (number-hash number-hash) (object-uid-hash object-uid-hash) (symbol-hash symbol-hash) (keyword-hash keyword-hash)) (lambda (user-function) (if (memq user-function (list eq?-hash eqv?-hash equal?-hash hash string-hash string-hash-ci number-hash object-uid-hash symbol-hash keyword-hash)) ;; Don't add unnecessary bounds checks for procedures known to be ;; well-behaved (these are not user-*created* functions) (let ((randomization (##core#inline "C_rnd_fix"))) (if (memq user-function (list string-hash string-hash-ci)) ;; String functions have differing signatures; treat them specially (lambda (object bound) (user-function object bound #f #f randomization)) (lambda (object bound) (user-function object bound randomization)))) (lambda (object bound) (let ((hash (user-function object bound))) (##sys#check-exact hash 'hash user-function) (if (and (fx< hash bound) (fx>= hash 0)) hash (##sys#signal-hook #:bounds-error 'hash "Hash value out of bounds" bound hash user-function) ))))))) ;; "Raw" make-hash-table: (define *make-hash-table (let ([make-vector make-vector]) (lambda (test hash len min-load max-load weak-keys weak-values initial #!optional (vec (make-vector len '()))) (let ((ht (##sys#make-structure 'hash-table vec 0 test hash min-load max-load #f #f initial #f))) (##sys#setslot ht 10 (*make-hash-function hash)) ht) ) ) ) ;; SRFI-69 & SRFI-90'ish. ;; ;; Argument list is the pattern ;; ;; (make-hash-table #!optional test hash size ;; #!key test hash size initial ;; min-load max-load weak-keys weak-values) ;; ;; where a keyword argument takes precedence over the corresponding optional ;; argument. Keyword arguments MUST come after optional & required ;; arugments. ;; ;; Wish DSSSL (extended) argument list processing Did-What-I-Want (DWIW). (define make-hash-table (let ([core-eq? eq?] [core-eqv? eqv?] [core-equal? equal?] [core-string=? string=?] [core-string-ci=? string-ci=?] [core= =] (eq?-hash eq?-hash) (eqv?-hash eqv?-hash) (equal?-hash equal?-hash) (hash hash) (string-hash string-hash) (string-hash-ci string-hash-ci) (number-hash number-hash)) (lambda arguments0 (let ([arguments arguments0] [test equal?] [hash #f] [size hash-table-default-length] [initial #f] [min-load hash-table-default-min-load] [max-load hash-table-default-max-load] [weak-keys #f] [weak-values #f]) (let ([hash-for-test (lambda () (cond [(or (eq? core-eq? test) (eq? eq? test)) eq?-hash] [(or (eq? core-eqv? test) (eq? eqv? test)) eqv?-hash] [(or (eq? core-equal? test) (eq? equal? test)) equal?-hash] [(or (eq? core-string=? test) (eq? string=? test)) string-hash] [(or (eq? core-string-ci=? test) (eq? string-ci=? test)) string-hash-ci] [(or (eq? core= test) (eq? = test)) number-hash] [else #f] ) ) ] ) ; Process optional arguments (unless (null? arguments) (let ([arg (car arguments)]) (unless (keyword? arg) (##sys#check-closure arg 'make-hash-table) (set! test arg) (set! arguments (cdr arguments)) ) ) ) (unless (null? arguments) (let ([arg (car arguments)]) (unless (keyword? arg) (##sys#check-closure arg 'make-hash-table) (set! hash arg) (set! arguments (cdr arguments)) ) ) ) (unless (null? arguments) (let ([arg (car arguments)]) (unless (keyword? arg) (##sys#check-exact arg 'make-hash-table) (unless (fx< 0 arg) (error 'make-hash-table "invalid size" arg) ) (set! size (fxmin hash-table-max-length arg)) (set! arguments (cdr arguments)) ) ) ) ; Process keyword arguments (let loop ([args arguments]) (unless (null? args) (let ([arg (car args)]) (let ([invarg-err (lambda (msg) (error 'make-hash-table msg arg arguments0))]) (if (keyword? arg) (let* ([nxt (cdr args)] [val (if (pair? nxt) (car nxt) (invarg-err "missing keyword value"))]) (case arg [(#:test) (##sys#check-closure val 'make-hash-table) (set! test val)] [(#:hash) (##sys#check-closure val 'make-hash-table) (set! hash val)] [(#:size) (##sys#check-exact val 'make-hash-table) (unless (fx< 0 val) (error 'make-hash-table "invalid size" val) ) (set! size (fxmin hash-table-max-length val))] [(#:initial) (set! initial (lambda () val))] [(#:min-load) (##sys#check-inexact val 'make-hash-table) (unless (and (fp< 0.0 val) (fp< val 1.0)) (error 'make-hash-table "invalid min-load" val) ) (set! min-load val)] [(#:max-load) (##sys#check-inexact val 'make-hash-table) (unless (and (fp< 0.0 val) (fp< val 1.0)) (error 'make-hash-table "invalid max-load" val) ) (set! max-load val)] [(#:weak-keys) (set! weak-keys (and val #t))] [(#:weak-values) (set! weak-values (and val #t))] [else (invarg-err "unknown keyword")]) (loop (cdr nxt)) ) (invarg-err "missing keyword") ) ) ) ) ) ; Load must be a proper interval (when (fp< max-load min-load) (error 'make-hash-table "min-load greater than max-load" min-load max-load) ) ; Force canonical hash-table vector length (set! size (hash-table-canonical-length hash-table-prime-lengths size)) ; Decide on a hash function when not supplied (unless hash (let ([func (hash-for-test)]) (if func (set! hash func) (begin (warning 'make-hash-table "user test without user hash") (set! hash equal?-hash) ) ) ) ) ; Done (*make-hash-table test hash size min-load max-load weak-keys weak-values initial) ) ) ) ) ) ;; Hash-Table Predicate: (define (hash-table? obj) (##sys#structure? obj 'hash-table) ) ;; Hash-Table Properties: (define (hash-table-size ht) (##sys#check-structure ht 'hash-table 'hash-table-size) (##sys#slot ht 2) ) (define (hash-table-equivalence-function ht) (##sys#check-structure ht 'hash-table 'hash-table-equivalence-function) (##sys#slot ht 3) ) (define (hash-table-hash-function ht) (##sys#check-structure ht 'hash-table 'hash-table-hash-function) (##sys#slot ht 4) ) (define (hash-table-min-load ht) (##sys#check-structure ht 'hash-table 'hash-table-min-load) (##sys#slot ht 5) ) (define (hash-table-max-load ht) (##sys#check-structure ht 'hash-table 'hash-table-max-load) (##sys#slot ht 6) ) (define (hash-table-weak-keys ht) (##sys#check-structure ht 'hash-table 'hash-table-weak-keys) (##sys#slot ht 7) ) (define (hash-table-weak-values ht) (##sys#check-structure ht 'hash-table 'hash-table-weak-values) (##sys#slot ht 8) ) (define (hash-table-has-initial? ht) (##sys#check-structure ht 'hash-table 'hash-table-has-initial?) (and (##sys#slot ht 9) #t ) ) (define (hash-table-initial ht) (##sys#check-structure ht 'hash-table 'hash-table-initial) (and-let* ([thunk (##sys#slot ht 9)]) (thunk) ) ) ;; hash-table-rehash!: (define (hash-table-rehash! vec1 vec2 hash) (let ([len1 (##sys#size vec1)] [len2 (##sys#size vec2)] ) (do ([i 0 (fx+ i 1)]) [(fx>= i len1)] (let loop ([bucket (##sys#slot vec1 i)]) (unless (null? bucket) (let* ([pare (##sys#slot bucket 0)] [key (##sys#slot pare 0)] [hshidx (hash key len2)] ) (##sys#setslot vec2 hshidx (cons (cons key (##sys#slot pare 1)) (##sys#slot vec2 hshidx))) (loop (##sys#slot bucket 1)) ) ) ) ) ) ) ;; hash-table-resize!: (define (hash-table-resize! ht vec len) (let* ([deslen (fxmin hash-table-max-length (fx* len hash-table-new-length-factor))] [newlen (hash-table-canonical-length hash-table-prime-lengths deslen)] [vec2 (make-vector newlen '())] ) (hash-table-rehash! vec vec2 (##sys#slot ht 10)) (##sys#setslot ht 1 vec2) ) ) ;; hash-table-check-resize!: (define-inline (hash-table-check-resize! ht newsiz) (let ([vec (##sys#slot ht 1)] [min-load (##sys#slot ht 5)] [max-load (##sys#slot ht 6)] ) (let ([len (##sys#size vec)] ) (let ([min-load-len (exactify (floor (* len min-load)))] [max-load-len (exactify (floor (* len max-load)))] ) (if (and (fx< len hash-table-max-length) (fx<= min-load-len newsiz) (fx<= newsiz max-load-len)) (hash-table-resize! ht vec len) ) ) ) ) ) ;; hash-table-copy: (define *hash-table-copy (let ((make-vector make-vector)) (lambda (ht) (let* ((vec1 (##sys#slot ht 1)) (len (##sys#size vec1)) (vec2 (make-vector len '())) (ht2 (do ((i 0 (fx+ i 1))) ((fx>= i len) (*make-hash-table (##sys#slot ht 3) (##sys#slot ht 4) (##sys#slot ht 2) (##sys#slot ht 5) (##sys#slot ht 6) (##sys#slot ht 7) (##sys#slot ht 8) (##sys#slot ht 9) vec2)) (##sys#setslot vec2 i (let copy-loop ((bucket (##sys#slot vec1 i))) (if (null? bucket) '() (let ((pare (##sys#slot bucket 0))) (cons (cons (##sys#slot pare 0) (##sys#slot pare 1)) (copy-loop (##sys#slot bucket 1))))))) ))) ;; Size and randomized hashing function are reset by *make-hash-table, ;; so we copy over the ones from the original hash table. (##sys#setslot ht2 2 (##sys#slot ht 2)) (##sys#setslot ht2 10 (##sys#slot ht 10)) ht2 ) ) ) ) (define (hash-table-copy ht) (##sys#check-structure ht 'hash-table 'hash-table-copy) (*hash-table-copy ht) ) ;; hash-table-update!: ;; ;; This one was suggested by Sven Hartrumpf (and subsequently added in SRFI-69). ;; Modified for ht props min & max load. (define hash-table-update! (let ([core-eq? eq?] ) (lambda (ht key func #!optional (thunk (let ([thunk (##sys#slot ht 9)]) (or thunk (lambda () (##sys#signal-hook #:access-error 'hash-table-update! "hash-table does not contain key" key ht)))))) (##sys#check-structure ht 'hash-table 'hash-table-update!) (##sys#check-closure func 'hash-table-update!) (##sys#check-closure thunk 'hash-table-update!) (let ([newsiz (fx+ (##sys#slot ht 2) 1)] ) (hash-table-check-resize! ht newsiz) (let ([hash (##sys#slot ht 10)] [test (##sys#slot ht 3)] [vec (##sys#slot ht 1)]) (let* ([len (##sys#size vec)] [hshidx (hash key len)] [bucket0 (##sys#slot vec hshidx)] ) (if (eq? core-eq? test) ; Fast path (eq? is rewritten by the compiler): (let loop ([bucket bucket0]) (if (null? bucket) (let ([val (func (thunk))]) (##sys#setslot vec hshidx (cons (cons key val) bucket0)) (##sys#setislot ht 2 newsiz) val ) (let ([pare (##sys#slot bucket 0)]) (if (eq? key (##sys#slot pare 0)) (let ([val (func (##sys#slot pare 1))]) (##sys#setslot pare 1 val) val) (loop (##sys#slot bucket 1)) ) ) ) ) ; Slow path (let loop ([bucket bucket0]) (if (null? bucket) (let ([val (func (thunk))]) (##sys#setslot vec hshidx (cons (cons key val) bucket0)) (##sys#setislot ht 2 newsiz) val ) (let ([pare (##sys#slot bucket 0)]) (if (test key (##sys#slot pare 0)) (let ([val (func (##sys#slot pare 1))]) (##sys#setslot pare 1 val) val ) (loop (##sys#slot bucket 1)) ) ) ) ) ) ) ) ) ) ) ) (define *hash-table-update!/default (let ([core-eq? eq?] ) (lambda (ht key func def) (let ([newsiz (fx+ (##sys#slot ht 2) 1)] ) (hash-table-check-resize! ht newsiz) (let ([hash (##sys#slot ht 10)] [test (##sys#slot ht 3)] [vec (##sys#slot ht 1)]) (let* ([len (##sys#size vec)] [hshidx (hash key len)] [bucket0 (##sys#slot vec hshidx)] ) (if (eq? core-eq? test) ; Fast path (eq? is rewritten by the compiler): (let loop ([bucket bucket0]) (if (null? bucket) (let ([val (func def)]) (##sys#setslot vec hshidx (cons (cons key val) bucket0)) (##sys#setislot ht 2 newsiz) val ) (let ([pare (##sys#slot bucket 0)]) (if (eq? key (##sys#slot pare 0)) (let ([val (func (##sys#slot pare 1))]) (##sys#setslot pare 1 val) val) (loop (##sys#slot bucket 1)) ) ) ) ) ; Slow path (let loop ([bucket bucket0]) (if (null? bucket) (let ([val (func def)]) (##sys#setslot vec hshidx (cons (cons key val) bucket0)) (##sys#setislot ht 2 newsiz) val ) (let ([pare (##sys#slot bucket 0)]) (if (test key (##sys#slot pare 0)) (let ([val (func (##sys#slot pare 1))]) (##sys#setslot pare 1 val) val ) (loop (##sys#slot bucket 1)) ) ) ) ) ) ) ) ) ) ) ) (define (hash-table-update!/default ht key func def) (##sys#check-structure ht 'hash-table 'hash-table-update!/default) (##sys#check-closure func 'hash-table-update!/default) (*hash-table-update!/default ht key func def) ) (define hash-table-set! (let ([core-eq? eq?] ) (lambda (ht key val) (##sys#check-structure ht 'hash-table 'hash-table-set!) (let ([newsiz (fx+ (##sys#slot ht 2) 1)] ) (hash-table-check-resize! ht newsiz) (let ([hash (##sys#slot ht 10)] [test (##sys#slot ht 3)] [vec (##sys#slot ht 1)]) (let* ([len (##sys#size vec)] [hshidx (hash key len)] [bucket0 (##sys#slot vec hshidx)] ) (if (eq? core-eq? test) ; Fast path (eq? is rewritten by the compiler): (let loop ([bucket bucket0]) (if (null? bucket) (begin (##sys#setslot vec hshidx (cons (cons key val) bucket0)) (##sys#setislot ht 2 newsiz) ) (let ([pare (##sys#slot bucket 0)]) (if (eq? key (##sys#slot pare 0)) (##sys#setslot pare 1 val) (loop (##sys#slot bucket 1)) ) ) ) ) ; Slow path (let loop ([bucket bucket0]) (if (null? bucket) (begin (##sys#setslot vec hshidx (cons (cons key val) bucket0)) (##sys#setislot ht 2 newsiz) ) (let ([pare (##sys#slot bucket 0)]) (if (test key (##sys#slot pare 0)) (##sys#setslot pare 1 val) (loop (##sys#slot bucket 1)) ) ) ) ) ) (void) ) ) ) ) ) ) ;; Hash-Table Reference: (define hash-table-ref (getter-with-setter (let ([core-eq? eq?]) (lambda (ht key #!optional (def (lambda () (##sys#signal-hook #:access-error 'hash-table-ref "hash-table does not contain key" key ht)))) (##sys#check-structure ht 'hash-table 'hash-table-ref) (##sys#check-closure def 'hash-table-ref) (let ([vec (##sys#slot ht 1)] [test (##sys#slot ht 3)]) (let* ([hash (##sys#slot ht 10)] [hshidx (hash key (##sys#size vec))] ) (if (eq? core-eq? test) ; Fast path (eq? is rewritten by the compiler): (let loop ([bucket (##sys#slot vec hshidx)]) (if (null? bucket) (def) (let ([pare (##sys#slot bucket 0)]) (if (eq? key (##sys#slot pare 0)) (##sys#slot pare 1) (loop (##sys#slot bucket 1)) ) ) ) ) ; Slow path (let loop ([bucket (##sys#slot vec hshidx)]) (if (null? bucket) (def) (let ([pare (##sys#slot bucket 0)]) (if (test key (##sys#slot pare 0)) (##sys#slot pare 1) (loop (##sys#slot bucket 1)) ) ) ) ) ) ) ) ) ) hash-table-set! "(hash-table-ref ht key . def)") ) (define hash-table-ref/default (let ([core-eq? eq?]) (lambda (ht key def) (##sys#check-structure ht 'hash-table 'hash-table-ref/default) (let ([vec (##sys#slot ht 1)] [test (##sys#slot ht 3)]) (let* ([hash (##sys#slot ht 10)] [hshidx (hash key (##sys#size vec))] ) (if (eq? core-eq? test) ; Fast path (eq? is rewritten by the compiler): (let loop ([bucket (##sys#slot vec hshidx)]) (if (null? bucket) def (let ([pare (##sys#slot bucket 0)]) (if (eq? key (##sys#slot pare 0)) (##sys#slot pare 1) (loop (##sys#slot bucket 1)) ) ) ) ) ; Slow path (let loop ([bucket (##sys#slot vec hshidx)]) (if (null? bucket) def (let ([pare (##sys#slot bucket 0)]) (if (test key (##sys#slot pare 0)) (##sys#slot pare 1) (loop (##sys#slot bucket 1)) ) ) ) ) ) ) ) ) ) ) (define hash-table-exists? (let ([core-eq? eq?]) (lambda (ht key) (##sys#check-structure ht 'hash-table 'hash-table-exists?) (let ([vec (##sys#slot ht 1)] [test (##sys#slot ht 3)]) (let* ([hash (##sys#slot ht 10)] [hshidx (hash key (##sys#size vec))] ) (if (eq? core-eq? test) ; Fast path (eq? is rewritten by the compiler): (let loop ([bucket (##sys#slot vec hshidx)]) (and (not (null? bucket)) (let ([pare (##sys#slot bucket 0)]) (or (eq? key (##sys#slot pare 0)) (loop (##sys#slot bucket 1)) ) ) ) ) ; Slow path (let loop ([bucket (##sys#slot vec hshidx)]) (and (not (null? bucket)) (let ([pare (##sys#slot bucket 0)]) (or (test key (##sys#slot pare 0)) (loop (##sys#slot bucket 1)) ) ) ) ) ) ) ) ) ) ) ;; hash-table-delete!: (define hash-table-delete! (let ([core-eq? eq?]) (lambda (ht key) (##sys#check-structure ht 'hash-table 'hash-table-delete!) (let* ([vec (##sys#slot ht 1)] [len (##sys#size vec)] [hash (##sys#slot ht 10)] [hshidx (hash key len)] ) (let ([test (##sys#slot ht 3)] [newsiz (fx- (##sys#slot ht 2) 1)] [bucket0 (##sys#slot vec hshidx)] ) (if (eq? core-eq? test) ; Fast path (eq? is rewritten by the compiler): (let loop ([prev #f] [bucket bucket0]) (and (not (null? bucket)) (let ([pare (##sys#slot bucket 0)] [nxt (##sys#slot bucket 1)]) (if (eq? key (##sys#slot pare 0)) (begin (if prev (##sys#setslot prev 1 nxt) (##sys#setslot vec hshidx nxt) ) (##sys#setislot ht 2 newsiz) #t ) (loop bucket nxt) ) ) ) ) ; Slow path (let loop ([prev #f] [bucket bucket0]) (and (not (null? bucket)) (let ([pare (##sys#slot bucket 0)] [nxt (##sys#slot bucket 1)]) (if (test key (##sys#slot pare 0)) (begin (if prev (##sys#setslot prev 1 nxt) (##sys#setslot vec hshidx nxt) ) (##sys#setislot ht 2 newsiz) #t ) (loop bucket nxt) ) ) ) ) ) ) ) ) ) ) ;; hash-table-remove!: (define (hash-table-remove! ht func) (##sys#check-structure ht 'hash-table 'hash-table-remove!) (##sys#check-closure func 'hash-table-remove!) (let* ([vec (##sys#slot ht 1)] [len (##sys#size vec)] ) (let ([siz (##sys#slot ht 2)]) (do ([i 0 (fx+ i 1)]) [(fx>= i len) (##sys#setislot ht 2 siz)] (let loop ([prev #f] [bucket (##sys#slot vec i)]) (and (not (null? bucket)) (let ([pare (##sys#slot bucket 0)] [nxt (##sys#slot bucket 1)]) (if (func (##sys#slot pare 0) (##sys#slot pare 1)) (begin (if prev (##sys#setslot prev 1 nxt) (##sys#setslot vec i nxt) ) (set! siz (fx- siz 1)) #t ) (loop bucket nxt ) ) ) ) ) ) ) ) ) ;; hash-table-clear!: (define (hash-table-clear! ht) (##sys#check-structure ht 'hash-table 'hash-table-clear!) (vector-fill! (##sys#slot ht 1) '()) (##sys#setislot ht 2 0) ) ;; Hash Table Merge: (define (*hash-table-merge! ht1 ht2) (let* ([vec (##sys#slot ht2 1)] [len (##sys#size vec)] ) (do ([i 0 (fx+ i 1)]) [(fx>= i len) ht1] (do ([lst (##sys#slot vec i) (##sys#slot lst 1)]) [(null? lst)] (let ([b (##sys#slot lst 0)]) (*hash-table-update!/default ht1 (##sys#slot b 0) (lambda (x) x) (##sys#slot b 1)) ) ) ) ) ) (define (hash-table-merge! ht1 ht2) (##sys#check-structure ht1 'hash-table 'hash-table-merge!) (##sys#check-structure ht2 'hash-table 'hash-table-merge!) (*hash-table-merge! ht1 ht2) ) (define (hash-table-merge ht1 ht2) (##sys#check-structure ht1 'hash-table 'hash-table-merge) (##sys#check-structure ht2 'hash-table 'hash-table-merge) (*hash-table-merge! (*hash-table-copy ht1) ht2) ) ;; Hash-Table <-> Association-List: (define (hash-table->alist ht) (##sys#check-structure ht 'hash-table 'hash-table->alist) (let* ([vec (##sys#slot ht 1)] [len (##sys#size vec)] ) (let loop ([i 0] [lst '()]) (if (fx>= i len) lst (let loop2 ([bucket (##sys#slot vec i)] [lst lst]) (if (null? bucket) (loop (fx+ i 1) lst) (loop2 (##sys#slot bucket 1) (let ([x (##sys#slot bucket 0)]) (cons (cons (##sys#slot x 0) (##sys#slot x 1)) lst) ) ) ) ) ) ) ) ) (define alist->hash-table (lambda (alist . rest) (##sys#check-list alist 'alist->hash-table) (let ([ht (apply make-hash-table rest)]) (for-each (lambda (x) (##sys#check-pair x 'alist->hash-table) (*hash-table-update!/default ht (##sys#slot x 0) (lambda (x) x) (##sys#slot x 1)) ) alist) ht ) ) ) ;; Hash-Table Keys & Values: (define (hash-table-keys ht) (##sys#check-structure ht 'hash-table 'hash-table-keys) (let* ([vec (##sys#slot ht 1)] [len (##sys#size vec)] ) (let loop ([i 0] [lst '()]) (if (fx>= i len) lst (let loop2 ([bucket (##sys#slot vec i)] [lst lst]) (if (null? bucket) (loop (fx+ i 1) lst) (loop2 (##sys#slot bucket 1) (let ([x (##sys#slot bucket 0)]) (cons (##sys#slot x 0) lst) ) ) ) ) ) ) ) ) (define (hash-table-values ht) (##sys#check-structure ht 'hash-table 'hash-table-values) (let* ([vec (##sys#slot ht 1)] [len (##sys#size vec)] ) (let loop ([i 0] [lst '()]) (if (fx>= i len) lst (let loop2 ([bucket (##sys#slot vec i)] [lst lst]) (if (null? bucket) (loop (fx+ i 1) lst) (loop2 (##sys#slot bucket 1) (let ([x (##sys#slot bucket 0)]) (cons (##sys#slot x 1) lst) ) ) ) ) ) ) ) ) ;; Mapping Over Hash-Table Keys & Values: ;; ;; hash-table-for-each: ;; hash-table-walk: ;; hash-table-fold: ;; hash-table-map: (define (*hash-table-for-each ht proc) (let* ([vec (##sys#slot ht 1)] [len (##sys#size vec)] ) (do ([i 0 (fx+ i 1)] ) [(fx>= i len)] (##sys#for-each (lambda (bucket) (proc (##sys#slot bucket 0) (##sys#slot bucket 1)) ) (##sys#slot vec i)) ) ) ) (define (*hash-table-fold ht func init) (let* ([vec (##sys#slot ht 1)] [len (##sys#size vec)] ) (let loop ([i 0] [acc init]) (if (fx>= i len) acc (let fold2 ([bucket (##sys#slot vec i)] [acc acc]) (if (null? bucket) (loop (fx+ i 1) acc) (let ([pare (##sys#slot bucket 0)]) (fold2 (##sys#slot bucket 1) (func (##sys#slot pare 0) (##sys#slot pare 1) acc) ) ) ) ) ) ) ) ) (define (hash-table-fold ht func init) (##sys#check-structure ht 'hash-table 'hash-table-fold) (##sys#check-closure func 'hash-table-fold) (*hash-table-fold ht func init) ) (define (hash-table-for-each ht proc) (##sys#check-structure ht 'hash-table 'hash-table-for-each) (##sys#check-closure proc 'hash-table-for-each) (*hash-table-for-each ht proc) ) (define (hash-table-walk ht proc) (##sys#check-structure ht 'hash-table 'hash-table-walk) (##sys#check-closure proc 'hash-table-walk) (*hash-table-for-each ht proc) ) (define (hash-table-map ht func) (##sys#check-structure ht 'hash-table 'hash-table-map) (##sys#check-closure func 'hash-table-map) (*hash-table-fold ht (lambda (k v a) (cons (func k v) a)) '()) ) ;;; printing (##sys#register-record-printer 'hash-table (lambda (ht port) (##sys#print "#<hash-table (" #f port) (##sys#print (##sys#slot ht 2) #f port) (##sys#print ")>" #f port) ) ) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/Makefile.hurd������������������������������������������������������������������������0000644�0001750�0001750�00000007562�13052302367�015424� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# Makefile.hurd - configuration for Hurd -*- Makefile -*- # # Copyright (c) 2008-2017, 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_GRP_H 1" >>$@ echo "#define HAVE_ERRNO_H 1" >>$@ echo "#define HAVE_SYSEXITS_H 1" >>$@ echo "#define HAVE_MEMMOVE 1" >>$@ echo "#define C_STACK_GROWS_DOWNWARD 1" >>$@ ifdef GCHOOKS echo "#define C_GC_HOOKS" >>$@ endif ifdef SYMBOLGC echo "#define C_COLLECT_ALL_SYMBOLS" >>$@ endif echo "#define C_USE_STD_FEATURE_MACROS" >>$@ cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make ����������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/data-structures.c��������������������������������������������������������������������0000644�0001750�0001750�00001011661�13052306222�016307� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from data-structures.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:16 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: data-structures.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file data-structures.c unit: data_2dstructures */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); static C_TLS C_word lf[121]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,14),40,105,100,101,110,116,105,116,121,32,120,54,52,41,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,112,114,101,100,115,54,57,41,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,12),40,102,95,49,51,57,57,32,120,54,55,41,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,19),40,99,111,110,106,111,105,110,32,46,32,112,114,101,100,115,54,54,41,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,112,114,101,100,115,56,49,41,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,12),40,102,95,49,52,51,50,32,120,55,57,41,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,19),40,100,105,115,106,111,105,110,32,46,32,112,114,101,100,115,55,56,41,0,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,14),40,102,95,49,52,55,56,32,46,32,95,57,50,41,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,14),40,102,95,49,52,56,48,32,46,32,95,57,51,41,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,19),40,99,111,110,115,116,97,110,116,108,121,32,46,32,120,115,57,48,41,0,0,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,16),40,102,95,49,52,57,48,32,120,57,54,32,121,57,55,41}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,13),40,102,108,105,112,32,112,114,111,99,57,53,41,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,18),40,102,95,49,52,57,56,32,46,32,97,114,103,115,49,48,48,41,0,0,0,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,16),40,99,111,109,112,108,101,109,101,110,116,32,112,57,57,41}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,7),40,97,49,53,50,52,41,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,18),40,102,95,49,53,49,57,32,46,32,97,114,103,115,49,48,54,41,0,0,0,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,20),40,114,101,99,32,102,48,49,48,52,32,46,32,102,110,115,49,48,53,41,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,18),40,99,111,109,112,111,115,101,32,46,32,102,110,115,49,48,50,41,0,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,13),40,102,95,49,53,55,48,32,120,49,49,52,41,0,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,102,110,115,49,49,49,41,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,12),40,111,32,46,32,102,110,115,49,48,57,41,0,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,108,115,116,49,50,50,41,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,15),40,102,95,49,53,56,53,32,108,115,116,49,50,48,41,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,18),40,108,105,115,116,45,111,102,63,32,112,114,101,100,49,49,57,41,0,0,0,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,15),40,102,95,49,54,51,49,32,46,32,95,49,51,52,41,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,112,114,111,99,115,49,51,55,41,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,18),40,102,95,49,54,52,53,32,46,32,97,114,103,115,49,51,53,41,0,0,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,17),40,101,97,99,104,32,46,32,112,114,111,99,115,49,50,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,11),40,97,110,121,63,32,120,49,52,51,41,0,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,12),40,97,116,111,109,63,32,120,49,52,53,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,17),40,116,97,105,108,63,32,120,49,52,55,32,121,49,52,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,110,115,49,54,52,41,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,25),40,105,110,116,101,114,115,112,101,114,115,101,32,108,115,116,49,54,49,32,120,49,54,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,108,115,116,49,55,48,41,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,16),40,98,117,116,108,97,115,116,32,108,115,116,49,54,56,41}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,23),40,108,111,111,112,32,108,105,115,116,115,49,55,56,32,114,101,115,116,49,55,57,41,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,21),40,102,108,97,116,116,101,110,32,46,32,108,105,115,116,115,48,49,55,54,41,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,28),40,100,111,108,111,111,112,49,57,56,32,104,100,50,48,48,32,116,108,50,48,49,32,99,50,48,50,41,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,32,108,115,116,49,57,50,32,105,49,57,51,41,0,0,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,18),40,99,104,111,112,32,108,115,116,49,56,56,32,110,49,56,57,41,0,0,0,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,108,115,116,115,50,49,50,41,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,23),40,106,111,105,110,32,108,115,116,115,50,48,56,32,46,32,108,115,116,50,48,57,41,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,98,108,115,116,50,50,54,32,108,115,116,50,50,55,41,0,0,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,25),40,99,111,109,112,114,101,115,115,32,98,108,115,116,50,50,50,32,108,115,116,50,50,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,108,115,116,50,53,54,41,0,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,20),40,102,95,50,48,56,48,32,120,50,53,51,32,108,115,116,50,53,52,41,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,44),40,97,108,105,115,116,45,117,112,100,97,116,101,33,32,120,50,51,57,32,121,50,52,48,32,108,115,116,50,52,49,32,46,32,116,109,112,50,51,56,50,52,50,41,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,108,115,116,50,55,56,41,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,43),40,97,108,105,115,116,45,117,112,100,97,116,101,32,107,50,54,56,32,118,50,54,57,32,108,115,116,50,55,48,32,46,32,116,109,112,50,54,55,50,55,49,41,0,0,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,108,115,116,51,49,53,41,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,20),40,102,95,50,50,55,50,32,120,51,49,50,32,108,115,116,51,49,51,41,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,35),40,97,108,105,115,116,45,114,101,102,32,120,50,57,52,32,108,115,116,50,57,53,32,46,32,116,109,112,50,57,51,50,57,54,41,0,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,108,51,51,48,41,0,0,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,29),40,114,97,115,115,111,99,32,120,51,50,53,32,108,115,116,51,50,54,32,46,32,116,115,116,51,50,55,41,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,107,51,52,54,41,0,0,0,0,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,29),40,114,101,118,45,115,116,114,105,110,103,45,97,112,112,101,110,100,32,108,51,51,57,32,105,51,52,48,41,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,28),40,114,101,118,101,114,115,101,45,115,116,114,105,110,103,45,97,112,112,101,110,100,32,108,51,51,55,41,0,0,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,15),40,45,62,115,116,114,105,110,103,32,120,51,53,49,41,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,51,54,50,32,103,51,55,52,51,56,48,41,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,16),40,99,111,110,99,32,46,32,97,114,103,115,51,53,57,41}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,105,115,116,97,114,116,51,57,56,41}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,52),40,116,114,97,118,101,114,115,101,32,119,104,105,99,104,51,56,55,32,119,104,101,114,101,51,56,56,32,115,116,97,114,116,51,56,57,32,116,101,115,116,51,57,48,32,108,111,99,51,57,49,41,0,0,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,17),40,97,50,54,51,53,32,105,52,49,49,32,108,52,49,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,50),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,52,48,56,32,119,104,101,114,101,52,48,57,32,115,116,97,114,116,52,49,48,41,0,0,0,0,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,17),40,97,50,54,52,52,32,105,52,49,54,32,108,52,49,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,53),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,52,49,51,32,119,104,101,114,101,52,49,52,32,115,116,97,114,116,52,49,53,41,0,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,47),40,115,117,98,115,116,114,105,110,103,45,105,110,100,101,120,32,119,104,105,99,104,52,50,53,32,119,104,101,114,101,52,50,54,32,46,32,116,109,112,52,50,52,52,50,55,41,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,50),40,115,117,98,115,116,114,105,110,103,45,105,110,100,101,120,45,99,105,32,119,104,105,99,104,52,51,56,32,119,104,101,114,101,52,51,57,32,46,32,116,109,112,52,51,55,52,52,48,41,0,0,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,29),40,115,116,114,105,110,103,45,99,111,109,112,97,114,101,51,32,115,49,52,52,55,32,115,50,52,52,56,41,0,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,32),40,115,116,114,105,110,103,45,99,111,109,112,97,114,101,51,45,99,105,32,115,49,52,53,54,32,115,50,52,53,55,41}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,56),40,35,35,115,121,115,35,115,117,98,115,116,114,105,110,103,61,63,32,115,49,52,54,53,32,115,50,52,54,54,32,115,116,97,114,116,49,52,54,55,32,115,116,97,114,116,50,52,54,56,32,110,52,54,57,41}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,37),40,115,117,98,115,116,114,105,110,103,61,63,32,115,49,52,56,51,32,115,50,52,56,52,32,46,32,116,109,112,52,56,50,52,56,53,41,0,0,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,59),40,35,35,115,121,115,35,115,117,98,115,116,114,105,110,103,45,99,105,61,63,32,115,49,52,57,57,32,115,50,53,48,48,32,115,116,97,114,116,49,53,48,49,32,115,116,97,114,116,50,53,48,50,32,110,53,48,51,41,0,0,0,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,40),40,115,117,98,115,116,114,105,110,103,45,99,105,61,63,32,115,49,53,49,55,32,115,50,53,49,56,32,46,32,116,109,112,53,49,54,53,49,57,41}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,27),40,97,100,100,32,102,114,111,109,53,52,49,32,116,111,53,52,50,32,108,97,115,116,53,52,51,41,0,0,0,0,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,11),40,115,99,97,110,32,106,53,54,51,41,0,0,0,0,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,27),40,108,111,111,112,32,105,53,52,55,32,108,97,115,116,53,52,56,32,102,114,111,109,53,52,57,41,0,0,0,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,42),40,115,116,114,105,110,103,45,115,112,108,105,116,32,115,116,114,53,51,51,32,46,32,100,101,108,115,116,114,45,97,110,100,45,102,108,97,103,53,51,52,41,0,0,0,0,0,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,50,32,110,50,54,48,48,41,0,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,49,32,115,115,53,57,49,32,110,53,57,50,41,0,0,0,0,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,40),40,115,116,114,105,110,103,45,105,110,116,101,114,115,112,101,114,115,101,32,115,116,114,115,53,56,50,32,46,32,116,109,112,53,56,49,53,56,51,41}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,13),40,102,95,51,49,55,56,32,99,54,50,49,41,0,0,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,15),40,105,110,115,116,114,105,110,103,32,115,54,49,57,41,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,105,54,52,57,32,106,54,53,48,41}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,13),40,102,95,51,51,53,48,32,99,54,51,52,41,0,0,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,41),40,115,116,114,105,110,103,45,116,114,97,110,115,108,97,116,101,32,115,116,114,54,49,53,32,102,114,111,109,54,49,54,32,46,32,116,111,54,49,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,115,109,97,112,54,55,51,41,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,37),40,99,111,108,108,101,99,116,32,105,54,54,56,32,102,114,111,109,54,54,57,32,116,111,116,97,108,54,55,48,32,102,115,54,55,49,41,0,0,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,34),40,115,116,114,105,110,103,45,116,114,97,110,115,108,97,116,101,42,32,115,116,114,54,54,52,32,115,109,97,112,54,54,53,41,0,0,0,0,0,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,22),40,108,111,111,112,32,116,111,116,97,108,54,57,48,32,112,111,115,54,57,49,41,0,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,27),40,115,116,114,105,110,103,45,99,104,111,112,32,115,116,114,54,56,54,32,108,101,110,54,56,55,41,0,0,0,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,33),40,115,116,114,105,110,103,45,99,104,111,109,112,32,115,116,114,55,48,52,32,46,32,116,109,112,55,48,51,55,48,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,55,50,53,32,105,55,50,55,41}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,22),40,108,111,111,112,32,108,97,115,116,55,51,51,32,110,101,120,116,55,51,52,41,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,25),40,115,111,114,116,101,100,63,32,115,101,113,55,49,56,32,108,101,115,115,63,55,49,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,26),40,108,111,111,112,32,120,55,52,57,32,97,55,53,48,32,121,55,53,49,32,98,55,53,50,41,0,0,0,0,0,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,26),40,109,101,114,103,101,32,97,55,52,49,32,98,55,52,50,32,108,101,115,115,63,55,52,51,41,0,0,0,0,0,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,114,55,54,51,32,97,55,54,52,32,98,55,54,53,41,0,0,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,27),40,109,101,114,103,101,33,32,97,55,53,53,32,98,55,53,54,32,108,101,115,115,63,55,53,55,41,0,0,0,0,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,11),40,115,116,101,112,32,110,55,55,53,41,0,0,0,0,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,21),40,100,111,108,111,111,112,55,57,54,32,112,55,57,56,32,105,55,57,57,41,0,0,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,23),40,115,111,114,116,33,32,115,101,113,55,55,50,32,108,101,115,115,63,55,55,51,41,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,22),40,115,111,114,116,32,115,101,113,56,48,53,32,108,101,115,115,63,56,48,54,41,0,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,24),40,119,97,108,107,32,101,100,103,101,115,56,50,54,32,115,116,97,116,101,56,50,55,41}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,48),40,118,105,115,105,116,32,100,97,103,56,49,49,32,110,111,100,101,56,49,50,32,101,100,103,101,115,56,49,51,32,112,97,116,104,56,49,52,32,115,116,97,116,101,56,49,53,41}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,22),40,108,111,111,112,32,100,97,103,56,51,52,32,115,116,97,116,101,56,51,53,41,0,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,33),40,116,111,112,111,108,111,103,105,99,97,108,45,115,111,114,116,32,100,97,103,56,48,56,32,112,114,101,100,56,48,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,32,112,115,56,52,52,32,112,101,56,52,53,41,0,0,0,0,0,0}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,30),40,98,105,110,97,114,121,45,115,101,97,114,99,104,32,118,101,99,56,51,57,32,112,114,111,99,56,52,48,41,0,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,12),40,109,97,107,101,45,113,117,101,117,101,41,0,0,0,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,13),40,113,117,101,117,101,63,32,120,56,53,57,41,0,0,0}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,19),40,113,117,101,117,101,45,108,101,110,103,116,104,32,113,56,54,49,41,0,0,0,0,0}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,19),40,113,117,101,117,101,45,101,109,112,116,121,63,32,113,56,54,52,41,0,0,0,0,0}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,18),40,113,117,101,117,101,45,102,105,114,115,116,32,113,56,54,55,41,0,0,0,0,0,0}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,17),40,113,117,101,117,101,45,108,97,115,116,32,113,56,55,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,26),40,113,117,101,117,101,45,97,100,100,33,32,113,56,55,55,32,100,97,116,117,109,56,55,56,41,0,0,0,0,0,0}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,20),40,113,117,101,117,101,45,114,101,109,111,118,101,33,32,113,56,56,57,41,0,0,0,0}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,108,115,116,57,48,48,32,108,115,116,50,57,48,49,41,0,0,0}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,18),40,113,117,101,117,101,45,62,108,105,115,116,32,113,56,57,56,41,0,0,0,0,0,0}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,57,48,54,32,108,115,116,57,48,56,41,0,0,0,0,0,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,21),40,108,105,115,116,45,62,113,117,101,117,101,32,108,115,116,48,57,48,53,41,0,0,0}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,31),40,113,117,101,117,101,45,112,117,115,104,45,98,97,99,107,33,32,113,57,49,54,32,105,116,101,109,57,49,55,41,0}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,57,51,48,41,0,0,0,0,0}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,40),40,113,117,101,117,101,45,112,117,115,104,45,98,97,99,107,45,108,105,115,116,33,32,113,57,50,51,32,105,116,101,109,108,105,115,116,57,50,52,41}; static C_char C_TLS li126[] 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_1397) static void C_ccall f_1397(C_word c,C_word *av) 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_3795) static void C_ccall f_3795(C_word c,C_word *av) C_noret; C_noret_decl(f_1834) static void C_fcall f_1834(C_word t0,C_word t1,C_word t2,C_word t3) 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_4394) static void C_ccall f_4394(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_4138) static void C_ccall f_4138(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_3211) static void C_ccall f_3211(C_word c,C_word *av) C_noret; C_noret_decl(f_3978) static void C_ccall f_3978(C_word c,C_word *av) C_noret; C_noret_decl(f_3712) static void C_ccall f_3712(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_3208) static void C_ccall f_3208(C_word c,C_word *av) C_noret; C_noret_decl(f_2501) static void C_ccall f_2501(C_word c,C_word *av) C_noret; C_noret_decl(f_2504) static void C_ccall f_2504(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_2408) static void C_ccall f_2408(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_1591) static void C_fcall f_1591(C_word t0,C_word t1,C_word t2) 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_2611) static void C_ccall f_2611(C_word c,C_word *av) C_noret; C_noret_decl(f_3247) static void C_ccall f_3247(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_1583) static void C_ccall f_1583(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_3927) static void C_ccall f_3927(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_1713) static void C_ccall f_1713(C_word c,C_word *av) C_noret; C_noret_decl(f_1719) static void C_fcall f_1719(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4577) static void C_fcall f_4577(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3228) static void C_fcall f_3228(C_word t0,C_word t1,C_word t2,C_word t3) 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_3902) static void C_ccall f_3902(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_1744) static void C_ccall f_1744(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_4085) static void C_fcall f_4085(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_4082) static void C_ccall f_4082(C_word c,C_word *av) C_noret; C_noret_decl(f_4089) static void C_ccall f_4089(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_2417) static C_word C_fcall f_2417(C_word t0,C_word t1,C_word t2); C_noret_decl(f_1776) static void C_ccall f_1776(C_word c,C_word *av) 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_4556) static void C_ccall f_4556(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_4069) static void C_ccall f_4069(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_3742) static void C_fcall f_3742(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_1755) static void C_fcall f_1755(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3940) static void C_ccall f_3940(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_3943) static void C_ccall f_3943(C_word c,C_word *av) 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_3930) static void C_fcall f_3930(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4436) static void C_fcall f_4436(C_word t0,C_word t1) C_noret; C_noret_decl(f_1496) static void C_ccall f_1496(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_4587) static void C_ccall f_4587(C_word c,C_word *av) C_noret; C_noret_decl(f_1498) static void C_ccall f_1498(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_1480) static void C_ccall f_1480(C_word c,C_word *av) C_noret; C_noret_decl(f_2127) static void C_ccall f_2127(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_1651) static void C_fcall f_1651(C_word t0,C_word t1,C_word t2) 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_1645) static void C_ccall f_1645(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_2934) static void C_ccall f_2934(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_3643) static void C_ccall f_3643(C_word c,C_word *av) C_noret; C_noret_decl(f_2391) static void C_ccall f_2391(C_word c,C_word *av) C_noret; C_noret_decl(f_2394) static void C_fcall f_2394(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1432) static void C_ccall f_1432(C_word c,C_word *av) C_noret; C_noret_decl(f_1438) static void C_fcall f_1438(C_word t0,C_word t1,C_word t2) 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_1430) static void C_ccall f_1430(C_word c,C_word *av) C_noret; C_noret_decl(f_1784) static void C_fcall f_1784(C_word t0,C_word t1,C_word t2,C_word t3) 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_2464) static void C_ccall f_2464(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_2102) static void C_ccall f_2102(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_1451) static void C_ccall f_1451(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_2199) static void C_ccall f_2199(C_word c,C_word *av) C_noret; C_noret_decl(f_2350) static void C_fcall f_2350(C_word t0,C_word t1) 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_3553) static void C_ccall f_3553(C_word c,C_word *av) C_noret; C_noret_decl(f_3549) static void C_ccall f_3549(C_word c,C_word *av) C_noret; C_noret_decl(f_2303) static void C_ccall f_2303(C_word c,C_word *av) C_noret; C_noret_decl(f_1405) static void C_fcall f_1405(C_word t0,C_word t1,C_word t2) 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_1525) static void C_ccall f_1525(C_word c,C_word *av) C_noret; C_noret_decl(f_4529) static void C_fcall f_4529(C_word t0,C_word t1,C_word t2,C_word t3) 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_1697) static C_word C_fcall f_1697(C_word t0,C_word t1); C_noret_decl(f_3518) static void C_fcall f_3518(C_word t0,C_word t1,C_word t2,C_word t3) 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_4516) static void C_ccall f_4516(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_2177) static void C_ccall f_2177(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_fcall f_3806(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_2136) static void C_fcall f_2136(C_word t0,C_word t1,C_word t2) 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_1506) static void C_ccall f_1506(C_word c,C_word *av) C_noret; C_noret_decl(f_1508) static void C_ccall f_1508(C_word c,C_word *av) 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_2970) static void C_ccall f_2970(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_2975) static void C_fcall f_2975(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_4295) static void C_ccall f_4295(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_3420) static void C_fcall f_3420(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2955) static void C_fcall f_2955(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_4285) static void C_fcall f_4285(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2985) static void C_ccall f_2985(C_word c,C_word *av) C_noret; C_noret_decl(f_4271) static void C_fcall f_4271(C_word t0,C_word t1) 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_3401) static void C_ccall f_3401(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_3086) static void C_fcall f_3086(C_word t0,C_word t1,C_word t2,C_word t3) 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_2278) static void C_fcall f_2278(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2750) static void C_fcall f_2750(C_word t0,C_word t1) 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_4600) static void C_fcall f_4600(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_3068) static void C_ccall f_3068(C_word c,C_word *av) C_noret; C_noret_decl(f_1855) static void C_fcall f_1855(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_4426) static void C_ccall f_4426(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_3041) static void C_ccall f_3041(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_word t3) C_noret; C_noret_decl(f_3387) static void C_fcall f_3387(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_2709) static void C_ccall f_2709(C_word c,C_word *av) C_noret; C_noret_decl(f_2231) static void C_ccall f_2231(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_2247) static void C_fcall f_2247(C_word t0,C_word t1) C_noret; C_noret_decl(f_4479) static void C_ccall f_4479(C_word c,C_word *av) C_noret; C_noret_decl(f_1869) static void C_ccall f_1869(C_word c,C_word *av) C_noret; C_noret_decl(f_3367) static void C_ccall f_3367(C_word c,C_word *av) 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(f_1819) static void C_ccall f_1819(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_1810) static void C_ccall f_1810(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_4267) static void C_ccall f_4267(C_word c,C_word *av) C_noret; C_noret_decl(f_3375) static void C_ccall f_3375(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_1904) static void C_ccall f_1904(C_word c,C_word *av) C_noret; C_noret_decl(f_1908) static void C_fcall f_1908(C_word t0,C_word t1) C_noret; C_noret_decl(f_2874) static void C_ccall f_2874(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_2847) static void C_fcall f_2847(C_word t0,C_word t1) C_noret; C_noret_decl(f_2086) static void C_fcall f_2086(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_4664) static void C_ccall f_4664(C_word c,C_word *av) 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_4667) static void C_fcall f_4667(C_word t0,C_word t1) C_noret; C_noret_decl(f_3682) static void C_fcall f_3682(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4614) static void C_ccall f_4614(C_word c,C_word *av) C_noret; C_noret_decl(f_2556) static void C_fcall f_2556(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_1970) static void C_fcall f_1970(C_word t0,C_word t1,C_word t2,C_word t3) 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_2522) static void C_fcall f_2522(C_word t0,C_word t1,C_word t2) 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_2048) static void C_fcall f_2048(C_word t0,C_word t1) 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_2051) static void C_ccall f_2051(C_word c,C_word *av) C_noret; C_noret_decl(f_1951) static void C_ccall f_1951(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_2547) static void C_ccall f_2547(C_word c,C_word *av) C_noret; C_noret_decl(f_4654) static void C_ccall f_4654(C_word c,C_word *av) C_noret; C_noret_decl(f_1631) static void C_ccall f_1631(C_word c,C_word *av) C_noret; C_noret_decl(f_1961) static void C_ccall f_1961(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_2598) static void C_fcall f_2598(C_word t0,C_word t1,C_word t2) 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_4695) static C_word C_fcall f_4695(C_word t0); C_noret_decl(f_4023) static void C_fcall f_4023(C_word t0,C_word t1,C_word t2,C_word t3) 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_4193) static void C_ccall f_4193(C_word c,C_word *av) C_noret; C_noret_decl(f_4171) static void C_ccall f_4171(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_4356) static void C_ccall f_4356(C_word c,C_word *av) C_noret; C_noret_decl(f_4350) static void C_ccall f_4350(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_2639) static void C_ccall f_2639(C_word c,C_word *av) C_noret; C_noret_decl(f_2636) static void C_ccall f_2636(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_2645) static void C_ccall f_2645(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_2012) static void C_ccall f_2012(C_word c,C_word *av) C_noret; C_noret_decl(f_4126) static void C_ccall f_4126(C_word c,C_word *av) C_noret; C_noret_decl(f_2837) static void C_ccall f_2837(C_word c,C_word *av) C_noret; C_noret_decl(f_1556) static void C_fcall f_1556(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3101) static C_word C_fcall f_3101(C_word t0,C_word t1,C_word t2); C_noret_decl(f_2678) static void C_ccall f_2678(C_word c,C_word *av) C_noret; C_noret_decl(f_4371) static void C_ccall f_4371(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_3173) static void C_fcall f_3173(C_word t0,C_word t1) 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_1533) static void C_ccall f_1533(C_word c,C_word *av) C_noret; C_noret_decl(f_3486) static void C_ccall f_3486(C_word c,C_word *av) C_noret; C_noret_decl(f_3184) static C_word C_fcall f_3184(C_word t0,C_word t1); C_noret_decl(f_4384) static void C_ccall f_4384(C_word c,C_word *av) C_noret; C_noret_decl(f_3178) static void C_ccall f_3178(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_3460) static void C_fcall f_3460(C_word t0,C_word t1) C_noret; C_noret_decl(f_4157) static void C_fcall f_4157(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1394) static void C_ccall f_1394(C_word c,C_word *av) C_noret; C_noret_decl(f_1392) static void C_ccall f_1392(C_word c,C_word *av) C_noret; C_noret_decl(trf_1834) static void C_ccall trf_1834(C_word c,C_word *av) C_noret; static void C_ccall trf_1834(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1834(t0,t1,t2,t3);} C_noret_decl(trf_1591) static void C_ccall trf_1591(C_word c,C_word *av) C_noret; static void C_ccall trf_1591(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1591(t0,t1,t2);} C_noret_decl(trf_1719) static void C_ccall trf_1719(C_word c,C_word *av) C_noret; static void C_ccall trf_1719(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1719(t0,t1,t2);} C_noret_decl(trf_4577) static void C_ccall trf_4577(C_word c,C_word *av) C_noret; static void C_ccall trf_4577(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4577(t0,t1,t2);} C_noret_decl(trf_3228) static void C_ccall trf_3228(C_word c,C_word *av) C_noret; static void C_ccall trf_3228(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3228(t0,t1,t2,t3);} C_noret_decl(trf_4085) static void C_ccall trf_4085(C_word c,C_word *av) C_noret; static void C_ccall trf_4085(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_4085(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_3742) static void C_ccall trf_3742(C_word c,C_word *av) C_noret; static void C_ccall trf_3742(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_3742(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_1755) static void C_ccall trf_1755(C_word c,C_word *av) C_noret; static void C_ccall trf_1755(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1755(t0,t1,t2);} C_noret_decl(trf_3930) static void C_ccall trf_3930(C_word c,C_word *av) C_noret; static void C_ccall trf_3930(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3930(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[1]; C_word t1=av[0]; f_4436(t0,t1);} C_noret_decl(trf_1651) static void C_ccall trf_1651(C_word c,C_word *av) C_noret; static void C_ccall trf_1651(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1651(t0,t1,t2);} C_noret_decl(trf_2394) static void C_ccall trf_2394(C_word c,C_word *av) C_noret; static void C_ccall trf_2394(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2394(t0,t1,t2,t3);} C_noret_decl(trf_1438) static void C_ccall trf_1438(C_word c,C_word *av) C_noret; static void C_ccall trf_1438(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1438(t0,t1,t2);} C_noret_decl(trf_1784) static void C_ccall trf_1784(C_word c,C_word *av) C_noret; static void C_ccall trf_1784(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1784(t0,t1,t2,t3);} C_noret_decl(trf_2350) static void C_ccall trf_2350(C_word c,C_word *av) C_noret; static void C_ccall trf_2350(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2350(t0,t1);} 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_1405) static void C_ccall trf_1405(C_word c,C_word *av) C_noret; static void C_ccall trf_1405(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1405(t0,t1,t2);} C_noret_decl(trf_4529) static void C_ccall trf_4529(C_word c,C_word *av) C_noret; static void C_ccall trf_4529(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4529(t0,t1,t2,t3);} C_noret_decl(trf_3518) static void C_ccall trf_3518(C_word c,C_word *av) C_noret; static void C_ccall trf_3518(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3518(t0,t1,t2,t3);} 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[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_3806(t0,t1,t2,t3,t4);} C_noret_decl(trf_2136) static void C_ccall trf_2136(C_word c,C_word *av) C_noret; static void C_ccall trf_2136(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2136(t0,t1,t2);} C_noret_decl(trf_2975) static void C_ccall trf_2975(C_word c,C_word *av) C_noret; static void C_ccall trf_2975(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_2975(t0,t1,t2,t3,t4);} C_noret_decl(trf_3420) static void C_ccall trf_3420(C_word c,C_word *av) C_noret; static void C_ccall trf_3420(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3420(t0,t1,t2);} C_noret_decl(trf_2955) static void C_ccall trf_2955(C_word c,C_word *av) C_noret; static void C_ccall trf_2955(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_2955(t0,t1,t2,t3,t4);} C_noret_decl(trf_4285) static void C_ccall trf_4285(C_word c,C_word *av) C_noret; static void C_ccall trf_4285(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4285(t0,t1,t2,t3);} C_noret_decl(trf_4271) static void C_ccall trf_4271(C_word c,C_word *av) C_noret; static void C_ccall trf_4271(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4271(t0,t1);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3086(t0,t1,t2,t3);} C_noret_decl(trf_2278) static void C_ccall trf_2278(C_word c,C_word *av) C_noret; static void C_ccall trf_2278(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2278(t0,t1,t2);} C_noret_decl(trf_2750) static void C_ccall trf_2750(C_word c,C_word *av) C_noret; static void C_ccall trf_2750(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2750(t0,t1);} C_noret_decl(trf_4600) static void C_ccall trf_4600(C_word c,C_word *av) C_noret; static void C_ccall trf_4600(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4600(t0,t1);} C_noret_decl(trf_1855) static void C_ccall trf_1855(C_word c,C_word *av) C_noret; static void C_ccall trf_1855(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_1855(t0,t1,t2,t3,t4);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4229(t0,t1,t2,t3);} C_noret_decl(trf_3387) static void C_ccall trf_3387(C_word c,C_word *av) C_noret; static void C_ccall trf_3387(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_3387(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_2247) static void C_ccall trf_2247(C_word c,C_word *av) C_noret; static void C_ccall trf_2247(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2247(t0,t1);} 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_1908) static void C_ccall trf_1908(C_word c,C_word *av) C_noret; static void C_ccall trf_1908(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1908(t0,t1);} C_noret_decl(trf_2847) static void C_ccall trf_2847(C_word c,C_word *av) C_noret; static void C_ccall trf_2847(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2847(t0,t1);} C_noret_decl(trf_2086) static void C_ccall trf_2086(C_word c,C_word *av) C_noret; static void C_ccall trf_2086(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2086(t0,t1,t2);} 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_4667) static void C_ccall trf_4667(C_word c,C_word *av) C_noret; static void C_ccall trf_4667(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4667(t0,t1);} C_noret_decl(trf_3682) static void C_ccall trf_3682(C_word c,C_word *av) C_noret; static void C_ccall trf_3682(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3682(t0,t1,t2,t3);} C_noret_decl(trf_2556) static void C_ccall trf_2556(C_word c,C_word *av) C_noret; static void C_ccall trf_2556(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_2556(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_1970) static void C_ccall trf_1970(C_word c,C_word *av) C_noret; static void C_ccall trf_1970(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1970(t0,t1,t2,t3);} C_noret_decl(trf_2522) static void C_ccall trf_2522(C_word c,C_word *av) C_noret; static void C_ccall trf_2522(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2522(t0,t1,t2);} C_noret_decl(trf_2048) static void C_ccall trf_2048(C_word c,C_word *av) C_noret; static void C_ccall trf_2048(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2048(t0,t1);} 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_2598) static void C_ccall trf_2598(C_word c,C_word *av) C_noret; static void C_ccall trf_2598(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2598(t0,t1,t2);} C_noret_decl(trf_4023) static void C_ccall trf_4023(C_word c,C_word *av) C_noret; static void C_ccall trf_4023(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4023(t0,t1,t2,t3);} C_noret_decl(trf_1556) static void C_ccall trf_1556(C_word c,C_word *av) C_noret; static void C_ccall trf_1556(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1556(t0,t1,t2);} C_noret_decl(trf_3173) static void C_ccall trf_3173(C_word c,C_word *av) C_noret; static void C_ccall trf_3173(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3173(t0,t1);} C_noret_decl(trf_3460) static void C_ccall trf_3460(C_word c,C_word *av) C_noret; static void C_ccall trf_3460(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3460(t0,t1);} C_noret_decl(trf_4157) static void C_ccall trf_4157(C_word c,C_word *av) C_noret; static void C_ccall trf_4157(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4157(t0,t1,t2,t3);} /* conjoin in k1390 */ static void C_ccall f_1397(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1397,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1399,a[2]=t2,a[3]=((C_word)li2),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_1399 in conjoin in k1390 */ 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=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_1399,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_1405,a[2]=t4,a[3]=t2,a[4]=((C_word)li1),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_1405(t6,t1,((C_word*)t0)[2]);} /* k3793 in k3747 in loop in merge in k1390 */ 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(3,c,1)))){ C_save_and_reclaim((void *)f_3795,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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 k1824 in chop in k1390 */ static void C_fcall f_1834(C_word t0,C_word 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(9,0,5)))){ C_save_and_reclaim_args((void *)trf_1834,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_1855,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t5,a[6]=((C_word)li38),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_1855(t7,t1,C_SCHEME_END_OF_LIST,t2,((C_word*)t0)[2]);}}} /* k1576 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1578,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1581,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:87: g115 */ t3=t1;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4392 in queue-first in k1390 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4394,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_slot(((C_word*)t0)[3],C_fix(0)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_1570 in loop in o in k1390 */ 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(5,c,2)))){ C_save_and_reclaim((void *)f_1570,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1578,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* data-structures.scm:87: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1556(t4,t3,((C_word*)t0)[4]);} /* k4136 in k4087 in visit in topological-sort in k1390 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_4138,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[91],lf[94]); t6=t5; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4126,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:742: ##sys#get-call-chain */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[100]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[100]+1); av2[1]=t7; tp(2,av2);}} /* k1824 in chop in k1390 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_1826,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_1834,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word)li39),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_1834(t6,((C_word*)t0)[4],((C_word*)t0)[2],t2);} /* k3209 in k3206 in string-translate in k1390 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3211,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[71]); t7=C_block_size(((C_word*)t0)[2]); t8=t7; t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3223,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_proc(*((C_word*)lf[73]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[73]+1); av2[1]=t9; av2[2]=t8; av2[3]=C_make_character(32); tp(4,av2);}} /* k3976 in step in sort! in k1390 */ static void C_ccall f_3978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_3978,2,av);} if(C_truep(t1)){ t2=C_i_setslot(((C_word*)t0)[2],C_fix(0),((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_u_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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t2=C_u_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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* merge in k1390 */ 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=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_3712,5,av);} a=C_alloc(7); if(C_truep(C_i_nullp(t2))){ t5=t3; t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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_3742,a[2]=t12,a[3]=t4,a[4]=((C_word)li97),tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_3742(t14,t1,t5,t7,t8,t10);}}} /* conc in k1390 */ 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; 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_2509,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[45]+1); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2520,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_2522,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li59),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_2522(t12,t8,t2);} /* k3206 in string-translate in k1390 */ 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; C_word t3; 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_3208,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3211,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; f_3211(2,av2);}} else{ if(C_truep(C_i_pairp(t4))){ /* list->string */ t5=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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[71]); t6=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t4; f_3211(2,av2);}}}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_3211(2,av2);}}} /* k2499 in ->string in k1390 */ static void C_ccall f_2501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2501,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2504,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:296: display */ t4=*((C_word*)lf[49]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2502 in k2499 in ->string in k1390 */ static void C_ccall f_2504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2504,2,av);} /* data-structures.scm:297: get-output-string */ t2=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3704 in loop in sorted? in k1390 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3706,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_car(t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* data-structures.scm:611: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_3682(t6,((C_word*)t0)[2],t3,t5);}} /* k2406 in rev-string-append in reverse-string-append in k1390 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2408,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_2417,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word)li55),tmp=(C_word)a,a+=6,tmp); t7=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=( f_2417(t6,C_fix(0),t5) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* queue-length in k1390 */ 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(0,c,1)))){ C_save_and_reclaim((void *)f_4362,3,av);} t3=C_i_check_structure_2(t2,lf[104],lf[106]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_slot(t2,C_fix(3)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop */ static void C_fcall f_1591(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_1591,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{ if(C_truep(C_i_not_pair_p(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_1610,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)); /* data-structures.scm:94: 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);}}}} /* k3767 in k3747 in loop in merge in k1390 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3769,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k2609 in loop in traverse in k1390 */ static void C_ccall f_2611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2611,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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:322: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_2598(t3,((C_word*)t0)[2],t2);}} /* k3245 in loop in k3221 in k3209 in k3206 in string-translate in k1390 */ static void C_ccall f_3247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_3247,2,av);} if(C_truep(t1)){ if(C_truep(((C_word*)t0)[2])){ if(C_truep(C_charp(((C_word*)t0)[2]))){ t2=C_setsubchar(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[2]); t3=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); t4=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); /* data-structures.scm:510: loop */ t5=((C_word*)((C_word*)t0)[6])[1]; f_3228(t5,((C_word*)t0)[7],t3,t4);} else{ if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[8]))){ /* data-structures.scm:512: ##sys#error */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[7]; av2[2]=lf[71]; av2[3]=lf[72]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ t2=C_subchar(((C_word*)t0)[2],t1); t3=C_setsubchar(((C_word*)t0)[3],((C_word*)t0)[4],t2); t4=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); t5=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); /* data-structures.scm:515: loop */ t6=((C_word*)((C_word*)t0)[6])[1]; f_3228(t6,((C_word*)t0)[7],t4,t5);}}} else{ t2=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); /* data-structures.scm:507: loop */ t3=((C_word*)((C_word*)t0)[6])[1]; f_3228(t3,((C_word*)t0)[7],t2,((C_word*)t0)[4]);}} else{ t2=C_setsubchar(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[9]); t3=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); t4=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); /* data-structures.scm:506: loop */ t5=((C_word*)((C_word*)t0)[6])[1]; f_3228(t5,((C_word*)t0)[7],t3,t4);}} /* k1579 in k1576 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1581,2,av);} /* data-structures.scm:87: h */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* list-of? in k1390 */ 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=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,3)))){ C_save_and_reclaim((void *)f_1583,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1585,a[2]=t2,a[3]=((C_word)li22),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_1585 in list-of? in k1390 */ 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=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_1585,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_1591,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word)li21),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_1591(t6,t1,t2);} /* sort! in k1390 */ 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=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_3927,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_3930,a[2]=t3,a[3]=t6,a[4]=t4,a[5]=((C_word)li101),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_4014,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:706: vector->list */ t12=*((C_word*)lf[85]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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:712: step */ t9=((C_word*)t6)[1]; f_3930(t9,t1,t8);}} /* k4343 in binary-search in k1390 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4345,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_4271(t3,t2);} /* intersperse in k1390 */ 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=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,3)))){ C_save_and_reclaim((void *)f_1713,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_1719,a[2]=t3,a[3]=t5,a[4]=((C_word)li32),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_1719(t7,t1,t2);} /* loop in intersperse in k1390 */ static void C_fcall f_1719(C_word t0,C_word t1,C_word t2){ C_word 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(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1719,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_1744,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* data-structures.scm:134: loop */ t8=t6; t9=t3; t1=t8; t2=t9; goto loop;}}} /* doloop906 in list->queue in k1390 */ static void C_fcall f_4577(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_4577,3,t0,t1,t2);} a=C_alloc(12); t3=C_slot(t2,C_fix(1)); t4=C_eqp(t3,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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4587,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_blockp(t2); t7=C_i_not(t6); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4600,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp); if(C_truep(t7)){ t9=t8; f_4600(t9,t7);} else{ t9=C_pairp(t2); t10=t8; f_4600(t10,C_i_not(t9));}}} /* loop in k3221 in k3209 in k3206 in string-translate in k1390 */ static void C_fcall f_3228(C_word 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_3228,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:500: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[66]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[66]+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_3247,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=t4,tmp=(C_word)a,a+=10,tmp); /* data-structures.scm:503: 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);}}} /* k3221 in k3209 in k3206 in string-translate in k1390 */ 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; C_word t3; 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_3223,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_3228,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*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word)li85),tmp=(C_word)a,a+=10,tmp)); t6=((C_word*)t4)[1]; f_3228(t6,((C_word*)t0)[7],C_fix(0),C_fix(0));} /* k3900 in k3879 in merge! in k1390 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3902,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* butlast in k1390 */ 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=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,3)))){ C_save_and_reclaim((void *)f_1746,3,av);} a=C_alloc(6); t3=C_i_check_pair_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|3,a[1]=(C_word)f_1755,a[2]=t5,a[3]=((C_word)li34),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_1755(t7,t1,t2);} /* k1742 in loop in intersperse in k1390 */ static void C_ccall f_1744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1744,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; /* Re-use our own argvector */ 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);}} /* k4565 in list->queue in k1390 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_4567,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_u_i_length(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[104],((C_word*)t0)[2],t1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* visit in topological-sort in k1390 */ static void C_fcall f_4085(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_4085,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(10); t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4089,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:734: alist-ref */ t9=*((C_word*)lf[40]+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);}} /* topological-sort in k1390 */ 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; 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_4082,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_4085,a[2]=t3,a[3]=t5,a[4]=((C_word)li106),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_4229,a[2]=t9,a[3]=t5,a[4]=((C_word)li107),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_4229(t11,t1,t2,t7);} /* k4087 in visit in topological-sort in k1390 */ static void C_ccall f_4089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_4089,2,av);} a=C_alloc(12); t2=C_eqp(t1,lf[90]); if(C_truep(t2)){ t3=C_a_i_cons(&a,2,lf[91],lf[92]); t4=t3; t5=C_a_i_cons(&a,2,lf[91],lf[93]); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4138,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:741: reverse */ t8=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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[101]); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_4151,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; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t4; f_4151(2,av2);}} else{ /* data-structures.scm:747: alist-ref */ t6=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}}}}} /* k4078 in sort in k1390 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4080,2,av);} /* data-structures.scm:724: sort! */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in k2406 in rev-string-append in reverse-string-append in k1390 */ static C_word C_fcall f_2417(C_word t0,C_word t1,C_word t2){ C_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]);}} /* k1774 in loop in butlast in k1390 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1776,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* flatten in k1390 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_1778,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_1784,a[2]=t4,a[3]=((C_word)li36),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_1784(t6,t1,t2,C_SCHEME_END_OF_LIST);} /* list->queue in k1390 */ static void C_ccall f_4556(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(11,c,3)))){ C_save_and_reclaim((void *)f_4556,3,av);} a=C_alloc(11); t3=C_i_check_list_2(t2,lf[116]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4567,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t5)){ t6=t2; t7=C_u_i_length(t6); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_a_i_record4(&a,4,lf[104],t2,C_SCHEME_END_OF_LIST,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} 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_4577,a[2]=t7,a[3]=t2,a[4]=((C_word)li121),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_4577(t9,t4,t2);}} /* k4071 in sort in k1390 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4073,2,av);} /* data-structures.scm:723: sort! */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4067 in sort in k1390 */ 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,2)))){ C_save_and_reclaim((void *)f_4069,2,av);} /* data-structures.scm:723: list->vector */ t2=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3747 in loop in merge in k1390 */ 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 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_3749,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; /* Re-use our own argvector */ 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_3769,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:630: loop */ t6=((C_word*)((C_word*)t0)[7])[1]; f_3742(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; /* Re-use our own argvector */ 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_3795,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:634: loop */ t6=((C_word*)((C_word*)t0)[7])[1]; f_3742(t6,t2,t3,t5,((C_word*)t0)[6],((C_word*)t0)[2]);}}} /* loop in merge in k1390 */ static void C_fcall f_3742(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_3742,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(8); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3749,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:627: 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);}} /* loop in butlast in k1390 */ static void C_fcall f_1755(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_1755,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_1776,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:141: 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);}}} /* k3938 in step in sort! in k1390 */ static void C_ccall f_3940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3940,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3943,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); /* data-structures.scm:682: step */ t4=((C_word*)((C_word*)t0)[5])[1]; f_3930(t4,t3,t2);} /* k3947 in k3941 in k3938 in step in sort! in k1390 */ 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,4)))){ C_save_and_reclaim((void *)f_3949,2,av);} /* data-structures.scm:685: merge! */ t2=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3941 in k3938 in step in sort! in k1390 */ static void C_ccall f_3943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_3943,2,av);} a=C_alloc(9); t2=t1; t3=C_a_i_minus(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3949,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:684: step */ t5=((C_word*)((C_word*)t0)[6])[1]; f_3930(t5,t4,t3);} /* f_1478 in constantly in k1390 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1478,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* step in sort! in k1390 */ static void C_fcall f_3930(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_3930,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_greaterp(t2,C_fix(2)))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3940,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);{ C_word av2[4]; av2[0]=0; av2[1]=t3; av2[2]=t2; av2[3]=C_fix(2); C_quotient(4,av2);}} 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_word*)((C_word*)t0)[4])[1]; t9=C_u_i_cdr(t8); t10=C_mutate2(((C_word *)((C_word*)t0)[4])+1,C_u_i_cdr(t9)); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3978,a[2]=t7,a[3]=t6,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* data-structures.scm:691: less? */ t12=((C_word*)t0)[2];{ C_word av2[4]; av2[0]=t12; av2[1]=t11; av2[2]=t6; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t12))(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_mutate2(((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);}}}}} /* k4434 in queue-add! in k1390 */ static void C_fcall f_4436(C_word 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,1)))){ C_save_and_reclaim_args((void *)trf_4436,2,t0,t1);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(2),((C_word*)t0)[3]); t3=C_slot(((C_word*)t0)[2],C_fix(3)); t4=C_fixnum_plus(t3,C_fix(1)); t5=C_i_set_i_slot(((C_word*)t0)[2],C_fix(3),t4); t6=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* complement in k1390 */ static void C_ccall f_1496(C_word c,C_word *av){ C_word tmp; C_word 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,2)))){ C_save_and_reclaim((void *)f_1496,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1498,a[2]=t2,a[3]=((C_word)li12),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_1490 in flip in k1390 */ 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=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_1490,4,av);} /* data-structures.scm:61: proc */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} /* k4585 in doloop906 in list->queue in k1390 */ 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; 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_4587,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4577(t3,((C_word*)t0)[4],t2);} /* f_1498 in complement in k1390 */ static void C_ccall f_1498(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1498,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_1506,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=t2; C_apply(4,av2);}} /* each in k1390 */ 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((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_1623,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_1631,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=(C_truep(t4)?C_slot(t2,C_fix(0)):(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1645,a[2]=t2,a[3]=((C_word)li26),tmp=(C_word)a,a+=4,tmp)); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* f_1480 in constantly in k1390 */ 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);}{ C_word av2[3]; av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* alist-update in k1390 */ static void C_ccall f_2127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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 +9,c,3)))){ C_save_and_reclaim((void*)f_2127,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[30]+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_2136,a[2]=t2,a[3]=t3,a[4]=t10,a[5]=t8,a[6]=((C_word)li48),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_2136(t12,t1,t4);} /* flip in k1390 */ 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=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,4)))){ C_save_and_reclaim((void *)f_1488,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1490,a[2]=t2,a[3]=((C_word)li10),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop */ static void C_fcall f_1651(C_word t0,C_word 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_1651,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_1670,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);}}} /* k1668 in loop */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1670,2,av);} /* data-structures.scm:109: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1651(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* f_1645 in each in k1390 */ static void C_ccall f_1645(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,3)))){ C_save_and_reclaim((void*)f_1645,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_1651,a[2]=t2,a[3]=t4,a[4]=((C_word)li25),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_1651(t6,t1,((C_word*)t0)[2]);} /* k2372 in loop in k2348 in rassoc in k1390 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2374,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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)); /* data-structures.scm:265: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_2355(t3,((C_word*)t0)[2],t2);}} /* string-split in k1390 */ static void C_ccall f_2934(C_word c,C_word *av){ C_word tmp; C_word 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_2934,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[64]); t5=C_i_nullp(t3); t6=(C_truep(t5)?lf[65]: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[64]); 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_2955,a[2]=t19,a[3]=t2,a[4]=((C_word)li75),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_2975,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)li77),tmp=(C_word)a,a+=11,tmp)); t24=((C_word*)t22)[1]; f_2975(t24,t1,C_fix(0),C_SCHEME_FALSE,C_fix(0));} /* any? in k1390 */ 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=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_1679,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3641 in doloop725 in sorted? in k1390 */ static void C_ccall f_3643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_3643,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)); t3=((C_word*)((C_word*)t0)[5])[1]; f_3633(t3,((C_word*)t0)[2],t2);}} /* reverse-string-append in k1390 */ static void C_ccall f_2391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2391,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_2394,a[2]=t4,a[3]=((C_word)li56),tmp=(C_word)a,a+=4,tmp)); /* data-structures.scm:284: rev-string-append */ t6=((C_word*)t4)[1]; f_2394(t6,t1,t2,C_fix(0));} /* rev-string-append in reverse-string-append in k1390 */ static void C_fcall f_2394(C_word t0,C_word t1,C_word 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_2394,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_2408,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:276: rev-string-append */ t13=t8; t14=t10; t15=t11; t1=t13; t2=t14; t3=t15; goto loop;} else{ /* data-structures.scm:283: make-string */ t4=*((C_word*)lf[44]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* f_1432 in disjoin in k1390 */ static void C_ccall f_1432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1432,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_1438,a[2]=t4,a[3]=t2,a[4]=((C_word)li4),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_1438(t6,t1,((C_word*)t0)[2]);} /* loop */ static void C_fcall f_1438(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_1438,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_slot(t2,C_fix(0)); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1451,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* data-structures.scm:48: g86 */ t5=t3;{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} /* k3536 in loop in string-chop in k1390 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3538,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list1(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* disjoin in k1390 */ static void C_ccall f_1430(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1430,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1432,a[2]=t2,a[3]=((C_word)li5),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in flatten in k1390 */ static void C_fcall f_1784(C_word t0,C_word t1,C_word 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(5,0,3)))){ C_save_and_reclaim_args((void *)trf_1784,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_1810,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* data-structures.scm:151: 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_1817,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:152: loop */ t9=t7; t10=t6; t11=t3; t1=t9; t2=t10; t3=t11; goto loop;}}} /* k1419 in loop */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1421,2,av);} if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* data-structures.scm:46: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1405(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* ->string in k1390 */ 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=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_2464,3,av);} a=C_alloc(4); if(C_truep(C_i_stringp(t2))){ t3=t2; t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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:291: symbol->string */ t3=*((C_word*)lf[46]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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:293: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[47]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[47]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2501,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:295: open-output-string */ t4=*((C_word*)lf[50]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}}} /* k3879 in merge! in k1390 */ 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 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_3881,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3884,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; /* Re-use our own argvector */ 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:662: loop */ t7=((C_word*)((C_word*)t0)[5])[1]; f_3806(t7,t2,((C_word*)t0)[2],((C_word*)t0)[4],t6);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3902,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; /* Re-use our own argvector */ 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:667: loop */ t7=((C_word*)((C_word*)t0)[5])[1]; f_3806(t7,t2,((C_word*)t0)[4],t6,((C_word*)t0)[2]);}}} /* k2100 in loop */ static void C_ccall f_2102(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2102,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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)); /* data-structures.scm:211: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_2086(t3,((C_word*)t0)[2],t2);}} /* k3882 in k3879 in merge! in k1390 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3884,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1449 in loop */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1451,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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)); /* data-structures.scm:53: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_1438(t3,((C_word*)t0)[2],t2);}} /* rassoc in k1390 */ 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=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,2)))){ C_save_and_reclaim((void*)f_2343,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[42]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2350,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_2350(t8,C_u_i_car(t7));} else{ t7=t6; f_2350(t7,*((C_word*)lf[30]+1));}} /* k2197 in k2175 in loop in alist-update in k1390 */ static void C_ccall f_2199(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_2199,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k2348 in rassoc in k1390 */ static void C_fcall f_2350(C_word 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_2350,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_2355,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word)li53),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_2355(t6,((C_word*)t0)[3],((C_word*)t0)[4]);} /* loop in k2348 in rassoc in k1390 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_2355,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[42]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2374,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)); /* data-structures.scm:263: 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);}}} /* k3551 in k3547 in loop in string-chop in k1390 */ static void C_ccall f_3553(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_3553,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k3547 in loop in string-chop in k1390 */ static void C_ccall f_3549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_3549,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3553,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:558: loop */ t6=((C_word*)((C_word*)t0)[6])[1]; f_3518(t6,t3,t4,t5);} /* k2301 in loop */ static void C_ccall f_2303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2303,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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)); /* data-structures.scm:249: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_2278(t3,((C_word*)t0)[2],t2);}} /* loop */ static void C_fcall f_1405(C_word 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_1405,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_1421,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* data-structures.scm:41: g74 */ 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);}}} /* string-chomp in k1390 */ 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 *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_3567,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[80]:C_i_car(t3)); t6=C_i_check_string_2(t2,lf[79]); t7=C_i_check_string_2(t5,lf[79]); 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:571: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[66]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[66]+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; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} /* a1524 */ static void C_ccall f_1525(C_word c,C_word *av){ 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_1525,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1533,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in queue->list in k1390 */ static void C_fcall f_4529(C_word t0,C_word t1,C_word 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_4529,4,t0,t1,t2,t3);} a=C_alloc(3); if(C_truep(C_i_nullp(t2))){ /* data-structures.scm:859: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[77]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[77]+1); av2[1]=t1; av2[2]=t3; tp(3,av2);}} else{ t4=C_slot(t2,C_fix(1)); t5=C_slot(t2,C_fix(0)); t6=C_a_i_cons(&a,2,t5,t3); /* data-structures.scm:860: loop */ t8=t1; t9=t4; t10=t6; t1=t8; t2=t9; t3=t10; goto loop;}} /* k3811 in loop in merge! in k1390 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3813,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; /* Re-use our own argvector */ 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:649: loop */ t7=((C_word*)((C_word*)t0)[6])[1]; f_3806(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; /* Re-use our own argvector */ 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:655: loop */ t7=((C_word*)((C_word*)t0)[6])[1]; f_3806(t7,((C_word*)t0)[5],((C_word*)t0)[4],t6,((C_word*)t0)[3]);}}} /* loop in tail? in k1390 */ static C_word C_fcall f_1697(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;}}} /* loop in string-chop in k1390 */ static void C_fcall f_3518(C_word 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_3518,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_3538,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=C_fixnum_plus(t3,t2); /* data-structures.scm:557: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[66]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[66]+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_3549,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:558: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[66]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[66]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t3; av2[4]=t5; tp(5,av2);}}}} /* f_1519 in rec in compose in k1390 */ 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; 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_1519,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_1525,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li14),tmp=(C_word)a,a+=6,tmp); /* data-structures.scm:72: call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* queue->list in k1390 */ 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=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(6,c,4)))){ C_save_and_reclaim((void *)f_4516,3,av);} a=C_alloc(6); t3=C_i_check_structure_2(t2,lf[104],lf[115]); 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_4529,a[2]=t6,a[3]=((C_word)li119),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_4529(t8,t1,t4,C_SCHEME_END_OF_LIST);} /* rec in compose in k1390 */ 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=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_1511,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; /* Re-use our own argvector */ 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_1519,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,a[5]=((C_word)li15),tmp=(C_word)a,a+=6,tmp); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k2175 in loop in alist-update in k1390 */ 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 t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_2177,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; /* Re-use our own argvector */ 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_2199,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)); /* data-structures.scm:233: loop */ t8=((C_word*)((C_word*)t0)[7])[1]; f_2136(t8,t6,t7);}} /* merge! in k1390 */ 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=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_3803,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_3806,a[2]=t6,a[3]=t4,a[4]=((C_word)li99),tmp=(C_word)a,a+=5,tmp)); if(C_truep(C_i_nullp(t2))){ t8=t3; t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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_3881,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:659: less? */ t11=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t8; av2[2]=t9; av2[3]=t10; ((C_proc)C_fast_retrieve_proc(t11))(4,av2);}}}} /* loop in merge! in k1390 */ static void C_fcall f_3806(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_3806,5,t0,t1,t2,t3,t4);} a=C_alloc(7); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3813,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:644: 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);}} /* atom? in k1390 */ 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; 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_1682,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_not_pair_p(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* tail? in k1390 */ 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=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,2)))){ C_save_and_reclaim((void *)f_1685,4,av);} a=C_alloc(4); t4=C_i_check_list_2(t3,lf[14]); t5=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_1697,a[2]=t2,a[3]=((C_word)li30),tmp=(C_word)a,a+=4,tmp); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=( f_1697(t6,t3) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* loop in alist-update in k1390 */ static void C_fcall f_2136(C_word t0,C_word 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,4)))){ C_save_and_reclaim_args((void *)trf_2136,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{ if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t3; if(C_truep(C_i_pairp(t4))){ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2177,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t1,a[6]=t4,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); t6=C_slot(t4,C_fix(0)); /* data-structures.scm:229: cmp */ t7=((C_word*)t0)[5];{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=t6; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}} else{ /* data-structures.scm:228: error */ t5=*((C_word*)lf[37]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t1; av2[2]=lf[36]; av2[3]=lf[38]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} else{ /* data-structures.scm:224: error */ t3=*((C_word*)lf[37]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=lf[36]; av2[3]=lf[39]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}} /* string-chop in k1390 */ 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=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(8,c,4)))){ C_save_and_reclaim((void *)f_3503,4,av);} a=C_alloc(8); t4=C_i_check_string_2(t2,lf[78]); t5=C_i_check_exact_2(t3,lf[78]); t6=C_block_size(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|5,a[1]=(C_word)f_3518,a[2]=t3,a[3]=t2,a[4]=t8,a[5]=((C_word)li91),tmp=(C_word)a,a+=6,tmp)); t10=((C_word*)t8)[1]; f_3518(t10,t1,t6,C_fix(0));} /* 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 *a; 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_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* compose in k1390 */ static void C_ccall f_1508(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1508,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_1511,a[2]=t4,a[3]=((C_word)li16),tmp=(C_word)a,a+=4,tmp)); if(C_truep(C_i_nullp(t2))){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=*((C_word*)lf[7]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t4)[1]; av2[3]=t2; C_apply(4,av2);}}} /* constantly in k1390 */ 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((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_1467,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_1478,a[2]=t7,a[3]=((C_word)li7),tmp=(C_word)a,a+=4,tmp); t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_1480,a[2]=t2,a[3]=((C_word)li8),tmp=(C_word)a,a+=4,tmp); t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k2968 in add in string-split in k1390 */ 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(3,c,1)))){ C_save_and_reclaim((void *)f_2970,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2248 in k2245 in alist-ref in k1390 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2250,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* loop in string-split in k1390 */ static void C_fcall f_2975(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_2975,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_2985,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:422: add */ t8=((C_word*)t0)[5]; f_2955(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_3002,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)li76),tmp=(C_word)a,a+=13,tmp)); t9=((C_word*)t7)[1]; f_3002(t9,t1,C_fix(0));}} /* k4413 in queue-last in k1390 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4415,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_slot(((C_word*)t0)[3],C_fix(0)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4293 in loop in k4269 in binary-search in k1390 */ 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 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_4295,2,av);} t2=C_eqp(t1,C_fix(0)); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_fixnum_lessp(t1,C_fix(0)))){ t3=C_eqp(((C_word*)t0)[4],((C_word*)t0)[3]); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* data-structures.scm:787: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_4285(t4,((C_word*)t0)[2],((C_word*)t0)[6],((C_word*)t0)[3]);}} else{ t3=C_eqp(((C_word*)t0)[6],((C_word*)t0)[3]); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* data-structures.scm:788: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_4285(t4,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]);}}}} /* queue-last in k1390 */ 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=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(4,c,4)))){ C_save_and_reclaim((void *)f_4405,3,av);} a=C_alloc(4); t3=C_i_check_structure_2(t2,lf[104],lf[110]); t4=C_slot(t2,C_fix(2)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4415,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_eqp(C_SCHEME_END_OF_LIST,t5); if(C_truep(t7)){ /* data-structures.scm:830: ##sys#error */ t8=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t6; av2[2]=lf[110]; av2[3]=lf[111]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_slot(t5,C_fix(0)); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* loop in collect in string-translate* in k1390 */ static void C_fcall f_3420(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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_3420,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:531: collect */ t5=((C_word*)((C_word*)t0)[4])[1]; f_3387(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_3460,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_3486,a[2]=((C_word*)t0)[6],a[3]=t12,tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:540: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[66]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[66]+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_3460(t13,C_SCHEME_UNDEFINED);}} else{ t10=t2; t11=C_u_i_cdr(t10); /* data-structures.scm:545: loop */ t15=t1; t16=t11; t1=t15; t2=t16; goto loop;}}} /* add in string-split in k1390 */ static void C_fcall f_2955(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_2955,5,t0,t1,t2,t3,t4);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2970,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* data-structures.scm:415: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[66]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[66]+1); av2[1]=t5; av2[2]=((C_word*)t0)[3]; av2[3]=t2; av2[4]=t3; tp(5,av2);}} /* loop in k4269 in binary-search in k1390 */ static void C_fcall f_4285(C_word t0,C_word t1,C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_4285,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_fixnum_difference(t3,t2); t5=C_fixnum_shift_right(t4,C_fix(1)); t6=C_fixnum_plus(t2,t5); t7=t6; t8=C_slot(((C_word*)((C_word*)t0)[2])[1],t7); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4295,a[2]=t1,a[3]=t7,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* data-structures.scm:785: proc */ t10=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t8; ((C_proc)C_fast_retrieve_proc(t10))(3,av2);}} /* k2983 in loop in string-split in k1390 */ static void C_ccall f_2985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2985,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?t2:C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4269 in binary-search in k1390 */ static void C_fcall f_4271(C_word 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_4271,2,t0,t1);} a=C_alloc(8); t2=C_block_size(((C_word*)((C_word*)t0)[2])[1]); if(C_truep(C_fixnum_greaterp(t2,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|5,a[1]=(C_word)f_4285,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word)li109),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_4285(t6,((C_word*)t0)[4],C_fix(0),t2);} 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);}}} /* queue-remove! in k1390 */ 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; 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(5,c,4)))){ C_save_and_reclaim((void *)f_4469,3,av);} a=C_alloc(5); t3=C_i_check_structure_2(t2,lf[104],lf[113]); t4=C_slot(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4479,a[2]=t5,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t7=C_eqp(C_SCHEME_END_OF_LIST,t5); if(C_truep(t7)){ /* data-structures.scm:847: ##sys#error */ t8=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t6; av2[2]=lf[113]; av2[3]=lf[114]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t8=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_4479(2,av2);}}} /* k3399 in collect in string-translate* in k1390 */ static void C_ccall f_3401(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3401,2,av);} /* data-structures.scm:523: ##sys#fragments->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[76]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[76]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* ##sys#substring=? in k1390 */ 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=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_2740,7,av);} a=C_alloc(7); t7=C_i_check_string_2(t2,lf[61]); t8=C_i_check_string_2(t3,lf[61]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2750,a[2]=t4,a[3]=t5,a[4]=t1,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp); if(C_truep(t6)){ t10=t9; f_2750(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_2750(t14,C_i_fixnum_min(t11,t13));}} /* loop1 in string-intersperse in k1390 */ static void C_fcall f_3086(C_word t0,C_word t1,C_word 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_3086,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[69]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3096,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:446: ##sys#allocate-vector */ t6=*((C_word*)lf[70]+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[67]); 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:461: loop1 */ t12=t1; t13=t7; t14=t10; t1=t12; t2=t13; t3=t14; goto loop;} else{ /* data-structures.scm:463: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[24]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[24]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; tp(3,av2);}}}} /* f_2272 in alist-ref in k1390 */ 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=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_2272,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_2278,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word)li50),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_2278(t7,t1,t3);} /* loop */ static void C_fcall f_2278(C_word t0,C_word t1,C_word 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_2278,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[40]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2303,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)); /* data-structures.scm:247: 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{ /* data-structures.scm:250: error */ t3=*((C_word*)lf[37]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=lf[40]; av2[3]=lf[41]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}} /* k2748 in substring=? in k1390 */ static void C_fcall f_2750(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_2750,2,t0,t1);} t2=C_i_check_exact_2(((C_word*)t0)[2],lf[61]); t3=C_i_check_exact_2(((C_word*)t0)[3],lf[61]); t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_substring_compare(((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3094 in loop1 in string-intersperse in k1390 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3096,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3101,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li79),tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_3101(t3,((C_word*)t0)[5],C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4598 in doloop906 in list->queue in k1390 */ static void C_fcall f_4600(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_4600,2,t0,t1);} if(C_truep(t1)){ /* data-structures.scm:872: ##sys#error-not-a-proper-list */ {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]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[116]; tp(4,av2);}} else{ t2=C_slot(((C_word*)t0)[4],C_fix(1)); t3=((C_word*)((C_word*)t0)[5])[1]; f_4577(t3,((C_word*)t0)[6],t2);}} /* k3413 in collect in string-translate* in k1390 */ 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 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_3415,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)((C_word*)t0)[2])[1]); /* data-structures.scm:525: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[77]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[77]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t2; tp(3,av2);}} /* string-intersperse in k1390 */ static void C_ccall f_3068(C_word c,C_word *av){ C_word tmp; C_word 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_3068,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[68]:C_i_car(t3)); t6=t5; t7=C_i_check_list_2(t2,lf[67]); t8=C_i_check_string_2(t6,lf[67]); 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_3086,a[2]=t2,a[3]=t6,a[4]=t10,a[5]=t12,a[6]=((C_word)li80),tmp=(C_word)a,a+=7,tmp)); t14=((C_word*)t12)[1]; f_3086(t14,t1,t2,C_fix(0));} /* doloop198 in loop in k1824 in chop in k1390 */ static void C_fcall f_1855(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(7,0,4)))){ C_save_and_reclaim_args((void *)trf_1855,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_1869,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); /* data-structures.scm:167: reverse */ t7=*((C_word*)lf[19]+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;}} /* queue-add! in k1390 */ static void C_ccall f_4426(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(8,c,2)))){ C_save_and_reclaim((void *)f_4426,4,av);} a=C_alloc(8); t4=C_i_check_structure_2(t2,lf[104],lf[112]); t5=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4436,a[2]=t2,a[3]=t6,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t8=C_slot(t2,C_fix(1)); t9=C_eqp(C_SCHEME_END_OF_LIST,t8); if(C_truep(t9)){ t10=t7; f_4436(t10,C_i_setslot(t2,C_fix(1),t6));} else{ t10=C_slot(t2,C_fix(2)); t11=t7; f_4436(t11,C_i_setslot(t10,C_fix(1),t6));}} /* substring=? in k1390 */ 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=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_2777,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:386: ##sys#substring=? */ t15=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t15; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t6; av2[5]=t10; av2[6]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(7,av2);}} else{ t15=C_i_cdr(t12); /* data-structures.scm:386: ##sys#substring=? */ t16=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t16; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t6; av2[5]=t10; av2[6]=t14; ((C_proc)(void*)(*((C_word*)t16+1)))(7,av2);}}} /* k3039 in scan in loop in string-split in k1390 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3041,2,av);} /* data-structures.scm:431: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2975(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[4]);} /* loop in topological-sort in k1390 */ static void C_fcall f_4229(C_word t0,C_word t1,C_word 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_4229,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_4250,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:765: visit */ t11=((C_word*)((C_word*)t0)[3])[1]; f_4085(t11,t6,t2,t7,t10,C_SCHEME_END_OF_LIST,t3);}} /* collect in string-translate* in k1390 */ static void C_fcall f_3387(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_3387,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_3401,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_3415,a[2]=t6,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:527: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[66]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[66]+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:525: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[77]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[77]+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_3420,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)li88),tmp=(C_word)a,a+=11,tmp)); t10=((C_word*)t8)[1]; f_3420(t10,t1,((C_word*)t0)[5]);}} /* string-compare3-ci in k1390 */ static void C_ccall f_2709(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_2709,4,av);} t4=C_i_check_string_2(t2,lf[59]); t5=C_i_check_string_2(t3,lf[59]); 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; /* Re-use our own argvector */ av2[0]=t13; av2[1]=(C_truep(t12)?t8:t11); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} /* alist-ref in k1390 */ static void C_ccall f_2231(C_word c,C_word *av){ C_word tmp; C_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 +10,c,4)))){ C_save_and_reclaim((void*)f_2231,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[30]+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_2247,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[31]+1),t7); if(C_truep(t16)){ t17=t15; f_2247(t17,*((C_word*)lf[32]+1));} else{ t17=C_eqp(*((C_word*)lf[30]+1),t7); if(C_truep(t17)){ t18=t15; f_2247(t18,*((C_word*)lf[33]+1));} else{ t18=C_eqp(*((C_word*)lf[34]+1),t7); t19=t15; f_2247(t19,(C_truep(t18)?*((C_word*)lf[35]+1):(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2272,a[2]=t7,a[3]=((C_word)li51),tmp=(C_word)a,a+=4,tmp)));}}} /* k1871 in k1867 in doloop198 in loop in k1824 in chop in k1390 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1873,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k2245 in alist-ref in k1390 */ static void C_fcall f_2247(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_2247,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2250,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:251: 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);}} /* k4477 in queue-remove! in k1390 */ static void C_ccall f_4479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_4479,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_i_setslot(((C_word*)t0)[3],C_fix(1),t2); t4=C_eqp(C_SCHEME_END_OF_LIST,t2); t5=(C_truep(t4)?C_i_set_i_slot(((C_word*)t0)[3],C_fix(2),C_SCHEME_END_OF_LIST):C_SCHEME_UNDEFINED); t6=C_slot(((C_word*)t0)[3],C_fix(3)); t7=C_fixnum_difference(t6,C_fix(1)); t8=C_i_set_i_slot(((C_word*)t0)[3],C_fix(3),t7); t9=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_slot(((C_word*)t0)[2],C_fix(0)); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* k1867 in doloop198 in loop in k1824 in chop in k1390 */ static void C_ccall f_1869(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_1869,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1873,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]); /* data-structures.scm:167: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_1834(t5,t3,((C_word*)t0)[6],t4);} /* k3365 in string-translate in k1390 */ static void C_ccall f_3367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3367,2,av);} /* data-structures.scm:481: instring */ f_3173(((C_word*)t0)[3],t1);} /* 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_2dstructures_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_data_2dstructures_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(772))){ C_save(t1); C_rereclaim2(772*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,121); lf[0]=C_h_intern(&lf[0],8,"identity"); lf[1]=C_h_intern(&lf[1],7,"conjoin"); lf[2]=C_h_intern(&lf[2],7,"disjoin"); lf[3]=C_h_intern(&lf[3],10,"constantly"); lf[4]=C_h_intern(&lf[4],4,"flip"); lf[5]=C_h_intern(&lf[5],10,"complement"); lf[6]=C_h_intern(&lf[6],7,"compose"); lf[7]=C_h_intern(&lf[7],6,"values"); lf[8]=C_h_intern(&lf[8],1,"o"); lf[9]=C_h_intern(&lf[9],8,"list-of\077"); lf[10]=C_h_intern(&lf[10],4,"each"); lf[11]=C_h_intern(&lf[11],19,"\003sysundefined-value"); lf[12]=C_h_intern(&lf[12],4,"any\077"); lf[13]=C_h_intern(&lf[13],5,"atom\077"); lf[14]=C_h_intern(&lf[14],5,"tail\077"); lf[15]=C_h_intern(&lf[15],11,"intersperse"); lf[16]=C_h_intern(&lf[16],7,"butlast"); lf[17]=C_h_intern(&lf[17],7,"flatten"); lf[18]=C_h_intern(&lf[18],4,"chop"); lf[19]=C_h_intern(&lf[19],7,"reverse"); lf[20]=C_h_intern(&lf[20],9,"\003syserror"); lf[21]=C_decode_literal(C_heaptop,"\376B\000\000\030invalid numeric argument"); lf[22]=C_h_intern(&lf[22],4,"join"); lf[23]=C_h_intern(&lf[23],10,"\003sysappend"); lf[24]=C_h_intern(&lf[24],27,"\003syserror-not-a-proper-list"); lf[25]=C_h_intern(&lf[25],8,"compress"); lf[26]=C_decode_literal(C_heaptop,"\376B\000\000%bad argument type - not a proper list"); lf[27]=C_h_intern(&lf[27],15,"\003syssignal-hook"); lf[28]=C_h_intern(&lf[28],11,"\000type-error"); lf[29]=C_h_intern(&lf[29],13,"alist-update!"); lf[30]=C_h_intern(&lf[30],4,"eqv\077"); lf[31]=C_h_intern(&lf[31],3,"eq\077"); lf[32]=C_h_intern(&lf[32],4,"assq"); lf[33]=C_h_intern(&lf[33],4,"assv"); lf[34]=C_h_intern(&lf[34],6,"equal\077"); lf[35]=C_h_intern(&lf[35],5,"assoc"); lf[36]=C_h_intern(&lf[36],12,"alist-update"); lf[37]=C_h_intern(&lf[37],5,"error"); lf[38]=C_decode_literal(C_heaptop,"\376B\000\000\021bad argument type"); lf[39]=C_decode_literal(C_heaptop,"\376B\000\000\021bad argument type"); lf[40]=C_h_intern(&lf[40],9,"alist-ref"); lf[41]=C_decode_literal(C_heaptop,"\376B\000\000\021bad argument type"); lf[42]=C_h_intern(&lf[42],6,"rassoc"); lf[43]=C_h_intern(&lf[43],21,"reverse-string-append"); lf[44]=C_h_intern(&lf[44],11,"make-string"); lf[45]=C_h_intern(&lf[45],8,"->string"); lf[46]=C_h_intern(&lf[46],14,"symbol->string"); lf[47]=C_h_intern(&lf[47],18,"\003sysnumber->string"); lf[48]=C_h_intern(&lf[48],17,"get-output-string"); lf[49]=C_h_intern(&lf[49],7,"display"); lf[50]=C_h_intern(&lf[50],18,"open-output-string"); lf[51]=C_h_intern(&lf[51],4,"conc"); lf[52]=C_h_intern(&lf[52],13,"string-append"); lf[53]=C_h_intern(&lf[53],14,"\003syserror-hook"); lf[54]=C_h_intern(&lf[54],19,"\003syssubstring-index"); lf[55]=C_h_intern(&lf[55],15,"substring-index"); lf[56]=C_h_intern(&lf[56],22,"\003syssubstring-index-ci"); lf[57]=C_h_intern(&lf[57],18,"substring-index-ci"); lf[58]=C_h_intern(&lf[58],15,"string-compare3"); lf[59]=C_h_intern(&lf[59],18,"string-compare3-ci"); lf[60]=C_h_intern(&lf[60],15,"\003syssubstring=\077"); lf[61]=C_h_intern(&lf[61],11,"substring=\077"); lf[62]=C_h_intern(&lf[62],18,"\003syssubstring-ci=\077"); lf[63]=C_h_intern(&lf[63],14,"substring-ci=\077"); lf[64]=C_h_intern(&lf[64],12,"string-split"); lf[65]=C_decode_literal(C_heaptop,"\376B\000\000\003\011\012 "); lf[66]=C_h_intern(&lf[66],13,"\003syssubstring"); lf[67]=C_h_intern(&lf[67],18,"string-intersperse"); lf[68]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[69]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[70]=C_h_intern(&lf[70],19,"\003sysallocate-vector"); lf[71]=C_h_intern(&lf[71],16,"string-translate"); lf[72]=C_decode_literal(C_heaptop,"\376B\000\000\037invalid translation destination"); lf[73]=C_h_intern(&lf[73],15,"\003sysmake-string"); lf[74]=C_h_intern(&lf[74],16,"\003syslist->string"); lf[75]=C_h_intern(&lf[75],17,"string-translate\052"); lf[76]=C_h_intern(&lf[76],21,"\003sysfragments->string"); lf[77]=C_h_intern(&lf[77],16,"\003sysfast-reverse"); lf[78]=C_h_intern(&lf[78],11,"string-chop"); lf[79]=C_h_intern(&lf[79],12,"string-chomp"); lf[80]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[81]=C_h_intern(&lf[81],7,"sorted\077"); lf[82]=C_h_intern(&lf[82],5,"merge"); lf[83]=C_h_intern(&lf[83],6,"merge!"); lf[84]=C_h_intern(&lf[84],5,"sort!"); lf[85]=C_h_intern(&lf[85],12,"vector->list"); lf[86]=C_h_intern(&lf[86],4,"sort"); lf[87]=C_h_intern(&lf[87],12,"list->vector"); lf[88]=C_h_intern(&lf[88],6,"append"); lf[89]=C_h_intern(&lf[89],16,"topological-sort"); lf[90]=C_h_intern(&lf[90],4,"grey"); lf[91]=C_h_intern(&lf[91],3,"exn"); lf[92]=C_h_intern(&lf[92],7,"message"); lf[93]=C_h_intern(&lf[93],9,"arguments"); lf[94]=C_h_intern(&lf[94],10,"call-chain"); lf[95]=C_h_intern(&lf[95],8,"location"); lf[96]=C_decode_literal(C_heaptop,"\376B\000\000\016cycle detected"); lf[97]=C_h_intern(&lf[97],9,"condition"); lf[98]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\003\000\000\002\376\001\000\000\007runtime\376\003\000\000\002\376\001\000\000\005cycle\376\377\016"); lf[99]=C_h_intern(&lf[99],9,"\003sysabort"); lf[100]=C_h_intern(&lf[100],18,"\003sysget-call-chain"); lf[101]=C_h_intern(&lf[101],5,"black"); lf[102]=C_h_intern(&lf[102],13,"binary-search"); lf[103]=C_h_intern(&lf[103],10,"make-queue"); lf[104]=C_h_intern(&lf[104],5,"queue"); lf[105]=C_h_intern(&lf[105],6,"queue\077"); lf[106]=C_h_intern(&lf[106],12,"queue-length"); lf[107]=C_h_intern(&lf[107],12,"queue-empty\077"); lf[108]=C_h_intern(&lf[108],11,"queue-first"); lf[109]=C_decode_literal(C_heaptop,"\376B\000\000\016queue is empty"); lf[110]=C_h_intern(&lf[110],10,"queue-last"); lf[111]=C_decode_literal(C_heaptop,"\376B\000\000\016queue is empty"); lf[112]=C_h_intern(&lf[112],10,"queue-add!"); lf[113]=C_h_intern(&lf[113],13,"queue-remove!"); lf[114]=C_decode_literal(C_heaptop,"\376B\000\000\016queue is empty"); lf[115]=C_h_intern(&lf[115],11,"queue->list"); lf[116]=C_h_intern(&lf[116],11,"list->queue"); lf[117]=C_h_intern(&lf[117],16,"queue-push-back!"); lf[118]=C_h_intern(&lf[118],21,"queue-push-back-list!"); lf[119]=C_h_intern(&lf[119],17,"register-feature!"); lf[120]=C_h_intern(&lf[120],15,"data-structures"); C_register_lf2(lf,121,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1392,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* data-structures.scm:33: register-feature! */ t3=*((C_word*)lf[119]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[120]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* chop in k1390 */ static void C_ccall f_1819(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,4)))){ C_save_and_reclaim((void *)f_1819,4,av);} a=C_alloc(5); t4=C_i_check_exact_2(t3,lf[18]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1826,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(0)))){ /* data-structures.scm:157: ##sys#error */ t6=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[18]; av2[3]=lf[21]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_1826(2,av2);}}} /* k1815 in loop in flatten in k1390 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1817,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k1808 in loop in flatten in k1390 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1810,2,av);} /* data-structures.scm:151: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1784(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* scan in loop in string-split in k1390 */ 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 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_3002,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:427: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2975(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_3041,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* data-structures.scm:431: add */ t10=((C_word*)t0)[10]; f_2955(t10,t9,((C_word*)t0)[6],((C_word*)t0)[3],((C_word*)t0)[5]);} else{ /* data-structures.scm:432: loop */ t9=((C_word*)((C_word*)t0)[4])[1]; f_2975(t9,t1,t6,((C_word*)t0)[5],t6);}} else{ t5=C_fixnum_plus(t2,C_fix(1)); /* data-structures.scm:433: scan */ t11=t1; t12=t5; t1=t11; t2=t12; goto loop;}}} /* binary-search in k1390 */ static void C_ccall f_4267(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,2)))){ C_save_and_reclaim((void *)f_4267,4,av);} a=C_alloc(11); t4=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4271,a[2]=t4,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(((C_word*)t4)[1]))){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4345,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:777: list->vector */ t7=*((C_word*)lf[87]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t4)[1]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t6=t5; f_4271(t6,C_i_check_vector_2(((C_word*)t4)[1],lf[102]));}} /* string-translate* in k1390 */ static void C_ccall f_3375(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_3375,4,av);} a=C_alloc(9); t4=C_i_check_string_2(t2,lf[75]); t5=C_i_check_list_2(t3,lf[75]); 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_3387,a[2]=t7,a[3]=t2,a[4]=t9,a[5]=t3,a[6]=((C_word)li89),tmp=(C_word)a,a+=7,tmp)); /* data-structures.scm:546: collect */ t11=((C_word*)t9)[1]; f_3387(t11,t1,C_fix(0),C_fix(0),C_fix(0),C_SCHEME_END_OF_LIST);} /* k4248 in loop in topological-sort in k1390 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4250,2,av);} /* data-structures.scm:764: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4229(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* join in k1390 */ 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=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_1904,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_1908,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_1908(t6,C_u_i_car(t5));} else{ t5=t4; f_1908(t5,C_SCHEME_END_OF_LIST);}} /* k1906 in join in k1390 */ static void C_fcall f_1908(C_word t0,C_word 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_1908,2,t0,t1);} a=C_alloc(7); t2=t1; t3=C_i_check_list_2(t2,lf[22]); 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_1916,a[2]=t2,a[3]=t5,a[4]=((C_word)li41),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_1916(t7,((C_word*)t0)[2],((C_word*)t0)[3]);} /* substring-ci=? in k1390 */ static void C_ccall f_2874(C_word c,C_word *av){ C_word tmp; C_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_2874,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:400: ##sys#substring-ci=? */ t15=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t15; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t6; av2[5]=t10; av2[6]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(7,av2);}} else{ t15=C_i_cdr(t12); /* data-structures.scm:400: ##sys#substring-ci=? */ t16=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t16; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t6; av2[5]=t10; av2[6]=t14; ((C_proc)(void*)(*((C_word*)t16+1)))(7,av2);}}} /* f_3350 in string-translate in k1390 */ 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 *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_3350,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_eqp(t2,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2845 in substring-ci=? in k1390 */ static void C_fcall f_2847(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_2847,2,t0,t1);} t2=C_i_check_exact_2(((C_word*)t0)[2],lf[63]); t3=C_i_check_exact_2(((C_word*)t0)[3],lf[63]); t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_substring_compare_case_insensitive(((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop */ static void C_fcall f_2086(C_word t0,C_word 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_2086,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_2102,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)); /* data-structures.scm:209: 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_2102(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);}}} /* f_2080 in alist-update! in k1390 */ 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=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_2080,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_2086,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word)li45),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_2086(t7,t1,t3);} /* k4662 in queue-push-back-list! in k1390 */ 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 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_4664,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4667,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_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t4)){ t5=t3; f_4667(t5,C_SCHEME_END_OF_LIST);} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4695,a[2]=((C_word)li124),tmp=(C_word)a,a+=3,tmp); t6=t3; f_4667(t6,( f_4695(t2) ));}} /* loop in k1906 in join in k1390 */ static void C_fcall f_1916(C_word t0,C_word t1,C_word t2){ C_word 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(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1916,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_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t3; t5=C_slot(t2,C_fix(1)); if(C_truep(C_i_nullp(t5))){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1951,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* data-structures.scm:181: loop */ t8=t6; t9=t5; t1=t8; t2=t9; goto loop;}} else{ /* data-structures.scm:175: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[24]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[24]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}}}} /* k4665 in k4662 in queue-push-back-list! in k1390 */ static void C_fcall f_4667(C_word t0,C_word 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_4667,2,t0,t1);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(1),((C_word*)t0)[3]); t3=C_i_setslot(((C_word*)t0)[2],C_fix(2),t1); t4=C_slot(((C_word*)t0)[2],C_fix(3)); t5=C_i_length(((C_word*)t0)[4]); t6=C_fixnum_plus(t4,t5); t7=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t7; av2[1]=C_i_set_i_slot(((C_word*)t0)[2],C_fix(3),t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* loop in sorted? in k1390 */ static void C_fcall f_3682(C_word t0,C_word 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_3682,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_3706,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t6=C_i_car(t3); /* data-structures.scm:610: 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);}}} /* queue-push-back! in k1390 */ static void C_ccall f_4614(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(3,c,1)))){ C_save_and_reclaim((void *)f_4614,4,av);} a=C_alloc(3); t4=C_i_check_structure_2(t2,lf[104],lf[117]); t5=C_slot(t2,C_fix(1)); t6=C_a_i_cons(&a,2,t3,t5); t7=C_i_setslot(t2,C_fix(1),t6); t8=C_slot(t2,C_fix(2)); t9=C_eqp(C_SCHEME_END_OF_LIST,t8); t10=(C_truep(t9)?C_i_setslot(t2,C_fix(2),t6):C_SCHEME_UNDEFINED); t11=C_slot(t2,C_fix(3)); t12=C_fixnum_plus(t11,C_fix(1)); t13=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=C_i_set_i_slot(t2,C_fix(3),t12); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} /* traverse in k1390 */ static void C_fcall f_2556(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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_2556,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=C_block_size(t2); t11=t10; t12=C_fixnum_difference(t9,t11); t13=t12; t14=C_i_check_exact_2(t4,t6); t15=C_fixnum_greater_or_equal_p(t4,C_fix(0)); t16=(C_truep(t15)?C_fixnum_greater_or_equal_p(t9,t4):C_SCHEME_FALSE); if(C_truep(t16)){ t17=C_eqp(t11,C_fix(0)); if(C_truep(t17)){ t18=t1;{ C_word av2[2]; av2[0]=t18; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} else{ if(C_truep(C_fixnum_greater_or_equal_p(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|6,a[1]=(C_word)f_2598,a[2]=t13,a[3]=t19,a[4]=t5,a[5]=t11,a[6]=((C_word)li61),tmp=(C_word)a,a+=7,tmp)); t21=((C_word*)t19)[1]; f_2598(t21,t1,t4);} else{ t18=t1;{ C_word av2[2]; av2[0]=t18; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}}} else{ t17=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* data-structures.scm:323: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[53]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[53]+1); av2[1]=t1; av2[2]=t17; av2[3]=t6; av2[4]=t4; av2[5]=t9; tp(6,av2);}}} /* loop in compress in k1390 */ static void C_fcall f_1970(C_word t0,C_word t1,C_word 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: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ C_save_and_reclaim_args((void *)trf_1970,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{ if(C_truep(C_i_pairp(t2))){ if(C_truep(C_i_pairp(t3))){ if(C_truep(C_slot(t2,C_fix(0)))){ t4=C_slot(t3,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2012,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_slot(t2,C_fix(1)); t8=C_slot(t3,C_fix(1)); /* data-structures.scm:194: loop */ t10=t6; t11=t7; t12=t8; t1=t10; t2=t11; t3=t12; goto loop;} else{ t4=C_slot(t2,C_fix(1)); t5=C_slot(t3,C_fix(1)); /* data-structures.scm:195: loop */ t10=t1; t11=t4; t12=t5; t1=t10; t2=t11; t3=t12; goto loop;}} else{ /* data-structures.scm:192: ##sys#signal-hook */ t4=*((C_word*)lf[27]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t1; av2[2]=lf[28]; av2[3]=lf[25]; av2[4]=((C_word*)t0)[3]; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} else{ /* data-structures.scm:190: ##sys#signal-hook */ t4=*((C_word*)lf[27]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t1; av2[2]=lf[28]; av2[3]=lf[25]; av2[4]=((C_word*)t0)[3]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}}} /* k2518 in conc in k1390 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2520,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[52]+1); av2[3]=t1; C_apply(4,av2);}} /* map-loop362 in conc in k1390 */ static void C_fcall f_2522(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_2522,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_2547,a[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:301: g368 */ 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);}}} /* alist-update! in k1390 */ 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=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 +10,c,4)))){ C_save_and_reclaim((void*)f_2041,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[30]+1):C_i_car(t5)); t8=t7; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2048,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[31]+1),t8); if(C_truep(t10)){ t11=t9; f_2048(t11,*((C_word*)lf[32]+1));} else{ t11=C_eqp(*((C_word*)lf[30]+1),t8); if(C_truep(t11)){ t12=t9; f_2048(t12,*((C_word*)lf[33]+1));} else{ t12=C_eqp(*((C_word*)lf[34]+1),t8); t13=t9; f_2048(t13,(C_truep(t12)?*((C_word*)lf[35]+1):(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2080,a[2]=t8,a[3]=((C_word)li46),tmp=(C_word)a,a+=4,tmp)));}}} /* k2046 in alist-update! in k1390 */ static void C_fcall f_2048(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_2048,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2051,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* data-structures.scm:212: 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);}} /* k1608 in loop */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1610,2,av);} if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* data-structures.scm:94: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1591(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k2049 in k2046 in alist-update! in k1390 */ static void C_ccall f_2051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2051,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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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);}}} /* k1949 in loop in k1906 in join in k1390 */ static void C_ccall f_1951(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1951,2,av);} /* data-structures.scm:181: ##sys#append */ t2=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* doloop725 in sorted? in k1390 */ static void C_fcall f_3633(C_word t0,C_word t1,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_3633,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_nequalp(t2,((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3643,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_3643(2,av2);}} else{ t5=C_i_vector_ref(((C_word*)t0)[4],t2); t6=C_a_i_minus(&a,2,t2,C_fix(1)); t7=C_i_vector_ref(((C_word*)t0)[4],t6); /* data-structures.scm:604: less? */ t8=((C_word*)t0)[5];{ C_word av2[4]; av2[0]=t8; av2[1]=t4; av2[2]=t5; av2[3]=t7; ((C_proc)C_fast_retrieve_proc(t8))(4,av2);}}} /* k2545 in map-loop362 in conc in k1390 */ static void C_ccall f_2547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2547,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_2522(t6,((C_word*)t0)[5],t5);} /* queue-push-back-list! in k1390 */ static void C_ccall f_4654(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,3)))){ C_save_and_reclaim((void *)f_4654,4,av);} a=C_alloc(5); t4=C_i_check_structure_2(t2,lf[104],lf[118]); t5=C_i_check_list_2(t3,lf[118]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4664,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); /* data-structures.scm:898: append */ t8=*((C_word*)lf[88]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; av2[2]=t3; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* f_1631 in each in k1390 */ static void C_ccall f_1631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1631,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* compress in k1390 */ static void C_ccall f_1961(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(7,c,4)))){ C_save_and_reclaim((void *)f_1961,4,av);} a=C_alloc(7); t4=lf[26]; t5=C_i_check_list_2(t3,lf[25]); 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_1970,a[2]=t7,a[3]=t4,a[4]=((C_word)li43),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_1970(t9,t1,t2,t3);} /* sort in k1390 */ 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=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_4055,4,av);} a=C_alloc(7); if(C_truep(C_i_vectorp(t2))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4069,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4073,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:723: vector->list */ t6=*((C_word*)lf[85]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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_4080,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:724: append */ t5=*((C_word*)lf[88]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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);}}} /* loop in traverse in k1390 */ static void C_fcall f_2598(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_2598,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_2611,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* data-structures.scm:321: 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);}}} /* sorted? in k1390 */ 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=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_3606,4,av);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ 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_3633,a[2]=t6,a[3]=t8,a[4]=t2,a[5]=t3,a[6]=((C_word)li94),tmp=(C_word)a,a+=7,tmp)); t10=((C_word*)t8)[1]; f_3633(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_3682,a[2]=t8,a[3]=t3,a[4]=((C_word)li95),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_3682(t10,t1,t4,t6);}}} /* doloop930 in k4662 in queue-push-back-list! in k1390 */ static C_word C_fcall f_4695(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_slot(t1,C_fix(1)); t3=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t3)){ t4=t1; return(t4);} else{ t4=C_slot(t1,C_fix(1)); t6=t4; t1=t6; goto loop;}} /* doloop796 in k4019 in k4012 in sort! in k1390 */ static void C_fcall f_4023(C_word t0,C_word t1,C_word 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: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_4023,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_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=C_a_i_plus(&a,2,t3,C_fix(1)); t10=t1; t11=t7; t12=t8; t1=t10; t2=t11; t3=t12; goto loop;}} /* k4019 in k4012 in sort! in k1390 */ 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,4)))){ C_save_and_reclaim((void *)f_4021,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_4023,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li102),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_4023(t5,((C_word*)t0)[3],t1,C_fix(0));} /* k4191 in walk in k4149 in k4087 in visit in topological-sort in k1390 */ 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);} /* data-structures.scm:754: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4157(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k4169 in walk in k4149 in k4087 in visit in topological-sort in k1390 */ static void C_ccall f_4171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_4171,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_cons(&a,2,t1,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k4012 in sort! in k1390 */ 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 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_4014,2,av);} a=C_alloc(4); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4021,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:707: step */ t4=((C_word*)((C_word*)t0)[5])[1]; f_3930(t4,t3,((C_word*)t0)[6]);} /* queue? in k1390 */ static void C_ccall f_4356(C_word c,C_word *av){ C_word tmp; C_word 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_4356,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_structurep(t2,lf[104]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* make-queue in k1390 */ static void C_ccall f_4350(C_word c,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(5,c,1)))){ C_save_and_reclaim((void *)f_4350,2,av);} a=C_alloc(5); t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_record4(&a,4,lf[104],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_fix(0)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* substring-index-ci in k1390 */ 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=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_2663,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:345: ##sys#substring-index-ci */ t5=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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:345: ##sys#substring-index-ci */ t6=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* ##sys#substring-index-ci in k1390 */ static void C_ccall f_2639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2639,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2645,a[2]=t2,a[3]=t3,a[4]=((C_word)li65),tmp=(C_word)a,a+=5,tmp); /* data-structures.scm:336: traverse */ f_2556(t1,t2,t3,t4,t5,lf[57]);} /* a2635 in substring-index in k1390 */ static void C_ccall f_2636(C_word c,C_word *av){ C_word tmp; C_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_2636,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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 in k1390 */ 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=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_2630,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2636,a[2]=t2,a[3]=t3,a[4]=((C_word)li63),tmp=(C_word)a,a+=5,tmp); /* data-structures.scm:330: traverse */ f_2556(t1,t2,t3,t4,t5,lf[55]);} /* a2644 in substring-index-ci in k1390 */ 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=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_2645,4,av);} t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* substring-index in k1390 */ 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=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_2648,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:342: ##sys#substring-index */ t5=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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:342: ##sys#substring-index */ t6=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k2010 in loop in compress in k1390 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2012,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k4124 in k4136 in k4087 in visit in topological-sort in k1390 */ static void C_ccall f_4126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_4126,2,av);} a=C_alloc(31); t2=C_a_i_cons(&a,2,lf[91],lf[95]); t3=C_a_i_list(&a,8,((C_word*)t0)[2],lf[96],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,t2,lf[89]); t4=C_a_i_record3(&a,3,lf[97],lf[98],t3); /* data-structures.scm:736: ##sys#abort */ t5=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#substring-ci=? in k1390 */ static void C_ccall f_2837(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_2837,7,av);} a=C_alloc(7); t7=C_i_check_string_2(t2,lf[63]); t8=C_i_check_string_2(t3,lf[63]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2847,a[2]=t4,a[3]=t5,a[4]=t1,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp); if(C_truep(t6)){ t10=t9; f_2847(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_2847(t14,C_i_fixnum_min(t11,t13));}} /* loop in o in k1390 */ static void C_fcall f_1556(C_word t0,C_word t1,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_1556,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_1570,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word)li18),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);}}} /* loop2 in k3094 in loop1 in string-intersperse in k1390 */ static C_word C_fcall f_3101(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_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;}} /* string-compare3 in k1390 */ 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=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_2678,4,av);} t4=C_i_check_string_2(t2,lf[58]); t5=C_i_check_string_2(t3,lf[58]); 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; /* Re-use our own argvector */ av2[0]=t13; av2[1]=(C_truep(t12)?t8:t11); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} /* queue-empty? in k1390 */ static void C_ccall f_4371(C_word c,C_word *av){ C_word tmp; C_word 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_4371,3,av);} t3=C_i_check_structure_2(t2,lf[104],lf[107]); t4=C_slot(t2,C_fix(1)); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_eqp(C_SCHEME_END_OF_LIST,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* o in k1390 */ 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; 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_1544,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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=*((C_word*)lf[0]+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_1556,a[2]=t4,a[3]=((C_word)li19),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_1556(t6,t1,t2);}} /* instring in string-translate in k1390 */ static void C_fcall f_3173(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_3173,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_3178,a[2]=t4,a[3]=t2,a[4]=((C_word)li83),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* string-translate in k1390 */ 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=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_3170,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_3173,a[2]=((C_word)li84),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3208,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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3350,a[2]=t3,a[3]=((C_word)li86),tmp=(C_word)a,a+=4,tmp); f_3208(2,av2);}} else{ if(C_truep(C_i_pairp(t3))){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3367,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* list->string */ t8=*((C_word*)lf[74]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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[71]); /* data-structures.scm:484: instring */ f_3173(t6,t3);}}} /* k1531 in a1524 */ static void C_ccall f_1533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1533,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3484 in loop in collect in string-translate* in k1390 */ static void C_ccall f_3486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3486,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3]; f_3460(t4,t3);} /* loop */ static C_word C_fcall f_3184(C_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;}}} /* queue-first in k1390 */ 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=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(4,c,4)))){ C_save_and_reclaim((void *)f_4384,3,av);} a=C_alloc(4); t3=C_i_check_structure_2(t2,lf[104],lf[108]); t4=C_slot(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4394,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_eqp(C_SCHEME_END_OF_LIST,t5); if(C_truep(t7)){ /* data-structures.scm:822: ##sys#error */ t8=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t6; av2[2]=lf[108]; av2[3]=lf[109]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_slot(t5,C_fix(0)); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* f_3178 in instring in string-translate in k1390 */ static void C_ccall f_3178(C_word c,C_word *av){ C_word tmp; C_word 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_3178,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3184,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li82),tmp=(C_word)a,a+=6,tmp); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=( f_3184(t3,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4149 in k4087 in visit in topological-sort in k1390 */ 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 t4; C_word 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_4151,2,av);} a=C_alloc(20); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],lf[90]); 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_4157,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)li105),tmp=(C_word)a,a+=9,tmp)); t12=((C_word*)t10)[1]; f_4157(t12,((C_word*)t0)[8],t1,t8);} /* k3458 in loop in collect in string-translate* in k1390 */ static void C_fcall f_3460(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_3460,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:541: collect */ t5=((C_word*)((C_word*)t0)[5])[1]; f_3387(t5,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[7],t3,t4);} /* walk in k4149 in k4087 in visit in topological-sort in k1390 */ static void C_fcall f_4157(C_word t0,C_word t1,C_word 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_4157,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_4171,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:751: alist-update! */ t6=*((C_word*)lf[29]+1);{ C_word av2[6]; av2[0]=t6; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=lf[101]; 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_4193,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:755: visit */ t9=((C_word*)((C_word*)t0)[6])[1]; f_4085(t9,t7,((C_word*)t0)[7],t4,C_SCHEME_FALSE,t8,t3);}} /* identity in k1390 */ static void C_ccall f_1394(C_word c,C_word *av){ C_word tmp; C_word 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_1394,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1390 */ static void C_ccall f_1392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(188,c,7)))){ C_save_and_reclaim((void *)f_1392,2,av);} a=C_alloc(188); t2=C_mutate2((C_word*)lf[0]+1 /* (set! identity ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1394,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[1]+1 /* (set! conjoin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1397,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[2]+1 /* (set! disjoin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1430,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[3]+1 /* (set! constantly ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1467,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[4]+1 /* (set! flip ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1488,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[5]+1 /* (set! complement ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1496,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[6]+1 /* (set! compose ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1508,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[8]+1 /* (set! o ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1544,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[9]+1 /* (set! list-of? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1583,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[10]+1 /* (set! each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1623,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[12]+1 /* (set! any? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1679,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[13]+1 /* (set! atom? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1682,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[14]+1 /* (set! tail? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1685,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[15]+1 /* (set! intersperse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1713,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[16]+1 /* (set! butlast ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1746,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[17]+1 /* (set! flatten ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1778,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2((C_word*)lf[18]+1 /* (set! chop ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1819,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2((C_word*)lf[22]+1 /* (set! join ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1904,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2((C_word*)lf[25]+1 /* (set! compress ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1961,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate2((C_word*)lf[29]+1 /* (set! alist-update! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2041,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate2((C_word*)lf[36]+1 /* (set! alist-update ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2127,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate2((C_word*)lf[40]+1 /* (set! alist-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2231,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate2((C_word*)lf[42]+1 /* (set! rassoc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2343,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate2((C_word*)lf[43]+1 /* (set! reverse-string-append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2391,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate2((C_word*)lf[45]+1 /* (set! ->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2464,a[2]=((C_word)li58),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate2((C_word*)lf[51]+1 /* (set! conc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2509,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp)); t28=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2556,a[2]=((C_word)li62),tmp=(C_word)a,a+=3,tmp); t29=C_mutate2((C_word*)lf[54]+1 /* (set! ##sys#substring-index ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2630,a[2]=t28,a[3]=((C_word)li64),tmp=(C_word)a,a+=4,tmp)); t30=C_mutate2((C_word*)lf[56]+1 /* (set! ##sys#substring-index-ci ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2639,a[2]=t28,a[3]=((C_word)li66),tmp=(C_word)a,a+=4,tmp)); t31=C_mutate2((C_word*)lf[55]+1 /* (set! substring-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2648,a[2]=((C_word)li67),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate2((C_word*)lf[57]+1 /* (set! substring-index-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2663,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate2((C_word*)lf[58]+1 /* (set! string-compare3 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2678,a[2]=((C_word)li69),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate2((C_word*)lf[59]+1 /* (set! string-compare3-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2709,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate2((C_word*)lf[60]+1 /* (set! ##sys#substring=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2740,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate2((C_word*)lf[61]+1 /* (set! substring=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2777,a[2]=((C_word)li72),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate2((C_word*)lf[62]+1 /* (set! ##sys#substring-ci=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2837,a[2]=((C_word)li73),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate2((C_word*)lf[63]+1 /* (set! substring-ci=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2874,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate2((C_word*)lf[64]+1 /* (set! string-split ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2934,a[2]=((C_word)li78),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate2((C_word*)lf[67]+1 /* (set! string-intersperse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3068,a[2]=((C_word)li81),tmp=(C_word)a,a+=3,tmp)); t41=C_mutate2((C_word*)lf[71]+1 /* (set! string-translate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3170,a[2]=((C_word)li87),tmp=(C_word)a,a+=3,tmp)); t42=C_mutate2((C_word*)lf[75]+1 /* (set! string-translate* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3375,a[2]=((C_word)li90),tmp=(C_word)a,a+=3,tmp)); t43=C_mutate2((C_word*)lf[78]+1 /* (set! string-chop ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3503,a[2]=((C_word)li92),tmp=(C_word)a,a+=3,tmp)); t44=C_mutate2((C_word*)lf[79]+1 /* (set! string-chomp ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3567,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp)); t45=C_mutate2((C_word*)lf[81]+1 /* (set! sorted? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3606,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp)); t46=C_mutate2((C_word*)lf[82]+1 /* (set! merge ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3712,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp)); t47=C_mutate2((C_word*)lf[83]+1 /* (set! merge! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3803,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp)); t48=C_mutate2((C_word*)lf[84]+1 /* (set! sort! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3927,a[2]=((C_word)li103),tmp=(C_word)a,a+=3,tmp)); t49=C_mutate2((C_word*)lf[86]+1 /* (set! sort ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4055,a[2]=((C_word)li104),tmp=(C_word)a,a+=3,tmp)); t50=C_mutate2((C_word*)lf[89]+1 /* (set! topological-sort ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4082,a[2]=((C_word)li108),tmp=(C_word)a,a+=3,tmp)); t51=C_mutate2((C_word*)lf[102]+1 /* (set! binary-search ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4267,a[2]=((C_word)li110),tmp=(C_word)a,a+=3,tmp)); t52=C_mutate2((C_word*)lf[103]+1 /* (set! make-queue ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4350,a[2]=((C_word)li111),tmp=(C_word)a,a+=3,tmp)); t53=C_mutate2((C_word*)lf[105]+1 /* (set! queue? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4356,a[2]=((C_word)li112),tmp=(C_word)a,a+=3,tmp)); t54=C_mutate2((C_word*)lf[106]+1 /* (set! queue-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4362,a[2]=((C_word)li113),tmp=(C_word)a,a+=3,tmp)); t55=C_mutate2((C_word*)lf[107]+1 /* (set! queue-empty? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4371,a[2]=((C_word)li114),tmp=(C_word)a,a+=3,tmp)); t56=C_mutate2((C_word*)lf[108]+1 /* (set! queue-first ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4384,a[2]=((C_word)li115),tmp=(C_word)a,a+=3,tmp)); t57=C_mutate2((C_word*)lf[110]+1 /* (set! queue-last ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4405,a[2]=((C_word)li116),tmp=(C_word)a,a+=3,tmp)); t58=C_mutate2((C_word*)lf[112]+1 /* (set! queue-add! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4426,a[2]=((C_word)li117),tmp=(C_word)a,a+=3,tmp)); t59=C_mutate2((C_word*)lf[113]+1 /* (set! queue-remove! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4469,a[2]=((C_word)li118),tmp=(C_word)a,a+=3,tmp)); t60=C_mutate2((C_word*)lf[115]+1 /* (set! queue->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4516,a[2]=((C_word)li120),tmp=(C_word)a,a+=3,tmp)); t61=C_mutate2((C_word*)lf[116]+1 /* (set! list->queue ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4556,a[2]=((C_word)li122),tmp=(C_word)a,a+=3,tmp)); t62=C_mutate2((C_word*)lf[117]+1 /* (set! queue-push-back! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4614,a[2]=((C_word)li123),tmp=(C_word)a,a+=3,tmp)); t63=C_mutate2((C_word*)lf[118]+1 /* (set! queue-push-back-list! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4654,a[2]=((C_word)li125),tmp=(C_word)a,a+=3,tmp)); t64=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t64; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t64+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[218] = { {"f_1397:data_2dstructures_2escm",(void*)f_1397}, {"f_1399:data_2dstructures_2escm",(void*)f_1399}, {"f_3795:data_2dstructures_2escm",(void*)f_3795}, {"f_1834:data_2dstructures_2escm",(void*)f_1834}, {"f_1578:data_2dstructures_2escm",(void*)f_1578}, {"f_4394:data_2dstructures_2escm",(void*)f_4394}, {"f_1570:data_2dstructures_2escm",(void*)f_1570}, {"f_4138:data_2dstructures_2escm",(void*)f_4138}, {"f_1826:data_2dstructures_2escm",(void*)f_1826}, {"f_3211:data_2dstructures_2escm",(void*)f_3211}, {"f_3978:data_2dstructures_2escm",(void*)f_3978}, {"f_3712:data_2dstructures_2escm",(void*)f_3712}, {"f_2509:data_2dstructures_2escm",(void*)f_2509}, {"f_3208:data_2dstructures_2escm",(void*)f_3208}, {"f_2501:data_2dstructures_2escm",(void*)f_2501}, {"f_2504:data_2dstructures_2escm",(void*)f_2504}, {"f_3706:data_2dstructures_2escm",(void*)f_3706}, {"f_2408:data_2dstructures_2escm",(void*)f_2408}, {"f_4362:data_2dstructures_2escm",(void*)f_4362}, {"f_1591:data_2dstructures_2escm",(void*)f_1591}, {"f_3769:data_2dstructures_2escm",(void*)f_3769}, {"f_2611:data_2dstructures_2escm",(void*)f_2611}, {"f_3247:data_2dstructures_2escm",(void*)f_3247}, {"f_1581:data_2dstructures_2escm",(void*)f_1581}, {"f_1583:data_2dstructures_2escm",(void*)f_1583}, {"f_1585:data_2dstructures_2escm",(void*)f_1585}, {"f_3927:data_2dstructures_2escm",(void*)f_3927}, {"f_4345:data_2dstructures_2escm",(void*)f_4345}, {"f_1713:data_2dstructures_2escm",(void*)f_1713}, {"f_1719:data_2dstructures_2escm",(void*)f_1719}, {"f_4577:data_2dstructures_2escm",(void*)f_4577}, {"f_3228:data_2dstructures_2escm",(void*)f_3228}, {"f_3223:data_2dstructures_2escm",(void*)f_3223}, {"f_3902:data_2dstructures_2escm",(void*)f_3902}, {"f_1746:data_2dstructures_2escm",(void*)f_1746}, {"f_1744:data_2dstructures_2escm",(void*)f_1744}, {"f_4567:data_2dstructures_2escm",(void*)f_4567}, {"f_4085:data_2dstructures_2escm",(void*)f_4085}, {"f_4082:data_2dstructures_2escm",(void*)f_4082}, {"f_4089:data_2dstructures_2escm",(void*)f_4089}, {"f_4080:data_2dstructures_2escm",(void*)f_4080}, {"f_2417:data_2dstructures_2escm",(void*)f_2417}, {"f_1776:data_2dstructures_2escm",(void*)f_1776}, {"f_1778:data_2dstructures_2escm",(void*)f_1778}, {"f_4556:data_2dstructures_2escm",(void*)f_4556}, {"f_4073:data_2dstructures_2escm",(void*)f_4073}, {"f_4069:data_2dstructures_2escm",(void*)f_4069}, {"f_3749:data_2dstructures_2escm",(void*)f_3749}, {"f_3742:data_2dstructures_2escm",(void*)f_3742}, {"f_1755:data_2dstructures_2escm",(void*)f_1755}, {"f_3940:data_2dstructures_2escm",(void*)f_3940}, {"f_3949:data_2dstructures_2escm",(void*)f_3949}, {"f_3943:data_2dstructures_2escm",(void*)f_3943}, {"f_1478:data_2dstructures_2escm",(void*)f_1478}, {"f_3930:data_2dstructures_2escm",(void*)f_3930}, {"f_4436:data_2dstructures_2escm",(void*)f_4436}, {"f_1496:data_2dstructures_2escm",(void*)f_1496}, {"f_1490:data_2dstructures_2escm",(void*)f_1490}, {"f_4587:data_2dstructures_2escm",(void*)f_4587}, {"f_1498:data_2dstructures_2escm",(void*)f_1498}, {"f_1623:data_2dstructures_2escm",(void*)f_1623}, {"f_1480:data_2dstructures_2escm",(void*)f_1480}, {"f_2127:data_2dstructures_2escm",(void*)f_2127}, {"f_1488:data_2dstructures_2escm",(void*)f_1488}, {"f_1651:data_2dstructures_2escm",(void*)f_1651}, {"f_1670:data_2dstructures_2escm",(void*)f_1670}, {"f_1645:data_2dstructures_2escm",(void*)f_1645}, {"f_2374:data_2dstructures_2escm",(void*)f_2374}, {"f_2934:data_2dstructures_2escm",(void*)f_2934}, {"f_1679:data_2dstructures_2escm",(void*)f_1679}, {"f_3643:data_2dstructures_2escm",(void*)f_3643}, {"f_2391:data_2dstructures_2escm",(void*)f_2391}, {"f_2394:data_2dstructures_2escm",(void*)f_2394}, {"f_1432:data_2dstructures_2escm",(void*)f_1432}, {"f_1438:data_2dstructures_2escm",(void*)f_1438}, {"f_3538:data_2dstructures_2escm",(void*)f_3538}, {"f_1430:data_2dstructures_2escm",(void*)f_1430}, {"f_1784:data_2dstructures_2escm",(void*)f_1784}, {"f_1421:data_2dstructures_2escm",(void*)f_1421}, {"f_2464:data_2dstructures_2escm",(void*)f_2464}, {"f_3881:data_2dstructures_2escm",(void*)f_3881}, {"f_2102:data_2dstructures_2escm",(void*)f_2102}, {"f_3884:data_2dstructures_2escm",(void*)f_3884}, {"f_1451:data_2dstructures_2escm",(void*)f_1451}, {"f_2343:data_2dstructures_2escm",(void*)f_2343}, {"f_2199:data_2dstructures_2escm",(void*)f_2199}, {"f_2350:data_2dstructures_2escm",(void*)f_2350}, {"f_2355:data_2dstructures_2escm",(void*)f_2355}, {"f_3553:data_2dstructures_2escm",(void*)f_3553}, {"f_3549:data_2dstructures_2escm",(void*)f_3549}, {"f_2303:data_2dstructures_2escm",(void*)f_2303}, {"f_1405:data_2dstructures_2escm",(void*)f_1405}, {"f_3567:data_2dstructures_2escm",(void*)f_3567}, {"f_1525:data_2dstructures_2escm",(void*)f_1525}, {"f_4529:data_2dstructures_2escm",(void*)f_4529}, {"f_3813:data_2dstructures_2escm",(void*)f_3813}, {"f_1697:data_2dstructures_2escm",(void*)f_1697}, {"f_3518:data_2dstructures_2escm",(void*)f_3518}, {"f_1519:data_2dstructures_2escm",(void*)f_1519}, {"f_4516:data_2dstructures_2escm",(void*)f_4516}, {"f_1511:data_2dstructures_2escm",(void*)f_1511}, {"f_2177:data_2dstructures_2escm",(void*)f_2177}, {"f_3803:data_2dstructures_2escm",(void*)f_3803}, {"f_3806:data_2dstructures_2escm",(void*)f_3806}, {"f_1682:data_2dstructures_2escm",(void*)f_1682}, {"f_1685:data_2dstructures_2escm",(void*)f_1685}, {"f_2136:data_2dstructures_2escm",(void*)f_2136}, {"f_3503:data_2dstructures_2escm",(void*)f_3503}, {"f_1506:data_2dstructures_2escm",(void*)f_1506}, {"f_1508:data_2dstructures_2escm",(void*)f_1508}, {"f_1467:data_2dstructures_2escm",(void*)f_1467}, {"f_2970:data_2dstructures_2escm",(void*)f_2970}, {"f_2250:data_2dstructures_2escm",(void*)f_2250}, {"f_2975:data_2dstructures_2escm",(void*)f_2975}, {"f_4415:data_2dstructures_2escm",(void*)f_4415}, {"f_4295:data_2dstructures_2escm",(void*)f_4295}, {"f_4405:data_2dstructures_2escm",(void*)f_4405}, {"f_3420:data_2dstructures_2escm",(void*)f_3420}, {"f_2955:data_2dstructures_2escm",(void*)f_2955}, {"f_4285:data_2dstructures_2escm",(void*)f_4285}, {"f_2985:data_2dstructures_2escm",(void*)f_2985}, {"f_4271:data_2dstructures_2escm",(void*)f_4271}, {"f_4469:data_2dstructures_2escm",(void*)f_4469}, {"f_3401:data_2dstructures_2escm",(void*)f_3401}, {"f_2740:data_2dstructures_2escm",(void*)f_2740}, {"f_3086:data_2dstructures_2escm",(void*)f_3086}, {"f_2272:data_2dstructures_2escm",(void*)f_2272}, {"f_2278:data_2dstructures_2escm",(void*)f_2278}, {"f_2750:data_2dstructures_2escm",(void*)f_2750}, {"f_3096:data_2dstructures_2escm",(void*)f_3096}, {"f_4600:data_2dstructures_2escm",(void*)f_4600}, {"f_3415:data_2dstructures_2escm",(void*)f_3415}, {"f_3068:data_2dstructures_2escm",(void*)f_3068}, {"f_1855:data_2dstructures_2escm",(void*)f_1855}, {"f_4426:data_2dstructures_2escm",(void*)f_4426}, {"f_2777:data_2dstructures_2escm",(void*)f_2777}, {"f_3041:data_2dstructures_2escm",(void*)f_3041}, {"f_4229:data_2dstructures_2escm",(void*)f_4229}, {"f_3387:data_2dstructures_2escm",(void*)f_3387}, {"f_2709:data_2dstructures_2escm",(void*)f_2709}, {"f_2231:data_2dstructures_2escm",(void*)f_2231}, {"f_1873:data_2dstructures_2escm",(void*)f_1873}, {"f_2247:data_2dstructures_2escm",(void*)f_2247}, {"f_4479:data_2dstructures_2escm",(void*)f_4479}, {"f_1869:data_2dstructures_2escm",(void*)f_1869}, {"f_3367:data_2dstructures_2escm",(void*)f_3367}, {"toplevel:data_2dstructures_2escm",(void*)C_data_2dstructures_toplevel}, {"f_1819:data_2dstructures_2escm",(void*)f_1819}, {"f_1817:data_2dstructures_2escm",(void*)f_1817}, {"f_1810:data_2dstructures_2escm",(void*)f_1810}, {"f_3002:data_2dstructures_2escm",(void*)f_3002}, {"f_4267:data_2dstructures_2escm",(void*)f_4267}, {"f_3375:data_2dstructures_2escm",(void*)f_3375}, {"f_4250:data_2dstructures_2escm",(void*)f_4250}, {"f_1904:data_2dstructures_2escm",(void*)f_1904}, {"f_1908:data_2dstructures_2escm",(void*)f_1908}, {"f_2874:data_2dstructures_2escm",(void*)f_2874}, {"f_3350:data_2dstructures_2escm",(void*)f_3350}, {"f_2847:data_2dstructures_2escm",(void*)f_2847}, {"f_2086:data_2dstructures_2escm",(void*)f_2086}, {"f_2080:data_2dstructures_2escm",(void*)f_2080}, {"f_4664:data_2dstructures_2escm",(void*)f_4664}, {"f_1916:data_2dstructures_2escm",(void*)f_1916}, {"f_4667:data_2dstructures_2escm",(void*)f_4667}, {"f_3682:data_2dstructures_2escm",(void*)f_3682}, {"f_4614:data_2dstructures_2escm",(void*)f_4614}, {"f_2556:data_2dstructures_2escm",(void*)f_2556}, {"f_1970:data_2dstructures_2escm",(void*)f_1970}, {"f_2520:data_2dstructures_2escm",(void*)f_2520}, {"f_2522:data_2dstructures_2escm",(void*)f_2522}, {"f_2041:data_2dstructures_2escm",(void*)f_2041}, {"f_2048:data_2dstructures_2escm",(void*)f_2048}, {"f_1610:data_2dstructures_2escm",(void*)f_1610}, {"f_2051:data_2dstructures_2escm",(void*)f_2051}, {"f_1951:data_2dstructures_2escm",(void*)f_1951}, {"f_3633:data_2dstructures_2escm",(void*)f_3633}, {"f_2547:data_2dstructures_2escm",(void*)f_2547}, {"f_4654:data_2dstructures_2escm",(void*)f_4654}, {"f_1631:data_2dstructures_2escm",(void*)f_1631}, {"f_1961:data_2dstructures_2escm",(void*)f_1961}, {"f_4055:data_2dstructures_2escm",(void*)f_4055}, {"f_2598:data_2dstructures_2escm",(void*)f_2598}, {"f_3606:data_2dstructures_2escm",(void*)f_3606}, {"f_4695:data_2dstructures_2escm",(void*)f_4695}, {"f_4023:data_2dstructures_2escm",(void*)f_4023}, {"f_4021:data_2dstructures_2escm",(void*)f_4021}, {"f_4193:data_2dstructures_2escm",(void*)f_4193}, {"f_4171:data_2dstructures_2escm",(void*)f_4171}, {"f_4014:data_2dstructures_2escm",(void*)f_4014}, {"f_4356:data_2dstructures_2escm",(void*)f_4356}, {"f_4350:data_2dstructures_2escm",(void*)f_4350}, {"f_2663:data_2dstructures_2escm",(void*)f_2663}, {"f_2639:data_2dstructures_2escm",(void*)f_2639}, {"f_2636:data_2dstructures_2escm",(void*)f_2636}, {"f_2630:data_2dstructures_2escm",(void*)f_2630}, {"f_2645:data_2dstructures_2escm",(void*)f_2645}, {"f_2648:data_2dstructures_2escm",(void*)f_2648}, {"f_2012:data_2dstructures_2escm",(void*)f_2012}, {"f_4126:data_2dstructures_2escm",(void*)f_4126}, {"f_2837:data_2dstructures_2escm",(void*)f_2837}, {"f_1556:data_2dstructures_2escm",(void*)f_1556}, {"f_3101:data_2dstructures_2escm",(void*)f_3101}, {"f_2678:data_2dstructures_2escm",(void*)f_2678}, {"f_4371:data_2dstructures_2escm",(void*)f_4371}, {"f_1544:data_2dstructures_2escm",(void*)f_1544}, {"f_3173:data_2dstructures_2escm",(void*)f_3173}, {"f_3170:data_2dstructures_2escm",(void*)f_3170}, {"f_1533:data_2dstructures_2escm",(void*)f_1533}, {"f_3486:data_2dstructures_2escm",(void*)f_3486}, {"f_3184:data_2dstructures_2escm",(void*)f_3184}, {"f_4384:data_2dstructures_2escm",(void*)f_4384}, {"f_3178:data_2dstructures_2escm",(void*)f_3178}, {"f_4151:data_2dstructures_2escm",(void*)f_4151}, {"f_3460:data_2dstructures_2escm",(void*)f_3460}, {"f_4157:data_2dstructures_2escm",(void*)f_4157}, {"f_1394:data_2dstructures_2escm",(void*)f_1394}, {"f_1392:data_2dstructures_2escm",(void*)f_1392}, {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| map 1 o|eliminated procedure checks: 113 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|specializations: o| 1 (##sys#length list) o| 1 (cdar (pair pair *)) o| 2 (eqv? * (not float)) o| 1 (set-car! pair *) o| 1 (cddr (pair * pair)) o| 4 (set-cdr! pair *) o| 1 (<= fixnum fixnum) o| 1 (vector-length vector) o| 1 (make-string fixnum) o| 1 (##sys#check-list (or pair list) *) o| 23 (cdr pair) o| 5 (car pair) o| 2 (length list) (o e)|safe calls: 465 o|Removed `not' forms: 11 o|inlining procedure: k1410 o|inlining procedure: k1410 o|contracted procedure: k1443 o|inlining procedure: k1440 o|inlining procedure: k1440 o|inlining procedure: k1469 o|inlining procedure: k1469 o|inlining procedure: k1513 o|inlining procedure: k1513 o|inlining procedure: k1534 o|propagated global variable: r15354729 values o|inlining procedure: k1534 o|inlining procedure: k1546 o|propagated global variable: r15474731 identity o|inlining procedure: k1546 o|inlining procedure: k1564 o|inlining procedure: k1564 o|inlining procedure: k1593 o|inlining procedure: k1593 o|inlining procedure: k1605 o|inlining procedure: k1605 o|inlining procedure: k1625 o|inlining procedure: k1625 o|inlining procedure: k1659 o|inlining procedure: k1659 o|inlining procedure: k1690 o|inlining procedure: k1690 o|inlining procedure: k1699 o|inlining procedure: k1699 o|inlining procedure: k1721 o|inlining procedure: k1721 o|inlining procedure: k1760 o|inlining procedure: k1760 o|inlining procedure: k1786 o|inlining procedure: k1786 o|inlining procedure: k1836 o|inlining procedure: k1836 o|inlining procedure: k1857 o|inlining procedure: k1857 o|inlining procedure: k1918 o|inlining procedure: k1918 o|contracted procedure: k1927 o|inlining procedure: k1939 o|inlining procedure: k1939 o|inlining procedure: k1972 o|inlining procedure: k1972 o|contracted procedure: k1981 o|contracted procedure: k1990 o|inlining procedure: k1987 o|inlining procedure: k1987 o|inlining procedure: k2052 o|inlining procedure: k2052 o|inlining procedure: k2068 o|propagated global variable: r20694767 assv o|inlining procedure: k2068 o|inlining procedure: k2088 o|inlining procedure: k2088 o|inlining procedure: k2138 o|inlining procedure: k2138 o|contracted procedure: k2154 o|contracted procedure: k2166 o|inlining procedure: k2163 o|inlining procedure: k2163 o|inlining procedure: k2251 o|inlining procedure: k2251 o|inlining procedure: k2260 o|propagated global variable: r22614777 assv o|inlining procedure: k2260 o|inlining procedure: k2280 o|inlining procedure: k2280 o|inlining procedure: k2298 o|inlining procedure: k2298 o|inlining procedure: k2357 o|inlining procedure: k2357 o|inlining procedure: k2396 o|inlining procedure: k2419 o|inlining procedure: k2419 o|inlining procedure: k2396 o|inlining procedure: k2466 o|inlining procedure: k2466 o|inlining procedure: k2481 o|inlining procedure: k2481 o|inlining procedure: k2524 o|inlining procedure: k2524 o|inlining procedure: k2576 o|inlining procedure: k2588 o|inlining procedure: k2600 o|inlining procedure: k2600 o|inlining procedure: k2588 o|inlining procedure: k2576 o|inlining procedure: k2699 o|inlining procedure: k2699 o|inlining procedure: k2730 o|inlining procedure: k2730 o|inlining procedure: k2960 o|inlining procedure: k2960 o|inlining procedure: k2977 o|inlining procedure: k2977 o|inlining procedure: k3004 o|inlining procedure: k3004 o|inlining procedure: k3026 o|inlining procedure: k3026 o|inlining procedure: k3088 o|inlining procedure: k3115 o|inlining procedure: k3115 o|inlining procedure: k3088 o|inlining procedure: k3186 o|inlining procedure: k3186 o|inlining procedure: k3230 o|inlining procedure: k3230 o|contracted procedure: k3251 o|contracted procedure: k3268 o|inlining procedure: k3265 o|inlining procedure: k3295 o|inlining procedure: k3295 o|inlining procedure: k3265 o|inlining procedure: k3329 o|inlining procedure: k3329 o|inlining procedure: k3355 o|inlining procedure: k3355 o|inlining procedure: k3389 o|inlining procedure: k3403 o|inlining procedure: k3403 o|inlining procedure: k3389 o|inlining procedure: k3422 o|inlining procedure: k3422 o|inlining procedure: k3520 o|inlining procedure: k3520 o|inlining procedure: k3587 o|inlining procedure: k3587 o|inlining procedure: k3608 o|inlining procedure: k3608 o|inlining procedure: k3623 o|inlining procedure: k3623 o|inlining procedure: k3635 o|inlining procedure: k3635 o|substituted constant variable: a3670 o|inlining procedure: k3687 o|inlining procedure: k3687 o|contracted procedure: k3693 o|inlining procedure: k3714 o|inlining procedure: k3714 o|inlining procedure: k3744 o|inlining procedure: k3744 o|inlining procedure: k3808 o|inlining procedure: k3808 o|inlining procedure: k3864 o|inlining procedure: k3864 o|inlining procedure: k3876 o|inlining procedure: k3876 o|inlining procedure: k3932 o|inlining procedure: k3932 o|inlining procedure: k3989 o|inlining procedure: k3989 o|inlining procedure: k4002 o|inlining procedure: k4025 o|inlining procedure: k4025 o|inlining procedure: k4002 o|inlining procedure: k4057 o|inlining procedure: k4057 o|inlining procedure: k4090 o|inlining procedure: k4090 o|inlining procedure: k4159 o|inlining procedure: k4159 o|substituted constant variable: a4214 o|substituted constant variable: a4216 o|inlining procedure: k4231 o|inlining procedure: k4231 o|inlining procedure: k4275 o|inlining procedure: k4296 o|inlining procedure: k4296 o|contracted procedure: k4311 o|inlining procedure: k4308 o|inlining procedure: k4308 o|contracted procedure: k4324 o|inlining procedure: k4321 o|inlining procedure: k4321 o|inlining procedure: k4275 o|inlining procedure: k4392 o|inlining procedure: k4392 o|inlining procedure: k4413 o|inlining procedure: k4413 o|inlining procedure: k4531 o|inlining procedure: k4531 o|inlining procedure: k4565 o|inlining procedure: k4565 o|inlining procedure: k4579 o|inlining procedure: k4579 o|contracted procedure: "(data-structures.scm:901) g927928" o|inlining procedure: k4697 o|inlining procedure: k4697 o|replaced variables: 522 o|removed binding forms: 211 o|substituted constant variable: r14414723 o|substituted constant variable: r15944735 o|substituted constant variable: r16064738 o|substituted constant variable: r17004745 o|substituted constant variable: r17614750 o|substituted constant variable: r18374753 o|substituted constant variable: r19194757 o|substituted constant variable: r19734761 o|substituted constant variable: r20894770 o|substituted constant variable: r22814779 o|substituted constant variable: r23584784 o|substituted constant variable: r26014797 o|substituted constant variable: r25894799 o|converted assignments to bindings: (add540) o|substituted constant variable: r31874819 o|converted assignments to bindings: (instring618) o|substituted constant variable: r35214839 o|substituted constant variable: r36094843 o|substituted constant variable: r36244845 o|substituted constant variable: r39904864 o|substituted constant variable: r43094880 o|substituted constant variable: r43224882 o|substituted constant variable: r42764884 o|substituted constant variable: r45664907 o|substituted constant variable: r45664907 o|converted assignments to bindings: (traverse386) o|simplifications: ((let . 3)) o|replaced variables: 21 o|removed binding forms: 526 o|inlining procedure: k2650 o|inlining procedure: k2665 o|inlining procedure: k2794 o|inlining procedure: k2891 o|inlining procedure: k2983 o|inlining procedure: k4585 o|replaced variables: 10 o|removed binding forms: 47 o|substituted constant variable: r26515128 o|substituted constant variable: r26665129 o|removed binding forms: 14 o|removed binding forms: 2 o|simplifications: ((if . 40) (##core#call . 514)) o| call simplifications: o| ##sys#setislot 4 o| ##sys#check-structure 9 o| ##sys#structure? o| ##sys#check-vector o| caar o| ##sys#cons 4 o| ##sys#list o| ##sys#make-structure 4 o| vector-length o| vector-set! o| > o| set-car! o| quotient o| set-cdr! 4 o| vector? 3 o| - 2 o| vector-ref 2 o| + 2 o| = 4 o| list->string 2 o| cadr 2 o| fxmin 2 o| ##sys#check-string 21 o| ##sys#size 24 o| fx>= 10 o| fx> 6 o| string? 2 o| symbol? o| char? 4 o| number? o| string o| string-length 4 o| string-ref o| string-set! o| fx+ 31 o| ##sys#setslot 17 o| pair? 17 o| ##sys#check-exact 7 o| fx<= 5 o| length 2 o| fx< 6 o| fx= 8 o| fx- 16 o| list 6 o| list? o| ##sys#check-pair 3 o| cdr 12 o| cons 38 o| ##sys#check-list 8 o| void o| not-pair? o| call-with-values o| not 3 o| eq? 23 o| apply 8 o| car 33 o| null? 57 o| ##sys#slot 81 o|contracted procedure: k1407 o|contracted procedure: k1416 o|contracted procedure: k1426 o|contracted procedure: k1463 o|contracted procedure: k1446 o|contracted procedure: k1459 o|contracted procedure: k1472 o|contracted procedure: k1475 o|contracted procedure: k1516 o|contracted procedure: k1537 o|contracted procedure: k1549 o|contracted procedure: k1558 o|contracted procedure: k1561 o|contracted procedure: k1567 o|contracted procedure: k1596 o|contracted procedure: k1602 o|contracted procedure: k1615 o|contracted procedure: k1619 o|contracted procedure: k1628 o|contracted procedure: k1675 o|contracted procedure: k1639 o|contracted procedure: k1653 o|contracted procedure: k1656 o|contracted procedure: k1662 o|contracted procedure: k1687 o|contracted procedure: k1709 o|contracted procedure: k1724 o|contracted procedure: k1734 o|contracted procedure: k1738 o|contracted procedure: k1748 o|contracted procedure: k1757 o|contracted procedure: k1763 o|contracted procedure: k1770 o|contracted procedure: k1789 o|contracted procedure: k1792 o|contracted procedure: k1795 o|contracted procedure: k1801 o|contracted procedure: k1821 o|contracted procedure: k1827 o|contracted procedure: k1839 o|contracted procedure: k1845 o|contracted procedure: k1860 o|contracted procedure: k1875 o|contracted procedure: k1894 o|contracted procedure: k1882 o|contracted procedure: k1886 o|contracted procedure: k1890 o|contracted procedure: k1897 o|contracted procedure: k1909 o|contracted procedure: k1921 o|contracted procedure: k1953 o|contracted procedure: k1933 o|contracted procedure: k1936 o|contracted procedure: k1942 o|contracted procedure: k1956 o|contracted procedure: k1963 o|contracted procedure: k1975 o|contracted procedure: k2037 o|contracted procedure: k2033 o|contracted procedure: k1999 o|contracted procedure: k2006 o|contracted procedure: k2014 o|contracted procedure: k2018 o|contracted procedure: k2025 o|contracted procedure: k2029 o|contracted procedure: k2120 o|contracted procedure: k2043 o|contracted procedure: k2055 o|contracted procedure: k2062 o|contracted procedure: k2065 o|contracted procedure: k2071 o|contracted procedure: k2077 o|contracted procedure: k2091 o|contracted procedure: k2094 o|contracted procedure: k2107 o|contracted procedure: k2110 o|contracted procedure: k2117 o|contracted procedure: k2224 o|contracted procedure: k2129 o|contracted procedure: k2141 o|contracted procedure: k2148 o|contracted procedure: k2221 o|contracted procedure: k2160 o|contracted procedure: k2217 o|contracted procedure: k2182 o|contracted procedure: k2186 o|contracted procedure: k2205 o|contracted procedure: k2209 o|contracted procedure: k2193 o|contracted procedure: k2201 o|contracted procedure: k2213 o|contracted procedure: k2336 o|contracted procedure: k2233 o|contracted procedure: k2330 o|contracted procedure: k2236 o|contracted procedure: k2324 o|contracted procedure: k2239 o|contracted procedure: k2318 o|contracted procedure: k2242 o|contracted procedure: k2257 o|contracted procedure: k2263 o|contracted procedure: k2269 o|contracted procedure: k2283 o|contracted procedure: k2289 o|contracted procedure: k2292 o|contracted procedure: k2295 o|contracted procedure: k2308 o|contracted procedure: k2312 o|contracted procedure: k2345 o|contracted procedure: k2360 o|contracted procedure: k2363 o|contracted procedure: k2366 o|contracted procedure: k2379 o|contracted procedure: k2383 o|contracted procedure: k2386 o|contracted procedure: k2399 o|contracted procedure: k2403 o|contracted procedure: k2448 o|contracted procedure: k2444 o|contracted procedure: k2413 o|contracted procedure: k2422 o|contracted procedure: k2440 o|contracted procedure: k2425 o|contracted procedure: k2432 o|contracted procedure: k2436 o|contracted procedure: k2454 o|contracted procedure: k2469 o|contracted procedure: k2475 o|contracted procedure: k2484 o|contracted procedure: k2493 o|contracted procedure: k2515 o|contracted procedure: k2527 o|contracted procedure: k2530 o|contracted procedure: k2533 o|contracted procedure: k2541 o|contracted procedure: k2549 o|contracted procedure: k2558 o|contracted procedure: k2561 o|contracted procedure: k2564 o|contracted procedure: k2567 o|contracted procedure: k2570 o|contracted procedure: k2573 o|contracted procedure: k2623 o|contracted procedure: k2579 o|contracted procedure: k2585 o|contracted procedure: k2591 o|contracted procedure: k2603 o|contracted procedure: k2616 o|contracted procedure: k2656 o|contracted procedure: k2650 o|contracted procedure: k2671 o|contracted procedure: k2665 o|contracted procedure: k2680 o|contracted procedure: k2683 o|contracted procedure: k2686 o|contracted procedure: k2689 o|contracted procedure: k2692 o|contracted procedure: k2705 o|contracted procedure: k2696 o|contracted procedure: k2702 o|contracted procedure: k2711 o|contracted procedure: k2714 o|contracted procedure: k2717 o|contracted procedure: k2720 o|contracted procedure: k2723 o|contracted procedure: k2736 o|contracted procedure: k2727 o|contracted procedure: k2733 o|contracted procedure: k2742 o|contracted procedure: k2745 o|contracted procedure: k2751 o|contracted procedure: k2754 o|contracted procedure: k2773 o|contracted procedure: k2761 o|contracted procedure: k2769 o|contracted procedure: k2765 o|contracted procedure: k2830 o|contracted procedure: k2779 o|contracted procedure: k2824 o|contracted procedure: k2782 o|contracted procedure: k2818 o|contracted procedure: k2785 o|contracted procedure: k2812 o|contracted procedure: k2788 o|contracted procedure: k2806 o|contracted procedure: k2791 o|contracted procedure: k2800 o|contracted procedure: k2794 o|contracted procedure: k2839 o|contracted procedure: k2842 o|contracted procedure: k2848 o|contracted procedure: k2851 o|contracted procedure: k2870 o|contracted procedure: k2858 o|contracted procedure: k2866 o|contracted procedure: k2862 o|contracted procedure: k2927 o|contracted procedure: k2876 o|contracted procedure: k2921 o|contracted procedure: k2879 o|contracted procedure: k2915 o|contracted procedure: k2882 o|contracted procedure: k2909 o|contracted procedure: k2885 o|contracted procedure: k2903 o|contracted procedure: k2888 o|contracted procedure: k2897 o|contracted procedure: k2891 o|contracted procedure: k2936 o|contracted procedure: k3061 o|contracted procedure: k2939 o|contracted procedure: k3053 o|contracted procedure: k2942 o|contracted procedure: k2945 o|contracted procedure: k2948 o|contracted procedure: k2951 o|contracted procedure: k2957 o|contracted procedure: k2960 o|contracted procedure: k2980 o|contracted procedure: k2989 o|contracted procedure: k2992 o|contracted procedure: k3007 o|contracted procedure: k3014 o|contracted procedure: k3020 o|contracted procedure: k3023 o|contracted procedure: k3029 o|contracted procedure: k3032 o|contracted procedure: k3049 o|contracted procedure: k3163 o|contracted procedure: k3070 o|contracted procedure: k3073 o|contracted procedure: k3076 o|contracted procedure: k3079 o|contracted procedure: k3103 o|contracted procedure: k3106 o|contracted procedure: k3109 o|contracted procedure: k3112 o|contracted procedure: k3122 o|contracted procedure: k3126 o|contracted procedure: k3132 o|contracted procedure: k3135 o|contracted procedure: k3138 o|contracted procedure: k3145 o|contracted procedure: k3153 o|contracted procedure: k3157 o|contracted procedure: k3149 o|contracted procedure: k3175 o|contracted procedure: k3189 o|contracted procedure: k3195 o|contracted procedure: k3202 o|contracted procedure: k3317 o|contracted procedure: k3212 o|contracted procedure: k3215 o|contracted procedure: k3218 o|contracted procedure: k3233 o|contracted procedure: k3239 o|contracted procedure: k3281 o|contracted procedure: k3288 o|contracted procedure: k3292 o|contracted procedure: k3298 o|contracted procedure: k3309 o|contracted procedure: k3313 o|contracted procedure: k3275 o|contracted procedure: k3258 o|contracted procedure: k3262 o|contracted procedure: k3323 o|contracted procedure: k3326 o|contracted procedure: k3332 o|contracted procedure: k3338 o|contracted procedure: k3344 o|contracted procedure: k3347 o|contracted procedure: k3358 o|contracted procedure: k3368 o|contracted procedure: k3377 o|contracted procedure: k3380 o|contracted procedure: k3383 o|contracted procedure: k3392 o|contracted procedure: k3406 o|contracted procedure: k3403 o|contracted procedure: k3425 o|contracted procedure: k3432 o|contracted procedure: k3436 o|contracted procedure: k3439 o|contracted procedure: k3442 o|contracted procedure: k3445 o|contracted procedure: k3496 o|contracted procedure: k3492 o|contracted procedure: k3452 o|contracted procedure: k3455 o|contracted procedure: k3473 o|contracted procedure: k3465 o|contracted procedure: k3469 o|contracted procedure: k3476 o|contracted procedure: k3480 o|contracted procedure: k3505 o|contracted procedure: k3508 o|contracted procedure: k3511 o|contracted procedure: k3523 o|contracted procedure: k3529 o|contracted procedure: k3540 o|contracted procedure: k3555 o|contracted procedure: k3559 o|contracted procedure: k3563 o|contracted procedure: k3599 o|contracted procedure: k3569 o|contracted procedure: k3572 o|contracted procedure: k3575 o|contracted procedure: k3578 o|contracted procedure: k3581 o|contracted procedure: k3584 o|contracted procedure: k3596 o|contracted procedure: k3590 o|contracted procedure: k3611 o|contracted procedure: k3617 o|contracted procedure: k3620 o|contracted procedure: k3626 o|contracted procedure: k3638 o|contracted procedure: k3651 o|contracted procedure: k3658 o|contracted procedure: k3666 o|contracted procedure: k3662 o|contracted procedure: k3676 o|contracted procedure: k3684 o|contracted procedure: k3708 o|contracted procedure: k3717 o|contracted procedure: k3723 o|contracted procedure: k3730 o|contracted procedure: k3736 o|contracted procedure: k3753 o|contracted procedure: k3760 o|contracted procedure: k3771 o|contracted procedure: k3779 o|contracted procedure: k3786 o|contracted procedure: k3797 o|contracted procedure: k3814 o|contracted procedure: k3820 o|contracted procedure: k3835 o|contracted procedure: k3841 o|contracted procedure: k3857 o|contracted procedure: k3861 o|contracted procedure: k3867 o|contracted procedure: k3873 o|contracted procedure: k3885 o|inlining procedure: k3882 o|contracted procedure: k3903 o|inlining procedure: k3900 o|contracted procedure: k3919 o|contracted procedure: k3923 o|contracted procedure: k3935 o|contracted procedure: k3944 o|contracted procedure: k3956 o|contracted procedure: k3959 o|contracted procedure: k3962 o|contracted procedure: k3971 o|contracted procedure: k3979 o|contracted procedure: k3992 o|contracted procedure: k3996 o|contracted procedure: k3999 o|contracted procedure: k4005 o|contracted procedure: k4008 o|contracted procedure: k4028 o|contracted procedure: k4044 o|contracted procedure: k4031 o|contracted procedure: k4040 o|contracted procedure: k4051 o|contracted procedure: k4060 o|contracted procedure: k4093 o|contracted procedure: k4108 o|contracted procedure: k4112 o|contracted procedure: k4132 o|contracted procedure: k4116 o|contracted procedure: k4120 o|contracted procedure: k4128 o|contracted procedure: k4104 o|contracted procedure: k4100 o|contracted procedure: k4142 o|contracted procedure: k4205 o|contracted procedure: k4199 o|contracted procedure: k4153 o|contracted procedure: k4162 o|contracted procedure: k4173 o|contracted procedure: k4179 o|contracted procedure: k4182 o|contracted procedure: k4195 o|contracted procedure: k4218 o|contracted procedure: k4259 o|contracted procedure: k4263 o|contracted procedure: k4225 o|contracted procedure: k4234 o|contracted procedure: k4244 o|contracted procedure: k4252 o|contracted procedure: k4272 o|contracted procedure: k4278 o|contracted procedure: k4336 o|contracted procedure: k4287 o|contracted procedure: k4290 o|contracted procedure: k4299 o|contracted procedure: k4305 o|contracted procedure: k4318 o|contracted procedure: k4331 o|contracted procedure: k4339 o|contracted procedure: k4364 o|contracted procedure: k4373 o|contracted procedure: k4380 o|contracted procedure: k4386 o|contracted procedure: k4389 o|contracted procedure: k4398 o|contracted procedure: k4407 o|contracted procedure: k4410 o|contracted procedure: k4419 o|contracted procedure: k4428 o|contracted procedure: k4431 o|contracted procedure: k4437 o|contracted procedure: k4448 o|contracted procedure: k4444 o|contracted procedure: k4440 o|contracted procedure: k4465 o|contracted procedure: k4451 o|contracted procedure: k4461 o|contracted procedure: k4471 o|contracted procedure: k4474 o|contracted procedure: k4480 o|contracted procedure: k4483 o|contracted procedure: k4503 o|contracted procedure: k4486 o|contracted procedure: k4500 o|contracted procedure: k4496 o|contracted procedure: k4489 o|contracted procedure: k4509 o|contracted procedure: k4518 o|contracted procedure: k4525 o|contracted procedure: k4534 o|contracted procedure: k4544 o|contracted procedure: k4552 o|contracted procedure: k4548 o|contracted procedure: k4558 o|contracted procedure: k4570 o|contracted procedure: k4610 o|contracted procedure: k4582 o|contracted procedure: k4592 o|contracted procedure: k4595 o|contracted procedure: k45925177 o|contracted procedure: k4616 o|contracted procedure: k4650 o|contracted procedure: k4619 o|contracted procedure: k4622 o|contracted procedure: k4646 o|contracted procedure: k4639 o|contracted procedure: k4625 o|contracted procedure: k4636 o|contracted procedure: k4632 o|contracted procedure: k4656 o|contracted procedure: k4659 o|contracted procedure: k4668 o|contracted procedure: k4671 o|contracted procedure: k4682 o|contracted procedure: k4678 o|contracted procedure: k4686 o|contracted procedure: k4711 o|contracted procedure: k4700 o|contracted procedure: k4707 o|contracted procedure: k4718 o|simplifications: ((let . 87)) o|removed binding forms: 460 o|inlining procedure: k3968 o|inlining procedure: k3968 o|substituted constant variable: r4260 o|substituted constant variable: r4260 o|substituted constant variable: r4264 o|replaced variables: 167 o|removed binding forms: 90 o|direct leaf routine/allocation: loop152 0 o|direct leaf routine/allocation: loop344 0 o|direct leaf routine/allocation: loop2598 0 o|direct leaf routine/allocation: loop622 0 o|direct leaf routine/allocation: doloop930931 0 o|converted assignments to bindings: (loop152) o|converted assignments to bindings: (loop344) o|converted assignments to bindings: (loop2598) o|converted assignments to bindings: (loop622) o|converted assignments to bindings: (doloop930931) o|simplifications: ((let . 5)) o|customizable procedures: (k4665 k4598 doloop906907 loop899 k4434 k4269 loop843 loop833 visit810 walk825 doloop796797 step774 loop762 loop748 loop732 doloop725726 loop689 loop672 k3458 collect667 instring618 loop648 loop1590 scan562 loop546 add540 k2845 k2748 traverse386 loop397 map-loop362379 rev-string-append338 k2348 loop329 loop314 k2245 loop277 loop255 k2046 loop225 k1906 loop211 doloop198199 loop191 loop177 loop169 loop163 loop136 loop121 loop110 loop80 loop68) o|calls to known targets: 131 o|unused rest argument: _92 f_1478 o|unused rest argument: _93 f_1480 o|unused rest argument: _134 f_1631 o|identified direct recursive calls: f_1697 1 o|identified direct recursive calls: f_1719 1 o|identified direct recursive calls: f_1755 1 o|identified direct recursive calls: f_1784 2 o|identified direct recursive calls: f_1855 1 o|identified direct recursive calls: f_1916 1 o|identified direct recursive calls: f_1970 2 o|identified direct recursive calls: f_2417 1 o|identified direct recursive calls: f_2394 1 o|identified direct recursive calls: f_3002 1 o|identified direct recursive calls: f_3101 1 o|identified direct recursive calls: f_3086 1 o|identified direct recursive calls: f_3184 1 o|identified direct recursive calls: f_3420 1 o|identified direct recursive calls: f_4023 1 o|identified direct recursive calls: f_4529 1 o|identified direct recursive calls: f_4695 1 o|fast box initializations: 39 o|dropping unused closure argument: f_2556 o|dropping unused closure argument: f_4695 o|dropping unused closure argument: f_3173 */ /* end of file */ �������������������������������������������������������������������������������chicken-4.12.0/lfa2.scm�����������������������������������������������������������������������������0000644�0001750�0001750�00000026334�13052306173�014350� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; lfa2.scm - a lightweight "secondary" flow analysis ; ; Copyright (c) 2012-2017, 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. (declare (unit lfa2) (hide d-depth lfa2-debug d dd +type-check-map+ +predicate-map+)) (include "compiler-namespace") (include "tweaks") (define d-depth 0) (define lfa2-debug #t) (define (d fstr . args) (when (and scrutiny-debug (##sys#fudge 13)) (printf "[debug|~a] ~a~?~%" d-depth (make-string d-depth #\space) fstr args)) ) (define dd d) (define-syntax d (syntax-rules () ((_ . _) (void)))) (define-syntax dd (syntax-rules () ((_ . _) (void)))) ;;; Maps checks to types (define +type-check-map+ '(("C_i_check_closure" procedure) ("C_i_check_exact" fixnum) ("C_i_check_inexact" flonum) ("C_i_check_number" fixnum flonum number) ("C_i_check_string" string) ("C_i_check_bytevector" blob) ("C_i_check_symbol" symbol) ("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) ("C_i_check_inexact_2" flonum) ("C_i_check_number_2" fixnum flonum number) ("C_i_check_string_2" string) ("C_i_check_bytevector_2" blob) ("C_i_check_symbol_2" symbol) ("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_i_flonump" flonum) ("C_i_numberp" number) ("C_stringp" string) ("C_bytevectorp" blob) ("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 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" flonum) ("C_a_i_fix_to_flo" flonum) ;;XXX there are endless more - is it worth it? )) ;;; Walk nodes and perform simplified type-analysis (define (perform-secondary-flow-analysis node db) (let ((stats '())) (define (constant-result lit) ;; a simplified variant of the one in scrutinizer.scm (cond ((string? lit) 'string) ((symbol? lit) 'symbol) ((fixnum? lit) 'fixnum) ((flonum? lit) 'float) ((number? lit) (case number-type ((fixnum) 'fixnum) ((flonum) 'flonum) (else 'number))) ((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) (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 (get db var 'global)) (variable-mark var '##compiler#always-bound)))))) (define (drop! 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 (walk n te ae) (let ((class (node-class n)) (params (node-parameters n)) (subs (node-subexpressions n))) (case class ((##core#variable) (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))) (walk (second subs) (if (assigned? var) te (alist-cons var r te)) (if (and (eq? '##core#variable (node-class val)) (not (assigned? var)) (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? (walk (first subs) te ae) 'undefined) ((##core#undefined) 'undefined) ((##core#primitive) 'procedure) ((##core#inline ##core#inline_allocate) (for-each (cut walk <> te ae) 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) +predicate-map+) => (lambda (a) (let ((arg (first subs))) (if (eq? '##core#variable (node-class 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)))) ()) (let ((r1 (walk (first subs) 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)))))) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/Makefile.cygwin����������������������������������������������������������������������0000644�0001750�0001750�00000010311�13052302367�015744� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# Makefile.cygwin - configuration for Linux -*- Makefile -*- # # Copyright (c) 2008-2017, 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_GRP_H 1" >>$@ echo "#define HAVE_ERRNO_H 1" >>$@ echo "#define HAVE_SYSEXITS_H 1" >>$@ echo "#define HAVE_DLFCN_H 1" >>$@ echo "#define C_STACK_GROWS_DOWNWARD 1" >>$@ ifdef GCHOOKS echo "#define C_GC_HOOKS" >>$@ endif ifdef SYMBOLGC echo "#define C_COLLECT_ALL_SYMBOLS" >>$@ endif echo "#define C_USE_STD_FEATURE_MACROS" >>$@ cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/setup-api.import.c�������������������������������������������������������������������0000644�0001750�0001750�00000136213�13052306546�016406� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from setup-api.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: setup-api.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file setup-api.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[23]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,24),40,108,111,111,112,56,53,32,108,56,48,49,48,52,32,108,101,110,56,49,49,48,53,41}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,39),40,97,51,55,51,32,105,110,112,117,116,55,57,57,50,32,114,101,110,97,109,101,56,56,57,51,32,99,111,109,112,97,114,101,55,54,57,52,41,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,12),40,97,52,57,50,32,101,120,112,55,52,41,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,22),40,108,111,111,112,52,55,32,108,52,50,54,54,32,108,101,110,52,51,54,55,41,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,39),40,97,52,53,55,32,105,110,112,117,116,52,49,53,52,32,114,101,110,97,109,101,53,48,53,53,32,99,111,109,112,97,114,101,51,56,53,54,41,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,49,48,32,108,53,50,57,32,108,101,110,54,51,48,41,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,37),40,97,53,53,49,32,105,110,112,117,116,52,49,55,32,114,101,110,97,109,101,49,51,49,56,32,99,111,109,112,97,114,101,49,49,57,41,0,0,0}; static C_char C_TLS li7[] 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_525) static void C_fcall f_525(C_word t0,C_word t1,C_word t2,C_word t3) 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_622) static void C_ccall f_622(C_word c,C_word *av) C_noret; C_noret_decl(f_475) static void C_ccall f_475(C_word c,C_word *av) C_noret; C_noret_decl(f_374) static void C_ccall f_374(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_487) static void C_ccall f_487(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_384) static void C_ccall f_384(C_word c,C_word *av) C_noret; C_noret_decl(f_532) static void C_ccall f_532(C_word c,C_word *av) C_noret; C_noret_decl(f_412) static void C_ccall f_412(C_word c,C_word *av) C_noret; C_noret_decl(f_418) static void C_ccall f_418(C_word c,C_word *av) C_noret; C_noret_decl(f_391) static void C_ccall f_391(C_word c,C_word *av) C_noret; C_noret_decl(f_430) static void C_ccall f_430(C_word c,C_word *av) C_noret; C_noret_decl(f_399) static void C_ccall f_399(C_word c,C_word *av) C_noret; C_noret_decl(f_491) static void C_ccall f_491(C_word c,C_word *av) C_noret; C_noret_decl(f_493) static void C_ccall f_493(C_word c,C_word *av) C_noret; C_noret_decl(f_423) static void C_fcall f_423(C_word t0,C_word t1,C_word t2,C_word t3) 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_552) static void C_ccall f_552(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_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(f_581) static void C_ccall f_581(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_569) static void C_ccall f_569(C_word c,C_word *av) C_noret; C_noret_decl(f_562) static void C_ccall f_562(C_word c,C_word *av) C_noret; C_noret_decl(f_608) static void C_ccall f_608(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_601) static void C_fcall f_601(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_444) static void C_ccall f_444(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_349) static void C_ccall f_349(C_word c,C_word *av) C_noret; C_noret_decl(f_346) static void C_ccall f_346(C_word c,C_word *av) C_noret; C_noret_decl(f_343) static void C_ccall f_343(C_word c,C_word *av) C_noret; C_noret_decl(f_340) static void C_ccall f_340(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_514) static void C_ccall f_514(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_352) static void C_ccall f_352(C_word c,C_word *av) C_noret; C_noret_decl(f_468) static void C_ccall f_468(C_word c,C_word *av) C_noret; C_noret_decl(trf_525) static void C_ccall trf_525(C_word c,C_word *av) C_noret; static void C_ccall trf_525(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_525(t0,t1,t2,t3);} C_noret_decl(trf_423) static void C_ccall trf_423(C_word c,C_word *av) C_noret; static void C_ccall trf_423(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_423(t0,t1,t2,t3);} C_noret_decl(trf_601) static void C_ccall trf_601(C_word c,C_word *av) C_noret; static void C_ccall trf_601(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_601(t0,t1,t2,t3);} /* loop47 in k518 in k512 in k509 in a457 in k548 in k347 in k344 in k341 in k338 */ static void C_fcall f_525(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,3)))){ C_save_and_reclaim_args((void *)trf_525,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_532,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* setup-api.import.scm:60: ##sys#= */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[11]); C_word av2[4]; av2[0]=*((C_word*)lf[11]+1); av2[1]=t4; av2[2]=t3; av2[3]=C_fix(0); tp(4,av2);}} /* k518 in k512 in k509 in a457 in k548 in k347 in k344 in k341 in k338 */ 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 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_520,2,av);} a=C_alloc(6); 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|3,a[1]=(C_word)f_525,a[2]=t3,a[3]=((C_word)li3),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_525(t5,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_468(2,av2);}}} /* k620 in k606 in loop10 in k594 in k588 in k585 in a551 in k347 in k344 in k341 in k338 */ static void C_ccall f_622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_622,2,av);} /* setup-api.import.scm:59: loop10 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_601(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k473 in k466 in a457 in k548 in k347 in k344 in k341 in k338 */ static void C_ccall f_475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_475,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_487,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); /* setup-api.import.scm:60: rename50 */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[18]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a373 in k454 in k548 in k347 in k344 in k341 in k338 */ static void C_ccall f_374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(10,c,2)))){ C_save_and_reclaim((void *)f_374,5,av);} a=C_alloc(10); t5=C_i_cdr(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_384,a[2]=t6,a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_409,a[2]=t7,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* setup-api.import.scm:62: ##sys#list? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[14]+1); av2[1]=t8; av2[2]=t6; tp(3,av2);}} /* k370 in k454 in k548 in k347 in k344 in k341 in k338 */ 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; 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_372,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[3],t1); t3=C_a_i_list1(&a,1,t2); /* setup-api.import.scm:16: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[4]); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[4]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[5]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[6]; av2[5]=((C_word*)t0)[4]; av2[6]=t3; tp(7,av2);}} /* k485 in k473 in k466 in a457 in k548 in k347 in k344 in k341 in k338 */ static void C_ccall f_487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_487,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_491,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_493,a[2]=((C_word*)t0)[4],a[3]=((C_word)li2),tmp=(C_word)a,a+=4,tmp); /* setup-api.import.scm:60: ##sys#map-n */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[17]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[17]+1); av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* k407 in a373 in k454 in k548 in k347 in k344 in k341 in k338 */ 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 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_409,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_412,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* setup-api.import.scm:62: ##sys#length */ t3=C_fast_retrieve(lf[13]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_384(2,av2);}}} /* k382 in a373 in k454 in k548 in k347 in k344 in k341 in k338 */ static void C_ccall f_384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_384,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_391,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* setup-api.import.scm:62: rename88 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[8]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ /* setup-api.import.scm:62: ##sys#syntax-rules-mismatch */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[9]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[9]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; tp(3,av2);}}} /* k530 in loop47 in k518 in k512 in k509 in a457 in k548 in k347 in k344 in k341 in k338 */ static void C_ccall f_532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_532,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_546,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* setup-api.import.scm:60: ##sys#+ */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[10]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[10]+1); av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(-1); tp(4,av2);}}} /* k410 in k407 in a373 in k454 in k548 in k347 in k344 in k341 in k338 */ static void C_ccall f_412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_412,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_418,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* setup-api.import.scm:62: ##sys#>= */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[12]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[12]+1); av2[1]=t3; av2[2]=t2; av2[3]=C_fix(0); tp(4,av2);}} /* k416 in k410 in k407 in a373 in k454 in k548 in k347 in k344 in k341 in k338 */ static void C_ccall f_418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_418,2,av);} a=C_alloc(6); 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|3,a[1]=(C_word)f_423,a[2]=t3,a[3]=((C_word)li0),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_423(t5,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_384(2,av2);}}} /* k389 in k382 in a373 in k454 in k548 in k347 in k344 in k341 in k338 */ static void C_ccall f_391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_391,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_399,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* setup-api.import.scm:62: rename88 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[7]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k428 in loop85 in k416 in k410 in k407 in a373 in k454 in k548 in k347 in k344 in k341 in k338 */ static void C_ccall f_430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_430,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_444,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* setup-api.import.scm:62: ##sys#+ */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[10]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[10]+1); av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(-1); tp(4,av2);}}} /* k397 in k389 in k382 in a373 in k454 in k548 in k347 in k344 in k341 in k338 */ static void C_ccall f_399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_399,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t1,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k489 in k485 in k473 in k466 in a457 in k548 in k347 in k344 in k341 in k338 */ static void C_ccall f_491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_491,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,t2,C_SCHEME_END_OF_LIST); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* a492 in k485 in k473 in k466 in a457 in k548 in k347 in k344 in k341 in k338 */ static void C_ccall f_493(C_word c,C_word *av){ C_word tmp; C_word 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_493,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_501,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* setup-api.import.scm:60: rename50 */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=lf[16]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* loop85 in k416 in k410 in k407 in a373 in k454 in k548 in k347 in k344 in k341 in k338 */ static void C_fcall f_423(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,3)))){ C_save_and_reclaim_args((void *)trf_423,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_430,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* setup-api.import.scm:62: ##sys#= */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[11]); C_word av2[4]; av2[0]=*((C_word*)lf[11]+1); av2[1]=t4; av2[2]=t3; av2[3]=C_fix(0); tp(4,av2);}} /* k544 in k530 in loop47 in k518 in k512 in k509 in a457 in k548 in k347 in k344 in k341 in k338 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_546,2,av);} /* setup-api.import.scm:60: loop47 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_525(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* a551 in k347 in k344 in k341 in k338 */ static void C_ccall f_552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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(10,c,2)))){ C_save_and_reclaim((void *)f_552,5,av);} a=C_alloc(10); t5=C_i_cdr(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_562,a[2]=t6,a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_587,a[2]=t7,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* setup-api.import.scm:59: ##sys#list? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[14]+1); av2[1]=t8; av2[2]=t6; tp(3,av2);}} /* k548 in k347 in k344 in k341 in k338 */ 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 t3; 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,5)))){ C_save_and_reclaim((void *)f_550,2,av);} a=C_alloc(11); t2=C_a_i_cons(&a,2,lf[1],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_456,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_458,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp); /* setup-api.import.scm:60: ##sys#er-transformer */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t4; av2[2]=t5; tp(3,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(1087))){ C_save(t1); C_rereclaim2(1087*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,23); lf[0]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\007execute\376\001\000\000\021setup-api#execute"); lf[1]=C_h_intern(&lf[1],7,"compile"); lf[2]=C_h_intern(&lf[2],3,"run"); lf[3]=C_h_intern(&lf[3],13,"ignore-errors"); lf[4]=C_h_intern(&lf[4],28,"\003sysregister-compiled-module"); lf[5]=C_h_intern(&lf[5],9,"setup-api"); lf[6]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022standard-extension\376\001\000\000\034setup-api#standard-extension\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\016host-extension\376\001\000\000\030setup-api#host-extension\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021install-extension\376\001\000\000" "\033setup-api#install-extension\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017install-program\376\001\000\000\031setup-api#install" "-program\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016install-script\376\001\000\000\030setup-api#install-script\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\022setup-verbose-mode\376\001\000\000\034setup-api#setup-verbose-mode\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022setup-install" "-mode\376\001\000\000\034setup-api#setup-install-mode\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017deployment-mode\376\001\000\000\031setup-a" "pi#deployment-mode\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023installation-prefix\376\001\000\000\035setup-api#installation-" "prefix\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022destination-prefix\376\001\000\000\034setup-api#destination-prefix\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\016runtime-prefix\376\001\000\000\030setup-api#runtime-prefix\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016chicken-prefix\376" "\001\000\000\030setup-api#chicken-prefix\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014find-library\376\001\000\000\026setup-api#find-libra" "ry\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013find-header\376\001\000\000\025setup-api#find-header\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014program-pat" "h\376\001\000\000\026setup-api#program-path\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014remove-file\052\376\001\000\000\026setup-api#remove-fil" "e\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005patch\376\001\000\000\017setup-api#patch\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013abort-setup\376\001\000\000\025setup-a" "pi#abort-setup\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024setup-root-directory\376\001\000\000\036setup-api#setup-root-direc" "tory\376\003\000\000\002\376\003\000\000\002\376\001\000\000\030create-directory/parents\376\001\000\000\042setup-api#create-directory/paren" "ts\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014test-compile\376\001\000\000\026setup-api#test-compile\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013try-compi" "le\376\001\000\000\025setup-api#try-compile\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013run-verbose\376\001\000\000\025setup-api#run-verbose" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016extra-features\376\001\000\000\030setup-api#extra-features\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021extra-n" "onfeatures\376\001\000\000\033setup-api#extra-nonfeatures\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011copy-file\376\001\000\000\023setup-api" "#copy-file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011move-file\376\001\000\000\023setup-api#move-file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014sudo-in" "stall\376\001\000\000\026setup-api#sudo-install\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022keep-intermediates\376\001\000\000\034setup-api#" "keep-intermediates\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012version>=\077\376\001\000\000\024setup-api#version>=\077\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\032extension-name-and-version\376\001\000\000$setup-api#extension-name-and-version\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\016extension-name\376\001\000\000\030setup-api#extension-name\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021extension-version" "\376\001\000\000\033setup-api#extension-version\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020remove-directory\376\001\000\000\032setup-api#re" "move-directory\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020remove-extension\376\001\000\000\032setup-api#remove-extension\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\011read-info\376\001\000\000\023setup-api#read-info\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020register-program\376\001\000\000\032" "setup-api#register-program\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014find-program\376\001\000\000\026setup-api#find-program" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011shellpath\376\001\000\000\023setup-api#shellpath\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024setup-error-handl" "ing\376\001\000\000\036setup-api#setup-error-handling\376\377\016"); lf[7]=C_h_intern(&lf[7],2,"ex"); lf[8]=C_h_intern(&lf[8],17,"handle-exceptions"); lf[9]=C_h_intern(&lf[9],25,"\003syssyntax-rules-mismatch"); lf[10]=C_h_intern(&lf[10],5,"\003sys+"); lf[11]=C_h_intern(&lf[11],5,"\003sys="); lf[12]=C_h_intern(&lf[12],6,"\003sys>="); lf[13]=C_h_intern(&lf[13],10,"\003syslength"); lf[14]=C_h_intern(&lf[14],9,"\003syslist\077"); lf[15]=C_h_intern(&lf[15],18,"\003syser-transformer"); lf[16]=C_h_intern(&lf[16],10,"quasiquote"); lf[17]=C_h_intern(&lf[17],9,"\003sysmap-n"); lf[18]=C_h_intern(&lf[18],4,"list"); lf[19]=C_h_intern(&lf[19],7,"execute"); lf[20]=C_h_intern(&lf[20],3,"csc"); lf[21]=C_h_intern(&lf[21],4,"eval"); lf[22]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006import\376\003\000\000\002\376\001\000\000\006scheme\376\003\000\000\002\376\001\000\000\007chicken\376\003\000\000\002\376\001\000\000\007foreign\376\003\000\000\002\376\001\000\000\007irre" "gex\376\003\000\000\002\376\001\000\000\005utils\376\003\000\000\002\376\001\000\000\005posix\376\003\000\000\002\376\001\000\000\005ports\376\003\000\000\002\376\001\000\000\006extras\376\003\000\000\002\376\001\000\000\017data-s" "tructures\376\003\000\000\002\376\001\000\000\006srfi-1\376\003\000\000\002\376\001\000\000\007srfi-13\376\003\000\000\002\376\001\000\000\005files\376\377\016"); C_register_lf2(lf,23,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_340,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k579 in k567 in k560 in a551 in k347 in k344 in k341 in k338 */ static void C_ccall f_581(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_581,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,t2,C_SCHEME_END_OF_LIST); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k585 in a551 in k347 in k344 in k341 in k338 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_587,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_590,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* setup-api.import.scm:59: ##sys#length */ t3=C_fast_retrieve(lf[13]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_562(2,av2);}}} /* k567 in k560 in a551 in k347 in k344 in k341 in k338 */ static void C_ccall f_569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_569,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_581,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* setup-api.import.scm:59: rename13 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[20]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k560 in a551 in k347 in k344 in k341 in k338 */ static void C_ccall f_562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_562,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_569,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* setup-api.import.scm:59: rename13 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[2]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ /* setup-api.import.scm:59: ##sys#syntax-rules-mismatch */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[9]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[9]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; tp(3,av2);}}} /* k606 in loop10 in k594 in k588 in k585 in a551 in k347 in k344 in k341 in k338 */ static void C_ccall f_608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_608,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_622,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* setup-api.import.scm:59: ##sys#+ */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[10]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[10]+1); av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(-1); tp(4,av2);}}} /* k588 in k585 in a551 in k347 in k344 in k341 in k338 */ 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 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_590,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_596,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* setup-api.import.scm:59: ##sys#>= */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[12]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[12]+1); av2[1]=t3; av2[2]=t2; av2[3]=C_fix(0); tp(4,av2);}} /* k594 in k588 in k585 in a551 in k347 in k344 in k341 in k338 */ 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 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_596,2,av);} a=C_alloc(6); 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|3,a[1]=(C_word)f_601,a[2]=t3,a[3]=((C_word)li5),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_601(t5,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_562(2,av2);}}} /* loop10 in k594 in k588 in k585 in a551 in k347 in k344 in k341 in k338 */ static void C_fcall f_601(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,3)))){ C_save_and_reclaim_args((void *)trf_601,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_608,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* setup-api.import.scm:59: ##sys#= */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[11]); C_word av2[4]; av2[0]=*((C_word*)lf[11]+1); av2[1]=t4; av2[2]=t3; av2[3]=C_fix(0); tp(4,av2);}} /* k442 in k428 in loop85 in k416 in k410 in k407 in a373 in k454 in k548 in k347 in k344 in k341 in k338 */ static void C_ccall f_444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_444,2,av);} /* setup-api.import.scm:62: loop85 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_423(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k499 in a492 in k485 in k473 in k466 in a457 in k548 in k347 in k344 in k341 in k338 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_501,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],C_SCHEME_END_OF_LIST); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,t1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k347 in k344 in k341 in k338 */ static void C_ccall f_349(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_349,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_352,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_a_i_list1(&a,1,lf[0]); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_550,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_552,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp); /* setup-api.import.scm:59: ##sys#er-transformer */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t5; av2[2]=t6; tp(3,av2);}} /* k344 in k341 in k338 */ static void C_ccall f_346(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_346,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_349,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* setup-api.import.scm:3: eval */ t3=C_fast_retrieve(lf[21]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[22]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k341 in k338 */ static void C_ccall f_343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_343,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_346,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k338 */ static void C_ccall f_340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_340,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_343,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k454 in k548 in k347 in k344 in k341 in k338 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){ C_save_and_reclaim((void *)f_456,2,av);} a=C_alloc(17); t2=C_a_i_cons(&a,2,lf[2],t1); t3=C_a_i_list2(&a,2,((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_372,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_374,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp); /* setup-api.import.scm:62: ##sys#er-transformer */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t5; av2[2]=t6; tp(3,av2);}} /* a457 in k548 in k347 in k344 in k341 in k338 */ 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=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(10,c,2)))){ C_save_and_reclaim((void *)f_458,5,av);} a=C_alloc(10); t5=C_i_cdr(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_468,a[2]=t6,a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_511,a[2]=t7,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* setup-api.import.scm:60: ##sys#list? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[14]+1); av2[1]=t8; av2[2]=t6; tp(3,av2);}} /* k512 in k509 in a457 in k548 in k347 in k344 in k341 in k338 */ static void C_ccall f_514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_514,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_520,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* setup-api.import.scm:60: ##sys#>= */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[12]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[12]+1); av2[1]=t3; av2[2]=t2; av2[3]=C_fix(0); tp(4,av2);}} /* k509 in a457 in k548 in k347 in k344 in k341 in k338 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_511,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_514,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* setup-api.import.scm:60: ##sys#length */ t3=C_fast_retrieve(lf[13]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_468(2,av2);}}} /* k350 in k347 in k344 in k341 in k338 */ static void C_ccall f_352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_352,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k466 in a457 in k548 in k347 in k344 in k341 in k338 */ static void C_ccall f_468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_468,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_475,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* setup-api.import.scm:60: rename50 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[19]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ /* setup-api.import.scm:60: ##sys#syntax-rules-mismatch */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[9]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[9]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; tp(3,av2);}}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[43] = { {"f_525:setup_2dapi_2eimport_2escm",(void*)f_525}, {"f_520:setup_2dapi_2eimport_2escm",(void*)f_520}, {"f_622:setup_2dapi_2eimport_2escm",(void*)f_622}, {"f_475:setup_2dapi_2eimport_2escm",(void*)f_475}, {"f_374:setup_2dapi_2eimport_2escm",(void*)f_374}, {"f_372:setup_2dapi_2eimport_2escm",(void*)f_372}, {"f_487:setup_2dapi_2eimport_2escm",(void*)f_487}, {"f_409:setup_2dapi_2eimport_2escm",(void*)f_409}, {"f_384:setup_2dapi_2eimport_2escm",(void*)f_384}, {"f_532:setup_2dapi_2eimport_2escm",(void*)f_532}, {"f_412:setup_2dapi_2eimport_2escm",(void*)f_412}, {"f_418:setup_2dapi_2eimport_2escm",(void*)f_418}, {"f_391:setup_2dapi_2eimport_2escm",(void*)f_391}, {"f_430:setup_2dapi_2eimport_2escm",(void*)f_430}, {"f_399:setup_2dapi_2eimport_2escm",(void*)f_399}, {"f_491:setup_2dapi_2eimport_2escm",(void*)f_491}, {"f_493:setup_2dapi_2eimport_2escm",(void*)f_493}, {"f_423:setup_2dapi_2eimport_2escm",(void*)f_423}, {"f_546:setup_2dapi_2eimport_2escm",(void*)f_546}, {"f_552:setup_2dapi_2eimport_2escm",(void*)f_552}, {"f_550:setup_2dapi_2eimport_2escm",(void*)f_550}, {"toplevel:setup_2dapi_2eimport_2escm",(void*)C_toplevel}, {"f_581:setup_2dapi_2eimport_2escm",(void*)f_581}, {"f_587:setup_2dapi_2eimport_2escm",(void*)f_587}, {"f_569:setup_2dapi_2eimport_2escm",(void*)f_569}, {"f_562:setup_2dapi_2eimport_2escm",(void*)f_562}, {"f_608:setup_2dapi_2eimport_2escm",(void*)f_608}, {"f_590:setup_2dapi_2eimport_2escm",(void*)f_590}, {"f_596:setup_2dapi_2eimport_2escm",(void*)f_596}, {"f_601:setup_2dapi_2eimport_2escm",(void*)f_601}, {"f_444:setup_2dapi_2eimport_2escm",(void*)f_444}, {"f_501:setup_2dapi_2eimport_2escm",(void*)f_501}, {"f_349:setup_2dapi_2eimport_2escm",(void*)f_349}, {"f_346:setup_2dapi_2eimport_2escm",(void*)f_346}, {"f_343:setup_2dapi_2eimport_2escm",(void*)f_343}, {"f_340:setup_2dapi_2eimport_2escm",(void*)f_340}, {"f_456:setup_2dapi_2eimport_2escm",(void*)f_456}, {"f_458:setup_2dapi_2eimport_2escm",(void*)f_458}, {"f_514:setup_2dapi_2eimport_2escm",(void*)f_514}, {"f_511:setup_2dapi_2eimport_2escm",(void*)f_511}, {"f_352:setup_2dapi_2eimport_2escm",(void*)f_352}, {"f_468:setup_2dapi_2eimport_2escm",(void*)f_468}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|eliminated procedure checks: 11 (o e)|safe calls: 21 o|inlining procedure: k379 o|inlining procedure: k379 o|inlining procedure: k413 o|inlining procedure: k425 o|inlining procedure: k425 o|inlining procedure: k413 o|inlining procedure: k463 o|inlining procedure: k463 o|inlining procedure: k515 o|inlining procedure: k527 o|inlining procedure: k527 o|inlining procedure: k515 o|inlining procedure: k557 o|inlining procedure: k557 o|inlining procedure: k591 o|inlining procedure: k603 o|inlining procedure: k603 o|inlining procedure: k591 o|replaced variables: 34 o|removed binding forms: 8 o|substituted constant variable: r414628 o|substituted constant variable: r516634 o|substituted constant variable: r592640 o|removed binding forms: 43 o|removed binding forms: 3 o|simplifications: ((##core#call . 26)) o| call simplifications: o| ##sys#cdr 6 o| ##sys#eq? 3 o| ##sys#cons 11 o| cons 3 o| list 3 o|contracted procedure: k354 o|contracted procedure: k446 o|contracted procedure: k450 o|contracted procedure: k358 o|contracted procedure: k366 o|contracted procedure: k362 o|contracted procedure: k376 o|contracted procedure: k401 o|contracted procedure: k393 o|contracted procedure: k438 o|contracted procedure: k460 o|contracted procedure: k481 o|contracted procedure: k477 o|contracted procedure: k503 o|contracted procedure: k540 o|contracted procedure: k554 o|contracted procedure: k575 o|contracted procedure: k571 o|contracted procedure: k616 o|removed binding forms: 19 o|replaced variables: 2 o|removed binding forms: 2 o|customizable procedures: (loop1028 loop4765 loop85103) o|calls to known targets: 12 o|fast box initializations: 3 */ /* end of file */ �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/build-version.scm��������������������������������������������������������������������0000644�0001750�0001750�00000004326�13052306173�016303� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; build-version.scm ; ; Copyright (c) 2011-2017, 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)) (foreign-declare "#include \"buildtag.h\"") ;; (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 (file-exists? fn) (let ((ver (with-input-from-file (cadr x) read-line))) (if (or (eof-object? ver) (string=? ver "")) #f ver))))))) (define (##sys#build-tag) (foreign-value "C_BUILD_TAG" c-string)) (define ##sys#build-id (read-version "buildid")) (define ##sys#build-branch (read-version "buildbranch")) (define ##sys#build-version (read-version "buildversion")) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/banner.scm���������������������������������������������������������������������������0000644�0001750�0001750�00000000244�13052306173�014761� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; banner.scm (define-constant +product+ "CHICKEN") (define-constant +banner+ #<<EOF (c) 2008-2017, The CHICKEN Team (c) 2000-2007, Felix L. Winkelmann EOF ) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/setup-download.c���������������������������������������������������������������������0000644�0001750�0001750�00001332171�13052306524�016131� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from setup-download.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: setup-download.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -emit-import-library setup-download -output-file setup-download.c used units: library eval chicken_2dsyntax extras irregex posix utils srfi_2d1 data_2dstructures tcp srfi_2d13 files */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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_posix_toplevel) C_externimport void C_ccall C_posix_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_utils_toplevel) C_externimport void C_ccall C_utils_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_srfi_2d1_toplevel) C_externimport void C_ccall C_srfi_2d1_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_tcp_toplevel) C_externimport void C_ccall C_tcp_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_srfi_2d13_toplevel) C_externimport void C_ccall C_srfi_2d13_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_files_toplevel) C_externimport void C_ccall C_files_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[259]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,34),40,115,101,116,117,112,45,100,111,119,110,108,111,97,100,35,100,32,102,115,116,114,49,53,55,32,97,114,103,115,49,53,56,41,0,0,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,40),40,115,101,116,117,112,45,100,111,119,110,108,111,97,100,35,103,101,116,45,116,101,109,112,111,114,97,114,121,45,100,105,114,101,99,116,111,114,121,41}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,57),40,115,101,116,117,112,45,100,111,119,110,108,111,97,100,35,101,120,105,115,116,105,110,103,45,118,101,114,115,105,111,110,32,101,103,103,49,54,57,32,118,101,114,115,105,111,110,49,55,48,32,118,115,49,55,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,7),40,97,49,53,54,48,41,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,52,53,32,103,51,53,50,51,53,56,41,0,0,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,18),40,97,49,55,51,57,32,103,51,51,56,51,51,57,51,52,48,41,0,0,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,33),40,97,49,53,57,55,32,115,114,99,50,56,51,50,56,52,50,57,48,32,118,101,114,50,56,53,50,56,54,50,57,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,59),40,115,101,116,117,112,45,100,111,119,110,108,111,97,100,35,108,111,99,97,116,101,45,101,103,103,47,108,111,99,97,108,32,101,103,103,50,54,48,32,100,105,114,50,54,49,32,46,32,116,109,112,50,53,57,50,54,50,41,0,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,7),40,97,49,56,51,54,41,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,7),40,97,49,56,57,52,41,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,13),40,97,49,56,56,56,32,101,120,51,56,53,41,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,7),40,97,49,57,48,57,41,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,7),40,97,49,57,50,49,41,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,20),40,97,49,57,49,53,32,46,32,97,114,103,115,51,55,57,51,56,55,41,0,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,7),40,97,49,57,48,51,41,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,15),40,97,49,56,56,50,32,107,51,55,56,51,56,52,41,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,17),40,97,49,56,53,55,32,114,101,116,117,114,110,51,55,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,37),40,97,49,56,52,50,32,108,111,99,51,54,55,51,54,56,51,55,49,32,118,101,114,115,105,111,110,51,54,57,51,55,48,51,55,50,41,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,14),40,97,49,56,51,48,32,101,103,103,51,54,54,41,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,46),40,115,101,116,117,112,45,100,111,119,110,108,111,97,100,35,103,97,116,104,101,114,45,101,103,103,45,105,110,102,111,114,109,97,116,105,111,110,32,100,105,114,51,54,52,41,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,66),40,115,101,116,117,112,45,100,111,119,110,108,111,97,100,35,109,97,107,101,45,115,118,110,45,108,115,45,99,109,100,32,117,97,114,103,51,57,51,32,112,97,114,103,51,57,52,32,112,110,97,109,51,57,53,32,116,109,112,51,57,50,51,57,54,41,0,0,0,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,7),40,97,50,50,53,48,41,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,37),40,97,50,50,55,56,32,102,105,108,101,100,105,114,53,50,57,53,51,48,53,51,52,32,118,101,114,53,51,49,53,51,50,53,51,53,41,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,12),40,97,50,51,52,52,32,102,53,50,55,41,0,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,58),40,115,101,116,117,112,45,100,111,119,110,108,111,97,100,35,108,111,99,97,116,101,45,101,103,103,47,115,118,110,32,101,103,103,53,48,53,32,114,101,112,111,53,48,54,32,46,32,116,109,112,53,48,52,53,48,55,41,0,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,39),40,115,101,116,117,112,45,100,111,119,110,108,111,97,100,35,100,101,99,111,110,115,116,114,117,99,116,45,117,114,108,32,117,114,108,53,53,48,41,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,7),40,97,50,53,49,48,41,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,7),40,97,50,53,53,50,41,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,14),40,97,50,53,52,54,32,101,120,110,54,48,52,41,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,7),40,97,51,49,55,52,41,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,11),40,103,55,50,53,32,109,55,50,55,41,0,0,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,6),40,115,107,105,112,41,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,7),40,97,51,49,52,55,41,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,20),40,103,101,116,45,102,105,108,101,115,32,102,105,108,101,115,55,52,51,41,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,32),40,97,51,49,56,48,32,105,110,55,55,56,55,55,57,55,56,50,32,111,117,116,55,56,48,55,56,49,55,56,51,41}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,7),40,97,50,53,55,48,41,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,7),40,97,50,53,57,50,41,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,20),40,97,50,53,56,54,32,46,32,97,114,103,115,53,57,56,54,49,51,41,0,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,7),40,97,50,53,54,52,41,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,15),40,97,50,53,52,48,32,107,53,57,55,54,48,51,41,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,31),40,97,50,53,49,54,32,104,111,115,116,53,56,55,32,112,111,114,116,53,56,56,32,108,111,99,110,53,56,57,41,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,58),40,115,101,116,117,112,45,100,111,119,110,108,111,97,100,35,108,111,99,97,116,101,45,101,103,103,47,104,116,116,112,32,101,103,103,53,54,54,32,117,114,108,53,54,55,32,46,32,116,109,112,53,54,53,53,54,56,41,0,0,0,0,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,7),40,97,50,55,53,48,41,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,7),40,97,50,55,53,51,41,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,7),40,97,50,55,53,54,41,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,7),40,97,50,55,53,57,41,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,78),40,115,101,116,117,112,45,100,111,119,110,108,111,97,100,35,109,97,107,101,45,72,84,84,80,45,71,69,84,47,49,46,49,32,108,111,99,97,116,105,111,110,54,50,51,32,117,115,101,114,45,97,103,101,110,116,54,50,52,32,104,111,115,116,54,50,53,32,116,109,112,54,50,50,54,50,54,41,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,53),40,115,101,116,117,112,45,100,111,119,110,108,111,97,100,35,114,101,115,112,111,110,115,101,45,109,97,116,99,104,45,99,111,100,101,63,32,109,114,115,112,54,51,56,32,99,111,100,101,54,51,57,41,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,7),40,97,50,56,48,54,41,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,20),40,103,101,116,45,99,104,117,110,107,115,32,100,97,116,97,56,50,48,41,0,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,7),40,97,50,57,48,48,41,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,36),40,97,50,57,48,54,32,105,110,112,120,54,56,50,54,56,51,54,56,54,32,111,117,116,112,120,54,56,52,54,56,53,54,56,55,41,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,32),40,97,50,56,50,48,32,105,110,54,54,53,54,54,54,54,55,53,32,111,117,116,54,54,55,54,54,56,54,55,54,41}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,100),40,115,101,116,117,112,45,100,111,119,110,108,111,97,100,35,104,116,116,112,45,99,111,110,110,101,99,116,32,104,111,115,116,54,52,52,32,112,111,114,116,54,52,53,32,108,111,99,110,54,52,54,32,112,114,111,120,121,45,104,111,115,116,54,52,55,32,112,114,111,120,121,45,112,111,114,116,54,52,56,32,112,114,111,120,121,45,117,115,101,114,45,112,97,115,115,54,52,57,41,0,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,39),40,115,101,116,117,112,45,100,111,119,110,108,111,97,100,35,99,104,101,99,107,45,101,103,103,45,110,97,109,101,32,110,97,109,101,56,51,54,41,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,7),40,97,51,51,56,50,41,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,7),40,97,51,51,57,49,41,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,7),40,97,51,52,51,48,41,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,7),40,97,51,52,51,57,41,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,80),40,115,101,116,117,112,45,100,111,119,110,108,111,97,100,35,114,101,116,114,105,101,118,101,45,101,120,116,101,110,115,105,111,110,32,110,97,109,101,56,52,50,32,116,114,97,110,115,112,111,114,116,56,52,51,32,108,111,99,97,116,105,111,110,56,52,52,32,46,32,116,109,112,56,52,49,56,52,53,41}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,7),40,97,51,52,54,54,41,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,49,56,49,32,103,49,57,51,50,48,55,41,0,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,52,50,53,32,103,52,51,55,52,52,52,41,0,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,7),40,97,51,49,57,50,41,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,7),40,97,51,50,48,52,41,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,32),40,97,51,50,49,52,32,105,110,56,48,51,56,48,52,56,48,55,32,111,117,116,56,48,53,56,48,54,56,48,56,41}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,49),40,97,51,49,57,56,32,104,111,115,116,55,57,49,55,57,50,55,57,55,32,112,111,114,116,55,57,51,55,57,52,55,57,56,32,108,111,99,110,55,57,53,55,57,54,55,57,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,7),40,97,51,52,55,49,41,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,7),40,97,51,53,49,48,41,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,69),40,115,101,116,117,112,45,100,111,119,110,108,111,97,100,35,108,105,115,116,45,101,120,116,101,110,115,105,111,110,115,32,116,114,97,110,115,112,111,114,116,57,48,48,32,108,111,99,97,116,105,111,110,57,48,49,32,46,32,116,109,112,56,57,57,57,48,50,41,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,7),40,97,51,53,51,51,41,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,50,50,51,32,103,50,51,53,50,52,57,41,0,0,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,52,55,53,32,103,52,56,55,52,57,52,41,0,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,7),40,97,51,53,51,56,41,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,7),40,97,51,53,54,54,41,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,85),40,115,101,116,117,112,45,100,111,119,110,108,111,97,100,35,108,105,115,116,45,101,120,116,101,110,115,105,111,110,45,118,101,114,115,105,111,110,115,32,110,97,109,101,57,51,48,32,116,114,97,110,115,112,111,114,116,57,51,49,32,108,111,99,97,116,105,111,110,57,51,50,32,46,32,116,109,112,57,50,57,57,51,51,41,0,0,0}; static C_char C_TLS li77[] 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_1899) static void C_ccall f_1899(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_3225) static void C_ccall f_3225(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_3057) static void C_fcall f_3057(C_word t0,C_word t1,C_word t2) 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_1866) static void C_ccall f_1866(C_word c,C_word *av) C_noret; C_noret_decl(f3787) static void C_ccall f3787(C_word c,C_word *av) C_noret; C_noret_decl(f3783) static void C_ccall f3783(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_1709) static void C_ccall f_1709(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_1717) static void C_fcall f_1717(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2008) static void C_fcall f_2008(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3255) static void C_fcall f_3255(C_word t0,C_word t1,C_word t2) 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_2000) static void C_ccall f_2000(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_1553) static void C_ccall f_1553(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_2901) static void C_ccall f_2901(C_word c,C_word *av) C_noret; C_noret_decl(f_1727) static void C_ccall f_1727(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_3011) static void C_fcall f_3011(C_word t0,C_word t1) 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_2917) static void C_ccall f_2917(C_word c,C_word *av) C_noret; C_noret_decl(f_1740) static void C_ccall f_1740(C_word c,C_word *av) C_noret; C_noret_decl(f_1748) static void C_ccall f_1748(C_word c,C_word *av) C_noret; C_noret_decl(f_3205) static void C_ccall f_3205(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_2279) static void C_ccall f_2279(C_word c,C_word *av) C_noret; C_noret_decl(f_2286) static void C_ccall f_2286(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_1755) static void C_ccall f_1755(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_2937) static void C_ccall f_2937(C_word c,C_word *av) C_noret; C_noret_decl(f_2934) static void C_ccall f_2934(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_2930) static void C_ccall f_2930(C_word c,C_word *av) C_noret; C_noret_decl(f_2949) static void C_ccall f_2949(C_word c,C_word *av) 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_2943) static void C_ccall f_2943(C_word c,C_word *av) C_noret; C_noret_decl(f_1771) static void C_ccall f_1771(C_word c,C_word *av) C_noret; C_noret_decl(f_1777) static void C_ccall f_1777(C_word c,C_word *av) C_noret; C_noret_decl(f_3061) static void C_ccall f_3061(C_word c,C_word *av) 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_2955) static void C_ccall f_2955(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_1784) static void C_ccall f_1784(C_word c,C_word *av) C_noret; C_noret_decl(f_3070) static void C_fcall f_3070(C_word t0,C_word t1) 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_1977) static void C_ccall f_1977(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_2966) static void C_fcall f_2966(C_word t0,C_word t1) C_noret; C_noret_decl(f_1971) static void C_ccall f_1971(C_word c,C_word *av) C_noret; C_noret_decl(f_1974) static void C_ccall f_1974(C_word c,C_word *av) C_noret; C_noret_decl(f_2088) static void C_ccall f_2088(C_word c,C_word *av) C_noret; C_noret_decl(f_1980) static void C_ccall f_1980(C_word c,C_word *av) 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_3095) static void C_ccall f_3095(C_word c,C_word *av) C_noret; C_noret_decl(f_2091) static void C_ccall f_2091(C_word c,C_word *av) 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_2094) static void C_ccall f_2094(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_1287) static void C_ccall f_1287(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_1281) static void C_ccall f_1281(C_word c,C_word *av) C_noret; C_noret_decl(f_1299) static void C_ccall f_1299(C_word c,C_word *av) C_noret; C_noret_decl(f_1296) static void C_ccall f_1296(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_1290) static void C_ccall f_1290(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_1487) static void C_fcall f_1487(C_word t0,C_word t1,C_word t2) 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_2203) static void C_ccall f_2203(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_2231) static void C_ccall f_2231(C_word c,C_word *av) C_noret; C_noret_decl(f_2237) static void C_ccall f_2237(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_2243) static void C_ccall f_2243(C_word c,C_word *av) C_noret; C_noret_decl(f_2240) static void C_ccall f_2240(C_word c,C_word *av) C_noret; C_noret_decl(f_2246) static void C_ccall f_2246(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_3511) static void C_ccall f_3511(C_word c,C_word *av) C_noret; C_noret_decl(f_2119) static void C_ccall f_2119(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_3529) static void C_ccall f_3529(C_word c,C_word *av) C_noret; C_noret_decl(f_2587) static void C_ccall f_2587(C_word c,C_word *av) 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_1681) static void C_ccall f_1681(C_word c,C_word *av) C_noret; C_noret_decl(f_2265) static void C_ccall f_2265(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_2129) static void C_ccall f_2129(C_word c,C_word *av) C_noret; C_noret_decl(f_2123) static void C_ccall f_2123(C_word c,C_word *av) C_noret; C_noret_decl(f_3431) static void C_ccall f_3431(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_1691) static void C_ccall f_1691(C_word c,C_word *av) C_noret; C_noret_decl(f_1695) static void C_ccall f_1695(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_noret; C_noret_decl(f_3443) static void C_ccall f_3443(C_word c,C_word *av) C_noret; C_noret_decl(f_3440) static void C_ccall f_3440(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_3567) static void C_ccall f_3567(C_word c,C_word *av) C_noret; C_noret_decl(f_2167) static void C_ccall f_2167(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_3534) static void C_ccall f_3534(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_1384) static void C_ccall f_1384(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_2979) static void C_ccall f_2979(C_word c,C_word *av) C_noret; C_noret_decl(f_3383) static void C_ccall f_3383(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_3378) static void C_ccall f_3378(C_word c,C_word *av) C_noret; C_noret_decl(f_2985) static void C_ccall f_2985(C_word c,C_word *av) C_noret; C_noret_decl(f_2989) static void C_fcall f_2989(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2432) static void C_ccall f_2432(C_word c,C_word *av) C_noret; C_noret_decl(f_2436) static void C_ccall f_2436(C_word c,C_word *av) C_noret; C_noret_decl(f_3467) static void C_ccall f_3467(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_2993) static void C_ccall f_2993(C_word c,C_word *av) C_noret; C_noret_decl(f_2449) static void C_ccall f_2449(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_2452) static void C_ccall f_2452(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_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_1904) static void C_ccall f_1904(C_word c,C_word *av) C_noret; C_noret_decl(f_2469) static void C_ccall f_2469(C_word c,C_word *av) 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_2343) static void C_ccall f_2343(C_word c,C_word *av) C_noret; C_noret_decl(f_2345) static void C_ccall f_2345(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_3392) static void C_ccall f_3392(C_word c,C_word *av) C_noret; C_noret_decl(f_1423) static void C_fcall f_1423(C_word t0,C_word t1,C_word t2) 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_1916) static void C_ccall f_1916(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_1928) static void C_fcall f_1928(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_2517) static void C_ccall f_2517(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_2802) static void C_ccall f_2802(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_2807) static void C_ccall f_2807(C_word c,C_word *av) C_noret; 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_3372) static void C_ccall f_3372(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_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_2611) static void C_ccall f_2611(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_1344) static void C_ccall f_1344(C_word c,C_word *av) C_noret; C_noret_decl(f_2421) static void C_fcall f_2421(C_word t0,C_word t1) C_noret; C_noret_decl(f_2425) static void C_ccall f_2425(C_word c,C_word *av) C_noret; C_noret_decl(f_2530) static void C_ccall f_2530(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_2309) static void C_ccall f_2309(C_word c,C_word *av) C_noret; C_noret_decl(f_1943) static void C_ccall f_1943(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_2821) static void C_ccall f_2821(C_word c,C_word *av) C_noret; C_noret_decl(f_1353) static void C_fcall f_1353(C_word t0) C_noret; C_noret_decl(f_1351) static void C_ccall f_1351(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_1357) static void C_ccall f_1357(C_word c,C_word *av) C_noret; C_noret_decl(f_2828) static void C_ccall f_2828(C_word c,C_word *av) C_noret; C_noret_decl(f_1461) static void C_ccall f_1461(C_word c,C_word *av) 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_1645) static void C_ccall f_1645(C_word c,C_word *av) C_noret; C_noret_decl(f_1648) static void C_ccall f_1648(C_word c,C_word *av) 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_2359) static void C_ccall f_2359(C_word c,C_word *av) C_noret; C_noret_decl(f_3193) static void C_ccall f_3193(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_2557) static void C_ccall f_2557(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_1657) static void C_ccall f_1657(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_2700) static void C_ccall f_2700(C_word c,C_word *av) C_noret; C_noret_decl(f_2565) static void C_ccall f_2565(C_word c,C_word *av) C_noret; C_noret_decl(f_2704) static void C_ccall f_2704(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_3175) static void C_ccall f_3175(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_2571) static void C_ccall f_2571(C_word c,C_word *av) C_noret; C_noret_decl(f_1593) static void C_ccall f_1593(C_word c,C_word *av) C_noret; C_noret_decl(f_2710) static void C_fcall f_2710(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_2575) static void C_ccall f_2575(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_2717) static void C_ccall f_2717(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_1608) static void C_fcall f_1608(C_word t0,C_word t1) C_noret; C_noret_decl(f_2319) static void C_ccall f_2319(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_noret; C_noret_decl(f_2313) static void C_ccall f_2313(C_word c,C_word *av) C_noret; C_noret_decl(f_1324) static void C_ccall f_1324(C_word c,C_word *av) C_noret; C_noret_decl(f_1321) static void C_ccall f_1321(C_word c,C_word *av) C_noret; C_noret_decl(f_2874) static void C_ccall f_2874(C_word c,C_word *av) C_noret; C_noret_decl(f_1327) static void C_ccall f_1327(C_word c,C_word *av) C_noret; C_noret_decl(f_2593) static void C_ccall f_2593(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_2880) static void C_ccall f_2880(C_word c,C_word *av) C_noret; C_noret_decl(f_1663) static void C_ccall f_1663(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_1669) static void C_ccall f_1669(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_1675) static void C_ccall f_1675(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_2541) static void C_ccall f_2541(C_word c,C_word *av) C_noret; C_noret_decl(f_2547) static void C_ccall f_2547(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_2831) static void C_ccall f_2831(C_word c,C_word *av) C_noret; C_noret_decl(f_1363) static void C_ccall f_1363(C_word c,C_word *av) C_noret; C_noret_decl(f_2837) static void C_ccall f_2837(C_word c,C_word *av) C_noret; C_noret_decl(f_2834) static void C_ccall f_2834(C_word c,C_word *av) C_noret; C_noret_decl(f_1366) static void C_ccall f_1366(C_word c,C_word *av) C_noret; C_noret_decl(f_1368) static void C_fcall f_1368(C_word t0,C_word t1,C_word t2,C_word t3) 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_2775) static void C_fcall f_2775(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2840) static void C_ccall f_2840(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_2849) static void C_ccall f_2849(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_2846) static void C_ccall f_2846(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_3333) static void C_ccall f_3333(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_2786) static void C_ccall f_2786(C_word c,C_word *av) C_noret; C_noret_decl(f_2858) static void C_ccall f_2858(C_word c,C_word *av) C_noret; C_noret_decl(f_1305) static void C_ccall f_1305(C_word c,C_word *av) C_noret; C_noret_decl(f_1302) static void C_ccall f_1302(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_2798) static void C_fcall f_2798(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_2790) static void C_ccall f_2790(C_word c,C_word *av) C_noret; C_noret_decl(f_2861) static void C_ccall f_2861(C_word c,C_word *av) C_noret; C_noret_decl(f_1314) static void C_ccall f_1314(C_word c,C_word *av) C_noret; C_noret_decl(f_1311) static void C_ccall f_1311(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_2864) static void C_ccall f_2864(C_word c,C_word *av) C_noret; C_noret_decl(f_1317) static void C_ccall f_1317(C_word c,C_word *av) C_noret; C_noret_decl(f_2723) static void C_ccall f_2723(C_word c,C_word *av) C_noret; C_noret_decl(f_2720) static void C_ccall f_2720(C_word c,C_word *av) C_noret; C_noret_decl(f_2739) static void C_ccall f_2739(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(f_2743) static void C_ccall f_2743(C_word c,C_word *av) 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_3300) static void C_ccall f_3300(C_word c,C_word *av) C_noret; C_noret_decl(f_2751) static void C_ccall f_2751(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_3135) static void C_ccall f_3135(C_word c,C_word *av) C_noret; C_noret_decl(f_2757) static void C_ccall f_2757(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_2754) static void C_ccall f_2754(C_word c,C_word *av) C_noret; C_noret_decl(f_3146) static void C_ccall f_3146(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_1837) static void C_ccall f_1837(C_word c,C_word *av) C_noret; C_noret_decl(f_3338) static void C_ccall f_3338(C_word c,C_word *av) C_noret; C_noret_decl(f_3235) static void C_ccall f_3235(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_3326) static void C_fcall f_3326(C_word t0,C_word t1) 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_1878) static void C_ccall f_1878(C_word c,C_word *av) C_noret; C_noret_decl(f_3243) static void C_ccall f_3243(C_word c,C_word *av) C_noret; C_noret_decl(f_3247) static void C_ccall f_3247(C_word c,C_word *av) C_noret; C_noret_decl(f_1843) static void C_ccall f_1843(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_1853) static void C_ccall f_1853(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_1523) static void C_ccall f_1523(C_word c,C_word *av) C_noret; C_noret_decl(f_1525) static void C_ccall f_1525(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_1575) static void C_ccall f_1575(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_3116) static void C_ccall f_3116(C_word c,C_word *av) 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_3110) static void C_ccall f_3110(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_3034) static void C_ccall f_3034(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_3126) static void C_ccall f_3126(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_3123) static void C_ccall f_3123(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_1889) static void C_ccall f_1889(C_word c,C_word *av) C_noret; C_noret_decl(f_1881) static void C_ccall f_1881(C_word c,C_word *av) 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_3215) static void C_ccall f_3215(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_3219) static void C_ccall f_3219(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(trf_3057) static void C_ccall trf_3057(C_word c,C_word *av) C_noret; static void C_ccall trf_3057(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3057(t0,t1,t2);} C_noret_decl(trf_1717) static void C_ccall trf_1717(C_word c,C_word *av) C_noret; static void C_ccall trf_1717(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1717(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_2008(t0,t1,t2);} C_noret_decl(trf_3255) static void C_ccall trf_3255(C_word c,C_word *av) C_noret; static void C_ccall trf_3255(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3255(t0,t1,t2);} C_noret_decl(trf_3011) static void C_ccall trf_3011(C_word c,C_word *av) C_noret; static void C_ccall trf_3011(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3011(t0,t1);} C_noret_decl(trf_3070) static void C_ccall trf_3070(C_word c,C_word *av) C_noret; static void C_ccall trf_3070(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3070(t0,t1);} 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[1]; C_word t1=av[0]; f_2966(t0,t1);} C_noret_decl(trf_1487) static void C_ccall trf_1487(C_word c,C_word *av) C_noret; static void C_ccall trf_1487(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1487(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_2131(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_2989(t0,t1,t2);} C_noret_decl(trf_1423) static void C_ccall trf_1423(C_word c,C_word *av) C_noret; static void C_ccall trf_1423(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1423(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[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_1928(t0,t1,t2,t3,t4);} 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_2421) static void C_ccall trf_2421(C_word c,C_word *av) C_noret; static void C_ccall trf_2421(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2421(t0,t1);} C_noret_decl(trf_1353) static void C_ccall trf_1353(C_word c,C_word *av) C_noret; static void C_ccall trf_1353(C_word c,C_word *av){ C_word t0=av[0]; f_1353(t0);} C_noret_decl(trf_2710) static void C_ccall trf_2710(C_word c,C_word *av) C_noret; static void C_ccall trf_2710(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_2710(t0,t1,t2,t3,t4);} 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[1]; C_word t1=av[0]; f_1608(t0,t1);} 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[1]; C_word t1=av[0]; f_2870(t0,t1);} C_noret_decl(trf_1368) static void C_ccall trf_1368(C_word c,C_word *av) C_noret; static void C_ccall trf_1368(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1368(t0,t1,t2,t3);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_2775(t0,t1,t2);} C_noret_decl(trf_2798) static void C_ccall trf_2798(C_word c,C_word *av) C_noret; static void C_ccall trf_2798(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_2798(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_3326) static void C_ccall trf_3326(C_word c,C_word *av) C_noret; static void C_ccall trf_3326(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3326(t0,t1);} /* k1897 in a1894 in a1888 in a1882 in k1864 in a1857 in k1851 in k1845 in a1842 in a1830 in k1824 in setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in ... */ static void C_ccall f_1899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1899,2,av);} C_trace("setup-download.scm:149: return"); t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a1894 in a1888 in a1882 in k1864 in a1857 in k1851 in k1845 in a1842 in a1830 in k1824 in setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ 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!=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_1895,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1899,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:146: warning"); t3=C_fast_retrieve(lf[25]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[52]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3223 in k3220 in k3217 in a3214 in a3198 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3225,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3220 in k3217 in a3214 in a3198 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3222,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3225,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:401: close-output-port"); t3=*((C_word*)lf[124]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in ... */ static void C_fcall f_3057(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_3057,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3061,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); C_trace("setup-download.scm:366: skip"); t4=((C_word*)((C_word*)t0)[7])[1]; f_2966(t4,t3);} /* a1560 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in ... */ 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!=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_1561,2,av);} a=C_alloc(6); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1572,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:103: make-pathname"); t3=C_fast_retrieve(lf[20]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1575,a[2]=t1,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_trace("setup-download.scm:104: make-pathname"); t3=C_fast_retrieve(lf[20]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[27]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k1864 in a1857 in k1851 in k1845 in a1842 in a1830 in k1824 in setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in ... */ static void C_ccall f_1866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1866,2,av);} a=C_alloc(17); t2=t1; t3=C_a_i_list2(&a,2,lf[51],((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1878,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1883,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li15),tmp=(C_word)a,a+=6,tmp); C_trace("setup-download.scm:144: call-with-current-continuation"); t7=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* f3787 in k2890 in k2878 in k2872 in loop in k2844 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in ... */ static void C_ccall f3787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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 *)f3787,2,av);} C_trace("setup-download.scm:332: loop"); t2=((C_word*)((C_word*)t0)[2])[1]; f_2870(t2,((C_word*)t0)[3]);} /* f3783 in k2890 in k2878 in k2872 in loop in k2844 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in ... */ static void C_ccall f3783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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 *)f3783,2,av);} C_trace("setup-download.scm:332: loop"); t2=((C_word*)((C_word*)t0)[2])[1]; f_2870(t2,((C_word*)t0)[3]);} /* k1702 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ 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 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_1704,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_1717,a[2]=t3,a[3]=((C_word)li4),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_1717(t5,((C_word*)t0)[2],t1);} /* k1707 in for-each-loop345 in k1702 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ static void C_ccall f_1709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1709,2,av);} C_trace("setup-download.scm:129: delete-file*"); t2=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1582 in k1576 in k1573 in a1560 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1584,2,av);} if(C_truep(t1)){ C_trace("setup-download.scm:107: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[21]; C_values(4,av2);}} else{ C_trace("setup-download.scm:108: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[22]; C_values(4,av2);}}} /* for-each-loop345 in k1702 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in ... */ static void C_fcall f_1717(C_word t0,C_word t1,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_1717,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_1727,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_1709,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:128: d"); f_1337(t7,lf[44],C_a_i_list(&a,1,t6));} 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);}}} /* map-loop425 in k1998 in k1978 in k1975 in k1972 in k1969 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ static void C_fcall f_2008(C_word t0,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_2008,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_2033,a[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_1996,a[2]=t5,tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:166: string-chomp"); t7=C_fast_retrieve(lf[222]);{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=t4; av2[3]=lf[223]; ((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);}}} /* get-chunks in k2856 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in ... */ static void C_fcall f_3255(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_3255,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3300,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); C_trace("setup-download.scm:415: read-line"); t4=C_fast_retrieve(lf[115]);{ 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);}} /* k2004 in k1998 in k1978 in k1975 in k1972 in k1969 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2006,2,av);} C_trace("setup-download.scm:165: string-concatenate"); t2=C_fast_retrieve(lf[217]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1998 in k1978 in k1975 in k1972 in k1969 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in ... */ 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 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_2000,2,av);} a=C_alloc(11); t2=C_i_check_list_2(t1,lf[219]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2006,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_2008,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],a[5]=((C_word)li63),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_2008(t7,t3,t1);} /* k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ 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; 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,4)))){ C_save_and_reclaim((void *)f_1556,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1561,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li3),tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1598,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[4],a[5]=((C_word)li6),tmp=(C_word)a,a+=6,tmp); C_trace("setup-download.scm:94: ##sys#call-with-values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[8]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ 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; 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_1553,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1556,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); if(C_truep(((C_word*)t0)[8])){ C_trace("setup-download.scm:100: make-pathname"); t4=C_fast_retrieve(lf[20]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_1556(2,av2);}}} /* k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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; C_word t3; 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_1550,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1553,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_retrieve2(lf[2],"setup-download#\052trunk\052"); if(C_truep(C_retrieve2(lf[2],"setup-download#\052trunk\052"))){ t5=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_1553(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1771,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); C_trace("setup-download.scm:98: file-exists?"); t6=C_fast_retrieve(lf[24]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* a2900 in k2894 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in ... */ 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; 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_2901,2,av);} C_trace("setup-download.scm:317: tcp-connect"); t2=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1725 in for-each-loop345 in k1702 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ static void C_ccall f_1727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1727,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1717(t3,((C_word*)t0)[4],t2);} /* a2906 in k2894 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 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=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(34,c,5)))){ C_save_and_reclaim((void *)f_2907,4,av);} a=C_alloc(34); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t3); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2917,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:320: make-HTTP-GET/1.1"); f_2710(t6,((C_word*)t0)[4],C_retrieve2(lf[1],"setup-download#\052chicken-install-user-agent\052"),((C_word*)t0)[5],C_a_i_list(&a,10,lf[169],((C_word*)t0)[6],lf[166],lf[181],lf[143],((C_word*)t0)[7],lf[182],((C_word*)t0)[8],lf[144],((C_word*)t0)[9]));} /* k3009 in k2991 in g725 in k2983 in k2977 in k2968 in skip in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in ... */ static void C_fcall f_3011(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_3011,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3014,a[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_trace("setup-download.scm:353: warning"); t3=C_fast_retrieve(lf[25]);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=lf[108]; 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_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[5]); C_trace("setup-download.scm:357: open-input-string"); t3=C_fast_retrieve(lf[104]);{ 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);}}} /* k3012 in k3009 in k2991 in g725 in k2983 in k2977 in k2968 in skip in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3014,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); C_trace("setup-download.scm:357: open-input-string"); t3=C_fast_retrieve(lf[104]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2915 in a2906 in k2894 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2917,2,av);} C_trace("setup-download.scm:319: display"); t2=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1739 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ static void C_ccall f_1740(C_word c,C_word *av){ C_word tmp; C_word 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_1740,3,av);} t3=C_fast_retrieve(lf[45]); C_trace("setup-download.scm:125: g341"); t4=C_fast_retrieve(lf[45]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=lf[46]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k1746 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ static void C_ccall f_1748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1748,2,av);} C_trace("setup-download.scm:125: filter"); t2=C_fast_retrieve(lf[47]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3204 in a3198 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ static void C_ccall f_3205(C_word c,C_word *av){ 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,3)))){ C_save_and_reclaim((void *)f_3205,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3213,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],tmp=(C_word)a,a+=8,tmp); C_trace("setup-download.scm:397: string-append"); t3=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=lf[231]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2921 in k2894 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 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 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_2923,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_2846(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_2700,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2704,a[2]=t4,tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:259: make-property-condition"); t6=C_fast_retrieve(lf[118]);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t6; av2[1]=t5; av2[2]=lf[120]; av2[3]=lf[121]; av2[4]=lf[184]; av2[5]=lf[122]; av2[6]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(7,av2);}}} /* a2278 in k2244 in k2241 in k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in ... */ 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=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(13,c,3)))){ C_save_and_reclaim((void *)f_2279,4,av);} a=C_alloc(13); t4=t2; t5=t3; t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2283,a[2]=t1,a[3]=t5,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]=t4,tmp=(C_word)a,a+=9,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2336,a[2]=t6,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[6])){ C_trace("setup-download.scm:201: make-pathname"); t8=C_fast_retrieve(lf[20]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ C_trace("setup-download.scm:201: get-temporary-directory"); f_1353(t7);}} /* k2284 in k2281 in a2278 in k2244 in k2241 in k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in ... */ static void C_ccall f_2286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2286,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2289,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_trace("setup-download.scm:214: d"); f_1337(t3,lf[76],C_a_i_list(&a,1,t2));} /* k2281 in a2278 in k2244 in k2241 in k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ 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 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,6)))){ C_save_and_reclaim((void *)f_2283,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2286,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|6,a[1]=(C_word)f_2309,a[2]=t3,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); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2326,a[2]=t4,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); t6=C_eqp(C_retrieve2(lf[3],"setup-download#\052mode\052"),lf[80]); if(C_truep(t6)){ t7=((C_word*)t0)[6]; C_trace("setup-download.scm:220: conc"); t8=C_fast_retrieve(lf[65]);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t5; av2[2]=((C_word*)t0)[8]; av2[3]=C_make_character(47); av2[4]=t7; av2[5]=lf[81]; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}} else{ C_trace("setup-download.scm:204: conc"); t7=C_fast_retrieve(lf[65]);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t7; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=C_make_character(47); av2[4]=((C_word*)t0)[6]; av2[5]=C_make_character(47); av2[6]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t7+1)))(7,av2);}}} /* k1753 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in ... */ 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,1)))){ C_save_and_reclaim((void *)f_1755,2,av);} t2=((C_word*)t0)[2]; f_1608(t2,C_i_not(t1));} /* k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in ... */ 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; 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_1759,2,av);} a=C_alloc(10); t2=C_i_not(t1); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1608,a[2]=((C_word*)t0)[2],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_1608(t4,t2);} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1755,a[2]=t3,tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:109: directory?"); t5=C_fast_retrieve(lf[23]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k2935 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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 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_2937,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[32]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2943,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); C_trace("setup-download.scm:301: ##sys#print"); t6=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[192]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k2932 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_2934(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_2934,2,av);} a=C_alloc(9); C_trace("setup-download.scm:299: d"); f_1337(((C_word*)t0)[2],lf[190],C_a_i_list(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t1));} /* k2287 in k2284 in k2281 in a2278 in k2244 in k2241 in k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ 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; 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_2289,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2305,a[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_trace("setup-download.scm:215: system"); t3=C_fast_retrieve(lf[30]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2928 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2930,2,av);} C_trace("setup-download.scm:305: display"); t2=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2947 in k2944 in k2941 in k2935 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ static void C_ccall f_2949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2949,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2952,a[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_trace("setup-download.scm:301: ##sys#print"); t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2944 in k2941 in k2935 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ 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 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_2946,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2949,a[2]=((C_word*)t0)[2],a[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_trace("setup-download.scm:301: ##sys#write-char-0"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[35]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[35]+1); av2[1]=t2; av2[2]=C_make_character(58); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k2941 in k2935 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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(6,c,4)))){ C_save_and_reclaim((void *)f_2943,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2946,a[2]=((C_word*)t0)[2],a[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_trace("setup-download.scm:301: ##sys#print"); t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1769 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ static void C_ccall f_1771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1771,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1777,a[2]=((C_word*)t0)[2],a[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_trace("setup-download.scm:98: directory?"); t3=C_fast_retrieve(lf[23]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_1553(2,av2);}}} /* k1775 in k1769 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ static void C_ccall f_1777(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1777,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1784,a[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_trace("setup-download.scm:99: directory"); t3=C_fast_retrieve(lf[48]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_1553(2,av2);}}} /* k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in ... */ static void C_ccall f_3061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3061,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3064,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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_trace("setup-download.scm:367: read"); t4=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3062 in k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in ... */ 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; 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_3064,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3070,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_3070(t5,C_eqp(lf[15],t4));} else{ t4=t3; f_3070(t4,C_SCHEME_FALSE);}} /* k2953 in k2950 in k2947 in k2944 in k2941 in k2935 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2955,2,av);} C_trace("setup-download.scm:301: get-output-string"); t2=C_fast_retrieve(lf[33]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2950 in k2947 in k2944 in k2941 in k2935 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2952,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2955,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:301: ##sys#print"); t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[191]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k1782 in k1775 in k1769 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in ... */ 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,4)))){ C_save_and_reclaim((void *)f_1784,2,av);} C_trace("setup-download.scm:99: existing-version"); f_1368(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k3068 in k3062 in k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in ... */ static void C_fcall f_3070(C_word t0,C_word t1){ C_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(10,0,3)))){ C_save_and_reclaim_args((void *)trf_3070,2,t0,t1);} a=C_alloc(10); 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_3235,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3239,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3247,a[2]=t8,a[3]=t6,tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:409: string-append"); t10=*((C_word*)lf[68]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t9; av2[2]=lf[123]; 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_3092,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_trace("setup-download.scm:371: close-input-port"); t5=*((C_word*)lf[125]+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{ if(C_truep(C_i_stringp(((C_word*)t0)[2]))){ t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3110,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); C_trace("setup-download.scm:376: string-suffix?"); t5=C_fast_retrieve(lf[45]);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=lf[132]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ C_trace("setup-download.scm:375: error"); t4=*((C_word*)lf[15]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[133]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}}} /* k2169 in k2089 in k2086 in a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2171,2,av);} C_trace("setup-download.scm:172: make-pathname"); t2=C_fast_retrieve(lf[20]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1975 in k1972 in k1969 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in ... */ static void C_ccall f_1977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1977,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1980,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:164: d"); f_1337(t3,lf[224],C_a_i_list(&a,1,t2));} /* k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in ... */ 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 t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_2964,2,av);} a=C_alloc(21); 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|5,a[1]=(C_word)f_2966,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word)li31),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|8,a[1]=(C_word)f_3057,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,a[8]=((C_word)li33),tmp=(C_word)a,a+=9,tmp)); t10=((C_word*)t8)[1]; f_3057(t10,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* skip in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in ... */ static void C_fcall f_2966(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_2966,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2970,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:344: read-line"); t3=C_fast_retrieve(lf[115]);{ 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);}} /* k1969 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ static void C_ccall f_1971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1971,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1974,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])){ C_trace("setup-download.scm:162: string-append"); t4=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[225]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[226]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[227]; f_1974(2,av2);}}} /* k1972 in k1969 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ static void C_ccall f_1974(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1974,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1977,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:163: make-svn-ls-cmd"); f_1928(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_SCHEME_END_OF_LIST);} /* k2086 in a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ static void C_ccall f_2088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2088,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2091,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_word*)t0)[5])){ C_trace("setup-download.scm:171: string-append"); t4=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[243]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[244]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[245]; f_2091(2,av2);}}} /* k1978 in k1975 in k1972 in k1969 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in ... */ static void C_ccall f_1980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1980,2,av);} a=C_alloc(10); 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_2000,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t5,tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:167: with-input-from-pipe"); t7=C_fast_retrieve(lf[85]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[3]; av2[3]=C_fast_retrieve(lf[86]); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k3090 in k3068 in k3062 in k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 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(4,c,2)))){ C_save_and_reclaim((void *)f_3092,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3095,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:372: close-output-port"); t3=*((C_word*)lf[124]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3093 in k3090 in k3068 in k3062 in k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3095,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2089 in k2086 in a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in ... */ static void C_ccall f_2091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_2091,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2094,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2167,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2171,a[2]=t4,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:172: string-append"); t6=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=lf[242]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k2095 in k2092 in k2089 in k2086 in a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in ... */ 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 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_2097,2,av);} a=C_alloc(10); if(C_truep(C_i_nullp(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[239]; ((C_proc)(void*)(*((C_word*)t2+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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2123,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t5,tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:178: with-input-from-pipe"); t7=C_fast_retrieve(lf[85]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[3]; av2[3]=C_fast_retrieve(lf[86]); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k2092 in k2089 in k2086 in a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in ... */ static void C_ccall f_2094(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2094,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2097,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:173: with-input-from-pipe"); t4=C_fast_retrieve(lf[85]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_fast_retrieve(lf[86]); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k1994 in map-loop425 in k1998 in k1978 in k1975 in k1972 in k1969 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 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);} C_trace("##sys#string-append"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[220]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[220]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[221]; tp(4,av2);}} /* k1285 in k1282 in k1279 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1287,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1290,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k1282 in k1279 */ 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(3,c,2)))){ C_save_and_reclaim((void *)f_1284,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1287,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k1279 */ 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(3,c,2)))){ C_save_and_reclaim((void *)f_1281,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1284,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_1299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1299,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1302,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d1_toplevel(2,av2);}} /* k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_1296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1296,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1299,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_utils_toplevel(2,av2);}} /* k1291 in k1288 in k1285 in k1282 in k1279 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1293,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1296,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_posix_toplevel(2,av2);}} /* k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_1290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1290,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1293,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_irregex_toplevel(2,av2);}} /* k1483 in k1480 in k1465 in k1459 in a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1485,2,av);} C_trace("setup-download.scm:90: string-concatenate"); t2=C_fast_retrieve(lf[217]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop223 in k1480 in k1465 in k1459 in a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in ... */ static void C_fcall f_1487(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_1487,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_1512,a[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_trace("setup-download.scm:91: g246"); t5=*((C_word*)lf[68]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=lf[235]; ((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);}}} /* k1480 in k1465 in k1459 in a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in ... */ 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 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_1482,2,av);} a=C_alloc(11); 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); 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_1487,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word)li72),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_1487(t6,t2,t1);} /* setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_2203(C_word c,C_word *av){ C_word tmp; C_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 +8,c,4)))){ C_save_and_reclaim((void*)f_2203,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; 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_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=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=t20; t22=C_i_nullp(t18); t23=(C_truep(t22)?C_SCHEME_END_OF_LIST:C_i_cdr(t18)); t24=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2231,a[2]=t2,a[3]=t7,a[4]=t3,a[5]=t12,a[6]=t1,a[7]=t21,tmp=(C_word)a,a+=8,tmp); if(C_truep(t16)){ C_trace("setup-download.scm:181: string-append"); t25=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t25; av2[1]=t24; av2[2]=lf[91]; av2[3]=t16; av2[4]=lf[92]; ((C_proc)(void*)(*((C_word*)t25+1)))(5,av2);}} else{ t25=t24;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t25; av2[1]=lf[93]; f_2231(2,av2);}}} /* a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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 *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,5)))){ C_save_and_reclaim((void *)f_3472,2,av);} a=C_alloc(11); t2=((C_word*)t0)[2]; t3=C_eqp(t2,lf[210]); if(C_truep(t3)){ t4=t1; t5=((C_word*)t0)[3]; 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_1418,a[2]=t4,a[3]=t8,a[4]=t9,tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:85: directory"); t11=C_fast_retrieve(lf[48]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t4=C_eqp(t2,lf[211]); if(C_truep(t4)){ t5=t1; t6=((C_word*)t0)[3]; t7=C_a_i_list(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]); 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=t13; t15=C_i_nullp(t11); t16=(C_truep(t15)?C_SCHEME_END_OF_LIST:C_i_cdr(t11)); t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1971,a[2]=t5,a[3]=t6,a[4]=t14,tmp=(C_word)a,a+=5,tmp); if(C_truep(t9)){ C_trace("setup-download.scm:161: string-append"); t18=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t18; av2[1]=t17; av2[2]=lf[228]; av2[3]=t9; av2[4]=lf[229]; ((C_proc)(void*)(*((C_word*)t18+1)))(5,av2);}} else{ t18=t17;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=lf[230]; f_1971(2,av2);}}} else{ t5=C_eqp(t2,lf[212]); if(C_truep(t5)){ t6=t1; t7=((C_word*)t0)[3]; t8=((C_word*)t0)[6]; t9=((C_word*)t0)[7]; t10=((C_word*)t0)[8]; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3193,a[2]=t7,a[3]=((C_word)li64),tmp=(C_word)a,a+=4,tmp); t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3199,a[2]=t8,a[3]=t9,a[4]=t10,a[5]=((C_word)li67),tmp=(C_word)a,a+=6,tmp); C_trace("setup-download.scm:392: ##sys#call-with-values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t6; av2[2]=t11; av2[3]=t12; C_call_with_values(4,av2);}} else{ C_trace("setup-download.scm:466: error"); t6=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t1; av2[2]=lf[233]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}} /* k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_2231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2231,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2234,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])){ C_trace("setup-download.scm:182: string-append"); t4=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[88]; av2[3]=((C_word*)t0)[7]; av2[4]=lf[89]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[90]; f_2234(2,av2);}}} /* k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ static void C_ccall f_2237(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2237,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2240,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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_trace("setup-download.scm:184: d"); f_1337(t3,lf[87],C_a_i_list(&a,1,t2));} /* k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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; 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_2234,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2237,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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2359,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:183: make-pathname"); t5=C_fast_retrieve(lf[20]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k2241 in k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in ... */ 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 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_2243,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2246,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|4,a[1]=(C_word)f_2343,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2345,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:188: filter-map"); t6=C_fast_retrieve(lf[60]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ static void C_ccall f_2240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2240,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2243,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_trace("setup-download.scm:185: with-input-from-pipe"); t3=C_fast_retrieve(lf[85]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; av2[3]=C_fast_retrieve(lf[86]); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2244 in k2241 in k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in ... */ static void C_ccall f_2246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2246,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2251,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)li21),tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2279,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)[8],a[7]=((C_word)li22),tmp=(C_word)a,a+=8,tmp); C_trace("setup-download.scm:185: ##sys#call-with-values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[9]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a2250 in k2244 in k2241 in k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 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 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(4,c,4)))){ C_save_and_reclaim((void *)f_2251,2,av);} a=C_alloc(4); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2262,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:195: string-append"); t3=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[69]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2265,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[4]; if(C_truep(((C_word*)t0)[5])){ C_trace("setup-download.scm:82: warning"); t4=C_fast_retrieve(lf[25]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[26]; av2[3]=t3; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ if(C_truep(C_i_member(lf[70],((C_word*)t0)[3]))){ C_trace("setup-download.scm:199: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=lf[71]; av2[3]=lf[72]; C_values(4,av2);}} else{ C_trace("setup-download.scm:200: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=lf[73]; av2[3]=lf[74]; C_values(4,av2);}}}}} /* a3510 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_3511(C_word c,C_word *av){ C_word tmp; 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_3511,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_retrieve2(lf[0],"setup-download#\052quiet\052")); t3=C_mutate2(&lf[0] /* (set! setup-download#*quiet* ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2117 in map-loop475 in k2121 in k2095 in k2092 in k2089 in k2086 in a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ static void C_ccall f_2119(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2119,2,av);} C_trace("##sys#string-append"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[220]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[220]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[240]; tp(4,av2);}} /* setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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 *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 +9,c,2)))){ C_save_and_reclaim((void*)f_3516,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; t6=C_i_get_keyword(lf[203],t5,C_SCHEME_FALSE); t7=t6; t8=C_i_get_keyword(lf[205],t5,C_SCHEME_FALSE); t9=t8; t10=C_i_get_keyword(lf[206],t5,C_SCHEME_FALSE); t11=t10; t12=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3529,a[2]=t7,a[3]=t3,a[4]=t2,a[5]=t4,a[6]=t9,a[7]=t11,a[8]=t1,tmp=(C_word)a,a+=9,tmp); C_trace("setup-download.scm:469: check-egg-name"); f_3326(t12,t2);} /* k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_3529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,4)))){ C_save_and_reclaim((void *)f_3529,2,av);} a=C_alloc(22); 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_3534,a[2]=t5,a[3]=t3,a[4]=((C_word)li71),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3539,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)li74),tmp=(C_word)a,a+=8,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3567,a[2]=t3,a[3]=t5,a[4]=((C_word)li75),tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:470: ##sys#dynamic-wind"); t9=*((C_word*)lf[214]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a2586 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in ... */ static void C_ccall f_2587(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_2587,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_2593,a[2]=t2,a[3]=((C_word)li36),tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:248: k597"); t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k2260 in a2250 in k2244 in k2241 in k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2262,2,av);} C_trace("setup-download.scm:195: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1679 in k1676 in k1673 in k1667 in k1621 in k1618 in k1615 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in ... */ static void C_ccall f_1681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1681,2,av);} a=C_alloc(4); t2=(*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); C_trace("setup-download.scm:117: ##sys#print"); t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2263 in a2250 in k2244 in k2241 in k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ static void C_ccall f_2265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2265,2,av);} if(C_truep(C_i_member(lf[70],((C_word*)t0)[2]))){ C_trace("setup-download.scm:199: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=lf[71]; av2[3]=lf[72]; C_values(4,av2);}} else{ C_trace("setup-download.scm:200: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=lf[73]; av2[3]=lf[74]; C_values(4,av2);}}} /* k1682 in k1679 in k1676 in k1673 in k1667 in k1621 in k1618 in k1615 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1684,2,av);} C_trace("setup-download.scm:117: get-output-string"); t2=C_fast_retrieve(lf[33]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2127 in k2121 in k2095 in k2092 in k2089 in k2086 in a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in ... */ static void C_ccall f_2129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2129,2,av);} C_trace("setup-download.scm:176: string-concatenate"); t2=C_fast_retrieve(lf[217]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2121 in k2095 in k2092 in k2089 in k2086 in a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ static void C_ccall f_2123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2123,2,av);} a=C_alloc(11); t2=C_i_check_list_2(t1,lf[219]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2129,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_2131,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],a[5]=((C_word)li73),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_2131(t7,t3,t1);} /* a3430 in k3376 in k3370 in setup-download#retrieve-extension in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ static void C_ccall f_3431(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3431,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_retrieve2(lf[0],"setup-download#\052quiet\052")); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,C_retrieve2(lf[2],"setup-download#\052trunk\052")); t4=C_mutate2(((C_word *)((C_word*)t0)[4])+1,C_retrieve2(lf[3],"setup-download#\052mode\052")); t5=C_mutate2(&lf[0] /* (set! setup-download#*quiet* ...) */,((C_word*)((C_word*)t0)[5])[1]); t6=C_mutate2(&lf[2] /* (set! setup-download#*trunk* ...) */,((C_word*)((C_word*)t0)[6])[1]); t7=C_mutate2(&lf[3] /* (set! setup-download#*mode* ...) */,((C_word*)((C_word*)t0)[7])[1]); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k1696 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1698,2,av);} C_trace("setup-download.scm:131: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1689 in k1618 in k1615 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1691,2,av);} C_trace("setup-download.scm:114: qs"); t2=C_fast_retrieve(lf[40]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1693 in k1615 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in ... */ static void C_ccall f_1695(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1695,2,av);} C_trace("setup-download.scm:113: qs"); t2=C_fast_retrieve(lf[40]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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-loop475 in k2121 in k2095 in k2092 in k2089 in k2086 in a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in ... */ static void C_fcall f_2131(C_word t0,C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_2131,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_2156,a[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_2119,a[2]=t5,tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:177: string-chomp"); t7=C_fast_retrieve(lf[222]);{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=t4; av2[3]=lf[241]; ((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);}}} /* setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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=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 +24,c,4)))){ C_save_and_reclaim((void*)f_3443,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+24); 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; t5=C_i_get_keyword(lf[203],t4,C_SCHEME_FALSE); t6=C_i_get_keyword(lf[205],t4,C_SCHEME_FALSE); t7=t6; t8=C_i_get_keyword(lf[206],t4,C_SCHEME_FALSE); t9=t8; t10=C_i_get_keyword(lf[143],t4,C_SCHEME_FALSE); t11=t10; t12=C_i_get_keyword(lf[182],t4,C_SCHEME_FALSE); t13=t12; t14=C_i_get_keyword(lf[144],t4,C_SCHEME_FALSE); t15=t14; t16=t5; 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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3467,a[2]=t19,a[3]=t17,a[4]=((C_word)li61),tmp=(C_word)a,a+=5,tmp); t21=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3472,a[2]=t2,a[3]=t3,a[4]=t7,a[5]=t9,a[6]=t11,a[7]=t13,a[8]=t15,a[9]=((C_word)li68),tmp=(C_word)a,a+=10,tmp); t22=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3511,a[2]=t17,a[3]=t19,a[4]=((C_word)li69),tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:455: ##sys#dynamic-wind"); t23=*((C_word*)lf[214]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t23; av2[1]=t1; av2[2]=t20; av2[3]=t21; av2[4]=t22; ((C_proc)(void*)(*((C_word*)t23+1)))(5,av2);}} /* a3439 in setup-download#retrieve-extension in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_3440(C_word c,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_3440,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2154 in map-loop475 in k2121 in k2095 in k2092 in k2089 in k2086 in a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2156,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_2131(t6,((C_word*)t0)[5],t5);} /* a3566 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 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 *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_3567,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_retrieve2(lf[0],"setup-download#\052quiet\052")); t3=C_mutate2(&lf[0] /* (set! setup-download#*quiet* ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2165 in k2089 in k2086 in a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in ... */ static void C_ccall f_2167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2167,2,av);} C_trace("setup-download.scm:172: make-svn-ls-cmd"); f_1928(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1,C_SCHEME_END_OF_LIST);} /* a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 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; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(12,c,4)))){ C_save_and_reclaim((void *)f_3539,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2]; t3=C_eqp(t2,lf[210]); if(C_truep(t3)){ t4=t1; t5=((C_word*)t0)[3]; t6=((C_word*)t0)[4]; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1461,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1523,a[2]=t7,a[3]=t6,tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:88: string-append"); t9=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t8; av2[2]=t5; av2[3]=lf[238]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t4=C_eqp(t2,lf[211]); if(C_truep(t4)){ t5=t1; t6=((C_word*)t0)[3]; t7=((C_word*)t0)[4]; t8=C_a_i_list(&a,2,((C_word*)t0)[5],((C_word*)t0)[6]); 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_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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2088,a[2]=t5,a[3]=t7,a[4]=t6,a[5]=t15,tmp=(C_word)a,a+=6,tmp); if(C_truep(t10)){ C_trace("setup-download.scm:170: string-append"); t19=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t19; av2[1]=t18; av2[2]=lf[246]; av2[3]=t10; av2[4]=lf[247]; ((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}} else{ t19=t18;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t19; av2[1]=lf[248]; f_2088(2,av2);}}} else{ C_trace("setup-download.scm:477: error"); t5=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=lf[249]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* a3533 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 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 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_3534,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_retrieve2(lf[0],"setup-download#\052quiet\052")); t3=C_mutate2(&lf[0] /* (set! setup-download#*quiet* ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1446 in map-loop181 in k1416 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in ... */ 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 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_1448,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_1423(t6,((C_word*)t0)[5],t5);} /* k1382 in setup-download#existing-version in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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; 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_i_pairp(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_u_i_car(t1):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3572 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3574,2,av);} C_trace("setup-download.scm:54: conc"); t2=C_fast_retrieve(lf[65]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[252]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2977 in k2968 in skip in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2979,2,av);} a=C_alloc(6); if(C_truep(t1)){ C_trace("setup-download.scm:347: open-input-string"); t2=C_fast_retrieve(lf[104]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[105]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2985,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); C_trace("setup-download.scm:348: irregex-match"); t3=C_fast_retrieve(lf[97]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[113]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* a3382 in k3376 in k3370 in setup-download#retrieve-extension in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ static void C_ccall f_3383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3383,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_retrieve2(lf[0],"setup-download#\052quiet\052")); t3=C_mutate2(((C_word *)((C_word*)t0)[3])+1,C_retrieve2(lf[2],"setup-download#\052trunk\052")); t4=C_mutate2(((C_word *)((C_word*)t0)[4])+1,C_retrieve2(lf[3],"setup-download#\052mode\052")); t5=C_mutate2(&lf[0] /* (set! setup-download#*quiet* ...) */,((C_word*)((C_word*)t0)[5])[1]); t6=C_mutate2(&lf[2] /* (set! setup-download#*trunk* ...) */,((C_word*)((C_word*)t0)[6])[1]); t7=C_mutate2(&lf[3] /* (set! setup-download#*mode* ...) */,((C_word*)((C_word*)t0)[7])[1]); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k2968 in skip in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in ... */ 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 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_2970,2,av);} a=C_alloc(6); t2=t1; t3=C_eofp(t2); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2979,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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t3; f_2979(2,av2);}} else{ C_trace("setup-download.scm:346: irregex-match"); t5=C_fast_retrieve(lf[97]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[114]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k3376 in k3370 in setup-download#retrieve-extension in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ static void C_ccall f_3378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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(45,c,4)))){ C_save_and_reclaim((void *)f_3378,2,av);} a=C_alloc(45); t2=((C_word*)t0)[2]; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=((C_word*)t0)[3]; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t0)[4]; 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_3383,a[2]=t9,a[3]=t11,a[4]=t13,a[5]=t3,a[6]=t5,a[7]=t7,a[8]=((C_word)li56),tmp=(C_word)a,a+=9,tmp); t15=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_3392,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)li57),tmp=(C_word)a,a+=15,tmp); t16=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3431,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=t11,a[7]=t13,a[8]=((C_word)li58),tmp=(C_word)a,a+=9,tmp); C_trace("setup-download.scm:442: ##sys#dynamic-wind"); t17=*((C_word*)lf[214]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t17; av2[1]=((C_word*)t0)[17]; av2[2]=t14; av2[3]=t15; av2[4]=t16; ((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}} /* k2983 in k2977 in k2968 in skip in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in ... */ static void C_ccall f_2985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2985,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2989,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li30),tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:342: g725"); t3=t2; f_2989(t3,((C_word*)t0)[4],t1);} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3034,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); C_trace("setup-download.scm:358: irregex-match"); t3=C_fast_retrieve(lf[97]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[112]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* g725 in k2983 in k2977 in k2968 in skip in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in ... */ static void C_fcall f_2989(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_2989,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2993,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:350: irregex-match-substring"); t4=C_fast_retrieve(lf[82]);{ 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);}} /* k2430 in k2423 in setup-download#deconstruct-url in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_2432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2432,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2436,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_2449,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[3])){ C_trace("setup-download.scm:226: irregex-match-substring"); t5=C_fast_retrieve(lf[82]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_2449(2,av2);}}} /* k2434 in k2430 in k2423 in setup-download#deconstruct-url in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ static void C_ccall f_2436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2436,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2440,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])){ C_trace("setup-download.scm:231: irregex-match-substring"); t4=C_fast_retrieve(lf[82]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_2440(2,av2);}}} /* a3466 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_3467(C_word c,C_word *av){ C_word tmp; 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_3467,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,C_retrieve2(lf[0],"setup-download#\052quiet\052")); t3=C_mutate2(&lf[0] /* (set! setup-download#*quiet* ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2438 in k2434 in k2430 in k2423 in setup-download#deconstruct-url in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2440,2,av);} if(C_truep(t1)){ t2=t1; C_trace("setup-download.scm:224: values");{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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{ C_trace("setup-download.scm:224: values");{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[95]; C_values(5,av2);}}} /* k2991 in g725 in k2983 in k2977 in k2968 in skip in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in ... */ static void C_ccall f_2993(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2993,2,av);} a=C_alloc(6); t2=t1; t3=C_i_string_equal_p(lf[106],t2); t4=(C_truep(t3)?t3:C_u_i_string_equal_p(lf[107],t2)); if(C_truep(t4)){ C_trace("setup-download.scm:357: open-input-string"); t5=C_fast_retrieve(lf[104]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_3011,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_3011(t7,C_i_not(t6));} else{ t6=t5; f_3011(t6,C_SCHEME_FALSE);}}} /* k2447 in k2430 in k2423 in setup-download#deconstruct-url in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ static void C_ccall f_2449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2449,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2452,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:227: irregex-match-substring"); t3=C_fast_retrieve(lf[82]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(80); f_2436(2,av2);}}} /* k2605 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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 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_2607,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2611,a[2]=((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_trace("setup-download.scm:242: ->string"); t4=C_fast_retrieve(lf[139]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_retrieve2(lf[3],"setup-download#\052mode\052"); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2450 in k2447 in k2430 in k2423 in setup-download#deconstruct-url in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ 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 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_2452,2,av);} a=C_alloc(4); t2=C_a_i_string_to_number(&a,2,t1,C_fix(10)); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; f_2436(2,av2);}} else{ C_trace("setup-download.scm:229: error"); t3=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[96]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k1618 in k1615 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_1620,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1623,a[2]=((C_word*)t0)[2],a[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_1691,a[2]=t2,tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:114: normalize-pathname"); t4=C_fast_retrieve(lf[41]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1621 in k1618 in k1615 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ 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 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_1623,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1626,a[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_retrieve2(lf[5],"setup-download#\052windows-shell\052"))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1648,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:116: open-output-string"); t4=C_fast_retrieve(lf[37]);{ C_word *av2=av; /* Re-use our own argvector */ 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_1669,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:117: open-output-string"); t4=C_fast_retrieve(lf[37]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1624 in k1621 in k1618 in k1615 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in ... */ 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 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_1626,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,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]=t2,tmp=(C_word)a,a+=6,tmp); C_trace("setup-download.scm:118: d"); f_1337(t3,lf[31],C_a_i_list(&a,1,t2));} /* k1627 in k1624 in k1621 in k1618 in k1615 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1629,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1645,a[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_trace("setup-download.scm:119: system"); t3=C_fast_retrieve(lf[30]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1903 in a1882 in k1864 in a1857 in k1851 in k1845 in a1842 in a1830 in k1824 in setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in ... */ 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 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_1904,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1910,a[2]=((C_word*)t0)[2],a[3]=((C_word)li11),tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1916,a[2]=((C_word*)t0)[3],a[3]=((C_word)li13),tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:144: ##sys#call-with-values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_2469(C_word c,C_word *av){ C_word tmp; C_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 +14,c,5)))){ C_save_and_reclaim((void*)f_2469,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; 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; 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_i_nullp(t24); t26=(C_truep(t25)?C_SCHEME_FALSE:C_i_car(t24)); t27=t26; t28=C_i_nullp(t24); t29=(C_truep(t28)?C_SCHEME_END_OF_LIST:C_i_cdr(t24)); t30=C_i_nullp(t29); t31=(C_truep(t30)?C_SCHEME_FALSE:C_i_car(t29)); t32=t31; t33=C_i_nullp(t29); t34=(C_truep(t33)?C_SCHEME_END_OF_LIST:C_i_cdr(t29)); t35=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2511,a[2]=t3,a[3]=((C_word)li26),tmp=(C_word)a,a+=4,tmp); t36=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2517,a[2]=t7,a[3]=t22,a[4]=t27,a[5]=t32,a[6]=t2,a[7]=t12,a[8]=t17,a[9]=((C_word)li40),tmp=(C_word)a,a+=10,tmp); C_trace("setup-download.scm:234: ##sys#call-with-values");{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t35; av2[3]=t36; C_call_with_values(4,av2);}} /* k1416 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ 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; C_word t3; 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_1418,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1421,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_1423,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word)li62),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_1423(t6,t2,t1);} /* k2341 in k2241 in k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2343,2,av);} C_trace("setup-download.scm:186: existing-version"); f_1368(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* a2344 in k2241 in k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in ... */ static void C_ccall f_2345(C_word c,C_word *av){ C_word tmp; C_word 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_2345,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2349,a[2]=t1,tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:190: irregex-search"); t4=C_fast_retrieve(lf[83]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[84]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2347 in a2344 in k2241 in k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2349,2,av);} if(C_truep(t1)){ C_trace("setup-download.scm:191: irregex-match-substring"); t2=C_fast_retrieve(lf[82]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a3391 in k3376 in k3370 in setup-download#retrieve-extension in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 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 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,9)))){ C_save_and_reclaim((void *)f_3392,2,av);} t2=((C_word*)t0)[2]; t3=C_eqp(t2,lf[210]); if(C_truep(t3)){ C_trace("setup-download.scm:447: locate-egg/local"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[19]); C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[19]+1); 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]; tp(7,av2);}} else{ t4=C_eqp(t2,lf[211]); if(C_truep(t4)){ C_trace("setup-download.scm:449: locate-egg/svn"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[67]); C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[67]+1); 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)[8]; av2[7]=((C_word*)t0)[9]; tp(8,av2);}} else{ t5=C_eqp(t2,lf[212]); if(C_truep(t5)){ C_trace("setup-download.scm:451: locate-egg/http"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[99]); C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(10); } av2[0]=*((C_word*)lf[99]+1); 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)[10]; av2[7]=((C_word*)t0)[11]; av2[8]=((C_word*)t0)[12]; av2[9]=((C_word*)t0)[13]; tp(10,av2);}} else{ C_trace("setup-download.scm:453: error"); t6=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t1; av2[2]=lf[213]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}} /* map-loop181 in k1416 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ static void C_fcall f_1423(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_1423,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_1448,a[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_trace("setup-download.scm:85: g204"); t5=*((C_word*)lf[68]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=lf[218]; ((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);}}} /* k1419 in k1416 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1421,2,av);} C_trace("setup-download.scm:85: string-concatenate"); t2=C_fast_retrieve(lf[217]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a1915 in a1903 in a1882 in k1864 in a1857 in k1851 in k1845 in a1842 in a1830 in k1824 in setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ 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 *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_1916,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_1922,a[2]=t2,a[3]=((C_word)li12),tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:144: k378"); t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a1909 in a1903 in a1882 in k1864 in a1857 in k1851 in k1845 in a1842 in a1830 in k1824 in setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ 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 *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_1910,2,av);} C_trace("setup-download.scm:150: with-input-from-file"); t2=C_fast_retrieve(lf[53]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=*((C_word*)lf[54]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* setup-download#make-svn-ls-cmd in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_fcall f_1928(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(6,0,2)))){ C_save_and_reclaim_args((void *)trf_1928,5,t1,t2,t3,t4,t5);} a=C_alloc(6); t6=C_i_get_keyword(lf[62],t5,C_SCHEME_FALSE); t7=(C_truep(t6)?lf[63]:lf[64]); t8=t7; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1943,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t8,tmp=(C_word)a,a+=6,tmp); C_trace("setup-download.scm:154: qs"); t10=C_fast_retrieve(lf[40]);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* a2510 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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; 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_2511,2,av);} C_trace("setup-download.scm:237: deconstruct-url"); f_2421(t1,((C_word*)t0)[2]);} /* a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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=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(17,c,3)))){ C_save_and_reclaim((void *)f_2517,5,av);} a=C_alloc(17); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2521,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2607,a[2]=((C_word*)t0)[8],a[3]=t5,a[4]=t4,a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[2])){ C_trace("setup-download.scm:241: string-append"); t7=*((C_word*)lf[68]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=lf[140]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=lf[141]; f_2607(2,av2);}}} /* a1921 in a1915 in a1903 in a1882 in k1864 in a1857 in k1851 in k1845 in a1842 in a1830 in k1824 in setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in ... */ 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 *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_1922,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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 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_2802,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2807,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word)li48),tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2821,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],a[8]=((C_word)li53),tmp=(C_word)a,a+=9,tmp); C_trace("setup-download.scm:303: ##sys#call-with-values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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 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,4)))){ C_save_and_reclaim((void *)f_1332,2,av);} a=C_alloc(6); t2=C_mutate2(&lf[1] /* (set! setup-download#*chicken-install-user-agent* ...) */,t1); t3=lf[2] /* setup-download#*trunk* */ =C_SCHEME_FALSE;; t4=C_mutate2(&lf[3] /* (set! setup-download#*mode* ...) */,lf[4]); t5=C_mutate2(&lf[5] /* (set! setup-download#*windows-shell* ...) */,C_mk_bool(C_WINDOWS_SHELL)); t6=C_mutate2(&lf[6] /* (set! setup-download#d ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1337,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1351,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:64: make-parameter"); t8=C_fast_retrieve(lf[251]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a2806 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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 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_2807,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)){ C_trace("setup-download.scm:303: tcp-connect"); t5=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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]; C_trace("setup-download.scm:303: tcp-connect"); t6=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* setup-download#d in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ C_save_and_reclaim_args((void *)trf_1337,3,t1,t2,t3);} a=C_alloc(4); t4=(C_truep(C_retrieve2(lf[0],"setup-download#\052quiet\052"))?*((C_word*)lf[7]+1):*((C_word*)lf[8]+1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1344,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);{ C_word av2[6]; av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[10]+1); av2[3]=t5; av2[4]=t2; av2[5]=t3; C_apply(6,av2);}} /* k3370 in setup-download#retrieve-extension in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_3372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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,2)))){ C_save_and_reclaim((void *)f_3372,2,av);} a=C_alloc(18); t2=t1; t3=C_i_get_keyword(lf[209],((C_word*)t0)[2],C_SCHEME_FALSE); t4=t3; t5=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_3378,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]=t4,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); C_trace("setup-download.scm:441: check-egg-name"); f_3326(t5,((C_word*)t0)[6]);} /* k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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 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_2521,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2524,a[2]=((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*)t0)[10])){ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)t0)[10]; f_2524(2,av2);}} else{ C_trace("setup-download.scm:244: get-temporary-directory"); f_1353(t3);}} /* k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 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 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_2524,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,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],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_trace("setup-download.scm:245: make-pathname"); t3=C_fast_retrieve(lf[20]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ 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(11,c,2)))){ C_save_and_reclaim((void *)f_2527,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2530,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); C_trace("setup-download.scm:246: file-exists?"); t4=C_fast_retrieve(lf[24]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2609 in k2605 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ static void C_ccall f_2611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2611,2,av);} if(C_truep(((C_word*)t0)[2])){ C_trace("setup-download.scm:238: string-append"); t2=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[135]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=lf[136]; av2[7]=t1; av2[8]=lf[137]; ((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} else{ C_trace("setup-download.scm:238: string-append"); t2=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[135]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=lf[136]; av2[7]=t1; av2[8]=lf[138]; ((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}}} /* k2334 in a2278 in k2244 in k2241 in k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2336,2,av);} C_trace("setup-download.scm:201: make-pathname"); t2=C_fast_retrieve(lf[20]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1342 in setup-download#d in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_1344,2,av);} C_trace("setup-download.scm:62: flush-output"); t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* setup-download#deconstruct-url in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_fcall f_2421(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_2421,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2425,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:223: irregex-match"); t4=C_fast_retrieve(lf[97]);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=lf[98]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2423 in setup-download#deconstruct-url in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_2425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2425,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2432,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ C_trace("setup-download.scm:225: irregex-match-substring"); t4=C_fast_retrieve(lf[82]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)t0)[3]; f_2432(2,av2);}}} /* k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in ... */ static void C_ccall f_2530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2530,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2533,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); if(C_truep(t2)){ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_2533(2,av2);}} else{ C_trace("setup-download.scm:247: create-directory"); t4=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_2533,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2536,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2541,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)li39),tmp=(C_word)a,a+=12,tmp); C_trace("setup-download.scm:248: call-with-current-continuation"); t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2534 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in ... */ 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 *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);} C_trace("setup-download.scm:248: g601"); t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k2307 in k2281 in a2278 in k2244 in k2241 in k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in ... */ 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 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_2309,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2313,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_eqp(C_retrieve2(lf[3],"setup-download#\052mode\052"),lf[80]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2319,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:211: create-directory"); t6=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t5; av2[1]=((C_word*)t0)[6]; f_2313(2,av2);}}} /* k1941 in setup-download#make-svn-ls-cmd in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_1943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1943,2,av);} C_trace("setup-download.scm:154: conc"); t2=C_fast_retrieve(lf[65]);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[66]; av2[3]=((C_word*)t0)[3]; av2[4]=C_make_character(32); av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; av2[7]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* k2303 in k2287 in k2284 in k2281 in a2278 in k2244 in k2241 in k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in ... */ 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; 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_2305,2,av);} t2=C_eqp(t1,C_fix(0)); if(C_truep(t2)){ C_trace("setup-download.scm:216: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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{ C_trace("setup-download.scm:217: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=lf[75]; C_values(4,av2);}}} /* a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_2821(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_2821,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_2825,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); C_trace("setup-download.scm:304: d"); f_1337(t8,lf[189],C_a_i_list(&a,1,((C_word*)t0)[4]));} /* setup-download#get-temporary-directory in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_fcall f_1353(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_1353,1,t1);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1357,a[2]=t1,tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:67: temporary-directory"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[11]); C_word av2[2]; av2[0]=*((C_word*)lf[11]+1); av2[1]=t2; tp(2,av2);}} /* k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_1351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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,8)))){ C_save_and_reclaim((void *)f_1351,2,av);} a=C_alloc(36); t2=C_mutate2((C_word*)lf[11]+1 /* (set! setup-download#temporary-directory ...) */,t1); t3=C_mutate2(&lf[12] /* (set! setup-download#get-temporary-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1353,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2(&lf[14] /* (set! setup-download#existing-version ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1368,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[19]+1 /* (set! setup-download#locate-egg/local ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1525,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[50]+1 /* (set! setup-download#gather-egg-information ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1822,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2(&lf[61] /* (set! setup-download#make-svn-ls-cmd ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1928,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[67]+1 /* (set! setup-download#locate-egg/svn ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2203,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2(&lf[94] /* (set! setup-download#deconstruct-url ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2421,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[99]+1 /* (set! setup-download#locate-egg/http ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2469,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2(&lf[142] /* (set! setup-download#make-HTTP-GET/1.1 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2710,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2(&lf[170] /* (set! setup-download#response-match-code? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2775,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2(&lf[103] /* (set! setup-download#http-connect ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2798,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3304,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:427: char-set"); t15=C_fast_retrieve(lf[250]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t15; av2[1]=t14; av2[2]=C_make_character(92); av2[3]=C_make_character(47); ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} /* k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ 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 t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(39,c,5)))){ C_save_and_reclaim((void *)f_2825,2,av);} a=C_alloc(39); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2828,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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|3,a[1]=(C_word)f_2930,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:306: make-HTTP-GET/1.1"); f_2710(t3,((C_word*)t0)[7],C_retrieve2(lf[1],"setup-download#\052chicken-install-user-agent\052"),((C_word*)t0)[8],C_a_i_list(&a,8,lf[169],((C_word*)t0)[9],lf[166],lf[188],lf[143],((C_word*)t0)[5],lf[182],((C_word*)t0)[6]));} /* k1355 in setup-download#get-temporary-directory in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1357,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_1363,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:68: create-temporary-directory"); t3=C_fast_retrieve(lf[13]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ static void C_ccall f_2828(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2828,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2831,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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_trace("setup-download.scm:309: flush-output"); t3=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1459 in a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ static void C_ccall f_1461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1461,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1467,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:89: directory-exists?"); t4=C_fast_retrieve(lf[237]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1465 in k1459 in a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in ... */ 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 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_1467,2,av);} 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_1482,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t5,tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:91: directory"); t7=C_fast_retrieve(lf[48]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[236]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k1643 in k1627 in k1624 in k1621 in k1618 in k1615 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in ... */ static void C_ccall f_1645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1645,2,av);} t2=C_eqp(t1,C_fix(0)); if(C_truep(t2)){ C_trace("setup-download.scm:120: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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{ C_trace("setup-download.scm:121: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=lf[29]; C_values(4,av2);}}} /* k1646 in k1621 in k1618 in k1615 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in ... */ static void C_ccall f_1648(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1648,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[32]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1654,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); C_trace("setup-download.scm:116: ##sys#print"); t6=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[36]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* a3198 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ 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=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(12,c,4)))){ C_save_and_reclaim((void *)f_3199,5,av);} a=C_alloc(12); t5=t2; t6=t3; t7=t4; t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3205,a[2]=t5,a[3]=t6,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)li65),tmp=(C_word)a,a+=9,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3215,a[2]=((C_word)li66),tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:392: ##sys#call-with-values");{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t8; av2[3]=t9; C_call_with_values(4,av2);}} /* k2357 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_2359,2,av);} a=C_alloc(6); C_trace("setup-download.scm:183: make-svn-ls-cmd"); f_1928(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1,C_a_i_list(&a,2,lf[62],C_SCHEME_TRUE));} /* a3192 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ static void C_ccall f_3193(C_word c,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_3193,2,av);} C_trace("setup-download.scm:393: deconstruct-url"); f_2421(t1,((C_word*)t0)[2]);} /* k1652 in k1646 in k1621 in k1618 in k1615 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in ... */ 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(6,c,4)))){ C_save_and_reclaim((void *)f_1654,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1657,a[2]=((C_word*)t0)[2],a[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_trace("setup-download.scm:116: ##sys#print"); t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2555 in a2552 in a2546 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ static void C_ccall f_2557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2557,2,av);} C_trace("setup-download.scm:250: signal"); t2=C_fast_retrieve(lf[100]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a2552 in a2546 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in ... */ 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; 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_2553,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2557,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[3])){ C_trace("setup-download.scm:250: signal"); t3=C_fast_retrieve(lf[100]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} else{ C_trace("setup-download.scm:249: setup-api#remove-directory"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[101]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}} /* k1655 in k1652 in k1646 in k1621 in k1618 in k1615 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_1657,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1660,a[2]=((C_word*)t0)[2],a[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_trace("setup-download.scm:116: ##sys#write-char-0"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[35]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[35]+1); av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* k2324 in k2281 in a2278 in k2244 in k2241 in k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_2326,2,av);} C_trace("setup-download.scm:204: conc"); t2=C_fast_retrieve(lf[65]);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_make_character(47); av2[4]=((C_word*)t0)[4]; av2[5]=C_make_character(47); av2[6]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k2698 in k2921 in k2894 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2700,2,av);} C_trace("setup-download.scm:257: signal"); t2=C_fast_retrieve(lf[100]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ static void C_ccall f_2565(C_word c,C_word *av){ C_word tmp; 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(15,c,3)))){ C_save_and_reclaim((void *)f_2565,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2571,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word)li35),tmp=(C_word)a,a+=11,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2587,a[2]=((C_word*)t0)[10],a[3]=((C_word)li37),tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:248: ##sys#call-with-values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* k2702 in k2921 in k2894 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in ... */ static void C_ccall f_2704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2704,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2708,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:263: make-property-condition"); t4=C_fast_retrieve(lf[118]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[183]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2706 in k2702 in k2921 in k2894 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2708,2,av);} C_trace("setup-download.scm:258: make-composite-condition"); t2=C_fast_retrieve(lf[117]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3174 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ 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 *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_3175,2,av);} C_trace("setup-download.scm:389: http-connect"); f_2798(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]);} /* a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in ... */ 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=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_1598,4,av);} a=C_alloc(8); t4=t2; t5=t3; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1759,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=t4,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); C_trace("setup-download.scm:109: file-exists?"); t7=C_fast_retrieve(lf[24]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in ... */ static void C_ccall f_2571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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(18,c,4)))){ C_save_and_reclaim((void *)f_2571,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2575,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t3=((C_word*)t0)[4]; t4=((C_word*)t0)[5]; t5=((C_word*)t0)[6]; t6=((C_word*)t0)[2]; t7=((C_word*)t0)[7]; t8=((C_word*)t0)[8]; t9=((C_word*)t0)[9]; t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3175,a[2]=t3,a[3]=t4,a[4]=t5,a[5]=t7,a[6]=t8,a[7]=t9,a[8]=((C_word)li29),tmp=(C_word)a,a+=9,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3181,a[2]=t6,a[3]=((C_word)li34),tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:387: ##sys#call-with-values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=t10; av2[3]=t11; C_call_with_values(4,av2);}} /* k1591 in k1576 in k1573 in a1560 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ static void C_ccall f_1593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1593,2,av);} if(C_truep(t1)){ C_trace("setup-download.scm:106: directory?"); t2=C_fast_retrieve(lf[23]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ C_trace("setup-download.scm:108: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[22]; C_values(4,av2);}}} /* setup-download#make-HTTP-GET/1.1 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_fcall f_2710(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(10,0,4)))){ C_save_and_reclaim_args((void *)trf_2710,5,t1,t2,t3,t4,t5);} a=C_alloc(10); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2714,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|2,a[1]=(C_word)f_2760,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:265: ##sys#get-keyword"); {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[163]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[163]+1); av2[1]=t6; av2[2]=lf[169]; av2[3]=t5; av2[4]=t7; tp(5,av2);}} /* k2573 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ static void C_ccall f_2575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2575,2,av);} if(C_truep(t1)){ t2=t1; C_trace("setup-download.scm:254: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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])){ C_trace("setup-download.scm:254: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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{ C_trace("setup-download.scm:254: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[102]; C_values(4,av2);}}}} /* k2712 in setup-download#make-HTTP-GET/1.1 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_2714,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2717,a[2]=((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_2757,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:265: ##sys#get-keyword"); {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[163]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[163]+1); av2[1]=t3; av2[2]=lf[168]; av2[3]=((C_word*)t0)[2]; av2[4]=t4; tp(5,av2);}} /* k2715 in k2712 in setup-download#make-HTTP-GET/1.1 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_2717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2717,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2720,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_2754,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:265: ##sys#get-keyword"); {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[163]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[163]+1); av2[1]=t3; av2[2]=lf[166]; av2[3]=((C_word*)t0)[2]; av2[4]=t4; tp(5,av2);}} /* a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ 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=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(6,c,3)))){ C_save_and_reclaim((void *)f_3181,4,av);} a=C_alloc(6); t4=t1; t5=t2; t6=t3; t7=((C_word*)t0)[2]; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2964,a[2]=t5,a[3]=t6,a[4]=t7,a[5]=t4,tmp=(C_word)a,a+=6,tmp); C_trace("setup-download.scm:341: d"); f_1337(t8,lf[134],C_SCHEME_END_OF_LIST);} /* k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in ... */ static void C_fcall f_1608(C_word 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(15,0,3)))){ C_save_and_reclaim_args((void *)trf_1608,2,t0,t1);} a=C_alloc(15); if(C_truep(t1)){ C_trace("setup-download.scm:110: values");{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=lf[28]; C_values(4,av2);}} else{ if(C_truep(((C_word*)t0)[3])){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1617,a[2]=((C_word*)t0)[2],a[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_trace("setup-download.scm:112: create-directory"); t3=C_fast_retrieve(lf[42]);{ 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|4,a[1]=(C_word)f_1698,a[2]=((C_word*)t0)[2],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])){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1704,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1740,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1748,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:125: directory"); t6=C_fast_retrieve(lf[48]);{ 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{ C_trace("setup-download.scm:131: values");{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[4]; C_values(4,av2);}}}}} /* k2317 in k2307 in k2281 in a2278 in k2244 in k2241 in k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ static void C_ccall f_2319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2319,2,av);} t2=((C_word*)t0)[2]; C_trace("setup-download.scm:220: conc"); t3=C_fast_retrieve(lf[65]);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=C_make_character(47); av2[4]=t2; av2[5]=lf[81]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* loop in k2844 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in ... */ static void C_fcall f_2870(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_2870,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2874,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:328: read-line"); t3=C_fast_retrieve(lf[115]);{ 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);}} /* k2311 in k2307 in k2281 in a2278 in k2244 in k2241 in k2238 in k2235 in k2232 in k2229 in setup-download#locate-egg/svn in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ static void C_ccall f_2313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,14)))){ C_save_and_reclaim((void *)f_2313,2,av);} t2=(C_truep(C_retrieve2(lf[0],"setup-download#\052quiet\052"))?lf[77]:lf[78]); C_trace("setup-download.scm:157: conc"); t3=C_fast_retrieve(lf[65]);{ C_word *av2; if(c >= 15) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(15); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[79]; av2[3]=((C_word*)t0)[3]; av2[4]=C_make_character(32); av2[5]=((C_word*)t0)[4]; av2[6]=C_make_character(32); av2[7]=C_make_character(34); av2[8]=((C_word*)t0)[5]; av2[9]=C_make_character(34); av2[10]=C_make_character(32); av2[11]=C_make_character(34); av2[12]=t1; av2[13]=C_make_character(34); av2[14]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(15,av2);}} /* k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_1324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1324,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1327,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:51: tcp-write-timeout"); t3=C_fast_retrieve(lf[254]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_1321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1321,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1324,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:50: tcp-read-timeout"); t3=C_fast_retrieve(lf[255]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2872 in loop in k2844 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in ... */ static void C_ccall f_2874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2874,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2880,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_trace("setup-download.scm:329: string-null?"); t4=C_fast_retrieve(lf[180]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_1327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_1327,2,av);} a=C_alloc(6); t2=lf[0] /* setup-download#*quiet* */ =C_SCHEME_FALSE;; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1332,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3574,a[2]=t3,tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:54: chicken-version"); t5=C_fast_retrieve(lf[253]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a2592 in a2586 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ static void C_ccall f_2593(C_word c,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_2593,2,av);}{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k1615 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ 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; 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_1617,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1620,a[2]=((C_word*)t0)[2],a[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_1695,a[2]=t2,tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:113: normalize-pathname"); t4=C_fast_retrieve(lf[41]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2878 in k2872 in loop in k2844 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in ... */ static void C_ccall f_2880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2880,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_2892,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); C_trace("setup-download.scm:296: irregex-match"); t3=C_fast_retrieve(lf[97]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[179]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k1661 in k1658 in k1655 in k1652 in k1646 in k1621 in k1618 in k1615 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in ... */ static void C_ccall f_1663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1663,2,av);} C_trace("setup-download.scm:116: get-output-string"); t2=C_fast_retrieve(lf[33]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1658 in k1655 in k1652 in k1646 in k1621 in k1618 in k1615 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_1660,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1663,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:116: ##sys#print"); t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1667 in k1621 in k1618 in k1615 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in ... */ static void C_ccall f_1669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1669,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[32]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1675,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); C_trace("setup-download.scm:117: ##sys#print"); t6=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[39]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k2890 in k2878 in k2872 in loop in k2844 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in ... */ 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 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_2892,2,av);} a=C_alloc(7); 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)f3783,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:331: d"); f_1337(t3,lf[178],C_a_i_list(&a,1,((C_word*)t0)[5]));} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f3787,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:331: d"); f_1337(t2,lf[178],C_a_i_list(&a,1,((C_word*)t0)[5]));}} /* k2894 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_2896,2,av);} a=C_alloc(16); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2901,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li51),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2907,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)[2],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[9],a[10]=((C_word)li52),tmp=(C_word)a,a+=11,tmp); C_trace("setup-download.scm:317: ##sys#call-with-values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2923,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:325: response-match-code?"); f_2775(t2,((C_word*)t0)[12],C_fix(200));}} /* k1673 in k1667 in k1621 in k1618 in k1615 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in ... */ 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 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_1675,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1678,a[2]=((C_word*)t0)[2],a[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_trace("setup-download.scm:117: ##sys#print"); t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1676 in k1673 in k1667 in k1621 in k1618 in k1615 in k1606 in k1757 in a1597 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1678,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1681,a[2]=((C_word*)t0)[2],a[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_trace("setup-download.scm:117: ##sys#print"); t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[38]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in ... */ static void C_ccall f_2541(C_word c,C_word *av){ C_word tmp; C_word 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(18,c,3)))){ C_save_and_reclaim((void *)f_2541,3,av);} a=C_alloc(18); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2547,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=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2565,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,a[11]=((C_word)li38),tmp=(C_word)a,a+=12,tmp); C_trace("setup-download.scm:248: with-exception-handler"); t5=C_fast_retrieve(lf[55]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a2546 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ static void C_ccall f_2547(C_word c,C_word *av){ C_word tmp; C_word 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_2547,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2553,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li27),tmp=(C_word)a,a+=6,tmp); C_trace("setup-download.scm:248: k597"); t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a2759 in setup-download#make-HTTP-GET/1.1 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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; 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_2760,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(80); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_2831,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2834,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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_trace("setup-download.scm:310: d"); f_1337(t2,lf[187],C_SCHEME_END_OF_LIST);} /* k1361 in k1355 in setup-download#get-temporary-directory in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_1363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1363,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1366,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:69: temporary-directory"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[11]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in ... */ static void C_ccall f_2837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2837,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_2840,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((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_i_stringp(t2))){ C_trace("setup-download.scm:290: irregex-match"); t4=C_fast_retrieve(lf[97]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[186]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_2840(2,av2);}}} /* k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in ... */ static void C_ccall f_2834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2834,2,av);} a=C_alloc(14); t2=C_SCHEME_FALSE; 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_2837,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); C_trace("setup-download.scm:312: read-line"); t5=C_fast_retrieve(lf[115]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k1364 in k1361 in k1355 in setup-download#get-temporary-directory in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ static void C_ccall f_1366(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1366,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* setup-download#existing-version in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_fcall f_1368(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(3,0,4)))){ C_save_and_reclaim_args((void *)trf_1368,4,t1,t2,t3,t4);} a=C_alloc(3); if(C_truep(t3)){ if(C_truep(C_i_member(t3,t4))){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ C_trace("setup-download.scm:76: error"); t5=*((C_word*)lf[15]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t1; av2[2]=lf[16]; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1384,a[2]=t1,tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:77: sort"); t6=C_fast_retrieve(lf[17]);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=C_fast_retrieve(lf[18]); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k3275 in k3298 in get-chunks in k2856 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3277,2,av);} C_trace("setup-download.scm:420: string-concatenate-reverse"); t2=C_fast_retrieve(lf[173]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* setup-download#response-match-code? in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_fcall f_2775(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_2775,3,t1,t2,t3);} a=C_alloc(4); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2786,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:293: number->string"); t5=*((C_word*)lf[171]+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=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ static void C_ccall f_2840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2840,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_2843,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); C_trace("setup-download.scm:314: d"); f_1337(t3,lf[185],C_a_i_list(&a,1,((C_word*)t0)[12]));} /* k3281 in k3298 in get-chunks in k2856 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_3283,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3286,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); C_trace("setup-download.scm:423: d"); f_1337(t3,lf[175],C_SCHEME_END_OF_LIST);} /* k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in ... */ static void C_ccall f_2849(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2849,2,av);} a=C_alloc(5); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2858,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_trace("setup-download.scm:334: d"); f_1337(t2,lf[177],C_SCHEME_END_OF_LIST);} else{ C_trace("setup-download.scm:338: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } 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]; C_values(4,av2);}}} /* k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 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 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_2843,2,av);} a=C_alloc(19); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2846,a[2]=((C_word*)t0)[2],a[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|12,a[1]=(C_word)f_2896,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],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)[10],a[9]=((C_word*)t0)[11],a[10]=t2,a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,tmp); C_trace("setup-download.scm:316: response-match-code?"); f_2775(t3,((C_word*)t0)[13],C_fix(407));} /* k2844 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in ... */ 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 t3; 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_2846,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2849,a[2]=((C_word*)t0)[2],a[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|5,a[1]=(C_word)f_2870,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word)li50),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_2870(t6,t2);} /* k3287 in k3284 in k3281 in k3298 in get-chunks in k2856 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in ... */ 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; 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_3289,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); C_trace("setup-download.scm:425: get-chunks"); t3=((C_word*)((C_word*)t0)[4])[1]; f_3255(t3,((C_word*)t0)[5],t2);} /* k3331 in setup-download#check-egg-name in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_3333(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3333,2,av);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ C_trace("setup-download.scm:435: error"); t2=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[196]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k3284 in k3281 in k3298 in get-chunks in k2856 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3286,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3289,a[2]=((C_word*)t0)[2],a[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_trace("setup-download.scm:424: read-line"); t3=C_fast_retrieve(lf[115]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2784 in setup-download#response-match-code? in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2786,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2790,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:293: irregex-match-substring"); t4=C_fast_retrieve(lf[82]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2856 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in ... */ static void C_ccall f_2858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2858,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2861,a[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)[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|4,a[1]=(C_word)f_3255,a[2]=t5,a[3]=t3,a[4]=((C_word)li49),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_3255(t7,t2,C_SCHEME_END_OF_LIST);} /* k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_1305(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1305,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1308,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_tcp_toplevel(2,av2);}} /* k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_1302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1302,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1305,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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; 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_1308,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1311,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d13_toplevel(2,av2);}} /* setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_fcall f_2798(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_2798,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(23); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2802,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_2934,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_2937,a[2]=t9,a[3]=t6,a[4]=t5,tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:301: open-output-string"); t11=C_fast_retrieve(lf[37]);{ C_word av2[2]; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ C_trace("setup-download.scm:299: d"); f_1337(t8,lf[190],C_a_i_list(&a,3,t2,t3,lf[193]));}} /* k2788 in k2784 in setup-download#response-match-code? in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2790,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_string_equal_p(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2859 in k2856 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in ... */ static void C_ccall f_2861(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2861,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2864,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_trace("setup-download.scm:336: close-input-port"); t4=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_1314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1314,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1317,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:27: ##sys#require"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[257]); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[257]+1); av2[1]=t2; av2[2]=lf[258]; tp(3,av2);}} /* k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_1311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1311,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1314,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_files_toplevel(2,av2);}} /* k2866 in k2862 in k2859 in k2856 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2868,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); C_trace("setup-download.scm:338: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } 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]; C_values(4,av2);}} /* k2862 in k2859 in k2856 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in ... */ static void C_ccall f_2864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2864,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2868,a[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_trace("setup-download.scm:337: open-input-string"); t3=C_fast_retrieve(lf[104]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_1317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1317,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1321,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:49: tcp-connect-timeout"); t3=C_fast_retrieve(lf[256]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2721 in k2718 in k2715 in k2712 in setup-download#make-HTTP-GET/1.1 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ static void C_ccall f_2723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2723,2,av);} a=C_alloc(10); t2=t1; t3=C_i_get_keyword(lf[143],((C_word*)t0)[2],C_SCHEME_FALSE); t4=C_i_get_keyword(lf[144],((C_word*)t0)[2],C_SCHEME_FALSE); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2739,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)){ C_trace("setup-download.scm:275: string-append"); t7=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=lf[162]; 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; /* Re-use our own argvector */ av2[0]=t7; av2[1]=((C_word*)t0)[9]; f_2739(2,av2);}}} /* k2718 in k2715 in k2712 in setup-download#make-HTTP-GET/1.1 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ static void C_ccall f_2720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2720,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2723,a[2]=((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|2,a[1]=(C_word)f_2751,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:265: ##sys#get-keyword"); {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[163]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[163]+1); av2[1]=t3; av2[2]=lf[164]; av2[3]=((C_word*)t0)[2]; av2[4]=t4; tp(5,av2);}} /* k2737 in k2721 in k2718 in k2715 in k2712 in setup-download#make-HTTP-GET/1.1 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in ... */ 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 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_2739,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2743,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])){ C_trace("setup-download.scm:283: string-append"); t4=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[159]; av2[3]=((C_word*)t0)[9]; av2[4]=lf[160]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=lf[161]; f_2743(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(784))){ C_save(t1); C_rereclaim2(784*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,259); lf[4]=C_h_intern(&lf[4],7,"default"); lf[7]=C_h_intern(&lf[7],18,"\003sysstandard-error"); lf[8]=C_h_intern(&lf[8],19,"\003sysstandard-output"); lf[9]=C_h_intern(&lf[9],12,"flush-output"); lf[10]=C_h_intern(&lf[10],7,"fprintf"); lf[11]=C_h_intern(&lf[11],34,"setup-download#temporary-directory"); lf[13]=C_h_intern(&lf[13],26,"create-temporary-directory"); lf[15]=C_h_intern(&lf[15],5,"error"); lf[16]=C_decode_literal(C_heaptop,"\376B\000\000\021version not found"); lf[17]=C_h_intern(&lf[17],4,"sort"); lf[18]=C_h_intern(&lf[18],20,"setup-api#version>=\077"); lf[19]=C_h_intern(&lf[19],31,"setup-download#locate-egg/local"); lf[20]=C_h_intern(&lf[20],13,"make-pathname"); lf[21]=C_decode_literal(C_heaptop,"\376B\000\000\005trunk"); lf[22]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[23]=C_h_intern(&lf[23],10,"directory\077"); lf[24]=C_h_intern(&lf[24],12,"file-exists\077"); lf[25]=C_h_intern(&lf[25],7,"warning"); lf[26]=C_decode_literal(C_heaptop,"\376B\000\000-extension has no such version - using default"); lf[27]=C_decode_literal(C_heaptop,"\376B\000\000\005trunk"); lf[28]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[29]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[30]=C_h_intern(&lf[30],6,"system"); lf[31]=C_decode_literal(C_heaptop,"\376B\000\000\006 ~a~%"); lf[32]=C_h_intern(&lf[32],7,"sprintf"); lf[33]=C_h_intern(&lf[33],17,"get-output-string"); lf[34]=C_h_intern(&lf[34],9,"\003sysprint"); lf[35]=C_h_intern(&lf[35],16,"\003syswrite-char-0"); lf[36]=C_decode_literal(C_heaptop,"\376B\000\000\006xcopy "); lf[37]=C_h_intern(&lf[37],18,"open-output-string"); lf[38]=C_decode_literal(C_heaptop,"\376B\000\000\003/\052 "); lf[39]=C_decode_literal(C_heaptop,"\376B\000\000\006cp -r "); lf[40]=C_h_intern(&lf[40],2,"qs"); lf[41]=C_h_intern(&lf[41],18,"normalize-pathname"); lf[42]=C_h_intern(&lf[42],16,"create-directory"); lf[43]=C_h_intern(&lf[43],12,"delete-file\052"); lf[44]=C_decode_literal(C_heaptop,"\376B\000\0006 deleting stale file `~a\047 from local build directory~%"); lf[45]=C_h_intern(&lf[45],14,"string-suffix\077"); lf[46]=C_decode_literal(C_heaptop,"\376B\000\000\003.so"); lf[47]=C_h_intern(&lf[47],6,"filter"); lf[48]=C_h_intern(&lf[48],9,"directory"); lf[49]=C_decode_literal(C_heaptop,"\376B\000\000\004tags"); lf[50]=C_h_intern(&lf[50],37,"setup-download#gather-egg-information"); lf[51]=C_h_intern(&lf[51],7,"version"); lf[52]=C_decode_literal(C_heaptop,"\376B\000\000.extension has syntactically invalid .meta file"); lf[53]=C_h_intern(&lf[53],20,"with-input-from-file"); lf[54]=C_h_intern(&lf[54],4,"read"); lf[55]=C_h_intern(&lf[55],22,"with-exception-handler"); lf[56]=C_h_intern(&lf[56],30,"call-with-current-continuation"); lf[57]=C_h_intern(&lf[57],14,"string->symbol"); lf[58]=C_h_intern(&lf[58],7,"call/cc"); lf[59]=C_decode_literal(C_heaptop,"\376B\000\000\004meta"); lf[60]=C_h_intern(&lf[60],10,"filter-map"); lf[62]=C_h_intern(&lf[62],11,"\000recursive\077"); lf[63]=C_decode_literal(C_heaptop,"\376B\000\000\004 -R "); lf[64]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[65]=C_h_intern(&lf[65],4,"conc"); lf[66]=C_decode_literal(C_heaptop,"\376B\000\000\007svn ls "); lf[67]=C_h_intern(&lf[67],29,"setup-download#locate-egg/svn"); lf[68]=C_h_intern(&lf[68],13,"string-append"); lf[69]=C_decode_literal(C_heaptop,"\376B\000\000\005tags/"); lf[70]=C_decode_literal(C_heaptop,"\376B\000\000\006trunk/"); lf[71]=C_decode_literal(C_heaptop,"\376B\000\000\005trunk"); lf[72]=C_decode_literal(C_heaptop,"\376B\000\000\005trunk"); lf[73]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[74]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[75]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[76]=C_decode_literal(C_heaptop,"\376B\000\000\006 ~a~%"); lf[77]=C_decode_literal(C_heaptop,"\376B\000\000\005 1>&2"); lf[78]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[79]=C_decode_literal(C_heaptop,"\376B\000\000\013svn export "); lf[80]=C_h_intern(&lf[80],4,"meta"); lf[81]=C_decode_literal(C_heaptop,"\376B\000\000\005.meta"); lf[82]=C_h_intern(&lf[82],23,"irregex-match-substring"); lf[83]=C_h_intern(&lf[83],14,"irregex-search"); lf[84]=C_decode_literal(C_heaptop,"\376B\000\000\016^tags/([^/]+)/"); lf[85]=C_h_intern(&lf[85],20,"with-input-from-pipe"); lf[86]=C_h_intern(&lf[86],10,"read-lines"); lf[87]=C_decode_literal(C_heaptop,"\376B\000\000\047checking available versions ...~% ~a~%"); lf[88]=C_decode_literal(C_heaptop,"\376B\000\000\014--password=\047"); lf[89]=C_decode_literal(C_heaptop,"\376B\000\000\001\047"); lf[90]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[91]=C_decode_literal(C_heaptop,"\376B\000\000\014--username=\047"); lf[92]=C_decode_literal(C_heaptop,"\376B\000\000\001\047"); lf[93]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[95]=C_decode_literal(C_heaptop,"\376B\000\000\001/"); lf[96]=C_decode_literal(C_heaptop,"\376B\000\000\020not a valid port"); lf[97]=C_h_intern(&lf[97],13,"irregex-match"); lf[98]=C_decode_literal(C_heaptop,"\376B\000\000$(http://)\077([^/:]+)(:([^:/]+))\077(/.\052)\077"); lf[99]=C_h_intern(&lf[99],30,"setup-download#locate-egg/http"); lf[100]=C_h_intern(&lf[100],6,"signal"); lf[101]=C_h_intern(&lf[101],26,"setup-api#remove-directory"); lf[102]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[104]=C_h_intern(&lf[104],17,"open-input-string"); lf[105]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[106]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[107]=C_decode_literal(C_heaptop,"\376B\000\000\002#f"); lf[108]=C_decode_literal(C_heaptop,"\376B\000\000 files-versions are not identical"); lf[109]=C_decode_literal(C_heaptop,"\376B\000\000=unrecognized file-information - possibly corrupt transmission"); lf[110]=C_h_intern(&lf[110],12,"string-every"); lf[111]=C_h_intern(&lf[111],19,"char-set:whitespace"); lf[112]=C_decode_literal(C_heaptop,"\376B\000\000\026^[ ]\052\134(error .\052\134)[ ]\052$"); lf[113]=C_decode_literal(C_heaptop,"\376B\000\000\031 \052#\134|[- ]\052([^- ]\052) \052\134|#.\052"); lf[114]=C_decode_literal(C_heaptop,"\376B\000\000\011 \052#!eof \052"); lf[115]=C_h_intern(&lf[115],9,"read-line"); lf[116]=C_h_intern(&lf[116],5,"abort"); lf[117]=C_h_intern(&lf[117],24,"make-composite-condition"); lf[118]=C_h_intern(&lf[118],23,"make-property-condition"); lf[119]=C_h_intern(&lf[119],20,"setup-download-error"); lf[120]=C_h_intern(&lf[120],3,"exn"); lf[121]=C_h_intern(&lf[121],7,"message"); lf[122]=C_h_intern(&lf[122],9,"arguments"); lf[123]=C_decode_literal(C_heaptop,"\376B\000\000\011[Server] "); lf[124]=C_h_intern(&lf[124],17,"close-output-port"); lf[125]=C_h_intern(&lf[125],16,"close-input-port"); lf[126]=C_decode_literal(C_heaptop,"\376B\000\000\006 ~a~%"); lf[127]=C_h_intern(&lf[127],7,"display"); lf[128]=C_h_intern(&lf[128],19,"with-output-to-file"); lf[129]=C_h_intern(&lf[129],7,"\000binary"); lf[130]=C_h_intern(&lf[130],20,"\003sysread-string/port"); lf[131]=C_decode_literal(C_heaptop,"\376B\000\000\006 ~a~%"); lf[132]=C_decode_literal(C_heaptop,"\376B\000\000\001/"); lf[133]=C_decode_literal(C_heaptop,"\376B\000\0001invalid file name - possibly corrupt transmission"); lf[134]=C_decode_literal(C_heaptop,"\376B\000\000\023reading files ...~%"); lf[135]=C_decode_literal(C_heaptop,"\376B\000\000\006\077name="); lf[136]=C_decode_literal(C_heaptop,"\376B\000\000\006&mode="); lf[137]=C_decode_literal(C_heaptop,"\376B\000\000\012&tests=yes"); lf[138]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[139]=C_h_intern(&lf[139],8,"->string"); lf[140]=C_decode_literal(C_heaptop,"\376B\000\000\011&version="); lf[141]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[143]=C_h_intern(&lf[143],11,"\000proxy-host"); lf[144]=C_h_intern(&lf[144],16,"\000proxy-user-pass"); lf[145]=C_decode_literal(C_heaptop,"\376B\000\000\004GET "); lf[146]=C_decode_literal(C_heaptop,"\376B\000\000\011 HTTP/1.1"); lf[147]=C_decode_literal(C_heaptop,"\376B\000\000\002\015\012"); lf[148]=C_decode_literal(C_heaptop,"\376B\000\000\014Connection: "); lf[149]=C_decode_literal(C_heaptop,"\376B\000\000\002\015\012"); lf[150]=C_decode_literal(C_heaptop,"\376B\000\000\014User-Agent: "); lf[151]=C_decode_literal(C_heaptop,"\376B\000\000\002\015\012"); lf[152]=C_decode_literal(C_heaptop,"\376B\000\000\010Accept: "); lf[153]=C_decode_literal(C_heaptop,"\376B\000\000\002\015\012"); lf[154]=C_decode_literal(C_heaptop,"\376B\000\000\006Host: "); lf[155]=C_decode_literal(C_heaptop,"\376B\000\000\002\015\012"); lf[156]=C_decode_literal(C_heaptop,"\376B\000\000\020Content-length: "); lf[157]=C_decode_literal(C_heaptop,"\376B\000\000\002\015\012"); lf[158]=C_decode_literal(C_heaptop,"\376B\000\000\002\015\012"); lf[159]=C_decode_literal(C_heaptop,"\376B\000\000\033Proxy-Authorization: Basic "); lf[160]=C_decode_literal(C_heaptop,"\376B\000\000\002\015\012"); lf[161]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[162]=C_decode_literal(C_heaptop,"\376B\000\000\007http://"); lf[163]=C_h_intern(&lf[163],15,"\003sysget-keyword"); lf[164]=C_h_intern(&lf[164],15,"\000content-length"); lf[165]=C_decode_literal(C_heaptop,"\376B\000\000\001\052"); lf[166]=C_h_intern(&lf[166],7,"\000accept"); lf[167]=C_decode_literal(C_heaptop,"\376B\000\000\005close"); lf[168]=C_h_intern(&lf[168],11,"\000connection"); lf[169]=C_h_intern(&lf[169],5,"\000port"); lf[171]=C_h_intern(&lf[171],14,"number->string"); lf[172]=C_h_intern(&lf[172],11,"tcp-connect"); lf[173]=C_h_intern(&lf[173],26,"string-concatenate-reverse"); lf[174]=C_decode_literal(C_heaptop,"\376B\000\000\002~%"); lf[175]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[176]=C_decode_literal(C_heaptop,"\376B\000\000/invalid response from server - please try again"); lf[177]=C_decode_literal(C_heaptop,"\376B\000\000\017reading chunks "); lf[178]=C_decode_literal(C_heaptop,"\376B\000\000\004~a~%"); lf[179]=C_decode_literal(C_heaptop,"\376B\000\000$[Tt]ransfer-[Ee]ncoding:\134s\052chunked.\052"); lf[180]=C_h_intern(&lf[180],12,"string-null\077"); lf[181]=C_decode_literal(C_heaptop,"\376B\000\000\003\052/\052"); lf[182]=C_h_intern(&lf[182],11,"\000proxy-port"); lf[183]=C_h_intern(&lf[183],10,"http-fetch"); lf[184]=C_decode_literal(C_heaptop,"\376B\000\000\034invalid response from server"); lf[185]=C_decode_literal(C_heaptop,"\376B\000\000\004~a~%"); lf[186]=C_decode_literal(C_heaptop,"\376B\000\000\034HTTP/[0-9.]+\134s+([0-9]+)\134s+.\052"); lf[187]=C_decode_literal(C_heaptop,"\376B\000\000\026reading response ...~%"); lf[188]=C_decode_literal(C_heaptop,"\376B\000\000\003\052/\052"); lf[189]=C_decode_literal(C_heaptop,"\376B\000\000\023requesting ~s ...~%"); lf[190]=C_decode_literal(C_heaptop,"\376B\000\000&connecting to host ~s, port ~a ~a...~%"); lf[191]=C_decode_literal(C_heaptop,"\376B\000\000\002) "); lf[192]=C_decode_literal(C_heaptop,"\376B\000\000\005(via "); lf[193]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[196]=C_decode_literal(C_heaptop,"\376B\000\000\026invalid extension name"); lf[197]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[198]=C_decode_literal(C_heaptop,"\376B\000\000\002.."); lf[199]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[200]=C_h_intern(&lf[200],12,"string-index"); lf[201]=C_h_intern(&lf[201],33,"setup-download#retrieve-extension"); lf[202]=C_h_intern(&lf[202],8,"\000version"); lf[203]=C_h_intern(&lf[203],6,"\000quiet"); lf[204]=C_h_intern(&lf[204],12,"\000destination"); lf[205]=C_h_intern(&lf[205],9,"\000username"); lf[206]=C_h_intern(&lf[206],9,"\000password"); lf[207]=C_h_intern(&lf[207],6,"\000tests"); lf[208]=C_h_intern(&lf[208],6,"\000trunk"); lf[209]=C_h_intern(&lf[209],6,"\000clean"); lf[210]=C_h_intern(&lf[210],5,"local"); lf[211]=C_h_intern(&lf[211],3,"svn"); lf[212]=C_h_intern(&lf[212],4,"http"); lf[213]=C_decode_literal(C_heaptop,"\376B\000\0001cannot retrieve extension - unsupported transport"); lf[214]=C_h_intern(&lf[214],16,"\003sysdynamic-wind"); lf[215]=C_h_intern(&lf[215],5,"\000mode"); lf[216]=C_h_intern(&lf[216],30,"setup-download#list-extensions"); lf[217]=C_h_intern(&lf[217],18,"string-concatenate"); lf[218]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[219]=C_h_intern(&lf[219],3,"map"); lf[220]=C_h_intern(&lf[220],17,"\003sysstring-append"); lf[221]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[222]=C_h_intern(&lf[222],12,"string-chomp"); lf[223]=C_decode_literal(C_heaptop,"\376B\000\000\001/"); lf[224]=C_decode_literal(C_heaptop,"\376B\000\000\047listing extension directory ...~% ~a~%"); lf[225]=C_decode_literal(C_heaptop,"\376B\000\000\014--password=\047"); lf[226]=C_decode_literal(C_heaptop,"\376B\000\000\001\047"); lf[227]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[228]=C_decode_literal(C_heaptop,"\376B\000\000\014--username=\047"); lf[229]=C_decode_literal(C_heaptop,"\376B\000\000\001\047"); lf[230]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[231]=C_decode_literal(C_heaptop,"\376B\000\000\007\077list=1"); lf[232]=C_h_intern(&lf[232],8,"read-all"); lf[233]=C_decode_literal(C_heaptop,"\376B\000\000.cannot list extensions - unsupported transport"); lf[234]=C_h_intern(&lf[234],38,"setup-download#list-extension-versions"); lf[235]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[236]=C_decode_literal(C_heaptop,"\376B\000\000\010unknown\012"); lf[237]=C_h_intern(&lf[237],17,"directory-exists\077"); lf[238]=C_decode_literal(C_heaptop,"\376B\000\000\005/tags"); lf[239]=C_decode_literal(C_heaptop,"\376B\000\000\010unknown\012"); lf[240]=C_decode_literal(C_heaptop,"\376B\000\000\001\012"); lf[241]=C_decode_literal(C_heaptop,"\376B\000\000\001/"); lf[242]=C_decode_literal(C_heaptop,"\376B\000\000\005/tags"); lf[243]=C_decode_literal(C_heaptop,"\376B\000\000\014--password=\047"); lf[244]=C_decode_literal(C_heaptop,"\376B\000\000\001\047"); lf[245]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[246]=C_decode_literal(C_heaptop,"\376B\000\000\014--username=\047"); lf[247]=C_decode_literal(C_heaptop,"\376B\000\000\001\047"); lf[248]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[249]=C_decode_literal(C_heaptop,"\376B\000\000.cannot list extensions - unsupported transport"); lf[250]=C_h_intern(&lf[250],8,"char-set"); lf[251]=C_h_intern(&lf[251],14,"make-parameter"); lf[252]=C_decode_literal(C_heaptop,"\376B\000\000\020chicken-install "); lf[253]=C_h_intern(&lf[253],15,"chicken-version"); lf[254]=C_h_intern(&lf[254],17,"tcp-write-timeout"); lf[255]=C_h_intern(&lf[255],16,"tcp-read-timeout"); lf[256]=C_h_intern(&lf[256],19,"tcp-connect-timeout"); lf[257]=C_h_intern(&lf[257],11,"\003sysrequire"); lf[258]=C_h_intern(&lf[258],9,"setup-api"); C_register_lf2(lf,259,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1281,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k2741 in k2737 in k2721 in k2718 in k2715 in k2712 in setup-download#make-HTTP-GET/1.1 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in ... */ static void C_ccall f_2743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2743,2,av);} C_trace("setup-download.scm:272: conc"); t2=C_fast_retrieve(lf[65]);{ C_word *av2; if(c >= 25) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(25); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[145]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[146]; av2[5]=lf[147]; av2[6]=lf[148]; av2[7]=((C_word*)t0)[4]; av2[8]=lf[149]; av2[9]=lf[150]; av2[10]=((C_word*)t0)[5]; av2[11]=lf[151]; av2[12]=lf[152]; av2[13]=((C_word*)t0)[6]; av2[14]=lf[153]; av2[15]=lf[154]; av2[16]=((C_word*)t0)[7]; av2[17]=C_make_character(58); av2[18]=((C_word*)t0)[8]; av2[19]=lf[155]; av2[20]=t1; av2[21]=lf[156]; av2[22]=((C_word*)t0)[9]; av2[23]=lf[157]; av2[24]=lf[158]; ((C_proc)(void*)(*((C_word*)t2+1)))(25,av2);}} /* k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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 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_3304,2,av);} a=C_alloc(12); t2=C_mutate2(&lf[194] /* (set! setup-download#slashes ...) */,t1); t3=C_mutate2(&lf[195] /* (set! setup-download#check-egg-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3326,a[2]=((C_word)li55),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[201]+1 /* (set! setup-download#retrieve-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3338,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[216]+1 /* (set! setup-download#list-extensions ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3443,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[234]+1 /* (set! setup-download#list-extension-versions ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3516,a[2]=((C_word)li76),tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k3298 in get-chunks in k2856 in k2847 in k2844 in k2841 in k2838 in k2835 in k2832 in k2829 in k2826 in k2823 in a2820 in k2800 in setup-download#http-connect in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in ... */ 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 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_3300,2,av);} a=C_alloc(10); t2=C_a_i_string_to_number(&a,2,t1,C_fix(16)); if(C_truep(t2)){ if(C_truep(C_i_zerop(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3277,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:419: d"); f_1337(t3,lf[174],C_SCHEME_END_OF_LIST);} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3283,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); C_trace("read-string/port"); t4=C_fast_retrieve(lf[130]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} else{ C_trace("setup-download.scm:417: error"); t3=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[176]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* a2750 in k2718 in k2715 in k2712 in setup-download#make-HTTP-GET/1.1 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ static void C_ccall f_2751(C_word c,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_2751,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3130 in k3127 in k3124 in k3108 in k3068 in k3062 in k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in ... */ 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; 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_3132,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3135,a[2]=((C_word*)t0)[2],a[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_3146,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:384: make-pathname"); t5=C_fast_retrieve(lf[20]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3133 in k3130 in k3127 in k3124 in k3108 in k3068 in k3062 in k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in ... */ static void C_ccall f_3135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3135,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); C_trace("setup-download.scm:385: get-files"); t3=((C_word*)((C_word*)t0)[4])[1]; f_3057(t3,((C_word*)t0)[5],t2);} /* a2756 in k2712 in setup-download#make-HTTP-GET/1.1 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_2757(C_word c,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_2757,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[167]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a3147 in k3144 in k3130 in k3127 in k3124 in k3108 in k3068 in k3062 in k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in ... */ 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!=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_3148,2,av);} C_trace("setup-download.scm:384: g763"); t2=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* a2753 in k2715 in k2712 in setup-download#make-HTTP-GET/1.1 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ static void C_ccall f_2754(C_word c,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_2754,2,av);} t2=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[165]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3144 in k3130 in k3127 in k3124 in k3108 in k3068 in k3062 in k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in ... */ static void C_ccall f_3146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_3146,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3148,a[2]=((C_word*)t0)[2],a[3]=((C_word)li32),tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:384: with-output-to-file"); t3=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t2; av2[4]=lf[129]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a1830 in k1824 in setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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 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,4)))){ C_save_and_reclaim((void *)f_1831,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1837,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li8),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1843,a[2]=t2,a[3]=((C_word)li17),tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:136: ##sys#call-with-values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a1836 in a1830 in k1824 in setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ static void C_ccall f_1837(C_word c,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_1837,2,av);} C_trace("setup-download.scm:137: locate-egg/local"); {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[19]); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[19]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* setup-download#retrieve-extension in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_3338(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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 +20,c,4)))){ C_save_and_reclaim((void*)f_3338,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+20); 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; t6=C_i_get_keyword(lf[202],t5,C_SCHEME_FALSE); t7=t6; t8=C_i_get_keyword(lf[203],t5,C_SCHEME_FALSE); t9=t8; t10=C_i_get_keyword(lf[204],t5,C_SCHEME_FALSE); t11=t10; t12=C_i_get_keyword(lf[205],t5,C_SCHEME_FALSE); t13=t12; t14=C_i_get_keyword(lf[206],t5,C_SCHEME_FALSE); t15=t14; t16=C_i_get_keyword(lf[207],t5,C_SCHEME_FALSE); t17=t16; t18=C_i_get_keyword(lf[143],t5,C_SCHEME_FALSE); t19=t18; t20=C_i_get_keyword(lf[182],t5,C_SCHEME_FALSE); t21=t20; t22=C_i_get_keyword(lf[144],t5,C_SCHEME_FALSE); t23=t22; t24=C_i_get_keyword(lf[208],t5,C_SCHEME_FALSE); t25=t24; t26=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_3372,a[2]=t5,a[3]=t9,a[4]=t25,a[5]=t3,a[6]=t2,a[7]=t4,a[8]=t7,a[9]=t11,a[10]=t13,a[11]=t15,a[12]=t17,a[13]=t19,a[14]=t21,a[15]=t23,a[16]=t1,tmp=(C_word)a,a+=17,tmp); t27=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3440,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:437: ##sys#get-keyword"); {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[163]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[163]+1); av2[1]=t26; av2[2]=lf[215]; av2[3]=t5; av2[4]=t27; tp(5,av2);}} /* k3233 in k3068 in k3062 in k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in ... */ static void C_ccall f_3235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3235,2,av);} C_trace("setup-download.scm:405: abort"); t2=C_fast_retrieve(lf[116]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3237 in k3068 in k3062 in k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3239,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3243,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:411: make-property-condition"); t4=C_fast_retrieve(lf[118]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[119]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* setup-download#check-egg-name in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_fcall f_3326(C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_3326,2,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3333,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t3; t5=t2; if(C_truep((C_truep(C_i_equalp(t5,lf[197]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t5,lf[198]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t5,lf[199]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))){ t6=t4;{ 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|2,a[1]=(C_word)f_3320,a[2]=t4,tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:431: string-index"); t7=C_fast_retrieve(lf[200]);{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=t5; av2[3]=C_retrieve2(lf[194],"setup-download#slashes"); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k3318 in setup-download#check-egg-name in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3320,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1876 in k1864 in a1857 in k1851 in k1845 in a1842 in a1830 in k1824 in setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ 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 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_1878,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1881,a[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_trace("setup-download.scm:144: g382"); t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k3241 in k3237 in k3068 in k3062 in k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in ... */ static void C_ccall f_3243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3243,2,av);} C_trace("setup-download.scm:406: make-composite-condition"); t2=C_fast_retrieve(lf[117]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3245 in k3068 in k3062 in k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in ... */ static void C_ccall f_3247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3247,2,av);} C_trace("setup-download.scm:407: make-property-condition"); t2=C_fast_retrieve(lf[118]);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[120]; av2[3]=lf[121]; av2[4]=t1; av2[5]=lf[122]; av2[6]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* a1842 in a1830 in k1824 in setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 in ... */ static void C_ccall f_1843(C_word c,C_word *av){ C_word tmp; C_word t0=av[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,4)))){ C_save_and_reclaim((void *)f_1843,4,av);} a=C_alloc(5); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1847,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:138: make-pathname"); t6=C_fast_retrieve(lf[20]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=((C_word*)t0)[2]; av2[4]=lf[59]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k1845 in a1842 in a1830 in k1824 in setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ 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 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_1847,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1853,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_trace("setup-download.scm:139: file-exists?"); t4=C_fast_retrieve(lf[24]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1851 in k1845 in a1842 in a1830 in k1824 in setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in ... */ static void C_ccall f_1853(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1853,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1858,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li16),tmp=(C_word)a,a+=6,tmp); C_trace("setup-download.scm:140: call/cc"); t3=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a1857 in k1851 in k1845 in a1842 in a1830 in k1824 in setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in ... */ 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=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_1858,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1866,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); C_trace("setup-download.scm:142: string->symbol"); t4=*((C_word*)lf[57]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1521 in a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1523,2,av);} C_trace("setup-download.scm:88: make-pathname"); t2=C_fast_retrieve(lf[20]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ static void C_ccall f_1525(C_word c,C_word *av){ C_word tmp; C_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,3)))){ C_save_and_reclaim((void*)f_1525,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; C_word t20; C_word t21; 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=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1547,a[2]=t2,a[3]=t7,a[4]=t17,a[5]=t1,a[6]=t12,tmp=(C_word)a,a+=7,tmp); C_trace("setup-download.scm:95: make-pathname"); t21=C_fast_retrieve(lf[20]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t21; av2[1]=t20; av2[2]=t3; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t21+1)))(4,av2);}} /* setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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=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_1822,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1826,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:134: directory"); t4=C_fast_retrieve(lf[48]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1824 in setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1826,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1831,a[2]=((C_word*)t0)[2],a[3]=((C_word)li18),tmp=(C_word)a,a+=4,tmp); C_trace("setup-download.scm:135: filter-map"); t3=C_fast_retrieve(lf[60]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k1573 in a1560 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in ... */ static void C_ccall f_1575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_1575,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1578,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]; if(C_truep(((C_word*)t0)[5])){ C_trace("setup-download.scm:82: warning"); t5=C_fast_retrieve(lf[25]);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[26]; av2[3]=t4; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; f_1578(2,av2);}}} /* k1570 in a1560 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1572,2,av);} C_trace("setup-download.scm:103: values");{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1576 in k1573 in a1560 in k1554 in k1551 in k1548 in k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in ... */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_1578,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1584,a[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_1593,a[2]=t2,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); C_trace("setup-download.scm:106: file-exists?"); t4=C_fast_retrieve(lf[24]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3114 in k3111 in k3108 in k3068 in k3062 in k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3116,2,av);} C_trace("setup-download.scm:379: get-files"); t2=((C_word*)((C_word*)t0)[2])[1]; f_3057(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k3111 in k3108 in k3068 in k3062 in k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3113,2,av);} a=C_alloc(8); 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); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3123,a[2]=t2,tmp=(C_word)a,a+=3,tmp); C_trace("setup-download.scm:378: make-pathname"); t4=C_fast_retrieve(lf[20]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3108 in k3068 in k3062 in k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 in ... */ static void C_ccall f_3110(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_3110,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3113,a[2]=((C_word*)t0)[2],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_trace("setup-download.scm:377: d"); f_1337(t2,lf[126],C_a_i_list(&a,1,((C_word*)t0)[6]));} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3126,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); C_trace("setup-download.scm:381: d"); f_1337(t2,lf[131],C_a_i_list(&a,1,((C_word*)t0)[6]));}} /* k3127 in k3124 in k3108 in k3068 in k3062 in k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in ... */ 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; 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_3129,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3132,a[2]=((C_word*)t0)[2],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_trace("read-string/port"); t3=C_fast_retrieve(lf[130]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3032 in k2983 in k2977 in k2968 in skip in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in k1319 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3034,2,av);} a=C_alloc(5); if(C_truep(t1)){ C_trace("setup-download.scm:359: open-input-string"); t2=C_fast_retrieve(lf[104]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_3043,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); C_trace("setup-download.scm:360: string-every"); t3=C_fast_retrieve(lf[110]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_fast_retrieve(lf[111]); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k2031 in map-loop425 in k1998 in k1978 in k1975 in k1972 in k1969 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 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 t3; 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_2033,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_2008(t6,((C_word*)t0)[5],t5);} /* k3124 in k3108 in k3068 in k3062 in k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in ... */ static void C_ccall f_3126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_3126,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3129,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_trace("setup-download.scm:382: read"); t3=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1545 in setup-download#locate-egg/local in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in k1279 */ 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; 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_1547,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1550,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_trace("setup-download.scm:96: make-pathname"); t4=C_fast_retrieve(lf[20]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[49]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3121 in k3111 in k3108 in k3068 in k3062 in k3059 in get-files in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in ... */ 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,2)))){ C_save_and_reclaim((void *)f_3123,2,av);} C_trace("setup-download.scm:378: create-directory"); t2=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3041 in k3032 in k2983 in k2977 in k2968 in skip in k2962 in a3180 in a2570 in a2564 in a2540 in k2531 in k2528 in k2525 in k2522 in k2519 in a2516 in setup-download#locate-egg/http in k1349 in k1330 in k1325 in k1322 in ... */ 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,3)))){ C_save_and_reclaim((void *)f_3043,2,av);} if(C_truep(t1)){ C_trace("setup-download.scm:361: skip"); t2=((C_word*)((C_word*)t0)[2])[1]; f_2966(t2,((C_word*)t0)[3]);} else{ C_trace("setup-download.scm:363: error"); t2=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[109]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* a1888 in a1882 in k1864 in a1857 in k1851 in k1845 in a1842 in a1830 in k1824 in setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in ... */ 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=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_1889,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1895,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li9),tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:144: k378"); t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k1879 in k1876 in k1864 in a1857 in k1851 in k1845 in a1842 in a1830 in k1824 in setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in ... */ static void C_ccall f_1881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1881,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; /* Re-use our own argvector */ 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);}} /* a1882 in k1864 in a1857 in k1851 in k1845 in a1842 in a1830 in k1824 in setup-download#gather-egg-information in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ 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=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,3)))){ C_save_and_reclaim((void *)f_1883,3,av);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1889,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li10),tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1904,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word)li14),tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:144: with-exception-handler"); t5=C_fast_retrieve(lf[55]);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3214 in a3198 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in k1282 in ... */ static void C_ccall f_3215(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_3215,4,av);} a=C_alloc(5); t4=t2; t5=t3; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3219,a[2]=t1,a[3]=t5,a[4]=t4,tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:399: read-all"); t7=C_fast_retrieve(lf[232]);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k3211 in a3204 in a3198 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_3213,2,av);} C_trace("setup-download.scm:395: http-connect"); f_2798(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k3217 in a3214 in a3198 in a3471 in setup-download#list-extensions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in k1291 in k1288 in k1285 in ... */ 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 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_3219,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3222,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); C_trace("setup-download.scm:400: close-input-port"); t4=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1510 in map-loop223 in k1480 in k1465 in k1459 in a3538 in k3527 in setup-download#list-extension-versions in k3302 in k1349 in k1330 in k1325 in k1322 in k1319 in k1315 in k1312 in k1309 in k1306 in k1303 in k1300 in k1297 in k1294 in ... */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1512,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_1487(t6,((C_word*)t0)[5],t5);} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[295] = { {"f_1899:setup_2ddownload_2escm",(void*)f_1899}, {"f_1895:setup_2ddownload_2escm",(void*)f_1895}, {"f_3225:setup_2ddownload_2escm",(void*)f_3225}, {"f_3222:setup_2ddownload_2escm",(void*)f_3222}, {"f_3057:setup_2ddownload_2escm",(void*)f_3057}, {"f_1561:setup_2ddownload_2escm",(void*)f_1561}, {"f_1866:setup_2ddownload_2escm",(void*)f_1866}, {"f3787:setup_2ddownload_2escm",(void*)f3787}, {"f3783:setup_2ddownload_2escm",(void*)f3783}, {"f_1704:setup_2ddownload_2escm",(void*)f_1704}, {"f_1709:setup_2ddownload_2escm",(void*)f_1709}, {"f_1584:setup_2ddownload_2escm",(void*)f_1584}, {"f_1717:setup_2ddownload_2escm",(void*)f_1717}, {"f_2008:setup_2ddownload_2escm",(void*)f_2008}, {"f_3255:setup_2ddownload_2escm",(void*)f_3255}, {"f_2006:setup_2ddownload_2escm",(void*)f_2006}, {"f_2000:setup_2ddownload_2escm",(void*)f_2000}, {"f_1556:setup_2ddownload_2escm",(void*)f_1556}, {"f_1553:setup_2ddownload_2escm",(void*)f_1553}, {"f_1550:setup_2ddownload_2escm",(void*)f_1550}, {"f_2901:setup_2ddownload_2escm",(void*)f_2901}, {"f_1727:setup_2ddownload_2escm",(void*)f_1727}, {"f_2907:setup_2ddownload_2escm",(void*)f_2907}, {"f_3011:setup_2ddownload_2escm",(void*)f_3011}, {"f_3014:setup_2ddownload_2escm",(void*)f_3014}, {"f_2917:setup_2ddownload_2escm",(void*)f_2917}, {"f_1740:setup_2ddownload_2escm",(void*)f_1740}, {"f_1748:setup_2ddownload_2escm",(void*)f_1748}, {"f_3205:setup_2ddownload_2escm",(void*)f_3205}, {"f_2923:setup_2ddownload_2escm",(void*)f_2923}, {"f_2279:setup_2ddownload_2escm",(void*)f_2279}, {"f_2286:setup_2ddownload_2escm",(void*)f_2286}, {"f_2283:setup_2ddownload_2escm",(void*)f_2283}, {"f_1755:setup_2ddownload_2escm",(void*)f_1755}, {"f_1759:setup_2ddownload_2escm",(void*)f_1759}, {"f_2937:setup_2ddownload_2escm",(void*)f_2937}, {"f_2934:setup_2ddownload_2escm",(void*)f_2934}, {"f_2289:setup_2ddownload_2escm",(void*)f_2289}, {"f_2930:setup_2ddownload_2escm",(void*)f_2930}, {"f_2949:setup_2ddownload_2escm",(void*)f_2949}, {"f_2946:setup_2ddownload_2escm",(void*)f_2946}, {"f_2943:setup_2ddownload_2escm",(void*)f_2943}, {"f_1771:setup_2ddownload_2escm",(void*)f_1771}, {"f_1777:setup_2ddownload_2escm",(void*)f_1777}, {"f_3061:setup_2ddownload_2escm",(void*)f_3061}, {"f_3064:setup_2ddownload_2escm",(void*)f_3064}, {"f_2955:setup_2ddownload_2escm",(void*)f_2955}, {"f_2952:setup_2ddownload_2escm",(void*)f_2952}, {"f_1784:setup_2ddownload_2escm",(void*)f_1784}, {"f_3070:setup_2ddownload_2escm",(void*)f_3070}, {"f_2171:setup_2ddownload_2escm",(void*)f_2171}, {"f_1977:setup_2ddownload_2escm",(void*)f_1977}, {"f_2964:setup_2ddownload_2escm",(void*)f_2964}, {"f_2966:setup_2ddownload_2escm",(void*)f_2966}, {"f_1971:setup_2ddownload_2escm",(void*)f_1971}, {"f_1974:setup_2ddownload_2escm",(void*)f_1974}, {"f_2088:setup_2ddownload_2escm",(void*)f_2088}, {"f_1980:setup_2ddownload_2escm",(void*)f_1980}, {"f_3092:setup_2ddownload_2escm",(void*)f_3092}, {"f_3095:setup_2ddownload_2escm",(void*)f_3095}, {"f_2091:setup_2ddownload_2escm",(void*)f_2091}, {"f_2097:setup_2ddownload_2escm",(void*)f_2097}, {"f_2094:setup_2ddownload_2escm",(void*)f_2094}, {"f_1996:setup_2ddownload_2escm",(void*)f_1996}, {"f_1287:setup_2ddownload_2escm",(void*)f_1287}, {"f_1284:setup_2ddownload_2escm",(void*)f_1284}, {"f_1281:setup_2ddownload_2escm",(void*)f_1281}, {"f_1299:setup_2ddownload_2escm",(void*)f_1299}, {"f_1296:setup_2ddownload_2escm",(void*)f_1296}, {"f_1293:setup_2ddownload_2escm",(void*)f_1293}, {"f_1290:setup_2ddownload_2escm",(void*)f_1290}, {"f_1485:setup_2ddownload_2escm",(void*)f_1485}, {"f_1487:setup_2ddownload_2escm",(void*)f_1487}, {"f_1482:setup_2ddownload_2escm",(void*)f_1482}, {"f_2203:setup_2ddownload_2escm",(void*)f_2203}, {"f_3472:setup_2ddownload_2escm",(void*)f_3472}, {"f_2231:setup_2ddownload_2escm",(void*)f_2231}, {"f_2237:setup_2ddownload_2escm",(void*)f_2237}, {"f_2234:setup_2ddownload_2escm",(void*)f_2234}, {"f_2243:setup_2ddownload_2escm",(void*)f_2243}, {"f_2240:setup_2ddownload_2escm",(void*)f_2240}, {"f_2246:setup_2ddownload_2escm",(void*)f_2246}, {"f_2251:setup_2ddownload_2escm",(void*)f_2251}, {"f_3511:setup_2ddownload_2escm",(void*)f_3511}, {"f_2119:setup_2ddownload_2escm",(void*)f_2119}, {"f_3516:setup_2ddownload_2escm",(void*)f_3516}, {"f_3529:setup_2ddownload_2escm",(void*)f_3529}, {"f_2587:setup_2ddownload_2escm",(void*)f_2587}, {"f_2262:setup_2ddownload_2escm",(void*)f_2262}, {"f_1681:setup_2ddownload_2escm",(void*)f_1681}, {"f_2265:setup_2ddownload_2escm",(void*)f_2265}, {"f_1684:setup_2ddownload_2escm",(void*)f_1684}, {"f_2129:setup_2ddownload_2escm",(void*)f_2129}, {"f_2123:setup_2ddownload_2escm",(void*)f_2123}, {"f_3431:setup_2ddownload_2escm",(void*)f_3431}, {"f_1698:setup_2ddownload_2escm",(void*)f_1698}, {"f_1691:setup_2ddownload_2escm",(void*)f_1691}, {"f_1695:setup_2ddownload_2escm",(void*)f_1695}, {"f_2131:setup_2ddownload_2escm",(void*)f_2131}, {"f_3443:setup_2ddownload_2escm",(void*)f_3443}, {"f_3440:setup_2ddownload_2escm",(void*)f_3440}, {"f_2156:setup_2ddownload_2escm",(void*)f_2156}, {"f_3567:setup_2ddownload_2escm",(void*)f_3567}, {"f_2167:setup_2ddownload_2escm",(void*)f_2167}, {"f_3539:setup_2ddownload_2escm",(void*)f_3539}, {"f_3534:setup_2ddownload_2escm",(void*)f_3534}, {"f_1448:setup_2ddownload_2escm",(void*)f_1448}, {"f_1384:setup_2ddownload_2escm",(void*)f_1384}, {"f_3574:setup_2ddownload_2escm",(void*)f_3574}, {"f_2979:setup_2ddownload_2escm",(void*)f_2979}, {"f_3383:setup_2ddownload_2escm",(void*)f_3383}, {"f_2970:setup_2ddownload_2escm",(void*)f_2970}, {"f_3378:setup_2ddownload_2escm",(void*)f_3378}, {"f_2985:setup_2ddownload_2escm",(void*)f_2985}, {"f_2989:setup_2ddownload_2escm",(void*)f_2989}, {"f_2432:setup_2ddownload_2escm",(void*)f_2432}, {"f_2436:setup_2ddownload_2escm",(void*)f_2436}, {"f_3467:setup_2ddownload_2escm",(void*)f_3467}, {"f_2440:setup_2ddownload_2escm",(void*)f_2440}, {"f_2993:setup_2ddownload_2escm",(void*)f_2993}, {"f_2449:setup_2ddownload_2escm",(void*)f_2449}, {"f_2607:setup_2ddownload_2escm",(void*)f_2607}, {"f_2452:setup_2ddownload_2escm",(void*)f_2452}, {"f_1620:setup_2ddownload_2escm",(void*)f_1620}, {"f_1623:setup_2ddownload_2escm",(void*)f_1623}, {"f_1626:setup_2ddownload_2escm",(void*)f_1626}, {"f_1629:setup_2ddownload_2escm",(void*)f_1629}, {"f_1904:setup_2ddownload_2escm",(void*)f_1904}, {"f_2469:setup_2ddownload_2escm",(void*)f_2469}, {"f_1418:setup_2ddownload_2escm",(void*)f_1418}, {"f_2343:setup_2ddownload_2escm",(void*)f_2343}, {"f_2345:setup_2ddownload_2escm",(void*)f_2345}, {"f_2349:setup_2ddownload_2escm",(void*)f_2349}, {"f_3392:setup_2ddownload_2escm",(void*)f_3392}, {"f_1423:setup_2ddownload_2escm",(void*)f_1423}, {"f_1421:setup_2ddownload_2escm",(void*)f_1421}, {"f_1916:setup_2ddownload_2escm",(void*)f_1916}, {"f_1910:setup_2ddownload_2escm",(void*)f_1910}, {"f_1928:setup_2ddownload_2escm",(void*)f_1928}, {"f_2511:setup_2ddownload_2escm",(void*)f_2511}, {"f_2517:setup_2ddownload_2escm",(void*)f_2517}, {"f_1922:setup_2ddownload_2escm",(void*)f_1922}, {"f_2802:setup_2ddownload_2escm",(void*)f_2802}, {"f_1332:setup_2ddownload_2escm",(void*)f_1332}, {"f_2807:setup_2ddownload_2escm",(void*)f_2807}, {"f_1337:setup_2ddownload_2escm",(void*)f_1337}, {"f_3372:setup_2ddownload_2escm",(void*)f_3372}, {"f_2521:setup_2ddownload_2escm",(void*)f_2521}, {"f_2524:setup_2ddownload_2escm",(void*)f_2524}, {"f_2527:setup_2ddownload_2escm",(void*)f_2527}, {"f_2611:setup_2ddownload_2escm",(void*)f_2611}, {"f_2336:setup_2ddownload_2escm",(void*)f_2336}, {"f_1344:setup_2ddownload_2escm",(void*)f_1344}, {"f_2421:setup_2ddownload_2escm",(void*)f_2421}, {"f_2425:setup_2ddownload_2escm",(void*)f_2425}, {"f_2530:setup_2ddownload_2escm",(void*)f_2530}, {"f_2533:setup_2ddownload_2escm",(void*)f_2533}, {"f_2536:setup_2ddownload_2escm",(void*)f_2536}, {"f_2309:setup_2ddownload_2escm",(void*)f_2309}, {"f_1943:setup_2ddownload_2escm",(void*)f_1943}, {"f_2305:setup_2ddownload_2escm",(void*)f_2305}, {"f_2821:setup_2ddownload_2escm",(void*)f_2821}, {"f_1353:setup_2ddownload_2escm",(void*)f_1353}, {"f_1351:setup_2ddownload_2escm",(void*)f_1351}, {"f_2825:setup_2ddownload_2escm",(void*)f_2825}, {"f_1357:setup_2ddownload_2escm",(void*)f_1357}, {"f_2828:setup_2ddownload_2escm",(void*)f_2828}, {"f_1461:setup_2ddownload_2escm",(void*)f_1461}, {"f_1467:setup_2ddownload_2escm",(void*)f_1467}, {"f_1645:setup_2ddownload_2escm",(void*)f_1645}, {"f_1648:setup_2ddownload_2escm",(void*)f_1648}, {"f_3199:setup_2ddownload_2escm",(void*)f_3199}, {"f_2359:setup_2ddownload_2escm",(void*)f_2359}, {"f_3193:setup_2ddownload_2escm",(void*)f_3193}, {"f_1654:setup_2ddownload_2escm",(void*)f_1654}, {"f_2557:setup_2ddownload_2escm",(void*)f_2557}, {"f_2553:setup_2ddownload_2escm",(void*)f_2553}, {"f_1657:setup_2ddownload_2escm",(void*)f_1657}, {"f_2326:setup_2ddownload_2escm",(void*)f_2326}, {"f_2700:setup_2ddownload_2escm",(void*)f_2700}, {"f_2565:setup_2ddownload_2escm",(void*)f_2565}, {"f_2704:setup_2ddownload_2escm",(void*)f_2704}, {"f_2708:setup_2ddownload_2escm",(void*)f_2708}, {"f_3175:setup_2ddownload_2escm",(void*)f_3175}, {"f_1598:setup_2ddownload_2escm",(void*)f_1598}, {"f_2571:setup_2ddownload_2escm",(void*)f_2571}, {"f_1593:setup_2ddownload_2escm",(void*)f_1593}, {"f_2710:setup_2ddownload_2escm",(void*)f_2710}, {"f_2575:setup_2ddownload_2escm",(void*)f_2575}, {"f_2714:setup_2ddownload_2escm",(void*)f_2714}, {"f_2717:setup_2ddownload_2escm",(void*)f_2717}, {"f_3181:setup_2ddownload_2escm",(void*)f_3181}, {"f_1608:setup_2ddownload_2escm",(void*)f_1608}, {"f_2319:setup_2ddownload_2escm",(void*)f_2319}, {"f_2870:setup_2ddownload_2escm",(void*)f_2870}, {"f_2313:setup_2ddownload_2escm",(void*)f_2313}, {"f_1324:setup_2ddownload_2escm",(void*)f_1324}, {"f_1321:setup_2ddownload_2escm",(void*)f_1321}, {"f_2874:setup_2ddownload_2escm",(void*)f_2874}, {"f_1327:setup_2ddownload_2escm",(void*)f_1327}, {"f_2593:setup_2ddownload_2escm",(void*)f_2593}, {"f_1617:setup_2ddownload_2escm",(void*)f_1617}, {"f_2880:setup_2ddownload_2escm",(void*)f_2880}, {"f_1663:setup_2ddownload_2escm",(void*)f_1663}, {"f_1660:setup_2ddownload_2escm",(void*)f_1660}, {"f_1669:setup_2ddownload_2escm",(void*)f_1669}, {"f_2892:setup_2ddownload_2escm",(void*)f_2892}, {"f_2896:setup_2ddownload_2escm",(void*)f_2896}, {"f_1675:setup_2ddownload_2escm",(void*)f_1675}, {"f_1678:setup_2ddownload_2escm",(void*)f_1678}, {"f_2541:setup_2ddownload_2escm",(void*)f_2541}, {"f_2547:setup_2ddownload_2escm",(void*)f_2547}, {"f_2760:setup_2ddownload_2escm",(void*)f_2760}, {"f_2831:setup_2ddownload_2escm",(void*)f_2831}, {"f_1363:setup_2ddownload_2escm",(void*)f_1363}, {"f_2837:setup_2ddownload_2escm",(void*)f_2837}, {"f_2834:setup_2ddownload_2escm",(void*)f_2834}, {"f_1366:setup_2ddownload_2escm",(void*)f_1366}, {"f_1368:setup_2ddownload_2escm",(void*)f_1368}, {"f_3277:setup_2ddownload_2escm",(void*)f_3277}, {"f_2775:setup_2ddownload_2escm",(void*)f_2775}, {"f_2840:setup_2ddownload_2escm",(void*)f_2840}, {"f_3283:setup_2ddownload_2escm",(void*)f_3283}, {"f_2849:setup_2ddownload_2escm",(void*)f_2849}, {"f_2843:setup_2ddownload_2escm",(void*)f_2843}, {"f_2846:setup_2ddownload_2escm",(void*)f_2846}, {"f_3289:setup_2ddownload_2escm",(void*)f_3289}, {"f_3333:setup_2ddownload_2escm",(void*)f_3333}, {"f_3286:setup_2ddownload_2escm",(void*)f_3286}, {"f_2786:setup_2ddownload_2escm",(void*)f_2786}, {"f_2858:setup_2ddownload_2escm",(void*)f_2858}, {"f_1305:setup_2ddownload_2escm",(void*)f_1305}, {"f_1302:setup_2ddownload_2escm",(void*)f_1302}, {"f_1308:setup_2ddownload_2escm",(void*)f_1308}, {"f_2798:setup_2ddownload_2escm",(void*)f_2798}, {"f_2790:setup_2ddownload_2escm",(void*)f_2790}, {"f_2861:setup_2ddownload_2escm",(void*)f_2861}, {"f_1314:setup_2ddownload_2escm",(void*)f_1314}, {"f_1311:setup_2ddownload_2escm",(void*)f_1311}, {"f_2868:setup_2ddownload_2escm",(void*)f_2868}, {"f_2864:setup_2ddownload_2escm",(void*)f_2864}, {"f_1317:setup_2ddownload_2escm",(void*)f_1317}, {"f_2723:setup_2ddownload_2escm",(void*)f_2723}, {"f_2720:setup_2ddownload_2escm",(void*)f_2720}, {"f_2739:setup_2ddownload_2escm",(void*)f_2739}, {"toplevel:setup_2ddownload_2escm",(void*)C_toplevel}, {"f_2743:setup_2ddownload_2escm",(void*)f_2743}, {"f_3304:setup_2ddownload_2escm",(void*)f_3304}, {"f_3300:setup_2ddownload_2escm",(void*)f_3300}, {"f_2751:setup_2ddownload_2escm",(void*)f_2751}, {"f_3132:setup_2ddownload_2escm",(void*)f_3132}, {"f_3135:setup_2ddownload_2escm",(void*)f_3135}, {"f_2757:setup_2ddownload_2escm",(void*)f_2757}, {"f_3148:setup_2ddownload_2escm",(void*)f_3148}, {"f_2754:setup_2ddownload_2escm",(void*)f_2754}, {"f_3146:setup_2ddownload_2escm",(void*)f_3146}, {"f_1831:setup_2ddownload_2escm",(void*)f_1831}, {"f_1837:setup_2ddownload_2escm",(void*)f_1837}, {"f_3338:setup_2ddownload_2escm",(void*)f_3338}, {"f_3235:setup_2ddownload_2escm",(void*)f_3235}, {"f_3239:setup_2ddownload_2escm",(void*)f_3239}, {"f_3326:setup_2ddownload_2escm",(void*)f_3326}, {"f_3320:setup_2ddownload_2escm",(void*)f_3320}, {"f_1878:setup_2ddownload_2escm",(void*)f_1878}, {"f_3243:setup_2ddownload_2escm",(void*)f_3243}, {"f_3247:setup_2ddownload_2escm",(void*)f_3247}, {"f_1843:setup_2ddownload_2escm",(void*)f_1843}, {"f_1847:setup_2ddownload_2escm",(void*)f_1847}, {"f_1853:setup_2ddownload_2escm",(void*)f_1853}, {"f_1858:setup_2ddownload_2escm",(void*)f_1858}, {"f_1523:setup_2ddownload_2escm",(void*)f_1523}, {"f_1525:setup_2ddownload_2escm",(void*)f_1525}, {"f_1822:setup_2ddownload_2escm",(void*)f_1822}, {"f_1826:setup_2ddownload_2escm",(void*)f_1826}, {"f_1575:setup_2ddownload_2escm",(void*)f_1575}, {"f_1572:setup_2ddownload_2escm",(void*)f_1572}, {"f_1578:setup_2ddownload_2escm",(void*)f_1578}, {"f_3116:setup_2ddownload_2escm",(void*)f_3116}, {"f_3113:setup_2ddownload_2escm",(void*)f_3113}, {"f_3110:setup_2ddownload_2escm",(void*)f_3110}, {"f_3129:setup_2ddownload_2escm",(void*)f_3129}, {"f_3034:setup_2ddownload_2escm",(void*)f_3034}, {"f_2033:setup_2ddownload_2escm",(void*)f_2033}, {"f_3126:setup_2ddownload_2escm",(void*)f_3126}, {"f_1547:setup_2ddownload_2escm",(void*)f_1547}, {"f_3123:setup_2ddownload_2escm",(void*)f_3123}, {"f_3043:setup_2ddownload_2escm",(void*)f_3043}, {"f_1889:setup_2ddownload_2escm",(void*)f_1889}, {"f_1881:setup_2ddownload_2escm",(void*)f_1881}, {"f_1883:setup_2ddownload_2escm",(void*)f_1883}, {"f_3215:setup_2ddownload_2escm",(void*)f_3215}, {"f_3213:setup_2ddownload_2escm",(void*)f_3213}, {"f_3219:setup_2ddownload_2escm",(void*)f_3219}, {"f_1512:setup_2ddownload_2escm",(void*)f_1512}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding nonexported module bindings: setup-download#constant148 o|hiding nonexported module bindings: setup-download#*quiet* o|hiding nonexported module bindings: setup-download#*chicken-install-user-agent* o|hiding nonexported module bindings: setup-download#*trunk* o|hiding nonexported module bindings: setup-download#*mode* o|hiding nonexported module bindings: setup-download#*windows-shell* o|hiding nonexported module bindings: setup-download#d o|hiding nonexported module bindings: setup-download#get-temporary-directory o|hiding nonexported module bindings: setup-download#existing-version o|hiding nonexported module bindings: setup-download#when-no-such-version-warning o|hiding nonexported module bindings: setup-download#list-eggs/local o|hiding nonexported module bindings: setup-download#list-egg-versions/local o|hiding nonexported module bindings: setup-download#make-svn-ls-cmd o|hiding nonexported module bindings: setup-download#make-svn-export-cmd o|hiding nonexported module bindings: setup-download#list-eggs/svn o|hiding nonexported module bindings: setup-download#list-egg-versions/svn o|hiding nonexported module bindings: setup-download#metafile o|hiding nonexported module bindings: setup-download#deconstruct-url o|hiding nonexported module bindings: setup-download#network-failure o|hiding nonexported module bindings: setup-download#make-HTTP-GET/1.1 o|hiding nonexported module bindings: setup-download#match-http-response o|hiding nonexported module bindings: setup-download#response-match-code? o|hiding nonexported module bindings: setup-download#match-chunked-transfer-encoding o|hiding nonexported module bindings: setup-download#http-connect o|hiding nonexported module bindings: setup-download#http-retrieve-files o|hiding nonexported module bindings: setup-download#http-fetch o|hiding nonexported module bindings: setup-download#list-eggs/http o|hiding nonexported module bindings: setup-download#throw-server-error o|hiding nonexported module bindings: setup-download#read-chunks o|hiding nonexported module bindings: setup-download#slashes o|hiding nonexported module bindings: setup-download#valid-extension-name? o|hiding nonexported module bindings: setup-download#check-egg-name S|applied compiler syntax: S| for-each 1 S| sprintf 3 S| map 4 o|eliminated procedure checks: 43 o|specializations: o| 8 (eqv? * (not float)) o| 1 (cddr (pair * pair)) o| 1 (string=? string string) o| 2 (string-append string string) o| 2 (zero? fixnum) o| 3 (##sys#check-output-port * * *) o| 3 (##sys#check-list (or pair list) *) o| 2 (car pair) o| 1 (current-output-port) o| 1 (current-error-port) (o e)|safe calls: 378 o|Removed `not' forms: 4 o|merged explicitly consed rest parameter: args158 o|inlining procedure: k1358 o|inlining procedure: k1358 o|inlining procedure: k1370 o|inlining procedure: k1370 o|inlining procedure: k1395 o|inlining procedure: k1395 o|inlining procedure: k1563 o|inlining procedure: k1563 o|inlining procedure: k1600 o|inlining procedure: k1600 o|inlining procedure: k1630 o|inlining procedure: k1630 o|consed rest parameter at call site: "(setup-download.scm:118) setup-download#d" 2 o|substituted constant variable: a1650 o|substituted constant variable: a1651 o|substituted constant variable: a1671 o|substituted constant variable: a1672 o|inlining procedure: k1696 o|inlining procedure: k1719 o|contracted procedure: "(setup-download.scm:125) g346353" o|consed rest parameter at call site: "(setup-download.scm:128) setup-download#d" 2 o|inlining procedure: k1719 o|propagated global variable: g341342 string-suffix? o|inlining procedure: k1696 o|contracted procedure: k1763 o|propagated global variable: r1764 setup-download#*trunk* o|inlining procedure: k1766 o|inlining procedure: k1766 o|inlining procedure: k1848 o|inlining procedure: k1848 o|merged explicitly consed rest parameter: tmp392396 o|inlining procedure: k2253 o|inlining procedure: k2253 o|inlining procedure: k2290 o|inlining procedure: k2290 o|consed rest parameter at call site: "(setup-download.scm:214) setup-download#d" 2 o|contracted procedure: "(setup-download.scm:202) setup-download#make-svn-export-cmd" o|inlining procedure: "(setup-download.scm:212) setup-download#metafile" o|inlining procedure: k2324 o|inlining procedure: "(setup-download.scm:207) setup-download#metafile" o|inlining procedure: k2324 o|inlining procedure: k2334 o|inlining procedure: k2334 o|inlining procedure: k2350 o|inlining procedure: k2350 o|consed rest parameter at call site: "(setup-download.scm:184) setup-download#d" 2 o|consed rest parameter at call site: "(setup-download.scm:183) setup-download#make-svn-ls-cmd" 4 o|inlining procedure: k2441 o|inlining procedure: k2441 o|inlining procedure: k2456 o|inlining procedure: k2456 o|substituted constant variable: setup-download#constant148 o|inlining procedure: k2555 o|inlining procedure: k2555 o|inlining procedure: k2580 o|inlining procedure: k2580 o|contracted procedure: "(setup-download.scm:252) setup-download#http-fetch" o|contracted procedure: "(setup-download.scm:390) setup-download#http-retrieve-files" o|inlining procedure: k2971 o|inlining procedure: k2971 o|inlining procedure: k3000 o|inlining procedure: k3000 o|substituted constant variable: a3024 o|inlining procedure: k3029 o|inlining procedure: k3029 o|inlining procedure: k3065 o|contracted procedure: "(setup-download.scm:369) setup-download#throw-server-error" o|inlining procedure: k3065 o|contracted procedure: k3099 o|inlining procedure: k3096 o|consed rest parameter at call site: "(setup-download.scm:377) setup-download#d" 2 o|consed rest parameter at call site: "(setup-download.scm:381) setup-download#d" 2 o|inlining procedure: k3096 o|consed rest parameter at call site: "(setup-download.scm:341) setup-download#d" 2 o|inlining procedure: k2613 o|inlining procedure: k2613 o|merged explicitly consed rest parameter: tmp622626 o|inlining procedure: k2777 o|inlining procedure: k2777 o|inlining procedure: k2817 o|inlining procedure: k2817 o|inlining procedure: k2850 o|contracted procedure: "(setup-download.scm:335) setup-download#read-chunks" o|contracted procedure: k3263 o|inlining procedure: k3260 o|consed rest parameter at call site: "(setup-download.scm:419) setup-download#d" 2 o|consed rest parameter at call site: "(setup-download.scm:423) setup-download#d" 2 o|inlining procedure: k3260 o|consed rest parameter at call site: "(setup-download.scm:334) setup-download#d" 2 o|inlining procedure: k2850 o|inlining procedure: k2875 o|inlining procedure: k2875 o|consed rest parameter at call site: "(setup-download.scm:331) setup-download#d" 2 o|contracted procedure: "(setup-download.scm:330) setup-download#match-chunked-transfer-encoding" o|consed rest parameter at call site: "(setup-download.scm:320) setup-download#make-HTTP-GET/1.1" 4 o|inlining procedure: k2918 o|inlining procedure: k2918 o|contracted procedure: "(setup-download.scm:326) setup-download#network-failure" o|consed rest parameter at call site: "(setup-download.scm:314) setup-download#d" 2 o|contracted procedure: "(setup-download.scm:313) setup-download#match-http-response" o|inlining procedure: k2765 o|inlining procedure: k2765 o|consed rest parameter at call site: "(setup-download.scm:310) setup-download#d" 2 o|consed rest parameter at call site: "(setup-download.scm:306) setup-download#make-HTTP-GET/1.1" 4 o|consed rest parameter at call site: "(setup-download.scm:304) setup-download#d" 2 o|consed rest parameter at call site: "(setup-download.scm:299) setup-download#d" 2 o|substituted constant variable: a2939 o|substituted constant variable: a2940 o|inlining procedure: k2932 o|consed rest parameter at call site: "(setup-download.scm:299) setup-download#d" 2 o|inlining procedure: k2932 o|consed rest parameter at call site: "(setup-download.scm:299) setup-download#d" 2 o|inlining procedure: k3328 o|inlining procedure: k3328 o|contracted procedure: "(setup-download.scm:434) setup-download#valid-extension-name?" o|contracted procedure: k3311 o|inlining procedure: k3308 o|inlining procedure: k3308 o|inlining procedure: k3394 o|inlining procedure: k3394 o|inlining procedure: k3412 o|inlining procedure: k3412 o|substituted constant variable: a3425 o|substituted constant variable: a3427 o|substituted constant variable: a3429 o|inlining procedure: k3474 o|contracted procedure: "(setup-download.scm:460) setup-download#list-eggs/local" o|inlining procedure: k1425 o|contracted procedure: "(setup-download.scm:85) g187196" o|inlining procedure: k1425 o|inlining procedure: k3474 o|contracted procedure: "(setup-download.scm:462) setup-download#list-eggs/svn" o|inlining procedure: k2010 o|contracted procedure: "(setup-download.scm:166) g431440" o|substituted constant variable: a1997 o|inlining procedure: k2010 o|consed rest parameter at call site: "(setup-download.scm:164) setup-download#d" 2 o|consed rest parameter at call site: "(setup-download.scm:163) setup-download#make-svn-ls-cmd" 4 o|inlining procedure: k3492 o|contracted procedure: "(setup-download.scm:464) setup-download#list-eggs/http" o|inlining procedure: k3492 o|substituted constant variable: a3505 o|substituted constant variable: a3507 o|substituted constant variable: a3509 o|inlining procedure: k3541 o|contracted procedure: "(setup-download.scm:473) setup-download#list-egg-versions/local" o|inlining procedure: k1462 o|inlining procedure: k1489 o|contracted procedure: "(setup-download.scm:91) g229238" o|inlining procedure: k1489 o|inlining procedure: k1462 o|inlining procedure: k3541 o|contracted procedure: "(setup-download.scm:475) setup-download#list-egg-versions/svn" o|inlining procedure: k2098 o|inlining procedure: k2098 o|inlining procedure: k2133 o|contracted procedure: "(setup-download.scm:177) g481490" o|substituted constant variable: a2120 o|inlining procedure: k2133 o|consed rest parameter at call site: "(setup-download.scm:172) setup-download#make-svn-ls-cmd" 4 o|substituted constant variable: a3563 o|substituted constant variable: a3565 o|replaced variables: 360 o|removed binding forms: 179 o|removed side-effect free assignment to unused variable: setup-download#constant148 o|substituted constant variable: r17673600 o|substituted constant variable: r18493602 o|substituted constant variable: r23513628 o|removed side-effect free assignment to unused variable: setup-download#metafile o|substituted constant variable: r24423631 o|substituted constant variable: r24423631 o|inlining procedure: k2580 o|inlining procedure: k2580 o|inlining procedure: k3000 o|inlining procedure: k3000 o|substituted constant variable: r26143667 o|substituted constant variable: r26143667 o|substituted constant variable: r26143669 o|substituted constant variable: r26143669 o|removed call to pure procedure with unused result: "(setup-download.scm:265) get-keyword" o|substituted constant variable: r27783672 o|substituted constant variable: r27663694 o|substituted constant variable: r29333697 o|substituted constant variable: r29333697 o|substituted constant variable: r33093701 o|substituted constant variable: r14633719 o|substituted constant variable: r20993721 o|replaced variables: 21 o|removed binding forms: 386 o|inlining procedure: "(setup-download.scm:105) setup-download#when-no-such-version-warning" o|inlining procedure: "(setup-download.scm:197) setup-download#when-no-such-version-warning" o|contracted procedure: k2727 o|inlining procedure: k2881 o|inlining procedure: k2881 o|replaced variables: 17 o|removed binding forms: 53 o|removed side-effect free assignment to unused variable: setup-download#when-no-such-version-warning o|substituted constant variable: r25813735 o|replaced variables: 10 o|removed binding forms: 19 o|removed binding forms: 8 o|simplifications: ((if . 41) (##core#call . 200)) o| call simplifications: o| ##sys#check-list 2 o| ##sys#setslot 4 o| zero? o| string? 2 o| read-string 2 o| cadr o| eof-object? 2 o| string=? 3 o| string->number 2 o| ##sys#get-keyword 23 o| list o| ##sys#apply 2 o| cons 12 o| car 17 o| null? 35 o| cdr 17 o| ##sys#call-with-values 11 o| not 5 o| ##sys#slot 14 o| eq? 13 o| values 20 o| pair? 7 o| member 3 o| apply o|contracted procedure: k1339 o|contracted procedure: k1376 o|contracted procedure: k1388 o|contracted procedure: k1815 o|contracted procedure: k1527 o|contracted procedure: k1809 o|contracted procedure: k1530 o|contracted procedure: k1803 o|contracted procedure: k1533 o|contracted procedure: k1797 o|contracted procedure: k1536 o|contracted procedure: k1791 o|contracted procedure: k1539 o|contracted procedure: k1785 o|contracted procedure: k1542 o|inlining procedure: k1582 o|contracted procedure: k1603 o|contracted procedure: k1633 o|contracted procedure: k1722 o|contracted procedure: k1732 o|contracted procedure: k1736 o|contracted procedure: k1872 o|contracted procedure: k1868 o|contracted procedure: k1930 o|contracted procedure: k1937 o|contracted procedure: k2408 o|contracted procedure: k2205 o|contracted procedure: k2402 o|contracted procedure: k2208 o|contracted procedure: k2396 o|contracted procedure: k2211 o|contracted procedure: k2390 o|contracted procedure: k2214 o|contracted procedure: k2384 o|contracted procedure: k2217 o|contracted procedure: k2378 o|contracted procedure: k2220 o|contracted procedure: k2372 o|contracted procedure: k2223 o|contracted procedure: k2366 o|contracted procedure: k2226 o|contracted procedure: k2269 o|contracted procedure: k2293 o|contracted procedure: k1951 o|contracted procedure: k2314 o|contracted procedure: k2327 o|contracted procedure: k2453 o|contracted procedure: k2685 o|contracted procedure: k2471 o|contracted procedure: k2679 o|contracted procedure: k2474 o|contracted procedure: k2673 o|contracted procedure: k2477 o|contracted procedure: k2667 o|contracted procedure: k2480 o|contracted procedure: k2661 o|contracted procedure: k2483 o|contracted procedure: k2655 o|contracted procedure: k2486 o|contracted procedure: k2649 o|contracted procedure: k2489 o|contracted procedure: k2643 o|contracted procedure: k2492 o|contracted procedure: k2637 o|contracted procedure: k2495 o|contracted procedure: k2631 o|contracted procedure: k2498 o|contracted procedure: k2625 o|contracted procedure: k2501 o|contracted procedure: k2619 o|contracted procedure: k2504 o|contracted procedure: k2974 o|contracted procedure: k2994 o|contracted procedure: k2997 o|contracted procedure: k3021 o|contracted procedure: k3075 o|contracted procedure: k3084 o|contracted procedure: k3087 o|contracted procedure: k3154 o|contracted procedure: k3140 o|contracted procedure: k3160 o|contracted procedure: k2724 o|contracted procedure: k2730 o|contracted procedure: k2813 o|contracted procedure: k3257 o|contracted procedure: k3272 o|contracted procedure: k3294 o|contracted procedure: k2768 o|contracted procedure: k3322 o|contracted procedure: k3340 o|contracted procedure: k3343 o|contracted procedure: k3346 o|contracted procedure: k3349 o|contracted procedure: k3352 o|contracted procedure: k3355 o|contracted procedure: k3358 o|contracted procedure: k3361 o|contracted procedure: k3364 o|contracted procedure: k3367 o|contracted procedure: k3373 o|contracted procedure: k3397 o|contracted procedure: k3406 o|contracted procedure: k3415 o|contracted procedure: k3445 o|contracted procedure: k3448 o|contracted procedure: k3451 o|contracted procedure: k3454 o|contracted procedure: k3457 o|contracted procedure: k3460 o|contracted procedure: k3477 o|contracted procedure: k1408 o|contracted procedure: k1428 o|contracted procedure: k1431 o|contracted procedure: k1434 o|contracted procedure: k1442 o|contracted procedure: k1450 o|contracted procedure: k3486 o|contracted procedure: k2065 o|contracted procedure: k1957 o|contracted procedure: k2059 o|contracted procedure: k1960 o|contracted procedure: k2053 o|contracted procedure: k1963 o|contracted procedure: k2047 o|contracted procedure: k1966 o|contracted procedure: k1985 o|contracted procedure: k2001 o|contracted procedure: k2013 o|contracted procedure: k2016 o|contracted procedure: k2019 o|contracted procedure: k2027 o|contracted procedure: k2035 o|contracted procedure: k3495 o|contracted procedure: k3518 o|contracted procedure: k3521 o|contracted procedure: k3524 o|contracted procedure: k3544 o|contracted procedure: k1472 o|contracted procedure: k1492 o|contracted procedure: k1495 o|contracted procedure: k1498 o|contracted procedure: k1506 o|contracted procedure: k1514 o|contracted procedure: k3553 o|contracted procedure: k2196 o|contracted procedure: k2074 o|contracted procedure: k2190 o|contracted procedure: k2077 o|contracted procedure: k2184 o|contracted procedure: k2080 o|contracted procedure: k2178 o|contracted procedure: k2083 o|contracted procedure: k2101 o|contracted procedure: k2108 o|contracted procedure: k2124 o|contracted procedure: k2136 o|contracted procedure: k2139 o|contracted procedure: k2142 o|contracted procedure: k2150 o|contracted procedure: k2158 o|simplifications: ((if . 1) (let . 13)) o|removed binding forms: 159 o|substituted constant variable: r15833871 o|inlining procedure: k2263 o|replaced variables: 108 o|removed conditional forms: 1 o|removed binding forms: 42 o|removed binding forms: 1 o|customizable procedures: (map-loop475493 map-loop223248 map-loop425443 map-loop181206 setup-download#check-egg-name setup-download#response-match-code? setup-download#make-HTTP-GET/1.1 loop692 get-chunks819 k3068 get-files742 skip714 g725726 k3009 setup-download#http-connect setup-download#deconstruct-url setup-download#make-svn-ls-cmd setup-download#get-temporary-directory setup-download#existing-version k1606 for-each-loop345357 setup-download#d) o|calls to known targets: 87 o|fast box initializations: 9 o|fast global references: 56 o|fast global assignments: 25 o|dropping unused closure argument: f_1928 o|dropping unused closure argument: f_1337 o|dropping unused closure argument: f_2421 o|dropping unused closure argument: f_1353 o|dropping unused closure argument: f_2710 o|dropping unused closure argument: f_1368 o|dropping unused closure argument: f_2775 o|dropping unused closure argument: f_2798 o|dropping unused closure argument: f_3326 */ /* end of file */ �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/srfi-4.import.c����������������������������������������������������������������������0000644�0001750�0001750�00000026622�13052306543�015602� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from srfi-4.import.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: srfi-4.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file srfi-4.import.c used units: library eval chicken_2dsyntax */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_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_199) static void C_ccall f_199(C_word c,C_word *av) C_noret; C_noret_decl(f_208) static void C_ccall f_208(C_word c,C_word *av) C_noret; C_noret_decl(f_205) static void C_ccall f_205(C_word c,C_word *av) C_noret; C_noret_decl(f_202) static void C_ccall f_202(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; /* k197 */ static void C_ccall f_199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_199,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k206 in k203 in k200 in k197 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_208,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k203 in k200 in k197 */ static void C_ccall f_205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_205,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.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; /* Re-use our own argvector */ } 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);}} /* k200 in k197 */ static void C_ccall f_202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(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(1184))){ C_save(t1); C_rereclaim2(1184*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,3); lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module"); lf[1]=C_h_intern(&lf[1],6,"srfi-4"); lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\017blob->f32vector\376\003\000\000\002\376\001\000\000\026blob->f32vector/shared\376\003\000\000\002\376\001\000\000\017blob->f64vect" "or\376\003\000\000\002\376\001\000\000\026blob->f64vector/shared\376\003\000\000\002\376\001\000\000\017blob->s16vector\376\003\000\000\002\376\001\000\000\026blob->s16ve" "ctor/shared\376\003\000\000\002\376\001\000\000\017blob->s32vector\376\003\000\000\002\376\001\000\000\026blob->s32vector/shared\376\003\000\000\002\376\001\000\000\016bl" "ob->s8vector\376\003\000\000\002\376\001\000\000\025blob->s8vector/shared\376\003\000\000\002\376\001\000\000\017blob->u16vector\376\003\000\000\002\376\001\000\000\026bl" "ob->u16vector/shared\376\003\000\000\002\376\001\000\000\017blob->u32vector\376\003\000\000\002\376\001\000\000\026blob->u32vector/shared\376\003\000" "\000\002\376\001\000\000\016blob->u8vector\376\003\000\000\002\376\001\000\000\025blob->u8vector/shared\376\003\000\000\002\376\001\000\000\011f32vector\376\003\000\000\002\376\001\000\000" "\017f32vector->blob\376\003\000\000\002\376\001\000\000\026f32vector->blob/shared\376\003\000\000\002\376\001\000\000\026f32vector->byte-vector" "\376\003\000\000\002\376\001\000\000\017f32vector->list\376\003\000\000\002\376\001\000\000\020f32vector-length\376\003\000\000\002\376\001\000\000\015f32vector-ref\376\003\000\000\002\376" "\001\000\000\016f32vector-set!\376\003\000\000\002\376\001\000\000\012f32vector\077\376\003\000\000\002\376\001\000\000\011f64vector\376\003\000\000\002\376\001\000\000\017f64vector->bl" "ob\376\003\000\000\002\376\001\000\000\026f64vector->blob/shared\376\003\000\000\002\376\001\000\000\026f64vector->byte-vector\376\003\000\000\002\376\001\000\000\017f64v" "ector->list\376\003\000\000\002\376\001\000\000\020f64vector-length\376\003\000\000\002\376\001\000\000\015f64vector-ref\376\003\000\000\002\376\001\000\000\016f64vector-" "set!\376\003\000\000\002\376\001\000\000\012f64vector\077\376\003\000\000\002\376\001\000\000\017list->f32vector\376\003\000\000\002\376\001\000\000\017list->f64vector\376\003\000\000\002\376" "\001\000\000\017list->s16vector\376\003\000\000\002\376\001\000\000\017list->s32vector\376\003\000\000\002\376\001\000\000\016list->s8vector\376\003\000\000\002\376\001\000\000\017li" "st->u16vector\376\003\000\000\002\376\001\000\000\017list->u32vector\376\003\000\000\002\376\001\000\000\016list->u8vector\376\003\000\000\002\376\001\000\000\016make-f32" "vector\376\003\000\000\002\376\001\000\000\016make-f64vector\376\003\000\000\002\376\001\000\000\016make-s16vector\376\003\000\000\002\376\001\000\000\016make-s32vector\376\003" "\000\000\002\376\001\000\000\015make-s8vector\376\003\000\000\002\376\001\000\000\016make-u16vector\376\003\000\000\002\376\001\000\000\016make-u32vector\376\003\000\000\002\376\001\000\000\015m" "ake-u8vector\376\003\000\000\002\376\001\000\000\015read-u8vector\376\003\000\000\002\376\001\000\000\016read-u8vector!\376\003\000\000\002\376\001\000\000\025release-num" "ber-vector\376\003\000\000\002\376\001\000\000\011s16vector\376\003\000\000\002\376\001\000\000\017s16vector->blob\376\003\000\000\002\376\001\000\000\026s16vector->blob/" "shared\376\003\000\000\002\376\001\000\000\026s16vector->byte-vector\376\003\000\000\002\376\001\000\000\017s16vector->list\376\003\000\000\002\376\001\000\000\020s16vect" "or-length\376\003\000\000\002\376\001\000\000\015s16vector-ref\376\003\000\000\002\376\001\000\000\016s16vector-set!\376\003\000\000\002\376\001\000\000\012s16vector\077\376\003\000\000" "\002\376\001\000\000\011s32vector\376\003\000\000\002\376\001\000\000\017s32vector->blob\376\003\000\000\002\376\001\000\000\026s32vector->blob/shared\376\003\000\000\002\376\001\000" "\000\026s32vector->byte-vector\376\003\000\000\002\376\001\000\000\017s32vector->list\376\003\000\000\002\376\001\000\000\020s32vector-length\376\003\000\000\002" "\376\001\000\000\015s32vector-ref\376\003\000\000\002\376\001\000\000\016s32vector-set!\376\003\000\000\002\376\001\000\000\012s32vector\077\376\003\000\000\002\376\001\000\000\010s8vector" "\376\003\000\000\002\376\001\000\000\016s8vector->blob\376\003\000\000\002\376\001\000\000\025s8vector->blob/shared\376\003\000\000\002\376\001\000\000\025s8vector->byte-" "vector\376\003\000\000\002\376\001\000\000\016s8vector->list\376\003\000\000\002\376\001\000\000\017s8vector-length\376\003\000\000\002\376\001\000\000\014s8vector-ref\376\003\000" "\000\002\376\001\000\000\015s8vector-set!\376\003\000\000\002\376\001\000\000\011s8vector\077\376\003\000\000\002\376\001\000\000\014subf32vector\376\003\000\000\002\376\001\000\000\014subf64vec" "tor\376\003\000\000\002\376\001\000\000\014subs16vector\376\003\000\000\002\376\001\000\000\014subs32vector\376\003\000\000\002\376\001\000\000\013subs8vector\376\003\000\000\002\376\001\000\000\014su" "bu16vector\376\003\000\000\002\376\001\000\000\014subu32vector\376\003\000\000\002\376\001\000\000\013subu8vector\376\003\000\000\002\376\001\000\000\011u16vector\376\003\000\000\002\376\001\000" "\000\017u16vector->blob\376\003\000\000\002\376\001\000\000\026u16vector->blob/shared\376\003\000\000\002\376\001\000\000\026u16vector->byte-vecto" "r\376\003\000\000\002\376\001\000\000\017u16vector->list\376\003\000\000\002\376\001\000\000\020u16vector-length\376\003\000\000\002\376\001\000\000\015u16vector-ref\376\003\000\000\002" "\376\001\000\000\016u16vector-set!\376\003\000\000\002\376\001\000\000\012u16vector\077\376\003\000\000\002\376\001\000\000\011u32vector\376\003\000\000\002\376\001\000\000\017u32vector->b" "lob\376\003\000\000\002\376\001\000\000\026u32vector->blob/shared\376\003\000\000\002\376\001\000\000\026u32vector->byte-vector\376\003\000\000\002\376\001\000\000\017u32" "vector->list\376\003\000\000\002\376\001\000\000\020u32vector-length\376\003\000\000\002\376\001\000\000\015u32vector-ref\376\003\000\000\002\376\001\000\000\016u32vector" "-set!\376\003\000\000\002\376\001\000\000\012u32vector\077\376\003\000\000\002\376\001\000\000\010u8vector\376\003\000\000\002\376\001\000\000\016u8vector->blob\376\003\000\000\002\376\001\000\000\025u8v" "ector->blob/shared\376\003\000\000\002\376\001\000\000\025u8vector->byte-vector\376\003\000\000\002\376\001\000\000\016u8vector->list\376\003\000\000\002\376\001" "\000\000\017u8vector-length\376\003\000\000\002\376\001\000\000\014u8vector-ref\376\003\000\000\002\376\001\000\000\015u8vector-set!\376\003\000\000\002\376\001\000\000\011u8vecto" "r\077\376\003\000\000\002\376\001\000\000\016write-u8vector\376\003\000\000\002\376\001\000\000\016number-vector\077\376\377\016"); C_register_lf2(lf,3,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_199,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {"f_199:srfi_2d4_2eimport_2escm",(void*)f_199}, {"f_208:srfi_2d4_2eimport_2escm",(void*)f_208}, {"f_205:srfi_2d4_2eimport_2escm",(void*)f_205}, {"f_202:srfi_2d4_2eimport_2escm",(void*)f_202}, {"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|removed binding forms: 4 */ /* end of file */ ��������������������������������������������������������������������������������������������������������������chicken-4.12.0/Makefile.cross-linux-mingw�����������������������������������������������������������0000644�0001750�0001750�00000010556�13052302367�020064� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# Makefile.cross-linux-mingw - configuration for MinGW (crosscompiled from Linux) -*- Makefile -*- # # Copyright (c) 2008-2017, 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_BUG_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_BUG_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 ifdef SYMBOLGC echo "#define C_COLLECT_ALL_SYMBOLS" >>$@ endif echo "#define C_USE_STD_FEATURE_MACROS" >>$@ cat chicken-defaults.h >>$@ include $(SRCDIR)rules.make ��������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/irregex-utils.scm��������������������������������������������������������������������0000644�0001750�0001750�00000012443�13052306173�016323� 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-4.12.0/chicken-install.scm������������������������������������������������������������������0000644�0001750�0001750�00000115313�13052306173�016570� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken-install.scm ; ; Copyright (c) 2008-2017, 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. (require-library setup-download setup-api) (require-library srfi-1 posix data-structures utils irregex ports extras srfi-13 files) (module main () (import scheme chicken srfi-1 posix data-structures utils irregex ports extras srfi-13 files) (import setup-download setup-api) (import foreign) (define +default-repository-files+ ;;XXX keep this up-to-date! '("setup-api.so" "setup-api.import.so" "setup-download.so" "setup-download.import.so" "chicken.import.so" "lolevel.import.so" "srfi-1.import.so" "srfi-4.import.so" "data-structures.import.so" "ports.import.so" "files.import.so" "posix.import.so" "srfi-13.import.so" "srfi-69.import.so" "extras.import.so" "srfi-14.import.so" "tcp.import.so" "foreign.import.so" "srfi-18.import.so" "utils.import.so" "csi.import.so" "irregex.import.so" "types.db")) (define-constant +defaults-version+ 1) (define-constant +module-db+ "modules.db") (define-constant +defaults-file+ "setup.defaults") (define-foreign-variable C_TARGET_LIB_HOME c-string) (define-foreign-variable C_INSTALL_BIN_HOME c-string) (define-foreign-variable C_TARGET_PREFIX c-string) (define-foreign-variable C_BINARY_VERSION int) (define-foreign-variable C_WINDOWS_SHELL bool) (define-foreign-variable C_CSI_PROGRAM c-string) (define *program-path* (or (and-let* ((p (get-environment-variable "CHICKEN_PREFIX"))) (make-pathname p "bin") ) C_INSTALL_BIN_HOME)) (define *keep* #f) (define *keep-existing* #f) (define *force* #f) (define *run-tests* #f) (define *retrieve-only* #f) (define *no-install* #f) (define *username* #f) (define *password* #f) (define *default-sources* '()) (define *default-location* #f) (define *default-transport* 'http) (define *windows-shell* C_WINDOWS_SHELL) (define *proxy-host* #f) (define *proxy-port* #f) (define *proxy-user-pass* #f) (define *running-test* #f) (define *mappings* '()) (define *deploy* #f) (define *trunk* #f) (define *csc-features* '()) (define *csc-nonfeatures* '()) (define *prefix* #f) (define *no-install-deps* #f) (define *aliases* '()) (define *cross-chicken* (feature? #:cross-chicken)) (define *host-extension* *cross-chicken*) (define *target-extension* *cross-chicken*) (define *debug-setup* #f) (define *keep-going* #f) (define *override* '()) (define *reinstall* #f) (define *show-depends* #f) (define *show-foreign-depends* #f) (define *hacks* '()) (define (repo-path) (if *deploy* *prefix* (if (and *cross-chicken* (not *host-extension*)) (make-pathname C_TARGET_LIB_HOME (sprintf "chicken/~a" C_BINARY_VERSION)) (if *prefix* (make-pathname *prefix* (sprintf "lib/chicken/~a" (##sys#fudge 42))) (repository-path))))) (define (get-prefix #!optional runtime) (cond ((and *cross-chicken* (not *host-extension*)) (or (and (not runtime) *prefix*) C_TARGET_PREFIX)) (else *prefix*))) (define (load-defaults) (let ((deff (make-pathname (chicken-home) +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 setup-API version (~a)" +defaults-file+ +defaults-version+) (cadr x))) ;; ignored )) ((server) (set! *default-sources* (append *default-sources* (list (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))) (read-file (cadr x)) (cdr x)))) ((hack) (set! *hacks* (append *hacks* (list (eval (cadr x)))))) (else (broken x)))) (read-file deff)))) (pair? *default-sources*) )) (define (resolve-location name) (cond ((assoc name *aliases*) => (lambda (a) (let ((new (cdr a))) ;(print "resolving alias `" name "' to: " new) (resolve-location new)))) (else name))) (define (known-default-sources) (if (and *default-location* *default-transport*) `(((location ,(if (and (eq? *default-transport* 'local) (not (absolute-pathname? *default-location*) )) (make-pathname (current-directory) *default-location*) *default-location*)) (transport ,*default-transport*))) *default-sources* ) ) (define (deps key meta) (or (and-let* ((d (assq key meta))) (cdr d)) '())) (define (init-repository dir) (let ((src (repo-path)) (copy (if *windows-shell* "copy" "cp -r"))) (create-directory dir #t) (print "copying required files to " dir " ...") (for-each (lambda (f) (command "~a ~a ~a" copy (shellpath (make-pathname src f)) (shellpath dir))) +default-repository-files+))) (define (ext-version x) (cond ((or (eq? x 'chicken) (equal? x "chicken") (let ((xs (->string x))) (or (member xs ##sys#core-library-modules) (member xs ##sys#core-syntax-modules)))) (chicken-version) ) ;; Duplication of (extension-information) to get custom ;; prefix. This should be fixed. ((let* ((ep (##sys#canonicalize-extension-path x 'ext-version)) (sf (make-pathname (repo-path) ep "setup-info"))) (and (file-exists? sf) (with-input-from-file sf read))) => (lambda (info) (let ((a (assq 'version info))) (if a (->string (cadr a)) "0.0.0")))) (else #f))) (define (meta-dependencies meta) (append (deps 'depends meta) (deps 'needs meta) (if *run-tests* (deps 'test-depends meta) '()))) (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* (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 (outdated-dependencies egg meta) (let ((ds (meta-dependencies meta))) (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 ((dep (car deps)) (rest (cdr deps))) (let-values (((m u) (check-dependency dep))) (loop rest (if m (cons m missing) missing) (if u (cons u upgrade) upgrade)))))))) (define *eggs+dirs+vers* '()) (define *dependencies* '()) (define *checked* '()) (define *csi* (shellpath (make-pathname *program-path* C_CSI_PROGRAM))) (define (try-extension name version trans locn) (condition-case (retrieve-extension name trans locn version: version destination: (and *retrieve-only* (current-directory)) tests: *run-tests* username: *username* password: *password* trunk: *trunk* proxy-host: *proxy-host* proxy-port: *proxy-port* proxy-user-pass: *proxy-user-pass* clean: (and (not *retrieve-only*) (not *keep*))) [(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) ] ) ) (define (with-default-sources proc) (let ((sources (known-default-sources))) (let trying-sources ((defs sources)) (if (null? defs) (proc #f #f (lambda () (with-output-to-port (current-error-port) (lambda () (print "Could not determine a source of extensions. " "Please specify a valid location and transport."))) (exit 1))) (let ((def (car defs))) (if def (let* ((locn (resolve-location (cadr (or (assq 'location def) (error "missing location entry" def))))) (trans (cadr (or (assq 'transport def) (error "missing transport entry" def))))) (proc trans locn (lambda () (unless (eq? 'local trans) ;; invalidate this entry in the list of sources (set-car! defs #f)) (trying-sources (cdr defs))))) (trying-sources (cdr defs)))))))) (define (try-default-sources name version) (with-default-sources (lambda (trans locn next) (if (not trans) (values #f "") (let-values (((dir ver) (try-extension name version trans locn))) (if dir (values dir ver) (next))))))) (define (make-replace-extension-question e+d+v upgrade) (string-concatenate (append (list "The following installed extensions are outdated, because `" (car e+d+v) "' requires later versions:\n") (filter-map (lambda (e) (cond ((assq (string->symbol (car e)) *override*) => (lambda (a) (unless (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) " (" (let ((v (assq 'version (extension-information (car e))))) (if v (cadr v) "???")) " -> " (cdr e) ")" #\newline) ))) upgrade) '("\nDo you want to replace the existing extensions?")))) (define (override-version egg) (let ((name (string->symbol (if (pair? egg) (car egg) egg)))) (cond ((assq name *override*) => (lambda (a) (cond ((and (pair? egg) (not (equal? (cadr a) (cdr egg)))) (warning (sprintf "version `~a' of extension `~a' overrides explicitly given version `~a'" (cadr a) name (cdr egg)))) (else (print "overriding: " a))) (cadr a))) ((pair? egg) (cdr egg)) (else #f)))) (define (show-depends eggs . type) (print "fetching meta information...") (retrieve eggs) (let ((type (optional type 'depends))) (printf "~a dependencies as reported in .meta:\n" (case type ((depends) "Egg") ((foreign-depends) "Foreign"))) (for-each (lambda (egg) (and-let* ((meta-file (make-pathname (cadr egg) (car egg) "meta")) (m (and (file-exists? meta-file) (with-input-from-file meta-file read))) (ds (if (eq? type 'depends) (append (deps 'needs m) (deps type m)) (deps type m)))) (unless (null? ds) (print (car egg) ": ") (for-each (cut print "\t" <>) ds)))) *eggs+dirs+vers*) (cleanup) (exit 0))) (define (retrieve eggs) (print "retrieving ...") (for-each (lambda (egg) (cond [(assoc egg *eggs+dirs+vers*) => (lambda (a) ;; push to front (set! *eggs+dirs+vers* (cons a (delete a *eggs+dirs+vers* eq?))) ) ] [else (let ((name (if (pair? egg) (car egg) egg)) (version (override-version egg))) (let-values (((dir ver) (try-default-sources name version))) (when (or (not dir) (null? (directory dir))) (error "extension or version not found")) (print " " name " located at " dir) (set! *eggs+dirs+vers* (cons (list name dir ver) *eggs+dirs+vers*)) ) ) ] ) ) eggs) (unless *retrieve-only* (for-each (lambda (e+d+v) (unless (member (car e+d+v) *checked*) (set! *checked* (cons (car e+d+v) *checked*)) (let ((mfile (make-pathname (cadr e+d+v) (car e+d+v) "meta"))) (cond [(file-exists? mfile) (let ((meta (with-input-from-file mfile read))) (print "checking platform for `" (car e+d+v) "' ...") (check-platform (car e+d+v) meta) (print "checking dependencies for `" (car e+d+v) "' ...") (let-values (((missing upgrade) (if *no-install-deps* (values '() '()) (outdated-dependencies (car e+d+v) meta)))) (set! missing (apply-mappings missing)) ;XXX only missing - wrong? (set! *dependencies* (cons (cons (car e+d+v) (map (lambda (mu) (if (pair? mu) (car mu) mu)) (append missing upgrade))) *dependencies*)) (when (pair? missing) (print " missing: " (string-intersperse missing ", ")) (retrieve missing)) (when (and (pair? upgrade) (or *force* (yes-or-no? (make-replace-extension-question e+d+v upgrade) default: "no" abort: (abort-setup) ) ) ) (let ([ueggs (unzip1 upgrade)]) (print " upgrade: " (string-intersperse ueggs ", ")) (for-each (lambda (e) (print "removing previously installed extension `" e "' ...") (remove-extension e) ) ueggs) (retrieve ueggs) ) ) ) ) ] [else (warning (string-append "extension `" (car e+d+v) "' has no .meta file " "- assuming it has no dependencies")) ] ) ) ) ) *eggs+dirs+vers*) ) ) (define (check-platform name meta) (define (fail) (error "extension is not targeted for this system" name)) (unless *cross-chicken* (and-let* ((platform (assq 'platform meta))) (let loop ((p (cadr platform))) (cond ((symbol? p) (or (feature? p) (fail))) ((not (list? p)) (error "invalid `platform' property" name (cadr platform))) ((and (eq? 'not (car p)) (pair? (cdr p))) (and (not (loop (cadr p))) (fail))) ((eq? 'and (car p)) (and (every loop (cdr p)) (fail))) ((eq? 'or (car p)) (and (not (any loop (cdr p))) (fail))) (else (error "invalid `platform' property" name (cadr platform)))))))) (define (back-slash->forward-slash path) (if *windows-shell* (string-translate path #\\ #\/) path)) (define (make-install-command egg-name egg-version dep?) (conc *csi* " -bnq " (if (or *deploy* (and *cross-chicken* ; disable -setup-mode when cross-compiling, (not *host-extension*))) ; host-repo must always take precedence "" "-setup-mode ") "-e \"(require-library setup-api)\" -e \"(import setup-api)\" " (if *debug-setup* "" "-e \"(setup-error-handling)\" ") (sprintf "-e \"(extension-name-and-version '(\\\"~a\\\" \\\"~a\\\"))\"" egg-name egg-version) (if (sudo-install) " -e \"(sudo-install #t)\"" "") (if *keep* " -e \"(keep-intermediates #t)\"" "") (if (and *no-install* (not dep?)) " -e \"(setup-install-mode #f)\"" "") (if *host-extension* " -e \"(host-extension #t)\"" "") (let ((prefix (get-prefix))) (if prefix (sprintf " -e \"(destination-prefix \\\"~a\\\")\"" (back-slash->forward-slash (normalize-pathname prefix))) "")) (let ((prefix (get-prefix #t))) (if prefix (sprintf " -e \"(runtime-prefix \\\"~a\\\")\"" (back-slash->forward-slash (normalize-pathname prefix))) "")) (if (pair? *csc-features*) (sprintf " -e \"(extra-features '~s)\"" *csc-features*) "") (if (pair? *csc-nonfeatures*) (sprintf " -e \"(extra-nonfeatures '~s)\"" *csc-nonfeatures*) "") (if *deploy* " -e \"(deployment-mode #t)\"" "") #\space (shellpath (string-append egg-name ".setup"))) ) (define-syntax keep-going (syntax-rules () ((_ (name mode) body ...) (let ((tmp (lambda () body ...))) (if *keep-going* (handle-exceptions ex (begin (print mode " extension `" name "' failed:") (print-error-message ex) (print "\nnevertheless trying to continue ...") #f) (tmp)) (tmp)))))) (define (install eggs) (when *keep-existing* (set! eggs (remove (lambda (egg) (ext-version (if (pair? egg) (car egg) egg))) eggs))) (retrieve eggs) (unless *retrieve-only* (let* ((dag (reverse (topological-sort *dependencies* string=?))) (num (length dag)) (depinstall-ok *force*) (eggs+dirs+vers (map (cut assoc <> *eggs+dirs+vers*) dag))) (and-let* ((ibad (list-index not eggs+dirs+vers))) ;; A dependency was left unretrieved, most likely because the user declined an upgrade. (fprintf (current-error-port) "\nUnresolved dependency: ~a\n\n" (list-ref dag ibad)) (cleanup) (exit 1)) (print "install order:") (pp dag) (for-each (lambda (e+d+v i) (let ((isdep (and (pair? eggs) (not (find (lambda (e) (equal? (if (pair? e) (car e) e) (car e+d+v))) eggs))))) (when (and (not depinstall-ok) isdep) (when (and *no-install* (not (yes-or-no? (string-append "You specified `-no-install', but this extension has dependencies" " that are required for building.\nDo you still want to install them?") abort: (abort-setup)))) (print "aborting installation.") (cleanup) (exit 1))) (print "installing " (car e+d+v) #\: (caddr e+d+v) " ...") (let ((tmpcopy (and *target-extension* *host-extension* (create-temporary-directory))) (eggdir (cadr e+d+v))) (when tmpcopy (print "copying sources for target installation") (command "~a ~a ~a" (if *windows-shell* "xcopy" "cp -r") (make-pathname eggdir "*") tmpcopy)) (let ((setup (lambda (dir) (print "changing current directory to " dir) (let ((old-dir (current-directory))) (dynamic-wind (lambda () (change-directory dir)) (lambda () (when *cross-chicken* (delete-stale-binaries)) (let ((cmd (make-install-command (car e+d+v) (caddr e+d+v) (> i 1))) (name (car e+d+v))) (keep-going (name "installing") ($system cmd)) (when (and *run-tests* (not isdep) (file-exists? "tests") (directory? "tests") (file-exists? "tests/run.scm") ) (set! *running-test* #t) (current-directory "tests") (keep-going (name "testing") (command "~a -s run.scm ~a ~a" *csi* name (caddr e+d+v))) (set! *running-test* #f)))) (lambda () (change-directory old-dir))))))) (if (and *target-extension* *host-extension*) (fluid-let ((*deploy* #f) (*prefix* #f)) (setup eggdir)) (setup eggdir)) (when (and *target-extension* *host-extension*) (print "installing for target ...") (fluid-let ((*host-extension* #f)) (setup tmpcopy))))))) eggs+dirs+vers (iota num num -1))))) (define (delete-stale-binaries) (print* "deleting stale binaries ...") (print* "deleting stale binaries ...") (find-files "." test: `(seq (* any) "." (or "o" "so" "dll" "a")) action: (lambda (f _) (print* " " f) (delete-file* f))) (newline)) (define (cleanup) (unless *keep* (and-let* ((tmpdir (temporary-directory))) (remove-directory tmpdir)))) (define (update-db) (let* ((files (glob (make-pathname (repo-path) "*.import.so") (make-pathname (repo-path) "*.import.scm"))) (tmpdir (create-temporary-directory)) (dbfile (make-pathname tmpdir +module-db+))) (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)) (eval `(import ,(string->symbol module-name)))))) files)) (print "generating database") (let ((db (sort (append-map (lambda (m) (let* ((mod (cdr m)) (mname (##sys#module-name mod))) (print* " " 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))))))) (newline) (with-output-to-file dbfile (lambda () (for-each (lambda (x) (write x) (newline)) db))) (copy-file dbfile (make-pathname (repo-path) +module-db+)) (remove-directory tmpdir)))) (define (apply-mappings eggs) (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 (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 (lset= same? eggs eggs2) (print "mapped " eggs " to " eggs2)) eggs2)) (define (scan-directory dir) (for-each (lambda (info) (pp (cons (car info) (cadadr info)))) (gather-egg-information dir))) (define ($system str) (let ((str (cond (*windows-shell* (string-append "\"" str "\"")) ((and (eq? (software-version) 'macosx) (get-environment-variable "DYLD_LIBRARY_PATH")) => (lambda (path) (string-append "/usr/bin/env DYLD_LIBRARY_PATH=" (qs path) " " str))) (else str)))) (print " " str) (let ((r (system str))) (unless (zero? r) (error "shell command terminated with nonzero exit code" r str))))) (define (installed-extensions) (delete-duplicates (filter-map (lambda (sf) (let* ((info (first (read-file sf))) (v (cond ((assq 'version info) => cadr) (else "")))) (cond ((assq 'egg-name info) => (lambda (a) (cons (cadr a) (->string v)))) (else (warning "installed extension has no information about which egg it belongs to" (pathname-file sf)) #f)))) (glob (make-pathname (repo-path) "*" "setup-info"))) equal?)) (define (list-available-extensions trans locn) (with-default-sources (lambda (trans locn next) (if trans (list-extensions trans locn quiet: #t username: *username* password: *password* proxy-host: *proxy-host* proxy-port: *proxy-port* proxy-user-pass: *proxy-user-pass*) (next))))) (define (command fstr . args) (let ((cmd (apply sprintf fstr args))) ($system cmd))) (define (usage code) (print #<<EOF usage: chicken-install [OPTION | EXTENSION[: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 -x -keep-installed install only if not already installed -reinstall reinstall all currently installed extensions -l -location LOCATION install from given location instead of default -t -transport TRANSPORT use given transport instead of default -proxy HOST[:PORT] download via HTTP proxy -s -sudo use external command to elevate privileges for filesystem operations -r -retrieve only retrieve egg into current directory, don't install -n -no-install do not install, just build (implies `-keep') -p -prefix PREFIX change installation prefix to PREFIX -no-install-deps do not install dependencies -list list extensions available over selected transport and location -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 -username USER set username for transports that require this -password PASS set password for transports that require this -i -init DIRECTORY initialize empty alternative repository -u -update-db update export database -repository print path used for egg installation -deploy build extensions for deployment -trunk build trunk instead of tagged version (only local) -D -feature FEATURE features to pass to sub-invocations of `csc' -debug enable full display of error message information -keep-going continue installation even if dependency fails -scan DIRECTORY scan local directory for highest available egg versions -override FILENAME override versions for installed eggs with information from file -csi FILENAME use given pathname for invocations of "csi" -show-depends display a list of egg dependencies for the given egg(s) -show-foreign-depends display a list of foreign dependencies for the given egg(s) chicken-install recognizes the SUDO, http_proxy and proxy_auth environment variables, if set. EOF );| (exit code)) (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)))) (define (info->egg info) (if (member (cdr info) '("" "unknown" "trunk")) (car info) info)) (define *short-options* '(#\h #\k #\l #\t #\s #\p #\r #\n #\v #\i #\u #\D)) (define (main args) (let ((update #f) (scan #f) (listeggs #f) (print-repository #f) (rx (irregex "([^:]+):(.+)"))) (setup-proxy (get-environment-variable "http_proxy")) (let loop ((args args) (eggs '())) (cond ((null? args) (when *deploy* (unless *prefix* (error "`-deploy' only makes sense in combination with `-prefix DIRECTORY`"))) (cond (print-repository (print (repo-path))) (update (update-db)) (scan (scan-directory scan)) (else (let ((defaults (load-defaults))) (when (null? eggs) (cond (*reinstall* (let ((egginfos (installed-extensions))) (if (or *force* (yes-or-no? (sprintf "About to re-install all ~a currently installed extensions - do you want to proceed?" (length egginfos)) abort: #f)) (set! eggs (map info->egg egginfos)) (exit 1)))) ((not listeggs) (let ((setups (glob "*.setup"))) (cond ((pair? setups) (set! *eggs+dirs+vers* (append (map (lambda (s) (cons (pathname-file s) (list "." ""))) setups) *eggs+dirs+vers*))) (else (print "no setup-scripts to process") (exit 1))) ) ))) (unless defaults (unless *default-transport* (error "no default transport defined - please use `-transport' option")) (unless *default-location* (error "no default location defined - please use `-location' option"))) (cond (listeggs (display (list-available-extensions *default-transport* *default-location*))) (*show-depends* (show-depends eggs 'depends)) (*show-foreign-depends* (show-depends eggs 'foreign-depends)) (else (install (apply-mappings (reverse eggs))))) )))) (else (let ((arg (car args))) (cond ((or (string=? arg "-help") (string=? arg "-h") (string=? arg "--help")) (usage 0)) ((string=? arg "-repository") (set! print-repository #t) (loop (cdr args) eggs)) ((string=? arg "-force") (set! *force* #t) (loop (cdr args) eggs)) ((or (string=? arg "-k") (string=? arg "-keep")) (set! *keep* #t) (loop (cdr args) eggs)) ((or (string=? arg "-s") (string=? arg "-sudo")) (sudo-install #t) (loop (cdr args) eggs)) ((or (string=? arg "-r") (string=? arg "-retrieve")) (set! *retrieve-only* #t) (loop (cdr args) eggs)) ((or (string=? arg "-l") (string=? arg "-location")) (unless (pair? (cdr args)) (usage 1)) (set! *default-location* (cadr args)) (loop (cddr args) eggs)) ((or (string=? arg "-t") (string=? arg "-transport")) (unless (pair? (cdr args)) (usage 1)) (set! *default-transport* (string->symbol (cadr args))) (loop (cddr args) eggs)) ((or (string=? arg "-p") (string=? arg "-prefix")) (unless (pair? (cdr args)) (usage 1)) (set! *prefix* (let ((p (cadr args))) (if (absolute-pathname? p) p (normalize-pathname (make-pathname (current-directory) p) ) ) ) ) (loop (cddr args) eggs)) ((string=? arg "-no-install-deps") (set! *no-install-deps* #t) (loop (cdr args) eggs)) ((or (string=? arg "-n") (string=? arg "-no-install")) (set! *keep* #t) (set! *no-install* #t) (loop (cdr args) eggs)) ((string=? arg "-version") (print (chicken-version)) (exit 0)) ((or (string=? arg "-u") (string=? arg "-update-db")) (set! update #t) (loop (cdr args) eggs)) ((or (string=? arg "-i") (string=? arg "-init")) (unless (pair? (cdr args)) (usage 1)) (init-repository (cadr args)) (exit 0)) ((string=? "-proxy" arg) (unless (pair? (cdr args)) (usage 1)) (setup-proxy (cadr args)) (loop (cddr args) eggs)) ((or (string=? "-D" arg) (string=? "-feature" arg)) (unless (pair? (cdr args)) (usage 1)) (set! *csc-features* (cons (string->symbol (cadr args)) *csc-features*)) (loop (cddr args) eggs)) ((string=? "-no-feature" arg) (unless (pair? (cdr args)) (usage 1)) (set! *csc-nonfeatures* (cons (string->symbol (cadr args)) *csc-nonfeatures*)) (loop (cddr args) eggs)) ((string=? "-test" arg) (set! *run-tests* #t) (loop (cdr args) eggs)) ((string=? "-host" arg) (set! *target-extension* #f) (loop (cdr args) eggs)) ((string=? "-target" arg) (set! *host-extension* #f) (loop (cdr args) eggs)) ((string=? "-debug" arg) (set! *debug-setup* #t) (loop (cdr args) eggs)) ((string=? "-deploy" arg) (set! *deploy* #t) (loop (cdr args) eggs)) ((string=? "-username" arg) (unless (pair? (cdr args)) (usage 1)) (set! *username* (cadr args)) (loop (cddr args) eggs)) ((string=? "-scan" arg) (unless (pair? (cdr args)) (usage 1)) (set! scan (cadr args)) (loop (cddr args) eggs)) ((string=? "-override" arg) (unless (pair? (cdr args)) (usage 1)) (set! *override* (read-file (cadr args))) (loop (cddr args) eggs)) ((or (string=? "-x" arg) (string=? "-keep-installed" arg)) (set! *keep-existing* #t) (loop (cdr args) eggs)) ((string=? "-reinstall" arg) (set! *reinstall* #t) (loop (cdr args) eggs)) ((string=? "-trunk" arg) (set! *trunk* #t) (loop (cdr args) eggs)) ((string=? "-keep-going" arg) (set! *keep-going* #t) (loop (cdr args) eggs)) ((string=? "-list" arg) (set! listeggs #t) (loop (cdr args) eggs)) ((string=? "-csi" arg) (unless (pair? (cdr args)) (usage 1)) (set! *csi* (cadr args)) (loop (cddr args) eggs)) ((string=? "-password" arg) (unless (pair? (cdr args)) (usage 1)) (set! *password* (cadr args)) (loop (cddr args) eggs)) ((string=? "-show-depends" arg) (set! *show-depends* #t) (loop (cdr args) eggs)) ((string=? "-show-foreign-depends" arg) (set! *show-foreign-depends* #t) (loop (cdr args) eggs)) ((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)) eggs) (usage 1))) (usage 1))) ((equal? "setup" (pathname-extension arg)) (let ((egg (pathname-file arg))) (set! *eggs+dirs+vers* (alist-cons egg (list (let ((dir (pathname-directory arg))) (if dir (if (absolute-pathname? dir) dir (make-pathname (current-directory) dir) ) (current-directory))) "") *eggs+dirs+vers*)) (loop (cdr args) (cons egg eggs)))) ((irregex-match rx arg) => (lambda (m) (loop (cdr args) (alist-cons (irregex-match-substring m 1) (irregex-match-substring m 2) eggs)))) (else (loop (cdr args) (cons arg eggs)))))))))) (register-feature! 'chicken-install) (handle-exceptions ex (begin (newline (current-error-port)) (print-error-message ex (current-error-port)) (cleanup) (exit (if *running-test* 2 1))) (main (command-line-arguments)) (cleanup)) ) ;module main ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/mac.r��������������������������������������������������������������������������������0000644�0001750�0001750�00000000561�13040667210�013734� 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-4.12.0/scripts/�����������������������������������������������������������������������������0000755�0001750�0001750�00000000000�13052306551�014477� 5����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/scripts/chicken-flymake.bat����������������������������������������������������������0000644�0001750�0001750�00000000226�13040667210�020220� 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-4.12.0/scripts/reconstruct-egg-name.scm�����������������������������������������������������0000644�0001750�0001750�00000005177�13052302315�021240� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; reconstruct-egg-name.scm - add "egg-name" infolist properties to all installed eggs ; ; by Kon Lovett ; (minimally modified by felix) (use extras files posix srfi-1 miscmacros) ;; Write the elements of the list `ls' to the output-port or output-file, ;; using ;; the `writer' procedure. `writer' is a (procedure (* output-port)). ;; ;; (add `newline?' param for write #\newline after every element?) (define (write-file ls #!optional (file-or-port (current-output-port)) (writer write)) (let ((port (if (port? file-or-port) file-or-port (open-output-file file-or-port) ) ) ) (dynamic-wind void (lambda () (for-each (cut writer <> port) ls)) (lambda () (unless (port? file-or-port) (close-output-port port)))) ) ) #; (define (write-file ls #!optional (file-or-port (current-output-port)) (writer write)) (let* ((port (if (port? file-or-port) file-or-port (open-output-file file-or-port) ) ) (closit (lambda () (unless (port? file-or-port) (close-output-port port)))) ) (handle-exceptions exn (begin (closit) (abort exn)) (for-each (cut writer <> port) ls)) (closit) ) ) (define-constant +info-extn+ "setup-info") (define (info-filenames #!optional (dir (repository-path))) (let ((cd (current-directory))) (current-directory dir) (begin0 (map pathname-file (glob (make-pathname '() "*" +info-extn+))) (current-directory cd) ) ) ) (define (get-info eggnam #!optional (dir (repository-path))) (car (read-file (make-pathname dir eggnam +info-extn+))) ) (define (put-info info eggnam #!optional (dir (repository-path))) (let ((tmpfil (create-temporary-file))) (write-file (list info) tmpfil) (file-move tmpfil (make-pathname dir eggnam +info-extn+) #t) ) ) (define (update-info info eggnam) (if (assq 'egg-name info) info (cons `(egg-name ,eggnam) info)) ) (define (update-info-file eggnam #!optional (dir (repository-path))) (and-let* ((info (update-info (get-info eggnam dir) eggnam))) (put-info info eggnam dir) #t ) ) (define (main svnroot) (let ((eggdir svnroot) (repdir (repository-path)) ) (newline) (print " Local SVN Repository: " eggdir) (print "Installed Egg Repository: " repdir) (newline) (let* ((egdrnms (directory eggdir)) (siflnms (info-filenames repdir)) (eggnams (lset-intersection string=? egdrnms siflnms)) ) (for-each (lambda (eggnam) (print eggnam) (unless (update-info-file eggnam) (print "Warning: no version detected") ) ) eggnams ) ) ) ) (apply main (command-line-arguments)) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/scripts/chicken-flymake��������������������������������������������������������������0000755�0001750�0001750�00000000123�13040667210�017452� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/bin/sh # # usage: chicken-flymake OPTION-OR-FILENAME ... csc -SAv "$@" || true ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/scripts/compile-all������������������������������������������������������������������0000755�0001750�0001750�00000002043�13052302315�016614� 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 -scrutinize -types ./types.db -verbose -no-lambda-info -local -extend private-namespace.scm -specialize" library_options="-optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -feature debugbuild -scrutinize -types ./types.db -verbose -explicit-use -no-trace -specialize" compiler="$1" shift for x in library eval data-structures ports files extras lolevel utils tcp srfi-1 srfi-4 srfi-13 srfi-14 srfi-18 srfi-69 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-4.12.0/scripts/csc-trans��������������������������������������������������������������������0000755�0001750�0001750�00000003052�13040667210�016321� 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-4.12.0/scripts/make-wrapper.scm�������������������������������������������������������������0000644�0001750�0001750�00000000672�13040667210�017602� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; make-wrapper.scm - generate "trampoline" script for program ; ; usage: csi -s make-wrapper.scm NAME BINPATH (use extras files) (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-4.12.0/scripts/makedist.scm�����������������������������������������������������������������0000644�0001750�0001750�00000004770�13052302315�017006� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; makedist.scm - Make distribution tarballs (use srfi-69 irregex srfi-1 setup-api) (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") (else (case (build-platform) ((mingw32) (if (equal? (get-environment-variable "MSYSTEM") "MINGW32") "mingw-msys" "mingw32")) ((msvc) "msvc") (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 (release full?) (let* ((files (read-lines "distribution/manifest")) (distname (conc "chicken-" BUILDVERSION)) (distfiles (map (cut prefix distname <>) files)) (tgz (conc distname ".tar.gz"))) (run (rm -fr ,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 ,(qs f) ,(qs (make-pathname distname f)))) missing) (else (cons f missing)))) '() files))) (unless (null? missing) (warning "files missing" missing) ) ) (run (tar cfz ,(conc distname ".tar.gz") ,distname)) (run (rm -fr ,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 (,*make* -f ,(conc "Makefile." *platform*) distfiles ,@*makeargs*)) (release *release*) ��������chicken-4.12.0/scripts/mini-salmonella.scm����������������������������������������������������������0000644�0001750�0001750�00000007504�13052302315�020264� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; mini-salmonella.scm - very simple tool to build all eggs (module mini-salmonella () (import scheme chicken) (use posix files extras data-structures srfi-1 setup-api srfi-13 utils) (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* (pathname-directory (pathname-directory (pathname-directory (repository-path))))) (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 *binary-version* (##sys#fudge 42)) (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))) (if (directory? f2) (remove-directory f2) (delete-file f2)))) (lset-difference string=? (directory *repository*) *snapshot*))) (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/" (first 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 (read-all file))) (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-4.12.0/extras.scm���������������������������������������������������������������������������0000644�0001750�0001750�00000050564�13052306173�015034� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; extras.scm - Optional non-standard extensions ; ; Copyright (c) 2008-2017, 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)) (declare (hide fprintf0 generic-write) ) (include "common-declarations.scm") (register-feature! 'extras) ;;; Read expressions from file: (define read-file (let ([read read] [call-with-input-file call-with-input-file] ) (lambda (#!optional (port ##sys#standard-input) (reader read) max) (define (slurp port) (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)) ) ) (if (port? port) (slurp port) (call-with-input-file port slurp) ) ) ) ) ;;; Random numbers: (define (randomize . n) (let ((nn (if (null? n) (##sys#flo2fix (fp/ (current-seconds) 1000.0)) ; wall clock time (car n)))) (##sys#check-exact nn 'randomize) (##core#inline "C_randomize" nn) ) ) (define (random n) (##sys#check-exact n 'random) (if (eq? n 0) 0 (##core#inline "C_random_fixnum" n) ) ) ;;; 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 port-and-max (let* ((port (if (pair? port-and-max) (##sys#slot port-and-max 0) ##sys#standard-input)) (rest (and (pair? port-and-max) (##sys#slot port-and-max 1))) (max (if (pair? rest) (##sys#slot rest 0) #f)) ) (define (doread port) (let loop ((lns '()) (n (or max 1000000000)) ) ; this is silly (if (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)) ) ) ) ) ) (if (string? port) (call-with-input-file port doread) (begin (##sys#check-input-port port #t 'read-lines) (doread port) ) ) ) ) ) (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 (##sys#read-string! 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-exact 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-exact start 'read-string!) (##sys#read-string! n dest port start) ) (define-constant read-string-buffer-size 2048) (define ##sys#read-string/port (lambda (n p) (##sys#check-input-port p #t 'read-string) (cond (n (##sys#check-exact n 'read-string) (let* ((str (##sys#make-string n)) (n2 (##sys#read-string! 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 ((n (##sys#read-string! 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#read-string/port n port) ) ;; <procedure>(read-buffered [PORT])</procedure> ;; ;; Reads any remaining data buffered after previous read operations on ;; {{PORT}}. 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. (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-exact 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-exact byte 'write-byte) (##sys#check-output-port port #t 'write-byte) (##sys#write-char-0 (integer->char byte) port) ) ;;; Pretty print: ; ; Copyright (c) 1991, Marc Feeley ; Author: Marc Feeley (feeley@iro.umontreal.ca) ; Distribution restrictions: none ; ; Modified by felix for use with CHICKEN ; (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)) ((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)) ((eq? obj (##sys#slot '##sys#arbitrary-unbound-symbol 0)) (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->qualified-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: (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) ��������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/extras.c�����������������������������������������������������������������������������0000644�0001750�0001750�00000775200�13052306226�014474� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from extras.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:16 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: extras.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file extras.c unit: extras */ #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; static C_TLS C_word lf[136]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,23),40,100,111,108,111,111,112,56,53,32,120,56,55,32,105,56,56,32,120,115,56,57,41,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,14),40,115,108,117,114,112,32,112,111,114,116,56,52,41,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,21),40,114,101,97,100,45,102,105,108,101,32,46,32,116,109,112,54,57,55,48,41,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,17),40,114,97,110,100,111,109,105,122,101,32,46,32,110,57,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,13),40,114,97,110,100,111,109,32,110,49,48,49,41,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,12),40,103,49,49,54,32,114,108,49,49,56,41,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,49,50,50,41,0,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,21),40,114,101,97,100,45,108,105,110,101,32,46,32,97,114,103,115,49,48,52,41,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,32,108,110,115,49,52,55,32,110,49,52,56,41,0,0,0,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,16),40,100,111,114,101,97,100,32,112,111,114,116,49,52,53,41}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,30),40,114,101,97,100,45,108,105,110,101,115,32,46,32,112,111,114,116,45,97,110,100,45,109,97,120,49,51,57,41,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,29),40,119,114,105,116,101,45,108,105,110,101,32,115,116,114,49,53,55,32,46,32,112,111,114,116,49,53,56,41,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,25),40,108,111,111,112,32,115,116,97,114,116,49,55,54,32,110,49,55,55,32,109,49,55,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,25),40,108,111,111,112,32,115,116,97,114,116,49,57,49,32,110,49,57,50,32,109,49,57,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,50),40,35,35,115,121,115,35,114,101,97,100,45,115,116,114,105,110,103,33,32,110,49,54,54,32,100,101,115,116,49,54,55,32,112,111,114,116,49,54,56,32,115,116,97,114,116,49,54,57,41,0,0,0,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,39),40,114,101,97,100,45,115,116,114,105,110,103,33,32,110,50,49,49,32,100,101,115,116,50,49,50,32,46,32,116,109,112,50,49,48,50,49,51,41,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,34),40,35,35,115,121,115,35,114,101,97,100,45,115,116,114,105,110,103,47,112,111,114,116,32,110,50,51,50,32,112,50,51,51,41,0,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,25),40,114,101,97,100,45,115,116,114,105,110,103,32,46,32,116,109,112,50,53,53,50,53,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,27),40,114,101,97,100,45,98,117,102,102,101,114,101,100,32,46,32,116,109,112,50,55,49,50,55,50,41,0,0,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,30),40,114,101,97,100,45,116,111,107,101,110,32,112,114,101,100,50,56,49,32,46,32,112,111,114,116,50,56,50,41,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,22),40,98,111,100,121,51,48,48,32,110,51,48,57,32,112,111,114,116,51,49,48,41,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,22),40,100,101,102,45,112,111,114,116,51,48,51,32,37,110,50,57,56,51,49,55,41,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,10),40,100,101,102,45,110,51,48,50,41,0,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,29),40,119,114,105,116,101,45,115,116,114,105,110,103,32,115,50,57,54,32,46,32,109,111,114,101,50,57,55,41,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,23),40,114,101,97,100,45,98,121,116,101,32,46,32,116,109,112,51,50,56,51,50,57,41,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,32),40,119,114,105,116,101,45,98,121,116,101,32,98,121,116,101,51,52,50,32,46,32,116,109,112,51,52,49,51,52,51,41}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,18),40,114,101,97,100,45,109,97,99,114,111,63,32,108,51,54,50,41,0,0,0,0,0,0}; static C_char C_TLS li29[] 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 li30[] C_aligned={C_lihdr(0,0,19),40,111,117,116,32,115,116,114,51,57,52,32,99,111,108,51,57,53,41,0,0,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,24),40,119,114,45,101,120,112,114,32,101,120,112,114,52,48,54,32,99,111,108,52,48,55,41}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,32,108,52,49,49,32,99,111,108,52,49,50,41,0,0,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,20),40,119,114,45,108,115,116,32,108,52,48,56,32,99,111,108,52,48,57,41,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,11),40,103,52,52,52,32,97,52,52,54,41,0,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,23),40,108,111,111,112,32,105,52,50,50,32,106,52,50,51,32,99,111,108,52,50,52,41,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,12),40,103,52,53,53,32,99,110,52,53,55,41,0,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,52,54,52,32,105,52,54,54,41}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,18),40,119,114,32,111,98,106,51,57,56,32,99,111,108,51,57,57,41,0,0,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,20),40,115,112,97,99,101,115,32,110,53,48,48,32,99,111,108,53,48,49,41,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,21),40,105,110,100,101,110,116,32,116,111,53,48,50,32,99,111,108,53,48,51,41,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,14),40,97,50,56,48,57,32,115,116,114,53,49,53,41,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,38),40,112,114,32,111,98,106,53,48,54,32,99,111,108,53,48,55,32,101,120,116,114,97,53,48,56,32,112,112,45,112,97,105,114,53,48,57,41,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,33),40,112,112,45,101,120,112,114,32,101,120,112,114,53,49,57,32,99,111,108,53,50,48,32,101,120,116,114,97,53,50,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,44),40,112,112,45,99,97,108,108,32,101,120,112,114,53,50,52,32,99,111,108,53,50,53,32,101,120,116,114,97,53,50,54,32,112,112,45,105,116,101,109,53,50,55,41,0,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,41),40,112,112,45,108,105,115,116,32,108,53,51,48,32,99,111,108,53,51,49,32,101,120,116,114,97,53,51,50,32,112,112,45,105,116,101,109,53,51,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,32,108,53,52,49,32,99,111,108,53,52,50,41,0,0,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,50),40,112,112,45,100,111,119,110,32,108,53,51,53,32,99,111,108,49,53,51,54,32,99,111,108,50,53,51,55,32,101,120,116,114,97,53,51,56,32,112,112,45,105,116,101,109,53,51,57,41,0,0,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,39),40,116,97,105,108,49,32,114,101,115,116,53,54,49,32,99,111,108,49,53,54,50,32,99,111,108,50,53,54,51,32,99,111,108,51,53,54,52,41,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,39),40,116,97,105,108,50,32,114,101,115,116,53,54,57,32,99,111,108,49,53,55,48,32,99,111,108,50,53,55,49,32,99,111,108,51,53,55,50,41,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,31),40,116,97,105,108,51,32,114,101,115,116,53,55,55,32,99,111,108,49,53,55,56,32,99,111,108,50,53,55,57,41,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,70),40,112,112,45,103,101,110,101,114,97,108,32,101,120,112,114,53,53,49,32,99,111,108,53,53,50,32,101,120,116,114,97,53,53,51,32,110,97,109,101,100,63,53,53,52,32,112,112,45,49,53,53,53,32,112,112,45,50,53,53,54,32,112,112,45,51,53,53,55,41,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,35),40,112,112,45,101,120,112,114,45,108,105,115,116,32,108,53,57,48,32,99,111,108,53,57,49,32,101,120,116,114,97,53,57,50,41,0,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,35),40,112,112,45,108,97,109,98,100,97,32,101,120,112,114,53,57,51,32,99,111,108,53,57,52,32,101,120,116,114,97,53,57,53,41,0,0,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,31),40,112,112,45,105,102,32,101,120,112,114,53,57,54,32,99,111,108,53,57,55,32,101,120,116,114,97,53,57,56,41,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,33),40,112,112,45,99,111,110,100,32,101,120,112,114,53,57,57,32,99,111,108,54,48,48,32,101,120,116,114,97,54,48,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,33),40,112,112,45,99,97,115,101,32,101,120,112,114,54,48,50,32,99,111,108,54,48,51,32,101,120,116,114,97,54,48,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,32),40,112,112,45,97,110,100,32,101,120,112,114,54,48,53,32,99,111,108,54,48,54,32,101,120,116,114,97,54,48,55,41}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,32),40,112,112,45,108,101,116,32,101,120,112,114,54,48,56,32,99,111,108,54,48,57,32,101,120,116,114,97,54,49,48,41}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,34),40,112,112,45,98,101,103,105,110,32,101,120,112,114,54,49,52,32,99,111,108,54,49,53,32,101,120,116,114,97,54,49,54,41,0,0,0,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,31),40,112,112,45,100,111,32,101,120,112,114,54,49,55,32,99,111,108,54,49,56,32,101,120,116,114,97,54,49,57,41,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,15),40,115,116,121,108,101,32,104,101,97,100,54,50,48,41,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,18),40,112,112,32,111,98,106,52,55,55,32,99,111,108,52,55,56,41,0,0,0,0,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,53),40,103,101,110,101,114,105,99,45,119,114,105,116,101,32,111,98,106,51,53,50,32,100,105,115,112,108,97,121,63,51,53,51,32,119,105,100,116,104,51,53,52,32,111,117,116,112,117,116,51,53,53,41,0,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,12),40,97,51,51,56,51,32,115,54,55,55,41,0,0,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,30),40,112,114,101,116,116,121,45,112,114,105,110,116,32,111,98,106,54,55,52,32,46,32,111,112,116,54,55,53,41,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,6),40,110,101,120,116,41,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,6),40,115,107,105,112,41,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,20),40,114,101,99,32,109,115,103,54,56,57,32,97,114,103,115,54,57,48,41,0,0,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,40),40,102,112,114,105,110,116,102,48,32,108,111,99,54,56,50,32,112,111,114,116,54,56,51,32,109,115,103,54,56,52,32,97,114,103,115,54,56,53,41}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,35),40,102,112,114,105,110,116,102,32,112,111,114,116,55,51,50,32,102,115,116,114,55,51,51,32,46,32,97,114,103,115,55,51,52,41,0,0,0,0,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,26),40,112,114,105,110,116,102,32,102,115,116,114,55,51,54,32,46,32,97,114,103,115,55,51,55,41,0,0,0,0,0,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,27),40,115,112,114,105,110,116,102,32,102,115,116,114,55,51,57,32,46,32,97,114,103,115,55,52,48,41,0,0,0,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,32),40,102,111,114,109,97,116,32,102,109,116,45,111,114,45,100,115,116,55,52,50,32,46,32,97,114,103,115,55,52,51,41}; 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_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_2973) static void C_ccall f_2973(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_2979) static void C_ccall f_2979(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_2193) static void C_ccall f_2193(C_word c,C_word *av) C_noret; C_noret_decl(f_3139) static void C_ccall f_3139(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_1615) static void C_fcall f_1615(C_word t0,C_word t1) C_noret; C_noret_decl(f_1530) static void C_fcall f_1530(C_word t0,C_word t1) 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_3604) static void C_ccall f_3604(C_word c,C_word *av) C_noret; C_noret_decl(f_1523) static void C_fcall f_1523(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_1527) static void C_ccall f_1527(C_word c,C_word *av) C_noret; C_noret_decl(f_1213) static void C_fcall f_1213(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1844) static void C_fcall f_1844(C_word t0,C_word t1,C_word t2,C_word t3) 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_3727) static void C_ccall f_3727(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_3047) static void C_ccall f_3047(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_1208) static void C_ccall f_1208(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_1434) static void C_ccall f_1434(C_word c,C_word *av) C_noret; C_noret_decl(f_2097) static void C_fcall f_2097(C_word t0,C_word t1,C_word t2,C_word t3) 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_2393) static void C_ccall f_2393(C_word c,C_word *av) C_noret; C_noret_decl(f_2394) static void C_fcall f_2394(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2088) static void C_ccall f_2088(C_word c,C_word *av) C_noret; C_noret_decl(f_2039) static C_word C_fcall f_2039(C_word t0); C_noret_decl(f_1446) static void C_ccall f_1446(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_2078) static void C_fcall f_2078(C_word t0,C_word t1,C_word t2,C_word t3) 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_2626) static void C_ccall f_2626(C_word c,C_word *av) C_noret; C_noret_decl(f_3766) static void C_ccall f_3766(C_word c,C_word *av) 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_2631) static void C_fcall f_2631(C_word t0,C_word t1,C_word t2) 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_2490) static void C_ccall f_2490(C_word c,C_word *av) C_noret; C_noret_decl(f_2494) static void C_fcall f_2494(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2647) static void C_ccall f_2647(C_word c,C_word *av) C_noret; C_noret_decl(f_2644) static void C_ccall f_2644(C_word c,C_word *av) C_noret; C_noret_decl(f_3100) static void C_fcall f_3100(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_2005) static void C_fcall f_2005(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_2658) static void C_ccall f_2658(C_word c,C_word *av) C_noret; C_noret_decl(f_3111) static void C_ccall f_3111(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_3124) static void C_ccall f_3124(C_word c,C_word *av) C_noret; C_noret_decl(f_2530) static void C_ccall f_2530(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_3086) static void C_ccall f_3086(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_2143) static void C_ccall f_2143(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_word t3) C_noret; C_noret_decl(f_1022) static void C_ccall f_1022(C_word c,C_word *av) C_noret; C_noret_decl(f_1024) static void C_ccall f_1024(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_2551) static void C_ccall f_2551(C_word c,C_word *av) C_noret; C_noret_decl(f_3061) static void C_fcall f_3061(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_1695) static void C_ccall f_1695(C_word c,C_word *av) C_noret; C_noret_decl(f_3395) static void C_fcall f_3395(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3399) static void C_fcall f_3399(C_word t0,C_word t1) 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_2716) static void C_ccall f_2716(C_word c,C_word *av) C_noret; C_noret_decl(f_2100) static void C_fcall f_2100(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2107) static void C_ccall f_2107(C_word c,C_word *av) C_noret; C_noret_decl(f_2590) static void C_ccall f_2590(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_2846) static void C_ccall f_2846(C_word c,C_word *av) C_noret; C_noret_decl(f_2723) static void C_ccall f_2723(C_word c,C_word *av) C_noret; C_noret_decl(f_2725) static void C_fcall f_2725(C_word t0,C_word t1,C_word t2,C_word t3) 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_2587) static void C_ccall f_2587(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_1668) static void C_ccall f_1668(C_word c,C_word *av) C_noret; C_noret_decl(f_1175) static void C_ccall f_1175(C_word c,C_word *av) C_noret; C_noret_decl(f_2127) static void C_fcall f_2127(C_word t0,C_word t1,C_word t2,C_word t3) 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_1887) static void C_fcall f_1887(C_word t0,C_word t1) C_noret; C_noret_decl(f_1882) static void C_fcall f_1882(C_word t0,C_word t1,C_word t2) 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_2245) static void C_ccall f_2245(C_word c,C_word *av) C_noret; C_noret_decl(f_2249) static void C_ccall f_2249(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_1195) static void C_fcall f_1195(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1683) static void C_ccall f_1683(C_word c,C_word *av) C_noret; C_noret_decl(f_2880) static void C_ccall f_2880(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_3532) static void C_ccall f_3532(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_3433) static void C_fcall f_3433(C_word t0,C_word t1,C_word t2,C_word t3) 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_3549) static void C_ccall f_3549(C_word c,C_word *av) 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_2864) static void C_ccall f_2864(C_word c,C_word *av) C_noret; C_noret_decl(f_3159) static void C_ccall f_3159(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_1095) static void C_ccall f_1095(C_word c,C_word *av) C_noret; C_noret_decl(f_1163) static void C_ccall f_1163(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_2775) static void C_ccall f_2775(C_word c,C_word *av) C_noret; C_noret_decl(f_2202) static void C_ccall f_2202(C_word c,C_word *av) C_noret; C_noret_decl(f_3165) static void C_ccall f_3165(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_1157) static void C_ccall f_1157(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_3171) static void C_ccall f_3171(C_word c,C_word *av) C_noret; C_noret_decl(f_1864) static void C_fcall f_1864(C_word t0,C_word t1) C_noret; C_noret_decl(f_1861) static void C_ccall f_1861(C_word c,C_word *av) C_noret; C_noret_decl(f_1185) static void C_fcall f_1185(C_word t0,C_word t1) 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_3183) static void C_ccall f_3183(C_word c,C_word *av) C_noret; C_noret_decl(f_3022) static void C_fcall f_3022(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_3442) static C_word C_fcall f_3442(C_word t0); C_noret_decl(f_2788) static void C_ccall f_2788(C_word c,C_word *av) C_noret; C_noret_decl(f_3449) static void C_fcall f_3449(C_word t0,C_word t1) 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_1053) static void C_ccall f_1053(C_word c,C_word *av) C_noret; C_noret_decl(f_1055) static void C_fcall f_1055(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3005) static void C_ccall f_3005(C_word c,C_word *av) C_noret; C_noret_decl(f_1045) static void C_ccall f_1045(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(C_extras_toplevel) C_externexport void C_ccall C_extras_toplevel(C_word c,C_word *av) 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_1075) static void C_ccall f_1075(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_3230) static void C_fcall f_3230(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1143) static void C_ccall f_1143(C_word c,C_word *av) C_noret; C_noret_decl(f_1783) static void C_ccall f_1783(C_word c,C_word *av) C_noret; C_noret_decl(f_1691) static void C_fcall f_1691(C_word t0,C_word t1) 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_3019) static void C_fcall f_3019(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_1977) static void C_fcall f_1977(C_word t0,C_word t1) C_noret; C_noret_decl(f_1974) static void C_fcall f_1974(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3240) static void C_fcall f_3240(C_word t0,C_word t1) C_noret; C_noret_decl(f_2173) static void C_ccall f_2173(C_word c,C_word *av) 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_3402) static void C_ccall f_3402(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_1291) static void C_ccall f_1291(C_word c,C_word *av) C_noret; C_noret_decl(f_3215) static void C_ccall f_3215(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_3221) static void C_ccall f_3221(C_word c,C_word *av) C_noret; C_noret_decl(f_1299) static void C_ccall f_1299(C_word c,C_word *av) C_noret; C_noret_decl(f_2268) static void C_ccall f_2268(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_3715) static void C_ccall f_3715(C_word c,C_word *av) C_noret; C_noret_decl(f_2167) static void C_ccall f_2167(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_1798) static void C_fcall f_1798(C_word t0,C_word t1) C_noret; C_noret_decl(f_2294) static void C_ccall f_2294(C_word c,C_word *av) C_noret; C_noret_decl(f_2357) static void C_ccall f_2357(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_2906) static void C_ccall f_2906(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_1464) static void C_fcall f_1464(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_1468) static void C_ccall f_1468(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_2361) static void C_ccall f_2361(C_word c,C_word *av) C_noret; C_noret_decl(f_3566) static void C_ccall f_3566(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_3468) static void C_fcall f_3468(C_word t0,C_word t1) 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_2456) static void C_ccall f_2456(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_2603) static void C_ccall f_2603(C_word c,C_word *av) C_noret; C_noret_decl(f_2487) static void C_ccall f_2487(C_word c,C_word *av) C_noret; C_noret_decl(f_2388) static void C_ccall f_2388(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_1922) static void C_ccall f_1922(C_word c,C_word *av) C_noret; C_noret_decl(f_2741) static void C_ccall f_2741(C_word c,C_word *av) C_noret; C_noret_decl(f_2748) static void C_ccall f_2748(C_word c,C_word *av) C_noret; C_noret_decl(f_1363) static void C_ccall f_1363(C_word c,C_word *av) C_noret; C_noret_decl(f_2759) static void C_fcall f_2759(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_3369) static void C_ccall f_3369(C_word c,C_word *av) C_noret; C_noret_decl(f_2692) static void C_fcall f_2692(C_word t0,C_word t1,C_word t2,C_word t3) 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_1949) static void C_ccall f_1949(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_1818) static void C_ccall f_1818(C_word c,C_word *av) 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_1707) static void C_ccall f_1707(C_word c,C_word *av) C_noret; C_noret_decl(f_3481) static void C_ccall f_3481(C_word c,C_word *av) C_noret; C_noret_decl(f_2670) static void C_ccall f_2670(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_3384) static void C_ccall f_3384(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_3382) static void C_ccall f_3382(C_word c,C_word *av) C_noret; C_noret_decl(f_1811) static void C_ccall f_1811(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_2952) static void C_fcall f_2952(C_word t0,C_word t1,C_word t2,C_word t3) 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_2689) static void C_fcall f_2689(C_word t0,C_word t1,C_word t2,C_word t3) 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_1802) static void C_ccall f_1802(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_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_3378) static void C_ccall f_3378(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_noret; C_noret_decl(f_3371) static void C_ccall f_3371(C_word c,C_word *av) C_noret; C_noret_decl(f_2946) static void C_fcall f_2946(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_2326) static void C_ccall f_2326(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_2328) static void C_fcall f_2328(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_2810) static void C_ccall f_2810(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_2915) static void C_ccall f_2915(C_word c,C_word *av) C_noret; C_noret_decl(f_2911) static void C_fcall f_2911(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_2335) static void C_fcall f_2335(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_1328) static void C_ccall f_1328(C_word c,C_word *av) C_noret; C_noret_decl(f_1350) static void C_fcall f_1350(C_word t0,C_word t1,C_word t2,C_word t3) 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_2935) static void C_ccall f_2935(C_word c,C_word *av) C_noret; C_noret_decl(f_2937) static void C_fcall f_2937(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_1340) static void C_ccall f_1340(C_word c,C_word *av) C_noret; C_noret_decl(f_1932) static void C_ccall f_1932(C_word c,C_word *av) C_noret; C_noret_decl(f_3646) static C_word C_fcall f_3646(C_word t0,C_word t1); C_noret_decl(f_1226) static void C_ccall f_1226(C_word c,C_word *av) C_noret; C_noret_decl(trf_1615) static void C_ccall trf_1615(C_word c,C_word *av) C_noret; static void C_ccall trf_1615(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1615(t0,t1);} C_noret_decl(trf_1530) static void C_ccall trf_1530(C_word c,C_word *av) C_noret; static void C_ccall trf_1530(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1530(t0,t1);} C_noret_decl(trf_1523) static void C_ccall trf_1523(C_word c,C_word *av) C_noret; static void C_ccall trf_1523(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_1523(t0,t1,t2,t3,t4);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_1213(t0,t1,t2);} C_noret_decl(trf_1844) static void C_ccall trf_1844(C_word c,C_word *av) C_noret; static void C_ccall trf_1844(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1844(t0,t1,t2,t3);} C_noret_decl(trf_2097) static void C_ccall trf_2097(C_word c,C_word *av) C_noret; static void C_ccall trf_2097(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2097(t0,t1,t2,t3);} C_noret_decl(trf_2394) static void C_ccall trf_2394(C_word c,C_word *av) C_noret; static void C_ccall trf_2394(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2394(t0,t1,t2);} C_noret_decl(trf_2078) static void C_ccall trf_2078(C_word c,C_word *av) C_noret; static void C_ccall trf_2078(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2078(t0,t1,t2,t3);} C_noret_decl(trf_2631) static void C_ccall trf_2631(C_word c,C_word *av) C_noret; static void C_ccall trf_2631(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2631(t0,t1,t2);} C_noret_decl(trf_2494) static void C_ccall trf_2494(C_word c,C_word *av) C_noret; static void C_ccall trf_2494(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2494(t0,t1,t2);} C_noret_decl(trf_3100) static void C_ccall trf_3100(C_word c,C_word *av) C_noret; static void C_ccall trf_3100(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_3100(t0,t1,t2,t3,t4);} C_noret_decl(trf_2005) static void C_ccall trf_2005(C_word c,C_word *av) C_noret; static void C_ccall trf_2005(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2005(t0,t1);} 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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2145(t0,t1,t2,t3);} C_noret_decl(trf_3061) static void C_ccall trf_3061(C_word c,C_word *av) C_noret; static void C_ccall trf_3061(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_3061(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_3395) static void C_ccall trf_3395(C_word c,C_word *av) C_noret; static void C_ccall trf_3395(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_3395(t0,t1,t2,t3,t4);} C_noret_decl(trf_3399) static void C_ccall trf_3399(C_word c,C_word *av) C_noret; static void C_ccall trf_3399(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3399(t0,t1);} C_noret_decl(trf_2100) static void C_ccall trf_2100(C_word c,C_word *av) C_noret; static void C_ccall trf_2100(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2100(t0,t1,t2,t3);} C_noret_decl(trf_2725) static void C_ccall trf_2725(C_word c,C_word *av) C_noret; static void C_ccall trf_2725(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2725(t0,t1,t2,t3);} C_noret_decl(trf_2127) static void C_ccall trf_2127(C_word c,C_word *av) C_noret; static void C_ccall trf_2127(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2127(t0,t1,t2,t3);} C_noret_decl(trf_1887) static void C_ccall trf_1887(C_word c,C_word *av) C_noret; static void C_ccall trf_1887(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1887(t0,t1);} C_noret_decl(trf_1882) static void C_ccall trf_1882(C_word c,C_word *av) C_noret; static void C_ccall trf_1882(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1882(t0,t1,t2);} C_noret_decl(trf_1195) static void C_ccall trf_1195(C_word c,C_word *av) C_noret; static void C_ccall trf_1195(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1195(t0,t1,t2);} C_noret_decl(trf_3433) static void C_ccall trf_3433(C_word c,C_word *av) C_noret; static void C_ccall trf_3433(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3433(t0,t1,t2,t3);} C_noret_decl(trf_1864) static void C_ccall trf_1864(C_word c,C_word *av) C_noret; static void C_ccall trf_1864(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1864(t0,t1);} C_noret_decl(trf_1185) static void C_ccall trf_1185(C_word c,C_word *av) C_noret; static void C_ccall trf_1185(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1185(t0,t1);} C_noret_decl(trf_3022) static void C_ccall trf_3022(C_word c,C_word *av) C_noret; static void C_ccall trf_3022(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_3022(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_3449) static void C_ccall trf_3449(C_word c,C_word *av) C_noret; static void C_ccall trf_3449(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3449(t0,t1);} C_noret_decl(trf_1055) static void C_ccall trf_1055(C_word c,C_word *av) C_noret; static void C_ccall trf_1055(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_1055(t0,t1,t2,t3,t4);} C_noret_decl(trf_3230) static void C_ccall trf_3230(C_word c,C_word *av) C_noret; static void C_ccall trf_3230(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3230(t0,t1,t2);} C_noret_decl(trf_1691) static void C_ccall trf_1691(C_word c,C_word *av) C_noret; static void C_ccall trf_1691(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1691(t0,t1);} C_noret_decl(trf_3019) static void C_ccall trf_3019(C_word c,C_word *av) C_noret; static void C_ccall trf_3019(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_3019(t0,t1,t2,t3,t4,t5,t6,t7,t8);} C_noret_decl(trf_1977) static void C_ccall trf_1977(C_word c,C_word *av) C_noret; static void C_ccall trf_1977(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1977(t0,t1);} C_noret_decl(trf_1974) static void C_ccall trf_1974(C_word c,C_word *av) C_noret; static void C_ccall trf_1974(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_1974(t0,t1,t2,t3,t4);} 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[1]; C_word t1=av[0]; f_3240(t0,t1);} 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_1798) static void C_ccall trf_1798(C_word c,C_word *av) C_noret; static void C_ccall trf_1798(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1798(t0,t1);} C_noret_decl(trf_1464) static void C_ccall trf_1464(C_word c,C_word *av) C_noret; static void C_ccall trf_1464(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_1464(t0,t1,t2,t3,t4);} C_noret_decl(trf_3468) static void C_ccall trf_3468(C_word c,C_word *av) C_noret; static void C_ccall trf_3468(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3468(t0,t1);} C_noret_decl(trf_2759) static void C_ccall trf_2759(C_word c,C_word *av) C_noret; static void C_ccall trf_2759(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_2759(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_2692) static void C_ccall trf_2692(C_word c,C_word *av) C_noret; static void C_ccall trf_2692(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2692(t0,t1,t2,t3);} C_noret_decl(trf_2952) static void C_ccall trf_2952(C_word c,C_word *av) C_noret; static void C_ccall trf_2952(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2952(t0,t1,t2,t3);} C_noret_decl(trf_2689) static void C_ccall trf_2689(C_word c,C_word *av) C_noret; static void C_ccall trf_2689(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2689(t0,t1,t2,t3);} 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[1]; C_word t1=av[0]; f_3375(t0,t1);} C_noret_decl(trf_2946) static void C_ccall trf_2946(C_word c,C_word *av) C_noret; static void C_ccall trf_2946(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_2946(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_2328) static void C_ccall trf_2328(C_word c,C_word *av) C_noret; static void C_ccall trf_2328(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_2328(t0,t1,t2,t3,t4);} C_noret_decl(trf_2911) static void C_ccall trf_2911(C_word c,C_word *av) C_noret; static void C_ccall trf_2911(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_2911(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_2335) static void C_ccall trf_2335(C_word c,C_word *av) C_noret; static void C_ccall trf_2335(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2335(t0,t1);} C_noret_decl(trf_1350) static void C_ccall trf_1350(C_word c,C_word *av) C_noret; static void C_ccall trf_1350(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1350(t0,t1,t2,t3);} C_noret_decl(trf_2937) static void C_ccall trf_2937(C_word c,C_word *av) C_noret; static void C_ccall trf_2937(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_2937(t0,t1,t2,t3,t4,t5);} /* k2410 in k2386 in k2333 in loop in k2324 in k2266 in wr in generic-write in k1020 in k1017 */ 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 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_2412,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2416,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[60]:lf[61]); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2424,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* extras.scm:358: out */ t7=((C_word*)((C_word*)t0)[2])[1]; f_2078(t7,t6,lf[62],((C_word*)t0)[5]);} /* k2414 in k2410 in k2386 in k2333 in loop in k2324 in k2266 in wr in generic-write in k1020 in k1017 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2416,2,av);} /* extras.scm:356: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k2971 in loop in pp-down in pp in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2973,2,av);} /* extras.scm:470: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2952(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k2305 in k2266 in wr in generic-write in k1020 in k1017 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2307,2,av);} /* extras.scm:324: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2977 in loop in pp-down in pp in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2979,2,av);} /* extras.scm:471: pr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2759(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k1257 in k1224 in loop in k1206 in k1183 in read-line in k1020 in k1017 */ 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(5,c,4)))){ C_save_and_reclaim((void *)f_1259,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_1268,a[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:98: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[13]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} else{ /* extras.scm:100: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[12]+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);}}} /* k2191 in loop in k2141 in wr-lst in wr in generic-write in k1020 in k1017 */ 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,3)))){ C_save_and_reclaim((void *)f_2193,2,av);} /* extras.scm:311: wr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2097(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k3137 in k3109 in pp-general in pp in generic-write in k1020 in k1017 */ static void C_ccall f_3139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3139,2,av);} /* extras.scm:508: wr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2097(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k2432 in k2333 in loop in k2324 in k2266 in wr in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2434,2,av);} /* extras.scm:344: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k1613 in read-string! in k1020 in k1017 */ static void C_fcall f_1615(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,5)))){ C_save_and_reclaim_args((void *)trf_1615,2,t0,t1);} if(C_truep(t1)){ t2=C_i_check_exact_2(((C_word*)t0)[2],lf[23]); /* extras.scm:175: ##sys#read-string! */ t3=*((C_word*)lf[22]+1);{ C_word av2[6]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t2=C_fixnum_difference(((C_word*)t0)[7],((C_word*)t0)[2]); t3=C_set_block_item(((C_word*)t0)[4],0,t2); t4=C_i_check_exact_2(((C_word*)t0)[2],lf[23]); /* extras.scm:175: ##sys#read-string! */ t5=*((C_word*)lf[22]+1);{ C_word av2[6]; av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}} /* k1528 in k1525 in loop in read-string! in k1020 in k1017 */ static void C_fcall f_1530(C_word t0,C_word t1){ C_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_1530,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:164: loop */ t8=((C_word*)((C_word*)t0)[6])[1]; f_1523(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);}}}} /* k3599 in loop in rec in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ 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 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_3601,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3604,a[2]=((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:617: next */ t4=((C_word*)((C_word*)t0)[6])[1]; f_3449(t4,t3);} /* k3602 in k3599 in loop in rec in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ static void C_ccall f_3604(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3604,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_3610,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* extras.scm:619: rec */ t4=((C_word*)((C_word*)t0)[5])[1]; f_3433(t4,t3,((C_word*)t0)[6],t1);} /* loop in read-string! in k1020 in k1017 */ static void C_fcall f_1523(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_1523,5,t0,t1,t2,t3,t4);} a=C_alloc(8); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1527,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:156: ##sys#read-char-0 */ {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]=t5; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k1525 in loop in read-string! in k1020 in k1017 */ static void C_ccall f_1527(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1527,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1530,a[2]=((C_word*)t0)[2],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_1530(t3,C_fix(0));} else{ t3=C_setsubchar(((C_word*)t0)[7],((C_word*)t0)[5],t1); t4=t2; f_1530(t4,C_fix(1));}} /* loop in k1206 in k1183 in read-line in k1020 in k1017 */ static void C_fcall f_1213(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_1213,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:87: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[12]+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_1226,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:88: ##sys#read-char-0 */ {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]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}} /* body300 in write-string in k1020 in k1017 */ static void C_fcall f_1844(C_word t0,C_word t1,C_word 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(13,0,2)))){ C_save_and_reclaim_args((void *)trf_1844,4,t0,t1,t2,t3);} a=C_alloc(13); t4=t3; t5=C_i_check_port_2(t4,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[27]); t6=(C_truep(t2)?C_i_check_exact_2(t2,lf[27]):C_SCHEME_UNDEFINED); t7=C_slot(t3,C_fix(2)); t8=C_slot(t7,C_fix(3)); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1861,a[2]=t9,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1864,a[2]=t10,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t9,a[6]=t1,a[7]=t3,tmp=(C_word)a,a+=8,tmp); if(C_truep(t2)){ t12=C_block_size(((C_word*)t0)[2]); t13=t11; f_1864(t13,C_fixnum_lessp(t2,t12));} else{ t12=t11; f_1864(t12,C_SCHEME_FALSE);}} /* printf in k3367 in k1020 in k1017 */ 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<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_3721,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; /* extras.scm:639: fprintf0 */ f_3395(t1,lf[127],*((C_word*)lf[20]+1),t2,t3);} /* sprintf in k3367 in k1020 in k1017 */ static void C_ccall f_3727(C_word c,C_word *av){ C_word tmp; C_word 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_3727,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; /* extras.scm:642: fprintf0 */ f_3395(t1,lf[128],C_SCHEME_FALSE,t2,t3);} /* k3041 in tail1 in pp-general in pp in generic-write in k1020 in k1017 */ 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,5)))){ C_save_and_reclaim((void *)f_3043,2,av);} /* extras.scm:488: tail2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3061(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,((C_word*)t0)[6]);} /* k3045 in tail1 in pp-general in pp in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3047,2,av);} /* extras.scm:488: pr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2759(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* format in k3367 in k1020 in k1017 */ 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=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_3733,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; 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_3741,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=t2; if(C_truep(t6)){ if(C_truep(C_booleanp(t2))){{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[127]+1); av2[3]=((C_word*)t4)[1]; C_apply(4,av2);}} else{ if(C_truep(C_i_stringp(t2))){ t7=C_a_i_cons(&a,2,t2,((C_word*)t4)[1]); t8=C_set_block_item(t4,0,t7);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[128]+1); av2[3]=((C_word*)t4)[1]; C_apply(4,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3766,a[2]=t2,a[3]=t4,a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* extras.scm:649: output-port? */ t8=*((C_word*)lf[131]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}} else{{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[128]+1); av2[3]=((C_word*)t4)[1]; C_apply(4,av2);}}} /* k1206 in k1183 in read-line in k1020 in k1017 */ static void C_ccall f_1208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1208,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_1213,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)li6),tmp=(C_word)a,a+=8,tmp)); t7=((C_word*)t5)[1]; f_1213(t7,((C_word*)t0)[5],C_fix(0));} /* k3739 in format in k3367 in k1020 in k1017 */ 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,3)))){ C_save_and_reclaim((void *)f_3741,2,av);}{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1432 in write-line in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1434,2,av);} /* extras.scm:137: ##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; /* Re-use our own argvector */ } 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);}} /* wr in generic-write in k1020 in k1017 */ static void C_fcall f_2097(C_word t0,C_word t1,C_word 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_2097,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_2100,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)li31),tmp=(C_word)a,a+=8,tmp); t8=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2127,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word)li33),tmp=(C_word)a,a+=5,tmp)); if(C_truep(C_i_pairp(t2))){ /* extras.scm:314: wr-expr */ t9=t4; f_2100(t9,t1,t2,t3);} else{ if(C_truep(C_i_nullp(t2))){ /* extras.scm:315: wr-lst */ t9=((C_word*)t6)[1]; f_2127(t9,t1,t2,t3);} else{ if(C_truep(C_eofp(t2))){ /* extras.scm:316: out */ t9=((C_word*)((C_word*)t0)[4])[1]; f_2078(t9,t1,lf[50],t3);} else{ if(C_truep(C_i_vectorp(t2))){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2245,a[2]=t6,a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* extras.scm:317: vector->list */ t10=*((C_word*)lf[52]+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:318: out */ t9=((C_word*)((C_word*)t0)[4])[1]; f_2078(t9,t1,lf[53],t3);} else{ /* extras.scm:318: out */ t9=((C_word*)((C_word*)t0)[4])[1]; f_2078(t9,t1,lf[54],t3);}} else{ t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2268,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:319: ##sys#number? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[86]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[86]+1); av2[1]=t9; av2[2]=t2; tp(3,av2);}}}}}}} /* k3577 in loop in rec in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3579,2,av);} /* extras.scm:613: display */ t2=*((C_word*)lf[116]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2391 in k2386 in k2333 in loop in k2324 in k2266 in wr in generic-write in k1020 in k1017 */ 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:341: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2328(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* g444 in k2386 in k2333 in loop in k2324 in k2266 in wr in generic-write in k1020 in k1017 */ static void C_fcall f_2394(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_2394,3,t0,t1,t2);} t3=C_i_cdr(t2); /* extras.scm:354: out */ t4=((C_word*)((C_word*)t0)[2])[1]; f_2078(t4,t1,t3,((C_word*)t0)[3]);} /* k2086 in out in generic-write in k1020 in k1017 */ static void C_ccall f_2088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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,1)))){ C_save_and_reclaim((void *)f_2088,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=C_i_string_length(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* read-macro-prefix in generic-write in k1020 in k1017 */ static C_word C_fcall f_2039(C_word t1){ C_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[36]); if(C_truep(t5)){ return(lf[40]);} else{ t6=C_eqp(t2,lf[37]); if(C_truep(t6)){ return(lf[41]);} else{ t7=C_eqp(t2,lf[38]); if(C_truep(t7)){ return(lf[42]);} else{ t8=C_eqp(t2,lf[39]); return((C_truep(t8)?lf[43]:C_SCHEME_UNDEFINED));}}}} /* ##sys#read-string! in k1020 in k1017 */ 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=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_1446,6,av);} a=C_alloc(9); t6=C_eqp(t2,C_fix(0)); if(C_truep(t6)){ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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_1464,a[2]=t4,a[3]=t11,a[4]=t9,a[5]=t3,a[6]=((C_word)li12),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_1464(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_1523,a[2]=t11,a[3]=t3,a[4]=t4,a[5]=((C_word)li13),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_1523(t13,t1,t5,t2,C_fix(0));}}} /* k3581 in loop in rec in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3583,2,av);} /* extras.scm:613: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[55]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[55]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(16); tp(4,av2);}} /* out in generic-write in k1020 in k1017 */ static void C_fcall f_2078(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_2078,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2088,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* extras.scm:294: 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);}}} /* k2618 in k2601 in k2266 in wr in generic-write in k1020 in k1017 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_2620,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_2626,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_2631,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)li37),tmp=(C_word)a,a+=8,tmp)); t8=((C_word*)t6)[1]; f_2631(t8,t4,C_fix(0));} /* k2624 in k2618 in k2601 in k2266 in wr in generic-write in k1020 in k1017 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2626,2,av);} /* extras.scm:394: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],lf[79],((C_word*)t0)[4]);} /* k3764 in format in k3367 in k1020 in k1017 */ static void C_ccall f_3766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3766,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_mutate2(((C_word *)((C_word*)t0)[3])+1,t2);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=*((C_word*)lf[126]+1); av2[3]=((C_word*)((C_word*)t0)[3])[1]; C_apply(4,av2);}} else{ /* extras.scm:651: ##sys#error */ t2=*((C_word*)lf[119]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[129]; av2[3]=lf[130]; av2[4]=((C_word*)t0)[2]; av2[5]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* write-line in k1020 in k1017 */ 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; 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_1418,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[20]+1):C_slot(t3,C_fix(0))); t5=t4; t6=C_i_check_port_2(t5,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[19]); t7=C_i_check_string_2(t2,lf[19]); 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_1434,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* extras.scm:130: g160 */ t11=t9;{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* doloop464 in k2618 in k2601 in k2266 in wr in generic-write in k1020 in k1017 */ static void C_fcall f_2631(C_word 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_2631,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_2644,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:392: out */ t6=((C_word*)((C_word*)t0)[5])[1]; f_2078(t6,t5,lf[80],((C_word*)t0)[6]);} else{ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_2644(2,av2);}}}} /* k3774 in k3367 in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3776,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2488 in k2485 in k2266 in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2490,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2494,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li36),tmp=(C_word)a,a+=5,tmp); /* extras.scm:366: g455 */ t3=t2; f_2494(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_2514,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:370: out */ t3=((C_word*)((C_word*)t0)[2])[1]; f_2078(t3,t2,lf[66],((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_2530,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:373: out */ t3=((C_word*)((C_word*)t0)[2])[1]; f_2078(t3,t2,lf[67],((C_word*)t0)[3]);} else{ /* extras.scm:373: out */ t3=((C_word*)((C_word*)t0)[2])[1]; f_2078(t3,t2,lf[68],((C_word*)t0)[3]);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2551,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[17]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[17]+1); av2[1]=t2; av2[2]=C_fix(1); av2[3]=t3; tp(4,av2);}}}}} /* g455 in k2488 in k2485 in k2266 in wr in generic-write in k1020 in k1017 */ static void C_fcall f_2494(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_2494,3,t0,t1,t2);} t3=C_slot(t2,C_fix(1)); /* extras.scm:368: out */ t4=((C_word*)((C_word*)t0)[2])[1]; f_2078(t4,t1,t3,((C_word*)t0)[3]);} /* k2645 in k2642 in doloop464 in k2618 in k2601 in k2266 in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2647,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2631(t3,((C_word*)t0)[4],t2);} /* k2642 in doloop464 in k2618 in k2601 in k2266 in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2644,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2647,a[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_2658,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* extras.scm:393: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[55]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[55]+1); av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=C_fix(16); tp(4,av2);}} /* tail3 in pp-general in pp in generic-write in k1020 in k1017 */ static void C_fcall f_3100(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_3100,5,t0,t1,t2,t3,t4);} /* extras.scm:500: pp-down */ t5=((C_word*)((C_word*)t0)[2])[1]; f_2946(t5,t1,t2,t4,t3,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k2003 in read-macro? in generic-write in k1020 in k1017 */ static void C_fcall f_2005(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_2005,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);}}} /* k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1019,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1022,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* extras.scm:37: register-feature! */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[135]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2656 in k2642 in doloop464 in k2618 in k2601 in k2266 in wr in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2658,2,av);} /* extras.scm:393: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k3109 in pp-general in pp in generic-write in k1020 in k1017 */ static void C_ccall f_3111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,c,5)))){ C_save_and_reclaim((void *)f_3111,2,av);} a=C_alloc(11); 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_3124,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_3139,a[2]=((C_word*)t0)[7],a[3]=t6,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* extras.scm:508: out */ t8=((C_word*)((C_word*)t0)[8])[1]; f_2078(t8,t7,lf[98],t1);} else{ t3=C_a_i_plus(&a,2,((C_word*)t0)[4],C_fix(2)); t4=C_a_i_plus(&a,2,t1,C_fix(1)); /* extras.scm:510: tail1 */ t5=((C_word*)((C_word*)t0)[5])[1]; f_3022(t5,((C_word*)t0)[6],((C_word*)t0)[3],t3,t1,t4);}} /* k2519 in k2512 in k2488 in k2485 in k2266 in wr in generic-write in k1020 in k1017 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2521,2,av);} /* extras.scm:371: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k3122 in k3109 in pp-general in pp in generic-write in k1020 in k1017 */ 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 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_3124,2,av);} a=C_alloc(8); t2=C_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(2)); t3=C_a_i_plus(&a,2,t1,C_fix(1)); /* extras.scm:509: tail1 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_3022(t4,((C_word*)t0)[4],((C_word*)t0)[5],t2,t1,t3);} /* k2528 in k2488 in k2485 in k2266 in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2530,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2537,a[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:374: number->string */ t3=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2535 in k2528 in k2488 in k2485 in k2266 in wr in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2537,2,av);} /* extras.scm:374: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k3084 in tail2 in pp-general in pp in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3086,2,av);} /* extras.scm:496: pr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2759(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k3080 in tail2 in pp-general in pp in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3082,2,av);} /* extras.scm:496: tail3 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3100(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k2141 in wr-lst in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2143,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_2145,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li32),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_2145(t5,((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* loop in k2141 in wr-lst in wr in generic-write in k1020 in k1017 */ static void C_fcall f_2145(C_word t0,C_word t1,C_word 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_2145,4,t0,t1,t2,t3);} a=C_alloc(10); t4=t3; if(C_truep(t4)){ if(C_truep(C_i_pairp(t2))){ t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2167,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); t8=t2; t9=C_u_i_car(t8); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2173,a[2]=((C_word*)t0)[3],a[3]=t7,a[4]=t9,tmp=(C_word)a,a+=5,tmp); /* extras.scm:309: out */ t11=((C_word*)((C_word*)t0)[4])[1]; f_2078(t11,t10,lf[44],t3);} else{ if(C_truep(C_i_nullp(t2))){ /* extras.scm:310: out */ t5=((C_word*)((C_word*)t0)[4])[1]; f_2078(t5,t1,lf[45],t3);} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2189,a[2]=((C_word*)t0)[4],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2193,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* extras.scm:311: out */ t7=((C_word*)((C_word*)t0)[4])[1]; f_2078(t7,t6,lf[47],t3);}}} else{ t5=t3; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k1020 in k1017 */ static void C_ccall f_1022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(52,c,6)))){ C_save_and_reclaim((void *)f_1022,2,av);} a=C_alloc(52); t2=*((C_word*)lf[0]+1); t3=C_mutate2((C_word*)lf[1]+1 /* (set! read-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1024,a[2]=t2,a[3]=((C_word)li2),tmp=(C_word)a,a+=4,tmp)); t4=C_mutate2((C_word*)lf[6]+1 /* (set! randomize ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1139,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[10]+1 /* (set! random ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1163,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[11]+1 /* (set! read-line ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1175,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[18]+1 /* (set! read-lines ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1328,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[19]+1 /* (set! write-line ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1418,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[22]+1 /* (set! ##sys#read-string! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1446,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[23]+1 /* (set! read-string! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1578,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[24]+1 /* (set! ##sys#read-string/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1655,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2((C_word*)lf[25]+1 /* (set! read-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1713,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[29]+1 /* (set! read-buffered ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1755,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[31]+1 /* (set! read-token ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1783,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[27]+1 /* (set! write-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1839,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[33]+1 /* (set! read-byte ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1922,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[34]+1 /* (set! write-byte ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1949,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2(&lf[35] /* (set! generic-write ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1974,a[2]=((C_word)li63),tmp=(C_word)a,a+=3,tmp)); t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3369,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* extras.scm:570: make-parameter */ t20=*((C_word*)lf[134]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t20; av2[1]=t19; av2[2]=C_fix(79); ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}} /* read-file in k1020 in k1017 */ static void C_ccall f_1024(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1024,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; 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[2]+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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1045,a[2]=t15,a[3]=t10,a[4]=((C_word)li1),tmp=(C_word)a,a+=5,tmp); t19=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1095,a[2]=t18,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* extras.scm:51: port? */ t20=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t20; av2[1]=t19; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}} /* k2116 in k2105 in wr-expr in wr in generic-write in k1020 in k1017 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2118,2,av);} /* extras.scm:300: wr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2097(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k2549 in k2488 in k2485 in k2266 in wr in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2551,2,av);} /* extras.scm:375: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* tail2 in pp-general in pp in generic-write in k1020 in k1017 */ static void C_fcall f_3061(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(17,0,4)))){ C_save_and_reclaim_args((void *)trf_3061,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(17); 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_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_3082,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_3086,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:496: indent */ t16=((C_word*)((C_word*)t0)[6])[1]; f_2725(t16,t15,t5,t4);} else{ /* extras.scm:497: tail3 */ t7=((C_word*)((C_word*)t0)[4])[1]; f_3100(t7,t1,t2,t3,t4);}} /* k1693 in loop in k1684 in k1681 in read-string/port in k1020 in k1017 */ static void C_ccall f_1695(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1695,2,av);} a=C_alloc(4); t2=C_eqp(t1,C_fix(0)); if(C_truep(t2)){ /* extras.scm:195: get-output-string */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_1707,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* extras.scm:197: write-string */ t4=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}}} /* fprintf0 in k3367 in k1020 in k1017 */ static void C_fcall f_3395(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_3395,5,t1,t2,t3,t4,t5);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3399,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_3399(t9,C_i_check_port_2(t7,C_SCHEME_FALSE,C_SCHEME_TRUE,t8));} else{ t7=t6; f_3399(t7,C_SCHEME_UNDEFINED);}} /* k3397 in fprintf0 in k3367 in k1020 in k1017 */ static void C_fcall f_3399(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_3399,2,t0,t1);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3402,a[2]=((C_word*)t0)[2],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_3704,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:585: ##sys#tty-port? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[125]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[125]+1); av2[1]=t3; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} else{ /* extras.scm:587: open-output-string */ t4=*((C_word*)lf[28]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2567 in k2266 in wr in generic-write in k1020 in k1017 */ 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,3)))){ C_save_and_reclaim((void *)f_2569,2,av);} /* extras.scm:377: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2714 in spaces in pp in generic-write in k1020 in k1017 */ static void C_ccall f_2716(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2716,2,av);} /* extras.scm:406: spaces */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2692(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* wr-expr in wr in generic-write in k1020 in k1017 */ static void C_fcall f_2100(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_2100,4,t0,t1,t2,t3);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2107,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:299: read-macro? */ f_1977(t4,t2);} /* k2105 in wr-expr in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2107(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2107,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_2118,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:300: read-macro-prefix */ f_2039(((C_word*)t0)[2]) ); /* extras.scm:300: out */ t7=((C_word*)((C_word*)t0)[6])[1]; f_2078(t7,t5,t6,((C_word*)t0)[7]);} else{ /* extras.scm:301: wr-lst */ t2=((C_word*)((C_word*)t0)[8])[1]; f_2127(t2,((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[7]);}} /* k2588 in k2585 in k2266 in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2590,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2597,a[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:383: get-output-string */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2595 in k2588 in k2585 in k2266 in wr in generic-write in k1020 in k1017 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2597,2,av);} /* extras.scm:383: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* pp-expr in pp in generic-write in k1020 in k1017 */ 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=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_2846,5,av);} a=C_alloc(14); t5=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_2853,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:433: read-macro? */ f_1977(t5,t2);} /* k2721 in spaces in pp in generic-write in k1020 in k1017 */ static void C_ccall f_2723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2723,2,av);} /* extras.scm:407: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* indent in pp in generic-write in k1020 in k1017 */ static void C_fcall f_2725(C_word 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,3)))){ C_save_and_reclaim_args((void *)trf_2725,4,t0,t1,t2,t3);} a=C_alloc(10); if(C_truep(t3)){ if(C_truep(C_i_lessp(t2,t3))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2741,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_2748,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[17]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[17]+1); av2[1]=t5; av2[2]=C_fix(1); av2[3]=C_make_character(10); tp(4,av2);}} else{ t4=C_a_i_minus(&a,2,t2,t3); /* extras.scm:414: spaces */ t5=((C_word*)((C_word*)t0)[2])[1]; f_2692(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);}}} /* k3504 in loop in rec in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3506,2,av);} /* extras.scm:608: write */ t2=*((C_word*)lf[121]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2585 in k2266 in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2587,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2590,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:382: ##sys#user-print-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[75]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[75]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_TRUE; av2[4]=t2; tp(5,av2);}} /* k2851 in pp-expr in pp in generic-write in k1020 in k1017 */ 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; 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_2853,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_2864,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:435: read-macro-prefix */ f_2039(((C_word*)t0)[2]) ); /* extras.scm:435: out */ t7=((C_word*)((C_word*)t0)[8])[1]; f_2078(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_2880,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:440: style */ t5=((C_word*)((C_word*)t0)[12])[1]; f_3230(t5,t4,t3);} else{ /* extras.scm:447: pp-list */ t4=((C_word*)((C_word*)t0)[13])[1]; f_2937(t4,((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[9],((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1]);}}} /* k1666 in read-string/port in k1020 in k1017 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_1668,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1671,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* extras.scm:184: ##sys#read-string! */ t4=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=((C_word*)t0)[4]; av2[5]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* read-line in k1020 in k1017 */ static void C_ccall f_1175(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1175,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[2]+1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1185,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_1185(t9,(C_truep(t8)?C_i_cadr(t2):C_SCHEME_FALSE));} else{ t7=t6; f_1185(t7,C_SCHEME_FALSE);}} /* wr-lst in wr in generic-write in k1020 in k1017 */ static void C_fcall f_2127(C_word t0,C_word t1,C_word 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_2127,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_2143,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_2202,a[2]=((C_word*)t0)[2],a[3]=t6,a[4]=t8,tmp=(C_word)a,a+=5,tmp); /* extras.scm:306: out */ t10=((C_word*)((C_word*)t0)[3])[1]; f_2078(t10,t9,lf[48],t3);} else{ t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_FALSE; f_2143(2,av2);}}} else{ /* extras.scm:312: out */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2078(t4,t1,lf[49],t3);}} /* k3517 in loop in rec in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3519,2,av);} /* extras.scm:609: display */ t2=*((C_word*)lf[116]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* def-n302 in write-string in k1020 in k1017 */ static void C_fcall f_1887(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_1887,2,t0,t1);} /* extras.scm:236: def-port303 */ t2=((C_word*)t0)[2]; f_1882(t2,t1,C_SCHEME_FALSE);} /* def-port303 in write-string in k1020 in k1017 */ static void C_fcall f_1882(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_1882,3,t0,t1,t2);} /* extras.scm:236: body300 */ t3=((C_word*)t0)[2]; f_1844(t3,t1,t2,*((C_word*)lf[20]+1));} /* ##sys#read-string/port in k1020 in k1017 */ 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=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,2)))){ C_save_and_reclaim((void *)f_1655,4,av);} a=C_alloc(5); t4=t3; t5=C_i_check_port_2(t4,C_SCHEME_TRUE,C_SCHEME_TRUE,lf[25]); if(C_truep(t2)){ t6=C_i_check_exact_2(t2,lf[25]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1668,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* extras.scm:183: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[17]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[17]+1); av2[1]=t7; av2[2]=t2; tp(3,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1683,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* extras.scm:189: open-output-string */ t7=*((C_word*)lf[28]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k2243 in wr in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_2245,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2249,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* extras.scm:317: out */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2078(t4,t3,lf[51],((C_word*)t0)[5]);} /* k2247 in k2243 in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2249,2,av);} /* extras.scm:317: wr-lst */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2127(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k1684 in k1681 in read-string/port in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_1686,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_1691,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word)li16),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_1691(t6,((C_word*)t0)[4]);} /* g116 in k1183 in read-line in k1020 in k1017 */ static void C_fcall f_1195(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_1195,3,t0,t1,t2);} /* extras.scm:81: 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);}} /* k1681 in read-string/port in k1020 in k1017 */ static void C_ccall f_1683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1683,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1686,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[17]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[17]+1); av2[1]=t3; av2[2]=C_fix(2048); av2[3]=C_make_character(32); tp(4,av2);}} /* k2878 in k2851 in pp-expr in pp in generic-write in k1020 in k1017 */ static void C_ccall f_2880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2880,2,av);} a=C_alloc(9); if(C_truep(t1)){ /* extras.scm:442: proc */ t2=t1;{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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_2906,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:443: ##sys#symbol->qualified-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[92]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[92]+1); av2[1]=t2; av2[2]=((C_word*)t0)[9]; tp(3,av2);}}} /* k3425 in k3403 in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3427,2,av);} /* extras.scm:633: ##sys#print */ t2=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3530 in loop in rec in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ static void C_ccall f_3532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3532,2,av);} /* extras.scm:610: ##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; /* Re-use our own argvector */ } 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);}} /* k1669 in k1666 in read-string/port in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1671,2,av);} t2=C_eqp(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* extras.scm:187: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[12]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(0); av2[4]=t1; tp(5,av2);}}} /* rec in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ static void C_fcall f_3433(C_word t0,C_word t1,C_word 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_3433,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_3442,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_3449,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word)li66),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_3468,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)li68),tmp=(C_word)a,a+=11,tmp)); t19=((C_word*)t17)[1]; f_3468(t19,t1);} /* k3543 in loop in rec in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3545,2,av);} /* extras.scm:611: display */ t2=*((C_word*)lf[116]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3547 in loop in rec in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ static void C_ccall f_3549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3549,2,av);} /* extras.scm:611: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[55]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[55]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(2); tp(4,av2);}} /* randomize in k1020 in k1017 */ 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 *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_1139,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1143,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t2))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1157,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* extras.scm:60: current-seconds */ t5=*((C_word*)lf[9]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=C_i_check_exact_2(t4,lf[6]); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_randomize(t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k2862 in k2851 in pp-expr in pp in generic-write in k1020 in k1017 */ static void C_ccall f_2864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2864,2,av);} /* extras.scm:434: pr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2759(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1]);} /* pp-expr-list in pp in generic-write in k1020 in k1017 */ static void C_ccall f_3159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3159,5,av);} /* extras.scm:513: pp-list */ t5=((C_word*)((C_word*)t0)[2])[1]; f_2937(t5,t1,t2,t3,t4,((C_word*)((C_word*)t0)[3])[1]);} /* k3155 in pp-general in pp in generic-write in k1020 in k1017 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3157,2,av);} /* extras.scm:504: wr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2097(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k1093 in read-file in k1020 in k1017 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1095,2,av);} if(C_truep(t1)){ /* extras.scm:52: slurp */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; f_1045(3,av2);}} else{ /* extras.scm:53: call-with-input-file */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* random in k1020 in k1017 */ static void C_ccall f_1163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1163,3,av);} t3=C_i_check_exact_2(t2,lf[10]); t4=C_eqp(t2,C_fix(0)); if(C_truep(t4)){ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_random_fixnum(t2); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k2770 in pr in pp in generic-write in k1020 in k1017 */ 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 t3; 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_2772,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_2775,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_2810,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word)li41),tmp=(C_word)a,a+=5,tmp); /* extras.scm:420: generic-write */ f_1974(t4,((C_word*)t0)[6],((C_word*)t0)[11],C_SCHEME_FALSE,t5);} /* k2773 in k2770 in pr in pp in generic-write in k1020 in k1017 */ 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; 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_2775,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_2788,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:426: reverse-string-append */ t3=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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:428: pp-pair */ t2=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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_2804,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:429: vector->list */ t3=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}}} /* k2200 in wr-lst in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2202,2,av);} /* extras.scm:306: wr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2097(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* pp-lambda in pp in generic-write in k1020 in k1017 */ static void C_ccall f_3165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3165,5,av);} /* extras.scm:516: pp-general */ t5=((C_word*)((C_word*)t0)[2])[1]; f_3019(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]);} /* read-buffered in k1020 in k1017 */ 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((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_1755,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[2]+1):C_i_car(t2)); t5=C_i_check_port_2(t4,C_SCHEME_TRUE,C_SCHEME_TRUE,lf[29]); t6=C_slot(t4,C_fix(2)); t7=C_slot(t6,C_fix(9)); if(C_truep(t7)){ /* extras.scm:214: rb */ t8=t7;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t8; av2[1]=lf[30]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k1155 in randomize in k1020 in k1017 */ static void C_ccall f_1157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1157,2,av);} a=C_alloc(4); t2=C_a_i_flonum_quotient(&a,2,t1,lf[7]); /* extras.scm:60: ##sys#flo2fix */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[8]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[8]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t2; tp(3,av2);}} /* pp-cond in pp in generic-write in k1020 in k1017 */ 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=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_3177,5,av);} /* extras.scm:522: pp-call */ t5=((C_word*)((C_word*)t0)[2])[1]; f_2911(t5,t1,t2,t3,t4,((C_word*)((C_word*)t0)[3])[1]);} /* pp-if in pp in generic-write in k1020 in k1017 */ 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=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_3171,5,av);} /* extras.scm:519: pp-general */ t5=((C_word*)((C_word*)t0)[2])[1]; f_3019(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]);} /* k1862 in body300 in write-string in k1020 in k1017 */ static void C_fcall f_1864(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_1864,2,t0,t1);} if(C_truep(t1)){ /* extras.scm:242: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[12]+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:236: g311 */ 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);}}} /* k1859 in body300 in write-string in k1020 in k1017 */ static void C_ccall f_1861(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1861,2,av);} /* extras.scm:236: g311 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1183 in read-line in k1020 in k1017 */ static void C_fcall f_1185(C_word t0,C_word t1){ C_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_1185,2,t0,t1);} a=C_alloc(8); t2=t1; t3=C_i_check_port_2(((C_word*)t0)[2],C_SCHEME_TRUE,C_SCHEME_TRUE,lf[11]); 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_1195,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li5),tmp=(C_word)a,a+=5,tmp); /* extras.scm:81: g116 */ t7=t6; f_1195(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_1208,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:84: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[17]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[17]+1); av2[1]=t9; av2[2]=((C_word*)t8)[1]; tp(3,av2);}}} /* pp-and in pp in generic-write in k1020 in k1017 */ 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=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_3189,5,av);} /* extras.scm:528: pp-call */ t5=((C_word*)((C_word*)t0)[2])[1]; f_2911(t5,t1,t2,t3,t4,((C_word*)((C_word*)t0)[3])[1]);} /* pp-case in pp in generic-write in k1020 in k1017 */ 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=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_3183,5,av);} /* extras.scm:525: pp-general */ t5=((C_word*)((C_word*)t0)[2])[1]; f_3019(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]);} /* tail1 in pp-general in pp in generic-write in k1020 in k1017 */ static void C_fcall f_3022(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(18,0,5)))){ C_save_and_reclaim_args((void *)trf_3022,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(18); 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_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_3043,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_3047,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:488: indent */ t16=((C_word*)((C_word*)t0)[6])[1]; f_2725(t16,t15,t5,t4);} else{ /* extras.scm:489: tail2 */ t7=((C_word*)((C_word*)t0)[4])[1]; f_3061(t7,t1,t2,t3,t4,t5);}} /* fetch in rec in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ static C_word C_fcall f_3442(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);} /* k2786 in k2773 in k2770 in pr in pp in generic-write in k1020 in k1017 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2788,2,av);} /* extras.scm:426: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* next in rec in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ static void C_fcall f_3449(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_3449,2,t0,t1);} if(C_truep(C_eqp(((C_word*)((C_word*)t0)[2])[1],C_SCHEME_END_OF_LIST))){ /* extras.scm:598: ##sys#error */ t2=*((C_word*)lf[119]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=lf[120]; ((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_mutate2(((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);}}} /* pp-let in pp in generic-write in k1020 in k1017 */ 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=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_3195,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:533: pp-general */ t8=((C_word*)((C_word*)t0)[2])[1]; f_3019(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:533: pp-general */ t6=((C_word*)((C_word*)t0)[2])[1]; f_3019(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]);}} /* k1051 in slurp in read-file in k1020 in k1017 */ 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(9,c,5)))){ C_save_and_reclaim((void *)f_1053,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_1055,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_1055(t5,((C_word*)t0)[5],t1,C_fix(0),C_SCHEME_END_OF_LIST);} /* doloop85 in k1051 in slurp in read-file in k1020 in k1017 */ static void C_fcall f_1055(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_1055,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:50: ##sys#fast-reverse */ {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]=t1; av2[2]=t4; tp(3,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1075,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:47: 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);}}} /* k3003 in loop in pp-down in pp in generic-write in k1020 in k1017 */ static void C_ccall f_3005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_3005,2,av);} a=C_alloc(4); t2=C_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); /* extras.scm:476: pr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2759(t3,((C_word*)t0)[4],((C_word*)t0)[5],t1,t2,((C_word*)t0)[6]);} /* slurp in read-file in k1020 in k1017 */ static void C_ccall f_1045(C_word c,C_word *av){ C_word tmp; C_word 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_1045,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1053,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); /* extras.scm:47: reader */ t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k2999 in loop in pp-down in pp in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3001,2,av);} /* extras.scm:475: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],lf[96],t1);} /* 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_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_extras_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(634))){ C_save(t1); C_rereclaim2(634*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,136); lf[0]=C_h_intern(&lf[0],4,"read"); lf[1]=C_h_intern(&lf[1],9,"read-file"); lf[2]=C_h_intern(&lf[2],18,"\003sysstandard-input"); lf[3]=C_h_intern(&lf[3],16,"\003sysfast-reverse"); lf[4]=C_h_intern(&lf[4],20,"call-with-input-file"); lf[5]=C_h_intern(&lf[5],5,"port\077"); lf[6]=C_h_intern(&lf[6],9,"randomize"); lf[7]=C_decode_literal(C_heaptop,"\376U1000.0\000"); lf[8]=C_h_intern(&lf[8],11,"\003sysflo2fix"); lf[9]=C_h_intern(&lf[9],15,"current-seconds"); lf[10]=C_h_intern(&lf[10],6,"random"); lf[11]=C_h_intern(&lf[11],9,"read-line"); lf[12]=C_h_intern(&lf[12],13,"\003syssubstring"); lf[13]=C_h_intern(&lf[13],15,"\003sysread-char-0"); lf[14]=C_h_intern(&lf[14],9,"peek-char"); lf[15]=C_h_intern(&lf[15],17,"\003sysstring-append"); lf[16]=C_h_intern(&lf[16],11,"make-string"); lf[17]=C_h_intern(&lf[17],15,"\003sysmake-string"); lf[18]=C_h_intern(&lf[18],10,"read-lines"); lf[19]=C_h_intern(&lf[19],10,"write-line"); lf[20]=C_h_intern(&lf[20],19,"\003sysstandard-output"); lf[21]=C_h_intern(&lf[21],16,"\003syswrite-char-0"); lf[22]=C_h_intern(&lf[22],16,"\003sysread-string!"); lf[23]=C_h_intern(&lf[23],12,"read-string!"); lf[24]=C_h_intern(&lf[24],20,"\003sysread-string/port"); lf[25]=C_h_intern(&lf[25],11,"read-string"); lf[26]=C_h_intern(&lf[26],17,"get-output-string"); lf[27]=C_h_intern(&lf[27],12,"write-string"); lf[28]=C_h_intern(&lf[28],18,"open-output-string"); lf[29]=C_h_intern(&lf[29],13,"read-buffered"); lf[30]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[31]=C_h_intern(&lf[31],10,"read-token"); lf[32]=C_h_intern(&lf[32],15,"\003syspeek-char-0"); lf[33]=C_h_intern(&lf[33],9,"read-byte"); lf[34]=C_h_intern(&lf[34],10,"write-byte"); lf[36]=C_h_intern(&lf[36],5,"quote"); lf[37]=C_h_intern(&lf[37],10,"quasiquote"); lf[38]=C_h_intern(&lf[38],7,"unquote"); lf[39]=C_h_intern(&lf[39],16,"unquote-splicing"); lf[40]=C_decode_literal(C_heaptop,"\376B\000\000\001\047"); lf[41]=C_decode_literal(C_heaptop,"\376B\000\000\001`"); lf[42]=C_decode_literal(C_heaptop,"\376B\000\000\001,"); lf[43]=C_decode_literal(C_heaptop,"\376B\000\000\002,@"); lf[44]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[45]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[46]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[47]=C_decode_literal(C_heaptop,"\376B\000\000\003 . "); lf[48]=C_decode_literal(C_heaptop,"\376B\000\000\001("); lf[49]=C_decode_literal(C_heaptop,"\376B\000\000\002()"); lf[50]=C_decode_literal(C_heaptop,"\376B\000\000\005#!eof"); lf[51]=C_decode_literal(C_heaptop,"\376B\000\000\001#"); lf[52]=C_h_intern(&lf[52],12,"vector->list"); lf[53]=C_decode_literal(C_heaptop,"\376B\000\000\002#t"); lf[54]=C_decode_literal(C_heaptop,"\376B\000\000\002#f"); lf[55]=C_h_intern(&lf[55],18,"\003sysnumber->string"); lf[56]=C_h_intern(&lf[56],9,"\003sysprint"); lf[57]=C_h_intern(&lf[57],21,"\003sysprocedure->string"); lf[58]=C_decode_literal(C_heaptop,"\376B\000\000\001\134"); lf[59]=C_decode_literal(C_heaptop,"\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[60]=C_decode_literal(C_heaptop,"\376B\000\000\0010"); lf[61]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[62]=C_decode_literal(C_heaptop,"\376B\000\000\002\134x"); lf[63]=C_h_intern(&lf[63],14,"number->string"); lf[64]=C_decode_literal(C_heaptop,"\376B\000\000\001\042"); lf[65]=C_decode_literal(C_heaptop,"\376B\000\000\001\042"); lf[66]=C_decode_literal(C_heaptop,"\376B\000\000\001x"); lf[67]=C_decode_literal(C_heaptop,"\376B\000\000\001U"); lf[68]=C_decode_literal(C_heaptop,"\376B\000\000\001u"); lf[69]=C_h_intern(&lf[69],9,"char-name"); lf[70]=C_decode_literal(C_heaptop,"\376B\000\000\002#\134"); lf[71]=C_decode_literal(C_heaptop,"\376B\000\000\016#<unspecified>"); lf[72]=C_h_intern(&lf[72],19,"\003syspointer->string"); lf[73]=C_h_intern(&lf[73],28,"\003sysarbitrary-unbound-symbol"); lf[74]=C_decode_literal(C_heaptop,"\376B\000\000\020#<unbound value>"); lf[75]=C_h_intern(&lf[75],19,"\003sysuser-print-hook"); lf[76]=C_h_intern(&lf[76],13,"string-append"); lf[77]=C_decode_literal(C_heaptop,"\376B\000\000\007#<port "); lf[78]=C_decode_literal(C_heaptop,"\376B\000\000\001>"); lf[79]=C_decode_literal(C_heaptop,"\376B\000\000\001}"); lf[80]=C_decode_literal(C_heaptop,"\376B\000\000\0010"); lf[81]=C_decode_literal(C_heaptop,"\376B\000\000\003#${"); lf[82]=C_decode_literal(C_heaptop,"\376B\000\000\001>"); lf[83]=C_h_intern(&lf[83],23,"\003syslambda-info->string"); lf[84]=C_decode_literal(C_heaptop,"\376B\000\000\016#<lambda info "); lf[85]=C_decode_literal(C_heaptop,"\376B\000\000\025#<unprintable object>"); lf[86]=C_h_intern(&lf[86],11,"\003sysnumber\077"); lf[87]=C_decode_literal(C_heaptop,"\376B\000\000\010 "); lf[88]=C_decode_literal(C_heaptop,"\376B\000\000\010 "); lf[89]=C_h_intern(&lf[89],21,"reverse-string-append"); lf[90]=C_decode_literal(C_heaptop,"\376B\000\000\001#"); lf[91]=C_h_intern(&lf[91],3,"max"); lf[92]=C_h_intern(&lf[92],28,"\003syssymbol->qualified-string"); lf[93]=C_decode_literal(C_heaptop,"\376B\000\000\001("); lf[94]=C_decode_literal(C_heaptop,"\376B\000\000\001("); lf[95]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[96]=C_decode_literal(C_heaptop,"\376B\000\000\001)"); lf[97]=C_decode_literal(C_heaptop,"\376B\000\000\001."); lf[98]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[99]=C_decode_literal(C_heaptop,"\376B\000\000\001("); lf[100]=C_h_intern(&lf[100],6,"lambda"); lf[101]=C_h_intern(&lf[101],2,"if"); lf[102]=C_h_intern(&lf[102],4,"set!"); lf[103]=C_h_intern(&lf[103],4,"cond"); lf[104]=C_h_intern(&lf[104],4,"case"); lf[105]=C_h_intern(&lf[105],3,"and"); lf[106]=C_h_intern(&lf[106],2,"or"); lf[107]=C_h_intern(&lf[107],3,"let"); lf[108]=C_h_intern(&lf[108],5,"begin"); lf[109]=C_h_intern(&lf[109],2,"do"); lf[110]=C_h_intern(&lf[110],4,"let\052"); lf[111]=C_h_intern(&lf[111],6,"letrec"); lf[112]=C_h_intern(&lf[112],7,"letrec\052"); lf[113]=C_h_intern(&lf[113],6,"define"); lf[114]=C_h_intern(&lf[114],18,"pretty-print-width"); lf[115]=C_h_intern(&lf[115],12,"pretty-print"); lf[116]=C_h_intern(&lf[116],7,"display"); lf[117]=C_h_intern(&lf[117],2,"pp"); lf[119]=C_h_intern(&lf[119],9,"\003syserror"); lf[120]=C_decode_literal(C_heaptop,"\376B\000\000/too few arguments to formatted output procedure"); lf[121]=C_h_intern(&lf[121],5,"write"); lf[122]=C_h_intern(&lf[122],16,"\003sysflush-output"); lf[123]=C_h_intern(&lf[123],7,"newline"); lf[124]=C_decode_literal(C_heaptop,"\376B\000\000\037illegal format-string character"); lf[125]=C_h_intern(&lf[125],13,"\003systty-port\077"); lf[126]=C_h_intern(&lf[126],7,"fprintf"); lf[127]=C_h_intern(&lf[127],6,"printf"); lf[128]=C_h_intern(&lf[128],7,"sprintf"); lf[129]=C_h_intern(&lf[129],6,"format"); lf[130]=C_decode_literal(C_heaptop,"\376B\000\000\023illegal destination"); lf[131]=C_h_intern(&lf[131],12,"output-port\077"); lf[132]=C_h_intern(&lf[132],17,"register-feature!"); lf[133]=C_h_intern(&lf[133],7,"srfi-28"); lf[134]=C_h_intern(&lf[134],14,"make-parameter"); lf[135]=C_h_intern(&lf[135],6,"extras"); C_register_lf2(lf,136,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1019,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k3015 in loop in pp-down in pp in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3017,2,av);} /* extras.scm:477: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],lf[97],t1);} /* k1073 in doloop85 in k1051 in slurp in read-file in k1020 in k1017 */ static void C_ccall f_1075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1075,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_1055(t4,((C_word*)t0)[6],t1,t2,t3);} /* k3011 in loop in pp-down in pp in generic-write in k1020 in k1017 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3013,2,av);} /* extras.scm:477: indent */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2725(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* style in pp in generic-write in k1020 in k1017 */ static void C_fcall f_3230(C_word t0,C_word t1,C_word t2){ C_word 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_3230,3,t0,t1,t2);} a=C_alloc(12); t3=t2; t4=C_eqp(t3,lf[100]); t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3240,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_3240(t6,t4);} else{ t6=C_eqp(t3,lf[110]); if(C_truep(t6)){ t7=t5; f_3240(t7,t6);} else{ t7=C_eqp(t3,lf[111]); if(C_truep(t7)){ t8=t5; f_3240(t8,t7);} else{ t8=C_eqp(t3,lf[112]); t9=t5; f_3240(t9,(C_truep(t8)?t8:C_eqp(t3,lf[113])));}}}} /* k1141 in randomize in k1020 in k1017 */ static void C_ccall f_1143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1143,2,av);} t2=C_i_check_exact_2(t1,lf[6]); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_randomize(t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* read-token in k1020 in k1017 */ static void C_ccall f_1783(C_word c,C_word *av){ C_word tmp; C_word 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_1783,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[2]+1):C_i_car(t3)); t6=t5; t7=C_i_check_port_2(t6,C_SCHEME_TRUE,C_SCHEME_TRUE,lf[31]); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1793,a[2]=t6,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* extras.scm:224: open-output-string */ t9=*((C_word*)lf[28]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* loop in k1684 in k1681 in read-string/port in k1020 in k1017 */ static void C_fcall f_1691(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,5)))){ C_save_and_reclaim_args((void *)trf_1691,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1695,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); /* extras.scm:192: ##sys#read-string! */ t3=*((C_word*)lf[22]+1);{ C_word av2[6]; av2[0]=t3; av2[1]=t2; av2[2]=C_fix(2048); av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k2187 in loop in k2141 in wr-lst in wr in generic-write in k1020 in k1017 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2189,2,av);} /* extras.scm:311: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],lf[46],t1);} /* pp-general in pp in generic-write in k1020 in k1017 */ static void C_fcall f_3019(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_3019,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_3022,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)li48),tmp=(C_word)a,a+=8,tmp)); t16=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3061,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)li49),tmp=(C_word)a,a+=8,tmp)); t17=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3100,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t8,a[5]=((C_word)li50),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_3111,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_3157,a[2]=((C_word*)t0)[5],a[3]=t22,a[4]=t19,tmp=(C_word)a,a+=5,tmp); /* extras.scm:504: out */ t24=((C_word*)((C_word*)t0)[6])[1]; f_2078(t24,t23,lf[99],t3);} /* read-macro? in generic-write in k1020 in k1017 */ static void C_fcall f_1977(C_word t1,C_word t2){ C_word tmp; C_word t3; 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_1977,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[36]); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2005,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); if(C_truep(t6)){ t8=t7; f_2005(t8,t6);} else{ t8=C_eqp(t3,lf[37]); if(C_truep(t8)){ t9=t7; f_2005(t9,t8);} else{ t9=C_eqp(t3,lf[38]); t10=t7; f_2005(t10,(C_truep(t9)?t9:C_eqp(t3,lf[39])));}}} /* generic-write in k1020 in k1017 */ static void C_fcall f_1974(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_1974,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_1977,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); t17=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2039,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp)); t18=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2078,a[2]=t5,a[3]=((C_word)li30),tmp=(C_word)a,a+=4,tmp)); t19=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2097,a[2]=t13,a[3]=t9,a[4]=t11,a[5]=t7,a[6]=t3,a[7]=((C_word)li38),tmp=(C_word)a,a+=8,tmp)); t20=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2689,a[2]=t11,a[3]=t3,a[4]=t4,a[5]=t13,a[6]=t9,a[7]=t7,a[8]=((C_word)li62),tmp=(C_word)a,a+=9,tmp)); if(C_truep(t4)){ t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3356,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[17]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[17]+1); av2[1]=t21; av2[2]=C_fix(1); av2[3]=C_make_character(10); tp(4,av2);}} else{ /* extras.scm:565: wr */ t21=((C_word*)t13)[1]; f_2097(t21,t1,t2,C_fix(0));}} /* k3238 in style in pp in generic-write in k1020 in k1017 */ static void C_fcall f_3240(C_word t0,C_word t1){ C_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_3240,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[101]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[4],lf[102])); 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[103]); 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[104]); 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[105]); t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[4],lf[106])); 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[107]); 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[108]); 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[109]); 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);}}}}}}}}} /* k2171 in loop in k2141 in wr-lst in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2173,2,av);} /* extras.scm:309: wr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2097(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k3403 in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ 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; 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_3405,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; if(C_truep(t2)){ t3=C_eqp(((C_word*)t0)[3],((C_word*)t0)[2]); if(C_truep(t3)){ t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ 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_3427,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* extras.scm:633: get-output-string */ t5=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ /* extras.scm:631: get-output-string */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ 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 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_3402,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3405,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],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_3433,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t5,a[5]=((C_word)li69),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_3433(t7,t3,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k1275 in k1224 in loop in k1206 in k1183 in read-line in k1020 in k1017 */ static void C_fcall f_1277(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_1277,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:107: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_1213(t4,((C_word*)t0)[6],t3);} /* k1289 in k1224 in loop in k1206 in k1183 in read-line in k1020 in k1017 */ 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 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_1291,2,av);} t2=C_mutate2(((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_1277(t5,t4);} /* pp-begin in pp in generic-write in k1020 in k1017 */ static void C_ccall f_3215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3215,5,av);} /* extras.scm:536: pp-general */ t5=((C_word*)((C_word*)t0)[2])[1]; f_3019(t5,t1,t2,t3,t4,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1]);} /* k1266 in k1257 in k1224 in loop in k1206 in k1183 in read-line in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1268,2,av);} /* extras.scm:99: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[12]+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);}} /* pp-do in pp in generic-write in k1020 in k1017 */ 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=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_3221,5,av);} /* extras.scm:539: pp-general */ t5=((C_word*)((C_word*)t0)[2])[1]; f_3019(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]);} /* k1297 in k1224 in loop in k1206 in k1183 in read-line in k1020 in k1017 */ static void C_ccall f_1299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1299,2,av);} /* extras.scm:104: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[15]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[15]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=t1; tp(4,av2);}} /* k2266 in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; 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_2268,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2275,a[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:319: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[55]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[55]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} else{ if(C_truep(C_i_symbolp(((C_word*)t0)[5]))){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2284,a[2]=((C_word*)t0)[2],a[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:321: open-output-string */ t3=*((C_word*)lf[28]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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)[5]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2307,a[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:324: ##sys#procedure->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[57]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} else{ if(C_truep(C_i_stringp(((C_word*)t0)[5]))){ if(C_truep(((C_word*)t0)[6])){ /* extras.scm:327: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[4]);} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2326,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* extras.scm:328: out */ t3=((C_word*)((C_word*)t0)[2])[1]; f_2078(t3,t2,lf[65],((C_word*)t0)[4]);}} else{ if(C_truep(C_charp(((C_word*)t0)[5]))){ if(C_truep(((C_word*)t0)[6])){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2479,a[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]; /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[17]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[17]+1); av2[1]=t2; av2[2]=C_fix(1); av2[3]=t3; tp(4,av2);}} else{ t2=C_fix(C_character_code(((C_word*)t0)[5])); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2487,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); /* extras.scm:365: out */ t5=((C_word*)((C_word*)t0)[2])[1]; f_2078(t5,t4,lf[70],((C_word*)t0)[4]);}} else{ if(C_truep(C_undefinedp(((C_word*)t0)[5]))){ /* extras.scm:376: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],lf[71],((C_word*)t0)[4]);} else{ if(C_truep(C_anypointerp(((C_word*)t0)[5]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2569,a[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:377: ##sys#pointer->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[72]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[72]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} else{ t2=C_slot(lf[73],C_fix(0)); t3=C_eqp(((C_word*)t0)[5],t2); if(C_truep(t3)){ /* extras.scm:379: out */ t4=((C_word*)((C_word*)t0)[2])[1]; f_2078(t4,((C_word*)t0)[3],lf[74],((C_word*)t0)[4]);} else{ if(C_truep(C_structurep(((C_word*)t0)[5]))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2587,a[2]=((C_word*)t0)[2],a[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:381: open-output-string */ t5=*((C_word*)lf[28]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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_2603,a[2]=((C_word*)t0)[2],a[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:384: port? */ t5=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}}}}}}}}}} /* k3702 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3704,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_3402(2,av2);}} else{ /* extras.scm:587: open-output-string */ t2=*((C_word*)lf[28]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* fprintf in k3367 in k1020 in k1017 */ 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=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_3715,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+0); t4=C_build_rest(&a,c,4,av); C_word t5; /* extras.scm:636: fprintf0 */ f_3395(t1,lf[126],t2,t3,t4);} /* k2165 in loop in k2141 in wr-lst in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2167,2,av);} /* extras.scm:309: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2145(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k1791 in read-token in k1020 in k1017 */ 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 t3; 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_1793,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_1798,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li20),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_1798(t6,((C_word*)t0)[4]);} /* loop in k1791 in read-token in k1020 in k1017 */ static void C_fcall f_1798(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_1798,2,t0,t1);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1802,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:226: ##sys#peek-char-0 */ {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)[4]; tp(3,av2);}} /* k2292 in k2285 in k2282 in k2266 in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2294,2,av);} /* extras.scm:323: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2355 in k2333 in loop in k2324 in k2266 in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2357,2,av);} /* extras.scm:334: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2328(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k2282 in k2266 in wr in generic-write in k1020 in k1017 */ 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 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_2284,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2287,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:322: ##sys#print */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2904 in k2878 in k2851 in pp-expr in pp in generic-write in k1020 in k1017 */ static void C_ccall f_2906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2906,2,av);} t2=C_i_string_length(t1); if(C_truep(C_i_greaterp(t2,C_fix(5)))){ /* extras.scm:445: pp-general */ t3=((C_word*)((C_word*)t0)[2])[1]; f_3019(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:446: pp-call */ t3=((C_word*)((C_word*)t0)[8])[1]; f_2911(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)((C_word*)t0)[7])[1]);}} /* k2285 in k2282 in k2266 in wr in generic-write in k1020 in k1017 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_2287,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2294,a[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:323: get-output-string */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in read-string! in k1020 in k1017 */ static void C_fcall f_1464(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_1464,5,t0,t1,t2,t3,t4);} a=C_alloc(8); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1468,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:148: 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);}} /* k1466 in loop in read-string! in k1020 in k1017 */ static void C_ccall f_1468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_1468,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; /* Re-use our own argvector */ 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:153: loop */ t11=((C_word*)((C_word*)t0)[7])[1]; f_1464(t11,((C_word*)t0)[4],t8,t9,t10);} else{ t8=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_fixnum_plus(t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} /* k3560 in loop in rec in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3562,2,av);} /* extras.scm:612: display */ t2=*((C_word*)lf[116]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2359 in k2333 in loop in k2324 in k2266 in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2361(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2361,2,av);} /* extras.scm:336: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],lf[58],t1);} /* k3564 in loop in rec in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ static void C_ccall f_3566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3566,2,av);} /* extras.scm:612: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[55]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[55]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(8); tp(4,av2);}} /* k2273 in k2266 in wr in generic-write in k1020 in k1017 */ 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,3)))){ C_save_and_reclaim((void *)f_2275,2,av);} /* extras.scm:319: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* loop in rec in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ static void C_fcall f_3468(C_word t0,C_word t1){ C_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_3468,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:604: fetch */ f_3442(((C_word*)((C_word*)t0)[4])[1]) ); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3481,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:606: fetch */ f_3442(((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_3506,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* extras.scm:608: next */ t9=((C_word*)((C_word*)t0)[7])[1]; f_3449(t9,t8); case C_make_character(65): t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3519,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* extras.scm:609: next */ t9=((C_word*)((C_word*)t0)[7])[1]; f_3449(t9,t8); case C_make_character(67): t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3532,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* extras.scm:610: next */ t9=((C_word*)((C_word*)t0)[7])[1]; f_3449(t9,t8); case C_make_character(66): t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3545,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_3549,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* extras.scm:611: next */ t10=((C_word*)((C_word*)t0)[7])[1]; f_3449(t10,t9); case C_make_character(79): t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3562,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_3566,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* extras.scm:612: next */ t10=((C_word*)((C_word*)t0)[7])[1]; f_3449(t10,t9); case C_make_character(88): t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3579,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_3583,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* extras.scm:613: next */ t10=((C_word*)((C_word*)t0)[7])[1]; f_3449(t10,t9); case C_make_character(33): /* extras.scm:614: ##sys#flush-output */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[122]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[122]+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_3601,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:616: next */ t9=((C_word*)((C_word*)t0)[7])[1]; f_3449(t9,t8); case C_make_character(126): /* extras.scm:620: ##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:621: newline */ t10=*((C_word*)lf[123]+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:624: fetch */ f_3442(((C_word*)((C_word*)t0)[4])[1]) ); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3646,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word)li67),tmp=(C_word)a,a+=5,tmp); t12=( f_3646(t11,t10) ); /* extras.scm:630: loop */ t24=t1; t1=t24; goto loop;} else{ /* extras.scm:628: ##sys#error */ t10=*((C_word*)lf[119]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t3; av2[2]=((C_word*)t0)[8]; av2[3]=lf[124]; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}}}} else{ /* extras.scm:629: ##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);}}}} /* k2363 in k2333 in loop in k2324 in k2266 in wr in generic-write in k1020 in k1017 */ 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; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2365,2,av);} /* extras.scm:337: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2454 in k2333 in loop in k2324 in k2266 in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2456,2,av);} /* extras.scm:361: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2450 in k2333 in loop in k2324 in k2266 in wr in generic-write in k1020 in k1017 */ 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:360: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],lf[64],t1);} /* k2601 in k2266 in wr in generic-write in k1020 in k1017 */ 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; 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_2603,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2610,a[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:384: string-append */ t4=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[77]; av2[3]=t3; av2[4]=lf[78]; ((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_2620,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:386: out */ t3=((C_word*)((C_word*)t0)[2])[1]; f_2078(t3,t2,lf[81],((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_2670,a[2]=((C_word*)t0)[2],a[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:396: out */ t3=((C_word*)((C_word*)t0)[2])[1]; f_2078(t3,t2,lf[84],((C_word*)t0)[4]);} else{ /* extras.scm:399: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],lf[85],((C_word*)t0)[4]);}}}} /* k2485 in k2266 in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2487,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2490,a[2]=((C_word*)t0)[2],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:366: char-name */ t3=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2386 in k2333 in loop in k2324 in k2266 in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2388(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_2388,2,av);} a=C_alloc(12); t2=t1; t3=C_u_i_assq(((C_word*)t0)[2],lf[59]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2393,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_2394,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=((C_word)li34),tmp=(C_word)a,a+=5,tmp); /* extras.scm:343: g444 */ t6=t5; f_2394(t6,t4,t3);} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2412,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])); /* extras.scm:356: number->string */ t7=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k2608 in k2601 in k2266 in wr in generic-write in k1020 in k1017 */ 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:384: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* read-byte in k1020 in k1017 */ 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 *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_1922,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[2]+1):C_i_car(t2)); t5=C_i_check_port_2(t4,C_SCHEME_TRUE,C_SCHEME_TRUE,lf[33]); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1932,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* extras.scm:250: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[13]+1); av2[1]=t6; av2[2]=t4; tp(3,av2);}} /* k2739 in indent in pp in generic-write in k1020 in k1017 */ static void C_ccall f_2741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2741,2,av);} if(C_truep(t1)){ /* extras.scm:413: spaces */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2692(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_fix(0));} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k2746 in indent in pp in generic-write in k1020 in k1017 */ static void C_ccall f_2748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2748,2,av);} /* extras.scm:413: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k1361 in loop in doread in read-lines in k1020 in k1017 */ static void C_ccall f_1363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_1363,2,av);} a=C_alloc(3); if(C_truep(C_eofp(t1))){ /* extras.scm:121: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[3]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[3]+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:122: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_1350(t4,((C_word*)t0)[2],t2,t3);}} /* pr in pp in generic-write in k1020 in k1017 */ static void C_fcall f_2759(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(26,0,3)))){ C_save_and_reclaim_args((void *)trf_2759,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(26); 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_2772,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_a_i_minus(&a,2,((C_word*)t0)[6],t3); t12=C_a_i_minus(&a,2,t11,t4); t13=C_a_i_plus(&a,2,t12,C_fix(1)); /* extras.scm:419: max */ t14=*((C_word*)lf[91]+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:430: wr */ t8=((C_word*)((C_word*)t0)[7])[1]; f_2097(t8,t1,t2,t3);}} /* k3367 in k1020 in k1017 */ static void C_ccall f_3369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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,6)))){ C_save_and_reclaim((void *)f_3369,2,av);} a=C_alloc(21); t2=C_mutate2((C_word*)lf[114]+1 /* (set! pretty-print-width ...) */,t1); t3=C_mutate2((C_word*)lf[115]+1 /* (set! pretty-print ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3371,a[2]=((C_word)li65),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[117]+1 /* (set! pp ...) */,*((C_word*)lf[115]+1)); t5=C_mutate2(&lf[118] /* (set! fprintf0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3395,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[126]+1 /* (set! fprintf ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3715,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2((C_word*)lf[127]+1 /* (set! printf ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3721,a[2]=((C_word)li72),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[128]+1 /* (set! sprintf ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3727,a[2]=((C_word)li73),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[129]+1 /* (set! format ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3733,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp)); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3776,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* extras.scm:654: register-feature! */ t11=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=lf[133]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* spaces in pp in generic-write in k1020 in k1017 */ static void C_fcall f_2692(C_word t0,C_word 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(9,0,4)))){ C_save_and_reclaim_args((void *)trf_2692,4,t0,t1,t2,t3);} a=C_alloc(9); if(C_truep(C_i_greaterp(t2,C_fix(0)))){ if(C_truep(C_i_greaterp(t2,C_fix(7)))){ t4=C_a_i_minus(&a,2,t2,C_fix(8)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2716,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* extras.scm:406: out */ t7=((C_word*)((C_word*)t0)[3])[1]; f_2078(t7,t6,lf[87],t3);} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2723,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* extras.scm:407: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[12]+1); av2[1]=t4; av2[2]=lf[88]; 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);}}} /* k3358 in k3354 in generic-write in k1020 in k1017 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3360,2,av);} /* extras.scm:564: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* write-byte in k1020 in k1017 */ 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=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,3)))){ C_save_and_reclaim((void*)f_1949,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_nullp(t3); t5=(C_truep(t4)?*((C_word*)lf[20]+1):C_i_car(t3)); t6=C_i_check_exact_2(t2,lf[34]); t7=C_i_check_port_2(t5,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[34]); t8=C_make_character(C_unfix(t2)); /* extras.scm:258: ##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; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[21]+1); av2[1]=t1; av2[2]=t8; av2[3]=t5; tp(4,av2);}} /* k2678 in k2668 in k2601 in k2266 in wr in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2680,2,av);} /* extras.scm:397: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k1816 in k1806 in k1800 in loop in k1791 in read-token in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1818,2,av);} /* extras.scm:229: ##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; /* Re-use our own argvector */ } 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);}} /* k2512 in k2488 in k2485 in k2266 in wr in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_2514,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2521,a[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:371: number->string */ t3=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1705 in k1693 in loop in k1684 in k1681 in read-string/port in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1707,2,av);} /* extras.scm:198: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1691(t2,((C_word*)t0)[3]);} /* k3479 in loop in rec in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ static void C_ccall f_3481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3481,2,av);} /* extras.scm:630: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3468(t2,((C_word*)t0)[3]);} /* k2668 in k2601 in k2266 in wr in generic-write in k1020 in k1017 */ static void C_ccall f_2670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_2670,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2673,a[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_2680,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* extras.scm:397: ##sys#lambda-info->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[83]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[83]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* k3386 in a3383 in k3380 in k3373 in pretty-print in k3367 in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3388,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a3383 in k3380 in k3373 in pretty-print in k3367 in k1020 in k1017 */ static void C_ccall f_3384(C_word c,C_word *av){ C_word tmp; C_word 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_3384,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3388,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* extras.scm:574: display */ t4=*((C_word*)lf[116]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2671 in k2668 in k2601 in k2266 in wr in generic-write in k1020 in k1017 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2673,2,av);} /* extras.scm:398: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],lf[82],((C_word*)t0)[4]);} /* k3380 in k3373 in pretty-print in k3367 in k1020 in k1017 */ 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; 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_3382,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3384,a[2]=((C_word*)t0)[2],a[3]=((C_word)li64),tmp=(C_word)a,a+=4,tmp); /* extras.scm:574: generic-write */ f_1974(((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,t1,t2);} /* k1809 in k1806 in k1800 in loop in k1791 in read-token in k1020 in k1017 */ static void C_ccall f_1811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1811,2,av);} /* extras.scm:230: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1798(t2,((C_word*)t0)[3]);} /* k2477 in k2266 in wr in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2479,2,av);} /* extras.scm:363: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* loop in pp-down in pp in generic-write in k1020 in k1017 */ static void C_fcall f_2952(C_word t0,C_word t1,C_word 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(20,0,3)))){ C_save_and_reclaim_args((void *)trf_2952,4,t0,t1,t2,t3);} a=C_alloc(20); 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_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_2973,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_2979,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:471: indent */ t13=((C_word*)((C_word*)t0)[6])[1]; f_2725(t13,t12,((C_word*)t0)[7],t3);} else{ if(C_truep(C_i_nullp(t2))){ /* extras.scm:473: out */ t4=((C_word*)((C_word*)t0)[8])[1]; f_2078(t4,t1,lf[95],t3);} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3001,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_3005,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_3013,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_3017,a[2]=((C_word*)t0)[8],a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* extras.scm:477: indent */ t8=((C_word*)((C_word*)t0)[6])[1]; f_2725(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);}}} /* k1806 in k1800 in loop in k1791 in read-token in k1020 in k1017 */ 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; 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_1808,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1811,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_1818,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* extras.scm:229: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[13]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} else{ /* extras.scm:231: get-output-string */ t2=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* pp in generic-write in k1020 in k1017 */ static void C_fcall f_2689(C_word t0,C_word t1,C_word 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_2689,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_2692,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word)li39),tmp=(C_word)a,a+=5,tmp)); t41=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2725,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word)li40),tmp=(C_word)a,a+=5,tmp)); t42=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2759,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)li42),tmp=(C_word)a,a+=9,tmp)); t43=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2846,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)li43),tmp=(C_word)a,a+=12,tmp)); t44=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2911,a[2]=t17,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word)li44),tmp=(C_word)a,a+=6,tmp)); t45=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2937,a[2]=t17,a[3]=((C_word*)t0)[2],a[4]=((C_word)li45),tmp=(C_word)a,a+=5,tmp)); t46=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2946,a[2]=t9,a[3]=t7,a[4]=((C_word*)t0)[2],a[5]=((C_word)li47),tmp=(C_word)a,a+=6,tmp)); t47=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3019,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)li51),tmp=(C_word)a,a+=8,tmp)); t48=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3159,a[2]=t15,a[3]=t11,a[4]=((C_word)li52),tmp=(C_word)a,a+=5,tmp)); t49=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3165,a[2]=t19,a[3]=t21,a[4]=t11,a[5]=((C_word)li53),tmp=(C_word)a,a+=6,tmp)); t50=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3171,a[2]=t19,a[3]=t11,a[4]=((C_word)li54),tmp=(C_word)a,a+=5,tmp)); t51=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3177,a[2]=t13,a[3]=t21,a[4]=((C_word)li55),tmp=(C_word)a,a+=5,tmp)); t52=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3183,a[2]=t19,a[3]=t11,a[4]=t21,a[5]=((C_word)li56),tmp=(C_word)a,a+=6,tmp)); t53=C_set_block_item(t31,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3189,a[2]=t13,a[3]=t11,a[4]=((C_word)li57),tmp=(C_word)a,a+=5,tmp)); t54=C_set_block_item(t33,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3195,a[2]=t19,a[3]=t21,a[4]=t11,a[5]=((C_word)li58),tmp=(C_word)a,a+=6,tmp)); t55=C_set_block_item(t35,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3215,a[2]=t19,a[3]=t11,a[4]=((C_word)li59),tmp=(C_word)a,a+=5,tmp)); t56=C_set_block_item(t37,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3221,a[2]=t19,a[3]=t21,a[4]=t11,a[5]=((C_word)li60),tmp=(C_word)a,a+=6,tmp)); t57=C_set_block_item(t39,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3230,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)li61),tmp=(C_word)a,a+=11,tmp)); /* extras.scm:561: pr */ t58=((C_word*)t9)[1]; f_2759(t58,t1,t2,t3,C_fix(0),((C_word*)t11)[1]);} /* k3354 in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3356,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3360,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* extras.scm:564: pp */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2689(t4,t3,((C_word*)t0)[5],C_fix(0));} /* k1800 in loop in k1791 in read-token in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_1802,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1808,a[2]=((C_word*)t0)[2],a[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_eofp(t1))){ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_1808(2,av2);}} else{ /* extras.scm:227: pred */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} /* write-string in k1020 in k1017 */ 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_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_1839,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[27]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1844,a[2]=t2,a[3]=((C_word)li22),tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1882,a[2]=t5,a[3]=((C_word)li23),tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1887,a[2]=t6,a[3]=((C_word)li24),tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ /* extras.scm:236: def-n302 */ t8=t7; f_1887(t8,t1);} else{ t8=C_i_car(t3); t9=C_u_i_cdr(t3); if(C_truep(C_i_nullp(t9))){ /* extras.scm:236: def-port303 */ t10=t6; f_1882(t10,t1,t8);} else{ t10=C_i_car(t9); t11=C_u_i_cdr(t9); /* extras.scm:236: body300 */ t12=t5; f_1844(t12,t1,t8,t10);}}} /* k2802 in k2773 in k2770 in pr in pp in generic-write in k1020 in k1017 */ 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; 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_2804,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2808,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:429: out */ t4=((C_word*)((C_word*)t0)[6])[1]; f_2078(t4,t3,lf[90],((C_word*)t0)[7]);} /* k2806 in k2802 in k2773 in k2770 in pr in pp in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2808,2,av);} /* extras.scm:429: pp-list */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2937(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1]);} /* k3376 in k3373 in pretty-print in k3367 in k1020 in k1017 */ static void C_ccall f_3378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3378,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3373 in pretty-print in k3367 in k1020 in k1017 */ static void C_fcall f_3375(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_3375,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3378,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3382,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* extras.scm:574: pretty-print-width */ t5=*((C_word*)lf[114]+1);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* pretty-print in k3367 in k1020 in k1017 */ 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=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_3371,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_3375,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_3375(t6,C_u_i_car(t5));} else{ t5=t4; f_3375(t5,*((C_word*)lf[20]+1));}} /* pp-down in pp in generic-write in k1020 in k1017 */ static void C_fcall f_2946(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_2946,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_2952,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)li46),tmp=(C_word)a,a+=10,tmp)); t10=((C_word*)t8)[1]; f_2952(t10,t1,t2,t3);} /* k2324 in k2266 in wr in generic-write in k1020 in k1017 */ 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 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_2326,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_2328,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word)li35),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_2328(t5,((C_word*)t0)[4],C_fix(0),C_fix(0),t1);} /* k2939 in pp-list in pp in generic-write in k1020 in k1017 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_2941,2,av);} /* extras.scm:462: pp-down */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2946(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* loop in k2324 in k2266 in wr in generic-write in k1020 in k1017 */ static void C_fcall f_2328(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_2328,5,t0,t1,t2,t3,t4);} a=C_alloc(9); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2335,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_2335(t7,C_fixnum_lessp(t3,t6));} else{ t6=t5; f_2335(t6,C_SCHEME_FALSE);}} /* a2809 in k2770 in pr in pp in generic-write in k1020 in k1017 */ static void C_ccall f_2810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(7,c,1)))){ C_save_and_reclaim((void *)f_2810,3,av);} a=C_alloc(7); t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[2])[1]); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t3); t5=C_i_string_length(t2); t6=C_a_i_minus(&a,2,((C_word*)((C_word*)t0)[3])[1],t5); t7=C_mutate2(((C_word *)((C_word*)t0)[3])+1,t6); t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* read-string! in k1020 in k1017 */ 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; 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 +10,c,2)))){ C_save_and_reclaim((void*)f_1578,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; C_word t20; C_word t21; C_word t22; C_word t23; 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[2]+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_SCHEME_TRUE,C_SCHEME_TRUE,lf[23]); t17=C_i_check_string_2(t3,lf[23]); t18=(C_truep(((C_word*)t5)[1])?C_i_check_exact_2(((C_word*)t5)[1],lf[23]):C_SCHEME_UNDEFINED); t19=C_block_size(t3); t20=t19; t21=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1615,a[2]=t13,a[3]=t1,a[4]=t5,a[5]=t3,a[6]=t8,a[7]=t20,tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t5)[1])){ t22=C_fixnum_plus(t13,((C_word*)t5)[1]); t23=t21; f_1615(t23,C_fixnum_less_or_equal_p(t22,t20));} else{ t22=t21; f_1615(t22,C_SCHEME_FALSE);}} /* k2913 in pp-call in pp in generic-write in k1020 in k1017 */ 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 t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){ C_save_and_reclaim((void *)f_2915,2,av);} a=C_alloc(4); if(C_truep(((C_word*)t0)[2])){ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); t4=C_a_i_plus(&a,2,t1,C_fix(1)); /* extras.scm:455: pp-down */ t5=((C_word*)((C_word*)t0)[4])[1]; f_2946(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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* pp-call in pp in generic-write in k1020 in k1017 */ static void C_fcall f_2911(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_2911,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(13); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2915,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_2935,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=t8,tmp=(C_word)a,a+=5,tmp); /* extras.scm:453: out */ t10=((C_word*)((C_word*)t0)[4])[1]; f_2078(t10,t9,lf[93],t3);} /* k2333 in loop in k2324 in k2266 in wr in generic-write in k1020 in k1017 */ static void C_fcall f_2335(C_word t0,C_word t1){ C_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,4)))){ C_save_and_reclaim_args((void *)trf_2335,2,t0,t1);} a=C_alloc(19); 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_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2357,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_2361,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_2365,a[2]=((C_word*)t0)[6],a[3]=t9,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* extras.scm:337: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[12]+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_2388,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_2434,a[2]=((C_word*)t0)[6],a[3]=t12,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* extras.scm:344: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[12]+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:359: loop */ t9=((C_word*)((C_word*)t0)[4])[1]; f_2328(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_2452,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_2456,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* extras.scm:361: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[12]+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);}}} /* k3608 in k3602 in k3599 in loop in rec in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ 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; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3610,2,av);} /* extras.scm:630: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3468(t2,((C_word*)t0)[3]);} /* read-lines in k1020 in k1017 */ static void C_ccall f_1328(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_1328,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; C_word t10; C_word t11; C_word t12; t3=C_i_pairp(t2); t4=(C_truep(t3)?C_slot(t2,C_fix(0)):*((C_word*)lf[2]+1)); t5=C_i_pairp(t2); t6=(C_truep(t5)?C_slot(t2,C_fix(1)):C_SCHEME_FALSE); t7=C_i_pairp(t6); t8=(C_truep(t7)?C_slot(t6,C_fix(0)):C_SCHEME_FALSE); t9=t8; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1340,a[2]=t9,a[3]=((C_word)li9),tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_stringp(t4))){ /* extras.scm:124: call-with-input-file */ t11=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t11; av2[1]=t1; av2[2]=t4; av2[3]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ t11=C_i_check_port_2(t4,C_SCHEME_TRUE,C_SCHEME_TRUE,lf[18]); /* extras.scm:127: doread */ t12=t10;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t1; av2[2]=t4; f_1340(3,av2);}}} /* loop in doread in read-lines in k1020 in k1017 */ static void C_fcall f_1350(C_word 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_1350,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_eqp(t3,C_fix(0)); if(C_truep(t4)){ /* extras.scm:118: ##sys#fast-reverse */ {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]=t1; av2[2]=t2; tp(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1363,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* extras.scm:119: read-line */ t6=*((C_word*)lf[11]+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);}}} /* k2422 in k2410 in k2386 in k2333 in loop in k2324 in k2266 in wr in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2424,2,av);} /* extras.scm:357: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2078(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k2933 in pp-call in pp in generic-write in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2935,2,av);} /* extras.scm:453: wr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2097(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* pp-list in pp in generic-write in k1020 in k1017 */ static void C_fcall f_2937(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_2937,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2941,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:461: out */ t7=((C_word*)((C_word*)t0)[3])[1]; f_2078(t7,t6,lf[94],t3);} /* read-string in k1020 in k1017 */ 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 *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,3)))){ C_save_and_reclaim((void*)f_1713,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; C_word t9; C_word t10; 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_word*)lf[2]+1):C_i_car(t6)); if(C_truep(C_i_nullp(t6))){ /* extras.scm:201: ##sys#read-string/port */ t9=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t1; av2[2]=t4; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t9=C_i_cdr(t6); /* extras.scm:201: ##sys#read-string/port */ t10=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t1; av2[2]=t4; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}} /* doread in read-lines in k1020 in k1017 */ static void C_ccall f_1340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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,4)))){ C_save_and_reclaim((void *)f_1340,3,av);} a=C_alloc(7); t3=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[2]:C_fix(1000000000)); 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_1350,a[2]=t5,a[3]=t2,a[4]=((C_word)li8),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_1350(t7,t1,C_SCHEME_END_OF_LIST,t3);} /* k1930 in read-byte in k1020 in k1017 */ static void C_ccall f_1932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_1932,2,av);} t2=C_eofp(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?t1:C_fix(C_character_code(t1))); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* skip in loop in rec in k3400 in k3397 in fprintf0 in k3367 in k1020 in k1017 */ static C_word C_fcall f_3646(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:626: fetch */ f_3442(((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);}} /* k1224 in loop in k1206 in k1183 in read-line in k1020 in k1017 */ static void C_ccall f_1226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word 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_1226,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* extras.scm:92: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[12]+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:94: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[12]+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_1259,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:96: peek-char */ t4=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_1277,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_1291,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_1299,a[2]=t4,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* extras.scm:104: make-string */ t6=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_1277(t4,C_SCHEME_UNDEFINED);}}}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[225] = { {"f_2412:extras_2escm",(void*)f_2412}, {"f_2416:extras_2escm",(void*)f_2416}, {"f_2973:extras_2escm",(void*)f_2973}, {"f_2307:extras_2escm",(void*)f_2307}, {"f_2979:extras_2escm",(void*)f_2979}, {"f_1259:extras_2escm",(void*)f_1259}, {"f_2193:extras_2escm",(void*)f_2193}, {"f_3139:extras_2escm",(void*)f_3139}, {"f_2434:extras_2escm",(void*)f_2434}, {"f_1615:extras_2escm",(void*)f_1615}, {"f_1530:extras_2escm",(void*)f_1530}, {"f_3601:extras_2escm",(void*)f_3601}, {"f_3604:extras_2escm",(void*)f_3604}, {"f_1523:extras_2escm",(void*)f_1523}, {"f_1527:extras_2escm",(void*)f_1527}, {"f_1213:extras_2escm",(void*)f_1213}, {"f_1844:extras_2escm",(void*)f_1844}, {"f_3721:extras_2escm",(void*)f_3721}, {"f_3727:extras_2escm",(void*)f_3727}, {"f_3043:extras_2escm",(void*)f_3043}, {"f_3047:extras_2escm",(void*)f_3047}, {"f_3733:extras_2escm",(void*)f_3733}, {"f_1208:extras_2escm",(void*)f_1208}, {"f_3741:extras_2escm",(void*)f_3741}, {"f_1434:extras_2escm",(void*)f_1434}, {"f_2097:extras_2escm",(void*)f_2097}, {"f_3579:extras_2escm",(void*)f_3579}, {"f_2393:extras_2escm",(void*)f_2393}, {"f_2394:extras_2escm",(void*)f_2394}, {"f_2088:extras_2escm",(void*)f_2088}, {"f_2039:extras_2escm",(void*)f_2039}, {"f_1446:extras_2escm",(void*)f_1446}, {"f_3583:extras_2escm",(void*)f_3583}, {"f_2078:extras_2escm",(void*)f_2078}, {"f_2620:extras_2escm",(void*)f_2620}, {"f_2626:extras_2escm",(void*)f_2626}, {"f_3766:extras_2escm",(void*)f_3766}, {"f_1418:extras_2escm",(void*)f_1418}, {"f_2631:extras_2escm",(void*)f_2631}, {"f_3776:extras_2escm",(void*)f_3776}, {"f_2490:extras_2escm",(void*)f_2490}, {"f_2494:extras_2escm",(void*)f_2494}, {"f_2647:extras_2escm",(void*)f_2647}, {"f_2644:extras_2escm",(void*)f_2644}, {"f_3100:extras_2escm",(void*)f_3100}, {"f_2005:extras_2escm",(void*)f_2005}, {"f_1019:extras_2escm",(void*)f_1019}, {"f_2658:extras_2escm",(void*)f_2658}, {"f_3111:extras_2escm",(void*)f_3111}, {"f_2521:extras_2escm",(void*)f_2521}, {"f_3124:extras_2escm",(void*)f_3124}, {"f_2530:extras_2escm",(void*)f_2530}, {"f_2537:extras_2escm",(void*)f_2537}, {"f_3086:extras_2escm",(void*)f_3086}, {"f_3082:extras_2escm",(void*)f_3082}, {"f_2143:extras_2escm",(void*)f_2143}, {"f_2145:extras_2escm",(void*)f_2145}, {"f_1022:extras_2escm",(void*)f_1022}, {"f_1024:extras_2escm",(void*)f_1024}, {"f_2118:extras_2escm",(void*)f_2118}, {"f_2551:extras_2escm",(void*)f_2551}, {"f_3061:extras_2escm",(void*)f_3061}, {"f_1695:extras_2escm",(void*)f_1695}, {"f_3395:extras_2escm",(void*)f_3395}, {"f_3399:extras_2escm",(void*)f_3399}, {"f_2569:extras_2escm",(void*)f_2569}, {"f_2716:extras_2escm",(void*)f_2716}, {"f_2100:extras_2escm",(void*)f_2100}, {"f_2107:extras_2escm",(void*)f_2107}, {"f_2590:extras_2escm",(void*)f_2590}, {"f_2597:extras_2escm",(void*)f_2597}, {"f_2846:extras_2escm",(void*)f_2846}, {"f_2723:extras_2escm",(void*)f_2723}, {"f_2725:extras_2escm",(void*)f_2725}, {"f_3506:extras_2escm",(void*)f_3506}, {"f_2587:extras_2escm",(void*)f_2587}, {"f_2853:extras_2escm",(void*)f_2853}, {"f_1668:extras_2escm",(void*)f_1668}, {"f_1175:extras_2escm",(void*)f_1175}, {"f_2127:extras_2escm",(void*)f_2127}, {"f_3519:extras_2escm",(void*)f_3519}, {"f_1887:extras_2escm",(void*)f_1887}, {"f_1882:extras_2escm",(void*)f_1882}, {"f_1655:extras_2escm",(void*)f_1655}, {"f_2245:extras_2escm",(void*)f_2245}, {"f_2249:extras_2escm",(void*)f_2249}, {"f_1686:extras_2escm",(void*)f_1686}, {"f_1195:extras_2escm",(void*)f_1195}, {"f_1683:extras_2escm",(void*)f_1683}, {"f_2880:extras_2escm",(void*)f_2880}, {"f_3427:extras_2escm",(void*)f_3427}, {"f_3532:extras_2escm",(void*)f_3532}, {"f_1671:extras_2escm",(void*)f_1671}, {"f_3433:extras_2escm",(void*)f_3433}, {"f_3545:extras_2escm",(void*)f_3545}, {"f_3549:extras_2escm",(void*)f_3549}, {"f_1139:extras_2escm",(void*)f_1139}, {"f_2864:extras_2escm",(void*)f_2864}, {"f_3159:extras_2escm",(void*)f_3159}, {"f_3157:extras_2escm",(void*)f_3157}, {"f_1095:extras_2escm",(void*)f_1095}, {"f_1163:extras_2escm",(void*)f_1163}, {"f_2772:extras_2escm",(void*)f_2772}, {"f_2775:extras_2escm",(void*)f_2775}, {"f_2202:extras_2escm",(void*)f_2202}, {"f_3165:extras_2escm",(void*)f_3165}, {"f_1755:extras_2escm",(void*)f_1755}, {"f_1157:extras_2escm",(void*)f_1157}, {"f_3177:extras_2escm",(void*)f_3177}, {"f_3171:extras_2escm",(void*)f_3171}, {"f_1864:extras_2escm",(void*)f_1864}, {"f_1861:extras_2escm",(void*)f_1861}, {"f_1185:extras_2escm",(void*)f_1185}, {"f_3189:extras_2escm",(void*)f_3189}, {"f_3183:extras_2escm",(void*)f_3183}, {"f_3022:extras_2escm",(void*)f_3022}, {"f_3442:extras_2escm",(void*)f_3442}, {"f_2788:extras_2escm",(void*)f_2788}, {"f_3449:extras_2escm",(void*)f_3449}, {"f_3195:extras_2escm",(void*)f_3195}, {"f_1053:extras_2escm",(void*)f_1053}, {"f_1055:extras_2escm",(void*)f_1055}, {"f_3005:extras_2escm",(void*)f_3005}, {"f_1045:extras_2escm",(void*)f_1045}, {"f_3001:extras_2escm",(void*)f_3001}, {"toplevel:extras_2escm",(void*)C_extras_toplevel}, {"f_3017:extras_2escm",(void*)f_3017}, {"f_1075:extras_2escm",(void*)f_1075}, {"f_3013:extras_2escm",(void*)f_3013}, {"f_3230:extras_2escm",(void*)f_3230}, {"f_1143:extras_2escm",(void*)f_1143}, {"f_1783:extras_2escm",(void*)f_1783}, {"f_1691:extras_2escm",(void*)f_1691}, {"f_2189:extras_2escm",(void*)f_2189}, {"f_3019:extras_2escm",(void*)f_3019}, {"f_1977:extras_2escm",(void*)f_1977}, {"f_1974:extras_2escm",(void*)f_1974}, {"f_3240:extras_2escm",(void*)f_3240}, {"f_2173:extras_2escm",(void*)f_2173}, {"f_3405:extras_2escm",(void*)f_3405}, {"f_3402:extras_2escm",(void*)f_3402}, {"f_1277:extras_2escm",(void*)f_1277}, {"f_1291:extras_2escm",(void*)f_1291}, {"f_3215:extras_2escm",(void*)f_3215}, {"f_1268:extras_2escm",(void*)f_1268}, {"f_3221:extras_2escm",(void*)f_3221}, {"f_1299:extras_2escm",(void*)f_1299}, {"f_2268:extras_2escm",(void*)f_2268}, {"f_3704:extras_2escm",(void*)f_3704}, {"f_3715:extras_2escm",(void*)f_3715}, {"f_2167:extras_2escm",(void*)f_2167}, {"f_1793:extras_2escm",(void*)f_1793}, {"f_1798:extras_2escm",(void*)f_1798}, {"f_2294:extras_2escm",(void*)f_2294}, {"f_2357:extras_2escm",(void*)f_2357}, {"f_2284:extras_2escm",(void*)f_2284}, {"f_2906:extras_2escm",(void*)f_2906}, {"f_2287:extras_2escm",(void*)f_2287}, {"f_1464:extras_2escm",(void*)f_1464}, {"f_1468:extras_2escm",(void*)f_1468}, {"f_3562:extras_2escm",(void*)f_3562}, {"f_2361:extras_2escm",(void*)f_2361}, {"f_3566:extras_2escm",(void*)f_3566}, {"f_2275:extras_2escm",(void*)f_2275}, {"f_3468:extras_2escm",(void*)f_3468}, {"f_2365:extras_2escm",(void*)f_2365}, {"f_2456:extras_2escm",(void*)f_2456}, {"f_2452:extras_2escm",(void*)f_2452}, {"f_2603:extras_2escm",(void*)f_2603}, {"f_2487:extras_2escm",(void*)f_2487}, {"f_2388:extras_2escm",(void*)f_2388}, {"f_2610:extras_2escm",(void*)f_2610}, {"f_1922:extras_2escm",(void*)f_1922}, {"f_2741:extras_2escm",(void*)f_2741}, {"f_2748:extras_2escm",(void*)f_2748}, {"f_1363:extras_2escm",(void*)f_1363}, {"f_2759:extras_2escm",(void*)f_2759}, {"f_3369:extras_2escm",(void*)f_3369}, {"f_2692:extras_2escm",(void*)f_2692}, {"f_3360:extras_2escm",(void*)f_3360}, {"f_1949:extras_2escm",(void*)f_1949}, {"f_2680:extras_2escm",(void*)f_2680}, {"f_1818:extras_2escm",(void*)f_1818}, {"f_2514:extras_2escm",(void*)f_2514}, {"f_1707:extras_2escm",(void*)f_1707}, {"f_3481:extras_2escm",(void*)f_3481}, {"f_2670:extras_2escm",(void*)f_2670}, {"f_3388:extras_2escm",(void*)f_3388}, {"f_3384:extras_2escm",(void*)f_3384}, {"f_2673:extras_2escm",(void*)f_2673}, {"f_3382:extras_2escm",(void*)f_3382}, {"f_1811:extras_2escm",(void*)f_1811}, {"f_2479:extras_2escm",(void*)f_2479}, {"f_2952:extras_2escm",(void*)f_2952}, {"f_1808:extras_2escm",(void*)f_1808}, {"f_2689:extras_2escm",(void*)f_2689}, {"f_3356:extras_2escm",(void*)f_3356}, {"f_1802:extras_2escm",(void*)f_1802}, {"f_1839:extras_2escm",(void*)f_1839}, {"f_2804:extras_2escm",(void*)f_2804}, {"f_2808:extras_2escm",(void*)f_2808}, {"f_3378:extras_2escm",(void*)f_3378}, {"f_3375:extras_2escm",(void*)f_3375}, {"f_3371:extras_2escm",(void*)f_3371}, {"f_2946:extras_2escm",(void*)f_2946}, {"f_2326:extras_2escm",(void*)f_2326}, {"f_2941:extras_2escm",(void*)f_2941}, {"f_2328:extras_2escm",(void*)f_2328}, {"f_2810:extras_2escm",(void*)f_2810}, {"f_1578:extras_2escm",(void*)f_1578}, {"f_2915:extras_2escm",(void*)f_2915}, {"f_2911:extras_2escm",(void*)f_2911}, {"f_2335:extras_2escm",(void*)f_2335}, {"f_3610:extras_2escm",(void*)f_3610}, {"f_1328:extras_2escm",(void*)f_1328}, {"f_1350:extras_2escm",(void*)f_1350}, {"f_2424:extras_2escm",(void*)f_2424}, {"f_2935:extras_2escm",(void*)f_2935}, {"f_2937:extras_2escm",(void*)f_2937}, {"f_1713:extras_2escm",(void*)f_1713}, {"f_1340:extras_2escm",(void*)f_1340}, {"f_1932:extras_2escm",(void*)f_1932}, {"f_3646:extras_2escm",(void*)f_3646}, {"f_1226:extras_2escm",(void*)f_1226}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|eliminated procedure checks: 37 o|specializations: o| 11 (eqv? (not float) *) o| 1 (current-output-port) o| 4 (make-string fixnum char) o| 1 (assq * (list-of pair)) o| 2 (char<? char char) o| 3 (char=? char char) o| 5 (car pair) o| 13 (cdr pair) o| 1 (make-string fixnum) o| 4 (##sys#check-output-port * * *) o| 24 (eqv? * (not float)) o| 7 (##sys#check-input-port * * *) o| 1 (fp/ float float) (o e)|safe calls: 309 (o e)|assignments to immediate values: 7 o|Removed `not' forms: 5 o|inlining procedure: k1057 o|inlining procedure: k1057 o|inlining procedure: k1084 o|inlining procedure: k1084 o|inlining procedure: k1090 o|inlining procedure: k1090 o|substituted constant variable: a1158 o|inlining procedure: k1168 o|inlining procedure: k1168 o|substituted constant variable: a1187 o|substituted constant variable: a1188 o|inlining procedure: k1192 o|inlining procedure: k1192 o|inlining procedure: k1215 o|inlining procedure: k1215 o|inlining procedure: k1233 o|inlining procedure: k1233 o|inlining procedure: k1242 o|inlining procedure: k1242 o|inlining procedure: k1260 o|inlining procedure: k1260 o|substituted constant variable: a1301 o|substituted constant variable: a1303 o|inlining procedure: k1311 o|inlining procedure: k1311 o|inlining procedure: k1352 o|inlining procedure: k1352 o|inlining procedure: k1384 o|substituted constant variable: a1394 o|substituted constant variable: a1395 o|inlining procedure: k1384 o|substituted constant variable: a1424 o|substituted constant variable: a1425 o|inlining procedure: k1448 o|inlining procedure: k1448 o|inlining procedure: k1472 o|inlining procedure: k1472 o|inlining procedure: k1531 o|inlining procedure: k1531 o|substituted constant variable: a1593 o|substituted constant variable: a1594 o|substituted constant variable: a1658 o|substituted constant variable: a1659 o|inlining procedure: k1660 o|inlining procedure: k1660 o|inlining procedure: k1696 o|inlining procedure: k1696 o|substituted constant variable: a1711 o|inlining procedure: k1724 o|inlining procedure: k1724 o|substituted constant variable: a1761 o|substituted constant variable: a1762 o|inlining procedure: k1766 o|inlining procedure: k1766 o|substituted constant variable: a1789 o|substituted constant variable: a1790 o|inlining procedure: k1803 o|inlining procedure: k1803 o|contracted procedure: k1822 o|substituted constant variable: a1847 o|substituted constant variable: a1848 o|inlining procedure: k1859 o|inlining procedure: k1859 o|inlining procedure: k1892 o|inlining procedure: k1892 o|substituted constant variable: a1928 o|substituted constant variable: a1929 o|inlining procedure: k1933 o|inlining procedure: k1933 o|substituted constant variable: a1958 o|substituted constant variable: a1959 o|inlining procedure: k1997 o|contracted procedure: "(extras.scm:279) length1?363" o|inlining procedure: k1982 o|inlining procedure: k1982 o|inlining procedure: k1997 o|inlining procedure: k2012 o|inlining procedure: k2012 o|substituted constant variable: a2025 o|substituted constant variable: a2027 o|substituted constant variable: a2029 o|substituted constant variable: a2031 o|inlining procedure: k2045 o|inlining procedure: k2045 o|inlining procedure: k2057 o|inlining procedure: k2057 o|substituted constant variable: a2070 o|substituted constant variable: a2072 o|substituted constant variable: a2074 o|substituted constant variable: a2076 o|inlining procedure: k2080 o|inlining procedure: k2080 o|inlining procedure: k2102 o|inlining procedure: "(extras.scm:300) read-macro-body357" o|inlining procedure: k2102 o|inlining procedure: k2129 o|contracted procedure: k2150 o|inlining procedure: k2147 o|inlining procedure: k2174 o|inlining procedure: k2174 o|inlining procedure: k2147 o|inlining procedure: k2129 o|inlining procedure: k2206 o|inlining procedure: k2206 o|inlining procedure: k2224 o|inlining procedure: k2224 o|inlining procedure: k2250 o|inlining procedure: k2260 o|inlining procedure: k2260 o|inlining procedure: k2250 o|inlining procedure: k2276 o|inlining procedure: k2276 o|inlining procedure: k2308 o|inlining procedure: k2330 o|substituted constant variable: a2343 o|substituted constant variable: a2370 o|inlining procedure: k2366 o|substituted constant variable: a2390 o|inlining procedure: k2391 o|inlining procedure: k2391 o|substituted constant variable: a2426 o|inlining procedure: k2366 o|substituted constant variable: a2443 o|substituted constant variable: a2445 o|inlining procedure: k2330 o|inlining procedure: k2308 o|inlining procedure: k2470 o|substituted constant variable: a2480 o|inlining procedure: k2470 o|inlining procedure: k2506 o|inlining procedure: k2506 o|inlining procedure: k2539 o|inlining procedure: k2539 o|substituted constant variable: a2552 o|inlining procedure: k2554 o|inlining procedure: k2554 o|inlining procedure: k2570 o|inlining procedure: k2570 o|inlining procedure: k2598 o|inlining procedure: k2598 o|inlining procedure: k2633 o|inlining procedure: k2633 o|inlining procedure: k2665 o|inlining procedure: k2665 o|inlining procedure: k2694 o|inlining procedure: k2694 o|inlining procedure: k2727 o|inlining procedure: k2736 o|inlining procedure: k2736 o|substituted constant variable: a2749 o|substituted constant variable: a2750 o|inlining procedure: k2727 o|inlining procedure: k2761 o|inlining procedure: k2789 o|inlining procedure: k2789 o|substituted constant variable: max-expr-width498 o|inlining procedure: k2761 o|inlining procedure: k2848 o|inlining procedure: "(extras.scm:434) read-macro-body357" o|inlining procedure: k2848 o|inlining procedure: k2881 o|inlining procedure: k2881 o|substituted constant variable: max-call-head-width497 o|inlining procedure: k2916 o|inlining procedure: k2916 o|inlining procedure: k2954 o|inlining procedure: k2986 o|inlining procedure: k2986 o|inlining procedure: k2954 o|inlining procedure: k3024 o|inlining procedure: k3024 o|inlining procedure: k3063 o|inlining procedure: k3063 o|inlining procedure: k3112 o|substituted constant variable: indent-general496 o|inlining procedure: k3112 o|substituted constant variable: indent-general496 o|inlining procedure: k3232 o|inlining procedure: k3232 o|inlining procedure: k3250 o|inlining procedure: k3250 o|inlining procedure: k3262 o|inlining procedure: k3262 o|inlining procedure: k3277 o|inlining procedure: k3277 o|substituted constant variable: a3290 o|substituted constant variable: a3292 o|substituted constant variable: a3294 o|substituted constant variable: a3299 o|substituted constant variable: a3301 o|substituted constant variable: a3303 o|substituted constant variable: a3305 o|substituted constant variable: a3310 o|substituted constant variable: a3312 o|inlining procedure: k3316 o|inlining procedure: k3316 o|inlining procedure: k3328 o|inlining procedure: k3328 o|substituted constant variable: a3335 o|substituted constant variable: a3337 o|substituted constant variable: a3339 o|substituted constant variable: a3341 o|substituted constant variable: a3343 o|inlining procedure: k3347 o|substituted constant variable: a3361 o|substituted constant variable: a3362 o|inlining procedure: k3347 o|contracted procedure: k3409 o|inlining procedure: k3406 o|contracted procedure: k3418 o|inlining procedure: k3406 o|inlining procedure: k3451 o|inlining procedure: k3451 o|inlining procedure: k3470 o|inlining procedure: k3470 o|inlining procedure: k3494 o|inlining procedure: k3494 o|inlining procedure: k3520 o|inlining procedure: k3520 o|inlining procedure: k3550 o|inlining procedure: k3550 o|inlining procedure: k3584 o|inlining procedure: k3584 o|inlining procedure: k3611 o|inlining procedure: k3611 o|inlining procedure: k3632 o|inlining procedure: k3648 o|inlining procedure: k3648 o|inlining procedure: k3632 o|substituted constant variable: a3672 o|substituted constant variable: a3674 o|substituted constant variable: a3676 o|substituted constant variable: a3678 o|substituted constant variable: a3680 o|substituted constant variable: a3682 o|substituted constant variable: a3684 o|substituted constant variable: a3686 o|substituted constant variable: a3688 o|substituted constant variable: a3690 o|substituted constant variable: a3692 o|substituted constant variable: a3712 o|contracted procedure: k3742 o|inlining procedure: k3739 o|inlining procedure: k3751 o|propagated global variable: r37523965 sprintf o|inlining procedure: k3751 o|inlining procedure: k3739 o|propagated global variable: r37403967 sprintf o|replaced variables: 575 o|removed binding forms: 131 o|substituted constant variable: r10853780 o|converted assignments to bindings: (slurp83) o|substituted constant variable: r11693783 o|substituted constant variable: r13123796 o|converted assignments to bindings: (doread144) o|substituted constant variable: r14493801 o|substituted constant variable: r17673822 o|substituted constant variable: r19833835 o|substituted constant variable: r19983836 o|removed side-effect free assignment to unused variable: read-macro-body357 o|substituted constant variable: r20463839 o|substituted constant variable: r20583841 o|substituted constant variable: r20813844 o|substituted constant variable: r22613863 o|substituted constant variable: r22613863 o|substituted constant variable: r22613865 o|substituted constant variable: r22613865 o|substituted constant variable: r25403884 o|substituted constant variable: r25403884 o|substituted constant variable: r25403886 o|substituted constant variable: r25403886 o|substituted constant variable: r27373902 o|substituted constant variable: r27283903 o|substituted constant variable: r29173918 o|substituted constant variable: r29553922 o|removed side-effect free assignment to unused variable: indent-general496 o|removed side-effect free assignment to unused variable: max-call-head-width497 o|removed side-effect free assignment to unused variable: max-expr-width498 o|inlining procedure: k3479 o|inlining procedure: k3739 o|propagated global variable: r37404028 printf o|propagated global variable: r37404028 printf o|inlining procedure: k3739 o|propagated global variable: r37404030 sprintf o|propagated global variable: r37404030 sprintf o|inlining procedure: k3739 o|propagated global variable: r37404032 fprintf o|propagated global variable: r37404032 fprintf o|propagated global variable: a37383968 sprintf o|simplifications: ((let . 2)) o|replaced variables: 13 o|removed binding forms: 592 o|inlining procedure: k3200 o|inlining procedure: k3702 o|replaced variables: 2 o|removed binding forms: 53 o|substituted constant variable: r32014056 o|substituted constant variable: r37034063 o|replaced variables: 2 o|removed binding forms: 2 o|removed conditional forms: 1 o|removed binding forms: 4 o|simplifications: ((if . 52) (##core#call . 269)) o| call simplifications: o| apply 5 o| char-upcase o| char-whitespace? 2 o| ##sys#check-list o| < o| > 5 o| - 5 o| vector? 2 o| boolean? 2 o| symbol? 3 o| procedure? o| char? o| ##sys#generic-structure? o| ##sys#byte o| fx> 2 o| string-ref o| string-length 4 o| + 12 o| integer->char o| char->integer 3 o| ##sys#size 4 o| fx<= o| ##sys#setislot o| not 2 o| fx< 7 o| ##sys#check-string 4 o| string? 3 o| fx- 5 o| pair? 17 o| cadr 3 o| ##sys#slot 20 o| char=? o| fx= o| eq? 45 o| ##sys#check-exact 7 o| car 23 o| null? 28 o| cdr 10 o| eof-object? 7 o| fx>= 5 o| fx+ 16 o| cons 5 o|contracted procedure: k1132 o|contracted procedure: k1026 o|contracted procedure: k1126 o|contracted procedure: k1029 o|contracted procedure: k1120 o|contracted procedure: k1032 o|contracted procedure: k1114 o|contracted procedure: k1035 o|contracted procedure: k1108 o|contracted procedure: k1038 o|contracted procedure: k1102 o|contracted procedure: k1041 o|contracted procedure: k1060 o|contracted procedure: k1063 o|contracted procedure: k1077 o|contracted procedure: k1081 o|contracted procedure: k1144 o|contracted procedure: k1147 o|contracted procedure: k1165 o|contracted procedure: k1171 o|contracted procedure: k1177 o|contracted procedure: k1180 o|contracted procedure: k1308 o|contracted procedure: k1189 o|contracted procedure: k1203 o|contracted procedure: k1218 o|contracted procedure: k1230 o|contracted procedure: k1236 o|contracted procedure: k1245 o|contracted procedure: k1254 o|contracted procedure: k1263 o|contracted procedure: k1282 o|contracted procedure: k1285 o|contracted procedure: k1293 o|contracted procedure: k1321 o|contracted procedure: k1314 o|contracted procedure: k1411 o|contracted procedure: k1330 o|contracted procedure: k1405 o|contracted procedure: k1333 o|contracted procedure: k1399 o|contracted procedure: k1336 o|contracted procedure: k1346 o|contracted procedure: k1355 o|contracted procedure: k1367 o|contracted procedure: k1377 o|contracted procedure: k1381 o|contracted procedure: k1387 o|contracted procedure: k1420 o|contracted procedure: k1426 o|contracted procedure: k1439 o|contracted procedure: k1429 o|contracted procedure: k1451 o|contracted procedure: k1574 o|contracted procedure: k1454 o|contracted procedure: k1516 o|contracted procedure: k1512 o|contracted procedure: k1469 o|contracted procedure: k1475 o|contracted procedure: k1481 o|contracted procedure: k1484 o|contracted procedure: k1491 o|contracted procedure: k1495 o|contracted procedure: k1499 o|contracted procedure: k1534 o|contracted procedure: k1540 o|contracted procedure: k1543 o|contracted procedure: k1550 o|contracted procedure: k1554 o|contracted procedure: k1558 o|contracted procedure: k1570 o|contracted procedure: k1648 o|contracted procedure: k1580 o|contracted procedure: k1642 o|contracted procedure: k1583 o|contracted procedure: k1636 o|contracted procedure: k1586 o|contracted procedure: k1630 o|contracted procedure: k1589 o|contracted procedure: k1595 o|contracted procedure: k1598 o|contracted procedure: k1601 o|contracted procedure: k1607 o|contracted procedure: k1617 o|contracted procedure: k1624 o|contracted procedure: k1663 o|contracted procedure: k1675 o|contracted procedure: k1699 o|contracted procedure: k1748 o|contracted procedure: k1715 o|contracted procedure: k1742 o|contracted procedure: k1718 o|contracted procedure: k1736 o|contracted procedure: k1721 o|contracted procedure: k1730 o|contracted procedure: k1724 o|contracted procedure: k1776 o|contracted procedure: k1757 o|contracted procedure: k1773 o|contracted procedure: k1763 o|contracted procedure: k1832 o|contracted procedure: k1785 o|contracted procedure: k1829 o|contracted procedure: k1841 o|contracted procedure: k1849 o|contracted procedure: k1876 o|contracted procedure: k1852 o|contracted procedure: k1872 o|contracted procedure: k1895 o|contracted procedure: k1901 o|contracted procedure: k1908 o|contracted procedure: k1914 o|contracted procedure: k1942 o|contracted procedure: k1924 o|contracted procedure: k1936 o|contracted procedure: k1967 o|contracted procedure: k1951 o|contracted procedure: k1954 o|contracted procedure: k1964 o|contracted procedure: k1993 o|contracted procedure: k2000 o|contracted procedure: k1985 o|contracted procedure: k2009 o|contracted procedure: k2015 o|contracted procedure: k2041 o|contracted procedure: k2048 o|contracted procedure: k2054 o|contracted procedure: k2060 o|contracted procedure: k2066 o|contracted procedure: k2093 o|contracted procedure: k2112 o|contracted procedure: k2132 o|contracted procedure: k2156 o|contracted procedure: k2177 o|contracted procedure: k2209 o|contracted procedure: k2218 o|contracted procedure: k2227 o|contracted procedure: k2236 o|contracted procedure: k2253 o|contracted procedure: k2279 o|contracted procedure: k2298 o|contracted procedure: k2311 o|contracted procedure: k2336 o|contracted procedure: k2344 o|contracted procedure: k2351 o|contracted procedure: k2371 o|contracted procedure: k2378 o|contracted procedure: k2382 o|contracted procedure: k2400 o|contracted procedure: k2418 o|contracted procedure: k2428 o|contracted procedure: k2439 o|contracted procedure: k2461 o|contracted procedure: k2467 o|contracted procedure: k2482 o|contracted procedure: k2500 o|contracted procedure: k2509 o|contracted procedure: k2525 o|contracted procedure: k2542 o|contracted procedure: k2685 o|contracted procedure: k2573 o|contracted procedure: k2582 o|contracted procedure: k2612 o|contracted procedure: k2621 o|contracted procedure: k2636 o|contracted procedure: k2639 o|contracted procedure: k2652 o|contracted procedure: k2659 o|contracted procedure: k2697 o|contracted procedure: k2703 o|contracted procedure: k2710 o|contracted procedure: k2733 o|contracted procedure: k2755 o|contracted procedure: k2764 o|contracted procedure: k2767 o|contracted procedure: k2779 o|contracted procedure: k2792 o|contracted procedure: k2813 o|contracted procedure: k2824 o|contracted procedure: k2817 o|contracted procedure: k2836 o|contracted procedure: k2832 o|contracted procedure: k2828 o|contracted procedure: k2858 o|contracted procedure: k2869 o|contracted procedure: k2875 o|contracted procedure: k2900 o|contracted procedure: k2890 o|contracted procedure: k2925 o|contracted procedure: k2929 o|contracted procedure: k2960 o|contracted procedure: k2980 o|contracted procedure: k2964 o|contracted procedure: k2989 o|contracted procedure: k3007 o|contracted procedure: k3027 o|contracted procedure: k3030 o|contracted procedure: k3048 o|contracted procedure: k3034 o|contracted procedure: k3066 o|contracted procedure: k3069 o|contracted procedure: k3087 o|contracted procedure: k3073 o|contracted procedure: k3105 o|contracted procedure: k3115 o|contracted procedure: k3118 o|contracted procedure: k3129 o|contracted procedure: k3133 o|contracted procedure: k3144 o|contracted procedure: k3148 o|contracted procedure: k3197 o|contracted procedure: k3206 o|contracted procedure: k3200 o|contracted procedure: k3235 o|contracted procedure: k3244 o|contracted procedure: k3247 o|contracted procedure: k3253 o|contracted procedure: k3259 o|contracted procedure: k3265 o|contracted procedure: k3268 o|contracted procedure: k3274 o|contracted procedure: k3280 o|contracted procedure: k3286 o|contracted procedure: k3313 o|contracted procedure: k3319 o|contracted procedure: k3325 o|contracted procedure: k3389 o|contracted procedure: k3429 o|contracted procedure: k3435 o|contracted procedure: k3438 o|contracted procedure: k3445 o|contracted procedure: k3457 o|contracted procedure: k3461 o|contracted procedure: k3473 o|contracted procedure: k3696 o|contracted procedure: k3485 o|contracted procedure: k3491 o|contracted procedure: k3497 o|contracted procedure: k3510 o|contracted procedure: k3523 o|contracted procedure: k3536 o|contracted procedure: k3553 o|contracted procedure: k3570 o|contracted procedure: k3587 o|contracted procedure: k3596 o|contracted procedure: k3605 o|contracted procedure: k3614 o|contracted procedure: k3623 o|contracted procedure: k3626 o|contracted procedure: k3635 o|contracted procedure: k3651 o|contracted procedure: k3662 o|contracted procedure: k3748 o|contracted procedure: k3754 o|contracted procedure: k3758 o|contracted procedure: k3768 o|simplifications: ((let . 55)) o|removed binding forms: 256 o|inlining procedure: k1141 o|inlining procedure: k1604 o|inlining procedure: k1604 o|replaced variables: 130 o|simplifications: ((if . 1)) o|replaced variables: 2 o|removed binding forms: 58 o|removed binding forms: 1 o|direct leaf routine/allocation: read-macro-prefix358 0 o|direct leaf routine/allocation: fetch693 0 o|contracted procedure: "(extras.scm:300) k2120" o|contracted procedure: "(extras.scm:435) k2866" o|contracted procedure: "(extras.scm:604) k3476" o|contracted procedure: "(extras.scm:606) k3488" o|contracted procedure: "(extras.scm:624) k3642" o|contracted procedure: "(extras.scm:626) k3658" o|removed binding forms: 6 o|direct leaf routine/allocation: skip716 0 o|inlining procedure: k3479 o|converted assignments to bindings: (skip716) o|simplifications: ((let . 1)) o|customizable procedures: (fprintf0 k3397 rec688 next694 loop699 k3373 pp361 k3238 tail1558 tail3560 tail2559 indent480 loop540 pp-down485 style499 pp-call483 pp-general486 pr481 generic-write pp-list484 spaces479 doloop464465 g455456 k2333 g444445 loop421 wr-expr404 loop410 read-macro?356 wr-lst405 out359 wr360 k2003 def-n302318 def-port303316 body300308 k1862 loop289 loop242 k1613 k1528 loop190 loop175 loop146 k1183 k1275 loop121 g116117 doloop8586) o|calls to known targets: 195 o|identified direct recursive calls: f_3646 1 o|identified direct recursive calls: f_3468 1 o|fast box initializations: 43 o|fast global references: 5 o|fast global assignments: 2 o|dropping unused closure argument: f_2039 o|dropping unused closure argument: f_3395 o|dropping unused closure argument: f_1977 o|dropping unused closure argument: f_1974 */ /* end of file */ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/modules.c����������������������������������������������������������������������������0000644�0001750�0001750�00002114701�13052306310�014623� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from modules.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:17 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: modules.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file modules.c unit: modules */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); static C_TLS C_word lf[183]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,21),40,109,111,100,117,108,101,45,110,97,109,101,32,120,50,52,49,50,54,48,41,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,31),40,109,111,100,117,108,101,45,117,110,100,101,102,105,110,101,100,45,108,105,115,116,32,120,50,52,49,50,57,49,41,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,44),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,50,52,49,50,57,52,32,121,50,52,50,50,57,53,41,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,109,111,100,117,108,101,45,101,120,112,111,114,116,115,32,109,51,55,52,41,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,46),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,51,56,50,32,110,97,109,101,51,56,51,41,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,7),40,97,51,50,54,52,41,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,7),40,97,51,50,56,49,41,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,7),40,97,51,50,56,55,41,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,52,48,48,32,103,52,49,50,52,49,57,41,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,48),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,51,56,53,32,116,104,117,110,107,51,56,54,41}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,11),40,103,52,52,52,32,97,52,52,54,41,0,0,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,19),40,108,111,111,112,32,110,52,51,54,32,100,111,110,101,52,51,55,41,0,0,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,42),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,52,51,51,32,108,111,99,52,51,52,41,0,0,0,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,39),40,35,35,115,121,115,35,102,105,110,100,45,109,111,100,117,108,101,32,110,97,109,101,52,53,52,32,46,32,116,109,112,52,53,51,52,53,53,41,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,11),40,103,52,56,50,32,109,52,56,52,41,0,0,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,115,119,105,116,99,104,45,109,111,100,117,108,101,32,109,111,100,52,55,52,41,0,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,6),40,103,53,49,53,41,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,6),40,103,52,57,57,41,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,52,57,56,32,103,53,48,53,53,49,57,41,0,0,0,0,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,41),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,52,57,48,32,101,120,112,115,52,57,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,60),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,53,50,54,32,109,111,100,53,50,55,32,101,120,112,53,50,56,32,118,97,108,53,50,57,41,0,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,39),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,53,51,49,41,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,39),40,99,104,101,99,107,45,102,111,114,45,114,101,100,101,102,32,115,121,109,53,51,52,32,101,110,118,53,51,53,32,115,101,110,118,53,51,54,41,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,37),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,53,52,49,32,109,111,100,53,52,50,41,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,51),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,53,53,55,32,109,111,100,53,53,56,32,118,97,108,53,53,57,41,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,11),40,103,53,56,51,32,97,53,56,53,41,0,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,49),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,117,110,100,101,102,105,110,101,100,32,115,121,109,53,55,51,32,109,111,100,53,55,52,32,119,104,101,114,101,53,55,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,54),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,53,57,50,32,101,120,112,108,105,115,116,53,57,51,32,46,32,116,109,112,53,57,49,53,57,52,41,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,49,49,32,103,54,49,56,54,51,50,41,0,0,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,109,97,114,107,45,105,109,112,111,114,116,101,100,45,115,121,109,98,111,108,115,32,115,101,54,48,56,41,0,0,0,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,115,101,54,57,54,41,0,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,17),40,109,101,114,103,101,45,115,101,32,115,101,115,54,57,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,17),40,103,55,56,57,32,115,101,120,112,111,114,116,56,48,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,115,100,56,50,52,41,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,55,56,51,32,103,55,57,53,56,49,55,41,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,55,53,48,32,103,55,54,50,55,55,53,41,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,55,50,52,32,103,55,51,54,55,52,50,41,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,43),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,55,48,55,41,0,0,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,14),40,103,57,52,50,32,115,101,120,112,57,53,49,41,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,14),40,103,57,54,51,32,105,101,120,112,57,55,50,41,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,14),40,103,57,56,52,32,110,101,120,112,57,57,51,41,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,57,56,51,32,103,57,57,48,57,57,56,41,0,0,0,0,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,57,54,50,32,103,57,54,57,57,55,55,41,0,0,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,26),40,102,111,114,45,101,97,99,104,45,108,111,111,112,57,52,49,32,103,57,52,56,57,53,54,41,0,0,0,0,0,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,57,49,50,32,103,57,50,52,57,51,49,41,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,56,56,52,32,103,56,57,54,57,48,51,41,0,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,21),40,109,97,112,45,108,111,111,112,56,53,54,32,103,56,54,56,56,55,53,41,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,88),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,56,51,57,32,105,101,120,112,111,114,116,115,56,52,48,32,118,101,120,112,111,114,116,115,56,52,49,32,115,101,120,112,111,114,116,115,56,52,50,32,46,32,116,109,112,56,51,56,56,52,51,41}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,112,114,105,109,105,116,105,118,101,45,97,108,105,97,115,32,115,121,109,49,48,49,48,41,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,14),40,103,49,48,54,56,32,115,101,49,48,55,57,41,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,48,54,50,32,103,49,48,55,52,49,48,56,52,41}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,48,51,53,32,103,49,48,52,55,49,48,53,52,41}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,69),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,49,48,50,51,32,118,101,120,112,111,114,116,115,49,48,50,52,32,46,32,116,109,112,49,48,50,50,49,48,50,53,41,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,120,108,49,48,57,56,41,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,48),40,35,35,115,121,115,35,102,105,110,100,45,101,120,112,111,114,116,32,115,121,109,49,48,57,51,32,109,111,100,49,48,57,52,32,105,110,100,105,114,101,99,116,49,48,57,53,41}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,13),40,103,49,50,50,56,32,97,49,50,51,55,41,0,0,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,50,50,55,32,103,49,50,51,52,49,50,52,49,41,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,15),40,103,49,49,57,55,32,115,121,109,49,50,48,54,41,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,49,57,54,32,103,49,50,48,51,49,50,48,57,41,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,13),40,103,49,49,56,49,32,117,49,49,57,48,41,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,13),40,103,49,50,57,54,32,109,49,51,48,53,41,0,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,50,57,53,32,103,49,51,48,50,49,51,49,49,41,0,0,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,50,54,48,32,103,49,50,55,50,49,50,56,54,41}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,19),40,119,97,114,110,32,109,115,103,54,53,50,32,105,100,54,53,51,41,0,0,0,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,11),40,103,54,54,57,32,97,54,55,49,41,0,0,0,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,11),40,103,54,55,54,32,97,54,55,56,41,0,0,0,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,19),40,108,111,111,112,50,32,105,101,120,112,111,114,116,115,54,54,49,41,0,0,0,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,101,120,112,111,114,116,115,54,53,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,49,56,48,32,103,49,49,56,55,49,50,53,51,41,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,120,108,49,49,54,49,41,0,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,109,101,49,49,53,51,41,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,49,50,54,32,103,49,49,51,56,49,49,52,53,41}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,31),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,49,49,49,55,41,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,7),40,97,54,48,53,53,41,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,7),40,97,54,49,49,55,41,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,7),40,97,54,49,50,50,41,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,7),40,97,54,49,50,56,41,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,7),40,97,54,49,49,49,41,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,7),40,97,54,49,51,51,41,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,52),40,35,35,115,121,115,35,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,109,110,97,109,101,49,51,50,55,32,108,111,99,49,51,50,56,41,0,0,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,17),40,114,101,115,111,108,118,101,32,115,121,109,49,52,50,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,13),40,116,111,115,116,114,32,120,49,52,51,55,41,0,0,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,22),40,105,109,112,111,114,116,45,110,97,109,101,32,115,112,101,99,49,52,52,50,41,0,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,7),40,97,54,51,51,55,41,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,14),40,103,49,53,50,52,32,105,100,49,53,51,51,41,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,53,50,51,32,103,49,53,51,48,49,53,51,53,41,0,0,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,13),40,103,49,53,52,52,32,97,49,53,52,54,41,0,0,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,13),40,103,49,53,52,56,32,97,49,53,53,48,41,0,0,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,38),40,108,111,111,112,32,105,100,115,49,53,49,50,32,118,49,53,49,51,32,115,49,53,49,52,32,109,105,115,115,105,110,103,49,53,49,53,41,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,52,56,55,32,103,49,52,57,57,49,53,48,53,41}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,14),40,103,49,54,48,49,32,105,100,49,54,49,48,41,0,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,54,48,48,32,103,49,54,48,55,49,54,49,50,41,0,0,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,14),40,103,49,54,50,49,32,105,100,49,54,50,51,41,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,29),40,108,111,111,112,32,105,109,112,115,49,53,57,48,32,115,49,53,57,49,32,105,100,115,49,53,57,50,41,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,14),40,103,49,54,50,54,32,105,100,49,54,50,56,41,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,29),40,108,111,111,112,32,105,109,112,118,49,53,56,49,32,118,49,53,56,50,32,105,100,115,49,53,56,51,41,0,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,53,53,54,32,103,49,53,54,56,49,53,55,52,41}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,14),40,103,49,54,53,50,32,105,100,49,54,54,49,41,0,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,54,53,49,32,103,49,54,53,56,49,54,56,57,41,0,0,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,54,54,52,32,103,49,54,55,54,49,54,56,50,41}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,13),40,103,49,54,57,56,32,97,49,55,48,48,41,0,0,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,29),40,108,111,111,112,32,105,109,112,115,49,54,52,49,32,115,49,54,52,50,32,105,100,115,49,54,52,51,41,0,0,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,13),40,103,49,55,48,51,32,97,49,55,48,53,41,0,0,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,29),40,108,111,111,112,32,105,109,112,118,49,54,51,50,32,118,49,54,51,51,32,105,100,115,49,54,51,52,41,0,0,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,13),40,114,101,110,32,105,109,112,49,55,49,48,41,0,0,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,55,52,50,32,103,49,55,53,52,49,55,54,48,41}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,55,49,54,32,103,49,55,50,56,49,55,51,52,41}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,92),40,97,54,51,52,55,32,110,97,109,101,49,52,54,48,49,52,54,49,49,52,55,48,32,102,111,114,109,49,52,54,50,49,52,54,51,49,52,55,49,32,105,109,112,118,49,52,54,52,49,52,54,53,49,52,55,50,32,105,109,112,115,49,52,54,54,49,52,54,55,49,52,55,51,32,105,109,112,105,49,52,54,56,49,52,54,57,49,52,55,52,41,0,0,0,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,22),40,105,109,112,111,114,116,45,115,112,101,99,32,115,112,101,99,49,52,52,56,41,0,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,7),40,97,55,49,51,52,41,0}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,15),40,103,49,56,49,49,32,105,109,112,49,56,50,48,41,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,15),40,103,49,56,51,50,32,105,109,112,49,56,52,49,41,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,56,56,49,32,103,49,56,57,51,49,56,57,57,41}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,56,53,53,32,103,49,56,54,55,49,56,55,51,41}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,57,51,53,32,103,49,57,52,55,49,57,53,51,41}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,49,57,48,57,32,103,49,57,50,49,49,57,50,55,41}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,56,51,49,32,103,49,56,51,56,49,56,52,52,41,0,0,0}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,56,49,48,32,103,49,56,49,55,49,56,50,53,41,0,0,0}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,89),40,97,55,49,52,48,32,110,97,109,101,49,55,56,50,49,55,56,51,49,55,57,50,32,102,111,114,109,49,55,56,52,49,55,56,53,49,55,57,51,32,118,115,118,49,55,56,54,49,55,56,55,49,55,57,52,32,118,115,115,49,55,56,56,49,55,56,57,49,55,57,53,32,118,115,105,49,55,57,48,49,55,57,49,49,55,57,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,16),40,103,49,55,55,50,32,115,112,101,99,49,55,56,49,41}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,55,55,49,32,103,49,55,55,56,49,57,55,52,41,0,0,0}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,97),40,35,35,115,121,115,35,101,120,112,97,110,100,45,105,109,112,111,114,116,32,120,49,52,49,49,32,114,49,52,49,50,32,99,49,52,49,51,32,105,109,112,111,114,116,45,101,110,118,49,52,49,52,32,109,97,99,114,111,45,101,110,118,49,52,49,53,32,109,101,116,97,63,49,52,49,54,32,114,101,101,120,112,63,49,52,49,55,32,108,111,99,49,52,49,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,109,111,100,117,108,101,45,114,101,110,97,109,101,32,115,121,109,49,57,56,54,32,112,114,101,102,105,120,49,57,56,55,41}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,15),40,103,50,48,48,53,32,109,111,100,50,48,48,55,41,0}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,17),40,109,114,101,110,97,109,101,32,115,121,109,49,57,57,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,13),40,103,50,48,51,51,32,97,50,48,51,53,41,0,0,0}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,54),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,49,57,56,57,32,97,115,115,105,103,110,49,57,57,48,32,119,104,101,114,101,49,57,57,49,41,0,0}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,44),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,105,110,116,101,114,102,97,99,101,32,110,97,109,101,50,48,52,57,32,101,120,112,115,50,48,53,48,41,0,0,0,0}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,14),40,101,114,114,32,97,114,103,115,50,48,54,53,41,0,0}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,16),40,105,102,97,99,101,32,110,97,109,101,50,48,54,54,41}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,50,32,108,115,116,50,48,56,55,41,0}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,120,112,115,50,48,55,53,41,0,0}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,41),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,50,48,53,55,32,108,111,99,50,48,53,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,62),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,50,48,57,55,32,102,97,114,103,115,50,48,57,56,32,102,101,120,112,115,50,48,57,57,32,98,111,100,121,50,49,48,48,41,0,0}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,14),40,101,114,114,32,97,114,103,115,50,49,49,54,41,0,0}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,49,50,54,32,103,50,49,51,56,50,49,52,52,41}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,6),40,109,101,114,114,41,0,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,50,32,102,97,115,50,49,53,56,41,0}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,97,115,50,49,53,49,32,102,97,115,50,49,53,50,41,0,0,0}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,55),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,50,49,48,55,32,102,110,97,109,101,50,49,48,56,32,97,114,103,115,50,49,48,57,41,0}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,15),40,103,50,49,56,55,32,101,120,112,50,49,57,54,41,0}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,24),40,109,97,112,45,108,111,111,112,50,50,48,56,32,103,50,50,50,48,50,50,50,55,41}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,29),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,49,56,54,32,103,50,49,57,51,50,50,48,50,41,0,0,0}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,78),40,35,35,115,121,115,35,109,97,116,99,104,45,102,117,110,99,116,111,114,45,97,114,103,117,109,101,110,116,32,97,108,105,97,115,50,49,55,55,32,110,97,109,101,50,49,55,56,32,109,110,97,109,101,50,49,55,57,32,101,120,112,115,50,49,56,48,32,102,110,97,109,101,50,49,56,49,41,0,0}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,44),40,109,111,100,117,108,101,45,101,110,118,105,114,111,110,109,101,110,116,32,109,110,97,109,101,50,50,52,52,32,46,32,116,109,112,50,50,52,51,50,50,52,53,41,0,0,0,0}; static C_char C_TLS li145[] 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_3753) static void C_ccall f_3753(C_word c,C_word *av) C_noret; C_noret_decl(f_3750) static void C_ccall f_3750(C_word c,C_word *av) 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_5665) static void C_fcall f_5665(C_word t0,C_word t1,C_word t2) 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_5661) static void C_ccall f_5661(C_word c,C_word *av) C_noret; C_noret_decl(f_6613) static void C_fcall f_6613(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8021) static void C_fcall f_8021(C_word t0,C_word t1,C_word t2) 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_3973) static void C_fcall f_3973(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8201) static void C_fcall f_8201(C_word t0,C_word t1,C_word t2) 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_7504) static void C_fcall f_7504(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6811) static void C_fcall f_6811(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8081) static void C_fcall f_8081(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5292) static void C_fcall f_5292(C_word t0,C_word t1,C_word t2) 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_8093) static void C_fcall f_8093(C_word t0,C_word t1,C_word t2) 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_5283) static void C_ccall f_5283(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_5482) static void C_ccall f_5482(C_word c,C_word *av) C_noret; C_noret_decl(f_7537) static void C_ccall f_7537(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_5476) static void C_ccall f_5476(C_word c,C_word *av) C_noret; C_noret_decl(f_7987) static void C_ccall f_7987(C_word c,C_word *av) C_noret; C_noret_decl(f_5473) static void C_ccall f_5473(C_word c,C_word *av) C_noret; C_noret_decl(f_5490) static void C_ccall f_5490(C_word c,C_word *av) C_noret; C_noret_decl(f_7980) static void C_fcall f_7980(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3793) static void C_ccall f_3793(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_5497) static void C_ccall f_5497(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_8019) static void C_ccall f_8019(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_5345) static void C_fcall f_5345(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5343) static void C_fcall f_5343(C_word t0,C_word t1) 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_3703) static void C_ccall f_3703(C_word c,C_word *av) C_noret; C_noret_decl(f_8347) static void C_ccall f_8347(C_word c,C_word *av) C_noret; C_noret_decl(f_8359) static void C_ccall f_8359(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_3718) static void C_ccall f_3718(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_3714) static void C_ccall f_3714(C_word c,C_word *av) C_noret; C_noret_decl(f_5520) static void C_fcall f_5520(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8353) static void C_ccall f_8353(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_8356) static void C_ccall f_8356(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_7743) static void C_ccall f_7743(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_5516) static void C_ccall f_5516(C_word c,C_word *av) C_noret; C_noret_decl(f_3596) static void C_ccall f_3596(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_5509) static void C_ccall f_5509(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_8332) static void C_ccall f_8332(C_word c,C_word *av) C_noret; C_noret_decl(f_7760) static void C_fcall f_7760(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f8860) static void C_ccall f8860(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_5125) static void C_ccall f_5125(C_word c,C_word *av) C_noret; C_noret_decl(f8899) static void C_ccall f8899(C_word c,C_word *av) C_noret; C_noret_decl(f_4755) static void C_ccall f_4755(C_word c,C_word *av) C_noret; C_noret_decl(f_8313) static void C_ccall f_8313(C_word c,C_word *av) C_noret; C_noret_decl(f8886) static void C_ccall f8886(C_word c,C_word *av) C_noret; C_noret_decl(f_3373) static void C_fcall f_3373(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8362) static void C_ccall f_8362(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_8365) static void C_ccall f_8365(C_word c,C_word *av) C_noret; C_noret_decl(f_5100) static void C_fcall f_5100(C_word t0,C_word t1,C_word t2) 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_4730) static void C_ccall f_4730(C_word c,C_word *av) C_noret; C_noret_decl(f_7833) static void C_ccall f_7833(C_word c,C_word *av) C_noret; C_noret_decl(f_5539) static void C_fcall f_5539(C_word t0,C_word t1,C_word t2) 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_4271) static void C_fcall f_4271(C_word t0,C_word t1,C_word t2) 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_5159) static void C_ccall f_5159(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_4926) static void C_ccall f_4926(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_4929) static void C_ccall f_4929(C_word c,C_word *av) C_noret; C_noret_decl(f_8322) static void C_fcall f_8322(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5140) static void C_ccall f_5140(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_7801) static void C_fcall f_7801(C_word t0,C_word t1,C_word t2) 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_3400) static void C_ccall f_3400(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_7430) static void C_fcall f_7430(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_6562) static void C_fcall f_6562(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6554) static void C_fcall f_6554(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_3256) static void C_ccall f_3256(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_4955) static void C_fcall f_4955(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6487) static void C_fcall f_6487(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7407) static void C_ccall f_7407(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_3265) static void C_ccall f_3265(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_4945) static void C_ccall f_4945(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_4490) static void C_fcall f_4490(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4164) static void C_ccall f_4164(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_3238) static void C_ccall f_3238(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_7464) static void C_fcall f_7464(C_word t0,C_word t1,C_word t2) 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_4789) static void C_ccall f_4789(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_4900) static void C_ccall f_4900(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_6512) static void C_ccall f_6512(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_6338) static void C_ccall f_6338(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_4913) static void C_ccall f_4913(C_word c,C_word *av) 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_7158) static void C_fcall f_7158(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6325) static void C_ccall f_6325(C_word c,C_word *av) C_noret; C_noret_decl(f_6321) static void C_ccall f_6321(C_word c,C_word *av) C_noret; C_noret_decl(f_4147) static void C_fcall f_4147(C_word t0,C_word t1) 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_4901) static void C_fcall f_4901(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4125) static void C_ccall f_4125(C_word c,C_word *av) C_noret; C_noret_decl(f_4139) static void C_fcall f_4139(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6355) static void C_ccall f_6355(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_4978) static void C_fcall f_4978(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7421) static void C_ccall f_7421(C_word c,C_word *av) C_noret; C_noret_decl(f_3463) static void C_ccall f_3463(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_3466) static void C_ccall f_3466(C_word c,C_word *av) C_noret; C_noret_decl(f_3469) static void C_fcall f_3469(C_word t0,C_word t1) C_noret; C_noret_decl(f_6282) static void C_fcall f_6282(C_word t0,C_word t1,C_word t2) 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_4488) static void C_ccall f_4488(C_word c,C_word *av) C_noret; C_noret_decl(f_6348) static void C_ccall f_6348(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_7125) static void C_ccall f_7125(C_word c,C_word *av) C_noret; C_noret_decl(f_7129) static void C_fcall f_7129(C_word t0,C_word t1,C_word t2) 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_4102) static void C_fcall f_4102(C_word t0,C_word t1,C_word t2) 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_7196) static void C_ccall f_7196(C_word c,C_word *av) C_noret; C_noret_decl(f_4339) static void C_fcall f_4339(C_word t0,C_word t1) C_noret; C_noret_decl(f_7141) static void C_ccall f_7141(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_6310) static void C_fcall f_6310(C_word t0,C_word t1) C_noret; C_noret_decl(f_4331) static void C_fcall f_4331(C_word t0,C_word t1) 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_6144) static void C_ccall f_6144(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_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_7135) static void C_ccall f_7135(C_word c,C_word *av) C_noret; C_noret_decl(f_6301) static void C_fcall f_6301(C_word t0,C_word t1) C_noret; C_noret_decl(f_6097) static void C_ccall f_6097(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_4700) static void C_ccall f_4700(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_6170) static void C_ccall f_6170(C_word c,C_word *av) C_noret; C_noret_decl(f_6094) static void C_ccall f_6094(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_6088) static void C_ccall f_6088(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_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_7651) static void C_ccall f_7651(C_word c,C_word *av) C_noret; C_noret_decl(f_6542) static void C_fcall f_6542(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_6195) static void C_ccall f_6195(C_word c,C_word *av) 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_7592) static void C_fcall f_7592(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7590) static void C_ccall f_7590(C_word c,C_word *av) C_noret; C_noret_decl(f_7633) static void C_ccall f_7633(C_word c,C_word *av) 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_6134) static void C_ccall f_6134(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_6123) static void C_ccall f_6123(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_7615) static void C_ccall f_7615(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_6153) static void C_ccall f_6153(C_word c,C_word *av) C_noret; C_noret_decl(f_6156) static void C_ccall f_6156(C_word c,C_word *av) C_noret; C_noret_decl(f_6150) static void C_ccall f_6150(C_word c,C_word *av) C_noret; C_noret_decl(f_6159) static void C_ccall f_6159(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_6971) static void C_ccall f_6971(C_word c,C_word *av) 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_6977) static void C_ccall f_6977(C_word c,C_word *av) C_noret; C_noret_decl(f_6963) static void C_ccall f_6963(C_word c,C_word *av) C_noret; C_noret_decl(f_7623) static void C_ccall f_7623(C_word c,C_word *av) 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_4343) static void C_ccall f_4343(C_word c,C_word *av) C_noret; C_noret_decl(f_4347) static void C_ccall f_4347(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_7602) static void C_ccall f_7602(C_word c,C_word *av) C_noret; C_noret_decl(f_6118) static void C_ccall f_6118(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_5728) static void C_fcall f_5728(C_word t0,C_word t1,C_word t2) 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_5796) static void C_fcall f_5796(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6788) static void C_fcall f_6788(C_word t0,C_word t1,C_word t2) 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_6955) static void C_ccall f_6955(C_word c,C_word *av) C_noret; C_noret_decl(f_6958) static void C_ccall f_6958(C_word c,C_word *av) C_noret; C_noret_decl(f_6731) static void C_ccall f_6731(C_word c,C_word *av) C_noret; C_noret_decl(f_6736) static void C_fcall f_6736(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_6728) static void C_ccall f_6728(C_word c,C_word *av) C_noret; C_noret_decl(f_6756) static void C_fcall f_6756(C_word t0,C_word t1,C_word t2) 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_5753) static void C_ccall f_5753(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_5759) static void C_fcall f_5759(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5990) static void C_fcall f_5990(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_word t4) 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_5439) static void C_ccall f_5439(C_word c,C_word *av) C_noret; C_noret_decl(f_7704) static void C_fcall f_7704(C_word t0,C_word t1,C_word t2) 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_6981) static void C_ccall f_6981(C_word c,C_word *av) C_noret; C_noret_decl(f_6985) static void C_ccall f_6985(C_word c,C_word *av) C_noret; C_noret_decl(f_5977) static void C_ccall f_5977(C_word c,C_word *av) C_noret; C_noret_decl(f_5469) static void C_ccall f_5469(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_6715) static void C_ccall f_6715(C_word c,C_word *av) C_noret; C_noret_decl(f_5455) static void C_fcall f_5455(C_word t0,C_word t1,C_word t2) 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_5714) static void C_ccall f_5714(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_5718) static void C_ccall f_5718(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_7754) static void C_fcall f_7754(C_word t0,C_word t1,C_word t2) 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_3826) static void C_fcall f_3826(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3833) static void C_fcall f_3833(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(f8914) static void C_ccall f8914(C_word c,C_word *av) C_noret; C_noret_decl(f_8119) static void C_ccall f_8119(C_word c,C_word *av) C_noret; C_noret_decl(f_8115) static void C_ccall f_8115(C_word c,C_word *av) C_noret; C_noret_decl(f_4579) static void C_fcall f_4579(C_word t0,C_word t1,C_word t2) 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_6775) static void C_ccall f_6775(C_word c,C_word *av) C_noret; C_noret_decl(f_6919) static void C_ccall f_6919(C_word c,C_word *av) C_noret; C_noret_decl(f_6903) static void C_fcall f_6903(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8167) static void C_ccall f_8167(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_8178) static void C_ccall f_8178(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_5968) static void C_ccall f_5968(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_3667) static void C_ccall f_3667(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_5955) static void C_fcall f_5955(C_word t0,C_word t1,C_word t2) 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_3670) static void C_ccall f_3670(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_5373) static void C_fcall f_5373(C_word t0,C_word t1) C_noret; C_noret_decl(f_4448) static void C_fcall f_4448(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_3652) static void C_ccall f_3652(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_3655) static void C_ccall f_3655(C_word c,C_word *av) C_noret; C_noret_decl(f_3658) static void C_ccall f_3658(C_word c,C_word *av) C_noret; C_noret_decl(f_5066) static void C_fcall f_5066(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7239) static void C_ccall f_7239(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_3628) static void C_ccall f_3628(C_word c,C_word *av) C_noret; C_noret_decl(f_5001) static void C_fcall f_5001(C_word t0,C_word t1,C_word t2) 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_5448) static void C_ccall f_5448(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_8374) static void C_ccall f_8374(C_word c,C_word *av) C_noret; C_noret_decl(f_3819) static void C_ccall f_3819(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_5032) static void C_fcall f_5032(C_word t0,C_word t1,C_word t2) 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_5584) static void C_fcall f_5584(C_word t0,C_word t1,C_word t2) 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_5234) static void C_fcall f_5234(C_word t0,C_word t1,C_word t2) 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_5571) static void C_ccall f_5571(C_word c,C_word *av) C_noret; C_noret_decl(f_5572) static void C_fcall f_5572(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7282) static void C_ccall f_7282(C_word c,C_word *av) C_noret; C_noret_decl(f_7289) static void C_ccall f_7289(C_word c,C_word *av) C_noret; C_noret_decl(f_5229) static void C_ccall f_5229(C_word c,C_word *av) C_noret; C_noret_decl(f_5223) static void C_ccall f_5223(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_4676) static void C_ccall f_4676(C_word c,C_word *av) C_noret; C_noret_decl(f_5026) static void C_ccall f_5026(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_5258) static void C_fcall f_5258(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7670) static void C_ccall f_7670(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_7251) static void C_ccall f_7251(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_7245) static void C_ccall f_7245(C_word c,C_word *av) C_noret; C_noret_decl(f_7248) static void C_fcall f_7248(C_word t0,C_word t1) C_noret; C_noret_decl(f_5011) static void C_ccall f_5011(C_word c,C_word *av) C_noret; C_noret_decl(f_4630) static void C_fcall f_4630(C_word t0,C_word t1,C_word t2) 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_3534) static C_word C_fcall f_3534(C_word *a,C_word t0,C_word t1); 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_4837) static void C_ccall f_4837(C_word c,C_word *av) C_noret; C_noret_decl(f_3548) static void C_ccall f_3548(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_7202) static void C_ccall f_7202(C_word c,C_word *av) C_noret; C_noret_decl(f_7203) static void C_fcall f_7203(C_word t0,C_word t1,C_word t2) 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_3491) static void C_fcall f_3491(C_word t0,C_word t1,C_word t2) 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_7270) static void C_ccall f_7270(C_word c,C_word *av) C_noret; C_noret_decl(f_7279) static void C_ccall f_7279(C_word c,C_word *av) C_noret; C_noret_decl(f_3526) static C_word C_fcall f_3526(C_word *a,C_word t0,C_word t1); C_noret_decl(f_3525) static void C_ccall f_3525(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_3282) static void C_ccall f_3282(C_word c,C_word *av) C_noret; C_noret_decl(f_7266) static void C_ccall f_7266(C_word c,C_word *av) C_noret; C_noret_decl(f_7262) static void C_ccall f_7262(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_3478) static void C_ccall f_3478(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(C_modules_toplevel) C_externexport void C_ccall C_modules_toplevel(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_3507) static void C_ccall f_3507(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_3365) static void C_fcall f_3365(C_word t0,C_word t1,C_word t2,C_word t3) 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_4840) static void C_ccall f_4840(C_word c,C_word *av) C_noret; C_noret_decl(f_4841) static void C_fcall f_4841(C_word t0,C_word t1,C_word t2) 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_3295) static void C_ccall f_3295(C_word c,C_word *av) C_noret; C_noret_decl(f_3292) static void C_ccall f_3292(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_3605) static void C_ccall f_3605(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_3325) static void C_fcall f_3325(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3323) static void C_ccall f_3323(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_3273) static void C_ccall f_3273(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_5196) static void C_ccall f_5196(C_word c,C_word *av) C_noret; C_noret_decl(f_6585) static void C_fcall f_6585(C_word t0,C_word t1,C_word t2) 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_5188) static void C_ccall f_5188(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_3319) static void C_ccall f_3319(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_4867) static void C_fcall f_4867(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4866) static void C_ccall f_4866(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_3558) static void C_ccall f_3558(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_7914) static void C_ccall f_7914(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_3568) static void C_fcall f_3568(C_word t0,C_word t1,C_word t2) 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_5858) static void C_ccall f_5858(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_word t2) C_noret; C_noret_decl(f_5870) static void C_fcall f_5870(C_word t0,C_word t1) C_noret; C_noret_decl(f_4604) static void C_fcall f_4604(C_word t0,C_word t1) 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_6372) static void C_fcall f_6372(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_7956) static void C_ccall f_7956(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_5867) static void C_ccall f_5867(C_word c,C_word *av) C_noret; C_noret_decl(f_7900) static void C_fcall f_7900(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7077) static void C_ccall f_7077(C_word c,C_word *av) C_noret; C_noret_decl(f_7972) static void C_ccall f_7972(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_4075) static void C_fcall f_4075(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6390) static void C_ccall f_6390(C_word c,C_word *av) C_noret; C_noret_decl(f_6403) static void C_fcall f_6403(C_word t0,C_word t1,C_word t2) 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_6380) static void C_fcall f_6380(C_word t0,C_word t1,C_word t2) 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_7052) static void C_fcall f_7052(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5823) static void C_fcall f_5823(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4391) static void C_fcall f_4391(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7997) static void C_fcall f_7997(C_word t0,C_word t1) C_noret; C_noret_decl(f_4052) static void C_fcall f_4052(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6214) static void C_fcall f_6214(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7043) static void C_ccall f_7043(C_word c,C_word *av) C_noret; C_noret_decl(f_5854) static void C_fcall f_5854(C_word t0,C_word t1) 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_4375) static void C_fcall f_4375(C_word t0,C_word t1) 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_6181) static void C_ccall f_6181(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_6184) static void C_ccall f_6184(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_8266) static void C_ccall f_8266(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_4260) static void C_ccall f_4260(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_4256) static void C_fcall f_4256(C_word t0,C_word t1) C_noret; C_noret_decl(f_6054) static void C_ccall f_6054(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_6050) static void C_ccall f_6050(C_word c,C_word *av) C_noret; C_noret_decl(f_5882) static void C_fcall f_5882(C_word t0,C_word t1) C_noret; C_noret_decl(f_5898) static void C_ccall f_5898(C_word c,C_word *av) C_noret; C_noret_decl(f_8288) static void C_fcall f_8288(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8286) static void C_ccall f_8286(C_word c,C_word *av) C_noret; C_noret_decl(f_8280) static void C_ccall f_8280(C_word c,C_word *av) C_noret; C_noret_decl(f_4240) static void C_ccall f_4240(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_6047) static void C_ccall f_6047(C_word c,C_word *av) C_noret; C_noret_decl(f_8214) static void C_fcall f_8214(C_word t0,C_word t1) C_noret; C_noret_decl(f_6227) static void C_ccall f_6227(C_word c,C_word *av) C_noret; C_noret_decl(f_6073) static void C_ccall f_6073(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_6431) static void C_fcall f_6431(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6066) static void C_ccall f_6066(C_word c,C_word *av) C_noret; C_noret_decl(f_6063) static void C_ccall f_6063(C_word c,C_word *av) C_noret; C_noret_decl(f_6060) static void C_ccall f_6060(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_6069) static void C_ccall f_6069(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_5699) static void C_ccall f_5699(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_7360) static void C_fcall f_7360(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8254) static void C_ccall f_8254(C_word c,C_word *av) C_noret; C_noret_decl(f_8258) static void C_ccall f_8258(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_5696) static void C_ccall f_5696(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_6032) static void C_ccall f_6032(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_6035) static void C_ccall f_6035(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_6850) static void C_fcall f_6850(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6257) static void C_fcall f_6257(C_word t0,C_word t1) 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_6029) static void C_ccall f_6029(C_word c,C_word *av) C_noret; C_noret_decl(f_7306) static void C_ccall f_7306(C_word c,C_word *av) C_noret; C_noret_decl(f_5658) static void C_ccall f_5658(C_word c,C_word *av) C_noret; C_noret_decl(f_7326) static void C_fcall f_7326(C_word t0,C_word t1,C_word t2) 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_5806) static void C_ccall f_5806(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_6866) static void C_ccall f_6866(C_word c,C_word *av) C_noret; C_noret_decl(f_7317) static void C_ccall f_7317(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_3937) static void C_fcall f_3937(C_word t0,C_word t1) 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_6690) static void C_fcall f_6690(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5617) static void C_ccall f_5617(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_5614) static void C_ccall f_5614(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_7018) static void C_fcall f_7018(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_7006) static void C_ccall f_7006(C_word c,C_word *av) C_noret; C_noret_decl(f_6625) static void C_ccall f_6625(C_word c,C_word *av) 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_6654) static void C_fcall f_6654(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7873) static void C_fcall f_7873(C_word t0,C_word t1) 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_7859) static void C_ccall f_7859(C_word c,C_word *av) C_noret; C_noret_decl(f_3928) static void C_ccall f_3928(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_3744) static void C_ccall f_3744(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(trf_5665) static void C_ccall trf_5665(C_word c,C_word *av) C_noret; static void C_ccall trf_5665(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5665(t0,t1,t2);} C_noret_decl(trf_6613) static void C_ccall trf_6613(C_word c,C_word *av) C_noret; static void C_ccall trf_6613(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6613(t0,t1,t2);} C_noret_decl(trf_8021) static void C_ccall trf_8021(C_word c,C_word *av) C_noret; static void C_ccall trf_8021(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8021(t0,t1,t2);} C_noret_decl(trf_3973) static void C_ccall trf_3973(C_word c,C_word *av) C_noret; static void C_ccall trf_3973(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3973(t0,t1,t2);} C_noret_decl(trf_8201) static void C_ccall trf_8201(C_word c,C_word *av) C_noret; static void C_ccall trf_8201(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8201(t0,t1,t2);} C_noret_decl(trf_7504) static void C_ccall trf_7504(C_word c,C_word *av) C_noret; static void C_ccall trf_7504(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7504(t0,t1,t2);} C_noret_decl(trf_6811) static void C_ccall trf_6811(C_word c,C_word *av) C_noret; static void C_ccall trf_6811(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6811(t0,t1,t2);} C_noret_decl(trf_8081) static void C_ccall trf_8081(C_word c,C_word *av) C_noret; static void C_ccall trf_8081(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8081(t0,t1,t2,t3);} C_noret_decl(trf_5292) static void C_ccall trf_5292(C_word c,C_word *av) C_noret; static void C_ccall trf_5292(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5292(t0,t1,t2);} 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_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_7980) static void C_ccall trf_7980(C_word c,C_word *av) C_noret; static void C_ccall trf_7980(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7980(t0,t1,t2);} C_noret_decl(trf_5345) static void C_ccall trf_5345(C_word c,C_word *av) C_noret; static void C_ccall trf_5345(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5345(t0,t1,t2);} C_noret_decl(trf_5343) static void C_ccall trf_5343(C_word c,C_word *av) C_noret; static void C_ccall trf_5343(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5343(t0,t1);} C_noret_decl(trf_5520) static void C_ccall trf_5520(C_word c,C_word *av) C_noret; static void C_ccall trf_5520(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5520(t0,t1,t2);} C_noret_decl(trf_7760) static void C_ccall trf_7760(C_word c,C_word *av) C_noret; static void C_ccall trf_7760(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7760(t0,t1,t2);} C_noret_decl(trf_3373) static void C_ccall trf_3373(C_word c,C_word *av) C_noret; static void C_ccall trf_3373(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3373(t0,t1,t2);} C_noret_decl(trf_5100) static void C_ccall trf_5100(C_word c,C_word *av) C_noret; static void C_ccall trf_5100(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5100(t0,t1,t2);} C_noret_decl(trf_5539) static void C_ccall trf_5539(C_word c,C_word *av) C_noret; static void C_ccall trf_5539(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5539(t0,t1,t2);} C_noret_decl(trf_4271) static void C_ccall trf_4271(C_word c,C_word *av) C_noret; static void C_ccall trf_4271(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4271(t0,t1,t2);} C_noret_decl(trf_8322) static void C_ccall trf_8322(C_word c,C_word *av) C_noret; static void C_ccall trf_8322(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8322(t0,t1,t2);} C_noret_decl(trf_7801) static void C_ccall trf_7801(C_word c,C_word *av) C_noret; static void C_ccall trf_7801(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7801(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_7430(t0,t1,t2);} C_noret_decl(trf_6562) static void C_ccall trf_6562(C_word c,C_word *av) C_noret; static void C_ccall trf_6562(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6562(t0,t1,t2);} C_noret_decl(trf_6554) static void C_ccall trf_6554(C_word c,C_word *av) C_noret; static void C_ccall trf_6554(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_6554(t0,t1,t2,t3,t4);} C_noret_decl(trf_4955) static void C_ccall trf_4955(C_word c,C_word *av) C_noret; static void C_ccall trf_4955(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4955(t0,t1,t2);} C_noret_decl(trf_6487) static void C_ccall trf_6487(C_word c,C_word *av) C_noret; static void C_ccall trf_6487(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6487(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_4490(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_7464) static void C_ccall trf_7464(C_word c,C_word *av) C_noret; static void C_ccall trf_7464(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7464(t0,t1,t2);} C_noret_decl(trf_7158) static void C_ccall trf_7158(C_word c,C_word *av) C_noret; static void C_ccall trf_7158(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7158(t0,t1,t2);} C_noret_decl(trf_4147) static void C_ccall trf_4147(C_word c,C_word *av) C_noret; static void C_ccall trf_4147(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4147(t0,t1);} C_noret_decl(trf_4901) static void C_ccall trf_4901(C_word c,C_word *av) C_noret; static void C_ccall trf_4901(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4901(t0,t1,t2);} C_noret_decl(trf_4139) static void C_ccall trf_4139(C_word c,C_word *av) C_noret; static void C_ccall trf_4139(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4139(t0,t1,t2);} C_noret_decl(trf_4978) static void C_ccall trf_4978(C_word c,C_word *av) C_noret; static void C_ccall trf_4978(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4978(t0,t1,t2);} C_noret_decl(trf_3469) static void C_ccall trf_3469(C_word c,C_word *av) C_noret; static void C_ccall trf_3469(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3469(t0,t1);} C_noret_decl(trf_6282) static void C_ccall trf_6282(C_word c,C_word *av) C_noret; static void C_ccall trf_6282(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6282(t0,t1,t2);} C_noret_decl(trf_7129) static void C_ccall trf_7129(C_word c,C_word *av) C_noret; static void C_ccall trf_7129(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7129(t0,t1,t2);} C_noret_decl(trf_4102) static void C_ccall trf_4102(C_word c,C_word *av) C_noret; static void C_ccall trf_4102(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4102(t0,t1,t2);} C_noret_decl(trf_4339) static void C_ccall trf_4339(C_word c,C_word *av) C_noret; static void C_ccall trf_4339(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4339(t0,t1);} C_noret_decl(trf_6310) static void C_ccall trf_6310(C_word c,C_word *av) C_noret; static void C_ccall trf_6310(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6310(t0,t1);} C_noret_decl(trf_4331) static void C_ccall trf_4331(C_word c,C_word *av) C_noret; static void C_ccall trf_4331(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4331(t0,t1);} C_noret_decl(trf_6301) static void C_ccall trf_6301(C_word c,C_word *av) C_noret; static void C_ccall trf_6301(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6301(t0,t1);} C_noret_decl(trf_6542) static void C_ccall trf_6542(C_word c,C_word *av) C_noret; static void C_ccall trf_6542(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_6542(t0,t1,t2,t3,t4);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_7592(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_5728) static void C_ccall trf_5728(C_word c,C_word *av) C_noret; static void C_ccall trf_5728(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5728(t0,t1,t2);} C_noret_decl(trf_5796) static void C_ccall trf_5796(C_word c,C_word *av) C_noret; static void C_ccall trf_5796(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5796(t0,t1,t2);} C_noret_decl(trf_6788) static void C_ccall trf_6788(C_word c,C_word *av) C_noret; static void C_ccall trf_6788(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6788(t0,t1,t2);} C_noret_decl(trf_6736) static void C_ccall trf_6736(C_word c,C_word *av) C_noret; static void C_ccall trf_6736(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_6736(t0,t1,t2,t3,t4);} C_noret_decl(trf_6756) static void C_ccall trf_6756(C_word c,C_word *av) C_noret; static void C_ccall trf_6756(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6756(t0,t1,t2);} C_noret_decl(trf_5759) static void C_ccall trf_5759(C_word c,C_word *av) C_noret; static void C_ccall trf_5759(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5759(t0,t1,t2);} C_noret_decl(trf_5990) static void C_ccall trf_5990(C_word c,C_word *av) C_noret; static void C_ccall trf_5990(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5990(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[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_6748(t0,t1,t2,t3,t4);} C_noret_decl(trf_7704) static void C_ccall trf_7704(C_word c,C_word *av) C_noret; static void C_ccall trf_7704(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7704(t0,t1,t2);} C_noret_decl(trf_5455) static void C_ccall trf_5455(C_word c,C_word *av) C_noret; static void C_ccall trf_5455(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5455(t0,t1,t2);} C_noret_decl(trf_7754) static void C_ccall trf_7754(C_word c,C_word *av) C_noret; static void C_ccall trf_7754(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7754(t0,t1,t2);} 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[2]; C_word t1=av[1]; C_word t2=av[0]; f_3826(t0,t1,t2);} C_noret_decl(trf_3833) static void C_ccall trf_3833(C_word c,C_word *av) C_noret; static void C_ccall trf_3833(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3833(t0,t1);} C_noret_decl(trf_4579) static void C_ccall trf_4579(C_word c,C_word *av) C_noret; static void C_ccall trf_4579(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4579(t0,t1,t2);} C_noret_decl(trf_6903) static void C_ccall trf_6903(C_word c,C_word *av) C_noret; static void C_ccall trf_6903(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6903(t0,t1,t2);} C_noret_decl(trf_5955) static void C_ccall trf_5955(C_word c,C_word *av) C_noret; static void C_ccall trf_5955(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5955(t0,t1,t2);} C_noret_decl(trf_5373) static void C_ccall trf_5373(C_word c,C_word *av) C_noret; static void C_ccall trf_5373(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5373(t0,t1);} C_noret_decl(trf_4448) static void C_ccall trf_4448(C_word c,C_word *av) C_noret; static void C_ccall trf_4448(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4448(t0,t1,t2);} C_noret_decl(trf_5066) static void C_ccall trf_5066(C_word c,C_word *av) C_noret; static void C_ccall trf_5066(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5066(t0,t1,t2);} C_noret_decl(trf_5001) static void C_ccall trf_5001(C_word c,C_word *av) C_noret; static void C_ccall trf_5001(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5001(t0,t1,t2);} 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(trf_5584) static void C_ccall trf_5584(C_word c,C_word *av) C_noret; static void C_ccall trf_5584(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5584(t0,t1,t2);} C_noret_decl(trf_5234) static void C_ccall trf_5234(C_word c,C_word *av) C_noret; static void C_ccall trf_5234(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5234(t0,t1,t2);} C_noret_decl(trf_5572) static void C_ccall trf_5572(C_word c,C_word *av) C_noret; static void C_ccall trf_5572(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5572(t0,t1,t2);} C_noret_decl(trf_5258) static void C_ccall trf_5258(C_word c,C_word *av) C_noret; static void C_ccall trf_5258(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5258(t0,t1,t2);} C_noret_decl(trf_7248) static void C_ccall trf_7248(C_word c,C_word *av) C_noret; static void C_ccall trf_7248(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7248(t0,t1);} C_noret_decl(trf_4630) static void C_ccall trf_4630(C_word c,C_word *av) C_noret; static void C_ccall trf_4630(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4630(t0,t1,t2);} C_noret_decl(trf_7203) static void C_ccall trf_7203(C_word c,C_word *av) C_noret; static void C_ccall trf_7203(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7203(t0,t1,t2);} C_noret_decl(trf_3491) static void C_ccall trf_3491(C_word c,C_word *av) C_noret; static void C_ccall trf_3491(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3491(t0,t1,t2);} C_noret_decl(trf_3365) static void C_ccall trf_3365(C_word c,C_word *av) C_noret; static void C_ccall trf_3365(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3365(t0,t1,t2,t3);} C_noret_decl(trf_4841) static void C_ccall trf_4841(C_word c,C_word *av) C_noret; static void C_ccall trf_4841(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4841(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_6585) static void C_ccall trf_6585(C_word c,C_word *av) C_noret; static void C_ccall trf_6585(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6585(t0,t1,t2);} C_noret_decl(trf_4867) static void C_ccall trf_4867(C_word c,C_word *av) C_noret; static void C_ccall trf_4867(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4867(t0,t1,t2);} C_noret_decl(trf_3568) static void C_ccall trf_3568(C_word c,C_word *av) C_noret; static void C_ccall trf_3568(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3568(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[2]; C_word t1=av[1]; C_word t2=av[0]; f_6453(t0,t1,t2);} C_noret_decl(trf_5870) static void C_ccall trf_5870(C_word c,C_word *av) C_noret; static void C_ccall trf_5870(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5870(t0,t1);} C_noret_decl(trf_4604) static void C_ccall trf_4604(C_word c,C_word *av) C_noret; static void C_ccall trf_4604(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4604(t0,t1);} C_noret_decl(trf_6372) static void C_ccall trf_6372(C_word c,C_word *av) C_noret; static void C_ccall trf_6372(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_6372(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_7900) static void C_ccall trf_7900(C_word c,C_word *av) C_noret; static void C_ccall trf_7900(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7900(t0,t1,t2);} C_noret_decl(trf_4075) static void C_ccall trf_4075(C_word c,C_word *av) C_noret; static void C_ccall trf_4075(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4075(t0,t1,t2);} C_noret_decl(trf_6403) static void C_ccall trf_6403(C_word c,C_word *av) C_noret; static void C_ccall trf_6403(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6403(t0,t1,t2);} C_noret_decl(trf_6380) static void C_ccall trf_6380(C_word c,C_word *av) C_noret; static void C_ccall trf_6380(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6380(t0,t1,t2);} C_noret_decl(trf_7052) static void C_ccall trf_7052(C_word c,C_word *av) C_noret; static void C_ccall trf_7052(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7052(t0,t1,t2);} C_noret_decl(trf_5823) static void C_ccall trf_5823(C_word c,C_word *av) C_noret; static void C_ccall trf_5823(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5823(t0,t1,t2);} C_noret_decl(trf_4391) static void C_ccall trf_4391(C_word c,C_word *av) C_noret; static void C_ccall trf_4391(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4391(t0,t1,t2);} C_noret_decl(trf_7997) static void C_ccall trf_7997(C_word c,C_word *av) C_noret; static void C_ccall trf_7997(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7997(t0,t1);} C_noret_decl(trf_4052) static void C_ccall trf_4052(C_word c,C_word *av) C_noret; static void C_ccall trf_4052(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4052(t0,t1,t2,t3);} C_noret_decl(trf_6214) static void C_ccall trf_6214(C_word c,C_word *av) C_noret; static void C_ccall trf_6214(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6214(t0,t1,t2);} C_noret_decl(trf_5854) static void C_ccall trf_5854(C_word c,C_word *av) C_noret; static void C_ccall trf_5854(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5854(t0,t1);} C_noret_decl(trf_4375) static void C_ccall trf_4375(C_word c,C_word *av) C_noret; static void C_ccall trf_4375(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4375(t0,t1);} C_noret_decl(trf_4256) static void C_ccall trf_4256(C_word c,C_word *av) C_noret; static void C_ccall trf_4256(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4256(t0,t1);} C_noret_decl(trf_5882) static void C_ccall trf_5882(C_word c,C_word *av) C_noret; static void C_ccall trf_5882(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5882(t0,t1);} C_noret_decl(trf_8288) static void C_ccall trf_8288(C_word c,C_word *av) C_noret; static void C_ccall trf_8288(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8288(t0,t1,t2);} C_noret_decl(trf_8214) static void C_ccall trf_8214(C_word c,C_word *av) C_noret; static void C_ccall trf_8214(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8214(t0,t1);} 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_7360) static void C_ccall trf_7360(C_word c,C_word *av) C_noret; static void C_ccall trf_7360(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7360(t0,t1,t2);} C_noret_decl(trf_6850) static void C_ccall trf_6850(C_word c,C_word *av) C_noret; static void C_ccall trf_6850(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6850(t0,t1,t2);} C_noret_decl(trf_6257) static void C_ccall trf_6257(C_word c,C_word *av) C_noret; static void C_ccall trf_6257(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6257(t0,t1);} C_noret_decl(trf_7326) static void C_ccall trf_7326(C_word c,C_word *av) C_noret; static void C_ccall trf_7326(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7326(t0,t1,t2);} C_noret_decl(trf_3937) static void C_ccall trf_3937(C_word c,C_word *av) C_noret; static void C_ccall trf_3937(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3937(t0,t1);} C_noret_decl(trf_6690) static void C_ccall trf_6690(C_word c,C_word *av) C_noret; static void C_ccall trf_6690(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6690(t0,t1,t2);} C_noret_decl(trf_7018) static void C_ccall trf_7018(C_word c,C_word *av) C_noret; static void C_ccall trf_7018(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7018(t0,t1,t2);} C_noret_decl(trf_6654) static void C_ccall trf_6654(C_word c,C_word *av) C_noret; static void C_ccall trf_6654(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6654(t0,t1,t2);} C_noret_decl(trf_7873) static void C_ccall trf_7873(C_word c,C_word *av) C_noret; static void C_ccall trf_7873(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7873(t0,t1);} /* k3751 in k3748 in k3742 in k3739 in register-syntax-export in k2972 in k2968 */ 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 t3; 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_3753,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3759,a[2]=((C_word*)t0)[2],a[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[3],lf[39]); t6=C_i_block_ref(t4,C_fix(3)); t7=C_a_i_cons(&a,2,t3,t6); t8=((C_word*)t0)[4]; t9=C_i_check_structure_2(t8,lf[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t10=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t2; av2[2]=t8; av2[3]=C_fix(3); av2[4]=t7; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_3759(2,av2);}}} /* k3748 in k3742 in k3739 in register-syntax-export in k2972 in k2968 */ static void C_ccall f_3750(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3750,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3753,a[2]=((C_word*)t0)[2],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_3793,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* modules.scm:216: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[26]+1); av2[1]=t3; tp(2,av2);}} /* k3757 in k3751 in k3748 in k3742 in k3739 in register-syntax-export in k2972 in k2968 */ 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 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_3759,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[3],lf[44]); t5=C_i_block_ref(t3,C_fix(5)); 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[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t10=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t7; av2[2]=t8; av2[3]=C_fix(5); av2[4]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* g1296 in k5662 in k5659 in k5656 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_5665(C_word t0,C_word t1,C_word 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_5665,3,t0,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5669,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=C_i_cadr(t2); /* modules.scm:536: merge-se */ f_4256(t3,C_a_i_list(&a,2,t4,((C_word*)t0)[2]));} /* k5662 in k5659 in k5656 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 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_5664,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5665,a[2]=((C_word*)t0)[2],a[3]=((C_word)li60),tmp=(C_word)a,a+=4,tmp); t3=C_i_check_list_2(((C_word*)t0)[3],lf[30]); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5687,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_5728,a[2]=t6,a[3]=t2,a[4]=((C_word)li61),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_5728(t8,t4,((C_word*)t0)[3]);} /* k5659 in k5656 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_ccall f_5661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5661,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5664,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); /* modules.scm:533: ##sys#mark-imported-symbols */ t4=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* g1621 in loop in loop in k6535 in k6526 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6613(C_word t0,C_word 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_6613,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_6625,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:651: ##sys#delq */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[40]+1); av2[1]=t5; av2[2]=t6; av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* map-loop2126 in merr in k7985 in instantiate-functor in k2972 in k2968 */ static void C_fcall f_8021(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_8021,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_mutate2(((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);}}} /* ##sys#register-syntax-export in k2972 in k2968 */ 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=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_3731,5,av);} a=C_alloc(6); if(C_truep(t3)){ t5=t3; t6=C_i_check_structure_2(t5,lf[3],lf[10]); t7=C_i_block_ref(t5,C_fix(2)); t8=C_eqp(C_SCHEME_TRUE,t7); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3741,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; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t8; f_3741(2,av2);}} else{ /* modules.scm:211: ##sys#find-export */ t10=*((C_word*)lf[42]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; av2[2]=t2; av2[3]=t3; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* for-each-loop611 in mark-imported-symbols in k2972 in k2968 */ static void C_fcall f_3973(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_3973,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_3983,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_3937,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t8=C_i_cdr(t6); if(C_truep(C_i_symbolp(t8))){ t9=C_u_i_car(t6); t10=C_u_i_cdr(t6); t11=C_eqp(t9,t10); t12=t7; f_3937(t12,C_i_not(t11));} else{ t9=t7; f_3937(t9,C_SCHEME_FALSE);}} 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);}}} /* g2187 in k8192 in match-functor-argument in k2972 in k2968 */ static void C_fcall f_8201(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word 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_8201,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[3],lf[11]); t7=C_i_block_ref(((C_word*)t0)[2],C_fix(10)); t8=C_i_assq(t5,t7); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8214,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_8214(t10,t8);} else{ t10=C_i_check_structure_2(((C_word*)t0)[2],lf[3],lf[12]); t11=C_i_block_ref(((C_word*)t0)[2],C_fix(11)); t12=t9; f_8214(t12,C_i_assq(t5,t11));}} /* k4513 in map-loop783 in k4575 in k4345 in k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4515,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4490(t6,((C_word*)t0)[5],t5);} /* for-each-loop1831 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_7504(C_word t0,C_word t1,C_word 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_7504,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_7514,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:719: g1832 */ t5=((C_word*)t0)[3]; f_7203(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);}}} /* map-loop1664 in loop in loop in k6729 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6811(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_6811,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_mutate2(((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 k7985 in instantiate-functor in k2972 in k2968 */ static void C_fcall f_8081(C_word t0,C_word t1,C_word 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(9,0,6)))){ C_save_and_reclaim_args((void *)trf_8081,4,t0,t1,t2,t3);} a=C_alloc(9); 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_8093,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)li137),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_8093(t7,t1,t3);} else{ if(C_truep(C_i_nullp(t3))){ /* modules.scm:854: merr */ t4=((C_word*)t0)[4]; f_7997(t4,t1);} else{ t4=C_i_car(t3); t5=C_i_car(t4); t6=C_i_pairp(t5); t7=(C_truep(t6)?C_i_car(t5):t5); t8=t7; t9=C_i_car(t2); t10=t9; t11=C_u_i_cdr(t4); t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8167,a[2]=t8,a[3]=t10,a[4]=t1,a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* modules.scm:863: ##sys#match-functor-argument */ t13=*((C_word*)lf[162]+1);{ C_word av2[7]; av2[0]=t13; av2[1]=t12; av2[2]=t8; av2[3]=((C_word*)t0)[2]; av2[4]=t10; av2[5]=t11; av2[6]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t13+1)))(7,av2);}}}} /* map-loop1035 in k5164 in register-primitive-module in k2972 in k2968 */ static void C_fcall f_5292(C_word t0,C_word t1,C_word 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_5292,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_5317,a[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_5223,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* modules.scm:409: ##sys#primitive-alias */ t8=*((C_word*)lf[67]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t7=t5;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+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);}}} /* for-each-loop1810 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7527,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_7537,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:711: g1811 */ t5=((C_word*)t0)[3]; f_7158(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);}}} /* loop2 in loop in k7985 in instantiate-functor in k2972 in k2968 */ 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 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_8093,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=C_i_car(t4); if(C_truep(C_i_pairp(t5))){ t6=C_i_caar(t4); t7=t6; t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8115,a[2]=t4,a[3]=t7,a[4]=t1,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); /* modules.scm:847: cadar */ t9=*((C_word*)lf[79]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ /* modules.scm:852: merr */ t6=((C_word*)t0)[5]; f_7997(t6,t1);}}} /* k6664 in g1626 in loop in k6535 in k6526 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6666,2,av);} /* modules.scm:656: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6542(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k5281 in map-loop1062 in k5227 in k5164 in register-primitive-module in k2972 in k2968 */ 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; 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_5283,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5258(t6,((C_word*)t0)[5],t5);} /* k7512 in for-each-loop1831 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7514,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7504(t3,((C_word*)t0)[4],t2);} /* k5480 in k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_ccall f_5482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_5482,2,av);} a=C_alloc(9); t2=C_i_getprop(((C_word*)t0)[2],lf[75],C_SCHEME_FALSE); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5490,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_5506,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* modules.scm:508: display */ t8=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=lf[80]; 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_5519,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* modules.scm:512: display */ t8=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=lf[83]; 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)f8860,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* modules.scm:519: get-output-string */ t6=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k7535 in for-each-loop1810 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_7537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_7537,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7527(t3,((C_word*)t0)[4],t2);} /* k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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; 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_5479,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5482,a[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_5571,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* modules.scm:500: display */ t4=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[85]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5482(2,av2);}}} /* k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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(6,c,3)))){ C_save_and_reclaim((void *)f_5476,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5479,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* write-char/port */ t3=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7985 in instantiate-functor in k2972 in k2968 */ static void C_ccall f_7987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_7987,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_7997,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)li136),tmp=(C_word)a,a+=8,tmp); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8060,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_8081,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=t8,a[5]=t11,a[6]=((C_word)li138),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_8081(t13,t9,((C_word*)t0)[4],t3);} /* k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_ccall f_5473(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5473,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5476,a[2]=((C_word*)t0)[2],a[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:497: display */ t3=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5488 in k5480 in k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_ccall f_5490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5490,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5497,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:519: get-output-string */ t3=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* err in instantiate-functor in k2972 in k2968 */ static void C_fcall f_7980(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_7980,3,t0,t1,t2);}{ C_word av2[5]; av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[104]+1); av2[3]=((C_word*)t0)[2]; av2[4]=t2; C_apply(5,av2);}} /* k3791 in k3748 in k3742 in k3739 in register-syntax-export in k2972 in k2968 */ static void C_ccall f_3793(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3793,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3797,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* modules.scm:216: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[25]+1); av2[1]=t3; tp(2,av2);}} /* k3795 in k3791 in k3748 in k3742 in k3739 in register-syntax-export in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3797,2,av);} /* modules.scm:216: check-for-redef */ t2=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5495 in k5488 in k5480 in k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5497,2,av);} /* modules.scm:519: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[35]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* ##sys#find-export in k2972 in k2968 */ 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=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(5,c,2)))){ C_save_and_reclaim((void *)f_5332,5,av);} a=C_alloc(5); t5=t3; t6=C_i_check_structure_2(t5,lf[3],lf[10]); t7=C_i_block_ref(t5,C_fix(2)); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5343,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[3],lf[29]); t12=t8; f_5343(t12,C_i_block_ref(t10,C_fix(4)));} else{ t10=t8; f_5343(t10,t7);}} /* k8017 in merr in k7985 in instantiate-functor in k2972 in k2968 */ static void C_ccall f_8019(C_word c,C_word *av){ C_word tmp; C_word t0=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_8019,2,av);} a=C_alloc(12); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* modules.scm:835: err */ t3=((C_word*)t0)[3]; f_7980(t3,((C_word*)t0)[4],C_a_i_list(&a,3,lf[159],((C_word*)t0)[5],t2));} /* k5315 in map-loop1035 in k5164 in register-primitive-module in k2972 in k2968 */ 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(3,c,2)))){ C_save_and_reclaim((void *)f_5317,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5292(t6,((C_word*)t0)[5],t5);} /* loop in k5341 in find-export in k2972 in k2968 */ static void C_fcall f_5345(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_5345,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_5373,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_5373(t13,C_i_memq(((C_word*)t0)[2],t12));} else{ t10=t9; f_5373(t10,C_SCHEME_FALSE);}}} else{ t7=t2; t8=C_u_i_cdr(t7); /* modules.scm:439: loop */ t14=t1; t15=t8; t1=t14; t2=t15; goto loop;}}}} /* k5341 in find-export in k2972 in k2968 */ static void C_fcall f_5343(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_5343,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_5345,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word)li53),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_5345(t5,((C_word*)t0)[4],t1);} /* k3705 in k3701 in k3662 in k3656 in k3653 in k3650 in register-export in k2972 in k2968 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3707,2,av);} /* modules.scm:199: check-for-redef */ t2=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3701 in k3662 in k3656 in k3653 in k3650 in register-export in k2972 in k2968 */ 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(5,c,2)))){ C_save_and_reclaim((void *)f_3703,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3707,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* modules.scm:199: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[25]+1); av2[1]=t3; tp(2,av2);}} /* k8345 in match-functor-argument in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8347,2,av);} /* modules.scm:872: ##sys#find-module */ t2=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k8357 in k8354 in k8351 in k8348 in k2972 in k2968 */ static void C_ccall f_8359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8359,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8362,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:939: ##sys#register-module-alias */ t3=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[176]; av2[3]=lf[177]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5525 in k5522 in g1228 in k5517 in k5480 in k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5527,2,av);} /* write-char/port */ t2=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3716 in k3653 in k3650 in register-export in k2972 in k2968 */ static void C_ccall f_3718(C_word c,C_word *av){ C_word tmp; C_word 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_3718,2,av);} /* modules.scm:194: ##sys#toplevel-definition-hook */ t2=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k5522 in g1228 in k5517 in k5480 in k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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; 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_5524,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5527,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:516: display */ t4=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3712 in k3656 in k3653 in k3650 in register-export in k2972 in k2968 */ static void C_ccall f_3714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3714,2,av);} /* modules.scm:198: set-module-undefined-list! */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* g1228 in k5517 in k5480 in k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_5520(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_5520,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5524,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* modules.scm:515: display */ t4=*((C_word*)lf[77]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=lf[82]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8351 in k8348 in k2972 in k2968 */ static void C_ccall f_8353(C_word c,C_word *av){ C_word tmp; C_word t0=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_8353,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8356,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* modules.scm:936: ##sys#register-primitive-module */ t3=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[179]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k8348 in k2972 in k2968 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_8350,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8353,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_8394,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* modules.scm:934: append */ t4=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[180]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8354 in k8351 in k8348 in k2972 in k2968 */ static void C_ccall f_8356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8356,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8359,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:937: ##sys#register-primitive-module */ t3=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[178]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7739 in k7736 in k7668 in alias-global-hook in k2972 in k2968 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_7741,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_7704,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word)li125),tmp=(C_word)a,a+=5,tmp); /* modules.scm:760: g2033 */ t4=t3; f_7704(t4,((C_word*)t0)[4],t2);} else{ /* modules.scm:784: mrename */ t3=((C_word*)t0)[3]; f_7636(t3,((C_word*)t0)[4],((C_word*)t0)[2]);}} /* ##sys#register-interface in k2972 in k2968 */ static void C_ccall f_7743(C_word c,C_word *av){ C_word tmp; C_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_7743,4,av);} a=C_alloc(8); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_putprop(&a,3,t2,lf[144],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5517 in k5480 in k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_5519,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5520,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_5539,a[2]=t4,a[3]=t2,a[4]=((C_word)li56),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_5539(t6,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k5514 in k5504 in k5480 in k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5516,2,av);} /* modules.scm:509: display */ t2=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3594 in add-to-export-list in k2972 in k2968 */ static void C_ccall f_3596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3596,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_i_check_structure_2(t3,lf[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t5=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t3; av2[3]=C_fix(2); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* ##sys#toplevel-definition-hook in k2972 in k2968 */ 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=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,1)))){ C_save_and_reclaim((void *)f_3598,6,av);} t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k5507 in k5504 in k5480 in k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5509,2,av);} /* modules.scm:510: display */ t2=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[78]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5504 in k5480 in k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5506,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5509,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_5516,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* modules.scm:509: cadar */ t4=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k8330 in for-each-loop2186 in k8192 in match-functor-argument in k2972 in k2968 */ static void C_ccall f_8332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8332,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_8322(t3,((C_word*)t0)[4],t2);} /* iface in validate-exports in k2972 in k2968 */ static void C_fcall f_7760(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,2)))){ C_save_and_reclaim_args((void *)trf_7760,3,t0,t1,t2);} a=C_alloc(9); t3=C_i_getprop(t2,lf[144],C_SCHEME_FALSE); 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:796: err */ t4=((C_word*)((C_word*)t0)[2])[1]; f_7754(t4,t1,C_a_i_list(&a,3,lf[146],*((C_word*)lf[147]+1),((C_word*)t0)[3]));}} /* f8860 in k5480 in k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_ccall f8860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8860,2,av);} /* modules.scm:519: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[35]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k4763 in register-compiled-module in k2972 in k2968 */ 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 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_4765,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*)t0)[2]; t8=C_i_check_list_2(t7,lf[16]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4805,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); 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_5066,a[2]=t5,a[3]=t11,a[4]=t6,a[5]=((C_word)li45),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_5066(t13,t9,t7);} /* k5123 in map-loop856 in register-compiled-module in k2972 in k2968 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5125,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5100(t6,((C_word*)t0)[5],t5);} /* f8899 in g1601 in loop in loop in k6535 in k6526 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f8899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8899,2,av);} /* modules.scm:593: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[35]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k4753 in map-loop856 in register-compiled-module in k2972 in k2968 */ static void C_ccall f_4755(C_word c,C_word *av){ C_word tmp; 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_4755,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k8311 in map-loop2208 in k8264 in k8260 in k8256 in k8239 in k8192 in match-functor-argument in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ 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_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8288(t6,((C_word*)t0)[5],t5);} /* f8886 in g1524 in loop in k6365 in k6356 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f8886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8886,2,av);} /* modules.scm:593: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[35]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* g444 in k3398 in loop in resolve-module-name in k2972 in k2968 */ static void C_fcall f_3373(C_word t0,C_word t1,C_word 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_3373,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:137: error */ t4=*((C_word*)lf[19]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=lf[20]; 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:138: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_3365(t5,t1,t3,t4);}} /* k8360 in k8357 in k8354 in k8351 in k8348 in k2972 in k2968 */ static void C_ccall f_8362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8362,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8365,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:941: register-feature! */ t3=*((C_word*)lf[174]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[175]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* module-environment in k8363 in k8360 in k8357 in k8354 in k8351 in k8348 in k2972 in k2968 */ 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=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_8367,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)?t2:C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8374,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* modules.scm:944: ##sys#find-module/import-library */ t8=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=t2; av2[3]=lf[172]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k8363 in k8360 in k8357 in k8354 in k8351 in k8348 in k2972 in k2968 */ static void C_ccall f_8365(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_8365,2,av);} a=C_alloc(3); t2=C_mutate2((C_word*)lf[172]+1 /* (set! module-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8367,a[2]=((C_word)li144),tmp=(C_word)a,a+=3,tmp)); t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop856 in register-compiled-module in k2972 in k2968 */ static void C_fcall f_5100(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_5100,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_5125,a[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_4730,a[2]=t7,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* modules.scm:348: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[25]+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_4755,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:358: ##sys#ensure-transformer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[64]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[64]+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);}}} /* k5547 in for-each-loop1227 in k5517 in k5480 in k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_5549,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5539(t3,((C_word*)t0)[4],t2);} /* k4728 in map-loop856 in register-compiled-module in k2972 in k2968 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4730,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* modules.scm:351: ##sys#error */ t4=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[62]; av2[3]=lf[66]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} else{ /* modules.scm:351: ##sys#error */ t3=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[62]; av2[3]=lf[66]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k7831 in loop in validate-exports in k2972 in k2968 */ static void C_ccall f_7833(C_word c,C_word *av){ C_word tmp; 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_7833,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* for-each-loop1227 in k5517 in k5480 in k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_5539(C_word t0,C_word t1,C_word 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_5539,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_5549,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:513: g1228 */ t5=((C_word*)t0)[3]; f_5520(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);}}} /* k5164 in register-primitive-module in k2972 in k2968 */ 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 t5; C_word 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_5166,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_check_list_2(t7,lf[16]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5229,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); 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_5292,a[2]=t5,a[3]=t11,a[4]=t6,a[5]=((C_word)li51),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_5292(t13,t9,t7);} /* loop in k4258 in merge-se in k2972 in k2968 */ static void C_fcall f_4271(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_4271,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=t2; t5=C_u_i_cdr(t4); if(C_truep(C_i_assq(t3,t5))){ t6=t2; t7=C_u_i_cdr(t6); /* modules.scm:301: loop */ t12=t1; t13=t7; t1=t12; t2=t13; goto loop;} else{ t6=t2; t7=C_u_i_car(t6); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4298,a[2]=t1,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=t2; t10=C_u_i_cdr(t9); /* modules.scm:302: loop */ t12=t8; t13=t10; t1=t12; t2=t13; goto loop;}}} /* ##sys#switch-module in k2972 in k2968 */ 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=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_3456,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3503,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* modules.scm:149: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[26]+1); av2[1]=t3; tp(2,av2);}} /* ##sys#register-primitive-module in k2972 in k2968 */ 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=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_5159,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_END_OF_LIST:C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5166,a[2]=t3,a[3]=t2,a[4]=t7,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* modules.scm:404: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[25]+1); av2[1]=t8; tp(2,av2);}} /* k5151 in primitive-alias in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5153,2,av);} /* modules.scm:398: ##sys#string->symbol */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[69]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[69]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k4924 in k4898 in k4864 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_4926,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4929,a[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_4945,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_4953,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* modules.scm:391: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[26]+1); av2[1]=t4; tp(2,av2);}} /* k5142 in primitive-alias in k2972 in k2968 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_5144,2,av);} a=C_alloc(8); t2=((C_word*)t0)[2]; t3=C_a_i_putprop(&a,3,t1,lf[68],t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4927 in k4924 in k4898 in k4864 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_4929,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[22]+1)); t4=C_mutate2((C_word*)lf[22]+1 /* (set! ##sys#module-table ...) */,t3); t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* for-each-loop2186 in k8192 in match-functor-argument in k2972 in k2968 */ static void C_fcall f_8322(C_word t0,C_word t1,C_word 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_8322,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_8332,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:874: g2187 */ t5=((C_word*)t0)[3]; f_8201(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);}}} /* ##sys#primitive-alias in k2972 in k2968 */ static void C_ccall f_5140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5140,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5144,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5153,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_slot(t2,C_fix(1)); /* modules.scm:399: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[70]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=t4; av2[2]=lf[71]; av2[3]=t5; tp(4,av2);}} /* k7394 in k7271 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7396,2,av);} t2=C_i_check_structure_2(((C_word*)t0)[2],lf[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(11); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* loop in validate-exports in k2972 in k2968 */ static void C_fcall f_7801(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word 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(11,0,3)))){ C_save_and_reclaim_args((void *)trf_7801,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{ if(C_truep(C_i_pairp(t2))){ t3=C_i_car(t2); t4=t3; if(C_truep(C_i_symbolp(t4))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7833,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=t2; t7=C_u_i_cdr(t6); /* modules.scm:808: loop */ t13=t5; t14=t7; t1=t13; t2=t14; goto loop;} else{ if(C_truep(C_i_listp(t4))){ t5=C_i_car(t4); t6=C_eqp(lf[149],t5); if(C_truep(t6)){ t7=C_u_i_cdr(t4); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7859,a[2]=t1,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=t2; t10=C_u_i_cdr(t9); /* modules.scm:812: loop */ t13=t8; t14=t10; t1=t13; t2=t14; goto loop;} else{ t7=C_u_i_car(t4); t8=C_eqp(lf[150],t7); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7873,a[2]=t4,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); t10=C_u_i_cdr(t4); if(C_truep(C_i_pairp(t10))){ t11=C_i_cadr(t4); t12=t9; f_7873(t12,C_i_symbolp(t11));} else{ t11=t9; f_7873(t11,C_SCHEME_FALSE);}} else{ 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_7900,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t10,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word)li130),tmp=(C_word)a,a+=9,tmp)); t12=((C_word*)t10)[1]; f_7900(t12,t1,t4);}}} else{ /* modules.scm:810: err */ t5=((C_word*)((C_word*)t0)[4])[1]; f_7754(t5,t1,C_a_i_list(&a,3,lf[153],t4,((C_word*)t0)[5]));}}} else{ /* modules.scm:805: err */ t3=((C_word*)((C_word*)t0)[4])[1]; f_7754(t3,t1,C_a_i_list(&a,2,lf[154],((C_word*)t0)[5]));}}} /* ##sys#find-module in k2972 in k2968 */ 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=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_3402,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[22]+1)); if(C_truep(t12)){ t13=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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:143: error */ t13=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t13; av2[1]=t1; av2[2]=t9; av2[3]=lf[23]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} else{ t13=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}}} /* k3398 in loop in resolve-module-name in k2972 in k2968 */ static void C_ccall f_3400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3400,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_3373,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)li10),tmp=(C_word)a,a+=7,tmp); /* modules.scm:131: g444 */ t4=t3; f_3373(t4,((C_word*)t0)[7],t2);} else{ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[7];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4986 in for-each-loop962 in k4864 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_4988,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4978(t3,((C_word*)t0)[4],t2);} /* map-loop1935 in k7419 in k7271 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_7430(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_7430,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_mutate2(((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);}}} /* k4951 in k4924 in k4898 in k4864 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4953,2,av);} a=C_alloc(9); /* modules.scm:391: merge-se */ f_4256(((C_word*)t0)[2],C_a_i_list(&a,3,t1,((C_word*)t0)[3],((C_word*)t0)[4]));} /* g1601 in loop in loop in k6535 in k6526 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6562(C_word t0,C_word t1,C_word 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_6562,3,t0,t1,t2);} a=C_alloc(3); t3=t1; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8899,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* modules.scm:593: sprintf */ t5=*((C_word*)lf[118]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=lf[122]; av2[3]=((C_word*)t0)[2]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* loop in loop in k6535 in k6526 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6554(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(21,0,4)))){ C_save_and_reclaim_args((void *)trf_6554,5,t0,t1,t2,t3,t4);} a=C_alloc(21); if(C_truep(C_i_nullp(t2))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6562,a[2]=((C_word*)t0)[2],a[3]=((C_word)li90),tmp=(C_word)a,a+=4,tmp); t6=t4; t7=C_i_check_list_2(t6,lf[30]); t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6572,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)[2],a[7]=((C_word*)t0)[6],a[8]=t3,a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,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_6585,a[2]=t10,a[3]=t5,a[4]=((C_word)li91),tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_6585(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_6613,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=t3,a[5]=t4,a[6]=((C_word)li92),tmp=(C_word)a,a+=7,tmp); /* modules.scm:642: g1621 */ t8=t7; f_6613(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:653: loop */ t13=t1; t14=t8; t15=t11; t16=t4; t1=t13; t2=t14; t3=t15; t4=t16; goto loop;}}} /* k4296 in loop in k4258 in merge-se in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4298,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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#with-module-aliases in k2972 in k2968 */ 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=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_3256,4,av);} a=C_alloc(21); t4=*((C_word*)lf[1]+1); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3260,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[16]); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3319,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_3325,a[2]=t8,a[3]=t13,a[4]=t9,a[5]=((C_word)li8),tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_3325(t15,t11,t2);} /* k3252 in register-module-alias in k2972 in k2968 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3254,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* modules.scm:121: ##sys#module-alias-environment */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop983 in k4898 in k4864 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ static void C_fcall f_4955(C_word t0,C_word t1,C_word 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_4955,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_4965,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:385: g984 */ t5=((C_word*)t0)[3]; f_4901(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);}}} /* map-loop1487 in k6356 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6487(C_word t0,C_word t1,C_word 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_6487,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_6512,a[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:621: g1493 */ 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);}}} /* k7405 in k7271 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_7407(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_7407,2,av);} t2=C_i_check_structure_2(((C_word*)t0)[2],lf[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(2); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3258 in with-module-aliases in k2972 in k2968 */ 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 t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_3260,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_3265,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word)li5),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3282,a[2]=((C_word*)t0)[3],a[3]=((C_word)li6),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3288,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li7),tmp=(C_word)a,a+=5,tmp); /* modules.scm:124: ##sys#dynamic-wind */ t9=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a3264 in k3258 in with-module-aliases in k2972 in k2968 */ static void C_ccall f_3265(C_word c,C_word *av){ 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_3265,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3269,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:124: module-alias-environment390391 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_3269(2,av2);}}} /* k3267 in a3264 in k3258 in with-module-aliases in k2972 in k2968 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3269,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3273,a[2]=((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:124: module-alias-environment390391 */ t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k4943 in k4924 in k4898 in k4864 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ 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 t4; 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=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4949,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* modules.scm:392: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[25]+1); av2[1]=t3; tp(2,av2);}} /* k4947 in k4943 in k4924 in k4898 in k4864 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_4949,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[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(13); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* map-loop783 in k4575 in k4345 in k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ static void C_fcall f_4490(C_word t0,C_word t1,C_word 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_4490,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_4515,a[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:325: g789 */ t5=((C_word*)t0)[4]; f_4448(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);}}} /* k4162 in g669 in k4248 in loop2 in loop in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_ccall f_4164(C_word c,C_word *av){ C_word tmp; 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_4164,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_4147(t2,C_a_i_cons(&a,2,((C_word*)t0)[3],t1));} /* g676 in k4238 in k4248 in loop2 in loop in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 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_4179,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_4197,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:287: loop2 */ t12=((C_word*)((C_word*)t0)[3])[1]; f_4102(t12,t9,t11);} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4208,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:289: warn */ t6=((C_word*)t0)[4]; f_4052(t6,t4,lf[94],t5);}} /* ##sys#register-module-alias in k2972 in k2968 */ 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=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_3238,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_3254,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* modules.scm:122: ##sys#module-alias-environment */ t7=*((C_word*)lf[1]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_6525,2,av);} a=C_alloc(15); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6528,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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:638: ##sys#check-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[120]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[120]+1); av2[1]=t2; av2[2]=((C_word*)t0)[11]; av2[3]=((C_word*)t0)[12]; av2[4]=lf[123]; tp(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6728,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]=((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:659: c */ t3=((C_word*)t0)[14];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[16]; av2[3]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} /* map-loop1909 in k7271 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_7464(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_7464,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_mutate2(((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);}}} /* k4149 in k4145 in g669 in k4248 in loop2 in loop in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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(3,c,1)))){ C_save_and_reclaim((void *)f_4151,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k4787 in map-loop884 in k4763 in register-compiled-module in k2972 in k2968 */ 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(9,c,1)))){ C_save_and_reclaim((void *)f_4789,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k6526 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 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_6528,2,av);} a=C_alloc(24); 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[16]); t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6537,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]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,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_6690,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,a[6]=((C_word)li96),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_6690(t12,t8,((C_word*)t0)[3]);} /* k4898 in k4864 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ 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 t3; C_word 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_4900,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4901,a[2]=((C_word*)t0)[2],a[3]=((C_word)li40),tmp=(C_word)a,a+=4,tmp); t3=C_i_check_list_2(((C_word*)t0)[3],lf[30]); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4926,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_4955,a[2]=t6,a[3]=t2,a[4]=((C_word)li41),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_4955(t8,t4,((C_word*)t0)[3]);} /* k4470 in g789 in k4575 in k4345 in k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_4472,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[58],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6510 in map-loop1487 in k6356 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 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_6512,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6487(t6,((C_word*)t0)[5],t5);} /* ##sys#module-exports in k2972 in k2968 */ 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; C_word t4; C_word 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_3214,3,av);} t3=t2; t4=C_i_check_structure_2(t3,lf[3],lf[10]); t5=C_i_block_ref(t3,C_fix(2)); t6=t2; t7=C_i_check_structure_2(t6,lf[3],lf[11]); t8=C_i_block_ref(t6,C_fix(10)); t9=t2; t10=C_i_check_structure_2(t9,lf[3],lf[12]); t11=C_i_block_ref(t9,C_fix(11)); /* modules.scm:112: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t8; av2[4]=t11; C_values(5,av2);}} /* a6337 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *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_6338,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* modules.scm:618: import-spec */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6282(t3,t1,t2);} /* module-undefined-list in k2972 in k2968 */ 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=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_3069,3,av);} t3=C_i_check_structure_2(t2,lf[3],lf[5]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(6)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4911 in g984 in k4898 in k4864 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4913,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_set_car(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_7157,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7158,a[2]=((C_word*)t0)[2],a[3]=((C_word)li110),tmp=(C_word)a,a+=4,tmp); t3=C_i_check_list_2(((C_word*)t0)[3],lf[30]); t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7202,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); 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_7527,a[2]=t6,a[3]=t2,a[4]=((C_word)li117),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_7527(t8,t4,((C_word*)t0)[3]);} /* g1811 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_7158(C_word 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_7158,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_7196,a[2]=t4,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* modules.scm:714: 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);}}} /* k6323 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_6325(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6325,2,av);} /* modules.scm:614: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[70]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[116]; av2[3]=t1; tp(4,av2);}} /* k6319 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_6321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6321,2,av);} /* modules.scm:613: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; C_string_to_symbol(3,av2);}} /* k4145 in g669 in k4248 in loop2 in loop in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_4147(C_word 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_4147,2,t0,t1);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4151,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:283: loop2 */ t6=((C_word*)((C_word*)t0)[4])[1]; f_4102(t6,t3,t5);} /* set-module-undefined-list! in k2972 in k2968 */ 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=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_3078,4,av);} t4=C_i_check_structure_2(t2,lf[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t5=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=C_fix(6); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* g984 in k4898 in k4864 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ static void C_fcall f_4901(C_word t0,C_word 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_4901,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_4913,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_i_cadr(t2); if(C_truep(t6)){ /* modules.scm:387: merge-se */ f_4256(t5,C_a_i_list(&a,2,t6,((C_word*)t0)[2]));} else{ /* modules.scm:387: merge-se */ f_4256(t5,C_a_i_list(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]));}} /* k4123 in k4248 in loop2 in loop in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_ccall f_4125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4125,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* modules.scm:276: loop2 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4102(t4,((C_word*)t0)[4],t3);} /* g669 in k4248 in loop2 in loop in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_4139(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_4139,3,t0,t1,t2);} a=C_alloc(12); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4147,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_4164,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp); if(C_truep(t6)){ t8=t3; f_4147(t8,C_a_i_cons(&a,2,t5,t6));} else{ t8=((C_word*)t0)[2]; t9=C_u_i_car(t8); /* modules.scm:282: ##sys#module-rename */ t10=*((C_word*)lf[41]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t7; av2[2]=t9; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}} /* k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_6355(C_word c,C_word *av){ C_word tmp; C_word t0=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_6355,2,av);} a=C_alloc(17); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6358,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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:620: ##sys#check-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[120]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[120]+1); av2[1]=t2; av2[2]=((C_word*)t0)[11]; av2[3]=((C_word*)t0)[12]; av2[4]=lf[121]; tp(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_6525,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[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],a[10]=((C_word*)t0)[8],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); /* modules.scm:637: c */ t3=((C_word*)t0)[14];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[17]; av2[3]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} /* k6356 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t3; C_word t4; C_word 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_6358,2,av);} a=C_alloc(24); 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[16]); t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6367,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]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,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_6487,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,a[6]=((C_word)li89),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_6487(t12,t8,((C_word*)t0)[3]);} /* for-each-loop962 in k4864 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ static void C_fcall f_4978(C_word t0,C_word t1,C_word 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_4978,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_4988,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:380: g963 */ t5=((C_word*)t0)[3]; f_4867(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);}}} /* k7419 in k7271 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_7421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_7421,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_7428,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,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_7430,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li114),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_7430(t11,t7,((C_word*)t0)[4]);} /* k3461 in k3505 in k3501 in switch-module in k2972 in k2968 */ static void C_ccall f_3463(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3463,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3466,a[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_3491,a[2]=((C_word*)t0)[5],a[3]=((C_word)li14),tmp=(C_word)a,a+=4,tmp); /* modules.scm:147: g482 */ t4=t3; f_3491(t4,t2,t1);} else{ t3=C_mutate2(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); t4=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; f_3466(2,av2);}}} /* k7426 in k7419 in k7271 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7428,2,av);} /* modules.scm:739: append */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3464 in k3461 in k3505 in k3501 in switch-module in k2972 in k2968 */ static void C_ccall f_3466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3466,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3469,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[3],lf[27]); t5=t2; f_3469(t5,C_i_block_ref(t3,C_fix(13)));} else{ t3=t2; f_3469(t3,((C_word*)((C_word*)t0)[4])[1]);}} /* k3467 in k3464 in k3461 in k3505 in k3501 in switch-module in k2972 in k2968 */ static void C_fcall f_3469(C_word 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_3469,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3472,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_3478,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_car(t2); /* modules.scm:157: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[26]+1); av2[1]=t4; av2[2]=t5; tp(3,av2);}} else{ /* modules.scm:159: ##sys#current-module */ t4=*((C_word*)lf[0]+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);}}} /* import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6282(C_word t0,C_word 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_6282,3,t0,t1,t2);} a=C_alloc(15); if(C_truep(C_i_symbolp(t2))){ /* modules.scm:608: import-name */ f_6257(t1,t2);} else{ t3=C_i_listp(t2); t4=C_i_not(t3); t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6301,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[2],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); if(C_truep(t4)){ t6=t5; f_6301(t6,t4);} else{ t6=C_i_length(t2); t7=t5; f_6301(t7,C_fixnum_lessp(t6,C_fix(2)));}}} /* k6278 in import-name in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6280,2,av);} /* modules.scm:601: ##sys#find-module/import-library */ t2=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[62]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4486 in k4575 in k4345 in k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ static void C_ccall f_4488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word 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_4488,2,av);} a=C_alloc(21); t2=C_a_i_cons(&a,2,lf[57],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4375,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4379,a[2]=t4,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(((C_word*)t0)[7]))){ t6=t4; f_4375(t6,C_a_i_cons(&a,2,lf[57],C_SCHEME_END_OF_LIST));} else{ t6=((C_word*)t0)[8]; t7=C_i_check_structure_2(t6,lf[3],lf[44]); t8=C_i_block_ref(t6,C_fix(5)); 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_4391,a[2]=((C_word*)t0)[7],a[3]=t10,a[4]=((C_word)li33),tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_4391(t12,t5,t8);}} /* a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_6348(C_word c,C_word *av){ C_word tmp; C_word t0=av[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!=7) C_bad_argc_2(c,7,t0); if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_6348,7,av);} a=C_alloc(18); t7=t2; t8=t3; t9=t4; t10=t5; t11=t6; t12=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_6355,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t7,a[5]=t8,a[6]=((C_word*)t0)[4],a[7]=t11,a[8]=t9,a[9]=t10,a[10]=t1,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],tmp=(C_word)a,a+=18,tmp); /* modules.scm:619: c */ t13=((C_word*)t0)[8];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t12; av2[2]=((C_word*)t0)[12]; av2[3]=((C_word*)t0)[4]; ((C_proc)C_fast_retrieve_proc(t13))(4,av2);}} /* k4963 in for-each-loop983 in k4898 in k4864 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4965,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4955(t3,((C_word*)t0)[4],t2);} /* k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_7125,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7128,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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); /* modules.scm:695: ##sys#current-module */ t3=*((C_word*)lf[0]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_7129(C_word t0,C_word t1,C_word 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,7)))){ C_save_and_reclaim_args((void *)trf_7129,3,t0,t1,t2);} a=C_alloc(14); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7135,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li109),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7141,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)li118),tmp=(C_word)a,a+=9,tmp); /* modules.scm:697: ##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);}} /* k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 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_7128,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7129,a[2]=((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)li119),tmp=(C_word)a,a+=10,tmp); t4=C_i_cdr(((C_word*)t0)[8]); t5=C_i_check_list_2(t4,lf[30]); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7590,a[2]=((C_word*)t0)[9],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|4,a[1]=(C_word)f_7592,a[2]=t8,a[3]=t3,a[4]=((C_word)li120),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_7592(t10,t6,t4);} /* loop2 in loop in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_4102(C_word 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_4102,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:273: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4075(t4,t1,t3);} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4250,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:274: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[25]+1); av2[1]=t5; tp(2,av2);}}} /* ##sys#compiled-module-registration in k2972 in k2968 */ 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 t9; C_word t10; C_word t11; C_word 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!=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_4308,3,av);} a=C_alloc(10); t3=t2; t4=C_i_check_structure_2(t3,lf[3],lf[39]); t5=C_i_block_ref(t3,C_fix(3)); t6=t5; t7=t2; t8=C_i_check_structure_2(t7,lf[3],lf[4]); t9=C_i_block_ref(t7,C_fix(1)); t10=t2; t11=C_i_check_structure_2(t10,lf[3],lf[52]); t12=C_i_block_ref(t10,C_fix(7)); t13=t2; t14=C_i_check_structure_2(t13,lf[3],lf[12]); t15=C_i_block_ref(t13,C_fix(11)); t16=t15; t17=t2; t18=C_i_check_structure_2(t17,lf[3],lf[53]); t19=C_i_block_ref(t17,C_fix(8)); t20=t19; t21=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4331,a[2]=t1,a[3]=t2,a[4]=t6,a[5]=t16,a[6]=t20,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(t12))){ t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4698,a[2]=t21,tmp=(C_word)a,a+=3,tmp); /* modules.scm:312: ##sys#strip-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[59]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[59]+1); av2[1]=t22; av2[2]=t12; tp(3,av2);}} else{ t22=t21; f_4331(t22,C_SCHEME_END_OF_LIST);}} /* k7194 in g1811 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7196,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(t6)){ t7=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ /* modules.scm:717: ##sys#notice */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[128]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[128]+1); av2[1]=((C_word*)t0)[4]; av2[2]=lf[129]; av2[3]=((C_word*)t0)[2]; tp(4,av2);}}} else{ t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ static void C_fcall f_4339(C_word t0,C_word t1){ C_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(27,0,3)))){ C_save_and_reclaim_args((void *)trf_4339,2,t0,t1);} a=C_alloc(27); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4343,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_4347,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_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[59]+1); t10=((C_word*)t0)[3]; t11=C_i_check_structure_2(t10,lf[3],lf[33]); t12=C_i_block_ref(t10,C_fix(9)); t13=C_i_check_list_2(t12,lf[16]); t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4628,a[2]=t4,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|6,a[1]=(C_word)f_4630,a[2]=t7,a[3]=t16,a[4]=t9,a[5]=t8,a[6]=((C_word)li36),tmp=(C_word)a,a+=7,tmp)); t18=((C_word*)t16)[1]; f_4630(t18,t14,t12);} /* a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_7141(C_word c,C_word *av){ C_word tmp; C_word t0=av[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!=7) C_bad_argc_2(c,7,t0); if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_7141,7,av);} a=C_alloc(18); t7=t4; t8=t5; t9=t6; t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7145,a[2]=((C_word*)t0)[2],a[3]=t7,a[4]=((C_word*)t0)[3],a[5]=t8,a[6]=t1,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=t9,a[10]=((C_word*)t0)[6],tmp=(C_word)a,a+=11,tmp); if(C_truep(((C_word*)t0)[5])){ if(C_truep(((C_word*)t0)[7])){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7558,a[2]=((C_word*)t0)[5],a[3]=t10,tmp=(C_word)a,a+=4,tmp); t12=C_i_check_structure_2(((C_word*)t0)[5],lf[3],lf[53]); t13=C_i_block_ref(((C_word*)t0)[5],C_fix(8)); t14=C_a_i_list1(&a,1,t3); /* modules.scm:703: append */ t15=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t11; av2[2]=t13; av2[3]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} else{ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7573,a[2]=((C_word*)t0)[5],a[3]=t10,tmp=(C_word)a,a+=4,tmp); t12=C_i_check_structure_2(((C_word*)t0)[5],lf[3],lf[52]); t13=C_i_block_ref(((C_word*)t0)[5],C_fix(7)); t14=C_a_i_list1(&a,1,t3); /* modules.scm:706: append */ t15=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t11; av2[2]=t13; av2[3]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}}} else{ t11=t10;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_SCHEME_UNDEFINED; f_7145(2,av2);}}} /* k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_7145,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7157,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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:710: ##sys#mark-imported-symbols */ t3=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6310(C_word t0,C_word t1){ C_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(19,0,7)))){ C_save_and_reclaim_args((void *)trf_6310,2,t0,t1);} a=C_alloc(19); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6317,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_6321,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6325,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_cadr(((C_word*)t0)[4]); /* modules.scm:614: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[117]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[117]+1); av2[1]=t4; av2[2]=t5; tp(3,av2);}} else{ t2=((C_word*)t0)[4]; t3=C_u_i_car(t2); t4=C_i_cddr(((C_word*)t0)[4]); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6338,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word)li83),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6348,a[2]=((C_word*)t0)[6],a[3]=t5,a[4]=t3,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]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word)li107),tmp=(C_word)a,a+=14,tmp); /* modules.scm:616: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}}} /* k4329 in compiled-module-registration in k2972 in k2968 */ static void C_fcall f_4331(C_word 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_4331,2,t0,t1);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4335,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_4339,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_i_pairp(((C_word*)t0)[6]))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4676,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* modules.scm:313: ##sys#strip-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[59]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[59]+1); av2[1]=t5; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} else{ t5=t4; f_4339(t5,C_SCHEME_END_OF_LIST);}} /* k4333 in k4329 in compiled-module-registration in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4335,2,av);} /* modules.scm:306: ##sys#append */ t2=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6142 in k6139 in k6136 in a6133 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_6144,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6147,a[2]=((C_word*)t0)[2],a[3]=((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:569: macro-environment13441345 */ t4=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k6315 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6317,2,av);} /* modules.scm:612: import-name */ f_6257(((C_word*)t0)[3],t1);} /* k6139 in k6136 in a6133 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_6141,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6144,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:569: current-meta-environment13421343 */ t4=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k6145 in k6142 in k6139 in k6136 in a6133 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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; 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_6147,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6150,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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:569: current-module13381339 */ t4=((C_word*)t0)[13];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* a7134 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *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_7135,2,av);} /* modules.scm:698: import-spec */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6282(t2,t1,((C_word*)t0)[3]);} /* k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6301(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,4)))){ C_save_and_reclaim_args((void *)trf_6301,2,t0,t1);} a=C_alloc(18); if(C_truep(t1)){ /* modules.scm:610: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[104]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[104]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[115]; av2[4]=((C_word*)t0)[4]; tp(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6310,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],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],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_7090,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_car(((C_word*)t0)[4]); /* modules.scm:611: c */ t5=((C_word*)t0)[9];{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[14]; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}} /* k6095 in k6092 in k6089 in k6086 in k6083 in k6079 in k6075 in k6071 in k6067 in k6064 in k6061 in k6058 in a6055 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ static void C_ccall f_6097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6097,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6172 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6174,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[70]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[107]; tp(4,av2);}} /* ##sys#register-compiled-module in k2972 in k2968 */ 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=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); if(C_unlikely(!C_demand(C_calculate_demand((c-6)*C_SIZEOF_PAIR +20,c,3)))){ C_save_and_reclaim((void*)f_4700,c,av);} a=C_alloc((c-6)*C_SIZEOF_PAIR+20); 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; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; t7=C_i_nullp(t6); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_car(t6)); 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_i_check_list_2(t5,lf[16]); t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4765,a[2]=t3,a[3]=t9,a[4]=t2,a[5]=t4,a[6]=t1,tmp=(C_word)a,a+=7,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_5100,a[2]=t12,a[3]=t17,a[4]=t13,a[5]=((C_word)li46),tmp=(C_word)a,a+=6,tmp)); t19=((C_word*)t17)[1]; f_5100(t19,t15,t5);} /* k6089 in k6086 in k6083 in k6079 in k6075 in k6071 in k6067 in k6064 in k6061 in k6058 in a6055 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6091,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6094,a[2]=((C_word*)t0)[2],a[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:569: current-meta-environment13421343 */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6168 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6170,2,av);} /* modules.scm:566: ##sys#find-extension */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[106]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[106]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; tp(4,av2);}} /* k6092 in k6089 in k6086 in k6083 in k6079 in k6075 in k6071 in k6067 in k6064 in k6061 in k6058 in a6055 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ static void C_ccall f_6094(C_word c,C_word *av){ C_word tmp; C_word t0=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_6094,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6097,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* modules.scm:569: macro-environment13441345 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#expand-import in k2972 in k2968 */ 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=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,2)))){ C_save_and_reclaim((void *)f_6177,10,av);} a=C_alloc(11); t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6181,a[2]=t9,a[3]=t4,a[4]=t5,a[5]=t6,a[6]=t8,a[7]=t7,a[8]=t2,a[9]=t1,a[10]=t3,tmp=(C_word)a,a+=11,tmp); /* modules.scm:585: r */ t11=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t10; av2[2]=lf[138]; ((C_proc)C_fast_retrieve_proc(t11))(3,av2);}} /* k6086 in k6083 in k6079 in k6075 in k6071 in k6067 in k6064 in k6061 in k6058 in a6055 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_6088,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6091,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:569: current-environment13401341 */ t3=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7571 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7573,2,av);} t2=C_i_check_structure_2(((C_word*)t0)[2],lf[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(7); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6079 in k6075 in k6071 in k6067 in k6064 in k6061 in k6058 in a6055 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_6081,2,av);} a=C_alloc(13); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6085,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:569: macro-environment13441345 */ t4=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k6083 in k6079 in k6075 in k6071 in k6067 in k6064 in k6061 in k6058 in a6055 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_6085,2,av);} a=C_alloc(10); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6088,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:569: current-module13381339 */ t4=((C_word*)t0)[11];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7649 in g2005 in k7638 in mrename in alias-global-hook in k2972 in k2968 */ static void C_ccall f_7651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_7651,2,av);} t2=((C_word*)t0)[2]; t3=C_i_check_structure_2(t2,lf[3],lf[4]); t4=C_i_block_ref(t2,C_fix(1)); /* modules.scm:767: ##sys#module-rename */ t5=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in k6535 in k6526 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6542(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(12,0,5)))){ C_save_and_reclaim_args((void *)trf_6542,5,t0,t1,t2,t3,t4);} a=C_alloc(12); 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|9,a[1]=(C_word)f_6554,a[2]=((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]=t6,a[9]=((C_word)li93),tmp=(C_word)a,a+=10,tmp)); t8=((C_word*)t6)[1]; f_6554(t8,t1,((C_word*)t0)[7],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_6654,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=t3,a[5]=t4,a[6]=((C_word)li94),tmp=(C_word)a,a+=7,tmp); /* modules.scm:639: g1626 */ t8=t7; f_6654(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:658: loop */ t13=t1; t14=t8; t15=t11; t16=t4; t1=t13; t2=t14; t3=t15; t4=t16; goto loop;}}} /* k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_6190,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6193,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); /* modules.scm:589: r */ t4=((C_word*)t0)[13];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[134]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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(42,c,4)))){ C_save_and_reclaim((void *)f_6193,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|2,a[1]=(C_word)f_6195,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp)); t12=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6214,a[2]=((C_word*)t0)[2],a[3]=((C_word)li81),tmp=(C_word)a,a+=4,tmp)); t13=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6257,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp)); t14=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6282,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=t10,a[5]=t4,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]=t2,a[13]=((C_word)li108),tmp=(C_word)a,a+=14,tmp)); t15=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7125,a[2]=t10,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[12],a[9]=((C_word*)t0)[13],tmp=(C_word)a,a+=10,tmp); /* modules.scm:694: ##sys#check-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[120]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[120]+1); av2[1]=t15; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[12]; av2[4]=lf[133]; tp(5,av2);}} /* resolve in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_6195(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6195,3,av);} t3=t2; t4=C_u_i_assq(t3,C_SCHEME_END_OF_LIST); if(C_truep(t4)){ t5=C_i_cdr(t4); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=t2; t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t5=C_i_getprop(t3,lf[109],C_SCHEME_FALSE); if(C_truep(t5)){ if(C_truep(t5)){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=t2; t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t6=t2; t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}} /* k6535 in k6526 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ C_save_and_reclaim((void *)f_6537,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_6542,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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)li95),tmp=(C_word)a,a+=10,tmp)); t5=((C_word*)t3)[1]; f_6542(t5,((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_END_OF_LIST,((C_word*)t0)[4]);} /* for-each-loop1771 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_7592(C_word t0,C_word t1,C_word 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_7592,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_7602,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:695: g1772 */ t5=((C_word*)t0)[3]; f_7129(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);}}} /* k7588 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_7590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7590,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[132]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#alias-global-hook in k2972 in k2968 */ static void C_ccall f_7633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7633,5,av);} a=C_alloc(10); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7636,a[2]=t3,a[3]=t4,a[4]=((C_word)li124),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7670,a[2]=t2,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* modules.scm:769: ##sys#qualified-symbol? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[142]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[142]+1); av2[1]=t6; av2[2]=t2; tp(3,av2);}} /* mrename in alias-global-hook in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7636,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7640,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:762: ##sys#current-module */ t4=*((C_word*)lf[0]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a6133 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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!=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_6134,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,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]=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:569: current-module13381339 */ t3=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k6136 in a6133 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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(12,c,2)))){ C_save_and_reclaim((void *)f_6138,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6141,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:569: current-environment13401341 */ t4=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* a6122 in a6111 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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 *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_6123,2,av);} /* modules.scm:576: ##sys#load */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[102]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; tp(5,av2);}} /* a6128 in a6111 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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 *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_6129,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[101]+1)); t3=C_mutate2((C_word*)lf[101]+1 /* (set! ##sys#notices-enabled ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#module-rename in k2972 in k2968 */ 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=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,4)))){ C_save_and_reclaim((void *)f_7615,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7623,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:755: string-append */ t7=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t4; av2[2]=t5; av2[3]=lf[139]; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k6365 in k6356 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,6)))){ C_save_and_reclaim((void *)f_6367,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_6372,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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)li88),tmp=(C_word)a,a+=11,tmp)); t5=((C_word*)t3)[1]; f_6372(t5,((C_word*)t0)[9],t1,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* k6151 in k6148 in k6145 in k6142 in k6139 in k6136 in a6133 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_6153,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6156,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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:569: current-meta-environment13421343 */ t3=((C_word*)t0)[12];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6154 in k6151 in k6148 in k6145 in k6142 in k6139 in k6136 in a6133 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ static void C_ccall f_6156(C_word c,C_word *av){ C_word tmp; C_word t0=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_6156,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6159,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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:569: macro-environment13441345 */ t3=((C_word*)t0)[11];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6148 in k6145 in k6142 in k6139 in k6136 in a6133 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ static void C_ccall f_6150(C_word c,C_word *av){ C_word tmp; C_word t0=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_6150,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6153,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:569: current-environment13401341 */ t3=((C_word*)t0)[13];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k6157 in k6154 in k6151 in k6148 in k6145 in k6142 in k6139 in k6136 in a6133 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ static void C_ccall f_6159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_6159,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_mutate2(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); t4=C_mutate2(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]); t5=C_mutate2(((C_word *)((C_word*)t0)[8])+1,((C_word*)t0)[9]); t6=((C_word*)t0)[10];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k7638 in mrename in alias-global-hook in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7640,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7644,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); /* modules.scm:760: g2005 */ t3=t2; f_7644(t3,((C_word*)t0)[5],t1);} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6969 in ren in k6956 in k6953 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_6971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6971,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* g2005 in k7638 in mrename in alias-global-hook in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_7644,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7651,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[3],lf[4]); t6=C_i_block_ref(t4,C_fix(1)); /* modules.scm:767: ##sys#module-rename */ t7=*((C_word*)lf[41]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ /* modules.scm:766: ##sys#register-undefined */ t4=*((C_word*)lf[46]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k6975 in ren in k6956 in k6953 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6977,2,av);} /* modules.scm:689: ##sys#string->symbol */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[69]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[69]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* ren in k6956 in k6953 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_6963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6963,3,av);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6971,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6977,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6981,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* modules.scm:690: tostr */ t6=((C_word*)((C_word*)t0)[2])[1]; f_6214(t6,t5,((C_word*)t0)[3]);} /* k7621 in module-rename in k2972 in k2968 */ static void C_ccall f_7623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7623,2,av);} /* modules.scm:754: ##sys#string->symbol */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[69]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[69]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k5736 in for-each-loop1295 in k5662 in k5659 in k5656 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5738,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5728(t3,((C_word*)t0)[4],t2);} /* k4341 in k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4343,2,av);} /* modules.scm:306: ##sys#append */ t2=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4345 in k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ 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; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(27,c,3)))){ C_save_and_reclaim((void *)f_4347,2,av);} a=C_alloc(27); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_check_structure_2(t3,lf[3],lf[4]); t5=C_i_block_ref(t3,C_fix(1)); t6=C_a_i_list(&a,2,lf[55],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*)t0)[2]; t13=C_i_check_structure_2(t12,lf[3],lf[56]); t14=C_i_block_ref(t12,C_fix(12)); t15=C_i_check_list_2(t14,lf[16]); t16=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4577,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t7,a[6]=((C_word*)t0)[5],a[7]=t2,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_4579,a[2]=t10,a[3]=t18,a[4]=t11,a[5]=((C_word)li35),tmp=(C_word)a,a+=6,tmp)); t20=((C_word*)t18)[1]; f_4579(t20,t16,t14);} /* a6111 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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 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(18,c,4)))){ C_save_and_reclaim((void *)f_6112,2,av);} a=C_alloc(18); 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_6118,a[2]=t5,a[3]=t3,a[4]=((C_word)li74),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6123,a[2]=((C_word*)t0)[2],a[3]=((C_word)li75),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6129,a[2]=t3,a[3]=t5,a[4]=((C_word)li76),tmp=(C_word)a,a+=5,tmp); /* modules.scm:569: ##sys#dynamic-wind */ t9=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7600 in for-each-loop1771 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7602,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7592(t3,((C_word*)t0)[4],t2);} /* a6117 in a6111 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ static void C_ccall f_6118(C_word c,C_word *av){ C_word tmp; 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_6118,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[101]+1)); t3=C_mutate2((C_word*)lf[101]+1 /* (set! ##sys#notices-enabled ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5720 in k5694 in k5691 in k5685 in k5662 in k5659 in k5656 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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(0,c,4)))){ C_save_and_reclaim((void *)f_5722,2,av);} t2=((C_word*)t0)[2]; t3=C_i_check_structure_2(t2,lf[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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-loop1295 in k5662 in k5659 in k5656 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_5728(C_word t0,C_word t1,C_word 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_5728,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_5738,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:534: g1296 */ t5=((C_word*)t0)[3]; f_5665(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);}}} /* k6796 in for-each-loop1651 in k6767 in loop in loop in k6729 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6798,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6788(t3,((C_word*)t0)[4],t2);} /* for-each-loop1180 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_5796(C_word t0,C_word t1,C_word 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_5796,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_5806,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:442: g1181 */ t5=((C_word*)t0)[3]; f_5455(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);}}} /* for-each-loop1651 in k6767 in loop in loop in k6729 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6788(C_word t0,C_word t1,C_word 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_6788,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_6798,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:665: g1652 */ t5=((C_word*)t0)[3]; f_6756(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);}}} /* k5782 in map-loop1260 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5784,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5759(t6,((C_word*)t0)[5],t5);} /* k6953 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_6955,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6958,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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:685: ##sys#check-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[120]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[120]+1); av2[1]=t2; av2[2]=((C_word*)t0)[11]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[126]; tp(5,av2);}} else{ /* modules.scm:693: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[104]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[104]+1); av2[1]=((C_word*)t0)[8]; av2[2]=((C_word*)t0)[11]; av2[3]=lf[127]; av2[4]=((C_word*)t0)[2]; tp(5,av2);}}} /* k6956 in k6953 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word 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,3)))){ C_save_and_reclaim((void *)f_6958,2,av);} a=C_alloc(36); t2=C_i_caddr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6963,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word)li104),tmp=(C_word)a,a+=5,tmp); t5=C_a_i_list(&a,3,((C_word*)t0)[4],((C_word*)t0)[5],t3); 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=t4; t12=C_i_check_list_2(((C_word*)t0)[6],lf[16]); t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7006,a[2]=t4,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=t6,a[7]=((C_word*)t0)[10],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|6,a[1]=(C_word)f_7052,a[2]=t9,a[3]=t15,a[4]=t11,a[5]=t10,a[6]=((C_word)li106),tmp=(C_word)a,a+=7,tmp)); t17=((C_word*)t15)[1]; f_7052(t17,t13,((C_word*)t0)[6]);} /* k6729 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_6731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_6731,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_6736,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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)li103),tmp=(C_word)a,a+=10,tmp)); t5=((C_word*)t3)[1]; f_6736(t5,((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_END_OF_LIST,((C_word*)t0)[4]);} /* loop in k6729 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6736(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(12,0,5)))){ C_save_and_reclaim_args((void *)trf_6736,5,t0,t1,t2,t3,t4);} a=C_alloc(12); 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|9,a[1]=(C_word)f_6748,a[2]=((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]=t6,a[9]=((C_word)li101),tmp=(C_word)a,a+=10,tmp)); t8=((C_word*)t6)[1]; f_6748(t8,t1,((C_word*)t0)[7],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_6903,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[8],a[5]=t4,a[6]=((C_word)li102),tmp=(C_word)a,a+=7,tmp); /* modules.scm:661: g1703 */ t8=t7; f_6903(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:683: loop */ t13=t1; t14=t8; t15=t11; t16=t4; t1=t13; t2=t14; t3=t15; t4=t16; goto loop;}}} /* k8128 in k8117 in k8113 in loop2 in loop in k7985 in instantiate-functor in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8130,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_6728(C_word c,C_word *av){ C_word tmp; C_word t0=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_6728,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6731,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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); /* modules.scm:660: ##sys#check-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[120]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[120]+1); av2[1]=t2; av2[2]=((C_word*)t0)[10]; av2[3]=((C_word*)t0)[11]; av2[4]=lf[125]; tp(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6955,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* modules.scm:684: c */ t3=((C_word*)t0)[13];{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[14]; av2[3]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} /* g1652 in loop in loop in k6729 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6756(C_word t0,C_word t1,C_word 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_6756,3,t0,t1,t2);} a=C_alloc(3); t3=t1; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8914,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* modules.scm:593: sprintf */ t5=*((C_word*)lf[118]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=lf[124]; av2[3]=((C_word*)t0)[2]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* ##sys#match-functor-argument in k2972 in k2968 */ 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=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 *a; if(c!=7) C_bad_argc_2(c,7,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_8190,7,av);} a=C_alloc(10); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8194,a[2]=t5,a[3]=t1,a[4]=t6,a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8347,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* modules.scm:872: ##sys#resolve-module-name */ t9=*((C_word*)lf[18]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; av2[2]=t4; av2[3]=lf[3]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* k5751 in k5656 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5753,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5757,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:531: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[26]+1); av2[1]=t3; tp(2,av2);}} /* k5755 in k5751 in k5656 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_5757,2,av);} a=C_alloc(18); /* modules.scm:529: merge-se */ f_4256(((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-loop1260 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_5759(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_5759,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_5784,a[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_5645,a[2]=t8,a[3]=t5,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* modules.scm:526: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[25]+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);}}} /* map-loop1126 in finalize-module in k2972 in k2968 */ static void C_fcall f_5990(C_word t0,C_word t1,C_word t2){ C_word 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_5990,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_6015,a[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_5439,a[2]=t5,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* modules.scm:450: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[25]+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);}}} /* loop in loop in k6729 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6748(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(28,0,4)))){ C_save_and_reclaim_args((void *)trf_6748,5,t0,t1,t2,t3,t4);} a=C_alloc(28); if(C_truep(C_i_nullp(t2))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6756,a[2]=((C_word*)t0)[2],a[3]=((C_word)li97),tmp=(C_word)a,a+=4,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[16]); t12=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6769,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)[2],a[7]=((C_word*)t0)[6],a[8]=t3,a[9]=((C_word*)t0)[7],a[10]=t5,tmp=(C_word)a,a+=11,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_6811,a[2]=t8,a[3]=t14,a[4]=t9,a[5]=((C_word)li99),tmp=(C_word)a,a+=6,tmp)); t16=((C_word*)t14)[1]; f_6811(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_6850,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[8],a[5]=t4,a[6]=((C_word)li100),tmp=(C_word)a,a+=7,tmp); /* modules.scm:663: g1698 */ t8=t7; f_6850(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:676: loop */ t17=t1; t18=t8; t19=t11; t20=t4; t1=t17; t2=t18; t3=t19; t4=t20; goto loop;}}} /* k8192 in match-functor-argument in k2972 in k2968 */ 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 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_8194,2,av);} a=C_alloc(21); t2=t1; t3=C_eqp(((C_word*)t0)[2],lf[148]); if(C_truep(t3)){ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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_8201,a[2]=t2,a[3]=t5,a[4]=((C_word)li140),tmp=(C_word)a,a+=5,tmp); t7=((C_word*)t0)[2]; t8=C_i_check_list_2(t7,lf[30]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8241,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_8322,a[2]=t11,a[3]=t6,a[4]=((C_word)li142),tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_8322(t13,t9,t7);}} /* k5437 in map-loop1126 in finalize-module in k2972 in k2968 */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_assq(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* g2033 in k7739 in k7736 in k7668 in alias-global-hook in k2972 in k2968 */ static void C_fcall f_7704(C_word t0,C_word t1,C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_7704,3,t0,t1,t2);} t3=C_i_cdr(t2); if(C_truep(C_i_pairp(t3))){ /* modules.scm:782: mrename */ t4=((C_word*)t0)[2]; f_7636(t4,t1,((C_word*)t0)[3]);} else{ t4=C_i_getprop(t3,lf[68],C_SCHEME_FALSE); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=(C_truep(t4)?t4:t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 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_5451,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,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]=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_5823,a[2]=t2,a[3]=t7,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[3],a[7]=((C_word)li69),tmp=(C_word)a,a+=8,tmp)); t9=((C_word*)t7)[1]; f_5823(t9,t3,t5);} /* k6979 in ren in k6956 in k6953 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6981,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6985,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:690: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[111]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[111]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} /* k6983 in k6979 in ren in k6956 in k6953 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_6985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6985,2,av);} /* modules.scm:690: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[70]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k5975 in k5966 in loop in k5951 in k5446 in finalize-module in k2972 in k2968 */ static void C_ccall f_5977(C_word c,C_word *av){ C_word tmp; 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_5977,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_ccall f_5469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5469,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_5473,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:496: display */ t5=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[86]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7736 in k7668 in alias-global-hook in k2972 in k2968 */ 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(5,c,2)))){ C_save_and_reclaim((void *)f_7738,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7741,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* modules.scm:777: g2031 */ t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k6713 in map-loop1556 in k6526 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *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=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6690(t6,((C_word*)t0)[5],t5);} /* g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_5455(C_word t0,C_word t1,C_word 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_5455,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_5469,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* modules.scm:494: open-output-string */ t8=*((C_word*)lf[87]+1);{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_5454,2,av);} a=C_alloc(15); t2=t1; t3=(*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)li59),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5608,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:520: module-undefined-list */ t5=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5712 in k5708 in k5697 in k5694 in k5691 in k5685 in k5662 in k5659 in k5656 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_5714,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[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t6=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=C_fix(13); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5708 in k5697 in k5694 in k5691 in k5685 in k5662 in k5659 in k5656 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5710,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5714,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* modules.scm:555: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[25]+1); av2[1]=t3; tp(2,av2);}} /* k5716 in k5697 in k5694 in k5691 in k5685 in k5662 in k5659 in k5656 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5718,2,av);} a=C_alloc(9); /* modules.scm:554: merge-se */ f_4256(((C_word*)t0)[2],C_a_i_list(&a,3,t1,((C_word*)t0)[3],((C_word*)t0)[4]));} /* ##sys#validate-exports in k2972 in k2968 */ 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=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(22,c,3)))){ C_save_and_reclaim((void *)f_7751,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_7754,a[2]=t3,a[3]=((C_word)li128),tmp=(C_word)a,a+=4,tmp)); t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7760,a[2]=t5,a[3]=t2,a[4]=((C_word)li129),tmp=(C_word)a,a+=5,tmp)); t10=C_eqp(lf[148],t2); if(C_truep(t10)){ t11=t2; t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ 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:798: iface */ t11=((C_word*)t7)[1]; f_7760(t11,t1,t2);} else{ if(C_truep(C_i_listp(t2))){ 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_7801,a[2]=t12,a[3]=t7,a[4]=t5,a[5]=t2,a[6]=((C_word)li131),tmp=(C_word)a,a+=7,tmp)); t14=((C_word*)t12)[1]; f_7801(t14,t1,t2);} else{ /* modules.scm:800: err */ t11=((C_word*)t5)[1]; f_7754(t11,t1,C_a_i_list(&a,2,lf[155],t2));}}}} /* err in validate-exports in k2972 in k2968 */ static void C_fcall f_7754(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_7754,3,t0,t1,t2);}{ C_word av2[5]; av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[104]+1); av2[3]=((C_word*)t0)[2]; av2[4]=t2; C_apply(5,av2);}} /* ##sys#finalize-module in k2972 in k2968 */ 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=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_5410,3,av);} a=C_alloc(24); t3=t2; t4=C_i_check_structure_2(t3,lf[3],lf[10]); t5=C_i_block_ref(t3,C_fix(2)); t6=t5; t7=t2; t8=C_i_check_structure_2(t7,lf[3],lf[4]); t9=C_i_block_ref(t7,C_fix(1)); t10=t9; t11=t2; t12=C_i_check_structure_2(t11,lf[3],lf[39]); t13=C_i_block_ref(t11,C_fix(3)); t14=t13; t15=t2; t16=C_i_check_structure_2(t15,lf[3],lf[29]); t17=C_i_block_ref(t15,C_fix(4)); 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[3],lf[44]); t27=C_i_block_ref(t25,C_fix(5)); t28=C_i_check_list_2(t27,lf[16]); t29=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5448,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_5990,a[2]=t23,a[3]=t31,a[4]=t24,a[5]=((C_word)li71),tmp=(C_word)a,a+=6,tmp)); t33=((C_word*)t31)[1]; f_5990(t33,t29,t27);} /* g583 in k3817 in register-undefined in k2972 in k2968 */ static void C_fcall f_3826(C_word 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_3826,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3833,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_3833(t6,C_i_not(t5));} else{ t4=t3; f_3833(t4,C_SCHEME_FALSE);}} /* k3831 in g583 in k3817 in register-undefined in k2972 in k2968 */ static void C_fcall f_3833(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_3833,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);}}} /* k5918 in k5868 in loop in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5920,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_5882,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_5882(t6,C_i_symbolp(t5));} else{ t5=t4; f_5882(t5,C_SCHEME_FALSE);}} /* f8914 in g1652 in loop in loop in k6729 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f8914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8914,2,av);} /* modules.scm:593: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[35]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k8117 in k8113 in loop2 in loop in k7985 in instantiate-functor in k2972 in k2968 */ 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_8119,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_8130,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:850: loop2 */ t7=((C_word*)((C_word*)t0)[6])[1]; f_8093(t7,t4,t6);} /* k8113 in loop2 in loop in k7985 in instantiate-functor in k2972 in k2968 */ static void C_ccall f_8115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,6)))){ C_save_and_reclaim((void *)f_8115,2,av);} a=C_alloc(7); t2=t1; t3=C_u_i_cdr(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8119,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],tmp=(C_word)a,a+=7,tmp); /* modules.scm:849: ##sys#match-functor-argument */ t5=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[7]; av2[4]=t2; av2[5]=t3; av2[6]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} /* map-loop750 in k4345 in k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ static void C_fcall f_4579(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_4579,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_4604,a[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_4604(t9,C_a_i_list(&a,2,lf[55],t8));} else{ t6=C_u_i_car(t4); t7=C_a_i_list(&a,2,lf[55],t6); t8=C_a_i_list(&a,2,lf[55],C_SCHEME_END_OF_LIST); t9=C_u_i_cdr(t4); t10=t3; f_4604(t10,C_a_i_list(&a,4,lf[57],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);}}} /* k4575 in k4345 in k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ 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 t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(36,c,3)))){ C_save_and_reclaim((void *)f_4577,2,av);} a=C_alloc(36); t2=C_a_i_cons(&a,2,lf[57],t1); t3=t2; t4=((C_word*)t0)[2]; t5=C_i_check_structure_2(t4,lf[3],lf[11]); t6=C_i_block_ref(t4,C_fix(10)); t7=C_a_i_list(&a,2,lf[55],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_4448,a[2]=((C_word*)t0)[3],a[3]=((C_word)li32),tmp=(C_word)a,a+=4,tmp); t14=C_i_check_list_2(((C_word*)t0)[4],lf[16]); t15=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4488,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=t8,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,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_4490,a[2]=t11,a[3]=t17,a[4]=t13,a[5]=t12,a[6]=((C_word)li34),tmp=(C_word)a,a+=7,tmp)); t19=((C_word*)t17)[1]; f_4490(t19,t15,((C_word*)t0)[4]);} /* k6773 in k6767 in loop in loop in k6729 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_6775,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:669: values */{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=t3; av2[4]=((C_word*)t0)[7]; av2[5]=((C_word*)t0)[8]; av2[6]=((C_word*)t0)[9]; C_values(7,av2);}} /* k6917 in g1703 in loop in k6729 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_6919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6919,2,av);} /* modules.scm:679: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6736(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* g1703 in loop in k6729 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6903(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_6903,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_6919,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t4,a[5]=t9,tmp=(C_word)a,a+=6,tmp); /* modules.scm:681: ##sys#delq */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[40]+1); av2[1]=t10; av2[2]=t2; av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* k8165 in loop in k7985 in instantiate-functor in k2972 in k2968 */ static void C_ccall f_8167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_8167,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_8178,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:865: loop */ t9=((C_word*)((C_word*)t0)[7])[1]; f_8081(t9,t4,t6,t8);} /* k6767 in loop in loop in k6729 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 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_6769,2,av);} a=C_alloc(17); t2=C_i_check_list_2(t1,lf[30]); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6775,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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=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_6788,a[2]=t5,a[3]=((C_word*)t0)[10],a[4]=((C_word)li98),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_6788(t7,t3,t1);} /* k8176 in k8165 in loop in k7985 in instantiate-functor in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8178,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k4431 in loop in k4486 in k4575 in k4345 in k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ 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 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_4433,2,av);} a=C_alloc(13); t2=C_a_i_list(&a,3,lf[58],((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4423,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:343: loop */ t7=((C_word*)((C_word*)t0)[5])[1]; f_4391(t7,t4,t6);} /* k5966 in loop in k5951 in k5446 in finalize-module in k2972 in k2968 */ static void C_ccall f_5968(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_5968,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_5977,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:458: loop */ t7=((C_word*)((C_word*)t0)[4])[1]; f_5955(t7,t4,t6);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* modules.scm:459: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_5955(t4,((C_word*)t0)[3],t3);}} /* k3662 in k3656 in k3653 in k3650 in register-export in k2972 in k2968 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_3664,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3667,a[2]=((C_word*)t0)[2],a[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_3703,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* modules.scm:199: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[26]+1); av2[1]=t3; tp(2,av2);}} /* k3665 in k3662 in k3656 in k3653 in k3650 in register-export in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_3667,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3670,a[2]=((C_word*)t0)[2],a[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[3],lf[29]); t5=C_i_block_ref(t3,C_fix(4)); 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[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t9=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t2; av2[2]=t7; av2[3]=C_fix(4); av2[4]=t6; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* k5951 in k5446 in finalize-module in k2972 in k2968 */ 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; 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_5953,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_5955,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li70),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_5955(t5,((C_word*)t0)[3],t1);} /* loop in k5951 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_5955(C_word t0,C_word t1,C_word 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_5955,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_5968,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:457: ##sys#find-export */ t5=*((C_word*)lf[42]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)t0)[3]; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k5055 in map-loop912 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ 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 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_5057,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5032(t6,((C_word*)t0)[5],t5);} /* k3668 in k3665 in k3662 in k3656 in k3653 in k3650 in register-export in k2972 in k2968 */ static void C_ccall f_3670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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_3670,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[3],lf[39]); t5=C_i_block_ref(t3,C_fix(3)); 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[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t10=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t7; av2[2]=t8; av2[3]=C_fix(3); av2[4]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* ##sys#register-export in k2972 in k2968 */ 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=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_3642,4,av);} a=C_alloc(5); if(C_truep(t3)){ t4=t3; t5=C_i_check_structure_2(t4,lf[3],lf[10]); t6=C_i_block_ref(t4,C_fix(2)); t7=C_eqp(C_SCHEME_TRUE,t6); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3652,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; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t7; f_3652(2,av2);}} else{ /* modules.scm:192: ##sys#find-export */ t9=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t8; av2[2]=t2; av2[3]=t3; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k5371 in loop in k5341 in find-export in k2972 in k2968 */ static void C_fcall f_5373(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_5373,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:438: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_5345(t4,((C_word*)t0)[2],t3);}} /* g789 in k4575 in k4345 in k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ static void C_fcall f_4448(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_4448,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[55],t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4472,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=C_u_i_cdr(t4); /* modules.scm:329: ##sys#strip-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[59]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[59]+1); av2[1]=t9; av2[2]=t10; tp(3,av2);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_a_i_list(&a,2,lf[55],t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k8392 in k8348 in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8394,2,av);} /* modules.scm:932: ##sys#register-primitive-module */ t2=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[177]; av2[3]=t1; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3650 in register-export in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3652,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3655,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:193: module-undefined-list */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5089 in map-loop884 in k4763 in register-compiled-module in k2972 in k2968 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5091,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5066(t6,((C_word*)t0)[5],t5);} /* k3653 in k3650 in register-export in k2972 in k2968 */ static void C_ccall f_3655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_3655,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3658,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_3718,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)[4]; t6=C_i_check_structure_2(t5,lf[3],lf[4]); t7=C_i_block_ref(t5,C_fix(1)); /* modules.scm:195: ##sys#module-rename */ t8=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k3656 in k3653 in k3650 in register-export in k2972 in k2968 */ static void C_ccall f_3658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_3658,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_3664,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_3714,a[2]=t3,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* modules.scm:198: ##sys#delq */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[40]+1); av2[1]=t4; av2[2]=t2; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} else{ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_3664(2,av2);}}} /* map-loop884 in k4763 in register-compiled-module in k2972 in k2968 */ static void C_fcall f_5066(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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,0,3)))){ C_save_and_reclaim_args((void *)trf_5066,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_5091,a[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_cdr(t4); if(C_truep(C_i_pairp(t6))){ t7=C_u_i_car(t4); t8=C_i_cadr(t4); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4789,a[2]=t5,a[3]=t7,a[4]=t9,tmp=(C_word)a,a+=5,tmp); t11=C_i_caddr(t4); t12=C_u_i_car(t4); /* modules.scm:363: ##sys#ensure-transformer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[64]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[64]+1); av2[1]=t10; av2[2]=t11; av2[3]=t12; tp(4,av2);}} else{ t7=t5;{ C_word av2[2]; av2[0]=t7; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t7+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);}}} /* k7237 in g1832 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_7239(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7239,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(t6)){ t7=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=((C_word*)t0)[3]; t8=C_u_i_car(t7); /* modules.scm:723: ##sys#notice */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[128]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[128]+1); av2[1]=((C_word*)t0)[4]; av2[2]=lf[130]; av2[3]=t8; tp(4,av2);}}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* check-for-redef in k2972 in k2968 */ 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=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,3)))){ C_save_and_reclaim((void *)f_3621,5,av);} a=C_alloc(5); t5=C_i_assq(t2,t3); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3628,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ /* modules.scm:185: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[35]+1); av2[1]=t6; av2[2]=lf[37]; av2[3]=t2; tp(4,av2);}} else{ t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; f_3628(2,av2);}}} /* k3626 in check-for-redef in k2972 in k2968 */ static void C_ccall f_3628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3628,2,av);} if(C_truep(C_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]))){ /* modules.scm:187: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[35]+1); av2[1]=((C_word*)t0)[4]; av2[2]=lf[36]; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* for-each-loop941 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ static void C_fcall f_5001(C_word t0,C_word t1,C_word 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_5001,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_5011,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:376: g942 */ t5=((C_word*)t0)[3]; f_4841(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);}}} /* k4421 in k4431 in loop in k4486 in k4575 in k4345 in k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4423,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k5446 in finalize-module in k2972 in k2968 */ static void C_ccall f_5448(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_5448,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5451,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[3],lf[12]); t7=C_i_block_ref(t5,C_fix(11)); /* modules.scm:454: merge-se */ f_4256(t3,C_a_i_list(&a,2,t7,t2));} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5953,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* modules.scm:455: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[25]+1); av2[1]=t5; tp(2,av2);}}} /* k5592 in for-each-loop1196 in k5569 in k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5594,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5584(t3,((C_word*)t0)[4],t2);} /* k8372 in module-environment in k8363 in k8360 in k8357 in k8354 in k8351 in k8348 in k2972 in k2968 */ static void C_ccall f_8374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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,1)))){ C_save_and_reclaim((void *)f_8374,2,av);} a=C_alloc(5); t2=C_i_check_structure_2(t1,lf[3],lf[27]); t3=C_i_block_ref(t1,C_fix(13)); t4=C_i_car(t3); t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[173],((C_word*)t0)[3],t4,C_SCHEME_TRUE); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k3817 in register-undefined in k2972 in k2968 */ static void C_ccall f_3819(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_3819,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_3826,a[2]=((C_word*)t0)[3],a[3]=((C_word)li25),tmp=(C_word)a,a+=4,tmp); /* modules.scm:229: g583 */ t4=t3; f_3826(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:235: set-module-undefined-list! */ t6=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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:235: set-module-undefined-list! */ t5=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}}}} /* ##sys#register-undefined in k2972 in k2968 */ 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=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_3812,5,av);} a=C_alloc(6); if(C_truep(t3)){ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3819,a[2]=t2,a[3]=t4,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* modules.scm:229: module-undefined-list */ t6=*((C_word*)lf[5]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop912 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ 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 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_5032,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_5057,a[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_4821,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:368: ##sys#ensure-transformer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[64]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[64]+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);}}} /* k5028 in k5024 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_5030,2,av);} a=C_alloc(18); /* modules.scm:371: merge-se */ f_4256(((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]));} /* for-each-loop1196 in k5569 in k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_5584(C_word t0,C_word t1,C_word 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_5584,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_5594,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:501: g1197 */ t5=((C_word*)t0)[3]; f_5572(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);}}} /* k7297 in k7271 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t4; C_word t5; C_word t6; C_word 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_7299,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7306,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[3],lf[29]); t4=C_i_block_ref(((C_word*)t0)[2],C_fix(4)); 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|4,a[1]=(C_word)f_7317,a[2]=t2,a[3]=t5,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_7360,a[2]=t8,a[3]=t12,a[4]=t9,a[5]=((C_word)li113),tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_7360(t14,t10,((C_word*)t0)[5]);} /* g1068 in k5227 in k5164 in register-primitive-module in k2972 in k2968 */ static void C_fcall f_5234(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_5234,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:415: ##sys#error */ t4=*((C_word*)lf[65]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=lf[73]; 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);}}} /* k5574 in g1197 in k5569 in k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5576,2,av);} /* modules.scm:504: display */ t2=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5569 in k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 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_5571,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5572,a[2]=((C_word*)t0)[2],a[3]=((C_word)li57),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_5584,a[2]=t4,a[3]=t2,a[4]=((C_word)li58),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_5584(t6,((C_word*)t0)[3],((C_word*)t0)[4]);} /* g1197 in k5569 in k5477 in k5474 in k5471 in k5467 in g1181 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_5572(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_5572,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5576,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* modules.scm:503: display */ t4=*((C_word*)lf[77]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=lf[84]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k7280 in k7277 in k7271 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_7282(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7282,2,av);} t2=((C_word*)t0)[2]; f_7248(t2,C_SCHEME_UNDEFINED);} /* k7287 in k7277 in k7271 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_7289(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_7289,2,av);} t2=C_i_check_structure_2(((C_word*)t0)[2],lf[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5227 in k5164 in register-primitive-module in k2972 in k2968 */ static void C_ccall f_5229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_5229,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|4,a[1]=(C_word)f_5234,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li49),tmp=(C_word)a,a+=5,tmp); t8=C_i_check_list_2(((C_word*)t0)[4],lf[16]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5256,a[2]=((C_word*)t0)[3],a[3]=t2,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|6,a[1]=(C_word)f_5258,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li50),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_5258(t13,t9,((C_word*)t0)[4]);} /* k5221 in map-loop1035 in k5164 in register-primitive-module in k2972 in k2968 */ static void C_ccall f_5223(C_word c,C_word *av){ C_word tmp; 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_5223,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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-module in k2972 in k2968 */ 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=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 +21,c,1)))){ C_save_and_reclaim((void*)f_3878,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+21); 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_END_OF_LIST: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_END_OF_LIST:C_i_car(t8)); t11=C_i_nullp(t8); t12=(C_truep(t11)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t13=t2; t14=C_a_i_record(&a,14,lf[3],t13,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,t6,t10,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE); t15=C_a_i_cons(&a,2,t2,t14); t16=C_a_i_cons(&a,2,t15,*((C_word*)lf[22]+1)); t17=C_mutate2((C_word*)lf[22]+1 /* (set! ##sys#module-table ...) */,t16); t18=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} /* k4674 in k4329 in compiled-module-registration in k2972 in k2968 */ 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(6,c,1)))){ C_save_and_reclaim((void *)f_4676,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[62],t1); t3=((C_word*)t0)[2]; f_4339(t3,C_a_i_list(&a,1,t2));} /* k5024 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ static void C_ccall f_5026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5026,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5030,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:373: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[26]+1); av2[1]=t3; tp(2,av2);}} /* k5254 in k5227 in k5164 in register-primitive-module in k2972 in k2968 */ 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 t3; C_word 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,2)))){ C_save_and_reclaim((void *)f_5256,2,av);} a=C_alloc(28); t2=((C_word*)t0)[2]; t3=C_a_i_record(&a,14,lf[3],t2,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,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5172,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5188,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5196,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* modules.scm:423: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[26]+1); av2[1]=t7; tp(2,av2);}} /* map-loop1062 in k5227 in k5164 in register-primitive-module in k2972 in k2968 */ static void C_fcall f_5258(C_word t0,C_word t1,C_word 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_5258,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_5283,a[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:412: g1068 */ t5=((C_word*)t0)[4]; f_5234(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);}}} /* k7668 in alias-global-hook in k2972 in k2968 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_i_getprop(t2,lf[68],C_SCHEME_FALSE); if(C_truep(t3)){ t4=((C_word*)t0)[3]; t5=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=((C_word*)t0)[2]; if(C_truep(C_i_getprop(t4,lf[49],C_SCHEME_FALSE))){ t5=((C_word*)t0)[2]; t6=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7738,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:777: ##sys#active-eval-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[141]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[141]+1); av2[1]=t5; tp(2,av2);}}}}} /* k4653 in map-loop724 in k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ 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 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_4655,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4630(t6,((C_word*)t0)[5],t5);} /* k7249 in k7246 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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(8,c,2)))){ C_save_and_reclaim((void *)f_7251,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7258,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_7262,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* modules.scm:749: macro-env */ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k7256 in k7249 in k7246 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7258,2,av);} /* modules.scm:749: macro-env */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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(14,c,3)))){ C_save_and_reclaim((void *)f_7245,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7248,a[2]=((C_word*)t0)[2],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_7273,a[2]=((C_word*)t0)[8],a[3]=t2,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[8])){ t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_7273(2,av2);}} else{ /* modules.scm:727: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[104]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[104]+1); av2[1]=t3; av2[2]=((C_word*)t0)[10]; av2[3]=lf[131]; tp(4,av2);}}} else{ t3=t2; f_7248(t3,C_SCHEME_UNDEFINED);}} /* k7246 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_7248(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_7248,2,t0,t1);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7251,a[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_7266,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_7270,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* modules.scm:748: 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);}} /* k5009 in for-each-loop941 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ static void C_ccall f_5011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5011,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5001(t3,((C_word*)t0)[4],t2);} /* map-loop724 in k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ static void C_fcall f_4630(C_word t0,C_word t1,C_word 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_4630,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_4655,a[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:314: g730 */ 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);}}} /* k4626 in k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4628,2,av);} /* modules.scm:314: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[61]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[61]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* g515 in k3523 in add-to-export-list in k2972 in k2968 */ static C_word C_fcall f_3534(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_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); return(t3);} /* k5900 in k5880 in k5918 in k5868 in loop in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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,3)))){ C_save_and_reclaim((void *)f_5902,2,av);} /* modules.scm:480: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[35]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k5904 in k5880 in k5918 in k5868 in loop in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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,4)))){ C_save_and_reclaim((void *)f_5906,2,av);} /* modules.scm:481: string-append */ t2=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[97]; av2[3]=t1; av2[4]=lf[98]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ static void C_ccall f_4837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4837,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4840,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:375: ##sys#mark-imported-symbols */ t4=*((C_word*)lf[48]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3546 in k3523 in add-to-export-list in k2972 in k2968 */ static void C_ccall f_3548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_3548,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3551,a[2]=((C_word*)t0)[2],a[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_3562,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[3],lf[12]); t6=C_i_block_ref(t4,C_fix(11)); /* modules.scm:173: append */ t7=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(31,c,2)))){ C_save_and_reclaim((void *)f_4831,2,av);} a=C_alloc(31); t2=t1; t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3]; t5=C_a_i_record(&a,14,lf[3],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,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE); t6=t5; t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4837,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=t6,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5026,a[2]=t7,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* modules.scm:372: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[25]+1); av2[1]=t8; tp(2,av2);}} /* k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t3; C_word 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,3)))){ C_save_and_reclaim((void *)f_7202,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7203,a[2]=((C_word*)t0)[2],a[3]=((C_word)li111),tmp=(C_word)a,a+=4,tmp); t3=C_i_check_list_2(((C_word*)t0)[3],lf[30]); t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7245,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); 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_7504,a[2]=t6,a[3]=t2,a[4]=((C_word)li116),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_7504(t8,t4,((C_word*)t0)[3]);} /* g1832 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_7203(C_word 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_7203,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_7239,a[2]=t4,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* modules.scm:721: 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);}} /* k4819 in map-loop912 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_4821,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* g482 in k3461 in k3505 in k3501 in switch-module in k2972 in k2968 */ static void C_fcall f_3491(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_3491,3,t0,t1,t2);} t3=C_i_check_structure_2(t2,lf[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t4=*((C_word*)lf[7]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=C_fix(13); av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k7271 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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(27,c,3)))){ C_save_and_reclaim((void *)f_7273,2,av);} a=C_alloc(27); t2=C_i_check_structure_2(((C_word*)t0)[2],lf[3],lf[10]); t3=C_i_block_ref(((C_word*)t0)[2],C_fix(2)); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7279,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_7299,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_7396,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[3],lf[12]); t9=C_i_block_ref(((C_word*)t0)[2],C_fix(11)); /* modules.scm:730: append */ t10=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t7; av2[2]=((C_word*)t0)[5]; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7407,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[3],lf[10]); t8=C_i_block_ref(((C_word*)t0)[2],C_fix(2)); 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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7421,a[2]=t6,a[3]=t11,a[4]=((C_word*)t0)[5],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_7464,a[2]=t14,a[3]=t18,a[4]=t15,a[5]=((C_word)li115),tmp=(C_word)a,a+=6,tmp)); t20=((C_word*)t18)[1]; f_7464(t20,t16,((C_word*)t0)[6]);}} /* k7268 in k7246 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_7270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7270,2,av);} /* modules.scm:748: append */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7277 in k7271 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_7279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7279,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7282,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7289,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[3],lf[56]); t5=C_i_block_ref(((C_word*)t0)[3],C_fix(12)); /* modules.scm:746: merge-se */ f_4256(t3,C_a_i_list(&a,2,t5,((C_word*)t0)[4]));} /* g499 in k3523 in add-to-export-list in k2972 in k2968 */ static C_word C_fcall f_3526(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:168: g515 */ f_3534(C_a_i(&a,3),((C_word*)t0)[3],t2) ));} else{ t3=C_SCHEME_UNDEFINED; return(t3);}} /* k3523 in add-to-export-list in k2972 in k2968 */ static void C_ccall f_3525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word 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_3525,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_3534,a[2]=t4,a[3]=((C_word)li16),tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3526,a[2]=t2,a[3]=t5,a[4]=((C_word)li17),tmp=(C_word)a,a+=5,tmp); t7=((C_word*)t0)[2]; t8=C_i_check_list_2(t7,lf[30]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3548,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_3568,a[2]=t6,a[3]=t11,a[4]=((C_word)li18),tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_3568(t13,t9,t7);} /* a3287 in k3258 in with-module-aliases in k2972 in k2968 */ 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!=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_3288,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3292,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* modules.scm:124: module-alias-environment390391 */ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* a3281 in k3258 in with-module-aliases in k2972 in k2968 */ static void C_ccall f_3282(C_word c,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_3282,2,av);} /* modules.scm:129: thunk */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k7264 in k7246 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_7266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7266,2,av);} /* modules.scm:748: import-env */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7260 in k7249 in k7246 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7262,2,av);} /* modules.scm:749: append */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4881 in g963 in k4864 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4883,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_set_car(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3476 in k3467 in k3464 in k3461 in k3505 in k3501 in switch-module in k2972 in k2968 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3478,2,av);} t2=C_u_i_cdr(((C_word*)t0)[2]); /* modules.scm:158: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[25]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t2; tp(3,av2);}} /* k3470 in k3467 in k3464 in k3461 in k3505 in k3501 in switch-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3472,2,av);} /* modules.scm:159: ##sys#current-module */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* 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_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_modules_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(2970))){ C_save(t1); C_rereclaim2(2970*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,183); lf[0]=C_h_intern(&lf[0],18,"\003syscurrent-module"); lf[1]=C_h_intern(&lf[1],28,"\003sysmodule-alias-environment"); lf[3]=C_h_intern(&lf[3],6,"module"); lf[4]=C_h_intern(&lf[4],11,"module-name"); lf[5]=C_h_intern(&lf[5],21,"module-undefined-list"); lf[6]=C_h_intern(&lf[6],26,"set-module-undefined-list!"); lf[7]=C_h_intern(&lf[7],14,"\003sysblock-set!"); lf[8]=C_h_intern(&lf[8],15,"\003sysmodule-name"); lf[9]=C_h_intern(&lf[9],18,"\003sysmodule-exports"); lf[10]=C_h_intern(&lf[10],18,"module-export-list"); lf[11]=C_h_intern(&lf[11],15,"module-vexports"); lf[12]=C_h_intern(&lf[12],15,"module-sexports"); lf[13]=C_h_intern(&lf[13],25,"\003sysregister-module-alias"); lf[14]=C_h_intern(&lf[14],23,"\003syswith-module-aliases"); lf[15]=C_h_intern(&lf[15],16,"\003sysdynamic-wind"); lf[16]=C_h_intern(&lf[16],3,"map"); lf[17]=C_h_intern(&lf[17],6,"append"); lf[18]=C_h_intern(&lf[18],23,"\003sysresolve-module-name"); lf[19]=C_h_intern(&lf[19],5,"error"); lf[20]=C_decode_literal(C_heaptop,"\376B\000\000\035module alias refers to itself"); lf[21]=C_h_intern(&lf[21],15,"\003sysfind-module"); lf[22]=C_h_intern(&lf[22],16,"\003sysmodule-table"); lf[23]=C_decode_literal(C_heaptop,"\376B\000\000\020module not found"); lf[24]=C_h_intern(&lf[24],17,"\003sysswitch-module"); lf[25]=C_h_intern(&lf[25],21,"\003sysmacro-environment"); lf[26]=C_h_intern(&lf[26],23,"\003syscurrent-environment"); lf[27]=C_h_intern(&lf[27],25,"module-saved-environments"); lf[28]=C_h_intern(&lf[28],22,"\003sysadd-to-export-list"); lf[29]=C_h_intern(&lf[29],17,"module-exist-list"); lf[30]=C_h_intern(&lf[30],8,"for-each"); lf[31]=C_h_intern(&lf[31],28,"\003systoplevel-definition-hook"); lf[32]=C_h_intern(&lf[32],28,"\003sysregister-meta-expression"); lf[33]=C_h_intern(&lf[33],23,"module-meta-expressions"); lf[34]=C_h_intern(&lf[34],15,"check-for-redef"); lf[35]=C_h_intern(&lf[35],8,"\003syswarn"); lf[36]=C_decode_literal(C_heaptop,"\376B\000\000\047redefinition of imported syntax binding"); lf[37]=C_decode_literal(C_heaptop,"\376B\000\000&redefinition of imported value binding"); lf[38]=C_h_intern(&lf[38],19,"\003sysregister-export"); lf[39]=C_h_intern(&lf[39],19,"module-defined-list"); lf[40]=C_h_intern(&lf[40],8,"\003sysdelq"); lf[41]=C_h_intern(&lf[41],17,"\003sysmodule-rename"); lf[42]=C_h_intern(&lf[42],15,"\003sysfind-export"); lf[43]=C_h_intern(&lf[43],26,"\003sysregister-syntax-export"); lf[44]=C_h_intern(&lf[44],26,"module-defined-syntax-list"); lf[45]=C_decode_literal(C_heaptop,"\376B\000\000!use of syntax precedes definition"); lf[46]=C_h_intern(&lf[46],22,"\003sysregister-undefined"); lf[47]=C_h_intern(&lf[47],19,"\003sysregister-module"); lf[48]=C_h_intern(&lf[48],25,"\003sysmark-imported-symbols"); lf[49]=C_h_intern(&lf[49],12,"\004corealiased"); lf[51]=C_h_intern(&lf[51],32,"\003syscompiled-module-registration"); lf[52]=C_h_intern(&lf[52],19,"module-import-forms"); lf[53]=C_h_intern(&lf[53],24,"module-meta-import-forms"); lf[54]=C_h_intern(&lf[54],10,"\003sysappend"); lf[55]=C_h_intern(&lf[55],5,"quote"); lf[56]=C_h_intern(&lf[56],15,"module-iexports"); lf[57]=C_h_intern(&lf[57],4,"list"); lf[58]=C_h_intern(&lf[58],4,"cons"); lf[59]=C_h_intern(&lf[59],16,"\003sysstrip-syntax"); lf[60]=C_h_intern(&lf[60],28,"\003sysregister-compiled-module"); lf[61]=C_h_intern(&lf[61],16,"\003sysfast-reverse"); lf[62]=C_h_intern(&lf[62],6,"import"); lf[63]=C_h_intern(&lf[63],4,"eval"); lf[64]=C_h_intern(&lf[64],22,"\003sysensure-transformer"); lf[65]=C_h_intern(&lf[65],9,"\003syserror"); lf[66]=C_decode_literal(C_heaptop,"\376B\000\0000cannot find implementation of re-exported syntax"); lf[67]=C_h_intern(&lf[67],19,"\003sysprimitive-alias"); lf[68]=C_h_intern(&lf[68],14,"\004coreprimitive"); lf[69]=C_h_intern(&lf[69],18,"\003sysstring->symbol"); lf[70]=C_h_intern(&lf[70],17,"\003sysstring-append"); lf[71]=C_decode_literal(C_heaptop,"\376B\000\000\002#%"); lf[72]=C_h_intern(&lf[72],29,"\003sysregister-primitive-module"); lf[73]=C_decode_literal(C_heaptop,"\376B\000\0002unknown syntax referenced while registering module"); lf[74]=C_h_intern(&lf[74],19,"\003sysfinalize-module"); lf[75]=C_h_intern(&lf[75],7,"\004coredb"); lf[76]=C_h_intern(&lf[76],17,"get-output-string"); lf[77]=C_h_intern(&lf[77],7,"display"); lf[78]=C_decode_literal(C_heaptop,"\376B\000\000\002)\047"); lf[79]=C_h_intern(&lf[79],5,"cadar"); lf[80]=C_decode_literal(C_heaptop,"\376B\000\000\042\012Warning: suggesting: `(import "); lf[81]=C_h_intern(&lf[81],19,"\003syswrite-char/port"); lf[82]=C_decode_literal(C_heaptop,"\376B\000\000\025\012Warning: (import "); lf[83]=C_decode_literal(C_heaptop,"\376B\000\000\037\012Warning: suggesting one of:"); lf[84]=C_decode_literal(C_heaptop,"\376B\000\000\015\012Warning: "); lf[85]=C_decode_literal(C_heaptop,"\376B\000\000\004 in:"); lf[86]=C_decode_literal(C_heaptop,"\376B\000\000\052reference to possibly unbound identifier `"); lf[87]=C_h_intern(&lf[87],18,"open-output-string"); lf[88]=C_decode_literal(C_heaptop,"\376B\000\000$(internal) indirect export not found"); lf[89]=C_h_intern(&lf[89],13,"string-append"); lf[90]=C_decode_literal(C_heaptop,"\376B\000\000\014 in module `"); lf[91]=C_decode_literal(C_heaptop,"\376B\000\000\001\047"); lf[92]=C_h_intern(&lf[92],14,"symbol->string"); lf[93]=C_decode_literal(C_heaptop,"\376B\000\000!indirect export of syntax binding"); lf[94]=C_decode_literal(C_heaptop,"\376B\000\000\033indirect reexport of syntax"); lf[95]=C_decode_literal(C_heaptop,"\376B\000\000\042indirect export of unknown binding"); lf[96]=C_decode_literal(C_heaptop,"\376B\000\000\021module unresolved"); lf[97]=C_decode_literal(C_heaptop,"\376B\000\000\037exported identifier of module `"); lf[98]=C_decode_literal(C_heaptop,"\376B\000\000\026\047 has not been defined"); lf[99]=C_h_intern(&lf[99],30,"\003sysfind-module/import-library"); lf[100]=C_h_intern(&lf[100],28,"\003syscurrent-meta-environment"); lf[101]=C_h_intern(&lf[101],19,"\003sysnotices-enabled"); lf[102]=C_h_intern(&lf[102],8,"\003sysload"); lf[103]=C_h_intern(&lf[103],26,"\003sysmeta-macro-environment"); lf[104]=C_h_intern(&lf[104],21,"\003syssyntax-error-hook"); lf[105]=C_decode_literal(C_heaptop,"\376B\000\000#cannot import from undefined module"); lf[106]=C_h_intern(&lf[106],18,"\003sysfind-extension"); lf[107]=C_decode_literal(C_heaptop,"\376B\000\000\007.import"); lf[108]=C_h_intern(&lf[108],17,"\003sysexpand-import"); lf[109]=C_h_intern(&lf[109],16,"\004coremacro-alias"); lf[110]=C_decode_literal(C_heaptop,"\376B\000\000\001:"); lf[111]=C_h_intern(&lf[111],18,"\003syssymbol->string"); lf[112]=C_h_intern(&lf[112],14,"number->string"); lf[113]=C_decode_literal(C_heaptop,"\376B\000\000\016invalid prefix"); lf[114]=C_h_intern(&lf[114],8,"keyword\077"); lf[115]=C_decode_literal(C_heaptop,"\376B\000\000\034invalid import specification"); lf[116]=C_decode_literal(C_heaptop,"\376B\000\000\005srfi-"); lf[117]=C_h_intern(&lf[117],18,"\003sysnumber->string"); lf[118]=C_h_intern(&lf[118],7,"sprintf"); lf[119]=C_decode_literal(C_heaptop,"\376B\000\0002imported identifier doesn\047t exist in module ~s: ~s"); lf[120]=C_h_intern(&lf[120],16,"\003syscheck-syntax"); lf[121]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\001\000\000\006symbol\376\377\001\000\000\000\000"); lf[122]=C_decode_literal(C_heaptop,"\376B\000\0002excluded identifier doesn\047t exist in module ~s: ~s"); lf[123]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\001\000\000\006symbol\376\377\001\000\000\000\000"); lf[124]=C_decode_literal(C_heaptop,"\376B\000\0001renamed identifier doesn\047t exist in module ~s: ~s"); lf[125]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\003\000\000\002\376\001\000\000\006symbol\376\003\000\000\002\376\001\000\000\006symbol\376\377\016\376\377\001\000\000\000\000"); lf[126]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\003\000\000\002\376\001\000\000\001_\376\377\016"); lf[127]=C_decode_literal(C_heaptop,"\376B\000\000\034invalid import specification"); lf[128]=C_h_intern(&lf[128],10,"\003sysnotice"); lf[129]=C_decode_literal(C_heaptop,"\376B\000\000(re-importing already imported identifier"); lf[130]=C_decode_literal(C_heaptop,"\376B\000\000$re-importing already imported syntax"); lf[131]=C_decode_literal(C_heaptop,"\376B\000\000%`reexport\047 only valid inside a module"); lf[132]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016"); lf[133]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001_\376\000\000\000\002\376\001\000\000\001_\376\377\001\000\000\000\001"); lf[134]=C_h_intern(&lf[134],4,"srfi"); lf[135]=C_h_intern(&lf[135],6,"prefix"); lf[136]=C_h_intern(&lf[136],6,"except"); lf[137]=C_h_intern(&lf[137],6,"rename"); lf[138]=C_h_intern(&lf[138],4,"only"); lf[139]=C_decode_literal(C_heaptop,"\376B\000\000\001#"); lf[140]=C_h_intern(&lf[140],21,"\003sysalias-global-hook"); lf[141]=C_h_intern(&lf[141],27,"\003sysactive-eval-environment"); lf[142]=C_h_intern(&lf[142],21,"\003sysqualified-symbol\077"); lf[143]=C_h_intern(&lf[143],22,"\003sysregister-interface"); lf[144]=C_h_intern(&lf[144],14,"\004coreinterface"); lf[145]=C_h_intern(&lf[145],20,"\003sysvalidate-exports"); lf[146]=C_decode_literal(C_heaptop,"\376B\000\000\021unknown interface"); lf[147]=C_h_intern(&lf[147],1,"x"); lf[148]=C_h_intern(&lf[148],1,"\052"); lf[149]=C_h_intern(&lf[149],7,"\000syntax"); lf[150]=C_h_intern(&lf[150],10,"\000interface"); lf[151]=C_decode_literal(C_heaptop,"\376B\000\000\037invalid interface specification"); lf[152]=C_decode_literal(C_heaptop,"\376B\000\000\016invalid export"); lf[153]=C_decode_literal(C_heaptop,"\376B\000\000\016invalid export"); lf[154]=C_decode_literal(C_heaptop,"\376B\000\000\017invalid exports"); lf[155]=C_decode_literal(C_heaptop,"\376B\000\000\017invalid exports"); lf[156]=C_h_intern(&lf[156],20,"\003sysregister-functor"); lf[157]=C_h_intern(&lf[157],12,"\004corefunctor"); lf[158]=C_h_intern(&lf[158],23,"\003sysinstantiate-functor"); lf[159]=C_decode_literal(C_heaptop,"\376B\000\000/argument list mismatch in functor instantiation"); lf[160]=C_h_intern(&lf[160],11,"\004coremodule"); lf[161]=C_h_intern(&lf[161],21,"\004corelet-module-alias"); lf[162]=C_h_intern(&lf[162],26,"\003sysmatch-functor-argument"); lf[163]=C_decode_literal(C_heaptop,"\376B\000\000!instantation of undefined functor"); lf[164]=C_decode_literal(C_heaptop,"\376B\000\000\021argument module `"); lf[165]=C_decode_literal(C_heaptop,"\376B\000\000$\047 does not match required signature\012"); lf[166]=C_decode_literal(C_heaptop,"\376B\000\000\022in instantiation `"); lf[167]=C_decode_literal(C_heaptop,"\376B\000\000\016\047 of functor `"); lf[168]=C_decode_literal(C_heaptop,"\376B\000\0007\047, because the following required exports are missing:\012"); lf[169]=C_decode_literal(C_heaptop,"\376B\000\000\003\012 "); lf[170]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003not\376\003\000\000\002\376\001\000\000\010boolean\077\376\003\000\000\002\376\001\000\000\003eq\077\376\003\000\000\002\376\001\000\000\004eqv\077\376\003\000\000\002\376\001\000\000\006equal\077\376\003\000\000\002\376" "\001\000\000\005pair\077\376\003\000\000\002\376\001\000\000\004cons\376\003\000\000\002\376\001\000\000\003car\376\003\000\000\002\376\001\000\000\003cdr\376\003\000\000\002\376\001\000\000\004caar\376\003\000\000\002\376\001\000\000\004cadr\376\003\000" "\000\002\376\001\000\000\004cdar\376\003\000\000\002\376\001\000\000\004cddr\376\003\000\000\002\376\001\000\000\005caaar\376\003\000\000\002\376\001\000\000\005caadr\376\003\000\000\002\376\001\000\000\005cadar\376\003\000\000\002\376\001\000\000\005" "caddr\376\003\000\000\002\376\001\000\000\005cdaar\376\003\000\000\002\376\001\000\000\005cdadr\376\003\000\000\002\376\001\000\000\005cddar\376\003\000\000\002\376\001\000\000\005cdddr\376\003\000\000\002\376\001\000\000\006caaaa" "r\376\003\000\000\002\376\001\000\000\006caaadr\376\003\000\000\002\376\001\000\000\006caadar\376\003\000\000\002\376\001\000\000\006caaddr\376\003\000\000\002\376\001\000\000\006cadaar\376\003\000\000\002\376\001\000\000\006cadad" "r\376\003\000\000\002\376\001\000\000\006caddar\376\003\000\000\002\376\001\000\000\006cadddr\376\003\000\000\002\376\001\000\000\006cdaaar\376\003\000\000\002\376\001\000\000\006cdaadr\376\003\000\000\002\376\001\000\000\006cdada" "r\376\003\000\000\002\376\001\000\000\006cdaddr\376\003\000\000\002\376\001\000\000\006cddaar\376\003\000\000\002\376\001\000\000\006cddadr\376\003\000\000\002\376\001\000\000\006cdddar\376\003\000\000\002\376\001\000\000\006cdddd" "r\376\003\000\000\002\376\001\000\000\010set-car!\376\003\000\000\002\376\001\000\000\010set-cdr!\376\003\000\000\002\376\001\000\000\005null\077\376\003\000\000\002\376\001\000\000\005list\077\376\003\000\000\002\376\001\000\000\004lis" "t\376\003\000\000\002\376\001\000\000\006length\376\003\000\000\002\376\001\000\000\011list-tail\376\003\000\000\002\376\001\000\000\010list-ref\376\003\000\000\002\376\001\000\000\006append\376\003\000\000\002\376\001\000\000\007" "reverse\376\003\000\000\002\376\001\000\000\004memq\376\003\000\000\002\376\001\000\000\004memv\376\003\000\000\002\376\001\000\000\006member\376\003\000\000\002\376\001\000\000\004assq\376\003\000\000\002\376\001\000\000\004assv\376" "\003\000\000\002\376\001\000\000\005assoc\376\003\000\000\002\376\001\000\000\007symbol\077\376\003\000\000\002\376\001\000\000\016symbol->string\376\003\000\000\002\376\001\000\000\016string->symbol\376" "\003\000\000\002\376\001\000\000\007number\077\376\003\000\000\002\376\001\000\000\010integer\077\376\003\000\000\002\376\001\000\000\006exact\077\376\003\000\000\002\376\001\000\000\005real\077\376\003\000\000\002\376\001\000\000\010compl" "ex\077\376\003\000\000\002\376\001\000\000\010inexact\077\376\003\000\000\002\376\001\000\000\011rational\077\376\003\000\000\002\376\001\000\000\005zero\077\376\003\000\000\002\376\001\000\000\004odd\077\376\003\000\000\002\376\001\000\000\005e" "ven\077\376\003\000\000\002\376\001\000\000\011positive\077\376\003\000\000\002\376\001\000\000\011negative\077\376\003\000\000\002\376\001\000\000\003max\376\003\000\000\002\376\001\000\000\003min\376\003\000\000\002\376\001\000\000\001+\376" "\003\000\000\002\376\001\000\000\001-\376\003\000\000\002\376\001\000\000\001\052\376\003\000\000\002\376\001\000\000\001/\376\003\000\000\002\376\001\000\000\001=\376\003\000\000\002\376\001\000\000\001>\376\003\000\000\002\376\001\000\000\001<\376\003\000\000\002\376\001\000\000\002>=\376\003\000" "\000\002\376\001\000\000\002<=\376\003\000\000\002\376\001\000\000\010quotient\376\003\000\000\002\376\001\000\000\011remainder\376\003\000\000\002\376\001\000\000\006modulo\376\003\000\000\002\376\001\000\000\003gcd\376\003\000\000\002" "\376\001\000\000\003lcm\376\003\000\000\002\376\001\000\000\003abs\376\003\000\000\002\376\001\000\000\005floor\376\003\000\000\002\376\001\000\000\007ceiling\376\003\000\000\002\376\001\000\000\010truncate\376\003\000\000\002\376\001\000\000" "\005round\376\003\000\000\002\376\001\000\000\016exact->inexact\376\003\000\000\002\376\001\000\000\016inexact->exact\376\003\000\000\002\376\001\000\000\003exp\376\003\000\000\002\376\001\000\000\003log" "\376\003\000\000\002\376\001\000\000\004expt\376\003\000\000\002\376\001\000\000\004sqrt\376\003\000\000\002\376\001\000\000\003sin\376\003\000\000\002\376\001\000\000\003cos\376\003\000\000\002\376\001\000\000\003tan\376\003\000\000\002\376\001\000\000\004asi" "n\376\003\000\000\002\376\001\000\000\004acos\376\003\000\000\002\376\001\000\000\004atan\376\003\000\000\002\376\001\000\000\016number->string\376\003\000\000\002\376\001\000\000\016string->number\376\003\000" "\000\002\376\001\000\000\005char\077\376\003\000\000\002\376\001\000\000\006char=\077\376\003\000\000\002\376\001\000\000\006char>\077\376\003\000\000\002\376\001\000\000\006char<\077\376\003\000\000\002\376\001\000\000\007char>=\077\376\003\000" "\000\002\376\001\000\000\007char<=\077\376\003\000\000\002\376\001\000\000\011char-ci=\077\376\003\000\000\002\376\001\000\000\011char-ci<\077\376\003\000\000\002\376\001\000\000\011char-ci>\077\376\003\000\000\002\376\001\000\000" "\012char-ci>=\077\376\003\000\000\002\376\001\000\000\012char-ci<=\077\376\003\000\000\002\376\001\000\000\020char-alphabetic\077\376\003\000\000\002\376\001\000\000\020char-whitespa" "ce\077\376\003\000\000\002\376\001\000\000\015char-numeric\077\376\003\000\000\002\376\001\000\000\020char-upper-case\077\376\003\000\000\002\376\001\000\000\020char-lower-case\077\376\003" "\000\000\002\376\001\000\000\013char-upcase\376\003\000\000\002\376\001\000\000\015char-downcase\376\003\000\000\002\376\001\000\000\015char->integer\376\003\000\000\002\376\001\000\000\015integ" "er->char\376\003\000\000\002\376\001\000\000\007string\077\376\003\000\000\002\376\001\000\000\010string=\077\376\003\000\000\002\376\001\000\000\010string>\077\376\003\000\000\002\376\001\000\000\010string<\077\376" "\003\000\000\002\376\001\000\000\011string>=\077\376\003\000\000\002\376\001\000\000\011string<=\077\376\003\000\000\002\376\001\000\000\013string-ci=\077\376\003\000\000\002\376\001\000\000\013string-ci<\077\376" "\003\000\000\002\376\001\000\000\013string-ci>\077\376\003\000\000\002\376\001\000\000\014string-ci>=\077\376\003\000\000\002\376\001\000\000\014string-ci<=\077\376\003\000\000\002\376\001\000\000\013make-s" "tring\376\003\000\000\002\376\001\000\000\015string-length\376\003\000\000\002\376\001\000\000\012string-ref\376\003\000\000\002\376\001\000\000\013string-set!\376\003\000\000\002\376\001\000\000\015s" "tring-append\376\003\000\000\002\376\001\000\000\013string-copy\376\003\000\000\002\376\001\000\000\014string->list\376\003\000\000\002\376\001\000\000\014list->string\376\003\000" "\000\002\376\001\000\000\011substring\376\003\000\000\002\376\001\000\000\014string-fill!\376\003\000\000\002\376\001\000\000\007vector\077\376\003\000\000\002\376\001\000\000\013make-vector\376\003\000\000" "\002\376\001\000\000\012vector-ref\376\003\000\000\002\376\001\000\000\013vector-set!\376\003\000\000\002\376\001\000\000\006string\376\003\000\000\002\376\001\000\000\006vector\376\003\000\000\002\376\001\000\000\015v" "ector-length\376\003\000\000\002\376\001\000\000\014vector->list\376\003\000\000\002\376\001\000\000\014list->vector\376\003\000\000\002\376\001\000\000\014vector-fill!\376\003" "\000\000\002\376\001\000\000\012procedure\077\376\003\000\000\002\376\001\000\000\003map\376\003\000\000\002\376\001\000\000\010for-each\376\003\000\000\002\376\001\000\000\005apply\376\003\000\000\002\376\001\000\000\005force\376" "\003\000\000\002\376\001\000\000\036call-with-current-continuation\376\003\000\000\002\376\001\000\000\013input-port\077\376\003\000\000\002\376\001\000\000\014output-por" "t\077\376\003\000\000\002\376\001\000\000\022current-input-port\376\003\000\000\002\376\001\000\000\023current-output-port\376\003\000\000\002\376\001\000\000\024call-with-i" "nput-file\376\003\000\000\002\376\001\000\000\025call-with-output-file\376\003\000\000\002\376\001\000\000\017open-input-file\376\003\000\000\002\376\001\000\000\020open-" "output-file\376\003\000\000\002\376\001\000\000\020close-input-port\376\003\000\000\002\376\001\000\000\021close-output-port\376\003\000\000\002\376\001\000\000\004load\376\003" "\000\000\002\376\001\000\000\004read\376\003\000\000\002\376\001\000\000\013eof-object\077\376\003\000\000\002\376\001\000\000\011read-char\376\003\000\000\002\376\001\000\000\011peek-char\376\003\000\000\002\376\001\000\000" "\005write\376\003\000\000\002\376\001\000\000\007display\376\003\000\000\002\376\001\000\000\012write-char\376\003\000\000\002\376\001\000\000\007newline\376\003\000\000\002\376\001\000\000\024with-input" "-from-file\376\003\000\000\002\376\001\000\000\023with-output-to-file\376\003\000\000\002\376\001\000\000\004eval\376\003\000\000\002\376\001\000\000\013char-ready\077\376\003\000\000\002\376" "\001\000\000\011imag-part\376\003\000\000\002\376\001\000\000\011real-part\376\003\000\000\002\376\001\000\000\011magnitude\376\003\000\000\002\376\001\000\000\011numerator\376\003\000\000\002\376\001\000\000\013" "denominator\376\003\000\000\002\376\001\000\000\005angle\376\003\000\000\002\376\001\000\000\031scheme-report-environment\376\003\000\000\002\376\001\000\000\020null-envi" "ronment\376\003\000\000\002\376\001\000\000\027interaction-environment\376\003\000\000\002\376\001\000\000\004else\376\377\016"); lf[171]=C_h_intern(&lf[171],29,"\003sysdefault-macro-environment"); lf[172]=C_h_intern(&lf[172],18,"module-environment"); lf[173]=C_h_intern(&lf[173],11,"environment"); lf[174]=C_h_intern(&lf[174],17,"register-feature!"); lf[175]=C_h_intern(&lf[175],19,"module-environments"); lf[176]=C_h_intern(&lf[176],4,"r5rs"); lf[177]=C_h_intern(&lf[177],6,"scheme"); lf[178]=C_h_intern(&lf[178],9,"r5rs-null"); lf[179]=C_h_intern(&lf[179],9,"r4rs-null"); lf[180]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\014dynamic-wind\376\003\000\000\002\376\001\000\000\006values\376\003\000\000\002\376\001\000\000\020call-with-values\376\377\016"); lf[181]=C_h_intern(&lf[181],4,"r4rs"); lf[182]=C_h_intern(&lf[182],14,"make-parameter"); C_register_lf2(lf,183,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2970,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* modules.scm:72: make-parameter */ t3=*((C_word*)lf[182]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* ##sys#add-to-export-list in k2972 in k2968 */ 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=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_3509,4,av);} a=C_alloc(6); t4=t2; t5=C_i_check_structure_2(t4,lf[3],lf[10]); t6=C_i_block_ref(t4,C_fix(2)); t7=C_eqp(t6,C_SCHEME_TRUE); if(C_truep(t7)){ t8=t2; t9=C_i_check_structure_2(t8,lf[3],lf[29]); t10=C_i_block_ref(t8,C_fix(4)); t11=t10; t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3525,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t11,tmp=(C_word)a,a+=6,tmp); /* modules.scm:165: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[25]+1); av2[1]=t12; tp(2,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3596,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* modules.scm:175: append */ t9=*((C_word*)lf[17]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; av2[2]=t6; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}} /* k3505 in k3501 in switch-module in k2972 in k2968 */ 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3507,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_3463,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:150: ##sys#current-module */ t5=*((C_word*)lf[0]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k3501 in switch-module in k2972 in k2968 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3503,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3507,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:149: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[25]+1); av2[1]=t3; tp(2,av2);}} /* loop in resolve-module-name in k2972 in k2968 */ static void C_fcall f_3365(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_3365,4,t0,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3400,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:133: ##sys#module-alias-environment */ t5=*((C_word*)lf[1]+1);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k4851 in g942 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4853,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_i_set_car(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ static void C_ccall f_4840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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_4840,2,av);} a=C_alloc(21); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4841,a[2]=((C_word*)t0)[2],a[3]=((C_word)li38),tmp=(C_word)a,a+=4,tmp); t3=C_i_check_list_2(((C_word*)t0)[3],lf[30]); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4866,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); 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_5001,a[2]=t6,a[3]=t2,a[4]=((C_word)li43),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_5001(t8,t4,((C_word*)t0)[3]);} /* g942 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ static void C_fcall f_4841(C_word t0,C_word 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_4841,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_4853,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_i_cadr(t2); if(C_truep(t6)){ /* modules.scm:378: merge-se */ f_4256(t5,C_a_i_list(&a,2,t6,((C_word*)t0)[2]));} else{ /* modules.scm:378: merge-se */ f_4256(t5,C_a_i_list(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]));}} /* ##sys#resolve-module-name in k2972 in k2968 */ 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=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_3359,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_3365,a[2]=t3,a[3]=t2,a[4]=t5,a[5]=((C_word)li11),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_3365(t7,t1,t2,C_SCHEME_END_OF_LIST);} /* k3293 in k3290 in a3287 in k3258 in with-module-aliases in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3295,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3290 in a3287 in k3258 in with-module-aliases in k2972 in k2968 */ static void C_ccall f_3292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3292,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3295,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* modules.scm:124: module-alias-environment390391 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4696 in compiled-module-registration in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_4698,2,av);} a=C_alloc(18); t2=C_a_i_cons(&a,2,lf[62],t1); t3=C_a_i_list(&a,2,lf[55],t2); t4=C_a_i_list(&a,2,lf[63],t3); t5=((C_word*)t0)[2]; f_4331(t5,C_a_i_list(&a,1,t4));} /* k3603 in register-meta-expression in k2972 in k2968 */ static void C_ccall f_3605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_3605,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_i_check_structure_2(t1,lf[3],lf[33]); t3=C_i_block_ref(t1,C_fix(9)); 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[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t7=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=t1; av2[3]=C_fix(9); av2[4]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* ##sys#register-meta-expression in k2972 in k2968 */ 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=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_3601,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3605,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* modules.scm:180: ##sys#current-module */ t4=*((C_word*)lf[0]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop400 in with-module-aliases in k2972 in k2968 */ static void C_fcall f_3325(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word 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_3325,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_mutate2(((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);}}} /* k3321 in k3317 in with-module-aliases in k2972 in k2968 */ static void C_ccall f_3323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3323,2,av);} /* modules.scm:126: append */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3274 in k3271 in k3267 in a3264 in k3258 in with-module-aliases in k2972 in k2968 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3276,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3271 in k3267 in a3264 in k3258 in with-module-aliases in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_3273,2,av);} a=C_alloc(4); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3276,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* modules.scm:124: module-alias-environment390391 */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5190 in k5186 in k5254 in k5227 in k5164 in register-primitive-module in k2972 in k2968 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_5192,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[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(13); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k5194 in k5254 in k5227 in k5164 in register-primitive-module in k2972 in k2968 */ static void C_ccall f_5196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_5196,2,av);} a=C_alloc(9); t2=C_i_check_structure_2(((C_word*)t0)[2],lf[3],lf[11]); t3=C_i_block_ref(((C_word*)t0)[2],C_fix(10)); t4=C_i_check_structure_2(((C_word*)t0)[2],lf[3],lf[12]); t5=C_i_block_ref(((C_word*)t0)[2],C_fix(11)); /* modules.scm:423: merge-se */ f_4256(((C_word*)t0)[3],C_a_i_list(&a,3,t1,t3,t5));} /* for-each-loop1600 in loop in loop in k6535 in k6526 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6585(C_word t0,C_word t1,C_word 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_6585,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_6595,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:644: g1601 */ t5=((C_word*)t0)[3]; f_6562(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);}}} /* k4803 in k4763 in register-compiled-module in k2972 in k2968 */ 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 t4; C_word 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_4805,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[16]); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4831,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|5,a[1]=(C_word)f_5032,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_5032(t12,t8,((C_word*)t0)[2]);} /* k5186 in k5254 in k5227 in k5164 in register-primitive-module in k2972 in k2968 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5188,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5192,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* modules.scm:426: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[25]+1); av2[1]=t3; tp(2,av2);}} /* k6570 in loop in loop in k6535 in k6526 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_6572,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:648: values */{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=t3; av2[4]=((C_word*)t0)[7]; av2[5]=((C_word*)t0)[8]; av2[6]=((C_word*)t0)[9]; C_values(7,av2);}} /* k3317 in with-module-aliases in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3319,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3323,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* modules.scm:128: ##sys#module-alias-environment */ t4=*((C_word*)lf[1]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5170 in k5254 in k5227 in k5164 in register-primitive-module in k2972 in k2968 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_5172,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[22]+1)); t4=C_mutate2((C_word*)lf[22]+1 /* (set! ##sys#module-table ...) */,t3); t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* g963 in k4864 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ static void C_fcall f_4867(C_word t0,C_word t1,C_word 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_4867,3,t0,t1,t2);} a=C_alloc(10); 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_4883,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_i_cadr(t2); if(C_truep(t7)){ /* modules.scm:383: merge-se */ f_4256(t6,C_a_i_list(&a,2,t7,((C_word*)t0)[2]));} else{ /* modules.scm:383: merge-se */ f_4256(t6,C_a_i_list(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]));}} 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);}}} /* k4864 in k4838 in k4835 in k4829 in k4803 in k4763 in register-compiled-module in k2972 in k2968 */ static void C_ccall f_4866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,3)))){ C_save_and_reclaim((void *)f_4866,2,av);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4867,a[2]=((C_word*)t0)[2],a[3]=((C_word)li39),tmp=(C_word)a,a+=4,tmp); t3=C_i_check_list_2(((C_word*)t0)[3],lf[30]); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4900,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],tmp=(C_word)a,a+=9,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_4978,a[2]=t6,a[3]=t2,a[4]=((C_word)li42),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_4978(t8,t4,((C_word*)t0)[3]);} /* k3549 in k3546 in k3523 in add-to-export-list in k2972 in k2968 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3551,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3558,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* modules.scm:174: append */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3556 in k3549 in k3546 in k3523 in add-to-export-list in k2972 in k2968 */ 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(0,c,4)))){ C_save_and_reclaim((void *)f_3558,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_i_check_structure_2(t3,lf[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t5=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t3; av2[3]=C_fix(4); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k6593 in for-each-loop1600 in loop in loop in k6535 in k6526 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6595,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6585(t3,((C_word*)t0)[4],t2);} /* k7912 in loop2 in loop in validate-exports in k2972 in k2968 */ static void C_ccall f_7914(C_word c,C_word *av){ C_word tmp; 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_7914,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* k3560 in k3546 in k3523 in add-to-export-list in k2972 in k2968 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3562,2,av);} t2=((C_word*)t0)[2]; t3=C_i_check_structure_2(t2,lf[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_fix(11); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* for-each-loop498 in k3523 in add-to-export-list in k2972 in k2968 */ static void C_fcall f_3568(C_word t0,C_word t1,C_word 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_3568,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:164: g499 */ f_3526(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);}}} /* module-name in k2972 in k2968 */ 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=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_2988,3,av);} t3=C_i_check_structure_2(t2,lf[3],lf[4]); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5856 in k5852 in loop in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_ccall f_5858(C_word c,C_word *av){ C_word tmp; 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_5858,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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);}} /* g1548 in loop in k6365 in k6356 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6453(C_word t0,C_word t1,C_word 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_6453,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:634: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_6372(t5,t1,t3,((C_word*)t0)[5],t4,((C_word*)t0)[6]);} /* k5868 in loop in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_5870(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_5870,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_5854(t3,C_a_i_cons(&a,2,((C_word*)t0)[4],t2));} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5920,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:474: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[26]+1); av2[1]=t2; tp(2,av2);}}} /* k4602 in map-loop750 in k4345 in k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ static void C_fcall f_4604(C_word 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_4604,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_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4579(t6,((C_word*)t0)[5],t5);} /* k2968 */ 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; 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=C_mutate2((C_word*)lf[0]+1 /* (set! ##sys#current-module ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2974,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:73: make-parameter */ t4=*((C_word*)lf[182]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* loop in k6365 in k6356 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6372(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(21,0,5)))){ C_save_and_reclaim_args((void *)trf_6372,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(21); if(C_truep(C_i_nullp(t2))){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6380,a[2]=((C_word*)t0)[2],a[3]=((C_word)li84),tmp=(C_word)a,a+=4,tmp); t7=t5; t8=C_i_check_list_2(t7,lf[30]); t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6390,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)[2],a[7]=t3,a[8]=t4,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|4,a[1]=(C_word)f_6403,a[2]=t11,a[3]=t6,a[4]=((C_word)li85),tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_6403(t13,t9,t7);} else{ t6=C_i_car(t2); t7=C_i_assq(t6,((C_word*)t0)[7]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6431,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[8],a[5]=t4,a[6]=t5,a[7]=((C_word)li86),tmp=(C_word)a,a+=8,tmp); /* modules.scm:621: g1544 */ t9=t8; f_6431(t9,t1,t7);} else{ t8=t2; t9=C_u_i_car(t8); t10=C_i_assq(t9,((C_word*)t0)[9]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6453,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[8],a[5]=t3,a[6]=t5,a[7]=((C_word)li87),tmp=(C_word)a,a+=8,tmp); /* modules.scm:621: g1548 */ t12=t11; f_6453(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:636: loop */ t17=t1; t18=t12; t19=t3; t20=t4; t21=t15; t1=t17; t2=t18; t3=t19; t4=t20; t5=t21; goto loop;}}}} /* k4195 in g676 in k4238 in k4248 in loop2 in loop in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4197,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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 k2972 in k2968 */ 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=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_7956,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; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_a_i_putprop(&a,3,t2,lf[157],t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k2972 in k2968 */ 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 t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(110,c,10)))){ C_save_and_reclaim((void *)f_2974,2,av);} a=C_alloc(110); t2=C_mutate2((C_word*)lf[1]+1 /* (set! ##sys#module-alias-environment ...) */,t1); t3=C_mutate2(&lf[2] /* (set! module-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2988,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[5]+1 /* (set! module-undefined-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3069,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[6]+1 /* (set! set-module-undefined-list! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3078,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[8]+1 /* (set! ##sys#module-name ...) */,lf[2]); t7=C_mutate2((C_word*)lf[9]+1 /* (set! ##sys#module-exports ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3214,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[13]+1 /* (set! ##sys#register-module-alias ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3238,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[14]+1 /* (set! ##sys#with-module-aliases ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3256,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2((C_word*)lf[18]+1 /* (set! ##sys#resolve-module-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3359,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[21]+1 /* (set! ##sys#find-module ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3402,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t12=C_SCHEME_FALSE; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_mutate2((C_word*)lf[24]+1 /* (set! ##sys#switch-module ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3456,a[2]=t13,a[3]=((C_word)li15),tmp=(C_word)a,a+=4,tmp)); t15=C_mutate2((C_word*)lf[28]+1 /* (set! ##sys#add-to-export-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3509,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[31]+1 /* (set! ##sys#toplevel-definition-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3598,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[32]+1 /* (set! ##sys#register-meta-expression ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3601,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2((C_word*)lf[34]+1 /* (set! check-for-redef ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3621,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2((C_word*)lf[38]+1 /* (set! ##sys#register-export ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3642,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2((C_word*)lf[43]+1 /* (set! ##sys#register-syntax-export ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3731,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate2((C_word*)lf[46]+1 /* (set! ##sys#register-undefined ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3812,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate2((C_word*)lf[47]+1 /* (set! ##sys#register-module ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3878,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate2((C_word*)lf[48]+1 /* (set! ##sys#mark-imported-symbols ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3928,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate2(&lf[50] /* (set! merge-se ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4256,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate2((C_word*)lf[51]+1 /* (set! ##sys#compiled-module-registration ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4308,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate2((C_word*)lf[60]+1 /* (set! ##sys#register-compiled-module ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4700,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate2((C_word*)lf[67]+1 /* (set! ##sys#primitive-alias ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5140,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate2((C_word*)lf[72]+1 /* (set! ##sys#register-primitive-module ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5159,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate2((C_word*)lf[42]+1 /* (set! ##sys#find-export ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5332,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate2((C_word*)lf[74]+1 /* (set! ##sys#finalize-module ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5410,a[2]=((C_word)li72),tmp=(C_word)a,a+=3,tmp)); t31=C_set_block_item(lf[22] /* ##sys#module-table */,0,C_SCHEME_END_OF_LIST); t32=C_mutate2((C_word*)lf[99]+1 /* (set! ##sys#find-module/import-library ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6025,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate2((C_word*)lf[108]+1 /* (set! ##sys#expand-import ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6177,a[2]=((C_word)li121),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate2((C_word*)lf[41]+1 /* (set! ##sys#module-rename ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7615,a[2]=((C_word)li122),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate2((C_word*)lf[140]+1 /* (set! ##sys#alias-global-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7633,a[2]=((C_word)li126),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate2((C_word*)lf[143]+1 /* (set! ##sys#register-interface ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7743,a[2]=((C_word)li127),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate2((C_word*)lf[145]+1 /* (set! ##sys#validate-exports ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7751,a[2]=((C_word)li132),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate2((C_word*)lf[156]+1 /* (set! ##sys#register-functor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7956,a[2]=((C_word)li133),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate2((C_word*)lf[158]+1 /* (set! ##sys#instantiate-functor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7972,a[2]=((C_word)li139),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate2((C_word*)lf[162]+1 /* (set! ##sys#match-functor-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8190,a[2]=((C_word)li143),tmp=(C_word)a,a+=3,tmp)); t41=lf[170]; t42=*((C_word*)lf[171]+1); t43=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8350,a[2]=((C_word*)t0)[2],a[3]=t42,a[4]=t41,tmp=(C_word)a,a+=5,tmp); /* modules.scm:931: ##sys#register-primitive-module */ t44=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t44; av2[1]=t43; av2[2]=lf[181]; av2[3]=t41; av2[4]=*((C_word*)lf[171]+1); ((C_proc)(void*)(*((C_word*)t44+1)))(5,av2);}} /* k5865 in loop in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_5867,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_5854(t2,C_a_i_cons(&a,2,((C_word*)t0)[3],t1));} /* loop2 in loop in validate-exports in k2972 in k2968 */ static void C_fcall f_7900(C_word t0,C_word t1,C_word 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_7900,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_7914,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:819: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_7801(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:820: loop2 */ t7=t1; t8=t5; t1=t7; t2=t8; goto loop;} else{ /* modules.scm:821: err */ t4=((C_word*)((C_word*)t0)[6])[1]; f_7754(t4,t1,C_a_i_list(&a,3,lf[152],((C_word*)t0)[2],((C_word*)t0)[7]));}}} /* k7075 in map-loop1716 in k6956 in k6953 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_7077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7077,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7052(t6,((C_word*)t0)[5],t5);} /* ##sys#instantiate-functor in k2972 in k2968 */ static void C_ccall f_7972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_7972,5,av);} a=C_alloc(18); t5=t3; t6=C_i_getprop(t5,lf[157],C_SCHEME_FALSE); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7980,a[2]=t2,a[3]=((C_word)li134),tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7987,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; /* Re-use our own argvector */ av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; f_7987(2,av2);}} else{ /* modules.scm:830: err */ t10=t8; f_7980(t10,t9,C_a_i_list(&a,2,lf[163],t3));}} /* k6411 in for-each-loop1523 in loop in k6365 in k6356 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6413,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6403(t3,((C_word*)t0)[4],t2);} /* loop in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_4075(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; 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_4075,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:270: 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_4102,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)li66),tmp=(C_word)a,a+=9,tmp)); t8=((C_word*)t6)[1]; f_4102(t8,t1,t4);}}} /* k6388 in loop in k6365 in k6356 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_6390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6390,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:628: values */{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=t3; av2[4]=((C_word*)t0)[7]; av2[5]=((C_word*)t0)[8]; av2[6]=((C_word*)t0)[9]; C_values(7,av2);}} /* for-each-loop1523 in loop in k6365 in k6356 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6403(C_word t0,C_word t1,C_word 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_6403,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_6413,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:624: g1524 */ t5=((C_word*)t0)[3]; f_6380(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);}}} /* k4062 in warn in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4064,2,av);} /* modules.scm:264: string-append */ t2=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[90]; av2[4]=t1; av2[5]=lf[91]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* g1524 in loop in k6365 in k6356 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6380(C_word t0,C_word t1,C_word 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_6380,3,t0,t1,t2);} a=C_alloc(3); t3=t1; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8886,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* modules.scm:593: sprintf */ t5=*((C_word*)lf[118]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=lf[119]; av2[3]=((C_word*)t0)[2]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k4058 in warn in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4060,2,av);} /* modules.scm:263: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[35]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* map-loop1716 in k6956 in k6953 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_7052(C_word t0,C_word t1,C_word 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_7052,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_7077,a[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:692: g1722 */ 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);}}} /* loop in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_5823(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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_5823,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:467: loop */ t14=t1; t15=t8; t1=t14; t2=t15; goto loop;} else{ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5854,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_5867,a[2]=t7,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5870,a[2]=t9,a[3]=t7,a[4]=t6,a[5]=t10,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(t9)){ t12=C_i_cdr(t9); t13=t11; f_5870(t13,C_i_symbolp(t12));} else{ t12=t11; f_5870(t12,C_SCHEME_FALSE);}}}} /* loop in k4486 in k4575 in k4345 in k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ static void C_fcall f_4391(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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_4391,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:339: 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[55],t7); t9=t8; t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4433,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:342: ##sys#strip-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[59]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[59]+1); av2[1]=t10; av2[2]=t13; tp(3,av2);}}}} /* merr in k7985 in instantiate-functor in k2972 in k2968 */ static void C_fcall f_7997(C_word t0,C_word t1){ C_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_7997,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[16]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8019,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_8021,a[2]=t6,a[3]=t11,a[4]=t7,a[5]=((C_word)li135),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_8021(t13,t9,((C_word*)t0)[4]);} /* warn in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_4052(C_word 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_4052,4,t0,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4060,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4064,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* modules.scm:264: symbol->string */ t6=*((C_word*)lf[92]+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);}} /* tostr in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6214(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_6214,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_6227,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* modules.scm:596: keyword? */ t4=*((C_word*)lf[114]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k7041 in map-loop1742 in k7004 in k6956 in k6953 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_7043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_7043,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7018(t6,((C_word*)t0)[5],t5);} /* k5852 in loop in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_5854(C_word 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_5854,2,t0,t1);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5858,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:488: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_5823(t6,t3,t5);} /* k4377 in k4486 in k4575 in k4345 in k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4379,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_4375(t2,C_a_i_cons(&a,2,lf[57],t1));} /* k4373 in k4486 in k4575 in k4345 in k4337 in k4329 in compiled-module-registration in k2972 in k2968 */ static void C_fcall f_4375(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(21,0,3)))){ C_save_and_reclaim_args((void *)trf_4375,2,t0,t1);} a=C_alloc(21); t2=C_a_i_list(&a,6,lf[60],((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1); t3=C_a_i_list(&a,1,t2); /* modules.scm:306: ##sys#append */ t4=*((C_word*)lf[54]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=((C_word*)t0)[6]; av2[2]=((C_word*)t0)[7]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_6187,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,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]=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); /* modules.scm:588: r */ t4=((C_word*)t0)[12];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[135]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k6179 in expand-import in k2972 in k2968 */ 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(12,c,2)))){ C_save_and_reclaim((void *)f_6181,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6184,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); /* modules.scm:586: r */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[137]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k6232 in k6225 in tostr in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6234,2,av);} /* modules.scm:596: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[70]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[110]; tp(4,av2);}} /* k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_6184,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6187,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); /* modules.scm:587: r */ t4=((C_word*)t0)[11];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[136]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k6259 in import-name in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 t3; 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_6261,2,av);} t2=C_i_check_structure_2(t1,lf[3],lf[11]); t3=C_i_block_ref(t1,C_fix(10)); t4=C_i_check_structure_2(t1,lf[3],lf[12]); t5=C_i_block_ref(t1,C_fix(11)); t6=C_i_check_structure_2(t1,lf[3],lf[56]); t7=C_i_block_ref(t1,C_fix(12)); t8=C_i_check_structure_2(t1,lf[3],lf[4]); t9=C_i_block_ref(t1,C_fix(1)); /* modules.scm:606: values */{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t9; av2[3]=t9; av2[4]=t3; av2[5]=t5; av2[6]=t7; C_values(7,av2);}} /* k8264 in k8260 in k8256 in k8239 in k8192 in match-functor-argument in k2972 in k2968 */ 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 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_8266,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[16]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8286,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_8288,a[2]=t5,a[3]=t11,a[4]=t6,a[5]=((C_word)li141),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_8288(t13,t9,t7);} /* k8260 in k8256 in k8239 in k8192 in match-functor-argument in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_8262,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8266,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:889: symbol->string */ t4=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4258 in merge-se in k2972 in k2968 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4260,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_4271,a[2]=t3,a[3]=((C_word)li30),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_4271(t5,((C_word*)t0)[2],t1);} /* k4248 in loop2 in loop in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 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_4250,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_4125,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:275: warn */ t5=((C_word*)t0)[6]; f_4052(t5,t2,lf[93],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_4139,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[8],a[5]=((C_word)li64),tmp=(C_word)a,a+=6,tmp); /* modules.scm:272: g669 */ t6=t5; f_4139(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_4240,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:284: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[26]+1); av2[1]=t7; tp(2,av2);}}}} /* merge-se in k2972 in k2968 */ static void C_fcall f_4256(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_4256,2,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4260,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word av2[4]; av2[0]=0; av2[1]=t3; av2[2]=*((C_word*)lf[17]+1); av2[3]=t2; C_apply(4,av2);}} /* k6052 in k6048 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ static void C_ccall f_6054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6054,2,av);} t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a6055 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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!=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_6056,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6060,a[2]=((C_word*)t0)[2],a[3]=((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:569: current-module13381339 */ t3=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_6060(2,av2);}}} /* k6048 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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(4,c,3)))){ C_save_and_reclaim((void *)f_6050,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6054,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* modules.scm:577: ##sys#find-module */ t3=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[62]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5880 in k5918 in k5868 in loop in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_fcall f_5882(C_word 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_5882,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_5854(t3,C_a_i_cons(&a,2,((C_word*)t0)[4],t2));} else{ if(C_truep(((C_word*)t0)[5])){ /* modules.scm:487: ##sys#module-rename */ t2=*((C_word*)lf[41]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[6]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_set_block_item(((C_word*)t0)[8],0,C_SCHEME_TRUE); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5898,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_5902,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_5906,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* modules.scm:483: symbol->string */ t6=*((C_word*)lf[92]+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);}}}} /* k5896 in k5880 in k5918 in k5868 in loop in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_ccall f_5898(C_word c,C_word *av){ C_word tmp; 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_5898,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_5854(t2,C_a_i_cons(&a,2,((C_word*)t0)[3],C_SCHEME_FALSE));} /* map-loop2208 in k8264 in k8260 in k8256 in k8239 in k8192 in match-functor-argument in k2972 in k2968 */ static void C_fcall f_8288(C_word t0,C_word 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_8288,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_8313,a[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_8280,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* modules.scm:890: symbol->string */ t7=*((C_word*)lf[92]+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);}}} /* k8284 in k8264 in k8260 in k8256 in k8239 in k8192 in match-functor-argument in k2972 in k2968 */ static void C_ccall f_8286(C_word c,C_word *av){ C_word tmp; C_word 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_8286,2,av);}{ C_word *av2; if(c >= 12) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(12); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[89]+1); av2[3]=lf[164]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[165]; av2[6]=lf[166]; av2[7]=((C_word*)t0)[4]; av2[8]=lf[167]; av2[9]=((C_word*)t0)[5]; av2[10]=lf[168]; av2[11]=t1; C_apply(12,av2);}} /* k8278 in map-loop2208 in k8264 in k8260 in k8256 in k8239 in k8192 in match-functor-argument in k2972 in k2968 */ static void C_ccall f_8280(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8280,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[70]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[70]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[169]; av2[3]=t1; tp(4,av2);}} /* k4238 in k4248 in loop2 in loop in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_ccall f_4240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_4240,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_4179,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word)li65),tmp=(C_word)a,a+=6,tmp); /* modules.scm:272: g676 */ t4=t3; f_4179(t4,((C_word*)t0)[6],t2);} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4227,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:292: warn */ t6=((C_word*)t0)[5]; f_4052(t6,t3,lf[95],t5);}} /* k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_6044,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6047,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); /* modules.scm:574: ##sys#meta-macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[103]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[103]+1); av2[1]=t3; tp(2,av2);}} /* k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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(42,c,4)))){ C_save_and_reclaim((void *)f_6047,2,av);} a=C_alloc(42); 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|4,a[1]=(C_word)f_6050,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); t13=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6056,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=t11,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)li73),tmp=(C_word)a,a+=12,tmp); t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6112,a[2]=((C_word*)t0)[10],a[3]=((C_word)li77),tmp=(C_word)a,a+=4,tmp); t15=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6134,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word)li78),tmp=(C_word)a,a+=11,tmp); /* modules.scm:569: ##sys#dynamic-wind */ t16=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t16; av2[1]=t12; av2[2]=t13; av2[3]=t14; av2[4]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}} /* k8212 in g2187 in k8192 in match-functor-argument in k2972 in k2968 */ static void C_fcall f_8214(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_8214,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_mutate2(((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);}}} /* k6225 in tostr in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_6227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_6227,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6234,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:596: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[111]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[111]+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:597: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[111]+1)); C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[111]+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]))){ /* modules.scm:598: number->string */ t2=*((C_word*)lf[112]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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{ /* modules.scm:599: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[104]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[104]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[113]; tp(4,av2);}}}}} /* k6071 in k6067 in k6064 in k6061 in k6058 in a6055 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ static void C_ccall f_6073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6073,2,av);} a=C_alloc(15); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6077,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:569: current-environment13401341 */ t4=((C_word*)t0)[12];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k6075 in k6071 in k6067 in k6064 in k6061 in k6058 in a6055 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_6077,2,av);} a=C_alloc(14); t2=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6081,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:569: current-meta-environment13421343 */ t4=((C_word*)t0)[9];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* g1544 in loop in k6365 in k6356 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6431(C_word t0,C_word t1,C_word 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_6431,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:631: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_6372(t5,t1,t3,t4,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k6064 in k6061 in k6058 in a6055 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ static void C_ccall f_6066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6066,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6069,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((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:569: macro-environment13441345 */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[5])[1]; f_6069(2,av2);}}} /* k6061 in k6058 in a6055 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ static void C_ccall f_6063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6063,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6066,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((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:569: current-meta-environment13421343 */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[4])[1]; f_6066(2,av2);}}} /* k6058 in a6055 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ static void C_ccall f_6060(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6060,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6063,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((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:569: current-environment13401341 */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[3])[1]; f_6063(2,av2);}}} /* k4225 in k4238 in k4248 in loop2 in loop in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4227,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* modules.scm:293: loop2 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4102(t4,((C_word*)t0)[4],t3);} /* k6067 in k6064 in k6061 in k6058 in a6055 in k6045 in k6042 in k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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(16,c,2)))){ C_save_and_reclaim((void *)f_6069,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_6073,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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:569: current-module13381339 */ t4=((C_word*)t0)[13];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k6013 in map-loop1126 in finalize-module in k2972 in k2968 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6015,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5990(t6,((C_word*)t0)[5],t5);} /* k5697 in k5694 in k5691 in k5685 in k5662 in k5659 in k5656 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5699,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5710,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_5718,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* modules.scm:554: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[26]+1); av2[1]=t3; tp(2,av2);}} /* k4206 in g676 in k4238 in k4248 in loop2 in loop in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4208,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* modules.scm:290: loop2 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4102(t4,((C_word*)t0)[4],t3);} /* map-loop1855 in k7297 in k7271 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_7360(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_7360,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_mutate2(((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);}}} /* k8252 in k8239 in k8192 in match-functor-argument in k2972 in k2968 */ static void C_ccall f_8254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8254,2,av);} /* modules.scm:883: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[104]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[104]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[3]; av2[3]=t1; tp(4,av2);}} /* k8256 in k8239 in k8192 in match-functor-argument in k2972 in k2968 */ static void C_ccall f_8258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_8258,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8262,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:888: symbol->string */ t4=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5691 in k5685 in k5662 in k5659 in k5656 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_5693,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,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],tmp=(C_word)a,a+=7,tmp); t3=((C_word*)t0)[3]; t4=C_i_check_structure_2(t3,lf[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t5=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t3; av2[3]=C_fix(11); av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k5694 in k5691 in k5685 in k5662 in k5659 in k5656 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_5696,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5722,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[3],lf[56]); t6=C_i_block_ref(t4,C_fix(12)); /* modules.scm:551: merge-se */ f_4256(t3,C_a_i_list(&a,2,t6,((C_word*)t0)[6]));} /* k5685 in k5662 in k5659 in k5656 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_5687,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,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],tmp=(C_word)a,a+=7,tmp); t3=((C_word*)t0)[3]; t4=C_i_check_structure_2(t3,lf[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t5=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t3; av2[3]=C_fix(10); av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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 t3; C_word 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_6032,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|3,a[1]=(C_word)f_6035,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t3)[1])){ t5=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=((C_word*)t3)[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6038,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6170,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6174,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* modules.scm:567: symbol->string */ t8=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k7088 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 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_7090,2,av);} if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); if(C_truep(C_fixnump(t2))){ t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_u_i_cdr(t4); t6=((C_word*)t0)[3]; f_6310(t6,C_i_nullp(t5));} else{ t3=((C_word*)t0)[3]; f_6310(t3,C_SCHEME_FALSE);}} else{ t2=((C_word*)t0)[3]; f_6310(t2,C_SCHEME_FALSE);}} /* k6033 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6035,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6036 in k6030 in k6027 in find-module/import-library in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_6038,2,av);} a=C_alloc(10); t2=t1; if(C_truep(t2)){ t3=*((C_word*)lf[0]+1); t4=*((C_word*)lf[26]+1); t5=*((C_word*)lf[100]+1); t6=*((C_word*)lf[25]+1); t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6044,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t6,a[6]=t5,a[7]=t4,a[8]=t3,a[9]=t2,tmp=(C_word)a,a+=10,tmp); /* modules.scm:572: ##sys#current-meta-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[100]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[100]+1); av2[1]=t7; tp(2,av2);}} else{ /* modules.scm:579: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[104]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[104]+1); av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=lf[105]; av2[4]=((C_word*)t0)[4]; tp(5,av2);}}} /* g1698 in loop in loop in k6729 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6850(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_6850,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_6866,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t4,a[5]=t9,tmp=(C_word)a,a+=6,tmp); /* modules.scm:674: ##sys#delq */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[40]+1); av2[1]=t10; av2[2]=t2; av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* import-name in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6257(C_word t1,C_word 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_6257,2,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6261,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6280,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* modules.scm:601: ##sys#strip-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[59]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[59]+1); av2[1]=t4; av2[2]=t2; tp(3,av2);}} /* ##sys#find-module/import-library in k2972 in k2968 */ 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=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_6025,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6029,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* modules.scm:563: ##sys#resolve-module-name */ t5=*((C_word*)lf[18]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k6027 in find-module/import-library in k2972 in k2968 */ static void C_ccall f_6029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_6029,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6032,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* modules.scm:564: ##sys#find-module */ t4=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k7304 in k7297 in k7271 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_7306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_7306,2,av);} t2=C_i_check_structure_2(((C_word*)t0)[2],lf[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(4); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5656 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_ccall f_5658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_5658,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5661,a[2]=((C_word*)t0)[2],a[3]=((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_5753,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:530: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[25]+1); av2[1]=t4; tp(2,av2);}} /* map-loop1881 in k7315 in k7297 in k7271 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_7326(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; 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_7326,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_mutate2(((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);}}} /* k7322 in k7315 in k7297 in k7271 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7324,2,av);} /* modules.scm:733: append */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5804 in for-each-loop1180 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_ccall f_5806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_5806,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5796(t3,((C_word*)t0)[4],t2);} /* k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 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_5652,2,av);} a=C_alloc(15); t2=C_i_check_list_2(t1,lf[16]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5658,a[2]=((C_word*)t0)[2],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_5759,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=((C_word*)t0)[8],a[5]=((C_word)li62),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_5759(t7,t3,t1);} /* k6864 in g1698 in loop in loop in k6729 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_6866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6866,2,av);} /* modules.scm:672: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6748(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k7315 in k7297 in k7271 in k7243 in k7200 in k7155 in k7143 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_7317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; 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_7317,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_7324,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,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_7326,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li112),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_7326(t11,t7,((C_word*)t0)[4]);} /* k5643 in map-loop1260 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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(0,c,3)))){ C_save_and_reclaim((void *)f_5645,2,av);} t2=C_i_assq(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ 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:527: ##sys#error */ t4=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[88]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k3935 in for-each-loop611 in mark-imported-symbols in k2972 in k2968 */ static void C_fcall f_3937(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,1)))){ C_save_and_reclaim_args((void *)trf_3937,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=C_u_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=C_a_i_putprop(&a,3,t2,lf[49],C_SCHEME_TRUE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,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);}}} /* k8239 in k8192 in match-functor-argument in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_8241,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_8254,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8258,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:887: symbol->string */ t4=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* map-loop1556 in k6526 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6690(C_word t0,C_word t1,C_word 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_6690,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_6715,a[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:639: g1562 */ 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);}}} /* k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_ccall f_5617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word 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_5617,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_5652,a[2]=((C_word*)t0)[2],a[3]=((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[3],lf[10]); t9=C_i_block_ref(t7,C_fix(2)); t10=C_i_check_structure_2(t7,lf[3],lf[4]); t11=C_i_block_ref(t7,C_fix(1)); t12=t11; t13=C_i_check_structure_2(t7,lf[3],lf[39]); t14=C_i_block_ref(t7,C_fix(3)); t15=t14; t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4052,a[2]=t12,a[3]=((C_word)li63),tmp=(C_word)a,a+=4,tmp); t17=C_eqp(C_SCHEME_TRUE,t9); if(C_truep(t17)){ t18=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=C_SCHEME_END_OF_LIST; f_5652(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_4075,a[2]=t19,a[3]=t16,a[4]=t15,a[5]=t12,a[6]=((C_word)li67),tmp=(C_word)a,a+=7,tmp)); t21=((C_word*)t19)[1]; f_4075(t21,t6,t9);}} /* k3981 in for-each-loop611 in mark-imported-symbols in k2972 in k2968 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_3983,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3973(t3,((C_word*)t0)[4],t2);} /* k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ static void C_ccall f_5614(C_word c,C_word *av){ C_word tmp; C_word t0=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_5614,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5617,a[2]=((C_word*)t0)[2],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:522: ##sys#error */ t3=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[96]; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5617(2,av2);}}} /* k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_5608,2,av);} a=C_alloc(16); t2=C_i_check_list_2(t1,lf[30]); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5614,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_5796,a[2]=t5,a[3]=((C_word*)t0)[9],a[4]=((C_word)li68),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_5796(t7,t3,t1);} /* map-loop1742 in k7004 in k6956 in k6953 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_7018(C_word t0,C_word t1,C_word 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_7018,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_7043,a[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:692: g1748 */ 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);}}} /* k7014 in k7004 in k6956 in k6953 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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,6)))){ C_save_and_reclaim((void *)f_7016,2,av);} /* modules.scm:692: values */{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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]=t1; av2[6]=((C_word*)t0)[6]; C_values(7,av2);}} /* k7004 in k6956 in k6953 in k6726 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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(21,c,3)))){ C_save_and_reclaim((void *)f_7006,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_word*)t0)[2]; t8=C_i_check_list_2(((C_word*)t0)[3],lf[16]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7016,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],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|6,a[1]=(C_word)f_7018,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li105),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_7018(t13,t9,((C_word*)t0)[3]);} /* k6623 in g1621 in loop in loop in k6535 in k6526 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_ccall f_6625(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6625,2,av);} /* modules.scm:651: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6554(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k7556 in a7140 in g1772 in k7126 in k7123 in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7558,2,av);} t2=C_i_check_structure_2(((C_word*)t0)[2],lf[3],C_SCHEME_FALSE); /* modules.scm:89: ##sys#block-set! */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* g1626 in loop in k6535 in k6526 in k6523 in k6353 in a6347 in k6308 in k6299 in import-spec in k6191 in k6188 in k6185 in k6182 in k6179 in expand-import in k2972 in k2968 */ static void C_fcall f_6654(C_word t0,C_word 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_6654,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_6666,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:656: ##sys#delq */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[40]+1); av2[1]=t5; av2[2]=t6; av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* k7871 in loop in validate-exports in k2972 in k2968 */ static void C_fcall f_7873(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_7873,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); /* modules.scm:815: iface */ t3=((C_word*)((C_word*)t0)[3])[1]; f_7760(t3,((C_word*)t0)[4],t2);} else{ /* modules.scm:816: err */ t2=((C_word*)((C_word*)t0)[5])[1]; f_7754(t2,((C_word*)t0)[4],C_a_i_list(&a,3,lf[151],((C_word*)t0)[2],((C_word*)t0)[6]));}} /* k8058 in k7985 in instantiate-functor in k2972 in k2968 */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_8060,2,av);} a=C_alloc(18); t2=C_eqp(lf[148],((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[160],t4); t6=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_list(&a,3,lf[161],t1,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k7857 in loop in validate-exports in k2972 in k2968 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7859,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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#mark-imported-symbols in k2972 in k2968 */ 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=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_3928,3,av);} a=C_alloc(6); t3=C_i_check_list_2(t2,lf[30]); 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_3973,a[2]=t5,a[3]=((C_word)li28),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_3973(t7,t1,t2);} /* k3739 in register-syntax-export in k2972 in k2968 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3741,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3744,a[2]=((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:212: module-undefined-list */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3742 in k3739 in register-syntax-export in k2972 in k2968 */ 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 t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_3744,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2]; t3=C_i_check_structure_2(t2,lf[3],lf[4]); t4=C_i_block_ref(t2,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3750,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:215: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[35]+1); av2[1]=t5; av2[2]=lf[45]; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} else{ t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_3750(2,av2);}}} /* k5667 in g1296 in k5662 in k5659 in k5656 in k5650 in k5615 in k5612 in k5606 in k5452 in k5449 in k5446 in finalize-module in k2972 in k2968 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5669,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_i_set_car(t3,t1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[473] = { {"f_3753:modules_2escm",(void*)f_3753}, {"f_3750:modules_2escm",(void*)f_3750}, {"f_3759:modules_2escm",(void*)f_3759}, {"f_5665:modules_2escm",(void*)f_5665}, {"f_5664:modules_2escm",(void*)f_5664}, {"f_5661:modules_2escm",(void*)f_5661}, {"f_6613:modules_2escm",(void*)f_6613}, {"f_8021:modules_2escm",(void*)f_8021}, {"f_3731:modules_2escm",(void*)f_3731}, {"f_3973:modules_2escm",(void*)f_3973}, {"f_8201:modules_2escm",(void*)f_8201}, {"f_4515:modules_2escm",(void*)f_4515}, {"f_7504:modules_2escm",(void*)f_7504}, {"f_6811:modules_2escm",(void*)f_6811}, {"f_8081:modules_2escm",(void*)f_8081}, {"f_5292:modules_2escm",(void*)f_5292}, {"f_7527:modules_2escm",(void*)f_7527}, {"f_8093:modules_2escm",(void*)f_8093}, {"f_6666:modules_2escm",(void*)f_6666}, {"f_5283:modules_2escm",(void*)f_5283}, {"f_7514:modules_2escm",(void*)f_7514}, {"f_5482:modules_2escm",(void*)f_5482}, {"f_7537:modules_2escm",(void*)f_7537}, {"f_5479:modules_2escm",(void*)f_5479}, {"f_5476:modules_2escm",(void*)f_5476}, {"f_7987:modules_2escm",(void*)f_7987}, {"f_5473:modules_2escm",(void*)f_5473}, {"f_5490:modules_2escm",(void*)f_5490}, {"f_7980:modules_2escm",(void*)f_7980}, {"f_3793:modules_2escm",(void*)f_3793}, {"f_3797:modules_2escm",(void*)f_3797}, {"f_5497:modules_2escm",(void*)f_5497}, {"f_5332:modules_2escm",(void*)f_5332}, {"f_8019:modules_2escm",(void*)f_8019}, {"f_5317:modules_2escm",(void*)f_5317}, {"f_5345:modules_2escm",(void*)f_5345}, {"f_5343:modules_2escm",(void*)f_5343}, {"f_3707:modules_2escm",(void*)f_3707}, {"f_3703:modules_2escm",(void*)f_3703}, {"f_8347:modules_2escm",(void*)f_8347}, {"f_8359:modules_2escm",(void*)f_8359}, {"f_5527:modules_2escm",(void*)f_5527}, {"f_3718:modules_2escm",(void*)f_3718}, {"f_5524:modules_2escm",(void*)f_5524}, {"f_3714:modules_2escm",(void*)f_3714}, {"f_5520:modules_2escm",(void*)f_5520}, {"f_8353:modules_2escm",(void*)f_8353}, {"f_8350:modules_2escm",(void*)f_8350}, {"f_8356:modules_2escm",(void*)f_8356}, {"f_7741:modules_2escm",(void*)f_7741}, {"f_7743:modules_2escm",(void*)f_7743}, {"f_5519:modules_2escm",(void*)f_5519}, {"f_5516:modules_2escm",(void*)f_5516}, {"f_3596:modules_2escm",(void*)f_3596}, {"f_3598:modules_2escm",(void*)f_3598}, {"f_5509:modules_2escm",(void*)f_5509}, {"f_5506:modules_2escm",(void*)f_5506}, {"f_8332:modules_2escm",(void*)f_8332}, {"f_7760:modules_2escm",(void*)f_7760}, {"f8860:modules_2escm",(void*)f8860}, {"f_4765:modules_2escm",(void*)f_4765}, {"f_5125:modules_2escm",(void*)f_5125}, {"f8899:modules_2escm",(void*)f8899}, {"f_4755:modules_2escm",(void*)f_4755}, {"f_8313:modules_2escm",(void*)f_8313}, {"f8886:modules_2escm",(void*)f8886}, {"f_3373:modules_2escm",(void*)f_3373}, {"f_8362:modules_2escm",(void*)f_8362}, {"f_8367:modules_2escm",(void*)f_8367}, {"f_8365:modules_2escm",(void*)f_8365}, {"f_5100:modules_2escm",(void*)f_5100}, {"f_5549:modules_2escm",(void*)f_5549}, {"f_4730:modules_2escm",(void*)f_4730}, {"f_7833:modules_2escm",(void*)f_7833}, {"f_5539:modules_2escm",(void*)f_5539}, {"f_5166:modules_2escm",(void*)f_5166}, {"f_4271:modules_2escm",(void*)f_4271}, {"f_3456:modules_2escm",(void*)f_3456}, {"f_5159:modules_2escm",(void*)f_5159}, {"f_5153:modules_2escm",(void*)f_5153}, {"f_4926:modules_2escm",(void*)f_4926}, {"f_5144:modules_2escm",(void*)f_5144}, {"f_4929:modules_2escm",(void*)f_4929}, {"f_8322:modules_2escm",(void*)f_8322}, {"f_5140:modules_2escm",(void*)f_5140}, {"f_7396:modules_2escm",(void*)f_7396}, {"f_7801:modules_2escm",(void*)f_7801}, {"f_3402:modules_2escm",(void*)f_3402}, {"f_3400:modules_2escm",(void*)f_3400}, {"f_4988:modules_2escm",(void*)f_4988}, {"f_7430:modules_2escm",(void*)f_7430}, {"f_4953:modules_2escm",(void*)f_4953}, {"f_6562:modules_2escm",(void*)f_6562}, {"f_6554:modules_2escm",(void*)f_6554}, {"f_4298:modules_2escm",(void*)f_4298}, {"f_3256:modules_2escm",(void*)f_3256}, {"f_3254:modules_2escm",(void*)f_3254}, {"f_4955:modules_2escm",(void*)f_4955}, {"f_6487:modules_2escm",(void*)f_6487}, {"f_7407:modules_2escm",(void*)f_7407}, {"f_3260:modules_2escm",(void*)f_3260}, {"f_3265:modules_2escm",(void*)f_3265}, {"f_3269:modules_2escm",(void*)f_3269}, {"f_4945:modules_2escm",(void*)f_4945}, {"f_4949:modules_2escm",(void*)f_4949}, {"f_4490:modules_2escm",(void*)f_4490}, {"f_4164:modules_2escm",(void*)f_4164}, {"f_4179:modules_2escm",(void*)f_4179}, {"f_3238:modules_2escm",(void*)f_3238}, {"f_6525:modules_2escm",(void*)f_6525}, {"f_7464:modules_2escm",(void*)f_7464}, {"f_4151:modules_2escm",(void*)f_4151}, {"f_4789:modules_2escm",(void*)f_4789}, {"f_6528:modules_2escm",(void*)f_6528}, {"f_4900:modules_2escm",(void*)f_4900}, {"f_4472:modules_2escm",(void*)f_4472}, {"f_6512:modules_2escm",(void*)f_6512}, {"f_3214:modules_2escm",(void*)f_3214}, {"f_6338:modules_2escm",(void*)f_6338}, {"f_3069:modules_2escm",(void*)f_3069}, {"f_4913:modules_2escm",(void*)f_4913}, {"f_7157:modules_2escm",(void*)f_7157}, {"f_7158:modules_2escm",(void*)f_7158}, {"f_6325:modules_2escm",(void*)f_6325}, {"f_6321:modules_2escm",(void*)f_6321}, {"f_4147:modules_2escm",(void*)f_4147}, {"f_3078:modules_2escm",(void*)f_3078}, {"f_4901:modules_2escm",(void*)f_4901}, {"f_4125:modules_2escm",(void*)f_4125}, {"f_4139:modules_2escm",(void*)f_4139}, {"f_6355:modules_2escm",(void*)f_6355}, {"f_6358:modules_2escm",(void*)f_6358}, {"f_4978:modules_2escm",(void*)f_4978}, {"f_7421:modules_2escm",(void*)f_7421}, {"f_3463:modules_2escm",(void*)f_3463}, {"f_7428:modules_2escm",(void*)f_7428}, {"f_3466:modules_2escm",(void*)f_3466}, {"f_3469:modules_2escm",(void*)f_3469}, {"f_6282:modules_2escm",(void*)f_6282}, {"f_6280:modules_2escm",(void*)f_6280}, {"f_4488:modules_2escm",(void*)f_4488}, {"f_6348:modules_2escm",(void*)f_6348}, {"f_4965:modules_2escm",(void*)f_4965}, {"f_7125:modules_2escm",(void*)f_7125}, {"f_7129:modules_2escm",(void*)f_7129}, {"f_7128:modules_2escm",(void*)f_7128}, {"f_4102:modules_2escm",(void*)f_4102}, {"f_4308:modules_2escm",(void*)f_4308}, {"f_7196:modules_2escm",(void*)f_7196}, {"f_4339:modules_2escm",(void*)f_4339}, {"f_7141:modules_2escm",(void*)f_7141}, {"f_7145:modules_2escm",(void*)f_7145}, {"f_6310:modules_2escm",(void*)f_6310}, {"f_4331:modules_2escm",(void*)f_4331}, {"f_4335:modules_2escm",(void*)f_4335}, {"f_6144:modules_2escm",(void*)f_6144}, {"f_6317:modules_2escm",(void*)f_6317}, {"f_6141:modules_2escm",(void*)f_6141}, {"f_6147:modules_2escm",(void*)f_6147}, {"f_7135:modules_2escm",(void*)f_7135}, {"f_6301:modules_2escm",(void*)f_6301}, {"f_6097:modules_2escm",(void*)f_6097}, {"f_6174:modules_2escm",(void*)f_6174}, {"f_4700:modules_2escm",(void*)f_4700}, {"f_6091:modules_2escm",(void*)f_6091}, {"f_6170:modules_2escm",(void*)f_6170}, {"f_6094:modules_2escm",(void*)f_6094}, {"f_6177:modules_2escm",(void*)f_6177}, {"f_6088:modules_2escm",(void*)f_6088}, {"f_7573:modules_2escm",(void*)f_7573}, {"f_6081:modules_2escm",(void*)f_6081}, {"f_6085:modules_2escm",(void*)f_6085}, {"f_7651:modules_2escm",(void*)f_7651}, {"f_6542:modules_2escm",(void*)f_6542}, {"f_6190:modules_2escm",(void*)f_6190}, {"f_6193:modules_2escm",(void*)f_6193}, {"f_6195:modules_2escm",(void*)f_6195}, {"f_6537:modules_2escm",(void*)f_6537}, {"f_7592:modules_2escm",(void*)f_7592}, {"f_7590:modules_2escm",(void*)f_7590}, {"f_7633:modules_2escm",(void*)f_7633}, {"f_7636:modules_2escm",(void*)f_7636}, {"f_6134:modules_2escm",(void*)f_6134}, {"f_6138:modules_2escm",(void*)f_6138}, {"f_6123:modules_2escm",(void*)f_6123}, {"f_6129:modules_2escm",(void*)f_6129}, {"f_7615:modules_2escm",(void*)f_7615}, {"f_6367:modules_2escm",(void*)f_6367}, {"f_6153:modules_2escm",(void*)f_6153}, {"f_6156:modules_2escm",(void*)f_6156}, {"f_6150:modules_2escm",(void*)f_6150}, {"f_6159:modules_2escm",(void*)f_6159}, {"f_7640:modules_2escm",(void*)f_7640}, {"f_6971:modules_2escm",(void*)f_6971}, {"f_7644:modules_2escm",(void*)f_7644}, {"f_6977:modules_2escm",(void*)f_6977}, {"f_6963:modules_2escm",(void*)f_6963}, {"f_7623:modules_2escm",(void*)f_7623}, {"f_5738:modules_2escm",(void*)f_5738}, {"f_4343:modules_2escm",(void*)f_4343}, {"f_4347:modules_2escm",(void*)f_4347}, {"f_6112:modules_2escm",(void*)f_6112}, {"f_7602:modules_2escm",(void*)f_7602}, {"f_6118:modules_2escm",(void*)f_6118}, {"f_5722:modules_2escm",(void*)f_5722}, {"f_5728:modules_2escm",(void*)f_5728}, {"f_6798:modules_2escm",(void*)f_6798}, {"f_5796:modules_2escm",(void*)f_5796}, {"f_6788:modules_2escm",(void*)f_6788}, {"f_5784:modules_2escm",(void*)f_5784}, {"f_6955:modules_2escm",(void*)f_6955}, {"f_6958:modules_2escm",(void*)f_6958}, {"f_6731:modules_2escm",(void*)f_6731}, {"f_6736:modules_2escm",(void*)f_6736}, {"f_8130:modules_2escm",(void*)f_8130}, {"f_6728:modules_2escm",(void*)f_6728}, {"f_6756:modules_2escm",(void*)f_6756}, {"f_8190:modules_2escm",(void*)f_8190}, {"f_5753:modules_2escm",(void*)f_5753}, {"f_5757:modules_2escm",(void*)f_5757}, {"f_5759:modules_2escm",(void*)f_5759}, {"f_5990:modules_2escm",(void*)f_5990}, {"f_6748:modules_2escm",(void*)f_6748}, {"f_8194:modules_2escm",(void*)f_8194}, {"f_5439:modules_2escm",(void*)f_5439}, {"f_7704:modules_2escm",(void*)f_7704}, {"f_5451:modules_2escm",(void*)f_5451}, {"f_6981:modules_2escm",(void*)f_6981}, {"f_6985:modules_2escm",(void*)f_6985}, {"f_5977:modules_2escm",(void*)f_5977}, {"f_5469:modules_2escm",(void*)f_5469}, {"f_7738:modules_2escm",(void*)f_7738}, {"f_6715:modules_2escm",(void*)f_6715}, {"f_5455:modules_2escm",(void*)f_5455}, {"f_5454:modules_2escm",(void*)f_5454}, {"f_5714:modules_2escm",(void*)f_5714}, {"f_5710:modules_2escm",(void*)f_5710}, {"f_5718:modules_2escm",(void*)f_5718}, {"f_7751:modules_2escm",(void*)f_7751}, {"f_7754:modules_2escm",(void*)f_7754}, {"f_5410:modules_2escm",(void*)f_5410}, {"f_3826:modules_2escm",(void*)f_3826}, {"f_3833:modules_2escm",(void*)f_3833}, {"f_5920:modules_2escm",(void*)f_5920}, {"f8914:modules_2escm",(void*)f8914}, {"f_8119:modules_2escm",(void*)f_8119}, {"f_8115:modules_2escm",(void*)f_8115}, {"f_4579:modules_2escm",(void*)f_4579}, {"f_4577:modules_2escm",(void*)f_4577}, {"f_6775:modules_2escm",(void*)f_6775}, {"f_6919:modules_2escm",(void*)f_6919}, {"f_6903:modules_2escm",(void*)f_6903}, {"f_8167:modules_2escm",(void*)f_8167}, {"f_6769:modules_2escm",(void*)f_6769}, {"f_8178:modules_2escm",(void*)f_8178}, {"f_4433:modules_2escm",(void*)f_4433}, {"f_5968:modules_2escm",(void*)f_5968}, {"f_3664:modules_2escm",(void*)f_3664}, {"f_3667:modules_2escm",(void*)f_3667}, {"f_5953:modules_2escm",(void*)f_5953}, {"f_5955:modules_2escm",(void*)f_5955}, {"f_5057:modules_2escm",(void*)f_5057}, {"f_3670:modules_2escm",(void*)f_3670}, {"f_3642:modules_2escm",(void*)f_3642}, {"f_5373:modules_2escm",(void*)f_5373}, {"f_4448:modules_2escm",(void*)f_4448}, {"f_8394:modules_2escm",(void*)f_8394}, {"f_3652:modules_2escm",(void*)f_3652}, {"f_5091:modules_2escm",(void*)f_5091}, {"f_3655:modules_2escm",(void*)f_3655}, {"f_3658:modules_2escm",(void*)f_3658}, {"f_5066:modules_2escm",(void*)f_5066}, {"f_7239:modules_2escm",(void*)f_7239}, {"f_3621:modules_2escm",(void*)f_3621}, {"f_3628:modules_2escm",(void*)f_3628}, {"f_5001:modules_2escm",(void*)f_5001}, {"f_4423:modules_2escm",(void*)f_4423}, {"f_5448:modules_2escm",(void*)f_5448}, {"f_5594:modules_2escm",(void*)f_5594}, {"f_8374:modules_2escm",(void*)f_8374}, {"f_3819:modules_2escm",(void*)f_3819}, {"f_3812:modules_2escm",(void*)f_3812}, {"f_5032:modules_2escm",(void*)f_5032}, {"f_5030:modules_2escm",(void*)f_5030}, {"f_5584:modules_2escm",(void*)f_5584}, {"f_7299:modules_2escm",(void*)f_7299}, {"f_5234:modules_2escm",(void*)f_5234}, {"f_5576:modules_2escm",(void*)f_5576}, {"f_5571:modules_2escm",(void*)f_5571}, {"f_5572:modules_2escm",(void*)f_5572}, {"f_7282:modules_2escm",(void*)f_7282}, {"f_7289:modules_2escm",(void*)f_7289}, {"f_5229:modules_2escm",(void*)f_5229}, {"f_5223:modules_2escm",(void*)f_5223}, {"f_3878:modules_2escm",(void*)f_3878}, {"f_4676:modules_2escm",(void*)f_4676}, {"f_5026:modules_2escm",(void*)f_5026}, {"f_5256:modules_2escm",(void*)f_5256}, {"f_5258:modules_2escm",(void*)f_5258}, {"f_7670:modules_2escm",(void*)f_7670}, {"f_4655:modules_2escm",(void*)f_4655}, {"f_7251:modules_2escm",(void*)f_7251}, {"f_7258:modules_2escm",(void*)f_7258}, {"f_7245:modules_2escm",(void*)f_7245}, {"f_7248:modules_2escm",(void*)f_7248}, {"f_5011:modules_2escm",(void*)f_5011}, {"f_4630:modules_2escm",(void*)f_4630}, {"f_4628:modules_2escm",(void*)f_4628}, {"f_3534:modules_2escm",(void*)f_3534}, {"f_5902:modules_2escm",(void*)f_5902}, {"f_5906:modules_2escm",(void*)f_5906}, {"f_4837:modules_2escm",(void*)f_4837}, {"f_3548:modules_2escm",(void*)f_3548}, {"f_4831:modules_2escm",(void*)f_4831}, {"f_7202:modules_2escm",(void*)f_7202}, {"f_7203:modules_2escm",(void*)f_7203}, {"f_4821:modules_2escm",(void*)f_4821}, {"f_3491:modules_2escm",(void*)f_3491}, {"f_7273:modules_2escm",(void*)f_7273}, {"f_7270:modules_2escm",(void*)f_7270}, {"f_7279:modules_2escm",(void*)f_7279}, {"f_3526:modules_2escm",(void*)f_3526}, {"f_3525:modules_2escm",(void*)f_3525}, {"f_3288:modules_2escm",(void*)f_3288}, {"f_3282:modules_2escm",(void*)f_3282}, {"f_7266:modules_2escm",(void*)f_7266}, {"f_7262:modules_2escm",(void*)f_7262}, {"f_4883:modules_2escm",(void*)f_4883}, {"f_3478:modules_2escm",(void*)f_3478}, {"f_3472:modules_2escm",(void*)f_3472}, {"toplevel:modules_2escm",(void*)C_modules_toplevel}, {"f_3509:modules_2escm",(void*)f_3509}, {"f_3507:modules_2escm",(void*)f_3507}, {"f_3503:modules_2escm",(void*)f_3503}, {"f_3365:modules_2escm",(void*)f_3365}, {"f_4853:modules_2escm",(void*)f_4853}, {"f_4840:modules_2escm",(void*)f_4840}, {"f_4841:modules_2escm",(void*)f_4841}, {"f_3359:modules_2escm",(void*)f_3359}, {"f_3295:modules_2escm",(void*)f_3295}, {"f_3292:modules_2escm",(void*)f_3292}, {"f_4698:modules_2escm",(void*)f_4698}, {"f_3605:modules_2escm",(void*)f_3605}, {"f_3601:modules_2escm",(void*)f_3601}, {"f_3325:modules_2escm",(void*)f_3325}, {"f_3323:modules_2escm",(void*)f_3323}, {"f_3276:modules_2escm",(void*)f_3276}, {"f_3273:modules_2escm",(void*)f_3273}, {"f_5192:modules_2escm",(void*)f_5192}, {"f_5196:modules_2escm",(void*)f_5196}, {"f_6585:modules_2escm",(void*)f_6585}, {"f_4805:modules_2escm",(void*)f_4805}, {"f_5188:modules_2escm",(void*)f_5188}, {"f_6572:modules_2escm",(void*)f_6572}, {"f_3319:modules_2escm",(void*)f_3319}, {"f_5172:modules_2escm",(void*)f_5172}, {"f_4867:modules_2escm",(void*)f_4867}, {"f_4866:modules_2escm",(void*)f_4866}, {"f_3551:modules_2escm",(void*)f_3551}, {"f_3558:modules_2escm",(void*)f_3558}, {"f_6595:modules_2escm",(void*)f_6595}, {"f_7914:modules_2escm",(void*)f_7914}, {"f_3562:modules_2escm",(void*)f_3562}, {"f_3568:modules_2escm",(void*)f_3568}, {"f_2988:modules_2escm",(void*)f_2988}, {"f_5858:modules_2escm",(void*)f_5858}, {"f_6453:modules_2escm",(void*)f_6453}, {"f_5870:modules_2escm",(void*)f_5870}, {"f_4604:modules_2escm",(void*)f_4604}, {"f_2970:modules_2escm",(void*)f_2970}, {"f_6372:modules_2escm",(void*)f_6372}, {"f_4197:modules_2escm",(void*)f_4197}, {"f_7956:modules_2escm",(void*)f_7956}, {"f_2974:modules_2escm",(void*)f_2974}, {"f_5867:modules_2escm",(void*)f_5867}, {"f_7900:modules_2escm",(void*)f_7900}, {"f_7077:modules_2escm",(void*)f_7077}, {"f_7972:modules_2escm",(void*)f_7972}, {"f_6413:modules_2escm",(void*)f_6413}, {"f_4075:modules_2escm",(void*)f_4075}, {"f_6390:modules_2escm",(void*)f_6390}, {"f_6403:modules_2escm",(void*)f_6403}, {"f_4064:modules_2escm",(void*)f_4064}, {"f_6380:modules_2escm",(void*)f_6380}, {"f_4060:modules_2escm",(void*)f_4060}, {"f_7052:modules_2escm",(void*)f_7052}, {"f_5823:modules_2escm",(void*)f_5823}, {"f_4391:modules_2escm",(void*)f_4391}, {"f_7997:modules_2escm",(void*)f_7997}, {"f_4052:modules_2escm",(void*)f_4052}, {"f_6214:modules_2escm",(void*)f_6214}, {"f_7043:modules_2escm",(void*)f_7043}, {"f_5854:modules_2escm",(void*)f_5854}, {"f_4379:modules_2escm",(void*)f_4379}, {"f_4375:modules_2escm",(void*)f_4375}, {"f_6187:modules_2escm",(void*)f_6187}, {"f_6181:modules_2escm",(void*)f_6181}, {"f_6234:modules_2escm",(void*)f_6234}, {"f_6184:modules_2escm",(void*)f_6184}, {"f_6261:modules_2escm",(void*)f_6261}, {"f_8266:modules_2escm",(void*)f_8266}, {"f_8262:modules_2escm",(void*)f_8262}, {"f_4260:modules_2escm",(void*)f_4260}, {"f_4250:modules_2escm",(void*)f_4250}, {"f_4256:modules_2escm",(void*)f_4256}, {"f_6054:modules_2escm",(void*)f_6054}, {"f_6056:modules_2escm",(void*)f_6056}, {"f_6050:modules_2escm",(void*)f_6050}, {"f_5882:modules_2escm",(void*)f_5882}, {"f_5898:modules_2escm",(void*)f_5898}, {"f_8288:modules_2escm",(void*)f_8288}, {"f_8286:modules_2escm",(void*)f_8286}, {"f_8280:modules_2escm",(void*)f_8280}, {"f_4240:modules_2escm",(void*)f_4240}, {"f_6044:modules_2escm",(void*)f_6044}, {"f_6047:modules_2escm",(void*)f_6047}, {"f_8214:modules_2escm",(void*)f_8214}, {"f_6227:modules_2escm",(void*)f_6227}, {"f_6073:modules_2escm",(void*)f_6073}, {"f_6077:modules_2escm",(void*)f_6077}, {"f_6431:modules_2escm",(void*)f_6431}, {"f_6066:modules_2escm",(void*)f_6066}, {"f_6063:modules_2escm",(void*)f_6063}, {"f_6060:modules_2escm",(void*)f_6060}, {"f_4227:modules_2escm",(void*)f_4227}, {"f_6069:modules_2escm",(void*)f_6069}, {"f_6015:modules_2escm",(void*)f_6015}, {"f_5699:modules_2escm",(void*)f_5699}, {"f_4208:modules_2escm",(void*)f_4208}, {"f_7360:modules_2escm",(void*)f_7360}, {"f_8254:modules_2escm",(void*)f_8254}, {"f_8258:modules_2escm",(void*)f_8258}, {"f_5693:modules_2escm",(void*)f_5693}, {"f_5696:modules_2escm",(void*)f_5696}, {"f_5687:modules_2escm",(void*)f_5687}, {"f_6032:modules_2escm",(void*)f_6032}, {"f_7090:modules_2escm",(void*)f_7090}, {"f_6035:modules_2escm",(void*)f_6035}, {"f_6038:modules_2escm",(void*)f_6038}, {"f_6850:modules_2escm",(void*)f_6850}, {"f_6257:modules_2escm",(void*)f_6257}, {"f_6025:modules_2escm",(void*)f_6025}, {"f_6029:modules_2escm",(void*)f_6029}, {"f_7306:modules_2escm",(void*)f_7306}, {"f_5658:modules_2escm",(void*)f_5658}, {"f_7326:modules_2escm",(void*)f_7326}, {"f_7324:modules_2escm",(void*)f_7324}, {"f_5806:modules_2escm",(void*)f_5806}, {"f_5652:modules_2escm",(void*)f_5652}, {"f_6866:modules_2escm",(void*)f_6866}, {"f_7317:modules_2escm",(void*)f_7317}, {"f_5645:modules_2escm",(void*)f_5645}, {"f_3937:modules_2escm",(void*)f_3937}, {"f_8241:modules_2escm",(void*)f_8241}, {"f_6690:modules_2escm",(void*)f_6690}, {"f_5617:modules_2escm",(void*)f_5617}, {"f_3983:modules_2escm",(void*)f_3983}, {"f_5614:modules_2escm",(void*)f_5614}, {"f_5608:modules_2escm",(void*)f_5608}, {"f_7018:modules_2escm",(void*)f_7018}, {"f_7016:modules_2escm",(void*)f_7016}, {"f_7006:modules_2escm",(void*)f_7006}, {"f_6625:modules_2escm",(void*)f_6625}, {"f_7558:modules_2escm",(void*)f_7558}, {"f_6654:modules_2escm",(void*)f_6654}, {"f_7873:modules_2escm",(void*)f_7873}, {"f_8060:modules_2escm",(void*)f_8060}, {"f_7859:modules_2escm",(void*)f_7859}, {"f_3928:modules_2escm",(void*)f_3928}, {"f_3741:modules_2escm",(void*)f_3741}, {"f_3744:modules_2escm",(void*)f_3744}, {"f_5669:modules_2escm",(void*)f_5669}, {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| for-each 16 S| map 22 o|eliminated procedure checks: 333 o|specializations: o| 2 (cddr (pair * pair)) o| 1 (< fixnum fixnum) o| 2 (string-append string string) o| 1 (= fixnum fixnum) o| 6 (##sys#check-list (or pair list) *) o| 2 (cdar (pair pair *)) o| 1 (caar (pair pair *)) o| 28 (car pair) o| 47 (cdr pair) (o e)|safe calls: 728 (o e)|assignments to immediate values: 1 o|safe globals: (lookup) o|Removed `not' forms: 7 o|removed side-effect free assignment to unused variable: module? o|contracted procedure: "(modules.scm:118) %make-module" o|inlining procedure: k3327 o|contracted procedure: "(modules.scm:127) g406415" o|inlining procedure: k3327 o|inlining procedure: k3378 o|inlining procedure: k3378 o|inlining procedure: k3370 o|inlining procedure: k3370 o|inlining procedure: k3419 o|inlining procedure: k3419 o|inlining procedure: k3470 o|inlining procedure: k3470 o|inlining procedure: k3531 o|inlining procedure: k3531 o|inlining procedure: k3514 o|inlining procedure: k3570 o|inlining procedure: k3570 o|inlining procedure: k3514 o|inlining procedure: k3606 o|contracted procedure: "(modules.scm:181) set-module-meta-expressions!" o|inlining procedure: k3606 o|inlining procedure: k3632 o|inlining procedure: k3632 o|inlining procedure: k3644 o|inlining procedure: k3644 o|inlining procedure: k3733 o|contracted procedure: "(modules.scm:223) set-module-defined-syntax-list!" o|inlining procedure: k3733 o|inlining procedure: k3814 o|inlining procedure: k3828 o|inlining procedure: k3828 o|inlining procedure: k3871 o|inlining procedure: k3871 o|inlining procedure: k3814 o|inlining procedure: k3975 o|contracted procedure: "(modules.scm:244) g612619" o|inlining procedure: k3932 o|contracted procedure: "(modules.scm:249) g625626" o|inlining procedure: k3932 o|inlining procedure: k3975 o|merged explicitly consed rest parameter: ses690 o|inlining procedure: k4273 o|inlining procedure: k4273 o|inlining procedure: k4377 o|inlining procedure: k4377 o|inlining procedure: k4393 o|inlining procedure: k4393 o|inlining procedure: k4456 o|inlining procedure: k4456 o|inlining procedure: k4492 o|inlining procedure: k4492 o|inlining procedure: k4581 o|contracted procedure: "(modules.scm:318) g756765" o|inlining procedure: k4533 o|inlining procedure: k4533 o|inlining procedure: k4581 o|inlining procedure: k4632 o|inlining procedure: k4632 o|inlining procedure: k4736 o|contracted procedure: "(modules.scm:357) find-reexport849" o|inlining procedure: k4711 o|inlining procedure: k4711 o|inlining procedure: k4736 o|consed rest parameter at call site: "(modules.scm:378) merge-se" 1 o|inlining procedure: k4858 o|consed rest parameter at call site: "(modules.scm:378) merge-se" 1 o|inlining procedure: k4858 o|consed rest parameter at call site: "(modules.scm:378) merge-se" 1 o|inlining procedure: k4869 o|consed rest parameter at call site: "(modules.scm:383) merge-se" 1 o|inlining procedure: k4888 o|consed rest parameter at call site: "(modules.scm:383) merge-se" 1 o|inlining procedure: k4888 o|consed rest parameter at call site: "(modules.scm:383) merge-se" 1 o|inlining procedure: k4869 o|consed rest parameter at call site: "(modules.scm:387) merge-se" 1 o|inlining procedure: k4918 o|consed rest parameter at call site: "(modules.scm:387) merge-se" 1 o|inlining procedure: k4918 o|consed rest parameter at call site: "(modules.scm:387) merge-se" 1 o|consed rest parameter at call site: "(modules.scm:391) merge-se" 1 o|inlining procedure: k4957 o|inlining procedure: k4957 o|inlining procedure: k4980 o|inlining procedure: k4980 o|inlining procedure: k5003 o|inlining procedure: k5003 o|consed rest parameter at call site: "(modules.scm:371) merge-se" 1 o|inlining procedure: k5034 o|contracted procedure: "(modules.scm:367) g918927" o|inlining procedure: k5034 o|inlining procedure: k5068 o|contracted procedure: "(modules.scm:361) g890899" o|inlining procedure: k4771 o|inlining procedure: k4771 o|inlining procedure: k5068 o|inlining procedure: k5102 o|inlining procedure: k5102 o|contracted procedure: "(modules.scm:400) g10121013" o|consed rest parameter at call site: "(modules.scm:423) merge-se" 1 o|inlining procedure: k5236 o|inlining procedure: k5236 o|inlining procedure: k5260 o|inlining procedure: k5260 o|inlining procedure: k5294 o|contracted procedure: "(modules.scm:407) g10411050" o|inlining procedure: k5211 o|inlining procedure: k5211 o|inlining procedure: k5294 o|inlining procedure: k5347 o|inlining procedure: k5347 o|inlining procedure: k5359 o|inlining procedure: k5374 o|inlining procedure: k5374 o|inlining procedure: k5359 o|inlining procedure: k5461 o|inlining procedure: k5461 o|inlining procedure: k5498 o|inlining procedure: k5498 o|inlining procedure: k5541 o|inlining procedure: k5541 o|substituted constant variable: a5561 o|contracted procedure: "(modules.scm:506) g12151216" o|inlining procedure: k5586 o|inlining procedure: k5586 o|consed rest parameter at call site: "(modules.scm:536) merge-se" 1 o|consed rest parameter at call site: "(modules.scm:554) merge-se" 1 o|consed rest parameter at call site: "(modules.scm:551) merge-se" 1 o|contracted procedure: "(modules.scm:547) set-module-vexports!" o|inlining procedure: k5730 o|inlining procedure: k5730 o|consed rest parameter at call site: "(modules.scm:529) merge-se" 1 o|inlining procedure: k5761 o|contracted procedure: "(modules.scm:524) g12661275" o|inlining procedure: k5623 o|inlining procedure: k5623 o|inlining procedure: k5761 o|contracted procedure: "(modules.scm:528) module-indirect-exports" o|removed side-effect free assignment to unused variable: indirect?641 o|inlining procedure: k4065 o|inlining procedure: k4065 o|inlining procedure: k4077 o|inlining procedure: k4077 o|inlining procedure: k4104 o|inlining procedure: k4104 o|inlining procedure: k4162 o|inlining procedure: k4162 o|inlining procedure: k4136 o|inlining procedure: k4136 o|inlining procedure: k4181 o|inlining procedure: k4181 o|inlining procedure: k5798 o|inlining procedure: k5798 o|inlining procedure: k5825 o|inlining procedure: k5825 o|inlining procedure: k5865 o|inlining procedure: k5865 o|contracted procedure: k5892 o|inlining procedure: k5889 o|inlining procedure: k5889 o|consed rest parameter at call site: "(modules.scm:454) merge-se" 1 o|inlining procedure: k5957 o|inlining procedure: k5957 o|inlining procedure: k5992 o|contracted procedure: "(modules.scm:450) g11321141" o|inlining procedure: k5992 o|inlining procedure: k6033 o|inlining procedure: k6033 o|substituted constant variable: saved134613471366 o|substituted constant variable: saved134813491367 o|substituted constant variable: a6175 o|inlining procedure: k6200 o|inlining procedure: k6200 o|contracted procedure: "(modules.scm:591) lookup" o|inlining procedure: k2953 o|inlining procedure: k2953 o|contracted procedure: "(modules.scm:60) g229230" o|inlining procedure: k6216 o|inlining procedure: k6216 o|inlining procedure: k6235 o|inlining procedure: k6235 o|inlining procedure: k6284 o|inlining procedure: k6284 o|inlining procedure: k6305 o|inlining procedure: k6305 o|inlining procedure: k6350 o|inlining procedure: k6374 o|inlining procedure: k6405 o|inlining procedure: k6405 o|inlining procedure: k6374 o|inlining procedure: k6450 o|inlining procedure: k6450 o|inlining procedure: k6489 o|inlining procedure: k6489 o|inlining procedure: k6350 o|inlining procedure: k6544 o|inlining procedure: k6556 o|inlining procedure: k6587 o|inlining procedure: k6587 o|inlining procedure: k6556 o|inlining procedure: k6544 o|inlining procedure: k6692 o|inlining procedure: k6692 o|inlining procedure: k6723 o|inlining procedure: k6738 o|inlining procedure: k6750 o|inlining procedure: k6790 o|inlining procedure: k6790 o|inlining procedure: k6813 o|inlining procedure: k6813 o|inlining procedure: k6750 o|inlining procedure: k6738 o|inlining procedure: k6723 o|inlining procedure: k7020 o|inlining procedure: k7020 o|inlining procedure: k7054 o|inlining procedure: k7054 o|inlining procedure: k7091 o|inlining procedure: k7091 o|substituted constant variable: a7118 o|inlining procedure: k7163 o|inlining procedure: k7173 o|contracted procedure: k7179 o|inlining procedure: k7173 o|inlining procedure: k7163 o|inlining procedure: k7208 o|contracted procedure: k7214 o|inlining procedure: k7208 o|consed rest parameter at call site: "(modules.scm:746) merge-se" 1 o|inlining procedure: k7328 o|inlining procedure: k7328 o|inlining procedure: k7362 o|inlining procedure: k7362 o|inlining procedure: k7432 o|inlining procedure: k7432 o|inlining procedure: k7466 o|inlining procedure: k7466 o|inlining procedure: k7506 o|inlining procedure: k7506 o|inlining procedure: k7529 o|inlining procedure: k7529 o|inlining procedure: k7549 o|contracted procedure: "(modules.scm:701) set-module-meta-import-forms!" o|inlining procedure: k7549 o|contracted procedure: "(modules.scm:704) set-module-import-forms!" o|inlining procedure: k7594 o|inlining procedure: k7594 o|inlining procedure: k7641 o|inlining procedure: k7641 o|inlining procedure: k7665 o|inlining procedure: k7665 o|contracted procedure: "(modules.scm:760) g20172018" o|inlining procedure: k7687 o|inlining procedure: k7687 o|inlining procedure: k7712 o|inlining procedure: k7712 o|contracted procedure: "(modules.scm:783) g20422043" o|contracted procedure: "(modules.scm:774) g20232024" o|contracted procedure: "(modules.scm:770) g20132014" o|contracted procedure: "(modules.scm:788) g20512052" o|merged explicitly consed rest parameter: args2065 o|inlining procedure: k7767 o|inlining procedure: k7767 o|consed rest parameter at call site: "(modules.scm:796) err2063" 1 o|contracted procedure: "(modules.scm:795) g20702071" o|inlining procedure: k7773 o|inlining procedure: k7773 o|contracted procedure: k7791 o|inlining procedure: k7788 o|inlining procedure: k7803 o|inlining procedure: k7803 o|contracted procedure: k7812 o|inlining procedure: k7821 o|inlining procedure: k7821 o|contracted procedure: k7839 o|inlining procedure: k7845 o|inlining procedure: k7845 o|inlining procedure: k7868 o|inlining procedure: k7868 o|consed rest parameter at call site: "(modules.scm:816) err2063" 1 o|inlining procedure: k7902 o|inlining procedure: k7902 o|consed rest parameter at call site: "(modules.scm:821) err2063" 1 o|consed rest parameter at call site: "(modules.scm:810) err2063" 1 o|consed rest parameter at call site: "(modules.scm:805) err2063" 1 o|inlining procedure: k7788 o|consed rest parameter at call site: "(modules.scm:800) err2063" 1 o|contracted procedure: "(modules.scm:824) g21012102" o|merged explicitly consed rest parameter: args2116 o|consed rest parameter at call site: "(modules.scm:835) err2115" 1 o|inlining procedure: k8023 o|inlining procedure: k8023 o|inlining procedure: k8074 o|inlining procedure: k8074 o|inlining procedure: k8083 o|inlining procedure: k8095 o|inlining procedure: k8095 o|inlining procedure: k8083 o|consed rest parameter at call site: "(modules.scm:830) err2115" 1 o|contracted procedure: "(modules.scm:827) g21112112" o|inlining procedure: k8195 o|inlining procedure: k8206 o|inlining procedure: k8206 o|inlining procedure: k8195 o|inlining procedure: k8290 o|contracted procedure: "(modules.scm:890) g22142223" o|substituted constant variable: a8276 o|inlining procedure: k8290 o|inlining procedure: k8324 o|inlining procedure: k8324 o|propagated global variable: r4rs-syntax2235 ##sys#default-macro-environment o|replaced variables: 849 o|removed binding forms: 417 o|substituted constant variable: defined-list246 o|substituted constant variable: exist-list247 o|substituted constant variable: defined-syntax-list248 o|substituted constant variable: undefined-list249 o|substituted constant variable: import-forms250 o|substituted constant variable: meta-import-forms251 o|substituted constant variable: meta-expressions252 o|substituted constant variable: saved-environments256 o|substituted constant variable: r36078420 o|substituted constant variable: r36338422 o|removed call to pure procedure with unused result: "(modules.scm:202) void" o|removed call to pure procedure with unused result: "(modules.scm:217) void" o|substituted constant variable: r38728432 o|substituted constant variable: r38728432 o|substituted constant variable: prop628 o|substituted constant variable: val629 o|removed call to pure procedure with unused result: "(modules.scm:248) void" o|removed call to pure procedure with unused result: "(modules.scm:298) void" o|substituted constant variable: r42748439 o|removed call to pure procedure with unused result: "(modules.scm:295) void" o|substituted constant variable: r43788441 o|substituted constant variable: r43788441 o|substituted constant variable: r43948445 o|removed call to pure procedure with unused result: "(modules.scm:331) void" o|substituted constant variable: r48598463 o|substituted constant variable: r48598463 o|substituted constant variable: r48898468 o|substituted constant variable: r48898468 o|substituted constant variable: r49198473 o|substituted constant variable: r49198473 o|contracted procedure: "(modules.scm:355) g862871" o|substituted constant variable: prop1015 o|substituted constant variable: r53488497 o|substituted constant variable: prop1218 o|removed call to pure procedure with unused result: "(modules.scm:535) void" o|removed call to pure procedure with unused result: "(modules.scm:540) void" o|substituted constant variable: r40668517 o|substituted constant variable: r40788519 o|converted assignments to bindings: (warn642) o|substituted constant variable: r58268533 o|removed call to pure procedure with unused result: "(modules.scm:476) void" o|inlining procedure: k5865 o|substituted constant variable: r58908540 o|substituted constant variable: r59588541 o|inlining procedure: k6033 o|substituted constant variable: se219 o|substituted constant variable: prop232 o|converted assignments to bindings: (ren1709) o|substituted constant variable: r70928594 o|substituted constant variable: r71748597 o|substituted constant variable: r71648598 o|substituted constant variable: r72098600 o|removed call to pure procedure with unused result: "(modules.scm:747) void" o|removed call to pure procedure with unused result: "(modules.scm:709) void" o|removed call to pure procedure with unused result: "(modules.scm:708) void" o|removed call to pure procedure with unused result: "(modules.scm:707) void" o|removed call to pure procedure with unused result: "(modules.scm:763) void" o|removed call to pure procedure with unused result: "(modules.scm:771) void" o|removed call to pure procedure with unused result: "(modules.scm:775) void" o|substituted constant variable: prop2045 o|removed call to pure procedure with unused result: "(modules.scm:778) void" o|substituted constant variable: prop2026 o|substituted constant variable: prop2016 o|converted assignments to bindings: (mrename1997) o|substituted constant variable: prop2054 o|substituted constant variable: prop2073 o|substituted constant variable: r78048630 o|substituted constant variable: prop2104 o|substituted constant variable: r80758643 o|substituted constant variable: r80758643 o|substituted constant variable: r80968648 o|converted assignments to bindings: (merr2123) o|converted assignments to bindings: (err2115) o|substituted constant variable: prop2114 o|simplifications: ((let . 5)) o|replaced variables: 48 o|removed binding forms: 881 o|contracted procedure: k3674 o|contracted procedure: k3754 o|contracted procedure: k3938 o|contracted procedure: k4261 o|contracted procedure: k4267 o|contracted procedure: k4477 o|inlining procedure: k5147 o|inlining procedure: k5488 o|contracted procedure: k5670 o|contracted procedure: k5688 o|contracted procedure: k5883 o|substituted constant variable: r58668730 o|inlining procedure: k2961 o|inlining procedure: "(modules.scm:626) warn1425" o|inlining procedure: "(modules.scm:646) warn1425" o|inlining procedure: "(modules.scm:667) warn1425" o|contracted procedure: k7146 o|contracted procedure: k7149 o|contracted procedure: k7152 o|contracted procedure: k7646 o|inlining procedure: k7649 o|contracted procedure: k7681 o|contracted procedure: k7695 o|contracted procedure: k7709 o|inlining procedure: k7723 o|replaced variables: 12 o|removed binding forms: 117 o|inlining procedure: k4714 o|contracted procedure: k5485 o|removed side-effect free assignment to unused variable: warn1425 o|substituted constant variable: msg14338882 o|substituted constant variable: msg14338895 o|substituted constant variable: msg14338910 o|contracted procedure: k7673 o|contracted procedure: k7692 o|contracted procedure: k7764 o|contracted procedure: k7976 o|simplifications: ((let . 1)) o|replaced variables: 9 o|removed binding forms: 39 o|inlining procedure: "(modules.scm:240) make-module" o|inlining procedure: "(modules.scm:370) make-module" o|substituted constant variable: r47158989 o|inlining procedure: "(modules.scm:405) make-module" o|replaced variables: 7 o|removed binding forms: 14 o|removed conditional forms: 1 o|removed side-effect free assignment to unused variable: make-module o|substituted constant variable: iexports3809083 o|substituted constant variable: explist3779104 o|substituted constant variable: explist3779116 o|substituted constant variable: iexports3809119 o|inlining procedure: k6197 o|inlining procedure: k6197 o|replaced variables: 10 o|removed binding forms: 5 o|substituted constant variable: r61989259 o|substituted constant variable: r61989259 o|substituted constant variable: r61989259 o|replaced variables: 3 o|removed binding forms: 15 o|removed conditional forms: 1 o|removed binding forms: 3 o|simplifications: ((if . 18) (##core#call . 647)) o| call simplifications: o| list? 3 o| fx< o| fixnum? o| cddr o| ##sys#call-with-values 2 o| ##sys#intern-symbol o| string? o| number? o| cdar 3 o| length 2 o| write-char 2 o| caddr 2 o| set-car! 4 o| ##sys#cons 17 o| ##sys#list 19 o| apply 4 o| caar 10 o| symbol? 18 o| ##sys#make-structure 4 o| list 8 o| not 3 o| set-cdr! o| eq? 20 o| null? 30 o| assq 30 o| cdr 36 o| memq 6 o| ##sys#check-list 32 o| pair? 52 o| car 46 o| cadr 15 o| ##sys#setslot 22 o| ##sys#slot 101 o| cons 105 o| values 6 o| ##sys#check-structure 25 o| ##sys#block-ref 13 o|contracted procedure: k2990 o|contracted procedure: k2999 o|contracted procedure: k3008 o|contracted procedure: k3017 o|contracted procedure: k3026 o|contracted procedure: k3035 o|contracted procedure: k3044 o|contracted procedure: k3053 o|contracted procedure: k3071 o|contracted procedure: k3080 o|contracted procedure: k3089 o|contracted procedure: k3107 o|contracted procedure: k3125 o|contracted procedure: k3143 o|contracted procedure: k3161 o|contracted procedure: k3170 o|contracted procedure: k3179 o|contracted procedure: k3188 o|contracted procedure: k3197 o|contracted procedure: k3206 o|contracted procedure: k3248 o|contracted procedure: k3244 o|contracted procedure: k3298 o|contracted procedure: k3314 o|contracted procedure: k3330 o|contracted procedure: k3333 o|contracted procedure: k3336 o|contracted procedure: k3344 o|contracted procedure: k3352 o|contracted procedure: k3307 o|contracted procedure: k3311 o|contracted procedure: k3367 o|contracted procedure: k3375 o|contracted procedure: k3381 o|contracted procedure: k3391 o|contracted procedure: k3449 o|contracted procedure: k3404 o|contracted procedure: k3443 o|contracted procedure: k3407 o|contracted procedure: k3437 o|contracted procedure: k3410 o|contracted procedure: k3431 o|contracted procedure: k3413 o|contracted procedure: k3416 o|contracted procedure: k3458 o|contracted procedure: k3485 o|contracted procedure: k3517 o|contracted procedure: k3528 o|contracted procedure: k3537 o|contracted procedure: k3543 o|contracted procedure: k3573 o|contracted procedure: k3583 o|contracted procedure: k3587 o|contracted procedure: k3613 o|contracted procedure: k3134 o|contracted procedure: k3623 o|contracted procedure: k3629 o|contracted procedure: k3647 o|contracted procedure: k3659 o|contracted procedure: k3685 o|contracted procedure: k3681 o|contracted procedure: k3693 o|contracted procedure: k3736 o|contracted procedure: k3768 o|contracted procedure: k3764 o|contracted procedure: k3062 o|contracted procedure: k3783 o|contracted procedure: k3779 o|contracted procedure: k3798 o|contracted procedure: k3820 o|contracted procedure: k3842 o|contracted procedure: k3838 o|contracted procedure: k3853 o|contracted procedure: k3849 o|contracted procedure: k3863 o|contracted procedure: k3871 o|contracted procedure: k3921 o|contracted procedure: k3880 o|contracted procedure: k3915 o|contracted procedure: k3883 o|contracted procedure: k3909 o|contracted procedure: k3886 o|contracted procedure: k3903 o|contracted procedure: k3889 o|contracted procedure: k3892 o|contracted procedure: k3900 o|contracted procedure: k3896 o|contracted procedure: k3966 o|contracted procedure: k3978 o|contracted procedure: k3988 o|contracted procedure: k3992 o|contracted procedure: k3963 o|contracted procedure: k3948 o|contracted procedure: k3955 o|contracted procedure: k4276 o|contracted procedure: k4302 o|contracted procedure: k4282 o|contracted procedure: k4357 o|contracted procedure: k4528 o|contracted procedure: k4572 o|contracted procedure: k4361 o|contracted procedure: k4365 o|contracted procedure: k4445 o|contracted procedure: k4450 o|contracted procedure: k4453 o|contracted procedure: k4459 o|contracted procedure: k4466 o|contracted procedure: k4483 o|contracted procedure: k4369 o|contracted procedure: k4353 o|contracted procedure: k4349 o|contracted procedure: k4380 o|contracted procedure: k4396 o|contracted procedure: k4441 o|contracted procedure: k4402 o|contracted procedure: k4410 o|contracted procedure: k4427 o|contracted procedure: k4417 o|contracted procedure: k4495 o|contracted procedure: k4498 o|contracted procedure: k4501 o|contracted procedure: k4509 o|contracted procedure: k4517 o|contracted procedure: k4584 o|contracted procedure: k4587 o|contracted procedure: k4590 o|contracted procedure: k4598 o|contracted procedure: k4606 o|contracted procedure: k4566 o|contracted procedure: k4536 o|contracted procedure: k4543 o|contracted procedure: k4554 o|contracted procedure: k4558 o|contracted procedure: k4617 o|contracted procedure: k4623 o|contracted procedure: k4635 o|contracted procedure: k4638 o|contracted procedure: k4641 o|contracted procedure: k4649 o|contracted procedure: k4657 o|contracted procedure: k4663 o|contracted procedure: k4670 o|contracted procedure: k4677 o|contracted procedure: k4692 o|contracted procedure: k4688 o|contracted procedure: k4684 o|contracted procedure: k5133 o|contracted procedure: k4702 o|contracted procedure: k4731 o|contracted procedure: k4760 o|contracted procedure: k4766 o|contracted procedure: k4800 o|contracted procedure: k4806 o|contracted procedure: k4826 o|contracted procedure: k4832 o|contracted procedure: k4847 o|contracted procedure: k4855 o|contracted procedure: k4861 o|contracted procedure: k4892 o|contracted procedure: k4872 o|contracted procedure: k4885 o|contracted procedure: k4895 o|contracted procedure: k4907 o|contracted procedure: k4915 o|contracted procedure: k4921 o|contracted procedure: k4935 o|contracted procedure: k4931 o|contracted procedure: k4939 o|contracted procedure: k4960 o|contracted procedure: k4970 o|contracted procedure: k4974 o|contracted procedure: k4983 o|contracted procedure: k4993 o|contracted procedure: k4997 o|contracted procedure: k5006 o|contracted procedure: k5016 o|contracted procedure: k5020 o|contracted procedure: k5037 o|contracted procedure: k5040 o|contracted procedure: k5043 o|contracted procedure: k5051 o|contracted procedure: k5059 o|contracted procedure: k4815 o|contracted procedure: k5071 o|contracted procedure: k5074 o|contracted procedure: k5077 o|contracted procedure: k5085 o|contracted procedure: k5093 o|contracted procedure: k4797 o|contracted procedure: k4774 o|contracted procedure: k4783 o|contracted procedure: k4791 o|contracted procedure: k5105 o|contracted procedure: k5108 o|contracted procedure: k5111 o|contracted procedure: k5119 o|contracted procedure: k5127 o|contracted procedure: k4739 o|contracted procedure: k4708 o|contracted procedure: k4724 o|contracted procedure: k4714 o|contracted procedure: k4749 o|contracted procedure: k5155 o|contracted procedure: k5325 o|contracted procedure: k5161 o|contracted procedure: k5206 o|contracted procedure: k5224 o|contracted procedure: k5231 o|contracted procedure: k5239 o|contracted procedure: k5242 o|contracted procedure: k5251 o|contracted procedure: k5167 o|contracted procedure: k5178 o|contracted procedure: k5174 o|contracted procedure: k5182 o|contracted procedure: k5263 o|contracted procedure: k5266 o|contracted procedure: k5269 o|contracted procedure: k5277 o|contracted procedure: k5285 o|contracted procedure: k5297 o|contracted procedure: k5300 o|contracted procedure: k5303 o|contracted procedure: k5311 o|contracted procedure: k5319 o|contracted procedure: k5214 o|contracted procedure: k5350 o|contracted procedure: k5400 o|contracted procedure: k5353 o|contracted procedure: k5362 o|contracted procedure: k5389 o|contracted procedure: k5365 o|contracted procedure: k5403 o|contracted procedure: k5424 o|contracted procedure: k5443 o|contracted procedure: k5457 o|contracted procedure: k5464 o|contracted procedure: k5563 o|contracted procedure: k5501 o|contracted procedure: k5532 o|contracted procedure: k5544 o|contracted procedure: k5554 o|contracted procedure: k5558 o|contracted procedure: k5566 o|contracted procedure: k5589 o|contracted procedure: k5599 o|contracted procedure: k5603 o|contracted procedure: k5609 o|contracted procedure: k5618 o|contracted procedure: k5653 o|contracted procedure: k5679 o|contracted procedure: k5682 o|contracted procedure: k5704 o|contracted procedure: k3152 o|contracted procedure: k5733 o|contracted procedure: k5743 o|contracted procedure: k5747 o|contracted procedure: k5764 o|contracted procedure: k5767 o|contracted procedure: k5770 o|contracted procedure: k5778 o|contracted procedure: k5786 o|contracted procedure: k5647 o|contracted procedure: k5626 o|contracted procedure: k5629 o|contracted procedure: k4068 o|contracted procedure: k4080 o|contracted procedure: k4252 o|contracted procedure: k4086 o|contracted procedure: k4098 o|contracted procedure: k4107 o|contracted procedure: k4114 o|contracted procedure: k4244 o|contracted procedure: k4120 o|contracted procedure: k4133 o|contracted procedure: k4155 o|contracted procedure: k4159 o|contracted procedure: k4173 o|contracted procedure: k4219 o|contracted procedure: k4184 o|contracted procedure: k4201 o|contracted procedure: k4191 o|contracted procedure: k4215 o|contracted procedure: k5801 o|contracted procedure: k5811 o|contracted procedure: k5815 o|contracted procedure: k5934 o|contracted procedure: k5819 o|contracted procedure: k5828 o|contracted procedure: k5831 o|contracted procedure: k5928 o|contracted procedure: k5834 o|contracted procedure: k5840 o|contracted procedure: k5862 o|inlining procedure: k5865 o|contracted procedure: k5874 o|inlining procedure: k5865 o|contracted procedure: k5914 o|contracted procedure: k5925 o|contracted procedure: k5937 o|contracted procedure: k5960 o|contracted procedure: k5986 o|contracted procedure: k5995 o|contracted procedure: k5998 o|contracted procedure: k6001 o|contracted procedure: k6009 o|contracted procedure: k6017 o|contracted procedure: k5433 o|contracted procedure: k6197 o|contracted procedure: k6219 o|contracted procedure: k6238 o|contracted procedure: k6247 o|contracted procedure: k6287 o|contracted procedure: k7120 o|contracted procedure: k6296 o|contracted procedure: k6327 o|contracted procedure: k6331 o|contracted procedure: k6344 o|contracted procedure: k6359 o|contracted procedure: k6362 o|contracted procedure: k6377 o|contracted procedure: k6385 o|contracted procedure: k6399 o|contracted procedure: k6395 o|contracted procedure: k6408 o|contracted procedure: k6418 o|contracted procedure: k6422 o|contracted procedure: k6483 o|contracted procedure: k6425 o|contracted procedure: k6437 o|contracted procedure: k6441 o|contracted procedure: k6447 o|contracted procedure: k6459 o|contracted procedure: k6463 o|contracted procedure: k6475 o|contracted procedure: k6492 o|contracted procedure: k6495 o|contracted procedure: k6498 o|contracted procedure: k6506 o|contracted procedure: k6514 o|contracted procedure: k6529 o|contracted procedure: k6532 o|contracted procedure: k6547 o|contracted procedure: k6559 o|contracted procedure: k6567 o|contracted procedure: k6581 o|contracted procedure: k6577 o|contracted procedure: k6590 o|contracted procedure: k6600 o|contracted procedure: k6604 o|contracted procedure: k6645 o|contracted procedure: k6607 o|contracted procedure: k6619 o|contracted procedure: k6627 o|contracted procedure: k6639 o|contracted procedure: k6686 o|contracted procedure: k6648 o|contracted procedure: k6660 o|contracted procedure: k6668 o|contracted procedure: k6680 o|contracted procedure: k6695 o|contracted procedure: k6698 o|contracted procedure: k6701 o|contracted procedure: k6709 o|contracted procedure: k6717 o|contracted procedure: k6741 o|contracted procedure: k6753 o|contracted procedure: k6761 o|contracted procedure: k6764 o|contracted procedure: k6770 o|contracted procedure: k6784 o|contracted procedure: k6780 o|contracted procedure: k6793 o|contracted procedure: k6803 o|contracted procedure: k6807 o|contracted procedure: k6816 o|contracted procedure: k6838 o|contracted procedure: k6834 o|contracted procedure: k6819 o|contracted procedure: k6822 o|contracted procedure: k6830 o|contracted procedure: k6894 o|contracted procedure: k6844 o|contracted procedure: k6856 o|contracted procedure: k6872 o|contracted procedure: k6876 o|contracted procedure: k6868 o|contracted procedure: k6860 o|contracted procedure: k6888 o|contracted procedure: k6947 o|contracted procedure: k6897 o|contracted procedure: k6909 o|contracted procedure: k6925 o|contracted procedure: k6929 o|contracted procedure: k6921 o|contracted procedure: k6913 o|contracted procedure: k6941 o|contracted procedure: k6959 o|contracted procedure: k6987 o|contracted procedure: k6994 o|contracted procedure: k6998 o|contracted procedure: k7001 o|contracted procedure: k7008 o|contracted procedure: k7011 o|contracted procedure: k7023 o|contracted procedure: k7026 o|contracted procedure: k7029 o|contracted procedure: k7037 o|contracted procedure: k7045 o|contracted procedure: k7057 o|contracted procedure: k7060 o|contracted procedure: k7063 o|contracted procedure: k7071 o|contracted procedure: k7079 o|contracted procedure: k7104 o|contracted procedure: k7094 o|contracted procedure: k7108 o|contracted procedure: k7115 o|contracted procedure: k7160 o|contracted procedure: k7166 o|contracted procedure: k7190 o|contracted procedure: k7186 o|contracted procedure: k7197 o|contracted procedure: k7233 o|contracted procedure: k7205 o|contracted procedure: k7229 o|contracted procedure: k7223 o|contracted procedure: k7240 o|contracted procedure: k7294 o|contracted procedure: k7312 o|contracted procedure: k7319 o|contracted procedure: k7331 o|contracted procedure: k7353 o|contracted procedure: k7349 o|contracted procedure: k7334 o|contracted procedure: k7337 o|contracted procedure: k7345 o|contracted procedure: k7365 o|contracted procedure: k7387 o|contracted procedure: k7383 o|contracted procedure: k7368 o|contracted procedure: k7371 o|contracted procedure: k7379 o|contracted procedure: k7497 o|contracted procedure: k7412 o|contracted procedure: k7416 o|contracted procedure: k7423 o|contracted procedure: k7435 o|contracted procedure: k7457 o|contracted procedure: k7453 o|contracted procedure: k7438 o|contracted procedure: k7441 o|contracted procedure: k7449 o|contracted procedure: k7469 o|contracted procedure: k7491 o|contracted procedure: k7487 o|contracted procedure: k7472 o|contracted procedure: k7475 o|contracted procedure: k7483 o|contracted procedure: k7509 o|contracted procedure: k7519 o|contracted procedure: k7523 o|contracted procedure: k7532 o|contracted procedure: k7542 o|contracted procedure: k7546 o|contracted procedure: k3116 o|contracted procedure: k7564 o|contracted procedure: k3098 o|contracted procedure: k7579 o|contracted procedure: k7582 o|contracted procedure: k7585 o|contracted procedure: k7597 o|contracted procedure: k7607 o|contracted procedure: k7611 o|contracted procedure: k7625 o|contracted procedure: k7629 o|contracted procedure: k7698 o|contracted procedure: k7706 o|contracted procedure: k7715 o|contracted procedure: k7776 o|contracted procedure: k7782 o|contracted procedure: k7952 o|contracted procedure: k7806 o|contracted procedure: k7948 o|contracted procedure: k7818 o|contracted procedure: k7824 o|contracted procedure: k7944 o|contracted procedure: k7940 o|contracted procedure: k7848 o|contracted procedure: k7865 o|contracted procedure: k7878 o|contracted procedure: k7884 o|contracted procedure: k7891 o|contracted procedure: k7905 o|contracted procedure: k7916 o|contracted procedure: k7934 o|contracted procedure: k7922 o|contracted procedure: k7968 o|contracted procedure: k7964 o|contracted procedure: k7988 o|contracted procedure: k7991 o|contracted procedure: k8003 o|contracted procedure: k8011 o|contracted procedure: k8014 o|contracted procedure: k8007 o|contracted procedure: k8026 o|contracted procedure: k8048 o|contracted procedure: k8044 o|contracted procedure: k8029 o|contracted procedure: k8032 o|contracted procedure: k8040 o|contracted procedure: k8077 o|contracted procedure: k8070 o|contracted procedure: k8066 o|contracted procedure: k8062 o|contracted procedure: k8086 o|contracted procedure: k8098 o|contracted procedure: k8101 o|contracted procedure: k8137 o|contracted procedure: k8107 o|contracted procedure: k8110 o|contracted procedure: k8124 o|contracted procedure: k8143 o|contracted procedure: k8149 o|contracted procedure: k8152 o|contracted procedure: k8155 o|contracted procedure: k8158 o|contracted procedure: k8161 o|contracted procedure: k8172 o|contracted procedure: k8198 o|contracted procedure: k8230 o|contracted procedure: k8203 o|contracted procedure: k8209 o|contracted procedure: k8216 o|contracted procedure: k8236 o|contracted procedure: k8245 o|contracted procedure: k8268 o|contracted procedure: k8281 o|contracted procedure: k8293 o|contracted procedure: k8296 o|contracted procedure: k8299 o|contracted procedure: k8307 o|contracted procedure: k8315 o|contracted procedure: k8327 o|contracted procedure: k8337 o|contracted procedure: k8341 o|contracted procedure: k8385 o|contracted procedure: k8369 o|contracted procedure: k8382 o|simplifications: ((let . 95)) o|removed binding forms: 547 o|inlining procedure: "(modules.scm:115) module-sexports" o|inlining procedure: "(modules.scm:114) module-vexports" o|inlining procedure: "(modules.scm:113) module-export-list" o|inlining procedure: "(modules.scm:155) module-saved-environments" o|inlining procedure: "(modules.scm:152) set-module-saved-environments!" o|inlining procedure: "(modules.scm:174) set-module-exist-list!" o|inlining procedure: "(modules.scm:173) set-module-sexports!" o|inlining procedure: "(modules.scm:173) module-sexports" o|inlining procedure: "(modules.scm:164) module-exist-list" o|inlining procedure: "(modules.scm:175) set-module-export-list!" o|inlining procedure: "(modules.scm:162) module-export-list" o|inlining procedure: "(modules.scm:181) module-meta-expressions" o|inlining procedure: "(modules.scm:203) set-module-defined-list!" o|inlining procedure: "(modules.scm:206) module-defined-list" o|inlining procedure: "(modules.scm:200) set-module-exist-list!" o|inlining procedure: "(modules.scm:200) module-exist-list" o|inlining procedure: "(modules.scm:195) module-name" o|inlining procedure: "(modules.scm:191) module-export-list" o|inlining procedure: "(modules.scm:225) module-defined-syntax-list" o|inlining procedure: "(modules.scm:219) set-module-defined-list!" o|inlining procedure: "(modules.scm:222) module-defined-list" o|inlining procedure: "(modules.scm:213) module-name" o|inlining procedure: "(modules.scm:210) module-export-list" o|inlining procedure: k3867 o|inlining procedure: k3867 o|inlining procedure: "(modules.scm:337) module-defined-syntax-list" o|inlining procedure: "(modules.scm:323) module-vexports" o|inlining procedure: "(modules.scm:322) module-iexports" o|inlining procedure: "(modules.scm:316) module-name" o|inlining procedure: "(modules.scm:314) module-meta-expressions" o|inlining procedure: "(modules.scm:311) module-meta-import-forms" o|inlining procedure: "(modules.scm:310) module-sexports" o|inlining procedure: "(modules.scm:309) module-import-forms" o|inlining procedure: "(modules.scm:308) module-name" o|inlining procedure: "(modules.scm:307) module-defined-list" o|inlining procedure: "(modules.scm:389) set-module-saved-environments!" o|inlining procedure: "(modules.scm:421) set-module-saved-environments!" o|inlining procedure: "(modules.scm:425) module-sexports" o|inlining procedure: "(modules.scm:424) module-vexports" o|inlining procedure: "(modules.scm:432) module-exist-list" o|inlining procedure: "(modules.scm:431) module-export-list" o|inlining procedure: "(modules.scm:552) set-module-saved-environments!" o|inlining procedure: "(modules.scm:549) set-module-iexports!" o|inlining procedure: "(modules.scm:551) module-iexports" o|inlining procedure: "(modules.scm:548) set-module-sexports!" o|inlining procedure: "(modules.scm:255) module-defined-list" o|inlining procedure: "(modules.scm:254) module-name" o|inlining procedure: "(modules.scm:253) module-export-list" o|inlining procedure: "(modules.scm:454) module-sexports" o|inlining procedure: "(modules.scm:451) module-defined-syntax-list" o|inlining procedure: "(modules.scm:448) module-exist-list" o|inlining procedure: "(modules.scm:447) module-defined-list" o|inlining procedure: "(modules.scm:446) module-name" o|inlining procedure: "(modules.scm:445) module-export-list" o|inlining procedure: "(modules.scm:605) module-name" o|inlining procedure: "(modules.scm:604) module-iexports" o|inlining procedure: "(modules.scm:603) module-sexports" o|inlining procedure: "(modules.scm:602) module-vexports" o|inlining procedure: "(modules.scm:744) set-module-iexports!" o|inlining procedure: "(modules.scm:746) module-iexports" o|inlining procedure: "(modules.scm:731) set-module-exist-list!" o|inlining procedure: "(modules.scm:733) module-exist-list" o|inlining procedure: "(modules.scm:730) set-module-sexports!" o|inlining procedure: "(modules.scm:730) module-sexports" o|inlining procedure: "(modules.scm:737) set-module-export-list!" o|inlining procedure: "(modules.scm:740) module-export-list" o|inlining procedure: "(modules.scm:728) module-export-list" o|inlining procedure: "(modules.scm:703) module-meta-import-forms" o|inlining procedure: "(modules.scm:706) module-import-forms" o|inlining procedure: "(modules.scm:767) module-name" o|inlining procedure: "(modules.scm:767) module-name" o|inlining procedure: "(modules.scm:879) module-sexports" o|inlining procedure: "(modules.scm:878) module-vexports" o|inlining procedure: "(modules.scm:945) module-saved-environments" o|replaced variables: 203 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: 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: 138 o|removed binding forms: 106 o|inlining procedure: k3228 o|contracted procedure: k3348 o|inlining procedure: k3564 o|inlining procedure: k3720 o|inlining procedure: k5202 o|inlining procedure: k5724 o|inlining procedure: k5944 o|inlining procedure: k6271 o|inlining procedure: k7291 o|inlining procedure: k7398 o|inlining procedure: k7560 o|inlining procedure: k7575 o|inlining procedure: k7656 o|inlining procedure: k76568945 o|inlining procedure: k8223 o|inlining procedure: k8375 o|replaced variables: 3 o|removed binding forms: 129 o|contracted procedure: k3220 o|contracted procedure: k3224 o|contracted procedure: k3511 o|contracted procedure: k3520 o|contracted procedure: k3617 o|contracted procedure: k3727 o|contracted procedure: k3689 o|contracted procedure: k3697 o|contracted procedure: k3808 o|contracted procedure: k3745 o|contracted procedure: k3772 o|contracted procedure: k3787 o|contracted procedure: k4310 o|contracted procedure: k4313 o|contracted procedure: k4316 o|contracted procedure: k4319 o|contracted procedure: k4322 o|contracted procedure: k4613 o|contracted procedure: k4569 o|contracted procedure: k4524 o|contracted procedure: k4387 o|contracted procedure: k4620 o|contracted procedure: k5198 o|contracted procedure: k5334 o|contracted procedure: k5412 o|contracted procedure: k5415 o|contracted procedure: k5418 o|contracted procedure: k5421 o|contracted procedure: k5440 o|contracted procedure: k3998 o|contracted procedure: k4001 o|contracted procedure: k4004 o|contracted procedure: k6262 o|contracted procedure: k6265 o|contracted procedure: k6268 o|contracted procedure: k7274 o|contracted procedure: k7308 o|contracted procedure: k7409 o|contracted procedure: k8227 o|removed binding forms: 55 o|replaced variables: 32 o|removed binding forms: 17 o|direct leaf routine/allocation: g515516 3 o|direct leaf routine with hoistable closures/allocation: g499506 (g515516) 3 o|contracted procedure: "(modules.scm:164) k3576" o|removed binding forms: 2 o|customizable procedures: (g21872194 for-each-loop21862201 map-loop22082226 k8212 loop2150 merr2123 loop22157 map-loop21262143 err2115 loop22086 k7871 loop2074 iface2064 err2063 g20332034 mrename1997 g20052006 g17721779 for-each-loop17711973 g18111818 for-each-loop18101824 g18321839 for-each-loop18311843 map-loop19091926 map-loop19351952 map-loop18551872 map-loop18811898 k7246 k6299 k6308 map-loop17161733 map-loop17421759 tostr1426 g17031704 loop1631 g16981699 loop1640 map-loop16641681 g16521659 for-each-loop16511688 map-loop15561573 g16261627 loop1580 g16211622 loop1589 g16011608 for-each-loop16001611 map-loop14871504 g15481549 g15441545 loop1511 g15241531 for-each-loop15231534 import-spec1428 import-name1427 map-loop11261144 loop1152 k5868 k5880 k5852 loop1160 g11811188 for-each-loop11801252 g676677 g669670 k4145 warn642 loop2660 loop654 map-loop12601285 g12961303 for-each-loop12951310 g11971204 for-each-loop11961208 g12281235 for-each-loop12271240 k5341 k5371 loop1097 map-loop10351053 g10681077 map-loop10621083 map-loop856874 map-loop884902 map-loop912930 g942949 for-each-loop941955 g963970 for-each-loop962976 g984991 for-each-loop983997 merge-se k4329 k4337 map-loop724741 k4602 map-loop750774 g789798 map-loop783816 loop823 k4373 loop695 k3935 for-each-loop611631 g583584 k3831 for-each-loop498518 g482483 k3467 g444445 loop435 map-loop400418) o|calls to known targets: 251 o|identified direct recursive calls: f_3325 1 o|identified direct recursive calls: f_3568 1 o|identified direct recursive calls: f_4271 2 o|identified direct recursive calls: f_4391 1 o|identified direct recursive calls: f_5345 1 o|identified direct recursive calls: f_4075 1 o|identified direct recursive calls: f_5823 1 o|identified direct recursive calls: f_6372 1 o|identified direct recursive calls: f_6554 1 o|identified direct recursive calls: f_6542 1 o|identified direct recursive calls: f_6811 1 o|identified direct recursive calls: f_6748 1 o|identified direct recursive calls: f_6736 1 o|identified direct recursive calls: f_7326 1 o|identified direct recursive calls: f_7360 1 o|identified direct recursive calls: f_7430 1 o|identified direct recursive calls: f_7464 1 o|identified direct recursive calls: f_7900 1 o|identified direct recursive calls: f_7801 2 o|identified direct recursive calls: f_8021 1 o|fast box initializations: 61 o|fast global references: 16 o|fast global assignments: 2 o|dropping unused closure argument: f_4256 o|dropping unused closure argument: f_6257 */ /* end of file */ ���������������������������������������������������������������chicken-4.12.0/scheduler.scm������������������������������������������������������������������������0000644�0001750�0001750�00000051130�13052306173�015472� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������; scheduler.scm - Basic scheduler for multithreading ; ; Copyright (c) 2008-2017, 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) (disable-interrupts) (hide ready-queue-head ready-queue-tail ##sys#timeout-list ##sys#update-thread-state-buffer ##sys#restore-thread-state-buffer remove-from-ready-queue ##sys#unblock-threads-for-i/o ;; This isn't hidden ATM to allow set!ing it as a hook/workaround ; ##sys#force-primordial fdset-set fdset-test create-fdset stderr ##sys#clear-i/o-state-for-thread! ##sys#abandon-mutexes) (not inline ##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(C_unfix(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(C_unfix(ms) * 1000) == -1) return C_SCHEME_FALSE; #else struct timespec ts; unsigned long mss = C_unfix(ms); ts.tv_sec = mss / 1000; ts.tv_nsec = (mss % 1000) * 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)) C_inline int C_ready_fds_timeout(int to, double 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); } C_inline void C_prepare_fdset(int length) { FD_ZERO(&C_fdset_input); FD_ZERO(&C_fdset_output); } C_inline 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; C_inline 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)) C_inline int C_ready_fds_timeout(int to, double tm) { return poll(C_fdset_set, C_fdset_nfds, to ? (int)tm : -1); } C_inline 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 */ C_inline 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 ) ) (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 (##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)) ((##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" 4) #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 (fp>= 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))) (set! eintr (and (not (##core#inline "C_msleep" (fxmax 0 (##core#inline "C_quickflonumtruncate" (fp- 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) (unless (flonum? tm) ; to catch old code that uses fixnum timeouts (panic (sprintf "##sys#thread-block-for-timeout!: invalid timeout: ~S" tm))) (when (fp> tm 0.0) ;; This should really use a balanced tree: (let loop ([tl ##sys#timeout-list] [prev #f]) (if (or (null? tl) (fp< 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 (##sys#delq t (##sys#slot blocked 2)))) ((##sys#structure? blocked 'thread) (##sys#setslot blocked 12 (##sys#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 () (##sys#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)) (now (##core#inline_allocate ("C_a_i_current_milliseconds" 4) #f))) (fpmax 0.0 (fp- tmo1 now)) ) 0.0) ) ) ; otherwise immediate timeout. (dbg "waiting for I/O with timeout " tmo) (let ((n ((foreign-lambda int "C_ready_fds_timeout" bool double) (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 (##sys#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) ) ) ;;; 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-4.12.0/lolevel.scm��������������������������������������������������������������������������0000644�0001750�0001750�00000054561�13052306173�015171� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; lolevel.scm - Low-level routines for CHICKEN ; ; Copyright (c) 2008-2017, 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) (uses srfi-69) (hide ipc-hook-0 *set-invalid-procedure-call-handler! xproc-tag ##sys#check-block ##sys#check-become-alist ##sys#check-generic-structure ##sys#check-generic-vector pv-buf-ref pv-buf-set!) (not inline ipc-hook-0 ##sys#invalid-procedure-call-hook) (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") (register-feature! 'lolevel) ;;; 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 s8vector s16vector s32vector 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)] ) ) ) ) ) ;;; 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 (or (##core#inline "C_byteblockp" x) (symbol? 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) ] ) ) ) ;;; 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) ) ) ;;; 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 f32vector (C_F32_LOCATIVE) ; 9 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" 4) loc)) locative-set! "(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))) ;;; 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-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! "(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! "(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! "(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! "(pointer-s16-ref p)")) (define pointer-u32-ref (getter-with-setter (lambda (p) (##core#inline_allocate ("C_a_u_i_pointer_u32_ref" 4) p)) ;XXX hardcoded size pointer-u32-set! "(pointer-u32-ref p)")) (define pointer-s32-ref (getter-with-setter (lambda (p) (##core#inline_allocate ("C_a_u_i_pointer_s32_ref" 4) p)) ;XXX hardcoded size pointer-s32-set! "(pointer-s32-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! "(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! "(pointer-f64-ref p)")) ;;; 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! (lambda (proc x) (let ((p2 (extend-procedure proc x))) (if (eq? p2 proc) proc (##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! "(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! "(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)) ) ) ) ;;; Evict objects into static memory: (define (object-evicted? x) (##core#inline "C_permanentp" x)) (define (object-evict x . allocator) (let ([allocator (if (pair? allocator) (car allocator) (foreign-lambda c-pointer "C_malloc" int) ) ] [tab (make-hash-table eq?)] ) (##sys#check-closure allocator 'object-evict) (let evict ([x x]) (cond [(not (##core#inline "C_blockp" x)) x ] [(hash-table-ref/default tab x #f) ] [else (let* ([n (##sys#size x)] [bytes (if (##core#inline "C_byteblockp" x) (align-to-word n) (##core#inline "C_bytes" n))] [y (##core#inline "C_evict_block" x (allocator (fx+ bytes (##core#inline "C_bytes" 1))))] ) (when (symbol? x) (##sys#setislot y 0 (void))) (hash-table-set! tab x y) (unless (##core#inline "C_byteblockp" x) (do ([i (if (or (##core#inline "C_specialp" x) (symbol? x)) 1 0) (fx+ i 1)]) [(fx>= i n)] ;; Note the use of `##sys#setislot' to avoid an entry in the mutations-table: (##sys#setislot y i (evict (##sys#slot x i))) ) ) y ) ] ) ) ) ) (define (object-evict-to-location x ptr . limit) (##sys#check-special ptr 'object-evict-to-location) (let* ([limit (and (pair? limit) (let ([limit (car limit)]) (##sys#check-exact limit 'object-evict-to-location) limit)) ] [ptr2 (##sys#address->pointer (##sys#pointer->address ptr))] [tab (make-hash-table eq?)] [x2 (let evict ([x x]) (cond [(not (##core#inline "C_blockp" x)) x ] [(hash-table-ref/default tab x #f) ] [else (let* ([n (##sys#size x)] [bytes (fx+ (if (##core#inline "C_byteblockp" x) (align-to-word n) (##core#inline "C_bytes" n)) (##core#inline "C_bytes" 1) ) ] ) (when limit (set! limit (fx- limit bytes)) (when (fx< limit 0) (signal (make-composite-condition (make-property-condition 'exn 'location 'object-evict-to-location 'message "cannot evict object - limit exceeded" 'arguments (list x limit)) (make-property-condition 'evict 'limit limit) ) ) ) ) (let ([y (##core#inline "C_evict_block" x ptr2)]) (when (symbol? x) (##sys#setislot y 0 (void))) (##sys#set-pointer-address! ptr2 (+ (##sys#pointer->address ptr2) bytes)) (hash-table-set! tab x y) (unless (##core#inline "C_byteblockp" x) (do ([i (if (or (##core#inline "C_specialp" x) (symbol? x)) 1 0) (fx+ i 1)] ) [(fx>= i n)] (##sys#setislot y i (evict (##sys#slot x i))) ) ) ; see above y) ) ] ) ) ] ) (values x2 ptr2) ) ) (define (object-release x . releaser) (let ([free (if (pair? releaser) (car releaser) (foreign-lambda void "C_free" c-pointer) ) ] [released '() ] ) (let release ([x x]) (cond [(not (##core#inline "C_blockp" x)) x ] [(not (##core#inline "C_permanentp" x)) x ] [(memq x released) x ] [else (let ([n (##sys#size x)]) (set! released (cons x released)) (unless (##core#inline "C_byteblockp" x) (do ([i (if (##core#inline "C_specialp" x) 1 0) (fx+ i 1)]) [(fx>= i n)] (release (##sys#slot x i))) ) (free (##sys#address->pointer (##core#inline_allocate ("C_block_address" 4) x))) ) ] ) ) ) ) (define (object-size x) (let ([tab (make-hash-table eq?)]) (let evict ([x x]) (cond [(not (##core#inline "C_blockp" x)) 0 ] [(hash-table-ref/default tab x #f) 0 ] [else (let* ([n (##sys#size x)] [bytes (fx+ (if (##core#inline "C_byteblockp" x) (align-to-word n) (##core#inline "C_bytes" n)) (##core#inline "C_bytes" 1) ) ] ) (hash-table-set! tab x #t) (unless (##core#inline "C_byteblockp" x) (do ([i (if (or (##core#inline "C_specialp" x) (symbol? x)) 1 0) (fx+ i 1)]) [(fx>= i n)] (set! bytes (fx+ (evict (##sys#slot x i)) bytes)) ) ) bytes) ] ) ) ) ) (define (object-unevict x #!optional full) (let ([tab (make-hash-table eq?)]) (let copy ([x x]) (cond [(not (##core#inline "C_blockp" x)) x ] [(not (##core#inline "C_permanentp" x)) x ] [(hash-table-ref/default tab x #f) ] [(##core#inline "C_byteblockp" x) (if full (let ([y (##core#inline "C_copy_block" x (##sys#make-string (##sys#size x)))]) (hash-table-set! tab x y) y) x) ] [(symbol? x) (let ([y (##sys#intern-symbol (##sys#slot x 1))]) (hash-table-set! tab x y) y) ] [else (let* ([words (##sys#size x)] [y (##core#inline "C_copy_block" x (##sys#make-vector words))] ) (hash-table-set! tab x y) (do ([i (if (##core#inline "C_specialp" x) 1 0) (fx+ i 1)]) ((fx>= i words)) (##sys#setslot y i (copy (##sys#slot y i))) ) y) ] ) ) ) ) ;;; `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 ) ) ;;; pointer vectors (define make-pointer-vector (let ((unset (list 'unset))) (lambda (n #!optional (init unset)) (##sys#check-exact n 'make-pointer-vector) (let* ((mul (##sys#fudge 7)) ; wordsize (size (fx* n mul)) (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! "(pointer-vector-ref pv i)")) (define (pointer-vector-length pv) (##sys#check-structure pv 'pointer-vector 'pointer-vector-length) (##sys#slot pv 1)) �����������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/GNUmakefile��������������������������������������������������������������������������0000644�0001750�0001750�00000004400�13052302367�015061� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# GNUmakefile - toplevel makefile. This simply includes the # platform-specific makefile or quits when no platform is selected. # # Copyright (c) 2008-2017, 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-4.12.0/eval.scm�����������������������������������������������������������������������������0000644�0001750�0001750�00000162335�13052306173�014455� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; eval.scm - Interpreter for CHICKEN ; ; Copyright (c) 2008-2017, 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 expand modules) (hide pds pdss pxss d) (not inline ##sys#repl-read-hook ##sys#repl-print-hook ##sys#read-prompt-hook ##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 #define C_rnd_fix() (C_fix(rand())) <# (include "common-declarations.scm") (define-syntax d (syntax-rules () ((_ . _) (void)))) (define-foreign-variable install-egg-home c-string "C_INSTALL_EGG_HOME") (define-foreign-variable installation-home c-string "C_INSTALL_SHARE_HOME") (define-foreign-variable binary-version int "C_BINARY_VERSION") (define-foreign-variable uses-soname? bool "C_USES_SONAME") (define-foreign-variable install-lib-name c-string "C_INSTALL_LIB_NAME") (define ##sys#core-library-modules '(extras lolevel utils files tcp irregex posix srfi-1 srfi-4 srfi-13 srfi-14 srfi-18 srfi-69 data-structures ports)) (define ##sys#core-syntax-modules '(chicken-syntax chicken-ffi-syntax)) (define ##sys#explicit-library-modules '()) (define default-dynamic-load-libraries `(,(string-append "lib" install-lib-name))) (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 environment-table-size 301) (define-constant source-file-extension ".scm") (define-constant setup-file-extension "setup-info") (define-constant repository-environment-variable "CHICKEN_REPOSITORY") (define-constant prefix-environment-variable "CHICKEN_PREFIX") ; these are actually in unit extras, but that is used by default ; srfi-12 in unit library ; srfi-98 partially in unit posix (define-constant builtin-features '(chicken srfi-2 srfi-6 srfi-10 srfi-12 srfi-23 srfi-28 srfi-30 srfi-39 srfi-55 srfi-88 srfi-98) ) (define-constant builtin-features/compiled '(srfi-8 srfi-9 srfi-11 srfi-15 srfi-16 srfi-17 srfi-26) ) (define ##sys#chicken-prefix (let ((prefix (and-let* ((p (get-environment-variable prefix-environment-variable))) (##sys#string-append p (if (memq (string-ref p (fx- (##sys#size p) 1)) '(#\\ #\/)) "" "/")) ) ) ) (lambda (#!optional dir) (and prefix (if dir (##sys#string-append prefix dir) prefix) ) ) ) ) ;;; System settings (define (chicken-home) (or (##sys#chicken-prefix "share/chicken") installation-home) ) ;;; Lo-level hashtable support: (define ##sys#hash-symbol (let ([cache-s #f] [cache-h #f] ;; NOTE: All low-level hash tables share the same randomization factor [rand (##core#inline "C_rnd_fix")] ) (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 (##sys#hash-table-ref ht key) (let loop ((bucket (##sys#slot ht (##sys#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 (##sys#hash-table-set! ht key val) (let* ((k (##sys#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 (##sys#hash-table-update! ht key updtfunc valufunc) (##sys#hash-table-set! ht key (updtfunc (or (##sys#hash-table-ref ht key) (valufunc)))) ) (define (##sys#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 ##sys#hash-table-location (let ([unbound (##sys#slot '##sys#arbitrary-unbound-symbol 0)]) (lambda (ht key addp) (let* ([k (##sys#hash-symbol key (##sys#size ht))] [bucket0 (##sys#slot ht k)] ) (let loop ([bucket bucket0]) (if (null? bucket) (and addp (let ([p (vector key unbound #t)]) (##sys#setslot ht k (cons p bucket0)) p) ) (let ([b (##sys#slot bucket 0)]) (if (eq? key (##sys#slot b 0)) b (loop (##sys#slot bucket 1)) ) ) ) ) ) ) ) ) (define (##sys#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))))))) ;;; Compile lambda to closure: (define (##sys#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 ##sys#compile-to-closure (let ([write write] [reverse reverse] [with-input-from-file with-input-from-file] [unbound (##sys#slot '##sys#arbitrary-unbound-symbol 0)] [display display] ) (lambda (exp env se #!optional cntr evalenv static) (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 se) (cond ((find-id var se)) ((##sys#get var '##core#macro-alias)) (else var))) (define (lookup var0 e se) (let ((var (rename var0 se))) (d `(LOOKUP/EVAL: ,var0 ,var ,e ,(map (lambda (x) (car x)) se))) (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) ##sys#current-thread) ) ) (define (emit-syntax-trace-info tf info cntr) (when tf (##core#inline "C_emit_syntax_trace_info" info cntr ##sys#current-thread) ) ) (define (decorate p ll h cntr) (##sys#eval-decorator p ll h cntr) ) (define (compile x e h tf cntr se) (cond ((keyword? x) (lambda v x)) ((symbol? x) (receive (i j) (lookup x e se) (cond ((not i) (let ((var (cond ((not (symbol? j)) x) ; syntax? ((not (assq x se)) (and (not static) (##sys#alias-global-hook j #f cntr))) (else (or (##sys#get j '##core#primitive) j))))) (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 (##sys#expand x se #f))) (d `(EVAL/EXPANDED: ,x2)) (if (not (eq? x2 x)) (compile x2 e h tf cntr se) (let ((head (rename (##sys#slot x 0) se))) ;; 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 (##sys#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 se) ] [(##core#immutable) (compile (cadr x) e #f tf cntr se) ] [(##core#undefined) (lambda (v) (##core#undefined))] [(##core#if) (let* ([test (compile (cadr x) e #f tf cntr se)] [cns (compile (caddr x) e #f tf cntr se)] [alt (if (pair? (cdddr x)) (compile (cadddr x) e #f tf cntr se) (compile '(##core#undefined) e #f tf cntr se) ) ] ) (lambda (v) (if (##core#app test v) (##core#app cns v) (##core#app alt v))) ) ] [(##core#begin ##core#toplevel-begin) (let* ((body (##sys#slot x 1)) (len (length body)) ) (case len [(0) (compile '(##core#undefined) e #f tf cntr se)] [(1) (compile (##sys#slot body 0) e #f tf cntr se)] [(2) (let* ([x1 (compile (##sys#slot body 0) e #f tf cntr se)] [x2 (compile (cadr body) e #f tf cntr se)] ) (lambda (v) (##core#app x1 v) (##core#app x2 v)) ) ] [else (let* ([x1 (compile (##sys#slot body 0) e #f tf cntr se)] [x2 (compile (cadr body) e #f tf cntr se)] [x3 (compile `(##core#begin ,@(##sys#slot (##sys#slot body 1) 1)) e #f tf cntr se)] ) (lambda (v) (##core#app x1 v) (##core#app x2 v) (##core#app x3 v)) ) ] ) ) ] [(##core#set!) (let ((var (cadr x))) (receive (i j) (lookup var e se) (let ((val (compile (caddr x) e var tf cntr se))) (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))) (let ((var (if (not (assq x se)) ;XXX this looks wrong (and (not static) (##sys#alias-global-hook j #t cntr)) (or (##sys#get j '##core#primitive) j)))) (if (not var) ; static (lambda (v) (##sys#error 'eval "environment is not mutable" evalenv var)) ;XXX var? (lambda (v) (##sys#setslot var 0 (##core#app val v))) ) ) ] [(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 se vars aliases)) [body (##sys#compile-to-closure (##sys#canonicalize-body (cddr x) se2 #f) e2 se2 cntr evalenv static) ] ) (case n [(1) (let ([val (compile (cadar bindings) e (car vars) tf cntr se)]) (lambda (v) (##core#app body (cons (vector (##core#app val v)) v)) ) ) ] [(2) (let ([val1 (compile (cadar bindings) e (car vars) tf cntr se)] [val2 (compile (cadadr bindings) e (cadr vars) tf cntr se)] ) (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 se)] [val2 (compile (cadadr bindings) e (cadr vars) tf cntr se)] [t (cddr bindings)] [val3 (compile (cadar t) e (caddr vars) tf cntr se)] ) (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 se)] [val2 (compile (cadadr bindings) e (cadr vars) tf cntr se)] [t (cddr bindings)] [val3 (compile (cadar t) e (caddr vars) tf cntr se)] [val4 (compile (cadadr t) e (cadddr vars) tf cntr se)] ) (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 se)) 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 se))) ((##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 se))) [(##core#lambda) (##sys#check-syntax 'lambda x '(_ lambda-list . #(_ 1)) #f se) (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 se) ) ) (##sys#decompose-lambda-list llist (lambda (vars argc rest) (let* ((aliases (map gensym vars)) (se2 (##sys#extend-se se vars aliases)) (e2 (cons aliases e)) (body (##sys#compile-to-closure (##sys#canonicalize-body body se2 #f) e2 se2 (or h cntr) evalenv static) ) ) (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) (let ((se2 (append (map (lambda (b) (list (car b) se (##sys#ensure-transformer (##sys#eval/meta (cadr b)) (##sys#strip-syntax (car b))))) (cadr x) ) se) ) ) (compile (##sys#canonicalize-body (cddr x) se2 #f) e #f tf cntr se2))) ((##core#letrec-syntax) (let* ((ms (map (lambda (b) (list (car b) #f (##sys#ensure-transformer (##sys#eval/meta (cadr b)) (##sys#strip-syntax (car b))))) (cadr x) ) ) (se2 (append ms se)) ) (for-each (lambda (sb) (set-car! (cdr sb) se2) ) ms) (compile (##sys#canonicalize-body (cddr x) se2 #f) e #f tf cntr se2))) ((##core#define-syntax) (let* ((var (cadr x)) (body (caddr x)) (name (rename var se))) (when (and static (not (assq var se))) (##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 se) ) ) ((##core#define-compiler-syntax) (compile '(##core#undefined) e #f tf cntr se)) ((##core#let-compiler-syntax) (compile (##sys#canonicalize-body (cddr x) se #f) e #f tf cntr se)) ((##core#include) (compile `(##core#begin ,@(##sys#include-forms-from-file (cadr x))) e #f tf cntr se)) ((##core#let-module-alias) (##sys#with-module-aliases (map (lambda (b) (##sys#check-syntax 'functor b '(symbol symbol)) (##sys#strip-syntax b)) (cadr x)) (lambda () (compile `(##core#begin ,@(cddr x)) e #f tf cntr se)))) ((##core#module) (let* ((x (##sys#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 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)) (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 (##sys#current-environment)) xs))))) ) ))) [(##core#loop-lambda) (compile `(,(rename 'lambda se) ,@(cdr x)) e #f tf cntr se) ] [(##core#require-for-syntax) (let ([ids (map (lambda (x) (##sys#eval/meta x)) (cdr x))]) (apply ##sys#require ids) (let ([rs (##sys#lookup-runtime-requirements ids)]) (compile (if (null? rs) '(##core#undefined) `(##sys#require ,@(map (lambda (x) `',x) rs)) ) e #f tf cntr se) ) ) ] [(##core#require-extension) (let ((imp? (caddr x))) (compile (let loop ([ids (##sys#strip-syntax (cadr x))]) (if (null? ids) '(##core#undefined) (let-values (((exp f real-id) (##sys#do-the-right-thing (car ids) #f imp?))) `(##core#begin ,exp ,(loop (cdr ids))) ) ) ) e #f tf cntr se) ) ] [(##core#elaborationtimeonly ##core#elaborationtimetoo) ; <- Note this! (##sys#eval/meta (cadr x)) (compile '(##core#undefined) e #f tf cntr se) ] [(##core#compiletimetoo) (compile (cadr x) e #f tf cntr se) ] [(##core#compiletimeonly ##core#callunit) (compile '(##core#undefined) e #f tf cntr se) ] [(##core#declare) (if (memq #:compiling ##sys#features) (for-each (lambda (d) (##compiler#process-declaration d se)) (cdr x)) (##sys#notice "declarations are ignored in interpreted code" x) ) (compile '(##core#undefined) e #f tf cntr se) ] [(##core#define-inline ##core#define-constant) (compile `(,(rename 'define se) ,@(cdr x)) e #f tf cntr se) ] [(##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 se) ] ((##core#the) (compile (cadddr x) e h tf cntr se)) ((##core#typecase) ;; drops exp and requires "else" clause (cond ((assq 'else (##sys#strip-syntax (cdddr x))) => (lambda (cl) (compile (cadr cl) e h tf cntr se))) (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 se)))))))] [else (emit-syntax-trace-info tf x cntr) (compile-call x e tf cntr se)] ) ) (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 se))) (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 se)]) (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 se)] [a2 (compile (##core#inline "C_u_i_list_ref" args 1) e #f tf cntr se)] ) (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 se)] [a2 (compile (##core#inline "C_u_i_list_ref" args 1) e #f tf cntr se)] [a3 (compile (##core#inline "C_u_i_list_ref" args 2) e #f tf cntr se)] ) (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 se)] [a2 (compile (##core#inline "C_u_i_list_ref" args 1) e #f tf cntr se)] [a3 (compile (##core#inline "C_u_i_list_ref" args 2) e #f tf cntr se)] [a4 (compile (##core#inline "C_u_i_list_ref" args 3) e #f tf cntr se)] ) (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 se)) 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 se) ) ) ) ;;; evaluate in the macro-expansion/compile-time environment (define (##sys#eval/meta form) (let ((oldcm (##sys#current-module)) (oldme (##sys#macro-environment)) (oldce (##sys#current-environment)) (mme (##sys#meta-macro-environment)) (cme (##sys#current-meta-environment)) (aee (##sys#active-eval-environment))) (dynamic-wind (lambda () (##sys#current-module #f) (##sys#macro-environment mme) (##sys#current-environment cme) (##sys#active-eval-environment ##sys#current-meta-environment)) (lambda () ((##sys#compile-to-closure form '() (##sys#current-meta-environment)) ;XXX evalenv? static? '() ) ) (lambda () (##sys#active-eval-environment aee) (##sys#current-module oldcm) (##sys#current-meta-environment (##sys#current-environment)) (##sys#current-environment oldce) (##sys#meta-macro-environment (##sys#macro-environment)) (##sys#macro-environment oldme))))) (define eval-handler (make-parameter (lambda (x #!optional env) (let ((se (##sys#current-environment))) (cond (env (##sys#check-structure env 'environment 'eval) (let ((se2 (##sys#slot env 2))) ((if se2 ; not interaction-environment? (parameterize ((##sys#macro-environment '())) (##sys#compile-to-closure x '() se2 #f env (##sys#slot env 3))) (##sys#compile-to-closure x '() se #f env #f)) '() ) ) ) (else ((##sys#compile-to-closure x '() se #f #f #f) '() ) ) ) ) ))) (define ##sys#eval-handler eval-handler) (define (eval x . env) (apply (##sys#eval-handler) x env) ) ;;; 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) ) ] ) ) ) ) ) ;;; Loading source/object files: (define load-verbose (make-parameter (##sys#fudge 13))) (define (##sys#abort-load) #f) (define ##sys#current-source-filename #f) (define ##sys#current-load-path "") (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) ) ) (let ([read read] [write write] [display display] [newline newline] [eval eval] [open-input-file open-input-file] [close-input-port close-input-port] [string-append string-append] [topentry (##sys#make-c-string "C_toplevel")] ) (define (has-sep? str) (let loop ([i (fx- (##sys#size str) 1)]) (and (not (zero? i)) (if (memq (##core#inline "C_subchar" str i) '(#\\ #\/)) i (loop (fx- i 1)) ) ) ) ) (define (badfile x) (##sys#signal-hook #:type-error 'load "bad argument type - not a port or string" x) ) (set! ##sys#load (lambda (input evaluator pf #!optional timer printer) (let* ((fname (cond [(port? input) #f] [(not (string? input)) (badfile input)] ((##sys#file-exists? input #t #f 'load) input) (else (let ([fname2 (##sys#string-append input ##sys#load-dynamic-extension)]) (if (and (not ##sys#dload-disabled) (##sys#fudge 24) ; dload? (##sys#file-exists? fname2 #t #f 'load)) fname2 (let ([fname3 (##sys#string-append input source-file-extension)]) (if (##sys#file-exists? fname3 #t #f 'load) fname3 input) ) ) ) ))) [evproc (or evaluator eval)] ) (cond [(and (string? input) (not fname)) (##sys#signal-hook #:file-error 'load "cannot open file" input) ] [(and (load-verbose) fname) (display "; loading ") (display fname) (display " ...\n") (flush-output)] ) (or (and fname (or (##sys#dload (##sys#make-c-string fname 'load) topentry) (and (not (has-sep? fname)) (##sys#dload (##sys#make-c-string (##sys#string-append "./" fname) 'load) topentry) ) ) ) (call-with-current-continuation (lambda (abrt) (fluid-let ((##sys#read-error-with-line-number #t) (##sys#current-source-filename fname) (##sys#current-load-path (and fname (let ((i (has-sep? fname))) (if i (##sys#substring fname 0 (fx+ i 1)) "") ) ) ) (##sys#abort-load (lambda () (abrt #f))) ) (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 (evproc x)) (evproc x) ) ) (lambda results (when pf (for-each (lambda (r) (write r) (newline) ) results) ) ) ) ) ) ) (lambda () (close-input-port in)) ) ) ) ) ) ) (##core#undefined) ) ) ) (set! load (lambda (filename . evaluator) (##sys#load filename (optional evaluator #f) #f) ) ) (set! load-relative (lambda (filename . evaluator) (##sys#load (if (memq (string-ref filename 0) '(#\\ #\/)) filename (##sys#string-append ##sys#current-load-path filename) ) (optional evaluator #f) #f) ) ) (set! load-noisily (lambda (filename #!key (evaluator #f) (time #f) (printer #f)) (##sys#load filename evaluator #t time printer) ) ) ) (define ##sys#load-library-extension ; this is crude... (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) (define ##sys#default-dynamic-load-libraries (case (build-platform) ((cygwin) cygwin-default-dynamic-load-libraries) (else default-dynamic-load-libraries) ) ) (define dynamic-load-libraries (let ((ext (if uses-soname? (string-append ##sys#load-library-extension "." (number->string binary-version)) ##sys#load-library-extension))) (define complete (cut ##sys#string-append <> ext)) (make-parameter (map complete ##sys#default-dynamic-load-libraries) (lambda (x) (##sys#check-list x) x) ) ) ) (define ##sys#load-library-0 (let ([string-append string-append] [display display] ) (lambda (uname lib) (let ([id (##sys#->feature-id uname)]) (or (memq id ##sys#features) (let ([libs (if lib (##sys#list lib) (cons (##sys#string-append (##sys#slot uname 1) ##sys#load-library-extension) (dynamic-load-libraries) ) ) ] [top (##sys#make-c-string (string-append "C_" (##sys#string->c-identifier (##sys#slot uname 1)) "_toplevel") 'load-library) ] ) (when (load-verbose) (display "; loading library ") (display uname) (display " ...\n") ) (let loop ([libs libs]) (cond [(null? libs) #f] [(##sys#dload (##sys#make-c-string (##sys#slot libs 0) 'load-library) top) (unless (memq id ##sys#features) (set! ##sys#features (cons id ##sys#features))) #t] [else (loop (##sys#slot libs 1))] ) ) ) ) ) ) ) ) (define ##sys#load-library (lambda (uname . lib) (##sys#check-symbol uname 'load-library) (or (##sys#load-library-0 uname (and (pair? lib) (car lib))) (##sys#error 'load-library "unable to load library" uname _dlerror) ) ) ) (define load-library ##sys#load-library) (define ##sys#include-forms-from-file (let ((with-input-from-file with-input-from-file) (read read) (reverse reverse)) (lambda (fname) (let ((path (##sys#resolve-include-filename fname #t))) (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) (reverse xs))) ) ) ) ) ) ) ) ;;; Extensions: (define ##sys#canonicalize-extension-path (let ([string-append string-append]) (lambda (id loc) (define (err) (##sys#error loc "invalid extension path" id)) (define (sep? c) (or (char=? #\\ c) (char=? #\/ c))) (let ([p (cond [(string? id) id] [(symbol? id) (##sys#symbol->string id)] [(list? id) (let loop ([id id]) (if (null? id) "" (string-append (let ([id0 (##sys#slot id 0)]) (cond [(symbol? id0) (##sys#symbol->string id0)] [(string? id0) id0] [else (err)] ) ) (if (null? (##sys#slot id 1)) "" "/") (loop (##sys#slot id 1)) ) ) ) ] ) ] ) (let check ([p p]) (let ([n (##sys#size p)]) (cond [(fx= 0 n) (err)] [(sep? (string-ref p 0)) (check (##sys#substring p 1 n)) ] [(sep? (string-ref p (fx- n 1))) (check (##sys#substring p 0 (fx- n 1))) ] [else p] ) ) ) ) ) ) ) (define repository-path (make-parameter (if (##sys#fudge 22) ; private repository? (foreign-value "C_private_repository_path()" c-string) (or (get-environment-variable repository-environment-variable) (##sys#chicken-prefix (##sys#string-append "lib/chicken/" (##sys#number->string (##sys#fudge 42)))) install-egg-home)))) (define ##sys#repository-path repository-path) (define ##sys#setup-mode #f) (define ##sys#find-extension (let ((string-append string-append) ) (lambda (p inc?) (let ((rp (##sys#repository-path))) (define (check path) (let ((p0 (string-append path "/" p))) (or (and rp (not ##sys#dload-disabled) (##sys#fudge 24) ; dload? (file-exists? (##sys#string-append p0 ##sys#load-dynamic-extension))) (file-exists? (##sys#string-append p0 source-file-extension)) (file-exists? p0)))) (let loop ((paths (##sys#append (if ##sys#setup-mode '(".") '()) (if rp (list 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 ##sys#loaded-extensions '()) (define ##sys#load-extension (let ((string->symbol string->symbol)) (lambda (id loc #!optional (err? #t)) (cond ((string? id) (set! id (string->symbol id))) (else (##sys#check-symbol id loc)) ) (let ([p (##sys#canonicalize-extension-path id loc)]) (cond ((member p ##sys#loaded-extensions)) ((or (memq id ##sys#core-library-modules) (memq id ##sys#core-syntax-modules)) (or (##sys#load-library-0 id #f) (and err? (##sys#error loc "cannot load core library" id)))) (else (let ([id2 (##sys#find-extension p #f)]) (cond (id2 (##sys#load id2 #f #f) (set! ##sys#loaded-extensions (cons p ##sys#loaded-extensions)) #t) (err? (##sys#error loc "cannot load extension" id)) (else #f) ) ) ) ) ) ) ) ) (define (##sys#provide . ids) (for-each (lambda (id) (##sys#check-symbol id 'provide) (let ([p (##sys#canonicalize-extension-path id 'provide)]) (set! ##sys#loaded-extensions (cons p ##sys#loaded-extensions)) ) ) ids) ) (define provide ##sys#provide) (define (##sys#provided? id) (and (member (##sys#canonicalize-extension-path id 'provided?) ##sys#loaded-extensions) #t) ) (define provided? ##sys#provided?) (define ##sys#require (lambda ids (for-each (cut ##sys#load-extension <> 'require) ids) ) ) (define require ##sys#require) (define ##sys#extension-information (let ([with-input-from-file with-input-from-file] [string-append string-append] [read read] ) (lambda (id loc) (and-let* ((rp (##sys#repository-path))) (let* ((p (##sys#canonicalize-extension-path id loc)) (rpath (string-append rp "/" p ".")) ) (cond ((file-exists? (string-append rpath setup-file-extension)) => (cut with-input-from-file <> read) ) (else #f) ) ) ) ) )) (define (extension-information ext) (##sys#extension-information ext 'extension-information) ) (define ##sys#lookup-runtime-requirements (let ([with-input-from-file with-input-from-file] [read read] ) (lambda (ids) (let loop1 ([ids ids]) (if (null? ids) '() (append (or (and-let* ([info (##sys#extension-information (car ids) #f)] [a (assq 'require-at-runtime info)] ) (cdr a) ) '() ) (loop1 (cdr ids)) ) ) ) ) ) ) (define ##sys#do-the-right-thing (let ((vector->list vector->list)) (lambda (id comp? imp?) (define (add-req id syntax?) (when comp? (##sys#hash-table-update! ##compiler#file-requirements (if syntax? 'dynamic/syntax 'dynamic) (cut lset-adjoin eq? <> id) ;XXX assumes compiler has srfi-1 loaded (lambda () (list id))))) (define (impform x id builtin?) `(##core#begin ,x ,@(if (and imp? (or (not builtin?) (##sys#current-module))) `((import ,id)) ;XXX make hygienic '()))) (define (srfi-id n) (if (fixnum? n) (##sys#intern-symbol (##sys#string-append "srfi-" (##sys#number->string n))) (##sys#syntax-error-hook 'require-extension "invalid SRFI number" n))) (define (doit id impid) (cond ((or (memq id builtin-features) (if comp? (memq id builtin-features/compiled) (##sys#feature? id) ) ) (values (impform '(##core#undefined) impid #t) #t id) ) ((memq id ##sys#core-library-modules) (values (impform (if comp? `(##core#declare (uses ,id)) `(##sys#load-library ',id #f) ) impid #f) #t id) ) ((memq id ##sys#core-syntax-modules) (values (impform (if comp? `(##core#declare (uses ,id)) `(##sys#load-library ',id #f) ) impid #t) #t id) ) ((memq id ##sys#explicit-library-modules) (let* ((info (##sys#extension-information id 'require-extension)) (nr (and info (assq 'import-only info))) (s (and info (assq 'syntax info)))) (values `(##core#begin ,@(if s `((##core#require-for-syntax ',id)) '()) ,(impform (if (not nr) (if comp? `(##core#declare (uses ,id)) `(##sys#load-library ',id #f) ) '(##core#undefined)) impid #f)) #t id) ) ) (else (let ((info (##sys#extension-information id 'require-extension))) (cond (info (let ((s (assq 'syntax info)) (nr (assq 'import-only info)) (rr (assq 'require-at-runtime info)) ) (when s (add-req id #t)) (values (impform `(##core#begin ,@(if s `((##core#require-for-syntax ',id)) '()) ,@(if (or nr (and (not rr) s)) '() (begin (add-req id #f) `((##sys#require ,@(map (lambda (id) `',id) (cond (rr (cdr rr)) (else (list id)) ) ) ) ) ) ) ) impid #f) #t id) ) ) (else (add-req id #f) (values (impform `(##sys#require ',id) impid #f) #f id))))))) (cond ((and (pair? id) (symbol? (car id))) (case (car id) ((srfi) (let* ((f #f) (exp `(##core#begin ,@(map (lambda (n) (let ((rid (srfi-id n))) (let-values (((exp f2 _) (doit rid rid))) (set! f (or f f2)) exp))) (cdr id))))) (values exp f id))) ;XXX `id' not fully correct ((rename except only prefix) (let follow ((id2 id)) (if (and (pair? id2) (pair? (cdr id2))) (if (and (eq? 'srfi (car id2)) (null? (cddr id2))) ; only allow one number (doit (srfi-id (cadr id2)) id) (follow (cadr id2))) (doit id2 id)))) (else (##sys#error "invalid extension specifier" id) ) ) ) ((symbol? id) (doit id id)) (else (##sys#error "invalid extension specifier" id) ) ) ))) ;;; Convert string into valid C-identifier: (define (##sys#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)))))) ;;; Environments: (define 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)) (define scheme-report-environment) (define null-environment) (let* ((r4s (module-environment 'r4rs 'scheme-report-environment/4)) (r5s (module-environment 'scheme 'scheme-report-environment/5)) (r4n (module-environment 'r4rs-null 'null-environment/4)) (r5n (module-environment 'r5rs-null 'null-environment/5))) (define (strip se) (foldr (lambda (s r) (if (memq (car s) '(import require-extension require-extension-for-syntax require-library begin-for-syntax export module cond-expand syntax reexport import-for-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-report-environment (lambda (n) (##sys#check-exact n 'scheme-report-environment) (case n ((4) r4s) ((5) r5s) (else (##sys#error 'scheme-report-environment "unsupported scheme report environment version" n)) ) ) ) (set! null-environment (lambda (n) (##sys#check-exact n 'null-environment) (case n ((4) r4n) ((5) r5n) (else (##sys#error 'null-environment "unsupported null environment version" n) ))))) ;;; Find included file: (define ##sys#include-pathnames (let ((h (chicken-home))) (if h (list h) '())) ) (define ##sys#resolve-include-filename (let ((string-append string-append) ) (define (exists? fname) (##sys#file-exists? fname #t #f #f)) (lambda (fname prefer-source #!optional repo) (define (test2 fname lst) (if (null? lst) (and (exists? fname) fname) (let ([fn (##sys#string-append fname (car lst))]) (if (exists? fn) fn (test2 fname (cdr lst)) ) ) ) ) (define (test fname) (test2 fname (cond ((not (##sys#fudge 24)) (list source-file-extension)) ; no dload? (prefer-source (list source-file-extension ##sys#load-dynamic-extension)) (else (list ##sys#load-dynamic-extension source-file-extension) ) ) )) (or (test fname) (let loop ((paths (if repo (##sys#append ##sys#include-pathnames (let ((rp (##sys#repository-path))) (if rp (list (##sys#repository-path)) '()))) ##sys#include-pathnames) ) ) (cond ((eq? paths '()) fname) ((test (string-append (##sys#slot paths 0) "/" fname) ) ) (else (loop (##sys#slot paths 1))) ) ) ) ) ) ) ;;;; Read-Eval-Print loop: (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 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#clear-trace-buffer (foreign-lambda void "C_clear_trace_buffer")) (define (##sys#resize-trace-buffer i) (##sys#check-exact 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 ##sys#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! ##sys#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) (set! ##sys#enable-qualifiers #t) (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) ) (##sys#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) (##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! ##sys#quit-hook qh) (set! ##sys#unbound-in-eval uie) (##sys#error-handler ehandler) (##sys#reset-handler rhandler) ) ) ) ) ) ) )) ;;; SRFI-10: (define ##sys#sharp-comma-reader-ctors (make-vector 301 '())) (define (define-reader-ctor spec proc) (##sys#check-symbol spec 'define-reader-ctor) (##sys#hash-table-set! ##sys#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 (##sys#hash-table-ref ##sys#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)) ) ) ) ) ;;; Simple invocation API: (declare (hide last-error run-safe store-result store-string CHICKEN_yield CHICKEN_apply_to_string CHICKEN_eval CHICKEN_eval_string CHICKEN_eval_to_string CHICKEN_eval_string_to_string CHICKEN_apply CHICKEN_eval_apply CHICKEN_eval_to_string 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-4.12.0/irregex-core.scm���������������������������������������������������������������������0000644�0001750�0001750�00000523252�13052306173�016120� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; irregex.scm -- IrRegular Expressions ;; ;; Copyright (c) 2005-2016 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[45]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 (define-syntax internal (er-macro-transformer (lambda (x r c) `(,(with-input-from-string (cadr x) read) ,@(cddr x))))) ;; make-irregex defined elsewhere (define (irregex? x) (internal "##sys#structure?" x 'regexp)) (define (irregex-dfa x) (internal "##sys#check-structure" x 'regexp 'irregex-dfa) (internal "##sys#slot" x 1)) (define (irregex-dfa/search x) (internal "##sys#check-structure" x 'regexp 'irregex-dfa/search) (internal "##sys#slot" x 2)) (define (irregex-nfa x) (internal "##sys#check-structure" x 'regexp 'irregex-nfa) (internal "##sys#slot" x 3)) (define (irregex-flags x) (internal "##sys#check-structure" x 'regexp 'irregex-flags) (internal "##sys#slot" x 4)) (define (irregex-num-submatches x) (internal "##sys#check-structure" x 'regexp 'irregex-num-submatches) (internal "##sys#slot" x 5)) (define (irregex-lengths x) (internal "##sys#check-structure" x 'regexp 'irregex-lengths) (internal "##sys#slot" x 6)) (define (irregex-names x) (internal "##sys#check-structure" x 'regexp 'irregex-names) (internal "##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 (internal "##sys#slot" m 1))) (vector-fill! v #f) m)) (define (irregex-copy-matches m) (and (internal "##sys#structure?" m 'regexp-match) (internal "##sys#make-structure" 'regexp-match (vector-copy (internal "##sys#slot" m 1)) (internal "##sys#slot" m 2) (internal "##sys#slot" m 3) (internal "##sys#slot" m 4)))) (define (irregex-match-data? obj) (internal "##sys#structure?" obj 'regexp-match)) (define (irregex-match-num-submatches m) (internal "##sys#check-structure" m 'regexp-match 'irregex-match-num-submatches) (- (fx/ (internal "##sys#size" (internal "##sys#slot" m 1)) 4) 2)) (define (irregex-match-chunker m) (internal "##sys#slot" m 3)) (define (irregex-match-names m) (internal "##sys#check-structure" m 'regexp-match 'irregex-match-names) (internal "##sys#slot" m 2)) (define (irregex-match-chunker-set! m str) (internal "##sys#setslot" m 3 str)) (define-inline (%irregex-match-start-chunk m n) (internal "##sys#slot" (internal "##sys#slot" m 1) (* n 4))) (define-inline (%irregex-match-start-index m n) (internal "##sys#slot" (internal "##sys#slot" m 1) (+ 1 (* n 4)))) (define-inline (%irregex-match-end-chunk m n) (internal "##sys#slot" (internal "##sys#slot" m 1) (+ 2 (* n 4)))) (define (%irregex-match-end-index m n) (internal "##sys#slot" (internal "##sys#slot" m 1) (+ 3 (* n 4)))) (define (%irregex-match-fail m) (internal "##sys#slot" m 4)) (define (%irregex-match-fail-set! m x) (internal "##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 (internal "##sys#slot" m 1))) (and (>= n 0) (< (* n 4) (- (internal "##sys#size" v) 4))))) (define-inline (irregex-match-matched-numeric-index? m n) (let ((v (internal "##sys#slot" m 1))) (and (internal "##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 ((null? lo-ls) '()) ((= (car lo-ls) (car hi-ls)) (sre-sequence (list (integer->char (car lo-ls)) (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-states (nfa-num-states nfa)) (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-4.12.0/srfi-14.scm��������������������������������������������������������������������������0000644�0001750�0001750�00000072464�13052306173�014716� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; srfi-14.scm - Shivers' reference implementation of SRFI-14 (declare (unit srfi-14) (fixnum) (disable-interrupts) (hide %char-set:s/check %string-iter %char-set-diff+intersection! %char->latin1 %latin1->char %ucs-range->char-set! %string->char-set! %list->char-set! %set-char-set! %char-set-unfold! %char-set-algebra %char-set-cursor-next %char-set-filter! %set-char-set c0 c1 %string-copy %default-base) ) (include "common-declarations.scm") (register-feature! 'srfi-14) (define (%latin1->char n) (integer->char n)) (define (%char->latin1 c) (char->integer c)) ;;; SRFI-14 character-sets library -*- Scheme -*- ;;; ;;; - Ported from MIT Scheme runtime by Brian D. Carlstrom. ;;; - Massively rehacked & extended by Olin Shivers 6/98. ;;; - Massively redesigned and rehacked 5/2000 during SRFI process. ;;; At this point, the code bears the following relationship to the ;;; MIT Scheme code: "This is my grandfather's axe. My father replaced ;;; the head, and I have replaced the handle." Nonetheless, we preserve ;;; the MIT Scheme copyright: ;;; Copyright (c) 1988-1995 Massachusetts Institute of Technology ;;; The MIT Scheme license is a "free software" license. See the end of ;;; this file for the tedious details. ;;; Exports: ;;; char-set? char-set= char-set<= ;;; char-set-hash ;;; char-set-cursor char-set-ref char-set-cursor-next end-of-char-set? ;;; char-set-fold char-set-unfold char-set-unfold! ;;; char-set-for-each char-set-map ;;; char-set-copy ;;; ;;; char-set list->char-set string->char-set ;;; char-set! list->char-set! string->char-set! ;;; ;;; filterchar-set ucs-range->char-set ->char-set ;;; filterchar-set! ucs-range->char-set! ;;; ;;; char-set->list char-set->string ;;; ;;; char-set-size char-set-count char-set-contains? ;;; char-set-every char-set-any ;;; ;;; char-set-adjoin char-set-delete ;;; char-set-adjoin! char-set-delete! ;;; ;;; char-set-complement char-set-union char-set-intersection char-set-difference ;;; char-set-complement! char-set-union! char-set-intersection! char-set-difference! ;;; ;;; char-set-difference char-set-xor char-set-diff+intersection ;;; char-set-difference! char-set-xor! char-set-diff+intersection! ;;; ;;; char-set:lower-case char-set:upper-case char-set:title-case ;;; char-set:letter char-set:digit char-set:letter+digit ;;; char-set:graphic char-set:printing char-set:whitespace ;;; char-set:iso-control char-set:punctuation char-set:symbol ;;; char-set:hex-digit char-set:blank char-set:ascii ;;; char-set:empty char-set:full ;;; Imports ;;; This code has the following non-R5RS dependencies: ;;; - ERROR ;;; - %LATIN1->CHAR %CHAR->LATIN1 ;;; - LET-OPTIONALS* and :OPTIONAL macros for parsing, checking & defaulting ;;; optional arguments from rest lists. ;;; - BITWISE-AND for CHAR-SET-HASH ;;; - The SRFI-19 DEFINE-RECORD-TYPE record macro ;;; - A simple CHECK-ARG procedure: ;;; (lambda (pred val caller) (if (not (pred val)) (error val caller))) ;;; This is simple code, not great code. Char sets are represented as 256-char ;;; strings. If char I is ASCII/Latin-1 0, then it isn't in the set; if char I ;;; is ASCII/Latin-1 1, then it is in the set. ;;; - Should be rewritten to use bit strings or byte vecs. ;;; - Is Latin-1 specific. Would certainly have to be rewritten for Unicode. ;;; See the end of the file for porting and performance-tuning notes. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (make-char-set s) (##sys#make-structure 'char-set s)) (define (char-set:s cs) (##sys#slot cs 1)) (define (char-set? x) (##sys#structure? x 'char-set)) #| (define-record-type :char-set (make-char-set s) char-set? (s char-set:s)) |# (define (%string-copy s) (substring s 0 (string-length s))) ;;; Parse, type-check & default a final optional BASE-CS parameter from ;;; a rest argument. Return a *fresh copy* of the underlying string. ;;; The default is the empty set. The PROC argument is to help us ;;; generate informative error exceptions. (define (%default-base maybe-base proc) (if (pair? maybe-base) (let ((bcs (car maybe-base)) (tail (cdr maybe-base))) (if (null? tail) (if (char-set? bcs) (%string-copy (char-set:s bcs)) (##sys#error "BASE-CS parameter not a char-set" proc bcs)) (##sys#error "Expected final base char set -- too many parameters" proc maybe-base))) (make-string 256 (%latin1->char 0)))) ;;; If CS is really a char-set, do CHAR-SET:S, otw report an error msg on ;;; behalf of our caller, PROC. This procedure exists basically to provide ;;; explicit error-checking & reporting. (define (%char-set:s/check cs proc) (let lp ((cs cs)) (if (char-set? cs) (char-set:s cs) (lp (##sys#error proc "Not a char-set" cs))))) ;;; These internal functions hide a lot of the dependency on the ;;; underlying string representation of char sets. They should be ;;; inlined if possible. (define-inline (si=0? s i) (zero? (%char->latin1 (string-ref s i)))) (define-inline (si=1? s i) (not (si=0? s i))) (define-inline (si s i) (%char->latin1 (string-ref s i))) (define-inline (%set0! s i) (string-set! s i c0)) (define-inline (%set1! s i) (string-set! s i c1)) (define c0 (%latin1->char 0)) (define c1 (%latin1->char 1)) ;;; These do various "s[i] := s[i] op val" operations -- see ;;; %CHAR-SET-ALGEBRA. They are used to implement the various ;;; set-algebra procedures. (define-inline (setv! s i v) (string-set! s i (%latin1->char v))) ; SET to a Value. (define-inline (%not! s i v) (setv! s i (- 1 v))) (define-inline (%and! s i v) (if (zero? v) (%set0! s i))) (define-inline (%or! s i v) (if (not (zero? v)) (%set1! s i))) (define-inline (%minus! s i v) (if (not (zero? v)) (%set0! s i))) (define-inline (%xor! s i v) (if (not (zero? v)) (setv! s i (- 1 (si s i))))) (define (char-set-copy cs) (make-char-set (%string-copy (%char-set:s/check cs 'char-set-copy)))) (define char-set= (lambda rest (or (null? rest) (let* ((cs1 (car rest)) (rest (cdr rest)) (s1 (%char-set:s/check cs1 'char-set=))) (let lp ((rest rest)) (or (not (pair? rest)) (and (string=? s1 (%char-set:s/check (car rest) 'char-set=)) (lp (cdr rest))))))))) (define char-set<= (lambda rest (or (null? rest) (let ((cs1 (car rest)) (rest (cdr rest))) (let lp ((s1 (%char-set:s/check cs1 'char-set<=)) (rest rest)) (or (not (pair? rest)) (let ((s2 (%char-set:s/check (car rest) 'char-set<=)) (rest (cdr rest))) (if (eq? s1 s2) (lp s2 rest) ; Fast path (let lp2 ((i 255)) ; Real test (if (< i 0) (lp s2 rest) (and (<= (si s1 i) (si s2 i)) (lp2 (- i 1))))))))))) )) ;;; Hash ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Compute (c + 37 c + 37^2 c + ...) modulo BOUND. ;;; If you keep BOUND small enough, the intermediate calculations will ;;; always be fixnums. How small is dependent on the underlying Scheme system; ;;; we use a default BOUND of 2^22 = 4194304, which should hack it in ;;; Schemes that give you at least 29 signed bits for fixnums. The core ;;; calculation that you don't want to overflow is, worst case, ;;; (+ 65535 (* 37 (- bound 1))) ;;; where 65535 is the max character code. Choose the default BOUND to be the ;;; biggest power of two that won't cause this expression to fixnum overflow, ;;; and everything will be copacetic. (define (char-set-hash cs . maybe-bound) (let ((bound (optional maybe-bound 4194304))) (if (zero? bound) (set! bound 4194304)) (##sys#check-exact bound 'char-set-hash) (let* ((s (%char-set:s/check cs 'char-set-hash)) ;; Compute a 111...1 mask that will cover BOUND-1: (mask (let lp ((i #x10000)) ; Let's skip first 16 iterations, eh? (if (>= i bound) (- i 1) (lp (+ i i)))))) (let lp ((i 255) (ans 0)) (if (< i 0) (modulo ans bound) (lp (- i 1) (if (si=0? s i) ans (fxand mask (+ (* 37 ans) i)))))))) ) (define (char-set-contains? cs char) (##sys#check-char char 'char-set-contains?) (si=1? (%char-set:s/check cs 'char-set-contains?) ; (%char->latin1 (check-arg char? char char-set-contains?)))) (%char->latin1 char) ) ) (define (char-set-size cs) (let ((s (%char-set:s/check cs 'char-set-size))) (let lp ((i 255) (size 0)) (if (< i 0) size (lp (- i 1) (+ size (si s i))))))) (define (char-set-count pred cset) ; (check-arg procedure? pred char-set-count) (let ((s (%char-set:s/check cset 'char-set-count))) (let lp ((i 255) (count 0)) (if (< i 0) count (lp (- i 1) (if (and (si=1? s i) (pred (%latin1->char i))) (+ count 1) count)))))) ;;; -- Adjoin & delete (define (%set-char-set set proc cs chars) (let ((s (%string-copy (%char-set:s/check cs proc)))) (for-each (lambda (c) (set s (%char->latin1 c))) chars) (make-char-set s))) (define (%set-char-set! set proc cs chars) (let ((s (%char-set:s/check cs proc))) (for-each (lambda (c) (set s (%char->latin1 c))) chars)) cs) (define (char-set-adjoin cs . chars) (%set-char-set %set1! 'char-set-adjoin cs chars)) (define (char-set-adjoin! cs . chars) (%set-char-set! %set1! 'char-set-adjoin! cs chars)) (define (char-set-delete cs . chars) (%set-char-set %set0! 'char-set-delete cs chars)) (define (char-set-delete! cs . chars) (%set-char-set! %set0! 'char-set-delete! cs chars)) ;;; Cursors ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Simple implementation. A cursors is an integer index into the ;;; mark vector, and -1 for the end-of-char-set cursor. ;;; ;;; If we represented char sets as a bit set, we could do the following ;;; trick to pick the lowest bit out of the set: ;;; (count-bits (xor (- cset 1) cset)) ;;; (But first mask out the bits already scanned by the cursor first.) (define (char-set-cursor cset) (%char-set-cursor-next cset 256 'char-set-cursor)) (define (end-of-char-set? cursor) (< cursor 0)) (define (char-set-ref cset cursor) (%latin1->char cursor)) (define (char-set-cursor-next cset cursor) (##sys#check-exact cursor 'char-set-cursor-next) ; (check-arg (lambda (i) (and (integer? i) (exact? i) (<= 0 i 255))) cursor ; char-set-cursor-next) (%char-set-cursor-next cset cursor 'char-set-cursor-next)) (define (%char-set-cursor-next cset cursor proc) ; Internal (let ((s (%char-set:s/check cset proc))) (let lp ((cur cursor)) (let ((cur (- cur 1))) (if (or (< cur 0) (si=1? s cur)) cur (lp cur)))))) ;;; -- for-each map fold unfold every any (define (char-set-for-each proc cs) ; (check-arg procedure? proc char-set-for-each) (let ((s (%char-set:s/check cs 'char-set-for-each))) (let lp ((i 255)) (cond ((>= i 0) (if (si=1? s i) (proc (%latin1->char i))) (lp (- i 1))))))) (define (char-set-map proc cs) ; (check-arg procedure? proc char-set-map) (let ((s (%char-set:s/check cs 'char-set-map)) (ans (make-string 256 c0))) (let lp ((i 255)) (cond ((>= i 0) (if (si=1? s i) (%set1! ans (%char->latin1 (proc (%latin1->char i))))) (lp (- i 1))))) (make-char-set ans))) (define (char-set-fold kons knil cs) ; (check-arg procedure? kons char-set-fold) (let ((s (%char-set:s/check cs 'char-set-fold))) (let lp ((i 255) (ans knil)) (if (< i 0) ans (lp (- i 1) (if (si=0? s i) ans (kons (%latin1->char i) ans))))))) (define (char-set-every pred cs) ; (check-arg procedure? pred char-set-every) (let ((s (%char-set:s/check cs 'char-set-every))) (let lp ((i 255)) (or (< i 0) (and (or (si=0? s i) (pred (%latin1->char i))) (lp (- i 1))))))) (define (char-set-any pred cs) ; (check-arg procedure? pred char-set-any) (let ((s (%char-set:s/check cs 'char-set-any))) (let lp ((i 255)) (and (>= i 0) (or (and (si=1? s i) (pred (%latin1->char i))) (lp (- i 1))))))) (define (%char-set-unfold! proc p f g s seed) ; (check-arg procedure? p proc) ; (check-arg procedure? f proc) ; (check-arg procedure? g proc) (let lp ((seed seed)) (cond ((not (p seed)) ; P says we are done. (%set1! s (%char->latin1 (f seed))) ; Add (F SEED) to set. (lp (g seed)))))) ; Loop on (G SEED). (define (char-set-unfold p f g seed . maybe-base) (let ((bs (%default-base maybe-base char-set-unfold))) (%char-set-unfold! char-set-unfold p f g bs seed) (make-char-set bs))) (define (char-set-unfold! p f g seed base-cset) (%char-set-unfold! char-set-unfold! p f g (%char-set:s/check base-cset 'char-set-unfold!) seed) base-cset) ;;; list <--> char-set (define (%list->char-set! chars s) (for-each (lambda (char) (%set1! s (%char->latin1 char))) chars)) (define (char-set . chars) (let ((s (make-string 256 c0))) (%list->char-set! chars s) (make-char-set s))) (define (list->char-set chars . maybe-base) (let ((bs (%default-base maybe-base list->char-set))) (%list->char-set! chars bs) (make-char-set bs))) (define (list->char-set! chars base-cs) (%list->char-set! chars (%char-set:s/check base-cs 'list->char-set!)) base-cs) (define (char-set->list cs) (let ((s (%char-set:s/check cs 'char-set->list))) (let lp ((i 255) (ans '())) (if (< i 0) ans (lp (- i 1) (if (si=0? s i) ans (cons (%latin1->char i) ans))))))) ;;; string <--> char-set (define (%string->char-set! str bs proc) (##sys#check-string str proc) ; (check-arg string? str proc) (do ((i (- (string-length str) 1) (- i 1))) ((< i 0)) (%set1! bs (%char->latin1 (string-ref str i))))) (define (string->char-set str . maybe-base) (let ((bs (%default-base maybe-base string->char-set))) (%string->char-set! str bs 'string->char-set) (make-char-set bs))) (define (string->char-set! str base-cs) (%string->char-set! str (%char-set:s/check base-cs 'string->char-set!) 'string->char-set!) base-cs) (define (char-set->string cs) (let* ((s (%char-set:s/check cs 'char-set->string)) (ans (make-string (char-set-size cs)))) (let lp ((i 255) (j 0)) (if (< i 0) ans (let ((j (if (si=0? s i) j (begin (string-set! ans j (%latin1->char i)) (+ j 1))))) (lp (- i 1) j)))))) ;;; -- UCS-range -> char-set (define (%ucs-range->char-set! lower upper error? bs proc) (##sys#check-exact lower proc) (##sys#check-exact upper proc) ; (check-arg (lambda (x) (and (integer? x) (exact? x) (<= 0 x))) lower proc) ; (check-arg (lambda (x) (and (integer? x) (exact? x) (<= lower x))) upper proc) (if (and (< lower upper) (< 256 upper) error?) (##sys#error "Requested UCS range contains unavailable characters -- this implementation only supports Latin-1" proc lower upper)) (let lp ((i (- (min upper 256) 1))) (cond ((<= lower i) (%set1! bs i) (lp (- i 1)))))) (define (ucs-range->char-set lower upper . rest) (let-optionals* rest ((error? #f) rest) (let ((bs (%default-base rest ucs-range->char-set))) (%ucs-range->char-set! lower upper error? bs 'ucs-range->char-set) (make-char-set bs)))) (define (ucs-range->char-set! lower upper error? base-cs) (%ucs-range->char-set! lower upper error? (%char-set:s/check base-cs 'ucs-range->char-set!) 'ucs-range->char-set) base-cs) ;;; -- predicate -> char-set (define (%char-set-filter! pred ds bs proc) ; (check-arg procedure? pred proc) (let lp ((i 255)) (cond ((>= i 0) (if (and (si=1? ds i) (pred (%latin1->char i))) (%set1! bs i)) (lp (- i 1)))))) (define (char-set-filter predicate domain . maybe-base) (let ((bs (%default-base maybe-base char-set-filter))) (%char-set-filter! predicate (%char-set:s/check domain 'char-set-filter!) bs char-set-filter) (make-char-set bs))) (define (char-set-filter! predicate domain base-cs) (%char-set-filter! predicate (%char-set:s/check domain 'char-set-filter!) (%char-set:s/check base-cs 'char-set-filter!) char-set-filter!) base-cs) ;;; {string, char, char-set, char predicate} -> char-set (define (->char-set x) (cond ((char-set? x) x) ((string? x) (string->char-set x)) ((char? x) (char-set x)) (else (##sys#error '->char-set "Not a charset, string or char." x)))) ;;; Set algebra ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; The exported ! procs are "linear update" -- allowed, but not required, to ;;; side-effect their first argument when computing their result. In other ;;; words, you must use them as if they were completely functional, just like ;;; their non-! counterparts, and you must additionally ensure that their ;;; first arguments are "dead" at the point of call. In return, we promise a ;;; more efficient result, plus allowing you to always assume char-sets are ;;; unchangeable values. ;;; Apply P to each index and its char code in S: (P I VAL). ;;; Used by the set-algebra ops. (define (%string-iter p s) (let lp ((i (- (string-length s) 1))) (cond ((>= i 0) (p i (%char->latin1 (string-ref s i))) (lp (- i 1)))))) ;;; String S represents some initial char-set. (OP s i val) does some ;;; kind of s[i] := s[i] op val update. Do ;;; S := S OP CSETi ;;; for all the char-sets in the list CSETS. The n-ary set-algebra ops ;;; all use this internal proc. (define (%char-set-algebra s csets op proc) (for-each (lambda (cset) (let ((s2 (%char-set:s/check cset proc))) (let lp ((i 255)) (cond ((>= i 0) (op s i (si s2 i)) (lp (- i 1))))))) csets)) ;;; -- Invert (define (char-set-complement cs) (let ((s (%char-set:s/check cs 'char-set-complement)) (ans (make-string 256))) (%string-iter (lambda (i v) (%not! ans i v)) s) (make-char-set ans))) (define (char-set-complement! cset) (let ((s (%char-set:s/check cset 'char-set-complement!))) (%string-iter (lambda (i v) (%not! s i v)) s)) cset) ;;; -- Union (define (char-set-union! cset1 . csets) (%char-set-algebra (%char-set:s/check cset1 'char-set-union!) csets %or! 'char-set-union!) cset1) (define (char-set-union . csets) (if (pair? csets) (let ((s (%string-copy (%char-set:s/check (car csets) 'char-set-union)))) (%char-set-algebra s (cdr csets) %or! 'char-set-union) (make-char-set s)) (char-set-copy char-set:empty))) ;;; -- Intersection (define (char-set-intersection! cset1 . csets) (%char-set-algebra (%char-set:s/check cset1 'char-set-intersection!) csets %and! 'char-set-intersection!) cset1) (define (char-set-intersection . csets) (if (pair? csets) (let ((s (%string-copy (%char-set:s/check (car csets) 'char-set-intersection)))) (%char-set-algebra s (cdr csets) %and! 'char-set-intersection) (make-char-set s)) (char-set-copy char-set:full))) ;;; -- Difference (define (char-set-difference! cset1 . csets) (%char-set-algebra (%char-set:s/check cset1 'char-set-difference!) csets %minus! 'char-set-difference!) cset1) (define (char-set-difference cs1 . csets) (if (pair? csets) (let ((s (%string-copy (%char-set:s/check cs1 'char-set-difference)))) (%char-set-algebra s csets %minus! 'char-set-difference) (make-char-set s)) (char-set-copy cs1))) ;;; -- Xor (define (char-set-xor! cset1 . csets) (%char-set-algebra (%char-set:s/check cset1 'char-set-xor!) csets %xor! 'char-set-xor!) cset1) (define (char-set-xor . csets) (if (pair? csets) (let ((s (%string-copy (%char-set:s/check (car csets) 'char-set-xor)))) (%char-set-algebra s (cdr csets) %xor! 'char-set-xor) (make-char-set s)) (char-set-copy char-set:empty))) ;;; -- Difference & intersection (define (%char-set-diff+intersection! diff int csets proc) (for-each (lambda (cs) (%string-iter (lambda (i v) (if (not (zero? v)) (cond ((si=1? diff i) (%set0! diff i) (%set1! int i))))) (%char-set:s/check cs proc))) csets)) (define (char-set-diff+intersection! cs1 cs2 . csets) (let ((s1 (%char-set:s/check cs1 'char-set-diff+intersection!)) (s2 (%char-set:s/check cs2 'char-set-diff+intersection!))) (%string-iter (lambda (i v) (if (zero? v) (%set0! s2 i) (if (si=1? s2 i) (%set0! s1 i)))) s1) (%char-set-diff+intersection! s1 s2 csets 'char-set-diff+intersection!)) (values cs1 cs2)) (define (char-set-diff+intersection cs1 . csets) (let ((diff (string-copy (%char-set:s/check cs1 'char-set-diff+intersection))) (int (make-string 256 c0))) (%char-set-diff+intersection! diff int csets 'char-set-diff+intersection) (values (make-char-set diff) (make-char-set int)))) ;;;; System character sets ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; These definitions are for Latin-1. ;;; ;;; If your Scheme implementation allows you to mark the underlying strings ;;; as immutable, you should do so -- it would be very, very bad if a client's ;;; buggy code corrupted these constants. (define char-set:empty (char-set)) (define char-set:full (char-set-complement char-set:empty)) (define char-set:lower-case (let* ((a-z (ucs-range->char-set #x61 #x7B)) (latin1 (ucs-range->char-set! #xdf #xf7 #t a-z)) (latin2 (ucs-range->char-set! #xf8 #x100 #t latin1))) (char-set-adjoin! latin2 (%latin1->char #xb5)))) (define char-set:upper-case (let ((A-Z (ucs-range->char-set #x41 #x5B))) ;; Add in the Latin-1 upper-case chars. (ucs-range->char-set! #xd8 #xdf #t (ucs-range->char-set! #xc0 #xd7 #t A-Z)))) (define char-set:title-case char-set:empty) (define char-set:letter (let ((u/l (char-set-union char-set:upper-case char-set:lower-case))) (char-set-adjoin! u/l (%latin1->char #xaa) ; FEMININE ORDINAL INDICATOR (%latin1->char #xba)))) ; MASCULINE ORDINAL INDICATOR (define char-set:digit (string->char-set "0123456789")) (define char-set:hex-digit (string->char-set "0123456789abcdefABCDEF")) (define char-set:letter+digit (char-set-union char-set:letter char-set:digit)) (define char-set:punctuation (let ((ascii (string->char-set "!\"#%&'()*,-./:;?@[\\]_{}")) (latin-1-chars (map %latin1->char '(#xA1 ; INVERTED EXCLAMATION MARK #xAB ; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK #xAD ; SOFT HYPHEN #xB7 ; MIDDLE DOT #xBB ; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK #xBF)))) ; INVERTED QUESTION MARK (list->char-set! latin-1-chars ascii))) (define char-set:symbol (let ((ascii (string->char-set "$+<=>^`|~")) (latin-1-chars (map %latin1->char '(#x00A2 ; CENT SIGN #x00A3 ; POUND SIGN #x00A4 ; CURRENCY SIGN #x00A5 ; YEN SIGN #x00A6 ; BROKEN BAR #x00A7 ; SECTION SIGN #x00A8 ; DIAERESIS #x00A9 ; COPYRIGHT SIGN #x00AC ; NOT SIGN #x00AE ; REGISTERED SIGN #x00AF ; MACRON #x00B0 ; DEGREE SIGN #x00B1 ; PLUS-MINUS SIGN #x00B4 ; ACUTE ACCENT #x00B6 ; PILCROW SIGN #x00B8 ; CEDILLA #x00D7 ; MULTIPLICATION SIGN #x00F7)))) ; DIVISION SIGN (list->char-set! latin-1-chars ascii))) (define char-set:graphic (char-set-union char-set:letter+digit char-set:punctuation char-set:symbol)) (define char-set:whitespace (list->char-set (map %latin1->char '(#x09 ; HORIZONTAL TABULATION #x0A ; LINE FEED #x0B ; VERTICAL TABULATION #x0C ; FORM FEED #x0D ; CARRIAGE RETURN #x20 ; SPACE #xA0)))) (define char-set:printing (char-set-union char-set:whitespace char-set:graphic)) ; NO-BREAK SPACE (define char-set:blank (list->char-set (map %latin1->char '(#x09 ; HORIZONTAL TABULATION #x20 ; SPACE #xA0)))) ; NO-BREAK SPACE (define char-set:iso-control (ucs-range->char-set! #x7F #xA0 #t (ucs-range->char-set 0 32))) (define char-set:ascii (ucs-range->char-set 0 128)) ;;; Porting & performance-tuning notes ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; See the section at the beginning of this file on external dependencies. ;;; ;;; First and foremost, rewrite this code to use bit vectors of some sort. ;;; This will give big speedup and memory savings. ;;; ;;; - LET-OPTIONALS* macro. ;;; This is only used once. You can rewrite the use, port the hairy macro ;;; definition (which is implemented using a Clinger-Rees low-level ;;; explicit-renaming macro system), or port the simple, high-level ;;; definition, which is less efficient. ;;; ;;; - :OPTIONAL macro ;;; Very simply defined using an R5RS high-level macro. ;;; ;;; Implementations that can arrange for the base char sets to be immutable ;;; should do so. (E.g., Scheme 48 allows one to mark a string as immutable, ;;; which can be used to protect the underlying strings.) It would be very, ;;; very bad if a client's buggy code corrupted these constants. ;;; ;;; There is a fair amount of argument checking. This is, strictly speaking, ;;; unnecessary -- the actual body of the procedures will blow up if an ;;; illegal value is passed in. However, the error message will not be as good ;;; as if the error were caught at the "higher level." Also, a very, very ;;; smart Scheme compiler may be able to exploit having the type checks done ;;; early, so that the actual body of the procedures can assume proper values. ;;; This isn't likely; this kind of compiler technology isn't common any ;;; longer. ;;; ;;; The overhead of optional-argument parsing is irritating. The optional ;;; arguments must be consed into a rest list on entry, and then parsed out. ;;; Function call should be a matter of a few register moves and a jump; it ;;; should not involve heap allocation! Your Scheme system may have a superior ;;; non-R5RS optional-argument system that can eliminate this overhead. If so, ;;; then this is a prime candidate for optimising these procedures, ;;; *especially* the many optional BASE-CS parameters. ;;; ;;; Note that optional arguments are also a barrier to procedure integration. ;;; If your Scheme system permits you to specify alternate entry points ;;; for a call when the number of optional arguments is known in a manner ;;; that enables inlining/integration, this can provide performance ;;; improvements. ;;; ;;; There is enough *explicit* error checking that *all* internal operations ;;; should *never* produce a type or index-range error. Period. Feel like ;;; living dangerously? *Big* performance win to be had by replacing string ;;; and record-field accessors and setters with unsafe equivalents in the ;;; code. Similarly, fixnum-specific operators can speed up the arithmetic ;;; done on the index values in the inner loops. The only arguments that are ;;; not completely error checked are ;;; - string lists (complete checking requires time proportional to the ;;; length of the list) ;;; - procedure arguments, such as char->char maps & predicates. ;;; There is no way to check the range & domain of procedures in Scheme. ;;; Procedures that take these parameters cannot fully check their ;;; arguments. But all other types to all other procedures are fully ;;; checked. ;;; ;;; This does open up the alternate possibility of simply *removing* these ;;; checks, and letting the safe primitives raise the errors. On a dumb ;;; Scheme system, this would provide speed (by eliminating the redundant ;;; error checks) at the cost of error-message clarity. ;;; ;;; In an interpreted Scheme, some of these procedures, or the internal ;;; routines with % prefixes, are excellent candidates for being rewritten ;;; in C. ;;; ;;; It would also be nice to have the ability to mark some of these ;;; routines as candidates for inlining/integration. ;;; ;;; See the comments preceding the hash function code for notes on tuning ;;; the default bound so that the code never overflows your implementation's ;;; fixnum size into bignum calculation. ;;; ;;; All the %-prefixed routines in this source code are written ;;; to be called internally to this library. They do *not* perform ;;; friendly error checks on the inputs; they assume everything is ;;; proper. They also do not take optional arguments. These two properties ;;; save calling overhead and enable procedure integration -- but they ;;; are not appropriate for exported routines. ;;; Copyright notice ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Copyright (c) 1988-1995 Massachusetts Institute of Technology ;;; ;;; This material was developed by the Scheme project at the Massachusetts ;;; Institute of Technology, Department of Electrical Engineering and ;;; Computer Science. Permission to copy and modify this software, to ;;; redistribute either the original software or a modified version, and ;;; to use this software 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. Users of this software agree to make their best efforts (a) to ;;; return to the MIT Scheme project any improvements or extensions that ;;; they make, so that these may be included in future releases; and (b) ;;; to inform MIT of noteworthy uses of this software. ;;; ;;; 3. All materials developed as a consequence of the use of this ;;; software shall duly acknowledge such use, in accordance with the usual ;;; standards of acknowledging credit in academic research. ;;; ;;; 4. MIT has made no warrantee or representation that the operation of ;;; this software will be error-free, and MIT is under no obligation to ;;; provide any services, by way of maintenance, update, or otherwise. ;;; ;;; 5. In conjunction with products arising from the use of this material, ;;; there shall be no use of the name of the Massachusetts Institute of ;;; Technology nor of any adaptation thereof in any advertising, ;;; promotional, or sales literature without prior written consent from ;;; MIT in each case. ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/dbg-stub.c���������������������������������������������������������������������������0000644�0001750�0001750�00000034767�13052302367�014705� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* dbg-stub.c - Client-side interface, lowlevel part ; ; Copyright (c) 2008-2017, 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 0 #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 # define UWORD_COUNT_FORMAT_STRING "%lu" #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, int cln); 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 0; } 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 */ 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->loc != NULL; ++dinfo) { if(i++ == n) { dinfo->enabled = f; return; } } } terminate("invalid debug-info index"); } static void send_string(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_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 cln) { 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(;;) { n = C_snprintf(rw_buffer, sizeof(rw_buffer), "(%d \"%s\" \"%s\" \"%s:%d\")\n", event, loc, val, cloc, cln); send_string(rw_buffer); if(socket_read() < 0) terminate("read failed"); /* 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->loc != NULL; ++dinfo) { if(*str == '\0' || strstr(dinfo->val, str)) { C_snprintf(rw_buffer, sizeof(rw_buffer), "(* %d %d \"%s\" \"%s\")\n", dbg_info_count++, dinfo->event, dinfo->loc, dinfo->val); send_string(rw_buffer); } ++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_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_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_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 = C_dump_trace(0); C_strlcpy(rw_buffer, "(* \"", sizeof(rw_buffer)); ptr = rw_buffer + 4; while(*str != '\0') { if(*str == '\n') { C_strlcpy(ptr, "\")\n", 4); send_string(rw_buffer); C_strlcpy(rw_buffer, "(* \"", sizeof(rw_buffer)); ptr = rw_buffer + 4; ++str; } else *(ptr++) = *(str++); } C_strlcpy(ptr, "\")\n", 4); send_string(rw_buffer); 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, "", "", 0); #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, char *cloc, int cln) { if(socket_fd != 0) { if(cell->enabled || interrupted || ((1 << cell->event) & event_mask) != 0 ) { /* fprintf(stderr, "event: %s:%d\n", cloc, cln); */ current_c = c; current_av = av; send_event(interrupted ? C_DEBUG_INTERRUPTED : cell->event, cell->loc, cell->val, cloc, cln); interrupted = 0; } } if(cell->event == C_DEBUG_CALL) C_trace(cell->val); return C_SCHEME_UNDEFINED; } /* TODO: - escape '\"' + '\\' in transmitted strings - error-condition (SIGNAL event) doesn't seem to terminate */ ���������chicken-4.12.0/posix-common.scm���������������������������������������������������������������������0000644�0001750�0001750�00000066521�13052306173�016156� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; posix-common.scm - common code for UNIX and Windows versions of the posix unit ; ; Copyright (c) 2010-2017, 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 (hide ##sys#stat posix-error check-time-vector ##sys#find-files list->c-string-buffer free-c-string-buffer call-with-exec-args) (foreign-declare #<<EOF #include <signal.h> #include <errno.h> #include <sys/stat.h> static int C_not_implemented(void); int C_not_implemented() { return -1; } #define C_curdir(buf) (getcwd(C_c_string(buf), 1024) ? C_fix(strlen(C_c_string(buf))) : C_SCHEME_FALSE) static C_TLS struct stat C_statbuf; #define C_stat_type (C_statbuf.st_mode & S_IFMT) #define C_stat(fn) C_fix(stat((char *)C_data_pointer(fn), &C_statbuf)) #define C_fstat(f) C_fix(fstat(C_unfix(f), &C_statbuf)) #ifndef S_IFSOCK # define S_IFSOCK 0140000 #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_flonum(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_C_fileno(p) C_fix(fileno(C_port_file(p))) #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) #define C_opendir(x,h) C_set_block_item(h, 0, (C_word) opendir(C_c_string(x))) #define C_closedir(h) (closedir((DIR *)C_block_item(h, 0)), C_SCHEME_UNDEFINED) #define C_readdir(h,e) C_set_block_item(e, 0, (C_word) readdir((DIR *)C_block_item(h, 0))) #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))) /* It is assumed that 'int' is-a 'long' */ #define C_ftell(p) C_fix(ftell(C_port_file(p))) #define C_fseek(p, n, w) C_mk_nbool(fseek(C_port_file(p), C_num_to_int(n), C_unfix(w))) #define C_lseek(fd, o, w) C_fix(lseek(C_unfix(fd), C_unfix(o), C_unfix(w))) #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 EOF )) (include "common-declarations.scm") ;;; 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 double "C_statbuf.st_mtime") (define-foreign-variable _stat_st_atime double "C_statbuf.st_atime") (define-foreign-variable _stat_st_ctime double "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 ((name (cadr x))) `(##core#begin (declare (foreign-declare ,(sprintf "#ifndef ~a~%#define ~a S_IFREG~%#endif~%" name name))) (define-foreign-variable ,name 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 (##sys#stat file link err loc) (let ((r (cond ((fixnum? file) (##core#inline "C_fstat" file)) ((port? file) (##core#inline "C_fstat" (port->fileno file))) ((string? file) (let ((path (##sys#make-c-string (##sys#platform-fixup-pathname file) loc))) (if link (##core#inline "C_lstat" path) (##core#inline "C_stat" path) ) ) ) (else (##sys#signal-hook #:type-error loc "bad argument type - not a fixnum or string" file)) ) ) ) (if (fx< r 0) (if err (posix-error #:file-error loc "cannot access file" file) #f) #t))) (define (file-stat f #!optional link) (##sys#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) ) (define file-modification-time (getter-with-setter (lambda (f) (##sys#stat f #f #t 'file-modification-time) _stat_st_mtime) (lambda (f t) (##sys#check-number t 'set-file-modification-time) (let ((r ((foreign-lambda int "set_file_mtime" c-string scheme-object) f t))) (when (fx< r 0) (posix-error #:file-error 'set-file-modification-time "cannot set file modification-time" f t)))) "(file-modification-time f)")) (define (file-access-time f) (##sys#stat f #f #t 'file-access-time) _stat_st_atime) (define (file-change-time f) (##sys#stat f #f #t 'file-change-time) _stat_st_ctime) (define (file-owner f) (##sys#stat f #f #t 'file-owner) _stat_st_uid) (define (file-permissions f) (##sys#stat f #f #t 'file-permissions) _stat_st_mode) (define (file-size f) (##sys#stat f #f #t 'file-size) _stat_st_size) (define (file-type file #!optional link (err #t)) (and (##sys#stat file link err 'file-type) (select (foreign-value "C_stat_type" unsigned-int) ((S_IFREG) 'regular-file) ((S_IFLNK) 'symbolic-link) ((S_IFDIR) 'directory) ((S_IFCHR) 'character-device) ((S_IFBLK) 'block-device) ((S_IFIFO) 'fifo) ((S_IFSOCK) 'socket) (else 'regular-file)))) (define (regular-file? file) (eq? 'regular-file (file-type file #f #f))) (define (symbolic-link? file) (eq? 'symbolic-link (file-type file #t #f))) (define (block-device? file) (eq? 'block-device (file-type file #f #f))) (define (character-device? file) (eq? 'character-device (file-type file #f #f))) (define (fifo? file) (eq? 'fifo (file-type file #f #f))) (define (socket? file) (eq? 'socket (file-type file #f #f))) (define (directory? file) (eq? 'directory (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") (define seek/set _seek_set) (define seek/end _seek_end) (define seek/cur _seek_cur) (define set-file-position! (lambda (port pos . whence) (let ((whence (if (pair? whence) (car whence) _seek_set))) (##sys#check-exact pos 'set-file-position!) (##sys#check-exact whence 'set-file-position!) (unless (cond ((port? port) (and (eq? (##sys#slot port 7) 'stream) (##core#inline "C_fseek" port pos whence) ) ) ((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) ) ) ) ) (define file-position (getter-with-setter (lambda (port) (let ((pos (cond ((port? port) (if (eq? (##sys#slot port 7) 'stream) (##core#inline "C_ftell" 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) ) set-file-position! ; doesn't accept WHENCE "(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") (define fileno/stdin _stdin_fileno) (define fileno/stdout _stdout_fileno) (define fileno/stderr _stderr_fileno) (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 inp ##sys#stream-port-class "(fdport)" 'stream)]) (##core#inline "C_set_file_ptr" port r) port) ) ) (set! open-input-file* (lambda (fd . m) (##sys#check-exact fd 'open-input-file*) (check 'open-input-file* fd #t (##core#inline_allocate ("C_fdopen" 2) fd (mode #t m 'open-input-file*))) ) ) (set! open-output-file* (lambda (fd . m) (##sys#check-exact fd 'open-output-file*) (check 'open-output-file* fd #f (##core#inline_allocate ("C_fdopen" 2) fd (mode #f m 'open-output-file*)) ) ) ) ) (define 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_C_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)] ) ) ) (define duplicate-fileno (lambda (old . new) (##sys#check-exact old duplicate-fileno) (let ([fd (if (null? new) (##core#inline "C_dup" old) (let ([n (car new)]) (##sys#check-exact 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) ) ) ;;; Set or get current directory: (define (current-directory #!optional dir) (if dir (change-directory dir) (let* ((buffer (make-string 1024)) (len (##core#inline "C_curdir" buffer)) ) #+(or unix cygwin) (##sys#update-errno) (if len (##sys#substring buffer 0 len) (##sys#signal-hook #:file-error 'current-directory "cannot retrieve current directory") ) ) ) ) (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-file) ((directory? f) rmdir) (else delete-file)) f)) files) (rmdir name)) (rmdir name)))) (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 parents?) (##sys#check-string name 'create-directory) (unless (or (fx= 0 (##sys#size name)) (file-exists? name)) (if parents? (let loop ((dir (let-values (((dir file ext) (decompose-pathname name))) (if file (make-pathname dir file ext) dir)))) (when (and dir (not (directory? dir))) (loop (pathname-directory dir)) (*create-directory 'create-directory dir)) ) (*create-directory 'create-directory name) ) ) name)) (define directory (lambda (#!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)) ) ) ) ) ) ) ) ) ;;; Filename globbing: (define glob (lambda paths (let conc-loop ((paths paths)) (if (null? paths) '() (let ((path (car paths))) (let-values (((dir fil ext) (decompose-pathname path))) (let ((rx (##sys#glob->regexp (make-pathname #f (or fil "*") ext)))) (let loop ((fns (directory (or dir ".") #t))) (cond ((null? 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 (##sys#find-files dir pred action id limit follow dot loc) (##sys#check-string dir loc) (let* ((depth 0) (lproc (cond ((not limit) (lambda _ #t)) ((fixnum? limit) (lambda _ (fx< depth limit))) (else limit) ) ) (pproc (if (procedure? pred) pred (let ((pred (irregex pred))) ; force compilation (lambda (x) (irregex-match pred x)))))) (let loop ((dir dir) (fs (directory dir dot)) (r id)) (if (null? fs) r (let* ((filename (##sys#slot fs 0)) (f (make-pathname dir filename)) (rest (##sys#slot fs 1))) (cond ((directory? f) (cond ((member filename '("." "..")) (loop dir rest r)) ((and (symbolic-link? f) (not follow)) (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 dot) (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)))))))) (define (find-files dir #!key (test (lambda _ #t)) (action (lambda (x y) (cons x y))) (seed '()) (limit #f) (dotfiles #f) (follow-symlinks #f)) (##sys#find-files dir test action seed limit follow-symlinks dotfiles 'find-files)) ;;; umask (define file-creation-mode (getter-with-setter (lambda (#!optional um) (when um (##sys#check-exact 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-exact um 'file-creation-mode) (##core#inline "C_umask" um)) "(file-creation-mode mode)")) ;;; Time related things: (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) ) ) (define (seconds->local-time #!optional (secs (current-seconds))) (##sys#check-number secs 'seconds->local-time) (##sys#decode-seconds secs #f) ) (define (seconds->utc-time #!optional (secs (current-seconds))) (##sys#check-number secs 'seconds->utc-time) (##sys#decode-seconds secs #t) ) (define seconds->string (let ([ctime (foreign-lambda c-string "C_ctime" integer)]) (lambda (#!optional (secs (current-seconds))) (##sys#check-number 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) ) ) ) ) ) (define 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" 4) tm (##sys#make-string tm-size #\nul)))) (if (fp= -1.0 t) (##sys#error 'local-time->seconds "cannot convert time vector to seconds" tm) t))))) (define 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) ) ) ) ) ) ) ;;; Environment access: (define setenv (lambda (var val) (##sys#check-string var 'setenv) (##sys#check-string val 'setenv) (##core#inline "C_setenv" (##sys#make-c-string var 'setenv) (##sys#make-c-string val 'setenv)) (##core#undefined) ) ) (define (unsetenv var) (##sys#check-string var 'unsetenv) (##core#inline "C_unsetenv" (##sys#make-c-string var 'unsetenv)) (##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)) ) ) '() ) ) ) ) ) ) ;;; Signals (define (set-signal-handler! sig proc) (##sys#check-exact sig 'set-signal-handler!) (##core#inline "C_establish_signal_handler" sig (and proc sig)) (vector-set! ##sys#signal-vector sig proc) ) (define signal-handler (getter-with-setter (lambda (sig) (##sys#check-exact sig 'signal-handler) (##sys#slot ##sys#signal-vector sig) ) set-signal-handler!)) ;;; Processes (define (current-process-id) (##sys#fudge 33)) (define process-wait (lambda args (let-optionals* args ([pid #f] [nohang #f]) (let ([pid (or pid -1)]) (##sys#check-exact pid 'process-wait) (receive [epid enorm ecode] (##sys#process-wait 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))))) (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 (set! envbuf (list->c-string-buffer envlist nop loc))) (proc (##sys#make-c-string filename loc) argbuf envbuf)))))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/identify.sh��������������������������������������������������������������������������0000755�0001750�0001750�00000002550�13040667210�015163� 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 ""` tag0=`cat buildtag.h || 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/'` tag="#define C_BUILD_TAG \"compiled ${buildtime} on ${host} (${usys})\"" 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"} tag=${tag:-"#define C_BUILD_TAG \"compiled ${buildtime} on ${host} (${usys})\""} 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 if test "x${tag0}" \!= "x${tag}"; then echo ${tag} >buildtag.h fi ��������������������������������������������������������������������������������������������������������������������������������������������������������chicken-4.12.0/c-platform.c�������������������������������������������������������������������������0000644�0001750�0001750�00002467467�13052306500�015244� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from c-platform.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:19 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: c-platform.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -no-lambda-info -extend private-namespace.scm -no-trace -output-file c-platform.c unit: platform */ #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_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[933]; static double C_possibly_force_alignment; C_noret_decl(f_3769) static void C_ccall f_3769(C_word c,C_word *av) C_noret; C_noret_decl(f_3549) static void C_ccall f_3549(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_3543) static void C_ccall f_3543(C_word c,C_word *av) 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_5196) static void C_ccall f_5196(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_3555) static void C_ccall f_3555(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_3525) static void C_ccall f_3525(C_word c,C_word *av) C_noret; C_noret_decl(f_3528) static void C_ccall f_3528(C_word c,C_word *av) C_noret; C_noret_decl(f_3522) static void C_ccall f_3522(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_3754) static void C_ccall f_3754(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_1667) static void C_ccall f_1667(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_1672) static void C_fcall f_1672(C_word t0,C_word t1,C_word t2,C_word t3) 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_1674) static void C_ccall f_1674(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_3732) static void C_ccall f_3732(C_word c,C_word *av) C_noret; C_noret_decl(f_1744) static void C_ccall f_1744(C_word c,C_word *av) C_noret; C_noret_decl(f_3702) static void C_ccall f_3702(C_word c,C_word *av) 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_3708) static void C_ccall f_3708(C_word c,C_word *av) C_noret; C_noret_decl(f_2670) static void C_ccall f_2670(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_2676) static void C_ccall f_2676(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_4821) static void C_fcall f_4821(C_word t0,C_word t1) C_noret; C_noret_decl(f_4824) static void C_fcall f_4824(C_word t0,C_word t1) C_noret; C_noret_decl(f_3711) static void C_ccall f_3711(C_word c,C_word *av) C_noret; C_noret_decl(f_3714) static void C_ccall f_3714(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_3609) static void C_ccall f_3609(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_3869) static void C_ccall f_3869(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_3875) static void C_ccall f_3875(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_3878) static void C_ccall f_3878(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_2661) static void C_ccall f_2661(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_2667) static void C_ccall f_2667(C_word c,C_word *av) C_noret; C_noret_decl(f_5292) static void C_ccall f_5292(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_3618) static void C_ccall f_3618(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_3612) static void C_ccall f_3612(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_2691) static void C_ccall f_2691(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_2694) static void C_ccall f_2694(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_3621) static void C_ccall f_3621(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_3624) static void C_ccall f_3624(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_1962) static void C_ccall f_1962(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_1964) static void C_ccall f_1964(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_2796) static void C_ccall f_2796(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_4030) static void C_ccall f_4030(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_2793) static void C_ccall f_2793(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_3639) static void C_ccall f_3639(C_word c,C_word *av) C_noret; C_noret_decl(f_3636) static void C_ccall f_3636(C_word c,C_word *av) C_noret; C_noret_decl(f_3633) static void C_ccall f_3633(C_word c,C_word *av) C_noret; C_noret_decl(f_3630) static void C_ccall f_3630(C_word c,C_word *av) C_noret; C_noret_decl(f_1974) static void C_ccall f_1974(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_3006) static void C_ccall f_3006(C_word c,C_word *av) C_noret; C_noret_decl(f_2703) static void C_ccall f_2703(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_3003) static void C_ccall f_3003(C_word c,C_word *av) C_noret; C_noret_decl(f_2706) static void C_ccall f_2706(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_2709) static void C_ccall f_2709(C_word c,C_word *av) 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_2877) static void C_ccall f_2877(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_3537) static void C_ccall f_3537(C_word c,C_word *av) 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_2874) static void C_ccall f_2874(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_3534) static void C_ccall f_3534(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_3012) static void C_ccall f_3012(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_2865) static void C_ccall f_2865(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_2868) static void C_ccall f_2868(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_3501) static void C_ccall f_3501(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_3504) static void C_ccall f_3504(C_word c,C_word *av) C_noret; C_noret_decl(f_1997) static void C_ccall f_1997(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_3024) static void C_ccall f_3024(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_2898) static void C_ccall f_2898(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_4073) static void C_ccall f_4073(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_4076) static void C_ccall f_4076(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_2892) static void C_ccall f_2892(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_2895) static void C_ccall f_2895(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_3513) static void C_ccall f_3513(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_3030) static void C_ccall f_3030(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_4049) static void C_ccall f_4049(C_word c,C_word *av) C_noret; C_noret_decl(f_2889) static void C_ccall f_2889(C_word c,C_word *av) C_noret; C_noret_decl(f_2886) static void C_ccall f_2886(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_4043) static void C_ccall f_4043(C_word c,C_word *av) C_noret; C_noret_decl(f_2880) static void C_ccall f_2880(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_3048) static void C_ccall f_3048(C_word c,C_word *av) C_noret; C_noret_decl(f_2748) static void C_ccall f_2748(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_3042) static void C_ccall f_3042(C_word c,C_word *av) C_noret; C_noret_decl(f_3045) static void C_ccall f_3045(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_2742) static void C_ccall f_2742(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_2838) static void C_ccall f_2838(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_2832) static void C_ccall f_2832(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_3051) static void C_ccall f_3051(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_2739) static void C_ccall f_2739(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_3057) static void C_ccall f_3057(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_2733) static void C_ccall f_2733(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_2484) static void C_ccall f_2484(C_word c,C_word *av) C_noret; C_noret_decl(f_2488) static void C_ccall f_2488(C_word c,C_word *av) C_noret; C_noret_decl(f_1633) static void C_ccall f_1633(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_4064) static void C_ccall f_4064(C_word c,C_word *av) 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_1956) static void C_ccall f_1956(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_3063) static void C_ccall f_3063(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_4061) static void C_ccall f_4061(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_2859) static void C_ccall f_2859(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_2853) static void C_ccall f_2853(C_word c,C_word *av) C_noret; C_noret_decl(f_2850) static void C_ccall f_2850(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_3072) static void C_ccall f_3072(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_2847) static void C_ccall f_2847(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_4085) static void C_ccall f_4085(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_3824) static void C_ccall f_3824(C_word c,C_word *av) C_noret; C_noret_decl(f_2844) static void C_ccall f_2844(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_4088) static void C_ccall f_4088(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_3081) static void C_ccall f_3081(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_5536) static void C_fcall f_5536(C_word t0,C_word t1) 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_2781) static void C_ccall f_2781(C_word c,C_word *av) C_noret; C_noret_decl(f_2784) static void C_ccall f_2784(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_4055) static void C_ccall f_4055(C_word c,C_word *av) 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_4052) static void C_ccall f_4052(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_2772) static void C_ccall f_2772(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_3723) static void C_ccall f_3723(C_word c,C_word *av) C_noret; C_noret_decl(f_3726) static void C_ccall f_3726(C_word c,C_word *av) C_noret; C_noret_decl(f_3729) static void C_ccall f_3729(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_2655) static void C_ccall f_2655(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_2769) static void C_ccall f_2769(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_2766) static void C_ccall f_2766(C_word c,C_word *av) C_noret; C_noret_decl(f_2763) static void C_ccall f_2763(C_word c,C_word *av) 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_2760) static void C_ccall f_2760(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_2646) static void C_ccall f_2646(C_word c,C_word *av) C_noret; C_noret_decl(f_2643) static void C_ccall f_2643(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_4615) static void C_ccall f_4615(C_word c,C_word *av) C_noret; C_noret_decl(f_2757) static void C_ccall f_2757(C_word c,C_word *av) C_noret; C_noret_decl(f_2751) static void C_ccall f_2751(C_word c,C_word *av) C_noret; C_noret_decl(f_2754) static void C_ccall f_2754(C_word c,C_word *av) C_noret; C_noret_decl(f_4538) static void C_fcall f_4538(C_word t0,C_word t1) 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_2649) static void C_ccall f_2649(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_2808) static void C_ccall f_2808(C_word c,C_word *av) C_noret; C_noret_decl(f_4093) static void C_ccall f_4093(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_4657) static void C_ccall f_4657(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_4562) static void C_ccall f_4562(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_1606) static void C_ccall f_1606(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_2988) static void C_ccall f_2988(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_2985) static void C_ccall f_2985(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_2976) static void C_ccall f_2976(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_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_3480) static void C_ccall f_3480(C_word c,C_word *av) C_noret; C_noret_decl(f_4695) static C_word C_fcall f_4695(C_word *a,C_word t0,C_word t1,C_word t2); C_noret_decl(f_3483) static void C_ccall f_3483(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_3486) static void C_ccall f_3486(C_word c,C_word *av) 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_4590) static void C_ccall f_4590(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_2562) static void C_ccall f_2562(C_word c,C_word *av) C_noret; C_noret_decl(f_2565) static void C_ccall f_2565(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_5657) static void C_ccall f_5657(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_3477) static void C_ccall f_3477(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_3381) static void C_ccall f_3381(C_word c,C_word *av) C_noret; C_noret_decl(f_3384) static void C_ccall f_3384(C_word c,C_word *av) C_noret; C_noret_decl(f_3387) static void C_ccall f_3387(C_word c,C_word *av) C_noret; C_noret_decl(f_2820) static void C_ccall f_2820(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_2826) static void C_ccall f_2826(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_2613) static void C_ccall f_2613(C_word c,C_word *av) C_noret; C_noret_decl(f_2829) static void C_ccall f_2829(C_word c,C_word *av) 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_2619) static void C_ccall f_2619(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_3396) static void C_ccall f_3396(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_2610) static void C_ccall f_2610(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_2724) static void C_ccall f_2724(C_word c,C_word *av) C_noret; C_noret_decl(f_2727) static void C_ccall f_2727(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_2925) static void C_ccall f_2925(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_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_3363) static void C_ccall f_3363(C_word c,C_word *av) C_noret; C_noret_decl(f_2604) static void C_ccall f_2604(C_word c,C_word *av) 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_2607) static void C_ccall f_2607(C_word c,C_word *av) C_noret; C_noret_decl(f_3369) static void C_ccall f_3369(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_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_2718) static void C_ccall f_2718(C_word c,C_word *av) C_noret; C_noret_decl(f_5632) static void C_fcall f_5632(C_word t0,C_word t1,C_word t2) 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_2913) static void C_ccall f_2913(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_2916) static void C_ccall f_2916(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_2919) static void C_ccall f_2919(C_word c,C_word *av) C_noret; C_noret_decl(f_3462) static void C_ccall f_3462(C_word c,C_word *av) C_noret; C_noret_decl(f_3465) static void C_ccall f_3465(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_3372) static void C_ccall f_3372(C_word c,C_word *av) C_noret; C_noret_decl(f_2637) static void C_ccall f_2637(C_word c,C_word *av) C_noret; C_noret_decl(f_2631) static void C_ccall f_2631(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_3375) static void C_ccall f_3375(C_word c,C_word *av) C_noret; C_noret_decl(f_3378) static void C_ccall f_3378(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_2305) static void C_ccall f_2305(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_2455) static void C_ccall f_2455(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_2583) static void C_ccall f_2583(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_2586) static void C_ccall f_2586(C_word c,C_word *av) C_noret; C_noret_decl(f_2589) static void C_ccall f_2589(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_2622) static void C_ccall f_2622(C_word c,C_word *av) C_noret; C_noret_decl(f_2571) static void C_ccall f_2571(C_word c,C_word *av) 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_2577) static void C_ccall f_2577(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_5004) static void C_ccall f_5004(C_word c,C_word *av) C_noret; C_noret_decl(f_2967) static void C_ccall f_2967(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_2961) static void C_ccall f_2961(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_2955) static void C_ccall f_2955(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_2342) static void C_ccall f_2342(C_word c,C_word *av) C_noret; C_noret_decl(f_2340) static void C_ccall f_2340(C_word c,C_word *av) C_noret; C_noret_decl(f_2949) static void C_ccall f_2949(C_word c,C_word *av) 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_2943) static void C_ccall f_2943(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_2403) static void C_ccall f_2403(C_word c,C_word *av) C_noret; C_noret_decl(C_platform_toplevel) C_externexport void C_ccall C_platform_toplevel(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_2409) static void C_ccall f_2409(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_2931) static void C_ccall f_2931(C_word c,C_word *av) C_noret; C_noret_decl(f_2934) static void C_ccall f_2934(C_word c,C_word *av) C_noret; C_noret_decl(f_5043) static void C_fcall f_5043(C_word t0,C_word t1) 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_2997) static void C_ccall f_2997(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_2994) static void C_ccall f_2994(C_word c,C_word *av) 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_3435) static void C_ccall f_3435(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_3459) static void C_ccall f_3459(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_3453) static void C_ccall f_3453(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_2559) static void C_ccall f_2559(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_3426) static void C_ccall f_3426(C_word c,C_word *av) 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_3420) static void C_ccall f_3420(C_word c,C_word *av) C_noret; C_noret_decl(f_4998) static void C_ccall f_4998(C_word c,C_word *av) C_noret; C_noret_decl(f_4344) static void C_ccall f_4344(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_5529) static void C_ccall f_5529(C_word c,C_word *av) C_noret; C_noret_decl(f_3255) static void C_ccall f_3255(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_4373) static void C_ccall f_4373(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_2901) static void C_ccall f_2901(C_word c,C_word *av) C_noret; C_noret_decl(f_2904) static void C_ccall f_2904(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_3345) static void C_ccall f_3345(C_word c,C_word *av) C_noret; C_noret_decl(f_3348) static void C_ccall f_3348(C_word c,C_word *av) C_noret; C_noret_decl(f_3342) static void C_ccall f_3342(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_3402) static void C_ccall f_3402(C_word c,C_word *av) 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_3357) static void C_ccall f_3357(C_word c,C_word *av) C_noret; C_noret_decl(f_4319) static void C_fcall f_4319(C_word t0,C_word t1) C_noret; C_noret_decl(f_3351) static void C_ccall f_3351(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_3354) static void C_ccall f_3354(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_3324) static void C_ccall f_3324(C_word c,C_word *av) 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_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_3339) static void C_ccall f_3339(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_3333) static void C_ccall f_3333(C_word c,C_word *av) C_noret; C_noret_decl(f_3291) static void C_ccall f_3291(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_3294) static void C_ccall f_3294(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_3306) static void C_ccall f_3306(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_3300) static void C_ccall f_3300(C_word c,C_word *av) C_noret; C_noret_decl(f_3303) static void C_ccall f_3303(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_3441) static void C_ccall f_3441(C_word c,C_word *av) C_noret; C_noret_decl(f_3444) static void C_ccall f_3444(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_3312) static void C_ccall f_3312(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_3417) static void C_ccall f_3417(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_3414) static void C_ccall f_3414(C_word c,C_word *av) C_noret; C_noret_decl(f_3972) static void C_ccall f_3972(C_word c,C_word *av) C_noret; C_noret_decl(f_3976) static void C_ccall f_3976(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_4161) static void C_ccall f_4161(C_word c,C_word *av) 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_4103) static void C_ccall f_4103(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_5447) static void C_ccall f_5447(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_5451) static void C_ccall f_5451(C_word c,C_word *av) C_noret; C_noret_decl(f_5371) static void C_ccall f_5371(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_3964) static void C_ccall f_3964(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_3204) static void C_ccall f_3204(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_4745) static void C_ccall f_4745(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_3228) static void C_ccall f_3228(C_word c,C_word *av) C_noret; C_noret_decl(f_4790) static void C_fcall f_4790(C_word t0,C_word t1) 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_3237) static void C_ccall f_3237(C_word c,C_word *av) C_noret; C_noret_decl(f_3231) static void C_ccall f_3231(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_4768) static void C_ccall f_4768(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_3105) static void C_ccall f_3105(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_2293) static void C_ccall f_2293(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_2296) static void C_ccall f_2296(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_3249) static void C_ccall f_3249(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_3240) static void C_ccall f_3240(C_word c,C_word *av) C_noret; C_noret_decl(f_3243) static void C_ccall f_3243(C_word c,C_word *av) C_noret; C_noret_decl(f_4784) static void C_fcall f_4784(C_word t0,C_word t1) 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_3261) static void C_ccall f_3261(C_word c,C_word *av) C_noret; C_noret_decl(f_3138) static void C_ccall f_3138(C_word c,C_word *av) C_noret; C_noret_decl(f_3267) static void C_ccall f_3267(C_word c,C_word *av) C_noret; C_noret_decl(f_3135) static void C_ccall f_3135(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_3276) static void C_ccall f_3276(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_3270) static void C_ccall f_3270(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_3147) static void C_ccall f_3147(C_word c,C_word *av) 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_3144) static void C_ccall f_3144(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_3282) static void C_ccall f_3282(C_word c,C_word *av) C_noret; C_noret_decl(f_3117) static void C_ccall f_3117(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_3111) static void C_ccall f_3111(C_word c,C_word *av) C_noret; C_noret_decl(f_3114) static void C_ccall f_3114(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_3210) static void C_ccall f_3210(C_word c,C_word *av) C_noret; C_noret_decl(f_3126) static void C_ccall f_3126(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_3129) static void C_ccall f_3129(C_word c,C_word *av) C_noret; C_noret_decl(f_3120) static void C_ccall f_3120(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_3174) static void C_ccall f_3174(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_3186) static void C_ccall f_3186(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_3180) static void C_ccall f_3180(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_2070) static void C_fcall f_2070(C_word t0,C_word t1) C_noret; C_noret_decl(f_3153) static void C_ccall f_3153(C_word c,C_word *av) C_noret; C_noret_decl(f_3156) static void C_ccall f_3156(C_word c,C_word *av) C_noret; C_noret_decl(f_3150) static void C_ccall f_3150(C_word c,C_word *av) C_noret; C_noret_decl(f_3159) static void C_ccall f_3159(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_3165) static void C_ccall f_3165(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_3162) static void C_ccall f_3162(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_2089) static void C_ccall f_2089(C_word c,C_word *av) C_noret; C_noret_decl(f_4429) static void C_ccall f_4429(C_word c,C_word *av) C_noret; C_noret_decl(f_2022) static void C_fcall f_2022(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2020) static void C_ccall f_2020(C_word c,C_word *av) C_noret; C_noret_decl(f_2047) static void C_ccall f_2047(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_3660) static void C_ccall f_3660(C_word c,C_word *av) C_noret; C_noret_decl(f_3663) static void C_ccall f_3663(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_3669) static void C_ccall f_3669(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_3675) static void C_ccall f_3675(C_word c,C_word *av) C_noret; C_noret_decl(f_3678) static void C_ccall f_3678(C_word c,C_word *av) C_noret; C_noret_decl(f_5401) static void C_ccall f_5401(C_word c,C_word *av) C_noret; C_noret_decl(f_3681) static void C_ccall f_3681(C_word c,C_word *av) 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_3684) static void C_ccall f_3684(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_2003) static void C_ccall f_2003(C_word c,C_word *av) C_noret; C_noret_decl(f_3693) static void C_ccall f_3693(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_3696) static void C_ccall f_3696(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_2201) static void C_ccall f_2201(C_word c,C_word *av) C_noret; C_noret_decl(f_3093) static void C_ccall f_3093(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_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_5129) static void C_ccall f_5129(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_2213) static void C_ccall f_2213(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_3597) static void C_ccall f_3597(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_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_2237) static void C_ccall f_2237(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_5171) static void C_ccall f_5171(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_1773) static void C_fcall f_1773(C_word t0,C_word t1) C_noret; C_noret_decl(f_2190) static void C_ccall f_2190(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_fcall f_2195(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5113) static void C_ccall f_5113(C_word c,C_word *av) C_noret; C_noret_decl(f_1782) static void C_fcall f_1782(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_noret; C_noret_decl(f_3899) static void C_ccall f_3899(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_5180) static void C_fcall f_5180(C_word t0,C_word t1) 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_5249) static void C_ccall f_5249(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_2278) static void C_ccall f_2278(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_3645) static void C_ccall f_3645(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_5251) static void C_ccall f_5251(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_3654) static void C_ccall f_3654(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_1757) static void C_ccall f_1757(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_1752) static void C_ccall f_1752(C_word c,C_word *av) C_noret; C_noret_decl(f_4488) static void C_fcall f_4488(C_word t0,C_word t1) C_noret; C_noret_decl(trf_1672) static void C_ccall trf_1672(C_word c,C_word *av) C_noret; static void C_ccall trf_1672(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1672(t0,t1,t2,t3);} C_noret_decl(trf_4821) static void C_ccall trf_4821(C_word c,C_word *av) C_noret; static void C_ccall trf_4821(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4821(t0,t1);} C_noret_decl(trf_4824) static void C_ccall trf_4824(C_word c,C_word *av) C_noret; static void C_ccall trf_4824(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4824(t0,t1);} C_noret_decl(trf_5536) static void C_ccall trf_5536(C_word c,C_word *av) C_noret; static void C_ccall trf_5536(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5536(t0,t1);} C_noret_decl(trf_4538) static void C_ccall trf_4538(C_word c,C_word *av) C_noret; static void C_ccall trf_4538(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4538(t0,t1);} C_noret_decl(trf_5632) static void C_ccall trf_5632(C_word c,C_word *av) C_noret; static void C_ccall trf_5632(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5632(t0,t1,t2);} C_noret_decl(trf_5043) static void C_ccall trf_5043(C_word c,C_word *av) C_noret; static void C_ccall trf_5043(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5043(t0,t1);} C_noret_decl(trf_4319) static void C_ccall trf_4319(C_word c,C_word *av) C_noret; static void C_ccall trf_4319(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4319(t0,t1);} C_noret_decl(trf_4790) static void C_ccall trf_4790(C_word c,C_word *av) C_noret; static void C_ccall trf_4790(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4790(t0,t1);} C_noret_decl(trf_4784) static void C_ccall trf_4784(C_word c,C_word *av) C_noret; static void C_ccall trf_4784(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4784(t0,t1);} C_noret_decl(trf_2070) static void C_ccall trf_2070(C_word c,C_word *av) C_noret; static void C_ccall trf_2070(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2070(t0,t1);} C_noret_decl(trf_2022) static void C_ccall trf_2022(C_word c,C_word *av) C_noret; static void C_ccall trf_2022(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2022(t0,t1,t2);} C_noret_decl(trf_1773) static void C_ccall trf_1773(C_word c,C_word *av) C_noret; static void C_ccall trf_1773(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1773(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[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2195(t0,t1,t2,t3);} C_noret_decl(trf_1782) static void C_ccall trf_1782(C_word c,C_word *av) C_noret; static void C_ccall trf_1782(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1782(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[1]; C_word t1=av[0]; f_1785(t0,t1);} C_noret_decl(trf_5180) static void C_ccall trf_5180(C_word c,C_word *av) C_noret; static void C_ccall trf_5180(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5180(t0,t1);} C_noret_decl(trf_4488) static void C_ccall trf_4488(C_word c,C_word *av) C_noret; static void C_ccall trf_4488(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4488(t0,t1);} /* k3767 in k3752 in rewrite-make-vector in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in ... */ 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; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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(32,c,3)))){ C_save_and_reclaim((void *)f_3769,2,av);} a=C_alloc(32); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_i_pairp(t3); t5=(C_truep(t4)?C_i_cadr(((C_word*)t0)[2]):C_a_i_record4(&a,4,lf[35],lf[68],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST)); t6=t5; t7=C_a_i_list1(&a,1,((C_word*)t0)[3]); t8=t7; t9=C_a_i_list1(&a,1,C_SCHEME_TRUE); t10=t9; t11=C_a_i_plus(&a,2,((C_word*)t0)[4],C_fix(1)); t12=C_a_i_list2(&a,2,lf[69],t11); t13=t12; t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3822,a[2]=t13,a[3]=((C_word*)t0)[5],a[4]=t10,a[5]=t6,a[6]=((C_word*)t0)[6],a[7]=t8,tmp=(C_word)a,a+=8,tmp); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3824,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1051: list-tabulate */ t16=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t16; av2[1]=t14; av2[2]=((C_word*)t0)[4]; av2[3]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}} else{ t2=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3547 in k3544 in k3541 in k3538 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in ... */ static void C_ccall f_3549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3549,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3552,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:956: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3544 in k3541 in k3538 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3546,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3549,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:955: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3541 in k3538 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3543,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3546,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:954: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[253]; av2[3]=C_fix(17); av2[4]=C_fix(3); av2[5]=lf[254]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3538 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3540,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3543,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:953: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[255]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[256]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k5194 in k5178 in a5172 in k5247 in a5128 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_ccall f_5196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_5196,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[35],lf[36],lf[916],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3556 in k3553 in k3550 in k3547 in k3544 in k3541 in k3538 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3558,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3561,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:959: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3553 in k3550 in k3547 in k3544 in k3541 in k3538 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3555,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3558,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:958: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3550 in k3547 in k3544 in k3541 in k3538 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in ... */ 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(3,c,5)))){ C_save_and_reclaim((void *)f_3552,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3555,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:957: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[247]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[248]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in ... */ static void C_ccall f_3525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3525,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3528,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:920: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[272]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[273]; av2[6]=lf[274]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in ... */ static void C_ccall f_3528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3528,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3531,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:921: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[269]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[270]; av2[6]=lf[271]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in ... */ static void C_ccall f_3522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3522,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3525,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:919: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[275]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[276]; av2[6]=lf[277]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* a4235 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 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=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 *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,1)))){ C_save_and_reclaim((void *)f_4236,6,av);} a=C_alloc(22); 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=C_eqp(*((C_word*)lf[33]+1),lf[32]); t10=(C_truep(t9)?C_a_i_list1(&a,1,lf[100]):C_a_i_list1(&a,1,lf[101])); t11=t5; t12=C_a_i_record4(&a,4,lf[35],lf[36],t10,t11); t13=C_a_i_list2(&a,2,t4,t12); t14=t1; t15=t14;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],t8,t13); ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k3752 in rewrite-make-vector in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in ... */ 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 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,4)))){ C_save_and_reclaim((void *)f_3754,2,av);} a=C_alloc(7); t2=t1; t3=C_slot(((C_word*)t0)[2],C_fix(2)); t4=C_i_car(t3); t5=t4; if(C_truep(C_fixnump(t5))){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3769,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* c-platform.scm:1037: <= */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t6; av2[2]=C_fix(0); av2[3]=t5; av2[4]=C_fix(32); C_less_or_equal_p(5,av2);}} else{ t6=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_1661,2,av);} a=C_alloc(5); 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); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5292,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:273: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[425]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_1667,2,av);} a=C_alloc(5); 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); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5004,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:338: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[915]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_1664,2,av);} a=C_alloc(5); 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); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5129,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:311: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[428]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* op1 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_fcall f_1672(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_1672,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_1674,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);}} /* k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_1670,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1672,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1752,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_5002,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:378: op1 */ f_1672(t4,lf[909],lf[910],lf[911]);} /* f_1674 in op1 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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=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(22,c,2)))){ C_save_and_reclaim((void *)f_1674,6,av);} a=C_alloc(22); 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=C_eqp(lf[32],*((C_word*)lf[33]+1)); if(C_truep(t10)){ if(C_truep(*((C_word*)lf[34]+1))){ t11=((C_word*)t0)[2]; t12=C_a_i_list1(&a,1,t11); t13=t5; t14=C_a_i_record4(&a,4,lf[35],lf[36],t12,t13); t15=C_a_i_list2(&a,2,t4,t14); t16=t1; t17=t16;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t17; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],t9,t15); ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}} else{ t11=((C_word*)t0)[3]; t12=C_a_i_list1(&a,1,t11); t13=t5; t14=C_a_i_record4(&a,4,lf[35],lf[36],t12,t13); t15=C_a_i_list2(&a,2,t4,t14); t16=t1; t17=t16;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t17; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],t9,t15); ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}} else{ t11=C_a_i_list2(&a,2,((C_word*)t0)[4],C_fix(4)); t12=t11; t13=C_i_car(t5); t14=t13; t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1744,a[2]=t14,a[3]=t12,a[4]=t4,a[5]=t1,a[6]=t9,tmp=(C_word)a,a+=7,tmp); /* c-platform.scm:377: qnode */ t16=*((C_word*)lf[39]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t15; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* rewrite-make-vector in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 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=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_3734,6,av);} a=C_alloc(6); t6=C_i_length(t5); if(C_truep(C_i_pairp(t5))){ t7=t5; t8=C_u_i_car(t7); t9=C_slot(t8,C_fix(1)); t10=C_eqp(lf[41],t9); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3754,a[2]=t8,a[3]=t5,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:1034: gensym */ t12=*((C_word*)lf[60]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} else{ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3667 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_3732,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3734,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3869,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:1052: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[123]; av2[3]=C_fix(8); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k1742 */ static void C_ccall f_1744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,1)))){ C_save_and_reclaim((void *)f_1744,2,av);} a=C_alloc(22); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_record4(&a,4,lf[35],lf[38],((C_word*)t0)[3],t2); t4=C_a_i_list2(&a,2,((C_word*)t0)[4],t3); t5=((C_word*)t0)[5]; t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[6],t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3667 in k3664 in k3661 in k3658 in k3655 in k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in ... */ static void C_ccall f_3702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3702,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3705,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1014: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[143]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[144]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3667 in k3664 in k3661 in k3658 in k3655 in k3652 in k3649 in k3646 in k3643 in k3640 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3705,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3708,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1015: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[140]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[141]; av2[6]=lf[142]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3667 in k3664 in k3661 in k3658 in k3655 in k3652 in k3649 in k3646 in k3643 in ... */ static void C_ccall f_3708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3708,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3711,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1017: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[138]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[139]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2668 in k2665 in k2662 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k2632 in k2629 in k2626 in k2623 in k2620 in k2617 in k2614 in k2611 in k2608 in k2605 in ... */ static void C_ccall f_2670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2670,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2673,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:568: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2671 in k2668 in k2665 in k2662 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k2632 in k2629 in k2626 in k2623 in k2620 in k2617 in k2614 in k2611 in k2608 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_2673,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2676,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:570: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[803]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[805]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2674 in k2671 in k2668 in k2665 in k2662 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k2632 in k2629 in k2626 in k2623 in k2620 in k2617 in k2614 in k2611 in ... */ static void C_ccall f_2676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2676,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2679,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:571: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[803]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[804]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2677 in k2674 in k2671 in k2668 in k2665 in k2662 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k2632 in k2629 in k2626 in k2623 in k2620 in k2617 in k2614 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_2679,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2682,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:573: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[801]; av2[3]=C_fix(1); av2[4]=C_fix(2); av2[5]=lf[802]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4819 in k4782 in a4767 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_fcall f_4821(C_word t0,C_word t1){ C_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(9,0,2)))){ C_save_and_reclaim_args((void *)trf_4821,2,t0,t1);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4824,a[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_4824(t3,t1);} else{ t3=C_slot(((C_word*)t0)[5],C_fix(1)); t4=C_eqp(lf[41],t3); if(C_truep(t4)){ t5=C_slot(((C_word*)t0)[5],C_fix(2)); t6=C_i_car(t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4861,a[2]=t2,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:420: immediate? */ t9=*((C_word*)lf[293]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t5=t2; f_4824(t5,C_SCHEME_FALSE);}}} /* k4822 in k4819 in k4782 in a4767 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_fcall f_4824(C_word 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(19,0,1)))){ C_save_and_reclaim_args((void *)trf_4824,2,t0,t1);} a=C_alloc(19); if(C_truep(t1)){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=((C_word*)t0)[2]; t4=C_a_i_record4(&a,4,lf[35],lf[36],lf[902],t3); t5=C_a_i_list2(&a,2,((C_word*)t0)[3],t4); t6=((C_word*)t0)[4]; f_4790(t6,C_a_i_record4(&a,4,lf[35],lf[37],t2,t5));} else{ t2=((C_word*)t0)[4]; f_4790(t2,C_SCHEME_FALSE);}} /* k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3667 in k3664 in k3661 in k3658 in k3655 in k3652 in k3649 in k3646 in ... */ static void C_ccall f_3711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3711,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3714,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1018: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[136]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[137]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3667 in k3664 in k3661 in k3658 in k3655 in k3652 in k3649 in ... */ static void C_ccall f_3714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3714,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3717,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1019: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[134]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[135]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3667 in k3664 in k3661 in k3658 in k3655 in k3652 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3717,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3720,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1020: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[132]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[133]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3607 in k3604 in k3601 in k3598 in k3595 in k3592 in k3589 in k3586 in k3583 in k3580 in k3577 in k3574 in k3571 in k3568 in k3565 in k3562 in k3559 in k3556 in k3553 in k3550 in k3547 in k3544 in ... */ static void C_ccall f_3609(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3609,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3612,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:976: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[207]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[208]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3604 in k3601 in k3598 in k3595 in k3592 in k3589 in k3586 in k3583 in k3580 in k3577 in k3574 in k3571 in k3568 in k3565 in k3562 in k3559 in k3556 in k3553 in k3550 in k3547 in k3544 in k3541 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3606,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3609,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:975: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[209]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[210]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 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,4)))){ 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:1053: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[122]; av2[3]=C_fix(8); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3598 in k3595 in k3592 in k3589 in k3586 in k3583 in k3580 in k3577 in k3574 in k3571 in k3568 in k3565 in k3562 in k3559 in k3556 in k3553 in k3550 in k3547 in k3544 in k3541 in k3538 in k3535 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3600,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3603,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:973: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 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,7)))){ 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:1056: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[118]; av2[3]=C_fix(20); av2[4]=C_fix(2); av2[5]=lf[119]; av2[6]=C_fix(10); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 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,7)))){ 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:1055: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[120]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[121]; av2[6]=C_fix(10); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_3878,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3880,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4027,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:1078: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[55]; av2[3]=C_fix(8); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3601 in k3598 in k3595 in k3592 in k3589 in k3586 in k3583 in k3580 in k3577 in k3574 in k3571 in k3568 in k3565 in k3562 in k3559 in k3556 in k3553 in k3550 in k3547 in k3544 in k3541 in k3538 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3603,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3606,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:974: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[211]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[212]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k2632 in k2629 in k2626 in k2623 in k2620 in k2617 in k2614 in k2611 in k2608 in k2605 in k2602 in k2599 in k2596 in ... */ static void C_ccall f_2661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2661,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2664,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:565: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2662 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k2632 in k2629 in k2626 in k2623 in k2620 in k2617 in k2614 in k2611 in k2608 in k2605 in k2602 in k2599 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2664,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2667,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:566: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2665 in k2662 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k2632 in k2629 in k2626 in k2623 in k2620 in k2617 in k2614 in k2611 in k2608 in k2605 in k2602 in ... */ static void C_ccall f_2667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2667,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2670,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:567: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* a5291 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_ccall f_5292(C_word c,C_word *av){ C_word tmp; C_word t0=av[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 *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_5292,6,av);} a=C_alloc(19); if(C_truep(C_i_nullp(t5))){ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_i_cdr(t5); t7=C_i_nullp(t6); t8=(C_truep(t7)?C_eqp(*((C_word*)lf[33]+1),lf[32]):C_SCHEME_FALSE); if(C_truep(t8)){ t9=C_a_i_list1(&a,1,C_SCHEME_TRUE); if(C_truep(*((C_word*)lf[34]+1))){ t10=t5; t11=C_a_i_record4(&a,4,lf[35],lf[36],lf[920],t10); t12=C_a_i_list2(&a,2,t4,t11); t13=t1; t14=t13;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],t9,t12); ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t10=t5; t11=C_a_i_record4(&a,4,lf[35],lf[36],lf[921],t10); t12=C_a_i_list2(&a,2,t4,t11); t13=t1; t14=t13;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],t9,t12); ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t9=t5; t10=C_u_i_car(t9); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5399,a[2]=t10,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t12=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5401,tmp=(C_word)a,a+=2,tmp); t13=t5; t14=C_u_i_cdr(t13); /* c-platform.scm:293: remove */ t15=*((C_word*)lf[919]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t11; av2[2]=t12; av2[3]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}}}} /* a4285 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 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=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(18,c,4)))){ C_save_and_reclaim((void *)f_4286,6,av);} a=C_alloc(18); t6=C_i_length(t5); t7=C_eqp(C_fix(1),t6); if(C_truep(t7)){ t8=C_i_car(t5); t9=t8; t10=C_a_i_list1(&a,1,C_SCHEME_TRUE); t11=t10; t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4316,a[2]=t4,a[3]=t1,a[4]=t11,tmp=(C_word)a,a+=5,tmp); t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4319,a[2]=t12,a[3]=t9,a[4]=t4,a[5]=t1,a[6]=t11,tmp=(C_word)a,a+=7,tmp); t14=C_slot(t9,C_fix(1)); t15=C_eqp(lf[42],t14); if(C_truep(t15)){ t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4344,a[2]=t13,tmp=(C_word)a,a+=3,tmp); t17=C_slot(t9,C_fix(2)); t18=C_i_car(t17); /* c-platform.scm:1138: get */ t19=*((C_word*)lf[66]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t19; av2[1]=t16; av2[2]=t2; av2[3]=t18; av2[4]=lf[104]; ((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}} else{ t16=t13; f_4319(t16,C_SCHEME_FALSE);}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k3616 in k3613 in k3610 in k3607 in k3604 in k3601 in k3598 in k3595 in k3592 in k3589 in k3586 in k3583 in k3580 in k3577 in k3574 in k3571 in k3568 in k3565 in k3562 in k3559 in k3556 in k3553 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3618,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3621,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:979: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[201]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[202]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3613 in k3610 in k3607 in k3604 in k3601 in k3598 in k3595 in k3592 in k3589 in k3586 in k3583 in k3580 in k3577 in k3574 in k3571 in k3568 in k3565 in k3562 in k3559 in k3556 in k3553 in k3550 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3615,2,av);} a=C_alloc(3); 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); /* c-platform.scm:978: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[203]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[204]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3610 in k3607 in k3604 in k3601 in k3598 in k3595 in k3592 in k3589 in k3586 in k3583 in k3580 in k3577 in k3574 in k3571 in k3568 in k3565 in k3562 in k3559 in k3556 in k3553 in k3550 in k3547 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3612,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3615,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:977: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[205]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[206]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* rewrite-call/cc in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 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=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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3880,6,av);} a=C_alloc(6); t6=C_i_length(t5); t7=C_eqp(C_fix(1),t6); if(C_truep(t7)){ t8=C_i_car(t5); t9=t8; t10=C_slot(t9,C_fix(1)); t11=C_eqp(lf[42],t10); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3899,a[2]=t9,a[3]=t4,a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t13=C_slot(t9,C_fix(2)); t14=C_i_car(t13); /* c-platform.scm:1064: get */ t15=*((C_word*)lf[66]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t12; av2[2]=t2; av2[3]=t14; av2[4]=lf[67]; ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} else{ t12=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k2689 in k2686 in k2683 in k2680 in k2677 in k2674 in k2671 in k2668 in k2665 in k2662 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k2632 in k2629 in k2626 in ... */ static void C_ccall f_2691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2691,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2694,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:578: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[792]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[794]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2695 in k2692 in k2689 in k2686 in k2683 in k2680 in k2677 in k2674 in k2671 in k2668 in k2665 in k2662 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k2632 in ... */ 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(3,c,6)))){ C_save_and_reclaim((void *)f_2697,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2700,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:580: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2692 in k2689 in k2686 in k2683 in k2680 in k2677 in k2674 in k2671 in k2668 in k2665 in k2662 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k2632 in k2629 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2694,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2697,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:579: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[792]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[793]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3625 in k3622 in k3619 in k3616 in k3613 in k3610 in k3607 in k3604 in k3601 in k3598 in k3595 in k3592 in k3589 in k3586 in k3583 in k3580 in k3577 in k3574 in k3571 in k3568 in k3565 in k3562 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3627,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3630,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:984: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3619 in k3616 in k3613 in k3610 in k3607 in k3604 in k3601 in k3598 in k3595 in k3592 in k3589 in k3586 in k3583 in k3580 in k3577 in k3574 in k3571 in k3568 in k3565 in k3562 in k3559 in k3556 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3621,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3624,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:980: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[199]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[200]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4032 in k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 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,5)))){ 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:1122: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[114]; av2[3]=C_fix(3); av2[4]=lf[113]; av2[5]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4035 in k4032 in k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 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,5)))){ 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:1123: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[112]; av2[3]=C_fix(3); av2[4]=lf[113]; av2[5]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3622 in k3619 in k3616 in k3613 in k3610 in k3607 in k3604 in k3601 in k3598 in k3595 in k3592 in k3589 in k3586 in k3583 in k3580 in k3577 in k3574 in k3571 in k3568 in k3565 in k3562 in k3559 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3624,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3627,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:982: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[197]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[198]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2680 in k2677 in k2674 in k2671 in k2668 in k2665 in k2662 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k2632 in k2629 in k2626 in k2623 in k2620 in k2617 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_2682,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2685,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:574: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[799]; av2[3]=C_fix(1); av2[4]=C_fix(2); av2[5]=lf[800]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_1962,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1964,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2190,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:457: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[900]; av2[3]=C_fix(8); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2683 in k2680 in k2677 in k2674 in k2671 in k2668 in k2665 in k2662 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k2632 in k2629 in k2626 in k2623 in k2620 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_2685,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2688,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:575: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[797]; av2[3]=C_fix(1); av2[4]=C_fix(2); av2[5]=lf[798]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* rewrite-apply in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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=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_1964,6,av);} a=C_alloc(5); if(C_truep(C_i_pairp(t5))){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1974,a[2]=t5,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:435: last */ t7=*((C_word*)lf[54]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k2686 in k2683 in k2680 in k2677 in k2674 in k2671 in k2668 in k2665 in k2662 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k2632 in k2629 in k2626 in k2623 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_2688,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2691,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:576: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[795]; av2[3]=C_fix(1); av2[4]=C_fix(2); av2[5]=lf[796]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k2794 in k2791 in k2788 in k2785 in k2782 in k2779 in k2776 in k2773 in k2770 in k2767 in k2764 in k2761 in k2758 in k2755 in k2752 in k2749 in k2746 in k2743 in k2740 in k2737 in k2734 in k2731 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2796,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2799,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:613: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[728]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[729]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2797 in k2794 in k2791 in k2788 in k2785 in k2782 in k2779 in k2776 in k2773 in k2770 in k2767 in k2764 in k2761 in k2758 in k2755 in k2752 in k2749 in k2746 in k2743 in k2740 in k2737 in k2734 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2799,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2802,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:614: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_4030,2,av);} a=C_alloc(5); 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); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4373,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:1108: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[116]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2788 in k2785 in k2782 in k2779 in k2776 in k2773 in k2770 in k2767 in k2764 in k2761 in k2758 in k2755 in k2752 in k2749 in k2746 in k2743 in k2740 in k2737 in k2734 in k2731 in k2728 in k2725 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2790,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2793,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:611: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[730]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[732]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2791 in k2788 in k2785 in k2782 in k2779 in k2776 in k2773 in k2770 in k2767 in k2764 in k2761 in k2758 in k2755 in k2752 in k2749 in k2746 in k2743 in k2740 in k2737 in k2734 in k2731 in k2728 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2793,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2796,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:612: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[730]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[731]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4892 in k4782 in a4767 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4894,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_4821(t3,t2);} else{ t2=((C_word*)t0)[2]; f_4821(t2,C_i_symbolp(((C_word*)t0)[3]));}} /* k3637 in k3634 in k3631 in k3628 in k3625 in k3622 in k3619 in k3616 in k3613 in k3610 in k3607 in k3604 in k3601 in k3598 in k3595 in k3592 in k3589 in k3586 in k3583 in k3580 in k3577 in k3574 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3639,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3642,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:989: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[187]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[188]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3634 in k3631 in k3628 in k3625 in k3622 in k3619 in k3616 in k3613 in k3610 in k3607 in k3604 in k3601 in k3598 in k3595 in k3592 in k3589 in k3586 in k3583 in k3580 in k3577 in k3574 in k3571 in ... */ static void C_ccall f_3636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3636,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3639,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:987: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[189]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[190]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3631 in k3628 in k3625 in k3622 in k3619 in k3616 in k3613 in k3610 in k3607 in k3604 in k3601 in k3598 in k3595 in k3592 in k3589 in k3586 in k3583 in k3580 in k3577 in k3574 in k3571 in k3568 in ... */ static void C_ccall f_3633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3633,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3636,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:986: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[191]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[192]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3628 in k3625 in k3622 in k3619 in k3616 in k3613 in k3610 in k3607 in k3604 in k3601 in k3598 in k3595 in k3592 in k3589 in k3586 in k3583 in k3580 in k3577 in k3574 in k3571 in k3568 in k3565 in ... */ static void C_ccall f_3630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3630,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3633,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:985: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[193]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[194]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k1972 in rewrite-apply in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_ccall f_1974(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word 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,c,3)))){ C_save_and_reclaim((void *)f_1974,2,av);} a=C_alloc(16); t2=t1; t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=C_slot(t2,C_fix(1)); t6=C_eqp(lf[41],t5); if(C_truep(t6)){ t7=C_a_i_list1(&a,1,C_SCHEME_FALSE); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1997,a[2]=((C_word*)t0)[3],a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=((C_word*)t0)[2]; t11=C_u_i_car(t10); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2003,a[2]=t9,a[3]=t11,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2067,a[2]=t2,a[3]=t12,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:442: butlast */ t14=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} else{ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2070,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); t8=C_slot(t4,C_fix(1)); t9=C_eqp(lf[42],t8); if(C_truep(t9)){ t10=C_i_length(((C_word*)t0)[2]); t11=C_eqp(C_fix(2),t10); if(C_truep(t11)){ t12=C_slot(t4,C_fix(2)); t13=C_i_car(t12); if(C_truep((C_truep(C_eqp(t13,lf[49]))?C_SCHEME_TRUE:(C_truep(C_eqp(t13,lf[50]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2126,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=t7,tmp=(C_word)a,a+=5,tmp); /* tweaks.scm:51: ##sys#get */ t15=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t15; av2[1]=t14; av2[2]=t13; av2[3]=lf[53]; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} else{ t14=t7; f_2070(t14,C_SCHEME_FALSE);}} else{ t12=t7; f_2070(t12,C_SCHEME_FALSE);}} else{ t10=t7; f_2070(t10,C_SCHEME_FALSE);}}} /* k3007 in k3004 in k3001 in k2998 in k2995 in k2992 in k2989 in k2986 in k2983 in k2980 in k2977 in k2974 in k2971 in k2968 in k2965 in k2962 in k2959 in k2956 in k2953 in k2950 in k2947 in k2944 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_3009,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3012,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:689: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[587]; av2[3]=C_fix(22); av2[4]=C_fix(1); av2[5]=lf[588]; av2[6]=C_SCHEME_TRUE; av2[7]=*((C_word*)lf[9]+1); av2[8]=lf[589]; ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k3004 in k3001 in k2998 in k2995 in k2992 in k2989 in k2986 in k2983 in k2980 in k2977 in k2974 in k2971 in k2968 in k2965 in k2962 in k2959 in k2956 in k2953 in k2950 in k2947 in k2944 in k2941 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_3006,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3009,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:687: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[590]; av2[3]=C_fix(21); av2[4]=C_fix(0); av2[5]=lf[591]; av2[6]=lf[592]; av2[7]=lf[593]; av2[8]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k2701 in k2698 in k2695 in k2692 in k2689 in k2686 in k2683 in k2680 in k2677 in k2674 in k2671 in k2668 in k2665 in k2662 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in ... */ static void C_ccall f_2703(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2703,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2706,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:582: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2698 in k2695 in k2692 in k2689 in k2686 in k2683 in k2680 in k2677 in k2674 in k2671 in k2668 in k2665 in k2662 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2700,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2703,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:581: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3001 in k2998 in k2995 in k2992 in k2989 in k2986 in k2983 in k2980 in k2977 in k2974 in k2971 in k2968 in k2965 in k2962 in k2959 in k2956 in k2953 in k2950 in k2947 in k2944 in k2941 in k2938 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_3003,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3006,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:686: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[594]; av2[3]=C_fix(21); av2[4]=C_fix(-1); av2[5]=lf[595]; av2[6]=lf[596]; av2[7]=lf[597]; av2[8]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k2704 in k2701 in k2698 in k2695 in k2692 in k2689 in k2686 in k2683 in k2680 in k2677 in k2674 in k2671 in k2668 in k2665 in k2662 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in ... */ static void C_ccall f_2706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2706,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2709,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:583: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2998 in k2995 in k2992 in k2989 in k2986 in k2983 in k2980 in k2977 in k2974 in k2971 in k2968 in k2965 in k2962 in k2959 in k2956 in k2953 in k2950 in k2947 in k2944 in k2941 in k2938 in k2935 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_3000,2,av);} a=C_alloc(3); 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); /* c-platform.scm:685: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[598]; av2[3]=C_fix(21); av2[4]=C_fix(0); av2[5]=lf[599]; av2[6]=lf[600]; av2[7]=lf[601]; av2[8]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k2707 in k2704 in k2701 in k2698 in k2695 in k2692 in k2689 in k2686 in k2683 in k2680 in k2677 in k2674 in k2671 in k2668 in k2665 in k2662 in k2659 in k2656 in k2653 in k2650 in k2647 in k2644 in ... */ static void C_ccall f_2709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2709,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2712,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:584: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4859 in k4819 in k4782 in a4767 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4861,2,av);} t2=((C_word*)t0)[2]; f_4824(t2,(C_truep(t1)?t1:C_i_symbolp(((C_word*)t0)[3])));} /* k2875 in k2872 in k2869 in k2866 in k2863 in k2860 in k2857 in k2854 in k2851 in k2848 in k2845 in k2842 in k2839 in k2836 in k2833 in k2830 in k2827 in k2824 in k2821 in k2818 in k2815 in k2812 in ... */ static void C_ccall f_2877(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2877,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2880,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:640: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2869 in k2866 in k2863 in k2860 in k2857 in k2854 in k2851 in k2848 in k2845 in k2842 in k2839 in k2836 in k2833 in k2830 in k2827 in k2824 in k2821 in k2818 in k2815 in k2812 in k2809 in k2806 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2871,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2874,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:638: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 in k3472 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(5,c,6)))){ C_save_and_reclaim((void *)f_3537,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3540,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4458,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:925: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[262]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in ... */ 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(3,c,6)))){ C_save_and_reclaim((void *)f_3531,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3534,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:922: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[266]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[267]; av2[6]=lf[268]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2872 in k2869 in k2866 in k2863 in k2860 in k2857 in k2854 in k2851 in k2848 in k2845 in k2842 in k2839 in k2836 in k2833 in k2830 in k2827 in k2824 in k2821 in k2818 in k2815 in k2812 in k2809 in ... */ static void C_ccall f_2874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2874,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2877,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:639: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3016 in k3013 in k3010 in k3007 in k3004 in k3001 in k2998 in k2995 in k2992 in k2989 in k2986 in k2983 in k2980 in k2977 in k2974 in k2971 in k2968 in k2965 in k2962 in k2959 in k2956 in k2953 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3018,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3021,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:693: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[581]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[582]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 in k3472 in k3469 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,6)))){ 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:923: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[263]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[264]; av2[6]=lf[265]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3013 in k3010 in k3007 in k3004 in k3001 in k2998 in k2995 in k2992 in k2989 in k2986 in k2983 in k2980 in k2977 in k2974 in k2971 in k2968 in k2965 in k2962 in k2959 in k2956 in k2953 in k2950 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3015,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3018,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:692: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[583]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[584]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3010 in k3007 in k3004 in k3001 in k2998 in k2995 in k2992 in k2989 in k2986 in k2983 in k2980 in k2977 in k2974 in k2971 in k2968 in k2965 in k2962 in k2959 in k2956 in k2953 in k2950 in k2947 in ... */ static void C_ccall f_3012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3012,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3015,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:691: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[585]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[586]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_4027,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4030,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1079: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[117]; av2[3]=C_fix(8); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2863 in k2860 in k2857 in k2854 in k2851 in k2848 in k2845 in k2842 in k2839 in k2836 in k2833 in k2830 in k2827 in k2824 in k2821 in k2818 in k2815 in k2812 in k2809 in k2806 in k2803 in k2800 in ... */ static void C_ccall f_2865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2865,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2868,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:636: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[690]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[691]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in k3442 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3507,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3510,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:914: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[288]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[289]; av2[6]=lf[290]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2866 in k2863 in k2860 in k2857 in k2854 in k2851 in k2848 in k2845 in k2842 in k2839 in k2836 in k2833 in k2830 in k2827 in k2824 in k2821 in k2818 in k2815 in k2812 in k2809 in k2806 in k2803 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2868,2,av);} a=C_alloc(3); 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); /* c-platform.scm:637: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2860 in k2857 in k2854 in k2851 in k2848 in k2845 in k2842 in k2839 in k2836 in k2833 in k2830 in k2827 in k2824 in k2821 in k2818 in k2815 in k2812 in k2809 in k2806 in k2803 in k2800 in k2797 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2862,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2865,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:635: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in k3442 in k3439 in k3436 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(3,c,7)))){ C_save_and_reclaim((void *)f_3501,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3504,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:894: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[295]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[296]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3025 in k3022 in k3019 in k3016 in k3013 in k3010 in k3007 in k3004 in k3001 in k2998 in k2995 in k2992 in k2989 in k2986 in k2983 in k2980 in k2977 in k2974 in k2971 in k2968 in k2965 in k2962 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3027,2,av);} a=C_alloc(3); 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); /* c-platform.scm:696: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[575]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[576]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in k3442 in k3439 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_3504,2,av);} a=C_alloc(5); 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); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4615,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:896: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[294]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k1995 in k1972 in rewrite-apply in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_ccall f_1997(C_word c,C_word *av){ C_word tmp; C_word t0=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_1997,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3019 in k3016 in k3013 in k3010 in k3007 in k3004 in k3001 in k2998 in k2995 in k2992 in k2989 in k2986 in k2983 in k2980 in k2977 in k2974 in k2971 in k2968 in k2965 in k2962 in k2959 in k2956 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3021,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3024,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:694: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[579]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[580]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3022 in k3019 in k3016 in k3013 in k3010 in k3007 in k3004 in k3001 in k2998 in k2995 in k2992 in k2989 in k2986 in k2983 in k2980 in k2977 in k2974 in k2971 in k2968 in k2965 in k2962 in k2959 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3024,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3027,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:695: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[577]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[578]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,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 k4028 in k4025 in k3876 in k3873 in k3870 in k3867 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,7)))){ 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:1164: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[82]; av2[3]=C_fix(7); av2[4]=C_fix(2); av2[5]=lf[83]; av2[6]=C_SCHEME_FALSE; av2[7]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2896 in k2893 in k2890 in k2887 in k2884 in k2881 in k2878 in k2875 in k2872 in k2869 in k2866 in k2863 in k2860 in k2857 in k2854 in k2851 in k2848 in k2845 in k2842 in k2839 in k2836 in k2833 in ... */ static void C_ccall f_2898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2898,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2901,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:647: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3519,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3522,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:918: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[278]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[279]; av2[6]=lf[280]; ((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 k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 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:1161: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[86]; av2[3]=C_fix(23); av2[4]=C_fix(2); av2[5]=lf[87]; av2[6]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3516,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3519,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:917: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[281]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[282]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,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 k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 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:1162: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[84]; av2[3]=C_fix(23); av2[4]=C_fix(2); av2[5]=lf[85]; av2[6]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3510,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3513,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:915: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[285]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[286]; av2[6]=lf[287]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2890 in k2887 in k2884 in k2881 in k2878 in k2875 in k2872 in k2869 in k2866 in k2863 in k2860 in k2857 in k2854 in k2851 in k2848 in k2845 in k2842 in k2839 in k2836 in k2833 in k2830 in k2827 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2892,2,av);} a=C_alloc(3); 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); /* c-platform.scm:645: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3034 in k3031 in k3028 in k3025 in k3022 in k3019 in k3016 in k3013 in k3010 in k3007 in k3004 in k3001 in k2998 in k2995 in k2992 in k2989 in k2986 in k2983 in k2980 in k2977 in k2974 in k2971 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3036,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3039,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:700: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[569]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[570]; av2[6]=C_SCHEME_TRUE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2893 in k2890 in k2887 in k2884 in k2881 in k2878 in k2875 in k2872 in k2869 in k2866 in k2863 in k2860 in k2857 in k2854 in k2851 in k2848 in k2845 in k2842 in k2839 in k2836 in k2833 in k2830 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2895,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2898,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:646: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3037 in k3034 in k3031 in k3028 in k3025 in k3022 in k3019 in k3016 in k3013 in k3010 in k3007 in k3004 in k3001 in k2998 in k2995 in k2992 in k2989 in k2986 in k2983 in k2980 in k2977 in k2974 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3039,2,av);} a=C_alloc(3); 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); /* c-platform.scm:701: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[567]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[568]; av2[6]=C_SCHEME_TRUE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in ... */ static void C_ccall f_3513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3513,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3516,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:916: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[283]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[284]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,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 k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 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,8)))){ 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:1160: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[88]; av2[3]=C_fix(23); av2[4]=C_fix(2); av2[5]=lf[89]; av2[6]=C_fix(0); av2[7]=C_fix(0); av2[8]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k3028 in k3025 in k3022 in k3019 in k3016 in k3013 in k3010 in k3007 in k3004 in k3001 in k2998 in k2995 in k2992 in k2989 in k2986 in k2983 in k2980 in k2977 in k2974 in k2971 in k2968 in k2965 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3030,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3033,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:698: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[573]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[574]; av2[6]=C_SCHEME_TRUE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3031 in k3028 in k3025 in k3022 in k3019 in k3016 in k3013 in k3010 in k3007 in k3004 in k3001 in k2998 in k2995 in k2992 in k2989 in k2986 in k2983 in k2980 in k2977 in k2974 in k2971 in k2968 in ... */ 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(3,c,7)))){ C_save_and_reclaim((void *)f_3033,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3036,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:699: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[571]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[572]; av2[6]=C_SCHEME_TRUE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 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,5)))){ 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:1127: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[106]; av2[3]=C_fix(3); av2[4]=lf[107]; av2[5]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k2887 in k2884 in k2881 in k2878 in k2875 in k2872 in k2869 in k2866 in k2863 in k2860 in k2857 in k2854 in k2851 in k2848 in k2845 in k2842 in k2839 in k2836 in k2833 in k2830 in k2827 in k2824 in ... */ static void C_ccall f_2889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2889,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2892,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:644: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2884 in k2881 in k2878 in k2875 in k2872 in k2869 in k2866 in k2863 in k2860 in k2857 in k2854 in k2851 in k2848 in k2845 in k2842 in k2839 in k2836 in k2833 in k2830 in k2827 in k2824 in k2821 in ... */ static void C_ccall f_2886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2886,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2889,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:643: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4044 in k4041 in k4038 in k4035 in k4032 in k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 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,5)))){ 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:1126: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[108]; av2[3]=C_fix(3); av2[4]=lf[97]; av2[5]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4041 in k4038 in k4035 in k4032 in k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 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,5)))){ 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:1125: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[109]; av2[3]=C_fix(3); av2[4]=lf[94]; av2[5]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k2878 in k2875 in k2872 in k2869 in k2866 in k2863 in k2860 in k2857 in k2854 in k2851 in k2848 in k2845 in k2842 in k2839 in k2836 in k2833 in k2830 in k2827 in k2824 in k2821 in k2818 in k2815 in ... */ static void C_ccall f_2880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2880,2,av);} a=C_alloc(3); 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); /* c-platform.scm:641: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2881 in k2878 in k2875 in k2872 in k2869 in k2866 in k2863 in k2860 in k2857 in k2854 in k2851 in k2848 in k2845 in k2842 in k2839 in k2836 in k2833 in k2830 in k2827 in k2824 in k2821 in k2818 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2883,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2886,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:642: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in k3028 in k3025 in k3022 in k3019 in k3016 in k3013 in k3010 in k3007 in k3004 in k3001 in k2998 in k2995 in k2992 in k2989 in k2986 in k2983 in ... */ static void C_ccall f_3048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3048,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3051,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:704: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[561]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[562]; av2[6]=C_SCHEME_TRUE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2746 in k2743 in k2740 in k2737 in k2734 in k2731 in k2728 in k2725 in k2722 in k2719 in k2716 in k2713 in k2710 in k2707 in k2704 in k2701 in k2698 in k2695 in k2692 in k2689 in k2686 in k2683 in ... */ static void C_ccall f_2748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2748,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2751,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:597: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4038 in k4035 in k4032 in k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 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,5)))){ 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:1124: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[110]; av2[3]=C_fix(3); av2[4]=lf[111]; av2[5]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3040 in k3037 in k3034 in k3031 in k3028 in k3025 in k3022 in k3019 in k3016 in k3013 in k3010 in k3007 in k3004 in k3001 in k2998 in k2995 in k2992 in k2989 in k2986 in k2983 in k2980 in k2977 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3042,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3045,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:702: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[565]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[566]; av2[6]=C_SCHEME_TRUE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3043 in k3040 in k3037 in k3034 in k3031 in k3028 in k3025 in k3022 in k3019 in k3016 in k3013 in k3010 in k3007 in k3004 in k3001 in k2998 in k2995 in k2992 in k2989 in k2986 in k2983 in k2980 in ... */ static void C_ccall f_3045(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3045,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3048,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:703: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[563]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[564]; av2[6]=C_SCHEME_TRUE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2743 in k2740 in k2737 in k2734 in k2731 in k2728 in k2725 in k2722 in k2719 in k2716 in k2713 in k2710 in k2707 in k2704 in k2701 in k2698 in k2695 in k2692 in k2689 in k2686 in k2683 in k2680 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2745,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2748,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:596: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2740 in k2737 in k2734 in k2731 in k2728 in k2725 in k2722 in k2719 in k2716 in k2713 in k2710 in k2707 in k2704 in k2701 in k2698 in k2695 in k2692 in k2689 in k2686 in k2683 in k2680 in k2677 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2742,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2745,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:595: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2124 in k1972 in rewrite-apply in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,1)))){ C_save_and_reclaim((void *)f_2126,2,av);} a=C_alloc(22); if(C_truep(t1)){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=C_a_i_record4(&a,4,lf[35],lf[47],lf[51],C_SCHEME_END_OF_LIST); t4=C_i_cadr(((C_word*)t0)[2]); t5=C_a_i_list3(&a,3,t3,((C_word*)t0)[3],t4); t6=((C_word*)t0)[4]; f_2070(t6,C_a_i_record4(&a,4,lf[35],lf[37],t2,t5));} else{ t2=((C_word*)t0)[4]; f_2070(t2,C_SCHEME_FALSE);}} /* k2836 in k2833 in k2830 in k2827 in k2824 in k2821 in k2818 in k2815 in k2812 in k2809 in k2806 in k2803 in k2800 in k2797 in k2794 in k2791 in k2788 in k2785 in k2782 in k2779 in k2776 in k2773 in ... */ static void C_ccall f_2838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2838,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2841,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:627: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[706]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[707]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2833 in k2830 in k2827 in k2824 in k2821 in k2818 in k2815 in k2812 in k2809 in k2806 in k2803 in k2800 in k2797 in k2794 in k2791 in k2788 in k2785 in k2782 in k2779 in k2776 in k2773 in k2770 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2835,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2838,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:626: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[706]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[708]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2830 in k2827 in k2824 in k2821 in k2818 in k2815 in k2812 in k2809 in k2806 in k2803 in k2800 in k2797 in k2794 in k2791 in k2788 in k2785 in k2782 in k2779 in k2776 in k2773 in k2770 in k2767 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2832,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2835,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:625: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[709]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[710]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in k3028 in k3025 in k3022 in k3019 in k3016 in k3013 in k3010 in k3007 in k3004 in k3001 in k2998 in k2995 in k2992 in k2989 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3054,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3057,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:706: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[558]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[559]; av2[6]=C_SCHEME_TRUE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in k3028 in k3025 in k3022 in k3019 in k3016 in k3013 in k3010 in k3007 in k3004 in k3001 in k2998 in k2995 in k2992 in k2989 in k2986 in ... */ static void C_ccall f_3051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3051,2,av);} a=C_alloc(3); 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); /* c-platform.scm:705: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[556]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[560]; av2[6]=C_SCHEME_TRUE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k1653 in k1631 in k1610 in k1607 in k1604 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ 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-platform.scm:241: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[431]; av2[3]=C_fix(19); av2[4]=C_fix(0); av2[5]=lf[926]; av2[6]=lf[927]; av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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,6)))){ C_save_and_reclaim((void *)f_1658,2,av);} a=C_alloc(5); 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); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5447,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:243: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[433]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2737 in k2734 in k2731 in k2728 in k2725 in k2722 in k2719 in k2716 in k2713 in k2710 in k2707 in k2704 in k2701 in k2698 in k2695 in k2692 in k2689 in k2686 in k2683 in k2680 in k2677 in k2674 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2739,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2742,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:594: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2374 in rewrite-c-w-v in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in ... */ 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 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_2376,2,av);} a=C_alloc(7); t2=t1; if(C_truep(t2)){ t3=C_slot(t2,C_fix(1)); t4=C_eqp(lf[57],t3); if(C_truep(t4)){ t5=C_slot(t2,C_fix(2)); t6=C_i_caddr(t5); if(C_truep(C_i_listp(t6))){ t7=C_i_length(t6); t8=C_eqp(C_fix(2),t7); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2403,a[2]=((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:513: gensym */ t10=*((C_word*)lf[60]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t7=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t5=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ 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=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in k3028 in k3025 in k3022 in k3019 in k3016 in k3013 in k3010 in k3007 in k3004 in k3001 in k2998 in k2995 in k2992 in ... */ static void C_ccall f_3057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3057,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3060,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:707: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[556]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[557]; av2[6]=C_SCHEME_TRUE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2734 in k2731 in k2728 in k2725 in k2722 in k2719 in k2716 in k2713 in k2710 in k2707 in k2704 in k2701 in k2698 in k2695 in k2692 in k2689 in k2686 in k2683 in k2680 in k2677 in k2674 in k2671 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2736,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2739,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:593: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2731 in k2728 in k2725 in k2722 in k2719 in k2716 in k2713 in k2710 in k2707 in k2704 in k2701 in k2698 in k2695 in k2692 in k2689 in k2686 in k2683 in k2680 in k2677 in k2674 in k2671 in k2668 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2733,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2736,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:592: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2728 in k2725 in k2722 in k2719 in k2716 in k2713 in k2710 in k2707 in k2704 in k2701 in k2698 in k2695 in k2692 in k2689 in k2686 in k2683 in k2680 in k2677 in k2674 in k2671 in k2668 in k2665 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2730,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2733,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:591: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2482 in k2486 in k2407 in k2404 in k2401 in k2374 in rewrite-c-w-v in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in ... */ static void C_ccall f_2484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; 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,2)))){ C_save_and_reclaim((void *)f_2484,2,av);} a=C_alloc(32); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[4],t2); t4=C_a_i_list1(&a,1,t3); t5=C_a_i_record4(&a,4,lf[35],lf[57],((C_word*)t0)[5],t4); t6=t5; t7=C_a_i_list1(&a,1,C_SCHEME_TRUE); t8=t7; t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2455,a[2]=((C_word*)t0)[6],a[3]=t8,a[4]=t6,a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); /* c-platform.scm:526: varnode */ t10=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k2486 in k2407 in k2404 in k2401 in k2374 in rewrite-c-w-v in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in ... */ static void C_ccall f_2488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; 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,2)))){ C_save_and_reclaim((void *)f_2488,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=C_a_i_list1(&a,1,C_SCHEME_TRUE); t6=t5; t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2484,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],tmp=(C_word)a,a+=10,tmp); /* c-platform.scm:523: varnode */ t8=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k1631 in k1610 in k1607 in k1604 */ static void C_ccall f_1633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word 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_1633,2,av);} a=C_alloc(8); t2=C_mutate2((C_word*)lf[31]+1 /* (set! ##compiler#foldable-bindings ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1655,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_5632,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_5632(t7,t3,lf[930]);} /* k4065 in k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 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,8)))){ 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:1159: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[90]; av2[3]=C_fix(23); av2[4]=C_fix(2); av2[5]=lf[91]; av2[6]=C_fix(0); av2[7]=C_fix(0); av2[8]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 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:1158: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[92]; av2[3]=C_fix(23); av2[4]=C_fix(1); av2[5]=lf[93]; av2[6]=lf[94]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_1959,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1962,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4768,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:402: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[903]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_1956,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1959,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:400: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[795]; av2[3]=C_fix(8); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3064 in k3061 in k3058 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in k3028 in k3025 in k3022 in k3019 in k3016 in k3013 in k3010 in k3007 in k3004 in k3001 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3066,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3069,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:711: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[552]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[553]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3061 in k3058 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in k3028 in k3025 in k3022 in k3019 in k3016 in k3013 in k3010 in k3007 in k3004 in k3001 in k2998 in ... */ static void C_ccall f_3063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3063,2,av);} a=C_alloc(3); 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); /* c-platform.scm:710: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[552]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[554]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3058 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in k3028 in k3025 in k3022 in k3019 in k3016 in k3013 in k3010 in k3007 in k3004 in k3001 in k2998 in k2995 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3060,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3063,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:709: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[552]; av2[3]=C_fix(5); av2[4]=lf[555]; av2[5]=C_fix(0); av2[6]=lf[32]; ((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 k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 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:1157: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[95]; av2[3]=C_fix(23); av2[4]=C_fix(1); av2[5]=lf[96]; av2[6]=lf[97]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3067 in k3064 in k3061 in k3058 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in k3028 in k3025 in k3022 in k3019 in k3016 in k3013 in k3010 in k3007 in k3004 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3069,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3072,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:712: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[547]; av2[3]=C_fix(5); av2[4]=lf[551]; av2[5]=C_fix(0); av2[6]=lf[32]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2857 in k2854 in k2851 in k2848 in k2845 in k2842 in k2839 in k2836 in k2833 in k2830 in k2827 in k2824 in k2821 in k2818 in k2815 in k2812 in k2809 in k2806 in k2803 in k2800 in k2797 in k2794 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2859,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2862,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:634: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[694]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[695]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2854 in k2851 in k2848 in k2845 in k2842 in k2839 in k2836 in k2833 in k2830 in k2827 in k2824 in k2821 in k2818 in k2815 in k2812 in k2809 in k2806 in k2803 in k2800 in k2797 in k2794 in k2791 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2856,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2859,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:633: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2851 in k2848 in k2845 in k2842 in k2839 in k2836 in k2833 in k2830 in k2827 in k2824 in k2821 in k2818 in k2815 in k2812 in k2809 in k2806 in k2803 in k2800 in k2797 in k2794 in k2791 in k2788 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2853,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2856,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:632: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2848 in k2845 in k2842 in k2839 in k2836 in k2833 in k2830 in k2827 in k2824 in k2821 in k2818 in k2815 in k2812 in k2809 in k2806 in k2803 in k2800 in k2797 in k2794 in k2791 in k2788 in k2785 in ... */ static void C_ccall f_2850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2850,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2853,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:631: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[700]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[701]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3073 in k3070 in k3067 in k3064 in k3061 in k3058 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in k3028 in k3025 in k3022 in k3019 in k3016 in k3013 in k3010 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3075,2,av);} a=C_alloc(3); 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); /* c-platform.scm:714: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[547]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[549]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3070 in k3067 in k3064 in k3061 in k3058 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in k3028 in k3025 in k3022 in k3019 in k3016 in k3013 in k3010 in k3007 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3072,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3075,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:713: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[547]; av2[3]=C_fix(5); av2[4]=lf[550]; av2[5]=C_fix(0); av2[6]=lf[387]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3076 in k3073 in k3070 in k3067 in k3064 in k3061 in k3058 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in k3028 in k3025 in k3022 in k3019 in k3016 in k3013 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3078,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3081,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:715: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[547]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[548]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2845 in k2842 in k2839 in k2836 in k2833 in k2830 in k2827 in k2824 in k2821 in k2818 in k2815 in k2812 in k2809 in k2806 in k2803 in k2800 in k2797 in k2794 in k2791 in k2788 in k2785 in k2782 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2847,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2850,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:630: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[700]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[702]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3820 in k3767 in k3752 in rewrite-make-vector in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in ... */ 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 t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,1)))){ C_save_and_reclaim((void *)f_3822,2,av);} a=C_alloc(27); t2=C_a_i_record4(&a,4,lf[35],lf[38],((C_word*)t0)[2],t1); t3=C_a_i_list2(&a,2,((C_word*)t0)[3],t2); t4=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[4],t3); t5=C_a_i_list2(&a,2,((C_word*)t0)[5],t4); t6=((C_word*)t0)[6]; t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[35],lf[58],((C_word*)t0)[7],t5); ((C_proc)(void*)(*((C_word*)t7+1)))(2,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 k4028 in k4025 in k3876 in k3873 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_4085,2,av);} a=C_alloc(5); 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); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4168,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:1167: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[79]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,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 k4028 in k4025 in k3876 in k3873 in k3870 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,7)))){ 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:1165: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[80]; av2[3]=C_fix(7); av2[4]=C_fix(2); av2[5]=lf[81]; av2[6]=C_SCHEME_FALSE; av2[7]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* a3823 in k3767 in k3752 in rewrite-make-vector in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 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=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_3824,3,av);} /* c-platform.scm:1051: varnode */ t3=*((C_word*)lf[59]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2842 in k2839 in k2836 in k2833 in k2830 in k2827 in k2824 in k2821 in k2818 in k2815 in k2812 in k2809 in k2806 in k2803 in k2800 in k2797 in k2794 in k2791 in k2788 in k2785 in k2782 in k2779 in ... */ static void C_ccall f_2844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2844,2,av);} a=C_alloc(3); 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); /* c-platform.scm:629: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[703]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[704]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2839 in k2836 in k2833 in k2830 in k2827 in k2824 in k2821 in k2818 in k2815 in k2812 in k2809 in k2806 in k2803 in k2800 in k2797 in k2794 in k2791 in k2788 in k2785 in k2782 in k2779 in k2776 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2841,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2844,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:628: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[703]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[705]; 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 k4028 in k4025 in k3876 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_4088,2,av);} a=C_alloc(5); 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); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4093,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:1183: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[76]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3082 in k3079 in k3076 in k3073 in k3070 in k3067 in k3064 in k3061 in k3058 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in k3028 in k3025 in k3022 in k3019 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3084,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3087,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:717: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[542]; av2[3]=C_fix(5); av2[4]=lf[545]; av2[5]=C_fix(0); av2[6]=lf[387]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3079 in k3076 in k3073 in k3070 in k3067 in k3064 in k3061 in k3058 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in k3028 in k3025 in k3022 in k3019 in k3016 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3081,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3084,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:716: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[542]; av2[3]=C_fix(5); av2[4]=lf[546]; av2[5]=C_fix(0); av2[6]=lf[32]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2785 in k2782 in k2779 in k2776 in k2773 in k2770 in k2767 in k2764 in k2761 in k2758 in k2755 in k2752 in k2749 in k2746 in k2743 in k2740 in k2737 in k2734 in k2731 in k2728 in k2725 in k2722 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2787,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2790,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:610: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[730]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[733]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5534 in a5528 in k5449 in a5446 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_fcall f_5536(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_5536,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5552,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:268: qnode */ t3=*((C_word*)lf[39]+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]); t3=((C_word*)t0)[3]; t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[35],lf[36],lf[925],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3085 in k3082 in k3079 in k3076 in k3073 in k3070 in k3067 in k3064 in k3061 in k3058 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in k3028 in k3025 in k3022 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3087,2,av);} a=C_alloc(3); 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); /* c-platform.scm:718: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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[544]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2779 in k2776 in k2773 in k2770 in k2767 in k2764 in k2761 in k2758 in k2755 in k2752 in k2749 in k2746 in k2743 in k2740 in k2737 in k2734 in k2731 in k2728 in k2725 in k2722 in k2719 in k2716 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2781,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2784,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:608: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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[736]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2782 in k2779 in k2776 in k2773 in k2770 in k2767 in k2764 in k2761 in k2758 in k2755 in k2752 in k2749 in k2746 in k2743 in k2740 in k2737 in k2734 in k2731 in k2728 in k2725 in k2722 in k2719 in ... */ static void C_ccall f_2784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2784,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2787,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:609: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_FALSE; ((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 k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 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:1156: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[98]; av2[3]=C_fix(23); av2[4]=C_fix(0); av2[5]=lf[99]; av2[6]=lf[94]; ((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 k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_4055,2,av);} a=C_alloc(5); 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); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4236,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:1144: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[102]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2776 in k2773 in k2770 in k2767 in k2764 in k2761 in k2758 in k2755 in k2752 in k2749 in k2746 in k2743 in k2740 in k2737 in k2734 in k2731 in k2728 in k2725 in k2722 in k2719 in k2716 in k2713 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2778,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2781,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:607: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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[737]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_4052,2,av);} a=C_alloc(5); 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); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4286,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:1129: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[105]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2773 in k2770 in k2767 in k2764 in k2761 in k2758 in k2755 in k2752 in k2749 in k2746 in k2743 in k2740 in k2737 in k2734 in k2731 in k2728 in k2725 in k2722 in k2719 in k2716 in k2713 in k2710 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2775,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2778,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:606: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2770 in k2767 in k2764 in k2761 in k2758 in k2755 in k2752 in k2749 in k2746 in k2743 in k2740 in k2737 in k2734 in k2731 in k2728 in k2725 in k2722 in k2719 in k2716 in k2713 in k2710 in k2707 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2772,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2775,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:605: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3667 in k3664 in k3661 in k3658 in k3655 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3720,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3723,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1021: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[130]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[131]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3667 in k3664 in k3661 in k3658 in ... */ static void C_ccall f_3723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3723,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3726,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1022: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[128]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[129]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3667 in k3664 in k3661 in ... */ static void C_ccall f_3726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3726,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3729,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1023: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[126]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[127]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3667 in k3664 in ... */ static void C_ccall f_3729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3729,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3732,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1024: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[124]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[125]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2656 in k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k2632 in k2629 in k2626 in k2623 in k2620 in k2617 in k2614 in k2611 in k2608 in k2605 in k2602 in k2599 in k2596 in k2593 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2658,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2661,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:564: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2653 in k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k2632 in k2629 in k2626 in k2623 in k2620 in k2617 in k2614 in k2611 in k2608 in k2605 in k2602 in k2599 in k2596 in k2593 in k2590 in ... */ static void C_ccall f_2655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2655,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2658,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:562: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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[816]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2650 in k2647 in k2644 in k2641 in k2638 in k2635 in k2632 in k2629 in k2626 in k2623 in k2620 in k2617 in k2614 in k2611 in k2608 in k2605 in k2602 in k2599 in k2596 in k2593 in k2590 in k2587 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2652,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2655,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:561: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[817]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[818]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2767 in k2764 in k2761 in k2758 in k2755 in k2752 in k2749 in k2746 in k2743 in k2740 in k2737 in k2734 in k2731 in k2728 in k2725 in k2722 in k2719 in k2716 in k2713 in k2710 in k2707 in k2704 in ... */ static void C_ccall f_2769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2769,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2772,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:604: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5550 in k5534 in a5528 in k5449 in a5446 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_5552,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[35],lf[36],lf[924],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2764 in k2761 in k2758 in k2755 in k2752 in k2749 in k2746 in k2743 in k2740 in k2737 in k2734 in k2731 in k2728 in k2725 in k2722 in k2719 in k2716 in k2713 in k2710 in k2707 in k2704 in k2701 in ... */ static void C_ccall f_2766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2766,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2769,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:603: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2761 in k2758 in k2755 in k2752 in k2749 in k2746 in k2743 in k2740 in k2737 in k2734 in k2731 in k2728 in k2725 in k2722 in k2719 in k2716 in k2713 in k2710 in k2707 in k2704 in k2701 in k2698 in ... */ static void C_ccall f_2763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2763,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2766,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:602: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k1910 in eqv?-id in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_1912,2,av);} a=C_alloc(11); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; f_1773(t3,C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[4],t2));} /* k2758 in k2755 in k2752 in k2749 in k2746 in k2743 in k2740 in k2737 in k2734 in k2731 in k2728 in k2725 in k2722 in k2719 in k2716 in k2713 in k2710 in k2707 in k2704 in k2701 in k2698 in k2695 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2760,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2763,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:601: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2809 in k2806 in k2803 in k2800 in k2797 in k2794 in k2791 in k2788 in k2785 in k2782 in k2779 in k2776 in k2773 in k2770 in k2767 in k2764 in k2761 in k2758 in k2755 in k2752 in k2749 in k2746 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2811,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2814,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:618: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[718]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[720]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2812 in k2809 in k2806 in k2803 in k2800 in k2797 in k2794 in k2791 in k2788 in k2785 in k2782 in k2779 in k2776 in k2773 in k2770 in k2767 in k2764 in k2761 in k2758 in k2755 in k2752 in k2749 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2814,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2817,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:619: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[718]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[719]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2815 in k2812 in k2809 in k2806 in k2803 in k2800 in k2797 in k2794 in k2791 in k2788 in k2785 in k2782 in k2779 in k2776 in k2773 in k2770 in k2767 in k2764 in k2761 in k2758 in k2755 in k2752 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(3,c,6)))){ C_save_and_reclaim((void *)f_2817,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2820,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:620: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[715]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[717]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2644 in k2641 in k2638 in k2635 in k2632 in k2629 in k2626 in k2623 in k2620 in k2617 in k2614 in k2611 in k2608 in k2605 in k2602 in k2599 in k2596 in k2593 in k2590 in k2587 in k2584 in k2581 in ... */ static void C_ccall f_2646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2646,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2649,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:559: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[821]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[822]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2641 in k2638 in k2635 in k2632 in k2629 in k2626 in k2623 in k2620 in k2617 in k2614 in k2611 in k2608 in k2605 in k2602 in k2599 in k2596 in k2593 in k2590 in k2587 in k2584 in k2581 in k2578 in ... */ static void C_ccall f_2643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2643,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2646,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:558: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[823]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[824]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2638 in k2635 in k2632 in k2629 in k2626 in k2623 in k2620 in k2617 in k2614 in k2611 in k2608 in k2605 in k2602 in k2599 in k2596 in k2593 in k2590 in k2587 in k2584 in k2581 in k2578 in k2575 in ... */ 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(3,c,6)))){ C_save_and_reclaim((void *)f_2640,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2643,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:557: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[825]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[826]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* a4614 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in k3442 in ... */ static void C_ccall f_4615(C_word c,C_word *av){ C_word tmp; C_word t0=av[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 *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,2)))){ C_save_and_reclaim((void *)f_4615,6,av);} a=C_alloc(25); 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=C_i_caddr(t5); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4657,a[2]=t5,a[3]=t4,a[4]=t1,a[5]=t9,tmp=(C_word)a,a+=6,tmp); t12=C_slot(t10,C_fix(1)); t13=C_eqp(lf[41],t12); if(C_truep(t13)){ t14=C_slot(t10,C_fix(2)); t15=C_i_car(t14); /* c-platform.scm:909: immediate? */ t16=*((C_word*)lf[293]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=t11; av2[2]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}} else{ t14=t5; t15=C_a_i_record4(&a,4,lf[35],lf[36],lf[292],t14); t16=C_a_i_list2(&a,2,t4,t15); t17=t1; t18=t17;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],t9,t16); ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k2755 in k2752 in k2749 in k2746 in k2743 in k2740 in k2737 in k2734 in k2731 in k2728 in k2725 in k2722 in k2719 in k2716 in k2713 in k2710 in k2707 in k2704 in k2701 in k2698 in k2695 in k2692 in ... */ static void C_ccall f_2757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2757,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2760,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:600: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2749 in k2746 in k2743 in k2740 in k2737 in k2734 in k2731 in k2728 in k2725 in k2722 in k2719 in k2716 in k2713 in k2710 in k2707 in k2704 in k2701 in k2698 in k2695 in k2692 in k2689 in k2686 in ... */ static void C_ccall f_2751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2751,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2754,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:598: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2752 in k2749 in k2746 in k2743 in k2740 in k2737 in k2734 in k2731 in k2728 in k2725 in k2722 in k2719 in k2716 in k2713 in k2710 in k2707 in k2704 in k2701 in k2698 in k2695 in k2692 in k2689 in ... */ static void C_ccall f_2754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2754,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2757,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:599: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4536 in a4457 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in ... */ static void C_fcall f_4538(C_word 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,2)))){ C_save_and_reclaim_args((void *)trf_4538,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ if(C_truep(C_i_negativep(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3]; t3=C_u_i_car(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4562,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_4566,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:944: - */{ C_word av2[3]; av2[0]=0; av2[1]=t5; av2[2]=((C_word*)t0)[2]; C_minus(3,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_car(t2); t4=C_a_i_list2(&a,2,t3,((C_word*)t0)[5]); t5=((C_word*)t0)[4]; f_4488(t5,C_a_i_record4(&a,4,lf[35],lf[36],lf[260],t4));}} else{ t2=((C_word*)t0)[4]; f_4488(t2,C_SCHEME_FALSE);}} /* k2800 in k2797 in k2794 in k2791 in k2788 in k2785 in k2782 in k2779 in k2776 in k2773 in k2770 in k2767 in k2764 in k2761 in k2758 in k2755 in k2752 in k2749 in k2746 in k2743 in k2740 in k2737 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2802,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2805,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:615: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2647 in k2644 in k2641 in k2638 in k2635 in k2632 in k2629 in k2626 in k2623 in k2620 in k2617 in k2614 in k2611 in k2608 in k2605 in k2602 in k2599 in k2596 in k2593 in k2590 in k2587 in k2584 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2649,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2652,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:560: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[819]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[820]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2803 in k2800 in k2797 in k2794 in k2791 in k2788 in k2785 in k2782 in k2779 in k2776 in k2773 in k2770 in k2767 in k2764 in k2761 in k2758 in k2755 in k2752 in k2749 in k2746 in k2743 in k2740 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2805,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2808,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:616: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[721]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[723]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2806 in k2803 in k2800 in k2797 in k2794 in k2791 in k2788 in k2785 in k2782 in k2779 in k2776 in k2773 in k2770 in k2767 in k2764 in k2761 in k2758 in k2755 in k2752 in k2749 in k2746 in k2743 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ 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); /* c-platform.scm:617: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[721]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[722]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* a4092 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 k4028 in k4025 in ... */ static void C_ccall f_4093(C_word c,C_word *av){ C_word tmp; C_word t0=av[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_4093,6,av);} a=C_alloc(5); t6=C_i_length(t5); t7=C_eqp(C_fix(2),t6); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4103,a[2]=t5,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:1187: gensym */ t9=*((C_word*)lf[60]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,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 k4028 in k4025 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4091,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4655 in a4614 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in ... */ 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 t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,1)))){ C_save_and_reclaim((void *)f_4657,2,av);} a=C_alloc(16); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_a_i_record4(&a,4,lf[35],lf[36],lf[291],t2); t4=C_a_i_list2(&a,2,((C_word*)t0)[3],t3); t5=((C_word*)t0)[4]; t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[5],t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_a_i_record4(&a,4,lf[35],lf[36],lf[292],t2); t4=C_a_i_list2(&a,2,((C_word*)t0)[3],t3); t5=((C_word*)t0)[4]; t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[5],t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k4564 in k4536 in a4457 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4566,2,av);} /* c-platform.scm:944: qnode */ t2=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}} /* k4560 in k4536 in a4457 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in ... */ static void C_ccall f_4562(C_word c,C_word *av){ C_word tmp; C_word t0=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,1)))){ C_save_and_reclaim((void *)f_4562,2,av);} a=C_alloc(11); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; f_4488(t3,C_a_i_record4(&a,4,lf[35],lf[36],lf[259],t2));} /* k1610 in k1607 in k1604 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1612,2,av);} a=C_alloc(6); t2=C_set_block_item(lf[0] /* ##compiler#default-optimization-passes */,0,C_fix(3)); t3=C_mutate2((C_word*)lf[1]+1 /* (set! ##compiler#default-declarations ...) */,lf[2]); t4=C_mutate2((C_word*)lf[3]+1 /* (set! ##compiler#default-debugging-declarations ...) */,lf[4]); t5=C_mutate2((C_word*)lf[5]+1 /* (set! ##compiler#default-profiling-declarations ...) */,lf[6]); t6=C_mutate2((C_word*)lf[7]+1 /* (set! ##compiler#units-used-by-default ...) */,lf[8]); t7=C_set_block_item(lf[9] /* ##compiler#words-per-flonum */,0,C_fix(4)); t8=C_mutate2((C_word*)lf[10]+1 /* (set! ##compiler#unlikely-variables ...) */,lf[11]); t9=C_mutate2((C_word*)lf[12]+1 /* (set! ##compiler#eq-inline-operator ...) */,lf[13]); t10=C_mutate2((C_word*)lf[14]+1 /* (set! ##compiler#membership-test-operators ...) */,lf[15]); t11=C_set_block_item(lf[16] /* ##compiler#membership-unfold-limit */,0,C_fix(20)); t12=C_mutate2((C_word*)lf[17]+1 /* (set! ##compiler#target-include-file ...) */,lf[18]); t13=C_mutate2((C_word*)lf[19]+1 /* (set! ##compiler#valid-compiler-options ...) */,lf[20]); t14=C_mutate2((C_word*)lf[21]+1 /* (set! ##compiler#valid-compiler-options-with-argument ...) */,lf[22]); t15=C_mutate2((C_word*)lf[23]+1 /* (set! ##compiler#default-standard-bindings ...) */,lf[24]); t16=C_mutate2((C_word*)lf[25]+1 /* (set! ##compiler#default-extended-bindings ...) */,lf[26]); t17=C_mutate2((C_word*)lf[27]+1 /* (set! ##compiler#internal-bindings ...) */,lf[28]); t18=C_mutate2((C_word*)lf[29]+1 /* (set! ##compiler#non-foldable-bindings ...) */,lf[30]); t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1633,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t20=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5657,a[2]=t19,tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:224: lset-union */ t21=*((C_word*)lf[932]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t21; av2[1]=t20; av2[2]=*((C_word*)lf[801]+1); av2[3]=*((C_word*)lf[23]+1); av2[4]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t21+1)))(5,av2);}} /* k1604 */ static void C_ccall f_1606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_1606,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1609,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k1607 in k1604 */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1609,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1612,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k2986 in k2983 in k2980 in k2977 in k2974 in k2971 in k2968 in k2965 in k2962 in k2959 in k2956 in k2953 in k2950 in k2947 in k2944 in k2941 in k2938 in k2935 in k2932 in k2929 in k2926 in k2923 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2988,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2991,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:679: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[609]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[610]; av2[6]=lf[611]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2980 in k2977 in k2974 in k2971 in k2968 in k2965 in k2962 in k2959 in k2956 in k2953 in k2950 in k2947 in k2944 in k2941 in k2938 in k2935 in k2932 in k2929 in k2926 in k2923 in k2920 in k2917 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_2982,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2985,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:677: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[609]; av2[3]=C_fix(4); av2[4]=lf[294]; av2[5]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k2983 in k2980 in k2977 in k2974 in k2971 in k2968 in k2965 in k2962 in k2959 in k2956 in k2953 in k2950 in k2947 in k2944 in k2941 in k2938 in k2935 in k2932 in k2929 in k2926 in k2923 in k2920 in ... */ static void C_ccall f_2985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2985,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2988,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:678: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[606]; av2[3]=C_fix(4); av2[4]=lf[294]; av2[5]=C_fix(1); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_2337,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2340,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:496: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[50]; av2[3]=C_fix(8); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2974 in k2971 in k2968 in k2965 in k2962 in k2959 in k2956 in k2953 in k2950 in k2947 in k2944 in k2941 in k2938 in k2935 in k2932 in k2929 in k2926 in k2923 in k2920 in k2917 in k2914 in k2911 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2976,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2979,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:674: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[614]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[615]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2977 in k2974 in k2971 in k2968 in k2965 in k2962 in k2959 in k2956 in k2953 in k2950 in k2947 in k2944 in k2941 in k2938 in k2935 in k2932 in k2929 in k2926 in k2923 in k2920 in k2917 in k2914 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2979,2,av);} a=C_alloc(3); 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); /* c-platform.scm:675: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[612]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[613]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2968 in k2965 in k2962 in k2959 in k2956 in k2953 in k2950 in k2947 in k2944 in k2941 in k2938 in k2935 in k2932 in k2929 in k2926 in k2923 in k2920 in k2917 in k2914 in k2911 in k2908 in k2905 in ... */ 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,6)))){ 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:672: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[619]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[620]; av2[6]=lf[621]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2971 in k2968 in k2965 in k2962 in k2959 in k2956 in k2953 in k2950 in k2947 in k2944 in k2941 in k2938 in k2935 in k2932 in k2929 in k2926 in k2923 in k2920 in k2917 in k2914 in k2911 in k2908 in ... */ 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,6)))){ 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:673: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[616]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[617]; av2[6]=lf[618]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in k3442 in k3439 in k3436 in k3433 in k3430 in k3427 in k3424 in k3421 in k3418 in k3415 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3480,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3483,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:886: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[309]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[310]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* build in a4691 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in ... */ static C_word C_fcall f_4695(C_word *a,C_word t0,C_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=C_a_i_list1(&a,1,C_SCHEME_TRUE); t4=C_a_i_list2(&a,2,t1,t2); t5=C_a_i_record4(&a,4,lf[35],lf[38],lf[353],t4); t6=C_a_i_list2(&a,2,((C_word*)t0)[2],t5); return(C_a_i_record4(&a,4,lf[35],lf[37],t3,t6));} /* k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in k3442 in k3439 in k3436 in k3433 in k3430 in k3427 in k3424 in k3421 in k3418 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3483,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3486,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:887: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[307]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[308]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* a4691 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in k3355 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=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(28,c,3)))){ C_save_and_reclaim((void *)f_4692,6,av);} a=C_alloc(28); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4695,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t7=C_i_length(t5); switch(t7){ case C_fix(1): t8=C_i_car(t5); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4745,a[2]=t1,a[3]=t6,a[4]=t9,tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:861: qnode */ t11=*((C_word*)lf[39]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t10; av2[2]=C_fix(10); ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);} case C_fix(2): t8=C_i_car(t5); t9=C_i_cadr(t5); /* c-platform.scm:862: build */ t10=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t10; av2[1]=( /* c-platform.scm:862: build */ f_4695(C_a_i(&a,25),t6,t8,t9) ); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);} default: t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k3484 in k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in k3442 in k3439 in k3436 in k3433 in k3430 in k3427 in k3424 in k3421 in ... */ static void C_ccall f_3486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3486,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3489,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:888: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[305]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[306]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3487 in k3484 in k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in k3442 in k3439 in k3436 in k3433 in k3430 in k3427 in k3424 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3489,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3492,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:889: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[303]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[304]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4588 in a4457 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4590,2,av);} t2=((C_word*)t0)[2]; f_4538(t2,C_i_not(t1));} /* k5640 in for-each-loop42 in k1631 in k1610 in k1607 in k1604 */ 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(0,c,2)))){ C_save_and_reclaim((void *)f_5642,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5632(t3,((C_word*)t0)[4],t2);} /* k2560 in k2557 in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2562,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2565,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:530: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[49]; av2[3]=C_fix(13); av2[4]=C_SCHEME_FALSE; av2[5]=lf[870]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2563 in k2560 in k2557 in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in ... */ static void C_ccall f_2565(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2565,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2568,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:531: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[50]; av2[3]=C_fix(13); av2[4]=C_SCHEME_FALSE; av2[5]=lf[869]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2566 in k2563 in k2560 in k2557 in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2568,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2571,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:532: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[866]; av2[3]=C_fix(13); av2[4]=C_fix(2); av2[5]=lf[868]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5655 in k1610 in k1607 in k1604 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5657,2,av);} /* c-platform.scm:222: lset-difference */ t2=*((C_word*)lf[931]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[801]+1); av2[3]=t1; av2[4]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in k3442 in k3439 in k3436 in k3433 in k3430 in k3427 in k3424 in k3421 in k3418 in k3415 in k3412 in k3409 in k3406 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3471,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3474,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:883: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[315]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[316]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in k3442 in k3439 in k3436 in k3433 in k3430 in k3427 in k3424 in k3421 in k3418 in k3415 in k3412 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3477,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3480,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:885: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[311]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[312]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in k3442 in k3439 in k3436 in k3433 in k3430 in k3427 in k3424 in k3421 in k3418 in k3415 in k3412 in k3409 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3474,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3477,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:884: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[313]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[314]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in k3355 in k3352 in k3349 in k3346 in k3343 in k3340 in k3337 in k3334 in k3331 in k3328 in k3325 in k3322 in k3319 in k3316 in ... */ static void C_ccall f_3381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3381,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3384,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:834: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[376]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[377]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in k3355 in k3352 in k3349 in k3346 in k3343 in k3340 in k3337 in k3334 in k3331 in k3328 in k3325 in k3322 in k3319 in ... */ static void C_ccall f_3384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3384,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3387,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:835: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[374]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[375]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in k3355 in k3352 in k3349 in k3346 in k3343 in k3340 in k3337 in k3334 in k3331 in k3328 in k3325 in k3322 in ... */ static void C_ccall f_3387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3387,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3390,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:836: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[372]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[373]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2818 in k2815 in k2812 in k2809 in k2806 in k2803 in k2800 in k2797 in k2794 in k2791 in k2788 in k2785 in k2782 in k2779 in k2776 in k2773 in k2770 in k2767 in k2764 in k2761 in k2758 in k2755 in ... */ static void C_ccall f_2820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2820,2,av);} a=C_alloc(3); 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); /* c-platform.scm:621: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[715]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[716]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2821 in k2818 in k2815 in k2812 in k2809 in k2806 in k2803 in k2800 in k2797 in k2794 in k2791 in k2788 in k2785 in k2782 in k2779 in k2776 in k2773 in k2770 in k2767 in k2764 in k2761 in k2758 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2823,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2826,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:622: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[712]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[714]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2824 in k2821 in k2818 in k2815 in k2812 in k2809 in k2806 in k2803 in k2800 in k2797 in k2794 in k2791 in k2788 in k2785 in k2782 in k2779 in k2776 in k2773 in k2770 in k2767 in k2764 in k2761 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2826,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2829,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:623: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[712]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[713]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in k3355 in k3352 in k3349 in k3346 in k3343 in k3340 in k3337 in k3334 in k3331 in k3328 in k3325 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3390,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3393,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:837: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[370]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[371]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2611 in k2608 in k2605 in k2602 in k2599 in k2596 in k2593 in k2590 in k2587 in k2584 in k2581 in k2578 in k2575 in k2572 in k2569 in k2566 in k2563 in k2560 in k2557 in k2338 in k2335 in k2303 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2613,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2616,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:548: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[843]; 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);}} /* k2827 in k2824 in k2821 in k2818 in k2815 in k2812 in k2809 in k2806 in k2803 in k2800 in k2797 in k2794 in k2791 in k2788 in k2785 in k2782 in k2779 in k2776 in k2773 in k2770 in k2767 in k2764 in ... */ static void C_ccall f_2829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2829,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2832,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:624: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[709]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[711]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in k3355 in k3352 in k3349 in k3346 in k3343 in k3340 in k3337 in k3334 in k3331 in k3328 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3393,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3396,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:838: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[368]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[369]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2617 in k2614 in k2611 in k2608 in k2605 in k2602 in k2599 in k2596 in k2593 in k2590 in k2587 in k2584 in k2581 in k2578 in k2575 in k2572 in k2569 in k2566 in k2563 in k2560 in k2557 in k2338 in ... */ static void C_ccall f_2619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2619,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2622,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:550: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[839]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[840]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2614 in k2611 in k2608 in k2605 in k2602 in k2599 in k2596 in k2593 in k2590 in k2587 in k2584 in k2581 in k2578 in k2575 in k2572 in k2569 in k2566 in k2563 in k2560 in k2557 in k2338 in k2335 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2616,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2619,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:549: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[841]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[842]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in k3355 in k3352 in k3349 in k3346 in k3343 in k3340 in k3337 in k3334 in k3331 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3396,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3399,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:839: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[366]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[367]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in k3355 in k3352 in k3349 in k3346 in k3343 in k3340 in k3337 in k3334 in ... */ 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,7)))){ C_save_and_reclaim((void *)f_3399,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3402,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:840: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[364]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[365]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2608 in k2605 in k2602 in k2599 in k2596 in k2593 in k2590 in k2587 in k2584 in k2581 in k2578 in k2575 in k2572 in k2569 in k2566 in k2563 in k2560 in k2557 in k2338 in k2335 in k2303 in k2300 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2610,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2613,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:547: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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[845]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2719 in k2716 in k2713 in k2710 in k2707 in k2704 in k2701 in k2698 in k2695 in k2692 in k2689 in k2686 in k2683 in k2680 in k2677 in k2674 in k2671 in k2668 in k2665 in k2662 in k2659 in k2656 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2721,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2724,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:588: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2722 in k2719 in k2716 in k2713 in k2710 in k2707 in k2704 in k2701 in k2698 in k2695 in k2692 in k2689 in k2686 in k2683 in k2680 in k2677 in k2674 in k2671 in k2668 in k2665 in k2662 in k2659 in ... */ static void C_ccall f_2724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2724,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2727,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:589: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2725 in k2722 in k2719 in k2716 in k2713 in k2710 in k2707 in k2704 in k2701 in k2698 in k2695 in k2692 in k2689 in k2686 in k2683 in k2680 in k2677 in k2674 in k2671 in k2668 in k2665 in k2662 in ... */ static void C_ccall f_2727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2727,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2730,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:590: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2920 in k2917 in k2914 in k2911 in k2908 in k2905 in k2902 in k2899 in k2896 in k2893 in k2890 in k2887 in k2884 in k2881 in k2878 in k2875 in k2872 in k2869 in k2866 in k2863 in k2860 in k2857 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2922,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2925,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:655: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[652]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[653]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2923 in k2920 in k2917 in k2914 in k2911 in k2908 in k2905 in k2902 in k2899 in k2896 in k2893 in k2890 in k2887 in k2884 in k2881 in k2878 in k2875 in k2872 in k2869 in k2866 in k2863 in k2860 in ... */ static void C_ccall f_2925(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2925,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2928,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:656: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[650]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[651]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2926 in k2923 in k2920 in k2917 in k2914 in k2911 in k2908 in k2905 in k2902 in k2899 in k2896 in k2893 in k2890 in k2887 in k2884 in k2881 in k2878 in k2875 in k2872 in k2869 in k2866 in k2863 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2928,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2931,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:657: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3490 in k3487 in k3484 in k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in k3442 in k3439 in k3436 in k3433 in k3430 in k3427 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(3,c,7)))){ C_save_and_reclaim((void *)f_3492,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3495,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:891: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[301]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[302]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in k3442 in k3439 in k3436 in k3433 in k3430 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(3,c,7)))){ C_save_and_reclaim((void *)f_3495,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3498,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:892: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[299]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[300]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 in k3472 in k3469 in k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in k3442 in k3439 in k3436 in k3433 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(3,c,7)))){ C_save_and_reclaim((void *)f_3498,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3501,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:893: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[297]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[298]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3361 in k3358 in k3355 in k3352 in k3349 in k3346 in k3343 in k3340 in k3337 in k3334 in k3331 in k3328 in k3325 in k3322 in k3319 in k3316 in k3313 in k3310 in k3307 in k3304 in k3301 in k3298 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3363,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3366,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:827: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[388]; av2[3]=C_fix(15); av2[4]=lf[387]; av2[5]=lf[32]; av2[6]=lf[357]; av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2602 in k2599 in k2596 in k2593 in k2590 in k2587 in k2584 in k2581 in k2578 in k2575 in k2572 in k2569 in k2566 in k2563 in k2560 in k2557 in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in ... */ static void C_ccall f_2604(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2604,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2607,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:545: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[848]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[849]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3358 in k3355 in k3352 in k3349 in k3346 in k3343 in k3340 in k3337 in k3334 in k3331 in k3328 in k3325 in k3322 in k3319 in k3316 in k3313 in k3310 in k3307 in k3304 in k3301 in k3298 in k3295 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3360,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3363,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:826: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[389]; av2[3]=C_fix(15); av2[4]=lf[387]; av2[5]=lf[32]; av2[6]=lf[390]; av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3364 in k3361 in k3358 in k3355 in k3352 in k3349 in k3346 in k3343 in k3340 in k3337 in k3334 in k3331 in k3328 in k3325 in k3322 in k3319 in k3316 in k3313 in k3310 in k3307 in k3304 in k3301 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3366,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3369,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:828: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[386]; av2[3]=C_fix(15); av2[4]=lf[387]; av2[5]=lf[32]; av2[6]=lf[360]; av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2605 in k2602 in k2599 in k2596 in k2593 in k2590 in k2587 in k2584 in k2581 in k2578 in k2575 in k2572 in k2569 in k2566 in k2563 in k2560 in k2557 in k2338 in k2335 in k2303 in k2300 in k2297 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2607,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2610,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:546: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[846]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[847]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3367 in k3364 in k3361 in k3358 in k3355 in k3352 in k3349 in k3346 in k3343 in k3340 in k3337 in k3334 in k3331 in k3328 in k3325 in k3322 in k3319 in k3316 in k3313 in k3310 in k3307 in k3304 in ... */ static void C_ccall f_3369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3369,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3372,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:830: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[384]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[385]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2599 in k2596 in k2593 in k2590 in k2587 in k2584 in k2581 in k2578 in k2575 in k2572 in k2569 in k2566 in k2563 in k2560 in k2557 in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2601,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2604,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:544: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[850]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[851]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2710 in k2707 in k2704 in k2701 in k2698 in k2695 in k2692 in k2689 in k2686 in k2683 in k2680 in k2677 in k2674 in k2671 in k2668 in k2665 in k2662 in k2659 in k2656 in k2653 in k2650 in k2647 in ... */ 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(3,c,6)))){ C_save_and_reclaim((void *)f_2712,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2715,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:585: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2713 in k2710 in k2707 in k2704 in k2701 in k2698 in k2695 in k2692 in k2689 in k2686 in k2683 in k2680 in k2677 in k2674 in k2671 in k2668 in k2665 in k2662 in k2659 in k2656 in k2653 in k2650 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2715,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2718,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:586: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2716 in k2713 in k2710 in k2707 in k2704 in k2701 in k2698 in k2695 in k2692 in k2689 in k2686 in k2683 in k2680 in k2677 in k2674 in k2671 in k2668 in k2665 in k2662 in k2659 in k2656 in k2653 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2718,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2721,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:587: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* for-each-loop42 in k1631 in k1610 in k1607 in k1604 */ static void C_fcall f_5632(C_word t0,C_word 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_5632,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_5642,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_a_i_list(&a,1,C_SCHEME_TRUE); if(C_truep(C_i_nullp(t5))){ /* tweaks.scm:54: ##sys#put! */ t6=*((C_word*)lf[928]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[929]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_i_car(t5); /* tweaks.scm:54: ##sys#put! */ t7=*((C_word*)lf[928]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=lf[929]; 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);}}} /* k2590 in k2587 in k2584 in k2581 in k2578 in k2575 in k2572 in k2569 in k2566 in k2563 in k2560 in k2557 in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2592,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2595,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:541: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[856]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[857]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2911 in k2908 in k2905 in k2902 in k2899 in k2896 in k2893 in k2890 in k2887 in k2884 in k2881 in k2878 in k2875 in k2872 in k2869 in k2866 in k2863 in k2860 in k2857 in k2854 in k2851 in k2848 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2913,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2916,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:652: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2908 in k2905 in k2902 in k2899 in k2896 in k2893 in k2890 in k2887 in k2884 in k2881 in k2878 in k2875 in k2872 in k2869 in k2866 in k2863 in k2860 in k2857 in k2854 in k2851 in k2848 in k2845 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2910,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2913,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:651: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2914 in k2911 in k2908 in k2905 in k2902 in k2899 in k2896 in k2893 in k2890 in k2887 in k2884 in k2881 in k2878 in k2875 in k2872 in k2869 in k2866 in k2863 in k2860 in k2857 in k2854 in k2851 in ... */ static void C_ccall f_2916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2916,2,av);} a=C_alloc(3); 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); /* c-platform.scm:653: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2593 in k2590 in k2587 in k2584 in k2581 in k2578 in k2575 in k2572 in k2569 in k2566 in k2563 in k2560 in k2557 in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in ... */ 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(3,c,6)))){ C_save_and_reclaim((void *)f_2595,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2598,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:542: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[854]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[855]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2596 in k2593 in k2590 in k2587 in k2584 in k2581 in k2578 in k2575 in k2572 in k2569 in k2566 in k2563 in k2560 in k2557 in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2598,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2601,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:543: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[852]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[853]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2917 in k2914 in k2911 in k2908 in k2905 in k2902 in k2899 in k2896 in k2893 in k2890 in k2887 in k2884 in k2881 in k2878 in k2875 in k2872 in k2869 in k2866 in k2863 in k2860 in k2857 in k2854 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2919,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2922,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:654: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in k3442 in k3439 in k3436 in k3433 in k3430 in k3427 in k3424 in k3421 in k3418 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in ... */ static void C_ccall f_3462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3462,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3465,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:880: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[321]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[322]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in k3442 in k3439 in k3436 in k3433 in k3430 in k3427 in k3424 in k3421 in k3418 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in ... */ static void C_ccall f_3465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3465,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3468,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:881: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[319]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[320]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3466 in k3463 in k3460 in k3457 in k3454 in k3451 in k3448 in k3445 in k3442 in k3439 in k3436 in k3433 in k3430 in k3427 in k3424 in k3421 in k3418 in k3415 in k3412 in k3409 in k3406 in k3403 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3468,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3471,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:882: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[317]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[318]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3370 in k3367 in k3364 in k3361 in k3358 in k3355 in k3352 in k3349 in k3346 in k3343 in k3340 in k3337 in k3334 in k3331 in k3328 in k3325 in k3322 in k3319 in k3316 in k3313 in k3310 in k3307 in ... */ static void C_ccall f_3372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3372,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3375,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:831: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[382]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[383]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2635 in k2632 in k2629 in k2626 in k2623 in k2620 in k2617 in k2614 in k2611 in k2608 in k2605 in k2602 in k2599 in k2596 in k2593 in k2590 in k2587 in k2584 in k2581 in k2578 in k2575 in k2572 in ... */ static void C_ccall f_2637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2637,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2640,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:556: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[827]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[828]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2629 in k2626 in k2623 in k2620 in k2617 in k2614 in k2611 in k2608 in k2605 in k2602 in k2599 in k2596 in k2593 in k2590 in k2587 in k2584 in k2581 in k2578 in k2575 in k2572 in k2569 in k2566 in ... */ static void C_ccall f_2631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2631,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2634,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:554: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2632 in k2629 in k2626 in k2623 in k2620 in k2617 in k2614 in k2611 in k2608 in k2605 in k2602 in k2599 in k2596 in k2593 in k2590 in k2587 in k2584 in k2581 in k2578 in k2575 in k2572 in k2569 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2634,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2637,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:555: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[829]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[830]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in k3355 in k3352 in k3349 in k3346 in k3343 in k3340 in k3337 in k3334 in k3331 in k3328 in k3325 in k3322 in k3319 in k3316 in k3313 in k3310 in ... */ static void C_ccall f_3375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3375,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3378,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:832: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[380]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[381]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in k3355 in k3352 in k3349 in k3346 in k3343 in k3340 in k3337 in k3334 in k3331 in k3328 in k3325 in k3322 in k3319 in k3316 in k3313 in ... */ static void C_ccall f_3378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3378,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3381,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:833: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[378]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[379]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_2302,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2305,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:488: rewrite-c..r */ f_2195(t2,lf[871],lf[872],lf[873]);} /* k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in ... */ 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; 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_2305,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2306,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2337,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:495: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[49]; av2[3]=C_fix(8); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* rvalues in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in ... */ 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=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(11,c,1)))){ C_save_and_reclaim((void *)f_2306,6,av);} a=C_alloc(11); 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); t10=t1; t11=t10;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],t8,t9); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k2453 in k2482 in k2486 in k2407 in k2404 in k2401 in k2374 in rewrite-c-w-v in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in ... */ static void C_ccall f_2455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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,1)))){ C_save_and_reclaim((void *)f_2455,2,av);} a=C_alloc(22); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[3],t2); t4=C_a_i_list2(&a,2,((C_word*)t0)[4],t3); t5=((C_word*)t0)[5]; t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[35],lf[58],((C_word*)t0)[6],t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k5059 in k5041 in a5003 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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(22,c,1)))){ C_save_and_reclaim((void *)f_5061,2,av);} a=C_alloc(22); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_record4(&a,4,lf[35],lf[36],lf[912],t2); t4=C_a_i_list2(&a,2,((C_word*)t0)[3],t3); t5=((C_word*)t0)[4]; t6=t5;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[5],t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k2581 in k2578 in k2575 in k2572 in k2569 in k2566 in k2563 in k2560 in k2557 in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2583,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2586,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:538: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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[860]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2578 in k2575 in k2572 in k2569 in k2566 in k2563 in k2560 in k2557 in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in ... */ 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(3,c,6)))){ C_save_and_reclaim((void *)f_2580,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2583,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:536: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[861]; av2[3]=C_fix(13); av2[4]=C_fix(2); av2[5]=lf[862]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2584 in k2581 in k2578 in k2575 in k2572 in k2569 in k2566 in k2563 in k2560 in k2557 in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2586,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2589,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:539: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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[859]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2587 in k2584 in k2581 in k2578 in k2575 in k2572 in k2569 in k2566 in k2563 in k2560 in k2557 in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in ... */ static void C_ccall f_2589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2589,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2592,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:540: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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[858]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2623 in k2620 in k2617 in k2614 in k2611 in k2608 in k2605 in k2602 in k2599 in k2596 in k2593 in k2590 in k2587 in k2584 in k2581 in k2578 in k2575 in k2572 in k2569 in k2566 in k2563 in k2560 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2625,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2628,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:552: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[835]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[836]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2626 in k2623 in k2620 in k2617 in k2614 in k2611 in k2608 in k2605 in k2602 in k2599 in k2596 in k2593 in k2590 in k2587 in k2584 in k2581 in k2578 in k2575 in k2572 in k2569 in k2566 in k2563 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2628,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2631,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:553: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[833]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[834]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2620 in k2617 in k2614 in k2611 in k2608 in k2605 in k2602 in k2599 in k2596 in k2593 in k2590 in k2587 in k2584 in k2581 in k2578 in k2575 in k2572 in k2569 in k2566 in k2563 in k2560 in k2557 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2622,2,av);} a=C_alloc(3); 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); /* c-platform.scm:551: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[837]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[838]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2569 in k2566 in k2563 in k2560 in k2557 in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in ... */ static void C_ccall f_2571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2571,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2574,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:533: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[866]; av2[3]=C_fix(13); av2[4]=C_fix(2); av2[5]=lf[867]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2572 in k2569 in k2566 in k2563 in k2560 in k2557 in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2574,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2577,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:534: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[863]; av2[3]=C_fix(13); av2[4]=C_fix(2); av2[5]=lf[865]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2575 in k2572 in k2569 in k2566 in k2563 in k2560 in k2557 in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2577,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2580,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:535: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[863]; av2[3]=C_fix(13); av2[4]=C_fix(2); av2[5]=lf[864]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5000 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5002,2,av);} /* c-platform.scm:378: rewrite */ t2=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[908]; av2[3]=C_fix(8); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5003 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_ccall f_5004(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(12,c,4)))){ C_save_and_reclaim((void *)f_5004,6,av);} a=C_alloc(12); t6=C_i_length(t5); t7=C_eqp(t6,C_fix(2)); if(C_truep(t7)){ t8=C_eqp(lf[32],*((C_word*)lf[33]+1)); if(C_truep(t8)){ t9=C_a_i_list1(&a,1,C_SCHEME_TRUE); t10=t9; t11=C_i_cadr(t5); t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5043,a[2]=t5,a[3]=t4,a[4]=t1,a[5]=t10,tmp=(C_word)a,a+=6,tmp); t13=C_slot(t11,C_fix(1)); t14=C_eqp(lf[41],t13); if(C_truep(t14)){ t15=C_slot(t11,C_fix(2)); t16=C_i_car(t15); t17=t12; f_5043(t17,C_eqp(C_fix(2),t16));} else{ t15=t12; f_5043(t15,C_SCHEME_FALSE);}} else{ t9=C_a_i_list1(&a,1,C_SCHEME_TRUE); t10=t9; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5113,a[2]=t1,a[3]=t10,tmp=(C_word)a,a+=4,tmp); t12=C_a_i_record4(&a,4,lf[35],lf[47],lf[914],C_SCHEME_END_OF_LIST); /* c-platform.scm:358: cons* */ t13=*((C_word*)lf[43]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t11; av2[2]=t12; av2[3]=t4; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k2965 in k2962 in k2959 in k2956 in k2953 in k2950 in k2947 in k2944 in k2941 in k2938 in k2935 in k2932 in k2929 in k2926 in k2923 in k2920 in k2917 in k2914 in k2911 in k2908 in k2905 in k2902 in ... */ static void C_ccall f_2967(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2967,2,av);} a=C_alloc(3); 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); /* c-platform.scm:671: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[622]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[623]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2962 in k2959 in k2956 in k2953 in k2950 in k2947 in k2944 in k2941 in k2938 in k2935 in k2932 in k2929 in k2926 in k2923 in k2920 in k2917 in k2914 in k2911 in k2908 in k2905 in k2902 in k2899 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_2964,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2967,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:670: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[622]; av2[3]=C_fix(14); av2[4]=lf[32]; av2[5]=C_fix(2); av2[6]=lf[624]; av2[7]=lf[625]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2959 in k2956 in k2953 in k2950 in k2947 in k2944 in k2941 in k2938 in k2935 in k2932 in k2929 in k2926 in k2923 in k2920 in k2917 in k2914 in k2911 in k2908 in k2905 in k2902 in k2899 in k2896 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2961,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2964,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:669: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2956 in k2953 in k2950 in k2947 in k2944 in k2941 in k2938 in k2935 in k2932 in k2929 in k2926 in k2923 in k2920 in k2917 in k2914 in k2911 in k2908 in k2905 in k2902 in k2899 in k2896 in k2893 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_2958,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2961,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:668: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[626]; av2[3]=C_fix(14); av2[4]=lf[32]; av2[5]=C_fix(2); av2[6]=lf[628]; av2[7]=lf[629]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2953 in k2950 in k2947 in k2944 in k2941 in k2938 in k2935 in k2932 in k2929 in k2926 in k2923 in k2920 in k2917 in k2914 in k2911 in k2908 in k2905 in k2902 in k2899 in k2896 in k2893 in k2890 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2955,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2958,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:666: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[630]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[631]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2950 in k2947 in k2944 in k2941 in k2938 in k2935 in k2932 in k2929 in k2926 in k2923 in k2920 in k2917 in k2914 in k2911 in k2908 in k2905 in k2902 in k2899 in k2896 in k2893 in k2890 in k2887 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2952,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2955,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:665: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* rewrite-c-w-v in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in ... */ 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=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(6,c,4)))){ C_save_and_reclaim((void *)f_2342,6,av);} a=C_alloc(6); 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=C_slot(t9,C_fix(1)); t13=C_eqp(lf[42],t12); if(C_truep(t13)){ t14=C_slot(t11,C_fix(1)); t15=C_eqp(lf[42],t14); if(C_truep(t15)){ t16=C_slot(t11,C_fix(2)); t17=C_i_car(t16); if(C_truep(t17)){ t18=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2376,a[2]=t11,a[3]=t4,a[4]=t9,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:508: get */ t19=*((C_word*)lf[66]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t19; av2[1]=t18; av2[2]=t2; av2[3]=t17; av2[4]=lf[67]; ((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}} else{ t18=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}} else{ t16=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t16; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}} else{ t14=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in ... */ static void C_ccall f_2340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2340,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2342,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2559,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:527: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[866]; av2[3]=C_fix(8); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2947 in k2944 in k2941 in k2938 in k2935 in k2932 in k2929 in k2926 in k2923 in k2920 in k2917 in k2914 in k2911 in k2908 in k2905 in k2902 in k2899 in k2896 in k2893 in k2890 in k2887 in k2884 in ... */ static void C_ccall f_2949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2949,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2952,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:664: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[634]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[635]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2944 in k2941 in k2938 in k2935 in k2932 in k2929 in k2926 in k2923 in k2920 in k2917 in k2914 in k2911 in k2908 in k2905 in k2902 in k2899 in k2896 in k2893 in k2890 in k2887 in k2884 in k2881 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2946,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2949,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:663: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[636]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[637]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2941 in k2938 in k2935 in k2932 in k2929 in k2926 in k2923 in k2920 in k2917 in k2914 in k2911 in k2908 in k2905 in k2902 in k2899 in k2896 in k2893 in k2890 in k2887 in k2884 in k2881 in k2878 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2943,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2946,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:662: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[638]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[639]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2938 in k2935 in k2932 in k2929 in k2926 in k2923 in k2920 in k2917 in k2914 in k2911 in k2908 in k2905 in k2902 in k2899 in k2896 in k2893 in k2890 in k2887 in k2884 in k2881 in k2878 in k2875 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2940,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2943,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:661: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2401 in k2374 in rewrite-c-w-v in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_2403,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2406,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:514: gensym */ t4=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[65]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_platform_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("platform_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_platform_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(10845))){ C_save(t1); C_rereclaim2(10845*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,933); lf[0]=C_h_intern(&lf[0],36,"\010compilerdefault-optimization-passes"); lf[1]=C_h_intern(&lf[1],29,"\010compilerdefault-declarations"); lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014always-bound\376\003\000\000\002\376\001\000\000\022\003sysstandard-input\376\003\000\000\002\376\001\000\000\023\003sysstandard-ou" "tput\376\003\000\000\002\376\001\000\000\022\003sysstandard-error\376\003\000\000\002\376\001\000\000\023\003sysundefined-value\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022b" "ound-to-procedure\376\003\000\000\002\376\001\000\000\014\003sysfor-each\376\003\000\000\002\376\001\000\000\007\003sysmap\376\003\000\000\002\376\001\000\000\011\003sysprint\376\003\000\000\002" "\376\001\000\000\012\003syssetter\376\003\000\000\002\376\001\000\000\013\003syssetslot\376\003\000\000\002\376\001\000\000\020\003sysdynamic-wind\376\003\000\000\002\376\001\000\000\024\003syscall" "-with-values\376\003\000\000\002\376\001\000\000\017\003sysstart-timer\376\003\000\000\002\376\001\000\000\016\003sysstop-timer\376\003\000\000\002\376\001\000\000\007\003sysgcd\376\003" "\000\000\002\376\001\000\000\007\003syslcm\376\003\000\000\002\376\001\000\000\020\003sysmake-promise\376\003\000\000\002\376\001\000\000\016\003sysstructure\077\376\003\000\000\002\376\001\000\000\010\003syss" "lot\376\003\000\000\002\376\001\000\000\023\003sysallocate-vector\376\003\000\000\002\376\001\000\000\020\003syslist->vector\376\003\000\000\002\376\001\000\000\015\003sysblock-re" "f\376\003\000\000\002\376\001\000\000\016\003sysblock-set!\376\003\000\000\002\376\001\000\000\010\003syslist\376\003\000\000\002\376\001\000\000\010\003syscons\376\003\000\000\002\376\001\000\000\012\003sysappen" "d\376\003\000\000\002\376\001\000\000\012\003sysvector\376\003\000\000\002\376\001\000\000\031\003sysforeign-char-argument\376\003\000\000\002\376\001\000\000\033\003sysforeign-fi" "xnum-argument\376\003\000\000\002\376\001\000\000\033\003sysforeign-flonum-argument\376\003\000\000\002\376\001\000\000\011\003syserror\376\003\000\000\002\376\001\000\000\021\003" "syspeek-c-string\376\003\000\000\002\376\001\000\000\031\003syspeek-nonnull-c-string\376\003\000\000\002\376\001\000\000\032\003syspeek-and-free-c" "-string\376\003\000\000\002\376\001\000\000\042\003syspeek-and-free-nonnull-c-string\376\003\000\000\002\376\001\000\000\032\003sysforeign-block-a" "rgument\376\003\000\000\002\376\001\000\000\033\003sysforeign-string-argument\376\003\000\000\002\376\001\000\000\034\003sysforeign-pointer-argume" "nt\376\003\000\000\002\376\001\000\000\034\003sysforeign-integer-argument\376\003\000\000\002\376\001\000\000\042\003syscall-with-current-continua" "tion\376\377\016\376\377\016"); lf[3]=C_h_intern(&lf[3],39,"\010compilerdefault-debugging-declarations"); lf[4]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\004coredeclare\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005quote\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004uses\376\003\000\000\002\376\001\000\000\010debu" "gger\376\377\016\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005quote\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022bound-to-procedure\376\003\000\000\002\376\001\000\000\024\003syspus" "h-debug-frame\376\003\000\000\002\376\001\000\000\023\003syspop-debug-frame\376\003\000\000\002\376\001\000\000\025\003syscheck-debug-entry\376\003\000\000\002\376\001" "\000\000\032\003syscheck-debug-assignment\376\003\000\000\002\376\001\000\000\032\003sysregister-debug-lambdas\376\003\000\000\002\376\001\000\000\034\003sysr" "egister-debug-variables\376\003\000\000\002\376\001\000\000\016\003sysdebug-call\376\377\016\376\377\016\376\377\016\376\377\016"); lf[5]=C_h_intern(&lf[5],39,"\010compilerdefault-profiling-declarations"); lf[6]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\004coredeclare\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004uses\376\003\000\000\002\376\001\000\000\010profiler\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000" "\000\022bound-to-procedure\376\003\000\000\002\376\001\000\000\021\003sysprofile-entry\376\003\000\000\002\376\001\000\000\020\003sysprofile-exit\376\377\016\376\377\016\376" "\377\016"); lf[7]=C_h_intern(&lf[7],30,"\010compilerunits-used-by-default"); lf[8]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\007library\376\003\000\000\002\376\001\000\000\004eval\376\003\000\000\002\376\001\000\000\016chicken-syntax\376\377\016"); lf[9]=C_h_intern(&lf[9],25,"\010compilerwords-per-flonum"); lf[10]=C_h_intern(&lf[10],27,"\010compilerunlikely-variables"); lf[11]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\007unquote\376\003\000\000\002\376\001\000\000\020unquote-splicing\376\377\016"); lf[12]=C_h_intern(&lf[12],27,"\010compilereq-inline-operator"); lf[13]=C_decode_literal(C_heaptop,"\376B\000\000\005C_eqp"); lf[14]=C_h_intern(&lf[14],34,"\010compilermembership-test-operators"); lf[15]=C_decode_literal(C_heaptop,"\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[16]=C_h_intern(&lf[16],32,"\010compilermembership-unfold-limit"); lf[17]=C_h_intern(&lf[17],28,"\010compilertarget-include-file"); lf[18]=C_decode_literal(C_heaptop,"\376B\000\000\011chicken.h"); lf[19]=C_h_intern(&lf[19],31,"\010compilervalid-compiler-options"); lf[20]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005-help\376\003\000\000\002\376\001\000\000\001h\376\003\000\000\002\376\001\000\000\004help\376\003\000\000\002\376\001\000\000\007version\376\003\000\000\002\376\001\000\000\007verbose\376\003\000\000\002\376" "\001\000\000\014explicit-use\376\003\000\000\002\376\001\000\000\010no-trace\376\003\000\000\002\376\001\000\000\013no-warnings\376\003\000\000\002\376\001\000\000\006unsafe\376\003\000\000\002\376\001\000\000" "\005block\376\003\000\000\002\376\001\000\000\014check-syntax\376\003\000\000\002\376\001\000\000\011to-stdout\376\003\000\000\002\376\001\000\000\025no-usual-integrations\376\003" "\000\000\002\376\001\000\000\020case-insensitive\376\003\000\000\002\376\001\000\000\016no-lambda-info\376\003\000\000\002\376\001\000\000\007profile\376\003\000\000\002\376\001\000\000\006inlin" "e\376\003\000\000\002\376\001\000\000\024keep-shadowed-macros\376\003\000\000\002\376\001\000\000\021ignore-repository\376\003\000\000\002\376\001\000\000\021fixnum-arith" "metic\376\003\000\000\002\376\001\000\000\022disable-interrupts\376\003\000\000\002\376\001\000\000\026optimize-leaf-routines\376\003\000\000\002\376\001\000\000\016compi" "le-syntax\376\003\000\000\002\376\001\000\000\014tag-pointers\376\003\000\000\002\376\001\000\000\022accumulate-profile\376\003\000\000\002\376\001\000\000\035disable-sta" "ck-overflow-checks\376\003\000\000\002\376\001\000\000\003raw\376\003\000\000\002\376\001\000\000\012specialize\376\003\000\000\002\376\001\000\000\036emit-external-proto" "types-first\376\003\000\000\002\376\001\000\000\007release\376\003\000\000\002\376\001\000\000\005local\376\003\000\000\002\376\001\000\000\015inline-global\376\003\000\000\002\376\001\000\000\014anal" "yze-only\376\003\000\000\002\376\001\000\000\007dynamic\376\003\000\000\002\376\001\000\000\012scrutinize\376\003\000\000\002\376\001\000\000\016no-argc-checks\376\003\000\000\002\376\001\000\000\023n" "o-procedure-checks\376\003\000\000\002\376\001\000\000)no-procedure-checks-for-toplevel-bindings\376\003\000\000\002\376\001\000\000\006m" "odule\376\003\000\000\002\376\001\000\000\017no-bound-checks\376\003\000\000\002\376\001\000\000&no-procedure-checks-for-usual-bindings\376\003" "\000\000\002\376\001\000\000\022no-compiler-syntax\376\003\000\000\002\376\001\000\000\027no-parentheses-synonyms\376\003\000\000\002\376\001\000\000\020no-symbol-e" "scape\376\003\000\000\002\376\001\000\000\013r5rs-syntax\376\003\000\000\002\376\001\000\000\031emit-all-import-libraries\376\003\000\000\002\376\001\000\000\014strict-ty" "pes\376\003\000\000\002\376\001\000\000\012clustering\376\003\000\000\002\376\001\000\000\004lfa2\376\003\000\000\002\376\001\000\000\012debug-info\376\003\000\000\002\376\001\000\000\012setup-mode\376\003\000" "\000\002\376\001\000\000\026no-module-registration\376\377\016"); lf[21]=C_h_intern(&lf[21],45,"\010compilervalid-compiler-options-with-argument"); lf[22]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\005debug\376\003\000\000\002\376\001\000\000\013output-file\376\003\000\000\002\376\001\000\000\014include-path\376\003\000\000\002\376\001\000\000\011heap-size\376\003\000" "\000\002\376\001\000\000\012stack-size\376\003\000\000\002\376\001\000\000\004unit\376\003\000\000\002\376\001\000\000\004uses\376\003\000\000\002\376\001\000\000\015keyword-style\376\003\000\000\002\376\001\000\000\021re" "quire-extension\376\003\000\000\002\376\001\000\000\014inline-limit\376\003\000\000\002\376\001\000\000\014profile-name\376\003\000\000\002\376\001\000\000\024parenthesis" "-synonyms\376\003\000\000\002\376\001\000\000\007prelude\376\003\000\000\002\376\001\000\000\010postlude\376\003\000\000\002\376\001\000\000\010prologue\376\003\000\000\002\376\001\000\000\010epilogue" "\376\003\000\000\002\376\001\000\000\007nursery\376\003\000\000\002\376\001\000\000\006extend\376\003\000\000\002\376\001\000\000\007feature\376\003\000\000\002\376\001\000\000\012no-feature\376\003\000\000\002\376\001\000\000\005" "types\376\003\000\000\002\376\001\000\000\023emit-import-library\376\003\000\000\002\376\001\000\000\020emit-inline-file\376\003\000\000\002\376\001\000\000\020static-ext" "ension\376\003\000\000\002\376\001\000\000\023consult-inline-file\376\003\000\000\002\376\001\000\000\016emit-type-file\376\003\000\000\002\376\001\000\000\012ffi-define\376" "\003\000\000\002\376\001\000\000\020ffi-include-path\376\377\016"); lf[23]=C_h_intern(&lf[23],34,"\010compilerdefault-standard-bindings"); lf[24]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003not\376\003\000\000\002\376\001\000\000\010boolean\077\376\003\000\000\002\376\001\000\000\005apply\376\003\000\000\002\376\001\000\000\036call-with-current-contin" "uation\376\003\000\000\002\376\001\000\000\003eq\077\376\003\000\000\002\376\001\000\000\004eqv\077\376\003\000\000\002\376\001\000\000\006equal\077\376\003\000\000\002\376\001\000\000\005pair\077\376\003\000\000\002\376\001\000\000\004cons\376\003" "\000\000\002\376\001\000\000\003car\376\003\000\000\002\376\001\000\000\003cdr\376\003\000\000\002\376\001\000\000\004caar\376\003\000\000\002\376\001\000\000\004cadr\376\003\000\000\002\376\001\000\000\004cdar\376\003\000\000\002\376\001\000\000\004cddr" "\376\003\000\000\002\376\001\000\000\005caaar\376\003\000\000\002\376\001\000\000\005caadr\376\003\000\000\002\376\001\000\000\005cadar\376\003\000\000\002\376\001\000\000\005caddr\376\003\000\000\002\376\001\000\000\005cdaar\376\003\000\000\002" "\376\001\000\000\005cdadr\376\003\000\000\002\376\001\000\000\005cddar\376\003\000\000\002\376\001\000\000\005cdddr\376\003\000\000\002\376\001\000\000\006caaaar\376\003\000\000\002\376\001\000\000\006caaadr\376\003\000\000\002\376\001\000" "\000\006caadar\376\003\000\000\002\376\001\000\000\006caaddr\376\003\000\000\002\376\001\000\000\006cadaar\376\003\000\000\002\376\001\000\000\006cadadr\376\003\000\000\002\376\001\000\000\006caddar\376\003\000\000\002\376\001\000" "\000\006cadddr\376\003\000\000\002\376\001\000\000\006cdaaar\376\003\000\000\002\376\001\000\000\006cdaadr\376\003\000\000\002\376\001\000\000\006cdadar\376\003\000\000\002\376\001\000\000\006cdaddr\376\003\000\000\002\376\001\000" "\000\006cddaar\376\003\000\000\002\376\001\000\000\006cddadr\376\003\000\000\002\376\001\000\000\006cdddar\376\003\000\000\002\376\001\000\000\006cddddr\376\003\000\000\002\376\001\000\000\010set-car!\376\003\000\000\002\376" "\001\000\000\010set-cdr!\376\003\000\000\002\376\001\000\000\005null\077\376\003\000\000\002\376\001\000\000\004list\376\003\000\000\002\376\001\000\000\005list\077\376\003\000\000\002\376\001\000\000\006length\376\003\000\000\002\376\001\000" "\000\005zero\077\376\003\000\000\002\376\001\000\000\001\052\376\003\000\000\002\376\001\000\000\001-\376\003\000\000\002\376\001\000\000\001+\376\003\000\000\002\376\001\000\000\001/\376\003\000\000\002\376\001\000\000\001-\376\003\000\000\002\376\001\000\000\001>\376\003\000\000\002\376\001" "\000\000\001<\376\003\000\000\002\376\001\000\000\002>=\376\003\000\000\002\376\001\000\000\002<=\376\003\000\000\002\376\001\000\000\001=\376\003\000\000\002\376\001\000\000\023current-output-port\376\003\000\000\002\376\001\000\000\022cu" "rrent-input-port\376\003\000\000\002\376\001\000\000\012write-char\376\003\000\000\002\376\001\000\000\007newline\376\003\000\000\002\376\001\000\000\005write\376\003\000\000\002\376\001\000\000\007di" "splay\376\003\000\000\002\376\001\000\000\006append\376\003\000\000\002\376\001\000\000\016symbol->string\376\003\000\000\002\376\001\000\000\010for-each\376\003\000\000\002\376\001\000\000\003map\376\003\000\000" "\002\376\001\000\000\005char\077\376\003\000\000\002\376\001\000\000\015char->integer\376\003\000\000\002\376\001\000\000\015integer->char\376\003\000\000\002\376\001\000\000\013eof-object\077\376\003" "\000\000\002\376\001\000\000\015vector-length\376\003\000\000\002\376\001\000\000\015string-length\376\003\000\000\002\376\001\000\000\012string-ref\376\003\000\000\002\376\001\000\000\013string" "-set!\376\003\000\000\002\376\001\000\000\012vector-ref\376\003\000\000\002\376\001\000\000\013vector-set!\376\003\000\000\002\376\001\000\000\006char=\077\376\003\000\000\002\376\001\000\000\006char<\077\376\003" "\000\000\002\376\001\000\000\006char>\077\376\003\000\000\002\376\001\000\000\007char>=\077\376\003\000\000\002\376\001\000\000\007char<=\077\376\003\000\000\002\376\001\000\000\003gcd\376\003\000\000\002\376\001\000\000\003lcm\376\003\000\000\002\376" "\001\000\000\007reverse\376\003\000\000\002\376\001\000\000\007symbol\077\376\003\000\000\002\376\001\000\000\016string->symbol\376\003\000\000\002\376\001\000\000\007number\077\376\003\000\000\002\376\001\000\000\010c" "omplex\077\376\003\000\000\002\376\001\000\000\005real\077\376\003\000\000\002\376\001\000\000\010integer\077\376\003\000\000\002\376\001\000\000\011rational\077\376\003\000\000\002\376\001\000\000\004odd\077\376\003\000\000\002\376\001" "\000\000\005even\077\376\003\000\000\002\376\001\000\000\011positive\077\376\003\000\000\002\376\001\000\000\011negative\077\376\003\000\000\002\376\001\000\000\006exact\077\376\003\000\000\002\376\001\000\000\010inexact\077" "\376\003\000\000\002\376\001\000\000\003max\376\003\000\000\002\376\001\000\000\003min\376\003\000\000\002\376\001\000\000\010quotient\376\003\000\000\002\376\001\000\000\011remainder\376\003\000\000\002\376\001\000\000\006modulo\376" "\003\000\000\002\376\001\000\000\005floor\376\003\000\000\002\376\001\000\000\007ceiling\376\003\000\000\002\376\001\000\000\010truncate\376\003\000\000\002\376\001\000\000\005round\376\003\000\000\002\376\001\000\000\016exact-" ">inexact\376\003\000\000\002\376\001\000\000\016inexact->exact\376\003\000\000\002\376\001\000\000\003exp\376\003\000\000\002\376\001\000\000\003log\376\003\000\000\002\376\001\000\000\003sin\376\003\000\000\002\376\001\000\000" "\004expt\376\003\000\000\002\376\001\000\000\004sqrt\376\003\000\000\002\376\001\000\000\003cos\376\003\000\000\002\376\001\000\000\003tan\376\003\000\000\002\376\001\000\000\004asin\376\003\000\000\002\376\001\000\000\004acos\376\003\000\000\002\376\001" "\000\000\004atan\376\003\000\000\002\376\001\000\000\016number->string\376\003\000\000\002\376\001\000\000\016string->number\376\003\000\000\002\376\001\000\000\011char-ci=\077\376\003\000\000\002\376" "\001\000\000\011char-ci<\077\376\003\000\000\002\376\001\000\000\011char-ci>\077\376\003\000\000\002\376\001\000\000\012char-ci>=\077\376\003\000\000\002\376\001\000\000\012char-ci<=\077\376\003\000\000\002\376\001\000" "\000\020char-alphabetic\077\376\003\000\000\002\376\001\000\000\020char-whitespace\077\376\003\000\000\002\376\001\000\000\015char-numeric\077\376\003\000\000\002\376\001\000\000\020cha" "r-lower-case\077\376\003\000\000\002\376\001\000\000\020char-upper-case\077\376\003\000\000\002\376\001\000\000\013char-upcase\376\003\000\000\002\376\001\000\000\015char-downc" "ase\376\003\000\000\002\376\001\000\000\007string\077\376\003\000\000\002\376\001\000\000\010string=\077\376\003\000\000\002\376\001\000\000\010string>\077\376\003\000\000\002\376\001\000\000\010string<\077\376\003\000\000\002\376" "\001\000\000\011string>=\077\376\003\000\000\002\376\001\000\000\011string<=\077\376\003\000\000\002\376\001\000\000\013string-ci=\077\376\003\000\000\002\376\001\000\000\013string-ci<\077\376\003\000\000\002\376" "\001\000\000\013string-ci>\077\376\003\000\000\002\376\001\000\000\014string-ci<=\077\376\003\000\000\002\376\001\000\000\014string-ci>=\077\376\003\000\000\002\376\001\000\000\015string-appe" "nd\376\003\000\000\002\376\001\000\000\014string->list\376\003\000\000\002\376\001\000\000\014list->string\376\003\000\000\002\376\001\000\000\007vector\077\376\003\000\000\002\376\001\000\000\014vector-" ">list\376\003\000\000\002\376\001\000\000\014list->vector\376\003\000\000\002\376\001\000\000\006string\376\003\000\000\002\376\001\000\000\004read\376\003\000\000\002\376\001\000\000\011read-char\376\003\000\000" "\002\376\001\000\000\011substring\376\003\000\000\002\376\001\000\000\014string-fill!\376\003\000\000\002\376\001\000\000\014vector-fill!\376\003\000\000\002\376\001\000\000\013make-string" "\376\003\000\000\002\376\001\000\000\013make-vector\376\003\000\000\002\376\001\000\000\017open-input-file\376\003\000\000\002\376\001\000\000\020open-output-file\376\003\000\000\002\376\001\000" "\000\024call-with-input-file\376\003\000\000\002\376\001\000\000\025call-with-output-file\376\003\000\000\002\376\001\000\000\020close-input-port\376" "\003\000\000\002\376\001\000\000\021close-output-port\376\003\000\000\002\376\001\000\000\006values\376\003\000\000\002\376\001\000\000\020call-with-values\376\003\000\000\002\376\001\000\000\006ve" "ctor\376\003\000\000\002\376\001\000\000\012procedure\077\376\003\000\000\002\376\001\000\000\004memq\376\003\000\000\002\376\001\000\000\004memv\376\003\000\000\002\376\001\000\000\006member\376\003\000\000\002\376\001\000\000\004as" "sq\376\003\000\000\002\376\001\000\000\004assv\376\003\000\000\002\376\001\000\000\005assoc\376\003\000\000\002\376\001\000\000\011list-tail\376\003\000\000\002\376\001\000\000\010list-ref\376\003\000\000\002\376\001\000\000\003ab" "s\376\003\000\000\002\376\001\000\000\013char-ready\077\376\003\000\000\002\376\001\000\000\011peek-char\376\003\000\000\002\376\001\000\000\014list->string\376\003\000\000\002\376\001\000\000\014string-" ">list\376\003\000\000\002\376\001\000\000\022current-input-port\376\003\000\000\002\376\001\000\000\023current-output-port\376\377\016"); lf[25]=C_h_intern(&lf[25],34,"\010compilerdefault-extended-bindings"); lf[26]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\013bitwise-and\376\003\000\000\002\376\001\000\000\012alist-cons\376\003\000\000\002\376\001\000\000\005xcons\376\003\000\000\002\376\001\000\000\013bitwise-ior\376\003\000" "\000\002\376\001\000\000\013bitwise-xor\376\003\000\000\002\376\001\000\000\013bitwise-not\376\003\000\000\002\376\001\000\000\004add1\376\003\000\000\002\376\001\000\000\004sub1\376\003\000\000\002\376\001\000\000\003fx+" "\376\003\000\000\002\376\001\000\000\003fx-\376\003\000\000\002\376\001\000\000\003fx\052\376\003\000\000\002\376\001\000\000\003fx/\376\003\000\000\002\376\001\000\000\004fx+\077\376\003\000\000\002\376\001\000\000\004fx-\077\376\003\000\000\002\376\001\000\000\004fx\052" "\077\376\003\000\000\002\376\001\000\000\004fx/\077\376\003\000\000\002\376\001\000\000\005fxmod\376\003\000\000\002\376\001\000\000\001o\376\003\000\000\002\376\001\000\000\004fp/\077\376\003\000\000\002\376\001\000\000\003fx=\376\003\000\000\002\376\001\000\000\003fx" ">\376\003\000\000\002\376\001\000\000\003fx<\376\003\000\000\002\376\001\000\000\004fx>=\376\003\000\000\002\376\001\000\000\004fx<=\376\003\000\000\002\376\001\000\000\007fixnum\077\376\003\000\000\002\376\001\000\000\005fxneg\376\003\000\000\002\376" "\001\000\000\005fxmax\376\003\000\000\002\376\001\000\000\005fxmin\376\003\000\000\002\376\001\000\000\010identity\376\003\000\000\002\376\001\000\000\003fp+\376\003\000\000\002\376\001\000\000\003fp-\376\003\000\000\002\376\001\000\000\003fp" "\052\376\003\000\000\002\376\001\000\000\003fp/\376\003\000\000\002\376\001\000\000\005fpmin\376\003\000\000\002\376\001\000\000\005fpmax\376\003\000\000\002\376\001\000\000\005fpneg\376\003\000\000\002\376\001\000\000\003fp>\376\003\000\000\002\376\001\000" "\000\003fp<\376\003\000\000\002\376\001\000\000\003fp=\376\003\000\000\002\376\001\000\000\004fp>=\376\003\000\000\002\376\001\000\000\004fp<=\376\003\000\000\002\376\001\000\000\005fxand\376\003\000\000\002\376\001\000\000\005fxnot\376\003\000\000" "\002\376\001\000\000\005fxior\376\003\000\000\002\376\001\000\000\005fxxor\376\003\000\000\002\376\001\000\000\005fxshr\376\003\000\000\002\376\001\000\000\005fxshl\376\003\000\000\002\376\001\000\000\010bit-set\077\376\003\000\000\002\376" "\001\000\000\006fxodd\077\376\003\000\000\002\376\001\000\000\007fxeven\077\376\003\000\000\002\376\001\000\000\007fpfloor\376\003\000\000\002\376\001\000\000\011fpceiling\376\003\000\000\002\376\001\000\000\012fptrunc" "ate\376\003\000\000\002\376\001\000\000\007fpround\376\003\000\000\002\376\001\000\000\005fpsin\376\003\000\000\002\376\001\000\000\005fpcos\376\003\000\000\002\376\001\000\000\005fptan\376\003\000\000\002\376\001\000\000\006fpasi" "n\376\003\000\000\002\376\001\000\000\006fpacos\376\003\000\000\002\376\001\000\000\006fpatan\376\003\000\000\002\376\001\000\000\007fpatan2\376\003\000\000\002\376\001\000\000\005fpexp\376\003\000\000\002\376\001\000\000\006fpexp" "t\376\003\000\000\002\376\001\000\000\005fplog\376\003\000\000\002\376\001\000\000\006fpsqrt\376\003\000\000\002\376\001\000\000\005fpabs\376\003\000\000\002\376\001\000\000\012fpinteger\077\376\003\000\000\002\376\001\000\000\020ari" "thmetic-shift\376\003\000\000\002\376\001\000\000\004void\376\003\000\000\002\376\001\000\000\014flush-output\376\003\000\000\002\376\001\000\000\017thread-specific\376\003\000\000\002\376" "\001\000\000\024thread-specific-set!\376\003\000\000\002\376\001\000\000\011not-pair\077\376\003\000\000\002\376\001\000\000\005atom\077\376\003\000\000\002\376\001\000\000\012null-list\077\376\003" "\000\000\002\376\001\000\000\005print\376\003\000\000\002\376\001\000\000\006print\052\376\003\000\000\002\376\001\000\000\005error\376\003\000\000\002\376\001\000\000\014proper-list\077\376\003\000\000\002\376\001\000\000\007call" "/cc\376\003\000\000\002\376\001\000\000\011blob-size\376\003\000\000\002\376\001\000\000\025u8vector->blob/shared\376\003\000\000\002\376\001\000\000\025s8vector->blob/sh" "ared\376\003\000\000\002\376\001\000\000\026u16vector->blob/shared\376\003\000\000\002\376\001\000\000\026s16vector->blob/shared\376\003\000\000\002\376\001\000\000\026u3" "2vector->blob/shared\376\003\000\000\002\376\001\000\000\026s32vector->blob/shared\376\003\000\000\002\376\001\000\000\026f32vector->blob/sh" "ared\376\003\000\000\002\376\001\000\000\026f64vector->blob/shared\376\003\000\000\002\376\001\000\000\025blob->u8vector/shared\376\003\000\000\002\376\001\000\000\025blo" "b->s8vector/shared\376\003\000\000\002\376\001\000\000\026blob->u16vector/shared\376\003\000\000\002\376\001\000\000\026blob->s16vector/shar" "ed\376\003\000\000\002\376\001\000\000\026blob->u32vector/shared\376\003\000\000\002\376\001\000\000\026blob->s32vector/shared\376\003\000\000\002\376\001\000\000\026blob" "->f32vector/shared\376\003\000\000\002\376\001\000\000\026blob->f64vector/shared\376\003\000\000\002\376\001\000\000\011block-ref\376\003\000\000\002\376\001\000\000\012b" "lock-set!\376\003\000\000\002\376\001\000\000\017number-of-slots\376\003\000\000\002\376\001\000\000\017substring-index\376\003\000\000\002\376\001\000\000\022substring-i" "ndex-ci\376\003\000\000\002\376\001\000\000\016hash-table-ref\376\003\000\000\002\376\001\000\000\004any\077\376\003\000\000\002\376\001\000\000\013read-string\376\003\000\000\002\376\001\000\000\013subs" "tring=\077\376\003\000\000\002\376\001\000\000\016substring-ci=\077\376\003\000\000\002\376\001\000\000\005first\376\003\000\000\002\376\001\000\000\006second\376\003\000\000\002\376\001\000\000\005third\376\003\000" "\000\002\376\001\000\000\006fourth\376\003\000\000\002\376\001\000\000\024make-record-instance\376\003\000\000\002\376\001\000\000\005foldl\376\003\000\000\002\376\001\000\000\005foldr\376\003\000\000\002\376\001" "\000\000\017u8vector-length\376\003\000\000\002\376\001\000\000\017s8vector-length\376\003\000\000\002\376\001\000\000\020u16vector-length\376\003\000\000\002\376\001\000\000\020s" "16vector-length\376\003\000\000\002\376\001\000\000\020u32vector-length\376\003\000\000\002\376\001\000\000\020s32vector-length\376\003\000\000\002\376\001\000\000\020f32" "vector-length\376\003\000\000\002\376\001\000\000\020f64vector-length\376\003\000\000\002\376\001\000\000\006setter\376\003\000\000\002\376\001\000\000\014u8vector-ref\376\003\000" "\000\002\376\001\000\000\014s8vector-ref\376\003\000\000\002\376\001\000\000\015u16vector-ref\376\003\000\000\002\376\001\000\000\015s16vector-ref\376\003\000\000\002\376\001\000\000\015u32ve" "ctor-ref\376\003\000\000\002\376\001\000\000\015s32vector-ref\376\003\000\000\002\376\001\000\000\015f32vector-ref\376\003\000\000\002\376\001\000\000\015f64vector-ref\376\003\000" "\000\002\376\001\000\000\016f32vector-set!\376\003\000\000\002\376\001\000\000\016f64vector-set!\376\003\000\000\002\376\001\000\000\015u8vector-set!\376\003\000\000\002\376\001\000\000\015s8" "vector-set!\376\003\000\000\002\376\001\000\000\016u16vector-set!\376\003\000\000\002\376\001\000\000\016s16vector-set!\376\003\000\000\002\376\001\000\000\016u32vector-s" "et!\376\003\000\000\002\376\001\000\000\016s32vector-set!\376\003\000\000\002\376\001\000\000\014locative-ref\376\003\000\000\002\376\001\000\000\015locative-set!\376\003\000\000\002\376\001\000" "\000\020locative->object\376\003\000\000\002\376\001\000\000\011locative\077\376\003\000\000\002\376\001\000\000\017pointer->object\376\003\000\000\002\376\001\000\000\007flonum\077\376" "\003\000\000\002\376\001\000\000\007finite\077\376\003\000\000\002\376\001\000\000\020address->pointer\376\003\000\000\002\376\001\000\000\020pointer->address\376\003\000\000\002\376\001\000\000\010po" "inter+\376\003\000\000\002\376\001\000\000\011pointer=\077\376\003\000\000\002\376\001\000\000\016pointer-u8-ref\376\003\000\000\002\376\001\000\000\016pointer-s8-ref\376\003\000\000\002\376\001" "\000\000\017pointer-u16-ref\376\003\000\000\002\376\001\000\000\017pointer-s16-ref\376\003\000\000\002\376\001\000\000\017pointer-u32-ref\376\003\000\000\002\376\001\000\000\017po" "inter-s32-ref\376\003\000\000\002\376\001\000\000\017pointer-f32-ref\376\003\000\000\002\376\001\000\000\017pointer-f64-ref\376\003\000\000\002\376\001\000\000\017pointer" "-u8-set!\376\003\000\000\002\376\001\000\000\017pointer-s8-set!\376\003\000\000\002\376\001\000\000\020pointer-u16-set!\376\003\000\000\002\376\001\000\000\020pointer-s16" "-set!\376\003\000\000\002\376\001\000\000\020pointer-u32-set!\376\003\000\000\002\376\001\000\000\020pointer-s32-set!\376\003\000\000\002\376\001\000\000\020pointer-f32-s" "et!\376\003\000\000\002\376\001\000\000\020pointer-f64-set!\376\003\000\000\002\376\001\000\000\022current-error-port\376\003\000\000\002\376\001\000\000\016current-threa" "d\376\003\000\000\002\376\001\000\000\006printf\376\003\000\000\002\376\001\000\000\007sprintf\376\003\000\000\002\376\001\000\000\006format\376\003\000\000\002\376\001\000\000\007fprintf\376\003\000\000\002\376\001\000\000\013get" "-keyword\376\377\016"); lf[27]=C_h_intern(&lf[27],26,"\010compilerinternal-bindings"); lf[28]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\010\003sysslot\376\003\000\000\002\376\001\000\000\013\003syssetslot\376\003\000\000\002\376\001\000\000\015\003sysblock-ref\376\003\000\000\002\376\001\000\000\016\003sysbloc" "k-set!\376\003\000\000\002\376\001\000\000\042\003syscall-with-current-continuation\376\003\000\000\002\376\001\000\000\010\003syssize\376\003\000\000\002\376\001\000\000\010\003s" "ysbyte\376\003\000\000\002\376\001\000\000\013\003syssetbyte\376\003\000\000\002\376\001\000\000\014\003syspointer\077\376\003\000\000\002\376\001\000\000\026\003sysgeneric-structure" "\077\376\003\000\000\002\376\001\000\000\016\003sysstructure\077\376\003\000\000\002\376\001\000\000\023\003syscheck-structure\376\003\000\000\002\376\001\000\000\017\003syscheck-exact\376" "\003\000\000\002\376\001\000\000\020\003syscheck-number\376\003\000\000\002\376\001\000\000\016\003syscheck-list\376\003\000\000\002\376\001\000\000\016\003syscheck-pair\376\003\000\000\002\376\001" "\000\000\020\003syscheck-string\376\003\000\000\002\376\001\000\000\020\003syscheck-symbol\376\003\000\000\002\376\001\000\000\021\003syscheck-boolean\376\003\000\000\002\376\001\000" "\000\022\003syscheck-locative\376\003\000\000\002\376\001\000\000\016\003syscheck-port\376\003\000\000\002\376\001\000\000\024\003syscheck-input-port\376\003\000\000\002\376" "\001\000\000\025\003syscheck-output-port\376\003\000\000\002\376\001\000\000\023\003syscheck-open-port\376\003\000\000\002\376\001\000\000\016\003syscheck-char\376\003" "\000\000\002\376\001\000\000\020\003syscheck-vector\376\003\000\000\002\376\001\000\000\025\003syscheck-byte-vector\376\003\000\000\002\376\001\000\000\010\003syslist\376\003\000\000\002\376\001" "\000\000\010\003syscons\376\003\000\000\002\376\001\000\000\024\003syscall-with-values\376\003\000\000\002\376\001\000\000\020\003sysfits-in-int\077\376\003\000\000\002\376\001\000\000\031\003sy" "sfits-in-unsigned-int\077\376\003\000\000\002\376\001\000\000\033\003sysflonum-in-fixnum-range\077\376\003\000\000\002\376\001\000\000\011\003sysfudge\376\003" "\000\000\002\376\001\000\000\016\003sysimmediate\077\376\003\000\000\002\376\001\000\000\022\003syscontext-switch\376\003\000\000\002\376\001\000\000\022\003sysmake-structure\376\003" "\000\000\002\376\001\000\000\011\003sysapply\376\003\000\000\002\376\001\000\000\020\003sysapply-values\376\003\000\000\002\376\001\000\000\026\003syscontinuation-graft\376\003\000\000\002" "\376\001\000\000\017\003sysbytevector\077\376\003\000\000\002\376\001\000\000\017\003sysmake-vector\376\003\000\000\002\376\001\000\000\012\003syssetter\376\003\000\000\002\376\001\000\000\007\003sysc" "ar\376\003\000\000\002\376\001\000\000\007\003syscdr\376\003\000\000\002\376\001\000\000\011\003syspair\077\376\003\000\000\002\376\001\000\000\007\003syseq\077\376\003\000\000\002\376\001\000\000\011\003syslist\077\376\003\000\000\002\376" "\001\000\000\013\003sysvector\077\376\003\000\000\002\376\001\000\000\010\003syseqv\077\376\003\000\000\002\376\001\000\000\017\003sysget-keyword\376\003\000\000\002\376\001\000\000\031\003sysforeign-" "char-argument\376\003\000\000\002\376\001\000\000\033\003sysforeign-fixnum-argument\376\003\000\000\002\376\001\000\000\033\003sysforeign-flonum-a" "rgument\376\003\000\000\002\376\001\000\000\032\003sysforeign-block-argument\376\003\000\000\002\376\001\000\000#\003sysforeign-struct-wrapper-" "argument\376\003\000\000\002\376\001\000\000\033\003sysforeign-string-argument\376\003\000\000\002\376\001\000\000\034\003sysforeign-pointer-argum" "ent\376\003\000\000\002\376\001\000\000\010\003sysvoid\376\003\000\000\002\376\001\000\000\034\003sysforeign-integer-argument\376\003\000\000\002\376\001\000\000%\003sysforeign" "-unsigned-integer-argument\376\003\000\000\002\376\001\000\000\017\003syspeek-fixnum\376\003\000\000\002\376\001\000\000\014\003syssetislot\376\003\000\000\002\376\001" "\000\000\020\003syspoke-integer\376\003\000\000\002\376\001\000\000\016\003syspermanent\077\376\003\000\000\002\376\001\000\000\012\003sysvalues\376\003\000\000\002\376\001\000\000\017\003syspok" "e-double\376\003\000\000\002\376\001\000\000\021\003sysintern-symbol\376\003\000\000\002\376\001\000\000\017\003sysmake-symbol\376\003\000\000\002\376\001\000\000\021\003sysnull-p" "ointer\077\376\003\000\000\002\376\001\000\000\015\003syspeek-byte\376\003\000\000\002\376\001\000\000\020\003sysfile-exists\077\376\377\016"); lf[29]=C_h_intern(&lf[29],30,"\010compilernon-foldable-bindings"); lf[30]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\006vector\376\003\000\000\002\376\001\000\000\004cons\376\003\000\000\002\376\001\000\000\004list\376\003\000\000\002\376\001\000\000\006string\376\003\000\000\002\376\001\000\000\013make-vecto" "r\376\003\000\000\002\376\001\000\000\013make-string\376\003\000\000\002\376\001\000\000\016string->symbol\376\003\000\000\002\376\001\000\000\006values\376\003\000\000\002\376\001\000\000\022current-" "input-port\376\003\000\000\002\376\001\000\000\023current-output-port\376\003\000\000\002\376\001\000\000\011read-char\376\003\000\000\002\376\001\000\000\012write-char\376\003" "\000\000\002\376\001\000\000\006printf\376\003\000\000\002\376\001\000\000\007fprintf\376\003\000\000\002\376\001\000\000\006format\376\003\000\000\002\376\001\000\000\005apply\376\003\000\000\002\376\001\000\000\036call-wit" "h-current-continuation\376\003\000\000\002\376\001\000\000\010set-car!\376\003\000\000\002\376\001\000\000\010set-cdr!\376\003\000\000\002\376\001\000\000\012write-char\376\003" "\000\000\002\376\001\000\000\007newline\376\003\000\000\002\376\001\000\000\005write\376\003\000\000\002\376\001\000\000\007display\376\003\000\000\002\376\001\000\000\011peek-char\376\003\000\000\002\376\001\000\000\013char" "-ready\077\376\003\000\000\002\376\001\000\000\004read\376\003\000\000\002\376\001\000\000\011read-char\376\003\000\000\002\376\001\000\000\010for-each\376\003\000\000\002\376\001\000\000\003map\376\003\000\000\002\376\001\000\000" "\013string-set!\376\003\000\000\002\376\001\000\000\013vector-set!\376\003\000\000\002\376\001\000\000\014string-fill!\376\003\000\000\002\376\001\000\000\014vector-fill!\376\003\000" "\000\002\376\001\000\000\017open-input-file\376\003\000\000\002\376\001\000\000\020open-output-file\376\003\000\000\002\376\001\000\000\020close-input-port\376\003\000\000\002\376" "\001\000\000\021close-output-port\376\003\000\000\002\376\001\000\000\024call-with-input-port\376\003\000\000\002\376\001\000\000\025call-with-output-po" "rt\376\003\000\000\002\376\001\000\000\020call-with-values\376\003\000\000\002\376\001\000\000\004eval\376\003\000\000\002\376\001\000\000\010\003sysslot\376\003\000\000\002\376\001\000\000\013\003syssetslo" "t\376\003\000\000\002\376\001\000\000\042\003syscall-with-current-continuation\376\003\000\000\002\376\001\000\000\011\003sysfudge\376\003\000\000\002\376\001\000\000\014flush-" "output\376\003\000\000\002\376\001\000\000\005print\376\003\000\000\002\376\001\000\000\004void\376\003\000\000\002\376\001\000\000\025u8vector->blob/shared\376\003\000\000\002\376\001\000\000\025s8ve" "ctor->blob/shared\376\003\000\000\002\376\001\000\000\026u16vector->blob/shared\376\003\000\000\002\376\001\000\000\026s16vector->blob/share" "d\376\003\000\000\002\376\001\000\000\026u32vector->blob/shared\376\003\000\000\002\376\001\000\000\026f32vector->blob/shared\376\003\000\000\002\376\001\000\000\026f64ve" "ctor->blob/shared\376\003\000\000\002\376\001\000\000\026s32vector->blob/shared\376\003\000\000\002\376\001\000\000\013read-string\376\003\000\000\002\376\001\000\000\014" "read-string!\376\003\000\000\002\376\001\000\000\001o\376\003\000\000\002\376\001\000\000\020address->pointer\376\003\000\000\002\376\001\000\000\020pointer->address\376\003\000\000\002" "\376\001\000\000\022\003sysmake-structure\376\003\000\000\002\376\001\000\000\006print\052\376\003\000\000\002\376\001\000\000\017\003sysmake-vector\376\003\000\000\002\376\001\000\000\011\003sysap" "ply\376\003\000\000\002\376\001\000\000\014\003syssetislot\376\003\000\000\002\376\001\000\000\015\003sysblock-ref\376\003\000\000\002\376\001\000\000\010\003sysbyte\376\003\000\000\002\376\001\000\000\013\003sys" "setbyte\376\003\000\000\002\376\001\000\000\017\003sysget-keyword\376\003\000\000\002\376\001\000\000\013get-keyword\376\003\000\000\002\376\001\000\000\017u8vector-length\376\003" "\000\000\002\376\001\000\000\017s8vector-length\376\003\000\000\002\376\001\000\000\020u16vector-length\376\003\000\000\002\376\001\000\000\020s16vector-length\376\003\000\000\002" "\376\001\000\000\020u32vector-length\376\003\000\000\002\376\001\000\000\020s32vector-length\376\003\000\000\002\376\001\000\000\020f32vector-length\376\003\000\000\002\376\001" "\000\000\020f64vector-length\376\003\000\000\002\376\001\000\000\020\003sysapply-values\376\003\000\000\002\376\001\000\000\012\003syssetter\376\003\000\000\002\376\001\000\000\006sette" "r\376\003\000\000\002\376\001\000\000\016f32vector-set!\376\003\000\000\002\376\001\000\000\016f64vector-set!\376\003\000\000\002\376\001\000\000\014u8vector-ref\376\003\000\000\002\376\001\000\000" "\014s8vector-ref\376\003\000\000\002\376\001\000\000\015u16vector-ref\376\003\000\000\002\376\001\000\000\015s16vector-ref\376\003\000\000\002\376\001\000\000\015u32vector-r" "ef\376\003\000\000\002\376\001\000\000\015s32vector-ref\376\003\000\000\002\376\001\000\000\015u8vector-set!\376\003\000\000\002\376\001\000\000\015s8vector-set!\376\003\000\000\002\376\001\000\000" "\016u16vector-set!\376\003\000\000\002\376\001\000\000\016s16vector-set!\376\003\000\000\002\376\001\000\000\016u32vector-set!\376\003\000\000\002\376\001\000\000\016s32vect" "or-set!\376\003\000\000\002\376\001\000\000\021\003sysintern-symbol\376\003\000\000\002\376\001\000\000\017\003sysmake-symbol\376\003\000\000\002\376\001\000\000\024make-record" "-instance\376\003\000\000\002\376\001\000\000\005error\376\003\000\000\002\376\001\000\000\016\003sysblock-set!\376\003\000\000\002\376\001\000\000\022current-error-port\376\003\000\000" "\002\376\001\000\000\016current-thread\376\003\000\000\002\376\001\000\000\016pointer-u8-ref\376\003\000\000\002\376\001\000\000\017pointer-u8-set!\376\003\000\000\002\376\001\000\000\016p" "ointer-s8-ref\376\003\000\000\002\376\001\000\000\017pointer-s8-set!\376\003\000\000\002\376\001\000\000\017pointer-u16-ref\376\003\000\000\002\376\001\000\000\020pointer" "-u16-set!\376\003\000\000\002\376\001\000\000\017pointer-s16-ref\376\003\000\000\002\376\001\000\000\020pointer-s16-set!\376\003\000\000\002\376\001\000\000\017pointer-u3" "2-ref\376\003\000\000\002\376\001\000\000\020pointer-u32-set!\376\003\000\000\002\376\001\000\000\017pointer-s32-ref\376\003\000\000\002\376\001\000\000\020pointer-s32-se" "t!\376\003\000\000\002\376\001\000\000\017pointer-f32-ref\376\003\000\000\002\376\001\000\000\020pointer-f32-set!\376\003\000\000\002\376\001\000\000\017pointer-f64-ref\376\003" "\000\000\002\376\001\000\000\020pointer-f64-set!\376\377\016"); lf[31]=C_h_intern(&lf[31],26,"\010compilerfoldable-bindings"); lf[32]=C_h_intern(&lf[32],6,"fixnum"); lf[33]=C_h_intern(&lf[33],11,"number-type"); lf[34]=C_h_intern(&lf[34],6,"unsafe"); lf[35]=C_h_intern(&lf[35],4,"node"); lf[36]=C_h_intern(&lf[36],11,"\004coreinline"); lf[37]=C_h_intern(&lf[37],9,"\004corecall"); lf[38]=C_h_intern(&lf[38],20,"\004coreinline_allocate"); lf[39]=C_h_intern(&lf[39],14,"\010compilerqnode"); lf[40]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\005C_eqp\376\377\016"); lf[41]=C_h_intern(&lf[41],5,"quote"); lf[42]=C_h_intern(&lf[42],13,"\004corevariable"); lf[43]=C_h_intern(&lf[43],5,"cons\052"); lf[44]=C_h_intern(&lf[44],3,"map"); lf[45]=C_h_intern(&lf[45],6,"append"); lf[46]=C_h_intern(&lf[46],7,"butlast"); lf[47]=C_h_intern(&lf[47],9,"\004coreproc"); lf[48]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\007C_apply\376\003\000\000\002\376\377\006\001\376\377\016"); lf[49]=C_h_intern(&lf[49],6,"values"); lf[50]=C_h_intern(&lf[50],10,"\003sysvalues"); lf[51]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\016C_apply_values\376\003\000\000\002\376\377\006\001\376\377\016"); lf[52]=C_h_intern(&lf[52],7,"\003sysget"); lf[53]=C_h_intern(&lf[53],18,"\010compilerintrinsic"); lf[54]=C_h_intern(&lf[54],4,"last"); lf[55]=C_h_intern(&lf[55],30,"call-with-current-continuation"); lf[56]=C_h_intern(&lf[56],16,"\010compilerrewrite"); lf[57]=C_h_intern(&lf[57],11,"\004corelambda"); lf[58]=C_h_intern(&lf[58],3,"let"); lf[59]=C_h_intern(&lf[59],16,"\010compilervarnode"); lf[60]=C_h_intern(&lf[60],6,"gensym"); lf[61]=C_h_intern(&lf[61],2,"f_"); lf[62]=C_h_intern(&lf[62],18,"\010compilerdebugging"); lf[63]=C_h_intern(&lf[63],1,"o"); lf[64]=C_decode_literal(C_heaptop,"\376B\000\000)removing single-valued `call-with-values\047"); lf[65]=C_h_intern(&lf[65],1,"r"); lf[66]=C_h_intern(&lf[66],12,"\010compilerget"); lf[67]=C_h_intern(&lf[67],5,"value"); lf[68]=C_h_intern(&lf[68],14,"\004coreundefined"); lf[69]=C_decode_literal(C_heaptop,"\376B\000\000\014C_a_i_vector"); lf[70]=C_h_intern(&lf[70],13,"list-tabulate"); lf[71]=C_h_intern(&lf[71],16,"inline-transient"); lf[72]=C_h_intern(&lf[72],8,"assigned"); lf[73]=C_h_intern(&lf[73],10,"references"); lf[74]=C_h_intern(&lf[74],30,"\010compilerdecompose-lambda-list"); lf[75]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\012C_a_i_cons\376\003\000\000\002\376\377\001\000\000\000\003\376\377\016"); lf[76]=C_h_intern(&lf[76],5,"xcons"); lf[77]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\012C_a_i_cons\376\003\000\000\002\376\377\001\000\000\000\003\376\377\016"); lf[78]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\012C_a_i_cons\376\003\000\000\002\376\377\001\000\000\000\003\376\377\016"); lf[79]=C_h_intern(&lf[79],10,"alist-cons"); lf[80]=C_h_intern(&lf[80],15,"\003sysget-keyword"); lf[81]=C_decode_literal(C_heaptop,"\376B\000\000\017C_i_get_keyword"); lf[82]=C_h_intern(&lf[82],11,"get-keyword"); lf[83]=C_decode_literal(C_heaptop,"\376B\000\000\017C_i_get_keyword"); lf[84]=C_h_intern(&lf[84],18,"substring-index-ci"); lf[85]=C_h_intern(&lf[85],22,"\003syssubstring-index-ci"); lf[86]=C_h_intern(&lf[86],15,"substring-index"); lf[87]=C_h_intern(&lf[87],19,"\003syssubstring-index"); lf[88]=C_h_intern(&lf[88],14,"substring-ci=\077"); lf[89]=C_h_intern(&lf[89],18,"\003syssubstring-ci=\077"); lf[90]=C_h_intern(&lf[90],11,"substring=\077"); lf[91]=C_h_intern(&lf[91],15,"\003syssubstring=\077"); lf[92]=C_h_intern(&lf[92],11,"read-string"); lf[93]=C_h_intern(&lf[93],20,"\003sysread-string/port"); lf[94]=C_h_intern(&lf[94],18,"\003sysstandard-input"); lf[95]=C_h_intern(&lf[95],10,"write-char"); lf[96]=C_h_intern(&lf[96],19,"\003syswrite-char/port"); lf[97]=C_h_intern(&lf[97],19,"\003sysstandard-output"); lf[98]=C_h_intern(&lf[98],9,"read-char"); lf[99]=C_h_intern(&lf[99],18,"\003sysread-char/port"); lf[100]=C_decode_literal(C_heaptop,"\376B\000\000\016C_u_i_bit_setp"); lf[101]=C_decode_literal(C_heaptop,"\376B\000\000\014C_i_bit_setp"); lf[102]=C_h_intern(&lf[102],8,"bit-set\077"); lf[103]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\006C_anyp\376\377\016"); lf[104]=C_h_intern(&lf[104],6,"global"); lf[105]=C_h_intern(&lf[105],4,"any\077"); lf[106]=C_h_intern(&lf[106],18,"current-error-port"); lf[107]=C_h_intern(&lf[107],18,"\003sysstandard-error"); lf[108]=C_h_intern(&lf[108],19,"current-output-port"); lf[109]=C_h_intern(&lf[109],18,"current-input-port"); lf[110]=C_h_intern(&lf[110],14,"current-thread"); lf[111]=C_h_intern(&lf[111],18,"\003syscurrent-thread"); lf[112]=C_h_intern(&lf[112],8,"\003sysvoid"); lf[113]=C_h_intern(&lf[113],19,"\003sysundefined-value"); lf[114]=C_h_intern(&lf[114],4,"void"); lf[115]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003car\376\001\000\000\010set-car!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003cdr\376\001\000\000\010set-cdr!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016has" "h-table-ref\376\001\000\000\017hash-table-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011block-ref\376\001\000\000\012block-set!\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\014locative-ref\376\001\000\000\015locative-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014u8vector-ref\376\001\000\000\015u8vector-set!" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014s8vector-ref\376\001\000\000\015s8vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015u16vector-ref\376\001\000\000\016u1" "6vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015s16vector-ref\376\001\000\000\016s16vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015u32vec" "tor-ref\376\001\000\000\016u32vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015s32vector-ref\376\001\000\000\016s32vector-set!\376\003\000\000\002\376\003" "\000\000\002\376\001\000\000\015f32vector-ref\376\001\000\000\016f32vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015f64vector-ref\376\001\000\000\016f64vect" "or-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016pointer-u8-ref\376\001\000\000\017pointer-u8-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016pointer-s" "8-ref\376\001\000\000\017pointer-s8-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017pointer-u16-ref\376\001\000\000\020pointer-u16-set!\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\017pointer-s16-ref\376\001\000\000\020pointer-s16-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017pointer-u32-ref\376\001\000" "\000\020pointer-u32-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017pointer-s32-ref\376\001\000\000\020pointer-s32-set!\376\003\000\000\002\376\003\000\000\002\376" "\001\000\000\017pointer-f32-ref\376\001\000\000\020pointer-f32-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017pointer-f64-ref\376\001\000\000\020point" "er-f64-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012string-ref\376\001\000\000\013string-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012vector-ref\376\001\000" "\000\013vector-set!\376\377\016"); lf[116]=C_h_intern(&lf[116],10,"\003syssetter"); lf[117]=C_h_intern(&lf[117],7,"call/cc"); lf[118]=C_h_intern(&lf[118],20,"thread-specific-set!"); lf[119]=C_decode_literal(C_heaptop,"\376B\000\000\013C_i_setslot"); lf[120]=C_h_intern(&lf[120],15,"thread-specific"); lf[121]=C_decode_literal(C_heaptop,"\376B\000\000\006C_slot"); lf[122]=C_h_intern(&lf[122],15,"\003sysmake-vector"); lf[123]=C_h_intern(&lf[123],11,"make-vector"); lf[124]=C_h_intern(&lf[124],22,"f64vector->blob/shared"); lf[125]=C_decode_literal(C_heaptop,"\376B\000\000\006C_slot"); lf[126]=C_h_intern(&lf[126],22,"f32vector->blob/shared"); lf[127]=C_decode_literal(C_heaptop,"\376B\000\000\006C_slot"); lf[128]=C_h_intern(&lf[128],22,"s32vector->blob/shared"); lf[129]=C_decode_literal(C_heaptop,"\376B\000\000\006C_slot"); lf[130]=C_h_intern(&lf[130],22,"u32vector->blob/shared"); lf[131]=C_decode_literal(C_heaptop,"\376B\000\000\006C_slot"); lf[132]=C_h_intern(&lf[132],22,"s16vector->blob/shared"); lf[133]=C_decode_literal(C_heaptop,"\376B\000\000\006C_slot"); lf[134]=C_h_intern(&lf[134],22,"u16vector->blob/shared"); lf[135]=C_decode_literal(C_heaptop,"\376B\000\000\006C_slot"); lf[136]=C_h_intern(&lf[136],21,"s8vector->blob/shared"); lf[137]=C_decode_literal(C_heaptop,"\376B\000\000\006C_slot"); lf[138]=C_h_intern(&lf[138],21,"u8vector->blob/shared"); lf[139]=C_decode_literal(C_heaptop,"\376B\000\000\006C_slot"); lf[140]=C_h_intern(&lf[140],10,"null-list\077"); lf[141]=C_decode_literal(C_heaptop,"\376B\000\000\017C_i_null_list_p"); lf[142]=C_decode_literal(C_heaptop,"\376B\000\000\011C_i_nullp"); lf[143]=C_h_intern(&lf[143],5,"atom\077"); lf[144]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_not_pair_p"); lf[145]=C_h_intern(&lf[145],9,"not-pair\077"); lf[146]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_not_pair_p"); lf[147]=C_h_intern(&lf[147],16,"f64vector-length"); lf[148]=C_decode_literal(C_heaptop,"\376B\000\000\025C_u_i_64vector_length"); lf[149]=C_h_intern(&lf[149],16,"f32vector-length"); lf[150]=C_decode_literal(C_heaptop,"\376B\000\000\025C_u_i_32vector_length"); lf[151]=C_h_intern(&lf[151],16,"s32vector-length"); lf[152]=C_decode_literal(C_heaptop,"\376B\000\000\025C_u_i_32vector_length"); lf[153]=C_h_intern(&lf[153],16,"u32vector-length"); lf[154]=C_decode_literal(C_heaptop,"\376B\000\000\025C_u_i_32vector_length"); lf[155]=C_h_intern(&lf[155],16,"s16vector-length"); lf[156]=C_decode_literal(C_heaptop,"\376B\000\000\025C_u_i_16vector_length"); lf[157]=C_h_intern(&lf[157],16,"u16vector-length"); lf[158]=C_decode_literal(C_heaptop,"\376B\000\000\025C_u_i_16vector_length"); lf[159]=C_h_intern(&lf[159],15,"s8vector-length"); lf[160]=C_decode_literal(C_heaptop,"\376B\000\000\024C_u_i_8vector_length"); lf[161]=C_h_intern(&lf[161],15,"u8vector-length"); lf[162]=C_decode_literal(C_heaptop,"\376B\000\000\024C_u_i_8vector_length"); lf[163]=C_h_intern(&lf[163],14,"f64vector-set!"); lf[164]=C_decode_literal(C_heaptop,"\376B\000\000\023C_u_i_f64vector_set"); lf[165]=C_h_intern(&lf[165],14,"f32vector-set!"); lf[166]=C_decode_literal(C_heaptop,"\376B\000\000\023C_u_i_f32vector_set"); lf[167]=C_h_intern(&lf[167],14,"s32vector-set!"); lf[168]=C_decode_literal(C_heaptop,"\376B\000\000\023C_u_i_s32vector_set"); lf[169]=C_h_intern(&lf[169],14,"u32vector-set!"); lf[170]=C_decode_literal(C_heaptop,"\376B\000\000\023C_u_i_u32vector_set"); lf[171]=C_h_intern(&lf[171],14,"s16vector-set!"); lf[172]=C_decode_literal(C_heaptop,"\376B\000\000\023C_u_i_s16vector_set"); lf[173]=C_h_intern(&lf[173],14,"u16vector-set!"); lf[174]=C_decode_literal(C_heaptop,"\376B\000\000\023C_u_i_u16vector_set"); lf[175]=C_h_intern(&lf[175],13,"s8vector-set!"); lf[176]=C_decode_literal(C_heaptop,"\376B\000\000\022C_u_i_s8vector_set"); lf[177]=C_h_intern(&lf[177],13,"u8vector-set!"); lf[178]=C_decode_literal(C_heaptop,"\376B\000\000\022C_u_i_u8vector_set"); lf[179]=C_h_intern(&lf[179],13,"s32vector-ref"); lf[180]=C_decode_literal(C_heaptop,"\376B\000\000\025C_a_u_i_s32vector_ref"); lf[181]=C_decode_literal(C_heaptop,"\376B\000\000\023C_u_i_s32vector_ref"); lf[182]=C_h_intern(&lf[182],13,"u32vector-ref"); lf[183]=C_decode_literal(C_heaptop,"\376B\000\000\025C_a_u_i_u32vector_ref"); lf[184]=C_decode_literal(C_heaptop,"\376B\000\000\023C_u_i_u32vector_ref"); lf[185]=C_h_intern(&lf[185],13,"f64vector-ref"); lf[186]=C_decode_literal(C_heaptop,"\376B\000\000\025C_a_u_i_f64vector_ref"); lf[187]=C_h_intern(&lf[187],13,"f32vector-ref"); lf[188]=C_decode_literal(C_heaptop,"\376B\000\000\025C_a_u_i_f32vector_ref"); lf[189]=C_h_intern(&lf[189],13,"s16vector-ref"); lf[190]=C_decode_literal(C_heaptop,"\376B\000\000\023C_u_i_s16vector_ref"); lf[191]=C_h_intern(&lf[191],13,"u16vector-ref"); lf[192]=C_decode_literal(C_heaptop,"\376B\000\000\023C_u_i_u16vector_ref"); lf[193]=C_h_intern(&lf[193],12,"s8vector-ref"); lf[194]=C_decode_literal(C_heaptop,"\376B\000\000\022C_u_i_s8vector_ref"); lf[195]=C_h_intern(&lf[195],12,"u8vector-ref"); lf[196]=C_decode_literal(C_heaptop,"\376B\000\000\022C_u_i_u8vector_ref"); lf[197]=C_h_intern(&lf[197],9,"blob-size"); lf[198]=C_decode_literal(C_heaptop,"\376B\000\000\014C_block_size"); lf[199]=C_h_intern(&lf[199],37,"\003sysforeign-unsigned-integer-argument"); lf[200]=C_decode_literal(C_heaptop,"\376B\000\000&C_i_foreign_unsigned_integer_argumentp"); lf[201]=C_h_intern(&lf[201],28,"\003sysforeign-integer-argument"); lf[202]=C_decode_literal(C_heaptop,"\376B\000\000\035C_i_foreign_integer_argumentp"); lf[203]=C_h_intern(&lf[203],28,"\003sysforeign-pointer-argument"); lf[204]=C_decode_literal(C_heaptop,"\376B\000\000\035C_i_foreign_pointer_argumentp"); lf[205]=C_h_intern(&lf[205],27,"\003sysforeign-string-argument"); lf[206]=C_decode_literal(C_heaptop,"\376B\000\000\034C_i_foreign_string_argumentp"); lf[207]=C_h_intern(&lf[207],35,"\003sysforeign-struct-wrapper-argument"); lf[208]=C_decode_literal(C_heaptop,"\376B\000\000$C_i_foreign_struct_wrapper_argumentp"); lf[209]=C_h_intern(&lf[209],26,"\003sysforeign-block-argument"); lf[210]=C_decode_literal(C_heaptop,"\376B\000\000\033C_i_foreign_block_argumentp"); lf[211]=C_h_intern(&lf[211],27,"\003sysforeign-flonum-argument"); lf[212]=C_decode_literal(C_heaptop,"\376B\000\000\034C_i_foreign_flonum_argumentp"); lf[213]=C_h_intern(&lf[213],25,"\003sysforeign-char-argument"); lf[214]=C_decode_literal(C_heaptop,"\376B\000\000\032C_i_foreign_char_argumentp"); lf[215]=C_h_intern(&lf[215],27,"\003sysforeign-fixnum-argument"); lf[216]=C_decode_literal(C_heaptop,"\376B\000\000\034C_i_foreign_fixnum_argumentp"); lf[217]=C_h_intern(&lf[217],13,"locative-set!"); lf[218]=C_decode_literal(C_heaptop,"\376B\000\000\020C_i_locative_set"); lf[219]=C_h_intern(&lf[219],16,"locative->object"); lf[220]=C_decode_literal(C_heaptop,"\376B\000\000\026C_i_locative_to_object"); lf[221]=C_h_intern(&lf[221],14,"\003sysimmediate\077"); lf[222]=C_decode_literal(C_heaptop,"\376B\000\000\006C_immp"); lf[223]=C_h_intern(&lf[223],17,"\003sysnull-pointer\077"); lf[224]=C_decode_literal(C_heaptop,"\376B\000\000\017C_null_pointerp"); lf[225]=C_decode_literal(C_heaptop,"\376B\000\000\017C_null_pointerp"); lf[226]=C_h_intern(&lf[226],14,"\003syspermanent\077"); lf[227]=C_decode_literal(C_heaptop,"\376B\000\000\014C_permanentp"); lf[228]=C_h_intern(&lf[228],27,"\003sysflonum-in-fixnum-range\077"); lf[229]=C_decode_literal(C_heaptop,"\376B\000\000\032C_flonum_in_fixnum_range_p"); lf[230]=C_h_intern(&lf[230],25,"\003sysfits-in-unsigned-int\077"); lf[231]=C_decode_literal(C_heaptop,"\376B\000\000\030C_fits_in_unsigned_int_p"); lf[232]=C_h_intern(&lf[232],16,"\003sysfits-in-int\077"); lf[233]=C_decode_literal(C_heaptop,"\376B\000\000\017C_fits_in_int_p"); lf[234]=C_h_intern(&lf[234],9,"\003sysfudge"); lf[235]=C_decode_literal(C_heaptop,"\376B\000\000\007C_fudge"); lf[236]=C_h_intern(&lf[236],11,"string-ci=\077"); lf[237]=C_decode_literal(C_heaptop,"\376B\000\000\025C_i_string_ci_equal_p"); lf[238]=C_h_intern(&lf[238],8,"string=\077"); lf[239]=C_decode_literal(C_heaptop,"\376B\000\000\022C_i_string_equal_p"); lf[240]=C_decode_literal(C_heaptop,"\376B\000\000\024C_u_i_string_equal_p"); lf[241]=C_h_intern(&lf[241],15,"\003syspoke-double"); lf[242]=C_decode_literal(C_heaptop,"\376B\000\000\015C_poke_double"); lf[243]=C_h_intern(&lf[243],16,"\003syspoke-integer"); lf[244]=C_decode_literal(C_heaptop,"\376B\000\000\016C_poke_integer"); lf[245]=C_h_intern(&lf[245],12,"\003syssetislot"); lf[246]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_set_i_slot"); lf[247]=C_h_intern(&lf[247],15,"pointer->object"); lf[248]=C_decode_literal(C_heaptop,"\376B\000\000\023C_pointer_to_object"); lf[249]=C_h_intern(&lf[249],13,"\003syspeek-byte"); lf[250]=C_decode_literal(C_heaptop,"\376B\000\000\013C_peek_byte"); lf[251]=C_h_intern(&lf[251],15,"\003syspeek-fixnum"); lf[252]=C_decode_literal(C_heaptop,"\376B\000\000\015C_peek_fixnum"); lf[253]=C_h_intern(&lf[253],11,"\003syssetbyte"); lf[254]=C_decode_literal(C_heaptop,"\376B\000\000\011C_setbyte"); lf[255]=C_h_intern(&lf[255],8,"\003sysbyte"); lf[256]=C_decode_literal(C_heaptop,"\376B\000\000\011C_subbyte"); lf[257]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\033C_i_fixnum_arithmetic_shift\376\377\016"); lf[258]=C_decode_literal(C_heaptop,"\376B\000\000\026C_a_i_arithmetic_shift"); lf[259]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\024C_fixnum_shift_right\376\377\016"); lf[260]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\023C_fixnum_shift_left\376\377\016"); lf[261]=C_h_intern(&lf[261],20,"\010compilerbig-fixnum\077"); lf[262]=C_h_intern(&lf[262],16,"arithmetic-shift"); lf[263]=C_h_intern(&lf[263],5,"fxmod"); lf[264]=C_decode_literal(C_heaptop,"\376B\000\000\017C_fixnum_modulo"); lf[265]=C_decode_literal(C_heaptop,"\376B\000\000\021C_u_fixnum_modulo"); lf[266]=C_h_intern(&lf[266],3,"fx/"); lf[267]=C_decode_literal(C_heaptop,"\376B\000\000\017C_fixnum_divide"); lf[268]=C_decode_literal(C_heaptop,"\376B\000\000\021C_u_fixnum_divide"); lf[269]=C_h_intern(&lf[269],5,"fxior"); lf[270]=C_decode_literal(C_heaptop,"\376B\000\000\013C_fixnum_or"); lf[271]=C_decode_literal(C_heaptop,"\376B\000\000\015C_u_fixnum_or"); lf[272]=C_h_intern(&lf[272],5,"fxand"); lf[273]=C_decode_literal(C_heaptop,"\376B\000\000\014C_fixnum_and"); lf[274]=C_decode_literal(C_heaptop,"\376B\000\000\016C_u_fixnum_and"); lf[275]=C_h_intern(&lf[275],5,"fxxor"); lf[276]=C_decode_literal(C_heaptop,"\376B\000\000\014C_fixnum_xor"); lf[277]=C_decode_literal(C_heaptop,"\376B\000\000\014C_fixnum_xor"); lf[278]=C_h_intern(&lf[278],5,"fxneg"); lf[279]=C_decode_literal(C_heaptop,"\376B\000\000\017C_fixnum_negate"); lf[280]=C_decode_literal(C_heaptop,"\376B\000\000\021C_u_fixnum_negate"); lf[281]=C_h_intern(&lf[281],5,"fxshr"); lf[282]=C_decode_literal(C_heaptop,"\376B\000\000\024C_fixnum_shift_right"); lf[283]=C_h_intern(&lf[283],5,"fxshl"); lf[284]=C_decode_literal(C_heaptop,"\376B\000\000\023C_fixnum_shift_left"); lf[285]=C_h_intern(&lf[285],3,"fx-"); lf[286]=C_decode_literal(C_heaptop,"\376B\000\000\023C_fixnum_difference"); lf[287]=C_decode_literal(C_heaptop,"\376B\000\000\025C_u_fixnum_difference"); lf[288]=C_h_intern(&lf[288],3,"fx+"); lf[289]=C_decode_literal(C_heaptop,"\376B\000\000\015C_fixnum_plus"); lf[290]=C_decode_literal(C_heaptop,"\376B\000\000\017C_u_fixnum_plus"); lf[291]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\016C_i_set_i_slot\376\377\016"); lf[292]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\013C_i_setslot\376\377\016"); lf[293]=C_h_intern(&lf[293],19,"\010compilerimmediate\077"); lf[294]=C_h_intern(&lf[294],11,"\003syssetslot"); lf[295]=C_h_intern(&lf[295],15,"pointer-f64-ref"); lf[296]=C_decode_literal(C_heaptop,"\376B\000\000\027C_a_u_i_pointer_f64_ref"); lf[297]=C_h_intern(&lf[297],15,"pointer-f32-ref"); lf[298]=C_decode_literal(C_heaptop,"\376B\000\000\027C_a_u_i_pointer_f32_ref"); lf[299]=C_h_intern(&lf[299],15,"pointer-s32-ref"); lf[300]=C_decode_literal(C_heaptop,"\376B\000\000\027C_a_u_i_pointer_s32_ref"); lf[301]=C_h_intern(&lf[301],15,"pointer-u32-ref"); lf[302]=C_decode_literal(C_heaptop,"\376B\000\000\027C_a_u_i_pointer_u32_ref"); lf[303]=C_h_intern(&lf[303],16,"pointer-f64-set!"); lf[304]=C_decode_literal(C_heaptop,"\376B\000\000\025C_u_i_pointer_f64_set"); lf[305]=C_h_intern(&lf[305],16,"pointer-f32-set!"); lf[306]=C_decode_literal(C_heaptop,"\376B\000\000\025C_u_i_pointer_f32_set"); lf[307]=C_h_intern(&lf[307],16,"pointer-s32-set!"); lf[308]=C_decode_literal(C_heaptop,"\376B\000\000\025C_u_i_pointer_s32_set"); lf[309]=C_h_intern(&lf[309],16,"pointer-u32-set!"); lf[310]=C_decode_literal(C_heaptop,"\376B\000\000\025C_u_i_pointer_u32_set"); lf[311]=C_h_intern(&lf[311],16,"pointer-s16-set!"); lf[312]=C_decode_literal(C_heaptop,"\376B\000\000\025C_u_i_pointer_s16_set"); lf[313]=C_h_intern(&lf[313],16,"pointer-u16-set!"); lf[314]=C_decode_literal(C_heaptop,"\376B\000\000\025C_u_i_pointer_u16_set"); lf[315]=C_h_intern(&lf[315],15,"pointer-s8-set!"); lf[316]=C_decode_literal(C_heaptop,"\376B\000\000\024C_u_i_pointer_s8_set"); lf[317]=C_h_intern(&lf[317],15,"pointer-u8-set!"); lf[318]=C_decode_literal(C_heaptop,"\376B\000\000\024C_u_i_pointer_u8_set"); lf[319]=C_h_intern(&lf[319],15,"pointer-s16-ref"); lf[320]=C_decode_literal(C_heaptop,"\376B\000\000\025C_u_i_pointer_s16_ref"); lf[321]=C_h_intern(&lf[321],15,"pointer-u16-ref"); lf[322]=C_decode_literal(C_heaptop,"\376B\000\000\025C_u_i_pointer_u16_ref"); lf[323]=C_h_intern(&lf[323],14,"pointer-s8-ref"); lf[324]=C_decode_literal(C_heaptop,"\376B\000\000\024C_u_i_pointer_s8_ref"); lf[325]=C_h_intern(&lf[325],14,"pointer-u8-ref"); lf[326]=C_decode_literal(C_heaptop,"\376B\000\000\024C_u_i_pointer_u8_ref"); lf[327]=C_h_intern(&lf[327],12,"locative-ref"); lf[328]=C_decode_literal(C_heaptop,"\376B\000\000\022C_a_i_locative_ref"); lf[329]=C_h_intern(&lf[329],8,"pointer+"); lf[330]=C_decode_literal(C_heaptop,"\376B\000\000\023C_a_u_i_pointer_inc"); lf[331]=C_h_intern(&lf[331],16,"pointer->address"); lf[332]=C_decode_literal(C_heaptop,"\376B\000\000\030C_a_i_pointer_to_address"); lf[333]=C_h_intern(&lf[333],16,"address->pointer"); lf[334]=C_decode_literal(C_heaptop,"\376B\000\000\030C_a_i_address_to_pointer"); lf[335]=C_h_intern(&lf[335],6,"string"); lf[336]=C_decode_literal(C_heaptop,"\376B\000\000\014C_a_i_string"); lf[337]=C_h_intern(&lf[337],18,"\003sysmake-structure"); lf[338]=C_decode_literal(C_heaptop,"\376B\000\000\014C_a_i_record"); lf[339]=C_h_intern(&lf[339],10,"\003sysvector"); lf[340]=C_decode_literal(C_heaptop,"\376B\000\000\014C_a_i_vector"); lf[341]=C_h_intern(&lf[341],6,"vector"); lf[342]=C_decode_literal(C_heaptop,"\376B\000\000\014C_a_i_vector"); lf[343]=C_h_intern(&lf[343],8,"\003syslist"); lf[344]=C_decode_literal(C_heaptop,"\376B\000\000\012C_a_i_list"); lf[345]=C_decode_literal(C_heaptop,"\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[346]=C_h_intern(&lf[346],4,"list"); lf[347]=C_decode_literal(C_heaptop,"\376B\000\000\012C_a_i_list"); lf[348]=C_decode_literal(C_heaptop,"\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],8,"\003syscons"); lf[350]=C_decode_literal(C_heaptop,"\376B\000\000\012C_a_i_cons"); lf[351]=C_h_intern(&lf[351],4,"cons"); lf[352]=C_decode_literal(C_heaptop,"\376B\000\000\012C_a_i_cons"); lf[353]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\026C_a_i_string_to_number\376\003\000\000\002\376\377\001\000\000\000\004\376\377\016"); lf[354]=C_h_intern(&lf[354],14,"string->number"); lf[355]=C_h_intern(&lf[355],7,"fpround"); lf[356]=C_decode_literal(C_heaptop,"\376B\000\000\022C_a_i_flonum_floor"); lf[357]=C_h_intern(&lf[357],9,"fpceiling"); lf[358]=C_decode_literal(C_heaptop,"\376B\000\000\024C_a_i_flonum_ceiling"); lf[359]=C_decode_literal(C_heaptop,"\376B\000\000\022C_a_i_flonum_round"); lf[360]=C_h_intern(&lf[360],10,"fptruncate"); lf[361]=C_decode_literal(C_heaptop,"\376B\000\000\025C_a_i_flonum_truncate"); lf[362]=C_h_intern(&lf[362],5,"fpabs"); lf[363]=C_decode_literal(C_heaptop,"\376B\000\000\020C_a_i_flonum_abs"); lf[364]=C_h_intern(&lf[364],6,"fpsqrt"); lf[365]=C_decode_literal(C_heaptop,"\376B\000\000\021C_a_i_flonum_sqrt"); lf[366]=C_h_intern(&lf[366],5,"fplog"); lf[367]=C_decode_literal(C_heaptop,"\376B\000\000\020C_a_i_flonum_log"); lf[368]=C_h_intern(&lf[368],6,"fpexpt"); lf[369]=C_decode_literal(C_heaptop,"\376B\000\000\021C_a_i_flonum_expt"); lf[370]=C_h_intern(&lf[370],5,"fpexp"); lf[371]=C_decode_literal(C_heaptop,"\376B\000\000\020C_a_i_flonum_exp"); lf[372]=C_h_intern(&lf[372],7,"fpatan2"); lf[373]=C_decode_literal(C_heaptop,"\376B\000\000\022C_a_i_flonum_atan2"); lf[374]=C_h_intern(&lf[374],6,"fpatan"); lf[375]=C_decode_literal(C_heaptop,"\376B\000\000\021C_a_i_flonum_atan"); lf[376]=C_h_intern(&lf[376],6,"fpacos"); lf[377]=C_decode_literal(C_heaptop,"\376B\000\000\021C_a_i_flonum_acos"); lf[378]=C_h_intern(&lf[378],6,"fpasin"); lf[379]=C_decode_literal(C_heaptop,"\376B\000\000\021C_a_i_flonum_asin"); lf[380]=C_h_intern(&lf[380],5,"fptan"); lf[381]=C_decode_literal(C_heaptop,"\376B\000\000\020C_a_i_flonum_tan"); lf[382]=C_h_intern(&lf[382],5,"fpcos"); lf[383]=C_decode_literal(C_heaptop,"\376B\000\000\020C_a_i_flonum_cos"); lf[384]=C_h_intern(&lf[384],5,"fpsin"); lf[385]=C_decode_literal(C_heaptop,"\376B\000\000\020C_a_i_flonum_sin"); lf[386]=C_h_intern(&lf[386],8,"truncate"); lf[387]=C_h_intern(&lf[387],6,"flonum"); lf[388]=C_h_intern(&lf[388],7,"ceiling"); lf[389]=C_h_intern(&lf[389],5,"floor"); lf[390]=C_h_intern(&lf[390],7,"fpfloor"); lf[391]=C_h_intern(&lf[391],7,"fxeven\077"); lf[392]=C_decode_literal(C_heaptop,"\376B\000\000\017C_i_fixnumevenp"); lf[393]=C_h_intern(&lf[393],6,"fxodd\077"); lf[394]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_fixnumoddp"); lf[395]=C_h_intern(&lf[395],4,"odd\077"); lf[396]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_oddp"); lf[397]=C_decode_literal(C_heaptop,"\376B\000\000\012C_u_i_oddp"); lf[398]=C_h_intern(&lf[398],5,"even\077"); lf[399]=C_decode_literal(C_heaptop,"\376B\000\000\011C_i_evenp"); lf[400]=C_decode_literal(C_heaptop,"\376B\000\000\013C_u_i_evenp"); lf[401]=C_h_intern(&lf[401],9,"remainder"); lf[402]=C_decode_literal(C_heaptop,"\376B\000\000\017C_fixnum_modulo"); lf[403]=C_decode_literal(C_heaptop,"\376B\000\000\017C_fixnum_modulo"); lf[404]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_fixnumoddp"); lf[405]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_fixnumoddp"); lf[406]=C_decode_literal(C_heaptop,"\376B\000\000\017C_i_fixnumevenp"); lf[407]=C_decode_literal(C_heaptop,"\376B\000\000\017C_i_fixnumevenp"); lf[408]=C_h_intern(&lf[408],15,"\003sysmake-symbol"); lf[409]=C_decode_literal(C_heaptop,"\376B\000\000\015C_make_symbol"); lf[410]=C_h_intern(&lf[410],17,"\003sysintern-symbol"); lf[411]=C_decode_literal(C_heaptop,"\376B\000\000\022C_string_to_symbol"); lf[412]=C_h_intern(&lf[412],18,"\003syscontext-switch"); lf[413]=C_decode_literal(C_heaptop,"\376B\000\000\020C_context_switch"); lf[414]=C_h_intern(&lf[414],14,"return-to-host"); lf[415]=C_decode_literal(C_heaptop,"\376B\000\000\020C_return_to_host"); lf[416]=C_h_intern(&lf[416],23,"\003sysensure-heap-reserve"); lf[417]=C_decode_literal(C_heaptop,"\376B\000\000\025C_ensure_heap_reserve"); lf[418]=C_h_intern(&lf[418],19,"\003sysallocate-vector"); lf[419]=C_decode_literal(C_heaptop,"\376B\000\000\021C_allocate_vector"); lf[420]=C_h_intern(&lf[420],34,"\003syscall-with-current-continuation"); lf[421]=C_decode_literal(C_heaptop,"\376B\000\000\011C_call_cc"); lf[422]=C_h_intern(&lf[422],14,"number->string"); lf[423]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\001\000\000\000\001\376\377\001\000\000\000\002"); lf[424]=C_decode_literal(C_heaptop,"\376B\000\000\022C_number_to_string"); lf[425]=C_h_intern(&lf[425],1,"-"); lf[426]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\001\000\000\000\001\376\377\006\000"); lf[427]=C_decode_literal(C_heaptop,"\376B\000\000\007C_minus"); lf[428]=C_h_intern(&lf[428],1,"/"); lf[429]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\001\000\000\000\001\376\377\006\000"); lf[430]=C_decode_literal(C_heaptop,"\376B\000\000\010C_divide"); lf[431]=C_h_intern(&lf[431],1,"+"); lf[432]=C_decode_literal(C_heaptop,"\376B\000\000\006C_plus"); lf[433]=C_h_intern(&lf[433],1,"\052"); lf[434]=C_decode_literal(C_heaptop,"\376B\000\000\007C_times"); lf[435]=C_h_intern(&lf[435],2,"<="); lf[436]=C_decode_literal(C_heaptop,"\376B\000\000\021C_less_or_equal_p"); lf[437]=C_h_intern(&lf[437],2,">="); lf[438]=C_decode_literal(C_heaptop,"\376B\000\000\024C_greater_or_equal_p"); lf[439]=C_h_intern(&lf[439],1,"<"); lf[440]=C_decode_literal(C_heaptop,"\376B\000\000\007C_lessp"); lf[441]=C_h_intern(&lf[441],1,">"); lf[442]=C_decode_literal(C_heaptop,"\376B\000\000\012C_greaterp"); lf[443]=C_h_intern(&lf[443],1,"="); lf[444]=C_decode_literal(C_heaptop,"\376B\000\000\011C_nequalp"); lf[445]=C_decode_literal(C_heaptop,"\376B\000\000\022C_i_less_or_equalp"); lf[446]=C_decode_literal(C_heaptop,"\376B\000\000\025C_i_greater_or_equalp"); lf[447]=C_decode_literal(C_heaptop,"\376B\000\000\011C_i_lessp"); lf[448]=C_decode_literal(C_heaptop,"\376B\000\000\014C_i_greaterp"); lf[449]=C_decode_literal(C_heaptop,"\376B\000\000\013C_i_nequalp"); lf[450]=C_h_intern(&lf[450],14,"exact->inexact"); lf[451]=C_decode_literal(C_heaptop,"\376B\000\000\026C_a_i_exact_to_inexact"); lf[452]=C_decode_literal(C_heaptop,"\376B\000\000\014C_a_i_divide"); lf[453]=C_decode_literal(C_heaptop,"\376B\000\000\013C_a_i_minus"); lf[454]=C_decode_literal(C_heaptop,"\376B\000\000\012C_a_i_plus"); lf[455]=C_decode_literal(C_heaptop,"\376B\000\000\013C_a_i_times"); lf[456]=C_h_intern(&lf[456],3,"lcm"); lf[457]=C_h_intern(&lf[457],3,"gcd"); lf[458]=C_h_intern(&lf[458],8,"identity"); lf[459]=C_h_intern(&lf[459],7,"\003syslcm"); lf[460]=C_h_intern(&lf[460],7,"\003sysgcd"); lf[461]=C_h_intern(&lf[461],11,"vector-set!"); lf[462]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_vector_set"); lf[463]=C_h_intern(&lf[463],12,"list->string"); lf[464]=C_h_intern(&lf[464],16,"\003syslist->string"); lf[465]=C_h_intern(&lf[465],12,"string->list"); lf[466]=C_h_intern(&lf[466],16,"\003sysstring->list"); lf[467]=C_h_intern(&lf[467],13,"string-append"); lf[468]=C_h_intern(&lf[468],17,"\003sysstring-append"); lf[469]=C_h_intern(&lf[469],9,"substring"); lf[470]=C_h_intern(&lf[470],13,"\003syssubstring"); lf[471]=C_h_intern(&lf[471],20,"make-record-instance"); lf[472]=C_h_intern(&lf[472],14,"\003sysblock-set!"); lf[473]=C_h_intern(&lf[473],10,"block-set!"); lf[474]=C_h_intern(&lf[474],7,"\003sysmap"); lf[475]=C_h_intern(&lf[475],8,"for-each"); lf[476]=C_h_intern(&lf[476],12,"\003sysfor-each"); lf[477]=C_h_intern(&lf[477],6,"setter"); lf[478]=C_decode_literal(C_heaptop,"\376B\000\000\030C_fixnum_less_or_equal_p"); lf[479]=C_decode_literal(C_heaptop,"\376B\000\000\030C_flonum_less_or_equal_p"); lf[480]=C_decode_literal(C_heaptop,"\376B\000\000\033C_fixnum_greater_or_equal_p"); lf[481]=C_decode_literal(C_heaptop,"\376B\000\000\033C_flonum_greater_or_equal_p"); lf[482]=C_decode_literal(C_heaptop,"\376B\000\000\016C_fixnum_lessp"); lf[483]=C_decode_literal(C_heaptop,"\376B\000\000\016C_flonum_lessp"); lf[484]=C_decode_literal(C_heaptop,"\376B\000\000\021C_fixnum_greaterp"); lf[485]=C_decode_literal(C_heaptop,"\376B\000\000\021C_flonum_greaterp"); lf[486]=C_decode_literal(C_heaptop,"\376B\000\000\005C_eqp"); lf[487]=C_decode_literal(C_heaptop,"\376B\000\000\012C_i_equalp"); lf[488]=C_h_intern(&lf[488],14,"\003syscheck-char"); lf[489]=C_decode_literal(C_heaptop,"\376B\000\000\020C_i_check_char_2"); lf[490]=C_h_intern(&lf[490],19,"\003syscheck-structure"); lf[491]=C_decode_literal(C_heaptop,"\376B\000\000\025C_i_check_structure_2"); lf[492]=C_h_intern(&lf[492],16,"\003syscheck-vector"); lf[493]=C_decode_literal(C_heaptop,"\376B\000\000\022C_i_check_vector_2"); lf[494]=C_h_intern(&lf[494],21,"\003syscheck-byte-vector"); lf[495]=C_decode_literal(C_heaptop,"\376B\000\000\026C_i_check_bytevector_2"); lf[496]=C_h_intern(&lf[496],16,"\003syscheck-string"); lf[497]=C_decode_literal(C_heaptop,"\376B\000\000\022C_i_check_string_2"); lf[498]=C_h_intern(&lf[498],16,"\003syscheck-symbol"); lf[499]=C_decode_literal(C_heaptop,"\376B\000\000\022C_i_check_symbol_2"); lf[500]=C_h_intern(&lf[500],18,"\003syscheck-locative"); lf[501]=C_decode_literal(C_heaptop,"\376B\000\000\024C_i_check_locative_2"); lf[502]=C_h_intern(&lf[502],17,"\003syscheck-boolean"); lf[503]=C_decode_literal(C_heaptop,"\376B\000\000\023C_i_check_boolean_2"); lf[504]=C_h_intern(&lf[504],14,"\003syscheck-pair"); lf[505]=C_decode_literal(C_heaptop,"\376B\000\000\020C_i_check_pair_2"); lf[506]=C_h_intern(&lf[506],14,"\003syscheck-list"); lf[507]=C_decode_literal(C_heaptop,"\376B\000\000\020C_i_check_list_2"); lf[508]=C_h_intern(&lf[508],16,"\003syscheck-number"); lf[509]=C_decode_literal(C_heaptop,"\376B\000\000\022C_i_check_number_2"); lf[510]=C_h_intern(&lf[510],15,"\003syscheck-exact"); lf[511]=C_decode_literal(C_heaptop,"\376B\000\000\021C_i_check_exact_2"); lf[512]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_check_char"); lf[513]=C_decode_literal(C_heaptop,"\376B\000\000\023C_i_check_structure"); lf[514]=C_decode_literal(C_heaptop,"\376B\000\000\020C_i_check_vector"); lf[515]=C_decode_literal(C_heaptop,"\376B\000\000\024C_i_check_bytevector"); lf[516]=C_decode_literal(C_heaptop,"\376B\000\000\020C_i_check_string"); lf[517]=C_decode_literal(C_heaptop,"\376B\000\000\020C_i_check_symbol"); lf[518]=C_decode_literal(C_heaptop,"\376B\000\000\022C_i_check_locative"); lf[519]=C_decode_literal(C_heaptop,"\376B\000\000\021C_i_check_boolean"); lf[520]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_check_pair"); lf[521]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_check_list"); lf[522]=C_decode_literal(C_heaptop,"\376B\000\000\020C_i_check_number"); lf[523]=C_decode_literal(C_heaptop,"\376B\000\000\017C_i_check_exact"); lf[524]=C_h_intern(&lf[524],14,"inexact->exact"); lf[525]=C_decode_literal(C_heaptop,"\376B\000\000\024C_i_inexact_to_exact"); lf[526]=C_h_intern(&lf[526],13,"string-length"); lf[527]=C_decode_literal(C_heaptop,"\376B\000\000\021C_i_string_length"); lf[528]=C_h_intern(&lf[528],17,"\003sysvector-length"); lf[529]=C_decode_literal(C_heaptop,"\376B\000\000\021C_i_vector_length"); lf[530]=C_h_intern(&lf[530],13,"vector-length"); lf[531]=C_decode_literal(C_heaptop,"\376B\000\000\021C_i_vector_length"); lf[532]=C_h_intern(&lf[532],13,"integer->char"); lf[533]=C_decode_literal(C_heaptop,"\376B\000\000\020C_make_character"); lf[534]=C_decode_literal(C_heaptop,"\376B\000\000\007C_unfix"); lf[535]=C_h_intern(&lf[535],13,"char->integer"); lf[536]=C_decode_literal(C_heaptop,"\376B\000\000\005C_fix"); lf[537]=C_decode_literal(C_heaptop,"\376B\000\000\020C_character_code"); lf[538]=C_decode_literal(C_heaptop,"\376B\000\000\005C_fix"); lf[539]=C_decode_literal(C_heaptop,"\376B\000\000\015C_header_size"); lf[540]=C_decode_literal(C_heaptop,"\376B\000\000\005C_fix"); lf[541]=C_decode_literal(C_heaptop,"\376B\000\000\015C_header_size"); lf[542]=C_h_intern(&lf[542],9,"negative\077"); lf[543]=C_decode_literal(C_heaptop,"\376B\000\000\017C_u_i_negativep"); lf[544]=C_decode_literal(C_heaptop,"\376B\000\000\015C_i_negativep"); lf[545]=C_decode_literal(C_heaptop,"\376B\000\000\016C_flonum_lessp"); lf[546]=C_decode_literal(C_heaptop,"\376B\000\000\016C_fixnum_lessp"); lf[547]=C_h_intern(&lf[547],9,"positive\077"); lf[548]=C_decode_literal(C_heaptop,"\376B\000\000\017C_u_i_positivep"); lf[549]=C_decode_literal(C_heaptop,"\376B\000\000\015C_i_positivep"); lf[550]=C_decode_literal(C_heaptop,"\376B\000\000\021C_flonum_greaterp"); lf[551]=C_decode_literal(C_heaptop,"\376B\000\000\021C_fixnum_greaterp"); lf[552]=C_h_intern(&lf[552],5,"zero\077"); lf[553]=C_decode_literal(C_heaptop,"\376B\000\000\013C_u_i_zerop"); lf[554]=C_decode_literal(C_heaptop,"\376B\000\000\011C_i_zerop"); lf[555]=C_decode_literal(C_heaptop,"\376B\000\000\005C_eqp"); lf[556]=C_h_intern(&lf[556],4,"atan"); lf[557]=C_decode_literal(C_heaptop,"\376B\000\000\013C_a_i_atan2"); lf[558]=C_h_intern(&lf[558],4,"sqrt"); lf[559]=C_decode_literal(C_heaptop,"\376B\000\000\012C_a_i_sqrt"); lf[560]=C_decode_literal(C_heaptop,"\376B\000\000\012C_a_i_atan"); lf[561]=C_h_intern(&lf[561],4,"acos"); lf[562]=C_decode_literal(C_heaptop,"\376B\000\000\012C_a_i_acos"); lf[563]=C_h_intern(&lf[563],4,"asin"); lf[564]=C_decode_literal(C_heaptop,"\376B\000\000\012C_a_i_asin"); lf[565]=C_h_intern(&lf[565],3,"log"); lf[566]=C_decode_literal(C_heaptop,"\376B\000\000\011C_a_i_log"); lf[567]=C_h_intern(&lf[567],3,"tan"); lf[568]=C_decode_literal(C_heaptop,"\376B\000\000\011C_a_i_tan"); lf[569]=C_h_intern(&lf[569],3,"cos"); lf[570]=C_decode_literal(C_heaptop,"\376B\000\000\011C_a_i_cos"); lf[571]=C_h_intern(&lf[571],3,"sin"); lf[572]=C_decode_literal(C_heaptop,"\376B\000\000\011C_a_i_sin"); lf[573]=C_h_intern(&lf[573],3,"exp"); lf[574]=C_decode_literal(C_heaptop,"\376B\000\000\011C_a_i_exp"); lf[575]=C_h_intern(&lf[575],5,"fpneg"); lf[576]=C_decode_literal(C_heaptop,"\376B\000\000\023C_a_i_flonum_negate"); lf[577]=C_h_intern(&lf[577],4,"fp/\077"); lf[578]=C_decode_literal(C_heaptop,"\376B\000\000\035C_a_i_flonum_quotient_checked"); lf[579]=C_h_intern(&lf[579],3,"fp/"); lf[580]=C_decode_literal(C_heaptop,"\376B\000\000\025C_a_i_flonum_quotient"); lf[581]=C_h_intern(&lf[581],3,"fp\052"); lf[582]=C_decode_literal(C_heaptop,"\376B\000\000\022C_a_i_flonum_times"); lf[583]=C_h_intern(&lf[583],3,"fp-"); lf[584]=C_decode_literal(C_heaptop,"\376B\000\000\027C_a_i_flonum_difference"); lf[585]=C_h_intern(&lf[585],3,"fp+"); lf[586]=C_decode_literal(C_heaptop,"\376B\000\000\021C_a_i_flonum_plus"); lf[587]=C_h_intern(&lf[587],11,"bitwise-not"); lf[588]=C_decode_literal(C_heaptop,"\376B\000\000\021C_a_i_bitwise_not"); lf[589]=C_decode_literal(C_heaptop,"\376B\000\000\014C_fixnum_not"); lf[590]=C_h_intern(&lf[590],11,"bitwise-ior"); lf[591]=C_decode_literal(C_heaptop,"\376B\000\000\013C_fixnum_or"); lf[592]=C_decode_literal(C_heaptop,"\376B\000\000\015C_u_fixnum_or"); lf[593]=C_decode_literal(C_heaptop,"\376B\000\000\021C_a_i_bitwise_ior"); lf[594]=C_h_intern(&lf[594],11,"bitwise-and"); lf[595]=C_decode_literal(C_heaptop,"\376B\000\000\014C_fixnum_and"); lf[596]=C_decode_literal(C_heaptop,"\376B\000\000\016C_u_fixnum_and"); lf[597]=C_decode_literal(C_heaptop,"\376B\000\000\021C_a_i_bitwise_and"); lf[598]=C_h_intern(&lf[598],11,"bitwise-xor"); lf[599]=C_decode_literal(C_heaptop,"\376B\000\000\014C_fixnum_xor"); lf[600]=C_decode_literal(C_heaptop,"\376B\000\000\014C_fixnum_xor"); lf[601]=C_decode_literal(C_heaptop,"\376B\000\000\021C_a_i_bitwise_xor"); lf[602]=C_h_intern(&lf[602],3,"abs"); lf[603]=C_decode_literal(C_heaptop,"\376B\000\000\011C_a_i_abs"); lf[604]=C_decode_literal(C_heaptop,"\376B\000\000\014C_fixnum_abs"); lf[605]=C_decode_literal(C_heaptop,"\376B\000\000\014C_fixnum_abs"); lf[606]=C_h_intern(&lf[606],8,"set-cdr!"); lf[607]=C_decode_literal(C_heaptop,"\376B\000\000\013C_i_set_cdr"); lf[608]=C_decode_literal(C_heaptop,"\376B\000\000\015C_u_i_set_cdr"); lf[609]=C_h_intern(&lf[609],8,"set-car!"); lf[610]=C_decode_literal(C_heaptop,"\376B\000\000\013C_i_set_car"); lf[611]=C_decode_literal(C_heaptop,"\376B\000\000\015C_u_i_set_car"); lf[612]=C_h_intern(&lf[612],6,"member"); lf[613]=C_decode_literal(C_heaptop,"\376B\000\000\012C_i_member"); lf[614]=C_h_intern(&lf[614],5,"assoc"); lf[615]=C_decode_literal(C_heaptop,"\376B\000\000\011C_i_assoc"); lf[616]=C_h_intern(&lf[616],4,"memq"); lf[617]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_memq"); lf[618]=C_decode_literal(C_heaptop,"\376B\000\000\012C_u_i_memq"); lf[619]=C_h_intern(&lf[619],4,"assq"); lf[620]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_assq"); lf[621]=C_decode_literal(C_heaptop,"\376B\000\000\012C_u_i_assq"); lf[622]=C_h_intern(&lf[622],4,"memv"); lf[623]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_memv"); lf[624]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_memq"); lf[625]=C_decode_literal(C_heaptop,"\376B\000\000\012C_u_i_memq"); lf[626]=C_h_intern(&lf[626],4,"assv"); lf[627]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_assv"); lf[628]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_assq"); lf[629]=C_decode_literal(C_heaptop,"\376B\000\000\012C_u_i_assq"); lf[630]=C_h_intern(&lf[630],15,"number-of-slots"); lf[631]=C_decode_literal(C_heaptop,"\376B\000\000\014C_block_size"); lf[632]=C_h_intern(&lf[632],9,"block-ref"); lf[633]=C_decode_literal(C_heaptop,"\376B\000\000\006C_slot"); lf[634]=C_h_intern(&lf[634],15,"\003sysbytevector\077"); lf[635]=C_decode_literal(C_heaptop,"\376B\000\000\015C_bytevectorp"); lf[636]=C_h_intern(&lf[636],14,"\003sysstructure\077"); lf[637]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_structurep"); lf[638]=C_h_intern(&lf[638],9,"list-tail"); lf[639]=C_decode_literal(C_heaptop,"\376B\000\000\015C_i_list_tail"); lf[640]=C_h_intern(&lf[640],13,"char-downcase"); lf[641]=C_decode_literal(C_heaptop,"\376B\000\000\023C_u_i_char_downcase"); lf[642]=C_h_intern(&lf[642],11,"char-upcase"); lf[643]=C_decode_literal(C_heaptop,"\376B\000\000\021C_u_i_char_upcase"); lf[644]=C_h_intern(&lf[644],16,"char-lower-case\077"); lf[645]=C_decode_literal(C_heaptop,"\376B\000\000\026C_u_i_char_lower_casep"); lf[646]=C_h_intern(&lf[646],16,"char-upper-case\077"); lf[647]=C_decode_literal(C_heaptop,"\376B\000\000\026C_u_i_char_upper_casep"); lf[648]=C_h_intern(&lf[648],16,"char-whitespace\077"); lf[649]=C_decode_literal(C_heaptop,"\376B\000\000\026C_u_i_char_whitespacep"); lf[650]=C_h_intern(&lf[650],16,"char-alphabetic\077"); lf[651]=C_decode_literal(C_heaptop,"\376B\000\000\026C_u_i_char_alphabeticp"); lf[652]=C_h_intern(&lf[652],13,"char-numeric\077"); lf[653]=C_decode_literal(C_heaptop,"\376B\000\000\023C_u_i_char_numericp"); lf[654]=C_h_intern(&lf[654],5,"fpmin"); lf[655]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_flonum_min"); lf[656]=C_h_intern(&lf[656],5,"fpmax"); lf[657]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_flonum_max"); lf[658]=C_h_intern(&lf[658],5,"fxmin"); lf[659]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_fixnum_min"); lf[660]=C_h_intern(&lf[660],5,"fxmax"); lf[661]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_fixnum_max"); lf[662]=C_h_intern(&lf[662],4,"fp<="); lf[663]=C_decode_literal(C_heaptop,"\376B\000\000\030C_flonum_less_or_equal_p"); lf[664]=C_h_intern(&lf[664],4,"fp>="); lf[665]=C_decode_literal(C_heaptop,"\376B\000\000\033C_flonum_greater_or_equal_p"); lf[666]=C_h_intern(&lf[666],3,"fp<"); lf[667]=C_decode_literal(C_heaptop,"\376B\000\000\016C_flonum_lessp"); lf[668]=C_h_intern(&lf[668],3,"fp>"); lf[669]=C_decode_literal(C_heaptop,"\376B\000\000\021C_flonum_greaterp"); lf[670]=C_h_intern(&lf[670],3,"fp="); lf[671]=C_decode_literal(C_heaptop,"\376B\000\000\017C_flonum_equalp"); lf[672]=C_h_intern(&lf[672],4,"fx<="); lf[673]=C_decode_literal(C_heaptop,"\376B\000\000\030C_fixnum_less_or_equal_p"); lf[674]=C_h_intern(&lf[674],4,"fx>="); lf[675]=C_decode_literal(C_heaptop,"\376B\000\000\033C_fixnum_greater_or_equal_p"); lf[676]=C_h_intern(&lf[676],3,"fx<"); lf[677]=C_decode_literal(C_heaptop,"\376B\000\000\016C_fixnum_lessp"); lf[678]=C_h_intern(&lf[678],3,"fx>"); lf[679]=C_decode_literal(C_heaptop,"\376B\000\000\021C_fixnum_greaterp"); lf[680]=C_h_intern(&lf[680],3,"fx="); lf[681]=C_decode_literal(C_heaptop,"\376B\000\000\005C_eqp"); lf[682]=C_h_intern(&lf[682],4,"fx/\077"); lf[683]=C_decode_literal(C_heaptop,"\376B\000\000\025C_i_o_fixnum_quotient"); lf[684]=C_h_intern(&lf[684],4,"fx\052\077"); lf[685]=C_decode_literal(C_heaptop,"\376B\000\000\022C_i_o_fixnum_times"); lf[686]=C_h_intern(&lf[686],4,"fx-\077"); lf[687]=C_decode_literal(C_heaptop,"\376B\000\000\027C_i_o_fixnum_difference"); lf[688]=C_h_intern(&lf[688],4,"fx+\077"); lf[689]=C_decode_literal(C_heaptop,"\376B\000\000\021C_i_o_fixnum_plus"); lf[690]=C_h_intern(&lf[690],3,"fx\052"); lf[691]=C_decode_literal(C_heaptop,"\376B\000\000\016C_fixnum_times"); lf[692]=C_h_intern(&lf[692],5,"fxnot"); lf[693]=C_decode_literal(C_heaptop,"\376B\000\000\014C_fixnum_not"); lf[694]=C_h_intern(&lf[694],8,"\003syssize"); lf[695]=C_decode_literal(C_heaptop,"\376B\000\000\014C_block_size"); lf[696]=C_h_intern(&lf[696],13,"\003sysblock-ref"); lf[697]=C_decode_literal(C_heaptop,"\376B\000\000\015C_i_block_ref"); lf[698]=C_h_intern(&lf[698],8,"\003sysslot"); lf[699]=C_decode_literal(C_heaptop,"\376B\000\000\006C_slot"); lf[700]=C_h_intern(&lf[700],7,"char<=\077"); lf[701]=C_decode_literal(C_heaptop,"\376B\000\000\030C_i_char_less_or_equal_p"); lf[702]=C_decode_literal(C_heaptop,"\376B\000\000\032C_u_i_char_less_or_equal_p"); lf[703]=C_h_intern(&lf[703],7,"char>=\077"); lf[704]=C_decode_literal(C_heaptop,"\376B\000\000\033C_i_char_greater_or_equal_p"); lf[705]=C_decode_literal(C_heaptop,"\376B\000\000\035C_u_i_char_greater_or_equal_p"); lf[706]=C_h_intern(&lf[706],6,"char<\077"); lf[707]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_char_lessp"); lf[708]=C_decode_literal(C_heaptop,"\376B\000\000\020C_u_i_char_lessp"); lf[709]=C_h_intern(&lf[709],6,"char>\077"); lf[710]=C_decode_literal(C_heaptop,"\376B\000\000\021C_i_char_greaterp"); lf[711]=C_decode_literal(C_heaptop,"\376B\000\000\023C_u_i_char_greaterp"); lf[712]=C_h_intern(&lf[712],6,"char=\077"); lf[713]=C_decode_literal(C_heaptop,"\376B\000\000\017C_i_char_equalp"); lf[714]=C_decode_literal(C_heaptop,"\376B\000\000\021C_u_i_char_equalp"); lf[715]=C_h_intern(&lf[715],10,"vector-ref"); lf[716]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_vector_ref"); lf[717]=C_decode_literal(C_heaptop,"\376B\000\000\006C_slot"); lf[718]=C_h_intern(&lf[718],11,"string-set!"); lf[719]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_string_set"); lf[720]=C_decode_literal(C_heaptop,"\376B\000\000\014C_setsubchar"); lf[721]=C_h_intern(&lf[721],10,"string-ref"); lf[722]=C_decode_literal(C_heaptop,"\376B\000\000\016C_i_string_ref"); lf[723]=C_decode_literal(C_heaptop,"\376B\000\000\011C_subchar"); lf[724]=C_h_intern(&lf[724],11,"eof-object\077"); lf[725]=C_decode_literal(C_heaptop,"\376B\000\000\006C_eofp"); lf[726]=C_h_intern(&lf[726],12,"proper-list\077"); lf[727]=C_decode_literal(C_heaptop,"\376B\000\000\011C_i_listp"); lf[728]=C_h_intern(&lf[728],5,"list\077"); lf[729]=C_decode_literal(C_heaptop,"\376B\000\000\011C_i_listp"); lf[730]=C_h_intern(&lf[730],8,"inexact\077"); lf[731]=C_decode_literal(C_heaptop,"\376B\000\000\016C_u_i_inexactp"); lf[732]=C_decode_literal(C_heaptop,"\376B\000\000\014C_i_inexactp"); lf[733]=C_decode_literal(C_heaptop,"\376B\000\000\012C_nfixnump"); lf[734]=C_h_intern(&lf[734],6,"exact\077"); lf[735]=C_decode_literal(C_heaptop,"\376B\000\000\014C_u_i_exactp"); lf[736]=C_decode_literal(C_heaptop,"\376B\000\000\012C_i_exactp"); lf[737]=C_decode_literal(C_heaptop,"\376B\000\000\011C_fixnump"); lf[738]=C_h_intern(&lf[738],22,"\003sysgeneric-structure\077"); lf[739]=C_decode_literal(C_heaptop,"\376B\000\000\014C_structurep"); lf[740]=C_h_intern(&lf[740],8,"pointer\077"); lf[741]=C_decode_literal(C_heaptop,"\376B\000\000\021C_i_safe_pointerp"); lf[742]=C_h_intern(&lf[742],12,"\003syspointer\077"); lf[743]=C_decode_literal(C_heaptop,"\376B\000\000\015C_anypointerp"); lf[744]=C_h_intern(&lf[744],10,"fpinteger\077"); lf[745]=C_decode_literal(C_heaptop,"\376B\000\000\020C_u_i_fpintegerp"); lf[746]=C_h_intern(&lf[746],7,"finite\077"); lf[747]=C_decode_literal(C_heaptop,"\376B\000\000\013C_i_finitep"); lf[748]=C_h_intern(&lf[748],7,"fixnum\077"); lf[749]=C_decode_literal(C_heaptop,"\376B\000\000\011C_fixnump"); lf[750]=C_h_intern(&lf[750],7,"flonum\077"); lf[751]=C_decode_literal(C_heaptop,"\376B\000\000\013C_i_flonump"); lf[752]=C_h_intern(&lf[752],8,"integer\077"); lf[753]=C_decode_literal(C_heaptop,"\376B\000\000\014C_i_integerp"); lf[754]=C_h_intern(&lf[754],5,"real\077"); lf[755]=C_decode_literal(C_heaptop,"\376B\000\000\013C_i_numberp"); lf[756]=C_h_intern(&lf[756],9,"rational\077"); lf[757]=C_decode_literal(C_heaptop,"\376B\000\000\015C_i_rationalp"); lf[758]=C_h_intern(&lf[758],8,"complex\077"); lf[759]=C_decode_literal(C_heaptop,"\376B\000\000\013C_i_numberp"); lf[760]=C_h_intern(&lf[760],7,"number\077"); lf[761]=C_decode_literal(C_heaptop,"\376B\000\000\013C_i_numberp"); lf[762]=C_h_intern(&lf[762],8,"boolean\077"); lf[763]=C_decode_literal(C_heaptop,"\376B\000\000\012C_booleanp"); lf[764]=C_h_intern(&lf[764],5,"port\077"); lf[765]=C_decode_literal(C_heaptop,"\376B\000\000\011C_i_portp"); lf[766]=C_h_intern(&lf[766],10,"procedure\077"); lf[767]=C_decode_literal(C_heaptop,"\376B\000\000\014C_i_closurep"); lf[768]=C_h_intern(&lf[768],9,"\003syspair\077"); lf[769]=C_decode_literal(C_heaptop,"\376B\000\000\011C_i_pairp"); lf[770]=C_h_intern(&lf[770],5,"pair\077"); lf[771]=C_decode_literal(C_heaptop,"\376B\000\000\011C_i_pairp"); lf[772]=C_h_intern(&lf[772],11,"\003sysvector\077"); lf[773]=C_decode_literal(C_heaptop,"\376B\000\000\013C_i_vectorp"); lf[774]=C_h_intern(&lf[774],7,"vector\077"); lf[775]=C_decode_literal(C_heaptop,"\376B\000\000\013C_i_vectorp"); lf[776]=C_h_intern(&lf[776],7,"symbol\077"); lf[777]=C_decode_literal(C_heaptop,"\376B\000\000\013C_i_symbolp"); lf[778]=C_h_intern(&lf[778],9,"locative\077"); lf[779]=C_decode_literal(C_heaptop,"\376B\000\000\015C_i_locativep"); lf[780]=C_h_intern(&lf[780],7,"string\077"); lf[781]=C_decode_literal(C_heaptop,"\376B\000\000\013C_i_stringp"); lf[782]=C_h_intern(&lf[782],5,"char\077"); lf[783]=C_decode_literal(C_heaptop,"\376B\000\000\007C_charp"); lf[784]=C_h_intern(&lf[784],3,"not"); lf[785]=C_decode_literal(C_heaptop,"\376B\000\000\007C_i_not"); lf[786]=C_h_intern(&lf[786],6,"length"); lf[787]=C_decode_literal(C_heaptop,"\376B\000\000\012C_i_length"); lf[788]=C_h_intern(&lf[788],9,"\003sysnull\077"); lf[789]=C_decode_literal(C_heaptop,"\376B\000\000\011C_i_nullp"); lf[790]=C_h_intern(&lf[790],5,"null\077"); lf[791]=C_decode_literal(C_heaptop,"\376B\000\000\011C_i_nullp"); lf[792]=C_h_intern(&lf[792],8,"list-ref"); lf[793]=C_decode_literal(C_heaptop,"\376B\000\000\014C_i_list_ref"); lf[794]=C_decode_literal(C_heaptop,"\376B\000\000\016C_u_i_list_ref"); lf[795]=C_h_intern(&lf[795],8,"\003syseqv\077"); lf[796]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_eqvp"); lf[797]=C_h_intern(&lf[797],4,"eqv\077"); lf[798]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_eqvp"); lf[799]=C_h_intern(&lf[799],7,"\003syseq\077"); lf[800]=C_decode_literal(C_heaptop,"\376B\000\000\005C_eqp"); lf[801]=C_h_intern(&lf[801],3,"eq\077"); lf[802]=C_decode_literal(C_heaptop,"\376B\000\000\005C_eqp"); lf[803]=C_h_intern(&lf[803],3,"cdr"); lf[804]=C_decode_literal(C_heaptop,"\376B\000\000\007C_i_cdr"); lf[805]=C_decode_literal(C_heaptop,"\376B\000\000\006C_slot"); lf[806]=C_h_intern(&lf[806],6,"cddddr"); lf[807]=C_decode_literal(C_heaptop,"\376B\000\000\012C_i_cddddr"); lf[808]=C_h_intern(&lf[808],5,"cdddr"); lf[809]=C_decode_literal(C_heaptop,"\376B\000\000\011C_i_cdddr"); lf[810]=C_h_intern(&lf[810],4,"cddr"); lf[811]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_cddr"); lf[812]=C_h_intern(&lf[812],4,"cdar"); lf[813]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_cdar"); lf[814]=C_h_intern(&lf[814],4,"caar"); lf[815]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_caar"); lf[816]=C_decode_literal(C_heaptop,"\376B\000\000\014C_u_i_cddddr"); lf[817]=C_h_intern(&lf[817],6,"cdddar"); lf[818]=C_decode_literal(C_heaptop,"\376B\000\000\014C_u_i_cdddar"); lf[819]=C_h_intern(&lf[819],6,"cddadr"); lf[820]=C_decode_literal(C_heaptop,"\376B\000\000\014C_u_i_cddadr"); lf[821]=C_h_intern(&lf[821],6,"cddaar"); lf[822]=C_decode_literal(C_heaptop,"\376B\000\000\014C_u_i_cddaar"); lf[823]=C_h_intern(&lf[823],6,"cdaddr"); lf[824]=C_decode_literal(C_heaptop,"\376B\000\000\014C_u_i_cdaddr"); lf[825]=C_h_intern(&lf[825],6,"cdadar"); lf[826]=C_decode_literal(C_heaptop,"\376B\000\000\014C_u_i_cdadar"); lf[827]=C_h_intern(&lf[827],6,"cdaadr"); lf[828]=C_decode_literal(C_heaptop,"\376B\000\000\014C_u_i_cdaadr"); lf[829]=C_h_intern(&lf[829],6,"cdaaar"); lf[830]=C_decode_literal(C_heaptop,"\376B\000\000\014C_u_i_cdaaar"); lf[831]=C_h_intern(&lf[831],6,"cadddr"); lf[832]=C_decode_literal(C_heaptop,"\376B\000\000\014C_u_i_cadddr"); lf[833]=C_h_intern(&lf[833],6,"caddar"); lf[834]=C_decode_literal(C_heaptop,"\376B\000\000\014C_u_i_caddar"); lf[835]=C_h_intern(&lf[835],6,"cadadr"); lf[836]=C_decode_literal(C_heaptop,"\376B\000\000\014C_u_i_cadadr"); lf[837]=C_h_intern(&lf[837],6,"cadaar"); lf[838]=C_decode_literal(C_heaptop,"\376B\000\000\014C_u_i_cadaar"); lf[839]=C_h_intern(&lf[839],6,"caaddr"); lf[840]=C_decode_literal(C_heaptop,"\376B\000\000\014C_u_i_caaddr"); lf[841]=C_h_intern(&lf[841],6,"caadar"); lf[842]=C_decode_literal(C_heaptop,"\376B\000\000\014C_u_i_caadar"); lf[843]=C_h_intern(&lf[843],6,"caaaar"); lf[844]=C_decode_literal(C_heaptop,"\376B\000\000\014C_u_i_caaaar"); lf[845]=C_decode_literal(C_heaptop,"\376B\000\000\013C_u_i_cdddr"); lf[846]=C_h_intern(&lf[846],5,"cddar"); lf[847]=C_decode_literal(C_heaptop,"\376B\000\000\013C_u_i_cddar"); lf[848]=C_h_intern(&lf[848],5,"cdadr"); lf[849]=C_decode_literal(C_heaptop,"\376B\000\000\013C_u_i_cdadr"); lf[850]=C_h_intern(&lf[850],5,"cdaar"); lf[851]=C_decode_literal(C_heaptop,"\376B\000\000\013C_u_i_cdaar"); lf[852]=C_h_intern(&lf[852],5,"caddr"); lf[853]=C_decode_literal(C_heaptop,"\376B\000\000\013C_u_i_caddr"); lf[854]=C_h_intern(&lf[854],5,"cadar"); lf[855]=C_decode_literal(C_heaptop,"\376B\000\000\013C_u_i_cadar"); lf[856]=C_h_intern(&lf[856],5,"caaar"); lf[857]=C_decode_literal(C_heaptop,"\376B\000\000\013C_u_i_caaar"); lf[858]=C_decode_literal(C_heaptop,"\376B\000\000\012C_u_i_cddr"); lf[859]=C_decode_literal(C_heaptop,"\376B\000\000\012C_u_i_cdar"); lf[860]=C_decode_literal(C_heaptop,"\376B\000\000\012C_u_i_caar"); lf[861]=C_h_intern(&lf[861],22,"\003syscontinuation-graft"); lf[862]=C_decode_literal(C_heaptop,"\376B\000\000\024C_continuation_graft"); lf[863]=C_h_intern(&lf[863],20,"\003syscall-with-values"); lf[864]=C_decode_literal(C_heaptop,"\376B\000\000\022C_call_with_values"); lf[865]=C_decode_literal(C_heaptop,"\376B\000\000\024C_u_call_with_values"); lf[866]=C_h_intern(&lf[866],16,"call-with-values"); lf[867]=C_decode_literal(C_heaptop,"\376B\000\000\022C_call_with_values"); lf[868]=C_decode_literal(C_heaptop,"\376B\000\000\024C_u_call_with_values"); lf[869]=C_decode_literal(C_heaptop,"\376B\000\000\010C_values"); lf[870]=C_decode_literal(C_heaptop,"\376B\000\000\010C_values"); lf[871]=C_h_intern(&lf[871],6,"fourth"); lf[872]=C_decode_literal(C_heaptop,"\376B\000\000\012C_i_cadddr"); lf[873]=C_decode_literal(C_heaptop,"\376B\000\000\014C_u_i_cadddr"); lf[874]=C_h_intern(&lf[874],5,"third"); lf[875]=C_decode_literal(C_heaptop,"\376B\000\000\011C_i_caddr"); lf[876]=C_decode_literal(C_heaptop,"\376B\000\000\013C_u_i_caddr"); lf[877]=C_h_intern(&lf[877],6,"second"); lf[878]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_cadr"); lf[879]=C_decode_literal(C_heaptop,"\376B\000\000\012C_u_i_cadr"); lf[880]=C_h_intern(&lf[880],5,"first"); lf[881]=C_decode_literal(C_heaptop,"\376B\000\000\007C_i_car"); lf[882]=C_decode_literal(C_heaptop,"\376B\000\000\011C_u_i_car"); lf[883]=C_decode_literal(C_heaptop,"\376B\000\000\012C_i_cadddr"); lf[884]=C_decode_literal(C_heaptop,"\376B\000\000\014C_u_i_cadddr"); lf[885]=C_decode_literal(C_heaptop,"\376B\000\000\011C_i_caddr"); lf[886]=C_decode_literal(C_heaptop,"\376B\000\000\013C_u_i_caddr"); lf[887]=C_h_intern(&lf[887],4,"cadr"); lf[888]=C_decode_literal(C_heaptop,"\376B\000\000\010C_i_cadr"); lf[889]=C_decode_literal(C_heaptop,"\376B\000\000\012C_u_i_cadr"); lf[890]=C_h_intern(&lf[890],7,"\003syscdr"); lf[891]=C_decode_literal(C_heaptop,"\376B\000\000\007C_i_cdr"); lf[892]=C_decode_literal(C_heaptop,"\376B\000\000\011C_u_i_cdr"); lf[893]=C_h_intern(&lf[893],7,"\003syscar"); lf[894]=C_decode_literal(C_heaptop,"\376B\000\000\007C_i_car"); lf[895]=C_decode_literal(C_heaptop,"\376B\000\000\011C_u_i_car"); lf[896]=C_h_intern(&lf[896],3,"car"); lf[897]=C_decode_literal(C_heaptop,"\376B\000\000\007C_i_car"); lf[898]=C_decode_literal(C_heaptop,"\376B\000\000\011C_u_i_car"); lf[899]=C_h_intern(&lf[899],9,"\003sysapply"); lf[900]=C_h_intern(&lf[900],5,"apply"); lf[901]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\012C_i_equalp\376\377\016"); lf[902]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\005C_eqp\376\377\016"); lf[903]=C_h_intern(&lf[903],6,"equal\077"); lf[904]=C_h_intern(&lf[904],4,"sub1"); lf[905]=C_decode_literal(C_heaptop,"\376B\000\000\021C_fixnum_decrease"); lf[906]=C_decode_literal(C_heaptop,"\376B\000\000\023C_u_fixnum_decrease"); lf[907]=C_decode_literal(C_heaptop,"\376B\000\000\013C_a_i_minus"); lf[908]=C_h_intern(&lf[908],4,"add1"); lf[909]=C_decode_literal(C_heaptop,"\376B\000\000\021C_fixnum_increase"); lf[910]=C_decode_literal(C_heaptop,"\376B\000\000\023C_u_fixnum_increase"); lf[911]=C_decode_literal(C_heaptop,"\376B\000\000\012C_a_i_plus"); lf[912]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\024C_fixnum_shift_right\376\377\016"); lf[913]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\017C_fixnum_divide\376\377\016"); lf[914]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\012C_quotient\376\003\000\000\002\376\377\006\001\376\377\016"); lf[915]=C_h_intern(&lf[915],8,"quotient"); lf[916]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\024C_fixnum_shift_right\376\377\016"); lf[917]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\017C_fixnum_divide\376\377\016"); lf[918]=C_h_intern(&lf[918],19,"\010compilerfold-inner"); lf[919]=C_h_intern(&lf[919],6,"remove"); lf[920]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\021C_u_fixnum_negate\376\377\016"); lf[921]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\017C_fixnum_negate\376\377\016"); lf[922]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\025C_u_fixnum_difference\376\377\016"); lf[923]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\023C_fixnum_difference\376\377\016"); lf[924]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\023C_fixnum_shift_left\376\377\016"); lf[925]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\016C_fixnum_times\376\377\016"); lf[926]=C_decode_literal(C_heaptop,"\376B\000\000\015C_fixnum_plus"); lf[927]=C_decode_literal(C_heaptop,"\376B\000\000\017C_u_fixnum_plus"); lf[928]=C_h_intern(&lf[928],8,"\003sysput!"); lf[929]=C_h_intern(&lf[929],13,"\010compilerpure"); lf[930]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\010\003sysslot\376\003\000\000\002\376\001\000\000\015\003sysblock-ref\376\003\000\000\002\376\001\000\000\010\003syssize\376\003\000\000\002\376\001\000\000\010\003sysbyte\376\003\000" "\000\002\376\001\000\000\014\003syspointer\077\376\003\000\000\002\376\001\000\000\026\003sysgeneric-structure\077\376\003\000\000\002\376\001\000\000\020\003sysfits-in-int\077\376\003\000" "\000\002\376\001\000\000\031\003sysfits-in-unsigned-int\077\376\003\000\000\002\376\001\000\000\033\003sysflonum-in-fixnum-range\077\376\003\000\000\002\376\001\000\000\011\003" "sysfudge\376\003\000\000\002\376\001\000\000\016\003sysimmediate\077\376\003\000\000\002\376\001\000\000\017\003sysbytevector\077\376\003\000\000\002\376\001\000\000\011\003syspair\077\376\003\000\000" "\002\376\001\000\000\007\003syseq\077\376\003\000\000\002\376\001\000\000\011\003syslist\077\376\003\000\000\002\376\001\000\000\013\003sysvector\077\376\003\000\000\002\376\001\000\000\010\003syseqv\077\376\003\000\000\002\376\001\000\000" "\017\003sysget-keyword\376\003\000\000\002\376\001\000\000\010\003sysvoid\376\003\000\000\002\376\001\000\000\016\003syspermanent\077\376\377\016"); lf[931]=C_h_intern(&lf[931],15,"lset-difference"); lf[932]=C_h_intern(&lf[932],10,"lset-union"); C_register_lf2(lf,933,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1606,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k2404 in k2401 in k2374 in rewrite-c-w-v in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 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 t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_2406,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2409,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_slot(((C_word*)t0)[7],C_fix(2)); /* c-platform.scm:515: debugging */ t5=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[63]; av2[3]=lf[64]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k2407 in k2404 in k2401 in k2374 in rewrite-c-w-v in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in ... */ static void C_ccall f_2409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[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_2409,2,av);} a=C_alloc(12); t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2488,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,a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); /* c-platform.scm:520: gensym */ t5=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[61]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2935 in k2932 in k2929 in k2926 in k2923 in k2920 in k2917 in k2914 in k2911 in k2908 in k2905 in k2902 in k2899 in k2896 in k2893 in k2890 in k2887 in k2884 in k2881 in k2878 in k2875 in k2872 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2937,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2940,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:660: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2929 in k2926 in k2923 in k2920 in k2917 in k2914 in k2911 in k2908 in k2905 in k2902 in k2899 in k2896 in k2893 in k2890 in k2887 in k2884 in k2881 in k2878 in k2875 in k2872 in k2869 in k2866 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2931,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2934,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:658: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2932 in k2929 in k2926 in k2923 in k2920 in k2917 in k2914 in k2911 in k2908 in k2905 in k2902 in k2899 in k2896 in k2893 in k2890 in k2887 in k2884 in k2881 in k2878 in k2875 in k2872 in k2869 in ... */ static void C_ccall f_2934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2934,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2937,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:659: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k5041 in a5003 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_fcall f_5043(C_word 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(16,0,2)))){ C_save_and_reclaim_args((void *)trf_5043,2,t0,t1);} a=C_alloc(16); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5061,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); /* c-platform.scm:354: qnode */ t5=*((C_word*)lf[39]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_a_i_record4(&a,4,lf[35],lf[36],lf[913],t2); t4=C_a_i_list2(&a,2,((C_word*)t0)[3],t3); t5=((C_word*)t0)[4]; t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[5],t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* a5597 in a5446 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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; 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,1)))){ C_save_and_reclaim((void *)f_5598,3,av);} t3=t2; t4=C_slot(t3,C_fix(1)); t5=C_eqp(lf[41],t4); if(C_truep(t5)){ t6=t2; t7=C_slot(t6,C_fix(2)); t8=C_i_car(t7); t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_eqp(C_fix(1),t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k2995 in k2992 in k2989 in k2986 in k2983 in k2980 in k2977 in k2974 in k2971 in k2968 in k2965 in k2962 in k2959 in k2956 in k2953 in k2950 in k2947 in k2944 in k2941 in k2938 in k2935 in k2932 in ... */ static void C_ccall f_2997(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2997,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3000,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:683: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[602]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[603]; av2[6]=C_SCHEME_TRUE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2989 in k2986 in k2983 in k2980 in k2977 in k2974 in k2971 in k2968 in k2965 in k2962 in k2959 in k2956 in k2953 in k2950 in k2947 in k2944 in k2941 in k2938 in k2935 in k2932 in k2929 in k2926 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2991,2,av);} a=C_alloc(3); 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); /* c-platform.scm:680: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[606]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[607]; av2[6]=lf[608]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2992 in k2989 in k2986 in k2983 in k2980 in k2977 in k2974 in k2971 in k2968 in k2965 in k2962 in k2959 in k2956 in k2953 in k2950 in k2947 in k2944 in k2941 in k2938 in k2935 in k2932 in k2929 in ... */ 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_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_2994,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2997,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:682: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[602]; av2[3]=C_fix(14); av2[4]=lf[32]; av2[5]=C_fix(1); av2[6]=lf[604]; av2[7]=lf[605]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3436 in k3433 in k3430 in k3427 in k3424 in k3421 in k3418 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_3438,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3441,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:871: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[337]; av2[3]=C_fix(16); av2[4]=C_SCHEME_FALSE; av2[5]=lf[338]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_TRUE; av2[8]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k3433 in k3430 in k3427 in k3424 in k3421 in k3418 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3435,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3438,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:870: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[339]; av2[3]=C_fix(16); av2[4]=C_SCHEME_FALSE; av2[5]=lf[340]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3430 in k3427 in k3424 in k3421 in k3418 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_3432,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3435,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:869: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[341]; av2[3]=C_fix(16); av2[4]=C_SCHEME_FALSE; av2[5]=lf[342]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_TRUE; av2[8]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k3457 in k3454 in k3451 in k3448 in k3445 in k3442 in k3439 in k3436 in k3433 in k3430 in k3427 in k3424 in k3421 in k3418 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3459,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3462,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:879: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[323]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[324]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3454 in k3451 in k3448 in k3445 in k3442 in k3439 in k3436 in k3433 in k3430 in k3427 in k3424 in k3421 in k3418 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3456,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3459,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:878: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[325]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[326]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3451 in k3448 in k3445 in k3442 in k3439 in k3436 in k3433 in k3430 in k3427 in k3424 in k3421 in k3418 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in ... */ static void C_ccall f_3453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3453,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3456,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:876: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[327]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[328]; av2[6]=C_SCHEME_TRUE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3448 in k3445 in k3442 in k3439 in k3436 in k3433 in k3430 in k3427 in k3424 in k3421 in k3418 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3450,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3453,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:875: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[329]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[330]; av2[6]=C_SCHEME_FALSE; av2[7]=C_fix(2); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2557 in k2338 in k2335 in k2303 in k2300 in k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_2559,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2562,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:528: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[863]; av2[3]=C_fix(8); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3427 in k3424 in k3421 in k3418 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3429,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3432,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:868: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[343]; av2[3]=C_fix(16); av2[4]=C_SCHEME_FALSE; av2[5]=lf[344]; av2[6]=C_SCHEME_TRUE; av2[7]=lf[345]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3424 in k3421 in k3418 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_3426,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3429,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:867: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } 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]; av2[8]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k3421 in k3418 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3423,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3426,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:866: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[349]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[350]; av2[6]=C_SCHEME_TRUE; av2[7]=C_fix(3); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3418 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in k3355 in ... */ static void C_ccall f_3420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3420,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3423,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:865: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[351]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[352]; av2[6]=C_SCHEME_TRUE; av2[7]=C_fix(3); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4996 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_ccall f_4998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4998,2,av);} /* c-platform.scm:379: rewrite */ t2=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[904]; av2[3]=C_fix(8); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4342 in a4285 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in ... */ static void C_ccall f_4344(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4344,2,av);} t2=((C_word*)t0)[2]; f_4319(t2,C_i_not(t1));} /* k5525 in k5449 in a5446 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_5527,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a5528 in k5449 in a5446 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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=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(5,c,2)))){ C_save_and_reclaim((void *)f_5529,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5536,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t3; t6=C_slot(t5,C_fix(1)); t7=C_eqp(lf[41],t6); if(C_truep(t7)){ t8=t3; t9=C_slot(t8,C_fix(2)); t10=C_i_car(t9); t11=t4; f_5536(t11,C_eqp(C_fix(2),t10));} else{ t8=t4; f_5536(t8,C_SCHEME_FALSE);}} /* k3253 in k3250 in k3247 in k3244 in k3241 in k3238 in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_3255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3255,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3258,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:782: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[346]; av2[3]=C_fix(18); av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3250 in k3247 in k3244 in k3241 in k3238 in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in k3187 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3252,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3255,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:781: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[456]; av2[3]=C_fix(18); av2[4]=C_fix(1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a4372 in k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 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=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 *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4373,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=C_slot(t8,C_fix(1)); t10=C_eqp(lf[42],t9); if(C_truep(t10)){ t11=C_slot(t8,C_fix(2)); t12=C_i_car(t11); t13=t12; t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4403,a[2]=t13,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* tweaks.scm:51: ##sys#get */ t15=*((C_word*)lf[52]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=t14; av2[2]=t13; av2[3]=lf[53]; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} else{ t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k3256 in k3253 in k3250 in k3247 in k3244 in k3241 in k3238 in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3258,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3261,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:784: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[433]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[455]; av2[6]=C_SCHEME_TRUE; av2[7]=C_fix(4); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2899 in k2896 in k2893 in k2890 in k2887 in k2884 in k2881 in k2878 in k2875 in k2872 in k2869 in k2866 in k2863 in k2860 in k2857 in k2854 in k2851 in k2848 in k2845 in k2842 in k2839 in k2836 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2901,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2904,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:648: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2902 in k2899 in k2896 in k2893 in k2890 in k2887 in k2884 in k2881 in k2878 in k2875 in k2872 in k2869 in k2866 in k2863 in k2860 in k2857 in k2854 in k2851 in k2848 in k2845 in k2842 in k2839 in ... */ static void C_ccall f_2904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2904,2,av);} a=C_alloc(3); 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); /* c-platform.scm:649: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2905 in k2902 in k2899 in k2896 in k2893 in k2890 in k2887 in k2884 in k2881 in k2878 in k2875 in k2872 in k2869 in k2866 in k2863 in k2860 in k2857 in k2854 in k2851 in k2848 in k2845 in k2842 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_2907,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2910,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:650: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3343 in k3340 in k3337 in k3334 in k3331 in k3328 in k3325 in k3322 in k3319 in k3316 in k3313 in k3310 in k3307 in k3304 in k3301 in k3298 in k3295 in k3292 in k3289 in k3286 in k3283 in k3280 in ... */ static void C_ccall f_3345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3345,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3348,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:818: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[401]; av2[3]=C_fix(14); av2[4]=lf[32]; av2[5]=C_fix(2); av2[6]=lf[402]; av2[7]=lf[403]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3346 in k3343 in k3340 in k3337 in k3334 in k3331 in k3328 in k3325 in k3322 in k3319 in k3316 in k3313 in k3310 in k3307 in k3304 in k3301 in k3298 in k3295 in k3292 in k3289 in k3286 in k3283 in ... */ static void C_ccall f_3348(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3348,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3351,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:820: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[398]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[399]; av2[6]=lf[400]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3340 in k3337 in k3334 in k3331 in k3328 in k3325 in k3322 in k3319 in k3316 in k3313 in k3310 in k3307 in k3304 in k3301 in k3298 in k3295 in k3292 in k3289 in k3286 in k3283 in k3280 in k3277 in ... */ static void C_ccall f_3342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3342,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3345,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:817: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[395]; av2[3]=C_fix(14); av2[4]=lf[32]; av2[5]=C_fix(1); av2[6]=lf[404]; av2[7]=lf[405]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in k3355 in k3352 in k3349 in k3346 in k3343 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3408,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3411,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:843: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[355]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[359]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in k3355 in k3352 in k3349 in k3346 in k3343 in k3340 in k3337 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3402,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3405,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:841: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[362]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[363]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in k3355 in k3352 in k3349 in k3346 in k3343 in k3340 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3405,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3408,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:842: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[360]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[361]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3355 in k3352 in k3349 in k3346 in k3343 in k3340 in k3337 in k3334 in k3331 in k3328 in k3325 in k3322 in k3319 in k3316 in k3313 in k3310 in k3307 in k3304 in k3301 in k3298 in k3295 in k3292 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3357,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3360,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:824: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[391]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[392]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4317 in a4285 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in ... */ static void C_fcall f_4319(C_word 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(19,0,2)))){ C_save_and_reclaim_args((void *)trf_4319,2,t0,t1);} a=C_alloc(19); if(C_truep(t1)){ /* c-platform.scm:1139: qnode */ t2=*((C_word*)lf[39]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_a_i_list1(&a,1,((C_word*)t0)[3]); t3=C_a_i_record4(&a,4,lf[35],lf[36],lf[103],t2); t4=C_a_i_list2(&a,2,((C_word*)t0)[4],t3); t5=((C_word*)t0)[5]; t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[6],t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k3349 in k3346 in k3343 in k3340 in k3337 in k3334 in k3331 in k3328 in k3325 in k3322 in k3319 in k3316 in k3313 in k3310 in k3307 in k3304 in k3301 in k3298 in k3295 in k3292 in k3289 in k3286 in ... */ static void C_ccall f_3351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3351,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3354,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:821: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[395]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[396]; av2[6]=lf[397]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4314 in a4285 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_4316,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3352 in k3349 in k3346 in k3343 in k3340 in k3337 in k3334 in k3331 in k3328 in k3325 in k3322 in k3319 in k3316 in k3313 in k3310 in k3307 in k3304 in k3301 in k3298 in k3295 in k3292 in k3289 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3354,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3357,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:823: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[393]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[394]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3325 in k3322 in k3319 in k3316 in k3313 in k3310 in k3307 in k3304 in k3301 in k3298 in k3295 in k3292 in k3289 in k3286 in k3283 in k3280 in k3277 in k3274 in k3271 in k3268 in k3265 in k3262 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3327,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3330,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:811: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[414]; av2[3]=C_fix(13); av2[4]=C_fix(0); av2[5]=lf[415]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3322 in k3319 in k3316 in k3313 in k3310 in k3307 in k3304 in k3301 in k3298 in k3295 in k3292 in k3289 in k3286 in k3283 in k3280 in k3277 in k3274 in k3271 in k3268 in k3265 in k3262 in k3259 in ... */ static void C_ccall f_3324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3324,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3327,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:810: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[416]; av2[3]=C_fix(13); av2[4]=C_fix(1); av2[5]=lf[417]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3319 in k3316 in k3313 in k3310 in k3307 in k3304 in k3301 in k3298 in k3295 in k3292 in k3289 in k3286 in k3283 in k3280 in k3277 in k3274 in k3271 in k3268 in k3265 in k3262 in k3259 in k3256 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3321,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3324,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:809: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[418]; av2[3]=C_fix(13); av2[4]=C_fix(4); av2[5]=lf[419]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3190 in k3187 in k3184 in k3181 in k3178 in k3175 in k3172 in k3169 in k3166 in k3163 in k3160 in k3157 in k3154 in k3151 in k3148 in k3145 in k3142 in k3139 in k3136 in k3133 in k3130 in k3127 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ 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-platform.scm:757: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[441]; av2[3]=C_fix(9); av2[4]=lf[484]; av2[5]=lf[485]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3193 in k3190 in k3187 in k3184 in k3181 in k3178 in k3175 in k3172 in k3169 in k3166 in k3163 in k3160 in k3157 in k3154 in k3151 in k3148 in k3145 in k3142 in k3139 in k3136 in k3133 in k3130 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ 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-platform.scm:758: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[439]; av2[3]=C_fix(9); av2[4]=lf[482]; av2[5]=lf[483]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3196 in k3193 in k3190 in k3187 in k3184 in k3181 in k3178 in k3175 in k3172 in k3169 in k3166 in k3163 in k3160 in k3157 in k3154 in k3151 in k3148 in k3145 in k3142 in k3139 in k3136 in k3133 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ 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-platform.scm:759: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[437]; av2[3]=C_fix(9); av2[4]=lf[480]; av2[5]=lf[481]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3337 in k3334 in k3331 in k3328 in k3325 in k3322 in k3319 in k3316 in k3313 in k3310 in k3307 in k3304 in k3301 in k3298 in k3295 in k3292 in k3289 in k3286 in k3283 in k3280 in k3277 in k3274 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3339,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3342,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:816: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[398]; av2[3]=C_fix(14); av2[4]=lf[32]; av2[5]=C_fix(1); av2[6]=lf[406]; av2[7]=lf[407]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3334 in k3331 in k3328 in k3325 in k3322 in k3319 in k3316 in k3313 in k3310 in k3307 in k3304 in k3301 in k3298 in k3295 in k3292 in k3289 in k3286 in k3283 in k3280 in k3277 in k3274 in k3271 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3336,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3339,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:814: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[408]; av2[3]=C_fix(13); av2[4]=C_fix(1); av2[5]=lf[409]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3331 in k3328 in k3325 in k3322 in k3319 in k3316 in k3313 in k3310 in k3307 in k3304 in k3301 in k3298 in k3295 in k3292 in k3289 in k3286 in k3283 in k3280 in k3277 in k3274 in k3271 in k3268 in ... */ static void C_ccall f_3333(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3333,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3336,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:813: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[410]; av2[3]=C_fix(13); av2[4]=C_fix(1); av2[5]=lf[411]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3289 in k3286 in k3283 in k3280 in k3277 in k3274 in k3271 in k3268 in k3265 in k3262 in k3259 in k3256 in k3253 in k3250 in k3247 in k3244 in k3241 in k3238 in k3235 in k3232 in k3229 in k3226 in ... */ static void C_ccall f_3291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3291,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3294,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:797: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[441]; av2[3]=C_fix(13); av2[4]=C_SCHEME_FALSE; av2[5]=lf[442]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3328 in k3325 in k3322 in k3319 in k3316 in k3313 in k3310 in k3307 in k3304 in k3301 in k3298 in k3295 in k3292 in k3289 in k3286 in k3283 in k3280 in k3277 in k3274 in k3271 in k3268 in k3265 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3330,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3333,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:812: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[412]; av2[3]=C_fix(13); av2[4]=C_fix(1); av2[5]=lf[413]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3292 in k3289 in k3286 in k3283 in k3280 in k3277 in k3274 in k3271 in k3268 in k3265 in k3262 in k3259 in k3256 in k3253 in k3250 in k3247 in k3244 in k3241 in k3238 in k3235 in k3232 in k3229 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3294,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3297,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:798: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3295 in k3292 in k3289 in k3286 in k3283 in k3280 in k3277 in k3274 in k3271 in k3268 in k3265 in k3262 in k3259 in k3256 in k3253 in k3250 in k3247 in k3244 in k3241 in k3238 in k3235 in k3232 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3297,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3300,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:799: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3304 in k3301 in k3298 in k3295 in k3292 in k3289 in k3286 in k3283 in k3280 in k3277 in k3274 in k3271 in k3268 in k3265 in k3262 in k3259 in k3256 in k3253 in k3250 in k3247 in k3244 in k3241 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3306,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3309,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:803: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3307 in k3304 in k3301 in k3298 in k3295 in k3292 in k3289 in k3286 in k3283 in k3280 in k3277 in k3274 in k3271 in k3268 in k3265 in k3262 in k3259 in k3256 in k3253 in k3250 in k3247 in k3244 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3309,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3312,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:804: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[428]; av2[3]=C_fix(13); av2[4]=lf[429]; av2[5]=lf[430]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3298 in k3295 in k3292 in k3289 in k3286 in k3283 in k3280 in k3277 in k3274 in k3271 in k3268 in k3265 in k3262 in k3259 in k3256 in k3253 in k3250 in k3247 in k3244 in k3241 in k3238 in k3235 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3300,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3303,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:800: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3301 in k3298 in k3295 in k3292 in k3289 in k3286 in k3283 in k3280 in k3277 in k3274 in k3271 in k3268 in k3265 in k3262 in k3259 in k3256 in k3253 in k3250 in k3247 in k3244 in k3241 in k3238 in ... */ static void C_ccall f_3303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3303,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3306,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:802: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3445 in k3442 in k3439 in k3436 in k3433 in k3430 in k3427 in k3424 in k3421 in k3418 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in ... */ 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(3,c,7)))){ C_save_and_reclaim((void *)f_3447,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3450,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:874: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[331]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[332]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3439 in k3436 in k3433 in k3430 in k3427 in k3424 in k3421 in k3418 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in ... */ static void C_ccall f_3441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3441,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3444,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:872: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[335]; av2[3]=C_fix(16); av2[4]=C_SCHEME_FALSE; av2[5]=lf[336]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3442 in k3439 in k3436 in k3433 in k3430 in k3427 in k3424 in k3421 in k3418 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in ... */ static void C_ccall f_3444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3444,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3447,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:873: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[333]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[334]; av2[6]=C_SCHEME_FALSE; av2[7]=C_fix(2); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3316 in k3313 in k3310 in k3307 in k3304 in k3301 in k3298 in k3295 in k3292 in k3289 in k3286 in k3283 in k3280 in k3277 in k3274 in k3271 in k3268 in k3265 in k3262 in k3259 in k3256 in k3253 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3318,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3321,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:808: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[420]; av2[3]=C_fix(13); av2[4]=C_fix(1); av2[5]=lf[421]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3310 in k3307 in k3304 in k3301 in k3298 in k3295 in k3292 in k3289 in k3286 in k3283 in k3280 in k3277 in k3274 in k3271 in k3268 in k3265 in k3262 in k3259 in k3256 in k3253 in k3250 in k3247 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3312,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3315,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:805: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[425]; av2[3]=C_fix(13); av2[4]=lf[426]; av2[5]=lf[427]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3313 in k3310 in k3307 in k3304 in k3301 in k3298 in k3295 in k3292 in k3289 in k3286 in k3283 in k3280 in k3277 in k3274 in k3271 in k3268 in k3265 in k3262 in k3259 in k3256 in k3253 in k3250 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3315,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3318,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:807: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[422]; av2[3]=C_fix(13); av2[4]=lf[423]; av2[5]=lf[424]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in k3355 in k3352 in ... */ static void C_ccall f_3417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_3417,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3420,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4692,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:847: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[354]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in k3355 in k3352 in k3349 in k3346 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3411,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3414,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:844: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[357]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[358]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 in k3355 in k3352 in k3349 in ... */ static void C_ccall f_3414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3414,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3417,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:845: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[355]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[356]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3970 in k3974 in a3915 in k3897 in rewrite-call/cc in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in ... */ static void C_ccall f_3972(C_word c,C_word *av){ C_word tmp; C_word t0=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_3972,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3968,a[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:1074: get */ t3=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[71]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k3974 in a3915 in k3897 in rewrite-call/cc in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in ... */ static void C_ccall f_3976(C_word c,C_word *av){ C_word tmp; C_word t0=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_3976,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ 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_3972,a[2]=((C_word*)t0)[2],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:1073: get */ t3=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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[72]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* a4167 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 k4028 in k4025 in k3876 in ... */ 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=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 *a; if(C_unlikely(!C_demand(C_calculate_demand(36,c,1)))){ C_save_and_reclaim((void *)f_4168,6,av);} a=C_alloc(36); t6=C_i_length(t5); t7=C_eqp(C_fix(3),t6); if(C_truep(t7)){ t8=C_a_i_list1(&a,1,C_SCHEME_TRUE); t9=C_i_car(t5); t10=C_i_cadr(t5); t11=C_a_i_list2(&a,2,t9,t10); t12=C_a_i_record4(&a,4,lf[35],lf[38],lf[77],t11); t13=C_i_caddr(t5); t14=C_a_i_list2(&a,2,t12,t13); t15=C_a_i_record4(&a,4,lf[35],lf[38],lf[78],t14); t16=C_a_i_list2(&a,2,t4,t15); t17=t1; t18=t17;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t18; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],t8,t16); ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k4159 in k4101 in a4092 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_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 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_4161,2,av);} a=C_alloc(33); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_record4(&a,4,lf[35],lf[38],lf[75],t2); t4=C_a_i_list2(&a,2,((C_word*)t0)[3],t3); t5=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[4],t4); t6=C_a_i_list2(&a,2,((C_word*)t0)[5],t5); t7=((C_word*)t0)[6]; t8=t7;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_a_i_record4(&a,4,lf[35],lf[58],((C_word*)t0)[7],t6); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k4951 in a4767 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_4953,2,av);} a=C_alloc(11); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; f_4784(t3,C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[4],t2));} /* k4101 in a4092 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 k4028 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 t4; 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_4103,2,av);} a=C_alloc(14); t2=C_a_i_list1(&a,1,t1); t3=t2; t4=C_i_car(((C_word*)t0)[2]); t5=t4; t6=C_a_i_list1(&a,1,C_SCHEME_TRUE); t7=t6; t8=C_i_cadr(((C_word*)t0)[2]); t9=t8; t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4161,a[2]=t9,a[3]=((C_word*)t0)[3],a[4]=t7,a[5]=t5,a[6]=((C_word*)t0)[4],a[7]=t3,tmp=(C_word)a,a+=8,tmp); /* c-platform.scm:1198: varnode */ t11=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k5367 in k5397 in a5291 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_5369,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a5446 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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=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_5447,6,av);} a=C_alloc(6); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5451,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5598,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:252: remove */ t8=*((C_word*)lf[919]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* a3915 in k3897 in rewrite-call/cc in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 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=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_3916,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_3976,a[2]=t1,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); /* c-platform.scm:1072: get */ t8=*((C_word*)lf[66]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[5]; av2[3]=t6; av2[4]=lf[73]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k5449 in a5446 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_5451,2,av);} a=C_alloc(14); 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_5477,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:257: qnode */ t5=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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_u_i_car(t1); t5=C_a_i_list2(&a,2,((C_word*)t0)[2],t4); t6=((C_word*)t0)[3]; t7=t6;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],t3,t5); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t3=C_eqp(*((C_word*)lf[33]+1),lf[32]); 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_5527,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_5529,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:265: fold-inner */ t8=*((C_word*)lf[918]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}} /* a5370 in k5397 in a5291 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_ccall f_5371(C_word c,C_word *av){ C_word tmp; C_word t0=av[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(11,c,1)))){ C_save_and_reclaim((void *)f_5371,4,av);} a=C_alloc(11); t4=(C_truep(*((C_word*)lf[34]+1))?lf[922]:lf[923]); t5=C_a_i_list2(&a,2,t2,t3); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[35],lf[36],t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k3966 in k3970 in k3974 in a3915 in k3897 in rewrite-call/cc in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 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 t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3968,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3964,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:1077: qnode */ t5=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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);}}} /* k3962 in k3966 in k3970 in k3974 in a3915 in k3897 in rewrite-call/cc in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in ... */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,1)))){ C_save_and_reclaim((void *)f_3964,2,av);} a=C_alloc(14); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=((C_word*)t0)[4]; t4=t3;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[5],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in k3187 in k3184 in k3181 in k3178 in k3175 in k3172 in k3169 in k3166 in k3163 in k3160 in k3157 in k3154 in k3151 in k3148 in k3145 in k3142 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ 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-platform.scm:763: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[475]; av2[3]=C_fix(11); av2[4]=C_fix(2); av2[5]=lf[476]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3202 in k3199 in k3196 in k3193 in k3190 in k3187 in k3184 in k3181 in k3178 in k3175 in k3172 in k3169 in k3166 in k3163 in k3160 in k3157 in k3154 in k3151 in k3148 in k3145 in k3142 in k3139 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ 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-platform.scm:762: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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[116]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3199 in k3196 in k3193 in k3190 in k3187 in k3184 in k3181 in k3178 in k3175 in k3172 in k3169 in k3166 in k3163 in k3160 in k3157 in k3154 in k3151 in k3148 in k3145 in k3142 in k3139 in k3136 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ 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-platform.scm:760: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[435]; av2[3]=C_fix(9); av2[4]=lf[478]; av2[5]=lf[479]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4743 in a4691 in k3415 in k3412 in k3409 in k3406 in k3403 in k3400 in k3397 in k3394 in k3391 in k3388 in k3385 in k3382 in k3379 in k3376 in k3373 in k3370 in k3367 in k3364 in k3361 in k3358 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,1)))){ C_save_and_reclaim((void *)f_4745,2,av);} a=C_alloc(25); /* c-platform.scm:861: build */ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=( /* c-platform.scm:861: build */ f_4695(C_a_i(&a,25),((C_word*)t0)[3],((C_word*)t0)[4],t1) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5397 in a5291 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 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,4)))){ C_save_and_reclaim((void *)f_5399,2,av);} a=C_alloc(13); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_eqp(*((C_word*)lf[33]+1),lf[32]); if(C_truep(t3)){ t4=C_i_length(t2); if(C_truep(C_fixnum_greater_or_equal_p(t4,C_fix(2)))){ t5=C_a_i_list1(&a,1,C_SCHEME_TRUE); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5369,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t6,tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5371,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:304: fold-inner */ t9=*((C_word*)lf[918]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t7; av2[2]=t8; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in k3187 in k3184 in k3181 in k3178 in k3175 in k3172 in k3169 in k3166 in k3163 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3228,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3231,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:770: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[465]; av2[3]=C_fix(11); av2[4]=C_fix(1); av2[5]=lf[466]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4788 in k4782 in a4767 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_fcall f_4790(C_word t0,C_word 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(19,0,1)))){ C_save_and_reclaim_args((void *)trf_4790,2,t0,t1);} a=C_alloc(19); 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_a_i_list1(&a,1,C_SCHEME_TRUE); t3=((C_word*)t0)[3]; t4=C_a_i_record4(&a,4,lf[35],lf[36],lf[901],t3); t5=C_a_i_list2(&a,2,((C_word*)t0)[4],t4); t6=((C_word*)t0)[2]; t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],t2,t5); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k3220 in k3217 in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in k3187 in k3184 in k3181 in k3178 in k3175 in k3172 in k3169 in k3166 in k3163 in k3160 in k3157 in ... */ 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,6)))){ 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-platform.scm:768: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[469]; av2[3]=C_fix(11); av2[4]=C_fix(3); av2[5]=lf[470]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3223 in k3220 in k3217 in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in k3187 in k3184 in k3181 in k3178 in k3175 in k3172 in k3169 in k3166 in k3163 in k3160 in ... */ 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,6)))){ 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-platform.scm:769: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[467]; av2[3]=C_fix(11); av2[4]=C_fix(2); av2[5]=lf[468]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in k3187 in k3184 in k3181 in k3178 in k3175 in k3172 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3237,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3240,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:774: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[461]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[462]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in k3187 in k3184 in k3181 in k3178 in k3175 in k3172 in k3169 in k3166 in ... */ static void C_ccall f_3231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3231,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3234,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:771: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[463]; av2[3]=C_fix(11); av2[4]=C_fix(1); av2[5]=lf[464]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in k3187 in k3184 in k3181 in k3178 in k3175 in k3172 in k3169 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3234,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3237,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:773: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[461]; av2[3]=C_fix(11); av2[4]=C_fix(3); av2[5]=lf[294]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* a4767 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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=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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_4768,6,av);} a=C_alloc(15); t6=C_i_length(t5); t7=C_eqp(t6,C_fix(2)); 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_4784,a[2]=t1,a[3]=t5,a[4]=t4,a[5]=t11,a[6]=t9,tmp=(C_word)a,a+=7,tmp); t13=C_slot(t9,C_fix(1)); t14=C_eqp(lf[42],t13); if(C_truep(t14)){ t15=C_slot(t11,C_fix(1)); t16=C_eqp(lf[42],t15); if(C_truep(t16)){ t17=C_slot(t9,C_fix(2)); t18=C_slot(t11,C_fix(2)); if(C_truep(C_i_equalp(t17,t18))){ t19=C_a_i_list1(&a,1,C_SCHEME_TRUE); t20=t19; t21=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4953,a[2]=t4,a[3]=t12,a[4]=t20,tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:414: qnode */ t22=*((C_word*)lf[39]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t22; av2[1]=t21; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t22+1)))(3,av2);}} else{ t19=t12; f_4784(t19,C_SCHEME_FALSE);}} else{ t17=t12; f_4784(t17,C_SCHEME_FALSE);}} else{ t15=t12; f_4784(t15,C_SCHEME_FALSE);}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k3106 in k3103 in k3100 in k3097 in k3094 in k3091 in k3088 in k3085 in k3082 in k3079 in k3076 in k3073 in k3070 in k3067 in k3064 in k3061 in k3058 in k3055 in k3052 in k3049 in k3046 in k3043 in ... */ 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(3,c,6)))){ C_save_and_reclaim((void *)f_3108,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3111,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:727: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[528]; 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);}} /* k3103 in k3100 in k3097 in k3094 in k3091 in k3088 in k3085 in k3082 in k3079 in k3076 in k3073 in k3070 in k3067 in k3064 in k3061 in k3058 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3105,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3108,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:726: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[530]; 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);}} /* k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2290,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2293,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:484: rewrite-c..r */ f_2195(t2,lf[831],lf[883],lf[884]);} /* k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2293,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2296,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:485: rewrite-c..r */ f_2195(t2,lf[880],lf[881],lf[882]);} /* k3100 in k3097 in k3094 in k3091 in k3088 in k3085 in k3082 in k3079 in k3076 in k3073 in k3070 in k3067 in k3064 in k3061 in k3058 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3102,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3105,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:724: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[532]; av2[3]=C_fix(6); av2[4]=lf[533]; av2[5]=lf[534]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2296,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2299,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:486: rewrite-c..r */ f_2195(t2,lf[877],lf[878],lf[879]);} /* k2297 in k2294 in k2291 in k2288 in k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2299,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2302,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:487: rewrite-c..r */ f_2195(t2,lf[874],lf[875],lf[876]);} /* k3247 in k3244 in k3241 in k3238 in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in k3187 in k3184 in ... */ static void C_ccall f_3249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3249,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3252,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:780: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[457]; av2[3]=C_fix(18); av2[4]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3244 in k3241 in k3238 in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in k3187 in k3184 in k3181 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3246,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3249,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:778: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[458]; 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);}} /* k3238 in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in k3187 in k3184 in k3181 in k3178 in k3175 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3240,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3243,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:776: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[457]; av2[3]=C_fix(12); av2[4]=lf[460]; av2[5]=C_SCHEME_TRUE; av2[6]=C_fix(2); ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3241 in k3238 in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in k3187 in k3184 in k3181 in k3178 in ... */ static void C_ccall f_3243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3243,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3246,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:777: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[456]; av2[3]=C_fix(12); av2[4]=lf[459]; av2[5]=C_SCHEME_TRUE; av2[6]=C_fix(2); ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4782 in a4767 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_fcall f_4784(C_word t0,C_word t1){ C_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(15,0,2)))){ C_save_and_reclaim_args((void *)trf_4784,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]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4790,a[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_4821,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); t4=C_slot(((C_word*)t0)[6],C_fix(1)); t5=C_eqp(lf[41],t4); if(C_truep(t5)){ t6=C_slot(((C_word*)t0)[6],C_fix(2)); t7=C_i_car(t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4894,a[2]=t3,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:417: immediate? */ t10=*((C_word*)lf[293]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t6=t3; f_4821(t6,C_SCHEME_FALSE);}}} /* k3262 in k3259 in k3256 in k3253 in k3250 in k3247 in k3244 in k3241 in k3238 in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3264,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3267,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:786: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[425]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[453]; av2[6]=C_SCHEME_TRUE; av2[7]=C_fix(4); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3259 in k3256 in k3253 in k3250 in k3247 in k3244 in k3241 in k3238 in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_3261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3261,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3264,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:785: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[431]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[454]; av2[6]=C_SCHEME_TRUE; av2[7]=C_fix(4); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3136 in k3133 in k3130 in k3127 in k3124 in k3121 in k3118 in k3115 in k3112 in k3109 in k3106 in k3103 in k3100 in k3097 in k3094 in k3091 in k3088 in k3085 in k3082 in k3079 in k3076 in k3073 in ... */ static void C_ccall f_3138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3138,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3141,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:738: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[496]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[516]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3265 in k3262 in k3259 in k3256 in k3253 in k3250 in k3247 in k3244 in k3241 in k3238 in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_3267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3267,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3270,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:787: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[428]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[452]; av2[6]=C_SCHEME_TRUE; av2[7]=C_fix(4); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3133 in k3130 in k3127 in k3124 in k3121 in k3118 in k3115 in k3112 in k3109 in k3106 in k3103 in k3100 in k3097 in k3094 in k3091 in k3088 in k3085 in k3082 in k3079 in k3076 in k3073 in k3070 in ... */ static void C_ccall f_3135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3135,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3138,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:737: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[498]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[517]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3130 in k3127 in k3124 in k3121 in k3118 in k3115 in k3112 in k3109 in k3106 in k3103 in k3100 in k3097 in k3094 in k3091 in k3088 in k3085 in k3082 in k3079 in k3076 in k3073 in k3070 in k3067 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3132,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3135,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:736: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[500]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[518]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3274 in k3271 in k3268 in k3265 in k3262 in k3259 in k3256 in k3253 in k3250 in k3247 in k3244 in k3241 in k3238 in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3276,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3279,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:791: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[441]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[448]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3271 in k3268 in k3265 in k3262 in k3259 in k3256 in k3253 in k3250 in k3247 in k3244 in k3241 in k3238 in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in k3208 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3273,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3276,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:790: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[443]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[449]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3268 in k3265 in k3262 in k3259 in k3256 in k3253 in k3250 in k3247 in k3244 in k3241 in k3238 in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in k3208 in k3205 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ 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); /* c-platform.scm:788: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[450]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[451]; av2[6]=C_SCHEME_TRUE; av2[7]=C_fix(4); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3277 in k3274 in k3271 in k3268 in k3265 in k3262 in k3259 in k3256 in k3253 in k3250 in k3247 in k3244 in k3241 in k3238 in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3279,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3282,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:792: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[447]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3145 in k3142 in k3139 in k3136 in k3133 in k3130 in k3127 in k3124 in k3121 in k3118 in k3115 in k3112 in k3109 in k3106 in k3103 in k3100 in k3097 in k3094 in k3091 in k3088 in k3085 in k3082 in ... */ static void C_ccall f_3147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3147,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3150,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:741: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[490]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[513]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3139 in k3136 in k3133 in k3130 in k3127 in k3124 in k3121 in k3118 in k3115 in k3112 in k3109 in k3106 in k3103 in k3100 in k3097 in k3094 in k3091 in k3088 in k3085 in k3082 in k3079 in k3076 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3141,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3144,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:739: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[494]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[515]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3142 in k3139 in k3136 in k3133 in k3130 in k3127 in k3124 in k3121 in k3118 in k3115 in k3112 in k3109 in k3106 in k3103 in k3100 in k3097 in k3094 in k3091 in k3088 in k3085 in k3082 in k3079 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3144,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3147,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:740: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[492]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[514]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3283 in k3280 in k3277 in k3274 in k3271 in k3268 in k3265 in k3262 in k3259 in k3256 in k3253 in k3250 in k3247 in k3244 in k3241 in k3238 in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3285,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3288,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:794: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[445]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3280 in k3277 in k3274 in k3271 in k3268 in k3265 in k3262 in k3259 in k3256 in k3253 in k3250 in k3247 in k3244 in k3241 in k3238 in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_ccall f_3282(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_3282,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3285,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:793: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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[446]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3115 in k3112 in k3109 in k3106 in k3103 in k3100 in k3097 in k3094 in k3091 in k3088 in k3085 in k3082 in k3079 in k3076 in k3073 in k3070 in k3067 in k3064 in k3061 in k3058 in k3055 in k3052 in ... */ static void C_ccall f_3117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:731: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[510]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[523]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3286 in k3283 in k3280 in k3277 in k3274 in k3271 in k3268 in k3265 in k3262 in k3259 in k3256 in k3253 in k3250 in k3247 in k3244 in k3241 in k3238 in k3235 in k3232 in k3229 in k3226 in k3223 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(3,c,6)))){ C_save_and_reclaim((void *)f_3288,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3291,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:796: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[443]; av2[3]=C_fix(13); av2[4]=C_SCHEME_FALSE; av2[5]=lf[444]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3109 in k3106 in k3103 in k3100 in k3097 in k3094 in k3091 in k3088 in k3085 in k3082 in k3079 in k3076 in k3073 in k3070 in k3067 in k3064 in k3061 in k3058 in k3055 in k3052 in k3049 in k3046 in ... */ static void C_ccall f_3111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3111,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3114,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:728: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[526]; 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);}} /* k3112 in k3109 in k3106 in k3103 in k3100 in k3097 in k3094 in k3091 in k3088 in k3085 in k3082 in k3079 in k3076 in k3073 in k3070 in k3067 in k3064 in k3061 in k3058 in k3055 in k3052 in k3049 in ... */ static void C_ccall f_3114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3114,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3117,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:729: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[524]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[525]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in k3187 in k3184 in k3181 in k3178 in k3175 in k3172 in k3169 in k3166 in k3163 in k3160 in k3157 in k3154 in k3151 in ... */ 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,6)))){ 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-platform.scm:766: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[472]; av2[3]=C_fix(11); av2[4]=C_fix(3); av2[5]=lf[294]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3217 in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in k3187 in k3184 in k3181 in k3178 in k3175 in k3172 in k3169 in k3166 in k3163 in k3160 in k3157 in k3154 in ... */ 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,6)))){ 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-platform.scm:767: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[471]; av2[3]=C_fix(11); av2[4]=C_SCHEME_FALSE; av2[5]=lf[337]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in k3187 in k3184 in k3181 in k3178 in k3175 in k3172 in k3169 in k3166 in k3163 in k3160 in k3157 in k3154 in k3151 in k3148 in k3145 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ 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-platform.scm:764: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[44]; av2[3]=C_fix(11); av2[4]=C_fix(2); av2[5]=lf[474]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3124 in k3121 in k3118 in k3115 in k3112 in k3109 in k3106 in k3103 in k3100 in k3097 in k3094 in k3091 in k3088 in k3085 in k3082 in k3079 in k3076 in k3073 in k3070 in k3067 in k3064 in k3061 in ... */ static void C_ccall f_3126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3126,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3129,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:734: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[504]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[520]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in k3187 in k3184 in k3181 in k3178 in k3175 in k3172 in k3169 in k3166 in k3163 in k3160 in k3157 in k3154 in k3151 in k3148 in ... */ 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,6)))){ 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-platform.scm:765: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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[294]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3127 in k3124 in k3121 in k3118 in k3115 in k3112 in k3109 in k3106 in k3103 in k3100 in k3097 in k3094 in k3091 in k3088 in k3085 in k3082 in k3079 in k3076 in k3073 in k3070 in k3067 in k3064 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3129,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3132,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:735: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[502]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[519]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3118 in k3115 in k3112 in k3109 in k3106 in k3103 in k3100 in k3097 in k3094 in k3091 in k3088 in k3085 in k3082 in k3079 in k3076 in k3073 in k3070 in k3067 in k3064 in k3061 in k3058 in k3055 in ... */ static void C_ccall f_3120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:732: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[508]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[522]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3121 in k3118 in k3115 in k3112 in k3109 in k3106 in k3103 in k3100 in k3097 in k3094 in k3091 in k3088 in k3085 in k3082 in k3079 in k3076 in k3073 in k3070 in k3067 in k3064 in k3061 in k3058 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:733: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[506]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[521]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3172 in k3169 in k3166 in k3163 in k3160 in k3157 in k3154 in k3151 in k3148 in k3145 in k3142 in k3139 in k3136 in k3133 in k3130 in k3127 in k3124 in k3121 in k3118 in k3115 in k3112 in k3109 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3174,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3177,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:750: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[496]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[497]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3169 in k3166 in k3163 in k3160 in k3157 in k3154 in k3151 in k3148 in k3145 in k3142 in k3139 in k3136 in k3133 in k3130 in k3127 in k3124 in k3121 in k3118 in k3115 in k3112 in k3109 in k3106 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3171,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3174,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:749: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[498]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[499]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3175 in k3172 in k3169 in k3166 in k3163 in k3160 in k3157 in k3154 in k3151 in k3148 in k3145 in k3142 in k3139 in k3136 in k3133 in k3130 in k3127 in k3124 in k3121 in k3118 in k3115 in k3112 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3177,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3180,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:751: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[494]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[495]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3184 in k3181 in k3178 in k3175 in k3172 in k3169 in k3166 in k3163 in k3160 in k3157 in k3154 in k3151 in k3148 in k3145 in k3142 in k3139 in k3136 in k3133 in k3130 in k3127 in k3124 in k3121 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3186,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3189,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:754: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[488]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[489]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3181 in k3178 in k3175 in k3172 in k3169 in k3166 in k3163 in k3160 in k3157 in k3154 in k3151 in k3148 in k3145 in k3142 in k3139 in k3136 in k3133 in k3130 in k3127 in k3124 in k3121 in k3118 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3183,2,av);} a=C_alloc(3); 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); /* c-platform.scm:753: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[490]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[491]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3178 in k3175 in k3172 in k3169 in k3166 in k3163 in k3160 in k3157 in k3154 in k3151 in k3148 in k3145 in k3142 in k3139 in k3136 in k3133 in k3130 in k3127 in k3124 in k3121 in k3118 in k3115 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3180,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3183,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:752: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[492]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[493]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3187 in k3184 in k3181 in k3178 in k3175 in k3172 in k3169 in k3166 in k3163 in k3160 in k3157 in k3154 in k3151 in k3148 in k3145 in k3142 in k3139 in k3136 in k3133 in k3130 in k3127 in k3124 in ... */ 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(3,c,7)))){ C_save_and_reclaim((void *)f_3189,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3192,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:756: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[443]; av2[3]=C_fix(9); av2[4]=lf[486]; av2[5]=lf[487]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k2068 in k1972 in rewrite-apply in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_fcall f_2070(C_word 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_2070,2,t0,t1);} a=C_alloc(12); 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_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2089,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_a_i_record4(&a,4,lf[35],lf[47],lf[48],C_SCHEME_END_OF_LIST); /* c-platform.scm:455: cons* */ t6=*((C_word*)lf[43]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k3151 in k3148 in k3145 in k3142 in k3139 in k3136 in k3133 in k3130 in k3127 in k3124 in k3121 in k3118 in k3115 in k3112 in k3109 in k3106 in k3103 in k3100 in k3097 in k3094 in k3091 in k3088 in ... */ static void C_ccall f_3153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3153,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3156,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:743: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[510]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[511]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3154 in k3151 in k3148 in k3145 in k3142 in k3139 in k3136 in k3133 in k3130 in k3127 in k3124 in k3121 in k3118 in k3115 in k3112 in k3109 in k3106 in k3103 in k3100 in k3097 in k3094 in k3091 in ... */ static void C_ccall f_3156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3156,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3159,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:744: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[508]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[509]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3148 in k3145 in k3142 in k3139 in k3136 in k3133 in k3130 in k3127 in k3124 in k3121 in k3118 in k3115 in k3112 in k3109 in k3106 in k3103 in k3100 in k3097 in k3094 in k3091 in k3088 in k3085 in ... */ static void C_ccall f_3150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3150,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3153,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:742: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[488]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[512]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3157 in k3154 in k3151 in k3148 in k3145 in k3142 in k3139 in k3136 in k3133 in k3130 in k3127 in k3124 in k3121 in k3118 in k3115 in k3112 in k3109 in k3106 in k3103 in k3100 in k3097 in k3094 in ... */ static void C_ccall f_3159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3159,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3162,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:745: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[506]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[507]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2065 in k1972 in rewrite-apply in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word 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(17,c,3)))){ C_save_and_reclaim((void *)f_2067,2,av);} a=C_alloc(17); 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[39]+1); t9=C_slot(((C_word*)t0)[2],C_fix(2)); t10=C_i_car(t9); t11=C_i_check_list_2(t10,lf[44]); t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2020,a[2]=((C_word*)t0)[3],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_2022,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_2022(t16,t12,t10);} /* k3163 in k3160 in k3157 in k3154 in k3151 in k3148 in k3145 in k3142 in k3139 in k3136 in k3133 in k3130 in k3127 in k3124 in k3121 in k3118 in k3115 in k3112 in k3109 in k3106 in k3103 in k3100 in ... */ static void C_ccall f_3165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3165,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3168,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:747: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[502]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[503]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5475 in k5449 in a5446 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_5477,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3160 in k3157 in k3154 in k3151 in k3148 in k3145 in k3142 in k3139 in k3136 in k3133 in k3130 in k3127 in k3124 in k3121 in k3118 in k3115 in k3112 in k3109 in k3106 in k3103 in k3100 in k3097 in ... */ 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3162,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3165,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:746: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[504]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[505]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3166 in k3163 in k3160 in k3157 in k3154 in k3151 in k3148 in k3145 in k3142 in k3139 in k3136 in k3133 in k3130 in k3127 in k3124 in k3121 in k3118 in k3115 in k3112 in k3109 in k3106 in k3103 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3168,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3171,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:748: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[500]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[501]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k2087 in k2068 in k1972 in rewrite-apply in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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(5,c,1)))){ C_save_and_reclaim((void *)f_2089,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4427 in k4401 in a4372 in k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in ... */ static void C_ccall f_4429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_4429,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop432 in k2065 in k1972 in rewrite-apply in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_fcall f_2022(C_word t0,C_word t1,C_word 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_2022,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_2047,a[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:442: g438 */ 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);}}} /* k2018 in k2065 in k1972 in rewrite-apply in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_ccall f_2020(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2020,2,av);} /* c-platform.scm:442: append */ t2=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } 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);}} /* k2045 in map-loop432 in k2065 in k1972 in rewrite-apply in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_ccall f_2047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word 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_2047,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate2(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_2022(t6,((C_word*)t0)[5],t5);} /* a4457 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in k3475 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=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 *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_4458,6,av);} a=C_alloc(18); t6=C_i_length(t5); t7=C_eqp(C_fix(2),t6); if(C_truep(t7)){ t8=C_i_cadr(t5); t9=t8; t10=C_a_i_list1(&a,1,C_SCHEME_TRUE); t11=t10; t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4488,a[2]=t4,a[3]=t1,a[4]=t11,a[5]=t5,tmp=(C_word)a,a+=6,tmp); t13=C_slot(t9,C_fix(1)); t14=C_eqp(lf[41],t13); if(C_truep(t14)){ t15=C_eqp(*((C_word*)lf[33]+1),lf[32]); if(C_truep(t15)){ t16=C_slot(t9,C_fix(2)); t17=C_i_car(t16); t18=t17; if(C_truep(t18)){ t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4538,a[2]=t18,a[3]=t5,a[4]=t12,a[5]=t9,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnump(t18))){ t20=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4590,a[2]=t19,tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:940: big-fixnum? */ t21=*((C_word*)lf[261]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t21; av2[1]=t20; av2[2]=t18; ((C_proc)(void*)(*((C_word*)t21+1)))(3,av2);}} else{ t20=t19; f_4538(t20,C_SCHEME_FALSE);}} else{ t19=t12; f_4488(t19,C_SCHEME_FALSE);}} else{ t16=t12; f_4488(t16,C_SCHEME_FALSE);}} else{ t15=t12; f_4488(t15,C_SCHEME_FALSE);}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k3658 in k3655 in k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in k3634 in k3631 in k3628 in k3625 in k3622 in k3619 in k3616 in k3613 in k3610 in k3607 in k3604 in k3601 in k3598 in k3595 in ... */ static void C_ccall f_3660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3660,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3663,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:998: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[171]; 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);}} /* k3661 in k3658 in k3655 in k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in k3634 in k3631 in k3628 in k3625 in k3622 in k3619 in k3616 in k3613 in k3610 in k3607 in k3604 in k3601 in k3598 in ... */ static void C_ccall f_3663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3663,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3666,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:999: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[169]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[170]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3664 in k3661 in k3658 in k3655 in k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in k3634 in k3631 in k3628 in k3625 in k3622 in k3619 in k3616 in k3613 in k3610 in k3607 in k3604 in k3601 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3666,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3669,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1000: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3667 in k3664 in k3661 in k3658 in k3655 in k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in k3634 in k3631 in k3628 in k3625 in k3622 in k3619 in k3616 in k3613 in k3610 in k3607 in k3604 in ... */ static void C_ccall f_3669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3669,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3672,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1001: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[165]; 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);}} /* k3670 in k3667 in k3664 in k3661 in k3658 in k3655 in k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in k3634 in k3631 in k3628 in k3625 in k3622 in k3619 in k3616 in k3613 in k3610 in k3607 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3672,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3675,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1002: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[163]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[164]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3673 in k3670 in k3667 in k3664 in k3661 in k3658 in k3655 in k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in k3634 in k3631 in k3628 in k3625 in k3622 in k3619 in k3616 in k3613 in k3610 in ... */ static void C_ccall f_3675(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3675,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3678,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1004: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[161]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[162]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3676 in k3673 in k3670 in k3667 in k3664 in k3661 in k3658 in k3655 in k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in k3634 in k3631 in k3628 in k3625 in k3622 in k3619 in k3616 in k3613 in ... */ static void C_ccall f_3678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3678,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3681,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1005: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[159]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[160]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* a5400 in a5291 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_ccall f_5401(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(0,c,1)))){ C_save_and_reclaim((void *)f_5401,3,av);} t3=t2; t4=C_slot(t3,C_fix(1)); t5=C_eqp(lf[41],t4); if(C_truep(t5)){ t6=t2; t7=C_slot(t6,C_fix(2)); t8=C_i_car(t7); t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_i_zerop(t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k3679 in k3676 in k3673 in k3670 in k3667 in k3664 in k3661 in k3658 in k3655 in k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in k3634 in k3631 in k3628 in k3625 in k3622 in k3619 in k3616 in ... */ static void C_ccall f_3681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3681,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3684,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1006: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[157]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[158]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3667 in k3664 in k3661 in k3658 in k3655 in k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in k3634 in k3631 in k3628 in k3625 in k3622 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3687,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3690,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1008: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[153]; 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);}} /* k3682 in k3679 in k3676 in k3673 in k3670 in k3667 in k3664 in k3661 in k3658 in k3655 in k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in k3634 in k3631 in k3628 in k3625 in k3622 in k3619 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3684,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3687,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1007: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[155]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[156]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3568 in k3565 in k3562 in k3559 in k3556 in k3553 in k3550 in k3547 in k3544 in k3541 in k3538 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3570,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3573,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:963: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[234]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[235]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3571 in k3568 in k3565 in k3562 in k3559 in k3556 in k3553 in k3550 in k3547 in k3544 in k3541 in k3538 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3573,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3576,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:964: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[232]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[233]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3574 in k3571 in k3568 in k3565 in k3562 in k3559 in k3556 in k3553 in k3550 in k3547 in k3544 in k3541 in k3538 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in ... */ 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3576,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3579,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:965: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[230]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[231]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3577 in k3574 in k3571 in k3568 in k3565 in k3562 in k3559 in k3556 in k3553 in k3550 in k3547 in k3544 in k3541 in k3538 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3579,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3582,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:966: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[228]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[229]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k2001 in k1972 in rewrite-apply in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_ccall f_2003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2003,2,av);} /* c-platform.scm:440: cons* */ t2=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3667 in k3664 in k3661 in k3658 in k3655 in k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in k3634 in k3631 in k3628 in ... */ static void C_ccall f_3693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3693,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3696,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1010: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3667 in k3664 in k3661 in k3658 in k3655 in k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in k3634 in k3631 in k3628 in k3625 in ... */ 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(3,c,6)))){ C_save_and_reclaim((void *)f_3690,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3693,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1009: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[151]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[152]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3667 in k3664 in k3661 in k3658 in k3655 in k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in k3634 in k3631 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3696,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3699,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1011: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[147]; 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);}} /* k3697 in k3694 in k3691 in k3688 in k3685 in k3682 in k3679 in k3676 in k3673 in k3670 in k3667 in k3664 in k3661 in k3658 in k3655 in k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in k3634 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3699,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3702,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1013: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[145]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[146]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* a2200 in rewrite-c..r in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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=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_2201,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_2213,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:468: call-with-current-continuation */ t9=*((C_word*)lf[55]+1);{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k3091 in k3088 in k3085 in k3082 in k3079 in k3076 in k3073 in k3070 in k3067 in k3064 in k3061 in k3058 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in k3028 in ... */ static void C_ccall f_3093(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3093,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3096,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:721: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[530]; av2[3]=C_fix(6); av2[4]=lf[540]; av2[5]=lf[541]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3088 in k3085 in k3082 in k3079 in k3076 in k3073 in k3070 in k3067 in k3064 in k3061 in k3058 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in k3028 in k3025 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3090,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3093,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:719: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3094 in k3091 in k3088 in k3085 in k3082 in k3079 in k3076 in k3073 in k3070 in k3067 in k3064 in k3061 in k3058 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in k3031 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3096,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3099,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:722: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[526]; av2[3]=C_fix(6); av2[4]=lf[538]; av2[5]=lf[539]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3097 in k3094 in k3091 in k3088 in k3085 in k3082 in k3079 in k3076 in k3073 in k3070 in k3067 in k3064 in k3061 in k3058 in k3055 in k3052 in k3049 in k3046 in k3043 in k3040 in k3037 in k3034 in ... */ 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(3,c,6)))){ C_save_and_reclaim((void *)f_3099,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3102,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:723: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[535]; av2[3]=C_fix(6); av2[4]=lf[536]; av2[5]=lf[537]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* a5128 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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=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,3)))){ C_save_and_reclaim((void *)f_5129,6,av);} a=C_alloc(7); t6=C_i_length(t5); if(C_truep(C_fixnum_greater_or_equal_p(t6,C_fix(2)))){ t7=C_i_car(t5); t8=t7; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5249,a[2]=t8,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t10=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5251,tmp=(C_word)a,a+=2,tmp); t11=t5; t12=C_u_i_cdr(t11); /* c-platform.scm:320: remove */ t13=*((C_word*)lf[919]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=t9; av2[2]=t10; av2[3]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}} else{ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k3580 in k3577 in k3574 in k3571 in k3568 in k3565 in k3562 in k3559 in k3556 in k3553 in k3550 in k3547 in k3544 in k3541 in k3538 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 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; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3582,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3585,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:967: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[226]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[227]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3583 in k3580 in k3577 in k3574 in k3571 in k3568 in k3565 in k3562 in k3559 in k3556 in k3553 in k3550 in k3547 in k3544 in k3541 in k3538 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3585,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3588,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:968: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[223]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[224]; av2[6]=lf[225]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3586 in k3583 in k3580 in k3577 in k3574 in k3571 in k3568 in k3565 in k3562 in k3559 in k3556 in k3553 in k3550 in k3547 in k3544 in k3541 in k3538 in k3535 in k3532 in k3529 in k3526 in k3523 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3588,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3591,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:969: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* a2212 in a2200 in rewrite-c..r in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_ccall f_2213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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(27,c,2)))){ C_save_and_reclaim((void *)f_2213,3,av);} a=C_alloc(27); t3=C_i_car(((C_word*)t0)[2]); t4=C_a_i_list1(&a,1,C_SCHEME_TRUE); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2237,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=(C_truep(*((C_word*)lf[34]+1))?((C_word*)t0)[4]:C_SCHEME_FALSE); if(C_truep(t7)){ t8=C_a_i_list1(&a,1,((C_word*)t0)[4]); t9=((C_word*)t0)[2]; t10=C_a_i_record4(&a,4,lf[35],lf[36],t8,t9); t11=C_a_i_list2(&a,2,((C_word*)t0)[3],t10); t12=t1; t13=t12;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],t5,t11); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ if(C_truep(((C_word*)t0)[5])){ t8=C_a_i_list1(&a,1,((C_word*)t0)[5]); t9=((C_word*)t0)[2]; t10=C_a_i_record4(&a,4,lf[35],lf[36],t8,t9); t11=C_a_i_list2(&a,2,((C_word*)t0)[3],t10); t12=t1; t13=t12;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t13; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],t5,t11); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ /* c-platform.scm:477: return */ t8=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t6; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}} /* k3589 in k3586 in k3583 in k3580 in k3577 in k3574 in k3571 in k3568 in k3565 in k3562 in k3559 in k3556 in k3553 in k3550 in k3547 in k3544 in k3541 in k3538 in k3535 in k3532 in k3529 in k3526 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3591,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3594,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:970: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3595 in k3592 in k3589 in k3586 in k3583 in k3580 in k3577 in k3574 in k3571 in k3568 in k3565 in k3562 in k3559 in k3556 in k3553 in k3550 in k3547 in k3544 in k3541 in k3538 in k3535 in k3532 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3597,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3600,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:972: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3592 in k3589 in k3586 in k3583 in k3580 in k3577 in k3574 in k3571 in k3568 in k3565 in k3562 in k3559 in k3556 in k3553 in k3550 in k3547 in k3544 in k3541 in k3538 in k3535 in k3532 in k3529 in ... */ 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3594,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3597,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:971: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } 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);}} /* k3559 in k3556 in k3553 in k3550 in k3547 in k3544 in k3541 in k3538 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 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 t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3561,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3564,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:960: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[241]; av2[3]=C_fix(17); av2[4]=C_fix(3); av2[5]=lf[242]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3562 in k3559 in k3556 in k3553 in k3550 in k3547 in k3544 in k3541 in k3538 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in ... */ 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(3,c,6)))){ C_save_and_reclaim((void *)f_3564,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3567,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:961: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[238]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[239]; av2[6]=lf[240]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3565 in k3562 in k3559 in k3556 in k3553 in k3550 in k3547 in k3544 in k3541 in k3538 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3567,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3570,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:962: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[236]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[237]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k2235 in a2212 in a2200 in rewrite-c..r in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_ccall f_2237(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_2237,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a5172 in k5247 in a5128 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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=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(5,c,2)))){ C_save_and_reclaim((void *)f_5173,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5180,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t3; t6=C_slot(t5,C_fix(1)); t7=C_eqp(lf[41],t6); if(C_truep(t7)){ t8=t3; t9=C_slot(t8,C_fix(2)); t10=C_i_car(t9); t11=t4; f_5180(t11,C_eqp(C_fix(2),t10));} else{ t8=t4; f_5180(t8,C_SCHEME_FALSE);}} /* k5169 in k5247 in a5128 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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(11,c,1)))){ C_save_and_reclaim((void *)f_5171,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; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4401 in a4372 in k4028 in k4025 in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 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 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_4403,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=C_i_assq(((C_word*)t0)[2],lf[115]); 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_4429,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:1120: varnode */ t7=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } 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; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k1771 in eqv?-id in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_fcall f_1773(C_word t0,C_word t1){ C_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_1773,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]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1782,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_slot(((C_word*)t0)[6],C_fix(1)); t4=C_eqp(lf[41],t3); if(C_truep(t4)){ t5=C_slot(((C_word*)t0)[6],C_fix(2)); t6=C_i_car(t5); t7=C_i_flonump(t6); t8=t2; f_1782(t8,C_i_not(t7));} else{ t5=t2; f_1782(t5,C_SCHEME_FALSE);}}} /* k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_ccall f_2190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; 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_2190,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2193,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:458: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[899]; av2[3]=C_fix(8); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_2193,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2195,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2278,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:479: rewrite-c..r */ f_2195(t3,lf[896],lf[897],lf[898]);} /* rewrite-c..r in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_fcall f_2195(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_2195,4,t1,t2,t3,t4);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2201,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:462: rewrite */ t6=*((C_word*)lf[56]+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);}} /* k5111 in a5003 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_ccall f_5113(C_word c,C_word *av){ C_word tmp; C_word t0=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_5113,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1780 in k1771 in eqv?-id in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_fcall f_1782(C_word t0,C_word t1){ C_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_1782,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1785,a[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_1785(t3,t1);} else{ t3=C_slot(((C_word*)t0)[5],C_fix(1)); t4=C_eqp(lf[41],t3); if(C_truep(t4)){ t5=C_slot(((C_word*)t0)[5],C_fix(2)); t6=C_i_car(t5); t7=C_i_flonump(t6); t8=t2; f_1785(t8,C_i_not(t7));} else{ t5=t2; f_1785(t5,C_SCHEME_FALSE);}}} /* k1783 in k1780 in k1771 in eqv?-id in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_fcall f_1785(C_word t0,C_word 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(19,0,1)))){ C_save_and_reclaim_args((void *)trf_1785,2,t0,t1);} a=C_alloc(19); if(C_truep(t1)){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=((C_word*)t0)[2]; t4=C_a_i_record4(&a,4,lf[35],lf[36],lf[40],t3); t5=C_a_i_list2(&a,2,((C_word*)t0)[3],t4); t6=((C_word*)t0)[4]; t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],t2,t5); ((C_proc)(void*)(*((C_word*)t7+1)))(2,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);}}} /* k3897 in rewrite-call/cc in k3876 in k3873 in k3870 in k3867 in k3730 in k3727 in k3724 in k3721 in k3718 in k3715 in k3712 in k3709 in k3706 in k3703 in k3700 in k3697 in k3694 in k3691 in k3688 in k3685 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 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_3899,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_slot(t1,C_fix(1)); t3=C_eqp(lf[57],t2); if(C_truep(t3)){ t4=C_slot(t1,C_fix(2)); t5=C_i_caddr(t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3916,a[2]=t6,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:1067: decompose-lambda-list */ t8=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=((C_word*)t0)[5]; av2[2]=t6; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ 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; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2281,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2284,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:481: rewrite-c..r */ f_2195(t2,lf[890],lf[891],lf[892]);} /* k5178 in a5172 in k5247 in a5128 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_fcall f_5180(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_5180,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5196,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:334: qnode */ t3=*((C_word*)lf[39]+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]); t3=((C_word*)t0)[3]; t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[35],lf[36],lf[917],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2285 in k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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(4,c,4)))){ C_save_and_reclaim((void *)f_2287,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2290,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:483: rewrite-c..r */ f_2195(t2,lf[852],lf[885],lf[886]);} /* k5247 in a5128 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_5249,2,av);} a=C_alloc(13); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_eqp(*((C_word*)lf[33]+1),lf[32]); if(C_truep(t3)){ t4=C_i_length(t2); if(C_truep(C_fixnum_greater_or_equal_p(t4,C_fix(2)))){ t5=C_a_i_list1(&a,1,C_SCHEME_TRUE); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5171,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t6,tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5173,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:331: fold-inner */ t9=*((C_word*)lf[918]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t7; av2[2]=t8; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t5=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t4=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2282 in k2279 in k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2284,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2287,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:482: rewrite-c..r */ f_2195(t2,lf[887],lf[888],lf[889]);} /* k2276 in k2191 in k2188 in k1960 in k1957 in k1954 in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2278,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2281,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:480: rewrite-c..r */ f_2195(t2,lf[893],lf[894],lf[895]);} /* k3646 in k3643 in k3640 in k3637 in k3634 in k3631 in k3628 in k3625 in k3622 in k3619 in k3616 in k3613 in k3610 in k3607 in k3604 in k3601 in k3598 in k3595 in k3592 in k3589 in k3586 in k3583 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_3648,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3651,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:993: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[179]; av2[3]=C_fix(22); av2[4]=C_fix(2); av2[5]=lf[180]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); av2[8]=lf[181]; ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k3643 in k3640 in k3637 in k3634 in k3631 in k3628 in k3625 in k3622 in k3619 in k3616 in k3613 in k3610 in k3607 in k3604 in k3601 in k3598 in k3595 in k3592 in k3589 in k3586 in k3583 in k3580 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_3645,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3648,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:992: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 9) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[182]; av2[3]=C_fix(22); av2[4]=C_fix(2); av2[5]=lf[183]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[9]+1); av2[8]=lf[184]; ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k3640 in k3637 in k3634 in k3631 in k3628 in k3625 in k3622 in k3619 in k3616 in k3613 in k3610 in k3607 in k3604 in k3601 in k3598 in k3595 in k3592 in k3589 in k3586 in k3583 in k3580 in k3577 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3642,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3645,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:990: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } 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_FALSE; av2[7]=*((C_word*)lf[9]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* a5250 in a5128 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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=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(0,c,1)))){ C_save_and_reclaim((void *)f_5251,3,av);} t3=t2; t4=C_slot(t3,C_fix(1)); t5=C_eqp(lf[41],t4); if(C_truep(t5)){ t6=t2; t7=C_slot(t6,C_fix(2)); t8=C_i_car(t7); t9=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=C_eqp(C_fix(1),t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k3655 in k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in k3634 in k3631 in k3628 in k3625 in k3622 in k3619 in k3616 in k3613 in k3610 in k3607 in k3604 in k3601 in k3598 in k3595 in k3592 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; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3657,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3660,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:997: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } 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_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in k3634 in k3631 in k3628 in k3625 in k3622 in k3619 in k3616 in k3613 in k3610 in k3607 in k3604 in k3601 in k3598 in k3595 in k3592 in k3589 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3654,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3657,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:996: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[175]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[176]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3649 in k3646 in k3643 in k3640 in k3637 in k3634 in k3631 in k3628 in k3625 in k3622 in k3619 in k3616 in k3613 in k3610 in k3607 in k3604 in k3601 in k3598 in k3595 in k3592 in k3589 in k3586 in ... */ 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 *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3651,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3654,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:995: rewrite */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[177]; 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);}} /* eqv?-id in k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_ccall f_1757(C_word c,C_word *av){ C_word tmp; C_word t0=av[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 *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_1757,6,av);} a=C_alloc(15); t6=C_i_length(t5); t7=C_eqp(t6,C_fix(2)); 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_1773,a[2]=t1,a[3]=t5,a[4]=t4,a[5]=t11,a[6]=t9,tmp=(C_word)a,a+=7,tmp); t13=C_slot(t9,C_fix(1)); t14=C_eqp(lf[42],t13); if(C_truep(t14)){ t15=C_slot(t11,C_fix(1)); t16=C_eqp(lf[42],t15); if(C_truep(t16)){ t17=C_slot(t9,C_fix(2)); t18=C_slot(t11,C_fix(2)); if(C_truep(C_i_equalp(t17,t18))){ t19=C_a_i_list1(&a,1,C_SCHEME_TRUE); t20=t19; t21=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1912,a[2]=t4,a[3]=t12,a[4]=t20,tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:391: qnode */ t22=*((C_word*)lf[39]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t22; av2[1]=t21; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t22+1)))(3,av2);}} else{ t19=t12; f_1773(t19,C_SCHEME_FALSE);}} else{ t17=t12; f_1773(t17,C_SCHEME_FALSE);}} else{ t15=t12; f_1773(t15,C_SCHEME_FALSE);}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k1753 in k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ 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 t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_1755,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1757,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1956,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:399: rewrite */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[797]; av2[3]=C_fix(8); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k1750 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1631 in k1610 in k1607 in k1604 */ static void C_ccall f_1752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_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_1752,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1755,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4998,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:379: op1 */ f_1672(t3,lf[905],lf[906],lf[907]);} /* k4486 in a4457 in k3535 in k3532 in k3529 in k3526 in k3523 in k3520 in k3517 in k3514 in k3511 in k3508 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3487 in k3484 in k3481 in k3478 in ... */ static void C_fcall f_4488(C_word t0,C_word t1){ C_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(22,0,1)))){ C_save_and_reclaim_args((void *)trf_4488,2,t0,t1);} a=C_alloc(22); if(C_truep(t1)){ t2=t1; t3=C_a_i_list2(&a,2,((C_word*)t0)[2],t2); t4=((C_word*)t0)[3]; t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[4],t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t2=C_eqp(*((C_word*)lf[33]+1),lf[32]); if(C_truep(t2)){ t3=((C_word*)t0)[5]; t4=C_a_i_record4(&a,4,lf[35],lf[36],lf[257],t3); t5=C_a_i_list2(&a,2,((C_word*)t0)[2],t4); t6=((C_word*)t0)[3]; t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[4],t5); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t3=C_a_i_list2(&a,2,lf[258],*((C_word*)lf[9]+1)); t4=((C_word*)t0)[5]; t5=C_a_i_record4(&a,4,lf[35],lf[38],t3,t4); t6=C_a_i_list2(&a,2,((C_word*)t0)[2],t5); t7=((C_word*)t0)[3]; t8=t7;{ C_word av2[2]; av2[0]=t8; av2[1]=C_a_i_record4(&a,4,lf[35],lf[37],((C_word*)t0)[4],t6); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[553] = { {"f_3769:c_2dplatform_2escm",(void*)f_3769}, {"f_3549:c_2dplatform_2escm",(void*)f_3549}, {"f_3546:c_2dplatform_2escm",(void*)f_3546}, {"f_3543:c_2dplatform_2escm",(void*)f_3543}, {"f_3540:c_2dplatform_2escm",(void*)f_3540}, {"f_5196:c_2dplatform_2escm",(void*)f_5196}, {"f_3558:c_2dplatform_2escm",(void*)f_3558}, {"f_3555:c_2dplatform_2escm",(void*)f_3555}, {"f_3552:c_2dplatform_2escm",(void*)f_3552}, {"f_3525:c_2dplatform_2escm",(void*)f_3525}, {"f_3528:c_2dplatform_2escm",(void*)f_3528}, {"f_3522:c_2dplatform_2escm",(void*)f_3522}, {"f_4236:c_2dplatform_2escm",(void*)f_4236}, {"f_3754:c_2dplatform_2escm",(void*)f_3754}, {"f_1661:c_2dplatform_2escm",(void*)f_1661}, {"f_1667:c_2dplatform_2escm",(void*)f_1667}, {"f_1664:c_2dplatform_2escm",(void*)f_1664}, {"f_1672:c_2dplatform_2escm",(void*)f_1672}, {"f_1670:c_2dplatform_2escm",(void*)f_1670}, {"f_1674:c_2dplatform_2escm",(void*)f_1674}, {"f_3734:c_2dplatform_2escm",(void*)f_3734}, {"f_3732:c_2dplatform_2escm",(void*)f_3732}, {"f_1744:c_2dplatform_2escm",(void*)f_1744}, {"f_3702:c_2dplatform_2escm",(void*)f_3702}, {"f_3705:c_2dplatform_2escm",(void*)f_3705}, {"f_3708:c_2dplatform_2escm",(void*)f_3708}, {"f_2670:c_2dplatform_2escm",(void*)f_2670}, {"f_2673:c_2dplatform_2escm",(void*)f_2673}, {"f_2676:c_2dplatform_2escm",(void*)f_2676}, {"f_2679:c_2dplatform_2escm",(void*)f_2679}, {"f_4821:c_2dplatform_2escm",(void*)f_4821}, {"f_4824:c_2dplatform_2escm",(void*)f_4824}, {"f_3711:c_2dplatform_2escm",(void*)f_3711}, {"f_3714:c_2dplatform_2escm",(void*)f_3714}, {"f_3717:c_2dplatform_2escm",(void*)f_3717}, {"f_3609:c_2dplatform_2escm",(void*)f_3609}, {"f_3606:c_2dplatform_2escm",(void*)f_3606}, {"f_3869:c_2dplatform_2escm",(void*)f_3869}, {"f_3600:c_2dplatform_2escm",(void*)f_3600}, {"f_3875:c_2dplatform_2escm",(void*)f_3875}, {"f_3872:c_2dplatform_2escm",(void*)f_3872}, {"f_3878:c_2dplatform_2escm",(void*)f_3878}, {"f_3603:c_2dplatform_2escm",(void*)f_3603}, {"f_2661:c_2dplatform_2escm",(void*)f_2661}, {"f_2664:c_2dplatform_2escm",(void*)f_2664}, {"f_2667:c_2dplatform_2escm",(void*)f_2667}, {"f_5292:c_2dplatform_2escm",(void*)f_5292}, {"f_4286:c_2dplatform_2escm",(void*)f_4286}, {"f_3618:c_2dplatform_2escm",(void*)f_3618}, {"f_3615:c_2dplatform_2escm",(void*)f_3615}, {"f_3612:c_2dplatform_2escm",(void*)f_3612}, {"f_3880:c_2dplatform_2escm",(void*)f_3880}, {"f_2691:c_2dplatform_2escm",(void*)f_2691}, {"f_2697:c_2dplatform_2escm",(void*)f_2697}, {"f_2694:c_2dplatform_2escm",(void*)f_2694}, {"f_3627:c_2dplatform_2escm",(void*)f_3627}, {"f_3621:c_2dplatform_2escm",(void*)f_3621}, {"f_4034:c_2dplatform_2escm",(void*)f_4034}, {"f_4037:c_2dplatform_2escm",(void*)f_4037}, {"f_3624:c_2dplatform_2escm",(void*)f_3624}, {"f_2682:c_2dplatform_2escm",(void*)f_2682}, {"f_1962:c_2dplatform_2escm",(void*)f_1962}, {"f_2685:c_2dplatform_2escm",(void*)f_2685}, {"f_1964:c_2dplatform_2escm",(void*)f_1964}, {"f_2688:c_2dplatform_2escm",(void*)f_2688}, {"f_2796:c_2dplatform_2escm",(void*)f_2796}, {"f_2799:c_2dplatform_2escm",(void*)f_2799}, {"f_4030:c_2dplatform_2escm",(void*)f_4030}, {"f_2790:c_2dplatform_2escm",(void*)f_2790}, {"f_2793:c_2dplatform_2escm",(void*)f_2793}, {"f_4894:c_2dplatform_2escm",(void*)f_4894}, {"f_3639:c_2dplatform_2escm",(void*)f_3639}, {"f_3636:c_2dplatform_2escm",(void*)f_3636}, {"f_3633:c_2dplatform_2escm",(void*)f_3633}, {"f_3630:c_2dplatform_2escm",(void*)f_3630}, {"f_1974:c_2dplatform_2escm",(void*)f_1974}, {"f_3009:c_2dplatform_2escm",(void*)f_3009}, {"f_3006:c_2dplatform_2escm",(void*)f_3006}, {"f_2703:c_2dplatform_2escm",(void*)f_2703}, {"f_2700:c_2dplatform_2escm",(void*)f_2700}, {"f_3003:c_2dplatform_2escm",(void*)f_3003}, {"f_2706:c_2dplatform_2escm",(void*)f_2706}, {"f_3000:c_2dplatform_2escm",(void*)f_3000}, {"f_2709:c_2dplatform_2escm",(void*)f_2709}, {"f_4861:c_2dplatform_2escm",(void*)f_4861}, {"f_2877:c_2dplatform_2escm",(void*)f_2877}, {"f_2871:c_2dplatform_2escm",(void*)f_2871}, {"f_3537:c_2dplatform_2escm",(void*)f_3537}, {"f_3531:c_2dplatform_2escm",(void*)f_3531}, {"f_2874:c_2dplatform_2escm",(void*)f_2874}, {"f_3018:c_2dplatform_2escm",(void*)f_3018}, {"f_3534:c_2dplatform_2escm",(void*)f_3534}, {"f_3015:c_2dplatform_2escm",(void*)f_3015}, {"f_3012:c_2dplatform_2escm",(void*)f_3012}, {"f_4027:c_2dplatform_2escm",(void*)f_4027}, {"f_2865:c_2dplatform_2escm",(void*)f_2865}, {"f_3507:c_2dplatform_2escm",(void*)f_3507}, {"f_2868:c_2dplatform_2escm",(void*)f_2868}, {"f_2862:c_2dplatform_2escm",(void*)f_2862}, {"f_3501:c_2dplatform_2escm",(void*)f_3501}, {"f_3027:c_2dplatform_2escm",(void*)f_3027}, {"f_3504:c_2dplatform_2escm",(void*)f_3504}, {"f_1997:c_2dplatform_2escm",(void*)f_1997}, {"f_3021:c_2dplatform_2escm",(void*)f_3021}, {"f_3024:c_2dplatform_2escm",(void*)f_3024}, {"f_4079:c_2dplatform_2escm",(void*)f_4079}, {"f_2898:c_2dplatform_2escm",(void*)f_2898}, {"f_3519:c_2dplatform_2escm",(void*)f_3519}, {"f_4073:c_2dplatform_2escm",(void*)f_4073}, {"f_3516:c_2dplatform_2escm",(void*)f_3516}, {"f_4076:c_2dplatform_2escm",(void*)f_4076}, {"f_3510:c_2dplatform_2escm",(void*)f_3510}, {"f_2892:c_2dplatform_2escm",(void*)f_2892}, {"f_3036:c_2dplatform_2escm",(void*)f_3036}, {"f_2895:c_2dplatform_2escm",(void*)f_2895}, {"f_3039:c_2dplatform_2escm",(void*)f_3039}, {"f_3513:c_2dplatform_2escm",(void*)f_3513}, {"f_4070:c_2dplatform_2escm",(void*)f_4070}, {"f_3030:c_2dplatform_2escm",(void*)f_3030}, {"f_3033:c_2dplatform_2escm",(void*)f_3033}, {"f_4049:c_2dplatform_2escm",(void*)f_4049}, {"f_2889:c_2dplatform_2escm",(void*)f_2889}, {"f_2886:c_2dplatform_2escm",(void*)f_2886}, {"f_4046:c_2dplatform_2escm",(void*)f_4046}, {"f_4043:c_2dplatform_2escm",(void*)f_4043}, {"f_2880:c_2dplatform_2escm",(void*)f_2880}, {"f_2883:c_2dplatform_2escm",(void*)f_2883}, {"f_3048:c_2dplatform_2escm",(void*)f_3048}, {"f_2748:c_2dplatform_2escm",(void*)f_2748}, {"f_4040:c_2dplatform_2escm",(void*)f_4040}, {"f_3042:c_2dplatform_2escm",(void*)f_3042}, {"f_3045:c_2dplatform_2escm",(void*)f_3045}, {"f_2745:c_2dplatform_2escm",(void*)f_2745}, {"f_2742:c_2dplatform_2escm",(void*)f_2742}, {"f_2126:c_2dplatform_2escm",(void*)f_2126}, {"f_2838:c_2dplatform_2escm",(void*)f_2838}, {"f_2835:c_2dplatform_2escm",(void*)f_2835}, {"f_2832:c_2dplatform_2escm",(void*)f_2832}, {"f_3054:c_2dplatform_2escm",(void*)f_3054}, {"f_3051:c_2dplatform_2escm",(void*)f_3051}, {"f_1655:c_2dplatform_2escm",(void*)f_1655}, {"f_1658:c_2dplatform_2escm",(void*)f_1658}, {"f_2739:c_2dplatform_2escm",(void*)f_2739}, {"f_2376:c_2dplatform_2escm",(void*)f_2376}, {"f_3057:c_2dplatform_2escm",(void*)f_3057}, {"f_2736:c_2dplatform_2escm",(void*)f_2736}, {"f_2733:c_2dplatform_2escm",(void*)f_2733}, {"f_2730:c_2dplatform_2escm",(void*)f_2730}, {"f_2484:c_2dplatform_2escm",(void*)f_2484}, {"f_2488:c_2dplatform_2escm",(void*)f_2488}, {"f_1633:c_2dplatform_2escm",(void*)f_1633}, {"f_4067:c_2dplatform_2escm",(void*)f_4067}, {"f_4064:c_2dplatform_2escm",(void*)f_4064}, {"f_1959:c_2dplatform_2escm",(void*)f_1959}, {"f_1956:c_2dplatform_2escm",(void*)f_1956}, {"f_3066:c_2dplatform_2escm",(void*)f_3066}, {"f_3063:c_2dplatform_2escm",(void*)f_3063}, {"f_3060:c_2dplatform_2escm",(void*)f_3060}, {"f_4061:c_2dplatform_2escm",(void*)f_4061}, {"f_3069:c_2dplatform_2escm",(void*)f_3069}, {"f_2859:c_2dplatform_2escm",(void*)f_2859}, {"f_2856:c_2dplatform_2escm",(void*)f_2856}, {"f_2853:c_2dplatform_2escm",(void*)f_2853}, {"f_2850:c_2dplatform_2escm",(void*)f_2850}, {"f_3075:c_2dplatform_2escm",(void*)f_3075}, {"f_3072:c_2dplatform_2escm",(void*)f_3072}, {"f_3078:c_2dplatform_2escm",(void*)f_3078}, {"f_2847:c_2dplatform_2escm",(void*)f_2847}, {"f_3822:c_2dplatform_2escm",(void*)f_3822}, {"f_4085:c_2dplatform_2escm",(void*)f_4085}, {"f_4082:c_2dplatform_2escm",(void*)f_4082}, {"f_3824:c_2dplatform_2escm",(void*)f_3824}, {"f_2844:c_2dplatform_2escm",(void*)f_2844}, {"f_2841:c_2dplatform_2escm",(void*)f_2841}, {"f_4088:c_2dplatform_2escm",(void*)f_4088}, {"f_3084:c_2dplatform_2escm",(void*)f_3084}, {"f_3081:c_2dplatform_2escm",(void*)f_3081}, {"f_2787:c_2dplatform_2escm",(void*)f_2787}, {"f_5536:c_2dplatform_2escm",(void*)f_5536}, {"f_3087:c_2dplatform_2escm",(void*)f_3087}, {"f_2781:c_2dplatform_2escm",(void*)f_2781}, {"f_2784:c_2dplatform_2escm",(void*)f_2784}, {"f_4058:c_2dplatform_2escm",(void*)f_4058}, {"f_4055:c_2dplatform_2escm",(void*)f_4055}, {"f_2778:c_2dplatform_2escm",(void*)f_2778}, {"f_4052:c_2dplatform_2escm",(void*)f_4052}, {"f_2775:c_2dplatform_2escm",(void*)f_2775}, {"f_2772:c_2dplatform_2escm",(void*)f_2772}, {"f_3720:c_2dplatform_2escm",(void*)f_3720}, {"f_3723:c_2dplatform_2escm",(void*)f_3723}, {"f_3726:c_2dplatform_2escm",(void*)f_3726}, {"f_3729:c_2dplatform_2escm",(void*)f_3729}, {"f_2658:c_2dplatform_2escm",(void*)f_2658}, {"f_2655:c_2dplatform_2escm",(void*)f_2655}, {"f_2652:c_2dplatform_2escm",(void*)f_2652}, {"f_2769:c_2dplatform_2escm",(void*)f_2769}, {"f_5552:c_2dplatform_2escm",(void*)f_5552}, {"f_2766:c_2dplatform_2escm",(void*)f_2766}, {"f_2763:c_2dplatform_2escm",(void*)f_2763}, {"f_1912:c_2dplatform_2escm",(void*)f_1912}, {"f_2760:c_2dplatform_2escm",(void*)f_2760}, {"f_2811:c_2dplatform_2escm",(void*)f_2811}, {"f_2814:c_2dplatform_2escm",(void*)f_2814}, {"f_2817:c_2dplatform_2escm",(void*)f_2817}, {"f_2646:c_2dplatform_2escm",(void*)f_2646}, {"f_2643:c_2dplatform_2escm",(void*)f_2643}, {"f_2640:c_2dplatform_2escm",(void*)f_2640}, {"f_4615:c_2dplatform_2escm",(void*)f_4615}, {"f_2757:c_2dplatform_2escm",(void*)f_2757}, {"f_2751:c_2dplatform_2escm",(void*)f_2751}, {"f_2754:c_2dplatform_2escm",(void*)f_2754}, {"f_4538:c_2dplatform_2escm",(void*)f_4538}, {"f_2802:c_2dplatform_2escm",(void*)f_2802}, {"f_2649:c_2dplatform_2escm",(void*)f_2649}, {"f_2805:c_2dplatform_2escm",(void*)f_2805}, {"f_2808:c_2dplatform_2escm",(void*)f_2808}, {"f_4093:c_2dplatform_2escm",(void*)f_4093}, {"f_4091:c_2dplatform_2escm",(void*)f_4091}, {"f_4657:c_2dplatform_2escm",(void*)f_4657}, {"f_4566:c_2dplatform_2escm",(void*)f_4566}, {"f_4562:c_2dplatform_2escm",(void*)f_4562}, {"f_1612:c_2dplatform_2escm",(void*)f_1612}, {"f_1606:c_2dplatform_2escm",(void*)f_1606}, {"f_1609:c_2dplatform_2escm",(void*)f_1609}, {"f_2988:c_2dplatform_2escm",(void*)f_2988}, {"f_2982:c_2dplatform_2escm",(void*)f_2982}, {"f_2985:c_2dplatform_2escm",(void*)f_2985}, {"f_2337:c_2dplatform_2escm",(void*)f_2337}, {"f_2976:c_2dplatform_2escm",(void*)f_2976}, {"f_2979:c_2dplatform_2escm",(void*)f_2979}, {"f_2970:c_2dplatform_2escm",(void*)f_2970}, {"f_2973:c_2dplatform_2escm",(void*)f_2973}, {"f_3480:c_2dplatform_2escm",(void*)f_3480}, {"f_4695:c_2dplatform_2escm",(void*)f_4695}, {"f_3483:c_2dplatform_2escm",(void*)f_3483}, {"f_4692:c_2dplatform_2escm",(void*)f_4692}, {"f_3486:c_2dplatform_2escm",(void*)f_3486}, {"f_3489:c_2dplatform_2escm",(void*)f_3489}, {"f_4590:c_2dplatform_2escm",(void*)f_4590}, {"f_5642:c_2dplatform_2escm",(void*)f_5642}, {"f_2562:c_2dplatform_2escm",(void*)f_2562}, {"f_2565:c_2dplatform_2escm",(void*)f_2565}, {"f_2568:c_2dplatform_2escm",(void*)f_2568}, {"f_5657:c_2dplatform_2escm",(void*)f_5657}, {"f_3471:c_2dplatform_2escm",(void*)f_3471}, {"f_3477:c_2dplatform_2escm",(void*)f_3477}, {"f_3474:c_2dplatform_2escm",(void*)f_3474}, {"f_3381:c_2dplatform_2escm",(void*)f_3381}, {"f_3384:c_2dplatform_2escm",(void*)f_3384}, {"f_3387:c_2dplatform_2escm",(void*)f_3387}, {"f_2820:c_2dplatform_2escm",(void*)f_2820}, {"f_2823:c_2dplatform_2escm",(void*)f_2823}, {"f_2826:c_2dplatform_2escm",(void*)f_2826}, {"f_3390:c_2dplatform_2escm",(void*)f_3390}, {"f_2613:c_2dplatform_2escm",(void*)f_2613}, {"f_2829:c_2dplatform_2escm",(void*)f_2829}, {"f_3393:c_2dplatform_2escm",(void*)f_3393}, {"f_2619:c_2dplatform_2escm",(void*)f_2619}, {"f_2616:c_2dplatform_2escm",(void*)f_2616}, {"f_3396:c_2dplatform_2escm",(void*)f_3396}, {"f_3399:c_2dplatform_2escm",(void*)f_3399}, {"f_2610:c_2dplatform_2escm",(void*)f_2610}, {"f_2721:c_2dplatform_2escm",(void*)f_2721}, {"f_2724:c_2dplatform_2escm",(void*)f_2724}, {"f_2727:c_2dplatform_2escm",(void*)f_2727}, {"f_2922:c_2dplatform_2escm",(void*)f_2922}, {"f_2925:c_2dplatform_2escm",(void*)f_2925}, {"f_2928:c_2dplatform_2escm",(void*)f_2928}, {"f_3492:c_2dplatform_2escm",(void*)f_3492}, {"f_3495:c_2dplatform_2escm",(void*)f_3495}, {"f_3498:c_2dplatform_2escm",(void*)f_3498}, {"f_3363:c_2dplatform_2escm",(void*)f_3363}, {"f_2604:c_2dplatform_2escm",(void*)f_2604}, {"f_3360:c_2dplatform_2escm",(void*)f_3360}, {"f_3366:c_2dplatform_2escm",(void*)f_3366}, {"f_2607:c_2dplatform_2escm",(void*)f_2607}, {"f_3369:c_2dplatform_2escm",(void*)f_3369}, {"f_2601:c_2dplatform_2escm",(void*)f_2601}, {"f_2712:c_2dplatform_2escm",(void*)f_2712}, {"f_2715:c_2dplatform_2escm",(void*)f_2715}, {"f_2718:c_2dplatform_2escm",(void*)f_2718}, {"f_5632:c_2dplatform_2escm",(void*)f_5632}, {"f_2592:c_2dplatform_2escm",(void*)f_2592}, {"f_2913:c_2dplatform_2escm",(void*)f_2913}, {"f_2910:c_2dplatform_2escm",(void*)f_2910}, {"f_2916:c_2dplatform_2escm",(void*)f_2916}, {"f_2595:c_2dplatform_2escm",(void*)f_2595}, {"f_2598:c_2dplatform_2escm",(void*)f_2598}, {"f_2919:c_2dplatform_2escm",(void*)f_2919}, {"f_3462:c_2dplatform_2escm",(void*)f_3462}, {"f_3465:c_2dplatform_2escm",(void*)f_3465}, {"f_3468:c_2dplatform_2escm",(void*)f_3468}, {"f_3372:c_2dplatform_2escm",(void*)f_3372}, {"f_2637:c_2dplatform_2escm",(void*)f_2637}, {"f_2631:c_2dplatform_2escm",(void*)f_2631}, {"f_2634:c_2dplatform_2escm",(void*)f_2634}, {"f_3375:c_2dplatform_2escm",(void*)f_3375}, {"f_3378:c_2dplatform_2escm",(void*)f_3378}, {"f_2302:c_2dplatform_2escm",(void*)f_2302}, {"f_2305:c_2dplatform_2escm",(void*)f_2305}, {"f_2306:c_2dplatform_2escm",(void*)f_2306}, {"f_2455:c_2dplatform_2escm",(void*)f_2455}, {"f_5061:c_2dplatform_2escm",(void*)f_5061}, {"f_2583:c_2dplatform_2escm",(void*)f_2583}, {"f_2580:c_2dplatform_2escm",(void*)f_2580}, {"f_2586:c_2dplatform_2escm",(void*)f_2586}, {"f_2589:c_2dplatform_2escm",(void*)f_2589}, {"f_2625:c_2dplatform_2escm",(void*)f_2625}, {"f_2628:c_2dplatform_2escm",(void*)f_2628}, {"f_2622:c_2dplatform_2escm",(void*)f_2622}, {"f_2571:c_2dplatform_2escm",(void*)f_2571}, {"f_2574:c_2dplatform_2escm",(void*)f_2574}, {"f_2577:c_2dplatform_2escm",(void*)f_2577}, {"f_5002:c_2dplatform_2escm",(void*)f_5002}, {"f_5004:c_2dplatform_2escm",(void*)f_5004}, {"f_2967:c_2dplatform_2escm",(void*)f_2967}, {"f_2964:c_2dplatform_2escm",(void*)f_2964}, {"f_2961:c_2dplatform_2escm",(void*)f_2961}, {"f_2958:c_2dplatform_2escm",(void*)f_2958}, {"f_2955:c_2dplatform_2escm",(void*)f_2955}, {"f_2952:c_2dplatform_2escm",(void*)f_2952}, {"f_2342:c_2dplatform_2escm",(void*)f_2342}, {"f_2340:c_2dplatform_2escm",(void*)f_2340}, {"f_2949:c_2dplatform_2escm",(void*)f_2949}, {"f_2946:c_2dplatform_2escm",(void*)f_2946}, {"f_2943:c_2dplatform_2escm",(void*)f_2943}, {"f_2940:c_2dplatform_2escm",(void*)f_2940}, {"f_2403:c_2dplatform_2escm",(void*)f_2403}, {"toplevel:c_2dplatform_2escm",(void*)C_platform_toplevel}, {"f_2406:c_2dplatform_2escm",(void*)f_2406}, {"f_2409:c_2dplatform_2escm",(void*)f_2409}, {"f_2937:c_2dplatform_2escm",(void*)f_2937}, {"f_2931:c_2dplatform_2escm",(void*)f_2931}, {"f_2934:c_2dplatform_2escm",(void*)f_2934}, {"f_5043:c_2dplatform_2escm",(void*)f_5043}, {"f_5598:c_2dplatform_2escm",(void*)f_5598}, {"f_2997:c_2dplatform_2escm",(void*)f_2997}, {"f_2991:c_2dplatform_2escm",(void*)f_2991}, {"f_2994:c_2dplatform_2escm",(void*)f_2994}, {"f_3438:c_2dplatform_2escm",(void*)f_3438}, {"f_3435:c_2dplatform_2escm",(void*)f_3435}, {"f_3432:c_2dplatform_2escm",(void*)f_3432}, {"f_3459:c_2dplatform_2escm",(void*)f_3459}, {"f_3456:c_2dplatform_2escm",(void*)f_3456}, {"f_3453:c_2dplatform_2escm",(void*)f_3453}, {"f_3450:c_2dplatform_2escm",(void*)f_3450}, {"f_2559:c_2dplatform_2escm",(void*)f_2559}, {"f_3429:c_2dplatform_2escm",(void*)f_3429}, {"f_3426:c_2dplatform_2escm",(void*)f_3426}, {"f_3423:c_2dplatform_2escm",(void*)f_3423}, {"f_3420:c_2dplatform_2escm",(void*)f_3420}, {"f_4998:c_2dplatform_2escm",(void*)f_4998}, {"f_4344:c_2dplatform_2escm",(void*)f_4344}, {"f_5527:c_2dplatform_2escm",(void*)f_5527}, {"f_5529:c_2dplatform_2escm",(void*)f_5529}, {"f_3255:c_2dplatform_2escm",(void*)f_3255}, {"f_3252:c_2dplatform_2escm",(void*)f_3252}, {"f_4373:c_2dplatform_2escm",(void*)f_4373}, {"f_3258:c_2dplatform_2escm",(void*)f_3258}, {"f_2901:c_2dplatform_2escm",(void*)f_2901}, {"f_2904:c_2dplatform_2escm",(void*)f_2904}, {"f_2907:c_2dplatform_2escm",(void*)f_2907}, {"f_3345:c_2dplatform_2escm",(void*)f_3345}, {"f_3348:c_2dplatform_2escm",(void*)f_3348}, {"f_3342:c_2dplatform_2escm",(void*)f_3342}, {"f_3408:c_2dplatform_2escm",(void*)f_3408}, {"f_3402:c_2dplatform_2escm",(void*)f_3402}, {"f_3405:c_2dplatform_2escm",(void*)f_3405}, {"f_3357:c_2dplatform_2escm",(void*)f_3357}, {"f_4319:c_2dplatform_2escm",(void*)f_4319}, {"f_3351:c_2dplatform_2escm",(void*)f_3351}, {"f_4316:c_2dplatform_2escm",(void*)f_4316}, {"f_3354:c_2dplatform_2escm",(void*)f_3354}, {"f_3327:c_2dplatform_2escm",(void*)f_3327}, {"f_3324:c_2dplatform_2escm",(void*)f_3324}, {"f_3321:c_2dplatform_2escm",(void*)f_3321}, {"f_3192:c_2dplatform_2escm",(void*)f_3192}, {"f_3195:c_2dplatform_2escm",(void*)f_3195}, {"f_3198:c_2dplatform_2escm",(void*)f_3198}, {"f_3339:c_2dplatform_2escm",(void*)f_3339}, {"f_3336:c_2dplatform_2escm",(void*)f_3336}, {"f_3333:c_2dplatform_2escm",(void*)f_3333}, {"f_3291:c_2dplatform_2escm",(void*)f_3291}, {"f_3330:c_2dplatform_2escm",(void*)f_3330}, {"f_3294:c_2dplatform_2escm",(void*)f_3294}, {"f_3297:c_2dplatform_2escm",(void*)f_3297}, {"f_3306:c_2dplatform_2escm",(void*)f_3306}, {"f_3309:c_2dplatform_2escm",(void*)f_3309}, {"f_3300:c_2dplatform_2escm",(void*)f_3300}, {"f_3303:c_2dplatform_2escm",(void*)f_3303}, {"f_3447:c_2dplatform_2escm",(void*)f_3447}, {"f_3441:c_2dplatform_2escm",(void*)f_3441}, {"f_3444:c_2dplatform_2escm",(void*)f_3444}, {"f_3318:c_2dplatform_2escm",(void*)f_3318}, {"f_3312:c_2dplatform_2escm",(void*)f_3312}, {"f_3315:c_2dplatform_2escm",(void*)f_3315}, {"f_3417:c_2dplatform_2escm",(void*)f_3417}, {"f_3411:c_2dplatform_2escm",(void*)f_3411}, {"f_3414:c_2dplatform_2escm",(void*)f_3414}, {"f_3972:c_2dplatform_2escm",(void*)f_3972}, {"f_3976:c_2dplatform_2escm",(void*)f_3976}, {"f_4168:c_2dplatform_2escm",(void*)f_4168}, {"f_4161:c_2dplatform_2escm",(void*)f_4161}, {"f_4953:c_2dplatform_2escm",(void*)f_4953}, {"f_4103:c_2dplatform_2escm",(void*)f_4103}, {"f_5369:c_2dplatform_2escm",(void*)f_5369}, {"f_5447:c_2dplatform_2escm",(void*)f_5447}, {"f_3916:c_2dplatform_2escm",(void*)f_3916}, {"f_5451:c_2dplatform_2escm",(void*)f_5451}, {"f_5371:c_2dplatform_2escm",(void*)f_5371}, {"f_3968:c_2dplatform_2escm",(void*)f_3968}, {"f_3964:c_2dplatform_2escm",(void*)f_3964}, {"f_3207:c_2dplatform_2escm",(void*)f_3207}, {"f_3204:c_2dplatform_2escm",(void*)f_3204}, {"f_3201:c_2dplatform_2escm",(void*)f_3201}, {"f_4745:c_2dplatform_2escm",(void*)f_4745}, {"f_5399:c_2dplatform_2escm",(void*)f_5399}, {"f_3228:c_2dplatform_2escm",(void*)f_3228}, {"f_4790:c_2dplatform_2escm",(void*)f_4790}, {"f_3222:c_2dplatform_2escm",(void*)f_3222}, {"f_3225:c_2dplatform_2escm",(void*)f_3225}, {"f_3237:c_2dplatform_2escm",(void*)f_3237}, {"f_3231:c_2dplatform_2escm",(void*)f_3231}, {"f_3234:c_2dplatform_2escm",(void*)f_3234}, {"f_4768:c_2dplatform_2escm",(void*)f_4768}, {"f_3108:c_2dplatform_2escm",(void*)f_3108}, {"f_3105:c_2dplatform_2escm",(void*)f_3105}, {"f_2290:c_2dplatform_2escm",(void*)f_2290}, {"f_2293:c_2dplatform_2escm",(void*)f_2293}, {"f_3102:c_2dplatform_2escm",(void*)f_3102}, {"f_2296:c_2dplatform_2escm",(void*)f_2296}, {"f_2299:c_2dplatform_2escm",(void*)f_2299}, {"f_3249:c_2dplatform_2escm",(void*)f_3249}, {"f_3246:c_2dplatform_2escm",(void*)f_3246}, {"f_3240:c_2dplatform_2escm",(void*)f_3240}, {"f_3243:c_2dplatform_2escm",(void*)f_3243}, {"f_4784:c_2dplatform_2escm",(void*)f_4784}, {"f_3264:c_2dplatform_2escm",(void*)f_3264}, {"f_3261:c_2dplatform_2escm",(void*)f_3261}, {"f_3138:c_2dplatform_2escm",(void*)f_3138}, {"f_3267:c_2dplatform_2escm",(void*)f_3267}, {"f_3135:c_2dplatform_2escm",(void*)f_3135}, {"f_3132:c_2dplatform_2escm",(void*)f_3132}, {"f_3276:c_2dplatform_2escm",(void*)f_3276}, {"f_3273:c_2dplatform_2escm",(void*)f_3273}, {"f_3270:c_2dplatform_2escm",(void*)f_3270}, {"f_3279:c_2dplatform_2escm",(void*)f_3279}, {"f_3147:c_2dplatform_2escm",(void*)f_3147}, {"f_3141:c_2dplatform_2escm",(void*)f_3141}, {"f_3144:c_2dplatform_2escm",(void*)f_3144}, {"f_3285:c_2dplatform_2escm",(void*)f_3285}, {"f_3282:c_2dplatform_2escm",(void*)f_3282}, {"f_3117:c_2dplatform_2escm",(void*)f_3117}, {"f_3288:c_2dplatform_2escm",(void*)f_3288}, {"f_3111:c_2dplatform_2escm",(void*)f_3111}, {"f_3114:c_2dplatform_2escm",(void*)f_3114}, {"f_3216:c_2dplatform_2escm",(void*)f_3216}, {"f_3219:c_2dplatform_2escm",(void*)f_3219}, {"f_3210:c_2dplatform_2escm",(void*)f_3210}, {"f_3126:c_2dplatform_2escm",(void*)f_3126}, {"f_3213:c_2dplatform_2escm",(void*)f_3213}, {"f_3129:c_2dplatform_2escm",(void*)f_3129}, {"f_3120:c_2dplatform_2escm",(void*)f_3120}, {"f_3123:c_2dplatform_2escm",(void*)f_3123}, {"f_3174:c_2dplatform_2escm",(void*)f_3174}, {"f_3171:c_2dplatform_2escm",(void*)f_3171}, {"f_3177:c_2dplatform_2escm",(void*)f_3177}, {"f_3186:c_2dplatform_2escm",(void*)f_3186}, {"f_3183:c_2dplatform_2escm",(void*)f_3183}, {"f_3180:c_2dplatform_2escm",(void*)f_3180}, {"f_3189:c_2dplatform_2escm",(void*)f_3189}, {"f_2070:c_2dplatform_2escm",(void*)f_2070}, {"f_3153:c_2dplatform_2escm",(void*)f_3153}, {"f_3156:c_2dplatform_2escm",(void*)f_3156}, {"f_3150:c_2dplatform_2escm",(void*)f_3150}, {"f_3159:c_2dplatform_2escm",(void*)f_3159}, {"f_2067:c_2dplatform_2escm",(void*)f_2067}, {"f_3165:c_2dplatform_2escm",(void*)f_3165}, {"f_5477:c_2dplatform_2escm",(void*)f_5477}, {"f_3162:c_2dplatform_2escm",(void*)f_3162}, {"f_3168:c_2dplatform_2escm",(void*)f_3168}, {"f_2089:c_2dplatform_2escm",(void*)f_2089}, {"f_4429:c_2dplatform_2escm",(void*)f_4429}, {"f_2022:c_2dplatform_2escm",(void*)f_2022}, {"f_2020:c_2dplatform_2escm",(void*)f_2020}, {"f_2047:c_2dplatform_2escm",(void*)f_2047}, {"f_4458:c_2dplatform_2escm",(void*)f_4458}, {"f_3660:c_2dplatform_2escm",(void*)f_3660}, {"f_3663:c_2dplatform_2escm",(void*)f_3663}, {"f_3666:c_2dplatform_2escm",(void*)f_3666}, {"f_3669:c_2dplatform_2escm",(void*)f_3669}, {"f_3672:c_2dplatform_2escm",(void*)f_3672}, {"f_3675:c_2dplatform_2escm",(void*)f_3675}, {"f_3678:c_2dplatform_2escm",(void*)f_3678}, {"f_5401:c_2dplatform_2escm",(void*)f_5401}, {"f_3681:c_2dplatform_2escm",(void*)f_3681}, {"f_3687:c_2dplatform_2escm",(void*)f_3687}, {"f_3684:c_2dplatform_2escm",(void*)f_3684}, {"f_3570:c_2dplatform_2escm",(void*)f_3570}, {"f_3573:c_2dplatform_2escm",(void*)f_3573}, {"f_3576:c_2dplatform_2escm",(void*)f_3576}, {"f_3579:c_2dplatform_2escm",(void*)f_3579}, {"f_2003:c_2dplatform_2escm",(void*)f_2003}, {"f_3693:c_2dplatform_2escm",(void*)f_3693}, {"f_3690:c_2dplatform_2escm",(void*)f_3690}, {"f_3696:c_2dplatform_2escm",(void*)f_3696}, {"f_3699:c_2dplatform_2escm",(void*)f_3699}, {"f_2201:c_2dplatform_2escm",(void*)f_2201}, {"f_3093:c_2dplatform_2escm",(void*)f_3093}, {"f_3090:c_2dplatform_2escm",(void*)f_3090}, {"f_3096:c_2dplatform_2escm",(void*)f_3096}, {"f_3099:c_2dplatform_2escm",(void*)f_3099}, {"f_5129:c_2dplatform_2escm",(void*)f_5129}, {"f_3582:c_2dplatform_2escm",(void*)f_3582}, {"f_3585:c_2dplatform_2escm",(void*)f_3585}, {"f_3588:c_2dplatform_2escm",(void*)f_3588}, {"f_2213:c_2dplatform_2escm",(void*)f_2213}, {"f_3591:c_2dplatform_2escm",(void*)f_3591}, {"f_3597:c_2dplatform_2escm",(void*)f_3597}, {"f_3594:c_2dplatform_2escm",(void*)f_3594}, {"f_3561:c_2dplatform_2escm",(void*)f_3561}, {"f_3564:c_2dplatform_2escm",(void*)f_3564}, {"f_3567:c_2dplatform_2escm",(void*)f_3567}, {"f_2237:c_2dplatform_2escm",(void*)f_2237}, {"f_5173:c_2dplatform_2escm",(void*)f_5173}, {"f_5171:c_2dplatform_2escm",(void*)f_5171}, {"f_4403:c_2dplatform_2escm",(void*)f_4403}, {"f_1773:c_2dplatform_2escm",(void*)f_1773}, {"f_2190:c_2dplatform_2escm",(void*)f_2190}, {"f_2193:c_2dplatform_2escm",(void*)f_2193}, {"f_2195:c_2dplatform_2escm",(void*)f_2195}, {"f_5113:c_2dplatform_2escm",(void*)f_5113}, {"f_1782:c_2dplatform_2escm",(void*)f_1782}, {"f_1785:c_2dplatform_2escm",(void*)f_1785}, {"f_3899:c_2dplatform_2escm",(void*)f_3899}, {"f_2281:c_2dplatform_2escm",(void*)f_2281}, {"f_5180:c_2dplatform_2escm",(void*)f_5180}, {"f_2287:c_2dplatform_2escm",(void*)f_2287}, {"f_5249:c_2dplatform_2escm",(void*)f_5249}, {"f_2284:c_2dplatform_2escm",(void*)f_2284}, {"f_2278:c_2dplatform_2escm",(void*)f_2278}, {"f_3648:c_2dplatform_2escm",(void*)f_3648}, {"f_3645:c_2dplatform_2escm",(void*)f_3645}, {"f_3642:c_2dplatform_2escm",(void*)f_3642}, {"f_5251:c_2dplatform_2escm",(void*)f_5251}, {"f_3657:c_2dplatform_2escm",(void*)f_3657}, {"f_3654:c_2dplatform_2escm",(void*)f_3654}, {"f_3651:c_2dplatform_2escm",(void*)f_3651}, {"f_1757:c_2dplatform_2escm",(void*)f_1757}, {"f_1755:c_2dplatform_2escm",(void*)f_1755}, {"f_1752:c_2dplatform_2escm",(void*)f_1752}, {"f_4488:c_2dplatform_2escm",(void*)f_4488}, {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| map 1 S| for-each 1 o|eliminated procedure checks: 58 o|specializations: o| 2 (eqv? (not float) *) o| 1 (memq * list) o| 17 (= fixnum fixnum) o| 3 (>= fixnum fixnum) o| 3 (cdr pair) o| 2 (car pair) o| 6 (first pair) o| 1 (##sys#check-list (or pair list) *) (o e)|safe calls: 418 (o e)|assignments to immediate values: 3 o|safe globals: (##compiler#non-foldable-bindings ##compiler#internal-bindings ##compiler#default-extended-bindings ##compiler#default-standard-bindings ##compiler#valid-compiler-options-with-argument ##compiler#valid-compiler-options ##compiler#target-include-file ##compiler#membership-unfold-limit ##compiler#membership-test-operators ##compiler#eq-inline-operator ##compiler#unlikely-variables ##compiler#words-per-flonum ##compiler#units-used-by-default ##compiler#default-profiling-declarations ##compiler#default-debugging-declarations ##compiler#default-declarations ##compiler#default-optimization-passes) o|Removed `not' forms: 3 o|inlining procedure: k1676 o|contracted procedure: "(c-platform.scm:369) g257258" o|inlining procedure: k1699 o|contracted procedure: "(c-platform.scm:374) g262263" o|inlining procedure: k1718 o|inlining procedure: k1718 o|inlining procedure: k1699 o|contracted procedure: "(c-platform.scm:375) g267268" o|inlining procedure: k1676 o|substituted constant variable: a1749 o|inlining procedure: k1759 o|inlining procedure: k1777 o|contracted procedure: "(c-platform.scm:396) g323324" o|contracted procedure: "(c-platform.scm:398) g328329" o|inlining procedure: k1777 o|inlining procedure: k1811 o|contracted procedure: "(c-platform.scm:395) g320321" o|inlining procedure: k1811 o|contracted procedure: "(c-platform.scm:394) g317318" o|contracted procedure: "(c-platform.scm:393) g313314" o|contracted procedure: "(c-platform.scm:392) g310311" o|inlining procedure: k1881 o|contracted procedure: "(c-platform.scm:391) g300301" o|contracted procedure: "(c-platform.scm:390) g297298" o|contracted procedure: "(c-platform.scm:390) g294295" o|inlining procedure: k1881 o|contracted procedure: "(c-platform.scm:389) g290291" o|contracted procedure: "(c-platform.scm:388) g286287" o|inlining procedure: k1759 o|substituted constant variable: a1953 o|inlining procedure: k1966 o|contracted procedure: "(c-platform.scm:438) g425426" o|inlining procedure: k2024 o|inlining procedure: k2024 o|contracted procedure: "(c-platform.scm:442) g449450" o|inlining procedure: k2071 o|inlining procedure: k2071 o|contracted procedure: "(c-platform.scm:453) g486487" o|contracted procedure: "(c-platform.scm:455) g491492" o|inlining procedure: k2102 o|substituted constant variable: a2115 o|inlining procedure: k2116 o|contracted procedure: "(c-platform.scm:448) g476477" o|contracted procedure: "(c-platform.scm:450) g481482" o|inlining procedure: k2116 o|contracted procedure: "(c-platform.scm:447) g473474" o|contracted procedure: "(c-platform.scm:445) g468469" o|inlining procedure: k2102 o|substituted constant variable: a2165 o|contracted procedure: "(c-platform.scm:443) g463464" o|contracted procedure: "(c-platform.scm:437) g422423" o|inlining procedure: k1966 o|inlining procedure: k2203 o|contracted procedure: "(c-platform.scm:471) g509510" o|inlining procedure: k2235 o|contracted procedure: "(c-platform.scm:475) g519520" o|inlining procedure: k2235 o|contracted procedure: "(c-platform.scm:476) g524525" o|inlining procedure: k2203 o|substituted constant variable: a2275 o|inlining procedure: k2308 o|contracted procedure: "(c-platform.scm:494) g545546" o|inlining procedure: k2308 o|substituted constant variable: a2334 o|inlining procedure: k2344 o|inlining procedure: k2362 o|inlining procedure: k2377 o|inlining procedure: k2389 o|contracted procedure: "(c-platform.scm:516) g587588" o|contracted procedure: "(c-platform.scm:524) g602603" o|contracted procedure: "(c-platform.scm:518) g592593" o|contracted procedure: "(c-platform.scm:521) g597598" o|contracted procedure: "(c-platform.scm:515) g584585" o|substituted constant variable: a2502 o|inlining procedure: k2389 o|contracted procedure: "(c-platform.scm:510) g577578" o|contracted procedure: "(c-platform.scm:509) g573574" o|inlining procedure: k2377 o|contracted procedure: "(c-platform.scm:507) g568569" o|inlining procedure: k2362 o|contracted procedure: "(c-platform.scm:506) g564565" o|contracted procedure: "(c-platform.scm:505) g560561" o|inlining procedure: k2344 o|substituted constant variable: a2552 o|inlining procedure: k3739 o|inlining procedure: k3758 o|contracted procedure: "(c-platform.scm:1041) g724725" o|contracted procedure: "(c-platform.scm:1045) g729730" o|contracted procedure: "(c-platform.scm:1048) g734735" o|contracted procedure: "(c-platform.scm:1040) g719720" o|inlining procedure: k3758 o|contracted procedure: "(c-platform.scm:1035) g713714" o|contracted procedure: "(c-platform.scm:1033) g708709" o|inlining procedure: k3739 o|inlining procedure: k3882 o|inlining procedure: k3900 o|inlining procedure: k3918 o|contracted procedure: k3930 o|contracted procedure: k3936 o|inlining procedure: k3933 o|inlining procedure: k3933 o|contracted procedure: k3942 o|contracted procedure: "(c-platform.scm:1075) g775776" o|inlining procedure: k3918 o|contracted procedure: "(c-platform.scm:1066) g761762" o|contracted procedure: "(c-platform.scm:1065) g757758" o|inlining procedure: k3900 o|contracted procedure: "(c-platform.scm:1064) g754755" o|contracted procedure: "(c-platform.scm:1063) g750751" o|inlining procedure: k3882 o|substituted constant variable: a4020 o|inlining procedure: k4095 o|contracted procedure: "(c-platform.scm:1188) g871872" o|contracted procedure: "(c-platform.scm:1192) g876877" o|contracted procedure: "(c-platform.scm:1195) g881882" o|inlining procedure: k4095 o|substituted constant variable: a4162 o|inlining procedure: k4170 o|contracted procedure: "(c-platform.scm:1171) g850851" o|contracted procedure: "(c-platform.scm:1174) g855856" o|contracted procedure: "(c-platform.scm:1177) g860861" o|inlining procedure: k4170 o|substituted constant variable: a4230 o|inlining procedure: k4238 o|contracted procedure: "(c-platform.scm:1148) g835836" o|contracted procedure: "(c-platform.scm:1151) g840841" o|inlining procedure: k4274 o|inlining procedure: k4274 o|inlining procedure: k4238 o|substituted constant variable: a4280 o|inlining procedure: k4288 o|contracted procedure: "(c-platform.scm:1134) g813814" o|inlining procedure: k4314 o|inlining procedure: k4314 o|contracted procedure: "(c-platform.scm:1140) g825826" o|contracted procedure: "(c-platform.scm:1138) g822823" o|contracted procedure: "(c-platform.scm:1137) g819820" o|inlining procedure: k4288 o|substituted constant variable: a4367 o|inlining procedure: k4375 o|inlining procedure: k4393 o|contracted procedure: "(c-platform.scm:1118) g802803" o|substituted constant variable: setter-map o|inlining procedure: k4393 o|contracted procedure: "(c-platform.scm:1116) g798799" o|contracted procedure: "(c-platform.scm:1115) g794795" o|contracted procedure: "(c-platform.scm:1114) g790791" o|inlining procedure: k4375 o|substituted constant variable: a4452 o|inlining procedure: k4460 o|contracted procedure: "(c-platform.scm:934) g663664" o|inlining procedure: k4489 o|inlining procedure: k4489 o|contracted procedure: "(c-platform.scm:949) g689690" o|contracted procedure: "(c-platform.scm:950) g694695" o|inlining procedure: k4521 o|inlining procedure: k4533 o|contracted procedure: "(c-platform.scm:942) g679680" o|contracted procedure: "(c-platform.scm:945) g684685" o|inlining procedure: k4533 o|contracted procedure: "(c-platform.scm:939) g675676" o|inlining procedure: k4521 o|contracted procedure: "(c-platform.scm:937) g671672" o|inlining procedure: k4460 o|substituted constant variable: a4609 o|inlining procedure: k4617 o|contracted procedure: "(c-platform.scm:902) g639640" o|contracted procedure: "(c-platform.scm:905) g644645" o|inlining procedure: k4655 o|contracted procedure: "(c-platform.scm:909) g654655" o|inlining procedure: k4655 o|contracted procedure: "(c-platform.scm:908) g651652" o|inlining procedure: k4617 o|substituted constant variable: a4690 o|contracted procedure: "(c-platform.scm:853) g622623" o|contracted procedure: "(c-platform.scm:856) g627628" o|inlining procedure: k4729 o|inlining procedure: k4729 o|substituted constant variable: a4764 o|substituted constant variable: a4766 o|inlining procedure: k4770 o|inlining procedure: k4791 o|inlining procedure: k4791 o|contracted procedure: "(c-platform.scm:424) g404405" o|contracted procedure: "(c-platform.scm:426) g409410" o|contracted procedure: "(c-platform.scm:421) g394395" o|contracted procedure: "(c-platform.scm:423) g399400" o|inlining procedure: k4850 o|contracted procedure: "(c-platform.scm:419) g388389" o|inlining procedure: k4850 o|contracted procedure: "(c-platform.scm:418) g384385" o|inlining procedure: k4895 o|inlining procedure: k4895 o|contracted procedure: "(c-platform.scm:416) g377378" o|contracted procedure: "(c-platform.scm:415) g373374" o|inlining procedure: k4922 o|contracted procedure: "(c-platform.scm:414) g360361" o|contracted procedure: "(c-platform.scm:413) g357358" o|contracted procedure: "(c-platform.scm:413) g354355" o|inlining procedure: k4922 o|contracted procedure: "(c-platform.scm:412) g350351" o|contracted procedure: "(c-platform.scm:411) g346347" o|inlining procedure: k4770 o|substituted constant variable: a4994 o|inlining procedure: k5006 o|contracted procedure: "(c-platform.scm:346) g215216" o|inlining procedure: k5038 o|contracted procedure: "(c-platform.scm:352) g228229" o|inlining procedure: k5038 o|contracted procedure: "(c-platform.scm:355) g233234" o|contracted procedure: "(c-platform.scm:351) g225226" o|contracted procedure: "(c-platform.scm:350) g222223" o|contracted procedure: "(c-platform.scm:356) g238239" o|contracted procedure: "(c-platform.scm:358) g243244" o|inlining procedure: k5006 o|substituted constant variable: a5127 o|inlining procedure: k5131 o|inlining procedure: k5146 o|contracted procedure: "(c-platform.scm:327) g186187" o|inlining procedure: k5175 o|contracted procedure: "(c-platform.scm:334) g200201" o|inlining procedure: k5175 o|contracted procedure: "(c-platform.scm:335) g205206" o|contracted procedure: "(c-platform.scm:333) g197198" o|contracted procedure: "(c-platform.scm:333) g194195" o|inlining procedure: k5146 o|substituted constant variable: a5241 o|inlining procedure: k5253 o|contracted procedure: "(c-platform.scm:323) g181182" o|inlining procedure: k5253 o|contracted procedure: "(c-platform.scm:322) g178179" o|inlining procedure: k5131 o|substituted constant variable: a5290 o|inlining procedure: k5294 o|inlining procedure: k5294 o|contracted procedure: "(c-platform.scm:284) g137138" o|contracted procedure: "(c-platform.scm:287) g142143" o|inlining procedure: k5338 o|contracted procedure: "(c-platform.scm:300) g158159" o|contracted procedure: "(c-platform.scm:306) g165166" o|substituted constant variable: a5393 o|inlining procedure: k5338 o|inlining procedure: k5403 o|contracted procedure: "(c-platform.scm:296) g153154" o|inlining procedure: k5403 o|contracted procedure: "(c-platform.scm:295) g150151" o|inlining procedure: k5452 o|contracted procedure: "(c-platform.scm:257) g9495" o|inlining procedure: k5452 o|contracted procedure: "(c-platform.scm:259) g99100" o|inlining procedure: k5502 o|contracted procedure: "(c-platform.scm:261) g104105" o|inlining procedure: k5531 o|contracted procedure: "(c-platform.scm:268) g118119" o|inlining procedure: k5531 o|contracted procedure: "(c-platform.scm:269) g123124" o|contracted procedure: "(c-platform.scm:267) g115116" o|contracted procedure: "(c-platform.scm:267) g112113" o|inlining procedure: k5502 o|inlining procedure: k5600 o|contracted procedure: "(c-platform.scm:255) g8788" o|inlining procedure: k5600 o|contracted procedure: "(c-platform.scm:254) g8485" o|inlining procedure: k5634 o|contracted procedure: "(c-platform.scm:227) g4350" o|contracted procedure: "(c-platform.scm:228) g5859" o|inlining procedure: k5634 o|simplifications: ((if . 1)) o|replaced variables: 520 o|removed binding forms: 609 o|substituted constant variable: c259 o|substituted constant variable: c264 o|substituted constant variable: c269 o|substituted constant variable: r16775667 o|substituted constant variable: c325 o|substituted constant variable: c330 o|substituted constant variable: p331 o|substituted constant variable: r17785670 o|substituted constant variable: r18125672 o|substituted constant variable: c302 o|substituted constant variable: r18825674 o|substituted constant variable: r17605675 o|substituted constant variable: c427 o|substituted constant variable: c488 o|substituted constant variable: c493 o|substituted constant variable: p494 o|substituted constant variable: s495 o|substituted constant variable: c478 o|substituted constant variable: c483 o|substituted constant variable: p484 o|substituted constant variable: s485 o|substituted constant variable: r21175683 o|substituted constant variable: r21035685 o|substituted constant variable: r19675686 o|substituted constant variable: c511 o|substituted constant variable: c521 o|substituted constant variable: c526 o|substituted constant variable: r22045692 o|substituted constant variable: c547 o|substituted constant variable: r23095694 o|substituted constant variable: c589 o|substituted constant variable: c604 o|substituted constant variable: c594 o|substituted constant variable: c599 o|substituted constant variable: r23905699 o|substituted constant variable: r23785700 o|substituted constant variable: r23635701 o|substituted constant variable: r23455702 o|substituted constant variable: c726 o|substituted constant variable: c731 o|substituted constant variable: c736 o|substituted constant variable: c721 o|substituted constant variable: p722 o|substituted constant variable: s723 o|substituted constant variable: r37595705 o|substituted constant variable: r37405706 o|substituted constant variable: r39345710 o|substituted constant variable: c777 o|substituted constant variable: r39195712 o|substituted constant variable: r39015713 o|substituted constant variable: r38835714 o|removed side-effect free assignment to unused variable: setter-map o|substituted constant variable: c873 o|substituted constant variable: c878 o|substituted constant variable: c883 o|substituted constant variable: p884 o|substituted constant variable: r40965716 o|substituted constant variable: c852 o|substituted constant variable: c857 o|substituted constant variable: p858 o|substituted constant variable: c862 o|substituted constant variable: p863 o|substituted constant variable: r41715718 o|substituted constant variable: c837 o|substituted constant variable: c842 o|substituted constant variable: r42755720 o|substituted constant variable: r42755720 o|substituted constant variable: r42755722 o|substituted constant variable: r42755722 o|substituted constant variable: r42395724 o|substituted constant variable: c815 o|substituted constant variable: c827 o|substituted constant variable: p828 o|substituted constant variable: r42895730 o|substituted constant variable: c804 o|substituted constant variable: r43945733 o|substituted constant variable: r43765734 o|converted assignments to bindings: (rewrite-call/cc742) o|converted assignments to bindings: (rewrite-make-vector699) o|substituted constant variable: c665 o|substituted constant variable: c691 o|substituted constant variable: p692 o|substituted constant variable: c696 o|substituted constant variable: c681 o|substituted constant variable: p682 o|substituted constant variable: c686 o|substituted constant variable: p687 o|substituted constant variable: r45345742 o|substituted constant variable: r45225743 o|substituted constant variable: r44615744 o|substituted constant variable: c641 o|substituted constant variable: c646 o|substituted constant variable: r46565747 o|substituted constant variable: r46185748 o|substituted constant variable: c624 o|substituted constant variable: c629 o|substituted constant variable: p630 o|converted assignments to bindings: (build619) o|converted assignments to bindings: (rewrite-c-w-v551) o|converted assignments to bindings: (rewrite-c..r498) o|converted assignments to bindings: (rewrite-apply414) o|substituted constant variable: c406 o|substituted constant variable: c411 o|substituted constant variable: p412 o|substituted constant variable: c396 o|substituted constant variable: c401 o|substituted constant variable: p402 o|substituted constant variable: r48515755 o|substituted constant variable: c362 o|substituted constant variable: r49235759 o|substituted constant variable: r47715760 o|converted assignments to bindings: (eqv?-id274) o|converted assignments to bindings: (op1248) o|substituted constant variable: c217 o|substituted constant variable: c230 o|substituted constant variable: p231 o|substituted constant variable: c235 o|substituted constant variable: p236 o|substituted constant variable: c240 o|substituted constant variable: c245 o|substituted constant variable: p246 o|substituted constant variable: s247 o|substituted constant variable: r50075766 o|substituted constant variable: c188 o|substituted constant variable: c202 o|substituted constant variable: p203 o|substituted constant variable: c207 o|substituted constant variable: p208 o|substituted constant variable: r51475771 o|substituted constant variable: r52545773 o|substituted constant variable: r51325774 o|substituted constant variable: r52955775 o|substituted constant variable: c139 o|substituted constant variable: c144 o|substituted constant variable: c160 o|substituted constant variable: c167 o|substituted constant variable: r53395778 o|substituted constant variable: r54045780 o|substituted constant variable: c96 o|substituted constant variable: c101 o|substituted constant variable: c106 o|substituted constant variable: c120 o|substituted constant variable: p121 o|substituted constant variable: c125 o|substituted constant variable: p126 o|substituted constant variable: r55035786 o|substituted constant variable: r56015788 o|substituted constant variable: mark65 o|substituted constant variable: g4951 o|simplifications: ((let . 8)) o|replaced variables: 84 o|removed binding forms: 524 o|removed conditional forms: 1 o|inlining procedure: k4652 o|inlining procedure: k4652 o|inlining procedure: k4652 o|inlining procedure: k5332 o|inlining procedure: k5332 o|inlining procedure: k1638 o|replaced variables: 151 o|removed binding forms: 225 o|substituted constant variable: r46535805 o|substituted constant variable: r46535805 o|substituted constant variable: r46535810 o|substituted constant variable: r46535810 o|substituted constant variable: r46535815 o|substituted constant variable: r46535815 o|substituted constant variable: r53335820 o|substituted constant variable: r53335820 o|substituted constant variable: r53335825 o|substituted constant variable: r53335825 o|substituted constant variable: r16395830 o|replaced variables: 5 o|removed binding forms: 154 o|removed binding forms: 16 o|simplifications: ((if . 7) (##core#call . 390)) o| call simplifications: o| null? 5 o| zero? o| fx>= 3 o| symbol? 2 o| negative? o| - o| assq o| = o| fixnum? 2 o| <= o| add1 o| third 4 o| proper-list? o| cadr 2 o| cdr 4 o| ##sys#check-list o| pair? 5 o| cons 5 o| ##sys#setslot o| second 9 o| equal? 2 o| ##sys#slot 57 o| first 23 o| flonum? 2 o| not 4 o| length 22 o| eq? 59 o| car 10 o| list 91 o| ##sys#make-structure 69 o|contracted procedure: k1746 o|contracted procedure: k1679 o|contracted procedure: k1691 o|contracted procedure: k1695 o|contracted procedure: k1702 o|inlining procedure: k1714 o|inlining procedure: k1714 o|contracted procedure: k1730 o|contracted procedure: k1738 o|contracted procedure: k1734 o|contracted procedure: k1950 o|contracted procedure: k1762 o|contracted procedure: k1765 o|contracted procedure: k1768 o|contracted procedure: k1795 o|contracted procedure: k1808 o|contracted procedure: k1799 o|contracted procedure: k1843 o|contracted procedure: k1814 o|contracted procedure: k1834 o|contracted procedure: k1825 o|contracted procedure: k1821 o|contracted procedure: k1875 o|contracted procedure: k1846 o|contracted procedure: k1866 o|contracted procedure: k1857 o|contracted procedure: k1853 o|contracted procedure: k1946 o|contracted procedure: k1878 o|contracted procedure: k1937 o|contracted procedure: k1884 o|contracted procedure: k1919 o|contracted procedure: k1928 o|contracted procedure: k1890 o|contracted procedure: k1902 o|contracted procedure: k1906 o|contracted procedure: k1969 o|contracted procedure: k2185 o|contracted procedure: k1979 o|contracted procedure: k1991 o|contracted procedure: k2005 o|contracted procedure: k2009 o|contracted procedure: k2061 o|contracted procedure: k2012 o|contracted procedure: k2015 o|contracted procedure: k2027 o|contracted procedure: k2030 o|contracted procedure: k2033 o|contracted procedure: k2041 o|contracted procedure: k2049 o|contracted procedure: k2083 o|contracted procedure: k2096 o|contracted procedure: k2176 o|contracted procedure: k2099 o|contracted procedure: k2167 o|contracted procedure: k2105 o|contracted procedure: k2162 o|contracted procedure: k2108 o|contracted procedure: k2136 o|contracted procedure: k2149 o|contracted procedure: k2153 o|contracted procedure: k2140 o|contracted procedure: k2272 o|contracted procedure: k2206 o|contracted procedure: k2215 o|contracted procedure: k2227 o|contracted procedure: k2231 o|contracted procedure: k2238 o|contracted procedure: k2250 o|contracted procedure: k2265 o|contracted procedure: k2331 o|contracted procedure: k2311 o|contracted procedure: k2323 o|contracted procedure: k2327 o|contracted procedure: k2554 o|contracted procedure: k2347 o|contracted procedure: k2350 o|contracted procedure: k2353 o|contracted procedure: k2549 o|contracted procedure: k2359 o|contracted procedure: k2540 o|contracted procedure: k2365 o|contracted procedure: k2531 o|contracted procedure: k2368 o|contracted procedure: k2522 o|contracted procedure: k2383 o|contracted procedure: k2513 o|contracted procedure: k2386 o|contracted procedure: k2392 o|contracted procedure: k2504 o|contracted procedure: k2398 o|contracted procedure: k2419 o|contracted procedure: k2490 o|contracted procedure: k2457 o|contracted procedure: k2474 o|contracted procedure: k2478 o|contracted procedure: k2470 o|contracted procedure: k2461 o|contracted procedure: k2432 o|contracted procedure: k2445 o|contracted procedure: k2449 o|contracted procedure: k2441 o|contracted procedure: k2423 o|contracted procedure: k2499 o|contracted procedure: k3736 o|contracted procedure: k3742 o|contracted procedure: k3864 o|contracted procedure: k3749 o|contracted procedure: k3855 o|contracted procedure: k3755 o|contracted procedure: k3761 o|contracted procedure: k3833 o|contracted procedure: k3770 o|contracted procedure: k3782 o|contracted procedure: k3799 o|contracted procedure: k3830 o|contracted procedure: k3816 o|contracted procedure: k3812 o|contracted procedure: k3803 o|contracted procedure: k3795 o|contracted procedure: k3786 o|contracted procedure: k4022 o|contracted procedure: k3885 o|contracted procedure: k3888 o|contracted procedure: k4017 o|contracted procedure: k3894 o|contracted procedure: k3995 o|contracted procedure: k3906 o|contracted procedure: k3986 o|contracted procedure: k3909 o|contracted procedure: k3921 o|contracted procedure: k3924 o|contracted procedure: k3954 o|contracted procedure: k3958 o|contracted procedure: k4008 o|contracted procedure: k3999 o|contracted procedure: k4164 o|contracted procedure: k4098 o|contracted procedure: k4113 o|contracted procedure: k4121 o|contracted procedure: k4134 o|contracted procedure: k4155 o|contracted procedure: k4151 o|contracted procedure: k4147 o|contracted procedure: k4138 o|contracted procedure: k4130 o|contracted procedure: k4117 o|contracted procedure: k4232 o|contracted procedure: k4173 o|contracted procedure: k4185 o|contracted procedure: k4223 o|contracted procedure: k4227 o|contracted procedure: k4219 o|contracted procedure: k4211 o|contracted procedure: k4215 o|contracted procedure: k4202 o|contracted procedure: k4198 o|contracted procedure: k4189 o|contracted procedure: k4282 o|contracted procedure: k4241 o|contracted procedure: k4253 o|contracted procedure: k4277 o|contracted procedure: k4270 o|contracted procedure: k4266 o|contracted procedure: k4257 o|contracted procedure: k4369 o|contracted procedure: k4291 o|contracted procedure: k4294 o|contracted procedure: k4306 o|contracted procedure: k4310 o|contracted procedure: k4332 o|contracted procedure: k4364 o|contracted procedure: k4335 o|contracted procedure: k4355 o|contracted procedure: k4346 o|contracted procedure: k4454 o|contracted procedure: k4378 o|contracted procedure: k4381 o|contracted procedure: k4449 o|contracted procedure: k4387 o|contracted procedure: k4440 o|contracted procedure: k4390 o|contracted procedure: k4404 o|contracted procedure: k4419 o|contracted procedure: k4423 o|contracted procedure: k4431 o|contracted procedure: k4611 o|contracted procedure: k4463 o|contracted procedure: k4466 o|contracted procedure: k4478 o|inlining procedure: k4482 o|inlining procedure: k4482 o|contracted procedure: k4495 o|contracted procedure: k4515 o|contracted procedure: k4606 o|contracted procedure: k4518 o|contracted procedure: k4524 o|contracted procedure: k4597 o|contracted procedure: k4527 o|contracted procedure: k4542 o|contracted procedure: k4554 o|contracted procedure: k4576 o|contracted procedure: k4581 o|contracted procedure: k4687 o|contracted procedure: k4620 o|contracted procedure: k4632 o|contracted procedure: k4636 o|contracted procedure: k4649 o|contracted procedure: k4683 o|contracted procedure: k4658 o|contracted procedure: k4674 o|contracted procedure: k4665 o|contracted procedure: k4706 o|contracted procedure: k4723 o|contracted procedure: k4719 o|contracted procedure: k4710 o|contracted procedure: k4726 o|contracted procedure: k4732 o|contracted procedure: k4739 o|contracted procedure: k4749 o|contracted procedure: k4756 o|contracted procedure: k4760 o|contracted procedure: k4991 o|contracted procedure: k4773 o|contracted procedure: k4776 o|contracted procedure: k4779 o|contracted procedure: k4803 o|contracted procedure: k4816 o|contracted procedure: k4807 o|contracted procedure: k4834 o|contracted procedure: k4847 o|contracted procedure: k4838 o|contracted procedure: k4883 o|contracted procedure: k4853 o|contracted procedure: k4874 o|contracted procedure: k4856 o|contracted procedure: k4916 o|contracted procedure: k4886 o|contracted procedure: k4907 o|contracted procedure: k4889 o|contracted procedure: k4987 o|contracted procedure: k4919 o|contracted procedure: k4978 o|contracted procedure: k4925 o|contracted procedure: k4960 o|contracted procedure: k4969 o|contracted procedure: k4931 o|contracted procedure: k4943 o|contracted procedure: k4947 o|contracted procedure: k5124 o|contracted procedure: k5009 o|contracted procedure: k5015 o|contracted procedure: k5027 o|contracted procedure: k5031 o|contracted procedure: k5034 o|contracted procedure: k5053 o|contracted procedure: k5095 o|contracted procedure: k5070 o|contracted procedure: k5086 o|contracted procedure: k5077 o|contracted procedure: k5107 o|contracted procedure: k5120 o|contracted procedure: k5287 o|contracted procedure: k5134 o|contracted procedure: k5243 o|contracted procedure: k5137 o|contracted procedure: k5143 o|contracted procedure: k5238 o|contracted procedure: k5149 o|contracted procedure: k5161 o|contracted procedure: k5165 o|contracted procedure: k5190 o|contracted procedure: k5206 o|contracted procedure: k5234 o|contracted procedure: k5209 o|contracted procedure: k5225 o|contracted procedure: k5216 o|contracted procedure: k5281 o|contracted procedure: k5256 o|contracted procedure: k5272 o|contracted procedure: k5263 o|contracted procedure: k5297 o|contracted procedure: k5443 o|contracted procedure: k5436 o|contracted procedure: k5303 o|contracted procedure: k5315 o|contracted procedure: k5319 o|contracted procedure: k5335 o|contracted procedure: k5341 o|contracted procedure: k5390 o|contracted procedure: k5347 o|contracted procedure: k5359 o|contracted procedure: k5363 o|contracted procedure: k5382 o|contracted procedure: k5386 o|contracted procedure: k5431 o|contracted procedure: k5406 o|contracted procedure: k5422 o|contracted procedure: k5413 o|contracted procedure: k5455 o|contracted procedure: k5467 o|contracted procedure: k5471 o|contracted procedure: k5594 o|contracted procedure: k5481 o|contracted procedure: k5493 o|contracted procedure: k5497 o|contracted procedure: k5505 o|contracted procedure: k5517 o|contracted procedure: k5521 o|contracted procedure: k5546 o|contracted procedure: k5562 o|contracted procedure: k5590 o|contracted procedure: k5565 o|contracted procedure: k5581 o|contracted procedure: k5572 o|contracted procedure: k5628 o|contracted procedure: k5603 o|contracted procedure: k5619 o|contracted procedure: k5610 o|contracted procedure: k5637 o|contracted procedure: k5647 o|contracted procedure: k5651 o|contracted procedure: k1644 o|contracted procedure: k1638 o|simplifications: ((let . 19)) o|removed binding forms: 320 o|inlining procedure: k1699 o|inlining procedure: k1699 o|inlining procedure: k1699 o|inlining procedure: k2235 o|inlining procedure: k2235 o|inlining procedure: k4314 o|inlining procedure: k4489 o|inlining procedure: k4489 o|inlining procedure: k4645 o|inlining procedure: k4645 o|inlining procedure: k4645 o|inlining procedure: k5038 o|inlining procedure: k5038 o|inlining procedure: k5328 o|inlining procedure: k5328 o|replaced variables: 58 o|removed binding forms: 2 o|removed binding forms: 43 o|replaced variables: 2 o|removed binding forms: 1 o|direct leaf routine/allocation: build619 25 o|customizable procedures: (for-each-loop4272 k5534 k5178 k5041 op1248 k4782 k4819 k4822 k4788 rewrite-c..r498 k4536 k4486 k4317 k2068 map-loop432452 k1771 k1780 k1783) o|calls to known targets: 58 o|fast box initializations: 2 o|dropping unused closure argument: f_1672 o|dropping unused closure argument: f_2195 */ /* end of file */ �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������